From cc24d3a27e6290f7e14c5fceb888af2369fe60ed Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 11:02:02 +0200
Subject: [PATCH 01/35] Document source maps

Explain a bit how they are used by the debuggers.
---
 compiler/lib/js_output.ml | 80 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 6a44ee57b5..030607d04a 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -39,6 +39,86 @@
      throw
    v}
 *)
+
+(*
+Source maps
+===========
+Most of this information was obtained by running the Firefox and
+Chrome debuggers on some test programs.
+
+The location of a declaration is determined by the first character of
+the expression.
+
+    var x = e
+            ^
+
+The location of other statements is determined by looking at the first
+character of the statement.
+
+    return e
+    ^
+
+Chrome will also stop at the very character after a return statement
+before returning (which can be ambigous).
+
+    return e;if ...
+             ^
+
+The location of the end of the function is determined by the closing brace.
+Firefox will always stop their. Chrome only if there is no return statement.
+
+    function f() { ... }
+                       ^
+
+For an arrow function Firefox stops on the last character, while
+Chrome stops on the character right after.
+
+    (x)=>x+1
+           ^^
+
+In Chrome the location of a function call is at the start of the name
+of the function when it is explicit.
+
+    f(e)         Math.cos(1.)
+    ^                 ^
+
+Otherwise, the location of the opening parenthesis is used. Firefox
+always uses this location.
+
+    (0,f)(e)(e')
+         ^  ^
+
+Usually, Chrome stops at the begining of statements.
+
+   if (e) { ... }
+   ^
+
+Firefox will rather stop on the expression when there is one.
+
+   if (e) { ... }
+       ^
+
+The debugger don't stop at some statements, such as function
+declarations, labelled statements, and block statements.
+
+Chrome uses the name associated to the location of each bound variable
+to determine its name [1].
+
+   function f(x) { var y = ... }
+            ^ ^        ^
+
+Chrome uses the location of the opening parenthesis of a function
+declaration to determine the function name in the stack [2].
+
+
+    function f() { ... }
+              ^
+
+[1] https://github.com/ChromeDevTools/devtools-frontend/blob/11db398f811784395a6706cf3f800014d98171d9/front_end/models/source_map_scopes/NamesResolver.ts#L238-L243
+
+[2] https://github.com/ChromeDevTools/devtools-frontend/blob/11db398f811784395a6706cf3f800014d98171d9/front_end/models/source_map_scopes/NamesResolver.ts#L765-L768
+*)
+
 open! Stdlib
 
 let stats = Debug.find "output"

From 54ee0794145b21e26b802ac90fc4ab96a7f96b30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 10:42:19 +0200
Subject: [PATCH 02/35] JavaScript if statement simplification: use appropriate
 locations

---
 compiler/lib/js_simpl.ml                   |  11 +-
 compiler/tests-full/stdlib.cma.expected.js | 123 +++++++++++----------
 2 files changed, 67 insertions(+), 67 deletions(-)

diff --git a/compiler/lib/js_simpl.ml b/compiler/lib/js_simpl.ml
index efdb3137db..463406ed14 100644
--- a/compiler/lib/js_simpl.ml
+++ b/compiler/lib/js_simpl.ml
@@ -252,9 +252,9 @@ let if_statement e loc iftrue truestop iffalse falsestop =
   let e = simplify_condition e in
   match iftrue, iffalse with
   (* Shared statements *)
-  | (J.If_statement (e', iftrue', iffalse'), loc), _ when Poly.(iffalse = unopt iffalse')
-    -> if_statement_2 (J.EBin (J.And, e, e')) loc iftrue' truestop iffalse falsestop
-  | (J.If_statement (e', iftrue', iffalse'), loc), _ when Poly.(iffalse = iftrue') ->
+  | (J.If_statement (e', iftrue', iffalse'), _), _ when Poly.(iffalse = unopt iffalse') ->
+      if_statement_2 (J.EBin (J.And, e, e')) loc iftrue' truestop iffalse falsestop
+  | (J.If_statement (e', iftrue', iffalse'), _), _ when Poly.(iffalse = iftrue') ->
       if_statement_2
         (J.EBin (J.And, e, J.EUn (J.Not, e')))
         loc
@@ -262,10 +262,9 @@ let if_statement e loc iftrue truestop iffalse falsestop =
         truestop
         iffalse
         falsestop
-  | _, (J.If_statement (e', iftrue', iffalse'), loc) when Poly.(iftrue = iftrue') ->
+  | _, (J.If_statement (e', iftrue', iffalse'), _) when Poly.(iftrue = iftrue') ->
       if_statement_2 (J.EBin (J.Or, e, e')) loc iftrue truestop (unopt iffalse') falsestop
-  | _, (J.If_statement (e', iftrue', iffalse'), loc) when Poly.(iftrue = unopt iffalse')
-    ->
+  | _, (J.If_statement (e', iftrue', iffalse'), _) when Poly.(iftrue = unopt iffalse') ->
       if_statement_2
         (J.EBin (J.Or, e, J.EUn (J.Not, e')))
         loc
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index ddd25fb271..c33b70634c 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -1243,14 +1243,15 @@
    function of_val(x){
      /*<<obj.ml:75:4>>*/ a:
     {
-     if
+      /*<<obj.ml:77:9>>*/ if
       (is_block(x)
        &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot = x[1]; break a;}
      var slot = x;
     }
     a:
     {
-     if(is_block(slot) &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
+      /*<<obj.ml:81:9>>*/ if
+      (is_block(slot) &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
      var
       name =
          /*<<obj.ml:82:11>>*/ caml_call1
@@ -5148,8 +5149,7 @@
      /*<<bytes.ml:161:10>>*/  /*<<bytes.ml:161:10>>*/ var
      j = [0, len - 1 | 0];
     for(;;){
-      /*<<bytes.ml:162:20>>*/ if
-      (i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
+     if(i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
      return i[1] <= j[1] ? sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0) : empty;
     }
     /*<<bytes.ml:168:9>>*/ }
@@ -5459,13 +5459,14 @@
     /*<<bytes.ml:324:50>>*/ }
    function index_from(s, i, c){
      /*<<bytes.ml:328:2>>*/ var l = caml_ml_bytes_length(s);
-    if(0 <= i && l >= i)  /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c);
+     /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
+      /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c);
      /*<<bytes.ml:329:25>>*/ return  /*<<bytes.ml:329:25>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_Bytes_in);
     /*<<bytes.ml:330:19>>*/ }
    function index_from_opt(s, i, c){
      /*<<bytes.ml:334:2>>*/ var l = caml_ml_bytes_length(s);
-    if(0 <= i && l >= i)
+     /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c);
      /*<<bytes.ml:336:4>>*/ return  /*<<bytes.ml:336:4>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_opt_Byte);
@@ -5514,7 +5515,7 @@
     /*<<bytes.ml:368:24>>*/ }
    function contains_from(s, i, c){
      /*<<bytes.ml:373:2>>*/ var l = caml_ml_bytes_length(s);
-    if(0 <= i && l >= i)
+     /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:377:4>>*/ try{
        /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
        /*<<bytes.ml:377:36>>*/  /*<<bytes.ml:377:36>>*/ var _K_ = 1;
@@ -6031,7 +6032,7 @@
           case 0:
             /*<<bytes.ml:708:8>>*/  /*<<bytes.ml:708:8>>*/ var
             last = i + 2 | 0;
-            /*<<bytes.ml:711:11>>*/ if
+           if
             (max >= last
              &&
               !
@@ -6046,7 +6047,7 @@
           case 3:
             /*<<bytes.ml:715:8>>*/  /*<<bytes.ml:715:8>>*/ var
             last$1 = i + 3 | 0;
-            /*<<bytes.ml:719:11>>*/ if
+           if
             (max >= last$1
              &&
               !
@@ -6064,7 +6065,7 @@
           case 7:
             /*<<bytes.ml:731:8>>*/  /*<<bytes.ml:731:8>>*/ var
             last$3 = i + 3 | 0;
-            /*<<bytes.ml:735:11>>*/ if
+           if
             (max >= last$3
              &&
               !
@@ -6084,7 +6085,7 @@
           default:
             /*<<bytes.ml:723:8>>*/  /*<<bytes.ml:723:8>>*/ var
             last$2 = i + 3 | 0;
-            /*<<bytes.ml:727:11>>*/ if
+           if
             (max >= last$2
              &&
               !
@@ -6104,7 +6105,7 @@
        else if(225 > match){
          /*<<bytes.ml:694:8>>*/  /*<<bytes.ml:694:8>>*/ var
          last$4 = i + 2 | 0;
-         /*<<bytes.ml:697:11>>*/ if
+        if
          (max >= last$4
           &&
            !
@@ -6118,7 +6119,7 @@
          /*<<bytes.ml:698:13>>*/ return 0;
        }
         /*<<bytes.ml:701:8>>*/  /*<<bytes.ml:701:8>>*/ var last$0 = i + 2 | 0;
-        /*<<bytes.ml:704:11>>*/ if
+       if
         (max >= last$0
          &&
           !
@@ -6138,7 +6139,7 @@
       }
       if(194 <= match){
         /*<<bytes.ml:688:8>>*/  /*<<bytes.ml:688:8>>*/ var last$5 = i + 1 | 0;
-        /*<<bytes.ml:690:11>>*/ if
+       if
         (max >= last$5
          && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$5))){
          /*<<bytes.ml:692:13>>*/  /*<<bytes.ml:692:13>>*/ var
@@ -6155,13 +6156,13 @@
    function get_utf_16be_uchar(b, i){
      /*<<bytes.ml:745:2>>*/  /*<<bytes.ml:746:2>>*/ var
      max =  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
-    if(0 <= i && max >= i){
+     /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
               (dec_invalid, 1);
       /*<<bytes.ml:749:8>>*/  /*<<bytes.ml:749:8>>*/ var
       hi = unsafe_get_uint16_be(b, i);
-     if(55296 <= hi && 57343 >= hi){
+      /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
                (dec_invalid, 2);
@@ -6169,7 +6170,7 @@
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
        /*<<bytes.ml:755:12>>*/  /*<<bytes.ml:755:12>>*/ var
        lo = unsafe_get_uint16_be(b, i + 2 | 0);
-      if(56320 <= lo && 57343 >= lo){
+       /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:759:10>>*/ return dec_ret(4, u);
       }
@@ -6184,7 +6185,7 @@
    function set_utf_16be_uchar(b, i, u){
      /*<<bytes.ml:762:2>>*/  /*<<bytes.ml:763:2>>*/ var
      max =  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
-    if(0 <= i && max >= i){
+     /*<<bytes.ml:764:2>>*/ if(0 <= i && max >= i){
       /*<<bytes.ml:765:8>>*/  /*<<bytes.ml:765:8>>*/ var
       u$0 =  /*<<bytes.ml:765:8>>*/ caml_call1(Stdlib_Uchar[10], u);
       /*<<bytes.ml:766:11>>*/ if(0 > u$0)
@@ -6217,14 +6218,14 @@
      if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
       /*<<bytes.ml:784:10>>*/  /*<<bytes.ml:784:10>>*/ var
       u = unsafe_get_uint16_be(b, i);
-     if(55296 <= u && 57343 >= u){
+      /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
         /*<<bytes.ml:786:27>>*/ return 0;
        /*<<bytes.ml:788:8>>*/  /*<<bytes.ml:788:8>>*/ var last = i + 3 | 0;
       if(max < last)  /*<<bytes.ml:789:27>>*/ return 0;
        /*<<bytes.ml:790:14>>*/  /*<<bytes.ml:790:14>>*/ var
        u$0 = unsafe_get_uint16_be(b, i + 2 | 0);
-      if(56320 <= u$0 && 57343 >= u$0){
+       /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
         /*<<bytes.ml:792:17>>*/  /*<<bytes.ml:792:17>>*/ var i$1 = i + 4 | 0;
        i = i$1;
        continue;
@@ -6238,13 +6239,13 @@
    function get_utf_16le_uchar(b, i){
      /*<<bytes.ml:799:2>>*/  /*<<bytes.ml:800:2>>*/ var
      max =  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
-    if(0 <= i && max >= i){
+     /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
               (dec_invalid, 1);
       /*<<bytes.ml:803:8>>*/  /*<<bytes.ml:803:8>>*/ var
       hi = unsafe_get_uint16_le(b, i);
-     if(55296 <= hi && 57343 >= hi){
+      /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
                (dec_invalid, 2);
@@ -6252,7 +6253,7 @@
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
        /*<<bytes.ml:809:12>>*/  /*<<bytes.ml:809:12>>*/ var
        lo = unsafe_get_uint16_le(b, i + 2 | 0);
-      if(56320 <= lo && 57343 >= lo){
+       /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:813:10>>*/ return dec_ret(4, u);
       }
@@ -6267,7 +6268,7 @@
    function set_utf_16le_uchar(b, i, u){
      /*<<bytes.ml:816:2>>*/  /*<<bytes.ml:817:2>>*/ var
      max =  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
-    if(0 <= i && max >= i){
+     /*<<bytes.ml:818:2>>*/ if(0 <= i && max >= i){
       /*<<bytes.ml:819:8>>*/  /*<<bytes.ml:819:8>>*/ var
       u$0 =  /*<<bytes.ml:819:8>>*/ caml_call1(Stdlib_Uchar[10], u);
       /*<<bytes.ml:820:11>>*/ if(0 > u$0)
@@ -6300,14 +6301,14 @@
      if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
       /*<<bytes.ml:838:10>>*/  /*<<bytes.ml:838:10>>*/ var
       u = unsafe_get_uint16_le(b, i);
-     if(55296 <= u && 57343 >= u){
+      /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
         /*<<bytes.ml:840:27>>*/ return 0;
        /*<<bytes.ml:842:8>>*/  /*<<bytes.ml:842:8>>*/ var last = i + 3 | 0;
       if(max < last)  /*<<bytes.ml:843:27>>*/ return 0;
        /*<<bytes.ml:844:14>>*/  /*<<bytes.ml:844:14>>*/ var
        u$0 = unsafe_get_uint16_le(b, i + 2 | 0);
-      if(56320 <= u$0 && 57343 >= u$0){
+       /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
         /*<<bytes.ml:846:17>>*/  /*<<bytes.ml:846:17>>*/ var i$1 = i + 4 | 0;
        i = i$1;
        continue;
@@ -6620,7 +6621,7 @@
    function trim(s){
      /*<<string.ml:102:2>>*/ if(s === cst$0)
       /*<<string.ml:102:17>>*/ return s;
-     /*<<string.ml:103:39>>*/ if
+     /*<<string.ml:103:10>>*/ if
      (!
       is_space(caml_string_unsafe_get(s, 0))
       &&
@@ -6670,14 +6671,14 @@
     /*<<string.ml:127:50>>*/ }
    function index_from(s, i, c){
      /*<<string.ml:131:2>>*/ var l = caml_ml_string_length(s);
-    if(0 <= i && l >= i)
+     /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c);
      /*<<string.ml:132:25>>*/ return  /*<<string.ml:132:25>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_Bytes_in);
     /*<<string.ml:133:21>>*/ }
    function index_from_opt(s, i, c){
      /*<<string.ml:137:2>>*/ var l = caml_ml_string_length(s);
-    if(0 <= i && l >= i)
+     /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c);
      /*<<string.ml:139:4>>*/ return  /*<<string.ml:139:4>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_opt_Byte);
@@ -6726,7 +6727,7 @@
     /*<<string.ml:171:24>>*/ }
    function contains_from(s, i, c){
      /*<<string.ml:175:2>>*/ var l = caml_ml_string_length(s);
-    if(0 <= i && l >= i)
+     /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:179:4>>*/ try{
        /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
        /*<<string.ml:179:36>>*/  /*<<string.ml:179:36>>*/ var _G_ = 1;
@@ -8181,7 +8182,7 @@
    function min(x, y){
      /*<<float.ml:139:2>>*/ a:
     if(! (x < y)){
-      /*<<float.ml:139:34>>*/ if
+      /*<<float.ml:139:18>>*/ if
       (!
         /*<<float.ml:139:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:139:34>>*/ caml_signbit_float(x))
@@ -8193,7 +8194,7 @@
    function max(x, y){
      /*<<float.ml:144:2>>*/ a:
     if(! (x < y)){
-      /*<<float.ml:144:34>>*/ if
+      /*<<float.ml:144:18>>*/ if
       (!
         /*<<float.ml:144:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:144:34>>*/ caml_signbit_float(x))
@@ -8206,7 +8207,7 @@
      /*<<float.ml:149:2>>*/ if(x === x && y === y){
      a:
      if(! (x < y)){
-       /*<<float.ml:150:39>>*/ if
+       /*<<float.ml:150:23>>*/ if
        (!
          /*<<float.ml:150:23>>*/ caml_signbit_float(y)
         &&  /*<<float.ml:150:39>>*/ caml_signbit_float(x))
@@ -8220,7 +8221,7 @@
    function min_num(x, y){
      /*<<float.ml:153:2>>*/ a:
     if(! (x < y)){
-      /*<<float.ml:153:34>>*/ if
+      /*<<float.ml:153:18>>*/ if
       (!
         /*<<float.ml:153:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:153:34>>*/ caml_signbit_float(x))
@@ -8232,7 +8233,7 @@
    function max_num(x, y){
      /*<<float.ml:158:2>>*/ a:
     if(! (x < y)){
-      /*<<float.ml:158:34>>*/ if
+      /*<<float.ml:158:18>>*/ if
       (!
         /*<<float.ml:158:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:158:34>>*/ caml_signbit_float(x))
@@ -8248,7 +8249,7 @@
       /*<<float.ml:164:24>>*/ return [0, x, x];
     a:
     if(! (x < y)){
-      /*<<float.ml:165:39>>*/ if
+      /*<<float.ml:165:23>>*/ if
       (!
         /*<<float.ml:165:23>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:165:39>>*/ caml_signbit_float(x))
@@ -12717,7 +12718,8 @@
       /*<<buffer.ml:65:2>>*/ match = b[1],
      length = match[2],
      buffer = match[1];
-    if(0 <= ofs && position > ofs && length >= position)
+     /*<<buffer.ml:66:2>>*/ if
+     (0 <= ofs && position > ofs && length >= position)
      return runtime.caml_bytes_unsafe_get(buffer, ofs);
      /*<<buffer.ml:67:3>>*/ return  /*<<buffer.ml:67:3>>*/ caml_call1
             (Stdlib[1], cst_Buffer_nth);
@@ -16727,7 +16729,7 @@
       default:
        a:
        if(0 < len){
-         /*<<camlinternalFormat.ml:1337:63>>*/ if
+         /*<<camlinternalFormat.ml:1337:29>>*/ if
          (43
           !==  /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get(str, 0)
           &&
@@ -16756,7 +16758,7 @@
          &&
           48
           ===  /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0)){
-         /*<<camlinternalFormat.ml:1340:63>>*/ if
+         /*<<camlinternalFormat.ml:1340:46>>*/ if
          (120
           !==  /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get(str, 1)
           &&
@@ -16801,7 +16803,7 @@
           case 5:
            c:
            if(len < (prec$0 + 2 | 0) && 1 < len){
-             /*<<camlinternalFormat.ml:1358:60>>*/ if
+             /*<<camlinternalFormat.ml:1358:43>>*/ if
              (120
               !==
                 /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get(str, 1)
@@ -18648,7 +18650,7 @@
             match$0 = [0, [17, _O_, fmt_rest$5]];
            break a;
           case 5:
-            /*<<camlinternalFormat.ml:2626:42>>*/ if
+           if
             ((str_ind$0 + 1 | 0) < end_ind
              &&
               37
@@ -19198,8 +19200,7 @@
        /*<<camlinternalFormat.ml:2320:7>>*/ var
         /*<<camlinternalFormat.ml:2320:13>>*/ pad = get_pad(0),
         /*<<camlinternalFormat.ml:2320:25>>*/ match = get_prec(0);
-       /*<<camlinternalFormat.ml:2320:25>>*/ if
-       (typeof match === "number" && ! match)
+      if(typeof match === "number" && ! match)
         /*<<camlinternalFormat.ml:2321:32>>*/ return pad;
       if(typeof pad === "number")
         /*<<camlinternalFormat.ml:2322:32>>*/ return 0;
@@ -21676,7 +21677,7 @@
          (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
       /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
-      /*<<arg.ml:160:34>>*/ if
+      /*<<arg.ml:160:7>>*/ if
       (!
         /*<<arg.ml:160:7>>*/ caml_equal(error, _g_)
        && !  /*<<arg.ml:160:34>>*/ caml_equal(error, _h_))
@@ -22179,7 +22180,7 @@
       var len = caml_ml_string_length(word);
       a:
       {
-        /*<<arg.ml:381:16>>*/ if
+        /*<<arg.ml:381:2>>*/ if
         (0 < len
          && 13 ===  /*<<arg.ml:381:16>>*/ caml_string_get(word, len - 1 | 0)){
         var
@@ -25023,7 +25024,7 @@
       r =
          /*<<random.ml:242:12>>*/ caml_int64_to_int32
          ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
-      /*<<random.ml:243:18>>*/ if
+      /*<<random.ml:243:7>>*/ if
       (!
         /*<<random.ml:243:7>>*/ caml_lessthan(r, min)
        && !  /*<<random.ml:243:18>>*/ caml_greaterthan(r, max))
@@ -25075,7 +25076,7 @@
      /*<<random.ml:277:4>>*/ for(;;){
       /*<<random.ml:277:12>>*/  /*<<random.ml:277:12>>*/ var
       r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
-      /*<<random.ml:278:18>>*/ if
+      /*<<random.ml:278:7>>*/ if
       (!
         /*<<random.ml:278:7>>*/ caml_lessthan(r, min)
        && !  /*<<random.ml:278:18>>*/ caml_greaterthan(r, max))
@@ -29555,7 +29556,7 @@
     }
      /*<<scanf.ml:530:2>>*/  /*<<scanf.ml:530:2>>*/ var
      l =  /*<<scanf.ml:530:2>>*/ caml_ml_string_length(tok);
-     /*<<scanf.ml:531:14>>*/ if
+     /*<<scanf.ml:531:2>>*/ if
      (0 !== l && 43 ===  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0))
       /*<<scanf.ml:531:43>>*/ return  /*<<scanf.ml:531:43>>*/ caml_call3
              (Stdlib_String[16], tok, 1, l - 1 | 0);
@@ -29838,7 +29839,7 @@
         /*<<scanf.ml:804:16>>*/  /*<<scanf.ml:804:16>>*/ var
         width$4 =
           check_case_insensitive_string(width$3, ib, bad_hex_float, cst_x);
-        /*<<scanf.ml:805:20>>*/ if(0 !== width$4 && ! end_of_input(ib)){
+        /*<<scanf.ml:805:4>>*/ if(0 !== width$4 && ! end_of_input(ib)){
          /*<<scanf.ml:806:24>>*/  /*<<scanf.ml:806:24>>*/ var
          _aG_ = peek_char(ib) - 46 | 0;
         b:
@@ -29856,7 +29857,7 @@
          }
          var width$5 = width$4;
         }
-         /*<<scanf.ml:809:22>>*/ if(0 !== width$5 && ! end_of_input(ib)){
+         /*<<scanf.ml:809:6>>*/ if(0 !== width$5 && ! end_of_input(ib)){
           /*<<scanf.ml:810:26>>*/  /*<<scanf.ml:810:26>>*/ var
           c$0 = peek_char(ib);
          if(46 === c$0){
@@ -29864,7 +29865,7 @@
            width$6 = store_char(width$5, ib, c$0);
           b:
           {
-            /*<<scanf.ml:813:28>>*/ if(0 !== width$6 && ! end_of_input(ib)){
+            /*<<scanf.ml:813:12>>*/ if(0 !== width$6 && ! end_of_input(ib)){
              /*<<scanf.ml:814:20>>*/  /*<<scanf.ml:814:20>>*/ var
              match = peek_char(ib);
             c:
@@ -29896,7 +29897,7 @@
          }
          else
           var width$8 = width$5;
-          /*<<scanf.ml:821:24>>*/ if(0 !== width$8 && ! end_of_input(ib)){
+          /*<<scanf.ml:821:8>>*/ if(0 !== width$8 && ! end_of_input(ib)){
            /*<<scanf.ml:822:16>>*/  /*<<scanf.ml:822:16>>*/ var
            c$1 = peek_char(ib);
           if(80 !== c$1 && 112 !== c$1)
@@ -30024,7 +30025,7 @@
           width$4 = store_char(width$10, ib, c$1);
          c:
          {
-           /*<<scanf.ml:882:26>>*/ if(0 !== width$4 && ! end_of_input(ib)){
+           /*<<scanf.ml:882:10>>*/ if(0 !== width$4 && ! end_of_input(ib)){
             /*<<scanf.ml:883:18>>*/  /*<<scanf.ml:883:18>>*/ var
             match = peek_char(ib);
            d:
@@ -30062,7 +30063,7 @@
       }
       var width$7 = width$6;
      }
-      /*<<scanf.ml:891:22>>*/ if(0 !== width$7 && ! end_of_input(ib)){
+      /*<<scanf.ml:891:6>>*/ if(0 !== width$7 && ! end_of_input(ib)){
        /*<<scanf.ml:892:14>>*/  /*<<scanf.ml:892:14>>*/ var
        c$2 = peek_char(ib);
       if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$7;
@@ -30148,7 +30149,7 @@
           | 0;
        b:
        {
-        if(0 <= c && 255 >= c){
+         /*<<scanf.ml:959:2>>*/ if(0 <= c && 255 >= c){
          var _ab_ =  /*<<scanf.ml:963:2>>*/ caml_call1(Stdlib[29], c);
          break b;
         }
@@ -30187,7 +30188,7 @@
           c$0 = (16 * hexadecimal_value_of_char(c1) | 0) + ___ | 0;
          b:
          {
-          if(0 <= c$0 && 255 >= c$0){
+           /*<<scanf.ml:986:2>>*/ if(0 <= c$0 && 255 >= c$0){
            var _aa_ =  /*<<scanf.ml:989:2>>*/ caml_call1(Stdlib[29], c$0);
            break b;
           }
@@ -32546,7 +32547,7 @@
        a:
        if(typeof shape === "number"){
         if(2 === shape){
-         if
+          /*<<camlinternalMod.ml:72:13>>*/ if
           (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
            && 4 === n$0.length - 1){
            /*<<camlinternalMod.ml:73:14>>*/ var
@@ -33367,7 +33368,7 @@
        /*<<ephemeron.ml:541:26>>*/ match$0 = get_key2(c);
      if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
-       /*<<ephemeron.ml:544:34>>*/ if
+       /*<<ephemeron.ml:544:15>>*/ if
        ( /*<<ephemeron.ml:544:15>>*/ caml_call2(H1[1], k1, k1$0)
         &&  /*<<ephemeron.ml:544:34>>*/ caml_call2(H2[1], k2, k2$0))
         /*<<ephemeron.ml:545:17>>*/ return 0;
@@ -34674,7 +34675,7 @@
     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:291:2>>*/ if
      (0 !== l && ! is_dir_sep$1(dirname, l - 1 | 0)){
       /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ var
       _p_ =
@@ -34701,7 +34702,7 @@
      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)){
+     if(0 <= i0 && ! is_dir_sep$1(name, i0)){
        /*<<filename.ml:308:12>>*/ if
        (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
        break;
@@ -34716,7 +34717,7 @@
       /*<<filename.ml:308: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)){
+     if(0 <= i && ! is_dir_sep$1(name, i)){
        /*<<filename.ml:303:12>>*/ if
        (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
        return caml_ml_string_length(name) - i0 | 0;

From 38b132b3d88be2b232cd425e36a6f01a8cd605a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Wed, 16 Oct 2024 10:34:02 +0200
Subject: [PATCH 03/35] Do not emit unnecessary source mappings

The debuggers do not stop on some statements, like function
declarations. So there is no point in outputting some debug information
there.
---
 compiler/lib/generate.ml                     |    8 +-
 compiler/lib/js_output.ml                    |   32 +-
 compiler/tests-compiler/gh747.ml             |   34 +-
 compiler/tests-compiler/js_parser_printer.ml |  220 +-
 compiler/tests-compiler/sourcemap.ml         |    5 +-
 compiler/tests-full/stdlib.cma.expected.js   | 6277 ++++++++----------
 6 files changed, 3024 insertions(+), 3552 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index e4d12aaf14..5bf2b8e1c5 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -1943,17 +1943,17 @@ let generate_shared_value ctx =
                , ( J.dot
                      (s_var Global_constant.global_object)
                      (Utf8_string.of_string_exn "jsoo_runtime")
-                 , J.N ) )
+                 , J.U ) )
              ])
         @ List.map
             (StringMap.bindings ctx.Ctx.share.Share.vars.Share.byte_strings)
-            ~f:(fun (s, v) -> v, (str_js_byte s, J.N))
+            ~f:(fun (s, v) -> v, (str_js_byte s, J.U))
         @ List.map
             (StringMap.bindings ctx.Ctx.share.Share.vars.Share.utf_strings)
-            ~f:(fun (s, v) -> v, (str_js_utf8 s, J.N))
+            ~f:(fun (s, v) -> v, (str_js_utf8 s, J.U))
         @ List.map
             (StringMap.bindings ctx.Ctx.share.Share.vars.Share.prims)
-            ~f:(fun (s, v) -> v, (runtime_fun ctx s, J.N)))
+            ~f:(fun (s, v) -> v, (runtime_fun ctx s, J.U)))
     , J.U )
   in
   if not (Config.Flag.inline_callgen ())
diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 030607d04a..7ca44bd11d 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -464,6 +464,36 @@ struct
     in
     traverse l e
 
+  (* The debuggers do not stop on some statements, like function
+     declarations. So there is no point in outputting some debug
+     information there. *)
+  let stop_on_statement st =
+    match st with
+    | Block _
+    | Variable_statement _
+    | Function_declaration _
+    | Class_declaration _
+    | Empty_statement
+    | Labelled_statement _
+    | Import _
+    | Export _ -> false
+    | Expression_statement _
+    | If_statement _
+    | Do_while_statement _
+    | While_statement _
+    | For_statement _
+    | ForIn_statement _
+    | ForOf_statement _
+    | ForAwaitOf_statement _
+    | Continue_statement _
+    | Break_statement _
+    | Return_statement _
+    | With_statement _
+    | Switch_statement _
+    | Throw_statement _
+    | Try_statement _
+    | Debugger_statement -> true
+
   let best_string_quote s =
     let simple = ref 0 and double = ref 0 in
     for i = 0 to String.length s - 1 do
@@ -1344,7 +1374,7 @@ struct
   and statement ?(last = false) f (s, loc) =
     let can_omit_semi = PP.compact f && last in
     let last_semi () = if can_omit_semi then () else PP.string f ";" in
-    output_debug_info f loc;
+    if stop_on_statement s then output_debug_info f loc;
     match s with
     | Block b -> block f b
     | Variable_statement (k, l) -> variable_declaration_list k (not can_omit_semi) f l
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index adbb4cc285..22699ec880 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -60,14 +60,14 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
       5:   (globalThis){
       6:    "use strict";
       7:    var
-      8:     runtime = globalThis.jsoo_runtime,
-      9:     caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
-     10:     /*<<?>>*/ function caml_call1(f, a0){
+      8:      /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+      9:      /*<<?>>*/ caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
+     10:    function caml_call1(f, a0){
      11:     return (f.l >= 0 ? f.l : f.l = f.length) === 1
      12:             ? f(a0)
      13:             : runtime.caml_call_gen(f, [a0]);
      14:    }
-     15:     /*<<?>>*/ function caml_call2(f, a0, a1){
+     15:    function caml_call2(f, a0, a1){
      16:     return (f.l >= 0 ? f.l : f.l = f.length) === 2
      17:             ? f(a0, a1)
      18:             : runtime.caml_call_gen(f, [a0, a1]);
@@ -82,7 +82,7 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      27:     /*<<test.ml:3:0>>*/  /*<<test.ml:3:0>>*/ caml_call1(Stdlib[46], greeting);
      28:     /*<<test.ml:5:0>>*/  /*<<test.ml:5:0>>*/ caml_call1
      29:     (Stdlib[46], greeting$0);
-     30:     /*<<test.ml:7:47>>*/ var
+     30:    var
      31:      /*<<test.ml:7:47>>*/ _a_ =
      32:        /*<<test.ml:7:47>>*/ caml_call1(Stdlib_Random[5], 30),
      33:      /*<<test.ml:7:34>>*/ unicodeLength =
@@ -96,7 +96,7 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      41:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
      42:         _b_);
      43:     /*<<test.ml:8:0>>*/  /*<<test.ml:8:0>>*/ caml_call1(Stdlib[46], _c_);
-     44:     /*<<test.ml:9:39>>*/ var
+     44:    var
      45:      /*<<test.ml:9:39>>*/ _d_ =
      46:        /*<<test.ml:9:39>>*/ caml_call2(Stdlib_String[1], 1, 138),
      47:      /*<<test.ml:9:14>>*/ _e_ =
@@ -231,24 +231,24 @@ end
       5:   (globalThis){
       6:    "use strict";
       7:    var
-      8:     runtime = globalThis.jsoo_runtime,
-      9:     caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
-     10:     /*<<?>>*/ function caml_call2(f, a0, a1){
+      8:      /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+      9:      /*<<?>>*/ caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
+     10:    function caml_call2(f, a0, a1){
      11:     return (f.l >= 0 ? f.l : f.l = f.length) === 2
      12:             ? f(a0, a1)
      13:             : runtime.caml_call_gen(f, [a0, a1]);
      14:    }
-     15:     /*<<?>>*/ function caml_call3(f, a0, a1, a2){
+     15:    function caml_call3(f, a0, a1, a2){
      16:     return (f.l >= 0 ? f.l : f.l = f.length) === 3
      17:             ? f(a0, a1, a2)
      18:             : runtime.caml_call_gen(f, [a0, a1, a2]);
      19:    }
-     20:     /*<<?>>*/ function caml_call8(f, a0, a1, a2, a3, a4, a5, a6, a7){
+     20:    function caml_call8(f, a0, a1, a2, a3, a4, a5, a6, a7){
      21:     return (f.l >= 0 ? f.l : f.l = f.length) === 8
      22:             ? f(a0, a1, a2, a3, a4, a5, a6, a7)
      23:             : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4, a5, a6, a7]);
      24:    }
-     25:     /*<<test.ml:14:22>>*/ var
+     25:    var
      26:     global_data = runtime.caml_get_global_data(),
      27:     cst = caml_string_of_jsbytes(""),
      28:     partial = [4, 0, 0, 0, [12, 45, [4, 0, 0, 0, 0]]],
@@ -318,7 +318,7 @@ end
      92:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
      93:      /*<<test.ml:49:75>>*/ }
      94:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     95:       /*<<test.ml:59:14>>*/ var
+     95:      var
      96:       _h_ = slot[5],
      97:       _i_ = slot[4],
      98:       _j_ = slot[3],
@@ -331,7 +331,7 @@ end
     105:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)];
     106:     }
     107:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
-    108:      /*<<test.ml:56:51>>*/  /*<<test.ml:56:51>>*/ var _o_ = info(0);
+    108:      /*<<test.ml:56:51>>*/ var _o_ = info(0);
     109:      /*<<test.ml:56:8>>*/ return [0,
     110:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)];
     111:     /*<<test.ml:61:52>>*/ }
@@ -343,14 +343,14 @@ end
     117:     if(_f_ >= 0){
     118:      var i = _e_;
     119:      for(;;){
-    120:        /*<<test.ml:70:14>>*/  /*<<test.ml:70:14>>*/ var
+    120:        /*<<test.ml:70:14>>*/ var
     121:        match = format_backtrace_slot(i, runtime.caml_check_bound(a, i)[1 + i]);
     122:       if(match){
     123:        var str = match[1];
     124:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
     125:         (Stdlib_Printf[1], outchan, _c_, str);
     126:       }
-    127:        /*<<test.ml:69:6>>*/  /*<<test.ml:69:6>>*/ var _g_ = i + 1 | 0;
+    127:        /*<<test.ml:69:6>>*/ var _g_ = i + 1 | 0;
     128:       if(_f_ === i) break;
     129:       i = _g_;
     130:      }
@@ -371,7 +371,7 @@ end
     145:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
     146:             (right, v1$0, v2$0);
     147:     /*<<test.ml:81:24>>*/ }
-    148:     /*<<test.ml:75:16>>*/ var
+    148:    var
     149:      /*<<test.ml:75:16>>*/ Either = [0, compare],
     150:     Test =
     151:       [0,
diff --git a/compiler/tests-compiler/js_parser_printer.ml b/compiler/tests-compiler/js_parser_printer.ml
index 79b879db9d..dd88d61aa0 100644
--- a/compiler/tests-compiler/js_parser_printer.ml
+++ b/compiler/tests-compiler/js_parser_printer.ml
@@ -108,10 +108,10 @@ let%expect_test "reserved words as fields" =
     /*<<fake:3:4>>*/ x.catch;
     /*<<fake:4:4>>*/ x.for;
     /*<<fake:5:4>>*/ x.continue;
-    /*<<fake:6:4>>*/  /*<<fake:6:10>>*/ var y = {debugger: 2};
-    /*<<fake:7:4>>*/  /*<<fake:7:10>>*/ var y = {catch: 2};
-    /*<<fake:8:4>>*/  /*<<fake:8:10>>*/ var y = {for: 2};
-    /*<<fake:9:4>>*/  /*<<fake:9:10>>*/ var y = {continue: 2}; |}]
+    /*<<fake:6:10>>*/ var y = {debugger: 2};
+    /*<<fake:7:10>>*/ var y = {catch: 2};
+    /*<<fake:8:10>>*/ var y = {for: 2};
+    /*<<fake:9:10>>*/ var y = {continue: 2}; |}]
 
 let%expect_test "preserve number literals" =
   print
@@ -133,20 +133,20 @@ let%expect_test "preserve number literals" =
      var t = 1E+3; |};
   [%expect
     {|
-    /*<<fake:2:5>>*/  /*<<fake:2:11>>*/ var x = 0xf_fff;
-    /*<<fake:3:5>>*/  /*<<fake:3:11>>*/ var x = 0Xffff;
-    /*<<fake:4:5>>*/  /*<<fake:4:11>>*/ var y = 0o7_1223;
-    /*<<fake:5:5>>*/  /*<<fake:5:11>>*/ var y = 0O7123;
-    /*<<fake:6:5>>*/  /*<<fake:6:11>>*/ var y = 0b1_1001;
-    /*<<fake:7:5>>*/  /*<<fake:7:11>>*/ var y = 0B11001;
-    /*<<fake:8:5>>*/  /*<<fake:8:11>>*/ var y = 071923;
-    /*<<fake:9:5>>*/  /*<<fake:9:11>>*/ var y = 07123;
-    /*<<fake:10:5>>*/  /*<<fake:10:11>>*/ var z = 0.0;
-    /*<<fake:11:5>>*/  /*<<fake:11:11>>*/ var z = 0.;
-    /*<<fake:12:5>>*/  /*<<fake:12:11>>*/ var t = 1.0e-3;
-    /*<<fake:13:5>>*/  /*<<fake:13:11>>*/ var t = 1.0E+3;
-    /*<<fake:14:5>>*/  /*<<fake:14:11>>*/ var t = 1e-3;
-    /*<<fake:15:5>>*/  /*<<fake:15:11>>*/ var t = 1E+3; |}]
+    /*<<fake:2:11>>*/ var x = 0xf_fff;
+    /*<<fake:3:11>>*/ var x = 0Xffff;
+    /*<<fake:4:11>>*/ var y = 0o7_1223;
+    /*<<fake:5:11>>*/ var y = 0O7123;
+    /*<<fake:6:11>>*/ var y = 0b1_1001;
+    /*<<fake:7:11>>*/ var y = 0B11001;
+    /*<<fake:8:11>>*/ var y = 071923;
+    /*<<fake:9:11>>*/ var y = 07123;
+    /*<<fake:10:11>>*/ var z = 0.0;
+    /*<<fake:11:11>>*/ var z = 0.;
+    /*<<fake:12:11>>*/ var t = 1.0e-3;
+    /*<<fake:13:11>>*/ var t = 1.0E+3;
+    /*<<fake:14:11>>*/ var t = 1e-3;
+    /*<<fake:15:11>>*/ var t = 1E+3; |}]
 
 let%expect_test "preserve number literals in property_name" =
   print
@@ -157,10 +157,8 @@ let%expect_test "preserve number literals in property_name" =
  |};
   [%expect
     {|
-    /*<<fake:2:4>>*/  /*<<fake:2:22>>*/ var
-    number_as_key = {100000000000000000000: 2};
-    /*<<fake:3:4>>*/  /*<<fake:3:22>>*/ var
-    number_as_key = {100000000000000000000n: 2}; |}]
+    /*<<fake:2:22>>*/ var number_as_key = {100000000000000000000: 2};
+    /*<<fake:3:22>>*/ var number_as_key = {100000000000000000000n: 2}; |}]
 
 let%expect_test "ops" =
   print
@@ -234,27 +232,23 @@ let%expect_test "arrow" =
 
   [%expect
     {|
-    /*<<fake:2:4>>*/  /*<<fake:2:10>>*/ var a = x=> /*<<fake:2:18>>*/ x + 2;
-    /*<<fake:3:4>>*/  /*<<fake:3:10>>*/ var a = ()=> /*<<fake:3:19>>*/ 2;
-    /*<<fake:4:4>>*/  /*<<fake:4:10>>*/ var a = x=> /*<<fake:4:20>>*/ x + 2;
-    /*<<fake:5:4>>*/  /*<<fake:5:10>>*/ var a = (x, y)=> /*<<fake:5:22>>*/ x + y;
-    /*<<fake:7:4>>*/  /*<<fake:7:10>>*/ var
-    a = x=>{ /*<<fake:7:20>>*/ x + 2; /*<<fake:7:13>>*/ };
-    /*<<fake:8:4>>*/  /*<<fake:8:10>>*/ var
-    a = ()=>{ /*<<fake:8:21>>*/ 2; /*<<fake:8:13>>*/ };
-    /*<<fake:9:4>>*/  /*<<fake:9:10>>*/ var
-    a = x=>{ /*<<fake:9:22>>*/ x + 2; /*<<fake:9:13>>*/ };
-    /*<<fake:11:4>>*/  /*<<fake:11:10>>*/ var
+    /*<<fake:2:10>>*/ var a = x=> /*<<fake:2:18>>*/ x + 2;
+    /*<<fake:3:10>>*/ var a = ()=> /*<<fake:3:19>>*/ 2;
+    /*<<fake:4:10>>*/ var a = x=> /*<<fake:4:20>>*/ x + 2;
+    /*<<fake:5:10>>*/ var a = (x, y)=> /*<<fake:5:22>>*/ x + y;
+    /*<<fake:7:10>>*/ var a = x=>{ /*<<fake:7:20>>*/ x + 2; /*<<fake:7:13>>*/ };
+    /*<<fake:8:10>>*/ var a = ()=>{ /*<<fake:8:21>>*/ 2; /*<<fake:8:13>>*/ };
+    /*<<fake:9:10>>*/ var a = x=>{ /*<<fake:9:22>>*/ x + 2; /*<<fake:9:13>>*/ };
+    /*<<fake:11:10>>*/ var
     a = ( /*<<fake:11:16>>*/ x = 1 / 2)=> /*<<fake:11:28>>*/ x + 10;
-    /*<<fake:13:4>>*/  /*<<fake:13:10>>*/ var
+    /*<<fake:13:10>>*/ var
     a = ( /*<<fake:13:16>>*/ x = /qwe/g)=> /*<<fake:13:30>>*/ x + 10;
-    /*<<fake:16:4>>*/  /*<<fake:16:10>>*/ var
+    /*<<fake:16:10>>*/ var
     a = x=> /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y;
-    /*<<fake:17:4>>*/  /*<<fake:17:10>>*/ var
+    /*<<fake:17:10>>*/ var
     a = x=> /*<<fake:17:17>>*/ y=> /*<<fake:17:23>>*/ x + y;
-    /*<<fake:19:4>>*/  /*<<fake:19:10>>*/ var a = async x=> /*<<fake:19:23>>*/ y;
-    /*<<fake:20:4>>*/  /*<<fake:20:10>>*/ var
-    a = async (a, b)=> /*<<fake:20:27>>*/ a + b; |}]
+    /*<<fake:19:10>>*/ var a = async x=> /*<<fake:19:23>>*/ y;
+    /*<<fake:20:10>>*/ var a = async (a, b)=> /*<<fake:20:27>>*/ a + b; |}]
 
 let%expect_test "trailing comma" =
   (* GH#989 *)
@@ -286,21 +280,20 @@ function rehb_shape(_face /*: fk_face */, text /*: string */) {
 
   [%expect
     {|
-    /*<<fake:4:0>>*/ function rehb_new_face(_fontName){
-     /*<<fake:7:2>>*/ return undefined;
-    /*<<fake:8:0>>*/ }
-    /*<<fake:12:0>>*/ function rehb_shape(_face, text){
-     /*<<fake:13:2>>*/  /*<<fake:13:10>>*/ var
-     str =  /*<<fake:13:12>>*/ caml_to_js_string(text);
-     /*<<fake:14:2>>*/  /*<<fake:14:10>>*/ var
-     ret =
-        /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split("").map
-        (function mapper(_char){
-           /*<<fake:15:6>>*/ return [0, 0, 0];
-          /*<<fake:14:30>>*/ });
-     /*<<fake:19:2>>*/  /*<<fake:19:2>>*/ ret.unshift(0);
-     /*<<fake:20:2>>*/ return ret;
-    /*<<fake:21:0>>*/ } |}]
+    function rehb_new_face(_fontName){
+      /*<<fake:7:2>>*/ return undefined;
+     /*<<fake:8:0>>*/ }
+    function rehb_shape(_face, text){
+      /*<<fake:13:10>>*/ var str =  /*<<fake:13:12>>*/ caml_to_js_string(text);
+      /*<<fake:14:10>>*/ var
+      ret =
+         /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split("").map
+         (function mapper(_char){
+            /*<<fake:15:6>>*/ return [0, 0, 0];
+           /*<<fake:14:30>>*/ });
+      /*<<fake:19:2>>*/  /*<<fake:19:2>>*/ ret.unshift(0);
+      /*<<fake:20:2>>*/ return ret;
+     /*<<fake:21:0>>*/ } |}]
 
 let%expect_test "rest parameters" =
   (* GH#1031 *)
@@ -359,24 +352,24 @@ let%expect_test "async/await" =
 
   [%expect
     {|
-    /*<<fake:2:9>>*/ async function compile(src){
-     /*<<fake:4:11>>*/  /*<<fake:4:31>>*/ const
-     glslangModule =
-       await
-        /*<<fake:4:39>>*/ import
-        ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
-     /*<<fake:7:11>>*/  /*<<fake:7:25>>*/ const
-     glslang = await  /*<<fake:7:33>>*/ glslangModule.default();
-     /*<<fake:8:11>>*/ return  /*<<fake:8:18>>*/ glslang.compileGLSL
-            (src, "compute");
-    /*<<fake:2:9>>*/ }
-    /*<<fake:12:4>>*/ async;
-    /*<<fake:13:4>>*/ function test(){ /*<<fake:13:22>>*/ }
-    /*<<fake:15:4>>*/ async function test(){ /*<<fake:15:4>>*/ }
-    /*<<fake:17:4>>*/ async;
-    /*<<fake:18:4>>*/ function* test(){ /*<<fake:18:4>>*/ }
-    /*<<fake:20:4>>*/ async function* test(){ /*<<fake:20:4>>*/ }
-    /*<<fake:22:4>>*/ 1 + async function* test(){ /*<<fake:22:8>>*/ }; |}]
+    async function compile(src){
+      /*<<fake:4:31>>*/ const
+      glslangModule =
+        await
+         /*<<fake:4:39>>*/ import
+         ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
+      /*<<fake:7:25>>*/ const
+      glslang = await  /*<<fake:7:33>>*/ glslangModule.default();
+      /*<<fake:8:11>>*/ return  /*<<fake:8:18>>*/ glslang.compileGLSL
+             (src, "compute");
+     /*<<fake:2:9>>*/ }
+     /*<<fake:12:4>>*/ async;
+    function test(){ /*<<fake:13:22>>*/ }
+    async function test(){ /*<<fake:15:4>>*/ }
+     /*<<fake:17:4>>*/ async;
+    function* test(){ /*<<fake:18:4>>*/ }
+    async function* test(){ /*<<fake:20:4>>*/ }
+     /*<<fake:22:4>>*/ 1 + async function* test(){ /*<<fake:22:8>>*/ }; |}]
 
 let%expect_test "get/set property" =
   (* GH#1017 *)
@@ -399,7 +392,7 @@ let%expect_test "get/set property" =
 
   [%expect
     {|
-    /*<<fake:2:5>>*/  /*<<fake:2:11>>*/ var
+    /*<<fake:2:11>>*/ var
     x =
       {get prop(){ /*<<fake:3:20>>*/ return 3; /*<<fake:3:7>>*/ },
        set prop(x){ /*<<fake:4:21>>*/ return x == 2; /*<<fake:4:7>>*/ },
@@ -437,19 +430,17 @@ let%expect_test "assignment pattern" =
 
   [%expect
     {|
-    /*<<fake:2:4>>*/ var x, y, rest;
-    /*<<fake:3:4>>*/  /*<<fake:3:14>>*/ var [x, y] = [1, 2];
-    /*<<fake:4:4>>*/  /*<<fake:4:22>>*/ var [x, y, ...rest] = [1, 2, ...o];
-    /*<<fake:6:4>>*/  /*<<fake:6:14>>*/ var {x, y} = {x: 1, y: 2};
-    /*<<fake:7:4>>*/  /*<<fake:7:22>>*/ var {x, y, ...rest} = {x: 1, y: 2, ...o};
-    /*<<fake:9:4>>*/ [x, y] = [1, 2];
-    /*<<fake:10:4>>*/ [x, y, ...rest] = [1, 2];
-    /*<<fake:12:4>>*/ ({x, y} = {x: 1, y: 2});
-    /*<<fake:13:4>>*/ ({x, y, ...rest} = {x: 1, y: 2});
-    /*<<fake:15:4>>*/ for([a, b, {c, d = e, [f]: [g, h, a, i, j]}] in 3)
-     /*<<fake:15:43>>*/ ;
-    /*<<fake:17:4>>*/ for([a, b, {c, d = e, [f]: [g, h, a, i, j]}] of 3)
-     /*<<fake:17:43>>*/ ; |}]
+    var x, y, rest;
+     /*<<fake:3:14>>*/ var [x, y] = [1, 2];
+     /*<<fake:4:22>>*/ var [x, y, ...rest] = [1, 2, ...o];
+     /*<<fake:6:14>>*/ var {x, y} = {x: 1, y: 2};
+     /*<<fake:7:22>>*/ var {x, y, ...rest} = {x: 1, y: 2, ...o};
+     /*<<fake:9:4>>*/ [x, y] = [1, 2];
+     /*<<fake:10:4>>*/ [x, y, ...rest] = [1, 2];
+     /*<<fake:12:4>>*/ ({x, y} = {x: 1, y: 2});
+     /*<<fake:13:4>>*/ ({x, y, ...rest} = {x: 1, y: 2});
+     /*<<fake:15:4>>*/ for([a, b, {c, d = e, [f]: [g, h, a, i, j]}] in 3) ;
+     /*<<fake:17:4>>*/ for([a, b, {c, d = e, [f]: [g, h, a, i, j]}] of 3) ; |}]
 
 let%expect_test "for loops" =
   (* GH#1017 *)
@@ -466,11 +457,9 @@ let%expect_test "for loops" =
 
   [%expect
     {|
-    /*<<fake:2:4>>*/ for(x in 3)  /*<<fake:2:15>>*/ ;
-    /*<<fake:3:4>>*/ for(x of 3)  /*<<fake:3:15>>*/ ;
-    /*<<fake:4:4>>*/ async function f(x){
-     /*<<fake:5:4>>*/ for await(x of 3)  /*<<fake:5:21>>*/ ;
-    /*<<fake:4:4>>*/ } |}]
+     /*<<fake:2:4>>*/ for(x in 3) ;
+     /*<<fake:3:4>>*/ for(x of 3) ;
+    async function f(x){ /*<<fake:5:4>>*/ for await(x of 3) ; /*<<fake:4:4>>*/ } |}]
 
 let%expect_test "string template" =
   (* GH#1017 *)
@@ -488,11 +477,10 @@ let%expect_test "string template" =
 
   [%expect
     {|
-    /*<<fake:2:4>>*/  /*<<fake:2:10>>*/ var s = `asdte`;
-    /*<<fake:3:4>>*/  /*<<fake:3:10>>*/ var s = `asd ${test} te`;
-    /*<<fake:5:4>>*/  /*<<fake:5:10>>*/ var
-    s =  /*<<fake:5:12>>*/ tag`asd ${test} te`;
-    /*<<fake:7:4>>*/  /*<<fake:7:10>>*/ var
+    /*<<fake:2:10>>*/ var s = `asdte`;
+    /*<<fake:3:10>>*/ var s = `asd ${test} te`;
+    /*<<fake:5:10>>*/ var s =  /*<<fake:5:12>>*/ tag`asd ${test} te`;
+    /*<<fake:7:10>>*/ var
     s = `asd ${ /*<<fake:7:20>>*/ f(`space ${test} space`, 32)} te`; |}]
 
 let%expect_test "from keyword" =
@@ -529,7 +517,7 @@ let%expect_test "new.target" =
  |};
 
   [%expect {|
-    /*<<fake:2:4>>*/  /*<<fake:2:10>>*/ var s = new.target; |}]
+    /*<<fake:2:10>>*/ var s = new.target; |}]
 
 let%expect_test "super" =
   (* GH#1017 *)
@@ -566,25 +554,25 @@ class x extends p {
 
   [%expect
     {|
-    /*<<fake:2:0>>*/ class x extends p {
-      constructor(){
-        /*<<fake:4:6>>*/  /*<<fake:4:6>>*/ super(a, b, c);
-       /*<<fake:3:4>>*/ }
-      foo(){
-        /*<<fake:8:6>>*/  /*<<fake:8:12>>*/ var s = super[d];
-        /*<<fake:9:6>>*/  /*<<fake:9:12>>*/ var s = super.d;
-       /*<<fake:6:4>>*/ }
-      static
-      bar(){
-        /*<<fake:14:6>>*/  /*<<fake:14:12>>*/ var s = super[d];
-        /*<<fake:15:6>>*/  /*<<fake:15:12>>*/ var s = super.d;
-       /*<<fake:12:11>>*/ }
-      x =  /*<<fake:17:5>>*/ 3;
-      static y =  /*<<fake:19:12>>*/ 5;
-      #z =  /*<<fake:21:6>>*/ 6;
-      static #t =  /*<<fake:23:13>>*/ 2;
-      static { /*<<fake:25:12>>*/  /*<<fake:25:18>>*/ var x = 3;}
-    } |}]
+    class x extends p {
+       constructor(){
+         /*<<fake:4:6>>*/  /*<<fake:4:6>>*/ super(a, b, c);
+        /*<<fake:3:4>>*/ }
+       foo(){
+         /*<<fake:8:12>>*/ var s = super[d];
+         /*<<fake:9:12>>*/ var s = super.d;
+        /*<<fake:6:4>>*/ }
+       static
+       bar(){
+         /*<<fake:14:12>>*/ var s = super[d];
+         /*<<fake:15:12>>*/ var s = super.d;
+        /*<<fake:12:11>>*/ }
+       x =  /*<<fake:17:5>>*/ 3;
+       static y =  /*<<fake:19:12>>*/ 5;
+       #z =  /*<<fake:21:6>>*/ 6;
+       static #t =  /*<<fake:23:13>>*/ 2;
+       static { /*<<fake:25:18>>*/ var x = 3;}
+     } |}]
 
 let%expect_test "ite" =
   print
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 704774fcd0..9655a9bdbd 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -83,6 +83,7 @@ let%expect_test _ =
        11:   (globalThis));
        12:
        13: //# sourceMappingURL=test.map
+      null -> 5:3
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
@@ -113,9 +114,7 @@ function x (a, b) {
       3:   return a + b;
       4: }
     $ cat "test.min.js"
-      1:  /*<<test.ml:2:0>>*/ function x(a, b){
-      2:   /*<<test.ml:3:2>>*/ return a + b;
-      3:  /*<<test.ml:4:0>>*/ }
+      1: function x(a, b){ /*<<test.ml:3:2>>*/ return a + b; /*<<test.ml:4:0>>*/ }
  |}]
 
 let%expect_test _ =
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index c33b70634c..5baee214fb 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -3,7 +3,7 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
    function erase_rel(param){
      /*<<?>>*/ if(typeof param === "number")
       /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0;
@@ -308,41 +308,43 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_false$0 = "false",
-    cst_true$0 = "true",
-    caml_atomic_cas = runtime.caml_atomic_cas,
-    caml_atomic_load = runtime.caml_atomic_load,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_float_of_string = runtime.caml_float_of_string,
-    caml_int64_float_of_bits = runtime.caml_int64_float_of_bits,
-    caml_int_of_string = runtime.caml_int_of_string,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-    caml_ml_channel_size = runtime.caml_ml_channel_size,
-    caml_ml_channel_size_64 = runtime.caml_ml_channel_size_64,
-    caml_ml_close_channel = runtime.caml_ml_close_channel,
-    caml_ml_flush = runtime.caml_ml_flush,
-    caml_ml_input = runtime.caml_ml_input,
-    caml_ml_input_char = runtime.caml_ml_input_char,
-    caml_ml_open_descriptor_in = runtime.caml_ml_open_descriptor_in,
-    caml_ml_open_descriptor_out = runtime.caml_ml_open_descriptor_out,
-    caml_ml_output = runtime.caml_ml_output,
-    caml_ml_output_bytes = runtime.caml_ml_output_bytes,
-    caml_ml_output_char = runtime.caml_ml_output_char,
-    caml_ml_set_binary_mode = runtime.caml_ml_set_binary_mode,
-    caml_ml_set_channel_name = runtime.caml_ml_set_channel_name,
-    caml_ml_string_length = runtime.caml_ml_string_length,
-    caml_string_concat = runtime.caml_string_concat,
-    caml_string_of_bytes = runtime.caml_string_of_bytes,
-    caml_sys_open = runtime.caml_sys_open,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_false$0 = "false",
+     /*<<?>>*/ cst_true$0 = "true",
+     /*<<?>>*/ caml_atomic_cas = runtime.caml_atomic_cas,
+     /*<<?>>*/ caml_atomic_load = runtime.caml_atomic_load,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_float_of_string = runtime.caml_float_of_string,
+     /*<<?>>*/ caml_int64_float_of_bits = runtime.caml_int64_float_of_bits,
+     /*<<?>>*/ caml_int_of_string = runtime.caml_int_of_string,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+     /*<<?>>*/ caml_ml_channel_size = runtime.caml_ml_channel_size,
+     /*<<?>>*/ caml_ml_channel_size_64 = runtime.caml_ml_channel_size_64,
+     /*<<?>>*/ caml_ml_close_channel = runtime.caml_ml_close_channel,
+     /*<<?>>*/ caml_ml_flush = runtime.caml_ml_flush,
+     /*<<?>>*/ caml_ml_input = runtime.caml_ml_input,
+     /*<<?>>*/ caml_ml_input_char = runtime.caml_ml_input_char,
+     /*<<?>>*/ caml_ml_open_descriptor_in = runtime.caml_ml_open_descriptor_in,
+     /*<<?>>*/ caml_ml_open_descriptor_out =
+      runtime.caml_ml_open_descriptor_out,
+     /*<<?>>*/ caml_ml_output = runtime.caml_ml_output,
+     /*<<?>>*/ caml_ml_output_bytes = runtime.caml_ml_output_bytes,
+     /*<<?>>*/ caml_ml_output_char = runtime.caml_ml_output_char,
+     /*<<?>>*/ caml_ml_set_binary_mode = runtime.caml_ml_set_binary_mode,
+     /*<<?>>*/ caml_ml_set_channel_name = runtime.caml_ml_set_channel_name,
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
+     /*<<?>>*/ caml_string_concat = runtime.caml_string_concat,
+     /*<<?>>*/ caml_string_of_bytes = runtime.caml_string_of_bytes,
+     /*<<?>>*/ caml_sys_open = runtime.caml_sys_open,
+     /*<<?>>*/ 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){
+   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]);
@@ -370,7 +372,7 @@
      /*<<stdlib.ml:30:20>>*/ throw  /*<<stdlib.ml:30:20>>*/ caml_maybe_attach_backtrace
            ([0, Invalid_argument, s], 1);
     /*<<stdlib.ml:30:45>>*/ }
-    /*<<stdlib.ml:32:0>>*/  /*<<stdlib.ml:32:0>>*/ var
+    /*<<stdlib.ml:32:0>>*/ var
     Exit = [248, "Stdlib.Exit", runtime.caml_fresh_oo_id(0)];
    function min(x, y){
      /*<<stdlib.ml:74:14>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
@@ -390,7 +392,7 @@
    function lnot(x){
      /*<<stdlib.ml:104:13>>*/ return x ^ -1;
     /*<<stdlib.ml:104:24>>*/ }
-    /*<<stdlib.ml:180:2>>*/ var
+   var
      /*<<stdlib.ml:180:2>>*/ infinity =
        /*<<stdlib.ml:180:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 32752)),
@@ -439,7 +441,7 @@
     /*<<stdlib.ml:266:19>>*/ }
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
-      /*<<stdlib.ml:272:6>>*/  /*<<stdlib.ml:272:6>>*/ var
+      /*<<stdlib.ml:272:6>>*/ var
       _w_ = [0,  /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
       /*<<stdlib.ml:272:6>>*/ return _w_;
     }
@@ -450,17 +452,17 @@
     }
     /*<<stdlib.ml:273:24>>*/ }
    function valid_float_lexem(s1){
-     /*<<stdlib.ml:278:2>>*/ var l = caml_ml_string_length(s1), i = 0;
+    var l = caml_ml_string_length(s1), i = 0;
      /*<<stdlib.ml:280:4>>*/ for(;;){
      if(l <= i) return s1 + ".";
-      /*<<stdlib.ml:281:10>>*/  /*<<stdlib.ml:281:10>>*/ var
+      /*<<stdlib.ml:281:10>>*/ var
       match =  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get(s1, i);
      a:
      {
       if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
        /*<<stdlib.ml:279:2>>*/ return s1;
      }
-      /*<<stdlib.ml:282:26>>*/  /*<<stdlib.ml:282:26>>*/ var i$0 = i + 1 | 0;
+      /*<<stdlib.ml:282:26>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<stdlib.ml:285:8>>*/ }
@@ -470,7 +472,7 @@
     /*<<stdlib.ml:287:66>>*/ }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
-      /*<<stdlib.ml:293:6>>*/  /*<<stdlib.ml:293:6>>*/ var
+      /*<<stdlib.ml:293:6>>*/ var
       _t_ = [0,  /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
       /*<<stdlib.ml:293:6>>*/ return _t_;
     }
@@ -486,7 +488,7 @@
     if(! _q_)  /*<<stdlib.ml:301:16>>*/ return [0, h1, l2];
     var match = _q_[2], h2 = _q_[1];
     if(! match)  /*<<stdlib.ml:302:22>>*/ return [0, h1, [0, h2, l2]];
-     /*<<stdlib.ml:303:40>>*/ var
+    var
      tl = match[2],
      h3 = match[1],
       /*<<stdlib.ml:303:40>>*/ block = [0, h3, 24029],
@@ -499,7 +501,7 @@
       if(_r_){
        var match$0 = _r_[2], h2$0 = _r_[1];
        if(match$0){
-         /*<<stdlib.ml:303:40>>*/ var
+        var
          tl$0 = match$0[2],
          h3$0 = match$0[1],
           /*<<stdlib.ml:303:40>>*/ dst$0 = [0, h3$0, 24029];
@@ -519,7 +521,7 @@
       /*<<stdlib.ml:303:28>>*/ return [0, h1, [0, h2, block]];
     }
     /*<<stdlib.ml:303:55>>*/ }
-    /*<<stdlib.ml:314:12>>*/ var
+   var
      /*<<stdlib.ml:314:12>>*/ stdin =
        /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in(0),
      /*<<stdlib.ml:315:13>>*/ stdout =
@@ -535,7 +537,7 @@
     cst_input = "input",
     cst_really_input = "really_input";
    function open_out_gen(mode, perm, name){
-     /*<<stdlib.ml:331:2>>*/  /*<<stdlib.ml:331:10>>*/ var
+     /*<<stdlib.ml:331:10>>*/ var
      c =
         /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
         ( /*<<stdlib.ml:331:29>>*/ caml_sys_open(name, mode, perm));
@@ -550,7 +552,7 @@
      /*<<stdlib.ml:339:2>>*/ return open_out_gen(_d_, 438, name);
     /*<<stdlib.ml:339:76>>*/ }
    function flush_all(param){
-     /*<<stdlib.ml:347:2>>*/ var
+    var
      param$0 =  /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list(0);
      /*<<stdlib.ml:347:17>>*/ for(;;){
      if(! param$0)  /*<<stdlib.ml:348:12>>*/ return 0;
@@ -602,14 +604,14 @@
     }
     catch(_n_){}
      /*<<stdlib.ml:395:2>>*/ try{
-      /*<<stdlib.ml:395:7>>*/  /*<<stdlib.ml:395:7>>*/ var
+      /*<<stdlib.ml:395:7>>*/ var
       _l_ =  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel(oc);
       /*<<stdlib.ml:395:7>>*/ return _l_;
     }
     catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0;}
     /*<<stdlib.ml:395:41>>*/ }
    function open_in_gen(mode, perm, name){
-     /*<<stdlib.ml:405:2>>*/  /*<<stdlib.ml:405:10>>*/ var
+     /*<<stdlib.ml:405:10>>*/ var
      c =
         /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
         ( /*<<stdlib.ml:405:28>>*/ caml_sys_open(name, mode, perm));
@@ -631,10 +633,10 @@
      /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input);
     /*<<stdlib.ml:423:32>>*/ }
    function unsafe_really_input(ic, s, ofs, len){
-     /*<<stdlib.ml:426:2>>*/ var ofs$0 = ofs, len$0 = len;
+    var ofs$0 = ofs, len$0 = len;
      /*<<stdlib.ml:426:2>>*/ for(;;){
      if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
-      /*<<stdlib.ml:427:12>>*/  /*<<stdlib.ml:427:12>>*/ var
+      /*<<stdlib.ml:427:12>>*/ var
       r =  /*<<stdlib.ml:427:12>>*/ caml_ml_input(ic, s, ofs$0, len$0);
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
        /*<<stdlib.ml:429:9>>*/ throw  /*<<stdlib.ml:429:9>>*/ caml_maybe_attach_backtrace
@@ -651,17 +653,17 @@
      /*<<stdlib.ml:435:7>>*/ return invalid_arg(cst_really_input);
     /*<<stdlib.ml:436:39>>*/ }
    function really_input_string(ic, len){
-     /*<<stdlib.ml:439:2>>*/  /*<<stdlib.ml:439:10>>*/ var
+     /*<<stdlib.ml:439:10>>*/ var
      s =  /*<<stdlib.ml:439:10>>*/ caml_create_bytes(len);
      /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
     return caml_string_of_bytes(s);
     /*<<stdlib.ml:441:26>>*/ }
    function input_line(chan){
-     /*<<stdlib.ml:446:2>>*/ function build_result(buf, pos, param){
+    function build_result(buf, pos, param){
      var pos$0 = pos, param$0 = param;
      for(;;){
       if(! param$0)  /*<<stdlib.ml:447:10>>*/ return buf;
-       /*<<stdlib.ml:449:6>>*/ var
+      var
        tl = param$0[2],
        hd = param$0[1],
         /*<<stdlib.ml:449:6>>*/ len =
@@ -675,7 +677,7 @@
     }
     var accu = 0, len = 0;
      /*<<stdlib.ml:453:4>>*/ for(;;){
-      /*<<stdlib.ml:453:12>>*/  /*<<stdlib.ml:453:12>>*/ var
+      /*<<stdlib.ml:453:12>>*/ var
       n =  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line(chan);
       /*<<stdlib.ml:454:4>>*/ if(0 === n){
       if(! accu)
@@ -688,18 +690,18 @@
      }
      else{
       if(0 >= n){
-        /*<<stdlib.ml:467:16>>*/  /*<<stdlib.ml:467:16>>*/ var
+        /*<<stdlib.ml:467:16>>*/ var
         beg =  /*<<stdlib.ml:467:16>>*/ caml_create_bytes(- n | 0);
         /*<<stdlib.ml:468:12>>*/  /*<<stdlib.ml:468:12>>*/ caml_ml_input
         (chan, beg, 0, - n | 0);
-        /*<<stdlib.ml:469:11>>*/ var
+       var
         len$1 = len - n | 0,
          /*<<stdlib.ml:469:11>>*/ accu$0 = [0, beg, accu];
        accu = accu$0;
        len = len$1;
        continue;
       }
-       /*<<stdlib.ml:459:16>>*/  /*<<stdlib.ml:459:16>>*/ var
+       /*<<stdlib.ml:459:16>>*/ var
        res =  /*<<stdlib.ml:459:16>>*/ caml_create_bytes(n - 1 | 0);
        /*<<stdlib.ml:460:13>>*/  /*<<stdlib.ml:460:13>>*/ caml_ml_input
        (chan, res, 0, n - 1 | 0);
@@ -722,7 +724,7 @@
     /*<<stdlib.ml:471:39>>*/ }
    function close_in_noerr(ic){
      /*<<stdlib.ml:480:24>>*/ try{
-      /*<<stdlib.ml:480:29>>*/  /*<<stdlib.ml:480:29>>*/ var
+      /*<<stdlib.ml:480:29>>*/ var
       _i_ =  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel(ic);
       /*<<stdlib.ml:480:29>>*/ return _i_;
     }
@@ -820,16 +822,15 @@
              (CamlinternalFormatBasics[3], fmt1, fmt2),
             str1 + s2];
    }
-    /*<<stdlib.ml:559:20>>*/  /*<<stdlib.ml:559:20>>*/ var
-    exit_function = [0, flush_all];
+    /*<<stdlib.ml:559:20>>*/ var exit_function = [0, flush_all];
    function at_exit(f){
      /*<<stdlib.ml:563:2>>*/ for(;;){
-      /*<<stdlib.ml:563:21>>*/ var
+     var
        /*<<stdlib.ml:563:21>>*/ f_yet_to_run = [0, 1],
        /*<<stdlib.ml:564:2>>*/ old_exit =
          /*<<stdlib.ml:564:2>>*/ caml_atomic_load(exit_function);
      let f_yet_to_run$0 = f_yet_to_run, old_exit$0 = old_exit;
-      /*<<stdlib.ml:570:2>>*/ var
+     var
       new_exit =
         function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
@@ -842,7 +843,7 @@
      if(! _g_)  /*<<stdlib.ml:570:2>>*/ return _g_;
     }
     /*<<stdlib.ml:570:31>>*/ }
-    /*<<stdlib.ml:572:30>>*/  /*<<stdlib.ml:572:30>>*/ var
+    /*<<stdlib.ml:572:30>>*/ var
     do_domain_local_at_exit =
       [0,
        function(param){
@@ -982,13 +983,13 @@
 //# unitInfo: Provides: Stdlib__Either
 (function(globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
-    /*<<?>>*/ function caml_call1(f, a0){
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   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){
+   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]);
@@ -1109,10 +1110,11 @@
 (function
   (globalThis){
    "use strict";
-    /*<<sys.ml.in:36:22>>*/ var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_wrap_exception = runtime.caml_wrap_exception,
+   var
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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],
@@ -1129,7 +1131,7 @@
     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
+      /*<<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_;
     }
@@ -1139,16 +1141,16 @@
      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];
+    /*<<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:113: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
+   var
      /*<<sys.ml.in:155:21>>*/ Immediate64 = [0, Make],
     Stdlib_Sys =
       [0,
@@ -1214,11 +1216,11 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_Obj_extension_constructor$1 = "Obj.extension_constructor",
-    caml_check_bound = runtime.caml_check_bound,
-    caml_obj_tag = runtime.caml_obj_tag;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_Obj_extension_constructor$1 = "Obj.extension_constructor",
+     /*<<?>>*/ caml_check_bound = runtime.caml_check_bound,
+     /*<<?>>*/ 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]);
@@ -1241,7 +1243,7 @@
     cst_Obj_extension_constructor = cst_Obj_extension_constructor$1,
     cst_Obj_extension_constructor$0 = cst_Obj_extension_constructor$1;
    function of_val(x){
-     /*<<obj.ml:75:4>>*/ a:
+    a:
     {
       /*<<obj.ml:77:9>>*/ if
       (is_block(x)
@@ -1268,7 +1270,7 @@
    function id(slot){
      /*<<obj.ml:91:5>>*/ return slot[2];
     /*<<obj.ml:91:30>>*/ }
-    /*<<obj.ml:72:0>>*/ var
+   var
      /*<<obj.ml:72:0>>*/ Extension_constructor = [0, of_val, name, id],
     max_ephe_length = Stdlib_Sys[13] - 2 | 0,
     cst_Obj_Ephemeron_create = "Obj.Ephemeron.create",
@@ -1279,9 +1281,7 @@
     cst_Obj_Ephemeron_check_key = "Obj.Ephemeron.check_key",
     cst_Obj_Ephemeron_blit_key = "Obj.Ephemeron.blit_key";
    function create(l){
-     /*<<obj.ml:105:4>>*/ var
-     _f_ = 0 <= l ? 1 : 0,
-     _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
+    var _f_ = 0 <= l ? 1 : 0, _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
     if(1 - _g_)
       /*<<obj.ml:106:6>>*/  /*<<obj.ml:106:6>>*/ caml_call1
       (Stdlib[1], cst_Obj_Ephemeron_create);
@@ -1292,7 +1292,7 @@
      /*<<obj.ml:109:17>>*/ return x.length - 3 | 0;
     /*<<obj.ml:109:49>>*/ }
    function raise_if_invalid_offset(e, o, msg){
-     /*<<obj.ml:112:4>>*/ var
+    var
      _c_ = 0 <= o ? 1 : 0,
      _d_ = _c_ ? o < length(e) ? 1 : 0 : _c_,
      _e_ = 1 - _d_;
@@ -1397,8 +1397,8 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
-    /*<<?>>*/ function caml_call1(f, a0){
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
@@ -1409,12 +1409,12 @@
     cst_Id = "Id",
     _a_ = [0, 0];
    function make(param){
-     /*<<type.ml:32:4>>*/  /*<<type.ml:32:43>>*/ var
+     /*<<type.ml:32:43>>*/ var
      Id = [248, cst_Id, runtime.caml_fresh_oo_id(0)];
      /*<<type.ml:32:12>>*/ return [0, Id];
     /*<<type.ml:32:57>>*/ }
    function uid(A){
-     /*<<type.ml:35:4>>*/  /*<<type.ml:35:33>>*/ var
+     /*<<type.ml:35:33>>*/ var
      _b_ =  /*<<type.ml:35:33>>*/ caml_call1(Stdlib_Obj[22][1], A[1]);
      /*<<type.ml:35:33>>*/ return  /*<<type.ml:35:33>>*/ caml_call1
             (Stdlib_Obj[22][3], _b_);
@@ -1422,7 +1422,7 @@
    function provably_equal(A, B){
      /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0;
     /*<<type.ml:40:50>>*/ }
-    /*<<type.ml:22:12>>*/ var
+   var
      /*<<type.ml:22:12>>*/ Id = [0, make, uid, provably_equal],
     Stdlib_Type = [0, Id];
    runtime.caml_register_global(3, Stdlib_Type, "Stdlib__Type");
@@ -1434,9 +1434,9 @@
 (function(globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_atomic_exchange = runtime.caml_atomic_exchange,
-    caml_atomic_fetch_add = runtime.caml_atomic_fetch_add;
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_atomic_exchange = runtime.caml_atomic_exchange,
+     /*<<?>>*/ caml_atomic_fetch_add = runtime.caml_atomic_fetch_add;
    function set(r, x){
      /*<<atomic.ml:25:14>>*/ caml_atomic_exchange(r, x);
     return 0;
@@ -1472,16 +1472,18 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_lazy_update_to_forward = runtime.caml_lazy_update_to_forward,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_lazy_update_to_forward =
+      runtime.caml_lazy_update_to_forward,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ 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]);
    }
-    /*<<camlinternalLazy.ml:20:0>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
      /*<<camlinternalLazy.ml:20:0>>*/ Undefined =
@@ -1495,21 +1497,19 @@
       /*<<camlinternalLazy.ml:75:9>>*/ throw  /*<<camlinternalLazy.ml:75:9>>*/ caml_maybe_attach_backtrace
             (Undefined, 1);
     if(only_val){
-      /*<<camlinternalLazy.ml:61:25>>*/  /*<<camlinternalLazy.ml:61:25>>*/ var
-      closure$0 = blk[1];
+      /*<<camlinternalLazy.ml:61:25>>*/ var closure$0 = blk[1];
       /*<<camlinternalLazy.ml:62:2>>*/ blk[1] = 0;
-      /*<<camlinternalLazy.ml:63:15>>*/  /*<<camlinternalLazy.ml:63:15>>*/ var
+      /*<<camlinternalLazy.ml:63:15>>*/ var
       result$0 =  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1(closure$0, 0);
       /*<<camlinternalLazy.ml:64:2>>*/ blk[1] = result$0;
       /*<<camlinternalLazy.ml:65:2>>*/  /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward
       (blk);
       /*<<camlinternalLazy.ml:65:2>>*/ return result$0;
     }
-     /*<<camlinternalLazy.ml:46:25>>*/  /*<<camlinternalLazy.ml:46:25>>*/ var
-     closure = blk[1];
+     /*<<camlinternalLazy.ml:46:25>>*/ var closure = blk[1];
      /*<<camlinternalLazy.ml:47:2>>*/ blk[1] = 0;
      /*<<camlinternalLazy.ml:47:2>>*/ try{
-      /*<<camlinternalLazy.ml:49:17>>*/  /*<<camlinternalLazy.ml:49:17>>*/ var
+      /*<<camlinternalLazy.ml:49:17>>*/ var
       result =  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1(closure, 0);
       /*<<camlinternalLazy.ml:50:4>>*/ blk[1] = result;
       /*<<camlinternalLazy.ml:51:4>>*/  /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward
@@ -1533,7 +1533,7 @@
      /*<<camlinternalLazy.ml:78:27>>*/ return force_gen_lazy_block(0, blk);
     /*<<camlinternalLazy.ml:78:67>>*/ }
    function force_gen(only_val, lzv){
-     /*<<camlinternalLazy.ml:93:2>>*/  /*<<camlinternalLazy.ml:99:10>>*/ var
+     /*<<camlinternalLazy.ml:99:10>>*/ var
      t =  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag(lzv);
     if(t === Stdlib_Obj[12])
       /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1];
@@ -1553,13 +1553,15 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime, caml_obj_tag = runtime.caml_obj_tag;
-    /*<<?>>*/ function caml_call1(f, a0){
+   var
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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]);
@@ -1574,14 +1576,13 @@
             (CamlinternalLazy[3], 1, l);
     /*<<lazy.ml:56:61>>*/ }
    function from_fun(f){
-     /*<<lazy.ml:59:2>>*/  /*<<lazy.ml:59:10>>*/ var
+     /*<<lazy.ml:59:10>>*/ var
      x =  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block(Stdlib_Obj[8], 1);
      /*<<lazy.ml:60:2>>*/ x[1] = f;
      /*<<lazy.ml:60:2>>*/ return x;
     /*<<lazy.ml:61:22>>*/ }
    function from_val(v){
-     /*<<lazy.ml:64:2>>*/  /*<<lazy.ml:64:10>>*/ var
-     t =  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
+     /*<<lazy.ml:64:10>>*/ var t =  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
     if
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
@@ -1590,7 +1591,7 @@
             (v);
     /*<<lazy.ml:70:5>>*/ }
    function is_val(l){
-     /*<<lazy.ml:72:26>>*/  /*<<lazy.ml:72:26>>*/ var _i_ = Stdlib_Obj[8];
+     /*<<lazy.ml:72:26>>*/ var _i_ = Stdlib_Obj[8];
      /*<<lazy.ml:72:26>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag(l)
             !== _i_
             ? 1
@@ -1651,19 +1652,20 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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){
+   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]);
@@ -1688,8 +1690,7 @@
      /*<<seq.ml:28:21>>*/ return [0, x, next];
     /*<<seq.ml:28:35>>*/ }
    function append(seq1, seq2, param){
-     /*<<seq.ml:31:2>>*/  /*<<seq.ml:31:8>>*/ var
-     match =  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
+     /*<<seq.ml:31:8>>*/ var match =  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
     if(! match)
       /*<<seq.ml:32:11>>*/ return  /*<<seq.ml:32:11>>*/ caml_call1(seq2, 0);
     var next = match[2], x = match[1];
@@ -1698,7 +1699,7 @@
             function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}];
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
-     /*<<seq.ml:35:23>>*/  /*<<seq.ml:35:29>>*/ var
+     /*<<seq.ml:35:29>>*/ var
      match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
     if(! match)  /*<<seq.ml:36:11>>*/ return 0;
     var next = match[2], x = match[1];
@@ -1707,12 +1708,12 @@
             function(_at_){ /*<<?>>*/ return map(f, next, _at_);}];
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
-     /*<<seq.ml:39:30>>*/ var seq$0 = seq;
+    var seq$0 = seq;
      /*<<seq.ml:39:30>>*/ for(;;){
-      /*<<seq.ml:39:36>>*/  /*<<seq.ml:39:36>>*/ var
+      /*<<seq.ml:39:36>>*/ var
       match =  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:40:11>>*/ return 0;
-      /*<<seq.ml:42:12>>*/ var
+     var
       next = match[2],
       x = match[1],
        /*<<seq.ml:42:12>>*/ match$0 =  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
@@ -1726,9 +1727,9 @@
     }
     /*<<seq.ml:44:47>>*/ }
    function filter(f, seq, param){
-     /*<<seq.ml:46:26>>*/ var seq$0 = seq;
+    var seq$0 = seq;
      /*<<seq.ml:46:26>>*/ for(;;){
-      /*<<seq.ml:46:32>>*/  /*<<seq.ml:46:32>>*/ var
+      /*<<seq.ml:46:32>>*/ var
       match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:47:11>>*/ return 0;
      var next = match[2], x = match[1];
@@ -1740,7 +1741,7 @@
     }
     /*<<seq.ml:51:27>>*/ }
    function concat(seq, param){
-     /*<<seq.ml:53:24>>*/  /*<<seq.ml:53:30>>*/ var
+     /*<<seq.ml:53:30>>*/ var
      match =  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
     if(! match)  /*<<seq.ml:54:11>>*/ return 0;
     var next = match[2], x = match[1];
@@ -1748,7 +1749,7 @@
             (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0);
     /*<<seq.ml:56:30>>*/ }
    function flat_map(f, seq, param){
-     /*<<seq.ml:58:28>>*/  /*<<seq.ml:58:34>>*/ var
+     /*<<seq.ml:58:34>>*/ var
      match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
     if(! match)  /*<<seq.ml:59:11>>*/ return 0;
     var next = match[2], x = match[1];
@@ -1758,12 +1759,12 @@
              0);
     /*<<seq.ml:61:37>>*/ }
    function fold_left(f, acc, seq){
-     /*<<seq.ml:66:2>>*/ var acc$0 = acc, seq$0 = seq;
+    var acc$0 = acc, seq$0 = seq;
      /*<<seq.ml:66:2>>*/ for(;;){
-      /*<<seq.ml:66:8>>*/  /*<<seq.ml:66:8>>*/ var
+      /*<<seq.ml:66:8>>*/ var
       match =  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
-      /*<<seq.ml:69:18>>*/ var
+     var
       next = match[2],
       x = match[1],
        /*<<seq.ml:69:18>>*/ acc$1 =
@@ -1773,9 +1774,9 @@
     }
     /*<<seq.ml:70:28>>*/ }
    function iter(f, seq){
-     /*<<seq.ml:73:2>>*/ var seq$0 = seq;
+    var seq$0 = seq;
      /*<<seq.ml:73:2>>*/ for(;;){
-      /*<<seq.ml:73:8>>*/  /*<<seq.ml:73:8>>*/ var
+      /*<<seq.ml:73:8>>*/ var
       match =  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:74:13>>*/ return 0;
      var next = match[2], x = match[1];
@@ -1784,8 +1785,7 @@
     }
     /*<<seq.ml:77:19>>*/ }
    function unfold(f, u, param){
-     /*<<seq.ml:80:2>>*/  /*<<seq.ml:80:8>>*/ var
-     match =  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
+     /*<<seq.ml:80:8>>*/ var match =  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
     if(! match)  /*<<seq.ml:81:12>>*/ return 0;
     var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
      /*<<seq.ml:82:20>>*/ return [0,
@@ -1796,29 +1796,26 @@
      /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0) ? 0 : 1;
     /*<<seq.ml:89:11>>*/ }
    function uncons(xs){
-     /*<<seq.ml:92:2>>*/  /*<<seq.ml:92:8>>*/ var
-     match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:92:8>>*/ var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:96:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
     /*<<seq.ml:96:10>>*/ }
    function length(xs$1){
-     /*<<seq.ml:108:2>>*/ var accu = 0, xs = xs$1;
+    var accu = 0, xs = xs$1;
      /*<<seq.ml:101:2>>*/ for(;;){
-      /*<<seq.ml:101:8>>*/  /*<<seq.ml:101:8>>*/ var
+      /*<<seq.ml:101:8>>*/ var
       match =  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:103:6>>*/ return accu;
-      /*<<seq.ml:105:6>>*/ var
-      xs$0 = match[2],
-       /*<<seq.ml:105:6>>*/ accu$0 = accu + 1 | 0;
+     var xs$0 = match[2],  /*<<seq.ml:105:6>>*/ accu$0 = accu + 1 | 0;
      accu = accu$0;
      xs = xs$0;
     }
     /*<<seq.ml:108:17>>*/ }
    function iteri(f, xs$1){
-     /*<<seq.ml:119:2>>*/ var i = 0, xs = xs$1;
+    var i = 0, xs = xs$1;
      /*<<seq.ml:111:2>>*/ for(;;){
-      /*<<seq.ml:111:8>>*/  /*<<seq.ml:111:8>>*/ var
+      /*<<seq.ml:111:8>>*/ var
       match =  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:113:6>>*/ return 0;
      var xs$0 = match[2], x = match[1];
@@ -1829,12 +1826,12 @@
     }
     /*<<seq.ml:119:18>>*/ }
    function fold_lefti(f, accu$1, xs$1){
-     /*<<seq.ml:130:2>>*/ var accu = accu$1, i = 0, xs = xs$1;
+    var accu = accu$1, i = 0, xs = xs$1;
      /*<<seq.ml:122:2>>*/ for(;;){
-      /*<<seq.ml:122:8>>*/  /*<<seq.ml:122:8>>*/ var
+      /*<<seq.ml:122:8>>*/ var
       match =  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:124:6>>*/ return accu;
-      /*<<seq.ml:126:17>>*/ var
+     var
       xs$0 = match[2],
       x = match[1],
        /*<<seq.ml:126:17>>*/ accu$0 =
@@ -1846,12 +1843,12 @@
     }
     /*<<seq.ml:130:28>>*/ }
    function for_all(p, xs){
-     /*<<seq.ml:133:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:133:2>>*/ for(;;){
-      /*<<seq.ml:133:8>>*/  /*<<seq.ml:133:8>>*/ var
+      /*<<seq.ml:133:8>>*/ var
       match =  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:135:6>>*/ return 1;
-      /*<<seq.ml:137:6>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:137:6>>*/ _an_ =  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
@@ -1860,12 +1857,12 @@
     }
     /*<<seq.ml:137:25>>*/ }
    function exists(p, xs){
-     /*<<seq.ml:140:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:140:2>>*/ for(;;){
-      /*<<seq.ml:140:8>>*/  /*<<seq.ml:140:8>>*/ var
+      /*<<seq.ml:140:8>>*/ var
       match =  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:142:6>>*/ return 0;
-      /*<<seq.ml:144:6>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:144:6>>*/ _am_ =  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
@@ -1874,9 +1871,9 @@
     }
     /*<<seq.ml:144:24>>*/ }
    function find(p, xs){
-     /*<<seq.ml:147:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:147:2>>*/ for(;;){
-      /*<<seq.ml:147:8>>*/  /*<<seq.ml:147:8>>*/ var
+      /*<<seq.ml:147:8>>*/ var
       match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:149:6>>*/ return 0;
      var xs$1 = match[2], x = match[1];
@@ -1886,9 +1883,9 @@
     }
     /*<<seq.ml:151:39>>*/ }
    function find_index(p, xs){
-     /*<<seq.ml:154:2>>*/ var i = 0, xs$0 = xs;
+    var i = 0, xs$0 = xs;
      /*<<seq.ml:154:21>>*/ for(;;){
-      /*<<seq.ml:154:27>>*/  /*<<seq.ml:154:27>>*/ var
+      /*<<seq.ml:154:27>>*/ var
       match =  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:156:8>>*/ return 0;
      var xs$1 = match[2], x = match[1];
@@ -1900,12 +1897,12 @@
     }
     /*<<seq.ml:159:10>>*/ }
    function find_map(f, xs){
-     /*<<seq.ml:162:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:162:2>>*/ for(;;){
-      /*<<seq.ml:162:8>>*/  /*<<seq.ml:162:8>>*/ var
+      /*<<seq.ml:162:8>>*/ var
       match =  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:164:6>>*/ return 0;
-      /*<<seq.ml:166:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:166:12>>*/ result =  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
@@ -1914,12 +1911,12 @@
     }
     /*<<seq.ml:170:16>>*/ }
    function find_mapi(f, xs){
-     /*<<seq.ml:173:2>>*/ var i = 0, xs$0 = xs;
+    var i = 0, xs$0 = xs;
      /*<<seq.ml:173:21>>*/ for(;;){
-      /*<<seq.ml:173:27>>*/  /*<<seq.ml:173:27>>*/ var
+      /*<<seq.ml:173:27>>*/ var
       match =  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:175:8>>*/ return 0;
-      /*<<seq.ml:177:14>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:177:14>>*/ result =
@@ -1931,12 +1928,12 @@
     }
     /*<<seq.ml:182:10>>*/ }
    function iter2(f, xs, ys){
-     /*<<seq.ml:192:2>>*/ var xs$0 = xs, ys$0 = ys;
+    var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:192:2>>*/ for(;;){
-      /*<<seq.ml:192:8>>*/  /*<<seq.ml:192:8>>*/ var
+      /*<<seq.ml:192:8>>*/ var
       match =  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:194:6>>*/ return 0;
-      /*<<seq.ml:196:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:196:12>>*/ match$0 =
@@ -1949,18 +1946,18 @@
     }
     /*<<seq.ml:201:23>>*/ }
    function fold_left2(f, accu, xs, ys){
-     /*<<seq.ml:204:2>>*/ var accu$0 = accu, xs$0 = xs, ys$0 = ys;
+    var accu$0 = accu, xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:204:2>>*/ for(;;){
-      /*<<seq.ml:204:8>>*/  /*<<seq.ml:204:8>>*/ var
+      /*<<seq.ml:204:8>>*/ var
       match =  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
-      /*<<seq.ml:208:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:208:12>>*/ match$0 =
          /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:210:10>>*/ return accu$0;
-      /*<<seq.ml:212:21>>*/ var
+     var
       ys$1 = match$0[2],
       y = match$0[1],
        /*<<seq.ml:212:21>>*/ accu$1 =
@@ -1971,18 +1968,18 @@
     }
     /*<<seq.ml:213:33>>*/ }
    function for_all2(f, xs, ys){
-     /*<<seq.ml:216:2>>*/ var xs$0 = xs, ys$0 = ys;
+    var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:216:2>>*/ for(;;){
-      /*<<seq.ml:216:8>>*/  /*<<seq.ml:216:8>>*/ var
+      /*<<seq.ml:216:8>>*/ var
       match =  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:218:6>>*/ return 1;
-      /*<<seq.ml:220:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:220:12>>*/ match$0 =
          /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
-      /*<<seq.ml:224:10>>*/ var
+     var
       ys$1 = match$0[2],
       y = match$0[1],
        /*<<seq.ml:224:10>>*/ _al_ =  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
@@ -1992,18 +1989,18 @@
     }
     /*<<seq.ml:224:35>>*/ }
    function exists2(f, xs, ys){
-     /*<<seq.ml:227:2>>*/ var xs$0 = xs, ys$0 = ys;
+    var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:227:2>>*/ for(;;){
-      /*<<seq.ml:227:8>>*/  /*<<seq.ml:227:8>>*/ var
+      /*<<seq.ml:227:8>>*/ var
       match =  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:229:6>>*/ return 0;
-      /*<<seq.ml:231:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:231:12>>*/ match$0 =
          /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
-      /*<<seq.ml:235:10>>*/ var
+     var
       ys$1 = match$0[2],
       y = match$0[1],
        /*<<seq.ml:235:10>>*/ _ak_ =  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
@@ -2013,15 +2010,15 @@
     }
     /*<<seq.ml:235:34>>*/ }
    function equal(eq, xs, ys){
-     /*<<seq.ml:238:2>>*/ var xs$0 = xs, ys$0 = ys;
+    var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:238:2>>*/ for(;;){
-      /*<<seq.ml:238:8>>*/ var
+     var
        /*<<seq.ml:238:8>>*/ match =  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
        /*<<seq.ml:238:14>>*/ match$0 =
          /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
      if(match){
       if(match$0){
-        /*<<seq.ml:242:6>>*/ var
+       var
         ys$1 = match$0[2],
         y = match$0[1],
         xs$1 = match[2],
@@ -2039,16 +2036,16 @@
     }
     /*<<seq.ml:245:11>>*/ }
    function compare(cmp, xs, ys){
-     /*<<seq.ml:248:2>>*/ var xs$0 = xs, ys$0 = ys;
+    var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:248:2>>*/ for(;;){
-      /*<<seq.ml:248:8>>*/ var
+     var
        /*<<seq.ml:248:8>>*/ match =  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
        /*<<seq.ml:248:14>>*/ match$0 =
          /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
      if(! match) return match$0 ? -1 : 0;
      var xs$1 = match[2], x = match[1];
      if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
-      /*<<seq.ml:252:14>>*/ var
+     var
       ys$1 = match$0[2],
       y = match$0[1],
        /*<<seq.ml:252:14>>*/ c =  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
@@ -2089,34 +2086,27 @@
              0);
     /*<<seq.ml:287:34>>*/ }
    function cycle(xs, param){
-     /*<<seq.ml:295:2>>*/  /*<<seq.ml:295:8>>*/ var
-     match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:295:8>>*/ var match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:297:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:299:26>>*/ function _$_(_ab_){
-      /*<<?>>*/ return cycle_nonempty(xs, _ab_);
-    }
+    function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
      /*<<seq.ml:299:6>>*/ return [0,
             x,
             function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}];
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
-     /*<<seq.ml:306:2>>*/  /*<<seq.ml:306:10>>*/ var
-     y =  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
+     /*<<seq.ml:306:10>>*/ var y =  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
      /*<<seq.ml:307:2>>*/ return [0,
             y,
             function(___){ /*<<?>>*/ return iterate1(f, y, ___);}];
     /*<<seq.ml:307:24>>*/ }
    function iterate(f, x){
-     /*<<seq.ml:319:9>>*/ function next(_Z_){
-      /*<<?>>*/ return iterate1(f, x, _Z_);
-    }
+    function next(_Z_){ /*<<?>>*/ return iterate1(f, x, _Z_);}
      /*<<seq.ml:319:9>>*/ return function(_Y_){
       /*<<seq.ml:28:21>>*/ return [0, x, next];};
     /*<<seq.ml:319:23>>*/ }
    function mapi_aux(f, i, xs, param){
-     /*<<seq.ml:324:2>>*/  /*<<seq.ml:324:8>>*/ var
-     match =  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:324:8>>*/ var match =  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:326:6>>*/ return 0;
     var xs$0 = match[2], x = match[1],  /*<<seq.ml:328:6>>*/ _W_ = i + 1 | 0;
      /*<<seq.ml:328:6>>*/ return [0,
@@ -2124,15 +2114,14 @@
             function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}];
     /*<<seq.ml:328:39>>*/ }
    function mapi(f, xs){
-     /*<<seq.ml:331:2>>*/ var _U_ = 0;
+    var _U_ = 0;
      /*<<seq.ml:331:2>>*/ return function(_V_){
       /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);};
     /*<<seq.ml:331:17>>*/ }
    function tail_scan(f, s, xs, param){
-     /*<<seq.ml:340:2>>*/  /*<<seq.ml:340:8>>*/ var
-     match =  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:340:8>>*/ var match =  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:342:6>>*/ return 0;
-     /*<<seq.ml:344:14>>*/ var
+    var
      xs$0 = match[2],
      x = match[1],
       /*<<seq.ml:344:14>>*/ s$0 =  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
@@ -2141,9 +2130,7 @@
             function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}];
     /*<<seq.ml:345:32>>*/ }
    function scan(f, s, xs){
-     /*<<seq.ml:348:9>>*/ function next(_S_){
-      /*<<?>>*/ return tail_scan(f, s, xs, _S_);
-    }
+    function next(_S_){ /*<<?>>*/ return tail_scan(f, s, xs, _S_);}
      /*<<seq.ml:348:9>>*/ return function(_R_){
       /*<<seq.ml:28:21>>*/ return [0, s, next];};
     /*<<seq.ml:348:27>>*/ }
@@ -2152,7 +2139,7 @@
             ? empty
             : function
              (param){
-               /*<<seq.ml:358:6>>*/  /*<<seq.ml:358:12>>*/ var
+               /*<<seq.ml:358:12>>*/ var
                match =  /*<<seq.ml:358:12>>*/ caml_call1(xs, 0);
               if(! match)  /*<<seq.ml:360:10>>*/ return 0;
               var xs$0 = match[2], x = match[1];
@@ -2172,14 +2159,12 @@
               ? xs
               : function
                (param){
-                 /*<<seq.ml:392:6>>*/ var n$0 = n, xs$0 = xs;
+                var n$0 = n, xs$0 = xs;
                  /*<<seq.ml:373:2>>*/ for(;;){
-                  /*<<seq.ml:373:8>>*/  /*<<seq.ml:373:8>>*/ var
+                  /*<<seq.ml:373:8>>*/ var
                   match =  /*<<seq.ml:373:8>>*/ caml_call1(xs$0, 0);
                  if(! match)  /*<<seq.ml:375:6>>*/ return 0;
-                  /*<<seq.ml:377:6>>*/ var
-                  xs$1 = match[2],
-                   /*<<seq.ml:377:6>>*/ n$1 = n$0 - 1 | 0;
+                 var xs$1 = match[2],  /*<<seq.ml:377:6>>*/ n$1 = n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
                    /*<<seq.ml:379:8>>*/ return  /*<<seq.ml:379:8>>*/ caml_call1
                           (xs$1, 0);
@@ -2190,8 +2175,7 @@
             :  /*<<seq.ml:387:16>>*/ caml_call1(Stdlib[1], cst_Seq_drop);
     /*<<seq.ml:392:21>>*/ }
    function take_while(p, xs, param){
-     /*<<seq.ml:395:2>>*/  /*<<seq.ml:395:8>>*/ var
-     match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:395:8>>*/ var match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:397:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:399:9>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
@@ -2201,9 +2185,9 @@
             : 0;
     /*<<seq.ml:399:52>>*/ }
    function drop_while(p, xs, param){
-     /*<<seq.ml:402:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:402:2>>*/ for(;;){
-      /*<<seq.ml:402:8>>*/  /*<<seq.ml:402:8>>*/ var
+      /*<<seq.ml:402:8>>*/ var
       node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
      if(! node)  /*<<seq.ml:404:6>>*/ return 0;
      var xs$1 = node[2], x = node[1];
@@ -2213,25 +2197,20 @@
     }
     /*<<seq.ml:406:46>>*/ }
    function group(eq, xs, param){
-     /*<<seq.ml:409:2>>*/  /*<<seq.ml:409:8>>*/ var
-     match =  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:409:8>>*/ var match =  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:411:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
       /*<<seq.ml:413:64>>*/ _J_ =  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
-     /*<<seq.ml:413:52>>*/ function _K_(_P_){
-      /*<<?>>*/ return drop_while(_J_, xs$0, _P_);
-    }
+    function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
      /*<<seq.ml:413:31>>*/ var _L_ =  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
-     /*<<seq.ml:413:19>>*/ function next(_O_){
-      /*<<?>>*/ return take_while(_L_, xs$0, _O_);
-    }
+    function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
      /*<<seq.ml:413:6>>*/ return [0,
             function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
             function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}];
     /*<<seq.ml:413:75>>*/ }
-    /*<<seq.ml:415:0>>*/ var
+   var
      /*<<seq.ml:415:0>>*/ Forced_twice =
       [248, "Stdlib.Seq.Forced_twice", runtime.caml_fresh_oo_id(0)],
      /*<<seq.ml:415:0>>*/ to_lazy = Stdlib_Lazy[6],
@@ -2242,16 +2221,16 @@
     /*<<seq.ml:441:24>>*/ }
    function memoize(xs){
     function s$0(param){
-      /*<<seq.ml:460:4>>*/  /*<<seq.ml:460:10>>*/ var
+      /*<<seq.ml:460:10>>*/ var
       match =  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:462:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:464:8>>*/ return [0, x, memoize(xs$0)];
      /*<<seq.ml:464:28>>*/ }
-     /*<<seq.ml:434:14>>*/  /*<<seq.ml:434:14>>*/ var
+     /*<<seq.ml:434:14>>*/ var
      s =  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
      /*<<seq.ml:429:4>>*/ return function(param){
-      /*<<seq.ml:429:14>>*/ var _I_ = runtime.caml_obj_tag(s);
+     var _I_ = runtime.caml_obj_tag(s);
      if(250 === _I_) return s[1];
      if(246 !== _I_ && 244 !== _I_)  /*<<seq.ml:429:4>>*/ return s;
       /*<<seq.ml:429:4>>*/ return  /*<<seq.ml:429:4>>*/ caml_call1
@@ -2259,24 +2238,23 @@
     /*<<seq.ml:465:3>>*/ }
    function once(xs){
     function f(param){
-      /*<<seq.ml:469:4>>*/  /*<<seq.ml:469:10>>*/ var
+      /*<<seq.ml:469:10>>*/ var
       match =  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:471:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:473:8>>*/ return [0, x, once(xs$0)];
      /*<<seq.ml:473:25>>*/ }
-     /*<<seq.ml:448:17>>*/  /*<<seq.ml:448:17>>*/ var
+     /*<<seq.ml:448:17>>*/ var
      action =  /*<<seq.ml:448:17>>*/ caml_call1(Stdlib_Atomic[1], f);
      /*<<seq.ml:449:4>>*/ return function(param){
-      /*<<seq.ml:453:6>>*/  /*<<seq.ml:453:14>>*/ var
+      /*<<seq.ml:453:14>>*/ var
       f =  /*<<seq.ml:453:14>>*/ caml_call2(Stdlib_Atomic[5], action, failure);
       /*<<seq.ml:454:6>>*/ return  /*<<seq.ml:454:6>>*/ caml_call1(f, 0); /*<<seq.ml:454:9>>*/ };
     /*<<seq.ml:474:3>>*/ }
    function zip(xs, ys, param){
-     /*<<seq.ml:478:2>>*/  /*<<seq.ml:478:8>>*/ var
-     match =  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:478:8>>*/ var match =  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:480:6>>*/ return 0;
-     /*<<seq.ml:482:12>>*/ var
+    var
      xs$0 = match[2],
      x = match[1],
       /*<<seq.ml:482:12>>*/ match$0 =  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
@@ -2287,10 +2265,9 @@
             function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}];
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
-     /*<<seq.ml:489:2>>*/  /*<<seq.ml:489:8>>*/ var
-     match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:489:8>>*/ var match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:491:6>>*/ return 0;
-     /*<<seq.ml:493:12>>*/ var
+    var
      xs$0 = match[2],
      x = match[1],
       /*<<seq.ml:493:12>>*/ match$0 =  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
@@ -2301,8 +2278,7 @@
             function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}];
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
-     /*<<seq.ml:500:2>>*/  /*<<seq.ml:500:8>>*/ var
-     match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
+     /*<<seq.ml:500:8>>*/ var match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
     if(! match)
       /*<<seq.ml:502:6>>*/ return  /*<<seq.ml:502:6>>*/ caml_call1(ys, 0);
     var xs$0 = match[2], x = match[1];
@@ -2316,7 +2292,7 @@
             ? [0,
               y,
               function(_D_){
-                /*<<seq.ml:519:8>>*/  /*<<seq.ml:519:8>>*/ var
+                /*<<seq.ml:519:8>>*/ var
                 match =  /*<<seq.ml:519:8>>*/ caml_call1(ys, 0);
                if(! match)  /*<<seq.ml:521:6>>*/ return [0, x, xs];
                var ys$0 = match[2], y = match[1];
@@ -2325,7 +2301,7 @@
             : [0,
               x,
               function(_E_){
-                /*<<seq.ml:526:8>>*/  /*<<seq.ml:526:8>>*/ var
+                /*<<seq.ml:526:8>>*/ var
                 match =  /*<<seq.ml:526:8>>*/ caml_call1(xs, 0);
                if(! match)  /*<<seq.ml:528:6>>*/ return [0, y, ys];
                var xs$0 = match[2], x = match[1];
@@ -2333,7 +2309,7 @@
               }];
     /*<<seq.ml:536:40>>*/ }
    function sorted_merge(cmp, xs, ys, param){
-     /*<<seq.ml:539:2>>*/ var
+    var
       /*<<seq.ml:539:8>>*/ match =  /*<<seq.ml:539:8>>*/ caml_call1(xs, 0),
       /*<<seq.ml:539:14>>*/ match$0 =  /*<<seq.ml:539:14>>*/ caml_call1(ys, 0);
     if(match){
@@ -2347,7 +2323,7 @@
      /*<<seq.ml:544:8>>*/ return c;
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
-     /*<<seq.ml:550:2>>*/  /*<<seq.ml:550:8>>*/ var
+     /*<<seq.ml:550:8>>*/ var
      match =  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
     if(! match)  /*<<seq.ml:552:6>>*/ return 0;
     var xys$0 = match[2], x = match[1][1];
@@ -2356,7 +2332,7 @@
             function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}];
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
-     /*<<seq.ml:557:2>>*/  /*<<seq.ml:557:8>>*/ var
+     /*<<seq.ml:557:8>>*/ var
      match =  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
     if(! match)  /*<<seq.ml:559:6>>*/ return 0;
     var xys$0 = match[2], y = match[1][2];
@@ -2370,12 +2346,12 @@
             function(_z_){ /*<<?>>*/ return map_snd(xys, _z_);}];
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
-     /*<<seq.ml:573:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:573:2>>*/ for(;;){
-      /*<<seq.ml:573:8>>*/  /*<<seq.ml:573:8>>*/ var
+      /*<<seq.ml:573:8>>*/ var
       match =  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:575:6>>*/ return 0;
-      /*<<seq.ml:577:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:577:12>>*/ match$0 =  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
@@ -2391,12 +2367,12 @@
     }
     /*<<seq.ml:581:42>>*/ }
    function filter_map_find_right_map(f, xs, param){
-     /*<<seq.ml:584:2>>*/ var xs$0 = xs;
+    var xs$0 = xs;
      /*<<seq.ml:584:2>>*/ for(;;){
-      /*<<seq.ml:584:8>>*/  /*<<seq.ml:584:8>>*/ var
+      /*<<seq.ml:584:8>>*/ var
       match =  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:586:6>>*/ return 0;
-      /*<<seq.ml:588:12>>*/ var
+     var
       xs$1 = match[2],
       x = match[1],
        /*<<seq.ml:588:12>>*/ match$0 =  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
@@ -2433,7 +2409,7 @@
             (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);});
     /*<<seq.ml:611:31>>*/ }
    function transpose(xss, param){
-     /*<<seq.ml:614:2>>*/ var
+    var
       /*<<seq.ml:614:21>>*/ match = peel(xss),
      tails = match[2],
      heads = match[1];
@@ -2446,15 +2422,15 @@
            ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
    function _b_(remainders, xss, param){
-     /*<<seq.ml:627:2>>*/  /*<<seq.ml:627:8>>*/ var
+     /*<<seq.ml:627:8>>*/ var
      match =  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
     if(! match)  /*<<seq.ml:649:6>>*/ return transpose(remainders, 0);
-     /*<<seq.ml:629:18>>*/ var
+    var
      xss$0 = match[2],
      xs = match[1],
       /*<<seq.ml:629:18>>*/ match$0 =  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
     if(match$0){
-      /*<<seq.ml:637:29>>*/ var
+     var
       xs$0 = match$0[2],
       x = match$0[1],
        /*<<seq.ml:637:29>>*/ match$1 = peel(remainders),
@@ -2466,7 +2442,7 @@
              function(_o_){ /*<<seq.ml:28:21>>*/ return [0, x, heads];},
              function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}];
     }
-     /*<<seq.ml:643:29>>*/ var
+    var
       /*<<seq.ml:643:29>>*/ match$2 = peel(remainders),
      tails$0 = match$2[2],
      heads$0 = match$2[1];
@@ -2482,12 +2458,8 @@
       /*<<seq.ml:670:10>>*/ return function(_k_){
        /*<<?>>*/ return map(_j_, ys, _k_);};
      /*<<seq.ml:672:10>>*/ }
-     /*<<seq.ml:668:20>>*/ function xss(_i_){
-      /*<<?>>*/ return map(_f_, xs, _i_);
-    }
-     /*<<seq.ml:665:2>>*/ function _e_(_h_){
-      /*<<?>>*/ return _b_(empty, xss, _h_);
-    }
+    function xss(_i_){ /*<<?>>*/ return map(_f_, xs, _i_);}
+    function _e_(_h_){ /*<<?>>*/ return _b_(empty, xss, _h_);}
      /*<<seq.ml:668:9>>*/ return function(_g_){
       /*<<?>>*/ return concat(_e_, _g_);};
     /*<<seq.ml:674:4>>*/ }
@@ -2501,7 +2473,7 @@
     /*<<seq.ml:677:39>>*/ }
    function of_dispenser(it){
     function c(param){
-      /*<<seq.ml:681:4>>*/  /*<<seq.ml:681:10>>*/ var
+      /*<<seq.ml:681:10>>*/ var
       match =  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
      if(! match)  /*<<seq.ml:683:8>>*/ return 0;
      var x = match[1];
@@ -2510,9 +2482,9 @@
      /*<<seq.ml:687:2>>*/ return c;
     /*<<seq.ml:687:3>>*/ }
    function to_dispenser(xs){
-     /*<<seq.ml:690:2>>*/  /*<<seq.ml:690:10>>*/ var s = [0, xs];
+     /*<<seq.ml:690:10>>*/ var s = [0, xs];
      /*<<seq.ml:691:2>>*/ return function(param){
-      /*<<seq.ml:692:4>>*/  /*<<seq.ml:692:10>>*/ var
+      /*<<seq.ml:692:10>>*/ var
       match =  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
      if(! match)  /*<<seq.ml:694:8>>*/ return 0;
      var xs = match[2], x = match[1];
@@ -2520,7 +2492,7 @@
       /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ };
     /*<<seq.ml:697:14>>*/ }
    function ints(i, param){
-     /*<<seq.ml:702:2>>*/  /*<<seq.ml:702:2>>*/ var _c_ = i + 1 | 0;
+     /*<<seq.ml:702:2>>*/ var _c_ = i + 1 | 0;
      /*<<seq.ml:702:2>>*/ return [0,
             i,
             function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}];
@@ -2597,13 +2569,13 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
-    /*<<?>>*/ function caml_call1(f, a0){
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   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){
+   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]);
@@ -2727,13 +2699,13 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
-    /*<<?>>*/ function caml_call1(f, a0){
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   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){
+   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]);
@@ -2900,7 +2872,9 @@
 //# unitInfo: Provides: Stdlib__Bool
 (function(globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime, caml_hash = runtime.caml_hash;
+   var
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_hash = runtime.caml_hash;
    function equal(_d_, _c_){ /*<<?>>*/ return _d_ === _c_ ? 1 : 0;}
    var
     compare = runtime.caml_int_compare,
@@ -2942,12 +2916,12 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_hash = runtime.caml_hash,
-    caml_string_of_bytes = runtime.caml_string_of_bytes;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_hash = runtime.caml_hash,
+     /*<<?>>*/ caml_string_of_bytes = runtime.caml_string_of_bytes;
+   function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
@@ -2969,7 +2943,7 @@
             (Stdlib[1], cst_Char_chr);
     /*<<char.ml:22:67>>*/ }
    function escaped(c){
-     /*<<char.ml:29:14>>*/ a:
+    a:
     {
      if(40 <= c){
       if(92 === c)  /*<<char.ml:31:12>>*/ return cst;
@@ -2989,7 +2963,7 @@
            /*<<char.ml:34:12>>*/ return cst_r;
        }
      }
-      /*<<char.ml:42:14>>*/  /*<<char.ml:42:14>>*/ var
+      /*<<char.ml:42:14>>*/ var
       s =  /*<<char.ml:42:14>>*/ caml_create_bytes(4);
      caml_bytes_unsafe_set(s, 0, 92);
      caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
@@ -2997,7 +2971,7 @@
      caml_bytes_unsafe_set(s, 3, 48 + (c % 10 | 0) | 0);
      return caml_string_of_bytes(s);
     }
-     /*<<char.ml:37:14>>*/  /*<<char.ml:37:14>>*/ var
+     /*<<char.ml:37:14>>*/ var
      s$0 =  /*<<char.ml:37:14>>*/ caml_create_bytes(1);
     caml_bytes_unsafe_set(s$0, 0, c);
     return caml_string_of_bytes(s$0);
@@ -3044,16 +3018,17 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_uchar_ml = "uchar.ml",
-    caml_format_int = runtime.caml_format_int,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_uchar_ml = "uchar.ml",
+     /*<<?>>*/ caml_format_int = runtime.caml_format_int,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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]);
@@ -3080,9 +3055,7 @@
             : u === 0 ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0;
     /*<<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_;
+    var _n_ = 0 <= i ? 1 : 0, _o_ = _n_ ? i <= 55295 ? 1 : 0 : _n_;
     if(_o_)
      var _p_ = _o_;
     else
@@ -3091,7 +3064,7 @@
     /*<<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
+     /*<<uchar.ml:20:19>>*/ var
      _m_ =
         /*<<uchar.ml:20:19>>*/ caml_call2
         (Stdlib[28],
@@ -3108,7 +3081,7 @@
     /*<<uchar.ml:49:27>>*/ }
    function to_char(u){
      /*<<uchar.ml:51:2>>*/ if(255 >= u)  /*<<uchar.ml:52:2>>*/ return u;
-     /*<<uchar.ml:21:30>>*/ var
+    var
       /*<<uchar.ml:21:30>>*/ _k_ =
         /*<<uchar.ml:21:30>>*/ caml_call2
         (Stdlib[28],
@@ -3203,22 +3176,23 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_List_map2$1 = "List.map2",
-    cst_List_nth$1 = "List.nth",
-    caml_compare = runtime.caml_compare,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_List_map2$1 = "List.map2",
+     /*<<?>>*/ cst_List_nth$1 = "List.nth",
+     /*<<?>>*/ caml_compare = runtime.caml_compare,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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){
+   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]);
@@ -3232,12 +3206,10 @@
     cst_List_nth = cst_List_nth$1,
     cst_List_nth$0 = cst_List_nth$1;
    function length(l$0){
-     /*<<list.ml:25:15>>*/ var len = 0, param = l$0;
+    var len = 0, param = l$0;
     for(;;){
      if(! param)  /*<<list.ml:22:10>>*/ return len;
-      /*<<list.ml:23:12>>*/ var
-      l = param[2],
-       /*<<list.ml:23:12>>*/ len$0 = len + 1 | 0;
+     var l = param[2],  /*<<list.ml:23:12>>*/ len$0 = len + 1 | 0;
      len = len$0;
      param = l;
     }
@@ -3270,7 +3242,7 @@
               (Stdlib[2], cst_nth);
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
-      /*<<list.ml:42:35>>*/  /*<<list.ml:42:35>>*/ var n$1 = n$0 - 1 | 0;
+      /*<<list.ml:42:35>>*/ var n$1 = n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
@@ -3285,7 +3257,7 @@
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:50:14>>*/ if(0 === n$0)
        /*<<list.ml:50:28>>*/ return [0, a];
-      /*<<list.ml:50:40>>*/  /*<<list.ml:50:40>>*/ var n$1 = n$0 - 1 | 0;
+      /*<<list.ml:50:40>>*/ var n$1 = n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
@@ -3304,10 +3276,10 @@
     _a_ = [0, 0, 0],
     cst_List_combine = "List.combine";
    function rev_append(l1, l2){
-     /*<<list.ml:56:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:56:2>>*/ for(;;){
      if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
-      /*<<list.ml:58:27>>*/ var
+     var
       l1$1 = l1$0[2],
       a = l1$0[1],
        /*<<list.ml:58:27>>*/ l2$1 = [0, a, l2$0];
@@ -3328,7 +3300,7 @@
       /*<<list.ml:64:24>>*/ return [0,
               /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
              0];
-     /*<<list.ml:66:13>>*/ var
+    var
       /*<<list.ml:66:13>>*/ r1 =  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
       /*<<list.ml:67:13>>*/ r2 =  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
       /*<<list.ml:68:10>>*/ block = [0, r2, 24029],
@@ -3340,7 +3312,7 @@
       dst[1 + offset] = 0;
      else{
       if(i !== last){
-        /*<<list.ml:66:13>>*/ var
+       var
          /*<<list.ml:66:13>>*/ r1$0 =  /*<<list.ml:66:13>>*/ caml_call1(f, i),
          /*<<list.ml:67:13>>*/ r2$0 =
            /*<<list.ml:67:13>>*/ caml_call1(f, i + 1 | 0),
@@ -3359,10 +3331,7 @@
     /*<<list.ml:72:20>>*/ }
    function flatten(param){
      /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
-     /*<<list.ml:76:16>>*/ var
-     r = param[2],
-     l = param[1],
-      /*<<list.ml:76:16>>*/ _I_ = flatten(r);
+    var r = param[2], l = param[1],  /*<<list.ml:76:16>>*/ _I_ = flatten(r);
      /*<<list.ml:76:16>>*/ return  /*<<list.ml:76:16>>*/ caml_call2
             (Stdlib[37], l, _I_);
     /*<<list.ml:76:25>>*/ }
@@ -3370,11 +3339,11 @@
      /*<<?>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
     var match = param[2], a1 = param[1];
     if(! match){
-      /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ var
+      /*<<list.ml:83:15>>*/ var
       r1$0 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1);
       /*<<list.ml:84:6>>*/ return [0, r1$0, 0];
     }
-     /*<<list.ml:86:15>>*/ var
+    var
      l = match[2],
      a2 = match[1],
       /*<<list.ml:86:15>>*/ r1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
@@ -3387,7 +3356,7 @@
      if(param$0){
       var match$0 = param$0[2], a1$0 = param$0[1];
       if(match$0){
-        /*<<list.ml:86:15>>*/ var
+       var
         l$0 = match$0[2],
         a2$0 = match$0[1],
          /*<<list.ml:86:15>>*/ r1$1 =
@@ -3401,7 +3370,7 @@
        param$0 = l$0;
        continue;
       }
-       /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ var
+       /*<<list.ml:83:15>>*/ var
        r1$2 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
@@ -3411,15 +3380,15 @@
     }
    }
    function mapi(f, l$1){
-     /*<<list.ml:100:15>>*/ var i$1 = 0;
+    var i$1 = 0;
     if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
     var match = l$1[2], a1 = l$1[1];
     if(! match){
-      /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ var
+      /*<<list.ml:93:15>>*/ var
       r1$0 =  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
       /*<<list.ml:94:6>>*/ return [0, r1$0, 0];
     }
-     /*<<list.ml:96:15>>*/ var
+    var
      l = match[2],
      a2 = match[1],
       /*<<list.ml:96:15>>*/ r1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
@@ -3433,7 +3402,7 @@
      if(param){
       var match$0 = param[2], a1$0 = param[1];
       if(match$0){
-        /*<<list.ml:96:15>>*/ var
+       var
         l$0 = match$0[2],
         a2$0 = match$0[1],
          /*<<list.ml:96:15>>*/ r1$1 =
@@ -3449,7 +3418,7 @@
        param = l$0;
        continue;
       }
-       /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ var
+       /*<<list.ml:93:15>>*/ var
        r1$2 =  /*<<list.ml:93:15>>*/ caml_call2(f, i, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
@@ -3459,10 +3428,10 @@
     }
     /*<<list.ml:100:25>>*/ }
    function rev_map(f, l){
-     /*<<list.ml:103:2>>*/ var accu = 0, param = l;
+    var accu = 0, param = l;
     for(;;){
      if(! param)  /*<<list.ml:104:12>>*/ return accu;
-      /*<<list.ml:105:21>>*/ var
+     var
       l$0 = param[2],
       a = param[1],
        /*<<list.ml:105:21>>*/ accu$0 =
@@ -3481,7 +3450,7 @@
     }
    }
    function iteri(f, l$0){
-     /*<<list.ml:118:16>>*/ var i = 0, param = l$0;
+    var i = 0, param = l$0;
     for(;;){
      if(! param)  /*<<list.ml:115:10>>*/ return 0;
      var l = param[2], a = param[1];
@@ -3492,10 +3461,10 @@
     }
     /*<<list.ml:118:27>>*/ }
    function fold_left(f, accu, l){
-     /*<<list.ml:121:2>>*/ var accu$0 = accu, l$0 = l;
+    var accu$0 = accu, l$0 = l;
      /*<<list.ml:121:2>>*/ for(;;){
      if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
-      /*<<list.ml:123:24>>*/ var
+     var
       l$1 = l$0[2],
       a = l$0[1],
        /*<<list.ml:123:24>>*/ accu$1 =
@@ -3517,7 +3486,7 @@
       if(l2){
        var match = l2[2];
        if(match){
-         /*<<list.ml:137:15>>*/ var
+        var
          l2$0 = match[2],
          b2 = match[1],
          b1 = l2[1],
@@ -3541,7 +3510,7 @@
             if(l2$1){
              var match$0 = l2$1[2];
              if(match$0){
-               /*<<list.ml:137:15>>*/ var
+              var
                l2$2 = match$0[2],
                b2$0 = match$0[1],
                b1$1 = l2$1[1],
@@ -3562,7 +3531,7 @@
             }
            }
            else if(l2$1 && ! l2$1[2]){
-             /*<<list.ml:134:15>>*/ var
+            var
              b1$2 = l2$1[1],
               /*<<list.ml:134:15>>*/ r1$2 =
                 /*<<list.ml:134:15>>*/ caml_call2(f, a1$0, b1$2);
@@ -3579,7 +3548,7 @@
       }
      }
      else if(l2 && ! l2[2]){
-       /*<<list.ml:134:15>>*/ var
+      var
        b1$0 = l2[1],
         /*<<list.ml:134:15>>*/ r1$0 =
           /*<<list.ml:134:15>>*/ caml_call2(f, a1, b1$0);
@@ -3591,11 +3560,11 @@
             (Stdlib[1], cst_List_map2);
     /*<<list.ml:140:37>>*/ }
    function rev_map2(f, l1, l2){
-     /*<<list.ml:143:2>>*/ var accu = 0, l1$0 = l1, l2$0 = l2;
+    var accu = 0, l1$0 = l1, l2$0 = l2;
      /*<<list.ml:144:4>>*/ for(;;){
      if(l1$0){
       if(l2$0){
-        /*<<list.ml:146:34>>*/ var
+       var
         l2$1 = l2$0[2],
         a2 = l2$0[1],
         l1$1 = l1$0[2],
@@ -3614,7 +3583,7 @@
     }
     /*<<list.ml:149:18>>*/ }
    function iter2(f, l1, l2){
-     /*<<list.ml:153:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:153:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
@@ -3631,11 +3600,11 @@
     }
     /*<<list.ml:156:38>>*/ }
    function fold_left2(f, accu, l1, l2){
-     /*<<list.ml:159:2>>*/ var accu$0 = accu, l1$0 = l1, l2$0 = l2;
+    var accu$0 = accu, l1$0 = l1, l2$0 = l2;
      /*<<list.ml:159:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
-        /*<<list.ml:161:37>>*/ var
+       var
         l2$1 = l2$0[2],
         a2 = l2$0[1],
         l1$1 = l1$0[2],
@@ -3669,7 +3638,7 @@
     var param$0 = param;
     for(;;){
      if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
-      /*<<list.ml:172:12>>*/ var
+     var
       l = param$0[2],
       a = param$0[1],
        /*<<list.ml:172:12>>*/ _F_ =  /*<<list.ml:172:12>>*/ caml_call1(p, a);
@@ -3681,7 +3650,7 @@
     var param$0 = param;
     for(;;){
      if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
-      /*<<list.ml:176:12>>*/ var
+     var
       l = param$0[2],
       a = param$0[1],
        /*<<list.ml:176:12>>*/ _E_ =  /*<<list.ml:176:12>>*/ caml_call1(p, a);
@@ -3690,11 +3659,11 @@
     }
    }
    function for_all2(p, l1, l2){
-     /*<<list.ml:179:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:179:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
-        /*<<list.ml:181:24>>*/ var
+       var
         l2$1 = l2$0[2],
         a2 = l2$0[1],
         l1$1 = l1$0[2],
@@ -3713,11 +3682,11 @@
     }
     /*<<list.ml:182:41>>*/ }
    function exists2(p, l1, l2){
-     /*<<list.ml:185:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:185:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
-        /*<<list.ml:187:24>>*/ var
+       var
         l2$1 = l2$0[2],
         a2 = l2$0[1],
         l1$1 = l1$0[2],
@@ -3857,7 +3826,7 @@
     }
    }
    function find_index(p){
-     /*<<list.ml:240:2>>*/  /*<<list.ml:243:2>>*/ var i = 0;
+     /*<<list.ml:243:2>>*/ var i = 0;
      /*<<list.ml:243:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
      for(;;){
@@ -3874,7 +3843,7 @@
     var param$0 = param;
     for(;;){
      if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
-      /*<<list.ml:248:17>>*/ var
+     var
       l = param$0[2],
       x = param$0[1],
        /*<<list.ml:248:17>>*/ result =
@@ -3884,12 +3853,12 @@
     }
    }
    function find_mapi(f){
-     /*<<list.ml:254:2>>*/  /*<<list.ml:261:2>>*/ var i = 0;
+     /*<<list.ml:261:2>>*/ var i = 0;
      /*<<list.ml:261:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
      for(;;){
       if(! param)  /*<<list.ml:255:10>>*/ return 0;
-       /*<<list.ml:257:17>>*/ var
+      var
        l = param[2],
        x = param[1],
         /*<<list.ml:257:17>>*/ result =
@@ -3906,7 +3875,7 @@
      if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:265:17>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
-       /*<<list.ml:265:26>>*/ var
+      var
         /*<<list.ml:265:26>>*/ block = [0, x, 24029],
        dst = block,
        offset = 1,
@@ -3918,8 +3887,7 @@
        }
        var l$0 = param$1[2], x$0 = param$1[1];
         /*<<list.ml:265:17>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x$0)){
-         /*<<list.ml:265:26>>*/  /*<<list.ml:265:26>>*/ var
-         dst$0 = [0, x$0, 24029];
+         /*<<list.ml:265:26>>*/ var dst$0 = [0, x$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
         offset = 1;
@@ -3934,19 +3902,16 @@
     }
    }
    function filteri(p, l$1){
-     /*<<list.ml:275:18>>*/ var i = 0, param = l$1;
+    var i = 0, param = l$1;
     for(;;){
      if(! param)  /*<<list.ml:270:10>>*/ return 0;
-      /*<<list.ml:272:6>>*/ var
-      l = param[2],
-      x = param[1],
-       /*<<list.ml:272:6>>*/ i$0 = i + 1 | 0;
+     var l = param[2], x = param[1],  /*<<list.ml:272:6>>*/ i$0 = i + 1 | 0;
       /*<<list.ml:273:9>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i, x))
       break;
      i = i$0;
      param = l;
     }
-     /*<<list.ml:273:20>>*/ var
+    var
       /*<<list.ml:273:20>>*/ block = [0, x, 24029],
      dst = block,
      offset = 1,
@@ -3954,13 +3919,12 @@
      param$0 = l;
     for(;;){
      if(! param$0){dst[1 + offset] = 0;  /*<<list.ml:273:25>>*/ return block;}
-      /*<<list.ml:272:6>>*/ var
+     var
       l$0 = param$0[2],
       x$0 = param$0[1],
        /*<<list.ml:272:6>>*/ i$2 = i$1 + 1 | 0;
       /*<<list.ml:273:9>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i$1, x$0)){
-       /*<<list.ml:273:20>>*/  /*<<list.ml:273:20>>*/ var
-       dst$0 = [0, x$0, 24029];
+       /*<<list.ml:273:20>>*/ var dst$0 = [0, x$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
       offset = 1;
@@ -3974,12 +3938,12 @@
     var param$0 = param;
     for(;;){
      if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
-      /*<<list.ml:280:12>>*/ var
+     var
       l = param$0[2],
       x = param$0[1],
        /*<<list.ml:280:12>>*/ match =  /*<<list.ml:280:12>>*/ caml_call1(f, x);
      if(match){
-       /*<<list.ml:282:18>>*/ var
+      var
        v = match[1],
         /*<<list.ml:282:18>>*/ block = [0, v, 24029],
        dst = block,
@@ -3990,15 +3954,13 @@
         dst[1 + offset] = 0;
          /*<<list.ml:282:23>>*/ return block;
        }
-        /*<<list.ml:280:12>>*/ var
+       var
         l$0 = param$1[2],
         x$0 = param$1[1],
          /*<<list.ml:280:12>>*/ match$0 =
            /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
        if(match$0){
-         /*<<list.ml:282:18>>*/ var
-         v$0 = match$0[1],
-          /*<<list.ml:282:18>>*/ dst$0 = [0, v$0, 24029];
+        var v$0 = match$0[1],  /*<<list.ml:282:18>>*/ dst$0 = [0, v$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
         offset = 1;
@@ -4016,12 +3978,12 @@
     var param$0 = param;
     for(;;){
      if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
-      /*<<list.ml:286:32>>*/ var
+     var
       xs = param$0[2],
       x = param$0[1],
        /*<<list.ml:286:32>>*/ ys =  /*<<list.ml:286:32>>*/ caml_call1(f, x);
      if(ys){
-       /*<<list.ml:290:15>>*/ var
+      var
        ys$1 = ys[2],
        y = ys[1],
         /*<<list.ml:290:15>>*/ block = [0, y, 24029],
@@ -4031,7 +3993,7 @@
        xs$1 = xs;
        /*<<list.ml:288:2>>*/ for(;;)
        if(ys$2){
-         /*<<list.ml:290:15>>*/ var
+        var
          ys$3 = ys$2[2],
          y$0 = ys$2[1],
           /*<<list.ml:290:15>>*/ dst$0 = [0, y$0, 24029];
@@ -4042,7 +4004,7 @@
        }
        else{
         if(! xs$1){dst[1 + offset] = 0;  /*<<list.ml:290:20>>*/ return block;}
-         /*<<list.ml:286:32>>*/ var
+        var
          xs$0 = xs$1[2],
          x$0 = xs$1[1],
           /*<<list.ml:286:32>>*/ ys$0 =
@@ -4056,10 +4018,10 @@
     }
    }
    function fold_left_map(f, accu, l){
-     /*<<list.ml:293:2>>*/ var accu$0 = accu, l_accu = 0, param = l;
+    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
+     var
       l$0 = param[2],
       x = param[1],
        /*<<list.ml:296:22>>*/ match =
@@ -4073,47 +4035,43 @@
     }
     /*<<list.ml:298:15>>*/ }
    function partition(p, l){
-     /*<<list.ml:301:2>>*/ var yes = 0, no = 0, param = l;
+    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:20>>*/ var _x_ = rev(no);
        /*<<list.ml:302: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:303: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:303:61>>*/ var no$0 = [0, x, no];
       no = no$0;
       param = l$0;
      }
     }
     /*<<list.ml:304:14>>*/ }
    function partition_map(p, l){
-     /*<<list.ml:307:2>>*/ var left = 0, right = 0, param = l;
+    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:21>>*/ var _w_ = rev(right);
        /*<<list.ml:308:10>>*/ return [0, rev(left), _w_];
      }
-      /*<<list.ml:310:17>>*/ var
+     var
       l$0 = param[2],
       x = param[1],
        /*<<list.ml:310:17>>*/ match =  /*<<list.ml:310:17>>*/ caml_call1(p, x);
      if(0 === match[0]){
-       /*<<list.ml:311:31>>*/ var
-       v = match[1],
-        /*<<list.ml:311:31>>*/ left$0 = [0, v, left];
+      var v = match[1],  /*<<list.ml:311:31>>*/ left$0 = [0, v, left];
       left = left$0;
       param = l$0;
      }
      else{
-       /*<<list.ml:312:37>>*/ var
-       v$0 = match[1],
-        /*<<list.ml:312:37>>*/ right$0 = [0, v$0, right];
+      var v$0 = match[1],  /*<<list.ml:312:37>>*/ right$0 = [0, v$0, right];
       right = right$0;
       param = l$0;
      }
@@ -4121,7 +4079,7 @@
     /*<<list.ml:315:14>>*/ }
    function split(param){
      /*<<list.ml:317:16>>*/ if(! param)  /*<<list.ml:318:10>>*/ return _a_;
-     /*<<list.ml:320:21>>*/ var
+    var
      l = param[2],
      match = param[1],
      y = match[2],
@@ -4157,7 +4115,7 @@
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:362:19>>*/ var
+        var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
@@ -4174,7 +4132,7 @@
       if(_v_){
        var match$2 = _v_[2];
        if(match$2){
-         /*<<list.ml:366:13>>*/ var
+        var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _v_[1],
@@ -4199,7 +4157,7 @@
        }
       }
      }
-      /*<<list.ml:378:21>>*/ var
+     var
       n1 = n >> 1,
       n2 = n - n1 | 0,
        /*<<list.ml:378:21>>*/ match$0 = rev_sort(n1, l),
@@ -4217,14 +4175,12 @@
         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
-          accu$0 = [0, h1, accu];
+          /*<<list.ml:356:33>>*/ var accu$0 = [0, h1, accu];
          l1 = t1;
          accu = accu$0;
          continue;
         }
-         /*<<list.ml:357:33>>*/  /*<<list.ml:357:33>>*/ var
-         accu$1 = [0, h2, accu];
+         /*<<list.ml:357:33>>*/ var accu$1 = [0, h2, accu];
         l2 = t2;
         accu = accu$1;
         continue;
@@ -4241,7 +4197,7 @@
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:384:19>>*/ var
+        var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
@@ -4258,7 +4214,7 @@
       if(_t_){
        var match$2 = _t_[2];
        if(match$2){
-         /*<<list.ml:388:13>>*/ var
+        var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _t_[1],
@@ -4283,7 +4239,7 @@
        }
       }
      }
-      /*<<list.ml:400:21>>*/ var
+     var
       n1 = n >> 1,
       n2 = n - n1 | 0,
        /*<<list.ml:400:21>>*/ match$0 = sort(n1, l),
@@ -4301,14 +4257,12 @@
         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
-          accu$0 = [0, h2, accu];
+          /*<<list.ml:348:29>>*/ var accu$0 = [0, h2, accu];
          l2 = t2;
          accu = accu$0;
          continue;
         }
-         /*<<list.ml:347:29>>*/  /*<<list.ml:347:29>>*/ var
-         accu$1 = [0, h1, accu];
+         /*<<list.ml:347:29>>*/ var accu$1 = [0, h1, accu];
         l1 = t1;
         accu = accu$1;
         continue;
@@ -4320,7 +4274,7 @@
        /*<<list.ml:402:8>>*/ return [0, _s_, tl$0];
      }
      /*<<list.ml:402:32>>*/ }
-     /*<<list.ml:404:12>>*/  /*<<list.ml:404:12>>*/ var len = length(l);
+     /*<<list.ml:404:12>>*/ var len = length(l);
      /*<<list.ml:405:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
     /*<<list.ml:405:41>>*/ }
    function sort_uniq(cmp, l){
@@ -4329,7 +4283,7 @@
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:446:18>>*/ var
+        var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
@@ -4348,7 +4302,7 @@
       if(_m_){
        var match$2 = _m_[2];
        if(match$2){
-         /*<<list.ml:452:18>>*/ var
+        var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _m_[1],
@@ -4356,7 +4310,7 @@
           /*<<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
+         var
            /*<<list.ml:454:20>>*/ c$2 =
              /*<<list.ml:454:20>>*/ caml_call2(cmp, x2$0, x3),
            /*<<list.ml:455:12>>*/ _n_ =
@@ -4365,12 +4319,12 @@
              : 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
+          /*<<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)
           var _o_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
-           /*<<list.ml:470:22>>*/ var
+          var
             /*<<list.ml:470:22>>*/ c$4 =
               /*<<list.ml:470:22>>*/ caml_call2(cmp, x2$0, x3),
             /*<<list.ml:471:14>>*/ _p_ =
@@ -4386,12 +4340,12 @@
          var s$0 = _o_;
         }
         else{
-          /*<<list.ml:457:20>>*/  /*<<list.ml:457:20>>*/ var
+          /*<<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)
           var _q_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
-           /*<<list.ml:461:22>>*/ var
+          var
             /*<<list.ml:461:22>>*/ c$6 =
               /*<<list.ml:461:22>>*/ caml_call2(cmp, x1$0, x3),
             /*<<list.ml:462:14>>*/ _r_ =
@@ -4410,7 +4364,7 @@
        }
       }
      }
-      /*<<list.ml:479:21>>*/ var
+     var
       n1 = n >> 1,
       n2 = n - n1 | 0,
        /*<<list.ml:479:21>>*/ match$0 = rev_sort(n1, l),
@@ -4425,7 +4379,7 @@
       /*<<list.ml:432:4>>*/ for(;;){
       if(l1){
        if(l2){
-         /*<<list.ml:436:16>>*/ var
+        var
          t2 = l2[2],
          h2 = l2[1],
          t1 = l1[2],
@@ -4433,22 +4387,19 @@
           /*<<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
-          accu$0 = [0, h1, accu];
+          /*<<list.ml:437:42>>*/ var accu$0 = [0, h1, accu];
          l1 = t1;
          l2 = t2;
          accu = accu$0;
          continue;
         }
         if(0 < c){
-          /*<<list.ml:439:33>>*/  /*<<list.ml:439:33>>*/ var
-          accu$1 = [0, h1, accu];
+          /*<<list.ml:439:33>>*/ var accu$1 = [0, h1, accu];
          l1 = t1;
          accu = accu$1;
          continue;
         }
-         /*<<list.ml:440:33>>*/  /*<<list.ml:440:33>>*/ var
-         accu$2 = [0, h2, accu];
+         /*<<list.ml:440:33>>*/ var accu$2 = [0, h2, accu];
         l2 = t2;
         accu = accu$2;
         continue;
@@ -4465,7 +4416,7 @@
       if(l){
        var match = l[2];
        if(match){
-         /*<<list.ml:486:18>>*/ var
+        var
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
@@ -4484,7 +4435,7 @@
       if(_f_){
        var match$2 = _f_[2];
        if(match$2){
-         /*<<list.ml:492:18>>*/ var
+        var
          tl$1 = match$2[2],
          x3 = match$2[1],
          x2$0 = _f_[1],
@@ -4492,7 +4443,7 @@
           /*<<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
+         var
            /*<<list.ml:494:20>>*/ c$2 =
              /*<<list.ml:494:20>>*/ caml_call2(cmp, x2$0, x3),
            /*<<list.ml:495:12>>*/ _g_ =
@@ -4501,14 +4452,14 @@
              : 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
+          /*<<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)
           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
+          var
             /*<<list.ml:501:22>>*/ c$4 =
               /*<<list.ml:501:22>>*/ caml_call2(cmp, x1$0, x3),
             /*<<list.ml:502:14>>*/ _i_ =
@@ -4522,14 +4473,14 @@
          var s$0 = _h_;
         }
         else{
-          /*<<list.ml:506:20>>*/  /*<<list.ml:506:20>>*/ var
+          /*<<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)
           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
+          var
             /*<<list.ml:510:22>>*/ c$6 =
               /*<<list.ml:510:22>>*/ caml_call2(cmp, x2$0, x3),
             /*<<list.ml:511:14>>*/ _k_ =
@@ -4546,7 +4497,7 @@
        }
       }
      }
-      /*<<list.ml:519:21>>*/ var
+     var
       n1 = n >> 1,
       n2 = n - n1 | 0,
        /*<<list.ml:519:21>>*/ match$0 = sort(n1, l),
@@ -4561,7 +4512,7 @@
       /*<<list.ml:421:4>>*/ for(;;){
       if(l1){
        if(l2){
-         /*<<list.ml:425:16>>*/ var
+        var
          t2 = l2[2],
          h2 = l2[1],
          t1 = l1[2],
@@ -4569,22 +4520,19 @@
           /*<<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
-          accu$0 = [0, h1, accu];
+          /*<<list.ml:426:38>>*/ var accu$0 = [0, h1, accu];
          l1 = t1;
          l2 = t2;
          accu = accu$0;
          continue;
         }
         if(0 <= c){
-          /*<<list.ml:429:29>>*/  /*<<list.ml:429:29>>*/ var
-          accu$1 = [0, h2, accu];
+          /*<<list.ml:429:29>>*/ var accu$1 = [0, h2, accu];
          l2 = t2;
          accu = accu$1;
          continue;
         }
-         /*<<list.ml:428:29>>*/  /*<<list.ml:428:29>>*/ var
-         accu$2 = [0, h1, accu];
+         /*<<list.ml:428:29>>*/ var accu$2 = [0, h1, accu];
         l1 = t1;
         accu = accu$2;
         continue;
@@ -4596,11 +4544,11 @@
        /*<<list.ml:521:8>>*/ return [0, _e_, tl$0];
      }
      /*<<list.ml:521:32>>*/ }
-     /*<<list.ml:523:12>>*/  /*<<list.ml:523:12>>*/ var len = length(l);
+     /*<<list.ml:523:12>>*/ var len = length(l);
      /*<<list.ml:524:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
     /*<<list.ml:524:41>>*/ }
    function compare_lengths(l1, l2){
-     /*<<list.ml:528:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:528:2>>*/ for(;;){
      if(! l1$0) return l2$0 ? -1 : 0;
      if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
@@ -4610,12 +4558,12 @@
     }
     /*<<list.ml:532:45>>*/ }
    function compare_length_with(l, n){
-     /*<<list.ml:535:2>>*/ var l$0 = l, n$0 = n;
+    var l$0 = l, n$0 = n;
      /*<<list.ml:535: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:541:6>>*/ var n$1 = n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
@@ -4624,11 +4572,11 @@
      /*<<list.ml:543:15>>*/ return param ? 0 : 1;
     /*<<list.ml:545:19>>*/ }
    function equal(eq, l1, l2){
-     /*<<list.ml:555:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:555:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
-        /*<<list.ml:558:22>>*/ var
+       var
         l2$1 = l2$0[2],
         a2 = l2$0[1],
         l1$1 = l1$0[2],
@@ -4646,12 +4594,12 @@
     }
     /*<<list.ml:558:48>>*/ }
    function compare(cmp, l1, l2){
-     /*<<list.ml:561:2>>*/ var l1$0 = l1, l2$0 = l2;
+    var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:561: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
+     var
       l2$1 = l2$0[2],
       a2 = l2$0[1],
        /*<<list.ml:566:12>>*/ c =
@@ -4662,7 +4610,7 @@
     }
     /*<<list.ml:568:26>>*/ }
    function to_seq(l){
-     /*<<list.ml:573:2>>*/ function aux(l, param){
+    function aux(l, param){
       /*<<list.ml:573:21>>*/ if(! l)  /*<<list.ml:574:12>>*/ return 0;
      var tail = l[2], x = l[1];
       /*<<list.ml:575:19>>*/ return [0,
@@ -4673,16 +4621,16 @@
       /*<<?>>*/ return aux(l, _b_);};
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
-     /*<<list.ml:580:2>>*/  /*<<list.ml:580:8>>*/ var
+     /*<<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
+    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
+    var
      seq$1 = match$0[2],
      x2 = match$0[1],
       /*<<list.ml:585:36>>*/ block = [0, x2, 24029],
@@ -4690,16 +4638,16 @@
      offset = 1,
      seq$2 = seq$1;
      /*<<list.ml:580:2>>*/ for(;;){
-      /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ var
+      /*<<list.ml:580:8>>*/ var
       match$1 =  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
      if(match$1){
-       /*<<list.ml:583:18>>*/ var
+      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);
       if(match$2){
-        /*<<list.ml:585:36>>*/ var
+       var
         seq$4 = match$2[2],
         x2$0 = match$2[1],
          /*<<list.ml:585:36>>*/ dst$0 = [0, x2$0, 24029];
@@ -4792,7 +4740,9 @@
 //# unitInfo: Provides: Stdlib__Int
 (function(globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime, caml_hash = runtime.caml_hash;
+   var
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_hash = runtime.caml_hash;
    function abs(x){
      /*<<int.ml:29:12>>*/ return 0 <= x ? x : - x | 0;
     /*<<int.ml:29:36>>*/ }
@@ -4846,36 +4796,37 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_bytes_ml = "bytes.ml",
-    cst_index_out_of_bounds$3 = "index out of bounds",
-    caml_blit_bytes = runtime.caml_blit_bytes,
-    caml_bswap16 = runtime.caml_bswap16,
-    caml_bytes_get = runtime.caml_bytes_get,
-    caml_bytes_get16 = runtime.caml_bytes_get16,
-    caml_bytes_get32 = runtime.caml_bytes_get32,
-    caml_bytes_get64 = runtime.caml_bytes_get64,
-    caml_bytes_of_string = runtime.caml_bytes_of_string,
-    caml_bytes_set = runtime.caml_bytes_set,
-    caml_bytes_set16 = runtime.caml_bytes_set16,
-    caml_bytes_set32 = runtime.caml_bytes_set32,
-    caml_bytes_set64 = runtime.caml_bytes_set64,
-    caml_bytes_unsafe_get = runtime.caml_bytes_unsafe_get,
-    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_fill_bytes = runtime.caml_fill_bytes,
-    caml_int32_bswap = runtime.caml_int32_bswap,
-    caml_int64_bswap = runtime.caml_int64_bswap,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-    caml_string_of_bytes = runtime.caml_string_of_bytes,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_bytes_ml = "bytes.ml",
+     /*<<?>>*/ cst_index_out_of_bounds$3 = "index out of bounds",
+     /*<<?>>*/ caml_blit_bytes = runtime.caml_blit_bytes,
+     /*<<?>>*/ caml_bswap16 = runtime.caml_bswap16,
+     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
+     /*<<?>>*/ caml_bytes_get16 = runtime.caml_bytes_get16,
+     /*<<?>>*/ caml_bytes_get32 = runtime.caml_bytes_get32,
+     /*<<?>>*/ caml_bytes_get64 = runtime.caml_bytes_get64,
+     /*<<?>>*/ caml_bytes_of_string = runtime.caml_bytes_of_string,
+     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
+     /*<<?>>*/ caml_bytes_set16 = runtime.caml_bytes_set16,
+     /*<<?>>*/ caml_bytes_set32 = runtime.caml_bytes_set32,
+     /*<<?>>*/ caml_bytes_set64 = runtime.caml_bytes_set64,
+     /*<<?>>*/ caml_bytes_unsafe_get = runtime.caml_bytes_unsafe_get,
+     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_fill_bytes = runtime.caml_fill_bytes,
+     /*<<?>>*/ caml_int32_bswap = runtime.caml_int32_bswap,
+     /*<<?>>*/ caml_int64_bswap = runtime.caml_int64_bswap,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+     /*<<?>>*/ caml_string_of_bytes = runtime.caml_string_of_bytes,
+     /*<<?>>*/ 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){
+   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]);
@@ -4891,13 +4842,13 @@
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_Char = global_data.Stdlib__Char;
    function make(n, c){
-     /*<<bytes.ml:42:2>>*/  /*<<bytes.ml:42:10>>*/ var
+     /*<<bytes.ml:42:10>>*/ var
      s =  /*<<bytes.ml:42:10>>*/ caml_create_bytes(n);
      /*<<bytes.ml:43:2>>*/  /*<<bytes.ml:43:2>>*/ caml_fill_bytes(s, 0, n, c);
      /*<<bytes.ml:43:2>>*/ return s;
     /*<<bytes.ml:44:3>>*/ }
    function init(n, f){
-     /*<<bytes.ml:47:2>>*/ var
+    var
       /*<<bytes.ml:47:10>>*/ s =  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
       /*<<bytes.ml:48:2>>*/ _ap_ = n - 1 | 0,
       /*<<bytes.ml:47:10>>*/ _ao_ = 0;
@@ -4905,14 +4856,14 @@
      var i = _ao_;
      for(;;){
       caml_bytes_unsafe_set(s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
-       /*<<bytes.ml:48:2>>*/  /*<<bytes.ml:48:2>>*/ var _aq_ = i + 1 | 0;
+       /*<<bytes.ml:48:2>>*/ var _aq_ = i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
     }
      /*<<bytes.ml:51:2>>*/ return s;
     /*<<bytes.ml:51:3>>*/ }
-    /*<<bytes.ml:53:12>>*/ var
+   var
      /*<<bytes.ml:53:12>>*/ empty =
        /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
     cst_String_sub_Bytes_sub = "String.sub / Bytes.sub",
@@ -4932,7 +4883,7 @@
     cst_String_rcontains_from_Byte =
       "String.rcontains_from / Bytes.rcontains_from";
    function copy(s){
-     /*<<bytes.ml:56:2>>*/ var
+    var
      len = caml_ml_bytes_length(s),
       /*<<bytes.ml:57:10>>*/ r =
         /*<<bytes.ml:57:10>>*/ caml_create_bytes(len);
@@ -4950,7 +4901,7 @@
    function sub(s, ofs, len){
      /*<<bytes.ml:65:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs){
-      /*<<bytes.ml:68:12>>*/  /*<<bytes.ml:68:12>>*/ var
+      /*<<bytes.ml:68:12>>*/ var
       r =  /*<<bytes.ml:68:12>>*/ caml_create_bytes(len);
       /*<<bytes.ml:69:4>>*/  /*<<bytes.ml:69:4>>*/ caml_blit_bytes
       (s, ofs, r, 0, len);
@@ -4964,10 +4915,7 @@
             (sub(b, ofs, len));
     /*<<bytes.ml:73:59>>*/ }
    function symbol(a, b){
-     /*<<bytes.ml:77:2>>*/ var
-     c = a + b | 0,
-     _an_ = b < 0 ? 1 : 0,
-     match = c < 0 ? 1 : 0;
+    var c = a + b | 0, _an_ = b < 0 ? 1 : 0, match = c < 0 ? 1 : 0;
     a:
     {
      if(a < 0){if(_an_ && ! match) break a;} else if(! _an_ && match) break a;
@@ -4977,7 +4925,7 @@
             (Stdlib[1], cst_Bytes_extend);
     /*<<bytes.ml:81:10>>*/ }
    function extend(s, left, right){
-     /*<<bytes.ml:84:2>>*/ var
+    var
       /*<<bytes.ml:84:12>>*/ len =
        symbol(symbol(caml_ml_bytes_length(s), left), right),
       /*<<bytes.ml:85:10>>*/ r =
@@ -4986,7 +4934,7 @@
      var dstoff = left, srcoff = 0;
     else
      var dstoff = 0, srcoff = - left | 0;
-     /*<<bytes.ml:87:15>>*/  /*<<bytes.ml:87:15>>*/ var
+     /*<<bytes.ml:87:15>>*/ var
      cpylen =
         /*<<bytes.ml:87:15>>*/ caml_call2
         (Stdlib_Int[10],
@@ -5032,7 +4980,7 @@
             (Stdlib[1], cst_String_blit_Bytes_blit_str);
     /*<<bytes.ml:106:45>>*/ }
    function iter(f, a){
-     /*<<bytes.ml:110:2>>*/ var
+    var
      _al_ = caml_ml_bytes_length(a) - 1 | 0,
       /*<<bytes.ml:110:2>>*/ _ak_ = 0;
     if(_al_ >= 0){
@@ -5040,7 +4988,7 @@
      for(;;){
        /*<<bytes.ml:110:31>>*/  /*<<bytes.ml:110:31>>*/ caml_call1
        (f, caml_bytes_unsafe_get(a, i));
-       /*<<bytes.ml:110:31>>*/  /*<<bytes.ml:110:31>>*/ var _am_ = i + 1 | 0;
+       /*<<bytes.ml:110:31>>*/ var _am_ = i + 1 | 0;
       if(_al_ === i) break;
       i = _am_;
      }
@@ -5048,7 +4996,7 @@
     return 0;
     /*<<bytes.ml:110:53>>*/ }
    function iteri(f, a){
-     /*<<bytes.ml:114:2>>*/ var
+    var
      _ai_ = caml_ml_bytes_length(a) - 1 | 0,
       /*<<bytes.ml:114:2>>*/ _ah_ = 0;
     if(_ai_ >= 0){
@@ -5056,7 +5004,7 @@
      for(;;){
        /*<<bytes.ml:114:31>>*/  /*<<bytes.ml:114:31>>*/ caml_call2
        (f, i, caml_bytes_unsafe_get(a, i));
-       /*<<bytes.ml:114:31>>*/  /*<<bytes.ml:114:31>>*/ var _aj_ = i + 1 | 0;
+       /*<<bytes.ml:114:31>>*/ var _aj_ = i + 1 | 0;
       if(_ai_ === i) break;
       i = _aj_;
      }
@@ -5090,7 +5038,7 @@
      }
      var _ag_ = caml_ml_bytes_length(hd) + acc | 0;
     }
-     /*<<bytes.ml:136:12>>*/ var
+    var
       /*<<bytes.ml:136:12>>*/ dst =
         /*<<bytes.ml:136:12>>*/ caml_create_bytes(_ag_),
      pos = pos$1,
@@ -5114,7 +5062,7 @@
     }
    }
    function cat(s1, s2){
-     /*<<bytes.ml:140:2>>*/ var
+    var
      l1 = caml_ml_bytes_length(s1),
       /*<<bytes.ml:141:2>>*/ l2 =
         /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length(s2),
@@ -5127,8 +5075,7 @@
      /*<<bytes.ml:144:2>>*/ return r;
     /*<<bytes.ml:145:3>>*/ }
    function is_space(param){
-     /*<<bytes.ml:151:15>>*/  /*<<bytes.ml:151:15>>*/ var
-     _af_ = param - 9 | 0;
+     /*<<bytes.ml:151:15>>*/ var _af_ = param - 9 | 0;
     a:
     {
      if(4 < _af_ >>> 0){if(23 !== _af_) break a;} else if(2 === _af_) break a;
@@ -5137,24 +5084,21 @@
      /*<<bytes.ml:153:9>>*/ return 0;
     /*<<bytes.ml:153:14>>*/ }
    function trim(s){
-     /*<<bytes.ml:156:2>>*/ var
-     len = caml_ml_bytes_length(s),
-      /*<<bytes.ml:157:10>>*/ i = [0, 0];
+    var len = caml_ml_bytes_length(s),  /*<<bytes.ml:157:10>>*/ i = [0, 0];
     for(;;){
      if(i[1] >= len) break;
       /*<<bytes.ml:158:20>>*/ if(! is_space(caml_bytes_unsafe_get(s, i[1])))
       break;
      i[1]++;
     }
-     /*<<bytes.ml:161:10>>*/  /*<<bytes.ml:161:10>>*/ var
-     j = [0, len - 1 | 0];
+     /*<<bytes.ml:161:10>>*/ var j = [0, len - 1 | 0];
     for(;;){
      if(i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
      return i[1] <= j[1] ? sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0) : empty;
     }
     /*<<bytes.ml:168:9>>*/ }
    function unsafe_escape(s){
-     /*<<bytes.ml:184:2>>*/ var
+    var
       /*<<bytes.ml:184:10>>*/ n = [0, 0],
      ___ = caml_ml_bytes_length(s) - 1 | 0,
       /*<<bytes.ml:184:10>>*/ _Z_ = 0;
@@ -5188,16 +5132,16 @@
        var _ad_ = 2;
       }
       n[1] = n[1] + _ad_ | 0;
-       /*<<bytes.ml:185:2>>*/  /*<<bytes.ml:185:2>>*/ var _ae_ = i$0 + 1 | 0;
+       /*<<bytes.ml:185:2>>*/ var _ae_ = i$0 + 1 | 0;
       if(___ === i$0) break;
       i$0 = _ae_;
      }
     }
     if(n[1] === caml_ml_bytes_length(s))  /*<<bytes.ml:192:24>>*/ return s;
-     /*<<bytes.ml:194:13>>*/  /*<<bytes.ml:194:13>>*/ var
+     /*<<bytes.ml:194:13>>*/ var
      s$0 =  /*<<bytes.ml:194:13>>*/ caml_create_bytes(n[1]);
     n[1] = 0;
-     /*<<bytes.ml:196:4>>*/ var
+    var
      _aa_ = caml_ml_bytes_length(s) - 1 | 0,
       /*<<bytes.ml:196:4>>*/ _$_ = 0;
     if(_aa_ >= 0){
@@ -5259,7 +5203,7 @@
        caml_bytes_unsafe_set(s$0, n[1], c);
       }
       n[1]++;
-       /*<<bytes.ml:196:4>>*/  /*<<bytes.ml:196:4>>*/ var _ab_ = i + 1 | 0;
+       /*<<bytes.ml:196:4>>*/ var _ab_ = i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
@@ -5267,13 +5211,13 @@
      /*<<bytes.ml:221:4>>*/ return s$0;
     /*<<bytes.ml:222:5>>*/ }
    function escaped(b){
-     /*<<bytes.ml:225:2>>*/  /*<<bytes.ml:225:10>>*/ var b$0 = copy(b);
+     /*<<bytes.ml:225:10>>*/ var b$0 = copy(b);
      /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0);
     /*<<bytes.ml:228:17>>*/ }
    function map(f, s){
-     /*<<bytes.ml:231:2>>*/ var l = caml_ml_bytes_length(s);
+    var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
-     /*<<bytes.ml:233:12>>*/ var
+    var
       /*<<bytes.ml:233:12>>*/ r =
         /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
       /*<<bytes.ml:234:4>>*/ _X_ = l - 1 | 0,
@@ -5285,7 +5229,7 @@
        (r,
         i,
          /*<<bytes.ml:234:41>>*/ caml_call1(f, caml_bytes_unsafe_get(s, i)));
-       /*<<bytes.ml:234:4>>*/  /*<<bytes.ml:234:4>>*/ var _Y_ = i + 1 | 0;
+       /*<<bytes.ml:234:4>>*/ var _Y_ = i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
@@ -5293,9 +5237,9 @@
      /*<<bytes.ml:235:4>>*/ return r;
     /*<<bytes.ml:236:5>>*/ }
    function mapi(f, s){
-     /*<<bytes.ml:239:2>>*/ var l = caml_ml_bytes_length(s);
+    var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
-     /*<<bytes.ml:241:12>>*/ var
+    var
       /*<<bytes.ml:241:12>>*/ r =
         /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
       /*<<bytes.ml:242:4>>*/ _U_ = l - 1 | 0,
@@ -5307,7 +5251,7 @@
        (r,
         i,
          /*<<bytes.ml:242:41>>*/ caml_call2(f, i, caml_bytes_unsafe_get(s, i)));
-       /*<<bytes.ml:242:4>>*/  /*<<bytes.ml:242:4>>*/ var _V_ = i + 1 | 0;
+       /*<<bytes.ml:242:4>>*/ var _V_ = i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -5315,7 +5259,7 @@
      /*<<bytes.ml:243:4>>*/ return r;
     /*<<bytes.ml:244:5>>*/ }
    function fold_left(f, x, a){
-     /*<<bytes.ml:247:2>>*/ var
+    var
       /*<<bytes.ml:247:10>>*/ r = [0, x],
      _R_ = caml_ml_bytes_length(a) - 1 | 0,
       /*<<bytes.ml:247:10>>*/ _Q_ = 0;
@@ -5325,7 +5269,7 @@
       r[1] =
         /*<<bytes.ml:249:9>>*/ caml_call2
         (f, r[1], caml_bytes_unsafe_get(a, i));
-       /*<<bytes.ml:248:2>>*/  /*<<bytes.ml:248:2>>*/ var _S_ = i + 1 | 0;
+       /*<<bytes.ml:248:2>>*/ var _S_ = i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
@@ -5333,7 +5277,7 @@
     return r[1];
     /*<<bytes.ml:251:4>>*/ }
    function fold_right(f, a, x){
-     /*<<bytes.ml:254:2>>*/ var
+    var
       /*<<bytes.ml:254:10>>*/ r = [0, x],
       /*<<bytes.ml:255:2>>*/ _O_ =
         /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length(a) - 1 | 0;
@@ -5343,7 +5287,7 @@
       r[1] =
         /*<<bytes.ml:256:9>>*/ caml_call2
         (f, caml_bytes_unsafe_get(a, i), r[1]);
-       /*<<bytes.ml:255:2>>*/  /*<<bytes.ml:255:2>>*/ var _P_ = i - 1 | 0;
+       /*<<bytes.ml:255:2>>*/ var _P_ = i - 1 | 0;
       if(0 === i) break;
       i = _P_;
      }
@@ -5351,24 +5295,24 @@
     return r[1];
     /*<<bytes.ml:258:4>>*/ }
    function exists(p, s){
-     /*<<bytes.ml:261:2>>*/ var n = caml_ml_bytes_length(s), i = 0;
+    var n = caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:263:4>>*/ for(;;){
      if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
       /*<<bytes.ml:264:12>>*/ if
       ( /*<<bytes.ml:264:12>>*/ caml_call1(p, caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:264:36>>*/ return 1;
-      /*<<bytes.ml:265:9>>*/  /*<<bytes.ml:265:9>>*/ var i$0 = i + 1 | 0;
+      /*<<bytes.ml:265:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:266:8>>*/ }
    function for_all(p, s){
-     /*<<bytes.ml:269:2>>*/ var n = caml_ml_bytes_length(s), i = 0;
+    var n = caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
       /*<<bytes.ml:272:12>>*/ if
       (!  /*<<bytes.ml:272:12>>*/ caml_call1(p, caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:273:9>>*/ return 0;
-      /*<<bytes.ml:272:36>>*/  /*<<bytes.ml:272:36>>*/ var i$0 = i + 1 | 0;
+      /*<<bytes.ml:272:36>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:274:8>>*/ }
@@ -5381,7 +5325,7 @@
    function apply1(f, s){
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
       /*<<bytes.ml:280:23>>*/ return s;
-     /*<<bytes.ml:281:12>>*/  /*<<bytes.ml:281:12>>*/ var r = copy(s);
+     /*<<bytes.ml:281:12>>*/ var r = copy(s);
     caml_bytes_unsafe_set
      (r,
       0,
@@ -5395,7 +5339,7 @@
      /*<<bytes.ml:287:27>>*/ return apply1(Stdlib_Char[3], s);
     /*<<bytes.ml:287:56>>*/ }
    function starts_with(prefix, s){
-     /*<<bytes.ml:291:2>>*/ var
+    var
      len_s = caml_ml_bytes_length(s),
      len_pre = caml_ml_bytes_length(prefix),
      _N_ = len_pre <= len_s ? 1 : 0;
@@ -5405,12 +5349,12 @@
      if(i === len_pre)  /*<<bytes.ml:294:24>>*/ return 1;
      if(caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
        /*<<bytes.ml:295:55>>*/ return 0;
-      /*<<bytes.ml:296:9>>*/  /*<<bytes.ml:296:9>>*/ var i$0 = i + 1 | 0;
+      /*<<bytes.ml:296:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:297:30>>*/ }
    function ends_with(suffix, s){
-     /*<<bytes.ml:301:2>>*/ var
+    var
      len_s = caml_ml_bytes_length(s),
      len_suf = caml_ml_bytes_length(suffix),
      diff = len_s - len_suf | 0,
@@ -5423,12 +5367,12 @@
       (caml_bytes_unsafe_get(s, diff + i | 0)
        !== caml_bytes_unsafe_get(suffix, i))
        /*<<bytes.ml:306:64>>*/ return 0;
-      /*<<bytes.ml:307:9>>*/  /*<<bytes.ml:307:9>>*/ var i$0 = i + 1 | 0;
+      /*<<bytes.ml:307:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:308:23>>*/ }
    function index_rec(s, lim, i, c){
-     /*<<bytes.ml:312:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<bytes.ml:312:2>>*/ for(;;){
      if(lim <= i$0)
        /*<<bytes.ml:312:19>>*/ throw  /*<<bytes.ml:312:19>>*/ caml_maybe_attach_backtrace
@@ -5444,7 +5388,7 @@
             (s, caml_ml_bytes_length(s), 0, c);
     /*<<bytes.ml:316:42>>*/ }
    function index_rec_opt(s, lim, i, c){
-     /*<<bytes.ml:320:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<bytes.ml:320:2>>*/ for(;;){
      if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
      if(caml_bytes_unsafe_get(s, i$0) === c)
@@ -5458,21 +5402,21 @@
             (s, caml_ml_bytes_length(s), 0, c);
     /*<<bytes.ml:324:50>>*/ }
    function index_from(s, i, c){
-     /*<<bytes.ml:328:2>>*/ var l = caml_ml_bytes_length(s);
+    var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c);
      /*<<bytes.ml:329:25>>*/ return  /*<<bytes.ml:329:25>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_Bytes_in);
     /*<<bytes.ml:330:19>>*/ }
    function index_from_opt(s, i, c){
-     /*<<bytes.ml:334:2>>*/ var l = caml_ml_bytes_length(s);
+    var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c);
      /*<<bytes.ml:336:4>>*/ return  /*<<bytes.ml:336:4>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_opt_Byte);
     /*<<bytes.ml:338:25>>*/ }
    function rindex_rec(s, i, c){
-     /*<<bytes.ml:342:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<bytes.ml:342:2>>*/ for(;;){
      if(0 > i$0)
        /*<<bytes.ml:342:16>>*/ throw  /*<<bytes.ml:342:16>>*/ caml_maybe_attach_backtrace
@@ -5494,7 +5438,7 @@
             (Stdlib[1], cst_String_rindex_from_Bytes_r);
     /*<<bytes.ml:353:20>>*/ }
    function rindex_rec_opt(s, i, c){
-     /*<<bytes.ml:357:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<bytes.ml:357:2>>*/ for(;;){
      if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
      if(caml_bytes_unsafe_get(s, i$0) === c)
@@ -5514,11 +5458,11 @@
             (Stdlib[1], cst_String_rindex_from_opt_Byt);
     /*<<bytes.ml:368:24>>*/ }
    function contains_from(s, i, c){
-     /*<<bytes.ml:373:2>>*/ var l = caml_ml_bytes_length(s);
+    var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:377:4>>*/ try{
        /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
-       /*<<bytes.ml:377:36>>*/  /*<<bytes.ml:377:36>>*/ var _K_ = 1;
+       /*<<bytes.ml:377:36>>*/ var _K_ = 1;
        /*<<bytes.ml:377:36>>*/ return _K_;
      }
      catch(_L_){
@@ -5536,7 +5480,7 @@
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:388:4>>*/ try{
        /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
-       /*<<bytes.ml:388:35>>*/  /*<<bytes.ml:388:35>>*/ var _H_ = 1;
+       /*<<bytes.ml:388:35>>*/ var _H_ = 1;
        /*<<bytes.ml:388:35>>*/ return _H_;
      }
      catch(_I_){
@@ -5551,7 +5495,7 @@
     compare = runtime.caml_bytes_compare,
     cst_Bytes_of_seq_cannot_grow_b = "Bytes.of_seq: cannot grow bytes";
    function split_on_char(sep, s){
-     /*<<bytes.ml:398:2>>*/ var
+    var
       /*<<bytes.ml:398:10>>*/ r = [0, 0],
       /*<<bytes.ml:399:10>>*/ j =
        [0,  /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length(s)],
@@ -5565,7 +5509,7 @@
        r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _E_];
        j[1] = i;
       }
-       /*<<bytes.ml:400:2>>*/  /*<<bytes.ml:400:2>>*/ var _F_ = i - 1 | 0;
+       /*<<bytes.ml:400:2>>*/ var _F_ = i - 1 | 0;
       if(0 === i) break;
       i = _F_;
      }
@@ -5577,7 +5521,7 @@
     function aux(i, param){
       /*<<bytes.ml:412:4>>*/ if(i === caml_ml_bytes_length(s))
        /*<<bytes.ml:412:25>>*/ return 0;
-      /*<<bytes.ml:414:14>>*/ var
+     var
        /*<<bytes.ml:414:14>>*/ x =
          /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i),
        /*<<bytes.ml:414:14>>*/ _A_ = i + 1 | 0;
@@ -5593,7 +5537,7 @@
     function aux(i, param){
       /*<<bytes.ml:421:4>>*/ if(i === caml_ml_bytes_length(s))
        /*<<bytes.ml:421:25>>*/ return 0;
-      /*<<bytes.ml:423:14>>*/ var
+     var
        /*<<bytes.ml:423:14>>*/ x =
          /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i),
        /*<<bytes.ml:423:14>>*/ _w_ = i + 1 | 0;
@@ -5606,14 +5550,14 @@
       /*<<?>>*/ return aux(_u_, _v_);};
     /*<<bytes.ml:426:7>>*/ }
    function of_seq(i){
-     /*<<bytes.ml:429:2>>*/ var
+    var
       /*<<bytes.ml:429:10>>*/ n = [0, 0],
       /*<<bytes.ml:430:12>>*/ buf = [0, make(256, 0)];
      /*<<bytes.ml:439:2>>*/  /*<<bytes.ml:439:2>>*/ caml_call2
      (Stdlib_Seq[4],
       function(c){
         /*<<bytes.ml:441:7>>*/ if(n[1] === caml_ml_bytes_length(buf[1])){
-         /*<<bytes.ml:433:18>>*/  /*<<bytes.ml:433:18>>*/ var
+         /*<<bytes.ml:433:18>>*/ var
          new_len =
             /*<<bytes.ml:433:18>>*/ caml_call2
             (Stdlib_Int[10],
@@ -5622,8 +5566,7 @@
         if(caml_ml_bytes_length(buf[1]) === new_len)
           /*<<bytes.ml:434:34>>*/  /*<<bytes.ml:434:34>>*/ caml_call1
           (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
-         /*<<bytes.ml:435:18>>*/  /*<<bytes.ml:435:18>>*/ var
-         new_buf = make(new_len, 0);
+         /*<<bytes.ml:435:18>>*/ var new_buf = make(new_len, 0);
          /*<<bytes.ml:436:4>>*/ blit(buf[1], 0, new_buf, 0, n[1]);
         buf[1] = new_buf;
        }
@@ -5648,7 +5591,7 @@
               ( /*<<bytes.ml:477:14>>*/ caml_bytes_get16(b, i));
     /*<<bytes.ml:477:40>>*/ }
    function get_int8(b, i){
-     /*<<bytes.ml:480:2>>*/ var
+    var
       /*<<bytes.ml:480:2>>*/ _s_ = Stdlib_Sys[10] - 8 | 0,
      _t_ = Stdlib_Sys[10] - 8 | 0;
     return  /*<<bytes.ml:480:3>>*/ caml_bytes_get(b, i) << _t_ >> _s_;
@@ -5666,19 +5609,19 @@
               ( /*<<bytes.ml:487:36>>*/ caml_bytes_get16(b, i));
     /*<<bytes.ml:488:24>>*/ }
    function get_int16_ne(b, i){
-     /*<<bytes.ml:491:2>>*/ var
+    var
       /*<<bytes.ml:491:2>>*/ _q_ = Stdlib_Sys[10] - 16 | 0,
      _r_ = Stdlib_Sys[10] - 16 | 0;
     return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16(b, i) << _r_ >> _q_;
     /*<<bytes.ml:491:71>>*/ }
    function get_int16_le(b, i){
-     /*<<bytes.ml:494:2>>*/ var
+    var
       /*<<bytes.ml:494:2>>*/ _o_ = Stdlib_Sys[10] - 16 | 0,
      _p_ = Stdlib_Sys[10] - 16 | 0;
     return get_uint16_le(b, i) << _p_ >> _o_;
     /*<<bytes.ml:494:71>>*/ }
    function get_int16_be(b, i){
-     /*<<bytes.ml:497:2>>*/ var
+    var
       /*<<bytes.ml:497:2>>*/ _m_ = Stdlib_Sys[10] - 16 | 0,
      _n_ = Stdlib_Sys[10] - 16 | 0;
     return get_uint16_be(b, i) << _n_ >> _m_;
@@ -5772,7 +5715,7 @@
     _e_ = [0, cst_bytes_ml, 831, 9],
     _f_ = [0, cst_bytes_ml, 820, 20];
    function dec_ret(n, u){
-     /*<<bytes.ml:557:27>>*/  /*<<bytes.ml:557:46>>*/ var
+     /*<<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_);
@@ -5787,9 +5730,7 @@
      /*<<bytes.ml:577:35>>*/ return 4 !== (b >>> 5 | 0) ? 1 : 0;
     /*<<bytes.ml:577:51>>*/ }
    function not_in_x90_to_xBF(b){
-     /*<<bytes.ml:578:35>>*/ var
-     _j_ = b < 144 ? 1 : 0,
-     _k_ = _j_ || (191 < b ? 1 : 0);
+    var _j_ = b < 144 ? 1 : 0, _k_ = _j_ || (191 < b ? 1 : 0);
     return _k_;
     /*<<bytes.ml:578:55>>*/ }
    function not_in_x80_to_x8F(b){
@@ -5804,7 +5745,7 @@
            | b3 & 63;
     /*<<bytes.ml:594:18>>*/ }
    function get_utf_8_uchar(b, i){
-     /*<<bytes.ml:597:2>>*/ var
+    var
       /*<<bytes.ml:597:11>>*/ b0 =
         /*<<bytes.ml:597:11>>*/ caml_bytes_get(b, i),
       /*<<bytes.ml:599:2>>*/ max =
@@ -5816,7 +5757,7 @@
        if(245 <= b0) break a;
        switch(b0 - 237 | 0){
          case 0:
-           /*<<bytes.ml:619:6>>*/  /*<<bytes.ml:619:6>>*/ var i$0 = i + 1 | 0;
+           /*<<bytes.ml:619:6>>*/ var i$0 = i + 1 | 0;
           if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return  /*<<bytes.ml:619:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5824,8 +5765,7 @@
            /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return  /*<<bytes.ml:620:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:621:6>>*/  /*<<bytes.ml:621:6>>*/ var
-           i$1 = i$0 + 1 | 0;
+           /*<<bytes.ml:621:6>>*/ var i$1 = i$0 + 1 | 0;
           if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return  /*<<bytes.ml:621:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5834,7 +5774,7 @@
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
                   : dec_ret(3, utf_8_uchar_3(b0, b1$4, b2$3));
          case 3:
-           /*<<bytes.ml:625:6>>*/  /*<<bytes.ml:625:6>>*/ var i$4 = i + 1 | 0;
+           /*<<bytes.ml:625:6>>*/ var i$4 = i + 1 | 0;
           if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return  /*<<bytes.ml:625:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5842,8 +5782,7 @@
            /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return  /*<<bytes.ml:626:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:627:6>>*/  /*<<bytes.ml:627:6>>*/ var
-           i$5 = i$4 + 1 | 0;
+           /*<<bytes.ml:627:6>>*/ var i$5 = i$4 + 1 | 0;
           if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return  /*<<bytes.ml:627:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5851,8 +5790,7 @@
            /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return  /*<<bytes.ml:628:55>>*/ caml_call1
                    (dec_invalid, 2);
-           /*<<bytes.ml:629:6>>*/  /*<<bytes.ml:629:6>>*/ var
-           i$6 = i$5 + 1 | 0;
+           /*<<bytes.ml:629:6>>*/ var i$6 = i$5 + 1 | 0;
           if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return  /*<<bytes.ml:629:39>>*/ caml_call1
                    (dec_invalid, 3);
@@ -5861,8 +5799,7 @@
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
                   : dec_ret(4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1));
          case 7:
-           /*<<bytes.ml:641:6>>*/  /*<<bytes.ml:641:6>>*/ var
-           i$10 = i + 1 | 0;
+           /*<<bytes.ml:641:6>>*/ var i$10 = i + 1 | 0;
           if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return  /*<<bytes.ml:641:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5870,8 +5807,7 @@
            /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return  /*<<bytes.ml:642:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:643:6>>*/  /*<<bytes.ml:643:6>>*/ var
-           i$11 = i$10 + 1 | 0;
+           /*<<bytes.ml:643:6>>*/ var i$11 = i$10 + 1 | 0;
           if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return  /*<<bytes.ml:643:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5879,8 +5815,7 @@
            /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return  /*<<bytes.ml:644:55>>*/ caml_call1
                    (dec_invalid, 2);
-           /*<<bytes.ml:645:6>>*/  /*<<bytes.ml:645:6>>*/ var
-           i$12 = i$11 + 1 | 0;
+           /*<<bytes.ml:645:6>>*/ var i$12 = i$11 + 1 | 0;
           if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return  /*<<bytes.ml:645:39>>*/ caml_call1
                    (dec_invalid, 3);
@@ -5891,7 +5826,7 @@
          case 1:
          case 2: break;
          default:
-           /*<<bytes.ml:633:6>>*/  /*<<bytes.ml:633:6>>*/ var i$7 = i + 1 | 0;
+           /*<<bytes.ml:633:6>>*/ var i$7 = i + 1 | 0;
           if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return  /*<<bytes.ml:633:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5899,8 +5834,7 @@
            /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return  /*<<bytes.ml:634:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:635:6>>*/  /*<<bytes.ml:635:6>>*/ var
-           i$8 = i$7 + 1 | 0;
+           /*<<bytes.ml:635:6>>*/ var i$8 = i$7 + 1 | 0;
           if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return  /*<<bytes.ml:635:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5908,8 +5842,7 @@
            /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return  /*<<bytes.ml:636:55>>*/ caml_call1
                    (dec_invalid, 2);
-           /*<<bytes.ml:637:6>>*/  /*<<bytes.ml:637:6>>*/ var
-           i$9 = i$8 + 1 | 0;
+           /*<<bytes.ml:637:6>>*/ var i$9 = i$8 + 1 | 0;
           if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return  /*<<bytes.ml:637:39>>*/ caml_call1
                    (dec_invalid, 3);
@@ -5920,7 +5853,7 @@
        }
       }
       else if(225 > b0){
-        /*<<bytes.ml:607:6>>*/  /*<<bytes.ml:607:6>>*/ var i$13 = i + 1 | 0;
+        /*<<bytes.ml:607:6>>*/ var i$13 = i + 1 | 0;
        if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return  /*<<bytes.ml:607:39>>*/ caml_call1
                 (dec_invalid, 1);
@@ -5928,8 +5861,7 @@
         /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return  /*<<bytes.ml:608:55>>*/ caml_call1
                 (dec_invalid, 1);
-        /*<<bytes.ml:609:6>>*/  /*<<bytes.ml:609:6>>*/ var
-        i$14 = i$13 + 1 | 0;
+        /*<<bytes.ml:609:6>>*/ var i$14 = i$13 + 1 | 0;
        if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return  /*<<bytes.ml:609:39>>*/ caml_call1
                 (dec_invalid, 2);
@@ -5938,7 +5870,7 @@
                ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
                : dec_ret(3, utf_8_uchar_3(b0, b1$5, b2$4));
       }
-       /*<<bytes.ml:613:6>>*/  /*<<bytes.ml:613:6>>*/ var i$2 = i + 1 | 0;
+       /*<<bytes.ml:613:6>>*/ var i$2 = i + 1 | 0;
       if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return  /*<<bytes.ml:613:39>>*/ caml_call1
                (dec_invalid, 1);
@@ -5946,7 +5878,7 @@
        /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return  /*<<bytes.ml:614:55>>*/ caml_call1
                (dec_invalid, 1);
-       /*<<bytes.ml:615:6>>*/  /*<<bytes.ml:615:6>>*/ var i$3 = i$2 + 1 | 0;
+       /*<<bytes.ml:615:6>>*/ var i$3 = i$2 + 1 | 0;
       if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return  /*<<bytes.ml:615:39>>*/ caml_call1
                (dec_invalid, 2);
@@ -5957,7 +5889,7 @@
      }
      if(128 > b0)  /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0);
      if(194 <= b0){
-       /*<<bytes.ml:603:6>>*/  /*<<bytes.ml:603:6>>*/ var i$15 = i + 1 | 0;
+       /*<<bytes.ml:603:6>>*/ var i$15 = i + 1 | 0;
       if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return  /*<<bytes.ml:603:39>>*/ caml_call1
                (dec_invalid, 1);
@@ -5971,10 +5903,10 @@
             (dec_invalid, 1);
     /*<<bytes.ml:648:22>>*/ }
    function set_utf_8_uchar(b, i, u){
-     /*<<bytes.ml:651:2>>*/ function set(_i_, _h_, _g_){
+    function set(_i_, _h_, _g_){
       /*<<?>>*/ caml_bytes_unsafe_set(_i_, _h_, _g_);
     }
-     /*<<bytes.ml:652:2>>*/ var
+    var
       /*<<bytes.ml:652:2>>*/ max =
         /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length(b) - 1 | 0,
       /*<<bytes.ml:653:8>>*/ u$0 =
@@ -5987,7 +5919,7 @@
       /*<<bytes.ml:656:6>>*/ return 1;
     }
      /*<<bytes.ml:658:11>>*/ if(2047 >= u$0){
-      /*<<bytes.ml:659:6>>*/  /*<<bytes.ml:659:6>>*/ var last$1 = i + 1 | 0;
+      /*<<bytes.ml:659:6>>*/ var last$1 = i + 1 | 0;
      return max < last$1
              ? 0
              : (caml_bytes_set
@@ -5996,7 +5928,7 @@
                2);
     }
      /*<<bytes.ml:664:11>>*/ if(65535 >= u$0){
-      /*<<bytes.ml:665:6>>*/  /*<<bytes.ml:665:6>>*/ var last$0 = i + 2 | 0;
+      /*<<bytes.ml:665:6>>*/ var last$0 = i + 2 | 0;
      return max < last$0
              ? 0
              : (caml_bytes_set
@@ -6008,7 +5940,7 @@
      /*<<bytes.ml:671:11>>*/ if(1114111 < u$0)
       /*<<bytes.ml:679:9>>*/ throw  /*<<bytes.ml:679:9>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _a_], 1);
-     /*<<bytes.ml:672:6>>*/  /*<<bytes.ml:672:6>>*/ var last = i + 3 | 0;
+     /*<<bytes.ml:672:6>>*/ var last = i + 3 | 0;
     return max < last
             ? 0
             : (caml_bytes_set
@@ -6019,7 +5951,7 @@
               4);
     /*<<bytes.ml:679:21>>*/ }
    function is_valid_utf_8(b){
-     /*<<bytes.ml:682:2>>*/ var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
+    var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:683:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:683:20>>*/ return 1;
      var match = caml_bytes_unsafe_get(b, i);
@@ -6030,23 +5962,20 @@
         if(245 <= match) break a;
         switch(match - 237 | 0){
           case 0:
-            /*<<bytes.ml:708:8>>*/  /*<<bytes.ml:708:8>>*/ var
-            last = i + 2 | 0;
+            /*<<bytes.ml:708:8>>*/ var last = i + 2 | 0;
            if
             (max >= last
              &&
               !
               not_in_x80_to_x9F(caml_bytes_unsafe_get(b, i + 1 | 0))
               && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last))){
-             /*<<bytes.ml:713:13>>*/  /*<<bytes.ml:713:13>>*/ var
-             i$0 = last + 1 | 0;
+             /*<<bytes.ml:713:13>>*/ var i$0 = last + 1 | 0;
             i = i$0;
             continue;
            }
             /*<<bytes.ml:712:13>>*/ return 0;
           case 3:
-            /*<<bytes.ml:715:8>>*/  /*<<bytes.ml:715:8>>*/ var
-            last$1 = i + 3 | 0;
+            /*<<bytes.ml:715:8>>*/ var last$1 = i + 3 | 0;
            if
             (max >= last$1
              &&
@@ -6056,15 +5985,13 @@
                !
                not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
                && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$1))){
-             /*<<bytes.ml:721:13>>*/  /*<<bytes.ml:721:13>>*/ var
-             i$2 = last$1 + 1 | 0;
+             /*<<bytes.ml:721:13>>*/ var i$2 = last$1 + 1 | 0;
             i = i$2;
             continue;
            }
             /*<<bytes.ml:720:13>>*/ return 0;
           case 7:
-            /*<<bytes.ml:731:8>>*/  /*<<bytes.ml:731:8>>*/ var
-            last$3 = i + 3 | 0;
+            /*<<bytes.ml:731:8>>*/ var last$3 = i + 3 | 0;
            if
             (max >= last$3
              &&
@@ -6074,8 +6001,7 @@
                !
                not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
                && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$3))){
-             /*<<bytes.ml:737:13>>*/  /*<<bytes.ml:737:13>>*/ var
-             i$4 = last$3 + 1 | 0;
+             /*<<bytes.ml:737:13>>*/ var i$4 = last$3 + 1 | 0;
             i = i$4;
             continue;
            }
@@ -6083,8 +6009,7 @@
           case 1:
           case 2: break;
           default:
-            /*<<bytes.ml:723:8>>*/  /*<<bytes.ml:723:8>>*/ var
-            last$2 = i + 3 | 0;
+            /*<<bytes.ml:723:8>>*/ var last$2 = i + 3 | 0;
            if
             (max >= last$2
              &&
@@ -6094,8 +6019,7 @@
                !
                not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
                && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$2))){
-             /*<<bytes.ml:729:13>>*/  /*<<bytes.ml:729:13>>*/ var
-             i$3 = last$2 + 1 | 0;
+             /*<<bytes.ml:729:13>>*/ var i$3 = last$2 + 1 | 0;
             i = i$3;
             continue;
            }
@@ -6103,47 +6027,43 @@
         }
        }
        else if(225 > match){
-         /*<<bytes.ml:694:8>>*/  /*<<bytes.ml:694:8>>*/ var
-         last$4 = i + 2 | 0;
+         /*<<bytes.ml:694:8>>*/ var last$4 = i + 2 | 0;
         if
          (max >= last$4
           &&
            !
            not_in_xA0_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
            && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$4))){
-          /*<<bytes.ml:699:13>>*/  /*<<bytes.ml:699:13>>*/ var
-          i$5 = last$4 + 1 | 0;
+          /*<<bytes.ml:699:13>>*/ var i$5 = last$4 + 1 | 0;
          i = i$5;
          continue;
         }
          /*<<bytes.ml:698:13>>*/ return 0;
        }
-        /*<<bytes.ml:701:8>>*/  /*<<bytes.ml:701:8>>*/ var last$0 = i + 2 | 0;
+        /*<<bytes.ml:701:8>>*/ var last$0 = i + 2 | 0;
        if
         (max >= last$0
          &&
           !
           not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
           && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$0))){
-         /*<<bytes.ml:706:13>>*/  /*<<bytes.ml:706:13>>*/ var
-         i$1 = last$0 + 1 | 0;
+         /*<<bytes.ml:706:13>>*/ var i$1 = last$0 + 1 | 0;
         i = i$1;
         continue;
        }
         /*<<bytes.ml:705:13>>*/ return 0;
       }
       if(128 > match){
-        /*<<bytes.ml:686:26>>*/  /*<<bytes.ml:686:26>>*/ var i$7 = i + 1 | 0;
+        /*<<bytes.ml:686:26>>*/ var i$7 = i + 1 | 0;
        i = i$7;
        continue;
       }
       if(194 <= match){
-        /*<<bytes.ml:688:8>>*/  /*<<bytes.ml:688:8>>*/ var last$5 = i + 1 | 0;
+        /*<<bytes.ml:688:8>>*/ var last$5 = i + 1 | 0;
        if
         (max >= last$5
          && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$5))){
-         /*<<bytes.ml:692:13>>*/  /*<<bytes.ml:692:13>>*/ var
-         i$6 = last$5 + 1 | 0;
+         /*<<bytes.ml:692:13>>*/ var i$6 = last$5 + 1 | 0;
         i = i$6;
         continue;
        }
@@ -6154,22 +6074,20 @@
     }
     /*<<bytes.ml:740:25>>*/ }
    function get_utf_16be_uchar(b, i){
-     /*<<bytes.ml:745:2>>*/  /*<<bytes.ml:746:2>>*/ var
+     /*<<bytes.ml:746:2>>*/ var
      max =  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
               (dec_invalid, 1);
-      /*<<bytes.ml:749:8>>*/  /*<<bytes.ml:749:8>>*/ var
-      hi = unsafe_get_uint16_be(b, i);
+      /*<<bytes.ml:749:8>>*/ var hi = unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
                (dec_invalid, 2);
-       /*<<bytes.ml:753:6>>*/  /*<<bytes.ml:753:6>>*/ var last = i + 3 | 0;
+       /*<<bytes.ml:753:6>>*/ var last = i + 3 | 0;
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
-       /*<<bytes.ml:755:12>>*/  /*<<bytes.ml:755:12>>*/ var
-       lo = unsafe_get_uint16_be(b, i + 2 | 0);
+       /*<<bytes.ml:755:12>>*/ var lo = unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:759:10>>*/ return dec_ret(4, u);
@@ -6183,24 +6101,24 @@
             (Stdlib[1], cst_index_out_of_bounds);
     /*<<bytes.ml:759:21>>*/ }
    function set_utf_16be_uchar(b, i, u){
-     /*<<bytes.ml:762:2>>*/  /*<<bytes.ml:763:2>>*/ var
+     /*<<bytes.ml:763:2>>*/ var
      max =  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:764:2>>*/ if(0 <= i && max >= i){
-      /*<<bytes.ml:765:8>>*/  /*<<bytes.ml:765:8>>*/ var
+      /*<<bytes.ml:765:8>>*/ var
       u$0 =  /*<<bytes.ml:765:8>>*/ caml_call1(Stdlib_Uchar[10], u);
       /*<<bytes.ml:766:11>>*/ if(0 > u$0)
        /*<<bytes.ml:766:20>>*/ throw  /*<<bytes.ml:766:20>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
-       /*<<bytes.ml:768:6>>*/  /*<<bytes.ml:768:6>>*/ var last$0 = i + 1 | 0;
+       /*<<bytes.ml:768:6>>*/ var last$0 = i + 1 | 0;
       return max < last$0 ? 0 : (unsafe_set_uint16_be(b, i, u$0), 2);
      }
       /*<<bytes.ml:770:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:777:9>>*/ throw  /*<<bytes.ml:777:9>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _c_], 1);
-      /*<<bytes.ml:771:6>>*/  /*<<bytes.ml:771:6>>*/ var last = i + 3 | 0;
+      /*<<bytes.ml:771:6>>*/ var last = i + 3 | 0;
      if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
-      /*<<bytes.ml:773:6>>*/ var
+     var
        /*<<bytes.ml:773:6>>*/ u$1 = u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
@@ -6212,47 +6130,43 @@
             (Stdlib[1], cst_index_out_of_bounds$0);
     /*<<bytes.ml:777:21>>*/ }
    function is_valid_utf_16be(b){
-     /*<<bytes.ml:780:2>>*/ var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
+    var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:781:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
      if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
-      /*<<bytes.ml:784:10>>*/  /*<<bytes.ml:784:10>>*/ var
-      u = unsafe_get_uint16_be(b, i);
+      /*<<bytes.ml:784:10>>*/ var u = unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
         /*<<bytes.ml:786:27>>*/ return 0;
-       /*<<bytes.ml:788:8>>*/  /*<<bytes.ml:788:8>>*/ var last = i + 3 | 0;
+       /*<<bytes.ml:788:8>>*/ var last = i + 3 | 0;
       if(max < last)  /*<<bytes.ml:789:27>>*/ return 0;
-       /*<<bytes.ml:790:14>>*/  /*<<bytes.ml:790:14>>*/ var
-       u$0 = unsafe_get_uint16_be(b, i + 2 | 0);
+       /*<<bytes.ml:790:14>>*/ var u$0 = unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
-        /*<<bytes.ml:792:17>>*/  /*<<bytes.ml:792:17>>*/ var i$1 = i + 4 | 0;
+        /*<<bytes.ml:792:17>>*/ var i$1 = i + 4 | 0;
        i = i$1;
        continue;
       }
        /*<<bytes.ml:791:45>>*/ return 0;
      }
-      /*<<bytes.ml:785:41>>*/  /*<<bytes.ml:785:41>>*/ var i$0 = i + 2 | 0;
+      /*<<bytes.ml:785:41>>*/ var i$0 = i + 2 | 0;
      i = i$0;
     }
     /*<<bytes.ml:794:25>>*/ }
    function get_utf_16le_uchar(b, i){
-     /*<<bytes.ml:799:2>>*/  /*<<bytes.ml:800:2>>*/ var
+     /*<<bytes.ml:800:2>>*/ var
      max =  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
               (dec_invalid, 1);
-      /*<<bytes.ml:803:8>>*/  /*<<bytes.ml:803:8>>*/ var
-      hi = unsafe_get_uint16_le(b, i);
+      /*<<bytes.ml:803:8>>*/ var hi = unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
                (dec_invalid, 2);
-       /*<<bytes.ml:807:6>>*/  /*<<bytes.ml:807:6>>*/ var last = i + 3 | 0;
+       /*<<bytes.ml:807:6>>*/ var last = i + 3 | 0;
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
-       /*<<bytes.ml:809:12>>*/  /*<<bytes.ml:809:12>>*/ var
-       lo = unsafe_get_uint16_le(b, i + 2 | 0);
+       /*<<bytes.ml:809:12>>*/ var lo = unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:813:10>>*/ return dec_ret(4, u);
@@ -6266,24 +6180,24 @@
             (Stdlib[1], cst_index_out_of_bounds$1);
     /*<<bytes.ml:813:21>>*/ }
    function set_utf_16le_uchar(b, i, u){
-     /*<<bytes.ml:816:2>>*/  /*<<bytes.ml:817:2>>*/ var
+     /*<<bytes.ml:817:2>>*/ var
      max =  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:818:2>>*/ if(0 <= i && max >= i){
-      /*<<bytes.ml:819:8>>*/  /*<<bytes.ml:819:8>>*/ var
+      /*<<bytes.ml:819:8>>*/ var
       u$0 =  /*<<bytes.ml:819:8>>*/ caml_call1(Stdlib_Uchar[10], u);
       /*<<bytes.ml:820:11>>*/ if(0 > u$0)
        /*<<bytes.ml:820:20>>*/ throw  /*<<bytes.ml:820:20>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
-       /*<<bytes.ml:822:6>>*/  /*<<bytes.ml:822:6>>*/ var last$0 = i + 1 | 0;
+       /*<<bytes.ml:822:6>>*/ var last$0 = i + 1 | 0;
       return max < last$0 ? 0 : (unsafe_set_uint16_le(b, i, u$0), 2);
      }
       /*<<bytes.ml:824:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:831:9>>*/ throw  /*<<bytes.ml:831:9>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _e_], 1);
-      /*<<bytes.ml:825:6>>*/  /*<<bytes.ml:825:6>>*/ var last = i + 3 | 0;
+      /*<<bytes.ml:825:6>>*/ var last = i + 3 | 0;
      if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
-      /*<<bytes.ml:827:6>>*/ var
+     var
        /*<<bytes.ml:827:6>>*/ u$1 = u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
@@ -6295,27 +6209,25 @@
             (Stdlib[1], cst_index_out_of_bounds$2);
     /*<<bytes.ml:831:21>>*/ }
    function is_valid_utf_16le(b){
-     /*<<bytes.ml:834:2>>*/ var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
+    var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:835:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
      if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
-      /*<<bytes.ml:838:10>>*/  /*<<bytes.ml:838:10>>*/ var
-      u = unsafe_get_uint16_le(b, i);
+      /*<<bytes.ml:838:10>>*/ var u = unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
         /*<<bytes.ml:840:27>>*/ return 0;
-       /*<<bytes.ml:842:8>>*/  /*<<bytes.ml:842:8>>*/ var last = i + 3 | 0;
+       /*<<bytes.ml:842:8>>*/ var last = i + 3 | 0;
       if(max < last)  /*<<bytes.ml:843:27>>*/ return 0;
-       /*<<bytes.ml:844:14>>*/  /*<<bytes.ml:844:14>>*/ var
-       u$0 = unsafe_get_uint16_le(b, i + 2 | 0);
+       /*<<bytes.ml:844:14>>*/ var u$0 = unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
-        /*<<bytes.ml:846:17>>*/  /*<<bytes.ml:846:17>>*/ var i$1 = i + 4 | 0;
+        /*<<bytes.ml:846:17>>*/ var i$1 = i + 4 | 0;
        i = i$1;
        continue;
       }
        /*<<bytes.ml:845:45>>*/ return 0;
      }
-      /*<<bytes.ml:839:41>>*/  /*<<bytes.ml:839:41>>*/ var i$0 = i + 2 | 0;
+      /*<<bytes.ml:839:41>>*/ var i$0 = i + 2 | 0;
      i = i$0;
     }
     /*<<bytes.ml:848:25>>*/ }
@@ -6420,26 +6332,27 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst$0 = "",
-    caml_blit_string = runtime.caml_blit_string,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length = runtime.caml_ml_string_length,
-    caml_string_equal = runtime.caml_string_equal,
-    caml_string_hash = runtime.caml_string_hash,
-    caml_string_unsafe_get = runtime.caml_string_unsafe_get,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst$0 = "",
+     /*<<?>>*/ caml_blit_string = runtime.caml_blit_string,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
+     /*<<?>>*/ caml_string_equal = runtime.caml_string_equal,
+     /*<<?>>*/ caml_string_hash = runtime.caml_string_hash,
+     /*<<?>>*/ caml_string_unsafe_get = runtime.caml_string_unsafe_get,
+     /*<<?>>*/ 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){
+   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){
+   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]);
@@ -6462,7 +6375,7 @@
     /*<<string.ml:38:19>>*/ }
    var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
-     /*<<string.ml:43:2>>*/  /*<<string.ml:43:8>>*/ var
+     /*<<string.ml:43:8>>*/ var
      _X_ =  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
      /*<<string.ml:43:2>>*/ return  /*<<string.ml:43:2>>*/ caml_call1
             (bts,
@@ -6497,7 +6410,7 @@
      }
      var _W_ = caml_ml_string_length(hd) + acc | 0;
     }
-     /*<<string.ml:67:12>>*/ var
+    var
       /*<<string.ml:67:12>>*/ dst =
         /*<<string.ml:67:12>>*/ runtime.caml_create_bytes(_W_),
      pos = pos$1,
@@ -6540,7 +6453,7 @@
     cst_String_rcontains_from_Byte =
       "String.rcontains_from / Bytes.rcontains_from";
    function iter(f, s){
-     /*<<string.ml:74:2>>*/ var
+    var
      _U_ = caml_ml_string_length(s) - 1 | 0,
       /*<<string.ml:74:2>>*/ _T_ = 0;
     if(_U_ >= 0){
@@ -6548,7 +6461,7 @@
      for(;;){
        /*<<string.ml:74:31>>*/  /*<<string.ml:74:31>>*/ caml_call1
        (f, caml_string_unsafe_get(s, i));
-       /*<<string.ml:74:31>>*/  /*<<string.ml:74:31>>*/ var _V_ = i + 1 | 0;
+       /*<<string.ml:74:31>>*/ var _V_ = i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -6556,7 +6469,7 @@
     return 0;
     /*<<string.ml:74:54>>*/ }
    function iteri(f, s){
-     /*<<string.ml:78:2>>*/ var
+    var
      _R_ = caml_ml_string_length(s) - 1 | 0,
       /*<<string.ml:78:2>>*/ _Q_ = 0;
     if(_R_ >= 0){
@@ -6564,7 +6477,7 @@
      for(;;){
        /*<<string.ml:78:31>>*/  /*<<string.ml:78:31>>*/ caml_call2
        (f, i, caml_string_unsafe_get(s, i));
-       /*<<string.ml:78:31>>*/  /*<<string.ml:78:31>>*/ var _S_ = i + 1 | 0;
+       /*<<string.ml:78:31>>*/ var _S_ = i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
@@ -6572,45 +6485,45 @@
     return 0;
     /*<<string.ml:78:56>>*/ }
    function map(f, s){
-     /*<<string.ml:81:2>>*/  /*<<string.ml:81:10>>*/ var
+     /*<<string.ml:81:10>>*/ var
      _P_ =  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
      /*<<string.ml:81:2>>*/ return  /*<<string.ml:81:2>>*/ caml_call1
             (bts,
               /*<<string.ml:81:2>>*/ caml_call2(Stdlib_Bytes[17], f, _P_));
     /*<<string.ml:81:24>>*/ }
    function mapi(f, s){
-     /*<<string.ml:83:2>>*/  /*<<string.ml:83:11>>*/ var
+     /*<<string.ml:83:11>>*/ var
      _O_ =  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
      /*<<string.ml:83:2>>*/ return  /*<<string.ml:83:2>>*/ caml_call1
             (bts,
               /*<<string.ml:83:2>>*/ caml_call2(Stdlib_Bytes[18], f, _O_));
     /*<<string.ml:83:25>>*/ }
    function fold_right(f, x, a){
-     /*<<string.ml:85:2>>*/  /*<<string.ml:85:17>>*/ var
+     /*<<string.ml:85:17>>*/ var
      _N_ =  /*<<string.ml:85:17>>*/ caml_call1(bos, x);
      /*<<string.ml:85:2>>*/ return  /*<<string.ml:85:2>>*/ caml_call3
             (Stdlib_Bytes[20], f, _N_, a);
     /*<<string.ml:85:26>>*/ }
    function fold_left(f, a, x){
-     /*<<string.ml:87:2>>*/  /*<<string.ml:87:18>>*/ var
+     /*<<string.ml:87:18>>*/ var
      _M_ =  /*<<string.ml:87:18>>*/ caml_call1(bos, x);
      /*<<string.ml:87:18>>*/ return  /*<<string.ml:87:18>>*/ caml_call3
             (Stdlib_Bytes[19], f, a, _M_);
     /*<<string.ml:87:25>>*/ }
    function exists(f, s){
-     /*<<string.ml:89:2>>*/  /*<<string.ml:89:13>>*/ var
+     /*<<string.ml:89:13>>*/ var
      _L_ =  /*<<string.ml:89:13>>*/ caml_call1(bos, s);
      /*<<string.ml:89:13>>*/ return  /*<<string.ml:89:13>>*/ caml_call2
             (Stdlib_Bytes[22], f, _L_);
     /*<<string.ml:89:20>>*/ }
    function for_all(f, s){
-     /*<<string.ml:91:2>>*/  /*<<string.ml:91:14>>*/ var
+     /*<<string.ml:91:14>>*/ var
      _K_ =  /*<<string.ml:91:14>>*/ caml_call1(bos, s);
      /*<<string.ml:91:14>>*/ return  /*<<string.ml:91:14>>*/ caml_call2
             (Stdlib_Bytes[21], f, _K_);
     /*<<string.ml:91:21>>*/ }
    function is_space(param){
-     /*<<string.ml:97:15>>*/  /*<<string.ml:97:15>>*/ var _J_ = param - 9 | 0;
+     /*<<string.ml:97:15>>*/ var _J_ = param - 9 | 0;
     a:
     {
      if(4 < _J_ >>> 0){if(23 !== _J_) break a;} else if(2 === _J_) break a;
@@ -6628,19 +6541,19 @@
        !
        is_space(caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
       /*<<string.ml:105:7>>*/ return s;
-     /*<<string.ml:104:21>>*/  /*<<string.ml:104:21>>*/ var
+     /*<<string.ml:104:21>>*/ var
      _I_ =  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
      /*<<string.ml:104:13>>*/ return  /*<<string.ml:104:13>>*/ caml_call1
             (bts,  /*<<string.ml:104:13>>*/ caml_call1(Stdlib_Bytes[23], _I_));
     /*<<string.ml:105:8>>*/ }
    function escaped(s){
-     /*<<string.ml:108:2>>*/  /*<<string.ml:108:10>>*/ var
+     /*<<string.ml:108:10>>*/ var
      b =  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
      /*<<string.ml:111:6>>*/ return  /*<<string.ml:111:6>>*/ caml_call1
             (bts,  /*<<string.ml:111:6>>*/ caml_call1(Stdlib_Bytes[87], b));
     /*<<string.ml:111:25>>*/ }
    function index_rec(s, lim, i, c){
-     /*<<string.ml:115:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<string.ml:115:2>>*/ for(;;){
      if(lim <= i$0)
        /*<<string.ml:115:19>>*/ throw  /*<<string.ml:115:19>>*/ caml_maybe_attach_backtrace
@@ -6656,7 +6569,7 @@
             (s, caml_ml_string_length(s), 0, c);
     /*<<string.ml:119:42>>*/ }
    function index_rec_opt(s, lim, i, c){
-     /*<<string.ml:123:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<string.ml:123:2>>*/ for(;;){
      if(lim <= i$0)  /*<<string.ml:123:19>>*/ return 0;
      if(caml_string_unsafe_get(s, i$0) === c)
@@ -6670,21 +6583,21 @@
             (s, caml_ml_string_length(s), 0, c);
     /*<<string.ml:127:50>>*/ }
    function index_from(s, i, c){
-     /*<<string.ml:131:2>>*/ var l = caml_ml_string_length(s);
+    var l = caml_ml_string_length(s);
      /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c);
      /*<<string.ml:132:25>>*/ return  /*<<string.ml:132:25>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_Bytes_in);
     /*<<string.ml:133:21>>*/ }
    function index_from_opt(s, i, c){
-     /*<<string.ml:137:2>>*/ var l = caml_ml_string_length(s);
+    var l = caml_ml_string_length(s);
      /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c);
      /*<<string.ml:139:4>>*/ return  /*<<string.ml:139:4>>*/ caml_call1
             (Stdlib[1], cst_String_index_from_opt_Byte);
     /*<<string.ml:141:25>>*/ }
    function rindex_rec(s, i, c){
-     /*<<string.ml:145:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<string.ml:145:2>>*/ for(;;){
      if(0 > i$0)
        /*<<string.ml:145:16>>*/ throw  /*<<string.ml:145:16>>*/ caml_maybe_attach_backtrace
@@ -6706,7 +6619,7 @@
             (Stdlib[1], cst_String_rindex_from_Bytes_r);
     /*<<string.ml:156:20>>*/ }
    function rindex_rec_opt(s, i, c){
-     /*<<string.ml:160:2>>*/ var i$0 = i;
+    var i$0 = i;
      /*<<string.ml:160:2>>*/ for(;;){
      if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
      if(caml_string_unsafe_get(s, i$0) === c)
@@ -6726,11 +6639,11 @@
             (Stdlib[1], cst_String_rindex_from_opt_Byt);
     /*<<string.ml:171:24>>*/ }
    function contains_from(s, i, c){
-     /*<<string.ml:175:2>>*/ var l = caml_ml_string_length(s);
+    var l = caml_ml_string_length(s);
      /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:179:4>>*/ try{
        /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
-       /*<<string.ml:179:36>>*/  /*<<string.ml:179:36>>*/ var _G_ = 1;
+       /*<<string.ml:179:36>>*/ var _G_ = 1;
        /*<<string.ml:179:36>>*/ return _G_;
      }
      catch(_H_){
@@ -6748,7 +6661,7 @@
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:189:4>>*/ try{
        /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
-       /*<<string.ml:189:35>>*/  /*<<string.ml:189:35>>*/ var _D_ = 1;
+       /*<<string.ml:189:35>>*/ var _D_ = 1;
        /*<<string.ml:189:35>>*/ return _D_;
      }
      catch(_E_){
@@ -6760,31 +6673,31 @@
             (Stdlib[1], cst_String_rcontains_from_Byte);
     /*<<string.ml:189:63>>*/ }
    function uppercase_ascii(s){
-     /*<<string.ml:192:2>>*/  /*<<string.ml:192:20>>*/ var
+     /*<<string.ml:192:20>>*/ var
      _B_ =  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
      /*<<string.ml:192:2>>*/ return  /*<<string.ml:192:2>>*/ caml_call1
             (bts,  /*<<string.ml:192:2>>*/ caml_call1(Stdlib_Bytes[36], _B_));
     /*<<string.ml:192:34>>*/ }
    function lowercase_ascii(s){
-     /*<<string.ml:194:2>>*/  /*<<string.ml:194:20>>*/ var
+     /*<<string.ml:194:20>>*/ var
      _A_ =  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
      /*<<string.ml:194:2>>*/ return  /*<<string.ml:194:2>>*/ caml_call1
             (bts,  /*<<string.ml:194:2>>*/ caml_call1(Stdlib_Bytes[37], _A_));
     /*<<string.ml:194:34>>*/ }
    function capitalize_ascii(s){
-     /*<<string.ml:196:2>>*/  /*<<string.ml:196:21>>*/ var
+     /*<<string.ml:196:21>>*/ var
      _z_ =  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
      /*<<string.ml:196:2>>*/ return  /*<<string.ml:196:2>>*/ caml_call1
             (bts,  /*<<string.ml:196:2>>*/ caml_call1(Stdlib_Bytes[38], _z_));
     /*<<string.ml:196:35>>*/ }
    function uncapitalize_ascii(s){
-     /*<<string.ml:198:2>>*/  /*<<string.ml:198:23>>*/ var
+     /*<<string.ml:198:23>>*/ var
      _y_ =  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
      /*<<string.ml:198:2>>*/ return  /*<<string.ml:198:2>>*/ caml_call1
             (bts,  /*<<string.ml:198:2>>*/ caml_call1(Stdlib_Bytes[39], _y_));
     /*<<string.ml:198:37>>*/ }
    function starts_with(prefix, s){
-     /*<<string.ml:202:2>>*/ var
+    var
      len_s = caml_ml_string_length(s),
      len_pre = caml_ml_string_length(prefix),
      _x_ = len_pre <= len_s ? 1 : 0;
@@ -6794,12 +6707,12 @@
      if(i === len_pre)  /*<<string.ml:205:24>>*/ return 1;
      if(caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
        /*<<string.ml:206:55>>*/ return 0;
-      /*<<string.ml:207:9>>*/  /*<<string.ml:207:9>>*/ var i$0 = i + 1 | 0;
+      /*<<string.ml:207:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<string.ml:208:30>>*/ }
    function ends_with(suffix, s){
-     /*<<string.ml:212:2>>*/ var
+    var
      len_s = caml_ml_string_length(s),
      len_suf = caml_ml_string_length(suffix),
      diff = len_s - len_suf | 0,
@@ -6812,7 +6725,7 @@
       (caml_string_unsafe_get(s, diff + i | 0)
        !== caml_string_unsafe_get(suffix, i))
        /*<<string.ml:217:64>>*/ return 0;
-      /*<<string.ml:218:9>>*/  /*<<string.ml:218:9>>*/ var i$0 = i + 1 | 0;
+      /*<<string.ml:218:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<string.ml:219:23>>*/ }
@@ -6821,7 +6734,7 @@
             (0, x);
     /*<<string.ml:222:28>>*/ }
    function split_on_char(sep, s){
-     /*<<string.ml:226:2>>*/ var
+    var
       /*<<string.ml:226:10>>*/ r = [0, 0],
       /*<<string.ml:227:10>>*/ j =
        [0,  /*<<string.ml:227:2>>*/ caml_ml_string_length(s)],
@@ -6835,7 +6748,7 @@
        r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _u_];
        j[1] = i;
       }
-       /*<<string.ml:228:2>>*/  /*<<string.ml:228:2>>*/ var _v_ = i - 1 | 0;
+       /*<<string.ml:228:2>>*/ var _v_ = i - 1 | 0;
       if(0 === i) break;
       i = _v_;
      }
@@ -6845,13 +6758,13 @@
     /*<<string.ml:234:18>>*/ }
    var compare = runtime.caml_string_compare;
    function to_seq(s){
-     /*<<string.ml:243:15>>*/  /*<<string.ml:243:15>>*/ var
+     /*<<string.ml:243:15>>*/ var
      _r_ =  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
      /*<<string.ml:243:15>>*/ return  /*<<string.ml:243:15>>*/ caml_call1
             (Stdlib_Bytes[47], _r_);
     /*<<string.ml:243:32>>*/ }
    function to_seqi(s){
-     /*<<string.ml:245:16>>*/  /*<<string.ml:245:16>>*/ var
+     /*<<string.ml:245:16>>*/ var
      _q_ =  /*<<string.ml:245:16>>*/ caml_call1(bos, s);
      /*<<string.ml:245:16>>*/ return  /*<<string.ml:245:16>>*/ caml_call1
             (Stdlib_Bytes[48], _q_);
@@ -6861,97 +6774,97 @@
             (bts,  /*<<string.ml:247:15>>*/ caml_call1(Stdlib_Bytes[49], g));
     /*<<string.ml:247:32>>*/ }
    function get_utf_8_uchar(s, i){
-     /*<<string.ml:251:26>>*/  /*<<string.ml:251:44>>*/ var
+     /*<<string.ml:251:44>>*/ var
      _p_ =  /*<<string.ml:251:44>>*/ caml_call1(bos, s);
      /*<<string.ml:251:26>>*/ return  /*<<string.ml:251:26>>*/ caml_call2
             (Stdlib_Bytes[50], _p_, i);
     /*<<string.ml:251:53>>*/ }
    function is_valid_utf_8(s){
-     /*<<string.ml:252:23>>*/  /*<<string.ml:252:40>>*/ var
+     /*<<string.ml:252:40>>*/ var
      _o_ =  /*<<string.ml:252:40>>*/ caml_call1(bos, s);
      /*<<string.ml:252:40>>*/ return  /*<<string.ml:252:40>>*/ caml_call1
             (Stdlib_Bytes[52], _o_);
     /*<<string.ml:252:47>>*/ }
    function get_utf_16be_uchar(s, i){
-     /*<<string.ml:254:29>>*/  /*<<string.ml:254:50>>*/ var
+     /*<<string.ml:254:50>>*/ var
      _n_ =  /*<<string.ml:254:50>>*/ caml_call1(bos, s);
      /*<<string.ml:254:29>>*/ return  /*<<string.ml:254:29>>*/ caml_call2
             (Stdlib_Bytes[53], _n_, i);
     /*<<string.ml:254:59>>*/ }
    function is_valid_utf_16be(s){
-     /*<<string.ml:255:26>>*/  /*<<string.ml:255:46>>*/ var
+     /*<<string.ml:255:46>>*/ var
      _m_ =  /*<<string.ml:255:46>>*/ caml_call1(bos, s);
      /*<<string.ml:255:46>>*/ return  /*<<string.ml:255:46>>*/ caml_call1
             (Stdlib_Bytes[55], _m_);
     /*<<string.ml:255:53>>*/ }
    function get_utf_16le_uchar(s, i){
-     /*<<string.ml:257:29>>*/  /*<<string.ml:257:50>>*/ var
+     /*<<string.ml:257:50>>*/ var
      _l_ =  /*<<string.ml:257:50>>*/ caml_call1(bos, s);
      /*<<string.ml:257:29>>*/ return  /*<<string.ml:257:29>>*/ caml_call2
             (Stdlib_Bytes[56], _l_, i);
     /*<<string.ml:257:59>>*/ }
    function is_valid_utf_16le(s){
-     /*<<string.ml:258:26>>*/  /*<<string.ml:258:46>>*/ var
+     /*<<string.ml:258:46>>*/ var
      _k_ =  /*<<string.ml:258:46>>*/ caml_call1(bos, s);
      /*<<string.ml:258:46>>*/ return  /*<<string.ml:258:46>>*/ caml_call1
             (Stdlib_Bytes[58], _k_);
     /*<<string.ml:258:53>>*/ }
    function get_int8(s, i){
-     /*<<string.ml:267:19>>*/  /*<<string.ml:267:30>>*/ var
+     /*<<string.ml:267:30>>*/ var
      _j_ =  /*<<string.ml:267:30>>*/ caml_call1(bos, s);
      /*<<string.ml:267:19>>*/ return  /*<<string.ml:267:19>>*/ caml_call2
             (Stdlib_Bytes[60], _j_, i);
     /*<<string.ml:267:39>>*/ }
    function get_uint16_le(s, i){
-     /*<<string.ml:268:24>>*/  /*<<string.ml:268:40>>*/ var
+     /*<<string.ml:268:40>>*/ var
      _i_ =  /*<<string.ml:268:40>>*/ caml_call1(bos, s);
      /*<<string.ml:268:24>>*/ return  /*<<string.ml:268:24>>*/ caml_call2
             (Stdlib_Bytes[63], _i_, i);
     /*<<string.ml:268:49>>*/ }
    function get_uint16_be(s, i){
-     /*<<string.ml:269:24>>*/  /*<<string.ml:269:40>>*/ var
+     /*<<string.ml:269:40>>*/ var
      _h_ =  /*<<string.ml:269:40>>*/ caml_call1(bos, s);
      /*<<string.ml:269:24>>*/ return  /*<<string.ml:269:24>>*/ caml_call2
             (Stdlib_Bytes[62], _h_, i);
     /*<<string.ml:269:49>>*/ }
    function get_int16_ne(s, i){
-     /*<<string.ml:270:23>>*/  /*<<string.ml:270:38>>*/ var
+     /*<<string.ml:270:38>>*/ var
      _g_ =  /*<<string.ml:270:38>>*/ caml_call1(bos, s);
      /*<<string.ml:270:23>>*/ return  /*<<string.ml:270:23>>*/ caml_call2
             (Stdlib_Bytes[64], _g_, i);
     /*<<string.ml:270:47>>*/ }
    function get_int16_le(s, i){
-     /*<<string.ml:271:23>>*/  /*<<string.ml:271:38>>*/ var
+     /*<<string.ml:271:38>>*/ var
      _f_ =  /*<<string.ml:271:38>>*/ caml_call1(bos, s);
      /*<<string.ml:271:23>>*/ return  /*<<string.ml:271:23>>*/ caml_call2
             (Stdlib_Bytes[66], _f_, i);
     /*<<string.ml:271:47>>*/ }
    function get_int16_be(s, i){
-     /*<<string.ml:272:23>>*/  /*<<string.ml:272:38>>*/ var
+     /*<<string.ml:272:38>>*/ var
      _e_ =  /*<<string.ml:272:38>>*/ caml_call1(bos, s);
      /*<<string.ml:272:23>>*/ return  /*<<string.ml:272:23>>*/ caml_call2
             (Stdlib_Bytes[65], _e_, i);
     /*<<string.ml:272:47>>*/ }
    function get_int32_le(s, i){
-     /*<<string.ml:273:23>>*/  /*<<string.ml:273:38>>*/ var
+     /*<<string.ml:273:38>>*/ var
      _d_ =  /*<<string.ml:273:38>>*/ caml_call1(bos, s);
      /*<<string.ml:273:23>>*/ return  /*<<string.ml:273:23>>*/ caml_call2
             (Stdlib_Bytes[69], _d_, i);
     /*<<string.ml:273:47>>*/ }
    function get_int32_be(s, i){
-     /*<<string.ml:274:23>>*/  /*<<string.ml:274:38>>*/ var
+     /*<<string.ml:274:38>>*/ var
      _c_ =  /*<<string.ml:274:38>>*/ caml_call1(bos, s);
      /*<<string.ml:274:23>>*/ return  /*<<string.ml:274:23>>*/ caml_call2
             (Stdlib_Bytes[68], _c_, i);
     /*<<string.ml:274:47>>*/ }
    function get_int64_le(s, i){
-     /*<<string.ml:275:23>>*/  /*<<string.ml:275:38>>*/ var
+     /*<<string.ml:275:38>>*/ var
      _b_ =  /*<<string.ml:275:38>>*/ caml_call1(bos, s);
      /*<<string.ml:275:23>>*/ return  /*<<string.ml:275:23>>*/ caml_call2
             (Stdlib_Bytes[72], _b_, i);
     /*<<string.ml:275:47>>*/ }
    function get_int64_be(s, i){
-     /*<<string.ml:276:23>>*/  /*<<string.ml:276:38>>*/ var
+     /*<<string.ml:276:38>>*/ var
      _a_ =  /*<<string.ml:276:38>>*/ caml_call1(bos, s);
      /*<<string.ml:276:23>>*/ return  /*<<string.ml:276:23>>*/ caml_call2
             (Stdlib_Bytes[71], _a_, i);
@@ -7031,7 +6944,7 @@
 //# unitInfo: Provides: Stdlib__Unit
 (function(globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime, cst = "()";
+   var  /*<<?>>*/ runtime = globalThis.jsoo_runtime, cst = "()";
    function equal(_b_, param){
      /*<<unit.ml:18:18>>*/ return 1;
     /*<<unit.ml:18:22>>*/ }
@@ -7053,11 +6966,11 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_Marshal_from_bytes$1 = "Marshal.from_bytes",
-    caml_marshal_data_size = runtime.caml_marshal_data_size,
-    caml_ml_bytes_length = runtime.caml_ml_bytes_length;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_Marshal_from_bytes$1 = "Marshal.from_bytes",
+     /*<<?>>*/ caml_marshal_data_size = runtime.caml_marshal_data_size,
+     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length;
+   function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
@@ -7094,7 +7007,7 @@
    function from_bytes(buff, ofs){
      /*<<marshal.ml:56:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs){
-      /*<<marshal.ml:59:14>>*/  /*<<marshal.ml:59:14>>*/ var
+      /*<<marshal.ml:59:14>>*/ var
       len =  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size(buff, ofs);
      return (caml_ml_bytes_length(buff) - (16 + len | 0) | 0) < ofs
              ?  /*<<marshal.ml:61:9>>*/ caml_call1
@@ -7132,28 +7045,29 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    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){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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){
     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){
+   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){
+   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]);
    }
-    /*<<array.ml:37:20>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
     Assert_failure = global_data.Assert_failure,
@@ -7177,7 +7091,7 @@
     if(0 > l)
       /*<<array.ml:49:16>>*/ return  /*<<array.ml:49:16>>*/ caml_call1
              (Stdlib[1], cst_Array_init);
-     /*<<array.ml:54:13>>*/ var
+    var
       /*<<array.ml:54:13>>*/ res =
         /*<<array.ml:54:13>>*/ caml_make_vect
         (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
@@ -7188,7 +7102,7 @@
      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;
+       /*<<array.ml:56:5>>*/ var _aF_ = i + 1 | 0;
       if(_aE_ === i) break;
       i = _aF_;
      }
@@ -7199,17 +7113,15 @@
      /*<<array.ml:62:2>>*/ if(sy < 0)
       /*<<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
+     /*<<array.ml:63:12>>*/ var
      res =  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
     if(0 < sy){
-      /*<<array.ml:64:17>>*/ var
-      _aB_ = sx - 1 | 0,
-       /*<<array.ml:64:17>>*/ _aA_ = 0;
+     var _aB_ = sx - 1 | 0,  /*<<array.ml:64:17>>*/ _aA_ = 0;
      if(_aB_ >= 0){
       var x = _aA_;
       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;
+        /*<<array.ml:64:17>>*/ var _aC_ = x + 1 | 0;
        if(_aB_ === x) break;
        x = _aC_;
       }
@@ -7221,16 +7133,14 @@
      /*<<array.ml:73:2>>*/ if(sy < 0)
       /*<<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
+     /*<<array.ml:74:12>>*/ var
      res =  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
     if(0 < sy){
-      /*<<array.ml:76:17>>*/ var
-      _av_ = sx - 1 | 0,
-       /*<<array.ml:76:17>>*/ _au_ = 0;
+     var _av_ = sx - 1 | 0,  /*<<array.ml:76:17>>*/ _au_ = 0;
      if(_av_ >= 0){
       var x = _au_;
       for(;;){
-        /*<<array.ml:78:16>>*/ var
+       var
          /*<<array.ml:78:16>>*/ row =
            /*<<array.ml:78:16>>*/ caml_make_vect
            (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
@@ -7241,13 +7151,13 @@
         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;
+          /*<<array.ml:80:8>>*/ var _az_ = y + 1 | 0;
          if(_ax_ === y) break;
          y = _az_;
         }
        }
        res[1 + x] = row;
-        /*<<array.ml:76:17>>*/  /*<<array.ml:76:17>>*/ var _ay_ = x + 1 | 0;
+        /*<<array.ml:76:17>>*/ var _ay_ = x + 1 | 0;
        if(_av_ === x) break;
        x = _ay_;
       }
@@ -7256,13 +7166,13 @@
      /*<<array.ml:85:2>>*/ return res;
     /*<<array.ml:85:5>>*/ }
    function copy(a){
-     /*<<array.ml:88:2>>*/ var l = a.length - 1;
+    var l = a.length - 1;
      /*<<array.ml:88:22>>*/ return 0 === l
             ? [0]
             :  /*<<array.ml:88:46>>*/ caml_array_sub(a, 0, l);
     /*<<array.ml:88:62>>*/ }
    function append(a1, a2){
-     /*<<array.ml:91:2>>*/ var l1 = a1.length - 1;
+    var l1 = a1.length - 1;
      /*<<array.ml:92:2>>*/ return 0 === l1
             ? copy(a2)
             : 0
@@ -7300,15 +7210,13 @@
             (Stdlib[1], cst_Array_blit);
     /*<<array.ml:110:38>>*/ }
    function iter(f, a){
-     /*<<array.ml:113:2>>*/ var
-     _as_ = a.length - 2 | 0,
-      /*<<array.ml:113:2>>*/ _ar_ = 0;
+    var _as_ = a.length - 2 | 0,  /*<<array.ml:113:2>>*/ _ar_ = 0;
     if(_as_ >= 0){
      var i = _ar_;
      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;
+       /*<<array.ml:113:31>>*/ var _at_ = i + 1 | 0;
       if(_as_ === i) break;
       i = _at_;
      }
@@ -7319,15 +7227,13 @@
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
       /*<<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;
+    var _ap_ = a.length - 2 | 0,  /*<<array.ml:119:4>>*/ _ao_ = 0;
     if(_ap_ >= 0){
      var i = _ao_;
      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;
+       /*<<array.ml:119:33>>*/ var _aq_ = i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
@@ -7335,9 +7241,9 @@
     return 0;
     /*<<array.ml:119:73>>*/ }
    function map(f, a){
-     /*<<array.ml:122:2>>*/ var l = a.length - 1;
+    var l = a.length - 1;
      /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
-     /*<<array.ml:124:12>>*/ var
+    var
       /*<<array.ml:124:12>>*/ r =
         /*<<array.ml:124:12>>*/ caml_make_vect
         (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
@@ -7348,7 +7254,7 @@
      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;
+       /*<<array.ml:126:6>>*/ var _an_ = i + 1 | 0;
       if(_am_ === i) break;
       i = _an_;
      }
@@ -7356,15 +7262,13 @@
      /*<<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;
+    var _aj_ = a.length - 2 | 0,  /*<<array.ml:132:2>>*/ _ai_ = 0;
     if(_aj_ >= 0){
      var i = _ai_;
      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;
+       /*<<array.ml:133:4>>*/ var _ak_ = i + 1 | 0;
       if(_aj_ === i) break;
       i = _ak_;
      }
@@ -7372,15 +7276,13 @@
     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;
+    var _ag_ = a.length - 2 | 0,  /*<<array.ml:137:2>>*/ _af_ = 0;
     if(_ag_ >= 0){
      var i = _af_;
      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;
+       /*<<array.ml:138:4>>*/ var _ah_ = i + 1 | 0;
       if(_ag_ === i) break;
       i = _ah_;
      }
@@ -7388,14 +7290,12 @@
     return 0;
     /*<<array.ml:139:6>>*/ }
    function map2(f, a, b){
-     /*<<array.ml:142:2>>*/ var
-     la = a.length - 1,
-      /*<<array.ml:143:2>>*/ lb = b.length - 1;
+    var la = a.length - 1,  /*<<array.ml:143:2>>*/ lb = b.length - 1;
     if(la !== lb)
       /*<<array.ml:145:4>>*/ return  /*<<array.ml:145:4>>*/ caml_call1
              (Stdlib[1], cst_Array_map2_arrays_must_hav);
     if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
-     /*<<array.ml:148:14>>*/ var
+    var
       /*<<array.ml:148:14>>*/ r =
         /*<<array.ml:148:14>>*/ caml_make_vect
         (la,  /*<<array.ml:148:24>>*/ caml_call2(f, a[1], b[1])),
@@ -7406,7 +7306,7 @@
      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;
+       /*<<array.ml:150:8>>*/ var _ae_ = i + 1 | 0;
       if(_ad_ === i) break;
       i = _ae_;
      }
@@ -7414,15 +7314,13 @@
      /*<<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;
+    var _aa_ = a.length - 2 | 0,  /*<<array.ml:157:2>>*/ _$_ = 0;
     if(_aa_ >= 0){
      var i = _$_;
      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;
+       /*<<array.ml:157:31>>*/ var _ab_ = i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
@@ -7430,9 +7328,9 @@
     return 0;
     /*<<array.ml:157:56>>*/ }
    function mapi(f, a){
-     /*<<array.ml:160:2>>*/ var l = a.length - 1;
+    var l = a.length - 1;
      /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
-     /*<<array.ml:162:12>>*/ var
+    var
       /*<<array.ml:162:12>>*/ r =
         /*<<array.ml:162:12>>*/ caml_make_vect
         (l,  /*<<array.ml:162:21>>*/ caml_call2(f, 0, a[1])),
@@ -7443,7 +7341,7 @@
      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;
+       /*<<array.ml:164:6>>*/ var ___ = i + 1 | 0;
       if(_Z_ === i) break;
       i = ___;
      }
@@ -7451,10 +7349,10 @@
      /*<<array.ml:166:4>>*/ return r;
     /*<<array.ml:167:5>>*/ }
    function to_list(a){
-     /*<<array.ml:170:2>>*/ var i$1 = a.length - 2 | 0, i = i$1, res = 0;
+    var i$1 = a.length - 2 | 0, i = i$1, res = 0;
      /*<<array.ml:171:4>>*/ for(;;){
      if(0 > i)  /*<<array.ml:171:18>>*/ return res;
-      /*<<array.ml:171:42>>*/ var
+     var
        /*<<array.ml:171:42>>*/ res$0 = [0, a[1 + i], res],
        /*<<array.ml:171:42>>*/ i$0 = i - 1 | 0;
      i = i$0;
@@ -7465,16 +7363,14 @@
     var accu$0 = accu, param$0 = param;
     for(;;){
      if(! param$0)  /*<<array.ml:176:10>>*/ return accu$0;
-      /*<<array.ml:177:12>>*/ var
-      t = param$0[2],
-       /*<<array.ml:177:12>>*/ accu$1 = accu$0 + 1 | 0;
+     var t = param$0[2],  /*<<array.ml:177:12>>*/ accu$1 = accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = t;
     }
    }
    function of_list(l){
      /*<<array.ml:179:14>>*/ if(! l)  /*<<array.ml:180:10>>*/ return [0];
-     /*<<array.ml:182:14>>*/ var
+    var
      tl = l[2],
      hd = l[1],
       /*<<array.ml:182:14>>*/ a =
@@ -7485,13 +7381,13 @@
      if(! param)  /*<<array.ml:183:6>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
-      /*<<array.ml:183:6>>*/  /*<<array.ml:183:6>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:183:6>>*/ var i$0 = i + 1 | 0;
      i = i$0;
      param = tl$0;
     }
     /*<<array.ml:186:15>>*/ }
    function fold_left(f, x, a){
-     /*<<array.ml:189:2>>*/ var
+    var
       /*<<array.ml:189:10>>*/ r = [0, x],
      _W_ = a.length - 2 | 0,
       /*<<array.ml:189:10>>*/ _V_ = 0;
@@ -7499,7 +7395,7 @@
      var i = _V_;
      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;
+       /*<<array.ml:190:2>>*/ var _X_ = i + 1 | 0;
       if(_W_ === i) break;
       i = _X_;
      }
@@ -7507,10 +7403,10 @@
     return r[1];
     /*<<array.ml:193:4>>*/ }
    function fold_left_map(f, acc, input_array){
-     /*<<array.ml:196:2>>*/ var len = input_array.length - 1;
+    var len = input_array.length - 1;
      /*<<array.ml:197:2>>*/ if(0 === len)
       /*<<array.ml:197:18>>*/ return [0, acc, [0]];
-     /*<<array.ml:198:19>>*/ var
+    var
       /*<<array.ml:198:19>>*/ match =
         /*<<array.ml:198:19>>*/ caml_call2(f, acc, input_array[1]),
      elt = match[2],
@@ -7523,14 +7419,14 @@
     if(_T_ >= 1){
      var i = _S_;
      for(;;){
-       /*<<array.ml:202:22>>*/ var
+      var
         /*<<array.ml:202:22>>*/ match$0 =
           /*<<array.ml:202:22>>*/ caml_call2(f, acc$1[1], input_array[1 + i]),
        elt$0 = match$0[2],
        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;
+       /*<<array.ml:201:4>>*/ var _U_ = i + 1 | 0;
       if(_T_ === i) break;
       i = _U_;
      }
@@ -7538,14 +7434,14 @@
      /*<<array.ml:206:4>>*/ return [0, acc$1[1], output_array];
     /*<<array.ml:207:5>>*/ }
    function fold_right(f, a, x){
-     /*<<array.ml:210:2>>*/ var
+    var
       /*<<array.ml:210:10>>*/ r = [0, x],
       /*<<array.ml:211:2>>*/ _Q_ = a.length - 2 | 0;
     if(_Q_ >= 0){
      var i = _Q_;
      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>>*/ var _R_ = i - 1 | 0;
       if(0 === i) break;
       i = _R_;
      }
@@ -7553,29 +7449,29 @@
     return r[1];
     /*<<array.ml:214:4>>*/ }
    function exists(p, a){
-     /*<<array.ml:217:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:219:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:219:18>>*/ return 0;
       /*<<array.ml:220:12>>*/ if
       ( /*<<array.ml:220:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:220:36>>*/ return 1;
-      /*<<array.ml:221:9>>*/  /*<<array.ml:221:9>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:221:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:222:8>>*/ }
    function for_all(p, a){
-     /*<<array.ml:225:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:227:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:227:18>>*/ return 1;
       /*<<array.ml:228:12>>*/ if
       (!  /*<<array.ml:228:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:229:9>>*/ return 0;
-      /*<<array.ml:228:36>>*/  /*<<array.ml:228:36>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:228:36>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:230:8>>*/ }
    function for_all2(p, l1, l2){
-     /*<<array.ml:233:2>>*/ var n1 = l1.length - 1, n2 = l2.length - 1;
+    var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
       /*<<array.ml:235:19>>*/ return  /*<<array.ml:235:19>>*/ caml_call1
              (Stdlib[1], cst_Array_for_all2);
@@ -7585,12 +7481,12 @@
       /*<<array.ml:238:12>>*/ if
       (!  /*<<array.ml:238:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:239:9>>*/ return 0;
-      /*<<array.ml:238:55>>*/  /*<<array.ml:238:55>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:238:55>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:240:8>>*/ }
    function exists2(p, l1, l2){
-     /*<<array.ml:243:2>>*/ var n1 = l1.length - 1, n2 = l2.length - 1;
+    var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
       /*<<array.ml:245:19>>*/ return  /*<<array.ml:245:19>>*/ caml_call1
              (Stdlib[1], cst_Array_exists2);
@@ -7600,71 +7496,71 @@
       /*<<array.ml:248:12>>*/ if
       ( /*<<array.ml:248:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:248:55>>*/ return 1;
-      /*<<array.ml:249:9>>*/  /*<<array.ml:249:9>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:249:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:250:8>>*/ }
    function mem(x, a){
-     /*<<array.ml:253:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:255:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:255:18>>*/ return 0;
       /*<<array.ml:256:12>>*/ if
       (0 ===  /*<<array.ml:256:12>>*/ runtime.caml_compare(a[1 + i], x))
        /*<<array.ml:256:48>>*/ return 1;
-      /*<<array.ml:257:9>>*/  /*<<array.ml:257:9>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:257:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:258:8>>*/ }
    function memq(x, a){
-     /*<<array.ml:261:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:263:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:263:18>>*/ return 0;
      if(x === a[1 + i])  /*<<array.ml:264:39>>*/ return 1;
-      /*<<array.ml:265:9>>*/  /*<<array.ml:265:9>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:265:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:266:8>>*/ }
    function find_opt(p, a){
-     /*<<array.ml:269:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:271:18>>*/ return 0;
-      /*<<array.ml:273:14>>*/  /*<<array.ml:273:14>>*/ var x = a[1 + i];
+      /*<<array.ml:273:14>>*/ var x = a[1 + i];
       /*<<array.ml:274:9>>*/ if( /*<<array.ml:274:9>>*/ caml_call1(p, x))
        /*<<array.ml:274:18>>*/ return [0, x];
-      /*<<array.ml:275:11>>*/  /*<<array.ml:275:11>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:275:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:277:8>>*/ }
    function find_index(p, a){
-     /*<<array.ml:280:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:282:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:282:18>>*/ return 0;
       /*<<array.ml:283:12>>*/ if
       ( /*<<array.ml:283:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:283:36>>*/ return [0, i];
-      /*<<array.ml:284:9>>*/  /*<<array.ml:284:9>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:284:9>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:285:8>>*/ }
    function find_map(f, a){
-     /*<<array.ml:288:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:290:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:290:18>>*/ return 0;
-      /*<<array.ml:292:12>>*/  /*<<array.ml:292:12>>*/ var
+      /*<<array.ml:292:12>>*/ var
       r =  /*<<array.ml:292:12>>*/ caml_call1(f, a[1 + i]);
      if(r)  /*<<array.ml:294:23>>*/ return r;
-      /*<<array.ml:293:16>>*/  /*<<array.ml:293:16>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:293:16>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:296:8>>*/ }
    function find_mapi(f, a){
-     /*<<array.ml:299:2>>*/ var n = a.length - 1, i = 0;
+    var n = a.length - 1, i = 0;
      /*<<array.ml:301:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:301:18>>*/ return 0;
-      /*<<array.ml:303:12>>*/  /*<<array.ml:303:12>>*/ var
+      /*<<array.ml:303:12>>*/ var
       r =  /*<<array.ml:303:12>>*/ caml_call2(f, i, a[1 + i]);
      if(r)  /*<<array.ml:305:23>>*/ return r;
-      /*<<array.ml:304:16>>*/  /*<<array.ml:304:16>>*/ var i$0 = i + 1 | 0;
+      /*<<array.ml:304:16>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:307:8>>*/ }
@@ -7672,7 +7568,7 @@
      /*<<array.ml:310:2>>*/ if
      ( /*<<array.ml:310:5>>*/ runtime.caml_equal(x, [0]))
       /*<<array.ml:310:19>>*/ return [0, [0], [0]];
-     /*<<array.ml:313:4>>*/ var
+    var
      match = x[1],
      b0 = match[2],
      a0 = match[1],
@@ -7689,7 +7585,7 @@
       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;
+       /*<<array.ml:316:4>>*/ var _P_ = i + 1 | 0;
       if(_O_ === i) break;
       i = _P_;
      }
@@ -7697,14 +7593,12 @@
      /*<<array.ml:321:4>>*/ return [0, a, b];
     /*<<array.ml:322:5>>*/ }
    function combine(a, b){
-     /*<<array.ml:325:2>>*/ var
-     na = a.length - 1,
-      /*<<array.ml:326:2>>*/ nb = b.length - 1;
+    var na = a.length - 1,  /*<<array.ml:326:2>>*/ nb = b.length - 1;
     if(na !== nb)
       /*<<array.ml:327:19>>*/  /*<<array.ml:327:19>>*/ caml_call1
       (Stdlib[1], cst_Array_combine);
     if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
-     /*<<array.ml:330:12>>*/ var
+    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,
@@ -7713,24 +7607,24 @@
      var i = _K_;
      for(;;){
       x[1 + i] = [0, a[1 + i], b[1 + i]];
-       /*<<array.ml:331:4>>*/  /*<<array.ml:331:4>>*/ var _M_ = i + 1 | 0;
+       /*<<array.ml:331:4>>*/ var _M_ = i + 1 | 0;
       if(_L_ === i) break;
       i = _M_;
      }
     }
      /*<<array.ml:334:4>>*/ return x;
     /*<<array.ml:335:5>>*/ }
-    /*<<array.ml:337:0>>*/ var
+   var
      /*<<array.ml:337:0>>*/ Bottom =
       [248, "Stdlib.Array.Bottom", runtime.caml_fresh_oo_id(0)],
     _a_ = [0, "array.ml", 369, 4];
    function sort(cmp, a){
     function maxson(l, i){
-      /*<<array.ml:340:4>>*/ var
+     var
       i31 = ((i + i | 0) + i | 0) + 1 | 0,
        /*<<array.ml:341:12>>*/ x = [0, i31];
      if((i31 + 2 | 0) < l){
-       /*<<array.ml:342:22>>*/ var
+      var
         /*<<array.ml:342:22>>*/ _D_ = i31 + 1 | 0,
         /*<<array.ml:343:25>>*/ _E_ = caml_check_bound(a, _D_)[1 + _D_];
       if
@@ -7738,7 +7632,7 @@
          (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
         < 0)
        x[1] = i31 + 1 | 0;
-       /*<<array.ml:344:6>>*/ var
+      var
         /*<<array.ml:344:6>>*/ _F_ = i31 + 2 | 0,
         /*<<array.ml:344:24>>*/ _G_ = caml_check_bound(a, _F_)[1 + _F_],
        _H_ = x[1];
@@ -7750,7 +7644,7 @@
       return x[1];
      }
      if((i31 + 1 | 0) < l){
-       /*<<array.ml:347:38>>*/ var
+      var
        _I_ = i31 + 1 | 0,
         /*<<array.ml:347:38>>*/ _J_ = caml_check_bound(a, _I_)[1 + _I_];
        /*<<array.ml:347:22>>*/ if
@@ -7768,21 +7662,18 @@
     if(_x_ >= 0){
      var i$6 = _x_;
      for(;;){
-       /*<<array.ml:378:50>>*/  /*<<array.ml:378:50>>*/ var
-       e$1 = caml_check_bound(a, i$6)[1 + i$6];
+       /*<<array.ml:378:50>>*/ var e$1 = caml_check_bound(a, i$6)[1 + i$6];
        /*<<array.ml:360:22>>*/ try{
        var i = i$6;
         /*<<array.ml:352:4>>*/ for(;;){
-         /*<<array.ml:352:12>>*/  /*<<array.ml:352:12>>*/ var
-         j = maxson(l, i);
+         /*<<array.ml:352:12>>*/ var j = maxson(l, i);
          /*<<array.ml:353:7>>*/ if
          (0
           >=
             /*<<array.ml:353:7>>*/ caml_call2
             (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:14>>*/ var _u_ = caml_check_bound(a, j)[1 + j];
          /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
         i = j;
        }
@@ -7794,23 +7685,22 @@
        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>>*/ var _C_ = i$6 - 1 | 0;
       if(0 === i$6) break;
       i$6 = _C_;
      }
     }
-     /*<<array.ml:379:2>>*/  /*<<array.ml:379:2>>*/ var _y_ = l - 1 | 0;
+     /*<<array.ml:379:2>>*/ var _y_ = l - 1 | 0;
     if(_y_ >= 2){
      var i$4 = _y_;
      for(;;){
-       /*<<array.ml:380:12>>*/  /*<<array.ml:380:12>>*/ var
-       e$0 = caml_check_bound(a, i$4)[1 + i$4];
+       /*<<array.ml:380:12>>*/ var e$0 = caml_check_bound(a, i$4)[1 + i$4];
        /*<<array.ml:381:4>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
       var i$5 = 0;
        /*<<array.ml:366:19>>*/ try{
        var i$1 = i$5;
         /*<<array.ml:362:4>>*/ for(;;){
-         /*<<array.ml:362:12>>*/ var
+        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_;
@@ -7837,7 +7727,7 @@
               /*<<array.ml:370:7>>*/ caml_call2
               (cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
-           /*<<array.ml:371:14>>*/  /*<<array.ml:371:14>>*/ var
+           /*<<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_;
           if(0 >= father) break b;
@@ -7848,7 +7738,7 @@
         }
          /*<<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>>*/ var _B_ = i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _B_;
       }
@@ -7856,8 +7746,7 @@
     }
     var _z_ = 1 < l ? 1 : 0;
     if(_z_){
-      /*<<array.ml:384:25>>*/  /*<<array.ml:384:25>>*/ var
-      e = caml_check_bound(a, 1)[2];
+      /*<<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;
@@ -7868,7 +7757,7 @@
     /*<<array.ml:384:67>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
-      /*<<array.ml:390:4>>*/ var
+     var
       src1r = src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
        /*<<array.ml:407:44>>*/ s2$1 =
@@ -7884,9 +7773,9 @@
        /*<<array.ml:392:9>>*/ if
        (0 <  /*<<array.ml:392:9>>*/ caml_call2(cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-        /*<<array.ml:400:8>>*/  /*<<array.ml:400:8>>*/ var i2$0 = i2 + 1 | 0;
+        /*<<array.ml:400:8>>*/ var i2$0 = i2 + 1 | 0;
        if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
-        /*<<array.ml:403:10>>*/ var
+       var
          /*<<array.ml:403:10>>*/ d$0 = d + 1 | 0,
          /*<<array.ml:403:24>>*/ s2$0 = caml_check_bound(src2, i2$0)[1 + i2$0];
        i2 = i2$0;
@@ -7895,10 +7784,10 @@
       }
       else{
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-        /*<<array.ml:393:8>>*/  /*<<array.ml:393:8>>*/ var i1$0 = i1 + 1 | 0;
+        /*<<array.ml:393:8>>*/ var i1$0 = i1 + 1 | 0;
        if(i1$0 >= src1r)
         return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0);
-        /*<<array.ml:396:10>>*/ var
+       var
          /*<<array.ml:396:10>>*/ d$1 = d + 1 | 0,
          /*<<array.ml:396:18>>*/ s1$0 = caml_check_bound(a, i1$0)[1 + i1$0];
        i1 = i1$0;
@@ -7907,13 +7796,11 @@
       }
      /*<<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;
+     var _m_ = len - 1 | 0,  /*<<array.ml:410:4>>*/ _l_ = 0;
      if(_m_ >= 0){
       var i = _l_;
       for(;;){
-        /*<<array.ml:411:14>>*/ var
+       var
         _n_ = srcofs + i | 0,
          /*<<array.ml:411:14>>*/ e = caml_check_bound(a, _n_)[1 + _n_],
          /*<<array.ml:412:14>>*/ j = [0, (dstofs + i | 0) - 1 | 0];
@@ -7926,7 +7813,7 @@
             /*<<array.ml:413:29>>*/ caml_call2
             (cmp, caml_check_bound(dst, _o_)[1 + _o_], e))
          break;
-         /*<<array.ml:414:25>>*/ var
+        var
          _p_ = j[1],
           /*<<array.ml:414:25>>*/ _q_ = caml_check_bound(dst, _p_)[1 + _p_],
          _r_ = j[1] + 1 | 0;
@@ -7935,7 +7822,7 @@
        }
        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;
+        /*<<array.ml:410:4>>*/ var _t_ = i + 1 | 0;
        if(_m_ === i) break;
        i = _t_;
       }
@@ -7953,7 +7840,7 @@
      /*<<array.ml:427:7>>*/ }
     var l = a.length - 1;
     if(l <= 5)  /*<<array.ml:430:22>>*/ return isortto(0, a, 0, l);
-     /*<<array.ml:433:12>>*/ var
+    var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
       /*<<array.ml:433:12>>*/ t =
@@ -7963,11 +7850,11 @@
      /*<<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;
+    var _j_ = a.length - 2 | 0;
     if(_j_ >= 1){
      var i = _j_;
      for(;;){
-       /*<<array.ml:444:12>>*/ var
+      var
         /*<<array.ml:444:12>>*/ j =
           /*<<array.ml:444:12>>*/ caml_call1(rand, i + 1 | 0),
         /*<<array.ml:445:12>>*/ v = a[1 + i];
@@ -7984,7 +7871,7 @@
     function aux(i, param){
       /*<<array.ml:454:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:458:9>>*/ return 0;
-      /*<<array.ml:456:14>>*/ var
+     var
        /*<<array.ml:456:14>>*/ x = a[1 + i],
        /*<<array.ml:456:14>>*/ _h_ = i + 1 | 0;
       /*<<array.ml:457:6>>*/ return [0,
@@ -7999,7 +7886,7 @@
     function aux(i, param){
       /*<<array.ml:464:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:468:9>>*/ return 0;
-      /*<<array.ml:466:14>>*/ var
+     var
        /*<<array.ml:466:14>>*/ x = a[1 + i],
        /*<<array.ml:466:14>>*/ _d_ = i + 1 | 0;
       /*<<array.ml:467:6>>*/ return [0,
@@ -8011,7 +7898,7 @@
       /*<<?>>*/ return aux(_b_, _c_);};
     /*<<array.ml:470:7>>*/ }
    function of_seq(i$2){
-     /*<<array.ml:484:2>>*/  /*<<array.ml:484:10>>*/ var
+     /*<<array.ml:484:10>>*/ var
      l =
         /*<<array.ml:484:10>>*/ caml_call3
         (Stdlib_Seq[5],
@@ -8021,7 +7908,7 @@
          0,
          i$2);
     if(! l)  /*<<array.ml:473:10>>*/ return [0];
-     /*<<array.ml:475:16>>*/ var
+    var
      tl = l[2],
      hd = l[1],
       /*<<array.ml:475:16>>*/ len = list_length(0, l),
@@ -8034,7 +7921,7 @@
      if(! param)  /*<<array.ml:477: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:477:6>>*/ var i$0 = i - 1 | 0;
      i = i$0;
      param = tl$0;
     }
@@ -8095,35 +7982,36 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_Float_array_blit$1 = "Float.array.blit",
-    cst_float_ml = "float.ml",
-    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_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,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_Float_array_blit$1 = "Float.array.blit",
+     /*<<?>>*/ cst_float_ml = "float.ml",
+     /*<<?>>*/ 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_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,
+     /*<<?>>*/ 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){
+   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){
+   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]);
    }
-    /*<<float.ml:38:20>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_List = global_data.Stdlib__List,
@@ -8164,7 +8052,7 @@
     cst_Float_Array_map2_arrays_mu =
       "Float.Array.map2: arrays must have the same length";
    function is_integer(x){
-     /*<<float.ml:116:19>>*/ var
+    var
      _aX_ = x ===  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x) ? 1 : 0;
     return _aX_ ? is_finite(x) : _aX_;
     /*<<float.ml:116:45>>*/ }
@@ -8180,7 +8068,7 @@
      /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
     /*<<float.ml:136:31>>*/ }
    function min(x, y){
-     /*<<float.ml:139:2>>*/ a:
+    a:
     if(! (x < y)){
       /*<<float.ml:139:18>>*/ if
       (!
@@ -8192,7 +8080,7 @@
      /*<<float.ml:140:7>>*/ return y !== y ? y : x;
     /*<<float.ml:141:32>>*/ }
    function max(x, y){
-     /*<<float.ml:144:2>>*/ a:
+    a:
     if(! (x < y)){
       /*<<float.ml:144:18>>*/ if
       (!
@@ -8219,7 +8107,7 @@
      /*<<float.ml:149:31>>*/ return [0, nan, nan];
     /*<<float.ml:150:74>>*/ }
    function min_num(x, y){
-     /*<<float.ml:153:2>>*/ a:
+    a:
     if(! (x < y)){
       /*<<float.ml:153:18>>*/ if
       (!
@@ -8231,7 +8119,7 @@
      /*<<float.ml:154:7>>*/ return x !== x ? y : x;
     /*<<float.ml:155:32>>*/ }
    function max_num(x, y){
-     /*<<float.ml:158:2>>*/ a:
+    a:
     if(! (x < y)){
       /*<<float.ml:158:18>>*/ if
       (!
@@ -8267,12 +8155,12 @@
             (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;
+    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;
+       /*<<float.ml:184:36>>*/ var _aW_ = i + 1 | 0;
       if(_aV_ === i) break;
       i = _aW_;
      }
@@ -8280,7 +8168,7 @@
     return 0;
     /*<<float.ml:184:57>>*/ }
    function check(a, ofs, len, msg){
-     /*<<float.ml:190:4>>*/ var _aR_ = ofs < 0 ? 1 : 0;
+    var _aR_ = ofs < 0 ? 1 : 0;
     if(_aR_)
      var _aS_ = _aR_;
     else{
@@ -8295,7 +8183,7 @@
     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
+     /*<<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;
@@ -8304,7 +8192,7 @@
      /*<<float.ml:199:4>>*/ if(0 > l)
       /*<<float.ml:199:18>>*/ return  /*<<float.ml:199:18>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_init);
-     /*<<float.ml:201:16>>*/ var
+    var
       /*<<float.ml:201:16>>*/ res =
         /*<<float.ml:201:16>>*/ caml_floatarray_create(l),
       /*<<float.ml:202:6>>*/ _aP_ = l - 1 | 0,
@@ -8314,7 +8202,7 @@
      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:203:8>>*/ var _aQ_ = i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
      }
@@ -8325,19 +8213,17 @@
      /*<<float.ml:209:4>>*/ if(sy < 0)
       /*<<float.ml:209:19>>*/  /*<<float.ml:209:19>>*/ caml_call1
       (Stdlib[1], cst_Float_Array_make_matrix);
-     /*<<float.ml:210:14>>*/  /*<<float.ml:210:14>>*/ var
+     /*<<float.ml:210:14>>*/ var
      res =
         /*<<float.ml:210:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
-      /*<<float.ml:211:19>>*/ var
-      _aM_ = sx - 1 | 0,
-       /*<<float.ml:211:19>>*/ _aL_ = 0;
+     var _aM_ = sx - 1 | 0,  /*<<float.ml:211: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:213:8>>*/ var _aN_ = x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
       }
@@ -8349,18 +8235,16 @@
      /*<<float.ml:220:4>>*/ if(sy < 0)
       /*<<float.ml:220:19>>*/  /*<<float.ml:220:19>>*/ caml_call1
       (Stdlib[1], cst_Float_Array_init_matrix);
-     /*<<float.ml:221:14>>*/  /*<<float.ml:221:14>>*/ var
+     /*<<float.ml:221:14>>*/ var
      res =
         /*<<float.ml:221:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
-      /*<<float.ml:222:19>>*/ var
-      _aG_ = sx - 1 | 0,
-       /*<<float.ml:222:19>>*/ _aF_ = 0;
+     var _aG_ = sx - 1 | 0,  /*<<float.ml:222:19>>*/ _aF_ = 0;
      if(_aG_ >= 0){
       var x = _aF_;
       for(;;){
-        /*<<float.ml:224:18>>*/ var
+       var
          /*<<float.ml:224:18>>*/ row =
            /*<<float.ml:224:18>>*/ caml_floatarray_create(sy),
          /*<<float.ml:225:8>>*/ _aI_ = sy - 1 | 0,
@@ -8370,14 +8254,13 @@
         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
-          _aK_ = y + 1 | 0;
+          /*<<float.ml:226: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:222:19>>*/ var _aJ_ = x + 1 | 0;
        if(_aG_ === x) break;
        x = _aJ_;
       }
@@ -8386,7 +8269,7 @@
      /*<<float.ml:231:4>>*/ return res;
     /*<<float.ml:231:7>>*/ }
    function append(a1, a2){
-     /*<<float.ml:234:4>>*/ var
+    var
      l1 = a1.length - 1,
       /*<<float.ml:235:4>>*/ l2 = a2.length - 1,
       /*<<float.ml:236:17>>*/ result =
@@ -8398,7 +8281,7 @@
      /*<<float.ml:238:4>>*/ return result;
     /*<<float.ml:239:10>>*/ }
    function concat(l){
-     /*<<float.ml:250:4>>*/ var acc = 0, param = l;
+    var acc = 0, param = l;
     for(;;){
      if(! param) break;
      var
@@ -8413,7 +8296,7 @@
      acc = acc$0;
      param = tl;
     }
-     /*<<float.ml:251:17>>*/ var
+    var
       /*<<float.ml:251:17>>*/ result =
         /*<<float.ml:251:17>>*/ caml_floatarray_create(acc),
      l$0 = l,
@@ -8424,7 +8307,7 @@
        /*<<float.ml:254:14>>*/ throw  /*<<float.ml:254:14>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _a_], 1);
      }
-      /*<<float.ml:256:8>>*/ var
+     var
       tl$0 = l$0[2],
       hd$0 = l$0[1],
        /*<<float.ml:256:8>>*/ hlen = hd$0.length - 1;
@@ -8437,14 +8320,14 @@
     /*<<float.ml:261: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
+     /*<<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>>*/ }
    function copy(a){
-     /*<<float.ml:270:4>>*/ var
+    var
      l = a.length - 1,
       /*<<float.ml:271:17>>*/ result =
         /*<<float.ml:271:17>>*/ caml_floatarray_create(l);
@@ -8469,7 +8352,7 @@
              function(_aE_){ /*<<?>>*/ return a[1 + _aE_];});
     /*<<float.ml:285:39>>*/ }
    function of_list(l){
-     /*<<float.ml:288:4>>*/ var
+    var
       /*<<float.ml:288:17>>*/ result =
         /*<<float.ml:288:17>>*/ caml_floatarray_create
         ( /*<<float.ml:288:24>>*/ caml_call1(Stdlib_List[1], l)),
@@ -8479,21 +8362,19 @@
      if(! l$0)  /*<<float.ml:289: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:289:4>>*/ var i$0 = i + 1 | 0;
      i = i$0;
      l$0 = t;
     }
     /*<<float.ml:294:12>>*/ }
    function iter(f, a){
-     /*<<float.ml:298:4>>*/ var
-     _aC_ = a.length - 2 | 0,
-      /*<<float.ml:298:4>>*/ _aB_ = 0;
+    var _aC_ = a.length - 2 | 0,  /*<<float.ml:298:4>>*/ _aB_ = 0;
     if(_aC_ >= 0){
      var i = _aB_;
      for(;;){
        /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ caml_call1
        (f, a[1 + i]);
-       /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ var _aD_ = i + 1 | 0;
+       /*<<float.ml:298:33>>*/ var _aD_ = i + 1 | 0;
       if(_aC_ === i) break;
       i = _aD_;
      }
@@ -8504,15 +8385,13 @@
      /*<<float.ml:302:4>>*/ if(a.length - 1 !== b.length - 1)
       /*<<float.ml:303:6>>*/ return  /*<<float.ml:303:6>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_iter2_arrays_m);
-     /*<<float.ml:305:6>>*/ var
-     _az_ = a.length - 2 | 0,
-      /*<<float.ml:305:6>>*/ _ay_ = 0;
+    var _az_ = a.length - 2 | 0,  /*<<float.ml:305:6>>*/ _ay_ = 0;
     if(_az_ >= 0){
      var i = _ay_;
      for(;;){
        /*<<float.ml:305:35>>*/  /*<<float.ml:305: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:305:35>>*/ var _aA_ = i + 1 | 0;
       if(_az_ === i) break;
       i = _aA_;
      }
@@ -8520,7 +8399,7 @@
     return 0;
     /*<<float.ml:305:75>>*/ }
    function map(f, a){
-     /*<<float.ml:308:4>>*/ var
+    var
      l = a.length - 1,
       /*<<float.ml:309:12>>*/ r =
         /*<<float.ml:309:12>>*/ caml_floatarray_create(l),
@@ -8531,7 +8410,7 @@
      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:311:6>>*/ var _ax_ = i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
      }
@@ -8539,15 +8418,13 @@
      /*<<float.ml:313:4>>*/ return r;
     /*<<float.ml:313:5>>*/ }
    function map_inplace(f, a){
-     /*<<float.ml:317:4>>*/ var
-     _at_ = a.length - 2 | 0,
-      /*<<float.ml:317:4>>*/ _as_ = 0;
+    var _at_ = a.length - 2 | 0,  /*<<float.ml:317: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:318:6>>*/ var _au_ = i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
      }
@@ -8555,13 +8432,11 @@
     return 0;
     /*<<float.ml:319:8>>*/ }
    function map2(f, a, b){
-     /*<<float.ml:322:4>>*/ var
-     la = a.length - 1,
-      /*<<float.ml:323:4>>*/ lb = b.length - 1;
+    var la = a.length - 1,  /*<<float.ml:323:4>>*/ lb = b.length - 1;
     if(la !== lb)
       /*<<float.ml:325:6>>*/ return  /*<<float.ml:325:6>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_map2_arrays_mu);
-     /*<<float.ml:327:14>>*/ var
+    var
       /*<<float.ml:327:14>>*/ r =
         /*<<float.ml:327:14>>*/ caml_floatarray_create(la),
       /*<<float.ml:328:6>>*/ _aq_ = la - 1 | 0,
@@ -8571,7 +8446,7 @@
      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:329:8>>*/ var _ar_ = i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
      }
@@ -8579,15 +8454,13 @@
      /*<<float.ml:331:6>>*/ return r;
     /*<<float.ml:332:7>>*/ }
    function iteri(f, a){
-     /*<<float.ml:336:4>>*/ var
-     _an_ = a.length - 2 | 0,
-      /*<<float.ml:336:4>>*/ _am_ = 0;
+    var _an_ = a.length - 2 | 0,  /*<<float.ml:336:4>>*/ _am_ = 0;
     if(_an_ >= 0){
      var i = _am_;
      for(;;){
        /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ caml_call2
        (f, i, a[1 + i]);
-       /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ var _ao_ = i + 1 | 0;
+       /*<<float.ml:336:33>>*/ var _ao_ = i + 1 | 0;
       if(_an_ === i) break;
       i = _ao_;
      }
@@ -8595,7 +8468,7 @@
     return 0;
     /*<<float.ml:336:58>>*/ }
    function mapi(f, a){
-     /*<<float.ml:339:4>>*/ var
+    var
      l = a.length - 1,
       /*<<float.ml:340:12>>*/ r =
         /*<<float.ml:340:12>>*/ caml_floatarray_create(l),
@@ -8606,7 +8479,7 @@
      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:342:6>>*/ var _al_ = i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
      }
@@ -8614,15 +8487,13 @@
      /*<<float.ml:344:4>>*/ return r;
     /*<<float.ml:344:5>>*/ }
    function mapi_inplace(f, a){
-     /*<<float.ml:348:4>>*/ var
-     _ah_ = a.length - 2 | 0,
-      /*<<float.ml:348:4>>*/ _ag_ = 0;
+    var _ah_ = a.length - 2 | 0,  /*<<float.ml:348: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:349:6>>*/ var _ai_ = i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
      }
@@ -8630,7 +8501,7 @@
     return 0;
     /*<<float.ml:350:8>>*/ }
    function fold_left(f, x, a){
-     /*<<float.ml:354:4>>*/ var
+    var
       /*<<float.ml:354:12>>*/ r = [0, x],
      _ae_ = a.length - 2 | 0,
       /*<<float.ml:354:12>>*/ _ad_ = 0;
@@ -8638,7 +8509,7 @@
      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;
+       /*<<float.ml:355:4>>*/ var _af_ = i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
      }
@@ -8646,14 +8517,14 @@
     return r[1];
     /*<<float.ml:358:6>>*/ }
    function fold_right(f, a, x){
-     /*<<float.ml:362:4>>*/ var
+    var
       /*<<float.ml:362:12>>*/ r = [0, x],
       /*<<float.ml:363: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;
+       /*<<float.ml:363:4>>*/ var _ac_ = i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
      }
@@ -8661,101 +8532,101 @@
     return r[1];
     /*<<float.ml:366:6>>*/ }
    function exists(p, a){
-     /*<<float.ml:370:4>>*/ var n = a.length - 1, i = 0;
+    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:374:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:375:10>>*/ }
    function for_all(p, a){
-     /*<<float.ml:379:4>>*/ var n = a.length - 1, i = 0;
+    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:382:38>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:384:10>>*/ }
    function mem(x, a){
-     /*<<float.ml:388:4>>*/ var n = a.length - 1, i = 0;
+    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:392:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:394:10>>*/ }
    function mem_ieee(x, a){
-     /*<<float.ml:398:4>>*/ var n = a.length - 1, i = 0;
+    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:402:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:404:10>>*/ }
    function find_opt(p, a){
-     /*<<float.ml:408:4>>*/ var n = a.length - 1, i = 0;
+    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: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:414:13>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:416:10>>*/ }
    function find_index(p, a){
-     /*<<float.ml:420:4>>*/ var n = a.length - 1, i = 0;
+    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:424:11>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:425:10>>*/ }
    function find_map(f, a){
-     /*<<float.ml:429:4>>*/ var n = a.length - 1, i = 0;
+    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
+      /*<<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:434:18>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:437:10>>*/ }
    function find_mapi(f, a){
-     /*<<float.ml:441:4>>*/ var n = a.length - 1, i = 0;
+    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
+      /*<<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:446:18>>*/ var i$0 = i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:449:10>>*/ }
-    /*<<float.ml:452:2>>*/ var
+   var
      /*<<float.ml:452:2>>*/ Bottom =
       [248, "Stdlib.Float.Array.Bottom", runtime.caml_fresh_oo_id(0)],
     _b_ = [0, cst_float_ml, 484, 6];
    function sort(cmp, a){
     function maxson(l, i){
-      /*<<float.ml:455:6>>*/ var
+     var
       i31 = ((i + i | 0) + i | 0) + 1 | 0,
        /*<<float.ml:456:14>>*/ x = [0, i31];
      if((i31 + 2 | 0) < l){
-       /*<<float.ml:457:24>>*/ var
+      var
         /*<<float.ml:457:24>>*/ _W_ = i31 + 1 | 0,
         /*<<float.ml:458:27>>*/ _X_ = caml_check_bound(a, _W_)[1 + _W_];
       if
@@ -8763,7 +8634,7 @@
          (cmp, caml_check_bound(a, i31)[1 + i31], _X_)
         < 0)
        x[1] = i31 + 1 | 0;
-       /*<<float.ml:459:8>>*/ var
+      var
         /*<<float.ml:459:8>>*/ _Y_ = i31 + 2 | 0,
         /*<<float.ml:459:26>>*/ _Z_ = caml_check_bound(a, _Y_)[1 + _Y_],
        ___ = x[1];
@@ -8775,7 +8646,7 @@
       return x[1];
      }
      if((i31 + 1 | 0) < l){
-       /*<<float.ml:462:40>>*/ var
+      var
        _$_ = i31 + 1 | 0,
         /*<<float.ml:462:40>>*/ _aa_ = caml_check_bound(a, _$_)[1 + _$_];
        /*<<float.ml:462:24>>*/ if
@@ -8793,21 +8664,18 @@
     if(_Q_ >= 0){
      var i$6 = _Q_;
      for(;;){
-       /*<<float.ml:493:52>>*/  /*<<float.ml:493:52>>*/ var
-       e$1 = caml_check_bound(a, i$6)[1 + i$6];
+       /*<<float.ml:493:52>>*/ var e$1 = caml_check_bound(a, i$6)[1 + i$6];
        /*<<float.ml:475:24>>*/ try{
        var i = i$6;
         /*<<float.ml:467:6>>*/ for(;;){
-         /*<<float.ml:467:14>>*/  /*<<float.ml:467:14>>*/ var
-         j = maxson(l, i);
+         /*<<float.ml:467:14>>*/ var j = maxson(l, i);
          /*<<float.ml:468:9>>*/ if
          (0
           >=
             /*<<float.ml:468:9>>*/ caml_call2
             (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
-         /*<<float.ml:469:16>>*/  /*<<float.ml:469:16>>*/ var
-         _N_ = caml_check_bound(a, j)[1 + j];
+         /*<<float.ml:469:16>>*/ var _N_ = caml_check_bound(a, j)[1 + j];
          /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
         i = j;
        }
@@ -8819,23 +8687,22 @@
        var i$0 = exn[2];
         /*<<float.ml:475: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:493: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:494:4>>*/ var _R_ = l - 1 | 0;
     if(_R_ >= 2){
      var i$4 = _R_;
      for(;;){
-       /*<<float.ml:495:14>>*/  /*<<float.ml:495:14>>*/ var
-       e$0 = caml_check_bound(a, i$4)[1 + i$4];
+       /*<<float.ml:495: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];
       var i$5 = 0;
        /*<<float.ml:481:21>>*/ try{
        var i$1 = i$5;
         /*<<float.ml:477:6>>*/ for(;;){
-         /*<<float.ml:477:14>>*/ var
+        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_;
@@ -8862,7 +8729,7 @@
               /*<<float.ml:485: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:486:16>>*/ var
            _P_ = caml_check_bound(a, father)[1 + father];
            /*<<float.ml:486:8>>*/ caml_check_bound(a, i$3)[1 + i$3] = _P_;
           if(0 >= father) break b;
@@ -8873,7 +8740,7 @@
         }
          /*<<float.ml:487: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:494:4>>*/ var _U_ = i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _U_;
       }
@@ -8881,8 +8748,7 @@
     }
     var _S_ = 1 < l ? 1 : 0;
     if(_S_){
-      /*<<float.ml:499:27>>*/  /*<<float.ml:499:27>>*/ var
-      e = caml_check_bound(a, 1)[2];
+      /*<<float.ml:499: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;
      var _T_ = 0;
@@ -8893,7 +8759,7 @@
     /*<<float.ml:499:69>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
-      /*<<float.ml:505:6>>*/ var
+     var
       src1r = src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
        /*<<float.ml:522:46>>*/ s2$1 =
@@ -8909,10 +8775,9 @@
        /*<<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
-        i2$0 = i2 + 1 | 0;
+        /*<<float.ml:515: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
+       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];
        i2 = i2$0;
@@ -8921,11 +8786,10 @@
       }
       else{
         /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-        /*<<float.ml:508:10>>*/  /*<<float.ml:508:10>>*/ var
-        i1$0 = i1 + 1 | 0;
+        /*<<float.ml:508: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
+       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];
        i1 = i1$0;
@@ -8934,13 +8798,11 @@
       }
      /*<<float.ml:522:72>>*/ }
     function isortto(srcofs, dst, dstofs, len){
-      /*<<float.ml:525:6>>*/ var
-      _F_ = len - 1 | 0,
-       /*<<float.ml:525:6>>*/ _E_ = 0;
+     var _F_ = len - 1 | 0,  /*<<float.ml:525:6>>*/ _E_ = 0;
      if(_F_ >= 0){
       var i = _E_;
       for(;;){
-        /*<<float.ml:526:16>>*/ var
+       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];
@@ -8953,7 +8815,7 @@
             /*<<float.ml:528:31>>*/ caml_call2
             (cmp, caml_check_bound(dst, _H_)[1 + _H_], e))
          break;
-         /*<<float.ml:529:27>>*/ var
+        var
          _I_ = j[1],
           /*<<float.ml:529:27>>*/ _J_ = caml_check_bound(dst, _I_)[1 + _I_],
          _K_ = j[1] + 1 | 0;
@@ -8962,7 +8824,7 @@
        }
        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:525:6>>*/ var _M_ = i + 1 | 0;
        if(_F_ === i) break;
        i = _M_;
       }
@@ -8980,7 +8842,7 @@
      /*<<float.ml:542:9>>*/ }
     var l = a.length - 1;
     if(l <= 5)  /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l);
-     /*<<float.ml:548:14>>*/ var
+    var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
       /*<<float.ml:548:14>>*/ t =
@@ -8990,11 +8852,11 @@
      /*<<float.ml:550:6>>*/ return merge(l2, l1, t, 0, l2, a, 0);
     /*<<float.ml:552:7>>*/ }
    function shuffle(rand, a){
-     /*<<float.ml:558:4>>*/ var _C_ = a.length - 2 | 0;
+    var _C_ = a.length - 2 | 0;
     if(_C_ >= 1){
      var i = _C_;
      for(;;){
-       /*<<float.ml:559:14>>*/ var
+      var
         /*<<float.ml:559:14>>*/ j =
           /*<<float.ml:559:14>>*/ caml_call1(rand, i + 1 | 0),
         /*<<float.ml:560:14>>*/ v = a[1 + i];
@@ -9011,7 +8873,7 @@
     function aux(i, param){
       /*<<float.ml:568:6>>*/ if(i >= a.length - 1)
        /*<<float.ml:572:11>>*/ return 0;
-      /*<<float.ml:570:16>>*/ var
+     var
        /*<<float.ml:570:16>>*/ x = a[1 + i],
        /*<<float.ml:570:16>>*/ _A_ = i + 1 | 0;
       /*<<float.ml:571:8>>*/ return [0,
@@ -9026,7 +8888,7 @@
     function aux(i, param){
       /*<<float.ml:579:6>>*/ if(i >= a.length - 1)
        /*<<float.ml:583:11>>*/ return 0;
-      /*<<float.ml:581:16>>*/ var
+     var
        /*<<float.ml:581:16>>*/ x = a[1 + i],
        /*<<float.ml:581:16>>*/ _w_ = i + 1 | 0;
       /*<<float.ml:582:8>>*/ return [0,
@@ -9038,7 +8900,7 @@
       /*<<?>>*/ return aux(_u_, _v_);};
     /*<<float.ml:585:9>>*/ }
    function of_seq(i$2){
-     /*<<float.ml:599:4>>*/ var
+    var
       /*<<float.ml:599:12>>*/ l =
         /*<<float.ml:599:12>>*/ caml_call3
         (Stdlib_Seq[5],
@@ -9058,15 +8920,15 @@
      if(! param)  /*<<float.ml:591: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:591:4>>*/ var i$0 = i - 1 | 0;
      i = i$0;
      param = tl;
     }
     /*<<float.ml:600:17>>*/ }
    function map_to_array(f, a){
-     /*<<float.ml:604:4>>*/ var l = a.length - 1;
+    var l = a.length - 1;
      /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
-     /*<<float.ml:606:14>>*/ var
+    var
       /*<<float.ml:606:14>>*/ r =
         /*<<float.ml:606:14>>*/ caml_make_vect
         (l,  /*<<float.ml:606:27>>*/ caml_call1(f, a[1])),
@@ -9077,7 +8939,7 @@
      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:608:8>>*/ var _t_ = i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
      }
@@ -9085,7 +8947,7 @@
      /*<<float.ml:610:6>>*/ return r;
     /*<<float.ml:611:7>>*/ }
    function map_from_array(f, a){
-     /*<<float.ml:614:4>>*/ var
+    var
      l = a.length - 1,
       /*<<float.ml:615:12>>*/ r =
         /*<<float.ml:615:12>>*/ caml_floatarray_create(l),
@@ -9096,7 +8958,7 @@
      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:617:6>>*/ var _q_ = i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
      }
@@ -9245,15 +9107,16 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_greaterequal = runtime.caml_greaterequal,
-    caml_hash = runtime.caml_hash,
-    caml_int_compare = runtime.caml_int_compare,
-    caml_lessequal = runtime.caml_lessequal,
-    caml_lessthan = runtime.caml_lessthan,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_mul = runtime.caml_mul,
-    caml_wrap_exception = runtime.caml_wrap_exception,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_greaterequal = runtime.caml_greaterequal,
+     /*<<?>>*/ caml_hash = runtime.caml_hash,
+     /*<<?>>*/ caml_int_compare = runtime.caml_int_compare,
+     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
+     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_mul = runtime.caml_mul,
+     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Sys = global_data.Stdlib__Sys,
@@ -9282,7 +9145,7 @@
     min_int = -2147483648,
     max_int = 2147483647;
    if(32 === _a_)
-     /*<<int32.ml:58:6>>*/ var
+    var
       /*<<int32.ml:58:6>>*/ max_int$0 = Stdlib[19],
      unsigned_to_int =
        function(n){
@@ -9308,7 +9171,7 @@
     /*<<int32.ml:72:31>>*/ }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
-      /*<<int32.ml:77:6>>*/  /*<<int32.ml:77:6>>*/ var
+      /*<<int32.ml:77:6>>*/ var
       _d_ = [0,  /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
       /*<<int32.ml:77:6>>*/ return _d_;
     }
@@ -9320,7 +9183,7 @@
     /*<<int32.ml:78:24>>*/ }
    var compare = caml_int_compare, equal = runtime.caml_equal;
    function unsigned_compare(n, m){
-     /*<<int32.ml:86:2>>*/ var
+    var
       /*<<int32.ml:86:26>>*/ y = m + 2147483648 | 0,
       /*<<int32.ml:86:10>>*/ x = n + 2147483648 | 0;
      /*<<int32.ml:82:28>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
@@ -9345,7 +9208,7 @@
    function unsigned_div(n, d){
      /*<<int32.ml:98:2>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
       /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one;
-     /*<<int32.ml:101:12>>*/ var
+    var
       /*<<int32.ml:101:12>>*/ q =
         /*<<int32.ml:101:23>>*/ runtime.caml_div(n >>> 1 | 0, d) << 1,
       /*<<int32.ml:102:12>>*/ r =
@@ -9400,17 +9263,18 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_greaterequal = runtime.caml_greaterequal,
-    caml_hash = runtime.caml_hash,
-    caml_int64_add = runtime.caml_int64_add,
-    caml_int64_compare = runtime.caml_int64_compare,
-    caml_int64_mul = runtime.caml_int64_mul,
-    caml_int64_sub = runtime.caml_int64_sub,
-    caml_lessequal = runtime.caml_lessequal,
-    caml_lessthan = runtime.caml_lessthan,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_wrap_exception = runtime.caml_wrap_exception,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_greaterequal = runtime.caml_greaterequal,
+     /*<<?>>*/ caml_hash = runtime.caml_hash,
+     /*<<?>>*/ caml_int64_add = runtime.caml_int64_add,
+     /*<<?>>*/ caml_int64_compare = runtime.caml_int64_compare,
+     /*<<?>>*/ caml_int64_mul = runtime.caml_int64_mul,
+     /*<<?>>*/ caml_int64_sub = runtime.caml_int64_sub,
+     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
+     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     _a_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0),
     zero = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
@@ -9440,11 +9304,11 @@
      /*<<int64.ml:51:15>>*/ return  /*<<int64.ml:51:15>>*/ runtime.caml_int64_xor
             (n, _d_);
     /*<<int64.ml:51:29>>*/ }
-    /*<<int64.ml:54:16>>*/ var
+   var
      /*<<int64.ml:54:16>>*/ max_int$0 =
        /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32(Stdlib[19]),
     _e_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
-    /*<<int64.ml:55:2>>*/ function unsigned_to_int(n){
+   function unsigned_to_int(n){
      /*<<int64.ml:56:4>>*/ if
      ( /*<<int64.ml:56:7>>*/ caml_greaterequal(n, _e_)
       &&  /*<<int64.ml:56:18>>*/ caml_lessequal(n, max_int$0))
@@ -9457,7 +9321,7 @@
     /*<<int64.ml:62:31>>*/ }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
-      /*<<int64.ml:67:6>>*/  /*<<int64.ml:67:6>>*/ var
+      /*<<int64.ml:67:6>>*/ var
       _g_ = [0,  /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
       /*<<int64.ml:67:6>>*/ return _g_;
     }
@@ -9473,7 +9337,7 @@
     /*<<int64.ml:79:46>>*/ }
    var equal = runtime.caml_equal;
    function unsigned_compare(n, m){
-     /*<<int64.ml:83:2>>*/ var
+    var
       /*<<int64.ml:83:26>>*/ y =
         /*<<int64.ml:83:26>>*/ caml_int64_sub(m, min_int),
       /*<<int64.ml:83:10>>*/ x =
@@ -9501,7 +9365,7 @@
    function unsigned_div(n, d){
      /*<<int64.ml:95:2>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
       /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one;
-     /*<<int64.ml:98:12>>*/ var
+    var
       /*<<int64.ml:98:12>>*/ q =
         /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
         ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
@@ -9563,15 +9427,16 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_greaterequal = runtime.caml_greaterequal,
-    caml_hash = runtime.caml_hash,
-    caml_int_compare = runtime.caml_int_compare,
-    caml_lessequal = runtime.caml_lessequal,
-    caml_lessthan = runtime.caml_lessthan,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_mul = runtime.caml_mul,
-    caml_wrap_exception = runtime.caml_wrap_exception,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_greaterequal = runtime.caml_greaterequal,
+     /*<<?>>*/ caml_hash = runtime.caml_hash,
+     /*<<?>>*/ caml_int_compare = runtime.caml_int_compare,
+     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
+     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_mul = runtime.caml_mul,
+     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Sys = global_data.Stdlib__Sys,
@@ -9589,7 +9454,7 @@
             ? n
             : - n | 0;
     /*<<nativeint.ml:46:40>>*/ }
-    /*<<nativeint.ml:48:14>>*/ var
+   var
     size = Stdlib_Sys[9],
      /*<<nativeint.ml:48:14>>*/ min_int = 1 << (size - 1 | 0),
      /*<<nativeint.ml:49:14>>*/ max_int = min_int - 1 | 0;
@@ -9597,7 +9462,7 @@
      /*<<nativeint.ml:50:15>>*/ return n ^ -1;
     /*<<nativeint.ml:50:29>>*/ }
    var max_int$0 = Stdlib[19];
-    /*<<nativeint.ml:54:2>>*/ function unsigned_to_int(n){
+   function unsigned_to_int(n){
      /*<<nativeint.ml:55:4>>*/ if
      ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal(n, 0)
       &&  /*<<nativeint.ml:55:18>>*/ caml_lessequal(n, max_int$0))
@@ -9610,7 +9475,7 @@
     /*<<nativeint.ml:61:31>>*/ }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
-      /*<<nativeint.ml:66:6>>*/  /*<<nativeint.ml:66:6>>*/ var
+      /*<<nativeint.ml:66:6>>*/ var
       _b_ = [0,  /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
       /*<<nativeint.ml:66:6>>*/ return _b_;
     }
@@ -9628,7 +9493,7 @@
             : 0;
     /*<<nativeint.ml:72:41>>*/ }
    function unsigned_compare(n, m){
-     /*<<nativeint.ml:75:2>>*/ var
+    var
       /*<<nativeint.ml:75:26>>*/ y = m - min_int | 0,
       /*<<nativeint.ml:75:10>>*/ x = n - min_int | 0;
      /*<<nativeint.ml:71:28>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
@@ -9654,7 +9519,7 @@
      /*<<nativeint.ml:87:2>>*/ if
      ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
       /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one;
-     /*<<nativeint.ml:90:12>>*/ var
+    var
       /*<<nativeint.ml:90:12>>*/ q =
         /*<<nativeint.ml:90:23>>*/ runtime.caml_div(n >>> 1 | 0, d) << 1,
       /*<<nativeint.ml:91:12>>*/ r =
@@ -9710,33 +9575,33 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst = "",
-    caml_bytes_get = runtime.caml_bytes_get,
-    caml_check_bound = runtime.caml_check_bound,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_ml_bytes_length = runtime.caml_ml_bytes_length;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst = "",
+     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
+     /*<<?>>*/ caml_check_bound = runtime.caml_check_bound,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length;
+   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){
+   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){
+   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){
+   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){
+   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]);
@@ -9751,7 +9616,7 @@
     Stdlib_Int = global_data.Stdlib__Int,
     cst_Lexing_lex_refill_cannot_g = "Lexing.lex_refill: cannot grow buffer";
    function engine(tbl, state, buf){
-     /*<<lexing.ml:65:2>>*/ var
+    var
       /*<<lexing.ml:65:15>>*/ result =
         /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine(tbl, state, buf),
      _n_ = 0 <= result ? 1 : 0,
@@ -9764,7 +9629,7 @@
      /*<<lexing.ml:71:2>>*/ return result;
     /*<<lexing.ml:71:8>>*/ }
    function new_engine(tbl, state, buf){
-     /*<<lexing.ml:75:2>>*/ var
+    var
       /*<<lexing.ml:75:15>>*/ result =
         /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine(tbl, state, buf),
      _k_ = 0 <= result ? 1 : 0,
@@ -9777,7 +9642,7 @@
      /*<<lexing.ml:81:2>>*/ return result;
     /*<<lexing.ml:81:8>>*/ }
    function from_function(opt, read_fun){
-     /*<<lexing.ml:148:2>>*/ var
+    var
      with_positions = opt ? opt[1] : 1,
       /*<<lexing.ml:148:2>>*/ _f_ = with_positions ? zero_pos : dummy_pos,
      _g_ = with_positions ? zero_pos : dummy_pos,
@@ -9785,7 +9650,7 @@
         /*<<lexing.ml:148:31>>*/ caml_create_bytes(512);
      /*<<lexing.ml:148:2>>*/ return [0,
             function(lexbuf){
-              /*<<lexing.ml:85:4>>*/ var
+             var
                /*<<lexing.ml:85:4>>*/ read =
                  /*<<lexing.ml:85:4>>*/ caml_call2
                  (read_fun, aux_buffer, caml_ml_bytes_length(aux_buffer)),
@@ -9802,7 +9667,7 @@
                  0,
                  lexbuf[3] - lexbuf[5] | 0);
               else{
-                /*<<lexing.ml:111:8>>*/  /*<<lexing.ml:111:8>>*/ var
+                /*<<lexing.ml:111:8>>*/ var
                 newlen =
                    /*<<lexing.ml:111:8>>*/ caml_call2
                    (Stdlib_Int[10],
@@ -9811,7 +9676,7 @@
                if(newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0))
                  /*<<lexing.ml:113:11>>*/  /*<<lexing.ml:113:11>>*/ caml_call1
                  (Stdlib[2], cst_Lexing_lex_refill_cannot_g);
-                /*<<lexing.ml:114:19>>*/  /*<<lexing.ml:114:19>>*/ var
+                /*<<lexing.ml:114:19>>*/ var
                 newbuf =  /*<<lexing.ml:114:19>>*/ caml_create_bytes(newlen);
                 /*<<lexing.ml:116:6>>*/  /*<<lexing.ml:116:6>>*/ caml_call5
                 (Stdlib_Bytes[11],
@@ -9832,12 +9697,11 @@
               if(_i_ >= 0){
                var i = _h_;
                for(;;){
-                 /*<<lexing.ml:131:14>>*/  /*<<lexing.ml:131:14>>*/ var
+                 /*<<lexing.ml:131:14>>*/ var
                  v = caml_check_bound(t, i)[1 + i];
                 if(0 <= v)
                   /*<<lexing.ml:133:8>>*/ caml_check_bound(t, i)[1 + i] = v - s | 0;
-                 /*<<lexing.ml:130:4>>*/  /*<<lexing.ml:130:4>>*/ var
-                 _j_ = i + 1 | 0;
+                 /*<<lexing.ml:130:4>>*/ var _j_ = i + 1 | 0;
                 if(_i_ === i) break;
                 i = _j_;
                }
@@ -9869,7 +9733,7 @@
               /*<<lexing.ml:163:62>>*/ });
     /*<<lexing.ml:163:63>>*/ }
    function from_string(opt, s){
-     /*<<lexing.ml:166:2>>*/ var
+    var
      with_positions = opt ? opt[1] : 1,
       /*<<lexing.ml:166:2>>*/ _d_ = with_positions ? zero_pos : dummy_pos,
      _e_ = with_positions ? zero_pos : dummy_pos;
@@ -9897,7 +9761,7 @@
     return 0;
     /*<<lexing.ml:183:41>>*/ }
    function set_filename(lexbuf, fname){
-     /*<<lexing.ml:186:2>>*/ var _c_ = lexbuf[12];
+    var _c_ = lexbuf[12];
     lexbuf[12] = [0, fname, _c_[2], _c_[3], _c_[4]];
     return 0;
     /*<<lexing.ml:186:65>>*/ }
@@ -9905,12 +9769,12 @@
      /*<<lexing.ml:188:28>>*/ return lexbuf[12] !== dummy_pos ? 1 : 0;
     /*<<lexing.ml:188:58>>*/ }
    function lexeme(lexbuf){
-     /*<<lexing.ml:191:2>>*/ var len = lexbuf[6] - lexbuf[5] | 0;
+    var len = lexbuf[6] - lexbuf[5] | 0;
      /*<<lexing.ml:192:2>>*/ return  /*<<lexing.ml:192:2>>*/ caml_call3
             (Stdlib_Bytes[8], lexbuf[2], lexbuf[5], len);
     /*<<lexing.ml:192:61>>*/ }
    function sub_lexeme(lexbuf, i1, i2){
-     /*<<lexing.ml:195:2>>*/ var len = i2 - i1 | 0;
+    var len = i2 - i1 | 0;
      /*<<lexing.ml:196:2>>*/ return  /*<<lexing.ml:196:2>>*/ caml_call3
             (Stdlib_Bytes[8], lexbuf[2], i1, len);
     /*<<lexing.ml:196:43>>*/ }
@@ -9947,7 +9811,7 @@
      /*<<lexing.ml:222:26>>*/ return lexbuf[12];
     /*<<lexing.ml:222:43>>*/ }
    function new_line(lexbuf){
-     /*<<lexing.ml:225:2>>*/ var
+    var
      lcp = lexbuf[12],
      _a_ = lcp !== dummy_pos ? 1 : 0,
      _b_ =
@@ -10000,28 +9864,29 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    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){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call4(f, a0, a1, a2, a3){
+   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){
+   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]);
    }
-    /*<<parsing.ml:59:0>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
     Stdlib_Array = global_data.Stdlib__Array,
@@ -10050,7 +9915,7 @@
        0],
     dummy = 0;
    function grow_stacks(param){
-     /*<<parsing.ml:108:2>>*/ var
+    var
      oldsize = env[5],
      newsize = oldsize * 2 | 0,
       /*<<parsing.ml:110:14>>*/ new_s =
@@ -10081,7 +9946,7 @@
     env[8] = 0;
     return 0;
     /*<<parsing.ml:126:25>>*/ }
-    /*<<parsing.ml:128:28>>*/ var
+   var
      /*<<parsing.ml:128:28>>*/ current_lookahead_fun =
       [0,
        function(param){
@@ -10089,7 +9954,7 @@
         /*<<parsing.ml:128:57>>*/ }],
     cst_syntax_error = "syntax error";
    function yyparse(tables, start, lexer, lexbuf){
-     /*<<parsing.ml:131:2>>*/ var
+    var
      init_asp = env[11],
      init_sp = env[14],
      init_stackbase = env[6],
@@ -10107,7 +9972,7 @@
        ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
          (tables, env, cmd, arg)){
         case 0:
-          /*<<parsing.ml:134:24>>*/  /*<<parsing.ml:134:24>>*/ var
+          /*<<parsing.ml:134:24>>*/ var
           arg$0 =  /*<<parsing.ml:134:24>>*/ caml_call1(lexer, lexbuf);
          env[9] = lexbuf[11];
          env[10] = lexbuf[12];
@@ -10123,7 +9988,7 @@
           /*<<parsing.ml:150:8>>*/ grow_stacks(0); cmd = 3; arg = 0; break;
         case 4:
          try{
-           /*<<parsing.ml:143:39>>*/ var
+          var
            _i_ = env[13],
             /*<<parsing.ml:143:39>>*/ _j_ =
               /*<<parsing.ml:143:39>>*/ caml_call1
@@ -10148,7 +10013,7 @@
       }
     }
     catch(exn$0){
-      /*<<parsing.ml:167:4>>*/ var
+     var
       exn = caml_wrap_exception(exn$0),
        /*<<parsing.ml:167:4>>*/ curr_char = env[7];
      env[11] = init_asp;
@@ -10171,7 +10036,7 @@
                 === curr_char
                 ? 1
                 : 0;
-        /*<<parsing.ml:182:38>>*/  /*<<parsing.ml:182:38>>*/ var
+        /*<<parsing.ml:182:38>>*/ var
         _l_ =  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag(tok);
         /*<<parsing.ml:182:17>>*/ return caml_check_bound(tables[3], _l_)
                 [1 + _l_]
@@ -10184,17 +10049,17 @@
     }
     /*<<parsing.ml:184:17>>*/ }
    function peek_val(env, n){
-     /*<<parsing.ml:187:2>>*/ var _g_ = env[11] - n | 0;
+    var _g_ = env[11] - n | 0;
      /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_];
     /*<<parsing.ml:187:37>>*/ }
    function symbol_start_pos(param){
-     /*<<parsing.ml:190:2>>*/ var i$1 = env[12], i = i$1;
+    var i$1 = env[12], i = i$1;
      /*<<parsing.ml:191:4>>*/ for(;;){
      if(0 >= i){
       var _f_ = env[11];
        /*<<parsing.ml:191:19>>*/ return caml_check_bound(env[4], _f_)[1 + _f_];
      }
-      /*<<parsing.ml:193:15>>*/ var
+     var
       _d_ = (env[11] - i | 0) + 1 | 0,
        /*<<parsing.ml:193:15>>*/ st = caml_check_bound(env[3], _d_)[1 + _d_],
       _e_ = (env[11] - i | 0) + 1 | 0,
@@ -10202,21 +10067,20 @@
       /*<<parsing.ml:195:9>>*/ if
       ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal(st, en))
        /*<<parsing.ml:195:23>>*/ return st;
-      /*<<parsing.ml:195:31>>*/  /*<<parsing.ml:195:31>>*/ var
-      i$0 = i - 1 | 0;
+      /*<<parsing.ml:195:31>>*/ var i$0 = i - 1 | 0;
      i = i$0;
     }
     /*<<parsing.ml:198:19>>*/ }
    function symbol_end_pos(param){
-     /*<<parsing.ml:200:24>>*/ var _c_ = env[11];
+    var _c_ = env[11];
      /*<<parsing.ml:200:24>>*/ return caml_check_bound(env[4], _c_)[1 + _c_];
     /*<<parsing.ml:200:52>>*/ }
    function rhs_start_pos(n){
-     /*<<parsing.ml:201:22>>*/ var _b_ = env[11] - (env[12] - n | 0) | 0;
+    var _b_ = env[11] - (env[12] - n | 0) | 0;
      /*<<parsing.ml:201:22>>*/ return caml_check_bound(env[3], _b_)[1 + _b_];
     /*<<parsing.ml:201:73>>*/ }
    function rhs_end_pos(n){
-     /*<<parsing.ml:202:20>>*/ var _a_ = env[11] - (env[12] - n | 0) | 0;
+    var _a_ = env[11] - (env[12] - n | 0) | 0;
      /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_];
     /*<<parsing.ml:202:69>>*/ }
    function symbol_start(param){
@@ -10268,20 +10132,21 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_Set_bal$3 = "Set.bal",
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_Set_bal$3 = "Set.bal",
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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){
+   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]);
@@ -10324,7 +10189,7 @@
           if(! l)
             /*<<set.ml:105:19>>*/ return  /*<<set.ml:105:19>>*/ caml_call1
                    (Stdlib[1], cst_Set_bal$0);
-           /*<<set.ml:107:28>>*/ var
+          var
            lr = l[3],
            lv = l[2],
            ll = l[1],
@@ -10334,7 +10199,7 @@
           if(! lr)
             /*<<set.ml:111:25>>*/ return  /*<<set.ml:111:25>>*/ caml_call1
                    (Stdlib[1], cst_Set_bal);
-           /*<<set.ml:113:48>>*/ var
+          var
            lrr = lr[3],
            lrv = lr[2],
            lrl = lr[1],
@@ -10348,7 +10213,7 @@
          if(! r)
            /*<<set.ml:117:19>>*/ return  /*<<set.ml:117:19>>*/ caml_call1
                   (Stdlib[1], cst_Set_bal$2);
-          /*<<set.ml:119:28>>*/ var
+         var
           rr = r[3],
           rv = r[2],
           rl = r[1],
@@ -10358,7 +10223,7 @@
          if(! rl)
            /*<<set.ml:123:25>>*/ return  /*<<set.ml:123:25>>*/ caml_call1
                   (Stdlib[1], cst_Set_bal$1);
-          /*<<set.ml:125:46>>*/ var
+         var
           rlr = rl[3],
           rlv = rl[2],
           rll = rl[1],
@@ -10367,7 +10232,7 @@
          /*<<set.ml:128:62>>*/ }
         function add(x, t){
           /*<<?>>*/ if(! t)  /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1];
-          /*<<set.ml:135:18>>*/ var
+         var
           r = t[3],
           v = t[2],
           l = t[1],
@@ -10375,10 +10240,10 @@
              /*<<set.ml:135:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
          if(0 <= c){
-           /*<<set.ml:141:21>>*/  /*<<set.ml:141:21>>*/ var rr = add(x, r);
+           /*<<set.ml:141:21>>*/ var rr = add(x, r);
           return r === rr ? t : bal(l, v, rr);
          }
-          /*<<set.ml:138:21>>*/  /*<<set.ml:138:21>>*/ var ll = add(x, l);
+          /*<<set.ml:138:21>>*/ var ll = add(x, l);
          return l === ll ? t : bal(ll, v, r);
         }
         function singleton(x){
@@ -10417,7 +10282,7 @@
                    : create(l, v, r);
          /*<<set.ml:173:22>>*/ }
         function min_elt(param){
-          /*<<set.ml:177:22>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<set.ml:177:22>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:178:17>>*/ throw  /*<<set.ml:178:17>>*/ caml_maybe_attach_backtrace
@@ -10428,7 +10293,7 @@
          }
          /*<<set.ml:180:28>>*/ }
         function min_elt_opt(param){
-          /*<<set.ml:182:26>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<set.ml:182:26>>*/ for(;;){
           if(! param$0)  /*<<set.ml:183:17>>*/ return 0;
           var l = param$0[1];
@@ -10437,7 +10302,7 @@
          }
          /*<<set.ml:185:32>>*/ }
         function max_elt(param){
-          /*<<set.ml:187:22>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<set.ml:187:22>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:188:17>>*/ throw  /*<<set.ml:188:17>>*/ caml_maybe_attach_backtrace
@@ -10451,7 +10316,7 @@
          }
          /*<<set.ml:190:28>>*/ }
         function max_elt_opt(param){
-          /*<<set.ml:192:26>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<set.ml:192:26>>*/ for(;;){
           if(! param$0)  /*<<set.ml:193:17>>*/ return 0;
           if(! param$0[3]){
@@ -10477,13 +10342,12 @@
         function concat(t1, t2){
           /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
          if(! t2)  /*<<set.ml:221:22>>*/ return t1;
-          /*<<set.ml:222:39>>*/  /*<<set.ml:222:39>>*/ var
-          _S_ = remove_min_elt(t2);
+          /*<<set.ml:222:39>>*/ var _S_ = remove_min_elt(t2);
           /*<<set.ml:222:39>>*/ return join(t1, min_elt(t2), _S_);
          /*<<set.ml:222:58>>*/ }
         function split(x, param){
           /*<<?>>*/ if(! param)  /*<<set.ml:232:10>>*/ return _a_;
-          /*<<set.ml:234:18>>*/ var
+         var
           r = param[3],
           v = param[2],
           l = param[1],
@@ -10492,14 +10356,14 @@
           /*<<set.ml:235:10>>*/ if(0 === c)
            /*<<set.ml:235:24>>*/ return [0, l, 1, r];
          if(0 <= c){
-           /*<<set.ml:239:33>>*/ var
+          var
             /*<<set.ml:239:33>>*/ match = split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
            /*<<set.ml:239:46>>*/ return [0, join(l, v, lr), pres, rr];
          }
-          /*<<set.ml:237:33>>*/ var
+         var
            /*<<set.ml:237:33>>*/ match$0 = split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
@@ -10514,7 +10378,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<set.ml:248:17>>*/ return 0;
-           /*<<set.ml:250:18>>*/ var
+          var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -10528,7 +10392,7 @@
         }
         function remove(x, t){
           /*<<?>>*/ if(! t)  /*<<set.ml:254:17>>*/ return 0;
-          /*<<set.ml:256:18>>*/ var
+         var
           t2 = t[3],
           v = t[2],
           t1 = t[1],
@@ -10537,16 +10401,14 @@
           /*<<set.ml:257:10>>*/ if(0 === c){
           if(! t1)  /*<<set.ml:210:22>>*/ return t2;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1;
-           /*<<set.ml:212:38>>*/  /*<<set.ml:212:38>>*/ var
-           _Q_ = remove_min_elt(t2);
+           /*<<set.ml:212:38>>*/ var _Q_ = remove_min_elt(t2);
            /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_);
          }
          if(0 <= c){
-           /*<<set.ml:264:23>>*/  /*<<set.ml:264:23>>*/ var
-           rr = remove(x, t2);
+           /*<<set.ml:264:23>>*/ var rr = remove(x, t2);
           return t2 === rr ? t : bal(t1, v, rr);
          }
-          /*<<set.ml:260:23>>*/  /*<<set.ml:260:23>>*/ var ll = remove(x, t1);
+          /*<<set.ml:260:23>>*/ var ll = remove(x, t1);
          return t1 === ll ? t : bal(ll, v, t2);
         }
         function union(s1, s2){
@@ -10563,7 +10425,7 @@
           l1 = s1[1];
          if(h2 <= h1){
           if(1 === h2)  /*<<set.ml:274:27>>*/ return add(v2, s1);
-           /*<<set.ml:275:32>>*/ var
+          var
             /*<<set.ml:275:32>>*/ match = split(v1, s2),
            r2$0 = match[3],
            l2$0 = match[1],
@@ -10571,7 +10433,7 @@
            /*<<set.ml:276:36>>*/ return join(union(l1, l2$0), v1, _O_);
          }
          if(1 === h1)  /*<<set.ml:279:27>>*/ return add(v1, s2);
-          /*<<set.ml:280:32>>*/ var
+         var
            /*<<set.ml:280:32>>*/ match$0 = split(v2, s1),
           r1$0 = match$0[3],
           l1$0 = match$0[1],
@@ -10581,21 +10443,17 @@
         function inter(s1, s2){
           /*<<set.ml:285:6>>*/ if(! s1)  /*<<set.ml:286:22>>*/ return 0;
          if(! s2)  /*<<set.ml:287:22>>*/ return 0;
-          /*<<set.ml:289:16>>*/ var
+         var
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
            /*<<set.ml:289:16>>*/ _L_ = split(v1, s2),
           l2 = _L_[1];
          if(_L_[2]){
-           /*<<set.ml:293:36>>*/ var
-           r2 = _L_[3],
-            /*<<set.ml:293:36>>*/ _M_ = inter(r1, r2);
+          var r2 = _L_[3],  /*<<set.ml:293:36>>*/ _M_ = inter(r1, r2);
            /*<<set.ml:293:36>>*/ return join(inter(l1, l2), v1, _M_);
          }
-          /*<<set.ml:291:35>>*/ var
-          r2$0 = _L_[3],
-           /*<<set.ml:291:35>>*/ _N_ = inter(r1, r2$0);
+         var r2$0 = _L_[3],  /*<<set.ml:291:35>>*/ _N_ = inter(r1, r2$0);
           /*<<set.ml:291:35>>*/ return concat(inter(l1, l2), _N_);
          /*<<set.ml:293:49>>*/ }
         function split_bis(x, param){
@@ -10605,7 +10463,7 @@
                   function(param){
                     /*<<set.ml:305:38>>*/ return 0;
                    /*<<set.ml:305:43>>*/ }];
-          /*<<set.ml:307:18>>*/ var
+         var
           r = param[3],
           v = param[2],
           l = param[1],
@@ -10613,14 +10471,12 @@
              /*<<set.ml:307:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
          if(0 <= c){
-           /*<<set.ml:314:18>>*/  /*<<set.ml:314:18>>*/ var
-           match = split_bis(x, r);
+           /*<<set.ml:314:18>>*/ var match = split_bis(x, r);
           if(! match)  /*<<set.ml:315:23>>*/ return 0;
           var rr = match[2], lr = match[1];
            /*<<set.ml:316:35>>*/ return [0, join(l, v, lr), rr];
          }
-          /*<<set.ml:310:18>>*/  /*<<set.ml:310:18>>*/ var
-          match$0 = split_bis(x, l);
+          /*<<set.ml:310:18>>*/ var match$0 = split_bis(x, l);
          if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
          var rl = match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
@@ -10630,20 +10486,19 @@
                   /*<<set.ml:312:76>>*/ }];
         }
         function disjoint(s1, s2){
-          /*<<set.ml:319:6>>*/ var s1$0 = s1, s2$0 = s2;
+         var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:319:6>>*/ for(;;){
           if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
            if(s1$0 === s2$0)  /*<<set.ml:322:27>>*/ return 0;
-            /*<<set.ml:323:21>>*/  /*<<set.ml:323:21>>*/ var
-            match = split_bis(v1, s2$0);
+            /*<<set.ml:323:21>>*/ var match = split_bis(v1, s2$0);
            if(! match)  /*<<set.ml:325:23>>*/ return 0;
-            /*<<set.ml:324:34>>*/ var
+           var
             r2 = match[2],
             l2 = match[1],
              /*<<set.ml:324:34>>*/ _K_ = disjoint(l1, l2);
             /*<<set.ml:324:34>>*/ if(! _K_)  /*<<set.ml:324:34>>*/ return _K_;
-            /*<<set.ml:324:64>>*/  /*<<set.ml:324:64>>*/ var s2$1 = r2(0);
+            /*<<set.ml:324:64>>*/ var s2$1 = r2(0);
            s1$0 = r1;
            s2$0 = s2$1;
            continue;
@@ -10654,28 +10509,24 @@
         function diff(s1, s2){
           /*<<set.ml:328:6>>*/ if(! s1)  /*<<set.ml:329:22>>*/ return 0;
          if(! s2)  /*<<set.ml:330:23>>*/ return s1;
-          /*<<set.ml:332:16>>*/ var
+         var
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
            /*<<set.ml:332:16>>*/ _H_ = split(v1, s2),
           l2 = _H_[1];
          if(_H_[2]){
-           /*<<set.ml:336:34>>*/ var
-           r2 = _H_[3],
-            /*<<set.ml:336:34>>*/ _I_ = diff(r1, r2);
+          var r2 = _H_[3],  /*<<set.ml:336:34>>*/ _I_ = diff(r1, r2);
            /*<<set.ml:336:34>>*/ return concat(diff(l1, l2), _I_);
          }
-          /*<<set.ml:334:35>>*/ var
-          r2$0 = _H_[3],
-           /*<<set.ml:334:35>>*/ _J_ = diff(r1, r2$0);
+         var r2$0 = _H_[3],  /*<<set.ml:334:35>>*/ _J_ = diff(r1, r2$0);
           /*<<set.ml:334:35>>*/ return join(diff(l1, l2), v1, _J_);
          /*<<set.ml:336:46>>*/ }
         function cons_enum(s, e){
-          /*<<set.ml:341:6>>*/ var s$0 = s, e$0 = e;
+         var s$0 = s, e$0 = e;
           /*<<set.ml:341:6>>*/ for(;;){
           if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
-           /*<<set.ml:343:37>>*/ var
+          var
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
@@ -10685,7 +10536,7 @@
          }
          /*<<set.ml:343:52>>*/ }
         function compare(s1, s2){
-          /*<<set.ml:357:6>>*/ var
+         var
            /*<<set.ml:357:37>>*/ e2$2 = cons_enum(s2, 0),
            /*<<set.ml:357:18>>*/ e1$2 = cons_enum(s1, 0),
           e1 = e1$2,
@@ -10693,7 +10544,7 @@
           /*<<set.ml:346:8>>*/ for(;;){
           if(! e1) return e2 ? -1 : 0;
           if(! e2)  /*<<set.ml:349:20>>*/ return 1;
-           /*<<set.ml:351:18>>*/ var
+          var
            e2$0 = e2[3],
            r2 = e2[2],
            v2 = e2[1],
@@ -10703,7 +10554,7 @@
             /*<<set.ml:351:18>>*/ c =
               /*<<set.ml:351:18>>*/ caml_call2(Ord[1], v1, v2);
            /*<<set.ml:352:10>>*/ if(0 !== c)  /*<<set.ml:353:15>>*/ return c;
-           /*<<set.ml:354:45>>*/ var
+          var
             /*<<set.ml:354:45>>*/ e2$1 = cons_enum(r2, e2$0),
             /*<<set.ml:354:27>>*/ e1$1 = cons_enum(r1, e1$0);
           e1 = e1$1;
@@ -10714,11 +10565,11 @@
           /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
-          /*<<set.ml:363:6>>*/ var s1$0 = s1, s2$0 = s2;
+         var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:363:6>>*/ for(;;){
           if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
           if(! s2$0)  /*<<set.ml:367:10>>*/ return 0;
-           /*<<set.ml:369:18>>*/ var
+          var
            r2 = s2$0[3],
            v2 = s2$0[2],
            l2 = s2$0[1],
@@ -10728,21 +10579,18 @@
             /*<<set.ml:369:18>>*/ c =
               /*<<set.ml:369:18>>*/ caml_call2(Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
-            /*<<set.ml:371:12>>*/  /*<<set.ml:371:12>>*/ var
-            _E_ = subset(l1, l2);
+            /*<<set.ml:371:12>>*/ var _E_ = subset(l1, l2);
             /*<<set.ml:371:12>>*/ if(! _E_)  /*<<set.ml:371:12>>*/ return _E_;
            s1$0 = r1;
            s2$0 = r2;
           }
           else if(0 <= c){
-            /*<<set.ml:375:12>>*/  /*<<set.ml:375:12>>*/ var
-            _F_ = subset([0, 0, v1, r1, 0], r2);
+            /*<<set.ml:375:12>>*/ var _F_ = subset([0, 0, v1, r1, 0], r2);
             /*<<set.ml:375:12>>*/ if(! _F_)  /*<<set.ml:375:12>>*/ return _F_;
            s1$0 = l1;
           }
           else{
-            /*<<set.ml:373:12>>*/  /*<<set.ml:373:12>>*/ var
-            _G_ = subset([0, l1, v1, 0, 0], l2);
+            /*<<set.ml:373:12>>*/ var _G_ = subset([0, l1, v1, 0, 0], l2);
             /*<<set.ml:373:12>>*/ if(! _G_)  /*<<set.ml:373:12>>*/ return _G_;
            s1$0 = r1;
           }
@@ -10759,10 +10607,10 @@
          }
         }
         function fold(f, s, accu){
-          /*<<set.ml:382:6>>*/ var s$0 = s, accu$0 = accu;
+         var s$0 = s, accu$0 = accu;
           /*<<set.ml:382:6>>*/ for(;;){
           if(! s$0)  /*<<set.ml:383:17>>*/ return accu$0;
-           /*<<set.ml:384:34>>*/ var
+          var
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
@@ -10776,15 +10624,14 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<set.ml:387:17>>*/ return 1;
-           /*<<set.ml:388:25>>*/ var
+          var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
             /*<<set.ml:388:25>>*/ _B_ =
               /*<<set.ml:388:25>>*/ caml_call1(p, v);
            /*<<set.ml:388:25>>*/ if(_B_){
-            /*<<set.ml:388:32>>*/  /*<<set.ml:388:32>>*/ var
-            _C_ = for_all(p, l);
+            /*<<set.ml:388:32>>*/ var _C_ = for_all(p, l);
             /*<<set.ml:388:32>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
@@ -10797,7 +10644,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<set.ml:391:17>>*/ return 0;
-           /*<<set.ml:392:25>>*/ var
+          var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -10806,8 +10653,7 @@
            /*<<set.ml:392:25>>*/ if(_y_)
            var _z_ = _y_;
           else{
-            /*<<set.ml:392:32>>*/  /*<<set.ml:392:32>>*/ var
-            _A_ = exists(p, l);
+            /*<<set.ml:392:32>>*/ var _A_ = exists(p, l);
             /*<<set.ml:392:32>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
@@ -10816,7 +10662,7 @@
         }
         function filter(p, t){
           /*<<?>>*/ if(! t)  /*<<set.ml:395:17>>*/ return 0;
-          /*<<set.ml:398:19>>*/ var
+         var
           r = t[3],
           v = t[2],
           l = t[1],
@@ -10830,7 +10676,7 @@
         }
         function partition(p, param){
           /*<<?>>*/ if(! param)  /*<<set.ml:406:17>>*/ return _b_;
-          /*<<set.ml:409:25>>*/ var
+         var
           r = param[3],
           v = param[2],
           l = param[1],
@@ -10842,17 +10688,15 @@
           rf = match$0[2],
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
-           /*<<set.ml:413:30>>*/  /*<<set.ml:413:30>>*/ var
-           _w_ = concat(lf, rf);
+           /*<<set.ml:413:30>>*/ var _w_ = concat(lf, rf);
            /*<<set.ml:413:15>>*/ return [0, join(lt, v, rt), _w_];
          }
-          /*<<set.ml:414:30>>*/  /*<<set.ml:414:30>>*/ var
-          _x_ = join(lf, v, rf);
+          /*<<set.ml:414:30>>*/ var _x_ = join(lf, v, rf);
           /*<<set.ml:414:15>>*/ return [0, concat(lt, rt), _x_];
         }
         function cardinal(param){
           /*<<set.ml:416:23>>*/ if(! param)  /*<<set.ml:417:17>>*/ return 0;
-          /*<<set.ml:418:39>>*/ var
+         var
           r = param[3],
           l = param[1],
            /*<<set.ml:418:39>>*/ _v_ = cardinal(r);
@@ -10862,7 +10706,7 @@
          var accu$0 = accu, param$0 = param;
          for(;;){
           if(! param$0)  /*<<set.ml:421:17>>*/ return accu$0;
-           /*<<set.ml:422:38>>*/ var
+          var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -10880,7 +10724,7 @@
           if(! param$0)
             /*<<set.ml:432:17>>*/ throw  /*<<set.ml:432:17>>*/ caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-           /*<<set.ml:434:18>>*/ var
+          var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -10983,7 +10827,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<set.ml:511:17>>*/ return 0;
-           /*<<set.ml:513:18>>*/ var
+          var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -10996,16 +10840,16 @@
          }
         }
         function try_join(l, v, r){
-          /*<<set.ml:521:6>>*/ a:
+         a:
          {
           if(0 !== l){
-            /*<<set.ml:521:35>>*/  /*<<set.ml:521:35>>*/ var _u_ = max_elt(l);
+            /*<<set.ml:521:35>>*/ var _u_ = max_elt(l);
             /*<<set.ml:521:23>>*/ if
             (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _u_, v))
             break a;
           }
           if(0 !== r){
-            /*<<set.ml:522:37>>*/  /*<<set.ml:522:37>>*/ var _t_ = min_elt(r);
+            /*<<set.ml:522:37>>*/ var _t_ = min_elt(r);
             /*<<set.ml:522:23>>*/ if
             (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _t_))
             break a;
@@ -11016,7 +10860,7 @@
          /*<<set.ml:524:28>>*/ }
         function map(f, t){
           /*<<?>>*/ if(! t)  /*<<set.ml:527:17>>*/ return 0;
-          /*<<set.ml:530:18>>*/ var
+         var
           r = t[3],
           v = t[2],
           l = t[1],
@@ -11029,7 +10873,7 @@
         }
         function filter_map(f, t){
           /*<<?>>*/ if(! t)  /*<<set.ml:543:17>>*/ return 0;
-          /*<<set.ml:546:18>>*/ var
+         var
           r = t[3],
           v = t[2],
           l = t[1],
@@ -11044,8 +10888,7 @@
          }
          if(! t1)  /*<<set.ml:538:22>>*/ return t2;
          if(! t2)  /*<<set.ml:539:22>>*/ return t1;
-          /*<<set.ml:540:43>>*/  /*<<set.ml:540:43>>*/ var
-          _s_ = remove_min_elt(t2);
+          /*<<set.ml:540:43>>*/ var _s_ = remove_min_elt(t2);
           /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_);
         }
         function of_list(l){
@@ -11062,7 +10905,7 @@
            /*<<set.ml:586:35>>*/ return add
                   (x3, add(x2, add(x1, singleton(x0))));
          if(_q_[2]){
-           /*<<set.ml:588:28>>*/ var
+          var
             /*<<set.ml:588:28>>*/ l$0 =
               /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[62], Ord[1], l),
            sub =
@@ -11106,7 +10949,7 @@
                    }
                   }
                }
-               /*<<set.ml:569:24>>*/ var
+              var
                nl = n / 2 | 0,
                 /*<<set.ml:569:24>>*/ match = sub(nl, l),
                l$0 = match[2],
@@ -11114,7 +10957,7 @@
                /*<<set.ml:570:10>>*/ if(! l$0)
                 /*<<set.ml:571:18>>*/ throw  /*<<set.ml:571:18>>*/ caml_maybe_attach_backtrace
                       ([0, Assert_failure, _c_], 1);
-               /*<<set.ml:573:27>>*/ var
+              var
                l$1 = l$0[2],
                mid = l$0[1],
                 /*<<set.ml:573:27>>*/ match$0 = sub((n - nl | 0) - 1 | 0, l$1),
@@ -11155,16 +10998,15 @@
                  function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}];
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
-          /*<<set.ml:599:19>>*/  /*<<set.ml:599:32>>*/ var
-          _j_ = cons_enum(c, 0);
+          /*<<set.ml:599:32>>*/ var _j_ = cons_enum(c, 0);
           /*<<set.ml:599:32>>*/ return function(_k_){
            /*<<?>>*/ return seq_of_enum(_j_, _k_);};
          /*<<set.ml:599:49>>*/ }
         function snoc_enum(s, e){
-          /*<<set.ml:602:6>>*/ var s$0 = s, e$0 = e;
+         var s$0 = s, e$0 = e;
           /*<<set.ml:602:6>>*/ for(;;){
           if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
-           /*<<set.ml:604:37>>*/ var
+          var
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
@@ -11185,20 +11027,19 @@
                  function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}];
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
-          /*<<set.ml:610:23>>*/  /*<<set.ml:610:40>>*/ var
-          _f_ = snoc_enum(c, 0);
+          /*<<set.ml:610:40>>*/ var _f_ = snoc_enum(c, 0);
           /*<<set.ml:610:40>>*/ return function(_g_){
            /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);};
          /*<<set.ml:610:57>>*/ }
         function to_seq_from(low, s){
-          /*<<set.ml:613:6>>*/ a:
+         a:
          {
           b:
           {
            var s$0 = s, c = 0;
             /*<<set.ml:613:28>>*/ for(;;){
             if(! s$0) break;
-             /*<<set.ml:616:24>>*/ var
+            var
              r = s$0[3],
              v = s$0[2],
              l = s$0[1],
@@ -11206,8 +11047,7 @@
                 /*<<set.ml:616:24>>*/ caml_call2(Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
-              /*<<set.ml:619:31>>*/  /*<<set.ml:619:31>>*/ var
-              c$0 = [0, v, r, c];
+              /*<<set.ml:619:31>>*/ var c$0 = [0, v, r, c];
              s$0 = l;
              c = c$0;
             }
@@ -11278,20 +11118,21 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_Map_bal$3 = "Map.bal",
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_Map_bal$3 = "Map.bal",
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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){
+   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]);
@@ -11319,7 +11160,7 @@
           /*<<map.ml:83:20>>*/ return h;
          /*<<map.ml:83:21>>*/ }
         function create(l, x, d, r){
-          /*<<map.ml:86:6>>*/ var
+         var
            /*<<map.ml:86:15>>*/ hl = height(l),
            /*<<map.ml:86:33>>*/ hr = height(r),
           _K_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
@@ -11335,7 +11176,7 @@
           if(! l)
             /*<<map.ml:96:19>>*/ return  /*<<map.ml:96:19>>*/ caml_call1
                    (Stdlib[1], cst_Map_bal$0);
-           /*<<map.ml:98:28>>*/ var
+          var
            lr = l[4],
            ld = l[3],
            lv = l[2],
@@ -11347,7 +11188,7 @@
           if(! lr)
             /*<<map.ml:102:25>>*/ return  /*<<map.ml:102:25>>*/ caml_call1
                    (Stdlib[1], cst_Map_bal);
-           /*<<map.ml:104:55>>*/ var
+          var
            lrr = lr[4],
            lrd = lr[3],
            lrv = lr[2],
@@ -11363,7 +11204,7 @@
          if(! r)
            /*<<map.ml:108:19>>*/ return  /*<<map.ml:108:19>>*/ caml_call1
                   (Stdlib[1], cst_Map_bal$2);
-          /*<<map.ml:110:28>>*/ var
+         var
           rr = r[4],
           rd = r[3],
           rv = r[2],
@@ -11375,7 +11216,7 @@
          if(! rl)
            /*<<map.ml:114:25>>*/ return  /*<<map.ml:114:25>>*/ caml_call1
                   (Stdlib[1], cst_Map_bal$1);
-          /*<<map.ml:116:52>>*/ var
+         var
           rlr = rl[4],
           rld = rl[3],
           rlv = rl[2],
@@ -11391,7 +11232,7 @@
         function add(x, data, m){
           /*<<?>>*/ if(! m)
            /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1];
-          /*<<map.ml:129:18>>*/ var
+         var
           h = m[5],
           r = m[4],
           d = m[3],
@@ -11402,12 +11243,10 @@
           /*<<map.ml:130:10>>*/ if(0 === c)
           return d === data ? m : [0, l, x, data, r, h];
          if(0 <= c){
-           /*<<map.ml:136:21>>*/  /*<<map.ml:136:21>>*/ var
-           rr = add(x, data, r);
+           /*<<map.ml:136:21>>*/ var rr = add(x, data, r);
           return r === rr ? m : bal(l, v, d, rr);
          }
-          /*<<map.ml:133:21>>*/  /*<<map.ml:133:21>>*/ var
-          ll = add(x, data, l);
+          /*<<map.ml:133:21>>*/ var ll = add(x, data, l);
          return l === ll ? m : bal(ll, v, d, r);
         }
         function find(x, param){
@@ -11416,7 +11255,7 @@
           if(! param$0)
             /*<<map.ml:141:10>>*/ throw  /*<<map.ml:141:10>>*/ caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-           /*<<map.ml:143:18>>*/ var
+          var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
@@ -11536,7 +11375,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<map.ml:221:10>>*/ return 0;
-           /*<<map.ml:223:18>>*/ var
+          var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
@@ -11553,7 +11392,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<map.ml:229:10>>*/ return 0;
-           /*<<map.ml:231:18>>*/ var
+          var
            r = param$0[4],
            v = param$0[2],
            l = param$0[1],
@@ -11566,7 +11405,7 @@
          }
         }
         function min_binding(param){
-          /*<<map.ml:234:26>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<map.ml:234:26>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:235:17>>*/ throw  /*<<map.ml:235:17>>*/ caml_maybe_attach_backtrace
@@ -11580,7 +11419,7 @@
          }
          /*<<map.ml:237:33>>*/ }
         function min_binding_opt(param){
-          /*<<map.ml:239:30>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<map.ml:239:30>>*/ for(;;){
           if(! param$0)  /*<<map.ml:240:17>>*/ return 0;
           var l = param$0[1];
@@ -11592,7 +11431,7 @@
          }
          /*<<map.ml:242:36>>*/ }
         function max_binding(param){
-          /*<<map.ml:244:26>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<map.ml:244:26>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:245:17>>*/ throw  /*<<map.ml:245:17>>*/ caml_maybe_attach_backtrace
@@ -11606,7 +11445,7 @@
          }
          /*<<map.ml:247:33>>*/ }
         function max_binding_opt(param){
-          /*<<map.ml:249:30>>*/ var param$0 = param;
+         var param$0 = param;
           /*<<map.ml:249:30>>*/ for(;;){
           if(! param$0)  /*<<map.ml:250:17>>*/ return 0;
           if(! param$0[4]){
@@ -11632,7 +11471,7 @@
         function _d_(t1, t2){
           /*<<map.ml:260:6>>*/ if(! t1)  /*<<map.ml:261:22>>*/ return t2;
          if(! t2)  /*<<map.ml:262:22>>*/ return t1;
-          /*<<map.ml:264:23>>*/ var
+         var
            /*<<map.ml:264:23>>*/ match = min_binding(t2),
           d = match[2],
           x = match[1];
@@ -11640,7 +11479,7 @@
          /*<<map.ml:265:44>>*/ }
         function remove(x, m){
           /*<<?>>*/ if(! m)  /*<<map.ml:269:10>>*/ return 0;
-          /*<<map.ml:271:18>>*/ var
+         var
           r = m[4],
           d = m[3],
           v = m[2],
@@ -11650,21 +11489,21 @@
           /*<<map.ml:272:10>>*/ if(0 === c)
            /*<<map.ml:272:24>>*/ return _d_(l, r);
          if(0 <= c){
-           /*<<map.ml:276:21>>*/  /*<<map.ml:276:21>>*/ var rr = remove(x, r);
+           /*<<map.ml:276:21>>*/ var rr = remove(x, r);
           return r === rr ? m : bal(l, v, d, rr);
          }
-          /*<<map.ml:274:21>>*/  /*<<map.ml:274:21>>*/ var ll = remove(x, l);
+          /*<<map.ml:274:21>>*/ var ll = remove(x, l);
          return l === ll ? m : bal(ll, v, d, r);
         }
         function update(x, f, m){
           /*<<?>>*/ if(! m){
-           /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ var
+           /*<<map.ml:280:22>>*/ var
            match$0 =  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
           if(! match$0)  /*<<map.ml:281:20>>*/ return 0;
           var data$0 = match$0[1];
            /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1];
          }
-          /*<<map.ml:285:18>>*/ var
+         var
           h = m[5],
           r = m[4],
           d = m[3],
@@ -11673,19 +11512,17 @@
            /*<<map.ml:285:18>>*/ c =
              /*<<map.ml:285:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:286:10>>*/ if(0 === c){
-           /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ var
+           /*<<map.ml:287:18>>*/ var
            match =  /*<<map.ml:287:18>>*/ caml_call1(f, [0, d]);
           if(! match)  /*<<map.ml:288:22>>*/ return _d_(l, r);
           var data = match[1];
           return d === data ? m : [0, l, x, data, r, h];
          }
          if(0 <= c){
-           /*<<map.ml:295:21>>*/  /*<<map.ml:295:21>>*/ var
-           rr = update(x, f, r);
+           /*<<map.ml:295:21>>*/ var rr = update(x, f, r);
           return r === rr ? m : bal(l, v, d, rr);
          }
-          /*<<map.ml:292:21>>*/  /*<<map.ml:292:21>>*/ var
-          ll = update(x, f, l);
+          /*<<map.ml:292:21>>*/ var ll = update(x, f, l);
          return l === ll ? m : bal(ll, v, d, r);
         }
         function add_to_list(x, data, m){
@@ -11709,7 +11546,7 @@
         }
         function map(f, param){
           /*<<?>>*/ if(! param)  /*<<map.ml:309:10>>*/ return 0;
-          /*<<map.ml:311:19>>*/ var
+         var
           h = param[5],
           r = param[4],
           d = param[3],
@@ -11722,7 +11559,7 @@
         }
         function mapi(f, param){
           /*<<?>>*/ if(! param)  /*<<map.ml:318:10>>*/ return 0;
-          /*<<map.ml:320:19>>*/ var
+         var
           h = param[5],
           r = param[4],
           d = param[3],
@@ -11735,10 +11572,10 @@
           /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h];
         }
         function fold(f, m, accu){
-          /*<<map.ml:326:6>>*/ var m$0 = m, accu$0 = accu;
+         var m$0 = m, accu$0 = accu;
           /*<<map.ml:326:6>>*/ for(;;){
           if(! m$0)  /*<<map.ml:327:17>>*/ return accu$0;
-           /*<<map.ml:329:19>>*/ var
+          var
            r = m$0[4],
            d = m$0[3],
            v = m$0[2],
@@ -11753,7 +11590,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<map.ml:332:17>>*/ return 1;
-           /*<<map.ml:333:29>>*/ var
+          var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
@@ -11761,8 +11598,7 @@
             /*<<map.ml:333:29>>*/ _B_ =
               /*<<map.ml:333:29>>*/ caml_call2(p, v, d);
            /*<<map.ml:333:29>>*/ if(_B_){
-            /*<<map.ml:333:38>>*/  /*<<map.ml:333:38>>*/ var
-            _C_ = for_all(p, l);
+            /*<<map.ml:333:38>>*/ var _C_ = for_all(p, l);
             /*<<map.ml:333:38>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
@@ -11775,7 +11611,7 @@
          var param$0 = param;
          for(;;){
           if(! param$0)  /*<<map.ml:336:17>>*/ return 0;
-           /*<<map.ml:337:29>>*/ var
+          var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
@@ -11785,8 +11621,7 @@
            /*<<map.ml:337:29>>*/ if(_y_)
            var _z_ = _y_;
           else{
-            /*<<map.ml:337:38>>*/  /*<<map.ml:337:38>>*/ var
-            _A_ = exists(p, l);
+            /*<<map.ml:337:38>>*/ var _A_ = exists(p, l);
             /*<<map.ml:337:38>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
@@ -11830,7 +11665,7 @@
         function concat(t1, t2){
           /*<<map.ml:375:6>>*/ if(! t1)  /*<<map.ml:376:22>>*/ return t2;
          if(! t2)  /*<<map.ml:377:22>>*/ return t1;
-          /*<<map.ml:379:23>>*/ var
+         var
            /*<<map.ml:379:23>>*/ match = min_binding(t2),
           d = match[2],
           x = match[1];
@@ -11844,7 +11679,7 @@
          /*<<map.ml:385:28>>*/ }
         function split(x, param){
           /*<<?>>*/ if(! param)  /*<<map.ml:389:10>>*/ return _a_;
-          /*<<map.ml:391:18>>*/ var
+         var
           r = param[4],
           d = param[3],
           v = param[2],
@@ -11854,14 +11689,14 @@
           /*<<map.ml:392:10>>*/ if(0 === c)
            /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
          if(0 <= c){
-           /*<<map.ml:396:33>>*/ var
+          var
             /*<<map.ml:396:33>>*/ match = split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
            /*<<map.ml:396:46>>*/ return [0, join(l, v, d, lr), pres, rr];
          }
-          /*<<map.ml:394:33>>*/ var
+         var
            /*<<map.ml:394:33>>*/ match$0 = split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
@@ -11872,7 +11707,7 @@
           /*<<map.ml:399:6>>*/ if(s1){
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
           if(height(s2) <= h1){
-            /*<<map.ml:402:29>>*/ var
+           var
              /*<<map.ml:402:29>>*/ match = split(v1, s2),
             r2 = match[3],
             d2 = match[2],
@@ -11888,7 +11723,7 @@
          if(! s2)
            /*<<map.ml:408:10>>*/ throw  /*<<map.ml:408:10>>*/ caml_maybe_attach_backtrace
                  ([0, Assert_failure, _b_], 1);
-          /*<<map.ml:405:29>>*/ var
+         var
           r2$0 = s2[4],
           d2$0 = s2[3],
           v2 = s2[2],
@@ -11918,7 +11753,7 @@
             v1 = s1[2],
             l1 = s1[1];
            if(h2 <= h1){
-             /*<<map.ml:416:31>>*/ var
+            var
               /*<<map.ml:416:31>>*/ match = split(v1, s2),
              r2$0 = match[3],
              d2$0 = match[2],
@@ -11934,7 +11769,7 @@
                       /*<<map.ml:420:45>>*/ caml_call3(f, v1, d1, d2$1),
                      r);
            }
-            /*<<map.ml:422:31>>*/ var
+           var
              /*<<map.ml:422:31>>*/ match$0 = split(v2, s1),
             r1$0 = match$0[3],
             d1$0 = match$0[2],
@@ -11958,7 +11793,7 @@
          /*<<map.ml:426:59>>*/ }
         function filter(p, m){
           /*<<?>>*/ if(! m)  /*<<map.ml:429:17>>*/ return 0;
-          /*<<map.ml:432:19>>*/ var
+         var
           r = m[4],
           d = m[3],
           v = m[2],
@@ -11974,7 +11809,7 @@
         }
         function filter_map(f, param){
           /*<<?>>*/ if(! param)  /*<<map.ml:439:17>>*/ return 0;
-          /*<<map.ml:442:19>>*/ var
+         var
           r = param[4],
           d = param[3],
           v = param[2],
@@ -11990,7 +11825,7 @@
         }
         function partition(p, param){
           /*<<?>>*/ if(! param)  /*<<map.ml:451:17>>*/ return _c_;
-          /*<<map.ml:454:25>>*/ var
+         var
           r = param[4],
           d = param[3],
           v = param[2],
@@ -12004,19 +11839,17 @@
           rf = match$0[2],
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
-           /*<<map.ml:458:32>>*/  /*<<map.ml:458:32>>*/ var
-           _s_ = concat(lf, rf);
+           /*<<map.ml:458:32>>*/ var _s_ = concat(lf, rf);
            /*<<map.ml:458:15>>*/ return [0, join(lt, v, d, rt), _s_];
          }
-          /*<<map.ml:459:30>>*/  /*<<map.ml:459:30>>*/ var
-          _t_ = join(lf, v, d, rf);
+          /*<<map.ml:459:30>>*/ var _t_ = join(lf, v, d, rf);
           /*<<map.ml:459:15>>*/ return [0, concat(lt, rt), _t_];
         }
         function cons_enum(m, e){
-          /*<<map.ml:464:6>>*/ var m$0 = m, e$0 = e;
+         var m$0 = m, e$0 = e;
           /*<<map.ml:464:6>>*/ for(;;){
           if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
-           /*<<map.ml:466:41>>*/ var
+          var
            r = m$0[4],
            d = m$0[3],
            v = m$0[2],
@@ -12027,7 +11860,7 @@
          }
          /*<<map.ml:466:59>>*/ }
         function compare(cmp, m1, m2){
-          /*<<map.ml:469:6>>*/ var
+         var
            /*<<map.ml:480:40>>*/ e2$2 = cons_enum(m2, 0),
            /*<<map.ml:480:21>>*/ e1$2 = cons_enum(m1, 0),
           e1 = e1$2,
@@ -12035,7 +11868,7 @@
           /*<<map.ml:470:10>>*/ for(;;){
           if(! e1) return e2 ? -1 : 0;
           if(! e2)  /*<<map.ml:473:22>>*/ return 1;
-           /*<<map.ml:475:20>>*/ var
+          var
            e2$0 = e2[4],
            r2 = e2[3],
            d2 = e2[2],
@@ -12047,11 +11880,11 @@
             /*<<map.ml:475:20>>*/ c =
               /*<<map.ml:475:20>>*/ caml_call2(Ord[1], v1, v2);
            /*<<map.ml:476:12>>*/ if(0 !== c)  /*<<map.ml:476:27>>*/ return c;
-           /*<<map.ml:477:20>>*/  /*<<map.ml:477:20>>*/ var
+           /*<<map.ml:477:20>>*/ var
            c$0 =  /*<<map.ml:477:20>>*/ caml_call2(cmp, d1, d2);
            /*<<map.ml:478:12>>*/ if(0 !== c$0)
             /*<<map.ml:478:27>>*/ return c$0;
-           /*<<map.ml:479:42>>*/ var
+          var
             /*<<map.ml:479:42>>*/ e2$1 = cons_enum(r2, e2$0),
             /*<<map.ml:479:24>>*/ e1$1 = cons_enum(r1, e1$0);
           e1 = e1$1;
@@ -12059,7 +11892,7 @@
          }
          /*<<map.ml:480:58>>*/ }
         function equal(cmp, m1, m2){
-          /*<<map.ml:483:6>>*/ var
+         var
            /*<<map.ml:491:38>>*/ e2$2 = cons_enum(m2, 0),
            /*<<map.ml:491:19>>*/ e1$2 = cons_enum(m1, 0),
           e1 = e1$2,
@@ -12079,10 +11912,10 @@
            _p_ =
              0 ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2) ? 1 : 0;
           if(_p_){
-            /*<<map.ml:489:37>>*/  /*<<map.ml:489:37>>*/ var
+            /*<<map.ml:489:37>>*/ var
             _q_ =  /*<<map.ml:489:37>>*/ caml_call2(cmp, d1, d2);
             /*<<map.ml:489:37>>*/ if(_q_){
-             /*<<map.ml:490:40>>*/ var
+            var
               /*<<map.ml:490:40>>*/ e2$1 = cons_enum(r2, e2$0),
               /*<<map.ml:490:22>>*/ e1$1 = cons_enum(r1, e1$0);
             e1 = e1$1;
@@ -12098,7 +11931,7 @@
          /*<<map.ml:491:56>>*/ }
         function cardinal(param){
           /*<<map.ml:493:23>>*/ if(! param)  /*<<map.ml:494:17>>*/ return 0;
-          /*<<map.ml:495:40>>*/ var
+         var
           r = param[4],
           l = param[1],
            /*<<map.ml:495:40>>*/ _o_ = cardinal(r);
@@ -12108,7 +11941,7 @@
          var accu$0 = accu, param$0 = param;
          for(;;){
           if(! param$0)  /*<<map.ml:498:17>>*/ return accu$0;
-           /*<<map.ml:499:42>>*/ var
+          var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
@@ -12126,7 +11959,7 @@
           /*<<map.ml:509:21>>*/ return  /*<<map.ml:509:21>>*/ caml_call3
                  (Stdlib_List[26],
                   function(m, param){
-                    /*<<map.ml:509:36>>*/ var v = param[2], k = param[1];
+                   var v = param[2], k = param[1];
                     /*<<map.ml:509:53>>*/ return add(k, v, m);
                    /*<<map.ml:509:63>>*/ },
                   empty,
@@ -12136,7 +11969,7 @@
           /*<<map.ml:512:6>>*/ return  /*<<map.ml:512:6>>*/ caml_call3
                  (Stdlib_Seq[5],
                   function(m, param){
-                    /*<<map.ml:512:20>>*/ var v = param[2], k = param[1];
+                   var v = param[2], k = param[1];
                     /*<<map.ml:512:36>>*/ return add(k, v, m);
                    /*<<map.ml:512:46>>*/ },
                   m,
@@ -12158,16 +11991,15 @@
                  function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}];
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
-          /*<<map.ml:521:6>>*/  /*<<map.ml:521:19>>*/ var
-          _k_ = cons_enum(m, 0);
+          /*<<map.ml:521:19>>*/ var _k_ = cons_enum(m, 0);
           /*<<map.ml:521:19>>*/ return function(_l_){
            /*<<?>>*/ return seq_of_enum(_k_, _l_);};
          /*<<map.ml:521:36>>*/ }
         function snoc_enum(s, e){
-          /*<<map.ml:524:6>>*/ var s$0 = s, e$0 = e;
+         var s$0 = s, e$0 = e;
           /*<<map.ml:524:6>>*/ for(;;){
           if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
-           /*<<map.ml:526:40>>*/ var
+          var
            r = s$0[4],
            d = s$0[3],
            v = s$0[2],
@@ -12190,20 +12022,19 @@
                  function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}];
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
-          /*<<map.ml:534:6>>*/  /*<<map.ml:534:23>>*/ var
-          _g_ = snoc_enum(c, 0);
+          /*<<map.ml:534:23>>*/ var _g_ = snoc_enum(c, 0);
           /*<<map.ml:534:23>>*/ return function(_h_){
            /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);};
          /*<<map.ml:534:40>>*/ }
         function to_seq_from(low, m){
-          /*<<map.ml:537:6>>*/ a:
+         a:
          {
           b:
           {
            var m$0 = m, c = 0;
             /*<<map.ml:537:28>>*/ for(;;){
             if(! m$0) break;
-             /*<<map.ml:540:24>>*/ var
+            var
              r = m$0[4],
              d = m$0[3],
              v = m$0[2],
@@ -12212,8 +12043,7 @@
                 /*<<map.ml:540:24>>*/ caml_call2(Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
-              /*<<map.ml:543:31>>*/  /*<<map.ml:543:31>>*/ var
-              c$0 = [0, v, d, r, c];
+              /*<<map.ml:543:31>>*/ var c$0 = [0, v, d, r, c];
              m$0 = l;
              c = c$0;
             }
@@ -12284,24 +12114,25 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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){
+   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]);
    }
-    /*<<stack.ml:18:0>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_List = global_data.Stdlib__List,
@@ -12324,7 +12155,7 @@
     return 0;
     /*<<stack.ml:26:50>>*/ }
    function pop(s){
-     /*<<stack.ml:29:2>>*/ var match = s[1];
+    var match = s[1];
     if(! match)
       /*<<stack.ml:31:14>>*/ throw  /*<<stack.ml:31:14>>*/ caml_maybe_attach_backtrace
             (Empty, 1);
@@ -12334,7 +12165,7 @@
      /*<<stack.ml:30:45>>*/ return hd;
     /*<<stack.ml:31:25>>*/ }
    function pop_opt(s){
-     /*<<stack.ml:34:2>>*/ var match = s[1];
+    var match = s[1];
     if(! match)  /*<<stack.ml:36:14>>*/ return 0;
     var tl = match[2], hd = match[1];
     s[1] = tl;
@@ -12342,7 +12173,7 @@
      /*<<stack.ml:35:45>>*/ return [0, hd];
     /*<<stack.ml:36:18>>*/ }
    function drop(s){
-     /*<<stack.ml:39:2>>*/ var match = s[1];
+    var match = s[1];
     if(! match)
       /*<<stack.ml:41:10>>*/ throw  /*<<stack.ml:41:10>>*/ caml_maybe_attach_backtrace
             (Empty, 1);
@@ -12352,7 +12183,7 @@
     return 0;
     /*<<stack.ml:41:21>>*/ }
    function top(s){
-     /*<<stack.ml:44:2>>*/ var match = s[1];
+    var match = s[1];
     if(! match)
       /*<<stack.ml:46:13>>*/ throw  /*<<stack.ml:46:13>>*/ caml_maybe_attach_backtrace
             (Empty, 1);
@@ -12360,7 +12191,7 @@
      /*<<stack.ml:45:13>>*/ return hd;
     /*<<stack.ml:46:24>>*/ }
    function top_opt(s){
-     /*<<stack.ml:49:2>>*/ var match = s[1];
+    var match = s[1];
     if(! match)  /*<<stack.ml:51:13>>*/ return 0;
     var hd = match[1];
      /*<<stack.ml:50:13>>*/ return [0, hd];
@@ -12389,7 +12220,7 @@
              i);
     /*<<stack.ml:65:48>>*/ }
    function of_seq(g){
-     /*<<stack.ml:68:2>>*/  /*<<stack.ml:68:10>>*/ var s = create(0);
+     /*<<stack.ml:68:10>>*/ var s = create(0);
      /*<<stack.ml:69:2>>*/ add_seq(s, g);
      /*<<stack.ml:69:2>>*/ return s;
     /*<<stack.ml:70:3>>*/ }
@@ -12424,19 +12255,20 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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]);
    }
-    /*<<queue.ml:17:0>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
      /*<<queue.ml:17:0>>*/ Empty =
@@ -12451,7 +12283,7 @@
     return 0;
     /*<<queue.ml:38:15>>*/ }
    function add(x, q){
-     /*<<queue.ml:41:2>>*/ var
+    var
       /*<<queue.ml:41:18>>*/ cell = [0, x, 0],
       /*<<queue.ml:45:2>>*/ match = q[3];
     return match
@@ -12459,7 +12291,7 @@
             : (q[1] = 1, q[2] = cell, q[3] = cell, 0);
     /*<<queue.ml:53:18>>*/ }
    function peek(q){
-     /*<<queue.ml:59:2>>*/ var match = q[2];
+    var match = q[2];
     if(! match)
       /*<<queue.ml:60:11>>*/ throw  /*<<queue.ml:60:11>>*/ caml_maybe_attach_backtrace
             (Empty, 1);
@@ -12467,13 +12299,13 @@
      /*<<queue.ml:61:24>>*/ return content;
     /*<<queue.ml:61:31>>*/ }
    function peek_opt(q){
-     /*<<queue.ml:64:2>>*/ var match = q[2];
+    var match = q[2];
     if(! match)  /*<<queue.ml:65:11>>*/ return 0;
     var content = match[1];
      /*<<queue.ml:66:24>>*/ return [0, content];
     /*<<queue.ml:66:36>>*/ }
    function take(q){
-     /*<<queue.ml:72:2>>*/ var _f_ = q[2];
+    var _f_ = q[2];
     if(! _f_)
       /*<<queue.ml:73:11>>*/ throw  /*<<queue.ml:73:11>>*/ caml_maybe_attach_backtrace
             (Empty, 1);
@@ -12488,7 +12320,7 @@
      /*<<queue.ml:75:4>>*/ return content;
     /*<<queue.ml:80:11>>*/ }
    function take_opt(q){
-     /*<<queue.ml:83:2>>*/ var _e_ = q[2];
+    var _e_ = q[2];
     if(! _e_)  /*<<queue.ml:84:11>>*/ return 0;
     var content = _e_[1];
     if(_e_[2]){
@@ -12501,14 +12333,14 @@
      /*<<queue.ml:87:4>>*/ return [0, content];
     /*<<queue.ml:91:16>>*/ }
    function copy(q){
-     /*<<queue.ml:108:11>>*/ var
+    var
      cell$0 = q[2],
       /*<<queue.ml:108: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
+     var
       content = cell[1],
       next = cell[2],
        /*<<queue.ml:101:21>>*/ prev$0 = [0, content, 0];
@@ -12527,7 +12359,7 @@
      /*<<queue.ml:114:2>>*/ return q[1];
     /*<<queue.ml:114:10>>*/ }
    function iter(f, q){
-     /*<<queue.ml:124:13>>*/ var cell$0 = q[2], cell = cell$0;
+    var cell$0 = q[2], cell = cell$0;
      /*<<queue.ml:118:4>>*/ for(;;){
      if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
      var content = cell[1], next = cell[2];
@@ -12536,10 +12368,10 @@
     }
     /*<<queue.ml:124:27>>*/ }
    function fold(f, accu$1, q){
-     /*<<queue.ml:134:18>>*/ var cell$0 = q[2], accu = accu$1, cell = cell$0;
+    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
+     var
       content = cell[1],
       next = cell[2],
        /*<<queue.ml:131:17>>*/ accu$0 =
@@ -12549,7 +12381,7 @@
     }
     /*<<queue.ml:134:37>>*/ }
    function transfer(q1, q2){
-     /*<<queue.ml:137:2>>*/ var _d_ = 0 < q1[1] ? 1 : 0;
+    var _d_ = 0 < q1[1] ? 1 : 0;
     if(! _d_) return _d_;
     var match = q2[3];
     return match
@@ -12562,7 +12394,7 @@
             : (q2[1] = q1[1], q2[2] = q1[2], q2[3] = q1[3], clear(q1));
     /*<<queue.ml:148:14>>*/ }
    function to_seq(q){
-     /*<<queue.ml:153:2>>*/ function aux(c, param){
+    function aux(c, param){
       /*<<queue.ml:153:21>>*/ if(! c)  /*<<queue.ml:154:13>>*/ return 0;
      var x = c[1], next = c[2];
       /*<<queue.ml:155:35>>*/ return [0,
@@ -12582,7 +12414,7 @@
              i);
     /*<<queue.ml:159:48>>*/ }
    function of_seq(g){
-     /*<<queue.ml:162:2>>*/  /*<<queue.ml:162:10>>*/ var q = create(0);
+     /*<<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>>*/ }
@@ -12620,44 +12452,45 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_blit_string = runtime.caml_blit_string,
-    caml_bswap16 = runtime.caml_bswap16,
-    caml_bytes_get = runtime.caml_bytes_get,
-    caml_bytes_set = runtime.caml_bytes_set,
-    caml_bytes_set16 = runtime.caml_bytes_set16,
-    caml_bytes_set32 = runtime.caml_bytes_set32,
-    caml_bytes_set64 = runtime.caml_bytes_set64,
-    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_int32_bswap = runtime.caml_int32_bswap,
-    caml_int64_bswap = runtime.caml_int64_bswap,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-    caml_ml_string_length = runtime.caml_ml_string_length,
-    caml_string_get = runtime.caml_string_get,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_blit_string = runtime.caml_blit_string,
+     /*<<?>>*/ caml_bswap16 = runtime.caml_bswap16,
+     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
+     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
+     /*<<?>>*/ caml_bytes_set16 = runtime.caml_bytes_set16,
+     /*<<?>>*/ caml_bytes_set32 = runtime.caml_bytes_set32,
+     /*<<?>>*/ caml_bytes_set64 = runtime.caml_bytes_set64,
+     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_int32_bswap = runtime.caml_int32_bswap,
+     /*<<?>>*/ caml_int64_bswap = runtime.caml_int64_bswap,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
+     /*<<?>>*/ caml_string_get = runtime.caml_string_get,
+     /*<<?>>*/ 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){
+   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){
+   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){
+   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){
+   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]);
@@ -12676,7 +12509,7 @@
     cst_Buffer_add_cannot_grow_buf = "Buffer.add: cannot grow buffer",
     dummy = 0;
    function create(n){
-     /*<<buffer.ml:41:1>>*/ var
+    var
      n$0 = 1 <= n ? n : 1,
      n$1 = Stdlib_Sys[12] < n$0 ? Stdlib_Sys[12] : n$0,
       /*<<buffer.ml:43:9>>*/ s =
@@ -12713,7 +12546,7 @@
             (Stdlib[1], cst_Buffer_blit);
     /*<<buffer.ml:60:53>>*/ }
    function nth(b, ofs){
-     /*<<buffer.ml:64:2>>*/ var
+    var
      position = b[2],
       /*<<buffer.ml:65:2>>*/ match = b[1],
      length = match[2],
@@ -12733,13 +12566,12 @@
     /*<<buffer.ml:73:29>>*/ }
    function reset(b){
      /*<<buffer.ml:76:2>>*/ b[2] = 0;
-     /*<<buffer.ml:78:4>>*/  /*<<buffer.ml:78:4>>*/ var
-     inner = [0, b[3], caml_ml_bytes_length(b[3])];
+     /*<<buffer.ml:78:4>>*/ var inner = [0, b[3], caml_ml_bytes_length(b[3])];
     b[1] = inner;
     return 0;
     /*<<buffer.ml:80:18>>*/ }
    function resize(b, more){
-     /*<<buffer.ml:87:2>>*/ var
+    var
      old_pos = b[2],
      old_len = b[1][2],
       /*<<buffer.ml:89:16>>*/ new_len = [0, old_len];
@@ -12753,14 +12585,14 @@
      else
        /*<<buffer.ml:94:9>>*/  /*<<buffer.ml:94:9>>*/ caml_call1
        (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
-     /*<<buffer.ml:96:19>>*/  /*<<buffer.ml:96:19>>*/ var
+     /*<<buffer.ml:96:19>>*/ var
      new_buffer =  /*<<buffer.ml:96:19>>*/ caml_create_bytes(new_len[1]);
      /*<<buffer.ml:99:2>>*/  /*<<buffer.ml:99:2>>*/ caml_call5
      (Stdlib_Bytes[11], b[1][1], 0, new_buffer, 0, b[2]);
     b[1] = [0, new_buffer, new_len[1]];
     /*<<buffer.ml:100:55>>*/ }
    function add_char(b, c){
-     /*<<buffer.ml:113:2>>*/ var
+    var
      pos = b[2],
       /*<<buffer.ml:114:2>>*/ match = b[1],
      length = match[2],
@@ -12787,7 +12619,7 @@
      var pos = b[2];
      if(b[1][2] <= pos)
        /*<<buffer.ml:127:32>>*/ resize(b, uchar_utf_8_byte_length_max);
-      /*<<buffer.ml:128:10>>*/  /*<<buffer.ml:128:10>>*/ var
+      /*<<buffer.ml:128:10>>*/ var
       n =
          /*<<buffer.ml:128:10>>*/ caml_call3
          (Stdlib_Bytes[51], b[1][1], pos, u);
@@ -12800,7 +12632,7 @@
      var pos = b[2];
      if(b[1][2] <= pos)
        /*<<buffer.ml:135:32>>*/ resize(b, uchar_utf_16_byte_length_max);
-      /*<<buffer.ml:136:10>>*/  /*<<buffer.ml:136:10>>*/ var
+      /*<<buffer.ml:136:10>>*/ var
       n =
          /*<<buffer.ml:136:10>>*/ caml_call3
          (Stdlib_Bytes[54], b[1][1], pos, u);
@@ -12813,7 +12645,7 @@
      var pos = b[2];
      if(b[1][2] <= pos)
        /*<<buffer.ml:143:32>>*/ resize(b, uchar_utf_16_byte_length_max);
-      /*<<buffer.ml:144:10>>*/  /*<<buffer.ml:144:10>>*/ var
+      /*<<buffer.ml:144:10>>*/ var
       n =
          /*<<buffer.ml:144:10>>*/ caml_call3
          (Stdlib_Bytes[57], b[1][1], pos, u);
@@ -12822,7 +12654,7 @@
     }
     /*<<buffer.ml:147:30>>*/ }
    function add_substring(b, s, offset, len){
-     /*<<buffer.ml:150:2>>*/ var _s_ = offset < 0 ? 1 : 0;
+    var _s_ = offset < 0 ? 1 : 0;
     if(_s_)
      var _t_ = _s_;
     else
@@ -12832,7 +12664,7 @@
     if(_t_)
       /*<<buffer.ml:151:7>>*/  /*<<buffer.ml:151:7>>*/ caml_call1
       (Stdlib[1], cst_Buffer_add_substring_add_s);
-     /*<<buffer.ml:153:2>>*/ var
+    var
      position = b[2],
       /*<<buffer.ml:153:2>>*/ match = b[1],
      length = match[2],
@@ -12857,7 +12689,7 @@
              len);
     /*<<buffer.ml:163:55>>*/ }
    function add_string(b, s){
-     /*<<buffer.ml:166:2>>*/ var
+    var
      len = caml_ml_string_length(s),
       /*<<buffer.ml:167:2>>*/ position = b[2],
       /*<<buffer.ml:168:2>>*/ match = b[1],
@@ -12883,7 +12715,7 @@
      /*<<buffer.ml:180:2>>*/ return add_subbytes(b, bs[1][1], 0, bs[2]);
     /*<<buffer.ml:180:46>>*/ }
    function add_channel(b, ic, to_read$1){
-     /*<<buffer.ml:206:2>>*/ var
+    var
      _q_ = to_read$1 < 0 ? 1 : 0,
      _r_ = _q_ || (Stdlib_Sys[12] < to_read$1 ? 1 : 0);
     if(_r_)
@@ -12899,7 +12731,7 @@
      to_read = to_read$1;
      /*<<buffer.ml:185:4>>*/ for(;;){
      if(0 !== to_read){
-       /*<<buffer.ml:187:14>>*/  /*<<buffer.ml:187:14>>*/ var
+       /*<<buffer.ml:187:14>>*/ var
        r =
           /*<<buffer.ml:187:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs, to_read);
@@ -12926,33 +12758,28 @@
             (Stdlib[68], oc, b[1][1], 0, b[2]);
     /*<<buffer.ml:215:39>>*/ }
    function add_substitute(b, f, s){
-     /*<<buffer.ml:261:2>>*/ var
-     lim$1 = caml_ml_string_length(s),
-     previous = 32,
-     i$4 = 0;
+    var lim$1 = caml_ml_string_length(s), previous = 32, i$4 = 0;
      /*<<buffer.ml:263:4>>*/ for(;;){
      if(i$4 >= lim$1){
       var _o_ = 92 === previous ? 1 : 0;
       return _o_ ? add_char(b, previous) : _o_;
      }
-      /*<<buffer.ml:264:12>>*/  /*<<buffer.ml:264:12>>*/ var
+      /*<<buffer.ml:264:12>>*/ var
       previous$0 =  /*<<buffer.ml:264:12>>*/ caml_string_get(s, i$4);
      if(36 === previous$0)
       if(92 === previous){
         /*<<buffer.ml:266:9>>*/ add_char(b, previous$0);
-        /*<<buffer.ml:266:9>>*/  /*<<buffer.ml:266:9>>*/ var
-        i$5 = i$4 + 1 | 0;
+        /*<<buffer.ml:266:9>>*/ var i$5 = i$4 + 1 | 0;
        previous = 32;
        i$4 = i$5;
       }
       else{
-        /*<<buffer.ml:269:9>>*/  /*<<buffer.ml:269:9>>*/ var
-        start = i$4 + 1 | 0;
+        /*<<buffer.ml:269:9>>*/ var start = i$4 + 1 | 0;
         /*<<buffer.ml:270:9>>*/ try{
         if(lim$1 <= start)
           /*<<buffer.ml:245:23>>*/ throw  /*<<buffer.ml:245:23>>*/ caml_maybe_attach_backtrace
                 (Stdlib[8], 1);
-         /*<<buffer.ml:246:8>>*/  /*<<buffer.ml:246:8>>*/ var
+         /*<<buffer.ml:246:8>>*/ var
          opening =  /*<<buffer.ml:246:8>>*/ caml_string_get(s, start);
         a:
         {
@@ -12967,7 +12794,7 @@
              var i$2 = start;
               /*<<buffer.ml:237:4>>*/ for(;;){
               if(lim$0 <= i$2) break c;
-               /*<<buffer.ml:238:10>>*/  /*<<buffer.ml:238:10>>*/ var
+               /*<<buffer.ml:238:10>>*/ var
                match =  /*<<buffer.ml:238:10>>*/ caml_string_get(s, i$2);
               if(91 <= match){
                if(97 <= match){
@@ -13000,9 +12827,7 @@
               stop$0];
           break a;
          }
-          /*<<buffer.ml:249:5>>*/ var
-           /*<<buffer.ml:249:5>>*/ new_start = start + 1 | 0,
-          k$2 = 0;
+         var  /*<<buffer.ml:249:5>>*/ new_start = start + 1 | 0, k$2 = 0;
          if(40 === opening)
           var closing = 41;
          else{
@@ -13051,8 +12876,7 @@
      else{
       if(92 === previous)  /*<<buffer.ml:279:33>>*/ add_char(b, previous);
       if(92 !== previous$0)  /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
-       /*<<buffer.ml:280:33>>*/  /*<<buffer.ml:280:33>>*/ var
-       i$6 = i$4 + 1 | 0;
+       /*<<buffer.ml:280:33>>*/ var i$6 = i$4 + 1 | 0;
       previous = previous$0;
       i$4 = i$6;
      }
@@ -13067,7 +12891,7 @@
     function aux(i, param){
       /*<<buffer.ml:297:4>>*/ if(b[2] <= i)
        /*<<buffer.ml:297:28>>*/ return 0;
-      /*<<buffer.ml:299:14>>*/ var
+     var
        /*<<buffer.ml:299:14>>*/ x =
          /*<<buffer.ml:299:14>>*/ caml_bytes_get(b[1][1], i),
        /*<<buffer.ml:299:14>>*/ _l_ = i + 1 | 0;
@@ -13083,7 +12907,7 @@
     function aux(i, param){
       /*<<buffer.ml:307:4>>*/ if(b[2] <= i)
        /*<<buffer.ml:307:28>>*/ return 0;
-      /*<<buffer.ml:309:14>>*/ var
+     var
        /*<<buffer.ml:309:14>>*/ x =
          /*<<buffer.ml:309:14>>*/ caml_bytes_get(b[1][1], i),
        /*<<buffer.ml:309:14>>*/ _h_ = i + 1 | 0;
@@ -13102,12 +12926,12 @@
              seq);
     /*<<buffer.ml:314:45>>*/ }
    function of_seq(i){
-     /*<<buffer.ml:317:2>>*/  /*<<buffer.ml:317:10>>*/ var b = create(32);
+     /*<<buffer.ml:317:10>>*/ var b = create(32);
      /*<<buffer.ml:318:2>>*/ add_seq(b, i);
      /*<<buffer.ml:318:2>>*/ return b;
     /*<<buffer.ml:319:3>>*/ }
    function add_int8(b, x){
-     /*<<buffer.ml:338:2>>*/ var
+    var
      position = b[2],
       /*<<buffer.ml:339:2>>*/ match = b[1],
      length = match[2],
@@ -13124,7 +12948,7 @@
     return 0;
     /*<<buffer.ml:346:28>>*/ }
    function add_int16_ne(b, x){
-     /*<<buffer.ml:349:2>>*/ var
+    var
      position = b[2],
       /*<<buffer.ml:350:2>>*/ match = b[1],
      length = match[2],
@@ -13142,7 +12966,7 @@
     return 0;
     /*<<buffer.ml:357:28>>*/ }
    function add_int32_ne(b, x){
-     /*<<buffer.ml:360:2>>*/ var
+    var
      position = b[2],
       /*<<buffer.ml:361:2>>*/ match = b[1],
      length = match[2],
@@ -13160,7 +12984,7 @@
     return 0;
     /*<<buffer.ml:368:28>>*/ }
    function add_int64_ne(b, x){
-     /*<<buffer.ml:371:2>>*/ var
+    var
      position = b[2],
       /*<<buffer.ml:372:2>>*/ match = b[1],
      length = match[2],
@@ -13178,30 +13002,30 @@
     return 0;
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
-     /*<<buffer.ml:382:2>>*/ var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
+    var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
     return add_int16_ne(b, _d_);
     /*<<buffer.ml:382:57>>*/ }
    function add_int16_be(b, x){
-     /*<<buffer.ml:385:2>>*/ var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
+    var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
      /*<<buffer.ml:385:41>>*/ return add_int16_ne(b, x$0);
     /*<<buffer.ml:385:57>>*/ }
    function add_int32_le(b, x){
-     /*<<buffer.ml:388:2>>*/ var
+    var
      _c_ = Stdlib_Sys[11] ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap(x) : x;
      /*<<buffer.ml:388:41>>*/ return add_int32_ne(b, _c_);
     /*<<buffer.ml:388:57>>*/ }
    function add_int32_be(b, x){
-     /*<<buffer.ml:391:2>>*/ var
+    var
      x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap(x);
      /*<<buffer.ml:391:48>>*/ return add_int32_ne(b, x$0);
     /*<<buffer.ml:391:57>>*/ }
    function add_int64_le(b, x){
-     /*<<buffer.ml:394:2>>*/ var
+    var
      _b_ = Stdlib_Sys[11] ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap(x) : x;
      /*<<buffer.ml:394:41>>*/ return add_int64_ne(b, _b_);
     /*<<buffer.ml:394:57>>*/ }
    function add_int64_be(b, x){
-     /*<<buffer.ml:397:2>>*/ var
+    var
      x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap(x);
      /*<<buffer.ml:397:48>>*/ return add_int64_ne(b, x$0);
     /*<<buffer.ml:397:57>>*/ }
@@ -13257,12 +13081,13 @@
 (function(globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_mutex_lock = runtime.caml_ml_mutex_lock,
-    caml_ml_mutex_unlock = runtime.caml_ml_mutex_unlock,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_mutex_lock = runtime.caml_ml_mutex_lock,
+     /*<<?>>*/ caml_ml_mutex_unlock = runtime.caml_ml_mutex_unlock,
+     /*<<?>>*/ 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]);
@@ -13270,8 +13095,7 @@
    function protect(m, f){
      /*<<mutex.ml:27:2>>*/  /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock(m);
      /*<<mutex.ml:27:2>>*/ try{
-      /*<<mutex.ml:28:8>>*/  /*<<mutex.ml:28:8>>*/ var
-      x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
+      /*<<mutex.ml:28:8>>*/ var x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
     }
     catch(e$0){
      var e = caml_wrap_exception(e$0);
@@ -13299,7 +13123,7 @@
 (function(globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     Stdlib_Condition =
       [0,
        runtime.caml_ml_condition_new,
@@ -13317,14 +13141,15 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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]);
@@ -13341,7 +13166,7 @@
      /*<<semaphore.ml:29:2>>*/ if(v < 0)
       /*<<semaphore.ml:29:16>>*/  /*<<semaphore.ml:29:16>>*/ caml_call1
       (Stdlib[1], cst_Semaphore_Counting_init_wr);
-     /*<<semaphore.ml:30:39>>*/  /*<<semaphore.ml:30:39>>*/ var
+     /*<<semaphore.ml:30:39>>*/ var
      _c_ =  /*<<semaphore.ml:30:39>>*/ caml_call1(Stdlib_Condition[1], 0);
      /*<<semaphore.ml:30:2>>*/ return [0,
              /*<<semaphore.ml:30:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
@@ -13385,10 +13210,10 @@
    function get_value(s){
      /*<<semaphore.ml:55:18>>*/ return s[2];
     /*<<semaphore.ml:55:21>>*/ }
-    /*<<semaphore.ml:24:18>>*/  /*<<semaphore.ml:24:18>>*/ var
+    /*<<semaphore.ml:24:18>>*/ var
     Counting = [0, make, release, acquire, try_acquire, get_value];
    function make$0(b){
-     /*<<semaphore.ml:64:2>>*/ var
+    var
       /*<<semaphore.ml:66:14>>*/ _a_ =
         /*<<semaphore.ml:66:14>>*/ caml_call1(Stdlib_Condition[1], 0),
      _b_ = b ? 1 : 0;
@@ -13422,7 +13247,7 @@
      (Stdlib_Mutex[4], s[1]);
      /*<<semaphore.ml:83:2>>*/ return ret;
     /*<<semaphore.ml:84:5>>*/ }
-    /*<<semaphore.ml:59:16>>*/ var
+   var
      /*<<semaphore.ml:59:16>>*/ Binary =
       [0, make$0, release$0, acquire$0, try_acquire$0],
     Stdlib_Semaphore = [0, Counting, Binary];
@@ -13437,29 +13262,30 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    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;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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;
+   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){
+   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){
+   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_call5(f, a0, a1, a2, a3, a4){
+   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]);
@@ -13478,31 +13304,31 @@
      /*<<domain.ml:47:19>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
             (0);
     /*<<domain.ml:47:35>>*/ }
-    /*<<domain.ml:72:24>>*/  /*<<domain.ml:72:24>>*/ var none = [0, 0];
+    /*<<domain.ml:72:24>>*/ var none = [0, 0];
    function create_dls(param){
-     /*<<domain.ml:89:4>>*/  /*<<domain.ml:89:13>>*/ var
+     /*<<domain.ml:89:13>>*/ var
      st =  /*<<domain.ml:89:13>>*/ caml_make_vect(8, none);
      /*<<domain.ml:90:4>>*/  /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set
      (st);
     /*<<domain.ml:90:20>>*/ }
     /*<<domain.ml:92:10>>*/ create_dls(0);
-    /*<<domain.ml:96:20>>*/ var
+   var
      /*<<domain.ml:96:20>>*/ key_counter =
        /*<<domain.ml:96:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
      /*<<domain.ml:101:20>>*/ parent_keys =
        /*<<domain.ml:101:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
     _a_ = [0, "domain.ml", 184, 13];
    function new_key(split_from_parent, init_orphan){
-     /*<<domain.ml:109:4>>*/ var
+    var
       /*<<domain.ml:109:14>>*/ idx =
         /*<<domain.ml:109:14>>*/ caml_call2(Stdlib_Atomic[7], key_counter, 1),
       /*<<domain.ml:110:12>>*/ k = [0, idx, init_orphan];
      /*<<domain.ml:111:4>>*/ if(split_from_parent){
-      /*<<domain.ml:113:35>>*/ var
+     var
       split = split_from_parent[1],
        /*<<domain.ml:113:35>>*/ ki = [0, k, split];
       /*<<domain.ml:104:4>>*/ for(;;){
-       /*<<domain.ml:104:12>>*/  /*<<domain.ml:104:12>>*/ var
+       /*<<domain.ml:104:12>>*/ var
        l =  /*<<domain.ml:104:12>>*/ caml_call1(Stdlib_Atomic[3], parent_keys);
       if
        (!
@@ -13517,7 +13343,7 @@
     /*<<domain.ml:115:5>>*/ }
    function maybe_grow(idx){
      /*<<domain.ml:120:4>>*/ for(;;){
-      /*<<domain.ml:121:4>>*/ var
+     var
       st = caml_domain_dls_get(0),
        /*<<domain.ml:121:4>>*/ sz = st.length - 1;
      if(idx < sz)  /*<<domain.ml:122:21>>*/ return st;
@@ -13527,7 +13353,7 @@
       var s = 2 * new_sz | 0;
       new_sz = s;
      }
-      /*<<domain.ml:128:19>>*/  /*<<domain.ml:128:19>>*/ var
+      /*<<domain.ml:128:19>>*/ var
       new_st =  /*<<domain.ml:128:19>>*/ caml_make_vect(new_sz, none);
       /*<<domain.ml:129:6>>*/  /*<<domain.ml:129:6>>*/ caml_call5
       (Stdlib_Array[9], st, 0, new_st, 0, sz);
@@ -13538,21 +13364,19 @@
     }
     /*<<domain.ml:139:7>>*/ }
    function set(param, x){
-     /*<<domain.ml:142:13>>*/ var
-     idx = param[1],
-      /*<<domain.ml:142:13>>*/ st = maybe_grow(idx);
+    var idx = param[1],  /*<<domain.ml:142:13>>*/ st = maybe_grow(idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
      /*<<domain.ml:146:4>>*/ return 0;
    }
    function get(param){
-     /*<<domain.ml:159:13>>*/ var
+    var
      init = param[2],
      idx = param[1],
       /*<<domain.ml:159:13>>*/ st = maybe_grow(idx),
       /*<<domain.ml:160:14>>*/ oldval = caml_check_bound(st, idx)[1 + idx];
      /*<<domain.ml:161:7>>*/ if(oldval !== none)
       /*<<domain.ml:75:25>>*/ return oldval;
-     /*<<domain.ml:164:18>>*/ var
+    var
       /*<<domain.ml:164:18>>*/ new_obj =
         /*<<domain.ml:164:18>>*/ caml_call1(init, 0),
       /*<<domain.ml:175:6>>*/ st$0 =
@@ -13560,7 +13384,7 @@
       /*<<domain.ml:152:17>>*/ curval = caml_check_bound(st$0, idx)[1 + idx],
      _e_ = curval === oldval ? (st$0[1 + idx] = new_obj, 1) : 0;
      /*<<domain.ml:176:9>>*/ if(_e_)  /*<<domain.ml:177:11>>*/ return new_obj;
-     /*<<domain.ml:181:26>>*/  /*<<domain.ml:181:26>>*/ var
+     /*<<domain.ml:181:26>>*/ var
      updated_obj = caml_check_bound(st$0, idx)[1 + idx];
      /*<<domain.ml:182:11>>*/ if(updated_obj !== none)
       /*<<domain.ml:75:25>>*/ return updated_obj;
@@ -13581,7 +13405,7 @@
             ? 1
             : 0;
     /*<<domain.ml:205:44>>*/ }
-    /*<<domain.ml:210:27>>*/ var
+   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 =
@@ -13602,7 +13426,7 @@
     first_spawn_function[1] = new_f;
     return 0;
     /*<<domain.ml:221:5>>*/ }
-    /*<<domain.ml:231:18>>*/  /*<<domain.ml:231:18>>*/ var
+    /*<<domain.ml:231:18>>*/ var
     at_exit_key =
       new_key
        (0,
@@ -13611,8 +13435,7 @@
            /*<<domain.ml:231:52>>*/ return 0; /*<<domain.ml:231:54>>*/ };
          /*<<domain.ml:231:55>>*/ });
    function at_exit(f){
-     /*<<domain.ml:234:2>>*/  /*<<domain.ml:234:32>>*/ var
-     old_exit = get(at_exit_key);
+     /*<<domain.ml:234: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
@@ -13621,8 +13444,7 @@
      /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit);
     /*<<domain.ml:238:30>>*/ }
    function do_at_exit(param){
-     /*<<domain.ml:241:2>>*/  /*<<domain.ml:241:25>>*/ var
-     f = get(at_exit_key);
+     /*<<domain.ml:241:25>>*/ var f = get(at_exit_key);
      /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1(f, 0);
     /*<<domain.ml:242:6>>*/ }
    Stdlib[104][1] = do_at_exit;
@@ -13641,14 +13463,14 @@
         /*<<domain.ml:228:39>>*/ return 0;
        /*<<domain.ml:228:41>>*/ };
     }
-     /*<<domain.ml:193:6>>*/ var
+    var
       /*<<domain.ml:193:6>>*/ _b_ =
         /*<<domain.ml:193:6>>*/ caml_call1(Stdlib_Atomic[3], parent_keys),
       /*<<domain.ml:193:6>>*/ pk =
         /*<<domain.ml:193:6>>*/ caml_call2
         (Stdlib_List[20],
          function(param){
-           /*<<domain.ml:192:6>>*/ var split = param[2], k = param[1];
+          var split = param[2], k = param[1];
            /*<<domain.ml:192:30>>*/ return [0,
                   k,
                    /*<<domain.ml:192:37>>*/ caml_call1(split, get(k))];
@@ -13664,11 +13486,11 @@
        /*<<domain.ml:196:4>>*/  /*<<domain.ml:196:4>>*/ caml_call2
        (Stdlib_List[18],
         function(param){
-          /*<<domain.ml:196:14>>*/ var v = param[2], k = param[1];
+         var v = param[2], k = param[1];
           /*<<domain.ml:196:34>>*/ return set(k, v);
          /*<<domain.ml:196:42>>*/ },
         pk);
-       /*<<domain.ml:263:16>>*/  /*<<domain.ml:263:16>>*/ var
+       /*<<domain.ml:263:16>>*/ var
        res =  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
      }
      catch(exn$0){
@@ -13681,14 +13503,14 @@
       /*<<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:281: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>>*/ }
    function join(param){
     var term_sync = param[2];
-     /*<<domain.ml:285:2>>*/ function loop(param){
+    function loop(param){
       /*<<domain.ml:287:4>>*/ for(;;){
       var match = term_sync[1];
       if(match){var res = match[1];  /*<<domain.ml:292:8>>*/ return res;}
@@ -13696,7 +13518,7 @@
        (Stdlib_Condition[2], term_sync[3], term_sync[2]);
      }
      /*<<domain.ml:292:11>>*/ }
-     /*<<domain.ml:294:8>>*/  /*<<domain.ml:294:8>>*/ var
+     /*<<domain.ml:294:8>>*/ var
      match =
         /*<<domain.ml:294:8>>*/ caml_call2
         (Stdlib_Mutex[5], term_sync[2], loop);
@@ -13730,64 +13552,65 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst$43 = "",
-    cst_and = " and ",
-    cst_Li$3 = "%Li",
-    cst_i$3 = "%i",
-    cst_li$3 = "%li",
-    cst_ni$3 = "%ni",
-    cst_u$0 = "%u",
-    cst$42 = "' '",
-    cst$41 = "'#'",
-    cst$39 = "'*'",
-    cst$40 = "'+'",
-    cst$44 = ", ",
-    cst_0$3 = "0",
-    cst_at_character_number = ": at character number ",
-    cst$38 = "@[",
-    cst$37 = "@{",
-    cst_bad_input_format_type_mism =
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst$43 = "",
+     /*<<?>>*/ cst_and = " and ",
+     /*<<?>>*/ cst_Li$3 = "%Li",
+     /*<<?>>*/ cst_i$3 = "%i",
+     /*<<?>>*/ cst_li$3 = "%li",
+     /*<<?>>*/ cst_ni$3 = "%ni",
+     /*<<?>>*/ cst_u$0 = "%u",
+     /*<<?>>*/ cst$42 = "' '",
+     /*<<?>>*/ cst$41 = "'#'",
+     /*<<?>>*/ cst$39 = "'*'",
+     /*<<?>>*/ cst$40 = "'+'",
+     /*<<?>>*/ cst$44 = ", ",
+     /*<<?>>*/ cst_0$3 = "0",
+     /*<<?>>*/ cst_at_character_number = ": at character number ",
+     /*<<?>>*/ cst$38 = "@[",
+     /*<<?>>*/ cst$37 = "@{",
+     /*<<?>>*/ cst_bad_input_format_type_mism =
       "bad input: format type mismatch between ",
-    cst_bad_input_format_type_mism$0 =
+     /*<<?>>*/ cst_bad_input_format_type_mism$0 =
       "bad input: format type mismatch between %S and %S",
-    cst_camlinternalFormat_ml = "camlinternalFormat.ml",
-    cst_invalid_format = "invalid format ",
-    cst_precision$3 = "precision",
-    caml_blit_string = runtime.caml_blit_string,
-    caml_bytes_set = runtime.caml_bytes_set,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_format_float = runtime.caml_format_float,
-    caml_format_int = runtime.caml_format_int,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length = runtime.caml_ml_string_length,
-    caml_notequal = runtime.caml_notequal,
-    caml_string_get = runtime.caml_string_get,
-    caml_string_unsafe_get = runtime.caml_string_unsafe_get,
-    caml_trampoline = runtime.caml_trampoline,
-    caml_trampoline_return = runtime.caml_trampoline_return,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ cst_camlinternalFormat_ml = "camlinternalFormat.ml",
+     /*<<?>>*/ cst_invalid_format = "invalid format ",
+     /*<<?>>*/ cst_precision$3 = "precision",
+     /*<<?>>*/ caml_blit_string = runtime.caml_blit_string,
+     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_format_float = runtime.caml_format_float,
+     /*<<?>>*/ caml_format_int = runtime.caml_format_int,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
+     /*<<?>>*/ caml_notequal = runtime.caml_notequal,
+     /*<<?>>*/ caml_string_get = runtime.caml_string_get,
+     /*<<?>>*/ caml_string_unsafe_get = runtime.caml_string_unsafe_get,
+     /*<<?>>*/ caml_trampoline = runtime.caml_trampoline,
+     /*<<?>>*/ caml_trampoline_return = runtime.caml_trampoline_return,
+     /*<<?>>*/ 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){
+   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){
+   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){
+   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){
+   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]);
@@ -13880,7 +13703,7 @@
             (Stdlib_Bytes[1], 32, 0);
     /*<<camlinternalFormat.ml:24:45>>*/ }
    function add_in_char_set(char_set, c){
-     /*<<camlinternalFormat.ml:28:2>>*/ var
+    var
      str_ind = c >>> 3 | 0,
      mask = 1 << (c & 7),
       /*<<camlinternalFormat.ml:31:30>>*/ _cU_ =
@@ -13897,11 +13720,11 @@
             (Stdlib_Bytes[6], char_set);
     /*<<camlinternalFormat.ml:34:26>>*/ }
    function rev_char_set(char_set){
-     /*<<camlinternalFormat.ml:38:2>>*/ var
+    var
       /*<<camlinternalFormat.ml:38:18>>*/ char_set$0 = create_char_set(0),
      i = 0;
     for(;;){
-      /*<<camlinternalFormat.ml:41:32>>*/  /*<<camlinternalFormat.ml:41:32>>*/ var
+      /*<<camlinternalFormat.ml:41:32>>*/ var
       _cS_ =
          /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get(char_set, i)
         ^ 255;
@@ -13909,8 +13732,7 @@
       (char_set$0,
        i,
         /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _cS_));
-      /*<<camlinternalFormat.ml:40:4>>*/  /*<<camlinternalFormat.ml:40:4>>*/ var
-      _cT_ = i + 1 | 0;
+      /*<<camlinternalFormat.ml:40:4>>*/ var _cT_ = i + 1 | 0;
      if(31 === i)
        /*<<camlinternalFormat.ml:43:2>>*/ return  /*<<camlinternalFormat.ml:43:2>>*/ caml_call1
               (Stdlib_Bytes[44], char_set$0);
@@ -13918,9 +13740,7 @@
     }
     /*<<camlinternalFormat.ml:43:34>>*/ }
    function is_in_char_set(char_set, c){
-     /*<<camlinternalFormat.ml:47:2>>*/ var
-     str_ind = c >>> 3 | 0,
-     mask = 1 << (c & 7);
+    var str_ind = c >>> 3 | 0, mask = 1 << (c & 7);
     return 0
             !==
              ( /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
@@ -14009,11 +13829,11 @@
              /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)];
     /*<<camlinternalFormat.ml:256:73>>*/ }
    function buffer_check_size(buf, overhead){
-     /*<<camlinternalFormat.ml:260:2>>*/ var
+    var
      len = runtime.caml_ml_bytes_length(buf[2]),
      min_len = buf[1] + overhead | 0;
     if(len < min_len){
-      /*<<camlinternalFormat.ml:263:18>>*/ var
+     var
        /*<<camlinternalFormat.ml:263:18>>*/ new_len =
          /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
          (Stdlib_Int[11], len * 2 | 0, min_len),
@@ -14031,8 +13851,7 @@
     buf[1] = buf[1] + 1 | 0;
     /*<<camlinternalFormat.ml:273:24>>*/ }
    function buffer_add_string(buf, s){
-     /*<<camlinternalFormat.ml:277:2>>*/ var
-     str_len = caml_ml_string_length(s);
+    var str_len = caml_ml_string_length(s);
      /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size(buf, str_len);
      /*<<camlinternalFormat.ml:279:2>>*/  /*<<camlinternalFormat.ml:279:2>>*/ caml_call5
      (Stdlib_String[6], s, 0, buf[2], buf[1], str_len);
@@ -14201,7 +14020,7 @@
        var str$0 = formatting_lit[1];
         /*<<camlinternalFormat.ml:472:28>>*/ return str$0;
       default:
-        /*<<camlinternalFormat.ml:475:26>>*/ var
+       var
         c = formatting_lit[1],
          /*<<camlinternalFormat.ml:475:26>>*/ _cQ_ =
            /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
@@ -14216,7 +14035,7 @@
             : buffer_add_char(buf, chr);
     /*<<camlinternalFormat.ml:482:32>>*/ }
    function bprint_string_literal(buf, str){
-     /*<<camlinternalFormat.ml:486:2>>*/ var
+    var
      _cO_ = caml_ml_string_length(str) - 1 | 0,
       /*<<camlinternalFormat.ml:486:2>>*/ _cN_ = 0;
     if(_cO_ >= 0){
@@ -14224,15 +14043,14 @@
      for(;;){
        /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
        (buf,  /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get(str, i));
-       /*<<camlinternalFormat.ml:487:4>>*/  /*<<camlinternalFormat.ml:487:4>>*/ var
-       _cP_ = i + 1 | 0;
+       /*<<camlinternalFormat.ml:487:4>>*/ var _cP_ = i + 1 | 0;
       if(_cO_ === i) break;
       i = _cP_;
      }
     }
     /*<<camlinternalFormat.ml:488:6>>*/ }
    function bprint_fmtty(buf, fmtty){
-     /*<<camlinternalFormat.ml:496:17>>*/ var fmtty$0 = fmtty;
+    var fmtty$0 = fmtty;
      /*<<camlinternalFormat.ml:496:17>>*/ for(;;){
      if(typeof fmtty$0 === "number")
        /*<<camlinternalFormat.ml:521:20>>*/ return;
@@ -14324,12 +14142,9 @@
     return 1 + int_of_custom_arity(x) | 0;
    }
    function string_of_fmt(fmt){
-     /*<<camlinternalFormat.ml:644:2>>*/  /*<<camlinternalFormat.ml:644:12>>*/ var
-     buf = buffer_create(16);
+     /*<<camlinternalFormat.ml:644:12>>*/ var buf = buffer_create(16);
     function fmtiter(fmt, ign_flag){
-      /*<<camlinternalFormat.ml:535:22>>*/ var
-      fmt$0 = fmt,
-      ign_flag$0 = ign_flag;
+     var fmt$0 = fmt, ign_flag$0 = ign_flag;
       /*<<camlinternalFormat.ml:535:22>>*/ for(;;){
       if(typeof fmt$0 === "number")
         /*<<camlinternalFormat.ml:636:23>>*/ return;
@@ -14546,7 +14361,7 @@
          var
           print_char =
             function(buf, i){
-              /*<<camlinternalFormat.ml:358:25>>*/  /*<<camlinternalFormat.ml:358:31>>*/ var
+              /*<<camlinternalFormat.ml:358:31>>*/ var
               c =
                  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
                  (Stdlib[29], i);
@@ -14558,7 +14373,7 @@
                        : buffer_add_char(buf, c);
              /*<<camlinternalFormat.ml:361:35>>*/ };
           /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
-          /*<<camlinternalFormat.ml:365:7>>*/  /*<<camlinternalFormat.ml:365:7>>*/ var
+          /*<<camlinternalFormat.ml:365:7>>*/ var
           set =
             is_in_char_set(char_set, 0)
              ? (buffer_add_char(buf, 94), rev_char_set(char_set))
@@ -14567,7 +14382,7 @@
          var
           is_alone =
             function(c){
-              /*<<camlinternalFormat.ml:316:6>>*/ var
+             var
                /*<<camlinternalFormat.ml:316:50>>*/ after =
                  /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
                  (Stdlib_Char[1], c + 1 | 0),
@@ -14577,7 +14392,7 @@
                /*<<camlinternalFormat.ml:317:6>>*/ _cJ_ =
                 is_in_char_set(set$0, c);
               /*<<camlinternalFormat.ml:317:6>>*/ if(_cJ_)
-               /*<<camlinternalFormat.ml:318:14>>*/ var
+              var
                 /*<<camlinternalFormat.ml:318:14>>*/ _cK_ =
                  is_in_char_set(set$0, before),
                 /*<<camlinternalFormat.ml:318:14>>*/ _cL_ =
@@ -14604,7 +14419,7 @@
                 (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
                   (Stdlib[29], i))){
-               /*<<camlinternalFormat.ml:327:10>>*/  /*<<camlinternalFormat.ml:327:10>>*/ var
+               /*<<camlinternalFormat.ml:327:10>>*/ var
                switcher =
                   /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
                   (Stdlib[29], i)
@@ -14614,19 +14429,17 @@
                if(210 <= switcher) break d;
               }
               else if(46 < switcher - 1 >>> 0){
-                /*<<camlinternalFormat.ml:329:19>>*/  /*<<camlinternalFormat.ml:329:19>>*/ var
-                i$2 = i + 1 | 0;
+                /*<<camlinternalFormat.ml:329:19>>*/ var i$2 = i + 1 | 0;
                i = i$2;
                continue;
               }
-               /*<<camlinternalFormat.ml:330:11>>*/  /*<<camlinternalFormat.ml:330:11>>*/ var
-               i$1 = i + 1 | 0;
+               /*<<camlinternalFormat.ml:330:11>>*/ var i$1 = i + 1 | 0;
                /*<<camlinternalFormat.ml:332:7>>*/ if
                (is_in_char_set
                  (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
                    (Stdlib[29], i$1))){
-                /*<<camlinternalFormat.ml:333:12>>*/  /*<<camlinternalFormat.ml:333:12>>*/ var
+                /*<<camlinternalFormat.ml:333:12>>*/ var
                 switcher$0 =
                    /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
                    (Stdlib[29], i$1)
@@ -14645,8 +14458,7 @@
                      (Stdlib[29], i$1 + 1 | 0))){
                  /*<<camlinternalFormat.ml:338:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
-                 /*<<camlinternalFormat.ml:338:8>>*/  /*<<camlinternalFormat.ml:338:8>>*/ var
-                 i$5 = i$1 + 1 | 0;
+                 /*<<camlinternalFormat.ml:338:8>>*/ var i$5 = i$1 + 1 | 0;
                 i = i$5;
                 continue;
                }
@@ -14655,7 +14467,7 @@
                   (set,
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
                     (Stdlib[29], i$1 + 1 | 0))){
-                 /*<<camlinternalFormat.ml:345:8>>*/ var
+                var
                   /*<<camlinternalFormat.ml:345:8>>*/ j = i$1 + 2 | 0,
                  i$3 = i$1 - 1 | 0,
                  j$0 = j;
@@ -14668,8 +14480,7 @@
                       /*<<camlinternalFormat.ml:351:42>>*/ caml_call1
                       (Stdlib[29], j$0)))
                   break;
-                  /*<<camlinternalFormat.ml:357:6>>*/  /*<<camlinternalFormat.ml:357:6>>*/ var
-                  j$1 = j$0 + 1 | 0;
+                  /*<<camlinternalFormat.ml:357:6>>*/ var j$1 = j$0 + 1 | 0;
                  j$0 = j$1;
                 }
                  /*<<camlinternalFormat.ml:352:6>>*/ print_char(buf, i$3);
@@ -14677,30 +14488,26 @@
                  /*<<camlinternalFormat.ml:354:6>>*/ print_char
                  (buf, j$0 - 1 | 0);
                 if(j$0 >= 256) break b;
-                 /*<<camlinternalFormat.ml:355:22>>*/  /*<<camlinternalFormat.ml:355:22>>*/ var
-                 i$7 = j$0 + 1 | 0;
+                 /*<<camlinternalFormat.ml:355:22>>*/ var i$7 = j$0 + 1 | 0;
                 i = i$7;
                }
                else{
                  /*<<camlinternalFormat.ml:341:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
                  /*<<camlinternalFormat.ml:342:8>>*/ print_char(buf, i$1);
-                 /*<<camlinternalFormat.ml:342:8>>*/  /*<<camlinternalFormat.ml:342:8>>*/ var
-                 i$4 = i$1 + 2 | 0;
+                 /*<<camlinternalFormat.ml:342:8>>*/ var i$4 = i$1 + 2 | 0;
                 i = i$4;
                }
               }
               else{
                 /*<<camlinternalFormat.ml:347:6>>*/ print_char
                 (buf, i$1 - 1 | 0);
-                /*<<camlinternalFormat.ml:347:6>>*/  /*<<camlinternalFormat.ml:347:6>>*/ var
-                i$6 = i$1 + 1 | 0;
+                /*<<camlinternalFormat.ml:347:6>>*/ var i$6 = i$1 + 1 | 0;
                i = i$6;
               }
              }
              else{
-               /*<<camlinternalFormat.ml:325:11>>*/  /*<<camlinternalFormat.ml:325:11>>*/ var
-               i$0 = i + 1 | 0;
+               /*<<camlinternalFormat.ml:325:11>>*/ var i$0 = i + 1 | 0;
               i = i$0;
              }
             }
@@ -14754,7 +14561,7 @@
          ign_flag$0 = 1;
          break;
         default:
-          /*<<camlinternalFormat.ml:578:20>>*/ var
+         var
           rest$23 = fmt$0[3],
           arity = fmt$0[1],
            /*<<camlinternalFormat.ml:578:20>>*/ _cH_ =
@@ -14767,8 +14574,7 @@
             /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
             (buf, ign_flag$0);
             /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char(buf, 63);
-            /*<<camlinternalFormat.ml:580:8>>*/  /*<<camlinternalFormat.ml:580:8>>*/ var
-            _cI_ = i$8 + 1 | 0;
+            /*<<camlinternalFormat.ml:580:8>>*/ var _cI_ = i$8 + 1 | 0;
            if(_cH_ === i$8) break;
            i$8 = _cI_;
           }
@@ -14841,7 +14647,7 @@
              function(param){ /*<<camlinternalFormat.ml:694:21>>*/ }];
     switch(param[0]){
       case 0:
-        /*<<camlinternalFormat.ml:696:25>>*/ var
+       var
         rest = param[1],
          /*<<camlinternalFormat.ml:696:25>>*/ match = fmtty_rel_det(rest),
         de = match[4],
@@ -14854,7 +14660,7 @@
                ,
                de];
       case 1:
-        /*<<camlinternalFormat.ml:701:25>>*/ var
+       var
         rest$0 = param[1],
          /*<<camlinternalFormat.ml:701:25>>*/ match$0 = fmtty_rel_det(rest$0),
         de$0 = match$0[4],
@@ -14867,7 +14673,7 @@
                ,
                de$0];
       case 2:
-        /*<<camlinternalFormat.ml:706:25>>*/ var
+       var
         rest$1 = param[1],
          /*<<camlinternalFormat.ml:706:25>>*/ match$1 = fmtty_rel_det(rest$1),
         de$1 = match$1[4],
@@ -14880,7 +14686,7 @@
                ,
                de$1];
       case 3:
-        /*<<camlinternalFormat.ml:711:25>>*/ var
+       var
         rest$2 = param[1],
          /*<<camlinternalFormat.ml:711:25>>*/ match$2 = fmtty_rel_det(rest$2),
         de$2 = match$2[4],
@@ -14893,7 +14699,7 @@
                ,
                de$2];
       case 4:
-        /*<<camlinternalFormat.ml:721:25>>*/ var
+       var
         rest$3 = param[1],
          /*<<camlinternalFormat.ml:721:25>>*/ match$3 = fmtty_rel_det(rest$3),
         de$3 = match$3[4],
@@ -14906,7 +14712,7 @@
                ,
                de$3];
       case 5:
-        /*<<camlinternalFormat.ml:716:25>>*/ var
+       var
         rest$4 = param[1],
          /*<<camlinternalFormat.ml:716:25>>*/ match$4 = fmtty_rel_det(rest$4),
         de$4 = match$4[4],
@@ -14919,7 +14725,7 @@
                ,
                de$4];
       case 6:
-        /*<<camlinternalFormat.ml:726:25>>*/ var
+       var
         rest$5 = param[1],
          /*<<camlinternalFormat.ml:726:25>>*/ match$5 = fmtty_rel_det(rest$5),
         de$5 = match$5[4],
@@ -14932,7 +14738,7 @@
                ,
                de$5];
       case 7:
-        /*<<camlinternalFormat.ml:731:25>>*/ var
+       var
         rest$6 = param[1],
          /*<<camlinternalFormat.ml:731:25>>*/ match$6 = fmtty_rel_det(rest$6),
         de$6 = match$6[4],
@@ -14945,7 +14751,7 @@
                ,
                de$6];
       case 8:
-        /*<<camlinternalFormat.ml:764:25>>*/ var
+       var
         rest$7 = param[2],
          /*<<camlinternalFormat.ml:764:25>>*/ match$7 = fmtty_rel_det(rest$7),
         de$7 = match$7[4],
@@ -14958,7 +14764,7 @@
                ,
                de$7];
       case 9:
-        /*<<camlinternalFormat.ml:769:25>>*/ var
+       var
         rest$8 = param[3],
         ty2 = param[2],
         ty1 = param[1],
@@ -14981,7 +14787,7 @@
                  /*<<camlinternalFormat.ml:775:50>>*/ de$8(0);
                 /*<<camlinternalFormat.ml:775:65>>*/ }];
       case 10:
-        /*<<camlinternalFormat.ml:742:25>>*/ var
+       var
         rest$9 = param[1],
          /*<<camlinternalFormat.ml:742:25>>*/ match$10 = fmtty_rel_det(rest$9),
         de$9 = match$10[4],
@@ -14994,7 +14800,7 @@
                ,
                de$9];
       case 11:
-        /*<<camlinternalFormat.ml:737:25>>*/ var
+       var
         rest$10 = param[1],
          /*<<camlinternalFormat.ml:737:25>>*/ match$11 =
           fmtty_rel_det(rest$10),
@@ -15008,7 +14814,7 @@
                ,
                de$10];
       case 12:
-        /*<<camlinternalFormat.ml:747:25>>*/ var
+       var
         rest$11 = param[1],
          /*<<camlinternalFormat.ml:747:25>>*/ match$12 =
           fmtty_rel_det(rest$11),
@@ -15022,7 +14828,7 @@
                ,
                de$11];
       case 13:
-        /*<<camlinternalFormat.ml:752:25>>*/ var
+       var
         rest$12 = param[1],
          /*<<camlinternalFormat.ml:752:25>>*/ match$13 =
           fmtty_rel_det(rest$12),
@@ -15038,7 +14844,7 @@
                  /*<<camlinternalFormat.ml:756:17>>*/ de$12(0);
                 /*<<camlinternalFormat.ml:756:43>>*/ }];
       default:
-        /*<<camlinternalFormat.ml:758:25>>*/ var
+       var
         rest$13 = param[1],
          /*<<camlinternalFormat.ml:758:25>>*/ match$14 =
           fmtty_rel_det(rest$13),
@@ -15056,7 +14862,7 @@
     }
    }
    function trans(ty1, ty2){
-     /*<<camlinternalFormat.ml:803:17>>*/ a:
+    a:
     {
      b:
      {
@@ -15269,7 +15075,7 @@
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 8:
-                    /*<<camlinternalFormat.ml:835:34>>*/ var
+                   var
                     rest2$7 = ty2[2],
                     ty2$0 = ty2[1],
                      /*<<camlinternalFormat.ml:835:34>>*/ _cE_ =
@@ -15297,7 +15103,7 @@
                   case 8:
                    break f;
                   case 9:
-                    /*<<camlinternalFormat.ml:841:13>>*/ var
+                   var
                     rest2$8 = ty2[3],
                     ty22 = ty2[2],
                     ty21 = ty2[1],
@@ -15446,7 +15252,7 @@
            ([0, Assert_failure, _e_], 1);
     /*<<camlinternalFormat.ml:851:35>>*/ }
    function fmtty_of_fmt(fmtty){
-     /*<<camlinternalFormat.ml:863:13>>*/ var fmtty$0 = fmtty;
+    var fmtty$0 = fmtty;
      /*<<camlinternalFormat.ml:863:13>>*/ for(;;){
      if(typeof fmtty$0 === "number")
        /*<<camlinternalFormat.ml:916:34>>*/ return 0;
@@ -15466,7 +15272,7 @@
          /*<<camlinternalFormat.ml:867:31>>*/ return fmtty_of_padding_fmtty
                 (pad$0, [1, fmtty_of_fmt(rest$2)]);
        case 4:
-         /*<<camlinternalFormat.ml:870:18>>*/ var
+        var
          rest$3 = fmtty$0[4],
          prec = fmtty$0[3],
          pad$1 = fmtty$0[2],
@@ -15476,7 +15282,7 @@
          /*<<camlinternalFormat.ml:872:4>>*/ return fmtty_of_padding_fmtty
                 (pad$1, prec_ty);
        case 5:
-         /*<<camlinternalFormat.ml:874:18>>*/ var
+        var
          rest$4 = fmtty$0[4],
          prec$0 = fmtty$0[3],
          pad$2 = fmtty$0[2],
@@ -15487,7 +15293,7 @@
          /*<<camlinternalFormat.ml:876:4>>*/ return fmtty_of_padding_fmtty
                 (pad$2, prec_ty$0);
        case 6:
-         /*<<camlinternalFormat.ml:878:18>>*/ var
+        var
          rest$5 = fmtty$0[4],
          prec$1 = fmtty$0[3],
          pad$3 = fmtty$0[2],
@@ -15498,7 +15304,7 @@
          /*<<camlinternalFormat.ml:880:4>>*/ return fmtty_of_padding_fmtty
                 (pad$3, prec_ty$1);
        case 7:
-         /*<<camlinternalFormat.ml:882:18>>*/ var
+        var
          rest$6 = fmtty$0[4],
          prec$2 = fmtty$0[3],
          pad$4 = fmtty$0[2],
@@ -15509,7 +15315,7 @@
          /*<<camlinternalFormat.ml:884:4>>*/ return fmtty_of_padding_fmtty
                 (pad$4, prec_ty$2);
        case 8:
-         /*<<camlinternalFormat.ml:886:18>>*/ var
+        var
          rest$7 = fmtty$0[4],
          prec$3 = fmtty$0[3],
          pad$5 = fmtty$0[2],
@@ -15551,7 +15357,7 @@
        case 17:
         var fmtty$4 = fmtty$0[2]; fmtty$0 = fmtty$4; break;
        case 18:
-         /*<<camlinternalFormat.ml:914:54>>*/ var
+        var
          rest$13 = fmtty$0[2],
          formatting_gen = fmtty$0[1],
           /*<<camlinternalFormat.ml:914:54>>*/ _cB_ = fmtty_of_fmt(rest$13);
@@ -15611,7 +15417,7 @@
            case 8:
             fmtty$0 = fmtty$5; break;
            case 9:
-             /*<<camlinternalFormat.ml:943:58>>*/ var
+            var
              fmtty$6 = ign[2],
               /*<<camlinternalFormat.ml:943:58>>*/ _cD_ =
                fmtty_of_fmt(fmtty$5);
@@ -15646,7 +15452,7 @@
             ? prec ? [2, fmtty] : fmtty
             : fmtty;
     /*<<camlinternalFormat.ml:963:37>>*/ }
-    /*<<camlinternalFormat.ml:969:0>>*/ var
+   var
      /*<<camlinternalFormat.ml:969:0>>*/ Type_mismatch =
       [248, "CamlinternalFormat.Type_mismatch", runtime.caml_fresh_oo_id(0)],
     cst_d = "%d",
@@ -15900,7 +15706,7 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:981:28>>*/ }
    function type_padprec(pad, prec, fmtty){
-     /*<<camlinternalFormat.ml:989:22>>*/  /*<<camlinternalFormat.ml:989:34>>*/ var
+     /*<<camlinternalFormat.ml:989:34>>*/ var
      match = type_padding(pad, fmtty);
     if(typeof prec !== "number"){
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
@@ -15919,7 +15725,7 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:996:54>>*/ }
    function type_format(fmt, fmtty){
-     /*<<camlinternalFormat.ml:1008:19>>*/  /*<<camlinternalFormat.ml:1008:25>>*/ var
+     /*<<camlinternalFormat.ml:1008:25>>*/ var
      _cA_ = type_format_gen(fmt, fmtty);
     if(typeof _cA_[2] !== "number")
       /*<<camlinternalFormat.ml:1010:9>>*/ throw  /*<<camlinternalFormat.ml:1010:9>>*/ caml_maybe_attach_backtrace
@@ -15933,7 +15739,7 @@
     switch(fmt[0]){
       case 0:
        if(typeof fmtty0 !== "number" && 0 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1020:39>>*/ var
+        var
          fmtty_rest = fmtty0[1],
          fmt_rest = fmt[1],
           /*<<camlinternalFormat.ml:1020:39>>*/ match =
@@ -15945,7 +15751,7 @@
        break;
       case 1:
        if(typeof fmtty0 !== "number" && 0 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1023:39>>*/ var
+        var
          fmtty_rest$0 = fmtty0[1],
          fmt_rest$0 = fmt[1],
           /*<<camlinternalFormat.ml:1023:39>>*/ match$0 =
@@ -15956,7 +15762,7 @@
        }
        break;
       case 2:
-        /*<<camlinternalFormat.ml:1026:10>>*/ var
+       var
         fmt_rest$1 = fmt[2],
         pad = fmt[1],
          /*<<camlinternalFormat.ml:1026:10>>*/ match$1 =
@@ -15964,7 +15770,7 @@
         pad$0 = match$1[1],
         match$2 = match$1[2];
        if(typeof match$2 !== "number" && 1 === match$2[0]){
-         /*<<camlinternalFormat.ml:1028:41>>*/ var
+        var
          fmtty_rest$1 = match$2[1],
           /*<<camlinternalFormat.ml:1028:41>>*/ match$3 =
            type_format_gen(fmt_rest$1, fmtty_rest$1),
@@ -15977,7 +15783,7 @@
         /*<<camlinternalFormat.ml:1030:34>>*/ throw  /*<<camlinternalFormat.ml:1030:34>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 3:
-        /*<<camlinternalFormat.ml:1033:10>>*/ var
+       var
         fmt_rest$2 = fmt[2],
         pad$1 = fmt[1],
          /*<<camlinternalFormat.ml:1033:10>>*/ match$4 =
@@ -15985,7 +15791,7 @@
         pad$2 = match$4[1],
         match$5 = match$4[2];
        if(typeof match$5 !== "number" && 1 === match$5[0]){
-         /*<<camlinternalFormat.ml:1035:41>>*/ var
+        var
          fmtty_rest$2 = match$5[1],
           /*<<camlinternalFormat.ml:1035:41>>*/ match$6 =
            type_format_gen(fmt_rest$2, fmtty_rest$2),
@@ -15998,7 +15804,7 @@
         /*<<camlinternalFormat.ml:1037:34>>*/ throw  /*<<camlinternalFormat.ml:1037:34>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 4:
-        /*<<camlinternalFormat.ml:1040:10>>*/ var
+       var
         fmt_rest$3 = fmt[4],
         prec = fmt[3],
         pad$3 = fmt[2],
@@ -16008,7 +15814,7 @@
         pad$4 = match$7[1],
         match$8 = match$7[3];
        if(typeof match$8 !== "number" && 2 === match$8[0]){
-         /*<<camlinternalFormat.ml:1042:41>>*/ var
+        var
          fmtty_rest$3 = match$8[1],
          prec$0 = match$7[2],
           /*<<camlinternalFormat.ml:1042:41>>*/ match$9 =
@@ -16022,7 +15828,7 @@
         /*<<camlinternalFormat.ml:1044:37>>*/ throw  /*<<camlinternalFormat.ml:1044:37>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 5:
-        /*<<camlinternalFormat.ml:1047:10>>*/ var
+       var
         fmt_rest$4 = fmt[4],
         prec$1 = fmt[3],
         pad$5 = fmt[2],
@@ -16032,7 +15838,7 @@
         pad$6 = match$10[1],
         match$11 = match$10[3];
        if(typeof match$11 !== "number" && 3 === match$11[0]){
-         /*<<camlinternalFormat.ml:1049:41>>*/ var
+        var
          fmtty_rest$4 = match$11[1],
          prec$2 = match$10[2],
           /*<<camlinternalFormat.ml:1049:41>>*/ match$12 =
@@ -16046,7 +15852,7 @@
         /*<<camlinternalFormat.ml:1051:37>>*/ throw  /*<<camlinternalFormat.ml:1051:37>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 6:
-        /*<<camlinternalFormat.ml:1054:10>>*/ var
+       var
         fmt_rest$5 = fmt[4],
         prec$3 = fmt[3],
         pad$7 = fmt[2],
@@ -16056,7 +15862,7 @@
         pad$8 = match$13[1],
         match$14 = match$13[3];
        if(typeof match$14 !== "number" && 4 === match$14[0]){
-         /*<<camlinternalFormat.ml:1056:41>>*/ var
+        var
          fmtty_rest$5 = match$14[1],
          prec$4 = match$13[2],
           /*<<camlinternalFormat.ml:1056:41>>*/ match$15 =
@@ -16070,7 +15876,7 @@
         /*<<camlinternalFormat.ml:1058:37>>*/ throw  /*<<camlinternalFormat.ml:1058:37>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 7:
-        /*<<camlinternalFormat.ml:1061:10>>*/ var
+       var
         fmt_rest$6 = fmt[4],
         prec$5 = fmt[3],
         pad$9 = fmt[2],
@@ -16080,7 +15886,7 @@
         pad$10 = match$16[1],
         match$17 = match$16[3];
        if(typeof match$17 !== "number" && 5 === match$17[0]){
-         /*<<camlinternalFormat.ml:1063:41>>*/ var
+        var
          fmtty_rest$6 = match$17[1],
          prec$6 = match$16[2],
           /*<<camlinternalFormat.ml:1063:41>>*/ match$18 =
@@ -16094,7 +15900,7 @@
         /*<<camlinternalFormat.ml:1065:37>>*/ throw  /*<<camlinternalFormat.ml:1065:37>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 8:
-        /*<<camlinternalFormat.ml:1068:10>>*/ var
+       var
         fmt_rest$7 = fmt[4],
         prec$7 = fmt[3],
         pad$11 = fmt[2],
@@ -16104,7 +15910,7 @@
         pad$12 = match$19[1],
         match$20 = match$19[3];
        if(typeof match$20 !== "number" && 6 === match$20[0]){
-         /*<<camlinternalFormat.ml:1070:41>>*/ var
+        var
          fmtty_rest$7 = match$20[1],
          prec$8 = match$19[2],
           /*<<camlinternalFormat.ml:1070:41>>*/ match$21 =
@@ -16118,7 +15924,7 @@
         /*<<camlinternalFormat.ml:1072:37>>*/ throw  /*<<camlinternalFormat.ml:1072:37>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 9:
-        /*<<camlinternalFormat.ml:1075:10>>*/ var
+       var
         fmt_rest$8 = fmt[2],
         pad$13 = fmt[1],
          /*<<camlinternalFormat.ml:1075:10>>*/ match$22 =
@@ -16126,7 +15932,7 @@
         pad$14 = match$22[1],
         match$23 = match$22[2];
        if(typeof match$23 !== "number" && 7 === match$23[0]){
-         /*<<camlinternalFormat.ml:1077:41>>*/ var
+        var
          fmtty_rest$8 = match$23[1],
           /*<<camlinternalFormat.ml:1077:41>>*/ match$24 =
            type_format_gen(fmt_rest$8, fmtty_rest$8),
@@ -16139,7 +15945,7 @@
         /*<<camlinternalFormat.ml:1079:34>>*/ throw  /*<<camlinternalFormat.ml:1079:34>>*/ caml_maybe_attach_backtrace
               (Type_mismatch, 1);
       case 10:
-        /*<<camlinternalFormat.ml:1082:39>>*/ var
+       var
         fmt_rest$9 = fmt[1],
          /*<<camlinternalFormat.ml:1082:39>>*/ match$25 =
           type_format_gen(fmt_rest$9, fmtty0),
@@ -16147,7 +15953,7 @@
         fmt$10 = match$25[1];
         /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9];
       case 11:
-        /*<<camlinternalFormat.ml:1086:39>>*/ var
+       var
         fmt_rest$10 = fmt[2],
         str = fmt[1],
          /*<<camlinternalFormat.ml:1086:39>>*/ match$26 =
@@ -16158,7 +15964,7 @@
                [11, str, fmt$11],
                fmtty$10];
       case 12:
-        /*<<camlinternalFormat.ml:1089:39>>*/ var
+       var
         fmt_rest$11 = fmt[2],
         chr = fmt[1],
          /*<<camlinternalFormat.ml:1089:39>>*/ match$27 =
@@ -16181,7 +15987,7 @@
            ([0, sub_fmtty$0], [0, sub_fmtty]))
           /*<<camlinternalFormat.ml:1094:56>>*/ throw  /*<<camlinternalFormat.ml:1094:56>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
-         /*<<camlinternalFormat.ml:1095:39>>*/ var
+        var
           /*<<camlinternalFormat.ml:1095:39>>*/ match$28 =
            type_format_gen(fmt_rest$12, fmtty_rest$9),
          fmtty$12 = match$28[2],
@@ -16193,7 +15999,7 @@
        break;
       case 14:
        if(typeof fmtty0 !== "number" && 9 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1099:42>>*/ var
+        var
          fmtty_rest$10 = fmtty0[3],
          sub_fmtty1 = fmtty0[1],
          fmt_rest$13 = fmt[3],
@@ -16211,7 +16017,7 @@
             _cy_))
           /*<<camlinternalFormat.ml:1100:6>>*/ throw  /*<<camlinternalFormat.ml:1100:6>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
-         /*<<camlinternalFormat.ml:1102:6>>*/ var
+        var
           /*<<camlinternalFormat.ml:1102:6>>*/ match$29 =
            type_format_gen
             (fmt_rest$13,
@@ -16226,7 +16032,7 @@
        break;
       case 15:
        if(typeof fmtty0 !== "number" && 10 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1107:39>>*/ var
+        var
          fmtty_rest$11 = fmtty0[1],
          fmt_rest$14 = fmt[1],
           /*<<camlinternalFormat.ml:1107:39>>*/ match$30 =
@@ -16240,7 +16046,7 @@
        break;
       case 16:
        if(typeof fmtty0 !== "number" && 11 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1110:39>>*/ var
+        var
          fmtty_rest$12 = fmtty0[1],
          fmt_rest$15 = fmt[1],
           /*<<camlinternalFormat.ml:1110:39>>*/ match$31 =
@@ -16253,7 +16059,7 @@
        }
        break;
       case 17:
-        /*<<camlinternalFormat.ml:1115:39>>*/ var
+       var
         fmt_rest$16 = fmt[2],
         formatting_lit = fmt[1],
          /*<<camlinternalFormat.ml:1115:39>>*/ match$32 =
@@ -16266,7 +16072,7 @@
       case 18:
        var fmt_rest$17 = fmt[2], formatting_gen = fmt[1];
        if(0 === formatting_gen[0]){
-         /*<<camlinternalFormat.ml:1144:39>>*/ var
+        var
          match$36 = formatting_gen[1],
          str$0 = match$36[2],
          fmt1 = match$36[1],
@@ -16282,7 +16088,7 @@
                 [18, [0, [0, fmt2, str$0]], fmt3],
                 fmtty3];
        }
-        /*<<camlinternalFormat.ml:1148:39>>*/ var
+       var
         match$39 = formatting_gen[1],
         str$1 = match$39[2],
         fmt1$0 = match$39[1],
@@ -16299,7 +16105,7 @@
                fmtty3$0];
       case 19:
        if(typeof fmtty0 !== "number" && 13 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1122:39>>*/ var
+        var
          fmtty_rest$13 = fmtty0[1],
          fmt_rest$18 = fmt[1],
           /*<<camlinternalFormat.ml:1122:39>>*/ match$33 =
@@ -16313,7 +16119,7 @@
        break;
       case 20:
        if(typeof fmtty0 !== "number" && 1 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1125:39>>*/ var
+        var
          fmtty_rest$14 = fmtty0[1],
          fmt_rest$19 = fmt[3],
          char_set = fmt[2],
@@ -16329,7 +16135,7 @@
        break;
       case 21:
        if(typeof fmtty0 !== "number" && 2 === fmtty0[0]){
-         /*<<camlinternalFormat.ml:1128:39>>*/ var
+        var
          fmtty_rest$15 = fmtty0[1],
          fmt_rest$20 = fmt[2],
          counter = fmt[1],
@@ -16375,7 +16181,7 @@
             /*<<camlinternalFormat.ml:1173:4>>*/ return type_ignored_param_one
                    ([8, pad_opt$1, sub_fmtty$2], rest, fmtty0);
           case 9:
-            /*<<camlinternalFormat.ml:1176:6>>*/ var
+           var
             sub_fmtty$3 = ign[2],
             pad_opt$2 = ign[1],
              /*<<camlinternalFormat.ml:1176:6>>*/ _cz_ =
@@ -16403,7 +16209,7 @@
                   (ign, rest, fmtty0);
          case 2:
           if(typeof fmtty0 !== "number" && 14 === fmtty0[0]){
-            /*<<camlinternalFormat.ml:1183:41>>*/ var
+           var
             fmtty_rest$16 = fmtty0[1],
              /*<<camlinternalFormat.ml:1183:41>>*/ match$42 =
               type_format_gen(rest, fmtty_rest$16),
@@ -16424,7 +16230,7 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1135:28>>*/ }
    function type_ignored_param_one(ign, fmt, fmtty){
-     /*<<camlinternalFormat.ml:1194:2>>*/ var
+    var
       /*<<camlinternalFormat.ml:1194:37>>*/ match =
        type_format_gen(fmt, fmtty),
      fmtty$0 = match[2],
@@ -16441,7 +16247,7 @@
     switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1205:6>>*/ var
+        var
          fmtty_rest = fmtty[1],
          sub_fmtty_rest = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1205:6>>*/ match =
@@ -16455,7 +16261,7 @@
        break;
       case 1:
        if(typeof fmtty !== "number" && 1 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1209:6>>*/ var
+        var
          fmtty_rest$0 = fmtty[1],
          sub_fmtty_rest$1 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1209:6>>*/ match$0 =
@@ -16469,7 +16275,7 @@
        break;
       case 2:
        if(typeof fmtty !== "number" && 2 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1213:6>>*/ var
+        var
          fmtty_rest$1 = fmtty[1],
          sub_fmtty_rest$3 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1213:6>>*/ match$1 =
@@ -16483,7 +16289,7 @@
        break;
       case 3:
        if(typeof fmtty !== "number" && 3 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1217:6>>*/ var
+        var
          fmtty_rest$2 = fmtty[1],
          sub_fmtty_rest$5 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1217:6>>*/ match$2 =
@@ -16497,7 +16303,7 @@
        break;
       case 4:
        if(typeof fmtty !== "number" && 4 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1221:6>>*/ var
+        var
          fmtty_rest$3 = fmtty[1],
          sub_fmtty_rest$7 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1221:6>>*/ match$3 =
@@ -16511,7 +16317,7 @@
        break;
       case 5:
        if(typeof fmtty !== "number" && 5 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1225:6>>*/ var
+        var
          fmtty_rest$4 = fmtty[1],
          sub_fmtty_rest$9 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1225:6>>*/ match$4 =
@@ -16525,7 +16331,7 @@
        break;
       case 6:
        if(typeof fmtty !== "number" && 6 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1229:6>>*/ var
+        var
          fmtty_rest$5 = fmtty[1],
          sub_fmtty_rest$11 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1229:6>>*/ match$5 =
@@ -16540,7 +16346,7 @@
        break;
       case 7:
        if(typeof fmtty !== "number" && 7 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1233:6>>*/ var
+        var
          fmtty_rest$6 = fmtty[1],
          sub_fmtty_rest$13 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1233:6>>*/ match$6 =
@@ -16565,7 +16371,7 @@
            ([0, sub2_fmtty$0], [0, sub2_fmtty]))
           /*<<camlinternalFormat.ml:1254:58>>*/ throw  /*<<camlinternalFormat.ml:1254:58>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
-         /*<<camlinternalFormat.ml:1256:6>>*/ var
+        var
           /*<<camlinternalFormat.ml:1256:6>>*/ match$7 =
            type_ignored_format_substituti
             (sub_fmtty_rest$15, fmt, fmtty_rest$7),
@@ -16578,7 +16384,7 @@
        break;
       case 9:
        if(typeof fmtty !== "number" && 9 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1261:43>>*/ var
+        var
          fmtty_rest$8 = fmtty[3],
          sub2_fmtty$1 = fmtty[2],
          sub1_fmtty = fmtty[1],
@@ -16597,7 +16403,7 @@
             _cw_))
           /*<<camlinternalFormat.ml:1262:9>>*/ throw  /*<<camlinternalFormat.ml:1262:9>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
-         /*<<camlinternalFormat.ml:1263:43>>*/  /*<<camlinternalFormat.ml:1263:43>>*/ var
+         /*<<camlinternalFormat.ml:1263:43>>*/ var
          _cx_ =
            [0,
              /*<<camlinternalFormat.ml:1263:53>>*/ caml_call1
@@ -16610,7 +16416,7 @@
             _cx_))
           /*<<camlinternalFormat.ml:1264:9>>*/ throw  /*<<camlinternalFormat.ml:1264:9>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
-         /*<<camlinternalFormat.ml:1265:21>>*/ var
+        var
           /*<<camlinternalFormat.ml:1265:21>>*/ sub_fmtty$0 =
            trans(symm(sub1_fmtty), sub2_fmtty$1),
           /*<<camlinternalFormat.ml:1266:23>>*/ match$8 =
@@ -16619,7 +16425,7 @@
          f2 = match$8[2];
          /*<<camlinternalFormat.ml:1267:15>>*/ f2(0);
          /*<<camlinternalFormat.ml:1268:15>>*/ f4(0);
-         /*<<camlinternalFormat.ml:1270:6>>*/ var
+        var
           /*<<camlinternalFormat.ml:1270:6>>*/ match$9 =
            type_ignored_format_substituti
             ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
@@ -16635,7 +16441,7 @@
        break;
       case 10:
        if(typeof fmtty !== "number" && 10 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1237:6>>*/ var
+        var
          fmtty_rest$9 = fmtty[1],
          sub_fmtty_rest$19 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1237:6>>*/ match$10 =
@@ -16650,7 +16456,7 @@
        break;
       case 11:
        if(typeof fmtty !== "number" && 11 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1241:6>>*/ var
+        var
          fmtty_rest$10 = fmtty[1],
          sub_fmtty_rest$21 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1241:6>>*/ match$11 =
@@ -16665,7 +16471,7 @@
        break;
       case 13:
        if(typeof fmtty !== "number" && 13 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1245:6>>*/ var
+        var
          fmtty_rest$11 = fmtty[1],
          sub_fmtty_rest$23 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1245:6>>*/ match$12 =
@@ -16680,7 +16486,7 @@
        break;
       case 14:
        if(typeof fmtty !== "number" && 14 === fmtty[0]){
-         /*<<camlinternalFormat.ml:1249:6>>*/ var
+        var
          fmtty_rest$12 = fmtty[1],
          sub_fmtty_rest$25 = sub_fmtty[1],
           /*<<camlinternalFormat.ml:1249:6>>*/ match$13 =
@@ -16698,21 +16504,20 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
-     /*<<camlinternalFormat.ml:1312:2>>*/  /*<<camlinternalFormat.ml:1312:29>>*/ var
-     _cv_ = symm(fmtty);
+     /*<<camlinternalFormat.ml:1312:29>>*/ var _cv_ = symm(fmtty);
      /*<<camlinternalFormat.ml:1312:18>>*/ return type_format
             (fmt,
               /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
               (CamlinternalFormatBasics[2], _cv_));
     /*<<camlinternalFormat.ml:1312:42>>*/ }
    function fix_padding(padty, width, str){
-     /*<<camlinternalFormat.ml:1319:2>>*/ var
+    var
      len = caml_ml_string_length(str),
       /*<<camlinternalFormat.ml:1320:2>>*/ padty$0 = 0 <= width ? padty : 0,
       /*<<camlinternalFormat.ml:1321:4>>*/ width$0 =
         /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1(Stdlib[18], width);
     if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
-     /*<<camlinternalFormat.ml:1333:14>>*/ var
+    var
      _cu_ = 2 === padty$0 ? 48 : 32,
       /*<<camlinternalFormat.ml:1333:14>>*/ res =
         /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
@@ -16785,7 +16590,7 @@
             (Stdlib_Bytes[44], res);
     /*<<camlinternalFormat.ml:1346:30>>*/ }
    function fix_int_precision(prec, str){
-     /*<<camlinternalFormat.ml:1350:2>>*/ var
+    var
       /*<<camlinternalFormat.ml:1350:13>>*/ prec$0 =
         /*<<camlinternalFormat.ml:1350:13>>*/ caml_call1(Stdlib[18], prec),
       /*<<camlinternalFormat.ml:1351:2>>*/ len =
@@ -16812,7 +16617,7 @@
                !==
                  /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get(str, 1))
              break c;
-             /*<<camlinternalFormat.ml:1359:14>>*/  /*<<camlinternalFormat.ml:1359:14>>*/ var
+             /*<<camlinternalFormat.ml:1359:14>>*/ var
              res$1 =
                 /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
                 (Stdlib_Bytes[1], prec$0 + 2 | 0, 48);
@@ -16841,7 +16646,7 @@
         }
        }
        if(len >= (prec$0 + 1 | 0)) break a;
-        /*<<camlinternalFormat.ml:1354:14>>*/  /*<<camlinternalFormat.ml:1354:14>>*/ var
+        /*<<camlinternalFormat.ml:1354:14>>*/ var
         res$0 =
            /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
            (Stdlib_Bytes[1], prec$0 + 1 | 0, 48);
@@ -16860,7 +16665,7 @@
       if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
      }
      if(len < prec$0){
-       /*<<camlinternalFormat.ml:1364:14>>*/  /*<<camlinternalFormat.ml:1364:14>>*/ var
+       /*<<camlinternalFormat.ml:1364:14>>*/ var
        res =
           /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
           (Stdlib_Bytes[1], prec$0, 48);
@@ -16873,7 +16678,7 @@
      /*<<camlinternalFormat.ml:1368:4>>*/ return str;
     /*<<camlinternalFormat.ml:1368:7>>*/ }
    function string_to_caml_string(str){
-     /*<<camlinternalFormat.ml:1372:2>>*/ var
+    var
       /*<<camlinternalFormat.ml:1372:12>>*/ str$0 =
         /*<<camlinternalFormat.ml:1372:12>>*/ caml_call1
         (Stdlib_String[25], str),
@@ -16888,7 +16693,7 @@
             (Stdlib_Bytes[44], res);
     /*<<camlinternalFormat.ml:1376:28>>*/ }
    function format_of_fconv(fconv, prec){
-     /*<<camlinternalFormat.ml:1414:4>>*/ var
+    var
       /*<<camlinternalFormat.ml:1414:15>>*/ prec$0 =
         /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1(Stdlib[18], prec),
       /*<<camlinternalFormat.ml:1415:15>>*/ symb = char_of_fconv(_r_, fconv),
@@ -16906,7 +16711,7 @@
    function transform_int_alt(iconv, s){
      /*<<camlinternalFormat.ml:1425:2>>*/ if(13 > iconv)
       /*<<camlinternalFormat.ml:1447:9>>*/ return s;
-     /*<<camlinternalFormat.ml:1428:14>>*/ var
+    var
       /*<<camlinternalFormat.ml:1428:14>>*/ n = [0, 0],
      _cp_ = caml_ml_string_length(s) - 1 | 0,
       /*<<camlinternalFormat.ml:1428:14>>*/ _co_ = 0;
@@ -16914,13 +16719,12 @@
      var i$0 = _co_;
      for(;;){
       if(9 >= caml_string_unsafe_get(s, i$0) - 48 >>> 0) n[1]++;
-       /*<<camlinternalFormat.ml:1429:6>>*/  /*<<camlinternalFormat.ml:1429:6>>*/ var
-       _ct_ = i$0 + 1 | 0;
+       /*<<camlinternalFormat.ml:1429:6>>*/ var _ct_ = i$0 + 1 | 0;
       if(_cp_ === i$0) break;
       i$0 = _ct_;
      }
     }
-     /*<<camlinternalFormat.ml:1436:14>>*/ var
+    var
      digits = n[1],
       /*<<camlinternalFormat.ml:1436:14>>*/ buf =
         /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
@@ -16931,7 +16735,7 @@
       (buf, pos[1], c);
      pos[1]++;
      /*<<camlinternalFormat.ml:1438:46>>*/ }
-     /*<<camlinternalFormat.ml:1439:15>>*/ var
+    var
       /*<<camlinternalFormat.ml:1439:15>>*/ left =
        [0, ((digits - 1 | 0) % 3 | 0) + 1 | 0],
      _cr_ = caml_ml_string_length(s) - 1 | 0,
@@ -16950,8 +16754,7 @@
        left[1]--;
         /*<<camlinternalFormat.ml:1443:61>>*/ put(c);
       }
-       /*<<camlinternalFormat.ml:1440:4>>*/  /*<<camlinternalFormat.ml:1440:4>>*/ var
-       _cs_ = i + 1 | 0;
+       /*<<camlinternalFormat.ml:1440:4>>*/ var _cs_ = i + 1 | 0;
       if(_cr_ === i) break;
       i = _cs_;
      }
@@ -17108,8 +16911,8 @@
       /*<<camlinternalFormat.ml:1468:4>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
              (x, prec, sign);
      /*<<camlinternalFormat.ml:1468:34>>*/ }
-     /*<<camlinternalFormat.ml:1477:2>>*/ function caml_special_val(str){
-      /*<<camlinternalFormat.ml:1477:29>>*/  /*<<camlinternalFormat.ml:1477:35>>*/ var
+    function caml_special_val(str){
+      /*<<camlinternalFormat.ml:1477:35>>*/ var
       match =
          /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float(x);
      return 3 === match
@@ -17118,7 +16921,7 @@
      /*<<camlinternalFormat.ml:1480:21>>*/ }
     switch(fconv[2]){
       case 5:
-        /*<<camlinternalFormat.ml:1486:14>>*/ var
+       var
          /*<<camlinternalFormat.ml:1486:14>>*/ str =
            /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
            (format_of_fconv(fconv, prec), x),
@@ -17128,7 +16931,7 @@
         if(i === len)
          var _ch_ = 0;
         else{
-          /*<<camlinternalFormat.ml:1473:14>>*/  /*<<camlinternalFormat.ml:1473:14>>*/ var
+          /*<<camlinternalFormat.ml:1473:14>>*/ var
           _cg_ =
              /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get(str, i)
             - 46
@@ -17139,14 +16942,13 @@
            if(55 === _cg_) break a;
           }
           else if(21 < _cg_ - 1 >>> 0) break a;
-           /*<<camlinternalFormat.ml:1475:15>>*/  /*<<camlinternalFormat.ml:1475:15>>*/ var
-           i$0 = i + 1 | 0;
+           /*<<camlinternalFormat.ml:1475:15>>*/ var i$0 = i + 1 | 0;
           i = i$0;
           continue;
          }
          var _ch_ = 1;
         }
-         /*<<camlinternalFormat.ml:1476:7>>*/  /*<<camlinternalFormat.ml:1476:7>>*/ var
+         /*<<camlinternalFormat.ml:1476:7>>*/ var
          _ci_ =
            _ch_
             ? str
@@ -17157,8 +16959,7 @@
       case 6:
         /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0);
       case 7:
-        /*<<camlinternalFormat.ml:1483:38>>*/  /*<<camlinternalFormat.ml:1483:38>>*/ var
-        _cj_ = hex(0);
+        /*<<camlinternalFormat.ml:1483:38>>*/ var _cj_ = hex(0);
         /*<<camlinternalFormat.ml:1483:38>>*/ return  /*<<camlinternalFormat.ml:1483:38>>*/ caml_call1
                (Stdlib_String[26], _cj_);
       case 8:
@@ -17169,16 +16970,12 @@
     }
     /*<<camlinternalFormat.ml:1489:47>>*/ }
    function string_of_fmtty(fmtty){
-     /*<<camlinternalFormat.ml:1501:2>>*/  /*<<camlinternalFormat.ml:1501:12>>*/ var
-     buf = buffer_create(16);
+     /*<<camlinternalFormat.ml:1501:12>>*/ var buf = buffer_create(16);
      /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty(buf, fmtty);
      /*<<camlinternalFormat.ml:1502:2>>*/ return buffer_contents(buf);
     /*<<camlinternalFormat.ml:1503:21>>*/ }
    function make_printf$0(counter, k, acc, fmt){
-     /*<<camlinternalFormat.ml:1518:17>>*/ var
-     k$0 = k,
-     acc$0 = acc,
-     fmt$0 = fmt;
+    var k$0 = k, acc$0 = acc, fmt$0 = fmt;
      /*<<camlinternalFormat.ml:1518:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1605:4>>*/ return  /*<<camlinternalFormat.ml:1605:4>>*/ caml_call1
@@ -17187,14 +16984,13 @@
        case 0:
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
-          /*<<camlinternalFormat.ml:1521:6>>*/  /*<<camlinternalFormat.ml:1521:20>>*/ var
-          new_acc = [5, acc$0, c];
+          /*<<camlinternalFormat.ml:1521:20>>*/ var new_acc = [5, acc$0, c];
           /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
                  (k$0, new_acc, rest); /*<<camlinternalFormat.ml:1522:32>>*/ };
        case 1:
         var rest$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1524:4>>*/ return function(c){
-          /*<<camlinternalFormat.ml:1525:6>>*/ var
+         var
            /*<<camlinternalFormat.ml:1493:12>>*/ str =
              /*<<camlinternalFormat.ml:1493:12>>*/ caml_call1
              (Stdlib_Char[2], c),
@@ -17205,7 +17001,7 @@
              (Stdlib_Bytes[1], l + 2 | 0, 39);
           /*<<camlinternalFormat.ml:1496:2>>*/  /*<<camlinternalFormat.ml:1496:2>>*/ caml_blit_string
           (str, 0, res, 1, l);
-          /*<<camlinternalFormat.ml:1525:20>>*/  /*<<camlinternalFormat.ml:1525:20>>*/ var
+          /*<<camlinternalFormat.ml:1525:20>>*/ var
           new_acc =
             [4,
              acc$0,
@@ -17276,14 +17072,14 @@
           return prec$3
                   ? function
                    (p, x){
-                     /*<<camlinternalFormat.ml:1746:6>>*/  /*<<camlinternalFormat.ml:1746:16>>*/ var
+                     /*<<camlinternalFormat.ml:1746:16>>*/ var
                      str = convert_float(fconv, p, x);
                      /*<<camlinternalFormat.ml:1747:6>>*/ return make_printf
                             (k$0, [4, acc$0, str], rest$7);
                     /*<<camlinternalFormat.ml:1747:52>>*/ }
                   : function
                    (x){
-                     /*<<camlinternalFormat.ml:1738:6>>*/  /*<<camlinternalFormat.ml:1738:16>>*/ var
+                     /*<<camlinternalFormat.ml:1738:16>>*/ var
                      str =
                        convert_float(fconv, default_float_precision(fconv), x);
                      /*<<camlinternalFormat.ml:1739:6>>*/ return make_printf
@@ -17291,7 +17087,7 @@
                     /*<<camlinternalFormat.ml:1739:52>>*/ };
          var p = prec$3[1];
           /*<<camlinternalFormat.ml:1741:4>>*/ return function(x){
-           /*<<camlinternalFormat.ml:1742:6>>*/  /*<<camlinternalFormat.ml:1742:16>>*/ var
+           /*<<camlinternalFormat.ml:1742:16>>*/ var
            str = convert_float(fconv, p, x);
            /*<<camlinternalFormat.ml:1743:6>>*/ return make_printf
                   (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1743:52>>*/ };
@@ -17302,14 +17098,14 @@
           return prec$3
                   ? function
                    (p, x){
-                     /*<<camlinternalFormat.ml:1759:6>>*/  /*<<camlinternalFormat.ml:1759:16>>*/ var
+                     /*<<camlinternalFormat.ml:1759:16>>*/ var
                      str = fix_padding(padty, w, convert_float(fconv, p, x));
                      /*<<camlinternalFormat.ml:1760:6>>*/ return make_printf
                             (k$0, [4, acc$0, str], rest$7);
                     /*<<camlinternalFormat.ml:1760:52>>*/ }
                   : function
                    (x){
-                     /*<<camlinternalFormat.ml:1750:6>>*/ var
+                    var
                       /*<<camlinternalFormat.ml:1750:16>>*/ str =
                        convert_float(fconv, default_float_precision(fconv), x),
                       /*<<camlinternalFormat.ml:1751:17>>*/ str$0 =
@@ -17319,7 +17115,7 @@
                     /*<<camlinternalFormat.ml:1752:53>>*/ };
          var p$0 = prec$3[1];
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
-           /*<<camlinternalFormat.ml:1755:6>>*/  /*<<camlinternalFormat.ml:1755:16>>*/ var
+           /*<<camlinternalFormat.ml:1755:16>>*/ var
            str = fix_padding(padty, w, convert_float(fconv, p$0, x));
            /*<<camlinternalFormat.ml:1756:6>>*/ return make_printf
                   (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1756:52>>*/ };
@@ -17329,14 +17125,14 @@
          return prec$3
                  ? function
                   (w, p, x){
-                    /*<<camlinternalFormat.ml:1772:6>>*/  /*<<camlinternalFormat.ml:1772:16>>*/ var
+                    /*<<camlinternalFormat.ml:1772:16>>*/ var
                     str = fix_padding(padty$0, w, convert_float(fconv, p, x));
                     /*<<camlinternalFormat.ml:1773:6>>*/ return make_printf
                            (k$0, [4, acc$0, str], rest$7);
                    /*<<camlinternalFormat.ml:1773:52>>*/ }
                  : function
                   (w, x){
-                    /*<<camlinternalFormat.ml:1763:6>>*/ var
+                   var
                      /*<<camlinternalFormat.ml:1763:16>>*/ str =
                       convert_float(fconv, default_float_precision(fconv), x),
                      /*<<camlinternalFormat.ml:1764:17>>*/ str$0 =
@@ -17346,7 +17142,7 @@
                    /*<<camlinternalFormat.ml:1765:53>>*/ };
         var p$1 = prec$3[1];
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
-          /*<<camlinternalFormat.ml:1768:6>>*/  /*<<camlinternalFormat.ml:1768:16>>*/ var
+          /*<<camlinternalFormat.ml:1768:16>>*/ var
           str = fix_padding(padty$0, w, convert_float(fconv, p$1, x));
           /*<<camlinternalFormat.ml:1769:6>>*/ return make_printf
                  (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1769:52>>*/ };
@@ -17355,14 +17151,14 @@
          /*<<camlinternalFormat.ml:1542:4>>*/ return make_padding
                 (k$0, acc$0, rest$8, pad$6, Stdlib[30]);
        case 10:
-         /*<<camlinternalFormat.ml:1560:18>>*/ var
+        var
          rest$9 = fmt$0[1],
           /*<<camlinternalFormat.ml:1560:18>>*/ acc$1 = [7, acc$0];
         acc$0 = acc$1;
         fmt$0 = rest$9;
         break;
        case 11:
-         /*<<camlinternalFormat.ml:1563:18>>*/ var
+        var
          rest$10 = fmt$0[2],
          str = fmt$0[1],
           /*<<camlinternalFormat.ml:1563:18>>*/ acc$2 = [2, acc$0, str];
@@ -17370,7 +17166,7 @@
         fmt$0 = rest$10;
         break;
        case 12:
-         /*<<camlinternalFormat.ml:1565:18>>*/ var
+        var
          rest$11 = fmt$0[2],
          chr = fmt$0[1],
           /*<<camlinternalFormat.ml:1565:18>>*/ acc$3 = [3, acc$0, chr];
@@ -17378,7 +17174,7 @@
         fmt$0 = rest$11;
         break;
        case 13:
-         /*<<camlinternalFormat.ml:1568:13>>*/ var
+        var
          rest$12 = fmt$0[3],
          sub_fmtty = fmt$0[2],
           /*<<camlinternalFormat.ml:1568:13>>*/ ty =
@@ -17389,7 +17185,7 @@
        case 14:
         var rest$13 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1573:4>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1573:4>>*/ var
+         var
           fmt = param[1],
            /*<<camlinternalFormat.ml:1574:18>>*/ _cf_ = recast(fmt, fmtty);
           /*<<camlinternalFormat.ml:1574:6>>*/ return make_printf
@@ -17415,7 +17211,7 @@
           /*<<camlinternalFormat.ml:1546:13>>*/ return make_printf
                  (k$0, [6, acc$0, f], rest$15); /*<<camlinternalFormat.ml:1546:52>>*/ };
        case 17:
-         /*<<camlinternalFormat.ml:1594:18>>*/ var
+        var
          rest$16 = fmt$0[2],
          fmting_lit = fmt$0[1],
           /*<<camlinternalFormat.ml:1594:18>>*/ acc$4 = [0, acc$0, fmting_lit];
@@ -17455,7 +17251,7 @@
          /*<<camlinternalFormat.ml:1558:4>>*/ throw  /*<<camlinternalFormat.ml:1558:4>>*/ caml_maybe_attach_backtrace
                ([0, Assert_failure, _s_], 1);
        case 20:
-         /*<<camlinternalFormat.ml:1577:18>>*/ var
+        var
          rest$19 = fmt$0[3],
           /*<<camlinternalFormat.ml:1577:18>>*/ new_acc =
            [8, acc$0, cst_Printf_bad_conversion];
@@ -17465,7 +17261,7 @@
        case 21:
         var rest$20 = fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
-          /*<<camlinternalFormat.ml:1584:6>>*/  /*<<camlinternalFormat.ml:1584:20>>*/ var
+          /*<<camlinternalFormat.ml:1584:20>>*/ var
           new_acc =
             [4,
              acc$0,
@@ -17476,8 +17272,7 @@
        case 22:
         var rest$21 = fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
-          /*<<camlinternalFormat.ml:1588:6>>*/  /*<<camlinternalFormat.ml:1588:20>>*/ var
-          new_acc = [5, acc$0, c];
+          /*<<camlinternalFormat.ml:1588:20>>*/ var new_acc = [5, acc$0, c];
           /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
                  (k$0, new_acc, rest$21); /*<<camlinternalFormat.ml:1589:32>>*/ };
        case 23:
@@ -17489,7 +17284,7 @@
          /*<<camlinternalFormat.ml:1591:4>>*/ return make_ignored_param$0
                 (counter$1, k$0, acc$0, ign, rest$22);
        default:
-         /*<<camlinternalFormat.ml:1548:33>>*/ var
+        var
          rest$23 = fmt$0[3],
          f = fmt$0[2],
          arity = fmt$0[1],
@@ -17676,7 +17471,7 @@
           /*<<camlinternalFormat.ml:1651:40>>*/ return make_from_fmtty
                  (k, acc, rest$7, fmt); /*<<camlinternalFormat.ml:1651:70>>*/ };
        case 9:
-         /*<<camlinternalFormat.ml:1654:13>>*/ var
+        var
          rest$8 = fmtty[3],
          ty2 = fmtty[2],
          ty1 = fmtty[1],
@@ -17722,7 +17517,7 @@
             (make_from_fmtty$0(0, k, acc, fmtty, fmt));
    }
    function make_invalid_arg(counter, k, acc, fmt){
-     /*<<camlinternalFormat.ml:1663:2>>*/  /*<<camlinternalFormat.ml:1663:16>>*/ var
+     /*<<camlinternalFormat.ml:1663:16>>*/ var
      _cb_ = [8, acc, cst_Printf_bad_conversion$0];
      /*<<camlinternalFormat.ml:1663:2>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ caml_trampoline_return
@@ -17734,7 +17529,7 @@
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:1672:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1673:6>>*/  /*<<camlinternalFormat.ml:1673:20>>*/ var
+       /*<<camlinternalFormat.ml:1673:20>>*/ var
        new_acc =
          [4, acc,  /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
@@ -17742,7 +17537,7 @@
     if(0 === pad[0]){
      var width = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1677:6>>*/  /*<<camlinternalFormat.ml:1677:20>>*/ var
+       /*<<camlinternalFormat.ml:1677:20>>*/ var
        new_acc =
          [4,
           acc,
@@ -17755,7 +17550,7 @@
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
-      /*<<camlinternalFormat.ml:1681:6>>*/  /*<<camlinternalFormat.ml:1681:20>>*/ var
+      /*<<camlinternalFormat.ml:1681:20>>*/ var
       new_acc =
         [4,
          acc,
@@ -17771,7 +17566,7 @@
       return prec
               ? function
                (p, x){
-                 /*<<camlinternalFormat.ml:1702:6>>*/  /*<<camlinternalFormat.ml:1702:16>>*/ var
+                 /*<<camlinternalFormat.ml:1702:16>>*/ var
                  str =
                    fix_int_precision
                     (p,
@@ -17782,7 +17577,7 @@
                 /*<<camlinternalFormat.ml:1703:52>>*/ }
               : function
                (x){
-                 /*<<camlinternalFormat.ml:1694:6>>*/  /*<<camlinternalFormat.ml:1694:16>>*/ var
+                 /*<<camlinternalFormat.ml:1694:16>>*/ var
                  str =
                     /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
                     (trans, iconv, x);
@@ -17791,7 +17586,7 @@
                 /*<<camlinternalFormat.ml:1695:52>>*/ };
      var p = prec[1];
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1698:6>>*/  /*<<camlinternalFormat.ml:1698:16>>*/ var
+       /*<<camlinternalFormat.ml:1698:16>>*/ var
        str =
          fix_int_precision
           (p,
@@ -17805,7 +17600,7 @@
       return prec
               ? function
                (p, x){
-                 /*<<camlinternalFormat.ml:1714:6>>*/  /*<<camlinternalFormat.ml:1714:16>>*/ var
+                 /*<<camlinternalFormat.ml:1714:16>>*/ var
                  str =
                    fix_padding
                     (padty,
@@ -17819,7 +17614,7 @@
                 /*<<camlinternalFormat.ml:1715:52>>*/ }
               : function
                (x){
-                 /*<<camlinternalFormat.ml:1706:6>>*/  /*<<camlinternalFormat.ml:1706:16>>*/ var
+                 /*<<camlinternalFormat.ml:1706:16>>*/ var
                  str =
                    fix_padding
                     (padty,
@@ -17831,7 +17626,7 @@
                 /*<<camlinternalFormat.ml:1707:52>>*/ };
      var p$0 = prec[1];
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1710:6>>*/  /*<<camlinternalFormat.ml:1710:16>>*/ var
+       /*<<camlinternalFormat.ml:1710:16>>*/ var
        str =
          fix_padding
           (padty,
@@ -17848,7 +17643,7 @@
      return prec
              ? function
               (w, p, x){
-                /*<<camlinternalFormat.ml:1726:6>>*/  /*<<camlinternalFormat.ml:1726:16>>*/ var
+                /*<<camlinternalFormat.ml:1726:16>>*/ var
                 str =
                   fix_padding
                    (padty$0,
@@ -17862,7 +17657,7 @@
                /*<<camlinternalFormat.ml:1727:52>>*/ }
              : function
               (w, x){
-                /*<<camlinternalFormat.ml:1718:6>>*/  /*<<camlinternalFormat.ml:1718:16>>*/ var
+                /*<<camlinternalFormat.ml:1718:16>>*/ var
                 str =
                   fix_padding
                    (padty$0,
@@ -17874,7 +17669,7 @@
                /*<<camlinternalFormat.ml:1719:52>>*/ };
     var p$1 = prec[1];
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
-      /*<<camlinternalFormat.ml:1722:6>>*/  /*<<camlinternalFormat.ml:1722:16>>*/ var
+      /*<<camlinternalFormat.ml:1722:16>>*/ var
       str =
         fix_padding
          (padty$0,
@@ -17896,8 +17691,7 @@
                arity$0,
                 /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1(f, x)); /*<<camlinternalFormat.ml:1782:40>>*/ };
     }
-     /*<<camlinternalFormat.ml:1779:33>>*/  /*<<camlinternalFormat.ml:1779:33>>*/ var
-     _ca_ = [4, acc, f];
+     /*<<camlinternalFormat.ml:1779:33>>*/ var _ca_ = [4, acc, f];
      /*<<camlinternalFormat.ml:1779:19>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ caml_trampoline_return
              (make_printf$0, [0, k, _ca_, rest]);
@@ -17910,20 +17704,20 @@
             (make_custom$0(0, k, acc, rest, arity, f));
    }
    function make_iprintf$0(counter, k, o, fmt){
-     /*<<camlinternalFormat.ml:1788:17>>*/ var k$0 = k, fmt$0 = fmt;
+    var k$0 = k, fmt$0 = fmt;
      /*<<camlinternalFormat.ml:1788:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1858:8>>*/ return  /*<<camlinternalFormat.ml:1858:8>>*/ caml_call1
               (k$0, o);
      switch(fmt$0[0]){
        case 0:
-         /*<<camlinternalFormat.ml:1790:14>>*/ var
+        var
          rest = fmt$0[1],
           /*<<camlinternalFormat.ml:1790:14>>*/ x = make_iprintf(k$0, o, rest);
          /*<<camlinternalFormat.ml:1790:14>>*/ return function(_b$_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
        case 1:
-         /*<<camlinternalFormat.ml:1792:14>>*/ var
+        var
          rest$0 = fmt$0[1],
           /*<<camlinternalFormat.ml:1792:14>>*/ x$0 =
            make_iprintf(k$0, o, rest$0);
@@ -17932,7 +17726,7 @@
        case 2:
         var _bM_ = fmt$0[1];
         if(typeof _bM_ === "number"){
-          /*<<camlinternalFormat.ml:1794:14>>*/ var
+         var
           rest$1 = fmt$0[2],
            /*<<camlinternalFormat.ml:1794:14>>*/ x$1 =
             make_iprintf(k$0, o, rest$1);
@@ -17940,14 +17734,14 @@
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;};
         }
         if(0 === _bM_[0]){
-          /*<<camlinternalFormat.ml:1796:14>>*/ var
+         var
           rest$2 = fmt$0[2],
            /*<<camlinternalFormat.ml:1796:14>>*/ x$2 =
             make_iprintf(k$0, o, rest$2);
           /*<<camlinternalFormat.ml:1796:14>>*/ return function(_b8_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;};
         }
-         /*<<camlinternalFormat.ml:1798:21>>*/ var
+        var
          rest$3 = fmt$0[2],
           /*<<camlinternalFormat.ml:1798:21>>*/ x$3 =
            make_iprintf(k$0, o, rest$3),
@@ -17958,7 +17752,7 @@
        case 3:
         var _bN_ = fmt$0[1];
         if(typeof _bN_ === "number"){
-          /*<<camlinternalFormat.ml:1800:14>>*/ var
+         var
           rest$4 = fmt$0[2],
            /*<<camlinternalFormat.ml:1800:14>>*/ x$5 =
             make_iprintf(k$0, o, rest$4);
@@ -17966,14 +17760,14 @@
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;};
         }
         if(0 === _bN_[0]){
-          /*<<camlinternalFormat.ml:1802:14>>*/ var
+         var
           rest$5 = fmt$0[2],
            /*<<camlinternalFormat.ml:1802:14>>*/ x$6 =
             make_iprintf(k$0, o, rest$5);
           /*<<camlinternalFormat.ml:1802:14>>*/ return function(_b4_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;};
         }
-         /*<<camlinternalFormat.ml:1804:21>>*/ var
+        var
          rest$6 = fmt$0[2],
           /*<<camlinternalFormat.ml:1804:21>>*/ x$7 =
            make_iprintf(k$0, o, rest$6),
@@ -18004,7 +17798,7 @@
        case 9:
         var _bO_ = fmt$0[1];
         if(typeof _bO_ === "number"){
-          /*<<camlinternalFormat.ml:1816:14>>*/ var
+         var
           rest$12 = fmt$0[2],
            /*<<camlinternalFormat.ml:1816:14>>*/ x$9 =
             make_iprintf(k$0, o, rest$12);
@@ -18012,14 +17806,14 @@
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;};
         }
         if(0 === _bO_[0]){
-          /*<<camlinternalFormat.ml:1818:14>>*/ var
+         var
           rest$13 = fmt$0[2],
            /*<<camlinternalFormat.ml:1818:14>>*/ x$10 =
             make_iprintf(k$0, o, rest$13);
           /*<<camlinternalFormat.ml:1818:14>>*/ return function(_b0_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;};
         }
-         /*<<camlinternalFormat.ml:1820:21>>*/ var
+        var
          rest$14 = fmt$0[2],
           /*<<camlinternalFormat.ml:1820:21>>*/ x$11 =
            make_iprintf(k$0, o, rest$14),
@@ -18034,7 +17828,7 @@
        case 12:
         var rest$17 = fmt$0[2]; fmt$0 = rest$17; break;
        case 13:
-         /*<<camlinternalFormat.ml:1838:14>>*/ var
+        var
          rest$18 = fmt$0[3],
           /*<<camlinternalFormat.ml:1838:14>>*/ x$13 =
            make_iprintf(k$0, o, rest$18);
@@ -18043,7 +17837,7 @@
        case 14:
         var rest$19 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1840:8>>*/ var
+         var
           fmt = param[1],
            /*<<camlinternalFormat.ml:1842:24>>*/ _bW_ = recast(fmt, fmtty);
           /*<<camlinternalFormat.ml:1842:12>>*/ return make_iprintf
@@ -18052,7 +17846,7 @@
                    /*<<camlinternalFormat.ml:1842:12>>*/ caml_call2
                    (CamlinternalFormatBasics[3], _bW_, rest$19)); /*<<camlinternalFormat.ml:1842:48>>*/ };
        case 15:
-         /*<<camlinternalFormat.ml:1822:21>>*/ var
+        var
          rest$20 = fmt$0[1],
           /*<<camlinternalFormat.ml:1822:21>>*/ x$14 =
            make_iprintf(k$0, o, rest$20),
@@ -18061,7 +17855,7 @@
          /*<<camlinternalFormat.ml:1822:14>>*/ return function(_bU_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;};
        case 16:
-         /*<<camlinternalFormat.ml:1824:14>>*/ var
+        var
          rest$21 = fmt$0[1],
           /*<<camlinternalFormat.ml:1824:14>>*/ x$16 =
            make_iprintf(k$0, o, rest$21);
@@ -18100,21 +17894,21 @@
          /*<<camlinternalFormat.ml:1830:8>>*/ throw  /*<<camlinternalFormat.ml:1830:8>>*/ caml_maybe_attach_backtrace
                ([0, Assert_failure, _w_], 1);
        case 20:
-         /*<<camlinternalFormat.ml:1844:14>>*/ var
+        var
          rest$25 = fmt$0[3],
           /*<<camlinternalFormat.ml:1844:14>>*/ x$17 =
            make_iprintf(k$0, o, rest$25);
          /*<<camlinternalFormat.ml:1844:14>>*/ return function(_bS_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;};
        case 21:
-         /*<<camlinternalFormat.ml:1846:14>>*/ var
+        var
          rest$26 = fmt$0[2],
           /*<<camlinternalFormat.ml:1846:14>>*/ x$18 =
            make_iprintf(k$0, o, rest$26);
          /*<<camlinternalFormat.ml:1846:14>>*/ return function(_bR_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;};
        case 22:
-         /*<<camlinternalFormat.ml:1848:14>>*/ var
+        var
          rest$27 = fmt$0[1],
           /*<<camlinternalFormat.ml:1848:14>>*/ x$19 =
            make_iprintf(k$0, o, rest$27);
@@ -18147,46 +17941,44 @@
    function fn_of_padding_precision(k, o, fmt, pad, prec){
      /*<<camlinternalFormat.ml:1863:26>>*/ if(typeof pad === "number"){
      if(typeof prec !== "number"){
-       /*<<camlinternalFormat.ml:1867:14>>*/  /*<<camlinternalFormat.ml:1867:14>>*/ var
+       /*<<camlinternalFormat.ml:1867:14>>*/ var
        x$2 = make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1867:14>>*/ return function(_bL_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;};
      }
      if(prec){
-       /*<<camlinternalFormat.ml:1869:21>>*/ var
+      var
         /*<<camlinternalFormat.ml:1869:21>>*/ x = make_iprintf(k, o, fmt),
         /*<<camlinternalFormat.ml:1869:14>>*/ x$0 =
          function(_bK_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
        /*<<camlinternalFormat.ml:1869:14>>*/ return function(_bJ_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;};
      }
-      /*<<camlinternalFormat.ml:1865:14>>*/  /*<<camlinternalFormat.ml:1865:14>>*/ var
-      x$1 = make_iprintf(k, o, fmt);
+      /*<<camlinternalFormat.ml:1865:14>>*/ var x$1 = make_iprintf(k, o, fmt);
       /*<<camlinternalFormat.ml:1865:14>>*/ return function(_bI_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;};
     }
     if(0 === pad[0]){
      if(typeof prec !== "number"){
-       /*<<camlinternalFormat.ml:1873:14>>*/  /*<<camlinternalFormat.ml:1873:14>>*/ var
+       /*<<camlinternalFormat.ml:1873:14>>*/ var
        x$6 = make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1873:14>>*/ return function(_bH_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;};
      }
      if(prec){
-       /*<<camlinternalFormat.ml:1875:21>>*/ var
+      var
         /*<<camlinternalFormat.ml:1875:21>>*/ x$3 = make_iprintf(k, o, fmt),
         /*<<camlinternalFormat.ml:1875:14>>*/ x$4 =
          function(_bG_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;};
        /*<<camlinternalFormat.ml:1875:14>>*/ return function(_bF_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;};
      }
-      /*<<camlinternalFormat.ml:1871:14>>*/  /*<<camlinternalFormat.ml:1871:14>>*/ var
-      x$5 = make_iprintf(k, o, fmt);
+      /*<<camlinternalFormat.ml:1871:14>>*/ var x$5 = make_iprintf(k, o, fmt);
       /*<<camlinternalFormat.ml:1871:14>>*/ return function(_bE_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;};
     }
     if(typeof prec !== "number"){
-      /*<<camlinternalFormat.ml:1879:21>>*/ var
+     var
        /*<<camlinternalFormat.ml:1879:21>>*/ x$12 = make_iprintf(k, o, fmt),
        /*<<camlinternalFormat.ml:1879:14>>*/ x$13 =
         function(_bD_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;};
@@ -18194,7 +17986,7 @@
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;};
     }
     if(prec){
-      /*<<camlinternalFormat.ml:1881:28>>*/ var
+     var
        /*<<camlinternalFormat.ml:1881:28>>*/ x$7 = make_iprintf(k, o, fmt),
        /*<<camlinternalFormat.ml:1881:21>>*/ x$8 =
         function(_bB_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;},
@@ -18203,17 +17995,14 @@
       /*<<camlinternalFormat.ml:1881:14>>*/ return function(_bz_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;};
     }
-     /*<<camlinternalFormat.ml:1877:21>>*/  /*<<camlinternalFormat.ml:1877:21>>*/ var
-     x$10 = make_iprintf(k, o, fmt);
-     /*<<camlinternalFormat.ml:1877:14>>*/ function x$11(_by_){
-      /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;
-    }
+     /*<<camlinternalFormat.ml:1877:21>>*/ var x$10 = make_iprintf(k, o, fmt);
+    function x$11(_by_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;}
      /*<<camlinternalFormat.ml:1877:14>>*/ return function(_bx_){
       /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;};
     /*<<camlinternalFormat.ml:1881:52>>*/ }
    function fn_of_custom_arity$0(counter, k, o, fmt, param){
      /*<<?>>*/ if(param){
-      /*<<camlinternalFormat.ml:1889:14>>*/ var
+     var
       arity = param[1],
        /*<<camlinternalFormat.ml:1889:14>>*/ x =
         fn_of_custom_arity(k, o, fmt, arity);
@@ -18232,13 +18021,13 @@
             (fn_of_custom_arity$0(0, k, o, fmt, param));
    }
    function output_acc(o, acc){
-     /*<<camlinternalFormat.ml:1897:27>>*/ var acc$0 = acc;
+    var acc$0 = acc;
      /*<<camlinternalFormat.ml:1897:27>>*/ for(;;){
      if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1912:32>>*/ return 0;
      switch(acc$0[0]){
        case 0:
-         /*<<camlinternalFormat.ml:1899:12>>*/ var
+        var
          fmting_lit = acc$0[2],
          p = acc$0[1],
           /*<<camlinternalFormat.ml:1899:12>>*/ s =
@@ -18293,13 +18082,13 @@
     }
     /*<<camlinternalFormat.ml:1912:34>>*/ }
    function bufput_acc(b, acc){
-     /*<<camlinternalFormat.ml:1917:27>>*/ var acc$0 = acc;
+    var acc$0 = acc;
      /*<<camlinternalFormat.ml:1917:27>>*/ for(;;){
      if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1932:32>>*/ return 0;
      switch(acc$0[0]){
        case 0:
-         /*<<camlinternalFormat.ml:1919:12>>*/ var
+        var
          fmting_lit = acc$0[2],
          p = acc$0[1],
           /*<<camlinternalFormat.ml:1919:12>>*/ s =
@@ -18351,13 +18140,13 @@
     }
     /*<<camlinternalFormat.ml:1932:34>>*/ }
    function strput_acc(b, acc){
-     /*<<camlinternalFormat.ml:1938:27>>*/ var acc$0 = acc;
+    var acc$0 = acc;
      /*<<camlinternalFormat.ml:1938:27>>*/ for(;;){
      if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1953:32>>*/ return 0;
      switch(acc$0[0]){
        case 0:
-         /*<<camlinternalFormat.ml:1940:12>>*/ var
+        var
          fmting_lit = acc$0[2],
          p = acc$0[1],
           /*<<camlinternalFormat.ml:1940:12>>*/ s =
@@ -18385,7 +18174,7 @@
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc(b, p$3);
-         /*<<camlinternalFormat.ml:1950:68>>*/  /*<<camlinternalFormat.ml:1950:68>>*/ var
+         /*<<camlinternalFormat.ml:1950:68>>*/ var
          _bv_ =  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1(f, 0);
          /*<<camlinternalFormat.ml:1950:68>>*/ return  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call2
                 (Stdlib_Buffer[16], b, _bv_);
@@ -18411,14 +18200,14 @@
     }
     /*<<camlinternalFormat.ml:1953:34>>*/ }
    function failwith_message(param){
-     /*<<camlinternalFormat.ml:1960:12>>*/ var
+    var
      fmt = param[1],
       /*<<camlinternalFormat.ml:1960:12>>*/ buf =
         /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
         (Stdlib_Buffer[1], 256);
     function k(acc){
       /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc(buf, acc);
-      /*<<camlinternalFormat.ml:1961:43>>*/  /*<<camlinternalFormat.ml:1961:43>>*/ var
+      /*<<camlinternalFormat.ml:1961:43>>*/ var
       _bu_ =
          /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
          (Stdlib_Buffer[2], buf);
@@ -18436,21 +18225,19 @@
              (failwith_message(_y_), str);
      /*<<camlinternalFormat.ml:1971:74>>*/ }
     function parse_spaces(i){
-      /*<<camlinternalFormat.ml:1973:6>>*/ var i$0 = i;
+     var i$0 = i;
       /*<<camlinternalFormat.ml:1973:6>>*/ for(;;){
       if(i$0 === len)  /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
-       /*<<camlinternalFormat.ml:1974:14>>*/  /*<<camlinternalFormat.ml:1974:14>>*/ var
+       /*<<camlinternalFormat.ml:1974:14>>*/ var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
       if(9 !== match && 32 !== match)
         /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
-       /*<<camlinternalFormat.ml:1975:24>>*/  /*<<camlinternalFormat.ml:1975:24>>*/ var
-       i$1 = i$0 + 1 | 0;
+       /*<<camlinternalFormat.ml:1975:24>>*/ var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<camlinternalFormat.ml:1976:16>>*/ }
-     /*<<camlinternalFormat.ml:1987:17>>*/  /*<<camlinternalFormat.ml:1987:17>>*/ var
-     wstart = parse_spaces(0);
+     /*<<camlinternalFormat.ml:1987:17>>*/ var wstart = parse_spaces(0);
     a:
     b:
     {
@@ -18464,13 +18251,12 @@
          - 97
          >>> 0)
        break;
-       /*<<camlinternalFormat.ml:1980:24>>*/  /*<<camlinternalFormat.ml:1980:24>>*/ var
-       j = wend + 1 | 0;
+       /*<<camlinternalFormat.ml:1980:24>>*/ var j = wend + 1 | 0;
       wend = j;
      }
      break a;
     }
-     /*<<camlinternalFormat.ml:1989:19>>*/ var
+    var
       /*<<camlinternalFormat.ml:1989:19>>*/ box_name =
         /*<<camlinternalFormat.ml:1989:19>>*/ caml_call3
         (Stdlib_String[16], str, wstart, wend - wstart | 0),
@@ -18481,12 +18267,11 @@
      var nend = nstart;
       /*<<camlinternalFormat.ml:1983:6>>*/ for(;;){
       if(nend === len) break b;
-       /*<<camlinternalFormat.ml:1984:14>>*/  /*<<camlinternalFormat.ml:1984:14>>*/ var
+       /*<<camlinternalFormat.ml:1984:14>>*/ var
        match =
           /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get(str, nend);
       if(48 <= match){if(58 <= match) break;} else if(45 !== match) break;
-       /*<<camlinternalFormat.ml:1985:30>>*/  /*<<camlinternalFormat.ml:1985:30>>*/ var
-       j$0 = nend + 1 | 0;
+       /*<<camlinternalFormat.ml:1985:30>>*/ var j$0 = nend + 1 | 0;
       nend = j$0;
      }
      break a;
@@ -18495,7 +18280,7 @@
      var indent = 0;
     else
       /*<<camlinternalFormat.ml:1994:8>>*/ try{
-       /*<<camlinternalFormat.ml:1994:12>>*/ var
+      var
         /*<<camlinternalFormat.ml:1994:12>>*/ _bs_ =
           /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
           ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
@@ -18507,8 +18292,7 @@
       if(_br_[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(_br_, 0);
       var indent = invalid_box(0);
      }
-     /*<<camlinternalFormat.ml:1996:18>>*/  /*<<camlinternalFormat.ml:1996:18>>*/ var
-     exp_end = parse_spaces(nend);
+     /*<<camlinternalFormat.ml:1996:18>>*/ var exp_end = parse_spaces(nend);
     if(exp_end !== len)  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
     a:
     {
@@ -18567,14 +18351,14 @@
              (failwith_message(_B_), str, str_ind, expected, read);
      /*<<camlinternalFormat.ml:2114:31>>*/ }
     function parse(lit_start, end_ind){
-      /*<<camlinternalFormat.ml:2119:25>>*/ a:
+     a:
      {
       var str_ind = lit_start;
        /*<<camlinternalFormat.ml:2124:4>>*/ for(;;){
        if(str_ind === end_ind)
          /*<<camlinternalFormat.ml:2124:30>>*/ return add_literal
                 (lit_start, str_ind, 0);
-        /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ var
+        /*<<camlinternalFormat.ml:2125:12>>*/ var
         match =
            /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get(str, str_ind);
        if(37 === match) break;
@@ -18603,14 +18387,13 @@
      if(str_ind$0 === end_ind)
       var match$0 = _N_;
      else{
-       /*<<camlinternalFormat.ml:2593:12>>*/  /*<<camlinternalFormat.ml:2593:12>>*/ var
+       /*<<camlinternalFormat.ml:2593:12>>*/ var
        c =
           /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
           (str, str_ind$0);
       if(65 <= c){
        if(94 <= c){
-         /*<<camlinternalFormat.ml:2593:12>>*/  /*<<camlinternalFormat.ml:2593:12>>*/ var
-         switcher = c - 123 | 0;
+         /*<<camlinternalFormat.ml:2593:12>>*/ var switcher = c - 123 | 0;
         if(2 >= switcher >>> 0)
          switch(switcher){
            case 0:
@@ -18694,7 +18477,7 @@
             if(_bh_)
               /*<<camlinternalFormat.ml:2666:58>>*/ throw  /*<<camlinternalFormat.ml:2666:58>>*/ caml_maybe_attach_backtrace
                     (Stdlib[8], 1);
-             /*<<camlinternalFormat.ml:2667:24>>*/ var
+            var
               /*<<camlinternalFormat.ml:2667:24>>*/ str_ind_1 =
                parse_spaces(str_ind$3 + 1 | 0, end_ind),
               /*<<camlinternalFormat.ml:2668:14>>*/ match$2 =
@@ -18709,7 +18492,7 @@
               /*<<camlinternalFormat.ml:2684:15>>*/ throw  /*<<camlinternalFormat.ml:2684:15>>*/ caml_maybe_attach_backtrace
                     (Stdlib[8], 1);
             }
-             /*<<camlinternalFormat.ml:2670:33>>*/ var
+            var
               /*<<camlinternalFormat.ml:2670:33>>*/ match$3 =
                parse_integer(str_ind_1, end_ind),
              width = match$3[2],
@@ -18723,7 +18506,7 @@
                | 0;
             if(12 < switcher$0 >>> 0){
              if(17 === switcher$0){
-               /*<<camlinternalFormat.ml:2674:24>>*/ var
+              var
                 /*<<camlinternalFormat.ml:2674:24>>*/ s =
                   /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
                   (Stdlib_String[16],
@@ -18738,7 +18521,7 @@
              }
             }
             else if(1 < switcher$0 - 1 >>> 0){
-              /*<<camlinternalFormat.ml:2677:40>>*/ var
+             var
                /*<<camlinternalFormat.ml:2677:40>>*/ match$4 =
                 parse_integer(str_ind_3, end_ind),
               offset = match$4[2],
@@ -18752,7 +18535,7 @@
                  (str, str_ind_5))
                /*<<camlinternalFormat.ml:2679:47>>*/ throw  /*<<camlinternalFormat.ml:2679:47>>*/ caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
-              /*<<camlinternalFormat.ml:2680:24>>*/ var
+             var
                /*<<camlinternalFormat.ml:2680:24>>*/ s$0 =
                  /*<<camlinternalFormat.ml:2680:24>>*/ caml_call3
                  (Stdlib_String[16],
@@ -18782,7 +18565,7 @@
           case 28:
            var str_ind$4 = str_ind$0 + 1 | 0;
             /*<<camlinternalFormat.ml:2694:4>>*/ try{
-             /*<<camlinternalFormat.ml:2696:24>>*/ var
+            var
               /*<<camlinternalFormat.ml:2696:24>>*/ str_ind_1$0 =
                parse_spaces(str_ind$4, end_ind),
               /*<<camlinternalFormat.ml:2697:14>>*/ match$6 =
@@ -18799,7 +18582,7 @@
               var _bo_ = 0;
               break b;
              }
-              /*<<camlinternalFormat.ml:2699:32>>*/ var
+             var
                /*<<camlinternalFormat.ml:2699:32>>*/ match$7 =
                 parse_integer(str_ind_1$0, end_ind),
               size = match$7[2],
@@ -18813,7 +18596,7 @@
                  (str, str_ind_3$0))
                /*<<camlinternalFormat.ml:2701:41>>*/ throw  /*<<camlinternalFormat.ml:2701:41>>*/ caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
-              /*<<camlinternalFormat.ml:2702:18>>*/ var
+             var
                /*<<camlinternalFormat.ml:2702:18>>*/ s$1 =
                  /*<<camlinternalFormat.ml:2702:18>>*/ caml_call3
                  (Stdlib_String[16],
@@ -18864,18 +18647,16 @@
              (lit_start, str_ind, fmt_rest$0);
      /*<<camlinternalFormat.ml:2119:62>>*/ }
     function parse_flags(pct_ind, str_ind, end_ind, ign){
-      /*<<camlinternalFormat.ml:2149:4>>*/ var
+     var
        /*<<camlinternalFormat.ml:2149:15>>*/ zero = [0, 0],
        /*<<camlinternalFormat.ml:2149:37>>*/ minus = [0, 0],
        /*<<camlinternalFormat.ml:2150:15>>*/ plus = [0, 0],
        /*<<camlinternalFormat.ml:2150:37>>*/ space = [0, 0],
        /*<<camlinternalFormat.ml:2151:15>>*/ hash = [0, 0];
      function set_flag(str_ind, flag){
-       /*<<camlinternalFormat.ml:2154:6>>*/ var
-       _bb_ = flag[1],
-       _bc_ = _bb_ ? 1 - legacy_behavior$0 : _bb_;
+      var _bb_ = flag[1], _bc_ = _bb_ ? 1 - legacy_behavior$0 : _bb_;
       if(_bc_){
-        /*<<camlinternalFormat.ml:2157:22>>*/  /*<<camlinternalFormat.ml:2157:22>>*/ var
+        /*<<camlinternalFormat.ml:2157:22>>*/ var
         _bd_ =
            /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get(str, str_ind);
         /*<<camlinternalFormat.ml:2155:8>>*/  /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
@@ -18892,7 +18673,7 @@
        if(str_ind$0 === end_ind)
          /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
          (end_ind, cst_unexpected_end_of_format);
-        /*<<camlinternalFormat.ml:2162:18>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ var
+        /*<<camlinternalFormat.ml:2162:18>>*/ var
         switcher =
            /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
            (str, str_ind$0)
@@ -18902,31 +18683,31 @@
        switch(switcher){
          case 0:
            /*<<camlinternalFormat.ml:2167:15>>*/ set_flag(str_ind$0, space);
-           /*<<camlinternalFormat.ml:2167:15>>*/  /*<<camlinternalFormat.ml:2167:15>>*/ var
+           /*<<camlinternalFormat.ml:2167:15>>*/ var
            str_ind$1 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$1;
           break;
          case 3:
            /*<<camlinternalFormat.ml:2166:15>>*/ set_flag(str_ind$0, hash);
-           /*<<camlinternalFormat.ml:2166:15>>*/  /*<<camlinternalFormat.ml:2166:15>>*/ var
+           /*<<camlinternalFormat.ml:2166:15>>*/ var
            str_ind$2 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$2;
           break;
          case 11:
            /*<<camlinternalFormat.ml:2165:15>>*/ set_flag(str_ind$0, plus);
-           /*<<camlinternalFormat.ml:2165:15>>*/  /*<<camlinternalFormat.ml:2165:15>>*/ var
+           /*<<camlinternalFormat.ml:2165:15>>*/ var
            str_ind$3 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$3;
           break;
          case 13:
            /*<<camlinternalFormat.ml:2164:15>>*/ set_flag(str_ind$0, minus);
-           /*<<camlinternalFormat.ml:2164:15>>*/  /*<<camlinternalFormat.ml:2164:15>>*/ var
+           /*<<camlinternalFormat.ml:2164:15>>*/ var
            str_ind$4 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$4;
           break;
          case 16:
            /*<<camlinternalFormat.ml:2163:15>>*/ set_flag(str_ind$0, zero);
-           /*<<camlinternalFormat.ml:2163:15>>*/  /*<<camlinternalFormat.ml:2163:15>>*/ var
+           /*<<camlinternalFormat.ml:2163:15>>*/ var
            str_ind$5 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$5;
           break;
@@ -18944,7 +18725,7 @@
      if(str_ind$0 === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
-      /*<<camlinternalFormat.ml:2188:10>>*/ var
+     var
       padty =
         zero$0
          ? minus$0
@@ -18957,7 +18738,7 @@
          /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get(str, str_ind$0);
      if(48 <= match){
       if(58 > match){
-        /*<<camlinternalFormat.ml:2190:27>>*/ var
+       var
          /*<<camlinternalFormat.ml:2190:27>>*/ match$0 =
           parse_positive(str_ind$0, end_ind, 0),
         width = match$0[2],
@@ -19029,7 +18810,7 @@
       /*<<camlinternalFormat.ml:2219:4>>*/ if(str_ind === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
-      /*<<camlinternalFormat.ml:2220:10>>*/  /*<<camlinternalFormat.ml:2220:10>>*/ var
+      /*<<camlinternalFormat.ml:2220:10>>*/ var
       symb =
          /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get(str, str_ind);
      if(46 !== symb)
@@ -19050,7 +18831,7 @@
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
      function parse_literal(minus, str_ind){
-       /*<<camlinternalFormat.ml:2235:6>>*/ var
+      var
         /*<<camlinternalFormat.ml:2235:26>>*/ match =
          parse_positive(str_ind, end_ind, 0),
        prec = match[2],
@@ -19067,7 +18848,7 @@
                pad,
                [0, prec]);
       /*<<camlinternalFormat.ml:2237:32>>*/ }
-      /*<<camlinternalFormat.ml:2238:10>>*/  /*<<camlinternalFormat.ml:2238:10>>*/ var
+      /*<<camlinternalFormat.ml:2238:10>>*/ var
       symb$0 =
          /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get(str, str_ind$0);
      if(48 <= symb$0){
@@ -19092,7 +18873,7 @@
         case 1:
         case 3:
          if(legacy_behavior$0){
-           /*<<camlinternalFormat.ml:2249:6>>*/ var
+          var
             /*<<camlinternalFormat.ml:2249:6>>*/ _ba_ = str_ind$0 + 1 | 0,
            minus$0 = minus || (45 === symb$0 ? 1 : 0);
            /*<<camlinternalFormat.ml:2249:6>>*/ return parse_literal
@@ -19161,7 +18942,7 @@
      prec,
      padprec,
      symb){
-      /*<<camlinternalFormat.ml:2295:21>>*/ var
+     var
        /*<<camlinternalFormat.ml:2295:21>>*/ plus_used = [0, 0],
        /*<<camlinternalFormat.ml:2295:47>>*/ hash_used = [0, 0],
        /*<<camlinternalFormat.ml:2296:21>>*/ space_used = [0, 0],
@@ -19197,7 +18978,7 @@
       return padprec;
       /*<<camlinternalFormat.ml:2306:52>>*/ }
      function get_int_pad(param){
-       /*<<camlinternalFormat.ml:2320:7>>*/ var
+      var
         /*<<camlinternalFormat.ml:2320:13>>*/ pad = get_pad(0),
         /*<<camlinternalFormat.ml:2320:25>>*/ match = get_prec(0);
       if(typeof match === "number" && ! match)
@@ -19270,7 +19051,7 @@
            fmt_result = [0, [10, fmt_rest$5]];
           break a;
          case 40:
-           /*<<camlinternalFormat.ml:2531:20>>*/ var
+          var
             /*<<camlinternalFormat.ml:2531:20>>*/ sub_end =
              search_subformat_end(str_ind, end_ind, 41),
            fmt_rest$7 = parse(sub_end + 2 | 0, end_ind)[1],
@@ -19278,7 +19059,7 @@
             /*<<camlinternalFormat.ml:2534:22>>*/ sub_fmtty =
              fmtty_of_fmt(sub_fmt);
            /*<<camlinternalFormat.ml:2535:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2536:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2536:22>>*/ ignored$2 =
               [9, get_pad_opt(95), sub_fmtty],
             _aJ_ = [0, [23, ignored$2, fmt_rest$7]];
@@ -19289,7 +19070,7 @@
          case 44:
           var fmt_result = parse(str_ind, end_ind); break a;
          case 67:
-           /*<<camlinternalFormat.ml:2397:9>>*/ var
+          var
            fmt_rest$10 = parse(str_ind, end_ind)[1],
             /*<<camlinternalFormat.ml:2397:9>>*/ _aL_ =
              get_ign(0) ? [0, [23, 1, fmt_rest$10]] : [0, [1, fmt_rest$10]],
@@ -19298,7 +19079,7 @@
          case 78:
           var fmt_rest$14 = parse(str_ind, end_ind)[1], counter$0 = 2;
            /*<<camlinternalFormat.ml:2433:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2434:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2434:22>>*/ ignored$6 = [11, counter$0],
             _aR_ = [0, [23, ignored$6, fmt_rest$14]];
           else
@@ -19306,17 +19087,17 @@
           var fmt_result = _aR_;
           break a;
          case 83:
-           /*<<camlinternalFormat.ml:2410:16>>*/ var
+          var
             /*<<camlinternalFormat.ml:2410:16>>*/ pad$6 =
              check_no_0(symb, get_padprec(0)),
            fmt_rest$15 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2412:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2413:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2413:22>>*/ ignored$7 =
               [1, get_padprec_opt(95)],
             _aS_ = [0, [23, ignored$7, fmt_rest$15]];
           else
-            /*<<camlinternalFormat.ml:2417:10>>*/ var
+           var
              /*<<camlinternalFormat.ml:2417:10>>*/ match$5 =
               make_padding_fmt_ebb(pad$6, fmt_rest$15),
             fmt_rest$16 = match$5[2],
@@ -19328,7 +19109,7 @@
           if(str_ind === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
-           /*<<camlinternalFormat.ml:2719:19>>*/ var
+          var
             /*<<camlinternalFormat.ml:2719:19>>*/ char_set =
              create_char_set(0),
            add_range =
@@ -19340,8 +19121,7 @@
                  (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
                    (Stdlib[29], i));
-                 /*<<camlinternalFormat.ml:2725:8>>*/  /*<<camlinternalFormat.ml:2725:8>>*/ var
-                 _a$_ = i + 1 | 0;
+                 /*<<camlinternalFormat.ml:2725:8>>*/ var _a$_ = i + 1 | 0;
                 if(c === i) break;
                 i = _a$_;
                }
@@ -19354,12 +19134,12 @@
               /*<<camlinternalFormat.ml:2732:54>>*/ },
            parse_char_set_content =
              function(counter, str_ind, end_ind){
-               /*<<camlinternalFormat.ml:2743:6>>*/ var str_ind$0 = str_ind;
+              var str_ind$0 = str_ind;
                /*<<camlinternalFormat.ml:2743:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
-                /*<<camlinternalFormat.ml:2744:12>>*/  /*<<camlinternalFormat.ml:2744:12>>*/ var
+                /*<<camlinternalFormat.ml:2744:12>>*/ var
                 c =
                    /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
                    (str, str_ind$0);
@@ -19383,14 +19163,12 @@
               /*<<camlinternalFormat.ml:2751:57>>*/ },
            parse_char_set_after_char$0 =
              function(counter, str_ind, end_ind, c){
-               /*<<camlinternalFormat.ml:2755:6>>*/ var
-               str_ind$0 = str_ind,
-               c$0 = c;
+              var str_ind$0 = str_ind, c$0 = c;
                /*<<camlinternalFormat.ml:2755:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
-                /*<<camlinternalFormat.ml:2756:12>>*/  /*<<camlinternalFormat.ml:2756:12>>*/ var
+                /*<<camlinternalFormat.ml:2756:12>>*/ var
                 c$1 =
                    /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
                    (str, str_ind$0);
@@ -19411,7 +19189,7 @@
                  if(str_ind$2 === end_ind)
                    /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                    (end_ind, cst_unexpected_end_of_format);
-                  /*<<camlinternalFormat.ml:2776:12>>*/  /*<<camlinternalFormat.ml:2776:12>>*/ var
+                  /*<<camlinternalFormat.ml:2776:12>>*/ var
                   c$2 =
                      /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
                      (str, str_ind$2);
@@ -19419,7 +19197,7 @@
                   if((str_ind$2 + 1 | 0) === end_ind)
                     /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                     (end_ind, cst_unexpected_end_of_format);
-                   /*<<camlinternalFormat.ml:2783:20>>*/  /*<<camlinternalFormat.ml:2783:20>>*/ var
+                   /*<<camlinternalFormat.ml:2783:20>>*/ var
                    c$3 =
                       /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
                       (str, str_ind$2 + 1 | 0);
@@ -19496,7 +19274,7 @@
           if(str_ind$1 === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
-           /*<<camlinternalFormat.ml:2738:14>>*/ var
+          var
             /*<<camlinternalFormat.ml:2738:14>>*/ c =
               /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
               (str, str_ind$1),
@@ -19508,7 +19286,7 @@
              reverse ? rev_char_set(char_set$0) : char_set$0,
            fmt_rest$19 = parse(next_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2543:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2544:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2544:22>>*/ ignored$9 =
               [10, get_pad_opt(95), char_set$1],
             _aX_ = [0, [23, ignored$9, fmt_rest$19]];
@@ -19522,7 +19300,7 @@
            fmt_result = [0, [15, fmt_rest$20]];
           break a;
          case 99:
-           /*<<camlinternalFormat.ml:2387:18>>*/ var
+          var
            char_format =
              function(fmt_rest){
                /*<<camlinternalFormat.ml:2377:8>>*/ return get_ign(0)
@@ -19533,7 +19311,7 @@
             /*<<camlinternalFormat.ml:2387:18>>*/ match$7 = get_pad_opt(99);
           if(match$7){
            if(0 === match$7[1])
-             /*<<camlinternalFormat.ml:2382:11>>*/ var
+            var
               /*<<camlinternalFormat.ml:2382:11>>*/ _aY_ =
                get_ign(0) ? [0, [23, 3, fmt_rest$21]] : [0, [22, fmt_rest$21]],
              _aZ_ = _aY_;
@@ -19551,24 +19329,24 @@
           var fmt_result = _a0_;
           break a;
          case 114:
-           /*<<camlinternalFormat.ml:2512:9>>*/ var
+          var
            fmt_rest$22 = parse(str_ind, end_ind)[1],
             /*<<camlinternalFormat.ml:2512:9>>*/ _a1_ =
              get_ign(0) ? [0, [23, 2, fmt_rest$22]] : [0, [19, fmt_rest$22]],
            fmt_result = _a1_;
           break a;
          case 115:
-           /*<<camlinternalFormat.ml:2400:16>>*/ var
+          var
             /*<<camlinternalFormat.ml:2400:16>>*/ pad$9 =
              check_no_0(symb, get_padprec(0)),
            fmt_rest$23 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2402:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2403:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2403:22>>*/ ignored$10 =
               [0, get_padprec_opt(95)],
             _a2_ = [0, [23, ignored$10, fmt_rest$23]];
           else
-            /*<<camlinternalFormat.ml:2407:10>>*/ var
+           var
              /*<<camlinternalFormat.ml:2407:10>>*/ match$8 =
               make_padding_fmt_ebb(pad$9, fmt_rest$23),
             fmt_rest$24 = match$8[2],
@@ -19582,7 +19360,7 @@
            fmt_result = [0, [16, fmt_rest$25]];
           break a;
          case 123:
-           /*<<camlinternalFormat.ml:2521:20>>*/ var
+          var
             /*<<camlinternalFormat.ml:2521:20>>*/ sub_end$0 =
              search_subformat_end(str_ind, end_ind, 125),
            sub_fmt$0 = parse(str_ind, sub_end$0)[1],
@@ -19590,7 +19368,7 @@
             /*<<camlinternalFormat.ml:2524:22>>*/ sub_fmtty$0 =
              fmtty_of_fmt(sub_fmt$0);
            /*<<camlinternalFormat.ml:2525:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2526:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2526:22>>*/ ignored$11 =
               [8, get_pad_opt(95), sub_fmtty$0],
             _a3_ = [0, [23, ignored$11, fmt_rest$26]];
@@ -19600,17 +19378,17 @@
           break a;
          case 66:
          case 98:
-           /*<<camlinternalFormat.ml:2495:16>>*/ var
+          var
             /*<<camlinternalFormat.ml:2495:16>>*/ pad$3 =
              check_no_0(symb, get_padprec(0)),
            fmt_rest$8 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2497:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2498:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2498:22>>*/ ignored$3 =
               [7, get_padprec_opt(95)],
             _aK_ = [0, [23, ignored$3, fmt_rest$8]];
           else
-            /*<<camlinternalFormat.ml:2502:10>>*/ var
+           var
              /*<<camlinternalFormat.ml:2502:10>>*/ match$3 =
               make_padding_fmt_ebb(pad$3, fmt_rest$8),
             fmt_rest$9 = match$3[2],
@@ -19628,7 +19406,7 @@
          case 108:
          case 110:
           if(str_ind !== end_ind){
-            /*<<camlinternalFormat.ml:2438:63>>*/ var
+           var
              /*<<camlinternalFormat.ml:2438:63>>*/ symb$0 =
                /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
                (str, str_ind),
@@ -19666,7 +19444,7 @@
                   ([0, Assert_failure, _V_], 1);
           }
            /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2442:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2442:22>>*/ ignored$5 = [11, counter],
             _aP_ = [0, [23, ignored$5, fmt_rest$13]];
           else
@@ -19689,19 +19467,19 @@
          case 111:
          case 117:
          case 120:
-           /*<<camlinternalFormat.ml:2421:8>>*/ var
+          var
             /*<<camlinternalFormat.ml:2421:8>>*/ _aT_ = get_space(0),
             /*<<camlinternalFormat.ml:2420:65>>*/ _aU_ = get_hash(0),
             /*<<camlinternalFormat.ml:2420:18>>*/ iconv$2 =
              compute_int_conv(pct_ind, str_ind, get_plus(0), _aU_, _aT_, symb),
            fmt_rest$17 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2423:9>>*/ if(get_ign(0))
-            /*<<camlinternalFormat.ml:2424:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2424:22>>*/ ignored$8 =
               [2, iconv$2, get_pad_opt(95)],
             _aV_ = [0, [23, ignored$8, fmt_rest$17]];
           else
-            /*<<camlinternalFormat.ml:2428:48>>*/ var
+           var
              /*<<camlinternalFormat.ml:2428:48>>*/ _aW_ = get_prec(0),
              /*<<camlinternalFormat.ml:2428:10>>*/ match$6 =
               make_padprec_fmt_ebb(get_int_pad(0), _aW_, fmt_rest$17),
@@ -19719,7 +19497,7 @@
          case 102:
          case 103:
          case 104:
-           /*<<camlinternalFormat.ml:2485:38>>*/ var
+          var
             /*<<camlinternalFormat.ml:2485:38>>*/ space$1 = get_space(0),
             /*<<camlinternalFormat.ml:2485:24>>*/ hash$1 = get_hash(0),
             /*<<camlinternalFormat.ml:2485:10>>*/ plus$2 = get_plus(0),
@@ -19770,25 +19548,24 @@
             /*<<camlinternalFormat.ml:2957:11>>*/ throw  /*<<camlinternalFormat.ml:2957:11>>*/ caml_maybe_attach_backtrace
                   ([0, Assert_failure, _X_], 1);
           }
-           /*<<camlinternalFormat.ml:2958:4>>*/ var
+          var
             /*<<camlinternalFormat.ml:2958:4>>*/ fconv = [0, flag, kind],
            fmt_rest$11 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2487:9>>*/ if(get_ign(0)){
-            /*<<camlinternalFormat.ml:2366:32>>*/  /*<<camlinternalFormat.ml:2366:32>>*/ var
-            match = get_prec(0);
+            /*<<camlinternalFormat.ml:2366:32>>*/ var match = get_prec(0);
            if(typeof match === "number")
             var
              _aM_ =
                match ? incompatible_flag(pct_ind, str_ind, 95, cst$26) : 0;
            else
             var ndec = match[1], _aM_ = [0, ndec];
-            /*<<camlinternalFormat.ml:2488:22>>*/ var
+           var
              /*<<camlinternalFormat.ml:2488:22>>*/ ignored$4 =
               [6, get_pad_opt(95), _aM_],
             _aN_ = [0, [23, ignored$4, fmt_rest$11]];
           }
           else
-            /*<<camlinternalFormat.ml:2492:44>>*/ var
+           var
              /*<<camlinternalFormat.ml:2492:44>>*/ _aO_ = get_prec(0),
              /*<<camlinternalFormat.ml:2492:10>>*/ match$4 =
               make_padprec_fmt_ebb(get_pad(0), _aO_, fmt_rest$11),
@@ -19804,7 +19581,7 @@
        if(111 > symb){
         switch(symb - 108 | 0){
           case 0:
-            /*<<camlinternalFormat.ml:2449:25>>*/ var
+           var
              /*<<camlinternalFormat.ml:2449:25>>*/ _at_ =
                /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
                (str, str_ind),
@@ -19815,12 +19592,12 @@
                (pct_ind, str_ind + 1 | 0, get_plus(0), _av_, _au_, _at_),
             fmt_rest = parse(str_ind + 1 | 0, end_ind)[1];
             /*<<camlinternalFormat.ml:2451:9>>*/ if(get_ign(0))
-             /*<<camlinternalFormat.ml:2452:22>>*/ var
+            var
               /*<<camlinternalFormat.ml:2452:22>>*/ ignored =
                [3, iconv, get_pad_opt(95)],
              _aw_ = [0, [23, ignored, fmt_rest]];
            else
-             /*<<camlinternalFormat.ml:2456:48>>*/ var
+            var
               /*<<camlinternalFormat.ml:2456:48>>*/ _ay_ = get_prec(0),
               /*<<camlinternalFormat.ml:2456:10>>*/ match$0 =
                make_padprec_fmt_ebb(get_int_pad(0), _ay_, fmt_rest),
@@ -19833,7 +19610,7 @@
           case 1:
            break b;
           default:
-            /*<<camlinternalFormat.ml:2461:39>>*/ var
+           var
              /*<<camlinternalFormat.ml:2461:39>>*/ _az_ =
                /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
                (str, str_ind),
@@ -19844,12 +19621,12 @@
                (pct_ind, str_ind + 1 | 0, get_plus(0), _aB_, _aA_, _az_),
             fmt_rest$1 = parse(str_ind + 1 | 0, end_ind)[1];
             /*<<camlinternalFormat.ml:2463:9>>*/ if(get_ign(0))
-             /*<<camlinternalFormat.ml:2464:22>>*/ var
+            var
               /*<<camlinternalFormat.ml:2464:22>>*/ ignored$0 =
                [4, iconv$0, get_pad_opt(95)],
              _aC_ = [0, [23, ignored$0, fmt_rest$1]];
            else
-             /*<<camlinternalFormat.ml:2468:48>>*/ var
+            var
               /*<<camlinternalFormat.ml:2468:48>>*/ _aD_ = get_prec(0),
               /*<<camlinternalFormat.ml:2468:10>>*/ match$1 =
                make_padprec_fmt_ebb(get_int_pad(0), _aD_, fmt_rest$1),
@@ -19864,7 +19641,7 @@
        }
       }
       else if(76 === symb){
-        /*<<camlinternalFormat.ml:2473:25>>*/ var
+       var
          /*<<camlinternalFormat.ml:2473:25>>*/ _aE_ =
            /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get(str, str_ind),
          /*<<camlinternalFormat.ml:2473:10>>*/ _aF_ = get_space(0),
@@ -19874,12 +19651,12 @@
            (pct_ind, str_ind + 1 | 0, get_plus(0), _aG_, _aF_, _aE_),
         fmt_rest$3 = parse(str_ind + 1 | 0, end_ind)[1];
         /*<<camlinternalFormat.ml:2475:9>>*/ if(get_ign(0))
-         /*<<camlinternalFormat.ml:2476:22>>*/ var
+        var
           /*<<camlinternalFormat.ml:2476:22>>*/ ignored$1 =
            [5, iconv$1, get_pad_opt(95)],
          _aH_ = [0, [23, ignored$1, fmt_rest$3]];
        else
-         /*<<camlinternalFormat.ml:2480:48>>*/ var
+        var
           /*<<camlinternalFormat.ml:2480:48>>*/ _aI_ = get_prec(0),
           /*<<camlinternalFormat.ml:2480:10>>*/ match$2 =
            make_padprec_fmt_ebb(get_int_pad(0), _aI_, fmt_rest$3),
@@ -19962,14 +19739,14 @@
           /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
         /*<<camlinternalFormat.ml:2653:8>>*/ throw  /*<<camlinternalFormat.ml:2653:8>>*/ caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-       /*<<camlinternalFormat.ml:2643:18>>*/  /*<<camlinternalFormat.ml:2643:18>>*/ var
+       /*<<camlinternalFormat.ml:2643:18>>*/ var
        ind =
           /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
           (Stdlib_String[32], str, str_ind + 1 | 0, 62);
       if(end_ind <= ind)
         /*<<camlinternalFormat.ml:2644:31>>*/ throw  /*<<camlinternalFormat.ml:2644:31>>*/ caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-       /*<<camlinternalFormat.ml:2645:22>>*/ var
+      var
         /*<<camlinternalFormat.ml:2645:22>>*/ sub_str =
           /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
           (Stdlib_String[16], str, str_ind, (ind - str_ind | 0) + 1 | 0),
@@ -19986,7 +19763,7 @@
      catch(_aj_){
       var _ah_ = caml_wrap_exception(_aj_);
       if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
-       /*<<camlinternalFormat.ml:2657:6>>*/ var
+      var
        fmt_rest = parse(str_ind, end_ind)[1],
         /*<<camlinternalFormat.ml:2657:6>>*/ formatting =
          is_open_tag ? [0, sub_format] : [1, sub_format];
@@ -19995,7 +19772,7 @@
      }
      /*<<camlinternalFormat.ml:2659:53>>*/ }
     function parse_spaces(str_ind, end_ind){
-      /*<<camlinternalFormat.ml:2804:4>>*/ var str_ind$0 = str_ind;
+     var str_ind$0 = str_ind;
       /*<<camlinternalFormat.ml:2804:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
@@ -20010,14 +19787,12 @@
      }
      /*<<camlinternalFormat.ml:2805:79>>*/ }
     function parse_positive(str_ind, end_ind, acc){
-      /*<<camlinternalFormat.ml:2810:4>>*/ var
-      str_ind$0 = str_ind,
-      acc$0 = acc;
+     var str_ind$0 = str_ind, acc$0 = acc;
       /*<<camlinternalFormat.ml:2810:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
-       /*<<camlinternalFormat.ml:2811:10>>*/  /*<<camlinternalFormat.ml:2811:10>>*/ var
+       /*<<camlinternalFormat.ml:2811:10>>*/ var
        c =
           /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
           (str, str_ind$0);
@@ -20025,8 +19800,7 @@
         /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0];
       var new_acc = (acc$0 * 10 | 0) + (c - 48 | 0) | 0;
       if(Stdlib_Sys[12] < new_acc){
-        /*<<camlinternalFormat.ml:2815:8>>*/  /*<<camlinternalFormat.ml:2815:8>>*/ var
-        _ag_ = Stdlib_Sys[12];
+        /*<<camlinternalFormat.ml:2815:8>>*/ var _ag_ = Stdlib_Sys[12];
         /*<<camlinternalFormat.ml:2815:8>>*/ return  /*<<camlinternalFormat.ml:2815:8>>*/ caml_call3
                (failwith_message(_S_), str, new_acc, _ag_);
       }
@@ -20039,7 +19813,7 @@
       /*<<camlinternalFormat.ml:2825:4>>*/ if(str_ind === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
-      /*<<camlinternalFormat.ml:2826:10>>*/  /*<<camlinternalFormat.ml:2826:10>>*/ var
+      /*<<camlinternalFormat.ml:2826:10>>*/ var
       match =
          /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get(str, str_ind);
      if(48 <= match){
@@ -20051,14 +19825,14 @@
       if((str_ind + 1 | 0) === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
-       /*<<camlinternalFormat.ml:2830:12>>*/  /*<<camlinternalFormat.ml:2830:12>>*/ var
+       /*<<camlinternalFormat.ml:2830:12>>*/ var
        c =
           /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
           (str, str_ind + 1 | 0);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
                (str_ind + 1 | 0, cst_digit, c);
-       /*<<camlinternalFormat.ml:2832:26>>*/ var
+      var
         /*<<camlinternalFormat.ml:2832:26>>*/ match$0 =
          parse_positive(str_ind + 1 | 0, end_ind, 0),
        n = match$0[2],
@@ -20069,8 +19843,7 @@
             ([0, Assert_failure, _T_], 1);
      /*<<camlinternalFormat.ml:2837:23>>*/ }
     function add_literal(lit_start, str_ind, fmt){
-      /*<<camlinternalFormat.ml:2843:31>>*/ var
-      size = str_ind - lit_start | 0;
+     var size = str_ind - lit_start | 0;
      return 0 === size
              ? [0, fmt]
              : 1
@@ -20087,7 +19860,7 @@
                   fmt]];
      /*<<camlinternalFormat.ml:2846:75>>*/ }
     function search_subformat_end(str_ind, end_ind, c){
-      /*<<camlinternalFormat.ml:2851:4>>*/ var str_ind$0 = str_ind;
+     var str_ind$0 = str_ind;
       /*<<camlinternalFormat.ml:2851:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/  /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
@@ -20105,7 +19878,7 @@
           (str, str_ind$0 + 1 | 0)
          === c)
          /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0;
-        /*<<camlinternalFormat.ml:2859:20>>*/  /*<<camlinternalFormat.ml:2859:20>>*/ var
+        /*<<camlinternalFormat.ml:2859:20>>*/ var
         match =
            /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
            (str, str_ind$0 + 1 | 0);
@@ -20114,7 +19887,7 @@
          if(126 > match)
           switch(match - 123 | 0){
             case 0:
-              /*<<camlinternalFormat.ml:2874:24>>*/ var
+             var
                /*<<camlinternalFormat.ml:2874:24>>*/ sub_end =
                 search_subformat_end(str_ind$0 + 2 | 0, end_ind, 125),
                /*<<camlinternalFormat.ml:2874:24>>*/ str_ind$2 =
@@ -20131,12 +19904,12 @@
          if((str_ind$0 + 2 | 0) === end_ind)
            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
            (end_ind, cst_unexpected_end_of_format);
-          /*<<camlinternalFormat.ml:2863:22>>*/  /*<<camlinternalFormat.ml:2863:22>>*/ var
+          /*<<camlinternalFormat.ml:2863:22>>*/ var
           match$0 =
              /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
              (str, str_ind$0 + 2 | 0);
          if(40 === match$0){
-           /*<<camlinternalFormat.ml:2868:26>>*/ var
+          var
             /*<<camlinternalFormat.ml:2868:26>>*/ sub_end$0 =
              search_subformat_end(str_ind$0 + 3 | 0, end_ind, 41),
             /*<<camlinternalFormat.ml:2868:26>>*/ str_ind$3 =
@@ -20145,7 +19918,7 @@
           continue;
          }
          if(123 === match$0){
-           /*<<camlinternalFormat.ml:2865:26>>*/ var
+          var
             /*<<camlinternalFormat.ml:2865:26>>*/ sub_end$1 =
              search_subformat_end(str_ind$0 + 3 | 0, end_ind, 125),
             /*<<camlinternalFormat.ml:2865:26>>*/ str_ind$4 =
@@ -20160,7 +19933,7 @@
        }
        else{
         if(40 === match){
-          /*<<camlinternalFormat.ml:2878:24>>*/ var
+         var
            /*<<camlinternalFormat.ml:2878:24>>*/ sub_end$2 =
             search_subformat_end(str_ind$0 + 2 | 0, end_ind, 41),
            /*<<camlinternalFormat.ml:2878:24>>*/ str_ind$6 = sub_end$2 + 2 | 0;
@@ -20178,10 +19951,7 @@
      }
      /*<<camlinternalFormat.ml:2889:55>>*/ }
     function compute_int_conv(pct_ind, str_ind, plus, hash, space, symb){
-      /*<<camlinternalFormat.ml:2903:4>>*/ var
-      plus$0 = plus,
-      hash$0 = hash,
-      space$0 = space;
+     var plus$0 = plus, hash$0 = hash, space$0 = space;
       /*<<camlinternalFormat.ml:2903:4>>*/ for(;;){
       a:
       {
@@ -20287,7 +20057,7 @@
      }
      /*<<camlinternalFormat.ml:2935:40>>*/ }
     function incompatible_flag(pct_ind, str_ind, symb, option){
-      /*<<camlinternalFormat.ml:2963:6>>*/  /*<<camlinternalFormat.ml:2963:19>>*/ var
+      /*<<camlinternalFormat.ml:2963:19>>*/ var
       subfmt =
          /*<<camlinternalFormat.ml:2963:19>>*/ caml_call3
          (Stdlib_String[16], str, pct_ind, str_ind - pct_ind | 0);
@@ -20297,18 +20067,16 @@
     return parse(0, caml_ml_string_length(str));
    }
    function format_of_string_fmtty(str, fmtty){
-     /*<<camlinternalFormat.ml:2977:2>>*/ var
-     fmt = fmt_ebb_of_string(0, str)[1];
+    var fmt = fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2978:2>>*/ try{
-      /*<<camlinternalFormat.ml:2978:6>>*/  /*<<camlinternalFormat.ml:2978:6>>*/ var
+      /*<<camlinternalFormat.ml:2978:6>>*/ var
       _ae_ = [0, type_format(fmt, fmtty), str];
       /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_;
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
      if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
-      /*<<camlinternalFormat.ml:2982:10>>*/  /*<<camlinternalFormat.ml:2982:10>>*/ var
-      _ad_ = string_of_fmtty(fmtty);
+      /*<<camlinternalFormat.ml:2982:10>>*/ var _ad_ = string_of_fmtty(fmtty);
       /*<<camlinternalFormat.ml:2982:10>>*/ return  /*<<camlinternalFormat.ml:2982:10>>*/ caml_call2
              (failwith_message(_Z_), str, _ad_);
     }
@@ -20319,7 +20087,7 @@
      fmt = param[1],
      fmt$0 = fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2988:2>>*/ try{
-      /*<<camlinternalFormat.ml:2988:6>>*/  /*<<camlinternalFormat.ml:2988:6>>*/ var
+      /*<<camlinternalFormat.ml:2988:6>>*/ var
       _aa_ = [0, type_format(fmt$0, fmtty_of_fmt(fmt)), str];
       /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_;
     }
@@ -20367,18 +20135,18 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
-    /*<<?>>*/ function caml_call1(f, a0){
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   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){
+   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){
+   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]);
@@ -20441,8 +20209,8 @@
     /*<<printf.ml:32:36>>*/ }
    function ksprintf(k, param){
     var fmt = param[1];
-     /*<<printf.ml:35:2>>*/ function k$0(acc){
-      /*<<printf.ml:36:4>>*/  /*<<printf.ml:36:14>>*/ var
+    function k$0(acc){
+      /*<<printf.ml:36:14>>*/ var
       buf =  /*<<printf.ml:36:14>>*/ caml_call1(Stdlib_Buffer[1], 64);
       /*<<printf.ml:37:4>>*/  /*<<printf.ml:37:4>>*/ caml_call2
       (CamlinternalFormat[11], buf, acc);
@@ -20486,38 +20254,39 @@
   (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",
-    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){
+     /*<<?>>*/ 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",
+     /*<<?>>*/ 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){
     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){
+   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){
+   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){
+   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){
+   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]);
@@ -20670,18 +20439,14 @@
                 (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;
+    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;
+    var capacity = arr.length - 1, _V_ = capacity < length ? 1 : 0;
     return _V_
             ?  /*<<dynarray.ml:158:4>>*/ caml_call5
               (Stdlib_Printf[10],
@@ -20693,7 +20458,7 @@
             : _V_;
     /*<<dynarray.ml:199:42>>*/ }
    function unsafe_get(arr, i, length){
-     /*<<dynarray.ml:206:2>>*/ var match = arr[1 + i];
+    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;
@@ -20727,13 +20492,11 @@
                /*<<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];
+     /*<<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];
+     /*<<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]);
@@ -20753,13 +20516,12 @@
              (Stdlib_Array[1],
               length,
               function(i){
-                /*<<dynarray.ml:262:6>>*/  /*<<dynarray.ml:262:14>>*/ var
-                v = unsafe_get(arr, i, length);
+                /*<<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];
+    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
@@ -20767,17 +20529,17 @@
      /*<<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];
+    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];
+    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
+    var
       /*<<dynarray.ml:291:2>>*/ last = length - 1 | 0,
      match = arr[1 + last];
     return match
@@ -20786,8 +20548,7 @@
     /*<<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);
+      /*<<dynarray.ml:302:8>>*/ var x = pop_last(a);
     }
     catch(_U_){
      var _T_ = caml_wrap_exception(_U_);
@@ -20797,7 +20558,7 @@
      /*<<dynarray.ml:304:9>>*/ return [0, x];
     /*<<dynarray.ml:304:15>>*/ }
    function remove_last(a){
-     /*<<dynarray.ml:307:2>>*/ var
+    var
       /*<<dynarray.ml:307:13>>*/ last = a[1] - 1 | 0,
      _R_ = 0 <= last ? 1 : 0,
      _S_ =
@@ -20825,9 +20586,7 @@
      /*<<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;
+    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);
@@ -20840,7 +20599,7 @@
        f$0,
        capacity_request,
        Stdlib_Sys[13]);
-     /*<<dynarray.ml:345:6>>*/ var
+    var
      n =
        512 < cur_capacity
         ? cur_capacity + (cur_capacity / 2 | 0) | 0
@@ -20870,7 +20629,7 @@
             (a, a[1] + extra_capacity_request | 0);
     /*<<dynarray.ml:385:55>>*/ }
    function fit_capacity(a){
-     /*<<dynarray.ml:388:2>>*/ var _N_ = a[1];
+    var _N_ = a[1];
     return capacity(a) === _N_
             ? 0
             : (a
@@ -20884,9 +20643,7 @@
      /*<<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;
+    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);
@@ -20894,7 +20651,7 @@
     }
     var _L_ = cur_capacity < n ? 1 : 0;
     if(_L_){
-      /*<<dynarray.ml:402:18>>*/  /*<<dynarray.ml:402:18>>*/ var
+      /*<<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]);
@@ -20911,24 +20668,23 @@
     return 0;
     /*<<dynarray.ml:409:15>>*/ }
    function add_last_if_room(a, elem){
-     /*<<dynarray.ml:427:2>>*/ var length = a[1], arr = a[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: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);
+      /*<<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;
+    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];
@@ -20953,24 +20709,22 @@
              seq);
     /*<<dynarray.ml:458:38>>*/ }
    function append_array_if_room(a, b){
-     /*<<dynarray.ml:463:2>>*/ var
+    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
+    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];
+       /*<<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;
+       /*<<dynarray.ml:495:4>>*/ var _J_ = i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
@@ -20982,29 +20736,24 @@
       /*<<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);
+      /*<<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];
+    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;
+    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);
+       /*<<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;
+       /*<<dynarray.ml:526:4>>*/ var _F_ = i + 1 | 0;
       if(_E_ === i) break;
       i = _F_;
      }
@@ -21013,30 +20762,26 @@
      /*<<dynarray.ml:531:4>>*/ return 1;
     /*<<dynarray.ml:533:5>>*/ }
    function append(a, b){
-     /*<<dynarray.ml:536:2>>*/ var length_b = b[1];
+    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);
+      /*<<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];
+    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;
+    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;
+       /*<<dynarray.ml:598:4>>*/ var _B_ = i + 1 | 0;
       if(_A_ === i) break;
       i = _B_;
      }
@@ -21047,18 +20792,15 @@
      /*<<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];
+    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;
+    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;
+       /*<<dynarray.ml:609:4>>*/ var _y_ = i + 1 | 0;
       if(_x_ === i) break;
       i = _y_;
      }
@@ -21066,9 +20808,9 @@
      /*<<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];
+    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
+     /*<<dynarray.ml:616:12>>*/ var
      res =
        [0,
         length,
@@ -21084,9 +20826,9 @@
      /*<<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];
+    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
+     /*<<dynarray.ml:628:12>>*/ var
      res =
        [0,
         length,
@@ -21102,20 +20844,18 @@
      /*<<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];
+    var length = a[1], arr = a[2];
      /*<<dynarray.ml:638:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:639:10>>*/ var
+    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);
+       /*<<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;
+       /*<<dynarray.ml:640:2>>*/ var _v_ = i + 1 | 0;
       if(_u_ === i) break;
       i = _v_;
      }
@@ -21124,19 +20864,17 @@
     return r[1];
     /*<<dynarray.ml:645:4>>*/ }
    function fold_right(f, a, acc){
-     /*<<dynarray.ml:648:2>>*/ var length = a[1], arr = a[2];
+    var length = a[1], arr = a[2];
      /*<<dynarray.ml:649:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:650:10>>*/ var
+    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);
+       /*<<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;
+       /*<<dynarray.ml:650:10>>*/ var _s_ = i - 1 | 0;
       if(0 === i) break;
       i = _s_;
      }
@@ -21145,14 +20883,14 @@
     return r[1];
     /*<<dynarray.ml:656:4>>*/ }
    function exists(p, a){
-     /*<<dynarray.ml:659:2>>*/ var length = a[1], arr = a[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
+       /*<<dynarray.ml:664:6>>*/ var
        _q_ =
           /*<<dynarray.ml:664:6>>*/ caml_call1(p, unsafe_get(arr, i, length));
        /*<<dynarray.ml:664:6>>*/ if(! _q_){
@@ -21167,14 +20905,14 @@
     }
     /*<<dynarray.ml:669:5>>*/ }
    function for_all(p, a){
-     /*<<dynarray.ml:672:2>>*/ var length = a[1], arr = a[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
+       /*<<dynarray.ml:677:6>>*/ var
        _p_ =
           /*<<dynarray.ml:677:6>>*/ caml_call1(p, unsafe_get(arr, i, length));
        /*<<dynarray.ml:677:6>>*/ if(_p_){
@@ -21189,11 +20927,11 @@
     }
     /*<<dynarray.ml:682:5>>*/ }
    function filter(f, a){
-     /*<<dynarray.ml:685:2>>*/  /*<<dynarray.ml:685:10>>*/ var b = create(0);
+     /*<<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
+        /*<<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>>*/ },
@@ -21201,11 +20939,11 @@
      /*<<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: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
+        /*<<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];
@@ -21215,7 +20953,7 @@
      /*<<dynarray.ml:691:2>>*/ return b;
     /*<<dynarray.ml:696:3>>*/ }
    function of_array(a){
-     /*<<dynarray.ml:707:2>>*/ var length = a.length - 1;
+    var length = a.length - 1;
      /*<<dynarray.ml:708:2>>*/ return [0,
             length,
              /*<<dynarray.ml:710:10>>*/ caml_call2
@@ -21226,9 +20964,9 @@
                /*<<dynarray.ml:710:69>>*/ })];
     /*<<dynarray.ml:711:3>>*/ }
    function to_array(a){
-     /*<<dynarray.ml:714:2>>*/ var length = a[1], arr = a[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
+     /*<<dynarray.ml:716:12>>*/ var
      res =
         /*<<dynarray.ml:716:12>>*/ caml_call2
         (Stdlib_Array[1],
@@ -21240,7 +20978,7 @@
      /*<<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:723:10>>*/ var a = create(0);
      /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
      (Stdlib_List[18],
       function(x){
@@ -21250,9 +20988,9 @@
      /*<<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];
+    var length = a[1], arr = a[2];
      /*<<dynarray.ml:729:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:730:10>>*/ var
+    var
       /*<<dynarray.ml:730:10>>*/ l = [0, 0],
       /*<<dynarray.ml:730:10>>*/ _l_ = length - 1 | 0;
     if(_l_ >= 0){
@@ -21260,8 +20998,7 @@
      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;
+       /*<<dynarray.ml:730:10>>*/ var _n_ = i - 1 | 0;
       if(0 === i) break;
       i = _n_;
      }
@@ -21270,20 +21007,18 @@
     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: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];
+    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: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);
@@ -21293,21 +21028,19 @@
       /*<<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: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];
+    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: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);
@@ -21318,8 +21051,7 @@
        /*<<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: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);
@@ -21384,55 +21116,56 @@
   (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){
+     /*<<?>>*/ 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){
+   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){
+   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){
+   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){
+   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){
+   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
+   var
     global_data = runtime.caml_get_global_data(),
     cst$7 = "\n",
     cst$4 = cst$8,
@@ -21470,7 +21203,7 @@
     _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;
+    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
@@ -21484,7 +21217,7 @@
     /*<<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
+    var
      t = l[2],
      h = l[1],
       /*<<arg.ml:79:53>>*/ _az_ =
@@ -21493,7 +21226,7 @@
         /*<<arg.ml:79:12>>*/ caml_call3
         (Stdlib_List[26],
          function(x, y){
-           /*<<arg.ml:79:40>>*/  /*<<arg.ml:79:44>>*/ var
+           /*<<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_);
@@ -21510,7 +21243,7 @@
    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_;
+     var  /*<<arg.ml:95:42>>*/ _aw_ = 0, add1 = _aw_;
     }
     catch(_ay_){
      var _as_ = caml_wrap_exception(_ay_);
@@ -21523,7 +21256,7 @@
     }
     try{
       /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
-      /*<<arg.ml:99:43>>*/ var  /*<<arg.ml:99:43>>*/ _av_ = 0, add2 = _av_;
+     var  /*<<arg.ml:99:43>>*/ _av_ = 0, add2 = _av_;
     }
     catch(_ax_){
      var _at_ = caml_wrap_exception(_ax_);
@@ -21534,7 +21267,7 @@
          [0, cst_help$0, [0, help_action], cst_Display_this_list_of_optio$0],
          0];
     }
-     /*<<arg.ml:103:13>>*/  /*<<arg.ml:103:13>>*/ var
+     /*<<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_);
@@ -21542,8 +21275,7 @@
    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>>*/ var _ap_ = add_help(speclist);
      /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
             (Stdlib_List[18],
              function(param){
@@ -21557,7 +21289,7 @@
               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
+              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
@@ -21566,19 +21298,18 @@
              _ap_);
     /*<<arg.ml:108:48>>*/ }
    function usage_string(speclist, errmsg){
-     /*<<arg.ml:112:2>>*/  /*<<arg.ml:112:10>>*/ var
+     /*<<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>>*/ 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
+   var
      /*<<arg.ml:121:14>>*/ current = [0, 0],
     _f_ =
       [0,
@@ -21621,7 +21352,7 @@
     dummy = 0;
    function int_of_string_opt(x){
      /*<<arg.ml:128:2>>*/ try{
-      /*<<arg.ml:128:6>>*/  /*<<arg.ml:128:6>>*/ var
+      /*<<arg.ml:128:6>>*/ var
       _am_ = [0,  /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
       /*<<arg.ml:128:6>>*/ return _am_;
     }
@@ -21633,7 +21364,7 @@
     /*<<arg.ml:129:24>>*/ }
    function float_of_string_opt(x){
      /*<<arg.ml:132:2>>*/ try{
-      /*<<arg.ml:132:6>>*/  /*<<arg.ml:132:6>>*/ var
+      /*<<arg.ml:132:6>>*/ var
       _aj_ = [0,  /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
       /*<<arg.ml:132:6>>*/ return _aj_;
     }
@@ -21647,7 +21378,7 @@
    (allow_expand, current, argv, speclist, anonfun, errmsg){
     var initpos = current[1];
     function convert_error(error){
-      /*<<arg.ml:143:4>>*/ var
+     var
        /*<<arg.ml:143:12>>*/ b =
          /*<<arg.ml:143:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
       progname =
@@ -21692,13 +21423,13 @@
     for(;;){
      if(current[1] >= argv[1].length - 1) return 0;
       /*<<arg.ml:166:4>>*/ try{
-       /*<<arg.ml:167:14>>*/ var
+      var
        _V_ = current[1],
         /*<<arg.ml:167:14>>*/ s = caml_check_bound(argv[1], _V_)[1 + _V_];
        /*<<arg.ml:168:9>>*/ if
        ( /*<<arg.ml:168:9>>*/ caml_call2(Stdlib_String[11], cst$3, s)){
        try{
-         /*<<arg.ml:170:14>>*/ var
+        var
          follow$1 = 0,
           /*<<arg.ml:170:14>>*/ _Z_ = assoc3(s, speclist[1]),
          follow$0 = follow$1,
@@ -21708,7 +21439,7 @@
         var _W_ = caml_wrap_exception(_ag_);
         if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
          /*<<arg.ml:172:10>>*/ try{
-          /*<<arg.ml:71:10>>*/ var
+         var
            /*<<arg.ml:71:10>>*/ i =
              /*<<arg.ml:71:10>>*/ caml_call2(Stdlib_String[36], s, 61),
            /*<<arg.ml:72:2>>*/ len =
@@ -21767,11 +21498,9 @@
                /*<<arg.ml:194:20>>*/ return  /*<<arg.ml:194:20>>*/ caml_call1
                       (f, 0);
              case 1:
-               /*<<arg.ml:196:22>>*/ var
-               f$0 = param[1],
-                /*<<arg.ml:196:22>>*/ arg = get_arg$0(0);
+              var f$0 = param[1],  /*<<arg.ml:196:22>>*/ arg = get_arg$0(0);
                /*<<arg.ml:124:2>>*/ try{
-                /*<<arg.ml:124:6>>*/ var
+               var
                  /*<<arg.ml:124:6>>*/ _$_ =
                   [0,  /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
                 match = _$_;
@@ -21799,9 +21528,7 @@
               r$0[1] = 0;
               return 0;
              case 4:
-               /*<<arg.ml:205:22>>*/ var
-               f$1 = param[1],
-                /*<<arg.ml:205:22>>*/ arg$0 = get_arg$0(0);
+              var f$1 = param[1],  /*<<arg.ml:205:22>>*/ arg$0 = get_arg$0(0);
                /*<<arg.ml:206:12>>*/  /*<<arg.ml:206:12>>*/ caml_call1
                (f$1, arg$0);
                /*<<arg.ml:206:12>>*/ return consume_arg$0(0);
@@ -21810,7 +21537,7 @@
               r$1[1] = get_arg$0(0);
                /*<<arg.ml:219:12>>*/ return consume_arg$0(0);
              case 6:
-               /*<<arg.ml:221:22>>*/ var
+              var
                f$2 = param[1],
                 /*<<arg.ml:221:22>>*/ arg$1 = get_arg$0(0),
                 /*<<arg.ml:222:24>>*/ match$0 = int_of_string_opt(arg$1);
@@ -21821,7 +21548,7 @@
                /*<<arg.ml:224:24>>*/  /*<<arg.ml:224:24>>*/ caml_call1(f$2, x);
                /*<<arg.ml:226:12>>*/ return consume_arg$0(0);
              case 7:
-               /*<<arg.ml:228:22>>*/ var
+              var
                r$2 = param[1],
                 /*<<arg.ml:228:22>>*/ arg$2 = get_arg$0(0),
                 /*<<arg.ml:229:24>>*/ match$1 = int_of_string_opt(arg$2);
@@ -21832,7 +21559,7 @@
               r$2[1] = x$0;
                /*<<arg.ml:233:12>>*/ return consume_arg$0(0);
              case 8:
-               /*<<arg.ml:235:22>>*/ var
+              var
                f$3 = param[1],
                 /*<<arg.ml:235:22>>*/ arg$3 = get_arg$0(0),
                 /*<<arg.ml:236:24>>*/ match$2 = float_of_string_opt(arg$3);
@@ -21844,7 +21571,7 @@
                (f$3, x$1);
                /*<<arg.ml:240:12>>*/ return consume_arg$0(0);
              case 9:
-               /*<<arg.ml:242:22>>*/ var
+              var
                r$3 = param[1],
                 /*<<arg.ml:242:22>>*/ arg$4 = get_arg$0(0),
                 /*<<arg.ml:243:24>>*/ match$3 = float_of_string_opt(arg$4);
@@ -21860,7 +21587,7 @@
                /*<<arg.ml:249:12>>*/ return  /*<<arg.ml:249:12>>*/ caml_call2
                       (Stdlib_List[18], treat_action$0, specs);
              case 11:
-               /*<<arg.ml:209:22>>*/ var
+              var
                f$4 = param[2],
                symb = param[1],
                 /*<<arg.ml:209:22>>*/ arg$5 = get_arg$0(0);
@@ -21871,7 +21598,7 @@
                 (f$4, arg$5);
                 /*<<arg.ml:211:14>>*/ return consume_arg$0(0);
               }
-               /*<<arg.ml:215:44>>*/  /*<<arg.ml:215:44>>*/ var
+               /*<<arg.ml:215:44>>*/ var
                _aa_ = make_symlist(cst$6, cst$5, cst$4, symb);
                /*<<arg.ml:213:21>>*/ throw  /*<<arg.ml:213:21>>*/ caml_maybe_attach_backtrace
                      ([0,
@@ -21896,7 +21623,7 @@
              case 13:
               var f$6 = param[1];
                /*<<arg.ml:258:12>>*/ no_arg$0(0);
-               /*<<arg.ml:259:22>>*/  /*<<arg.ml:259:22>>*/ var acc = [0, 0];
+               /*<<arg.ml:259:22>>*/ var acc = [0, 0];
                /*<<arg.ml:262:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
                  /*<<arg.ml:264:14>>*/ return  /*<<arg.ml:264:14>>*/ caml_call1
@@ -21912,12 +21639,12 @@
               if(1 - allow_expand)
                 /*<<arg.ml:267:14>>*/ throw  /*<<arg.ml:267:14>>*/ caml_maybe_attach_backtrace
                       ([0, Stdlib[6], cst_Arg_Expand_is_is_only_allo], 1);
-               /*<<arg.ml:269:22>>*/ var
+              var
                 /*<<arg.ml:269:22>>*/ arg$6 = get_arg$0(0),
                 /*<<arg.ml:270:25>>*/ newarg =
                   /*<<arg.ml:270:25>>*/ caml_call1(f$7, arg$6);
                /*<<arg.ml:271:12>>*/ consume_arg$0(0);
-               /*<<arg.ml:272:25>>*/ var
+              var
                 /*<<arg.ml:272:25>>*/ before =
                   /*<<arg.ml:272:25>>*/ caml_call3
                   (Stdlib_Array[6], argv[1], 0, current[1] + 1 | 0),
@@ -21975,7 +21702,7 @@
    }
    function parse(l, f, msg){
      /*<<arg.ml:299:2>>*/ try{
-      /*<<arg.ml:300:4>>*/  /*<<arg.ml:300:4>>*/ var
+      /*<<arg.ml:300:4>>*/ var
       _U_ = parse_argv(0, caml_sys_argv(0), l, f, msg);
       /*<<arg.ml:300:4>>*/ return _U_;
     }
@@ -21998,7 +21725,7 @@
     /*<<arg.ml:303:39>>*/ }
    function parse_dynamic(l, f, msg){
      /*<<arg.ml:307:2>>*/ try{
-      /*<<arg.ml:308:4>>*/  /*<<arg.ml:308:4>>*/ var
+      /*<<arg.ml:308:4>>*/ var
       _T_ = parse_argv_dynamic(0, caml_sys_argv(0), l, f, msg);
       /*<<arg.ml:308:4>>*/ return _T_;
     }
@@ -22021,7 +21748,7 @@
     /*<<arg.ml:311:39>>*/ }
    function parse_expand(l, f, msg){
      /*<<arg.ml:314:2>>*/ try{
-      /*<<arg.ml:315:15>>*/ var
+     var
        /*<<arg.ml:315:15>>*/ argv = [0, caml_sys_argv(0)],
        /*<<arg.ml:316:15>>*/ spec = [0, l],
        /*<<arg.ml:317:18>>*/ current$0 = [0, current[1]],
@@ -22047,27 +21774,27 @@
     }
     /*<<arg.ml:321:39>>*/ }
    function second_word(s){
-     /*<<arg.ml:325:2>>*/ var len = caml_ml_string_length(s);
+    var len = caml_ml_string_length(s);
     function loop(n){
-      /*<<arg.ml:327:4>>*/ var n$0 = n;
+     var n$0 = n;
       /*<<arg.ml:327:4>>*/ for(;;){
       if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len;
        /*<<arg.ml:328:12>>*/ if
        (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
-       /*<<arg.ml:328:29>>*/  /*<<arg.ml:328:29>>*/ var n$1 = n$0 + 1 | 0;
+       /*<<arg.ml:328:29>>*/ var n$1 = n$0 + 1 | 0;
       n$0 = n$1;
      }
      /*<<arg.ml:329:10>>*/ }
      /*<<arg.ml:331:2>>*/ try{
-      /*<<arg.ml:331:8>>*/  /*<<arg.ml:331:8>>*/ var
+      /*<<arg.ml:331:8>>*/ var
       n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);
     }
     catch(_Q_){
      var _O_ = caml_wrap_exception(_Q_);
      if(_O_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_O_, 0);
       /*<<arg.ml:334:6>>*/ try{
-       /*<<arg.ml:334:18>>*/  /*<<arg.ml:334:18>>*/ var
+       /*<<arg.ml:334:18>>*/ var
        n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);
      }
      catch(_R_){
@@ -22087,7 +21814,7 @@
     return caml_call2(Stdlib_Int[11], cur, _N_);
    }
    function replace_leading_tab(s){
-     /*<<arg.ml:347:2>>*/  /*<<arg.ml:347:13>>*/ var seen = [0, 0];
+     /*<<arg.ml:347:13>>*/ var seen = [0, 0];
      /*<<arg.ml:348:2>>*/ return  /*<<arg.ml:348:2>>*/ caml_call2
             (Stdlib_String[18],
              function(c){
@@ -22100,7 +21827,7 @@
              s);
     /*<<arg.ml:348:75>>*/ }
    function align(opt, speclist){
-     /*<<arg.ml:374:18>>*/ var
+    var
      limit = opt ? opt[1] : Stdlib[19],
       /*<<arg.ml:374:18>>*/ completed = add_help(speclist),
       /*<<arg.ml:375:12>>*/ len =
@@ -22114,7 +21841,7 @@
               var kwd = ksd[1], spec = ksd[2];
               if(ksd[3] === cst$8)  /*<<arg.ml:355:6>>*/ return ksd;
               if(11 === spec[0]){
-                /*<<arg.ml:357:19>>*/ var
+               var
                 msg$0 = ksd[3],
                  /*<<arg.ml:357:19>>*/ cutcol$0 = second_word(msg$0),
                  /*<<arg.ml:358:32>>*/ _K_ =
@@ -22132,7 +21859,7 @@
                        spec,
                         /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)];
               }
-               /*<<arg.ml:361:19>>*/ var
+              var
                msg = ksd[3],
                spec$0 = ksd[2],
                 /*<<arg.ml:361:19>>*/ cutcol = second_word(msg),
@@ -22144,7 +21871,7 @@
                        kwd,
                        spec$0,
                        replace_leading_tab(msg)];
-               /*<<arg.ml:367:21>>*/ var
+              var
                 /*<<arg.ml:367:21>>*/ spaces =
                   /*<<arg.ml:367:21>>*/ caml_call2(Stdlib_String[1], diff, 32),
                 /*<<arg.ml:368:32>>*/ _I_ = replace_leading_tab(msg),
@@ -22167,14 +21894,14 @@
              completed);
    }
    function read_aux(trim, sep, file){
-     /*<<arg.ml:387:2>>*/ var
+    var
       /*<<arg.ml:387:11>>*/ ic =
         /*<<arg.ml:387:11>>*/ caml_call1(Stdlib[80], file),
       /*<<arg.ml:388:12>>*/ buf =
         /*<<arg.ml:388:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
       /*<<arg.ml:389:14>>*/ words = [0, 0];
     function stash(param){
-      /*<<arg.ml:391:4>>*/  /*<<arg.ml:391:15>>*/ var
+      /*<<arg.ml:391:15>>*/ var
       word =  /*<<arg.ml:391:15>>*/ caml_call1(Stdlib_Buffer[2], buf);
       /*<<arg.ml:392:4>>*/ if(trim){
       var len = caml_ml_string_length(word);
@@ -22201,7 +21928,7 @@
      /*<<arg.ml:394:20>>*/ }
      /*<<arg.ml:396:2>>*/ try{
      for(;;){
-       /*<<arg.ml:398:16>>*/  /*<<arg.ml:398:16>>*/ var
+       /*<<arg.ml:398:16>>*/ var
        c =  /*<<arg.ml:398:16>>*/ caml_call1(Stdlib[82], ic);
       if(c === sep)
         /*<<arg.ml:399:24>>*/ stash(0);
@@ -22216,25 +21943,21 @@
      if(0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
       /*<<arg.ml:404:2>>*/  /*<<arg.ml:404:2>>*/ caml_call1(Stdlib[93], ic);
-      /*<<arg.ml:405:16>>*/  /*<<arg.ml:405:16>>*/ var
+      /*<<arg.ml:405:16>>*/ var
       _F_ =  /*<<arg.ml:405:16>>*/ caml_call1(Stdlib_List[10], words[1]);
       /*<<arg.ml:405:16>>*/ return  /*<<arg.ml:405:16>>*/ caml_call1
              (Stdlib_Array[11], _F_);
     }
     /*<<arg.ml:405:33>>*/ }
    var _r_ = 10, _s_ = 1;
-    /*<<arg.ml:407:15>>*/ function read_arg(_D_){
-     /*<<?>>*/ return read_aux(_s_, _r_, _D_);
-   }
+   function read_arg(_D_){ /*<<?>>*/ return read_aux(_s_, _r_, _D_);}
    var
      /*<<arg.ml:407:15>>*/ _t_ = 0,
     _u_ = 0,
     _v_ = [0, [2, 0, [0, 0]], "%s%c"];
-    /*<<arg.ml:409:16>>*/ function read_arg0(_C_){
-     /*<<?>>*/ return read_aux(_u_, _t_, _C_);
-   }
+   function read_arg0(_C_){ /*<<?>>*/ return read_aux(_u_, _t_, _C_);}
    function write_aux(sep, file, args){
-     /*<<arg.ml:412:2>>*/  /*<<arg.ml:412:11>>*/ var
+     /*<<arg.ml:412:11>>*/ var
      oc =  /*<<arg.ml:412:11>>*/ caml_call1(Stdlib[61], file);
      /*<<arg.ml:413:2>>*/  /*<<arg.ml:413:2>>*/ caml_call2
      (Stdlib_Array[12],
@@ -22247,13 +21970,9 @@
             (Stdlib[76], oc);
     /*<<arg.ml:414:14>>*/ }
    var _w_ = 10;
-    /*<<arg.ml:416:16>>*/ function write_arg(_A_, _B_){
-     /*<<?>>*/ return write_aux(_w_, _A_, _B_);
-   }
+   function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
     /*<<arg.ml:416:16>>*/ var _x_ = 0;
-    /*<<arg.ml:418:17>>*/ function write_arg0(_y_, _z_){
-     /*<<?>>*/ return write_aux(_x_, _y_, _z_);
-   }
+   function write_arg0(_y_, _z_){ /*<<?>>*/ return write_aux(_x_, _y_, _z_);}
    var
     Stdlib_Arg =
       [0,
@@ -22284,47 +22003,49 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst$4 = "",
-    cst_s = "%s\n",
-    cst_Program_not_linked_with_g_$0 =
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst$4 = "",
+     /*<<?>>*/ cst_s = "%s\n",
+     /*<<?>>*/ cst_Program_not_linked_with_g_$0 =
       "(Program not linked with -g, cannot print stack backtrace)\n",
-    cst_characters = ", characters ",
-    cst_Fatal_error_exception = "Fatal error: exception ",
-    cst_Fatal_error_exception_s = "Fatal error: exception %s\n",
-    cst_Uncaught_exception = "Uncaught exception: ",
-    cst_Uncaught_exception_s = "Uncaught exception: %s\n",
-    caml_check_bound = runtime.caml_check_bound,
-    caml_get_exception_raw_backtra = runtime.caml_get_exception_raw_backtrace,
-    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){
+     /*<<?>>*/ cst_characters = ", characters ",
+     /*<<?>>*/ cst_Fatal_error_exception = "Fatal error: exception ",
+     /*<<?>>*/ cst_Fatal_error_exception_s = "Fatal error: exception %s\n",
+     /*<<?>>*/ cst_Uncaught_exception = "Uncaught exception: ",
+     /*<<?>>*/ cst_Uncaught_exception_s = "Uncaught exception: %s\n",
+     /*<<?>>*/ caml_check_bound = runtime.caml_check_bound,
+     /*<<?>>*/ caml_get_exception_raw_backtra =
+      runtime.caml_get_exception_raw_backtrace,
+     /*<<?>>*/ 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){
+   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){
+   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_call6(f, a0, a1, a2, a3, a4, a5){
+   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]);
    }
-    /*<<?>>*/ function caml_call8(f, a0, a1, a2, a3, a4, a5, a6, a7){
+   function caml_call8(f, a0, a1, a2, a3, a4, a5, a6, a7){
     return (f.l >= 0 ? f.l : f.l = f.length) === 8
             ? f(a0, a1, a2, a3, a4, a5, a6, a7)
             : runtime.caml_call_gen(f, [a0, a1, a2, a3, a4, a5, a6, a7]);
    }
-    /*<<printexc.ml:20:15>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     cst$0 = cst$4,
     cst$3 = cst$4,
@@ -22405,18 +22126,16 @@
     _n_ = [0, [2, 0, [12, 10, 0]], cst_s],
     cst_Program_not_linked_with_g_ = cst_Program_not_linked_with_g_$0;
    function field(x, i){
-     /*<<printexc.ml:25:2>>*/  /*<<printexc.ml:25:10>>*/ var f = x[1 + i];
+     /*<<printexc.ml:25:10>>*/ var f = x[1 + i];
      /*<<printexc.ml:26:9>>*/ if
      (!  /*<<printexc.ml:26:9>>*/ caml_call1(Stdlib_Obj[1], f))
       /*<<printexc.ml:27:4>>*/ return  /*<<printexc.ml:27:4>>*/ caml_call2
              (Stdlib_Printf[4], _b_, f);
-     /*<<printexc.ml:28:7>>*/  /*<<printexc.ml:28:7>>*/ var
-     _ah_ = Stdlib_Obj[15];
+     /*<<printexc.ml:28:7>>*/ var _ah_ = Stdlib_Obj[15];
     if( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
       /*<<printexc.ml:29:4>>*/ return  /*<<printexc.ml:29:4>>*/ caml_call2
              (Stdlib_Printf[4], _a_, f);
-     /*<<printexc.ml:30:7>>*/  /*<<printexc.ml:30:7>>*/ var
-     _ai_ = Stdlib_Obj[16];
+     /*<<printexc.ml:30:7>>*/ var _ai_ = Stdlib_Obj[16];
     return  /*<<printexc.ml:30:10>>*/ caml_obj_tag(f) === _ai_
             ?  /*<<printexc.ml:31:4>>*/ caml_call1(Stdlib[35], f)
             : cst;
@@ -22424,14 +22143,14 @@
    function other_fields(x, i){
      /*<<printexc.ml:36:2>>*/ if(x.length - 1 <= i)
       /*<<printexc.ml:36:26>>*/ return cst$0;
-     /*<<printexc.ml:37:36>>*/ var
+    var
       /*<<printexc.ml:37:36>>*/ _af_ = other_fields(x, i + 1 | 0),
       /*<<printexc.ml:37:24>>*/ _ag_ = field(x, i);
      /*<<printexc.ml:37:36>>*/ return  /*<<printexc.ml:37:36>>*/ caml_call3
             (Stdlib_Printf[4], _c_, _ag_, _af_);
     /*<<printexc.ml:37:58>>*/ }
    function use_printers(x){
-     /*<<printexc.ml:47:2>>*/ var
+    var
      param =  /*<<printexc.ml:53:7>>*/ caml_call1(Stdlib_Atomic[3], printers);
      /*<<printexc.ml:47:17>>*/ for(;;){
      if(! param)  /*<<printexc.ml:52:12>>*/ return 0;
@@ -22439,7 +22158,7 @@
      a:
      {
        /*<<printexc.ml:49:8>>*/ try{
-        /*<<printexc.ml:49:15>>*/  /*<<printexc.ml:49:15>>*/ var
+        /*<<printexc.ml:49:15>>*/ var
         val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);
       }
       catch(_ae_){break a;}
@@ -22451,11 +22170,11 @@
    function string_of_extension_constructo(t){
      /*<<printexc.ml:64:2>>*/ if
      (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
-      /*<<printexc.ml:60:17>>*/ var
+     var
        /*<<printexc.ml:60:17>>*/ constructor = t[1][1],
       match = t.length - 1;
      if(2 < match >>> 0)
-       /*<<printexc.ml:44:38>>*/ var
+      var
         /*<<printexc.ml:44:38>>*/ _aa_ = other_fields(t, 2),
         /*<<printexc.ml:44:26>>*/ _ab_ = field(t, 1),
        _ad_ =
@@ -22468,7 +22187,7 @@
         case 1:
          var _ad_ = cst$2; break;
         default:
-          /*<<printexc.ml:43:24>>*/ var
+         var
            /*<<printexc.ml:43:24>>*/ _ac_ = field(t, 1),
           _ad_ =
              /*<<printexc.ml:43:24>>*/ caml_call2(Stdlib_Printf[4], _e_, _ac_);
@@ -22531,20 +22250,19 @@
              cst_Undefined_recursive_module);
     /*<<printexc.ml:79:50>>*/ }
    function to_string(e){
-     /*<<printexc.ml:82:2>>*/  /*<<printexc.ml:82:8>>*/ var
-     match = use_printers(e);
+     /*<<printexc.ml:82:8>>*/ var match = use_printers(e);
     if(! match)  /*<<printexc.ml:84:12>>*/ return to_string_default(e);
     var s = match[1];
      /*<<printexc.ml:83:14>>*/ return s;
     /*<<printexc.ml:84:31>>*/ }
    function print(fct, arg){
      /*<<printexc.ml:87:2>>*/ try{
-      /*<<printexc.ml:88:4>>*/  /*<<printexc.ml:88:4>>*/ var
+      /*<<printexc.ml:88:4>>*/ var
       _$_ =  /*<<printexc.ml:88:4>>*/ caml_call1(fct, arg);
       /*<<printexc.ml:88:4>>*/ return _$_;
     }
     catch(x$0){
-      /*<<printexc.ml:90:39>>*/ var
+     var
       x = caml_wrap_exception(x$0),
        /*<<printexc.ml:90:39>>*/ ___ = to_string(x);
       /*<<printexc.ml:90:4>>*/  /*<<printexc.ml:90:4>>*/ caml_call2
@@ -22557,7 +22275,7 @@
     /*<<printexc.ml:92:11>>*/ }
    function catch$0(fct, arg){
      /*<<printexc.ml:95:2>>*/ try{
-      /*<<printexc.ml:96:4>>*/  /*<<printexc.ml:96:4>>*/ var
+      /*<<printexc.ml:96:4>>*/ var
       _Z_ =  /*<<printexc.ml:96:4>>*/ caml_call1(fct, arg);
       /*<<printexc.ml:96:4>>*/ return _Z_;
     }
@@ -22565,8 +22283,7 @@
      var x = caml_wrap_exception(x$0);
       /*<<printexc.ml:98:4>>*/  /*<<printexc.ml:98:4>>*/ caml_call1
       (Stdlib[63], Stdlib[39]);
-      /*<<printexc.ml:99:39>>*/  /*<<printexc.ml:99:39>>*/ var
-      _Y_ = to_string(x);
+      /*<<printexc.ml:99:39>>*/ var _Y_ = to_string(x);
       /*<<printexc.ml:99:4>>*/  /*<<printexc.ml:99:4>>*/ caml_call2
       (Stdlib_Printf[3], _g_, _Y_);
       /*<<printexc.ml:99:4>>*/ return  /*<<printexc.ml:99:4>>*/ caml_call1
@@ -22587,7 +22304,7 @@
              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
      /*<<printexc.ml:146:75>>*/ }
      /*<<printexc.ml:148:2>>*/ if(0 === slot[0]){
-      /*<<printexc.ml:162:14>>*/ var
+     var
       lines =
         slot[3] === slot[6]
          ?  /*<<printexc.ml:157:10>>*/ caml_call2
@@ -22605,12 +22322,12 @@
               (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)];
     }
     if(slot[1])  /*<<printexc.ml:151:50>>*/ return 0;
-     /*<<printexc.ml:153:44>>*/  /*<<printexc.ml:153:44>>*/ var _X_ = info(0);
+     /*<<printexc.ml:153:44>>*/ var _X_ = info(0);
      /*<<printexc.ml:153:8>>*/ return [0,
              /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)];
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
-     /*<<printexc.ml:179:2>>*/  /*<<printexc.ml:179:36>>*/ var
+     /*<<printexc.ml:179:36>>*/ var
      backtrace = convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:169:6>>*/ return  /*<<printexc.ml:169:6>>*/ caml_call2
@@ -22619,15 +22336,14 @@
     if(_P_ >= 0){
      var i = _O_;
      for(;;){
-       /*<<printexc.ml:173:14>>*/  /*<<printexc.ml:173:14>>*/ var
+       /*<<printexc.ml:173:14>>*/ var
        match = format_backtrace_slot(i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
         /*<<printexc.ml:175:24>>*/  /*<<printexc.ml:175:24>>*/ caml_call3
         (Stdlib_Printf[1], outchan, _l_, str);
       }
-       /*<<printexc.ml:172:6>>*/  /*<<printexc.ml:172:6>>*/ var
-       _Q_ = i + 1 | 0;
+       /*<<printexc.ml:172:6>>*/ var _Q_ = i + 1 | 0;
       if(_P_ === i) break;
       i = _Q_;
      }
@@ -22640,11 +22356,11 @@
               /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra(0));
     /*<<printexc.ml:183:52>>*/ }
    function raw_backtrace_to_string(raw_backtrace){
-     /*<<printexc.ml:199:2>>*/  /*<<printexc.ml:199:22>>*/ var
+     /*<<printexc.ml:199:22>>*/ var
      backtrace = convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_;
-     /*<<printexc.ml:190:14>>*/ var
+    var
      a = backtrace[1],
       /*<<printexc.ml:190:14>>*/ b =
         /*<<printexc.ml:190:14>>*/ caml_call1(Stdlib_Buffer[1], 1024),
@@ -22653,15 +22369,14 @@
     if(_M_ >= 0){
      var i = _L_;
      for(;;){
-       /*<<printexc.ml:192:14>>*/  /*<<printexc.ml:192:14>>*/ var
+       /*<<printexc.ml:192:14>>*/ var
        match = format_backtrace_slot(i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
         /*<<printexc.ml:194:24>>*/  /*<<printexc.ml:194:24>>*/ caml_call3
         (Stdlib_Printf[5], b, _n_, str);
       }
-       /*<<printexc.ml:191:6>>*/  /*<<printexc.ml:191:6>>*/ var
-       _N_ = i + 1 | 0;
+       /*<<printexc.ml:191:6>>*/ var _N_ = i + 1 | 0;
       if(_M_ === i) break;
       i = _N_;
      }
@@ -22687,7 +22402,7 @@
      /*<<printexc.ml:232:39>>*/ return 0;
     /*<<printexc.ml:233:38>>*/ }
    function backtrace_slots(raw_backtrace){
-     /*<<printexc.ml:242:2>>*/  /*<<printexc.ml:242:8>>*/ var
+     /*<<printexc.ml:242:8>>*/ var
      match = convert_raw_backtrace(raw_backtrace);
     if(! match)  /*<<printexc.ml:243:14>>*/ return 0;
     var backtrace = match[1], i$1 = backtrace.length - 2 | 0, i = i$1;
@@ -22718,7 +22433,7 @@
     /*<<printexc.ml:278:69>>*/ }
    function register_printer(fn){
      /*<<printexc.ml:284:2>>*/ for(;;){
-      /*<<printexc.ml:284:21>>*/ var
+     var
        /*<<printexc.ml:284:21>>*/ old_printers =
          /*<<printexc.ml:284:21>>*/ caml_call1(Stdlib_Atomic[3], printers),
        /*<<printexc.ml:285:21>>*/ new_printers = [0, fn, old_printers],
@@ -22736,13 +22451,11 @@
             : x;
     /*<<printexc.ml:293:44>>*/ }
    function exn_slot_id(x){
-     /*<<printexc.ml:296:2>>*/  /*<<printexc.ml:296:13>>*/ var
-     slot = exn_slot(x);
+     /*<<printexc.ml:296:13>>*/ var slot = exn_slot(x);
      /*<<printexc.ml:297:11>>*/ return slot[2];
     /*<<printexc.ml:297:36>>*/ }
    function exn_slot_name(x){
-     /*<<printexc.ml:300:2>>*/  /*<<printexc.ml:300:13>>*/ var
-     slot = exn_slot(x);
+     /*<<printexc.ml:300:13>>*/ var slot = exn_slot(x);
      /*<<printexc.ml:301:11>>*/ return slot[1];
     /*<<printexc.ml:301:39>>*/ }
    var
@@ -22759,15 +22472,14 @@
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
        cst_Fatal_error_exception_s];
    function default_uncaught_exception_han(exn, raw_backtrace){
-     /*<<printexc.ml:323:2>>*/  /*<<printexc.ml:323:40>>*/ var
-     _F_ = to_string(exn);
+     /*<<printexc.ml:323:40>>*/ var _F_ = to_string(exn);
      /*<<printexc.ml:323:2>>*/  /*<<printexc.ml:323:2>>*/ caml_call2
      (Stdlib_Printf[3], _o_, _F_);
      /*<<printexc.ml:324:2>>*/ print_raw_backtrace(Stdlib[40], raw_backtrace);
-     /*<<printexc.ml:325:15>>*/  /*<<printexc.ml:325:15>>*/ var
+     /*<<printexc.ml:325:15>>*/ var
      status =  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status(0);
     if(status < 0){
-      /*<<printexc.ml:327:26>>*/ var
+     var
        /*<<printexc.ml:327:26>>*/ _G_ =
          /*<<printexc.ml:327:26>>*/ caml_call1(Stdlib[18], status),
        /*<<printexc.ml:327:18>>*/ _H_ = caml_check_bound(errors, _G_)[1 + _G_];
@@ -22777,7 +22489,7 @@
      /*<<printexc.ml:327:4>>*/ return  /*<<printexc.ml:327:4>>*/ caml_call1
             (Stdlib[63], Stdlib[40]);
     /*<<printexc.ml:328:14>>*/ }
-    /*<<printexc.ml:330:33>>*/  /*<<printexc.ml:330:33>>*/ var
+    /*<<printexc.ml:330:33>>*/ var
     uncaught_exception_handler = [0, default_uncaught_exception_han];
    function set_uncaught_exception_handler(fn){
      /*<<printexc.ml:332:40>>*/ uncaught_exception_handler[1] = fn;
@@ -22811,14 +22523,14 @@
       }
       catch(_E_){}
        /*<<printexc.ml:353:4>>*/ try{
-        /*<<printexc.ml:354:6>>*/ var
+       var
          /*<<printexc.ml:354:6>>*/ _A_ =
            /*<<printexc.ml:354:6>>*/ caml_call2
            (uncaught_exception_handler[1], exn$0, raw_backtrace),
         _z_ = _A_;
       }
       catch(exn$1){
-        /*<<printexc.ml:338:4>>*/ var
+       var
         exn = caml_wrap_exception(exn$1),
          /*<<printexc.ml:338:4>>*/ raw_backtrace$0 =
            /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0),
@@ -22827,8 +22539,7 @@
         (Stdlib_Printf[3], _p_, _x_);
         /*<<printexc.ml:358:6>>*/ print_raw_backtrace
         (Stdlib[40], raw_backtrace);
-        /*<<printexc.ml:360:8>>*/  /*<<printexc.ml:360:8>>*/ var
-        _y_ = to_string(exn);
+        /*<<printexc.ml:360:8>>*/ var _y_ = to_string(exn);
         /*<<printexc.ml:359:6>>*/  /*<<printexc.ml:359:6>>*/ caml_call2
         (Stdlib_Printf[3], _q_, _y_);
         /*<<printexc.ml:361:6>>*/ print_raw_backtrace
@@ -22903,16 +22614,17 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
+     /*<<?>>*/ 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){
+   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]);
@@ -22934,7 +22646,7 @@
    function negate(p, v){
      /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v);
     /*<<fun.ml:20:26>>*/ }
-    /*<<fun.ml:22:0>>*/ var
+   var
      /*<<fun.ml:22:0>>*/ Finally_raised =
       [248, "Stdlib.Fun.Finally_raised", runtime.caml_fresh_oo_id(0)],
     cst_Fun_Finally_raised = "Fun.Finally_raised: ";
@@ -22943,7 +22655,7 @@
      function(param){
        /*<<fun.ml:24:38>>*/ if(param[1] !== Finally_raised)
         /*<<fun.ml:26:7>>*/ return 0;
-       /*<<fun.ml:25:55>>*/ var
+      var
        exn = param[2],
         /*<<fun.ml:25:55>>*/ _a_ =
           /*<<fun.ml:25:55>>*/ caml_call1(Stdlib_Printexc[1], exn);
@@ -22959,7 +22671,7 @@
        /*<<fun.ml:30:8>>*/ return;
      }
      catch(e$0){
-       /*<<fun.ml:31:15>>*/ var
+      var
        e = caml_wrap_exception(e$0),
         /*<<fun.ml:31:15>>*/ bt =
           /*<<fun.ml:31:15>>*/ caml_call1(Stdlib_Printexc[12], 0),
@@ -22970,11 +22682,11 @@
      }
      /*<<fun.ml:32:57>>*/ }
      /*<<fun.ml:34:2>>*/ try{
-      /*<<fun.ml:34:8>>*/  /*<<fun.ml:34:8>>*/ var
+      /*<<fun.ml:34:8>>*/ var
       result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
     }
     catch(work_exn$0){
-      /*<<fun.ml:37:20>>*/ var
+     var
       work_exn = caml_wrap_exception(work_exn$0),
        /*<<fun.ml:37:20>>*/ work_bt =
          /*<<fun.ml:37:20>>*/ caml_call1(Stdlib_Printexc[12], 0);
@@ -22999,25 +22711,25 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst = "\n",
-    caml_ml_string_length = runtime.caml_ml_string_length;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst = "\n",
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length;
+   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){
+   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){
+   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){
+   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]);
@@ -23106,7 +22818,7 @@
    function eventlog_resume(param){ /*<<gc.ml:66:25>>*/ return 0;
     /*<<gc.ml:66:27>>*/ }
    function print_stat(c){
-     /*<<gc.ml:71:2>>*/  /*<<gc.ml:71:11>>*/ var
+     /*<<gc.ml:71:11>>*/ var
      st =  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat(0);
      /*<<gc.ml:72:2>>*/  /*<<gc.ml:72:2>>*/ caml_call3
      (Stdlib_Printf[1], c, _a_, st[4]);
@@ -23118,7 +22830,7 @@
      (Stdlib_Printf[1], c, _d_, st[17]);
      /*<<gc.ml:76:2>>*/  /*<<gc.ml:76:2>>*/ caml_call2
      (Stdlib_Printf[1], c, _e_);
-     /*<<gc.ml:77:25>>*/  /*<<gc.ml:77:25>>*/ var
+     /*<<gc.ml:77:25>>*/ var
      l1 =
         /*<<gc.ml:77:25>>*/ caml_ml_string_length
         ( /*<<gc.ml:77:25>>*/ caml_call2(Stdlib_Printf[4], _f_, st[1]));
@@ -23130,7 +22842,7 @@
      (Stdlib_Printf[1], c, _i_, l1, st[3]);
      /*<<gc.ml:81:2>>*/  /*<<gc.ml:81:2>>*/ caml_call2
      (Stdlib_Printf[1], c, _j_);
-     /*<<gc.ml:82:25>>*/  /*<<gc.ml:82:25>>*/ var
+     /*<<gc.ml:82:25>>*/ var
      l2 =
         /*<<gc.ml:82:25>>*/ caml_ml_string_length
         ( /*<<gc.ml:82:25>>*/ caml_call2(Stdlib_Printf[4], _k_, st[15]));
@@ -23155,7 +22867,7 @@
     return caml_call3(Stdlib_Printf[1], c, _u_, st[7]);
     /*<<gc.ml:92:46>>*/ }
    function allocated_bytes(param){
-     /*<<gc.ml:96:2>>*/ var
+    var
       /*<<gc.ml:96:22>>*/ match =
         /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters(0),
      ma = match[3],
@@ -23168,7 +22880,7 @@
             (Stdlib_Atomic[4], a, 0);
     /*<<gc.ml:115:39>>*/ }
    function create_alarm(f){
-     /*<<gc.ml:118:2>>*/  /*<<gc.ml:118:24>>*/ var
+     /*<<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
      (Stdlib_Domain[6],
@@ -23177,7 +22889,7 @@
        /*<<gc.ml:119:52>>*/ });
     return _y_;
     /*<<gc.ml:121:13>>*/ }
-    /*<<gc.ml:142:23>>*/  /*<<gc.ml:142:23>>*/ var
+    /*<<gc.ml:142:23>>*/ var
     null_tracker =
       [0,
        function(param){ /*<<gc.ml:143:30>>*/ return 0; /*<<gc.ml:143:34>>*/ },
@@ -23220,34 +22932,35 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_ba_dim_1 = runtime.caml_ba_dim_1,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-    caml_ml_input_bigarray = runtime.caml_ml_input_bigarray,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_ba_dim_1 = runtime.caml_ba_dim_1,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+     /*<<?>>*/ caml_ml_input_bigarray = runtime.caml_ml_input_bigarray,
+     /*<<?>>*/ 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){
+   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){
+   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){
+   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){
+   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]);
@@ -23263,7 +22976,7 @@
     open_text = Stdlib[79],
     open_gen = Stdlib[81];
    function with_open(openfun, s, f){
-     /*<<in_channel.ml:35:2>>*/  /*<<in_channel.ml:35:11>>*/ var
+     /*<<in_channel.ml:35:11>>*/ var
      ic =  /*<<in_channel.ml:35:11>>*/ caml_call1(openfun, s);
      /*<<in_channel.ml:37:4>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call2
             (Stdlib_Fun[5],
@@ -23296,7 +23009,7 @@
     close_noerr = Stdlib[94];
    function input_char(ic){
      /*<<in_channel.ml:55:2>>*/ try{
-      /*<<in_channel.ml:55:8>>*/  /*<<in_channel.ml:55:8>>*/ var
+      /*<<in_channel.ml:55:8>>*/ var
       c =  /*<<in_channel.ml:55:8>>*/ caml_call1(Stdlib[82], ic);
     }
     catch(_x_){
@@ -23308,7 +23021,7 @@
     /*<<in_channel.ml:57:33>>*/ }
    function input_byte(ic){
      /*<<in_channel.ml:60:2>>*/ try{
-      /*<<in_channel.ml:60:8>>*/  /*<<in_channel.ml:60:8>>*/ var
+      /*<<in_channel.ml:60:8>>*/ var
       n =  /*<<in_channel.ml:60:8>>*/ caml_call1(Stdlib[87], ic);
     }
     catch(_v_){
@@ -23320,7 +23033,7 @@
     /*<<in_channel.ml:62:33>>*/ }
    function input_line(ic){
      /*<<in_channel.ml:65:2>>*/ try{
-      /*<<in_channel.ml:65:8>>*/  /*<<in_channel.ml:65:8>>*/ var
+      /*<<in_channel.ml:65:8>>*/ var
       s =  /*<<in_channel.ml:65:8>>*/ caml_call1(Stdlib[83], ic);
     }
     catch(_t_){
@@ -23371,7 +23084,7 @@
      var ofs = ofs$1, len = len$1;
       /*<<in_channel.ml:86:2>>*/ for(;;){
       if(0 >= len)  /*<<in_channel.ml:86:19>>*/ return _b_;
-       /*<<in_channel.ml:87:12>>*/  /*<<in_channel.ml:87:12>>*/ var
+       /*<<in_channel.ml:87:12>>*/ var
        r =
           /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
           (ic, buf, ofs, len);
@@ -23387,7 +23100,7 @@
     /*<<in_channel.ml:96:50>>*/ }
    function really_input_string(ic, len){
      /*<<in_channel.ml:99:2>>*/ try{
-      /*<<in_channel.ml:99:8>>*/  /*<<in_channel.ml:99:8>>*/ var
+      /*<<in_channel.ml:99:8>>*/ var
       s =  /*<<in_channel.ml:99:8>>*/ caml_call2(Stdlib[86], ic, len);
     }
     catch(_p_){
@@ -23398,10 +23111,10 @@
      /*<<in_channel.ml:100:9>>*/ return [0, s];
     /*<<in_channel.ml:101:33>>*/ }
    function read_upto(ic, buf, ofs, len){
-     /*<<in_channel.ml:106:2>>*/ var ofs$0 = ofs, len$0 = len;
+    var ofs$0 = ofs, len$0 = len;
      /*<<in_channel.ml:107:4>>*/ for(;;){
      if(0 !== len$0){
-       /*<<in_channel.ml:109:14>>*/  /*<<in_channel.ml:109:14>>*/ var
+       /*<<in_channel.ml:109:14>>*/ var
        r =
           /*<<in_channel.ml:109:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs$0, len$0);
@@ -23416,15 +23129,14 @@
     }
     /*<<in_channel.ml:116:20>>*/ }
    function ensure(buf, ofs, n){
-     /*<<in_channel.ml:131:2>>*/ var len = caml_ml_bytes_length(buf);
+    var len = caml_ml_bytes_length(buf);
     if((ofs + n | 0) <= len)  /*<<in_channel.ml:132:25>>*/ return buf;
-     /*<<in_channel.ml:134:18>>*/  /*<<in_channel.ml:134:18>>*/ var
-     new_len = [0, len];
+     /*<<in_channel.ml:134:18>>*/ var new_len = [0, len];
     for(;;){
      if(new_len[1] >= (ofs + n | 0)) break;
      new_len[1] = (2 * new_len[1] | 0) + 1 | 0;
     }
-     /*<<in_channel.ml:148:18>>*/ var
+    var
      new_len$0 = new_len[1],
      new_len$1 =
        new_len$0 <= Stdlib_Sys[12]
@@ -23441,10 +23153,9 @@
      /*<<in_channel.ml:149:4>>*/ return new_buf;
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
-     /*<<in_channel.ml:154:2>>*/  /*<<in_channel.ml:154:2>>*/ var
-     chunk_size = 65536;
+     /*<<in_channel.ml:154:2>>*/ var chunk_size = 65536;
      /*<<in_channel.ml:155:2>>*/ try{
-      /*<<in_channel.ml:157:36>>*/ var
+     var
        /*<<in_channel.ml:157:36>>*/ _k_ =
          /*<<in_channel.ml:157:36>>*/ caml_call1(Stdlib[91], ic),
        /*<<in_channel.ml:157:6>>*/ _l_ =
@@ -23456,7 +23167,7 @@
      if(_i_[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(_i_, 0);
      var initial_size = -1;
     }
-     /*<<in_channel.ml:161:2>>*/ var
+    var
       /*<<in_channel.ml:161:2>>*/ initial_size$0 =
        0 <= initial_size ? initial_size : chunk_size,
      initial_size$1 =
@@ -23469,7 +23180,7 @@
       /*<<in_channel.ml:171:4>>*/ return  /*<<in_channel.ml:171:4>>*/ caml_call3
              (Stdlib_Bytes[8], buf, 0, nread);
      /*<<in_channel.ml:172:7>>*/ try{
-      /*<<in_channel.ml:173:10>>*/  /*<<in_channel.ml:173:10>>*/ var
+      /*<<in_channel.ml:173:10>>*/ var
       c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);
     }
     catch(_m_){
@@ -23479,16 +23190,15 @@
               (Stdlib_Bytes[44], buf);
      throw caml_maybe_attach_backtrace(_j_, 0);
     }
-     /*<<in_channel.ml:190:18>>*/  /*<<in_channel.ml:190:18>>*/ var
-     buf$2 = ensure(buf, nread, 65537);
+     /*<<in_channel.ml:190:18>>*/ var buf$2 = ensure(buf, nread, 65537);
      /*<<in_channel.ml:191:8>>*/  /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set
      (buf$2, nread, c);
-     /*<<in_channel.ml:191:8>>*/ var
+    var
       /*<<in_channel.ml:191:8>>*/ ofs$1 = nread + 1 | 0,
      buf$0 = buf$2,
      ofs = ofs$1;
      /*<<in_channel.ml:180:10>>*/ for(;;){
-      /*<<in_channel.ml:180:20>>*/ var
+     var
        /*<<in_channel.ml:180:20>>*/ buf$1 = ensure(buf$0, ofs, chunk_size),
       rem = caml_ml_bytes_length(buf$1) - ofs | 0,
        /*<<in_channel.ml:184:18>>*/ r = read_upto(ic, buf$1, ofs, rem);
@@ -23502,7 +23212,7 @@
     /*<<in_channel.ml:193:5>>*/ }
    function input_lines(ic){
      /*<<in_channel.ml:196:2>>*/ try{
-      /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ var
+      /*<<in_channel.ml:196:8>>*/ var
       line =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
     }
     catch(_h_){
@@ -23510,13 +23220,13 @@
      if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_e_, 0);
     }
-     /*<<in_channel.ml:197:12>>*/ var
+    var
       /*<<in_channel.ml:197:12>>*/ block = [0, line, 24029],
      dst = block,
      offset = 1;
      /*<<in_channel.ml:196:2>>*/ for(;;){
       /*<<in_channel.ml:196:2>>*/ try{
-       /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ var
+       /*<<in_channel.ml:196:8>>*/ var
        line$0 =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
      }
      catch(_g_){
@@ -23525,18 +23235,17 @@
       dst[1 + offset] = 0;
        /*<<in_channel.ml:197:20>>*/ return block;
      }
-      /*<<in_channel.ml:197:12>>*/  /*<<in_channel.ml:197:12>>*/ var
-      dst$0 = [0, line$0, 24029];
+      /*<<in_channel.ml:197:12>>*/ var dst$0 = [0, line$0, 24029];
      dst[1 + offset] = dst$0;
      dst = dst$0;
      offset = 1;
     }
     /*<<in_channel.ml:198:31>>*/ }
    function fold_lines(f, accu, ic){
-     /*<<in_channel.ml:201:2>>*/ var accu$0 = accu;
+    var accu$0 = accu;
      /*<<in_channel.ml:201:2>>*/ for(;;){
       /*<<in_channel.ml:201:2>>*/ try{
-       /*<<in_channel.ml:201:8>>*/  /*<<in_channel.ml:201:8>>*/ var
+       /*<<in_channel.ml:201:8>>*/ var
        line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);
      }
      catch(_d_){
@@ -23544,7 +23253,7 @@
       if(_c_ === Stdlib[12])  /*<<in_channel.ml:203:29>>*/ return accu$0;
       throw caml_maybe_attach_backtrace(_c_, 0);
      }
-      /*<<in_channel.ml:202:25>>*/  /*<<in_channel.ml:202:25>>*/ var
+      /*<<in_channel.ml:202:25>>*/ var
       accu$1 =  /*<<in_channel.ml:202:25>>*/ caml_call2(f, accu$0, line);
      accu$0 = accu$1;
     }
@@ -23589,13 +23298,13 @@
 (function
   (globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime;
-    /*<<?>>*/ function caml_call1(f, a0){
+    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   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){
+   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]);
@@ -23610,7 +23319,7 @@
     open_text = Stdlib[60],
     open_gen = Stdlib[62];
    function with_open(openfun, s, f){
-     /*<<out_channel.ml:36:2>>*/  /*<<out_channel.ml:36:11>>*/ var
+     /*<<out_channel.ml:36:11>>*/ var
      oc =  /*<<out_channel.ml:36:11>>*/ caml_call1(openfun, s);
      /*<<out_channel.ml:38:4>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call2
             (Stdlib_Fun[5],
@@ -23705,32 +23414,33 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst = "",
-    cst_Digest_of_hex$1 = "Digest.of_hex",
-    cst_Digest_substring$1 = "Digest.substring",
-    cst_Digest_to_hex$1 = "Digest.to_hex",
-    caml_blake2_final = runtime.caml_blake2_final,
-    caml_blake2_string = runtime.caml_blake2_string,
-    caml_blake2_update = runtime.caml_blake2_update,
-    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_md5_chan = runtime.caml_md5_chan,
-    caml_md5_string = runtime.caml_md5_string,
-    caml_ml_string_length = runtime.caml_ml_string_length,
-    caml_string_get = runtime.caml_string_get;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst = "",
+     /*<<?>>*/ cst_Digest_of_hex$1 = "Digest.of_hex",
+     /*<<?>>*/ cst_Digest_substring$1 = "Digest.substring",
+     /*<<?>>*/ cst_Digest_to_hex$1 = "Digest.to_hex",
+     /*<<?>>*/ caml_blake2_final = runtime.caml_blake2_final,
+     /*<<?>>*/ caml_blake2_string = runtime.caml_blake2_string,
+     /*<<?>>*/ caml_blake2_update = runtime.caml_blake2_update,
+     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_md5_chan = runtime.caml_md5_chan,
+     /*<<?>>*/ caml_md5_string = runtime.caml_md5_string,
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
+     /*<<?>>*/ caml_string_get = runtime.caml_string_get;
+   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){
+   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_call4(f, a0, a1, a2, a3){
+   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]);
@@ -23749,12 +23459,11 @@
     cst_Digest_to_hex = cst_Digest_to_hex$1,
     cst_Digest_of_hex$0 = cst_Digest_of_hex$1;
    function hex_of_string(d){
-     /*<<digest.ml:19:2>>*/ function char_hex(n){
-      /*<<digest.ml:20:4>>*/ var
-      _l_ = 10 <= n ? (97 + n | 0) - 10 | 0 : 48 + n | 0;
+    function char_hex(n){
+     var _l_ = 10 <= n ? (97 + n | 0) - 10 | 0 : 48 + n | 0;
      return caml_call1(Stdlib_Char[1], _l_);
      /*<<digest.ml:21:52>>*/ }
-     /*<<digest.ml:22:2>>*/ var
+    var
       /*<<digest.ml:22:2>>*/ len =
         /*<<digest.ml:22:2>>*/ caml_ml_string_length(d),
       /*<<digest.ml:23:15>>*/ result =
@@ -23764,11 +23473,11 @@
     if(_j_ >= 0){
      var i = _i_;
      for(;;){
-       /*<<digest.ml:25:22>>*/  /*<<digest.ml:25:22>>*/ var
+       /*<<digest.ml:25:22>>*/ var
        x =  /*<<digest.ml:25:22>>*/ caml_string_get(d, i);
       caml_bytes_unsafe_set(result, i * 2 | 0, char_hex(x >>> 4 | 0));
       caml_bytes_unsafe_set(result, (i * 2 | 0) + 1 | 0, char_hex(x & 15));
-       /*<<digest.ml:24:2>>*/  /*<<digest.ml:24:2>>*/ var _k_ = i + 1 | 0;
+       /*<<digest.ml:24:2>>*/ var _k_ = i + 1 | 0;
       if(_j_ === i) break;
       i = _k_;
      }
@@ -23777,7 +23486,7 @@
             (Stdlib_Bytes[44], result);
     /*<<digest.ml:29:31>>*/ }
    function string_of_hex(s){
-     /*<<digest.ml:32:2>>*/ function digit(c){
+    function digit(c){
       /*<<digest.ml:33:4>>*/ if(65 <= c){
       if(97 <= c){
        if(103 > c) return (c - 97 | 0) + 10 | 0;
@@ -23792,7 +23501,7 @@
             (Stdlib_String[2],
              caml_ml_string_length(s) / 2 | 0,
              function(i){
-               /*<<digest.ml:39:46>>*/ var
+              var
                i$0 = 2 * i | 0,
                 /*<<digest.ml:38:35>>*/ _g_ =
                  digit
@@ -23824,7 +23533,7 @@
              ( /*<<digest.ml:88:11>>*/ caml_call1(Stdlib_Bytes[44], b));
      /*<<digest.ml:88:37>>*/ }
     function substring(str, ofs, len){
-      /*<<digest.ml:91:4>>*/ var _d_ = ofs < 0 ? 1 : 0;
+     var _d_ = ofs < 0 ? 1 : 0;
      if(_d_)
       var _e_ = _d_;
      else
@@ -23844,7 +23553,7 @@
               len);
      /*<<digest.ml:96:48>>*/ }
     function channel(ic, toread){
-      /*<<digest.ml:99:4>>*/ var
+     var
        /*<<digest.ml:99:4>>*/ buf_size = 4096,
        /*<<digest.ml:100:14>>*/ buf =
          /*<<digest.ml:100:14>>*/ caml_create_bytes(4096),
@@ -23856,7 +23565,7 @@
        if(0 === toread$0)
          /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
                 (ctx, hash_length);
-        /*<<digest.ml:112:44>>*/ var
+       var
          /*<<digest.ml:112:44>>*/ _c_ =
            /*<<digest.ml:112:44>>*/ caml_call2
            (Stdlib_Int[10], buf_size, toread$0),
@@ -23877,7 +23586,7 @@
      }
      else
        /*<<digest.ml:104:8>>*/ for(;;){
-        /*<<digest.ml:104:16>>*/  /*<<digest.ml:104:16>>*/ var
+        /*<<digest.ml:104:16>>*/ var
         n$0 =
            /*<<digest.ml:104:16>>*/ caml_call4
            (Stdlib_In_channel[16], ic, buf, 0, buf_size);
@@ -24039,35 +23748,35 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_Bigarray_Array3_of_array_n$1 =
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_Bigarray_Array3_of_array_n$1 =
       "Bigarray.Array3.of_array: non-cubic data",
-    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,
-    caml_ba_dim_2 = runtime.caml_ba_dim_2,
-    caml_ba_kind = runtime.caml_ba_kind,
-    caml_ba_num_dims = runtime.caml_ba_num_dims,
-    caml_ba_reshape = runtime.caml_ba_reshape,
-    caml_ba_set_1 = runtime.caml_ba_set_1,
-    caml_ba_set_2 = runtime.caml_ba_set_2,
-    caml_ba_set_3 = runtime.caml_ba_set_3,
-    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){
+     /*<<?>>*/ 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,
+     /*<<?>>*/ caml_ba_dim_2 = runtime.caml_ba_dim_2,
+     /*<<?>>*/ caml_ba_kind = runtime.caml_ba_kind,
+     /*<<?>>*/ caml_ba_num_dims = runtime.caml_ba_num_dims,
+     /*<<?>>*/ caml_ba_reshape = runtime.caml_ba_reshape,
+     /*<<?>>*/ caml_ba_set_1 = runtime.caml_ba_set_1,
+     /*<<?>>*/ caml_ba_set_2 = runtime.caml_ba_set_2,
+     /*<<?>>*/ caml_ba_set_3 = runtime.caml_ba_set_3,
+     /*<<?>>*/ 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
             ? f(a0)
             : runtime.caml_call_gen(f, [a0]);
    }
-    /*<<?>>*/ function caml_call2(f, a0, a1){
+   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){
+   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]);
@@ -24124,7 +23833,7 @@
       (arr, idx,  /*<<bigarray.ml:108:47>>*/ caml_call1(f, idx));
       /*<<bigarray.ml:108:35>>*/ return;
     }
-     /*<<bigarray.ml:109:27>>*/ var
+    var
       /*<<bigarray.ml:109:27>>*/ _am_ =
        caml_check_bound(max, col)[1 + col] - 1 | 0,
       /*<<bigarray.ml:109:9>>*/ _al_ = 0;
@@ -24133,8 +23842,7 @@
      for(;;){
        /*<<bigarray.ml:110:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
        /*<<bigarray.ml:111:11>>*/ cloop(arr, idx, f, col + 1 | 0, max);
-       /*<<bigarray.ml:111:11>>*/  /*<<bigarray.ml:111:11>>*/ var
-       _an_ = j + 1 | 0;
+       /*<<bigarray.ml:111:11>>*/ var _an_ = j + 1 | 0;
       if(_am_ === j) break;
       j = _an_;
      }
@@ -24146,7 +23854,7 @@
       (arr, idx,  /*<<bigarray.ml:114:32>>*/ caml_call1(f, idx));
       /*<<bigarray.ml:114:20>>*/ return;
     }
-     /*<<bigarray.ml:115:22>>*/ var
+    var
       /*<<bigarray.ml:115:22>>*/ _aj_ = caml_check_bound(max, col)[1 + col],
       /*<<bigarray.ml:115:9>>*/ _ai_ = 1;
     if(_aj_ >= 1){
@@ -24154,15 +23862,14 @@
      for(;;){
        /*<<bigarray.ml:116:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
        /*<<bigarray.ml:117:11>>*/ floop(arr, idx, f, col - 1 | 0, max);
-       /*<<bigarray.ml:117:11>>*/  /*<<bigarray.ml:117:11>>*/ var
-       _ak_ = j + 1 | 0;
+       /*<<bigarray.ml:117:11>>*/ var _ak_ = j + 1 | 0;
       if(_aj_ === j) break;
       j = _ak_;
      }
     }
     /*<<bigarray.ml:118:13>>*/ }
    function init(kind, layout, dims, f){
-     /*<<bigarray.ml:120:4>>*/ var
+    var
       /*<<bigarray.ml:120:14>>*/ arr =
         /*<<bigarray.ml:120:14>>*/ caml_ba_create(kind, layout, dims),
       /*<<bigarray.ml:121:4>>*/ dlen = dims.length - 1;
@@ -24183,7 +23890,7 @@
               arr);
     /*<<bigarray.ml:124:77>>*/ }
    function dims(a){
-     /*<<bigarray.ml:129:4>>*/ var
+    var
       /*<<bigarray.ml:129:12>>*/ n =
         /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims(a),
       /*<<bigarray.ml:130:12>>*/ d =
@@ -24193,11 +23900,10 @@
     if(_af_ >= 0){
      var i = _ae_;
      for(;;){
-       /*<<bigarray.ml:131:33>>*/  /*<<bigarray.ml:131:33>>*/ var
+       /*<<bigarray.ml:131:33>>*/ var
        _ag_ =  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim(a, i);
        /*<<bigarray.ml:131:24>>*/ caml_check_bound(d, i)[1 + i] = _ag_;
-       /*<<bigarray.ml:131:24>>*/  /*<<bigarray.ml:131:24>>*/ var
-       _ah_ = i + 1 | 0;
+       /*<<bigarray.ml:131:24>>*/ var _ah_ = i + 1 | 0;
       if(_af_ === i) break;
       i = _ah_;
      }
@@ -24205,7 +23911,7 @@
      /*<<bigarray.ml:132:4>>*/ return d;
     /*<<bigarray.ml:132:5>>*/ }
    function size_in_bytes(arr){
-     /*<<bigarray.ml:140:4>>*/ var
+    var
       /*<<bigarray.ml:140:63>>*/ _ac_ = dims(arr),
       /*<<bigarray.ml:140:38>>*/ _ad_ =
         /*<<bigarray.ml:140:38>>*/ caml_call3
@@ -24223,7 +23929,7 @@
             (arr, [0]);
     /*<<bigarray.ml:162:37>>*/ }
    function set(arr){
-     /*<<bigarray.ml:163:16>>*/  /*<<bigarray.ml:163:16>>*/ var _aa_ = [0];
+     /*<<bigarray.ml:163:16>>*/ var _aa_ = [0];
      /*<<bigarray.ml:163:33>>*/ return function(_ab_){
       /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);};
     /*<<bigarray.ml:163:37>>*/ }
@@ -24232,8 +23938,7 @@
             ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind(arr));
     /*<<bigarray.ml:170:55>>*/ }
    function of_value(kind, layout, v){
-     /*<<bigarray.ml:176:4>>*/  /*<<bigarray.ml:176:12>>*/ var
-     a = create(kind, layout);
+     /*<<bigarray.ml:176:12>>*/ var a = create(kind, layout);
      /*<<bigarray.ml:177:4>>*/ set(a)(v);
      /*<<bigarray.ml:177:4>>*/ return a;
     /*<<bigarray.ml:178:5>>*/ }
@@ -24242,7 +23947,7 @@
             (kind, layout, [0, dim]);
     /*<<bigarray.ml:185:39>>*/ }
    function size_in_bytes$1(arr){
-     /*<<bigarray.ml:199:4>>*/  /*<<bigarray.ml:199:38>>*/ var
+     /*<<bigarray.ml:199:38>>*/ var
      _$_ =  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1(arr);
      /*<<bigarray.ml:199:4>>*/ return  /*<<bigarray.ml:199:4>>*/ caml_mul
             (kind_size_in_bytes( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
@@ -24255,33 +23960,28 @@
             :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice(a, [0, n]);
     /*<<bigarray.ml:205:76>>*/ }
    function init$0(kind, layout, dim, f){
-     /*<<bigarray.ml:213:4>>*/  /*<<bigarray.ml:213:14>>*/ var
-     arr = create$0(kind, layout, dim);
+     /*<<bigarray.ml:213:14>>*/ var arr = create$0(kind, layout, dim);
      /*<<bigarray.ml:214:4>>*/ if(layout){
-      /*<<bigarray.ml:211:4>>*/  /*<<bigarray.ml:211:4>>*/ var _Z_ = 1;
+      /*<<bigarray.ml:211:4>>*/ var _Z_ = 1;
      if(dim >= 1){
       var i$0 = _Z_;
       for(;;){
         /*<<bigarray.ml:211:24>>*/  /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
         (arr, i$0,  /*<<bigarray.ml:211:41>>*/ caml_call1(f, i$0));
-        /*<<bigarray.ml:211:24>>*/  /*<<bigarray.ml:211:24>>*/ var
-        ___ = i$0 + 1 | 0;
+        /*<<bigarray.ml:211:24>>*/ var ___ = i$0 + 1 | 0;
        if(dim === i$0) break;
        i$0 = ___;
       }
      }
       /*<<bigarray.ml:216:24>>*/ return arr;
     }
-     /*<<bigarray.ml:209:4>>*/ var
-     _X_ = dim - 1 | 0,
-      /*<<bigarray.ml:209:4>>*/ _W_ = 0;
+    var _X_ = dim - 1 | 0,  /*<<bigarray.ml:209:4>>*/ _W_ = 0;
     if(_X_ >= 0){
      var i = _W_;
      for(;;){
        /*<<bigarray.ml:209:29>>*/  /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
        (arr, i,  /*<<bigarray.ml:209:46>>*/ caml_call1(f, i));
-       /*<<bigarray.ml:209:29>>*/  /*<<bigarray.ml:209:29>>*/ var
-       _Y_ = i + 1 | 0;
+       /*<<bigarray.ml:209:29>>*/ var _Y_ = i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
@@ -24289,7 +23989,7 @@
      /*<<bigarray.ml:215:18>>*/ return arr;
     /*<<bigarray.ml:216:51>>*/ }
    function of_array(kind, layout, data){
-     /*<<bigarray.ml:218:4>>*/ var
+    var
       /*<<bigarray.ml:218:13>>*/ ba = create$0(kind, layout, data.length - 1),
       /*<<bigarray.ml:219:4>>*/ ofs = layout ? 1 : 0,
      _U_ = data.length - 2 | 0,
@@ -24299,8 +23999,7 @@
      for(;;){
        /*<<bigarray.ml:224:42>>*/  /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
        (ba, i + ofs | 0, caml_check_bound(data, i)[1 + i]);
-       /*<<bigarray.ml:224:42>>*/  /*<<bigarray.ml:224:42>>*/ var
-       _V_ = i + 1 | 0;
+       /*<<bigarray.ml:224:42>>*/ var _V_ = i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -24312,7 +24011,7 @@
             (kind, layout, [0, dim1, dim2]);
     /*<<bigarray.ml:231:46>>*/ }
    function size_in_bytes$2(arr){
-     /*<<bigarray.ml:247:4>>*/ var
+    var
       /*<<bigarray.ml:247:51>>*/ _R_ =
         /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2(arr),
       /*<<bigarray.ml:247:38>>*/ _S_ =
@@ -24333,55 +24032,46 @@
             (a, [0, n]);
     /*<<bigarray.ml:255:52>>*/ }
    function init$1(kind, layout, dim1, dim2, f){
-     /*<<bigarray.ml:271:4>>*/  /*<<bigarray.ml:271:14>>*/ var
-     arr = create$1(kind, layout, dim1, dim2);
+     /*<<bigarray.ml:271:14>>*/ var arr = create$1(kind, layout, dim1, dim2);
      /*<<bigarray.ml:272:4>>*/ if(layout){
-      /*<<bigarray.ml:265:4>>*/  /*<<bigarray.ml:265:4>>*/ var _N_ = 1;
+      /*<<bigarray.ml:265:4>>*/ var _N_ = 1;
      if(dim2 >= 1){
       var j$0 = _N_;
       for(;;){
-        /*<<bigarray.ml:266:6>>*/  /*<<bigarray.ml:266:6>>*/ var _O_ = 1;
+        /*<<bigarray.ml:266:6>>*/ var _O_ = 1;
        if(dim1 >= 1){
         var i$0 = _O_;
         for(;;){
           /*<<bigarray.ml:267:8>>*/  /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
           (arr, i$0, j$0,  /*<<bigarray.ml:267:27>>*/ caml_call2(f, i$0, j$0));
-          /*<<bigarray.ml:267:8>>*/  /*<<bigarray.ml:267:8>>*/ var
-          _Q_ = i$0 + 1 | 0;
+          /*<<bigarray.ml:267:8>>*/ var _Q_ = i$0 + 1 | 0;
          if(dim1 === i$0) break;
          i$0 = _Q_;
         }
        }
-        /*<<bigarray.ml:265:4>>*/  /*<<bigarray.ml:265:4>>*/ var
-        _P_ = j$0 + 1 | 0;
+        /*<<bigarray.ml:265:4>>*/ var _P_ = j$0 + 1 | 0;
        if(dim2 === j$0) break;
        j$0 = _P_;
       }
      }
       /*<<bigarray.ml:274:24>>*/ return arr;
     }
-     /*<<bigarray.ml:259:4>>*/ var
-     _I_ = dim1 - 1 | 0,
-      /*<<bigarray.ml:259:4>>*/ _H_ = 0;
+    var _I_ = dim1 - 1 | 0,  /*<<bigarray.ml:259:4>>*/ _H_ = 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-       /*<<bigarray.ml:260:6>>*/ var
-       _K_ = dim2 - 1 | 0,
-        /*<<bigarray.ml:260:6>>*/ _J_ = 0;
+      var _K_ = dim2 - 1 | 0,  /*<<bigarray.ml:260:6>>*/ _J_ = 0;
       if(_K_ >= 0){
        var j = _J_;
        for(;;){
          /*<<bigarray.ml:261:8>>*/  /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
          (arr, i, j,  /*<<bigarray.ml:261:27>>*/ caml_call2(f, i, j));
-         /*<<bigarray.ml:261:8>>*/  /*<<bigarray.ml:261:8>>*/ var
-         _M_ = j + 1 | 0;
+         /*<<bigarray.ml:261:8>>*/ var _M_ = j + 1 | 0;
         if(_K_ === j) break;
         j = _M_;
        }
       }
-       /*<<bigarray.ml:259:4>>*/  /*<<bigarray.ml:259:4>>*/ var
-       _L_ = i + 1 | 0;
+       /*<<bigarray.ml:259:4>>*/ var _L_ = i + 1 | 0;
       if(_I_ === i) break;
       i = _L_;
      }
@@ -24389,7 +24079,7 @@
      /*<<bigarray.ml:273:18>>*/ return arr;
     /*<<bigarray.ml:274:57>>*/ }
    function of_array$0(kind, layout, data){
-     /*<<bigarray.ml:276:4>>*/ var
+    var
      dim1 = data.length - 1,
       /*<<bigarray.ml:277:4>>*/ dim2 =
        0 === dim1 ? 0 : caml_check_bound(data, 0)[1].length - 1,
@@ -24400,12 +24090,11 @@
     if(_C_ >= 0){
      var i = _B_;
      for(;;){
-       /*<<bigarray.ml:285:16>>*/  /*<<bigarray.ml:285:16>>*/ var
-       row = caml_check_bound(data, i)[1 + i];
+       /*<<bigarray.ml:285:16>>*/ var row = caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
         /*<<bigarray.ml:287:8>>*/  /*<<bigarray.ml:287:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array2_of_array_n);
-       /*<<bigarray.ml:277:32>>*/ var
+      var
         /*<<bigarray.ml:277:32>>*/ _E_ = dim2 - 1 | 0,
         /*<<bigarray.ml:287:8>>*/ _D_ = 0;
       if(_E_ >= 0){
@@ -24413,14 +24102,12 @@
        for(;;){
          /*<<bigarray.ml:289:8>>*/  /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
          (ba, i + ofs | 0, j + ofs | 0, caml_check_bound(row, j)[1 + j]);
-         /*<<bigarray.ml:289:8>>*/  /*<<bigarray.ml:289:8>>*/ var
-         _G_ = j + 1 | 0;
+         /*<<bigarray.ml:289:8>>*/ var _G_ = j + 1 | 0;
         if(_E_ === j) break;
         j = _G_;
        }
       }
-       /*<<bigarray.ml:284:4>>*/  /*<<bigarray.ml:284:4>>*/ var
-       _F_ = i + 1 | 0;
+       /*<<bigarray.ml:284:4>>*/ var _F_ = i + 1 | 0;
       if(_C_ === i) break;
       i = _F_;
      }
@@ -24432,7 +24119,7 @@
             (kind, layout, [0, dim1, dim2, dim3]);
     /*<<bigarray.ml:298:52>>*/ }
    function size_in_bytes$3(arr){
-     /*<<bigarray.ml:316:4>>*/ var
+    var
       /*<<bigarray.ml:316:64>>*/ _y_ =
         /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3(arr),
       /*<<bigarray.ml:316:51>>*/ _z_ =
@@ -24465,18 +24152,18 @@
             (a, [0, n]);
     /*<<bigarray.ml:326:54>>*/ }
    function init$2(kind, layout, dim1, dim2, dim3, f){
-     /*<<bigarray.ml:346:4>>*/  /*<<bigarray.ml:346:14>>*/ var
+     /*<<bigarray.ml:346:14>>*/ var
      arr = create$2(kind, layout, dim1, dim2, dim3);
      /*<<bigarray.ml:347:4>>*/ if(layout){
-      /*<<bigarray.ml:338:4>>*/  /*<<bigarray.ml:338:4>>*/ var _s_ = 1;
+      /*<<bigarray.ml:338:4>>*/ var _s_ = 1;
      if(dim3 >= 1){
       var k$0 = _s_;
       for(;;){
-        /*<<bigarray.ml:339:6>>*/  /*<<bigarray.ml:339:6>>*/ var _t_ = 1;
+        /*<<bigarray.ml:339:6>>*/ var _t_ = 1;
        if(dim2 >= 1){
         var j$0 = _t_;
         for(;;){
-          /*<<bigarray.ml:340:8>>*/  /*<<bigarray.ml:340:8>>*/ var _v_ = 1;
+          /*<<bigarray.ml:340:8>>*/ var _v_ = 1;
          if(dim1 >= 1){
           var i$0 = _v_;
           for(;;){
@@ -24486,60 +24173,48 @@
              j$0,
              k$0,
               /*<<bigarray.ml:341:31>>*/ caml_call3(f, i$0, j$0, k$0));
-            /*<<bigarray.ml:341:10>>*/  /*<<bigarray.ml:341:10>>*/ var
-            _x_ = i$0 + 1 | 0;
+            /*<<bigarray.ml:341:10>>*/ var _x_ = i$0 + 1 | 0;
            if(dim1 === i$0) break;
            i$0 = _x_;
           }
          }
-          /*<<bigarray.ml:339:6>>*/  /*<<bigarray.ml:339:6>>*/ var
-          _w_ = j$0 + 1 | 0;
+          /*<<bigarray.ml:339:6>>*/ var _w_ = j$0 + 1 | 0;
          if(dim2 === j$0) break;
          j$0 = _w_;
         }
        }
-        /*<<bigarray.ml:338:4>>*/  /*<<bigarray.ml:338:4>>*/ var
-        _u_ = k$0 + 1 | 0;
+        /*<<bigarray.ml:338:4>>*/ var _u_ = k$0 + 1 | 0;
        if(dim3 === k$0) break;
        k$0 = _u_;
       }
      }
       /*<<bigarray.ml:349:24>>*/ return arr;
     }
-     /*<<bigarray.ml:330:4>>*/ var
-     _k_ = dim1 - 1 | 0,
-      /*<<bigarray.ml:330:4>>*/ _j_ = 0;
+    var _k_ = dim1 - 1 | 0,  /*<<bigarray.ml:330:4>>*/ _j_ = 0;
     if(_k_ >= 0){
      var i = _j_;
      for(;;){
-       /*<<bigarray.ml:331:6>>*/ var
-       _m_ = dim2 - 1 | 0,
-        /*<<bigarray.ml:331:6>>*/ _l_ = 0;
+      var _m_ = dim2 - 1 | 0,  /*<<bigarray.ml:331:6>>*/ _l_ = 0;
       if(_m_ >= 0){
        var j = _l_;
        for(;;){
-         /*<<bigarray.ml:332:8>>*/ var
-         _p_ = dim3 - 1 | 0,
-          /*<<bigarray.ml:332:8>>*/ _o_ = 0;
+        var _p_ = dim3 - 1 | 0,  /*<<bigarray.ml:332:8>>*/ _o_ = 0;
         if(_p_ >= 0){
          var k = _o_;
          for(;;){
            /*<<bigarray.ml:333:10>>*/  /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
            (arr, i, j, k,  /*<<bigarray.ml:333:31>>*/ caml_call3(f, i, j, k));
-           /*<<bigarray.ml:333:10>>*/  /*<<bigarray.ml:333:10>>*/ var
-           _r_ = k + 1 | 0;
+           /*<<bigarray.ml:333:10>>*/ var _r_ = k + 1 | 0;
           if(_p_ === k) break;
           k = _r_;
          }
         }
-         /*<<bigarray.ml:331:6>>*/  /*<<bigarray.ml:331:6>>*/ var
-         _q_ = j + 1 | 0;
+         /*<<bigarray.ml:331:6>>*/ var _q_ = j + 1 | 0;
         if(_m_ === j) break;
         j = _q_;
        }
       }
-       /*<<bigarray.ml:330:4>>*/  /*<<bigarray.ml:330:4>>*/ var
-       _n_ = i + 1 | 0;
+       /*<<bigarray.ml:330:4>>*/ var _n_ = i + 1 | 0;
       if(_k_ === i) break;
       i = _n_;
      }
@@ -24547,7 +24222,7 @@
      /*<<bigarray.ml:348:18>>*/ return arr;
     /*<<bigarray.ml:349:62>>*/ }
    function of_array$1(kind, layout, data){
-     /*<<bigarray.ml:351:4>>*/ var
+    var
      dim1 = data.length - 1,
       /*<<bigarray.ml:352:4>>*/ dim2 =
        0 === dim1 ? 0 : caml_check_bound(data, 0)[1].length - 1,
@@ -24562,23 +24237,21 @@
     if(_b_ >= 0){
      var i = _a_;
      for(;;){
-       /*<<bigarray.ml:361:16>>*/  /*<<bigarray.ml:361:16>>*/ var
-       row = caml_check_bound(data, i)[1 + i];
+       /*<<bigarray.ml:361:16>>*/ var row = caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
         /*<<bigarray.ml:363:8>>*/  /*<<bigarray.ml:363:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array3_of_array_n);
-       /*<<bigarray.ml:352:32>>*/ var
+      var
         /*<<bigarray.ml:352:32>>*/ _d_ = dim2 - 1 | 0,
         /*<<bigarray.ml:363:8>>*/ _c_ = 0;
       if(_d_ >= 0){
        var j = _c_;
        for(;;){
-         /*<<bigarray.ml:365:18>>*/  /*<<bigarray.ml:365:18>>*/ var
-         col = caml_check_bound(row, j)[1 + j];
+         /*<<bigarray.ml:365:18>>*/ var col = caml_check_bound(row, j)[1 + j];
         if(col.length - 1 !== dim3)
           /*<<bigarray.ml:367:10>>*/  /*<<bigarray.ml:367:10>>*/ caml_call1
           (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
-         /*<<bigarray.ml:353:32>>*/ var
+        var
           /*<<bigarray.ml:353:32>>*/ _g_ = dim3 - 1 | 0,
           /*<<bigarray.ml:367:10>>*/ _f_ = 0;
         if(_g_ >= 0){
@@ -24590,20 +24263,17 @@
             j + ofs | 0,
             k + ofs | 0,
             caml_check_bound(col, k)[1 + k]);
-           /*<<bigarray.ml:369:10>>*/  /*<<bigarray.ml:369:10>>*/ var
-           _i_ = k + 1 | 0;
+           /*<<bigarray.ml:369:10>>*/ var _i_ = k + 1 | 0;
           if(_g_ === k) break;
           k = _i_;
          }
         }
-         /*<<bigarray.ml:363:8>>*/  /*<<bigarray.ml:363:8>>*/ var
-         _h_ = j + 1 | 0;
+         /*<<bigarray.ml:363:8>>*/ var _h_ = j + 1 | 0;
         if(_d_ === j) break;
         j = _h_;
        }
       }
-       /*<<bigarray.ml:360:4>>*/  /*<<bigarray.ml:360:4>>*/ var
-       _e_ = i + 1 | 0;
+       /*<<bigarray.ml:360:4>>*/ var _e_ = i + 1 | 0;
       if(_b_ === i) break;
       i = _e_;
      }
@@ -24728,39 +24398,40 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_ba_blit = runtime.caml_ba_blit,
-    caml_ba_set_1 = runtime.caml_ba_set_1,
-    caml_bytes_set = runtime.caml_bytes_set,
-    caml_create_bytes = runtime.caml_create_bytes,
-    caml_greaterthan = runtime.caml_greaterthan,
-    caml_int64_add = runtime.caml_int64_add,
-    caml_int64_of_int32 = runtime.caml_int64_of_int32,
-    caml_int64_shift_right_unsigne = runtime.caml_int64_shift_right_unsigned,
-    caml_int64_sub = runtime.caml_int64_sub,
-    caml_int64_to_int32 = runtime.caml_int64_to_int32,
-    caml_lessequal = runtime.caml_lessequal,
-    caml_lessthan = runtime.caml_lessthan,
-    caml_lxm_next = runtime.caml_lxm_next,
-    caml_mod = runtime.caml_mod,
-    caml_notequal = runtime.caml_notequal,
-    caml_sys_random_seed = runtime.caml_sys_random_seed;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_ba_blit = runtime.caml_ba_blit,
+     /*<<?>>*/ caml_ba_set_1 = runtime.caml_ba_set_1,
+     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
+     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
+     /*<<?>>*/ caml_greaterthan = runtime.caml_greaterthan,
+     /*<<?>>*/ caml_int64_add = runtime.caml_int64_add,
+     /*<<?>>*/ caml_int64_of_int32 = runtime.caml_int64_of_int32,
+     /*<<?>>*/ caml_int64_shift_right_unsigne =
+      runtime.caml_int64_shift_right_unsigned,
+     /*<<?>>*/ caml_int64_sub = runtime.caml_int64_sub,
+     /*<<?>>*/ caml_int64_to_int32 = runtime.caml_int64_to_int32,
+     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
+     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
+     /*<<?>>*/ caml_lxm_next = runtime.caml_lxm_next,
+     /*<<?>>*/ caml_mod = runtime.caml_mod,
+     /*<<?>>*/ caml_notequal = runtime.caml_notequal,
+     /*<<?>>*/ caml_sys_random_seed = runtime.caml_sys_random_seed;
+   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){
+   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){
+   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_call5(f, a0, a1, a2, a3, a4){
+   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]);
@@ -24791,16 +24462,16 @@
      /*<<random.ml:34:4>>*/  /*<<random.ml:34:4>>*/ caml_ba_set_1
      (s, 0,  /*<<random.ml:34:26>>*/ runtime.caml_int64_or(i1, _a_));
      /*<<random.ml:35:4>>*/  /*<<random.ml:35:4>>*/ caml_ba_set_1(s, 1, i2);
-     /*<<random.ml:36:30>>*/  /*<<random.ml:36:30>>*/ var
+     /*<<random.ml:36:30>>*/ var
      i3$0 =  /*<<random.ml:36:30>>*/ caml_notequal(i3, _b_) ? i3 : _e_;
      /*<<random.ml:36:4>>*/  /*<<random.ml:36:4>>*/ caml_ba_set_1(s, 2, i3$0);
-     /*<<random.ml:37:30>>*/  /*<<random.ml:37:30>>*/ var
+     /*<<random.ml:37:30>>*/ var
      i4$0 =  /*<<random.ml:37:30>>*/ caml_notequal(i4, _c_) ? i4 : _d_;
      /*<<random.ml:37:4>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
             (s, 3, i4$0);
     /*<<random.ml:37:55>>*/ }
    function mk(i1, i2, i3, i4){
-     /*<<random.ml:40:4>>*/  /*<<random.ml:40:12>>*/ var s = create(0);
+     /*<<random.ml:40:12>>*/ var s = create(0);
      /*<<random.ml:41:4>>*/ set(s, i1, i2, i3, i4);
      /*<<random.ml:41:4>>*/ return s;
     /*<<random.ml:41:24>>*/ }
@@ -24809,7 +24480,7 @@
     cst_Random_State_of_binary_str =
       "Random.State.of_binary_string: expected a format compatible with OCaml ";
    function to_binary_string(s){
-     /*<<random.ml:61:4>>*/  /*<<random.ml:63:14>>*/ var
+     /*<<random.ml:63:14>>*/ var
      buf =  /*<<random.ml:63:14>>*/ caml_create_bytes(37);
      /*<<random.ml:64:4>>*/  /*<<random.ml:64:4>>*/ caml_call5
      (Stdlib_Bytes[12],
@@ -24820,11 +24491,11 @@
       serialization_prefix_len);
     var i = 0;
     for(;;){
-      /*<<random.ml:66:47>>*/  /*<<random.ml:66:47>>*/ var
+      /*<<random.ml:66:47>>*/ var
       _y_ =  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1(s, i);
       /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ caml_call3
       (Stdlib_Bytes[86], buf, 5 + (i * 8 | 0) | 0, _y_);
-      /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ var _z_ = i + 1 | 0;
+      /*<<random.ml:66:6>>*/ var _z_ = i + 1 | 0;
      if(3 === i)
        /*<<random.ml:68:4>>*/ return  /*<<random.ml:68:4>>*/ caml_call1
               (Stdlib_Bytes[44], buf);
@@ -24832,7 +24503,7 @@
     }
     /*<<random.ml:68:30>>*/ }
    function of_binary_string(buf){
-     /*<<random.ml:71:4>>*/ var
+    var
      _v_ = runtime.caml_ml_string_length(buf) !== 37 ? 1 : 0,
      _w_ =
        _v_
@@ -24842,14 +24513,14 @@
           /*<<random.ml:74:14>>*/ caml_call2
           (Stdlib_String[11], serialization_prefix, buf);
     if(_w_){
-      /*<<random.ml:77:8>>*/  /*<<random.ml:77:8>>*/ var
+      /*<<random.ml:77:8>>*/ var
       _x_ =
          /*<<random.ml:77:8>>*/ caml_call2
          (Stdlib[28], cst_Random_State_of_binary_str, Stdlib_Sys[46]);
       /*<<random.ml:76:6>>*/  /*<<random.ml:76:6>>*/ caml_call1
       (Stdlib[2], _x_);
     }
-     /*<<random.ml:79:13>>*/ var
+    var
       /*<<random.ml:79:13>>*/ i1 =
         /*<<random.ml:79:13>>*/ caml_call2(Stdlib_String[64], buf, 5),
       /*<<random.ml:80:13>>*/ i2 =
@@ -24861,12 +24532,12 @@
      /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4);
     /*<<random.ml:83:18>>*/ }
    function copy(src){
-     /*<<random.ml:89:4>>*/  /*<<random.ml:89:13>>*/ var dst = create(0);
+     /*<<random.ml:89:13>>*/ var dst = create(0);
      /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit(src, dst);
      /*<<random.ml:89:25>>*/ return dst;
     /*<<random.ml:89:40>>*/ }
    function reinit(s, seed){
-     /*<<random.ml:97:4>>*/ var
+    var
      n = seed.length - 1,
       /*<<random.ml:98:12>>*/ b =
         /*<<random.ml:98:12>>*/ caml_create_bytes((n * 8 | 0) + 1 | 0),
@@ -24875,24 +24546,24 @@
     if(_p_ >= 0){
      var i = _o_;
      for(;;){
-       /*<<random.ml:100:35>>*/  /*<<random.ml:100:35>>*/ var
+       /*<<random.ml:100:35>>*/ var
        _t_ =
           /*<<random.ml:100:35>>*/ caml_int64_of_int32
           (runtime.caml_check_bound(seed, i)[1 + i]);
        /*<<random.ml:100:6>>*/  /*<<random.ml:100:6>>*/ caml_call3
        (Stdlib_Bytes[86], b, i * 8 | 0, _t_);
-       /*<<random.ml:100:6>>*/  /*<<random.ml:100:6>>*/ var _u_ = i + 1 | 0;
+       /*<<random.ml:100:6>>*/ var _u_ = i + 1 | 0;
       if(_p_ === i) break;
       i = _u_;
      }
     }
      /*<<random.ml:102:4>>*/  /*<<random.ml:102:4>>*/ caml_bytes_set
      (b, n * 8 | 0, 1);
-     /*<<random.ml:103:13>>*/  /*<<random.ml:103:13>>*/ var
+     /*<<random.ml:103:13>>*/ var
      d1 =  /*<<random.ml:103:13>>*/ caml_call1(Stdlib_Digest[4], b);
      /*<<random.ml:104:4>>*/  /*<<random.ml:104:4>>*/ caml_bytes_set
      (b, n * 8 | 0, 2);
-     /*<<random.ml:105:13>>*/ var
+    var
       /*<<random.ml:105:13>>*/ d2 =
         /*<<random.ml:105:13>>*/ caml_call1(Stdlib_Digest[4], b),
       /*<<random.ml:109:10>>*/ _q_ =
@@ -24909,7 +24580,7 @@
              _q_);
     /*<<random.ml:109:36>>*/ }
    function make(seed){
-     /*<<random.ml:112:4>>*/  /*<<random.ml:112:12>>*/ var s = create(0);
+     /*<<random.ml:112:12>>*/ var s = create(0);
      /*<<random.ml:112:24>>*/ reinit(s, seed);
      /*<<random.ml:112:24>>*/ return s;
     /*<<random.ml:112:40>>*/ }
@@ -24960,7 +24631,7 @@
     return int_aux(s, bound, _n_);
     /*<<random.ml:173:22>>*/ }
    function int_in_range_aux(s, min, max, mask, nbits){
-     /*<<random.ml:193:4>>*/ var span = (max - min | 0) + 1 | 0;
+    var span = (max - min | 0) + 1 | 0;
     if(span <= mask && 0 < span) return min + int_aux(s, span, mask) | 0;
      /*<<random.ml:184:4>>*/ for(;;){
      var
@@ -24992,7 +24663,7 @@
     /*<<random.ml:223:27>>*/ }
    function int32aux(s, n){
      /*<<random.ml:227:4>>*/ for(;;){
-      /*<<random.ml:227:12>>*/ var
+     var
        /*<<random.ml:227:12>>*/ r = bits32(s) >>> 1 | 0,
        /*<<random.ml:228:12>>*/ v =  /*<<random.ml:228:12>>*/ caml_mod(r, n);
       /*<<random.ml:230:14>>*/ if
@@ -25013,14 +24684,14 @@
      ( /*<<random.ml:246:7>>*/ caml_greaterthan(min, max))
       /*<<random.ml:247:6>>*/ return  /*<<random.ml:247:6>>*/ caml_call1
              (Stdlib[1], cst_Random_int32_in_range);
-     /*<<random.ml:249:17>>*/  /*<<random.ml:249:17>>*/ var
+     /*<<random.ml:249:17>>*/ var
      span =
         /*<<random.ml:249:17>>*/ caml_call1(Stdlib_Int32[6], max - min | 0);
      /*<<random.ml:251:9>>*/ if
      (!  /*<<random.ml:251:9>>*/ caml_lessequal(span, Stdlib_Int32[1]))
       /*<<random.ml:254:8>>*/ return min + int32aux(s, span) | 0;
      /*<<random.ml:242:4>>*/ for(;;){
-      /*<<random.ml:242:12>>*/  /*<<random.ml:242:12>>*/ var
+      /*<<random.ml:242:12>>*/ var
       r =
          /*<<random.ml:242:12>>*/ caml_int64_to_int32
          ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
@@ -25039,7 +24710,7 @@
     cst_Random_int64_in_range = "Random.int64_in_range";
    function int64aux(s, n){
      /*<<random.ml:262:4>>*/ for(;;){
-      /*<<random.ml:262:12>>*/ var
+     var
        /*<<random.ml:262:12>>*/ r =
          /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
          ( /*<<random.ml:258:4>>*/ caml_lxm_next(s), 1),
@@ -25065,7 +24736,7 @@
      ( /*<<random.ml:281:7>>*/ caml_greaterthan(min, max))
       /*<<random.ml:282:6>>*/ return  /*<<random.ml:282:6>>*/ caml_call1
              (Stdlib[1], cst_Random_int64_in_range);
-     /*<<random.ml:284:17>>*/  /*<<random.ml:284:17>>*/ var
+     /*<<random.ml:284:17>>*/ var
      span =
         /*<<random.ml:284:17>>*/ caml_call1
         (Stdlib_Int64[6],  /*<<random.ml:284:28>>*/ caml_int64_sub(max, min));
@@ -25074,7 +24745,7 @@
       /*<<random.ml:289:8>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
              (min, int64aux(s, span));
      /*<<random.ml:277:4>>*/ for(;;){
-      /*<<random.ml:277:12>>*/  /*<<random.ml:277:12>>*/ var
+      /*<<random.ml:277:12>>*/ var
       r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
       /*<<random.ml:278:7>>*/ if
       (!
@@ -25129,7 +24800,7 @@
          /*<<random.ml:311:68>>*/ };
    function float$0(s, bound){
      /*<<random.ml:321:22>>*/ for(;;){
-      /*<<random.ml:316:12>>*/ var
+     var
        /*<<random.ml:316:12>>*/ b =  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
        /*<<random.ml:317:12>>*/ n =
          /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne(b, 11);
@@ -25146,7 +24817,7 @@
             ( /*<<random.ml:324:15>>*/ caml_lxm_next(s), _i_);
     /*<<random.ml:324:26>>*/ }
    function split(s){
-     /*<<random.ml:328:4>>*/ var
+    var
       /*<<random.ml:258:4>>*/ i1 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
       /*<<random.ml:258:4>>*/ i2 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
       /*<<random.ml:258:4>>*/ i3 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
@@ -25156,7 +24827,7 @@
    function mk_default(param){
      /*<<random.ml:335:2>>*/ return mk(_m_, _l_, _k_, _j_);
     /*<<random.ml:338:31>>*/ }
-    /*<<random.ml:341:2>>*/  /*<<random.ml:341:2>>*/ var
+    /*<<random.ml:341:2>>*/ var
     random_key =
        /*<<random.ml:341:2>>*/ caml_call2
        (Stdlib_Domain[10][1], [0, split], mk_default);
@@ -25240,7 +24911,7 @@
               (Stdlib_Domain[10][2], random_key));
     /*<<random.ml:359:56>>*/ }
    function bits64$0(param){
-     /*<<random.ml:360:16>>*/  /*<<random.ml:360:29>>*/ var
+     /*<<random.ml:360:29>>*/ var
      s =
         /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
      /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
@@ -25274,7 +24945,7 @@
               (Stdlib_Domain[10][2], random_key));
     /*<<random.ml:373:57>>*/ }
    function set_state(src){
-     /*<<random.ml:374:18>>*/  /*<<random.ml:374:31>>*/ var
+     /*<<random.ml:374:31>>*/ var
      dst =
         /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
      /*<<random.ml:86:4>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
@@ -25337,30 +25008,31 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    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;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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;
+   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){
+   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){
+   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){
+   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]);
@@ -25380,9 +25052,7 @@
    global_data.Assert_failure;
    var Stdlib_String = global_data.Stdlib__String;
    function ongoing_traversal(h){
-     /*<<hashtbl.ml:41:2>>*/ var
-     _an_ = h.length - 1 < 4 ? 1 : 0,
-     _ao_ = _an_ || (h[4] < 0 ? 1 : 0);
+    var _an_ = h.length - 1 < 4 ? 1 : 0, _ao_ = _an_ || (h[4] < 0 ? 1 : 0);
     return _ao_;
     /*<<hashtbl.ml:42:23>>*/ }
    function flip_ongoing_traversal(h){
@@ -25392,7 +25062,7 @@
    var
     cst_Hashtbl_unsupported_hash_t = "Hashtbl: unsupported hash table format";
    try{
-     /*<<hashtbl.ml:51:8>>*/ var
+    var
       /*<<hashtbl.ml:51:8>>*/ _f_ =
         /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv("OCAMLRUNPARAM"),
      params = _f_;
@@ -25401,7 +25071,7 @@
     var _a_ = caml_wrap_exception(_al_);
     if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
      /*<<hashtbl.ml:52:4>>*/ try{
-      /*<<hashtbl.ml:52:8>>*/ var
+     var
        /*<<hashtbl.ml:52:8>>*/ _e_ =
          /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv("CAMLRUNPARAM"),
       _c_ = _e_;
@@ -25413,7 +25083,7 @@
     }
     var params = _c_;
    }
-    /*<<hashtbl.ml:53:2>>*/ var
+   var
      /*<<hashtbl.ml:53:2>>*/ randomized_default =
        /*<<hashtbl.ml:53:2>>*/ caml_call2(Stdlib_String[15], params, 82),
      /*<<hashtbl.ml:55:17>>*/ randomized =
@@ -25426,12 +25096,12 @@
    function is_randomized(param){
      /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized);
     /*<<hashtbl.ml:58:44>>*/ }
-    /*<<hashtbl.ml:60:15>>*/  /*<<hashtbl.ml:60:15>>*/ var
+    /*<<hashtbl.ml:60:15>>*/ var
     prng_key =
        /*<<hashtbl.ml:60:15>>*/ caml_call2
        (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function power_2_above(x, n){
-     /*<<hashtbl.ml:69:2>>*/ var x$0 = x;
+    var x$0 = x;
      /*<<hashtbl.ml:69:2>>*/ for(;;){
      if(n <= x$0)  /*<<hashtbl.ml:69:17>>*/ return x$0;
      if(Stdlib_Sys[13] < (x$0 * 2 | 0))  /*<<hashtbl.ml:70:44>>*/ return x$0;
@@ -25440,14 +25110,14 @@
     }
     /*<<hashtbl.ml:71:30>>*/ }
    function create(opt, initial_size){
-     /*<<hashtbl.ml:74:10>>*/ var
+    var
      random =
        opt
         ? opt[1]
         :  /*<<hashtbl.ml:73:22>>*/ caml_call1(Stdlib_Atomic[3], randomized),
       /*<<hashtbl.ml:74:10>>*/ s = power_2_above(16, initial_size);
      /*<<hashtbl.ml:75:2>>*/ if(random)
-      /*<<hashtbl.ml:76:37>>*/ var
+     var
        /*<<hashtbl.ml:76:37>>*/ _ak_ =
          /*<<hashtbl.ml:76:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
       seed =  /*<<hashtbl.ml:76:19>>*/ caml_call1(Stdlib_Random[19][4], _ak_);
@@ -25460,7 +25130,7 @@
             s];
    }
    function clear(h){
-     /*<<hashtbl.ml:81:2>>*/ var _aj_ = 0 < h[1] ? 1 : 0;
+    var _aj_ = 0 < h[1] ? 1 : 0;
     return _aj_
             ? (h
                [1]
@@ -25470,7 +25140,7 @@
             : _aj_;
     /*<<hashtbl.ml:84:5>>*/ }
    function reset(h){
-     /*<<hashtbl.ml:87:2>>*/ var len = h[2].length - 1;
+    var len = h[2].length - 1;
     if
      (4 <= h.length - 1
       && len !==  /*<<hashtbl.ml:89:13>>*/ caml_call1(Stdlib[18], h[4])){
@@ -25484,7 +25154,7 @@
     /*<<hashtbl.ml:94:5>>*/ }
    function copy_bucketlist(param){
      /*<<hashtbl.ml:96:22>>*/ if(! param)  /*<<hashtbl.ml:97:13>>*/ return 0;
-     /*<<hashtbl.ml:109:19>>*/ var
+    var
      key = param[1],
      data = param[2],
      next = param[3],
@@ -25493,7 +25163,7 @@
      param$0 = next;
     for(;;){
      if(! param$0)  /*<<hashtbl.ml:110:6>>*/ return prec$1;
-      /*<<hashtbl.ml:102:25>>*/ var
+     var
       key$0 = param$0[1],
       data$0 = param$0[2],
       next$0 = param$0[3],
@@ -25504,7 +25174,7 @@
     }
     /*<<hashtbl.ml:111:7>>*/ }
    function copy(h){
-     /*<<hashtbl.ml:113:13>>*/ var
+    var
      _ag_ = h[4],
      _ah_ = h[3],
       /*<<hashtbl.ml:113:29>>*/ _ai_ =
@@ -25516,7 +25186,7 @@
      /*<<hashtbl.ml:115:15>>*/ return h[1];
     /*<<hashtbl.ml:115:21>>*/ }
    function insert_all_buckets(indexfun, inplace, odata, ndata){
-     /*<<hashtbl.ml:118:2>>*/ var
+    var
      nsize = ndata.length - 1,
       /*<<hashtbl.ml:119:19>>*/ ndata_tail =
         /*<<hashtbl.ml:119:19>>*/ caml_make_vect(nsize, 0),
@@ -25525,13 +25195,13 @@
     if(_aa_ >= 0){
      var i$0 = _$_;
      for(;;){
-       /*<<hashtbl.ml:136:18>>*/ var
+      var
         /*<<hashtbl.ml:136:18>>*/ cell$1 =
          caml_check_bound(odata, i$0)[1 + i$0],
        cell = cell$1;
        /*<<hashtbl.ml:120:26>>*/ for(;;){
        if(! cell) break;
-        /*<<hashtbl.ml:123:8>>*/ var
+       var
         key = cell[1],
         data = cell[2],
         next = cell[3],
@@ -25548,24 +25218,20 @@
        = cell$0;
        cell = next;
       }
-       /*<<hashtbl.ml:136:4>>*/  /*<<hashtbl.ml:136:4>>*/ var
-       _af_ = i$0 + 1 | 0;
+       /*<<hashtbl.ml:136:4>>*/ var _af_ = i$0 + 1 | 0;
       if(_aa_ === i$0) break;
       i$0 = _af_;
      }
     }
     if(inplace){
-      /*<<hashtbl.ml:139:4>>*/ var
-      _ac_ = nsize - 1 | 0,
-       /*<<hashtbl.ml:139:4>>*/ _ab_ = 0;
+     var _ac_ = nsize - 1 | 0,  /*<<hashtbl.ml:139:4>>*/ _ab_ = 0;
      if(_ac_ >= 0){
       var i = _ab_;
       for(;;){
-        /*<<hashtbl.ml:140:12>>*/  /*<<hashtbl.ml:140:12>>*/ var
+        /*<<hashtbl.ml:140:12>>*/ var
         match$0 = caml_check_bound(ndata_tail, i)[1 + i];
        if(match$0) match$0[3] = 0;
-        /*<<hashtbl.ml:139:4>>*/  /*<<hashtbl.ml:139:4>>*/ var
-        _ae_ = i + 1 | 0;
+        /*<<hashtbl.ml:139:4>>*/ var _ae_ = i + 1 | 0;
        if(_ac_ === i) break;
        i = _ae_;
       }
@@ -25577,13 +25243,13 @@
     return _ad_;
     /*<<hashtbl.ml:143:8>>*/ }
    function resize(indexfun, h){
-     /*<<hashtbl.ml:146:2>>*/ var
+    var
      odata = h[2],
       /*<<hashtbl.ml:147:2>>*/ osize = odata.length - 1,
      nsize = osize * 2 | 0,
      ___ = nsize < Stdlib_Sys[13] ? 1 : 0;
     if(! ___) return ___;
-     /*<<hashtbl.ml:150:16>>*/ var
+    var
       /*<<hashtbl.ml:150:16>>*/ ndata =
         /*<<hashtbl.ml:150:16>>*/ caml_make_vect(nsize, 0),
       /*<<hashtbl.ml:151:22>>*/ inplace = 1 - ongoing_traversal(h);
@@ -25595,8 +25261,7 @@
              ndata);
     /*<<hashtbl.ml:154:5>>*/ }
    function iter(f, h){
-     /*<<hashtbl.ml:157:2>>*/  /*<<hashtbl.ml:162:17>>*/ var
-     old_trav = ongoing_traversal(h);
+     /*<<hashtbl.ml:162:17>>*/ var old_trav = ongoing_traversal(h);
     if(1 - old_trav)  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
      /*<<hashtbl.ml:163:23>>*/ try{
      var d = h[2], _W_ = d.length - 2 | 0, _V_ = 0;
@@ -25611,8 +25276,7 @@
          (f, key, data);
         param = next;
        }
-        /*<<hashtbl.ml:167:6>>*/  /*<<hashtbl.ml:167:6>>*/ var
-        _Z_ = i + 1 | 0;
+        /*<<hashtbl.ml:167:6>>*/ var _Z_ = i + 1 | 0;
        if(_W_ === i) break;
        i = _Z_;
       }
@@ -25630,22 +25294,20 @@
     }
     /*<<hashtbl.ml:172:13>>*/ }
    function filter_map_inplace(f, h){
-     /*<<hashtbl.ml:195:2>>*/ var
-     d = h[2],
-      /*<<hashtbl.ml:196:17>>*/ old_trav = ongoing_traversal(h);
+    var d = h[2],  /*<<hashtbl.ml:196:17>>*/ old_trav = ongoing_traversal(h);
     if(1 - old_trav)  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
      /*<<hashtbl.ml:197:23>>*/ try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
      if(_R_ >= 0){
       var i = _Q_;
       for(;;){
-        /*<<hashtbl.ml:200:44>>*/ var
+       var
          /*<<hashtbl.ml:200:44>>*/ slot$0 = caml_check_bound(h[2], i)[1 + i],
         prec = 0,
         slot = slot$0;
        for(;;){
         if(! slot) break;
-         /*<<hashtbl.ml:181:18>>*/ var
+        var
          key = slot[1],
          data = slot[2],
          next = slot[3],
@@ -25667,8 +25329,7 @@
         prec[3] = 0;
        else
          /*<<hashtbl.ml:177:17>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-        /*<<hashtbl.ml:200:6>>*/  /*<<hashtbl.ml:200:6>>*/ var
-        _U_ = i + 1 | 0;
+        /*<<hashtbl.ml:200:6>>*/ var _U_ = i + 1 | 0;
        if(_R_ === i) break;
        i = _U_;
       }
@@ -25686,11 +25347,10 @@
     }
     /*<<hashtbl.ml:205:13>>*/ }
    function fold(f, h, init){
-     /*<<hashtbl.ml:208:2>>*/  /*<<hashtbl.ml:214:17>>*/ var
-     old_trav = ongoing_traversal(h);
+     /*<<hashtbl.ml:214:17>>*/ var old_trav = ongoing_traversal(h);
     if(1 - old_trav)  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
      /*<<hashtbl.ml:215:23>>*/ try{
-      /*<<hashtbl.ml:218:15>>*/ var
+     var
       d = h[2],
        /*<<hashtbl.ml:218:15>>*/ accu$1 = [0, init],
       _N_ = d.length - 2 | 0,
@@ -25698,14 +25358,14 @@
      if(_N_ >= 0){
       var i = _M_;
       for(;;){
-        /*<<hashtbl.ml:220:24>>*/ var
+       var
         accu$2 = accu$1[1],
          /*<<hashtbl.ml:220:24>>*/ b$0 = caml_check_bound(d, i)[1 + i],
         b = b$0,
         accu = accu$2;
         /*<<hashtbl.ml:209:4>>*/ for(;;){
         if(! b) break;
-         /*<<hashtbl.ml:213:23>>*/ var
+        var
          key = b[1],
          data = b[2],
          next = b[3],
@@ -25715,8 +25375,7 @@
         accu = accu$0;
        }
        accu$1[1] = accu;
-        /*<<hashtbl.ml:219:4>>*/  /*<<hashtbl.ml:219:4>>*/ var
-        _P_ = i + 1 | 0;
+        /*<<hashtbl.ml:219:4>>*/ var _P_ = i + 1 | 0;
        if(_N_ === i) break;
        i = _P_;
       }
@@ -25738,7 +25397,7 @@
     var accu$0 = accu, param$0 = param;
     for(;;){
      if(! param$0)  /*<<hashtbl.ml:236:13>>*/ return accu$0;
-      /*<<hashtbl.ml:237:18>>*/ var
+     var
       next = param$0[3],
        /*<<hashtbl.ml:237:18>>*/ accu$1 = accu$0 + 1 | 0;
      accu$0 = accu$1;
@@ -25746,13 +25405,12 @@
     }
    }
    function stats(h){
-     /*<<hashtbl.ml:240:2>>*/ var
+    var
       /*<<hashtbl.ml:241:4>>*/ mbl =
         /*<<hashtbl.ml:241:4>>*/ caml_call3
         (Stdlib_Array[18],
          function(m, b){
-           /*<<hashtbl.ml:241:32>>*/  /*<<hashtbl.ml:241:42>>*/ var
-           _L_ = bucket_length(0, b);
+           /*<<hashtbl.ml:241:42>>*/ var _L_ = bucket_length(0, b);
            /*<<hashtbl.ml:241:42>>*/ return  /*<<hashtbl.ml:241:42>>*/ caml_call2
                   (Stdlib_Int[11], m, _L_);
           /*<<hashtbl.ml:241:61>>*/ },
@@ -25763,8 +25421,7 @@
      /*<<hashtbl.ml:243:2>>*/  /*<<hashtbl.ml:243:2>>*/ caml_call2
      (Stdlib_Array[12],
       function(b){
-        /*<<hashtbl.ml:245:6>>*/  /*<<hashtbl.ml:245:14>>*/ var
-        l = bucket_length(0, b);
+        /*<<hashtbl.ml:245:14>>*/ var l = bucket_length(0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
         caml_check_bound(histo, l)[1 + l] + 1 | 0;
         /*<<hashtbl.ml:246:6>>*/ return 0;
@@ -25773,9 +25430,9 @@
      /*<<hashtbl.ml:248:2>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
     /*<<hashtbl.ml:251:30>>*/ }
    function to_seq(tbl){
-     /*<<hashtbl.ml:258:2>>*/ var tbl_data = tbl[2];
-     /*<<hashtbl.ml:260:2>>*/ function aux(i, buck, param){
-      /*<<hashtbl.ml:260:26>>*/ var i$0 = i, buck$0 = buck;
+    var tbl_data = tbl[2];
+    function aux(i, buck, param){
+     var i$0 = i, buck$0 = buck;
       /*<<hashtbl.ml:260:26>>*/ for(;;){
       if(buck$0){
        var key = buck$0[1], data = buck$0[2], next = buck$0[3];
@@ -25784,7 +25441,7 @@
                function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}];
       }
       if(i$0 === tbl_data.length - 1)  /*<<hashtbl.ml:263:13>>*/ return 0;
-       /*<<hashtbl.ml:264:22>>*/ var
+      var
         /*<<hashtbl.ml:264:22>>*/ buck$1 =
          caml_check_bound(tbl_data, i$0)[1 + i$0],
         /*<<hashtbl.ml:264:22>>*/ i$1 = i$0 + 1 | 0;
@@ -25797,24 +25454,24 @@
       /*<<?>>*/ return aux(_I_, _H_, _J_);};
     /*<<hashtbl.ml:268:13>>*/ }
    function to_seq_keys(m){
-     /*<<hashtbl.ml:270:20>>*/  /*<<hashtbl.ml:270:32>>*/ var _F_ = to_seq(m);
+     /*<<hashtbl.ml:270:32>>*/ var _F_ = to_seq(m);
      /*<<hashtbl.ml:270:32>>*/ return  /*<<hashtbl.ml:270:32>>*/ caml_call2
             (Stdlib_Seq[29], function(_G_){ /*<<?>>*/ return _G_[1];}, _F_);
     /*<<hashtbl.ml:270:42>>*/ }
    function to_seq_values(m){
-     /*<<hashtbl.ml:272:22>>*/  /*<<hashtbl.ml:272:34>>*/ var _D_ = to_seq(m);
+     /*<<hashtbl.ml:272:34>>*/ var _D_ = to_seq(m);
      /*<<hashtbl.ml:272:34>>*/ return  /*<<hashtbl.ml:272:34>>*/ caml_call2
             (Stdlib_Seq[29], function(_E_){ /*<<?>>*/ return _E_[2];}, _D_);
     /*<<hashtbl.ml:272:44>>*/ }
    function MakeSeeded(H){
     function key_index(h, key){
-      /*<<hashtbl.ml:357:6>>*/ var _C_ = h[2].length - 2 | 0;
+     var _C_ = h[2].length - 2 | 0;
       /*<<hashtbl.ml:357:6>>*/ return  /*<<hashtbl.ml:357:6>>*/ caml_call2
              (H[2], h[3], key)
             & _C_;
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
-      /*<<hashtbl.ml:360:6>>*/ var
+     var
        /*<<hashtbl.ml:360:14>>*/ i = key_index(h, key),
        /*<<hashtbl.ml:361:23>>*/ bucket =
         [0, key, data, caml_check_bound(h[2], i)[1 + i]];
@@ -25824,7 +25481,7 @@
      return _B_ ? resize(key_index, h) : _B_;
      /*<<hashtbl.ml:364:67>>*/ }
     function remove(h, key){
-      /*<<hashtbl.ml:380:6>>*/ var
+     var
        /*<<hashtbl.ml:380:14>>*/ i = key_index(h, key),
        /*<<hashtbl.ml:381:34>>*/ c = caml_check_bound(h[2], i)[1 + i],
       prec$0 = 0,
@@ -25844,7 +25501,7 @@
      }
      /*<<hashtbl.ml:381:44>>*/ }
     function find(h, key){
-      /*<<hashtbl.ml:390:6>>*/ var
+     var
        /*<<hashtbl.ml:390:20>>*/ _A_ = key_index(h, key),
        /*<<hashtbl.ml:390:12>>*/ match = caml_check_bound(h[2], _A_)[1 + _A_];
      if(! match)
@@ -25881,7 +25538,7 @@
      }
      /*<<hashtbl.ml:401:67>>*/ }
     function find_opt(h, key){
-      /*<<hashtbl.ml:410:6>>*/ var
+     var
        /*<<hashtbl.ml:410:20>>*/ _z_ = key_index(h, key),
        /*<<hashtbl.ml:410:12>>*/ match = caml_check_bound(h[2], _z_)[1 + _z_];
      if(! match)  /*<<hashtbl.ml:411:17>>*/ return 0;
@@ -25910,7 +25567,7 @@
      }
      /*<<hashtbl.ml:421:76>>*/ }
     function find_all(h, key){
-      /*<<hashtbl.ml:424:6>>*/ var
+     var
        /*<<hashtbl.ml:431:29>>*/ _y_ = key_index(h, key),
       param = caml_check_bound(h[2], _y_)[1 + _y_];
       /*<<hashtbl.ml:424:47>>*/ for(;;){
@@ -25921,7 +25578,7 @@
        break;
       param = next;
      }
-      /*<<hashtbl.ml:429:15>>*/ var
+     var
        /*<<hashtbl.ml:429:15>>*/ block = [0, d, 24029],
       dst = block,
       offset = 1,
@@ -25934,8 +25591,7 @@
       var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
        /*<<hashtbl.ml:428:13>>*/ if
        ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k$0, key)){
-        /*<<hashtbl.ml:429:15>>*/  /*<<hashtbl.ml:429:15>>*/ var
-        dst$0 = [0, d$0, 24029];
+        /*<<hashtbl.ml:429:15>>*/ var dst$0 = [0, d$0, 24029];
        dst[1 + offset] = dst$0;
        dst = dst$0;
        offset = 1;
@@ -25946,7 +25602,7 @@
      }
      /*<<hashtbl.ml:431:45>>*/ }
     function replace(h, key, data){
-      /*<<hashtbl.ml:442:6>>*/ var
+     var
        /*<<hashtbl.ml:442:14>>*/ i = key_index(h, key),
        /*<<hashtbl.ml:443:14>>*/ l = caml_check_bound(h[2], i)[1 + i],
       slot = l;
@@ -25974,12 +25630,12 @@
      }
      /*<<hashtbl.ml:448:9>>*/ }
     function mem(h, key){
-      /*<<hashtbl.ml:457:6>>*/ var
+     var
        /*<<hashtbl.ml:457:32>>*/ _u_ = key_index(h, key),
       param = caml_check_bound(h[2], _u_)[1 + _u_];
      for(;;){
       if(! param)  /*<<hashtbl.ml:452:10>>*/ return 0;
-       /*<<hashtbl.ml:454:10>>*/ var
+      var
        k = param[1],
        next = param[3],
         /*<<hashtbl.ml:454:10>>*/ _t_ =
@@ -25993,7 +25649,7 @@
       /*<<hashtbl.ml:460:6>>*/ return  /*<<hashtbl.ml:460:6>>*/ caml_call2
              (Stdlib_Seq[4],
               function(param){
-                /*<<hashtbl.ml:460:15>>*/ var v = param[2], k = param[1];
+               var v = param[2], k = param[1];
                 /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v);
                /*<<hashtbl.ml:460:41>>*/ },
               i);
@@ -26002,14 +25658,13 @@
       /*<<hashtbl.ml:463:6>>*/ return  /*<<hashtbl.ml:463:6>>*/ caml_call2
              (Stdlib_Seq[4],
               function(param){
-                /*<<hashtbl.ml:463:15>>*/ var v = param[2], k = param[1];
+               var v = param[2], k = param[1];
                 /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v);
                /*<<hashtbl.ml:463:45>>*/ },
               i);
      /*<<hashtbl.ml:463:47>>*/ }
     function of_seq(i){
-      /*<<hashtbl.ml:466:6>>*/  /*<<hashtbl.ml:466:16>>*/ var
-      tbl = create(0, 16);
+      /*<<hashtbl.ml:466:16>>*/ var tbl = create(0, 16);
       /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
       /*<<hashtbl.ml:467:6>>*/ return tbl;
      /*<<hashtbl.ml:468:9>>*/ }
@@ -26071,7 +25726,7 @@
              (_s_, _d_, sz);
      /*<<hashtbl.ml:487:43>>*/ }
     function of_seq(i){
-      /*<<hashtbl.ml:489:6>>*/  /*<<hashtbl.ml:487:20>>*/ var
+      /*<<hashtbl.ml:487:20>>*/ var
       tbl =  /*<<hashtbl.ml:487:20>>*/ caml_call2(_s_, _d_, 16);
       /*<<hashtbl.ml:490:6>>*/  /*<<hashtbl.ml:490:6>>*/ caml_call2
       (replace_seq, tbl, i);
@@ -26122,7 +25777,7 @@
               (Stdlib[1], cst_Hashtbl_unsupported_hash_t);
     /*<<hashtbl.ml:508:59>>*/ }
    function add(h, key, data){
-     /*<<hashtbl.ml:511:2>>*/ var
+    var
       /*<<hashtbl.ml:511:10>>*/ i = key_index(h, key),
       /*<<hashtbl.ml:512:19>>*/ bucket =
        [0, key, data, caml_check_bound(h[2], i)[1 + i]];
@@ -26132,7 +25787,7 @@
     return _r_ ? resize(key_index, h) : _r_;
     /*<<hashtbl.ml:515:63>>*/ }
    function remove(h, key){
-     /*<<hashtbl.ml:531:2>>*/ var
+    var
       /*<<hashtbl.ml:531:10>>*/ i = key_index(h, key),
       /*<<hashtbl.ml:532:30>>*/ c = caml_check_bound(h[2], i)[1 + i],
      prec$0 = 0,
@@ -26152,7 +25807,7 @@
     }
     /*<<hashtbl.ml:532:40>>*/ }
    function find(h, key){
-     /*<<hashtbl.ml:541:2>>*/ var
+    var
       /*<<hashtbl.ml:541:16>>*/ _q_ = key_index(h, key),
       /*<<hashtbl.ml:541:8>>*/ match = caml_check_bound(h[2], _q_)[1 + _q_];
     if(! match)
@@ -26189,7 +25844,7 @@
     }
     /*<<hashtbl.ml:552:67>>*/ }
    function find_opt(h, key){
-     /*<<hashtbl.ml:561:2>>*/ var
+    var
       /*<<hashtbl.ml:561:16>>*/ _p_ = key_index(h, key),
       /*<<hashtbl.ml:561:8>>*/ match = caml_check_bound(h[2], _p_)[1 + _p_];
     if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
@@ -26218,7 +25873,7 @@
     }
     /*<<hashtbl.ml:572:76>>*/ }
    function find_all(h, key){
-     /*<<hashtbl.ml:575:2>>*/ var
+    var
       /*<<hashtbl.ml:582:25>>*/ _o_ = key_index(h, key),
      param = caml_check_bound(h[2], _o_)[1 + _o_];
      /*<<hashtbl.ml:575:43>>*/ for(;;){
@@ -26229,7 +25884,7 @@
       break;
      param = next;
     }
-     /*<<hashtbl.ml:580:11>>*/ var
+    var
       /*<<hashtbl.ml:580:11>>*/ block = [0, data, 24029],
      dst = block,
      offset = 1,
@@ -26242,8 +25897,7 @@
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
       /*<<hashtbl.ml:579:9>>*/ if
       (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
-       /*<<hashtbl.ml:580:11>>*/  /*<<hashtbl.ml:580:11>>*/ var
-       dst$0 = [0, data$0, 24029];
+       /*<<hashtbl.ml:580:11>>*/ var dst$0 = [0, data$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
       offset = 1;
@@ -26254,7 +25908,7 @@
     }
     /*<<hashtbl.ml:582:41>>*/ }
    function replace(h, key, data){
-     /*<<hashtbl.ml:593:2>>*/ var
+    var
       /*<<hashtbl.ml:593:10>>*/ i = key_index(h, key),
       /*<<hashtbl.ml:594:10>>*/ l = caml_check_bound(h[2], i)[1 + i],
      slot = l;
@@ -26282,7 +25936,7 @@
     }
     /*<<hashtbl.ml:599:5>>*/ }
    function mem(h, key){
-     /*<<hashtbl.ml:608:2>>*/ var
+    var
       /*<<hashtbl.ml:608:28>>*/ _k_ = key_index(h, key),
      param = caml_check_bound(h[2], _k_)[1 + _k_];
     for(;;){
@@ -26299,7 +25953,7 @@
      /*<<hashtbl.ml:611:2>>*/ return  /*<<hashtbl.ml:611:2>>*/ caml_call2
             (Stdlib_Seq[4],
              function(param){
-               /*<<hashtbl.ml:611:11>>*/ var v = param[2], k = param[1];
+              var v = param[2], k = param[1];
                /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v);
               /*<<hashtbl.ml:611:37>>*/ },
              i);
@@ -26308,32 +25962,31 @@
      /*<<hashtbl.ml:614:2>>*/ return  /*<<hashtbl.ml:614:2>>*/ caml_call2
             (Stdlib_Seq[4],
              function(param){
-               /*<<hashtbl.ml:614:11>>*/ var v = param[2], k = param[1];
+              var v = param[2], k = param[1];
                /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v);
               /*<<hashtbl.ml:614:41>>*/ },
              i);
     /*<<hashtbl.ml:614:43>>*/ }
    function of_seq(i){
-     /*<<hashtbl.ml:617:2>>*/  /*<<hashtbl.ml:617:12>>*/ var
-     tbl = create(0, 16);
+     /*<<hashtbl.ml:617:12>>*/ var tbl = create(0, 16);
      /*<<hashtbl.ml:618:2>>*/ replace_seq(tbl, i);
      /*<<hashtbl.ml:618:2>>*/ return tbl;
     /*<<hashtbl.ml:619:5>>*/ }
    function rebuild(opt, h){
-     /*<<hashtbl.ml:622:10>>*/ var
+    var
      random =
        opt
         ? opt[1]
         :  /*<<hashtbl.ml:621:23>>*/ caml_call1(Stdlib_Atomic[3], randomized),
       /*<<hashtbl.ml:622:10>>*/ s = power_2_above(16, h[2].length - 1);
      /*<<hashtbl.ml:623:2>>*/ if(random)
-      /*<<hashtbl.ml:624:37>>*/ var
+     var
        /*<<hashtbl.ml:624:37>>*/ _g_ =
          /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[10][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
+    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_];
@@ -26386,32 +26039,33 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    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){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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){
     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){
+   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){
+   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){
+   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){
+   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]);
@@ -26432,7 +26086,7 @@
     cst_Weak_fill = "Weak.fill",
     cst_Weak_Make_hash_bucket_cann = "Weak.Make: hash bucket cannot grow more";
    function create(l){
-     /*<<weak.ml:28:2>>*/ var
+    var
      _J_ = 0 <= l ? 1 : 0,
      _K_ = _J_ ? l <= Stdlib_Obj[23][15] ? 1 : 0 : _J_;
     if(1 - _K_)
@@ -26445,7 +26099,7 @@
      /*<<weak.ml:33:15>>*/ return x.length - 3 | 0;
     /*<<weak.ml:33:55>>*/ }
    function raise_if_invalid_offset(e, o, msg){
-     /*<<weak.ml:36:2>>*/ var
+    var
      _G_ = 0 <= o ? 1 : 0,
      _H_ = _G_ ? o < length(e) ? 1 : 0 : _G_,
      _I_ = 1 - _H_;
@@ -26501,7 +26155,7 @@
       var i = ofs;
       for(;;){
         /*<<weak.ml:76:6>>*/ set(ar, i, x);
-        /*<<weak.ml:76:6>>*/  /*<<weak.ml:76:6>>*/ var _D_ = i + 1 | 0;
+        /*<<weak.ml:76:6>>*/ var _D_ = i + 1 | 0;
        if(_C_ === i) break;
        i = _D_;
       }
@@ -26512,14 +26166,13 @@
            ([0, Stdlib[6], cst_Weak_fill], 1);
     /*<<weak.ml:78:5>>*/ }
    function Make(H){
-     /*<<weak.ml:105:20>>*/  /*<<weak.ml:105:20>>*/ var
-     emptybucket = create(0);
+     /*<<weak.ml:105:20>>*/ var emptybucket = create(0);
     function get_index(t, h){
       /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1);
      /*<<weak.ml:117:65>>*/ }
     var limit = 7;
     function create$0(sz){
-      /*<<weak.ml:123:4>>*/ var
+     var
       sz$0 = 7 <= sz ? sz : 7,
       sz$1 = Stdlib_Sys[13] < sz$0 ? Stdlib_Sys[13] : sz$0;
       /*<<weak.ml:125:4>>*/ return [0,
@@ -26530,15 +26183,13 @@
              0];
      /*<<weak.ml:131:5>>*/ }
     function clear(t){
-      /*<<weak.ml:134:4>>*/ var
-      _A_ = t[1].length - 2 | 0,
-       /*<<weak.ml:134:4>>*/ _z_ = 0;
+     var _A_ = t[1].length - 2 | 0,  /*<<weak.ml:134:4>>*/ _z_ = 0;
      if(_A_ >= 0){
       var i = _z_;
       for(;;){
         /*<<weak.ml:135:6>>*/ caml_check_bound(t[1], i)[1 + i] = emptybucket;
         /*<<weak.ml:136:6>>*/ caml_check_bound(t[2], i)[1 + i] = [0];
-        /*<<weak.ml:136:6>>*/  /*<<weak.ml:136:6>>*/ var _B_ = i + 1 | 0;
+        /*<<weak.ml:136:6>>*/ var _B_ = i + 1 | 0;
        if(_A_ === i) break;
        i = _B_;
       }
@@ -26548,17 +26199,16 @@
      return 0;
      /*<<weak.ml:139:19>>*/ }
     function fold(f, t, init){
-      /*<<weak.ml:143:4>>*/ var i = 0;
+     var i = 0;
       /*<<weak.ml:149:4>>*/ return  /*<<weak.ml:149:4>>*/ caml_call3
              (Stdlib_Array[20],
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
                 if(length(b) <= i$0)  /*<<weak.ml:144:28>>*/ return accu;
-                 /*<<weak.ml:145:12>>*/  /*<<weak.ml:145:12>>*/ var
-                 match = get(b, i$0);
+                 /*<<weak.ml:145:12>>*/ var match = get(b, i$0);
                 if(match){
-                  /*<<weak.ml:146:38>>*/ var
+                 var
                   v = match[1],
                    /*<<weak.ml:146:38>>*/ accu$0 =
                      /*<<weak.ml:146:38>>*/ caml_call2(f, v, accu),
@@ -26573,15 +26223,14 @@
               init);
      /*<<weak.ml:149:49>>*/ }
     function iter(f, t){
-      /*<<weak.ml:153:4>>*/ var i = 0;
+     var i = 0;
       /*<<weak.ml:159:15>>*/ return  /*<<weak.ml:159:15>>*/ caml_call2
              (Stdlib_Array[12],
               function(b){
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
                 if(length(b) <= i$0)  /*<<weak.ml:154:28>>*/ return 0;
-                 /*<<weak.ml:155:12>>*/  /*<<weak.ml:155:12>>*/ var
-                 match = get(b, i$0);
+                 /*<<weak.ml:155:12>>*/ var match = get(b, i$0);
                 if(match){
                  var v = match[1];
                   /*<<weak.ml:156:18>>*/  /*<<weak.ml:156:18>>*/ caml_call1
@@ -26595,10 +26244,10 @@
               t[1]);
      /*<<weak.ml:159:38>>*/ }
     function count_bucket(i, b, accu){
-      /*<<weak.ml:173:4>>*/ var i$0 = i, accu$0 = accu;
+     var i$0 = i, accu$0 = accu;
       /*<<weak.ml:173:4>>*/ for(;;){
       if(length(b) <= i$0)  /*<<weak.ml:173:26>>*/ return accu$0;
-       /*<<weak.ml:174:37>>*/ var
+      var
         /*<<weak.ml:174:37>>*/ _y_ = check(b, i$0) ? 1 : 0,
        accu$1 = accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
@@ -26607,7 +26256,7 @@
      }
      /*<<weak.ml:174:62>>*/ }
     function count(t){
-      /*<<weak.ml:178:4>>*/ var _v_ = 0;
+     var _v_ = 0;
       /*<<weak.ml:178:4>>*/ return  /*<<weak.ml:178:4>>*/ caml_call3
              (Stdlib_Array[20],
               function(_w_, _x_){
@@ -26617,7 +26266,7 @@
               0);
      /*<<weak.ml:178:47>>*/ }
     function add_aux(t, setter, d, h, index){
-      /*<<weak.ml:238:4>>*/ var
+     var
        /*<<weak.ml:238:17>>*/ bucket$0 =
         caml_check_bound(t[1], index)[1 + index],
        /*<<weak.ml:239:17>>*/ hashes =
@@ -26632,10 +26281,10 @@
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
         /*<<weak.ml:264:8>>*/ return 0;
       }
-       /*<<weak.ml:260:38>>*/  /*<<weak.ml:260:38>>*/ var i$5 = i$3 + 1 | 0;
+       /*<<weak.ml:260:38>>*/ var i$5 = i$3 + 1 | 0;
       i$3 = i$5;
      }
-      /*<<weak.ml:244:10>>*/  /*<<weak.ml:244:10>>*/ var
+      /*<<weak.ml:244:10>>*/ var
       newsz =
          /*<<weak.ml:244:10>>*/ caml_call2
          (Stdlib_Int[10],
@@ -26644,7 +26293,7 @@
      if(newsz <= sz)
        /*<<weak.ml:246:28>>*/  /*<<weak.ml:246:28>>*/ caml_call1
        (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
-      /*<<weak.ml:247:24>>*/ var
+     var
        /*<<weak.ml:247:24>>*/ newbucket$0 = create(newsz),
        /*<<weak.ml:248:24>>*/ newhashes =
          /*<<weak.ml:248:24>>*/ caml_make_vect(newsz, 0);
@@ -26661,7 +26310,7 @@
       t[4] = t[4] + 1 | 0;
       var i$4 = 0;
       for(;;){
-        /*<<weak.ml:185:17>>*/ var
+       var
         _h_ = t[5],
          /*<<weak.ml:185:17>>*/ bucket = caml_check_bound(t[1], _h_)[1 + _h_],
          /*<<weak.ml:186:4>>*/ _i_ = t[5],
@@ -26670,7 +26319,7 @@
         prev_len = (((len - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0,
          /*<<weak.ml:189:15>>*/ live = count_bucket(0, bucket, 0);
        if(live <= prev_len){
-         /*<<weak.ml:201:14>>*/ var
+        var
           /*<<weak.ml:201:14>>*/ j$2 = length(bucket) - 1 | 0,
          i$0 = 0,
          j = j$2;
@@ -26682,19 +26331,14 @@
          }
          else if(check(bucket, j)){
            /*<<weak.ml:195:12>>*/ blit(bucket, j, bucket, i$0, 1);
-           /*<<weak.ml:196:27>>*/  /*<<weak.ml:196:27>>*/ var
+           /*<<weak.ml:196:27>>*/ var
            _j_ = caml_check_bound(hbucket, j)[1 + j];
            /*<<weak.ml:196:12>>*/ caml_check_bound(hbucket, i$0)[1 + i$0] = _j_;
-           /*<<weak.ml:196:12>>*/ var
-            /*<<weak.ml:196:12>>*/ j$0 = j - 1 | 0,
-           i$2 = i$0 + 1 | 0;
+          var  /*<<weak.ml:196:12>>*/ j$0 = j - 1 | 0, i$2 = i$0 + 1 | 0;
           i$0 = i$2;
           j = j$0;
          }
-         else{
-           /*<<weak.ml:198:19>>*/  /*<<weak.ml:198:19>>*/ var j$1 = j - 1 | 0;
-          j = j$1;
-         }
+         else{ /*<<weak.ml:198:19>>*/ var j$1 = j - 1 | 0; j = j$1;}
         }
         if(0 === prev_len){
          var _k_ = t[5];
@@ -26703,12 +26347,11 @@
           /*<<weak.ml:204:8>>*/ caml_check_bound(t[2], _l_)[1 + _l_] = [0];
         }
         else{
-          /*<<weak.ml:206:24>>*/  /*<<weak.ml:206:24>>*/ var
-          newbucket = create(prev_len);
+          /*<<weak.ml:206:24>>*/ var newbucket = create(prev_len);
           /*<<weak.ml:207:8>>*/ blit(bucket, 0, newbucket, 0, prev_len);
          var _o_ = t[5];
           /*<<weak.ml:208:8>>*/ caml_check_bound(t[1], _o_)[1 + _o_] = newbucket;
-          /*<<weak.ml:209:30>>*/ var
+         var
            /*<<weak.ml:209:30>>*/ _p_ =
              /*<<weak.ml:209:30>>*/ caml_call3
              (Stdlib_Array[6], hbucket, 0, prev_len),
@@ -26721,22 +26364,20 @@
         if(_n_) t[4] = t[4] - 1 | 0;
        }
        t[5] = caml_mod(t[5] + 1 | 0, t[1].length - 1);
-        /*<<weak.ml:257:38>>*/  /*<<weak.ml:257:38>>*/ var _u_ = i$4 + 1 | 0;
+        /*<<weak.ml:257:38>>*/ var _u_ = i$4 + 1 | 0;
        if(2 === i$4) break;
        i$4 = _u_;
       }
      }
      var _t_ = ((t[1].length - 1) / 2 | 0) < t[4] ? 1 : 0;
      if(! _t_) return _t_;
-      /*<<weak.ml:181:18>>*/ var
+     var
       oldlen = t[1].length - 1,
        /*<<weak.ml:181:18>>*/ newlen =
          /*<<weak.ml:181:18>>*/ caml_call2
          (Stdlib_Int[10], ((3 * oldlen | 0) / 2 | 0) + 3 | 0, Stdlib_Sys[13]);
      if(oldlen < newlen){
-       /*<<weak.ml:220:17>>*/ var
-        /*<<weak.ml:220:17>>*/ newt = create$0(newlen),
-       i = 0;
+      var  /*<<weak.ml:220:17>>*/ newt = create$0(newlen), i = 0;
        /*<<weak.ml:169:16>>*/  /*<<weak.ml:169:16>>*/ caml_call2
        (Stdlib_Array[13],
         function(j, ob){
@@ -26744,10 +26385,9 @@
           /*<<weak.ml:164:6>>*/ for(;;){
           if(length(ob) <= oi)  /*<<weak.ml:164:28>>*/ return 0;
           if(check(ob, oi)){
-            /*<<weak.ml:166:20>>*/  /*<<weak.ml:166:20>>*/ var
-            oh = caml_check_bound(t[2], j)[1 + j];
+            /*<<weak.ml:166:20>>*/ var oh = caml_check_bound(t[2], j)[1 + j];
            let oi$0 = oi;
-            /*<<weak.ml:223:16>>*/ var
+           var
             setter =
               function(nb, ni, param){
                 /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1);
@@ -26774,13 +26414,13 @@
      return 0;
      /*<<weak.ml:267:10>>*/ }
     function add(t, d){
-      /*<<weak.ml:271:4>>*/  /*<<weak.ml:271:12>>*/ var
+      /*<<weak.ml:271:12>>*/ var
       h =  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
       /*<<weak.ml:272:29>>*/ return add_aux
              (t, set, [0, d], h, get_index(t, h));
      /*<<weak.ml:272:44>>*/ }
     function find_aux(t, d, found, notfound){
-      /*<<weak.ml:278:4>>*/ var
+     var
        /*<<weak.ml:278:12>>*/ h =  /*<<weak.ml:278:12>>*/ caml_call1(H[2], d),
        /*<<weak.ml:279:16>>*/ index = get_index(t, h),
        /*<<weak.ml:280:17>>*/ bucket =
@@ -26794,8 +26434,7 @@
         /*<<weak.ml:279:16>>*/ return  /*<<weak.ml:279:16>>*/ caml_call2
                (notfound, h, index);
       if(h === caml_check_bound(hashes, i)[1 + i]){
-        /*<<weak.ml:286:14>>*/  /*<<weak.ml:286:14>>*/ var
-        opt = get(bucket, i);
+        /*<<weak.ml:286:14>>*/ var opt = get(bucket, i);
        if(opt){
         var v = opt[1];
          /*<<weak.ml:287:29>>*/ if
@@ -26803,13 +26442,10 @@
           /*<<weak.ml:287:44>>*/ return  /*<<weak.ml:287:44>>*/ caml_call4
                  (found, bucket, i, opt, v);
        }
-        /*<<weak.ml:288:15>>*/  /*<<weak.ml:288:15>>*/ var i$0 = i + 1 | 0;
+        /*<<weak.ml:288:15>>*/ var i$0 = i + 1 | 0;
        i = i$0;
       }
-      else{
-        /*<<weak.ml:289:15>>*/  /*<<weak.ml:289:15>>*/ var i$1 = i + 1 | 0;
-       i = i$1;
-      }
+      else{ /*<<weak.ml:289:15>>*/ var i$1 = i + 1 | 0; i = i$1;}
      }
      /*<<weak.ml:291:10>>*/ }
     function find_opt(t, d){
@@ -26870,7 +26506,7 @@
                /*<<weak.ml:307:53>>*/ });
      /*<<weak.ml:307:54>>*/ }
     function find_all(t, d){
-      /*<<weak.ml:310:4>>*/ var
+     var
        /*<<weak.ml:310:12>>*/ h =  /*<<weak.ml:310:12>>*/ caml_call1(H[2], d),
        /*<<weak.ml:311:16>>*/ index = get_index(t, h),
        /*<<weak.ml:312:17>>*/ bucket =
@@ -26883,13 +26519,12 @@
       /*<<weak.ml:316:6>>*/ for(;;){
       if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
       if(h === caml_check_bound(hashes, i)[1 + i]){
-        /*<<weak.ml:318:14>>*/  /*<<weak.ml:318:14>>*/ var
-        match = get(bucket, i);
+        /*<<weak.ml:318:14>>*/ var match = get(bucket, i);
        if(match){
         var v = match[1];
          /*<<weak.ml:319:22>>*/ if
          ( /*<<weak.ml:319:22>>*/ caml_call2(H[1], v, d)){
-          /*<<weak.ml:319:50>>*/ var
+         var
            /*<<weak.ml:319:50>>*/ accu$0 = [0, v, accu],
            /*<<weak.ml:319:50>>*/ i$0 = i + 1 | 0;
          i = i$0;
@@ -26904,13 +26539,13 @@
      }
      /*<<weak.ml:323:13>>*/ }
     function stats(t){
-      /*<<weak.ml:326:4>>*/ var
+     var
       len = t[1].length - 1,
        /*<<weak.ml:327:15>>*/ lens =
          /*<<weak.ml:327:15>>*/ caml_call2(Stdlib_Array[14], length, t[1]);
       /*<<weak.ml:328:4>>*/  /*<<weak.ml:328:4>>*/ caml_call2
       (Stdlib_Array[35], runtime.caml_int_compare, lens);
-      /*<<weak.ml:329:17>>*/ var
+     var
        /*<<weak.ml:329:17>>*/ totlen =
          /*<<weak.ml:329:17>>*/ caml_call3
          (Stdlib_Array[18],
@@ -26953,27 +26588,28 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst$16 = "",
-    cst$15 = ">",
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length = runtime.caml_ml_string_length;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst$16 = "",
+     /*<<?>>*/ cst$15 = ">",
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length;
+   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){
+   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){
+   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){
+   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]);
@@ -27011,7 +26647,7 @@
     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
+   var
     zero = 0,
     unknown = -1,
      /*<<format.ml:91:13>>*/ String_tag =
@@ -27042,8 +26678,7 @@
     state[11] = 0;
     /*<<format.ml:260: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>>*/ var _a__ = s !== cst$16 ? 1 : 0;
      /*<<format.ml:264:5>>*/ return _a__
             ? format_pp_text(state, caml_ml_string_length(s), s)
             : _a__;
@@ -27053,7 +26688,7 @@
      /*<<format.ml:268:2>>*/ format_string(state, before);
      /*<<format.ml:269:2>>*/ pp_output_newline(state);
     state[11] = 1;
-     /*<<format.ml:273:20>>*/ var
+    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);
@@ -27076,11 +26711,11 @@
      /*<<?>>*/ if(typeof param === "number")
      switch(param){
        case 0:
-         /*<<format.ml:348:16>>*/  /*<<format.ml:348:16>>*/ var
+         /*<<format.ml:348: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
+        var
          tabs = match$3[1][1],
           /*<<format.ml:351:6>>*/ add_tab =
            function(n, ls){
@@ -27102,7 +26737,7 @@
          (Stdlib_Stack[5], state[3]);
          /*<<format.ml:345:4>>*/ return;
        case 3:
-         /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ var
+         /*<<format.ml:378:16>>*/ var
          match$4 =
             /*<<format.ml:378:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
         if(! match$4)
@@ -27112,7 +26747,7 @@
        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
+         /*<<format.ml:306:8>>*/ var
          match$1 =
             /*<<format.ml:306:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
         if(! match$1)  /*<<format.ml:307:12>>*/ return;
@@ -27121,11 +26756,11 @@
         state[9] = state[9] + size | 0;
         return;
        default:
-         /*<<format.ml:419:17>>*/  /*<<format.ml:419:17>>*/ var
+         /*<<format.ml:419: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
+        var
          tag_name = match$5[1],
           /*<<format.ml:422:20>>*/ marker =
             /*<<format.ml:422:20>>*/ caml_call1(state[25], tag_name);
@@ -27136,7 +26771,7 @@
        var s = param[1];
         /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s);
       case 1:
-        /*<<format.ml:388:4>>*/ var
+       var
         breaks = param[2],
         fits = param[1],
          /*<<format.ml:388:4>>*/ off = breaks[2],
@@ -27181,14 +26816,14 @@
            /*<<format.ml:407:19>>*/ return break_same_line(state, fits);
        }
       case 2:
-        /*<<format.ml:359:16>>*/ var
+       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
+       var
         tabs$0 = match$8[1][1],
          /*<<format.ml:362:6>>*/ match$9 = tabs$0[1];
        if(match$9){
@@ -27218,7 +26853,7 @@
         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:295:8>>*/ var
          match =
             /*<<format.ml:295:8>>*/ caml_call1(Stdlib_Stack[8], state[2]);
         if(match){
@@ -27229,7 +26864,7 @@
         else
           /*<<format.ml:296:12>>*/ pp_output_newline(state);
        }
-        /*<<format.ml:331:4>>*/ var
+       var
         width$2 = state[9] - off$1 | 0,
          /*<<format.ml:331:4>>*/ box_type$1 =
           1 === ty ? 1 : state[9] < size$0 ? ty : 5;
@@ -27240,7 +26875,7 @@
         /*<<format.ml:342:4>>*/ return  /*<<format.ml:342:4>>*/ caml_call2
                (Stdlib_Stack[3], tbox, state[3]);
       default:
-        /*<<format.ml:414:18>>*/ var
+       var
         tag_name$0 = param[1],
          /*<<format.ml:414:18>>*/ marker$0 =
            /*<<format.ml:414:18>>*/ caml_call1(state[24], tag_name$0);
@@ -27250,10 +26885,10 @@
    }
    function advance_left(state){
      /*<<format.ml:431:2>>*/ for(;;){
-      /*<<format.ml:431:8>>*/  /*<<format.ml:431:8>>*/ var
+      /*<<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
+     var
       match$0 = match[1],
       size = match$0[1],
       length = match$0[3],
@@ -27265,8 +26900,7 @@
      if(! _a7_)  /*<<format.ml:435:7>>*/ return _a7_;
       /*<<format.ml:436:6>>*/  /*<<format.ml:436:6>>*/ caml_call1
       (Stdlib_Queue[5], state[28]);
-      /*<<format.ml:437:20>>*/  /*<<format.ml:437:20>>*/ var
-      size$0 = 0 <= size ? size : pp_infinity;
+      /*<<format.ml:437:20>>*/ var size$0 = 0 <= size ? size : pp_infinity;
       /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
      state[12] = length + state[12] | 0;
     }
@@ -27282,16 +26916,15 @@
    function initialize_scan_stack(stack){
      /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
      (Stdlib_Stack[9], stack);
-     /*<<format.ml:463:19>>*/  /*<<format.ml:463:19>>*/ var
-     queue_elem = [0, unknown, _b_, 0];
+     /*<<format.ml:463:19>>*/ var queue_elem = [0, unknown, _b_, 0];
      /*<<format.ml:464:2>>*/ return  /*<<format.ml:464:2>>*/ caml_call2
             (Stdlib_Stack[3], [0, -1, queue_elem], stack);
     /*<<format.ml:464:50>>*/ }
    function set_size(state, ty){
-     /*<<format.ml:476:2>>*/  /*<<format.ml:476:8>>*/ var
+     /*<<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
+    var
      match$0 = match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
@@ -27322,15 +26955,14 @@
    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
-     elem = [0, state[13], token];
+     /*<<format.ml:505:13>>*/ var elem = [0, state[13], token];
      /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
             (Stdlib_Stack[3], elem, state[1]);
     /*<<format.ml:506:37>>*/ }
    function pp_open_box_gen(state, indent, br_ty){
      /*<<format.ml:513:2>>*/ state[14] = state[14] + 1 | 0;
     if(state[14] < state[15]){
-      /*<<format.ml:516:15>>*/ var
+     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);
@@ -27341,7 +26973,7 @@
      /*<<format.ml:454:2>>*/ return enqueue_string_as(state, x, s);
     /*<<format.ml:519:45>>*/ }
    function pp_close_box(state, param){
-     /*<<format.ml:527:2>>*/ var _a2_ = 1 < state[14] ? 1 : 0;
+    var _a2_ = 1 < state[14] ? 1 : 0;
     if(_a2_){
      if(state[14] < state[15]){
        /*<<format.ml:531:6>>*/ pp_enqueue(state, [0, zero, 1, 0]);
@@ -27364,8 +26996,7 @@
     }
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
-     /*<<format.ml:546:16>>*/  /*<<format.ml:546:16>>*/ var
-     token = [5, tag_name];
+     /*<<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>>*/ }
    function pp_close_stag(state, param){
@@ -27373,7 +27004,7 @@
       /*<<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
+      /*<<format.ml:555:10>>*/ var
       match =  /*<<format.ml:555:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
      if(match){
       var tag_name = match[1];
@@ -27455,18 +27086,18 @@
     }
     /*<<format.ml:615:16>>*/ }
    function pp_print_as_size(state, size, s){
-     /*<<format.ml:625:2>>*/ var _aY_ = state[14] < state[15] ? 1 : 0;
+    var _aY_ = state[14] < state[15] ? 1 : 0;
     return _aY_ ? enqueue_string_as(state, size, s) : _aY_;
     /*<<format.ml:626:37>>*/ }
    function pp_print_as(state, isize, s){
      /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s);
     /*<<format.ml:630:46>>*/ }
    function pp_print_string(state, s){
-     /*<<format.ml:634:2>>*/ var isize = caml_ml_string_length(s);
+    var isize = caml_ml_string_length(s);
      /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s);
     /*<<format.ml:634:39>>*/ }
    function pp_print_bytes(state, s){
-     /*<<format.ml:637:2>>*/ var
+    var
       /*<<format.ml:637:37>>*/ s$0 =
         /*<<format.ml:637:37>>*/ caml_call1(Stdlib_Bytes[6], s),
      isize = runtime.caml_ml_bytes_length(s);
@@ -27485,7 +27116,7 @@
             (state,  /*<<format.ml:646:50>>*/ caml_call1(Stdlib[30], b));
     /*<<format.ml:646:68>>*/ }
    function pp_print_char(state, c){
-     /*<<format.ml:650:2>>*/  /*<<format.ml:650:22>>*/ var
+     /*<<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>>*/ }
@@ -27517,21 +27148,21 @@
             (state[18], 0);
     /*<<format.ml:675:69>>*/ }
    function pp_force_newline(state, param){
-     /*<<format.ml:680:2>>*/ var _aX_ = state[14] < state[15] ? 1 : 0;
+    var _aX_ = state[14] < state[15] ? 1 : 0;
     return _aX_ ? enqueue_advance(state, [0, zero, 3, 0]) : _aX_;
     /*<<format.ml:681:78>>*/ }
    function pp_print_if_newline(state, param){
-     /*<<format.ml:686:2>>*/ var _aW_ = state[14] < state[15] ? 1 : 0;
+    var _aW_ = state[14] < state[15] ? 1 : 0;
     return _aW_ ? enqueue_advance(state, [0, zero, 4, 0]) : _aW_;
     /*<<format.ml:688:61>>*/ }
    function pp_print_custom_break(state, fits, breaks){
-     /*<<format.ml:694:2>>*/ var
+    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
+    var
      size = - state[13] | 0,
       /*<<format.ml:697:25>>*/ token = [1, fits, breaks],
      length =
@@ -27555,17 +27186,15 @@
      /*<<format.ml:722: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:725:15>>*/ var elem = [0, zero, [4, [0, [0, 0]]], 0];
      /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem);
     /*<<format.ml:726:30>>*/ }
    function pp_close_tbox(state, param){
-     /*<<format.ml:731:2>>*/ var _aR_ = 1 < state[14] ? 1 : 0;
+    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
-       elem = [0, zero, 2, 0];
+       /*<<format.ml:734:16>>*/ var elem = [0, zero, 2, 0];
        /*<<format.ml:735:5>>*/ enqueue_advance(state, elem);
       state[14] = state[14] - 1 | 0;
       var _aT_ = 0;
@@ -27578,9 +27207,9 @@
     return _aT_;
     /*<<format.ml:737:5>>*/ }
    function pp_print_tbreak(state, width, offset){
-     /*<<format.ml:742:2>>*/ var _aQ_ = state[14] < state[15] ? 1 : 0;
+    var _aQ_ = state[14] < state[15] ? 1 : 0;
     if(! _aQ_) return _aQ_;
-     /*<<format.ml:744:15>>*/ var
+    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);
@@ -27589,16 +27218,13 @@
      /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0);
     /*<<format.ml:748:53>>*/ }
    function pp_set_tab(state, param){
-     /*<<format.ml:751:2>>*/ var _aP_ = state[14] < state[15] ? 1 : 0;
+    var _aP_ = state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
-     /*<<format.ml:752:15>>*/  /*<<format.ml:752:15>>*/ var
-     elem = [0, zero, 0, 0];
+     /*<<format.ml:752:15>>*/ var elem = [0, zero, 0, 0];
      /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem);
     /*<<format.ml:753:30>>*/ }
    function pp_set_max_boxes(state, n){
-     /*<<format.ml:763:31>>*/ var
-     _aN_ = 1 < n ? 1 : 0,
-     _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
+    var _aN_ = 1 < n ? 1 : 0, _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
     return _aO_;
     /*<<format.ml:763:68>>*/ }
    function pp_get_max_boxes(state, param){
@@ -27618,11 +27244,11 @@
      /*<<format.ml:777:2>>*/ return n < 1000000010 ? n : 1000000009;
     /*<<format.ml:777:49>>*/ }
    function pp_set_max_indent(state, n$0){
-     /*<<format.ml:793:2>>*/ var _aM_ = 1 < n$0 ? 1 : 0;
+    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:783: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);
@@ -27631,14 +27257,14 @@
      /*<<format.ml:797:33>>*/ return state[8];
     /*<<format.ml:797:52>>*/ }
    function pp_set_margin(state, n){
-     /*<<format.ml:800:2>>*/ var _aJ_ = 1 <= n ? 1 : 0;
+    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:801: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
+     var
        /*<<format.ml:810:15>>*/ _aK_ =
          /*<<format.ml:810:15>>*/ caml_call2
          (Stdlib_Int[11], state[6] - state[7] | 0, state[6] / 2 | 0),
@@ -27667,12 +27293,12 @@
      /*<<format.ml:837:2>>*/ return 0;
    }
    function pp_set_geometry(state, max_indent, margin){
-     /*<<format.ml:841:2>>*/ var
+    var
       /*<<format.ml:841:17>>*/ geometry = [0, max_indent, margin],
       /*<<format.ml:842: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
+    var
      msg = match[1],
       /*<<format.ml:844:28>>*/ _aI_ =
         /*<<format.ml:844:28>>*/ caml_call2
@@ -27681,8 +27307,7 @@
            ([0, Stdlib[6], _aI_], 1);
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
-     /*<<format.ml:849:2>>*/  /*<<format.ml:849:17>>*/ var
-     geometry = [0, max_indent, margin];
+     /*<<format.ml:849:17>>*/ var geometry = [0, max_indent, margin];
     return 0 === validate_geometry(geometry)[0]
             ? pp_set_full_geometry(state, geometry)
             : 0;
@@ -27691,8 +27316,7 @@
      /*<<format.ml:857:2>>*/ return [0, state[8], state[6]];
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
-     /*<<format.ml:860:2>>*/  /*<<format.ml:860:17>>*/ var
-     geometry = pp_get_geometry(state, 0);
+     /*<<format.ml:860: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>>*/ }
@@ -27725,12 +27349,12 @@
      /*<<format.ml:895:31>>*/ return  /*<<format.ml:895:31>>*/ caml_call3
             (state[17], cst$7, 0, 1);
     /*<<format.ml:895:60>>*/ }
-    /*<<format.ml:898:17>>*/ var
+   var
      /*<<format.ml:898:17>>*/ blank_line =
        /*<<format.ml:898:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
     _g_ = [3, 0, 3];
    function display_blanks(state, n){
-     /*<<format.ml:900:2>>*/ var n$0 = n;
+    var n$0 = n;
      /*<<format.ml:900:2>>*/ for(;;){
      var _aH_ = 0 < n$0 ? 1 : 0;
      if(! _aH_) return _aH_;
@@ -27739,7 +27363,7 @@
               (state[17], blank_line, 0, n$0);
       /*<<format.ml:903:4>>*/  /*<<format.ml:903: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:903:4>>*/ var n$1 = n$0 - 80 | 0;
      n$0 = n$1;
     }
     /*<<format.ml:905:5>>*/ }
@@ -27760,7 +27384,7 @@
    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
+    var
      s = param[2],
       /*<<format.ml:927:26>>*/ _aD_ =
         /*<<format.ml:927:26>>*/ caml_call2(Stdlib[28], s, cst$8);
@@ -27770,7 +27394,7 @@
    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
+    var
      s = param[2],
       /*<<format.ml:930:27>>*/ _aC_ =
         /*<<format.ml:930:27>>*/ caml_call2(Stdlib[28], s, cst$11);
@@ -27780,18 +27404,18 @@
    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
+    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
      (Stdlib_Queue[3], sys_tok, pp_queue);
-     /*<<format.ml:944:19>>*/  /*<<format.ml:944:19>>*/ var
+     /*<<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
      (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
-     /*<<format.ml:946:2>>*/ var
+    var
       /*<<format.ml:946:2>>*/ pp_margin = 78,
      _aw_ = Stdlib[19],
       /*<<format.ml:954:20>>*/ _ax_ =
@@ -27835,7 +27459,7 @@
             (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]);
     /*<<format.ml:988:23>>*/ }
    function make_formatter(output, flush){
-     /*<<format.ml:994:2>>*/  /*<<format.ml:994:12>>*/ var
+     /*<<format.ml:994:12>>*/ var
      ppf =
        pp_make_formatter
         (output,
@@ -27866,7 +27490,7 @@
      /*<<format.ml:1015:24>>*/ return caml_call1
             (Stdlib_Buffer[1], pp_buffer_size);
     /*<<format.ml:1015:52>>*/ }
-    /*<<format.ml:1018:13>>*/ var
+   var
      /*<<format.ml:1018:13>>*/ stdbuf = pp_make_buffer(0),
      /*<<format.ml:1022:20>>*/ std_formatter =
       formatter_of_out_channel(Stdlib[39]),
@@ -27878,7 +27502,7 @@
        (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:1032:24>>*/ var
     str_formatter_key =
        /*<<format.ml:1032:24>>*/ caml_call2
        (Stdlib_Domain[10][1],
@@ -27890,14 +27514,14 @@
          /*<<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
+   function buffered_out_string(key, str, ofs, len){
+     /*<<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
             (Stdlib_Buffer[18], _ao_, str, ofs, len);
     /*<<format.ml:1037:55>>*/ }
    function buffered_out_flush(oc, key, param){
-     /*<<format.ml:1040:2>>*/ var
+    var
       /*<<format.ml:1040:12>>*/ buf =
         /*<<format.ml:1040:12>>*/ caml_call1(Stdlib_Domain[10][2], key),
       /*<<format.ml:1041:12>>*/ len =
@@ -27911,7 +27535,7 @@
      /*<<format.ml:1044:2>>*/ return  /*<<format.ml:1044:2>>*/ caml_call1
             (Stdlib_Buffer[8], buf);
     /*<<format.ml:1045:18>>*/ }
-    /*<<format.ml:1047:18>>*/ var
+   var
      /*<<format.ml:1047:18>>*/ std_buf_key =
        /*<<format.ml:1047:18>>*/ caml_call2
        (Stdlib_Domain[10][1],
@@ -27933,7 +27557,7 @@
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1051:2>>*/ var
+         var
           _ac_ = Stdlib[39],
            /*<<format.ml:1052:4>>*/ ppf =
             pp_make_formatter
@@ -27960,13 +27584,13 @@
          /*<<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:1062:24>>*/ var
     err_formatter_key =
        /*<<format.ml:1062:24>>*/ caml_call2
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1063:2>>*/ var
+         var
           _S_ = Stdlib[40],
            /*<<format.ml:1064:4>>*/ ppf =
             pp_make_formatter
@@ -28008,14 +27632,14 @@
     /*<<format.ml:1077: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
+     /*<<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
      (Stdlib_Buffer[9], buf);
      /*<<format.ml:1086:2>>*/ return s;
     /*<<format.ml:1087:3>>*/ }
    function flush_str_formatter(param){
-     /*<<format.ml:1091:2>>*/ var
+    var
       /*<<format.ml:1091:15>>*/ stdbuf =
         /*<<format.ml:1091:15>>*/ caml_call1(Stdlib_Domain[10][2], stdbuf_key),
       /*<<format.ml:1092:22>>*/ str_formatter =
@@ -28029,14 +27653,14 @@
             (Stdlib_Domain[10][1],
              0,
              function(param){
-               /*<<format.ml:1097:4>>*/ var
+              var
                 /*<<format.ml:1097:14>>*/ buf =
                   /*<<format.ml:1097: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);
               function flush$0(param){
-                /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:37>>*/ var
+                /*<<format.ml:1100:37>>*/ var
                 _R_ =
                    /*<<format.ml:1100:37>>*/ caml_call1(Stdlib_Buffer[7], buf);
                 /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:6>>*/ caml_call3
@@ -28071,8 +27695,7 @@
      /*<<format.ml:1140:2>>*/ return caml_call1(Stdlib_List[10], sob[1]);
     /*<<format.ml:1140:39>>*/ }
    function flush_symbolic_output_buffer(sob){
-     /*<<format.ml:1143:2>>*/  /*<<format.ml:1143:14>>*/ var
-     items = get_symbolic_output_buffer(sob);
+     /*<<format.ml:1143: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>>*/ }
@@ -28081,23 +27704,23 @@
     return 0;
     /*<<format.ml:1148:70>>*/ }
    function formatter_of_symbolic_output_b(sob){
-     /*<<format.ml:1162:10>>*/ function f(s, i, n){
+    function f(s, i, n){
       /*<<format.ml:1156:33>>*/ return add_symbolic_output_item
              (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
                 (Stdlib_String[16], s, i, n)]);
     }
-     /*<<format.ml:1163:10>>*/ function g(_Q_){
+    function g(_Q_){
       /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0);
     }
-     /*<<format.ml:1164:10>>*/ function h(_P_){
+    function h(_P_){
       /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1);
     }
-     /*<<format.ml:1165:10>>*/ function i(n){
+    function i(n){
       /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]);
     }
-     /*<<format.ml:1166:10>>*/ function j(n){
+    function j(n){
       /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]);
     }
      /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j);
@@ -28151,7 +27774,7 @@
              v);
     /*<<format.ml:1183:62>>*/ }
    function print_as(isize, w){
-     /*<<format.ml:1184:19>>*/  /*<<format.ml:1184:31>>*/ var
+     /*<<format.ml:1184:31>>*/ var
      state =
         /*<<format.ml:1184:31>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28274,7 +27897,7 @@
              v);
     /*<<format.ml:1206:62>>*/ }
    function get_margin(v){
-     /*<<format.ml:1207:19>>*/  /*<<format.ml:1207:33>>*/ var
+     /*<<format.ml:1207:33>>*/ var
      state =
         /*<<format.ml:1207:33>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28287,7 +27910,7 @@
              v);
     /*<<format.ml:1209:70>>*/ }
    function get_max_indent(v){
-     /*<<format.ml:1210:23>>*/  /*<<format.ml:1210:41>>*/ var
+     /*<<format.ml:1210:41>>*/ var
      state =
         /*<<format.ml:1210:41>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28326,7 +27949,7 @@
              v);
     /*<<format.ml:1219:68>>*/ }
    function get_max_boxes(v){
-     /*<<format.ml:1220:22>>*/  /*<<format.ml:1220:39>>*/ var
+     /*<<format.ml:1220:39>>*/ var
      state =
         /*<<format.ml:1220:39>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28345,7 +27968,7 @@
              v);
     /*<<format.ml:1223:76>>*/ }
    function get_ellipsis_text(v){
-     /*<<format.ml:1224:26>>*/  /*<<format.ml:1224:47>>*/ var
+     /*<<format.ml:1224:47>>*/ var
      state =
         /*<<format.ml:1224:47>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28401,7 +28024,7 @@
              v);
     /*<<format.ml:1244:49>>*/ }
    function get_print_tags(v){
-     /*<<format.ml:1246:2>>*/  /*<<format.ml:1246:20>>*/ var
+     /*<<format.ml:1246:20>>*/ var
      state =
         /*<<format.ml:1246:20>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28414,7 +28037,7 @@
              v);
     /*<<format.ml:1248:48>>*/ }
    function get_mark_tags(v){
-     /*<<format.ml:1250:2>>*/  /*<<format.ml:1250:19>>*/ var
+     /*<<format.ml:1250:19>>*/ var
      state =
         /*<<format.ml:1250:19>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
@@ -28427,7 +28050,7 @@
              v);
     /*<<format.ml:1252:43>>*/ }
    function pp_print_iter(opt, iter, pp_v, ppf, v){
-     /*<<format.ml:1258:17>>*/ var
+    var
      pp_sep = opt ? opt[1] : pp_print_cut,
       /*<<format.ml:1258:17>>*/ is_first = [0, 1];
     function pp_v$0(v){
@@ -28458,7 +28081,7 @@
             ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq);
    }
    function pp_print_text(ppf, s){
-     /*<<format.ml:1279:2>>*/ var
+    var
      len = caml_ml_string_length(s),
       /*<<format.ml:1280:13>>*/ left = [0, 0],
       /*<<format.ml:1281:14>>*/ right = [0, 0];
@@ -28476,7 +28099,7 @@
       var _O_ = left[1] !== len ? 1 : 0;
       return _O_ ? flush(0) : _O_;
      }
-      /*<<format.ml:1287:10>>*/  /*<<format.ml:1287:10>>*/ var
+      /*<<format.ml:1287:10>>*/ var
       match =  /*<<format.ml:1287:10>>*/ runtime.caml_string_get(s, right[1]);
      if(10 === match){
        /*<<format.ml:1289:8>>*/ flush(0);
@@ -28527,14 +28150,14 @@
             (right, ppf, r);
    }
    function compute_tag(output, tag_acc){
-     /*<<format.ml:1314:2>>*/ var
+    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
      (output, ppf, tag_acc);
      /*<<format.ml:1317:2>>*/ pp_print_flush(ppf, 0);
-     /*<<format.ml:1318:12>>*/  /*<<format.ml:1318:12>>*/ var
+     /*<<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
@@ -28594,7 +28217,7 @@
           }
           var acc$1 = match[1];
            /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
-           /*<<format.ml:1366:43>>*/ var
+          var
             /*<<format.ml:1366:43>>*/ _E_ = compute_tag(output_acc, acc$1),
             /*<<format.ml:1366:24>>*/ match$0 =
               /*<<format.ml:1366:24>>*/ caml_call1
@@ -28701,7 +28324,7 @@
           }
           var acc$1 = match[1];
            /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
-           /*<<format.ml:1401:43>>*/ var
+          var
             /*<<format.ml:1401:43>>*/ _v_ = compute_tag(strput_acc, acc$1),
             /*<<format.ml:1401:24>>*/ match$0 =
               /*<<format.ml:1401:24>>*/ caml_call1
@@ -28871,7 +28494,7 @@
              fmt);
     /*<<format.ml:1446:43>>*/ }
    function ksprintf(k, param){
-     /*<<format.ml:1449:10>>*/ var
+    var
      fmt = param[1],
       /*<<format.ml:1449:10>>*/ b = pp_make_buffer(0),
       /*<<format.ml:1450:12>>*/ ppf = formatter_of_buffer(b);
@@ -28887,7 +28510,7 @@
      /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt);
     /*<<format.ml:1457:33>>*/ }
    function kasprintf(k, param){
-     /*<<format.ml:1460:10>>*/ var
+    var
      fmt = param[1],
       /*<<format.ml:1460:10>>*/ b = pp_make_buffer(0),
       /*<<format.ml:1461:12>>*/ ppf = formatter_of_buffer(b);
@@ -28918,7 +28541,7 @@
     (Stdlib_Domain[5],
      function(param){
        /*<<format.ml:1479:2>>*/ flush_standard_formatters(0);
-       /*<<format.ml:1480:11>>*/ var
+      var
         /*<<format.ml:1480:11>>*/ fs =
          pp_get_formatter_out_functions(std_formatter, 0),
        _h_ = Stdlib[39];
@@ -28934,7 +28557,7 @@
          fs[3],
          fs[4],
          fs[5]]);
-       /*<<format.ml:1485:11>>*/ var
+      var
         /*<<format.ml:1485:11>>*/ fs$0 =
          pp_get_formatter_out_functions(err_formatter, 0),
        _i_ = Stdlib[40];
@@ -29116,37 +28739,38 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst$5 = '"',
-    cst$6 = "-",
-    cst_character = "character ",
-    cst_scanf_ml = "scanf.ml",
-    cst_scanf_bad_conversion$3 = 'scanf: bad conversion "%*"',
-    cst_scanning_of = "scanning of ",
-    caml_bytes_get = runtime.caml_bytes_get,
-    caml_int_of_string = runtime.caml_int_of_string,
-    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_trampoline = runtime.caml_trampoline,
-    caml_trampoline_return = runtime.caml_trampoline_return,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst$5 = '"',
+     /*<<?>>*/ cst$6 = "-",
+     /*<<?>>*/ cst_character = "character ",
+     /*<<?>>*/ cst_scanf_ml = "scanf.ml",
+     /*<<?>>*/ cst_scanf_bad_conversion$3 = 'scanf: bad conversion "%*"',
+     /*<<?>>*/ cst_scanning_of = "scanning of ",
+     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
+     /*<<?>>*/ caml_int_of_string = runtime.caml_int_of_string,
+     /*<<?>>*/ 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_trampoline = runtime.caml_trampoline,
+     /*<<?>>*/ caml_trampoline_return = runtime.caml_trampoline_return,
+     /*<<?>>*/ 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){
+   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){
+   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){
+   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]);
@@ -29182,7 +28806,7 @@
     cst_unnamed_Stdlib_input_chann = "unnamed Stdlib input channel";
    function next_char(ib){
      /*<<scanf.ml:165:4>>*/ try{
-      /*<<scanf.ml:166:14>>*/  /*<<scanf.ml:166:14>>*/ var
+      /*<<scanf.ml:166:14>>*/ var
       c =  /*<<scanf.ml:166:14>>*/ caml_call1(ib[7], 0);
      ib[2] = c;
      ib[3] = 1;
@@ -29203,7 +28827,7 @@
      /*<<scanf.ml:181:4>>*/ return ib[3] ? ib[2] : next_char(ib);
     /*<<scanf.ml:183:21>>*/ }
    function checked_peek_char(ib){
-     /*<<scanf.ml:192:4>>*/  /*<<scanf.ml:192:12>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:192:12>>*/ var c = peek_char(ib);
     if(ib[1])
       /*<<scanf.ml:193:22>>*/ throw  /*<<scanf.ml:193:22>>*/ caml_maybe_attach_backtrace
             (Stdlib[12], 1);
@@ -29217,7 +28841,7 @@
      /*<<scanf.ml:204:30>>*/ return 0 === ib[4] ? 1 : 0;
     /*<<scanf.ml:204:50>>*/ }
    function name_of_input(ib){
-     /*<<scanf.ml:207:4>>*/ var match = ib[9];
+    var match = ib[9];
     if(typeof match === "number")
      return 0 === match ? cst_unnamed_function : cst_unnamed_character_string;
     if(0 === match[0])
@@ -29233,7 +28857,7 @@
     return 0;
     /*<<scanf.ml:224:71>>*/ }
    function token_string(ib){
-     /*<<scanf.ml:227:4>>*/ var
+    var
      token_buffer = ib[8],
       /*<<scanf.ml:228:14>>*/ tok =
         /*<<scanf.ml:228:14>>*/ caml_call1(Stdlib_Buffer[2], token_buffer);
@@ -29243,7 +28867,7 @@
      /*<<scanf.ml:231:4>>*/ return tok;
     /*<<scanf.ml:231:7>>*/ }
    function ignore_char(width, ib){
-     /*<<scanf.ml:241:29>>*/ var width$0 = width - 1 | 0;
+    var width$0 = width - 1 | 0;
      /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
      /*<<scanf.ml:237:4>>*/ return width$0;
     /*<<scanf.ml:241:53>>*/ }
@@ -29267,7 +28891,7 @@
             iname];
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
-     /*<<scanf.ml:264:4>>*/ var
+    var
       /*<<scanf.ml:264:12>>*/ i = [0, 0],
       /*<<scanf.ml:265:4>>*/ len =
         /*<<scanf.ml:265:4>>*/ caml_ml_string_length(s);
@@ -29275,7 +28899,7 @@
       /*<<scanf.ml:267:6>>*/ if(len <= i[1])
        /*<<scanf.ml:267:24>>*/ throw  /*<<scanf.ml:267:24>>*/ caml_maybe_attach_backtrace
              (Stdlib[12], 1);
-      /*<<scanf.ml:268:14>>*/  /*<<scanf.ml:268:14>>*/ var
+      /*<<scanf.ml:268:14>>*/ var
       c =  /*<<scanf.ml:268:14>>*/ caml_string_get(s, i[1]);
       /*<<scanf.ml:269:6>>*/ i[1]++;
       /*<<scanf.ml:270:6>>*/ return c;
@@ -29283,9 +28907,7 @@
      /*<<scanf.ml:271:4>>*/ return create(1, next);
     /*<<scanf.ml:271:27>>*/ }
    var _a_ = 0;
-    /*<<scanf.ml:274:22>>*/ function from_function(_aW_){
-     /*<<?>>*/ return create(_a_, _aW_);
-   }
+   function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
     /*<<scanf.ml:274:22>>*/ var len = 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/  /*<<scanf.ml:320:29>>*/ caml_call1
@@ -29298,7 +28920,7 @@
            (Stdlib[12], 1);
     /*<<scanf.ml:324:47>>*/ }
    function from_ic(scan_close_ic, iname, ic){
-     /*<<scanf.ml:327:4>>*/ var
+    var
       /*<<scanf.ml:328:14>>*/ buf =
         /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes(1024),
       /*<<scanf.ml:329:12>>*/ i = [0, 0],
@@ -29306,7 +28928,7 @@
       /*<<scanf.ml:331:14>>*/ eof = [0, 0];
     function next(param){
       /*<<scanf.ml:333:6>>*/ if(i[1] < lim[1]){
-       /*<<scanf.ml:333:38>>*/  /*<<scanf.ml:333:38>>*/ var
+       /*<<scanf.ml:333:38>>*/ var
        c =  /*<<scanf.ml:333:38>>*/ caml_bytes_get(buf, i[1]);
        /*<<scanf.ml:333:58>>*/ i[1]++;
        /*<<scanf.ml:333:66>>*/ return c;
@@ -29321,28 +28943,24 @@
      /*<<scanf.ml:340:9>>*/ }
      /*<<scanf.ml:341:4>>*/ return create(iname, next);
     /*<<scanf.ml:341:21>>*/ }
-    /*<<scanf.ml:363:4>>*/  /*<<scanf.ml:363:4>>*/ var
+    /*<<scanf.ml:363:4>>*/ var
     stdin = from_ic(scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
    function open_in_file(open_in, fname){
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
       /*<<scanf.ml:363:4>>*/ return stdin;
-     /*<<scanf.ml:370:15>>*/  /*<<scanf.ml:370:15>>*/ var
+     /*<<scanf.ml:370:15>>*/ var
      ic =  /*<<scanf.ml:370:15>>*/ caml_call1(open_in, fname);
     return from_ic(scan_close_at_end, [1, fname, ic], ic);
     /*<<scanf.ml:371:53>>*/ }
    var _b_ = Stdlib[79];
-    /*<<scanf.ml:374:16>>*/ function open_in(_aV_){
-     /*<<?>>*/ return open_in_file(_b_, _aV_);
-   }
+   function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
     /*<<scanf.ml:374:16>>*/ var _c_ = Stdlib[80];
-    /*<<scanf.ml:375:20>>*/ function open_in_bin(_aU_){
-     /*<<?>>*/ return open_in_file(_c_, _aU_);
-   }
+   function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
    function from_channel(ic){
      /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic);
     /*<<scanf.ml:381:45>>*/ }
    function close_in(ib){
-     /*<<scanf.ml:385:4>>*/ var match = ib[9];
+    var match = ib[9];
     if(typeof match === "number")  /*<<scanf.ml:389:37>>*/ return 0;
     if(0 === match[0]){
      var ic = match[1];
@@ -29353,7 +28971,7 @@
      /*<<scanf.ml:388:32>>*/ return  /*<<scanf.ml:388:32>>*/ caml_call1
             (Stdlib[93], ic$0);
     /*<<scanf.ml:389:39>>*/ }
-    /*<<scanf.ml:403:0>>*/ var
+   var
      /*<<scanf.ml:403:0>>*/ Scan_failure =
       [248, "Stdlib.Scanf.Scan_failure", runtime.caml_fresh_oo_id(0)],
     _d_ =
@@ -29462,8 +29080,7 @@
     /*<<scanf.ml:440:41>>*/ }
    function check_char(ib, c$0){
      /*<<scanf.ml:468:2>>*/ if(10 === c$0){
-      /*<<scanf.ml:479:11>>*/  /*<<scanf.ml:479:11>>*/ var
-      ci = checked_peek_char(ib);
+      /*<<scanf.ml:479:11>>*/ var ci = checked_peek_char(ib);
       /*<<scanf.ml:480:2>>*/ return 10 === ci
              ? invalidate_current_char(ib)
              : 13
@@ -29473,11 +29090,11 @@
     }
     if(32 !== c$0)  /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0);
      /*<<scanf.ml:444:2>>*/ for(;;){
-      /*<<scanf.ml:444:10>>*/ var
+     var
        /*<<scanf.ml:444:10>>*/ c = peek_char(ib),
        /*<<scanf.ml:445:9>>*/ _aS_ = 1 - ib[1];
      if(! _aS_)  /*<<scanf.ml:445:9>>*/ return _aS_;
-      /*<<scanf.ml:445:32>>*/  /*<<scanf.ml:445:32>>*/ var _aT_ = c - 9 | 0;
+      /*<<scanf.ml:445:32>>*/ var _aT_ = c - 9 | 0;
      a:
      {
       if(4 < _aT_ >>> 0){
@@ -29490,8 +29107,7 @@
     }
     /*<<scanf.ml:471:29>>*/ }
    function check_this_char(ib, c){
-     /*<<scanf.ml:474:2>>*/  /*<<scanf.ml:474:11>>*/ var
-     ci = checked_peek_char(ib);
+     /*<<scanf.ml:474:11>>*/ var ci = checked_peek_char(ib);
     return ci === c ? invalidate_current_char(ib) : character_mismatch(c, ci);
     /*<<scanf.ml:476:25>>*/ }
    function token_char(ib){
@@ -29499,7 +29115,7 @@
             (token_string(ib), 0);
     /*<<scanf.ml:488:43>>*/ }
    function token_bool(ib){
-     /*<<scanf.ml:493:2>>*/  /*<<scanf.ml:493:8>>*/ var s = token_string(ib);
+     /*<<scanf.ml:493:8>>*/ var s = token_string(ib);
     return s !== "false"
             ? s
               !== "true"
@@ -29509,8 +29125,7 @@
             : 0;
     /*<<scanf.ml:496:60>>*/ }
    function integer_conversion_of_char(param){
-     /*<<scanf.ml:509:33>>*/  /*<<scanf.ml:509:33>>*/ var
-     switcher = param - 88 | 0;
+     /*<<scanf.ml:509:33>>*/ var switcher = param - 88 | 0;
     if(32 >= switcher >>> 0)
      switch(switcher){
        case 10:
@@ -29533,28 +29148,28 @@
    function token_int_literal(conv, ib){
      /*<<scanf.ml:523:2>>*/ switch(conv){
       case 0:
-        /*<<scanf.ml:529:29>>*/ var
+       var
          /*<<scanf.ml:529:29>>*/ _aO_ = token_string(ib),
         tok =  /*<<scanf.ml:529:22>>*/ caml_call2(Stdlib[28], cst_0b, _aO_);
        break;
       case 3:
-        /*<<scanf.ml:527:29>>*/ var
+       var
          /*<<scanf.ml:527:29>>*/ _aP_ = token_string(ib),
         tok =  /*<<scanf.ml:527:22>>*/ caml_call2(Stdlib[28], cst_0o, _aP_);
        break;
       case 4:
-        /*<<scanf.ml:526:29>>*/ var
+       var
          /*<<scanf.ml:526:29>>*/ _aQ_ = token_string(ib),
         tok =  /*<<scanf.ml:526:22>>*/ caml_call2(Stdlib[28], cst_0u, _aQ_);
        break;
       case 5:
-        /*<<scanf.ml:528:29>>*/ var
+       var
          /*<<scanf.ml:528:29>>*/ _aR_ = token_string(ib),
         tok =  /*<<scanf.ml:528:22>>*/ caml_call2(Stdlib[28], cst_0x, _aR_);
        break;
       default: var tok = token_string(ib);
     }
-     /*<<scanf.ml:530:2>>*/  /*<<scanf.ml:530:2>>*/ var
+     /*<<scanf.ml:530:2>>*/ var
      l =  /*<<scanf.ml:530:2>>*/ caml_ml_string_length(tok);
      /*<<scanf.ml:531:2>>*/ if
      (0 !== l && 43 ===  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0))
@@ -29567,23 +29182,21 @@
             (token_string(ib));
     /*<<scanf.ml:539:56>>*/ }
    function scan_decimal_digit_star(width, ib){
-     /*<<scanf.ml:575:2>>*/ var width$0 = width;
+    var width$0 = width;
      /*<<scanf.ml:575:2>>*/ for(;;){
      if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
-      /*<<scanf.ml:576:10>>*/  /*<<scanf.ml:576:10>>*/ var c = peek_char(ib);
+      /*<<scanf.ml:576:10>>*/ var c = peek_char(ib);
       /*<<scanf.ml:577:5>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0;
      if(58 <= c){
       if(95 === c){
-        /*<<scanf.ml:583:16>>*/  /*<<scanf.ml:583:16>>*/ var
-        width$1 = ignore_char(width$0, ib);
+        /*<<scanf.ml:583:16>>*/ var width$1 = ignore_char(width$0, ib);
        width$0 = width$1;
        continue;
       }
      }
      else if(48 <= c){
-       /*<<scanf.ml:580:16>>*/  /*<<scanf.ml:580:16>>*/ var
-       width$2 = store_char(width$0, ib, c);
+       /*<<scanf.ml:580:16>>*/ var width$2 = store_char(width$0, ib, c);
       width$0 = width$2;
       continue;
      }
@@ -29593,42 +29206,37 @@
    function scan_decimal_digit_plus(width, ib){
      /*<<scanf.ml:589:2>>*/ if(0 === width)
       /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits);
-     /*<<scanf.ml:590:10>>*/  /*<<scanf.ml:590:10>>*/ var
-     c = checked_peek_char(ib);
+     /*<<scanf.ml:590:10>>*/ var c = checked_peek_char(ib);
     if(9 < c - 48 >>> 0)
       /*<<scanf.ml:596:14>>*/ return bad_input
              ( /*<<scanf.ml:596:14>>*/ caml_call2(Stdlib_Printf[4], _j_, c));
-     /*<<scanf.ml:593:16>>*/  /*<<scanf.ml:593:16>>*/ var
-     width$0 = store_char(width, ib, c);
+     /*<<scanf.ml:593:16>>*/ var width$0 = store_char(width, ib, c);
      /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib);
     /*<<scanf.ml:596:70>>*/ }
    function scan_digit_plus(basis, digitp, width$2, ib){
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
       /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits);
-     /*<<scanf.ml:621:10>>*/  /*<<scanf.ml:621:10>>*/ var
-     c$0 = checked_peek_char(ib);
+     /*<<scanf.ml:621:10>>*/ var c$0 = checked_peek_char(ib);
      /*<<scanf.ml:622:5>>*/ if
      (!  /*<<scanf.ml:622:5>>*/ caml_call1(digitp, c$0))
       /*<<scanf.ml:626:14>>*/ return bad_input
              ( /*<<scanf.ml:626:14>>*/ caml_call3
                (Stdlib_Printf[4], _k_, c$0, basis));
-     /*<<scanf.ml:623:16>>*/ var
+    var
       /*<<scanf.ml:623:16>>*/ width$3 = store_char(width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
      if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
-      /*<<scanf.ml:604:12>>*/  /*<<scanf.ml:604:12>>*/ var c = peek_char(ib);
+      /*<<scanf.ml:604:12>>*/ var c = peek_char(ib);
       /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
       /*<<scanf.ml:607:13>>*/ if
       ( /*<<scanf.ml:607:13>>*/ caml_call1(digitp, c)){
-       /*<<scanf.ml:608:18>>*/  /*<<scanf.ml:608:18>>*/ var
-       width$0 = store_char(width, ib, c);
+       /*<<scanf.ml:608:18>>*/ var width$0 = store_char(width, ib, c);
       width = width$0;
      }
      else{
       if(95 !== c)  /*<<scanf.ml:613:11>>*/ return width;
-       /*<<scanf.ml:611:18>>*/  /*<<scanf.ml:611:18>>*/ var
-       width$1 = ignore_char(width, ib);
+       /*<<scanf.ml:611:18>>*/ var width$1 = ignore_char(width, ib);
       width = width$1;
      }
     }
@@ -29640,8 +29248,7 @@
      /*<<scanf.ml:636:21>>*/ return 7 < param - 48 >>> 0 ? 0 : 1;
     /*<<scanf.ml:638:14>>*/ }
    function is_hexa_digit(param){
-     /*<<scanf.ml:643:20>>*/  /*<<scanf.ml:643:20>>*/ var
-     _aN_ = param - 48 | 0;
+     /*<<scanf.ml:643:20>>*/ var _aN_ = param - 48 | 0;
     a:
     {
      if(22 < _aN_ >>> 0){
@@ -29653,7 +29260,7 @@
      /*<<scanf.ml:645:9>>*/ return 0;
     /*<<scanf.ml:645:14>>*/ }
    function scan_sign(width, ib){
-     /*<<scanf.ml:654:2>>*/ var
+    var
       /*<<scanf.ml:654:10>>*/ c = checked_peek_char(ib),
       /*<<scanf.ml:654:10>>*/ switcher = c - 43 | 0;
     if(2 >= switcher >>> 0)
@@ -29666,8 +29273,7 @@
      /*<<scanf.ml:658:9>>*/ return width;
     /*<<scanf.ml:658:14>>*/ }
    function scan_optionally_signed_decimal(width, ib){
-     /*<<scanf.ml:662:2>>*/  /*<<scanf.ml:662:14>>*/ var
-     width$0 = scan_sign(width, ib);
+     /*<<scanf.ml:662:14>>*/ var width$0 = scan_sign(width, ib);
      /*<<scanf.ml:663:2>>*/ return scan_decimal_digit_plus(width$0, ib);
     /*<<scanf.ml:663:36>>*/ }
    function scan_int_conversion(conv, width$1, ib){
@@ -29678,17 +29284,15 @@
         /*<<scanf.ml:693:20>>*/ return scan_optionally_signed_decimal
                (width$1, ib);
       case 2:
-        /*<<scanf.ml:686:14>>*/ var
+       var
          /*<<scanf.ml:686:14>>*/ width$0 = scan_sign(width$1, ib),
          /*<<scanf.ml:671:8>>*/ c = checked_peek_char(ib);
        if(48 !== c)
          /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib);
-        /*<<scanf.ml:673:16>>*/  /*<<scanf.ml:673:16>>*/ var
-        width = store_char(width$0, ib, c);
+        /*<<scanf.ml:673:16>>*/ var width = store_char(width$0, ib, c);
         /*<<scanf.ml:674:4>>*/ if(0 === width)
          /*<<scanf.ml:674:22>>*/ return width;
-        /*<<scanf.ml:675:12>>*/  /*<<scanf.ml:675:12>>*/ var
-        c$0 = peek_char(ib);
+        /*<<scanf.ml:675:12>>*/ var c$0 = peek_char(ib);
         /*<<scanf.ml:676:7>>*/ if(ib[1])
          /*<<scanf.ml:676:28>>*/ return width;
        a:
@@ -29726,7 +29330,7 @@
    function scan_fractional_part(width, ib){
      /*<<scanf.ml:704:2>>*/ if(0 === width)
       /*<<scanf.ml:704:20>>*/ return width;
-     /*<<scanf.ml:705:10>>*/  /*<<scanf.ml:705:10>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:705:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:706:5>>*/ return ib[1]
             ? width
             : 9
@@ -29737,26 +29341,26 @@
    function scan_exponent_part(width, ib){
      /*<<scanf.ml:715:2>>*/ if(0 === width)
       /*<<scanf.ml:715:20>>*/ return width;
-     /*<<scanf.ml:716:10>>*/  /*<<scanf.ml:716:10>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:716:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:717:5>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
     if(69 !== c && 101 !== c)  /*<<scanf.ml:721:9>>*/ return width;
      /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
             (store_char(width, ib, c), ib);
     /*<<scanf.ml:721:14>>*/ }
    function scan_float(width$1, precision, ib){
-     /*<<scanf.ml:765:2>>*/ var
+    var
       /*<<scanf.ml:729:14>>*/ width = scan_sign(width$1, ib),
       /*<<scanf.ml:730:2>>*/ width$0 = scan_decimal_digit_star(width, ib);
      /*<<scanf.ml:766:2>>*/ if(0 === width$0)
       /*<<scanf.ml:766:20>>*/ return [0, width$0, precision];
-     /*<<scanf.ml:767:10>>*/  /*<<scanf.ml:767:10>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:767:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:768:5>>*/ if(ib[1])
       /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
     if(46 !== c)
       /*<<scanf.ml:776:4>>*/ return [0,
              scan_exponent_part(width$0, ib),
              precision];
-     /*<<scanf.ml:771:16>>*/ var
+    var
       /*<<scanf.ml:771:16>>*/ width$2 = store_char(width$0, ib, c),
       /*<<scanf.ml:772:20>>*/ precision$0 =
         /*<<scanf.ml:772:20>>*/ caml_call2(Stdlib_Int[10], width$2, precision),
@@ -29767,12 +29371,12 @@
             precision$0];
     /*<<scanf.ml:776:42>>*/ }
    function check_case_insensitive_string(width, ib, error, str){
-     /*<<scanf.ml:780:2>>*/ function lowercase(c){
+    function lowercase(c){
       /*<<scanf.ml:781:4>>*/ return 25 < c - 65 >>> 0
              ? c
              : caml_call1(Stdlib[29], (c - 65 | 0) + 97 | 0);
      /*<<scanf.ml:784:12>>*/ }
-     /*<<scanf.ml:785:2>>*/ var
+    var
       /*<<scanf.ml:785:2>>*/ len =
         /*<<scanf.ml:785:2>>*/ caml_ml_string_length(str),
       /*<<scanf.ml:786:14>>*/ width$0 = [0, width],
@@ -29781,7 +29385,7 @@
     if(_aK_ >= 0){
      var i = _aJ_;
      for(;;){
-       /*<<scanf.ml:788:12>>*/ var
+      var
         /*<<scanf.ml:788:12>>*/ c = peek_char(ib),
         /*<<scanf.ml:789:22>>*/ _aL_ =
          lowercase( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
@@ -29790,7 +29394,7 @@
       if(0 === width$0[1])
         /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
       width$0[1] = store_char(width$0[1], ib, c);
-       /*<<scanf.ml:787:2>>*/  /*<<scanf.ml:787:2>>*/ var _aM_ = i + 1 | 0;
+       /*<<scanf.ml:787:2>>*/ var _aM_ = i + 1 | 0;
       if(_aK_ === i) break;
       i = _aM_;
      }
@@ -29798,26 +29402,23 @@
     return width$0[1];
     /*<<scanf.ml:793:8>>*/ }
    function scan_hex_float(width, precision, ib){
-     /*<<scanf.ml:797:2>>*/ var
-     _aw_ = 0 === width ? 1 : 0,
-     _ax_ = _aw_ || end_of_input(ib);
+    var _aw_ = 0 === width ? 1 : 0, _ax_ = _aw_ || end_of_input(ib);
      /*<<scanf.ml:797:18>>*/ if(_ax_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-     /*<<scanf.ml:798:14>>*/ var
+    var
       /*<<scanf.ml:798:14>>*/ width$0 = scan_sign(width, ib),
      _ay_ = 0 === width$0 ? 1 : 0,
      _az_ = _ay_ || end_of_input(ib);
      /*<<scanf.ml:799:18>>*/ if(_az_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-     /*<<scanf.ml:800:8>>*/  /*<<scanf.ml:800:8>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:800:8>>*/ var c = peek_char(ib);
     a:
     {
      if(78 <= c){
-       /*<<scanf.ml:800:8>>*/  /*<<scanf.ml:800:8>>*/ var
-       switcher = c - 79 | 0;
+       /*<<scanf.ml:800:8>>*/ var switcher = c - 79 | 0;
       if(30 < switcher >>> 0){
        if(32 <= switcher) break a;
-        /*<<scanf.ml:830:16>>*/ var
+       var
          /*<<scanf.ml:830:16>>*/ width$1 = store_char(width$0, ib, c),
         _aA_ = 0 === width$1 ? 1 : 0,
         _aB_ = _aA_ || end_of_input(ib);
@@ -29830,18 +29431,17 @@
      }
      else{
       if(48 === c){
-        /*<<scanf.ml:802:16>>*/ var
+       var
          /*<<scanf.ml:802:16>>*/ width$3 = store_char(width$0, ib, c),
         _aE_ = 0 === width$3 ? 1 : 0,
         _aF_ = _aE_ || end_of_input(ib);
         /*<<scanf.ml:803:20>>*/ if(_aF_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-        /*<<scanf.ml:804:16>>*/  /*<<scanf.ml:804:16>>*/ var
+        /*<<scanf.ml:804:16>>*/ var
         width$4 =
           check_case_insensitive_string(width$3, ib, bad_hex_float, cst_x);
         /*<<scanf.ml:805:4>>*/ if(0 !== width$4 && ! end_of_input(ib)){
-         /*<<scanf.ml:806:24>>*/  /*<<scanf.ml:806:24>>*/ var
-         _aG_ = peek_char(ib) - 46 | 0;
+         /*<<scanf.ml:806:24>>*/ var _aG_ = peek_char(ib) - 46 | 0;
         b:
         {
          c:
@@ -29858,20 +29458,17 @@
          var width$5 = width$4;
         }
          /*<<scanf.ml:809:6>>*/ if(0 !== width$5 && ! end_of_input(ib)){
-          /*<<scanf.ml:810:26>>*/  /*<<scanf.ml:810:26>>*/ var
-          c$0 = peek_char(ib);
+          /*<<scanf.ml:810:26>>*/ var c$0 = peek_char(ib);
          if(46 === c$0){
-           /*<<scanf.ml:812:24>>*/  /*<<scanf.ml:812:24>>*/ var
-           width$6 = store_char(width$5, ib, c$0);
+           /*<<scanf.ml:812:24>>*/ var width$6 = store_char(width$5, ib, c$0);
           b:
           {
             /*<<scanf.ml:813:12>>*/ if(0 !== width$6 && ! end_of_input(ib)){
-             /*<<scanf.ml:814:20>>*/  /*<<scanf.ml:814:20>>*/ var
-             match = peek_char(ib);
+             /*<<scanf.ml:814:20>>*/ var match = peek_char(ib);
             c:
             {
              if(80 !== match && 112 !== match){
-               /*<<scanf.ml:817:32>>*/ var
+              var
                 /*<<scanf.ml:817:32>>*/ precision$0 =
                   /*<<scanf.ml:817:32>>*/ caml_call2
                   (Stdlib_Int[10], width$6, precision),
@@ -29898,11 +29495,10 @@
          else
           var width$8 = width$5;
           /*<<scanf.ml:821:8>>*/ if(0 !== width$8 && ! end_of_input(ib)){
-           /*<<scanf.ml:822:16>>*/  /*<<scanf.ml:822:16>>*/ var
-           c$1 = peek_char(ib);
+           /*<<scanf.ml:822:16>>*/ var c$1 = peek_char(ib);
           if(80 !== c$1 && 112 !== c$1)
             /*<<scanf.ml:827:17>>*/ return width$8;
-           /*<<scanf.ml:824:24>>*/ var
+          var
             /*<<scanf.ml:824:24>>*/ width$9 = store_char(width$8, ib, c$1),
            _aH_ = 0 === width$9 ? 1 : 0,
            _aI_ = _aH_ || end_of_input(ib);
@@ -29919,7 +29515,7 @@
       }
       if(73 !== c) break a;
      }
-      /*<<scanf.ml:834:16>>*/ var
+     var
        /*<<scanf.ml:834:16>>*/ width$2 = store_char(width$0, ib, c),
       _aC_ = 0 === width$2 ? 1 : 0,
       _aD_ = _aC_ || end_of_input(ib);
@@ -29931,23 +29527,21 @@
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad);
     /*<<scanf.ml:837:25>>*/ }
    function scan_caml_float_rest(width, precision, ib){
-     /*<<scanf.ml:841:2>>*/ var
-     _as_ = 0 === width ? 1 : 0,
-     _at_ = _as_ || end_of_input(ib);
+    var _as_ = 0 === width ? 1 : 0, _at_ = _as_ || end_of_input(ib);
      /*<<scanf.ml:841:18>>*/ if(_at_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-     /*<<scanf.ml:842:14>>*/ var
+    var
       /*<<scanf.ml:842:14>>*/ width$0 = scan_decimal_digit_star(width, ib),
      _au_ = 0 === width$0 ? 1 : 0,
      _av_ = _au_ || end_of_input(ib);
      /*<<scanf.ml:843:18>>*/ if(_av_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-     /*<<scanf.ml:844:10>>*/ var
+    var
       /*<<scanf.ml:844:10>>*/ c = peek_char(ib),
       /*<<scanf.ml:844:10>>*/ switcher = c - 69 | 0;
     if(32 < switcher >>> 0){
      if(-23 === switcher){
-       /*<<scanf.ml:847:16>>*/ var
+      var
         /*<<scanf.ml:847:16>>*/ width$1 = store_char(width$0, ib, c),
         /*<<scanf.ml:850:20>>*/ precision$0 =
           /*<<scanf.ml:850:20>>*/ caml_call2
@@ -29964,21 +29558,19 @@
      /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo);
     /*<<scanf.ml:862:21>>*/ }
    function scan_caml_float(width, precision, ib){
-     /*<<scanf.ml:866:2>>*/ var
-     _ae_ = 0 === width ? 1 : 0,
-     _af_ = _ae_ || end_of_input(ib);
+    var _ae_ = 0 === width ? 1 : 0, _af_ = _ae_ || end_of_input(ib);
      /*<<scanf.ml:866:18>>*/ if(_af_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-     /*<<scanf.ml:867:14>>*/ var
+    var
       /*<<scanf.ml:867:14>>*/ width$0 = scan_sign(width, ib),
      _ag_ = 0 === width$0 ? 1 : 0,
      _ah_ = _ag_ || end_of_input(ib);
      /*<<scanf.ml:868:18>>*/ if(_ah_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-     /*<<scanf.ml:869:8>>*/  /*<<scanf.ml:869:8>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:869:8>>*/ var c = peek_char(ib);
     if(49 <= c){
      if(58 > c){
-       /*<<scanf.ml:903:16>>*/ var
+      var
         /*<<scanf.ml:903:16>>*/ width$1 = store_char(width$0, ib, c),
        _ai_ = 0 === width$1 ? 1 : 0,
        _aj_ = _ai_ || end_of_input(ib);
@@ -29989,18 +29581,17 @@
      }
     }
     else if(48 <= c){
-      /*<<scanf.ml:871:16>>*/ var
+     var
        /*<<scanf.ml:871:16>>*/ width$2 = store_char(width$0, ib, c),
       _ak_ = 0 === width$2 ? 1 : 0,
       _al_ = _ak_ || end_of_input(ib);
       /*<<scanf.ml:872:20>>*/ if(_al_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-      /*<<scanf.ml:873:10>>*/  /*<<scanf.ml:873:10>>*/ var
-      c$0 = peek_char(ib);
+      /*<<scanf.ml:873:10>>*/ var c$0 = peek_char(ib);
      if(88 !== c$0 && 120 !== c$0)
        /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
               (width$2, precision, ib);
-      /*<<scanf.ml:875:18>>*/ var
+     var
        /*<<scanf.ml:875:18>>*/ width$3 = store_char(width$2, ib, c$0),
       _am_ = 0 === width$3 ? 1 : 0,
       _an_ = _am_ || end_of_input(ib);
@@ -30012,7 +29603,7 @@
       _ap_ = _ao_ || end_of_input(ib);
       /*<<scanf.ml:878:22>>*/ if(_ap_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-      /*<<scanf.ml:879:24>>*/ var
+     var
        /*<<scanf.ml:879:24>>*/ c$1 = peek_char(ib),
        /*<<scanf.ml:879:24>>*/ switcher = c$1 - 80 | 0;
      a:
@@ -30021,17 +29612,15 @@
       {
        if(32 < switcher >>> 0){
         if(-34 === switcher){
-          /*<<scanf.ml:881:22>>*/  /*<<scanf.ml:881:22>>*/ var
-          width$4 = store_char(width$10, ib, c$1);
+          /*<<scanf.ml:881:22>>*/ var width$4 = store_char(width$10, ib, c$1);
          c:
          {
            /*<<scanf.ml:882:10>>*/ if(0 !== width$4 && ! end_of_input(ib)){
-            /*<<scanf.ml:883:18>>*/  /*<<scanf.ml:883:18>>*/ var
-            match = peek_char(ib);
+            /*<<scanf.ml:883:18>>*/ var match = peek_char(ib);
            d:
            {
             if(80 !== match && 112 !== match){
-              /*<<scanf.ml:886:30>>*/ var
+             var
                /*<<scanf.ml:886:30>>*/ precision$0 =
                  /*<<scanf.ml:886:30>>*/ caml_call2
                  (Stdlib_Int[10], width$4, precision),
@@ -30064,10 +29653,9 @@
       var width$7 = width$6;
      }
       /*<<scanf.ml:891:6>>*/ if(0 !== width$7 && ! end_of_input(ib)){
-       /*<<scanf.ml:892:14>>*/  /*<<scanf.ml:892:14>>*/ var
-       c$2 = peek_char(ib);
+       /*<<scanf.ml:892:14>>*/ var c$2 = peek_char(ib);
       if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$7;
-       /*<<scanf.ml:894:22>>*/ var
+      var
         /*<<scanf.ml:894:22>>*/ width$8 = store_char(width$7, ib, c$2),
        _aq_ = 0 === width$8 ? 1 : 0,
        _ar_ = _aq_ || end_of_input(ib);
@@ -30081,22 +29669,21 @@
      /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo);
     /*<<scanf.ml:910:21>>*/ }
    function scan_string(stp, width, ib){
-     /*<<scanf.ml:920:2>>*/ var width$0 = width;
+    var width$0 = width;
      /*<<scanf.ml:921:4>>*/ for(;;){
      if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
-      /*<<scanf.ml:922:12>>*/  /*<<scanf.ml:922:12>>*/ var c = peek_char(ib);
+      /*<<scanf.ml:922:12>>*/ var c = peek_char(ib);
       /*<<scanf.ml:923:7>>*/ if(ib[1])
        /*<<scanf.ml:923:28>>*/ return width$0;
      if(! stp){
-       /*<<scanf.ml:928:8>>*/  /*<<scanf.ml:928:8>>*/ var _ad_ = c - 9 | 0;
+       /*<<scanf.ml:928:8>>*/ var _ad_ = c - 9 | 0;
       a:
       {
        if(4 < _ad_ >>> 0){
         if(23 === _ad_) break a;
        }
        else if(1 < _ad_ - 2 >>> 0) break a;
-        /*<<scanf.ml:930:20>>*/  /*<<scanf.ml:930:20>>*/ var
-        width$2 = store_char(width$0, ib, c);
+        /*<<scanf.ml:930:20>>*/ var width$2 = store_char(width$0, ib, c);
        width$0 = width$2;
        continue;
       }
@@ -30107,8 +29694,7 @@
        /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
        /*<<scanf.ml:237:4>>*/ return width$0;
      }
-      /*<<scanf.ml:926:23>>*/  /*<<scanf.ml:926:23>>*/ var
-      width$1 = store_char(width$0, ib, c);
+      /*<<scanf.ml:926:23>>*/ var width$1 = store_char(width$0, ib, c);
      width$0 = width$1;
     }
     /*<<scanf.ml:931:12>>*/ }
@@ -30120,7 +29706,7 @@
    function check_next_char(message, width, ib){
      /*<<scanf.ml:995:2>>*/ if(0 === width)
       /*<<scanf.ml:995:20>>*/ return bad_token_length(message);
-     /*<<scanf.ml:996:10>>*/  /*<<scanf.ml:996:10>>*/ var c = peek_char(ib);
+     /*<<scanf.ml:996:10>>*/ var c = peek_char(ib);
      /*<<scanf.ml:997:5>>*/ return ib[1]
             ? bad_input
               ( /*<<scanf.ml:421:4>>*/ caml_call2
@@ -30128,17 +29714,16 @@
             : c;
     /*<<scanf.ml:998:3>>*/ }
    function scan_backslash_char(width, ib){
-     /*<<scanf.ml:1005:2>>*/ var c0 = check_next_char(cst_a_Char, width, ib);
+    var c0 = check_next_char(cst_a_Char, width, ib);
     a:
     {
      if(40 <= c0){
       if(58 > c0){
        if(48 > c0) break a;
-        /*<<scanf.ml:1015:13>>*/ var
+       var
         get_digit$0 =
           function(param){
-            /*<<scanf.ml:1010:6>>*/  /*<<scanf.ml:1010:14>>*/ var
-            c = next_char(ib);
+            /*<<scanf.ml:1010:14>>*/ var c = next_char(ib);
            return 9 < c - 48 >>> 0 ? bad_input_escape(c) : c;
            /*<<scanf.ml:1013:31>>*/ },
          /*<<scanf.ml:1015:13>>*/ c1$0 = get_digit$0(0),
@@ -30161,15 +29746,14 @@
        }
         /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_);
       }
-       /*<<scanf.ml:1005:8>>*/  /*<<scanf.ml:1005:8>>*/ var
-       switcher = c0 - 92 | 0;
+       /*<<scanf.ml:1005:8>>*/ var switcher = c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
       switch(switcher){
         case 28:
-          /*<<scanf.ml:1024:13>>*/ var
+         var
           get_digit =
             function(param){
-              /*<<scanf.ml:1020:6>>*/ var
+             var
                /*<<scanf.ml:1020:14>>*/ c = next_char(ib),
                /*<<scanf.ml:1020:14>>*/ _ac_ = c - 48 | 0;
              a:
@@ -30230,17 +29814,16 @@
     /*<<scanf.ml:1028:22>>*/ }
    function scan_caml_string(width, ib){
     function find_stop$0(counter, width){
-      /*<<scanf.ml:1063:4>>*/ var width$0 = width;
+     var width$0 = width;
       /*<<scanf.ml:1063:4>>*/ for(;;){
       var c = check_next_char(cst_a_String, width$0, ib);
       if(34 === c)  /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib);
       if(92 === c){
-        /*<<scanf.ml:1065:29>>*/ var
+       var
          /*<<scanf.ml:1065:29>>*/ width$1 = ignore_char(width$0, ib),
         match = check_next_char(cst_a_String, width$1, ib);
        if(10 === match){
-         /*<<scanf.ml:1071:26>>*/  /*<<scanf.ml:1071:26>>*/ var
-         _Y_ = ignore_char(width$1, ib);
+         /*<<scanf.ml:1071:26>>*/ var _Y_ = ignore_char(width$1, ib);
          /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
           /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ caml_trampoline_return
                  (skip_spaces, [0, _Y_]);
@@ -30248,30 +29831,26 @@
          /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_);
        }
        if(13 === match){
-         /*<<scanf.ml:1070:27>>*/  /*<<scanf.ml:1070:27>>*/ var
-         width$3 = ignore_char(width$1, ib);
+         /*<<scanf.ml:1070:27>>*/ var width$3 = ignore_char(width$1, ib);
         if(10 === check_next_char(cst_a_String, width$3, ib)){
-          /*<<scanf.ml:1076:26>>*/  /*<<scanf.ml:1076:26>>*/ var
-          _Z_ = ignore_char(width$3, ib);
+          /*<<scanf.ml:1076:26>>*/ var _Z_ = ignore_char(width$3, ib);
           /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
            /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ caml_trampoline_return
                   (skip_spaces, [0, _Z_]);
          var counter$1 = counter + 1 | 0;
           /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_);
         }
-         /*<<scanf.ml:1077:21>>*/  /*<<scanf.ml:1077:21>>*/ var
-         width$5 = store_char(width$3, ib, 13);
+         /*<<scanf.ml:1077:21>>*/ var width$5 = store_char(width$3, ib, 13);
         width$0 = width$5;
        }
        else{
-         /*<<scanf.ml:1072:21>>*/  /*<<scanf.ml:1072:21>>*/ var
+         /*<<scanf.ml:1072:21>>*/ var
          width$4 = scan_backslash_char(width$1, ib);
         width$0 = width$4;
        }
       }
       else{
-        /*<<scanf.ml:1066:21>>*/  /*<<scanf.ml:1066:21>>*/ var
-        width$2 = store_char(width$0, ib, c);
+        /*<<scanf.ml:1066:21>>*/ var width$2 = store_char(width$0, ib, c);
        width$0 = width$2;
       }
      }
@@ -30280,7 +29859,7 @@
       /*<<?>>*/ return caml_trampoline(find_stop$0(0, width));
     }
     function skip_spaces(counter, width){
-      /*<<scanf.ml:1080:4>>*/ var width$0 = width;
+     var width$0 = width;
       /*<<scanf.ml:1080:4>>*/ for(;;){
       if(32 !== check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
@@ -30289,29 +29868,24 @@
        var counter$0 = counter + 1 | 0;
         /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0);
       }
-       /*<<scanf.ml:1081:25>>*/  /*<<scanf.ml:1081:25>>*/ var
-       width$1 = ignore_char(width$0, ib);
+       /*<<scanf.ml:1081:25>>*/ var width$1 = ignore_char(width$0, ib);
       width$0 = width$1;
      }
      /*<<scanf.ml:1082:26>>*/ }
-     /*<<scanf.ml:1058:10>>*/  /*<<scanf.ml:1058:10>>*/ var
-     c = checked_peek_char(ib);
+     /*<<scanf.ml:1058:10>>*/ var c = checked_peek_char(ib);
     return 34 === c
             ? find_stop(ignore_char(width, ib))
             : character_mismatch(34, c);
     /*<<scanf.ml:1084:18>>*/ }
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
-      /*<<scanf.ml:1104:4>>*/ var i$0 = i;
+     var i$0 = i;
       /*<<scanf.ml:1104:4>>*/ for(;;){
-       /*<<scanf.ml:1104:12>>*/ var
-        /*<<scanf.ml:1104:12>>*/ c = peek_char(ib),
-       _U_ = 0 < i$0 ? 1 : 0;
+      var  /*<<scanf.ml:1104:12>>*/ c = peek_char(ib), _U_ = 0 < i$0 ? 1 : 0;
       if(_U_){
-        /*<<scanf.ml:1105:20>>*/  /*<<scanf.ml:1105:20>>*/ var
-        _V_ = 1 - ib[1];
+        /*<<scanf.ml:1105:20>>*/ var _V_ = 1 - ib[1];
        if(_V_)
-         /*<<scanf.ml:1106:7>>*/ var
+        var
           /*<<scanf.ml:1106:7>>*/ _W_ =
             /*<<scanf.ml:1106:7>>*/ caml_call2
             (CamlinternalFormat[1], char_set, c),
@@ -30330,10 +29904,9 @@
     if(! scan_indic)  /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1);
     var c = scan_indic[1];
      /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
-     /*<<scanf.ml:1114:11>>*/  /*<<scanf.ml:1114:11>>*/ var _T_ = 1 - ib[1];
+     /*<<scanf.ml:1114:11>>*/ var _T_ = 1 - ib[1];
     if(! _T_)  /*<<scanf.ml:1114:11>>*/ return _T_;
-     /*<<scanf.ml:1115:15>>*/  /*<<scanf.ml:1115:15>>*/ var
-     ci = peek_char(ib);
+     /*<<scanf.ml:1115:15>>*/ var ci = peek_char(ib);
     return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci);
     /*<<scanf.ml:1118:34>>*/ }
    function scanf_bad_input(ib, x){
@@ -30345,8 +29918,7 @@
              (x, 1);
      var s = x[2];
     }
-     /*<<scanf.ml:1124:12>>*/  /*<<scanf.ml:1124:12>>*/ var
-     i = char_count(ib);
+     /*<<scanf.ml:1124:12>>*/ var i = char_count(ib);
      /*<<scanf.ml:1125:14>>*/ return bad_input
             ( /*<<scanf.ml:1125:14>>*/ caml_call3(Stdlib_Printf[4], _o_, i, s));
    }
@@ -30359,7 +29931,7 @@
    function stopper_of_formatting_lit(fmting){
      /*<<scanf.ml:1144:2>>*/ if(6 === fmting)
       /*<<scanf.ml:1144:35>>*/ return _p_;
-     /*<<scanf.ml:1145:14>>*/ var
+    var
       /*<<scanf.ml:1145:14>>*/ str =
         /*<<scanf.ml:1145:14>>*/ caml_call1(CamlinternalFormat[17], fmting),
       /*<<scanf.ml:1146:14>>*/ stp =
@@ -30373,7 +29945,7 @@
      /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str];
     /*<<scanf.ml:1148:16>>*/ }
    function take_format_readers$0(counter, k, fmt){
-     /*<<scanf.ml:1161:13>>*/ var fmt$0 = fmt;
+    var fmt$0 = fmt;
      /*<<scanf.ml:1161:13>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<scanf.ml:1198:40>>*/ return  /*<<scanf.ml:1198:40>>*/ caml_call1
@@ -30408,7 +29980,7 @@
        case 13:
         var rest$12 = fmt$0[3]; fmt$0 = rest$12; break;
        case 14:
-         /*<<scanf.ml:1195:44>>*/ var
+        var
          rest$13 = fmt$0[3],
          fmtty = fmt$0[2],
           /*<<scanf.ml:1195:44>>*/ _Q_ =
@@ -30431,7 +30003,7 @@
        case 18:
         var _S_ = fmt$0[1];
         if(0 === _S_[0]){
-          /*<<scanf.ml:1189:28>>*/ var
+         var
           rest$17 = fmt$0[2],
           fmt$1 = _S_[1][1],
            /*<<scanf.ml:1189:28>>*/ fmt$2 =
@@ -30440,7 +30012,7 @@
          fmt$0 = fmt$2;
         }
         else{
-          /*<<scanf.ml:1191:28>>*/ var
+         var
           rest$18 = fmt$0[2],
           fmt$3 = _S_[1][1],
            /*<<scanf.ml:1191:28>>*/ fmt$4 =
@@ -30522,7 +30094,7 @@
      /*<<?>>*/ return caml_trampoline(take_format_readers$0(0, k, fmt));
    }
    function take_fmtty_format_readers$0(counter, k, fmtty, fmt){
-     /*<<scanf.ml:1204:19>>*/ var fmtty$0 = fmtty;
+    var fmtty$0 = fmtty;
      /*<<scanf.ml:1204:19>>*/ for(;;){
      if(typeof fmtty$0 === "number"){
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
@@ -30552,7 +30124,7 @@
        case 8:
         var fmtty$9 = fmtty$0[2]; fmtty$0 = fmtty$9; break;
        case 9:
-         /*<<scanf.ml:1227:19>>*/ var
+        var
          rest = fmtty$0[3],
          ty2 = fmtty$0[2],
          ty1 = fmtty$0[1],
@@ -30598,25 +30170,23 @@
             (take_fmtty_format_readers$0(0, k, fmtty, fmt));
    }
    function make_scanf(ib, fmt, readers){
-     /*<<scanf.ml:1266:22>>*/ var fmt$0 = fmt;
+    var fmt$0 = fmt;
      /*<<scanf.ml:1266:22>>*/ for(;;){
      if(typeof fmt$0 === "number")  /*<<scanf.ml:1418:4>>*/ return 0;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
          /*<<scanf.ml:939:31>>*/ store_char(0, ib, checked_peek_char(ib));
-         /*<<scanf.ml:1269:12>>*/  /*<<scanf.ml:1269:12>>*/ var
-         c$0 = token_char(ib);
+         /*<<scanf.ml:1269:12>>*/ var c$0 = token_char(ib);
          /*<<scanf.ml:1270:4>>*/ return [0,
                 c$0,
                 make_scanf(ib, rest, readers)];
        case 1:
-         /*<<scanf.ml:1035:10>>*/ var
+        var
          rest$0 = fmt$0[1],
          find_stop =
            function(width){
-             /*<<scanf.ml:1047:4>>*/ var
-             c = check_next_char(cst_a_Char, width, ib);
+            var c = check_next_char(cst_a_Char, width, ib);
             return 39 === c
                     ? ignore_char(width, ib)
                     : character_mismatch(39, c);
@@ -30624,7 +30194,7 @@
           /*<<scanf.ml:1035:10>>*/ c = checked_peek_char(ib),
           /*<<scanf.ml:1272:4>>*/ width$0 = 0;
         if(39 === c){
-          /*<<scanf.ml:1036:24>>*/ var
+         var
            /*<<scanf.ml:1036:24>>*/ width = ignore_char(width$0, ib),
           c$3 = check_next_char(cst_a_Char, width, ib);
          if(92 === c$3)
@@ -30635,8 +30205,7 @@
         }
         else
           /*<<scanf.ml:1037:11>>*/ character_mismatch(39, c);
-         /*<<scanf.ml:1273:12>>*/  /*<<scanf.ml:1273:12>>*/ var
-         c$1 = token_char(ib);
+         /*<<scanf.ml:1273:12>>*/ var c$1 = token_char(ib);
          /*<<scanf.ml:1274:4>>*/ return [0,
                 c$1,
                 make_scanf(ib, rest$0, readers)];
@@ -30645,7 +30214,7 @@
         if(typeof match !== "number")
          switch(match[0]){
            case 17:
-             /*<<scanf.ml:1277:19>>*/ var
+            var
              rest$2 = match[2],
              fmting_lit = match[1],
               /*<<scanf.ml:1277:19>>*/ match$0 =
@@ -30663,7 +30232,7 @@
            case 18:
             var _D_ = match[1];
             if(0 === _D_[0]){
-              /*<<scanf.ml:1282:4>>*/ var
+             var
               rest$3 = match[2],
               fmt$1 = _D_[1][1],
                /*<<scanf.ml:1282:4>>*/ scan$1 =
@@ -30680,7 +30249,7 @@
                       scan$1,
                       token_string);
             }
-             /*<<scanf.ml:1286:4>>*/ var
+            var
              rest$4 = match[2],
              fmt$2 = _D_[1][1],
               /*<<scanf.ml:1286:4>>*/ scan$2 =
@@ -30697,7 +30266,7 @@
                      scan$2,
                      token_string);
          }
-         /*<<scanf.ml:1290:4>>*/ var
+        var
          rest$1 = fmt$0[2],
           /*<<scanf.ml:1290:4>>*/ scan =
            function(width, param, ib){
@@ -30706,7 +30275,7 @@
          /*<<scanf.ml:1291:4>>*/ return pad_prec_scanf
                 (ib, rest$1, readers, pad, 0, scan, token_string);
        case 3:
-         /*<<scanf.ml:1294:4>>*/ var
+        var
          rest$5 = fmt$0[2],
          pad$0 = fmt$0[1],
           /*<<scanf.ml:1294:4>>*/ scan$3 =
@@ -30716,7 +30285,7 @@
          /*<<scanf.ml:1295:4>>*/ return pad_prec_scanf
                 (ib, rest$5, readers, pad$0, 0, scan$3, token_string);
        case 4:
-         /*<<scanf.ml:1297:12>>*/ var
+        var
          rest$6 = fmt$0[4],
          prec = fmt$0[3],
          pad$1 = fmt$0[2],
@@ -30742,7 +30311,7 @@
                           (token_int_literal(conv, ib));
                  });
        case 5:
-         /*<<scanf.ml:1301:12>>*/ var
+        var
          rest$7 = fmt$0[4],
          prec$0 = fmt$0[3],
          pad$2 = fmt$0[2],
@@ -30768,7 +30337,7 @@
                           (token_int_literal(conv$0, ib));
                  });
        case 6:
-         /*<<scanf.ml:1305:12>>*/ var
+        var
          rest$8 = fmt$0[4],
          prec$1 = fmt$0[3],
          pad$3 = fmt$0[2],
@@ -30794,7 +30363,7 @@
                           (token_int_literal(conv$1, ib));
                  });
        case 7:
-         /*<<scanf.ml:1309:12>>*/ var
+        var
          rest$9 = fmt$0[4],
          prec$2 = fmt$0[3],
          pad$4 = fmt$0[2],
@@ -30855,12 +30424,12 @@
                     token_float);
         }
        case 9:
-         /*<<scanf.ml:1320:4>>*/ var
+        var
          rest$13 = fmt$0[2],
          pad$8 = fmt$0[1],
           /*<<scanf.ml:1320:4>>*/ scan$8 =
            function(_O_, param, ib){
-             /*<<scanf.ml:1320:22>>*/ var
+            var
               /*<<scanf.ml:1089:10>>*/ c = checked_peek_char(ib),
               /*<<scanf.ml:1090:2>>*/ m =
                102 === c
@@ -30898,10 +30467,9 @@
         var rest$17 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
          /*<<scanf.ml:1348:12>>*/ scan_caml_string
          (width_of_pad_opt(pad_opt), ib);
-         /*<<scanf.ml:1349:12>>*/  /*<<scanf.ml:1349:12>>*/ var
-         s = token_string(ib);
+         /*<<scanf.ml:1349:12>>*/ var s = token_string(ib);
          /*<<scanf.ml:1350:4>>*/ try{
-          /*<<scanf.ml:1351:10>>*/ var
+         var
            /*<<scanf.ml:1351:10>>*/ _E_ =
              /*<<scanf.ml:1351:10>>*/ caml_call2
              (CamlinternalFormat[14], s, fmtty),
@@ -30919,10 +30487,9 @@
         var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
          /*<<scanf.ml:1356:12>>*/ scan_caml_string
          (width_of_pad_opt(pad_opt$0), ib);
-         /*<<scanf.ml:1357:12>>*/  /*<<scanf.ml:1357:12>>*/ var
-         s$0 = token_string(ib);
+         /*<<scanf.ml:1357:12>>*/ var s$0 = token_string(ib);
         try{
-          /*<<scanf.ml:1375:36>>*/ var
+         var
           fmt$6 =
              /*<<scanf.ml:1360:26>>*/ caml_call2
               (CamlinternalFormat[13], 0, s$0)
@@ -30973,7 +30540,7 @@
          /*<<scanf.ml:1325:4>>*/ return  /*<<scanf.ml:1325:4>>*/ caml_call1
                 (Stdlib[1], cst_scanf_bad_conversion_t);
        case 17:
-         /*<<scanf.ml:1401:32>>*/ var
+        var
          rest$19 = fmt$0[2],
          formatting_lit = fmt$0[1],
           /*<<scanf.ml:1401:32>>*/ _K_ =
@@ -30991,7 +30558,7 @@
          var rest$20 = fmt$0[2], fmt$9 = _L_[1][1];
           /*<<scanf.ml:1404:4>>*/ check_char(ib, 64);
           /*<<scanf.ml:1404:23>>*/ check_char(ib, 123);
-          /*<<scanf.ml:1405:18>>*/  /*<<scanf.ml:1405:18>>*/ var
+          /*<<scanf.ml:1405:18>>*/ var
           fmt$10 =
              /*<<scanf.ml:1405:18>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$9, rest$20);
@@ -31001,7 +30568,7 @@
          var rest$21 = fmt$0[2], fmt$11 = _L_[1][1];
           /*<<scanf.ml:1407:4>>*/ check_char(ib, 64);
           /*<<scanf.ml:1407:23>>*/ check_char(ib, 91);
-          /*<<scanf.ml:1408:18>>*/  /*<<scanf.ml:1408:18>>*/ var
+          /*<<scanf.ml:1408:18>>*/ var
           fmt$12 =
              /*<<scanf.ml:1408:18>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$11, rest$21);
@@ -31013,7 +30580,7 @@
          /*<<scanf.ml:1329:4>>*/ if(! readers)
           /*<<scanf.ml:1334:8>>*/ return  /*<<scanf.ml:1334:8>>*/ caml_call1
                  (Stdlib[1], cst_scanf_missing_reader);
-         /*<<scanf.ml:1331:16>>*/ var
+        var
          readers_rest = readers[2],
          reader = readers[1],
           /*<<scanf.ml:1331:16>>*/ x =
@@ -31024,7 +30591,7 @@
        case 20:
         var width_opt = fmt$0[1], match$1 = fmt$0[3];
         if(typeof match$1 !== "number" && 17 === match$1[0]){
-          /*<<scanf.ml:1382:19>>*/ var
+         var
           rest$23 = match$1[2],
           fmting_lit$0 = match$1[1],
           char_set$0 = fmt$0[2],
@@ -31035,21 +30602,20 @@
            /*<<scanf.ml:1383:16>>*/ width$2 = width_of_pad_opt(width_opt);
           /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
           (char_set$0, [0, stp$0], width$2, ib);
-          /*<<scanf.ml:1385:12>>*/ var
+         var
            /*<<scanf.ml:1385:12>>*/ s$2 = token_string(ib),
            /*<<scanf.ml:1386:19>>*/ str_rest$0 = [11, str$1, rest$23];
           /*<<scanf.ml:1387:4>>*/ return [0,
                  s$2,
                  make_scanf(ib, str_rest$0, readers)];
         }
-         /*<<scanf.ml:1389:16>>*/ var
+        var
          rest$22 = fmt$0[3],
          char_set = fmt$0[2],
           /*<<scanf.ml:1389:16>>*/ width$1 = width_of_pad_opt(width_opt);
          /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
          (char_set, 0, width$1, ib);
-         /*<<scanf.ml:1391:12>>*/  /*<<scanf.ml:1391:12>>*/ var
-         s$1 = token_string(ib);
+         /*<<scanf.ml:1391:12>>*/ var s$1 = token_string(ib);
          /*<<scanf.ml:1392:4>>*/ return [0,
                 s$1,
                 make_scanf(ib, rest$22, readers)];
@@ -31066,14 +30632,14 @@
                 count,
                 make_scanf(ib, rest$24, readers)];
        case 22:
-         /*<<scanf.ml:1397:12>>*/ var
+        var
          rest$25 = fmt$0[1],
           /*<<scanf.ml:1397:12>>*/ c$2 = checked_peek_char(ib);
          /*<<scanf.ml:1398:4>>*/ return [0,
                 c$2,
                 make_scanf(ib, rest$25, readers)];
        case 23:
-         /*<<scanf.ml:1412:16>>*/ var
+        var
          rest$26 = fmt$0[2],
          ign = fmt$0[1],
          fmt$13 =
@@ -31098,7 +30664,7 @@
       var p = prec[1];
        /*<<scanf.ml:1435:12>>*/  /*<<scanf.ml:1435:12>>*/ caml_call3
        (scan, Stdlib[19], p, ib);
-       /*<<scanf.ml:1436:12>>*/  /*<<scanf.ml:1436:12>>*/ var
+       /*<<scanf.ml:1436:12>>*/ var
        x$0 =  /*<<scanf.ml:1436:12>>*/ caml_call1(token, ib);
        /*<<scanf.ml:1437:4>>*/ return [0, x$0, make_scanf(ib, fmt, readers)];
      }
@@ -31107,7 +30673,7 @@
               (Stdlib[1], cst_scanf_bad_conversion);
       /*<<scanf.ml:1431:12>>*/  /*<<scanf.ml:1431:12>>*/ caml_call3
       (scan, Stdlib[19], Stdlib[19], ib);
-      /*<<scanf.ml:1432:12>>*/  /*<<scanf.ml:1432:12>>*/ var
+      /*<<scanf.ml:1432:12>>*/ var
       x =  /*<<scanf.ml:1432:12>>*/ caml_call1(token, ib);
       /*<<scanf.ml:1433:4>>*/ return [0, x, make_scanf(ib, fmt, readers)];
     }
@@ -31122,7 +30688,7 @@
      var p$0 = prec[1];
       /*<<scanf.ml:1443:12>>*/  /*<<scanf.ml:1443:12>>*/ caml_call3
       (scan, w, p$0, ib);
-      /*<<scanf.ml:1444:12>>*/  /*<<scanf.ml:1444:12>>*/ var
+      /*<<scanf.ml:1444:12>>*/ var
       x$2 =  /*<<scanf.ml:1444:12>>*/ caml_call1(token, ib);
       /*<<scanf.ml:1445:4>>*/ return [0, x$2, make_scanf(ib, fmt, readers)];
     }
@@ -31131,7 +30697,7 @@
              (Stdlib[1], cst_scanf_bad_conversion$0);
      /*<<scanf.ml:1439:12>>*/  /*<<scanf.ml:1439:12>>*/ caml_call3
      (scan, w, Stdlib[19], ib);
-     /*<<scanf.ml:1440:12>>*/  /*<<scanf.ml:1440:12>>*/ var
+     /*<<scanf.ml:1440:12>>*/ var
      x$1 =  /*<<scanf.ml:1440:12>>*/ caml_call1(token, ib);
      /*<<scanf.ml:1441:4>>*/ return [0, x$1, make_scanf(ib, fmt, readers)];
     /*<<scanf.ml:1453:46>>*/ }
@@ -31140,15 +30706,14 @@
     function k(readers, f$1){
       /*<<scanf.ml:1465:4>>*/ caml_call1(Stdlib_Buffer[9], ib[8]);
       /*<<scanf.ml:1465:4>>*/ try{
-       /*<<scanf.ml:1466:10>>*/  /*<<scanf.ml:1466:10>>*/ var
-       args$1 = make_scanf(ib, fmt, readers);
+       /*<<scanf.ml:1466:10>>*/ var args$1 = make_scanf(ib, fmt, readers);
      }
      catch(exc$0){
       var exc = caml_wrap_exception(exc$0);
       if
        (exc[1] !== Scan_failure && exc[1] !== Stdlib[7] && exc !== Stdlib[12]){
        if(exc[1] !== Stdlib[6]) throw caml_maybe_attach_backtrace(exc, 0);
-        /*<<scanf.ml:1470:45>>*/ var
+       var
         msg = exc[2],
          /*<<scanf.ml:1470:45>>*/ _z_ =
            /*<<scanf.ml:1470:45>>*/ caml_call1(Stdlib_String[25], str),
@@ -31169,7 +30734,7 @@
       if(! args)
         /*<<scanf.ml:1472:11>>*/ return  /*<<scanf.ml:1472:11>>*/ caml_call1
                (af, f);
-       /*<<scanf.ml:1461:27>>*/ var
+      var
        args$0 = args[2],
        x = args[1],
         /*<<scanf.ml:1461:27>>*/ f$0 =
@@ -31224,10 +30789,9 @@
     /*<<scanf.ml:1493:49>>*/ }
    function bscanf_format(ib, format, f){
      /*<<scanf.ml:1502:4>>*/ scan_caml_string(Stdlib[19], ib);
-     /*<<scanf.ml:1503:14>>*/  /*<<scanf.ml:1503:14>>*/ var
-     str = token_string(ib);
+     /*<<scanf.ml:1503:14>>*/ var str = token_string(ib);
      /*<<scanf.ml:1504:4>>*/ try{
-      /*<<scanf.ml:1505:10>>*/ var
+     var
        /*<<scanf.ml:1505:10>>*/ _x_ =
          /*<<scanf.ml:1505:10>>*/ caml_call2
          (CamlinternalFormat[15], str, format),
@@ -31245,7 +30809,7 @@
      /*<<scanf.ml:1513:20>>*/ return bscanf_format(from_string(s), format, f);
     /*<<scanf.ml:1513:67>>*/ }
    function format_from_string(s, fmt){
-     /*<<scanf.ml:1517:2>>*/ var
+    var
       /*<<scanf.ml:1517:24>>*/ _v_ =
         /*<<scanf.ml:1517:24>>*/ caml_call1(Stdlib_String[25], s),
       /*<<scanf.ml:1517:24>>*/ _w_ =
@@ -31258,7 +30822,7 @@
               /*<<scanf.ml:1517:64>>*/ });
     /*<<scanf.ml:1517:65>>*/ }
    function unescaped(s){
-     /*<<scanf.ml:1521:2>>*/  /*<<scanf.ml:1521:17>>*/ var
+     /*<<scanf.ml:1521:17>>*/ var
      _u_ =  /*<<scanf.ml:1521:17>>*/ caml_call2(Stdlib[28], s, cst$3);
      /*<<scanf.ml:1521:34>>*/ return  /*<<scanf.ml:1521:34>>*/ caml_call1
             (sscanf
@@ -31308,13 +30872,13 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_register_named_value = runtime.caml_register_named_value,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_register_named_value = runtime.caml_register_named_value,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
     register = caml_register_named_value;
    function register_exception(name, exn){
-     /*<<callback.ml:25:2>>*/ var
+    var
      _a_ = Stdlib_Obj[10],
      slot =
         /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag(exn) === _a_
@@ -31335,33 +30899,34 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst_camlinternalOO_ml = "camlinternalOO.ml",
-    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,
-    caml_string_compare = runtime.caml_string_compare,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst_camlinternalOO_ml = "camlinternalOO.ml",
+     /*<<?>>*/ 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,
+     /*<<?>>*/ caml_string_compare = runtime.caml_string_compare,
+     /*<<?>>*/ 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){
+   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){
+   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_call5(f, a0, a1, a2, a3, a4){
+   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]);
@@ -31376,26 +30941,24 @@
     Stdlib_List = global_data.Stdlib__List,
     Stdlib_Map = global_data.Stdlib__Map;
    function copy(o){
-     /*<<camlinternalOO.ml:23:2>>*/  /*<<camlinternalOO.ml:23:19>>*/ var
+     /*<<camlinternalOO.ml:23:19>>*/ var
      o$0 =  /*<<camlinternalOO.ml:23:19>>*/ o.slice();
      /*<<camlinternalOO.ml:24:2>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
             (o$0);
     /*<<camlinternalOO.ml:24:10>>*/ }
-    /*<<camlinternalOO.ml:36:13>>*/  /*<<camlinternalOO.ml:36:13>>*/ var
-    params = [0, 1, 1, 1, 3, 16];
+    /*<<camlinternalOO.ml:36:13>>*/ var params = [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
-     /*<<camlinternalOO.ml:69:2>>*/ var
+    var
       /*<<camlinternalOO.ml:69:13>>*/ accu = [0, 0],
      _al_ = runtime.caml_ml_string_length(s) - 1 | 0,
       /*<<camlinternalOO.ml:69:13>>*/ _ak_ = 0;
     if(_al_ >= 0){
      var i = _ak_;
      for(;;){
-       /*<<camlinternalOO.ml:71:36>>*/  /*<<camlinternalOO.ml:71:36>>*/ var
+       /*<<camlinternalOO.ml:71:36>>*/ var
        _am_ =  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get(s, i);
       accu[1] = (223 * accu[1] | 0) + _am_ | 0;
-       /*<<camlinternalOO.ml:70:2>>*/  /*<<camlinternalOO.ml:70:2>>*/ var
-       _an_ = i + 1 | 0;
+       /*<<camlinternalOO.ml:70:2>>*/ var _an_ = i + 1 | 0;
       if(_al_ === i) break;
       i = _an_;
      }
@@ -31404,7 +30967,7 @@
     var tag = 1073741823 < accu[1] ? accu[1] + 2147483648 | 0 : accu[1];
      /*<<camlinternalOO.ml:78:2>>*/ return tag;
     /*<<camlinternalOO.ml:78:15>>*/ }
-    /*<<camlinternalOO.ml:107:2>>*/ var
+   var
     compare = caml_string_compare,
     Vars = caml_call1(Stdlib_Map[1], [0, compare]),
     compare$0 = caml_string_compare,
@@ -31424,7 +30987,7 @@
     /*<<camlinternalOO.ml:125:24>>*/ }
    function new_table(pub_labels){
      /*<<camlinternalOO.ml:128:2>>*/ table_count[1]++;
-     /*<<camlinternalOO.ml:130:16>>*/ var
+    var
      len = pub_labels.length - 1,
       /*<<camlinternalOO.ml:130:16>>*/ methods =
         /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
@@ -31440,21 +31003,18 @@
        - 1
        | 0;
      /*<<camlinternalOO.ml:132:2>>*/ caml_check_bound(methods, 1)[2] = _ae_;
-     /*<<camlinternalOO.ml:132:2>>*/ var
-     _ag_ = len - 1 | 0,
-      /*<<camlinternalOO.ml:132:2>>*/ _af_ = 0;
+    var _ag_ = len - 1 | 0,  /*<<camlinternalOO.ml:132:2>>*/ _af_ = 0;
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
-       /*<<camlinternalOO.ml:133:55>>*/ var
+      var
        _ai_ = (i * 2 | 0) + 3 | 0,
         /*<<camlinternalOO.ml:133:55>>*/ _ah_ =
          caml_check_bound(pub_labels, i)[1 + i];
        /*<<camlinternalOO.ml:133:26>>*/ caml_check_bound(methods, _ai_)
        [1 + _ai_]
       = _ah_;
-       /*<<camlinternalOO.ml:133:26>>*/  /*<<camlinternalOO.ml:133:26>>*/ var
-       _aj_ = i + 1 | 0;
+       /*<<camlinternalOO.ml:133:26>>*/ var _aj_ = i + 1 | 0;
       if(_ag_ === i) break;
       i = _aj_;
      }
@@ -31470,11 +31030,9 @@
             0];
     /*<<camlinternalOO.ml:141:32>>*/ }
    function resize(array, new_size){
-     /*<<camlinternalOO.ml:144:2>>*/ var
-     old_size = array[2].length - 1,
-     _ab_ = old_size < new_size ? 1 : 0;
+    var old_size = array[2].length - 1, _ab_ = old_size < new_size ? 1 : 0;
     if(_ab_){
-      /*<<camlinternalOO.ml:146:19>>*/  /*<<camlinternalOO.ml:146:19>>*/ var
+      /*<<camlinternalOO.ml:146:19>>*/ var
       new_buck =
          /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect(new_size, dummy_met);
       /*<<camlinternalOO.ml:147:4>>*/  /*<<camlinternalOO.ml:147:4>>*/ caml_call5
@@ -31486,7 +31044,7 @@
      var _ac_ = _ab_;
     return _ac_;
     /*<<camlinternalOO.ml:149:4>>*/ }
-    /*<<camlinternalOO.ml:157:19>>*/ var
+   var
      /*<<camlinternalOO.ml:157:19>>*/ method_count = [0, 0],
      /*<<camlinternalOO.ml:158:21>>*/ inst_var_count = [0, 0],
     _a_ = [0, cst_camlinternalOO_ml, 279, 50],
@@ -31497,13 +31055,13 @@
     _f_ = [0, cst_camlinternalOO_ml, 419, 13],
     _g_ = [0, cst_camlinternalOO_ml, 437, 17];
    function new_method(table){
-     /*<<camlinternalOO.ml:164:2>>*/ var index = table[2].length - 1;
+    var index = table[2].length - 1;
      /*<<camlinternalOO.ml:165:2>>*/ resize(table, index + 1 | 0);
      /*<<camlinternalOO.ml:165:2>>*/ return index;
     /*<<camlinternalOO.ml:166:7>>*/ }
    function get_method_label(table, name){
      /*<<camlinternalOO.ml:169:2>>*/ try{
-      /*<<camlinternalOO.ml:170:4>>*/  /*<<camlinternalOO.ml:170:4>>*/ var
+      /*<<camlinternalOO.ml:170:4>>*/ var
       _$_ =
          /*<<camlinternalOO.ml:170:4>>*/ caml_call2(Meths[17], name, table[3]);
       /*<<camlinternalOO.ml:170:4>>*/ return _$_;
@@ -31511,8 +31069,7 @@
     catch(_aa_){
      var ___ = caml_wrap_exception(_aa_);
      if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
-      /*<<camlinternalOO.ml:172:16>>*/  /*<<camlinternalOO.ml:172:16>>*/ var
-      label = new_method(table);
+      /*<<camlinternalOO.ml:172:16>>*/ var label = new_method(table);
      table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
        (Meths[2], name, label, table[3]);
@@ -31540,7 +31097,7 @@
     /*<<camlinternalOO.ml:185:64>>*/ }
    function get_method(table, label){
      /*<<camlinternalOO.ml:188:2>>*/ try{
-      /*<<camlinternalOO.ml:188:6>>*/  /*<<camlinternalOO.ml:188:6>>*/ var
+      /*<<camlinternalOO.ml:188:6>>*/ var
       _X_ =
          /*<<camlinternalOO.ml:188:6>>*/ caml_call2
          (Stdlib_List[49], label, table[6]);
@@ -31562,7 +31119,7 @@
               (Stdlib_Array[10], arr);
     /*<<camlinternalOO.ml:192:54>>*/ }
    function narrow(table, vars, virt_meths, concr_meths){
-     /*<<camlinternalOO.ml:195:2>>*/ var
+    var
       /*<<camlinternalOO.ml:195:13>>*/ vars$0 = to_list(vars),
       /*<<camlinternalOO.ml:196:19>>*/ virt_meths$0 = to_list(virt_meths),
       /*<<camlinternalOO.ml:197:20>>*/ concr_meths$0 = to_list(concr_meths),
@@ -31592,7 +31149,7 @@
         /*<<camlinternalOO.ml:207:68>>*/ },
        table[7],
        Vars[1]);
-     /*<<camlinternalOO.ml:209:16>>*/ var
+    var
       /*<<camlinternalOO.ml:209:16>>*/ by_name = [0, Meths[1]],
       /*<<camlinternalOO.ml:210:17>>*/ by_label = [0, Labs[1]];
      /*<<camlinternalOO.ml:211:2>>*/  /*<<camlinternalOO.ml:211:2>>*/ caml_call3
@@ -31603,7 +31160,7 @@
          (Meths[2], met, label, by_name[1]);
        var _P_ = by_label[1];
        try{
-         /*<<camlinternalOO.ml:216:17>>*/ var
+        var
           /*<<camlinternalOO.ml:216:17>>*/ _S_ =
             /*<<camlinternalOO.ml:216:17>>*/ caml_call2
             (Labs[17], label, table[4]),
@@ -31639,7 +31196,7 @@
       /*<<camlinternalOO.ml:227:5>>*/ caml_call3
       (Stdlib_List[27],
        function(met, hm){
-         /*<<camlinternalOO.ml:228:7>>*/ var lab = met[1];
+        var lab = met[1];
          /*<<camlinternalOO.ml:229:13>>*/ return  /*<<camlinternalOO.ml:229:13>>*/ caml_call2
                  (Stdlib_List[37], lab, virt_meth_labs)
                 ? hm
@@ -31650,7 +31207,7 @@
     return 0;
     /*<<camlinternalOO.ml:231:9>>*/ }
    function widen(table){
-     /*<<camlinternalOO.ml:234:2>>*/ var
+    var
       /*<<camlinternalOO.ml:235:4>>*/ match =
         /*<<camlinternalOO.ml:235:4>>*/ caml_call1(Stdlib_List[6], table[5]),
      vars = match[6],
@@ -31665,7 +31222,7 @@
       /*<<camlinternalOO.ml:239:5>>*/ caml_call3
       (Stdlib_List[26],
        function(s, v){
-         /*<<camlinternalOO.ml:240:19>>*/  /*<<camlinternalOO.ml:240:30>>*/ var
+         /*<<camlinternalOO.ml:240:30>>*/ var
          _O_ =
             /*<<camlinternalOO.ml:240:30>>*/ caml_call2(Vars[17], v, table[7]);
          /*<<camlinternalOO.ml:240:19>>*/ return  /*<<camlinternalOO.ml:240:19>>*/ caml_call3
@@ -31679,7 +31236,7 @@
       /*<<camlinternalOO.ml:245:5>>*/ caml_call3
       (Stdlib_List[27],
        function(met, hm){
-         /*<<camlinternalOO.ml:246:7>>*/ var lab = met[1];
+        var lab = met[1];
          /*<<camlinternalOO.ml:247:13>>*/ return  /*<<camlinternalOO.ml:247:13>>*/ caml_call2
                  (Stdlib_List[37], lab, virt_meths)
                 ? hm
@@ -31691,7 +31248,7 @@
     /*<<camlinternalOO.ml:249:25>>*/ }
    function new_variable(table, name){
      /*<<camlinternalOO.ml:257:2>>*/ try{
-      /*<<camlinternalOO.ml:257:6>>*/  /*<<camlinternalOO.ml:257:6>>*/ var
+      /*<<camlinternalOO.ml:257:6>>*/ var
       _M_ =
          /*<<camlinternalOO.ml:257:6>>*/ caml_call2(Vars[17], name, table[7]);
       /*<<camlinternalOO.ml:257:6>>*/ return _M_;
@@ -31715,7 +31272,7 @@
             : arr;
     /*<<camlinternalOO.ml:264:41>>*/ }
    function new_methods_variables(table, meths, vals){
-     /*<<camlinternalOO.ml:267:2>>*/ var
+    var
       /*<<camlinternalOO.ml:267:14>>*/ meths$0 = to_array(meths),
       /*<<camlinternalOO.ml:268:2>>*/ nmeths = meths$0.length - 1,
      nvals = vals.length - 1,
@@ -31726,28 +31283,24 @@
     if(_D_ >= 0){
      var i$0 = _C_;
      for(;;){
-       /*<<camlinternalOO.ml:271:15>>*/  /*<<camlinternalOO.ml:271:15>>*/ var
+       /*<<camlinternalOO.ml:271:15>>*/ var
        _J_ = get_method_label(table, caml_check_bound(meths$0, i$0)[1 + i$0]);
        /*<<camlinternalOO.ml:271:4>>*/ caml_check_bound(res, i$0)[1 + i$0] = _J_;
-       /*<<camlinternalOO.ml:271:4>>*/  /*<<camlinternalOO.ml:271:4>>*/ var
-       _K_ = i$0 + 1 | 0;
+       /*<<camlinternalOO.ml:271:4>>*/ var _K_ = i$0 + 1 | 0;
       if(_D_ === i$0) break;
       i$0 = _K_;
      }
     }
-     /*<<camlinternalOO.ml:273:2>>*/ var
-     _F_ = nvals - 1 | 0,
-      /*<<camlinternalOO.ml:273:2>>*/ _E_ = 0;
+    var _F_ = nvals - 1 | 0,  /*<<camlinternalOO.ml:273:2>>*/ _E_ = 0;
     if(_F_ >= 0){
      var i = _E_;
      for(;;){
-       /*<<camlinternalOO.ml:274:22>>*/ var
+      var
        _H_ = i + nmeths | 0,
         /*<<camlinternalOO.ml:274:22>>*/ _G_ =
          new_variable(table, caml_check_bound(vals, i)[1 + i]);
        /*<<camlinternalOO.ml:274:4>>*/ caml_check_bound(res, _H_)[1 + _H_] = _G_;
-       /*<<camlinternalOO.ml:274:4>>*/  /*<<camlinternalOO.ml:274:4>>*/ var
-       _I_ = i + 1 | 0;
+       /*<<camlinternalOO.ml:274:4>>*/ var _I_ = i + 1 | 0;
       if(_F_ === i) break;
       i = _I_;
      }
@@ -31756,7 +31309,7 @@
     /*<<camlinternalOO.ml:276:5>>*/ }
    function get_variable(table, name){
      /*<<camlinternalOO.ml:279:2>>*/ try{
-      /*<<camlinternalOO.ml:279:6>>*/  /*<<camlinternalOO.ml:279:6>>*/ var
+      /*<<camlinternalOO.ml:279:6>>*/ var
       _A_ =
          /*<<camlinternalOO.ml:279:6>>*/ caml_call2(Vars[17], name, table[7]);
       /*<<camlinternalOO.ml:279:6>>*/ return _A_;
@@ -31782,7 +31335,7 @@
    function create_table(public_methods){
      /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
       /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]);
-     /*<<camlinternalOO.ml:301:13>>*/ var
+    var
       /*<<camlinternalOO.ml:301:13>>*/ tags =
         /*<<camlinternalOO.ml:301:13>>*/ caml_call2
         (Stdlib_Array[14], public_method_label, public_methods),
@@ -31790,7 +31343,7 @@
      /*<<camlinternalOO.ml:303:2>>*/  /*<<camlinternalOO.ml:303:2>>*/ caml_call2
      (Stdlib_Array[13],
       function(i, met){
-        /*<<camlinternalOO.ml:305:6>>*/ var lab = (i * 2 | 0) + 2 | 0;
+       var lab = (i * 2 | 0) + 2 | 0;
        table[3] =
          /*<<camlinternalOO.ml:306:32>>*/ caml_call3
          (Meths[2], met, lab, table[3]);
@@ -31807,8 +31360,7 @@
      (inst_var_count[1] + table[1] | 0) - 1 | 0;
     table[8] =
       /*<<camlinternalOO.ml:313:24>>*/ caml_call1(Stdlib_List[10], table[8]);
-     /*<<camlinternalOO.ml:314:2>>*/  /*<<camlinternalOO.ml:314:2>>*/ var
-     _x_ = Stdlib_Sys[9];
+     /*<<camlinternalOO.ml:314:2>>*/ var _x_ = Stdlib_Sys[9];
     return resize
             (table,
              3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0);
@@ -31823,7 +31375,7 @@
         ?  /*<<camlinternalOO.ml:319:16>>*/ caml_call2(super$0, cla, env)
         :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1(super$0, cla);
      /*<<camlinternalOO.ml:320:2>>*/ widen(cla);
-     /*<<camlinternalOO.ml:326:7>>*/ var
+    var
       /*<<camlinternalOO.ml:326:7>>*/ _s_ = to_array(concr_meths),
      _t_ =
        [0,
@@ -31849,7 +31401,7 @@
             (Stdlib_Array[5], _v_);
    }
    function make_class(pub_meths, class_init){
-     /*<<camlinternalOO.ml:329:2>>*/ var
+    var
       /*<<camlinternalOO.ml:329:14>>*/ table = create_table(pub_meths),
       /*<<camlinternalOO.ml:330:17>>*/ env_init =
         /*<<camlinternalOO.ml:330:17>>*/ caml_call1(class_init, table);
@@ -31861,7 +31413,7 @@
             0];
     /*<<camlinternalOO.ml:332:59>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
-     /*<<camlinternalOO.ml:338:2>>*/ var
+    var
       /*<<camlinternalOO.ml:338:14>>*/ table = create_table(pub_meths),
       /*<<camlinternalOO.ml:339:17>>*/ env_init =
         /*<<camlinternalOO.ml:339:17>>*/ caml_call1(class_init, table);
@@ -31878,7 +31430,7 @@
      /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0];
     /*<<camlinternalOO.ml:346:45>>*/ }
    function create_object(table){
-     /*<<camlinternalOO.ml:352:2>>*/  /*<<camlinternalOO.ml:352:12>>*/ var
+     /*<<camlinternalOO.ml:352:12>>*/ var
      obj =
         /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
@@ -31889,7 +31441,7 @@
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:358:35>>*/ return obj_0;
-     /*<<camlinternalOO.ml:360:14>>*/  /*<<camlinternalOO.ml:360:14>>*/ var
+     /*<<camlinternalOO.ml:360:14>>*/ var
      obj =
         /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
@@ -31908,9 +31460,7 @@
     }
    }
    function run_initializers(obj, table){
-     /*<<camlinternalOO.ml:372:2>>*/ var
-     inits = table[8],
-     _r_ = 0 !== inits ? 1 : 0;
+    var inits = table[8], _r_ = 0 !== inits ? 1 : 0;
     return _r_ ? iter_f(obj, inits) : _r_;
     /*<<camlinternalOO.ml:374:20>>*/ }
    function run_initializers_opt(obj_0, obj, table){
@@ -31923,8 +31473,7 @@
    function create_object_and_run_initiali(obj_0, table){
      /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:384:35>>*/ return obj_0;
-     /*<<camlinternalOO.ml:385:14>>*/  /*<<camlinternalOO.ml:385:14>>*/ var
-     obj = create_object(table);
+     /*<<camlinternalOO.ml:385:14>>*/ var obj = create_object(table);
      /*<<camlinternalOO.ml:386:4>>*/ run_initializers(obj, table);
      /*<<camlinternalOO.ml:386:4>>*/ return obj;
     /*<<camlinternalOO.ml:388:5>>*/ }
@@ -31935,7 +31484,7 @@
            ([0, Assert_failure, _e_], 1);
     /*<<camlinternalOO.ml:417:30>>*/ }
    function build_path(n, keys, tables){
-     /*<<camlinternalOO.ml:423:2>>*/ var
+    var
       /*<<camlinternalOO.ml:423:17>>*/ res = [0, 0, 0, 0],
       /*<<camlinternalOO.ml:424:10>>*/ r = [0, res],
       /*<<camlinternalOO.ml:424:10>>*/ _o_ = 0;
@@ -31944,8 +31493,7 @@
      for(;;){
       var _p_ = r[1];
       r[1] = [0, caml_check_bound(keys, i)[1 + i], _p_, 0];
-       /*<<camlinternalOO.ml:425:2>>*/  /*<<camlinternalOO.ml:425:2>>*/ var
-       _q_ = i + 1 | 0;
+       /*<<camlinternalOO.ml:425:2>>*/ var _q_ = i + 1 | 0;
       if(n === i) break;
       i = _q_;
      }
@@ -31958,15 +31506,14 @@
      /*<<camlinternalOO.ml:428:2>>*/ return res;
     /*<<camlinternalOO.ml:429:5>>*/ }
    function lookup_tables(root, keys){
-     /*<<camlinternalOO.ml:451:2>>*/  /*<<camlinternalOO.ml:451:8>>*/ var
-     root_data = get_data(root);
+     /*<<camlinternalOO.ml:451:8>>*/ var root_data = get_data(root);
     if(! root_data)
       /*<<camlinternalOO.ml:455:4>>*/ return build_path
              (keys.length - 2 | 0, keys, root);
     var i$1 = keys.length - 2 | 0, i = i$1, tables$0 = root_data;
      /*<<camlinternalOO.ml:432:2>>*/ for(;;){
      if(0 > i)  /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
-      /*<<camlinternalOO.ml:433:12>>*/ var
+     var
        /*<<camlinternalOO.ml:433:12>>*/ key = caml_check_bound(keys, i)[1 + i],
       tables$1 = tables$0;
       /*<<camlinternalOO.ml:435:4>>*/ for(;;){
@@ -31977,11 +31524,9 @@
       if(! tables$1)
         /*<<camlinternalOO.ml:419:13>>*/ throw  /*<<camlinternalOO.ml:419:13>>*/ caml_maybe_attach_backtrace
               ([0, Assert_failure, _f_], 1);
-       /*<<camlinternalOO.ml:420:19>>*/  /*<<camlinternalOO.ml:420:19>>*/ var
-       tables = tables$1[3];
+       /*<<camlinternalOO.ml:420:19>>*/ var tables = tables$1[3];
       if(! tables){
-        /*<<camlinternalOO.ml:444:35>>*/  /*<<camlinternalOO.ml:444:35>>*/ var
-        next = [0, key, 0, 0];
+        /*<<camlinternalOO.ml:444:35>>*/ var next = [0, key, 0, 0];
        if(! tables$1)
          /*<<camlinternalOO.ml:410:13>>*/ throw  /*<<camlinternalOO.ml:410:13>>*/ caml_maybe_attach_backtrace
                ([0, Assert_failure, _c_], 1);
@@ -31991,8 +31536,7 @@
       }
       tables$1 = tables;
      }
-      /*<<camlinternalOO.ml:436:12>>*/  /*<<camlinternalOO.ml:436:12>>*/ var
-      tables_data = get_data(tables$1);
+      /*<<camlinternalOO.ml:436:12>>*/ var tables_data = get_data(tables$1);
      if(! tables_data)
        /*<<camlinternalOO.ml:437:17>>*/ throw  /*<<camlinternalOO.ml:437:17>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _g_], 1);
@@ -32002,8 +31546,7 @@
     }
     /*<<camlinternalOO.ml:455:48>>*/ }
    function new_cache(table){
-     /*<<camlinternalOO.ml:507:2>>*/  /*<<camlinternalOO.ml:507:10>>*/ var
-     n = new_method(table);
+     /*<<camlinternalOO.ml:507:10>>*/ var n = new_method(table);
     a:
     {
      if(0 !== (n % 2 | 0)){
@@ -32022,12 +31565,12 @@
      /*<<camlinternalOO.ml:512:2>>*/ return n$0;
     /*<<camlinternalOO.ml:513:3>>*/ }
    function set_methods(table, methods){
-     /*<<camlinternalOO.ml:598:2>>*/ var
+    var
      len = methods.length - 1,
       /*<<camlinternalOO.ml:598:44>>*/ i = [0, 0];
     for(;;){
      if(i[1] >= len) return 0;
-      /*<<camlinternalOO.ml:600:16>>*/ var
+     var
       _h_ = i[1],
        /*<<camlinternalOO.ml:600:16>>*/ label =
         caml_check_bound(methods, _h_)[1 + _h_],
@@ -32043,8 +31586,7 @@
      if(typeof clo === "number")
       switch(clo){
         case 0:
-          /*<<camlinternalOO.ml:545:28>>*/  /*<<camlinternalOO.ml:545:28>>*/ var
-          x = next(0);
+          /*<<camlinternalOO.ml:545:28>>*/ var x = next(0);
          let x$20 = x;
          var
           clo$0 =
@@ -32053,8 +31595,7 @@
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
-          /*<<camlinternalOO.ml:546:24>>*/  /*<<camlinternalOO.ml:546:24>>*/ var
-          n = next(0);
+          /*<<camlinternalOO.ml:546:24>>*/ var n = next(0);
          let n$38 = n;
          var
           clo$0 =
@@ -32063,7 +31604,7 @@
              /*<<camlinternalOO.ml:460:56>>*/ };
          break;
         case 2:
-          /*<<camlinternalOO.ml:547:24>>*/ var
+         var
            /*<<camlinternalOO.ml:547:24>>*/ e = next(0),
            /*<<camlinternalOO.ml:547:42>>*/ n$0 = next(0);
          let e$10 = e, n$37 = n$0;
@@ -32074,8 +31615,7 @@
              /*<<camlinternalOO.ml:463:65>>*/ };
          break;
         case 3:
-          /*<<camlinternalOO.ml:548:24>>*/  /*<<camlinternalOO.ml:548:24>>*/ var
-          n$1 = next(0);
+          /*<<camlinternalOO.ml:548:24>>*/ var n$1 = next(0);
          let n$36 = n$1;
          var
           clo$0 =
@@ -32085,8 +31625,7 @@
              /*<<camlinternalOO.ml:464:48>>*/ };
          break;
         case 4:
-          /*<<camlinternalOO.ml:549:24>>*/  /*<<camlinternalOO.ml:549:24>>*/ var
-          n$2 = next(0);
+          /*<<camlinternalOO.ml:549:24>>*/ var n$2 = next(0);
          let n$35 = n$2;
          var
           clo$0 =
@@ -32096,7 +31635,7 @@
              /*<<camlinternalOO.ml:465:60>>*/ };
          break;
         case 5:
-          /*<<camlinternalOO.ml:550:24>>*/ var
+         var
            /*<<camlinternalOO.ml:550:24>>*/ f = next(0),
            /*<<camlinternalOO.ml:550:42>>*/ x$0 = next(0);
          let f$20 = f, x$19 = x$0;
@@ -32108,7 +31647,7 @@
              /*<<camlinternalOO.ml:466:40>>*/ };
          break;
         case 6:
-          /*<<camlinternalOO.ml:551:24>>*/ var
+         var
            /*<<camlinternalOO.ml:551:24>>*/ f$0 = next(0),
            /*<<camlinternalOO.ml:551:42>>*/ n$3 = next(0);
          let f$19 = f$0, n$34 = n$3;
@@ -32120,7 +31659,7 @@
              /*<<camlinternalOO.ml:467:62>>*/ };
          break;
         case 7:
-          /*<<camlinternalOO.ml:553:14>>*/ var
+         var
            /*<<camlinternalOO.ml:553:14>>*/ f$1 = next(0),
            /*<<camlinternalOO.ml:553:33>>*/ e$0 = next(0),
            /*<<camlinternalOO.ml:553:51>>*/ n$4 = next(0);
@@ -32133,7 +31672,7 @@
              /*<<camlinternalOO.ml:470:69>>*/ };
          break;
         case 8:
-          /*<<camlinternalOO.ml:555:24>>*/ var
+         var
            /*<<camlinternalOO.ml:555:24>>*/ f$2 = next(0),
            /*<<camlinternalOO.ml:555:42>>*/ n$5 = next(0);
          let f$17 = f$2, n$32 = n$5;
@@ -32147,7 +31686,7 @@
              /*<<camlinternalOO.ml:471:54>>*/ };
          break;
         case 9:
-          /*<<camlinternalOO.ml:557:14>>*/ var
+         var
            /*<<camlinternalOO.ml:557:14>>*/ f$3 = next(0),
            /*<<camlinternalOO.ml:557:32>>*/ x$1 = next(0),
            /*<<camlinternalOO.ml:557:50>>*/ y = next(0);
@@ -32160,7 +31699,7 @@
              /*<<camlinternalOO.ml:472:50>>*/ };
          break;
         case 10:
-          /*<<camlinternalOO.ml:560:14>>*/ var
+         var
            /*<<camlinternalOO.ml:560:14>>*/ f$4 = next(0),
            /*<<camlinternalOO.ml:560:32>>*/ x$2 = next(0),
            /*<<camlinternalOO.ml:560:50>>*/ n$6 = next(0);
@@ -32173,7 +31712,7 @@
              /*<<camlinternalOO.ml:473:72>>*/ };
          break;
         case 11:
-          /*<<camlinternalOO.ml:563:14>>*/ var
+         var
            /*<<camlinternalOO.ml:563:14>>*/ f$5 = next(0),
            /*<<camlinternalOO.ml:563:32>>*/ x$3 = next(0),
            /*<<camlinternalOO.ml:563:50>>*/ e$1 = next(0),
@@ -32187,7 +31726,7 @@
              /*<<camlinternalOO.ml:479:71>>*/ };
          break;
         case 12:
-          /*<<camlinternalOO.ml:566:14>>*/ var
+         var
            /*<<camlinternalOO.ml:566:14>>*/ f$6 = next(0),
            /*<<camlinternalOO.ml:566:32>>*/ x$4 = next(0),
            /*<<camlinternalOO.ml:566:50>>*/ n$8 = next(0);
@@ -32203,7 +31742,7 @@
              /*<<camlinternalOO.ml:474:63>>*/ };
          break;
         case 13:
-          /*<<camlinternalOO.ml:569:14>>*/ var
+         var
            /*<<camlinternalOO.ml:569:14>>*/ f$7 = next(0),
            /*<<camlinternalOO.ml:569:32>>*/ n$9 = next(0),
            /*<<camlinternalOO.ml:569:50>>*/ x$5 = next(0);
@@ -32216,7 +31755,7 @@
              /*<<camlinternalOO.ml:475:70>>*/ };
          break;
         case 14:
-          /*<<camlinternalOO.ml:572:14>>*/ var
+         var
            /*<<camlinternalOO.ml:572:14>>*/ f$8 = next(0),
            /*<<camlinternalOO.ml:572:32>>*/ e$2 = next(0),
            /*<<camlinternalOO.ml:572:51>>*/ n$10 = next(0),
@@ -32230,7 +31769,7 @@
              /*<<camlinternalOO.ml:482:71>>*/ };
          break;
         case 15:
-          /*<<camlinternalOO.ml:575:14>>*/ var
+         var
            /*<<camlinternalOO.ml:575:14>>*/ f$9 = next(0),
            /*<<camlinternalOO.ml:575:32>>*/ n$11 = next(0),
            /*<<camlinternalOO.ml:575:50>>*/ x$7 = next(0);
@@ -32246,7 +31785,7 @@
              /*<<camlinternalOO.ml:476:63>>*/ };
          break;
         case 16:
-          /*<<camlinternalOO.ml:578:14>>*/ var
+         var
            /*<<camlinternalOO.ml:578:14>>*/ n$12 = next(0),
            /*<<camlinternalOO.ml:578:32>>*/ x$8 = next(0);
          let n$25 = n$12, x$11 = x$8;
@@ -32258,7 +31797,7 @@
              /*<<camlinternalOO.ml:483:68>>*/ };
          break;
         case 17:
-          /*<<camlinternalOO.ml:580:14>>*/ var
+         var
            /*<<camlinternalOO.ml:580:14>>*/ n$13 = next(0),
            /*<<camlinternalOO.ml:580:32>>*/ m = next(0);
          let n$24 = n$13, m$12 = m;
@@ -32270,7 +31809,7 @@
              /*<<camlinternalOO.ml:485:68>>*/ };
          break;
         case 18:
-          /*<<camlinternalOO.ml:582:14>>*/ var
+         var
            /*<<camlinternalOO.ml:582:14>>*/ n$14 = next(0),
            /*<<camlinternalOO.ml:582:32>>*/ e$3 = next(0),
            /*<<camlinternalOO.ml:582:50>>*/ m$0 = next(0);
@@ -32283,14 +31822,14 @@
              /*<<camlinternalOO.ml:488:69>>*/ };
          break;
         case 19:
-          /*<<camlinternalOO.ml:585:14>>*/ var
+         var
            /*<<camlinternalOO.ml:585:14>>*/ n$15 = next(0),
            /*<<camlinternalOO.ml:585:32>>*/ m$1 = next(0);
          let n$22 = n$15, m$10 = m$1;
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:490:18>>*/  /*<<camlinternalOO.ml:490:44>>*/ var
+              /*<<camlinternalOO.ml:490:44>>*/ var
               _l_ =
                  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
                  (obj[1][1 + m$10], obj);
@@ -32299,7 +31838,7 @@
              /*<<camlinternalOO.ml:490:60>>*/ };
          break;
         case 20:
-          /*<<camlinternalOO.ml:587:14>>*/ var
+         var
            /*<<camlinternalOO.ml:587:14>>*/ m$2 = next(0),
            /*<<camlinternalOO.ml:587:32>>*/ x$9 = next(0);
           /*<<camlinternalOO.ml:587:57>>*/ new_cache(table);
@@ -32312,7 +31851,7 @@
              /*<<camlinternalOO.ml:492:58>>*/ };
          break;
         case 21:
-          /*<<camlinternalOO.ml:589:14>>*/ var
+         var
            /*<<camlinternalOO.ml:589:14>>*/ m$3 = next(0),
            /*<<camlinternalOO.ml:589:32>>*/ n$16 = next(0);
           /*<<camlinternalOO.ml:589:56>>*/ new_cache(table);
@@ -32320,12 +31859,12 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:495:4>>*/ var _k_ = obj[1 + n$21];
+             var _k_ = obj[1 + n$21];
              return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_);
              /*<<camlinternalOO.ml:496:32>>*/ };
          break;
         case 22:
-          /*<<camlinternalOO.ml:591:14>>*/ var
+         var
            /*<<camlinternalOO.ml:591:14>>*/ m$4 = next(0),
            /*<<camlinternalOO.ml:591:32>>*/ e$4 = next(0),
            /*<<camlinternalOO.ml:591:50>>*/ n$17 = next(0);
@@ -32334,13 +31873,12 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:499:4>>*/ var
-              _j_ = obj[1 + e$5][1 + n$20];
+             var _j_ = obj[1 + e$5][1 + n$20];
              return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_);
              /*<<camlinternalOO.ml:502:34>>*/ };
          break;
         default:
-          /*<<camlinternalOO.ml:594:14>>*/ var
+         var
            /*<<camlinternalOO.ml:594:14>>*/ m$5 = next(0),
            /*<<camlinternalOO.ml:594:32>>*/ n$18 = next(0);
           /*<<camlinternalOO.ml:594:57>>*/ new_cache(table);
@@ -32348,7 +31886,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:505:4>>*/  /*<<camlinternalOO.ml:505:14>>*/ var
+              /*<<camlinternalOO.ml:505:14>>*/ var
               _i_ =
                  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
                  (obj[1][1 + n$19], obj);
@@ -32412,7 +31950,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     CamlinternalOO = global_data.CamlinternalOO,
     copy = CamlinternalOO[22],
@@ -32430,12 +31968,13 @@
   (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){
+     /*<<?>>*/ 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]);
@@ -32452,7 +31991,7 @@
     cst_CamlinternalMod_update_mod =
       "CamlinternalMod.update_mod: not a module";
    function init_mod_block(loc, comps$0){
-     /*<<camlinternalMod.ml:52:2>>*/ var
+    var
      length = comps$0.length - 1,
       /*<<camlinternalMod.ml:53:13>>*/ modu =
         /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block(0, length),
@@ -32461,7 +32000,7 @@
     if(_h_ >= 0){
      var i = _g_;
      for(;;){
-       /*<<camlinternalMod.ml:55:30>>*/  /*<<camlinternalMod.ml:55:30>>*/ var
+       /*<<camlinternalMod.ml:55:30>>*/ var
        shape = caml_check_bound(comps$0, i)[1 + i];
       if(typeof shape === "number")
        switch(shape){
@@ -32470,8 +32009,7 @@
           var
            fn =
              function(x){
-               /*<<camlinternalMod.ml:28:9>>*/  /*<<camlinternalMod.ml:28:38>>*/ var
-               fn = modu[1 + i$1];
+               /*<<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);
@@ -32488,8 +32026,7 @@
            (l,
             [246,
              function(param){
-               /*<<camlinternalMod.ml:37:28>>*/  /*<<camlinternalMod.ml:37:28>>*/ var
-               l = modu[1 + i$0];
+               /*<<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);
@@ -32513,8 +32050,7 @@
       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;
+       /*<<camlinternalMod.ml:55:4>>*/ var _i_ = i + 1 | 0;
       if(_h_ === i) break;
       i = _i_;
      }
@@ -32534,13 +32070,13 @@
      /*<<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
+     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
+       var
          /*<<camlinternalMod.ml:83:35>>*/ n$0 = n[1 + i],
          /*<<camlinternalMod.ml:83:25>>*/ shape =
           caml_check_bound(comps$0, i)[1 + i];
@@ -32550,13 +32086,10 @@
           /*<<camlinternalMod.ml:72:13>>*/ 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;
+          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;
+            /*<<camlinternalMod.ml:75:7>>*/ var _c_ = j + 1 | 0;
            if(3 === j) break;
            j = _c_;
           }
@@ -32572,8 +32105,7 @@
          /*<<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;
+        /*<<camlinternalMod.ml:83:4>>*/ var _f_ = i + 1 | 0;
        if(_e_ === i) break;
        i = _f_;
       }
@@ -32604,22 +32136,23 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    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){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ 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){
     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){
+   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){
+   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]);
@@ -32641,7 +32174,7 @@
     CamlinternalLazy = global_data.CamlinternalLazy,
     Stdlib_Random = global_data.Stdlib__Random;
    function MakeSeeded(H){
-     /*<<ephemeron.ml:105:20>>*/  /*<<ephemeron.ml:105:20>>*/ var
+     /*<<ephemeron.ml:105:20>>*/ var
      prng =
        [246,
         function(_at_){ /*<<?>>*/ return caml_call1(Stdlib_Random[19][2], 0);}];
@@ -32686,7 +32219,7 @@
     }
     function clear(h){
       /*<<ephemeron.ml:113:6>>*/ h[1] = 0;
-      /*<<ephemeron.ml:115:6>>*/ var
+     var
       len = h[2].length - 1,
        /*<<ephemeron.ml:115:6>>*/ _ap_ = len - 1 | 0,
       _ao_ = 0;
@@ -32694,8 +32227,7 @@
       var i = _ao_;
       for(;;){
         /*<<ephemeron.ml:116:8>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-        /*<<ephemeron.ml:116:8>>*/  /*<<ephemeron.ml:116:8>>*/ var
-        _aq_ = i + 1 | 0;
+        /*<<ephemeron.ml:116:8>>*/ var _aq_ = i + 1 | 0;
        if(_ap_ === i) break;
        i = _aq_;
       }
@@ -32703,7 +32235,7 @@
      return 0;
      /*<<ephemeron.ml:117:10>>*/ }
     function reset(h){
-      /*<<ephemeron.ml:120:6>>*/ var len = h[2].length - 1;
+     var len = h[2].length - 1;
      return len === h[4]
              ? clear(h)
              : (h
@@ -32713,7 +32245,7 @@
                0);
      /*<<ephemeron.ml:126:9>>*/ }
     function copy(h){
-      /*<<ephemeron.ml:128:17>>*/ var
+     var
       _al_ = h[4],
       _am_ = h[3],
        /*<<ephemeron.ml:128:33>>*/ _an_ =
@@ -32725,7 +32257,7 @@
      /*<<ephemeron.ml:131:41>>*/ }
     function clean(h){
      function do_bucket(param){
-       /*<<ephemeron.ml:134:26>>*/ var param$0 = param;
+      var param$0 = param;
        /*<<ephemeron.ml:134:26>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
        var hkey = param$0[1], rest = param$0[3], c = param$0[2];
@@ -32744,8 +32276,7 @@
       for(;;){
         /*<<ephemeron.ml:145:8>>*/ d[1 + i] =
         do_bucket(caml_check_bound(d, i)[1 + i]);
-        /*<<ephemeron.ml:145:8>>*/  /*<<ephemeron.ml:145:8>>*/ var
-        _ak_ = i + 1 | 0;
+        /*<<ephemeron.ml:145:8>>*/ var _ak_ = i + 1 | 0;
        if(_aj_ === i) break;
        i = _ak_;
       }
@@ -32753,7 +32284,7 @@
      return 0;
      /*<<ephemeron.ml:146:10>>*/ }
     function resize(h){
-      /*<<ephemeron.ml:169:6>>*/ var
+     var
       odata = h[2],
        /*<<ephemeron.ml:170:6>>*/ osize = odata.length - 1,
       nsize = osize * 2 | 0;
@@ -32762,18 +32293,17 @@
       _ac_ = nsize < Stdlib_Sys[13] ? 1 : 0,
       _ad_ = _ac_ ? (osize >>> 1 | 0) <= h[1] ? 1 : 0 : _ac_;
      if(_ad_){
-       /*<<ephemeron.ml:174:20>>*/  /*<<ephemeron.ml:174:20>>*/ var
+       /*<<ephemeron.ml:174:20>>*/ var
        ndata =  /*<<ephemeron.ml:174:20>>*/ caml_make_vect(nsize, 0);
       h[2] = ndata;
-       /*<<ephemeron.ml:170:6>>*/ var
+      var
        insert_bucket =
          function(param){
            /*<<ephemeron.ml:176:32>>*/ if(! param)
             /*<<ephemeron.ml:177:21>>*/ return;
           var rest = param[3], data = param[2], hkey = param[1];
            /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
-           /*<<ephemeron.ml:180:25>>*/  /*<<ephemeron.ml:180:25>>*/ var
-           nidx = key_index(h, hkey);
+           /*<<ephemeron.ml:180:25>>*/ var nidx = key_index(h, hkey);
            /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
            [0, hkey, data, caml_check_bound(ndata, nidx)[1 + nidx]];
           /*<<ephemeron.ml:181:60>>*/ },
@@ -32784,8 +32314,7 @@
        for(;;){
          /*<<ephemeron.ml:183:10>>*/ insert_bucket
          (caml_check_bound(odata, i)[1 + i]);
-         /*<<ephemeron.ml:183:10>>*/  /*<<ephemeron.ml:183:10>>*/ var
-         _ah_ = i + 1 | 0;
+         /*<<ephemeron.ml:183:10>>*/ var _ah_ = i + 1 | 0;
         if(_af_ === i) break;
         i = _ah_;
        }
@@ -32797,7 +32326,7 @@
      return _ag_;
      /*<<ephemeron.ml:185:9>>*/ }
     function add(h, key, info){
-      /*<<ephemeron.ml:188:6>>*/ var
+     var
        /*<<ephemeron.ml:188:17>>*/ hkey =
          /*<<ephemeron.ml:188:17>>*/ caml_call2(H[2], h[3], key),
        /*<<ephemeron.ml:189:14>>*/ i = key_index(h, hkey),
@@ -32811,10 +32340,10 @@
      return _ab_ ? resize(h) : _ab_;
      /*<<ephemeron.ml:194:57>>*/ }
     function remove(h, key){
-      /*<<ephemeron.ml:197:6>>*/  /*<<ephemeron.ml:197:17>>*/ var
+      /*<<ephemeron.ml:197:17>>*/ var
       hkey =  /*<<ephemeron.ml:197:17>>*/ caml_call2(H[2], h[3], key);
      function remove_bucket(param){
-       /*<<ephemeron.ml:198:30>>*/ var param$0 = param;
+      var param$0 = param;
        /*<<ephemeron.ml:198:30>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:199:19>>*/ return 0;
        var hk = param$0[1], next = param$0[3], c = param$0[2];
@@ -32834,7 +32363,7 @@
        }
       }
       /*<<ephemeron.ml:210:60>>*/ }
-      /*<<ephemeron.ml:211:14>>*/ var
+     var
        /*<<ephemeron.ml:211:14>>*/ i = key_index(h, hkey),
        /*<<ephemeron.ml:212:20>>*/ _aa_ =
         remove_bucket(caml_check_bound(h[2], i)[1 + i]);
@@ -32842,7 +32371,7 @@
       /*<<ephemeron.ml:212:6>>*/ return 0;
      /*<<ephemeron.ml:212:44>>*/ }
     function find(h, key){
-      /*<<ephemeron.ml:239:6>>*/ var
+     var
        /*<<ephemeron.ml:239:17>>*/ hkey =
          /*<<ephemeron.ml:239:17>>*/ caml_call2(H[2], h[3], key),
        /*<<ephemeron.ml:241:33>>*/ _$_ = key_index(h, hkey),
@@ -32855,7 +32384,7 @@
       if(hkey === hk)
        switch( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
          case 0:
-           /*<<ephemeron.ml:224:26>>*/  /*<<ephemeron.ml:224:26>>*/ var
+           /*<<ephemeron.ml:224:26>>*/ var
            match =  /*<<ephemeron.ml:224:26>>*/ caml_call1(H[4], c);
           if(match){var d = match[1];  /*<<ephemeron.ml:229:26>>*/ return d;}
           param = rest;
@@ -32868,7 +32397,7 @@
      }
      /*<<ephemeron.ml:241:51>>*/ }
     function find_opt(h, key){
-      /*<<ephemeron.ml:264:6>>*/ var
+     var
        /*<<ephemeron.ml:264:17>>*/ hkey =
          /*<<ephemeron.ml:264:17>>*/ caml_call2(H[2], h[3], key),
        /*<<ephemeron.ml:266:37>>*/ ___ = key_index(h, hkey),
@@ -32879,7 +32408,7 @@
       if(hkey === hk)
        switch( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
          case 0:
-           /*<<ephemeron.ml:249:26>>*/  /*<<ephemeron.ml:249:26>>*/ var
+           /*<<ephemeron.ml:249:26>>*/ var
            d =  /*<<ephemeron.ml:249:26>>*/ caml_call1(H[4], c);
           if(d)  /*<<ephemeron.ml:254:31>>*/ return d;
           param = rest;
@@ -32892,17 +32421,17 @@
      }
      /*<<ephemeron.ml:266:55>>*/ }
     function find_all(h, key){
-      /*<<ephemeron.ml:269:6>>*/  /*<<ephemeron.ml:269:17>>*/ var
+      /*<<ephemeron.ml:269:17>>*/ var
       hkey =  /*<<ephemeron.ml:269:17>>*/ caml_call2(H[2], h[3], key);
      function find_in_bucket(param){
-       /*<<ephemeron.ml:270:31>>*/ var param$0 = param;
+      var param$0 = param;
        /*<<ephemeron.ml:270:31>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
        var hk = param$0[1], rest = param$0[3], c = param$0[2];
        if(hkey === hk)
         switch( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
           case 0:
-            /*<<ephemeron.ml:274:33>>*/  /*<<ephemeron.ml:274:33>>*/ var
+            /*<<ephemeron.ml:274:33>>*/ var
             match =  /*<<ephemeron.ml:274:33>>*/ caml_call1(H[4], c);
            if(match){
             var d = match[1];
@@ -32917,13 +32446,12 @@
        else{var rest$0 = param$0[3]; param$0 = rest$0;}
       }
       /*<<ephemeron.ml:284:29>>*/ }
-      /*<<ephemeron.ml:285:29>>*/  /*<<ephemeron.ml:285:29>>*/ var
-      _Z_ = key_index(h, hkey);
+      /*<<ephemeron.ml:285:29>>*/ var _Z_ = key_index(h, hkey);
       /*<<ephemeron.ml:285:21>>*/ return find_in_bucket
              (caml_check_bound(h[2], _Z_)[1 + _Z_]);
      /*<<ephemeron.ml:285:46>>*/ }
     function replace(h, key, info){
-      /*<<ephemeron.ml:289:6>>*/ var
+     var
        /*<<ephemeron.ml:289:17>>*/ hkey =
          /*<<ephemeron.ml:289:17>>*/ caml_call2(H[2], h[3], key),
        /*<<ephemeron.ml:299:14>>*/ i = key_index(h, hkey),
@@ -32937,7 +32465,7 @@
        var hk = param[1], next = param[3], c = param[2];
        if(hkey === hk){
         if(!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
-          /*<<ephemeron.ml:290:6>>*/  /*<<ephemeron.ml:290:6>>*/ var
+          /*<<ephemeron.ml:290:6>>*/ var
           _V_ =  /*<<ephemeron.ml:290:6>>*/ caml_call3(H[5], c, key, info);
           /*<<ephemeron.ml:302:8>>*/ return _V_;
         }
@@ -32949,7 +32477,7 @@
      catch(_Y_){
       var _W_ = caml_wrap_exception(_Y_);
       if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
-       /*<<ephemeron.ml:304:24>>*/  /*<<ephemeron.ml:304:24>>*/ var
+       /*<<ephemeron.ml:304:24>>*/ var
        container =  /*<<ephemeron.ml:304:24>>*/ caml_call2(H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
       h[1] = h[1] + 1 | 0;
@@ -32958,7 +32486,7 @@
      }
      /*<<ephemeron.ml:307:59>>*/ }
     function mem(h, key){
-      /*<<ephemeron.ml:310:6>>*/ var
+     var
        /*<<ephemeron.ml:310:17>>*/ hkey =
          /*<<ephemeron.ml:310:17>>*/ caml_call2(H[2], h[3], key),
        /*<<ephemeron.ml:320:28>>*/ _U_ = key_index(h, hkey),
@@ -32981,7 +32509,7 @@
      var accu$0 = accu, param$0 = param;
      for(;;){
       if(! param$0)  /*<<ephemeron.ml:325:17>>*/ return accu$0;
-       /*<<ephemeron.ml:326:28>>*/ var
+      var
        rest = param$0[3],
         /*<<ephemeron.ml:326:28>>*/ accu$1 = accu$0 + 1 | 0;
       accu$0 = accu$1;
@@ -32989,13 +32517,12 @@
      }
     }
     function stats(h){
-      /*<<ephemeron.ml:329:6>>*/ var
+     var
        /*<<ephemeron.ml:330:8>>*/ mbl =
          /*<<ephemeron.ml:330:8>>*/ caml_call3
          (Stdlib_Array[18],
           function(m, b){
-            /*<<ephemeron.ml:330:36>>*/  /*<<ephemeron.ml:330:46>>*/ var
-            _T_ = bucket_length(0, b);
+            /*<<ephemeron.ml:330:46>>*/ var _T_ = bucket_length(0, b);
             /*<<ephemeron.ml:330:46>>*/ return  /*<<ephemeron.ml:330:46>>*/ caml_call2
                    (Stdlib_Int[11], m, _T_);
            /*<<ephemeron.ml:330:65>>*/ },
@@ -33006,8 +32533,7 @@
       /*<<ephemeron.ml:332:6>>*/  /*<<ephemeron.ml:332:6>>*/ caml_call2
       (Stdlib_Array[12],
        function(b){
-         /*<<ephemeron.ml:334:11>>*/  /*<<ephemeron.ml:334:19>>*/ var
-         l = bucket_length(0, b);
+         /*<<ephemeron.ml:334:19>>*/ var l = bucket_length(0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
          /*<<ephemeron.ml:335:11>>*/ return 0;
@@ -33030,14 +32556,13 @@
      }
     }
     function stats_alive(h){
-      /*<<ephemeron.ml:349:6>>*/ var
+     var
        /*<<ephemeron.ml:349:17>>*/ size = [0, 0],
        /*<<ephemeron.ml:351:8>>*/ mbl =
          /*<<ephemeron.ml:351:8>>*/ caml_call3
          (Stdlib_Array[18],
           function(m, b){
-            /*<<ephemeron.ml:352:22>>*/  /*<<ephemeron.ml:352:32>>*/ var
-            _S_ = bucket_length_alive(0, b);
+            /*<<ephemeron.ml:352:32>>*/ var _S_ = bucket_length_alive(0, b);
             /*<<ephemeron.ml:352:32>>*/ return  /*<<ephemeron.ml:352:32>>*/ caml_call2
                    (Stdlib_Int[11], m, _S_);
            /*<<ephemeron.ml:352:57>>*/ },
@@ -33048,8 +32573,7 @@
       /*<<ephemeron.ml:355:6>>*/  /*<<ephemeron.ml:355:6>>*/ caml_call2
       (Stdlib_Array[12],
        function(b){
-         /*<<ephemeron.ml:357:11>>*/  /*<<ephemeron.ml:357:19>>*/ var
-         l = bucket_length_alive(0, b);
+         /*<<ephemeron.ml:357:19>>*/ var l = bucket_length_alive(0, b);
         size[1] = size[1] + l | 0;
          /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
@@ -33066,7 +32590,7 @@
       /*<<ephemeron.ml:367:6>>*/ return  /*<<ephemeron.ml:367:6>>*/ caml_call2
              (Stdlib_Seq[4],
               function(param){
-                /*<<ephemeron.ml:367:15>>*/ var v = param[2], k = param[1];
+               var v = param[2], k = param[1];
                 /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v);
                /*<<ephemeron.ml:367:41>>*/ },
               i);
@@ -33075,14 +32599,13 @@
       /*<<ephemeron.ml:370:6>>*/ return  /*<<ephemeron.ml:370:6>>*/ caml_call2
              (Stdlib_Seq[4],
               function(param){
-                /*<<ephemeron.ml:370:15>>*/ var v = param[2], k = param[1];
+               var v = param[2], k = param[1];
                 /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v);
                /*<<ephemeron.ml:370:45>>*/ },
               i);
      /*<<ephemeron.ml:370:47>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:373:6>>*/  /*<<ephemeron.ml:373:16>>*/ var
-      tbl = create(0, 16);
+      /*<<ephemeron.ml:373:16>>*/ var tbl = create(0, 16);
       /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
       /*<<ephemeron.ml:374:6>>*/ return tbl;
      /*<<ephemeron.ml:375:9>>*/ }
@@ -33111,7 +32634,7 @@
             (Stdlib_Obj[23][1], 1);
     /*<<ephemeron.ml:394:45>>*/ }
    function get_key(t){
-     /*<<ephemeron.ml:396:42>>*/  /*<<ephemeron.ml:396:50>>*/ var
+     /*<<ephemeron.ml:396:50>>*/ var
      x =  /*<<ephemeron.ml:396:50>>*/ caml_call2(Stdlib_Obj[23][3], t, 0);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:396:70>>*/ }
@@ -33124,7 +32647,7 @@
             (Stdlib_Obj[23][7], t, 0);
     /*<<ephemeron.ml:398:59>>*/ }
    function get_data(t){
-     /*<<ephemeron.ml:400:43>>*/  /*<<ephemeron.ml:400:51>>*/ var
+     /*<<ephemeron.ml:400:51>>*/ var
      x =  /*<<ephemeron.ml:400:51>>*/ caml_call1(Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:400:70>>*/ }
@@ -33133,31 +32656,27 @@
             (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:401:75>>*/ }
    function make(key, data){
-     /*<<ephemeron.ml:405:4>>*/  /*<<ephemeron.ml:405:14>>*/ var
-     eph = create(0);
+     /*<<ephemeron.ml:405:14>>*/ var eph = create(0);
      /*<<ephemeron.ml:406:4>>*/ set_data(eph, data);
      /*<<ephemeron.ml:407:4>>*/ set_key(eph, key);
      /*<<ephemeron.ml:407:4>>*/ return eph;
     /*<<ephemeron.ml:408:7>>*/ }
    function query(eph, key){
-     /*<<ephemeron.ml:411:4>>*/  /*<<ephemeron.ml:411:10>>*/ var
-     match = get_key(eph);
+     /*<<ephemeron.ml:411:10>>*/ var match = get_key(eph);
     if(! match)  /*<<ephemeron.ml:412:14>>*/ return 0;
     var k = match[1];
     return k === key ? get_data(eph) : 0;
     /*<<ephemeron.ml:414:20>>*/ }
    function MakeSeeded$0(H){
     function create$0(k, d){
-      /*<<ephemeron.ml:421:8>>*/  /*<<ephemeron.ml:421:16>>*/ var
-      c = create(0);
+      /*<<ephemeron.ml:421:16>>*/ var c = create(0);
       /*<<ephemeron.ml:422:8>>*/ set_data(c, d);
       /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
       /*<<ephemeron.ml:423:8>>*/ return c;
      /*<<ephemeron.ml:424:9>>*/ }
     var seeded_hash = H[2];
     function equal(c, k){
-      /*<<ephemeron.ml:429:8>>*/  /*<<ephemeron.ml:429:14>>*/ var
-      match = get_key(c);
+      /*<<ephemeron.ml:429:14>>*/ var match = get_key(c);
      if(! match)  /*<<ephemeron.ml:430:18>>*/ return 2;
      var k$0 = match[1];
       /*<<ephemeron.ml:432:15>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
@@ -33210,7 +32729,7 @@
              (_R_, _a_, sz);
      /*<<ephemeron.ml:448:43>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:450:6>>*/  /*<<ephemeron.ml:448:20>>*/ var
+      /*<<ephemeron.ml:448:20>>*/ var
       tbl =  /*<<ephemeron.ml:448:20>>*/ caml_call2(_R_, _a_, 16);
       /*<<ephemeron.ml:451:6>>*/  /*<<ephemeron.ml:451:6>>*/ caml_call2
       (replace_seq, tbl, i);
@@ -33240,13 +32759,12 @@
      /*<<ephemeron.ml:459:18>>*/ return [0, 0];
     /*<<ephemeron.ml:459:24>>*/ }
    function add(b, k, d){
-     /*<<ephemeron.ml:460:20>>*/ var _Q_ = b[1];
+    var _Q_ = b[1];
     b[1] = [0, make(k, d), _Q_];
     return 0;
     /*<<ephemeron.ml:460:42>>*/ }
    function test_key(k, e){
-     /*<<ephemeron.ml:463:6>>*/  /*<<ephemeron.ml:463:12>>*/ var
-     match = get_key(e);
+     /*<<ephemeron.ml:463:12>>*/ var match = get_key(e);
     if(match){
      var x = match[1];
      if(x === k)  /*<<ephemeron.ml:464:30>>*/ return 1;
@@ -33254,7 +32772,7 @@
      /*<<ephemeron.ml:465:13>>*/ return 0;
     /*<<ephemeron.ml:465:18>>*/ }
    function remove(b, k){
-     /*<<ephemeron.ml:468:6>>*/ var l$0 = b[1], l = l$0, acc = 0;
+    var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:469:8>>*/ for(;;){
      if(! l)  /*<<ephemeron.ml:470:16>>*/ return 0;
      var h = l[1], t = l[2];
@@ -33262,15 +32780,13 @@
       b[1] =  /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
-      /*<<ephemeron.ml:472:27>>*/ var
-      t$0 = l[2],
-       /*<<ephemeron.ml:472:27>>*/ acc$0 = [0, h, acc];
+     var t$0 = l[2],  /*<<ephemeron.ml:472:27>>*/ acc$0 = [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
     /*<<ephemeron.ml:474:16>>*/ }
    function find(b, k){
-     /*<<ephemeron.ml:477:6>>*/  /*<<ephemeron.ml:477:12>>*/ var
+     /*<<ephemeron.ml:477:12>>*/ var
      match =
         /*<<ephemeron.ml:477:12>>*/ caml_call2
         (Stdlib_List[40],
@@ -33292,7 +32808,7 @@
             (Stdlib_Obj[23][1], 2);
     /*<<ephemeron.ml:491:50>>*/ }
    function get_key1(t){
-     /*<<ephemeron.ml:493:49>>*/  /*<<ephemeron.ml:493:57>>*/ var
+     /*<<ephemeron.ml:493:57>>*/ var
      x =  /*<<ephemeron.ml:493:57>>*/ caml_call2(Stdlib_Obj[23][3], t, 0);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:493:77>>*/ }
@@ -33301,7 +32817,7 @@
             (Stdlib_Obj[23][5], t, 0, k);
     /*<<ephemeron.ml:495:35>>*/ }
    function get_key2(t){
-     /*<<ephemeron.ml:498:49>>*/  /*<<ephemeron.ml:498:57>>*/ var
+     /*<<ephemeron.ml:498:57>>*/ var
      x =  /*<<ephemeron.ml:498:57>>*/ caml_call2(Stdlib_Obj[23][3], t, 1);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:498:77>>*/ }
@@ -33310,7 +32826,7 @@
             (Stdlib_Obj[23][5], t, 1, k);
     /*<<ephemeron.ml:500:35>>*/ }
    function get_data$0(t){
-     /*<<ephemeron.ml:503:48>>*/  /*<<ephemeron.ml:503:56>>*/ var
+     /*<<ephemeron.ml:503:56>>*/ var
      x =  /*<<ephemeron.ml:503:56>>*/ caml_call1(Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:503:75>>*/ }
@@ -33319,28 +32835,25 @@
             (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:505:34>>*/ }
    function make$1(key1, key2, data){
-     /*<<ephemeron.ml:509:4>>*/  /*<<ephemeron.ml:509:14>>*/ var
-     eph = create$0(0);
+     /*<<ephemeron.ml:509:14>>*/ var eph = create$0(0);
      /*<<ephemeron.ml:510:4>>*/ set_data$0(eph, data);
      /*<<ephemeron.ml:511:4>>*/ set_key1(eph, key1);
      /*<<ephemeron.ml:512:4>>*/ set_key2(eph, key2);
      /*<<ephemeron.ml:514:4>>*/ return eph;
     /*<<ephemeron.ml:514:7>>*/ }
    function query$0(eph, key1, key2){
-     /*<<ephemeron.ml:517:4>>*/  /*<<ephemeron.ml:517:10>>*/ var
-     match = get_key1(eph);
+     /*<<ephemeron.ml:517:10>>*/ var match = get_key1(eph);
     if(! match)  /*<<ephemeron.ml:518:14>>*/ return 0;
     var k = match[1];
     if(k !== key1)  /*<<ephemeron.ml:525:16>>*/ return 0;
-     /*<<ephemeron.ml:520:20>>*/  /*<<ephemeron.ml:520:20>>*/ var
-     match$0 = get_key2(eph);
+     /*<<ephemeron.ml:520:20>>*/ var match$0 = get_key2(eph);
     if(! match$0)  /*<<ephemeron.ml:521:18>>*/ return 0;
     var k$0 = match$0[1];
     return k$0 === key2 ? get_data$0(eph) : 0;
     /*<<ephemeron.ml:525:20>>*/ }
    function MakeSeeded$1(H1, H2){
     function create(param, d){
-      /*<<ephemeron.ml:534:16>>*/ var
+     var
       k2 = param[2],
       k1 = param[1],
        /*<<ephemeron.ml:534:16>>*/ c = create$0(0);
@@ -33350,7 +32863,7 @@
       /*<<ephemeron.ml:536:23>>*/ return c;
     }
     function seeded_hash(seed, param){
-      /*<<ephemeron.ml:539:33>>*/ var
+     var
       k2 = param[2],
       k1 = param[1],
        /*<<ephemeron.ml:539:33>>*/ _O_ =
@@ -33361,7 +32874,7 @@
             | 0;
     }
     function equal(c, param){
-      /*<<ephemeron.ml:541:14>>*/ var
+     var
       k2 = param[2],
       k1 = param[1],
        /*<<ephemeron.ml:541:14>>*/ match = get_key1(c),
@@ -33385,7 +32898,7 @@
       /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d);
     }
     function check_key(c){
-      /*<<ephemeron.ml:551:24>>*/  /*<<ephemeron.ml:496:45>>*/ var
+      /*<<ephemeron.ml:496:45>>*/ var
       _N_ =  /*<<ephemeron.ml:496:45>>*/ caml_call2(Stdlib_Obj[23][7], c, 0);
       /*<<ephemeron.ml:551:24>>*/ return _N_
              ?  /*<<ephemeron.ml:501:45>>*/ caml_call2
@@ -33437,7 +32950,7 @@
              (_M_, _b_, sz);
      /*<<ephemeron.ml:568:43>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:570:6>>*/  /*<<ephemeron.ml:568:20>>*/ var
+      /*<<ephemeron.ml:568:20>>*/ var
       tbl =  /*<<ephemeron.ml:568:20>>*/ caml_call2(_M_, _b_, 16);
       /*<<ephemeron.ml:571:6>>*/  /*<<ephemeron.ml:571:6>>*/ caml_call2
       (replace_seq, tbl, i);
@@ -33467,12 +32980,12 @@
      /*<<ephemeron.ml:579:18>>*/ return [0, 0];
     /*<<ephemeron.ml:579:24>>*/ }
    function add$0(b, k1, k2, d){
-     /*<<ephemeron.ml:580:24>>*/ var _L_ = b[1];
+    var _L_ = b[1];
     b[1] = [0, make$1(k1, k2, d), _L_];
     return 0;
     /*<<ephemeron.ml:580:50>>*/ }
    function test_keys(k1, k2, e){
-     /*<<ephemeron.ml:583:6>>*/ var
+    var
       /*<<ephemeron.ml:583:12>>*/ match = get_key1(e),
       /*<<ephemeron.ml:583:24>>*/ match$0 = get_key2(e);
     if(match && match$0){
@@ -33482,7 +32995,7 @@
      /*<<ephemeron.ml:585:13>>*/ return 0;
     /*<<ephemeron.ml:585:18>>*/ }
    function remove$0(b, k1, k2){
-     /*<<ephemeron.ml:588:6>>*/ var l$0 = b[1], l = l$0, acc = 0;
+    var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:589:8>>*/ for(;;){
      if(! l)  /*<<ephemeron.ml:590:16>>*/ return 0;
      var h = l[1], t = l[2];
@@ -33490,15 +33003,13 @@
       b[1] =  /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
-      /*<<ephemeron.ml:592:27>>*/ var
-      t$0 = l[2],
-       /*<<ephemeron.ml:592:27>>*/ acc$0 = [0, h, acc];
+     var t$0 = l[2],  /*<<ephemeron.ml:592:27>>*/ acc$0 = [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
     /*<<ephemeron.ml:594:16>>*/ }
    function find$0(b, k1, k2){
-     /*<<ephemeron.ml:597:6>>*/  /*<<ephemeron.ml:597:12>>*/ var
+     /*<<ephemeron.ml:597:12>>*/ var
      match =
         /*<<ephemeron.ml:597:12>>*/ caml_call2
         (Stdlib_List[40],
@@ -33524,7 +33035,7 @@
             (Stdlib_Obj[23][2], k);
     /*<<ephemeron.ml:612:50>>*/ }
    function get_key$0(t, n){
-     /*<<ephemeron.ml:614:50>>*/  /*<<ephemeron.ml:614:58>>*/ var
+     /*<<ephemeron.ml:614:58>>*/ var
      x =  /*<<ephemeron.ml:614:58>>*/ caml_call2(Stdlib_Obj[23][3], t, n);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:614:78>>*/ }
@@ -33533,7 +33044,7 @@
             (Stdlib_Obj[23][5], t, n, k);
     /*<<ephemeron.ml:616:35>>*/ }
    function get_data$1(t){
-     /*<<ephemeron.ml:619:43>>*/  /*<<ephemeron.ml:619:51>>*/ var
+     /*<<ephemeron.ml:619:51>>*/ var
      x =  /*<<ephemeron.ml:619:51>>*/ caml_call1(Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:619:70>>*/ }
@@ -33542,20 +33053,15 @@
             (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:620:75>>*/ }
    function make$3(keys, data){
-     /*<<ephemeron.ml:624:4>>*/ var
-     l = keys.length - 1,
-      /*<<ephemeron.ml:625:14>>*/ eph = create$1(l);
+    var l = keys.length - 1,  /*<<ephemeron.ml:625:14>>*/ eph = create$1(l);
      /*<<ephemeron.ml:626:4>>*/ set_data$1(eph, data);
-     /*<<ephemeron.ml:626:4>>*/ var
-     _I_ = l - 1 | 0,
-      /*<<ephemeron.ml:626:4>>*/ _H_ = 0;
+    var _I_ = l - 1 | 0,  /*<<ephemeron.ml:626:4>>*/ _H_ = 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
        /*<<ephemeron.ml:627:26>>*/ set_key$0
        (eph, i, caml_check_bound(keys, i)[1 + i]);
-       /*<<ephemeron.ml:627:26>>*/  /*<<ephemeron.ml:627:26>>*/ var
-       _J_ = i + 1 | 0;
+       /*<<ephemeron.ml:627:26>>*/ var _J_ = i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
@@ -33563,20 +33069,18 @@
      /*<<ephemeron.ml:628:4>>*/ return eph;
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
-     /*<<ephemeron.ml:631:4>>*/  /*<<ephemeron.ml:631:12>>*/ var
-     l = length$1(eph);
+     /*<<ephemeron.ml:631:12>>*/ var l = length$1(eph);
      /*<<ephemeron.ml:632:4>>*/ try{
      if(l !== keys.length - 1)
        /*<<ephemeron.ml:633:37>>*/ throw  /*<<ephemeron.ml:633:37>>*/ caml_maybe_attach_backtrace
              (Stdlib[3], 1);
-      /*<<ephemeron.ml:631:12>>*/ var
+     var
        /*<<ephemeron.ml:631:12>>*/ _D_ = l - 1 | 0,
        /*<<ephemeron.ml:634:6>>*/ _C_ = 0;
      if(_D_ >= 0){
       var i = _C_;
       for(;;){
-        /*<<ephemeron.ml:635:14>>*/  /*<<ephemeron.ml:635:14>>*/ var
-        match = get_key$0(eph, i);
+        /*<<ephemeron.ml:635:14>>*/ var match = get_key$0(eph, i);
        if(! match)
          /*<<ephemeron.ml:636:18>>*/ throw  /*<<ephemeron.ml:636:18>>*/ caml_maybe_attach_backtrace
                (Stdlib[3], 1);
@@ -33584,14 +33088,12 @@
        if(k !== caml_check_bound(keys, i)[1 + i])
          /*<<ephemeron.ml:638:20>>*/ throw  /*<<ephemeron.ml:638:20>>*/ caml_maybe_attach_backtrace
                (Stdlib[3], 1);
-        /*<<ephemeron.ml:634:6>>*/  /*<<ephemeron.ml:634:6>>*/ var
-        _F_ = i + 1 | 0;
+        /*<<ephemeron.ml:634:6>>*/ var _F_ = i + 1 | 0;
        if(_D_ === i) break;
        i = _F_;
       }
      }
-      /*<<ephemeron.ml:640:6>>*/  /*<<ephemeron.ml:640:6>>*/ var
-      _E_ = get_data$1(eph);
+      /*<<ephemeron.ml:640:6>>*/ var _E_ = get_data$1(eph);
       /*<<ephemeron.ml:640:6>>*/ return _E_;
     }
     catch(_G_){
@@ -33602,19 +33104,15 @@
     /*<<ephemeron.ml:641:21>>*/ }
    function MakeSeeded$2(H){
     function create(k, d){
-      /*<<ephemeron.ml:648:8>>*/  /*<<ephemeron.ml:648:16>>*/ var
-      c = create$1(k.length - 1);
+      /*<<ephemeron.ml:648:16>>*/ var c = create$1(k.length - 1);
       /*<<ephemeron.ml:649:8>>*/ set_data$1(c, d);
-      /*<<ephemeron.ml:649:8>>*/ var
-      _z_ = k.length - 2 | 0,
-       /*<<ephemeron.ml:649:8>>*/ _y_ = 0;
+     var _z_ = k.length - 2 | 0,  /*<<ephemeron.ml:649:8>>*/ _y_ = 0;
      if(_z_ >= 0){
       var i = _y_;
       for(;;){
         /*<<ephemeron.ml:651:10>>*/ set_key$0
         (c, i, caml_check_bound(k, i)[1 + i]);
-        /*<<ephemeron.ml:651:10>>*/  /*<<ephemeron.ml:651:10>>*/ var
-        _A_ = i + 1 | 0;
+        /*<<ephemeron.ml:651:10>>*/ var _A_ = i + 1 | 0;
        if(_z_ === i) break;
        i = _A_;
       }
@@ -33622,22 +33120,21 @@
       /*<<ephemeron.ml:653:8>>*/ return c;
      /*<<ephemeron.ml:653:9>>*/ }
     function seeded_hash(seed, k){
-      /*<<ephemeron.ml:655:8>>*/ var
+     var
        /*<<ephemeron.ml:655:16>>*/ h = [0, 0],
       _u_ = k.length - 2 | 0,
        /*<<ephemeron.ml:655:16>>*/ _t_ = 0;
      if(_u_ >= 0){
       var i = _t_;
       for(;;){
-        /*<<ephemeron.ml:657:34>>*/ var
+       var
         _v_ = h[1],
          /*<<ephemeron.ml:657:34>>*/ _w_ = caml_check_bound(k, i)[1 + i];
        h[1] =
         ( /*<<ephemeron.ml:657:15>>*/ caml_call2(H[2], seed, _w_) * 65599 | 0)
         + _v_
         | 0;
-        /*<<ephemeron.ml:656:8>>*/  /*<<ephemeron.ml:656:8>>*/ var
-        _x_ = i + 1 | 0;
+        /*<<ephemeron.ml:656:8>>*/ var _x_ = i + 1 | 0;
        if(_u_ === i) break;
        i = _x_;
       }
@@ -33645,42 +33142,33 @@
      return h[1];
      /*<<ephemeron.ml:659:10>>*/ }
     function equal(c, k){
-      /*<<ephemeron.ml:661:8>>*/ var
-      len = k.length - 1,
-       /*<<ephemeron.ml:662:19>>*/ len$0 = length$1(c);
+     var len = k.length - 1,  /*<<ephemeron.ml:662:19>>*/ len$0 = length$1(c);
      if(len !== len$0)  /*<<ephemeron.ml:663:28>>*/ return 1;
-      /*<<ephemeron.ml:675:10>>*/ var
-       /*<<ephemeron.ml:675:10>>*/ i$1 = len - 1 | 0,
-      i = i$1;
+     var  /*<<ephemeron.ml:675:10>>*/ i$1 = len - 1 | 0, i = i$1;
       /*<<ephemeron.ml:666:12>>*/ for(;;){
       if(0 > i)  /*<<ephemeron.ml:666:26>>*/ return 0;
-       /*<<ephemeron.ml:668:20>>*/  /*<<ephemeron.ml:668:20>>*/ var
-       match = get_key$0(c, i);
+       /*<<ephemeron.ml:668:20>>*/ var match = get_key$0(c, i);
       if(! match)  /*<<ephemeron.ml:669:24>>*/ return 2;
-       /*<<ephemeron.ml:671:29>>*/ var
+      var
        ki = match[1],
         /*<<ephemeron.ml:671:29>>*/ _s_ = caml_check_bound(k, i)[1 + i];
        /*<<ephemeron.ml:671:21>>*/ if
        (!  /*<<ephemeron.ml:671:21>>*/ caml_call2(H[1], _s_, ki))
         /*<<ephemeron.ml:673:23>>*/ return 1;
-       /*<<ephemeron.ml:672:23>>*/  /*<<ephemeron.ml:672:23>>*/ var
-       i$0 = i - 1 | 0;
+       /*<<ephemeron.ml:672:23>>*/ var i$0 = i - 1 | 0;
       i = i$0;
      }
      /*<<ephemeron.ml:675:33>>*/ }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:678:8>>*/  /*<<ephemeron.ml:621:40>>*/ caml_call1
       (Stdlib_Obj[23][12], c);
-      /*<<ephemeron.ml:678:8>>*/ var
-      _q_ = k.length - 2 | 0,
-       /*<<ephemeron.ml:678:8>>*/ _p_ = 0;
+     var _q_ = k.length - 2 | 0,  /*<<ephemeron.ml:678:8>>*/ _p_ = 0;
      if(_q_ >= 0){
       var i = _p_;
       for(;;){
         /*<<ephemeron.ml:680:10>>*/ set_key$0
         (c, i, caml_check_bound(k, i)[1 + i]);
-        /*<<ephemeron.ml:680:10>>*/  /*<<ephemeron.ml:680:10>>*/ var
-        _r_ = i + 1 | 0;
+        /*<<ephemeron.ml:680:10>>*/ var _r_ = i + 1 | 0;
        if(_q_ === i) break;
        i = _r_;
       }
@@ -33688,15 +33176,13 @@
       /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d);
      /*<<ephemeron.ml:682:20>>*/ }
     function check_key(c){
-      /*<<ephemeron.ml:684:8>>*/ var
-       /*<<ephemeron.ml:686:17>>*/ i$1 = length$1(c) - 1 | 0,
-      i = i$1;
+     var  /*<<ephemeron.ml:686:17>>*/ i$1 = length$1(c) - 1 | 0, i = i$1;
       /*<<ephemeron.ml:685:10>>*/ for(;;){
       var _n_ = i < 0 ? 1 : 0;
       if(_n_)
        var _o_ = _n_;
       else{
-        /*<<ephemeron.ml:617:47>>*/  /*<<ephemeron.ml:617:47>>*/ var
+        /*<<ephemeron.ml:617:47>>*/ var
         _m_ =  /*<<ephemeron.ml:617:47>>*/ caml_call2(Stdlib_Obj[23][7], c, i);
         /*<<ephemeron.ml:685:20>>*/ if(_m_){
         var i$0 = i - 1 | 0;
@@ -33747,7 +33233,7 @@
              (_l_, _c_, sz);
      /*<<ephemeron.ml:696:43>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:698:6>>*/  /*<<ephemeron.ml:696:20>>*/ var
+      /*<<ephemeron.ml:696:20>>*/ var
       tbl =  /*<<ephemeron.ml:696:20>>*/ caml_call2(_l_, _c_, 16);
       /*<<ephemeron.ml:699:6>>*/  /*<<ephemeron.ml:699:6>>*/ caml_call2
       (replace_seq, tbl, i);
@@ -33777,7 +33263,7 @@
      /*<<ephemeron.ml:707:18>>*/ return [0, 0];
     /*<<ephemeron.ml:707:24>>*/ }
    function add$1(b, k, d){
-     /*<<ephemeron.ml:708:20>>*/ var _k_ = b[1];
+    var _k_ = b[1];
     b[1] = [0, make$3(k, d), _k_];
     return 0;
     /*<<ephemeron.ml:708:42>>*/ }
@@ -33786,19 +33272,15 @@
      if(length$1(e) !== k.length - 1)
        /*<<ephemeron.ml:712:43>>*/ throw  /*<<ephemeron.ml:712:43>>*/ caml_maybe_attach_backtrace
              (Stdlib[3], 1);
-      /*<<ephemeron.ml:713:8>>*/ var
-      _g_ = k.length - 2 | 0,
-       /*<<ephemeron.ml:713:8>>*/ _f_ = 0;
+     var _g_ = k.length - 2 | 0,  /*<<ephemeron.ml:713:8>>*/ _f_ = 0;
      if(_g_ >= 0){
       var i = _f_;
       for(;;){
-        /*<<ephemeron.ml:714:16>>*/  /*<<ephemeron.ml:714:16>>*/ var
-        match = get_key$0(e, i);
+        /*<<ephemeron.ml:714:16>>*/ var match = get_key$0(e, i);
        if(match){
         var x = match[1];
         if(x === caml_check_bound(k, i)[1 + i]){
-          /*<<ephemeron.ml:713:8>>*/  /*<<ephemeron.ml:713:8>>*/ var
-          _i_ = i + 1 | 0;
+          /*<<ephemeron.ml:713:8>>*/ var _i_ = i + 1 | 0;
          if(_g_ === i) break;
          i = _i_;
          continue;
@@ -33808,7 +33290,7 @@
               (Stdlib[3], 1);
       }
      }
-      /*<<ephemeron.ml:718:8>>*/  /*<<ephemeron.ml:718:8>>*/ var _h_ = 1;
+      /*<<ephemeron.ml:718:8>>*/ var _h_ = 1;
       /*<<ephemeron.ml:718:8>>*/ return _h_;
     }
     catch(_j_){
@@ -33818,7 +33300,7 @@
     }
     /*<<ephemeron.ml:719:24>>*/ }
    function remove$1(b, k){
-     /*<<ephemeron.ml:722:6>>*/ var l$0 = b[1], l = l$0, acc = 0;
+    var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:723:8>>*/ for(;;){
      if(! l)  /*<<ephemeron.ml:724:16>>*/ return 0;
      var h = l[1], t = l[2];
@@ -33826,15 +33308,13 @@
       b[1] =  /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
-      /*<<ephemeron.ml:726:27>>*/ var
-      t$0 = l[2],
-       /*<<ephemeron.ml:726:27>>*/ acc$0 = [0, h, acc];
+     var t$0 = l[2],  /*<<ephemeron.ml:726:27>>*/ acc$0 = [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
     /*<<ephemeron.ml:728:16>>*/ }
    function find$1(b, k){
-     /*<<ephemeron.ml:731:6>>*/  /*<<ephemeron.ml:731:12>>*/ var
+     /*<<ephemeron.ml:731:12>>*/ var
      match =
         /*<<ephemeron.ml:731:12>>*/ caml_call2
         (Stdlib_List[40],
@@ -33883,44 +33363,45 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    cst$19 = "",
-    cst$23 = " ",
-    cst_2$1 = " 2>",
-    cst_2_1$1 = " 2>&1",
-    cst$22 = " <",
-    cst$21 = " >",
-    cst$20 = '"',
-    cst$24 = ".",
-    cst$25 = "..",
-    cst$28 = "../",
-    cst$27 = "./",
-    cst$26 = "/",
-    cst_dev_null = "/dev/null",
-    caml_equal = runtime.caml_equal,
-    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_getenv = runtime.caml_sys_getenv,
-    caml_trampoline = runtime.caml_trampoline,
-    caml_trampoline_return = runtime.caml_trampoline_return,
-    caml_wrap_exception = runtime.caml_wrap_exception;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ cst$19 = "",
+     /*<<?>>*/ cst$23 = " ",
+     /*<<?>>*/ cst_2$1 = " 2>",
+     /*<<?>>*/ cst_2_1$1 = " 2>&1",
+     /*<<?>>*/ cst$22 = " <",
+     /*<<?>>*/ cst$21 = " >",
+     /*<<?>>*/ cst$20 = '"',
+     /*<<?>>*/ cst$24 = ".",
+     /*<<?>>*/ cst$25 = "..",
+     /*<<?>>*/ cst$28 = "../",
+     /*<<?>>*/ cst$27 = "./",
+     /*<<?>>*/ cst$26 = "/",
+     /*<<?>>*/ cst_dev_null = "/dev/null",
+     /*<<?>>*/ caml_equal = runtime.caml_equal,
+     /*<<?>>*/ 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_getenv = runtime.caml_sys_getenv,
+     /*<<?>>*/ caml_trampoline = runtime.caml_trampoline,
+     /*<<?>>*/ caml_trampoline_return = runtime.caml_trampoline_return,
+     /*<<?>>*/ 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){
+   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){
+   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){
+   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]);
@@ -33979,13 +33460,10 @@
       /*<<filename.ml:39:12>>*/ if
       (!  /*<<filename.ml:39:12>>*/ caml_call2(is_dir_sep, name, n))
       break;
-      /*<<filename.ml:39:35>>*/  /*<<filename.ml:39:35>>*/ var
-      n$0 = n - 1 | 0;
+      /*<<filename.ml:39:35>>*/ var n$0 = n - 1 | 0;
      n = n$0;
     }
-     /*<<filename.ml:40:9>>*/ var
-      /*<<filename.ml:40:9>>*/ p = n + 1 | 0,
-     n$1 = n;
+    var  /*<<filename.ml:40:9>>*/ p = n + 1 | 0, n$1 = n;
      /*<<filename.ml:42:4>>*/ for(;;){
      if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return  /*<<filename.ml:42:18>>*/ caml_call3
@@ -34009,8 +33487,7 @@
       /*<<filename.ml:57:12>>*/ if
       (!  /*<<filename.ml:57:12>>*/ caml_call2(is_dir_sep, name, n))
       break;
-      /*<<filename.ml:57:35>>*/  /*<<filename.ml:57:35>>*/ var
-      n$0 = n - 1 | 0;
+      /*<<filename.ml:57:35>>*/ var n$0 = n - 1 | 0;
      n = n$0;
     }
     var n$1 = n;
@@ -34019,8 +33496,7 @@
       /*<<filename.ml:61:12>>*/ if
       ( /*<<filename.ml:61:12>>*/ caml_call2(is_dir_sep, name, n$1))
       break;
-      /*<<filename.ml:62:9>>*/  /*<<filename.ml:62:9>>*/ var
-      n$2 = n$1 - 1 | 0;
+      /*<<filename.ml:62:9>>*/ var n$2 = n$1 - 1 | 0;
      n$1 = n$2;
     }
     var n$3 = n$1;
@@ -34032,8 +33508,7 @@
       (!  /*<<filename.ml:65:12>>*/ caml_call2(is_dir_sep, name, n$3))
        /*<<filename.ml:66:9>>*/ return  /*<<filename.ml:66:9>>*/ caml_call3
               (Stdlib_String[16], name, 0, n$3 + 1 | 0);
-      /*<<filename.ml:65:35>>*/  /*<<filename.ml:65:35>>*/ var
-      n$4 = n$3 - 1 | 0;
+      /*<<filename.ml:65:35>>*/ var n$4 = n$3 - 1 | 0;
      n$3 = n$4;
     }
     /*<<filename.ml:70:44>>*/ }
@@ -34044,7 +33519,7 @@
             : 0;
     /*<<filename.ml:96:34>>*/ }
    function is_relative(n){
-     /*<<filename.ml:97:22>>*/ var
+    var
      _aH_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _aI_ =
        _aH_
@@ -34052,8 +33527,7 @@
     return _aI_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
-     /*<<filename.ml:99:4>>*/  /*<<filename.ml:99:4>>*/ var
-     _aC_ = is_relative(n);
+     /*<<filename.ml:99:4>>*/ var _aC_ = is_relative(n);
      /*<<filename.ml:99:4>>*/ if(_aC_){
      var
       _aD_ = caml_ml_string_length(n) < 2 ? 1 : 0,
@@ -34086,11 +33560,11 @@
             (Stdlib_String[12], suff, name);
     /*<<filename.ml:103:38>>*/ }
    function chop_suffix_opt(suffix, filename){
-     /*<<filename.ml:106:4>>*/ var
+    var
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
     if(len_s > len_f)  /*<<filename.ml:114:6>>*/ return 0;
-     /*<<filename.ml:108:14>>*/  /*<<filename.ml:108:14>>*/ var
+     /*<<filename.ml:108:14>>*/ var
      r =
         /*<<filename.ml:108:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s);
@@ -34116,7 +33590,7 @@
     cst_2 = cst_2$1,
     cst_tmp = "/tmp";
    try{
-     /*<<filename.ml:117:8>>*/ var
+    var
       /*<<filename.ml:117:8>>*/ _j_ =
         /*<<filename.ml:117:8>>*/ caml_sys_getenv("TMPDIR"),
      temp_dir_name = _j_;
@@ -34126,16 +33600,14 @@
     if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
     var temp_dir_name = cst_tmp;
    }
-    /*<<filename.ml:118:14>>*/ function quote(s){
-     /*<<filename.ml:18:10>>*/ var
+   function quote(s){
+    var
      l = caml_ml_string_length(s),
       /*<<filename.ml:18:10>>*/ b =
         /*<<filename.ml:18:10>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:19:2>>*/  /*<<filename.ml:19:2>>*/ caml_call2
      (Stdlib_Buffer[12], b, 39);
-     /*<<filename.ml:19:2>>*/ var
-     _ay_ = l - 1 | 0,
-      /*<<filename.ml:19:2>>*/ _ax_ = 0;
+    var _ay_ = l - 1 | 0,  /*<<filename.ml:19:2>>*/ _ax_ = 0;
     if(_ay_ >= 0){
      var i = _ax_;
      for(;;){
@@ -34144,13 +33616,12 @@
         /*<<filename.ml:22:9>>*/  /*<<filename.ml:22:9>>*/ caml_call2
         (Stdlib_Buffer[16], b, quotequote);
       else{
-        /*<<filename.ml:23:28>>*/  /*<<filename.ml:23:28>>*/ var
+        /*<<filename.ml:23:28>>*/ var
         _aA_ =  /*<<filename.ml:23:28>>*/ caml_string_get(s, i);
         /*<<filename.ml:23:9>>*/  /*<<filename.ml:23:9>>*/ caml_call2
         (Stdlib_Buffer[12], b, _aA_);
       }
-       /*<<filename.ml:23:9>>*/  /*<<filename.ml:23:9>>*/ var
-       _az_ = i + 1 | 0;
+       /*<<filename.ml:23:9>>*/ var _az_ = i + 1 | 0;
       if(_ay_ === i) break;
       i = _az_;
      }
@@ -34167,7 +33638,7 @@
       ( /*<<filename.ml:123:51>>*/ caml_equal(stderr, stdout))
       var _am_ = cst_2_1;
      else
-       /*<<filename.ml:125:61>>*/ var
+      var
         /*<<filename.ml:125:61>>*/ _aw_ = quote(f),
        _am_ =  /*<<filename.ml:125:53>>*/ caml_call2(Stdlib[28], cst_2, _aw_);
      var _an_ = _am_;
@@ -34175,22 +33646,22 @@
     else
      var _an_ = cst$4;
     if(stdout)
-      /*<<filename.ml:122:55>>*/ var
+     var
       f$0 = stdout[1],
        /*<<filename.ml:122:55>>*/ _ao_ = quote(f$0),
       _ap_ =  /*<<filename.ml:122:48>>*/ caml_call2(Stdlib[28], cst, _ao_);
     else
      var _ap_ = cst$3;
-     /*<<filename.ml:122:6>>*/  /*<<filename.ml:122:6>>*/ var
+     /*<<filename.ml:122:6>>*/ var
      _aq_ =  /*<<filename.ml:122:6>>*/ caml_call2(Stdlib[28], _ap_, _an_);
     if(stdin)
-      /*<<filename.ml:121:55>>*/ var
+     var
       f$1 = stdin[1],
        /*<<filename.ml:121:55>>*/ _ar_ = quote(f$1),
       _as_ =  /*<<filename.ml:121:48>>*/ caml_call2(Stdlib[28], cst$0, _ar_);
     else
      var _as_ = cst$2;
-     /*<<filename.ml:121:6>>*/ var
+    var
       /*<<filename.ml:121:6>>*/ _at_ =
         /*<<filename.ml:121:6>>*/ caml_call2(Stdlib[28], _as_, _aq_),
       /*<<filename.ml:120:22>>*/ _au_ =
@@ -34201,13 +33672,13 @@
      /*<<filename.ml:121:6>>*/ return  /*<<filename.ml:121:6>>*/ caml_call2
             (Stdlib[28], _av_, _at_);
     /*<<filename.ml:125:69>>*/ }
-    /*<<filename.ml:126:17>>*/ function basename(_al_){
+   function basename(_al_){
      /*<<?>>*/ return generic_basename(is_dir_sep, current_dir_name, _al_);
    }
-    /*<<filename.ml:127:16>>*/ function dirname(_ak_){
+   function dirname(_ak_){
      /*<<?>>*/ return generic_dirname(is_dir_sep, current_dir_name, _ak_);
    }
-    /*<<filename.ml:91:24>>*/  /*<<filename.ml:91:24>>*/ var
+    /*<<filename.ml:91:24>>*/ var
     Unix =
       [0,
        null$0,
@@ -34225,7 +33696,7 @@
        basename,
        dirname];
    function is_dir_sep$0(s, i){
-     /*<<filename.ml:135:23>>*/ var
+    var
       /*<<filename.ml:135:31>>*/ c =
         /*<<filename.ml:135:31>>*/ caml_string_get(s, i),
      _ah_ = 47 === c ? 1 : 0;
@@ -34236,7 +33707,7 @@
     return _ai_;
     /*<<filename.ml:135:70>>*/ }
    function is_relative$0(n){
-     /*<<filename.ml:137:4>>*/ var
+    var
      _ab_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _ac_ =
        _ab_
@@ -34261,8 +33732,7 @@
     return _ag_;
     /*<<filename.ml:139:44>>*/ }
    function is_implicit$0(n){
-     /*<<filename.ml:141:4>>*/  /*<<filename.ml:141:4>>*/ var
-     _U_ = is_relative$0(n);
+     /*<<filename.ml:141:4>>*/ var _U_ = is_relative$0(n);
      /*<<filename.ml:141:4>>*/ if(_U_){
      var
       _V_ = caml_ml_string_length(n) < 2 ? 1 : 0,
@@ -34318,10 +33788,10 @@
      /*<<filename.ml:145:31>>*/ return _aa_;
     /*<<filename.ml:145:58>>*/ }
    function check_suffix$0(name, suff){
-     /*<<filename.ml:147:3>>*/ var
+    var
      _R_ = caml_ml_string_length(suff) <= caml_ml_string_length(name) ? 1 : 0;
     if(_R_)
-      /*<<filename.ml:148:12>>*/ var
+     var
        /*<<filename.ml:148:12>>*/ s =
          /*<<filename.ml:148:12>>*/ caml_call3
          (Stdlib_String[16],
@@ -34339,11 +33809,11 @@
      /*<<filename.ml:150:4>>*/ return _T_;
     /*<<filename.ml:150:59>>*/ }
    function chop_suffix_opt$0(suffix, filename){
-     /*<<filename.ml:153:4>>*/ var
+    var
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
     if(len_s > len_f)  /*<<filename.ml:161:6>>*/ return 0;
-     /*<<filename.ml:155:14>>*/ var
+    var
       /*<<filename.ml:155:14>>*/ r =
         /*<<filename.ml:155:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s),
@@ -34358,7 +33828,7 @@
             : 0;
     /*<<filename.ml:161:10>>*/ }
    try{
-     /*<<filename.ml:165:8>>*/ var
+    var
       /*<<filename.ml:165:8>>*/ _i_ =
         /*<<filename.ml:165:8>>*/ caml_sys_getenv("TEMP"),
      temp_dir_name$0 = _i_;
@@ -34369,19 +33839,19 @@
     var temp_dir_name$0 = cst$5;
    }
    function quote$0(s){
-     /*<<filename.ml:167:4>>*/ var
+    var
      l = caml_ml_string_length(s),
       /*<<filename.ml:168:12>>*/ b =
         /*<<filename.ml:168:12>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:169:4>>*/  /*<<filename.ml:169:4>>*/ caml_call2
      (Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
-      /*<<filename.ml:171:6>>*/ var i$0 = i;
+     var i$0 = i;
       /*<<filename.ml:171:6>>*/ for(;;){
       if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return  /*<<filename.ml:171:20>>*/ caml_call2
                (Stdlib_Buffer[12], b, 34);
-       /*<<filename.ml:172:12>>*/  /*<<filename.ml:172:12>>*/ var
+       /*<<filename.ml:172:12>>*/ var
        c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
       if(34 === c){
        var _N_ = 0;
@@ -34401,28 +33871,26 @@
       }
        /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ caml_call2
        (Stdlib_Buffer[12], b, c);
-       /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ var
-       i$1 = i$0 + 1 | 0;
+       /*<<filename.ml:175:16>>*/ var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<filename.ml:175:48>>*/ }
     function loop(i){ /*<<?>>*/ return caml_trampoline(loop$0(0, i));}
     function loop_bs(counter, n, i){
-      /*<<filename.ml:177:6>>*/ var n$0 = n, i$0 = i;
+     var n$0 = n, i$0 = i;
       /*<<filename.ml:177:6>>*/ for(;;){
       if(i$0 === l){
         /*<<filename.ml:178:8>>*/  /*<<filename.ml:178:8>>*/ caml_call2
         (Stdlib_Buffer[12], b, 34);
         /*<<filename.ml:178:8>>*/ return add_bs(n$0);
       }
-       /*<<filename.ml:181:14>>*/  /*<<filename.ml:181:14>>*/ var
+       /*<<filename.ml:181:14>>*/ var
        match =  /*<<filename.ml:181:14>>*/ caml_string_get(s, i$0);
       if(34 === match){
         /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
         /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ caml_call2
         (Stdlib_Buffer[12], b, 34);
-        /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ var
-        _M_ = i$0 + 1 | 0;
+        /*<<filename.ml:182:34>>*/ var _M_ = i$0 + 1 | 0;
         /*<<filename.ml:182:34>>*/ if(counter >= 50)
          /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ caml_trampoline_return
                 (loop$0, [0, _M_]);
@@ -34437,22 +33905,19 @@
        var counter$0 = counter + 1 | 0;
         /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0);
       }
-       /*<<filename.ml:183:18>>*/ var
-        /*<<filename.ml:183:18>>*/ i$1 = i$0 + 1 | 0,
-       n$1 = n$0 + 1 | 0;
+      var  /*<<filename.ml:183:18>>*/ i$1 = i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
       i$0 = i$1;
      }
      /*<<filename.ml:185:9>>*/ }
     function add_bs(n){
-      /*<<filename.ml:186:19>>*/  /*<<filename.ml:186:19>>*/ var _K_ = 1;
+      /*<<filename.ml:186:19>>*/ var _K_ = 1;
      if(n >= 1){
       var j = _K_;
       for(;;){
         /*<<filename.ml:186:38>>*/  /*<<filename.ml:186:38>>*/ caml_call2
         (Stdlib_Buffer[12], b, 92);
-        /*<<filename.ml:186:38>>*/  /*<<filename.ml:186:38>>*/ var
-        _L_ = j + 1 | 0;
+        /*<<filename.ml:186:38>>*/ var _L_ = j + 1 | 0;
        if(n === j) break;
        j = _L_;
       }
@@ -34478,7 +33943,7 @@
              ?  /*<<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:223:15>>*/ var
      _J_ =
         /*<<filename.ml:223:15>>*/ caml_call2
         (Stdlib[28], cst_Filename_quote_command_bad, f);
@@ -34492,7 +33957,7 @@
       ( /*<<filename.ml:240:43>>*/ caml_equal(stderr, stdout))
       var _w_ = cst_2_1$0;
      else
-       /*<<filename.ml:242:53>>*/ var
+      var
         /*<<filename.ml:242:53>>*/ _H_ = quote_cmd_filename(f),
        _w_ =  /*<<filename.ml:242:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
      var _x_ = _w_;
@@ -34501,7 +33966,7 @@
      var _x_ = cst$16;
     var _y_ = [0, _x_, _d_];
     if(stdout)
-      /*<<filename.ml:238:55>>*/ var
+     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_);
@@ -34509,13 +33974,13 @@
      var _A_ = cst$15;
     var _B_ = [0, _A_, _y_];
     if(stdin)
-      /*<<filename.ml:237:55>>*/ var
+     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_);
     else
      var _D_ = cst$14;
-     /*<<filename.ml:236:35>>*/ var
+    var
       /*<<filename.ml:236:35>>*/ _E_ =
         /*<<filename.ml:236:35>>*/ caml_call2(Stdlib_List[20], quote$0, args),
       /*<<filename.ml:236:16>>*/ s =
@@ -34526,7 +33991,7 @@
      /*<<filename.ml:212:4>>*/  /*<<filename.ml:212:4>>*/ caml_call2
      (Stdlib_String[30],
       function(c){
-        /*<<filename.ml:214:8>>*/ a:
+       a:
        {
         if(62 <= c){
          var _I_ = c - 63 | 0;
@@ -34553,7 +34018,7 @@
                (Stdlib_Buffer[12], b, c);
        /*<<filename.ml:218:31>>*/ },
       s);
-     /*<<filename.ml:232:21>>*/ var
+    var
      _F_ =
        [0,
         cst$11,
@@ -34566,10 +34031,10 @@
             (Stdlib_String[7], cst$13, _G_);
     /*<<filename.ml:244:5>>*/ }
    function drive_and_path(s){
-     /*<<filename.ml:252:4>>*/ var
+    var
      _s_ = 2 <=  /*<<filename.ml:250:4>>*/ caml_ml_string_length(s) ? 1 : 0;
     if(_s_){
-      /*<<filename.ml:250:38>>*/  /*<<filename.ml:250:38>>*/ var
+      /*<<filename.ml:250:38>>*/ var
       param =  /*<<filename.ml:250:38>>*/ caml_string_get(s, 0);
      a:
      {
@@ -34584,7 +34049,7 @@
       }
       var _t_ = 0;
      }
-      /*<<filename.ml:250:28>>*/  /*<<filename.ml:250:28>>*/ var
+      /*<<filename.ml:250:28>>*/ var
       _u_ =
         _t_
          ? 58 ===  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1) ? 1 : 0
@@ -34594,7 +34059,7 @@
      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:253:28>>*/ var
      _v_ =
         /*<<filename.ml:253:28>>*/ caml_call3
         (Stdlib_String[16], s, 2, caml_ml_string_length(s) - 2 | 0);
@@ -34603,7 +34068,7 @@
             _v_];
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
-     /*<<filename.ml:256:4>>*/ var
+    var
       /*<<filename.ml:256:24>>*/ match = drive_and_path(s),
      path = match[2],
      drive = match[1],
@@ -34613,11 +34078,11 @@
             (Stdlib[28], drive, dir);
     /*<<filename.ml:258:15>>*/ }
    function basename$0(s){
-     /*<<filename.ml:260:4>>*/ var path = drive_and_path(s)[2];
+    var path = drive_and_path(s)[2];
      /*<<filename.ml:261:4>>*/ return generic_basename
             (is_dir_sep$0, current_dir_name$0, path);
     /*<<filename.ml:261:53>>*/ }
-    /*<<filename.ml:130:25>>*/  /*<<filename.ml:130:25>>*/ var
+    /*<<filename.ml:130:25>>*/ var
     Win32 =
       [0,
        null$1,
@@ -34634,13 +34099,13 @@
        quote_command$0,
        basename$0,
        dirname$0];
-    /*<<filename.ml:277:17>>*/ function basename$1(_r_){
+   function basename$1(_r_){
      /*<<?>>*/ return generic_basename(is_dir_sep$0, current_dir_name$1, _r_);
    }
-    /*<<filename.ml:278:16>>*/ function dirname$1(_q_){
+   function dirname$1(_q_){
      /*<<?>>*/ return generic_dirname(is_dir_sep$0, current_dir_name$1, _q_);
    }
-    /*<<filename.ml:264:26>>*/ var
+   var
      /*<<filename.ml:264:26>>*/ Cygwin =
       [0,
        null$2,
@@ -34674,10 +34139,10 @@
     basename$2 = Sysdeps[13],
     dirname$2 = Sysdeps[14];
    function concat(dirname, filename){
-     /*<<filename.ml:290:2>>*/ var l = caml_ml_string_length(dirname);
+    var l = caml_ml_string_length(dirname);
      /*<<filename.ml:291:2>>*/ if
      (0 !== l && ! is_dir_sep$1(dirname, l - 1 | 0)){
-      /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ var
+      /*<<filename.ml:293:17>>*/ var
       _p_ =
          /*<<filename.ml:293:17>>*/ caml_call2
          (Stdlib[28], dir_sep$2, filename);
@@ -34698,31 +34163,25 @@
               (Stdlib[1], cst_Filename_chop_suffix);
     /*<<filename.ml:298:41>>*/ }
    function extension_len(name){
-     /*<<filename.ml:301:2>>*/ var
-     i$3 = caml_ml_string_length(name) - 1 | 0,
-     i0 = i$3;
+    var i$3 = caml_ml_string_length(name) - 1 | 0, i0 = i$3;
      /*<<filename.ml:307:4>>*/ for(;;){
      if(0 <= i0 && ! is_dir_sep$1(name, i0)){
        /*<<filename.ml:308:12>>*/ if
        (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
        break;
-       /*<<filename.ml:309:9>>*/  /*<<filename.ml:309:9>>*/ var
-       i$2 = i0 - 1 | 0;
+       /*<<filename.ml:309:9>>*/ var i$2 = i0 - 1 | 0;
       i0 = i$2;
       continue;
      }
       /*<<filename.ml:307:39>>*/ return 0;
     }
-     /*<<filename.ml:308:32>>*/ var
-      /*<<filename.ml:308:32>>*/ i$1 = i0 - 1 | 0,
-     i = i$1;
+    var  /*<<filename.ml:308:32>>*/ i$1 = i0 - 1 | 0, i = i$1;
      /*<<filename.ml:302:4>>*/ for(;;){
      if(0 <= i && ! is_dir_sep$1(name, i)){
        /*<<filename.ml:303:12>>*/ if
        (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
        return caml_ml_string_length(name) - i0 | 0;
-       /*<<filename.ml:303:32>>*/  /*<<filename.ml:303:32>>*/ var
-       i$0 = i - 1 | 0;
+       /*<<filename.ml:303:32>>*/ var i$0 = i - 1 | 0;
       i = i$0;
       continue;
      }
@@ -34730,8 +34189,7 @@
     }
     /*<<filename.ml:311:37>>*/ }
    function extension(name){
-     /*<<filename.ml:314:2>>*/  /*<<filename.ml:314:10>>*/ var
-     l = extension_len(name);
+     /*<<filename.ml:314:10>>*/ var l = extension_len(name);
      /*<<filename.ml:315:2>>*/ return 0 === l
             ? cst$18
             :  /*<<filename.ml:315:24>>*/ caml_call3
@@ -34741,8 +34199,7 @@
                l);
     /*<<filename.ml:315:66>>*/ }
    function chop_extension(name){
-     /*<<filename.ml:318:2>>*/  /*<<filename.ml:318:10>>*/ var
-     l = extension_len(name);
+     /*<<filename.ml:318:10>>*/ var l = extension_len(name);
      /*<<filename.ml:319:2>>*/ return 0 === l
             ?  /*<<filename.ml:319:16>>*/ caml_call1
               (Stdlib[1], cst_Filename_chop_extension)
@@ -34753,8 +34210,7 @@
                caml_ml_string_length(name) - l | 0);
     /*<<filename.ml:320:49>>*/ }
    function remove_extension(name){
-     /*<<filename.ml:323:2>>*/  /*<<filename.ml:323:10>>*/ var
-     l = extension_len(name);
+     /*<<filename.ml:323:10>>*/ var l = extension_len(name);
      /*<<filename.ml:324:2>>*/ return 0 === l
             ? name
             : caml_call3
@@ -34763,12 +34219,12 @@
                0,
                caml_ml_string_length(name) - l | 0);
     /*<<filename.ml:324:68>>*/ }
-    /*<<filename.ml:330:2>>*/  /*<<filename.ml:330:2>>*/ var
+    /*<<filename.ml:330:2>>*/ var
     prng_key =
        /*<<filename.ml:330:2>>*/ caml_call2
        (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function temp_file_name(temp_dir, prefix, suffix){
-     /*<<filename.ml:333:2>>*/ var
+    var
       /*<<filename.ml:333:21>>*/ random_state =
         /*<<filename.ml:333:21>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
       /*<<filename.ml:334:12>>*/ rnd =
@@ -34780,7 +34236,7 @@
               /*<<filename.ml:335: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:338:2>>*/ var
     current_temp_dir_name =
        /*<<filename.ml:338:2>>*/ caml_call2
        (Stdlib_Domain[10][1],
@@ -34805,7 +34261,7 @@
           (Stdlib_Domain[10][2], current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:345:4>>*/ for(;;){
-      /*<<filename.ml:345:15>>*/  /*<<filename.ml:345:15>>*/ var
+      /*<<filename.ml:345: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
@@ -34818,8 +34274,7 @@
       if(20 <= counter)
         /*<<filename.ml:350:28>>*/ throw  /*<<filename.ml:350:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:350:41>>*/  /*<<filename.ml:350:41>>*/ var
-       counter$0 = counter + 1 | 0;
+       /*<<filename.ml:350:41>>*/ var counter$0 = counter + 1 | 0;
       counter = counter$0;
      }
     }
@@ -34835,10 +34290,10 @@
           (Stdlib_Domain[10][2], current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:357:4>>*/ for(;;){
-      /*<<filename.ml:357:15>>*/  /*<<filename.ml:357:15>>*/ var
+      /*<<filename.ml:357: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:359:6>>*/ var
        _n_ =
          [0,
           name,
@@ -34852,8 +34307,7 @@
       if(20 <= counter)
         /*<<filename.ml:362:28>>*/ throw  /*<<filename.ml:362:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:362:41>>*/  /*<<filename.ml:362:41>>*/ var
-       counter$0 = counter + 1 | 0;
+       /*<<filename.ml:362:41>>*/ var counter$0 = counter + 1 | 0;
       counter = counter$0;
      }
     }
@@ -34868,7 +34322,7 @@
      perms = opt ? opt[1] : 448,
      counter = 0;
      /*<<filename.ml:368:4>>*/ for(;;){
-      /*<<filename.ml:368:15>>*/  /*<<filename.ml:368:15>>*/ var
+      /*<<filename.ml:368: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
@@ -34881,8 +34335,7 @@
       if(20 <= counter)
         /*<<filename.ml:373:28>>*/ throw  /*<<filename.ml:373:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:373:41>>*/  /*<<filename.ml:373:41>>*/ var
-       counter$0 = counter + 1 | 0;
+       /*<<filename.ml:373:41>>*/ var counter$0 = counter + 1 | 0;
       counter = counter$0;
      }
     }
@@ -34923,7 +34376,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     zero = [254, 0., 0.],
     one = [254, 1., 0.],
     i = [254, 0., 1.],
@@ -34949,14 +34402,14 @@
      /*<<complex.ml:36:2>>*/ if
      ( /*<<complex.ml:36:23>>*/ Math.abs(y[2])
       <=  /*<<complex.ml:36:5>>*/ Math.abs(y[1])){
-      /*<<complex.ml:37:12>>*/ var
+     var
        /*<<complex.ml:37:12>>*/ r = y[2] / y[1],
        /*<<complex.ml:38:12>>*/ d = y[1] + r * y[2];
       /*<<complex.ml:39:4>>*/ return [254,
              (x[1] + r * x[2]) / d,
              (x[2] - r * x[1]) / d];
     }
-     /*<<complex.ml:42:12>>*/ var
+    var
       /*<<complex.ml:42:12>>*/ r$0 = y[1] / y[2],
       /*<<complex.ml:43:12>>*/ d$0 = y[2] + r$0 * y[1];
      /*<<complex.ml:44:4>>*/ return [254,
@@ -34985,11 +34438,11 @@
    function sqrt(x){
      /*<<complex.ml:58:2>>*/ if(x[1] === 0. && x[2] === 0.)
       /*<<complex.ml:58:35>>*/ return _a_;
-     /*<<complex.ml:60:12>>*/ var
+    var
       /*<<complex.ml:60:12>>*/ r =  /*<<complex.ml:60:12>>*/ Math.abs(x[1]),
       /*<<complex.ml:60:35>>*/ i =  /*<<complex.ml:60:35>>*/ Math.abs(x[2]);
     if(i <= r)
-      /*<<complex.ml:63:16>>*/ var
+     var
        /*<<complex.ml:63:16>>*/ q = i / r,
       w =
          /*<<complex.ml:64:8>>*/ Math.sqrt(r)
@@ -34997,7 +34450,7 @@
           /*<<complex.ml:64:19>>*/ Math.sqrt
           (0.5 * (1. +  /*<<complex.ml:64:39>>*/ Math.sqrt(1. + q * q)));
     else
-      /*<<complex.ml:66:16>>*/ var
+     var
        /*<<complex.ml:66:16>>*/ q$0 = r / i,
       w =
          /*<<complex.ml:67:8>>*/ Math.sqrt(i)
@@ -35009,14 +34462,14 @@
      /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0];
     /*<<complex.ml:72:5>>*/ }
    function exp(x){
-     /*<<complex.ml:75:2>>*/  /*<<complex.ml:75:10>>*/ var
+     /*<<complex.ml:75:10>>*/ var
      e =  /*<<complex.ml:75:10>>*/ Math.exp(x[1]);
      /*<<complex.ml:75:22>>*/ return [254,
             e *  /*<<complex.ml:75:34>>*/ Math.cos(x[2]),
             e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])];
     /*<<complex.ml:75:64>>*/ }
    function log(x){
-     /*<<complex.ml:77:12>>*/  /*<<complex.ml:77:38>>*/ var
+     /*<<complex.ml:77:38>>*/ var
      _b_ =  /*<<complex.ml:77:38>>*/ Math.atan2(x[2], x[1]);
      /*<<complex.ml:77:12>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log(norm(x)),
@@ -35057,7 +34510,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Array = global_data.Stdlib__Array,
     init = Stdlib_Array[1],
@@ -35157,7 +34610,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_List = global_data.Stdlib__List,
     length = Stdlib_List[1],
@@ -35303,7 +34756,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Bytes = global_data.Stdlib__Bytes,
     make = Stdlib_Bytes[1],
@@ -35493,7 +34946,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_String = global_data.Stdlib__String,
     make = Stdlib_String[1],
@@ -35638,7 +35091,7 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Set = global_data.Stdlib__Set,
     Stdlib_Map = global_data.Stdlib__Map,
@@ -35652,7 +35105,7 @@
 //# unitInfo: Provides: Stdlib__StdLabels
 (function(globalThis){
    "use strict";
-   var runtime = globalThis.jsoo_runtime, Stdlib_StdLabels = [0];
+   var  /*<<?>>*/ runtime = globalThis.jsoo_runtime, Stdlib_StdLabels = [0];
    runtime.caml_register_global(0, Stdlib_StdLabels, "Stdlib__StdLabels");
    return;
    /*<<?>>*/ }
@@ -35665,25 +35118,27 @@
   (globalThis){
    "use strict";
    var
-    runtime = globalThis.jsoo_runtime,
-    caml_alloc_stack = runtime.caml_alloc_stack,
-    caml_continuation_use_noexc = runtime.caml_continuation_use_noexc,
-    caml_fresh_oo_id = runtime.caml_fresh_oo_id,
-    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
-    caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
-    caml_wrap_exception = runtime.caml_wrap_exception,
-    jsoo_effect_not_supported = runtime.jsoo_effect_not_supported;
-    /*<<?>>*/ function caml_call1(f, a0){
+     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+     /*<<?>>*/ caml_alloc_stack = runtime.caml_alloc_stack,
+     /*<<?>>*/ caml_continuation_use_noexc =
+      runtime.caml_continuation_use_noexc,
+     /*<<?>>*/ caml_fresh_oo_id = runtime.caml_fresh_oo_id,
+     /*<<?>>*/ caml_maybe_attach_backtrace =
+      runtime.caml_maybe_attach_backtrace,
+     /*<<?>>*/ caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
+     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
+     /*<<?>>*/ jsoo_effect_not_supported = runtime.jsoo_effect_not_supported;
+   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){
+   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]);
    }
-    /*<<effect.ml:18:12>>*/ var
+   var
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Printexc = global_data.Stdlib__Printexc,
@@ -35700,7 +35155,7 @@
    function printer(param){
      /*<<effect.ml:22:16>>*/ if(param[1] !== Unhandled)
       /*<<effect.ml:28:11>>*/ return 0;
-     /*<<effect.ml:25:12>>*/ var
+    var
      x = param[2],
       /*<<effect.ml:25:12>>*/ _i_ =
         /*<<effect.ml:25:12>>*/ caml_call1(Stdlib_Printexc[26], x),
@@ -35710,7 +35165,7 @@
     /*<<effect.ml:28:15>>*/ }
     /*<<effect.ml:30:2>>*/  /*<<effect.ml:30:2>>*/ caml_call1
     (Stdlib_Printexc[9], printer);
-    /*<<effect.ml:33:12>>*/  /*<<effect.ml:33:12>>*/ var
+    /*<<effect.ml:33:12>>*/ var
     Should_not_see_this =
       [248, "Stdlib.Effect.Should_not_see_this__", caml_fresh_oo_id(0)];
     /*<<effect.ml:34:8>>*/  /*<<effect.ml:34:8>>*/ caml_call2
@@ -35721,8 +35176,8 @@
     (Stdlib_Callback[2],
      "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
+   function continue$0(k, v){
+     /*<<effect.ml:62:11>>*/ var
      _h_ =  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc(k);
     function _g_(x){
       /*<<effect.ml:62:41>>*/ return x;
@@ -35731,7 +35186,7 @@
             ();
     /*<<effect.ml:62:65>>*/ }
    function discontinue(k, e){
-     /*<<effect.ml:65:4>>*/  /*<<effect.ml:65:11>>*/ var
+     /*<<effect.ml:65:11>>*/ var
      _f_ =  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc(k);
     function _e_(e){
       /*<<effect.ml:65:41>>*/ throw  /*<<effect.ml:65:41>>*/ caml_maybe_attach_backtrace
@@ -35741,7 +35196,7 @@
             ();
     /*<<effect.ml:65:71>>*/ }
    function discontinue_with_backtrace(k, e, bt){
-     /*<<effect.ml:68:4>>*/  /*<<effect.ml:68:11>>*/ var
+     /*<<effect.ml:68:11>>*/ var
      _d_ =  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc(k);
     function _c_(e){
       /*<<effect.ml:68:41>>*/ caml_restore_raw_backtrace(e, bt);
@@ -35753,7 +35208,7 @@
     /*<<effect.ml:69:27>>*/ }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:81:6>>*/  /*<<effect.ml:81:12>>*/ var
+      /*<<effect.ml:81:12>>*/ var
       match =  /*<<effect.ml:81:12>>*/ caml_call1(handler[3], eff);
      if(! match)
        /*<<effect.ml:85:16>>*/ return  /*<<effect.ml:85:16>>*/ jsoo_effect_not_supported
@@ -35762,7 +35217,7 @@
      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:87: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
@@ -35770,7 +35225,7 @@
     /*<<effect.ml:88:23>>*/ }
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:95:6>>*/  /*<<effect.ml:95:12>>*/ var
+      /*<<effect.ml:95:12>>*/ var
       match =  /*<<effect.ml:95:12>>*/ caml_call1(handler[1], eff);
      if(! match)
        /*<<effect.ml:99:16>>*/ return  /*<<effect.ml:99:16>>*/ jsoo_effect_not_supported
@@ -35779,7 +35234,7 @@
      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:101:12>>*/ var
      s =
         /*<<effect.ml:101:12>>*/ caml_alloc_stack
         (function(x){
@@ -35793,7 +35248,7 @@
      /*<<effect.ml:102:4>>*/ return  /*<<effect.ml:102:4>>*/ jsoo_effect_not_supported
             ();
     /*<<effect.ml:102:23>>*/ }
-    /*<<effect.ml:46:14>>*/ var
+   var
      /*<<effect.ml:46:14>>*/ Deep =
       [0,
        continue$0,
@@ -35805,7 +35260,7 @@
     cst_E = "E",
     cst_impossible = "impossible";
    function fiber(f){
-     /*<<effect.ml:124:4>>*/ var
+    var
       /*<<effect.ml:124: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)];
@@ -35813,7 +35268,7 @@
       /*<<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){
+    function error(param){
       /*<<effect.ml:127:18>>*/ return  /*<<effect.ml:127:18>>*/ caml_call1
              (Stdlib[2], cst_impossible);
      /*<<effect.ml:127:39>>*/ }
@@ -35823,7 +35278,7 @@
      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
+     /*<<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
@@ -35840,7 +35295,7 @@
     /*<<effect.ml:138:19>>*/ }
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:157:6>>*/  /*<<effect.ml:157:12>>*/ var
+      /*<<effect.ml:157:12>>*/ var
       match =  /*<<effect.ml:157:12>>*/ caml_call1(handler[3], eff);
      if(! match)
        /*<<effect.ml:161:16>>*/ return  /*<<effect.ml:161:16>>*/ jsoo_effect_not_supported
@@ -35850,7 +35305,7 @@
       /*<<effect.ml:160:10>>*/ return  /*<<effect.ml:160:10>>*/ caml_call1
              (f, k);
      /*<<effect.ml:161:42>>*/ }
-     /*<<effect.ml:164:16>>*/  /*<<effect.ml:164:16>>*/ var
+     /*<<effect.ml:164:16>>*/ var
      stack =
         /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
         (k, handler[1], handler[2], effc);

From 228f2e06da09c5e131b298b89557962b12edfedd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Wed, 16 Oct 2024 10:35:10 +0200
Subject: [PATCH 04/35] Adjust source mapping location for variable
 declarations

The best position is at the beginning of the expression after the `=`.
---
 compiler/lib/js_output.ml                    |   13 +-
 compiler/tests-compiler/gh747.ml             |  356 +-
 compiler/tests-compiler/js_parser_printer.ml |  152 +-
 compiler/tests-compiler/sourcemap.ml         |    2 +-
 compiler/tests-full/stdlib.cma.expected.js   | 9067 ++++++++++--------
 5 files changed, 5279 insertions(+), 4311 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 7ca44bd11d..0ad8349b98 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -1183,7 +1183,6 @@ struct
     | DeclIdent (i, None) -> ident f i
     | DeclIdent (i, Some (e, loc)) ->
         PP.start_group f 1;
-        output_debug_info f loc;
         PP.start_group f 0;
         ident f i;
         PP.space f;
@@ -1191,6 +1190,7 @@ struct
         PP.end_group f;
         PP.start_group f 1;
         PP.space f;
+        output_debug_info f loc;
         let p = (not in_) && contains ~in_:true Expression e in
         if p
         then (
@@ -1205,12 +1205,12 @@ struct
         PP.end_group f
     | DeclPattern (p, (e, loc)) ->
         PP.start_group f 1;
-        output_debug_info f loc;
         PP.start_group f 0;
         pattern f p;
         PP.space f;
         PP.string f "=";
         PP.end_group f;
+        output_debug_info f loc;
         PP.start_group f 1;
         PP.space f;
         let p = (not in_) && contains ~in_:true Expression e in
@@ -1246,11 +1246,11 @@ struct
     match e with
     | None -> binding f b
     | Some (e, loc) ->
-        output_debug_info f loc;
         binding f b;
         PP.space f;
         PP.string f "=";
         PP.space f;
+        output_debug_info f loc;
         expression AssignementExpression f e
 
   and binding f x =
@@ -1311,14 +1311,7 @@ struct
   and variable_declaration_list ?in_ kind close f = function
     | [] -> ()
     | [ x ] ->
-        let x, loc =
-          match x with
-          | DeclIdent (_, None) as x -> x, N
-          | DeclIdent (i, Some (e, loc)) -> DeclIdent (i, Some (e, N)), loc
-          | DeclPattern (p, (e, loc)) -> DeclPattern (p, (e, N)), loc
-        in
         PP.start_group f 1;
-        output_debug_info f loc;
         variable_declaration_kind f kind;
         PP.space f;
         variable_declaration f ?in_ x;
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 22699ec880..09974c75db 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -60,8 +60,8 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
       5:   (globalThis){
       6:    "use strict";
       7:    var
-      8:      /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-      9:      /*<<?>>*/ caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
+      8:     runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+      9:     caml_string_of_jsbytes =  /*<<?>>*/ runtime.caml_string_of_jsbytes;
      10:    function caml_call1(f, a0){
      11:     return (f.l >= 0 ? f.l : f.l = f.length) === 1
      12:             ? f(a0)
@@ -83,34 +83,39 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      28:     /*<<test.ml:5:0>>*/  /*<<test.ml:5:0>>*/ caml_call1
      29:     (Stdlib[46], greeting$0);
      30:    var
-     31:      /*<<test.ml:7:47>>*/ _a_ =
-     32:        /*<<test.ml:7:47>>*/ caml_call1(Stdlib_Random[5], 30),
-     33:      /*<<test.ml:7:34>>*/ unicodeLength =
-     34:        /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
-     35:        ( /*<<test.ml:7:34>>*/ caml_call2(Stdlib_String[1], _a_, 105)),
-     36:      /*<<test.ml:8:56>>*/ _b_ =
-     37:        /*<<test.ml:8:56>>*/ caml_call1(Stdlib[33], unicodeLength),
-     38:      /*<<test.ml:8:14>>*/ _c_ =
-     39:        /*<<test.ml:8:14>>*/ caml_call2
-     40:        (Stdlib[28],
-     41:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
-     42:         _b_);
-     43:     /*<<test.ml:8:0>>*/  /*<<test.ml:8:0>>*/ caml_call1(Stdlib[46], _c_);
-     44:    var
-     45:      /*<<test.ml:9:39>>*/ _d_ =
-     46:        /*<<test.ml:9:39>>*/ caml_call2(Stdlib_String[1], 1, 138),
-     47:      /*<<test.ml:9:14>>*/ _e_ =
-     48:        /*<<test.ml:9:14>>*/ caml_call2(Stdlib_String[1], 1, 201),
-     49:      /*<<test.ml:9:13>>*/ _f_ =
-     50:        /*<<test.ml:9:13>>*/ caml_call2(Stdlib[28], _e_, _d_);
-     51:     /*<<test.ml:9:0>>*/  /*<<test.ml:9:0>>*/ caml_call1(Stdlib[46], _f_);
-     52:    var Test = [0, greeting$0, unicodeLength];
-     53:    runtime.caml_register_global(8, Test, "Test");
-     54:    return;
-     55:    /*<<?>>*/ }
-     56:   (globalThis));
-     57:
-     58: //# sourceMappingURL=test.map
+     31:     _a_ =
+     32:        /*<<test.ml:7:47>>*/  /*<<test.ml:7:47>>*/ caml_call1
+     33:        (Stdlib_Random[5], 30),
+     34:     unicodeLength =
+     35:        /*<<test.ml:7:34>>*/  /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
+     36:        ( /*<<test.ml:7:34>>*/ caml_call2(Stdlib_String[1], _a_, 105)),
+     37:     _b_ =
+     38:        /*<<test.ml:8:56>>*/  /*<<test.ml:8:56>>*/ caml_call1
+     39:        (Stdlib[33], unicodeLength),
+     40:     _c_ =
+     41:        /*<<test.ml:8:14>>*/  /*<<test.ml:8:14>>*/ caml_call2
+     42:        (Stdlib[28],
+     43:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
+     44:         _b_);
+     45:     /*<<test.ml:8:0>>*/  /*<<test.ml:8:0>>*/ caml_call1(Stdlib[46], _c_);
+     46:    var
+     47:     _d_ =
+     48:        /*<<test.ml:9:39>>*/  /*<<test.ml:9:39>>*/ caml_call2
+     49:        (Stdlib_String[1], 1, 138),
+     50:     _e_ =
+     51:        /*<<test.ml:9:14>>*/  /*<<test.ml:9:14>>*/ caml_call2
+     52:        (Stdlib_String[1], 1, 201),
+     53:     _f_ =
+     54:        /*<<test.ml:9:13>>*/  /*<<test.ml:9:13>>*/ caml_call2
+     55:        (Stdlib[28], _e_, _d_);
+     56:     /*<<test.ml:9:0>>*/  /*<<test.ml:9:0>>*/ caml_call1(Stdlib[46], _f_);
+     57:    var Test = [0, greeting$0, unicodeLength];
+     58:    runtime.caml_register_global(8, Test, "Test");
+     59:    return;
+     60:    /*<<?>>*/ }
+     61:   (globalThis));
+     62:
+     63: //# sourceMappingURL=test.map
     |}]
 
 let%expect_test _ =
@@ -231,8 +236,8 @@ end
       5:   (globalThis){
       6:    "use strict";
       7:    var
-      8:      /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-      9:      /*<<?>>*/ caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
+      8:     runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+      9:     caml_string_of_jsbytes =  /*<<?>>*/ runtime.caml_string_of_jsbytes;
      10:    function caml_call2(f, a0, a1){
      11:     return (f.l >= 0 ? f.l : f.l = f.length) === 2
      12:             ? f(a0, a1)
@@ -253,148 +258,151 @@ end
      27:     cst = caml_string_of_jsbytes(""),
      28:     partial = [4, 0, 0, 0, [12, 45, [4, 0, 0, 0, 0]]],
      29:     Stdlib_Printf = global_data.Stdlib__Printf,
-     30:      /*<<test.ml:14:22>>*/ executable_name =
-     31:        /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name(0),
-     32:     os_type =  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config(0)[1],
-     33:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
-     34:     unix = runtime.caml_sys_const_ostype_unix(0),
-     35:     win32 = runtime.caml_sys_const_ostype_win32(0),
-     36:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
-     37:     max_array_length = runtime.caml_sys_const_max_wosize(0),
-     38:     max_floatarray_length = max_array_length / 2 | 0,
-     39:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
-     40:      /*<<test.ml:28:12>>*/ Unhandled =
-     41:       [248,
-     42:        caml_string_of_jsbytes("Test.Unhandled"),
-     43:        runtime.caml_fresh_oo_id(0)],
-     44:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
-     45:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
-     46:     cst_Raised_by_primitive_operat =
-     47:       caml_string_of_jsbytes("Raised by primitive operation at"),
-     48:     cst_Called_from = caml_string_of_jsbytes("Called from"),
-     49:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
-     50:     _a_ =
-     51:       [0,
-     52:        [2,
-     53:         0,
-     54:         [12,
-     55:          32,
-     56:          [2,
-     57:           0,
-     58:           [11,
-     59:            caml_string_of_jsbytes(' in file "'),
-     60:            [2,
-     61:             0,
-     62:             [12,
-     63:              34,
-     64:              [2,
-     65:               0,
-     66:               [11,
-     67:                caml_string_of_jsbytes(", line "),
-     68:                [4,
-     69:                 0,
+     30:     executable_name =
+     31:        /*<<test.ml:14:22>>*/  /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name
+     32:        (0),
+     33:     os_type =  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config(0)[1],
+     34:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
+     35:     unix = runtime.caml_sys_const_ostype_unix(0),
+     36:     win32 = runtime.caml_sys_const_ostype_win32(0),
+     37:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
+     38:     max_array_length = runtime.caml_sys_const_max_wosize(0),
+     39:     max_floatarray_length = max_array_length / 2 | 0,
+     40:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
+     41:     Unhandled =
+     42:        /*<<test.ml:28:12>>*/ [248,
+     43:        caml_string_of_jsbytes("Test.Unhandled"),
+     44:        runtime.caml_fresh_oo_id(0)],
+     45:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
+     46:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
+     47:     cst_Raised_by_primitive_operat =
+     48:       caml_string_of_jsbytes("Raised by primitive operation at"),
+     49:     cst_Called_from = caml_string_of_jsbytes("Called from"),
+     50:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
+     51:     _a_ =
+     52:       [0,
+     53:        [2,
+     54:         0,
+     55:         [12,
+     56:          32,
+     57:          [2,
+     58:           0,
+     59:           [11,
+     60:            caml_string_of_jsbytes(' in file "'),
+     61:            [2,
+     62:             0,
+     63:             [12,
+     64:              34,
+     65:              [2,
+     66:               0,
+     67:               [11,
+     68:                caml_string_of_jsbytes(", line "),
+     69:                [4,
      70:                 0,
      71:                 0,
-     72:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
-     73:        caml_string_of_jsbytes
-     74:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
-     75:     _b_ =
-     76:       [0,
-     77:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
-     78:        caml_string_of_jsbytes("%s unknown location")],
-     79:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
-     80:     _d_ =
-     81:       [0,
-     82:        [11,
-     83:         caml_string_of_jsbytes
-     84:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
-     85:         0],
-     86:        caml_string_of_jsbytes
-     87:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
-     88:    function format_backtrace_slot(pos, slot){
-     89:     function info(is_raise){
-     90:       /*<<test.ml:46:4>>*/ return is_raise
-     91:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     92:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
-     93:      /*<<test.ml:49:75>>*/ }
-     94:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     95:      var
-     96:       _h_ = slot[5],
-     97:       _i_ = slot[4],
-     98:       _j_ = slot[3],
-     99:       _k_ = slot[6] ? cst_inlined : cst,
-    100:       _l_ = slot[2],
-    101:       _m_ = slot[7],
-    102:        /*<<test.ml:59:14>>*/ _n_ = info(slot[1]);
-    103:       /*<<test.ml:58:6>>*/ return [0,
-    104:               /*<<test.ml:58:11>>*/ caml_call8
-    105:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)];
-    106:     }
-    107:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
-    108:      /*<<test.ml:56:51>>*/ var _o_ = info(0);
-    109:      /*<<test.ml:56:8>>*/ return [0,
-    110:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)];
-    111:     /*<<test.ml:61:52>>*/ }
-    112:    function print_exception_backtrace(outchan, backtrace){
-    113:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    114:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
-    115:              (Stdlib_Printf[1], outchan, _d_);
-    116:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
-    117:     if(_f_ >= 0){
-    118:      var i = _e_;
-    119:      for(;;){
-    120:        /*<<test.ml:70:14>>*/ var
-    121:        match = format_backtrace_slot(i, runtime.caml_check_bound(a, i)[1 + i]);
-    122:       if(match){
-    123:        var str = match[1];
-    124:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
-    125:         (Stdlib_Printf[1], outchan, _c_, str);
-    126:       }
-    127:        /*<<test.ml:69:6>>*/ var _g_ = i + 1 | 0;
-    128:       if(_f_ === i) break;
-    129:       i = _g_;
-    130:      }
-    131:     }
-    132:     return 0;
-    133:     /*<<test.ml:73:10>>*/ }
-    134:    function compare(left, right, e1, e2){
-    135:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    136:      var v1 = e1[1];
-    137:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
-    138:      var v2 = e2[1];
-    139:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
-    140:              (left, v1, v2);
-    141:     }
-    142:     var v1$0 = e1[1];
-    143:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
-    144:     var v2$0 = e2[1];
-    145:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
-    146:             (right, v1$0, v2$0);
-    147:     /*<<test.ml:81:24>>*/ }
-    148:    var
-    149:      /*<<test.ml:75:16>>*/ Either = [0, compare],
-    150:     Test =
-    151:       [0,
-    152:        executable_name,
-    153:        os_type,
-    154:        backend_type,
-    155:        0,
-    156:        32,
-    157:        32,
-    158:        unix,
-    159:        win32,
-    160:        cygwin,
-    161:        max_array_length,
-    162:        max_floatarray_length,
-    163:        max_string_length,
-    164:        Unhandled,
-    165:        format_backtrace_slot,
-    166:        print_exception_backtrace,
-    167:        Either];
-    168:    runtime.caml_register_global(12, Test, "Test");
-    169:    return;
-    170:    /*<<?>>*/ }
-    171:   (globalThis));
-    172:
-    173: //# sourceMappingURL=test.map
+     72:                 0,
+     73:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
+     74:        caml_string_of_jsbytes
+     75:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
+     76:     _b_ =
+     77:       [0,
+     78:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
+     79:        caml_string_of_jsbytes("%s unknown location")],
+     80:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
+     81:     _d_ =
+     82:       [0,
+     83:        [11,
+     84:         caml_string_of_jsbytes
+     85:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
+     86:         0],
+     87:        caml_string_of_jsbytes
+     88:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
+     89:    function format_backtrace_slot(pos, slot){
+     90:     function info(is_raise){
+     91:       /*<<test.ml:46:4>>*/ return is_raise
+     92:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
+     93:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
+     94:      /*<<test.ml:49:75>>*/ }
+     95:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
+     96:      var
+     97:       _h_ = slot[5],
+     98:       _i_ = slot[4],
+     99:       _j_ = slot[3],
+    100:       _k_ = slot[6] ? cst_inlined : cst,
+    101:       _l_ = slot[2],
+    102:       _m_ = slot[7],
+    103:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
+    104:       /*<<test.ml:58:6>>*/ return [0,
+    105:               /*<<test.ml:58:11>>*/ caml_call8
+    106:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)];
+    107:     }
+    108:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    109:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
+    110:      /*<<test.ml:56:8>>*/ return [0,
+    111:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)];
+    112:     /*<<test.ml:61:52>>*/ }
+    113:    function print_exception_backtrace(outchan, backtrace){
+    114:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    115:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
+    116:              (Stdlib_Printf[1], outchan, _d_);
+    117:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
+    118:     if(_f_ >= 0){
+    119:      var i = _e_;
+    120:      for(;;){
+    121:       var
+    122:        match =
+    123:           /*<<test.ml:70:14>>*/ format_backtrace_slot
+    124:           (i, runtime.caml_check_bound(a, i)[1 + i]);
+    125:       if(match){
+    126:        var str = match[1];
+    127:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
+    128:         (Stdlib_Printf[1], outchan, _c_, str);
+    129:       }
+    130:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
+    131:       if(_f_ === i) break;
+    132:       i = _g_;
+    133:      }
+    134:     }
+    135:     return 0;
+    136:     /*<<test.ml:73:10>>*/ }
+    137:    function compare(left, right, e1, e2){
+    138:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    139:      var v1 = e1[1];
+    140:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    141:      var v2 = e2[1];
+    142:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
+    143:              (left, v1, v2);
+    144:     }
+    145:     var v1$0 = e1[1];
+    146:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    147:     var v2$0 = e2[1];
+    148:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
+    149:             (right, v1$0, v2$0);
+    150:     /*<<test.ml:81:24>>*/ }
+    151:    var
+    152:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
+    153:     Test =
+    154:       [0,
+    155:        executable_name,
+    156:        os_type,
+    157:        backend_type,
+    158:        0,
+    159:        32,
+    160:        32,
+    161:        unix,
+    162:        win32,
+    163:        cygwin,
+    164:        max_array_length,
+    165:        max_floatarray_length,
+    166:        max_string_length,
+    167:        Unhandled,
+    168:        format_backtrace_slot,
+    169:        print_exception_backtrace,
+    170:        Either];
+    171:    runtime.caml_register_global(12, Test, "Test");
+    172:    return;
+    173:    /*<<?>>*/ }
+    174:   (globalThis));
+    175:
+    176: //# sourceMappingURL=test.map
     |}]
diff --git a/compiler/tests-compiler/js_parser_printer.ml b/compiler/tests-compiler/js_parser_printer.ml
index dd88d61aa0..b01aa1e3f2 100644
--- a/compiler/tests-compiler/js_parser_printer.ml
+++ b/compiler/tests-compiler/js_parser_printer.ml
@@ -104,14 +104,14 @@ let%expect_test "reserved words as fields" =
   |};
   [%expect
     {|
-    /*<<fake:2:4>>*/ x.debugger;
-    /*<<fake:3:4>>*/ x.catch;
-    /*<<fake:4:4>>*/ x.for;
-    /*<<fake:5:4>>*/ x.continue;
-    /*<<fake:6:10>>*/ var y = {debugger: 2};
-    /*<<fake:7:10>>*/ var y = {catch: 2};
-    /*<<fake:8:10>>*/ var y = {for: 2};
-    /*<<fake:9:10>>*/ var y = {continue: 2}; |}]
+     /*<<fake:2:4>>*/ x.debugger;
+     /*<<fake:3:4>>*/ x.catch;
+     /*<<fake:4:4>>*/ x.for;
+     /*<<fake:5:4>>*/ x.continue;
+    var y =  /*<<fake:6:10>>*/ {debugger: 2};
+    var y =  /*<<fake:7:10>>*/ {catch: 2};
+    var y =  /*<<fake:8:10>>*/ {for: 2};
+    var y =  /*<<fake:9:10>>*/ {continue: 2}; |}]
 
 let%expect_test "preserve number literals" =
   print
@@ -133,20 +133,20 @@ let%expect_test "preserve number literals" =
      var t = 1E+3; |};
   [%expect
     {|
-    /*<<fake:2:11>>*/ var x = 0xf_fff;
-    /*<<fake:3:11>>*/ var x = 0Xffff;
-    /*<<fake:4:11>>*/ var y = 0o7_1223;
-    /*<<fake:5:11>>*/ var y = 0O7123;
-    /*<<fake:6:11>>*/ var y = 0b1_1001;
-    /*<<fake:7:11>>*/ var y = 0B11001;
-    /*<<fake:8:11>>*/ var y = 071923;
-    /*<<fake:9:11>>*/ var y = 07123;
-    /*<<fake:10:11>>*/ var z = 0.0;
-    /*<<fake:11:11>>*/ var z = 0.;
-    /*<<fake:12:11>>*/ var t = 1.0e-3;
-    /*<<fake:13:11>>*/ var t = 1.0E+3;
-    /*<<fake:14:11>>*/ var t = 1e-3;
-    /*<<fake:15:11>>*/ var t = 1E+3; |}]
+    var x =  /*<<fake:2:11>>*/ 0xf_fff;
+    var x =  /*<<fake:3:11>>*/ 0Xffff;
+    var y =  /*<<fake:4:11>>*/ 0o7_1223;
+    var y =  /*<<fake:5:11>>*/ 0O7123;
+    var y =  /*<<fake:6:11>>*/ 0b1_1001;
+    var y =  /*<<fake:7:11>>*/ 0B11001;
+    var y =  /*<<fake:8:11>>*/ 071923;
+    var y =  /*<<fake:9:11>>*/ 07123;
+    var z =  /*<<fake:10:11>>*/ 0.0;
+    var z =  /*<<fake:11:11>>*/ 0.;
+    var t =  /*<<fake:12:11>>*/ 1.0e-3;
+    var t =  /*<<fake:13:11>>*/ 1.0E+3;
+    var t =  /*<<fake:14:11>>*/ 1e-3;
+    var t =  /*<<fake:15:11>>*/ 1E+3; |}]
 
 let%expect_test "preserve number literals in property_name" =
   print
@@ -157,8 +157,8 @@ let%expect_test "preserve number literals in property_name" =
  |};
   [%expect
     {|
-    /*<<fake:2:22>>*/ var number_as_key = {100000000000000000000: 2};
-    /*<<fake:3:22>>*/ var number_as_key = {100000000000000000000n: 2}; |}]
+    var number_as_key =  /*<<fake:2:22>>*/ {100000000000000000000: 2};
+    var number_as_key =  /*<<fake:3:22>>*/ {100000000000000000000n: 2}; |}]
 
 let%expect_test "ops" =
   print
@@ -232,23 +232,25 @@ let%expect_test "arrow" =
 
   [%expect
     {|
-    /*<<fake:2:10>>*/ var a = x=> /*<<fake:2:18>>*/ x + 2;
-    /*<<fake:3:10>>*/ var a = ()=> /*<<fake:3:19>>*/ 2;
-    /*<<fake:4:10>>*/ var a = x=> /*<<fake:4:20>>*/ x + 2;
-    /*<<fake:5:10>>*/ var a = (x, y)=> /*<<fake:5:22>>*/ x + y;
-    /*<<fake:7:10>>*/ var a = x=>{ /*<<fake:7:20>>*/ x + 2; /*<<fake:7:13>>*/ };
-    /*<<fake:8:10>>*/ var a = ()=>{ /*<<fake:8:21>>*/ 2; /*<<fake:8:13>>*/ };
-    /*<<fake:9:10>>*/ var a = x=>{ /*<<fake:9:22>>*/ x + 2; /*<<fake:9:13>>*/ };
-    /*<<fake:11:10>>*/ var
-    a = ( /*<<fake:11:16>>*/ x = 1 / 2)=> /*<<fake:11:28>>*/ x + 10;
-    /*<<fake:13:10>>*/ var
-    a = ( /*<<fake:13:16>>*/ x = /qwe/g)=> /*<<fake:13:30>>*/ x + 10;
-    /*<<fake:16:10>>*/ var
-    a = x=> /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y;
-    /*<<fake:17:10>>*/ var
-    a = x=> /*<<fake:17:17>>*/ y=> /*<<fake:17:23>>*/ x + y;
-    /*<<fake:19:10>>*/ var a = async x=> /*<<fake:19:23>>*/ y;
-    /*<<fake:20:10>>*/ var a = async (a, b)=> /*<<fake:20:27>>*/ a + b; |}]
+    var a =  /*<<fake:2:10>>*/ x=> /*<<fake:2:18>>*/ x + 2;
+    var a =  /*<<fake:3:10>>*/ ()=> /*<<fake:3:19>>*/ 2;
+    var a =  /*<<fake:4:10>>*/ x=> /*<<fake:4:20>>*/ x + 2;
+    var a =  /*<<fake:5:10>>*/ (x, y)=> /*<<fake:5:22>>*/ x + y;
+    var a =  /*<<fake:7:10>>*/ x=>{ /*<<fake:7:20>>*/ x + 2; /*<<fake:7:13>>*/ };
+    var a =  /*<<fake:8:10>>*/ ()=>{ /*<<fake:8:21>>*/ 2; /*<<fake:8:13>>*/ };
+    var a =  /*<<fake:9:10>>*/ x=>{ /*<<fake:9:22>>*/ x + 2; /*<<fake:9:13>>*/ };
+    var
+     a =
+        /*<<fake:11:10>>*/ (x =  /*<<fake:11:16>>*/ 1 / 2)=> /*<<fake:11:28>>*/ x + 10;
+    var
+     a =
+        /*<<fake:13:10>>*/ (x =  /*<<fake:13:16>>*/ /qwe/g)=> /*<<fake:13:30>>*/ x + 10;
+    var
+     a =  /*<<fake:16:10>>*/ x=> /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y;
+    var
+     a =  /*<<fake:17:10>>*/ x=> /*<<fake:17:17>>*/ y=> /*<<fake:17:23>>*/ x + y;
+    var a =  /*<<fake:19:10>>*/ async x=> /*<<fake:19:23>>*/ y;
+    var a =  /*<<fake:20:10>>*/ async (a, b)=> /*<<fake:20:27>>*/ a + b; |}]
 
 let%expect_test "trailing comma" =
   (* GH#989 *)
@@ -284,10 +286,10 @@ function rehb_shape(_face /*: fk_face */, text /*: string */) {
       /*<<fake:7:2>>*/ return undefined;
      /*<<fake:8:0>>*/ }
     function rehb_shape(_face, text){
-      /*<<fake:13:10>>*/ var str =  /*<<fake:13:12>>*/ caml_to_js_string(text);
-      /*<<fake:14:10>>*/ var
+     var str =  /*<<fake:13:10>>*/  /*<<fake:13:12>>*/ caml_to_js_string(text);
+     var
       ret =
-         /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split("").map
+         /*<<fake:14:10>>*/  /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split("").map
          (function mapper(_char){
             /*<<fake:15:6>>*/ return [0, 0, 0];
            /*<<fake:14:30>>*/ });
@@ -353,13 +355,14 @@ let%expect_test "async/await" =
   [%expect
     {|
     async function compile(src){
-      /*<<fake:4:31>>*/ const
+     const
       glslangModule =
-        await
+         /*<<fake:4:31>>*/ await
          /*<<fake:4:39>>*/ import
          ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
-      /*<<fake:7:25>>*/ const
-      glslang = await  /*<<fake:7:33>>*/ glslangModule.default();
+     const
+      glslang =
+         /*<<fake:7:25>>*/ await  /*<<fake:7:33>>*/ glslangModule.default();
       /*<<fake:8:11>>*/ return  /*<<fake:8:18>>*/ glslang.compileGLSL
              (src, "compute");
      /*<<fake:2:9>>*/ }
@@ -392,16 +395,18 @@ let%expect_test "get/set property" =
 
   [%expect
     {|
-    /*<<fake:2:11>>*/ var
-    x =
-      {get prop(){ /*<<fake:3:20>>*/ return 3; /*<<fake:3:7>>*/ },
-       set prop(x){ /*<<fake:4:21>>*/ return x == 2; /*<<fake:4:7>>*/ },
-       a: 4,
-       b(){ /*<<fake:6:13>>*/ return 5; /*<<fake:6:7>>*/ },
-       * e(){ /*<<fake:7:14>>*/ return 5; /*<<fake:7:7>>*/ },
-       async e(){ /*<<fake:8:19>>*/ return 5; /*<<fake:8:7>>*/ },
-       async* e(){ /*<<fake:9:20>>*/ return 5; /*<<fake:9:7>>*/ },
-       ["field" + 1]: 3}; |}]
+    var
+     x =
+        /*<<fake:2:11>>*/ {get prop(){
+          /*<<fake:3:20>>*/ return 3;
+         /*<<fake:3:7>>*/ },
+        set prop(x){ /*<<fake:4:21>>*/ return x == 2; /*<<fake:4:7>>*/ },
+        a: 4,
+        b(){ /*<<fake:6:13>>*/ return 5; /*<<fake:6:7>>*/ },
+        * e(){ /*<<fake:7:14>>*/ return 5; /*<<fake:7:7>>*/ },
+        async e(){ /*<<fake:8:19>>*/ return 5; /*<<fake:8:7>>*/ },
+        async* e(){ /*<<fake:9:20>>*/ return 5; /*<<fake:9:7>>*/ },
+        ["field" + 1]: 3}; |}]
 
 let%expect_test "assignment pattern" =
   (* GH#1017 *)
@@ -431,10 +436,10 @@ let%expect_test "assignment pattern" =
   [%expect
     {|
     var x, y, rest;
-     /*<<fake:3:14>>*/ var [x, y] = [1, 2];
-     /*<<fake:4:22>>*/ var [x, y, ...rest] = [1, 2, ...o];
-     /*<<fake:6:14>>*/ var {x, y} = {x: 1, y: 2};
-     /*<<fake:7:22>>*/ var {x, y, ...rest} = {x: 1, y: 2, ...o};
+    var [x, y] = /*<<fake:3:14>>*/  [1, 2];
+    var [x, y, ...rest] = /*<<fake:4:22>>*/  [1, 2, ...o];
+    var {x, y} = /*<<fake:6:14>>*/  {x: 1, y: 2};
+    var {x, y, ...rest} = /*<<fake:7:22>>*/  {x: 1, y: 2, ...o};
      /*<<fake:9:4>>*/ [x, y] = [1, 2];
      /*<<fake:10:4>>*/ [x, y, ...rest] = [1, 2];
      /*<<fake:12:4>>*/ ({x, y} = {x: 1, y: 2});
@@ -477,11 +482,12 @@ let%expect_test "string template" =
 
   [%expect
     {|
-    /*<<fake:2:10>>*/ var s = `asdte`;
-    /*<<fake:3:10>>*/ var s = `asd ${test} te`;
-    /*<<fake:5:10>>*/ var s =  /*<<fake:5:12>>*/ tag`asd ${test} te`;
-    /*<<fake:7:10>>*/ var
-    s = `asd ${ /*<<fake:7:20>>*/ f(`space ${test} space`, 32)} te`; |}]
+    var s =  /*<<fake:2:10>>*/ `asdte`;
+    var s =  /*<<fake:3:10>>*/ `asd ${test} te`;
+    var s =  /*<<fake:5:10>>*/  /*<<fake:5:12>>*/ tag`asd ${test} te`;
+    var
+     s =
+        /*<<fake:7:10>>*/ `asd ${ /*<<fake:7:20>>*/ f(`space ${test} space`, 32)} te`; |}]
 
 let%expect_test "from keyword" =
   (* GH#1017 *)
@@ -517,7 +523,7 @@ let%expect_test "new.target" =
  |};
 
   [%expect {|
-    /*<<fake:2:10>>*/ var s = new.target; |}]
+    var s =  /*<<fake:2:10>>*/ new.target; |}]
 
 let%expect_test "super" =
   (* GH#1017 *)
@@ -559,19 +565,19 @@ class x extends p {
          /*<<fake:4:6>>*/  /*<<fake:4:6>>*/ super(a, b, c);
         /*<<fake:3:4>>*/ }
        foo(){
-         /*<<fake:8:12>>*/ var s = super[d];
-         /*<<fake:9:12>>*/ var s = super.d;
+        var s =  /*<<fake:8:12>>*/ super[d];
+        var s =  /*<<fake:9:12>>*/ super.d;
         /*<<fake:6:4>>*/ }
        static
        bar(){
-         /*<<fake:14:12>>*/ var s = super[d];
-         /*<<fake:15:12>>*/ var s = super.d;
+        var s =  /*<<fake:14:12>>*/ super[d];
+        var s =  /*<<fake:15:12>>*/ super.d;
         /*<<fake:12:11>>*/ }
        x =  /*<<fake:17:5>>*/ 3;
        static y =  /*<<fake:19:12>>*/ 5;
        #z =  /*<<fake:21:6>>*/ 6;
        static #t =  /*<<fake:23:13>>*/ 2;
-       static { /*<<fake:25:18>>*/ var x = 3;}
+       static {var x =  /*<<fake:25:18>>*/ 3;}
      } |}]
 
 let%expect_test "ite" =
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 9655a9bdbd..ac26b7f7dd 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -83,7 +83,7 @@ let%expect_test _ =
        11:   (globalThis));
        12:
        13: //# sourceMappingURL=test.map
-      null -> 5:3
+      null -> 5:17
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 5baee214fb..ee375f9bfe 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -3,7 +3,7 @@
 (function
   (globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function erase_rel(param){
      /*<<?>>*/ if(typeof param === "number")
       /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0;
@@ -308,37 +308,37 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_false$0 = "false",
-     /*<<?>>*/ cst_true$0 = "true",
-     /*<<?>>*/ caml_atomic_cas = runtime.caml_atomic_cas,
-     /*<<?>>*/ caml_atomic_load = runtime.caml_atomic_load,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_float_of_string = runtime.caml_float_of_string,
-     /*<<?>>*/ caml_int64_float_of_bits = runtime.caml_int64_float_of_bits,
-     /*<<?>>*/ caml_int_of_string = runtime.caml_int_of_string,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-     /*<<?>>*/ caml_ml_channel_size = runtime.caml_ml_channel_size,
-     /*<<?>>*/ caml_ml_channel_size_64 = runtime.caml_ml_channel_size_64,
-     /*<<?>>*/ caml_ml_close_channel = runtime.caml_ml_close_channel,
-     /*<<?>>*/ caml_ml_flush = runtime.caml_ml_flush,
-     /*<<?>>*/ caml_ml_input = runtime.caml_ml_input,
-     /*<<?>>*/ caml_ml_input_char = runtime.caml_ml_input_char,
-     /*<<?>>*/ caml_ml_open_descriptor_in = runtime.caml_ml_open_descriptor_in,
-     /*<<?>>*/ caml_ml_open_descriptor_out =
-      runtime.caml_ml_open_descriptor_out,
-     /*<<?>>*/ caml_ml_output = runtime.caml_ml_output,
-     /*<<?>>*/ caml_ml_output_bytes = runtime.caml_ml_output_bytes,
-     /*<<?>>*/ caml_ml_output_char = runtime.caml_ml_output_char,
-     /*<<?>>*/ caml_ml_set_binary_mode = runtime.caml_ml_set_binary_mode,
-     /*<<?>>*/ caml_ml_set_channel_name = runtime.caml_ml_set_channel_name,
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
-     /*<<?>>*/ caml_string_concat = runtime.caml_string_concat,
-     /*<<?>>*/ caml_string_of_bytes = runtime.caml_string_of_bytes,
-     /*<<?>>*/ caml_sys_open = runtime.caml_sys_open,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_false$0 =  /*<<?>>*/ "false",
+    cst_true$0 =  /*<<?>>*/ "true",
+    caml_atomic_cas =  /*<<?>>*/ runtime.caml_atomic_cas,
+    caml_atomic_load =  /*<<?>>*/ runtime.caml_atomic_load,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_float_of_string =  /*<<?>>*/ runtime.caml_float_of_string,
+    caml_int64_float_of_bits =  /*<<?>>*/ runtime.caml_int64_float_of_bits,
+    caml_int_of_string =  /*<<?>>*/ runtime.caml_int_of_string,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
+    caml_ml_channel_size =  /*<<?>>*/ runtime.caml_ml_channel_size,
+    caml_ml_channel_size_64 =  /*<<?>>*/ runtime.caml_ml_channel_size_64,
+    caml_ml_close_channel =  /*<<?>>*/ runtime.caml_ml_close_channel,
+    caml_ml_flush =  /*<<?>>*/ runtime.caml_ml_flush,
+    caml_ml_input =  /*<<?>>*/ runtime.caml_ml_input,
+    caml_ml_input_char =  /*<<?>>*/ runtime.caml_ml_input_char,
+    caml_ml_open_descriptor_in =  /*<<?>>*/ runtime.caml_ml_open_descriptor_in,
+    caml_ml_open_descriptor_out =
+       /*<<?>>*/ runtime.caml_ml_open_descriptor_out,
+    caml_ml_output =  /*<<?>>*/ runtime.caml_ml_output,
+    caml_ml_output_bytes =  /*<<?>>*/ runtime.caml_ml_output_bytes,
+    caml_ml_output_char =  /*<<?>>*/ runtime.caml_ml_output_char,
+    caml_ml_set_binary_mode =  /*<<?>>*/ runtime.caml_ml_set_binary_mode,
+    caml_ml_set_channel_name =  /*<<?>>*/ runtime.caml_ml_set_channel_name,
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
+    caml_string_concat =  /*<<?>>*/ runtime.caml_string_concat,
+    caml_string_of_bytes =  /*<<?>>*/ runtime.caml_string_of_bytes,
+    caml_sys_open =  /*<<?>>*/ runtime.caml_sys_open,
+    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)
@@ -372,8 +372,11 @@
      /*<<stdlib.ml:30:20>>*/ throw  /*<<stdlib.ml:30:20>>*/ caml_maybe_attach_backtrace
            ([0, Invalid_argument, s], 1);
     /*<<stdlib.ml:30:45>>*/ }
-    /*<<stdlib.ml:32:0>>*/ var
-    Exit = [248, "Stdlib.Exit", runtime.caml_fresh_oo_id(0)];
+   var
+    Exit =
+       /*<<stdlib.ml:32:0>>*/ [248,
+       "Stdlib.Exit",
+       runtime.caml_fresh_oo_id(0)];
    function min(x, y){
      /*<<stdlib.ml:74:14>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
              (x, y)
@@ -393,23 +396,23 @@
      /*<<stdlib.ml:104:13>>*/ return x ^ -1;
     /*<<stdlib.ml:104:24>>*/ }
    var
-     /*<<stdlib.ml:180:2>>*/ infinity =
-       /*<<stdlib.ml:180:2>>*/ caml_int64_float_of_bits
+    infinity =
+       /*<<stdlib.ml:180:2>>*/  /*<<stdlib.ml:180:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 32752)),
-     /*<<stdlib.ml:182:2>>*/ neg_infinity =
-       /*<<stdlib.ml:182:2>>*/ caml_int64_float_of_bits
+    neg_infinity =
+       /*<<stdlib.ml:182:2>>*/  /*<<stdlib.ml:182:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 65520)),
-     /*<<stdlib.ml:184:2>>*/ nan =
-       /*<<stdlib.ml:184:2>>*/ caml_int64_float_of_bits
+    nan =
+       /*<<stdlib.ml:184:2>>*/  /*<<stdlib.ml:184:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(1, 0, 32760)),
-     /*<<stdlib.ml:186:2>>*/ max_float =
-       /*<<stdlib.ml:186:2>>*/ caml_int64_float_of_bits
+    max_float =
+       /*<<stdlib.ml:186:2>>*/  /*<<stdlib.ml:186:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 32751)),
-     /*<<stdlib.ml:188:2>>*/ min_float =
-       /*<<stdlib.ml:188:2>>*/ caml_int64_float_of_bits
+    min_float =
+       /*<<stdlib.ml:188:2>>*/  /*<<stdlib.ml:188:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 16)),
-     /*<<stdlib.ml:190:2>>*/ epsilon_float =
-       /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
+    epsilon_float =
+       /*<<stdlib.ml:190:2>>*/  /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 15536)),
     symbol_concat = caml_string_concat,
     cst_char_of_int = "char_of_int",
@@ -441,8 +444,10 @@
     /*<<stdlib.ml:266:19>>*/ }
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
-      /*<<stdlib.ml:272:6>>*/ var
-      _w_ = [0,  /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
+     var
+      _w_ =
+         /*<<stdlib.ml:272:6>>*/ [0,
+          /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
       /*<<stdlib.ml:272:6>>*/ return _w_;
     }
     catch(_x_){
@@ -455,14 +460,16 @@
     var l = caml_ml_string_length(s1), i = 0;
      /*<<stdlib.ml:280:4>>*/ for(;;){
      if(l <= i) return s1 + ".";
-      /*<<stdlib.ml:281:10>>*/ var
-      match =  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get(s1, i);
+     var
+      match =
+         /*<<stdlib.ml:281:10>>*/  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get
+         (s1, i);
      a:
      {
       if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
        /*<<stdlib.ml:279:2>>*/ return s1;
      }
-      /*<<stdlib.ml:282:26>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<stdlib.ml:282:26>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<stdlib.ml:285:8>>*/ }
@@ -472,8 +479,10 @@
     /*<<stdlib.ml:287:66>>*/ }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
-      /*<<stdlib.ml:293:6>>*/ var
-      _t_ = [0,  /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
+     var
+      _t_ =
+         /*<<stdlib.ml:293:6>>*/ [0,
+          /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
       /*<<stdlib.ml:293:6>>*/ return _t_;
     }
     catch(_u_){
@@ -491,7 +500,7 @@
     var
      tl = match[2],
      h3 = match[1],
-      /*<<stdlib.ml:303:40>>*/ block = [0, h3, 24029],
+     block =  /*<<stdlib.ml:303:40>>*/ [0, h3, 24029],
      dst = block,
      offset = 1,
      l1$0 = tl;
@@ -504,7 +513,7 @@
         var
          tl$0 = match$0[2],
          h3$0 = match$0[1],
-          /*<<stdlib.ml:303:40>>*/ dst$0 = [0, h3$0, 24029];
+         dst$0 =  /*<<stdlib.ml:303:40>>*/ [0, h3$0, 24029];
         dst[1 + offset] = [0, h1$0, [0, h2$0, dst$0]];
         dst = dst$0;
         offset = 1;
@@ -522,12 +531,15 @@
     }
     /*<<stdlib.ml:303:55>>*/ }
    var
-     /*<<stdlib.ml:314:12>>*/ stdin =
-       /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in(0),
-     /*<<stdlib.ml:315:13>>*/ stdout =
-       /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out(1),
-     /*<<stdlib.ml:316:13>>*/ stderr =
-       /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out(2),
+    stdin =
+       /*<<stdlib.ml:314:12>>*/  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in
+       (0),
+    stdout =
+       /*<<stdlib.ml:315:13>>*/  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out
+       (1),
+    stderr =
+       /*<<stdlib.ml:316:13>>*/  /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out
+       (2),
     _c_ = [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
     _d_ = [0, 1, [0, 3, [0, 4, [0, 6, 0]]]],
     cst_output = "output",
@@ -537,9 +549,9 @@
     cst_input = "input",
     cst_really_input = "really_input";
    function open_out_gen(mode, perm, name){
-     /*<<stdlib.ml:331:10>>*/ var
+    var
      c =
-        /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
+        /*<<stdlib.ml:331:10>>*/  /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
         ( /*<<stdlib.ml:331:29>>*/ caml_sys_open(name, mode, perm));
      /*<<stdlib.ml:332:2>>*/  /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name
      (c, name);
@@ -604,16 +616,18 @@
     }
     catch(_n_){}
      /*<<stdlib.ml:395:2>>*/ try{
-      /*<<stdlib.ml:395:7>>*/ var
-      _l_ =  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel(oc);
+     var
+      _l_ =
+         /*<<stdlib.ml:395:7>>*/  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel
+         (oc);
       /*<<stdlib.ml:395:7>>*/ return _l_;
     }
     catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0;}
     /*<<stdlib.ml:395:41>>*/ }
    function open_in_gen(mode, perm, name){
-     /*<<stdlib.ml:405:10>>*/ var
+    var
      c =
-        /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
+        /*<<stdlib.ml:405:10>>*/  /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
         ( /*<<stdlib.ml:405:28>>*/ caml_sys_open(name, mode, perm));
      /*<<stdlib.ml:406:2>>*/  /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name
      (c, name);
@@ -636,8 +650,10 @@
     var ofs$0 = ofs, len$0 = len;
      /*<<stdlib.ml:426:2>>*/ for(;;){
      if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
-      /*<<stdlib.ml:427:12>>*/ var
-      r =  /*<<stdlib.ml:427:12>>*/ caml_ml_input(ic, s, ofs$0, len$0);
+     var
+      r =
+         /*<<stdlib.ml:427:12>>*/  /*<<stdlib.ml:427:12>>*/ caml_ml_input
+         (ic, s, ofs$0, len$0);
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
        /*<<stdlib.ml:429:9>>*/ throw  /*<<stdlib.ml:429:9>>*/ caml_maybe_attach_backtrace
              (End_of_file, 1);
@@ -653,8 +669,10 @@
      /*<<stdlib.ml:435:7>>*/ return invalid_arg(cst_really_input);
     /*<<stdlib.ml:436:39>>*/ }
    function really_input_string(ic, len){
-     /*<<stdlib.ml:439:10>>*/ var
-     s =  /*<<stdlib.ml:439:10>>*/ caml_create_bytes(len);
+    var
+     s =
+        /*<<stdlib.ml:439:10>>*/  /*<<stdlib.ml:439:10>>*/ caml_create_bytes
+        (len);
      /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
     return caml_string_of_bytes(s);
     /*<<stdlib.ml:441:26>>*/ }
@@ -666,8 +684,9 @@
       var
        tl = param$0[2],
        hd = param$0[1],
-        /*<<stdlib.ml:449:6>>*/ len =
-          /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length(hd);
+       len =
+          /*<<stdlib.ml:449:6>>*/  /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length
+          (hd);
        /*<<stdlib.ml:450:6>>*/  /*<<stdlib.ml:450:6>>*/ runtime.caml_blit_bytes
        (hd, 0, buf, pos$0 - len | 0, len);
       var pos$1 = pos$0 - len | 0;
@@ -677,8 +696,10 @@
     }
     var accu = 0, len = 0;
      /*<<stdlib.ml:453:4>>*/ for(;;){
-      /*<<stdlib.ml:453:12>>*/ var
-      n =  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line(chan);
+     var
+      n =
+         /*<<stdlib.ml:453:12>>*/  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line
+         (chan);
       /*<<stdlib.ml:454:4>>*/ if(0 === n){
       if(! accu)
         /*<<stdlib.ml:456:14>>*/ throw  /*<<stdlib.ml:456:14>>*/ caml_maybe_attach_backtrace
@@ -690,19 +711,23 @@
      }
      else{
       if(0 >= n){
-        /*<<stdlib.ml:467:16>>*/ var
-        beg =  /*<<stdlib.ml:467:16>>*/ caml_create_bytes(- n | 0);
+       var
+        beg =
+           /*<<stdlib.ml:467:16>>*/  /*<<stdlib.ml:467:16>>*/ caml_create_bytes
+           (- n | 0);
         /*<<stdlib.ml:468:12>>*/  /*<<stdlib.ml:468:12>>*/ caml_ml_input
         (chan, beg, 0, - n | 0);
        var
         len$1 = len - n | 0,
-         /*<<stdlib.ml:469:11>>*/ accu$0 = [0, beg, accu];
+        accu$0 =  /*<<stdlib.ml:469:11>>*/ [0, beg, accu];
        accu = accu$0;
        len = len$1;
        continue;
       }
-       /*<<stdlib.ml:459:16>>*/ var
-       res =  /*<<stdlib.ml:459:16>>*/ caml_create_bytes(n - 1 | 0);
+      var
+       res =
+          /*<<stdlib.ml:459:16>>*/  /*<<stdlib.ml:459:16>>*/ caml_create_bytes
+          (n - 1 | 0);
        /*<<stdlib.ml:460:13>>*/  /*<<stdlib.ml:460:13>>*/ caml_ml_input
        (chan, res, 0, n - 1 | 0);
        /*<<stdlib.ml:461:13>>*/  /*<<stdlib.ml:461:13>>*/ caml_ml_input_char
@@ -724,8 +749,10 @@
     /*<<stdlib.ml:471:39>>*/ }
    function close_in_noerr(ic){
      /*<<stdlib.ml:480:24>>*/ try{
-      /*<<stdlib.ml:480:29>>*/ var
-      _i_ =  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel(ic);
+     var
+      _i_ =
+         /*<<stdlib.ml:480:29>>*/  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel
+         (ic);
       /*<<stdlib.ml:480:29>>*/ return _i_;
     }
     catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0;}
@@ -822,13 +849,14 @@
              (CamlinternalFormatBasics[3], fmt1, fmt2),
             str1 + s2];
    }
-    /*<<stdlib.ml:559:20>>*/ var exit_function = [0, flush_all];
+   var exit_function =  /*<<stdlib.ml:559:20>>*/ [0, flush_all];
    function at_exit(f){
      /*<<stdlib.ml:563:2>>*/ for(;;){
      var
-       /*<<stdlib.ml:563:21>>*/ f_yet_to_run = [0, 1],
-       /*<<stdlib.ml:564:2>>*/ old_exit =
-         /*<<stdlib.ml:564:2>>*/ caml_atomic_load(exit_function);
+      f_yet_to_run =  /*<<stdlib.ml:563:21>>*/ [0, 1],
+      old_exit =
+         /*<<stdlib.ml:564:2>>*/  /*<<stdlib.ml:564:2>>*/ caml_atomic_load
+         (exit_function);
      let f_yet_to_run$0 = f_yet_to_run, old_exit$0 = old_exit;
      var
       new_exit =
@@ -839,13 +867,13 @@
                  (old_exit$0, 0);
          /*<<stdlib.ml:567:15>>*/ },
       success = caml_atomic_cas(exit_function, old_exit, new_exit),
-       /*<<stdlib.ml:570:2>>*/ _g_ = 1 - success;
+      _g_ =  /*<<stdlib.ml:570:2>>*/ 1 - success;
      if(! _g_)  /*<<stdlib.ml:570:2>>*/ return _g_;
     }
     /*<<stdlib.ml:570:31>>*/ }
-    /*<<stdlib.ml:572:30>>*/ var
+   var
     do_domain_local_at_exit =
-      [0,
+       /*<<stdlib.ml:572:30>>*/ [0,
        function(param){
          /*<<stdlib.ml:572:45>>*/ return 0;
         /*<<stdlib.ml:572:47>>*/ }];
@@ -983,7 +1011,7 @@
 //# unitInfo: Provides: Stdlib__Either
 (function(globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -1111,16 +1139,17 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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],
     Stdlib = global_data.Stdlib,
-     /*<<sys.ml.in:36:22>>*/ executable_name =
-       /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name(0),
+    executable_name =
+       /*<<sys.ml.in:36:22>>*/  /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name
+       (0),
     os_type =  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config(0)[1],
     backend_type = [0, "js_of_ocaml"],
     unix = runtime.caml_sys_const_ostype_unix(0),
@@ -1131,8 +1160,10 @@
     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>>*/ var
-      _d_ = [0,  /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
+     var
+      _d_ =
+         /*<<sys.ml.in:60:6>>*/ [0,
+          /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
       /*<<sys.ml.in:60:6>>*/ return _d_;
     }
     catch(_e_){
@@ -1141,17 +1172,20 @@
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<sys.ml.in:61:24>>*/ }
-    /*<<sys.ml.in:72:18>>*/ var interactive = [0, 0];
+   var interactive =  /*<<sys.ml.in:72:18>>*/ [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>>*/ var
-    Break = [248, "Stdlib.Sys.Break", runtime.caml_fresh_oo_id(0)];
+   var
+    Break =
+       /*<<sys.ml.in:113:0>>*/ [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];}
    var
-     /*<<sys.ml.in:155:21>>*/ Immediate64 = [0, Make],
+    Immediate64 =  /*<<sys.ml.in:155:21>>*/ [0, Make],
     Stdlib_Sys =
       [0,
        executable_name,
@@ -1216,10 +1250,10 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_Obj_extension_constructor$1 = "Obj.extension_constructor",
-     /*<<?>>*/ caml_check_bound = runtime.caml_check_bound,
-     /*<<?>>*/ caml_obj_tag = runtime.caml_obj_tag;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_Obj_extension_constructor$1 =  /*<<?>>*/ "Obj.extension_constructor",
+    caml_check_bound =  /*<<?>>*/ runtime.caml_check_bound,
+    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)
@@ -1271,7 +1305,7 @@
      /*<<obj.ml:91:5>>*/ return slot[2];
     /*<<obj.ml:91:30>>*/ }
    var
-     /*<<obj.ml:72:0>>*/ Extension_constructor = [0, of_val, name, id],
+    Extension_constructor =  /*<<obj.ml:72:0>>*/ [0, of_val, name, id],
     max_ephe_length = Stdlib_Sys[13] - 2 | 0,
     cst_Obj_Ephemeron_create = "Obj.Ephemeron.create",
     cst_Obj_Ephemeron_get_key = "Obj.Ephemeron.get_key",
@@ -1397,7 +1431,7 @@
 (function
   (globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -1409,13 +1443,15 @@
     cst_Id = "Id",
     _a_ = [0, 0];
    function make(param){
-     /*<<type.ml:32:43>>*/ var
-     Id = [248, cst_Id, runtime.caml_fresh_oo_id(0)];
+    var
+     Id =  /*<<type.ml:32:43>>*/ [248, cst_Id, runtime.caml_fresh_oo_id(0)];
      /*<<type.ml:32:12>>*/ return [0, Id];
     /*<<type.ml:32:57>>*/ }
    function uid(A){
-     /*<<type.ml:35:33>>*/ var
-     _b_ =  /*<<type.ml:35:33>>*/ caml_call1(Stdlib_Obj[22][1], A[1]);
+    var
+     _b_ =
+        /*<<type.ml:35:33>>*/  /*<<type.ml:35:33>>*/ caml_call1
+        (Stdlib_Obj[22][1], A[1]);
      /*<<type.ml:35:33>>*/ return  /*<<type.ml:35:33>>*/ caml_call1
             (Stdlib_Obj[22][3], _b_);
     /*<<type.ml:35:72>>*/ }
@@ -1423,7 +1459,7 @@
      /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0;
     /*<<type.ml:40:50>>*/ }
    var
-     /*<<type.ml:22:12>>*/ Id = [0, make, uid, provably_equal],
+    Id =  /*<<type.ml:22:12>>*/ [0, make, uid, provably_equal],
     Stdlib_Type = [0, Id];
    runtime.caml_register_global(3, Stdlib_Type, "Stdlib__Type");
    return;
@@ -1434,9 +1470,9 @@
 (function(globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_atomic_exchange = runtime.caml_atomic_exchange,
-     /*<<?>>*/ caml_atomic_fetch_add = runtime.caml_atomic_fetch_add;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_atomic_exchange =  /*<<?>>*/ runtime.caml_atomic_exchange,
+    caml_atomic_fetch_add =  /*<<?>>*/ runtime.caml_atomic_fetch_add;
    function set(r, x){
      /*<<atomic.ml:25:14>>*/ caml_atomic_exchange(r, x);
     return 0;
@@ -1472,12 +1508,12 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_lazy_update_to_forward =
-      runtime.caml_lazy_update_to_forward,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_lazy_update_to_forward =
+       /*<<?>>*/ runtime.caml_lazy_update_to_forward,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    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)
@@ -1486,8 +1522,10 @@
    var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
-     /*<<camlinternalLazy.ml:20:0>>*/ Undefined =
-      [248, "CamlinternalLazy.Undefined", runtime.caml_fresh_oo_id(0)];
+    Undefined =
+       /*<<camlinternalLazy.ml:20:0>>*/ [248,
+       "CamlinternalLazy.Undefined",
+       runtime.caml_fresh_oo_id(0)];
    function force_gen_lazy_block(only_val, blk){
      /*<<camlinternalLazy.ml:72:2>>*/ if
      (0
@@ -1497,20 +1535,24 @@
       /*<<camlinternalLazy.ml:75:9>>*/ throw  /*<<camlinternalLazy.ml:75:9>>*/ caml_maybe_attach_backtrace
             (Undefined, 1);
     if(only_val){
-      /*<<camlinternalLazy.ml:61:25>>*/ var closure$0 = blk[1];
+     var closure$0 =  /*<<camlinternalLazy.ml:61:25>>*/ blk[1];
       /*<<camlinternalLazy.ml:62:2>>*/ blk[1] = 0;
-      /*<<camlinternalLazy.ml:63:15>>*/ var
-      result$0 =  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1(closure$0, 0);
+     var
+      result$0 =
+         /*<<camlinternalLazy.ml:63:15>>*/  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1
+         (closure$0, 0);
       /*<<camlinternalLazy.ml:64:2>>*/ blk[1] = result$0;
       /*<<camlinternalLazy.ml:65:2>>*/  /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward
       (blk);
       /*<<camlinternalLazy.ml:65:2>>*/ return result$0;
     }
-     /*<<camlinternalLazy.ml:46:25>>*/ var closure = blk[1];
+    var closure =  /*<<camlinternalLazy.ml:46:25>>*/ blk[1];
      /*<<camlinternalLazy.ml:47:2>>*/ blk[1] = 0;
      /*<<camlinternalLazy.ml:47:2>>*/ try{
-      /*<<camlinternalLazy.ml:49:17>>*/ var
-      result =  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1(closure, 0);
+     var
+      result =
+         /*<<camlinternalLazy.ml:49:17>>*/  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1
+         (closure, 0);
       /*<<camlinternalLazy.ml:50:4>>*/ blk[1] = result;
       /*<<camlinternalLazy.ml:51:4>>*/  /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward
       (blk);
@@ -1533,8 +1575,10 @@
      /*<<camlinternalLazy.ml:78:27>>*/ return force_gen_lazy_block(0, blk);
     /*<<camlinternalLazy.ml:78:67>>*/ }
    function force_gen(only_val, lzv){
-     /*<<camlinternalLazy.ml:99:10>>*/ var
-     t =  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag(lzv);
+    var
+     t =
+        /*<<camlinternalLazy.ml:99:10>>*/  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag
+        (lzv);
     if(t === Stdlib_Obj[12])
       /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1];
     if(t === Stdlib_Obj[6])
@@ -1554,8 +1598,8 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_obj_tag = runtime.caml_obj_tag;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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)
@@ -1576,13 +1620,15 @@
             (CamlinternalLazy[3], 1, l);
     /*<<lazy.ml:56:61>>*/ }
    function from_fun(f){
-     /*<<lazy.ml:59:10>>*/ var
-     x =  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block(Stdlib_Obj[8], 1);
+    var
+     x =
+        /*<<lazy.ml:59:10>>*/  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block
+        (Stdlib_Obj[8], 1);
      /*<<lazy.ml:60:2>>*/ x[1] = f;
      /*<<lazy.ml:60:2>>*/ return x;
     /*<<lazy.ml:61:22>>*/ }
    function from_val(v){
-     /*<<lazy.ml:64:10>>*/ var t =  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
+    var t =  /*<<lazy.ml:64:10>>*/  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
     if
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
@@ -1591,7 +1637,7 @@
             (v);
     /*<<lazy.ml:70:5>>*/ }
    function is_val(l){
-     /*<<lazy.ml:72:26>>*/ var _i_ = Stdlib_Obj[8];
+    var _i_ =  /*<<lazy.ml:72:26>>*/ Stdlib_Obj[8];
      /*<<lazy.ml:72:26>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag(l)
             !== _i_
             ? 1
@@ -1652,9 +1698,9 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -1690,7 +1736,7 @@
      /*<<seq.ml:28:21>>*/ return [0, x, next];
     /*<<seq.ml:28:35>>*/ }
    function append(seq1, seq2, param){
-     /*<<seq.ml:31:8>>*/ var match =  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
+    var match =  /*<<seq.ml:31:8>>*/  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
     if(! match)
       /*<<seq.ml:32:11>>*/ return  /*<<seq.ml:32:11>>*/ caml_call1(seq2, 0);
     var next = match[2], x = match[1];
@@ -1699,8 +1745,8 @@
             function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}];
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
-     /*<<seq.ml:35:29>>*/ var
-     match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
+    var
+     match =  /*<<seq.ml:35:29>>*/  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
     if(! match)  /*<<seq.ml:36:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:37:22>>*/ return [0,
@@ -1710,13 +1756,13 @@
    function filter_map(f, seq, param){
     var seq$0 = seq;
      /*<<seq.ml:39:30>>*/ for(;;){
-      /*<<seq.ml:39:36>>*/ var
-      match =  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
+     var
+      match =  /*<<seq.ml:39:36>>*/  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:40:11>>*/ return 0;
      var
       next = match[2],
       x = match[1],
-       /*<<seq.ml:42:12>>*/ match$0 =  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
+      match$0 =  /*<<seq.ml:42:12>>*/  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
      if(match$0){
       var y = match$0[1];
        /*<<seq.ml:44:20>>*/ return [0,
@@ -1729,8 +1775,8 @@
    function filter(f, seq, param){
     var seq$0 = seq;
      /*<<seq.ml:46:26>>*/ for(;;){
-      /*<<seq.ml:46:32>>*/ var
-      match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
+     var
+      match =  /*<<seq.ml:46:32>>*/  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:47:11>>*/ return 0;
      var next = match[2], x = match[1];
       /*<<seq.ml:49:9>>*/ if( /*<<seq.ml:49:9>>*/ caml_call1(f, x))
@@ -1741,16 +1787,16 @@
     }
     /*<<seq.ml:51:27>>*/ }
    function concat(seq, param){
-     /*<<seq.ml:53:30>>*/ var
-     match =  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
+    var
+     match =  /*<<seq.ml:53:30>>*/  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
     if(! match)  /*<<seq.ml:54:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:56:5>>*/ return append
             (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0);
     /*<<seq.ml:56:30>>*/ }
    function flat_map(f, seq, param){
-     /*<<seq.ml:58:34>>*/ var
-     match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
+    var
+     match =  /*<<seq.ml:58:34>>*/  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
     if(! match)  /*<<seq.ml:59:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:61:4>>*/ return append
@@ -1761,14 +1807,14 @@
    function fold_left(f, acc, seq){
     var acc$0 = acc, seq$0 = seq;
      /*<<seq.ml:66:2>>*/ for(;;){
-      /*<<seq.ml:66:8>>*/ var
-      match =  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
+     var
+      match =  /*<<seq.ml:66:8>>*/  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
      var
       next = match[2],
       x = match[1],
-       /*<<seq.ml:69:18>>*/ acc$1 =
-         /*<<seq.ml:69:18>>*/ caml_call2(f, acc$0, x);
+      acc$1 =
+         /*<<seq.ml:69:18>>*/  /*<<seq.ml:69:18>>*/ caml_call2(f, acc$0, x);
      acc$0 = acc$1;
      seq$0 = next;
     }
@@ -1776,8 +1822,8 @@
    function iter(f, seq){
     var seq$0 = seq;
      /*<<seq.ml:73:2>>*/ for(;;){
-      /*<<seq.ml:73:8>>*/ var
-      match =  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
+     var
+      match =  /*<<seq.ml:73:8>>*/  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
      if(! match)  /*<<seq.ml:74:13>>*/ return 0;
      var next = match[2], x = match[1];
       /*<<seq.ml:76:8>>*/  /*<<seq.ml:76:8>>*/ caml_call1(f, x);
@@ -1785,7 +1831,7 @@
     }
     /*<<seq.ml:77:19>>*/ }
    function unfold(f, u, param){
-     /*<<seq.ml:80:8>>*/ var match =  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
+    var match =  /*<<seq.ml:80:8>>*/  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
     if(! match)  /*<<seq.ml:81:12>>*/ return 0;
     var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
      /*<<seq.ml:82:20>>*/ return [0,
@@ -1796,7 +1842,7 @@
      /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0) ? 0 : 1;
     /*<<seq.ml:89:11>>*/ }
    function uncons(xs){
-     /*<<seq.ml:92:8>>*/ var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:92:8>>*/  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:96:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
@@ -1804,10 +1850,10 @@
    function length(xs$1){
     var accu = 0, xs = xs$1;
      /*<<seq.ml:101:2>>*/ for(;;){
-      /*<<seq.ml:101:8>>*/ var
-      match =  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
+     var
+      match =  /*<<seq.ml:101:8>>*/  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:103:6>>*/ return accu;
-     var xs$0 = match[2],  /*<<seq.ml:105:6>>*/ accu$0 = accu + 1 | 0;
+     var xs$0 = match[2], accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
      accu = accu$0;
      xs = xs$0;
     }
@@ -1815,8 +1861,8 @@
    function iteri(f, xs$1){
     var i = 0, xs = xs$1;
      /*<<seq.ml:111:2>>*/ for(;;){
-      /*<<seq.ml:111:8>>*/ var
-      match =  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
+     var
+      match =  /*<<seq.ml:111:8>>*/  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:113:6>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:115:6>>*/  /*<<seq.ml:115:6>>*/ caml_call2(f, i, x);
@@ -1828,15 +1874,16 @@
    function fold_lefti(f, accu$1, xs$1){
     var accu = accu$1, i = 0, xs = xs$1;
      /*<<seq.ml:122:2>>*/ for(;;){
-      /*<<seq.ml:122:8>>*/ var
-      match =  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
+     var
+      match =  /*<<seq.ml:122:8>>*/  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:124:6>>*/ return accu;
      var
       xs$0 = match[2],
       x = match[1],
-       /*<<seq.ml:126:17>>*/ accu$0 =
-         /*<<seq.ml:126:17>>*/ caml_call3(f, accu, i, x),
-       /*<<seq.ml:127:6>>*/ i$0 = i + 1 | 0;
+      accu$0 =
+         /*<<seq.ml:126:17>>*/  /*<<seq.ml:126:17>>*/ caml_call3
+         (f, accu, i, x),
+      i$0 =  /*<<seq.ml:127:6>>*/ i + 1 | 0;
      accu = accu$0;
      i = i$0;
      xs = xs$0;
@@ -1845,13 +1892,13 @@
    function for_all(p, xs){
     var xs$0 = xs;
      /*<<seq.ml:133:2>>*/ for(;;){
-      /*<<seq.ml:133:8>>*/ var
-      match =  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:133:8>>*/  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:135:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:137:6>>*/ _an_ =  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
+      _an_ =  /*<<seq.ml:137:6>>*/  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
       /*<<seq.ml:137:6>>*/ if(! _an_)  /*<<seq.ml:137:6>>*/ return _an_;
      xs$0 = xs$1;
     }
@@ -1859,13 +1906,13 @@
    function exists(p, xs){
     var xs$0 = xs;
      /*<<seq.ml:140:2>>*/ for(;;){
-      /*<<seq.ml:140:8>>*/ var
-      match =  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:140:8>>*/  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:142:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:144:6>>*/ _am_ =  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
+      _am_ =  /*<<seq.ml:144:6>>*/  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
       /*<<seq.ml:144:6>>*/ if(_am_)  /*<<seq.ml:144:6>>*/ return _am_;
      xs$0 = xs$1;
     }
@@ -1873,8 +1920,8 @@
    function find(p, xs){
     var xs$0 = xs;
      /*<<seq.ml:147:2>>*/ for(;;){
-      /*<<seq.ml:147:8>>*/ var
-      match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:147:8>>*/  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:149:6>>*/ return 0;
      var xs$1 = match[2], x = match[1];
       /*<<seq.ml:151:9>>*/ if( /*<<seq.ml:151:9>>*/ caml_call1(p, x))
@@ -1885,8 +1932,9 @@
    function find_index(p, xs){
     var i = 0, xs$0 = xs;
      /*<<seq.ml:154:21>>*/ for(;;){
-      /*<<seq.ml:154:27>>*/ var
-      match =  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
+     var
+      match =
+         /*<<seq.ml:154:27>>*/  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:156:8>>*/ return 0;
      var xs$1 = match[2], x = match[1];
       /*<<seq.ml:158:11>>*/ if( /*<<seq.ml:158:11>>*/ caml_call1(p, x))
@@ -1899,13 +1947,13 @@
    function find_map(f, xs){
     var xs$0 = xs;
      /*<<seq.ml:162:2>>*/ for(;;){
-      /*<<seq.ml:162:8>>*/ var
-      match =  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:162:8>>*/  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:164:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:166:12>>*/ result =  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
+      result =  /*<<seq.ml:166:12>>*/  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
      if(result)  /*<<seq.ml:170:10>>*/ return result;
      xs$0 = xs$1;
     }
@@ -1913,14 +1961,15 @@
    function find_mapi(f, xs){
     var i = 0, xs$0 = xs;
      /*<<seq.ml:173:21>>*/ for(;;){
-      /*<<seq.ml:173:27>>*/ var
-      match =  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
+     var
+      match =
+         /*<<seq.ml:173:27>>*/  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:175:8>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:177:14>>*/ result =
-         /*<<seq.ml:177:14>>*/ caml_call2(f, i, x);
+      result =
+         /*<<seq.ml:177:14>>*/  /*<<seq.ml:177:14>>*/ caml_call2(f, i, x);
      if(result)  /*<<seq.ml:181:12>>*/ return result;
      var i$0 = i + 1 | 0;
      i = i$0;
@@ -1930,14 +1979,14 @@
    function iter2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:192:2>>*/ for(;;){
-      /*<<seq.ml:192:8>>*/ var
-      match =  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:192:8>>*/  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:194:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:196:12>>*/ match$0 =
-         /*<<seq.ml:196:12>>*/ caml_call1(ys$0, 0);
+      match$0 =
+         /*<<seq.ml:196:12>>*/  /*<<seq.ml:196:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
      var ys$1 = match$0[2], y = match$0[1];
       /*<<seq.ml:200:10>>*/  /*<<seq.ml:200:10>>*/ caml_call2(f, x, y);
@@ -1948,20 +1997,21 @@
    function fold_left2(f, accu, xs, ys){
     var accu$0 = accu, xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:204:2>>*/ for(;;){
-      /*<<seq.ml:204:8>>*/ var
-      match =  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:204:8>>*/  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:208:12>>*/ match$0 =
-         /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
+      match$0 =
+         /*<<seq.ml:208:12>>*/  /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:210:10>>*/ return accu$0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-       /*<<seq.ml:212:21>>*/ accu$1 =
-         /*<<seq.ml:212:21>>*/ caml_call3(f, accu$0, x, y);
+      accu$1 =
+         /*<<seq.ml:212:21>>*/  /*<<seq.ml:212:21>>*/ caml_call3
+         (f, accu$0, x, y);
      accu$0 = accu$1;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -1970,19 +2020,19 @@
    function for_all2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:216:2>>*/ for(;;){
-      /*<<seq.ml:216:8>>*/ var
-      match =  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:216:8>>*/  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:218:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:220:12>>*/ match$0 =
-         /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
+      match$0 =
+         /*<<seq.ml:220:12>>*/  /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-       /*<<seq.ml:224:10>>*/ _al_ =  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
+      _al_ =  /*<<seq.ml:224:10>>*/  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
       /*<<seq.ml:224:10>>*/ if(! _al_)  /*<<seq.ml:224:10>>*/ return _al_;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -1991,19 +2041,19 @@
    function exists2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:227:2>>*/ for(;;){
-      /*<<seq.ml:227:8>>*/ var
-      match =  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:227:8>>*/  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:229:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:231:12>>*/ match$0 =
-         /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
+      match$0 =
+         /*<<seq.ml:231:12>>*/  /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
      if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-       /*<<seq.ml:235:10>>*/ _ak_ =  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
+      _ak_ =  /*<<seq.ml:235:10>>*/  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
       /*<<seq.ml:235:10>>*/ if(_ak_)  /*<<seq.ml:235:10>>*/ return _ak_;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2013,9 +2063,9 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:238:2>>*/ for(;;){
      var
-       /*<<seq.ml:238:8>>*/ match =  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
-       /*<<seq.ml:238:14>>*/ match$0 =
-         /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
+      match =  /*<<seq.ml:238:8>>*/  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
+      match$0 =
+         /*<<seq.ml:238:14>>*/  /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
      if(match){
       if(match$0){
        var
@@ -2023,8 +2073,8 @@
         y = match$0[1],
         xs$1 = match[2],
         x = match[1],
-         /*<<seq.ml:242:6>>*/ _aj_ =
-           /*<<seq.ml:242:6>>*/ caml_call2(eq, x, y);
+        _aj_ =
+           /*<<seq.ml:242:6>>*/  /*<<seq.ml:242:6>>*/ caml_call2(eq, x, y);
         /*<<seq.ml:242:6>>*/ if(! _aj_)  /*<<seq.ml:242:6>>*/ return _aj_;
        xs$0 = xs$1;
        ys$0 = ys$1;
@@ -2039,16 +2089,16 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:248:2>>*/ for(;;){
      var
-       /*<<seq.ml:248:8>>*/ match =  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
-       /*<<seq.ml:248:14>>*/ match$0 =
-         /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
+      match =  /*<<seq.ml:248:8>>*/  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
+      match$0 =
+         /*<<seq.ml:248:14>>*/  /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
      if(! match) return match$0 ? -1 : 0;
      var xs$1 = match[2], x = match[1];
      if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-       /*<<seq.ml:252:14>>*/ c =  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
+      c =  /*<<seq.ml:252:14>>*/  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
       /*<<seq.ml:253:6>>*/ if(0 !== c)  /*<<seq.ml:253:21>>*/ return c;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2086,7 +2136,7 @@
              0);
     /*<<seq.ml:287:34>>*/ }
    function cycle(xs, param){
-     /*<<seq.ml:295:8>>*/ var match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:295:8>>*/  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:297:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
     function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
@@ -2095,7 +2145,7 @@
             function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}];
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
-     /*<<seq.ml:306:10>>*/ var y =  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
+    var y =  /*<<seq.ml:306:10>>*/  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
      /*<<seq.ml:307:2>>*/ return [0,
             y,
             function(___){ /*<<?>>*/ return iterate1(f, y, ___);}];
@@ -2106,9 +2156,9 @@
       /*<<seq.ml:28:21>>*/ return [0, x, next];};
     /*<<seq.ml:319:23>>*/ }
    function mapi_aux(f, i, xs, param){
-     /*<<seq.ml:324:8>>*/ var match =  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:324:8>>*/  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:326:6>>*/ return 0;
-    var xs$0 = match[2], x = match[1],  /*<<seq.ml:328:6>>*/ _W_ = i + 1 | 0;
+    var xs$0 = match[2], x = match[1], _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
      /*<<seq.ml:328:6>>*/ return [0,
              /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
             function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}];
@@ -2119,12 +2169,12 @@
       /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);};
     /*<<seq.ml:331:17>>*/ }
    function tail_scan(f, s, xs, param){
-     /*<<seq.ml:340:8>>*/ var match =  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:340:8>>*/  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:342:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-      /*<<seq.ml:344:14>>*/ s$0 =  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
+     s$0 =  /*<<seq.ml:344:14>>*/  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
      /*<<seq.ml:345:6>>*/ return [0,
             s$0,
             function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}];
@@ -2139,8 +2189,10 @@
             ? empty
             : function
              (param){
-               /*<<seq.ml:358:12>>*/ var
-               match =  /*<<seq.ml:358:12>>*/ caml_call1(xs, 0);
+              var
+               match =
+                  /*<<seq.ml:358:12>>*/  /*<<seq.ml:358:12>>*/ caml_call1
+                  (xs, 0);
               if(! match)  /*<<seq.ml:360:10>>*/ return 0;
               var xs$0 = match[2], x = match[1];
                /*<<seq.ml:362:10>>*/ return [0, x, take_aux(n - 1 | 0, xs$0)];
@@ -2161,10 +2213,12 @@
                (param){
                 var n$0 = n, xs$0 = xs;
                  /*<<seq.ml:373:2>>*/ for(;;){
-                  /*<<seq.ml:373:8>>*/ var
-                  match =  /*<<seq.ml:373:8>>*/ caml_call1(xs$0, 0);
+                 var
+                  match =
+                     /*<<seq.ml:373:8>>*/  /*<<seq.ml:373:8>>*/ caml_call1
+                     (xs$0, 0);
                  if(! match)  /*<<seq.ml:375:6>>*/ return 0;
-                 var xs$1 = match[2],  /*<<seq.ml:377:6>>*/ n$1 = n$0 - 1 | 0;
+                 var xs$1 = match[2], n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
                    /*<<seq.ml:379:8>>*/ return  /*<<seq.ml:379:8>>*/ caml_call1
                           (xs$1, 0);
@@ -2175,7 +2229,7 @@
             :  /*<<seq.ml:387:16>>*/ caml_call1(Stdlib[1], cst_Seq_drop);
     /*<<seq.ml:392:21>>*/ }
    function take_while(p, xs, param){
-     /*<<seq.ml:395:8>>*/ var match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:395:8>>*/  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:397:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:399:9>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
@@ -2187,8 +2241,8 @@
    function drop_while(p, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:402:2>>*/ for(;;){
-      /*<<seq.ml:402:8>>*/ var
-      node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
+     var
+      node =  /*<<seq.ml:402:8>>*/  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
      if(! node)  /*<<seq.ml:404:6>>*/ return 0;
      var xs$1 = node[2], x = node[1];
       /*<<seq.ml:406:9>>*/ if(!  /*<<seq.ml:406:9>>*/ caml_call1(p, x))
@@ -2197,23 +2251,25 @@
     }
     /*<<seq.ml:406:46>>*/ }
    function group(eq, xs, param){
-     /*<<seq.ml:409:8>>*/ var match =  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:409:8>>*/  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:411:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-      /*<<seq.ml:413:64>>*/ _J_ =  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
+     _J_ =  /*<<seq.ml:413:64>>*/  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
     function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
-     /*<<seq.ml:413:31>>*/ var _L_ =  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
+    var _L_ =  /*<<seq.ml:413:31>>*/  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
     function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
      /*<<seq.ml:413:6>>*/ return [0,
             function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
             function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}];
     /*<<seq.ml:413:75>>*/ }
    var
-     /*<<seq.ml:415:0>>*/ Forced_twice =
-      [248, "Stdlib.Seq.Forced_twice", runtime.caml_fresh_oo_id(0)],
-     /*<<seq.ml:415:0>>*/ to_lazy = Stdlib_Lazy[6],
+    Forced_twice =
+       /*<<seq.ml:415:0>>*/ [248,
+       "Stdlib.Seq.Forced_twice",
+       runtime.caml_fresh_oo_id(0)],
+    to_lazy =  /*<<seq.ml:415:0>>*/ Stdlib_Lazy[6],
     _a_ = [0, "seq.ml", 616, 4];
    function failure(param){
      /*<<seq.ml:441:6>>*/ throw  /*<<seq.ml:441:6>>*/ caml_maybe_attach_backtrace
@@ -2221,14 +2277,15 @@
     /*<<seq.ml:441:24>>*/ }
    function memoize(xs){
     function s$0(param){
-      /*<<seq.ml:460:10>>*/ var
-      match =  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
+     var
+      match =  /*<<seq.ml:460:10>>*/  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:462:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:464:8>>*/ return [0, x, memoize(xs$0)];
      /*<<seq.ml:464:28>>*/ }
-     /*<<seq.ml:434:14>>*/ var
-     s =  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
+    var
+     s =
+        /*<<seq.ml:434:14>>*/  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
      /*<<seq.ml:429:4>>*/ return function(param){
      var _I_ = runtime.caml_obj_tag(s);
      if(250 === _I_) return s[1];
@@ -2238,26 +2295,30 @@
     /*<<seq.ml:465:3>>*/ }
    function once(xs){
     function f(param){
-      /*<<seq.ml:469:10>>*/ var
-      match =  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
+     var
+      match =  /*<<seq.ml:469:10>>*/  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
      if(! match)  /*<<seq.ml:471:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:473:8>>*/ return [0, x, once(xs$0)];
      /*<<seq.ml:473:25>>*/ }
-     /*<<seq.ml:448:17>>*/ var
-     action =  /*<<seq.ml:448:17>>*/ caml_call1(Stdlib_Atomic[1], f);
+    var
+     action =
+        /*<<seq.ml:448:17>>*/  /*<<seq.ml:448:17>>*/ caml_call1
+        (Stdlib_Atomic[1], f);
      /*<<seq.ml:449:4>>*/ return function(param){
-      /*<<seq.ml:453:14>>*/ var
-      f =  /*<<seq.ml:453:14>>*/ caml_call2(Stdlib_Atomic[5], action, failure);
+     var
+      f =
+         /*<<seq.ml:453:14>>*/  /*<<seq.ml:453:14>>*/ caml_call2
+         (Stdlib_Atomic[5], action, failure);
       /*<<seq.ml:454:6>>*/ return  /*<<seq.ml:454:6>>*/ caml_call1(f, 0); /*<<seq.ml:454:9>>*/ };
     /*<<seq.ml:474:3>>*/ }
    function zip(xs, ys, param){
-     /*<<seq.ml:478:8>>*/ var match =  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:478:8>>*/  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:480:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-      /*<<seq.ml:482:12>>*/ match$0 =  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
+     match$0 =  /*<<seq.ml:482:12>>*/  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
     if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:486:10>>*/ return [0,
@@ -2265,12 +2326,12 @@
             function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}];
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
-     /*<<seq.ml:489:8>>*/ var match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:489:8>>*/  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
     if(! match)  /*<<seq.ml:491:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-      /*<<seq.ml:493:12>>*/ match$0 =  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
+     match$0 =  /*<<seq.ml:493:12>>*/  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
     if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:497:10>>*/ return [0,
@@ -2278,7 +2339,7 @@
             function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}];
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
-     /*<<seq.ml:500:8>>*/ var match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
+    var match =  /*<<seq.ml:500:8>>*/  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
     if(! match)
       /*<<seq.ml:502:6>>*/ return  /*<<seq.ml:502:6>>*/ caml_call1(ys, 0);
     var xs$0 = match[2], x = match[1];
@@ -2292,8 +2353,10 @@
             ? [0,
               y,
               function(_D_){
-                /*<<seq.ml:519:8>>*/ var
-                match =  /*<<seq.ml:519:8>>*/ caml_call1(ys, 0);
+               var
+                match =
+                   /*<<seq.ml:519:8>>*/  /*<<seq.ml:519:8>>*/ caml_call1
+                   (ys, 0);
                if(! match)  /*<<seq.ml:521:6>>*/ return [0, x, xs];
                var ys$0 = match[2], y = match[1];
                 /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0);
@@ -2301,8 +2364,10 @@
             : [0,
               x,
               function(_E_){
-                /*<<seq.ml:526:8>>*/ var
-                match =  /*<<seq.ml:526:8>>*/ caml_call1(xs, 0);
+               var
+                match =
+                   /*<<seq.ml:526:8>>*/  /*<<seq.ml:526:8>>*/ caml_call1
+                   (xs, 0);
                if(! match)  /*<<seq.ml:528:6>>*/ return [0, y, ys];
                var xs$0 = match[2], x = match[1];
                 /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys);
@@ -2310,8 +2375,8 @@
     /*<<seq.ml:536:40>>*/ }
    function sorted_merge(cmp, xs, ys, param){
     var
-      /*<<seq.ml:539:8>>*/ match =  /*<<seq.ml:539:8>>*/ caml_call1(xs, 0),
-      /*<<seq.ml:539:14>>*/ match$0 =  /*<<seq.ml:539:14>>*/ caml_call1(ys, 0);
+     match =  /*<<seq.ml:539:8>>*/  /*<<seq.ml:539:8>>*/ caml_call1(xs, 0),
+     match$0 =  /*<<seq.ml:539:14>>*/  /*<<seq.ml:539:14>>*/ caml_call1(ys, 0);
     if(match){
      if(match$0){
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
@@ -2323,8 +2388,8 @@
      /*<<seq.ml:544:8>>*/ return c;
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
-     /*<<seq.ml:550:8>>*/ var
-     match =  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
+    var
+     match =  /*<<seq.ml:550:8>>*/  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
     if(! match)  /*<<seq.ml:552:6>>*/ return 0;
     var xys$0 = match[2], x = match[1][1];
      /*<<seq.ml:554:6>>*/ return [0,
@@ -2332,8 +2397,8 @@
             function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}];
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
-     /*<<seq.ml:557:8>>*/ var
-     match =  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
+    var
+     match =  /*<<seq.ml:557:8>>*/  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
     if(! match)  /*<<seq.ml:559:6>>*/ return 0;
     var xys$0 = match[2], y = match[1][2];
      /*<<seq.ml:561:6>>*/ return [0,
@@ -2348,13 +2413,13 @@
    function filter_map_find_left_map(f, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:573:2>>*/ for(;;){
-      /*<<seq.ml:573:8>>*/ var
-      match =  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:573:8>>*/  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:575:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:577:12>>*/ match$0 =  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
+      match$0 =  /*<<seq.ml:577:12>>*/  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
      if(0 === match$0[0]){
       var y = match$0[1];
        /*<<seq.ml:579:10>>*/ return [0,
@@ -2369,13 +2434,13 @@
    function filter_map_find_right_map(f, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:584:2>>*/ for(;;){
-      /*<<seq.ml:584:8>>*/ var
-      match =  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
+     var
+      match =  /*<<seq.ml:584:8>>*/  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
      if(! match)  /*<<seq.ml:586:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-       /*<<seq.ml:588:12>>*/ match$0 =  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
+      match$0 =  /*<<seq.ml:588:12>>*/  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
      if(0 !== match$0[0]){
       var z = match$0[1];
        /*<<seq.ml:592:10>>*/ return [0,
@@ -2410,7 +2475,7 @@
     /*<<seq.ml:611:31>>*/ }
    function transpose(xss, param){
     var
-      /*<<seq.ml:614:21>>*/ match = peel(xss),
+     match =  /*<<seq.ml:614:21>>*/ peel(xss),
      tails = match[2],
      heads = match[1];
      /*<<seq.ml:615:5>>*/ if(! is_empty(heads))
@@ -2422,28 +2487,30 @@
            ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
    function _b_(remainders, xss, param){
-     /*<<seq.ml:627:8>>*/ var
-     match =  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
+    var
+     match =  /*<<seq.ml:627:8>>*/  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
     if(! match)  /*<<seq.ml:649:6>>*/ return transpose(remainders, 0);
     var
      xss$0 = match[2],
      xs = match[1],
-      /*<<seq.ml:629:18>>*/ match$0 =  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
+     match$0 =  /*<<seq.ml:629:18>>*/  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
     if(match$0){
      var
       xs$0 = match$0[2],
       x = match$0[1],
-       /*<<seq.ml:637:29>>*/ match$1 = peel(remainders),
+      match$1 =  /*<<seq.ml:637:29>>*/ peel(remainders),
       tails = match$1[2],
       heads = match$1[1],
-       /*<<seq.ml:638:40>>*/ _l_ =
-        function(_p_){ /*<<seq.ml:28:21>>*/ return [0, xs$0, tails];};
+      _l_ =
+         /*<<seq.ml:638:40>>*/ function(_p_){
+          /*<<seq.ml:28:21>>*/ return [0, xs$0, tails];
+        };
       /*<<seq.ml:638:10>>*/ return [0,
              function(_o_){ /*<<seq.ml:28:21>>*/ return [0, x, heads];},
              function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}];
     }
     var
-      /*<<seq.ml:643:29>>*/ match$2 = peel(remainders),
+     match$2 =  /*<<seq.ml:643:29>>*/ peel(remainders),
      tails$0 = match$2[2],
      heads$0 = match$2[1];
      /*<<seq.ml:644:10>>*/ return [0,
@@ -2473,8 +2540,8 @@
     /*<<seq.ml:677:39>>*/ }
    function of_dispenser(it){
     function c(param){
-      /*<<seq.ml:681:10>>*/ var
-      match =  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
+     var
+      match =  /*<<seq.ml:681:10>>*/  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
      if(! match)  /*<<seq.ml:683:8>>*/ return 0;
      var x = match[1];
       /*<<seq.ml:685:8>>*/ return [0, x, c];
@@ -2482,17 +2549,18 @@
      /*<<seq.ml:687:2>>*/ return c;
     /*<<seq.ml:687:3>>*/ }
    function to_dispenser(xs){
-     /*<<seq.ml:690:10>>*/ var s = [0, xs];
+    var s =  /*<<seq.ml:690:10>>*/ [0, xs];
      /*<<seq.ml:691:2>>*/ return function(param){
-      /*<<seq.ml:692:10>>*/ var
-      match =  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
+     var
+      match =
+         /*<<seq.ml:692:10>>*/  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
      if(! match)  /*<<seq.ml:694:8>>*/ return 0;
      var xs = match[2], x = match[1];
      s[1] = xs;
       /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ };
     /*<<seq.ml:697:14>>*/ }
    function ints(i, param){
-     /*<<seq.ml:702:2>>*/ var _c_ = i + 1 | 0;
+    var _c_ =  /*<<seq.ml:702:2>>*/ i + 1 | 0;
      /*<<seq.ml:702:2>>*/ return [0,
             i,
             function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}];
@@ -2569,7 +2637,7 @@
 (function
   (globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -2699,7 +2767,7 @@
 (function
   (globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -2873,8 +2941,8 @@
 (function(globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_hash = runtime.caml_hash;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_hash =  /*<<?>>*/ runtime.caml_hash;
    function equal(_d_, _c_){ /*<<?>>*/ return _d_ === _c_ ? 1 : 0;}
    var
     compare = runtime.caml_int_compare,
@@ -2916,11 +2984,11 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_hash = runtime.caml_hash,
-     /*<<?>>*/ caml_string_of_bytes = runtime.caml_string_of_bytes;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_hash =  /*<<?>>*/ runtime.caml_hash,
+    caml_string_of_bytes =  /*<<?>>*/ runtime.caml_string_of_bytes;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -2963,16 +3031,16 @@
            /*<<char.ml:34:12>>*/ return cst_r;
        }
      }
-      /*<<char.ml:42:14>>*/ var
-      s =  /*<<char.ml:42:14>>*/ caml_create_bytes(4);
+     var
+      s =  /*<<char.ml:42:14>>*/  /*<<char.ml:42:14>>*/ caml_create_bytes(4);
      caml_bytes_unsafe_set(s, 0, 92);
      caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
      caml_bytes_unsafe_set(s, 2, 48 + ((c / 10 | 0) % 10 | 0) | 0);
      caml_bytes_unsafe_set(s, 3, 48 + (c % 10 | 0) | 0);
      return caml_string_of_bytes(s);
     }
-     /*<<char.ml:37:14>>*/ var
-     s$0 =  /*<<char.ml:37:14>>*/ caml_create_bytes(1);
+    var
+     s$0 =  /*<<char.ml:37:14>>*/  /*<<char.ml:37:14>>*/ caml_create_bytes(1);
     caml_bytes_unsafe_set(s$0, 0, c);
     return caml_string_of_bytes(s$0);
     /*<<char.ml:47:24>>*/ }
@@ -3018,11 +3086,11 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_uchar_ml = "uchar.ml",
-     /*<<?>>*/ caml_format_int = runtime.caml_format_int,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_uchar_ml =  /*<<?>>*/ "uchar.ml",
+    caml_format_int =  /*<<?>>*/ runtime.caml_format_int,
+    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
             ? f(a0)
@@ -3064,9 +3132,9 @@
     /*<<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>>*/ var
+    var
      _m_ =
-        /*<<uchar.ml:20:19>>*/ caml_call2
+        /*<<uchar.ml:20:19>>*/  /*<<uchar.ml:20:19>>*/ caml_call2
         (Stdlib[28],
           /*<<uchar.ml:20:19>>*/ caml_format_int("%X", i),
          cst_is_not_an_Unicode_scalar_v);
@@ -3082,13 +3150,14 @@
    function to_char(u){
      /*<<uchar.ml:51:2>>*/ if(255 >= u)  /*<<uchar.ml:52:2>>*/ return u;
     var
-      /*<<uchar.ml:21:30>>*/ _k_ =
-        /*<<uchar.ml:21:30>>*/ caml_call2
+     _k_ =
+        /*<<uchar.ml:21:30>>*/  /*<<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_);
+     _l_ =
+        /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
+        (Stdlib[28], cst_U, _k_);
      /*<<uchar.ml:51:30>>*/ return  /*<<uchar.ml:51:30>>*/ caml_call1
             (Stdlib[1], _l_);
     /*<<uchar.ml:52:19>>*/ }
@@ -3176,12 +3245,12 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_List_map2$1 = "List.map2",
-     /*<<?>>*/ cst_List_nth$1 = "List.nth",
-     /*<<?>>*/ caml_compare = runtime.caml_compare,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_List_map2$1 =  /*<<?>>*/ "List.map2",
+    cst_List_nth$1 =  /*<<?>>*/ "List.nth",
+    caml_compare =  /*<<?>>*/ runtime.caml_compare,
+    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
             ? f(a0)
@@ -3209,7 +3278,7 @@
     var len = 0, param = l$0;
     for(;;){
      if(! param)  /*<<list.ml:22:10>>*/ return len;
-     var l = param[2],  /*<<list.ml:23:12>>*/ len$0 = len + 1 | 0;
+     var l = param[2], len$0 =  /*<<list.ml:23:12>>*/ len + 1 | 0;
      len = len$0;
      param = l;
     }
@@ -3242,7 +3311,7 @@
               (Stdlib[2], cst_nth);
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
-      /*<<list.ml:42:35>>*/ var n$1 = n$0 - 1 | 0;
+     var n$1 =  /*<<list.ml:42:35>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
@@ -3257,7 +3326,7 @@
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:50:14>>*/ if(0 === n$0)
        /*<<list.ml:50:28>>*/ return [0, a];
-      /*<<list.ml:50:40>>*/ var n$1 = n$0 - 1 | 0;
+     var n$1 =  /*<<list.ml:50:40>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
@@ -3282,7 +3351,7 @@
      var
       l1$1 = l1$0[2],
       a = l1$0[1],
-       /*<<list.ml:58:27>>*/ l2$1 = [0, a, l2$0];
+      l2$1 =  /*<<list.ml:58:27>>*/ [0, a, l2$0];
      l1$0 = l1$1;
      l2$0 = l2$1;
     }
@@ -3301,9 +3370,9 @@
               /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
              0];
     var
-      /*<<list.ml:66:13>>*/ r1 =  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
-      /*<<list.ml:67:13>>*/ r2 =  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
-      /*<<list.ml:68:10>>*/ block = [0, r2, 24029],
+     r1 =  /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
+     r2 =  /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
+     block =  /*<<list.ml:68:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
      i = 2;
@@ -3313,10 +3382,11 @@
      else{
       if(i !== last){
        var
-         /*<<list.ml:66:13>>*/ r1$0 =  /*<<list.ml:66:13>>*/ caml_call1(f, i),
-         /*<<list.ml:67:13>>*/ r2$0 =
-           /*<<list.ml:67:13>>*/ caml_call1(f, i + 1 | 0),
-         /*<<list.ml:68:10>>*/ dst$0 = [0, r2$0, 24029];
+        r1$0 =  /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1(f, i),
+        r2$0 =
+           /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1
+           (f, i + 1 | 0),
+        dst$0 =  /*<<list.ml:68:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$0, dst$0];
        var i$0 = i + 2 | 0;
        dst = dst$0;
@@ -3331,7 +3401,7 @@
     /*<<list.ml:72:20>>*/ }
    function flatten(param){
      /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
-    var r = param[2], l = param[1],  /*<<list.ml:76:16>>*/ _I_ = flatten(r);
+    var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
      /*<<list.ml:76:16>>*/ return  /*<<list.ml:76:16>>*/ caml_call2
             (Stdlib[37], l, _I_);
     /*<<list.ml:76:25>>*/ }
@@ -3339,16 +3409,16 @@
      /*<<?>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
     var match = param[2], a1 = param[1];
     if(! match){
-      /*<<list.ml:83:15>>*/ var
-      r1$0 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1);
+     var
+      r1$0 =  /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1(f, a1);
       /*<<list.ml:84:6>>*/ return [0, r1$0, 0];
     }
     var
      l = match[2],
      a2 = match[1],
-      /*<<list.ml:86:15>>*/ r1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
-      /*<<list.ml:87:15>>*/ r2 =  /*<<list.ml:87:15>>*/ caml_call1(f, a2),
-      /*<<list.ml:88:10>>*/ block = [0, r2, 24029],
+     r1 =  /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
+     r2 =  /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1(f, a2),
+     block =  /*<<list.ml:88:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
      param$0 = l;
@@ -3359,19 +3429,20 @@
        var
         l$0 = match$0[2],
         a2$0 = match$0[1],
-         /*<<list.ml:86:15>>*/ r1$1 =
-           /*<<list.ml:86:15>>*/ caml_call1(f, a1$0),
-         /*<<list.ml:87:15>>*/ r2$0 =
-           /*<<list.ml:87:15>>*/ caml_call1(f, a2$0),
-         /*<<list.ml:88:10>>*/ dst$0 = [0, r2$0, 24029];
+        r1$1 =
+           /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1(f, a1$0),
+        r2$0 =
+           /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1(f, a2$0),
+        dst$0 =  /*<<list.ml:88:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        dst = dst$0;
        offset = 1;
        param$0 = l$0;
        continue;
       }
-       /*<<list.ml:83:15>>*/ var
-       r1$2 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1$0);
+      var
+       r1$2 =
+          /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1(f, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
      else
@@ -3384,16 +3455,17 @@
     if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
     var match = l$1[2], a1 = l$1[1];
     if(! match){
-      /*<<list.ml:93:15>>*/ var
-      r1$0 =  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
+     var
+      r1$0 =
+         /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
       /*<<list.ml:94:6>>*/ return [0, r1$0, 0];
     }
     var
      l = match[2],
      a2 = match[1],
-      /*<<list.ml:96:15>>*/ r1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
-      /*<<list.ml:97:15>>*/ r2 =  /*<<list.ml:97:15>>*/ caml_call2(f, 1, a2),
-      /*<<list.ml:98:10>>*/ block = [0, r2, 24029],
+     r1 =  /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
+     r2 =  /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2(f, 1, a2),
+     block =  /*<<list.ml:98:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
      i = 2,
@@ -3405,11 +3477,12 @@
        var
         l$0 = match$0[2],
         a2$0 = match$0[1],
-         /*<<list.ml:96:15>>*/ r1$1 =
-           /*<<list.ml:96:15>>*/ caml_call2(f, i, a1$0),
-         /*<<list.ml:97:15>>*/ r2$0 =
-           /*<<list.ml:97:15>>*/ caml_call2(f, i + 1 | 0, a2$0),
-         /*<<list.ml:98:10>>*/ dst$0 = [0, r2$0, 24029];
+        r1$1 =
+           /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2(f, i, a1$0),
+        r2$0 =
+           /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2
+           (f, i + 1 | 0, a2$0),
+        dst$0 =  /*<<list.ml:98:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        var i$0 = i + 2 | 0;
        dst = dst$0;
@@ -3418,8 +3491,9 @@
        param = l$0;
        continue;
       }
-       /*<<list.ml:93:15>>*/ var
-       r1$2 =  /*<<list.ml:93:15>>*/ caml_call2(f, i, a1$0);
+      var
+       r1$2 =
+          /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2(f, i, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
      else
@@ -3434,8 +3508,10 @@
      var
       l$0 = param[2],
       a = param[1],
-       /*<<list.ml:105:21>>*/ accu$0 =
-        [0,  /*<<list.ml:105:22>>*/ caml_call1(f, a), accu];
+      accu$0 =
+         /*<<list.ml:105:21>>*/ [0,
+          /*<<list.ml:105:22>>*/ caml_call1(f, a),
+         accu];
      accu = accu$0;
      param = l$0;
     }
@@ -3467,8 +3543,9 @@
      var
       l$1 = l$0[2],
       a = l$0[1],
-       /*<<list.ml:123:24>>*/ accu$1 =
-         /*<<list.ml:123:24>>*/ caml_call2(f, accu$0, a);
+      accu$1 =
+         /*<<list.ml:123:24>>*/  /*<<list.ml:123:24>>*/ caml_call2
+         (f, accu$0, a);
      accu$0 = accu$1;
      l$0 = l$1;
     }
@@ -3492,11 +3569,13 @@
          b1 = l2[1],
          l1$0 = _G_[2],
          a2 = _G_[1],
-          /*<<list.ml:137:15>>*/ r1 =
-            /*<<list.ml:137:15>>*/ caml_call2(f, a1, b1),
-          /*<<list.ml:138:15>>*/ r2 =
-            /*<<list.ml:138:15>>*/ caml_call2(f, a2, b2),
-          /*<<list.ml:139:10>>*/ block = [0, r2, 24029],
+         r1 =
+            /*<<list.ml:137:15>>*/  /*<<list.ml:137:15>>*/ caml_call2
+            (f, a1, b1),
+         r2 =
+            /*<<list.ml:138:15>>*/  /*<<list.ml:138:15>>*/ caml_call2
+            (f, a2, b2),
+         block =  /*<<list.ml:139:10>>*/ [0, r2, 24029],
          dst = block,
          offset = 1,
          l1$1 = l1$0,
@@ -3516,11 +3595,13 @@
                b1$1 = l2$1[1],
                l1$2 = _H_[2],
                a2$0 = _H_[1],
-                /*<<list.ml:137:15>>*/ r1$1 =
-                  /*<<list.ml:137:15>>*/ caml_call2(f, a1$0, b1$1),
-                /*<<list.ml:138:15>>*/ r2$0 =
-                  /*<<list.ml:138:15>>*/ caml_call2(f, a2$0, b2$0),
-                /*<<list.ml:139:10>>*/ dst$0 = [0, r2$0, 24029];
+               r1$1 =
+                  /*<<list.ml:137:15>>*/  /*<<list.ml:137:15>>*/ caml_call2
+                  (f, a1$0, b1$1),
+               r2$0 =
+                  /*<<list.ml:138:15>>*/  /*<<list.ml:138:15>>*/ caml_call2
+                  (f, a2$0, b2$0),
+               dst$0 =  /*<<list.ml:139:10>>*/ [0, r2$0, 24029];
               dst[1 + offset] = [0, r1$1, dst$0];
               dst = dst$0;
               offset = 1;
@@ -3533,8 +3614,9 @@
            else if(l2$1 && ! l2$1[2]){
             var
              b1$2 = l2$1[1],
-              /*<<list.ml:134:15>>*/ r1$2 =
-                /*<<list.ml:134:15>>*/ caml_call2(f, a1$0, b1$2);
+             r1$2 =
+                /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
+                (f, a1$0, b1$2);
             dst[1 + offset] = [0, r1$2, 0];
             break a;
            }
@@ -3550,8 +3632,9 @@
      else if(l2 && ! l2[2]){
       var
        b1$0 = l2[1],
-        /*<<list.ml:134:15>>*/ r1$0 =
-          /*<<list.ml:134:15>>*/ caml_call2(f, a1, b1$0);
+       r1$0 =
+          /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
+          (f, a1, b1$0);
        /*<<list.ml:135:6>>*/ return [0, r1$0, 0];
      }
     }
@@ -3569,8 +3652,10 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-         /*<<list.ml:146:34>>*/ accu$0 =
-          [0,  /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2), accu];
+        accu$0 =
+           /*<<list.ml:146:34>>*/ [0,
+            /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2),
+           accu];
        accu = accu$0;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3609,8 +3694,9 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-         /*<<list.ml:161:37>>*/ accu$1 =
-           /*<<list.ml:161:37>>*/ caml_call3(f, accu$0, a1, a2);
+        accu$1 =
+           /*<<list.ml:161:37>>*/  /*<<list.ml:161:37>>*/ caml_call3
+           (f, accu$0, a1, a2);
        accu$0 = accu$1;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3641,7 +3727,7 @@
      var
       l = param$0[2],
       a = param$0[1],
-       /*<<list.ml:172:12>>*/ _F_ =  /*<<list.ml:172:12>>*/ caml_call1(p, a);
+      _F_ =  /*<<list.ml:172:12>>*/  /*<<list.ml:172:12>>*/ caml_call1(p, a);
       /*<<list.ml:172:12>>*/ if(! _F_)  /*<<list.ml:172:12>>*/ return _F_;
      param$0 = l;
     }
@@ -3653,7 +3739,7 @@
      var
       l = param$0[2],
       a = param$0[1],
-       /*<<list.ml:176:12>>*/ _E_ =  /*<<list.ml:176:12>>*/ caml_call1(p, a);
+      _E_ =  /*<<list.ml:176:12>>*/  /*<<list.ml:176:12>>*/ caml_call1(p, a);
       /*<<list.ml:176:12>>*/ if(_E_)  /*<<list.ml:176:12>>*/ return _E_;
      param$0 = l;
     }
@@ -3668,8 +3754,9 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-         /*<<list.ml:181:24>>*/ _D_ =
-           /*<<list.ml:181:24>>*/ caml_call2(p, a1, a2);
+        _D_ =
+           /*<<list.ml:181:24>>*/  /*<<list.ml:181:24>>*/ caml_call2
+           (p, a1, a2);
         /*<<list.ml:181:24>>*/ if(! _D_)  /*<<list.ml:181:24>>*/ return _D_;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3691,8 +3778,9 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-         /*<<list.ml:187:24>>*/ _C_ =
-           /*<<list.ml:187:24>>*/ caml_call2(p, a1, a2);
+        _C_ =
+           /*<<list.ml:187:24>>*/  /*<<list.ml:187:24>>*/ caml_call2
+           (p, a1, a2);
         /*<<list.ml:187:24>>*/ if(_C_)  /*<<list.ml:187:24>>*/ return _C_;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3826,7 +3914,7 @@
     }
    }
    function find_index(p){
-     /*<<list.ml:243:2>>*/ var i = 0;
+    var i =  /*<<list.ml:243:2>>*/ 0;
      /*<<list.ml:243:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
      for(;;){
@@ -3846,14 +3934,14 @@
      var
       l = param$0[2],
       x = param$0[1],
-       /*<<list.ml:248:17>>*/ result =
-         /*<<list.ml:248:17>>*/ caml_call1(f, x);
+      result =
+         /*<<list.ml:248:17>>*/  /*<<list.ml:248:17>>*/ caml_call1(f, x);
      if(result)  /*<<list.ml:249:29>>*/ return result;
      param$0 = l;
     }
    }
    function find_mapi(f){
-     /*<<list.ml:261:2>>*/ var i = 0;
+    var i =  /*<<list.ml:261:2>>*/ 0;
      /*<<list.ml:261:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
      for(;;){
@@ -3861,8 +3949,8 @@
       var
        l = param[2],
        x = param[1],
-        /*<<list.ml:257:17>>*/ result =
-          /*<<list.ml:257:17>>*/ caml_call2(f, i$0, x);
+       result =
+          /*<<list.ml:257:17>>*/  /*<<list.ml:257:17>>*/ caml_call2(f, i$0, x);
       if(result)  /*<<list.ml:258:29>>*/ return result;
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -3876,7 +3964,7 @@
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:265:17>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
       var
-        /*<<list.ml:265:26>>*/ block = [0, x, 24029],
+       block =  /*<<list.ml:265:26>>*/ [0, x, 24029],
        dst = block,
        offset = 1,
        param$1 = l;
@@ -3887,7 +3975,7 @@
        }
        var l$0 = param$1[2], x$0 = param$1[1];
         /*<<list.ml:265:17>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x$0)){
-         /*<<list.ml:265:26>>*/ var dst$0 = [0, x$0, 24029];
+        var dst$0 =  /*<<list.ml:265:26>>*/ [0, x$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
         offset = 1;
@@ -3905,14 +3993,14 @@
     var i = 0, param = l$1;
     for(;;){
      if(! param)  /*<<list.ml:270:10>>*/ return 0;
-     var l = param[2], x = param[1],  /*<<list.ml:272:6>>*/ i$0 = i + 1 | 0;
+     var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
       /*<<list.ml:273:9>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i, x))
       break;
      i = i$0;
      param = l;
     }
     var
-      /*<<list.ml:273:20>>*/ block = [0, x, 24029],
+     block =  /*<<list.ml:273:20>>*/ [0, x, 24029],
      dst = block,
      offset = 1,
      i$1 = i$0,
@@ -3922,9 +4010,9 @@
      var
       l$0 = param$0[2],
       x$0 = param$0[1],
-       /*<<list.ml:272:6>>*/ i$2 = i$1 + 1 | 0;
+      i$2 =  /*<<list.ml:272:6>>*/ i$1 + 1 | 0;
       /*<<list.ml:273:9>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i$1, x$0)){
-       /*<<list.ml:273:20>>*/ var dst$0 = [0, x$0, 24029];
+      var dst$0 =  /*<<list.ml:273:20>>*/ [0, x$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
       offset = 1;
@@ -3941,11 +4029,11 @@
      var
       l = param$0[2],
       x = param$0[1],
-       /*<<list.ml:280:12>>*/ match =  /*<<list.ml:280:12>>*/ caml_call1(f, x);
+      match =  /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1(f, x);
      if(match){
       var
        v = match[1],
-        /*<<list.ml:282:18>>*/ block = [0, v, 24029],
+       block =  /*<<list.ml:282:18>>*/ [0, v, 24029],
        dst = block,
        offset = 1,
        param$1 = l;
@@ -3957,10 +4045,10 @@
        var
         l$0 = param$1[2],
         x$0 = param$1[1],
-         /*<<list.ml:280:12>>*/ match$0 =
-           /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
+        match$0 =
+           /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
        if(match$0){
-        var v$0 = match$0[1],  /*<<list.ml:282:18>>*/ dst$0 = [0, v$0, 24029];
+        var v$0 = match$0[1], dst$0 =  /*<<list.ml:282:18>>*/ [0, v$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
         offset = 1;
@@ -3981,12 +4069,12 @@
      var
       xs = param$0[2],
       x = param$0[1],
-       /*<<list.ml:286:32>>*/ ys =  /*<<list.ml:286:32>>*/ caml_call1(f, x);
+      ys =  /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1(f, x);
      if(ys){
       var
        ys$1 = ys[2],
        y = ys[1],
-        /*<<list.ml:290:15>>*/ block = [0, y, 24029],
+       block =  /*<<list.ml:290:15>>*/ [0, y, 24029],
        dst = block,
        offset = 1,
        ys$2 = ys$1,
@@ -3996,7 +4084,7 @@
         var
          ys$3 = ys$2[2],
          y$0 = ys$2[1],
-          /*<<list.ml:290:15>>*/ dst$0 = [0, y$0, 24029];
+         dst$0 =  /*<<list.ml:290:15>>*/ [0, y$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
         offset = 1;
@@ -4007,8 +4095,8 @@
         var
          xs$0 = xs$1[2],
          x$0 = xs$1[1],
-          /*<<list.ml:286:32>>*/ ys$0 =
-            /*<<list.ml:286:32>>*/ caml_call1(f, x$0);
+         ys$0 =
+            /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1(f, x$0);
         ys$2 = ys$0;
         xs$1 = xs$0;
        }
@@ -4024,11 +4112,12 @@
      var
       l$0 = param[2],
       x = param[1],
-       /*<<list.ml:296:22>>*/ match =
-         /*<<list.ml:296:22>>*/ caml_call2(f, accu$0, x),
+      match =
+         /*<<list.ml:296:22>>*/  /*<<list.ml:296: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];
+      l_accu$0 =  /*<<list.ml:297:17>>*/ [0, x$0, l_accu];
      accu$0 = accu$1;
      l_accu = l_accu$0;
      param = l$0;
@@ -4038,17 +4127,17 @@
     var yes = 0, no = 0, param = l;
     for(;;){
      if(! param){
-       /*<<list.ml:302:20>>*/ var _x_ = rev(no);
+      var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
        /*<<list.ml:302: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>>*/ var yes$0 = [0, x, yes];
+      var yes$0 =  /*<<list.ml:303:31>>*/ [0, x, yes];
       yes = yes$0;
       param = l$0;
      }
      else{
-       /*<<list.ml:303:61>>*/ var no$0 = [0, x, no];
+      var no$0 =  /*<<list.ml:303:61>>*/ [0, x, no];
       no = no$0;
       param = l$0;
      }
@@ -4058,20 +4147,20 @@
     var left = 0, right = 0, param = l;
     for(;;){
      if(! param){
-       /*<<list.ml:308:21>>*/ var _w_ = rev(right);
+      var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
        /*<<list.ml:308:10>>*/ return [0, rev(left), _w_];
      }
      var
       l$0 = param[2],
       x = param[1],
-       /*<<list.ml:310:17>>*/ match =  /*<<list.ml:310:17>>*/ caml_call1(p, x);
+      match =  /*<<list.ml:310:17>>*/  /*<<list.ml:310:17>>*/ caml_call1(p, x);
      if(0 === match[0]){
-      var v = match[1],  /*<<list.ml:311:31>>*/ left$0 = [0, v, left];
+      var v = match[1], left$0 =  /*<<list.ml:311:31>>*/ [0, v, left];
       left = left$0;
       param = l$0;
      }
      else{
-      var v$0 = match[1],  /*<<list.ml:312:37>>*/ right$0 = [0, v$0, right];
+      var v$0 = match[1], right$0 =  /*<<list.ml:312:37>>*/ [0, v$0, right];
       right = right$0;
       param = l$0;
      }
@@ -4084,7 +4173,7 @@
      match = param[1],
      y = match[2],
      x = match[1],
-      /*<<list.ml:320:21>>*/ match$0 = split(l),
+     match$0 =  /*<<list.ml:320:21>>*/ split(l),
      ry = match$0[2],
      rx = match$0[1];
      /*<<list.ml:320:32>>*/ return [0, [0, x, rx], [0, y, ry]];
@@ -4119,8 +4208,9 @@
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-          /*<<list.ml:362:19>>*/ s =
-           0 <  /*<<list.ml:362:19>>*/ caml_call2(cmp, x1, x2)
+         s =
+            /*<<list.ml:362:19>>*/ 0
+            <  /*<<list.ml:362:19>>*/ caml_call2(cmp, x1, x2)
             ? [0, x2, [0, x1, 0]]
             : [0, x1, [0, x2, 0]];
          /*<<list.ml:363:8>>*/ return [0, s, tl];
@@ -4137,8 +4227,9 @@
          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)
+         s$0 =
+            /*<<list.ml:366:13>>*/ 0
+            <  /*<<list.ml:366:13>>*/ caml_call2(cmp, x1$0, x2$0)
             ? 0
               <  /*<<list.ml:370:18>>*/ caml_call2(cmp, x1$0, x3)
               ? 0
@@ -4160,10 +4251,10 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:378:21>>*/ match$0 = rev_sort(n1, l),
+      match$0 =  /*<<list.ml:378:21>>*/ rev_sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:379:21>>*/ match$1 = rev_sort(n2, l2$0),
+      match$1 =  /*<<list.ml:379:21>>*/ rev_sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4175,12 +4266,12 @@
         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>>*/ var accu$0 = [0, h1, accu];
+         var accu$0 =  /*<<list.ml:356:33>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$0;
          continue;
         }
-         /*<<list.ml:357:33>>*/ var accu$1 = [0, h2, accu];
+        var accu$1 =  /*<<list.ml:357:33>>*/ [0, h2, accu];
         l2 = t2;
         accu = accu$1;
         continue;
@@ -4201,8 +4292,9 @@
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-          /*<<list.ml:384:19>>*/ s =
-           0 <  /*<<list.ml:384:19>>*/ caml_call2(cmp, x1, x2)
+         s =
+            /*<<list.ml:384:19>>*/ 0
+            <  /*<<list.ml:384:19>>*/ caml_call2(cmp, x1, x2)
             ? [0, x1, [0, x2, 0]]
             : [0, x2, [0, x1, 0]];
          /*<<list.ml:385:8>>*/ return [0, s, tl];
@@ -4219,8 +4311,9 @@
          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)
+         s$0 =
+            /*<<list.ml:388:13>>*/ 0
+            <  /*<<list.ml:388:13>>*/ caml_call2(cmp, x1$0, x2$0)
             ? 0
               <  /*<<list.ml:389:15>>*/ caml_call2(cmp, x2$0, x3)
               ? [0, x1$0, [0, x2$0, [0, x3, 0]]]
@@ -4242,10 +4335,10 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:400:21>>*/ match$0 = sort(n1, l),
+      match$0 =  /*<<list.ml:400:21>>*/ sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:401:21>>*/ match$1 = sort(n2, l2$0),
+      match$1 =  /*<<list.ml:401:21>>*/ sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4257,12 +4350,12 @@
         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>>*/ var accu$0 = [0, h2, accu];
+         var accu$0 =  /*<<list.ml:348:29>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$0;
          continue;
         }
-         /*<<list.ml:347:29>>*/ var accu$1 = [0, h1, accu];
+        var accu$1 =  /*<<list.ml:347:29>>*/ [0, h1, accu];
         l1 = t1;
         accu = accu$1;
         continue;
@@ -4274,7 +4367,7 @@
        /*<<list.ml:402:8>>*/ return [0, _s_, tl$0];
      }
      /*<<list.ml:402:32>>*/ }
-     /*<<list.ml:404:12>>*/ var len = length(l);
+    var len =  /*<<list.ml:404:12>>*/ length(l);
      /*<<list.ml:405:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
     /*<<list.ml:405:41>>*/ }
    function sort_uniq(cmp, l){
@@ -4287,10 +4380,11 @@
          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 =
-           0 === c$0
+         c$0 =
+            /*<<list.ml:446:18>>*/  /*<<list.ml:446:18>>*/ caml_call2
+            (cmp, x1, x2),
+         s =
+            /*<<list.ml:447:10>>*/ 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];
@@ -4307,28 +4401,33 @@
          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);
+         c$1 =
+            /*<<list.ml:452:18>>*/  /*<<list.ml:452:18>>*/ caml_call2
+            (cmp, x1$0, x2$0);
          /*<<list.ml:453:10>>*/ if(0 === c$1)
          var
-           /*<<list.ml:454:20>>*/ c$2 =
-             /*<<list.ml:454:20>>*/ caml_call2(cmp, x2$0, x3),
-           /*<<list.ml:455:12>>*/ _n_ =
-            0 === c$2
+          c$2 =
+             /*<<list.ml:454:20>>*/  /*<<list.ml:454:20>>*/ caml_call2
+             (cmp, x2$0, x3),
+          _n_ =
+             /*<<list.ml:455:12>>*/ 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>>*/ var
-          c$3 =  /*<<list.ml:466:20>>*/ caml_call2(cmp, x1$0, x3);
+         var
+          c$3 =
+             /*<<list.ml:466:20>>*/  /*<<list.ml:466:20>>*/ caml_call2
+             (cmp, x1$0, x3);
           /*<<list.ml:467:12>>*/ if(0 === c$3)
           var _o_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
           var
-            /*<<list.ml:470:22>>*/ c$4 =
-              /*<<list.ml:470:22>>*/ caml_call2(cmp, x2$0, x3),
-            /*<<list.ml:471:14>>*/ _p_ =
-             0 === c$4
+           c$4 =
+              /*<<list.ml:470:22>>*/  /*<<list.ml:470:22>>*/ caml_call2
+              (cmp, x2$0, x3),
+           _p_ =
+              /*<<list.ml:471:14>>*/ 0 === c$4
               ? [0, x2$0, [0, x1$0, 0]]
               : 0
                 <= c$4
@@ -4340,16 +4439,19 @@
          var s$0 = _o_;
         }
         else{
-          /*<<list.ml:457:20>>*/ var
-          c$5 =  /*<<list.ml:457:20>>*/ caml_call2(cmp, x2$0, x3);
+         var
+          c$5 =
+             /*<<list.ml:457:20>>*/  /*<<list.ml:457:20>>*/ caml_call2
+             (cmp, x2$0, x3);
           /*<<list.ml:458:12>>*/ if(0 === c$5)
           var _q_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
           var
-            /*<<list.ml:461:22>>*/ c$6 =
-              /*<<list.ml:461:22>>*/ caml_call2(cmp, x1$0, x3),
-            /*<<list.ml:462:14>>*/ _r_ =
-             0 === c$6
+           c$6 =
+              /*<<list.ml:461:22>>*/  /*<<list.ml:461:22>>*/ caml_call2
+              (cmp, x1$0, x3),
+           _r_ =
+              /*<<list.ml:462:14>>*/ 0 === c$6
               ? [0, x1$0, [0, x2$0, 0]]
               : 0
                 <= c$6
@@ -4367,10 +4469,10 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:479:21>>*/ match$0 = rev_sort(n1, l),
+      match$0 =  /*<<list.ml:479:21>>*/ rev_sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:480:21>>*/ match$1 = rev_sort(n2, l2$0),
+      match$1 =  /*<<list.ml:480:21>>*/ rev_sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4384,22 +4486,23 @@
          h2 = l2[1],
          t1 = l1[2],
          h1 = l1[1],
-          /*<<list.ml:436:16>>*/ c =
-            /*<<list.ml:436:16>>*/ caml_call2(cmp, h1, h2);
+         c =
+            /*<<list.ml:436:16>>*/  /*<<list.ml:436:16>>*/ caml_call2
+            (cmp, h1, h2);
          /*<<list.ml:437:8>>*/ if(0 === c){
-          /*<<list.ml:437:42>>*/ var accu$0 = [0, h1, accu];
+         var accu$0 =  /*<<list.ml:437:42>>*/ [0, h1, accu];
          l1 = t1;
          l2 = t2;
          accu = accu$0;
          continue;
         }
         if(0 < c){
-          /*<<list.ml:439:33>>*/ var accu$1 = [0, h1, accu];
+         var accu$1 =  /*<<list.ml:439:33>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$1;
          continue;
         }
-         /*<<list.ml:440:33>>*/ var accu$2 = [0, h2, accu];
+        var accu$2 =  /*<<list.ml:440:33>>*/ [0, h2, accu];
         l2 = t2;
         accu = accu$2;
         continue;
@@ -4420,10 +4523,11 @@
          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 =
-           0 === c$0
+         c$0 =
+            /*<<list.ml:486:18>>*/  /*<<list.ml:486:18>>*/ caml_call2
+            (cmp, x1, x2),
+         s =
+            /*<<list.ml:487:10>>*/ 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];
@@ -4440,30 +4544,35 @@
          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);
+         c$1 =
+            /*<<list.ml:492:18>>*/  /*<<list.ml:492:18>>*/ caml_call2
+            (cmp, x1$0, x2$0);
          /*<<list.ml:493:10>>*/ if(0 === c$1)
          var
-           /*<<list.ml:494:20>>*/ c$2 =
-             /*<<list.ml:494:20>>*/ caml_call2(cmp, x2$0, x3),
-           /*<<list.ml:495:12>>*/ _g_ =
-            0 === c$2
+          c$2 =
+             /*<<list.ml:494:20>>*/  /*<<list.ml:494:20>>*/ caml_call2
+             (cmp, x2$0, x3),
+          _g_ =
+             /*<<list.ml:495:12>>*/ 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>>*/ var
-          c$3 =  /*<<list.ml:497:20>>*/ caml_call2(cmp, x2$0, x3);
+         var
+          c$3 =
+             /*<<list.ml:497:20>>*/  /*<<list.ml:497:20>>*/ caml_call2
+             (cmp, x2$0, x3);
           /*<<list.ml:498: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
           var
-            /*<<list.ml:501:22>>*/ c$4 =
-              /*<<list.ml:501:22>>*/ caml_call2(cmp, x1$0, x3),
-            /*<<list.ml:502:14>>*/ _i_ =
-             0 === c$4
+           c$4 =
+              /*<<list.ml:501:22>>*/  /*<<list.ml:501:22>>*/ caml_call2
+              (cmp, x1$0, x3),
+           _i_ =
+              /*<<list.ml:502:14>>*/ 0 === c$4
               ? [0, x1$0, [0, x2$0, 0]]
               : 0
                 < c$4
@@ -4473,18 +4582,21 @@
          var s$0 = _h_;
         }
         else{
-          /*<<list.ml:506:20>>*/ var
-          c$5 =  /*<<list.ml:506:20>>*/ caml_call2(cmp, x1$0, x3);
+         var
+          c$5 =
+             /*<<list.ml:506:20>>*/  /*<<list.ml:506:20>>*/ caml_call2
+             (cmp, x1$0, x3);
           /*<<list.ml:507: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
           var
-            /*<<list.ml:510:22>>*/ c$6 =
-              /*<<list.ml:510:22>>*/ caml_call2(cmp, x2$0, x3),
-            /*<<list.ml:511:14>>*/ _k_ =
-             0 === c$6
+           c$6 =
+              /*<<list.ml:510:22>>*/  /*<<list.ml:510:22>>*/ caml_call2
+              (cmp, x2$0, x3),
+           _k_ =
+              /*<<list.ml:511:14>>*/ 0 === c$6
               ? [0, x2$0, [0, x1$0, 0]]
               : 0
                 < c$6
@@ -4500,10 +4612,10 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-       /*<<list.ml:519:21>>*/ match$0 = sort(n1, l),
+      match$0 =  /*<<list.ml:519:21>>*/ sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-       /*<<list.ml:520:21>>*/ match$1 = sort(n2, l2$0),
+      match$1 =  /*<<list.ml:520:21>>*/ sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4517,22 +4629,23 @@
          h2 = l2[1],
          t1 = l1[2],
          h1 = l1[1],
-          /*<<list.ml:425:16>>*/ c =
-            /*<<list.ml:425:16>>*/ caml_call2(cmp, h1, h2);
+         c =
+            /*<<list.ml:425:16>>*/  /*<<list.ml:425:16>>*/ caml_call2
+            (cmp, h1, h2);
          /*<<list.ml:426:8>>*/ if(0 === c){
-          /*<<list.ml:426:38>>*/ var accu$0 = [0, h1, accu];
+         var accu$0 =  /*<<list.ml:426:38>>*/ [0, h1, accu];
          l1 = t1;
          l2 = t2;
          accu = accu$0;
          continue;
         }
         if(0 <= c){
-          /*<<list.ml:429:29>>*/ var accu$1 = [0, h2, accu];
+         var accu$1 =  /*<<list.ml:429:29>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$1;
          continue;
         }
-         /*<<list.ml:428:29>>*/ var accu$2 = [0, h1, accu];
+        var accu$2 =  /*<<list.ml:428:29>>*/ [0, h1, accu];
         l1 = t1;
         accu = accu$2;
         continue;
@@ -4544,7 +4657,7 @@
        /*<<list.ml:521:8>>*/ return [0, _e_, tl$0];
      }
      /*<<list.ml:521:32>>*/ }
-     /*<<list.ml:523:12>>*/ var len = length(l);
+    var len =  /*<<list.ml:523:12>>*/ length(l);
      /*<<list.ml:524:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
     /*<<list.ml:524:41>>*/ }
    function compare_lengths(l1, l2){
@@ -4563,7 +4676,7 @@
      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>>*/ var n$1 = n$0 - 1 | 0;
+     var n$1 =  /*<<list.ml:541:6>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
@@ -4581,8 +4694,9 @@
         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);
+        _d_ =
+           /*<<list.ml:558:22>>*/  /*<<list.ml:558:22>>*/ caml_call2
+           (eq, a1, a2);
         /*<<list.ml:558:22>>*/ if(! _d_)  /*<<list.ml:558:22>>*/ return _d_;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -4602,8 +4716,9 @@
      var
       l2$1 = l2$0[2],
       a2 = l2$0[1],
-       /*<<list.ml:566:12>>*/ c =
-         /*<<list.ml:566:12>>*/ caml_call2(cmp, a1, a2);
+      c =
+         /*<<list.ml:566:12>>*/  /*<<list.ml:566:12>>*/ caml_call2
+         (cmp, a1, a2);
       /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
      l1$0 = l1$1;
      l2$0 = l2$1;
@@ -4621,36 +4736,37 @@
       /*<<?>>*/ return aux(l, _b_);};
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
-     /*<<list.ml:580:8>>*/ var
-     match =  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
+    var
+     match =  /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
     if(! match)  /*<<list.ml:581:15>>*/ return 0;
     var
      seq$0 = match[2],
      x1 = match[1],
-      /*<<list.ml:583:18>>*/ match$0 =
-        /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
+     match$0 =
+        /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
     if(! match$0)  /*<<list.ml:584:19>>*/ return [0, x1, 0];
     var
      seq$1 = match$0[2],
      x2 = match$0[1],
-      /*<<list.ml:585:36>>*/ block = [0, x2, 24029],
+     block =  /*<<list.ml:585:36>>*/ [0, x2, 24029],
      dst = block,
      offset = 1,
      seq$2 = seq$1;
      /*<<list.ml:580:2>>*/ for(;;){
-      /*<<list.ml:580:8>>*/ var
-      match$1 =  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
+     var
+      match$1 =
+         /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
      if(match$1){
       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);
+       match$2 =
+          /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1(seq$3, 0);
       if(match$2){
        var
         seq$4 = match$2[2],
         x2$0 = match$2[1],
-         /*<<list.ml:585:36>>*/ dst$0 = [0, x2$0, 24029];
+        dst$0 =  /*<<list.ml:585:36>>*/ [0, x2$0, 24029];
        dst[1 + offset] = [0, x1$0, dst$0];
        dst = dst$0;
        offset = 1;
@@ -4741,8 +4857,8 @@
 (function(globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_hash = runtime.caml_hash;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_hash =  /*<<?>>*/ runtime.caml_hash;
    function abs(x){
      /*<<int.ml:29:12>>*/ return 0 <= x ? x : - x | 0;
     /*<<int.ml:29:36>>*/ }
@@ -4796,31 +4912,31 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_bytes_ml = "bytes.ml",
-     /*<<?>>*/ cst_index_out_of_bounds$3 = "index out of bounds",
-     /*<<?>>*/ caml_blit_bytes = runtime.caml_blit_bytes,
-     /*<<?>>*/ caml_bswap16 = runtime.caml_bswap16,
-     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
-     /*<<?>>*/ caml_bytes_get16 = runtime.caml_bytes_get16,
-     /*<<?>>*/ caml_bytes_get32 = runtime.caml_bytes_get32,
-     /*<<?>>*/ caml_bytes_get64 = runtime.caml_bytes_get64,
-     /*<<?>>*/ caml_bytes_of_string = runtime.caml_bytes_of_string,
-     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
-     /*<<?>>*/ caml_bytes_set16 = runtime.caml_bytes_set16,
-     /*<<?>>*/ caml_bytes_set32 = runtime.caml_bytes_set32,
-     /*<<?>>*/ caml_bytes_set64 = runtime.caml_bytes_set64,
-     /*<<?>>*/ caml_bytes_unsafe_get = runtime.caml_bytes_unsafe_get,
-     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_fill_bytes = runtime.caml_fill_bytes,
-     /*<<?>>*/ caml_int32_bswap = runtime.caml_int32_bswap,
-     /*<<?>>*/ caml_int64_bswap = runtime.caml_int64_bswap,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-     /*<<?>>*/ caml_string_of_bytes = runtime.caml_string_of_bytes,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_bytes_ml =  /*<<?>>*/ "bytes.ml",
+    cst_index_out_of_bounds$3 =  /*<<?>>*/ "index out of bounds",
+    caml_blit_bytes =  /*<<?>>*/ runtime.caml_blit_bytes,
+    caml_bswap16 =  /*<<?>>*/ runtime.caml_bswap16,
+    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
+    caml_bytes_get16 =  /*<<?>>*/ runtime.caml_bytes_get16,
+    caml_bytes_get32 =  /*<<?>>*/ runtime.caml_bytes_get32,
+    caml_bytes_get64 =  /*<<?>>*/ runtime.caml_bytes_get64,
+    caml_bytes_of_string =  /*<<?>>*/ runtime.caml_bytes_of_string,
+    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
+    caml_bytes_set16 =  /*<<?>>*/ runtime.caml_bytes_set16,
+    caml_bytes_set32 =  /*<<?>>*/ runtime.caml_bytes_set32,
+    caml_bytes_set64 =  /*<<?>>*/ runtime.caml_bytes_set64,
+    caml_bytes_unsafe_get =  /*<<?>>*/ runtime.caml_bytes_unsafe_get,
+    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_fill_bytes =  /*<<?>>*/ runtime.caml_fill_bytes,
+    caml_int32_bswap =  /*<<?>>*/ runtime.caml_int32_bswap,
+    caml_int64_bswap =  /*<<?>>*/ runtime.caml_int64_bswap,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
+    caml_string_of_bytes =  /*<<?>>*/ runtime.caml_string_of_bytes,
+    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)
@@ -4842,21 +4958,21 @@
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_Char = global_data.Stdlib__Char;
    function make(n, c){
-     /*<<bytes.ml:42:10>>*/ var
-     s =  /*<<bytes.ml:42:10>>*/ caml_create_bytes(n);
+    var
+     s =  /*<<bytes.ml:42:10>>*/  /*<<bytes.ml:42:10>>*/ caml_create_bytes(n);
      /*<<bytes.ml:43:2>>*/  /*<<bytes.ml:43:2>>*/ caml_fill_bytes(s, 0, n, c);
      /*<<bytes.ml:43:2>>*/ return s;
     /*<<bytes.ml:44:3>>*/ }
    function init(n, f){
     var
-      /*<<bytes.ml:47:10>>*/ s =  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
-      /*<<bytes.ml:48:2>>*/ _ap_ = n - 1 | 0,
-      /*<<bytes.ml:47:10>>*/ _ao_ = 0;
+     s =  /*<<bytes.ml:47:10>>*/  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
+     _ap_ =  /*<<bytes.ml:48:2>>*/ n - 1 | 0,
+     _ao_ =  /*<<bytes.ml:47:10>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
       caml_bytes_unsafe_set(s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
-       /*<<bytes.ml:48:2>>*/ var _aq_ = i + 1 | 0;
+      var _aq_ =  /*<<bytes.ml:48:2>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
@@ -4864,8 +4980,8 @@
      /*<<bytes.ml:51:2>>*/ return s;
     /*<<bytes.ml:51:3>>*/ }
    var
-     /*<<bytes.ml:53:12>>*/ empty =
-       /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
+    empty =
+       /*<<bytes.ml:53:12>>*/  /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
     cst_String_sub_Bytes_sub = "String.sub / Bytes.sub",
     cst_Bytes_extend = "Bytes.extend",
     cst_String_fill_Bytes_fill = "String.fill / Bytes.fill",
@@ -4885,8 +5001,8 @@
    function copy(s){
     var
      len = caml_ml_bytes_length(s),
-      /*<<bytes.ml:57:10>>*/ r =
-        /*<<bytes.ml:57:10>>*/ caml_create_bytes(len);
+     r =
+        /*<<bytes.ml:57:10>>*/  /*<<bytes.ml:57:10>>*/ caml_create_bytes(len);
      /*<<bytes.ml:58:2>>*/  /*<<bytes.ml:58:2>>*/ caml_blit_bytes
      (s, 0, r, 0, len);
      /*<<bytes.ml:58:2>>*/ return r;
@@ -4901,8 +5017,9 @@
    function sub(s, ofs, len){
      /*<<bytes.ml:65:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs){
-      /*<<bytes.ml:68:12>>*/ var
-      r =  /*<<bytes.ml:68:12>>*/ caml_create_bytes(len);
+     var
+      r =
+         /*<<bytes.ml:68:12>>*/  /*<<bytes.ml:68:12>>*/ caml_create_bytes(len);
       /*<<bytes.ml:69:4>>*/  /*<<bytes.ml:69:4>>*/ caml_blit_bytes
       (s, ofs, r, 0, len);
       /*<<bytes.ml:69:4>>*/ return r;
@@ -4926,17 +5043,18 @@
     /*<<bytes.ml:81:10>>*/ }
    function extend(s, left, right){
     var
-      /*<<bytes.ml:84:12>>*/ len =
-       symbol(symbol(caml_ml_bytes_length(s), left), right),
-      /*<<bytes.ml:85:10>>*/ r =
-        /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
+     len =
+        /*<<bytes.ml:84:12>>*/ symbol
+        (symbol(caml_ml_bytes_length(s), left), right),
+     r =
+        /*<<bytes.ml:85:10>>*/  /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
     if(0 <= left)
      var dstoff = left, srcoff = 0;
     else
      var dstoff = 0, srcoff = - left | 0;
-     /*<<bytes.ml:87:15>>*/ var
+    var
      cpylen =
-        /*<<bytes.ml:87:15>>*/ caml_call2
+        /*<<bytes.ml:87:15>>*/  /*<<bytes.ml:87:15>>*/ caml_call2
         (Stdlib_Int[10],
          caml_ml_bytes_length(s) - srcoff | 0,
          len - dstoff | 0);
@@ -4982,13 +5100,13 @@
    function iter(f, a){
     var
      _al_ = caml_ml_bytes_length(a) - 1 | 0,
-      /*<<bytes.ml:110:2>>*/ _ak_ = 0;
+     _ak_ =  /*<<bytes.ml:110:2>>*/ 0;
     if(_al_ >= 0){
      var i = _ak_;
      for(;;){
        /*<<bytes.ml:110:31>>*/  /*<<bytes.ml:110:31>>*/ caml_call1
        (f, caml_bytes_unsafe_get(a, i));
-       /*<<bytes.ml:110:31>>*/ var _am_ = i + 1 | 0;
+      var _am_ =  /*<<bytes.ml:110:31>>*/ i + 1 | 0;
       if(_al_ === i) break;
       i = _am_;
      }
@@ -4998,13 +5116,13 @@
    function iteri(f, a){
     var
      _ai_ = caml_ml_bytes_length(a) - 1 | 0,
-      /*<<bytes.ml:114:2>>*/ _ah_ = 0;
+     _ah_ =  /*<<bytes.ml:114:2>>*/ 0;
     if(_ai_ >= 0){
      var i = _ah_;
      for(;;){
        /*<<bytes.ml:114:31>>*/  /*<<bytes.ml:114:31>>*/ caml_call2
        (f, i, caml_bytes_unsafe_get(a, i));
-       /*<<bytes.ml:114:31>>*/ var _aj_ = i + 1 | 0;
+      var _aj_ =  /*<<bytes.ml:114:31>>*/ i + 1 | 0;
       if(_ai_ === i) break;
       i = _aj_;
      }
@@ -5039,8 +5157,9 @@
      var _ag_ = caml_ml_bytes_length(hd) + acc | 0;
     }
     var
-      /*<<bytes.ml:136:12>>*/ dst =
-        /*<<bytes.ml:136:12>>*/ caml_create_bytes(_ag_),
+     dst =
+        /*<<bytes.ml:136:12>>*/  /*<<bytes.ml:136:12>>*/ caml_create_bytes
+        (_ag_),
      pos = pos$1,
      param$0 = l;
     for(;;){
@@ -5064,10 +5183,12 @@
    function cat(s1, s2){
     var
      l1 = caml_ml_bytes_length(s1),
-      /*<<bytes.ml:141:2>>*/ l2 =
-        /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length(s2),
-      /*<<bytes.ml:142:10>>*/ r =
-        /*<<bytes.ml:142:10>>*/ caml_create_bytes(l1 + l2 | 0);
+     l2 =
+        /*<<bytes.ml:141:2>>*/  /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length
+        (s2),
+     r =
+        /*<<bytes.ml:142:10>>*/  /*<<bytes.ml:142:10>>*/ caml_create_bytes
+        (l1 + l2 | 0);
      /*<<bytes.ml:143:2>>*/  /*<<bytes.ml:143:2>>*/ caml_blit_bytes
      (s1, 0, r, 0, l1);
      /*<<bytes.ml:144:2>>*/  /*<<bytes.ml:144:2>>*/ caml_blit_bytes
@@ -5075,7 +5196,7 @@
      /*<<bytes.ml:144:2>>*/ return r;
     /*<<bytes.ml:145:3>>*/ }
    function is_space(param){
-     /*<<bytes.ml:151:15>>*/ var _af_ = param - 9 | 0;
+    var _af_ =  /*<<bytes.ml:151:15>>*/ param - 9 | 0;
     a:
     {
      if(4 < _af_ >>> 0){if(23 !== _af_) break a;} else if(2 === _af_) break a;
@@ -5084,14 +5205,14 @@
      /*<<bytes.ml:153:9>>*/ return 0;
     /*<<bytes.ml:153:14>>*/ }
    function trim(s){
-    var len = caml_ml_bytes_length(s),  /*<<bytes.ml:157:10>>*/ i = [0, 0];
+    var len = caml_ml_bytes_length(s), i =  /*<<bytes.ml:157:10>>*/ [0, 0];
     for(;;){
      if(i[1] >= len) break;
       /*<<bytes.ml:158:20>>*/ if(! is_space(caml_bytes_unsafe_get(s, i[1])))
       break;
      i[1]++;
     }
-     /*<<bytes.ml:161:10>>*/ var j = [0, len - 1 | 0];
+    var j =  /*<<bytes.ml:161:10>>*/ [0, len - 1 | 0];
     for(;;){
      if(i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
      return i[1] <= j[1] ? sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0) : empty;
@@ -5099,9 +5220,9 @@
     /*<<bytes.ml:168:9>>*/ }
    function unsafe_escape(s){
     var
-      /*<<bytes.ml:184:10>>*/ n = [0, 0],
+     n =  /*<<bytes.ml:184:10>>*/ [0, 0],
      ___ = caml_ml_bytes_length(s) - 1 | 0,
-      /*<<bytes.ml:184:10>>*/ _Z_ = 0;
+     _Z_ =  /*<<bytes.ml:184:10>>*/ 0;
     if(___ >= 0){
      var i$0 = _Z_;
      for(;;){
@@ -5132,18 +5253,20 @@
        var _ad_ = 2;
       }
       n[1] = n[1] + _ad_ | 0;
-       /*<<bytes.ml:185:2>>*/ var _ae_ = i$0 + 1 | 0;
+      var _ae_ =  /*<<bytes.ml:185:2>>*/ i$0 + 1 | 0;
       if(___ === i$0) break;
       i$0 = _ae_;
      }
     }
     if(n[1] === caml_ml_bytes_length(s))  /*<<bytes.ml:192:24>>*/ return s;
-     /*<<bytes.ml:194:13>>*/ var
-     s$0 =  /*<<bytes.ml:194:13>>*/ caml_create_bytes(n[1]);
+    var
+     s$0 =
+        /*<<bytes.ml:194:13>>*/  /*<<bytes.ml:194:13>>*/ caml_create_bytes
+        (n[1]);
     n[1] = 0;
     var
      _aa_ = caml_ml_bytes_length(s) - 1 | 0,
-      /*<<bytes.ml:196:4>>*/ _$_ = 0;
+     _$_ =  /*<<bytes.ml:196:4>>*/ 0;
     if(_aa_ >= 0){
      var i = _$_;
      for(;;){
@@ -5203,7 +5326,7 @@
        caml_bytes_unsafe_set(s$0, n[1], c);
       }
       n[1]++;
-       /*<<bytes.ml:196:4>>*/ var _ab_ = i + 1 | 0;
+      var _ab_ =  /*<<bytes.ml:196:4>>*/ i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
@@ -5211,17 +5334,17 @@
      /*<<bytes.ml:221:4>>*/ return s$0;
     /*<<bytes.ml:222:5>>*/ }
    function escaped(b){
-     /*<<bytes.ml:225:10>>*/ var b$0 = copy(b);
+    var b$0 =  /*<<bytes.ml:225:10>>*/ copy(b);
      /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0);
     /*<<bytes.ml:228:17>>*/ }
    function map(f, s){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
     var
-      /*<<bytes.ml:233:12>>*/ r =
-        /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
-      /*<<bytes.ml:234:4>>*/ _X_ = l - 1 | 0,
-      /*<<bytes.ml:233:12>>*/ _W_ = 0;
+     r =
+        /*<<bytes.ml:233:12>>*/  /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
+     _X_ =  /*<<bytes.ml:234:4>>*/ l - 1 | 0,
+     _W_ =  /*<<bytes.ml:233:12>>*/ 0;
     if(_X_ >= 0){
      var i = _W_;
      for(;;){
@@ -5229,7 +5352,7 @@
        (r,
         i,
          /*<<bytes.ml:234:41>>*/ caml_call1(f, caml_bytes_unsafe_get(s, i)));
-       /*<<bytes.ml:234:4>>*/ var _Y_ = i + 1 | 0;
+      var _Y_ =  /*<<bytes.ml:234:4>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
@@ -5240,10 +5363,10 @@
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
     var
-      /*<<bytes.ml:241:12>>*/ r =
-        /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
-      /*<<bytes.ml:242:4>>*/ _U_ = l - 1 | 0,
-      /*<<bytes.ml:241:12>>*/ _T_ = 0;
+     r =
+        /*<<bytes.ml:241:12>>*/  /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
+     _U_ =  /*<<bytes.ml:242:4>>*/ l - 1 | 0,
+     _T_ =  /*<<bytes.ml:241:12>>*/ 0;
     if(_U_ >= 0){
      var i = _T_;
      for(;;){
@@ -5251,7 +5374,7 @@
        (r,
         i,
          /*<<bytes.ml:242:41>>*/ caml_call2(f, i, caml_bytes_unsafe_get(s, i)));
-       /*<<bytes.ml:242:4>>*/ var _V_ = i + 1 | 0;
+      var _V_ =  /*<<bytes.ml:242:4>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -5260,16 +5383,16 @@
     /*<<bytes.ml:244:5>>*/ }
    function fold_left(f, x, a){
     var
-      /*<<bytes.ml:247:10>>*/ r = [0, x],
+     r =  /*<<bytes.ml:247:10>>*/ [0, x],
      _R_ = caml_ml_bytes_length(a) - 1 | 0,
-      /*<<bytes.ml:247:10>>*/ _Q_ = 0;
+     _Q_ =  /*<<bytes.ml:247:10>>*/ 0;
     if(_R_ >= 0){
      var i = _Q_;
      for(;;){
       r[1] =
         /*<<bytes.ml:249:9>>*/ caml_call2
         (f, r[1], caml_bytes_unsafe_get(a, i));
-       /*<<bytes.ml:248:2>>*/ var _S_ = i + 1 | 0;
+      var _S_ =  /*<<bytes.ml:248:2>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
@@ -5278,16 +5401,18 @@
     /*<<bytes.ml:251:4>>*/ }
    function fold_right(f, a, x){
     var
-      /*<<bytes.ml:254:10>>*/ r = [0, x],
-      /*<<bytes.ml:255:2>>*/ _O_ =
-        /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length(a) - 1 | 0;
+     r =  /*<<bytes.ml:254:10>>*/ [0, x],
+     _O_ =
+        /*<<bytes.ml:255:2>>*/  /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length(a)
+       - 1
+       | 0;
     if(_O_ >= 0){
      var i = _O_;
      for(;;){
       r[1] =
         /*<<bytes.ml:256:9>>*/ caml_call2
         (f, caml_bytes_unsafe_get(a, i), r[1]);
-       /*<<bytes.ml:255:2>>*/ var _P_ = i - 1 | 0;
+      var _P_ =  /*<<bytes.ml:255:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _P_;
      }
@@ -5301,7 +5426,7 @@
       /*<<bytes.ml:264:12>>*/ if
       ( /*<<bytes.ml:264:12>>*/ caml_call1(p, caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:264:36>>*/ return 1;
-      /*<<bytes.ml:265:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<bytes.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:266:8>>*/ }
@@ -5312,7 +5437,7 @@
       /*<<bytes.ml:272:12>>*/ if
       (!  /*<<bytes.ml:272:12>>*/ caml_call1(p, caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:273:9>>*/ return 0;
-      /*<<bytes.ml:272:36>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<bytes.ml:272:36>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:274:8>>*/ }
@@ -5325,7 +5450,7 @@
    function apply1(f, s){
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
       /*<<bytes.ml:280:23>>*/ return s;
-     /*<<bytes.ml:281:12>>*/ var r = copy(s);
+    var r =  /*<<bytes.ml:281:12>>*/ copy(s);
     caml_bytes_unsafe_set
      (r,
       0,
@@ -5349,7 +5474,7 @@
      if(i === len_pre)  /*<<bytes.ml:294:24>>*/ return 1;
      if(caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
        /*<<bytes.ml:295:55>>*/ return 0;
-      /*<<bytes.ml:296:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<bytes.ml:296:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:297:30>>*/ }
@@ -5367,7 +5492,7 @@
       (caml_bytes_unsafe_get(s, diff + i | 0)
        !== caml_bytes_unsafe_get(suffix, i))
        /*<<bytes.ml:306:64>>*/ return 0;
-      /*<<bytes.ml:307:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<bytes.ml:307:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:308:23>>*/ }
@@ -5462,7 +5587,7 @@
      /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:377:4>>*/ try{
        /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
-       /*<<bytes.ml:377:36>>*/ var _K_ = 1;
+      var _K_ =  /*<<bytes.ml:377:36>>*/ 1;
        /*<<bytes.ml:377:36>>*/ return _K_;
      }
      catch(_L_){
@@ -5480,7 +5605,7 @@
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:388:4>>*/ try{
        /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
-       /*<<bytes.ml:388:35>>*/ var _H_ = 1;
+      var _H_ =  /*<<bytes.ml:388:35>>*/ 1;
        /*<<bytes.ml:388:35>>*/ return _H_;
      }
      catch(_I_){
@@ -5496,11 +5621,14 @@
     cst_Bytes_of_seq_cannot_grow_b = "Bytes.of_seq: cannot grow bytes";
    function split_on_char(sep, s){
     var
-      /*<<bytes.ml:398:10>>*/ r = [0, 0],
-      /*<<bytes.ml:399:10>>*/ j =
-       [0,  /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length(s)],
-      /*<<bytes.ml:400:2>>*/ _C_ =
-        /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length(s) - 1 | 0;
+     r =  /*<<bytes.ml:398:10>>*/ [0, 0],
+     j =
+        /*<<bytes.ml:399:10>>*/ [0,
+         /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length(s)],
+     _C_ =
+        /*<<bytes.ml:400:2>>*/  /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length(s)
+       - 1
+       | 0;
     if(_C_ >= 0){
      var i = _C_;
      for(;;){
@@ -5509,7 +5637,7 @@
        r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _E_];
        j[1] = i;
       }
-       /*<<bytes.ml:400:2>>*/ var _F_ = i - 1 | 0;
+      var _F_ =  /*<<bytes.ml:400:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _F_;
      }
@@ -5522,14 +5650,14 @@
       /*<<bytes.ml:412:4>>*/ if(i === caml_ml_bytes_length(s))
        /*<<bytes.ml:412:25>>*/ return 0;
      var
-       /*<<bytes.ml:414:14>>*/ x =
-         /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i),
-       /*<<bytes.ml:414:14>>*/ _A_ = i + 1 | 0;
+      x =
+         /*<<bytes.ml:414:14>>*/  /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i),
+      _A_ =  /*<<bytes.ml:414:14>>*/ i + 1 | 0;
       /*<<bytes.ml:415:6>>*/ return [0,
              x,
              function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}];
      /*<<bytes.ml:415:29>>*/ }
-     /*<<bytes.ml:417:2>>*/ var _y_ = 0;
+    var _y_ =  /*<<bytes.ml:417:2>>*/ 0;
      /*<<bytes.ml:417:2>>*/ return function(_z_){
       /*<<?>>*/ return aux(_y_, _z_);};
     /*<<bytes.ml:417:7>>*/ }
@@ -5538,35 +5666,35 @@
       /*<<bytes.ml:421:4>>*/ if(i === caml_ml_bytes_length(s))
        /*<<bytes.ml:421:25>>*/ return 0;
      var
-       /*<<bytes.ml:423:14>>*/ x =
-         /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i),
-       /*<<bytes.ml:423:14>>*/ _w_ = i + 1 | 0;
+      x =
+         /*<<bytes.ml:423:14>>*/  /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i),
+      _w_ =  /*<<bytes.ml:423:14>>*/ i + 1 | 0;
       /*<<bytes.ml:424:6>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}];
      /*<<bytes.ml:424:33>>*/ }
-     /*<<bytes.ml:426:2>>*/ var _u_ = 0;
+    var _u_ =  /*<<bytes.ml:426:2>>*/ 0;
      /*<<bytes.ml:426:2>>*/ return function(_v_){
       /*<<?>>*/ return aux(_u_, _v_);};
     /*<<bytes.ml:426:7>>*/ }
    function of_seq(i){
     var
-      /*<<bytes.ml:429:10>>*/ n = [0, 0],
-      /*<<bytes.ml:430:12>>*/ buf = [0, make(256, 0)];
+     n =  /*<<bytes.ml:429:10>>*/ [0, 0],
+     buf =  /*<<bytes.ml:430:12>>*/ [0, make(256, 0)];
      /*<<bytes.ml:439:2>>*/  /*<<bytes.ml:439:2>>*/ caml_call2
      (Stdlib_Seq[4],
       function(c){
         /*<<bytes.ml:441:7>>*/ if(n[1] === caml_ml_bytes_length(buf[1])){
-         /*<<bytes.ml:433:18>>*/ var
+        var
          new_len =
-            /*<<bytes.ml:433:18>>*/ caml_call2
+            /*<<bytes.ml:433:18>>*/  /*<<bytes.ml:433:18>>*/ caml_call2
             (Stdlib_Int[10],
              2 * caml_ml_bytes_length(buf[1]) | 0,
              Stdlib_Sys[12]);
         if(caml_ml_bytes_length(buf[1]) === new_len)
           /*<<bytes.ml:434:34>>*/  /*<<bytes.ml:434:34>>*/ caml_call1
           (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
-         /*<<bytes.ml:435:18>>*/ var new_buf = make(new_len, 0);
+        var new_buf =  /*<<bytes.ml:435:18>>*/ make(new_len, 0);
          /*<<bytes.ml:436:4>>*/ blit(buf[1], 0, new_buf, 0, n[1]);
         buf[1] = new_buf;
        }
@@ -5592,7 +5720,7 @@
     /*<<bytes.ml:477:40>>*/ }
    function get_int8(b, i){
     var
-      /*<<bytes.ml:480:2>>*/ _s_ = Stdlib_Sys[10] - 8 | 0,
+     _s_ =  /*<<bytes.ml:480:2>>*/ Stdlib_Sys[10] - 8 | 0,
      _t_ = Stdlib_Sys[10] - 8 | 0;
     return  /*<<bytes.ml:480:3>>*/ caml_bytes_get(b, i) << _t_ >> _s_;
     /*<<bytes.ml:480:65>>*/ }
@@ -5610,19 +5738,19 @@
     /*<<bytes.ml:488:24>>*/ }
    function get_int16_ne(b, i){
     var
-      /*<<bytes.ml:491:2>>*/ _q_ = Stdlib_Sys[10] - 16 | 0,
+     _q_ =  /*<<bytes.ml:491:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _r_ = Stdlib_Sys[10] - 16 | 0;
     return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16(b, i) << _r_ >> _q_;
     /*<<bytes.ml:491:71>>*/ }
    function get_int16_le(b, i){
     var
-      /*<<bytes.ml:494:2>>*/ _o_ = Stdlib_Sys[10] - 16 | 0,
+     _o_ =  /*<<bytes.ml:494:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _p_ = Stdlib_Sys[10] - 16 | 0;
     return get_uint16_le(b, i) << _p_ >> _o_;
     /*<<bytes.ml:494:71>>*/ }
    function get_int16_be(b, i){
     var
-      /*<<bytes.ml:497:2>>*/ _m_ = Stdlib_Sys[10] - 16 | 0,
+     _m_ =  /*<<bytes.ml:497:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _n_ = Stdlib_Sys[10] - 16 | 0;
     return get_uint16_be(b, i) << _n_ >> _m_;
     /*<<bytes.ml:497:71>>*/ }
@@ -5715,8 +5843,10 @@
     _e_ = [0, cst_bytes_ml, 831, 9],
     _f_ = [0, cst_bytes_ml, 820, 20];
    function dec_ret(n, u){
-     /*<<bytes.ml:557:46>>*/ var
-     _l_ =  /*<<bytes.ml:557:46>>*/ caml_call1(Stdlib_Uchar[9], u);
+    var
+     _l_ =
+        /*<<bytes.ml:557:46>>*/  /*<<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_);
     /*<<bytes.ml:557:69>>*/ }
@@ -5746,10 +5876,12 @@
     /*<<bytes.ml:594:18>>*/ }
    function get_utf_8_uchar(b, i){
     var
-      /*<<bytes.ml:597:11>>*/ b0 =
-        /*<<bytes.ml:597:11>>*/ caml_bytes_get(b, i),
-      /*<<bytes.ml:599:2>>*/ max =
-        /*<<bytes.ml:599:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
+     b0 =
+        /*<<bytes.ml:597:11>>*/  /*<<bytes.ml:597:11>>*/ caml_bytes_get(b, i),
+     max =
+        /*<<bytes.ml:599:2>>*/  /*<<bytes.ml:599:2>>*/ caml_ml_bytes_length(b)
+       - 1
+       | 0;
     a:
     {
       /*<<bytes.ml:600:2>>*/ if(224 <= b0){
@@ -5757,7 +5889,7 @@
        if(245 <= b0) break a;
        switch(b0 - 237 | 0){
          case 0:
-           /*<<bytes.ml:619:6>>*/ var i$0 = i + 1 | 0;
+          var i$0 =  /*<<bytes.ml:619:6>>*/ i + 1 | 0;
           if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return  /*<<bytes.ml:619:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5765,7 +5897,7 @@
            /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return  /*<<bytes.ml:620:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:621:6>>*/ var i$1 = i$0 + 1 | 0;
+          var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
           if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return  /*<<bytes.ml:621:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5774,7 +5906,7 @@
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
                   : dec_ret(3, utf_8_uchar_3(b0, b1$4, b2$3));
          case 3:
-           /*<<bytes.ml:625:6>>*/ var i$4 = i + 1 | 0;
+          var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
           if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return  /*<<bytes.ml:625:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5782,7 +5914,7 @@
            /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return  /*<<bytes.ml:626:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:627:6>>*/ var i$5 = i$4 + 1 | 0;
+          var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
           if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return  /*<<bytes.ml:627:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5790,7 +5922,7 @@
            /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return  /*<<bytes.ml:628:55>>*/ caml_call1
                    (dec_invalid, 2);
-           /*<<bytes.ml:629:6>>*/ var i$6 = i$5 + 1 | 0;
+          var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
           if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return  /*<<bytes.ml:629:39>>*/ caml_call1
                    (dec_invalid, 3);
@@ -5799,7 +5931,7 @@
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
                   : dec_ret(4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1));
          case 7:
-           /*<<bytes.ml:641:6>>*/ var i$10 = i + 1 | 0;
+          var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
           if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return  /*<<bytes.ml:641:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5807,7 +5939,7 @@
            /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return  /*<<bytes.ml:642:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:643:6>>*/ var i$11 = i$10 + 1 | 0;
+          var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
           if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return  /*<<bytes.ml:643:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5815,7 +5947,7 @@
            /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return  /*<<bytes.ml:644:55>>*/ caml_call1
                    (dec_invalid, 2);
-           /*<<bytes.ml:645:6>>*/ var i$12 = i$11 + 1 | 0;
+          var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
           if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return  /*<<bytes.ml:645:39>>*/ caml_call1
                    (dec_invalid, 3);
@@ -5826,7 +5958,7 @@
          case 1:
          case 2: break;
          default:
-           /*<<bytes.ml:633:6>>*/ var i$7 = i + 1 | 0;
+          var i$7 =  /*<<bytes.ml:633:6>>*/ i + 1 | 0;
           if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return  /*<<bytes.ml:633:39>>*/ caml_call1
                    (dec_invalid, 1);
@@ -5834,7 +5966,7 @@
            /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return  /*<<bytes.ml:634:55>>*/ caml_call1
                    (dec_invalid, 1);
-           /*<<bytes.ml:635:6>>*/ var i$8 = i$7 + 1 | 0;
+          var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
           if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return  /*<<bytes.ml:635:39>>*/ caml_call1
                    (dec_invalid, 2);
@@ -5842,7 +5974,7 @@
            /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return  /*<<bytes.ml:636:55>>*/ caml_call1
                    (dec_invalid, 2);
-           /*<<bytes.ml:637:6>>*/ var i$9 = i$8 + 1 | 0;
+          var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
           if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return  /*<<bytes.ml:637:39>>*/ caml_call1
                    (dec_invalid, 3);
@@ -5853,7 +5985,7 @@
        }
       }
       else if(225 > b0){
-        /*<<bytes.ml:607:6>>*/ var i$13 = i + 1 | 0;
+       var i$13 =  /*<<bytes.ml:607:6>>*/ i + 1 | 0;
        if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return  /*<<bytes.ml:607:39>>*/ caml_call1
                 (dec_invalid, 1);
@@ -5861,7 +5993,7 @@
         /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return  /*<<bytes.ml:608:55>>*/ caml_call1
                 (dec_invalid, 1);
-        /*<<bytes.ml:609:6>>*/ var i$14 = i$13 + 1 | 0;
+       var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
        if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return  /*<<bytes.ml:609:39>>*/ caml_call1
                 (dec_invalid, 2);
@@ -5870,7 +6002,7 @@
                ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
                : dec_ret(3, utf_8_uchar_3(b0, b1$5, b2$4));
       }
-       /*<<bytes.ml:613:6>>*/ var i$2 = i + 1 | 0;
+      var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
       if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return  /*<<bytes.ml:613:39>>*/ caml_call1
                (dec_invalid, 1);
@@ -5878,7 +6010,7 @@
        /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return  /*<<bytes.ml:614:55>>*/ caml_call1
                (dec_invalid, 1);
-       /*<<bytes.ml:615:6>>*/ var i$3 = i$2 + 1 | 0;
+      var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
       if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return  /*<<bytes.ml:615:39>>*/ caml_call1
                (dec_invalid, 2);
@@ -5889,7 +6021,7 @@
      }
      if(128 > b0)  /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0);
      if(194 <= b0){
-       /*<<bytes.ml:603:6>>*/ var i$15 = i + 1 | 0;
+      var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
       if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return  /*<<bytes.ml:603:39>>*/ caml_call1
                (dec_invalid, 1);
@@ -5907,10 +6039,13 @@
       /*<<?>>*/ caml_bytes_unsafe_set(_i_, _h_, _g_);
     }
     var
-      /*<<bytes.ml:652:2>>*/ max =
-        /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length(b) - 1 | 0,
-      /*<<bytes.ml:653:8>>*/ u$0 =
-        /*<<bytes.ml:653:8>>*/ caml_call1(Stdlib_Uchar[10], u);
+     max =
+        /*<<bytes.ml:652:2>>*/  /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length(b)
+       - 1
+       | 0,
+     u$0 =
+        /*<<bytes.ml:653:8>>*/  /*<<bytes.ml:653:8>>*/ caml_call1
+        (Stdlib_Uchar[10], u);
      /*<<bytes.ml:654:11>>*/ if(0 > u$0)
       /*<<bytes.ml:654:20>>*/ throw  /*<<bytes.ml:654:20>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
@@ -5919,7 +6054,7 @@
       /*<<bytes.ml:656:6>>*/ return 1;
     }
      /*<<bytes.ml:658:11>>*/ if(2047 >= u$0){
-      /*<<bytes.ml:659:6>>*/ var last$1 = i + 1 | 0;
+     var last$1 =  /*<<bytes.ml:659:6>>*/ i + 1 | 0;
      return max < last$1
              ? 0
              : (caml_bytes_set
@@ -5928,7 +6063,7 @@
                2);
     }
      /*<<bytes.ml:664:11>>*/ if(65535 >= u$0){
-      /*<<bytes.ml:665:6>>*/ var last$0 = i + 2 | 0;
+     var last$0 =  /*<<bytes.ml:665:6>>*/ i + 2 | 0;
      return max < last$0
              ? 0
              : (caml_bytes_set
@@ -5940,7 +6075,7 @@
      /*<<bytes.ml:671:11>>*/ if(1114111 < u$0)
       /*<<bytes.ml:679:9>>*/ throw  /*<<bytes.ml:679:9>>*/ caml_maybe_attach_backtrace
             ([0, Assert_failure, _a_], 1);
-     /*<<bytes.ml:672:6>>*/ var last = i + 3 | 0;
+    var last =  /*<<bytes.ml:672:6>>*/ i + 3 | 0;
     return max < last
             ? 0
             : (caml_bytes_set
@@ -5962,20 +6097,20 @@
         if(245 <= match) break a;
         switch(match - 237 | 0){
           case 0:
-            /*<<bytes.ml:708:8>>*/ var last = i + 2 | 0;
+           var last =  /*<<bytes.ml:708:8>>*/ i + 2 | 0;
            if
             (max >= last
              &&
               !
               not_in_x80_to_x9F(caml_bytes_unsafe_get(b, i + 1 | 0))
               && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last))){
-             /*<<bytes.ml:713:13>>*/ var i$0 = last + 1 | 0;
+            var i$0 =  /*<<bytes.ml:713:13>>*/ last + 1 | 0;
             i = i$0;
             continue;
            }
             /*<<bytes.ml:712:13>>*/ return 0;
           case 3:
-            /*<<bytes.ml:715:8>>*/ var last$1 = i + 3 | 0;
+           var last$1 =  /*<<bytes.ml:715:8>>*/ i + 3 | 0;
            if
             (max >= last$1
              &&
@@ -5985,13 +6120,13 @@
                !
                not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
                && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$1))){
-             /*<<bytes.ml:721:13>>*/ var i$2 = last$1 + 1 | 0;
+            var i$2 =  /*<<bytes.ml:721:13>>*/ last$1 + 1 | 0;
             i = i$2;
             continue;
            }
             /*<<bytes.ml:720:13>>*/ return 0;
           case 7:
-            /*<<bytes.ml:731:8>>*/ var last$3 = i + 3 | 0;
+           var last$3 =  /*<<bytes.ml:731:8>>*/ i + 3 | 0;
            if
             (max >= last$3
              &&
@@ -6001,7 +6136,7 @@
                !
                not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
                && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$3))){
-             /*<<bytes.ml:737:13>>*/ var i$4 = last$3 + 1 | 0;
+            var i$4 =  /*<<bytes.ml:737:13>>*/ last$3 + 1 | 0;
             i = i$4;
             continue;
            }
@@ -6009,7 +6144,7 @@
           case 1:
           case 2: break;
           default:
-            /*<<bytes.ml:723:8>>*/ var last$2 = i + 3 | 0;
+           var last$2 =  /*<<bytes.ml:723:8>>*/ i + 3 | 0;
            if
             (max >= last$2
              &&
@@ -6019,7 +6154,7 @@
                !
                not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
                && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$2))){
-             /*<<bytes.ml:729:13>>*/ var i$3 = last$2 + 1 | 0;
+            var i$3 =  /*<<bytes.ml:729:13>>*/ last$2 + 1 | 0;
             i = i$3;
             continue;
            }
@@ -6027,43 +6162,43 @@
         }
        }
        else if(225 > match){
-         /*<<bytes.ml:694:8>>*/ var last$4 = i + 2 | 0;
+        var last$4 =  /*<<bytes.ml:694:8>>*/ i + 2 | 0;
         if
          (max >= last$4
           &&
            !
            not_in_xA0_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
            && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$4))){
-          /*<<bytes.ml:699:13>>*/ var i$5 = last$4 + 1 | 0;
+         var i$5 =  /*<<bytes.ml:699:13>>*/ last$4 + 1 | 0;
          i = i$5;
          continue;
         }
          /*<<bytes.ml:698:13>>*/ return 0;
        }
-        /*<<bytes.ml:701:8>>*/ var last$0 = i + 2 | 0;
+       var last$0 =  /*<<bytes.ml:701:8>>*/ i + 2 | 0;
        if
         (max >= last$0
          &&
           !
           not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
           && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$0))){
-         /*<<bytes.ml:706:13>>*/ var i$1 = last$0 + 1 | 0;
+        var i$1 =  /*<<bytes.ml:706:13>>*/ last$0 + 1 | 0;
         i = i$1;
         continue;
        }
         /*<<bytes.ml:705:13>>*/ return 0;
       }
       if(128 > match){
-        /*<<bytes.ml:686:26>>*/ var i$7 = i + 1 | 0;
+       var i$7 =  /*<<bytes.ml:686:26>>*/ i + 1 | 0;
        i = i$7;
        continue;
       }
       if(194 <= match){
-        /*<<bytes.ml:688:8>>*/ var last$5 = i + 1 | 0;
+       var last$5 =  /*<<bytes.ml:688:8>>*/ i + 1 | 0;
        if
         (max >= last$5
          && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$5))){
-         /*<<bytes.ml:692:13>>*/ var i$6 = last$5 + 1 | 0;
+        var i$6 =  /*<<bytes.ml:692:13>>*/ last$5 + 1 | 0;
         i = i$6;
         continue;
        }
@@ -6074,20 +6209,23 @@
     }
     /*<<bytes.ml:740:25>>*/ }
    function get_utf_16be_uchar(b, i){
-     /*<<bytes.ml:746:2>>*/ var
-     max =  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
+    var
+     max =
+        /*<<bytes.ml:746:2>>*/  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b)
+       - 1
+       | 0;
      /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
               (dec_invalid, 1);
-      /*<<bytes.ml:749:8>>*/ var hi = unsafe_get_uint16_be(b, i);
+     var hi =  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
                (dec_invalid, 2);
-       /*<<bytes.ml:753:6>>*/ var last = i + 3 | 0;
+      var last =  /*<<bytes.ml:753:6>>*/ i + 3 | 0;
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
-       /*<<bytes.ml:755:12>>*/ var lo = unsafe_get_uint16_be(b, i + 2 | 0);
+      var lo =  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:759:10>>*/ return dec_ret(4, u);
@@ -6101,25 +6239,30 @@
             (Stdlib[1], cst_index_out_of_bounds);
     /*<<bytes.ml:759:21>>*/ }
    function set_utf_16be_uchar(b, i, u){
-     /*<<bytes.ml:763:2>>*/ var
-     max =  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
+    var
+     max =
+        /*<<bytes.ml:763:2>>*/  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length(b)
+       - 1
+       | 0;
      /*<<bytes.ml:764:2>>*/ if(0 <= i && max >= i){
-      /*<<bytes.ml:765:8>>*/ var
-      u$0 =  /*<<bytes.ml:765:8>>*/ caml_call1(Stdlib_Uchar[10], u);
+     var
+      u$0 =
+         /*<<bytes.ml:765:8>>*/  /*<<bytes.ml:765:8>>*/ caml_call1
+         (Stdlib_Uchar[10], u);
       /*<<bytes.ml:766:11>>*/ if(0 > u$0)
        /*<<bytes.ml:766:20>>*/ throw  /*<<bytes.ml:766:20>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
-       /*<<bytes.ml:768:6>>*/ var last$0 = i + 1 | 0;
+      var last$0 =  /*<<bytes.ml:768:6>>*/ i + 1 | 0;
       return max < last$0 ? 0 : (unsafe_set_uint16_be(b, i, u$0), 2);
      }
       /*<<bytes.ml:770:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:777:9>>*/ throw  /*<<bytes.ml:777:9>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _c_], 1);
-      /*<<bytes.ml:771:6>>*/ var last = i + 3 | 0;
+     var last =  /*<<bytes.ml:771:6>>*/ i + 3 | 0;
      if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
      var
-       /*<<bytes.ml:773:6>>*/ u$1 = u$0 - 65536 | 0,
+      u$1 =  /*<<bytes.ml:773:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
       /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be(b, i, hi);
@@ -6134,39 +6277,42 @@
      /*<<bytes.ml:781:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
      if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
-      /*<<bytes.ml:784:10>>*/ var u = unsafe_get_uint16_be(b, i);
+     var u =  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
         /*<<bytes.ml:786:27>>*/ return 0;
-       /*<<bytes.ml:788:8>>*/ var last = i + 3 | 0;
+      var last =  /*<<bytes.ml:788:8>>*/ i + 3 | 0;
       if(max < last)  /*<<bytes.ml:789:27>>*/ return 0;
-       /*<<bytes.ml:790:14>>*/ var u$0 = unsafe_get_uint16_be(b, i + 2 | 0);
+      var u$0 =  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
-        /*<<bytes.ml:792:17>>*/ var i$1 = i + 4 | 0;
+       var i$1 =  /*<<bytes.ml:792:17>>*/ i + 4 | 0;
        i = i$1;
        continue;
       }
        /*<<bytes.ml:791:45>>*/ return 0;
      }
-      /*<<bytes.ml:785:41>>*/ var i$0 = i + 2 | 0;
+     var i$0 =  /*<<bytes.ml:785:41>>*/ i + 2 | 0;
      i = i$0;
     }
     /*<<bytes.ml:794:25>>*/ }
    function get_utf_16le_uchar(b, i){
-     /*<<bytes.ml:800:2>>*/ var
-     max =  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
+    var
+     max =
+        /*<<bytes.ml:800:2>>*/  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b)
+       - 1
+       | 0;
      /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
               (dec_invalid, 1);
-      /*<<bytes.ml:803:8>>*/ var hi = unsafe_get_uint16_le(b, i);
+     var hi =  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
                (dec_invalid, 2);
-       /*<<bytes.ml:807:6>>*/ var last = i + 3 | 0;
+      var last =  /*<<bytes.ml:807:6>>*/ i + 3 | 0;
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
-       /*<<bytes.ml:809:12>>*/ var lo = unsafe_get_uint16_le(b, i + 2 | 0);
+      var lo =  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:813:10>>*/ return dec_ret(4, u);
@@ -6180,25 +6326,30 @@
             (Stdlib[1], cst_index_out_of_bounds$1);
     /*<<bytes.ml:813:21>>*/ }
    function set_utf_16le_uchar(b, i, u){
-     /*<<bytes.ml:817:2>>*/ var
-     max =  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
+    var
+     max =
+        /*<<bytes.ml:817:2>>*/  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length(b)
+       - 1
+       | 0;
      /*<<bytes.ml:818:2>>*/ if(0 <= i && max >= i){
-      /*<<bytes.ml:819:8>>*/ var
-      u$0 =  /*<<bytes.ml:819:8>>*/ caml_call1(Stdlib_Uchar[10], u);
+     var
+      u$0 =
+         /*<<bytes.ml:819:8>>*/  /*<<bytes.ml:819:8>>*/ caml_call1
+         (Stdlib_Uchar[10], u);
       /*<<bytes.ml:820:11>>*/ if(0 > u$0)
        /*<<bytes.ml:820:20>>*/ throw  /*<<bytes.ml:820:20>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
-       /*<<bytes.ml:822:6>>*/ var last$0 = i + 1 | 0;
+      var last$0 =  /*<<bytes.ml:822:6>>*/ i + 1 | 0;
       return max < last$0 ? 0 : (unsafe_set_uint16_le(b, i, u$0), 2);
      }
       /*<<bytes.ml:824:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:831:9>>*/ throw  /*<<bytes.ml:831:9>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _e_], 1);
-      /*<<bytes.ml:825:6>>*/ var last = i + 3 | 0;
+     var last =  /*<<bytes.ml:825:6>>*/ i + 3 | 0;
      if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
      var
-       /*<<bytes.ml:827:6>>*/ u$1 = u$0 - 65536 | 0,
+      u$1 =  /*<<bytes.ml:827:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
       /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le(b, i, hi);
@@ -6213,21 +6364,21 @@
      /*<<bytes.ml:835:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
      if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
-      /*<<bytes.ml:838:10>>*/ var u = unsafe_get_uint16_le(b, i);
+     var u =  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
         /*<<bytes.ml:840:27>>*/ return 0;
-       /*<<bytes.ml:842:8>>*/ var last = i + 3 | 0;
+      var last =  /*<<bytes.ml:842:8>>*/ i + 3 | 0;
       if(max < last)  /*<<bytes.ml:843:27>>*/ return 0;
-       /*<<bytes.ml:844:14>>*/ var u$0 = unsafe_get_uint16_le(b, i + 2 | 0);
+      var u$0 =  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
-        /*<<bytes.ml:846:17>>*/ var i$1 = i + 4 | 0;
+       var i$1 =  /*<<bytes.ml:846:17>>*/ i + 4 | 0;
        i = i$1;
        continue;
       }
        /*<<bytes.ml:845:45>>*/ return 0;
      }
-      /*<<bytes.ml:839:41>>*/ var i$0 = i + 2 | 0;
+     var i$0 =  /*<<bytes.ml:839:41>>*/ i + 2 | 0;
      i = i$0;
     }
     /*<<bytes.ml:848:25>>*/ }
@@ -6332,16 +6483,16 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst$0 = "",
-     /*<<?>>*/ caml_blit_string = runtime.caml_blit_string,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
-     /*<<?>>*/ caml_string_equal = runtime.caml_string_equal,
-     /*<<?>>*/ caml_string_hash = runtime.caml_string_hash,
-     /*<<?>>*/ caml_string_unsafe_get = runtime.caml_string_unsafe_get,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst$0 =  /*<<?>>*/ "",
+    caml_blit_string =  /*<<?>>*/ runtime.caml_blit_string,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
+    caml_string_equal =  /*<<?>>*/ runtime.caml_string_equal,
+    caml_string_hash =  /*<<?>>*/ runtime.caml_string_hash,
+    caml_string_unsafe_get =  /*<<?>>*/ runtime.caml_string_unsafe_get,
+    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)
@@ -6375,8 +6526,8 @@
     /*<<string.ml:38:19>>*/ }
    var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
-     /*<<string.ml:43:8>>*/ var
-     _X_ =  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
+    var
+     _X_ =  /*<<string.ml:43:8>>*/  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
      /*<<string.ml:43:2>>*/ return  /*<<string.ml:43:2>>*/ caml_call1
             (bts,
               /*<<string.ml:43:2>>*/ caml_call3
@@ -6411,8 +6562,9 @@
      var _W_ = caml_ml_string_length(hd) + acc | 0;
     }
     var
-      /*<<string.ml:67:12>>*/ dst =
-        /*<<string.ml:67:12>>*/ runtime.caml_create_bytes(_W_),
+     dst =
+        /*<<string.ml:67:12>>*/  /*<<string.ml:67:12>>*/ runtime.caml_create_bytes
+        (_W_),
      pos = pos$1,
      param$0 = l;
     for(;;){
@@ -6455,13 +6607,13 @@
    function iter(f, s){
     var
      _U_ = caml_ml_string_length(s) - 1 | 0,
-      /*<<string.ml:74:2>>*/ _T_ = 0;
+     _T_ =  /*<<string.ml:74:2>>*/ 0;
     if(_U_ >= 0){
      var i = _T_;
      for(;;){
        /*<<string.ml:74:31>>*/  /*<<string.ml:74:31>>*/ caml_call1
        (f, caml_string_unsafe_get(s, i));
-       /*<<string.ml:74:31>>*/ var _V_ = i + 1 | 0;
+      var _V_ =  /*<<string.ml:74:31>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -6471,13 +6623,13 @@
    function iteri(f, s){
     var
      _R_ = caml_ml_string_length(s) - 1 | 0,
-      /*<<string.ml:78:2>>*/ _Q_ = 0;
+     _Q_ =  /*<<string.ml:78:2>>*/ 0;
     if(_R_ >= 0){
      var i = _Q_;
      for(;;){
        /*<<string.ml:78:31>>*/  /*<<string.ml:78:31>>*/ caml_call2
        (f, i, caml_string_unsafe_get(s, i));
-       /*<<string.ml:78:31>>*/ var _S_ = i + 1 | 0;
+      var _S_ =  /*<<string.ml:78:31>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
@@ -6485,45 +6637,51 @@
     return 0;
     /*<<string.ml:78:56>>*/ }
    function map(f, s){
-     /*<<string.ml:81:10>>*/ var
-     _P_ =  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
+    var
+     _P_ =
+        /*<<string.ml:81:10>>*/  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
      /*<<string.ml:81:2>>*/ return  /*<<string.ml:81:2>>*/ caml_call1
             (bts,
               /*<<string.ml:81:2>>*/ caml_call2(Stdlib_Bytes[17], f, _P_));
     /*<<string.ml:81:24>>*/ }
    function mapi(f, s){
-     /*<<string.ml:83:11>>*/ var
-     _O_ =  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
+    var
+     _O_ =
+        /*<<string.ml:83:11>>*/  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
      /*<<string.ml:83:2>>*/ return  /*<<string.ml:83:2>>*/ caml_call1
             (bts,
               /*<<string.ml:83:2>>*/ caml_call2(Stdlib_Bytes[18], f, _O_));
     /*<<string.ml:83:25>>*/ }
    function fold_right(f, x, a){
-     /*<<string.ml:85:17>>*/ var
-     _N_ =  /*<<string.ml:85:17>>*/ caml_call1(bos, x);
+    var
+     _N_ =
+        /*<<string.ml:85:17>>*/  /*<<string.ml:85:17>>*/ caml_call1(bos, x);
      /*<<string.ml:85:2>>*/ return  /*<<string.ml:85:2>>*/ caml_call3
             (Stdlib_Bytes[20], f, _N_, a);
     /*<<string.ml:85:26>>*/ }
    function fold_left(f, a, x){
-     /*<<string.ml:87:18>>*/ var
-     _M_ =  /*<<string.ml:87:18>>*/ caml_call1(bos, x);
+    var
+     _M_ =
+        /*<<string.ml:87:18>>*/  /*<<string.ml:87:18>>*/ caml_call1(bos, x);
      /*<<string.ml:87:18>>*/ return  /*<<string.ml:87:18>>*/ caml_call3
             (Stdlib_Bytes[19], f, a, _M_);
     /*<<string.ml:87:25>>*/ }
    function exists(f, s){
-     /*<<string.ml:89:13>>*/ var
-     _L_ =  /*<<string.ml:89:13>>*/ caml_call1(bos, s);
+    var
+     _L_ =
+        /*<<string.ml:89:13>>*/  /*<<string.ml:89:13>>*/ caml_call1(bos, s);
      /*<<string.ml:89:13>>*/ return  /*<<string.ml:89:13>>*/ caml_call2
             (Stdlib_Bytes[22], f, _L_);
     /*<<string.ml:89:20>>*/ }
    function for_all(f, s){
-     /*<<string.ml:91:14>>*/ var
-     _K_ =  /*<<string.ml:91:14>>*/ caml_call1(bos, s);
+    var
+     _K_ =
+        /*<<string.ml:91:14>>*/  /*<<string.ml:91:14>>*/ caml_call1(bos, s);
      /*<<string.ml:91:14>>*/ return  /*<<string.ml:91:14>>*/ caml_call2
             (Stdlib_Bytes[21], f, _K_);
     /*<<string.ml:91:21>>*/ }
    function is_space(param){
-     /*<<string.ml:97:15>>*/ var _J_ = param - 9 | 0;
+    var _J_ =  /*<<string.ml:97:15>>*/ param - 9 | 0;
     a:
     {
      if(4 < _J_ >>> 0){if(23 !== _J_) break a;} else if(2 === _J_) break a;
@@ -6541,14 +6699,16 @@
        !
        is_space(caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
       /*<<string.ml:105:7>>*/ return s;
-     /*<<string.ml:104:21>>*/ var
-     _I_ =  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
+    var
+     _I_ =
+        /*<<string.ml:104:21>>*/  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
      /*<<string.ml:104:13>>*/ return  /*<<string.ml:104:13>>*/ caml_call1
             (bts,  /*<<string.ml:104:13>>*/ caml_call1(Stdlib_Bytes[23], _I_));
     /*<<string.ml:105:8>>*/ }
    function escaped(s){
-     /*<<string.ml:108:10>>*/ var
-     b =  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
+    var
+     b =
+        /*<<string.ml:108:10>>*/  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
      /*<<string.ml:111:6>>*/ return  /*<<string.ml:111:6>>*/ caml_call1
             (bts,  /*<<string.ml:111:6>>*/ caml_call1(Stdlib_Bytes[87], b));
     /*<<string.ml:111:25>>*/ }
@@ -6643,7 +6803,7 @@
      /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:179:4>>*/ try{
        /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
-       /*<<string.ml:179:36>>*/ var _G_ = 1;
+      var _G_ =  /*<<string.ml:179:36>>*/ 1;
        /*<<string.ml:179:36>>*/ return _G_;
      }
      catch(_H_){
@@ -6661,7 +6821,7 @@
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:189:4>>*/ try{
        /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
-       /*<<string.ml:189:35>>*/ var _D_ = 1;
+      var _D_ =  /*<<string.ml:189:35>>*/ 1;
        /*<<string.ml:189:35>>*/ return _D_;
      }
      catch(_E_){
@@ -6673,26 +6833,30 @@
             (Stdlib[1], cst_String_rcontains_from_Byte);
     /*<<string.ml:189:63>>*/ }
    function uppercase_ascii(s){
-     /*<<string.ml:192:20>>*/ var
-     _B_ =  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
+    var
+     _B_ =
+        /*<<string.ml:192:20>>*/  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
      /*<<string.ml:192:2>>*/ return  /*<<string.ml:192:2>>*/ caml_call1
             (bts,  /*<<string.ml:192:2>>*/ caml_call1(Stdlib_Bytes[36], _B_));
     /*<<string.ml:192:34>>*/ }
    function lowercase_ascii(s){
-     /*<<string.ml:194:20>>*/ var
-     _A_ =  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
+    var
+     _A_ =
+        /*<<string.ml:194:20>>*/  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
      /*<<string.ml:194:2>>*/ return  /*<<string.ml:194:2>>*/ caml_call1
             (bts,  /*<<string.ml:194:2>>*/ caml_call1(Stdlib_Bytes[37], _A_));
     /*<<string.ml:194:34>>*/ }
    function capitalize_ascii(s){
-     /*<<string.ml:196:21>>*/ var
-     _z_ =  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
+    var
+     _z_ =
+        /*<<string.ml:196:21>>*/  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
      /*<<string.ml:196:2>>*/ return  /*<<string.ml:196:2>>*/ caml_call1
             (bts,  /*<<string.ml:196:2>>*/ caml_call1(Stdlib_Bytes[38], _z_));
     /*<<string.ml:196:35>>*/ }
    function uncapitalize_ascii(s){
-     /*<<string.ml:198:23>>*/ var
-     _y_ =  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
+    var
+     _y_ =
+        /*<<string.ml:198:23>>*/  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
      /*<<string.ml:198:2>>*/ return  /*<<string.ml:198:2>>*/ caml_call1
             (bts,  /*<<string.ml:198:2>>*/ caml_call1(Stdlib_Bytes[39], _y_));
     /*<<string.ml:198:37>>*/ }
@@ -6707,7 +6871,7 @@
      if(i === len_pre)  /*<<string.ml:205:24>>*/ return 1;
      if(caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
        /*<<string.ml:206:55>>*/ return 0;
-      /*<<string.ml:207:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<string.ml:207:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<string.ml:208:30>>*/ }
@@ -6725,7 +6889,7 @@
       (caml_string_unsafe_get(s, diff + i | 0)
        !== caml_string_unsafe_get(suffix, i))
        /*<<string.ml:217:64>>*/ return 0;
-      /*<<string.ml:218:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<string.ml:218:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<string.ml:219:23>>*/ }
@@ -6735,11 +6899,15 @@
     /*<<string.ml:222:28>>*/ }
    function split_on_char(sep, s){
     var
-      /*<<string.ml:226:10>>*/ r = [0, 0],
-      /*<<string.ml:227:10>>*/ j =
-       [0,  /*<<string.ml:227:2>>*/ caml_ml_string_length(s)],
-      /*<<string.ml:228:2>>*/ _s_ =
-        /*<<string.ml:228:2>>*/ caml_ml_string_length(s) - 1 | 0;
+     r =  /*<<string.ml:226:10>>*/ [0, 0],
+     j =
+        /*<<string.ml:227:10>>*/ [0,
+         /*<<string.ml:227:2>>*/ caml_ml_string_length(s)],
+     _s_ =
+        /*<<string.ml:228:2>>*/  /*<<string.ml:228:2>>*/ caml_ml_string_length
+        (s)
+       - 1
+       | 0;
     if(_s_ >= 0){
      var i = _s_;
      for(;;){
@@ -6748,7 +6916,7 @@
        r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _u_];
        j[1] = i;
       }
-       /*<<string.ml:228:2>>*/ var _v_ = i - 1 | 0;
+      var _v_ =  /*<<string.ml:228:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _v_;
      }
@@ -6758,14 +6926,16 @@
     /*<<string.ml:234:18>>*/ }
    var compare = runtime.caml_string_compare;
    function to_seq(s){
-     /*<<string.ml:243:15>>*/ var
-     _r_ =  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
+    var
+     _r_ =
+        /*<<string.ml:243:15>>*/  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
      /*<<string.ml:243:15>>*/ return  /*<<string.ml:243:15>>*/ caml_call1
             (Stdlib_Bytes[47], _r_);
     /*<<string.ml:243:32>>*/ }
    function to_seqi(s){
-     /*<<string.ml:245:16>>*/ var
-     _q_ =  /*<<string.ml:245:16>>*/ caml_call1(bos, s);
+    var
+     _q_ =
+        /*<<string.ml:245:16>>*/  /*<<string.ml:245:16>>*/ caml_call1(bos, s);
      /*<<string.ml:245:16>>*/ return  /*<<string.ml:245:16>>*/ caml_call1
             (Stdlib_Bytes[48], _q_);
     /*<<string.ml:245:34>>*/ }
@@ -6774,98 +6944,114 @@
             (bts,  /*<<string.ml:247:15>>*/ caml_call1(Stdlib_Bytes[49], g));
     /*<<string.ml:247:32>>*/ }
    function get_utf_8_uchar(s, i){
-     /*<<string.ml:251:44>>*/ var
-     _p_ =  /*<<string.ml:251:44>>*/ caml_call1(bos, s);
+    var
+     _p_ =
+        /*<<string.ml:251:44>>*/  /*<<string.ml:251:44>>*/ caml_call1(bos, s);
      /*<<string.ml:251:26>>*/ return  /*<<string.ml:251:26>>*/ caml_call2
             (Stdlib_Bytes[50], _p_, i);
     /*<<string.ml:251:53>>*/ }
    function is_valid_utf_8(s){
-     /*<<string.ml:252:40>>*/ var
-     _o_ =  /*<<string.ml:252:40>>*/ caml_call1(bos, s);
+    var
+     _o_ =
+        /*<<string.ml:252:40>>*/  /*<<string.ml:252:40>>*/ caml_call1(bos, s);
      /*<<string.ml:252:40>>*/ return  /*<<string.ml:252:40>>*/ caml_call1
             (Stdlib_Bytes[52], _o_);
     /*<<string.ml:252:47>>*/ }
    function get_utf_16be_uchar(s, i){
-     /*<<string.ml:254:50>>*/ var
-     _n_ =  /*<<string.ml:254:50>>*/ caml_call1(bos, s);
+    var
+     _n_ =
+        /*<<string.ml:254:50>>*/  /*<<string.ml:254:50>>*/ caml_call1(bos, s);
      /*<<string.ml:254:29>>*/ return  /*<<string.ml:254:29>>*/ caml_call2
             (Stdlib_Bytes[53], _n_, i);
     /*<<string.ml:254:59>>*/ }
    function is_valid_utf_16be(s){
-     /*<<string.ml:255:46>>*/ var
-     _m_ =  /*<<string.ml:255:46>>*/ caml_call1(bos, s);
+    var
+     _m_ =
+        /*<<string.ml:255:46>>*/  /*<<string.ml:255:46>>*/ caml_call1(bos, s);
      /*<<string.ml:255:46>>*/ return  /*<<string.ml:255:46>>*/ caml_call1
             (Stdlib_Bytes[55], _m_);
     /*<<string.ml:255:53>>*/ }
    function get_utf_16le_uchar(s, i){
-     /*<<string.ml:257:50>>*/ var
-     _l_ =  /*<<string.ml:257:50>>*/ caml_call1(bos, s);
+    var
+     _l_ =
+        /*<<string.ml:257:50>>*/  /*<<string.ml:257:50>>*/ caml_call1(bos, s);
      /*<<string.ml:257:29>>*/ return  /*<<string.ml:257:29>>*/ caml_call2
             (Stdlib_Bytes[56], _l_, i);
     /*<<string.ml:257:59>>*/ }
    function is_valid_utf_16le(s){
-     /*<<string.ml:258:46>>*/ var
-     _k_ =  /*<<string.ml:258:46>>*/ caml_call1(bos, s);
+    var
+     _k_ =
+        /*<<string.ml:258:46>>*/  /*<<string.ml:258:46>>*/ caml_call1(bos, s);
      /*<<string.ml:258:46>>*/ return  /*<<string.ml:258:46>>*/ caml_call1
             (Stdlib_Bytes[58], _k_);
     /*<<string.ml:258:53>>*/ }
    function get_int8(s, i){
-     /*<<string.ml:267:30>>*/ var
-     _j_ =  /*<<string.ml:267:30>>*/ caml_call1(bos, s);
+    var
+     _j_ =
+        /*<<string.ml:267:30>>*/  /*<<string.ml:267:30>>*/ caml_call1(bos, s);
      /*<<string.ml:267:19>>*/ return  /*<<string.ml:267:19>>*/ caml_call2
             (Stdlib_Bytes[60], _j_, i);
     /*<<string.ml:267:39>>*/ }
    function get_uint16_le(s, i){
-     /*<<string.ml:268:40>>*/ var
-     _i_ =  /*<<string.ml:268:40>>*/ caml_call1(bos, s);
+    var
+     _i_ =
+        /*<<string.ml:268:40>>*/  /*<<string.ml:268:40>>*/ caml_call1(bos, s);
      /*<<string.ml:268:24>>*/ return  /*<<string.ml:268:24>>*/ caml_call2
             (Stdlib_Bytes[63], _i_, i);
     /*<<string.ml:268:49>>*/ }
    function get_uint16_be(s, i){
-     /*<<string.ml:269:40>>*/ var
-     _h_ =  /*<<string.ml:269:40>>*/ caml_call1(bos, s);
+    var
+     _h_ =
+        /*<<string.ml:269:40>>*/  /*<<string.ml:269:40>>*/ caml_call1(bos, s);
      /*<<string.ml:269:24>>*/ return  /*<<string.ml:269:24>>*/ caml_call2
             (Stdlib_Bytes[62], _h_, i);
     /*<<string.ml:269:49>>*/ }
    function get_int16_ne(s, i){
-     /*<<string.ml:270:38>>*/ var
-     _g_ =  /*<<string.ml:270:38>>*/ caml_call1(bos, s);
+    var
+     _g_ =
+        /*<<string.ml:270:38>>*/  /*<<string.ml:270:38>>*/ caml_call1(bos, s);
      /*<<string.ml:270:23>>*/ return  /*<<string.ml:270:23>>*/ caml_call2
             (Stdlib_Bytes[64], _g_, i);
     /*<<string.ml:270:47>>*/ }
    function get_int16_le(s, i){
-     /*<<string.ml:271:38>>*/ var
-     _f_ =  /*<<string.ml:271:38>>*/ caml_call1(bos, s);
+    var
+     _f_ =
+        /*<<string.ml:271:38>>*/  /*<<string.ml:271:38>>*/ caml_call1(bos, s);
      /*<<string.ml:271:23>>*/ return  /*<<string.ml:271:23>>*/ caml_call2
             (Stdlib_Bytes[66], _f_, i);
     /*<<string.ml:271:47>>*/ }
    function get_int16_be(s, i){
-     /*<<string.ml:272:38>>*/ var
-     _e_ =  /*<<string.ml:272:38>>*/ caml_call1(bos, s);
+    var
+     _e_ =
+        /*<<string.ml:272:38>>*/  /*<<string.ml:272:38>>*/ caml_call1(bos, s);
      /*<<string.ml:272:23>>*/ return  /*<<string.ml:272:23>>*/ caml_call2
             (Stdlib_Bytes[65], _e_, i);
     /*<<string.ml:272:47>>*/ }
    function get_int32_le(s, i){
-     /*<<string.ml:273:38>>*/ var
-     _d_ =  /*<<string.ml:273:38>>*/ caml_call1(bos, s);
+    var
+     _d_ =
+        /*<<string.ml:273:38>>*/  /*<<string.ml:273:38>>*/ caml_call1(bos, s);
      /*<<string.ml:273:23>>*/ return  /*<<string.ml:273:23>>*/ caml_call2
             (Stdlib_Bytes[69], _d_, i);
     /*<<string.ml:273:47>>*/ }
    function get_int32_be(s, i){
-     /*<<string.ml:274:38>>*/ var
-     _c_ =  /*<<string.ml:274:38>>*/ caml_call1(bos, s);
+    var
+     _c_ =
+        /*<<string.ml:274:38>>*/  /*<<string.ml:274:38>>*/ caml_call1(bos, s);
      /*<<string.ml:274:23>>*/ return  /*<<string.ml:274:23>>*/ caml_call2
             (Stdlib_Bytes[68], _c_, i);
     /*<<string.ml:274:47>>*/ }
    function get_int64_le(s, i){
-     /*<<string.ml:275:38>>*/ var
-     _b_ =  /*<<string.ml:275:38>>*/ caml_call1(bos, s);
+    var
+     _b_ =
+        /*<<string.ml:275:38>>*/  /*<<string.ml:275:38>>*/ caml_call1(bos, s);
      /*<<string.ml:275:23>>*/ return  /*<<string.ml:275:23>>*/ caml_call2
             (Stdlib_Bytes[72], _b_, i);
     /*<<string.ml:275:47>>*/ }
    function get_int64_be(s, i){
-     /*<<string.ml:276:38>>*/ var
-     _a_ =  /*<<string.ml:276:38>>*/ caml_call1(bos, s);
+    var
+     _a_ =
+        /*<<string.ml:276:38>>*/  /*<<string.ml:276:38>>*/ caml_call1(bos, s);
      /*<<string.ml:276:23>>*/ return  /*<<string.ml:276:23>>*/ caml_call2
             (Stdlib_Bytes[71], _a_, i);
     /*<<string.ml:276:47>>*/ }
@@ -6944,7 +7130,7 @@
 //# unitInfo: Provides: Stdlib__Unit
 (function(globalThis){
    "use strict";
-   var  /*<<?>>*/ runtime = globalThis.jsoo_runtime, cst = "()";
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime, cst = "()";
    function equal(_b_, param){
      /*<<unit.ml:18:18>>*/ return 1;
     /*<<unit.ml:18:22>>*/ }
@@ -6966,10 +7152,10 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_Marshal_from_bytes$1 = "Marshal.from_bytes",
-     /*<<?>>*/ caml_marshal_data_size = runtime.caml_marshal_data_size,
-     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_Marshal_from_bytes$1 =  /*<<?>>*/ "Marshal.from_bytes",
+    caml_marshal_data_size =  /*<<?>>*/ runtime.caml_marshal_data_size,
+    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -7007,8 +7193,10 @@
    function from_bytes(buff, ofs){
      /*<<marshal.ml:56:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs){
-      /*<<marshal.ml:59:14>>*/ var
-      len =  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size(buff, ofs);
+     var
+      len =
+         /*<<marshal.ml:59:14>>*/  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size
+         (buff, ofs);
      return (caml_ml_bytes_length(buff) - (16 + len | 0) | 0) < ofs
              ?  /*<<marshal.ml:61:9>>*/ caml_call1
                (Stdlib[1], cst_Marshal_from_bytes$0)
@@ -7045,13 +7233,13 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -7072,7 +7260,7 @@
     Stdlib_Seq = global_data.Stdlib__Seq,
     Assert_failure = global_data.Assert_failure,
     Stdlib = global_data.Stdlib,
-     /*<<array.ml:37:20>>*/ Floatarray = [0],
+    Floatarray =  /*<<array.ml:37:20>>*/ [0],
     cst_Array_init = "Array.init",
     cst_Array_make_matrix = "Array.make_matrix",
     cst_Array_init_matrix = "Array.init_matrix",
@@ -7092,17 +7280,17 @@
       /*<<array.ml:49:16>>*/ return  /*<<array.ml:49:16>>*/ caml_call1
              (Stdlib[1], cst_Array_init);
     var
-      /*<<array.ml:54:13>>*/ res =
-        /*<<array.ml:54:13>>*/ caml_make_vect
+     res =
+        /*<<array.ml:54:13>>*/  /*<<array.ml:54:13>>*/ caml_make_vect
         (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
-      /*<<array.ml:55:3>>*/ _aE_ = l - 1 | 0,
-      /*<<array.ml:54:13>>*/ _aD_ = 1;
+     _aE_ =  /*<<array.ml:55:3>>*/ l - 1 | 0,
+     _aD_ =  /*<<array.ml:54:13>>*/ 1;
     if(_aE_ >= 1){
      var i = _aD_;
      for(;;){
        /*<<array.ml:56:5>>*/ res[1 + i] =
         /*<<array.ml:56:22>>*/ caml_call1(f, i);
-       /*<<array.ml:56:5>>*/ var _aF_ = i + 1 | 0;
+      var _aF_ =  /*<<array.ml:56:5>>*/ i + 1 | 0;
       if(_aE_ === i) break;
       i = _aF_;
      }
@@ -7113,15 +7301,16 @@
      /*<<array.ml:62:2>>*/ if(sy < 0)
       /*<<array.ml:62:17>>*/  /*<<array.ml:62:17>>*/ caml_call1
       (Stdlib[1], cst_Array_make_matrix);
-     /*<<array.ml:63:12>>*/ var
-     res =  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
+    var
+     res =
+        /*<<array.ml:63:12>>*/  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
     if(0 < sy){
-     var _aB_ = sx - 1 | 0,  /*<<array.ml:64:17>>*/ _aA_ = 0;
+     var _aB_ = sx - 1 | 0, _aA_ =  /*<<array.ml:64:17>>*/ 0;
      if(_aB_ >= 0){
       var x = _aA_;
       for(;;){
        res[1 + x] =  /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
-        /*<<array.ml:64:17>>*/ var _aC_ = x + 1 | 0;
+       var _aC_ =  /*<<array.ml:64:17>>*/ x + 1 | 0;
        if(_aB_ === x) break;
        x = _aC_;
       }
@@ -7133,31 +7322,32 @@
      /*<<array.ml:73:2>>*/ if(sy < 0)
       /*<<array.ml:73:17>>*/  /*<<array.ml:73:17>>*/ caml_call1
       (Stdlib[1], cst_Array_init_matrix);
-     /*<<array.ml:74:12>>*/ var
-     res =  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
+    var
+     res =
+        /*<<array.ml:74:12>>*/  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
     if(0 < sy){
-     var _av_ = sx - 1 | 0,  /*<<array.ml:76:17>>*/ _au_ = 0;
+     var _av_ = sx - 1 | 0, _au_ =  /*<<array.ml:76:17>>*/ 0;
      if(_av_ >= 0){
       var x = _au_;
       for(;;){
        var
-         /*<<array.ml:78:16>>*/ row =
-           /*<<array.ml:78:16>>*/ caml_make_vect
+        row =
+           /*<<array.ml:78:16>>*/  /*<<array.ml:78:16>>*/ caml_make_vect
            (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
-         /*<<array.ml:79:6>>*/ _ax_ = sy - 1 | 0,
-         /*<<array.ml:78:16>>*/ _aw_ = 1;
+        _ax_ =  /*<<array.ml:79:6>>*/ sy - 1 | 0,
+        _aw_ =  /*<<array.ml:78:16>>*/ 1;
        if(_ax_ >= 1){
         var y = _aw_;
         for(;;){
           /*<<array.ml:80:8>>*/ row[1 + y] =
            /*<<array.ml:80:25>>*/ caml_call2(f, x, y);
-          /*<<array.ml:80:8>>*/ var _az_ = y + 1 | 0;
+         var _az_ =  /*<<array.ml:80:8>>*/ y + 1 | 0;
          if(_ax_ === y) break;
          y = _az_;
         }
        }
        res[1 + x] = row;
-        /*<<array.ml:76:17>>*/ var _ay_ = x + 1 | 0;
+       var _ay_ =  /*<<array.ml:76:17>>*/ x + 1 | 0;
        if(_av_ === x) break;
        x = _ay_;
       }
@@ -7210,13 +7400,13 @@
             (Stdlib[1], cst_Array_blit);
     /*<<array.ml:110:38>>*/ }
    function iter(f, a){
-    var _as_ = a.length - 2 | 0,  /*<<array.ml:113:2>>*/ _ar_ = 0;
+    var _as_ = a.length - 2 | 0, _ar_ =  /*<<array.ml:113:2>>*/ 0;
     if(_as_ >= 0){
      var i = _ar_;
      for(;;){
        /*<<array.ml:113:31>>*/  /*<<array.ml:113:31>>*/ caml_call1
        (f, a[1 + i]);
-       /*<<array.ml:113:31>>*/ var _at_ = i + 1 | 0;
+      var _at_ =  /*<<array.ml:113:31>>*/ i + 1 | 0;
       if(_as_ === i) break;
       i = _at_;
      }
@@ -7227,13 +7417,13 @@
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
       /*<<array.ml:117:4>>*/ return  /*<<array.ml:117:4>>*/ caml_call1
              (Stdlib[1], cst_Array_iter2_arrays_must_ha);
-    var _ap_ = a.length - 2 | 0,  /*<<array.ml:119:4>>*/ _ao_ = 0;
+    var _ap_ = a.length - 2 | 0, _ao_ =  /*<<array.ml:119:4>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
        /*<<array.ml:119:33>>*/  /*<<array.ml:119:33>>*/ caml_call2
        (f, a[1 + i], b[1 + i]);
-       /*<<array.ml:119:33>>*/ var _aq_ = i + 1 | 0;
+      var _aq_ =  /*<<array.ml:119:33>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
@@ -7244,17 +7434,17 @@
     var l = a.length - 1;
      /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
     var
-      /*<<array.ml:124:12>>*/ r =
-        /*<<array.ml:124:12>>*/ caml_make_vect
+     r =
+        /*<<array.ml:124:12>>*/  /*<<array.ml:124:12>>*/ caml_make_vect
         (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
-      /*<<array.ml:125:4>>*/ _am_ = l - 1 | 0,
-      /*<<array.ml:124:12>>*/ _al_ = 1;
+     _am_ =  /*<<array.ml:125:4>>*/ l - 1 | 0,
+     _al_ =  /*<<array.ml:124:12>>*/ 1;
     if(_am_ >= 1){
      var i = _al_;
      for(;;){
        /*<<array.ml:126:6>>*/ r[1 + i] =
         /*<<array.ml:126:21>>*/ caml_call1(f, a[1 + i]);
-       /*<<array.ml:126:6>>*/ var _an_ = i + 1 | 0;
+      var _an_ =  /*<<array.ml:126:6>>*/ i + 1 | 0;
       if(_am_ === i) break;
       i = _an_;
      }
@@ -7262,13 +7452,13 @@
      /*<<array.ml:128:4>>*/ return r;
     /*<<array.ml:129:5>>*/ }
    function map_inplace(f, a){
-    var _aj_ = a.length - 2 | 0,  /*<<array.ml:132:2>>*/ _ai_ = 0;
+    var _aj_ = a.length - 2 | 0, _ai_ =  /*<<array.ml:132:2>>*/ 0;
     if(_aj_ >= 0){
      var i = _ai_;
      for(;;){
        /*<<array.ml:133:4>>*/ a[1 + i] =
         /*<<array.ml:133:19>>*/ caml_call1(f, a[1 + i]);
-       /*<<array.ml:133:4>>*/ var _ak_ = i + 1 | 0;
+      var _ak_ =  /*<<array.ml:133:4>>*/ i + 1 | 0;
       if(_aj_ === i) break;
       i = _ak_;
      }
@@ -7276,13 +7466,13 @@
     return 0;
     /*<<array.ml:134:6>>*/ }
    function mapi_inplace(f, a){
-    var _ag_ = a.length - 2 | 0,  /*<<array.ml:137:2>>*/ _af_ = 0;
+    var _ag_ = a.length - 2 | 0, _af_ =  /*<<array.ml:137:2>>*/ 0;
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
        /*<<array.ml:138:4>>*/ a[1 + i] =
         /*<<array.ml:138:19>>*/ caml_call2(f, i, a[1 + i]);
-       /*<<array.ml:138:4>>*/ var _ah_ = i + 1 | 0;
+      var _ah_ =  /*<<array.ml:138:4>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _ah_;
      }
@@ -7290,23 +7480,23 @@
     return 0;
     /*<<array.ml:139:6>>*/ }
    function map2(f, a, b){
-    var la = a.length - 1,  /*<<array.ml:143:2>>*/ lb = b.length - 1;
+    var la = a.length - 1, lb =  /*<<array.ml:143:2>>*/ b.length - 1;
     if(la !== lb)
       /*<<array.ml:145:4>>*/ return  /*<<array.ml:145:4>>*/ caml_call1
              (Stdlib[1], cst_Array_map2_arrays_must_hav);
     if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
     var
-      /*<<array.ml:148:14>>*/ r =
-        /*<<array.ml:148:14>>*/ caml_make_vect
+     r =
+        /*<<array.ml:148:14>>*/  /*<<array.ml:148:14>>*/ caml_make_vect
         (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;
+     _ad_ =  /*<<array.ml:149:6>>*/ la - 1 | 0,
+     _ac_ =  /*<<array.ml:148:14>>*/ 1;
     if(_ad_ >= 1){
      var i = _ac_;
      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>>*/ var _ae_ = i + 1 | 0;
+      var _ae_ =  /*<<array.ml:150:8>>*/ i + 1 | 0;
       if(_ad_ === i) break;
       i = _ae_;
      }
@@ -7314,13 +7504,13 @@
      /*<<array.ml:152:6>>*/ return r;
     /*<<array.ml:154:5>>*/ }
    function iteri(f, a){
-    var _aa_ = a.length - 2 | 0,  /*<<array.ml:157:2>>*/ _$_ = 0;
+    var _aa_ = a.length - 2 | 0, _$_ =  /*<<array.ml:157:2>>*/ 0;
     if(_aa_ >= 0){
      var i = _$_;
      for(;;){
        /*<<array.ml:157:31>>*/  /*<<array.ml:157:31>>*/ caml_call2
        (f, i, a[1 + i]);
-       /*<<array.ml:157:31>>*/ var _ab_ = i + 1 | 0;
+      var _ab_ =  /*<<array.ml:157:31>>*/ i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
@@ -7331,17 +7521,17 @@
     var l = a.length - 1;
      /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
     var
-      /*<<array.ml:162:12>>*/ r =
-        /*<<array.ml:162:12>>*/ caml_make_vect
+     r =
+        /*<<array.ml:162:12>>*/  /*<<array.ml:162:12>>*/ caml_make_vect
         (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;
+     _Z_ =  /*<<array.ml:163:4>>*/ l - 1 | 0,
+     _Y_ =  /*<<array.ml:162:12>>*/ 1;
     if(_Z_ >= 1){
      var i = _Y_;
      for(;;){
        /*<<array.ml:164:6>>*/ r[1 + i] =
         /*<<array.ml:164:21>>*/ caml_call2(f, i, a[1 + i]);
-       /*<<array.ml:164:6>>*/ var ___ = i + 1 | 0;
+      var ___ =  /*<<array.ml:164:6>>*/ i + 1 | 0;
       if(_Z_ === i) break;
       i = ___;
      }
@@ -7353,8 +7543,8 @@
      /*<<array.ml:171:4>>*/ for(;;){
      if(0 > i)  /*<<array.ml:171:18>>*/ return res;
      var
-       /*<<array.ml:171:42>>*/ res$0 = [0, a[1 + i], res],
-       /*<<array.ml:171:42>>*/ i$0 = i - 1 | 0;
+      res$0 =  /*<<array.ml:171:42>>*/ [0, a[1 + i], res],
+      i$0 =  /*<<array.ml:171:42>>*/ i - 1 | 0;
      i = i$0;
      res = res$0;
     }
@@ -7363,7 +7553,7 @@
     var accu$0 = accu, param$0 = param;
     for(;;){
      if(! param$0)  /*<<array.ml:176:10>>*/ return accu$0;
-     var t = param$0[2],  /*<<array.ml:177:12>>*/ accu$1 = accu$0 + 1 | 0;
+     var t = param$0[2], accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = t;
     }
@@ -7373,29 +7563,30 @@
     var
      tl = l[2],
      hd = l[1],
-      /*<<array.ml:182:14>>*/ a =
-        /*<<array.ml:182:14>>*/ caml_make_vect(list_length(0, l), hd),
+     a =
+        /*<<array.ml:182:14>>*/  /*<<array.ml:182:14>>*/ caml_make_vect
+        (list_length(0, l), hd),
      i = 1,
      param = tl;
     for(;;){
      if(! param)  /*<<array.ml:183:6>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
-      /*<<array.ml:183:6>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:183:6>>*/ i + 1 | 0;
      i = i$0;
      param = tl$0;
     }
     /*<<array.ml:186:15>>*/ }
    function fold_left(f, x, a){
     var
-      /*<<array.ml:189:10>>*/ r = [0, x],
+     r =  /*<<array.ml:189:10>>*/ [0, x],
      _W_ = a.length - 2 | 0,
-      /*<<array.ml:189:10>>*/ _V_ = 0;
+     _V_ =  /*<<array.ml:189:10>>*/ 0;
     if(_W_ >= 0){
      var i = _V_;
      for(;;){
       r[1] =  /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
-       /*<<array.ml:190:2>>*/ var _X_ = i + 1 | 0;
+      var _X_ =  /*<<array.ml:190:2>>*/ i + 1 | 0;
       if(_W_ === i) break;
       i = _X_;
      }
@@ -7407,26 +7598,29 @@
      /*<<array.ml:197:2>>*/ if(0 === len)
       /*<<array.ml:197:18>>*/ return [0, acc, [0]];
     var
-      /*<<array.ml:198:19>>*/ match =
-        /*<<array.ml:198:19>>*/ caml_call2(f, acc, input_array[1]),
+     match =
+        /*<<array.ml:198:19>>*/  /*<<array.ml:198:19>>*/ caml_call2
+        (f, acc, input_array[1]),
      elt = match[2],
      acc$0 = match[1],
-      /*<<array.ml:199:23>>*/ output_array =
-        /*<<array.ml:199:23>>*/ caml_make_vect(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;
+     output_array =
+        /*<<array.ml:199:23>>*/  /*<<array.ml:199:23>>*/ caml_make_vect
+        (len, elt),
+     acc$1 =  /*<<array.ml:200:14>>*/ [0, acc$0],
+     _T_ =  /*<<array.ml:201:4>>*/ len - 1 | 0,
+     _S_ =  /*<<array.ml:200:14>>*/ 1;
     if(_T_ >= 1){
      var i = _S_;
      for(;;){
       var
-        /*<<array.ml:202:22>>*/ match$0 =
-          /*<<array.ml:202:22>>*/ caml_call2(f, acc$1[1], input_array[1 + i]),
+       match$0 =
+          /*<<array.ml:202:22>>*/  /*<<array.ml:202:22>>*/ caml_call2
+          (f, acc$1[1], input_array[1 + i]),
        elt$0 = match$0[2],
        acc$2 = match$0[1];
       acc$1[1] = acc$2;
        /*<<array.ml:204:6>>*/ output_array[1 + i] = elt$0;
-       /*<<array.ml:201:4>>*/ var _U_ = i + 1 | 0;
+      var _U_ =  /*<<array.ml:201:4>>*/ i + 1 | 0;
       if(_T_ === i) break;
       i = _U_;
      }
@@ -7435,13 +7629,13 @@
     /*<<array.ml:207:5>>*/ }
    function fold_right(f, a, x){
     var
-      /*<<array.ml:210:10>>*/ r = [0, x],
-      /*<<array.ml:211:2>>*/ _Q_ = a.length - 2 | 0;
+     r =  /*<<array.ml:210:10>>*/ [0, x],
+     _Q_ =  /*<<array.ml:211:2>>*/ a.length - 2 | 0;
     if(_Q_ >= 0){
      var i = _Q_;
      for(;;){
       r[1] =  /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
-       /*<<array.ml:211:2>>*/ var _R_ = i - 1 | 0;
+      var _R_ =  /*<<array.ml:211:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _R_;
      }
@@ -7455,7 +7649,7 @@
       /*<<array.ml:220:12>>*/ if
       ( /*<<array.ml:220:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:220:36>>*/ return 1;
-      /*<<array.ml:221:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:221:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:222:8>>*/ }
@@ -7466,7 +7660,7 @@
       /*<<array.ml:228:12>>*/ if
       (!  /*<<array.ml:228:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:229:9>>*/ return 0;
-      /*<<array.ml:228:36>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:228:36>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:230:8>>*/ }
@@ -7481,7 +7675,7 @@
       /*<<array.ml:238:12>>*/ if
       (!  /*<<array.ml:238:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:239:9>>*/ return 0;
-      /*<<array.ml:238:55>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:238:55>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:240:8>>*/ }
@@ -7496,7 +7690,7 @@
       /*<<array.ml:248:12>>*/ if
       ( /*<<array.ml:248:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:248:55>>*/ return 1;
-      /*<<array.ml:249:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:249:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:250:8>>*/ }
@@ -7507,7 +7701,7 @@
       /*<<array.ml:256:12>>*/ if
       (0 ===  /*<<array.ml:256:12>>*/ runtime.caml_compare(a[1 + i], x))
        /*<<array.ml:256:48>>*/ return 1;
-      /*<<array.ml:257:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:257:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:258:8>>*/ }
@@ -7516,7 +7710,7 @@
      /*<<array.ml:263:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:263:18>>*/ return 0;
      if(x === a[1 + i])  /*<<array.ml:264:39>>*/ return 1;
-      /*<<array.ml:265:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:266:8>>*/ }
@@ -7524,10 +7718,10 @@
     var n = a.length - 1, i = 0;
      /*<<array.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:271:18>>*/ return 0;
-      /*<<array.ml:273:14>>*/ var x = a[1 + i];
+     var x =  /*<<array.ml:273:14>>*/ a[1 + i];
       /*<<array.ml:274:9>>*/ if( /*<<array.ml:274:9>>*/ caml_call1(p, x))
        /*<<array.ml:274:18>>*/ return [0, x];
-      /*<<array.ml:275:11>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:275:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:277:8>>*/ }
@@ -7538,7 +7732,7 @@
       /*<<array.ml:283:12>>*/ if
       ( /*<<array.ml:283:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:283:36>>*/ return [0, i];
-      /*<<array.ml:284:9>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:284:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:285:8>>*/ }
@@ -7546,10 +7740,12 @@
     var n = a.length - 1, i = 0;
      /*<<array.ml:290:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:290:18>>*/ return 0;
-      /*<<array.ml:292:12>>*/ var
-      r =  /*<<array.ml:292:12>>*/ caml_call1(f, a[1 + i]);
+     var
+      r =
+         /*<<array.ml:292:12>>*/  /*<<array.ml:292:12>>*/ caml_call1
+         (f, a[1 + i]);
      if(r)  /*<<array.ml:294:23>>*/ return r;
-      /*<<array.ml:293:16>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:293:16>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:296:8>>*/ }
@@ -7557,10 +7753,12 @@
     var n = a.length - 1, i = 0;
      /*<<array.ml:301:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:301:18>>*/ return 0;
-      /*<<array.ml:303:12>>*/ var
-      r =  /*<<array.ml:303:12>>*/ caml_call2(f, i, a[1 + i]);
+     var
+      r =
+         /*<<array.ml:303:12>>*/  /*<<array.ml:303:12>>*/ caml_call2
+         (f, i, a[1 + i]);
      if(r)  /*<<array.ml:305:23>>*/ return r;
-      /*<<array.ml:304:16>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<array.ml:304:16>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:307:8>>*/ }
@@ -7572,20 +7770,20 @@
      match = x[1],
      b0 = match[2],
      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: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;
+     n =  /*<<array.ml:313:4>>*/ x.length - 1,
+     a =
+        /*<<array.ml:314:12>>*/  /*<<array.ml:314:12>>*/ caml_make_vect(n, a0),
+     b =
+        /*<<array.ml:315:12>>*/  /*<<array.ml:315:12>>*/ caml_make_vect(n, b0),
+     _O_ =  /*<<array.ml:316:4>>*/ n - 1 | 0,
+     _N_ =  /*<<array.ml:315:12>>*/ 1;
     if(_O_ >= 1){
      var i = _N_;
      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>>*/ var _P_ = i + 1 | 0;
+      var _P_ =  /*<<array.ml:316:4>>*/ i + 1 | 0;
       if(_O_ === i) break;
       i = _P_;
      }
@@ -7593,21 +7791,22 @@
      /*<<array.ml:321:4>>*/ return [0, a, b];
     /*<<array.ml:322:5>>*/ }
    function combine(a, b){
-    var na = a.length - 1,  /*<<array.ml:326:2>>*/ nb = b.length - 1;
+    var na = a.length - 1, nb =  /*<<array.ml:326:2>>*/ b.length - 1;
     if(na !== nb)
       /*<<array.ml:327:19>>*/  /*<<array.ml:327:19>>*/ caml_call1
       (Stdlib[1], cst_Array_combine);
     if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
     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;
+     x =
+        /*<<array.ml:330:12>>*/  /*<<array.ml:330:12>>*/ caml_make_vect
+        (na, [0, a[1], b[1]]),
+     _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
+     _K_ =  /*<<array.ml:330:12>>*/ 1;
     if(_L_ >= 1){
      var i = _K_;
      for(;;){
       x[1 + i] = [0, a[1 + i], b[1 + i]];
-       /*<<array.ml:331:4>>*/ var _M_ = i + 1 | 0;
+      var _M_ =  /*<<array.ml:331:4>>*/ i + 1 | 0;
       if(_L_ === i) break;
       i = _M_;
      }
@@ -7615,26 +7814,28 @@
      /*<<array.ml:334:4>>*/ return x;
     /*<<array.ml:335:5>>*/ }
    var
-     /*<<array.ml:337:0>>*/ Bottom =
-      [248, "Stdlib.Array.Bottom", runtime.caml_fresh_oo_id(0)],
+    Bottom =
+       /*<<array.ml:337:0>>*/ [248,
+       "Stdlib.Array.Bottom",
+       runtime.caml_fresh_oo_id(0)],
     _a_ = [0, "array.ml", 369, 4];
    function sort(cmp, a){
     function maxson(l, i){
      var
       i31 = ((i + i | 0) + i | 0) + 1 | 0,
-       /*<<array.ml:341:12>>*/ x = [0, i31];
+      x =  /*<<array.ml:341:12>>*/ [0, i31];
      if((i31 + 2 | 0) < l){
       var
-        /*<<array.ml:342:22>>*/ _D_ = i31 + 1 | 0,
-        /*<<array.ml:343:25>>*/ _E_ = caml_check_bound(a, _D_)[1 + _D_];
+       _D_ =  /*<<array.ml:342:22>>*/ i31 + 1 | 0,
+       _E_ =  /*<<array.ml:343:25>>*/ caml_check_bound(a, _D_)[1 + _D_];
       if
        ( /*<<array.ml:343:9>>*/ caml_call2
          (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
         < 0)
        x[1] = i31 + 1 | 0;
       var
-        /*<<array.ml:344:6>>*/ _F_ = i31 + 2 | 0,
-        /*<<array.ml:344:24>>*/ _G_ = caml_check_bound(a, _F_)[1 + _F_],
+       _F_ =  /*<<array.ml:344:6>>*/ i31 + 2 | 0,
+       _G_ =  /*<<array.ml:344:24>>*/ caml_check_bound(a, _F_)[1 + _F_],
        _H_ = x[1];
       if
        ( /*<<array.ml:344:9>>*/ caml_call2
@@ -7646,7 +7847,7 @@
      if((i31 + 1 | 0) < l){
       var
        _I_ = i31 + 1 | 0,
-        /*<<array.ml:347:38>>*/ _J_ = caml_check_bound(a, _I_)[1 + _I_];
+       _J_ =  /*<<array.ml:347:38>>*/ caml_check_bound(a, _I_)[1 + _I_];
        /*<<array.ml:347:22>>*/ if
        (0
         >
@@ -7662,18 +7863,18 @@
     if(_x_ >= 0){
      var i$6 = _x_;
      for(;;){
-       /*<<array.ml:378:50>>*/ var e$1 = caml_check_bound(a, i$6)[1 + i$6];
+      var e$1 =  /*<<array.ml:378:50>>*/ caml_check_bound(a, i$6)[1 + i$6];
        /*<<array.ml:360:22>>*/ try{
        var i = i$6;
         /*<<array.ml:352:4>>*/ for(;;){
-         /*<<array.ml:352:12>>*/ var j = maxson(l, i);
+        var j =  /*<<array.ml:352:12>>*/ maxson(l, i);
          /*<<array.ml:353:7>>*/ if
          (0
           >=
             /*<<array.ml:353:7>>*/ caml_call2
             (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
-         /*<<array.ml:354:14>>*/ var _u_ = caml_check_bound(a, j)[1 + j];
+        var _u_ =  /*<<array.ml:354:14>>*/ caml_check_bound(a, j)[1 + j];
          /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
         i = j;
        }
@@ -7685,24 +7886,24 @@
        var i$0 = exn[2];
         /*<<array.ml:360:61>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
-       /*<<array.ml:378:38>>*/ var _C_ = i$6 - 1 | 0;
+      var _C_ =  /*<<array.ml:378:38>>*/ i$6 - 1 | 0;
       if(0 === i$6) break;
       i$6 = _C_;
      }
     }
-     /*<<array.ml:379:2>>*/ var _y_ = l - 1 | 0;
+    var _y_ =  /*<<array.ml:379:2>>*/ l - 1 | 0;
     if(_y_ >= 2){
      var i$4 = _y_;
      for(;;){
-       /*<<array.ml:380:12>>*/ var e$0 = caml_check_bound(a, i$4)[1 + i$4];
+      var e$0 =  /*<<array.ml:380:12>>*/ caml_check_bound(a, i$4)[1 + i$4];
        /*<<array.ml:381:4>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
       var i$5 = 0;
        /*<<array.ml:366:19>>*/ try{
        var i$1 = i$5;
         /*<<array.ml:362:4>>*/ for(;;){
         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];
+         j$0 =  /*<<array.ml:362:12>>*/ maxson(i$4, i$1),
+         _v_ =  /*<<array.ml:363:12>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<array.ml:363:4>>*/ caml_check_bound(a, i$1)[1 + i$1] = _v_;
         i$1 = j$0;
        }
@@ -7727,8 +7928,9 @@
               /*<<array.ml:370:7>>*/ caml_call2
               (cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
-           /*<<array.ml:371:14>>*/ var
-           _w_ = caml_check_bound(a, father)[1 + father];
+          var
+           _w_ =
+              /*<<array.ml:371:14>>*/ caml_check_bound(a, father)[1 + father];
            /*<<array.ml:371:6>>*/ caml_check_bound(a, i$3)[1 + i$3] = _w_;
           if(0 >= father) break b;
           i$3 = father;
@@ -7738,7 +7940,7 @@
         }
          /*<<array.ml:372:49>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
-        /*<<array.ml:379:2>>*/ var _B_ = i$4 - 1 | 0;
+       var _B_ =  /*<<array.ml:379:2>>*/ i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _B_;
       }
@@ -7746,7 +7948,7 @@
     }
     var _z_ = 1 < l ? 1 : 0;
     if(_z_){
-      /*<<array.ml:384:25>>*/ var e = caml_check_bound(a, 1)[2];
+     var e =  /*<<array.ml:384:25>>*/ 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;
@@ -7760,10 +7962,10 @@
      var
       src1r = src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
-       /*<<array.ml:407:44>>*/ s2$1 =
-        caml_check_bound(src2, src2ofs)[1 + src2ofs],
-       /*<<array.ml:407:20>>*/ s1$1 =
-        caml_check_bound(a, src1ofs)[1 + src1ofs],
+      s2$1 =
+         /*<<array.ml:407:44>>*/ caml_check_bound(src2, src2ofs)[1 + src2ofs],
+      s1$1 =
+         /*<<array.ml:407:20>>*/ caml_check_bound(a, src1ofs)[1 + src1ofs],
       i1 = src1ofs,
       s1 = s1$1,
       i2 = src2ofs,
@@ -7773,37 +7975,37 @@
        /*<<array.ml:392:9>>*/ if
        (0 <  /*<<array.ml:392:9>>*/ caml_call2(cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-        /*<<array.ml:400:8>>*/ var i2$0 = i2 + 1 | 0;
+       var i2$0 =  /*<<array.ml:400:8>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
        var
-         /*<<array.ml:403:10>>*/ d$0 = d + 1 | 0,
-         /*<<array.ml:403:24>>*/ s2$0 = caml_check_bound(src2, i2$0)[1 + i2$0];
+        d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
+        s2$0 =  /*<<array.ml:403:24>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
        i2 = i2$0;
        s2 = s2$0;
        d = d$0;
       }
       else{
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-        /*<<array.ml:393:8>>*/ var i1$0 = i1 + 1 | 0;
+       var i1$0 =  /*<<array.ml:393:8>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
         return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0);
        var
-         /*<<array.ml:396:10>>*/ d$1 = d + 1 | 0,
-         /*<<array.ml:396:18>>*/ s1$0 = caml_check_bound(a, i1$0)[1 + i1$0];
+        d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
+        s1$0 =  /*<<array.ml:396:18>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
        i1 = i1$0;
        s1 = s1$0;
        d = d$1;
       }
      /*<<array.ml:407:70>>*/ }
     function isortto(srcofs, dst, dstofs, len){
-     var _m_ = len - 1 | 0,  /*<<array.ml:410:4>>*/ _l_ = 0;
+     var _m_ = len - 1 | 0, _l_ =  /*<<array.ml:410:4>>*/ 0;
      if(_m_ >= 0){
       var i = _l_;
       for(;;){
        var
         _n_ = srcofs + i | 0,
-         /*<<array.ml:411:14>>*/ e = caml_check_bound(a, _n_)[1 + _n_],
-         /*<<array.ml:412:14>>*/ j = [0, (dstofs + i | 0) - 1 | 0];
+        e =  /*<<array.ml:411:14>>*/ caml_check_bound(a, _n_)[1 + _n_],
+        j =  /*<<array.ml:412:14>>*/ [0, (dstofs + i | 0) - 1 | 0];
        for(;;){
         if(dstofs > j[1]) break;
         var _o_ = j[1];
@@ -7815,14 +8017,14 @@
          break;
         var
          _p_ = j[1],
-          /*<<array.ml:414:25>>*/ _q_ = caml_check_bound(dst, _p_)[1 + _p_],
+         _q_ =  /*<<array.ml:414:25>>*/ caml_check_bound(dst, _p_)[1 + _p_],
          _r_ = j[1] + 1 | 0;
          /*<<array.ml:414:8>>*/ caml_check_bound(dst, _r_)[1 + _r_] = _q_;
         j[1]--;
        }
        var _s_ = j[1] + 1 | 0;
         /*<<array.ml:417:6>>*/ caml_check_bound(dst, _s_)[1 + _s_] = e;
-        /*<<array.ml:410:4>>*/ var _t_ = i + 1 | 0;
+       var _t_ =  /*<<array.ml:410:4>>*/ i + 1 | 0;
        if(_m_ === i) break;
        i = _t_;
       }
@@ -7843,8 +8045,9 @@
     var
      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]);
+     t =
+        /*<<array.ml:433:12>>*/  /*<<array.ml:433:12>>*/ caml_make_vect
+        (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);
@@ -7855,9 +8058,10 @@
      var i = _j_;
      for(;;){
       var
-        /*<<array.ml:444:12>>*/ j =
-          /*<<array.ml:444:12>>*/ caml_call1(rand, i + 1 | 0),
-        /*<<array.ml:445:12>>*/ v = a[1 + i];
+       j =
+          /*<<array.ml:444:12>>*/  /*<<array.ml:444:12>>*/ caml_call1
+          (rand, i + 1 | 0),
+       v =  /*<<array.ml:445:12>>*/ 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;
@@ -7872,13 +8076,13 @@
       /*<<array.ml:454:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:458:9>>*/ return 0;
      var
-       /*<<array.ml:456:14>>*/ x = a[1 + i],
-       /*<<array.ml:456:14>>*/ _h_ = i + 1 | 0;
+      x =  /*<<array.ml:456:14>>*/ a[1 + i],
+      _h_ =  /*<<array.ml:456:14>>*/ 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;
+    var _f_ =  /*<<array.ml:460:2>>*/ 0;
      /*<<array.ml:460:2>>*/ return function(_g_){
       /*<<?>>*/ return aux(_f_, _g_);};
     /*<<array.ml:460:7>>*/ }
@@ -7887,20 +8091,20 @@
       /*<<array.ml:464:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:468:9>>*/ return 0;
      var
-       /*<<array.ml:466:14>>*/ x = a[1 + i],
-       /*<<array.ml:466:14>>*/ _d_ = i + 1 | 0;
+      x =  /*<<array.ml:466:14>>*/ a[1 + i],
+      _d_ =  /*<<array.ml:466:14>>*/ i + 1 | 0;
       /*<<array.ml:467:6>>*/ return [0,
              [0, i, x],
              function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}];
      /*<<array.ml:468:16>>*/ }
-     /*<<array.ml:470:2>>*/ var _b_ = 0;
+    var _b_ =  /*<<array.ml:470:2>>*/ 0;
      /*<<array.ml:470:2>>*/ return function(_c_){
       /*<<?>>*/ return aux(_b_, _c_);};
     /*<<array.ml:470:7>>*/ }
    function of_seq(i$2){
-     /*<<array.ml:484:10>>*/ var
+    var
      l =
-        /*<<array.ml:484:10>>*/ caml_call3
+        /*<<array.ml:484:10>>*/  /*<<array.ml:484:10>>*/ caml_call3
         (Stdlib_Seq[5],
          function(acc, x){
            /*<<array.ml:484:38>>*/ return [0, x, acc];
@@ -7911,17 +8115,18 @@
     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,
+     len =  /*<<array.ml:475:16>>*/ list_length(0, l),
+     a =
+        /*<<array.ml:476:14>>*/  /*<<array.ml:476:14>>*/ caml_make_vect
+        (len, hd),
+     i$1 =  /*<<array.ml:475:16>>*/ len - 2 | 0,
      i = i$1,
      param = tl;
     for(;;){
      if(! param)  /*<<array.ml:477: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>>*/ var i$0 = i - 1 | 0;
+     var i$0 =  /*<<array.ml:477:6>>*/ i - 1 | 0;
      i = i$0;
      param = tl$0;
     }
@@ -7982,20 +8187,20 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_Float_array_blit$1 = "Float.array.blit",
-     /*<<?>>*/ cst_float_ml = "float.ml",
-     /*<<?>>*/ 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_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,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_Float_array_blit$1 =  /*<<?>>*/ "Float.array.blit",
+    cst_float_ml =  /*<<?>>*/ "float.ml",
+    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_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,
+    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)
@@ -8020,8 +8225,8 @@
     infinity = Stdlib[22],
     neg_infinity = Stdlib[23],
     nan = Stdlib[24],
-     /*<<float.ml:38:20>>*/ signaling_nan =
-       /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
+    signaling_nan =
+       /*<<float.ml:38:20>>*/  /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(1, 0, 32752));
    function is_finite(x){
      /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0;
@@ -8160,7 +8365,7 @@
      var i = ofs;
      for(;;){
        /*<<float.ml:184:36>>*/ a[1 + i] = v;
-       /*<<float.ml:184:36>>*/ var _aW_ = i + 1 | 0;
+      var _aW_ =  /*<<float.ml:184:36>>*/ i + 1 | 0;
       if(_aV_ === i) break;
       i = _aW_;
      }
@@ -8183,8 +8388,10 @@
     return _aS_ ?  /*<<float.ml:191:6>>*/ caml_call1(Stdlib[1], msg) : _aS_;
     /*<<float.ml:191:21>>*/ }
    function make(n, v){
-     /*<<float.ml:194:17>>*/ var
-     result =  /*<<float.ml:194:17>>*/ caml_floatarray_create(n);
+    var
+     result =
+        /*<<float.ml:194:17>>*/  /*<<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>>*/ }
@@ -8193,16 +8400,17 @@
       /*<<float.ml:199:18>>*/ return  /*<<float.ml:199:18>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_init);
     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;
+     res =
+        /*<<float.ml:201:16>>*/  /*<<float.ml:201:16>>*/ caml_floatarray_create
+        (l),
+     _aP_ =  /*<<float.ml:202:6>>*/ l - 1 | 0,
+     _aO_ =  /*<<float.ml:201:16>>*/ 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>>*/ var _aQ_ = i + 1 | 0;
+      var _aQ_ =  /*<<float.ml:203:8>>*/ i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
      }
@@ -8213,17 +8421,17 @@
      /*<<float.ml:209:4>>*/ if(sy < 0)
       /*<<float.ml:209:19>>*/  /*<<float.ml:209:19>>*/ caml_call1
       (Stdlib[1], cst_Float_Array_make_matrix);
-     /*<<float.ml:210:14>>*/ var
+    var
      res =
-        /*<<float.ml:210:14>>*/ caml_make_vect
+        /*<<float.ml:210:14>>*/  /*<<float.ml:210:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
-     var _aM_ = sx - 1 | 0,  /*<<float.ml:211:19>>*/ _aL_ = 0;
+     var _aM_ = sx - 1 | 0, _aL_ =  /*<<float.ml:211:19>>*/ 0;
      if(_aM_ >= 0){
       var x = _aL_;
       for(;;){
         /*<<float.ml:213:8>>*/ res[1 + x] = make(sy, v);
-        /*<<float.ml:213:8>>*/ var _aN_ = x + 1 | 0;
+       var _aN_ =  /*<<float.ml:213:8>>*/ x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
       }
@@ -8235,32 +8443,33 @@
      /*<<float.ml:220:4>>*/ if(sy < 0)
       /*<<float.ml:220:19>>*/  /*<<float.ml:220:19>>*/ caml_call1
       (Stdlib[1], cst_Float_Array_init_matrix);
-     /*<<float.ml:221:14>>*/ var
+    var
      res =
-        /*<<float.ml:221:14>>*/ caml_make_vect
+        /*<<float.ml:221:14>>*/  /*<<float.ml:221:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
-     var _aG_ = sx - 1 | 0,  /*<<float.ml:222:19>>*/ _aF_ = 0;
+     var _aG_ = sx - 1 | 0, _aF_ =  /*<<float.ml:222:19>>*/ 0;
      if(_aG_ >= 0){
       var x = _aF_;
       for(;;){
        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;
+        row =
+           /*<<float.ml:224:18>>*/  /*<<float.ml:224:18>>*/ caml_floatarray_create
+           (sy),
+        _aI_ =  /*<<float.ml:225:8>>*/ sy - 1 | 0,
+        _aH_ =  /*<<float.ml:224:18>>*/ 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>>*/ var _aK_ = y + 1 | 0;
+         var _aK_ =  /*<<float.ml:226:10>>*/ y + 1 | 0;
          if(_aI_ === y) break;
          y = _aK_;
         }
        }
         /*<<float.ml:228:8>>*/ res[1 + x] = row;
-        /*<<float.ml:222:19>>*/ var _aJ_ = x + 1 | 0;
+       var _aJ_ =  /*<<float.ml:222:19>>*/ x + 1 | 0;
        if(_aG_ === x) break;
        x = _aJ_;
       }
@@ -8271,9 +8480,10 @@
    function append(a1, a2){
     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);
+     l2 =  /*<<float.ml:235:4>>*/ a2.length - 1,
+     result =
+        /*<<float.ml:236:17>>*/  /*<<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
@@ -8297,8 +8507,9 @@
      param = tl;
     }
     var
-      /*<<float.ml:251:17>>*/ result =
-        /*<<float.ml:251:17>>*/ caml_floatarray_create(acc),
+     result =
+        /*<<float.ml:251:17>>*/  /*<<float.ml:251:17>>*/ caml_floatarray_create
+        (acc),
      l$0 = l,
      i = 0;
      /*<<float.ml:253:6>>*/ for(;;){
@@ -8310,7 +8521,7 @@
      var
       tl$0 = l$0[2],
       hd$0 = l$0[1],
-       /*<<float.ml:256:8>>*/ hlen = hd$0.length - 1;
+      hlen =  /*<<float.ml:256:8>>*/ hd$0.length - 1;
       /*<<float.ml:257:8>>*/  /*<<float.ml:257:8>>*/ caml_floatarray_blit
       (hd$0, 0, result, i, hlen);
      var i$0 = i + hlen | 0;
@@ -8320,8 +8531,10 @@
     /*<<float.ml:261:10>>*/ }
    function sub(a, ofs, len){
      /*<<float.ml:264:4>>*/ check(a, ofs, len, cst_Float_Array_sub);
-     /*<<float.ml:265:17>>*/ var
-     result =  /*<<float.ml:265:17>>*/ caml_floatarray_create(len);
+    var
+     result =
+        /*<<float.ml:265:17>>*/  /*<<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;
@@ -8329,8 +8542,9 @@
    function copy(a){
     var
      l = a.length - 1,
-      /*<<float.ml:271:17>>*/ result =
-        /*<<float.ml:271:17>>*/ caml_floatarray_create(l);
+     result =
+        /*<<float.ml:271:17>>*/  /*<<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;
@@ -8353,8 +8567,8 @@
     /*<<float.ml:285:39>>*/ }
    function of_list(l){
     var
-      /*<<float.ml:288:17>>*/ result =
-        /*<<float.ml:288:17>>*/ caml_floatarray_create
+     result =
+        /*<<float.ml:288:17>>*/  /*<<float.ml:288:17>>*/ caml_floatarray_create
         ( /*<<float.ml:288:24>>*/ caml_call1(Stdlib_List[1], l)),
      i = 0,
      l$0 = l;
@@ -8362,19 +8576,19 @@
      if(! l$0)  /*<<float.ml:289:4>>*/ return result;
      var t = l$0[2], h = l$0[1];
       /*<<float.ml:292:18>>*/ result[1 + i] = h;
-      /*<<float.ml:289:4>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:289:4>>*/ i + 1 | 0;
      i = i$0;
      l$0 = t;
     }
     /*<<float.ml:294:12>>*/ }
    function iter(f, a){
-    var _aC_ = a.length - 2 | 0,  /*<<float.ml:298:4>>*/ _aB_ = 0;
+    var _aC_ = a.length - 2 | 0, _aB_ =  /*<<float.ml:298:4>>*/ 0;
     if(_aC_ >= 0){
      var i = _aB_;
      for(;;){
        /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ caml_call1
        (f, a[1 + i]);
-       /*<<float.ml:298:33>>*/ var _aD_ = i + 1 | 0;
+      var _aD_ =  /*<<float.ml:298:33>>*/ i + 1 | 0;
       if(_aC_ === i) break;
       i = _aD_;
      }
@@ -8385,13 +8599,13 @@
      /*<<float.ml:302:4>>*/ if(a.length - 1 !== b.length - 1)
       /*<<float.ml:303:6>>*/ return  /*<<float.ml:303:6>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_iter2_arrays_m);
-    var _az_ = a.length - 2 | 0,  /*<<float.ml:305:6>>*/ _ay_ = 0;
+    var _az_ = a.length - 2 | 0, _ay_ =  /*<<float.ml:305:6>>*/ 0;
     if(_az_ >= 0){
      var i = _ay_;
      for(;;){
        /*<<float.ml:305:35>>*/  /*<<float.ml:305:35>>*/ caml_call2
        (f, a[1 + i], b[1 + i]);
-       /*<<float.ml:305:35>>*/ var _aA_ = i + 1 | 0;
+      var _aA_ =  /*<<float.ml:305:35>>*/ i + 1 | 0;
       if(_az_ === i) break;
       i = _aA_;
      }
@@ -8401,16 +8615,17 @@
    function map(f, a){
     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;
+     r =
+        /*<<float.ml:309:12>>*/  /*<<float.ml:309:12>>*/ caml_floatarray_create
+        (l),
+     _aw_ =  /*<<float.ml:310:4>>*/ l - 1 | 0,
+     _av_ =  /*<<float.ml:309:12>>*/ 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>>*/ var _ax_ = i + 1 | 0;
+      var _ax_ =  /*<<float.ml:311:6>>*/ i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
      }
@@ -8418,13 +8633,13 @@
      /*<<float.ml:313:4>>*/ return r;
     /*<<float.ml:313:5>>*/ }
    function map_inplace(f, a){
-    var _at_ = a.length - 2 | 0,  /*<<float.ml:317:4>>*/ _as_ = 0;
+    var _at_ = a.length - 2 | 0, _as_ =  /*<<float.ml:317:4>>*/ 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>>*/ var _au_ = i + 1 | 0;
+      var _au_ =  /*<<float.ml:318:6>>*/ i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
      }
@@ -8432,21 +8647,22 @@
     return 0;
     /*<<float.ml:319:8>>*/ }
    function map2(f, a, b){
-    var la = a.length - 1,  /*<<float.ml:323:4>>*/ lb = b.length - 1;
+    var la = a.length - 1, lb =  /*<<float.ml:323:4>>*/ b.length - 1;
     if(la !== lb)
       /*<<float.ml:325:6>>*/ return  /*<<float.ml:325:6>>*/ caml_call1
              (Stdlib[1], cst_Float_Array_map2_arrays_mu);
     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;
+     r =
+        /*<<float.ml:327:14>>*/  /*<<float.ml:327:14>>*/ caml_floatarray_create
+        (la),
+     _aq_ =  /*<<float.ml:328:6>>*/ la - 1 | 0,
+     _ap_ =  /*<<float.ml:327:14>>*/ 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>>*/ var _ar_ = i + 1 | 0;
+      var _ar_ =  /*<<float.ml:329:8>>*/ i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
      }
@@ -8454,13 +8670,13 @@
      /*<<float.ml:331:6>>*/ return r;
     /*<<float.ml:332:7>>*/ }
    function iteri(f, a){
-    var _an_ = a.length - 2 | 0,  /*<<float.ml:336:4>>*/ _am_ = 0;
+    var _an_ = a.length - 2 | 0, _am_ =  /*<<float.ml:336:4>>*/ 0;
     if(_an_ >= 0){
      var i = _am_;
      for(;;){
        /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ caml_call2
        (f, i, a[1 + i]);
-       /*<<float.ml:336:33>>*/ var _ao_ = i + 1 | 0;
+      var _ao_ =  /*<<float.ml:336:33>>*/ i + 1 | 0;
       if(_an_ === i) break;
       i = _ao_;
      }
@@ -8470,16 +8686,17 @@
    function mapi(f, a){
     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;
+     r =
+        /*<<float.ml:340:12>>*/  /*<<float.ml:340:12>>*/ caml_floatarray_create
+        (l),
+     _ak_ =  /*<<float.ml:341:4>>*/ l - 1 | 0,
+     _aj_ =  /*<<float.ml:340:12>>*/ 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>>*/ var _al_ = i + 1 | 0;
+      var _al_ =  /*<<float.ml:342:6>>*/ i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
      }
@@ -8487,13 +8704,13 @@
      /*<<float.ml:344:4>>*/ return r;
     /*<<float.ml:344:5>>*/ }
    function mapi_inplace(f, a){
-    var _ah_ = a.length - 2 | 0,  /*<<float.ml:348:4>>*/ _ag_ = 0;
+    var _ah_ = a.length - 2 | 0, _ag_ =  /*<<float.ml:348:4>>*/ 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>>*/ var _ai_ = i + 1 | 0;
+      var _ai_ =  /*<<float.ml:349:6>>*/ i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
      }
@@ -8502,14 +8719,14 @@
     /*<<float.ml:350:8>>*/ }
    function fold_left(f, x, a){
     var
-      /*<<float.ml:354:12>>*/ r = [0, x],
+     r =  /*<<float.ml:354:12>>*/ [0, x],
      _ae_ = a.length - 2 | 0,
-      /*<<float.ml:354:12>>*/ _ad_ = 0;
+     _ad_ =  /*<<float.ml:354:12>>*/ 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>>*/ var _af_ = i + 1 | 0;
+      var _af_ =  /*<<float.ml:355:4>>*/ i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
      }
@@ -8518,13 +8735,13 @@
     /*<<float.ml:358:6>>*/ }
    function fold_right(f, a, x){
     var
-      /*<<float.ml:362:12>>*/ r = [0, x],
-      /*<<float.ml:363:4>>*/ _ab_ = a.length - 2 | 0;
+     r =  /*<<float.ml:362:12>>*/ [0, x],
+     _ab_ =  /*<<float.ml:363:4>>*/ 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>>*/ var _ac_ = i - 1 | 0;
+      var _ac_ =  /*<<float.ml:363:4>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
      }
@@ -8538,7 +8755,7 @@
       /*<<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>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:374:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:375:10>>*/ }
@@ -8549,7 +8766,7 @@
       /*<<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>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:382:38>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:384:10>>*/ }
@@ -8559,7 +8776,7 @@
      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>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:392:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:394:10>>*/ }
@@ -8568,7 +8785,7 @@
      /*<<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>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:402:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:404:10>>*/ }
@@ -8576,10 +8793,10 @@
     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>>*/ var x = a[1 + i];
+     var x =  /*<<float.ml:412:16>>*/ 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>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:414:13>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:416:10>>*/ }
@@ -8590,7 +8807,7 @@
       /*<<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>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:424:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:425:10>>*/ }
@@ -8598,10 +8815,12 @@
     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>>*/ var
-      r =  /*<<float.ml:433:14>>*/ caml_call1(f, a[1 + i]);
+     var
+      r =
+         /*<<float.ml:433:14>>*/  /*<<float.ml:433:14>>*/ caml_call1
+         (f, a[1 + i]);
      if(r)  /*<<float.ml:435:25>>*/ return r;
-      /*<<float.ml:434:18>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:434:18>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:437:10>>*/ }
@@ -8609,34 +8828,38 @@
     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>>*/ var
-      r =  /*<<float.ml:445:14>>*/ caml_call2(f, i, a[1 + i]);
+     var
+      r =
+         /*<<float.ml:445:14>>*/  /*<<float.ml:445:14>>*/ caml_call2
+         (f, i, a[1 + i]);
      if(r)  /*<<float.ml:447:25>>*/ return r;
-      /*<<float.ml:446:18>>*/ var i$0 = i + 1 | 0;
+     var i$0 =  /*<<float.ml:446:18>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:449:10>>*/ }
    var
-     /*<<float.ml:452:2>>*/ Bottom =
-      [248, "Stdlib.Float.Array.Bottom", runtime.caml_fresh_oo_id(0)],
+    Bottom =
+       /*<<float.ml:452:2>>*/ [248,
+       "Stdlib.Float.Array.Bottom",
+       runtime.caml_fresh_oo_id(0)],
     _b_ = [0, cst_float_ml, 484, 6];
    function sort(cmp, a){
     function maxson(l, i){
      var
       i31 = ((i + i | 0) + i | 0) + 1 | 0,
-       /*<<float.ml:456:14>>*/ x = [0, i31];
+      x =  /*<<float.ml:456:14>>*/ [0, i31];
      if((i31 + 2 | 0) < l){
       var
-        /*<<float.ml:457:24>>*/ _W_ = i31 + 1 | 0,
-        /*<<float.ml:458:27>>*/ _X_ = caml_check_bound(a, _W_)[1 + _W_];
+       _W_ =  /*<<float.ml:457:24>>*/ i31 + 1 | 0,
+       _X_ =  /*<<float.ml:458:27>>*/ caml_check_bound(a, _W_)[1 + _W_];
       if
        ( /*<<float.ml:458:11>>*/ caml_call2
          (cmp, caml_check_bound(a, i31)[1 + i31], _X_)
         < 0)
        x[1] = i31 + 1 | 0;
       var
-        /*<<float.ml:459:8>>*/ _Y_ = i31 + 2 | 0,
-        /*<<float.ml:459:26>>*/ _Z_ = caml_check_bound(a, _Y_)[1 + _Y_],
+       _Y_ =  /*<<float.ml:459:8>>*/ i31 + 2 | 0,
+       _Z_ =  /*<<float.ml:459:26>>*/ caml_check_bound(a, _Y_)[1 + _Y_],
        ___ = x[1];
       if
        ( /*<<float.ml:459:11>>*/ caml_call2
@@ -8648,7 +8871,7 @@
      if((i31 + 1 | 0) < l){
       var
        _$_ = i31 + 1 | 0,
-        /*<<float.ml:462:40>>*/ _aa_ = caml_check_bound(a, _$_)[1 + _$_];
+       _aa_ =  /*<<float.ml:462:40>>*/ caml_check_bound(a, _$_)[1 + _$_];
        /*<<float.ml:462:24>>*/ if
        (0
         >
@@ -8664,18 +8887,18 @@
     if(_Q_ >= 0){
      var i$6 = _Q_;
      for(;;){
-       /*<<float.ml:493:52>>*/ var e$1 = caml_check_bound(a, i$6)[1 + i$6];
+      var e$1 =  /*<<float.ml:493:52>>*/ caml_check_bound(a, i$6)[1 + i$6];
        /*<<float.ml:475:24>>*/ try{
        var i = i$6;
         /*<<float.ml:467:6>>*/ for(;;){
-         /*<<float.ml:467:14>>*/ var j = maxson(l, i);
+        var j =  /*<<float.ml:467:14>>*/ maxson(l, i);
          /*<<float.ml:468:9>>*/ if
          (0
           >=
             /*<<float.ml:468:9>>*/ caml_call2
             (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
-         /*<<float.ml:469:16>>*/ var _N_ = caml_check_bound(a, j)[1 + j];
+        var _N_ =  /*<<float.ml:469:16>>*/ caml_check_bound(a, j)[1 + j];
          /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
         i = j;
        }
@@ -8687,24 +8910,24 @@
        var i$0 = exn[2];
         /*<<float.ml:475:63>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
-       /*<<float.ml:493:40>>*/ var _V_ = i$6 - 1 | 0;
+      var _V_ =  /*<<float.ml:493:40>>*/ i$6 - 1 | 0;
       if(0 === i$6) break;
       i$6 = _V_;
      }
     }
-     /*<<float.ml:494:4>>*/ var _R_ = l - 1 | 0;
+    var _R_ =  /*<<float.ml:494:4>>*/ l - 1 | 0;
     if(_R_ >= 2){
      var i$4 = _R_;
      for(;;){
-       /*<<float.ml:495:14>>*/ var e$0 = caml_check_bound(a, i$4)[1 + i$4];
+      var e$0 =  /*<<float.ml:495:14>>*/ caml_check_bound(a, i$4)[1 + i$4];
        /*<<float.ml:496:6>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
       var i$5 = 0;
        /*<<float.ml:481:21>>*/ try{
        var i$1 = i$5;
         /*<<float.ml:477:6>>*/ for(;;){
         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];
+         j$0 =  /*<<float.ml:477:14>>*/ maxson(i$4, i$1),
+         _O_ =  /*<<float.ml:478:14>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<float.ml:478:6>>*/ caml_check_bound(a, i$1)[1 + i$1] = _O_;
         i$1 = j$0;
        }
@@ -8729,8 +8952,9 @@
               /*<<float.ml:485:9>>*/ caml_call2
               (cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
-           /*<<float.ml:486:16>>*/ var
-           _P_ = caml_check_bound(a, father)[1 + father];
+          var
+           _P_ =
+              /*<<float.ml:486:16>>*/ caml_check_bound(a, father)[1 + father];
            /*<<float.ml:486:8>>*/ caml_check_bound(a, i$3)[1 + i$3] = _P_;
           if(0 >= father) break b;
           i$3 = father;
@@ -8740,7 +8964,7 @@
         }
          /*<<float.ml:487:51>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
-        /*<<float.ml:494:4>>*/ var _U_ = i$4 - 1 | 0;
+       var _U_ =  /*<<float.ml:494:4>>*/ i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _U_;
       }
@@ -8748,7 +8972,7 @@
     }
     var _S_ = 1 < l ? 1 : 0;
     if(_S_){
-      /*<<float.ml:499:27>>*/ var e = caml_check_bound(a, 1)[2];
+     var e =  /*<<float.ml:499:27>>*/ 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;
      var _T_ = 0;
@@ -8762,10 +8986,10 @@
      var
       src1r = src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
-       /*<<float.ml:522:46>>*/ s2$1 =
-        caml_check_bound(src2, src2ofs)[1 + src2ofs],
-       /*<<float.ml:522:22>>*/ s1$1 =
-        caml_check_bound(a, src1ofs)[1 + src1ofs],
+      s2$1 =
+         /*<<float.ml:522:46>>*/ caml_check_bound(src2, src2ofs)[1 + src2ofs],
+      s1$1 =
+         /*<<float.ml:522:22>>*/ caml_check_bound(a, src1ofs)[1 + src1ofs],
       i1 = src1ofs,
       s1 = s1$1,
       i2 = src2ofs,
@@ -8775,37 +8999,37 @@
        /*<<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>>*/ var i2$0 = i2 + 1 | 0;
+       var i2$0 =  /*<<float.ml:515:10>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
        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];
+        d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
+        s2$0 =  /*<<float.ml:518:26>>*/ 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>>*/ var i1$0 = i1 + 1 | 0;
+       var i1$0 =  /*<<float.ml:508:10>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
         return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0);
        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];
+        d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
+        s1$0 =  /*<<float.ml:511:20>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
        i1 = i1$0;
        s1 = s1$0;
        d = d$1;
       }
      /*<<float.ml:522:72>>*/ }
     function isortto(srcofs, dst, dstofs, len){
-     var _F_ = len - 1 | 0,  /*<<float.ml:525:6>>*/ _E_ = 0;
+     var _F_ = len - 1 | 0, _E_ =  /*<<float.ml:525:6>>*/ 0;
      if(_F_ >= 0){
       var i = _E_;
       for(;;){
        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];
+        e =  /*<<float.ml:526:16>>*/ caml_check_bound(a, _G_)[1 + _G_],
+        j =  /*<<float.ml:527:16>>*/ [0, (dstofs + i | 0) - 1 | 0];
        for(;;){
         if(dstofs > j[1]) break;
         var _H_ = j[1];
@@ -8817,14 +9041,14 @@
          break;
         var
          _I_ = j[1],
-          /*<<float.ml:529:27>>*/ _J_ = caml_check_bound(dst, _I_)[1 + _I_],
+         _J_ =  /*<<float.ml:529:27>>*/ caml_check_bound(dst, _I_)[1 + _I_],
          _K_ = j[1] + 1 | 0;
          /*<<float.ml:529: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>>*/ var _M_ = i + 1 | 0;
+       var _M_ =  /*<<float.ml:525:6>>*/ i + 1 | 0;
        if(_F_ === i) break;
        i = _M_;
       }
@@ -8845,8 +9069,9 @@
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
-      /*<<float.ml:548:14>>*/ t =
-        /*<<float.ml:548:14>>*/ caml_floatarray_create(l2);
+     t =
+        /*<<float.ml:548:14>>*/  /*<<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);
@@ -8857,9 +9082,10 @@
      var i = _C_;
      for(;;){
       var
-        /*<<float.ml:559:14>>*/ j =
-          /*<<float.ml:559:14>>*/ caml_call1(rand, i + 1 | 0),
-        /*<<float.ml:560:14>>*/ v = a[1 + i];
+       j =
+          /*<<float.ml:559:14>>*/  /*<<float.ml:559:14>>*/ caml_call1
+          (rand, i + 1 | 0),
+       v =  /*<<float.ml:560:14>>*/ 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;
       var _D_ = i - 1 | 0;
@@ -8874,13 +9100,13 @@
       /*<<float.ml:568:6>>*/ if(i >= a.length - 1)
        /*<<float.ml:572:11>>*/ return 0;
      var
-       /*<<float.ml:570:16>>*/ x = a[1 + i],
-       /*<<float.ml:570:16>>*/ _A_ = i + 1 | 0;
+      x =  /*<<float.ml:570:16>>*/ a[1 + i],
+      _A_ =  /*<<float.ml:570:16>>*/ i + 1 | 0;
       /*<<float.ml:571:8>>*/ return [0,
              x,
              function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}];
      /*<<float.ml:572:18>>*/ }
-     /*<<float.ml:574:4>>*/ var _y_ = 0;
+    var _y_ =  /*<<float.ml:574:4>>*/ 0;
      /*<<float.ml:574:4>>*/ return function(_z_){
       /*<<?>>*/ return aux(_y_, _z_);};
     /*<<float.ml:574:9>>*/ }
@@ -8889,38 +9115,40 @@
       /*<<float.ml:579:6>>*/ if(i >= a.length - 1)
        /*<<float.ml:583:11>>*/ return 0;
      var
-       /*<<float.ml:581:16>>*/ x = a[1 + i],
-       /*<<float.ml:581:16>>*/ _w_ = i + 1 | 0;
+      x =  /*<<float.ml:581:16>>*/ a[1 + i],
+      _w_ =  /*<<float.ml:581:16>>*/ i + 1 | 0;
       /*<<float.ml:582:8>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}];
      /*<<float.ml:583:18>>*/ }
-     /*<<float.ml:585:4>>*/ var _u_ = 0;
+    var _u_ =  /*<<float.ml:585:4>>*/ 0;
      /*<<float.ml:585:4>>*/ return function(_v_){
       /*<<?>>*/ return aux(_u_, _v_);};
     /*<<float.ml:585:9>>*/ }
    function of_seq(i$2){
     var
-      /*<<float.ml:599:12>>*/ l =
-        /*<<float.ml:599:12>>*/ caml_call3
+     l =
+        /*<<float.ml:599:12>>*/  /*<<float.ml:599:12>>*/ caml_call3
         (Stdlib_Seq[5],
          function(acc, x){
            /*<<float.ml:599:40>>*/ return [0, x, acc];
           /*<<float.ml:599: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,
+     len =
+        /*<<float.ml:589:14>>*/  /*<<float.ml:589:14>>*/ caml_call1
+        (Stdlib_List[1], l),
+     a =
+        /*<<float.ml:590:12>>*/  /*<<float.ml:590:12>>*/ caml_floatarray_create
+        (len),
+     i$1 =  /*<<float.ml:589:14>>*/ len - 1 | 0,
      i = i$1,
      param = l;
     for(;;){
      if(! param)  /*<<float.ml:591:4>>*/ return a;
      var tl = param[2], hd = param[1];
       /*<<float.ml:593:18>>*/ a[1 + i] = hd;
-      /*<<float.ml:591:4>>*/ var i$0 = i - 1 | 0;
+     var i$0 =  /*<<float.ml:591:4>>*/ i - 1 | 0;
      i = i$0;
      param = tl;
     }
@@ -8929,17 +9157,17 @@
     var l = a.length - 1;
      /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
     var
-      /*<<float.ml:606:14>>*/ r =
-        /*<<float.ml:606:14>>*/ caml_make_vect
+     r =
+        /*<<float.ml:606:14>>*/  /*<<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;
+     _s_ =  /*<<float.ml:607:6>>*/ l - 1 | 0,
+     _r_ =  /*<<float.ml:606:14>>*/ 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>>*/ var _t_ = i + 1 | 0;
+      var _t_ =  /*<<float.ml:608:8>>*/ i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
      }
@@ -8949,16 +9177,17 @@
    function map_from_array(f, a){
     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;
+     r =
+        /*<<float.ml:615:12>>*/  /*<<float.ml:615:12>>*/ caml_floatarray_create
+        (l),
+     _p_ =  /*<<float.ml:616:4>>*/ l - 1 | 0,
+     _o_ =  /*<<float.ml:615:12>>*/ 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>>*/ var _q_ = i + 1 | 0;
+      var _q_ =  /*<<float.ml:617:6>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
      }
@@ -9107,16 +9336,16 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_greaterequal = runtime.caml_greaterequal,
-     /*<<?>>*/ caml_hash = runtime.caml_hash,
-     /*<<?>>*/ caml_int_compare = runtime.caml_int_compare,
-     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
-     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_mul = runtime.caml_mul,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_greaterequal =  /*<<?>>*/ runtime.caml_greaterequal,
+    caml_hash =  /*<<?>>*/ runtime.caml_hash,
+    caml_int_compare =  /*<<?>>*/ runtime.caml_int_compare,
+    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
+    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_mul =  /*<<?>>*/ runtime.caml_mul,
+    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Sys = global_data.Stdlib__Sys,
@@ -9146,7 +9375,7 @@
     max_int = 2147483647;
    if(32 === _a_)
     var
-      /*<<int32.ml:58:6>>*/ max_int$0 = Stdlib[19],
+     max_int$0 =  /*<<int32.ml:58:6>>*/ Stdlib[19],
      unsigned_to_int =
        function(n){
          /*<<int32.ml:60:8>>*/ if
@@ -9171,8 +9400,10 @@
     /*<<int32.ml:72:31>>*/ }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
-      /*<<int32.ml:77:6>>*/ var
-      _d_ = [0,  /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
+     var
+      _d_ =
+         /*<<int32.ml:77:6>>*/ [0,
+          /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
       /*<<int32.ml:77:6>>*/ return _d_;
     }
     catch(_e_){
@@ -9184,8 +9415,8 @@
    var compare = caml_int_compare, equal = runtime.caml_equal;
    function unsigned_compare(n, m){
     var
-      /*<<int32.ml:86:26>>*/ y = m + 2147483648 | 0,
-      /*<<int32.ml:86:10>>*/ x = n + 2147483648 | 0;
+     y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
+     x =  /*<<int32.ml:86:10>>*/ n + 2147483648 | 0;
      /*<<int32.ml:82:28>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
             (x, y);
     /*<<int32.ml:86:41>>*/ }
@@ -9209,10 +9440,13 @@
      /*<<int32.ml:98:2>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
       /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one;
     var
-      /*<<int32.ml:101:12>>*/ q =
-        /*<<int32.ml:101:23>>*/ runtime.caml_div(n >>> 1 | 0, d) << 1,
-      /*<<int32.ml:102:12>>*/ r =
-       n -  /*<<int32.ml:102:18>>*/ caml_mul(q, d) | 0;
+     q =
+        /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
+        (n >>> 1 | 0, d)
+       << 1,
+     r =
+        /*<<int32.ml:102:12>>*/ n -  /*<<int32.ml:102:18>>*/ caml_mul(q, d)
+       | 0;
      /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0;
     /*<<int32.ml:103:41>>*/ }
    function unsigned_rem(n, d){
@@ -9263,18 +9497,18 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_greaterequal = runtime.caml_greaterequal,
-     /*<<?>>*/ caml_hash = runtime.caml_hash,
-     /*<<?>>*/ caml_int64_add = runtime.caml_int64_add,
-     /*<<?>>*/ caml_int64_compare = runtime.caml_int64_compare,
-     /*<<?>>*/ caml_int64_mul = runtime.caml_int64_mul,
-     /*<<?>>*/ caml_int64_sub = runtime.caml_int64_sub,
-     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
-     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_greaterequal =  /*<<?>>*/ runtime.caml_greaterequal,
+    caml_hash =  /*<<?>>*/ runtime.caml_hash,
+    caml_int64_add =  /*<<?>>*/ runtime.caml_int64_add,
+    caml_int64_compare =  /*<<?>>*/ runtime.caml_int64_compare,
+    caml_int64_mul =  /*<<?>>*/ runtime.caml_int64_mul,
+    caml_int64_sub =  /*<<?>>*/ runtime.caml_int64_sub,
+    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
+    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     _a_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0),
     zero = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
@@ -9305,8 +9539,9 @@
             (n, _d_);
     /*<<int64.ml:51:29>>*/ }
    var
-     /*<<int64.ml:54:16>>*/ max_int$0 =
-       /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32(Stdlib[19]),
+    max_int$0 =
+       /*<<int64.ml:54:16>>*/  /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32
+       (Stdlib[19]),
     _e_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
    function unsigned_to_int(n){
      /*<<int64.ml:56:4>>*/ if
@@ -9321,8 +9556,10 @@
     /*<<int64.ml:62:31>>*/ }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
-      /*<<int64.ml:67:6>>*/ var
-      _g_ = [0,  /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
+     var
+      _g_ =
+         /*<<int64.ml:67:6>>*/ [0,
+          /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
       /*<<int64.ml:67:6>>*/ return _g_;
     }
     catch(_h_){
@@ -9338,10 +9575,12 @@
    var equal = runtime.caml_equal;
    function unsigned_compare(n, m){
     var
-      /*<<int64.ml:83:26>>*/ y =
-        /*<<int64.ml:83:26>>*/ caml_int64_sub(m, min_int),
-      /*<<int64.ml:83:10>>*/ x =
-        /*<<int64.ml:83:10>>*/ caml_int64_sub(n, min_int);
+     y =
+        /*<<int64.ml:83:26>>*/  /*<<int64.ml:83:26>>*/ caml_int64_sub
+        (m, min_int),
+     x =
+        /*<<int64.ml:83:10>>*/  /*<<int64.ml:83:10>>*/ caml_int64_sub
+        (n, min_int);
      /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
             (x, y);
     /*<<int64.ml:83:41>>*/ }
@@ -9366,15 +9605,15 @@
      /*<<int64.ml:95:2>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
       /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one;
     var
-      /*<<int64.ml:98:12>>*/ q =
-        /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
+     q =
+        /*<<int64.ml:98:12>>*/  /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
         ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
           ( /*<<int64.ml:98:28>>*/ runtime.caml_int64_shift_right_unsigned
             (n, 1),
            d),
          1),
-      /*<<int64.ml:99:12>>*/ r =
-        /*<<int64.ml:99:12>>*/ caml_int64_sub
+     r =
+        /*<<int64.ml:99:12>>*/  /*<<int64.ml:99:12>>*/ caml_int64_sub
         (n,  /*<<int64.ml:99:18>>*/ caml_int64_mul(q, d));
      /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
             ? q
@@ -9427,16 +9666,16 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_greaterequal = runtime.caml_greaterequal,
-     /*<<?>>*/ caml_hash = runtime.caml_hash,
-     /*<<?>>*/ caml_int_compare = runtime.caml_int_compare,
-     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
-     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_mul = runtime.caml_mul,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_greaterequal =  /*<<?>>*/ runtime.caml_greaterequal,
+    caml_hash =  /*<<?>>*/ runtime.caml_hash,
+    caml_int_compare =  /*<<?>>*/ runtime.caml_int_compare,
+    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
+    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_mul =  /*<<?>>*/ runtime.caml_mul,
+    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Sys = global_data.Stdlib__Sys,
@@ -9456,8 +9695,8 @@
     /*<<nativeint.ml:46:40>>*/ }
    var
     size = Stdlib_Sys[9],
-     /*<<nativeint.ml:48:14>>*/ min_int = 1 << (size - 1 | 0),
-     /*<<nativeint.ml:49:14>>*/ max_int = min_int - 1 | 0;
+    min_int =  /*<<nativeint.ml:48:14>>*/ 1 << (size - 1 | 0),
+    max_int =  /*<<nativeint.ml:49:14>>*/ min_int - 1 | 0;
    function lognot(n){
      /*<<nativeint.ml:50:15>>*/ return n ^ -1;
     /*<<nativeint.ml:50:29>>*/ }
@@ -9475,8 +9714,10 @@
     /*<<nativeint.ml:61:31>>*/ }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
-      /*<<nativeint.ml:66:6>>*/ var
-      _b_ = [0,  /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
+     var
+      _b_ =
+         /*<<nativeint.ml:66:6>>*/ [0,
+          /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
       /*<<nativeint.ml:66:6>>*/ return _b_;
     }
     catch(_c_){
@@ -9494,8 +9735,8 @@
     /*<<nativeint.ml:72:41>>*/ }
    function unsigned_compare(n, m){
     var
-      /*<<nativeint.ml:75:26>>*/ y = m - min_int | 0,
-      /*<<nativeint.ml:75:10>>*/ x = n - min_int | 0;
+     y =  /*<<nativeint.ml:75:26>>*/ m - min_int | 0,
+     x =  /*<<nativeint.ml:75:10>>*/ n - min_int | 0;
      /*<<nativeint.ml:71:28>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
             (x, y);
     /*<<nativeint.ml:75:41>>*/ }
@@ -9520,10 +9761,14 @@
      ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
       /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one;
     var
-      /*<<nativeint.ml:90:12>>*/ q =
-        /*<<nativeint.ml:90:23>>*/ runtime.caml_div(n >>> 1 | 0, d) << 1,
-      /*<<nativeint.ml:91:12>>*/ r =
-       n -  /*<<nativeint.ml:91:18>>*/ caml_mul(q, d) | 0;
+     q =
+        /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
+        (n >>> 1 | 0, d)
+       << 1,
+     r =
+        /*<<nativeint.ml:91:12>>*/ n
+       -  /*<<nativeint.ml:91:18>>*/ caml_mul(q, d)
+       | 0;
      /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0;
     /*<<nativeint.ml:92:41>>*/ }
    function unsigned_rem(n, d){
@@ -9575,12 +9820,12 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst = "",
-     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
-     /*<<?>>*/ caml_check_bound = runtime.caml_check_bound,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst =  /*<<?>>*/ "",
+    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
+    caml_check_bound =  /*<<?>>*/ runtime.caml_check_bound,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -9617,8 +9862,9 @@
     cst_Lexing_lex_refill_cannot_g = "Lexing.lex_refill: cannot grow buffer";
    function engine(tbl, state, buf){
     var
-      /*<<lexing.ml:65:15>>*/ result =
-        /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine(tbl, state, buf),
+     result =
+        /*<<lexing.ml:65:15>>*/  /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine
+        (tbl, state, buf),
      _n_ = 0 <= result ? 1 : 0,
      _o_ = _n_ ? buf[12] !== dummy_pos ? 1 : 0 : _n_;
     if(_o_){
@@ -9630,8 +9876,9 @@
     /*<<lexing.ml:71:8>>*/ }
    function new_engine(tbl, state, buf){
     var
-      /*<<lexing.ml:75:15>>*/ result =
-        /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine(tbl, state, buf),
+     result =
+        /*<<lexing.ml:75:15>>*/  /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine
+        (tbl, state, buf),
      _k_ = 0 <= result ? 1 : 0,
      _l_ = _k_ ? buf[12] !== dummy_pos ? 1 : 0 : _k_;
     if(_l_){
@@ -9644,17 +9891,18 @@
    function from_function(opt, read_fun){
     var
      with_positions = opt ? opt[1] : 1,
-      /*<<lexing.ml:148:2>>*/ _f_ = with_positions ? zero_pos : dummy_pos,
+     _f_ =  /*<<lexing.ml:148:2>>*/ with_positions ? zero_pos : dummy_pos,
      _g_ = with_positions ? zero_pos : dummy_pos,
-      /*<<lexing.ml:148:31>>*/ aux_buffer =
-        /*<<lexing.ml:148:31>>*/ caml_create_bytes(512);
+     aux_buffer =
+        /*<<lexing.ml:148:31>>*/  /*<<lexing.ml:148:31>>*/ caml_create_bytes
+        (512);
      /*<<lexing.ml:148:2>>*/ return [0,
             function(lexbuf){
              var
-               /*<<lexing.ml:85:4>>*/ read =
-                 /*<<lexing.ml:85:4>>*/ caml_call2
+              read =
+                 /*<<lexing.ml:85:4>>*/  /*<<lexing.ml:85:4>>*/ caml_call2
                  (read_fun, aux_buffer, caml_ml_bytes_length(aux_buffer)),
-               /*<<lexing.ml:86:2>>*/ n = 0 < read ? read : (lexbuf[9] = 1, 0);
+              n =  /*<<lexing.ml:86:2>>*/ 0 < read ? read : (lexbuf[9] = 1, 0);
              if(caml_ml_bytes_length(lexbuf[2]) < (lexbuf[3] + n | 0)){
               if
                (((lexbuf[3] - lexbuf[5] | 0) + n | 0)
@@ -9667,17 +9915,19 @@
                  0,
                  lexbuf[3] - lexbuf[5] | 0);
               else{
-                /*<<lexing.ml:111:8>>*/ var
+               var
                 newlen =
-                   /*<<lexing.ml:111:8>>*/ caml_call2
+                   /*<<lexing.ml:111:8>>*/  /*<<lexing.ml:111:8>>*/ caml_call2
                    (Stdlib_Int[10],
                     2 * caml_ml_bytes_length(lexbuf[2]) | 0,
                     Stdlib_Sys[12]);
                if(newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0))
                  /*<<lexing.ml:113:11>>*/  /*<<lexing.ml:113:11>>*/ caml_call1
                  (Stdlib[2], cst_Lexing_lex_refill_cannot_g);
-                /*<<lexing.ml:114:19>>*/ var
-                newbuf =  /*<<lexing.ml:114:19>>*/ caml_create_bytes(newlen);
+               var
+                newbuf =
+                   /*<<lexing.ml:114:19>>*/  /*<<lexing.ml:114:19>>*/ caml_create_bytes
+                   (newlen);
                 /*<<lexing.ml:116:6>>*/  /*<<lexing.ml:116:6>>*/ caml_call5
                 (Stdlib_Bytes[11],
                  lexbuf[2],
@@ -9697,11 +9947,11 @@
               if(_i_ >= 0){
                var i = _h_;
                for(;;){
-                 /*<<lexing.ml:131:14>>*/ var
-                 v = caml_check_bound(t, i)[1 + i];
+                var
+                 v =  /*<<lexing.ml:131:14>>*/ caml_check_bound(t, i)[1 + i];
                 if(0 <= v)
                   /*<<lexing.ml:133:8>>*/ caml_check_bound(t, i)[1 + i] = v - s | 0;
-                 /*<<lexing.ml:130:4>>*/ var _j_ = i + 1 | 0;
+                var _j_ =  /*<<lexing.ml:130:4>>*/ i + 1 | 0;
                 if(_i_ === i) break;
                 i = _j_;
                }
@@ -9735,7 +9985,7 @@
    function from_string(opt, s){
     var
      with_positions = opt ? opt[1] : 1,
-      /*<<lexing.ml:166:2>>*/ _d_ = with_positions ? zero_pos : dummy_pos,
+     _d_ =  /*<<lexing.ml:166:2>>*/ with_positions ? zero_pos : dummy_pos,
      _e_ = with_positions ? zero_pos : dummy_pos;
      /*<<lexing.ml:166:2>>*/ return [0,
             function(lexbuf){
@@ -9864,13 +10114,13 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -9891,12 +10141,16 @@
     Stdlib_Obj = global_data.Stdlib__Obj,
     Stdlib_Array = global_data.Stdlib__Array,
     Stdlib_Lexing = global_data.Stdlib__Lexing,
-     /*<<parsing.ml:59:0>>*/ YYexit =
-      [248, "Stdlib.Parsing.YYexit", caml_fresh_oo_id(0)],
-     /*<<parsing.ml:60:0>>*/ Parse_error =
-      [248, "Stdlib.Parsing.Parse_error", caml_fresh_oo_id(0)],
-     /*<<parsing.ml:90:2>>*/ env =
-      [0,
+    YYexit =
+       /*<<parsing.ml:59:0>>*/ [248,
+       "Stdlib.Parsing.YYexit",
+       caml_fresh_oo_id(0)],
+    Parse_error =
+       /*<<parsing.ml:60:0>>*/ [248,
+       "Stdlib.Parsing.Parse_error",
+       caml_fresh_oo_id(0)],
+    env =
+       /*<<parsing.ml:90:2>>*/ [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]),
@@ -9918,14 +10172,18 @@
     var
      oldsize = env[5],
      newsize = oldsize * 2 | 0,
-      /*<<parsing.ml:110:14>>*/ new_s =
-        /*<<parsing.ml:110:14>>*/ caml_make_vect(newsize, 0),
-      /*<<parsing.ml:111:14>>*/ new_v =
-        /*<<parsing.ml:111:14>>*/ caml_make_vect(newsize, 0),
-      /*<<parsing.ml:112:18>>*/ new_start =
-        /*<<parsing.ml:112:18>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]),
-      /*<<parsing.ml:113:16>>*/ new_end =
-        /*<<parsing.ml:113:16>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]);
+     new_s =
+        /*<<parsing.ml:110:14>>*/  /*<<parsing.ml:110:14>>*/ caml_make_vect
+        (newsize, 0),
+     new_v =
+        /*<<parsing.ml:111:14>>*/  /*<<parsing.ml:111:14>>*/ caml_make_vect
+        (newsize, 0),
+     new_start =
+        /*<<parsing.ml:112:18>>*/  /*<<parsing.ml:112:18>>*/ caml_make_vect
+        (newsize, Stdlib_Lexing[1]),
+     new_end =
+        /*<<parsing.ml:113:16>>*/  /*<<parsing.ml:113:16>>*/ caml_make_vect
+        (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;
@@ -9947,8 +10205,8 @@
     return 0;
     /*<<parsing.ml:126:25>>*/ }
    var
-     /*<<parsing.ml:128:28>>*/ current_lookahead_fun =
-      [0,
+    current_lookahead_fun =
+       /*<<parsing.ml:128:28>>*/ [0,
        function(param){
          /*<<parsing.ml:128:52>>*/ return 0;
         /*<<parsing.ml:128:57>>*/ }],
@@ -9972,8 +10230,10 @@
        ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
          (tables, env, cmd, arg)){
         case 0:
-          /*<<parsing.ml:134:24>>*/ var
-          arg$0 =  /*<<parsing.ml:134:24>>*/ caml_call1(lexer, lexbuf);
+         var
+          arg$0 =
+             /*<<parsing.ml:134:24>>*/  /*<<parsing.ml:134:24>>*/ caml_call1
+             (lexer, lexbuf);
          env[9] = lexbuf[11];
          env[10] = lexbuf[12];
          cmd = 1;
@@ -9990,10 +10250,10 @@
          try{
           var
            _i_ = env[13],
-            /*<<parsing.ml:143:39>>*/ _j_ =
-              /*<<parsing.ml:143:39>>*/ caml_call1
+           _j_ =
+              /*<<parsing.ml:143:39>>*/  /*<<parsing.ml:143:39>>*/ caml_call1
               (caml_check_bound(tables[1], _i_)[1 + _i_], env),
-            /*<<parsing.ml:143:39>>*/ _k_ = 4,
+           _k_ =  /*<<parsing.ml:143:39>>*/ 4,
            value = _j_,
            action = _k_;
          }
@@ -10015,7 +10275,7 @@
     catch(exn$0){
      var
       exn = caml_wrap_exception(exn$0),
-       /*<<parsing.ml:167:4>>*/ curr_char = env[7];
+      curr_char =  /*<<parsing.ml:167:4>>*/ env[7];
      env[11] = init_asp;
      env[14] = init_sp;
      env[6] = init_stackbase;
@@ -10036,8 +10296,10 @@
                 === curr_char
                 ? 1
                 : 0;
-        /*<<parsing.ml:182:38>>*/ var
-        _l_ =  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag(tok);
+       var
+        _l_ =
+           /*<<parsing.ml:182:38>>*/  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag
+           (tok);
         /*<<parsing.ml:182:17>>*/ return caml_check_bound(tables[3], _l_)
                 [1 + _l_]
                === curr_char
@@ -10061,13 +10323,13 @@
      }
      var
       _d_ = (env[11] - i | 0) + 1 | 0,
-       /*<<parsing.ml:193:15>>*/ st = caml_check_bound(env[3], _d_)[1 + _d_],
+      st =  /*<<parsing.ml:193:15>>*/ caml_check_bound(env[3], _d_)[1 + _d_],
       _e_ = (env[11] - i | 0) + 1 | 0,
-       /*<<parsing.ml:194:15>>*/ en = caml_check_bound(env[4], _e_)[1 + _e_];
+      en =  /*<<parsing.ml:194:15>>*/ caml_check_bound(env[4], _e_)[1 + _e_];
       /*<<parsing.ml:195:9>>*/ if
       ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal(st, en))
        /*<<parsing.ml:195:23>>*/ return st;
-      /*<<parsing.ml:195:31>>*/ var i$0 = i - 1 | 0;
+     var i$0 =  /*<<parsing.ml:195:31>>*/ i - 1 | 0;
      i = i$0;
     }
     /*<<parsing.ml:198:19>>*/ }
@@ -10132,10 +10394,10 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_Set_bal$3 = "Set.bal",
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_Set_bal$3 =  /*<<?>>*/ "Set.bal",
+    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
             ? f(a0)
@@ -10193,7 +10455,7 @@
            lr = l[3],
            lv = l[2],
            ll = l[1],
-            /*<<set.ml:107:28>>*/ _T_ = height(lr);
+           _T_ =  /*<<set.ml:107:28>>*/ height(lr);
           if(_T_ <= height(ll))
             /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r));
           if(! lr)
@@ -10203,7 +10465,7 @@
            lrr = lr[3],
            lrv = lr[2],
            lrl = lr[1],
-            /*<<set.ml:113:48>>*/ _U_ = create(lrr, v, r);
+           _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
            /*<<set.ml:113:48>>*/ return create(create(ll, lv, lrl), lrv, _U_);
          }
          if((hl + 2 | 0) >= hr){
@@ -10217,7 +10479,7 @@
           rr = r[3],
           rv = r[2],
           rl = r[1],
-           /*<<set.ml:119:28>>*/ _V_ = height(rl);
+          _V_ =  /*<<set.ml:119:28>>*/ height(rl);
          if(_V_ <= height(rr))
            /*<<set.ml:120:14>>*/ return create(create(l, v, rl), rv, rr);
          if(! rl)
@@ -10227,7 +10489,7 @@
           rlr = rl[3],
           rlv = rl[2],
           rll = rl[1],
-           /*<<set.ml:125:46>>*/ _W_ = create(rlr, rv, rr);
+          _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
           /*<<set.ml:125:46>>*/ return create(create(l, v, rll), rlv, _W_);
          /*<<set.ml:128:62>>*/ }
         function add(x, t){
@@ -10236,14 +10498,15 @@
           r = t[3],
           v = t[2],
           l = t[1],
-           /*<<set.ml:135:18>>*/ c =
-             /*<<set.ml:135:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<set.ml:135:18>>*/  /*<<set.ml:135:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
          if(0 <= c){
-           /*<<set.ml:141:21>>*/ var rr = add(x, r);
+          var rr =  /*<<set.ml:141:21>>*/ add(x, r);
           return r === rr ? t : bal(l, v, rr);
          }
-          /*<<set.ml:138:21>>*/ var ll = add(x, l);
+         var ll =  /*<<set.ml:138:21>>*/ add(x, l);
          return l === ll ? t : bal(ll, v, r);
         }
         function singleton(x){
@@ -10342,7 +10605,7 @@
         function concat(t1, t2){
           /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
          if(! t2)  /*<<set.ml:221:22>>*/ return t1;
-          /*<<set.ml:222:39>>*/ var _S_ = remove_min_elt(t2);
+         var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
           /*<<set.ml:222:39>>*/ return join(t1, min_elt(t2), _S_);
          /*<<set.ml:222:58>>*/ }
         function split(x, param){
@@ -10351,20 +10614,21 @@
           r = param[3],
           v = param[2],
           l = param[1],
-           /*<<set.ml:234:18>>*/ c =
-             /*<<set.ml:234:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<set.ml:234:18>>*/  /*<<set.ml:234:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<set.ml:235:10>>*/ if(0 === c)
            /*<<set.ml:235:24>>*/ return [0, l, 1, r];
          if(0 <= c){
           var
-            /*<<set.ml:239:33>>*/ match = split(x, r),
+           match =  /*<<set.ml:239:33>>*/ split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
            /*<<set.ml:239:46>>*/ return [0, join(l, v, lr), pres, rr];
          }
          var
-           /*<<set.ml:237:33>>*/ match$0 = split(x, l),
+          match$0 =  /*<<set.ml:237:33>>*/ split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
@@ -10382,8 +10646,9 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<set.ml:250:18>>*/ c =
-              /*<<set.ml:250:18>>*/ caml_call2(Ord[1], x, v),
+           c =
+              /*<<set.ml:250:18>>*/  /*<<set.ml:250:18>>*/ caml_call2
+              (Ord[1], x, v),
            _R_ = 0 === c ? 1 : 0;
           if(_R_) return _R_;
           var r$0 = 0 <= c ? r : l;
@@ -10396,19 +10661,20 @@
           t2 = t[3],
           v = t[2],
           t1 = t[1],
-           /*<<set.ml:256:18>>*/ c =
-             /*<<set.ml:256:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<set.ml:256:18>>*/  /*<<set.ml:256:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<set.ml:257:10>>*/ if(0 === c){
           if(! t1)  /*<<set.ml:210:22>>*/ return t2;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1;
-           /*<<set.ml:212:38>>*/ var _Q_ = remove_min_elt(t2);
+          var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
            /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_);
          }
          if(0 <= c){
-           /*<<set.ml:264:23>>*/ var rr = remove(x, t2);
+          var rr =  /*<<set.ml:264:23>>*/ remove(x, t2);
           return t2 === rr ? t : bal(t1, v, rr);
          }
-          /*<<set.ml:260:23>>*/ var ll = remove(x, t1);
+         var ll =  /*<<set.ml:260:23>>*/ remove(x, t1);
          return t1 === ll ? t : bal(ll, v, t2);
         }
         function union(s1, s2){
@@ -10426,18 +10692,18 @@
          if(h2 <= h1){
           if(1 === h2)  /*<<set.ml:274:27>>*/ return add(v2, s1);
           var
-            /*<<set.ml:275:32>>*/ match = split(v1, s2),
+           match =  /*<<set.ml:275:32>>*/ split(v1, s2),
            r2$0 = match[3],
            l2$0 = match[1],
-            /*<<set.ml:276:36>>*/ _O_ = union(r1, r2$0);
+           _O_ =  /*<<set.ml:276:36>>*/ union(r1, r2$0);
            /*<<set.ml:276:36>>*/ return join(union(l1, l2$0), v1, _O_);
          }
          if(1 === h1)  /*<<set.ml:279:27>>*/ return add(v1, s2);
          var
-           /*<<set.ml:280:32>>*/ match$0 = split(v2, s1),
+          match$0 =  /*<<set.ml:280:32>>*/ split(v2, s1),
           r1$0 = match$0[3],
           l1$0 = match$0[1],
-           /*<<set.ml:281:36>>*/ _P_ = union(r1$0, r2);
+          _P_ =  /*<<set.ml:281:36>>*/ union(r1$0, r2);
           /*<<set.ml:281:36>>*/ return join(union(l1$0, l2), v2, _P_);
          /*<<set.ml:282:15>>*/ }
         function inter(s1, s2){
@@ -10447,13 +10713,13 @@
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
-           /*<<set.ml:289:16>>*/ _L_ = split(v1, s2),
+          _L_ =  /*<<set.ml:289:16>>*/ split(v1, s2),
           l2 = _L_[1];
          if(_L_[2]){
-          var r2 = _L_[3],  /*<<set.ml:293:36>>*/ _M_ = inter(r1, r2);
+          var r2 = _L_[3], _M_ =  /*<<set.ml:293:36>>*/ inter(r1, r2);
            /*<<set.ml:293:36>>*/ return join(inter(l1, l2), v1, _M_);
          }
-         var r2$0 = _L_[3],  /*<<set.ml:291:35>>*/ _N_ = inter(r1, r2$0);
+         var r2$0 = _L_[3], _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
           /*<<set.ml:291:35>>*/ return concat(inter(l1, l2), _N_);
          /*<<set.ml:293:49>>*/ }
         function split_bis(x, param){
@@ -10467,16 +10733,17 @@
           r = param[3],
           v = param[2],
           l = param[1],
-           /*<<set.ml:307:18>>*/ c =
-             /*<<set.ml:307:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<set.ml:307:18>>*/  /*<<set.ml:307:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
          if(0 <= c){
-           /*<<set.ml:314:18>>*/ var match = split_bis(x, r);
+          var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
           if(! match)  /*<<set.ml:315:23>>*/ return 0;
           var rr = match[2], lr = match[1];
            /*<<set.ml:316:35>>*/ return [0, join(l, v, lr), rr];
          }
-          /*<<set.ml:310:18>>*/ var match$0 = split_bis(x, l);
+         var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
          if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
          var rl = match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
@@ -10491,14 +10758,14 @@
           if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
            if(s1$0 === s2$0)  /*<<set.ml:322:27>>*/ return 0;
-            /*<<set.ml:323:21>>*/ var match = split_bis(v1, s2$0);
+           var match =  /*<<set.ml:323:21>>*/ split_bis(v1, s2$0);
            if(! match)  /*<<set.ml:325:23>>*/ return 0;
            var
             r2 = match[2],
             l2 = match[1],
-             /*<<set.ml:324:34>>*/ _K_ = disjoint(l1, l2);
+            _K_ =  /*<<set.ml:324:34>>*/ disjoint(l1, l2);
             /*<<set.ml:324:34>>*/ if(! _K_)  /*<<set.ml:324:34>>*/ return _K_;
-            /*<<set.ml:324:64>>*/ var s2$1 = r2(0);
+           var s2$1 =  /*<<set.ml:324:64>>*/ r2(0);
            s1$0 = r1;
            s2$0 = s2$1;
            continue;
@@ -10513,13 +10780,13 @@
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
-           /*<<set.ml:332:16>>*/ _H_ = split(v1, s2),
+          _H_ =  /*<<set.ml:332:16>>*/ split(v1, s2),
           l2 = _H_[1];
          if(_H_[2]){
-          var r2 = _H_[3],  /*<<set.ml:336:34>>*/ _I_ = diff(r1, r2);
+          var r2 = _H_[3], _I_ =  /*<<set.ml:336:34>>*/ diff(r1, r2);
            /*<<set.ml:336:34>>*/ return concat(diff(l1, l2), _I_);
          }
-         var r2$0 = _H_[3],  /*<<set.ml:334:35>>*/ _J_ = diff(r1, r2$0);
+         var r2$0 = _H_[3], _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
           /*<<set.ml:334:35>>*/ return join(diff(l1, l2), v1, _J_);
          /*<<set.ml:336:46>>*/ }
         function cons_enum(s, e){
@@ -10530,15 +10797,15 @@
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
-            /*<<set.ml:343:37>>*/ e$1 = [0, v, r, e$0];
+           e$1 =  /*<<set.ml:343:37>>*/ [0, v, r, e$0];
           s$0 = l;
           e$0 = e$1;
          }
          /*<<set.ml:343:52>>*/ }
         function compare(s1, s2){
          var
-           /*<<set.ml:357:37>>*/ e2$2 = cons_enum(s2, 0),
-           /*<<set.ml:357:18>>*/ e1$2 = cons_enum(s1, 0),
+          e2$2 =  /*<<set.ml:357:37>>*/ cons_enum(s2, 0),
+          e1$2 =  /*<<set.ml:357:18>>*/ cons_enum(s1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<set.ml:346:8>>*/ for(;;){
@@ -10551,12 +10818,13 @@
            e1$0 = e1[3],
            r1 = e1[2],
            v1 = e1[1],
-            /*<<set.ml:351:18>>*/ c =
-              /*<<set.ml:351:18>>*/ caml_call2(Ord[1], v1, v2);
+           c =
+              /*<<set.ml:351:18>>*/  /*<<set.ml:351:18>>*/ caml_call2
+              (Ord[1], v1, v2);
            /*<<set.ml:352:10>>*/ if(0 !== c)  /*<<set.ml:353:15>>*/ return c;
           var
-            /*<<set.ml:354:45>>*/ e2$1 = cons_enum(r2, e2$0),
-            /*<<set.ml:354:27>>*/ e1$1 = cons_enum(r1, e1$0);
+           e2$1 =  /*<<set.ml:354:45>>*/ cons_enum(r2, e2$0),
+           e1$1 =  /*<<set.ml:354:27>>*/ cons_enum(r1, e1$0);
           e1 = e1$1;
           e2 = e2$1;
          }
@@ -10576,21 +10844,22 @@
            r1 = s1$0[3],
            v1 = s1$0[2],
            l1 = s1$0[1],
-            /*<<set.ml:369:18>>*/ c =
-              /*<<set.ml:369:18>>*/ caml_call2(Ord[1], v1, v2);
+           c =
+              /*<<set.ml:369:18>>*/  /*<<set.ml:369:18>>*/ caml_call2
+              (Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
-            /*<<set.ml:371:12>>*/ var _E_ = subset(l1, l2);
+           var _E_ =  /*<<set.ml:371:12>>*/ subset(l1, l2);
             /*<<set.ml:371:12>>*/ if(! _E_)  /*<<set.ml:371:12>>*/ return _E_;
            s1$0 = r1;
            s2$0 = r2;
           }
           else if(0 <= c){
-            /*<<set.ml:375:12>>*/ var _F_ = subset([0, 0, v1, r1, 0], r2);
+           var _F_ =  /*<<set.ml:375:12>>*/ subset([0, 0, v1, r1, 0], r2);
             /*<<set.ml:375:12>>*/ if(! _F_)  /*<<set.ml:375:12>>*/ return _F_;
            s1$0 = l1;
           }
           else{
-            /*<<set.ml:373:12>>*/ var _G_ = subset([0, l1, v1, 0, 0], l2);
+           var _G_ =  /*<<set.ml:373:12>>*/ subset([0, l1, v1, 0, 0], l2);
             /*<<set.ml:373:12>>*/ if(! _G_)  /*<<set.ml:373:12>>*/ return _G_;
            s1$0 = r1;
           }
@@ -10614,8 +10883,9 @@
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
-            /*<<set.ml:384:34>>*/ accu$1 =
-              /*<<set.ml:384:34>>*/ caml_call2(f, v, fold(f, l, accu$0));
+           accu$1 =
+              /*<<set.ml:384:34>>*/  /*<<set.ml:384:34>>*/ caml_call2
+              (f, v, fold(f, l, accu$0));
           s$0 = r;
           accu$0 = accu$1;
          }
@@ -10628,10 +10898,10 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<set.ml:388:25>>*/ _B_ =
-              /*<<set.ml:388:25>>*/ caml_call1(p, v);
+           _B_ =
+              /*<<set.ml:388:25>>*/  /*<<set.ml:388:25>>*/ caml_call1(p, v);
            /*<<set.ml:388:25>>*/ if(_B_){
-            /*<<set.ml:388:32>>*/ var _C_ = for_all(p, l);
+           var _C_ =  /*<<set.ml:388:32>>*/ for_all(p, l);
             /*<<set.ml:388:32>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
@@ -10648,12 +10918,12 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<set.ml:392:25>>*/ _y_ =
-              /*<<set.ml:392:25>>*/ caml_call1(p, v);
+           _y_ =
+              /*<<set.ml:392:25>>*/  /*<<set.ml:392:25>>*/ caml_call1(p, v);
            /*<<set.ml:392:25>>*/ if(_y_)
            var _z_ = _y_;
           else{
-            /*<<set.ml:392:32>>*/ var _A_ = exists(p, l);
+           var _A_ =  /*<<set.ml:392:32>>*/ exists(p, l);
             /*<<set.ml:392:32>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
@@ -10666,9 +10936,9 @@
           r = t[3],
           v = t[2],
           l = t[1],
-           /*<<set.ml:398:19>>*/ l$0 = filter(p, l),
-           /*<<set.ml:399:19>>*/ pv =  /*<<set.ml:399:19>>*/ caml_call1(p, v),
-           /*<<set.ml:400:19>>*/ r$0 = filter(p, r);
+          l$0 =  /*<<set.ml:398:19>>*/ filter(p, l),
+          pv =  /*<<set.ml:399:19>>*/  /*<<set.ml:399:19>>*/ caml_call1(p, v),
+          r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
            /*<<set.ml:403:15>>*/ return concat(l$0, r$0);
          if(l === l$0 && r === r$0)  /*<<set.ml:402:35>>*/ return t;
@@ -10680,18 +10950,18 @@
           r = param[3],
           v = param[2],
           l = param[1],
-           /*<<set.ml:409:25>>*/ match = partition(p, l),
+          match =  /*<<set.ml:409:25>>*/ partition(p, l),
           lf = match[2],
           lt = match[1],
-           /*<<set.ml:410:19>>*/ pv =  /*<<set.ml:410:19>>*/ caml_call1(p, v),
-           /*<<set.ml:411:25>>*/ match$0 = partition(p, r),
+          pv =  /*<<set.ml:410:19>>*/  /*<<set.ml:410:19>>*/ caml_call1(p, v),
+          match$0 =  /*<<set.ml:411:25>>*/ partition(p, r),
           rf = match$0[2],
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
-           /*<<set.ml:413:30>>*/ var _w_ = concat(lf, rf);
+          var _w_ =  /*<<set.ml:413:30>>*/ concat(lf, rf);
            /*<<set.ml:413:15>>*/ return [0, join(lt, v, rt), _w_];
          }
-          /*<<set.ml:414:30>>*/ var _x_ = join(lf, v, rf);
+         var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
           /*<<set.ml:414:15>>*/ return [0, concat(lt, rt), _x_];
         }
         function cardinal(param){
@@ -10699,7 +10969,7 @@
          var
           r = param[3],
           l = param[1],
-           /*<<set.ml:418:39>>*/ _v_ = cardinal(r);
+          _v_ =  /*<<set.ml:418:39>>*/ cardinal(r);
          return (cardinal(l) + 1 | 0) + _v_ | 0;
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
@@ -10710,7 +10980,7 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<set.ml:422:38>>*/ accu$1 = [0, v, elements_aux(accu$0, r)];
+           accu$1 =  /*<<set.ml:422:38>>*/ [0, v, elements_aux(accu$0, r)];
           accu$0 = accu$1;
           param$0 = l;
          }
@@ -10728,8 +10998,9 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<set.ml:434:18>>*/ c =
-              /*<<set.ml:434:18>>*/ caml_call2(Ord[1], x, v);
+           c =
+              /*<<set.ml:434:18>>*/  /*<<set.ml:434:18>>*/ caml_call2
+              (Ord[1], x, v);
            /*<<set.ml:435:10>>*/ if(0 === c)  /*<<set.ml:435:24>>*/ return v;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
@@ -10831,8 +11102,9 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<set.ml:513:18>>*/ c =
-              /*<<set.ml:513:18>>*/ caml_call2(Ord[1], x, v);
+           c =
+              /*<<set.ml:513:18>>*/  /*<<set.ml:513:18>>*/ caml_call2
+              (Ord[1], x, v);
            /*<<set.ml:514:10>>*/ if(0 === c)
             /*<<set.ml:514:24>>*/ return [0, v];
           var r$0 = 0 <= c ? r : l;
@@ -10843,13 +11115,13 @@
          a:
          {
           if(0 !== l){
-            /*<<set.ml:521:35>>*/ var _u_ = max_elt(l);
+           var _u_ =  /*<<set.ml:521:35>>*/ max_elt(l);
             /*<<set.ml:521:23>>*/ if
             (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _u_, v))
             break a;
           }
           if(0 !== r){
-            /*<<set.ml:522:37>>*/ var _t_ = min_elt(r);
+           var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
             /*<<set.ml:522:23>>*/ if
             (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _t_))
             break a;
@@ -10864,9 +11136,9 @@
           r = t[3],
           v = t[2],
           l = t[1],
-           /*<<set.ml:530:18>>*/ l$0 = map(f, l),
-           /*<<set.ml:531:18>>*/ v$0 =  /*<<set.ml:531:18>>*/ caml_call1(f, v),
-           /*<<set.ml:532:18>>*/ r$0 = map(f, r);
+          l$0 =  /*<<set.ml:530:18>>*/ map(f, l),
+          v$0 =  /*<<set.ml:531:18>>*/  /*<<set.ml:531:18>>*/ caml_call1(f, v),
+          r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
          if(l === l$0 && v === v$0 && r === r$0)
            /*<<set.ml:533:47>>*/ return t;
           /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0);
@@ -10877,9 +11149,9 @@
           r = t[3],
           v = t[2],
           l = t[1],
-           /*<<set.ml:546:18>>*/ t1 = filter_map(f, l),
-           /*<<set.ml:547:18>>*/ v$0 =  /*<<set.ml:547:18>>*/ caml_call1(f, v),
-           /*<<set.ml:548:18>>*/ t2 = filter_map(f, r);
+          t1 =  /*<<set.ml:546:18>>*/ filter_map(f, l),
+          v$0 =  /*<<set.ml:547:18>>*/  /*<<set.ml:547:18>>*/ caml_call1(f, v),
+          t2 =  /*<<set.ml:548:18>>*/ filter_map(f, r);
           /*<<set.ml:549:9>>*/ if(v$0){
           var v$1 = v$0[1];
           if(l === t1 && v === v$1 && r === t2)
@@ -10888,7 +11160,7 @@
          }
          if(! t1)  /*<<set.ml:538:22>>*/ return t2;
          if(! t2)  /*<<set.ml:539:22>>*/ return t1;
-          /*<<set.ml:540:43>>*/ var _s_ = remove_min_elt(t2);
+         var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
           /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_);
         }
         function of_list(l){
@@ -10906,8 +11178,9 @@
                   (x3, add(x2, add(x1, singleton(x0))));
          if(_q_[2]){
           var
-            /*<<set.ml:588:28>>*/ l$0 =
-              /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[62], Ord[1], l),
+           l$0 =
+              /*<<set.ml:588:28>>*/  /*<<set.ml:588:28>>*/ caml_call2
+              (Stdlib_List[62], Ord[1], l),
            sub =
              function(n, l){
                /*<<set.ml:559:8>>*/ if(3 >= n >>> 0)
@@ -10951,7 +11224,7 @@
                }
               var
                nl = n / 2 | 0,
-                /*<<set.ml:569:24>>*/ match = sub(nl, l),
+               match =  /*<<set.ml:569:24>>*/ sub(nl, l),
                l$0 = match[2],
                left = match[1];
                /*<<set.ml:570:10>>*/ if(! l$0)
@@ -10960,7 +11233,7 @@
               var
                l$1 = l$0[2],
                mid = l$0[1],
-                /*<<set.ml:573:27>>*/ match$0 = sub((n - nl | 0) - 1 | 0, l$1),
+               match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
                l$2 = match$0[2],
                right = match$0[1];
                /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2];
@@ -10992,13 +11265,13 @@
           rest = c[3],
           t = c[2],
           x = c[1],
-           /*<<set.ml:597:55>>*/ _l_ = cons_enum(t, rest);
+          _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
           /*<<set.ml:597:29>>*/ return [0,
                  x,
                  function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}];
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
-          /*<<set.ml:599:32>>*/ var _j_ = cons_enum(c, 0);
+         var _j_ =  /*<<set.ml:599:32>>*/ cons_enum(c, 0);
           /*<<set.ml:599:32>>*/ return function(_k_){
            /*<<?>>*/ return seq_of_enum(_j_, _k_);};
          /*<<set.ml:599:49>>*/ }
@@ -11010,7 +11283,7 @@
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
-            /*<<set.ml:604:37>>*/ e$1 = [0, v, l, e$0];
+           e$1 =  /*<<set.ml:604:37>>*/ [0, v, l, e$0];
           s$0 = r;
           e$0 = e$1;
          }
@@ -11021,13 +11294,13 @@
           rest = c[3],
           t = c[2],
           x = c[1],
-           /*<<set.ml:608:59>>*/ _h_ = snoc_enum(t, rest);
+          _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
           /*<<set.ml:608:29>>*/ return [0,
                  x,
                  function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}];
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
-          /*<<set.ml:610:40>>*/ var _f_ = snoc_enum(c, 0);
+         var _f_ =  /*<<set.ml:610:40>>*/ snoc_enum(c, 0);
           /*<<set.ml:610:40>>*/ return function(_g_){
            /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);};
          /*<<set.ml:610:57>>*/ }
@@ -11043,11 +11316,12 @@
              r = s$0[3],
              v = s$0[2],
              l = s$0[1],
-              /*<<set.ml:616:24>>*/ n =
-                /*<<set.ml:616:24>>*/ caml_call2(Ord[1], v, low);
+             n =
+                /*<<set.ml:616:24>>*/  /*<<set.ml:616:24>>*/ caml_call2
+                (Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
-              /*<<set.ml:619:31>>*/ var c$0 = [0, v, r, c];
+             var c$0 =  /*<<set.ml:619:31>>*/ [0, v, r, c];
              s$0 = l;
              c = c$0;
             }
@@ -11118,10 +11392,10 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_Map_bal$3 = "Map.bal",
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_Map_bal$3 =  /*<<?>>*/ "Map.bal",
+    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
             ? f(a0)
@@ -11161,8 +11435,8 @@
          /*<<map.ml:83:21>>*/ }
         function create(l, x, d, r){
          var
-           /*<<map.ml:86:15>>*/ hl = height(l),
-           /*<<map.ml:86:33>>*/ hr = height(r),
+          hl =  /*<<map.ml:86:15>>*/ height(l),
+          hr =  /*<<map.ml:86:33>>*/ height(r),
           _K_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
           /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_];
          /*<<map.ml:87:65>>*/ }
@@ -11181,7 +11455,7 @@
            ld = l[3],
            lv = l[2],
            ll = l[1],
-            /*<<map.ml:98:28>>*/ _F_ = height(lr);
+           _F_ =  /*<<map.ml:98:28>>*/ height(lr);
           if(_F_ <= height(ll))
             /*<<map.ml:99:30>>*/ return create
                    (ll, lv, ld, create(lr, x, d, r));
@@ -11193,7 +11467,7 @@
            lrd = lr[3],
            lrv = lr[2],
            lrl = lr[1],
-            /*<<map.ml:104:55>>*/ _G_ = create(lrr, x, d, r);
+           _G_ =  /*<<map.ml:104:55>>*/ create(lrr, x, d, r);
            /*<<map.ml:104:55>>*/ return create
                   (create(ll, lv, ld, lrl), lrv, lrd, _G_);
          }
@@ -11209,7 +11483,7 @@
           rd = r[3],
           rv = r[2],
           rl = r[1],
-           /*<<map.ml:110:28>>*/ _H_ = height(rl);
+          _H_ =  /*<<map.ml:110:28>>*/ height(rl);
          if(_H_ <= height(rr))
            /*<<map.ml:111:14>>*/ return create
                   (create(l, x, d, rl), rv, rd, rr);
@@ -11221,7 +11495,7 @@
           rld = rl[3],
           rlv = rl[2],
           rll = rl[1],
-           /*<<map.ml:116:52>>*/ _I_ = create(rlr, rv, rd, rr);
+          _I_ =  /*<<map.ml:116:52>>*/ create(rlr, rv, rd, rr);
           /*<<map.ml:116:52>>*/ return create
                  (create(l, x, d, rll), rlv, rld, _I_);
          /*<<map.ml:119:67>>*/ }
@@ -11238,15 +11512,16 @@
           d = m[3],
           v = m[2],
           l = m[1],
-           /*<<map.ml:129:18>>*/ c =
-             /*<<map.ml:129:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<map.ml:129:18>>*/  /*<<map.ml:129:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<map.ml:130:10>>*/ if(0 === c)
           return d === data ? m : [0, l, x, data, r, h];
          if(0 <= c){
-           /*<<map.ml:136:21>>*/ var rr = add(x, data, r);
+          var rr =  /*<<map.ml:136:21>>*/ add(x, data, r);
           return r === rr ? m : bal(l, v, d, rr);
          }
-          /*<<map.ml:133:21>>*/ var ll = add(x, data, l);
+         var ll =  /*<<map.ml:133:21>>*/ add(x, data, l);
          return l === ll ? m : bal(ll, v, d, r);
         }
         function find(x, param){
@@ -11260,8 +11535,9 @@
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<map.ml:143:18>>*/ c =
-              /*<<map.ml:143:18>>*/ caml_call2(Ord[1], x, v);
+           c =
+              /*<<map.ml:143:18>>*/  /*<<map.ml:143:18>>*/ caml_call2
+              (Ord[1], x, v);
            /*<<map.ml:144:10>>*/ if(0 === c)  /*<<map.ml:144:24>>*/ return d;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
@@ -11380,8 +11656,9 @@
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<map.ml:223:18>>*/ c =
-              /*<<map.ml:223:18>>*/ caml_call2(Ord[1], x, v);
+           c =
+              /*<<map.ml:223:18>>*/  /*<<map.ml:223:18>>*/ caml_call2
+              (Ord[1], x, v);
            /*<<map.ml:224:10>>*/ if(0 === c)
             /*<<map.ml:224:24>>*/ return [0, d];
           var r$0 = 0 <= c ? r : l;
@@ -11396,8 +11673,9 @@
            r = param$0[4],
            v = param$0[2],
            l = param$0[1],
-            /*<<map.ml:231:18>>*/ c =
-              /*<<map.ml:231:18>>*/ caml_call2(Ord[1], x, v),
+           c =
+              /*<<map.ml:231:18>>*/  /*<<map.ml:231:18>>*/ caml_call2
+              (Ord[1], x, v),
            _E_ = 0 === c ? 1 : 0;
           if(_E_) return _E_;
           var r$0 = 0 <= c ? r : l;
@@ -11472,7 +11750,7 @@
           /*<<map.ml:260:6>>*/ if(! t1)  /*<<map.ml:261:22>>*/ return t2;
          if(! t2)  /*<<map.ml:262:22>>*/ return t1;
          var
-           /*<<map.ml:264:23>>*/ match = min_binding(t2),
+          match =  /*<<map.ml:264:23>>*/ min_binding(t2),
           d = match[2],
           x = match[1];
           /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2));
@@ -11484,21 +11762,23 @@
           d = m[3],
           v = m[2],
           l = m[1],
-           /*<<map.ml:271:18>>*/ c =
-             /*<<map.ml:271:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<map.ml:271:18>>*/  /*<<map.ml:271:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
            /*<<map.ml:272:24>>*/ return _d_(l, r);
          if(0 <= c){
-           /*<<map.ml:276:21>>*/ var rr = remove(x, r);
+          var rr =  /*<<map.ml:276:21>>*/ remove(x, r);
           return r === rr ? m : bal(l, v, d, rr);
          }
-          /*<<map.ml:274:21>>*/ var ll = remove(x, l);
+         var ll =  /*<<map.ml:274:21>>*/ remove(x, l);
          return l === ll ? m : bal(ll, v, d, r);
         }
         function update(x, f, m){
           /*<<?>>*/ if(! m){
-           /*<<map.ml:280:22>>*/ var
-           match$0 =  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
+          var
+           match$0 =
+              /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
           if(! match$0)  /*<<map.ml:281:20>>*/ return 0;
           var data$0 = match$0[1];
            /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1];
@@ -11509,20 +11789,23 @@
           d = m[3],
           v = m[2],
           l = m[1],
-           /*<<map.ml:285:18>>*/ c =
-             /*<<map.ml:285:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<map.ml:285:18>>*/  /*<<map.ml:285:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<map.ml:286:10>>*/ if(0 === c){
-           /*<<map.ml:287:18>>*/ var
-           match =  /*<<map.ml:287:18>>*/ caml_call1(f, [0, d]);
+          var
+           match =
+              /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ caml_call1
+              (f, [0, d]);
           if(! match)  /*<<map.ml:288:22>>*/ return _d_(l, r);
           var data = match[1];
           return d === data ? m : [0, l, x, data, r, h];
          }
          if(0 <= c){
-           /*<<map.ml:295:21>>*/ var rr = update(x, f, r);
+          var rr =  /*<<map.ml:295:21>>*/ update(x, f, r);
           return r === rr ? m : bal(l, v, d, rr);
          }
-          /*<<map.ml:292:21>>*/ var ll = update(x, f, l);
+         var ll =  /*<<map.ml:292:21>>*/ update(x, f, l);
          return l === ll ? m : bal(ll, v, d, r);
         }
         function add_to_list(x, data, m){
@@ -11552,9 +11835,9 @@
           d = param[3],
           v = param[2],
           l = param[1],
-           /*<<map.ml:311:19>>*/ l$0 = map(f, l),
-           /*<<map.ml:312:19>>*/ d$0 =  /*<<map.ml:312:19>>*/ caml_call1(f, d),
-           /*<<map.ml:313:19>>*/ r$0 = map(f, r);
+          l$0 =  /*<<map.ml:311:19>>*/ map(f, l),
+          d$0 =  /*<<map.ml:312:19>>*/  /*<<map.ml:312:19>>*/ caml_call1(f, d),
+          r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
           /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h];
         }
         function mapi(f, param){
@@ -11565,10 +11848,10 @@
           d = param[3],
           v = param[2],
           l = param[1],
-           /*<<map.ml:320:19>>*/ l$0 = mapi(f, l),
-           /*<<map.ml:321:19>>*/ d$0 =
-             /*<<map.ml:321:19>>*/ caml_call2(f, v, d),
-           /*<<map.ml:322:19>>*/ r$0 = mapi(f, r);
+          l$0 =  /*<<map.ml:320:19>>*/ mapi(f, l),
+          d$0 =
+             /*<<map.ml:321:19>>*/  /*<<map.ml:321:19>>*/ caml_call2(f, v, d),
+          r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
           /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h];
         }
         function fold(f, m, accu){
@@ -11580,8 +11863,9 @@
            d = m$0[3],
            v = m$0[2],
            l = m$0[1],
-            /*<<map.ml:329:19>>*/ accu$1 =
-              /*<<map.ml:329:19>>*/ caml_call3(f, v, d, fold(f, l, accu$0));
+           accu$1 =
+              /*<<map.ml:329:19>>*/  /*<<map.ml:329:19>>*/ caml_call3
+              (f, v, d, fold(f, l, accu$0));
           m$0 = r;
           accu$0 = accu$1;
          }
@@ -11595,10 +11879,10 @@
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<map.ml:333:29>>*/ _B_ =
-              /*<<map.ml:333:29>>*/ caml_call2(p, v, d);
+           _B_ =
+              /*<<map.ml:333:29>>*/  /*<<map.ml:333:29>>*/ caml_call2(p, v, d);
            /*<<map.ml:333:29>>*/ if(_B_){
-            /*<<map.ml:333:38>>*/ var _C_ = for_all(p, l);
+           var _C_ =  /*<<map.ml:333:38>>*/ for_all(p, l);
             /*<<map.ml:333:38>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
@@ -11616,12 +11900,12 @@
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<map.ml:337:29>>*/ _y_ =
-              /*<<map.ml:337:29>>*/ caml_call2(p, v, d);
+           _y_ =
+              /*<<map.ml:337:29>>*/  /*<<map.ml:337:29>>*/ caml_call2(p, v, d);
            /*<<map.ml:337:29>>*/ if(_y_)
            var _z_ = _y_;
           else{
-            /*<<map.ml:337:38>>*/ var _A_ = exists(p, l);
+           var _A_ =  /*<<map.ml:337:38>>*/ exists(p, l);
             /*<<map.ml:337:38>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
@@ -11666,7 +11950,7 @@
           /*<<map.ml:375:6>>*/ if(! t1)  /*<<map.ml:376:22>>*/ return t2;
          if(! t2)  /*<<map.ml:377:22>>*/ return t1;
          var
-           /*<<map.ml:379:23>>*/ match = min_binding(t2),
+          match =  /*<<map.ml:379:23>>*/ min_binding(t2),
           d = match[2],
           x = match[1];
           /*<<map.ml:380:22>>*/ return join(t1, x, d, remove_min_binding(t2));
@@ -11684,20 +11968,21 @@
           d = param[3],
           v = param[2],
           l = param[1],
-           /*<<map.ml:391:18>>*/ c =
-             /*<<map.ml:391:18>>*/ caml_call2(Ord[1], x, v);
+          c =
+             /*<<map.ml:391:18>>*/  /*<<map.ml:391:18>>*/ caml_call2
+             (Ord[1], x, v);
           /*<<map.ml:392:10>>*/ if(0 === c)
            /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
          if(0 <= c){
           var
-            /*<<map.ml:396:33>>*/ match = split(x, r),
+           match =  /*<<map.ml:396:33>>*/ split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
            /*<<map.ml:396:46>>*/ return [0, join(l, v, d, lr), pres, rr];
          }
          var
-           /*<<map.ml:394:33>>*/ match$0 = split(x, l),
+          match$0 =  /*<<map.ml:394:33>>*/ split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
@@ -11708,13 +11993,14 @@
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
           if(height(s2) <= h1){
            var
-             /*<<map.ml:402:29>>*/ match = split(v1, s2),
+            match =  /*<<map.ml:402:29>>*/ split(v1, s2),
             r2 = match[3],
             d2 = match[2],
             l2 = match[1],
-             /*<<map.ml:403:64>>*/ _u_ = merge(f, r1, r2),
-             /*<<map.ml:403:44>>*/ _v_ =
-               /*<<map.ml:403:44>>*/ caml_call3(f, v1, [0, d1], d2);
+            _u_ =  /*<<map.ml:403:64>>*/ merge(f, r1, r2),
+            _v_ =
+               /*<<map.ml:403:44>>*/  /*<<map.ml:403:44>>*/ caml_call3
+               (f, v1, [0, d1], d2);
             /*<<map.ml:403:64>>*/ return concat_or_join
                    (merge(f, l1, l2), v1, _v_, _u_);
           }
@@ -11728,13 +12014,14 @@
           d2$0 = s2[3],
           v2 = s2[2],
           l2$0 = s2[1],
-           /*<<map.ml:405:29>>*/ match$0 = split(v2, s1),
+          match$0 =  /*<<map.ml:405:29>>*/ split(v2, s1),
           r1$0 = match$0[3],
           d1$0 = match$0[2],
           l1$0 = match$0[1],
-           /*<<map.ml:406:64>>*/ _w_ = merge(f, r1$0, r2$0),
-           /*<<map.ml:406:44>>*/ _x_ =
-             /*<<map.ml:406:44>>*/ caml_call3(f, v2, d1$0, [0, d2$0]);
+          _w_ =  /*<<map.ml:406:64>>*/ merge(f, r1$0, r2$0),
+          _x_ =
+             /*<<map.ml:406:44>>*/  /*<<map.ml:406:44>>*/ caml_call3
+             (f, v2, d1$0, [0, d2$0]);
           /*<<map.ml:406:64>>*/ return concat_or_join
                  (merge(f, l1$0, l2$0), v2, _x_, _w_);
          /*<<map.ml:408:22>>*/ }
@@ -11754,12 +12041,12 @@
             l1 = s1[1];
            if(h2 <= h1){
             var
-              /*<<map.ml:416:31>>*/ match = split(v1, s2),
+             match =  /*<<map.ml:416:31>>*/ split(v1, s2),
              r2$0 = match[3],
              d2$0 = match[2],
              l2$0 = match[1],
-              /*<<map.ml:417:20>>*/ l = union(f, l1, l2$0),
-              /*<<map.ml:417:42>>*/ r = union(f, r1, r2$0);
+             l =  /*<<map.ml:417:20>>*/ union(f, l1, l2$0),
+             r =  /*<<map.ml:417:42>>*/ union(f, r1, r2$0);
              /*<<map.ml:418:12>>*/ if(! d2$0)
               /*<<map.ml:419:22>>*/ return join(l, v1, d1, r);
             var d2$1 = d2$0[1];
@@ -11770,12 +12057,12 @@
                      r);
            }
            var
-             /*<<map.ml:422:31>>*/ match$0 = split(v2, s1),
+            match$0 =  /*<<map.ml:422:31>>*/ split(v2, s1),
             r1$0 = match$0[3],
             d1$0 = match$0[2],
             l1$0 = match$0[1],
-             /*<<map.ml:423:20>>*/ l$0 = union(f, l1$0, l2),
-             /*<<map.ml:423:42>>*/ r$0 = union(f, r1$0, r2);
+            l$0 =  /*<<map.ml:423:20>>*/ union(f, l1$0, l2),
+            r$0 =  /*<<map.ml:423:42>>*/ union(f, r1$0, r2);
             /*<<map.ml:424:12>>*/ if(! d1$0)
              /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0);
            var d1$1 = d1$0[1];
@@ -11798,10 +12085,10 @@
           d = m[3],
           v = m[2],
           l = m[1],
-           /*<<map.ml:432:19>>*/ l$0 = filter(p, l),
-           /*<<map.ml:433:20>>*/ pvd =
-             /*<<map.ml:433:20>>*/ caml_call2(p, v, d),
-           /*<<map.ml:434:19>>*/ r$0 = filter(p, r);
+          l$0 =  /*<<map.ml:432:19>>*/ filter(p, l),
+          pvd =
+             /*<<map.ml:433:20>>*/  /*<<map.ml:433:20>>*/ caml_call2(p, v, d),
+          r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
            /*<<map.ml:436:15>>*/ return concat(l$0, r$0);
          if(l === l$0 && r === r$0)  /*<<map.ml:435:45>>*/ return m;
@@ -11814,10 +12101,10 @@
           d = param[3],
           v = param[2],
           l = param[1],
-           /*<<map.ml:442:19>>*/ l$0 = filter_map(f, l),
-           /*<<map.ml:443:20>>*/ fvd =
-             /*<<map.ml:443:20>>*/ caml_call2(f, v, d),
-           /*<<map.ml:444:19>>*/ r$0 = filter_map(f, r);
+          l$0 =  /*<<map.ml:442:19>>*/ filter_map(f, l),
+          fvd =
+             /*<<map.ml:443:20>>*/  /*<<map.ml:443:20>>*/ caml_call2(f, v, d),
+          r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
            /*<<map.ml:447:22>>*/ return concat(l$0, r$0);
          var d$0 = fvd[1];
@@ -11830,19 +12117,19 @@
           d = param[3],
           v = param[2],
           l = param[1],
-           /*<<map.ml:454:25>>*/ match = partition(p, l),
+          match =  /*<<map.ml:454:25>>*/ partition(p, l),
           lf = match[2],
           lt = match[1],
-           /*<<map.ml:455:20>>*/ pvd =
-             /*<<map.ml:455:20>>*/ caml_call2(p, v, d),
-           /*<<map.ml:456:25>>*/ match$0 = partition(p, r),
+          pvd =
+             /*<<map.ml:455:20>>*/  /*<<map.ml:455:20>>*/ caml_call2(p, v, d),
+          match$0 =  /*<<map.ml:456:25>>*/ partition(p, r),
           rf = match$0[2],
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
-           /*<<map.ml:458:32>>*/ var _s_ = concat(lf, rf);
+          var _s_ =  /*<<map.ml:458:32>>*/ concat(lf, rf);
            /*<<map.ml:458:15>>*/ return [0, join(lt, v, d, rt), _s_];
          }
-          /*<<map.ml:459:30>>*/ var _t_ = join(lf, v, d, rf);
+         var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
           /*<<map.ml:459:15>>*/ return [0, concat(lt, rt), _t_];
         }
         function cons_enum(m, e){
@@ -11854,15 +12141,15 @@
            d = m$0[3],
            v = m$0[2],
            l = m$0[1],
-            /*<<map.ml:466:41>>*/ e$1 = [0, v, d, r, e$0];
+           e$1 =  /*<<map.ml:466:41>>*/ [0, v, d, r, e$0];
           m$0 = l;
           e$0 = e$1;
          }
          /*<<map.ml:466:59>>*/ }
         function compare(cmp, m1, m2){
          var
-           /*<<map.ml:480:40>>*/ e2$2 = cons_enum(m2, 0),
-           /*<<map.ml:480:21>>*/ e1$2 = cons_enum(m1, 0),
+          e2$2 =  /*<<map.ml:480:40>>*/ cons_enum(m2, 0),
+          e1$2 =  /*<<map.ml:480:21>>*/ cons_enum(m1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:470:10>>*/ for(;;){
@@ -11877,24 +12164,27 @@
            r1 = e1[3],
            d1 = e1[2],
            v1 = e1[1],
-            /*<<map.ml:475:20>>*/ c =
-              /*<<map.ml:475:20>>*/ caml_call2(Ord[1], v1, v2);
+           c =
+              /*<<map.ml:475:20>>*/  /*<<map.ml:475:20>>*/ caml_call2
+              (Ord[1], v1, v2);
            /*<<map.ml:476:12>>*/ if(0 !== c)  /*<<map.ml:476:27>>*/ return c;
-           /*<<map.ml:477:20>>*/ var
-           c$0 =  /*<<map.ml:477:20>>*/ caml_call2(cmp, d1, d2);
+          var
+           c$0 =
+              /*<<map.ml:477:20>>*/  /*<<map.ml:477:20>>*/ caml_call2
+              (cmp, d1, d2);
            /*<<map.ml:478:12>>*/ if(0 !== c$0)
             /*<<map.ml:478:27>>*/ return c$0;
           var
-            /*<<map.ml:479:42>>*/ e2$1 = cons_enum(r2, e2$0),
-            /*<<map.ml:479:24>>*/ e1$1 = cons_enum(r1, e1$0);
+           e2$1 =  /*<<map.ml:479:42>>*/ cons_enum(r2, e2$0),
+           e1$1 =  /*<<map.ml:479:24>>*/ cons_enum(r1, e1$0);
           e1 = e1$1;
           e2 = e2$1;
          }
          /*<<map.ml:480:58>>*/ }
         function equal(cmp, m1, m2){
          var
-           /*<<map.ml:491:38>>*/ e2$2 = cons_enum(m2, 0),
-           /*<<map.ml:491:19>>*/ e1$2 = cons_enum(m1, 0),
+          e2$2 =  /*<<map.ml:491:38>>*/ cons_enum(m2, 0),
+          e1$2 =  /*<<map.ml:491:19>>*/ cons_enum(m1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:484:10>>*/ for(;;){
@@ -11912,12 +12202,14 @@
            _p_ =
              0 ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2) ? 1 : 0;
           if(_p_){
-            /*<<map.ml:489:37>>*/ var
-            _q_ =  /*<<map.ml:489:37>>*/ caml_call2(cmp, d1, d2);
+           var
+            _q_ =
+               /*<<map.ml:489:37>>*/  /*<<map.ml:489:37>>*/ caml_call2
+               (cmp, d1, d2);
             /*<<map.ml:489:37>>*/ if(_q_){
             var
-              /*<<map.ml:490:40>>*/ e2$1 = cons_enum(r2, e2$0),
-              /*<<map.ml:490:22>>*/ e1$1 = cons_enum(r1, e1$0);
+             e2$1 =  /*<<map.ml:490:40>>*/ cons_enum(r2, e2$0),
+             e1$1 =  /*<<map.ml:490:22>>*/ cons_enum(r1, e1$0);
             e1 = e1$1;
             e2 = e2$1;
             continue;
@@ -11934,7 +12226,7 @@
          var
           r = param[4],
           l = param[1],
-           /*<<map.ml:495:40>>*/ _o_ = cardinal(r);
+          _o_ =  /*<<map.ml:495:40>>*/ cardinal(r);
          return (cardinal(l) + 1 | 0) + _o_ | 0;
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
@@ -11946,8 +12238,8 @@
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-            /*<<map.ml:499:42>>*/ accu$1 =
-             [0, [0, v, d], bindings_aux(accu$0, r)];
+           accu$1 =
+              /*<<map.ml:499:42>>*/ [0, [0, v, d], bindings_aux(accu$0, r)];
           accu$0 = accu$1;
           param$0 = l;
          }
@@ -11985,13 +12277,13 @@
           t = c[3],
           v = c[2],
           k = c[1],
-           /*<<map.ml:518:59>>*/ _m_ = cons_enum(t, rest);
+          _m_ =  /*<<map.ml:518:59>>*/ cons_enum(t, rest);
           /*<<map.ml:518:29>>*/ return [0,
                  [0, k, v],
                  function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}];
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
-          /*<<map.ml:521:19>>*/ var _k_ = cons_enum(m, 0);
+         var _k_ =  /*<<map.ml:521:19>>*/ cons_enum(m, 0);
           /*<<map.ml:521:19>>*/ return function(_l_){
            /*<<?>>*/ return seq_of_enum(_k_, _l_);};
          /*<<map.ml:521:36>>*/ }
@@ -12004,7 +12296,7 @@
            d = s$0[3],
            v = s$0[2],
            l = s$0[1],
-            /*<<map.ml:526:40>>*/ e$1 = [0, v, d, l, e$0];
+           e$1 =  /*<<map.ml:526:40>>*/ [0, v, d, l, e$0];
           s$0 = r;
           e$0 = e$1;
          }
@@ -12016,13 +12308,13 @@
           t = c[3],
           v = c[2],
           k = c[1],
-           /*<<map.ml:531:44>>*/ _i_ = snoc_enum(t, rest);
+          _i_ =  /*<<map.ml:531:44>>*/ snoc_enum(t, rest);
           /*<<map.ml:531:10>>*/ return [0,
                  [0, k, v],
                  function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}];
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
-          /*<<map.ml:534:23>>*/ var _g_ = snoc_enum(c, 0);
+         var _g_ =  /*<<map.ml:534:23>>*/ snoc_enum(c, 0);
           /*<<map.ml:534:23>>*/ return function(_h_){
            /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);};
          /*<<map.ml:534:40>>*/ }
@@ -12039,11 +12331,12 @@
              d = m$0[3],
              v = m$0[2],
              l = m$0[1],
-              /*<<map.ml:540:24>>*/ n =
-                /*<<map.ml:540:24>>*/ caml_call2(Ord[1], v, low);
+             n =
+                /*<<map.ml:540:24>>*/  /*<<map.ml:540:24>>*/ caml_call2
+                (Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
-              /*<<map.ml:543:31>>*/ var c$0 = [0, v, d, r, c];
+             var c$0 =  /*<<map.ml:543:31>>*/ [0, v, d, r, c];
              m$0 = l;
              c = c$0;
             }
@@ -12114,9 +12407,9 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -12136,8 +12429,10 @@
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_List = global_data.Stdlib__List,
-     /*<<stack.ml:18:0>>*/ Empty =
-      [248, "Stdlib.Stack.Empty", runtime.caml_fresh_oo_id(0)];
+    Empty =
+       /*<<stack.ml:18:0>>*/ [248,
+       "Stdlib.Stack.Empty",
+       runtime.caml_fresh_oo_id(0)];
    function create(param){
      /*<<stack.ml:20:16>>*/ return [0, 0, 0];
     /*<<stack.ml:20:36>>*/ }
@@ -12220,7 +12515,7 @@
              i);
     /*<<stack.ml:65:48>>*/ }
    function of_seq(g){
-     /*<<stack.ml:68:10>>*/ var s = create(0);
+    var s =  /*<<stack.ml:68:10>>*/ create(0);
      /*<<stack.ml:69:2>>*/ add_seq(s, g);
      /*<<stack.ml:69:2>>*/ return s;
     /*<<stack.ml:70:3>>*/ }
@@ -12255,9 +12550,9 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -12271,8 +12566,10 @@
    var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
-     /*<<queue.ml:17:0>>*/ Empty =
-      [248, "Stdlib.Queue.Empty", runtime.caml_fresh_oo_id(0)];
+    Empty =
+       /*<<queue.ml:17:0>>*/ [248,
+       "Stdlib.Queue.Empty",
+       runtime.caml_fresh_oo_id(0)];
    function create(param){
      /*<<queue.ml:29:16>>*/ return [0, 0, 0, 0];
     /*<<queue.ml:33:1>>*/ }
@@ -12284,8 +12581,8 @@
     /*<<queue.ml:38:15>>*/ }
    function add(x, q){
     var
-      /*<<queue.ml:41:18>>*/ cell = [0, x, 0],
-      /*<<queue.ml:45:2>>*/ match = q[3];
+     cell =  /*<<queue.ml:41:18>>*/ [0, x, 0],
+     match =  /*<<queue.ml:45:2>>*/ q[3];
     return match
             ? (q[1] = q[1] + 1 | 0, match[2] = cell, q[3] = cell, 0)
             : (q[1] = 1, q[2] = cell, q[3] = cell, 0);
@@ -12335,7 +12632,7 @@
    function copy(q){
     var
      cell$0 = q[2],
-      /*<<queue.ml:108:16>>*/ q_res = [0, q[1], 0, 0],
+     q_res =  /*<<queue.ml:108:16>>*/ [0, q[1], 0, 0],
      prev = 0,
      cell = cell$0;
      /*<<queue.ml:98:4>>*/ for(;;){
@@ -12343,7 +12640,7 @@
      var
       content = cell[1],
       next = cell[2],
-       /*<<queue.ml:101:21>>*/ prev$0 = [0, content, 0];
+      prev$0 =  /*<<queue.ml:101:21>>*/ [0, content, 0];
       /*<<queue.ml:102:6>>*/ if(prev)
       prev[2] = prev$0;
      else
@@ -12374,8 +12671,9 @@
      var
       content = cell[1],
       next = cell[2],
-       /*<<queue.ml:131:17>>*/ accu$0 =
-         /*<<queue.ml:131:17>>*/ caml_call2(f, accu, content);
+      accu$0 =
+         /*<<queue.ml:131:17>>*/  /*<<queue.ml:131:17>>*/ caml_call2
+         (f, accu, content);
      accu = accu$0;
      cell = next;
     }
@@ -12414,7 +12712,7 @@
              i);
     /*<<queue.ml:159:48>>*/ }
    function of_seq(g){
-     /*<<queue.ml:162:10>>*/ var q = create(0);
+    var q =  /*<<queue.ml:162:10>>*/ create(0);
      /*<<queue.ml:163:2>>*/ add_seq(q, g);
      /*<<queue.ml:163:2>>*/ return q;
     /*<<queue.ml:164:3>>*/ }
@@ -12452,24 +12750,24 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_blit_string = runtime.caml_blit_string,
-     /*<<?>>*/ caml_bswap16 = runtime.caml_bswap16,
-     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
-     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
-     /*<<?>>*/ caml_bytes_set16 = runtime.caml_bytes_set16,
-     /*<<?>>*/ caml_bytes_set32 = runtime.caml_bytes_set32,
-     /*<<?>>*/ caml_bytes_set64 = runtime.caml_bytes_set64,
-     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_int32_bswap = runtime.caml_int32_bswap,
-     /*<<?>>*/ caml_int64_bswap = runtime.caml_int64_bswap,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
-     /*<<?>>*/ caml_string_get = runtime.caml_string_get,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_blit_string =  /*<<?>>*/ runtime.caml_blit_string,
+    caml_bswap16 =  /*<<?>>*/ runtime.caml_bswap16,
+    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
+    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
+    caml_bytes_set16 =  /*<<?>>*/ runtime.caml_bytes_set16,
+    caml_bytes_set32 =  /*<<?>>*/ runtime.caml_bytes_set32,
+    caml_bytes_set64 =  /*<<?>>*/ runtime.caml_bytes_set64,
+    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_int32_bswap =  /*<<?>>*/ runtime.caml_int32_bswap,
+    caml_int64_bswap =  /*<<?>>*/ runtime.caml_int64_bswap,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
+    caml_string_get =  /*<<?>>*/ runtime.caml_string_get,
+    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)
@@ -12512,8 +12810,8 @@
     var
      n$0 = 1 <= n ? n : 1,
      n$1 = Stdlib_Sys[12] < n$0 ? Stdlib_Sys[12] : n$0,
-      /*<<buffer.ml:43:9>>*/ s =
-        /*<<buffer.ml:43:9>>*/ caml_create_bytes(n$1);
+     s =
+        /*<<buffer.ml:43:9>>*/  /*<<buffer.ml:43:9>>*/ caml_create_bytes(n$1);
      /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s];
     /*<<buffer.ml:44:71>>*/ }
    function contents(b){
@@ -12548,7 +12846,7 @@
    function nth(b, ofs){
     var
      position = b[2],
-      /*<<buffer.ml:65:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:65:2>>*/ b[1],
      length = match[2],
      buffer = match[1];
      /*<<buffer.ml:66:2>>*/ if
@@ -12566,7 +12864,7 @@
     /*<<buffer.ml:73:29>>*/ }
    function reset(b){
      /*<<buffer.ml:76:2>>*/ b[2] = 0;
-     /*<<buffer.ml:78:4>>*/ var inner = [0, b[3], caml_ml_bytes_length(b[3])];
+    var inner =  /*<<buffer.ml:78:4>>*/ [0, b[3], caml_ml_bytes_length(b[3])];
     b[1] = inner;
     return 0;
     /*<<buffer.ml:80:18>>*/ }
@@ -12574,7 +12872,7 @@
     var
      old_pos = b[2],
      old_len = b[1][2],
-      /*<<buffer.ml:89:16>>*/ new_len = [0, old_len];
+     new_len =  /*<<buffer.ml:89:16>>*/ [0, old_len];
     for(;;){
      if(new_len[1] >= (old_pos + more | 0)) break;
      new_len[1] = 2 * new_len[1] | 0;
@@ -12585,8 +12883,10 @@
      else
        /*<<buffer.ml:94:9>>*/  /*<<buffer.ml:94:9>>*/ caml_call1
        (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
-     /*<<buffer.ml:96:19>>*/ var
-     new_buffer =  /*<<buffer.ml:96:19>>*/ caml_create_bytes(new_len[1]);
+    var
+     new_buffer =
+        /*<<buffer.ml:96:19>>*/  /*<<buffer.ml:96:19>>*/ caml_create_bytes
+        (new_len[1]);
      /*<<buffer.ml:99:2>>*/  /*<<buffer.ml:99:2>>*/ caml_call5
      (Stdlib_Bytes[11], b[1][1], 0, new_buffer, 0, b[2]);
     b[1] = [0, new_buffer, new_len[1]];
@@ -12594,7 +12894,7 @@
    function add_char(b, c){
     var
      pos = b[2],
-      /*<<buffer.ml:114:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:114:2>>*/ b[1],
      length = match[2],
      buffer = match[1];
     if(length <= pos){
@@ -12619,9 +12919,9 @@
      var pos = b[2];
      if(b[1][2] <= pos)
        /*<<buffer.ml:127:32>>*/ resize(b, uchar_utf_8_byte_length_max);
-      /*<<buffer.ml:128:10>>*/ var
+     var
       n =
-         /*<<buffer.ml:128:10>>*/ caml_call3
+         /*<<buffer.ml:128:10>>*/  /*<<buffer.ml:128:10>>*/ caml_call3
          (Stdlib_Bytes[51], b[1][1], pos, u);
       /*<<buffer.ml:129:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:130:8>>*/ resize(b, uchar_utf_8_byte_length_max);
@@ -12632,9 +12932,9 @@
      var pos = b[2];
      if(b[1][2] <= pos)
        /*<<buffer.ml:135:32>>*/ resize(b, uchar_utf_16_byte_length_max);
-      /*<<buffer.ml:136:10>>*/ var
+     var
       n =
-         /*<<buffer.ml:136:10>>*/ caml_call3
+         /*<<buffer.ml:136:10>>*/  /*<<buffer.ml:136:10>>*/ caml_call3
          (Stdlib_Bytes[54], b[1][1], pos, u);
       /*<<buffer.ml:137:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:138:8>>*/ resize(b, uchar_utf_16_byte_length_max);
@@ -12645,9 +12945,9 @@
      var pos = b[2];
      if(b[1][2] <= pos)
        /*<<buffer.ml:143:32>>*/ resize(b, uchar_utf_16_byte_length_max);
-      /*<<buffer.ml:144:10>>*/ var
+     var
       n =
-         /*<<buffer.ml:144:10>>*/ caml_call3
+         /*<<buffer.ml:144:10>>*/  /*<<buffer.ml:144:10>>*/ caml_call3
          (Stdlib_Bytes[57], b[1][1], pos, u);
       /*<<buffer.ml:145:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:146:8>>*/ resize(b, uchar_utf_16_byte_length_max);
@@ -12666,7 +12966,7 @@
       (Stdlib[1], cst_Buffer_add_substring_add_s);
     var
      position = b[2],
-      /*<<buffer.ml:153:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:153:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
      new_position = position + len | 0;
@@ -12691,8 +12991,8 @@
    function add_string(b, s){
     var
      len = caml_ml_string_length(s),
-      /*<<buffer.ml:167:2>>*/ position = b[2],
-      /*<<buffer.ml:168:2>>*/ match = b[1],
+     position =  /*<<buffer.ml:167:2>>*/ b[2],
+     match =  /*<<buffer.ml:168:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
      new_position = position + len | 0;
@@ -12731,9 +13031,9 @@
      to_read = to_read$1;
      /*<<buffer.ml:185:4>>*/ for(;;){
      if(0 !== to_read){
-       /*<<buffer.ml:187:14>>*/ var
+      var
        r =
-          /*<<buffer.ml:187:14>>*/ caml_call4
+          /*<<buffer.ml:187:14>>*/  /*<<buffer.ml:187:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs, to_read);
        /*<<buffer.ml:188:6>>*/ if(0 !== r){
        var
@@ -12764,23 +13064,27 @@
       var _o_ = 92 === previous ? 1 : 0;
       return _o_ ? add_char(b, previous) : _o_;
      }
-      /*<<buffer.ml:264:12>>*/ var
-      previous$0 =  /*<<buffer.ml:264:12>>*/ caml_string_get(s, i$4);
+     var
+      previous$0 =
+         /*<<buffer.ml:264:12>>*/  /*<<buffer.ml:264:12>>*/ caml_string_get
+         (s, i$4);
      if(36 === previous$0)
       if(92 === previous){
         /*<<buffer.ml:266:9>>*/ add_char(b, previous$0);
-        /*<<buffer.ml:266:9>>*/ var i$5 = i$4 + 1 | 0;
+       var i$5 =  /*<<buffer.ml:266:9>>*/ i$4 + 1 | 0;
        previous = 32;
        i$4 = i$5;
       }
       else{
-        /*<<buffer.ml:269:9>>*/ var start = i$4 + 1 | 0;
+       var start =  /*<<buffer.ml:269:9>>*/ i$4 + 1 | 0;
         /*<<buffer.ml:270:9>>*/ try{
         if(lim$1 <= start)
           /*<<buffer.ml:245:23>>*/ throw  /*<<buffer.ml:245:23>>*/ caml_maybe_attach_backtrace
                 (Stdlib[8], 1);
-         /*<<buffer.ml:246:8>>*/ var
-         opening =  /*<<buffer.ml:246:8>>*/ caml_string_get(s, start);
+        var
+         opening =
+            /*<<buffer.ml:246:8>>*/  /*<<buffer.ml:246:8>>*/ caml_string_get
+            (s, start);
         a:
         {
          if(40 !== opening && 123 !== opening){
@@ -12794,8 +13098,10 @@
              var i$2 = start;
               /*<<buffer.ml:237:4>>*/ for(;;){
               if(lim$0 <= i$2) break c;
-               /*<<buffer.ml:238:10>>*/ var
-               match =  /*<<buffer.ml:238:10>>*/ caml_string_get(s, i$2);
+              var
+               match =
+                  /*<<buffer.ml:238:10>>*/  /*<<buffer.ml:238:10>>*/ caml_string_get
+                  (s, i$2);
               if(91 <= match){
                if(97 <= match){
                 if(123 <= match) break d;
@@ -12827,7 +13133,7 @@
               stop$0];
           break a;
          }
-         var  /*<<buffer.ml:249:5>>*/ new_start = start + 1 | 0, k$2 = 0;
+         var new_start =  /*<<buffer.ml:249:5>>*/ start + 1 | 0, k$2 = 0;
          if(40 === opening)
           var closing = 41;
          else{
@@ -12876,7 +13182,7 @@
      else{
       if(92 === previous)  /*<<buffer.ml:279:33>>*/ add_char(b, previous);
       if(92 !== previous$0)  /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
-       /*<<buffer.ml:280:33>>*/ var i$6 = i$4 + 1 | 0;
+      var i$6 =  /*<<buffer.ml:280:33>>*/ i$4 + 1 | 0;
       previous = previous$0;
       i$4 = i$6;
      }
@@ -12892,14 +13198,15 @@
       /*<<buffer.ml:297:4>>*/ if(b[2] <= i)
        /*<<buffer.ml:297:28>>*/ return 0;
      var
-       /*<<buffer.ml:299:14>>*/ x =
-         /*<<buffer.ml:299:14>>*/ caml_bytes_get(b[1][1], i),
-       /*<<buffer.ml:299:14>>*/ _l_ = i + 1 | 0;
+      x =
+         /*<<buffer.ml:299:14>>*/  /*<<buffer.ml:299:14>>*/ caml_bytes_get
+         (b[1][1], i),
+      _l_ =  /*<<buffer.ml:299:14>>*/ i + 1 | 0;
       /*<<buffer.ml:300:6>>*/ return [0,
              x,
              function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}];
      /*<<buffer.ml:300:29>>*/ }
-     /*<<buffer.ml:302:2>>*/ var _j_ = 0;
+    var _j_ =  /*<<buffer.ml:302:2>>*/ 0;
      /*<<buffer.ml:302:2>>*/ return function(_k_){
       /*<<?>>*/ return aux(_j_, _k_);};
     /*<<buffer.ml:302:7>>*/ }
@@ -12908,14 +13215,15 @@
       /*<<buffer.ml:307:4>>*/ if(b[2] <= i)
        /*<<buffer.ml:307:28>>*/ return 0;
      var
-       /*<<buffer.ml:309:14>>*/ x =
-         /*<<buffer.ml:309:14>>*/ caml_bytes_get(b[1][1], i),
-       /*<<buffer.ml:309:14>>*/ _h_ = i + 1 | 0;
+      x =
+         /*<<buffer.ml:309:14>>*/  /*<<buffer.ml:309:14>>*/ caml_bytes_get
+         (b[1][1], i),
+      _h_ =  /*<<buffer.ml:309:14>>*/ i + 1 | 0;
       /*<<buffer.ml:310:6>>*/ return [0,
              [0, i, x],
              function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}];
      /*<<buffer.ml:310:33>>*/ }
-     /*<<buffer.ml:312:2>>*/ var _f_ = 0;
+    var _f_ =  /*<<buffer.ml:312:2>>*/ 0;
      /*<<buffer.ml:312:2>>*/ return function(_g_){
       /*<<?>>*/ return aux(_f_, _g_);};
     /*<<buffer.ml:312:7>>*/ }
@@ -12926,17 +13234,17 @@
              seq);
     /*<<buffer.ml:314:45>>*/ }
    function of_seq(i){
-     /*<<buffer.ml:317:10>>*/ var b = create(32);
+    var b =  /*<<buffer.ml:317:10>>*/ create(32);
      /*<<buffer.ml:318:2>>*/ add_seq(b, i);
      /*<<buffer.ml:318:2>>*/ return b;
     /*<<buffer.ml:319:3>>*/ }
    function add_int8(b, x){
     var
      position = b[2],
-      /*<<buffer.ml:339:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:339:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
-      /*<<buffer.ml:340:2>>*/ new_position = position + 1 | 0;
+     new_position =  /*<<buffer.ml:340:2>>*/ position + 1 | 0;
     if(length < new_position){
       /*<<buffer.ml:342:4>>*/ resize(b, 1);
       /*<<buffer.ml:343:4>>*/  /*<<buffer.ml:343:4>>*/ caml_bytes_set
@@ -12950,10 +13258,10 @@
    function add_int16_ne(b, x){
     var
      position = b[2],
-      /*<<buffer.ml:350:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:350:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
-      /*<<buffer.ml:351:2>>*/ new_position = position + 2 | 0;
+     new_position =  /*<<buffer.ml:351:2>>*/ position + 2 | 0;
     if(length < new_position){
       /*<<buffer.ml:353:4>>*/ resize(b, 2);
       /*<<buffer.ml:354:4>>*/  /*<<buffer.ml:354:4>>*/ caml_bytes_set16
@@ -12968,10 +13276,10 @@
    function add_int32_ne(b, x){
     var
      position = b[2],
-      /*<<buffer.ml:361:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:361:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
-      /*<<buffer.ml:362:2>>*/ new_position = position + 4 | 0;
+     new_position =  /*<<buffer.ml:362:2>>*/ position + 4 | 0;
     if(length < new_position){
       /*<<buffer.ml:364:4>>*/ resize(b, 4);
       /*<<buffer.ml:365:4>>*/  /*<<buffer.ml:365:4>>*/ caml_bytes_set32
@@ -12986,10 +13294,10 @@
    function add_int64_ne(b, x){
     var
      position = b[2],
-      /*<<buffer.ml:372:2>>*/ match = b[1],
+     match =  /*<<buffer.ml:372:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
-      /*<<buffer.ml:373:2>>*/ new_position = position + 8 | 0;
+     new_position =  /*<<buffer.ml:373:2>>*/ position + 8 | 0;
     if(length < new_position){
       /*<<buffer.ml:375:4>>*/ resize(b, 8);
       /*<<buffer.ml:376:4>>*/  /*<<buffer.ml:376:4>>*/ caml_bytes_set64
@@ -13081,12 +13389,12 @@
 (function(globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_mutex_lock = runtime.caml_ml_mutex_lock,
-     /*<<?>>*/ caml_ml_mutex_unlock = runtime.caml_ml_mutex_unlock,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_mutex_lock =  /*<<?>>*/ runtime.caml_ml_mutex_lock,
+    caml_ml_mutex_unlock =  /*<<?>>*/ runtime.caml_ml_mutex_unlock,
+    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)
@@ -13095,7 +13403,7 @@
    function protect(m, f){
      /*<<mutex.ml:27:2>>*/  /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock(m);
      /*<<mutex.ml:27:2>>*/ try{
-      /*<<mutex.ml:28:8>>*/ var x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
+     var x =  /*<<mutex.ml:28:8>>*/  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
     }
     catch(e$0){
      var e = caml_wrap_exception(e$0);
@@ -13123,7 +13431,7 @@
 (function(globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     Stdlib_Condition =
       [0,
        runtime.caml_ml_condition_new,
@@ -13141,9 +13449,9 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -13166,8 +13474,10 @@
      /*<<semaphore.ml:29:2>>*/ if(v < 0)
       /*<<semaphore.ml:29:16>>*/  /*<<semaphore.ml:29:16>>*/ caml_call1
       (Stdlib[1], cst_Semaphore_Counting_init_wr);
-     /*<<semaphore.ml:30:39>>*/ var
-     _c_ =  /*<<semaphore.ml:30:39>>*/ caml_call1(Stdlib_Condition[1], 0);
+    var
+     _c_ =
+        /*<<semaphore.ml:30:39>>*/  /*<<semaphore.ml:30:39>>*/ caml_call1
+        (Stdlib_Condition[1], 0);
      /*<<semaphore.ml:30:2>>*/ return [0,
              /*<<semaphore.ml:30:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
             v,
@@ -13210,12 +13520,19 @@
    function get_value(s){
      /*<<semaphore.ml:55:18>>*/ return s[2];
     /*<<semaphore.ml:55:21>>*/ }
-    /*<<semaphore.ml:24:18>>*/ var
-    Counting = [0, make, release, acquire, try_acquire, get_value];
+   var
+    Counting =
+       /*<<semaphore.ml:24:18>>*/ [0,
+       make,
+       release,
+       acquire,
+       try_acquire,
+       get_value];
    function make$0(b){
     var
-      /*<<semaphore.ml:66:14>>*/ _a_ =
-        /*<<semaphore.ml:66:14>>*/ caml_call1(Stdlib_Condition[1], 0),
+     _a_ =
+        /*<<semaphore.ml:66:14>>*/  /*<<semaphore.ml:66:14>>*/ caml_call1
+        (Stdlib_Condition[1], 0),
      _b_ = b ? 1 : 0;
      /*<<semaphore.ml:64:2>>*/ return [0,
              /*<<semaphore.ml:64:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
@@ -13248,8 +13565,12 @@
      /*<<semaphore.ml:83:2>>*/ return ret;
     /*<<semaphore.ml:84:5>>*/ }
    var
-     /*<<semaphore.ml:59:16>>*/ Binary =
-      [0, make$0, release$0, acquire$0, try_acquire$0],
+    Binary =
+       /*<<semaphore.ml:59:16>>*/ [0,
+       make$0,
+       release$0,
+       acquire$0,
+       try_acquire$0],
     Stdlib_Semaphore = [0, Counting, Binary];
    runtime.caml_register_global(5, Stdlib_Semaphore, "Stdlib__Semaphore");
    return;
@@ -13262,14 +13583,14 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -13304,32 +13625,39 @@
      /*<<domain.ml:47:19>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
             (0);
     /*<<domain.ml:47:35>>*/ }
-    /*<<domain.ml:72:24>>*/ var none = [0, 0];
+   var none =  /*<<domain.ml:72:24>>*/ [0, 0];
    function create_dls(param){
-     /*<<domain.ml:89:13>>*/ var
-     st =  /*<<domain.ml:89:13>>*/ caml_make_vect(8, none);
+    var
+     st =
+        /*<<domain.ml:89:13>>*/  /*<<domain.ml:89:13>>*/ caml_make_vect
+        (8, none);
      /*<<domain.ml:90:4>>*/  /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set
      (st);
     /*<<domain.ml:90:20>>*/ }
     /*<<domain.ml:92:10>>*/ create_dls(0);
    var
-     /*<<domain.ml:96:20>>*/ key_counter =
-       /*<<domain.ml:96:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
-     /*<<domain.ml:101:20>>*/ parent_keys =
-       /*<<domain.ml:101:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
+    key_counter =
+       /*<<domain.ml:96:20>>*/  /*<<domain.ml:96:20>>*/ caml_call1
+       (Stdlib_Atomic[1], 0),
+    parent_keys =
+       /*<<domain.ml:101:20>>*/  /*<<domain.ml:101:20>>*/ caml_call1
+       (Stdlib_Atomic[1], 0),
     _a_ = [0, "domain.ml", 184, 13];
    function new_key(split_from_parent, init_orphan){
     var
-      /*<<domain.ml:109:14>>*/ idx =
-        /*<<domain.ml:109:14>>*/ caml_call2(Stdlib_Atomic[7], key_counter, 1),
-      /*<<domain.ml:110:12>>*/ k = [0, idx, init_orphan];
+     idx =
+        /*<<domain.ml:109:14>>*/  /*<<domain.ml:109:14>>*/ caml_call2
+        (Stdlib_Atomic[7], key_counter, 1),
+     k =  /*<<domain.ml:110:12>>*/ [0, idx, init_orphan];
      /*<<domain.ml:111:4>>*/ if(split_from_parent){
      var
       split = split_from_parent[1],
-       /*<<domain.ml:113:35>>*/ ki = [0, k, split];
+      ki =  /*<<domain.ml:113:35>>*/ [0, k, split];
       /*<<domain.ml:104:4>>*/ for(;;){
-       /*<<domain.ml:104:12>>*/ var
-       l =  /*<<domain.ml:104:12>>*/ caml_call1(Stdlib_Atomic[3], parent_keys);
+      var
+       l =
+          /*<<domain.ml:104:12>>*/  /*<<domain.ml:104:12>>*/ caml_call1
+          (Stdlib_Atomic[3], parent_keys);
       if
        (!
         (1
@@ -13345,7 +13673,7 @@
      /*<<domain.ml:120:4>>*/ for(;;){
      var
       st = caml_domain_dls_get(0),
-       /*<<domain.ml:121:4>>*/ sz = st.length - 1;
+      sz =  /*<<domain.ml:121:4>>*/ st.length - 1;
      if(idx < sz)  /*<<domain.ml:122:21>>*/ return st;
      var new_sz = sz;
       /*<<domain.ml:125:8>>*/ for(;;){
@@ -13353,8 +13681,10 @@
       var s = 2 * new_sz | 0;
       new_sz = s;
      }
-      /*<<domain.ml:128:19>>*/ var
-      new_st =  /*<<domain.ml:128:19>>*/ caml_make_vect(new_sz, none);
+     var
+      new_st =
+         /*<<domain.ml:128:19>>*/  /*<<domain.ml:128:19>>*/ caml_make_vect
+         (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
@@ -13364,7 +13694,7 @@
     }
     /*<<domain.ml:139:7>>*/ }
    function set(param, x){
-    var idx = param[1],  /*<<domain.ml:142:13>>*/ st = maybe_grow(idx);
+    var idx = param[1], st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
      /*<<domain.ml:146:4>>*/ return 0;
    }
@@ -13372,20 +13702,22 @@
     var
      init = param[2],
      idx = param[1],
-      /*<<domain.ml:159:13>>*/ st = maybe_grow(idx),
-      /*<<domain.ml:160:14>>*/ oldval = caml_check_bound(st, idx)[1 + idx];
+     st =  /*<<domain.ml:159:13>>*/ maybe_grow(idx),
+     oldval =  /*<<domain.ml:160:14>>*/ caml_check_bound(st, idx)[1 + idx];
      /*<<domain.ml:161:7>>*/ if(oldval !== none)
       /*<<domain.ml:75:25>>*/ return oldval;
     var
-      /*<<domain.ml:164:18>>*/ new_obj =
-        /*<<domain.ml:164:18>>*/ caml_call1(init, 0),
-      /*<<domain.ml:175:6>>*/ st$0 =
-        /*<<domain.ml:175:6>>*/ caml_domain_dls_get(0),
-      /*<<domain.ml:152:17>>*/ curval = caml_check_bound(st$0, idx)[1 + idx],
+     new_obj =
+        /*<<domain.ml:164:18>>*/  /*<<domain.ml:164:18>>*/ caml_call1(init, 0),
+     st$0 =
+        /*<<domain.ml:175:6>>*/  /*<<domain.ml:175:6>>*/ caml_domain_dls_get
+        (0),
+     curval =  /*<<domain.ml:152:17>>*/ caml_check_bound(st$0, idx)[1 + idx],
      _e_ = curval === oldval ? (st$0[1 + idx] = new_obj, 1) : 0;
      /*<<domain.ml:176:9>>*/ if(_e_)  /*<<domain.ml:177:11>>*/ return new_obj;
-     /*<<domain.ml:181:26>>*/ var
-     updated_obj = caml_check_bound(st$0, idx)[1 + idx];
+    var
+     updated_obj =
+        /*<<domain.ml:181:26>>*/ caml_check_bound(st$0, idx)[1 + idx];
      /*<<domain.ml:182:11>>*/ if(updated_obj !== none)
       /*<<domain.ml:75:25>>*/ return updated_obj;
      /*<<domain.ml:184:13>>*/ throw  /*<<domain.ml:184:13>>*/ caml_maybe_attach_backtrace
@@ -13406,10 +13738,12 @@
             : 0;
     /*<<domain.ml:205:44>>*/ }
    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>>*/ }],
+    first_domain_spawned =
+       /*<<domain.ml:210:27>>*/  /*<<domain.ml:210:27>>*/ caml_call1
+       (Stdlib_Atomic[1], 0),
+    first_spawn_function =
+       /*<<domain.ml:212:27>>*/ [0,
+       function(param){ /*<<domain.ml:212:44>>*/ }],
     cst_first_domain_already_spawn = "first domain already spawned";
    function before_first_spawn(f){
      /*<<domain.ml:215:2>>*/ if
@@ -13426,16 +13760,16 @@
     first_spawn_function[1] = new_f;
     return 0;
     /*<<domain.ml:221:5>>*/ }
-    /*<<domain.ml:231:18>>*/ var
+   var
     at_exit_key =
-      new_key
+       /*<<domain.ml:231:18>>*/ 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>>*/ });
    function at_exit(f){
-     /*<<domain.ml:234:32>>*/ var old_exit = get(at_exit_key);
+    var old_exit =  /*<<domain.ml:234:32>>*/ 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
@@ -13444,7 +13778,7 @@
      /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit);
     /*<<domain.ml:238:30>>*/ }
    function do_at_exit(param){
-     /*<<domain.ml:241:25>>*/ var f = get(at_exit_key);
+    var f =  /*<<domain.ml:241:25>>*/ get(at_exit_key);
      /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1(f, 0);
     /*<<domain.ml:242:6>>*/ }
    Stdlib[104][1] = do_at_exit;
@@ -13464,10 +13798,11 @@
        /*<<domain.ml:228:41>>*/ };
     }
     var
-      /*<<domain.ml:193:6>>*/ _b_ =
-        /*<<domain.ml:193:6>>*/ caml_call1(Stdlib_Atomic[3], parent_keys),
-      /*<<domain.ml:193:6>>*/ pk =
-        /*<<domain.ml:193:6>>*/ caml_call2
+     _b_ =
+        /*<<domain.ml:193:6>>*/  /*<<domain.ml:193:6>>*/ caml_call1
+        (Stdlib_Atomic[3], parent_keys),
+     pk =
+        /*<<domain.ml:193:6>>*/  /*<<domain.ml:193:6>>*/ caml_call2
         (Stdlib_List[20],
          function(param){
           var split = param[2], k = param[1];
@@ -13476,10 +13811,14 @@
                    /*<<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_];
+     _c_ =
+        /*<<domain.ml:256:17>>*/  /*<<domain.ml:256:17>>*/ caml_call1
+        (Stdlib_Condition[1], 0),
+     term_sync =
+        /*<<domain.ml:254:8>>*/ [0,
+        0,
+         /*<<domain.ml:255:16>>*/ caml_call1(Stdlib_Mutex[1], 0),
+        _c_];
     function body(param){
       /*<<domain.ml:260:4>>*/ try{
        /*<<domain.ml:261:6>>*/ create_dls(0);
@@ -13490,8 +13829,9 @@
           /*<<domain.ml:196:34>>*/ return set(k, v);
          /*<<domain.ml:196:42>>*/ },
         pk);
-       /*<<domain.ml:263:16>>*/ var
-       res =  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
+      var
+       res =
+          /*<<domain.ml:263:16>>*/  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
@@ -13503,9 +13843,10 @@
       /*<<domain.ml:272:8>>*/ do_at_exit(0);
       /*<<domain.ml:272:8>>*/ return res;
      /*<<domain.ml:279:17>>*/ }
-     /*<<domain.ml:281:15>>*/ var
+    var
      domain =
-        /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn(body, term_sync);
+        /*<<domain.ml:281:15>>*/  /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn
+        (body, term_sync);
      /*<<domain.ml:282:2>>*/ return [0, domain, term_sync];
     /*<<domain.ml:282:24>>*/ }
    function join(param){
@@ -13518,9 +13859,9 @@
        (Stdlib_Condition[2], term_sync[3], term_sync[2]);
      }
      /*<<domain.ml:292:11>>*/ }
-     /*<<domain.ml:294:8>>*/ var
+    var
      match =
-        /*<<domain.ml:294:8>>*/ caml_call2
+        /*<<domain.ml:294:8>>*/  /*<<domain.ml:294:8>>*/ caml_call2
         (Stdlib_Mutex[5], term_sync[2], loop);
     if(0 === match[0]){var x = match[1];  /*<<domain.ml:295:12>>*/ return x;}
     var ex = match[1];
@@ -13552,44 +13893,44 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst$43 = "",
-     /*<<?>>*/ cst_and = " and ",
-     /*<<?>>*/ cst_Li$3 = "%Li",
-     /*<<?>>*/ cst_i$3 = "%i",
-     /*<<?>>*/ cst_li$3 = "%li",
-     /*<<?>>*/ cst_ni$3 = "%ni",
-     /*<<?>>*/ cst_u$0 = "%u",
-     /*<<?>>*/ cst$42 = "' '",
-     /*<<?>>*/ cst$41 = "'#'",
-     /*<<?>>*/ cst$39 = "'*'",
-     /*<<?>>*/ cst$40 = "'+'",
-     /*<<?>>*/ cst$44 = ", ",
-     /*<<?>>*/ cst_0$3 = "0",
-     /*<<?>>*/ cst_at_character_number = ": at character number ",
-     /*<<?>>*/ cst$38 = "@[",
-     /*<<?>>*/ cst$37 = "@{",
-     /*<<?>>*/ cst_bad_input_format_type_mism =
-      "bad input: format type mismatch between ",
-     /*<<?>>*/ cst_bad_input_format_type_mism$0 =
-      "bad input: format type mismatch between %S and %S",
-     /*<<?>>*/ cst_camlinternalFormat_ml = "camlinternalFormat.ml",
-     /*<<?>>*/ cst_invalid_format = "invalid format ",
-     /*<<?>>*/ cst_precision$3 = "precision",
-     /*<<?>>*/ caml_blit_string = runtime.caml_blit_string,
-     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_format_float = runtime.caml_format_float,
-     /*<<?>>*/ caml_format_int = runtime.caml_format_int,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
-     /*<<?>>*/ caml_notequal = runtime.caml_notequal,
-     /*<<?>>*/ caml_string_get = runtime.caml_string_get,
-     /*<<?>>*/ caml_string_unsafe_get = runtime.caml_string_unsafe_get,
-     /*<<?>>*/ caml_trampoline = runtime.caml_trampoline,
-     /*<<?>>*/ caml_trampoline_return = runtime.caml_trampoline_return,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst$43 =  /*<<?>>*/ "",
+    cst_and =  /*<<?>>*/ " and ",
+    cst_Li$3 =  /*<<?>>*/ "%Li",
+    cst_i$3 =  /*<<?>>*/ "%i",
+    cst_li$3 =  /*<<?>>*/ "%li",
+    cst_ni$3 =  /*<<?>>*/ "%ni",
+    cst_u$0 =  /*<<?>>*/ "%u",
+    cst$42 =  /*<<?>>*/ "' '",
+    cst$41 =  /*<<?>>*/ "'#'",
+    cst$39 =  /*<<?>>*/ "'*'",
+    cst$40 =  /*<<?>>*/ "'+'",
+    cst$44 =  /*<<?>>*/ ", ",
+    cst_0$3 =  /*<<?>>*/ "0",
+    cst_at_character_number =  /*<<?>>*/ ": at character number ",
+    cst$38 =  /*<<?>>*/ "@[",
+    cst$37 =  /*<<?>>*/ "@{",
+    cst_bad_input_format_type_mism =
+       /*<<?>>*/ "bad input: format type mismatch between ",
+    cst_bad_input_format_type_mism$0 =
+       /*<<?>>*/ "bad input: format type mismatch between %S and %S",
+    cst_camlinternalFormat_ml =  /*<<?>>*/ "camlinternalFormat.ml",
+    cst_invalid_format =  /*<<?>>*/ "invalid format ",
+    cst_precision$3 =  /*<<?>>*/ "precision",
+    caml_blit_string =  /*<<?>>*/ runtime.caml_blit_string,
+    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_format_float =  /*<<?>>*/ runtime.caml_format_float,
+    caml_format_int =  /*<<?>>*/ runtime.caml_format_int,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
+    caml_notequal =  /*<<?>>*/ runtime.caml_notequal,
+    caml_string_get =  /*<<?>>*/ runtime.caml_string_get,
+    caml_string_unsafe_get =  /*<<?>>*/ runtime.caml_string_unsafe_get,
+    caml_trampoline =  /*<<?>>*/ runtime.caml_trampoline,
+    caml_trampoline_return =  /*<<?>>*/ runtime.caml_trampoline_return,
+    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)
@@ -13706,8 +14047,8 @@
     var
      str_ind = c >>> 3 | 0,
      mask = 1 << (c & 7),
-      /*<<camlinternalFormat.ml:31:30>>*/ _cU_ =
-        /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
+     _cU_ =
+        /*<<camlinternalFormat.ml:31:30>>*/  /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
         (char_set, str_ind)
        | mask;
      /*<<camlinternalFormat.ml:30:2>>*/ return  /*<<camlinternalFormat.ml:30:2>>*/ caml_bytes_set
@@ -13721,18 +14062,19 @@
     /*<<camlinternalFormat.ml:34:26>>*/ }
    function rev_char_set(char_set){
     var
-      /*<<camlinternalFormat.ml:38:18>>*/ char_set$0 = create_char_set(0),
+     char_set$0 =  /*<<camlinternalFormat.ml:38:18>>*/ create_char_set(0),
      i = 0;
     for(;;){
-      /*<<camlinternalFormat.ml:41:32>>*/ var
+     var
       _cS_ =
-         /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get(char_set, i)
+         /*<<camlinternalFormat.ml:41:32>>*/  /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get
+         (char_set, i)
         ^ 255;
       /*<<camlinternalFormat.ml:40:4>>*/  /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
       (char_set$0,
        i,
         /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _cS_));
-      /*<<camlinternalFormat.ml:40:4>>*/ var _cT_ = i + 1 | 0;
+     var _cT_ =  /*<<camlinternalFormat.ml:40:4>>*/ i + 1 | 0;
      if(31 === i)
        /*<<camlinternalFormat.ml:43:2>>*/ return  /*<<camlinternalFormat.ml:43:2>>*/ caml_call1
               (Stdlib_Bytes[44], char_set$0);
@@ -13834,11 +14176,12 @@
      min_len = buf[1] + overhead | 0;
     if(len < min_len){
      var
-       /*<<camlinternalFormat.ml:263:18>>*/ new_len =
-         /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
+      new_len =
+         /*<<camlinternalFormat.ml:263:18>>*/  /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
          (Stdlib_Int[11], len * 2 | 0, min_len),
-       /*<<camlinternalFormat.ml:264:18>>*/ new_str =
-         /*<<camlinternalFormat.ml:264:18>>*/ caml_create_bytes(new_len);
+      new_str =
+         /*<<camlinternalFormat.ml:264:18>>*/  /*<<camlinternalFormat.ml:264:18>>*/ caml_create_bytes
+         (new_len);
       /*<<camlinternalFormat.ml:265:4>>*/  /*<<camlinternalFormat.ml:265:4>>*/ caml_call5
       (Stdlib_Bytes[11], buf[2], 0, new_str, 0, len);
      buf[2] = new_str;
@@ -14022,8 +14365,8 @@
       default:
        var
         c = formatting_lit[1],
-         /*<<camlinternalFormat.ml:475:26>>*/ _cQ_ =
-           /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
+        _cQ_ =
+           /*<<camlinternalFormat.ml:475:26>>*/  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
            (Stdlib_String[1], 1, c);
         /*<<camlinternalFormat.ml:475:26>>*/ return  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
                (Stdlib[28], cst$7, _cQ_);
@@ -14037,13 +14380,13 @@
    function bprint_string_literal(buf, str){
     var
      _cO_ = caml_ml_string_length(str) - 1 | 0,
-      /*<<camlinternalFormat.ml:486:2>>*/ _cN_ = 0;
+     _cN_ =  /*<<camlinternalFormat.ml:486:2>>*/ 0;
     if(_cO_ >= 0){
      var i = _cN_;
      for(;;){
        /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
        (buf,  /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get(str, i));
-       /*<<camlinternalFormat.ml:487:4>>*/ var _cP_ = i + 1 | 0;
+      var _cP_ =  /*<<camlinternalFormat.ml:487:4>>*/ i + 1 | 0;
       if(_cO_ === i) break;
       i = _cP_;
      }
@@ -14142,7 +14485,7 @@
     return 1 + int_of_custom_arity(x) | 0;
    }
    function string_of_fmt(fmt){
-     /*<<camlinternalFormat.ml:644:12>>*/ var buf = buffer_create(16);
+    var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
     function fmtiter(fmt, ign_flag){
      var fmt$0 = fmt, ign_flag$0 = ign_flag;
       /*<<camlinternalFormat.ml:535:22>>*/ for(;;){
@@ -14361,9 +14704,9 @@
          var
           print_char =
             function(buf, i){
-              /*<<camlinternalFormat.ml:358:31>>*/ var
+             var
               c =
-                 /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
+                 /*<<camlinternalFormat.ml:358:31>>*/  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
                  (Stdlib[29], i);
              return 37 === c
                      ? (buffer_add_char(buf, 37), buffer_add_char(buf, 37))
@@ -14373,9 +14716,9 @@
                        : buffer_add_char(buf, c);
              /*<<camlinternalFormat.ml:361:35>>*/ };
           /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
-          /*<<camlinternalFormat.ml:365:7>>*/ var
+         var
           set =
-            is_in_char_set(char_set, 0)
+             /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set(char_set, 0)
              ? (buffer_add_char(buf, 94), rev_char_set(char_set))
              : char_set;
          let set$0 = set;
@@ -14383,20 +14726,23 @@
           is_alone =
             function(c){
              var
-               /*<<camlinternalFormat.ml:316:50>>*/ after =
-                 /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
+              after =
+                 /*<<camlinternalFormat.ml:316:50>>*/  /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
                  (Stdlib_Char[1], c + 1 | 0),
-               /*<<camlinternalFormat.ml:316:32>>*/ before =
-                 /*<<camlinternalFormat.ml:316:32>>*/ caml_call1
+              before =
+                 /*<<camlinternalFormat.ml:316:32>>*/  /*<<camlinternalFormat.ml:316:32>>*/ caml_call1
                  (Stdlib_Char[1], c - 1 | 0),
-               /*<<camlinternalFormat.ml:317:6>>*/ _cJ_ =
-                is_in_char_set(set$0, c);
+              _cJ_ =
+                 /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set(set$0, c);
               /*<<camlinternalFormat.ml:317:6>>*/ if(_cJ_)
               var
-                /*<<camlinternalFormat.ml:318:14>>*/ _cK_ =
-                 is_in_char_set(set$0, before),
-                /*<<camlinternalFormat.ml:318:14>>*/ _cL_ =
-                 _cK_ ? is_in_char_set(set$0, after) : _cK_,
+               _cK_ =
+                  /*<<camlinternalFormat.ml:318:14>>*/ is_in_char_set
+                  (set$0, before),
+               _cL_ =
+                  /*<<camlinternalFormat.ml:318:14>>*/ _cK_
+                  ? is_in_char_set(set$0, after)
+                  : _cK_,
                _cM_ = 1 - _cL_;
              else
               var _cM_ = _cJ_;
@@ -14419,9 +14765,9 @@
                 (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
                   (Stdlib[29], i))){
-               /*<<camlinternalFormat.ml:327:10>>*/ var
+              var
                switcher =
-                  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
+                  /*<<camlinternalFormat.ml:327:10>>*/  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
                   (Stdlib[29], i)
                  - 45
                  | 0;
@@ -14429,19 +14775,19 @@
                if(210 <= switcher) break d;
               }
               else if(46 < switcher - 1 >>> 0){
-                /*<<camlinternalFormat.ml:329:19>>*/ var i$2 = i + 1 | 0;
+               var i$2 =  /*<<camlinternalFormat.ml:329:19>>*/ i + 1 | 0;
                i = i$2;
                continue;
               }
-               /*<<camlinternalFormat.ml:330:11>>*/ var i$1 = i + 1 | 0;
+              var i$1 =  /*<<camlinternalFormat.ml:330:11>>*/ i + 1 | 0;
                /*<<camlinternalFormat.ml:332:7>>*/ if
                (is_in_char_set
                  (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
                    (Stdlib[29], i$1))){
-                /*<<camlinternalFormat.ml:333:12>>*/ var
+               var
                 switcher$0 =
-                   /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
+                   /*<<camlinternalFormat.ml:333:12>>*/  /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
                    (Stdlib[29], i$1)
                   - 45
                   | 0;
@@ -14458,7 +14804,7 @@
                      (Stdlib[29], i$1 + 1 | 0))){
                  /*<<camlinternalFormat.ml:338:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
-                 /*<<camlinternalFormat.ml:338:8>>*/ var i$5 = i$1 + 1 | 0;
+                var i$5 =  /*<<camlinternalFormat.ml:338:8>>*/ i$1 + 1 | 0;
                 i = i$5;
                 continue;
                }
@@ -14468,7 +14814,7 @@
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
                     (Stdlib[29], i$1 + 1 | 0))){
                 var
-                  /*<<camlinternalFormat.ml:345:8>>*/ j = i$1 + 2 | 0,
+                 j =  /*<<camlinternalFormat.ml:345:8>>*/ i$1 + 2 | 0,
                  i$3 = i$1 - 1 | 0,
                  j$0 = j;
                  /*<<camlinternalFormat.ml:351:4>>*/ for(;;){
@@ -14480,7 +14826,7 @@
                       /*<<camlinternalFormat.ml:351:42>>*/ caml_call1
                       (Stdlib[29], j$0)))
                   break;
-                  /*<<camlinternalFormat.ml:357:6>>*/ var j$1 = j$0 + 1 | 0;
+                 var j$1 =  /*<<camlinternalFormat.ml:357:6>>*/ j$0 + 1 | 0;
                  j$0 = j$1;
                 }
                  /*<<camlinternalFormat.ml:352:6>>*/ print_char(buf, i$3);
@@ -14488,26 +14834,26 @@
                  /*<<camlinternalFormat.ml:354:6>>*/ print_char
                  (buf, j$0 - 1 | 0);
                 if(j$0 >= 256) break b;
-                 /*<<camlinternalFormat.ml:355:22>>*/ var i$7 = j$0 + 1 | 0;
+                var i$7 =  /*<<camlinternalFormat.ml:355:22>>*/ j$0 + 1 | 0;
                 i = i$7;
                }
                else{
                  /*<<camlinternalFormat.ml:341:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
                  /*<<camlinternalFormat.ml:342:8>>*/ print_char(buf, i$1);
-                 /*<<camlinternalFormat.ml:342:8>>*/ var i$4 = i$1 + 2 | 0;
+                var i$4 =  /*<<camlinternalFormat.ml:342:8>>*/ i$1 + 2 | 0;
                 i = i$4;
                }
               }
               else{
                 /*<<camlinternalFormat.ml:347:6>>*/ print_char
                 (buf, i$1 - 1 | 0);
-                /*<<camlinternalFormat.ml:347:6>>*/ var i$6 = i$1 + 1 | 0;
+               var i$6 =  /*<<camlinternalFormat.ml:347:6>>*/ i$1 + 1 | 0;
                i = i$6;
               }
              }
              else{
-               /*<<camlinternalFormat.ml:325:11>>*/ var i$0 = i + 1 | 0;
+              var i$0 =  /*<<camlinternalFormat.ml:325:11>>*/ i + 1 | 0;
               i = i$0;
              }
             }
@@ -14564,8 +14910,8 @@
          var
           rest$23 = fmt$0[3],
           arity = fmt$0[1],
-           /*<<camlinternalFormat.ml:578:20>>*/ _cH_ =
-            int_of_custom_arity(arity),
+          _cH_ =
+             /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity(arity),
           _cG_ = 1;
          if(_cH_ >= 1){
           var i$8 = _cG_;
@@ -14574,7 +14920,7 @@
             /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
             (buf, ign_flag$0);
             /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char(buf, 63);
-            /*<<camlinternalFormat.ml:580:8>>*/ var _cI_ = i$8 + 1 | 0;
+           var _cI_ =  /*<<camlinternalFormat.ml:580:8>>*/ i$8 + 1 | 0;
            if(_cH_ === i$8) break;
            i$8 = _cI_;
           }
@@ -14649,7 +14995,7 @@
       case 0:
        var
         rest = param[1],
-         /*<<camlinternalFormat.ml:696:25>>*/ match = fmtty_rel_det(rest),
+        match =  /*<<camlinternalFormat.ml:696:25>>*/ fmtty_rel_det(rest),
         de = match[4],
         af = match[2];
         /*<<camlinternalFormat.ml:697:4>>*/ return [0,
@@ -14662,7 +15008,7 @@
       case 1:
        var
         rest$0 = param[1],
-         /*<<camlinternalFormat.ml:701:25>>*/ match$0 = fmtty_rel_det(rest$0),
+        match$0 =  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det(rest$0),
         de$0 = match$0[4],
         af$0 = match$0[2];
         /*<<camlinternalFormat.ml:702:4>>*/ return [0,
@@ -14675,7 +15021,7 @@
       case 2:
        var
         rest$1 = param[1],
-         /*<<camlinternalFormat.ml:706:25>>*/ match$1 = fmtty_rel_det(rest$1),
+        match$1 =  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det(rest$1),
         de$1 = match$1[4],
         af$1 = match$1[2];
         /*<<camlinternalFormat.ml:707:4>>*/ return [0,
@@ -14688,7 +15034,7 @@
       case 3:
        var
         rest$2 = param[1],
-         /*<<camlinternalFormat.ml:711:25>>*/ match$2 = fmtty_rel_det(rest$2),
+        match$2 =  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det(rest$2),
         de$2 = match$2[4],
         af$2 = match$2[2];
         /*<<camlinternalFormat.ml:712:4>>*/ return [0,
@@ -14701,7 +15047,7 @@
       case 4:
        var
         rest$3 = param[1],
-         /*<<camlinternalFormat.ml:721:25>>*/ match$3 = fmtty_rel_det(rest$3),
+        match$3 =  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det(rest$3),
         de$3 = match$3[4],
         af$3 = match$3[2];
         /*<<camlinternalFormat.ml:722:4>>*/ return [0,
@@ -14714,7 +15060,7 @@
       case 5:
        var
         rest$4 = param[1],
-         /*<<camlinternalFormat.ml:716:25>>*/ match$4 = fmtty_rel_det(rest$4),
+        match$4 =  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det(rest$4),
         de$4 = match$4[4],
         af$4 = match$4[2];
         /*<<camlinternalFormat.ml:717:4>>*/ return [0,
@@ -14727,7 +15073,7 @@
       case 6:
        var
         rest$5 = param[1],
-         /*<<camlinternalFormat.ml:726:25>>*/ match$5 = fmtty_rel_det(rest$5),
+        match$5 =  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det(rest$5),
         de$5 = match$5[4],
         af$5 = match$5[2];
         /*<<camlinternalFormat.ml:727:4>>*/ return [0,
@@ -14740,7 +15086,7 @@
       case 7:
        var
         rest$6 = param[1],
-         /*<<camlinternalFormat.ml:731:25>>*/ match$6 = fmtty_rel_det(rest$6),
+        match$6 =  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det(rest$6),
         de$6 = match$6[4],
         af$6 = match$6[2];
         /*<<camlinternalFormat.ml:732:4>>*/ return [0,
@@ -14753,7 +15099,7 @@
       case 8:
        var
         rest$7 = param[2],
-         /*<<camlinternalFormat.ml:764:25>>*/ match$7 = fmtty_rel_det(rest$7),
+        match$7 =  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det(rest$7),
         de$7 = match$7[4],
         af$7 = match$7[2];
         /*<<camlinternalFormat.ml:765:4>>*/ return [0,
@@ -14768,11 +15114,11 @@
         rest$8 = param[3],
         ty2 = param[2],
         ty1 = param[1],
-         /*<<camlinternalFormat.ml:769:25>>*/ match$8 = fmtty_rel_det(rest$8),
+        match$8 =  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det(rest$8),
         de$8 = match$8[4],
         af$8 = match$8[2],
-         /*<<camlinternalFormat.ml:770:13>>*/ ty = trans(symm(ty1), ty2),
-         /*<<camlinternalFormat.ml:771:25>>*/ match$9 = fmtty_rel_det(ty),
+        ty =  /*<<camlinternalFormat.ml:770:13>>*/ trans(symm(ty1), ty2),
+        match$9 =  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det(ty),
         jd = match$9[4],
         ga = match$9[2];
         /*<<camlinternalFormat.ml:772:4>>*/ return [0,
@@ -14789,7 +15135,7 @@
       case 10:
        var
         rest$9 = param[1],
-         /*<<camlinternalFormat.ml:742:25>>*/ match$10 = fmtty_rel_det(rest$9),
+        match$10 =  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det(rest$9),
         de$9 = match$10[4],
         af$9 = match$10[2];
         /*<<camlinternalFormat.ml:743:4>>*/ return [0,
@@ -14802,8 +15148,8 @@
       case 11:
        var
         rest$10 = param[1],
-         /*<<camlinternalFormat.ml:737:25>>*/ match$11 =
-          fmtty_rel_det(rest$10),
+        match$11 =
+           /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det(rest$10),
         de$10 = match$11[4],
         af$10 = match$11[2];
         /*<<camlinternalFormat.ml:738:4>>*/ return [0,
@@ -14816,8 +15162,8 @@
       case 12:
        var
         rest$11 = param[1],
-         /*<<camlinternalFormat.ml:747:25>>*/ match$12 =
-          fmtty_rel_det(rest$11),
+        match$12 =
+           /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det(rest$11),
         de$11 = match$12[4],
         af$11 = match$12[2];
         /*<<camlinternalFormat.ml:748:4>>*/ return [0,
@@ -14830,8 +15176,8 @@
       case 13:
        var
         rest$12 = param[1],
-         /*<<camlinternalFormat.ml:752:25>>*/ match$13 =
-          fmtty_rel_det(rest$12),
+        match$13 =
+           /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det(rest$12),
         de$12 = match$13[4],
         af$12 = match$13[2];
         /*<<camlinternalFormat.ml:753:4>>*/ return [0,
@@ -14846,8 +15192,8 @@
       default:
        var
         rest$13 = param[1],
-         /*<<camlinternalFormat.ml:758:25>>*/ match$14 =
-          fmtty_rel_det(rest$13),
+        match$14 =
+           /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det(rest$13),
         de$13 = match$14[4],
         af$13 = match$14[2];
         /*<<camlinternalFormat.ml:759:4>>*/ return [0,
@@ -15078,8 +15424,9 @@
                    var
                     rest2$7 = ty2[2],
                     ty2$0 = ty2[1],
-                     /*<<camlinternalFormat.ml:835:34>>*/ _cE_ =
-                      trans(rest1$7, rest2$7);
+                    _cE_ =
+                       /*<<camlinternalFormat.ml:835:34>>*/ trans
+                       (rest1$7, rest2$7);
                     /*<<camlinternalFormat.ml:835:4>>*/ return [8,
                            trans(ty1$0, ty2$0),
                            _cE_];
@@ -15107,10 +15454,11 @@
                     rest2$8 = ty2[3],
                     ty22 = ty2[2],
                     ty21 = ty2[1],
-                     /*<<camlinternalFormat.ml:841:13>>*/ ty =
-                      trans(symm(ty12), ty21),
-                     /*<<camlinternalFormat.ml:842:23>>*/ match =
-                      fmtty_rel_det(ty),
+                    ty =
+                       /*<<camlinternalFormat.ml:841:13>>*/ trans
+                       (symm(ty12), ty21),
+                    match =
+                       /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det(ty),
                     f4 = match[4],
                     f2 = match[2];
                     /*<<camlinternalFormat.ml:843:15>>*/ f2(0);
@@ -15276,9 +15624,10 @@
          rest$3 = fmtty$0[4],
          prec = fmtty$0[3],
          pad$1 = fmtty$0[2],
-          /*<<camlinternalFormat.ml:870:18>>*/ ty_rest = fmtty_of_fmt(rest$3),
-          /*<<camlinternalFormat.ml:871:18>>*/ prec_ty =
-           fmtty_of_precision_fmtty(prec, [2, ty_rest]);
+         ty_rest =  /*<<camlinternalFormat.ml:870:18>>*/ fmtty_of_fmt(rest$3),
+         prec_ty =
+            /*<<camlinternalFormat.ml:871:18>>*/ fmtty_of_precision_fmtty
+            (prec, [2, ty_rest]);
          /*<<camlinternalFormat.ml:872:4>>*/ return fmtty_of_padding_fmtty
                 (pad$1, prec_ty);
        case 5:
@@ -15286,10 +15635,11 @@
          rest$4 = fmtty$0[4],
          prec$0 = fmtty$0[3],
          pad$2 = fmtty$0[2],
-          /*<<camlinternalFormat.ml:874:18>>*/ ty_rest$0 =
-           fmtty_of_fmt(rest$4),
-          /*<<camlinternalFormat.ml:875:18>>*/ prec_ty$0 =
-           fmtty_of_precision_fmtty(prec$0, [3, ty_rest$0]);
+         ty_rest$0 =
+            /*<<camlinternalFormat.ml:874:18>>*/ fmtty_of_fmt(rest$4),
+         prec_ty$0 =
+            /*<<camlinternalFormat.ml:875:18>>*/ fmtty_of_precision_fmtty
+            (prec$0, [3, ty_rest$0]);
          /*<<camlinternalFormat.ml:876:4>>*/ return fmtty_of_padding_fmtty
                 (pad$2, prec_ty$0);
        case 6:
@@ -15297,10 +15647,11 @@
          rest$5 = fmtty$0[4],
          prec$1 = fmtty$0[3],
          pad$3 = fmtty$0[2],
-          /*<<camlinternalFormat.ml:878:18>>*/ ty_rest$1 =
-           fmtty_of_fmt(rest$5),
-          /*<<camlinternalFormat.ml:879:18>>*/ prec_ty$1 =
-           fmtty_of_precision_fmtty(prec$1, [4, ty_rest$1]);
+         ty_rest$1 =
+            /*<<camlinternalFormat.ml:878:18>>*/ fmtty_of_fmt(rest$5),
+         prec_ty$1 =
+            /*<<camlinternalFormat.ml:879:18>>*/ fmtty_of_precision_fmtty
+            (prec$1, [4, ty_rest$1]);
          /*<<camlinternalFormat.ml:880:4>>*/ return fmtty_of_padding_fmtty
                 (pad$3, prec_ty$1);
        case 7:
@@ -15308,10 +15659,11 @@
          rest$6 = fmtty$0[4],
          prec$2 = fmtty$0[3],
          pad$4 = fmtty$0[2],
-          /*<<camlinternalFormat.ml:882:18>>*/ ty_rest$2 =
-           fmtty_of_fmt(rest$6),
-          /*<<camlinternalFormat.ml:883:18>>*/ prec_ty$2 =
-           fmtty_of_precision_fmtty(prec$2, [5, ty_rest$2]);
+         ty_rest$2 =
+            /*<<camlinternalFormat.ml:882:18>>*/ fmtty_of_fmt(rest$6),
+         prec_ty$2 =
+            /*<<camlinternalFormat.ml:883:18>>*/ fmtty_of_precision_fmtty
+            (prec$2, [5, ty_rest$2]);
          /*<<camlinternalFormat.ml:884:4>>*/ return fmtty_of_padding_fmtty
                 (pad$4, prec_ty$2);
        case 8:
@@ -15319,10 +15671,11 @@
          rest$7 = fmtty$0[4],
          prec$3 = fmtty$0[3],
          pad$5 = fmtty$0[2],
-          /*<<camlinternalFormat.ml:886:18>>*/ ty_rest$3 =
-           fmtty_of_fmt(rest$7),
-          /*<<camlinternalFormat.ml:887:18>>*/ prec_ty$3 =
-           fmtty_of_precision_fmtty(prec$3, [6, ty_rest$3]);
+         ty_rest$3 =
+            /*<<camlinternalFormat.ml:886:18>>*/ fmtty_of_fmt(rest$7),
+         prec_ty$3 =
+            /*<<camlinternalFormat.ml:887:18>>*/ fmtty_of_precision_fmtty
+            (prec$3, [6, ty_rest$3]);
          /*<<camlinternalFormat.ml:888:4>>*/ return fmtty_of_padding_fmtty
                 (pad$5, prec_ty$3);
        case 9:
@@ -15360,7 +15713,7 @@
         var
          rest$13 = fmtty$0[2],
          formatting_gen = fmtty$0[1],
-          /*<<camlinternalFormat.ml:914:54>>*/ _cB_ = fmtty_of_fmt(rest$13);
+         _cB_ =  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt(rest$13);
         if(0 === formatting_gen[0])
          var fmt = formatting_gen[1][1], _cC_ = fmtty_of_fmt(fmt);
         else
@@ -15419,8 +15772,8 @@
            case 9:
             var
              fmtty$6 = ign[2],
-              /*<<camlinternalFormat.ml:943:58>>*/ _cD_ =
-               fmtty_of_fmt(fmtty$5);
+             _cD_ =
+                /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt(fmtty$5);
              /*<<camlinternalFormat.ml:943:58>>*/ return  /*<<camlinternalFormat.ml:943:58>>*/ caml_call2
                     (CamlinternalFormatBasics[1], fmtty$6, _cD_);
            case 10:
@@ -15453,8 +15806,10 @@
             : fmtty;
     /*<<camlinternalFormat.ml:963:37>>*/ }
    var
-     /*<<camlinternalFormat.ml:969:0>>*/ Type_mismatch =
-      [248, "CamlinternalFormat.Type_mismatch", runtime.caml_fresh_oo_id(0)],
+    Type_mismatch =
+       /*<<camlinternalFormat.ml:969:0>>*/ [248,
+       "CamlinternalFormat.Type_mismatch",
+       runtime.caml_fresh_oo_id(0)],
     cst_d = "%d",
     cst_d$0 = "%+d",
     cst_d$1 = "% d",
@@ -15706,8 +16061,8 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:981:28>>*/ }
    function type_padprec(pad, prec, fmtty){
-     /*<<camlinternalFormat.ml:989:34>>*/ var
-     match = type_padding(pad, fmtty);
+    var
+     match =  /*<<camlinternalFormat.ml:989:34>>*/ type_padding(pad, fmtty);
     if(typeof prec !== "number"){
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
       /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1];
@@ -15725,8 +16080,8 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:996:54>>*/ }
    function type_format(fmt, fmtty){
-     /*<<camlinternalFormat.ml:1008:25>>*/ var
-     _cA_ = type_format_gen(fmt, fmtty);
+    var
+     _cA_ =  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen(fmt, fmtty);
     if(typeof _cA_[2] !== "number")
       /*<<camlinternalFormat.ml:1010:9>>*/ throw  /*<<camlinternalFormat.ml:1010:9>>*/ caml_maybe_attach_backtrace
             (Type_mismatch, 1);
@@ -15742,8 +16097,9 @@
         var
          fmtty_rest = fmtty0[1],
          fmt_rest = fmt[1],
-          /*<<camlinternalFormat.ml:1020:39>>*/ match =
-           type_format_gen(fmt_rest, fmtty_rest),
+         match =
+            /*<<camlinternalFormat.ml:1020:39>>*/ type_format_gen
+            (fmt_rest, fmtty_rest),
          fmtty = match[2],
          fmt$0 = match[1];
          /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty];
@@ -15754,8 +16110,9 @@
         var
          fmtty_rest$0 = fmtty0[1],
          fmt_rest$0 = fmt[1],
-          /*<<camlinternalFormat.ml:1023:39>>*/ match$0 =
-           type_format_gen(fmt_rest$0, fmtty_rest$0),
+         match$0 =
+            /*<<camlinternalFormat.ml:1023:39>>*/ type_format_gen
+            (fmt_rest$0, fmtty_rest$0),
          fmtty$0 = match$0[2],
          fmt$1 = match$0[1];
          /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0];
@@ -15765,15 +16122,16 @@
        var
         fmt_rest$1 = fmt[2],
         pad = fmt[1],
-         /*<<camlinternalFormat.ml:1026:10>>*/ match$1 =
-          type_padding(pad, fmtty0),
+        match$1 =
+           /*<<camlinternalFormat.ml:1026:10>>*/ type_padding(pad, fmtty0),
         pad$0 = match$1[1],
         match$2 = match$1[2];
        if(typeof match$2 !== "number" && 1 === match$2[0]){
         var
          fmtty_rest$1 = match$2[1],
-          /*<<camlinternalFormat.ml:1028:41>>*/ match$3 =
-           type_format_gen(fmt_rest$1, fmtty_rest$1),
+         match$3 =
+            /*<<camlinternalFormat.ml:1028:41>>*/ type_format_gen
+            (fmt_rest$1, fmtty_rest$1),
          fmtty$1 = match$3[2],
          fmt$2 = match$3[1];
          /*<<camlinternalFormat.ml:1029:6>>*/ return [0,
@@ -15786,15 +16144,16 @@
        var
         fmt_rest$2 = fmt[2],
         pad$1 = fmt[1],
-         /*<<camlinternalFormat.ml:1033:10>>*/ match$4 =
-          type_padding(pad$1, fmtty0),
+        match$4 =
+           /*<<camlinternalFormat.ml:1033:10>>*/ type_padding(pad$1, fmtty0),
         pad$2 = match$4[1],
         match$5 = match$4[2];
        if(typeof match$5 !== "number" && 1 === match$5[0]){
         var
          fmtty_rest$2 = match$5[1],
-          /*<<camlinternalFormat.ml:1035:41>>*/ match$6 =
-           type_format_gen(fmt_rest$2, fmtty_rest$2),
+         match$6 =
+            /*<<camlinternalFormat.ml:1035:41>>*/ type_format_gen
+            (fmt_rest$2, fmtty_rest$2),
          fmtty$2 = match$6[2],
          fmt$3 = match$6[1];
          /*<<camlinternalFormat.ml:1036:6>>*/ return [0,
@@ -15809,16 +16168,18 @@
         prec = fmt[3],
         pad$3 = fmt[2],
         iconv = fmt[1],
-         /*<<camlinternalFormat.ml:1040:10>>*/ match$7 =
-          type_padprec(pad$3, prec, fmtty0),
+        match$7 =
+           /*<<camlinternalFormat.ml:1040:10>>*/ type_padprec
+           (pad$3, prec, fmtty0),
         pad$4 = match$7[1],
         match$8 = match$7[3];
        if(typeof match$8 !== "number" && 2 === match$8[0]){
         var
          fmtty_rest$3 = match$8[1],
          prec$0 = match$7[2],
-          /*<<camlinternalFormat.ml:1042:41>>*/ match$9 =
-           type_format_gen(fmt_rest$3, fmtty_rest$3),
+         match$9 =
+            /*<<camlinternalFormat.ml:1042:41>>*/ type_format_gen
+            (fmt_rest$3, fmtty_rest$3),
          fmtty$3 = match$9[2],
          fmt$4 = match$9[1];
          /*<<camlinternalFormat.ml:1043:6>>*/ return [0,
@@ -15833,16 +16194,18 @@
         prec$1 = fmt[3],
         pad$5 = fmt[2],
         iconv$0 = fmt[1],
-         /*<<camlinternalFormat.ml:1047:10>>*/ match$10 =
-          type_padprec(pad$5, prec$1, fmtty0),
+        match$10 =
+           /*<<camlinternalFormat.ml:1047:10>>*/ type_padprec
+           (pad$5, prec$1, fmtty0),
         pad$6 = match$10[1],
         match$11 = match$10[3];
        if(typeof match$11 !== "number" && 3 === match$11[0]){
         var
          fmtty_rest$4 = match$11[1],
          prec$2 = match$10[2],
-          /*<<camlinternalFormat.ml:1049:41>>*/ match$12 =
-           type_format_gen(fmt_rest$4, fmtty_rest$4),
+         match$12 =
+            /*<<camlinternalFormat.ml:1049:41>>*/ type_format_gen
+            (fmt_rest$4, fmtty_rest$4),
          fmtty$4 = match$12[2],
          fmt$5 = match$12[1];
          /*<<camlinternalFormat.ml:1050:6>>*/ return [0,
@@ -15857,16 +16220,18 @@
         prec$3 = fmt[3],
         pad$7 = fmt[2],
         iconv$1 = fmt[1],
-         /*<<camlinternalFormat.ml:1054:10>>*/ match$13 =
-          type_padprec(pad$7, prec$3, fmtty0),
+        match$13 =
+           /*<<camlinternalFormat.ml:1054:10>>*/ type_padprec
+           (pad$7, prec$3, fmtty0),
         pad$8 = match$13[1],
         match$14 = match$13[3];
        if(typeof match$14 !== "number" && 4 === match$14[0]){
         var
          fmtty_rest$5 = match$14[1],
          prec$4 = match$13[2],
-          /*<<camlinternalFormat.ml:1056:41>>*/ match$15 =
-           type_format_gen(fmt_rest$5, fmtty_rest$5),
+         match$15 =
+            /*<<camlinternalFormat.ml:1056:41>>*/ type_format_gen
+            (fmt_rest$5, fmtty_rest$5),
          fmtty$5 = match$15[2],
          fmt$6 = match$15[1];
          /*<<camlinternalFormat.ml:1057:6>>*/ return [0,
@@ -15881,16 +16246,18 @@
         prec$5 = fmt[3],
         pad$9 = fmt[2],
         iconv$2 = fmt[1],
-         /*<<camlinternalFormat.ml:1061:10>>*/ match$16 =
-          type_padprec(pad$9, prec$5, fmtty0),
+        match$16 =
+           /*<<camlinternalFormat.ml:1061:10>>*/ type_padprec
+           (pad$9, prec$5, fmtty0),
         pad$10 = match$16[1],
         match$17 = match$16[3];
        if(typeof match$17 !== "number" && 5 === match$17[0]){
         var
          fmtty_rest$6 = match$17[1],
          prec$6 = match$16[2],
-          /*<<camlinternalFormat.ml:1063:41>>*/ match$18 =
-           type_format_gen(fmt_rest$6, fmtty_rest$6),
+         match$18 =
+            /*<<camlinternalFormat.ml:1063:41>>*/ type_format_gen
+            (fmt_rest$6, fmtty_rest$6),
          fmtty$6 = match$18[2],
          fmt$7 = match$18[1];
          /*<<camlinternalFormat.ml:1064:6>>*/ return [0,
@@ -15905,16 +16272,18 @@
         prec$7 = fmt[3],
         pad$11 = fmt[2],
         fconv = fmt[1],
-         /*<<camlinternalFormat.ml:1068:10>>*/ match$19 =
-          type_padprec(pad$11, prec$7, fmtty0),
+        match$19 =
+           /*<<camlinternalFormat.ml:1068:10>>*/ type_padprec
+           (pad$11, prec$7, fmtty0),
         pad$12 = match$19[1],
         match$20 = match$19[3];
        if(typeof match$20 !== "number" && 6 === match$20[0]){
         var
          fmtty_rest$7 = match$20[1],
          prec$8 = match$19[2],
-          /*<<camlinternalFormat.ml:1070:41>>*/ match$21 =
-           type_format_gen(fmt_rest$7, fmtty_rest$7),
+         match$21 =
+            /*<<camlinternalFormat.ml:1070:41>>*/ type_format_gen
+            (fmt_rest$7, fmtty_rest$7),
          fmtty$7 = match$21[2],
          fmt$8 = match$21[1];
          /*<<camlinternalFormat.ml:1071:6>>*/ return [0,
@@ -15927,15 +16296,16 @@
        var
         fmt_rest$8 = fmt[2],
         pad$13 = fmt[1],
-         /*<<camlinternalFormat.ml:1075:10>>*/ match$22 =
-          type_padding(pad$13, fmtty0),
+        match$22 =
+           /*<<camlinternalFormat.ml:1075:10>>*/ type_padding(pad$13, fmtty0),
         pad$14 = match$22[1],
         match$23 = match$22[2];
        if(typeof match$23 !== "number" && 7 === match$23[0]){
         var
          fmtty_rest$8 = match$23[1],
-          /*<<camlinternalFormat.ml:1077:41>>*/ match$24 =
-           type_format_gen(fmt_rest$8, fmtty_rest$8),
+         match$24 =
+            /*<<camlinternalFormat.ml:1077:41>>*/ type_format_gen
+            (fmt_rest$8, fmtty_rest$8),
          fmtty$8 = match$24[2],
          fmt$9 = match$24[1];
          /*<<camlinternalFormat.ml:1078:6>>*/ return [0,
@@ -15947,8 +16317,9 @@
       case 10:
        var
         fmt_rest$9 = fmt[1],
-         /*<<camlinternalFormat.ml:1082:39>>*/ match$25 =
-          type_format_gen(fmt_rest$9, fmtty0),
+        match$25 =
+           /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
+           (fmt_rest$9, fmtty0),
         fmtty$9 = match$25[2],
         fmt$10 = match$25[1];
         /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9];
@@ -15956,8 +16327,9 @@
        var
         fmt_rest$10 = fmt[2],
         str = fmt[1],
-         /*<<camlinternalFormat.ml:1086:39>>*/ match$26 =
-          type_format_gen(fmt_rest$10, fmtty0),
+        match$26 =
+           /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
+           (fmt_rest$10, fmtty0),
         fmtty$10 = match$26[2],
         fmt$11 = match$26[1];
         /*<<camlinternalFormat.ml:1087:4>>*/ return [0,
@@ -15967,8 +16339,9 @@
        var
         fmt_rest$11 = fmt[2],
         chr = fmt[1],
-         /*<<camlinternalFormat.ml:1089:39>>*/ match$27 =
-          type_format_gen(fmt_rest$11, fmtty0),
+        match$27 =
+           /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
+           (fmt_rest$11, fmtty0),
         fmtty$11 = match$27[2],
         fmt$12 = match$27[1];
         /*<<camlinternalFormat.ml:1090:4>>*/ return [0,
@@ -15988,8 +16361,9 @@
           /*<<camlinternalFormat.ml:1094:56>>*/ throw  /*<<camlinternalFormat.ml:1094:56>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
-          /*<<camlinternalFormat.ml:1095:39>>*/ match$28 =
-           type_format_gen(fmt_rest$12, fmtty_rest$9),
+         match$28 =
+            /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
+            (fmt_rest$12, fmtty_rest$9),
          fmtty$12 = match$28[2],
          fmt$13 = match$28[1];
          /*<<camlinternalFormat.ml:1096:4>>*/ return [0,
@@ -16005,8 +16379,8 @@
          fmt_rest$13 = fmt[3],
          sub_fmtty$1 = fmt[2],
          pad_opt$0 = fmt[1],
-          /*<<camlinternalFormat.ml:1099:42>>*/ _cy_ =
-           [0,
+         _cy_ =
+            /*<<camlinternalFormat.ml:1099:42>>*/ [0,
              /*<<camlinternalFormat.ml:1099:52>>*/ caml_call1
              (CamlinternalFormatBasics[2], sub_fmtty1)];
          /*<<camlinternalFormat.ml:1099:7>>*/ if
@@ -16018,8 +16392,8 @@
           /*<<camlinternalFormat.ml:1100:6>>*/ throw  /*<<camlinternalFormat.ml:1100:6>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
-          /*<<camlinternalFormat.ml:1102:6>>*/ match$29 =
-           type_format_gen
+         match$29 =
+            /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
             (fmt_rest$13,
               /*<<camlinternalFormat.ml:1102:31>>*/ caml_call1
               (CamlinternalFormatBasics[2], fmtty_rest$10)),
@@ -16035,8 +16409,9 @@
         var
          fmtty_rest$11 = fmtty0[1],
          fmt_rest$14 = fmt[1],
-          /*<<camlinternalFormat.ml:1107:39>>*/ match$30 =
-           type_format_gen(fmt_rest$14, fmtty_rest$11),
+         match$30 =
+            /*<<camlinternalFormat.ml:1107:39>>*/ type_format_gen
+            (fmt_rest$14, fmtty_rest$11),
          fmtty$14 = match$30[2],
          fmt$15 = match$30[1];
          /*<<camlinternalFormat.ml:1108:4>>*/ return [0,
@@ -16049,8 +16424,9 @@
         var
          fmtty_rest$12 = fmtty0[1],
          fmt_rest$15 = fmt[1],
-          /*<<camlinternalFormat.ml:1110:39>>*/ match$31 =
-           type_format_gen(fmt_rest$15, fmtty_rest$12),
+         match$31 =
+            /*<<camlinternalFormat.ml:1110:39>>*/ type_format_gen
+            (fmt_rest$15, fmtty_rest$12),
          fmtty$15 = match$31[2],
          fmt$16 = match$31[1];
          /*<<camlinternalFormat.ml:1111:4>>*/ return [0,
@@ -16062,8 +16438,9 @@
        var
         fmt_rest$16 = fmt[2],
         formatting_lit = fmt[1],
-         /*<<camlinternalFormat.ml:1115:39>>*/ match$32 =
-          type_format_gen(fmt_rest$16, fmtty0),
+        match$32 =
+           /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
+           (fmt_rest$16, fmtty0),
         fmtty$16 = match$32[2],
         fmt$17 = match$32[1];
         /*<<camlinternalFormat.ml:1116:4>>*/ return [0,
@@ -16076,12 +16453,14 @@
          match$36 = formatting_gen[1],
          str$0 = match$36[2],
          fmt1 = match$36[1],
-          /*<<camlinternalFormat.ml:1144:39>>*/ match$37 =
-           type_format_gen(fmt1, fmtty0),
+         match$37 =
+            /*<<camlinternalFormat.ml:1144:39>>*/ type_format_gen
+            (fmt1, fmtty0),
          fmtty2 = match$37[2],
          fmt2 = match$37[1],
-          /*<<camlinternalFormat.ml:1145:39>>*/ match$38 =
-           type_format_gen(fmt_rest$17, fmtty2),
+         match$38 =
+            /*<<camlinternalFormat.ml:1145:39>>*/ type_format_gen
+            (fmt_rest$17, fmtty2),
          fmtty3 = match$38[2],
          fmt3 = match$38[1];
          /*<<camlinternalFormat.ml:1146:4>>*/ return [0,
@@ -16092,12 +16471,14 @@
         match$39 = formatting_gen[1],
         str$1 = match$39[2],
         fmt1$0 = match$39[1],
-         /*<<camlinternalFormat.ml:1148:39>>*/ match$40 =
-          type_format_gen(fmt1$0, fmtty0),
+        match$40 =
+           /*<<camlinternalFormat.ml:1148:39>>*/ type_format_gen
+           (fmt1$0, fmtty0),
         fmtty2$0 = match$40[2],
         fmt2$0 = match$40[1],
-         /*<<camlinternalFormat.ml:1149:39>>*/ match$41 =
-          type_format_gen(fmt_rest$17, fmtty2$0),
+        match$41 =
+           /*<<camlinternalFormat.ml:1149:39>>*/ type_format_gen
+           (fmt_rest$17, fmtty2$0),
         fmtty3$0 = match$41[2],
         fmt3$0 = match$41[1];
         /*<<camlinternalFormat.ml:1150:4>>*/ return [0,
@@ -16108,8 +16489,9 @@
         var
          fmtty_rest$13 = fmtty0[1],
          fmt_rest$18 = fmt[1],
-          /*<<camlinternalFormat.ml:1122:39>>*/ match$33 =
-           type_format_gen(fmt_rest$18, fmtty_rest$13),
+         match$33 =
+            /*<<camlinternalFormat.ml:1122:39>>*/ type_format_gen
+            (fmt_rest$18, fmtty_rest$13),
          fmtty$17 = match$33[2],
          fmt$18 = match$33[1];
          /*<<camlinternalFormat.ml:1123:4>>*/ return [0,
@@ -16124,8 +16506,9 @@
          fmt_rest$19 = fmt[3],
          char_set = fmt[2],
          width_opt = fmt[1],
-          /*<<camlinternalFormat.ml:1125:39>>*/ match$34 =
-           type_format_gen(fmt_rest$19, fmtty_rest$14),
+         match$34 =
+            /*<<camlinternalFormat.ml:1125:39>>*/ type_format_gen
+            (fmt_rest$19, fmtty_rest$14),
          fmtty$18 = match$34[2],
          fmt$19 = match$34[1];
          /*<<camlinternalFormat.ml:1126:4>>*/ return [0,
@@ -16139,8 +16522,9 @@
          fmtty_rest$15 = fmtty0[1],
          fmt_rest$20 = fmt[2],
          counter = fmt[1],
-          /*<<camlinternalFormat.ml:1128:39>>*/ match$35 =
-           type_format_gen(fmt_rest$20, fmtty_rest$15),
+         match$35 =
+            /*<<camlinternalFormat.ml:1128:39>>*/ type_format_gen
+            (fmt_rest$20, fmtty_rest$15),
          fmtty$19 = match$35[2],
          fmt$20 = match$35[1];
          /*<<camlinternalFormat.ml:1129:4>>*/ return [0,
@@ -16184,8 +16568,9 @@
            var
             sub_fmtty$3 = ign[2],
             pad_opt$2 = ign[1],
-             /*<<camlinternalFormat.ml:1176:6>>*/ _cz_ =
-              type_ignored_format_substituti(sub_fmtty$3, rest, fmtty0),
+            _cz_ =
+               /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
+               (sub_fmtty$3, rest, fmtty0),
             match$43 = _cz_[2],
             fmtty$21 = match$43[2],
             fmt$22 = match$43[1],
@@ -16211,8 +16596,9 @@
           if(typeof fmtty0 !== "number" && 14 === fmtty0[0]){
            var
             fmtty_rest$16 = fmtty0[1],
-             /*<<camlinternalFormat.ml:1183:41>>*/ match$42 =
-              type_format_gen(rest, fmtty_rest$16),
+            match$42 =
+               /*<<camlinternalFormat.ml:1183:41>>*/ type_format_gen
+               (rest, fmtty_rest$16),
             fmtty$20 = match$42[2],
             fmt$21 = match$42[1];
             /*<<camlinternalFormat.ml:1184:6>>*/ return [0,
@@ -16231,8 +16617,8 @@
     /*<<camlinternalFormat.ml:1135:28>>*/ }
    function type_ignored_param_one(ign, fmt, fmtty){
     var
-      /*<<camlinternalFormat.ml:1194:37>>*/ match =
-       type_format_gen(fmt, fmtty),
+     match =
+        /*<<camlinternalFormat.ml:1194:37>>*/ type_format_gen(fmt, fmtty),
      fmtty$0 = match[2],
      fmt$0 = match[1];
      /*<<camlinternalFormat.ml:1195:2>>*/ return [0,
@@ -16250,8 +16636,9 @@
         var
          fmtty_rest = fmtty[1],
          sub_fmtty_rest = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1205:6>>*/ match =
-           type_ignored_format_substituti(sub_fmtty_rest, fmt, fmtty_rest),
+         match =
+            /*<<camlinternalFormat.ml:1205:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest, fmt, fmtty_rest),
          fmt$0 = match[2],
          sub_fmtty_rest$0 = match[1];
          /*<<camlinternalFormat.ml:1206:4>>*/ return [0,
@@ -16264,8 +16651,9 @@
         var
          fmtty_rest$0 = fmtty[1],
          sub_fmtty_rest$1 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1209:6>>*/ match$0 =
-           type_ignored_format_substituti(sub_fmtty_rest$1, fmt, fmtty_rest$0),
+         match$0 =
+            /*<<camlinternalFormat.ml:1209:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$1, fmt, fmtty_rest$0),
          fmt$1 = match$0[2],
          sub_fmtty_rest$2 = match$0[1];
          /*<<camlinternalFormat.ml:1210:4>>*/ return [0,
@@ -16278,8 +16666,9 @@
         var
          fmtty_rest$1 = fmtty[1],
          sub_fmtty_rest$3 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1213:6>>*/ match$1 =
-           type_ignored_format_substituti(sub_fmtty_rest$3, fmt, fmtty_rest$1),
+         match$1 =
+            /*<<camlinternalFormat.ml:1213:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$3, fmt, fmtty_rest$1),
          fmt$2 = match$1[2],
          sub_fmtty_rest$4 = match$1[1];
          /*<<camlinternalFormat.ml:1214:4>>*/ return [0,
@@ -16292,8 +16681,9 @@
         var
          fmtty_rest$2 = fmtty[1],
          sub_fmtty_rest$5 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1217:6>>*/ match$2 =
-           type_ignored_format_substituti(sub_fmtty_rest$5, fmt, fmtty_rest$2),
+         match$2 =
+            /*<<camlinternalFormat.ml:1217:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$5, fmt, fmtty_rest$2),
          fmt$3 = match$2[2],
          sub_fmtty_rest$6 = match$2[1];
          /*<<camlinternalFormat.ml:1218:4>>*/ return [0,
@@ -16306,8 +16696,9 @@
         var
          fmtty_rest$3 = fmtty[1],
          sub_fmtty_rest$7 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1221:6>>*/ match$3 =
-           type_ignored_format_substituti(sub_fmtty_rest$7, fmt, fmtty_rest$3),
+         match$3 =
+            /*<<camlinternalFormat.ml:1221:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$7, fmt, fmtty_rest$3),
          fmt$4 = match$3[2],
          sub_fmtty_rest$8 = match$3[1];
          /*<<camlinternalFormat.ml:1222:4>>*/ return [0,
@@ -16320,8 +16711,9 @@
         var
          fmtty_rest$4 = fmtty[1],
          sub_fmtty_rest$9 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1225:6>>*/ match$4 =
-           type_ignored_format_substituti(sub_fmtty_rest$9, fmt, fmtty_rest$4),
+         match$4 =
+            /*<<camlinternalFormat.ml:1225:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$9, fmt, fmtty_rest$4),
          fmt$5 = match$4[2],
          sub_fmtty_rest$10 = match$4[1];
          /*<<camlinternalFormat.ml:1226:4>>*/ return [0,
@@ -16334,8 +16726,8 @@
         var
          fmtty_rest$5 = fmtty[1],
          sub_fmtty_rest$11 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1229:6>>*/ match$5 =
-           type_ignored_format_substituti
+         match$5 =
+            /*<<camlinternalFormat.ml:1229:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$11, fmt, fmtty_rest$5),
          fmt$6 = match$5[2],
          sub_fmtty_rest$12 = match$5[1];
@@ -16349,8 +16741,8 @@
         var
          fmtty_rest$6 = fmtty[1],
          sub_fmtty_rest$13 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1233:6>>*/ match$6 =
-           type_ignored_format_substituti
+         match$6 =
+            /*<<camlinternalFormat.ml:1233:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$13, fmt, fmtty_rest$6),
          fmt$7 = match$6[2],
          sub_fmtty_rest$14 = match$6[1];
@@ -16372,8 +16764,8 @@
           /*<<camlinternalFormat.ml:1254:58>>*/ throw  /*<<camlinternalFormat.ml:1254:58>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
-          /*<<camlinternalFormat.ml:1256:6>>*/ match$7 =
-           type_ignored_format_substituti
+         match$7 =
+            /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$15, fmt, fmtty_rest$7),
          fmt$8 = match$7[2],
          sub_fmtty_rest$16 = match$7[1];
@@ -16391,8 +16783,8 @@
          sub_fmtty_rest$17 = sub_fmtty[3],
          sub2_fmtty$2 = sub_fmtty[2],
          sub1_fmtty$0 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1261:43>>*/ _cw_ =
-           [0,
+         _cw_ =
+            /*<<camlinternalFormat.ml:1261:43>>*/ [0,
              /*<<camlinternalFormat.ml:1261:53>>*/ caml_call1
              (CamlinternalFormatBasics[2], sub1_fmtty)];
          /*<<camlinternalFormat.ml:1261:7>>*/ if
@@ -16403,9 +16795,9 @@
             _cw_))
           /*<<camlinternalFormat.ml:1262:9>>*/ throw  /*<<camlinternalFormat.ml:1262:9>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
-         /*<<camlinternalFormat.ml:1263:43>>*/ var
+        var
          _cx_ =
-           [0,
+            /*<<camlinternalFormat.ml:1263:43>>*/ [0,
              /*<<camlinternalFormat.ml:1263:53>>*/ caml_call1
              (CamlinternalFormatBasics[2], sub2_fmtty$1)];
          /*<<camlinternalFormat.ml:1263:7>>*/ if
@@ -16417,17 +16809,18 @@
           /*<<camlinternalFormat.ml:1264:9>>*/ throw  /*<<camlinternalFormat.ml:1264:9>>*/ caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
-          /*<<camlinternalFormat.ml:1265:21>>*/ sub_fmtty$0 =
-           trans(symm(sub1_fmtty), sub2_fmtty$1),
-          /*<<camlinternalFormat.ml:1266:23>>*/ match$8 =
-           fmtty_rel_det(sub_fmtty$0),
+         sub_fmtty$0 =
+            /*<<camlinternalFormat.ml:1265:21>>*/ trans
+            (symm(sub1_fmtty), sub2_fmtty$1),
+         match$8 =
+            /*<<camlinternalFormat.ml:1266:23>>*/ fmtty_rel_det(sub_fmtty$0),
          f4 = match$8[4],
          f2 = match$8[2];
          /*<<camlinternalFormat.ml:1267:15>>*/ f2(0);
          /*<<camlinternalFormat.ml:1268:15>>*/ f4(0);
         var
-          /*<<camlinternalFormat.ml:1270:6>>*/ match$9 =
-           type_ignored_format_substituti
+         match$9 =
+            /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
             ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
               (CamlinternalFormatBasics[2], sub_fmtty_rest$17),
              fmt,
@@ -16444,8 +16837,8 @@
         var
          fmtty_rest$9 = fmtty[1],
          sub_fmtty_rest$19 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1237:6>>*/ match$10 =
-           type_ignored_format_substituti
+         match$10 =
+            /*<<camlinternalFormat.ml:1237:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$19, fmt, fmtty_rest$9),
          fmt$10 = match$10[2],
          sub_fmtty_rest$20 = match$10[1];
@@ -16459,8 +16852,8 @@
         var
          fmtty_rest$10 = fmtty[1],
          sub_fmtty_rest$21 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1241:6>>*/ match$11 =
-           type_ignored_format_substituti
+         match$11 =
+            /*<<camlinternalFormat.ml:1241:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$21, fmt, fmtty_rest$10),
          fmt$11 = match$11[2],
          sub_fmtty_rest$22 = match$11[1];
@@ -16474,8 +16867,8 @@
         var
          fmtty_rest$11 = fmtty[1],
          sub_fmtty_rest$23 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1245:6>>*/ match$12 =
-           type_ignored_format_substituti
+         match$12 =
+            /*<<camlinternalFormat.ml:1245:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$23, fmt, fmtty_rest$11),
          fmt$12 = match$12[2],
          sub_fmtty_rest$24 = match$12[1];
@@ -16489,8 +16882,8 @@
         var
          fmtty_rest$12 = fmtty[1],
          sub_fmtty_rest$25 = sub_fmtty[1],
-          /*<<camlinternalFormat.ml:1249:6>>*/ match$13 =
-           type_ignored_format_substituti
+         match$13 =
+            /*<<camlinternalFormat.ml:1249:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$25, fmt, fmtty_rest$12),
          fmt$13 = match$13[2],
          sub_fmtty_rest$26 = match$13[1];
@@ -16504,7 +16897,7 @@
            (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
-     /*<<camlinternalFormat.ml:1312:29>>*/ var _cv_ = symm(fmtty);
+    var _cv_ =  /*<<camlinternalFormat.ml:1312:29>>*/ symm(fmtty);
      /*<<camlinternalFormat.ml:1312:18>>*/ return type_format
             (fmt,
               /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
@@ -16513,14 +16906,15 @@
    function fix_padding(padty, width, str){
     var
      len = caml_ml_string_length(str),
-      /*<<camlinternalFormat.ml:1320:2>>*/ padty$0 = 0 <= width ? padty : 0,
-      /*<<camlinternalFormat.ml:1321:4>>*/ width$0 =
-        /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1(Stdlib[18], width);
+     padty$0 =  /*<<camlinternalFormat.ml:1320:2>>*/ 0 <= width ? padty : 0,
+     width$0 =
+        /*<<camlinternalFormat.ml:1321:4>>*/  /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1
+        (Stdlib[18], width);
     if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
     var
      _cu_ = 2 === padty$0 ? 48 : 32,
-      /*<<camlinternalFormat.ml:1333:14>>*/ res =
-        /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
+     res =
+        /*<<camlinternalFormat.ml:1333:14>>*/  /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
         (Stdlib_Bytes[1], width$0, _cu_);
      /*<<camlinternalFormat.ml:1334:4>>*/ switch(padty$0){
       case 0:
@@ -16591,12 +16985,15 @@
     /*<<camlinternalFormat.ml:1346:30>>*/ }
    function fix_int_precision(prec, str){
     var
-      /*<<camlinternalFormat.ml:1350:13>>*/ prec$0 =
-        /*<<camlinternalFormat.ml:1350:13>>*/ caml_call1(Stdlib[18], prec),
-      /*<<camlinternalFormat.ml:1351:2>>*/ len =
-        /*<<camlinternalFormat.ml:1351:2>>*/ caml_ml_string_length(str),
-      /*<<camlinternalFormat.ml:1352:8>>*/ c =
-        /*<<camlinternalFormat.ml:1352:8>>*/ caml_string_get(str, 0);
+     prec$0 =
+        /*<<camlinternalFormat.ml:1350:13>>*/  /*<<camlinternalFormat.ml:1350:13>>*/ caml_call1
+        (Stdlib[18], prec),
+     len =
+        /*<<camlinternalFormat.ml:1351:2>>*/  /*<<camlinternalFormat.ml:1351:2>>*/ caml_ml_string_length
+        (str),
+     c =
+        /*<<camlinternalFormat.ml:1352:8>>*/  /*<<camlinternalFormat.ml:1352:8>>*/ caml_string_get
+        (str, 0);
     a:
     {
      b:
@@ -16617,9 +17014,9 @@
                !==
                  /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get(str, 1))
              break c;
-             /*<<camlinternalFormat.ml:1359:14>>*/ var
+            var
              res$1 =
-                /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
+                /*<<camlinternalFormat.ml:1359:14>>*/  /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
                 (Stdlib_Bytes[1], prec$0 + 2 | 0, 48);
              /*<<camlinternalFormat.ml:1360:4>>*/  /*<<camlinternalFormat.ml:1360:4>>*/ caml_bytes_set
              (res$1,
@@ -16646,9 +17043,9 @@
         }
        }
        if(len >= (prec$0 + 1 | 0)) break a;
-        /*<<camlinternalFormat.ml:1354:14>>*/ var
+       var
         res$0 =
-           /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
+           /*<<camlinternalFormat.ml:1354:14>>*/  /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
            (Stdlib_Bytes[1], prec$0 + 1 | 0, 48);
         /*<<camlinternalFormat.ml:1355:4>>*/  /*<<camlinternalFormat.ml:1355:4>>*/ caml_bytes_set
         (res$0, 0, c);
@@ -16665,9 +17062,9 @@
       if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
      }
      if(len < prec$0){
-       /*<<camlinternalFormat.ml:1364:14>>*/ var
+      var
        res =
-          /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
+          /*<<camlinternalFormat.ml:1364:14>>*/  /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
           (Stdlib_Bytes[1], prec$0, 48);
        /*<<camlinternalFormat.ml:1365:4>>*/  /*<<camlinternalFormat.ml:1365:4>>*/ caml_call5
        (Stdlib_String[6], str, 0, res, prec$0 - len | 0, len);
@@ -16679,13 +17076,14 @@
     /*<<camlinternalFormat.ml:1368:7>>*/ }
    function string_to_caml_string(str){
     var
-      /*<<camlinternalFormat.ml:1372:12>>*/ str$0 =
-        /*<<camlinternalFormat.ml:1372:12>>*/ caml_call1
+     str$0 =
+        /*<<camlinternalFormat.ml:1372:12>>*/  /*<<camlinternalFormat.ml:1372:12>>*/ caml_call1
         (Stdlib_String[25], str),
-      /*<<camlinternalFormat.ml:1373:2>>*/ l =
-        /*<<camlinternalFormat.ml:1373:2>>*/ caml_ml_string_length(str$0),
-      /*<<camlinternalFormat.ml:1374:12>>*/ res =
-        /*<<camlinternalFormat.ml:1374:12>>*/ caml_call2
+     l =
+        /*<<camlinternalFormat.ml:1373:2>>*/  /*<<camlinternalFormat.ml:1373:2>>*/ caml_ml_string_length
+        (str$0),
+     res =
+        /*<<camlinternalFormat.ml:1374:12>>*/  /*<<camlinternalFormat.ml:1374:12>>*/ caml_call2
         (Stdlib_Bytes[1], l + 2 | 0, 34);
      /*<<camlinternalFormat.ml:1375:2>>*/  /*<<camlinternalFormat.ml:1375:2>>*/ caml_blit_string
      (str$0, 0, res, 1, l);
@@ -16694,10 +17092,11 @@
     /*<<camlinternalFormat.ml:1376:28>>*/ }
    function format_of_fconv(fconv, prec){
     var
-      /*<<camlinternalFormat.ml:1414:15>>*/ prec$0 =
-        /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1(Stdlib[18], prec),
-      /*<<camlinternalFormat.ml:1415:15>>*/ symb = char_of_fconv(_r_, fconv),
-      /*<<camlinternalFormat.ml:1416:14>>*/ buf = buffer_create(16);
+     prec$0 =
+        /*<<camlinternalFormat.ml:1414:15>>*/  /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1
+        (Stdlib[18], prec),
+     symb =  /*<<camlinternalFormat.ml:1415:15>>*/ char_of_fconv(_r_, fconv),
+     buf =  /*<<camlinternalFormat.ml:1416:14>>*/ buffer_create(16);
      /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char(buf, 37);
      /*<<camlinternalFormat.ml:1418:4>>*/ bprint_fconv_flag(buf, fconv);
      /*<<camlinternalFormat.ml:1419:4>>*/ buffer_add_char(buf, 46);
@@ -16712,34 +17111,35 @@
      /*<<camlinternalFormat.ml:1425:2>>*/ if(13 > iconv)
       /*<<camlinternalFormat.ml:1447:9>>*/ return s;
     var
-      /*<<camlinternalFormat.ml:1428:14>>*/ n = [0, 0],
+     n =  /*<<camlinternalFormat.ml:1428:14>>*/ [0, 0],
      _cp_ = caml_ml_string_length(s) - 1 | 0,
-      /*<<camlinternalFormat.ml:1428:14>>*/ _co_ = 0;
+     _co_ =  /*<<camlinternalFormat.ml:1428:14>>*/ 0;
     if(_cp_ >= 0){
      var i$0 = _co_;
      for(;;){
       if(9 >= caml_string_unsafe_get(s, i$0) - 48 >>> 0) n[1]++;
-       /*<<camlinternalFormat.ml:1429:6>>*/ var _ct_ = i$0 + 1 | 0;
+      var _ct_ =  /*<<camlinternalFormat.ml:1429:6>>*/ i$0 + 1 | 0;
       if(_cp_ === i$0) break;
       i$0 = _ct_;
      }
     }
     var
      digits = n[1],
-      /*<<camlinternalFormat.ml:1436:14>>*/ buf =
-        /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
+     buf =
+        /*<<camlinternalFormat.ml:1436:14>>*/  /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
         (caml_ml_string_length(s) + ((digits - 1 | 0) / 3 | 0) | 0),
-      /*<<camlinternalFormat.ml:1437:14>>*/ pos = [0, 0];
+     pos =  /*<<camlinternalFormat.ml:1437:14>>*/ [0, 0];
     function put(c){
       /*<<camlinternalFormat.ml:1438:16>>*/  /*<<camlinternalFormat.ml:1438:16>>*/ caml_bytes_set
       (buf, pos[1], c);
      pos[1]++;
      /*<<camlinternalFormat.ml:1438:46>>*/ }
     var
-      /*<<camlinternalFormat.ml:1439:15>>*/ left =
-       [0, ((digits - 1 | 0) % 3 | 0) + 1 | 0],
+     left =
+        /*<<camlinternalFormat.ml:1439:15>>*/ [0,
+        ((digits - 1 | 0) % 3 | 0) + 1 | 0],
      _cr_ = caml_ml_string_length(s) - 1 | 0,
-      /*<<camlinternalFormat.ml:1439:15>>*/ _cq_ = 0;
+     _cq_ =  /*<<camlinternalFormat.ml:1439:15>>*/ 0;
     if(_cr_ >= 0){
      var i = _cq_;
      for(;;){
@@ -16754,7 +17154,7 @@
        left[1]--;
         /*<<camlinternalFormat.ml:1443:61>>*/ put(c);
       }
-       /*<<camlinternalFormat.ml:1440:4>>*/ var _cs_ = i + 1 | 0;
+      var _cs_ =  /*<<camlinternalFormat.ml:1440:4>>*/ i + 1 | 0;
       if(_cr_ === i) break;
       i = _cs_;
      }
@@ -16912,9 +17312,10 @@
              (x, prec, sign);
      /*<<camlinternalFormat.ml:1468:34>>*/ }
     function caml_special_val(str){
-      /*<<camlinternalFormat.ml:1477:35>>*/ var
+     var
       match =
-         /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float(x);
+         /*<<camlinternalFormat.ml:1477:35>>*/  /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float
+         (x);
      return 3 === match
              ? x < 0. ? cst_neg_infinity : cst_infinity
              : 4 <= match ? cst_nan : str;
@@ -16922,8 +17323,8 @@
     switch(fconv[2]){
       case 5:
        var
-         /*<<camlinternalFormat.ml:1486:14>>*/ str =
-           /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
+        str =
+           /*<<camlinternalFormat.ml:1486:14>>*/  /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
            (format_of_fconv(fconv, prec), x),
         len = caml_ml_string_length(str),
         i = 0;
@@ -16931,9 +17332,10 @@
         if(i === len)
          var _ch_ = 0;
         else{
-          /*<<camlinternalFormat.ml:1473:14>>*/ var
+         var
           _cg_ =
-             /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get(str, i)
+             /*<<camlinternalFormat.ml:1473:14>>*/  /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get
+             (str, i)
             - 46
             | 0;
          a:
@@ -16942,15 +17344,15 @@
            if(55 === _cg_) break a;
           }
           else if(21 < _cg_ - 1 >>> 0) break a;
-           /*<<camlinternalFormat.ml:1475:15>>*/ var i$0 = i + 1 | 0;
+          var i$0 =  /*<<camlinternalFormat.ml:1475:15>>*/ i + 1 | 0;
           i = i$0;
           continue;
          }
          var _ch_ = 1;
         }
-         /*<<camlinternalFormat.ml:1476:7>>*/ var
+        var
          _ci_ =
-           _ch_
+            /*<<camlinternalFormat.ml:1476:7>>*/ _ch_
             ? str
             :  /*<<camlinternalFormat.ml:1476:32>>*/ caml_call2
               (Stdlib[28], str, cst$17);
@@ -16959,7 +17361,7 @@
       case 6:
         /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0);
       case 7:
-        /*<<camlinternalFormat.ml:1483:38>>*/ var _cj_ = hex(0);
+       var _cj_ =  /*<<camlinternalFormat.ml:1483:38>>*/ hex(0);
         /*<<camlinternalFormat.ml:1483:38>>*/ return  /*<<camlinternalFormat.ml:1483:38>>*/ caml_call1
                (Stdlib_String[26], _cj_);
       case 8:
@@ -16970,7 +17372,7 @@
     }
     /*<<camlinternalFormat.ml:1489:47>>*/ }
    function string_of_fmtty(fmtty){
-     /*<<camlinternalFormat.ml:1501:12>>*/ var buf = buffer_create(16);
+    var buf =  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create(16);
      /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty(buf, fmtty);
      /*<<camlinternalFormat.ml:1502:2>>*/ return buffer_contents(buf);
     /*<<camlinternalFormat.ml:1503:21>>*/ }
@@ -16984,26 +17386,27 @@
        case 0:
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
-          /*<<camlinternalFormat.ml:1521:20>>*/ var new_acc = [5, acc$0, c];
+         var new_acc =  /*<<camlinternalFormat.ml:1521:20>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
                  (k$0, new_acc, rest); /*<<camlinternalFormat.ml:1522:32>>*/ };
        case 1:
         var rest$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1524:4>>*/ return function(c){
          var
-           /*<<camlinternalFormat.ml:1493:12>>*/ str =
-             /*<<camlinternalFormat.ml:1493:12>>*/ caml_call1
+          str =
+             /*<<camlinternalFormat.ml:1493:12>>*/  /*<<camlinternalFormat.ml:1493:12>>*/ caml_call1
              (Stdlib_Char[2], c),
-           /*<<camlinternalFormat.ml:1494:2>>*/ l =
-             /*<<camlinternalFormat.ml:1494:2>>*/ caml_ml_string_length(str),
-           /*<<camlinternalFormat.ml:1495:12>>*/ res =
-             /*<<camlinternalFormat.ml:1495:12>>*/ caml_call2
+          l =
+             /*<<camlinternalFormat.ml:1494:2>>*/  /*<<camlinternalFormat.ml:1494:2>>*/ caml_ml_string_length
+             (str),
+          res =
+             /*<<camlinternalFormat.ml:1495:12>>*/  /*<<camlinternalFormat.ml:1495:12>>*/ caml_call2
              (Stdlib_Bytes[1], l + 2 | 0, 39);
           /*<<camlinternalFormat.ml:1496:2>>*/  /*<<camlinternalFormat.ml:1496:2>>*/ caml_blit_string
           (str, 0, res, 1, l);
-          /*<<camlinternalFormat.ml:1525:20>>*/ var
+         var
           new_acc =
-            [4,
+             /*<<camlinternalFormat.ml:1525:20>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1496:2>>*/ caml_call1
               (Stdlib_Bytes[44], res)];
@@ -17072,23 +17475,27 @@
           return prec$3
                   ? function
                    (p, x){
-                     /*<<camlinternalFormat.ml:1746:16>>*/ var
-                     str = convert_float(fconv, p, x);
+                    var
+                     str =
+                        /*<<camlinternalFormat.ml:1746:16>>*/ convert_float
+                        (fconv, p, x);
                      /*<<camlinternalFormat.ml:1747:6>>*/ return make_printf
                             (k$0, [4, acc$0, str], rest$7);
                     /*<<camlinternalFormat.ml:1747:52>>*/ }
                   : function
                    (x){
-                     /*<<camlinternalFormat.ml:1738:16>>*/ var
+                    var
                      str =
-                       convert_float(fconv, default_float_precision(fconv), x);
+                        /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
+                        (fconv, default_float_precision(fconv), x);
                      /*<<camlinternalFormat.ml:1739:6>>*/ return make_printf
                             (k$0, [4, acc$0, str], rest$7);
                     /*<<camlinternalFormat.ml:1739:52>>*/ };
          var p = prec$3[1];
           /*<<camlinternalFormat.ml:1741:4>>*/ return function(x){
-           /*<<camlinternalFormat.ml:1742:16>>*/ var
-           str = convert_float(fconv, p, x);
+          var
+           str =
+              /*<<camlinternalFormat.ml:1742:16>>*/ convert_float(fconv, p, x);
            /*<<camlinternalFormat.ml:1743:6>>*/ return make_printf
                   (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1743:52>>*/ };
         }
@@ -17098,25 +17505,31 @@
           return prec$3
                   ? function
                    (p, x){
-                     /*<<camlinternalFormat.ml:1759:16>>*/ var
-                     str = fix_padding(padty, w, convert_float(fconv, p, x));
+                    var
+                     str =
+                        /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
+                        (padty, w, convert_float(fconv, p, x));
                      /*<<camlinternalFormat.ml:1760:6>>*/ return make_printf
                             (k$0, [4, acc$0, str], rest$7);
                     /*<<camlinternalFormat.ml:1760:52>>*/ }
                   : function
                    (x){
                     var
-                      /*<<camlinternalFormat.ml:1750:16>>*/ str =
-                       convert_float(fconv, default_float_precision(fconv), x),
-                      /*<<camlinternalFormat.ml:1751:17>>*/ str$0 =
-                       fix_padding(padty, w, str);
+                     str =
+                        /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
+                        (fconv, default_float_precision(fconv), x),
+                     str$0 =
+                        /*<<camlinternalFormat.ml:1751:17>>*/ fix_padding
+                        (padty, w, str);
                      /*<<camlinternalFormat.ml:1752:6>>*/ return make_printf
                             (k$0, [4, acc$0, str$0], rest$7);
                     /*<<camlinternalFormat.ml:1752:53>>*/ };
          var p$0 = prec$3[1];
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
-           /*<<camlinternalFormat.ml:1755:16>>*/ var
-           str = fix_padding(padty, w, convert_float(fconv, p$0, x));
+          var
+           str =
+              /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
+              (padty, w, convert_float(fconv, p$0, x));
            /*<<camlinternalFormat.ml:1756:6>>*/ return make_printf
                   (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1756:52>>*/ };
         }
@@ -17125,25 +17538,31 @@
          return prec$3
                  ? function
                   (w, p, x){
-                    /*<<camlinternalFormat.ml:1772:16>>*/ var
-                    str = fix_padding(padty$0, w, convert_float(fconv, p, x));
+                   var
+                    str =
+                       /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
+                       (padty$0, w, convert_float(fconv, p, x));
                     /*<<camlinternalFormat.ml:1773:6>>*/ return make_printf
                            (k$0, [4, acc$0, str], rest$7);
                    /*<<camlinternalFormat.ml:1773:52>>*/ }
                  : function
                   (w, x){
                    var
-                     /*<<camlinternalFormat.ml:1763:16>>*/ str =
-                      convert_float(fconv, default_float_precision(fconv), x),
-                     /*<<camlinternalFormat.ml:1764:17>>*/ str$0 =
-                      fix_padding(padty$0, w, str);
+                    str =
+                       /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
+                       (fconv, default_float_precision(fconv), x),
+                    str$0 =
+                       /*<<camlinternalFormat.ml:1764:17>>*/ fix_padding
+                       (padty$0, w, str);
                     /*<<camlinternalFormat.ml:1765:6>>*/ return make_printf
                            (k$0, [4, acc$0, str$0], rest$7);
                    /*<<camlinternalFormat.ml:1765:53>>*/ };
         var p$1 = prec$3[1];
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
-          /*<<camlinternalFormat.ml:1768:16>>*/ var
-          str = fix_padding(padty$0, w, convert_float(fconv, p$1, x));
+         var
+          str =
+             /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
+             (padty$0, w, convert_float(fconv, p$1, x));
           /*<<camlinternalFormat.ml:1769:6>>*/ return make_printf
                  (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1769:52>>*/ };
        case 9:
@@ -17153,7 +17572,7 @@
        case 10:
         var
          rest$9 = fmt$0[1],
-          /*<<camlinternalFormat.ml:1560:18>>*/ acc$1 = [7, acc$0];
+         acc$1 =  /*<<camlinternalFormat.ml:1560:18>>*/ [7, acc$0];
         acc$0 = acc$1;
         fmt$0 = rest$9;
         break;
@@ -17161,7 +17580,7 @@
         var
          rest$10 = fmt$0[2],
          str = fmt$0[1],
-          /*<<camlinternalFormat.ml:1563:18>>*/ acc$2 = [2, acc$0, str];
+         acc$2 =  /*<<camlinternalFormat.ml:1563:18>>*/ [2, acc$0, str];
         acc$0 = acc$2;
         fmt$0 = rest$10;
         break;
@@ -17169,7 +17588,7 @@
         var
          rest$11 = fmt$0[2],
          chr = fmt$0[1],
-          /*<<camlinternalFormat.ml:1565:18>>*/ acc$3 = [3, acc$0, chr];
+         acc$3 =  /*<<camlinternalFormat.ml:1565:18>>*/ [3, acc$0, chr];
         acc$0 = acc$3;
         fmt$0 = rest$11;
         break;
@@ -17177,8 +17596,8 @@
         var
          rest$12 = fmt$0[3],
          sub_fmtty = fmt$0[2],
-          /*<<camlinternalFormat.ml:1568:13>>*/ ty =
-           string_of_fmtty(sub_fmtty);
+         ty =
+            /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
          /*<<camlinternalFormat.ml:1569:4>>*/ return function(str){
           /*<<camlinternalFormat.ml:1570:6>>*/ return make_printf
                  (k$0, [4, acc$0, ty], rest$12); /*<<camlinternalFormat.ml:1571:52>>*/ };
@@ -17187,7 +17606,7 @@
          /*<<camlinternalFormat.ml:1573:4>>*/ return function(param){
          var
           fmt = param[1],
-           /*<<camlinternalFormat.ml:1574:18>>*/ _cf_ = recast(fmt, fmtty);
+          _cf_ =  /*<<camlinternalFormat.ml:1574:18>>*/ recast(fmt, fmtty);
           /*<<camlinternalFormat.ml:1574:6>>*/ return make_printf
                  (k$0,
                   acc$0,
@@ -17214,7 +17633,7 @@
         var
          rest$16 = fmt$0[2],
          fmting_lit = fmt$0[1],
-          /*<<camlinternalFormat.ml:1594:18>>*/ acc$4 = [0, acc$0, fmting_lit];
+         acc$4 =  /*<<camlinternalFormat.ml:1594:18>>*/ [0, acc$0, fmting_lit];
         acc$0 = acc$4;
         fmt$0 = rest$16;
         break;
@@ -17253,17 +17672,19 @@
        case 20:
         var
          rest$19 = fmt$0[3],
-          /*<<camlinternalFormat.ml:1577:18>>*/ new_acc =
-           [8, acc$0, cst_Printf_bad_conversion];
+         new_acc =
+            /*<<camlinternalFormat.ml:1577:18>>*/ [8,
+            acc$0,
+            cst_Printf_bad_conversion];
          /*<<camlinternalFormat.ml:1578:4>>*/ return function(param){
           /*<<camlinternalFormat.ml:1578:13>>*/ return make_printf
                  (k$0, new_acc, rest$19); /*<<camlinternalFormat.ml:1578:39>>*/ };
        case 21:
         var rest$20 = fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
-          /*<<camlinternalFormat.ml:1584:20>>*/ var
+         var
           new_acc =
-            [4,
+             /*<<camlinternalFormat.ml:1584:20>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
               (cst_u$0, n)];
@@ -17272,7 +17693,7 @@
        case 22:
         var rest$21 = fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
-          /*<<camlinternalFormat.ml:1588:20>>*/ var new_acc = [5, acc$0, c];
+         var new_acc =  /*<<camlinternalFormat.ml:1588:20>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
                  (k$0, new_acc, rest$21); /*<<camlinternalFormat.ml:1589:32>>*/ };
        case 23:
@@ -17288,8 +17709,9 @@
          rest$23 = fmt$0[3],
          f = fmt$0[2],
          arity = fmt$0[1],
-          /*<<camlinternalFormat.ml:1548:33>>*/ _ce_ =
-            /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1(f, 0);
+         _ce_ =
+            /*<<camlinternalFormat.ml:1548:33>>*/  /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1
+            (f, 0);
          /*<<camlinternalFormat.ml:1548:33>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1548:33>>*/ return  /*<<camlinternalFormat.ml:1548:33>>*/ caml_trampoline_return
                  (make_custom$0, [0, k$0, acc$0, rest$23, arity, _ce_]);
@@ -17475,7 +17897,7 @@
          rest$8 = fmtty[3],
          ty2 = fmtty[2],
          ty1 = fmtty[1],
-          /*<<camlinternalFormat.ml:1654:13>>*/ ty = trans(symm(ty1), ty2);
+         ty =  /*<<camlinternalFormat.ml:1654:13>>*/ trans(symm(ty1), ty2);
          /*<<camlinternalFormat.ml:1655:4>>*/ return function(param){
           /*<<camlinternalFormat.ml:1655:13>>*/ return make_from_fmtty
                  (k,
@@ -17517,8 +17939,11 @@
             (make_from_fmtty$0(0, k, acc, fmtty, fmt));
    }
    function make_invalid_arg(counter, k, acc, fmt){
-     /*<<camlinternalFormat.ml:1663:16>>*/ var
-     _cb_ = [8, acc, cst_Printf_bad_conversion$0];
+    var
+     _cb_ =
+        /*<<camlinternalFormat.ml:1663:16>>*/ [8,
+        acc,
+        cst_Printf_bad_conversion$0];
      /*<<camlinternalFormat.ml:1663:2>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ caml_trampoline_return
              (make_printf$0, [0, k, _cb_, fmt]);
@@ -17529,17 +17954,19 @@
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:1672:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1673:20>>*/ var
+      var
        new_acc =
-         [4, acc,  /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
+          /*<<camlinternalFormat.ml:1673:20>>*/ [4,
+          acc,
+           /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
               (k, new_acc, fmt); /*<<camlinternalFormat.ml:1674:31>>*/ };
     if(0 === pad[0]){
      var width = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1677:20>>*/ var
+      var
        new_acc =
-         [4,
+          /*<<camlinternalFormat.ml:1677:20>>*/ [4,
           acc,
           fix_padding
            (padty,
@@ -17550,9 +17977,9 @@
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
-      /*<<camlinternalFormat.ml:1681:20>>*/ var
+     var
       new_acc =
-        [4,
+         /*<<camlinternalFormat.ml:1681:20>>*/ [4,
          acc,
          fix_padding
           (padty$0,
@@ -17566,9 +17993,9 @@
       return prec
               ? function
                (p, x){
-                 /*<<camlinternalFormat.ml:1702:16>>*/ var
+                var
                  str =
-                   fix_int_precision
+                    /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
                     (p,
                       /*<<camlinternalFormat.ml:1702:36>>*/ caml_call2
                       (trans, iconv, x));
@@ -17577,18 +18004,18 @@
                 /*<<camlinternalFormat.ml:1703:52>>*/ }
               : function
                (x){
-                 /*<<camlinternalFormat.ml:1694:16>>*/ var
+                var
                  str =
-                    /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
+                    /*<<camlinternalFormat.ml:1694:16>>*/  /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
                     (trans, iconv, x);
                  /*<<camlinternalFormat.ml:1695:6>>*/ return make_printf
                         (k, [4, acc, str], fmt);
                 /*<<camlinternalFormat.ml:1695:52>>*/ };
      var p = prec[1];
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1698:16>>*/ var
+      var
        str =
-         fix_int_precision
+          /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
           (p,
             /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2(trans, iconv, x));
        /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
@@ -17600,9 +18027,9 @@
       return prec
               ? function
                (p, x){
-                 /*<<camlinternalFormat.ml:1714:16>>*/ var
+                var
                  str =
-                   fix_padding
+                    /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
                     (padty,
                      w,
                      fix_int_precision
@@ -17614,9 +18041,9 @@
                 /*<<camlinternalFormat.ml:1715:52>>*/ }
               : function
                (x){
-                 /*<<camlinternalFormat.ml:1706:16>>*/ var
+                var
                  str =
-                   fix_padding
+                    /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
                     (padty,
                      w,
                       /*<<camlinternalFormat.ml:1706:36>>*/ caml_call2
@@ -17626,9 +18053,9 @@
                 /*<<camlinternalFormat.ml:1707:52>>*/ };
      var p$0 = prec[1];
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1710:16>>*/ var
+      var
        str =
-         fix_padding
+          /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
           (padty,
            w,
            fix_int_precision
@@ -17643,9 +18070,9 @@
      return prec
              ? function
               (w, p, x){
-                /*<<camlinternalFormat.ml:1726:16>>*/ var
+               var
                 str =
-                  fix_padding
+                   /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
                    (padty$0,
                     w,
                     fix_int_precision
@@ -17657,9 +18084,9 @@
                /*<<camlinternalFormat.ml:1727:52>>*/ }
              : function
               (w, x){
-                /*<<camlinternalFormat.ml:1718:16>>*/ var
+               var
                 str =
-                  fix_padding
+                   /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
                    (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1718:36>>*/ caml_call2
@@ -17669,9 +18096,9 @@
                /*<<camlinternalFormat.ml:1719:52>>*/ };
     var p$1 = prec[1];
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
-      /*<<camlinternalFormat.ml:1722:16>>*/ var
+     var
       str =
-        fix_padding
+         /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
          (padty$0,
           w,
           fix_int_precision
@@ -17691,7 +18118,7 @@
                arity$0,
                 /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1(f, x)); /*<<camlinternalFormat.ml:1782:40>>*/ };
     }
-     /*<<camlinternalFormat.ml:1779:33>>*/ var _ca_ = [4, acc, f];
+    var _ca_ =  /*<<camlinternalFormat.ml:1779:33>>*/ [4, acc, f];
      /*<<camlinternalFormat.ml:1779:19>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ caml_trampoline_return
              (make_printf$0, [0, k, _ca_, rest]);
@@ -17713,14 +18140,14 @@
        case 0:
         var
          rest = fmt$0[1],
-          /*<<camlinternalFormat.ml:1790:14>>*/ x = make_iprintf(k$0, o, rest);
+         x =  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf(k$0, o, rest);
          /*<<camlinternalFormat.ml:1790:14>>*/ return function(_b$_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
        case 1:
         var
          rest$0 = fmt$0[1],
-          /*<<camlinternalFormat.ml:1792:14>>*/ x$0 =
-           make_iprintf(k$0, o, rest$0);
+         x$0 =
+            /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf(k$0, o, rest$0);
          /*<<camlinternalFormat.ml:1792:14>>*/ return function(_b__){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;};
        case 2:
@@ -17728,25 +18155,29 @@
         if(typeof _bM_ === "number"){
          var
           rest$1 = fmt$0[2],
-           /*<<camlinternalFormat.ml:1794:14>>*/ x$1 =
-            make_iprintf(k$0, o, rest$1);
+          x$1 =
+             /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
+             (k$0, o, rest$1);
           /*<<camlinternalFormat.ml:1794:14>>*/ return function(_b9_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;};
         }
         if(0 === _bM_[0]){
          var
           rest$2 = fmt$0[2],
-           /*<<camlinternalFormat.ml:1796:14>>*/ x$2 =
-            make_iprintf(k$0, o, rest$2);
+          x$2 =
+             /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
+             (k$0, o, rest$2);
           /*<<camlinternalFormat.ml:1796:14>>*/ return function(_b8_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;};
         }
         var
          rest$3 = fmt$0[2],
-          /*<<camlinternalFormat.ml:1798:21>>*/ x$3 =
-           make_iprintf(k$0, o, rest$3),
-          /*<<camlinternalFormat.ml:1798:14>>*/ x$4 =
-           function(_b7_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;};
+         x$3 =
+            /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf(k$0, o, rest$3),
+         x$4 =
+            /*<<camlinternalFormat.ml:1798:14>>*/ function(_b7_){
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
+           };
          /*<<camlinternalFormat.ml:1798:14>>*/ return function(_b6_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;};
        case 3:
@@ -17754,25 +18185,29 @@
         if(typeof _bN_ === "number"){
          var
           rest$4 = fmt$0[2],
-           /*<<camlinternalFormat.ml:1800:14>>*/ x$5 =
-            make_iprintf(k$0, o, rest$4);
+          x$5 =
+             /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
+             (k$0, o, rest$4);
           /*<<camlinternalFormat.ml:1800:14>>*/ return function(_b5_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;};
         }
         if(0 === _bN_[0]){
          var
           rest$5 = fmt$0[2],
-           /*<<camlinternalFormat.ml:1802:14>>*/ x$6 =
-            make_iprintf(k$0, o, rest$5);
+          x$6 =
+             /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
+             (k$0, o, rest$5);
           /*<<camlinternalFormat.ml:1802:14>>*/ return function(_b4_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;};
         }
         var
          rest$6 = fmt$0[2],
-          /*<<camlinternalFormat.ml:1804:21>>*/ x$7 =
-           make_iprintf(k$0, o, rest$6),
-          /*<<camlinternalFormat.ml:1804:14>>*/ x$8 =
-           function(_b3_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;};
+         x$7 =
+            /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf(k$0, o, rest$6),
+         x$8 =
+            /*<<camlinternalFormat.ml:1804:14>>*/ function(_b3_){
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
+           };
          /*<<camlinternalFormat.ml:1804:14>>*/ return function(_b2_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;};
        case 4:
@@ -17800,25 +18235,30 @@
         if(typeof _bO_ === "number"){
          var
           rest$12 = fmt$0[2],
-           /*<<camlinternalFormat.ml:1816:14>>*/ x$9 =
-            make_iprintf(k$0, o, rest$12);
+          x$9 =
+             /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
+             (k$0, o, rest$12);
           /*<<camlinternalFormat.ml:1816:14>>*/ return function(_b1_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;};
         }
         if(0 === _bO_[0]){
          var
           rest$13 = fmt$0[2],
-           /*<<camlinternalFormat.ml:1818:14>>*/ x$10 =
-            make_iprintf(k$0, o, rest$13);
+          x$10 =
+             /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
+             (k$0, o, rest$13);
           /*<<camlinternalFormat.ml:1818:14>>*/ return function(_b0_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;};
         }
         var
          rest$14 = fmt$0[2],
-          /*<<camlinternalFormat.ml:1820:21>>*/ x$11 =
-           make_iprintf(k$0, o, rest$14),
-          /*<<camlinternalFormat.ml:1820:14>>*/ x$12 =
-           function(_bZ_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;};
+         x$11 =
+            /*<<camlinternalFormat.ml:1820:21>>*/ make_iprintf
+            (k$0, o, rest$14),
+         x$12 =
+            /*<<camlinternalFormat.ml:1820:14>>*/ function(_bZ_){
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;
+           };
          /*<<camlinternalFormat.ml:1820:14>>*/ return function(_bY_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;};
        case 10:
@@ -17830,8 +18270,9 @@
        case 13:
         var
          rest$18 = fmt$0[3],
-          /*<<camlinternalFormat.ml:1838:14>>*/ x$13 =
-           make_iprintf(k$0, o, rest$18);
+         x$13 =
+            /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
+            (k$0, o, rest$18);
          /*<<camlinternalFormat.ml:1838:14>>*/ return function(_bX_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;};
        case 14:
@@ -17839,7 +18280,7 @@
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
          var
           fmt = param[1],
-           /*<<camlinternalFormat.ml:1842:24>>*/ _bW_ = recast(fmt, fmtty);
+          _bW_ =  /*<<camlinternalFormat.ml:1842:24>>*/ recast(fmt, fmtty);
           /*<<camlinternalFormat.ml:1842:12>>*/ return make_iprintf
                  (k$0,
                   o,
@@ -17848,17 +18289,21 @@
        case 15:
         var
          rest$20 = fmt$0[1],
-          /*<<camlinternalFormat.ml:1822:21>>*/ x$14 =
-           make_iprintf(k$0, o, rest$20),
-          /*<<camlinternalFormat.ml:1822:14>>*/ x$15 =
-           function(_bV_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$14;};
+         x$14 =
+            /*<<camlinternalFormat.ml:1822:21>>*/ make_iprintf
+            (k$0, o, rest$20),
+         x$15 =
+            /*<<camlinternalFormat.ml:1822:14>>*/ function(_bV_){
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$14;
+           };
          /*<<camlinternalFormat.ml:1822:14>>*/ return function(_bU_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;};
        case 16:
         var
          rest$21 = fmt$0[1],
-          /*<<camlinternalFormat.ml:1824:14>>*/ x$16 =
-           make_iprintf(k$0, o, rest$21);
+         x$16 =
+            /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
+            (k$0, o, rest$21);
          /*<<camlinternalFormat.ml:1824:14>>*/ return function(_bT_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$16;};
        case 17:
@@ -17896,22 +18341,25 @@
        case 20:
         var
          rest$25 = fmt$0[3],
-          /*<<camlinternalFormat.ml:1844:14>>*/ x$17 =
-           make_iprintf(k$0, o, rest$25);
+         x$17 =
+            /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
+            (k$0, o, rest$25);
          /*<<camlinternalFormat.ml:1844:14>>*/ return function(_bS_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;};
        case 21:
         var
          rest$26 = fmt$0[2],
-          /*<<camlinternalFormat.ml:1846:14>>*/ x$18 =
-           make_iprintf(k$0, o, rest$26);
+         x$18 =
+            /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
+            (k$0, o, rest$26);
          /*<<camlinternalFormat.ml:1846:14>>*/ return function(_bR_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;};
        case 22:
         var
          rest$27 = fmt$0[1],
-          /*<<camlinternalFormat.ml:1848:14>>*/ x$19 =
-           make_iprintf(k$0, o, rest$27);
+         x$19 =
+            /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
+            (k$0, o, rest$27);
          /*<<camlinternalFormat.ml:1848:14>>*/ return function(_bQ_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$19;};
        case 23:
@@ -17941,61 +18389,71 @@
    function fn_of_padding_precision(k, o, fmt, pad, prec){
      /*<<camlinternalFormat.ml:1863:26>>*/ if(typeof pad === "number"){
      if(typeof prec !== "number"){
-       /*<<camlinternalFormat.ml:1867:14>>*/ var
-       x$2 = make_iprintf(k, o, fmt);
+      var
+       x$2 =  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1867:14>>*/ return function(_bL_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;};
      }
      if(prec){
       var
-        /*<<camlinternalFormat.ml:1869:21>>*/ x = make_iprintf(k, o, fmt),
-        /*<<camlinternalFormat.ml:1869:14>>*/ x$0 =
-         function(_bK_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
+       x =  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf(k, o, fmt),
+       x$0 =
+          /*<<camlinternalFormat.ml:1869:14>>*/ function(_bK_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x;
+         };
        /*<<camlinternalFormat.ml:1869:14>>*/ return function(_bJ_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;};
      }
-      /*<<camlinternalFormat.ml:1865:14>>*/ var x$1 = make_iprintf(k, o, fmt);
+     var x$1 =  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf(k, o, fmt);
       /*<<camlinternalFormat.ml:1865:14>>*/ return function(_bI_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;};
     }
     if(0 === pad[0]){
      if(typeof prec !== "number"){
-       /*<<camlinternalFormat.ml:1873:14>>*/ var
-       x$6 = make_iprintf(k, o, fmt);
+      var
+       x$6 =  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1873:14>>*/ return function(_bH_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;};
      }
      if(prec){
       var
-        /*<<camlinternalFormat.ml:1875:21>>*/ x$3 = make_iprintf(k, o, fmt),
-        /*<<camlinternalFormat.ml:1875:14>>*/ x$4 =
-         function(_bG_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;};
+       x$3 =  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf(k, o, fmt),
+       x$4 =
+          /*<<camlinternalFormat.ml:1875:14>>*/ function(_bG_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
+         };
        /*<<camlinternalFormat.ml:1875:14>>*/ return function(_bF_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;};
      }
-      /*<<camlinternalFormat.ml:1871:14>>*/ var x$5 = make_iprintf(k, o, fmt);
+     var x$5 =  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf(k, o, fmt);
       /*<<camlinternalFormat.ml:1871:14>>*/ return function(_bE_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;};
     }
     if(typeof prec !== "number"){
      var
-       /*<<camlinternalFormat.ml:1879:21>>*/ x$12 = make_iprintf(k, o, fmt),
-       /*<<camlinternalFormat.ml:1879:14>>*/ x$13 =
-        function(_bD_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;};
+      x$12 =  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf(k, o, fmt),
+      x$13 =
+         /*<<camlinternalFormat.ml:1879:14>>*/ function(_bD_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;
+        };
       /*<<camlinternalFormat.ml:1879:14>>*/ return function(_bC_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;};
     }
     if(prec){
      var
-       /*<<camlinternalFormat.ml:1881:28>>*/ x$7 = make_iprintf(k, o, fmt),
-       /*<<camlinternalFormat.ml:1881:21>>*/ x$8 =
-        function(_bB_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;},
-       /*<<camlinternalFormat.ml:1881:14>>*/ x$9 =
-        function(_bA_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;};
+      x$7 =  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf(k, o, fmt),
+      x$8 =
+         /*<<camlinternalFormat.ml:1881:21>>*/ function(_bB_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
+        },
+      x$9 =
+         /*<<camlinternalFormat.ml:1881:14>>*/ function(_bA_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;
+        };
       /*<<camlinternalFormat.ml:1881:14>>*/ return function(_bz_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;};
     }
-     /*<<camlinternalFormat.ml:1877:21>>*/ var x$10 = make_iprintf(k, o, fmt);
+    var x$10 =  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf(k, o, fmt);
     function x$11(_by_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;}
      /*<<camlinternalFormat.ml:1877:14>>*/ return function(_bx_){
       /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;};
@@ -18004,8 +18462,9 @@
      /*<<?>>*/ if(param){
      var
       arity = param[1],
-       /*<<camlinternalFormat.ml:1889:14>>*/ x =
-        fn_of_custom_arity(k, o, fmt, arity);
+      x =
+         /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
+         (k, o, fmt, arity);
       /*<<camlinternalFormat.ml:1889:14>>*/ return function(_bw_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
     }
@@ -18030,8 +18489,9 @@
         var
          fmting_lit = acc$0[2],
          p = acc$0[1],
-          /*<<camlinternalFormat.ml:1899:12>>*/ s =
-           string_of_formatting_lit(fmting_lit);
+         s =
+            /*<<camlinternalFormat.ml:1899:12>>*/ string_of_formatting_lit
+            (fmting_lit);
          /*<<camlinternalFormat.ml:1900:4>>*/ output_acc(o, p);
          /*<<camlinternalFormat.ml:1900:4>>*/ return  /*<<camlinternalFormat.ml:1900:4>>*/ caml_call2
                 (Stdlib[66], o, s);
@@ -18091,8 +18551,9 @@
         var
          fmting_lit = acc$0[2],
          p = acc$0[1],
-          /*<<camlinternalFormat.ml:1919:12>>*/ s =
-           string_of_formatting_lit(fmting_lit);
+         s =
+            /*<<camlinternalFormat.ml:1919:12>>*/ string_of_formatting_lit
+            (fmting_lit);
          /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc(b, p);
          /*<<camlinternalFormat.ml:1920:4>>*/ return  /*<<camlinternalFormat.ml:1920:4>>*/ caml_call2
                 (Stdlib_Buffer[16], b, s);
@@ -18149,8 +18610,9 @@
         var
          fmting_lit = acc$0[2],
          p = acc$0[1],
-          /*<<camlinternalFormat.ml:1940:12>>*/ s =
-           string_of_formatting_lit(fmting_lit);
+         s =
+            /*<<camlinternalFormat.ml:1940:12>>*/ string_of_formatting_lit
+            (fmting_lit);
          /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc(b, p);
          /*<<camlinternalFormat.ml:1941:4>>*/ return  /*<<camlinternalFormat.ml:1941:4>>*/ caml_call2
                 (Stdlib_Buffer[16], b, s);
@@ -18174,8 +18636,10 @@
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc(b, p$3);
-         /*<<camlinternalFormat.ml:1950:68>>*/ var
-         _bv_ =  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1(f, 0);
+        var
+         _bv_ =
+            /*<<camlinternalFormat.ml:1950:68>>*/  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1
+            (f, 0);
          /*<<camlinternalFormat.ml:1950:68>>*/ return  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call2
                 (Stdlib_Buffer[16], b, _bv_);
        case 7:
@@ -18202,14 +18666,14 @@
    function failwith_message(param){
     var
      fmt = param[1],
-      /*<<camlinternalFormat.ml:1960:12>>*/ buf =
-        /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
+     buf =
+        /*<<camlinternalFormat.ml:1960:12>>*/  /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
         (Stdlib_Buffer[1], 256);
     function k(acc){
       /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc(buf, acc);
-      /*<<camlinternalFormat.ml:1961:43>>*/ var
+     var
       _bu_ =
-         /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
+         /*<<camlinternalFormat.ml:1961:43>>*/  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
          (Stdlib_Buffer[2], buf);
       /*<<camlinternalFormat.ml:1961:43>>*/ return  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
              (Stdlib[2], _bu_);
@@ -18228,16 +18692,17 @@
      var i$0 = i;
       /*<<camlinternalFormat.ml:1973:6>>*/ for(;;){
       if(i$0 === len)  /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
-       /*<<camlinternalFormat.ml:1974:14>>*/ var
+      var
        match =
-          /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
+          /*<<camlinternalFormat.ml:1974:14>>*/  /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get
+          (str, i$0);
       if(9 !== match && 32 !== match)
         /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
-       /*<<camlinternalFormat.ml:1975:24>>*/ var i$1 = i$0 + 1 | 0;
+      var i$1 =  /*<<camlinternalFormat.ml:1975:24>>*/ i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<camlinternalFormat.ml:1976:16>>*/ }
-     /*<<camlinternalFormat.ml:1987:17>>*/ var wstart = parse_spaces(0);
+    var wstart =  /*<<camlinternalFormat.ml:1987:17>>*/ parse_spaces(0);
     a:
     b:
     {
@@ -18251,27 +18716,28 @@
          - 97
          >>> 0)
        break;
-       /*<<camlinternalFormat.ml:1980:24>>*/ var j = wend + 1 | 0;
+      var j =  /*<<camlinternalFormat.ml:1980:24>>*/ wend + 1 | 0;
       wend = j;
      }
      break a;
     }
     var
-      /*<<camlinternalFormat.ml:1989:19>>*/ box_name =
-        /*<<camlinternalFormat.ml:1989:19>>*/ caml_call3
+     box_name =
+        /*<<camlinternalFormat.ml:1989:19>>*/  /*<<camlinternalFormat.ml:1989:19>>*/ caml_call3
         (Stdlib_String[16], str, wstart, wend - wstart | 0),
-      /*<<camlinternalFormat.ml:1990:17>>*/ nstart = parse_spaces(wend);
+     nstart =  /*<<camlinternalFormat.ml:1990:17>>*/ parse_spaces(wend);
     a:
     b:
     {
      var nend = nstart;
       /*<<camlinternalFormat.ml:1983:6>>*/ for(;;){
       if(nend === len) break b;
-       /*<<camlinternalFormat.ml:1984:14>>*/ var
+      var
        match =
-          /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get(str, nend);
+          /*<<camlinternalFormat.ml:1984:14>>*/  /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get
+          (str, nend);
       if(48 <= match){if(58 <= match) break;} else if(45 !== match) break;
-       /*<<camlinternalFormat.ml:1985:30>>*/ var j$0 = nend + 1 | 0;
+      var j$0 =  /*<<camlinternalFormat.ml:1985:30>>*/ nend + 1 | 0;
       nend = j$0;
      }
      break a;
@@ -18281,8 +18747,8 @@
     else
       /*<<camlinternalFormat.ml:1994:8>>*/ try{
       var
-        /*<<camlinternalFormat.ml:1994:12>>*/ _bs_ =
-          /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
+       _bs_ =
+          /*<<camlinternalFormat.ml:1994:12>>*/  /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
           ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
             (Stdlib_String[16], str, nstart, nend - nstart | 0)),
        indent = _bs_;
@@ -18292,7 +18758,7 @@
       if(_br_[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(_br_, 0);
       var indent = invalid_box(0);
      }
-     /*<<camlinternalFormat.ml:1996:18>>*/ var exp_end = parse_spaces(nend);
+    var exp_end =  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces(nend);
     if(exp_end !== len)  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
     a:
     {
@@ -18358,9 +18824,10 @@
        if(str_ind === end_ind)
          /*<<camlinternalFormat.ml:2124:30>>*/ return add_literal
                 (lit_start, str_ind, 0);
-        /*<<camlinternalFormat.ml:2125:12>>*/ var
+       var
         match =
-           /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get(str, str_ind);
+           /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get
+           (str, str_ind);
        if(37 === match) break;
        if(64 === match) break a;
        var str_ind$1 = str_ind + 1 | 0;
@@ -18387,13 +18854,13 @@
      if(str_ind$0 === end_ind)
       var match$0 = _N_;
      else{
-       /*<<camlinternalFormat.ml:2593:12>>*/ var
+      var
        c =
-          /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
+          /*<<camlinternalFormat.ml:2593:12>>*/  /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
           (str, str_ind$0);
       if(65 <= c){
        if(94 <= c){
-         /*<<camlinternalFormat.ml:2593:12>>*/ var switcher = c - 123 | 0;
+        var switcher =  /*<<camlinternalFormat.ml:2593:12>>*/ c - 123 | 0;
         if(2 >= switcher >>> 0)
          switch(switcher){
            case 0:
@@ -18478,10 +18945,11 @@
               /*<<camlinternalFormat.ml:2666:58>>*/ throw  /*<<camlinternalFormat.ml:2666:58>>*/ caml_maybe_attach_backtrace
                     (Stdlib[8], 1);
             var
-              /*<<camlinternalFormat.ml:2667:24>>*/ str_ind_1 =
-               parse_spaces(str_ind$3 + 1 | 0, end_ind),
-              /*<<camlinternalFormat.ml:2668:14>>*/ match$2 =
-                /*<<camlinternalFormat.ml:2668:14>>*/ caml_string_get
+             str_ind_1 =
+                /*<<camlinternalFormat.ml:2667:24>>*/ parse_spaces
+                (str_ind$3 + 1 | 0, end_ind),
+             match$2 =
+                /*<<camlinternalFormat.ml:2668:14>>*/  /*<<camlinternalFormat.ml:2668:14>>*/ caml_string_get
                 (str, str_ind_1);
             c:
             {
@@ -18493,28 +18961,30 @@
                     (Stdlib[8], 1);
             }
             var
-              /*<<camlinternalFormat.ml:2670:33>>*/ match$3 =
-               parse_integer(str_ind_1, end_ind),
+             match$3 =
+                /*<<camlinternalFormat.ml:2670:33>>*/ parse_integer
+                (str_ind_1, end_ind),
              width = match$3[2],
              str_ind_2 = match$3[1],
-              /*<<camlinternalFormat.ml:2671:28>>*/ str_ind_3 =
-               parse_spaces(str_ind_2, end_ind),
-              /*<<camlinternalFormat.ml:2672:18>>*/ switcher$0 =
-                /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
+             str_ind_3 =
+                /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
+                (str_ind_2, end_ind),
+             switcher$0 =
+                /*<<camlinternalFormat.ml:2672:18>>*/  /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
                 (str, str_ind_3)
                - 45
                | 0;
             if(12 < switcher$0 >>> 0){
              if(17 === switcher$0){
               var
-                /*<<camlinternalFormat.ml:2674:24>>*/ s =
-                  /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
+               s =
+                  /*<<camlinternalFormat.ml:2674:24>>*/  /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
                   (Stdlib_String[16],
                    str,
                    str_ind$3 - 2 | 0,
                    (str_ind_3 - str_ind$3 | 0) + 3 | 0),
-                /*<<camlinternalFormat.ml:2675:31>>*/ _bi_ = [0, s, width, 0],
-                /*<<camlinternalFormat.ml:2675:31>>*/ _bj_ = str_ind_3 + 1 | 0,
+               _bi_ =  /*<<camlinternalFormat.ml:2675:31>>*/ [0, s, width, 0],
+               _bj_ =  /*<<camlinternalFormat.ml:2675:31>>*/ str_ind_3 + 1 | 0,
                formatting_lit$0 = _bi_,
                next_ind = _bj_;
               break b;
@@ -18522,12 +18992,14 @@
             }
             else if(1 < switcher$0 - 1 >>> 0){
              var
-               /*<<camlinternalFormat.ml:2677:40>>*/ match$4 =
-                parse_integer(str_ind_3, end_ind),
+              match$4 =
+                 /*<<camlinternalFormat.ml:2677:40>>*/ parse_integer
+                 (str_ind_3, end_ind),
               offset = match$4[2],
               str_ind_4 = match$4[1],
-               /*<<camlinternalFormat.ml:2678:32>>*/ str_ind_5 =
-                parse_spaces(str_ind_4, end_ind);
+              str_ind_5 =
+                 /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
+                 (str_ind_4, end_ind);
              if
               (62
                !==
@@ -18536,15 +19008,15 @@
                /*<<camlinternalFormat.ml:2679:47>>*/ throw  /*<<camlinternalFormat.ml:2679:47>>*/ caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
              var
-               /*<<camlinternalFormat.ml:2680:24>>*/ s$0 =
-                 /*<<camlinternalFormat.ml:2680:24>>*/ caml_call3
+              s$0 =
+                 /*<<camlinternalFormat.ml:2680:24>>*/  /*<<camlinternalFormat.ml:2680:24>>*/ caml_call3
                  (Stdlib_String[16],
                   str,
                   str_ind$3 - 2 | 0,
                   (str_ind_5 - str_ind$3 | 0) + 3 | 0),
-               /*<<camlinternalFormat.ml:2681:31>>*/ _bk_ =
-                [0, s$0, width, offset],
-               /*<<camlinternalFormat.ml:2681:31>>*/ _bl_ = str_ind_5 + 1 | 0,
+              _bk_ =
+                 /*<<camlinternalFormat.ml:2681:31>>*/ [0, s$0, width, offset],
+              _bl_ =  /*<<camlinternalFormat.ml:2681:31>>*/ str_ind_5 + 1 | 0,
               formatting_lit$0 = _bk_,
               next_ind = _bl_;
              break b;
@@ -18566,10 +19038,11 @@
            var str_ind$4 = str_ind$0 + 1 | 0;
             /*<<camlinternalFormat.ml:2694:4>>*/ try{
             var
-              /*<<camlinternalFormat.ml:2696:24>>*/ str_ind_1$0 =
-               parse_spaces(str_ind$4, end_ind),
-              /*<<camlinternalFormat.ml:2697:14>>*/ match$6 =
-                /*<<camlinternalFormat.ml:2697:14>>*/ caml_string_get
+             str_ind_1$0 =
+                /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
+                (str_ind$4, end_ind),
+             match$6 =
+                /*<<camlinternalFormat.ml:2697:14>>*/  /*<<camlinternalFormat.ml:2697:14>>*/ caml_string_get
                 (str, str_ind_1$0);
             b:
             {
@@ -18583,12 +19056,14 @@
               break b;
              }
              var
-               /*<<camlinternalFormat.ml:2699:32>>*/ match$7 =
-                parse_integer(str_ind_1$0, end_ind),
+              match$7 =
+                 /*<<camlinternalFormat.ml:2699:32>>*/ parse_integer
+                 (str_ind_1$0, end_ind),
               size = match$7[2],
               str_ind_2$0 = match$7[1],
-               /*<<camlinternalFormat.ml:2700:26>>*/ str_ind_3$0 =
-                parse_spaces(str_ind_2$0, end_ind);
+              str_ind_3$0 =
+                 /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
+                 (str_ind_2$0, end_ind);
              if
               (62
                !==
@@ -18597,8 +19072,8 @@
                /*<<camlinternalFormat.ml:2701:41>>*/ throw  /*<<camlinternalFormat.ml:2701:41>>*/ caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
              var
-               /*<<camlinternalFormat.ml:2702:18>>*/ s$1 =
-                 /*<<camlinternalFormat.ml:2702:18>>*/ caml_call3
+              s$1 =
+                 /*<<camlinternalFormat.ml:2702:18>>*/  /*<<camlinternalFormat.ml:2702:18>>*/ caml_call3
                  (Stdlib_String[16],
                   str,
                   str_ind$4 - 2 | 0,
@@ -18648,17 +19123,18 @@
      /*<<camlinternalFormat.ml:2119:62>>*/ }
     function parse_flags(pct_ind, str_ind, end_ind, ign){
      var
-       /*<<camlinternalFormat.ml:2149:15>>*/ zero = [0, 0],
-       /*<<camlinternalFormat.ml:2149:37>>*/ minus = [0, 0],
-       /*<<camlinternalFormat.ml:2150:15>>*/ plus = [0, 0],
-       /*<<camlinternalFormat.ml:2150:37>>*/ space = [0, 0],
-       /*<<camlinternalFormat.ml:2151:15>>*/ hash = [0, 0];
+      zero =  /*<<camlinternalFormat.ml:2149:15>>*/ [0, 0],
+      minus =  /*<<camlinternalFormat.ml:2149:37>>*/ [0, 0],
+      plus =  /*<<camlinternalFormat.ml:2150:15>>*/ [0, 0],
+      space =  /*<<camlinternalFormat.ml:2150:37>>*/ [0, 0],
+      hash =  /*<<camlinternalFormat.ml:2151:15>>*/ [0, 0];
      function set_flag(str_ind, flag){
       var _bb_ = flag[1], _bc_ = _bb_ ? 1 - legacy_behavior$0 : _bb_;
       if(_bc_){
-        /*<<camlinternalFormat.ml:2157:22>>*/ var
+       var
         _bd_ =
-           /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get(str, str_ind);
+           /*<<camlinternalFormat.ml:2157:22>>*/  /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get
+           (str, str_ind);
         /*<<camlinternalFormat.ml:2155:8>>*/  /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
         (failwith_message(_C_), str, str_ind, _bd_);
       }
@@ -18673,9 +19149,9 @@
        if(str_ind$0 === end_ind)
          /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
          (end_ind, cst_unexpected_end_of_format);
-        /*<<camlinternalFormat.ml:2162:18>>*/ var
+       var
         switcher =
-           /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:2162:18>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
            (str, str_ind$0)
           - 32
           | 0;
@@ -18683,32 +19159,37 @@
        switch(switcher){
          case 0:
            /*<<camlinternalFormat.ml:2167:15>>*/ set_flag(str_ind$0, space);
-           /*<<camlinternalFormat.ml:2167:15>>*/ var
-           str_ind$1 = str_ind$0 + 1 | 0;
+          var
+           str_ind$1 =
+              /*<<camlinternalFormat.ml:2167:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$1;
           break;
          case 3:
            /*<<camlinternalFormat.ml:2166:15>>*/ set_flag(str_ind$0, hash);
-           /*<<camlinternalFormat.ml:2166:15>>*/ var
-           str_ind$2 = str_ind$0 + 1 | 0;
+          var
+           str_ind$2 =
+              /*<<camlinternalFormat.ml:2166:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$2;
           break;
          case 11:
            /*<<camlinternalFormat.ml:2165:15>>*/ set_flag(str_ind$0, plus);
-           /*<<camlinternalFormat.ml:2165:15>>*/ var
-           str_ind$3 = str_ind$0 + 1 | 0;
+          var
+           str_ind$3 =
+              /*<<camlinternalFormat.ml:2165:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$3;
           break;
          case 13:
            /*<<camlinternalFormat.ml:2164:15>>*/ set_flag(str_ind$0, minus);
-           /*<<camlinternalFormat.ml:2164:15>>*/ var
-           str_ind$4 = str_ind$0 + 1 | 0;
+          var
+           str_ind$4 =
+              /*<<camlinternalFormat.ml:2164:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$4;
           break;
          case 16:
            /*<<camlinternalFormat.ml:2163:15>>*/ set_flag(str_ind$0, zero);
-           /*<<camlinternalFormat.ml:2163:15>>*/ var
-           str_ind$5 = str_ind$0 + 1 | 0;
+          var
+           str_ind$5 =
+              /*<<camlinternalFormat.ml:2163:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$5;
           break;
          default: break c;
@@ -18734,13 +19215,15 @@
              : incompatible_flag(pct_ind, str_ind$0, 45, cst_0)
            : 2
          : minus$0 ? 0 : 1,
-       /*<<camlinternalFormat.ml:2188:10>>*/ match =
-         /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get(str, str_ind$0);
+      match =
+         /*<<camlinternalFormat.ml:2188:10>>*/  /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get
+         (str, str_ind$0);
      if(48 <= match){
       if(58 > match){
        var
-         /*<<camlinternalFormat.ml:2190:27>>*/ match$0 =
-          parse_positive(str_ind$0, end_ind, 0),
+        match$0 =
+           /*<<camlinternalFormat.ml:2190:27>>*/ parse_positive
+           (str_ind$0, end_ind, 0),
         width = match$0[2],
         new_ind = match$0[1];
         /*<<camlinternalFormat.ml:2192:8>>*/ return parse_after_padding
@@ -18810,9 +19293,10 @@
       /*<<camlinternalFormat.ml:2219:4>>*/ if(str_ind === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
-      /*<<camlinternalFormat.ml:2220:10>>*/ var
+     var
       symb =
-         /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get(str, str_ind);
+         /*<<camlinternalFormat.ml:2220:10>>*/  /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get
+         (str, str_ind);
      if(46 !== symb)
        /*<<camlinternalFormat.ml:2225:6>>*/ return parse_conversion
               (pct_ind,
@@ -18832,8 +19316,9 @@
        (end_ind, cst_unexpected_end_of_format);
      function parse_literal(minus, str_ind){
       var
-        /*<<camlinternalFormat.ml:2235:26>>*/ match =
-         parse_positive(str_ind, end_ind, 0),
+       match =
+          /*<<camlinternalFormat.ml:2235:26>>*/ parse_positive
+          (str_ind, end_ind, 0),
        prec = match[2],
        new_ind = match[1];
        /*<<camlinternalFormat.ml:2237:12>>*/ return parse_after_precision
@@ -18848,9 +19333,10 @@
                pad,
                [0, prec]);
       /*<<camlinternalFormat.ml:2237:32>>*/ }
-      /*<<camlinternalFormat.ml:2238:10>>*/ var
+     var
       symb$0 =
-         /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get(str, str_ind$0);
+         /*<<camlinternalFormat.ml:2238:10>>*/  /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get
+         (str, str_ind$0);
      if(48 <= symb$0){
       if(58 > symb$0)
         /*<<camlinternalFormat.ml:2239:20>>*/ return parse_literal
@@ -18874,7 +19360,7 @@
         case 3:
          if(legacy_behavior$0){
           var
-            /*<<camlinternalFormat.ml:2249:6>>*/ _ba_ = str_ind$0 + 1 | 0,
+           _ba_ =  /*<<camlinternalFormat.ml:2249:6>>*/ str_ind$0 + 1 | 0,
            minus$0 = minus || (45 === symb$0 ? 1 : 0);
            /*<<camlinternalFormat.ml:2249:6>>*/ return parse_literal
                   (minus$0, _ba_);
@@ -18943,12 +19429,12 @@
      padprec,
      symb){
      var
-       /*<<camlinternalFormat.ml:2295:21>>*/ plus_used = [0, 0],
-       /*<<camlinternalFormat.ml:2295:47>>*/ hash_used = [0, 0],
-       /*<<camlinternalFormat.ml:2296:21>>*/ space_used = [0, 0],
-       /*<<camlinternalFormat.ml:2296:48>>*/ ign_used = [0, 0],
-       /*<<camlinternalFormat.ml:2297:21>>*/ pad_used = [0, 0],
-       /*<<camlinternalFormat.ml:2297:48>>*/ prec_used = [0, 0];
+      plus_used =  /*<<camlinternalFormat.ml:2295:21>>*/ [0, 0],
+      hash_used =  /*<<camlinternalFormat.ml:2295:47>>*/ [0, 0],
+      space_used =  /*<<camlinternalFormat.ml:2296:21>>*/ [0, 0],
+      ign_used =  /*<<camlinternalFormat.ml:2296:48>>*/ [0, 0],
+      pad_used =  /*<<camlinternalFormat.ml:2297:21>>*/ [0, 0],
+      prec_used =  /*<<camlinternalFormat.ml:2297:48>>*/ [0, 0];
      function get_plus(param){
        /*<<camlinternalFormat.ml:2300:25>>*/ plus_used[1] = 1;
        /*<<camlinternalFormat.ml:2300:4>>*/ return plus;
@@ -18979,8 +19465,8 @@
       /*<<camlinternalFormat.ml:2306:52>>*/ }
      function get_int_pad(param){
       var
-        /*<<camlinternalFormat.ml:2320:13>>*/ pad = get_pad(0),
-        /*<<camlinternalFormat.ml:2320:25>>*/ match = get_prec(0);
+       pad =  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad(0),
+       match =  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec(0);
       if(typeof match === "number" && ! match)
         /*<<camlinternalFormat.ml:2321:32>>*/ return pad;
       if(typeof pad === "number")
@@ -19052,16 +19538,19 @@
           break a;
          case 40:
           var
-            /*<<camlinternalFormat.ml:2531:20>>*/ sub_end =
-             search_subformat_end(str_ind, end_ind, 41),
+           sub_end =
+              /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
+              (str_ind, end_ind, 41),
            fmt_rest$7 = parse(sub_end + 2 | 0, end_ind)[1],
            sub_fmt = parse(str_ind, sub_end)[1],
-            /*<<camlinternalFormat.ml:2534:22>>*/ sub_fmtty =
-             fmtty_of_fmt(sub_fmt);
+           sub_fmtty =
+              /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt(sub_fmt);
            /*<<camlinternalFormat.ml:2535:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2536:22>>*/ ignored$2 =
-              [9, get_pad_opt(95), sub_fmtty],
+            ignored$2 =
+               /*<<camlinternalFormat.ml:2536:22>>*/ [9,
+               get_pad_opt(95),
+               sub_fmtty],
             _aJ_ = [0, [23, ignored$2, fmt_rest$7]];
           else
            var _aJ_ = [0, [14, get_pad_opt(40), sub_fmtty, fmt_rest$7]];
@@ -19072,15 +19561,17 @@
          case 67:
           var
            fmt_rest$10 = parse(str_ind, end_ind)[1],
-            /*<<camlinternalFormat.ml:2397:9>>*/ _aL_ =
-             get_ign(0) ? [0, [23, 1, fmt_rest$10]] : [0, [1, fmt_rest$10]],
+           _aL_ =
+              /*<<camlinternalFormat.ml:2397:9>>*/ get_ign(0)
+              ? [0, [23, 1, fmt_rest$10]]
+              : [0, [1, fmt_rest$10]],
            fmt_result = _aL_;
           break a;
          case 78:
           var fmt_rest$14 = parse(str_ind, end_ind)[1], counter$0 = 2;
            /*<<camlinternalFormat.ml:2433:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2434:22>>*/ ignored$6 = [11, counter$0],
+            ignored$6 =  /*<<camlinternalFormat.ml:2434:22>>*/ [11, counter$0],
             _aR_ = [0, [23, ignored$6, fmt_rest$14]];
           else
            var _aR_ = [0, [21, counter$0, fmt_rest$14]];
@@ -19088,18 +19579,20 @@
           break a;
          case 83:
           var
-            /*<<camlinternalFormat.ml:2410:16>>*/ pad$6 =
-             check_no_0(symb, get_padprec(0)),
+           pad$6 =
+              /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
+              (symb, get_padprec(0)),
            fmt_rest$15 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2412:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2413:22>>*/ ignored$7 =
-              [1, get_padprec_opt(95)],
+            ignored$7 =
+               /*<<camlinternalFormat.ml:2413:22>>*/ [1, get_padprec_opt(95)],
             _aS_ = [0, [23, ignored$7, fmt_rest$15]];
           else
            var
-             /*<<camlinternalFormat.ml:2417:10>>*/ match$5 =
-              make_padding_fmt_ebb(pad$6, fmt_rest$15),
+            match$5 =
+               /*<<camlinternalFormat.ml:2417:10>>*/ make_padding_fmt_ebb
+               (pad$6, fmt_rest$15),
             fmt_rest$16 = match$5[2],
             pad$7 = match$5[1],
             _aS_ = [0, [3, pad$7, fmt_rest$16]];
@@ -19110,8 +19603,8 @@
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
           var
-            /*<<camlinternalFormat.ml:2719:19>>*/ char_set =
-             create_char_set(0),
+           char_set =
+              /*<<camlinternalFormat.ml:2719:19>>*/ create_char_set(0),
            add_range =
              function(c$0, c){
                /*<<camlinternalFormat.ml:2724:6>>*/ if(c >= c$0){
@@ -19121,7 +19614,7 @@
                  (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
                    (Stdlib[29], i));
-                 /*<<camlinternalFormat.ml:2725:8>>*/ var _a$_ = i + 1 | 0;
+                var _a$_ =  /*<<camlinternalFormat.ml:2725:8>>*/ i + 1 | 0;
                 if(c === i) break;
                 i = _a$_;
                }
@@ -19139,9 +19632,9 @@
                if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
-                /*<<camlinternalFormat.ml:2744:12>>*/ var
+               var
                 c =
-                   /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
+                   /*<<camlinternalFormat.ml:2744:12>>*/  /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
                    (str, str_ind$0);
                if(45 !== c){
                 if(93 === c)
@@ -19168,9 +19661,9 @@
                if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
-                /*<<camlinternalFormat.ml:2756:12>>*/ var
+               var
                 c$1 =
-                   /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
+                   /*<<camlinternalFormat.ml:2756:12>>*/  /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
                    (str, str_ind$0);
                a:
                {
@@ -19189,17 +19682,17 @@
                  if(str_ind$2 === end_ind)
                    /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                    (end_ind, cst_unexpected_end_of_format);
-                  /*<<camlinternalFormat.ml:2776:12>>*/ var
+                 var
                   c$2 =
-                     /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
+                     /*<<camlinternalFormat.ml:2776:12>>*/  /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
                      (str, str_ind$2);
                  if(37 === c$2){
                   if((str_ind$2 + 1 | 0) === end_ind)
                     /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                     (end_ind, cst_unexpected_end_of_format);
-                   /*<<camlinternalFormat.ml:2783:20>>*/ var
+                  var
                    c$3 =
-                      /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
+                      /*<<camlinternalFormat.ml:2783:20>>*/  /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
                       (str, str_ind$2 + 1 | 0);
                   if(37 !== c$3 && 64 !== c$3)
                     /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
@@ -19275,20 +19768,25 @@
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
           var
-            /*<<camlinternalFormat.ml:2738:14>>*/ c =
-              /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
+           c =
+              /*<<camlinternalFormat.ml:2738:14>>*/  /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
               (str, str_ind$1),
-            /*<<camlinternalFormat.ml:2739:6>>*/ next_ind =
-             parse_char_set_after_char(str_ind$1 + 1 | 0, end_ind, c),
-            /*<<camlinternalFormat.ml:2799:19>>*/ char_set$0 =
-             freeze_char_set(char_set),
-            /*<<camlinternalFormat.ml:2800:4>>*/ char_set$1 =
-             reverse ? rev_char_set(char_set$0) : char_set$0,
+           next_ind =
+              /*<<camlinternalFormat.ml:2739:6>>*/ parse_char_set_after_char
+              (str_ind$1 + 1 | 0, end_ind, c),
+           char_set$0 =
+              /*<<camlinternalFormat.ml:2799:19>>*/ freeze_char_set(char_set),
+           char_set$1 =
+              /*<<camlinternalFormat.ml:2800:4>>*/ reverse
+              ? rev_char_set(char_set$0)
+              : char_set$0,
            fmt_rest$19 = parse(next_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2543:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2544:22>>*/ ignored$9 =
-              [10, get_pad_opt(95), char_set$1],
+            ignored$9 =
+               /*<<camlinternalFormat.ml:2544:22>>*/ [10,
+               get_pad_opt(95),
+               char_set$1],
             _aX_ = [0, [23, ignored$9, fmt_rest$19]];
           else
            var _aX_ = [0, [20, get_pad_opt(91), char_set$1, fmt_rest$19]];
@@ -19308,12 +19806,14 @@
                       : [0, [0, fmt_rest]];
               /*<<camlinternalFormat.ml:2379:36>>*/ },
            fmt_rest$21 = parse(str_ind, end_ind)[1],
-            /*<<camlinternalFormat.ml:2387:18>>*/ match$7 = get_pad_opt(99);
+           match$7 =  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt(99);
           if(match$7){
            if(0 === match$7[1])
             var
-              /*<<camlinternalFormat.ml:2382:11>>*/ _aY_ =
-               get_ign(0) ? [0, [23, 3, fmt_rest$21]] : [0, [22, fmt_rest$21]],
+             _aY_ =
+                /*<<camlinternalFormat.ml:2382:11>>*/ get_ign(0)
+                ? [0, [23, 3, fmt_rest$21]]
+                : [0, [22, fmt_rest$21]],
              _aZ_ = _aY_;
            else
             var
@@ -19331,24 +19831,28 @@
          case 114:
           var
            fmt_rest$22 = parse(str_ind, end_ind)[1],
-            /*<<camlinternalFormat.ml:2512:9>>*/ _a1_ =
-             get_ign(0) ? [0, [23, 2, fmt_rest$22]] : [0, [19, fmt_rest$22]],
+           _a1_ =
+              /*<<camlinternalFormat.ml:2512:9>>*/ get_ign(0)
+              ? [0, [23, 2, fmt_rest$22]]
+              : [0, [19, fmt_rest$22]],
            fmt_result = _a1_;
           break a;
          case 115:
           var
-            /*<<camlinternalFormat.ml:2400:16>>*/ pad$9 =
-             check_no_0(symb, get_padprec(0)),
+           pad$9 =
+              /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
+              (symb, get_padprec(0)),
            fmt_rest$23 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2402:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2403:22>>*/ ignored$10 =
-              [0, get_padprec_opt(95)],
+            ignored$10 =
+               /*<<camlinternalFormat.ml:2403:22>>*/ [0, get_padprec_opt(95)],
             _a2_ = [0, [23, ignored$10, fmt_rest$23]];
           else
            var
-             /*<<camlinternalFormat.ml:2407:10>>*/ match$8 =
-              make_padding_fmt_ebb(pad$9, fmt_rest$23),
+            match$8 =
+               /*<<camlinternalFormat.ml:2407:10>>*/ make_padding_fmt_ebb
+               (pad$9, fmt_rest$23),
             fmt_rest$24 = match$8[2],
             pad$10 = match$8[1],
             _a2_ = [0, [2, pad$10, fmt_rest$24]];
@@ -19361,16 +19865,19 @@
           break a;
          case 123:
           var
-            /*<<camlinternalFormat.ml:2521:20>>*/ sub_end$0 =
-             search_subformat_end(str_ind, end_ind, 125),
+           sub_end$0 =
+              /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
+              (str_ind, end_ind, 125),
            sub_fmt$0 = parse(str_ind, sub_end$0)[1],
            fmt_rest$26 = parse(sub_end$0 + 2 | 0, end_ind)[1],
-            /*<<camlinternalFormat.ml:2524:22>>*/ sub_fmtty$0 =
-             fmtty_of_fmt(sub_fmt$0);
+           sub_fmtty$0 =
+              /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt(sub_fmt$0);
            /*<<camlinternalFormat.ml:2525:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2526:22>>*/ ignored$11 =
-              [8, get_pad_opt(95), sub_fmtty$0],
+            ignored$11 =
+               /*<<camlinternalFormat.ml:2526:22>>*/ [8,
+               get_pad_opt(95),
+               sub_fmtty$0],
             _a3_ = [0, [23, ignored$11, fmt_rest$26]];
           else
            var _a3_ = [0, [13, get_pad_opt(123), sub_fmtty$0, fmt_rest$26]];
@@ -19379,18 +19886,20 @@
          case 66:
          case 98:
           var
-            /*<<camlinternalFormat.ml:2495:16>>*/ pad$3 =
-             check_no_0(symb, get_padprec(0)),
+           pad$3 =
+              /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
+              (symb, get_padprec(0)),
            fmt_rest$8 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2497:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2498:22>>*/ ignored$3 =
-              [7, get_padprec_opt(95)],
+            ignored$3 =
+               /*<<camlinternalFormat.ml:2498:22>>*/ [7, get_padprec_opt(95)],
             _aK_ = [0, [23, ignored$3, fmt_rest$8]];
           else
            var
-             /*<<camlinternalFormat.ml:2502:10>>*/ match$3 =
-              make_padding_fmt_ebb(pad$3, fmt_rest$8),
+            match$3 =
+               /*<<camlinternalFormat.ml:2502:10>>*/ make_padding_fmt_ebb
+               (pad$3, fmt_rest$8),
             fmt_rest$9 = match$3[2],
             pad$4 = match$3[1],
             _aK_ = [0, [9, pad$4, fmt_rest$9]];
@@ -19407,10 +19916,10 @@
          case 110:
           if(str_ind !== end_ind){
            var
-             /*<<camlinternalFormat.ml:2438:63>>*/ symb$0 =
-               /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
+            symb$0 =
+               /*<<camlinternalFormat.ml:2438:63>>*/  /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
                (str, str_ind),
-             /*<<camlinternalFormat.ml:2892:25>>*/ _a4_ = symb$0 - 88 | 0;
+            _a4_ =  /*<<camlinternalFormat.ml:2892:25>>*/ symb$0 - 88 | 0;
            b:
            {
             if(32 >= _a4_ >>> 0)
@@ -19445,7 +19954,7 @@
           }
            /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2442:22>>*/ ignored$5 = [11, counter],
+            ignored$5 =  /*<<camlinternalFormat.ml:2442:22>>*/ [11, counter],
             _aP_ = [0, [23, ignored$5, fmt_rest$13]];
           else
            var _aP_ = [0, [21, counter, fmt_rest$13]];
@@ -19468,21 +19977,25 @@
          case 117:
          case 120:
           var
-            /*<<camlinternalFormat.ml:2421:8>>*/ _aT_ = get_space(0),
-            /*<<camlinternalFormat.ml:2420:65>>*/ _aU_ = get_hash(0),
-            /*<<camlinternalFormat.ml:2420:18>>*/ iconv$2 =
-             compute_int_conv(pct_ind, str_ind, get_plus(0), _aU_, _aT_, symb),
+           _aT_ =  /*<<camlinternalFormat.ml:2421:8>>*/ get_space(0),
+           _aU_ =  /*<<camlinternalFormat.ml:2420:65>>*/ get_hash(0),
+           iconv$2 =
+              /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
+              (pct_ind, str_ind, get_plus(0), _aU_, _aT_, symb),
            fmt_rest$17 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2423:9>>*/ if(get_ign(0))
            var
-             /*<<camlinternalFormat.ml:2424:22>>*/ ignored$8 =
-              [2, iconv$2, get_pad_opt(95)],
+            ignored$8 =
+               /*<<camlinternalFormat.ml:2424:22>>*/ [2,
+               iconv$2,
+               get_pad_opt(95)],
             _aV_ = [0, [23, ignored$8, fmt_rest$17]];
           else
            var
-             /*<<camlinternalFormat.ml:2428:48>>*/ _aW_ = get_prec(0),
-             /*<<camlinternalFormat.ml:2428:10>>*/ match$6 =
-              make_padprec_fmt_ebb(get_int_pad(0), _aW_, fmt_rest$17),
+            _aW_ =  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec(0),
+            match$6 =
+               /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
+               (get_int_pad(0), _aW_, fmt_rest$17),
             fmt_rest$18 = match$6[3],
             prec$4 = match$6[2],
             pad$8 = match$6[1],
@@ -19498,9 +20011,9 @@
          case 103:
          case 104:
           var
-            /*<<camlinternalFormat.ml:2485:38>>*/ space$1 = get_space(0),
-            /*<<camlinternalFormat.ml:2485:24>>*/ hash$1 = get_hash(0),
-            /*<<camlinternalFormat.ml:2485:10>>*/ plus$2 = get_plus(0),
+           space$1 =  /*<<camlinternalFormat.ml:2485:38>>*/ get_space(0),
+           hash$1 =  /*<<camlinternalFormat.ml:2485:24>>*/ get_hash(0),
+           plus$2 =  /*<<camlinternalFormat.ml:2485:10>>*/ get_plus(0),
            flag =
              plus$2
               ? space$1
@@ -19549,10 +20062,10 @@
                   ([0, Assert_failure, _X_], 1);
           }
           var
-            /*<<camlinternalFormat.ml:2958:4>>*/ fconv = [0, flag, kind],
+           fconv =  /*<<camlinternalFormat.ml:2958:4>>*/ [0, flag, kind],
            fmt_rest$11 = parse(str_ind, end_ind)[1];
            /*<<camlinternalFormat.ml:2487:9>>*/ if(get_ign(0)){
-            /*<<camlinternalFormat.ml:2366:32>>*/ var match = get_prec(0);
+           var match =  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec(0);
            if(typeof match === "number")
             var
              _aM_ =
@@ -19560,15 +20073,18 @@
            else
             var ndec = match[1], _aM_ = [0, ndec];
            var
-             /*<<camlinternalFormat.ml:2488:22>>*/ ignored$4 =
-              [6, get_pad_opt(95), _aM_],
+            ignored$4 =
+               /*<<camlinternalFormat.ml:2488:22>>*/ [6,
+               get_pad_opt(95),
+               _aM_],
             _aN_ = [0, [23, ignored$4, fmt_rest$11]];
           }
           else
            var
-             /*<<camlinternalFormat.ml:2492:44>>*/ _aO_ = get_prec(0),
-             /*<<camlinternalFormat.ml:2492:10>>*/ match$4 =
-              make_padprec_fmt_ebb(get_pad(0), _aO_, fmt_rest$11),
+            _aO_ =  /*<<camlinternalFormat.ml:2492:44>>*/ get_prec(0),
+            match$4 =
+               /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
+               (get_pad(0), _aO_, fmt_rest$11),
             fmt_rest$12 = match$4[3],
             prec$3 = match$4[2],
             pad$5 = match$4[1],
@@ -19582,25 +20098,28 @@
         switch(symb - 108 | 0){
           case 0:
            var
-             /*<<camlinternalFormat.ml:2449:25>>*/ _at_ =
-               /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
+            _at_ =
+               /*<<camlinternalFormat.ml:2449:25>>*/  /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
                (str, str_ind),
-             /*<<camlinternalFormat.ml:2449:10>>*/ _au_ = get_space(0),
-             /*<<camlinternalFormat.ml:2448:61>>*/ _av_ = get_hash(0),
-             /*<<camlinternalFormat.ml:2448:8>>*/ iconv =
-              compute_int_conv
+            _au_ =  /*<<camlinternalFormat.ml:2449:10>>*/ get_space(0),
+            _av_ =  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash(0),
+            iconv =
+               /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
                (pct_ind, str_ind + 1 | 0, get_plus(0), _av_, _au_, _at_),
             fmt_rest = parse(str_ind + 1 | 0, end_ind)[1];
             /*<<camlinternalFormat.ml:2451:9>>*/ if(get_ign(0))
             var
-              /*<<camlinternalFormat.ml:2452:22>>*/ ignored =
-               [3, iconv, get_pad_opt(95)],
+             ignored =
+                /*<<camlinternalFormat.ml:2452:22>>*/ [3,
+                iconv,
+                get_pad_opt(95)],
              _aw_ = [0, [23, ignored, fmt_rest]];
            else
             var
-              /*<<camlinternalFormat.ml:2456:48>>*/ _ay_ = get_prec(0),
-              /*<<camlinternalFormat.ml:2456:10>>*/ match$0 =
-               make_padprec_fmt_ebb(get_int_pad(0), _ay_, fmt_rest),
+             _ay_ =  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec(0),
+             match$0 =
+                /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
+                (get_int_pad(0), _ay_, fmt_rest),
              fmt_rest$0 = match$0[3],
              prec$0 = match$0[2],
              pad$0 = match$0[1],
@@ -19611,25 +20130,28 @@
            break b;
           default:
            var
-             /*<<camlinternalFormat.ml:2461:39>>*/ _az_ =
-               /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
+            _az_ =
+               /*<<camlinternalFormat.ml:2461:39>>*/  /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
                (str, str_ind),
-             /*<<camlinternalFormat.ml:2461:24>>*/ _aA_ = get_space(0),
-             /*<<camlinternalFormat.ml:2461:10>>*/ _aB_ = get_hash(0),
-             /*<<camlinternalFormat.ml:2460:8>>*/ iconv$0 =
-              compute_int_conv
+            _aA_ =  /*<<camlinternalFormat.ml:2461:24>>*/ get_space(0),
+            _aB_ =  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash(0),
+            iconv$0 =
+               /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
                (pct_ind, str_ind + 1 | 0, get_plus(0), _aB_, _aA_, _az_),
             fmt_rest$1 = parse(str_ind + 1 | 0, end_ind)[1];
             /*<<camlinternalFormat.ml:2463:9>>*/ if(get_ign(0))
             var
-              /*<<camlinternalFormat.ml:2464:22>>*/ ignored$0 =
-               [4, iconv$0, get_pad_opt(95)],
+             ignored$0 =
+                /*<<camlinternalFormat.ml:2464:22>>*/ [4,
+                iconv$0,
+                get_pad_opt(95)],
              _aC_ = [0, [23, ignored$0, fmt_rest$1]];
            else
             var
-              /*<<camlinternalFormat.ml:2468:48>>*/ _aD_ = get_prec(0),
-              /*<<camlinternalFormat.ml:2468:10>>*/ match$1 =
-               make_padprec_fmt_ebb(get_int_pad(0), _aD_, fmt_rest$1),
+             _aD_ =  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec(0),
+             match$1 =
+                /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
+                (get_int_pad(0), _aD_, fmt_rest$1),
              fmt_rest$2 = match$1[3],
              prec$1 = match$1[2],
              pad$1 = match$1[1],
@@ -19642,24 +20164,28 @@
       }
       else if(76 === symb){
        var
-         /*<<camlinternalFormat.ml:2473:25>>*/ _aE_ =
-           /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get(str, str_ind),
-         /*<<camlinternalFormat.ml:2473:10>>*/ _aF_ = get_space(0),
-         /*<<camlinternalFormat.ml:2472:61>>*/ _aG_ = get_hash(0),
-         /*<<camlinternalFormat.ml:2472:8>>*/ iconv$1 =
-          compute_int_conv
+        _aE_ =
+           /*<<camlinternalFormat.ml:2473:25>>*/  /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get
+           (str, str_ind),
+        _aF_ =  /*<<camlinternalFormat.ml:2473:10>>*/ get_space(0),
+        _aG_ =  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash(0),
+        iconv$1 =
+           /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
            (pct_ind, str_ind + 1 | 0, get_plus(0), _aG_, _aF_, _aE_),
         fmt_rest$3 = parse(str_ind + 1 | 0, end_ind)[1];
         /*<<camlinternalFormat.ml:2475:9>>*/ if(get_ign(0))
         var
-          /*<<camlinternalFormat.ml:2476:22>>*/ ignored$1 =
-           [5, iconv$1, get_pad_opt(95)],
+         ignored$1 =
+            /*<<camlinternalFormat.ml:2476:22>>*/ [5,
+            iconv$1,
+            get_pad_opt(95)],
          _aH_ = [0, [23, ignored$1, fmt_rest$3]];
        else
         var
-          /*<<camlinternalFormat.ml:2480:48>>*/ _aI_ = get_prec(0),
-          /*<<camlinternalFormat.ml:2480:10>>*/ match$2 =
-           make_padprec_fmt_ebb(get_int_pad(0), _aI_, fmt_rest$3),
+         _aI_ =  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec(0),
+         match$2 =
+            /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
+            (get_int_pad(0), _aI_, fmt_rest$3),
          fmt_rest$4 = match$2[3],
          prec$2 = match$2[2],
          pad$2 = match$2[1],
@@ -19739,25 +20265,28 @@
           /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
         /*<<camlinternalFormat.ml:2653:8>>*/ throw  /*<<camlinternalFormat.ml:2653:8>>*/ caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-       /*<<camlinternalFormat.ml:2643:18>>*/ var
+      var
        ind =
-          /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
+          /*<<camlinternalFormat.ml:2643:18>>*/  /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
           (Stdlib_String[32], str, str_ind + 1 | 0, 62);
       if(end_ind <= ind)
         /*<<camlinternalFormat.ml:2644:31>>*/ throw  /*<<camlinternalFormat.ml:2644:31>>*/ caml_maybe_attach_backtrace
               (Stdlib[8], 1);
       var
-        /*<<camlinternalFormat.ml:2645:22>>*/ sub_str =
-          /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
+       sub_str =
+          /*<<camlinternalFormat.ml:2645:22>>*/  /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
           (Stdlib_String[16], str, str_ind, (ind - str_ind | 0) + 1 | 0),
        fmt_rest$0 = parse(ind + 1 | 0, end_ind)[1],
        sub_fmt = parse(str_ind, ind + 1 | 0)[1],
-        /*<<camlinternalFormat.ml:2648:25>>*/ sub_format$0 =
-         [0, sub_fmt, sub_str],
-        /*<<camlinternalFormat.ml:2649:8>>*/ formatting$0 =
-         is_open_tag ? [0, sub_format$0] : [1, sub_format$0],
-        /*<<camlinternalFormat.ml:2651:8>>*/ _ai_ =
-         [0, [18, formatting$0, fmt_rest$0]];
+       sub_format$0 =
+          /*<<camlinternalFormat.ml:2648:25>>*/ [0, sub_fmt, sub_str],
+       formatting$0 =
+          /*<<camlinternalFormat.ml:2649:8>>*/ is_open_tag
+          ? [0, sub_format$0]
+          : [1, sub_format$0],
+       _ai_ =
+          /*<<camlinternalFormat.ml:2651:8>>*/ [0,
+          [18, formatting$0, fmt_rest$0]];
        /*<<camlinternalFormat.ml:2651:8>>*/ return _ai_;
      }
      catch(_aj_){
@@ -19765,8 +20294,10 @@
       if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
       var
        fmt_rest = parse(str_ind, end_ind)[1],
-        /*<<camlinternalFormat.ml:2657:6>>*/ formatting =
-         is_open_tag ? [0, sub_format] : [1, sub_format];
+       formatting =
+          /*<<camlinternalFormat.ml:2657:6>>*/ is_open_tag
+          ? [0, sub_format]
+          : [1, sub_format];
        /*<<camlinternalFormat.ml:2659:6>>*/ return [0,
               [18, formatting, fmt_rest]];
      }
@@ -19792,15 +20323,15 @@
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
-       /*<<camlinternalFormat.ml:2811:10>>*/ var
+      var
        c =
-          /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
+          /*<<camlinternalFormat.ml:2811:10>>*/  /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
           (str, str_ind$0);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0];
       var new_acc = (acc$0 * 10 | 0) + (c - 48 | 0) | 0;
       if(Stdlib_Sys[12] < new_acc){
-        /*<<camlinternalFormat.ml:2815:8>>*/ var _ag_ = Stdlib_Sys[12];
+       var _ag_ =  /*<<camlinternalFormat.ml:2815:8>>*/ Stdlib_Sys[12];
         /*<<camlinternalFormat.ml:2815:8>>*/ return  /*<<camlinternalFormat.ml:2815:8>>*/ caml_call3
                (failwith_message(_S_), str, new_acc, _ag_);
       }
@@ -19813,9 +20344,10 @@
       /*<<camlinternalFormat.ml:2825:4>>*/ if(str_ind === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
-      /*<<camlinternalFormat.ml:2826:10>>*/ var
+     var
       match =
-         /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get(str, str_ind);
+         /*<<camlinternalFormat.ml:2826:10>>*/  /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get
+         (str, str_ind);
      if(48 <= match){
       if(58 > match)
         /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
@@ -19825,16 +20357,17 @@
       if((str_ind + 1 | 0) === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
-       /*<<camlinternalFormat.ml:2830:12>>*/ var
+      var
        c =
-          /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
+          /*<<camlinternalFormat.ml:2830:12>>*/  /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
           (str, str_ind + 1 | 0);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
                (str_ind + 1 | 0, cst_digit, c);
       var
-        /*<<camlinternalFormat.ml:2832:26>>*/ match$0 =
-         parse_positive(str_ind + 1 | 0, end_ind, 0),
+       match$0 =
+          /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
+          (str_ind + 1 | 0, end_ind, 0),
        n = match$0[2],
        next_ind = match$0[1];
        /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0];
@@ -19878,9 +20411,9 @@
           (str, str_ind$0 + 1 | 0)
          === c)
          /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0;
-        /*<<camlinternalFormat.ml:2859:20>>*/ var
+       var
         match =
-           /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:2859:20>>*/  /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
            (str, str_ind$0 + 1 | 0);
        if(95 <= match){
         if(123 <= match){
@@ -19888,10 +20421,11 @@
           switch(match - 123 | 0){
             case 0:
              var
-               /*<<camlinternalFormat.ml:2874:24>>*/ sub_end =
-                search_subformat_end(str_ind$0 + 2 | 0, end_ind, 125),
-               /*<<camlinternalFormat.ml:2874:24>>*/ str_ind$2 =
-                sub_end + 2 | 0;
+              sub_end =
+                 /*<<camlinternalFormat.ml:2874:24>>*/ search_subformat_end
+                 (str_ind$0 + 2 | 0, end_ind, 125),
+              str_ind$2 =
+                 /*<<camlinternalFormat.ml:2874:24>>*/ sub_end + 2 | 0;
              str_ind$0 = str_ind$2;
              continue;
             case 1: break;
@@ -19904,25 +20438,27 @@
          if((str_ind$0 + 2 | 0) === end_ind)
            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
            (end_ind, cst_unexpected_end_of_format);
-          /*<<camlinternalFormat.ml:2863:22>>*/ var
+         var
           match$0 =
-             /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
+             /*<<camlinternalFormat.ml:2863:22>>*/  /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
              (str, str_ind$0 + 2 | 0);
          if(40 === match$0){
           var
-            /*<<camlinternalFormat.ml:2868:26>>*/ sub_end$0 =
-             search_subformat_end(str_ind$0 + 3 | 0, end_ind, 41),
-            /*<<camlinternalFormat.ml:2868:26>>*/ str_ind$3 =
-             sub_end$0 + 2 | 0;
+           sub_end$0 =
+              /*<<camlinternalFormat.ml:2868:26>>*/ search_subformat_end
+              (str_ind$0 + 3 | 0, end_ind, 41),
+           str_ind$3 =
+              /*<<camlinternalFormat.ml:2868:26>>*/ sub_end$0 + 2 | 0;
           str_ind$0 = str_ind$3;
           continue;
          }
          if(123 === match$0){
           var
-            /*<<camlinternalFormat.ml:2865:26>>*/ sub_end$1 =
-             search_subformat_end(str_ind$0 + 3 | 0, end_ind, 125),
-            /*<<camlinternalFormat.ml:2865:26>>*/ str_ind$4 =
-             sub_end$1 + 2 | 0;
+           sub_end$1 =
+              /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
+              (str_ind$0 + 3 | 0, end_ind, 125),
+           str_ind$4 =
+              /*<<camlinternalFormat.ml:2865:26>>*/ sub_end$1 + 2 | 0;
           str_ind$0 = str_ind$4;
           continue;
          }
@@ -19934,9 +20470,10 @@
        else{
         if(40 === match){
          var
-           /*<<camlinternalFormat.ml:2878:24>>*/ sub_end$2 =
-            search_subformat_end(str_ind$0 + 2 | 0, end_ind, 41),
-           /*<<camlinternalFormat.ml:2878:24>>*/ str_ind$6 = sub_end$2 + 2 | 0;
+          sub_end$2 =
+             /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
+             (str_ind$0 + 2 | 0, end_ind, 41),
+          str_ind$6 =  /*<<camlinternalFormat.ml:2878:24>>*/ sub_end$2 + 2 | 0;
          str_ind$0 = str_ind$6;
          continue;
         }
@@ -20057,9 +20594,9 @@
      }
      /*<<camlinternalFormat.ml:2935:40>>*/ }
     function incompatible_flag(pct_ind, str_ind, symb, option){
-      /*<<camlinternalFormat.ml:2963:19>>*/ var
+     var
       subfmt =
-         /*<<camlinternalFormat.ml:2963:19>>*/ caml_call3
+         /*<<camlinternalFormat.ml:2963:19>>*/  /*<<camlinternalFormat.ml:2963:19>>*/ caml_call3
          (Stdlib_String[16], str, pct_ind, str_ind - pct_ind | 0);
       /*<<camlinternalFormat.ml:2964:6>>*/ return  /*<<camlinternalFormat.ml:2964:6>>*/ caml_call5
              (failwith_message(_Y_), str, pct_ind, option, symb, subfmt);
@@ -20069,14 +20606,17 @@
    function format_of_string_fmtty(str, fmtty){
     var fmt = fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2978:2>>*/ try{
-      /*<<camlinternalFormat.ml:2978:6>>*/ var
-      _ae_ = [0, type_format(fmt, fmtty), str];
+     var
+      _ae_ =
+         /*<<camlinternalFormat.ml:2978:6>>*/ [0,
+         type_format(fmt, fmtty),
+         str];
       /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_;
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
      if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
-      /*<<camlinternalFormat.ml:2982:10>>*/ var _ad_ = string_of_fmtty(fmtty);
+     var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
       /*<<camlinternalFormat.ml:2982:10>>*/ return  /*<<camlinternalFormat.ml:2982:10>>*/ caml_call2
              (failwith_message(_Z_), str, _ad_);
     }
@@ -20087,8 +20627,11 @@
      fmt = param[1],
      fmt$0 = fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2988:2>>*/ try{
-      /*<<camlinternalFormat.ml:2988:6>>*/ var
-      _aa_ = [0, type_format(fmt$0, fmtty_of_fmt(fmt)), str];
+     var
+      _aa_ =
+         /*<<camlinternalFormat.ml:2988:6>>*/ [0,
+         type_format(fmt$0, fmtty_of_fmt(fmt)),
+         str];
       /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_;
     }
     catch(_ab_){
@@ -20135,7 +20678,7 @@
 (function
   (globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -20210,8 +20753,10 @@
    function ksprintf(k, param){
     var fmt = param[1];
     function k$0(acc){
-      /*<<printf.ml:36:14>>*/ var
-      buf =  /*<<printf.ml:36:14>>*/ caml_call1(Stdlib_Buffer[1], 64);
+     var
+      buf =
+         /*<<printf.ml:36:14>>*/  /*<<printf.ml:36:14>>*/ caml_call1
+         (Stdlib_Buffer[1], 64);
       /*<<printf.ml:37:4>>*/  /*<<printf.ml:37:4>>*/ caml_call2
       (CamlinternalFormat[11], buf, acc);
       /*<<printf.ml:38:6>>*/ return  /*<<printf.ml:38:6>>*/ caml_call1
@@ -20254,18 +20799,18 @@
   (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",
-     /*<<?>>*/ 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;
+    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",
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -20492,11 +21037,11 @@
                /*<<dynarray.ml:229:47>>*/ })];
     /*<<dynarray.ml:230:3>>*/ }
    function get(a, i){
-     /*<<dynarray.ml:238:8>>*/ var match = caml_check_bound(a[2], i)[1 + i];
+    var match =  /*<<dynarray.ml:238:8>>*/ 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:8>>*/ var match = caml_check_bound(a[2], i)[1 + i];
+    var match =  /*<<dynarray.ml:246:8>>*/ caml_check_bound(a[2], i)[1 + i];
     return match
             ? (match[1] = x, 0)
             : unexpected_empty_element(cst_set, i, a[1]);
@@ -20516,7 +21061,7 @@
              (Stdlib_Array[1],
               length,
               function(i){
-                /*<<dynarray.ml:262:14>>*/ var v = unsafe_get(arr, i, length);
+               var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
                 /*<<dynarray.ml:263:11>>*/ return [0, v];
                /*<<dynarray.ml:263:14>>*/ })];
    }
@@ -20540,7 +21085,7 @@
       /*<<dynarray.ml:290:21>>*/ throw  /*<<dynarray.ml:290:21>>*/ caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var
-      /*<<dynarray.ml:291:2>>*/ last = length - 1 | 0,
+     last =  /*<<dynarray.ml:291:2>>*/ length - 1 | 0,
      match = arr[1 + last];
     return match
             ? (arr[1 + last] = 0, a[1] = last, match[1])
@@ -20548,7 +21093,7 @@
     /*<<dynarray.ml:299:9>>*/ }
    function pop_last_opt(a){
      /*<<dynarray.ml:302:2>>*/ try{
-      /*<<dynarray.ml:302:8>>*/ var x = pop_last(a);
+     var x =  /*<<dynarray.ml:302:8>>*/ pop_last(a);
     }
     catch(_U_){
      var _T_ = caml_wrap_exception(_U_);
@@ -20559,7 +21104,7 @@
     /*<<dynarray.ml:304:15>>*/ }
    function remove_last(a){
     var
-      /*<<dynarray.ml:307:13>>*/ last = a[1] - 1 | 0,
+     last =  /*<<dynarray.ml:307:13>>*/ a[1] - 1 | 0,
      _R_ = 0 <= last ? 1 : 0,
      _S_ =
        _R_
@@ -20586,7 +21131,7 @@
      /*<<dynarray.ml:327:17>>*/ return a[2].length - 1;
     /*<<dynarray.ml:327:35>>*/ }
    function ensure_capacity(a, capacity_request){
-    var arr = a[2],  /*<<dynarray.ml:349:2>>*/ cur_capacity = arr.length - 1;
+    var arr = a[2], cur_capacity =  /*<<dynarray.ml:349:2>>*/ arr.length - 1;
      /*<<dynarray.ml:350:2>>*/ if(0 > capacity_request)
       /*<<dynarray.ml:351:4>>*/ return negative_capacity_requested
              (cst_ensure_capacity, capacity_request);
@@ -20605,15 +21150,18 @@
         ? 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
+     _P_ =
+        /*<<dynarray.ml:345:6>>*/  /*<<dynarray.ml:345:6>>*/ caml_call2
+        (Stdlib[17], 8, n),
+     _Q_ =
+        /*<<dynarray.ml:345:2>>*/  /*<<dynarray.ml:345:2>>*/ caml_call2
+        (Stdlib[16], _P_, _O_),
+     new_capacity =
+        /*<<dynarray.ml:375:6>>*/  /*<<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);
+     new_arr =
+        /*<<dynarray.ml:376:18>>*/  /*<<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;
@@ -20643,7 +21191,7 @@
      /*<<dynarray.ml:393:2>>*/ if(n < 0)
       /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
       (cst_set_capacity, n);
-    var arr = a[2],  /*<<dynarray.ml:396:2>>*/ cur_capacity = arr.length - 1;
+    var arr = a[2], cur_capacity =  /*<<dynarray.ml:396:2>>*/ 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);
@@ -20651,8 +21199,10 @@
     }
     var _L_ = cur_capacity < n ? 1 : 0;
     if(_L_){
-      /*<<dynarray.ml:402:18>>*/ var
-      new_arr =  /*<<dynarray.ml:402:18>>*/ caml_make_vect(n, 0);
+     var
+      new_arr =
+         /*<<dynarray.ml:402:18>>*/  /*<<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;
@@ -20674,12 +21224,12 @@
             : (a[1] = length + 1 | 0, arr[1 + length] = elem, 1);
     /*<<dynarray.ml:435:5>>*/ }
    function add_last(a, x){
-     /*<<dynarray.ml:438:18>>*/ var elem = [0, x];
+    var elem =  /*<<dynarray.ml:438:18>>*/ [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>>*/ var _K_ = 1 - add_last_if_room(a, elem);
+     var _K_ =  /*<<dynarray.ml:444:13>>*/ 1 - add_last_if_room(a, elem);
      if(! _K_)  /*<<dynarray.ml:444:13>>*/ return _K_;
     }
     /*<<dynarray.ml:447:5>>*/ }
@@ -20712,19 +21262,19 @@
     var
      length_a = a[1],
      arr = a[2],
-      /*<<dynarray.ml:464:2>>*/ length_b = b.length - 1;
+     length_b =  /*<<dynarray.ml:464:2>>*/ 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;
     var
-      /*<<dynarray.ml:464:2>>*/ _I_ = length_b - 1 | 0,
-      /*<<dynarray.ml:495:4>>*/ _H_ = 0;
+     _I_ =  /*<<dynarray.ml:464:2>>*/ length_b - 1 | 0,
+     _H_ =  /*<<dynarray.ml:495:4>>*/ 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-       /*<<dynarray.ml:496:14>>*/ var x = b[1 + i];
+      var x =  /*<<dynarray.ml:496:14>>*/ b[1 + i];
       arr[1 + (length_a + i | 0)] = [0, x];
-       /*<<dynarray.ml:495:4>>*/ var _J_ = i + 1 | 0;
+      var _J_ =  /*<<dynarray.ml:495:4>>*/ i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
@@ -20736,7 +21286,7 @@
       /*<<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>>*/ var _G_ = 1 - append_array_if_room(a, b);
+     var _G_ =  /*<<dynarray.ml:508:13>>*/ 1 - append_array_if_room(a, b);
      if(! _G_)  /*<<dynarray.ml:508:13>>*/ return _G_;
     }
     /*<<dynarray.ml:510:31>>*/ }
@@ -20747,13 +21297,13 @@
     a[1] = length_a + length_b | 0;
     var arr_b = b[2];
      /*<<dynarray.ml:526:4>>*/ check_valid_length(length_b, arr_b);
-    var _E_ = length_b - 1 | 0,  /*<<dynarray.ml:526:4>>*/ _D_ = 0;
+    var _E_ = length_b - 1 | 0, _D_ =  /*<<dynarray.ml:526:4>>*/ 0;
     if(_E_ >= 0){
      var i = _D_;
      for(;;){
-       /*<<dynarray.ml:528:14>>*/ var x = unsafe_get(arr_b, i, length_b);
+      var x =  /*<<dynarray.ml:528:14>>*/ unsafe_get(arr_b, i, length_b);
       arr_a[1 + (length_a + i | 0)] = [0, x];
-       /*<<dynarray.ml:526:4>>*/ var _F_ = i + 1 | 0;
+      var _F_ =  /*<<dynarray.ml:526:4>>*/ i + 1 | 0;
       if(_E_ === i) break;
       i = _F_;
      }
@@ -20768,20 +21318,20 @@
      /*<<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>>*/ var _C_ = 1 - append_if_room(a, b, length_b);
+     var _C_ =  /*<<dynarray.ml:549:13>>*/ 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){
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:596:2>>*/ check_valid_length(length, arr);
-    var _A_ = length - 1 | 0,  /*<<dynarray.ml:596:2>>*/ _z_ = 0;
+    var _A_ = length - 1 | 0, _z_ =  /*<<dynarray.ml:596:2>>*/ 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>>*/ var _B_ = i + 1 | 0;
+      var _B_ =  /*<<dynarray.ml:598:4>>*/ i + 1 | 0;
       if(_A_ === i) break;
       i = _B_;
      }
@@ -20794,13 +21344,13 @@
    function iteri(k, a){
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:607:2>>*/ check_valid_length(length, arr);
-    var _x_ = length - 1 | 0,  /*<<dynarray.ml:607:2>>*/ _w_ = 0;
+    var _x_ = length - 1 | 0, _w_ =  /*<<dynarray.ml:607:2>>*/ 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>>*/ var _y_ = i + 1 | 0;
+      var _y_ =  /*<<dynarray.ml:609:4>>*/ i + 1 | 0;
       if(_x_ === i) break;
       i = _y_;
      }
@@ -20810,9 +21360,9 @@
    function map(f, a){
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:615:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:616:12>>*/ var
+    var
      res =
-       [0,
+        /*<<dynarray.ml:616:12>>*/ [0,
         length,
          /*<<dynarray.ml:618:10>>*/ caml_call2
          (Stdlib_Array[1],
@@ -20828,9 +21378,9 @@
    function mapi(f, a){
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:627:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:628:12>>*/ var
+    var
      res =
-       [0,
+        /*<<dynarray.ml:628:12>>*/ [0,
         length,
          /*<<dynarray.ml:630:10>>*/ caml_call2
          (Stdlib_Array[1],
@@ -20847,15 +21397,15 @@
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:638:2>>*/ check_valid_length(length, arr);
     var
-      /*<<dynarray.ml:639:10>>*/ r = [0, acc],
-      /*<<dynarray.ml:640:2>>*/ _u_ = length - 1 | 0,
-      /*<<dynarray.ml:639:10>>*/ _t_ = 0;
+     r =  /*<<dynarray.ml:639:10>>*/ [0, acc],
+     _u_ =  /*<<dynarray.ml:640:2>>*/ length - 1 | 0,
+     _t_ =  /*<<dynarray.ml:639:10>>*/ 0;
     if(_u_ >= 0){
      var i = _t_;
      for(;;){
-       /*<<dynarray.ml:641:12>>*/ var v = unsafe_get(arr, i, length);
+      var v =  /*<<dynarray.ml:641:12>>*/ unsafe_get(arr, i, length);
       r[1] =  /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
-       /*<<dynarray.ml:640:2>>*/ var _v_ = i + 1 | 0;
+      var _v_ =  /*<<dynarray.ml:640:2>>*/ i + 1 | 0;
       if(_u_ === i) break;
       i = _v_;
      }
@@ -20867,14 +21417,14 @@
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:649:2>>*/ check_valid_length(length, arr);
     var
-      /*<<dynarray.ml:650:10>>*/ r = [0, acc],
-      /*<<dynarray.ml:650:10>>*/ _r_ = length - 1 | 0;
+     r =  /*<<dynarray.ml:650:10>>*/ [0, acc],
+     _r_ =  /*<<dynarray.ml:650:10>>*/ length - 1 | 0;
     if(_r_ >= 0){
      var i = _r_;
      for(;;){
-       /*<<dynarray.ml:652:12>>*/ var v = unsafe_get(arr, i, length);
+      var v =  /*<<dynarray.ml:652:12>>*/ unsafe_get(arr, i, length);
       r[1] =  /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
-       /*<<dynarray.ml:650:10>>*/ var _s_ = i - 1 | 0;
+      var _s_ =  /*<<dynarray.ml:650:10>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _s_;
      }
@@ -20890,9 +21440,10 @@
      if(i === length)
       var res = 0;
      else{
-       /*<<dynarray.ml:664:6>>*/ var
+      var
        _q_ =
-          /*<<dynarray.ml:664:6>>*/ caml_call1(p, unsafe_get(arr, i, length));
+          /*<<dynarray.ml:664:6>>*/  /*<<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;
@@ -20912,9 +21463,10 @@
      if(i === length)
       var res = 1;
      else{
-       /*<<dynarray.ml:677:6>>*/ var
+      var
        _p_ =
-          /*<<dynarray.ml:677:6>>*/ caml_call1(p, unsafe_get(arr, i, length));
+          /*<<dynarray.ml:677:6>>*/  /*<<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;
@@ -20927,24 +21479,28 @@
     }
     /*<<dynarray.ml:682:5>>*/ }
    function filter(f, a){
-     /*<<dynarray.ml:685:10>>*/ var b = create(0);
+    var b =  /*<<dynarray.ml:685:10>>*/ create(0);
      /*<<dynarray.ml:686:2>>*/ iter
      (cst_filter,
       function(x){
-        /*<<dynarray.ml:686:30>>*/ var
-        _o_ =  /*<<dynarray.ml:686:30>>*/ caml_call1(f, x);
+       var
+        _o_ =
+           /*<<dynarray.ml:686:30>>*/  /*<<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:10>>*/ var b = create(0);
+    var b =  /*<<dynarray.ml:690:10>>*/ create(0);
      /*<<dynarray.ml:691:2>>*/ iter
      (cst_filter_map,
       function(x){
-        /*<<dynarray.ml:692:10>>*/ var
-        match =  /*<<dynarray.ml:692:10>>*/ caml_call1(f, x);
+       var
+        match =
+           /*<<dynarray.ml:692:10>>*/  /*<<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);
@@ -20966,9 +21522,9 @@
    function to_array(a){
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:715:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:716:12>>*/ var
+    var
      res =
-        /*<<dynarray.ml:716:12>>*/ caml_call2
+        /*<<dynarray.ml:716:12>>*/  /*<<dynarray.ml:716:12>>*/ caml_call2
         (Stdlib_Array[1],
          length,
          function(i){
@@ -20978,7 +21534,7 @@
      /*<<dynarray.ml:719:2>>*/ return res;
     /*<<dynarray.ml:720:5>>*/ }
    function of_list(li){
-     /*<<dynarray.ml:723:10>>*/ var a = create(0);
+    var a =  /*<<dynarray.ml:723:10>>*/ create(0);
      /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
      (Stdlib_List[18],
       function(x){
@@ -20991,14 +21547,14 @@
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:729:2>>*/ check_valid_length(length, arr);
     var
-      /*<<dynarray.ml:730:10>>*/ l = [0, 0],
-      /*<<dynarray.ml:730:10>>*/ _l_ = length - 1 | 0;
+     l =  /*<<dynarray.ml:730:10>>*/ [0, 0],
+     _l_ =  /*<<dynarray.ml:730:10>>*/ 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>>*/ var _n_ = i - 1 | 0;
+      var _n_ =  /*<<dynarray.ml:730:10>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _n_;
      }
@@ -21007,7 +21563,7 @@
     return l[1];
     /*<<dynarray.ml:735:4>>*/ }
    function of_seq(seq){
-     /*<<dynarray.ml:738:13>>*/ var init = create(0);
+    var init =  /*<<dynarray.ml:738:13>>*/ create(0);
      /*<<dynarray.ml:739:2>>*/ append_seq(init, seq);
      /*<<dynarray.ml:739:2>>*/ return init;
     /*<<dynarray.ml:740:6>>*/ }
@@ -21018,7 +21574,7 @@
       /*<<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>>*/ var v = unsafe_get(arr, i, length);
+      var v =  /*<<dynarray.ml:749:14>>*/ 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);
@@ -21028,7 +21584,7 @@
       /*<<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>>*/ var v = get(a, i);
+      var v =  /*<<dynarray.ml:759:14>>*/ 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);
@@ -21040,7 +21596,7 @@
       /*<<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>>*/ var v = unsafe_get(arr, i, length);
+      var v =  /*<<dynarray.ml:772:14>>*/ 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);
@@ -21051,7 +21607,7 @@
        /*<<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>>*/ var v = get(a, i);
+      var v =  /*<<dynarray.ml:786:14>>*/ 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);
@@ -21116,25 +21672,26 @@
   (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;
+    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)
@@ -21183,9 +21740,9 @@
     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)],
+    Bad =  /*<<arg.ml:50:0>>*/ [248, "Stdlib.Arg.Bad", caml_fresh_oo_id(0)],
+    Help =  /*<<arg.ml:51:0>>*/ [248, "Stdlib.Arg.Help", caml_fresh_oo_id(0)],
+    Stop =  /*<<arg.ml:59:0>>*/ [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"],
@@ -21220,14 +21777,17 @@
     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
+     _az_ =
+        /*<<arg.ml:79:53>>*/  /*<<arg.ml:79:53>>*/ caml_call2
+        (Stdlib[28], prefix, h),
+     _aA_ =
+        /*<<arg.ml:79:12>>*/  /*<<arg.ml:79:12>>*/ caml_call3
         (Stdlib_List[26],
          function(x, y){
-           /*<<arg.ml:79:44>>*/ var
-           _aB_ =  /*<<arg.ml:79:44>>*/ caml_call2(Stdlib[28], sep, y);
+          var
+           _aB_ =
+              /*<<arg.ml:79:44>>*/  /*<<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>>*/ },
@@ -21243,7 +21803,7 @@
    function add_help(speclist){
      /*<<arg.ml:94:2>>*/ try{
       /*<<arg.ml:95:15>>*/ assoc3(cst_help$2, speclist);
-     var  /*<<arg.ml:95:42>>*/ _aw_ = 0, add1 = _aw_;
+     var _aw_ =  /*<<arg.ml:95:42>>*/ 0, add1 = _aw_;
     }
     catch(_ay_){
      var _as_ = caml_wrap_exception(_ay_);
@@ -21256,7 +21816,7 @@
     }
     try{
       /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
-     var  /*<<arg.ml:99:43>>*/ _av_ = 0, add2 = _av_;
+     var _av_ =  /*<<arg.ml:99:43>>*/ 0, add2 = _av_;
     }
     catch(_ax_){
      var _at_ = caml_wrap_exception(_ax_);
@@ -21267,15 +21827,17 @@
          [0, cst_help$0, [0, help_action], cst_Display_this_list_of_optio$0],
          0];
     }
-     /*<<arg.ml:103:13>>*/ var
-     _au_ =  /*<<arg.ml:103:13>>*/ caml_call2(Stdlib[37], add1, add2);
+    var
+     _au_ =
+        /*<<arg.ml:103:13>>*/  /*<<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>>*/ var _ap_ = add_help(speclist);
+    var _ap_ =  /*<<arg.ml:108:29>>*/ add_help(speclist);
      /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
             (Stdlib_List[18],
              function(param){
@@ -21291,26 +21853,28 @@
                        (Stdlib_Printf[5], buf, _a_, key, doc);
               var
                l = spec[1],
-                /*<<arg.ml:86:38>>*/ _ar_ = make_symlist(cst$1, cst$0, cst, l);
+               _ar_ =  /*<<arg.ml:86:38>>*/ 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:10>>*/ var
-     b =  /*<<arg.ml:112:10>>*/ caml_call1(Stdlib_Buffer[1], 200);
+    var
+     b =
+        /*<<arg.ml:112:10>>*/  /*<<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:15>>*/ var _ao_ = usage_string(speclist, errmsg);
+    var _ao_ =  /*<<arg.ml:118:15>>*/ usage_string(speclist, errmsg);
      /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
             (Stdlib_Printf[3], _e_, _ao_);
     /*<<arg.ml:118:45>>*/ }
    var
-     /*<<arg.ml:121:14>>*/ current = [0, 0],
+    current =  /*<<arg.ml:121:14>>*/ [0, 0],
     _f_ =
       [0,
        [2, 0, [11, ": unknown option '", [2, 0, [11, "'.\n", 0]]]],
@@ -21352,8 +21916,10 @@
     dummy = 0;
    function int_of_string_opt(x){
      /*<<arg.ml:128:2>>*/ try{
-      /*<<arg.ml:128:6>>*/ var
-      _am_ = [0,  /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
+     var
+      _am_ =
+         /*<<arg.ml:128:6>>*/ [0,
+          /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
       /*<<arg.ml:128:6>>*/ return _am_;
     }
     catch(_an_){
@@ -21364,8 +21930,10 @@
     /*<<arg.ml:129:24>>*/ }
    function float_of_string_opt(x){
      /*<<arg.ml:132:2>>*/ try{
-      /*<<arg.ml:132:6>>*/ var
-      _aj_ = [0,  /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
+     var
+      _aj_ =
+         /*<<arg.ml:132:6>>*/ [0,
+          /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
       /*<<arg.ml:132:6>>*/ return _aj_;
     }
     catch(_ak_){
@@ -21379,8 +21947,9 @@
     var initpos = current[1];
     function convert_error(error){
      var
-       /*<<arg.ml:143:12>>*/ b =
-         /*<<arg.ml:143:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
+      b =
+         /*<<arg.ml:143:12>>*/  /*<<arg.ml:143:12>>*/ caml_call1
+         (Stdlib_Buffer[1], 200),
       progname =
         initpos < argv[1].length - 1
          ? caml_check_bound(argv[1], initpos)[1 + initpos]
@@ -21425,13 +21994,13 @@
       /*<<arg.ml:166:4>>*/ try{
       var
        _V_ = current[1],
-        /*<<arg.ml:167:14>>*/ s = caml_check_bound(argv[1], _V_)[1 + _V_];
+       s =  /*<<arg.ml:167:14>>*/ caml_check_bound(argv[1], _V_)[1 + _V_];
        /*<<arg.ml:168:9>>*/ if
        ( /*<<arg.ml:168:9>>*/ caml_call2(Stdlib_String[11], cst$3, s)){
        try{
         var
          follow$1 = 0,
-          /*<<arg.ml:170:14>>*/ _Z_ = assoc3(s, speclist[1]),
+         _Z_ =  /*<<arg.ml:170:14>>*/ assoc3(s, speclist[1]),
          follow$0 = follow$1,
          action = _Z_;
        }
@@ -21440,17 +22009,19 @@
         if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
          /*<<arg.ml:172:10>>*/ try{
          var
-           /*<<arg.ml:71:10>>*/ i =
-             /*<<arg.ml:71:10>>*/ caml_call2(Stdlib_String[36], s, 61),
-           /*<<arg.ml:72:2>>*/ len =
-             /*<<arg.ml:72:2>>*/ caml_ml_string_length(s),
-           /*<<arg.ml:73:20>>*/ arg =
-             /*<<arg.ml:73:20>>*/ caml_call3
+          i =
+             /*<<arg.ml:71:10>>*/  /*<<arg.ml:71:10>>*/ caml_call2
+             (Stdlib_String[36], s, 61),
+          len =
+             /*<<arg.ml:72:2>>*/  /*<<arg.ml:72:2>>*/ caml_ml_string_length(s),
+          arg =
+             /*<<arg.ml:73:20>>*/  /*<<arg.ml:73:20>>*/ caml_call3
              (Stdlib_String[16], s, i + 1 | 0, len - (i + 1 | 0) | 0),
-           /*<<arg.ml:73:2>>*/ keyword =
-             /*<<arg.ml:73:2>>*/ caml_call3(Stdlib_String[16], s, 0, i),
-           /*<<arg.ml:174:38>>*/ follow = [0, arg],
-           /*<<arg.ml:174:12>>*/ _Y_ = assoc3(keyword, speclist[1]),
+          keyword =
+             /*<<arg.ml:73:2>>*/  /*<<arg.ml:73:2>>*/ caml_call3
+             (Stdlib_String[16], s, 0, i),
+          follow =  /*<<arg.ml:174:38>>*/ [0, arg],
+          _Y_ =  /*<<arg.ml:174:12>>*/ assoc3(keyword, speclist[1]),
           follow$0 = follow,
           action = _Y_;
         }
@@ -21498,11 +22069,12 @@
                /*<<arg.ml:194:20>>*/ return  /*<<arg.ml:194:20>>*/ caml_call1
                       (f, 0);
              case 1:
-              var f$0 = param[1],  /*<<arg.ml:196:22>>*/ arg = get_arg$0(0);
+              var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
                /*<<arg.ml:124:2>>*/ try{
                var
-                 /*<<arg.ml:124:6>>*/ _$_ =
-                  [0,  /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
+                _$_ =
+                   /*<<arg.ml:124:6>>*/ [0,
+                    /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
                 match = _$_;
               }
               catch(_ae_){
@@ -21528,7 +22100,7 @@
               r$0[1] = 0;
               return 0;
              case 4:
-              var f$1 = param[1],  /*<<arg.ml:205:22>>*/ arg$0 = get_arg$0(0);
+              var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
                /*<<arg.ml:206:12>>*/  /*<<arg.ml:206:12>>*/ caml_call1
                (f$1, arg$0);
                /*<<arg.ml:206:12>>*/ return consume_arg$0(0);
@@ -21539,8 +22111,8 @@
              case 6:
               var
                f$2 = param[1],
-                /*<<arg.ml:221:22>>*/ arg$1 = get_arg$0(0),
-                /*<<arg.ml:222:24>>*/ match$0 = int_of_string_opt(arg$1);
+               arg$1 =  /*<<arg.ml:221:22>>*/ get_arg$0(0),
+               match$0 =  /*<<arg.ml:222:24>>*/ int_of_string_opt(arg$1);
               if(! match$0)
                 /*<<arg.ml:223:22>>*/ throw  /*<<arg.ml:223:22>>*/ caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$1, cst_an_integer]], 1);
@@ -21550,8 +22122,8 @@
              case 7:
               var
                r$2 = param[1],
-                /*<<arg.ml:228:22>>*/ arg$2 = get_arg$0(0),
-                /*<<arg.ml:229:24>>*/ match$1 = int_of_string_opt(arg$2);
+               arg$2 =  /*<<arg.ml:228:22>>*/ get_arg$0(0),
+               match$1 =  /*<<arg.ml:229:24>>*/ int_of_string_opt(arg$2);
               if(! match$1)
                 /*<<arg.ml:230:22>>*/ throw  /*<<arg.ml:230:22>>*/ caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$2, cst_an_integer$0]], 1);
@@ -21561,8 +22133,8 @@
              case 8:
               var
                f$3 = param[1],
-                /*<<arg.ml:235:22>>*/ arg$3 = get_arg$0(0),
-                /*<<arg.ml:236:24>>*/ match$2 = float_of_string_opt(arg$3);
+               arg$3 =  /*<<arg.ml:235:22>>*/ get_arg$0(0),
+               match$2 =  /*<<arg.ml:236:24>>*/ float_of_string_opt(arg$3);
               if(! match$2)
                 /*<<arg.ml:237:22>>*/ throw  /*<<arg.ml:237:22>>*/ caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$3, cst_a_float]], 1);
@@ -21573,8 +22145,8 @@
              case 9:
               var
                r$3 = param[1],
-                /*<<arg.ml:242:22>>*/ arg$4 = get_arg$0(0),
-                /*<<arg.ml:243:24>>*/ match$3 = float_of_string_opt(arg$4);
+               arg$4 =  /*<<arg.ml:242:22>>*/ get_arg$0(0),
+               match$3 =  /*<<arg.ml:243:24>>*/ float_of_string_opt(arg$4);
               if(! match$3)
                 /*<<arg.ml:244:22>>*/ throw  /*<<arg.ml:244:22>>*/ caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$4, cst_a_float$0]], 1);
@@ -21590,7 +22162,7 @@
               var
                f$4 = param[2],
                symb = param[1],
-                /*<<arg.ml:209:22>>*/ arg$5 = get_arg$0(0);
+               arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
                /*<<arg.ml:210:15>>*/ if
                ( /*<<arg.ml:210:15>>*/ caml_call2
                  (Stdlib_List[37], arg$5, symb)){
@@ -21598,8 +22170,10 @@
                 (f$4, arg$5);
                 /*<<arg.ml:211:14>>*/ return consume_arg$0(0);
               }
-               /*<<arg.ml:215:44>>*/ var
-               _aa_ = make_symlist(cst$6, cst$5, cst$4, symb);
+              var
+               _aa_ =
+                  /*<<arg.ml:215:44>>*/ make_symlist
+                  (cst$6, cst$5, cst$4, symb);
                /*<<arg.ml:213:21>>*/ throw  /*<<arg.ml:213:21>>*/ caml_maybe_attach_backtrace
                      ([0,
                        Stop,
@@ -21623,7 +22197,7 @@
              case 13:
               var f$6 = param[1];
                /*<<arg.ml:258:12>>*/ no_arg$0(0);
-               /*<<arg.ml:259:22>>*/ var acc = [0, 0];
+              var acc =  /*<<arg.ml:259:22>>*/ [0, 0];
                /*<<arg.ml:262:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
                  /*<<arg.ml:264:14>>*/ return  /*<<arg.ml:264:14>>*/ caml_call1
@@ -21640,16 +22214,17 @@
                 /*<<arg.ml:267:14>>*/ throw  /*<<arg.ml:267:14>>*/ caml_maybe_attach_backtrace
                       ([0, Stdlib[6], cst_Arg_Expand_is_is_only_allo], 1);
               var
-                /*<<arg.ml:269:22>>*/ arg$6 = get_arg$0(0),
-                /*<<arg.ml:270:25>>*/ newarg =
-                  /*<<arg.ml:270:25>>*/ caml_call1(f$7, arg$6);
+               arg$6 =  /*<<arg.ml:269:22>>*/ get_arg$0(0),
+               newarg =
+                  /*<<arg.ml:270:25>>*/  /*<<arg.ml:270:25>>*/ caml_call1
+                  (f$7, arg$6);
                /*<<arg.ml:271:12>>*/ consume_arg$0(0);
               var
-                /*<<arg.ml:272:25>>*/ before =
-                  /*<<arg.ml:272:25>>*/ caml_call3
+               before =
+                  /*<<arg.ml:272:25>>*/  /*<<arg.ml:272:25>>*/ caml_call3
                   (Stdlib_Array[6], argv[1], 0, current[1] + 1 | 0),
-                /*<<arg.ml:274:14>>*/ after =
-                  /*<<arg.ml:274:14>>*/ caml_call3
+               after =
+                  /*<<arg.ml:274:14>>*/  /*<<arg.ml:274:14>>*/ caml_call3
                   (Stdlib_Array[6],
                    argv[1],
                    current[1] + 1 | 0,
@@ -21702,8 +22277,8 @@
    }
    function parse(l, f, msg){
      /*<<arg.ml:299:2>>*/ try{
-      /*<<arg.ml:300:4>>*/ var
-      _U_ = parse_argv(0, caml_sys_argv(0), l, f, msg);
+     var
+      _U_ =  /*<<arg.ml:300:4>>*/ parse_argv(0, caml_sys_argv(0), l, f, msg);
       /*<<arg.ml:300:4>>*/ return _U_;
     }
     catch(exn$0){
@@ -21725,8 +22300,10 @@
     /*<<arg.ml:303:39>>*/ }
    function parse_dynamic(l, f, msg){
      /*<<arg.ml:307:2>>*/ try{
-      /*<<arg.ml:308:4>>*/ var
-      _T_ = parse_argv_dynamic(0, caml_sys_argv(0), l, f, msg);
+     var
+      _T_ =
+         /*<<arg.ml:308:4>>*/ parse_argv_dynamic
+         (0, caml_sys_argv(0), l, f, msg);
       /*<<arg.ml:308:4>>*/ return _T_;
     }
     catch(exn$0){
@@ -21749,11 +22326,12 @@
    function parse_expand(l, f, msg){
      /*<<arg.ml:314:2>>*/ try{
      var
-       /*<<arg.ml:315:15>>*/ argv = [0, caml_sys_argv(0)],
-       /*<<arg.ml:316:15>>*/ spec = [0, l],
-       /*<<arg.ml:317:18>>*/ current$0 = [0, current[1]],
-       /*<<arg.ml:318:4>>*/ _S_ =
-        parse_and_expand_argv_dynamic(current$0, argv, spec, f, msg);
+      argv =  /*<<arg.ml:315:15>>*/ [0, caml_sys_argv(0)],
+      spec =  /*<<arg.ml:316:15>>*/ [0, l],
+      current$0 =  /*<<arg.ml:317:18>>*/ [0, current[1]],
+      _S_ =
+         /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
+         (current$0, argv, spec, f, msg);
       /*<<arg.ml:318:4>>*/ return _S_;
     }
     catch(exn$0){
@@ -21782,20 +22360,24 @@
        /*<<arg.ml:328:12>>*/ if
        (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
-       /*<<arg.ml:328:29>>*/ var n$1 = n$0 + 1 | 0;
+      var n$1 =  /*<<arg.ml:328:29>>*/ n$0 + 1 | 0;
       n$0 = n$1;
      }
      /*<<arg.ml:329:10>>*/ }
      /*<<arg.ml:331:2>>*/ try{
-      /*<<arg.ml:331:8>>*/ var
-      n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);
+     var
+      n$0 =
+         /*<<arg.ml:331:8>>*/  /*<<arg.ml:331:8>>*/ caml_call2
+         (Stdlib_String[36], s, 9);
     }
     catch(_Q_){
      var _O_ = caml_wrap_exception(_Q_);
      if(_O_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_O_, 0);
       /*<<arg.ml:334:6>>*/ try{
-       /*<<arg.ml:334:18>>*/ var
-       n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);
+      var
+       n =
+          /*<<arg.ml:334:18>>*/  /*<<arg.ml:334:18>>*/ caml_call2
+          (Stdlib_String[36], s, 32);
      }
      catch(_R_){
       var _P_ = caml_wrap_exception(_R_);
@@ -21814,7 +22396,7 @@
     return caml_call2(Stdlib_Int[11], cur, _N_);
    }
    function replace_leading_tab(s){
-     /*<<arg.ml:347:13>>*/ var seen = [0, 0];
+    var seen =  /*<<arg.ml:347:13>>*/ [0, 0];
      /*<<arg.ml:348:2>>*/ return  /*<<arg.ml:348:2>>*/ caml_call2
             (Stdlib_String[18],
              function(c){
@@ -21829,12 +22411,13 @@
    function align(opt, speclist){
     var
      limit = opt ? opt[1] : Stdlib[19],
-      /*<<arg.ml:374:18>>*/ completed = add_help(speclist),
-      /*<<arg.ml:375:12>>*/ len =
-        /*<<arg.ml:375:12>>*/ caml_call3
+     completed =  /*<<arg.ml:374:18>>*/ add_help(speclist),
+     len =
+        /*<<arg.ml:375:12>>*/  /*<<arg.ml:375:12>>*/ caml_call3
         (Stdlib_List[26], max_arg_len, 0, completed),
-      /*<<arg.ml:376:12>>*/ len$0 =
-        /*<<arg.ml:376:12>>*/ caml_call2(Stdlib_Int[10], len, limit);
+     len$0 =
+        /*<<arg.ml:376:12>>*/  /*<<arg.ml:376:12>>*/ caml_call2
+        (Stdlib_Int[10], len, limit);
      /*<<arg.ml:377:2>>*/ return  /*<<arg.ml:377:2>>*/ caml_call2
             (Stdlib_List[20],
              function(ksd){
@@ -21843,17 +22426,19 @@
               if(11 === spec[0]){
                var
                 msg$0 = ksd[3],
-                 /*<<arg.ml:357:19>>*/ cutcol$0 = second_word(msg$0),
-                 /*<<arg.ml:358:32>>*/ _K_ =
-                   /*<<arg.ml:358:32>>*/ caml_call2
+                cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
+                _K_ =
+                   /*<<arg.ml:358:32>>*/  /*<<arg.ml:358:32>>*/ caml_call2
                    (Stdlib_Int[11], 0, len$0 - cutcol$0 | 0)
                   + 3
                   | 0,
-                 /*<<arg.ml:358:19>>*/ spaces$0 =
-                   /*<<arg.ml:358:19>>*/ caml_call2(Stdlib_String[1], _K_, 32),
-                 /*<<arg.ml:359:34>>*/ _L_ = replace_leading_tab(msg$0),
-                 /*<<arg.ml:359:25>>*/ _M_ =
-                   /*<<arg.ml:359:25>>*/ caml_call2(Stdlib[28], spaces$0, _L_);
+                spaces$0 =
+                   /*<<arg.ml:358:19>>*/  /*<<arg.ml:358:19>>*/ caml_call2
+                   (Stdlib_String[1], _K_, 32),
+                _L_ =  /*<<arg.ml:359:34>>*/ replace_leading_tab(msg$0),
+                _M_ =
+                   /*<<arg.ml:359:25>>*/  /*<<arg.ml:359:25>>*/ caml_call2
+                   (Stdlib[28], spaces$0, _L_);
                 /*<<arg.ml:359:6>>*/ return [0,
                        kwd,
                        spec,
@@ -21862,9 +22447,10 @@
               var
                msg = ksd[3],
                spec$0 = ksd[2],
-                /*<<arg.ml:361:19>>*/ cutcol = second_word(msg),
-                /*<<arg.ml:362:6>>*/ kwd_len =
-                  /*<<arg.ml:362:6>>*/ caml_ml_string_length(kwd),
+               cutcol =  /*<<arg.ml:361:19>>*/ second_word(msg),
+               kwd_len =
+                  /*<<arg.ml:362:6>>*/  /*<<arg.ml:362:6>>*/ caml_ml_string_length
+                  (kwd),
                diff = (len$0 - kwd_len | 0) - cutcol | 0;
                /*<<arg.ml:364:6>>*/ if(0 >= diff)
                 /*<<arg.ml:365:8>>*/ return [0,
@@ -21872,20 +22458,22 @@
                        spec$0,
                        replace_leading_tab(msg)];
               var
-                /*<<arg.ml:367:21>>*/ spaces =
-                  /*<<arg.ml:367:21>>*/ caml_call2(Stdlib_String[1], diff, 32),
-                /*<<arg.ml:368:32>>*/ _I_ = replace_leading_tab(msg),
-                /*<<arg.ml:368:21>>*/ prefix =
-                  /*<<arg.ml:368:21>>*/ caml_call3
+               spaces =
+                  /*<<arg.ml:367:21>>*/  /*<<arg.ml:367:21>>*/ caml_call2
+                  (Stdlib_String[1], diff, 32),
+               _I_ =  /*<<arg.ml:368:32>>*/ replace_leading_tab(msg),
+               prefix =
+                  /*<<arg.ml:368:21>>*/  /*<<arg.ml:368:21>>*/ caml_call3
                   (Stdlib_String[16], _I_, 0, cutcol),
-                /*<<arg.ml:369:21>>*/ suffix =
-                  /*<<arg.ml:369:21>>*/ caml_call3
+               suffix =
+                  /*<<arg.ml:369:21>>*/  /*<<arg.ml:369:21>>*/ caml_call3
                   (Stdlib_String[16],
                    msg,
                    cutcol,
                    caml_ml_string_length(msg) - cutcol | 0),
-                /*<<arg.ml:370:29>>*/ _J_ =
-                  /*<<arg.ml:370:29>>*/ caml_call2(Stdlib[28], spaces, suffix);
+               _J_ =
+                  /*<<arg.ml:370:29>>*/  /*<<arg.ml:370:29>>*/ caml_call2
+                  (Stdlib[28], spaces, suffix);
                /*<<arg.ml:370:8>>*/ return [0,
                       kwd,
                       spec$0,
@@ -21895,14 +22483,18 @@
    }
    function read_aux(trim, sep, file){
     var
-      /*<<arg.ml:387:11>>*/ ic =
-        /*<<arg.ml:387:11>>*/ caml_call1(Stdlib[80], file),
-      /*<<arg.ml:388:12>>*/ buf =
-        /*<<arg.ml:388:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
-      /*<<arg.ml:389:14>>*/ words = [0, 0];
+     ic =
+        /*<<arg.ml:387:11>>*/  /*<<arg.ml:387:11>>*/ caml_call1
+        (Stdlib[80], file),
+     buf =
+        /*<<arg.ml:388:12>>*/  /*<<arg.ml:388:12>>*/ caml_call1
+        (Stdlib_Buffer[1], 200),
+     words =  /*<<arg.ml:389:14>>*/ [0, 0];
     function stash(param){
-      /*<<arg.ml:391:15>>*/ var
-      word =  /*<<arg.ml:391:15>>*/ caml_call1(Stdlib_Buffer[2], buf);
+     var
+      word =
+         /*<<arg.ml:391:15>>*/  /*<<arg.ml:391:15>>*/ caml_call1
+         (Stdlib_Buffer[2], buf);
       /*<<arg.ml:392:4>>*/ if(trim){
       var len = caml_ml_string_length(word);
       a:
@@ -21928,8 +22520,10 @@
      /*<<arg.ml:394:20>>*/ }
      /*<<arg.ml:396:2>>*/ try{
      for(;;){
-       /*<<arg.ml:398:16>>*/ var
-       c =  /*<<arg.ml:398:16>>*/ caml_call1(Stdlib[82], ic);
+      var
+       c =
+          /*<<arg.ml:398:16>>*/  /*<<arg.ml:398:16>>*/ caml_call1
+          (Stdlib[82], ic);
       if(c === sep)
         /*<<arg.ml:399:24>>*/ stash(0);
       else
@@ -21943,8 +22537,10 @@
      if(0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
       /*<<arg.ml:404:2>>*/  /*<<arg.ml:404:2>>*/ caml_call1(Stdlib[93], ic);
-      /*<<arg.ml:405:16>>*/ var
-      _F_ =  /*<<arg.ml:405:16>>*/ caml_call1(Stdlib_List[10], words[1]);
+     var
+      _F_ =
+         /*<<arg.ml:405:16>>*/  /*<<arg.ml:405:16>>*/ caml_call1
+         (Stdlib_List[10], words[1]);
       /*<<arg.ml:405:16>>*/ return  /*<<arg.ml:405:16>>*/ caml_call1
              (Stdlib_Array[11], _F_);
     }
@@ -21952,13 +22548,15 @@
    var _r_ = 10, _s_ = 1;
    function read_arg(_D_){ /*<<?>>*/ return read_aux(_s_, _r_, _D_);}
    var
-     /*<<arg.ml:407:15>>*/ _t_ = 0,
+    _t_ =  /*<<arg.ml:407:15>>*/ 0,
     _u_ = 0,
     _v_ = [0, [2, 0, [0, 0]], "%s%c"];
    function read_arg0(_C_){ /*<<?>>*/ return read_aux(_u_, _t_, _C_);}
    function write_aux(sep, file, args){
-     /*<<arg.ml:412:11>>*/ var
-     oc =  /*<<arg.ml:412:11>>*/ caml_call1(Stdlib[61], file);
+    var
+     oc =
+        /*<<arg.ml:412:11>>*/  /*<<arg.ml:412:11>>*/ caml_call1
+        (Stdlib[61], file);
      /*<<arg.ml:413:2>>*/  /*<<arg.ml:413:2>>*/ caml_call2
      (Stdlib_Array[12],
       function(s){
@@ -21971,7 +22569,7 @@
     /*<<arg.ml:414:14>>*/ }
    var _w_ = 10;
    function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
-    /*<<arg.ml:416:16>>*/ var _x_ = 0;
+   var _x_ =  /*<<arg.ml:416:16>>*/ 0;
    function write_arg0(_y_, _z_){ /*<<?>>*/ return write_aux(_x_, _y_, _z_);}
    var
     Stdlib_Arg =
@@ -22003,23 +22601,23 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst$4 = "",
-     /*<<?>>*/ cst_s = "%s\n",
-     /*<<?>>*/ cst_Program_not_linked_with_g_$0 =
-      "(Program not linked with -g, cannot print stack backtrace)\n",
-     /*<<?>>*/ cst_characters = ", characters ",
-     /*<<?>>*/ cst_Fatal_error_exception = "Fatal error: exception ",
-     /*<<?>>*/ cst_Fatal_error_exception_s = "Fatal error: exception %s\n",
-     /*<<?>>*/ cst_Uncaught_exception = "Uncaught exception: ",
-     /*<<?>>*/ cst_Uncaught_exception_s = "Uncaught exception: %s\n",
-     /*<<?>>*/ caml_check_bound = runtime.caml_check_bound,
-     /*<<?>>*/ caml_get_exception_raw_backtra =
-      runtime.caml_get_exception_raw_backtrace,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_obj_tag = runtime.caml_obj_tag,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst$4 =  /*<<?>>*/ "",
+    cst_s =  /*<<?>>*/ "%s\n",
+    cst_Program_not_linked_with_g_$0 =
+       /*<<?>>*/ "(Program not linked with -g, cannot print stack backtrace)\n",
+    cst_characters =  /*<<?>>*/ ", characters ",
+    cst_Fatal_error_exception =  /*<<?>>*/ "Fatal error: exception ",
+    cst_Fatal_error_exception_s =  /*<<?>>*/ "Fatal error: exception %s\n",
+    cst_Uncaught_exception =  /*<<?>>*/ "Uncaught exception: ",
+    cst_Uncaught_exception_s =  /*<<?>>*/ "Uncaught exception: %s\n",
+    caml_check_bound =  /*<<?>>*/ runtime.caml_check_bound,
+    caml_get_exception_raw_backtra =
+       /*<<?>>*/ runtime.caml_get_exception_raw_backtrace,
+    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)
@@ -22074,8 +22672,9 @@
     Stdlib = global_data.Stdlib,
     Stdlib_Buffer = global_data.Stdlib__Buffer,
     Stdlib_Obj = global_data.Stdlib__Obj,
-     /*<<printexc.ml:20:15>>*/ printers =
-       /*<<printexc.ml:20:15>>*/ caml_call1(Stdlib_Atomic[1], 0),
+    printers =
+       /*<<printexc.ml:20:15>>*/  /*<<printexc.ml:20:15>>*/ caml_call1
+       (Stdlib_Atomic[1], 0),
     _a_ = [0, [3, 0, 0], "%S"],
     _b_ = [0, [4, 0, 0, 0, 0], "%d"],
     _c_ = [0, [11, ", ", [2, 0, [2, 0, 0]]], ", %s%s"],
@@ -22126,16 +22725,16 @@
     _n_ = [0, [2, 0, [12, 10, 0]], cst_s],
     cst_Program_not_linked_with_g_ = cst_Program_not_linked_with_g_$0;
    function field(x, i){
-     /*<<printexc.ml:25:10>>*/ var f = x[1 + i];
+    var f =  /*<<printexc.ml:25:10>>*/ x[1 + i];
      /*<<printexc.ml:26:9>>*/ if
      (!  /*<<printexc.ml:26:9>>*/ caml_call1(Stdlib_Obj[1], f))
       /*<<printexc.ml:27:4>>*/ return  /*<<printexc.ml:27:4>>*/ caml_call2
              (Stdlib_Printf[4], _b_, f);
-     /*<<printexc.ml:28:7>>*/ var _ah_ = Stdlib_Obj[15];
+    var _ah_ =  /*<<printexc.ml:28:7>>*/ Stdlib_Obj[15];
     if( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
       /*<<printexc.ml:29:4>>*/ return  /*<<printexc.ml:29:4>>*/ caml_call2
              (Stdlib_Printf[4], _a_, f);
-     /*<<printexc.ml:30:7>>*/ var _ai_ = Stdlib_Obj[16];
+    var _ai_ =  /*<<printexc.ml:30:7>>*/ Stdlib_Obj[16];
     return  /*<<printexc.ml:30:10>>*/ caml_obj_tag(f) === _ai_
             ?  /*<<printexc.ml:31:4>>*/ caml_call1(Stdlib[35], f)
             : cst;
@@ -22144,8 +22743,8 @@
      /*<<printexc.ml:36:2>>*/ if(x.length - 1 <= i)
       /*<<printexc.ml:36:26>>*/ return cst$0;
     var
-      /*<<printexc.ml:37:36>>*/ _af_ = other_fields(x, i + 1 | 0),
-      /*<<printexc.ml:37:24>>*/ _ag_ = field(x, i);
+     _af_ =  /*<<printexc.ml:37:36>>*/ other_fields(x, i + 1 | 0),
+     _ag_ =  /*<<printexc.ml:37:24>>*/ field(x, i);
      /*<<printexc.ml:37:36>>*/ return  /*<<printexc.ml:37:36>>*/ caml_call3
             (Stdlib_Printf[4], _c_, _ag_, _af_);
     /*<<printexc.ml:37:58>>*/ }
@@ -22158,8 +22757,10 @@
      a:
      {
        /*<<printexc.ml:49:8>>*/ try{
-        /*<<printexc.ml:49:15>>*/ var
-        val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);
+       var
+        val =
+           /*<<printexc.ml:49:15>>*/  /*<<printexc.ml:49:15>>*/ caml_call1
+           (hd, x);
       }
       catch(_ae_){break a;}
       if(val){var s = val[1];  /*<<printexc.ml:51:21>>*/ return [0, s];}
@@ -22171,12 +22772,12 @@
      /*<<printexc.ml:64:2>>*/ if
      (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
      var
-       /*<<printexc.ml:60:17>>*/ constructor = t[1][1],
+      constructor =  /*<<printexc.ml:60:17>>*/ t[1][1],
       match = t.length - 1;
      if(2 < match >>> 0)
       var
-        /*<<printexc.ml:44:38>>*/ _aa_ = other_fields(t, 2),
-        /*<<printexc.ml:44:26>>*/ _ab_ = field(t, 1),
+       _aa_ =  /*<<printexc.ml:44:38>>*/ other_fields(t, 2),
+       _ab_ =  /*<<printexc.ml:44:26>>*/ field(t, 1),
        _ad_ =
           /*<<printexc.ml:44:38>>*/ caml_call3
           (Stdlib_Printf[4], _d_, _ab_, _aa_);
@@ -22188,7 +22789,7 @@
          var _ad_ = cst$2; break;
         default:
          var
-           /*<<printexc.ml:43:24>>*/ _ac_ = field(t, 1),
+          _ac_ =  /*<<printexc.ml:43:24>>*/ field(t, 1),
           _ad_ =
              /*<<printexc.ml:43:24>>*/ caml_call2(Stdlib_Printf[4], _e_, _ac_);
       }
@@ -22250,21 +22851,23 @@
              cst_Undefined_recursive_module);
     /*<<printexc.ml:79:50>>*/ }
    function to_string(e){
-     /*<<printexc.ml:82:8>>*/ var match = use_printers(e);
+    var match =  /*<<printexc.ml:82:8>>*/ use_printers(e);
     if(! match)  /*<<printexc.ml:84:12>>*/ return to_string_default(e);
     var s = match[1];
      /*<<printexc.ml:83:14>>*/ return s;
     /*<<printexc.ml:84:31>>*/ }
    function print(fct, arg){
      /*<<printexc.ml:87:2>>*/ try{
-      /*<<printexc.ml:88:4>>*/ var
-      _$_ =  /*<<printexc.ml:88:4>>*/ caml_call1(fct, arg);
+     var
+      _$_ =
+         /*<<printexc.ml:88:4>>*/  /*<<printexc.ml:88:4>>*/ caml_call1
+         (fct, arg);
       /*<<printexc.ml:88:4>>*/ return _$_;
     }
     catch(x$0){
      var
       x = caml_wrap_exception(x$0),
-       /*<<printexc.ml:90:39>>*/ ___ = to_string(x);
+      ___ =  /*<<printexc.ml:90:39>>*/ to_string(x);
       /*<<printexc.ml:90:4>>*/  /*<<printexc.ml:90:4>>*/ caml_call2
       (Stdlib_Printf[3], _f_, ___);
       /*<<printexc.ml:91:4>>*/  /*<<printexc.ml:91:4>>*/ caml_call1
@@ -22275,15 +22878,17 @@
     /*<<printexc.ml:92:11>>*/ }
    function catch$0(fct, arg){
      /*<<printexc.ml:95:2>>*/ try{
-      /*<<printexc.ml:96:4>>*/ var
-      _Z_ =  /*<<printexc.ml:96:4>>*/ caml_call1(fct, arg);
+     var
+      _Z_ =
+         /*<<printexc.ml:96:4>>*/  /*<<printexc.ml:96:4>>*/ caml_call1
+         (fct, arg);
       /*<<printexc.ml:96:4>>*/ return _Z_;
     }
     catch(x$0){
      var x = caml_wrap_exception(x$0);
       /*<<printexc.ml:98:4>>*/  /*<<printexc.ml:98:4>>*/ caml_call1
       (Stdlib[63], Stdlib[39]);
-      /*<<printexc.ml:99:39>>*/ var _Y_ = to_string(x);
+     var _Y_ =  /*<<printexc.ml:99:39>>*/ to_string(x);
       /*<<printexc.ml:99:4>>*/  /*<<printexc.ml:99:4>>*/ caml_call2
       (Stdlib_Printf[3], _g_, _Y_);
       /*<<printexc.ml:99:4>>*/ return  /*<<printexc.ml:99:4>>*/ caml_call1
@@ -22316,19 +22921,20 @@
       _T_ = slot[8] ? cst_inlined : cst$3,
       _U_ = slot[2],
       _V_ = slot[9],
-       /*<<printexc.ml:162:14>>*/ _W_ = info(slot[1]);
+      _W_ =  /*<<printexc.ml:162:14>>*/ info(slot[1]);
       /*<<printexc.ml:161:6>>*/ return [0,
               /*<<printexc.ml:161:11>>*/ caml_call8
               (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)];
     }
     if(slot[1])  /*<<printexc.ml:151:50>>*/ return 0;
-     /*<<printexc.ml:153:44>>*/ var _X_ = info(0);
+    var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
      /*<<printexc.ml:153:8>>*/ return [0,
              /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)];
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
-     /*<<printexc.ml:179:36>>*/ var
-     backtrace = convert_raw_backtrace(raw_backtrace);
+    var
+     backtrace =
+        /*<<printexc.ml:179:36>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:169:6>>*/ return  /*<<printexc.ml:169:6>>*/ caml_call2
              (Stdlib_Printf[1], outchan, _m_);
@@ -22336,14 +22942,16 @@
     if(_P_ >= 0){
      var i = _O_;
      for(;;){
-       /*<<printexc.ml:173:14>>*/ var
-       match = format_backtrace_slot(i, caml_check_bound(a, i)[1 + i]);
+      var
+       match =
+          /*<<printexc.ml:173:14>>*/ format_backtrace_slot
+          (i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
         /*<<printexc.ml:175:24>>*/  /*<<printexc.ml:175:24>>*/ caml_call3
         (Stdlib_Printf[1], outchan, _l_, str);
       }
-       /*<<printexc.ml:172:6>>*/ var _Q_ = i + 1 | 0;
+      var _Q_ =  /*<<printexc.ml:172:6>>*/ i + 1 | 0;
       if(_P_ === i) break;
       i = _Q_;
      }
@@ -22356,27 +22964,31 @@
               /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra(0));
     /*<<printexc.ml:183:52>>*/ }
    function raw_backtrace_to_string(raw_backtrace){
-     /*<<printexc.ml:199:22>>*/ var
-     backtrace = convert_raw_backtrace(raw_backtrace);
+    var
+     backtrace =
+        /*<<printexc.ml:199:22>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_;
     var
      a = backtrace[1],
-      /*<<printexc.ml:190:14>>*/ b =
-        /*<<printexc.ml:190:14>>*/ caml_call1(Stdlib_Buffer[1], 1024),
+     b =
+        /*<<printexc.ml:190:14>>*/  /*<<printexc.ml:190:14>>*/ caml_call1
+        (Stdlib_Buffer[1], 1024),
      _M_ = a.length - 2 | 0,
-      /*<<printexc.ml:190:14>>*/ _L_ = 0;
+     _L_ =  /*<<printexc.ml:190:14>>*/ 0;
     if(_M_ >= 0){
      var i = _L_;
      for(;;){
-       /*<<printexc.ml:192:14>>*/ var
-       match = format_backtrace_slot(i, caml_check_bound(a, i)[1 + i]);
+      var
+       match =
+          /*<<printexc.ml:192:14>>*/ format_backtrace_slot
+          (i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
         /*<<printexc.ml:194:24>>*/  /*<<printexc.ml:194:24>>*/ caml_call3
         (Stdlib_Printf[5], b, _n_, str);
       }
-       /*<<printexc.ml:191:6>>*/ var _N_ = i + 1 | 0;
+      var _N_ =  /*<<printexc.ml:191:6>>*/ i + 1 | 0;
       if(_M_ === i) break;
       i = _N_;
      }
@@ -22402,8 +23014,8 @@
      /*<<printexc.ml:232:39>>*/ return 0;
     /*<<printexc.ml:233:38>>*/ }
    function backtrace_slots(raw_backtrace){
-     /*<<printexc.ml:242:8>>*/ var
-     match = convert_raw_backtrace(raw_backtrace);
+    var
+     match =  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace(raw_backtrace);
     if(! match)  /*<<printexc.ml:243:14>>*/ return 0;
     var backtrace = match[1], i$1 = backtrace.length - 2 | 0, i = i$1;
      /*<<printexc.ml:248:30>>*/ for(;;){
@@ -22434,13 +23046,14 @@
    function register_printer(fn){
      /*<<printexc.ml:284:2>>*/ for(;;){
      var
-       /*<<printexc.ml:284:21>>*/ old_printers =
-         /*<<printexc.ml:284:21>>*/ caml_call1(Stdlib_Atomic[3], printers),
-       /*<<printexc.ml:285:21>>*/ new_printers = [0, fn, old_printers],
-       /*<<printexc.ml:286:16>>*/ success =
-         /*<<printexc.ml:286:16>>*/ caml_call3
+      old_printers =
+         /*<<printexc.ml:284:21>>*/  /*<<printexc.ml:284:21>>*/ caml_call1
+         (Stdlib_Atomic[3], printers),
+      new_printers =  /*<<printexc.ml:285:21>>*/ [0, fn, old_printers],
+      success =
+         /*<<printexc.ml:286:16>>*/  /*<<printexc.ml:286:16>>*/ caml_call3
          (Stdlib_Atomic[6], printers, old_printers, new_printers),
-       /*<<printexc.ml:287:2>>*/ _I_ = 1 - success;
+      _I_ =  /*<<printexc.ml:287:2>>*/ 1 - success;
      if(! _I_)  /*<<printexc.ml:287:2>>*/ return _I_;
     }
     /*<<printexc.ml:287:41>>*/ }
@@ -22451,11 +23064,11 @@
             : x;
     /*<<printexc.ml:293:44>>*/ }
    function exn_slot_id(x){
-     /*<<printexc.ml:296:13>>*/ var slot = exn_slot(x);
+    var slot =  /*<<printexc.ml:296:13>>*/ exn_slot(x);
      /*<<printexc.ml:297:11>>*/ return slot[2];
     /*<<printexc.ml:297:36>>*/ }
    function exn_slot_name(x){
-     /*<<printexc.ml:300:13>>*/ var slot = exn_slot(x);
+    var slot =  /*<<printexc.ml:300:13>>*/ exn_slot(x);
      /*<<printexc.ml:301:11>>*/ return slot[1];
     /*<<printexc.ml:301:39>>*/ }
    var
@@ -22472,25 +23085,29 @@
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
        cst_Fatal_error_exception_s];
    function default_uncaught_exception_han(exn, raw_backtrace){
-     /*<<printexc.ml:323:40>>*/ var _F_ = to_string(exn);
+    var _F_ =  /*<<printexc.ml:323:40>>*/ to_string(exn);
      /*<<printexc.ml:323:2>>*/  /*<<printexc.ml:323:2>>*/ caml_call2
      (Stdlib_Printf[3], _o_, _F_);
      /*<<printexc.ml:324:2>>*/ print_raw_backtrace(Stdlib[40], raw_backtrace);
-     /*<<printexc.ml:325:15>>*/ var
-     status =  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status(0);
+    var
+     status =
+        /*<<printexc.ml:325:15>>*/  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status
+        (0);
     if(status < 0){
      var
-       /*<<printexc.ml:327:26>>*/ _G_ =
-         /*<<printexc.ml:327:26>>*/ caml_call1(Stdlib[18], status),
-       /*<<printexc.ml:327:18>>*/ _H_ = caml_check_bound(errors, _G_)[1 + _G_];
+      _G_ =
+         /*<<printexc.ml:327:26>>*/  /*<<printexc.ml:327:26>>*/ caml_call1
+         (Stdlib[18], status),
+      _H_ =  /*<<printexc.ml:327:18>>*/ caml_check_bound(errors, _G_)[1 + _G_];
       /*<<printexc.ml:327:4>>*/  /*<<printexc.ml:327:4>>*/ caml_call1
       (Stdlib[53], _H_);
     }
      /*<<printexc.ml:327:4>>*/ return  /*<<printexc.ml:327:4>>*/ caml_call1
             (Stdlib[63], Stdlib[40]);
     /*<<printexc.ml:328:14>>*/ }
-    /*<<printexc.ml:330:33>>*/ var
-    uncaught_exception_handler = [0, default_uncaught_exception_han];
+   var
+    uncaught_exception_handler =
+       /*<<printexc.ml:330:33>>*/ [0, default_uncaught_exception_han];
    function set_uncaught_exception_handler(fn){
      /*<<printexc.ml:332:40>>*/ uncaught_exception_handler[1] = fn;
     return 0;
@@ -22524,22 +23141,23 @@
       catch(_E_){}
        /*<<printexc.ml:353:4>>*/ try{
        var
-         /*<<printexc.ml:354:6>>*/ _A_ =
-           /*<<printexc.ml:354:6>>*/ caml_call2
+        _A_ =
+           /*<<printexc.ml:354:6>>*/  /*<<printexc.ml:354:6>>*/ caml_call2
            (uncaught_exception_handler[1], exn$0, raw_backtrace),
         _z_ = _A_;
       }
       catch(exn$1){
        var
         exn = caml_wrap_exception(exn$1),
-         /*<<printexc.ml:338:4>>*/ raw_backtrace$0 =
-           /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0),
-         /*<<printexc.ml:357:44>>*/ _x_ = to_string(exn$0);
+        raw_backtrace$0 =
+           /*<<printexc.ml:338:4>>*/  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra
+           (0),
+        _x_ =  /*<<printexc.ml:357:44>>*/ to_string(exn$0);
         /*<<printexc.ml:357:6>>*/  /*<<printexc.ml:357:6>>*/ caml_call2
         (Stdlib_Printf[3], _p_, _x_);
         /*<<printexc.ml:358:6>>*/ print_raw_backtrace
         (Stdlib[40], raw_backtrace);
-        /*<<printexc.ml:360:8>>*/ var _y_ = to_string(exn);
+       var _y_ =  /*<<printexc.ml:360:8>>*/ to_string(exn);
         /*<<printexc.ml:359:6>>*/  /*<<printexc.ml:359:6>>*/ caml_call2
         (Stdlib_Printf[3], _q_, _y_);
         /*<<printexc.ml:361:6>>*/ print_raw_backtrace
@@ -22614,11 +23232,11 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_restore_raw_backtrace =  /*<<?>>*/ runtime.caml_restore_raw_backtrace,
+    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)
@@ -22647,8 +23265,10 @@
      /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v);
     /*<<fun.ml:20:26>>*/ }
    var
-     /*<<fun.ml:22:0>>*/ Finally_raised =
-      [248, "Stdlib.Fun.Finally_raised", runtime.caml_fresh_oo_id(0)],
+    Finally_raised =
+       /*<<fun.ml:22:0>>*/ [248,
+       "Stdlib.Fun.Finally_raised",
+       runtime.caml_fresh_oo_id(0)],
     cst_Fun_Finally_raised = "Fun.Finally_raised: ";
     /*<<fun.ml:24:9>>*/  /*<<fun.ml:24:9>>*/ caml_call1
     (Stdlib_Printexc[9],
@@ -22657,8 +23277,9 @@
         /*<<fun.ml:26:7>>*/ return 0;
       var
        exn = param[2],
-        /*<<fun.ml:25:55>>*/ _a_ =
-          /*<<fun.ml:25:55>>*/ caml_call1(Stdlib_Printexc[1], exn);
+       _a_ =
+          /*<<fun.ml:25:55>>*/  /*<<fun.ml:25:55>>*/ caml_call1
+          (Stdlib_Printexc[1], exn);
        /*<<fun.ml:25:24>>*/ return [0,
                /*<<fun.ml:25:29>>*/ caml_call2
                (Stdlib[28], cst_Fun_Finally_raised, _a_)];
@@ -22673,23 +23294,25 @@
      catch(e$0){
       var
        e = caml_wrap_exception(e$0),
-        /*<<fun.ml:31:15>>*/ bt =
-          /*<<fun.ml:31:15>>*/ caml_call1(Stdlib_Printexc[12], 0),
-        /*<<fun.ml:32:36>>*/ exn = [0, Finally_raised, e];
+       bt =
+          /*<<fun.ml:31:15>>*/  /*<<fun.ml:31:15>>*/ caml_call1
+          (Stdlib_Printexc[12], 0),
+       exn =  /*<<fun.ml:32:36>>*/ [0, Finally_raised, e];
       caml_restore_raw_backtrace(exn, bt);
        /*<<fun.ml:32:6>>*/ throw  /*<<fun.ml:32:6>>*/ caml_maybe_attach_backtrace
              (exn, 0);
      }
      /*<<fun.ml:32:57>>*/ }
      /*<<fun.ml:34:2>>*/ try{
-      /*<<fun.ml:34:8>>*/ var
-      result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
+     var
+      result =  /*<<fun.ml:34:8>>*/  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
     }
     catch(work_exn$0){
      var
       work_exn = caml_wrap_exception(work_exn$0),
-       /*<<fun.ml:37:20>>*/ work_bt =
-         /*<<fun.ml:37:20>>*/ caml_call1(Stdlib_Printexc[12], 0);
+      work_bt =
+         /*<<fun.ml:37:20>>*/  /*<<fun.ml:37:20>>*/ caml_call1
+         (Stdlib_Printexc[12], 0);
       /*<<fun.ml:38:6>>*/ finally_no_exn(0);
      caml_restore_raw_backtrace(work_exn, work_bt);
       /*<<fun.ml:39:6>>*/ throw  /*<<fun.ml:39:6>>*/ caml_maybe_attach_backtrace
@@ -22711,9 +23334,9 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst = "\n",
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst =  /*<<?>>*/ "\n",
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -22818,8 +23441,8 @@
    function eventlog_resume(param){ /*<<gc.ml:66:25>>*/ return 0;
     /*<<gc.ml:66:27>>*/ }
    function print_stat(c){
-     /*<<gc.ml:71:11>>*/ var
-     st =  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat(0);
+    var
+     st =  /*<<gc.ml:71:11>>*/  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat(0);
      /*<<gc.ml:72:2>>*/  /*<<gc.ml:72:2>>*/ caml_call3
      (Stdlib_Printf[1], c, _a_, st[4]);
      /*<<gc.ml:73:2>>*/  /*<<gc.ml:73:2>>*/ caml_call3
@@ -22830,9 +23453,9 @@
      (Stdlib_Printf[1], c, _d_, st[17]);
      /*<<gc.ml:76:2>>*/  /*<<gc.ml:76:2>>*/ caml_call2
      (Stdlib_Printf[1], c, _e_);
-     /*<<gc.ml:77:25>>*/ var
+    var
      l1 =
-        /*<<gc.ml:77:25>>*/ caml_ml_string_length
+        /*<<gc.ml:77:25>>*/  /*<<gc.ml:77:25>>*/ caml_ml_string_length
         ( /*<<gc.ml:77:25>>*/ caml_call2(Stdlib_Printf[4], _f_, st[1]));
      /*<<gc.ml:78:2>>*/  /*<<gc.ml:78:2>>*/ caml_call4
      (Stdlib_Printf[1], c, _g_, l1, st[1]);
@@ -22842,9 +23465,9 @@
      (Stdlib_Printf[1], c, _i_, l1, st[3]);
      /*<<gc.ml:81:2>>*/  /*<<gc.ml:81:2>>*/ caml_call2
      (Stdlib_Printf[1], c, _j_);
-     /*<<gc.ml:82:25>>*/ var
+    var
      l2 =
-        /*<<gc.ml:82:25>>*/ caml_ml_string_length
+        /*<<gc.ml:82:25>>*/  /*<<gc.ml:82:25>>*/ caml_ml_string_length
         ( /*<<gc.ml:82:25>>*/ caml_call2(Stdlib_Printf[4], _k_, st[15]));
      /*<<gc.ml:83:2>>*/  /*<<gc.ml:83:2>>*/ caml_call4
      (Stdlib_Printf[1], c, _l_, l2, st[15]);
@@ -22868,8 +23491,8 @@
     /*<<gc.ml:92:46>>*/ }
    function allocated_bytes(param){
     var
-      /*<<gc.ml:96:22>>*/ match =
-        /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters(0),
+     match =
+        /*<<gc.ml:96:22>>*/  /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters(0),
      ma = match[3],
      pro = match[2],
      mi = match[1];
@@ -22880,8 +23503,10 @@
             (Stdlib_Atomic[4], a, 0);
     /*<<gc.ml:115:39>>*/ }
    function create_alarm(f){
-     /*<<gc.ml:118:24>>*/ var
-     _y_ =  /*<<gc.ml:118:24>>*/ caml_call1(Stdlib_Atomic[1], 1);
+    var
+     _y_ =
+        /*<<gc.ml:118:24>>*/  /*<<gc.ml:118:24>>*/ caml_call1
+        (Stdlib_Atomic[1], 1);
      /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:2>>*/ caml_call1
      (Stdlib_Domain[6],
       function(param){
@@ -22889,9 +23514,9 @@
        /*<<gc.ml:119:52>>*/ });
     return _y_;
     /*<<gc.ml:121:13>>*/ }
-    /*<<gc.ml:142:23>>*/ var
+   var
     null_tracker =
-      [0,
+       /*<<gc.ml:142:23>>*/ [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>>*/ },
@@ -22932,14 +23557,14 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_ba_dim_1 = runtime.caml_ba_dim_1,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_bytes_length = runtime.caml_ml_bytes_length,
-     /*<<?>>*/ caml_ml_input_bigarray = runtime.caml_ml_input_bigarray,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_ba_dim_1 =  /*<<?>>*/ runtime.caml_ba_dim_1,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
+    caml_ml_input_bigarray =  /*<<?>>*/ runtime.caml_ml_input_bigarray,
+    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)
@@ -22976,8 +23601,10 @@
     open_text = Stdlib[79],
     open_gen = Stdlib[81];
    function with_open(openfun, s, f){
-     /*<<in_channel.ml:35:11>>*/ var
-     ic =  /*<<in_channel.ml:35:11>>*/ caml_call1(openfun, s);
+    var
+     ic =
+        /*<<in_channel.ml:35:11>>*/  /*<<in_channel.ml:35:11>>*/ caml_call1
+        (openfun, s);
      /*<<in_channel.ml:37:4>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call2
             (Stdlib_Fun[5],
              function(param){
@@ -23009,8 +23636,10 @@
     close_noerr = Stdlib[94];
    function input_char(ic){
      /*<<in_channel.ml:55:2>>*/ try{
-      /*<<in_channel.ml:55:8>>*/ var
-      c =  /*<<in_channel.ml:55:8>>*/ caml_call1(Stdlib[82], ic);
+     var
+      c =
+         /*<<in_channel.ml:55:8>>*/  /*<<in_channel.ml:55:8>>*/ caml_call1
+         (Stdlib[82], ic);
     }
     catch(_x_){
      var _w_ = caml_wrap_exception(_x_);
@@ -23021,8 +23650,10 @@
     /*<<in_channel.ml:57:33>>*/ }
    function input_byte(ic){
      /*<<in_channel.ml:60:2>>*/ try{
-      /*<<in_channel.ml:60:8>>*/ var
-      n =  /*<<in_channel.ml:60:8>>*/ caml_call1(Stdlib[87], ic);
+     var
+      n =
+         /*<<in_channel.ml:60:8>>*/  /*<<in_channel.ml:60:8>>*/ caml_call1
+         (Stdlib[87], ic);
     }
     catch(_v_){
      var _u_ = caml_wrap_exception(_v_);
@@ -23033,8 +23664,10 @@
     /*<<in_channel.ml:62:33>>*/ }
    function input_line(ic){
      /*<<in_channel.ml:65:2>>*/ try{
-      /*<<in_channel.ml:65:8>>*/ var
-      s =  /*<<in_channel.ml:65:8>>*/ caml_call1(Stdlib[83], ic);
+     var
+      s =
+         /*<<in_channel.ml:65:8>>*/  /*<<in_channel.ml:65:8>>*/ caml_call1
+         (Stdlib[83], ic);
     }
     catch(_t_){
      var _s_ = caml_wrap_exception(_t_);
@@ -23084,9 +23717,9 @@
      var ofs = ofs$1, len = len$1;
       /*<<in_channel.ml:86:2>>*/ for(;;){
       if(0 >= len)  /*<<in_channel.ml:86:19>>*/ return _b_;
-       /*<<in_channel.ml:87:12>>*/ var
+      var
        r =
-          /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
+          /*<<in_channel.ml:87:12>>*/  /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
           (ic, buf, ofs, len);
        /*<<in_channel.ml:88:4>>*/ if(0 === r)
         /*<<in_channel.ml:89:9>>*/ return 0;
@@ -23100,8 +23733,10 @@
     /*<<in_channel.ml:96:50>>*/ }
    function really_input_string(ic, len){
      /*<<in_channel.ml:99:2>>*/ try{
-      /*<<in_channel.ml:99:8>>*/ var
-      s =  /*<<in_channel.ml:99:8>>*/ caml_call2(Stdlib[86], ic, len);
+     var
+      s =
+         /*<<in_channel.ml:99:8>>*/  /*<<in_channel.ml:99:8>>*/ caml_call2
+         (Stdlib[86], ic, len);
     }
     catch(_p_){
      var _o_ = caml_wrap_exception(_p_);
@@ -23114,9 +23749,9 @@
     var ofs$0 = ofs, len$0 = len;
      /*<<in_channel.ml:107:4>>*/ for(;;){
      if(0 !== len$0){
-       /*<<in_channel.ml:109:14>>*/ var
+      var
        r =
-          /*<<in_channel.ml:109:14>>*/ caml_call4
+          /*<<in_channel.ml:109:14>>*/  /*<<in_channel.ml:109:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs$0, len$0);
        /*<<in_channel.ml:110:6>>*/ if(0 !== r){
        var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
@@ -23131,7 +23766,7 @@
    function ensure(buf, ofs, n){
     var len = caml_ml_bytes_length(buf);
     if((ofs + n | 0) <= len)  /*<<in_channel.ml:132:25>>*/ return buf;
-     /*<<in_channel.ml:134:18>>*/ var new_len = [0, len];
+    var new_len =  /*<<in_channel.ml:134:18>>*/ [0, len];
     for(;;){
      if(new_len[1] >= (ofs + n | 0)) break;
      new_len[1] = (2 * new_len[1] | 0) + 1 | 0;
@@ -23146,20 +23781,25 @@
           ? Stdlib_Sys[12]
           :  /*<<in_channel.ml:145:8>>*/ caml_call1
             (Stdlib[2], cst_In_channel_input_all_chann),
-      /*<<in_channel.ml:148:18>>*/ new_buf =
-        /*<<in_channel.ml:148:18>>*/ caml_create_bytes(new_len$1);
+     new_buf =
+        /*<<in_channel.ml:148:18>>*/  /*<<in_channel.ml:148:18>>*/ caml_create_bytes
+        (new_len$1);
      /*<<in_channel.ml:149:4>>*/  /*<<in_channel.ml:149:4>>*/ caml_call5
      (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
      /*<<in_channel.ml:149:4>>*/ return new_buf;
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
-     /*<<in_channel.ml:154:2>>*/ var chunk_size = 65536;
+    var chunk_size =  /*<<in_channel.ml:154:2>>*/ 65536;
      /*<<in_channel.ml:155:2>>*/ try{
      var
-       /*<<in_channel.ml:157:36>>*/ _k_ =
-         /*<<in_channel.ml:157:36>>*/ caml_call1(Stdlib[91], ic),
-       /*<<in_channel.ml:157:6>>*/ _l_ =
-         /*<<in_channel.ml:157:6>>*/ caml_call1(Stdlib[92], ic) - _k_ | 0,
+      _k_ =
+         /*<<in_channel.ml:157:36>>*/  /*<<in_channel.ml:157:36>>*/ caml_call1
+         (Stdlib[91], ic),
+      _l_ =
+         /*<<in_channel.ml:157:6>>*/  /*<<in_channel.ml:157:6>>*/ caml_call1
+         (Stdlib[92], ic)
+        - _k_
+        | 0,
       initial_size = _l_;
     }
     catch(_n_){
@@ -23168,20 +23808,25 @@
      var initial_size = -1;
     }
     var
-      /*<<in_channel.ml:161:2>>*/ initial_size$0 =
-       0 <= initial_size ? initial_size : chunk_size,
+     initial_size$0 =
+        /*<<in_channel.ml:161:2>>*/ 0 <= initial_size
+        ? initial_size
+        : chunk_size,
      initial_size$1 =
        initial_size$0 <= Stdlib_Sys[12] ? initial_size$0 : Stdlib_Sys[12],
-      /*<<in_channel.ml:168:12>>*/ buf =
-        /*<<in_channel.ml:168:12>>*/ caml_create_bytes(initial_size$1),
-      /*<<in_channel.ml:169:14>>*/ nread =
-       read_upto(ic, buf, 0, initial_size$1);
+     buf =
+        /*<<in_channel.ml:168:12>>*/  /*<<in_channel.ml:168:12>>*/ caml_create_bytes
+        (initial_size$1),
+     nread =
+        /*<<in_channel.ml:169:14>>*/ read_upto(ic, buf, 0, initial_size$1);
     if(nread < initial_size$1)
       /*<<in_channel.ml:171:4>>*/ return  /*<<in_channel.ml:171:4>>*/ caml_call3
              (Stdlib_Bytes[8], buf, 0, nread);
      /*<<in_channel.ml:172:7>>*/ try{
-      /*<<in_channel.ml:173:10>>*/ var
-      c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);
+     var
+      c =
+         /*<<in_channel.ml:173:10>>*/  /*<<in_channel.ml:173:10>>*/ caml_call1
+         (Stdlib[82], ic);
     }
     catch(_m_){
      var _j_ = caml_wrap_exception(_m_);
@@ -23190,18 +23835,18 @@
               (Stdlib_Bytes[44], buf);
      throw caml_maybe_attach_backtrace(_j_, 0);
     }
-     /*<<in_channel.ml:190:18>>*/ var buf$2 = ensure(buf, nread, 65537);
+    var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
      /*<<in_channel.ml:191:8>>*/  /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set
      (buf$2, nread, c);
     var
-      /*<<in_channel.ml:191:8>>*/ ofs$1 = nread + 1 | 0,
+     ofs$1 =  /*<<in_channel.ml:191:8>>*/ nread + 1 | 0,
      buf$0 = buf$2,
      ofs = ofs$1;
      /*<<in_channel.ml:180:10>>*/ for(;;){
      var
-       /*<<in_channel.ml:180:20>>*/ buf$1 = ensure(buf$0, ofs, chunk_size),
+      buf$1 =  /*<<in_channel.ml:180:20>>*/ ensure(buf$0, ofs, chunk_size),
       rem = caml_ml_bytes_length(buf$1) - ofs | 0,
-       /*<<in_channel.ml:184:18>>*/ r = read_upto(ic, buf$1, ofs, rem);
+      r =  /*<<in_channel.ml:184:18>>*/ read_upto(ic, buf$1, ofs, rem);
      if(r < rem)
        /*<<in_channel.ml:180:20>>*/ return  /*<<in_channel.ml:180:20>>*/ caml_call3
               (Stdlib_Bytes[8], buf$1, 0, ofs + r | 0);
@@ -23212,8 +23857,10 @@
     /*<<in_channel.ml:193:5>>*/ }
    function input_lines(ic){
      /*<<in_channel.ml:196:2>>*/ try{
-      /*<<in_channel.ml:196:8>>*/ var
-      line =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
+     var
+      line =
+         /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ caml_call1
+         (Stdlib[83], ic);
     }
     catch(_h_){
      var _e_ = caml_wrap_exception(_h_);
@@ -23221,13 +23868,15 @@
      throw caml_maybe_attach_backtrace(_e_, 0);
     }
     var
-      /*<<in_channel.ml:197:12>>*/ block = [0, line, 24029],
+     block =  /*<<in_channel.ml:197:12>>*/ [0, line, 24029],
      dst = block,
      offset = 1;
      /*<<in_channel.ml:196:2>>*/ for(;;){
       /*<<in_channel.ml:196:2>>*/ try{
-       /*<<in_channel.ml:196:8>>*/ var
-       line$0 =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
+      var
+       line$0 =
+          /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ caml_call1
+          (Stdlib[83], ic);
      }
      catch(_g_){
       var _f_ = caml_wrap_exception(_g_);
@@ -23235,7 +23884,7 @@
       dst[1 + offset] = 0;
        /*<<in_channel.ml:197:20>>*/ return block;
      }
-      /*<<in_channel.ml:197:12>>*/ var dst$0 = [0, line$0, 24029];
+     var dst$0 =  /*<<in_channel.ml:197:12>>*/ [0, line$0, 24029];
      dst[1 + offset] = dst$0;
      dst = dst$0;
      offset = 1;
@@ -23245,16 +23894,20 @@
     var accu$0 = accu;
      /*<<in_channel.ml:201:2>>*/ for(;;){
       /*<<in_channel.ml:201:2>>*/ try{
-       /*<<in_channel.ml:201:8>>*/ var
-       line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);
+      var
+       line =
+          /*<<in_channel.ml:201:8>>*/  /*<<in_channel.ml:201:8>>*/ caml_call1
+          (Stdlib[83], ic);
      }
      catch(_d_){
       var _c_ = caml_wrap_exception(_d_);
       if(_c_ === Stdlib[12])  /*<<in_channel.ml:203:29>>*/ return accu$0;
       throw caml_maybe_attach_backtrace(_c_, 0);
      }
-      /*<<in_channel.ml:202:25>>*/ var
-      accu$1 =  /*<<in_channel.ml:202:25>>*/ caml_call2(f, accu$0, line);
+     var
+      accu$1 =
+         /*<<in_channel.ml:202:25>>*/  /*<<in_channel.ml:202:25>>*/ caml_call2
+         (f, accu$0, line);
      accu$0 = accu$1;
     }
     /*<<in_channel.ml:203:33>>*/ }
@@ -23298,7 +23951,7 @@
 (function
   (globalThis){
    "use strict";
-    /*<<?>>*/ var runtime = globalThis.jsoo_runtime;
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -23319,8 +23972,10 @@
     open_text = Stdlib[60],
     open_gen = Stdlib[62];
    function with_open(openfun, s, f){
-     /*<<out_channel.ml:36:11>>*/ var
-     oc =  /*<<out_channel.ml:36:11>>*/ caml_call1(openfun, s);
+    var
+     oc =
+        /*<<out_channel.ml:36:11>>*/  /*<<out_channel.ml:36:11>>*/ caml_call1
+        (openfun, s);
      /*<<out_channel.ml:38:4>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call2
             (Stdlib_Fun[5],
              function(param){
@@ -23414,22 +24069,22 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst = "",
-     /*<<?>>*/ cst_Digest_of_hex$1 = "Digest.of_hex",
-     /*<<?>>*/ cst_Digest_substring$1 = "Digest.substring",
-     /*<<?>>*/ cst_Digest_to_hex$1 = "Digest.to_hex",
-     /*<<?>>*/ caml_blake2_final = runtime.caml_blake2_final,
-     /*<<?>>*/ caml_blake2_string = runtime.caml_blake2_string,
-     /*<<?>>*/ caml_blake2_update = runtime.caml_blake2_update,
-     /*<<?>>*/ caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_md5_chan = runtime.caml_md5_chan,
-     /*<<?>>*/ caml_md5_string = runtime.caml_md5_string,
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length,
-     /*<<?>>*/ caml_string_get = runtime.caml_string_get;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst =  /*<<?>>*/ "",
+    cst_Digest_of_hex$1 =  /*<<?>>*/ "Digest.of_hex",
+    cst_Digest_substring$1 =  /*<<?>>*/ "Digest.substring",
+    cst_Digest_to_hex$1 =  /*<<?>>*/ "Digest.to_hex",
+    caml_blake2_final =  /*<<?>>*/ runtime.caml_blake2_final,
+    caml_blake2_string =  /*<<?>>*/ runtime.caml_blake2_string,
+    caml_blake2_update =  /*<<?>>*/ runtime.caml_blake2_update,
+    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_md5_chan =  /*<<?>>*/ runtime.caml_md5_chan,
+    caml_md5_string =  /*<<?>>*/ runtime.caml_md5_string,
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
+    caml_string_get =  /*<<?>>*/ runtime.caml_string_get;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -23464,20 +24119,24 @@
      return caml_call1(Stdlib_Char[1], _l_);
      /*<<digest.ml:21:52>>*/ }
     var
-      /*<<digest.ml:22:2>>*/ len =
-        /*<<digest.ml:22:2>>*/ caml_ml_string_length(d),
-      /*<<digest.ml:23:15>>*/ result =
-        /*<<digest.ml:23:15>>*/ caml_create_bytes(len * 2 | 0),
-      /*<<digest.ml:24:2>>*/ _j_ = len - 1 | 0,
-      /*<<digest.ml:23:15>>*/ _i_ = 0;
+     len =
+        /*<<digest.ml:22:2>>*/  /*<<digest.ml:22:2>>*/ caml_ml_string_length
+        (d),
+     result =
+        /*<<digest.ml:23:15>>*/  /*<<digest.ml:23:15>>*/ caml_create_bytes
+        (len * 2 | 0),
+     _j_ =  /*<<digest.ml:24:2>>*/ len - 1 | 0,
+     _i_ =  /*<<digest.ml:23:15>>*/ 0;
     if(_j_ >= 0){
      var i = _i_;
      for(;;){
-       /*<<digest.ml:25:22>>*/ var
-       x =  /*<<digest.ml:25:22>>*/ caml_string_get(d, i);
+      var
+       x =
+          /*<<digest.ml:25:22>>*/  /*<<digest.ml:25:22>>*/ caml_string_get
+          (d, i);
       caml_bytes_unsafe_set(result, i * 2 | 0, char_hex(x >>> 4 | 0));
       caml_bytes_unsafe_set(result, (i * 2 | 0) + 1 | 0, char_hex(x & 15));
-       /*<<digest.ml:24:2>>*/ var _k_ = i + 1 | 0;
+      var _k_ =  /*<<digest.ml:24:2>>*/ i + 1 | 0;
       if(_j_ === i) break;
       i = _k_;
      }
@@ -23503,8 +24162,8 @@
              function(i){
               var
                i$0 = 2 * i | 0,
-                /*<<digest.ml:38:35>>*/ _g_ =
-                 digit
+               _g_ =
+                  /*<<digest.ml:38:35>>*/ digit
                   ( /*<<digest.ml:38:41>>*/ caml_string_get(s, i$0 + 1 | 0)),
                _h_ =
                  (digit( /*<<digest.ml:38:21>>*/ caml_string_get(s, i$0))
@@ -23554,11 +24213,13 @@
      /*<<digest.ml:96:48>>*/ }
     function channel(ic, toread){
      var
-       /*<<digest.ml:99:4>>*/ buf_size = 4096,
-       /*<<digest.ml:100:14>>*/ buf =
-         /*<<digest.ml:100:14>>*/ caml_create_bytes(4096),
-       /*<<digest.ml:82:18>>*/ ctx =
-         /*<<digest.ml:82:18>>*/ runtime.caml_blake2_create(hash_length, cst);
+      buf_size =  /*<<digest.ml:99:4>>*/ 4096,
+      buf =
+         /*<<digest.ml:100:14>>*/  /*<<digest.ml:100:14>>*/ caml_create_bytes
+         (4096),
+      ctx =
+         /*<<digest.ml:82:18>>*/  /*<<digest.ml:82:18>>*/ runtime.caml_blake2_create
+         (hash_length, cst);
       /*<<digest.ml:102:4>>*/ if(0 <= toread){
       var toread$0 = toread;
        /*<<digest.ml:111:8>>*/ for(;;){
@@ -23566,11 +24227,11 @@
          /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
                 (ctx, hash_length);
        var
-         /*<<digest.ml:112:44>>*/ _c_ =
-           /*<<digest.ml:112:44>>*/ caml_call2
+        _c_ =
+           /*<<digest.ml:112:44>>*/  /*<<digest.ml:112:44>>*/ caml_call2
            (Stdlib_Int[10], buf_size, toread$0),
-         /*<<digest.ml:112:18>>*/ n =
-           /*<<digest.ml:112:18>>*/ caml_call4
+        n =
+           /*<<digest.ml:112:18>>*/  /*<<digest.ml:112:18>>*/ caml_call4
            (Stdlib_In_channel[16], ic, buf, 0, _c_);
         /*<<digest.ml:113:10>>*/ if(0 === n)
          /*<<digest.ml:114:15>>*/ throw  /*<<digest.ml:114:15>>*/ caml_maybe_attach_backtrace
@@ -23586,9 +24247,9 @@
      }
      else
        /*<<digest.ml:104:8>>*/ for(;;){
-        /*<<digest.ml:104:16>>*/ var
+       var
         n$0 =
-           /*<<digest.ml:104:16>>*/ caml_call4
+           /*<<digest.ml:104:16>>*/  /*<<digest.ml:104:16>>*/ caml_call4
            (Stdlib_In_channel[16], ic, buf, 0, buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
          /*<<digest.ml:106:13>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
@@ -23748,24 +24409,24 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_Bigarray_Array3_of_array_n$1 =
-      "Bigarray.Array3.of_array: non-cubic data",
-     /*<<?>>*/ 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,
-     /*<<?>>*/ caml_ba_dim_2 = runtime.caml_ba_dim_2,
-     /*<<?>>*/ caml_ba_kind = runtime.caml_ba_kind,
-     /*<<?>>*/ caml_ba_num_dims = runtime.caml_ba_num_dims,
-     /*<<?>>*/ caml_ba_reshape = runtime.caml_ba_reshape,
-     /*<<?>>*/ caml_ba_set_1 = runtime.caml_ba_set_1,
-     /*<<?>>*/ caml_ba_set_2 = runtime.caml_ba_set_2,
-     /*<<?>>*/ caml_ba_set_3 = runtime.caml_ba_set_3,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_Bigarray_Array3_of_array_n$1 =
+       /*<<?>>*/ "Bigarray.Array3.of_array: non-cubic data",
+    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,
+    caml_ba_dim_2 =  /*<<?>>*/ runtime.caml_ba_dim_2,
+    caml_ba_kind =  /*<<?>>*/ runtime.caml_ba_kind,
+    caml_ba_num_dims =  /*<<?>>*/ runtime.caml_ba_num_dims,
+    caml_ba_reshape =  /*<<?>>*/ runtime.caml_ba_reshape,
+    caml_ba_set_1 =  /*<<?>>*/ runtime.caml_ba_set_1,
+    caml_ba_set_2 =  /*<<?>>*/ runtime.caml_ba_set_2,
+    caml_ba_set_3 =  /*<<?>>*/ runtime.caml_ba_set_3,
+    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
             ? f(a0)
@@ -23834,15 +24495,15 @@
       /*<<bigarray.ml:108:35>>*/ return;
     }
     var
-      /*<<bigarray.ml:109:27>>*/ _am_ =
-       caml_check_bound(max, col)[1 + col] - 1 | 0,
-      /*<<bigarray.ml:109:9>>*/ _al_ = 0;
+     _am_ =
+        /*<<bigarray.ml:109:27>>*/ caml_check_bound(max, col)[1 + col] - 1 | 0,
+     _al_ =  /*<<bigarray.ml:109:9>>*/ 0;
     if(_am_ >= 0){
      var j = _al_;
      for(;;){
        /*<<bigarray.ml:110:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
        /*<<bigarray.ml:111:11>>*/ cloop(arr, idx, f, col + 1 | 0, max);
-       /*<<bigarray.ml:111:11>>*/ var _an_ = j + 1 | 0;
+      var _an_ =  /*<<bigarray.ml:111:11>>*/ j + 1 | 0;
       if(_am_ === j) break;
       j = _an_;
      }
@@ -23855,14 +24516,14 @@
       /*<<bigarray.ml:114:20>>*/ return;
     }
     var
-      /*<<bigarray.ml:115:22>>*/ _aj_ = caml_check_bound(max, col)[1 + col],
-      /*<<bigarray.ml:115:9>>*/ _ai_ = 1;
+     _aj_ =  /*<<bigarray.ml:115:22>>*/ caml_check_bound(max, col)[1 + col],
+     _ai_ =  /*<<bigarray.ml:115:9>>*/ 1;
     if(_aj_ >= 1){
      var j = _ai_;
      for(;;){
        /*<<bigarray.ml:116:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
        /*<<bigarray.ml:117:11>>*/ floop(arr, idx, f, col - 1 | 0, max);
-       /*<<bigarray.ml:117:11>>*/ var _ak_ = j + 1 | 0;
+      var _ak_ =  /*<<bigarray.ml:117:11>>*/ j + 1 | 0;
       if(_aj_ === j) break;
       j = _ak_;
      }
@@ -23870,9 +24531,10 @@
     /*<<bigarray.ml:118:13>>*/ }
    function init(kind, layout, dims, f){
     var
-      /*<<bigarray.ml:120:14>>*/ arr =
-        /*<<bigarray.ml:120:14>>*/ caml_ba_create(kind, layout, dims),
-      /*<<bigarray.ml:121:4>>*/ dlen = dims.length - 1;
+     arr =
+        /*<<bigarray.ml:120:14>>*/  /*<<bigarray.ml:120:14>>*/ caml_ba_create
+        (kind, layout, dims),
+     dlen =  /*<<bigarray.ml:121:4>>*/ dims.length - 1;
      /*<<bigarray.ml:122:4>>*/ return layout
             ? (floop
                (arr,
@@ -23891,19 +24553,23 @@
     /*<<bigarray.ml:124:77>>*/ }
    function dims(a){
     var
-      /*<<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:131:4>>*/ _af_ = n - 1 | 0,
-      /*<<bigarray.ml:130:12>>*/ _ae_ = 0;
+     n =
+        /*<<bigarray.ml:129:12>>*/  /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims
+        (a),
+     d =
+        /*<<bigarray.ml:130:12>>*/  /*<<bigarray.ml:130:12>>*/ caml_make_vect
+        (n, 0),
+     _af_ =  /*<<bigarray.ml:131:4>>*/ n - 1 | 0,
+     _ae_ =  /*<<bigarray.ml:130:12>>*/ 0;
     if(_af_ >= 0){
      var i = _ae_;
      for(;;){
-       /*<<bigarray.ml:131:33>>*/ var
-       _ag_ =  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim(a, i);
+      var
+       _ag_ =
+          /*<<bigarray.ml:131:33>>*/  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim
+          (a, i);
        /*<<bigarray.ml:131:24>>*/ caml_check_bound(d, i)[1 + i] = _ag_;
-       /*<<bigarray.ml:131:24>>*/ var _ah_ = i + 1 | 0;
+      var _ah_ =  /*<<bigarray.ml:131:24>>*/ i + 1 | 0;
       if(_af_ === i) break;
       i = _ah_;
      }
@@ -23912,9 +24578,9 @@
     /*<<bigarray.ml:132:5>>*/ }
    function size_in_bytes(arr){
     var
-      /*<<bigarray.ml:140:63>>*/ _ac_ = dims(arr),
-      /*<<bigarray.ml:140:38>>*/ _ad_ =
-        /*<<bigarray.ml:140:38>>*/ caml_call3
+     _ac_ =  /*<<bigarray.ml:140:63>>*/ dims(arr),
+     _ad_ =
+        /*<<bigarray.ml:140:38>>*/  /*<<bigarray.ml:140:38>>*/ caml_call3
         (Stdlib_Array[18], caml_mul, 1, _ac_);
      /*<<bigarray.ml:140:4>>*/ return  /*<<bigarray.ml:140:4>>*/ caml_mul
             (kind_size_in_bytes( /*<<bigarray.ml:140:24>>*/ caml_ba_kind(arr)),
@@ -23929,7 +24595,7 @@
             (arr, [0]);
     /*<<bigarray.ml:162:37>>*/ }
    function set(arr){
-     /*<<bigarray.ml:163:16>>*/ var _aa_ = [0];
+    var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
      /*<<bigarray.ml:163:33>>*/ return function(_ab_){
       /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);};
     /*<<bigarray.ml:163:37>>*/ }
@@ -23938,7 +24604,7 @@
             ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind(arr));
     /*<<bigarray.ml:170:55>>*/ }
    function of_value(kind, layout, v){
-     /*<<bigarray.ml:176:12>>*/ var a = create(kind, layout);
+    var a =  /*<<bigarray.ml:176:12>>*/ create(kind, layout);
      /*<<bigarray.ml:177:4>>*/ set(a)(v);
      /*<<bigarray.ml:177:4>>*/ return a;
     /*<<bigarray.ml:178:5>>*/ }
@@ -23947,8 +24613,10 @@
             (kind, layout, [0, dim]);
     /*<<bigarray.ml:185:39>>*/ }
    function size_in_bytes$1(arr){
-     /*<<bigarray.ml:199:38>>*/ var
-     _$_ =  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1(arr);
+    var
+     _$_ =
+        /*<<bigarray.ml:199:38>>*/  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1
+        (arr);
      /*<<bigarray.ml:199:4>>*/ return  /*<<bigarray.ml:199:4>>*/ caml_mul
             (kind_size_in_bytes( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
              _$_);
@@ -23960,28 +24628,28 @@
             :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice(a, [0, n]);
     /*<<bigarray.ml:205:76>>*/ }
    function init$0(kind, layout, dim, f){
-     /*<<bigarray.ml:213:14>>*/ var arr = create$0(kind, layout, dim);
+    var arr =  /*<<bigarray.ml:213:14>>*/ create$0(kind, layout, dim);
      /*<<bigarray.ml:214:4>>*/ if(layout){
-      /*<<bigarray.ml:211:4>>*/ var _Z_ = 1;
+     var _Z_ =  /*<<bigarray.ml:211:4>>*/ 1;
      if(dim >= 1){
       var i$0 = _Z_;
       for(;;){
         /*<<bigarray.ml:211:24>>*/  /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
         (arr, i$0,  /*<<bigarray.ml:211:41>>*/ caml_call1(f, i$0));
-        /*<<bigarray.ml:211:24>>*/ var ___ = i$0 + 1 | 0;
+       var ___ =  /*<<bigarray.ml:211:24>>*/ i$0 + 1 | 0;
        if(dim === i$0) break;
        i$0 = ___;
       }
      }
       /*<<bigarray.ml:216:24>>*/ return arr;
     }
-    var _X_ = dim - 1 | 0,  /*<<bigarray.ml:209:4>>*/ _W_ = 0;
+    var _X_ = dim - 1 | 0, _W_ =  /*<<bigarray.ml:209:4>>*/ 0;
     if(_X_ >= 0){
      var i = _W_;
      for(;;){
        /*<<bigarray.ml:209:29>>*/  /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
        (arr, i,  /*<<bigarray.ml:209:46>>*/ caml_call1(f, i));
-       /*<<bigarray.ml:209:29>>*/ var _Y_ = i + 1 | 0;
+      var _Y_ =  /*<<bigarray.ml:209:29>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
@@ -23990,8 +24658,8 @@
     /*<<bigarray.ml:216:51>>*/ }
    function of_array(kind, layout, data){
     var
-      /*<<bigarray.ml:218:13>>*/ ba = create$0(kind, layout, data.length - 1),
-      /*<<bigarray.ml:219:4>>*/ ofs = layout ? 1 : 0,
+     ba =  /*<<bigarray.ml:218:13>>*/ create$0(kind, layout, data.length - 1),
+     ofs =  /*<<bigarray.ml:219:4>>*/ layout ? 1 : 0,
      _U_ = data.length - 2 | 0,
      _T_ = 0;
     if(_U_ >= 0){
@@ -23999,7 +24667,7 @@
      for(;;){
        /*<<bigarray.ml:224:42>>*/  /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
        (ba, i + ofs | 0, caml_check_bound(data, i)[1 + i]);
-       /*<<bigarray.ml:224:42>>*/ var _V_ = i + 1 | 0;
+      var _V_ =  /*<<bigarray.ml:224:42>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -24012,10 +24680,12 @@
     /*<<bigarray.ml:231:46>>*/ }
    function size_in_bytes$2(arr){
     var
-      /*<<bigarray.ml:247:51>>*/ _R_ =
-        /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2(arr),
-      /*<<bigarray.ml:247:38>>*/ _S_ =
-        /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1(arr);
+     _R_ =
+        /*<<bigarray.ml:247:51>>*/  /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2
+        (arr),
+     _S_ =
+        /*<<bigarray.ml:247:38>>*/  /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1
+        (arr);
     return caml_mul
             ( /*<<bigarray.ml:247:4>>*/ caml_mul
               (kind_size_in_bytes
@@ -24032,46 +24702,46 @@
             (a, [0, n]);
     /*<<bigarray.ml:255:52>>*/ }
    function init$1(kind, layout, dim1, dim2, f){
-     /*<<bigarray.ml:271:14>>*/ var arr = create$1(kind, layout, dim1, dim2);
+    var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
      /*<<bigarray.ml:272:4>>*/ if(layout){
-      /*<<bigarray.ml:265:4>>*/ var _N_ = 1;
+     var _N_ =  /*<<bigarray.ml:265:4>>*/ 1;
      if(dim2 >= 1){
       var j$0 = _N_;
       for(;;){
-        /*<<bigarray.ml:266:6>>*/ var _O_ = 1;
+       var _O_ =  /*<<bigarray.ml:266:6>>*/ 1;
        if(dim1 >= 1){
         var i$0 = _O_;
         for(;;){
           /*<<bigarray.ml:267:8>>*/  /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
           (arr, i$0, j$0,  /*<<bigarray.ml:267:27>>*/ caml_call2(f, i$0, j$0));
-          /*<<bigarray.ml:267:8>>*/ var _Q_ = i$0 + 1 | 0;
+         var _Q_ =  /*<<bigarray.ml:267:8>>*/ i$0 + 1 | 0;
          if(dim1 === i$0) break;
          i$0 = _Q_;
         }
        }
-        /*<<bigarray.ml:265:4>>*/ var _P_ = j$0 + 1 | 0;
+       var _P_ =  /*<<bigarray.ml:265:4>>*/ j$0 + 1 | 0;
        if(dim2 === j$0) break;
        j$0 = _P_;
       }
      }
       /*<<bigarray.ml:274:24>>*/ return arr;
     }
-    var _I_ = dim1 - 1 | 0,  /*<<bigarray.ml:259:4>>*/ _H_ = 0;
+    var _I_ = dim1 - 1 | 0, _H_ =  /*<<bigarray.ml:259:4>>*/ 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-      var _K_ = dim2 - 1 | 0,  /*<<bigarray.ml:260:6>>*/ _J_ = 0;
+      var _K_ = dim2 - 1 | 0, _J_ =  /*<<bigarray.ml:260:6>>*/ 0;
       if(_K_ >= 0){
        var j = _J_;
        for(;;){
          /*<<bigarray.ml:261:8>>*/  /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
          (arr, i, j,  /*<<bigarray.ml:261:27>>*/ caml_call2(f, i, j));
-         /*<<bigarray.ml:261:8>>*/ var _M_ = j + 1 | 0;
+        var _M_ =  /*<<bigarray.ml:261:8>>*/ j + 1 | 0;
         if(_K_ === j) break;
         j = _M_;
        }
       }
-       /*<<bigarray.ml:259:4>>*/ var _L_ = i + 1 | 0;
+      var _L_ =  /*<<bigarray.ml:259:4>>*/ i + 1 | 0;
       if(_I_ === i) break;
       i = _L_;
      }
@@ -24081,33 +24751,35 @@
    function of_array$0(kind, layout, data){
     var
      dim1 = data.length - 1,
-      /*<<bigarray.ml:277:4>>*/ dim2 =
-       0 === dim1 ? 0 : caml_check_bound(data, 0)[1].length - 1,
-      /*<<bigarray.ml:278:13>>*/ ba = create$1(kind, layout, dim1, dim2),
-      /*<<bigarray.ml:279:4>>*/ ofs = layout ? 1 : 0,
-      /*<<bigarray.ml:284:4>>*/ _C_ = dim1 - 1 | 0,
+     dim2 =
+        /*<<bigarray.ml:277:4>>*/ 0 === dim1
+        ? 0
+        : caml_check_bound(data, 0)[1].length - 1,
+     ba =  /*<<bigarray.ml:278:13>>*/ create$1(kind, layout, dim1, dim2),
+     ofs =  /*<<bigarray.ml:279:4>>*/ layout ? 1 : 0,
+     _C_ =  /*<<bigarray.ml:284:4>>*/ dim1 - 1 | 0,
      _B_ = 0;
     if(_C_ >= 0){
      var i = _B_;
      for(;;){
-       /*<<bigarray.ml:285:16>>*/ var row = caml_check_bound(data, i)[1 + i];
+      var row =  /*<<bigarray.ml:285:16>>*/ caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
         /*<<bigarray.ml:287:8>>*/  /*<<bigarray.ml:287:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array2_of_array_n);
       var
-        /*<<bigarray.ml:277:32>>*/ _E_ = dim2 - 1 | 0,
-        /*<<bigarray.ml:287:8>>*/ _D_ = 0;
+       _E_ =  /*<<bigarray.ml:277:32>>*/ dim2 - 1 | 0,
+       _D_ =  /*<<bigarray.ml:287:8>>*/ 0;
       if(_E_ >= 0){
        var j = _D_;
        for(;;){
          /*<<bigarray.ml:289:8>>*/  /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
          (ba, i + ofs | 0, j + ofs | 0, caml_check_bound(row, j)[1 + j]);
-         /*<<bigarray.ml:289:8>>*/ var _G_ = j + 1 | 0;
+        var _G_ =  /*<<bigarray.ml:289:8>>*/ j + 1 | 0;
         if(_E_ === j) break;
         j = _G_;
        }
       }
-       /*<<bigarray.ml:284:4>>*/ var _F_ = i + 1 | 0;
+      var _F_ =  /*<<bigarray.ml:284:4>>*/ i + 1 | 0;
       if(_C_ === i) break;
       i = _F_;
      }
@@ -24120,12 +24792,15 @@
     /*<<bigarray.ml:298:52>>*/ }
    function size_in_bytes$3(arr){
     var
-      /*<<bigarray.ml:316:64>>*/ _y_ =
-        /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3(arr),
-      /*<<bigarray.ml:316:51>>*/ _z_ =
-        /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2(arr),
-      /*<<bigarray.ml:316:38>>*/ _A_ =
-        /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1(arr);
+     _y_ =
+        /*<<bigarray.ml:316:64>>*/  /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3
+        (arr),
+     _z_ =
+        /*<<bigarray.ml:316:51>>*/  /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2
+        (arr),
+     _A_ =
+        /*<<bigarray.ml:316:38>>*/  /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1
+        (arr);
     return caml_mul
             (caml_mul
               ( /*<<bigarray.ml:316:4>>*/ caml_mul
@@ -24152,18 +24827,19 @@
             (a, [0, n]);
     /*<<bigarray.ml:326:54>>*/ }
    function init$2(kind, layout, dim1, dim2, dim3, f){
-     /*<<bigarray.ml:346:14>>*/ var
-     arr = create$2(kind, layout, dim1, dim2, dim3);
+    var
+     arr =
+        /*<<bigarray.ml:346:14>>*/ create$2(kind, layout, dim1, dim2, dim3);
      /*<<bigarray.ml:347:4>>*/ if(layout){
-      /*<<bigarray.ml:338:4>>*/ var _s_ = 1;
+     var _s_ =  /*<<bigarray.ml:338:4>>*/ 1;
      if(dim3 >= 1){
       var k$0 = _s_;
       for(;;){
-        /*<<bigarray.ml:339:6>>*/ var _t_ = 1;
+       var _t_ =  /*<<bigarray.ml:339:6>>*/ 1;
        if(dim2 >= 1){
         var j$0 = _t_;
         for(;;){
-          /*<<bigarray.ml:340:8>>*/ var _v_ = 1;
+         var _v_ =  /*<<bigarray.ml:340:8>>*/ 1;
          if(dim1 >= 1){
           var i$0 = _v_;
           for(;;){
@@ -24173,48 +24849,48 @@
              j$0,
              k$0,
               /*<<bigarray.ml:341:31>>*/ caml_call3(f, i$0, j$0, k$0));
-            /*<<bigarray.ml:341:10>>*/ var _x_ = i$0 + 1 | 0;
+           var _x_ =  /*<<bigarray.ml:341:10>>*/ i$0 + 1 | 0;
            if(dim1 === i$0) break;
            i$0 = _x_;
           }
          }
-          /*<<bigarray.ml:339:6>>*/ var _w_ = j$0 + 1 | 0;
+         var _w_ =  /*<<bigarray.ml:339:6>>*/ j$0 + 1 | 0;
          if(dim2 === j$0) break;
          j$0 = _w_;
         }
        }
-        /*<<bigarray.ml:338:4>>*/ var _u_ = k$0 + 1 | 0;
+       var _u_ =  /*<<bigarray.ml:338:4>>*/ k$0 + 1 | 0;
        if(dim3 === k$0) break;
        k$0 = _u_;
       }
      }
       /*<<bigarray.ml:349:24>>*/ return arr;
     }
-    var _k_ = dim1 - 1 | 0,  /*<<bigarray.ml:330:4>>*/ _j_ = 0;
+    var _k_ = dim1 - 1 | 0, _j_ =  /*<<bigarray.ml:330:4>>*/ 0;
     if(_k_ >= 0){
      var i = _j_;
      for(;;){
-      var _m_ = dim2 - 1 | 0,  /*<<bigarray.ml:331:6>>*/ _l_ = 0;
+      var _m_ = dim2 - 1 | 0, _l_ =  /*<<bigarray.ml:331:6>>*/ 0;
       if(_m_ >= 0){
        var j = _l_;
        for(;;){
-        var _p_ = dim3 - 1 | 0,  /*<<bigarray.ml:332:8>>*/ _o_ = 0;
+        var _p_ = dim3 - 1 | 0, _o_ =  /*<<bigarray.ml:332:8>>*/ 0;
         if(_p_ >= 0){
          var k = _o_;
          for(;;){
            /*<<bigarray.ml:333:10>>*/  /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
            (arr, i, j, k,  /*<<bigarray.ml:333:31>>*/ caml_call3(f, i, j, k));
-           /*<<bigarray.ml:333:10>>*/ var _r_ = k + 1 | 0;
+          var _r_ =  /*<<bigarray.ml:333:10>>*/ k + 1 | 0;
           if(_p_ === k) break;
           k = _r_;
          }
         }
-         /*<<bigarray.ml:331:6>>*/ var _q_ = j + 1 | 0;
+        var _q_ =  /*<<bigarray.ml:331:6>>*/ j + 1 | 0;
         if(_m_ === j) break;
         j = _q_;
        }
       }
-       /*<<bigarray.ml:330:4>>*/ var _n_ = i + 1 | 0;
+      var _n_ =  /*<<bigarray.ml:330:4>>*/ i + 1 | 0;
       if(_k_ === i) break;
       i = _n_;
      }
@@ -24224,36 +24900,38 @@
    function of_array$1(kind, layout, data){
     var
      dim1 = data.length - 1,
-      /*<<bigarray.ml:352:4>>*/ dim2 =
-       0 === dim1 ? 0 : caml_check_bound(data, 0)[1].length - 1,
-      /*<<bigarray.ml:353:4>>*/ dim3 =
-       0 === dim2
+     dim2 =
+        /*<<bigarray.ml:352:4>>*/ 0 === dim1
+        ? 0
+        : caml_check_bound(data, 0)[1].length - 1,
+     dim3 =
+        /*<<bigarray.ml:353:4>>*/ 0 === dim2
         ? 0
         : caml_check_bound(caml_check_bound(data, 0)[1], 0)[1].length - 1,
-      /*<<bigarray.ml:354:13>>*/ ba = create$2(kind, layout, dim1, dim2, dim3),
-      /*<<bigarray.ml:355:4>>*/ ofs = layout ? 1 : 0,
-      /*<<bigarray.ml:360:4>>*/ _b_ = dim1 - 1 | 0,
+     ba =  /*<<bigarray.ml:354:13>>*/ create$2(kind, layout, dim1, dim2, dim3),
+     ofs =  /*<<bigarray.ml:355:4>>*/ layout ? 1 : 0,
+     _b_ =  /*<<bigarray.ml:360:4>>*/ dim1 - 1 | 0,
      _a_ = 0;
     if(_b_ >= 0){
      var i = _a_;
      for(;;){
-       /*<<bigarray.ml:361:16>>*/ var row = caml_check_bound(data, i)[1 + i];
+      var row =  /*<<bigarray.ml:361:16>>*/ caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
         /*<<bigarray.ml:363:8>>*/  /*<<bigarray.ml:363:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array3_of_array_n);
       var
-        /*<<bigarray.ml:352:32>>*/ _d_ = dim2 - 1 | 0,
-        /*<<bigarray.ml:363:8>>*/ _c_ = 0;
+       _d_ =  /*<<bigarray.ml:352:32>>*/ dim2 - 1 | 0,
+       _c_ =  /*<<bigarray.ml:363:8>>*/ 0;
       if(_d_ >= 0){
        var j = _c_;
        for(;;){
-         /*<<bigarray.ml:365:18>>*/ var col = caml_check_bound(row, j)[1 + j];
+        var col =  /*<<bigarray.ml:365:18>>*/ caml_check_bound(row, j)[1 + j];
         if(col.length - 1 !== dim3)
           /*<<bigarray.ml:367:10>>*/  /*<<bigarray.ml:367:10>>*/ caml_call1
           (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
         var
-          /*<<bigarray.ml:353:32>>*/ _g_ = dim3 - 1 | 0,
-          /*<<bigarray.ml:367:10>>*/ _f_ = 0;
+         _g_ =  /*<<bigarray.ml:353:32>>*/ dim3 - 1 | 0,
+         _f_ =  /*<<bigarray.ml:367:10>>*/ 0;
         if(_g_ >= 0){
          var k = _f_;
          for(;;){
@@ -24263,17 +24941,17 @@
             j + ofs | 0,
             k + ofs | 0,
             caml_check_bound(col, k)[1 + k]);
-           /*<<bigarray.ml:369:10>>*/ var _i_ = k + 1 | 0;
+          var _i_ =  /*<<bigarray.ml:369:10>>*/ k + 1 | 0;
           if(_g_ === k) break;
           k = _i_;
          }
         }
-         /*<<bigarray.ml:363:8>>*/ var _h_ = j + 1 | 0;
+        var _h_ =  /*<<bigarray.ml:363:8>>*/ j + 1 | 0;
         if(_d_ === j) break;
         j = _h_;
        }
       }
-       /*<<bigarray.ml:360:4>>*/ var _e_ = i + 1 | 0;
+      var _e_ =  /*<<bigarray.ml:360:4>>*/ i + 1 | 0;
       if(_b_ === i) break;
       i = _e_;
      }
@@ -24398,24 +25076,24 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_ba_blit = runtime.caml_ba_blit,
-     /*<<?>>*/ caml_ba_set_1 = runtime.caml_ba_set_1,
-     /*<<?>>*/ caml_bytes_set = runtime.caml_bytes_set,
-     /*<<?>>*/ caml_create_bytes = runtime.caml_create_bytes,
-     /*<<?>>*/ caml_greaterthan = runtime.caml_greaterthan,
-     /*<<?>>*/ caml_int64_add = runtime.caml_int64_add,
-     /*<<?>>*/ caml_int64_of_int32 = runtime.caml_int64_of_int32,
-     /*<<?>>*/ caml_int64_shift_right_unsigne =
-      runtime.caml_int64_shift_right_unsigned,
-     /*<<?>>*/ caml_int64_sub = runtime.caml_int64_sub,
-     /*<<?>>*/ caml_int64_to_int32 = runtime.caml_int64_to_int32,
-     /*<<?>>*/ caml_lessequal = runtime.caml_lessequal,
-     /*<<?>>*/ caml_lessthan = runtime.caml_lessthan,
-     /*<<?>>*/ caml_lxm_next = runtime.caml_lxm_next,
-     /*<<?>>*/ caml_mod = runtime.caml_mod,
-     /*<<?>>*/ caml_notequal = runtime.caml_notequal,
-     /*<<?>>*/ caml_sys_random_seed = runtime.caml_sys_random_seed;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_ba_blit =  /*<<?>>*/ runtime.caml_ba_blit,
+    caml_ba_set_1 =  /*<<?>>*/ runtime.caml_ba_set_1,
+    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
+    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
+    caml_greaterthan =  /*<<?>>*/ runtime.caml_greaterthan,
+    caml_int64_add =  /*<<?>>*/ runtime.caml_int64_add,
+    caml_int64_of_int32 =  /*<<?>>*/ runtime.caml_int64_of_int32,
+    caml_int64_shift_right_unsigne =
+       /*<<?>>*/ runtime.caml_int64_shift_right_unsigned,
+    caml_int64_sub =  /*<<?>>*/ runtime.caml_int64_sub,
+    caml_int64_to_int32 =  /*<<?>>*/ runtime.caml_int64_to_int32,
+    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
+    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
+    caml_lxm_next =  /*<<?>>*/ runtime.caml_lxm_next,
+    caml_mod =  /*<<?>>*/ runtime.caml_mod,
+    caml_notequal =  /*<<?>>*/ runtime.caml_notequal,
+    caml_sys_random_seed =  /*<<?>>*/ runtime.caml_sys_random_seed;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -24462,16 +25140,24 @@
      /*<<random.ml:34:4>>*/  /*<<random.ml:34:4>>*/ caml_ba_set_1
      (s, 0,  /*<<random.ml:34:26>>*/ runtime.caml_int64_or(i1, _a_));
      /*<<random.ml:35:4>>*/  /*<<random.ml:35:4>>*/ caml_ba_set_1(s, 1, i2);
-     /*<<random.ml:36:30>>*/ var
-     i3$0 =  /*<<random.ml:36:30>>*/ caml_notequal(i3, _b_) ? i3 : _e_;
+    var
+     i3$0 =
+        /*<<random.ml:36:30>>*/  /*<<random.ml:36:30>>*/ caml_notequal
+         (i3, _b_)
+        ? i3
+        : _e_;
      /*<<random.ml:36:4>>*/  /*<<random.ml:36:4>>*/ caml_ba_set_1(s, 2, i3$0);
-     /*<<random.ml:37:30>>*/ var
-     i4$0 =  /*<<random.ml:37:30>>*/ caml_notequal(i4, _c_) ? i4 : _d_;
+    var
+     i4$0 =
+        /*<<random.ml:37:30>>*/  /*<<random.ml:37:30>>*/ caml_notequal
+         (i4, _c_)
+        ? i4
+        : _d_;
      /*<<random.ml:37:4>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
             (s, 3, i4$0);
     /*<<random.ml:37:55>>*/ }
    function mk(i1, i2, i3, i4){
-     /*<<random.ml:40:12>>*/ var s = create(0);
+    var s =  /*<<random.ml:40:12>>*/ create(0);
      /*<<random.ml:41:4>>*/ set(s, i1, i2, i3, i4);
      /*<<random.ml:41:4>>*/ return s;
     /*<<random.ml:41:24>>*/ }
@@ -24480,8 +25166,9 @@
     cst_Random_State_of_binary_str =
       "Random.State.of_binary_string: expected a format compatible with OCaml ";
    function to_binary_string(s){
-     /*<<random.ml:63:14>>*/ var
-     buf =  /*<<random.ml:63:14>>*/ caml_create_bytes(37);
+    var
+     buf =
+        /*<<random.ml:63:14>>*/  /*<<random.ml:63:14>>*/ caml_create_bytes(37);
      /*<<random.ml:64:4>>*/  /*<<random.ml:64:4>>*/ caml_call5
      (Stdlib_Bytes[12],
       serialization_prefix,
@@ -24491,11 +25178,13 @@
       serialization_prefix_len);
     var i = 0;
     for(;;){
-      /*<<random.ml:66:47>>*/ var
-      _y_ =  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1(s, i);
+     var
+      _y_ =
+         /*<<random.ml:66:47>>*/  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1
+         (s, i);
       /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ caml_call3
       (Stdlib_Bytes[86], buf, 5 + (i * 8 | 0) | 0, _y_);
-      /*<<random.ml:66:6>>*/ var _z_ = i + 1 | 0;
+     var _z_ =  /*<<random.ml:66:6>>*/ i + 1 | 0;
      if(3 === i)
        /*<<random.ml:68:4>>*/ return  /*<<random.ml:68:4>>*/ caml_call1
               (Stdlib_Bytes[44], buf);
@@ -24513,65 +25202,76 @@
           /*<<random.ml:74:14>>*/ caml_call2
           (Stdlib_String[11], serialization_prefix, buf);
     if(_w_){
-      /*<<random.ml:77:8>>*/ var
+     var
       _x_ =
-         /*<<random.ml:77:8>>*/ caml_call2
+         /*<<random.ml:77:8>>*/  /*<<random.ml:77:8>>*/ caml_call2
          (Stdlib[28], cst_Random_State_of_binary_str, Stdlib_Sys[46]);
       /*<<random.ml:76:6>>*/  /*<<random.ml:76:6>>*/ caml_call1
       (Stdlib[2], _x_);
     }
     var
-      /*<<random.ml:79:13>>*/ i1 =
-        /*<<random.ml:79:13>>*/ caml_call2(Stdlib_String[64], buf, 5),
-      /*<<random.ml:80:13>>*/ i2 =
-        /*<<random.ml:80:13>>*/ caml_call2(Stdlib_String[64], buf, 13),
-      /*<<random.ml:81:13>>*/ i3 =
-        /*<<random.ml:81:13>>*/ caml_call2(Stdlib_String[64], buf, 21),
-      /*<<random.ml:82:13>>*/ i4 =
-        /*<<random.ml:82:13>>*/ caml_call2(Stdlib_String[64], buf, 29);
+     i1 =
+        /*<<random.ml:79:13>>*/  /*<<random.ml:79:13>>*/ caml_call2
+        (Stdlib_String[64], buf, 5),
+     i2 =
+        /*<<random.ml:80:13>>*/  /*<<random.ml:80:13>>*/ caml_call2
+        (Stdlib_String[64], buf, 13),
+     i3 =
+        /*<<random.ml:81:13>>*/  /*<<random.ml:81:13>>*/ caml_call2
+        (Stdlib_String[64], buf, 21),
+     i4 =
+        /*<<random.ml:82:13>>*/  /*<<random.ml:82:13>>*/ caml_call2
+        (Stdlib_String[64], buf, 29);
      /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4);
     /*<<random.ml:83:18>>*/ }
    function copy(src){
-     /*<<random.ml:89:13>>*/ var dst = create(0);
+    var dst =  /*<<random.ml:89:13>>*/ create(0);
      /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit(src, dst);
      /*<<random.ml:89:25>>*/ return dst;
     /*<<random.ml:89:40>>*/ }
    function reinit(s, seed){
     var
      n = seed.length - 1,
-      /*<<random.ml:98:12>>*/ b =
-        /*<<random.ml:98:12>>*/ caml_create_bytes((n * 8 | 0) + 1 | 0),
-      /*<<random.ml:99:4>>*/ _p_ = n - 1 | 0,
-      /*<<random.ml:98:12>>*/ _o_ = 0;
+     b =
+        /*<<random.ml:98:12>>*/  /*<<random.ml:98:12>>*/ caml_create_bytes
+        ((n * 8 | 0) + 1 | 0),
+     _p_ =  /*<<random.ml:99:4>>*/ n - 1 | 0,
+     _o_ =  /*<<random.ml:98:12>>*/ 0;
     if(_p_ >= 0){
      var i = _o_;
      for(;;){
-       /*<<random.ml:100:35>>*/ var
+      var
        _t_ =
-          /*<<random.ml:100:35>>*/ caml_int64_of_int32
+          /*<<random.ml:100:35>>*/  /*<<random.ml:100:35>>*/ caml_int64_of_int32
           (runtime.caml_check_bound(seed, i)[1 + i]);
        /*<<random.ml:100:6>>*/  /*<<random.ml:100:6>>*/ caml_call3
        (Stdlib_Bytes[86], b, i * 8 | 0, _t_);
-       /*<<random.ml:100:6>>*/ var _u_ = i + 1 | 0;
+      var _u_ =  /*<<random.ml:100:6>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _u_;
      }
     }
      /*<<random.ml:102:4>>*/  /*<<random.ml:102:4>>*/ caml_bytes_set
      (b, n * 8 | 0, 1);
-     /*<<random.ml:103:13>>*/ var
-     d1 =  /*<<random.ml:103:13>>*/ caml_call1(Stdlib_Digest[4], b);
+    var
+     d1 =
+        /*<<random.ml:103:13>>*/  /*<<random.ml:103:13>>*/ caml_call1
+        (Stdlib_Digest[4], b);
      /*<<random.ml:104:4>>*/  /*<<random.ml:104:4>>*/ caml_bytes_set
      (b, n * 8 | 0, 2);
     var
-      /*<<random.ml:105:13>>*/ d2 =
-        /*<<random.ml:105:13>>*/ caml_call1(Stdlib_Digest[4], b),
-      /*<<random.ml:109:10>>*/ _q_ =
-        /*<<random.ml:109:10>>*/ caml_call2(Stdlib_String[64], d2, 8),
-      /*<<random.ml:108:10>>*/ _r_ =
-        /*<<random.ml:108:10>>*/ caml_call2(Stdlib_String[64], d2, 0),
-      /*<<random.ml:107:10>>*/ _s_ =
-        /*<<random.ml:107:10>>*/ caml_call2(Stdlib_String[64], d1, 8);
+     d2 =
+        /*<<random.ml:105:13>>*/  /*<<random.ml:105:13>>*/ caml_call1
+        (Stdlib_Digest[4], b),
+     _q_ =
+        /*<<random.ml:109:10>>*/  /*<<random.ml:109:10>>*/ caml_call2
+        (Stdlib_String[64], d2, 8),
+     _r_ =
+        /*<<random.ml:108:10>>*/  /*<<random.ml:108:10>>*/ caml_call2
+        (Stdlib_String[64], d2, 0),
+     _s_ =
+        /*<<random.ml:107:10>>*/  /*<<random.ml:107:10>>*/ caml_call2
+        (Stdlib_String[64], d1, 8);
      /*<<random.ml:109:10>>*/ return set
             (s,
               /*<<random.ml:106:10>>*/ caml_call2(Stdlib_String[64], d1, 0),
@@ -24580,7 +25280,7 @@
              _q_);
     /*<<random.ml:109:36>>*/ }
    function make(seed){
-     /*<<random.ml:112:12>>*/ var s = create(0);
+    var s =  /*<<random.ml:112:12>>*/ create(0);
      /*<<random.ml:112:24>>*/ reinit(s, seed);
      /*<<random.ml:112:24>>*/ return s;
     /*<<random.ml:112:40>>*/ }
@@ -24664,8 +25364,8 @@
    function int32aux(s, n){
      /*<<random.ml:227:4>>*/ for(;;){
      var
-       /*<<random.ml:227:12>>*/ r = bits32(s) >>> 1 | 0,
-       /*<<random.ml:228:12>>*/ v =  /*<<random.ml:228:12>>*/ caml_mod(r, n);
+      r =  /*<<random.ml:227:12>>*/ bits32(s) >>> 1 | 0,
+      v =  /*<<random.ml:228:12>>*/  /*<<random.ml:228:12>>*/ caml_mod(r, n);
       /*<<random.ml:230:14>>*/ if
       (!
         /*<<random.ml:230:14>>*/ caml_greaterthan
@@ -24684,16 +25384,17 @@
      ( /*<<random.ml:246:7>>*/ caml_greaterthan(min, max))
       /*<<random.ml:247:6>>*/ return  /*<<random.ml:247:6>>*/ caml_call1
              (Stdlib[1], cst_Random_int32_in_range);
-     /*<<random.ml:249:17>>*/ var
+    var
      span =
-        /*<<random.ml:249:17>>*/ caml_call1(Stdlib_Int32[6], max - min | 0);
+        /*<<random.ml:249:17>>*/  /*<<random.ml:249:17>>*/ caml_call1
+        (Stdlib_Int32[6], max - min | 0);
      /*<<random.ml:251:9>>*/ if
      (!  /*<<random.ml:251:9>>*/ caml_lessequal(span, Stdlib_Int32[1]))
       /*<<random.ml:254:8>>*/ return min + int32aux(s, span) | 0;
      /*<<random.ml:242:4>>*/ for(;;){
-      /*<<random.ml:242:12>>*/ var
+     var
       r =
-         /*<<random.ml:242:12>>*/ caml_int64_to_int32
+         /*<<random.ml:242:12>>*/  /*<<random.ml:242:12>>*/ caml_int64_to_int32
          ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
       /*<<random.ml:243:7>>*/ if
       (!
@@ -24711,11 +25412,12 @@
    function int64aux(s, n){
      /*<<random.ml:262:4>>*/ for(;;){
      var
-       /*<<random.ml:262:12>>*/ r =
-         /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
+      r =
+         /*<<random.ml:262:12>>*/  /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
          ( /*<<random.ml:258:4>>*/ caml_lxm_next(s), 1),
-       /*<<random.ml:263:12>>*/ v =
-         /*<<random.ml:263:12>>*/ runtime.caml_int64_mod(r, n);
+      v =
+         /*<<random.ml:263:12>>*/  /*<<random.ml:263:12>>*/ runtime.caml_int64_mod
+         (r, n);
       /*<<random.ml:265:14>>*/ if
       (!
         /*<<random.ml:265:14>>*/ caml_greaterthan
@@ -24736,17 +25438,17 @@
      ( /*<<random.ml:281:7>>*/ caml_greaterthan(min, max))
       /*<<random.ml:282:6>>*/ return  /*<<random.ml:282:6>>*/ caml_call1
              (Stdlib[1], cst_Random_int64_in_range);
-     /*<<random.ml:284:17>>*/ var
+    var
      span =
-        /*<<random.ml:284:17>>*/ caml_call1
+        /*<<random.ml:284:17>>*/  /*<<random.ml:284:17>>*/ caml_call1
         (Stdlib_Int64[6],  /*<<random.ml:284:28>>*/ caml_int64_sub(max, min));
      /*<<random.ml:286:9>>*/ if
      (!  /*<<random.ml:286:9>>*/ caml_lessequal(span, Stdlib_Int64[1]))
       /*<<random.ml:289:8>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
              (min, int64aux(s, span));
      /*<<random.ml:277:4>>*/ for(;;){
-      /*<<random.ml:277:12>>*/ var
-      r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
+     var
+      r =  /*<<random.ml:277:12>>*/  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
       /*<<random.ml:278:7>>*/ if
       (!
         /*<<random.ml:278:7>>*/ caml_lessthan(r, min)
@@ -24801,9 +25503,10 @@
    function float$0(s, bound){
      /*<<random.ml:321:22>>*/ for(;;){
      var
-       /*<<random.ml:316:12>>*/ b =  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
-       /*<<random.ml:317:12>>*/ n =
-         /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne(b, 11);
+      b =  /*<<random.ml:316:12>>*/  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
+      n =
+         /*<<random.ml:317:12>>*/  /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne
+         (b, 11);
       /*<<random.ml:318:7>>*/ if
       ( /*<<random.ml:318:7>>*/ caml_notequal(n, _h_))
        /*<<random.ml:321:22>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
@@ -24818,18 +25521,18 @@
     /*<<random.ml:324:26>>*/ }
    function split(s){
     var
-      /*<<random.ml:258:4>>*/ i1 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
-      /*<<random.ml:258:4>>*/ i2 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
-      /*<<random.ml:258:4>>*/ i3 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
-      /*<<random.ml:258:4>>*/ i4 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
+     i1 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
+     i2 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
+     i3 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
+     i4 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
      /*<<random.ml:330:4>>*/ return mk(i1, i2, i3, i4);
     /*<<random.ml:330:18>>*/ }
    function mk_default(param){
      /*<<random.ml:335:2>>*/ return mk(_m_, _l_, _k_, _j_);
     /*<<random.ml:338:31>>*/ }
-    /*<<random.ml:341:2>>*/ var
+   var
     random_key =
-       /*<<random.ml:341:2>>*/ caml_call2
+       /*<<random.ml:341:2>>*/  /*<<random.ml:341:2>>*/ caml_call2
        (Stdlib_Domain[10][1], [0, split], mk_default);
    function bits$0(param){
      /*<<random.ml:343:14>>*/ return bits
@@ -24911,9 +25614,10 @@
               (Stdlib_Domain[10][2], random_key));
     /*<<random.ml:359:56>>*/ }
    function bits64$0(param){
-     /*<<random.ml:360:29>>*/ var
+    var
      s =
-        /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
+        /*<<random.ml:360:29>>*/  /*<<random.ml:360:29>>*/ caml_call1
+        (Stdlib_Domain[10][2], random_key);
      /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
     /*<<random.ml:360:56>>*/ }
    function nativebits$0(param){
@@ -24945,9 +25649,10 @@
               (Stdlib_Domain[10][2], random_key));
     /*<<random.ml:373:57>>*/ }
    function set_state(src){
-     /*<<random.ml:374:31>>*/ var
+    var
      dst =
-        /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
+        /*<<random.ml:374:31>>*/  /*<<random.ml:374:31>>*/ caml_call1
+        (Stdlib_Domain[10][2], random_key);
      /*<<random.ml:86:4>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
             (src, dst);
     /*<<random.ml:374:60>>*/ }
@@ -25008,15 +25713,15 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -25063,8 +25768,9 @@
     cst_Hashtbl_unsupported_hash_t = "Hashtbl: unsupported hash table format";
    try{
     var
-      /*<<hashtbl.ml:51:8>>*/ _f_ =
-        /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv("OCAMLRUNPARAM"),
+     _f_ =
+        /*<<hashtbl.ml:51:8>>*/  /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv
+        ("OCAMLRUNPARAM"),
      params = _f_;
    }
    catch(_al_){
@@ -25072,8 +25778,9 @@
     if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
      /*<<hashtbl.ml:52:4>>*/ try{
      var
-       /*<<hashtbl.ml:52:8>>*/ _e_ =
-         /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv("CAMLRUNPARAM"),
+      _e_ =
+         /*<<hashtbl.ml:52:8>>*/  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv
+         ("CAMLRUNPARAM"),
       _c_ = _e_;
     }
     catch(_am_){
@@ -25084,10 +25791,11 @@
     var params = _c_;
    }
    var
-     /*<<hashtbl.ml:53:2>>*/ randomized_default =
-       /*<<hashtbl.ml:53:2>>*/ caml_call2(Stdlib_String[15], params, 82),
-     /*<<hashtbl.ml:55:17>>*/ randomized =
-       /*<<hashtbl.ml:55:17>>*/ caml_call1
+    randomized_default =
+       /*<<hashtbl.ml:53:2>>*/  /*<<hashtbl.ml:53:2>>*/ caml_call2
+       (Stdlib_String[15], params, 82),
+    randomized =
+       /*<<hashtbl.ml:55:17>>*/  /*<<hashtbl.ml:55:17>>*/ caml_call1
        (Stdlib_Atomic[1], randomized_default);
    function randomize(param){
      /*<<hashtbl.ml:57:19>>*/ return  /*<<hashtbl.ml:57:19>>*/ caml_call2
@@ -25096,9 +25804,9 @@
    function is_randomized(param){
      /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized);
     /*<<hashtbl.ml:58:44>>*/ }
-    /*<<hashtbl.ml:60:15>>*/ var
+   var
     prng_key =
-       /*<<hashtbl.ml:60:15>>*/ caml_call2
+       /*<<hashtbl.ml:60:15>>*/  /*<<hashtbl.ml:60:15>>*/ caml_call2
        (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function power_2_above(x, n){
     var x$0 = x;
@@ -25115,11 +25823,12 @@
        opt
         ? opt[1]
         :  /*<<hashtbl.ml:73:22>>*/ caml_call1(Stdlib_Atomic[3], randomized),
-      /*<<hashtbl.ml:74:10>>*/ s = power_2_above(16, initial_size);
+     s =  /*<<hashtbl.ml:74:10>>*/ power_2_above(16, initial_size);
      /*<<hashtbl.ml:75:2>>*/ if(random)
      var
-       /*<<hashtbl.ml:76:37>>*/ _ak_ =
-         /*<<hashtbl.ml:76:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
+      _ak_ =
+         /*<<hashtbl.ml:76:37>>*/  /*<<hashtbl.ml:76:37>>*/ caml_call1
+         (Stdlib_Domain[10][2], prng_key),
       seed =  /*<<hashtbl.ml:76:19>>*/ caml_call1(Stdlib_Random[19][4], _ak_);
     else
      var seed = 0;
@@ -25158,7 +25867,7 @@
      key = param[1],
      data = param[2],
      next = param[3],
-      /*<<hashtbl.ml:109:19>>*/ prec$1 = [0, key, data, next],
+     prec$1 =  /*<<hashtbl.ml:109:19>>*/ [0, key, data, next],
      prec = prec$1,
      param$0 = next;
     for(;;){
@@ -25167,7 +25876,7 @@
       key$0 = param$0[1],
       data$0 = param$0[2],
       next$0 = param$0[3],
-       /*<<hashtbl.ml:102:25>>*/ prec$0 = [0, key$0, data$0, next$0];
+      prec$0 =  /*<<hashtbl.ml:102:25>>*/ [0, key$0, data$0, next$0];
      prec[3] = prec$0;
      prec = prec$0;
      param$0 = next$0;
@@ -25177,8 +25886,8 @@
     var
      _ag_ = h[4],
      _ah_ = h[3],
-      /*<<hashtbl.ml:113:29>>*/ _ai_ =
-        /*<<hashtbl.ml:113:29>>*/ caml_call2
+     _ai_ =
+        /*<<hashtbl.ml:113:29>>*/  /*<<hashtbl.ml:113:29>>*/ caml_call2
         (Stdlib_Array[14], copy_bucketlist, h[2]);
      /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_];
     /*<<hashtbl.ml:113:63>>*/ }
@@ -25188,16 +25897,17 @@
    function insert_all_buckets(indexfun, inplace, odata, ndata){
     var
      nsize = ndata.length - 1,
-      /*<<hashtbl.ml:119:19>>*/ ndata_tail =
-        /*<<hashtbl.ml:119:19>>*/ caml_make_vect(nsize, 0),
+     ndata_tail =
+        /*<<hashtbl.ml:119:19>>*/  /*<<hashtbl.ml:119:19>>*/ caml_make_vect
+        (nsize, 0),
      _aa_ = odata.length - 2 | 0,
-      /*<<hashtbl.ml:135:2>>*/ _$_ = 0;
+     _$_ =  /*<<hashtbl.ml:135:2>>*/ 0;
     if(_aa_ >= 0){
      var i$0 = _$_;
      for(;;){
       var
-        /*<<hashtbl.ml:136:18>>*/ cell$1 =
-         caml_check_bound(odata, i$0)[1 + i$0],
+       cell$1 =
+          /*<<hashtbl.ml:136:18>>*/ caml_check_bound(odata, i$0)[1 + i$0],
        cell = cell$1;
        /*<<hashtbl.ml:120:26>>*/ for(;;){
        if(! cell) break;
@@ -25205,11 +25915,13 @@
         key = cell[1],
         data = cell[2],
         next = cell[3],
-         /*<<hashtbl.ml:123:8>>*/ cell$0 = inplace ? cell : [0, key, data, 0],
-         /*<<hashtbl.ml:127:19>>*/ nidx =
-           /*<<hashtbl.ml:127:19>>*/ caml_call1(indexfun, key),
-         /*<<hashtbl.ml:128:20>>*/ match =
-          caml_check_bound(ndata_tail, nidx)[1 + nidx];
+        cell$0 =  /*<<hashtbl.ml:123:8>>*/ inplace ? cell : [0, key, data, 0],
+        nidx =
+           /*<<hashtbl.ml:127:19>>*/  /*<<hashtbl.ml:127:19>>*/ caml_call1
+           (indexfun, key),
+        match =
+           /*<<hashtbl.ml:128:20>>*/ caml_check_bound(ndata_tail, nidx)
+           [1 + nidx];
        if(match)
         match[3] = cell$0;
        else
@@ -25218,20 +25930,21 @@
        = cell$0;
        cell = next;
       }
-       /*<<hashtbl.ml:136:4>>*/ var _af_ = i$0 + 1 | 0;
+      var _af_ =  /*<<hashtbl.ml:136:4>>*/ i$0 + 1 | 0;
       if(_aa_ === i$0) break;
       i$0 = _af_;
      }
     }
     if(inplace){
-     var _ac_ = nsize - 1 | 0,  /*<<hashtbl.ml:139:4>>*/ _ab_ = 0;
+     var _ac_ = nsize - 1 | 0, _ab_ =  /*<<hashtbl.ml:139:4>>*/ 0;
      if(_ac_ >= 0){
       var i = _ab_;
       for(;;){
-        /*<<hashtbl.ml:140:12>>*/ var
-        match$0 = caml_check_bound(ndata_tail, i)[1 + i];
+       var
+        match$0 =
+           /*<<hashtbl.ml:140:12>>*/ caml_check_bound(ndata_tail, i)[1 + i];
        if(match$0) match$0[3] = 0;
-        /*<<hashtbl.ml:139:4>>*/ var _ae_ = i + 1 | 0;
+       var _ae_ =  /*<<hashtbl.ml:139:4>>*/ i + 1 | 0;
        if(_ac_ === i) break;
        i = _ae_;
       }
@@ -25245,14 +25958,15 @@
    function resize(indexfun, h){
     var
      odata = h[2],
-      /*<<hashtbl.ml:147:2>>*/ osize = odata.length - 1,
+     osize =  /*<<hashtbl.ml:147:2>>*/ odata.length - 1,
      nsize = osize * 2 | 0,
      ___ = nsize < Stdlib_Sys[13] ? 1 : 0;
     if(! ___) return ___;
     var
-      /*<<hashtbl.ml:150:16>>*/ ndata =
-        /*<<hashtbl.ml:150:16>>*/ caml_make_vect(nsize, 0),
-      /*<<hashtbl.ml:151:22>>*/ inplace = 1 - ongoing_traversal(h);
+     ndata =
+        /*<<hashtbl.ml:150:16>>*/  /*<<hashtbl.ml:150:16>>*/ caml_make_vect
+        (nsize, 0),
+     inplace =  /*<<hashtbl.ml:151:22>>*/ 1 - ongoing_traversal(h);
     h[2] = ndata;
      /*<<hashtbl.ml:153:4>>*/ return insert_all_buckets
             ( /*<<hashtbl.ml:153:23>>*/ caml_call1(indexfun, h),
@@ -25261,7 +25975,7 @@
              ndata);
     /*<<hashtbl.ml:154:5>>*/ }
    function iter(f, h){
-     /*<<hashtbl.ml:162:17>>*/ var old_trav = ongoing_traversal(h);
+    var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
     if(1 - old_trav)  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
      /*<<hashtbl.ml:163:23>>*/ try{
      var d = h[2], _W_ = d.length - 2 | 0, _V_ = 0;
@@ -25276,7 +25990,7 @@
          (f, key, data);
         param = next;
        }
-        /*<<hashtbl.ml:167:6>>*/ var _Z_ = i + 1 | 0;
+       var _Z_ =  /*<<hashtbl.ml:167:6>>*/ i + 1 | 0;
        if(_W_ === i) break;
        i = _Z_;
       }
@@ -25294,7 +26008,7 @@
     }
     /*<<hashtbl.ml:172:13>>*/ }
    function filter_map_inplace(f, h){
-    var d = h[2],  /*<<hashtbl.ml:196:17>>*/ old_trav = ongoing_traversal(h);
+    var d = h[2], old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
     if(1 - old_trav)  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
      /*<<hashtbl.ml:197:23>>*/ try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
@@ -25302,7 +26016,7 @@
       var i = _Q_;
       for(;;){
        var
-         /*<<hashtbl.ml:200:44>>*/ slot$0 = caml_check_bound(h[2], i)[1 + i],
+        slot$0 =  /*<<hashtbl.ml:200:44>>*/ caml_check_bound(h[2], i)[1 + i],
         prec = 0,
         slot = slot$0;
        for(;;){
@@ -25311,8 +26025,9 @@
          key = slot[1],
          data = slot[2],
          next = slot[3],
-          /*<<hashtbl.ml:181:18>>*/ match =
-            /*<<hashtbl.ml:181:18>>*/ caml_call2(f, key, data);
+         match =
+            /*<<hashtbl.ml:181:18>>*/  /*<<hashtbl.ml:181:18>>*/ caml_call2
+            (f, key, data);
         if(match){
          var data$0 = match[1];
           /*<<hashtbl.ml:186:10>>*/ if(prec)
@@ -25329,7 +26044,7 @@
         prec[3] = 0;
        else
          /*<<hashtbl.ml:177:17>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-        /*<<hashtbl.ml:200:6>>*/ var _U_ = i + 1 | 0;
+       var _U_ =  /*<<hashtbl.ml:200:6>>*/ i + 1 | 0;
        if(_R_ === i) break;
        i = _U_;
       }
@@ -25347,20 +26062,20 @@
     }
     /*<<hashtbl.ml:205:13>>*/ }
    function fold(f, h, init){
-     /*<<hashtbl.ml:214:17>>*/ var old_trav = ongoing_traversal(h);
+    var old_trav =  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal(h);
     if(1 - old_trav)  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
      /*<<hashtbl.ml:215:23>>*/ try{
      var
       d = h[2],
-       /*<<hashtbl.ml:218:15>>*/ accu$1 = [0, init],
+      accu$1 =  /*<<hashtbl.ml:218:15>>*/ [0, init],
       _N_ = d.length - 2 | 0,
-       /*<<hashtbl.ml:218:15>>*/ _M_ = 0;
+      _M_ =  /*<<hashtbl.ml:218:15>>*/ 0;
      if(_N_ >= 0){
       var i = _M_;
       for(;;){
        var
         accu$2 = accu$1[1],
-         /*<<hashtbl.ml:220:24>>*/ b$0 = caml_check_bound(d, i)[1 + i],
+        b$0 =  /*<<hashtbl.ml:220:24>>*/ caml_check_bound(d, i)[1 + i],
         b = b$0,
         accu = accu$2;
         /*<<hashtbl.ml:209:4>>*/ for(;;){
@@ -25369,13 +26084,14 @@
          key = b[1],
          data = b[2],
          next = b[3],
-          /*<<hashtbl.ml:213:23>>*/ accu$0 =
-            /*<<hashtbl.ml:213:23>>*/ caml_call3(f, key, data, accu);
+         accu$0 =
+            /*<<hashtbl.ml:213:23>>*/  /*<<hashtbl.ml:213:23>>*/ caml_call3
+            (f, key, data, accu);
         b = next;
         accu = accu$0;
        }
        accu$1[1] = accu;
-        /*<<hashtbl.ml:219:4>>*/ var _P_ = i + 1 | 0;
+       var _P_ =  /*<<hashtbl.ml:219:4>>*/ i + 1 | 0;
        if(_N_ === i) break;
        i = _P_;
       }
@@ -25399,29 +26115,30 @@
      if(! param$0)  /*<<hashtbl.ml:236:13>>*/ return accu$0;
      var
       next = param$0[3],
-       /*<<hashtbl.ml:237:18>>*/ accu$1 = accu$0 + 1 | 0;
+      accu$1 =  /*<<hashtbl.ml:237:18>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = next;
     }
    }
    function stats(h){
     var
-      /*<<hashtbl.ml:241:4>>*/ mbl =
-        /*<<hashtbl.ml:241:4>>*/ caml_call3
+     mbl =
+        /*<<hashtbl.ml:241:4>>*/  /*<<hashtbl.ml:241:4>>*/ caml_call3
         (Stdlib_Array[18],
          function(m, b){
-           /*<<hashtbl.ml:241:42>>*/ var _L_ = bucket_length(0, b);
+          var _L_ =  /*<<hashtbl.ml:241:42>>*/ bucket_length(0, b);
            /*<<hashtbl.ml:241:42>>*/ return  /*<<hashtbl.ml:241:42>>*/ caml_call2
                   (Stdlib_Int[11], m, _L_);
           /*<<hashtbl.ml:241:61>>*/ },
          0,
          h[2]),
-      /*<<hashtbl.ml:242:14>>*/ histo =
-        /*<<hashtbl.ml:242:14>>*/ caml_make_vect(mbl + 1 | 0, 0);
+     histo =
+        /*<<hashtbl.ml:242:14>>*/  /*<<hashtbl.ml:242:14>>*/ caml_make_vect
+        (mbl + 1 | 0, 0);
      /*<<hashtbl.ml:243:2>>*/  /*<<hashtbl.ml:243:2>>*/ caml_call2
      (Stdlib_Array[12],
       function(b){
-        /*<<hashtbl.ml:245:14>>*/ var l = bucket_length(0, b);
+       var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
         caml_check_bound(histo, l)[1 + l] + 1 | 0;
         /*<<hashtbl.ml:246:6>>*/ return 0;
@@ -25442,24 +26159,24 @@
       }
       if(i$0 === tbl_data.length - 1)  /*<<hashtbl.ml:263:13>>*/ return 0;
       var
-        /*<<hashtbl.ml:264:22>>*/ buck$1 =
-         caml_check_bound(tbl_data, i$0)[1 + i$0],
-        /*<<hashtbl.ml:264:22>>*/ i$1 = i$0 + 1 | 0;
+       buck$1 =
+          /*<<hashtbl.ml:264:22>>*/ caml_check_bound(tbl_data, i$0)[1 + i$0],
+       i$1 =  /*<<hashtbl.ml:264:22>>*/ i$0 + 1 | 0;
       i$0 = i$1;
       buck$0 = buck$1;
      }
      /*<<hashtbl.ml:266:42>>*/ }
-    var  /*<<hashtbl.ml:268:2>>*/ _H_ = 0, _I_ = 0;
+    var _H_ =  /*<<hashtbl.ml:268:2>>*/ 0, _I_ = 0;
      /*<<hashtbl.ml:268:2>>*/ return function(_J_){
       /*<<?>>*/ return aux(_I_, _H_, _J_);};
     /*<<hashtbl.ml:268:13>>*/ }
    function to_seq_keys(m){
-     /*<<hashtbl.ml:270:32>>*/ var _F_ = to_seq(m);
+    var _F_ =  /*<<hashtbl.ml:270:32>>*/ to_seq(m);
      /*<<hashtbl.ml:270:32>>*/ return  /*<<hashtbl.ml:270:32>>*/ caml_call2
             (Stdlib_Seq[29], function(_G_){ /*<<?>>*/ return _G_[1];}, _F_);
     /*<<hashtbl.ml:270:42>>*/ }
    function to_seq_values(m){
-     /*<<hashtbl.ml:272:34>>*/ var _D_ = to_seq(m);
+    var _D_ =  /*<<hashtbl.ml:272:34>>*/ to_seq(m);
      /*<<hashtbl.ml:272:34>>*/ return  /*<<hashtbl.ml:272:34>>*/ caml_call2
             (Stdlib_Seq[29], function(_E_){ /*<<?>>*/ return _E_[2];}, _D_);
     /*<<hashtbl.ml:272:44>>*/ }
@@ -25472,9 +26189,12 @@
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
      var
-       /*<<hashtbl.ml:360:14>>*/ i = key_index(h, key),
-       /*<<hashtbl.ml:361:23>>*/ bucket =
-        [0, key, data, caml_check_bound(h[2], i)[1 + i]];
+      i =  /*<<hashtbl.ml:360:14>>*/ key_index(h, key),
+      bucket =
+         /*<<hashtbl.ml:361:23>>*/ [0,
+         key,
+         data,
+         caml_check_bound(h[2], i)[1 + i]];
       /*<<hashtbl.ml:362:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _B_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
@@ -25482,8 +26202,8 @@
      /*<<hashtbl.ml:364:67>>*/ }
     function remove(h, key){
      var
-       /*<<hashtbl.ml:380:14>>*/ i = key_index(h, key),
-       /*<<hashtbl.ml:381:34>>*/ c = caml_check_bound(h[2], i)[1 + i],
+      i =  /*<<hashtbl.ml:380:14>>*/ key_index(h, key),
+      c =  /*<<hashtbl.ml:381:34>>*/ caml_check_bound(h[2], i)[1 + i],
       prec$0 = 0,
       prec = c;
      for(;;){
@@ -25502,8 +26222,8 @@
      /*<<hashtbl.ml:381:44>>*/ }
     function find(h, key){
      var
-       /*<<hashtbl.ml:390:20>>*/ _A_ = key_index(h, key),
-       /*<<hashtbl.ml:390:12>>*/ match = caml_check_bound(h[2], _A_)[1 + _A_];
+      _A_ =  /*<<hashtbl.ml:390:20>>*/ key_index(h, key),
+      match =  /*<<hashtbl.ml:390:12>>*/ caml_check_bound(h[2], _A_)[1 + _A_];
      if(! match)
        /*<<hashtbl.ml:391:17>>*/ throw  /*<<hashtbl.ml:391:17>>*/ caml_maybe_attach_backtrace
              (Stdlib[8], 1);
@@ -25539,8 +26259,8 @@
      /*<<hashtbl.ml:401:67>>*/ }
     function find_opt(h, key){
      var
-       /*<<hashtbl.ml:410:20>>*/ _z_ = key_index(h, key),
-       /*<<hashtbl.ml:410:12>>*/ match = caml_check_bound(h[2], _z_)[1 + _z_];
+      _z_ =  /*<<hashtbl.ml:410:20>>*/ key_index(h, key),
+      match =  /*<<hashtbl.ml:410:12>>*/ caml_check_bound(h[2], _z_)[1 + _z_];
      if(! match)  /*<<hashtbl.ml:411:17>>*/ return 0;
      var k1 = match[1], d1 = match[2], next1 = match[3];
       /*<<hashtbl.ml:413:13>>*/ if
@@ -25568,7 +26288,7 @@
      /*<<hashtbl.ml:421:76>>*/ }
     function find_all(h, key){
      var
-       /*<<hashtbl.ml:431:29>>*/ _y_ = key_index(h, key),
+      _y_ =  /*<<hashtbl.ml:431:29>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _y_)[1 + _y_];
       /*<<hashtbl.ml:424:47>>*/ for(;;){
       if(! param)  /*<<hashtbl.ml:426:10>>*/ return 0;
@@ -25579,7 +26299,7 @@
       param = next;
      }
      var
-       /*<<hashtbl.ml:429:15>>*/ block = [0, d, 24029],
+      block =  /*<<hashtbl.ml:429:15>>*/ [0, d, 24029],
       dst = block,
       offset = 1,
       param$0 = next;
@@ -25591,7 +26311,7 @@
       var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
        /*<<hashtbl.ml:428:13>>*/ if
        ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k$0, key)){
-        /*<<hashtbl.ml:429:15>>*/ var dst$0 = [0, d$0, 24029];
+       var dst$0 =  /*<<hashtbl.ml:429:15>>*/ [0, d$0, 24029];
        dst[1 + offset] = dst$0;
        dst = dst$0;
        offset = 1;
@@ -25603,8 +26323,8 @@
      /*<<hashtbl.ml:431:45>>*/ }
     function replace(h, key, data){
      var
-       /*<<hashtbl.ml:442:14>>*/ i = key_index(h, key),
-       /*<<hashtbl.ml:443:14>>*/ l = caml_check_bound(h[2], i)[1 + i],
+      i =  /*<<hashtbl.ml:442:14>>*/ key_index(h, key),
+      l =  /*<<hashtbl.ml:443:14>>*/ caml_check_bound(h[2], i)[1 + i],
       slot = l;
      for(;;){
       if(slot){
@@ -25631,15 +26351,16 @@
      /*<<hashtbl.ml:448:9>>*/ }
     function mem(h, key){
      var
-       /*<<hashtbl.ml:457:32>>*/ _u_ = key_index(h, key),
+      _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _u_)[1 + _u_];
      for(;;){
       if(! param)  /*<<hashtbl.ml:452:10>>*/ return 0;
       var
        k = param[1],
        next = param[3],
-        /*<<hashtbl.ml:454:10>>*/ _t_ =
-          /*<<hashtbl.ml:454:10>>*/ caml_call2(H[1], k, key);
+       _t_ =
+          /*<<hashtbl.ml:454:10>>*/  /*<<hashtbl.ml:454:10>>*/ caml_call2
+          (H[1], k, key);
        /*<<hashtbl.ml:454:10>>*/ if(_t_)
         /*<<hashtbl.ml:454:10>>*/ return _t_;
       param = next;
@@ -25664,7 +26385,7 @@
               i);
      /*<<hashtbl.ml:463:47>>*/ }
     function of_seq(i){
-      /*<<hashtbl.ml:466:16>>*/ var tbl = create(0, 16);
+     var tbl =  /*<<hashtbl.ml:466:16>>*/ create(0, 16);
       /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
       /*<<hashtbl.ml:467:6>>*/ return tbl;
      /*<<hashtbl.ml:468:9>>*/ }
@@ -25726,8 +26447,10 @@
              (_s_, _d_, sz);
      /*<<hashtbl.ml:487:43>>*/ }
     function of_seq(i){
-      /*<<hashtbl.ml:487:20>>*/ var
-      tbl =  /*<<hashtbl.ml:487:20>>*/ caml_call2(_s_, _d_, 16);
+     var
+      tbl =
+         /*<<hashtbl.ml:487:20>>*/  /*<<hashtbl.ml:487:20>>*/ caml_call2
+         (_s_, _d_, 16);
       /*<<hashtbl.ml:490:6>>*/  /*<<hashtbl.ml:490:6>>*/ caml_call2
       (replace_seq, tbl, i);
       /*<<hashtbl.ml:490:6>>*/ return tbl;
@@ -25778,9 +26501,12 @@
     /*<<hashtbl.ml:508:59>>*/ }
    function add(h, key, data){
     var
-      /*<<hashtbl.ml:511:10>>*/ i = key_index(h, key),
-      /*<<hashtbl.ml:512:19>>*/ bucket =
-       [0, key, data, caml_check_bound(h[2], i)[1 + i]];
+     i =  /*<<hashtbl.ml:511:10>>*/ key_index(h, key),
+     bucket =
+        /*<<hashtbl.ml:512:19>>*/ [0,
+        key,
+        data,
+        caml_check_bound(h[2], i)[1 + i]];
      /*<<hashtbl.ml:513:2>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
     h[1] = h[1] + 1 | 0;
     var _r_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
@@ -25788,8 +26514,8 @@
     /*<<hashtbl.ml:515:63>>*/ }
    function remove(h, key){
     var
-      /*<<hashtbl.ml:531:10>>*/ i = key_index(h, key),
-      /*<<hashtbl.ml:532:30>>*/ c = caml_check_bound(h[2], i)[1 + i],
+     i =  /*<<hashtbl.ml:531:10>>*/ key_index(h, key),
+     c =  /*<<hashtbl.ml:532:30>>*/ caml_check_bound(h[2], i)[1 + i],
      prec$0 = 0,
      prec = c;
     for(;;){
@@ -25808,8 +26534,8 @@
     /*<<hashtbl.ml:532:40>>*/ }
    function find(h, key){
     var
-      /*<<hashtbl.ml:541:16>>*/ _q_ = key_index(h, key),
-      /*<<hashtbl.ml:541:8>>*/ match = caml_check_bound(h[2], _q_)[1 + _q_];
+     _q_ =  /*<<hashtbl.ml:541:16>>*/ key_index(h, key),
+     match =  /*<<hashtbl.ml:541:8>>*/ caml_check_bound(h[2], _q_)[1 + _q_];
     if(! match)
       /*<<hashtbl.ml:542:13>>*/ throw  /*<<hashtbl.ml:542:13>>*/ caml_maybe_attach_backtrace
             (Stdlib[8], 1);
@@ -25845,8 +26571,8 @@
     /*<<hashtbl.ml:552:67>>*/ }
    function find_opt(h, key){
     var
-      /*<<hashtbl.ml:561:16>>*/ _p_ = key_index(h, key),
-      /*<<hashtbl.ml:561:8>>*/ match = caml_check_bound(h[2], _p_)[1 + _p_];
+     _p_ =  /*<<hashtbl.ml:561:16>>*/ key_index(h, key),
+     match =  /*<<hashtbl.ml:561:8>>*/ caml_check_bound(h[2], _p_)[1 + _p_];
     if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
     var k1 = match[1], d1 = match[2], next1 = match[3];
      /*<<hashtbl.ml:564:9>>*/ if
@@ -25874,7 +26600,7 @@
     /*<<hashtbl.ml:572:76>>*/ }
    function find_all(h, key){
     var
-      /*<<hashtbl.ml:582:25>>*/ _o_ = key_index(h, key),
+     _o_ =  /*<<hashtbl.ml:582:25>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _o_)[1 + _o_];
      /*<<hashtbl.ml:575:43>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
@@ -25885,7 +26611,7 @@
      param = next;
     }
     var
-      /*<<hashtbl.ml:580:11>>*/ block = [0, data, 24029],
+     block =  /*<<hashtbl.ml:580:11>>*/ [0, data, 24029],
      dst = block,
      offset = 1,
      param$0 = next;
@@ -25897,7 +26623,7 @@
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
       /*<<hashtbl.ml:579:9>>*/ if
       (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
-       /*<<hashtbl.ml:580:11>>*/ var dst$0 = [0, data$0, 24029];
+      var dst$0 =  /*<<hashtbl.ml:580:11>>*/ [0, data$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
       offset = 1;
@@ -25909,8 +26635,8 @@
     /*<<hashtbl.ml:582:41>>*/ }
    function replace(h, key, data){
     var
-      /*<<hashtbl.ml:593:10>>*/ i = key_index(h, key),
-      /*<<hashtbl.ml:594:10>>*/ l = caml_check_bound(h[2], i)[1 + i],
+     i =  /*<<hashtbl.ml:593:10>>*/ key_index(h, key),
+     l =  /*<<hashtbl.ml:594:10>>*/ caml_check_bound(h[2], i)[1 + i],
      slot = l;
     for(;;){
      if(slot){
@@ -25937,7 +26663,7 @@
     /*<<hashtbl.ml:599:5>>*/ }
    function mem(h, key){
     var
-      /*<<hashtbl.ml:608:28>>*/ _k_ = key_index(h, key),
+     _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _k_)[1 + _k_];
     for(;;){
      if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0;
@@ -25968,7 +26694,7 @@
              i);
     /*<<hashtbl.ml:614:43>>*/ }
    function of_seq(i){
-     /*<<hashtbl.ml:617:12>>*/ var tbl = create(0, 16);
+    var tbl =  /*<<hashtbl.ml:617:12>>*/ create(0, 16);
      /*<<hashtbl.ml:618:2>>*/ replace_seq(tbl, i);
      /*<<hashtbl.ml:618:2>>*/ return tbl;
     /*<<hashtbl.ml:619:5>>*/ }
@@ -25978,18 +26704,23 @@
        opt
         ? opt[1]
         :  /*<<hashtbl.ml:621:23>>*/ caml_call1(Stdlib_Atomic[3], randomized),
-      /*<<hashtbl.ml:622:10>>*/ s = power_2_above(16, h[2].length - 1);
+     s =  /*<<hashtbl.ml:622:10>>*/ power_2_above(16, h[2].length - 1);
      /*<<hashtbl.ml:623:2>>*/ if(random)
      var
-       /*<<hashtbl.ml:624:37>>*/ _g_ =
-         /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
+      _g_ =
+         /*<<hashtbl.ml:624:37>>*/  /*<<hashtbl.ml:624:37>>*/ caml_call1
+         (Stdlib_Domain[10][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;
     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_];
+     h$0 =
+        /*<<hashtbl.ml:627:11>>*/ [0,
+        h[1],
+         /*<<hashtbl.ml:629:11>>*/ caml_make_vect(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;
@@ -26039,12 +26770,12 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -26155,7 +26886,7 @@
       var i = ofs;
       for(;;){
         /*<<weak.ml:76:6>>*/ set(ar, i, x);
-        /*<<weak.ml:76:6>>*/ var _D_ = i + 1 | 0;
+       var _D_ =  /*<<weak.ml:76:6>>*/ i + 1 | 0;
        if(_C_ === i) break;
        i = _D_;
       }
@@ -26166,7 +26897,7 @@
            ([0, Stdlib[6], cst_Weak_fill], 1);
     /*<<weak.ml:78:5>>*/ }
    function Make(H){
-     /*<<weak.ml:105:20>>*/ var emptybucket = create(0);
+    var emptybucket =  /*<<weak.ml:105:20>>*/ create(0);
     function get_index(t, h){
       /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1);
      /*<<weak.ml:117:65>>*/ }
@@ -26183,13 +26914,13 @@
              0];
      /*<<weak.ml:131:5>>*/ }
     function clear(t){
-     var _A_ = t[1].length - 2 | 0,  /*<<weak.ml:134:4>>*/ _z_ = 0;
+     var _A_ = t[1].length - 2 | 0, _z_ =  /*<<weak.ml:134:4>>*/ 0;
      if(_A_ >= 0){
       var i = _z_;
       for(;;){
         /*<<weak.ml:135:6>>*/ caml_check_bound(t[1], i)[1 + i] = emptybucket;
         /*<<weak.ml:136:6>>*/ caml_check_bound(t[2], i)[1 + i] = [0];
-        /*<<weak.ml:136:6>>*/ var _B_ = i + 1 | 0;
+       var _B_ =  /*<<weak.ml:136:6>>*/ i + 1 | 0;
        if(_A_ === i) break;
        i = _B_;
       }
@@ -26206,12 +26937,13 @@
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
                 if(length(b) <= i$0)  /*<<weak.ml:144:28>>*/ return accu;
-                 /*<<weak.ml:145:12>>*/ var match = get(b, i$0);
+                var match =  /*<<weak.ml:145:12>>*/ get(b, i$0);
                 if(match){
                  var
                   v = match[1],
-                   /*<<weak.ml:146:38>>*/ accu$0 =
-                     /*<<weak.ml:146:38>>*/ caml_call2(f, v, accu),
+                  accu$0 =
+                     /*<<weak.ml:146:38>>*/  /*<<weak.ml:146:38>>*/ caml_call2
+                     (f, v, accu),
                   i$1 = i$0 + 1 | 0;
                  i$0 = i$1;
                  accu = accu$0;
@@ -26230,7 +26962,7 @@
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
                 if(length(b) <= i$0)  /*<<weak.ml:154:28>>*/ return 0;
-                 /*<<weak.ml:155:12>>*/ var match = get(b, i$0);
+                var match =  /*<<weak.ml:155:12>>*/ get(b, i$0);
                 if(match){
                  var v = match[1];
                   /*<<weak.ml:156:18>>*/  /*<<weak.ml:156:18>>*/ caml_call1
@@ -26248,7 +26980,7 @@
       /*<<weak.ml:173:4>>*/ for(;;){
       if(length(b) <= i$0)  /*<<weak.ml:173:26>>*/ return accu$0;
       var
-        /*<<weak.ml:174:37>>*/ _y_ = check(b, i$0) ? 1 : 0,
+       _y_ =  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
        accu$1 = accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -26267,11 +26999,11 @@
      /*<<weak.ml:178:47>>*/ }
     function add_aux(t, setter, d, h, index){
      var
-       /*<<weak.ml:238:17>>*/ bucket$0 =
-        caml_check_bound(t[1], index)[1 + index],
-       /*<<weak.ml:239:17>>*/ hashes =
-        caml_check_bound(t[2], index)[1 + index],
-       /*<<weak.ml:240:13>>*/ sz = length(bucket$0),
+      bucket$0 =
+         /*<<weak.ml:238:17>>*/ caml_check_bound(t[1], index)[1 + index],
+      hashes =
+         /*<<weak.ml:239:17>>*/ caml_check_bound(t[2], index)[1 + index],
+      sz =  /*<<weak.ml:240:13>>*/ length(bucket$0),
       i$3 = 0;
       /*<<weak.ml:242:6>>*/ for(;;){
       if(sz <= i$3) break;
@@ -26281,12 +27013,12 @@
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
         /*<<weak.ml:264:8>>*/ return 0;
       }
-       /*<<weak.ml:260:38>>*/ var i$5 = i$3 + 1 | 0;
+      var i$5 =  /*<<weak.ml:260:38>>*/ i$3 + 1 | 0;
       i$3 = i$5;
      }
-      /*<<weak.ml:244:10>>*/ var
+     var
       newsz =
-         /*<<weak.ml:244:10>>*/ caml_call2
+         /*<<weak.ml:244:10>>*/  /*<<weak.ml:244:10>>*/ caml_call2
          (Stdlib_Int[10],
           ((3 * sz | 0) / 2 | 0) + 3 | 0,
           Stdlib_Sys[13] - 2 | 0);
@@ -26294,9 +27026,10 @@
        /*<<weak.ml:246:28>>*/  /*<<weak.ml:246:28>>*/ caml_call1
        (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
      var
-       /*<<weak.ml:247:24>>*/ newbucket$0 = create(newsz),
-       /*<<weak.ml:248:24>>*/ newhashes =
-         /*<<weak.ml:248:24>>*/ caml_make_vect(newsz, 0);
+      newbucket$0 =  /*<<weak.ml:247:24>>*/ create(newsz),
+      newhashes =
+         /*<<weak.ml:248:24>>*/  /*<<weak.ml:248:24>>*/ caml_make_vect
+         (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);
@@ -26312,15 +27045,15 @@
       for(;;){
        var
         _h_ = t[5],
-         /*<<weak.ml:185:17>>*/ bucket = caml_check_bound(t[1], _h_)[1 + _h_],
-         /*<<weak.ml:186:4>>*/ _i_ = t[5],
-         /*<<weak.ml:186:18>>*/ hbucket = caml_check_bound(t[2], _i_)[1 + _i_],
-         /*<<weak.ml:187:14>>*/ len = length(bucket),
+        bucket =  /*<<weak.ml:185:17>>*/ caml_check_bound(t[1], _h_)[1 + _h_],
+        _i_ =  /*<<weak.ml:186:4>>*/ t[5],
+        hbucket =  /*<<weak.ml:186:18>>*/ caml_check_bound(t[2], _i_)[1 + _i_],
+        len =  /*<<weak.ml:187:14>>*/ length(bucket),
         prev_len = (((len - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0,
-         /*<<weak.ml:189:15>>*/ live = count_bucket(0, bucket, 0);
+        live =  /*<<weak.ml:189:15>>*/ count_bucket(0, bucket, 0);
        if(live <= prev_len){
         var
-          /*<<weak.ml:201:14>>*/ j$2 = length(bucket) - 1 | 0,
+         j$2 =  /*<<weak.ml:201:14>>*/ length(bucket) - 1 | 0,
          i$0 = 0,
          j = j$2;
          /*<<weak.ml:192:8>>*/ for(;;){
@@ -26331,14 +27064,14 @@
          }
          else if(check(bucket, j)){
            /*<<weak.ml:195:12>>*/ blit(bucket, j, bucket, i$0, 1);
-           /*<<weak.ml:196:27>>*/ var
-           _j_ = caml_check_bound(hbucket, j)[1 + j];
+          var
+           _j_ =  /*<<weak.ml:196:27>>*/ caml_check_bound(hbucket, j)[1 + j];
            /*<<weak.ml:196:12>>*/ caml_check_bound(hbucket, i$0)[1 + i$0] = _j_;
-          var  /*<<weak.ml:196:12>>*/ j$0 = j - 1 | 0, i$2 = i$0 + 1 | 0;
+          var j$0 =  /*<<weak.ml:196:12>>*/ j - 1 | 0, i$2 = i$0 + 1 | 0;
           i$0 = i$2;
           j = j$0;
          }
-         else{ /*<<weak.ml:198:19>>*/ var j$1 = j - 1 | 0; j = j$1;}
+         else{var j$1 =  /*<<weak.ml:198:19>>*/ j - 1 | 0; j = j$1;}
         }
         if(0 === prev_len){
          var _k_ = t[5];
@@ -26347,13 +27080,13 @@
           /*<<weak.ml:204:8>>*/ caml_check_bound(t[2], _l_)[1 + _l_] = [0];
         }
         else{
-          /*<<weak.ml:206:24>>*/ var newbucket = create(prev_len);
+         var newbucket =  /*<<weak.ml:206:24>>*/ create(prev_len);
           /*<<weak.ml:207:8>>*/ blit(bucket, 0, newbucket, 0, prev_len);
          var _o_ = t[5];
           /*<<weak.ml:208:8>>*/ caml_check_bound(t[1], _o_)[1 + _o_] = newbucket;
          var
-           /*<<weak.ml:209:30>>*/ _p_ =
-             /*<<weak.ml:209:30>>*/ caml_call3
+          _p_ =
+             /*<<weak.ml:209:30>>*/  /*<<weak.ml:209:30>>*/ caml_call3
              (Stdlib_Array[6], hbucket, 0, prev_len),
           _q_ = t[5];
           /*<<weak.ml:209:8>>*/ caml_check_bound(t[2], _q_)[1 + _q_] = _p_;
@@ -26364,7 +27097,7 @@
         if(_n_) t[4] = t[4] - 1 | 0;
        }
        t[5] = caml_mod(t[5] + 1 | 0, t[1].length - 1);
-        /*<<weak.ml:257:38>>*/ var _u_ = i$4 + 1 | 0;
+       var _u_ =  /*<<weak.ml:257:38>>*/ i$4 + 1 | 0;
        if(2 === i$4) break;
        i$4 = _u_;
       }
@@ -26373,11 +27106,11 @@
      if(! _t_) return _t_;
      var
       oldlen = t[1].length - 1,
-       /*<<weak.ml:181:18>>*/ newlen =
-         /*<<weak.ml:181:18>>*/ caml_call2
+      newlen =
+         /*<<weak.ml:181:18>>*/  /*<<weak.ml:181:18>>*/ caml_call2
          (Stdlib_Int[10], ((3 * oldlen | 0) / 2 | 0) + 3 | 0, Stdlib_Sys[13]);
      if(oldlen < newlen){
-      var  /*<<weak.ml:220:17>>*/ newt = create$0(newlen), i = 0;
+      var newt =  /*<<weak.ml:220:17>>*/ create$0(newlen), i = 0;
        /*<<weak.ml:169:16>>*/  /*<<weak.ml:169:16>>*/ caml_call2
        (Stdlib_Array[13],
         function(j, ob){
@@ -26385,14 +27118,14 @@
           /*<<weak.ml:164:6>>*/ for(;;){
           if(length(ob) <= oi)  /*<<weak.ml:164:28>>*/ return 0;
           if(check(ob, oi)){
-            /*<<weak.ml:166:20>>*/ var oh = caml_check_bound(t[2], j)[1 + j];
+           var oh =  /*<<weak.ml:166:20>>*/ caml_check_bound(t[2], j)[1 + j];
            let oi$0 = oi;
            var
             setter =
               function(nb, ni, param){
                 /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1);
                /*<<weak.ml:222:47>>*/ },
-             /*<<weak.ml:223:16>>*/ h = caml_check_bound(oh, oi)[1 + oi];
+            h =  /*<<weak.ml:223:16>>*/ caml_check_bound(oh, oi)[1 + oi];
             /*<<weak.ml:224:35>>*/ add_aux
             (newt, setter, 0, h, get_index(newt, h));
            var i$0 = oi + 1 | 0;
@@ -26414,27 +27147,27 @@
      return 0;
      /*<<weak.ml:267:10>>*/ }
     function add(t, d){
-      /*<<weak.ml:271:12>>*/ var
-      h =  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
+     var
+      h =  /*<<weak.ml:271:12>>*/  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
       /*<<weak.ml:272:29>>*/ return add_aux
              (t, set, [0, d], h, get_index(t, h));
      /*<<weak.ml:272:44>>*/ }
     function find_aux(t, d, found, notfound){
      var
-       /*<<weak.ml:278:12>>*/ h =  /*<<weak.ml:278:12>>*/ caml_call1(H[2], d),
-       /*<<weak.ml:279:16>>*/ index = get_index(t, h),
-       /*<<weak.ml:280:17>>*/ bucket =
-        caml_check_bound(t[1], index)[1 + index],
-       /*<<weak.ml:281:17>>*/ hashes =
-        caml_check_bound(t[2], index)[1 + index],
-       /*<<weak.ml:282:13>>*/ sz = length(bucket),
+      h =  /*<<weak.ml:278:12>>*/  /*<<weak.ml:278:12>>*/ caml_call1(H[2], d),
+      index =  /*<<weak.ml:279:16>>*/ get_index(t, h),
+      bucket =
+         /*<<weak.ml:280:17>>*/ caml_check_bound(t[1], index)[1 + index],
+      hashes =
+         /*<<weak.ml:281:17>>*/ caml_check_bound(t[2], index)[1 + index],
+      sz =  /*<<weak.ml:282:13>>*/ length(bucket),
       i = 0;
       /*<<weak.ml:284:6>>*/ for(;;){
       if(sz <= i)
         /*<<weak.ml:279:16>>*/ return  /*<<weak.ml:279:16>>*/ caml_call2
                (notfound, h, index);
       if(h === caml_check_bound(hashes, i)[1 + i]){
-        /*<<weak.ml:286:14>>*/ var opt = get(bucket, i);
+       var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
        if(opt){
         var v = opt[1];
          /*<<weak.ml:287:29>>*/ if
@@ -26442,10 +27175,10 @@
           /*<<weak.ml:287:44>>*/ return  /*<<weak.ml:287:44>>*/ caml_call4
                  (found, bucket, i, opt, v);
        }
-        /*<<weak.ml:288:15>>*/ var i$0 = i + 1 | 0;
+       var i$0 =  /*<<weak.ml:288:15>>*/ i + 1 | 0;
        i = i$0;
       }
-      else{ /*<<weak.ml:289:15>>*/ var i$1 = i + 1 | 0; i = i$1;}
+      else{var i$1 =  /*<<weak.ml:289:15>>*/ i + 1 | 0; i = i$1;}
      }
      /*<<weak.ml:291:10>>*/ }
     function find_opt(t, d){
@@ -26507,26 +27240,26 @@
      /*<<weak.ml:307:54>>*/ }
     function find_all(t, d){
      var
-       /*<<weak.ml:310:12>>*/ h =  /*<<weak.ml:310:12>>*/ caml_call1(H[2], d),
-       /*<<weak.ml:311:16>>*/ index = get_index(t, h),
-       /*<<weak.ml:312:17>>*/ bucket =
-        caml_check_bound(t[1], index)[1 + index],
-       /*<<weak.ml:313:17>>*/ hashes =
-        caml_check_bound(t[2], index)[1 + index],
-       /*<<weak.ml:314:13>>*/ sz = length(bucket),
+      h =  /*<<weak.ml:310:12>>*/  /*<<weak.ml:310:12>>*/ caml_call1(H[2], d),
+      index =  /*<<weak.ml:311:16>>*/ get_index(t, h),
+      bucket =
+         /*<<weak.ml:312:17>>*/ caml_check_bound(t[1], index)[1 + index],
+      hashes =
+         /*<<weak.ml:313:17>>*/ caml_check_bound(t[2], index)[1 + index],
+      sz =  /*<<weak.ml:314:13>>*/ length(bucket),
       i = 0,
       accu = 0;
       /*<<weak.ml:316:6>>*/ for(;;){
       if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
       if(h === caml_check_bound(hashes, i)[1 + i]){
-        /*<<weak.ml:318:14>>*/ var match = get(bucket, i);
+       var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
        if(match){
         var v = match[1];
          /*<<weak.ml:319:22>>*/ if
          ( /*<<weak.ml:319:22>>*/ caml_call2(H[1], v, d)){
          var
-           /*<<weak.ml:319:50>>*/ accu$0 = [0, v, accu],
-           /*<<weak.ml:319:50>>*/ i$0 = i + 1 | 0;
+          accu$0 =  /*<<weak.ml:319:50>>*/ [0, v, accu],
+          i$0 =  /*<<weak.ml:319:50>>*/ i + 1 | 0;
          i = i$0;
          accu = accu$0;
          continue;
@@ -26541,22 +27274,23 @@
     function stats(t){
      var
       len = t[1].length - 1,
-       /*<<weak.ml:327:15>>*/ lens =
-         /*<<weak.ml:327:15>>*/ caml_call2(Stdlib_Array[14], length, t[1]);
+      lens =
+         /*<<weak.ml:327:15>>*/  /*<<weak.ml:327:15>>*/ caml_call2
+         (Stdlib_Array[14], length, t[1]);
       /*<<weak.ml:328:4>>*/  /*<<weak.ml:328:4>>*/ caml_call2
       (Stdlib_Array[35], runtime.caml_int_compare, lens);
      var
-       /*<<weak.ml:329:17>>*/ totlen =
-         /*<<weak.ml:329:17>>*/ caml_call3
+      totlen =
+         /*<<weak.ml:329:17>>*/  /*<<weak.ml:329:17>>*/ caml_call3
          (Stdlib_Array[18],
           function(_g_, _f_){ /*<<?>>*/ return _g_ + _f_ | 0;},
           0,
           lens),
-       /*<<weak.ml:329:17>>*/ _a_ = len - 1 | 0,
+      _a_ =  /*<<weak.ml:329:17>>*/ len - 1 | 0,
       _c_ = len / 2 | 0,
-       /*<<weak.ml:330:51>>*/ _b_ = caml_check_bound(lens, _a_)[1 + _a_],
-       /*<<weak.ml:330:37>>*/ _d_ = caml_check_bound(lens, _c_)[1 + _c_],
-       /*<<weak.ml:330:27>>*/ _e_ = caml_check_bound(lens, 0)[1];
+      _b_ =  /*<<weak.ml:330:51>>*/ caml_check_bound(lens, _a_)[1 + _a_],
+      _d_ =  /*<<weak.ml:330:37>>*/ caml_check_bound(lens, _c_)[1 + _c_],
+      _e_ =  /*<<weak.ml:330:27>>*/ caml_check_bound(lens, 0)[1];
       /*<<weak.ml:330:4>>*/ return [0, len, count(t), totlen, _e_, _d_, _b_];
      /*<<weak.ml:330:64>>*/ }
      /*<<weak.ml:101:66>>*/ return [0,
@@ -26588,12 +27322,12 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst$16 = "",
-     /*<<?>>*/ cst$15 = ">",
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_ml_string_length = runtime.caml_ml_string_length;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst$16 =  /*<<?>>*/ "",
+    cst$15 =  /*<<?>>*/ ">",
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -26650,8 +27384,10 @@
    var
     zero = 0,
     unknown = -1,
-     /*<<format.ml:91:13>>*/ String_tag =
-      [248, "Stdlib.Format.String_tag", runtime.caml_fresh_oo_id(0)];
+    String_tag =
+       /*<<format.ml:91:13>>*/ [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;
     return caml_call2(Stdlib_Queue[3], token, state[28]);
@@ -26678,7 +27414,7 @@
     state[11] = 0;
     /*<<format.ml:260:31>>*/ }
    function format_string(state, s){
-     /*<<format.ml:264:5>>*/ var _a__ = s !== cst$16 ? 1 : 0;
+    var _a__ =  /*<<format.ml:264:5>>*/ s !== cst$16 ? 1 : 0;
      /*<<format.ml:264:5>>*/ return _a__
             ? format_pp_text(state, caml_ml_string_length(s), s)
             : _a__;
@@ -26690,8 +27426,9 @@
     state[11] = 1;
     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);
+     real_indent =
+        /*<<format.ml:273:20>>*/  /*<<format.ml:273:20>>*/ caml_call2
+        (Stdlib_Int[10], state[8], indent);
     state[10] = real_indent;
     state[9] = state[6] - state[10] | 0;
     var n = state[10];
@@ -26711,14 +27448,15 @@
      /*<<?>>*/ if(typeof param === "number")
      switch(param){
        case 0:
-         /*<<format.ml:348:16>>*/ var
+        var
          match$3 =
-            /*<<format.ml:348:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
+            /*<<format.ml:348:16>>*/  /*<<format.ml:348:16>>*/ caml_call1
+            (Stdlib_Stack[8], state[3]);
         if(! match$3)  /*<<format.ml:349:14>>*/ return;
         var
          tabs = match$3[1][1],
-          /*<<format.ml:351:6>>*/ add_tab =
-           function(n, ls){
+         add_tab =
+            /*<<format.ml:351:6>>*/ function(n, ls){
              /*<<?>>*/ if(! ls)  /*<<format.ml:352:16>>*/ return [0, n, 0];
             var l = ls[2], x = ls[1];
              /*<<format.ml:353:29>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
@@ -26737,9 +27475,10 @@
          (Stdlib_Stack[5], state[3]);
          /*<<format.ml:345:4>>*/ return;
        case 3:
-         /*<<format.ml:378:16>>*/ var
+        var
          match$4 =
-            /*<<format.ml:378:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+            /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ caml_call1
+            (Stdlib_Stack[8], state[2]);
         if(! match$4)
           /*<<format.ml:379:14>>*/ return pp_output_newline(state);
         var width$0 = match$4[1][2];
@@ -26747,23 +27486,26 @@
        case 4:
         var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
         if(! _a8_) return _a8_;
-         /*<<format.ml:306:8>>*/ var
+        var
          match$1 =
-            /*<<format.ml:306:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
+            /*<<format.ml:306:8>>*/  /*<<format.ml:306:8>>*/ caml_call1
+            (Stdlib_Queue[6], state[28]);
         if(! match$1)  /*<<format.ml:307: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>>*/ var
+        var
          match$5 =
-            /*<<format.ml:419:17>>*/ caml_call1(Stdlib_Stack[5], state[5]);
+            /*<<format.ml:419:17>>*/  /*<<format.ml:419:17>>*/ caml_call1
+            (Stdlib_Stack[5], state[5]);
         if(! match$5)  /*<<format.ml:420:15>>*/ return;
         var
          tag_name = match$5[1],
-          /*<<format.ml:422:20>>*/ marker =
-            /*<<format.ml:422:20>>*/ caml_call1(state[25], tag_name);
+         marker =
+            /*<<format.ml:422:20>>*/  /*<<format.ml:422:20>>*/ caml_call1
+            (state[25], tag_name);
          /*<<format.ml:423:7>>*/ return pp_output_string(state, marker);
      }
     switch(param[0]){
@@ -26774,10 +27516,11 @@
        var
         breaks = param[2],
         fits = param[1],
-         /*<<format.ml:388:4>>*/ off = breaks[2],
+        off =  /*<<format.ml:388:4>>*/ breaks[2],
         before = breaks[1],
-         /*<<format.ml:389:16>>*/ match$6 =
-           /*<<format.ml:389:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+        match$6 =
+           /*<<format.ml:389:16>>*/  /*<<format.ml:389:16>>*/ caml_call1
+           (Stdlib_Stack[8], state[2]);
        if(! match$6)  /*<<format.ml:390:14>>*/ return;
        var
         match$7 = match$6[1],
@@ -26820,12 +27563,13 @@
         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]);
+        match$8 =
+           /*<<format.ml:359:16>>*/  /*<<format.ml:359:16>>*/ caml_call1
+           (Stdlib_Stack[8], state[3]);
        if(! match$8)  /*<<format.ml:360:14>>*/ return;
        var
         tabs$0 = match$8[1][1],
-         /*<<format.ml:362:6>>*/ match$9 = tabs$0[1];
+        match$9 =  /*<<format.ml:362:6>>*/ tabs$0[1];
        if(match$9){
         var first = match$9[1], param$0 = tabs$0[1];
          /*<<format.ml:366:25>>*/ for(;;){
@@ -26853,9 +27597,10 @@
         off$1 = param[1],
         insertion_point$0 = state[6] - state[9] | 0;
        if(state[8] < insertion_point$0){
-         /*<<format.ml:295:8>>*/ var
+        var
          match =
-            /*<<format.ml:295:8>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+            /*<<format.ml:295:8>>*/  /*<<format.ml:295: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)
@@ -26866,8 +27611,8 @@
        }
        var
         width$2 = state[9] - off$1 | 0,
-         /*<<format.ml:331:4>>*/ box_type$1 =
-          1 === ty ? 1 : state[9] < size$0 ? ty : 5;
+        box_type$1 =
+           /*<<format.ml:331:4>>*/ 1 === ty ? 1 : state[9] < size$0 ? ty : 5;
         /*<<format.ml:336:4>>*/ return  /*<<format.ml:336:4>>*/ caml_call2
                (Stdlib_Stack[3], [0, box_type$1, width$2], state[2]);
       case 4:
@@ -26877,16 +27622,19 @@
       default:
        var
         tag_name$0 = param[1],
-         /*<<format.ml:414:18>>*/ marker$0 =
-           /*<<format.ml:414:18>>*/ caml_call1(state[24], tag_name$0);
+        marker$0 =
+           /*<<format.ml:414:18>>*/  /*<<format.ml:414:18>>*/ caml_call1
+           (state[24], tag_name$0);
         /*<<format.ml:415: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>>*/ var
-      match =  /*<<format.ml:431:8>>*/ caml_call1(Stdlib_Queue[9], state[28]);
+     var
+      match =
+         /*<<format.ml:431:8>>*/  /*<<format.ml:431:8>>*/ caml_call1
+         (Stdlib_Queue[9], state[28]);
      if(! match)  /*<<format.ml:432:12>>*/ return 0;
      var
       match$0 = match[1],
@@ -26895,12 +27643,12 @@
       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);
+      _a7_ =
+         /*<<format.ml:435:7>>*/ _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
       (Stdlib_Queue[5], state[28]);
-      /*<<format.ml:437:20>>*/ var size$0 = 0 <= size ? size : pp_infinity;
+     var size$0 =  /*<<format.ml:437:20>>*/ 0 <= size ? size : pp_infinity;
       /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
      state[12] = length + state[12] | 0;
     }
@@ -26916,19 +27664,21 @@
    function initialize_scan_stack(stack){
      /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
      (Stdlib_Stack[9], stack);
-     /*<<format.ml:463:19>>*/ var queue_elem = [0, unknown, _b_, 0];
+    var queue_elem =  /*<<format.ml:463:19>>*/ [0, unknown, _b_, 0];
      /*<<format.ml:464:2>>*/ return  /*<<format.ml:464:2>>*/ caml_call2
             (Stdlib_Stack[3], [0, -1, queue_elem], stack);
     /*<<format.ml:464:50>>*/ }
    function set_size(state, ty){
-     /*<<format.ml:476:8>>*/ var
-     match =  /*<<format.ml:476:8>>*/ caml_call1(Stdlib_Stack[8], state[1]);
+    var
+     match =
+        /*<<format.ml:476:8>>*/  /*<<format.ml:476:8>>*/ caml_call1
+        (Stdlib_Stack[8], state[1]);
     if(! match)  /*<<format.ml:477:12>>*/ return;
     var
      match$0 = match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
-      /*<<format.ml:479:4>>*/ size = queue_elem[1];
+     size =  /*<<format.ml:479:4>>*/ queue_elem[1];
     if(left_total < state[12]) return initialize_scan_stack(state[1]);
     var _a5_ = queue_elem[2];
     if(typeof _a5_ !== "number")
@@ -26955,7 +27705,7 @@
    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>>*/ var elem = [0, state[13], token];
+    var elem =  /*<<format.ml:505:13>>*/ [0, state[13], token];
      /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
             (Stdlib_Stack[3], elem, state[1]);
     /*<<format.ml:506:37>>*/ }
@@ -26964,7 +27714,7 @@
     if(state[14] < state[15]){
      var
       size = - state[13] | 0,
-       /*<<format.ml:516:15>>*/ elem = [0, size, [3, indent, br_ty], 0];
+      elem =  /*<<format.ml:516:15>>*/ [0, size, [3, indent, br_ty], 0];
       /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem);
     }
     var _a4_ = state[14] === state[15] ? 1 : 0;
@@ -26996,7 +27746,7 @@
     }
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
-     /*<<format.ml:546:16>>*/ var token = [5, tag_name];
+    var token =  /*<<format.ml:546:16>>*/ [5, tag_name];
      /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]);
     /*<<format.ml:547:60>>*/ }
    function pp_close_stag(state, param){
@@ -27004,8 +27754,10 @@
       /*<<format.ml:553:4>>*/ pp_enqueue(state, [0, zero, 5, 0]);
     var _aZ_ = state[22];
     if(_aZ_){
-      /*<<format.ml:555:10>>*/ var
-      match =  /*<<format.ml:555:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
+     var
+      match =
+         /*<<format.ml:555:10>>*/  /*<<format.ml:555: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
@@ -27098,8 +27850,9 @@
     /*<<format.ml:634:39>>*/ }
    function pp_print_bytes(state, s){
     var
-      /*<<format.ml:637:37>>*/ s$0 =
-        /*<<format.ml:637:37>>*/ caml_call1(Stdlib_Bytes[6], s),
+     s$0 =
+        /*<<format.ml:637:37>>*/  /*<<format.ml:637: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>>*/ }
@@ -27116,8 +27869,10 @@
             (state,  /*<<format.ml:646:50>>*/ caml_call1(Stdlib[30], b));
     /*<<format.ml:646:68>>*/ }
    function pp_print_char(state, c){
-     /*<<format.ml:650:22>>*/ var
-     s =  /*<<format.ml:650:22>>*/ caml_call2(Stdlib_String[1], 1, c);
+    var
+     s =
+        /*<<format.ml:650:22>>*/  /*<<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;
@@ -27164,12 +27919,12 @@
     if(! _aV_) return _aV_;
     var
      size = - state[13] | 0,
-      /*<<format.ml:697:25>>*/ token = [1, fits, breaks],
+     token =  /*<<format.ml:697:25>>*/ [1, fits, breaks],
      length =
        (caml_ml_string_length(before) + width | 0)
        +  /*<<format.ml:698:4>>*/ caml_ml_string_length(after)
        | 0,
-      /*<<format.ml:699:15>>*/ elem = [0, size, token, length];
+     elem =  /*<<format.ml:699:15>>*/ [0, size, token, length];
      /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem);
     /*<<format.ml:700:29>>*/ }
    function pp_print_break(state, width, offset){
@@ -27186,7 +27941,7 @@
      /*<<format.ml:722:2>>*/ state[14] = state[14] + 1 | 0;
     var _aU_ = state[14] < state[15] ? 1 : 0;
     if(! _aU_) return _aU_;
-     /*<<format.ml:725:15>>*/ var elem = [0, zero, [4, [0, [0, 0]]], 0];
+    var elem =  /*<<format.ml:725:15>>*/ [0, zero, [4, [0, [0, 0]]], 0];
      /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem);
     /*<<format.ml:726:30>>*/ }
    function pp_close_tbox(state, param){
@@ -27194,7 +27949,7 @@
     if(_aR_){
      var _aS_ = state[14] < state[15] ? 1 : 0;
      if(_aS_){
-       /*<<format.ml:734:16>>*/ var elem = [0, zero, 2, 0];
+      var elem =  /*<<format.ml:734:16>>*/ [0, zero, 2, 0];
        /*<<format.ml:735:5>>*/ enqueue_advance(state, elem);
       state[14] = state[14] - 1 | 0;
       var _aT_ = 0;
@@ -27211,7 +27966,7 @@
     if(! _aQ_) return _aQ_;
     var
      size = - state[13] | 0,
-      /*<<format.ml:744:15>>*/ elem = [0, size, [2, width, offset], width];
+     elem =  /*<<format.ml:744:15>>*/ [0, size, [2, width, offset], width];
      /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem);
     /*<<format.ml:745:29>>*/ }
    function pp_print_tab(state, param){
@@ -27220,7 +27975,7 @@
    function pp_set_tab(state, param){
     var _aP_ = state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
-     /*<<format.ml:752:15>>*/ var elem = [0, zero, 0, 0];
+    var elem =  /*<<format.ml:752:15>>*/ [0, zero, 0, 0];
      /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem);
     /*<<format.ml:753:30>>*/ }
    function pp_set_max_boxes(state, n){
@@ -27248,7 +28003,7 @@
     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>>*/ var n = pp_limit(n$1);
+    var n =  /*<<format.ml:783:12>>*/ pp_limit(n$1);
     state[7] = n;
     state[8] = state[6] - state[7] | 0;
      /*<<format.ml:786:4>>*/ return pp_rinit(state);
@@ -27259,14 +28014,14 @@
    function pp_set_margin(state, n){
     var _aJ_ = 1 <= n ? 1 : 0;
     if(! _aJ_) return _aJ_;
-     /*<<format.ml:801:12>>*/ var n$0 = pp_limit(n);
+    var n$0 =  /*<<format.ml:801:12>>*/ pp_limit(n);
     state[6] = n$0;
     if(state[8] <= state[6])
      var new_max_indent = state[8];
     else
      var
-       /*<<format.ml:810:15>>*/ _aK_ =
-         /*<<format.ml:810:15>>*/ caml_call2
+      _aK_ =
+         /*<<format.ml:810:15>>*/  /*<<format.ml:810: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);
@@ -27294,20 +28049,20 @@
    }
    function pp_set_geometry(state, max_indent, margin){
     var
-      /*<<format.ml:841:17>>*/ geometry = [0, max_indent, margin],
-      /*<<format.ml:842:8>>*/ match = validate_geometry(geometry);
+     geometry =  /*<<format.ml:841:17>>*/ [0, max_indent, margin],
+     match =  /*<<format.ml:842:8>>*/ validate_geometry(geometry);
     if(0 === match[0])
       /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry);
     var
      msg = match[1],
-      /*<<format.ml:844:28>>*/ _aI_ =
-        /*<<format.ml:844:28>>*/ caml_call2
+     _aI_ =
+        /*<<format.ml:844:28>>*/  /*<<format.ml:844:28>>*/ caml_call2
         (Stdlib[28], cst_Format_pp_set_geometry, msg);
      /*<<format.ml:844:4>>*/ throw  /*<<format.ml:844:4>>*/ caml_maybe_attach_backtrace
            ([0, Stdlib[6], _aI_], 1);
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
-     /*<<format.ml:849:17>>*/ var geometry = [0, max_indent, margin];
+    var geometry =  /*<<format.ml:849:17>>*/ [0, max_indent, margin];
     return 0 === validate_geometry(geometry)[0]
             ? pp_set_full_geometry(state, geometry)
             : 0;
@@ -27316,7 +28071,7 @@
      /*<<format.ml:857:2>>*/ return [0, state[8], state[6]];
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
-     /*<<format.ml:860:17>>*/ var geometry = pp_get_geometry(state, 0);
+    var geometry =  /*<<format.ml:860:17>>*/ 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>>*/ }
@@ -27350,8 +28105,9 @@
             (state[17], cst$7, 0, 1);
     /*<<format.ml:895:60>>*/ }
    var
-     /*<<format.ml:898:17>>*/ blank_line =
-       /*<<format.ml:898:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
+    blank_line =
+       /*<<format.ml:898:17>>*/  /*<<format.ml:898:17>>*/ caml_call2
+       (Stdlib_String[1], 80, 32),
     _g_ = [3, 0, 3];
    function display_blanks(state, n){
     var n$0 = n;
@@ -27363,7 +28119,7 @@
               (state[17], blank_line, 0, n$0);
       /*<<format.ml:903:4>>*/  /*<<format.ml:903:4>>*/ caml_call3
       (state[17], blank_line, 0, 80);
-      /*<<format.ml:903:4>>*/ var n$1 = n$0 - 80 | 0;
+     var n$1 =  /*<<format.ml:903:4>>*/ n$0 - 80 | 0;
      n$0 = n$1;
     }
     /*<<format.ml:905:5>>*/ }
@@ -27386,8 +28142,9 @@
       /*<<format.ml:928:9>>*/ return cst$10;
     var
      s = param[2],
-      /*<<format.ml:927:26>>*/ _aD_ =
-        /*<<format.ml:927:26>>*/ caml_call2(Stdlib[28], s, cst$8);
+     _aD_ =
+        /*<<format.ml:927:26>>*/  /*<<format.ml:927:26>>*/ caml_call2
+        (Stdlib[28], s, cst$8);
      /*<<format.ml:927:26>>*/ return  /*<<format.ml:927:26>>*/ caml_call2
             (Stdlib[28], cst$9, _aD_);
     /*<<format.ml:928:11>>*/ }
@@ -27396,8 +28153,9 @@
       /*<<format.ml:931:9>>*/ return cst$13;
     var
      s = param[2],
-      /*<<format.ml:930:27>>*/ _aC_ =
-        /*<<format.ml:930:27>>*/ caml_call2(Stdlib[28], s, cst$11);
+     _aC_ =
+        /*<<format.ml:930:27>>*/  /*<<format.ml:930:27>>*/ caml_call2
+        (Stdlib[28], s, cst$11);
      /*<<format.ml:930:27>>*/ return  /*<<format.ml:930:27>>*/ caml_call2
             (Stdlib[28], cst$12, _aC_);
     /*<<format.ml:931:11>>*/ }
@@ -27405,25 +28163,31 @@
    function default_pp_print_close_tag(_aA_){ /*<<?>>*/ return 0;}
    function pp_make_formatter(f, g, h, i, j){
     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];
+     pp_queue =
+        /*<<format.ml:940:17>>*/  /*<<format.ml:940:17>>*/ caml_call1
+        (Stdlib_Queue[2], 0),
+     sys_tok =  /*<<format.ml:942:4>>*/ [0, unknown, _g_, 0];
      /*<<format.ml:943:2>>*/  /*<<format.ml:943:2>>*/ caml_call2
      (Stdlib_Queue[3], sys_tok, pp_queue);
-     /*<<format.ml:944:19>>*/ var
-     scan_stack =  /*<<format.ml:944:19>>*/ caml_call1(Stdlib_Stack[2], 0);
+    var
+     scan_stack =
+        /*<<format.ml:944:19>>*/  /*<<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
      (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
     var
-      /*<<format.ml:946:2>>*/ pp_margin = 78,
+     pp_margin =  /*<<format.ml:946:2>>*/ 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);
+     _ax_ =
+        /*<<format.ml:954:20>>*/  /*<<format.ml:954:20>>*/ caml_call1
+        (Stdlib_Stack[2], 0),
+     _ay_ =
+        /*<<format.ml:953:19>>*/  /*<<format.ml:953:19>>*/ caml_call1
+        (Stdlib_Stack[2], 0),
+     _az_ =
+        /*<<format.ml:952:20>>*/  /*<<format.ml:952:20>>*/ caml_call1
+        (Stdlib_Stack[2], 0);
      /*<<format.ml:949:2>>*/ return [0,
             scan_stack,
              /*<<format.ml:951:22>>*/ caml_call1(Stdlib_Stack[2], 0),
@@ -27459,9 +28223,9 @@
             (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]);
     /*<<format.ml:988:23>>*/ }
    function make_formatter(output, flush){
-     /*<<format.ml:994:12>>*/ var
+    var
      ppf =
-       pp_make_formatter
+        /*<<format.ml:994:12>>*/ pp_make_formatter
         (output,
          flush,
          function(_av_){ /*<<?>>*/ return 0;},
@@ -27491,20 +28255,20 @@
             (Stdlib_Buffer[1], pp_buffer_size);
     /*<<format.ml:1015:52>>*/ }
    var
-     /*<<format.ml:1018:13>>*/ stdbuf = pp_make_buffer(0),
-     /*<<format.ml:1022:20>>*/ std_formatter =
-      formatter_of_out_channel(Stdlib[39]),
-     /*<<format.ml:1023: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
+    stdbuf =  /*<<format.ml:1018:13>>*/ pp_make_buffer(0),
+    std_formatter =
+       /*<<format.ml:1022:20>>*/ formatter_of_out_channel(Stdlib[39]),
+    err_formatter =
+       /*<<format.ml:1023:20>>*/ formatter_of_out_channel(Stdlib[40]),
+    str_formatter =  /*<<format.ml:1024:20>>*/ formatter_of_buffer(stdbuf),
+    stdbuf_key =
+       /*<<format.ml:1029:17>>*/  /*<<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>>*/ var
+   var
     str_formatter_key =
-       /*<<format.ml:1032:24>>*/ caml_call2
+       /*<<format.ml:1032:24>>*/  /*<<format.ml:1032:24>>*/ caml_call2
        (Stdlib_Domain[10][1],
         0,
         function(param){
@@ -27515,19 +28279,24 @@
     /*<<format.ml:1034:8>>*/  /*<<format.ml:1034:8>>*/ caml_call2
     (Stdlib_Domain[10][3], str_formatter_key, str_formatter);
    function buffered_out_string(key, str, ofs, len){
-     /*<<format.ml:1037:23>>*/ var
-     _ao_ =  /*<<format.ml:1037:23>>*/ caml_call1(Stdlib_Domain[10][2], key);
+    var
+     _ao_ =
+        /*<<format.ml:1037:23>>*/  /*<<format.ml:1037:23>>*/ caml_call1
+        (Stdlib_Domain[10][2], key);
      /*<<format.ml:1037:2>>*/ return  /*<<format.ml:1037:2>>*/ caml_call4
             (Stdlib_Buffer[18], _ao_, str, ofs, len);
     /*<<format.ml:1037:55>>*/ }
    function buffered_out_flush(oc, key, param){
     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);
+     buf =
+        /*<<format.ml:1040:12>>*/  /*<<format.ml:1040:12>>*/ caml_call1
+        (Stdlib_Domain[10][2], key),
+     len =
+        /*<<format.ml:1041:12>>*/  /*<<format.ml:1041:12>>*/ caml_call1
+        (Stdlib_Buffer[7], buf),
+     str =
+        /*<<format.ml:1042:12>>*/  /*<<format.ml:1042:12>>*/ caml_call1
+        (Stdlib_Buffer[2], buf);
      /*<<format.ml:1043:2>>*/  /*<<format.ml:1043:2>>*/ caml_call4
      (Stdlib[69], oc, str, 0, len);
      /*<<format.ml:1044:2>>*/  /*<<format.ml:1044:2>>*/ caml_call1
@@ -27536,31 +28305,31 @@
             (Stdlib_Buffer[8], buf);
     /*<<format.ml:1045:18>>*/ }
    var
-     /*<<format.ml:1047:18>>*/ std_buf_key =
-       /*<<format.ml:1047:18>>*/ caml_call2
+    std_buf_key =
+       /*<<format.ml:1047:18>>*/  /*<<format.ml:1047:18>>*/ caml_call2
        (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1047: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
+    err_buf_key =
+       /*<<format.ml:1048:18>>*/  /*<<format.ml:1048:18>>*/ caml_call2
        (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1048:48>>*/ return  /*<<format.ml:1047: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
+    std_formatter_key =
+       /*<<format.ml:1050:24>>*/  /*<<format.ml:1050:24>>*/ caml_call2
        (Stdlib_Domain[10][1],
         0,
         function(param){
          var
           _ac_ = Stdlib[39],
-           /*<<format.ml:1052:4>>*/ ppf =
-            pp_make_formatter
+          ppf =
+             /*<<format.ml:1052:4>>*/ pp_make_formatter
              (function(_al_, _am_, _an_){
                 /*<<?>>*/ return buffered_out_string
                        (std_buf_key, _al_, _am_, _an_);
@@ -27584,16 +28353,16 @@
          /*<<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>>*/ var
+   var
     err_formatter_key =
-       /*<<format.ml:1062:24>>*/ caml_call2
+       /*<<format.ml:1062:24>>*/  /*<<format.ml:1062:24>>*/ caml_call2
        (Stdlib_Domain[10][1],
         0,
         function(param){
          var
           _S_ = Stdlib[40],
-           /*<<format.ml:1064:4>>*/ ppf =
-            pp_make_formatter
+          ppf =
+             /*<<format.ml:1064:4>>*/ pp_make_formatter
              (function(_$_, _aa_, _ab_){
                 /*<<?>>*/ return buffered_out_string
                        (err_buf_key, _$_, _aa_, _ab_);
@@ -27632,18 +28401,21 @@
     /*<<format.ml:1077:38>>*/ }
    function flush_buffer_formatter(buf, ppf){
      /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
-     /*<<format.ml:1085:10>>*/ var
-     s =  /*<<format.ml:1085:10>>*/ caml_call1(Stdlib_Buffer[2], buf);
+    var
+     s =
+        /*<<format.ml:1085:10>>*/  /*<<format.ml:1085:10>>*/ caml_call1
+        (Stdlib_Buffer[2], buf);
      /*<<format.ml:1086:2>>*/  /*<<format.ml:1086:2>>*/ caml_call1
      (Stdlib_Buffer[9], buf);
      /*<<format.ml:1086:2>>*/ return s;
     /*<<format.ml:1087:3>>*/ }
    function flush_str_formatter(param){
     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
+     stdbuf =
+        /*<<format.ml:1091:15>>*/  /*<<format.ml:1091:15>>*/ caml_call1
+        (Stdlib_Domain[10][2], stdbuf_key),
+     str_formatter =
+        /*<<format.ml:1092:22>>*/  /*<<format.ml:1092:22>>*/ caml_call1
         (Stdlib_Domain[10][2], str_formatter_key);
      /*<<format.ml:1093:2>>*/ return flush_buffer_formatter
             (stdbuf, str_formatter);
@@ -27654,15 +28426,17 @@
              0,
              function(param){
               var
-                /*<<format.ml:1097:14>>*/ buf =
-                  /*<<format.ml:1097:14>>*/ caml_call1
+               buf =
+                  /*<<format.ml:1097:14>>*/  /*<<format.ml:1097: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);
+               output$0 =
+                  /*<<format.ml:1098:18>>*/  /*<<format.ml:1098:18>>*/ caml_call1
+                  (Stdlib_Buffer[18], buf);
               function flush$0(param){
-                /*<<format.ml:1100:37>>*/ var
+               var
                 _R_ =
-                   /*<<format.ml:1100:37>>*/ caml_call1(Stdlib_Buffer[7], buf);
+                   /*<<format.ml:1100:37>>*/  /*<<format.ml:1100:37>>*/ caml_call1
+                   (Stdlib_Buffer[7], buf);
                 /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:6>>*/ caml_call3
                 (output,
                   /*<<format.ml:1100:13>>*/ caml_call1(Stdlib_Buffer[2], buf),
@@ -27695,7 +28469,7 @@
      /*<<format.ml:1140:2>>*/ return caml_call1(Stdlib_List[10], sob[1]);
     /*<<format.ml:1140:39>>*/ }
    function flush_symbolic_output_buffer(sob){
-     /*<<format.ml:1143:14>>*/ var items = get_symbolic_output_buffer(sob);
+    var items =  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer(sob);
      /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer(sob);
      /*<<format.ml:1144:2>>*/ return items;
     /*<<format.ml:1145:7>>*/ }
@@ -27774,9 +28548,9 @@
              v);
     /*<<format.ml:1183:62>>*/ }
    function print_as(isize, w){
-     /*<<format.ml:1184:31>>*/ var
+    var
      state =
-        /*<<format.ml:1184:31>>*/ caml_call1
+        /*<<format.ml:1184:31>>*/  /*<<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>>*/ }
@@ -27897,9 +28671,9 @@
              v);
     /*<<format.ml:1206:62>>*/ }
    function get_margin(v){
-     /*<<format.ml:1207:33>>*/ var
+    var
      state =
-        /*<<format.ml:1207:33>>*/ caml_call1
+        /*<<format.ml:1207:33>>*/  /*<<format.ml:1207:33>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
     return state[6];
     /*<<format.ml:1207:62>>*/ }
@@ -27910,9 +28684,9 @@
              v);
     /*<<format.ml:1209:70>>*/ }
    function get_max_indent(v){
-     /*<<format.ml:1210:41>>*/ var
+    var
      state =
-        /*<<format.ml:1210:41>>*/ caml_call1
+        /*<<format.ml:1210:41>>*/  /*<<format.ml:1210:41>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
     return state[8];
     /*<<format.ml:1210:70>>*/ }
@@ -27949,9 +28723,9 @@
              v);
     /*<<format.ml:1219:68>>*/ }
    function get_max_boxes(v){
-     /*<<format.ml:1220:39>>*/ var
+    var
      state =
-        /*<<format.ml:1220:39>>*/ caml_call1
+        /*<<format.ml:1220:39>>*/  /*<<format.ml:1220:39>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
     return state[15];
     /*<<format.ml:1220:68>>*/ }
@@ -27968,9 +28742,9 @@
              v);
     /*<<format.ml:1223:76>>*/ }
    function get_ellipsis_text(v){
-     /*<<format.ml:1224:47>>*/ var
+    var
      state =
-        /*<<format.ml:1224:47>>*/ caml_call1
+        /*<<format.ml:1224:47>>*/  /*<<format.ml:1224:47>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
     return state[16];
     /*<<format.ml:1224:76>>*/ }
@@ -28024,9 +28798,9 @@
              v);
     /*<<format.ml:1244:49>>*/ }
    function get_print_tags(v){
-     /*<<format.ml:1246:20>>*/ var
+    var
      state =
-        /*<<format.ml:1246:20>>*/ caml_call1
+        /*<<format.ml:1246:20>>*/  /*<<format.ml:1246:20>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
     return state[22];
     /*<<format.ml:1246:49>>*/ }
@@ -28037,9 +28811,9 @@
              v);
     /*<<format.ml:1248:48>>*/ }
    function get_mark_tags(v){
-     /*<<format.ml:1250:19>>*/ var
+    var
      state =
-        /*<<format.ml:1250:19>>*/ caml_call1
+        /*<<format.ml:1250:19>>*/  /*<<format.ml:1250:19>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
     return state[23];
     /*<<format.ml:1250:48>>*/ }
@@ -28052,7 +28826,7 @@
    function pp_print_iter(opt, iter, pp_v, ppf, v){
     var
      pp_sep = opt ? opt[1] : pp_print_cut,
-      /*<<format.ml:1258:17>>*/ is_first = [0, 1];
+     is_first =  /*<<format.ml:1258:17>>*/ [0, 1];
     function pp_v$0(v){
       /*<<format.ml:1260:4>>*/ if(is_first[1])
       is_first[1] = 0;
@@ -28083,8 +28857,8 @@
    function pp_print_text(ppf, s){
     var
      len = caml_ml_string_length(s),
-      /*<<format.ml:1280:13>>*/ left = [0, 0],
-      /*<<format.ml:1281:14>>*/ right = [0, 0];
+     left =  /*<<format.ml:1280:13>>*/ [0, 0],
+     right =  /*<<format.ml:1281:14>>*/ [0, 0];
     function flush(param){
       /*<<format.ml:1283:4>>*/ pp_print_string
       (ppf,
@@ -28099,8 +28873,10 @@
       var _O_ = left[1] !== len ? 1 : 0;
       return _O_ ? flush(0) : _O_;
      }
-      /*<<format.ml:1287:10>>*/ var
-      match =  /*<<format.ml:1287:10>>*/ runtime.caml_string_get(s, right[1]);
+     var
+      match =
+         /*<<format.ml:1287:10>>*/  /*<<format.ml:1287: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);
@@ -28151,14 +28927,17 @@
    }
    function compute_tag(output, tag_acc){
     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);
+     buf =
+        /*<<format.ml:1314:12>>*/  /*<<format.ml:1314:12>>*/ caml_call1
+        (Stdlib_Buffer[1], 16),
+     ppf =  /*<<format.ml:1315:12>>*/ formatter_of_buffer(buf);
      /*<<format.ml:1316:2>>*/  /*<<format.ml:1316:2>>*/ caml_call2
      (output, ppf, tag_acc);
      /*<<format.ml:1317:2>>*/ pp_print_flush(ppf, 0);
-     /*<<format.ml:1318:12>>*/ var
-     len =  /*<<format.ml:1318:12>>*/ caml_call1(Stdlib_Buffer[7], buf);
+    var
+     len =
+        /*<<format.ml:1318:12>>*/  /*<<format.ml:1318:12>>*/ caml_call1
+        (Stdlib_Buffer[7], buf);
      /*<<format.ml:1319:2>>*/ return 2 <= len
             ?  /*<<format.ml:1320:7>>*/ caml_call3
               (Stdlib_Buffer[4], buf, 1, len - 2 | 0)
@@ -28218,9 +28997,9 @@
           var acc$1 = match[1];
            /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
           var
-            /*<<format.ml:1366:43>>*/ _E_ = compute_tag(output_acc, acc$1),
-            /*<<format.ml:1366:24>>*/ match$0 =
-              /*<<format.ml:1366:24>>*/ caml_call1
+           _E_ =  /*<<format.ml:1366:43>>*/ compute_tag(output_acc, acc$1),
+           match$0 =
+              /*<<format.ml:1366:24>>*/  /*<<format.ml:1366:24>>*/ caml_call1
               (CamlinternalFormat[20], _E_),
            bty = match$0[2],
            indent = match$0[1];
@@ -28325,9 +29104,9 @@
           var acc$1 = match[1];
            /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
           var
-            /*<<format.ml:1401:43>>*/ _v_ = compute_tag(strput_acc, acc$1),
-            /*<<format.ml:1401:24>>*/ match$0 =
-              /*<<format.ml:1401:24>>*/ caml_call1
+           _v_ =  /*<<format.ml:1401:43>>*/ compute_tag(strput_acc, acc$1),
+           match$0 =
+              /*<<format.ml:1401:24>>*/  /*<<format.ml:1401:24>>*/ caml_call1
               (CamlinternalFormat[20], _v_),
            bty = match$0[2],
            indent = match$0[1];
@@ -28496,8 +29275,8 @@
    function ksprintf(k, param){
     var
      fmt = param[1],
-      /*<<format.ml:1449:10>>*/ b = pp_make_buffer(0),
-      /*<<format.ml:1450:12>>*/ ppf = formatter_of_buffer(b);
+     b =  /*<<format.ml:1449:10>>*/ pp_make_buffer(0),
+     ppf =  /*<<format.ml:1450:12>>*/ 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
@@ -28512,8 +29291,8 @@
    function kasprintf(k, param){
     var
      fmt = param[1],
-      /*<<format.ml:1460:10>>*/ b = pp_make_buffer(0),
-      /*<<format.ml:1461:12>>*/ ppf = formatter_of_buffer(b);
+     b =  /*<<format.ml:1460:10>>*/ pp_make_buffer(0),
+     ppf =  /*<<format.ml:1461:12>>*/ 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
@@ -28542,8 +29321,9 @@
      function(param){
        /*<<format.ml:1479:2>>*/ flush_standard_formatters(0);
       var
-        /*<<format.ml:1480:11>>*/ fs =
-         pp_get_formatter_out_functions(std_formatter, 0),
+       fs =
+          /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
+          (std_formatter, 0),
        _h_ = Stdlib[39];
        /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
        (std_formatter,
@@ -28558,8 +29338,9 @@
          fs[4],
          fs[5]]);
       var
-        /*<<format.ml:1485:11>>*/ fs$0 =
-         pp_get_formatter_out_functions(err_formatter, 0),
+       fs$0 =
+          /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
+          (err_formatter, 0),
        _i_ = Stdlib[40];
        /*<<format.ml:1487:4>>*/ return pp_set_formatter_out_functions
               (err_formatter,
@@ -28739,22 +29520,22 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst$5 = '"',
-     /*<<?>>*/ cst$6 = "-",
-     /*<<?>>*/ cst_character = "character ",
-     /*<<?>>*/ cst_scanf_ml = "scanf.ml",
-     /*<<?>>*/ cst_scanf_bad_conversion$3 = 'scanf: bad conversion "%*"',
-     /*<<?>>*/ cst_scanning_of = "scanning of ",
-     /*<<?>>*/ caml_bytes_get = runtime.caml_bytes_get,
-     /*<<?>>*/ caml_int_of_string = runtime.caml_int_of_string,
-     /*<<?>>*/ 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_trampoline = runtime.caml_trampoline,
-     /*<<?>>*/ caml_trampoline_return = runtime.caml_trampoline_return,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst$5 =  /*<<?>>*/ '"',
+    cst$6 =  /*<<?>>*/ "-",
+    cst_character =  /*<<?>>*/ "character ",
+    cst_scanf_ml =  /*<<?>>*/ "scanf.ml",
+    cst_scanf_bad_conversion$3 =  /*<<?>>*/ 'scanf: bad conversion "%*"',
+    cst_scanning_of =  /*<<?>>*/ "scanning of ",
+    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
+    caml_int_of_string =  /*<<?>>*/ runtime.caml_int_of_string,
+    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_trampoline =  /*<<?>>*/ runtime.caml_trampoline,
+    caml_trampoline_return =  /*<<?>>*/ runtime.caml_trampoline_return,
+    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)
@@ -28806,8 +29587,9 @@
     cst_unnamed_Stdlib_input_chann = "unnamed Stdlib input channel";
    function next_char(ib){
      /*<<scanf.ml:165:4>>*/ try{
-      /*<<scanf.ml:166:14>>*/ var
-      c =  /*<<scanf.ml:166:14>>*/ caml_call1(ib[7], 0);
+     var
+      c =
+         /*<<scanf.ml:166:14>>*/  /*<<scanf.ml:166:14>>*/ caml_call1(ib[7], 0);
      ib[2] = c;
      ib[3] = 1;
      ib[4] = ib[4] + 1 | 0;
@@ -28827,7 +29609,7 @@
      /*<<scanf.ml:181:4>>*/ return ib[3] ? ib[2] : next_char(ib);
     /*<<scanf.ml:183:21>>*/ }
    function checked_peek_char(ib){
-     /*<<scanf.ml:192:12>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:192:12>>*/ peek_char(ib);
     if(ib[1])
       /*<<scanf.ml:193:22>>*/ throw  /*<<scanf.ml:193:22>>*/ caml_maybe_attach_backtrace
             (Stdlib[12], 1);
@@ -28859,8 +29641,9 @@
    function token_string(ib){
     var
      token_buffer = ib[8],
-      /*<<scanf.ml:228:14>>*/ tok =
-        /*<<scanf.ml:228:14>>*/ caml_call1(Stdlib_Buffer[2], token_buffer);
+     tok =
+        /*<<scanf.ml:228:14>>*/  /*<<scanf.ml:228:14>>*/ caml_call1
+        (Stdlib_Buffer[2], token_buffer);
      /*<<scanf.ml:229:4>>*/  /*<<scanf.ml:229:4>>*/ caml_call1
      (Stdlib_Buffer[8], token_buffer);
     ib[6] = ib[6] + 1 | 0;
@@ -28892,15 +29675,18 @@
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
     var
-      /*<<scanf.ml:264:12>>*/ i = [0, 0],
-      /*<<scanf.ml:265:4>>*/ len =
-        /*<<scanf.ml:265:4>>*/ caml_ml_string_length(s);
+     i =  /*<<scanf.ml:264:12>>*/ [0, 0],
+     len =
+        /*<<scanf.ml:265:4>>*/  /*<<scanf.ml:265:4>>*/ caml_ml_string_length
+        (s);
     function next(param){
       /*<<scanf.ml:267:6>>*/ if(len <= i[1])
        /*<<scanf.ml:267:24>>*/ throw  /*<<scanf.ml:267:24>>*/ caml_maybe_attach_backtrace
              (Stdlib[12], 1);
-      /*<<scanf.ml:268:14>>*/ var
-      c =  /*<<scanf.ml:268:14>>*/ caml_string_get(s, i[1]);
+     var
+      c =
+         /*<<scanf.ml:268:14>>*/  /*<<scanf.ml:268:14>>*/ caml_string_get
+         (s, i[1]);
       /*<<scanf.ml:269:6>>*/ i[1]++;
       /*<<scanf.ml:270:6>>*/ return c;
      /*<<scanf.ml:270:7>>*/ }
@@ -28908,7 +29694,7 @@
     /*<<scanf.ml:271:27>>*/ }
    var _a_ = 0;
    function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
-    /*<<scanf.ml:274:22>>*/ var len = 1024;
+   var len =  /*<<scanf.ml:274:22>>*/ 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/  /*<<scanf.ml:320:29>>*/ caml_call1
      (Stdlib[93], ic);
@@ -28921,15 +29707,18 @@
     /*<<scanf.ml:324:47>>*/ }
    function from_ic(scan_close_ic, iname, ic){
     var
-      /*<<scanf.ml:328:14>>*/ buf =
-        /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes(1024),
-      /*<<scanf.ml:329:12>>*/ i = [0, 0],
-      /*<<scanf.ml:330:14>>*/ lim = [0, 0],
-      /*<<scanf.ml:331:14>>*/ eof = [0, 0];
+     buf =
+        /*<<scanf.ml:328:14>>*/  /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes
+        (1024),
+     i =  /*<<scanf.ml:329:12>>*/ [0, 0],
+     lim =  /*<<scanf.ml:330:14>>*/ [0, 0],
+     eof =  /*<<scanf.ml:331:14>>*/ [0, 0];
     function next(param){
       /*<<scanf.ml:333:6>>*/ if(i[1] < lim[1]){
-       /*<<scanf.ml:333:38>>*/ var
-       c =  /*<<scanf.ml:333:38>>*/ caml_bytes_get(buf, i[1]);
+      var
+       c =
+          /*<<scanf.ml:333:38>>*/  /*<<scanf.ml:333:38>>*/ caml_bytes_get
+          (buf, i[1]);
        /*<<scanf.ml:333:58>>*/ i[1]++;
        /*<<scanf.ml:333:66>>*/ return c;
      }
@@ -28943,18 +29732,22 @@
      /*<<scanf.ml:340:9>>*/ }
      /*<<scanf.ml:341:4>>*/ return create(iname, next);
     /*<<scanf.ml:341:21>>*/ }
-    /*<<scanf.ml:363:4>>*/ var
-    stdin = from_ic(scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
+   var
+    stdin =
+       /*<<scanf.ml:363:4>>*/ from_ic
+       (scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
    function open_in_file(open_in, fname){
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
       /*<<scanf.ml:363:4>>*/ return stdin;
-     /*<<scanf.ml:370:15>>*/ var
-     ic =  /*<<scanf.ml:370:15>>*/ caml_call1(open_in, fname);
+    var
+     ic =
+        /*<<scanf.ml:370:15>>*/  /*<<scanf.ml:370:15>>*/ caml_call1
+        (open_in, fname);
     return from_ic(scan_close_at_end, [1, fname, ic], ic);
     /*<<scanf.ml:371:53>>*/ }
    var _b_ = Stdlib[79];
    function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
-    /*<<scanf.ml:374:16>>*/ var _c_ = Stdlib[80];
+   var _c_ =  /*<<scanf.ml:374:16>>*/ Stdlib[80];
    function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
    function from_channel(ic){
      /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic);
@@ -28972,8 +29765,10 @@
             (Stdlib[93], ic$0);
     /*<<scanf.ml:389:39>>*/ }
    var
-     /*<<scanf.ml:403:0>>*/ Scan_failure =
-      [248, "Stdlib.Scanf.Scan_failure", runtime.caml_fresh_oo_id(0)],
+    Scan_failure =
+       /*<<scanf.ml:403:0>>*/ [248,
+       "Stdlib.Scanf.Scan_failure",
+       runtime.caml_fresh_oo_id(0)],
     _d_ =
       [0,
        [11, "illegal escape character ", [1, 0]],
@@ -29080,7 +29875,7 @@
     /*<<scanf.ml:440:41>>*/ }
    function check_char(ib, c$0){
      /*<<scanf.ml:468:2>>*/ if(10 === c$0){
-      /*<<scanf.ml:479:11>>*/ var ci = checked_peek_char(ib);
+     var ci =  /*<<scanf.ml:479:11>>*/ checked_peek_char(ib);
       /*<<scanf.ml:480:2>>*/ return 10 === ci
              ? invalidate_current_char(ib)
              : 13
@@ -29091,10 +29886,10 @@
     if(32 !== c$0)  /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0);
      /*<<scanf.ml:444:2>>*/ for(;;){
      var
-       /*<<scanf.ml:444:10>>*/ c = peek_char(ib),
-       /*<<scanf.ml:445:9>>*/ _aS_ = 1 - ib[1];
+      c =  /*<<scanf.ml:444:10>>*/ peek_char(ib),
+      _aS_ =  /*<<scanf.ml:445:9>>*/ 1 - ib[1];
      if(! _aS_)  /*<<scanf.ml:445:9>>*/ return _aS_;
-      /*<<scanf.ml:445:32>>*/ var _aT_ = c - 9 | 0;
+     var _aT_ =  /*<<scanf.ml:445:32>>*/ c - 9 | 0;
      a:
      {
       if(4 < _aT_ >>> 0){
@@ -29107,7 +29902,7 @@
     }
     /*<<scanf.ml:471:29>>*/ }
    function check_this_char(ib, c){
-     /*<<scanf.ml:474:11>>*/ var ci = checked_peek_char(ib);
+    var ci =  /*<<scanf.ml:474:11>>*/ checked_peek_char(ib);
     return ci === c ? invalidate_current_char(ib) : character_mismatch(c, ci);
     /*<<scanf.ml:476:25>>*/ }
    function token_char(ib){
@@ -29115,7 +29910,7 @@
             (token_string(ib), 0);
     /*<<scanf.ml:488:43>>*/ }
    function token_bool(ib){
-     /*<<scanf.ml:493:8>>*/ var s = token_string(ib);
+    var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
     return s !== "false"
             ? s
               !== "true"
@@ -29125,7 +29920,7 @@
             : 0;
     /*<<scanf.ml:496:60>>*/ }
    function integer_conversion_of_char(param){
-     /*<<scanf.ml:509:33>>*/ var switcher = param - 88 | 0;
+    var switcher =  /*<<scanf.ml:509:33>>*/ param - 88 | 0;
     if(32 >= switcher >>> 0)
      switch(switcher){
        case 10:
@@ -29149,28 +29944,30 @@
      /*<<scanf.ml:523:2>>*/ switch(conv){
       case 0:
        var
-         /*<<scanf.ml:529:29>>*/ _aO_ = token_string(ib),
+        _aO_ =  /*<<scanf.ml:529:29>>*/ token_string(ib),
         tok =  /*<<scanf.ml:529:22>>*/ caml_call2(Stdlib[28], cst_0b, _aO_);
        break;
       case 3:
        var
-         /*<<scanf.ml:527:29>>*/ _aP_ = token_string(ib),
+        _aP_ =  /*<<scanf.ml:527:29>>*/ token_string(ib),
         tok =  /*<<scanf.ml:527:22>>*/ caml_call2(Stdlib[28], cst_0o, _aP_);
        break;
       case 4:
        var
-         /*<<scanf.ml:526:29>>*/ _aQ_ = token_string(ib),
+        _aQ_ =  /*<<scanf.ml:526:29>>*/ token_string(ib),
         tok =  /*<<scanf.ml:526:22>>*/ caml_call2(Stdlib[28], cst_0u, _aQ_);
        break;
       case 5:
        var
-         /*<<scanf.ml:528:29>>*/ _aR_ = token_string(ib),
+        _aR_ =  /*<<scanf.ml:528:29>>*/ token_string(ib),
         tok =  /*<<scanf.ml:528:22>>*/ caml_call2(Stdlib[28], cst_0x, _aR_);
        break;
       default: var tok = token_string(ib);
     }
-     /*<<scanf.ml:530:2>>*/ var
-     l =  /*<<scanf.ml:530:2>>*/ caml_ml_string_length(tok);
+    var
+     l =
+        /*<<scanf.ml:530:2>>*/  /*<<scanf.ml:530:2>>*/ caml_ml_string_length
+        (tok);
      /*<<scanf.ml:531:2>>*/ if
      (0 !== l && 43 ===  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0))
       /*<<scanf.ml:531:43>>*/ return  /*<<scanf.ml:531:43>>*/ caml_call3
@@ -29185,18 +29982,18 @@
     var width$0 = width;
      /*<<scanf.ml:575:2>>*/ for(;;){
      if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
-      /*<<scanf.ml:576:10>>*/ var c = peek_char(ib);
+     var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
       /*<<scanf.ml:577:5>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0;
      if(58 <= c){
       if(95 === c){
-        /*<<scanf.ml:583:16>>*/ var width$1 = ignore_char(width$0, ib);
+       var width$1 =  /*<<scanf.ml:583:16>>*/ ignore_char(width$0, ib);
        width$0 = width$1;
        continue;
       }
      }
      else if(48 <= c){
-       /*<<scanf.ml:580:16>>*/ var width$2 = store_char(width$0, ib, c);
+      var width$2 =  /*<<scanf.ml:580:16>>*/ store_char(width$0, ib, c);
       width$0 = width$2;
       continue;
      }
@@ -29206,37 +30003,37 @@
    function scan_decimal_digit_plus(width, ib){
      /*<<scanf.ml:589:2>>*/ if(0 === width)
       /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits);
-     /*<<scanf.ml:590:10>>*/ var c = checked_peek_char(ib);
+    var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
     if(9 < c - 48 >>> 0)
       /*<<scanf.ml:596:14>>*/ return bad_input
              ( /*<<scanf.ml:596:14>>*/ caml_call2(Stdlib_Printf[4], _j_, c));
-     /*<<scanf.ml:593:16>>*/ var width$0 = store_char(width, ib, c);
+    var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
      /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib);
     /*<<scanf.ml:596:70>>*/ }
    function scan_digit_plus(basis, digitp, width$2, ib){
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
       /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits);
-     /*<<scanf.ml:621:10>>*/ var c$0 = checked_peek_char(ib);
+    var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
      /*<<scanf.ml:622:5>>*/ if
      (!  /*<<scanf.ml:622:5>>*/ caml_call1(digitp, c$0))
       /*<<scanf.ml:626:14>>*/ return bad_input
              ( /*<<scanf.ml:626:14>>*/ caml_call3
                (Stdlib_Printf[4], _k_, c$0, basis));
     var
-      /*<<scanf.ml:623:16>>*/ width$3 = store_char(width$2, ib, c$0),
+     width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
      if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
-      /*<<scanf.ml:604:12>>*/ var c = peek_char(ib);
+     var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
       /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
       /*<<scanf.ml:607:13>>*/ if
       ( /*<<scanf.ml:607:13>>*/ caml_call1(digitp, c)){
-       /*<<scanf.ml:608:18>>*/ var width$0 = store_char(width, ib, c);
+      var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
       width = width$0;
      }
      else{
       if(95 !== c)  /*<<scanf.ml:613:11>>*/ return width;
-       /*<<scanf.ml:611:18>>*/ var width$1 = ignore_char(width, ib);
+      var width$1 =  /*<<scanf.ml:611:18>>*/ ignore_char(width, ib);
       width = width$1;
      }
     }
@@ -29248,7 +30045,7 @@
      /*<<scanf.ml:636:21>>*/ return 7 < param - 48 >>> 0 ? 0 : 1;
     /*<<scanf.ml:638:14>>*/ }
    function is_hexa_digit(param){
-     /*<<scanf.ml:643:20>>*/ var _aN_ = param - 48 | 0;
+    var _aN_ =  /*<<scanf.ml:643:20>>*/ param - 48 | 0;
     a:
     {
      if(22 < _aN_ >>> 0){
@@ -29261,8 +30058,8 @@
     /*<<scanf.ml:645:14>>*/ }
    function scan_sign(width, ib){
     var
-      /*<<scanf.ml:654:10>>*/ c = checked_peek_char(ib),
-      /*<<scanf.ml:654:10>>*/ switcher = c - 43 | 0;
+     c =  /*<<scanf.ml:654:10>>*/ checked_peek_char(ib),
+     switcher =  /*<<scanf.ml:654:10>>*/ c - 43 | 0;
     if(2 >= switcher >>> 0)
      switch(switcher){
        case 0:
@@ -29273,7 +30070,7 @@
      /*<<scanf.ml:658:9>>*/ return width;
     /*<<scanf.ml:658:14>>*/ }
    function scan_optionally_signed_decimal(width, ib){
-     /*<<scanf.ml:662:14>>*/ var width$0 = scan_sign(width, ib);
+    var width$0 =  /*<<scanf.ml:662:14>>*/ scan_sign(width, ib);
      /*<<scanf.ml:663:2>>*/ return scan_decimal_digit_plus(width$0, ib);
     /*<<scanf.ml:663:36>>*/ }
    function scan_int_conversion(conv, width$1, ib){
@@ -29285,14 +30082,14 @@
                (width$1, ib);
       case 2:
        var
-         /*<<scanf.ml:686:14>>*/ width$0 = scan_sign(width$1, ib),
-         /*<<scanf.ml:671:8>>*/ c = checked_peek_char(ib);
+        width$0 =  /*<<scanf.ml:686:14>>*/ scan_sign(width$1, ib),
+        c =  /*<<scanf.ml:671:8>>*/ checked_peek_char(ib);
        if(48 !== c)
          /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib);
-        /*<<scanf.ml:673:16>>*/ var width = store_char(width$0, ib, c);
+       var width =  /*<<scanf.ml:673:16>>*/ store_char(width$0, ib, c);
         /*<<scanf.ml:674:4>>*/ if(0 === width)
          /*<<scanf.ml:674:22>>*/ return width;
-        /*<<scanf.ml:675:12>>*/ var c$0 = peek_char(ib);
+       var c$0 =  /*<<scanf.ml:675:12>>*/ peek_char(ib);
         /*<<scanf.ml:676:7>>*/ if(ib[1])
          /*<<scanf.ml:676:28>>*/ return width;
        a:
@@ -29330,7 +30127,7 @@
    function scan_fractional_part(width, ib){
      /*<<scanf.ml:704:2>>*/ if(0 === width)
       /*<<scanf.ml:704:20>>*/ return width;
-     /*<<scanf.ml:705:10>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:705:10>>*/ peek_char(ib);
      /*<<scanf.ml:706:5>>*/ return ib[1]
             ? width
             : 9
@@ -29341,7 +30138,7 @@
    function scan_exponent_part(width, ib){
      /*<<scanf.ml:715:2>>*/ if(0 === width)
       /*<<scanf.ml:715:20>>*/ return width;
-     /*<<scanf.ml:716:10>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:716:10>>*/ peek_char(ib);
      /*<<scanf.ml:717:5>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
     if(69 !== c && 101 !== c)  /*<<scanf.ml:721:9>>*/ return width;
      /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
@@ -29349,11 +30146,11 @@
     /*<<scanf.ml:721:14>>*/ }
    function scan_float(width$1, precision, ib){
     var
-      /*<<scanf.ml:729:14>>*/ width = scan_sign(width$1, ib),
-      /*<<scanf.ml:730:2>>*/ width$0 = scan_decimal_digit_star(width, ib);
+     width =  /*<<scanf.ml:729:14>>*/ scan_sign(width$1, ib),
+     width$0 =  /*<<scanf.ml:730:2>>*/ scan_decimal_digit_star(width, ib);
      /*<<scanf.ml:766:2>>*/ if(0 === width$0)
       /*<<scanf.ml:766:20>>*/ return [0, width$0, precision];
-     /*<<scanf.ml:767:10>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:767:10>>*/ peek_char(ib);
      /*<<scanf.ml:768:5>>*/ if(ib[1])
       /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
     if(46 !== c)
@@ -29361,9 +30158,10 @@
              scan_exponent_part(width$0, ib),
              precision];
     var
-      /*<<scanf.ml:771:16>>*/ width$2 = store_char(width$0, ib, c),
-      /*<<scanf.ml:772:20>>*/ precision$0 =
-        /*<<scanf.ml:772:20>>*/ caml_call2(Stdlib_Int[10], width$2, precision),
+     width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
+     precision$0 =
+        /*<<scanf.ml:772:20>>*/  /*<<scanf.ml:772:20>>*/ caml_call2
+        (Stdlib_Int[10], width$2, precision),
      width$3 =
        width$2 - (precision$0 - scan_fractional_part(precision$0, ib) | 0) | 0;
      /*<<scanf.ml:774:4>>*/ return [0,
@@ -29377,24 +30175,26 @@
              : caml_call1(Stdlib[29], (c - 65 | 0) + 97 | 0);
      /*<<scanf.ml:784:12>>*/ }
     var
-      /*<<scanf.ml:785:2>>*/ len =
-        /*<<scanf.ml:785:2>>*/ caml_ml_string_length(str),
-      /*<<scanf.ml:786:14>>*/ width$0 = [0, width],
-      /*<<scanf.ml:787:2>>*/ _aK_ = len - 1 | 0,
-      /*<<scanf.ml:786:14>>*/ _aJ_ = 0;
+     len =
+        /*<<scanf.ml:785:2>>*/  /*<<scanf.ml:785:2>>*/ caml_ml_string_length
+        (str),
+     width$0 =  /*<<scanf.ml:786:14>>*/ [0, width],
+     _aK_ =  /*<<scanf.ml:787:2>>*/ len - 1 | 0,
+     _aJ_ =  /*<<scanf.ml:786:14>>*/ 0;
     if(_aK_ >= 0){
      var i = _aJ_;
      for(;;){
       var
-        /*<<scanf.ml:788:12>>*/ c = peek_char(ib),
-        /*<<scanf.ml:789:22>>*/ _aL_ =
-         lowercase( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
+       c =  /*<<scanf.ml:788:12>>*/ peek_char(ib),
+       _aL_ =
+          /*<<scanf.ml:789:22>>*/ lowercase
+          ( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
       if(lowercase(c) !== _aL_)
         /*<<scanf.ml:789:45>>*/  /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
       if(0 === width$0[1])
         /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
       width$0[1] = store_char(width$0[1], ib, c);
-       /*<<scanf.ml:787:2>>*/ var _aM_ = i + 1 | 0;
+      var _aM_ =  /*<<scanf.ml:787:2>>*/ i + 1 | 0;
       if(_aK_ === i) break;
       i = _aM_;
      }
@@ -29406,20 +30206,20 @@
      /*<<scanf.ml:797:18>>*/ if(_ax_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
     var
-      /*<<scanf.ml:798:14>>*/ width$0 = scan_sign(width, ib),
+     width$0 =  /*<<scanf.ml:798:14>>*/ scan_sign(width, ib),
      _ay_ = 0 === width$0 ? 1 : 0,
      _az_ = _ay_ || end_of_input(ib);
      /*<<scanf.ml:799:18>>*/ if(_az_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-     /*<<scanf.ml:800:8>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:800:8>>*/ peek_char(ib);
     a:
     {
      if(78 <= c){
-       /*<<scanf.ml:800:8>>*/ var switcher = c - 79 | 0;
+      var switcher =  /*<<scanf.ml:800:8>>*/ c - 79 | 0;
       if(30 < switcher >>> 0){
        if(32 <= switcher) break a;
        var
-         /*<<scanf.ml:830:16>>*/ width$1 = store_char(width$0, ib, c),
+        width$1 =  /*<<scanf.ml:830:16>>*/ store_char(width$0, ib, c),
         _aA_ = 0 === width$1 ? 1 : 0,
         _aB_ = _aA_ || end_of_input(ib);
         /*<<scanf.ml:831:20>>*/ if(_aB_)
@@ -29432,16 +30232,17 @@
      else{
       if(48 === c){
        var
-         /*<<scanf.ml:802:16>>*/ width$3 = store_char(width$0, ib, c),
+        width$3 =  /*<<scanf.ml:802:16>>*/ store_char(width$0, ib, c),
         _aE_ = 0 === width$3 ? 1 : 0,
         _aF_ = _aE_ || end_of_input(ib);
         /*<<scanf.ml:803:20>>*/ if(_aF_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-        /*<<scanf.ml:804:16>>*/ var
+       var
         width$4 =
-          check_case_insensitive_string(width$3, ib, bad_hex_float, cst_x);
+           /*<<scanf.ml:804:16>>*/ check_case_insensitive_string
+           (width$3, ib, bad_hex_float, cst_x);
         /*<<scanf.ml:805:4>>*/ if(0 !== width$4 && ! end_of_input(ib)){
-         /*<<scanf.ml:806:24>>*/ var _aG_ = peek_char(ib) - 46 | 0;
+        var _aG_ =  /*<<scanf.ml:806:24>>*/ peek_char(ib) - 46 | 0;
         b:
         {
          c:
@@ -29458,19 +30259,19 @@
          var width$5 = width$4;
         }
          /*<<scanf.ml:809:6>>*/ if(0 !== width$5 && ! end_of_input(ib)){
-          /*<<scanf.ml:810:26>>*/ var c$0 = peek_char(ib);
+         var c$0 =  /*<<scanf.ml:810:26>>*/ peek_char(ib);
          if(46 === c$0){
-           /*<<scanf.ml:812:24>>*/ var width$6 = store_char(width$5, ib, c$0);
+          var width$6 =  /*<<scanf.ml:812:24>>*/ store_char(width$5, ib, c$0);
           b:
           {
             /*<<scanf.ml:813:12>>*/ if(0 !== width$6 && ! end_of_input(ib)){
-             /*<<scanf.ml:814:20>>*/ var match = peek_char(ib);
+            var match =  /*<<scanf.ml:814:20>>*/ peek_char(ib);
             c:
             {
              if(80 !== match && 112 !== match){
               var
-                /*<<scanf.ml:817:32>>*/ precision$0 =
-                  /*<<scanf.ml:817:32>>*/ caml_call2
+               precision$0 =
+                  /*<<scanf.ml:817:32>>*/  /*<<scanf.ml:817:32>>*/ caml_call2
                   (Stdlib_Int[10], width$6, precision),
                width$10 =
                  width$6
@@ -29495,11 +30296,11 @@
          else
           var width$8 = width$5;
           /*<<scanf.ml:821:8>>*/ if(0 !== width$8 && ! end_of_input(ib)){
-           /*<<scanf.ml:822:16>>*/ var c$1 = peek_char(ib);
+          var c$1 =  /*<<scanf.ml:822:16>>*/ peek_char(ib);
           if(80 !== c$1 && 112 !== c$1)
             /*<<scanf.ml:827:17>>*/ return width$8;
           var
-            /*<<scanf.ml:824:24>>*/ width$9 = store_char(width$8, ib, c$1),
+           width$9 =  /*<<scanf.ml:824:24>>*/ store_char(width$8, ib, c$1),
            _aH_ = 0 === width$9 ? 1 : 0,
            _aI_ = _aH_ || end_of_input(ib);
            /*<<scanf.ml:825:28>>*/ if(_aI_)
@@ -29516,7 +30317,7 @@
       if(73 !== c) break a;
      }
      var
-       /*<<scanf.ml:834:16>>*/ width$2 = store_char(width$0, ib, c),
+      width$2 =  /*<<scanf.ml:834:16>>*/ store_char(width$0, ib, c),
       _aC_ = 0 === width$2 ? 1 : 0,
       _aD_ = _aC_ || end_of_input(ib);
       /*<<scanf.ml:835:20>>*/ if(_aD_)
@@ -29531,23 +30332,23 @@
      /*<<scanf.ml:841:18>>*/ if(_at_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
-      /*<<scanf.ml:842:14>>*/ width$0 = scan_decimal_digit_star(width, ib),
+     width$0 =  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star(width, ib),
      _au_ = 0 === width$0 ? 1 : 0,
      _av_ = _au_ || end_of_input(ib);
      /*<<scanf.ml:843:18>>*/ if(_av_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
-      /*<<scanf.ml:844:10>>*/ c = peek_char(ib),
-      /*<<scanf.ml:844:10>>*/ switcher = c - 69 | 0;
+     c =  /*<<scanf.ml:844:10>>*/ peek_char(ib),
+     switcher =  /*<<scanf.ml:844:10>>*/ c - 69 | 0;
     if(32 < switcher >>> 0){
      if(-23 === switcher){
       var
-        /*<<scanf.ml:847:16>>*/ width$1 = store_char(width$0, ib, c),
-        /*<<scanf.ml:850:20>>*/ precision$0 =
-          /*<<scanf.ml:850:20>>*/ caml_call2
+       width$1 =  /*<<scanf.ml:847:16>>*/ store_char(width$0, ib, c),
+       precision$0 =
+          /*<<scanf.ml:850:20>>*/  /*<<scanf.ml:850:20>>*/ caml_call2
           (Stdlib_Int[10], width$1, precision),
-        /*<<scanf.ml:853:26>>*/ width_precision =
-         scan_fractional_part(precision$0, ib),
+       width_precision =
+          /*<<scanf.ml:853:26>>*/ scan_fractional_part(precision$0, ib),
        frac_width = precision$0 - width_precision | 0,
        width$2 = width$1 - frac_width | 0;
        /*<<scanf.ml:859:4>>*/ return scan_exponent_part(width$2, ib);
@@ -29562,16 +30363,16 @@
      /*<<scanf.ml:866:18>>*/ if(_af_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
-      /*<<scanf.ml:867:14>>*/ width$0 = scan_sign(width, ib),
+     width$0 =  /*<<scanf.ml:867:14>>*/ scan_sign(width, ib),
      _ag_ = 0 === width$0 ? 1 : 0,
      _ah_ = _ag_ || end_of_input(ib);
      /*<<scanf.ml:868:18>>*/ if(_ah_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-     /*<<scanf.ml:869:8>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:869:8>>*/ peek_char(ib);
     if(49 <= c){
      if(58 > c){
       var
-        /*<<scanf.ml:903:16>>*/ width$1 = store_char(width$0, ib, c),
+       width$1 =  /*<<scanf.ml:903:16>>*/ store_char(width$0, ib, c),
        _ai_ = 0 === width$1 ? 1 : 0,
        _aj_ = _ai_ || end_of_input(ib);
        /*<<scanf.ml:904:20>>*/ if(_aj_)
@@ -29582,17 +30383,17 @@
     }
     else if(48 <= c){
      var
-       /*<<scanf.ml:871:16>>*/ width$2 = store_char(width$0, ib, c),
+      width$2 =  /*<<scanf.ml:871:16>>*/ store_char(width$0, ib, c),
       _ak_ = 0 === width$2 ? 1 : 0,
       _al_ = _ak_ || end_of_input(ib);
       /*<<scanf.ml:872:20>>*/ if(_al_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-      /*<<scanf.ml:873:10>>*/ var c$0 = peek_char(ib);
+     var c$0 =  /*<<scanf.ml:873:10>>*/ peek_char(ib);
      if(88 !== c$0 && 120 !== c$0)
        /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
               (width$2, precision, ib);
      var
-       /*<<scanf.ml:875:18>>*/ width$3 = store_char(width$2, ib, c$0),
+      width$3 =  /*<<scanf.ml:875:18>>*/ store_char(width$2, ib, c$0),
       _am_ = 0 === width$3 ? 1 : 0,
       _an_ = _am_ || end_of_input(ib);
       /*<<scanf.ml:876:22>>*/ if(_an_)
@@ -29604,25 +30405,25 @@
       /*<<scanf.ml:878:22>>*/ if(_ap_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
-       /*<<scanf.ml:879:24>>*/ c$1 = peek_char(ib),
-       /*<<scanf.ml:879:24>>*/ switcher = c$1 - 80 | 0;
+      c$1 =  /*<<scanf.ml:879:24>>*/ peek_char(ib),
+      switcher =  /*<<scanf.ml:879:24>>*/ c$1 - 80 | 0;
      a:
      {
       b:
       {
        if(32 < switcher >>> 0){
         if(-34 === switcher){
-          /*<<scanf.ml:881:22>>*/ var width$4 = store_char(width$10, ib, c$1);
+         var width$4 =  /*<<scanf.ml:881:22>>*/ store_char(width$10, ib, c$1);
          c:
          {
            /*<<scanf.ml:882:10>>*/ if(0 !== width$4 && ! end_of_input(ib)){
-            /*<<scanf.ml:883:18>>*/ var match = peek_char(ib);
+           var match =  /*<<scanf.ml:883:18>>*/ peek_char(ib);
            d:
            {
             if(80 !== match && 112 !== match){
              var
-               /*<<scanf.ml:886:30>>*/ precision$0 =
-                 /*<<scanf.ml:886:30>>*/ caml_call2
+              precision$0 =
+                 /*<<scanf.ml:886:30>>*/  /*<<scanf.ml:886:30>>*/ caml_call2
                  (Stdlib_Int[10], width$4, precision),
               width$9 =
                 width$4
@@ -29653,10 +30454,10 @@
       var width$7 = width$6;
      }
       /*<<scanf.ml:891:6>>*/ if(0 !== width$7 && ! end_of_input(ib)){
-       /*<<scanf.ml:892:14>>*/ var c$2 = peek_char(ib);
+      var c$2 =  /*<<scanf.ml:892:14>>*/ peek_char(ib);
       if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$7;
       var
-        /*<<scanf.ml:894:22>>*/ width$8 = store_char(width$7, ib, c$2),
+       width$8 =  /*<<scanf.ml:894:22>>*/ store_char(width$7, ib, c$2),
        _aq_ = 0 === width$8 ? 1 : 0,
        _ar_ = _aq_ || end_of_input(ib);
        /*<<scanf.ml:895:26>>*/ if(_ar_)
@@ -29672,18 +30473,18 @@
     var width$0 = width;
      /*<<scanf.ml:921:4>>*/ for(;;){
      if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
-      /*<<scanf.ml:922:12>>*/ var c = peek_char(ib);
+     var c =  /*<<scanf.ml:922:12>>*/ peek_char(ib);
       /*<<scanf.ml:923:7>>*/ if(ib[1])
        /*<<scanf.ml:923:28>>*/ return width$0;
      if(! stp){
-       /*<<scanf.ml:928:8>>*/ var _ad_ = c - 9 | 0;
+      var _ad_ =  /*<<scanf.ml:928:8>>*/ c - 9 | 0;
       a:
       {
        if(4 < _ad_ >>> 0){
         if(23 === _ad_) break a;
        }
        else if(1 < _ad_ - 2 >>> 0) break a;
-        /*<<scanf.ml:930:20>>*/ var width$2 = store_char(width$0, ib, c);
+       var width$2 =  /*<<scanf.ml:930:20>>*/ store_char(width$0, ib, c);
        width$0 = width$2;
        continue;
       }
@@ -29694,7 +30495,7 @@
        /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
        /*<<scanf.ml:237:4>>*/ return width$0;
      }
-      /*<<scanf.ml:926:23>>*/ var width$1 = store_char(width$0, ib, c);
+     var width$1 =  /*<<scanf.ml:926:23>>*/ store_char(width$0, ib, c);
      width$0 = width$1;
     }
     /*<<scanf.ml:931:12>>*/ }
@@ -29706,7 +30507,7 @@
    function check_next_char(message, width, ib){
      /*<<scanf.ml:995:2>>*/ if(0 === width)
       /*<<scanf.ml:995:20>>*/ return bad_token_length(message);
-     /*<<scanf.ml:996:10>>*/ var c = peek_char(ib);
+    var c =  /*<<scanf.ml:996:10>>*/ peek_char(ib);
      /*<<scanf.ml:997:5>>*/ return ib[1]
             ? bad_input
               ( /*<<scanf.ml:421:4>>*/ caml_call2
@@ -29723,11 +30524,11 @@
        var
         get_digit$0 =
           function(param){
-            /*<<scanf.ml:1010:14>>*/ var c = next_char(ib);
+           var c =  /*<<scanf.ml:1010:14>>*/ next_char(ib);
            return 9 < c - 48 >>> 0 ? bad_input_escape(c) : c;
            /*<<scanf.ml:1013:31>>*/ },
-         /*<<scanf.ml:1015:13>>*/ c1$0 = get_digit$0(0),
-         /*<<scanf.ml:1016:13>>*/ c2$0 = get_digit$0(0),
+        c1$0 =  /*<<scanf.ml:1015:13>>*/ get_digit$0(0),
+        c2$0 =  /*<<scanf.ml:1016:13>>*/ get_digit$0(0),
         c =
           ((100 * (c0 - 48 | 0) | 0) + (10 * (c1$0 - 48 | 0) | 0) | 0)
           + (c2$0 - 48 | 0)
@@ -29746,7 +30547,7 @@
        }
         /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_);
       }
-       /*<<scanf.ml:1005:8>>*/ var switcher = c0 - 92 | 0;
+      var switcher =  /*<<scanf.ml:1005:8>>*/ c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
       switch(switcher){
         case 28:
@@ -29754,8 +30555,8 @@
           get_digit =
             function(param){
              var
-               /*<<scanf.ml:1020:14>>*/ c = next_char(ib),
-               /*<<scanf.ml:1020:14>>*/ _ac_ = c - 48 | 0;
+              c =  /*<<scanf.ml:1020:14>>*/ next_char(ib),
+              _ac_ =  /*<<scanf.ml:1020:14>>*/ c - 48 | 0;
              a:
              {
               if(22 < _ac_ >>> 0){
@@ -29766,9 +30567,9 @@
              }
               /*<<scanf.ml:1023:13>>*/ return bad_input_escape(c);
              /*<<scanf.ml:1023:31>>*/ },
-           /*<<scanf.ml:1024:13>>*/ c1 = get_digit(0),
-           /*<<scanf.ml:1025:13>>*/ c2 = get_digit(0),
-           /*<<scanf.ml:985:9>>*/ ___ = hexadecimal_value_of_char(c2),
+          c1 =  /*<<scanf.ml:1024:13>>*/ get_digit(0),
+          c2 =  /*<<scanf.ml:1025:13>>*/ get_digit(0),
+          ___ =  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char(c2),
           c$0 = (16 * hexadecimal_value_of_char(c1) | 0) + ___ | 0;
          b:
          {
@@ -29820,10 +30621,10 @@
       if(34 === c)  /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib);
       if(92 === c){
        var
-         /*<<scanf.ml:1065:29>>*/ width$1 = ignore_char(width$0, ib),
+        width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
         match = check_next_char(cst_a_String, width$1, ib);
        if(10 === match){
-         /*<<scanf.ml:1071:26>>*/ var _Y_ = ignore_char(width$1, ib);
+        var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
          /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
           /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ caml_trampoline_return
                  (skip_spaces, [0, _Y_]);
@@ -29831,26 +30632,26 @@
          /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_);
        }
        if(13 === match){
-         /*<<scanf.ml:1070:27>>*/ var width$3 = ignore_char(width$1, ib);
+        var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
         if(10 === check_next_char(cst_a_String, width$3, ib)){
-          /*<<scanf.ml:1076:26>>*/ var _Z_ = ignore_char(width$3, ib);
+         var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
           /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
            /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ caml_trampoline_return
                   (skip_spaces, [0, _Z_]);
          var counter$1 = counter + 1 | 0;
           /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_);
         }
-         /*<<scanf.ml:1077:21>>*/ var width$5 = store_char(width$3, ib, 13);
+        var width$5 =  /*<<scanf.ml:1077:21>>*/ store_char(width$3, ib, 13);
         width$0 = width$5;
        }
        else{
-         /*<<scanf.ml:1072:21>>*/ var
-         width$4 = scan_backslash_char(width$1, ib);
+        var
+         width$4 =  /*<<scanf.ml:1072:21>>*/ scan_backslash_char(width$1, ib);
         width$0 = width$4;
        }
       }
       else{
-        /*<<scanf.ml:1066:21>>*/ var width$2 = store_char(width$0, ib, c);
+       var width$2 =  /*<<scanf.ml:1066:21>>*/ store_char(width$0, ib, c);
        width$0 = width$2;
       }
      }
@@ -29868,11 +30669,11 @@
        var counter$0 = counter + 1 | 0;
         /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0);
       }
-       /*<<scanf.ml:1081:25>>*/ var width$1 = ignore_char(width$0, ib);
+      var width$1 =  /*<<scanf.ml:1081:25>>*/ ignore_char(width$0, ib);
       width$0 = width$1;
      }
      /*<<scanf.ml:1082:26>>*/ }
-     /*<<scanf.ml:1058:10>>*/ var c = checked_peek_char(ib);
+    var c =  /*<<scanf.ml:1058:10>>*/ checked_peek_char(ib);
     return 34 === c
             ? find_stop(ignore_char(width, ib))
             : character_mismatch(34, c);
@@ -29881,15 +30682,15 @@
     function scan_chars(i, stp){
      var i$0 = i;
       /*<<scanf.ml:1104:4>>*/ for(;;){
-      var  /*<<scanf.ml:1104:12>>*/ c = peek_char(ib), _U_ = 0 < i$0 ? 1 : 0;
+      var c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib), _U_ = 0 < i$0 ? 1 : 0;
       if(_U_){
-        /*<<scanf.ml:1105:20>>*/ var _V_ = 1 - ib[1];
+       var _V_ =  /*<<scanf.ml:1105:20>>*/ 1 - ib[1];
        if(_V_)
         var
-          /*<<scanf.ml:1106:7>>*/ _W_ =
-            /*<<scanf.ml:1106:7>>*/ caml_call2
+         _W_ =
+            /*<<scanf.ml:1106:7>>*/  /*<<scanf.ml:1106:7>>*/ caml_call2
             (CamlinternalFormat[1], char_set, c),
-          /*<<scanf.ml:1106:7>>*/ _X_ = _W_ ? c !== stp ? 1 : 0 : _W_;
+         _X_ =  /*<<scanf.ml:1106:7>>*/ _W_ ? c !== stp ? 1 : 0 : _W_;
        else
         var _X_ = _V_;
       }
@@ -29904,9 +30705,9 @@
     if(! scan_indic)  /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1);
     var c = scan_indic[1];
      /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
-     /*<<scanf.ml:1114:11>>*/ var _T_ = 1 - ib[1];
+    var _T_ =  /*<<scanf.ml:1114:11>>*/ 1 - ib[1];
     if(! _T_)  /*<<scanf.ml:1114:11>>*/ return _T_;
-     /*<<scanf.ml:1115:15>>*/ var ci = peek_char(ib);
+    var ci =  /*<<scanf.ml:1115:15>>*/ peek_char(ib);
     return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci);
     /*<<scanf.ml:1118:34>>*/ }
    function scanf_bad_input(ib, x){
@@ -29918,7 +30719,7 @@
              (x, 1);
      var s = x[2];
     }
-     /*<<scanf.ml:1124:12>>*/ var i = char_count(ib);
+    var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
      /*<<scanf.ml:1125:14>>*/ return bad_input
             ( /*<<scanf.ml:1125:14>>*/ caml_call3(Stdlib_Printf[4], _o_, i, s));
    }
@@ -29932,12 +30733,14 @@
      /*<<scanf.ml:1144:2>>*/ if(6 === fmting)
       /*<<scanf.ml:1144:35>>*/ return _p_;
     var
-      /*<<scanf.ml:1145:14>>*/ str =
-        /*<<scanf.ml:1145:14>>*/ caml_call1(CamlinternalFormat[17], fmting),
-      /*<<scanf.ml:1146:14>>*/ stp =
-        /*<<scanf.ml:1146:14>>*/ caml_string_get(str, 1),
-      /*<<scanf.ml:1147:18>>*/ sub_str =
-        /*<<scanf.ml:1147:18>>*/ caml_call3
+     str =
+        /*<<scanf.ml:1145:14>>*/  /*<<scanf.ml:1145:14>>*/ caml_call1
+        (CamlinternalFormat[17], fmting),
+     stp =
+        /*<<scanf.ml:1146:14>>*/  /*<<scanf.ml:1146:14>>*/ caml_string_get
+        (str, 1),
+     sub_str =
+        /*<<scanf.ml:1147:18>>*/  /*<<scanf.ml:1147:18>>*/ caml_call3
         (Stdlib_String[16],
          str,
          2,
@@ -29983,10 +30786,11 @@
         var
          rest$13 = fmt$0[3],
          fmtty = fmt$0[2],
-          /*<<scanf.ml:1195:44>>*/ _Q_ =
-            /*<<scanf.ml:1195:44>>*/ caml_call1(CamlinternalFormat[21], fmtty),
-          /*<<scanf.ml:1195:33>>*/ _R_ =
-            /*<<scanf.ml:1195:33>>*/ caml_call1
+         _Q_ =
+            /*<<scanf.ml:1195:44>>*/  /*<<scanf.ml:1195:44>>*/ caml_call1
+            (CamlinternalFormat[21], fmtty),
+         _R_ =
+            /*<<scanf.ml:1195:33>>*/  /*<<scanf.ml:1195:33>>*/ caml_call1
             (CamlinternalFormatBasics[2], _Q_);
          /*<<scanf.ml:1195:5>>*/ if(counter >= 50)
           /*<<scanf.ml:1195:5>>*/ return  /*<<scanf.ml:1195:5>>*/ caml_trampoline_return
@@ -30006,8 +30810,8 @@
          var
           rest$17 = fmt$0[2],
           fmt$1 = _S_[1][1],
-           /*<<scanf.ml:1189:28>>*/ fmt$2 =
-             /*<<scanf.ml:1189:28>>*/ caml_call2
+          fmt$2 =
+             /*<<scanf.ml:1189:28>>*/  /*<<scanf.ml:1189:28>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$1, rest$17);
          fmt$0 = fmt$2;
         }
@@ -30015,8 +30819,8 @@
          var
           rest$18 = fmt$0[2],
           fmt$3 = _S_[1][1],
-           /*<<scanf.ml:1191:28>>*/ fmt$4 =
-             /*<<scanf.ml:1191:28>>*/ caml_call2
+          fmt$4 =
+             /*<<scanf.ml:1191:28>>*/  /*<<scanf.ml:1191:28>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$3, rest$18);
          fmt$0 = fmt$4;
         }
@@ -30128,13 +30932,14 @@
          rest = fmtty$0[3],
          ty2 = fmtty$0[2],
          ty1 = fmtty$0[1],
-          /*<<scanf.ml:1227:19>>*/ _P_ =
-            /*<<scanf.ml:1227:19>>*/ caml_call1(CamlinternalFormat[21], ty1),
-          /*<<scanf.ml:1227:13>>*/ ty =
-            /*<<scanf.ml:1227:13>>*/ caml_call2
+         _P_ =
+            /*<<scanf.ml:1227:19>>*/  /*<<scanf.ml:1227:19>>*/ caml_call1
+            (CamlinternalFormat[21], ty1),
+         ty =
+            /*<<scanf.ml:1227:13>>*/  /*<<scanf.ml:1227:13>>*/ caml_call2
             (CamlinternalFormat[22], _P_, ty2),
-          /*<<scanf.ml:1228:32>>*/ fmtty$10 =
-            /*<<scanf.ml:1228:32>>*/ caml_call2
+         fmtty$10 =
+            /*<<scanf.ml:1228:32>>*/  /*<<scanf.ml:1228:32>>*/ caml_call2
             (CamlinternalFormatBasics[1], ty, rest);
         fmtty$0 = fmtty$10;
         break;
@@ -30177,7 +30982,7 @@
        case 0:
         var rest = fmt$0[1];
          /*<<scanf.ml:939:31>>*/ store_char(0, ib, checked_peek_char(ib));
-         /*<<scanf.ml:1269:12>>*/ var c$0 = token_char(ib);
+        var c$0 =  /*<<scanf.ml:1269:12>>*/ token_char(ib);
          /*<<scanf.ml:1270:4>>*/ return [0,
                 c$0,
                 make_scanf(ib, rest, readers)];
@@ -30191,11 +30996,11 @@
                     ? ignore_char(width, ib)
                     : character_mismatch(39, c);
             /*<<scanf.ml:1049:36>>*/ },
-          /*<<scanf.ml:1035:10>>*/ c = checked_peek_char(ib),
-          /*<<scanf.ml:1272:4>>*/ width$0 = 0;
+         c =  /*<<scanf.ml:1035:10>>*/ checked_peek_char(ib),
+         width$0 =  /*<<scanf.ml:1272:4>>*/ 0;
         if(39 === c){
          var
-           /*<<scanf.ml:1036:24>>*/ width = ignore_char(width$0, ib),
+          width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
           c$3 = check_next_char(cst_a_Char, width, ib);
          if(92 === c$3)
            /*<<scanf.ml:1042:16>>*/ find_stop
@@ -30205,7 +31010,7 @@
         }
         else
           /*<<scanf.ml:1037:11>>*/ character_mismatch(39, c);
-         /*<<scanf.ml:1273:12>>*/ var c$1 = token_char(ib);
+        var c$1 =  /*<<scanf.ml:1273:12>>*/ token_char(ib);
          /*<<scanf.ml:1274:4>>*/ return [0,
                 c$1,
                 make_scanf(ib, rest$0, readers)];
@@ -30217,8 +31022,8 @@
             var
              rest$2 = match[2],
              fmting_lit = match[1],
-              /*<<scanf.ml:1277:19>>*/ match$0 =
-               stopper_of_formatting_lit(fmting_lit),
+             match$0 =
+                /*<<scanf.ml:1277:19>>*/ stopper_of_formatting_lit(fmting_lit),
              str = match$0[2],
              stp = match$0[1],
              scan$0 =
@@ -30226,7 +31031,7 @@
                  /*<<scanf.ml:1278:26>>*/ return scan_string
                         ([0, stp], width, ib);
                 /*<<scanf.ml:1278:57>>*/ },
-              /*<<scanf.ml:1279:19>>*/ str_rest = [11, str, rest$2];
+             str_rest =  /*<<scanf.ml:1279:19>>*/ [11, str, rest$2];
              /*<<scanf.ml:1280:4>>*/ return pad_prec_scanf
                     (ib, str_rest, readers, pad, 0, scan$0, token_string);
            case 18:
@@ -30235,8 +31040,8 @@
              var
               rest$3 = match[2],
               fmt$1 = _D_[1][1],
-               /*<<scanf.ml:1282:4>>*/ scan$1 =
-                function(width, param, ib){
+              scan$1 =
+                 /*<<scanf.ml:1282:4>>*/ function(width, param, ib){
                   /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib);
                  /*<<scanf.ml:1282:57>>*/ };
               /*<<scanf.ml:1283:4>>*/ return pad_prec_scanf
@@ -30252,8 +31057,8 @@
             var
              rest$4 = match[2],
              fmt$2 = _D_[1][1],
-              /*<<scanf.ml:1286:4>>*/ scan$2 =
-               function(width, param, ib){
+             scan$2 =
+                /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
                  /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib);
                 /*<<scanf.ml:1286:57>>*/ };
              /*<<scanf.ml:1287:4>>*/ return pad_prec_scanf
@@ -30268,8 +31073,8 @@
          }
         var
          rest$1 = fmt$0[2],
-          /*<<scanf.ml:1290:4>>*/ scan =
-           function(width, param, ib){
+         scan =
+            /*<<scanf.ml:1290:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1290:26>>*/ return scan_string(0, width, ib);
             /*<<scanf.ml:1290:51>>*/ };
          /*<<scanf.ml:1291:4>>*/ return pad_prec_scanf
@@ -30278,8 +31083,8 @@
         var
          rest$5 = fmt$0[2],
          pad$0 = fmt$0[1],
-          /*<<scanf.ml:1294:4>>*/ scan$3 =
-           function(width, param, ib){
+         scan$3 =
+            /*<<scanf.ml:1294:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1294:26>>*/ return scan_caml_string(width, ib);
             /*<<scanf.ml:1294:51>>*/ };
          /*<<scanf.ml:1295:4>>*/ return pad_prec_scanf
@@ -30290,8 +31095,8 @@
          prec = fmt$0[3],
          pad$1 = fmt$0[2],
          iconv = fmt$0[1],
-          /*<<scanf.ml:1297:12>>*/ conv =
-           integer_conversion_of_char
+         conv =
+            /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1297:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv)),
          scan$4 =
@@ -30316,8 +31121,8 @@
          prec$0 = fmt$0[3],
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1],
-          /*<<scanf.ml:1301:12>>*/ conv$0 =
-           integer_conversion_of_char
+         conv$0 =
+            /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1301:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$0)),
          scan$5 =
@@ -30342,8 +31147,8 @@
          prec$1 = fmt$0[3],
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1],
-          /*<<scanf.ml:1305:12>>*/ conv$1 =
-           integer_conversion_of_char
+         conv$1 =
+            /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1305:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$1)),
          scan$6 =
@@ -30368,8 +31173,8 @@
          prec$2 = fmt$0[3],
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1],
-          /*<<scanf.ml:1309:12>>*/ conv$2 =
-           integer_conversion_of_char
+         conv$2 =
+            /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1309:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$2)),
          scan$7 =
@@ -30427,12 +31232,12 @@
         var
          rest$13 = fmt$0[2],
          pad$8 = fmt$0[1],
-          /*<<scanf.ml:1320:4>>*/ scan$8 =
-           function(_O_, param, ib){
+         scan$8 =
+            /*<<scanf.ml:1320:4>>*/ function(_O_, param, ib){
             var
-              /*<<scanf.ml:1089:10>>*/ c = checked_peek_char(ib),
-              /*<<scanf.ml:1090:2>>*/ m =
-               102 === c
+             c =  /*<<scanf.ml:1089:10>>*/ checked_peek_char(ib),
+             m =
+                /*<<scanf.ml:1090:2>>*/ 102 === c
                 ? 5
                 : 116
                   === c
@@ -30467,11 +31272,11 @@
         var rest$17 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
          /*<<scanf.ml:1348:12>>*/ scan_caml_string
          (width_of_pad_opt(pad_opt), ib);
-         /*<<scanf.ml:1349:12>>*/ var s = token_string(ib);
+        var s =  /*<<scanf.ml:1349:12>>*/ token_string(ib);
          /*<<scanf.ml:1350:4>>*/ try{
          var
-           /*<<scanf.ml:1351:10>>*/ _E_ =
-             /*<<scanf.ml:1351:10>>*/ caml_call2
+          _E_ =
+             /*<<scanf.ml:1351:10>>*/  /*<<scanf.ml:1351:10>>*/ caml_call2
              (CamlinternalFormat[14], s, fmtty),
           fmt$3 = _E_;
         }
@@ -30487,7 +31292,7 @@
         var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
          /*<<scanf.ml:1356:12>>*/ scan_caml_string
          (width_of_pad_opt(pad_opt$0), ib);
-         /*<<scanf.ml:1357:12>>*/ var s$0 = token_string(ib);
+        var s$0 =  /*<<scanf.ml:1357:12>>*/ token_string(ib);
         try{
          var
           fmt$6 =
@@ -30498,20 +31303,20 @@
              /*<<scanf.ml:1361:27>>*/ caml_call2
               (CamlinternalFormat[13], 0, s$0)
              [1],
-           /*<<scanf.ml:1375:36>>*/ _G_ =
-             /*<<scanf.ml:1375:36>>*/ caml_call1
+          _G_ =
+             /*<<scanf.ml:1375:36>>*/  /*<<scanf.ml:1375:36>>*/ caml_call1
              (CamlinternalFormat[21], fmtty$0),
-           /*<<scanf.ml:1375:25>>*/ _H_ =
-             /*<<scanf.ml:1375:25>>*/ caml_call1
+          _H_ =
+             /*<<scanf.ml:1375:25>>*/  /*<<scanf.ml:1375:25>>*/ caml_call1
              (CamlinternalFormatBasics[2], _G_),
-           /*<<scanf.ml:1375:8>>*/ fmt$8 =
-             /*<<scanf.ml:1375:8>>*/ caml_call2
+          fmt$8 =
+             /*<<scanf.ml:1375:8>>*/  /*<<scanf.ml:1375:8>>*/ caml_call2
              (CamlinternalFormat[12], fmt$7, _H_),
-           /*<<scanf.ml:1374:24>>*/ _I_ =
-             /*<<scanf.ml:1374:24>>*/ caml_call1
+          _I_ =
+             /*<<scanf.ml:1374:24>>*/  /*<<scanf.ml:1374:24>>*/ caml_call1
              (CamlinternalFormatBasics[2], fmtty$0),
-           /*<<scanf.ml:1374:8>>*/ _J_ =
-             /*<<scanf.ml:1374:8>>*/ caml_call2
+          _J_ =
+             /*<<scanf.ml:1374:8>>*/  /*<<scanf.ml:1374:8>>*/ caml_call2
              (CamlinternalFormat[12], fmt$6, _I_),
           fmt$5 = fmt$8,
           fmt$4 = _J_;
@@ -30543,8 +31348,8 @@
         var
          rest$19 = fmt$0[2],
          formatting_lit = fmt$0[1],
-          /*<<scanf.ml:1401:32>>*/ _K_ =
-            /*<<scanf.ml:1401:32>>*/ caml_call1
+         _K_ =
+            /*<<scanf.ml:1401:32>>*/  /*<<scanf.ml:1401:32>>*/ caml_call1
             (CamlinternalFormat[17], formatting_lit);
          /*<<scanf.ml:1401:4>>*/  /*<<scanf.ml:1401:4>>*/ caml_call2
          (Stdlib_String[30],
@@ -30558,9 +31363,9 @@
          var rest$20 = fmt$0[2], fmt$9 = _L_[1][1];
           /*<<scanf.ml:1404:4>>*/ check_char(ib, 64);
           /*<<scanf.ml:1404:23>>*/ check_char(ib, 123);
-          /*<<scanf.ml:1405:18>>*/ var
+         var
           fmt$10 =
-             /*<<scanf.ml:1405:18>>*/ caml_call2
+             /*<<scanf.ml:1405:18>>*/  /*<<scanf.ml:1405:18>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$9, rest$20);
          fmt$0 = fmt$10;
         }
@@ -30568,9 +31373,9 @@
          var rest$21 = fmt$0[2], fmt$11 = _L_[1][1];
           /*<<scanf.ml:1407:4>>*/ check_char(ib, 64);
           /*<<scanf.ml:1407:23>>*/ check_char(ib, 91);
-          /*<<scanf.ml:1408:18>>*/ var
+         var
           fmt$12 =
-             /*<<scanf.ml:1408:18>>*/ caml_call2
+             /*<<scanf.ml:1408:18>>*/  /*<<scanf.ml:1408:18>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$11, rest$21);
          fmt$0 = fmt$12;
         }
@@ -30583,8 +31388,9 @@
         var
          readers_rest = readers[2],
          reader = readers[1],
-          /*<<scanf.ml:1331:16>>*/ x =
-            /*<<scanf.ml:1331:16>>*/ caml_call1(reader, ib);
+         x =
+            /*<<scanf.ml:1331:16>>*/  /*<<scanf.ml:1331:16>>*/ caml_call1
+            (reader, ib);
          /*<<scanf.ml:1332:8>>*/ return [0,
                 x,
                 make_scanf(ib, fmt_rest, readers_rest)];
@@ -30595,16 +31401,16 @@
           rest$23 = match$1[2],
           fmting_lit$0 = match$1[1],
           char_set$0 = fmt$0[2],
-           /*<<scanf.ml:1382:19>>*/ match$2 =
-            stopper_of_formatting_lit(fmting_lit$0),
+          match$2 =
+             /*<<scanf.ml:1382:19>>*/ stopper_of_formatting_lit(fmting_lit$0),
           str$1 = match$2[2],
           stp$0 = match$2[1],
-           /*<<scanf.ml:1383:16>>*/ width$2 = width_of_pad_opt(width_opt);
+          width$2 =  /*<<scanf.ml:1383:16>>*/ width_of_pad_opt(width_opt);
           /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
           (char_set$0, [0, stp$0], width$2, ib);
          var
-           /*<<scanf.ml:1385:12>>*/ s$2 = token_string(ib),
-           /*<<scanf.ml:1386:19>>*/ str_rest$0 = [11, str$1, rest$23];
+          s$2 =  /*<<scanf.ml:1385:12>>*/ token_string(ib),
+          str_rest$0 =  /*<<scanf.ml:1386:19>>*/ [11, str$1, rest$23];
           /*<<scanf.ml:1387:4>>*/ return [0,
                  s$2,
                  make_scanf(ib, str_rest$0, readers)];
@@ -30612,10 +31418,10 @@
         var
          rest$22 = fmt$0[3],
          char_set = fmt$0[2],
-          /*<<scanf.ml:1389:16>>*/ width$1 = width_of_pad_opt(width_opt);
+         width$1 =  /*<<scanf.ml:1389:16>>*/ width_of_pad_opt(width_opt);
          /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
          (char_set, 0, width$1, ib);
-         /*<<scanf.ml:1391:12>>*/ var s$1 = token_string(ib);
+        var s$1 =  /*<<scanf.ml:1391:12>>*/ token_string(ib);
          /*<<scanf.ml:1392:4>>*/ return [0,
                 s$1,
                 make_scanf(ib, rest$22, readers)];
@@ -30634,7 +31440,7 @@
        case 22:
         var
          rest$25 = fmt$0[1],
-          /*<<scanf.ml:1397:12>>*/ c$2 = checked_peek_char(ib);
+         c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
          /*<<scanf.ml:1398:4>>*/ return [0,
                 c$2,
                 make_scanf(ib, rest$25, readers)];
@@ -30646,7 +31452,7 @@
             /*<<scanf.ml:1411:32>>*/ caml_call2
              (CamlinternalFormat[6], ign, rest$26)
             [1],
-          /*<<scanf.ml:1412:16>>*/ match$3 = make_scanf(ib, fmt$13, readers);
+         match$3 =  /*<<scanf.ml:1412:16>>*/ make_scanf(ib, fmt$13, readers);
         if(! match$3)
           /*<<scanf.ml:1414:13>>*/ throw  /*<<scanf.ml:1414:13>>*/ caml_maybe_attach_backtrace
                 ([0, Assert_failure, _s_], 1);
@@ -30664,8 +31470,10 @@
       var p = prec[1];
        /*<<scanf.ml:1435:12>>*/  /*<<scanf.ml:1435:12>>*/ caml_call3
        (scan, Stdlib[19], p, ib);
-       /*<<scanf.ml:1436:12>>*/ var
-       x$0 =  /*<<scanf.ml:1436:12>>*/ caml_call1(token, ib);
+      var
+       x$0 =
+          /*<<scanf.ml:1436:12>>*/  /*<<scanf.ml:1436:12>>*/ caml_call1
+          (token, ib);
        /*<<scanf.ml:1437:4>>*/ return [0, x$0, make_scanf(ib, fmt, readers)];
      }
      if(prec)
@@ -30673,8 +31481,10 @@
               (Stdlib[1], cst_scanf_bad_conversion);
       /*<<scanf.ml:1431:12>>*/  /*<<scanf.ml:1431:12>>*/ caml_call3
       (scan, Stdlib[19], Stdlib[19], ib);
-      /*<<scanf.ml:1432:12>>*/ var
-      x =  /*<<scanf.ml:1432:12>>*/ caml_call1(token, ib);
+     var
+      x =
+         /*<<scanf.ml:1432:12>>*/  /*<<scanf.ml:1432:12>>*/ caml_call1
+         (token, ib);
       /*<<scanf.ml:1433:4>>*/ return [0, x, make_scanf(ib, fmt, readers)];
     }
     if(0 !== pad[0])
@@ -30688,8 +31498,10 @@
      var p$0 = prec[1];
       /*<<scanf.ml:1443:12>>*/  /*<<scanf.ml:1443:12>>*/ caml_call3
       (scan, w, p$0, ib);
-      /*<<scanf.ml:1444:12>>*/ var
-      x$2 =  /*<<scanf.ml:1444:12>>*/ caml_call1(token, ib);
+     var
+      x$2 =
+         /*<<scanf.ml:1444:12>>*/  /*<<scanf.ml:1444:12>>*/ caml_call1
+         (token, ib);
       /*<<scanf.ml:1445:4>>*/ return [0, x$2, make_scanf(ib, fmt, readers)];
     }
     if(prec)
@@ -30697,8 +31509,10 @@
              (Stdlib[1], cst_scanf_bad_conversion$0);
      /*<<scanf.ml:1439:12>>*/  /*<<scanf.ml:1439:12>>*/ caml_call3
      (scan, w, Stdlib[19], ib);
-     /*<<scanf.ml:1440:12>>*/ var
-     x$1 =  /*<<scanf.ml:1440:12>>*/ caml_call1(token, ib);
+    var
+     x$1 =
+        /*<<scanf.ml:1440:12>>*/  /*<<scanf.ml:1440:12>>*/ caml_call1
+        (token, ib);
      /*<<scanf.ml:1441:4>>*/ return [0, x$1, make_scanf(ib, fmt, readers)];
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
@@ -30706,7 +31520,7 @@
     function k(readers, f$1){
       /*<<scanf.ml:1465:4>>*/ caml_call1(Stdlib_Buffer[9], ib[8]);
       /*<<scanf.ml:1465:4>>*/ try{
-       /*<<scanf.ml:1466:10>>*/ var args$1 = make_scanf(ib, fmt, readers);
+      var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);
      }
      catch(exc$0){
       var exc = caml_wrap_exception(exc$0);
@@ -30715,14 +31529,18 @@
        if(exc[1] !== Stdlib[6]) throw caml_maybe_attach_backtrace(exc, 0);
        var
         msg = exc[2],
-         /*<<scanf.ml:1470:45>>*/ _z_ =
-           /*<<scanf.ml:1470:45>>*/ caml_call1(Stdlib_String[25], str),
-         /*<<scanf.ml:1470:45>>*/ _A_ =
-           /*<<scanf.ml:1470:45>>*/ caml_call2(Stdlib[28], _z_, cst$0),
-         /*<<scanf.ml:1470:27>>*/ _B_ =
-           /*<<scanf.ml:1470:27>>*/ caml_call2(Stdlib[28], cst_in_format, _A_),
-         /*<<scanf.ml:1470:20>>*/ _C_ =
-           /*<<scanf.ml:1470:20>>*/ caml_call2(Stdlib[28], msg, _B_);
+        _z_ =
+           /*<<scanf.ml:1470:45>>*/  /*<<scanf.ml:1470:45>>*/ caml_call1
+           (Stdlib_String[25], str),
+        _A_ =
+           /*<<scanf.ml:1470:45>>*/  /*<<scanf.ml:1470:45>>*/ caml_call2
+           (Stdlib[28], _z_, cst$0),
+        _B_ =
+           /*<<scanf.ml:1470:27>>*/  /*<<scanf.ml:1470:27>>*/ caml_call2
+           (Stdlib[28], cst_in_format, _A_),
+        _C_ =
+           /*<<scanf.ml:1470:20>>*/  /*<<scanf.ml:1470:20>>*/ caml_call2
+           (Stdlib[28], msg, _B_);
         /*<<scanf.ml:1470:20>>*/ return  /*<<scanf.ml:1470:20>>*/ caml_call1
                (Stdlib[1], _C_);
       }
@@ -30737,8 +31555,8 @@
       var
        args$0 = args[2],
        x = args[1],
-        /*<<scanf.ml:1461:27>>*/ f$0 =
-          /*<<scanf.ml:1461:27>>*/ caml_call1(f, x);
+       f$0 =
+          /*<<scanf.ml:1461:27>>*/  /*<<scanf.ml:1461:27>>*/ caml_call1(f, x);
       f = f$0;
       args = args$0;
      }
@@ -30789,11 +31607,11 @@
     /*<<scanf.ml:1493:49>>*/ }
    function bscanf_format(ib, format, f){
      /*<<scanf.ml:1502:4>>*/ scan_caml_string(Stdlib[19], ib);
-     /*<<scanf.ml:1503:14>>*/ var str = token_string(ib);
+    var str =  /*<<scanf.ml:1503:14>>*/ token_string(ib);
      /*<<scanf.ml:1504:4>>*/ try{
      var
-       /*<<scanf.ml:1505:10>>*/ _x_ =
-         /*<<scanf.ml:1505:10>>*/ caml_call2
+      _x_ =
+         /*<<scanf.ml:1505:10>>*/  /*<<scanf.ml:1505:10>>*/ caml_call2
          (CamlinternalFormat[15], str, format),
       fmt = _x_;
     }
@@ -30810,10 +31628,12 @@
     /*<<scanf.ml:1513:67>>*/ }
    function format_from_string(s, fmt){
     var
-      /*<<scanf.ml:1517:24>>*/ _v_ =
-        /*<<scanf.ml:1517:24>>*/ caml_call1(Stdlib_String[25], s),
-      /*<<scanf.ml:1517:24>>*/ _w_ =
-        /*<<scanf.ml:1517:24>>*/ caml_call2(Stdlib[28], _v_, cst$1);
+     _v_ =
+        /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call1
+        (Stdlib_String[25], s),
+     _w_ =
+        /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call2
+        (Stdlib[28], _v_, cst$1);
      /*<<scanf.ml:1517:53>>*/ return sscanf_format
             ( /*<<scanf.ml:1517:16>>*/ caml_call2(Stdlib[28], cst$2, _w_),
              fmt,
@@ -30822,8 +31642,10 @@
               /*<<scanf.ml:1517:64>>*/ });
     /*<<scanf.ml:1517:65>>*/ }
    function unescaped(s){
-     /*<<scanf.ml:1521:17>>*/ var
-     _u_ =  /*<<scanf.ml:1521:17>>*/ caml_call2(Stdlib[28], s, cst$3);
+    var
+     _u_ =
+        /*<<scanf.ml:1521:17>>*/  /*<<scanf.ml:1521:17>>*/ caml_call2
+        (Stdlib[28], s, cst$3);
      /*<<scanf.ml:1521:34>>*/ return  /*<<scanf.ml:1521:34>>*/ caml_call1
             (sscanf
               ( /*<<scanf.ml:1521:9>>*/ caml_call2(Stdlib[28], cst$4, _u_),
@@ -30872,8 +31694,8 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_register_named_value = runtime.caml_register_named_value,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_register_named_value =  /*<<?>>*/ runtime.caml_register_named_value,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
     register = caml_register_named_value;
@@ -30899,18 +31721,18 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst_camlinternalOO_ml = "camlinternalOO.ml",
-     /*<<?>>*/ 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,
-     /*<<?>>*/ caml_string_compare = runtime.caml_string_compare,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst_camlinternalOO_ml =  /*<<?>>*/ "camlinternalOO.ml",
+    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,
+    caml_string_compare =  /*<<?>>*/ runtime.caml_string_compare,
+    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)
@@ -30941,24 +31763,28 @@
     Stdlib_List = global_data.Stdlib__List,
     Stdlib_Map = global_data.Stdlib__Map;
    function copy(o){
-     /*<<camlinternalOO.ml:23:19>>*/ var
-     o$0 =  /*<<camlinternalOO.ml:23:19>>*/ o.slice();
+    var
+     o$0 =
+        /*<<camlinternalOO.ml:23:19>>*/  /*<<camlinternalOO.ml:23:19>>*/ o.slice
+        ();
      /*<<camlinternalOO.ml:24:2>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
             (o$0);
     /*<<camlinternalOO.ml:24:10>>*/ }
-    /*<<camlinternalOO.ml:36:13>>*/ var params = [0, 1, 1, 1, 3, 16];
+   var params =  /*<<camlinternalOO.ml:36:13>>*/ [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
     var
-      /*<<camlinternalOO.ml:69:13>>*/ accu = [0, 0],
+     accu =  /*<<camlinternalOO.ml:69:13>>*/ [0, 0],
      _al_ = runtime.caml_ml_string_length(s) - 1 | 0,
-      /*<<camlinternalOO.ml:69:13>>*/ _ak_ = 0;
+     _ak_ =  /*<<camlinternalOO.ml:69:13>>*/ 0;
     if(_al_ >= 0){
      var i = _ak_;
      for(;;){
-       /*<<camlinternalOO.ml:71:36>>*/ var
-       _am_ =  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get(s, i);
+      var
+       _am_ =
+          /*<<camlinternalOO.ml:71:36>>*/  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get
+          (s, i);
       accu[1] = (223 * accu[1] | 0) + _am_ | 0;
-       /*<<camlinternalOO.ml:70:2>>*/ var _an_ = i + 1 | 0;
+      var _an_ =  /*<<camlinternalOO.ml:70:2>>*/ i + 1 | 0;
       if(_al_ === i) break;
       i = _an_;
      }
@@ -30974,12 +31800,21 @@
     Meths = caml_call1(Stdlib_Map[1], [0, compare$0]),
     compare$1 = runtime.caml_int_compare,
     Labs = caml_call1(Stdlib_Map[1], [0, compare$1]),
-     /*<<camlinternalOO.ml:107:2>>*/ dummy_table =
-      [0, 0, [0, 0], Meths[1], Labs[1], 0, 0, Vars[1], 0],
-     /*<<camlinternalOO.ml:116:18>>*/ table_count = [0, 0],
-     /*<<camlinternalOO.ml:119:31>>*/ dummy_met =
-       /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block(0, 0),
-     /*<<camlinternalOO.ml:36:13>>*/ initial_object_size = 2;
+    dummy_table =
+       /*<<camlinternalOO.ml:107:2>>*/ [0,
+       0,
+       [0, 0],
+       Meths[1],
+       Labs[1],
+       0,
+       0,
+       Vars[1],
+       0],
+    table_count =  /*<<camlinternalOO.ml:116:18>>*/ [0, 0],
+    dummy_met =
+       /*<<camlinternalOO.ml:119:31>>*/  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block
+       (0, 0),
+    initial_object_size =  /*<<camlinternalOO.ml:36:13>>*/ 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
             ? fit_size((n + 1 | 0) / 2 | 0) * 2 | 0
@@ -30989,8 +31824,8 @@
      /*<<camlinternalOO.ml:128:2>>*/ table_count[1]++;
     var
      len = pub_labels.length - 1,
-      /*<<camlinternalOO.ml:130:16>>*/ methods =
-        /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
+     methods =
+        /*<<camlinternalOO.ml:130:16>>*/  /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
         ((len * 2 | 0) + 2 | 0, dummy_met);
      /*<<camlinternalOO.ml:131:2>>*/ caml_check_bound(methods, 0)[1] = len;
     var
@@ -31003,18 +31838,19 @@
        - 1
        | 0;
      /*<<camlinternalOO.ml:132:2>>*/ caml_check_bound(methods, 1)[2] = _ae_;
-    var _ag_ = len - 1 | 0,  /*<<camlinternalOO.ml:132:2>>*/ _af_ = 0;
+    var _ag_ = len - 1 | 0, _af_ =  /*<<camlinternalOO.ml:132:2>>*/ 0;
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
       var
        _ai_ = (i * 2 | 0) + 3 | 0,
-        /*<<camlinternalOO.ml:133:55>>*/ _ah_ =
-         caml_check_bound(pub_labels, i)[1 + i];
+       _ah_ =
+          /*<<camlinternalOO.ml:133:55>>*/ caml_check_bound(pub_labels, i)
+          [1 + i];
        /*<<camlinternalOO.ml:133:26>>*/ caml_check_bound(methods, _ai_)
        [1 + _ai_]
       = _ah_;
-       /*<<camlinternalOO.ml:133:26>>*/ var _aj_ = i + 1 | 0;
+      var _aj_ =  /*<<camlinternalOO.ml:133:26>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _aj_;
      }
@@ -31032,9 +31868,10 @@
    function resize(array, new_size){
     var old_size = array[2].length - 1, _ab_ = old_size < new_size ? 1 : 0;
     if(_ab_){
-      /*<<camlinternalOO.ml:146:19>>*/ var
+     var
       new_buck =
-         /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect(new_size, dummy_met);
+         /*<<camlinternalOO.ml:146:19>>*/  /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect
+         (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;
@@ -31045,8 +31882,8 @@
     return _ac_;
     /*<<camlinternalOO.ml:149:4>>*/ }
    var
-     /*<<camlinternalOO.ml:157:19>>*/ method_count = [0, 0],
-     /*<<camlinternalOO.ml:158:21>>*/ inst_var_count = [0, 0],
+    method_count =  /*<<camlinternalOO.ml:157:19>>*/ [0, 0],
+    inst_var_count =  /*<<camlinternalOO.ml:158:21>>*/ [0, 0],
     _a_ = [0, cst_camlinternalOO_ml, 279, 50],
     _b_ = [0, cst_camlinternalOO_ml, 407, 13],
     _c_ = [0, cst_camlinternalOO_ml, 410, 13],
@@ -31061,15 +31898,16 @@
     /*<<camlinternalOO.ml:166:7>>*/ }
    function get_method_label(table, name){
      /*<<camlinternalOO.ml:169:2>>*/ try{
-      /*<<camlinternalOO.ml:170:4>>*/ var
+     var
       _$_ =
-         /*<<camlinternalOO.ml:170:4>>*/ caml_call2(Meths[17], name, table[3]);
+         /*<<camlinternalOO.ml:170:4>>*/  /*<<camlinternalOO.ml:170:4>>*/ caml_call2
+         (Meths[17], name, table[3]);
       /*<<camlinternalOO.ml:170:4>>*/ return _$_;
     }
     catch(_aa_){
      var ___ = caml_wrap_exception(_aa_);
      if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
-      /*<<camlinternalOO.ml:172:16>>*/ var label = new_method(table);
+     var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
      table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
        (Meths[2], name, label, table[3]);
@@ -31097,9 +31935,9 @@
     /*<<camlinternalOO.ml:185:64>>*/ }
    function get_method(table, label){
      /*<<camlinternalOO.ml:188:2>>*/ try{
-      /*<<camlinternalOO.ml:188:6>>*/ var
+     var
       _X_ =
-         /*<<camlinternalOO.ml:188:6>>*/ caml_call2
+         /*<<camlinternalOO.ml:188:6>>*/  /*<<camlinternalOO.ml:188:6>>*/ caml_call2
          (Stdlib_List[49], label, table[6]);
       /*<<camlinternalOO.ml:188:6>>*/ return _X_;
     }
@@ -31120,16 +31958,16 @@
     /*<<camlinternalOO.ml:192:54>>*/ }
    function narrow(table, vars, virt_meths, concr_meths){
     var
-      /*<<camlinternalOO.ml:195:13>>*/ vars$0 = to_list(vars),
-      /*<<camlinternalOO.ml:196:19>>*/ virt_meths$0 = to_list(virt_meths),
-      /*<<camlinternalOO.ml:197:20>>*/ concr_meths$0 = to_list(concr_meths),
-      /*<<camlinternalOO.ml:198:23>>*/ virt_meth_labs =
-        /*<<camlinternalOO.ml:198:23>>*/ caml_call2
+     vars$0 =  /*<<camlinternalOO.ml:195:13>>*/ to_list(vars),
+     virt_meths$0 =  /*<<camlinternalOO.ml:196:19>>*/ to_list(virt_meths),
+     concr_meths$0 =  /*<<camlinternalOO.ml:197:20>>*/ to_list(concr_meths),
+     virt_meth_labs =
+        /*<<camlinternalOO.ml:198:23>>*/  /*<<camlinternalOO.ml:198:23>>*/ caml_call2
         (Stdlib_List[20],
          function(_V_){ /*<<?>>*/ return get_method_label(table, _V_);},
          virt_meths$0),
-      /*<<camlinternalOO.ml:199:24>>*/ concr_meth_labs =
-        /*<<camlinternalOO.ml:199:24>>*/ caml_call2
+     concr_meth_labs =
+        /*<<camlinternalOO.ml:199:24>>*/  /*<<camlinternalOO.ml:199:24>>*/ caml_call2
         (Stdlib_List[20],
          function(_U_){ /*<<?>>*/ return get_method_label(table, _U_);},
          concr_meths$0);
@@ -31150,8 +31988,8 @@
        table[7],
        Vars[1]);
     var
-      /*<<camlinternalOO.ml:209:16>>*/ by_name = [0, Meths[1]],
-      /*<<camlinternalOO.ml:210:17>>*/ by_label = [0, Labs[1]];
+     by_name =  /*<<camlinternalOO.ml:209:16>>*/ [0, Meths[1]],
+     by_label =  /*<<camlinternalOO.ml:210:17>>*/ [0, Labs[1]];
      /*<<camlinternalOO.ml:211:2>>*/  /*<<camlinternalOO.ml:211:2>>*/ caml_call3
      (Stdlib_List[28],
       function(met, label){
@@ -31161,8 +31999,8 @@
        var _P_ = by_label[1];
        try{
         var
-          /*<<camlinternalOO.ml:216:17>>*/ _S_ =
-            /*<<camlinternalOO.ml:216:17>>*/ caml_call2
+         _S_ =
+            /*<<camlinternalOO.ml:216:17>>*/  /*<<camlinternalOO.ml:216:17>>*/ caml_call2
             (Labs[17], label, table[4]),
          _R_ = _S_;
        }
@@ -31208,8 +32046,9 @@
     /*<<camlinternalOO.ml:231:9>>*/ }
    function widen(table){
     var
-      /*<<camlinternalOO.ml:235:4>>*/ match =
-        /*<<camlinternalOO.ml:235:4>>*/ caml_call1(Stdlib_List[6], table[5]),
+     match =
+        /*<<camlinternalOO.ml:235:4>>*/  /*<<camlinternalOO.ml:235:4>>*/ caml_call1
+        (Stdlib_List[6], table[5]),
      vars = match[6],
      virt_meths = match[5],
      saved_vars = match[4],
@@ -31222,9 +32061,10 @@
       /*<<camlinternalOO.ml:239:5>>*/ caml_call3
       (Stdlib_List[26],
        function(s, v){
-         /*<<camlinternalOO.ml:240:30>>*/ var
+        var
          _O_ =
-            /*<<camlinternalOO.ml:240:30>>*/ caml_call2(Vars[17], v, table[7]);
+            /*<<camlinternalOO.ml:240:30>>*/  /*<<camlinternalOO.ml:240:30>>*/ caml_call2
+            (Vars[17], v, table[7]);
          /*<<camlinternalOO.ml:240:19>>*/ return  /*<<camlinternalOO.ml:240:19>>*/ caml_call3
                 (Vars[2], v, _O_, s);
         /*<<camlinternalOO.ml:240:56>>*/ },
@@ -31248,9 +32088,10 @@
     /*<<camlinternalOO.ml:249:25>>*/ }
    function new_variable(table, name){
      /*<<camlinternalOO.ml:257:2>>*/ try{
-      /*<<camlinternalOO.ml:257:6>>*/ var
+     var
       _M_ =
-         /*<<camlinternalOO.ml:257:6>>*/ caml_call2(Vars[17], name, table[7]);
+         /*<<camlinternalOO.ml:257:6>>*/  /*<<camlinternalOO.ml:257:6>>*/ caml_call2
+         (Vars[17], name, table[7]);
       /*<<camlinternalOO.ml:257:6>>*/ return _M_;
     }
     catch(_N_){
@@ -31273,34 +32114,38 @@
     /*<<camlinternalOO.ml:264:41>>*/ }
    function new_methods_variables(table, meths, vals){
     var
-      /*<<camlinternalOO.ml:267:14>>*/ meths$0 = to_array(meths),
-      /*<<camlinternalOO.ml:268:2>>*/ nmeths = meths$0.length - 1,
+     meths$0 =  /*<<camlinternalOO.ml:267:14>>*/ to_array(meths),
+     nmeths =  /*<<camlinternalOO.ml:268:2>>*/ 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:270:2>>*/ _D_ = nmeths - 1 | 0,
-      /*<<camlinternalOO.ml:269:12>>*/ _C_ = 0;
+     res =
+        /*<<camlinternalOO.ml:269:12>>*/  /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect
+        (nmeths + nvals | 0, 0),
+     _D_ =  /*<<camlinternalOO.ml:270:2>>*/ nmeths - 1 | 0,
+     _C_ =  /*<<camlinternalOO.ml:269:12>>*/ 0;
     if(_D_ >= 0){
      var i$0 = _C_;
      for(;;){
-       /*<<camlinternalOO.ml:271:15>>*/ var
-       _J_ = get_method_label(table, caml_check_bound(meths$0, i$0)[1 + i$0]);
+      var
+       _J_ =
+          /*<<camlinternalOO.ml:271:15>>*/ get_method_label
+          (table, caml_check_bound(meths$0, i$0)[1 + i$0]);
        /*<<camlinternalOO.ml:271:4>>*/ caml_check_bound(res, i$0)[1 + i$0] = _J_;
-       /*<<camlinternalOO.ml:271:4>>*/ var _K_ = i$0 + 1 | 0;
+      var _K_ =  /*<<camlinternalOO.ml:271:4>>*/ i$0 + 1 | 0;
       if(_D_ === i$0) break;
       i$0 = _K_;
      }
     }
-    var _F_ = nvals - 1 | 0,  /*<<camlinternalOO.ml:273:2>>*/ _E_ = 0;
+    var _F_ = nvals - 1 | 0, _E_ =  /*<<camlinternalOO.ml:273:2>>*/ 0;
     if(_F_ >= 0){
      var i = _E_;
      for(;;){
       var
        _H_ = i + nmeths | 0,
-        /*<<camlinternalOO.ml:274:22>>*/ _G_ =
-         new_variable(table, caml_check_bound(vals, i)[1 + i]);
+       _G_ =
+          /*<<camlinternalOO.ml:274:22>>*/ new_variable
+          (table, caml_check_bound(vals, i)[1 + i]);
        /*<<camlinternalOO.ml:274:4>>*/ caml_check_bound(res, _H_)[1 + _H_] = _G_;
-       /*<<camlinternalOO.ml:274:4>>*/ var _I_ = i + 1 | 0;
+      var _I_ =  /*<<camlinternalOO.ml:274:4>>*/ i + 1 | 0;
       if(_F_ === i) break;
       i = _I_;
      }
@@ -31309,9 +32154,10 @@
     /*<<camlinternalOO.ml:276:5>>*/ }
    function get_variable(table, name){
      /*<<camlinternalOO.ml:279:2>>*/ try{
-      /*<<camlinternalOO.ml:279:6>>*/ var
+     var
       _A_ =
-         /*<<camlinternalOO.ml:279:6>>*/ caml_call2(Vars[17], name, table[7]);
+         /*<<camlinternalOO.ml:279:6>>*/  /*<<camlinternalOO.ml:279:6>>*/ caml_call2
+         (Vars[17], name, table[7]);
       /*<<camlinternalOO.ml:279:6>>*/ return _A_;
     }
     catch(_B_){
@@ -31336,10 +32182,10 @@
      /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
       /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]);
     var
-      /*<<camlinternalOO.ml:301:13>>*/ tags =
-        /*<<camlinternalOO.ml:301:13>>*/ caml_call2
+     tags =
+        /*<<camlinternalOO.ml:301:13>>*/  /*<<camlinternalOO.ml:301:13>>*/ caml_call2
         (Stdlib_Array[14], public_method_label, public_methods),
-      /*<<camlinternalOO.ml:302:14>>*/ table = new_table(tags);
+     table =  /*<<camlinternalOO.ml:302:14>>*/ new_table(tags);
      /*<<camlinternalOO.ml:303:2>>*/  /*<<camlinternalOO.ml:303:2>>*/ caml_call2
      (Stdlib_Array[13],
       function(i, met){
@@ -31360,7 +32206,7 @@
      (inst_var_count[1] + table[1] | 0) - 1 | 0;
     table[8] =
       /*<<camlinternalOO.ml:313:24>>*/ caml_call1(Stdlib_List[10], table[8]);
-     /*<<camlinternalOO.ml:314:2>>*/ var _x_ = Stdlib_Sys[9];
+    var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
     return resize
             (table,
              3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0);
@@ -31376,7 +32222,7 @@
         :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1(super$0, cla);
      /*<<camlinternalOO.ml:320:2>>*/ widen(cla);
     var
-      /*<<camlinternalOO.ml:326:7>>*/ _s_ = to_array(concr_meths),
+     _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
      _t_ =
        [0,
          /*<<camlinternalOO.ml:324:5>>*/ caml_call2
@@ -31387,9 +32233,9 @@
            /*<<camlinternalOO.ml:325:79>>*/ },
           _s_),
         0],
-      /*<<camlinternalOO.ml:323:45>>*/ _u_ = to_array(vals),
-      /*<<camlinternalOO.ml:322:4>>*/ _v_ =
-       [0,
+     _u_ =  /*<<camlinternalOO.ml:323:45>>*/ to_array(vals),
+     _v_ =
+        /*<<camlinternalOO.ml:322:4>>*/ [0,
         [0, init],
         [0,
           /*<<camlinternalOO.ml:323:16>>*/ caml_call2
@@ -31402,9 +32248,10 @@
    }
    function make_class(pub_meths, class_init){
     var
-      /*<<camlinternalOO.ml:329:14>>*/ table = create_table(pub_meths),
-      /*<<camlinternalOO.ml:330:17>>*/ env_init =
-        /*<<camlinternalOO.ml:330:17>>*/ caml_call1(class_init, table);
+     table =  /*<<camlinternalOO.ml:329:14>>*/ create_table(pub_meths),
+     env_init =
+        /*<<camlinternalOO.ml:330:17>>*/  /*<<camlinternalOO.ml:330:17>>*/ caml_call1
+        (class_init, table);
      /*<<camlinternalOO.ml:331:2>>*/ init_class(table);
      /*<<camlinternalOO.ml:332:2>>*/ return [0,
              /*<<camlinternalOO.ml:332:3>>*/ caml_call1(env_init, 0),
@@ -31414,9 +32261,10 @@
     /*<<camlinternalOO.ml:332:59>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
     var
-      /*<<camlinternalOO.ml:338:14>>*/ table = create_table(pub_meths),
-      /*<<camlinternalOO.ml:339:17>>*/ env_init =
-        /*<<camlinternalOO.ml:339:17>>*/ caml_call1(class_init, table);
+     table =  /*<<camlinternalOO.ml:338:14>>*/ create_table(pub_meths),
+     env_init =
+        /*<<camlinternalOO.ml:339:17>>*/  /*<<camlinternalOO.ml:339:17>>*/ caml_call1
+        (class_init, table);
      /*<<camlinternalOO.ml:340:2>>*/ init_class(table);
     init_table[2] = class_init;
     init_table[1] = env_init;
@@ -31430,9 +32278,9 @@
      /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0];
     /*<<camlinternalOO.ml:346:45>>*/ }
    function create_object(table){
-     /*<<camlinternalOO.ml:352:12>>*/ var
+    var
      obj =
-        /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
+        /*<<camlinternalOO.ml:352:12>>*/  /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:354:2>>*/ obj[1] = table[2];
      /*<<camlinternalOO.ml:355:10>>*/ return  /*<<camlinternalOO.ml:355:10>>*/ caml_set_oo_id
@@ -31441,9 +32289,9 @@
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:358:35>>*/ return obj_0;
-     /*<<camlinternalOO.ml:360:14>>*/ var
+    var
      obj =
-        /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
+        /*<<camlinternalOO.ml:360:14>>*/  /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:362:4>>*/ obj[1] = table[2];
      /*<<camlinternalOO.ml:363:12>>*/ return  /*<<camlinternalOO.ml:363:12>>*/ caml_set_oo_id
@@ -31473,7 +32321,7 @@
    function create_object_and_run_initiali(obj_0, table){
      /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:384:35>>*/ return obj_0;
-     /*<<camlinternalOO.ml:385:14>>*/ var obj = create_object(table);
+    var obj =  /*<<camlinternalOO.ml:385:14>>*/ create_object(table);
      /*<<camlinternalOO.ml:386:4>>*/ run_initializers(obj, table);
      /*<<camlinternalOO.ml:386:4>>*/ return obj;
     /*<<camlinternalOO.ml:388:5>>*/ }
@@ -31485,15 +32333,15 @@
     /*<<camlinternalOO.ml:417:30>>*/ }
    function build_path(n, keys, tables){
     var
-      /*<<camlinternalOO.ml:423:17>>*/ res = [0, 0, 0, 0],
-      /*<<camlinternalOO.ml:424:10>>*/ r = [0, res],
-      /*<<camlinternalOO.ml:424:10>>*/ _o_ = 0;
+     res =  /*<<camlinternalOO.ml:423:17>>*/ [0, 0, 0, 0],
+     r =  /*<<camlinternalOO.ml:424:10>>*/ [0, res],
+     _o_ =  /*<<camlinternalOO.ml:424:10>>*/ 0;
     if(n >= 0){
      var i = _o_;
      for(;;){
       var _p_ = r[1];
       r[1] = [0, caml_check_bound(keys, i)[1 + i], _p_, 0];
-       /*<<camlinternalOO.ml:425:2>>*/ var _q_ = i + 1 | 0;
+      var _q_ =  /*<<camlinternalOO.ml:425:2>>*/ i + 1 | 0;
       if(n === i) break;
       i = _q_;
      }
@@ -31506,7 +32354,7 @@
      /*<<camlinternalOO.ml:428:2>>*/ return res;
     /*<<camlinternalOO.ml:429:5>>*/ }
    function lookup_tables(root, keys){
-     /*<<camlinternalOO.ml:451:8>>*/ var root_data = get_data(root);
+    var root_data =  /*<<camlinternalOO.ml:451:8>>*/ get_data(root);
     if(! root_data)
       /*<<camlinternalOO.ml:455:4>>*/ return build_path
              (keys.length - 2 | 0, keys, root);
@@ -31514,7 +32362,7 @@
      /*<<camlinternalOO.ml:432:2>>*/ for(;;){
      if(0 > i)  /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
      var
-       /*<<camlinternalOO.ml:433:12>>*/ key = caml_check_bound(keys, i)[1 + i],
+      key =  /*<<camlinternalOO.ml:433:12>>*/ caml_check_bound(keys, i)[1 + i],
       tables$1 = tables$0;
       /*<<camlinternalOO.ml:435:4>>*/ for(;;){
       if(! tables$1)
@@ -31524,9 +32372,9 @@
       if(! tables$1)
         /*<<camlinternalOO.ml:419:13>>*/ throw  /*<<camlinternalOO.ml:419:13>>*/ caml_maybe_attach_backtrace
               ([0, Assert_failure, _f_], 1);
-       /*<<camlinternalOO.ml:420:19>>*/ var tables = tables$1[3];
+      var tables =  /*<<camlinternalOO.ml:420:19>>*/ tables$1[3];
       if(! tables){
-        /*<<camlinternalOO.ml:444:35>>*/ var next = [0, key, 0, 0];
+       var next =  /*<<camlinternalOO.ml:444:35>>*/ [0, key, 0, 0];
        if(! tables$1)
          /*<<camlinternalOO.ml:410:13>>*/ throw  /*<<camlinternalOO.ml:410:13>>*/ caml_maybe_attach_backtrace
                ([0, Assert_failure, _c_], 1);
@@ -31536,7 +32384,7 @@
       }
       tables$1 = tables;
      }
-      /*<<camlinternalOO.ml:436:12>>*/ var tables_data = get_data(tables$1);
+     var tables_data =  /*<<camlinternalOO.ml:436:12>>*/ get_data(tables$1);
      if(! tables_data)
        /*<<camlinternalOO.ml:437:17>>*/ throw  /*<<camlinternalOO.ml:437:17>>*/ caml_maybe_attach_backtrace
              ([0, Assert_failure, _g_], 1);
@@ -31546,7 +32394,7 @@
     }
     /*<<camlinternalOO.ml:455:48>>*/ }
    function new_cache(table){
-     /*<<camlinternalOO.ml:507:10>>*/ var n = new_method(table);
+    var n =  /*<<camlinternalOO.ml:507:10>>*/ new_method(table);
     a:
     {
      if(0 !== (n % 2 | 0)){
@@ -31567,13 +32415,14 @@
    function set_methods(table, methods){
     var
      len = methods.length - 1,
-      /*<<camlinternalOO.ml:598:44>>*/ i = [0, 0];
+     i =  /*<<camlinternalOO.ml:598:44>>*/ [0, 0];
     for(;;){
      if(i[1] >= len) return 0;
      var
       _h_ = i[1],
-       /*<<camlinternalOO.ml:600:16>>*/ label =
-        caml_check_bound(methods, _h_)[1 + _h_],
+      label =
+         /*<<camlinternalOO.ml:600:16>>*/ caml_check_bound(methods, _h_)
+         [1 + _h_],
       next =
         function(param){
           /*<<camlinternalOO.ml:543:16>>*/ i[1]++;
@@ -31582,11 +32431,11 @@
                   (methods, _m_)
                  [1 + _m_];
          /*<<camlinternalOO.ml:543:42>>*/ },
-       /*<<camlinternalOO.ml:544:8>>*/ clo = next(0);
+      clo =  /*<<camlinternalOO.ml:544:8>>*/ next(0);
      if(typeof clo === "number")
       switch(clo){
         case 0:
-          /*<<camlinternalOO.ml:545:28>>*/ var x = next(0);
+         var x =  /*<<camlinternalOO.ml:545:28>>*/ next(0);
          let x$20 = x;
          var
           clo$0 =
@@ -31595,7 +32444,7 @@
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
-          /*<<camlinternalOO.ml:546:24>>*/ var n = next(0);
+         var n =  /*<<camlinternalOO.ml:546:24>>*/ next(0);
          let n$38 = n;
          var
           clo$0 =
@@ -31605,8 +32454,8 @@
          break;
         case 2:
          var
-           /*<<camlinternalOO.ml:547:24>>*/ e = next(0),
-           /*<<camlinternalOO.ml:547:42>>*/ n$0 = next(0);
+          e =  /*<<camlinternalOO.ml:547:24>>*/ next(0),
+          n$0 =  /*<<camlinternalOO.ml:547:42>>*/ next(0);
          let e$10 = e, n$37 = n$0;
          var
           clo$0 =
@@ -31615,7 +32464,7 @@
              /*<<camlinternalOO.ml:463:65>>*/ };
          break;
         case 3:
-          /*<<camlinternalOO.ml:548:24>>*/ var n$1 = next(0);
+         var n$1 =  /*<<camlinternalOO.ml:548:24>>*/ next(0);
          let n$36 = n$1;
          var
           clo$0 =
@@ -31625,7 +32474,7 @@
              /*<<camlinternalOO.ml:464:48>>*/ };
          break;
         case 4:
-          /*<<camlinternalOO.ml:549:24>>*/ var n$2 = next(0);
+         var n$2 =  /*<<camlinternalOO.ml:549:24>>*/ next(0);
          let n$35 = n$2;
          var
           clo$0 =
@@ -31636,8 +32485,8 @@
          break;
         case 5:
          var
-           /*<<camlinternalOO.ml:550:24>>*/ f = next(0),
-           /*<<camlinternalOO.ml:550:42>>*/ x$0 = next(0);
+          f =  /*<<camlinternalOO.ml:550:24>>*/ next(0),
+          x$0 =  /*<<camlinternalOO.ml:550:42>>*/ next(0);
          let f$20 = f, x$19 = x$0;
          var
           clo$0 =
@@ -31648,8 +32497,8 @@
          break;
         case 6:
          var
-           /*<<camlinternalOO.ml:551:24>>*/ f$0 = next(0),
-           /*<<camlinternalOO.ml:551:42>>*/ n$3 = next(0);
+          f$0 =  /*<<camlinternalOO.ml:551:24>>*/ next(0),
+          n$3 =  /*<<camlinternalOO.ml:551:42>>*/ next(0);
          let f$19 = f$0, n$34 = n$3;
          var
           clo$0 =
@@ -31660,9 +32509,9 @@
          break;
         case 7:
          var
-           /*<<camlinternalOO.ml:553:14>>*/ f$1 = next(0),
-           /*<<camlinternalOO.ml:553:33>>*/ e$0 = next(0),
-           /*<<camlinternalOO.ml:553:51>>*/ n$4 = next(0);
+          f$1 =  /*<<camlinternalOO.ml:553:14>>*/ next(0),
+          e$0 =  /*<<camlinternalOO.ml:553:33>>*/ next(0),
+          n$4 =  /*<<camlinternalOO.ml:553:51>>*/ next(0);
          let f$18 = f$1, e$9 = e$0, n$33 = n$4;
          var
           clo$0 =
@@ -31673,8 +32522,8 @@
          break;
         case 8:
          var
-           /*<<camlinternalOO.ml:555:24>>*/ f$2 = next(0),
-           /*<<camlinternalOO.ml:555:42>>*/ n$5 = next(0);
+          f$2 =  /*<<camlinternalOO.ml:555:24>>*/ next(0),
+          n$5 =  /*<<camlinternalOO.ml:555:42>>*/ next(0);
          let f$17 = f$2, n$32 = n$5;
          var
           clo$0 =
@@ -31687,9 +32536,9 @@
          break;
         case 9:
          var
-           /*<<camlinternalOO.ml:557:14>>*/ f$3 = next(0),
-           /*<<camlinternalOO.ml:557:32>>*/ x$1 = next(0),
-           /*<<camlinternalOO.ml:557:50>>*/ y = next(0);
+          f$3 =  /*<<camlinternalOO.ml:557:14>>*/ next(0),
+          x$1 =  /*<<camlinternalOO.ml:557:32>>*/ next(0),
+          y =  /*<<camlinternalOO.ml:557:50>>*/ next(0);
          let f$16 = f$3, x$18 = x$1, y$0 = y;
          var
           clo$0 =
@@ -31700,9 +32549,9 @@
          break;
         case 10:
          var
-           /*<<camlinternalOO.ml:560:14>>*/ f$4 = next(0),
-           /*<<camlinternalOO.ml:560:32>>*/ x$2 = next(0),
-           /*<<camlinternalOO.ml:560:50>>*/ n$6 = next(0);
+          f$4 =  /*<<camlinternalOO.ml:560:14>>*/ next(0),
+          x$2 =  /*<<camlinternalOO.ml:560:32>>*/ next(0),
+          n$6 =  /*<<camlinternalOO.ml:560:50>>*/ next(0);
          let f$15 = f$4, x$17 = x$2, n$31 = n$6;
          var
           clo$0 =
@@ -31713,10 +32562,10 @@
          break;
         case 11:
          var
-           /*<<camlinternalOO.ml:563:14>>*/ f$5 = next(0),
-           /*<<camlinternalOO.ml:563:32>>*/ x$3 = next(0),
-           /*<<camlinternalOO.ml:563:50>>*/ e$1 = next(0),
-           /*<<camlinternalOO.ml:563:69>>*/ n$7 = next(0);
+          f$5 =  /*<<camlinternalOO.ml:563:14>>*/ next(0),
+          x$3 =  /*<<camlinternalOO.ml:563:32>>*/ next(0),
+          e$1 =  /*<<camlinternalOO.ml:563:50>>*/ next(0),
+          n$7 =  /*<<camlinternalOO.ml:563:69>>*/ next(0);
          let f$14 = f$5, x$16 = x$3, e$8 = e$1, n$30 = n$7;
          var
           clo$0 =
@@ -31727,9 +32576,9 @@
          break;
         case 12:
          var
-           /*<<camlinternalOO.ml:566:14>>*/ f$6 = next(0),
-           /*<<camlinternalOO.ml:566:32>>*/ x$4 = next(0),
-           /*<<camlinternalOO.ml:566:50>>*/ n$8 = next(0);
+          f$6 =  /*<<camlinternalOO.ml:566:14>>*/ next(0),
+          x$4 =  /*<<camlinternalOO.ml:566:32>>*/ next(0),
+          n$8 =  /*<<camlinternalOO.ml:566:50>>*/ next(0);
          let f$13 = f$6, x$15 = x$4, n$29 = n$8;
          var
           clo$0 =
@@ -31743,9 +32592,9 @@
          break;
         case 13:
          var
-           /*<<camlinternalOO.ml:569:14>>*/ f$7 = next(0),
-           /*<<camlinternalOO.ml:569:32>>*/ n$9 = next(0),
-           /*<<camlinternalOO.ml:569:50>>*/ x$5 = next(0);
+          f$7 =  /*<<camlinternalOO.ml:569:14>>*/ next(0),
+          n$9 =  /*<<camlinternalOO.ml:569:32>>*/ next(0),
+          x$5 =  /*<<camlinternalOO.ml:569:50>>*/ next(0);
          let f$12 = f$7, n$28 = n$9, x$14 = x$5;
          var
           clo$0 =
@@ -31756,10 +32605,10 @@
          break;
         case 14:
          var
-           /*<<camlinternalOO.ml:572:14>>*/ f$8 = next(0),
-           /*<<camlinternalOO.ml:572:32>>*/ e$2 = next(0),
-           /*<<camlinternalOO.ml:572:51>>*/ n$10 = next(0),
-           /*<<camlinternalOO.ml:572:69>>*/ x$6 = next(0);
+          f$8 =  /*<<camlinternalOO.ml:572:14>>*/ next(0),
+          e$2 =  /*<<camlinternalOO.ml:572:32>>*/ next(0),
+          n$10 =  /*<<camlinternalOO.ml:572:51>>*/ next(0),
+          x$6 =  /*<<camlinternalOO.ml:572:69>>*/ next(0);
          let f$11 = f$8, e$7 = e$2, n$27 = n$10, x$13 = x$6;
          var
           clo$0 =
@@ -31770,9 +32619,9 @@
          break;
         case 15:
          var
-           /*<<camlinternalOO.ml:575:14>>*/ f$9 = next(0),
-           /*<<camlinternalOO.ml:575:32>>*/ n$11 = next(0),
-           /*<<camlinternalOO.ml:575:50>>*/ x$7 = next(0);
+          f$9 =  /*<<camlinternalOO.ml:575:14>>*/ next(0),
+          n$11 =  /*<<camlinternalOO.ml:575:32>>*/ next(0),
+          x$7 =  /*<<camlinternalOO.ml:575:50>>*/ next(0);
          let f$10 = f$9, n$26 = n$11, x$12 = x$7;
          var
           clo$0 =
@@ -31786,8 +32635,8 @@
          break;
         case 16:
          var
-           /*<<camlinternalOO.ml:578:14>>*/ n$12 = next(0),
-           /*<<camlinternalOO.ml:578:32>>*/ x$8 = next(0);
+          n$12 =  /*<<camlinternalOO.ml:578:14>>*/ next(0),
+          x$8 =  /*<<camlinternalOO.ml:578:32>>*/ next(0);
          let n$25 = n$12, x$11 = x$8;
          var
           clo$0 =
@@ -31798,8 +32647,8 @@
          break;
         case 17:
          var
-           /*<<camlinternalOO.ml:580:14>>*/ n$13 = next(0),
-           /*<<camlinternalOO.ml:580:32>>*/ m = next(0);
+          n$13 =  /*<<camlinternalOO.ml:580:14>>*/ next(0),
+          m =  /*<<camlinternalOO.ml:580:32>>*/ next(0);
          let n$24 = n$13, m$12 = m;
          var
           clo$0 =
@@ -31810,9 +32659,9 @@
          break;
         case 18:
          var
-           /*<<camlinternalOO.ml:582:14>>*/ n$14 = next(0),
-           /*<<camlinternalOO.ml:582:32>>*/ e$3 = next(0),
-           /*<<camlinternalOO.ml:582:50>>*/ m$0 = next(0);
+          n$14 =  /*<<camlinternalOO.ml:582:14>>*/ next(0),
+          e$3 =  /*<<camlinternalOO.ml:582:32>>*/ next(0),
+          m$0 =  /*<<camlinternalOO.ml:582:50>>*/ next(0);
          let n$23 = n$14, e$6 = e$3, m$11 = m$0;
          var
           clo$0 =
@@ -31823,15 +32672,15 @@
          break;
         case 19:
          var
-           /*<<camlinternalOO.ml:585:14>>*/ n$15 = next(0),
-           /*<<camlinternalOO.ml:585:32>>*/ m$1 = next(0);
+          n$15 =  /*<<camlinternalOO.ml:585:14>>*/ next(0),
+          m$1 =  /*<<camlinternalOO.ml:585:32>>*/ next(0);
          let n$22 = n$15, m$10 = m$1;
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:490:44>>*/ var
+             var
               _l_ =
-                 /*<<camlinternalOO.ml:490:44>>*/ caml_call1
+                 /*<<camlinternalOO.ml:490:44>>*/  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
                  (obj[1][1 + m$10], obj);
               /*<<camlinternalOO.ml:490:44>>*/ return  /*<<camlinternalOO.ml:490:44>>*/ caml_call2
                      (obj[1][1 + n$22], obj, _l_);
@@ -31839,8 +32688,8 @@
          break;
         case 20:
          var
-           /*<<camlinternalOO.ml:587:14>>*/ m$2 = next(0),
-           /*<<camlinternalOO.ml:587:32>>*/ x$9 = next(0);
+          m$2 =  /*<<camlinternalOO.ml:587:14>>*/ next(0),
+          x$9 =  /*<<camlinternalOO.ml:587:32>>*/ next(0);
           /*<<camlinternalOO.ml:587:57>>*/ new_cache(table);
          let m$9 = m$2, x$10 = x$9;
          var
@@ -31852,8 +32701,8 @@
          break;
         case 21:
          var
-           /*<<camlinternalOO.ml:589:14>>*/ m$3 = next(0),
-           /*<<camlinternalOO.ml:589:32>>*/ n$16 = next(0);
+          m$3 =  /*<<camlinternalOO.ml:589:14>>*/ next(0),
+          n$16 =  /*<<camlinternalOO.ml:589:32>>*/ next(0);
           /*<<camlinternalOO.ml:589:56>>*/ new_cache(table);
          let m$8 = m$3, n$21 = n$16;
          var
@@ -31865,9 +32714,9 @@
          break;
         case 22:
          var
-           /*<<camlinternalOO.ml:591:14>>*/ m$4 = next(0),
-           /*<<camlinternalOO.ml:591:32>>*/ e$4 = next(0),
-           /*<<camlinternalOO.ml:591:50>>*/ n$17 = next(0);
+          m$4 =  /*<<camlinternalOO.ml:591:14>>*/ next(0),
+          e$4 =  /*<<camlinternalOO.ml:591:32>>*/ next(0),
+          n$17 =  /*<<camlinternalOO.ml:591:50>>*/ next(0);
           /*<<camlinternalOO.ml:592:21>>*/ new_cache(table);
          let m$7 = m$4, e$5 = e$4, n$20 = n$17;
          var
@@ -31879,16 +32728,16 @@
          break;
         default:
          var
-           /*<<camlinternalOO.ml:594:14>>*/ m$5 = next(0),
-           /*<<camlinternalOO.ml:594:32>>*/ n$18 = next(0);
+          m$5 =  /*<<camlinternalOO.ml:594:14>>*/ next(0),
+          n$18 =  /*<<camlinternalOO.ml:594:32>>*/ next(0);
           /*<<camlinternalOO.ml:594:57>>*/ new_cache(table);
          let m$6 = m$5, n$19 = n$18;
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:505:14>>*/ var
+             var
               _i_ =
-                 /*<<camlinternalOO.ml:505:14>>*/ caml_call1
+                 /*<<camlinternalOO.ml:505:14>>*/  /*<<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_);
@@ -31950,7 +32799,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     CamlinternalOO = global_data.CamlinternalOO,
     copy = CamlinternalOO[22],
@@ -31968,12 +32817,12 @@
   (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;
+    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)
@@ -31993,15 +32842,17 @@
    function init_mod_block(loc, comps$0){
     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;
+     modu =
+        /*<<camlinternalMod.ml:53:13>>*/  /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block
+        (0, length),
+     _h_ =  /*<<camlinternalMod.ml:54:2>>*/ length - 1 | 0,
+     _g_ =  /*<<camlinternalMod.ml:53:13>>*/ 0;
     if(_h_ >= 0){
      var i = _g_;
      for(;;){
-       /*<<camlinternalMod.ml:55:30>>*/ var
-       shape = caml_check_bound(comps$0, i)[1 + i];
+      var
+       shape =
+          /*<<camlinternalMod.ml:55:30>>*/ caml_check_bound(comps$0, i)[1 + i];
       if(typeof shape === "number")
        switch(shape){
          case 0:
@@ -32009,7 +32860,7 @@
           var
            fn =
              function(x){
-               /*<<camlinternalMod.ml:28:38>>*/ var fn = modu[1 + i$1];
+              var fn =  /*<<camlinternalMod.ml:28:38>>*/ 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);
@@ -32026,7 +32877,7 @@
            (l,
             [246,
              function(param){
-               /*<<camlinternalMod.ml:37:28>>*/ var l = modu[1 + i$0];
+              var l =  /*<<camlinternalMod.ml:37:28>>*/ 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);
@@ -32050,7 +32901,7 @@
       else
        var v = shape[1], init = v;
        /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
-       /*<<camlinternalMod.ml:55:4>>*/ var _i_ = i + 1 | 0;
+      var _i_ =  /*<<camlinternalMod.ml:55:4>>*/ i + 1 | 0;
       if(_h_ === i) break;
       i = _i_;
      }
@@ -32072,24 +32923,25 @@
       && comps$0.length - 1 <= n.length - 1){
      var
       _e_ = comps$0.length - 2 | 0,
-       /*<<camlinternalMod.ml:82:2>>*/ _d_ = 0;
+      _d_ =  /*<<camlinternalMod.ml:82:2>>*/ 0;
      if(_e_ >= 0){
       var i = _d_;
       for(;;){
        var
-         /*<<camlinternalMod.ml:83:35>>*/ n$0 = n[1 + i],
-         /*<<camlinternalMod.ml:83:25>>*/ shape =
-          caml_check_bound(comps$0, i)[1 + i];
+        n$0 =  /*<<camlinternalMod.ml:83:35>>*/ n[1 + i],
+        shape =
+           /*<<camlinternalMod.ml:83:25>>*/ caml_check_bound(comps$0, i)
+           [1 + i];
        a:
        if(typeof shape === "number"){
         if(2 === shape){
           /*<<camlinternalMod.ml:72:13>>*/ if
           (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
            && 4 === n$0.length - 1){
-          var  /*<<camlinternalMod.ml:73:14>>*/ cl = modu[1 + i], j = 0;
+          var cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i], j = 0;
           for(;;){
             /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
-            /*<<camlinternalMod.ml:75:7>>*/ var _c_ = j + 1 | 0;
+           var _c_ =  /*<<camlinternalMod.ml:75:7>>*/ j + 1 | 0;
            if(3 === j) break;
            j = _c_;
           }
@@ -32105,7 +32957,7 @@
          /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
          (comps, modu[1 + i], n$0);
        }
-        /*<<camlinternalMod.ml:83:4>>*/ var _f_ = i + 1 | 0;
+       var _f_ =  /*<<camlinternalMod.ml:83:4>>*/ i + 1 | 0;
        if(_e_ === i) break;
        i = _f_;
       }
@@ -32136,12 +32988,12 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ 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;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -32174,9 +33026,9 @@
     CamlinternalLazy = global_data.CamlinternalLazy,
     Stdlib_Random = global_data.Stdlib__Random;
    function MakeSeeded(H){
-     /*<<ephemeron.ml:105:20>>*/ var
+    var
      prng =
-       [246,
+        /*<<ephemeron.ml:105:20>>*/ [246,
         function(_at_){ /*<<?>>*/ return caml_call1(Stdlib_Random[19][2], 0);}];
     function create(opt, initial_size){
      var
@@ -32221,13 +33073,13 @@
       /*<<ephemeron.ml:113:6>>*/ h[1] = 0;
      var
       len = h[2].length - 1,
-       /*<<ephemeron.ml:115:6>>*/ _ap_ = len - 1 | 0,
+      _ap_ =  /*<<ephemeron.ml:115:6>>*/ len - 1 | 0,
       _ao_ = 0;
      if(_ap_ >= 0){
       var i = _ao_;
       for(;;){
         /*<<ephemeron.ml:116:8>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-        /*<<ephemeron.ml:116:8>>*/ var _aq_ = i + 1 | 0;
+       var _aq_ =  /*<<ephemeron.ml:116:8>>*/ i + 1 | 0;
        if(_ap_ === i) break;
        i = _aq_;
       }
@@ -32248,8 +33100,9 @@
      var
       _al_ = h[4],
       _am_ = h[3],
-       /*<<ephemeron.ml:128:33>>*/ _an_ =
-         /*<<ephemeron.ml:128:33>>*/ caml_call1(Stdlib_Array[7], h[2]);
+      _an_ =
+         /*<<ephemeron.ml:128:33>>*/  /*<<ephemeron.ml:128:33>>*/ caml_call1
+         (Stdlib_Array[7], h[2]);
       /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_];
      /*<<ephemeron.ml:128:52>>*/ }
     function key_index(h, hkey){
@@ -32276,7 +33129,7 @@
       for(;;){
         /*<<ephemeron.ml:145:8>>*/ d[1 + i] =
         do_bucket(caml_check_bound(d, i)[1 + i]);
-        /*<<ephemeron.ml:145:8>>*/ var _ak_ = i + 1 | 0;
+       var _ak_ =  /*<<ephemeron.ml:145:8>>*/ i + 1 | 0;
        if(_aj_ === i) break;
        i = _ak_;
       }
@@ -32286,15 +33139,17 @@
     function resize(h){
      var
       odata = h[2],
-       /*<<ephemeron.ml:170:6>>*/ osize = odata.length - 1,
+      osize =  /*<<ephemeron.ml:170:6>>*/ odata.length - 1,
       nsize = osize * 2 | 0;
       /*<<ephemeron.ml:172:6>>*/ clean(h);
      var
       _ac_ = nsize < Stdlib_Sys[13] ? 1 : 0,
       _ad_ = _ac_ ? (osize >>> 1 | 0) <= h[1] ? 1 : 0 : _ac_;
      if(_ad_){
-       /*<<ephemeron.ml:174:20>>*/ var
-       ndata =  /*<<ephemeron.ml:174:20>>*/ caml_make_vect(nsize, 0);
+      var
+       ndata =
+          /*<<ephemeron.ml:174:20>>*/  /*<<ephemeron.ml:174:20>>*/ caml_make_vect
+          (nsize, 0);
       h[2] = ndata;
       var
        insert_bucket =
@@ -32303,18 +33158,18 @@
             /*<<ephemeron.ml:177:21>>*/ return;
           var rest = param[3], data = param[2], hkey = param[1];
            /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
-           /*<<ephemeron.ml:180:25>>*/ var nidx = key_index(h, hkey);
+          var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
            /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
            [0, hkey, data, caml_check_bound(ndata, nidx)[1 + nidx]];
           /*<<ephemeron.ml:181:60>>*/ },
-        /*<<ephemeron.ml:170:6>>*/ _af_ = osize - 1 | 0,
-        /*<<ephemeron.ml:182:8>>*/ _ae_ = 0;
+       _af_ =  /*<<ephemeron.ml:170:6>>*/ osize - 1 | 0,
+       _ae_ =  /*<<ephemeron.ml:182:8>>*/ 0;
       if(_af_ >= 0){
        var i = _ae_;
        for(;;){
          /*<<ephemeron.ml:183:10>>*/ insert_bucket
          (caml_check_bound(odata, i)[1 + i]);
-         /*<<ephemeron.ml:183:10>>*/ var _ah_ = i + 1 | 0;
+        var _ah_ =  /*<<ephemeron.ml:183:10>>*/ i + 1 | 0;
         if(_af_ === i) break;
         i = _ah_;
        }
@@ -32327,21 +33182,28 @@
      /*<<ephemeron.ml:185:9>>*/ }
     function add(h, key, info){
      var
-       /*<<ephemeron.ml:188:17>>*/ hkey =
-         /*<<ephemeron.ml:188:17>>*/ caml_call2(H[2], h[3], key),
-       /*<<ephemeron.ml:189:14>>*/ i = key_index(h, hkey),
-       /*<<ephemeron.ml:190:22>>*/ container =
-         /*<<ephemeron.ml:190:22>>*/ caml_call2(H[1], key, info),
-       /*<<ephemeron.ml:191:19>>*/ bucket =
-        [0, hkey, container, caml_check_bound(h[2], i)[1 + i]];
+      hkey =
+         /*<<ephemeron.ml:188:17>>*/  /*<<ephemeron.ml:188:17>>*/ caml_call2
+         (H[2], h[3], key),
+      i =  /*<<ephemeron.ml:189:14>>*/ key_index(h, hkey),
+      container =
+         /*<<ephemeron.ml:190:22>>*/  /*<<ephemeron.ml:190:22>>*/ caml_call2
+         (H[1], key, info),
+      bucket =
+         /*<<ephemeron.ml:191:19>>*/ [0,
+         hkey,
+         container,
+         caml_check_bound(h[2], i)[1 + i]];
       /*<<ephemeron.ml:192:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _ab_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
      return _ab_ ? resize(h) : _ab_;
      /*<<ephemeron.ml:194:57>>*/ }
     function remove(h, key){
-      /*<<ephemeron.ml:197:17>>*/ var
-      hkey =  /*<<ephemeron.ml:197:17>>*/ caml_call2(H[2], h[3], key);
+     var
+      hkey =
+         /*<<ephemeron.ml:197:17>>*/  /*<<ephemeron.ml:197:17>>*/ caml_call2
+         (H[2], h[3], key);
      function remove_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:198:30>>*/ for(;;){
@@ -32364,17 +33226,19 @@
       }
       /*<<ephemeron.ml:210:60>>*/ }
      var
-       /*<<ephemeron.ml:211:14>>*/ i = key_index(h, hkey),
-       /*<<ephemeron.ml:212:20>>*/ _aa_ =
-        remove_bucket(caml_check_bound(h[2], i)[1 + i]);
+      i =  /*<<ephemeron.ml:211:14>>*/ key_index(h, hkey),
+      _aa_ =
+         /*<<ephemeron.ml:212:20>>*/ remove_bucket
+         (caml_check_bound(h[2], i)[1 + i]);
       /*<<ephemeron.ml:212:6>>*/ caml_check_bound(h[2], i)[1 + i] = _aa_;
       /*<<ephemeron.ml:212:6>>*/ return 0;
      /*<<ephemeron.ml:212:44>>*/ }
     function find(h, key){
      var
-       /*<<ephemeron.ml:239:17>>*/ hkey =
-         /*<<ephemeron.ml:239:17>>*/ caml_call2(H[2], h[3], key),
-       /*<<ephemeron.ml:241:33>>*/ _$_ = key_index(h, hkey),
+      hkey =
+         /*<<ephemeron.ml:239:17>>*/  /*<<ephemeron.ml:239:17>>*/ caml_call2
+         (H[2], h[3], key),
+      _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _$_)[1 + _$_];
      for(;;){
       if(! param)
@@ -32384,8 +33248,10 @@
       if(hkey === hk)
        switch( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
          case 0:
-           /*<<ephemeron.ml:224:26>>*/ var
-           match =  /*<<ephemeron.ml:224:26>>*/ caml_call1(H[4], c);
+          var
+           match =
+              /*<<ephemeron.ml:224:26>>*/  /*<<ephemeron.ml:224:26>>*/ caml_call1
+              (H[4], c);
           if(match){var d = match[1];  /*<<ephemeron.ml:229:26>>*/ return d;}
           param = rest;
           break;
@@ -32398,9 +33264,10 @@
      /*<<ephemeron.ml:241:51>>*/ }
     function find_opt(h, key){
      var
-       /*<<ephemeron.ml:264:17>>*/ hkey =
-         /*<<ephemeron.ml:264:17>>*/ caml_call2(H[2], h[3], key),
-       /*<<ephemeron.ml:266:37>>*/ ___ = key_index(h, hkey),
+      hkey =
+         /*<<ephemeron.ml:264:17>>*/  /*<<ephemeron.ml:264:17>>*/ caml_call2
+         (H[2], h[3], key),
+      ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], ___)[1 + ___];
      for(;;){
       if(! param)  /*<<ephemeron.ml:245:10>>*/ return 0;
@@ -32408,8 +33275,10 @@
       if(hkey === hk)
        switch( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
          case 0:
-           /*<<ephemeron.ml:249:26>>*/ var
-           d =  /*<<ephemeron.ml:249:26>>*/ caml_call1(H[4], c);
+          var
+           d =
+              /*<<ephemeron.ml:249:26>>*/  /*<<ephemeron.ml:249:26>>*/ caml_call1
+              (H[4], c);
           if(d)  /*<<ephemeron.ml:254:31>>*/ return d;
           param = rest;
           break;
@@ -32421,8 +33290,10 @@
      }
      /*<<ephemeron.ml:266:55>>*/ }
     function find_all(h, key){
-      /*<<ephemeron.ml:269:17>>*/ var
-      hkey =  /*<<ephemeron.ml:269:17>>*/ caml_call2(H[2], h[3], key);
+     var
+      hkey =
+         /*<<ephemeron.ml:269:17>>*/  /*<<ephemeron.ml:269:17>>*/ caml_call2
+         (H[2], h[3], key);
      function find_in_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:270:31>>*/ for(;;){
@@ -32431,8 +33302,10 @@
        if(hkey === hk)
         switch( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
           case 0:
-            /*<<ephemeron.ml:274:33>>*/ var
-            match =  /*<<ephemeron.ml:274:33>>*/ caml_call1(H[4], c);
+           var
+            match =
+               /*<<ephemeron.ml:274:33>>*/  /*<<ephemeron.ml:274:33>>*/ caml_call1
+               (H[4], c);
            if(match){
             var d = match[1];
              /*<<ephemeron.ml:277:26>>*/ return [0, d, find_in_bucket(rest)];
@@ -32446,16 +33319,17 @@
        else{var rest$0 = param$0[3]; param$0 = rest$0;}
       }
       /*<<ephemeron.ml:284:29>>*/ }
-      /*<<ephemeron.ml:285:29>>*/ var _Z_ = key_index(h, hkey);
+     var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
       /*<<ephemeron.ml:285:21>>*/ return find_in_bucket
              (caml_check_bound(h[2], _Z_)[1 + _Z_]);
      /*<<ephemeron.ml:285:46>>*/ }
     function replace(h, key, info){
      var
-       /*<<ephemeron.ml:289:17>>*/ hkey =
-         /*<<ephemeron.ml:289:17>>*/ caml_call2(H[2], h[3], key),
-       /*<<ephemeron.ml:299:14>>*/ i = key_index(h, hkey),
-       /*<<ephemeron.ml:300:14>>*/ l = caml_check_bound(h[2], i)[1 + i];
+      hkey =
+         /*<<ephemeron.ml:289:17>>*/  /*<<ephemeron.ml:289:17>>*/ caml_call2
+         (H[2], h[3], key),
+      i =  /*<<ephemeron.ml:299:14>>*/ key_index(h, hkey),
+      l =  /*<<ephemeron.ml:300:14>>*/ caml_check_bound(h[2], i)[1 + i];
       /*<<ephemeron.ml:301:6>>*/ try{
       var param = l;
        /*<<ephemeron.ml:290:31>>*/ for(;;){
@@ -32465,8 +33339,10 @@
        var hk = param[1], next = param[3], c = param[2];
        if(hkey === hk){
         if(!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
-          /*<<ephemeron.ml:290:6>>*/ var
-          _V_ =  /*<<ephemeron.ml:290:6>>*/ caml_call3(H[5], c, key, info);
+         var
+          _V_ =
+             /*<<ephemeron.ml:290:6>>*/  /*<<ephemeron.ml:290:6>>*/ caml_call3
+             (H[5], c, key, info);
           /*<<ephemeron.ml:302:8>>*/ return _V_;
         }
         param = next;
@@ -32477,8 +33353,10 @@
      catch(_Y_){
       var _W_ = caml_wrap_exception(_Y_);
       if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
-       /*<<ephemeron.ml:304:24>>*/ var
-       container =  /*<<ephemeron.ml:304:24>>*/ caml_call2(H[1], key, info);
+      var
+       container =
+          /*<<ephemeron.ml:304:24>>*/  /*<<ephemeron.ml:304:24>>*/ caml_call2
+          (H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
       h[1] = h[1] + 1 | 0;
       var _X_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
@@ -32487,9 +33365,10 @@
      /*<<ephemeron.ml:307:59>>*/ }
     function mem(h, key){
      var
-       /*<<ephemeron.ml:310:17>>*/ hkey =
-         /*<<ephemeron.ml:310:17>>*/ caml_call2(H[2], h[3], key),
-       /*<<ephemeron.ml:320:28>>*/ _U_ = key_index(h, hkey),
+      hkey =
+         /*<<ephemeron.ml:310:17>>*/  /*<<ephemeron.ml:310:17>>*/ caml_call2
+         (H[2], h[3], key),
+      _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _U_)[1 + _U_];
       /*<<ephemeron.ml:311:30>>*/ for(;;){
       if(! param)  /*<<ephemeron.ml:313:10>>*/ return 0;
@@ -32511,29 +33390,30 @@
       if(! param$0)  /*<<ephemeron.ml:325:17>>*/ return accu$0;
       var
        rest = param$0[3],
-        /*<<ephemeron.ml:326:28>>*/ accu$1 = accu$0 + 1 | 0;
+       accu$1 =  /*<<ephemeron.ml:326:28>>*/ accu$0 + 1 | 0;
       accu$0 = accu$1;
       param$0 = rest;
      }
     }
     function stats(h){
      var
-       /*<<ephemeron.ml:330:8>>*/ mbl =
-         /*<<ephemeron.ml:330:8>>*/ caml_call3
+      mbl =
+         /*<<ephemeron.ml:330:8>>*/  /*<<ephemeron.ml:330:8>>*/ caml_call3
          (Stdlib_Array[18],
           function(m, b){
-            /*<<ephemeron.ml:330:46>>*/ var _T_ = bucket_length(0, b);
+           var _T_ =  /*<<ephemeron.ml:330:46>>*/ bucket_length(0, b);
             /*<<ephemeron.ml:330:46>>*/ return  /*<<ephemeron.ml:330:46>>*/ caml_call2
                    (Stdlib_Int[11], m, _T_);
            /*<<ephemeron.ml:330:65>>*/ },
           0,
           h[2]),
-       /*<<ephemeron.ml:331:18>>*/ histo =
-         /*<<ephemeron.ml:331:18>>*/ caml_make_vect(mbl + 1 | 0, 0);
+      histo =
+         /*<<ephemeron.ml:331:18>>*/  /*<<ephemeron.ml:331:18>>*/ caml_make_vect
+         (mbl + 1 | 0, 0);
       /*<<ephemeron.ml:332:6>>*/  /*<<ephemeron.ml:332:6>>*/ caml_call2
       (Stdlib_Array[12],
        function(b){
-         /*<<ephemeron.ml:334:19>>*/ var l = bucket_length(0, b);
+        var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
          /*<<ephemeron.ml:335:11>>*/ return 0;
@@ -32557,23 +33437,24 @@
     }
     function stats_alive(h){
      var
-       /*<<ephemeron.ml:349:17>>*/ size = [0, 0],
-       /*<<ephemeron.ml:351:8>>*/ mbl =
-         /*<<ephemeron.ml:351:8>>*/ caml_call3
+      size =  /*<<ephemeron.ml:349:17>>*/ [0, 0],
+      mbl =
+         /*<<ephemeron.ml:351:8>>*/  /*<<ephemeron.ml:351:8>>*/ caml_call3
          (Stdlib_Array[18],
           function(m, b){
-            /*<<ephemeron.ml:352:32>>*/ var _S_ = bucket_length_alive(0, b);
+           var _S_ =  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive(0, b);
             /*<<ephemeron.ml:352:32>>*/ return  /*<<ephemeron.ml:352:32>>*/ caml_call2
                    (Stdlib_Int[11], m, _S_);
            /*<<ephemeron.ml:352:57>>*/ },
           0,
           h[2]),
-       /*<<ephemeron.ml:354:18>>*/ histo =
-         /*<<ephemeron.ml:354:18>>*/ caml_make_vect(mbl + 1 | 0, 0);
+      histo =
+         /*<<ephemeron.ml:354:18>>*/  /*<<ephemeron.ml:354:18>>*/ caml_make_vect
+         (mbl + 1 | 0, 0);
       /*<<ephemeron.ml:355:6>>*/  /*<<ephemeron.ml:355:6>>*/ caml_call2
       (Stdlib_Array[12],
        function(b){
-         /*<<ephemeron.ml:357:19>>*/ var l = bucket_length_alive(0, b);
+        var l =  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive(0, b);
         size[1] = size[1] + l | 0;
          /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
@@ -32605,7 +33486,7 @@
               i);
      /*<<ephemeron.ml:370:47>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:373:16>>*/ var tbl = create(0, 16);
+     var tbl =  /*<<ephemeron.ml:373:16>>*/ create(0, 16);
       /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
       /*<<ephemeron.ml:374:6>>*/ return tbl;
      /*<<ephemeron.ml:375:9>>*/ }
@@ -32634,8 +33515,10 @@
             (Stdlib_Obj[23][1], 1);
     /*<<ephemeron.ml:394:45>>*/ }
    function get_key(t){
-     /*<<ephemeron.ml:396:50>>*/ var
-     x =  /*<<ephemeron.ml:396:50>>*/ caml_call2(Stdlib_Obj[23][3], t, 0);
+    var
+     x =
+        /*<<ephemeron.ml:396:50>>*/  /*<<ephemeron.ml:396:50>>*/ caml_call2
+        (Stdlib_Obj[23][3], t, 0);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:396:70>>*/ }
    function set_key(t, k){
@@ -32647,8 +33530,10 @@
             (Stdlib_Obj[23][7], t, 0);
     /*<<ephemeron.ml:398:59>>*/ }
    function get_data(t){
-     /*<<ephemeron.ml:400:51>>*/ var
-     x =  /*<<ephemeron.ml:400:51>>*/ caml_call1(Stdlib_Obj[23][9], t);
+    var
+     x =
+        /*<<ephemeron.ml:400:51>>*/  /*<<ephemeron.ml:400:51>>*/ caml_call1
+        (Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:400:70>>*/ }
    function set_data(t, d){
@@ -32656,27 +33541,27 @@
             (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:401:75>>*/ }
    function make(key, data){
-     /*<<ephemeron.ml:405:14>>*/ var eph = create(0);
+    var eph =  /*<<ephemeron.ml:405:14>>*/ create(0);
      /*<<ephemeron.ml:406:4>>*/ set_data(eph, data);
      /*<<ephemeron.ml:407:4>>*/ set_key(eph, key);
      /*<<ephemeron.ml:407:4>>*/ return eph;
     /*<<ephemeron.ml:408:7>>*/ }
    function query(eph, key){
-     /*<<ephemeron.ml:411:10>>*/ var match = get_key(eph);
+    var match =  /*<<ephemeron.ml:411:10>>*/ get_key(eph);
     if(! match)  /*<<ephemeron.ml:412:14>>*/ return 0;
     var k = match[1];
     return k === key ? get_data(eph) : 0;
     /*<<ephemeron.ml:414:20>>*/ }
    function MakeSeeded$0(H){
     function create$0(k, d){
-      /*<<ephemeron.ml:421:16>>*/ var c = create(0);
+     var c =  /*<<ephemeron.ml:421:16>>*/ create(0);
       /*<<ephemeron.ml:422:8>>*/ set_data(c, d);
       /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
       /*<<ephemeron.ml:423:8>>*/ return c;
      /*<<ephemeron.ml:424:9>>*/ }
     var seeded_hash = H[2];
     function equal(c, k){
-      /*<<ephemeron.ml:429:14>>*/ var match = get_key(c);
+     var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
      if(! match)  /*<<ephemeron.ml:430:18>>*/ return 2;
      var k$0 = match[1];
       /*<<ephemeron.ml:432:15>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
@@ -32729,8 +33614,10 @@
              (_R_, _a_, sz);
      /*<<ephemeron.ml:448:43>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:448:20>>*/ var
-      tbl =  /*<<ephemeron.ml:448:20>>*/ caml_call2(_R_, _a_, 16);
+     var
+      tbl =
+         /*<<ephemeron.ml:448:20>>*/  /*<<ephemeron.ml:448:20>>*/ caml_call2
+         (_R_, _a_, 16);
       /*<<ephemeron.ml:451:6>>*/  /*<<ephemeron.ml:451:6>>*/ caml_call2
       (replace_seq, tbl, i);
       /*<<ephemeron.ml:451:6>>*/ return tbl;
@@ -32764,7 +33651,7 @@
     return 0;
     /*<<ephemeron.ml:460:42>>*/ }
    function test_key(k, e){
-     /*<<ephemeron.ml:463:12>>*/ var match = get_key(e);
+    var match =  /*<<ephemeron.ml:463:12>>*/ get_key(e);
     if(match){
      var x = match[1];
      if(x === k)  /*<<ephemeron.ml:464:30>>*/ return 1;
@@ -32780,15 +33667,15 @@
       b[1] =  /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
-     var t$0 = l[2],  /*<<ephemeron.ml:472:27>>*/ acc$0 = [0, h, acc];
+     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:472:27>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
     /*<<ephemeron.ml:474:16>>*/ }
    function find(b, k){
-     /*<<ephemeron.ml:477:12>>*/ var
+    var
      match =
-        /*<<ephemeron.ml:477:12>>*/ caml_call2
+        /*<<ephemeron.ml:477:12>>*/  /*<<ephemeron.ml:477:12>>*/ caml_call2
         (Stdlib_List[40],
          function(_P_){ /*<<?>>*/ return test_key(k, _P_);},
          b[1]);
@@ -32808,8 +33695,10 @@
             (Stdlib_Obj[23][1], 2);
     /*<<ephemeron.ml:491:50>>*/ }
    function get_key1(t){
-     /*<<ephemeron.ml:493:57>>*/ var
-     x =  /*<<ephemeron.ml:493:57>>*/ caml_call2(Stdlib_Obj[23][3], t, 0);
+    var
+     x =
+        /*<<ephemeron.ml:493:57>>*/  /*<<ephemeron.ml:493:57>>*/ caml_call2
+        (Stdlib_Obj[23][3], t, 0);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:493:77>>*/ }
    function set_key1(t, k){
@@ -32817,8 +33706,10 @@
             (Stdlib_Obj[23][5], t, 0, k);
     /*<<ephemeron.ml:495:35>>*/ }
    function get_key2(t){
-     /*<<ephemeron.ml:498:57>>*/ var
-     x =  /*<<ephemeron.ml:498:57>>*/ caml_call2(Stdlib_Obj[23][3], t, 1);
+    var
+     x =
+        /*<<ephemeron.ml:498:57>>*/  /*<<ephemeron.ml:498:57>>*/ caml_call2
+        (Stdlib_Obj[23][3], t, 1);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:498:77>>*/ }
    function set_key2(t, k){
@@ -32826,8 +33717,10 @@
             (Stdlib_Obj[23][5], t, 1, k);
     /*<<ephemeron.ml:500:35>>*/ }
    function get_data$0(t){
-     /*<<ephemeron.ml:503:56>>*/ var
-     x =  /*<<ephemeron.ml:503:56>>*/ caml_call1(Stdlib_Obj[23][9], t);
+    var
+     x =
+        /*<<ephemeron.ml:503:56>>*/  /*<<ephemeron.ml:503:56>>*/ caml_call1
+        (Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:503:75>>*/ }
    function set_data$0(t, d){
@@ -32835,18 +33728,18 @@
             (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:505:34>>*/ }
    function make$1(key1, key2, data){
-     /*<<ephemeron.ml:509:14>>*/ var eph = create$0(0);
+    var eph =  /*<<ephemeron.ml:509:14>>*/ create$0(0);
      /*<<ephemeron.ml:510:4>>*/ set_data$0(eph, data);
      /*<<ephemeron.ml:511:4>>*/ set_key1(eph, key1);
      /*<<ephemeron.ml:512:4>>*/ set_key2(eph, key2);
      /*<<ephemeron.ml:514:4>>*/ return eph;
     /*<<ephemeron.ml:514:7>>*/ }
    function query$0(eph, key1, key2){
-     /*<<ephemeron.ml:517:10>>*/ var match = get_key1(eph);
+    var match =  /*<<ephemeron.ml:517:10>>*/ get_key1(eph);
     if(! match)  /*<<ephemeron.ml:518:14>>*/ return 0;
     var k = match[1];
     if(k !== key1)  /*<<ephemeron.ml:525:16>>*/ return 0;
-     /*<<ephemeron.ml:520:20>>*/ var match$0 = get_key2(eph);
+    var match$0 =  /*<<ephemeron.ml:520:20>>*/ get_key2(eph);
     if(! match$0)  /*<<ephemeron.ml:521:18>>*/ return 0;
     var k$0 = match$0[1];
     return k$0 === key2 ? get_data$0(eph) : 0;
@@ -32856,7 +33749,7 @@
      var
       k2 = param[2],
       k1 = param[1],
-       /*<<ephemeron.ml:534:16>>*/ c = create$0(0);
+      c =  /*<<ephemeron.ml:534:16>>*/ create$0(0);
       /*<<ephemeron.ml:535:8>>*/ set_data$0(c, d);
       /*<<ephemeron.ml:536:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:536:23>>*/ set_key2(c, k2);
@@ -32866,8 +33759,11 @@
      var
       k2 = param[2],
       k1 = param[1],
-       /*<<ephemeron.ml:539:33>>*/ _O_ =
-         /*<<ephemeron.ml:539:33>>*/ caml_call2(H2[2], seed, k2) * 65599 | 0;
+      _O_ =
+         /*<<ephemeron.ml:539:33>>*/  /*<<ephemeron.ml:539:33>>*/ caml_call2
+         (H2[2], seed, k2)
+        * 65599
+        | 0;
       /*<<ephemeron.ml:539:8>>*/ return  /*<<ephemeron.ml:539:8>>*/ caml_call2
              (H1[2], seed, k1)
             + _O_
@@ -32877,8 +33773,8 @@
      var
       k2 = param[2],
       k1 = param[1],
-       /*<<ephemeron.ml:541:14>>*/ match = get_key1(c),
-       /*<<ephemeron.ml:541:26>>*/ match$0 = get_key2(c);
+      match =  /*<<ephemeron.ml:541:14>>*/ get_key1(c),
+      match$0 =  /*<<ephemeron.ml:541:26>>*/ get_key2(c);
      if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
        /*<<ephemeron.ml:544:15>>*/ if
@@ -32898,8 +33794,10 @@
       /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d);
     }
     function check_key(c){
-      /*<<ephemeron.ml:496:45>>*/ var
-      _N_ =  /*<<ephemeron.ml:496:45>>*/ caml_call2(Stdlib_Obj[23][7], c, 0);
+     var
+      _N_ =
+         /*<<ephemeron.ml:496:45>>*/  /*<<ephemeron.ml:496:45>>*/ caml_call2
+         (Stdlib_Obj[23][7], c, 0);
       /*<<ephemeron.ml:551:24>>*/ return _N_
              ?  /*<<ephemeron.ml:501:45>>*/ caml_call2
                (Stdlib_Obj[23][7], c, 1)
@@ -32950,8 +33848,10 @@
              (_M_, _b_, sz);
      /*<<ephemeron.ml:568:43>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:568:20>>*/ var
-      tbl =  /*<<ephemeron.ml:568:20>>*/ caml_call2(_M_, _b_, 16);
+     var
+      tbl =
+         /*<<ephemeron.ml:568:20>>*/  /*<<ephemeron.ml:568:20>>*/ caml_call2
+         (_M_, _b_, 16);
       /*<<ephemeron.ml:571:6>>*/  /*<<ephemeron.ml:571:6>>*/ caml_call2
       (replace_seq, tbl, i);
       /*<<ephemeron.ml:571:6>>*/ return tbl;
@@ -32986,8 +33886,8 @@
     /*<<ephemeron.ml:580:50>>*/ }
    function test_keys(k1, k2, e){
     var
-      /*<<ephemeron.ml:583:12>>*/ match = get_key1(e),
-      /*<<ephemeron.ml:583:24>>*/ match$0 = get_key2(e);
+     match =  /*<<ephemeron.ml:583:12>>*/ get_key1(e),
+     match$0 =  /*<<ephemeron.ml:583:24>>*/ get_key2(e);
     if(match && match$0){
      var x2 = match$0[1], x1 = match[1];
      if(x1 === k1 && x2 === k2)  /*<<ephemeron.ml:584:54>>*/ return 1;
@@ -33003,15 +33903,15 @@
       b[1] =  /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
-     var t$0 = l[2],  /*<<ephemeron.ml:592:27>>*/ acc$0 = [0, h, acc];
+     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:592:27>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
     /*<<ephemeron.ml:594:16>>*/ }
    function find$0(b, k1, k2){
-     /*<<ephemeron.ml:597:12>>*/ var
+    var
      match =
-        /*<<ephemeron.ml:597:12>>*/ caml_call2
+        /*<<ephemeron.ml:597:12>>*/  /*<<ephemeron.ml:597:12>>*/ caml_call2
         (Stdlib_List[40],
          function(_K_){ /*<<?>>*/ return test_keys(k1, k2, _K_);},
          b[1]);
@@ -33035,8 +33935,10 @@
             (Stdlib_Obj[23][2], k);
     /*<<ephemeron.ml:612:50>>*/ }
    function get_key$0(t, n){
-     /*<<ephemeron.ml:614:58>>*/ var
-     x =  /*<<ephemeron.ml:614:58>>*/ caml_call2(Stdlib_Obj[23][3], t, n);
+    var
+     x =
+        /*<<ephemeron.ml:614:58>>*/  /*<<ephemeron.ml:614:58>>*/ caml_call2
+        (Stdlib_Obj[23][3], t, n);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:614:78>>*/ }
    function set_key$0(t, n, k){
@@ -33044,8 +33946,10 @@
             (Stdlib_Obj[23][5], t, n, k);
     /*<<ephemeron.ml:616:35>>*/ }
    function get_data$1(t){
-     /*<<ephemeron.ml:619:51>>*/ var
-     x =  /*<<ephemeron.ml:619:51>>*/ caml_call1(Stdlib_Obj[23][9], t);
+    var
+     x =
+        /*<<ephemeron.ml:619:51>>*/  /*<<ephemeron.ml:619:51>>*/ caml_call1
+        (Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:619:70>>*/ }
    function set_data$1(t, d){
@@ -33053,15 +33957,15 @@
             (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:620:75>>*/ }
    function make$3(keys, data){
-    var l = keys.length - 1,  /*<<ephemeron.ml:625:14>>*/ eph = create$1(l);
+    var l = keys.length - 1, eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
      /*<<ephemeron.ml:626:4>>*/ set_data$1(eph, data);
-    var _I_ = l - 1 | 0,  /*<<ephemeron.ml:626:4>>*/ _H_ = 0;
+    var _I_ = l - 1 | 0, _H_ =  /*<<ephemeron.ml:626:4>>*/ 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
        /*<<ephemeron.ml:627:26>>*/ set_key$0
        (eph, i, caml_check_bound(keys, i)[1 + i]);
-       /*<<ephemeron.ml:627:26>>*/ var _J_ = i + 1 | 0;
+      var _J_ =  /*<<ephemeron.ml:627:26>>*/ i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
@@ -33069,18 +33973,18 @@
      /*<<ephemeron.ml:628:4>>*/ return eph;
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
-     /*<<ephemeron.ml:631:12>>*/ var l = length$1(eph);
+    var l =  /*<<ephemeron.ml:631:12>>*/ length$1(eph);
      /*<<ephemeron.ml:632:4>>*/ try{
      if(l !== keys.length - 1)
        /*<<ephemeron.ml:633:37>>*/ throw  /*<<ephemeron.ml:633:37>>*/ caml_maybe_attach_backtrace
              (Stdlib[3], 1);
      var
-       /*<<ephemeron.ml:631:12>>*/ _D_ = l - 1 | 0,
-       /*<<ephemeron.ml:634:6>>*/ _C_ = 0;
+      _D_ =  /*<<ephemeron.ml:631:12>>*/ l - 1 | 0,
+      _C_ =  /*<<ephemeron.ml:634:6>>*/ 0;
      if(_D_ >= 0){
       var i = _C_;
       for(;;){
-        /*<<ephemeron.ml:635:14>>*/ var match = get_key$0(eph, i);
+       var match =  /*<<ephemeron.ml:635:14>>*/ get_key$0(eph, i);
        if(! match)
          /*<<ephemeron.ml:636:18>>*/ throw  /*<<ephemeron.ml:636:18>>*/ caml_maybe_attach_backtrace
                (Stdlib[3], 1);
@@ -33088,12 +33992,12 @@
        if(k !== caml_check_bound(keys, i)[1 + i])
          /*<<ephemeron.ml:638:20>>*/ throw  /*<<ephemeron.ml:638:20>>*/ caml_maybe_attach_backtrace
                (Stdlib[3], 1);
-        /*<<ephemeron.ml:634:6>>*/ var _F_ = i + 1 | 0;
+       var _F_ =  /*<<ephemeron.ml:634:6>>*/ i + 1 | 0;
        if(_D_ === i) break;
        i = _F_;
       }
      }
-      /*<<ephemeron.ml:640:6>>*/ var _E_ = get_data$1(eph);
+     var _E_ =  /*<<ephemeron.ml:640:6>>*/ get_data$1(eph);
       /*<<ephemeron.ml:640:6>>*/ return _E_;
     }
     catch(_G_){
@@ -33104,15 +34008,15 @@
     /*<<ephemeron.ml:641:21>>*/ }
    function MakeSeeded$2(H){
     function create(k, d){
-      /*<<ephemeron.ml:648:16>>*/ var c = create$1(k.length - 1);
+     var c =  /*<<ephemeron.ml:648:16>>*/ create$1(k.length - 1);
       /*<<ephemeron.ml:649:8>>*/ set_data$1(c, d);
-     var _z_ = k.length - 2 | 0,  /*<<ephemeron.ml:649:8>>*/ _y_ = 0;
+     var _z_ = k.length - 2 | 0, _y_ =  /*<<ephemeron.ml:649:8>>*/ 0;
      if(_z_ >= 0){
       var i = _y_;
       for(;;){
         /*<<ephemeron.ml:651:10>>*/ set_key$0
         (c, i, caml_check_bound(k, i)[1 + i]);
-        /*<<ephemeron.ml:651:10>>*/ var _A_ = i + 1 | 0;
+       var _A_ =  /*<<ephemeron.ml:651:10>>*/ i + 1 | 0;
        if(_z_ === i) break;
        i = _A_;
       }
@@ -33121,20 +34025,20 @@
      /*<<ephemeron.ml:653:9>>*/ }
     function seeded_hash(seed, k){
      var
-       /*<<ephemeron.ml:655:16>>*/ h = [0, 0],
+      h =  /*<<ephemeron.ml:655:16>>*/ [0, 0],
       _u_ = k.length - 2 | 0,
-       /*<<ephemeron.ml:655:16>>*/ _t_ = 0;
+      _t_ =  /*<<ephemeron.ml:655:16>>*/ 0;
      if(_u_ >= 0){
       var i = _t_;
       for(;;){
        var
         _v_ = h[1],
-         /*<<ephemeron.ml:657:34>>*/ _w_ = caml_check_bound(k, i)[1 + i];
+        _w_ =  /*<<ephemeron.ml:657:34>>*/ caml_check_bound(k, i)[1 + i];
        h[1] =
         ( /*<<ephemeron.ml:657:15>>*/ caml_call2(H[2], seed, _w_) * 65599 | 0)
         + _v_
         | 0;
-        /*<<ephemeron.ml:656:8>>*/ var _x_ = i + 1 | 0;
+       var _x_ =  /*<<ephemeron.ml:656:8>>*/ i + 1 | 0;
        if(_u_ === i) break;
        i = _x_;
       }
@@ -33142,33 +34046,33 @@
      return h[1];
      /*<<ephemeron.ml:659:10>>*/ }
     function equal(c, k){
-     var len = k.length - 1,  /*<<ephemeron.ml:662:19>>*/ len$0 = length$1(c);
+     var len = k.length - 1, len$0 =  /*<<ephemeron.ml:662:19>>*/ length$1(c);
      if(len !== len$0)  /*<<ephemeron.ml:663:28>>*/ return 1;
-     var  /*<<ephemeron.ml:675:10>>*/ i$1 = len - 1 | 0, i = i$1;
+     var i$1 =  /*<<ephemeron.ml:675:10>>*/ len - 1 | 0, i = i$1;
       /*<<ephemeron.ml:666:12>>*/ for(;;){
       if(0 > i)  /*<<ephemeron.ml:666:26>>*/ return 0;
-       /*<<ephemeron.ml:668:20>>*/ var match = get_key$0(c, i);
+      var match =  /*<<ephemeron.ml:668:20>>*/ get_key$0(c, i);
       if(! match)  /*<<ephemeron.ml:669:24>>*/ return 2;
       var
        ki = match[1],
-        /*<<ephemeron.ml:671:29>>*/ _s_ = caml_check_bound(k, i)[1 + i];
+       _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
        /*<<ephemeron.ml:671:21>>*/ if
        (!  /*<<ephemeron.ml:671:21>>*/ caml_call2(H[1], _s_, ki))
         /*<<ephemeron.ml:673:23>>*/ return 1;
-       /*<<ephemeron.ml:672:23>>*/ var i$0 = i - 1 | 0;
+      var i$0 =  /*<<ephemeron.ml:672:23>>*/ i - 1 | 0;
       i = i$0;
      }
      /*<<ephemeron.ml:675:33>>*/ }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:678:8>>*/  /*<<ephemeron.ml:621:40>>*/ caml_call1
       (Stdlib_Obj[23][12], c);
-     var _q_ = k.length - 2 | 0,  /*<<ephemeron.ml:678:8>>*/ _p_ = 0;
+     var _q_ = k.length - 2 | 0, _p_ =  /*<<ephemeron.ml:678:8>>*/ 0;
      if(_q_ >= 0){
       var i = _p_;
       for(;;){
         /*<<ephemeron.ml:680:10>>*/ set_key$0
         (c, i, caml_check_bound(k, i)[1 + i]);
-        /*<<ephemeron.ml:680:10>>*/ var _r_ = i + 1 | 0;
+       var _r_ =  /*<<ephemeron.ml:680:10>>*/ i + 1 | 0;
        if(_q_ === i) break;
        i = _r_;
       }
@@ -33176,14 +34080,16 @@
       /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d);
      /*<<ephemeron.ml:682:20>>*/ }
     function check_key(c){
-     var  /*<<ephemeron.ml:686:17>>*/ i$1 = length$1(c) - 1 | 0, i = i$1;
+     var i$1 =  /*<<ephemeron.ml:686:17>>*/ length$1(c) - 1 | 0, i = i$1;
       /*<<ephemeron.ml:685:10>>*/ for(;;){
       var _n_ = i < 0 ? 1 : 0;
       if(_n_)
        var _o_ = _n_;
       else{
-        /*<<ephemeron.ml:617:47>>*/ var
-        _m_ =  /*<<ephemeron.ml:617:47>>*/ caml_call2(Stdlib_Obj[23][7], c, i);
+       var
+        _m_ =
+           /*<<ephemeron.ml:617:47>>*/  /*<<ephemeron.ml:617:47>>*/ caml_call2
+           (Stdlib_Obj[23][7], c, i);
         /*<<ephemeron.ml:685:20>>*/ if(_m_){
         var i$0 = i - 1 | 0;
         i = i$0;
@@ -33233,8 +34139,10 @@
              (_l_, _c_, sz);
      /*<<ephemeron.ml:696:43>>*/ }
     function of_seq(i){
-      /*<<ephemeron.ml:696:20>>*/ var
-      tbl =  /*<<ephemeron.ml:696:20>>*/ caml_call2(_l_, _c_, 16);
+     var
+      tbl =
+         /*<<ephemeron.ml:696:20>>*/  /*<<ephemeron.ml:696:20>>*/ caml_call2
+         (_l_, _c_, 16);
       /*<<ephemeron.ml:699:6>>*/  /*<<ephemeron.ml:699:6>>*/ caml_call2
       (replace_seq, tbl, i);
       /*<<ephemeron.ml:699:6>>*/ return tbl;
@@ -33272,15 +34180,15 @@
      if(length$1(e) !== k.length - 1)
        /*<<ephemeron.ml:712:43>>*/ throw  /*<<ephemeron.ml:712:43>>*/ caml_maybe_attach_backtrace
              (Stdlib[3], 1);
-     var _g_ = k.length - 2 | 0,  /*<<ephemeron.ml:713:8>>*/ _f_ = 0;
+     var _g_ = k.length - 2 | 0, _f_ =  /*<<ephemeron.ml:713:8>>*/ 0;
      if(_g_ >= 0){
       var i = _f_;
       for(;;){
-        /*<<ephemeron.ml:714:16>>*/ var match = get_key$0(e, i);
+       var match =  /*<<ephemeron.ml:714:16>>*/ get_key$0(e, i);
        if(match){
         var x = match[1];
         if(x === caml_check_bound(k, i)[1 + i]){
-          /*<<ephemeron.ml:713:8>>*/ var _i_ = i + 1 | 0;
+         var _i_ =  /*<<ephemeron.ml:713:8>>*/ i + 1 | 0;
          if(_g_ === i) break;
          i = _i_;
          continue;
@@ -33290,7 +34198,7 @@
               (Stdlib[3], 1);
       }
      }
-      /*<<ephemeron.ml:718:8>>*/ var _h_ = 1;
+     var _h_ =  /*<<ephemeron.ml:718:8>>*/ 1;
       /*<<ephemeron.ml:718:8>>*/ return _h_;
     }
     catch(_j_){
@@ -33308,15 +34216,15 @@
       b[1] =  /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
-     var t$0 = l[2],  /*<<ephemeron.ml:726:27>>*/ acc$0 = [0, h, acc];
+     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:726:27>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
     /*<<ephemeron.ml:728:16>>*/ }
    function find$1(b, k){
-     /*<<ephemeron.ml:731:12>>*/ var
+    var
      match =
-        /*<<ephemeron.ml:731:12>>*/ caml_call2
+        /*<<ephemeron.ml:731:12>>*/  /*<<ephemeron.ml:731:12>>*/ caml_call2
         (Stdlib_List[40],
          function(_d_){ /*<<?>>*/ return test_keys$0(k, _d_);},
          b[1]);
@@ -33363,29 +34271,29 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ cst$19 = "",
-     /*<<?>>*/ cst$23 = " ",
-     /*<<?>>*/ cst_2$1 = " 2>",
-     /*<<?>>*/ cst_2_1$1 = " 2>&1",
-     /*<<?>>*/ cst$22 = " <",
-     /*<<?>>*/ cst$21 = " >",
-     /*<<?>>*/ cst$20 = '"',
-     /*<<?>>*/ cst$24 = ".",
-     /*<<?>>*/ cst$25 = "..",
-     /*<<?>>*/ cst$28 = "../",
-     /*<<?>>*/ cst$27 = "./",
-     /*<<?>>*/ cst$26 = "/",
-     /*<<?>>*/ cst_dev_null = "/dev/null",
-     /*<<?>>*/ caml_equal = runtime.caml_equal,
-     /*<<?>>*/ 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_getenv = runtime.caml_sys_getenv,
-     /*<<?>>*/ caml_trampoline = runtime.caml_trampoline,
-     /*<<?>>*/ caml_trampoline_return = runtime.caml_trampoline_return,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    cst$19 =  /*<<?>>*/ "",
+    cst$23 =  /*<<?>>*/ " ",
+    cst_2$1 =  /*<<?>>*/ " 2>",
+    cst_2_1$1 =  /*<<?>>*/ " 2>&1",
+    cst$22 =  /*<<?>>*/ " <",
+    cst$21 =  /*<<?>>*/ " >",
+    cst$20 =  /*<<?>>*/ '"',
+    cst$24 =  /*<<?>>*/ ".",
+    cst$25 =  /*<<?>>*/ "..",
+    cst$28 =  /*<<?>>*/ "../",
+    cst$27 =  /*<<?>>*/ "./",
+    cst$26 =  /*<<?>>*/ "/",
+    cst_dev_null =  /*<<?>>*/ "/dev/null",
+    caml_equal =  /*<<?>>*/ runtime.caml_equal,
+    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_getenv =  /*<<?>>*/ runtime.caml_sys_getenv,
+    caml_trampoline =  /*<<?>>*/ runtime.caml_trampoline,
+    caml_trampoline_return =  /*<<?>>*/ runtime.caml_trampoline_return,
+    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)
@@ -33460,10 +34368,10 @@
       /*<<filename.ml:39:12>>*/ if
       (!  /*<<filename.ml:39:12>>*/ caml_call2(is_dir_sep, name, n))
       break;
-      /*<<filename.ml:39:35>>*/ var n$0 = n - 1 | 0;
+     var n$0 =  /*<<filename.ml:39:35>>*/ n - 1 | 0;
      n = n$0;
     }
-    var  /*<<filename.ml:40:9>>*/ p = n + 1 | 0, n$1 = n;
+    var p =  /*<<filename.ml:40:9>>*/ n + 1 | 0, n$1 = n;
      /*<<filename.ml:42:4>>*/ for(;;){
      if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return  /*<<filename.ml:42:18>>*/ caml_call3
@@ -33487,7 +34395,7 @@
       /*<<filename.ml:57:12>>*/ if
       (!  /*<<filename.ml:57:12>>*/ caml_call2(is_dir_sep, name, n))
       break;
-      /*<<filename.ml:57:35>>*/ var n$0 = n - 1 | 0;
+     var n$0 =  /*<<filename.ml:57:35>>*/ n - 1 | 0;
      n = n$0;
     }
     var n$1 = n;
@@ -33496,7 +34404,7 @@
       /*<<filename.ml:61:12>>*/ if
       ( /*<<filename.ml:61:12>>*/ caml_call2(is_dir_sep, name, n$1))
       break;
-      /*<<filename.ml:62:9>>*/ var n$2 = n$1 - 1 | 0;
+     var n$2 =  /*<<filename.ml:62:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
     }
     var n$3 = n$1;
@@ -33508,7 +34416,7 @@
       (!  /*<<filename.ml:65:12>>*/ caml_call2(is_dir_sep, name, n$3))
        /*<<filename.ml:66:9>>*/ return  /*<<filename.ml:66:9>>*/ caml_call3
               (Stdlib_String[16], name, 0, n$3 + 1 | 0);
-      /*<<filename.ml:65:35>>*/ var n$4 = n$3 - 1 | 0;
+     var n$4 =  /*<<filename.ml:65:35>>*/ n$3 - 1 | 0;
      n$3 = n$4;
     }
     /*<<filename.ml:70:44>>*/ }
@@ -33527,7 +34435,7 @@
     return _aI_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
-     /*<<filename.ml:99:4>>*/ var _aC_ = is_relative(n);
+    var _aC_ =  /*<<filename.ml:99:4>>*/ is_relative(n);
      /*<<filename.ml:99:4>>*/ if(_aC_){
      var
       _aD_ = caml_ml_string_length(n) < 2 ? 1 : 0,
@@ -33564,9 +34472,9 @@
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
     if(len_s > len_f)  /*<<filename.ml:114:6>>*/ return 0;
-     /*<<filename.ml:108:14>>*/ var
+    var
      r =
-        /*<<filename.ml:108:14>>*/ caml_call3
+        /*<<filename.ml:108:14>>*/  /*<<filename.ml:108:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s);
      /*<<filename.ml:109:9>>*/ return r === suffix
             ? [0,
@@ -33591,8 +34499,9 @@
     cst_tmp = "/tmp";
    try{
     var
-      /*<<filename.ml:117:8>>*/ _j_ =
-        /*<<filename.ml:117:8>>*/ caml_sys_getenv("TMPDIR"),
+     _j_ =
+        /*<<filename.ml:117:8>>*/  /*<<filename.ml:117:8>>*/ caml_sys_getenv
+        ("TMPDIR"),
      temp_dir_name = _j_;
    }
    catch(_aB_){
@@ -33603,11 +34512,12 @@
    function quote(s){
     var
      l = caml_ml_string_length(s),
-      /*<<filename.ml:18:10>>*/ b =
-        /*<<filename.ml:18:10>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
+     b =
+        /*<<filename.ml:18:10>>*/  /*<<filename.ml:18:10>>*/ caml_call1
+        (Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:19:2>>*/  /*<<filename.ml:19:2>>*/ caml_call2
      (Stdlib_Buffer[12], b, 39);
-    var _ay_ = l - 1 | 0,  /*<<filename.ml:19:2>>*/ _ax_ = 0;
+    var _ay_ = l - 1 | 0, _ax_ =  /*<<filename.ml:19:2>>*/ 0;
     if(_ay_ >= 0){
      var i = _ax_;
      for(;;){
@@ -33616,12 +34526,14 @@
         /*<<filename.ml:22:9>>*/  /*<<filename.ml:22:9>>*/ caml_call2
         (Stdlib_Buffer[16], b, quotequote);
       else{
-        /*<<filename.ml:23:28>>*/ var
-        _aA_ =  /*<<filename.ml:23:28>>*/ caml_string_get(s, i);
+       var
+        _aA_ =
+           /*<<filename.ml:23:28>>*/  /*<<filename.ml:23:28>>*/ caml_string_get
+           (s, i);
         /*<<filename.ml:23:9>>*/  /*<<filename.ml:23:9>>*/ caml_call2
         (Stdlib_Buffer[12], b, _aA_);
       }
-       /*<<filename.ml:23:9>>*/ var _az_ = i + 1 | 0;
+      var _az_ =  /*<<filename.ml:23:9>>*/ i + 1 | 0;
       if(_ay_ === i) break;
       i = _az_;
      }
@@ -33639,7 +34551,7 @@
       var _am_ = cst_2_1;
      else
       var
-        /*<<filename.ml:125:61>>*/ _aw_ = quote(f),
+       _aw_ =  /*<<filename.ml:125:61>>*/ quote(f),
        _am_ =  /*<<filename.ml:125:53>>*/ caml_call2(Stdlib[28], cst_2, _aw_);
      var _an_ = _am_;
     }
@@ -33648,27 +34560,31 @@
     if(stdout)
      var
       f$0 = stdout[1],
-       /*<<filename.ml:122:55>>*/ _ao_ = quote(f$0),
+      _ao_ =  /*<<filename.ml:122:55>>*/ quote(f$0),
       _ap_ =  /*<<filename.ml:122:48>>*/ caml_call2(Stdlib[28], cst, _ao_);
     else
      var _ap_ = cst$3;
-     /*<<filename.ml:122:6>>*/ var
-     _aq_ =  /*<<filename.ml:122:6>>*/ caml_call2(Stdlib[28], _ap_, _an_);
+    var
+     _aq_ =
+        /*<<filename.ml:122:6>>*/  /*<<filename.ml:122:6>>*/ caml_call2
+        (Stdlib[28], _ap_, _an_);
     if(stdin)
      var
       f$1 = stdin[1],
-       /*<<filename.ml:121:55>>*/ _ar_ = quote(f$1),
+      _ar_ =  /*<<filename.ml:121:55>>*/ quote(f$1),
       _as_ =  /*<<filename.ml:121:48>>*/ caml_call2(Stdlib[28], cst$0, _ar_);
     else
      var _as_ = cst$2;
     var
-      /*<<filename.ml:121:6>>*/ _at_ =
-        /*<<filename.ml:121:6>>*/ caml_call2(Stdlib[28], _as_, _aq_),
-      /*<<filename.ml:120:22>>*/ _au_ =
-        /*<<filename.ml:120:22>>*/ caml_call2
+     _at_ =
+        /*<<filename.ml:121:6>>*/  /*<<filename.ml:121:6>>*/ caml_call2
+        (Stdlib[28], _as_, _aq_),
+     _au_ =
+        /*<<filename.ml:120:22>>*/  /*<<filename.ml:120:22>>*/ caml_call2
         (Stdlib_List[20], quote, [0, cmd, args]),
-      /*<<filename.ml:120:4>>*/ _av_ =
-        /*<<filename.ml:120:4>>*/ caml_call2(Stdlib_String[7], cst$1, _au_);
+     _av_ =
+        /*<<filename.ml:120:4>>*/  /*<<filename.ml:120:4>>*/ caml_call2
+        (Stdlib_String[7], cst$1, _au_);
      /*<<filename.ml:121:6>>*/ return  /*<<filename.ml:121:6>>*/ caml_call2
             (Stdlib[28], _av_, _at_);
     /*<<filename.ml:125:69>>*/ }
@@ -33678,9 +34594,9 @@
    function dirname(_ak_){
      /*<<?>>*/ return generic_dirname(is_dir_sep, current_dir_name, _ak_);
    }
-    /*<<filename.ml:91:24>>*/ var
+   var
     Unix =
-      [0,
+       /*<<filename.ml:91:24>>*/ [0,
        null$0,
        current_dir_name,
        parent_dir_name,
@@ -33697,8 +34613,9 @@
        dirname];
    function is_dir_sep$0(s, i){
     var
-      /*<<filename.ml:135:31>>*/ c =
-        /*<<filename.ml:135:31>>*/ caml_string_get(s, i),
+     c =
+        /*<<filename.ml:135:31>>*/  /*<<filename.ml:135:31>>*/ caml_string_get
+        (s, i),
      _ah_ = 47 === c ? 1 : 0;
     if(_ah_)
      var _ai_ = _ah_;
@@ -33732,7 +34649,7 @@
     return _ag_;
     /*<<filename.ml:139:44>>*/ }
    function is_implicit$0(n){
-     /*<<filename.ml:141:4>>*/ var _U_ = is_relative$0(n);
+    var _U_ =  /*<<filename.ml:141:4>>*/ is_relative$0(n);
      /*<<filename.ml:141:4>>*/ if(_U_){
      var
       _V_ = caml_ml_string_length(n) < 2 ? 1 : 0,
@@ -33792,14 +34709,15 @@
      _R_ = caml_ml_string_length(suff) <= caml_ml_string_length(name) ? 1 : 0;
     if(_R_)
      var
-       /*<<filename.ml:148:12>>*/ s =
-         /*<<filename.ml:148:12>>*/ caml_call3
+      s =
+         /*<<filename.ml:148:12>>*/  /*<<filename.ml:148:12>>*/ caml_call3
          (Stdlib_String[16],
           name,
           caml_ml_string_length(name) - caml_ml_string_length(suff) | 0,
           caml_ml_string_length(suff)),
-       /*<<filename.ml:150:31>>*/ _S_ =
-         /*<<filename.ml:150:31>>*/ caml_call1(Stdlib_String[27], suff),
+      _S_ =
+         /*<<filename.ml:150:31>>*/  /*<<filename.ml:150:31>>*/ caml_call1
+         (Stdlib_String[27], suff),
       _T_ =
          /*<<filename.ml:150:4>>*/ caml_call1(Stdlib_String[27], s) === _S_
          ? 1
@@ -33814,11 +34732,12 @@
      len_f = caml_ml_string_length(filename);
     if(len_s > len_f)  /*<<filename.ml:161:6>>*/ return 0;
     var
-      /*<<filename.ml:155:14>>*/ r =
-        /*<<filename.ml:155:14>>*/ caml_call3
+     r =
+        /*<<filename.ml:155:14>>*/  /*<<filename.ml:155:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s),
-      /*<<filename.ml:156:36>>*/ _Q_ =
-        /*<<filename.ml:156:36>>*/ caml_call1(Stdlib_String[27], suffix);
+     _Q_ =
+        /*<<filename.ml:156:36>>*/  /*<<filename.ml:156:36>>*/ caml_call1
+        (Stdlib_String[27], suffix);
      /*<<filename.ml:156:9>>*/ return  /*<<filename.ml:156:9>>*/ caml_call1
              (Stdlib_String[27], r)
             === _Q_
@@ -33829,8 +34748,9 @@
     /*<<filename.ml:161:10>>*/ }
    try{
     var
-      /*<<filename.ml:165:8>>*/ _i_ =
-        /*<<filename.ml:165:8>>*/ caml_sys_getenv("TEMP"),
+     _i_ =
+        /*<<filename.ml:165:8>>*/  /*<<filename.ml:165:8>>*/ caml_sys_getenv
+        ("TEMP"),
      temp_dir_name$0 = _i_;
    }
    catch(_P_){
@@ -33841,8 +34761,9 @@
    function quote$0(s){
     var
      l = caml_ml_string_length(s),
-      /*<<filename.ml:168:12>>*/ b =
-        /*<<filename.ml:168:12>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
+     b =
+        /*<<filename.ml:168:12>>*/  /*<<filename.ml:168:12>>*/ caml_call1
+        (Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:169:4>>*/  /*<<filename.ml:169:4>>*/ caml_call2
      (Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
@@ -33851,8 +34772,10 @@
       if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return  /*<<filename.ml:171:20>>*/ caml_call2
                (Stdlib_Buffer[12], b, 34);
-       /*<<filename.ml:172:12>>*/ var
-       c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
+      var
+       c =
+          /*<<filename.ml:172:12>>*/  /*<<filename.ml:172:12>>*/ caml_string_get
+          (s, i$0);
       if(34 === c){
        var _N_ = 0;
         /*<<filename.ml:173:16>>*/ if(counter >= 50)
@@ -33871,7 +34794,7 @@
       }
        /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ caml_call2
        (Stdlib_Buffer[12], b, c);
-       /*<<filename.ml:175:16>>*/ var i$1 = i$0 + 1 | 0;
+      var i$1 =  /*<<filename.ml:175:16>>*/ i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<filename.ml:175:48>>*/ }
@@ -33884,13 +34807,15 @@
         (Stdlib_Buffer[12], b, 34);
         /*<<filename.ml:178:8>>*/ return add_bs(n$0);
       }
-       /*<<filename.ml:181:14>>*/ var
-       match =  /*<<filename.ml:181:14>>*/ caml_string_get(s, i$0);
+      var
+       match =
+          /*<<filename.ml:181:14>>*/  /*<<filename.ml:181:14>>*/ caml_string_get
+          (s, i$0);
       if(34 === match){
         /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
         /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ caml_call2
         (Stdlib_Buffer[12], b, 34);
-        /*<<filename.ml:182:34>>*/ var _M_ = i$0 + 1 | 0;
+       var _M_ =  /*<<filename.ml:182:34>>*/ i$0 + 1 | 0;
         /*<<filename.ml:182:34>>*/ if(counter >= 50)
          /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ caml_trampoline_return
                 (loop$0, [0, _M_]);
@@ -33905,19 +34830,19 @@
        var counter$0 = counter + 1 | 0;
         /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0);
       }
-      var  /*<<filename.ml:183:18>>*/ i$1 = i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
+      var i$1 =  /*<<filename.ml:183:18>>*/ i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
       i$0 = i$1;
      }
      /*<<filename.ml:185:9>>*/ }
     function add_bs(n){
-      /*<<filename.ml:186:19>>*/ var _K_ = 1;
+     var _K_ =  /*<<filename.ml:186:19>>*/ 1;
      if(n >= 1){
       var j = _K_;
       for(;;){
         /*<<filename.ml:186:38>>*/  /*<<filename.ml:186:38>>*/ caml_call2
         (Stdlib_Buffer[12], b, 92);
-        /*<<filename.ml:186:38>>*/ var _L_ = j + 1 | 0;
+       var _L_ =  /*<<filename.ml:186:38>>*/ j + 1 | 0;
        if(n === j) break;
        j = _L_;
       }
@@ -33943,9 +34868,9 @@
              ?  /*<<filename.ml:225:23>>*/ caml_call2
                (Stdlib_String[7], cst$7, [0, cst$6, [0, f, _c_]])
              : f;
-     /*<<filename.ml:223:15>>*/ var
+    var
      _J_ =
-        /*<<filename.ml:223:15>>*/ caml_call2
+        /*<<filename.ml:223:15>>*/  /*<<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
             (Stdlib[2], _J_);
@@ -33958,7 +34883,7 @@
       var _w_ = cst_2_1$0;
      else
       var
-        /*<<filename.ml:242:53>>*/ _H_ = quote_cmd_filename(f),
+       _H_ =  /*<<filename.ml:242:53>>*/ quote_cmd_filename(f),
        _w_ =  /*<<filename.ml:242:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
      var _x_ = _w_;
     }
@@ -33968,7 +34893,7 @@
     if(stdout)
      var
       f$0 = stdout[1],
-       /*<<filename.ml:238:55>>*/ _z_ = quote_cmd_filename(f$0),
+      _z_ =  /*<<filename.ml:238:55>>*/ quote_cmd_filename(f$0),
       _A_ =  /*<<filename.ml:238:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
     else
      var _A_ = cst$15;
@@ -33976,17 +34901,19 @@
     if(stdin)
      var
       f$1 = stdin[1],
-       /*<<filename.ml:237:55>>*/ _C_ = quote_cmd_filename(f$1),
+      _C_ =  /*<<filename.ml:237:55>>*/ quote_cmd_filename(f$1),
       _D_ =  /*<<filename.ml:237:48>>*/ caml_call2(Stdlib[28], cst$9, _C_);
     else
      var _D_ = cst$14;
     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:211:12>>*/ b =
-        /*<<filename.ml:211:12>>*/ caml_call1
+     _E_ =
+        /*<<filename.ml:236:35>>*/  /*<<filename.ml:236:35>>*/ caml_call2
+        (Stdlib_List[20], quote$0, args),
+     s =
+        /*<<filename.ml:236:16>>*/  /*<<filename.ml:236:16>>*/ caml_call2
+        (Stdlib_String[7], cst$10, _E_),
+     b =
+        /*<<filename.ml:211:12>>*/  /*<<filename.ml:211:12>>*/ caml_call1
         (Stdlib_Buffer[1], caml_ml_string_length(s) + 20 | 0);
      /*<<filename.ml:212:4>>*/  /*<<filename.ml:212:4>>*/ caml_call2
      (Stdlib_String[30],
@@ -34025,8 +34952,10 @@
         [0,
           /*<<filename.ml:212:4>>*/ caml_call1(Stdlib_Buffer[2], b),
          [0, _D_, _B_]]],
-      /*<<filename.ml:232:21>>*/ _G_ =
-       [0, cst$12, [0, quote_cmd_filename(cmd), _F_]];
+     _G_ =
+        /*<<filename.ml:232:21>>*/ [0,
+        cst$12,
+        [0, quote_cmd_filename(cmd), _F_]];
      /*<<filename.ml:232:21>>*/ return  /*<<filename.ml:232:21>>*/ caml_call2
             (Stdlib_String[7], cst$13, _G_);
     /*<<filename.ml:244:5>>*/ }
@@ -34034,8 +34963,10 @@
     var
      _s_ = 2 <=  /*<<filename.ml:250:4>>*/ caml_ml_string_length(s) ? 1 : 0;
     if(_s_){
-      /*<<filename.ml:250:38>>*/ var
-      param =  /*<<filename.ml:250:38>>*/ caml_string_get(s, 0);
+     var
+      param =
+         /*<<filename.ml:250:38>>*/  /*<<filename.ml:250:38>>*/ caml_string_get
+         (s, 0);
      a:
      {
       b:
@@ -34049,9 +34980,9 @@
       }
       var _t_ = 0;
      }
-      /*<<filename.ml:250:28>>*/ var
+     var
       _u_ =
-        _t_
+         /*<<filename.ml:250:28>>*/ _t_
          ? 58 ===  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1) ? 1 : 0
          : _t_;
     }
@@ -34059,9 +34990,9 @@
      var _u_ = _s_;
      /*<<filename.ml:252:7>>*/ if(! _u_)
       /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
-     /*<<filename.ml:253:28>>*/ var
+    var
      _v_ =
-        /*<<filename.ml:253:28>>*/ caml_call3
+        /*<<filename.ml:253:28>>*/  /*<<filename.ml:253: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),
@@ -34069,11 +35000,12 @@
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
     var
-      /*<<filename.ml:256:24>>*/ match = drive_and_path(s),
+     match =  /*<<filename.ml:256:24>>*/ drive_and_path(s),
      path = match[2],
      drive = match[1],
-      /*<<filename.ml:257:14>>*/ dir =
-       generic_dirname(is_dir_sep$0, current_dir_name$0, path);
+     dir =
+        /*<<filename.ml:257:14>>*/ generic_dirname
+        (is_dir_sep$0, current_dir_name$0, path);
      /*<<filename.ml:258:4>>*/ return  /*<<filename.ml:258:4>>*/ caml_call2
             (Stdlib[28], drive, dir);
     /*<<filename.ml:258:15>>*/ }
@@ -34082,9 +35014,9 @@
      /*<<filename.ml:261:4>>*/ return generic_basename
             (is_dir_sep$0, current_dir_name$0, path);
     /*<<filename.ml:261:53>>*/ }
-    /*<<filename.ml:130:25>>*/ var
+   var
     Win32 =
-      [0,
+       /*<<filename.ml:130:25>>*/ [0,
        null$1,
        current_dir_name$0,
        parent_dir_name$0,
@@ -34106,8 +35038,8 @@
      /*<<?>>*/ return generic_dirname(is_dir_sep$0, current_dir_name$1, _q_);
    }
    var
-     /*<<filename.ml:264:26>>*/ Cygwin =
-      [0,
+    Cygwin =
+       /*<<filename.ml:264:26>>*/ [0,
        null$2,
        current_dir_name$1,
        parent_dir_name$1,
@@ -34142,9 +35074,9 @@
     var l = caml_ml_string_length(dirname);
      /*<<filename.ml:291:2>>*/ if
      (0 !== l && ! is_dir_sep$1(dirname, l - 1 | 0)){
-      /*<<filename.ml:293:17>>*/ var
+     var
       _p_ =
-         /*<<filename.ml:293:17>>*/ caml_call2
+         /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ caml_call2
          (Stdlib[28], dir_sep$2, filename);
       /*<<filename.ml:293:17>>*/ return  /*<<filename.ml:293:17>>*/ caml_call2
              (Stdlib[28], dirname, _p_);
@@ -34169,19 +35101,19 @@
        /*<<filename.ml:308:12>>*/ if
        (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
        break;
-       /*<<filename.ml:309:9>>*/ var i$2 = i0 - 1 | 0;
+      var i$2 =  /*<<filename.ml:309:9>>*/ i0 - 1 | 0;
       i0 = i$2;
       continue;
      }
       /*<<filename.ml:307:39>>*/ return 0;
     }
-    var  /*<<filename.ml:308:32>>*/ i$1 = i0 - 1 | 0, i = i$1;
+    var i$1 =  /*<<filename.ml:308:32>>*/ i0 - 1 | 0, i = i$1;
      /*<<filename.ml:302:4>>*/ for(;;){
      if(0 <= i && ! is_dir_sep$1(name, i)){
        /*<<filename.ml:303:12>>*/ if
        (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
        return caml_ml_string_length(name) - i0 | 0;
-       /*<<filename.ml:303:32>>*/ var i$0 = i - 1 | 0;
+      var i$0 =  /*<<filename.ml:303:32>>*/ i - 1 | 0;
       i = i$0;
       continue;
      }
@@ -34189,7 +35121,7 @@
     }
     /*<<filename.ml:311:37>>*/ }
    function extension(name){
-     /*<<filename.ml:314:10>>*/ var l = extension_len(name);
+    var l =  /*<<filename.ml:314:10>>*/ extension_len(name);
      /*<<filename.ml:315:2>>*/ return 0 === l
             ? cst$18
             :  /*<<filename.ml:315:24>>*/ caml_call3
@@ -34199,7 +35131,7 @@
                l);
     /*<<filename.ml:315:66>>*/ }
    function chop_extension(name){
-     /*<<filename.ml:318:10>>*/ var l = extension_len(name);
+    var l =  /*<<filename.ml:318:10>>*/ extension_len(name);
      /*<<filename.ml:319:2>>*/ return 0 === l
             ?  /*<<filename.ml:319:16>>*/ caml_call1
               (Stdlib[1], cst_Filename_chop_extension)
@@ -34210,7 +35142,7 @@
                caml_ml_string_length(name) - l | 0);
     /*<<filename.ml:320:49>>*/ }
    function remove_extension(name){
-     /*<<filename.ml:323:10>>*/ var l = extension_len(name);
+    var l =  /*<<filename.ml:323:10>>*/ extension_len(name);
      /*<<filename.ml:324:2>>*/ return 0 === l
             ? name
             : caml_call3
@@ -34219,16 +35151,17 @@
                0,
                caml_ml_string_length(name) - l | 0);
     /*<<filename.ml:324:68>>*/ }
-    /*<<filename.ml:330:2>>*/ var
+   var
     prng_key =
-       /*<<filename.ml:330:2>>*/ caml_call2
+       /*<<filename.ml:330:2>>*/  /*<<filename.ml:330:2>>*/ caml_call2
        (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function temp_file_name(temp_dir, prefix, suffix){
     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
+     random_state =
+        /*<<filename.ml:333:21>>*/  /*<<filename.ml:333:21>>*/ caml_call1
+        (Stdlib_Domain[10][2], prng_key),
+     rnd =
+        /*<<filename.ml:334:12>>*/  /*<<filename.ml:334:12>>*/ caml_call1
         (Stdlib_Random[19][4], random_state)
        & 16777215;
      /*<<filename.ml:335:18>>*/ return concat
@@ -34236,9 +35169,9 @@
               /*<<filename.ml:335:18>>*/ caml_call4
               (Stdlib_Printf[4], _f_, prefix, rnd, suffix));
     /*<<filename.ml:335:63>>*/ }
-    /*<<filename.ml:338:2>>*/ var
+   var
     current_temp_dir_name =
-       /*<<filename.ml:338:2>>*/ caml_call2
+       /*<<filename.ml:338:2>>*/  /*<<filename.ml:338:2>>*/ caml_call2
        (Stdlib_Domain[10][1],
         [0, function(_o_){ /*<<?>>*/ return _o_;}],
         function(param){
@@ -34261,8 +35194,9 @@
           (Stdlib_Domain[10][2], current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:345:4>>*/ for(;;){
-      /*<<filename.ml:345:15>>*/ var
-      name = temp_file_name(temp_dir, prefix, suffix);
+     var
+      name =
+         /*<<filename.ml:345:15>>*/ 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));
@@ -34274,7 +35208,7 @@
       if(20 <= counter)
         /*<<filename.ml:350:28>>*/ throw  /*<<filename.ml:350:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:350:41>>*/ var counter$0 = counter + 1 | 0;
+      var counter$0 =  /*<<filename.ml:350:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
     }
@@ -34290,12 +35224,13 @@
           (Stdlib_Domain[10][2], current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:357:4>>*/ for(;;){
-      /*<<filename.ml:357:15>>*/ var
-      name = temp_file_name(temp_dir, prefix, suffix);
+     var
+      name =
+         /*<<filename.ml:357:15>>*/ temp_file_name(temp_dir, prefix, suffix);
       /*<<filename.ml:358:4>>*/ try{
-       /*<<filename.ml:359:6>>*/ var
+      var
        _n_ =
-         [0,
+          /*<<filename.ml:359:6>>*/ [0,
           name,
            /*<<filename.ml:360:7>>*/ caml_call3
            (Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
@@ -34307,7 +35242,7 @@
       if(20 <= counter)
         /*<<filename.ml:362:28>>*/ throw  /*<<filename.ml:362:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:362:41>>*/ var counter$0 = counter + 1 | 0;
+      var counter$0 =  /*<<filename.ml:362:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
     }
@@ -34322,8 +35257,9 @@
      perms = opt ? opt[1] : 448,
      counter = 0;
      /*<<filename.ml:368:4>>*/ for(;;){
-      /*<<filename.ml:368:15>>*/ var
-      name = temp_file_name(temp_dir, prefix, suffix);
+     var
+      name =
+         /*<<filename.ml:368:15>>*/ temp_file_name(temp_dir, prefix, suffix);
       /*<<filename.ml:369:4>>*/ try{
        /*<<filename.ml:370:6>>*/  /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir
        (name, perms);
@@ -34335,7 +35271,7 @@
       if(20 <= counter)
         /*<<filename.ml:373:28>>*/ throw  /*<<filename.ml:373:28>>*/ caml_maybe_attach_backtrace
               (e, 0);
-       /*<<filename.ml:373:41>>*/ var counter$0 = counter + 1 | 0;
+      var counter$0 =  /*<<filename.ml:373:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
     }
@@ -34376,7 +35312,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     zero = [254, 0., 0.],
     one = [254, 1., 0.],
     i = [254, 0., 1.],
@@ -34403,15 +35339,15 @@
      ( /*<<complex.ml:36:23>>*/ Math.abs(y[2])
       <=  /*<<complex.ml:36:5>>*/ Math.abs(y[1])){
      var
-       /*<<complex.ml:37:12>>*/ r = y[2] / y[1],
-       /*<<complex.ml:38:12>>*/ d = y[1] + r * y[2];
+      r =  /*<<complex.ml:37:12>>*/ y[2] / y[1],
+      d =  /*<<complex.ml:38:12>>*/ y[1] + r * y[2];
       /*<<complex.ml:39:4>>*/ return [254,
              (x[1] + r * x[2]) / d,
              (x[2] - r * x[1]) / d];
     }
     var
-      /*<<complex.ml:42:12>>*/ r$0 = y[1] / y[2],
-      /*<<complex.ml:43:12>>*/ d$0 = y[2] + r$0 * y[1];
+     r$0 =  /*<<complex.ml:42:12>>*/ y[1] / y[2],
+     d$0 =  /*<<complex.ml:43:12>>*/ y[2] + r$0 * y[1];
      /*<<complex.ml:44:4>>*/ return [254,
             (r$0 * x[1] + x[2]) / d$0,
             (r$0 * x[2] - x[1]) / d$0];
@@ -34439,11 +35375,11 @@
      /*<<complex.ml:58:2>>*/ if(x[1] === 0. && x[2] === 0.)
       /*<<complex.ml:58:35>>*/ return _a_;
     var
-      /*<<complex.ml:60:12>>*/ r =  /*<<complex.ml:60:12>>*/ Math.abs(x[1]),
-      /*<<complex.ml:60:35>>*/ i =  /*<<complex.ml:60:35>>*/ Math.abs(x[2]);
+     r =  /*<<complex.ml:60:12>>*/  /*<<complex.ml:60:12>>*/ Math.abs(x[1]),
+     i =  /*<<complex.ml:60:35>>*/  /*<<complex.ml:60:35>>*/ Math.abs(x[2]);
     if(i <= r)
      var
-       /*<<complex.ml:63:16>>*/ q = i / r,
+      q =  /*<<complex.ml:63:16>>*/ i / r,
       w =
          /*<<complex.ml:64:8>>*/ Math.sqrt(r)
         *
@@ -34451,7 +35387,7 @@
           (0.5 * (1. +  /*<<complex.ml:64:39>>*/ Math.sqrt(1. + q * q)));
     else
      var
-       /*<<complex.ml:66:16>>*/ q$0 = r / i,
+      q$0 =  /*<<complex.ml:66:16>>*/ r / i,
       w =
          /*<<complex.ml:67:8>>*/ Math.sqrt(i)
         *
@@ -34462,15 +35398,17 @@
      /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0];
     /*<<complex.ml:72:5>>*/ }
    function exp(x){
-     /*<<complex.ml:75:10>>*/ var
-     e =  /*<<complex.ml:75:10>>*/ Math.exp(x[1]);
+    var
+     e =  /*<<complex.ml:75:10>>*/  /*<<complex.ml:75:10>>*/ Math.exp(x[1]);
      /*<<complex.ml:75:22>>*/ return [254,
             e *  /*<<complex.ml:75:34>>*/ Math.cos(x[2]),
             e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])];
     /*<<complex.ml:75:64>>*/ }
    function log(x){
-     /*<<complex.ml:77:38>>*/ var
-     _b_ =  /*<<complex.ml:77:38>>*/ Math.atan2(x[2], x[1]);
+    var
+     _b_ =
+        /*<<complex.ml:77:38>>*/  /*<<complex.ml:77:38>>*/ Math.atan2
+        (x[2], x[1]);
      /*<<complex.ml:77:12>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log(norm(x)),
             _b_];
@@ -34510,7 +35448,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Array = global_data.Stdlib__Array,
     init = Stdlib_Array[1],
@@ -34610,7 +35548,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_List = global_data.Stdlib__List,
     length = Stdlib_List[1],
@@ -34756,7 +35694,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Bytes = global_data.Stdlib__Bytes,
     make = Stdlib_Bytes[1],
@@ -34946,7 +35884,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_String = global_data.Stdlib__String,
     make = Stdlib_String[1],
@@ -35091,7 +36029,7 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Set = global_data.Stdlib__Set,
     Stdlib_Map = global_data.Stdlib__Map,
@@ -35105,7 +36043,7 @@
 //# unitInfo: Provides: Stdlib__StdLabels
 (function(globalThis){
    "use strict";
-   var  /*<<?>>*/ runtime = globalThis.jsoo_runtime, Stdlib_StdLabels = [0];
+   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime, Stdlib_StdLabels = [0];
    runtime.caml_register_global(0, Stdlib_StdLabels, "Stdlib__StdLabels");
    return;
    /*<<?>>*/ }
@@ -35118,16 +36056,16 @@
   (globalThis){
    "use strict";
    var
-     /*<<?>>*/ runtime = globalThis.jsoo_runtime,
-     /*<<?>>*/ caml_alloc_stack = runtime.caml_alloc_stack,
-     /*<<?>>*/ caml_continuation_use_noexc =
-      runtime.caml_continuation_use_noexc,
-     /*<<?>>*/ caml_fresh_oo_id = runtime.caml_fresh_oo_id,
-     /*<<?>>*/ caml_maybe_attach_backtrace =
-      runtime.caml_maybe_attach_backtrace,
-     /*<<?>>*/ caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
-     /*<<?>>*/ caml_wrap_exception = runtime.caml_wrap_exception,
-     /*<<?>>*/ jsoo_effect_not_supported = runtime.jsoo_effect_not_supported;
+    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    caml_alloc_stack =  /*<<?>>*/ runtime.caml_alloc_stack,
+    caml_continuation_use_noexc =
+       /*<<?>>*/ runtime.caml_continuation_use_noexc,
+    caml_fresh_oo_id =  /*<<?>>*/ runtime.caml_fresh_oo_id,
+    caml_maybe_attach_backtrace =
+       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
+    caml_restore_raw_backtrace =  /*<<?>>*/ runtime.caml_restore_raw_backtrace,
+    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
+    jsoo_effect_not_supported =  /*<<?>>*/ runtime.jsoo_effect_not_supported;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -35144,10 +36082,14 @@
     Stdlib_Printexc = global_data.Stdlib__Printexc,
     Stdlib_Printf = global_data.Stdlib__Printf,
     Stdlib_Callback = global_data.Stdlib__Callback,
-     /*<<effect.ml:18:12>>*/ Unhandled =
-      [248, "Stdlib.Effect.Unhandled", caml_fresh_oo_id(0)],
-     /*<<effect.ml:19:0>>*/ Continuation_already_resumed =
-      [248, "Stdlib.Effect.Continuation_already_resumed", caml_fresh_oo_id(0)],
+    Unhandled =
+       /*<<effect.ml:18:12>>*/ [248,
+       "Stdlib.Effect.Unhandled",
+       caml_fresh_oo_id(0)],
+    Continuation_already_resumed =
+       /*<<effect.ml:19:0>>*/ [248,
+       "Stdlib.Effect.Continuation_already_resumed",
+       caml_fresh_oo_id(0)],
     _a_ =
       [0,
        [11, "Stdlib.Effect.Unhandled(", [2, 0, [12, 41, 0]]],
@@ -35157,17 +36099,21 @@
       /*<<effect.ml:28:11>>*/ return 0;
     var
      x = param[2],
-      /*<<effect.ml:25:12>>*/ _i_ =
-        /*<<effect.ml:25:12>>*/ caml_call1(Stdlib_Printexc[26], x),
-      /*<<effect.ml:24:18>>*/ msg =
-        /*<<effect.ml:24:18>>*/ caml_call2(Stdlib_Printf[4], _a_, _i_);
+     _i_ =
+        /*<<effect.ml:25:12>>*/  /*<<effect.ml:25:12>>*/ caml_call1
+        (Stdlib_Printexc[26], x),
+     msg =
+        /*<<effect.ml:24:18>>*/  /*<<effect.ml:24:18>>*/ caml_call2
+        (Stdlib_Printf[4], _a_, _i_);
      /*<<effect.ml:27:8>>*/ return [0, msg];
     /*<<effect.ml:28:15>>*/ }
     /*<<effect.ml:30:2>>*/  /*<<effect.ml:30:2>>*/ caml_call1
     (Stdlib_Printexc[9], printer);
-    /*<<effect.ml:33:12>>*/ var
+   var
     Should_not_see_this =
-      [248, "Stdlib.Effect.Should_not_see_this__", caml_fresh_oo_id(0)];
+       /*<<effect.ml:33:12>>*/ [248,
+       "Stdlib.Effect.Should_not_see_this__",
+       caml_fresh_oo_id(0)];
     /*<<effect.ml:34:8>>*/  /*<<effect.ml:34:8>>*/ caml_call2
     (Stdlib_Callback[2],
      "Effect.Unhandled",
@@ -35177,8 +36123,10 @@
      "Effect.Continuation_already_resumed",
      Continuation_already_resumed);
    function continue$0(k, v){
-     /*<<effect.ml:62:11>>*/ var
-     _h_ =  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc(k);
+    var
+     _h_ =
+        /*<<effect.ml:62:11>>*/  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc
+        (k);
     function _g_(x){
       /*<<effect.ml:62:41>>*/ return x;
      /*<<effect.ml:62:42>>*/ }
@@ -35186,8 +36134,10 @@
             ();
     /*<<effect.ml:62:65>>*/ }
    function discontinue(k, e){
-     /*<<effect.ml:65:11>>*/ var
-     _f_ =  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc(k);
+    var
+     _f_ =
+        /*<<effect.ml:65:11>>*/  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc
+        (k);
     function _e_(e){
       /*<<effect.ml:65:41>>*/ throw  /*<<effect.ml:65:41>>*/ caml_maybe_attach_backtrace
             (e, 1);
@@ -35196,8 +36146,10 @@
             ();
     /*<<effect.ml:65:71>>*/ }
    function discontinue_with_backtrace(k, e, bt){
-     /*<<effect.ml:68:11>>*/ var
-     _d_ =  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc(k);
+    var
+     _d_ =
+        /*<<effect.ml:68:11>>*/  /*<<effect.ml:68: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
@@ -35208,8 +36160,10 @@
     /*<<effect.ml:69:27>>*/ }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:81:12>>*/ var
-      match =  /*<<effect.ml:81:12>>*/ caml_call1(handler[3], eff);
+     var
+      match =
+         /*<<effect.ml:81:12>>*/  /*<<effect.ml:81:12>>*/ caml_call1
+         (handler[3], eff);
      if(! match)
        /*<<effect.ml:85:16>>*/ return  /*<<effect.ml:85:16>>*/ jsoo_effect_not_supported
               ();
@@ -35217,16 +36171,19 @@
      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>>*/ var
+    var
      s =
-        /*<<effect.ml:87:12>>*/ caml_alloc_stack(handler[1], handler[2], effc);
+        /*<<effect.ml:87:12>>*/  /*<<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:88:23>>*/ }
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:95:12>>*/ var
-      match =  /*<<effect.ml:95:12>>*/ caml_call1(handler[1], eff);
+     var
+      match =
+         /*<<effect.ml:95:12>>*/  /*<<effect.ml:95:12>>*/ caml_call1
+         (handler[1], eff);
      if(! match)
        /*<<effect.ml:99:16>>*/ return  /*<<effect.ml:99:16>>*/ jsoo_effect_not_supported
               ();
@@ -35234,9 +36191,9 @@
      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>>*/ var
+    var
      s =
-        /*<<effect.ml:101:12>>*/ caml_alloc_stack
+        /*<<effect.ml:101:12>>*/  /*<<effect.ml:101:12>>*/ caml_alloc_stack
         (function(x){
            /*<<effect.ml:101:34>>*/ return x;
           /*<<effect.ml:101:35>>*/ },
@@ -35249,8 +36206,8 @@
             ();
     /*<<effect.ml:102:23>>*/ }
    var
-     /*<<effect.ml:46:14>>*/ Deep =
-      [0,
+    Deep =
+       /*<<effect.ml:46:14>>*/ [0,
        continue$0,
        discontinue,
        discontinue_with_backtrace,
@@ -35261,9 +36218,9 @@
     cst_impossible = "impossible";
    function fiber(f){
     var
-      /*<<effect.ml:124: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)];
+     Initial_setup =
+        /*<<effect.ml:124:38>>*/ [248, cst_Initial_setup, caml_fresh_oo_id(0)],
+     E =  /*<<effect.ml:125:18>>*/ [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());
@@ -35278,8 +36235,10 @@
      k[2] = last_fiber;
       /*<<effect.ml:132:10>>*/ throw [0, E, k];
      /*<<effect.ml:133:21>>*/ }
-     /*<<effect.ml:135:12>>*/ var
-     s =  /*<<effect.ml:135:12>>*/ caml_alloc_stack(error, error, effc);
+    var
+     s =
+        /*<<effect.ml:135:12>>*/  /*<<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
       ();
@@ -35295,8 +36254,10 @@
     /*<<effect.ml:138:19>>*/ }
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
-      /*<<effect.ml:157:12>>*/ var
-      match =  /*<<effect.ml:157:12>>*/ caml_call1(handler[3], eff);
+     var
+      match =
+         /*<<effect.ml:157:12>>*/  /*<<effect.ml:157:12>>*/ caml_call1
+         (handler[3], eff);
      if(! match)
        /*<<effect.ml:161:16>>*/ return  /*<<effect.ml:161:16>>*/ jsoo_effect_not_supported
               ();
@@ -35305,9 +36266,9 @@
       /*<<effect.ml:160:10>>*/ return  /*<<effect.ml:160:10>>*/ caml_call1
              (f, k);
      /*<<effect.ml:161:42>>*/ }
-     /*<<effect.ml:164:16>>*/ var
+    var
      stack =
-        /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
+        /*<<effect.ml:164:16>>*/  /*<<effect.ml:164: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
             ();

From 2b09011eddb362779d1f5cb53ee625016a212ce7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 10:34:32 +0200
Subject: [PATCH 05/35] Put the function call location on the opening
 parenthesis as well

---
 compiler/lib/js_output.ml                    |    2 +
 compiler/tests-compiler/gh747.ml             |  380 +-
 compiler/tests-compiler/js_parser_printer.ml |   39 +-
 compiler/tests-full/stdlib.cma.expected.js   | 7332 +++++++++++-------
 4 files changed, 4846 insertions(+), 2907 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 0ad8349b98..08341833b5 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -652,6 +652,8 @@ struct
         PP.start_group f 1;
         expression CallOrMemberExpression f e;
         PP.break f;
+        (* Make sure that the opening parenthesis has the appropriate info *)
+        output_debug_info f loc;
         PP.start_group f 1;
         (match access_kind with
         | ANormal -> PP.string f "("
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 09974c75db..1bd7df5d9b 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -79,43 +79,47 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      24:     Stdlib = global_data.Stdlib,
      25:     Stdlib_Random = global_data.Stdlib__Random,
      26:     Stdlib_String = global_data.Stdlib__String;
-     27:     /*<<test.ml:3:0>>*/  /*<<test.ml:3:0>>*/ caml_call1(Stdlib[46], greeting);
-     28:     /*<<test.ml:5:0>>*/  /*<<test.ml:5:0>>*/ caml_call1
-     29:     (Stdlib[46], greeting$0);
-     30:    var
-     31:     _a_ =
-     32:        /*<<test.ml:7:47>>*/  /*<<test.ml:7:47>>*/ caml_call1
-     33:        (Stdlib_Random[5], 30),
-     34:     unicodeLength =
-     35:        /*<<test.ml:7:34>>*/  /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
-     36:        ( /*<<test.ml:7:34>>*/ caml_call2(Stdlib_String[1], _a_, 105)),
-     37:     _b_ =
-     38:        /*<<test.ml:8:56>>*/  /*<<test.ml:8:56>>*/ caml_call1
-     39:        (Stdlib[33], unicodeLength),
-     40:     _c_ =
-     41:        /*<<test.ml:8:14>>*/  /*<<test.ml:8:14>>*/ caml_call2
-     42:        (Stdlib[28],
-     43:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
-     44:         _b_);
-     45:     /*<<test.ml:8:0>>*/  /*<<test.ml:8:0>>*/ caml_call1(Stdlib[46], _c_);
-     46:    var
-     47:     _d_ =
-     48:        /*<<test.ml:9:39>>*/  /*<<test.ml:9:39>>*/ caml_call2
-     49:        (Stdlib_String[1], 1, 138),
-     50:     _e_ =
-     51:        /*<<test.ml:9:14>>*/  /*<<test.ml:9:14>>*/ caml_call2
-     52:        (Stdlib_String[1], 1, 201),
-     53:     _f_ =
-     54:        /*<<test.ml:9:13>>*/  /*<<test.ml:9:13>>*/ caml_call2
-     55:        (Stdlib[28], _e_, _d_);
-     56:     /*<<test.ml:9:0>>*/  /*<<test.ml:9:0>>*/ caml_call1(Stdlib[46], _f_);
-     57:    var Test = [0, greeting$0, unicodeLength];
-     58:    runtime.caml_register_global(8, Test, "Test");
-     59:    return;
-     60:    /*<<?>>*/ }
-     61:   (globalThis));
-     62:
-     63: //# sourceMappingURL=test.map
+     27:     /*<<test.ml:3:0>>*/  /*<<test.ml:3:0>>*/ caml_call1
+     28:      /*<<test.ml:3:0>>*/ (Stdlib[46], greeting);
+     29:     /*<<test.ml:5:0>>*/  /*<<test.ml:5:0>>*/ caml_call1
+     30:      /*<<test.ml:5:0>>*/ (Stdlib[46], greeting$0);
+     31:    var
+     32:     _a_ =
+     33:        /*<<test.ml:7:47>>*/  /*<<test.ml:7:47>>*/ caml_call1
+     34:         /*<<test.ml:7:47>>*/ (Stdlib_Random[5], 30),
+     35:     unicodeLength =
+     36:        /*<<test.ml:7:34>>*/  /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
+     37:         /*<<test.ml:7:34>>*/ ( /*<<test.ml:7:34>>*/ caml_call2
+     38:           /*<<test.ml:7:34>>*/ (Stdlib_String[1], _a_, 105)),
+     39:     _b_ =
+     40:        /*<<test.ml:8:56>>*/  /*<<test.ml:8:56>>*/ caml_call1
+     41:         /*<<test.ml:8:56>>*/ (Stdlib[33], unicodeLength),
+     42:     _c_ =
+     43:        /*<<test.ml:8:14>>*/  /*<<test.ml:8:14>>*/ caml_call2
+     44:         /*<<test.ml:8:14>>*/ (Stdlib[28],
+     45:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
+     46:         _b_);
+     47:     /*<<test.ml:8:0>>*/  /*<<test.ml:8:0>>*/ caml_call1
+     48:      /*<<test.ml:8:0>>*/ (Stdlib[46], _c_);
+     49:    var
+     50:     _d_ =
+     51:        /*<<test.ml:9:39>>*/  /*<<test.ml:9:39>>*/ caml_call2
+     52:         /*<<test.ml:9:39>>*/ (Stdlib_String[1], 1, 138),
+     53:     _e_ =
+     54:        /*<<test.ml:9:14>>*/  /*<<test.ml:9:14>>*/ caml_call2
+     55:         /*<<test.ml:9:14>>*/ (Stdlib_String[1], 1, 201),
+     56:     _f_ =
+     57:        /*<<test.ml:9:13>>*/  /*<<test.ml:9:13>>*/ caml_call2
+     58:         /*<<test.ml:9:13>>*/ (Stdlib[28], _e_, _d_);
+     59:     /*<<test.ml:9:0>>*/  /*<<test.ml:9:0>>*/ caml_call1
+     60:      /*<<test.ml:9:0>>*/ (Stdlib[46], _f_);
+     61:    var Test = [0, greeting$0, unicodeLength];
+     62:    runtime.caml_register_global(8, Test, "Test");
+     63:    return;
+     64:    /*<<?>>*/ }
+     65:   (globalThis));
+     66:
+     67: //# sourceMappingURL=test.map
     |}]
 
 let%expect_test _ =
@@ -260,149 +264,161 @@ end
      29:     Stdlib_Printf = global_data.Stdlib__Printf,
      30:     executable_name =
      31:        /*<<test.ml:14:22>>*/  /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name
-     32:        (0),
-     33:     os_type =  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config(0)[1],
-     34:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
-     35:     unix = runtime.caml_sys_const_ostype_unix(0),
-     36:     win32 = runtime.caml_sys_const_ostype_win32(0),
-     37:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
-     38:     max_array_length = runtime.caml_sys_const_max_wosize(0),
-     39:     max_floatarray_length = max_array_length / 2 | 0,
-     40:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
-     41:     Unhandled =
-     42:        /*<<test.ml:28:12>>*/ [248,
-     43:        caml_string_of_jsbytes("Test.Unhandled"),
-     44:        runtime.caml_fresh_oo_id(0)],
-     45:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
-     46:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
-     47:     cst_Raised_by_primitive_operat =
-     48:       caml_string_of_jsbytes("Raised by primitive operation at"),
-     49:     cst_Called_from = caml_string_of_jsbytes("Called from"),
-     50:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
-     51:     _a_ =
-     52:       [0,
-     53:        [2,
-     54:         0,
-     55:         [12,
-     56:          32,
-     57:          [2,
-     58:           0,
-     59:           [11,
-     60:            caml_string_of_jsbytes(' in file "'),
-     61:            [2,
-     62:             0,
-     63:             [12,
-     64:              34,
-     65:              [2,
-     66:               0,
-     67:               [11,
-     68:                caml_string_of_jsbytes(", line "),
-     69:                [4,
-     70:                 0,
-     71:                 0,
-     72:                 0,
-     73:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
-     74:        caml_string_of_jsbytes
-     75:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
-     76:     _b_ =
-     77:       [0,
-     78:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
-     79:        caml_string_of_jsbytes("%s unknown location")],
-     80:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
-     81:     _d_ =
-     82:       [0,
-     83:        [11,
-     84:         caml_string_of_jsbytes
-     85:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
-     86:         0],
-     87:        caml_string_of_jsbytes
-     88:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
-     89:    function format_backtrace_slot(pos, slot){
-     90:     function info(is_raise){
-     91:       /*<<test.ml:46:4>>*/ return is_raise
-     92:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     93:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
-     94:      /*<<test.ml:49:75>>*/ }
-     95:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     96:      var
-     97:       _h_ = slot[5],
-     98:       _i_ = slot[4],
-     99:       _j_ = slot[3],
-    100:       _k_ = slot[6] ? cst_inlined : cst,
-    101:       _l_ = slot[2],
-    102:       _m_ = slot[7],
-    103:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
-    104:       /*<<test.ml:58:6>>*/ return [0,
-    105:               /*<<test.ml:58:11>>*/ caml_call8
-    106:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)];
-    107:     }
-    108:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
-    109:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
-    110:      /*<<test.ml:56:8>>*/ return [0,
-    111:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)];
-    112:     /*<<test.ml:61:52>>*/ }
-    113:    function print_exception_backtrace(outchan, backtrace){
-    114:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    115:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
-    116:              (Stdlib_Printf[1], outchan, _d_);
-    117:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
-    118:     if(_f_ >= 0){
-    119:      var i = _e_;
-    120:      for(;;){
-    121:       var
-    122:        match =
-    123:           /*<<test.ml:70:14>>*/ format_backtrace_slot
-    124:           (i, runtime.caml_check_bound(a, i)[1 + i]);
-    125:       if(match){
-    126:        var str = match[1];
-    127:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
-    128:         (Stdlib_Printf[1], outchan, _c_, str);
-    129:       }
-    130:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
-    131:       if(_f_ === i) break;
-    132:       i = _g_;
-    133:      }
-    134:     }
-    135:     return 0;
-    136:     /*<<test.ml:73:10>>*/ }
-    137:    function compare(left, right, e1, e2){
-    138:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    139:      var v1 = e1[1];
-    140:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
-    141:      var v2 = e2[1];
-    142:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
-    143:              (left, v1, v2);
-    144:     }
-    145:     var v1$0 = e1[1];
-    146:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
-    147:     var v2$0 = e2[1];
-    148:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
-    149:             (right, v1$0, v2$0);
-    150:     /*<<test.ml:81:24>>*/ }
-    151:    var
-    152:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
-    153:     Test =
-    154:       [0,
-    155:        executable_name,
-    156:        os_type,
-    157:        backend_type,
-    158:        0,
-    159:        32,
-    160:        32,
-    161:        unix,
-    162:        win32,
-    163:        cygwin,
-    164:        max_array_length,
-    165:        max_floatarray_length,
-    166:        max_string_length,
-    167:        Unhandled,
-    168:        format_backtrace_slot,
-    169:        print_exception_backtrace,
-    170:        Either];
-    171:    runtime.caml_register_global(12, Test, "Test");
-    172:    return;
-    173:    /*<<?>>*/ }
-    174:   (globalThis));
-    175:
-    176: //# sourceMappingURL=test.map
+     32:         /*<<test.ml:14:22>>*/ (0),
+     33:     os_type =
+     34:        /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config
+     35:          /*<<test.ml:15:22>>*/ (0)
+     36:        [1],
+     37:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
+     38:     unix = runtime.caml_sys_const_ostype_unix(0),
+     39:     win32 = runtime.caml_sys_const_ostype_win32(0),
+     40:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
+     41:     max_array_length = runtime.caml_sys_const_max_wosize(0),
+     42:     max_floatarray_length = max_array_length / 2 | 0,
+     43:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
+     44:     Unhandled =
+     45:        /*<<test.ml:28:12>>*/ [248,
+     46:        caml_string_of_jsbytes("Test.Unhandled"),
+     47:        runtime.caml_fresh_oo_id(0)],
+     48:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
+     49:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
+     50:     cst_Raised_by_primitive_operat =
+     51:       caml_string_of_jsbytes("Raised by primitive operation at"),
+     52:     cst_Called_from = caml_string_of_jsbytes("Called from"),
+     53:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
+     54:     _a_ =
+     55:       [0,
+     56:        [2,
+     57:         0,
+     58:         [12,
+     59:          32,
+     60:          [2,
+     61:           0,
+     62:           [11,
+     63:            caml_string_of_jsbytes(' in file "'),
+     64:            [2,
+     65:             0,
+     66:             [12,
+     67:              34,
+     68:              [2,
+     69:               0,
+     70:               [11,
+     71:                caml_string_of_jsbytes(", line "),
+     72:                [4,
+     73:                 0,
+     74:                 0,
+     75:                 0,
+     76:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
+     77:        caml_string_of_jsbytes
+     78:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
+     79:     _b_ =
+     80:       [0,
+     81:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
+     82:        caml_string_of_jsbytes("%s unknown location")],
+     83:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
+     84:     _d_ =
+     85:       [0,
+     86:        [11,
+     87:         caml_string_of_jsbytes
+     88:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
+     89:         0],
+     90:        caml_string_of_jsbytes
+     91:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
+     92:    function format_backtrace_slot(pos, slot){
+     93:     function info(is_raise){
+     94:       /*<<test.ml:46:4>>*/ return is_raise
+     95:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
+     96:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
+     97:      /*<<test.ml:49:75>>*/ }
+     98:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
+     99:      var
+    100:       _h_ = slot[5],
+    101:       _i_ = slot[4],
+    102:       _j_ = slot[3],
+    103:       _k_ = slot[6] ? cst_inlined : cst,
+    104:       _l_ = slot[2],
+    105:       _m_ = slot[7],
+    106:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
+    107:       /*<<test.ml:58:6>>*/ return [0,
+    108:               /*<<test.ml:58:11>>*/ caml_call8
+    109:                /*<<test.ml:58:11>>*/ (Stdlib_Printf[4],
+    110:                _a_,
+    111:                _n_,
+    112:                _m_,
+    113:                _l_,
+    114:                _k_,
+    115:                _j_,
+    116:                _i_,
+    117:                _h_)];
+    118:     }
+    119:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    120:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
+    121:      /*<<test.ml:56:8>>*/ return [0,
+    122:              /*<<test.ml:56:13>>*/ caml_call2
+    123:               /*<<test.ml:56:13>>*/ (Stdlib_Printf[4], _b_, _o_)];
+    124:     /*<<test.ml:61:52>>*/ }
+    125:    function print_exception_backtrace(outchan, backtrace){
+    126:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    127:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
+    128:               /*<<test.ml:66:6>>*/ (Stdlib_Printf[1], outchan, _d_);
+    129:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
+    130:     if(_f_ >= 0){
+    131:      var i = _e_;
+    132:      for(;;){
+    133:       var
+    134:        match =
+    135:           /*<<test.ml:70:14>>*/ format_backtrace_slot
+    136:           (i, runtime.caml_check_bound(a, i)[1 + i]);
+    137:       if(match){
+    138:        var str = match[1];
+    139:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
+    140:          /*<<test.ml:72:24>>*/ (Stdlib_Printf[1], outchan, _c_, str);
+    141:       }
+    142:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
+    143:       if(_f_ === i) break;
+    144:       i = _g_;
+    145:      }
+    146:     }
+    147:     return 0;
+    148:     /*<<test.ml:73:10>>*/ }
+    149:    function compare(left, right, e1, e2){
+    150:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    151:      var v1 = e1[1];
+    152:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    153:      var v2 = e2[1];
+    154:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
+    155:               /*<<test.ml:78:24>>*/ (left, v1, v2);
+    156:     }
+    157:     var v1$0 = e1[1];
+    158:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    159:     var v2$0 = e2[1];
+    160:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
+    161:              /*<<test.ml:79:26>>*/ (right, v1$0, v2$0);
+    162:     /*<<test.ml:81:24>>*/ }
+    163:    var
+    164:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
+    165:     Test =
+    166:       [0,
+    167:        executable_name,
+    168:        os_type,
+    169:        backend_type,
+    170:        0,
+    171:        32,
+    172:        32,
+    173:        unix,
+    174:        win32,
+    175:        cygwin,
+    176:        max_array_length,
+    177:        max_floatarray_length,
+    178:        max_string_length,
+    179:        Unhandled,
+    180:        format_backtrace_slot,
+    181:        print_exception_backtrace,
+    182:        Either];
+    183:    runtime.caml_register_global(12, Test, "Test");
+    184:    return;
+    185:    /*<<?>>*/ }
+    186:   (globalThis));
+    187:
+    188: //# sourceMappingURL=test.map
     |}]
diff --git a/compiler/tests-compiler/js_parser_printer.ml b/compiler/tests-compiler/js_parser_printer.ml
index b01aa1e3f2..08632c2276 100644
--- a/compiler/tests-compiler/js_parser_printer.ml
+++ b/compiler/tests-compiler/js_parser_printer.ml
@@ -75,7 +75,7 @@ let print ?(debuginfo = true) ?(report = false) ?(invalid = false) ~compact sour
 
 let%expect_test "spread operator survives round-trip" =
   print ~compact:true "f(...[1, 2, 3])";
-  [%expect {| /*<<fake:1:0>>*/ /*<<fake:1:0>>*/f(...[1,2,3]); |}]
+  [%expect {| /*<<fake:1:0>>*/ /*<<fake:1:0>>*/f/*<<fake:1:0>>*/(...[1,2,3]); |}]
 
 let%expect_test "no postfix addition coalesce" =
   print ~compact:true "a + +b";
@@ -202,7 +202,7 @@ let%expect_test "ops" =
     /*<<fake:15:4>>*/ y = a?.b?.s?.[a] ?? c ?? d;
     /*<<fake:17:4>>*/ a?.b;
     /*<<fake:18:4>>*/ a?.[b];
-    /*<<fake:19:4>>*/  /*<<fake:19:4>>*/ a?.(b); |}]
+    /*<<fake:19:4>>*/  /*<<fake:19:4>>*/ a /*<<fake:19:4>>*/ ?.(b); |}]
 
 let%expect_test "arrow" =
   print
@@ -286,14 +286,18 @@ function rehb_shape(_face /*: fk_face */, text /*: string */) {
       /*<<fake:7:2>>*/ return undefined;
      /*<<fake:8:0>>*/ }
     function rehb_shape(_face, text){
-     var str =  /*<<fake:13:10>>*/  /*<<fake:13:12>>*/ caml_to_js_string(text);
+     var
+      str =
+         /*<<fake:13:10>>*/  /*<<fake:13:12>>*/ caml_to_js_string
+          /*<<fake:13:12>>*/ (text);
      var
       ret =
-         /*<<fake:14:10>>*/  /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split("").map
-         (function mapper(_char){
+         /*<<fake:14:10>>*/  /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split
+           /*<<fake:14:12>>*/ ("").map
+          /*<<fake:14:12>>*/ (function mapper(_char){
             /*<<fake:15:6>>*/ return [0, 0, 0];
            /*<<fake:14:30>>*/ });
-      /*<<fake:19:2>>*/  /*<<fake:19:2>>*/ ret.unshift(0);
+      /*<<fake:19:2>>*/  /*<<fake:19:2>>*/ ret.unshift /*<<fake:19:2>>*/ (0);
       /*<<fake:20:2>>*/ return ret;
      /*<<fake:21:0>>*/ } |}]
 
@@ -315,10 +319,10 @@ let%expect_test "rest parameters" =
     /*<<fake:2:6>>*/ api_obj[key_module][key_func] =
     function(...args){
       /*<<fake:3:8>>*/ return  /*<<fake:3:15>>*/  /*<<fake:3:15>>*/ checkIfInitialized
-              ().then
-             (function(){
+               /*<<fake:3:15>>*/ ().then
+              /*<<fake:3:15>>*/ (function(){
                 /*<<fake:4:10>>*/ return  /*<<fake:4:17>>*/ callWithProto
-                       (api_json[key_module][key_func], args);
+                        /*<<fake:4:17>>*/ (api_json[key_module][key_func], args);
                /*<<fake:3:41>>*/ });
      /*<<fake:2:38>>*/ }; |}]
 
@@ -359,12 +363,13 @@ let%expect_test "async/await" =
       glslangModule =
          /*<<fake:4:31>>*/ await
          /*<<fake:4:39>>*/ import
-         ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
+          /*<<fake:4:39>>*/ ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
      const
       glslang =
-         /*<<fake:7:25>>*/ await  /*<<fake:7:33>>*/ glslangModule.default();
+         /*<<fake:7:25>>*/ await
+         /*<<fake:7:33>>*/ glslangModule.default /*<<fake:7:33>>*/ ();
       /*<<fake:8:11>>*/ return  /*<<fake:8:18>>*/ glslang.compileGLSL
-             (src, "compute");
+              /*<<fake:8:18>>*/ (src, "compute");
      /*<<fake:2:9>>*/ }
      /*<<fake:12:4>>*/ async;
     function test(){ /*<<fake:13:22>>*/ }
@@ -487,7 +492,8 @@ let%expect_test "string template" =
     var s =  /*<<fake:5:10>>*/  /*<<fake:5:12>>*/ tag`asd ${test} te`;
     var
      s =
-        /*<<fake:7:10>>*/ `asd ${ /*<<fake:7:20>>*/ f(`space ${test} space`, 32)} te`; |}]
+        /*<<fake:7:10>>*/ `asd ${ /*<<fake:7:20>>*/ f
+         /*<<fake:7:20>>*/ (`space ${test} space`, 32)} te`; |}]
 
 let%expect_test "from keyword" =
   (* GH#1017 *)
@@ -509,10 +515,11 @@ let%expect_test "from keyword" =
         /*<<fake:5:14>>*/ get =
         function get(x){ /*<<fake:5:34>>*/ return x; /*<<fake:5:18>>*/ };
        /*<<fake:6:6>>*/ return  /*<<fake:6:13>>*/ this.compute
-              ([field],
+               /*<<fake:6:13>>*/ ([field],
                function(state){
                  /*<<fake:6:50>>*/ return  /*<<fake:6:57>>*/ get
-                        ( /*<<fake:6:61>>*/ state.field(field));
+                         /*<<fake:6:57>>*/ ( /*<<fake:6:61>>*/ state.field
+                           /*<<fake:6:61>>*/ (field));
                 /*<<fake:6:34>>*/ });
       /*<<fake:4:3>>*/ }}); |}]
 
@@ -562,7 +569,7 @@ class x extends p {
     {|
     class x extends p {
        constructor(){
-         /*<<fake:4:6>>*/  /*<<fake:4:6>>*/ super(a, b, c);
+         /*<<fake:4:6>>*/  /*<<fake:4:6>>*/ super /*<<fake:4:6>>*/ (a, b, c);
         /*<<fake:3:4>>*/ }
        foo(){
         var s =  /*<<fake:8:12>>*/ super[d];
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index ee375f9bfe..6a1875a75a 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -366,11 +366,11 @@
     Undefined_recursive_module = global_data.Undefined_recursive_module;
    function failwith(s){
      /*<<stdlib.ml:29:17>>*/ throw  /*<<stdlib.ml:29:17>>*/ caml_maybe_attach_backtrace
-           ([0, Failure, s], 1);
+            /*<<stdlib.ml:29:17>>*/ ([0, Failure, s], 1);
     /*<<stdlib.ml:29:33>>*/ }
    function invalid_arg(s){
      /*<<stdlib.ml:30:20>>*/ throw  /*<<stdlib.ml:30:20>>*/ caml_maybe_attach_backtrace
-           ([0, Invalid_argument, s], 1);
+            /*<<stdlib.ml:30:20>>*/ ([0, Invalid_argument, s], 1);
     /*<<stdlib.ml:30:45>>*/ }
    var
     Exit =
@@ -379,13 +379,13 @@
        runtime.caml_fresh_oo_id(0)];
    function min(x, y){
      /*<<stdlib.ml:74:14>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
-             (x, y)
+              /*<<stdlib.ml:74:17>>*/ (x, y)
             ? x
             : y;
     /*<<stdlib.ml:74:37>>*/ }
    function max(x, y){
      /*<<stdlib.ml:75:14>>*/ return  /*<<stdlib.ml:75:17>>*/ runtime.caml_greaterequal
-             (x, y)
+              /*<<stdlib.ml:75:17>>*/ (x, y)
             ? x
             : y;
     /*<<stdlib.ml:75:37>>*/ }
@@ -398,22 +398,27 @@
    var
     infinity =
        /*<<stdlib.ml:180:2>>*/  /*<<stdlib.ml:180:2>>*/ caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(0, 0, 32752)),
+        /*<<stdlib.ml:180:2>>*/ (runtime.caml_int64_create_lo_mi_hi
+         (0, 0, 32752)),
     neg_infinity =
        /*<<stdlib.ml:182:2>>*/  /*<<stdlib.ml:182:2>>*/ caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(0, 0, 65520)),
+        /*<<stdlib.ml:182:2>>*/ (runtime.caml_int64_create_lo_mi_hi
+         (0, 0, 65520)),
     nan =
        /*<<stdlib.ml:184:2>>*/  /*<<stdlib.ml:184:2>>*/ caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(1, 0, 32760)),
+        /*<<stdlib.ml:184:2>>*/ (runtime.caml_int64_create_lo_mi_hi
+         (1, 0, 32760)),
     max_float =
        /*<<stdlib.ml:186:2>>*/  /*<<stdlib.ml:186:2>>*/ caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 32751)),
+        /*<<stdlib.ml:186:2>>*/ (runtime.caml_int64_create_lo_mi_hi
+         (16777215, 16777215, 32751)),
     min_float =
        /*<<stdlib.ml:188:2>>*/  /*<<stdlib.ml:188:2>>*/ caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(0, 0, 16)),
+        /*<<stdlib.ml:188:2>>*/ (runtime.caml_int64_create_lo_mi_hi(0, 0, 16)),
     epsilon_float =
        /*<<stdlib.ml:190:2>>*/  /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(0, 0, 15536)),
+        /*<<stdlib.ml:190:2>>*/ (runtime.caml_int64_create_lo_mi_hi
+         (0, 0, 15536)),
     symbol_concat = caml_string_concat,
     cst_char_of_int = "char_of_int",
     cst_true = cst_true$0,
@@ -447,7 +452,8 @@
      var
       _w_ =
          /*<<stdlib.ml:272:6>>*/ [0,
-          /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
+          /*<<stdlib.ml:272:11>>*/ caml_int_of_string
+           /*<<stdlib.ml:272:11>>*/ (s)];
       /*<<stdlib.ml:272:6>>*/ return _w_;
     }
     catch(_x_){
@@ -463,7 +469,7 @@
      var
       match =
          /*<<stdlib.ml:281:10>>*/  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get
-         (s1, i);
+          /*<<stdlib.ml:281:10>>*/ (s1, i);
      a:
      {
       if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
@@ -475,14 +481,16 @@
     /*<<stdlib.ml:285:8>>*/ }
    function string_of_float(f){
      /*<<stdlib.ml:287:24>>*/ return valid_float_lexem
-            ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float("%.12g", f));
+            ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float
+               /*<<stdlib.ml:287:42>>*/ ("%.12g", f));
     /*<<stdlib.ml:287:66>>*/ }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
      var
       _t_ =
          /*<<stdlib.ml:293:6>>*/ [0,
-          /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
+          /*<<stdlib.ml:293:11>>*/ caml_float_of_string
+           /*<<stdlib.ml:293:11>>*/ (s)];
       /*<<stdlib.ml:293:6>>*/ return _t_;
     }
     catch(_u_){
@@ -533,13 +541,13 @@
    var
     stdin =
        /*<<stdlib.ml:314:12>>*/  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in
-       (0),
+        /*<<stdlib.ml:314:12>>*/ (0),
     stdout =
        /*<<stdlib.ml:315:13>>*/  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out
-       (1),
+        /*<<stdlib.ml:315:13>>*/ (1),
     stderr =
        /*<<stdlib.ml:316:13>>*/  /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out
-       (2),
+        /*<<stdlib.ml:316:13>>*/ (2),
     _c_ = [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
     _d_ = [0, 1, [0, 3, [0, 4, [0, 6, 0]]]],
     cst_output = "output",
@@ -552,9 +560,10 @@
     var
      c =
         /*<<stdlib.ml:331:10>>*/  /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
-        ( /*<<stdlib.ml:331:29>>*/ caml_sys_open(name, mode, perm));
+         /*<<stdlib.ml:331:10>>*/ ( /*<<stdlib.ml:331:29>>*/ caml_sys_open
+           /*<<stdlib.ml:331:29>>*/ (name, mode, perm));
      /*<<stdlib.ml:332:2>>*/  /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name
-     (c, name);
+      /*<<stdlib.ml:332:2>>*/ (c, name);
      /*<<stdlib.ml:332:2>>*/ return c;
     /*<<stdlib.ml:333:3>>*/ }
    function open_out(name){
@@ -565,12 +574,15 @@
     /*<<stdlib.ml:339:76>>*/ }
    function flush_all(param){
     var
-     param$0 =  /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list(0);
+     param$0 =
+        /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list
+         /*<<stdlib.ml:356:10>>*/ (0);
      /*<<stdlib.ml:347:17>>*/ for(;;){
      if(! param$0)  /*<<stdlib.ml:348:12>>*/ return 0;
      var l = param$0[2], a = param$0[1];
       /*<<stdlib.ml:350:8>>*/ try{
-       /*<<stdlib.ml:351:12>>*/  /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);
+       /*<<stdlib.ml:351:12>>*/  /*<<stdlib.ml:351:12>>*/ caml_ml_flush
+        /*<<stdlib.ml:351:12>>*/ (a);
      }
      catch(_p_){
       var _o_ = caml_wrap_exception(_p_);
@@ -581,45 +593,47 @@
     /*<<stdlib.ml:356:32>>*/ }
    function output_bytes(oc, s){
      /*<<stdlib.ml:366:2>>*/ return  /*<<stdlib.ml:366:2>>*/ caml_ml_output_bytes
-            (oc, s, 0, caml_ml_bytes_length(s));
+             /*<<stdlib.ml:366:2>>*/ (oc, s, 0, caml_ml_bytes_length(s));
     /*<<stdlib.ml:366:39>>*/ }
    function output_string(oc, s){
      /*<<stdlib.ml:369:2>>*/ return  /*<<stdlib.ml:369:2>>*/ caml_ml_output
-            (oc, s, 0, caml_ml_string_length(s));
+             /*<<stdlib.ml:369:2>>*/ (oc, s, 0, caml_ml_string_length(s));
     /*<<stdlib.ml:369:47>>*/ }
    function output(oc, s, ofs, len){
      /*<<stdlib.ml:372:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:374:7>>*/ return  /*<<stdlib.ml:374:7>>*/ caml_ml_output_bytes
-             (oc, s, ofs, len);
+              /*<<stdlib.ml:374:7>>*/ (oc, s, ofs, len);
      /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output);
     /*<<stdlib.ml:374:33>>*/ }
    function output_substring(oc, s, ofs, len){
      /*<<stdlib.ml:377:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:379:7>>*/ return  /*<<stdlib.ml:379:7>>*/ caml_ml_output
-             (oc, s, ofs, len);
+              /*<<stdlib.ml:379:7>>*/ (oc, s, ofs, len);
      /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring);
     /*<<stdlib.ml:379:40>>*/ }
    function output_value(chan, v){
      /*<<stdlib.ml:386:26>>*/ return  /*<<stdlib.ml:386:26>>*/ runtime.caml_output_value
-            (chan, v, 0);
+             /*<<stdlib.ml:386:26>>*/ (chan, v, 0);
     /*<<stdlib.ml:386:54>>*/ }
    function close_out(oc){
-     /*<<stdlib.ml:392:19>>*/  /*<<stdlib.ml:392:19>>*/ caml_ml_flush(oc);
+     /*<<stdlib.ml:392:19>>*/  /*<<stdlib.ml:392:19>>*/ caml_ml_flush
+      /*<<stdlib.ml:392:19>>*/ (oc);
      /*<<stdlib.ml:392:29>>*/ return  /*<<stdlib.ml:392:29>>*/ caml_ml_close_channel
-            (oc);
+             /*<<stdlib.ml:392:29>>*/ (oc);
     /*<<stdlib.ml:392:49>>*/ }
    function close_out_noerr(oc){
      /*<<stdlib.ml:394:2>>*/ try{
-      /*<<stdlib.ml:394:7>>*/  /*<<stdlib.ml:394:7>>*/ caml_ml_flush(oc);
+      /*<<stdlib.ml:394:7>>*/  /*<<stdlib.ml:394:7>>*/ caml_ml_flush
+       /*<<stdlib.ml:394:7>>*/ (oc);
     }
     catch(_n_){}
      /*<<stdlib.ml:395:2>>*/ try{
      var
       _l_ =
          /*<<stdlib.ml:395:7>>*/  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel
-         (oc);
+          /*<<stdlib.ml:395:7>>*/ (oc);
       /*<<stdlib.ml:395:7>>*/ return _l_;
     }
     catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0;}
@@ -628,9 +642,10 @@
     var
      c =
         /*<<stdlib.ml:405:10>>*/  /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
-        ( /*<<stdlib.ml:405:28>>*/ caml_sys_open(name, mode, perm));
+         /*<<stdlib.ml:405:10>>*/ ( /*<<stdlib.ml:405:28>>*/ caml_sys_open
+           /*<<stdlib.ml:405:28>>*/ (name, mode, perm));
      /*<<stdlib.ml:406:2>>*/  /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name
-     (c, name);
+      /*<<stdlib.ml:406:2>>*/ (c, name);
      /*<<stdlib.ml:406:2>>*/ return c;
     /*<<stdlib.ml:407:3>>*/ }
    function open_in(name){
@@ -643,7 +658,7 @@
      /*<<stdlib.ml:421:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:423:7>>*/ return  /*<<stdlib.ml:423:7>>*/ caml_ml_input
-             (ic, s, ofs, len);
+              /*<<stdlib.ml:423:7>>*/ (ic, s, ofs, len);
      /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input);
     /*<<stdlib.ml:423:32>>*/ }
    function unsafe_really_input(ic, s, ofs, len){
@@ -653,10 +668,10 @@
      var
       r =
          /*<<stdlib.ml:427:12>>*/  /*<<stdlib.ml:427:12>>*/ caml_ml_input
-         (ic, s, ofs$0, len$0);
+          /*<<stdlib.ml:427:12>>*/ (ic, s, ofs$0, len$0);
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
        /*<<stdlib.ml:429:9>>*/ throw  /*<<stdlib.ml:429:9>>*/ caml_maybe_attach_backtrace
-             (End_of_file, 1);
+              /*<<stdlib.ml:429:9>>*/ (End_of_file, 1);
      var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
      ofs$0 = ofs$1;
      len$0 = len$1;
@@ -672,7 +687,7 @@
     var
      s =
         /*<<stdlib.ml:439:10>>*/  /*<<stdlib.ml:439:10>>*/ caml_create_bytes
-        (len);
+         /*<<stdlib.ml:439:10>>*/ (len);
      /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
     return caml_string_of_bytes(s);
     /*<<stdlib.ml:441:26>>*/ }
@@ -686,9 +701,9 @@
        hd = param$0[1],
        len =
           /*<<stdlib.ml:449:6>>*/  /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length
-          (hd);
+           /*<<stdlib.ml:449:6>>*/ (hd);
        /*<<stdlib.ml:450:6>>*/  /*<<stdlib.ml:450:6>>*/ runtime.caml_blit_bytes
-       (hd, 0, buf, pos$0 - len | 0, len);
+        /*<<stdlib.ml:450:6>>*/ (hd, 0, buf, pos$0 - len | 0, len);
       var pos$1 = pos$0 - len | 0;
       pos$0 = pos$1;
       param$0 = tl;
@@ -699,24 +714,27 @@
      var
       n =
          /*<<stdlib.ml:453:12>>*/  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line
-         (chan);
+          /*<<stdlib.ml:453:12>>*/ (chan);
       /*<<stdlib.ml:454:4>>*/ if(0 === n){
       if(! accu)
         /*<<stdlib.ml:456:14>>*/ throw  /*<<stdlib.ml:456:14>>*/ caml_maybe_attach_backtrace
-              (End_of_file, 1);
+               /*<<stdlib.ml:456:14>>*/ (End_of_file, 1);
       var
        _k_ =
          build_result
-          ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes(len), len, accu);
+          ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes
+             /*<<stdlib.ml:457:27>>*/ (len),
+           len,
+           accu);
      }
      else{
       if(0 >= n){
        var
         beg =
            /*<<stdlib.ml:467:16>>*/  /*<<stdlib.ml:467:16>>*/ caml_create_bytes
-           (- n | 0);
+            /*<<stdlib.ml:467:16>>*/ (- n | 0);
         /*<<stdlib.ml:468:12>>*/  /*<<stdlib.ml:468:12>>*/ caml_ml_input
-        (chan, beg, 0, - n | 0);
+         /*<<stdlib.ml:468:12>>*/ (chan, beg, 0, - n | 0);
        var
         len$1 = len - n | 0,
         accu$0 =  /*<<stdlib.ml:469:11>>*/ [0, beg, accu];
@@ -727,24 +745,25 @@
       var
        res =
           /*<<stdlib.ml:459:16>>*/  /*<<stdlib.ml:459:16>>*/ caml_create_bytes
-          (n - 1 | 0);
+           /*<<stdlib.ml:459:16>>*/ (n - 1 | 0);
        /*<<stdlib.ml:460:13>>*/  /*<<stdlib.ml:460:13>>*/ caml_ml_input
-       (chan, res, 0, n - 1 | 0);
+        /*<<stdlib.ml:460:13>>*/ (chan, res, 0, n - 1 | 0);
        /*<<stdlib.ml:461:13>>*/  /*<<stdlib.ml:461:13>>*/ caml_ml_input_char
-       (chan);
+        /*<<stdlib.ml:461:13>>*/ (chan);
       if(accu)
        var
         len$0 = (len + n | 0) - 1 | 0,
         _k_ =
           build_result
-           ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes(len$0),
+           ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes
+              /*<<stdlib.ml:465:27>>*/ (len$0),
             len$0,
             [0, res, accu]);
       else
        var _k_ = res;
      }
       /*<<stdlib.ml:471:28>>*/ return  /*<<stdlib.ml:471:28>>*/ caml_string_of_bytes
-             (_k_);
+              /*<<stdlib.ml:471:28>>*/ (_k_);
     }
     /*<<stdlib.ml:471:39>>*/ }
    function close_in_noerr(ic){
@@ -752,14 +771,14 @@
      var
       _i_ =
          /*<<stdlib.ml:480:29>>*/  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel
-         (ic);
+          /*<<stdlib.ml:480:29>>*/ (ic);
       /*<<stdlib.ml:480:29>>*/ return _i_;
     }
     catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0;}
     /*<<stdlib.ml:480:54>>*/ }
    function print_char(c){
      /*<<stdlib.ml:486:19>>*/ return  /*<<stdlib.ml:486:19>>*/ caml_ml_output_char
-            (stdout, c);
+             /*<<stdlib.ml:486:19>>*/ (stdout, c);
     /*<<stdlib.ml:486:39>>*/ }
    function print_string(s){
      /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s);
@@ -776,19 +795,19 @@
    function print_endline(s){
      /*<<stdlib.ml:492:2>>*/ output_string(stdout, s);
      /*<<stdlib.ml:492:26>>*/  /*<<stdlib.ml:492:26>>*/ caml_ml_output_char
-     (stdout, 10);
+      /*<<stdlib.ml:492:26>>*/ (stdout, 10);
      /*<<stdlib.ml:492:51>>*/ return  /*<<stdlib.ml:492:51>>*/ caml_ml_flush
-            (stdout);
+             /*<<stdlib.ml:492:51>>*/ (stdout);
     /*<<stdlib.ml:492:63>>*/ }
    function print_newline(param){
      /*<<stdlib.ml:493:23>>*/  /*<<stdlib.ml:493:23>>*/ caml_ml_output_char
-     (stdout, 10);
+      /*<<stdlib.ml:493:23>>*/ (stdout, 10);
      /*<<stdlib.ml:493:48>>*/ return  /*<<stdlib.ml:493:48>>*/ caml_ml_flush
-            (stdout);
+             /*<<stdlib.ml:493:48>>*/ (stdout);
     /*<<stdlib.ml:493:60>>*/ }
    function prerr_char(c){
      /*<<stdlib.ml:497:19>>*/ return  /*<<stdlib.ml:497:19>>*/ caml_ml_output_char
-            (stderr, c);
+             /*<<stdlib.ml:497:19>>*/ (stderr, c);
     /*<<stdlib.ml:497:39>>*/ }
    function prerr_string(s){
      /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s);
@@ -805,30 +824,31 @@
    function prerr_endline(s){
      /*<<stdlib.ml:503:2>>*/ output_string(stderr, s);
      /*<<stdlib.ml:503:26>>*/  /*<<stdlib.ml:503:26>>*/ caml_ml_output_char
-     (stderr, 10);
+      /*<<stdlib.ml:503:26>>*/ (stderr, 10);
      /*<<stdlib.ml:503:51>>*/ return  /*<<stdlib.ml:503:51>>*/ caml_ml_flush
-            (stderr);
+             /*<<stdlib.ml:503:51>>*/ (stderr);
     /*<<stdlib.ml:503:63>>*/ }
    function prerr_newline(param){
      /*<<stdlib.ml:504:23>>*/  /*<<stdlib.ml:504:23>>*/ caml_ml_output_char
-     (stderr, 10);
+      /*<<stdlib.ml:504:23>>*/ (stderr, 10);
      /*<<stdlib.ml:504:48>>*/ return  /*<<stdlib.ml:504:48>>*/ caml_ml_flush
-            (stderr);
+             /*<<stdlib.ml:504:48>>*/ (stderr);
     /*<<stdlib.ml:504:60>>*/ }
    function read_line(param){
-     /*<<stdlib.ml:508:19>>*/  /*<<stdlib.ml:508:19>>*/ caml_ml_flush(stdout);
+     /*<<stdlib.ml:508:19>>*/  /*<<stdlib.ml:508:19>>*/ caml_ml_flush
+      /*<<stdlib.ml:508:19>>*/ (stdout);
      /*<<stdlib.ml:314:12>>*/ return input_line(stdin);
     /*<<stdlib.ml:508:49>>*/ }
    function read_int(param){
      /*<<stdlib.ml:509:18>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
-            (read_line(0));
+             /*<<stdlib.ml:509:18>>*/ (read_line(0));
     /*<<stdlib.ml:509:44>>*/ }
    function read_int_opt(param){
      /*<<stdlib.ml:510:22>>*/ return int_of_string_opt(read_line(0));
     /*<<stdlib.ml:510:52>>*/ }
    function read_float(param){
      /*<<stdlib.ml:511:20>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
-            (read_line(0));
+             /*<<stdlib.ml:511:20>>*/ (read_line(0));
     /*<<stdlib.ml:511:48>>*/ }
    function read_float_opt(param){
      /*<<stdlib.ml:512:24>>*/ return float_of_string_opt(read_line(0));
@@ -846,7 +866,9 @@
      s2 = "%," + str2;
      /*<<stdlib.ml:545:2>>*/ return [0,
              /*<<stdlib.ml:545:10>>*/ caml_call2
-             (CamlinternalFormatBasics[3], fmt1, fmt2),
+              /*<<stdlib.ml:545:10>>*/ (CamlinternalFormatBasics[3],
+              fmt1,
+              fmt2),
             str1 + s2];
    }
    var exit_function =  /*<<stdlib.ml:559:20>>*/ [0, flush_all];
@@ -856,15 +878,16 @@
       f_yet_to_run =  /*<<stdlib.ml:563:21>>*/ [0, 1],
       old_exit =
          /*<<stdlib.ml:564:2>>*/  /*<<stdlib.ml:564:2>>*/ caml_atomic_load
-         (exit_function);
+          /*<<stdlib.ml:564:2>>*/ (exit_function);
      let f_yet_to_run$0 = f_yet_to_run, old_exit$0 = old_exit;
      var
       new_exit =
         function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
-           /*<<stdlib.ml:566:59>>*/  /*<<stdlib.ml:566:59>>*/ caml_call1(f, 0);
+           /*<<stdlib.ml:566:59>>*/  /*<<stdlib.ml:566:59>>*/ caml_call1
+            /*<<stdlib.ml:566:59>>*/ (f, 0);
           /*<<stdlib.ml:566:59>>*/ return  /*<<stdlib.ml:566:59>>*/ caml_call1
-                 (old_exit$0, 0);
+                  /*<<stdlib.ml:566:59>>*/ (old_exit$0, 0);
          /*<<stdlib.ml:567:15>>*/ },
       success = caml_atomic_cas(exit_function, old_exit, new_exit),
       _g_ =  /*<<stdlib.ml:570:2>>*/ 1 - success;
@@ -879,17 +902,17 @@
         /*<<stdlib.ml:572:47>>*/ }];
    function do_at_exit(param){
      /*<<stdlib.ml:575:2>>*/  /*<<stdlib.ml:575:2>>*/ caml_call1
-     (do_domain_local_at_exit[1], 0);
+      /*<<stdlib.ml:575:2>>*/ (do_domain_local_at_exit[1], 0);
      /*<<stdlib.ml:575:2>>*/ return  /*<<stdlib.ml:575:2>>*/ caml_call1
-            (caml_atomic_load(exit_function), 0);
+             /*<<stdlib.ml:575:2>>*/ (caml_atomic_load(exit_function), 0);
     /*<<stdlib.ml:576:31>>*/ }
    function exit(retcode){
      /*<<stdlib.ml:579:2>>*/ do_at_exit(0);
      /*<<stdlib.ml:580:2>>*/ return  /*<<stdlib.ml:580:2>>*/ runtime.caml_sys_exit
-            (retcode);
+             /*<<stdlib.ml:580:2>>*/ (retcode);
     /*<<stdlib.ml:580:18>>*/ }
     /*<<stdlib.ml:582:8>>*/  /*<<stdlib.ml:582:8>>*/ runtime.caml_register_named_value
-    ("Pervasives.do_at_exit", do_at_exit);
+     /*<<stdlib.ml:582:8>>*/ ("Pervasives.do_at_exit", do_at_exit);
    var
     Stdlib =
       [0,
@@ -1050,33 +1073,35 @@
      /*<<?>>*/ if(0 !== e[0])  /*<<either.ml:39:18>>*/ return e;
     var v = e[1];
      /*<<either.ml:38:12>>*/ return [0,
-             /*<<either.ml:38:17>>*/ caml_call1(f, v)];
+             /*<<either.ml:38:17>>*/ caml_call1 /*<<either.ml:38:17>>*/ (f, v)];
    }
    function map_right(f, e){
      /*<<?>>*/ if(0 === e[0])  /*<<either.ml:42:17>>*/ return e;
     var v = e[1];
      /*<<either.ml:43:13>>*/ return [1,
-             /*<<either.ml:43:19>>*/ caml_call1(f, v)];
+             /*<<either.ml:43:19>>*/ caml_call1 /*<<either.ml:43:19>>*/ (f, v)];
    }
    function map(left, right, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:46:12>>*/ return [0,
-              /*<<either.ml:46:17>>*/ caml_call1(left, v)];
+              /*<<either.ml:46:17>>*/ caml_call1
+               /*<<either.ml:46:17>>*/ (left, v)];
     }
     var v$0 = param[1];
      /*<<either.ml:47:13>>*/ return [1,
-             /*<<either.ml:47:19>>*/ caml_call1(right, v$0)];
+             /*<<either.ml:47:19>>*/ caml_call1
+              /*<<either.ml:47:19>>*/ (right, v$0)];
    }
    function fold(left, right, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:50:12>>*/ return  /*<<either.ml:50:12>>*/ caml_call1
-             (left, v);
+              /*<<either.ml:50:12>>*/ (left, v);
     }
     var v$0 = param[1];
      /*<<either.ml:51:13>>*/ return  /*<<either.ml:51:13>>*/ caml_call1
-            (right, v$0);
+             /*<<either.ml:51:13>>*/ (right, v$0);
    }
    function equal(left, right, e1, e2){
      /*<<either.ml:57:31>>*/ if(0 === e1[0]){
@@ -1084,7 +1109,7 @@
      if(0 === e2[0]){
       var v2 = e2[1];
        /*<<either.ml:58:22>>*/ return  /*<<either.ml:58:22>>*/ caml_call2
-              (left, v1, v2);
+               /*<<either.ml:58:22>>*/ (left, v1, v2);
      }
     }
     else{
@@ -1092,7 +1117,7 @@
      if(0 !== e2[0]){
       var v2$0 = e2[1];
        /*<<either.ml:59:24>>*/ return  /*<<either.ml:59:24>>*/ caml_call2
-              (right, v1$0, v2$0);
+               /*<<either.ml:59:24>>*/ (right, v1$0, v2$0);
      }
     }
      /*<<either.ml:60:39>>*/ return 0;
@@ -1103,13 +1128,13 @@
      if(0 !== e2[0])  /*<<either.ml:65:21>>*/ return -1;
      var v2 = e2[1];
       /*<<either.ml:63:22>>*/ return  /*<<either.ml:63:22>>*/ caml_call2
-             (left, v1, v2);
+              /*<<either.ml:63:22>>*/ (left, v1, v2);
     }
     var v1$0 = e1[1];
     if(0 === e2[0])  /*<<either.ml:66:21>>*/ return 1;
     var v2$0 = e2[1];
      /*<<either.ml:64:24>>*/ return  /*<<either.ml:64:24>>*/ caml_call2
-            (right, v1$0, v2$0);
+             /*<<either.ml:64:24>>*/ (right, v1$0, v2$0);
     /*<<either.ml:66:22>>*/ }
    var
     Stdlib_Either =
@@ -1149,8 +1174,11 @@
     Stdlib = global_data.Stdlib,
     executable_name =
        /*<<sys.ml.in:36:22>>*/  /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name
-       (0),
-    os_type =  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config(0)[1],
+        /*<<sys.ml.in:36:22>>*/ (0),
+    os_type =
+       /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config
+         /*<<sys.ml.in:37:22>>*/ (0)
+       [1],
     backend_type = [0, "js_of_ocaml"],
     unix = runtime.caml_sys_const_ostype_unix(0),
     win32 = runtime.caml_sys_const_ostype_win32(0),
@@ -1163,7 +1191,8 @@
      var
       _d_ =
          /*<<sys.ml.in:60:6>>*/ [0,
-          /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
+          /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv
+           /*<<sys.ml.in:60:11>>*/ (s)];
       /*<<sys.ml.in:60:6>>*/ return _d_;
     }
     catch(_e_){
@@ -1281,22 +1310,30 @@
     {
       /*<<obj.ml:77:9>>*/ if
       (is_block(x)
-       &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot = x[1]; break a;}
+       &&
+         /*<<obj.ml:77:25>>*/ caml_obj_tag /*<<obj.ml:77:25>>*/ (x) !== 248
+        && 1 <= x.length - 1){
+      var slot = x[1];
+      break a;
+     }
      var slot = x;
     }
     a:
     {
       /*<<obj.ml:81:9>>*/ if
-      (is_block(slot) &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
+      (is_block(slot)
+       &&
+         /*<<obj.ml:81:28>>*/ caml_obj_tag /*<<obj.ml:81:28>>*/ (slot) === 248){var name = slot[1]; break a;}
      var
       name =
          /*<<obj.ml:82:11>>*/ caml_call1
-         (Stdlib[1], cst_Obj_extension_constructor$0);
+          /*<<obj.ml:82:11>>*/ (Stdlib[1], cst_Obj_extension_constructor$0);
     }
-    return  /*<<obj.ml:84:9>>*/ caml_obj_tag(name) === 252
+    return  /*<<obj.ml:84:9>>*/ caml_obj_tag /*<<obj.ml:84:9>>*/ (name)
+            === 252
             ? slot
             :  /*<<obj.ml:85:11>>*/ caml_call1
-              (Stdlib[1], cst_Obj_extension_constructor);
+               /*<<obj.ml:85:11>>*/ (Stdlib[1], cst_Obj_extension_constructor);
     /*<<obj.ml:85:50>>*/ }
    function name(slot){
      /*<<obj.ml:88:5>>*/ return slot[1];
@@ -1318,9 +1355,9 @@
     var _f_ = 0 <= l ? 1 : 0, _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
     if(1 - _g_)
       /*<<obj.ml:106:6>>*/  /*<<obj.ml:106:6>>*/ caml_call1
-      (Stdlib[1], cst_Obj_Ephemeron_create);
+       /*<<obj.ml:106:6>>*/ (Stdlib[1], cst_Obj_Ephemeron_create);
      /*<<obj.ml:107:4>>*/ return  /*<<obj.ml:107:4>>*/ runtime.caml_ephe_create
-            (l);
+             /*<<obj.ml:107:4>>*/ (l);
     /*<<obj.ml:107:12>>*/ }
    function length(x){
      /*<<obj.ml:109:17>>*/ return x.length - 3 | 0;
@@ -1330,37 +1367,40 @@
      _c_ = 0 <= o ? 1 : 0,
      _d_ = _c_ ? o < length(e) ? 1 : 0 : _c_,
      _e_ = 1 - _d_;
-    return _e_ ?  /*<<obj.ml:113:6>>*/ caml_call1(Stdlib[1], msg) : _e_;
+    return _e_
+            ?  /*<<obj.ml:113:6>>*/ caml_call1
+               /*<<obj.ml:113:6>>*/ (Stdlib[1], msg)
+            : _e_;
     /*<<obj.ml:113:21>>*/ }
    function get_key(e, o){
      /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key);
      /*<<obj.ml:118:4>>*/ return  /*<<obj.ml:118:4>>*/ runtime.caml_ephe_get_key
-            (e, o);
+             /*<<obj.ml:118:4>>*/ (e, o);
     /*<<obj.ml:118:15>>*/ }
    function get_key_copy(e, o){
      /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key_copy);
      /*<<obj.ml:123:4>>*/ return  /*<<obj.ml:123:4>>*/ runtime.caml_ephe_get_key_copy
-            (e, o);
+             /*<<obj.ml:123:4>>*/ (e, o);
     /*<<obj.ml:123:20>>*/ }
    function set_key(e, o, x){
      /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_set_key);
      /*<<obj.ml:128:4>>*/ return  /*<<obj.ml:128:4>>*/ runtime.caml_ephe_set_key
-            (e, o, x);
+             /*<<obj.ml:128:4>>*/ (e, o, x);
     /*<<obj.ml:128:17>>*/ }
    function unset_key(e, o){
      /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_unset_key);
      /*<<obj.ml:133:4>>*/ return  /*<<obj.ml:133:4>>*/ runtime.caml_ephe_unset_key
-            (e, o);
+             /*<<obj.ml:133:4>>*/ (e, o);
     /*<<obj.ml:133:17>>*/ }
    function check_key(e, o){
      /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_check_key);
      /*<<obj.ml:138:4>>*/ return  /*<<obj.ml:138:4>>*/ runtime.caml_ephe_check_key
-            (e, o);
+             /*<<obj.ml:138:4>>*/ (e, o);
     /*<<obj.ml:138:17>>*/ }
    function blit_key(e1, o1, e2, o2, l){
      /*<<obj.ml:144:4>>*/ if
@@ -1373,12 +1413,12 @@
       _b_ =
         _a_
          ?  /*<<obj.ml:147:24>>*/ runtime.caml_ephe_blit_key
-           (e1, o1, e2, o2, l)
+            /*<<obj.ml:147:24>>*/ (e1, o1, e2, o2, l)
          : _a_;
       /*<<obj.ml:147:24>>*/ return _b_;
     }
      /*<<obj.ml:146:9>>*/ return  /*<<obj.ml:146:9>>*/ caml_call1
-            (Stdlib[1], cst_Obj_Ephemeron_blit_key);
+             /*<<obj.ml:146:9>>*/ (Stdlib[1], cst_Obj_Ephemeron_blit_key);
     /*<<obj.ml:147:46>>*/ }
    var
     Stdlib_Obj =
@@ -1451,9 +1491,9 @@
     var
      _b_ =
         /*<<type.ml:35:33>>*/  /*<<type.ml:35:33>>*/ caml_call1
-        (Stdlib_Obj[22][1], A[1]);
+         /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][1], A[1]);
      /*<<type.ml:35:33>>*/ return  /*<<type.ml:35:33>>*/ caml_call1
-            (Stdlib_Obj[22][3], _b_);
+             /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][3], _b_);
     /*<<type.ml:35:72>>*/ }
    function provably_equal(A, B){
      /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0;
@@ -1531,19 +1571,19 @@
      (0
       !==
         /*<<camlinternalLazy.ml:72:8>>*/ runtime.caml_lazy_update_to_forcing
-        (blk))
+         /*<<camlinternalLazy.ml:72:8>>*/ (blk))
       /*<<camlinternalLazy.ml:75:9>>*/ throw  /*<<camlinternalLazy.ml:75:9>>*/ caml_maybe_attach_backtrace
-            (Undefined, 1);
+             /*<<camlinternalLazy.ml:75:9>>*/ (Undefined, 1);
     if(only_val){
      var closure$0 =  /*<<camlinternalLazy.ml:61:25>>*/ blk[1];
       /*<<camlinternalLazy.ml:62:2>>*/ blk[1] = 0;
      var
       result$0 =
          /*<<camlinternalLazy.ml:63:15>>*/  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1
-         (closure$0, 0);
+          /*<<camlinternalLazy.ml:63:15>>*/ (closure$0, 0);
       /*<<camlinternalLazy.ml:64:2>>*/ blk[1] = result$0;
       /*<<camlinternalLazy.ml:65:2>>*/  /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward
-      (blk);
+       /*<<camlinternalLazy.ml:65:2>>*/ (blk);
       /*<<camlinternalLazy.ml:65:2>>*/ return result$0;
     }
     var closure =  /*<<camlinternalLazy.ml:46:25>>*/ blk[1];
@@ -1552,10 +1592,10 @@
      var
       result =
          /*<<camlinternalLazy.ml:49:17>>*/  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1
-         (closure, 0);
+          /*<<camlinternalLazy.ml:49:17>>*/ (closure, 0);
       /*<<camlinternalLazy.ml:50:4>>*/ blk[1] = result;
       /*<<camlinternalLazy.ml:51:4>>*/  /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward
-      (blk);
+       /*<<camlinternalLazy.ml:51:4>>*/ (blk);
       /*<<camlinternalLazy.ml:51:4>>*/ return result;
     }
     catch(e$0){
@@ -1563,12 +1603,12 @@
       /*<<camlinternalLazy.ml:54:4>>*/ blk[1] =
       function(param){
         /*<<camlinternalLazy.ml:54:43>>*/ throw  /*<<camlinternalLazy.ml:54:43>>*/ caml_maybe_attach_backtrace
-              (e, 0);
+               /*<<camlinternalLazy.ml:54:43>>*/ (e, 0);
        /*<<camlinternalLazy.ml:54:50>>*/ };
       /*<<camlinternalLazy.ml:55:4>>*/  /*<<camlinternalLazy.ml:55:4>>*/ runtime.caml_lazy_reset_to_lazy
-      (blk);
+       /*<<camlinternalLazy.ml:55:4>>*/ (blk);
       /*<<camlinternalLazy.ml:56:4>>*/ throw  /*<<camlinternalLazy.ml:56:4>>*/ caml_maybe_attach_backtrace
-            (e, 0);
+             /*<<camlinternalLazy.ml:56:4>>*/ (e, 0);
     }
     /*<<camlinternalLazy.ml:75:24>>*/ }
    function force_lazy_block(blk){
@@ -1578,12 +1618,12 @@
     var
      t =
         /*<<camlinternalLazy.ml:99:10>>*/  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag
-        (lzv);
+         /*<<camlinternalLazy.ml:99:10>>*/ (lzv);
     if(t === Stdlib_Obj[12])
       /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1];
     if(t === Stdlib_Obj[6])
       /*<<camlinternalLazy.ml:103:35>>*/ throw  /*<<camlinternalLazy.ml:103:35>>*/ caml_maybe_attach_backtrace
-            (Undefined, 1);
+             /*<<camlinternalLazy.ml:103:35>>*/ (Undefined, 1);
     return t !== Stdlib_Obj[8] ? lzv : force_gen_lazy_block(only_val, lzv);
     /*<<camlinternalLazy.ml:105:41>>*/ }
    var CamlinternalLazy = [0, Undefined, force_lazy_block, force_gen];
@@ -1617,28 +1657,32 @@
     Undefined = CamlinternalLazy[1];
    function force_val(l){
      /*<<lazy.ml:56:18>>*/ return  /*<<lazy.ml:56:18>>*/ caml_call2
-            (CamlinternalLazy[3], 1, l);
+             /*<<lazy.ml:56:18>>*/ (CamlinternalLazy[3], 1, l);
     /*<<lazy.ml:56:61>>*/ }
    function from_fun(f){
     var
      x =
         /*<<lazy.ml:59:10>>*/  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block
-        (Stdlib_Obj[8], 1);
+         /*<<lazy.ml:59:10>>*/ (Stdlib_Obj[8], 1);
      /*<<lazy.ml:60:2>>*/ x[1] = f;
      /*<<lazy.ml:60:2>>*/ return x;
     /*<<lazy.ml:61:22>>*/ }
    function from_val(v){
-    var t =  /*<<lazy.ml:64:10>>*/  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
+    var
+     t =
+        /*<<lazy.ml:64:10>>*/  /*<<lazy.ml:64:10>>*/ caml_obj_tag
+         /*<<lazy.ml:64:10>>*/ (v);
     if
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
       /*<<lazy.ml:69:5>>*/ return v;
      /*<<lazy.ml:66:52>>*/ return  /*<<lazy.ml:66:52>>*/ runtime.caml_lazy_make_forward
-            (v);
+             /*<<lazy.ml:66:52>>*/ (v);
     /*<<lazy.ml:70:5>>*/ }
    function is_val(l){
     var _i_ =  /*<<lazy.ml:72:26>>*/ Stdlib_Obj[8];
-     /*<<lazy.ml:72:26>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag(l)
+     /*<<lazy.ml:72:26>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag
+              /*<<lazy.ml:72:26>>*/ (l)
             !== _i_
             ? 1
             : 0;
@@ -1655,7 +1699,7 @@
               var _h_ = caml_call1(CamlinternalLazy[2], x);
              }
               /*<<lazy.ml:75:10>>*/ return  /*<<lazy.ml:75:10>>*/ caml_call1
-                     (f, _h_);
+                      /*<<lazy.ml:75:10>>*/ (f, _h_);
             }];
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
@@ -1671,7 +1715,7 @@
                var _e_ = caml_call1(CamlinternalLazy[2], x);
               }
                /*<<lazy.ml:80:15>>*/ return  /*<<lazy.ml:80:15>>*/ caml_call1
-                      (f, _e_);
+                       /*<<lazy.ml:80:15>>*/ (f, _e_);
              }];
     var _a_ = caml_obj_tag(x);
     a:
@@ -1682,7 +1726,7 @@
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
      /*<<lazy.ml:79:16>>*/ return from_val
-            ( /*<<lazy.ml:79:16>>*/ caml_call1(f, _b_));
+            ( /*<<lazy.ml:79:16>>*/ caml_call1 /*<<lazy.ml:79:16>>*/ (f, _b_));
     /*<<lazy.ml:80:25>>*/ }
    var
     Stdlib_Lazy =
@@ -1736,9 +1780,13 @@
      /*<<seq.ml:28:21>>*/ return [0, x, next];
     /*<<seq.ml:28:35>>*/ }
    function append(seq1, seq2, param){
-    var match =  /*<<seq.ml:31:8>>*/  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
+    var
+     match =
+        /*<<seq.ml:31:8>>*/  /*<<seq.ml:31:8>>*/ caml_call1
+         /*<<seq.ml:31:8>>*/ (seq1, 0);
     if(! match)
-      /*<<seq.ml:32:11>>*/ return  /*<<seq.ml:32:11>>*/ caml_call1(seq2, 0);
+      /*<<seq.ml:32:11>>*/ return  /*<<seq.ml:32:11>>*/ caml_call1
+              /*<<seq.ml:32:11>>*/ (seq2, 0);
     var next = match[2], x = match[1];
      /*<<seq.ml:33:22>>*/ return [0,
             x,
@@ -1746,23 +1794,29 @@
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
     var
-     match =  /*<<seq.ml:35:29>>*/  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
+     match =
+        /*<<seq.ml:35:29>>*/  /*<<seq.ml:35:29>>*/ caml_call1
+         /*<<seq.ml:35:29>>*/ (seq, 0);
     if(! match)  /*<<seq.ml:36:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:37:22>>*/ return [0,
-             /*<<seq.ml:37:28>>*/ caml_call1(f, x),
+             /*<<seq.ml:37:28>>*/ caml_call1 /*<<seq.ml:37:28>>*/ (f, x),
             function(_at_){ /*<<?>>*/ return map(f, next, _at_);}];
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
     var seq$0 = seq;
      /*<<seq.ml:39:30>>*/ for(;;){
      var
-      match =  /*<<seq.ml:39:36>>*/  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
+      match =
+         /*<<seq.ml:39:36>>*/  /*<<seq.ml:39:36>>*/ caml_call1
+          /*<<seq.ml:39:36>>*/ (seq$0, 0);
      if(! match)  /*<<seq.ml:40:11>>*/ return 0;
      var
       next = match[2],
       x = match[1],
-      match$0 =  /*<<seq.ml:42:12>>*/  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
+      match$0 =
+         /*<<seq.ml:42:12>>*/  /*<<seq.ml:42:12>>*/ caml_call1
+          /*<<seq.ml:42:12>>*/ (f, x);
      if(match$0){
       var y = match$0[1];
        /*<<seq.ml:44:20>>*/ return [0,
@@ -1776,10 +1830,13 @@
     var seq$0 = seq;
      /*<<seq.ml:46:26>>*/ for(;;){
      var
-      match =  /*<<seq.ml:46:32>>*/  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
+      match =
+         /*<<seq.ml:46:32>>*/  /*<<seq.ml:46:32>>*/ caml_call1
+          /*<<seq.ml:46:32>>*/ (seq$0, 0);
      if(! match)  /*<<seq.ml:47:11>>*/ return 0;
      var next = match[2], x = match[1];
-      /*<<seq.ml:49:9>>*/ if( /*<<seq.ml:49:9>>*/ caml_call1(f, x))
+      /*<<seq.ml:49:9>>*/ if
+      ( /*<<seq.ml:49:9>>*/ caml_call1 /*<<seq.ml:49:9>>*/ (f, x))
        /*<<seq.ml:50:11>>*/ return [0,
               x,
               function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}];
@@ -1788,7 +1845,9 @@
     /*<<seq.ml:51:27>>*/ }
    function concat(seq, param){
     var
-     match =  /*<<seq.ml:53:30>>*/  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
+     match =
+        /*<<seq.ml:53:30>>*/  /*<<seq.ml:53:30>>*/ caml_call1
+         /*<<seq.ml:53:30>>*/ (seq, 0);
     if(! match)  /*<<seq.ml:54:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:56:5>>*/ return append
@@ -1796,11 +1855,13 @@
     /*<<seq.ml:56:30>>*/ }
    function flat_map(f, seq, param){
     var
-     match =  /*<<seq.ml:58:34>>*/  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
+     match =
+        /*<<seq.ml:58:34>>*/  /*<<seq.ml:58:34>>*/ caml_call1
+         /*<<seq.ml:58:34>>*/ (seq, 0);
     if(! match)  /*<<seq.ml:59:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:61:4>>*/ return append
-            ( /*<<seq.ml:61:11>>*/ caml_call1(f, x),
+            ( /*<<seq.ml:61:11>>*/ caml_call1 /*<<seq.ml:61:11>>*/ (f, x),
              function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
              0);
     /*<<seq.ml:61:37>>*/ }
@@ -1808,13 +1869,16 @@
     var acc$0 = acc, seq$0 = seq;
      /*<<seq.ml:66:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:66:8>>*/  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
+      match =
+         /*<<seq.ml:66:8>>*/  /*<<seq.ml:66:8>>*/ caml_call1
+          /*<<seq.ml:66:8>>*/ (seq$0, 0);
      if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
      var
       next = match[2],
       x = match[1],
       acc$1 =
-         /*<<seq.ml:69:18>>*/  /*<<seq.ml:69:18>>*/ caml_call2(f, acc$0, x);
+         /*<<seq.ml:69:18>>*/  /*<<seq.ml:69:18>>*/ caml_call2
+          /*<<seq.ml:69:18>>*/ (f, acc$0, x);
      acc$0 = acc$1;
      seq$0 = next;
     }
@@ -1823,15 +1887,21 @@
     var seq$0 = seq;
      /*<<seq.ml:73:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:73:8>>*/  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
+      match =
+         /*<<seq.ml:73:8>>*/  /*<<seq.ml:73:8>>*/ caml_call1
+          /*<<seq.ml:73:8>>*/ (seq$0, 0);
      if(! match)  /*<<seq.ml:74:13>>*/ return 0;
      var next = match[2], x = match[1];
-      /*<<seq.ml:76:8>>*/  /*<<seq.ml:76:8>>*/ caml_call1(f, x);
+      /*<<seq.ml:76:8>>*/  /*<<seq.ml:76:8>>*/ caml_call1
+       /*<<seq.ml:76:8>>*/ (f, x);
      seq$0 = next;
     }
     /*<<seq.ml:77:19>>*/ }
    function unfold(f, u, param){
-    var match =  /*<<seq.ml:80:8>>*/  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
+    var
+     match =
+        /*<<seq.ml:80:8>>*/  /*<<seq.ml:80:8>>*/ caml_call1
+         /*<<seq.ml:80:8>>*/ (f, u);
     if(! match)  /*<<seq.ml:81:12>>*/ return 0;
     var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
      /*<<seq.ml:82:20>>*/ return [0,
@@ -1839,10 +1909,16 @@
             function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}];
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
-     /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0) ? 0 : 1;
+     /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1
+              /*<<seq.ml:85:8>>*/ (xs, 0)
+            ? 0
+            : 1;
     /*<<seq.ml:89:11>>*/ }
    function uncons(xs){
-    var match =  /*<<seq.ml:92:8>>*/  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:92:8>>*/  /*<<seq.ml:92:8>>*/ caml_call1
+         /*<<seq.ml:92:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:96:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
@@ -1851,7 +1927,9 @@
     var accu = 0, xs = xs$1;
      /*<<seq.ml:101:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:101:8>>*/  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
+      match =
+         /*<<seq.ml:101:8>>*/  /*<<seq.ml:101:8>>*/ caml_call1
+          /*<<seq.ml:101:8>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:103:6>>*/ return accu;
      var xs$0 = match[2], accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
      accu = accu$0;
@@ -1862,10 +1940,13 @@
     var i = 0, xs = xs$1;
      /*<<seq.ml:111:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:111:8>>*/  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
+      match =
+         /*<<seq.ml:111:8>>*/  /*<<seq.ml:111:8>>*/ caml_call1
+          /*<<seq.ml:111:8>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:113:6>>*/ return 0;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:115:6>>*/  /*<<seq.ml:115:6>>*/ caml_call2(f, i, x);
+      /*<<seq.ml:115:6>>*/  /*<<seq.ml:115:6>>*/ caml_call2
+       /*<<seq.ml:115:6>>*/ (f, i, x);
      var i$0 = i + 1 | 0;
      i = i$0;
      xs = xs$0;
@@ -1875,14 +1956,16 @@
     var accu = accu$1, i = 0, xs = xs$1;
      /*<<seq.ml:122:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:122:8>>*/  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
+      match =
+         /*<<seq.ml:122:8>>*/  /*<<seq.ml:122:8>>*/ caml_call1
+          /*<<seq.ml:122:8>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:124:6>>*/ return accu;
      var
       xs$0 = match[2],
       x = match[1],
       accu$0 =
          /*<<seq.ml:126:17>>*/  /*<<seq.ml:126:17>>*/ caml_call3
-         (f, accu, i, x),
+          /*<<seq.ml:126:17>>*/ (f, accu, i, x),
       i$0 =  /*<<seq.ml:127:6>>*/ i + 1 | 0;
      accu = accu$0;
      i = i$0;
@@ -1893,12 +1976,16 @@
     var xs$0 = xs;
      /*<<seq.ml:133:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:133:8>>*/  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:133:8>>*/  /*<<seq.ml:133:8>>*/ caml_call1
+          /*<<seq.ml:133:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:135:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
-      _an_ =  /*<<seq.ml:137:6>>*/  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
+      _an_ =
+         /*<<seq.ml:137:6>>*/  /*<<seq.ml:137:6>>*/ caml_call1
+          /*<<seq.ml:137:6>>*/ (p, x);
       /*<<seq.ml:137:6>>*/ if(! _an_)  /*<<seq.ml:137:6>>*/ return _an_;
      xs$0 = xs$1;
     }
@@ -1907,12 +1994,16 @@
     var xs$0 = xs;
      /*<<seq.ml:140:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:140:8>>*/  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:140:8>>*/  /*<<seq.ml:140:8>>*/ caml_call1
+          /*<<seq.ml:140:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:142:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      _am_ =  /*<<seq.ml:144:6>>*/  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
+      _am_ =
+         /*<<seq.ml:144:6>>*/  /*<<seq.ml:144:6>>*/ caml_call1
+          /*<<seq.ml:144:6>>*/ (p, x);
       /*<<seq.ml:144:6>>*/ if(_am_)  /*<<seq.ml:144:6>>*/ return _am_;
      xs$0 = xs$1;
     }
@@ -1921,10 +2012,13 @@
     var xs$0 = xs;
      /*<<seq.ml:147:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:147:8>>*/  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:147:8>>*/  /*<<seq.ml:147:8>>*/ caml_call1
+          /*<<seq.ml:147:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:149:6>>*/ return 0;
      var xs$1 = match[2], x = match[1];
-      /*<<seq.ml:151:9>>*/ if( /*<<seq.ml:151:9>>*/ caml_call1(p, x))
+      /*<<seq.ml:151:9>>*/ if
+      ( /*<<seq.ml:151:9>>*/ caml_call1 /*<<seq.ml:151:9>>*/ (p, x))
        /*<<seq.ml:151:18>>*/ return [0, x];
      xs$0 = xs$1;
     }
@@ -1934,10 +2028,12 @@
      /*<<seq.ml:154:21>>*/ for(;;){
      var
       match =
-         /*<<seq.ml:154:27>>*/  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
+         /*<<seq.ml:154:27>>*/  /*<<seq.ml:154:27>>*/ caml_call1
+          /*<<seq.ml:154:27>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:156:8>>*/ return 0;
      var xs$1 = match[2], x = match[1];
-      /*<<seq.ml:158:11>>*/ if( /*<<seq.ml:158:11>>*/ caml_call1(p, x))
+      /*<<seq.ml:158:11>>*/ if
+      ( /*<<seq.ml:158:11>>*/ caml_call1 /*<<seq.ml:158:11>>*/ (p, x))
        /*<<seq.ml:158:20>>*/ return [0, i];
      var i$0 = i + 1 | 0;
      i = i$0;
@@ -1948,12 +2044,16 @@
     var xs$0 = xs;
      /*<<seq.ml:162:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:162:8>>*/  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:162:8>>*/  /*<<seq.ml:162:8>>*/ caml_call1
+          /*<<seq.ml:162:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:164:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      result =  /*<<seq.ml:166:12>>*/  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
+      result =
+         /*<<seq.ml:166:12>>*/  /*<<seq.ml:166:12>>*/ caml_call1
+          /*<<seq.ml:166:12>>*/ (f, x);
      if(result)  /*<<seq.ml:170:10>>*/ return result;
      xs$0 = xs$1;
     }
@@ -1963,13 +2063,15 @@
      /*<<seq.ml:173:21>>*/ for(;;){
      var
       match =
-         /*<<seq.ml:173:27>>*/  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
+         /*<<seq.ml:173:27>>*/  /*<<seq.ml:173:27>>*/ caml_call1
+          /*<<seq.ml:173:27>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:175:8>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       result =
-         /*<<seq.ml:177:14>>*/  /*<<seq.ml:177:14>>*/ caml_call2(f, i, x);
+         /*<<seq.ml:177:14>>*/  /*<<seq.ml:177:14>>*/ caml_call2
+          /*<<seq.ml:177:14>>*/ (f, i, x);
      if(result)  /*<<seq.ml:181:12>>*/ return result;
      var i$0 = i + 1 | 0;
      i = i$0;
@@ -1980,16 +2082,20 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:192:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:192:8>>*/  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:192:8>>*/  /*<<seq.ml:192:8>>*/ caml_call1
+          /*<<seq.ml:192:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:194:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
-         /*<<seq.ml:196:12>>*/  /*<<seq.ml:196:12>>*/ caml_call1(ys$0, 0);
+         /*<<seq.ml:196:12>>*/  /*<<seq.ml:196:12>>*/ caml_call1
+          /*<<seq.ml:196:12>>*/ (ys$0, 0);
      if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
      var ys$1 = match$0[2], y = match$0[1];
-      /*<<seq.ml:200:10>>*/  /*<<seq.ml:200:10>>*/ caml_call2(f, x, y);
+      /*<<seq.ml:200:10>>*/  /*<<seq.ml:200:10>>*/ caml_call2
+       /*<<seq.ml:200:10>>*/ (f, x, y);
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -1998,20 +2104,23 @@
     var accu$0 = accu, xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:204:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:204:8>>*/  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:204:8>>*/  /*<<seq.ml:204:8>>*/ caml_call1
+          /*<<seq.ml:204:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
-         /*<<seq.ml:208:12>>*/  /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
+         /*<<seq.ml:208:12>>*/  /*<<seq.ml:208:12>>*/ caml_call1
+          /*<<seq.ml:208:12>>*/ (ys$0, 0);
      if(! match$0)  /*<<seq.ml:210:10>>*/ return accu$0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
       accu$1 =
          /*<<seq.ml:212:21>>*/  /*<<seq.ml:212:21>>*/ caml_call3
-         (f, accu$0, x, y);
+          /*<<seq.ml:212:21>>*/ (f, accu$0, x, y);
      accu$0 = accu$1;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2021,18 +2130,23 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:216:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:216:8>>*/  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:216:8>>*/  /*<<seq.ml:216:8>>*/ caml_call1
+          /*<<seq.ml:216:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:218:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
-         /*<<seq.ml:220:12>>*/  /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
+         /*<<seq.ml:220:12>>*/  /*<<seq.ml:220:12>>*/ caml_call1
+          /*<<seq.ml:220:12>>*/ (ys$0, 0);
      if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      _al_ =  /*<<seq.ml:224:10>>*/  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
+      _al_ =
+         /*<<seq.ml:224:10>>*/  /*<<seq.ml:224:10>>*/ caml_call2
+          /*<<seq.ml:224:10>>*/ (f, x, y);
       /*<<seq.ml:224:10>>*/ if(! _al_)  /*<<seq.ml:224:10>>*/ return _al_;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2042,18 +2156,23 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:227:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:227:8>>*/  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:227:8>>*/  /*<<seq.ml:227:8>>*/ caml_call1
+          /*<<seq.ml:227:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:229:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
-         /*<<seq.ml:231:12>>*/  /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
+         /*<<seq.ml:231:12>>*/  /*<<seq.ml:231:12>>*/ caml_call1
+          /*<<seq.ml:231:12>>*/ (ys$0, 0);
      if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      _ak_ =  /*<<seq.ml:235:10>>*/  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
+      _ak_ =
+         /*<<seq.ml:235:10>>*/  /*<<seq.ml:235:10>>*/ caml_call2
+          /*<<seq.ml:235:10>>*/ (f, x, y);
       /*<<seq.ml:235:10>>*/ if(_ak_)  /*<<seq.ml:235:10>>*/ return _ak_;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2063,9 +2182,12 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:238:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:238:8>>*/  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
+      match =
+         /*<<seq.ml:238:8>>*/  /*<<seq.ml:238:8>>*/ caml_call1
+          /*<<seq.ml:238:8>>*/ (xs$0, 0),
       match$0 =
-         /*<<seq.ml:238:14>>*/  /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
+         /*<<seq.ml:238:14>>*/  /*<<seq.ml:238:14>>*/ caml_call1
+          /*<<seq.ml:238:14>>*/ (ys$0, 0);
      if(match){
       if(match$0){
        var
@@ -2074,7 +2196,8 @@
         xs$1 = match[2],
         x = match[1],
         _aj_ =
-           /*<<seq.ml:242:6>>*/  /*<<seq.ml:242:6>>*/ caml_call2(eq, x, y);
+           /*<<seq.ml:242:6>>*/  /*<<seq.ml:242:6>>*/ caml_call2
+            /*<<seq.ml:242:6>>*/ (eq, x, y);
         /*<<seq.ml:242:6>>*/ if(! _aj_)  /*<<seq.ml:242:6>>*/ return _aj_;
        xs$0 = xs$1;
        ys$0 = ys$1;
@@ -2089,16 +2212,21 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:248:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:248:8>>*/  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
+      match =
+         /*<<seq.ml:248:8>>*/  /*<<seq.ml:248:8>>*/ caml_call1
+          /*<<seq.ml:248:8>>*/ (xs$0, 0),
       match$0 =
-         /*<<seq.ml:248:14>>*/  /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
+         /*<<seq.ml:248:14>>*/  /*<<seq.ml:248:14>>*/ caml_call1
+          /*<<seq.ml:248:14>>*/ (ys$0, 0);
      if(! match) return match$0 ? -1 : 0;
      var xs$1 = match[2], x = match[1];
      if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      c =  /*<<seq.ml:252:14>>*/  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
+      c =
+         /*<<seq.ml:252:14>>*/  /*<<seq.ml:252:14>>*/ caml_call2
+          /*<<seq.ml:252:14>>*/ (cmp, x, y);
       /*<<seq.ml:253:6>>*/ if(0 !== c)  /*<<seq.ml:253:21>>*/ return c;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2108,13 +2236,13 @@
      /*<<seq.ml:264:2>>*/ if(i >= j)  /*<<seq.ml:268:4>>*/ return 0;
     var _ah_ = i + 1 | 0;
      /*<<seq.ml:264:16>>*/ return [0,
-             /*<<seq.ml:265:10>>*/ caml_call1(f, i),
+             /*<<seq.ml:265:10>>*/ caml_call1 /*<<seq.ml:265:10>>*/ (f, i),
             function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}];
     /*<<seq.ml:268:7>>*/ }
    function init(n, f){
      /*<<seq.ml:271:2>>*/ if(0 > n)
       /*<<seq.ml:272:4>>*/ return  /*<<seq.ml:272:4>>*/ caml_call1
-             (Stdlib[1], cst_Seq_init);
+              /*<<seq.ml:272:4>>*/ (Stdlib[1], cst_Seq_init);
     var _af_ = 0;
      /*<<seq.ml:274:4>>*/ return function(_ag_){
       /*<<?>>*/ return init_aux(f, _af_, n, _ag_);};
@@ -2126,7 +2254,7 @@
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
      /*<<seq.ml:280:2>>*/ return [0,
-             /*<<seq.ml:280:8>>*/ caml_call1(f, 0),
+             /*<<seq.ml:280:8>>*/ caml_call1 /*<<seq.ml:280:8>>*/ (f, 0),
             function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}];
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
@@ -2136,7 +2264,10 @@
              0);
     /*<<seq.ml:287:34>>*/ }
    function cycle(xs, param){
-    var match =  /*<<seq.ml:295:8>>*/  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:295:8>>*/  /*<<seq.ml:295:8>>*/ caml_call1
+         /*<<seq.ml:295:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:297:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
     function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
@@ -2145,7 +2276,10 @@
             function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}];
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
-    var y =  /*<<seq.ml:306:10>>*/  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
+    var
+     y =
+        /*<<seq.ml:306:10>>*/  /*<<seq.ml:306:10>>*/ caml_call1
+         /*<<seq.ml:306:10>>*/ (f, x);
      /*<<seq.ml:307:2>>*/ return [0,
             y,
             function(___){ /*<<?>>*/ return iterate1(f, y, ___);}];
@@ -2156,11 +2290,14 @@
       /*<<seq.ml:28:21>>*/ return [0, x, next];};
     /*<<seq.ml:319:23>>*/ }
    function mapi_aux(f, i, xs, param){
-    var match =  /*<<seq.ml:324:8>>*/  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:324:8>>*/  /*<<seq.ml:324:8>>*/ caml_call1
+         /*<<seq.ml:324:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:326:6>>*/ return 0;
     var xs$0 = match[2], x = match[1], _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
      /*<<seq.ml:328:6>>*/ return [0,
-             /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
+             /*<<seq.ml:328:12>>*/ caml_call2 /*<<seq.ml:328:12>>*/ (f, i, x),
             function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}];
     /*<<seq.ml:328:39>>*/ }
    function mapi(f, xs){
@@ -2169,12 +2306,17 @@
       /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);};
     /*<<seq.ml:331:17>>*/ }
    function tail_scan(f, s, xs, param){
-    var match =  /*<<seq.ml:340:8>>*/  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:340:8>>*/  /*<<seq.ml:340:8>>*/ caml_call1
+         /*<<seq.ml:340:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:342:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     s$0 =  /*<<seq.ml:344:14>>*/  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
+     s$0 =
+        /*<<seq.ml:344:14>>*/  /*<<seq.ml:344:14>>*/ caml_call2
+         /*<<seq.ml:344:14>>*/ (f, s, x);
      /*<<seq.ml:345:6>>*/ return [0,
             s$0,
             function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}];
@@ -2192,7 +2334,7 @@
               var
                match =
                   /*<<seq.ml:358:12>>*/  /*<<seq.ml:358:12>>*/ caml_call1
-                  (xs, 0);
+                   /*<<seq.ml:358:12>>*/ (xs, 0);
               if(! match)  /*<<seq.ml:360:10>>*/ return 0;
               var xs$0 = match[2], x = match[1];
                /*<<seq.ml:362:10>>*/ return [0, x, take_aux(n - 1 | 0, xs$0)];
@@ -2201,7 +2343,7 @@
    function take(n, xs){
      /*<<seq.ml:365:2>>*/ if(n < 0)
       /*<<seq.ml:365:16>>*/  /*<<seq.ml:365:16>>*/ caml_call1
-      (Stdlib[1], cst_Seq_take);
+       /*<<seq.ml:365:16>>*/ (Stdlib[1], cst_Seq_take);
      /*<<seq.ml:365:16>>*/ return take_aux(n, xs);
     /*<<seq.ml:366:15>>*/ }
    function drop(n, xs){
@@ -2216,23 +2358,28 @@
                  var
                   match =
                      /*<<seq.ml:373:8>>*/  /*<<seq.ml:373:8>>*/ caml_call1
-                     (xs$0, 0);
+                      /*<<seq.ml:373:8>>*/ (xs$0, 0);
                  if(! match)  /*<<seq.ml:375:6>>*/ return 0;
                  var xs$1 = match[2], n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
                    /*<<seq.ml:379:8>>*/ return  /*<<seq.ml:379:8>>*/ caml_call1
-                          (xs$1, 0);
+                           /*<<seq.ml:379:8>>*/ (xs$1, 0);
                  n$0 = n$1;
                  xs$0 = xs$1;
                 }
                 /*<<seq.ml:392:21>>*/ }
-            :  /*<<seq.ml:387:16>>*/ caml_call1(Stdlib[1], cst_Seq_drop);
+            :  /*<<seq.ml:387:16>>*/ caml_call1
+               /*<<seq.ml:387:16>>*/ (Stdlib[1], cst_Seq_drop);
     /*<<seq.ml:392:21>>*/ }
    function take_while(p, xs, param){
-    var match =  /*<<seq.ml:395:8>>*/  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:395:8>>*/  /*<<seq.ml:395:8>>*/ caml_call1
+         /*<<seq.ml:395:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:397:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:399:9>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
+     /*<<seq.ml:399:9>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1
+              /*<<seq.ml:399:9>>*/ (p, x)
             ? [0,
               x,
               function(_Q_){ /*<<?>>*/ return take_while(p, xs$0, _Q_);}]
@@ -2242,23 +2389,34 @@
     var xs$0 = xs;
      /*<<seq.ml:402:2>>*/ for(;;){
      var
-      node =  /*<<seq.ml:402:8>>*/  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
+      node =
+         /*<<seq.ml:402:8>>*/  /*<<seq.ml:402:8>>*/ caml_call1
+          /*<<seq.ml:402:8>>*/ (xs$0, 0);
      if(! node)  /*<<seq.ml:404:6>>*/ return 0;
      var xs$1 = node[2], x = node[1];
-      /*<<seq.ml:406:9>>*/ if(!  /*<<seq.ml:406:9>>*/ caml_call1(p, x))
+      /*<<seq.ml:406:9>>*/ if
+      (!  /*<<seq.ml:406:9>>*/ caml_call1 /*<<seq.ml:406:9>>*/ (p, x))
        /*<<seq.ml:406:42>>*/ return node;
      xs$0 = xs$1;
     }
     /*<<seq.ml:406:46>>*/ }
    function group(eq, xs, param){
-    var match =  /*<<seq.ml:409:8>>*/  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:409:8>>*/  /*<<seq.ml:409:8>>*/ caml_call1
+         /*<<seq.ml:409:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:411:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     _J_ =  /*<<seq.ml:413:64>>*/  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
+     _J_ =
+        /*<<seq.ml:413:64>>*/  /*<<seq.ml:413:64>>*/ caml_call1
+         /*<<seq.ml:413:64>>*/ (eq, x);
     function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
-    var _L_ =  /*<<seq.ml:413:31>>*/  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
+    var
+     _L_ =
+        /*<<seq.ml:413:31>>*/  /*<<seq.ml:413:31>>*/ caml_call1
+         /*<<seq.ml:413:31>>*/ (eq, x);
     function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
      /*<<seq.ml:413:6>>*/ return [0,
             function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
@@ -2273,30 +2431,35 @@
     _a_ = [0, "seq.ml", 616, 4];
    function failure(param){
      /*<<seq.ml:441:6>>*/ throw  /*<<seq.ml:441:6>>*/ caml_maybe_attach_backtrace
-           (Forced_twice, 1);
+            /*<<seq.ml:441:6>>*/ (Forced_twice, 1);
     /*<<seq.ml:441:24>>*/ }
    function memoize(xs){
     function s$0(param){
      var
-      match =  /*<<seq.ml:460:10>>*/  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
+      match =
+         /*<<seq.ml:460:10>>*/  /*<<seq.ml:460:10>>*/ caml_call1
+          /*<<seq.ml:460:10>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:462:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:464:8>>*/ return [0, x, memoize(xs$0)];
      /*<<seq.ml:464:28>>*/ }
     var
      s =
-        /*<<seq.ml:434:14>>*/  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
+        /*<<seq.ml:434:14>>*/  /*<<seq.ml:434:14>>*/ caml_call1
+         /*<<seq.ml:434:14>>*/ (to_lazy, s$0);
      /*<<seq.ml:429:4>>*/ return function(param){
      var _I_ = runtime.caml_obj_tag(s);
      if(250 === _I_) return s[1];
      if(246 !== _I_ && 244 !== _I_)  /*<<seq.ml:429:4>>*/ return s;
       /*<<seq.ml:429:4>>*/ return  /*<<seq.ml:429:4>>*/ caml_call1
-             (CamlinternalLazy[2], s); /*<<seq.ml:429:26>>*/ };
+              /*<<seq.ml:429:4>>*/ (CamlinternalLazy[2], s); /*<<seq.ml:429:26>>*/ };
     /*<<seq.ml:465:3>>*/ }
    function once(xs){
     function f(param){
      var
-      match =  /*<<seq.ml:469:10>>*/  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
+      match =
+         /*<<seq.ml:469:10>>*/  /*<<seq.ml:469:10>>*/ caml_call1
+          /*<<seq.ml:469:10>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:471:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:473:8>>*/ return [0, x, once(xs$0)];
@@ -2304,21 +2467,27 @@
     var
      action =
         /*<<seq.ml:448:17>>*/  /*<<seq.ml:448:17>>*/ caml_call1
-        (Stdlib_Atomic[1], f);
+         /*<<seq.ml:448:17>>*/ (Stdlib_Atomic[1], f);
      /*<<seq.ml:449:4>>*/ return function(param){
      var
       f =
          /*<<seq.ml:453:14>>*/  /*<<seq.ml:453:14>>*/ caml_call2
-         (Stdlib_Atomic[5], action, failure);
-      /*<<seq.ml:454:6>>*/ return  /*<<seq.ml:454:6>>*/ caml_call1(f, 0); /*<<seq.ml:454:9>>*/ };
+          /*<<seq.ml:453:14>>*/ (Stdlib_Atomic[5], action, failure);
+      /*<<seq.ml:454:6>>*/ return  /*<<seq.ml:454:6>>*/ caml_call1
+              /*<<seq.ml:454:6>>*/ (f, 0); /*<<seq.ml:454:9>>*/ };
     /*<<seq.ml:474:3>>*/ }
    function zip(xs, ys, param){
-    var match =  /*<<seq.ml:478:8>>*/  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:478:8>>*/  /*<<seq.ml:478:8>>*/ caml_call1
+         /*<<seq.ml:478:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:480:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     match$0 =  /*<<seq.ml:482:12>>*/  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
+     match$0 =
+        /*<<seq.ml:482:12>>*/  /*<<seq.ml:482:12>>*/ caml_call1
+         /*<<seq.ml:482:12>>*/ (ys, 0);
     if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:486:10>>*/ return [0,
@@ -2326,22 +2495,31 @@
             function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}];
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
-    var match =  /*<<seq.ml:489:8>>*/  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:489:8>>*/  /*<<seq.ml:489:8>>*/ caml_call1
+         /*<<seq.ml:489:8>>*/ (xs, 0);
     if(! match)  /*<<seq.ml:491:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     match$0 =  /*<<seq.ml:493:12>>*/  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
+     match$0 =
+        /*<<seq.ml:493:12>>*/  /*<<seq.ml:493:12>>*/ caml_call1
+         /*<<seq.ml:493:12>>*/ (ys, 0);
     if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:497:10>>*/ return [0,
-             /*<<seq.ml:497:16>>*/ caml_call2(f, x, y),
+             /*<<seq.ml:497:16>>*/ caml_call2 /*<<seq.ml:497:16>>*/ (f, x, y),
             function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}];
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
-    var match =  /*<<seq.ml:500:8>>*/  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
+    var
+     match =
+        /*<<seq.ml:500:8>>*/  /*<<seq.ml:500:8>>*/ caml_call1
+         /*<<seq.ml:500:8>>*/ (xs, 0);
     if(! match)
-      /*<<seq.ml:502:6>>*/ return  /*<<seq.ml:502:6>>*/ caml_call1(ys, 0);
+      /*<<seq.ml:502:6>>*/ return  /*<<seq.ml:502:6>>*/ caml_call1
+              /*<<seq.ml:502:6>>*/ (ys, 0);
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:504:6>>*/ return [0,
             x,
@@ -2349,14 +2527,15 @@
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
      /*<<seq.ml:533:2>>*/ return 0
-            <  /*<<seq.ml:533:5>>*/ caml_call2(cmp, x, y)
+            <
+              /*<<seq.ml:533:5>>*/ caml_call2 /*<<seq.ml:533:5>>*/ (cmp, x, y)
             ? [0,
               y,
               function(_D_){
                var
                 match =
                    /*<<seq.ml:519:8>>*/  /*<<seq.ml:519:8>>*/ caml_call1
-                   (ys, 0);
+                    /*<<seq.ml:519:8>>*/ (ys, 0);
                if(! match)  /*<<seq.ml:521:6>>*/ return [0, x, xs];
                var ys$0 = match[2], y = match[1];
                 /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0);
@@ -2367,7 +2546,7 @@
                var
                 match =
                    /*<<seq.ml:526:8>>*/  /*<<seq.ml:526:8>>*/ caml_call1
-                   (xs, 0);
+                    /*<<seq.ml:526:8>>*/ (xs, 0);
                if(! match)  /*<<seq.ml:528:6>>*/ return [0, y, ys];
                var xs$0 = match[2], x = match[1];
                 /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys);
@@ -2375,8 +2554,12 @@
     /*<<seq.ml:536:40>>*/ }
    function sorted_merge(cmp, xs, ys, param){
     var
-     match =  /*<<seq.ml:539:8>>*/  /*<<seq.ml:539:8>>*/ caml_call1(xs, 0),
-     match$0 =  /*<<seq.ml:539:14>>*/  /*<<seq.ml:539:14>>*/ caml_call1(ys, 0);
+     match =
+        /*<<seq.ml:539:8>>*/  /*<<seq.ml:539:8>>*/ caml_call1
+         /*<<seq.ml:539:8>>*/ (xs, 0),
+     match$0 =
+        /*<<seq.ml:539:14>>*/  /*<<seq.ml:539:14>>*/ caml_call1
+         /*<<seq.ml:539:14>>*/ (ys, 0);
     if(match){
      if(match$0){
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
@@ -2389,7 +2572,9 @@
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
     var
-     match =  /*<<seq.ml:550:8>>*/  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
+     match =
+        /*<<seq.ml:550:8>>*/  /*<<seq.ml:550:8>>*/ caml_call1
+         /*<<seq.ml:550:8>>*/ (xys, 0);
     if(! match)  /*<<seq.ml:552:6>>*/ return 0;
     var xys$0 = match[2], x = match[1][1];
      /*<<seq.ml:554:6>>*/ return [0,
@@ -2398,7 +2583,9 @@
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
     var
-     match =  /*<<seq.ml:557:8>>*/  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
+     match =
+        /*<<seq.ml:557:8>>*/  /*<<seq.ml:557:8>>*/ caml_call1
+         /*<<seq.ml:557:8>>*/ (xys, 0);
     if(! match)  /*<<seq.ml:559:6>>*/ return 0;
     var xys$0 = match[2], y = match[1][2];
      /*<<seq.ml:561:6>>*/ return [0,
@@ -2414,12 +2601,16 @@
     var xs$0 = xs;
      /*<<seq.ml:573:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:573:8>>*/  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:573:8>>*/  /*<<seq.ml:573:8>>*/ caml_call1
+          /*<<seq.ml:573:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:575:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =  /*<<seq.ml:577:12>>*/  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
+      match$0 =
+         /*<<seq.ml:577:12>>*/  /*<<seq.ml:577:12>>*/ caml_call1
+          /*<<seq.ml:577:12>>*/ (f, x);
      if(0 === match$0[0]){
       var y = match$0[1];
        /*<<seq.ml:579:10>>*/ return [0,
@@ -2435,12 +2626,16 @@
     var xs$0 = xs;
      /*<<seq.ml:584:2>>*/ for(;;){
      var
-      match =  /*<<seq.ml:584:8>>*/  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
+      match =
+         /*<<seq.ml:584:8>>*/  /*<<seq.ml:584:8>>*/ caml_call1
+          /*<<seq.ml:584:8>>*/ (xs$0, 0);
      if(! match)  /*<<seq.ml:586:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =  /*<<seq.ml:588:12>>*/  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
+      match$0 =
+         /*<<seq.ml:588:12>>*/  /*<<seq.ml:588:12>>*/ caml_call1
+          /*<<seq.ml:588:12>>*/ (f, x);
      if(0 !== match$0[0]){
       var z = match$0[1];
        /*<<seq.ml:592:10>>*/ return [0,
@@ -2463,7 +2658,8 @@
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
-      /*<<seq.ml:599:32>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x);
+      /*<<seq.ml:599:32>>*/ return 1
+            -  /*<<seq.ml:599:36>>*/ caml_call1 /*<<seq.ml:599:36>>*/ (p, x);
      /*<<seq.ml:599:41>>*/ }
      /*<<seq.ml:599:2>>*/ return [0,
             function(_u_){ /*<<?>>*/ return filter(p, xs, _u_);},
@@ -2484,16 +2680,20 @@
              function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}];
      /*<<seq.ml:616:11>>*/ if(is_empty(tails))  /*<<seq.ml:617:4>>*/ return 0;
      /*<<seq.ml:616:4>>*/ throw  /*<<seq.ml:616:4>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _a_], 1);
+            /*<<seq.ml:616:4>>*/ ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
    function _b_(remainders, xss, param){
     var
-     match =  /*<<seq.ml:627:8>>*/  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
+     match =
+        /*<<seq.ml:627:8>>*/  /*<<seq.ml:627:8>>*/ caml_call1
+         /*<<seq.ml:627:8>>*/ (xss, 0);
     if(! match)  /*<<seq.ml:649:6>>*/ return transpose(remainders, 0);
     var
      xss$0 = match[2],
      xs = match[1],
-     match$0 =  /*<<seq.ml:629:18>>*/  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
+     match$0 =
+        /*<<seq.ml:629:18>>*/  /*<<seq.ml:629:18>>*/ caml_call1
+         /*<<seq.ml:629:18>>*/ (xs, 0);
     if(match$0){
      var
       xs$0 = match$0[2],
@@ -2520,7 +2720,8 @@
    function map_product(f, xs, ys){
     function _f_(x){
      function _j_(y){
-       /*<<seq.ml:671:8>>*/ return  /*<<seq.ml:671:8>>*/ caml_call2(f, x, y);
+       /*<<seq.ml:671:8>>*/ return  /*<<seq.ml:671:8>>*/ caml_call2
+               /*<<seq.ml:671:8>>*/ (f, x, y);
       /*<<seq.ml:671:13>>*/ }
       /*<<seq.ml:670:10>>*/ return function(_k_){
        /*<<?>>*/ return map(_j_, ys, _k_);};
@@ -2541,7 +2742,9 @@
    function of_dispenser(it){
     function c(param){
      var
-      match =  /*<<seq.ml:681:10>>*/  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
+      match =
+         /*<<seq.ml:681:10>>*/  /*<<seq.ml:681:10>>*/ caml_call1
+          /*<<seq.ml:681:10>>*/ (it, 0);
      if(! match)  /*<<seq.ml:683:8>>*/ return 0;
      var x = match[1];
       /*<<seq.ml:685:8>>*/ return [0, x, c];
@@ -2553,7 +2756,8 @@
      /*<<seq.ml:691:2>>*/ return function(param){
      var
       match =
-         /*<<seq.ml:692:10>>*/  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
+         /*<<seq.ml:692:10>>*/  /*<<seq.ml:692:10>>*/ caml_call1
+          /*<<seq.ml:692:10>>*/ (s[1], 0);
      if(! match)  /*<<seq.ml:694:8>>*/ return 0;
      var xs = match[2], x = match[1];
      s[1] = xs;
@@ -2665,14 +2869,15 @@
    function get(param){
      /*<<option.ml:21:10>>*/ if(! param)
       /*<<option.ml:21:41>>*/ return  /*<<option.ml:21:41>>*/ caml_call1
-             (Stdlib[1], cst_option_is_None);
+              /*<<option.ml:21:41>>*/ (Stdlib[1], cst_option_is_None);
     var v = param[1];
      /*<<option.ml:21:29>>*/ return v;
     /*<<option.ml:21:69>>*/ }
    function bind(o, f){
      /*<<option.ml:22:15>>*/ if(! o)  /*<<option.ml:22:36>>*/ return 0;
     var v = o[1];
-     /*<<option.ml:22:53>>*/ return  /*<<option.ml:22:53>>*/ caml_call1(f, v);
+     /*<<option.ml:22:53>>*/ return  /*<<option.ml:22:53>>*/ caml_call1
+             /*<<option.ml:22:53>>*/ (f, v);
     /*<<option.ml:22:56>>*/ }
    function join(param){
      /*<<option.ml:23:11>>*/ if(! param)  /*<<option.ml:23:42>>*/ return 0;
@@ -2683,18 +2888,19 @@
      /*<<option.ml:24:14>>*/ if(! o)  /*<<option.ml:24:35>>*/ return 0;
     var v = o[1];
      /*<<option.ml:24:52>>*/ return [0,
-             /*<<option.ml:24:57>>*/ caml_call1(f, v)];
+             /*<<option.ml:24:57>>*/ caml_call1 /*<<option.ml:24:57>>*/ (f, v)];
     /*<<option.ml:24:62>>*/ }
    function fold(none, some, param){
      /*<<?>>*/ if(! param)  /*<<option.ml:25:59>>*/ return none;
     var v = param[1];
      /*<<option.ml:25:42>>*/ return  /*<<option.ml:25:42>>*/ caml_call1
-            (some, v);
+             /*<<option.ml:25:42>>*/ (some, v);
    }
    function iter(f, param){
      /*<<?>>*/ if(! param)  /*<<option.ml:26:46>>*/ return 0;
     var v = param[1];
-     /*<<option.ml:26:32>>*/ return  /*<<option.ml:26:32>>*/ caml_call1(f, v);
+     /*<<option.ml:26:32>>*/ return  /*<<option.ml:26:32>>*/ caml_call1
+             /*<<option.ml:26:32>>*/ (f, v);
    }
    function is_none(param){
      /*<<option.ml:27:14>>*/ return param ? 0 : 1;
@@ -2707,7 +2913,7 @@
      if(o1){
       var v1 = o1[1], v0 = o0[1];
        /*<<option.ml:31:22>>*/ return  /*<<option.ml:31:22>>*/ caml_call2
-              (eq, v0, v1);
+               /*<<option.ml:31:22>>*/ (eq, v0, v1);
      }
     }
     else if(! o1)  /*<<option.ml:32:16>>*/ return 1;
@@ -2719,7 +2925,7 @@
     if(! o1)  /*<<option.ml:39:18>>*/ return 1;
     var v1 = o1[1];
      /*<<option.ml:36:22>>*/ return  /*<<option.ml:36:22>>*/ caml_call2
-            (cmp, v0, v1);
+             /*<<option.ml:36:22>>*/ (cmp, v0, v1);
     /*<<option.ml:39:19>>*/ }
    function to_result(none, param){
      /*<<?>>*/ if(! param)  /*<<option.ml:41:39>>*/ return [1, none];
@@ -2736,7 +2942,7 @@
       /*<<option.ml:43:30>>*/ return Stdlib_Seq[20];
     var v = param[1];
      /*<<option.ml:43:52>>*/ return  /*<<option.ml:43:52>>*/ caml_call1
-            (Stdlib_Seq[21], v);
+             /*<<option.ml:43:52>>*/ (Stdlib_Seq[21], v);
     /*<<option.ml:43:64>>*/ }
    var
     Stdlib_Option =
@@ -2799,21 +3005,22 @@
    function get_ok(param){
      /*<<result.ml:21:13>>*/ if(0 !== param[0])
       /*<<result.ml:21:45>>*/ return  /*<<result.ml:21:45>>*/ caml_call1
-             (Stdlib[1], cst_result_is_Error);
+              /*<<result.ml:21:45>>*/ (Stdlib[1], cst_result_is_Error);
     var v = param[1];
      /*<<result.ml:21:30>>*/ return v;
     /*<<result.ml:21:76>>*/ }
    function get_error(param){
      /*<<result.ml:22:16>>*/ if(0 === param[0])
       /*<<result.ml:22:48>>*/ return  /*<<result.ml:22:48>>*/ caml_call1
-             (Stdlib[1], cst_result_is_Ok);
+              /*<<result.ml:22:48>>*/ (Stdlib[1], cst_result_is_Ok);
     var e = param[1];
      /*<<result.ml:22:36>>*/ return e;
     /*<<result.ml:22:76>>*/ }
    function bind(r, f){
      /*<<result.ml:23:15>>*/ if(0 !== r[0])  /*<<result.ml:23:58>>*/ return r;
     var v = r[1];
-     /*<<result.ml:23:36>>*/ return  /*<<result.ml:23:36>>*/ caml_call1(f, v);
+     /*<<result.ml:23:36>>*/ return  /*<<result.ml:23:36>>*/ caml_call1
+             /*<<result.ml:23:36>>*/ (f, v);
     /*<<result.ml:23:59>>*/ }
    function join(e){
      /*<<result.ml:24:11>>*/ if(0 !== e[0])  /*<<result.ml:24:48>>*/ return e;
@@ -2824,33 +3031,35 @@
      /*<<?>>*/ if(0 !== e[0])  /*<<result.ml:25:56>>*/ return e;
     var v = e[1];
      /*<<result.ml:25:29>>*/ return [0,
-             /*<<result.ml:25:32>>*/ caml_call1(f, v)];
+             /*<<result.ml:25:32>>*/ caml_call1 /*<<result.ml:25:32>>*/ (f, v)];
    }
    function map_error(f, v){
      /*<<?>>*/ if(0 === v[0])  /*<<result.ml:26:65>>*/ return v;
     var e = v[1];
      /*<<result.ml:26:38>>*/ return [1,
-             /*<<result.ml:26:44>>*/ caml_call1(f, e)];
+             /*<<result.ml:26:44>>*/ caml_call1 /*<<result.ml:26:44>>*/ (f, e)];
    }
    function fold(ok, error, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<result.ml:27:39>>*/ return  /*<<result.ml:27:39>>*/ caml_call1
-             (ok, v);
+              /*<<result.ml:27:39>>*/ (ok, v);
     }
     var e = param[1];
      /*<<result.ml:27:57>>*/ return  /*<<result.ml:27:57>>*/ caml_call1
-            (error, e);
+             /*<<result.ml:27:57>>*/ (error, e);
    }
    function iter(f, param){
      /*<<?>>*/ if(0 !== param[0])  /*<<result.ml:28:47>>*/ return 0;
     var v = param[1];
-     /*<<result.ml:28:30>>*/ return  /*<<result.ml:28:30>>*/ caml_call1(f, v);
+     /*<<result.ml:28:30>>*/ return  /*<<result.ml:28:30>>*/ caml_call1
+             /*<<result.ml:28:30>>*/ (f, v);
    }
    function iter_error(f, param){
      /*<<?>>*/ if(0 === param[0])  /*<<result.ml:29:53>>*/ return 0;
     var e = param[1];
-     /*<<result.ml:29:39>>*/ return  /*<<result.ml:29:39>>*/ caml_call1(f, e);
+     /*<<result.ml:29:39>>*/ return  /*<<result.ml:29:39>>*/ caml_call1
+             /*<<result.ml:29:39>>*/ (f, e);
    }
    function is_ok(param){
      /*<<result.ml:30:12>>*/ return 0 === param[0] ? 1 : 0;
@@ -2864,7 +3073,7 @@
      if(0 === r1[0]){
       var v1 = r1[1];
        /*<<result.ml:34:18>>*/ return  /*<<result.ml:34:18>>*/ caml_call2
-              (ok, v0, v1);
+               /*<<result.ml:34:18>>*/ (ok, v0, v1);
      }
     }
     else{
@@ -2872,7 +3081,7 @@
      if(0 !== r1[0]){
       var e1 = r1[1];
        /*<<result.ml:35:24>>*/ return  /*<<result.ml:35:24>>*/ caml_call2
-              (error, e0, e1);
+               /*<<result.ml:35:24>>*/ (error, e0, e1);
      }
     }
      /*<<result.ml:36:10>>*/ return 0;
@@ -2883,13 +3092,13 @@
      if(0 !== r1[0])  /*<<result.ml:41:19>>*/ return -1;
      var v1 = r1[1];
       /*<<result.ml:39:18>>*/ return  /*<<result.ml:39:18>>*/ caml_call2
-             (ok, v0, v1);
+              /*<<result.ml:39:18>>*/ (ok, v0, v1);
     }
     var e0 = r0[1];
     if(0 === r1[0])  /*<<result.ml:42:19>>*/ return 1;
     var e1 = r1[1];
      /*<<result.ml:40:24>>*/ return  /*<<result.ml:40:24>>*/ caml_call2
-            (error, e0, e1);
+             /*<<result.ml:40:24>>*/ (error, e0, e1);
     /*<<result.ml:42:20>>*/ }
    function to_option(param){
      /*<<result.ml:44:16>>*/ if(0 !== param[0])
@@ -2908,7 +3117,7 @@
       /*<<result.ml:46:56>>*/ return Stdlib_Seq[20];
     var v = param[1];
      /*<<result.ml:46:30>>*/ return  /*<<result.ml:46:30>>*/ caml_call1
-            (Stdlib_Seq[21], v);
+             /*<<result.ml:46:30>>*/ (Stdlib_Seq[21], v);
     /*<<result.ml:46:65>>*/ }
    var
     Stdlib_Result =
@@ -2956,11 +3165,11 @@
     /*<<bool.ml:33:58>>*/ }
    function seeded_hash(seed, x){
      /*<<bool.ml:37:25>>*/ return  /*<<bool.ml:37:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<bool.ml:37:25>>*/ (10, 100, seed, x);
     /*<<bool.ml:37:56>>*/ }
    function hash(x){
      /*<<bool.ml:38:13>>*/ return  /*<<bool.ml:38:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<bool.ml:38:13>>*/ (10, 100, 0, x);
     /*<<bool.ml:38:41>>*/ }
    var
     Stdlib_Bool =
@@ -3008,7 +3217,7 @@
      /*<<char.ml:22:2>>*/ if(0 <= n && 255 >= n)
       /*<<char.ml:22:55>>*/ return n;
      /*<<char.ml:22:27>>*/ return  /*<<char.ml:22:27>>*/ caml_call1
-            (Stdlib[1], cst_Char_chr);
+             /*<<char.ml:22:27>>*/ (Stdlib[1], cst_Char_chr);
     /*<<char.ml:22:67>>*/ }
    function escaped(c){
     a:
@@ -3032,7 +3241,9 @@
        }
      }
      var
-      s =  /*<<char.ml:42:14>>*/  /*<<char.ml:42:14>>*/ caml_create_bytes(4);
+      s =
+         /*<<char.ml:42:14>>*/  /*<<char.ml:42:14>>*/ caml_create_bytes
+          /*<<char.ml:42:14>>*/ (4);
      caml_bytes_unsafe_set(s, 0, 92);
      caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
      caml_bytes_unsafe_set(s, 2, 48 + ((c / 10 | 0) % 10 | 0) | 0);
@@ -3040,7 +3251,9 @@
      return caml_string_of_bytes(s);
     }
     var
-     s$0 =  /*<<char.ml:37:14>>*/  /*<<char.ml:37:14>>*/ caml_create_bytes(1);
+     s$0 =
+        /*<<char.ml:37:14>>*/  /*<<char.ml:37:14>>*/ caml_create_bytes
+         /*<<char.ml:37:14>>*/ (1);
     caml_bytes_unsafe_set(s$0, 0, c);
     return caml_string_of_bytes(s$0);
     /*<<char.ml:47:24>>*/ }
@@ -3058,11 +3271,11 @@
     /*<<char.ml:60:45>>*/ }
    function seeded_hash(seed, x){
      /*<<char.ml:64:25>>*/ return  /*<<char.ml:64:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<char.ml:64:25>>*/ (10, 100, seed, x);
     /*<<char.ml:64:56>>*/ }
    function hash(x){
      /*<<char.ml:65:13>>*/ return  /*<<char.ml:65:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<char.ml:65:13>>*/ (10, 100, 0, x);
     /*<<char.ml:65:41>>*/ }
    var
     Stdlib_Char =
@@ -3135,11 +3348,12 @@
     var
      _m_ =
         /*<<uchar.ml:20:19>>*/  /*<<uchar.ml:20:19>>*/ caml_call2
-        (Stdlib[28],
-          /*<<uchar.ml:20:19>>*/ caml_format_int("%X", i),
+         /*<<uchar.ml:20:19>>*/ (Stdlib[28],
+          /*<<uchar.ml:20:19>>*/ caml_format_int
+           /*<<uchar.ml:20:19>>*/ ("%X", i),
          cst_is_not_an_Unicode_scalar_v);
      /*<<uchar.ml:44:53>>*/ return  /*<<uchar.ml:44:53>>*/ caml_call1
-            (Stdlib[1], _m_);
+             /*<<uchar.ml:44:53>>*/ (Stdlib[1], _m_);
     /*<<uchar.ml:44:67>>*/ }
    function is_char(u){
      /*<<uchar.ml:48:16>>*/ return u < 256 ? 1 : 0;
@@ -3152,14 +3366,15 @@
     var
      _k_ =
         /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
-        (Stdlib[28],
-          /*<<uchar.ml:21:30>>*/ caml_format_int("%04X", u),
+         /*<<uchar.ml:21:30>>*/ (Stdlib[28],
+          /*<<uchar.ml:21:30>>*/ caml_format_int
+           /*<<uchar.ml:21:30>>*/ ("%04X", u),
          cst_is_not_a_latin1_character),
      _l_ =
         /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
-        (Stdlib[28], cst_U, _k_);
+         /*<<uchar.ml:21:30>>*/ (Stdlib[28], cst_U, _k_);
      /*<<uchar.ml:51:30>>*/ return  /*<<uchar.ml:51:30>>*/ caml_call1
-            (Stdlib[1], _l_);
+             /*<<uchar.ml:51:30>>*/ (Stdlib[1], _l_);
     /*<<uchar.ml:52:19>>*/ }
    function unsafe_to_char(_j_){ /*<<?>>*/ return _j_;}
    function equal(_i_, _h_){ /*<<?>>*/ return _i_ === _h_ ? 1 : 0;}
@@ -3188,23 +3403,23 @@
    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
-            ([0, Assert_failure, _b_], 1);
+             /*<<uchar.ml:80:18>>*/ ([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
-            ([0, Assert_failure, _a_], 1);
+             /*<<uchar.ml:85:7>>*/ ([0, Assert_failure, _a_], 1);
      /*<<uchar.ml:84:26>>*/ return 4;
     /*<<uchar.ml:85: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
-            ([0, Assert_failure, _d_], 1);
+             /*<<uchar.ml:88:18>>*/ ([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
-            ([0, Assert_failure, _c_], 1);
+             /*<<uchar.ml:91:7>>*/ ([0, Assert_failure, _c_], 1);
      /*<<uchar.ml:90:26>>*/ return 4;
     /*<<uchar.ml:91:19>>*/ }
    var
@@ -3289,26 +3504,26 @@
    function hd(param){
      /*<<list.ml:29:9>>*/ if(! param)
       /*<<list.ml:30:10>>*/ return  /*<<list.ml:30:10>>*/ caml_call1
-             (Stdlib[2], cst_hd);
+              /*<<list.ml:30:10>>*/ (Stdlib[2], cst_hd);
     var a = param[1];
      /*<<list.ml:31:12>>*/ return a;
     /*<<list.ml:31:13>>*/ }
    function tl(param){
      /*<<list.ml:33:9>>*/ if(! param)
       /*<<list.ml:34:10>>*/ return  /*<<list.ml:34:10>>*/ caml_call1
-             (Stdlib[2], cst_tl);
+              /*<<list.ml:34:10>>*/ (Stdlib[2], cst_tl);
     var l = param[2];
      /*<<list.ml:35:12>>*/ return l;
     /*<<list.ml:35:13>>*/ }
    function nth(l, n){
      /*<<list.ml:38:2>>*/ if(0 > n)
       /*<<list.ml:38:16>>*/ return  /*<<list.ml:38:16>>*/ caml_call1
-             (Stdlib[1], cst_List_nth);
+              /*<<list.ml:38:16>>*/ (Stdlib[1], cst_List_nth);
     var l$0 = l, n$0 = n;
      /*<<list.ml:40:4>>*/ for(;;){
      if(! l$0)
        /*<<list.ml:41:12>>*/ return  /*<<list.ml:41:12>>*/ caml_call1
-              (Stdlib[2], cst_nth);
+               /*<<list.ml:41:12>>*/ (Stdlib[2], cst_nth);
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
      var n$1 =  /*<<list.ml:42:35>>*/ n$0 - 1 | 0;
@@ -3319,7 +3534,7 @@
    function nth_opt(l, n){
      /*<<list.ml:46:2>>*/ if(0 > n)
       /*<<list.ml:46:16>>*/ return  /*<<list.ml:46:16>>*/ caml_call1
-             (Stdlib[1], cst_List_nth$0);
+              /*<<list.ml:46:16>>*/ (Stdlib[1], cst_List_nth$0);
     var l$0 = l, n$0 = n;
      /*<<list.ml:48:4>>*/ for(;;){
      if(! l$0)  /*<<list.ml:49:12>>*/ return 0;
@@ -3362,16 +3577,20 @@
    function init(len, f){
      /*<<list.ml:71:2>>*/ if(0 > len)
       /*<<list.ml:71:18>>*/ return  /*<<list.ml:71:18>>*/ caml_call1
-             (Stdlib[1], cst_List_init);
+              /*<<list.ml:71:18>>*/ (Stdlib[1], cst_List_init);
     var last = len - 1 | 0, i$1 = 0;
     if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
     if(0 === last)
       /*<<list.ml:64:24>>*/ return [0,
-              /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
+              /*<<list.ml:64:25>>*/ caml_call1 /*<<list.ml:64:25>>*/ (f, i$1),
              0];
     var
-     r1 =  /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
-     r2 =  /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
+     r1 =
+        /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1
+         /*<<list.ml:66:13>>*/ (f, i$1),
+     r2 =
+        /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1
+         /*<<list.ml:67:13>>*/ (f, 1),
      block =  /*<<list.ml:68:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
@@ -3382,10 +3601,12 @@
      else{
       if(i !== last){
        var
-        r1$0 =  /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1(f, i),
+        r1$0 =
+           /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1
+            /*<<list.ml:66:13>>*/ (f, i),
         r2$0 =
            /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1
-           (f, i + 1 | 0),
+            /*<<list.ml:67:13>>*/ (f, i + 1 | 0),
         dst$0 =  /*<<list.ml:68:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$0, dst$0];
        var i$0 = i + 2 | 0;
@@ -3394,7 +3615,8 @@
        i = i$0;
        continue;
       }
-      dst[1 + offset] = [0,  /*<<list.ml:64:25>>*/ caml_call1(f, i), 0];
+      dst[1 + offset] =
+       [0,  /*<<list.ml:64:25>>*/ caml_call1 /*<<list.ml:64:25>>*/ (f, i), 0];
      }
       /*<<list.ml:68:4>>*/ return [0, r1, block];
     }
@@ -3403,21 +3625,27 @@
      /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
     var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
      /*<<list.ml:76:16>>*/ return  /*<<list.ml:76:16>>*/ caml_call2
-            (Stdlib[37], l, _I_);
+             /*<<list.ml:76:16>>*/ (Stdlib[37], l, _I_);
     /*<<list.ml:76:25>>*/ }
    function map(f, param){
      /*<<?>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
     var match = param[2], a1 = param[1];
     if(! match){
      var
-      r1$0 =  /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1(f, a1);
+      r1$0 =
+         /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1
+          /*<<list.ml:83:15>>*/ (f, a1);
       /*<<list.ml:84:6>>*/ return [0, r1$0, 0];
     }
     var
      l = match[2],
      a2 = match[1],
-     r1 =  /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
-     r2 =  /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1(f, a2),
+     r1 =
+        /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1
+         /*<<list.ml:86:15>>*/ (f, a1),
+     r2 =
+        /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1
+         /*<<list.ml:87:15>>*/ (f, a2),
      block =  /*<<list.ml:88:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
@@ -3430,9 +3658,11 @@
         l$0 = match$0[2],
         a2$0 = match$0[1],
         r1$1 =
-           /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1(f, a1$0),
+           /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1
+            /*<<list.ml:86:15>>*/ (f, a1$0),
         r2$0 =
-           /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1(f, a2$0),
+           /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1
+            /*<<list.ml:87:15>>*/ (f, a2$0),
         dst$0 =  /*<<list.ml:88:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        dst = dst$0;
@@ -3442,7 +3672,8 @@
       }
       var
        r1$2 =
-          /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1(f, a1$0);
+          /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1
+           /*<<list.ml:83:15>>*/ (f, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
      else
@@ -3457,14 +3688,19 @@
     if(! match){
      var
       r1$0 =
-         /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
+         /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2
+          /*<<list.ml:93:15>>*/ (f, i$1, a1);
       /*<<list.ml:94:6>>*/ return [0, r1$0, 0];
     }
     var
      l = match[2],
      a2 = match[1],
-     r1 =  /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
-     r2 =  /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2(f, 1, a2),
+     r1 =
+        /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2
+         /*<<list.ml:96:15>>*/ (f, i$1, a1),
+     r2 =
+        /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2
+         /*<<list.ml:97:15>>*/ (f, 1, a2),
      block =  /*<<list.ml:98:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
@@ -3478,10 +3714,11 @@
         l$0 = match$0[2],
         a2$0 = match$0[1],
         r1$1 =
-           /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2(f, i, a1$0),
+           /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2
+            /*<<list.ml:96:15>>*/ (f, i, a1$0),
         r2$0 =
            /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2
-           (f, i + 1 | 0, a2$0),
+            /*<<list.ml:97:15>>*/ (f, i + 1 | 0, a2$0),
         dst$0 =  /*<<list.ml:98:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        var i$0 = i + 2 | 0;
@@ -3493,7 +3730,8 @@
       }
       var
        r1$2 =
-          /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2(f, i, a1$0);
+          /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2
+           /*<<list.ml:93:15>>*/ (f, i, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
      else
@@ -3510,7 +3748,7 @@
       a = param[1],
       accu$0 =
          /*<<list.ml:105:21>>*/ [0,
-          /*<<list.ml:105:22>>*/ caml_call1(f, a),
+          /*<<list.ml:105:22>>*/ caml_call1 /*<<list.ml:105:22>>*/ (f, a),
          accu];
      accu = accu$0;
      param = l$0;
@@ -3521,7 +3759,8 @@
     for(;;){
      if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
      var l = param$0[2], a = param$0[1];
-      /*<<list.ml:112:12>>*/  /*<<list.ml:112:12>>*/ caml_call1(f, a);
+      /*<<list.ml:112:12>>*/  /*<<list.ml:112:12>>*/ caml_call1
+       /*<<list.ml:112:12>>*/ (f, a);
      param$0 = l;
     }
    }
@@ -3530,7 +3769,8 @@
     for(;;){
      if(! param)  /*<<list.ml:115:10>>*/ return 0;
      var l = param[2], a = param[1];
-      /*<<list.ml:116:12>>*/  /*<<list.ml:116:12>>*/ caml_call2(f, i, a);
+      /*<<list.ml:116:12>>*/  /*<<list.ml:116:12>>*/ caml_call2
+       /*<<list.ml:116:12>>*/ (f, i, a);
      var i$0 = i + 1 | 0;
      i = i$0;
      param = l;
@@ -3545,7 +3785,7 @@
       a = l$0[1],
       accu$1 =
          /*<<list.ml:123:24>>*/  /*<<list.ml:123:24>>*/ caml_call2
-         (f, accu$0, a);
+          /*<<list.ml:123:24>>*/ (f, accu$0, a);
      accu$0 = accu$1;
      l$0 = l$1;
     }
@@ -3554,7 +3794,7 @@
      /*<<list.ml:126:2>>*/ if(! l)  /*<<list.ml:127:10>>*/ return accu;
     var l$0 = l[2], a = l[1];
      /*<<list.ml:128:16>>*/ return  /*<<list.ml:128:16>>*/ caml_call2
-            (f, a, fold_right(f, l$0, accu));
+             /*<<list.ml:128:16>>*/ (f, a, fold_right(f, l$0, accu));
     /*<<list.ml:128:37>>*/ }
    function map2(f, l1, l2){
      /*<<list.ml:131:2>>*/ if(l1){
@@ -3571,10 +3811,10 @@
          a2 = _G_[1],
          r1 =
             /*<<list.ml:137:15>>*/  /*<<list.ml:137:15>>*/ caml_call2
-            (f, a1, b1),
+             /*<<list.ml:137:15>>*/ (f, a1, b1),
          r2 =
             /*<<list.ml:138:15>>*/  /*<<list.ml:138:15>>*/ caml_call2
-            (f, a2, b2),
+             /*<<list.ml:138:15>>*/ (f, a2, b2),
          block =  /*<<list.ml:139:10>>*/ [0, r2, 24029],
          dst = block,
          offset = 1,
@@ -3597,10 +3837,10 @@
                a2$0 = _H_[1],
                r1$1 =
                   /*<<list.ml:137:15>>*/  /*<<list.ml:137:15>>*/ caml_call2
-                  (f, a1$0, b1$1),
+                   /*<<list.ml:137:15>>*/ (f, a1$0, b1$1),
                r2$0 =
                   /*<<list.ml:138:15>>*/  /*<<list.ml:138:15>>*/ caml_call2
-                  (f, a2$0, b2$0),
+                   /*<<list.ml:138:15>>*/ (f, a2$0, b2$0),
                dst$0 =  /*<<list.ml:139:10>>*/ [0, r2$0, 24029];
               dst[1 + offset] = [0, r1$1, dst$0];
               dst = dst$0;
@@ -3616,7 +3856,7 @@
              b1$2 = l2$1[1],
              r1$2 =
                 /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
-                (f, a1$0, b1$2);
+                 /*<<list.ml:134:15>>*/ (f, a1$0, b1$2);
             dst[1 + offset] = [0, r1$2, 0];
             break a;
            }
@@ -3634,13 +3874,13 @@
        b1$0 = l2[1],
        r1$0 =
           /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
-          (f, a1, b1$0);
+           /*<<list.ml:134:15>>*/ (f, a1, b1$0);
        /*<<list.ml:135:6>>*/ return [0, r1$0, 0];
      }
     }
     else if(! l2)  /*<<list.ml:132:16>>*/ return 0;
      /*<<list.ml:140:14>>*/ return  /*<<list.ml:140:14>>*/ caml_call1
-            (Stdlib[1], cst_List_map2);
+             /*<<list.ml:140:14>>*/ (Stdlib[1], cst_List_map2);
     /*<<list.ml:140:37>>*/ }
    function rev_map2(f, l1, l2){
     var accu = 0, l1$0 = l1, l2$0 = l2;
@@ -3654,7 +3894,8 @@
         a1 = l1$0[1],
         accu$0 =
            /*<<list.ml:146:34>>*/ [0,
-            /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2),
+            /*<<list.ml:146:35>>*/ caml_call2
+             /*<<list.ml:146:35>>*/ (f, a1, a2),
            accu];
        accu = accu$0;
        l1$0 = l1$1;
@@ -3664,7 +3905,7 @@
      }
      else if(! l2$0)  /*<<list.ml:145:18>>*/ return accu;
       /*<<list.ml:147:16>>*/ return  /*<<list.ml:147:16>>*/ caml_call1
-             (Stdlib[1], cst_List_rev_map2);
+              /*<<list.ml:147:16>>*/ (Stdlib[1], cst_List_rev_map2);
     }
     /*<<list.ml:149:18>>*/ }
    function iter2(f, l1, l2){
@@ -3673,7 +3914,8 @@
      if(l1$0){
       if(l2$0){
        var l2$1 = l2$0[2], a2 = l2$0[1], l1$1 = l1$0[2], a1 = l1$0[1];
-        /*<<list.ml:155:24>>*/  /*<<list.ml:155:24>>*/ caml_call2(f, a1, a2);
+        /*<<list.ml:155:24>>*/  /*<<list.ml:155:24>>*/ caml_call2
+         /*<<list.ml:155:24>>*/ (f, a1, a2);
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
@@ -3681,7 +3923,7 @@
      }
      else if(! l2$0)  /*<<list.ml:154:16>>*/ return 0;
       /*<<list.ml:156:14>>*/ return  /*<<list.ml:156:14>>*/ caml_call1
-             (Stdlib[1], cst_List_iter2);
+              /*<<list.ml:156:14>>*/ (Stdlib[1], cst_List_iter2);
     }
     /*<<list.ml:156:38>>*/ }
    function fold_left2(f, accu, l1, l2){
@@ -3696,7 +3938,7 @@
         a1 = l1$0[1],
         accu$1 =
            /*<<list.ml:161:37>>*/  /*<<list.ml:161:37>>*/ caml_call3
-           (f, accu$0, a1, a2);
+            /*<<list.ml:161:37>>*/ (f, accu$0, a1, a2);
        accu$0 = accu$1;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3705,7 +3947,7 @@
      }
      else if(! l2$0)  /*<<list.ml:160:16>>*/ return accu$0;
       /*<<list.ml:162:14>>*/ return  /*<<list.ml:162:14>>*/ caml_call1
-             (Stdlib[1], cst_List_fold_left2);
+              /*<<list.ml:162:14>>*/ (Stdlib[1], cst_List_fold_left2);
     }
     /*<<list.ml:162:43>>*/ }
    function fold_right2(f, l1, l2, accu){
@@ -3713,12 +3955,15 @@
      if(l2){
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
        /*<<list.ml:167:32>>*/ return  /*<<list.ml:167:32>>*/ caml_call3
-              (f, a1, a2, fold_right2(f, l1$0, l2$0, accu));
+               /*<<list.ml:167:32>>*/ (f,
+               a1,
+               a2,
+               fold_right2(f, l1$0, l2$0, accu));
      }
     }
     else if(! l2)  /*<<list.ml:166:16>>*/ return accu;
      /*<<list.ml:168:14>>*/ return  /*<<list.ml:168:14>>*/ caml_call1
-            (Stdlib[1], cst_List_fold_right2);
+             /*<<list.ml:168:14>>*/ (Stdlib[1], cst_List_fold_right2);
     /*<<list.ml:168:44>>*/ }
    function for_all(p, param){
     var param$0 = param;
@@ -3727,7 +3972,9 @@
      var
       l = param$0[2],
       a = param$0[1],
-      _F_ =  /*<<list.ml:172:12>>*/  /*<<list.ml:172:12>>*/ caml_call1(p, a);
+      _F_ =
+         /*<<list.ml:172:12>>*/  /*<<list.ml:172:12>>*/ caml_call1
+          /*<<list.ml:172:12>>*/ (p, a);
       /*<<list.ml:172:12>>*/ if(! _F_)  /*<<list.ml:172:12>>*/ return _F_;
      param$0 = l;
     }
@@ -3739,7 +3986,9 @@
      var
       l = param$0[2],
       a = param$0[1],
-      _E_ =  /*<<list.ml:176:12>>*/  /*<<list.ml:176:12>>*/ caml_call1(p, a);
+      _E_ =
+         /*<<list.ml:176:12>>*/  /*<<list.ml:176:12>>*/ caml_call1
+          /*<<list.ml:176:12>>*/ (p, a);
       /*<<list.ml:176:12>>*/ if(_E_)  /*<<list.ml:176:12>>*/ return _E_;
      param$0 = l;
     }
@@ -3756,7 +4005,7 @@
         a1 = l1$0[1],
         _D_ =
            /*<<list.ml:181:24>>*/  /*<<list.ml:181:24>>*/ caml_call2
-           (p, a1, a2);
+            /*<<list.ml:181:24>>*/ (p, a1, a2);
         /*<<list.ml:181:24>>*/ if(! _D_)  /*<<list.ml:181:24>>*/ return _D_;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3765,7 +4014,7 @@
      }
      else if(! l2$0)  /*<<list.ml:180:16>>*/ return 1;
       /*<<list.ml:182:14>>*/ return  /*<<list.ml:182:14>>*/ caml_call1
-             (Stdlib[1], cst_List_for_all2);
+              /*<<list.ml:182:14>>*/ (Stdlib[1], cst_List_for_all2);
     }
     /*<<list.ml:182:41>>*/ }
    function exists2(p, l1, l2){
@@ -3780,7 +4029,7 @@
         a1 = l1$0[1],
         _C_ =
            /*<<list.ml:187:24>>*/  /*<<list.ml:187:24>>*/ caml_call2
-           (p, a1, a2);
+            /*<<list.ml:187:24>>*/ (p, a1, a2);
         /*<<list.ml:187:24>>*/ if(_C_)  /*<<list.ml:187:24>>*/ return _C_;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3789,7 +4038,7 @@
      }
      else if(! l2$0)  /*<<list.ml:186:16>>*/ return 0;
       /*<<list.ml:188:14>>*/ return  /*<<list.ml:188:14>>*/ caml_call1
-             (Stdlib[1], cst_List_exists2);
+              /*<<list.ml:188:14>>*/ (Stdlib[1], cst_List_exists2);
     }
     /*<<list.ml:188:40>>*/ }
    function mem(x, param){
@@ -3799,7 +4048,12 @@
      var
       l = param$0[2],
       a = param$0[1],
-      _B_ = 0 ===  /*<<list.ml:192:12>>*/ caml_compare(a, x) ? 1 : 0;
+      _B_ =
+        0
+         ===
+           /*<<list.ml:192:12>>*/ caml_compare /*<<list.ml:192:12>>*/ (a, x)
+         ? 1
+         : 0;
      if(_B_) return _B_;
      param$0 = l;
     }
@@ -3818,10 +4072,11 @@
     for(;;){
      if(! param$0)
        /*<<list.ml:199:10>>*/ throw  /*<<list.ml:199:10>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<list.ml:199:10>>*/ (Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
       /*<<list.ml:200:19>>*/ if
-      (0 ===  /*<<list.ml:200:19>>*/ caml_compare(a, x))
+      (0
+       ===  /*<<list.ml:200:19>>*/ caml_compare /*<<list.ml:200:19>>*/ (a, x))
        /*<<list.ml:200:40>>*/ return b;
      param$0 = l;
     }
@@ -3832,7 +4087,8 @@
      if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
       /*<<list.ml:204:19>>*/ if
-      (0 ===  /*<<list.ml:204:19>>*/ caml_compare(a, x))
+      (0
+       ===  /*<<list.ml:204:19>>*/ caml_compare /*<<list.ml:204:19>>*/ (a, x))
        /*<<list.ml:204:40>>*/ return [0, b];
      param$0 = l;
     }
@@ -3842,7 +4098,7 @@
     for(;;){
      if(! param$0)
        /*<<list.ml:207:10>>*/ throw  /*<<list.ml:207:10>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<list.ml:207:10>>*/ (Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
      if(a === x)  /*<<list.ml:208:31>>*/ return b;
      param$0 = l;
@@ -3864,7 +4120,12 @@
      var
       l = param$0[2],
       a = param$0[1][1],
-      _z_ = 0 ===  /*<<list.ml:216:19>>*/ caml_compare(a, x) ? 1 : 0;
+      _z_ =
+        0
+         ===
+           /*<<list.ml:216:19>>*/ caml_compare /*<<list.ml:216:19>>*/ (a, x)
+         ? 1
+         : 0;
      if(_z_) return _z_;
      param$0 = l;
     }
@@ -3882,7 +4143,8 @@
      /*<<?>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
     var l = param[2], pair = param[1], a = pair[1];
      /*<<list.ml:225:9>>*/ return 0
-            ===  /*<<list.ml:225:9>>*/ caml_compare(a, x)
+            ===
+              /*<<list.ml:225:9>>*/ caml_compare /*<<list.ml:225:9>>*/ (a, x)
             ? l
             : [0, pair, remove_assoc(x, l)];
    }
@@ -3896,9 +4158,10 @@
     for(;;){
      if(! param$0)
        /*<<list.ml:232:10>>*/ throw  /*<<list.ml:232:10>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<list.ml:232:10>>*/ (Stdlib[8], 1);
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:233:17>>*/ if( /*<<list.ml:233:17>>*/ caml_call1(p, x))
+      /*<<list.ml:233:17>>*/ if
+      ( /*<<list.ml:233:17>>*/ caml_call1 /*<<list.ml:233:17>>*/ (p, x))
        /*<<list.ml:233:26>>*/ return x;
      param$0 = l;
     }
@@ -3908,7 +4171,8 @@
     for(;;){
      if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:237:17>>*/ if( /*<<list.ml:237:17>>*/ caml_call1(p, x))
+      /*<<list.ml:237:17>>*/ if
+      ( /*<<list.ml:237:17>>*/ caml_call1 /*<<list.ml:237:17>>*/ (p, x))
        /*<<list.ml:237:26>>*/ return [0, x];
      param$0 = l;
     }
@@ -3920,7 +4184,8 @@
      for(;;){
       if(! param)  /*<<list.ml:241:10>>*/ return 0;
       var l = param[2], a = param[1];
-       /*<<list.ml:242:17>>*/ if( /*<<list.ml:242:17>>*/ caml_call1(p, a))
+       /*<<list.ml:242:17>>*/ if
+       ( /*<<list.ml:242:17>>*/ caml_call1 /*<<list.ml:242:17>>*/ (p, a))
         /*<<list.ml:242:26>>*/ return [0, i$0];
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -3935,7 +4200,8 @@
       l = param$0[2],
       x = param$0[1],
       result =
-         /*<<list.ml:248:17>>*/  /*<<list.ml:248:17>>*/ caml_call1(f, x);
+         /*<<list.ml:248:17>>*/  /*<<list.ml:248:17>>*/ caml_call1
+          /*<<list.ml:248:17>>*/ (f, x);
      if(result)  /*<<list.ml:249:29>>*/ return result;
      param$0 = l;
     }
@@ -3950,7 +4216,8 @@
        l = param[2],
        x = param[1],
        result =
-          /*<<list.ml:257:17>>*/  /*<<list.ml:257:17>>*/ caml_call2(f, i$0, x);
+          /*<<list.ml:257:17>>*/  /*<<list.ml:257:17>>*/ caml_call2
+           /*<<list.ml:257:17>>*/ (f, i$0, x);
       if(result)  /*<<list.ml:258:29>>*/ return result;
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -3962,7 +4229,8 @@
     for(;;){
      if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:265:17>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
+      /*<<list.ml:265:17>>*/ if
+      ( /*<<list.ml:265:17>>*/ caml_call1 /*<<list.ml:265:17>>*/ (p, x)){
       var
        block =  /*<<list.ml:265:26>>*/ [0, x, 24029],
        dst = block,
@@ -3974,7 +4242,8 @@
          /*<<list.ml:265:31>>*/ return block;
        }
        var l$0 = param$1[2], x$0 = param$1[1];
-        /*<<list.ml:265:17>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x$0)){
+        /*<<list.ml:265:17>>*/ if
+        ( /*<<list.ml:265:17>>*/ caml_call1 /*<<list.ml:265:17>>*/ (p, x$0)){
         var dst$0 =  /*<<list.ml:265:26>>*/ [0, x$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
@@ -3994,7 +4263,8 @@
     for(;;){
      if(! param)  /*<<list.ml:270:10>>*/ return 0;
      var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
-      /*<<list.ml:273:9>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i, x))
+      /*<<list.ml:273:9>>*/ if
+      ( /*<<list.ml:273:9>>*/ caml_call2 /*<<list.ml:273:9>>*/ (p, i, x))
       break;
      i = i$0;
      param = l;
@@ -4011,7 +4281,8 @@
       l$0 = param$0[2],
       x$0 = param$0[1],
       i$2 =  /*<<list.ml:272:6>>*/ i$1 + 1 | 0;
-      /*<<list.ml:273:9>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i$1, x$0)){
+      /*<<list.ml:273:9>>*/ if
+      ( /*<<list.ml:273:9>>*/ caml_call2 /*<<list.ml:273:9>>*/ (p, i$1, x$0)){
       var dst$0 =  /*<<list.ml:273:20>>*/ [0, x$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -4029,7 +4300,9 @@
      var
       l = param$0[2],
       x = param$0[1],
-      match =  /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1(f, x);
+      match =
+         /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1
+          /*<<list.ml:280:12>>*/ (f, x);
      if(match){
       var
        v = match[1],
@@ -4046,7 +4319,8 @@
         l$0 = param$1[2],
         x$0 = param$1[1],
         match$0 =
-           /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
+           /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1
+            /*<<list.ml:280:12>>*/ (f, x$0);
        if(match$0){
         var v$0 = match$0[1], dst$0 =  /*<<list.ml:282:18>>*/ [0, v$0, 24029];
         dst[1 + offset] = dst$0;
@@ -4069,7 +4343,9 @@
      var
       xs = param$0[2],
       x = param$0[1],
-      ys =  /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1(f, x);
+      ys =
+         /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1
+          /*<<list.ml:286:32>>*/ (f, x);
      if(ys){
       var
        ys$1 = ys[2],
@@ -4096,7 +4372,8 @@
          xs$0 = xs$1[2],
          x$0 = xs$1[1],
          ys$0 =
-            /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1(f, x$0);
+            /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1
+             /*<<list.ml:286:32>>*/ (f, x$0);
         ys$2 = ys$0;
         xs$1 = xs$0;
        }
@@ -4114,7 +4391,7 @@
       x = param[1],
       match =
          /*<<list.ml:296:22>>*/  /*<<list.ml:296:22>>*/ caml_call2
-         (f, accu$0, x),
+          /*<<list.ml:296:22>>*/ (f, accu$0, x),
       x$0 = match[2],
       accu$1 = match[1],
       l_accu$0 =  /*<<list.ml:297:17>>*/ [0, x$0, l_accu];
@@ -4131,7 +4408,8 @@
        /*<<list.ml:302: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:17>>*/ if
+      ( /*<<list.ml:303:17>>*/ caml_call1 /*<<list.ml:303:17>>*/ (p, x)){
       var yes$0 =  /*<<list.ml:303:31>>*/ [0, x, yes];
       yes = yes$0;
       param = l$0;
@@ -4153,7 +4431,9 @@
      var
       l$0 = param[2],
       x = param[1],
-      match =  /*<<list.ml:310:17>>*/  /*<<list.ml:310:17>>*/ caml_call1(p, x);
+      match =
+         /*<<list.ml:310:17>>*/  /*<<list.ml:310:17>>*/ caml_call1
+          /*<<list.ml:310:17>>*/ (p, x);
      if(0 === match[0]){
       var v = match[1], left$0 =  /*<<list.ml:311:31>>*/ [0, v, left];
       left = left$0;
@@ -4187,14 +4467,16 @@
     }
     else if(! l2)  /*<<list.ml:324:16>>*/ return 0;
      /*<<list.ml:326:14>>*/ return  /*<<list.ml:326:14>>*/ caml_call1
-            (Stdlib[1], cst_List_combine);
+             /*<<list.ml:326:14>>*/ (Stdlib[1], cst_List_combine);
     /*<<list.ml:326: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;
     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:335:9>>*/ caml_call2
+               /*<<list.ml:335:9>>*/ (cmp, h1, h2)
             ? [0, h2, merge(cmp, l1, t2)]
             : [0, h1, merge(cmp, t1, l2)];
     /*<<list.ml:337:32>>*/ }
@@ -4210,7 +4492,9 @@
          x1 = l[1],
          s =
             /*<<list.ml:362:19>>*/ 0
-            <  /*<<list.ml:362:19>>*/ caml_call2(cmp, x1, x2)
+            <
+              /*<<list.ml:362:19>>*/ caml_call2
+               /*<<list.ml:362:19>>*/ (cmp, x1, x2)
             ? [0, x2, [0, x1, 0]]
             : [0, x1, [0, x2, 0]];
          /*<<list.ml:363:8>>*/ return [0, s, tl];
@@ -4229,18 +4513,28 @@
          x1$0 = l[1],
          s$0 =
             /*<<list.ml:366:13>>*/ 0
-            <  /*<<list.ml:366:13>>*/ caml_call2(cmp, x1$0, x2$0)
+            <
+              /*<<list.ml:366:13>>*/ caml_call2
+               /*<<list.ml:366:13>>*/ (cmp, x1$0, x2$0)
             ? 0
-              <  /*<<list.ml:370:18>>*/ caml_call2(cmp, x1$0, x3)
+              <
+                /*<<list.ml:370:18>>*/ caml_call2
+                 /*<<list.ml:370:18>>*/ (cmp, x1$0, x3)
               ? 0
-                <  /*<<list.ml:371:18>>*/ caml_call2(cmp, x2$0, x3)
+                <
+                  /*<<list.ml:371:18>>*/ caml_call2
+                   /*<<list.ml:371:18>>*/ (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:367:15>>*/ caml_call2
+                 /*<<list.ml:367:15>>*/ (cmp, x2$0, x3)
               ? 0
-                <  /*<<list.ml:368:20>>*/ caml_call2(cmp, x1$0, x3)
+                <
+                  /*<<list.ml:368:20>>*/ caml_call2
+                   /*<<list.ml:368:20>>*/ (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]]];
@@ -4265,7 +4559,10 @@
        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)){
+         (0
+          <
+            /*<<list.ml:355:11>>*/ caml_call2
+             /*<<list.ml:355:11>>*/ (cmp, h1, h2)){
          var accu$0 =  /*<<list.ml:356:33>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$0;
@@ -4294,7 +4591,9 @@
          x1 = l[1],
          s =
             /*<<list.ml:384:19>>*/ 0
-            <  /*<<list.ml:384:19>>*/ caml_call2(cmp, x1, x2)
+            <
+              /*<<list.ml:384:19>>*/ caml_call2
+               /*<<list.ml:384:19>>*/ (cmp, x1, x2)
             ? [0, x1, [0, x2, 0]]
             : [0, x2, [0, x1, 0]];
          /*<<list.ml:385:8>>*/ return [0, s, tl];
@@ -4313,19 +4612,29 @@
          x1$0 = l[1],
          s$0 =
             /*<<list.ml:388:13>>*/ 0
-            <  /*<<list.ml:388:13>>*/ caml_call2(cmp, x1$0, x2$0)
+            <
+              /*<<list.ml:388:13>>*/ caml_call2
+               /*<<list.ml:388:13>>*/ (cmp, x1$0, x2$0)
             ? 0
-              <  /*<<list.ml:389:15>>*/ caml_call2(cmp, x2$0, x3)
+              <
+                /*<<list.ml:389:15>>*/ caml_call2
+                 /*<<list.ml:389:15>>*/ (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:390:20>>*/ caml_call2
+                   /*<<list.ml:390:20>>*/ (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:392:18>>*/ caml_call2
+                 /*<<list.ml:392:18>>*/ (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:393:18>>*/ caml_call2
+                   /*<<list.ml:393:18>>*/ (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];
@@ -4349,7 +4658,10 @@
        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)){
+         (0
+          <
+            /*<<list.ml:346:11>>*/ caml_call2
+             /*<<list.ml:346:11>>*/ (cmp, h1, h2)){
          var accu$0 =  /*<<list.ml:348:29>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$0;
@@ -4382,7 +4694,7 @@
          x1 = l[1],
          c$0 =
             /*<<list.ml:446:18>>*/  /*<<list.ml:446:18>>*/ caml_call2
-            (cmp, x1, x2),
+             /*<<list.ml:446:18>>*/ (cmp, x1, x2),
          s =
             /*<<list.ml:447:10>>*/ 0 === c$0
             ? [0, x1, 0]
@@ -4403,12 +4715,12 @@
          x1$0 = l[1],
          c$1 =
             /*<<list.ml:452:18>>*/  /*<<list.ml:452:18>>*/ caml_call2
-            (cmp, x1$0, x2$0);
+             /*<<list.ml:452:18>>*/ (cmp, x1$0, x2$0);
          /*<<list.ml:453:10>>*/ if(0 === c$1)
          var
           c$2 =
              /*<<list.ml:454:20>>*/  /*<<list.ml:454:20>>*/ caml_call2
-             (cmp, x2$0, x3),
+              /*<<list.ml:454:20>>*/ (cmp, x2$0, x3),
           _n_ =
              /*<<list.ml:455:12>>*/ 0 === c$2
              ? [0, x2$0, 0]
@@ -4418,14 +4730,14 @@
          var
           c$3 =
              /*<<list.ml:466:20>>*/  /*<<list.ml:466:20>>*/ caml_call2
-             (cmp, x1$0, x3);
+              /*<<list.ml:466:20>>*/ (cmp, x1$0, x3);
           /*<<list.ml:467:12>>*/ if(0 === c$3)
           var _o_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
           var
            c$4 =
               /*<<list.ml:470:22>>*/  /*<<list.ml:470:22>>*/ caml_call2
-              (cmp, x2$0, x3),
+               /*<<list.ml:470:22>>*/ (cmp, x2$0, x3),
            _p_ =
               /*<<list.ml:471:14>>*/ 0 === c$4
               ? [0, x2$0, [0, x1$0, 0]]
@@ -4442,14 +4754,14 @@
          var
           c$5 =
              /*<<list.ml:457:20>>*/  /*<<list.ml:457:20>>*/ caml_call2
-             (cmp, x2$0, x3);
+              /*<<list.ml:457:20>>*/ (cmp, x2$0, x3);
           /*<<list.ml:458:12>>*/ if(0 === c$5)
           var _q_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
           var
            c$6 =
               /*<<list.ml:461:22>>*/  /*<<list.ml:461:22>>*/ caml_call2
-              (cmp, x1$0, x3),
+               /*<<list.ml:461:22>>*/ (cmp, x1$0, x3),
            _r_ =
               /*<<list.ml:462:14>>*/ 0 === c$6
               ? [0, x1$0, [0, x2$0, 0]]
@@ -4488,7 +4800,7 @@
          h1 = l1[1],
          c =
             /*<<list.ml:436:16>>*/  /*<<list.ml:436:16>>*/ caml_call2
-            (cmp, h1, h2);
+             /*<<list.ml:436:16>>*/ (cmp, h1, h2);
          /*<<list.ml:437:8>>*/ if(0 === c){
          var accu$0 =  /*<<list.ml:437:42>>*/ [0, h1, accu];
          l1 = t1;
@@ -4525,7 +4837,7 @@
          x1 = l[1],
          c$0 =
             /*<<list.ml:486:18>>*/  /*<<list.ml:486:18>>*/ caml_call2
-            (cmp, x1, x2),
+             /*<<list.ml:486:18>>*/ (cmp, x1, x2),
          s =
             /*<<list.ml:487:10>>*/ 0 === c$0
             ? [0, x1, 0]
@@ -4546,12 +4858,12 @@
          x1$0 = l[1],
          c$1 =
             /*<<list.ml:492:18>>*/  /*<<list.ml:492:18>>*/ caml_call2
-            (cmp, x1$0, x2$0);
+             /*<<list.ml:492:18>>*/ (cmp, x1$0, x2$0);
          /*<<list.ml:493:10>>*/ if(0 === c$1)
          var
           c$2 =
              /*<<list.ml:494:20>>*/  /*<<list.ml:494:20>>*/ caml_call2
-             (cmp, x2$0, x3),
+              /*<<list.ml:494:20>>*/ (cmp, x2$0, x3),
           _g_ =
              /*<<list.ml:495:12>>*/ 0 === c$2
              ? [0, x2$0, 0]
@@ -4561,7 +4873,7 @@
          var
           c$3 =
              /*<<list.ml:497:20>>*/  /*<<list.ml:497:20>>*/ caml_call2
-             (cmp, x2$0, x3);
+              /*<<list.ml:497:20>>*/ (cmp, x2$0, x3);
           /*<<list.ml:498:12>>*/ if(0 === c$3)
           var _h_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 < c$3)
@@ -4570,7 +4882,7 @@
           var
            c$4 =
               /*<<list.ml:501:22>>*/  /*<<list.ml:501:22>>*/ caml_call2
-              (cmp, x1$0, x3),
+               /*<<list.ml:501:22>>*/ (cmp, x1$0, x3),
            _i_ =
               /*<<list.ml:502:14>>*/ 0 === c$4
               ? [0, x1$0, [0, x2$0, 0]]
@@ -4585,7 +4897,7 @@
          var
           c$5 =
              /*<<list.ml:506:20>>*/  /*<<list.ml:506:20>>*/ caml_call2
-             (cmp, x1$0, x3);
+              /*<<list.ml:506:20>>*/ (cmp, x1$0, x3);
           /*<<list.ml:507:12>>*/ if(0 === c$5)
           var _j_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 < c$5)
@@ -4594,7 +4906,7 @@
           var
            c$6 =
               /*<<list.ml:510:22>>*/  /*<<list.ml:510:22>>*/ caml_call2
-              (cmp, x2$0, x3),
+               /*<<list.ml:510:22>>*/ (cmp, x2$0, x3),
            _k_ =
               /*<<list.ml:511:14>>*/ 0 === c$6
               ? [0, x2$0, [0, x1$0, 0]]
@@ -4631,7 +4943,7 @@
          h1 = l1[1],
          c =
             /*<<list.ml:425:16>>*/  /*<<list.ml:425:16>>*/ caml_call2
-            (cmp, h1, h2);
+             /*<<list.ml:425:16>>*/ (cmp, h1, h2);
          /*<<list.ml:426:8>>*/ if(0 === c){
          var accu$0 =  /*<<list.ml:426:38>>*/ [0, h1, accu];
          l1 = t1;
@@ -4696,7 +5008,7 @@
         a1 = l1$0[1],
         _d_ =
            /*<<list.ml:558:22>>*/  /*<<list.ml:558:22>>*/ caml_call2
-           (eq, a1, a2);
+            /*<<list.ml:558:22>>*/ (eq, a1, a2);
         /*<<list.ml:558:22>>*/ if(! _d_)  /*<<list.ml:558:22>>*/ return _d_;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -4718,7 +5030,7 @@
       a2 = l2$0[1],
       c =
          /*<<list.ml:566:12>>*/  /*<<list.ml:566:12>>*/ caml_call2
-         (cmp, a1, a2);
+          /*<<list.ml:566:12>>*/ (cmp, a1, a2);
       /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
      l1$0 = l1$1;
      l2$0 = l2$1;
@@ -4737,13 +5049,16 @@
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
     var
-     match =  /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
+     match =
+        /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1
+         /*<<list.ml:580:8>>*/ (seq, 0);
     if(! match)  /*<<list.ml:581:15>>*/ return 0;
     var
      seq$0 = match[2],
      x1 = match[1],
      match$0 =
-        /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
+        /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1
+         /*<<list.ml:583:18>>*/ (seq$0, 0);
     if(! match$0)  /*<<list.ml:584:19>>*/ return [0, x1, 0];
     var
      seq$1 = match$0[2],
@@ -4755,13 +5070,15 @@
      /*<<list.ml:580:2>>*/ for(;;){
      var
       match$1 =
-         /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
+         /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1
+          /*<<list.ml:580:8>>*/ (seq$2, 0);
      if(match$1){
       var
        seq$3 = match$1[2],
        x1$0 = match$1[1],
        match$2 =
-          /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1(seq$3, 0);
+          /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1
+           /*<<list.ml:583:18>>*/ (seq$3, 0);
       if(match$2){
        var
         seq$4 = match$2[2],
@@ -4878,11 +5195,11 @@
     /*<<int.ml:52:35>>*/ }
    function seeded_hash(seed, x){
      /*<<int.ml:56:25>>*/ return  /*<<int.ml:56:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<int.ml:56:25>>*/ (10, 100, seed, x);
     /*<<int.ml:56:56>>*/ }
    function hash(x){
      /*<<int.ml:57:13>>*/ return  /*<<int.ml:57:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<int.ml:57:13>>*/ (10, 100, 0, x);
     /*<<int.ml:57:41>>*/ }
    var
     Stdlib_Int =
@@ -4959,19 +5276,27 @@
     Stdlib_Char = global_data.Stdlib__Char;
    function make(n, c){
     var
-     s =  /*<<bytes.ml:42:10>>*/  /*<<bytes.ml:42:10>>*/ caml_create_bytes(n);
-     /*<<bytes.ml:43:2>>*/  /*<<bytes.ml:43:2>>*/ caml_fill_bytes(s, 0, n, c);
+     s =
+        /*<<bytes.ml:42:10>>*/  /*<<bytes.ml:42:10>>*/ caml_create_bytes
+         /*<<bytes.ml:42:10>>*/ (n);
+     /*<<bytes.ml:43:2>>*/  /*<<bytes.ml:43:2>>*/ caml_fill_bytes
+      /*<<bytes.ml:43:2>>*/ (s, 0, n, c);
      /*<<bytes.ml:43:2>>*/ return s;
     /*<<bytes.ml:44:3>>*/ }
    function init(n, f){
     var
-     s =  /*<<bytes.ml:47:10>>*/  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
+     s =
+        /*<<bytes.ml:47:10>>*/  /*<<bytes.ml:47:10>>*/ caml_create_bytes
+         /*<<bytes.ml:47:10>>*/ (n),
      _ap_ =  /*<<bytes.ml:48:2>>*/ n - 1 | 0,
      _ao_ =  /*<<bytes.ml:47:10>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
-      caml_bytes_unsafe_set(s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
+      caml_bytes_unsafe_set
+       (s,
+        i,
+         /*<<bytes.ml:49:19>>*/ caml_call1 /*<<bytes.ml:49:19>>*/ (f, i));
       var _aq_ =  /*<<bytes.ml:48:2>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
@@ -4981,7 +5306,8 @@
     /*<<bytes.ml:51:3>>*/ }
    var
     empty =
-       /*<<bytes.ml:53:12>>*/  /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
+       /*<<bytes.ml:53:12>>*/  /*<<bytes.ml:53:12>>*/ caml_create_bytes
+        /*<<bytes.ml:53:12>>*/ (0),
     cst_String_sub_Bytes_sub = "String.sub / Bytes.sub",
     cst_Bytes_extend = "Bytes.extend",
     cst_String_fill_Bytes_fill = "String.fill / Bytes.fill",
@@ -5002,14 +5328,15 @@
     var
      len = caml_ml_bytes_length(s),
      r =
-        /*<<bytes.ml:57:10>>*/  /*<<bytes.ml:57:10>>*/ caml_create_bytes(len);
+        /*<<bytes.ml:57:10>>*/  /*<<bytes.ml:57:10>>*/ caml_create_bytes
+         /*<<bytes.ml:57:10>>*/ (len);
      /*<<bytes.ml:58:2>>*/  /*<<bytes.ml:58:2>>*/ caml_blit_bytes
-     (s, 0, r, 0, len);
+      /*<<bytes.ml:58:2>>*/ (s, 0, r, 0, len);
      /*<<bytes.ml:58:2>>*/ return r;
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
      /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:35>>*/ caml_string_of_bytes
-            (copy(b));
+             /*<<bytes.ml:61:35>>*/ (copy(b));
     /*<<bytes.ml:61:43>>*/ }
    function of_string(s){
      /*<<bytes.ml:62:18>>*/ return copy(caml_bytes_of_string(s));
@@ -5019,17 +5346,18 @@
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs){
      var
       r =
-         /*<<bytes.ml:68:12>>*/  /*<<bytes.ml:68:12>>*/ caml_create_bytes(len);
+         /*<<bytes.ml:68:12>>*/  /*<<bytes.ml:68:12>>*/ caml_create_bytes
+          /*<<bytes.ml:68:12>>*/ (len);
       /*<<bytes.ml:69:4>>*/  /*<<bytes.ml:69:4>>*/ caml_blit_bytes
-      (s, ofs, r, 0, len);
+       /*<<bytes.ml:69:4>>*/ (s, ofs, r, 0, len);
       /*<<bytes.ml:69:4>>*/ return r;
     }
      /*<<bytes.ml:66:7>>*/ return  /*<<bytes.ml:66:7>>*/ caml_call1
-            (Stdlib[1], cst_String_sub_Bytes_sub);
+             /*<<bytes.ml:66:7>>*/ (Stdlib[1], cst_String_sub_Bytes_sub);
     /*<<bytes.ml:71:5>>*/ }
    function sub_string(b, ofs, len){
      /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:44>>*/ caml_string_of_bytes
-            (sub(b, ofs, len));
+             /*<<bytes.ml:73:44>>*/ (sub(b, ofs, len));
     /*<<bytes.ml:73:59>>*/ }
    function symbol(a, b){
     var c = a + b | 0, _an_ = b < 0 ? 1 : 0, match = c < 0 ? 1 : 0;
@@ -5039,7 +5367,7 @@
       /*<<bytes.ml:81:9>>*/ return c;
     }
      /*<<bytes.ml:80:27>>*/ return  /*<<bytes.ml:80:27>>*/ caml_call1
-            (Stdlib[1], cst_Bytes_extend);
+             /*<<bytes.ml:80:27>>*/ (Stdlib[1], cst_Bytes_extend);
     /*<<bytes.ml:81:10>>*/ }
    function extend(s, left, right){
     var
@@ -5047,7 +5375,8 @@
         /*<<bytes.ml:84:12>>*/ symbol
         (symbol(caml_ml_bytes_length(s), left), right),
      r =
-        /*<<bytes.ml:85:10>>*/  /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
+        /*<<bytes.ml:85:10>>*/  /*<<bytes.ml:85:10>>*/ caml_create_bytes
+         /*<<bytes.ml:85:10>>*/ (len);
     if(0 <= left)
      var dstoff = left, srcoff = 0;
     else
@@ -5055,21 +5384,21 @@
     var
      cpylen =
         /*<<bytes.ml:87:15>>*/  /*<<bytes.ml:87:15>>*/ caml_call2
-        (Stdlib_Int[10],
+         /*<<bytes.ml:87:15>>*/ (Stdlib_Int[10],
          caml_ml_bytes_length(s) - srcoff | 0,
          len - dstoff | 0);
     if(0 < cpylen)
       /*<<bytes.ml:88:21>>*/  /*<<bytes.ml:88:21>>*/ caml_blit_bytes
-      (s, srcoff, r, dstoff, cpylen);
+       /*<<bytes.ml:88:21>>*/ (s, srcoff, r, dstoff, cpylen);
      /*<<bytes.ml:88:21>>*/ return r;
     /*<<bytes.ml:89:3>>*/ }
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<bytes.ml:94:7>>*/ return  /*<<bytes.ml:94:7>>*/ caml_fill_bytes
-             (s, ofs, len, c);
+              /*<<bytes.ml:94:7>>*/ (s, ofs, len, c);
      /*<<bytes.ml:93:7>>*/ return  /*<<bytes.ml:93:7>>*/ caml_call1
-            (Stdlib[1], cst_String_fill_Bytes_fill);
+             /*<<bytes.ml:93:7>>*/ (Stdlib[1], cst_String_fill_Bytes_fill);
     /*<<bytes.ml:94:30>>*/ }
    function blit(s1, ofs1, s2, ofs2, len){
      /*<<bytes.ml:97:2>>*/ if
@@ -5080,9 +5409,9 @@
         (caml_ml_bytes_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
       /*<<bytes.ml:100:7>>*/ return  /*<<bytes.ml:100:7>>*/ caml_blit_bytes
-             (s1, ofs1, s2, ofs2, len);
+              /*<<bytes.ml:100:7>>*/ (s1, ofs1, s2, ofs2, len);
      /*<<bytes.ml:99:7>>*/ return  /*<<bytes.ml:99:7>>*/ caml_call1
-            (Stdlib[1], cst_Bytes_blit);
+             /*<<bytes.ml:99:7>>*/ (Stdlib[1], cst_Bytes_blit);
     /*<<bytes.ml:100:38>>*/ }
    function blit_string(s1, ofs1, s2, ofs2, len){
      /*<<bytes.ml:103:2>>*/ if
@@ -5093,9 +5422,10 @@
         (runtime.caml_ml_string_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
       /*<<bytes.ml:106:7>>*/ return  /*<<bytes.ml:106:7>>*/ runtime.caml_blit_string
-             (s1, ofs1, s2, ofs2, len);
+              /*<<bytes.ml:106:7>>*/ (s1, ofs1, s2, ofs2, len);
      /*<<bytes.ml:105:7>>*/ return  /*<<bytes.ml:105:7>>*/ caml_call1
-            (Stdlib[1], cst_String_blit_Bytes_blit_str);
+             /*<<bytes.ml:105:7>>*/ (Stdlib[1],
+             cst_String_blit_Bytes_blit_str);
     /*<<bytes.ml:106:45>>*/ }
    function iter(f, a){
     var
@@ -5105,7 +5435,7 @@
      var i = _ak_;
      for(;;){
        /*<<bytes.ml:110:31>>*/  /*<<bytes.ml:110:31>>*/ caml_call1
-       (f, caml_bytes_unsafe_get(a, i));
+        /*<<bytes.ml:110:31>>*/ (f, caml_bytes_unsafe_get(a, i));
       var _am_ =  /*<<bytes.ml:110:31>>*/ i + 1 | 0;
       if(_al_ === i) break;
       i = _am_;
@@ -5121,7 +5451,7 @@
      var i = _ah_;
      for(;;){
        /*<<bytes.ml:114:31>>*/  /*<<bytes.ml:114:31>>*/ caml_call2
-       (f, i, caml_bytes_unsafe_get(a, i));
+        /*<<bytes.ml:114:31>>*/ (f, i, caml_bytes_unsafe_get(a, i));
       var _aj_ =  /*<<bytes.ml:114:31>>*/ i + 1 | 0;
       if(_ai_ === i) break;
       i = _aj_;
@@ -5147,7 +5477,8 @@
         acc$0 =
           acc <= x
            ? x
-           :  /*<<bytes.ml:116:48>>*/ caml_call1(Stdlib[1], cst_Bytes_concat);
+           :  /*<<bytes.ml:116:48>>*/ caml_call1
+              /*<<bytes.ml:116:48>>*/ (Stdlib[1], cst_Bytes_concat);
        acc = acc$0;
        param = tl;
       }
@@ -5159,7 +5490,7 @@
     var
      dst =
         /*<<bytes.ml:136:12>>*/  /*<<bytes.ml:136:12>>*/ caml_create_bytes
-        (_ag_),
+         /*<<bytes.ml:136:12>>*/ (_ag_),
      pos = pos$1,
      param$0 = l;
     for(;;){
@@ -5167,14 +5498,23 @@
      var hd$0 = param$0[1];
      if(! param$0[2]){
        /*<<bytes.ml:126:4>>*/  /*<<bytes.ml:126:4>>*/ caml_blit_bytes
-       (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
+        /*<<bytes.ml:126:4>>*/ (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
        /*<<bytes.ml:126:4>>*/ return dst;
      }
      var tl$0 = param$0[2];
       /*<<bytes.ml:128:4>>*/  /*<<bytes.ml:128:4>>*/ caml_blit_bytes
-      (hd$0, 0, dst, pos,  /*<<bytes.ml:128:4>>*/ caml_ml_bytes_length(hd$0));
+       /*<<bytes.ml:128:4>>*/ (hd$0,
+       0,
+       dst,
+       pos,
+        /*<<bytes.ml:128:4>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:128:4>>*/ (hd$0));
       /*<<bytes.ml:129:4>>*/  /*<<bytes.ml:129:4>>*/ caml_blit_bytes
-      (sep, 0, dst, pos + caml_ml_bytes_length(hd$0) | 0, seplen);
+       /*<<bytes.ml:129:4>>*/ (sep,
+       0,
+       dst,
+       pos + caml_ml_bytes_length(hd$0) | 0,
+       seplen);
      var pos$0 = (pos + caml_ml_bytes_length(hd$0) | 0) + seplen | 0;
      pos = pos$0;
      param$0 = tl$0;
@@ -5185,14 +5525,14 @@
      l1 = caml_ml_bytes_length(s1),
      l2 =
         /*<<bytes.ml:141:2>>*/  /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length
-        (s2),
+         /*<<bytes.ml:141:2>>*/ (s2),
      r =
         /*<<bytes.ml:142:10>>*/  /*<<bytes.ml:142:10>>*/ caml_create_bytes
-        (l1 + l2 | 0);
+         /*<<bytes.ml:142:10>>*/ (l1 + l2 | 0);
      /*<<bytes.ml:143:2>>*/  /*<<bytes.ml:143:2>>*/ caml_blit_bytes
-     (s1, 0, r, 0, l1);
+      /*<<bytes.ml:143:2>>*/ (s1, 0, r, 0, l1);
      /*<<bytes.ml:144:2>>*/  /*<<bytes.ml:144:2>>*/ caml_blit_bytes
-     (s2, 0, r, l1, l2);
+      /*<<bytes.ml:144:2>>*/ (s2, 0, r, l1, l2);
      /*<<bytes.ml:144:2>>*/ return r;
     /*<<bytes.ml:145:3>>*/ }
    function is_space(param){
@@ -5262,7 +5602,7 @@
     var
      s$0 =
         /*<<bytes.ml:194:13>>*/  /*<<bytes.ml:194:13>>*/ caml_create_bytes
-        (n[1]);
+         /*<<bytes.ml:194:13>>*/ (n[1]);
     n[1] = 0;
     var
      _aa_ = caml_ml_bytes_length(s) - 1 | 0,
@@ -5342,7 +5682,8 @@
      /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
     var
      r =
-        /*<<bytes.ml:233:12>>*/  /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
+        /*<<bytes.ml:233:12>>*/  /*<<bytes.ml:233:12>>*/ caml_create_bytes
+         /*<<bytes.ml:233:12>>*/ (l),
      _X_ =  /*<<bytes.ml:234:4>>*/ l - 1 | 0,
      _W_ =  /*<<bytes.ml:233:12>>*/ 0;
     if(_X_ >= 0){
@@ -5351,7 +5692,8 @@
       caml_bytes_unsafe_set
        (r,
         i,
-         /*<<bytes.ml:234:41>>*/ caml_call1(f, caml_bytes_unsafe_get(s, i)));
+         /*<<bytes.ml:234:41>>*/ caml_call1
+          /*<<bytes.ml:234:41>>*/ (f, caml_bytes_unsafe_get(s, i)));
       var _Y_ =  /*<<bytes.ml:234:4>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
@@ -5364,7 +5706,8 @@
      /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
     var
      r =
-        /*<<bytes.ml:241:12>>*/  /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
+        /*<<bytes.ml:241:12>>*/  /*<<bytes.ml:241:12>>*/ caml_create_bytes
+         /*<<bytes.ml:241:12>>*/ (l),
      _U_ =  /*<<bytes.ml:242:4>>*/ l - 1 | 0,
      _T_ =  /*<<bytes.ml:241:12>>*/ 0;
     if(_U_ >= 0){
@@ -5373,7 +5716,8 @@
       caml_bytes_unsafe_set
        (r,
         i,
-         /*<<bytes.ml:242:41>>*/ caml_call2(f, i, caml_bytes_unsafe_get(s, i)));
+         /*<<bytes.ml:242:41>>*/ caml_call2
+          /*<<bytes.ml:242:41>>*/ (f, i, caml_bytes_unsafe_get(s, i)));
       var _V_ =  /*<<bytes.ml:242:4>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
@@ -5391,7 +5735,7 @@
      for(;;){
       r[1] =
         /*<<bytes.ml:249:9>>*/ caml_call2
-        (f, r[1], caml_bytes_unsafe_get(a, i));
+         /*<<bytes.ml:249:9>>*/ (f, r[1], caml_bytes_unsafe_get(a, i));
       var _S_ =  /*<<bytes.ml:248:2>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
@@ -5403,7 +5747,8 @@
     var
      r =  /*<<bytes.ml:254:10>>*/ [0, x],
      _O_ =
-        /*<<bytes.ml:255:2>>*/  /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length(a)
+        /*<<bytes.ml:255:2>>*/  /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:255:2>>*/ (a)
        - 1
        | 0;
     if(_O_ >= 0){
@@ -5411,7 +5756,7 @@
      for(;;){
       r[1] =
         /*<<bytes.ml:256:9>>*/ caml_call2
-        (f, caml_bytes_unsafe_get(a, i), r[1]);
+         /*<<bytes.ml:256:9>>*/ (f, caml_bytes_unsafe_get(a, i), r[1]);
       var _P_ =  /*<<bytes.ml:255:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _P_;
@@ -5424,7 +5769,8 @@
      /*<<bytes.ml:263:4>>*/ for(;;){
      if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
       /*<<bytes.ml:264:12>>*/ if
-      ( /*<<bytes.ml:264:12>>*/ caml_call1(p, caml_bytes_unsafe_get(s, i)))
+      ( /*<<bytes.ml:264:12>>*/ caml_call1
+         /*<<bytes.ml:264:12>>*/ (p, caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:264:36>>*/ return 1;
      var i$0 =  /*<<bytes.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
@@ -5435,7 +5781,9 @@
      /*<<bytes.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
       /*<<bytes.ml:272:12>>*/ if
-      (!  /*<<bytes.ml:272:12>>*/ caml_call1(p, caml_bytes_unsafe_get(s, i)))
+      (!
+        /*<<bytes.ml:272:12>>*/ caml_call1
+         /*<<bytes.ml:272:12>>*/ (p, caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:273:9>>*/ return 0;
      var i$0 =  /*<<bytes.ml:272:36>>*/ i + 1 | 0;
      i = i$0;
@@ -5454,7 +5802,8 @@
     caml_bytes_unsafe_set
      (r,
       0,
-       /*<<bytes.ml:282:19>>*/ caml_call1(f, caml_bytes_unsafe_get(s, 0)));
+       /*<<bytes.ml:282:19>>*/ caml_call1
+        /*<<bytes.ml:282:19>>*/ (f, caml_bytes_unsafe_get(s, 0)));
      /*<<bytes.ml:283:4>>*/ return r;
     /*<<bytes.ml:284:5>>*/ }
    function capitalize_ascii(s){
@@ -5501,7 +5850,7 @@
      /*<<bytes.ml:312:2>>*/ for(;;){
      if(lim <= i$0)
        /*<<bytes.ml:312:19>>*/ throw  /*<<bytes.ml:312:19>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<bytes.ml:312:19>>*/ (Stdlib[8], 1);
      if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:313:29>>*/ return i$0;
      var i$1 = i$0 + 1 | 0;
@@ -5531,21 +5880,23 @@
      /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c);
      /*<<bytes.ml:329:25>>*/ return  /*<<bytes.ml:329:25>>*/ caml_call1
-            (Stdlib[1], cst_String_index_from_Bytes_in);
+             /*<<bytes.ml:329:25>>*/ (Stdlib[1],
+             cst_String_index_from_Bytes_in);
     /*<<bytes.ml:330:19>>*/ }
    function index_from_opt(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c);
      /*<<bytes.ml:336:4>>*/ return  /*<<bytes.ml:336:4>>*/ caml_call1
-            (Stdlib[1], cst_String_index_from_opt_Byte);
+             /*<<bytes.ml:336:4>>*/ (Stdlib[1],
+             cst_String_index_from_opt_Byte);
     /*<<bytes.ml:338:25>>*/ }
    function rindex_rec(s, i, c){
     var i$0 = i;
      /*<<bytes.ml:342:2>>*/ for(;;){
      if(0 > i$0)
        /*<<bytes.ml:342:16>>*/ throw  /*<<bytes.ml:342:16>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<bytes.ml:342:16>>*/ (Stdlib[8], 1);
      if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:343:29>>*/ return i$0;
      var i$1 = i$0 - 1 | 0;
@@ -5560,7 +5911,8 @@
      /*<<bytes.ml:350:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:353:4>>*/ return rindex_rec(s, i, c);
      /*<<bytes.ml:351:4>>*/ return  /*<<bytes.ml:351:4>>*/ caml_call1
-            (Stdlib[1], cst_String_rindex_from_Bytes_r);
+             /*<<bytes.ml:351:4>>*/ (Stdlib[1],
+             cst_String_rindex_from_Bytes_r);
     /*<<bytes.ml:353:20>>*/ }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
@@ -5580,7 +5932,8 @@
      /*<<bytes.ml:365:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:368:4>>*/ return rindex_rec_opt(s, i, c);
      /*<<bytes.ml:366:4>>*/ return  /*<<bytes.ml:366:4>>*/ caml_call1
-            (Stdlib[1], cst_String_rindex_from_opt_Byt);
+             /*<<bytes.ml:366:4>>*/ (Stdlib[1],
+             cst_String_rindex_from_opt_Byt);
     /*<<bytes.ml:368:24>>*/ }
    function contains_from(s, i, c){
     var l = caml_ml_bytes_length(s);
@@ -5596,7 +5949,8 @@
       throw caml_maybe_attach_backtrace(_J_, 0);
      }
      /*<<bytes.ml:375:4>>*/ return  /*<<bytes.ml:375:4>>*/ caml_call1
-            (Stdlib[1], cst_String_contains_from_Bytes);
+             /*<<bytes.ml:375:4>>*/ (Stdlib[1],
+             cst_String_contains_from_Bytes);
     /*<<bytes.ml:377:64>>*/ }
    function contains(s, c){
      /*<<bytes.ml:381:19>>*/ return contains_from(s, 0, c);
@@ -5614,7 +5968,8 @@
       throw caml_maybe_attach_backtrace(_G_, 0);
      }
      /*<<bytes.ml:386:4>>*/ return  /*<<bytes.ml:386:4>>*/ caml_call1
-            (Stdlib[1], cst_String_rcontains_from_Byte);
+             /*<<bytes.ml:386:4>>*/ (Stdlib[1],
+             cst_String_rcontains_from_Byte);
     /*<<bytes.ml:388:63>>*/ }
    var
     compare = runtime.caml_bytes_compare,
@@ -5624,9 +5979,11 @@
      r =  /*<<bytes.ml:398:10>>*/ [0, 0],
      j =
         /*<<bytes.ml:399:10>>*/ [0,
-         /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length(s)],
+         /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length
+          /*<<bytes.ml:399:2>>*/ (s)],
      _C_ =
-        /*<<bytes.ml:400:2>>*/  /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length(s)
+        /*<<bytes.ml:400:2>>*/  /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:400:2>>*/ (s)
        - 1
        | 0;
     if(_C_ >= 0){
@@ -5651,7 +6008,8 @@
        /*<<bytes.ml:412:25>>*/ return 0;
      var
       x =
-         /*<<bytes.ml:414:14>>*/  /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i),
+         /*<<bytes.ml:414:14>>*/  /*<<bytes.ml:414:14>>*/ caml_bytes_get
+          /*<<bytes.ml:414:14>>*/ (s, i),
       _A_ =  /*<<bytes.ml:414:14>>*/ i + 1 | 0;
       /*<<bytes.ml:415:6>>*/ return [0,
              x,
@@ -5667,7 +6025,8 @@
        /*<<bytes.ml:421:25>>*/ return 0;
      var
       x =
-         /*<<bytes.ml:423:14>>*/  /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i),
+         /*<<bytes.ml:423:14>>*/  /*<<bytes.ml:423:14>>*/ caml_bytes_get
+          /*<<bytes.ml:423:14>>*/ (s, i),
       _w_ =  /*<<bytes.ml:423:14>>*/ i + 1 | 0;
       /*<<bytes.ml:424:6>>*/ return [0,
              [0, i, x],
@@ -5682,24 +6041,24 @@
      n =  /*<<bytes.ml:429:10>>*/ [0, 0],
      buf =  /*<<bytes.ml:430:12>>*/ [0, make(256, 0)];
      /*<<bytes.ml:439:2>>*/  /*<<bytes.ml:439:2>>*/ caml_call2
-     (Stdlib_Seq[4],
+      /*<<bytes.ml:439:2>>*/ (Stdlib_Seq[4],
       function(c){
         /*<<bytes.ml:441:7>>*/ if(n[1] === caml_ml_bytes_length(buf[1])){
         var
          new_len =
             /*<<bytes.ml:433:18>>*/  /*<<bytes.ml:433:18>>*/ caml_call2
-            (Stdlib_Int[10],
+             /*<<bytes.ml:433:18>>*/ (Stdlib_Int[10],
              2 * caml_ml_bytes_length(buf[1]) | 0,
              Stdlib_Sys[12]);
         if(caml_ml_bytes_length(buf[1]) === new_len)
           /*<<bytes.ml:434:34>>*/  /*<<bytes.ml:434:34>>*/ caml_call1
-          (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
+           /*<<bytes.ml:434:34>>*/ (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
         var new_buf =  /*<<bytes.ml:435:18>>*/ make(new_len, 0);
          /*<<bytes.ml:436:4>>*/ blit(buf[1], 0, new_buf, 0, n[1]);
         buf[1] = new_buf;
        }
         /*<<bytes.ml:442:7>>*/  /*<<bytes.ml:442:7>>*/ caml_bytes_set
-        (buf[1], n[1], c);
+         /*<<bytes.ml:442:7>>*/ (buf[1], n[1], c);
        n[1]++;
        return 0;
        /*<<bytes.ml:443:13>>*/ },
@@ -5709,38 +6068,52 @@
    function unsafe_get_uint16_le(b, i){
      /*<<bytes.ml:470:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:471:14>>*/ caml_bswap16
-              ( /*<<bytes.ml:471:14>>*/ caml_bytes_get16(b, i))
-            :  /*<<bytes.ml:472:7>>*/ caml_bytes_get16(b, i);
+               /*<<bytes.ml:471:14>>*/ ( /*<<bytes.ml:471:14>>*/ caml_bytes_get16
+                 /*<<bytes.ml:471:14>>*/ (b, i))
+            :  /*<<bytes.ml:472:7>>*/ caml_bytes_get16
+               /*<<bytes.ml:472:7>>*/ (b, i);
     /*<<bytes.ml:472:31>>*/ }
    function unsafe_get_uint16_be(b, i){
      /*<<bytes.ml:475:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:476:7>>*/ caml_bytes_get16(b, i)
+            ?  /*<<bytes.ml:476:7>>*/ caml_bytes_get16
+               /*<<bytes.ml:476:7>>*/ (b, i)
             :  /*<<bytes.ml:477:14>>*/ caml_bswap16
-              ( /*<<bytes.ml:477:14>>*/ caml_bytes_get16(b, i));
+               /*<<bytes.ml:477:14>>*/ ( /*<<bytes.ml:477:14>>*/ caml_bytes_get16
+                 /*<<bytes.ml:477:14>>*/ (b, i));
     /*<<bytes.ml:477:40>>*/ }
    function get_int8(b, i){
     var
      _s_ =  /*<<bytes.ml:480:2>>*/ Stdlib_Sys[10] - 8 | 0,
      _t_ = Stdlib_Sys[10] - 8 | 0;
-    return  /*<<bytes.ml:480:3>>*/ caml_bytes_get(b, i) << _t_ >> _s_;
+    return  /*<<bytes.ml:480:3>>*/ caml_bytes_get
+             /*<<bytes.ml:480:3>>*/ (b, i)
+           << _t_
+           >> _s_;
     /*<<bytes.ml:480:65>>*/ }
    function get_uint16_le(b, i){
      /*<<bytes.ml:483:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:483:32>>*/ caml_bswap16
-              ( /*<<bytes.ml:483:32>>*/ caml_bytes_get16(b, i))
-            :  /*<<bytes.ml:484:7>>*/ caml_bytes_get16(b, i);
+               /*<<bytes.ml:483:32>>*/ ( /*<<bytes.ml:483:32>>*/ caml_bytes_get16
+                 /*<<bytes.ml:483:32>>*/ (b, i))
+            :  /*<<bytes.ml:484:7>>*/ caml_bytes_get16
+               /*<<bytes.ml:484:7>>*/ (b, i);
     /*<<bytes.ml:484:24>>*/ }
    function get_uint16_be(b, i){
      /*<<bytes.ml:487:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:488:7>>*/ caml_bytes_get16(b, i)
+            ?  /*<<bytes.ml:488:7>>*/ caml_bytes_get16
+               /*<<bytes.ml:488:7>>*/ (b, i)
             :  /*<<bytes.ml:487:36>>*/ caml_bswap16
-              ( /*<<bytes.ml:487:36>>*/ caml_bytes_get16(b, i));
+               /*<<bytes.ml:487:36>>*/ ( /*<<bytes.ml:487:36>>*/ caml_bytes_get16
+                 /*<<bytes.ml:487:36>>*/ (b, i));
     /*<<bytes.ml:488:24>>*/ }
    function get_int16_ne(b, i){
     var
      _q_ =  /*<<bytes.ml:491:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _r_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16(b, i) << _r_ >> _q_;
+    return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16
+             /*<<bytes.ml:491:3>>*/ (b, i)
+           << _r_
+           >> _q_;
     /*<<bytes.ml:491:71>>*/ }
    function get_int16_le(b, i){
     var
@@ -5757,76 +6130,106 @@
    function get_int32_le(b, i){
      /*<<bytes.ml:500:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:500:25>>*/ caml_int32_bswap
-              ( /*<<bytes.ml:500:32>>*/ caml_bytes_get32(b, i))
-            :  /*<<bytes.ml:501:7>>*/ caml_bytes_get32(b, i);
+               /*<<bytes.ml:500:25>>*/ ( /*<<bytes.ml:500:32>>*/ caml_bytes_get32
+                 /*<<bytes.ml:500:32>>*/ (b, i))
+            :  /*<<bytes.ml:501:7>>*/ caml_bytes_get32
+               /*<<bytes.ml:501:7>>*/ (b, i);
     /*<<bytes.ml:501:23>>*/ }
    function get_int32_be(b, i){
      /*<<bytes.ml:504:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:505:7>>*/ caml_bytes_get32(b, i)
+            ?  /*<<bytes.ml:505:7>>*/ caml_bytes_get32
+               /*<<bytes.ml:505:7>>*/ (b, i)
             :  /*<<bytes.ml:504:29>>*/ caml_int32_bswap
-              ( /*<<bytes.ml:504:36>>*/ caml_bytes_get32(b, i));
+               /*<<bytes.ml:504:29>>*/ ( /*<<bytes.ml:504:36>>*/ caml_bytes_get32
+                 /*<<bytes.ml:504:36>>*/ (b, i));
     /*<<bytes.ml:505:23>>*/ }
    function get_int64_le(b, i){
      /*<<bytes.ml:508:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:508:25>>*/ caml_int64_bswap
-              ( /*<<bytes.ml:508:32>>*/ caml_bytes_get64(b, i))
-            :  /*<<bytes.ml:509:7>>*/ caml_bytes_get64(b, i);
+               /*<<bytes.ml:508:25>>*/ ( /*<<bytes.ml:508:32>>*/ caml_bytes_get64
+                 /*<<bytes.ml:508:32>>*/ (b, i))
+            :  /*<<bytes.ml:509:7>>*/ caml_bytes_get64
+               /*<<bytes.ml:509:7>>*/ (b, i);
     /*<<bytes.ml:509:23>>*/ }
    function get_int64_be(b, i){
      /*<<bytes.ml:512:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:513:7>>*/ caml_bytes_get64(b, i)
+            ?  /*<<bytes.ml:513:7>>*/ caml_bytes_get64
+               /*<<bytes.ml:513:7>>*/ (b, i)
             :  /*<<bytes.ml:512:29>>*/ caml_int64_bswap
-              ( /*<<bytes.ml:512:36>>*/ caml_bytes_get64(b, i));
+               /*<<bytes.ml:512:29>>*/ ( /*<<bytes.ml:512:36>>*/ caml_bytes_get64
+                 /*<<bytes.ml:512:36>>*/ (b, i));
     /*<<bytes.ml:513:23>>*/ }
    function unsafe_set_uint16_le(b, i, x){
      /*<<bytes.ml:516:2>>*/ if(Stdlib_Sys[11]){
       /*<<bytes.ml:517:7>>*/  /*<<bytes.ml:517:7>>*/ caml_bytes_set16
-      (b, i, caml_bswap16(x));
+       /*<<bytes.ml:517:7>>*/ (b, i, caml_bswap16(x));
       /*<<bytes.ml:517:7>>*/ return;
     }
-     /*<<bytes.ml:518:7>>*/  /*<<bytes.ml:518:7>>*/ caml_bytes_set16(b, i, x);
+     /*<<bytes.ml:518:7>>*/  /*<<bytes.ml:518:7>>*/ caml_bytes_set16
+      /*<<bytes.ml:518:7>>*/ (b, i, x);
     /*<<bytes.ml:518:33>>*/ }
    function unsafe_set_uint16_be(b, i, x){
      /*<<bytes.ml:521:2>>*/ if(Stdlib_Sys[11]){
-      /*<<bytes.ml:522:7>>*/  /*<<bytes.ml:522:7>>*/ caml_bytes_set16(b, i, x);
+      /*<<bytes.ml:522:7>>*/  /*<<bytes.ml:522:7>>*/ caml_bytes_set16
+       /*<<bytes.ml:522:7>>*/ (b, i, x);
       /*<<bytes.ml:522:7>>*/ return;
     }
      /*<<bytes.ml:523:2>>*/  /*<<bytes.ml:523:2>>*/ caml_bytes_set16
-     (b, i, caml_bswap16(x));
+      /*<<bytes.ml:523:2>>*/ (b, i, caml_bswap16(x));
     /*<<bytes.ml:523:37>>*/ }
    function set_int16_le(b, i, x){
      /*<<bytes.ml:526:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:526:25>>*/ caml_bytes_set16(b, i, caml_bswap16(x))
-            :  /*<<bytes.ml:527:7>>*/ caml_bytes_set16(b, i, x);
+            ?  /*<<bytes.ml:526:25>>*/ caml_bytes_set16
+               /*<<bytes.ml:526:25>>*/ (b, i, caml_bswap16(x))
+            :  /*<<bytes.ml:527:7>>*/ caml_bytes_set16
+               /*<<bytes.ml:527:7>>*/ (b, i, x);
     /*<<bytes.ml:527:25>>*/ }
    function set_int16_be(b, i, x){
      /*<<bytes.ml:530:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:531:7>>*/ caml_bytes_set16(b, i, x)
-            :  /*<<bytes.ml:530:29>>*/ caml_bytes_set16(b, i, caml_bswap16(x));
+            ?  /*<<bytes.ml:531:7>>*/ caml_bytes_set16
+               /*<<bytes.ml:531:7>>*/ (b, i, x)
+            :  /*<<bytes.ml:530:29>>*/ caml_bytes_set16
+               /*<<bytes.ml:530:29>>*/ (b, i, caml_bswap16(x));
     /*<<bytes.ml:531:25>>*/ }
    function set_int32_le(b, i, x){
      /*<<bytes.ml:534:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:534:25>>*/ caml_bytes_set32
-              (b, i,  /*<<bytes.ml:534:42>>*/ caml_int32_bswap(x))
-            :  /*<<bytes.ml:535:7>>*/ caml_bytes_set32(b, i, x);
+               /*<<bytes.ml:534:25>>*/ (b,
+               i,
+                /*<<bytes.ml:534:42>>*/ caml_int32_bswap
+                 /*<<bytes.ml:534:42>>*/ (x))
+            :  /*<<bytes.ml:535:7>>*/ caml_bytes_set32
+               /*<<bytes.ml:535:7>>*/ (b, i, x);
     /*<<bytes.ml:535:25>>*/ }
    function set_int32_be(b, i, x){
      /*<<bytes.ml:538:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:539:7>>*/ caml_bytes_set32(b, i, x)
+            ?  /*<<bytes.ml:539:7>>*/ caml_bytes_set32
+               /*<<bytes.ml:539:7>>*/ (b, i, x)
             :  /*<<bytes.ml:538:29>>*/ caml_bytes_set32
-              (b, i,  /*<<bytes.ml:538:46>>*/ caml_int32_bswap(x));
+               /*<<bytes.ml:538:29>>*/ (b,
+               i,
+                /*<<bytes.ml:538:46>>*/ caml_int32_bswap
+                 /*<<bytes.ml:538:46>>*/ (x));
     /*<<bytes.ml:539:25>>*/ }
    function set_int64_le(b, i, x){
      /*<<bytes.ml:542:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:542:25>>*/ caml_bytes_set64
-              (b, i,  /*<<bytes.ml:542:42>>*/ caml_int64_bswap(x))
-            :  /*<<bytes.ml:543:7>>*/ caml_bytes_set64(b, i, x);
+               /*<<bytes.ml:542:25>>*/ (b,
+               i,
+                /*<<bytes.ml:542:42>>*/ caml_int64_bswap
+                 /*<<bytes.ml:542:42>>*/ (x))
+            :  /*<<bytes.ml:543:7>>*/ caml_bytes_set64
+               /*<<bytes.ml:543:7>>*/ (b, i, x);
     /*<<bytes.ml:543:25>>*/ }
    function set_int64_be(b, i, x){
      /*<<bytes.ml:546:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:547:7>>*/ caml_bytes_set64(b, i, x)
+            ?  /*<<bytes.ml:547:7>>*/ caml_bytes_set64
+               /*<<bytes.ml:547:7>>*/ (b, i, x)
             :  /*<<bytes.ml:546:29>>*/ caml_bytes_set64
-              (b, i,  /*<<bytes.ml:546:46>>*/ caml_int64_bswap(x));
+               /*<<bytes.ml:546:29>>*/ (b,
+               i,
+                /*<<bytes.ml:546:46>>*/ caml_int64_bswap
+                 /*<<bytes.ml:546:46>>*/ (x));
     /*<<bytes.ml:547:25>>*/ }
    var
     set_uint8 = caml_bytes_set,
@@ -5846,9 +6249,9 @@
     var
      _l_ =
         /*<<bytes.ml:557:46>>*/  /*<<bytes.ml:557:46>>*/ caml_call1
-        (Stdlib_Uchar[9], u);
+         /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[9], u);
      /*<<bytes.ml:557:46>>*/ return  /*<<bytes.ml:557:46>>*/ caml_call2
-            (Stdlib_Uchar[21], n, _l_);
+             /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[21], n, _l_);
     /*<<bytes.ml:557:69>>*/ }
    function not_in_x80_to_xBF(b){
      /*<<bytes.ml:575:35>>*/ return 2 !== (b >>> 6 | 0) ? 1 : 0;
@@ -5877,9 +6280,11 @@
    function get_utf_8_uchar(b, i){
     var
      b0 =
-        /*<<bytes.ml:597:11>>*/  /*<<bytes.ml:597:11>>*/ caml_bytes_get(b, i),
+        /*<<bytes.ml:597:11>>*/  /*<<bytes.ml:597:11>>*/ caml_bytes_get
+         /*<<bytes.ml:597:11>>*/ (b, i),
      max =
-        /*<<bytes.ml:599:2>>*/  /*<<bytes.ml:599:2>>*/ caml_ml_bytes_length(b)
+        /*<<bytes.ml:599:2>>*/  /*<<bytes.ml:599:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:599:2>>*/ (b)
        - 1
        | 0;
     a:
@@ -5892,68 +6297,71 @@
           var i$0 =  /*<<bytes.ml:619:6>>*/ i + 1 | 0;
           if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return  /*<<bytes.ml:619:39>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:619:39>>*/ (dec_invalid, 1);
           var b1$4 = caml_bytes_unsafe_get(b, i$0);
            /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return  /*<<bytes.ml:620:55>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:620:55>>*/ (dec_invalid, 1);
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
           if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return  /*<<bytes.ml:621:39>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:621:39>>*/ (dec_invalid, 2);
           var b2$3 = caml_bytes_unsafe_get(b, i$1);
            /*<<bytes.ml:622:29>>*/ return not_in_x80_to_xBF(b2$3)
-                  ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
+                  ?  /*<<bytes.ml:622:55>>*/ caml_call1
+                     /*<<bytes.ml:622:55>>*/ (dec_invalid, 2)
                   : dec_ret(3, utf_8_uchar_3(b0, b1$4, b2$3));
          case 3:
           var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
           if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return  /*<<bytes.ml:625:39>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:625:39>>*/ (dec_invalid, 1);
           var b1$2 = caml_bytes_unsafe_get(b, i$4);
            /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return  /*<<bytes.ml:626:55>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:626:55>>*/ (dec_invalid, 1);
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
           if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return  /*<<bytes.ml:627:39>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:627:39>>*/ (dec_invalid, 2);
           var b2$1 = caml_bytes_unsafe_get(b, i$5);
            /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return  /*<<bytes.ml:628:55>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:628:55>>*/ (dec_invalid, 2);
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
           if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return  /*<<bytes.ml:629:39>>*/ caml_call1
-                   (dec_invalid, 3);
+                    /*<<bytes.ml:629:39>>*/ (dec_invalid, 3);
           var b3$1 = caml_bytes_unsafe_get(b, i$6);
            /*<<bytes.ml:630:29>>*/ return not_in_x80_to_xBF(b3$1)
-                  ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
+                  ?  /*<<bytes.ml:630:55>>*/ caml_call1
+                     /*<<bytes.ml:630:55>>*/ (dec_invalid, 3)
                   : dec_ret(4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1));
          case 7:
           var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
           if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return  /*<<bytes.ml:641:39>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:641:39>>*/ (dec_invalid, 1);
           var b1$0 = caml_bytes_unsafe_get(b, i$10);
            /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return  /*<<bytes.ml:642:55>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:642:55>>*/ (dec_invalid, 1);
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
           if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return  /*<<bytes.ml:643:39>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:643:39>>*/ (dec_invalid, 2);
           var b2 = caml_bytes_unsafe_get(b, i$11);
            /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return  /*<<bytes.ml:644:55>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:644:55>>*/ (dec_invalid, 2);
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
           if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return  /*<<bytes.ml:645:39>>*/ caml_call1
-                   (dec_invalid, 3);
+                    /*<<bytes.ml:645:39>>*/ (dec_invalid, 3);
           var b3 = caml_bytes_unsafe_get(b, i$12);
            /*<<bytes.ml:646:29>>*/ return not_in_x80_to_xBF(b3)
-                  ?  /*<<bytes.ml:646:55>>*/ caml_call1(dec_invalid, 3)
+                  ?  /*<<bytes.ml:646:55>>*/ caml_call1
+                     /*<<bytes.ml:646:55>>*/ (dec_invalid, 3)
                   : dec_ret(4, utf_8_uchar_4(b0, b1$0, b2, b3));
          case 1:
          case 2: break;
@@ -5961,26 +6369,27 @@
           var i$7 =  /*<<bytes.ml:633:6>>*/ i + 1 | 0;
           if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return  /*<<bytes.ml:633:39>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:633:39>>*/ (dec_invalid, 1);
           var b1$1 = caml_bytes_unsafe_get(b, i$7);
            /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return  /*<<bytes.ml:634:55>>*/ caml_call1
-                   (dec_invalid, 1);
+                    /*<<bytes.ml:634:55>>*/ (dec_invalid, 1);
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
           if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return  /*<<bytes.ml:635:39>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:635:39>>*/ (dec_invalid, 2);
           var b2$0 = caml_bytes_unsafe_get(b, i$8);
            /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return  /*<<bytes.ml:636:55>>*/ caml_call1
-                   (dec_invalid, 2);
+                    /*<<bytes.ml:636:55>>*/ (dec_invalid, 2);
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
           if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return  /*<<bytes.ml:637:39>>*/ caml_call1
-                   (dec_invalid, 3);
+                    /*<<bytes.ml:637:39>>*/ (dec_invalid, 3);
           var b3$0 = caml_bytes_unsafe_get(b, i$9);
            /*<<bytes.ml:638:29>>*/ return not_in_x80_to_xBF(b3$0)
-                  ?  /*<<bytes.ml:638:55>>*/ caml_call1(dec_invalid, 3)
+                  ?  /*<<bytes.ml:638:55>>*/ caml_call1
+                     /*<<bytes.ml:638:55>>*/ (dec_invalid, 3)
                   : dec_ret(4, utf_8_uchar_4(b0, b1$1, b2$0, b3$0));
        }
       }
@@ -5988,35 +6397,37 @@
        var i$13 =  /*<<bytes.ml:607:6>>*/ i + 1 | 0;
        if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return  /*<<bytes.ml:607:39>>*/ caml_call1
-                (dec_invalid, 1);
+                 /*<<bytes.ml:607:39>>*/ (dec_invalid, 1);
        var b1$5 = caml_bytes_unsafe_get(b, i$13);
         /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return  /*<<bytes.ml:608:55>>*/ caml_call1
-                (dec_invalid, 1);
+                 /*<<bytes.ml:608:55>>*/ (dec_invalid, 1);
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
        if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return  /*<<bytes.ml:609:39>>*/ caml_call1
-                (dec_invalid, 2);
+                 /*<<bytes.ml:609:39>>*/ (dec_invalid, 2);
        var b2$4 = caml_bytes_unsafe_get(b, i$14);
         /*<<bytes.ml:610:29>>*/ return not_in_x80_to_xBF(b2$4)
-               ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
+               ?  /*<<bytes.ml:610:55>>*/ caml_call1
+                  /*<<bytes.ml:610:55>>*/ (dec_invalid, 2)
                : dec_ret(3, utf_8_uchar_3(b0, b1$5, b2$4));
       }
       var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
       if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return  /*<<bytes.ml:613:39>>*/ caml_call1
-               (dec_invalid, 1);
+                /*<<bytes.ml:613:39>>*/ (dec_invalid, 1);
       var b1$3 = caml_bytes_unsafe_get(b, i$2);
        /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return  /*<<bytes.ml:614:55>>*/ caml_call1
-               (dec_invalid, 1);
+                /*<<bytes.ml:614:55>>*/ (dec_invalid, 1);
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
       if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return  /*<<bytes.ml:615:39>>*/ caml_call1
-               (dec_invalid, 2);
+                /*<<bytes.ml:615:39>>*/ (dec_invalid, 2);
       var b2$2 = caml_bytes_unsafe_get(b, i$3);
        /*<<bytes.ml:616:29>>*/ return not_in_x80_to_xBF(b2$2)
-              ?  /*<<bytes.ml:616:55>>*/ caml_call1(dec_invalid, 2)
+              ?  /*<<bytes.ml:616:55>>*/ caml_call1
+                 /*<<bytes.ml:616:55>>*/ (dec_invalid, 2)
               : dec_ret(3, utf_8_uchar_3(b0, b1$3, b2$2));
      }
      if(128 > b0)  /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0);
@@ -6024,15 +6435,16 @@
       var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
       if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return  /*<<bytes.ml:603:39>>*/ caml_call1
-               (dec_invalid, 1);
+                /*<<bytes.ml:603:39>>*/ (dec_invalid, 1);
       var b1 = caml_bytes_unsafe_get(b, i$15);
        /*<<bytes.ml:604:29>>*/ return not_in_x80_to_xBF(b1)
-              ?  /*<<bytes.ml:604:55>>*/ caml_call1(dec_invalid, 1)
+              ?  /*<<bytes.ml:604:55>>*/ caml_call1
+                 /*<<bytes.ml:604:55>>*/ (dec_invalid, 1)
               : dec_ret(2, (b0 & 31) << 6 | b1 & 63);
      }
     }
      /*<<bytes.ml:648:9>>*/ return  /*<<bytes.ml:648:9>>*/ caml_call1
-            (dec_invalid, 1);
+             /*<<bytes.ml:648:9>>*/ (dec_invalid, 1);
     /*<<bytes.ml:648:22>>*/ }
    function set_utf_8_uchar(b, i, u){
     function set(_i_, _h_, _g_){
@@ -6040,15 +6452,16 @@
     }
     var
      max =
-        /*<<bytes.ml:652:2>>*/  /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length(b)
+        /*<<bytes.ml:652:2>>*/  /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:652:2>>*/ (b)
        - 1
        | 0,
      u$0 =
         /*<<bytes.ml:653:8>>*/  /*<<bytes.ml:653:8>>*/ caml_call1
-        (Stdlib_Uchar[10], u);
+         /*<<bytes.ml:653:8>>*/ (Stdlib_Uchar[10], u);
      /*<<bytes.ml:654:11>>*/ if(0 > u$0)
       /*<<bytes.ml:654:20>>*/ throw  /*<<bytes.ml:654:20>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _b_], 1);
+             /*<<bytes.ml:654:20>>*/ ([0, Assert_failure, _b_], 1);
      /*<<bytes.ml:655:11>>*/ if(127 >= u$0){
      caml_bytes_set(b, i, u$0);
       /*<<bytes.ml:656:6>>*/ return 1;
@@ -6074,7 +6487,7 @@
     }
      /*<<bytes.ml:671:11>>*/ if(1114111 < u$0)
       /*<<bytes.ml:679:9>>*/ throw  /*<<bytes.ml:679:9>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _a_], 1);
+             /*<<bytes.ml:679:9>>*/ ([0, Assert_failure, _a_], 1);
     var last =  /*<<bytes.ml:672:6>>*/ i + 3 | 0;
     return max < last
             ? 0
@@ -6211,18 +6624,19 @@
    function get_utf_16be_uchar(b, i){
     var
      max =
-        /*<<bytes.ml:746:2>>*/  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b)
+        /*<<bytes.ml:746:2>>*/  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:746:2>>*/ (b)
        - 1
        | 0;
      /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
-              (dec_invalid, 1);
+               /*<<bytes.ml:748:18>>*/ (dec_invalid, 1);
      var hi =  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
-               (dec_invalid, 2);
+                /*<<bytes.ml:751:25>>*/ (dec_invalid, 2);
       var last =  /*<<bytes.ml:753:6>>*/ i + 3 | 0;
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
       var lo =  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
@@ -6231,34 +6645,35 @@
         /*<<bytes.ml:759:10>>*/ return dec_ret(4, u);
       }
        /*<<bytes.ml:756:43>>*/ return  /*<<bytes.ml:756:43>>*/ caml_call1
-              (dec_invalid, 2);
+               /*<<bytes.ml:756:43>>*/ (dec_invalid, 2);
      }
       /*<<bytes.ml:750:39>>*/ return dec_ret(2, hi);
     }
      /*<<bytes.ml:747:27>>*/ return  /*<<bytes.ml:747:27>>*/ caml_call1
-            (Stdlib[1], cst_index_out_of_bounds);
+             /*<<bytes.ml:747:27>>*/ (Stdlib[1], cst_index_out_of_bounds);
     /*<<bytes.ml:759:21>>*/ }
    function set_utf_16be_uchar(b, i, u){
     var
      max =
-        /*<<bytes.ml:763:2>>*/  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length(b)
+        /*<<bytes.ml:763:2>>*/  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:763:2>>*/ (b)
        - 1
        | 0;
      /*<<bytes.ml:764:2>>*/ if(0 <= i && max >= i){
      var
       u$0 =
          /*<<bytes.ml:765:8>>*/  /*<<bytes.ml:765:8>>*/ caml_call1
-         (Stdlib_Uchar[10], u);
+          /*<<bytes.ml:765:8>>*/ (Stdlib_Uchar[10], u);
       /*<<bytes.ml:766:11>>*/ if(0 > u$0)
        /*<<bytes.ml:766:20>>*/ throw  /*<<bytes.ml:766:20>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _d_], 1);
+              /*<<bytes.ml:766:20>>*/ ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:768:6>>*/ i + 1 | 0;
       return max < last$0 ? 0 : (unsafe_set_uint16_be(b, i, u$0), 2);
      }
       /*<<bytes.ml:770:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:777:9>>*/ throw  /*<<bytes.ml:777:9>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _c_], 1);
+              /*<<bytes.ml:777:9>>*/ ([0, Assert_failure, _c_], 1);
      var last =  /*<<bytes.ml:771:6>>*/ i + 3 | 0;
      if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
      var
@@ -6270,7 +6685,7 @@
       /*<<bytes.ml:776:18>>*/ return 4;
     }
      /*<<bytes.ml:764:27>>*/ return  /*<<bytes.ml:764:27>>*/ caml_call1
-            (Stdlib[1], cst_index_out_of_bounds$0);
+             /*<<bytes.ml:764:27>>*/ (Stdlib[1], cst_index_out_of_bounds$0);
     /*<<bytes.ml:777:21>>*/ }
    function is_valid_utf_16be(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
@@ -6298,18 +6713,19 @@
    function get_utf_16le_uchar(b, i){
     var
      max =
-        /*<<bytes.ml:800:2>>*/  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b)
+        /*<<bytes.ml:800:2>>*/  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:800:2>>*/ (b)
        - 1
        | 0;
      /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
-              (dec_invalid, 1);
+               /*<<bytes.ml:802:18>>*/ (dec_invalid, 1);
      var hi =  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
-               (dec_invalid, 2);
+                /*<<bytes.ml:805:25>>*/ (dec_invalid, 2);
       var last =  /*<<bytes.ml:807:6>>*/ i + 3 | 0;
       if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
       var lo =  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
@@ -6318,34 +6734,35 @@
         /*<<bytes.ml:813:10>>*/ return dec_ret(4, u);
       }
        /*<<bytes.ml:810:43>>*/ return  /*<<bytes.ml:810:43>>*/ caml_call1
-              (dec_invalid, 2);
+               /*<<bytes.ml:810:43>>*/ (dec_invalid, 2);
      }
       /*<<bytes.ml:804:39>>*/ return dec_ret(2, hi);
     }
      /*<<bytes.ml:801:27>>*/ return  /*<<bytes.ml:801:27>>*/ caml_call1
-            (Stdlib[1], cst_index_out_of_bounds$1);
+             /*<<bytes.ml:801:27>>*/ (Stdlib[1], cst_index_out_of_bounds$1);
     /*<<bytes.ml:813:21>>*/ }
    function set_utf_16le_uchar(b, i, u){
     var
      max =
-        /*<<bytes.ml:817:2>>*/  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length(b)
+        /*<<bytes.ml:817:2>>*/  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length
+         /*<<bytes.ml:817:2>>*/ (b)
        - 1
        | 0;
      /*<<bytes.ml:818:2>>*/ if(0 <= i && max >= i){
      var
       u$0 =
          /*<<bytes.ml:819:8>>*/  /*<<bytes.ml:819:8>>*/ caml_call1
-         (Stdlib_Uchar[10], u);
+          /*<<bytes.ml:819:8>>*/ (Stdlib_Uchar[10], u);
       /*<<bytes.ml:820:11>>*/ if(0 > u$0)
        /*<<bytes.ml:820:20>>*/ throw  /*<<bytes.ml:820:20>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _f_], 1);
+              /*<<bytes.ml:820:20>>*/ ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:822:6>>*/ i + 1 | 0;
       return max < last$0 ? 0 : (unsafe_set_uint16_le(b, i, u$0), 2);
      }
       /*<<bytes.ml:824:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:831:9>>*/ throw  /*<<bytes.ml:831:9>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _e_], 1);
+              /*<<bytes.ml:831:9>>*/ ([0, Assert_failure, _e_], 1);
      var last =  /*<<bytes.ml:825:6>>*/ i + 3 | 0;
      if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
      var
@@ -6357,7 +6774,7 @@
       /*<<bytes.ml:830:18>>*/ return 4;
     }
      /*<<bytes.ml:818:27>>*/ return  /*<<bytes.ml:818:27>>*/ caml_call1
-            (Stdlib[1], cst_index_out_of_bounds$2);
+             /*<<bytes.ml:818:27>>*/ (Stdlib[1], cst_index_out_of_bounds$2);
     /*<<bytes.ml:831:21>>*/ }
    function is_valid_utf_16le(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
@@ -6518,20 +6935,26 @@
     bos = Stdlib_Bytes[45];
    function make(n, c){
      /*<<string.ml:36:2>>*/ return  /*<<string.ml:36:2>>*/ caml_call1
-            (bts,  /*<<string.ml:36:2>>*/ caml_call2(Stdlib_Bytes[1], n, c));
+             /*<<string.ml:36:2>>*/ (bts,
+              /*<<string.ml:36:2>>*/ caml_call2
+               /*<<string.ml:36:2>>*/ (Stdlib_Bytes[1], n, c));
     /*<<string.ml:36:19>>*/ }
    function init(n, f){
      /*<<string.ml:38:2>>*/ return  /*<<string.ml:38:2>>*/ caml_call1
-            (bts,  /*<<string.ml:38:2>>*/ caml_call2(Stdlib_Bytes[2], n, f));
+             /*<<string.ml:38:2>>*/ (bts,
+              /*<<string.ml:38:2>>*/ caml_call2
+               /*<<string.ml:38:2>>*/ (Stdlib_Bytes[2], n, f));
     /*<<string.ml:38:19>>*/ }
    var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
     var
-     _X_ =  /*<<string.ml:43:8>>*/  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
+     _X_ =
+        /*<<string.ml:43:8>>*/  /*<<string.ml:43:8>>*/ caml_call1
+         /*<<string.ml:43:8>>*/ (bos, s);
      /*<<string.ml:43:2>>*/ return  /*<<string.ml:43:2>>*/ caml_call1
-            (bts,
+             /*<<string.ml:43:2>>*/ (bts,
               /*<<string.ml:43:2>>*/ caml_call3
-              (Stdlib_Bytes[7], _X_, ofs, len));
+               /*<<string.ml:43:2>>*/ (Stdlib_Bytes[7], _X_, ofs, len));
     /*<<string.ml:43:30>>*/ }
    var blit = Stdlib_Bytes[12], cst_String_concat = "String.concat";
    function concat(sep, l){
@@ -6552,7 +6975,8 @@
         acc$0 =
           acc <= x
            ? x
-           :  /*<<string.ml:47:48>>*/ caml_call1(Stdlib[1], cst_String_concat);
+           :  /*<<string.ml:47:48>>*/ caml_call1
+              /*<<string.ml:47:48>>*/ (Stdlib[1], cst_String_concat);
        acc = acc$0;
        param = tl;
       }
@@ -6564,7 +6988,7 @@
     var
      dst =
         /*<<string.ml:67:12>>*/  /*<<string.ml:67:12>>*/ runtime.caml_create_bytes
-        (_W_),
+         /*<<string.ml:67:12>>*/ (_W_),
      pos = pos$1,
      param$0 = l;
     for(;;){
@@ -6573,23 +6997,32 @@
       if(param$0[2]){
        var tl$0 = param$0[2];
         /*<<string.ml:59:4>>*/  /*<<string.ml:59:4>>*/ caml_blit_string
-        (hd$0,
+         /*<<string.ml:59:4>>*/ (hd$0,
          0,
          dst,
          pos,
-          /*<<string.ml:59:4>>*/ caml_ml_string_length(hd$0));
+          /*<<string.ml:59:4>>*/ caml_ml_string_length
+           /*<<string.ml:59:4>>*/ (hd$0));
         /*<<string.ml:60:4>>*/  /*<<string.ml:60:4>>*/ caml_blit_string
-        (sep, 0, dst, pos + caml_ml_string_length(hd$0) | 0, seplen);
+         /*<<string.ml:60:4>>*/ (sep,
+         0,
+         dst,
+         pos + caml_ml_string_length(hd$0) | 0,
+         seplen);
        var pos$0 = (pos + caml_ml_string_length(hd$0) | 0) + seplen | 0;
        pos = pos$0;
        param$0 = tl$0;
        continue;
       }
        /*<<string.ml:57:4>>*/  /*<<string.ml:57:4>>*/ caml_blit_string
-       (hd$0, 0, dst, pos, caml_ml_string_length(hd$0));
+        /*<<string.ml:57:4>>*/ (hd$0,
+        0,
+        dst,
+        pos,
+        caml_ml_string_length(hd$0));
      }
       /*<<string.ml:66:10>>*/ return  /*<<string.ml:66:10>>*/ caml_call1
-             (bts, dst);
+              /*<<string.ml:66:10>>*/ (bts, dst);
     }
    }
    var
@@ -6612,7 +7045,7 @@
      var i = _T_;
      for(;;){
        /*<<string.ml:74:31>>*/  /*<<string.ml:74:31>>*/ caml_call1
-       (f, caml_string_unsafe_get(s, i));
+        /*<<string.ml:74:31>>*/ (f, caml_string_unsafe_get(s, i));
       var _V_ =  /*<<string.ml:74:31>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
@@ -6628,7 +7061,7 @@
      var i = _Q_;
      for(;;){
        /*<<string.ml:78:31>>*/  /*<<string.ml:78:31>>*/ caml_call2
-       (f, i, caml_string_unsafe_get(s, i));
+        /*<<string.ml:78:31>>*/ (f, i, caml_string_unsafe_get(s, i));
       var _S_ =  /*<<string.ml:78:31>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
@@ -6639,46 +7072,54 @@
    function map(f, s){
     var
      _P_ =
-        /*<<string.ml:81:10>>*/  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
+        /*<<string.ml:81:10>>*/  /*<<string.ml:81:10>>*/ caml_call1
+         /*<<string.ml:81:10>>*/ (bos, s);
      /*<<string.ml:81:2>>*/ return  /*<<string.ml:81:2>>*/ caml_call1
-            (bts,
-              /*<<string.ml:81:2>>*/ caml_call2(Stdlib_Bytes[17], f, _P_));
+             /*<<string.ml:81:2>>*/ (bts,
+              /*<<string.ml:81:2>>*/ caml_call2
+               /*<<string.ml:81:2>>*/ (Stdlib_Bytes[17], f, _P_));
     /*<<string.ml:81:24>>*/ }
    function mapi(f, s){
     var
      _O_ =
-        /*<<string.ml:83:11>>*/  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
+        /*<<string.ml:83:11>>*/  /*<<string.ml:83:11>>*/ caml_call1
+         /*<<string.ml:83:11>>*/ (bos, s);
      /*<<string.ml:83:2>>*/ return  /*<<string.ml:83:2>>*/ caml_call1
-            (bts,
-              /*<<string.ml:83:2>>*/ caml_call2(Stdlib_Bytes[18], f, _O_));
+             /*<<string.ml:83:2>>*/ (bts,
+              /*<<string.ml:83:2>>*/ caml_call2
+               /*<<string.ml:83:2>>*/ (Stdlib_Bytes[18], f, _O_));
     /*<<string.ml:83:25>>*/ }
    function fold_right(f, x, a){
     var
      _N_ =
-        /*<<string.ml:85:17>>*/  /*<<string.ml:85:17>>*/ caml_call1(bos, x);
+        /*<<string.ml:85:17>>*/  /*<<string.ml:85:17>>*/ caml_call1
+         /*<<string.ml:85:17>>*/ (bos, x);
      /*<<string.ml:85:2>>*/ return  /*<<string.ml:85:2>>*/ caml_call3
-            (Stdlib_Bytes[20], f, _N_, a);
+             /*<<string.ml:85:2>>*/ (Stdlib_Bytes[20], f, _N_, a);
     /*<<string.ml:85:26>>*/ }
    function fold_left(f, a, x){
     var
      _M_ =
-        /*<<string.ml:87:18>>*/  /*<<string.ml:87:18>>*/ caml_call1(bos, x);
+        /*<<string.ml:87:18>>*/  /*<<string.ml:87:18>>*/ caml_call1
+         /*<<string.ml:87:18>>*/ (bos, x);
      /*<<string.ml:87:18>>*/ return  /*<<string.ml:87:18>>*/ caml_call3
-            (Stdlib_Bytes[19], f, a, _M_);
+             /*<<string.ml:87:18>>*/ (Stdlib_Bytes[19], f, a, _M_);
     /*<<string.ml:87:25>>*/ }
    function exists(f, s){
     var
      _L_ =
-        /*<<string.ml:89:13>>*/  /*<<string.ml:89:13>>*/ caml_call1(bos, s);
+        /*<<string.ml:89:13>>*/  /*<<string.ml:89:13>>*/ caml_call1
+         /*<<string.ml:89:13>>*/ (bos, s);
      /*<<string.ml:89:13>>*/ return  /*<<string.ml:89:13>>*/ caml_call2
-            (Stdlib_Bytes[22], f, _L_);
+             /*<<string.ml:89:13>>*/ (Stdlib_Bytes[22], f, _L_);
     /*<<string.ml:89:20>>*/ }
    function for_all(f, s){
     var
      _K_ =
-        /*<<string.ml:91:14>>*/  /*<<string.ml:91:14>>*/ caml_call1(bos, s);
+        /*<<string.ml:91:14>>*/  /*<<string.ml:91:14>>*/ caml_call1
+         /*<<string.ml:91:14>>*/ (bos, s);
      /*<<string.ml:91:14>>*/ return  /*<<string.ml:91:14>>*/ caml_call2
-            (Stdlib_Bytes[21], f, _K_);
+             /*<<string.ml:91:14>>*/ (Stdlib_Bytes[21], f, _K_);
     /*<<string.ml:91:21>>*/ }
    function is_space(param){
     var _J_ =  /*<<string.ml:97:15>>*/ param - 9 | 0;
@@ -6701,23 +7142,29 @@
       /*<<string.ml:105:7>>*/ return s;
     var
      _I_ =
-        /*<<string.ml:104:21>>*/  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
+        /*<<string.ml:104:21>>*/  /*<<string.ml:104:21>>*/ caml_call1
+         /*<<string.ml:104:21>>*/ (bos, s);
      /*<<string.ml:104:13>>*/ return  /*<<string.ml:104:13>>*/ caml_call1
-            (bts,  /*<<string.ml:104:13>>*/ caml_call1(Stdlib_Bytes[23], _I_));
+             /*<<string.ml:104:13>>*/ (bts,
+              /*<<string.ml:104:13>>*/ caml_call1
+               /*<<string.ml:104:13>>*/ (Stdlib_Bytes[23], _I_));
     /*<<string.ml:105:8>>*/ }
    function escaped(s){
     var
      b =
-        /*<<string.ml:108:10>>*/  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
+        /*<<string.ml:108:10>>*/  /*<<string.ml:108:10>>*/ caml_call1
+         /*<<string.ml:108:10>>*/ (bos, s);
      /*<<string.ml:111:6>>*/ return  /*<<string.ml:111:6>>*/ caml_call1
-            (bts,  /*<<string.ml:111:6>>*/ caml_call1(Stdlib_Bytes[87], b));
+             /*<<string.ml:111:6>>*/ (bts,
+              /*<<string.ml:111:6>>*/ caml_call1
+               /*<<string.ml:111:6>>*/ (Stdlib_Bytes[87], b));
     /*<<string.ml:111:25>>*/ }
    function index_rec(s, lim, i, c){
     var i$0 = i;
      /*<<string.ml:115:2>>*/ for(;;){
      if(lim <= i$0)
        /*<<string.ml:115:19>>*/ throw  /*<<string.ml:115:19>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<string.ml:115:19>>*/ (Stdlib[8], 1);
      if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:116:29>>*/ return i$0;
      var i$1 = i$0 + 1 | 0;
@@ -6747,21 +7194,23 @@
      /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c);
      /*<<string.ml:132:25>>*/ return  /*<<string.ml:132:25>>*/ caml_call1
-            (Stdlib[1], cst_String_index_from_Bytes_in);
+             /*<<string.ml:132:25>>*/ (Stdlib[1],
+             cst_String_index_from_Bytes_in);
     /*<<string.ml:133:21>>*/ }
    function index_from_opt(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c);
      /*<<string.ml:139:4>>*/ return  /*<<string.ml:139:4>>*/ caml_call1
-            (Stdlib[1], cst_String_index_from_opt_Byte);
+             /*<<string.ml:139:4>>*/ (Stdlib[1],
+             cst_String_index_from_opt_Byte);
     /*<<string.ml:141:25>>*/ }
    function rindex_rec(s, i, c){
     var i$0 = i;
      /*<<string.ml:145:2>>*/ for(;;){
      if(0 > i$0)
        /*<<string.ml:145:16>>*/ throw  /*<<string.ml:145:16>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<string.ml:145:16>>*/ (Stdlib[8], 1);
      if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:146:29>>*/ return i$0;
      var i$1 = i$0 - 1 | 0;
@@ -6776,7 +7225,8 @@
      /*<<string.ml:153:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:156:4>>*/ return rindex_rec(s, i, c);
      /*<<string.ml:154:4>>*/ return  /*<<string.ml:154:4>>*/ caml_call1
-            (Stdlib[1], cst_String_rindex_from_Bytes_r);
+             /*<<string.ml:154:4>>*/ (Stdlib[1],
+             cst_String_rindex_from_Bytes_r);
     /*<<string.ml:156:20>>*/ }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
@@ -6796,7 +7246,8 @@
      /*<<string.ml:168:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:171:4>>*/ return rindex_rec_opt(s, i, c);
      /*<<string.ml:169:4>>*/ return  /*<<string.ml:169:4>>*/ caml_call1
-            (Stdlib[1], cst_String_rindex_from_opt_Byt);
+             /*<<string.ml:169:4>>*/ (Stdlib[1],
+             cst_String_rindex_from_opt_Byt);
     /*<<string.ml:171:24>>*/ }
    function contains_from(s, i, c){
     var l = caml_ml_string_length(s);
@@ -6812,7 +7263,8 @@
       throw caml_maybe_attach_backtrace(_F_, 0);
      }
      /*<<string.ml:177:4>>*/ return  /*<<string.ml:177:4>>*/ caml_call1
-            (Stdlib[1], cst_String_contains_from_Bytes);
+             /*<<string.ml:177:4>>*/ (Stdlib[1],
+             cst_String_contains_from_Bytes);
     /*<<string.ml:179:64>>*/ }
    function contains(s, c){
      /*<<string.ml:182:19>>*/ return contains_from(s, 0, c);
@@ -6830,35 +7282,48 @@
       throw caml_maybe_attach_backtrace(_C_, 0);
      }
      /*<<string.ml:187:4>>*/ return  /*<<string.ml:187:4>>*/ caml_call1
-            (Stdlib[1], cst_String_rcontains_from_Byte);
+             /*<<string.ml:187:4>>*/ (Stdlib[1],
+             cst_String_rcontains_from_Byte);
     /*<<string.ml:189:63>>*/ }
    function uppercase_ascii(s){
     var
      _B_ =
-        /*<<string.ml:192:20>>*/  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
+        /*<<string.ml:192:20>>*/  /*<<string.ml:192:20>>*/ caml_call1
+         /*<<string.ml:192:20>>*/ (bos, s);
      /*<<string.ml:192:2>>*/ return  /*<<string.ml:192:2>>*/ caml_call1
-            (bts,  /*<<string.ml:192:2>>*/ caml_call1(Stdlib_Bytes[36], _B_));
+             /*<<string.ml:192:2>>*/ (bts,
+              /*<<string.ml:192:2>>*/ caml_call1
+               /*<<string.ml:192:2>>*/ (Stdlib_Bytes[36], _B_));
     /*<<string.ml:192:34>>*/ }
    function lowercase_ascii(s){
     var
      _A_ =
-        /*<<string.ml:194:20>>*/  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
+        /*<<string.ml:194:20>>*/  /*<<string.ml:194:20>>*/ caml_call1
+         /*<<string.ml:194:20>>*/ (bos, s);
      /*<<string.ml:194:2>>*/ return  /*<<string.ml:194:2>>*/ caml_call1
-            (bts,  /*<<string.ml:194:2>>*/ caml_call1(Stdlib_Bytes[37], _A_));
+             /*<<string.ml:194:2>>*/ (bts,
+              /*<<string.ml:194:2>>*/ caml_call1
+               /*<<string.ml:194:2>>*/ (Stdlib_Bytes[37], _A_));
     /*<<string.ml:194:34>>*/ }
    function capitalize_ascii(s){
     var
      _z_ =
-        /*<<string.ml:196:21>>*/  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
+        /*<<string.ml:196:21>>*/  /*<<string.ml:196:21>>*/ caml_call1
+         /*<<string.ml:196:21>>*/ (bos, s);
      /*<<string.ml:196:2>>*/ return  /*<<string.ml:196:2>>*/ caml_call1
-            (bts,  /*<<string.ml:196:2>>*/ caml_call1(Stdlib_Bytes[38], _z_));
+             /*<<string.ml:196:2>>*/ (bts,
+              /*<<string.ml:196:2>>*/ caml_call1
+               /*<<string.ml:196:2>>*/ (Stdlib_Bytes[38], _z_));
     /*<<string.ml:196:35>>*/ }
    function uncapitalize_ascii(s){
     var
      _y_ =
-        /*<<string.ml:198:23>>*/  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
+        /*<<string.ml:198:23>>*/  /*<<string.ml:198:23>>*/ caml_call1
+         /*<<string.ml:198:23>>*/ (bos, s);
      /*<<string.ml:198:2>>*/ return  /*<<string.ml:198:2>>*/ caml_call1
-            (bts,  /*<<string.ml:198:2>>*/ caml_call1(Stdlib_Bytes[39], _y_));
+             /*<<string.ml:198:2>>*/ (bts,
+              /*<<string.ml:198:2>>*/ caml_call1
+               /*<<string.ml:198:2>>*/ (Stdlib_Bytes[39], _y_));
     /*<<string.ml:198:37>>*/ }
    function starts_with(prefix, s){
     var
@@ -6895,17 +7360,18 @@
     /*<<string.ml:219:23>>*/ }
    function hash(x){
      /*<<string.ml:222:13>>*/ return  /*<<string.ml:222:13>>*/ caml_string_hash
-            (0, x);
+             /*<<string.ml:222:13>>*/ (0, x);
     /*<<string.ml:222:28>>*/ }
    function split_on_char(sep, s){
     var
      r =  /*<<string.ml:226:10>>*/ [0, 0],
      j =
         /*<<string.ml:227:10>>*/ [0,
-         /*<<string.ml:227:2>>*/ caml_ml_string_length(s)],
+         /*<<string.ml:227:2>>*/ caml_ml_string_length
+          /*<<string.ml:227:2>>*/ (s)],
      _s_ =
         /*<<string.ml:228:2>>*/  /*<<string.ml:228:2>>*/ caml_ml_string_length
-        (s)
+         /*<<string.ml:228:2>>*/ (s)
        - 1
        | 0;
     if(_s_ >= 0){
@@ -6928,132 +7394,152 @@
    function to_seq(s){
     var
      _r_ =
-        /*<<string.ml:243:15>>*/  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
+        /*<<string.ml:243:15>>*/  /*<<string.ml:243:15>>*/ caml_call1
+         /*<<string.ml:243:15>>*/ (bos, s);
      /*<<string.ml:243:15>>*/ return  /*<<string.ml:243:15>>*/ caml_call1
-            (Stdlib_Bytes[47], _r_);
+             /*<<string.ml:243:15>>*/ (Stdlib_Bytes[47], _r_);
     /*<<string.ml:243:32>>*/ }
    function to_seqi(s){
     var
      _q_ =
-        /*<<string.ml:245:16>>*/  /*<<string.ml:245:16>>*/ caml_call1(bos, s);
+        /*<<string.ml:245:16>>*/  /*<<string.ml:245:16>>*/ caml_call1
+         /*<<string.ml:245:16>>*/ (bos, s);
      /*<<string.ml:245:16>>*/ return  /*<<string.ml:245:16>>*/ caml_call1
-            (Stdlib_Bytes[48], _q_);
+             /*<<string.ml:245:16>>*/ (Stdlib_Bytes[48], _q_);
     /*<<string.ml:245:34>>*/ }
    function of_seq(g){
      /*<<string.ml:247:15>>*/ return  /*<<string.ml:247:15>>*/ caml_call1
-            (bts,  /*<<string.ml:247:15>>*/ caml_call1(Stdlib_Bytes[49], g));
+             /*<<string.ml:247:15>>*/ (bts,
+              /*<<string.ml:247:15>>*/ caml_call1
+               /*<<string.ml:247:15>>*/ (Stdlib_Bytes[49], g));
     /*<<string.ml:247:32>>*/ }
    function get_utf_8_uchar(s, i){
     var
      _p_ =
-        /*<<string.ml:251:44>>*/  /*<<string.ml:251:44>>*/ caml_call1(bos, s);
+        /*<<string.ml:251:44>>*/  /*<<string.ml:251:44>>*/ caml_call1
+         /*<<string.ml:251:44>>*/ (bos, s);
      /*<<string.ml:251:26>>*/ return  /*<<string.ml:251:26>>*/ caml_call2
-            (Stdlib_Bytes[50], _p_, i);
+             /*<<string.ml:251:26>>*/ (Stdlib_Bytes[50], _p_, i);
     /*<<string.ml:251:53>>*/ }
    function is_valid_utf_8(s){
     var
      _o_ =
-        /*<<string.ml:252:40>>*/  /*<<string.ml:252:40>>*/ caml_call1(bos, s);
+        /*<<string.ml:252:40>>*/  /*<<string.ml:252:40>>*/ caml_call1
+         /*<<string.ml:252:40>>*/ (bos, s);
      /*<<string.ml:252:40>>*/ return  /*<<string.ml:252:40>>*/ caml_call1
-            (Stdlib_Bytes[52], _o_);
+             /*<<string.ml:252:40>>*/ (Stdlib_Bytes[52], _o_);
     /*<<string.ml:252:47>>*/ }
    function get_utf_16be_uchar(s, i){
     var
      _n_ =
-        /*<<string.ml:254:50>>*/  /*<<string.ml:254:50>>*/ caml_call1(bos, s);
+        /*<<string.ml:254:50>>*/  /*<<string.ml:254:50>>*/ caml_call1
+         /*<<string.ml:254:50>>*/ (bos, s);
      /*<<string.ml:254:29>>*/ return  /*<<string.ml:254:29>>*/ caml_call2
-            (Stdlib_Bytes[53], _n_, i);
+             /*<<string.ml:254:29>>*/ (Stdlib_Bytes[53], _n_, i);
     /*<<string.ml:254:59>>*/ }
    function is_valid_utf_16be(s){
     var
      _m_ =
-        /*<<string.ml:255:46>>*/  /*<<string.ml:255:46>>*/ caml_call1(bos, s);
+        /*<<string.ml:255:46>>*/  /*<<string.ml:255:46>>*/ caml_call1
+         /*<<string.ml:255:46>>*/ (bos, s);
      /*<<string.ml:255:46>>*/ return  /*<<string.ml:255:46>>*/ caml_call1
-            (Stdlib_Bytes[55], _m_);
+             /*<<string.ml:255:46>>*/ (Stdlib_Bytes[55], _m_);
     /*<<string.ml:255:53>>*/ }
    function get_utf_16le_uchar(s, i){
     var
      _l_ =
-        /*<<string.ml:257:50>>*/  /*<<string.ml:257:50>>*/ caml_call1(bos, s);
+        /*<<string.ml:257:50>>*/  /*<<string.ml:257:50>>*/ caml_call1
+         /*<<string.ml:257:50>>*/ (bos, s);
      /*<<string.ml:257:29>>*/ return  /*<<string.ml:257:29>>*/ caml_call2
-            (Stdlib_Bytes[56], _l_, i);
+             /*<<string.ml:257:29>>*/ (Stdlib_Bytes[56], _l_, i);
     /*<<string.ml:257:59>>*/ }
    function is_valid_utf_16le(s){
     var
      _k_ =
-        /*<<string.ml:258:46>>*/  /*<<string.ml:258:46>>*/ caml_call1(bos, s);
+        /*<<string.ml:258:46>>*/  /*<<string.ml:258:46>>*/ caml_call1
+         /*<<string.ml:258:46>>*/ (bos, s);
      /*<<string.ml:258:46>>*/ return  /*<<string.ml:258:46>>*/ caml_call1
-            (Stdlib_Bytes[58], _k_);
+             /*<<string.ml:258:46>>*/ (Stdlib_Bytes[58], _k_);
     /*<<string.ml:258:53>>*/ }
    function get_int8(s, i){
     var
      _j_ =
-        /*<<string.ml:267:30>>*/  /*<<string.ml:267:30>>*/ caml_call1(bos, s);
+        /*<<string.ml:267:30>>*/  /*<<string.ml:267:30>>*/ caml_call1
+         /*<<string.ml:267:30>>*/ (bos, s);
      /*<<string.ml:267:19>>*/ return  /*<<string.ml:267:19>>*/ caml_call2
-            (Stdlib_Bytes[60], _j_, i);
+             /*<<string.ml:267:19>>*/ (Stdlib_Bytes[60], _j_, i);
     /*<<string.ml:267:39>>*/ }
    function get_uint16_le(s, i){
     var
      _i_ =
-        /*<<string.ml:268:40>>*/  /*<<string.ml:268:40>>*/ caml_call1(bos, s);
+        /*<<string.ml:268:40>>*/  /*<<string.ml:268:40>>*/ caml_call1
+         /*<<string.ml:268:40>>*/ (bos, s);
      /*<<string.ml:268:24>>*/ return  /*<<string.ml:268:24>>*/ caml_call2
-            (Stdlib_Bytes[63], _i_, i);
+             /*<<string.ml:268:24>>*/ (Stdlib_Bytes[63], _i_, i);
     /*<<string.ml:268:49>>*/ }
    function get_uint16_be(s, i){
     var
      _h_ =
-        /*<<string.ml:269:40>>*/  /*<<string.ml:269:40>>*/ caml_call1(bos, s);
+        /*<<string.ml:269:40>>*/  /*<<string.ml:269:40>>*/ caml_call1
+         /*<<string.ml:269:40>>*/ (bos, s);
      /*<<string.ml:269:24>>*/ return  /*<<string.ml:269:24>>*/ caml_call2
-            (Stdlib_Bytes[62], _h_, i);
+             /*<<string.ml:269:24>>*/ (Stdlib_Bytes[62], _h_, i);
     /*<<string.ml:269:49>>*/ }
    function get_int16_ne(s, i){
     var
      _g_ =
-        /*<<string.ml:270:38>>*/  /*<<string.ml:270:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:270:38>>*/  /*<<string.ml:270:38>>*/ caml_call1
+         /*<<string.ml:270:38>>*/ (bos, s);
      /*<<string.ml:270:23>>*/ return  /*<<string.ml:270:23>>*/ caml_call2
-            (Stdlib_Bytes[64], _g_, i);
+             /*<<string.ml:270:23>>*/ (Stdlib_Bytes[64], _g_, i);
     /*<<string.ml:270:47>>*/ }
    function get_int16_le(s, i){
     var
      _f_ =
-        /*<<string.ml:271:38>>*/  /*<<string.ml:271:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:271:38>>*/  /*<<string.ml:271:38>>*/ caml_call1
+         /*<<string.ml:271:38>>*/ (bos, s);
      /*<<string.ml:271:23>>*/ return  /*<<string.ml:271:23>>*/ caml_call2
-            (Stdlib_Bytes[66], _f_, i);
+             /*<<string.ml:271:23>>*/ (Stdlib_Bytes[66], _f_, i);
     /*<<string.ml:271:47>>*/ }
    function get_int16_be(s, i){
     var
      _e_ =
-        /*<<string.ml:272:38>>*/  /*<<string.ml:272:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:272:38>>*/  /*<<string.ml:272:38>>*/ caml_call1
+         /*<<string.ml:272:38>>*/ (bos, s);
      /*<<string.ml:272:23>>*/ return  /*<<string.ml:272:23>>*/ caml_call2
-            (Stdlib_Bytes[65], _e_, i);
+             /*<<string.ml:272:23>>*/ (Stdlib_Bytes[65], _e_, i);
     /*<<string.ml:272:47>>*/ }
    function get_int32_le(s, i){
     var
      _d_ =
-        /*<<string.ml:273:38>>*/  /*<<string.ml:273:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:273:38>>*/  /*<<string.ml:273:38>>*/ caml_call1
+         /*<<string.ml:273:38>>*/ (bos, s);
      /*<<string.ml:273:23>>*/ return  /*<<string.ml:273:23>>*/ caml_call2
-            (Stdlib_Bytes[69], _d_, i);
+             /*<<string.ml:273:23>>*/ (Stdlib_Bytes[69], _d_, i);
     /*<<string.ml:273:47>>*/ }
    function get_int32_be(s, i){
     var
      _c_ =
-        /*<<string.ml:274:38>>*/  /*<<string.ml:274:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:274:38>>*/  /*<<string.ml:274:38>>*/ caml_call1
+         /*<<string.ml:274:38>>*/ (bos, s);
      /*<<string.ml:274:23>>*/ return  /*<<string.ml:274:23>>*/ caml_call2
-            (Stdlib_Bytes[68], _c_, i);
+             /*<<string.ml:274:23>>*/ (Stdlib_Bytes[68], _c_, i);
     /*<<string.ml:274:47>>*/ }
    function get_int64_le(s, i){
     var
      _b_ =
-        /*<<string.ml:275:38>>*/  /*<<string.ml:275:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:275:38>>*/  /*<<string.ml:275:38>>*/ caml_call1
+         /*<<string.ml:275:38>>*/ (bos, s);
      /*<<string.ml:275:23>>*/ return  /*<<string.ml:275:23>>*/ caml_call2
-            (Stdlib_Bytes[72], _b_, i);
+             /*<<string.ml:275:23>>*/ (Stdlib_Bytes[72], _b_, i);
     /*<<string.ml:275:47>>*/ }
    function get_int64_be(s, i){
     var
      _a_ =
-        /*<<string.ml:276:38>>*/  /*<<string.ml:276:38>>*/ caml_call1(bos, s);
+        /*<<string.ml:276:38>>*/  /*<<string.ml:276:38>>*/ caml_call1
+         /*<<string.ml:276:38>>*/ (bos, s);
      /*<<string.ml:276:23>>*/ return  /*<<string.ml:276:23>>*/ caml_call2
-            (Stdlib_Bytes[71], _a_, i);
+             /*<<string.ml:276:23>>*/ (Stdlib_Bytes[71], _a_, i);
     /*<<string.ml:276:47>>*/ }
    var
     Stdlib_String =
@@ -7171,9 +7657,10 @@
      /*<<marshal.ml:34:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(buff) - len | 0) >= ofs)
       /*<<marshal.ml:36:7>>*/ return  /*<<marshal.ml:36:7>>*/ runtime.caml_output_value_to_buffer
-             (buff, ofs, len, v, flags);
+              /*<<marshal.ml:36:7>>*/ (buff, ofs, len, v, flags);
      /*<<marshal.ml:35:7>>*/ return  /*<<marshal.ml:35:7>>*/ caml_call1
-            (Stdlib[1], cst_Marshal_to_buffer_substrin);
+             /*<<marshal.ml:35:7>>*/ (Stdlib[1],
+             cst_Marshal_to_buffer_substrin);
     /*<<marshal.ml:36:44>>*/ }
    var
     cst_Marshal_data_size = "Marshal.data_size",
@@ -7183,9 +7670,9 @@
      /*<<marshal.ml:50:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs)
       /*<<marshal.ml:52:7>>*/ return  /*<<marshal.ml:52:7>>*/ caml_marshal_data_size
-             (buff, ofs);
+              /*<<marshal.ml:52:7>>*/ (buff, ofs);
      /*<<marshal.ml:51:7>>*/ return  /*<<marshal.ml:51:7>>*/ caml_call1
-            (Stdlib[1], cst_Marshal_data_size);
+             /*<<marshal.ml:51:7>>*/ (Stdlib[1], cst_Marshal_data_size);
     /*<<marshal.ml:52:32>>*/ }
    function total_size(buff, ofs){
      /*<<marshal.ml:53:26>>*/ return 16 + data_size(buff, ofs) | 0;
@@ -7196,19 +7683,20 @@
      var
       len =
          /*<<marshal.ml:59:14>>*/  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size
-         (buff, ofs);
+          /*<<marshal.ml:59:14>>*/ (buff, ofs);
      return (caml_ml_bytes_length(buff) - (16 + len | 0) | 0) < ofs
              ?  /*<<marshal.ml:61:9>>*/ caml_call1
-               (Stdlib[1], cst_Marshal_from_bytes$0)
+                /*<<marshal.ml:61:9>>*/ (Stdlib[1], cst_Marshal_from_bytes$0)
              :  /*<<marshal.ml:62:9>>*/ runtime.caml_input_value_from_bytes
-               (buff, ofs);
+                /*<<marshal.ml:62:9>>*/ (buff, ofs);
     }
      /*<<marshal.ml:57:7>>*/ return  /*<<marshal.ml:57:7>>*/ caml_call1
-            (Stdlib[1], cst_Marshal_from_bytes);
+             /*<<marshal.ml:57:7>>*/ (Stdlib[1], cst_Marshal_from_bytes);
     /*<<marshal.ml:63:5>>*/ }
    function from_string(buff, ofs){
      /*<<marshal.ml:68:2>>*/ return from_bytes
-            ( /*<<marshal.ml:68:13>>*/ caml_call1(Stdlib_Bytes[45], buff),
+            ( /*<<marshal.ml:68:13>>*/ caml_call1
+               /*<<marshal.ml:68:13>>*/ (Stdlib_Bytes[45], buff),
              ofs);
     /*<<marshal.ml:68:46>>*/ }
    var
@@ -7278,18 +7766,19 @@
      /*<<array.ml:48:2>>*/ if(0 === l)  /*<<array.ml:48:16>>*/ return [0];
     if(0 > l)
       /*<<array.ml:49:16>>*/ return  /*<<array.ml:49:16>>*/ caml_call1
-             (Stdlib[1], cst_Array_init);
+              /*<<array.ml:49:16>>*/ (Stdlib[1], cst_Array_init);
     var
      res =
         /*<<array.ml:54:13>>*/  /*<<array.ml:54:13>>*/ caml_make_vect
-        (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
+         /*<<array.ml:54:13>>*/ (l,
+          /*<<array.ml:54:22>>*/ caml_call1 /*<<array.ml:54:22>>*/ (f, 0)),
      _aE_ =  /*<<array.ml:55:3>>*/ l - 1 | 0,
      _aD_ =  /*<<array.ml:54:13>>*/ 1;
     if(_aE_ >= 1){
      var i = _aD_;
      for(;;){
        /*<<array.ml:56:5>>*/ res[1 + i] =
-        /*<<array.ml:56:22>>*/ caml_call1(f, i);
+        /*<<array.ml:56:22>>*/ caml_call1 /*<<array.ml:56:22>>*/ (f, i);
       var _aF_ =  /*<<array.ml:56:5>>*/ i + 1 | 0;
       if(_aE_ === i) break;
       i = _aF_;
@@ -7300,16 +7789,19 @@
    function make_matrix(sx, sy, init){
      /*<<array.ml:62:2>>*/ if(sy < 0)
       /*<<array.ml:62:17>>*/  /*<<array.ml:62:17>>*/ caml_call1
-      (Stdlib[1], cst_Array_make_matrix);
+       /*<<array.ml:62:17>>*/ (Stdlib[1], cst_Array_make_matrix);
     var
      res =
-        /*<<array.ml:63:12>>*/  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
+        /*<<array.ml:63:12>>*/  /*<<array.ml:63:12>>*/ caml_make_vect
+         /*<<array.ml:63:12>>*/ (sx, [0]);
     if(0 < sy){
      var _aB_ = sx - 1 | 0, _aA_ =  /*<<array.ml:64:17>>*/ 0;
      if(_aB_ >= 0){
       var x = _aA_;
       for(;;){
-       res[1 + x] =  /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
+       res[1 + x] =
+         /*<<array.ml:66:23>>*/ caml_make_vect
+          /*<<array.ml:66:23>>*/ (sy, init);
        var _aC_ =  /*<<array.ml:64:17>>*/ x + 1 | 0;
        if(_aB_ === x) break;
        x = _aC_;
@@ -7321,10 +7813,11 @@
    function init_matrix(sx, sy, f){
      /*<<array.ml:73:2>>*/ if(sy < 0)
       /*<<array.ml:73:17>>*/  /*<<array.ml:73:17>>*/ caml_call1
-      (Stdlib[1], cst_Array_init_matrix);
+       /*<<array.ml:73:17>>*/ (Stdlib[1], cst_Array_init_matrix);
     var
      res =
-        /*<<array.ml:74:12>>*/  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
+        /*<<array.ml:74:12>>*/  /*<<array.ml:74:12>>*/ caml_make_vect
+         /*<<array.ml:74:12>>*/ (sx, [0]);
     if(0 < sy){
      var _av_ = sx - 1 | 0, _au_ =  /*<<array.ml:76:17>>*/ 0;
      if(_av_ >= 0){
@@ -7333,14 +7826,16 @@
        var
         row =
            /*<<array.ml:78:16>>*/  /*<<array.ml:78:16>>*/ caml_make_vect
-           (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
+            /*<<array.ml:78:16>>*/ (sy,
+             /*<<array.ml:78:26>>*/ caml_call2
+              /*<<array.ml:78:26>>*/ (f, x, 0)),
         _ax_ =  /*<<array.ml:79:6>>*/ sy - 1 | 0,
         _aw_ =  /*<<array.ml:78:16>>*/ 1;
        if(_ax_ >= 1){
         var y = _aw_;
         for(;;){
           /*<<array.ml:80:8>>*/ row[1 + y] =
-           /*<<array.ml:80:25>>*/ caml_call2(f, x, y);
+           /*<<array.ml:80:25>>*/ caml_call2 /*<<array.ml:80:25>>*/ (f, x, y);
          var _az_ =  /*<<array.ml:80:8>>*/ y + 1 | 0;
          if(_ax_ === y) break;
          y = _az_;
@@ -7359,7 +7854,8 @@
     var l = a.length - 1;
      /*<<array.ml:88:22>>*/ return 0 === l
             ? [0]
-            :  /*<<array.ml:88:46>>*/ caml_array_sub(a, 0, l);
+            :  /*<<array.ml:88:46>>*/ caml_array_sub
+               /*<<array.ml:88:46>>*/ (a, 0, l);
     /*<<array.ml:88:62>>*/ }
    function append(a1, a2){
     var l1 = a1.length - 1;
@@ -7367,24 +7863,26 @@
             ? copy(a2)
             : 0
               === a2.length - 1
-              ?  /*<<array.ml:93:29>>*/ caml_array_sub(a1, 0, l1)
-              :  /*<<array.ml:94:7>>*/ runtime.caml_array_append(a1, a2);
+              ?  /*<<array.ml:93:29>>*/ caml_array_sub
+                 /*<<array.ml:93:29>>*/ (a1, 0, l1)
+              :  /*<<array.ml:94:7>>*/ runtime.caml_array_append
+                 /*<<array.ml:94:7>>*/ (a1, a2);
     /*<<array.ml:94:24>>*/ }
    function sub(a, ofs, len){
      /*<<array.ml:97:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
       /*<<array.ml:99:7>>*/ return  /*<<array.ml:99:7>>*/ caml_array_sub
-             (a, ofs, len);
+              /*<<array.ml:99:7>>*/ (a, ofs, len);
      /*<<array.ml:98:7>>*/ return  /*<<array.ml:98:7>>*/ caml_call1
-            (Stdlib[1], cst_Array_sub);
+             /*<<array.ml:98:7>>*/ (Stdlib[1], cst_Array_sub);
     /*<<array.ml:99:27>>*/ }
    function fill(a, ofs, len, v){
      /*<<array.ml:102:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
       /*<<array.ml:104:7>>*/ return  /*<<array.ml:104:7>>*/ runtime.caml_array_fill
-             (a, ofs, len, v);
+              /*<<array.ml:104:7>>*/ (a, ofs, len, v);
      /*<<array.ml:103:7>>*/ return  /*<<array.ml:103:7>>*/ caml_call1
-            (Stdlib[1], cst_Array_fill);
+             /*<<array.ml:103:7>>*/ (Stdlib[1], cst_Array_fill);
     /*<<array.ml:104:30>>*/ }
    function blit(a1, ofs1, a2, ofs2, len){
      /*<<array.ml:107:2>>*/ if
@@ -7395,9 +7893,9 @@
         (a1.length - 1 - len | 0) >= ofs1
         && 0 <= ofs2 && (a2.length - 1 - len | 0) >= ofs2)
       /*<<array.ml:110:7>>*/ return  /*<<array.ml:110:7>>*/ runtime.caml_array_blit
-             (a1, ofs1, a2, ofs2, len);
+              /*<<array.ml:110:7>>*/ (a1, ofs1, a2, ofs2, len);
      /*<<array.ml:109:7>>*/ return  /*<<array.ml:109:7>>*/ caml_call1
-            (Stdlib[1], cst_Array_blit);
+             /*<<array.ml:109:7>>*/ (Stdlib[1], cst_Array_blit);
     /*<<array.ml:110:38>>*/ }
    function iter(f, a){
     var _as_ = a.length - 2 | 0, _ar_ =  /*<<array.ml:113:2>>*/ 0;
@@ -7405,7 +7903,7 @@
      var i = _ar_;
      for(;;){
        /*<<array.ml:113:31>>*/  /*<<array.ml:113:31>>*/ caml_call1
-       (f, a[1 + i]);
+        /*<<array.ml:113:31>>*/ (f, a[1 + i]);
       var _at_ =  /*<<array.ml:113:31>>*/ i + 1 | 0;
       if(_as_ === i) break;
       i = _at_;
@@ -7416,13 +7914,14 @@
    function iter2(f, a, b){
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
       /*<<array.ml:117:4>>*/ return  /*<<array.ml:117:4>>*/ caml_call1
-             (Stdlib[1], cst_Array_iter2_arrays_must_ha);
+              /*<<array.ml:117:4>>*/ (Stdlib[1],
+              cst_Array_iter2_arrays_must_ha);
     var _ap_ = a.length - 2 | 0, _ao_ =  /*<<array.ml:119:4>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
        /*<<array.ml:119:33>>*/  /*<<array.ml:119:33>>*/ caml_call2
-       (f, a[1 + i], b[1 + i]);
+        /*<<array.ml:119:33>>*/ (f, a[1 + i], b[1 + i]);
       var _aq_ =  /*<<array.ml:119:33>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
@@ -7436,14 +7935,16 @@
     var
      r =
         /*<<array.ml:124:12>>*/  /*<<array.ml:124:12>>*/ caml_make_vect
-        (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
+         /*<<array.ml:124:12>>*/ (l,
+          /*<<array.ml:124:21>>*/ caml_call1 /*<<array.ml:124:21>>*/ (f, a[1])),
      _am_ =  /*<<array.ml:125:4>>*/ l - 1 | 0,
      _al_ =  /*<<array.ml:124:12>>*/ 1;
     if(_am_ >= 1){
      var i = _al_;
      for(;;){
        /*<<array.ml:126:6>>*/ r[1 + i] =
-        /*<<array.ml:126:21>>*/ caml_call1(f, a[1 + i]);
+        /*<<array.ml:126:21>>*/ caml_call1
+         /*<<array.ml:126:21>>*/ (f, a[1 + i]);
       var _an_ =  /*<<array.ml:126:6>>*/ i + 1 | 0;
       if(_am_ === i) break;
       i = _an_;
@@ -7457,7 +7958,8 @@
      var i = _ai_;
      for(;;){
        /*<<array.ml:133:4>>*/ a[1 + i] =
-        /*<<array.ml:133:19>>*/ caml_call1(f, a[1 + i]);
+        /*<<array.ml:133:19>>*/ caml_call1
+         /*<<array.ml:133:19>>*/ (f, a[1 + i]);
       var _ak_ =  /*<<array.ml:133:4>>*/ i + 1 | 0;
       if(_aj_ === i) break;
       i = _ak_;
@@ -7471,7 +7973,8 @@
      var i = _af_;
      for(;;){
        /*<<array.ml:138:4>>*/ a[1 + i] =
-        /*<<array.ml:138:19>>*/ caml_call2(f, i, a[1 + i]);
+        /*<<array.ml:138:19>>*/ caml_call2
+         /*<<array.ml:138:19>>*/ (f, i, a[1 + i]);
       var _ah_ =  /*<<array.ml:138:4>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _ah_;
@@ -7483,19 +7986,23 @@
     var la = a.length - 1, lb =  /*<<array.ml:143:2>>*/ b.length - 1;
     if(la !== lb)
       /*<<array.ml:145:4>>*/ return  /*<<array.ml:145:4>>*/ caml_call1
-             (Stdlib[1], cst_Array_map2_arrays_must_hav);
+              /*<<array.ml:145:4>>*/ (Stdlib[1],
+              cst_Array_map2_arrays_must_hav);
     if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
     var
      r =
         /*<<array.ml:148:14>>*/  /*<<array.ml:148:14>>*/ caml_make_vect
-        (la,  /*<<array.ml:148:24>>*/ caml_call2(f, a[1], b[1])),
+         /*<<array.ml:148:14>>*/ (la,
+          /*<<array.ml:148:24>>*/ caml_call2
+           /*<<array.ml:148:24>>*/ (f, a[1], b[1])),
      _ad_ =  /*<<array.ml:149:6>>*/ la - 1 | 0,
      _ac_ =  /*<<array.ml:148:14>>*/ 1;
     if(_ad_ >= 1){
      var i = _ac_;
      for(;;){
        /*<<array.ml:150:8>>*/ r[1 + i] =
-        /*<<array.ml:150:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
+        /*<<array.ml:150:23>>*/ caml_call2
+         /*<<array.ml:150:23>>*/ (f, a[1 + i], b[1 + i]);
       var _ae_ =  /*<<array.ml:150:8>>*/ i + 1 | 0;
       if(_ad_ === i) break;
       i = _ae_;
@@ -7509,7 +8016,7 @@
      var i = _$_;
      for(;;){
        /*<<array.ml:157:31>>*/  /*<<array.ml:157:31>>*/ caml_call2
-       (f, i, a[1 + i]);
+        /*<<array.ml:157:31>>*/ (f, i, a[1 + i]);
       var _ab_ =  /*<<array.ml:157:31>>*/ i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
@@ -7523,14 +8030,17 @@
     var
      r =
         /*<<array.ml:162:12>>*/  /*<<array.ml:162:12>>*/ caml_make_vect
-        (l,  /*<<array.ml:162:21>>*/ caml_call2(f, 0, a[1])),
+         /*<<array.ml:162:12>>*/ (l,
+          /*<<array.ml:162:21>>*/ caml_call2
+           /*<<array.ml:162:21>>*/ (f, 0, a[1])),
      _Z_ =  /*<<array.ml:163:4>>*/ l - 1 | 0,
      _Y_ =  /*<<array.ml:162:12>>*/ 1;
     if(_Z_ >= 1){
      var i = _Y_;
      for(;;){
        /*<<array.ml:164:6>>*/ r[1 + i] =
-        /*<<array.ml:164:21>>*/ caml_call2(f, i, a[1 + i]);
+        /*<<array.ml:164:21>>*/ caml_call2
+         /*<<array.ml:164:21>>*/ (f, i, a[1 + i]);
       var ___ =  /*<<array.ml:164:6>>*/ i + 1 | 0;
       if(_Z_ === i) break;
       i = ___;
@@ -7565,7 +8075,7 @@
      hd = l[1],
      a =
         /*<<array.ml:182:14>>*/  /*<<array.ml:182:14>>*/ caml_make_vect
-        (list_length(0, l), hd),
+         /*<<array.ml:182:14>>*/ (list_length(0, l), hd),
      i = 1,
      param = tl;
     for(;;){
@@ -7585,7 +8095,9 @@
     if(_W_ >= 0){
      var i = _V_;
      for(;;){
-      r[1] =  /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
+      r[1] =
+        /*<<array.ml:191:9>>*/ caml_call2
+         /*<<array.ml:191:9>>*/ (f, r[1], a[1 + i]);
       var _X_ =  /*<<array.ml:190:2>>*/ i + 1 | 0;
       if(_W_ === i) break;
       i = _X_;
@@ -7600,12 +8112,12 @@
     var
      match =
         /*<<array.ml:198:19>>*/  /*<<array.ml:198:19>>*/ caml_call2
-        (f, acc, input_array[1]),
+         /*<<array.ml:198:19>>*/ (f, acc, input_array[1]),
      elt = match[2],
      acc$0 = match[1],
      output_array =
         /*<<array.ml:199:23>>*/  /*<<array.ml:199:23>>*/ caml_make_vect
-        (len, elt),
+         /*<<array.ml:199:23>>*/ (len, elt),
      acc$1 =  /*<<array.ml:200:14>>*/ [0, acc$0],
      _T_ =  /*<<array.ml:201:4>>*/ len - 1 | 0,
      _S_ =  /*<<array.ml:200:14>>*/ 1;
@@ -7615,7 +8127,7 @@
       var
        match$0 =
           /*<<array.ml:202:22>>*/  /*<<array.ml:202:22>>*/ caml_call2
-          (f, acc$1[1], input_array[1 + i]),
+           /*<<array.ml:202:22>>*/ (f, acc$1[1], input_array[1 + i]),
        elt$0 = match$0[2],
        acc$2 = match$0[1];
       acc$1[1] = acc$2;
@@ -7634,7 +8146,9 @@
     if(_Q_ >= 0){
      var i = _Q_;
      for(;;){
-      r[1] =  /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
+      r[1] =
+        /*<<array.ml:212:9>>*/ caml_call2
+         /*<<array.ml:212:9>>*/ (f, a[1 + i], r[1]);
       var _R_ =  /*<<array.ml:211:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _R_;
@@ -7647,7 +8161,8 @@
      /*<<array.ml:219:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:219:18>>*/ return 0;
       /*<<array.ml:220:12>>*/ if
-      ( /*<<array.ml:220:12>>*/ caml_call1(p, a[1 + i]))
+      ( /*<<array.ml:220:12>>*/ caml_call1
+         /*<<array.ml:220:12>>*/ (p, a[1 + i]))
        /*<<array.ml:220:36>>*/ return 1;
      var i$0 =  /*<<array.ml:221:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7658,7 +8173,9 @@
      /*<<array.ml:227:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:227:18>>*/ return 1;
       /*<<array.ml:228:12>>*/ if
-      (!  /*<<array.ml:228:12>>*/ caml_call1(p, a[1 + i]))
+      (!
+        /*<<array.ml:228:12>>*/ caml_call1
+         /*<<array.ml:228:12>>*/ (p, a[1 + i]))
        /*<<array.ml:229:9>>*/ return 0;
      var i$0 =  /*<<array.ml:228:36>>*/ i + 1 | 0;
      i = i$0;
@@ -7668,12 +8185,14 @@
     var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
       /*<<array.ml:235:19>>*/ return  /*<<array.ml:235:19>>*/ caml_call1
-             (Stdlib[1], cst_Array_for_all2);
+              /*<<array.ml:235:19>>*/ (Stdlib[1], cst_Array_for_all2);
     var i = 0;
      /*<<array.ml:237:4>>*/ for(;;){
      if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
       /*<<array.ml:238:12>>*/ if
-      (!  /*<<array.ml:238:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
+      (!
+        /*<<array.ml:238:12>>*/ caml_call2
+         /*<<array.ml:238:12>>*/ (p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:239:9>>*/ return 0;
      var i$0 =  /*<<array.ml:238:55>>*/ i + 1 | 0;
      i = i$0;
@@ -7683,12 +8202,13 @@
     var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
       /*<<array.ml:245:19>>*/ return  /*<<array.ml:245:19>>*/ caml_call1
-             (Stdlib[1], cst_Array_exists2);
+              /*<<array.ml:245:19>>*/ (Stdlib[1], cst_Array_exists2);
     var i = 0;
      /*<<array.ml:247:4>>*/ for(;;){
      if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
       /*<<array.ml:248:12>>*/ if
-      ( /*<<array.ml:248:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
+      ( /*<<array.ml:248:12>>*/ caml_call2
+         /*<<array.ml:248:12>>*/ (p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:248:55>>*/ return 1;
      var i$0 =  /*<<array.ml:249:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7699,7 +8219,10 @@
      /*<<array.ml:255:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:255:18>>*/ return 0;
       /*<<array.ml:256:12>>*/ if
-      (0 ===  /*<<array.ml:256:12>>*/ runtime.caml_compare(a[1 + i], x))
+      (0
+       ===
+         /*<<array.ml:256:12>>*/ runtime.caml_compare
+          /*<<array.ml:256:12>>*/ (a[1 + i], x))
        /*<<array.ml:256:48>>*/ return 1;
      var i$0 =  /*<<array.ml:257:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7719,7 +8242,8 @@
      /*<<array.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:271:18>>*/ return 0;
      var x =  /*<<array.ml:273:14>>*/ a[1 + i];
-      /*<<array.ml:274:9>>*/ if( /*<<array.ml:274:9>>*/ caml_call1(p, x))
+      /*<<array.ml:274:9>>*/ if
+      ( /*<<array.ml:274:9>>*/ caml_call1 /*<<array.ml:274:9>>*/ (p, x))
        /*<<array.ml:274:18>>*/ return [0, x];
      var i$0 =  /*<<array.ml:275:11>>*/ i + 1 | 0;
      i = i$0;
@@ -7730,7 +8254,8 @@
      /*<<array.ml:282:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:282:18>>*/ return 0;
       /*<<array.ml:283:12>>*/ if
-      ( /*<<array.ml:283:12>>*/ caml_call1(p, a[1 + i]))
+      ( /*<<array.ml:283:12>>*/ caml_call1
+         /*<<array.ml:283:12>>*/ (p, a[1 + i]))
        /*<<array.ml:283:36>>*/ return [0, i];
      var i$0 =  /*<<array.ml:284:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7743,7 +8268,7 @@
      var
       r =
          /*<<array.ml:292:12>>*/  /*<<array.ml:292:12>>*/ caml_call1
-         (f, a[1 + i]);
+          /*<<array.ml:292:12>>*/ (f, a[1 + i]);
      if(r)  /*<<array.ml:294:23>>*/ return r;
      var i$0 =  /*<<array.ml:293:16>>*/ i + 1 | 0;
      i = i$0;
@@ -7756,7 +8281,7 @@
      var
       r =
          /*<<array.ml:303:12>>*/  /*<<array.ml:303:12>>*/ caml_call2
-         (f, i, a[1 + i]);
+          /*<<array.ml:303:12>>*/ (f, i, a[1 + i]);
      if(r)  /*<<array.ml:305:23>>*/ return r;
      var i$0 =  /*<<array.ml:304:16>>*/ i + 1 | 0;
      i = i$0;
@@ -7764,7 +8289,8 @@
     /*<<array.ml:307:8>>*/ }
    function split(x){
      /*<<array.ml:310:2>>*/ if
-     ( /*<<array.ml:310:5>>*/ runtime.caml_equal(x, [0]))
+     ( /*<<array.ml:310:5>>*/ runtime.caml_equal
+        /*<<array.ml:310:5>>*/ (x, [0]))
       /*<<array.ml:310:19>>*/ return [0, [0], [0]];
     var
      match = x[1],
@@ -7772,9 +8298,11 @@
      a0 = match[1],
      n =  /*<<array.ml:313:4>>*/ x.length - 1,
      a =
-        /*<<array.ml:314:12>>*/  /*<<array.ml:314:12>>*/ caml_make_vect(n, a0),
+        /*<<array.ml:314:12>>*/  /*<<array.ml:314:12>>*/ caml_make_vect
+         /*<<array.ml:314:12>>*/ (n, a0),
      b =
-        /*<<array.ml:315:12>>*/  /*<<array.ml:315:12>>*/ caml_make_vect(n, b0),
+        /*<<array.ml:315:12>>*/  /*<<array.ml:315:12>>*/ caml_make_vect
+         /*<<array.ml:315:12>>*/ (n, b0),
      _O_ =  /*<<array.ml:316:4>>*/ n - 1 | 0,
      _N_ =  /*<<array.ml:315:12>>*/ 1;
     if(_O_ >= 1){
@@ -7794,12 +8322,12 @@
     var na = a.length - 1, nb =  /*<<array.ml:326:2>>*/ b.length - 1;
     if(na !== nb)
       /*<<array.ml:327:19>>*/  /*<<array.ml:327:19>>*/ caml_call1
-      (Stdlib[1], cst_Array_combine);
+       /*<<array.ml:327:19>>*/ (Stdlib[1], cst_Array_combine);
     if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
     var
      x =
         /*<<array.ml:330:12>>*/  /*<<array.ml:330:12>>*/ caml_make_vect
-        (na, [0, a[1], b[1]]),
+         /*<<array.ml:330:12>>*/ (na, [0, a[1], b[1]]),
      _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
      _K_ =  /*<<array.ml:330:12>>*/ 1;
     if(_L_ >= 1){
@@ -7830,7 +8358,7 @@
        _E_ =  /*<<array.ml:343:25>>*/ caml_check_bound(a, _D_)[1 + _D_];
       if
        ( /*<<array.ml:343:9>>*/ caml_call2
-         (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
+          /*<<array.ml:343:9>>*/ (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
         < 0)
        x[1] = i31 + 1 | 0;
       var
@@ -7839,7 +8367,7 @@
        _H_ = x[1];
       if
        ( /*<<array.ml:344:9>>*/ caml_call2
-         (cmp, caml_check_bound(a, _H_)[1 + _H_], _G_)
+          /*<<array.ml:344:9>>*/ (cmp, caml_check_bound(a, _H_)[1 + _H_], _G_)
         < 0)
        x[1] = i31 + 2 | 0;
       return x[1];
@@ -7852,12 +8380,14 @@
        (0
         >
           /*<<array.ml:347:22>>*/ caml_call2
-          (cmp, caml_check_bound(a, i31)[1 + i31], _J_))
+           /*<<array.ml:347:22>>*/ (cmp,
+           caml_check_bound(a, i31)[1 + i31],
+           _J_))
         /*<<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:36>>*/ ([0, Bottom, i], 1);
      /*<<array.ml:349:52>>*/ }
     var l = a.length - 1, _x_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
     if(_x_ >= 0){
@@ -7872,7 +8402,7 @@
          (0
           >=
             /*<<array.ml:353:7>>*/ caml_call2
-            (cmp, caml_check_bound(a, j)[1 + j], e$1))
+             /*<<array.ml:353:7>>*/ (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
         var _u_ =  /*<<array.ml:354:14>>*/ caml_check_bound(a, j)[1 + j];
          /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
@@ -7921,12 +8451,14 @@
           var father = (i$3 - 1 | 0) / 3 | 0;
           if(i$3 === father)
             /*<<array.ml:369:4>>*/ throw  /*<<array.ml:369:4>>*/ caml_maybe_attach_backtrace
-                  ([0, Assert_failure, _a_], 1);
+                   /*<<array.ml:369:4>>*/ ([0, Assert_failure, _a_], 1);
            /*<<array.ml:370:7>>*/ if
            (0
             <=
               /*<<array.ml:370:7>>*/ caml_call2
-              (cmp, caml_check_bound(a, father)[1 + father], e$0))
+               /*<<array.ml:370:7>>*/ (cmp,
+               caml_check_bound(a, father)[1 + father],
+               e$0))
            break;
           var
            _w_ =
@@ -7973,7 +8505,10 @@
       d = dstofs;
       /*<<array.ml:392:6>>*/ for(;;)
        /*<<array.ml:392:9>>*/ if
-       (0 <  /*<<array.ml:392:9>>*/ caml_call2(cmp, s1, s2)){
+       (0
+        <
+          /*<<array.ml:392:9>>*/ caml_call2
+           /*<<array.ml:392:9>>*/ (cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<array.ml:400:8>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
@@ -8013,7 +8548,9 @@
          (0
           >=
             /*<<array.ml:413:29>>*/ caml_call2
-            (cmp, caml_check_bound(dst, _o_)[1 + _o_], e))
+             /*<<array.ml:413:29>>*/ (cmp,
+             caml_check_bound(dst, _o_)[1 + _o_],
+             e))
          break;
         var
          _p_ = j[1],
@@ -8047,7 +8584,7 @@
      l2 = l - l1 | 0,
      t =
         /*<<array.ml:433:12>>*/  /*<<array.ml:433:12>>*/ caml_make_vect
-        (l2, caml_check_bound(a, 0)[1]);
+         /*<<array.ml:433:12>>*/ (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);
@@ -8060,7 +8597,7 @@
       var
        j =
           /*<<array.ml:444:12>>*/  /*<<array.ml:444:12>>*/ caml_call1
-          (rand, i + 1 | 0),
+           /*<<array.ml:444:12>>*/ (rand, i + 1 | 0),
        v =  /*<<array.ml:445:12>>*/ 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;
@@ -8105,7 +8642,7 @@
     var
      l =
         /*<<array.ml:484:10>>*/  /*<<array.ml:484:10>>*/ caml_call3
-        (Stdlib_Seq[5],
+         /*<<array.ml:484:10>>*/ (Stdlib_Seq[5],
          function(acc, x){
            /*<<array.ml:484:38>>*/ return [0, x, acc];
           /*<<array.ml:484:44>>*/ },
@@ -8118,7 +8655,7 @@
      len =  /*<<array.ml:475:16>>*/ list_length(0, l),
      a =
         /*<<array.ml:476:14>>*/  /*<<array.ml:476:14>>*/ caml_make_vect
-        (len, hd),
+         /*<<array.ml:476:14>>*/ (len, hd),
      i$1 =  /*<<array.ml:475:16>>*/ len - 2 | 0,
      i = i$1,
      param = tl;
@@ -8227,7 +8764,8 @@
     nan = Stdlib[24],
     signaling_nan =
        /*<<float.ml:38:20>>*/  /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
-       (runtime.caml_int64_create_lo_mi_hi(1, 0, 32752));
+        /*<<float.ml:38:20>>*/ (runtime.caml_int64_create_lo_mi_hi
+         (1, 0, 32752));
    function is_finite(x){
      /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0;
     /*<<float.ml:39:38>>*/ }
@@ -8258,16 +8796,22 @@
       "Float.Array.map2: arrays must have the same length";
    function is_integer(x){
     var
-     _aX_ = x ===  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x) ? 1 : 0;
+     _aX_ =
+       x
+        ===
+          /*<<float.ml:116:23>>*/ runtime.caml_trunc_float
+           /*<<float.ml:116:23>>*/ (x)
+        ? 1
+        : 0;
     return _aX_ ? is_finite(x) : _aX_;
     /*<<float.ml:116:45>>*/ }
    function succ(x){
      /*<<float.ml:121:13>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
-            (x, infinity);
+             /*<<float.ml:121:13>>*/ (x, infinity);
     /*<<float.ml:121:34>>*/ }
    function pred(x){
      /*<<float.ml:122:13>>*/ return  /*<<float.ml:122:13>>*/ caml_nextafter_float
-            (x, neg_infinity);
+             /*<<float.ml:122:13>>*/ (x, neg_infinity);
     /*<<float.ml:122:38>>*/ }
    function equal(x, y){
      /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
@@ -8277,8 +8821,10 @@
     if(! (x < y)){
       /*<<float.ml:139:18>>*/ if
       (!
-        /*<<float.ml:139:18>>*/ caml_signbit_float(y)
-       &&  /*<<float.ml:139:34>>*/ caml_signbit_float(x))
+        /*<<float.ml:139:18>>*/ caml_signbit_float /*<<float.ml:139:18>>*/ (y)
+       &&
+         /*<<float.ml:139:34>>*/ caml_signbit_float
+          /*<<float.ml:139:34>>*/ (x))
       break a;
       /*<<float.ml:141:10>>*/ return x !== x ? x : y;
     }
@@ -8289,8 +8835,10 @@
     if(! (x < y)){
       /*<<float.ml:144:18>>*/ if
       (!
-        /*<<float.ml:144:18>>*/ caml_signbit_float(y)
-       &&  /*<<float.ml:144:34>>*/ caml_signbit_float(x))
+        /*<<float.ml:144:18>>*/ caml_signbit_float /*<<float.ml:144:18>>*/ (y)
+       &&
+         /*<<float.ml:144:34>>*/ caml_signbit_float
+          /*<<float.ml:144:34>>*/ (x))
       break a;
       /*<<float.ml:146:10>>*/ return y !== y ? y : x;
     }
@@ -8302,8 +8850,11 @@
      if(! (x < y)){
        /*<<float.ml:150:23>>*/ if
        (!
-         /*<<float.ml:150:23>>*/ caml_signbit_float(y)
-        &&  /*<<float.ml:150:39>>*/ caml_signbit_float(x))
+         /*<<float.ml:150:23>>*/ caml_signbit_float
+          /*<<float.ml:150:23>>*/ (y)
+        &&
+          /*<<float.ml:150:39>>*/ caml_signbit_float
+           /*<<float.ml:150:39>>*/ (x))
        break a;
        /*<<float.ml:150:68>>*/ return [0, y, x];
      }
@@ -8316,8 +8867,10 @@
     if(! (x < y)){
       /*<<float.ml:153:18>>*/ if
       (!
-        /*<<float.ml:153:18>>*/ caml_signbit_float(y)
-       &&  /*<<float.ml:153:34>>*/ caml_signbit_float(x))
+        /*<<float.ml:153:18>>*/ caml_signbit_float /*<<float.ml:153:18>>*/ (y)
+       &&
+         /*<<float.ml:153:34>>*/ caml_signbit_float
+          /*<<float.ml:153:34>>*/ (x))
       break a;
       /*<<float.ml:155:10>>*/ return y !== y ? x : y;
     }
@@ -8328,8 +8881,10 @@
     if(! (x < y)){
       /*<<float.ml:158:18>>*/ if
       (!
-        /*<<float.ml:158:18>>*/ caml_signbit_float(y)
-       &&  /*<<float.ml:158:34>>*/ caml_signbit_float(x))
+        /*<<float.ml:158:18>>*/ caml_signbit_float /*<<float.ml:158:18>>*/ (y)
+       &&
+         /*<<float.ml:158:34>>*/ caml_signbit_float
+          /*<<float.ml:158:34>>*/ (x))
       break a;
       /*<<float.ml:160:10>>*/ return x !== x ? y : x;
     }
@@ -8344,8 +8899,10 @@
     if(! (x < y)){
       /*<<float.ml:165:23>>*/ if
       (!
-        /*<<float.ml:165:23>>*/ caml_signbit_float(y)
-       &&  /*<<float.ml:165:39>>*/ caml_signbit_float(x))
+        /*<<float.ml:165:23>>*/ caml_signbit_float /*<<float.ml:165:23>>*/ (y)
+       &&
+         /*<<float.ml:165:39>>*/ caml_signbit_float
+          /*<<float.ml:165:39>>*/ (x))
       break a;
       /*<<float.ml:165:67>>*/ return [0, y, x];
     }
@@ -8353,11 +8910,11 @@
     /*<<float.ml:165:72>>*/ }
    function seeded_hash(seed, x){
      /*<<float.ml:169:25>>*/ return  /*<<float.ml:169:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<float.ml:169:25>>*/ (10, 100, seed, x);
     /*<<float.ml:169:56>>*/ }
    function hash(x){
      /*<<float.ml:170:13>>*/ return  /*<<float.ml:170:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<float.ml:170:13>>*/ (10, 100, 0, x);
     /*<<float.ml:170:41>>*/ }
    function unsafe_fill(a, ofs, len, v){
     var _aV_ = (ofs + len | 0) - 1 | 0;
@@ -8385,31 +8942,34 @@
        _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_;
+    return _aS_
+            ?  /*<<float.ml:191:6>>*/ caml_call1
+               /*<<float.ml:191:6>>*/ (Stdlib[1], msg)
+            : _aS_;
     /*<<float.ml:191:21>>*/ }
    function make(n, v){
     var
      result =
         /*<<float.ml:194:17>>*/  /*<<float.ml:194:17>>*/ caml_floatarray_create
-        (n);
+         /*<<float.ml:194:17>>*/ (n);
      /*<<float.ml:195:4>>*/ unsafe_fill(result, 0, n, v);
      /*<<float.ml:195:4>>*/ return result;
     /*<<float.ml:196:10>>*/ }
    function init(l, f){
      /*<<float.ml:199:4>>*/ if(0 > l)
       /*<<float.ml:199:18>>*/ return  /*<<float.ml:199:18>>*/ caml_call1
-             (Stdlib[1], cst_Float_Array_init);
+              /*<<float.ml:199:18>>*/ (Stdlib[1], cst_Float_Array_init);
     var
      res =
         /*<<float.ml:201:16>>*/  /*<<float.ml:201:16>>*/ caml_floatarray_create
-        (l),
+         /*<<float.ml:201:16>>*/ (l),
      _aP_ =  /*<<float.ml:202:6>>*/ l - 1 | 0,
      _aO_ =  /*<<float.ml:201:16>>*/ 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:25>>*/ caml_call1 /*<<float.ml:203:25>>*/ (f, i);
       var _aQ_ =  /*<<float.ml:203:8>>*/ i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
@@ -8420,11 +8980,13 @@
    function make_matrix(sx, sy, v){
      /*<<float.ml:209:4>>*/ if(sy < 0)
       /*<<float.ml:209:19>>*/  /*<<float.ml:209:19>>*/ caml_call1
-      (Stdlib[1], cst_Float_Array_make_matrix);
+       /*<<float.ml:209:19>>*/ (Stdlib[1], cst_Float_Array_make_matrix);
     var
      res =
         /*<<float.ml:210:14>>*/  /*<<float.ml:210:14>>*/ caml_make_vect
-        (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
+         /*<<float.ml:210:14>>*/ (sx,
+          /*<<float.ml:210:28>>*/ caml_floatarray_create
+           /*<<float.ml:210:28>>*/ (0));
     if(0 < sy){
      var _aM_ = sx - 1 | 0, _aL_ =  /*<<float.ml:211:19>>*/ 0;
      if(_aM_ >= 0){
@@ -8442,11 +9004,13 @@
    function init_matrix(sx, sy, f){
      /*<<float.ml:220:4>>*/ if(sy < 0)
       /*<<float.ml:220:19>>*/  /*<<float.ml:220:19>>*/ caml_call1
-      (Stdlib[1], cst_Float_Array_init_matrix);
+       /*<<float.ml:220:19>>*/ (Stdlib[1], cst_Float_Array_init_matrix);
     var
      res =
         /*<<float.ml:221:14>>*/  /*<<float.ml:221:14>>*/ caml_make_vect
-        (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
+         /*<<float.ml:221:14>>*/ (sx,
+          /*<<float.ml:221:28>>*/ caml_floatarray_create
+           /*<<float.ml:221:28>>*/ (0));
     if(0 < sy){
      var _aG_ = sx - 1 | 0, _aF_ =  /*<<float.ml:222:19>>*/ 0;
      if(_aG_ >= 0){
@@ -8455,14 +9019,15 @@
        var
         row =
            /*<<float.ml:224:18>>*/  /*<<float.ml:224:18>>*/ caml_floatarray_create
-           (sy),
+            /*<<float.ml:224:18>>*/ (sy),
         _aI_ =  /*<<float.ml:225:8>>*/ sy - 1 | 0,
         _aH_ =  /*<<float.ml:224:18>>*/ 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:27>>*/ caml_call2
+            /*<<float.ml:226:27>>*/ (f, x, y);
          var _aK_ =  /*<<float.ml:226:10>>*/ y + 1 | 0;
          if(_aI_ === y) break;
          y = _aK_;
@@ -8483,11 +9048,11 @@
      l2 =  /*<<float.ml:235:4>>*/ a2.length - 1,
      result =
         /*<<float.ml:236:17>>*/  /*<<float.ml:236:17>>*/ caml_floatarray_create
-        (l1 + l2 | 0);
+         /*<<float.ml:236:17>>*/ (l1 + l2 | 0);
      /*<<float.ml:237:4>>*/  /*<<float.ml:237:4>>*/ caml_floatarray_blit
-     (a1, 0, result, 0, l1);
+      /*<<float.ml:237:4>>*/ (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>>*/ (a2, 0, result, l1, l2);
      /*<<float.ml:238:4>>*/ return result;
     /*<<float.ml:239:10>>*/ }
    function concat(l){
@@ -8502,28 +9067,28 @@
         acc <= x
          ? x
          :  /*<<float.ml:243:26>>*/ caml_call1
-           (Stdlib[1], cst_Float_Array_concat);
+            /*<<float.ml:243:26>>*/ (Stdlib[1], cst_Float_Array_concat);
      acc = acc$0;
      param = tl;
     }
     var
      result =
         /*<<float.ml:251:17>>*/  /*<<float.ml:251:17>>*/ caml_floatarray_create
-        (acc),
+         /*<<float.ml:251:17>>*/ (acc),
      l$0 = l,
      i = 0;
      /*<<float.ml:253: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
-             ([0, Assert_failure, _a_], 1);
+              /*<<float.ml:254:14>>*/ ([0, Assert_failure, _a_], 1);
      }
      var
       tl$0 = l$0[2],
       hd$0 = l$0[1],
       hlen =  /*<<float.ml:256:8>>*/ hd$0.length - 1;
       /*<<float.ml:257:8>>*/  /*<<float.ml:257:8>>*/ caml_floatarray_blit
-      (hd$0, 0, result, i, hlen);
+       /*<<float.ml:257:8>>*/ (hd$0, 0, result, i, hlen);
      var i$0 = i + hlen | 0;
      l$0 = tl$0;
      i = i$0;
@@ -8534,9 +9099,9 @@
     var
      result =
         /*<<float.ml:265:17>>*/  /*<<float.ml:265:17>>*/ caml_floatarray_create
-        (len);
+         /*<<float.ml:265:17>>*/ (len);
      /*<<float.ml:266:4>>*/  /*<<float.ml:266:4>>*/ caml_floatarray_blit
-     (a, ofs, result, 0, len);
+      /*<<float.ml:266:4>>*/ (a, ofs, result, 0, len);
      /*<<float.ml:266:4>>*/ return result;
     /*<<float.ml:267:10>>*/ }
    function copy(a){
@@ -8544,9 +9109,9 @@
      l = a.length - 1,
      result =
         /*<<float.ml:271:17>>*/  /*<<float.ml:271:17>>*/ caml_floatarray_create
-        (l);
+         /*<<float.ml:271:17>>*/ (l);
      /*<<float.ml:272:4>>*/  /*<<float.ml:272:4>>*/ caml_floatarray_blit
-     (a, 0, result, 0, l);
+      /*<<float.ml:272:4>>*/ (a, 0, result, 0, l);
      /*<<float.ml:272:4>>*/ return result;
     /*<<float.ml:273:10>>*/ }
    function fill(a, ofs, len, v){
@@ -8557,11 +9122,11 @@
      /*<<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
-            (src, sofs, dst, dofs, len);
+             /*<<float.ml:282:4>>*/ (src, sofs, dst, dofs, len);
     /*<<float.ml:282:37>>*/ }
    function to_list(a){
      /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:25>>*/ caml_call2
-            (Stdlib_List[11],
+             /*<<float.ml:285:25>>*/ (Stdlib_List[11],
              a.length - 1,
              function(_aE_){ /*<<?>>*/ return a[1 + _aE_];});
     /*<<float.ml:285:39>>*/ }
@@ -8569,7 +9134,8 @@
     var
      result =
         /*<<float.ml:288:17>>*/  /*<<float.ml:288:17>>*/ caml_floatarray_create
-        ( /*<<float.ml:288:24>>*/ caml_call1(Stdlib_List[1], l)),
+         /*<<float.ml:288:17>>*/ ( /*<<float.ml:288:24>>*/ caml_call1
+           /*<<float.ml:288:24>>*/ (Stdlib_List[1], l)),
      i = 0,
      l$0 = l;
      /*<<float.ml:290:6>>*/ for(;;){
@@ -8587,7 +9153,7 @@
      var i = _aB_;
      for(;;){
        /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ caml_call1
-       (f, a[1 + i]);
+        /*<<float.ml:298:33>>*/ (f, a[1 + i]);
       var _aD_ =  /*<<float.ml:298:33>>*/ i + 1 | 0;
       if(_aC_ === i) break;
       i = _aD_;
@@ -8598,13 +9164,14 @@
    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
-             (Stdlib[1], cst_Float_Array_iter2_arrays_m);
+              /*<<float.ml:303:6>>*/ (Stdlib[1],
+              cst_Float_Array_iter2_arrays_m);
     var _az_ = a.length - 2 | 0, _ay_ =  /*<<float.ml:305:6>>*/ 0;
     if(_az_ >= 0){
      var i = _ay_;
      for(;;){
        /*<<float.ml:305:35>>*/  /*<<float.ml:305:35>>*/ caml_call2
-       (f, a[1 + i], b[1 + i]);
+        /*<<float.ml:305:35>>*/ (f, a[1 + i], b[1 + i]);
       var _aA_ =  /*<<float.ml:305:35>>*/ i + 1 | 0;
       if(_az_ === i) break;
       i = _aA_;
@@ -8617,14 +9184,15 @@
      l = a.length - 1,
      r =
         /*<<float.ml:309:12>>*/  /*<<float.ml:309:12>>*/ caml_floatarray_create
-        (l),
+         /*<<float.ml:309:12>>*/ (l),
      _aw_ =  /*<<float.ml:310:4>>*/ l - 1 | 0,
      _av_ =  /*<<float.ml:309:12>>*/ 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:21>>*/ caml_call1
+         /*<<float.ml:311:21>>*/ (f, a[1 + i]);
       var _ax_ =  /*<<float.ml:311:6>>*/ i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
@@ -8638,7 +9206,8 @@
      var i = _as_;
      for(;;){
        /*<<float.ml:318:6>>*/ a[1 + i] =
-        /*<<float.ml:318:21>>*/ caml_call1(f, a[1 + i]);
+        /*<<float.ml:318:21>>*/ caml_call1
+         /*<<float.ml:318:21>>*/ (f, a[1 + i]);
       var _au_ =  /*<<float.ml:318:6>>*/ i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
@@ -8650,18 +9219,20 @@
     var la = a.length - 1, lb =  /*<<float.ml:323:4>>*/ b.length - 1;
     if(la !== lb)
       /*<<float.ml:325:6>>*/ return  /*<<float.ml:325:6>>*/ caml_call1
-             (Stdlib[1], cst_Float_Array_map2_arrays_mu);
+              /*<<float.ml:325:6>>*/ (Stdlib[1],
+              cst_Float_Array_map2_arrays_mu);
     var
      r =
         /*<<float.ml:327:14>>*/  /*<<float.ml:327:14>>*/ caml_floatarray_create
-        (la),
+         /*<<float.ml:327:14>>*/ (la),
      _aq_ =  /*<<float.ml:328:6>>*/ la - 1 | 0,
      _ap_ =  /*<<float.ml:327:14>>*/ 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:23>>*/ caml_call2
+         /*<<float.ml:329:23>>*/ (f, a[1 + i], b[1 + i]);
       var _ar_ =  /*<<float.ml:329:8>>*/ i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
@@ -8675,7 +9246,7 @@
      var i = _am_;
      for(;;){
        /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ caml_call2
-       (f, i, a[1 + i]);
+        /*<<float.ml:336:33>>*/ (f, i, a[1 + i]);
       var _ao_ =  /*<<float.ml:336:33>>*/ i + 1 | 0;
       if(_an_ === i) break;
       i = _ao_;
@@ -8688,14 +9259,15 @@
      l = a.length - 1,
      r =
         /*<<float.ml:340:12>>*/  /*<<float.ml:340:12>>*/ caml_floatarray_create
-        (l),
+         /*<<float.ml:340:12>>*/ (l),
      _ak_ =  /*<<float.ml:341:4>>*/ l - 1 | 0,
      _aj_ =  /*<<float.ml:340:12>>*/ 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:21>>*/ caml_call2
+         /*<<float.ml:342:21>>*/ (f, i, a[1 + i]);
       var _al_ =  /*<<float.ml:342:6>>*/ i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
@@ -8709,7 +9281,8 @@
      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:21>>*/ caml_call2
+         /*<<float.ml:349:21>>*/ (f, i, a[1 + i]);
       var _ai_ =  /*<<float.ml:349:6>>*/ i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
@@ -8725,7 +9298,9 @@
     if(_ae_ >= 0){
      var i = _ad_;
      for(;;){
-      r[1] =  /*<<float.ml:356:11>>*/ caml_call2(f, r[1], a[1 + i]);
+      r[1] =
+        /*<<float.ml:356:11>>*/ caml_call2
+         /*<<float.ml:356:11>>*/ (f, r[1], a[1 + i]);
       var _af_ =  /*<<float.ml:355:4>>*/ i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
@@ -8740,7 +9315,9 @@
     if(_ab_ >= 0){
      var i = _ab_;
      for(;;){
-      r[1] =  /*<<float.ml:364:11>>*/ caml_call2(f, a[1 + i], r[1]);
+      r[1] =
+        /*<<float.ml:364:11>>*/ caml_call2
+         /*<<float.ml:364:11>>*/ (f, a[1 + i], r[1]);
       var _ac_ =  /*<<float.ml:363:4>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
@@ -8753,7 +9330,8 @@
      /*<<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:14>>*/ caml_call1
+         /*<<float.ml:373:14>>*/ (p, a[1 + i]))
        /*<<float.ml:373:38>>*/ return 1;
      var i$0 =  /*<<float.ml:374:11>>*/ i + 1 | 0;
      i = i$0;
@@ -8764,7 +9342,9 @@
      /*<<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:382:14>>*/ caml_call1
+         /*<<float.ml:382:14>>*/ (p, a[1 + i]))
        /*<<float.ml:383:11>>*/ return 0;
      var i$0 =  /*<<float.ml:382:38>>*/ i + 1 | 0;
      i = i$0;
@@ -8774,7 +9354,11 @@
     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))
+     if
+      (0
+       ===
+         /*<<float.ml:391:22>>*/ caml_float_compare
+          /*<<float.ml:391:22>>*/ (a[1 + i], x))
        /*<<float.ml:391:50>>*/ return 1;
      var i$0 =  /*<<float.ml:392:11>>*/ i + 1 | 0;
      i = i$0;
@@ -8794,7 +9378,8 @@
      /*<<float.ml:410:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:410:20>>*/ return 0;
      var x =  /*<<float.ml:412:16>>*/ a[1 + i];
-      /*<<float.ml:413:11>>*/ if( /*<<float.ml:413:11>>*/ caml_call1(p, x))
+      /*<<float.ml:413:11>>*/ if
+      ( /*<<float.ml:413:11>>*/ caml_call1 /*<<float.ml:413:11>>*/ (p, x))
        /*<<float.ml:413:20>>*/ return [0, x];
      var i$0 =  /*<<float.ml:414:13>>*/ i + 1 | 0;
      i = i$0;
@@ -8805,7 +9390,8 @@
      /*<<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:14>>*/ caml_call1
+         /*<<float.ml:423:14>>*/ (p, a[1 + i]))
        /*<<float.ml:423:38>>*/ return [0, i];
      var i$0 =  /*<<float.ml:424:11>>*/ i + 1 | 0;
      i = i$0;
@@ -8818,7 +9404,7 @@
      var
       r =
          /*<<float.ml:433:14>>*/  /*<<float.ml:433:14>>*/ caml_call1
-         (f, a[1 + i]);
+          /*<<float.ml:433:14>>*/ (f, a[1 + i]);
      if(r)  /*<<float.ml:435:25>>*/ return r;
      var i$0 =  /*<<float.ml:434:18>>*/ i + 1 | 0;
      i = i$0;
@@ -8831,7 +9417,7 @@
      var
       r =
          /*<<float.ml:445:14>>*/  /*<<float.ml:445:14>>*/ caml_call2
-         (f, i, a[1 + i]);
+          /*<<float.ml:445:14>>*/ (f, i, a[1 + i]);
      if(r)  /*<<float.ml:447:25>>*/ return r;
      var i$0 =  /*<<float.ml:446:18>>*/ i + 1 | 0;
      i = i$0;
@@ -8854,7 +9440,9 @@
        _X_ =  /*<<float.ml:458:27>>*/ caml_check_bound(a, _W_)[1 + _W_];
       if
        ( /*<<float.ml:458:11>>*/ caml_call2
-         (cmp, caml_check_bound(a, i31)[1 + i31], _X_)
+          /*<<float.ml:458:11>>*/ (cmp,
+          caml_check_bound(a, i31)[1 + i31],
+          _X_)
         < 0)
        x[1] = i31 + 1 | 0;
       var
@@ -8863,7 +9451,9 @@
        ___ = x[1];
       if
        ( /*<<float.ml:459:11>>*/ caml_call2
-         (cmp, caml_check_bound(a, ___)[1 + ___], _Z_)
+          /*<<float.ml:459:11>>*/ (cmp,
+          caml_check_bound(a, ___)[1 + ___],
+          _Z_)
         < 0)
        x[1] = i31 + 2 | 0;
       return x[1];
@@ -8876,12 +9466,14 @@
        (0
         >
           /*<<float.ml:462:24>>*/ caml_call2
-          (cmp, caml_check_bound(a, i31)[1 + i31], _aa_))
+           /*<<float.ml:462:24>>*/ (cmp,
+           caml_check_bound(a, i31)[1 + i31],
+           _aa_))
         /*<<float.ml:463: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
-            ([0, Bottom, i], 1);
+             /*<<float.ml:464:38>>*/ ([0, Bottom, i], 1);
      /*<<float.ml:464:54>>*/ }
     var l = a.length - 1, _Q_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
     if(_Q_ >= 0){
@@ -8896,7 +9488,7 @@
          (0
           >=
             /*<<float.ml:468:9>>*/ caml_call2
-            (cmp, caml_check_bound(a, j)[1 + j], e$1))
+             /*<<float.ml:468:9>>*/ (cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
         var _N_ =  /*<<float.ml:469:16>>*/ caml_check_bound(a, j)[1 + j];
          /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
@@ -8945,12 +9537,14 @@
           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
-                  ([0, Assert_failure, _b_], 1);
+                   /*<<float.ml:484:6>>*/ ([0, Assert_failure, _b_], 1);
            /*<<float.ml:485:9>>*/ if
            (0
             <=
               /*<<float.ml:485:9>>*/ caml_call2
-              (cmp, caml_check_bound(a, father)[1 + father], e$0))
+               /*<<float.ml:485:9>>*/ (cmp,
+               caml_check_bound(a, father)[1 + father],
+               e$0))
            break;
           var
            _P_ =
@@ -8997,7 +9591,10 @@
       d = dstofs;
       /*<<float.ml:507:8>>*/ for(;;)
        /*<<float.ml:507:11>>*/ if
-       (0 <  /*<<float.ml:507:11>>*/ caml_call2(cmp, s1, s2)){
+       (0
+        <
+          /*<<float.ml:507:11>>*/ caml_call2
+           /*<<float.ml:507:11>>*/ (cmp, s1, s2)){
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<float.ml:515:10>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
@@ -9037,7 +9634,9 @@
          (0
           >=
             /*<<float.ml:528:31>>*/ caml_call2
-            (cmp, caml_check_bound(dst, _H_)[1 + _H_], e))
+             /*<<float.ml:528:31>>*/ (cmp,
+             caml_check_bound(dst, _H_)[1 + _H_],
+             e))
          break;
         var
          _I_ = j[1],
@@ -9071,7 +9670,7 @@
      l2 = l - l1 | 0,
      t =
         /*<<float.ml:548:14>>*/  /*<<float.ml:548:14>>*/ caml_floatarray_create
-        (l2);
+         /*<<float.ml:548:14>>*/ (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);
@@ -9084,7 +9683,7 @@
       var
        j =
           /*<<float.ml:559:14>>*/  /*<<float.ml:559:14>>*/ caml_call1
-          (rand, i + 1 | 0),
+           /*<<float.ml:559:14>>*/ (rand, i + 1 | 0),
        v =  /*<<float.ml:560:14>>*/ 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;
@@ -9129,7 +9728,7 @@
     var
      l =
         /*<<float.ml:599:12>>*/  /*<<float.ml:599:12>>*/ caml_call3
-        (Stdlib_Seq[5],
+         /*<<float.ml:599:12>>*/ (Stdlib_Seq[5],
          function(acc, x){
            /*<<float.ml:599:40>>*/ return [0, x, acc];
           /*<<float.ml:599:46>>*/ },
@@ -9137,10 +9736,10 @@
          i$2),
      len =
         /*<<float.ml:589:14>>*/  /*<<float.ml:589:14>>*/ caml_call1
-        (Stdlib_List[1], l),
+         /*<<float.ml:589:14>>*/ (Stdlib_List[1], l),
      a =
         /*<<float.ml:590:12>>*/  /*<<float.ml:590:12>>*/ caml_floatarray_create
-        (len),
+         /*<<float.ml:590:12>>*/ (len),
      i$1 =  /*<<float.ml:589:14>>*/ len - 1 | 0,
      i = i$1,
      param = l;
@@ -9159,14 +9758,16 @@
     var
      r =
         /*<<float.ml:606:14>>*/  /*<<float.ml:606:14>>*/ caml_make_vect
-        (l,  /*<<float.ml:606:27>>*/ caml_call1(f, a[1])),
+         /*<<float.ml:606:14>>*/ (l,
+          /*<<float.ml:606:27>>*/ caml_call1 /*<<float.ml:606:27>>*/ (f, a[1])),
      _s_ =  /*<<float.ml:607:6>>*/ l - 1 | 0,
      _r_ =  /*<<float.ml:606:14>>*/ 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:29>>*/ caml_call1
+         /*<<float.ml:608:29>>*/ (f, a[1 + i]);
       var _t_ =  /*<<float.ml:608:8>>*/ i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
@@ -9179,14 +9780,15 @@
      l = a.length - 1,
      r =
         /*<<float.ml:615:12>>*/  /*<<float.ml:615:12>>*/ caml_floatarray_create
-        (l),
+         /*<<float.ml:615:12>>*/ (l),
      _p_ =  /*<<float.ml:616:4>>*/ l - 1 | 0,
      _o_ =  /*<<float.ml:615:12>>*/ 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:21>>*/ caml_call1
+         /*<<float.ml:617:21>>*/ (f, a[1 + i]);
       var _q_ =  /*<<float.ml:617:6>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
@@ -9360,7 +9962,7 @@
     /*<<int32.ml:49:21>>*/ }
    function abs(n){
      /*<<int32.ml:50:12>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
-             (n, 0)
+              /*<<int32.ml:50:15>>*/ (n, 0)
             ? n
             : - n | 0;
     /*<<int32.ml:50:40>>*/ }
@@ -9379,15 +9981,18 @@
      unsigned_to_int =
        function(n){
          /*<<int32.ml:60:8>>*/ if
-         ( /*<<int32.ml:60:11>>*/ caml_greaterequal(n, 0)
-          &&  /*<<int32.ml:60:22>>*/ caml_lessequal(n, max_int$0))
+         ( /*<<int32.ml:60:11>>*/ caml_greaterequal
+            /*<<int32.ml:60:11>>*/ (n, 0)
+          &&
+            /*<<int32.ml:60:22>>*/ caml_lessequal
+             /*<<int32.ml:60:22>>*/ (n, max_int$0))
           /*<<int32.ml:61:10>>*/ return [0, n];
          /*<<int32.ml:63:10>>*/ return 0;
         /*<<int32.ml:63:14>>*/ };
    else{
     if(64 !== _a_)
       /*<<int32.ml:69:6>>*/ throw  /*<<int32.ml:69:6>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _b_], 1);
+             /*<<int32.ml:69:6>>*/ ([0, Assert_failure, _b_], 1);
     var
      unsigned_to_int =
        function(n){
@@ -9396,14 +10001,15 @@
    }
    function to_string(n){
      /*<<int32.ml:72:18>>*/ return  /*<<int32.ml:72:18>>*/ runtime.caml_format_int
-            ("%d", n);
+             /*<<int32.ml:72:18>>*/ ("%d", n);
     /*<<int32.ml:72:31>>*/ }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
      var
       _d_ =
          /*<<int32.ml:77:6>>*/ [0,
-          /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
+          /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string
+           /*<<int32.ml:77:11>>*/ (s)];
       /*<<int32.ml:77:6>>*/ return _d_;
     }
     catch(_e_){
@@ -9418,49 +10024,53 @@
      y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
      x =  /*<<int32.ml:86:10>>*/ n + 2147483648 | 0;
      /*<<int32.ml:82:28>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
-            (x, y);
+             /*<<int32.ml:82:28>>*/ (x, y);
     /*<<int32.ml:86:41>>*/ }
    function unsigned_lt(n, m){
      /*<<int32.ml:89:2>>*/ return  /*<<int32.ml:89:2>>*/ caml_lessthan
-            (n + 2147483648 | 0, m + 2147483648 | 0);
+             /*<<int32.ml:89:2>>*/ (n + 2147483648 | 0, m + 2147483648 | 0);
     /*<<int32.ml:89:31>>*/ }
    function min(x, y){
      /*<<int32.ml:91:18>>*/ return  /*<<int32.ml:91:21>>*/ caml_lessequal
-             (x, y)
+              /*<<int32.ml:91:21>>*/ (x, y)
             ? x
             : y;
     /*<<int32.ml:91:41>>*/ }
    function max(x, y){
      /*<<int32.ml:92:18>>*/ return  /*<<int32.ml:92:21>>*/ caml_greaterequal
-             (x, y)
+              /*<<int32.ml:92:21>>*/ (x, y)
             ? x
             : y;
     /*<<int32.ml:92:41>>*/ }
    function unsigned_div(n, d){
-     /*<<int32.ml:98:2>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
+     /*<<int32.ml:98:2>>*/ if
+     ( /*<<int32.ml:98:5>>*/ caml_lessthan /*<<int32.ml:98:5>>*/ (d, 0))
       /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one;
     var
      q =
         /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
-        (n >>> 1 | 0, d)
+         /*<<int32.ml:101:23>>*/ (n >>> 1 | 0, d)
        << 1,
      r =
-        /*<<int32.ml:102:12>>*/ n -  /*<<int32.ml:102:18>>*/ caml_mul(q, d)
+        /*<<int32.ml:102:12>>*/ n
+       -  /*<<int32.ml:102:18>>*/ caml_mul /*<<int32.ml:102:18>>*/ (q, d)
        | 0;
      /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0;
     /*<<int32.ml:103:41>>*/ }
    function unsigned_rem(n, d){
      /*<<int32.ml:106:2>>*/ return n
-           -  /*<<int32.ml:106:8>>*/ caml_mul(unsigned_div(n, d), d)
+           -
+             /*<<int32.ml:106:8>>*/ caml_mul
+              /*<<int32.ml:106:8>>*/ (unsigned_div(n, d), d)
            | 0;
     /*<<int32.ml:106:34>>*/ }
    function seeded_hash(seed, x){
      /*<<int32.ml:110:25>>*/ return  /*<<int32.ml:110:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<int32.ml:110:25>>*/ (10, 100, seed, x);
     /*<<int32.ml:110:56>>*/ }
    function hash(x){
      /*<<int32.ml:111:13>>*/ return  /*<<int32.ml:111:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<int32.ml:111:13>>*/ (10, 100, 0, x);
     /*<<int32.ml:111:41>>*/ }
    var
     Stdlib_Int32 =
@@ -9522,44 +10132,48 @@
     _d_ = runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 65535);
    function succ(n){
      /*<<int64.ml:46:13>>*/ return  /*<<int64.ml:46:13>>*/ caml_int64_add
-            (n, _a_);
+             /*<<int64.ml:46:13>>*/ (n, _a_);
     /*<<int64.ml:46:21>>*/ }
    function pred(n){
      /*<<int64.ml:47:13>>*/ return  /*<<int64.ml:47:13>>*/ caml_int64_sub
-            (n, _b_);
+             /*<<int64.ml:47:13>>*/ (n, _b_);
     /*<<int64.ml:47:21>>*/ }
    function abs(n){
      /*<<int64.ml:48:12>>*/ return  /*<<int64.ml:48:15>>*/ caml_greaterequal
-             (n, _c_)
+              /*<<int64.ml:48:15>>*/ (n, _c_)
             ? n
-            :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg(n);
+            :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg
+               /*<<int64.ml:48:35>>*/ (n);
     /*<<int64.ml:48:40>>*/ }
    function lognot(n){
      /*<<int64.ml:51:15>>*/ return  /*<<int64.ml:51:15>>*/ runtime.caml_int64_xor
-            (n, _d_);
+             /*<<int64.ml:51:15>>*/ (n, _d_);
     /*<<int64.ml:51:29>>*/ }
    var
     max_int$0 =
        /*<<int64.ml:54:16>>*/  /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32
-       (Stdlib[19]),
+        /*<<int64.ml:54:16>>*/ (Stdlib[19]),
     _e_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
    function unsigned_to_int(n){
      /*<<int64.ml:56:4>>*/ if
-     ( /*<<int64.ml:56:7>>*/ caml_greaterequal(n, _e_)
-      &&  /*<<int64.ml:56:18>>*/ caml_lessequal(n, max_int$0))
+     ( /*<<int64.ml:56:7>>*/ caml_greaterequal /*<<int64.ml:56:7>>*/ (n, _e_)
+      &&
+        /*<<int64.ml:56:18>>*/ caml_lessequal
+         /*<<int64.ml:56:18>>*/ (n, max_int$0))
       /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)];
      /*<<int64.ml:59:6>>*/ return 0;
     /*<<int64.ml:59:10>>*/ }
    function to_string(n){
      /*<<int64.ml:62:18>>*/ return  /*<<int64.ml:62:18>>*/ runtime.caml_int64_format
-            ("%d", n);
+             /*<<int64.ml:62:18>>*/ ("%d", n);
     /*<<int64.ml:62:31>>*/ }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
      var
       _g_ =
          /*<<int64.ml:67:6>>*/ [0,
-          /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
+          /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string
+           /*<<int64.ml:67:11>>*/ (s)];
       /*<<int64.ml:67:6>>*/ return _g_;
     }
     catch(_h_){
@@ -9570,66 +10184,73 @@
     /*<<int64.ml:68:24>>*/ }
    function compare(x, y){
      /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-            (x, y);
+             /*<<int64.ml:79:28>>*/ (x, y);
     /*<<int64.ml:79:46>>*/ }
    var equal = runtime.caml_equal;
    function unsigned_compare(n, m){
     var
      y =
         /*<<int64.ml:83:26>>*/  /*<<int64.ml:83:26>>*/ caml_int64_sub
-        (m, min_int),
+         /*<<int64.ml:83:26>>*/ (m, min_int),
      x =
         /*<<int64.ml:83:10>>*/  /*<<int64.ml:83:10>>*/ caml_int64_sub
-        (n, min_int);
+         /*<<int64.ml:83:10>>*/ (n, min_int);
      /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-            (x, y);
+             /*<<int64.ml:79:28>>*/ (x, y);
     /*<<int64.ml:83:41>>*/ }
    function unsigned_lt(n, m){
      /*<<int64.ml:86:2>>*/ return  /*<<int64.ml:86:2>>*/ caml_lessthan
-            ( /*<<int64.ml:86:2>>*/ caml_int64_sub(n, min_int),
-              /*<<int64.ml:86:18>>*/ caml_int64_sub(m, min_int));
+             /*<<int64.ml:86:2>>*/ ( /*<<int64.ml:86:2>>*/ caml_int64_sub
+               /*<<int64.ml:86:2>>*/ (n, min_int),
+              /*<<int64.ml:86:18>>*/ caml_int64_sub
+               /*<<int64.ml:86:18>>*/ (m, min_int));
     /*<<int64.ml:86:31>>*/ }
    function min(x, y){
      /*<<int64.ml:88:18>>*/ return  /*<<int64.ml:88:21>>*/ caml_lessequal
-             (x, y)
+              /*<<int64.ml:88:21>>*/ (x, y)
             ? x
             : y;
     /*<<int64.ml:88:41>>*/ }
    function max(x, y){
      /*<<int64.ml:89:18>>*/ return  /*<<int64.ml:89:21>>*/ caml_greaterequal
-             (x, y)
+              /*<<int64.ml:89:21>>*/ (x, y)
             ? x
             : y;
     /*<<int64.ml:89:41>>*/ }
    function unsigned_div(n, d){
-     /*<<int64.ml:95:2>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
+     /*<<int64.ml:95:2>>*/ if
+     ( /*<<int64.ml:95:5>>*/ caml_lessthan /*<<int64.ml:95:5>>*/ (d, zero))
       /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one;
     var
      q =
         /*<<int64.ml:98:12>>*/  /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
-        ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
-          ( /*<<int64.ml:98:28>>*/ runtime.caml_int64_shift_right_unsigned
-            (n, 1),
+         /*<<int64.ml:98:12>>*/ ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
+           /*<<int64.ml:98:23>>*/ ( /*<<int64.ml:98:28>>*/ runtime.caml_int64_shift_right_unsigned
+             /*<<int64.ml:98:28>>*/ (n, 1),
            d),
          1),
      r =
         /*<<int64.ml:99:12>>*/  /*<<int64.ml:99:12>>*/ caml_int64_sub
-        (n,  /*<<int64.ml:99:18>>*/ caml_int64_mul(q, d));
+         /*<<int64.ml:99:12>>*/ (n,
+          /*<<int64.ml:99:18>>*/ caml_int64_mul /*<<int64.ml:99:18>>*/ (q, d));
      /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
             ? q
-            :  /*<<int64.ml:46:13>>*/ caml_int64_add(q, _a_);
+            :  /*<<int64.ml:46:13>>*/ caml_int64_add
+               /*<<int64.ml:46:13>>*/ (q, _a_);
     /*<<int64.ml:100:41>>*/ }
    function unsigned_rem(n, d){
      /*<<int64.ml:103:2>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
-            (n,  /*<<int64.ml:103:8>>*/ caml_int64_mul(unsigned_div(n, d), d));
+             /*<<int64.ml:103:2>>*/ (n,
+              /*<<int64.ml:103:8>>*/ caml_int64_mul
+               /*<<int64.ml:103:8>>*/ (unsigned_div(n, d), d));
     /*<<int64.ml:103:34>>*/ }
    function seeded_hash(seed, x){
      /*<<int64.ml:107:25>>*/ return  /*<<int64.ml:107:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<int64.ml:107:25>>*/ (10, 100, seed, x);
     /*<<int64.ml:107:56>>*/ }
    function hash(x){
      /*<<int64.ml:108:13>>*/ return  /*<<int64.ml:108:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<int64.ml:108:13>>*/ (10, 100, 0, x);
     /*<<int64.ml:108:41>>*/ }
    var
     Stdlib_Int64 =
@@ -9689,7 +10310,7 @@
     /*<<nativeint.ml:45:21>>*/ }
    function abs(n){
      /*<<nativeint.ml:46:12>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
-             (n, 0)
+              /*<<nativeint.ml:46:15>>*/ (n, 0)
             ? n
             : - n | 0;
     /*<<nativeint.ml:46:40>>*/ }
@@ -9703,21 +10324,25 @@
    var max_int$0 = Stdlib[19];
    function unsigned_to_int(n){
      /*<<nativeint.ml:55:4>>*/ if
-     ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal(n, 0)
-      &&  /*<<nativeint.ml:55:18>>*/ caml_lessequal(n, max_int$0))
+     ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal
+        /*<<nativeint.ml:55:7>>*/ (n, 0)
+      &&
+        /*<<nativeint.ml:55:18>>*/ caml_lessequal
+         /*<<nativeint.ml:55:18>>*/ (n, max_int$0))
       /*<<nativeint.ml:56:6>>*/ return [0, n];
      /*<<nativeint.ml:58:6>>*/ return 0;
     /*<<nativeint.ml:58:10>>*/ }
    function to_string(n){
      /*<<nativeint.ml:61:18>>*/ return  /*<<nativeint.ml:61:18>>*/ runtime.caml_format_int
-            ("%d", n);
+             /*<<nativeint.ml:61:18>>*/ ("%d", n);
     /*<<nativeint.ml:61:31>>*/ }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
      var
       _b_ =
          /*<<nativeint.ml:66:6>>*/ [0,
-          /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
+          /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string
+           /*<<nativeint.ml:66:11>>*/ (s)];
       /*<<nativeint.ml:66:6>>*/ return _b_;
     }
     catch(_c_){
@@ -9729,7 +10354,9 @@
    var compare = caml_int_compare;
    function equal(x, y){
      /*<<nativeint.ml:72:26>>*/ return 0
-            ===  /*<<nativeint.ml:71:28>>*/ caml_int_compare(x, y)
+            ===
+              /*<<nativeint.ml:71:28>>*/ caml_int_compare
+               /*<<nativeint.ml:71:28>>*/ (x, y)
             ? 1
             : 0;
     /*<<nativeint.ml:72:41>>*/ }
@@ -9738,51 +10365,55 @@
      y =  /*<<nativeint.ml:75:26>>*/ m - min_int | 0,
      x =  /*<<nativeint.ml:75:10>>*/ n - min_int | 0;
      /*<<nativeint.ml:71:28>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
-            (x, y);
+             /*<<nativeint.ml:71:28>>*/ (x, y);
     /*<<nativeint.ml:75:41>>*/ }
    function unsigned_lt(n, m){
      /*<<nativeint.ml:78:2>>*/ return  /*<<nativeint.ml:78:2>>*/ caml_lessthan
-            (n - min_int | 0, m - min_int | 0);
+             /*<<nativeint.ml:78:2>>*/ (n - min_int | 0, m - min_int | 0);
     /*<<nativeint.ml:78:31>>*/ }
    function min(x, y){
      /*<<nativeint.ml:80:18>>*/ return  /*<<nativeint.ml:80:21>>*/ caml_lessequal
-             (x, y)
+              /*<<nativeint.ml:80:21>>*/ (x, y)
             ? x
             : y;
     /*<<nativeint.ml:80:41>>*/ }
    function max(x, y){
      /*<<nativeint.ml:81:18>>*/ return  /*<<nativeint.ml:81:21>>*/ caml_greaterequal
-             (x, y)
+              /*<<nativeint.ml:81:21>>*/ (x, y)
             ? x
             : y;
     /*<<nativeint.ml:81:41>>*/ }
    function unsigned_div(n, d){
      /*<<nativeint.ml:87:2>>*/ if
-     ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
+     ( /*<<nativeint.ml:87:5>>*/ caml_lessthan
+        /*<<nativeint.ml:87:5>>*/ (d, 0))
       /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one;
     var
      q =
         /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
-        (n >>> 1 | 0, d)
+         /*<<nativeint.ml:90:23>>*/ (n >>> 1 | 0, d)
        << 1,
      r =
         /*<<nativeint.ml:91:12>>*/ n
-       -  /*<<nativeint.ml:91:18>>*/ caml_mul(q, d)
+       -
+         /*<<nativeint.ml:91:18>>*/ caml_mul /*<<nativeint.ml:91:18>>*/ (q, d)
        | 0;
      /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0;
     /*<<nativeint.ml:92:41>>*/ }
    function unsigned_rem(n, d){
      /*<<nativeint.ml:95:2>>*/ return n
-           -  /*<<nativeint.ml:95:8>>*/ caml_mul(unsigned_div(n, d), d)
+           -
+             /*<<nativeint.ml:95:8>>*/ caml_mul
+              /*<<nativeint.ml:95:8>>*/ (unsigned_div(n, d), d)
            | 0;
     /*<<nativeint.ml:95:34>>*/ }
    function seeded_hash(seed, x){
      /*<<nativeint.ml:99:25>>*/ return  /*<<nativeint.ml:99:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<nativeint.ml:99:25>>*/ (10, 100, seed, x);
     /*<<nativeint.ml:99:56>>*/ }
    function hash(x){
      /*<<nativeint.ml:100:13>>*/ return  /*<<nativeint.ml:100:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<nativeint.ml:100:13>>*/ (10, 100, 0, x);
     /*<<nativeint.ml:100:41>>*/ }
    var
     Stdlib_Nativeint =
@@ -9864,7 +10495,7 @@
     var
      result =
         /*<<lexing.ml:65:15>>*/  /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine
-        (tbl, state, buf),
+         /*<<lexing.ml:65:15>>*/ (tbl, state, buf),
      _n_ = 0 <= result ? 1 : 0,
      _o_ = _n_ ? buf[12] !== dummy_pos ? 1 : 0 : _n_;
     if(_o_){
@@ -9878,7 +10509,7 @@
     var
      result =
         /*<<lexing.ml:75:15>>*/  /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine
-        (tbl, state, buf),
+         /*<<lexing.ml:75:15>>*/ (tbl, state, buf),
      _k_ = 0 <= result ? 1 : 0,
      _l_ = _k_ ? buf[12] !== dummy_pos ? 1 : 0 : _k_;
     if(_l_){
@@ -9895,20 +10526,22 @@
      _g_ = with_positions ? zero_pos : dummy_pos,
      aux_buffer =
         /*<<lexing.ml:148:31>>*/  /*<<lexing.ml:148:31>>*/ caml_create_bytes
-        (512);
+         /*<<lexing.ml:148:31>>*/ (512);
      /*<<lexing.ml:148:2>>*/ return [0,
             function(lexbuf){
              var
               read =
                  /*<<lexing.ml:85:4>>*/  /*<<lexing.ml:85:4>>*/ caml_call2
-                 (read_fun, aux_buffer, caml_ml_bytes_length(aux_buffer)),
+                  /*<<lexing.ml:85:4>>*/ (read_fun,
+                  aux_buffer,
+                  caml_ml_bytes_length(aux_buffer)),
               n =  /*<<lexing.ml:86:2>>*/ 0 < read ? read : (lexbuf[9] = 1, 0);
              if(caml_ml_bytes_length(lexbuf[2]) < (lexbuf[3] + n | 0)){
               if
                (((lexbuf[3] - lexbuf[5] | 0) + n | 0)
                 <= caml_ml_bytes_length(lexbuf[2]))
                 /*<<lexing.ml:100:9>>*/  /*<<lexing.ml:100:9>>*/ caml_call5
-                (Stdlib_Bytes[11],
+                 /*<<lexing.ml:100:9>>*/ (Stdlib_Bytes[11],
                  lexbuf[2],
                  lexbuf[5],
                  lexbuf[2],
@@ -9918,18 +10551,19 @@
                var
                 newlen =
                    /*<<lexing.ml:111:8>>*/  /*<<lexing.ml:111:8>>*/ caml_call2
-                   (Stdlib_Int[10],
+                    /*<<lexing.ml:111:8>>*/ (Stdlib_Int[10],
                     2 * caml_ml_bytes_length(lexbuf[2]) | 0,
                     Stdlib_Sys[12]);
                if(newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0))
                  /*<<lexing.ml:113:11>>*/  /*<<lexing.ml:113:11>>*/ caml_call1
-                 (Stdlib[2], cst_Lexing_lex_refill_cannot_g);
+                  /*<<lexing.ml:113:11>>*/ (Stdlib[2],
+                  cst_Lexing_lex_refill_cannot_g);
                var
                 newbuf =
                    /*<<lexing.ml:114:19>>*/  /*<<lexing.ml:114:19>>*/ caml_create_bytes
-                   (newlen);
+                    /*<<lexing.ml:114:19>>*/ (newlen);
                 /*<<lexing.ml:116:6>>*/  /*<<lexing.ml:116:6>>*/ caml_call5
-                (Stdlib_Bytes[11],
+                 /*<<lexing.ml:116:6>>*/ (Stdlib_Bytes[11],
                  lexbuf[2],
                  lexbuf[5],
                  newbuf,
@@ -9958,11 +10592,17 @@
               }
              }
               /*<<lexing.ml:137:2>>*/  /*<<lexing.ml:137:2>>*/ caml_call5
-              (Stdlib_Bytes[11], aux_buffer, 0, lexbuf[2], lexbuf[3], n);
+               /*<<lexing.ml:137:2>>*/ (Stdlib_Bytes[11],
+               aux_buffer,
+               0,
+               lexbuf[2],
+               lexbuf[3],
+               n);
              lexbuf[3] = lexbuf[3] + n | 0;
              return 0;
             },
-             /*<<lexing.ml:149:17>>*/ caml_create_bytes(1024),
+             /*<<lexing.ml:149:17>>*/ caml_create_bytes
+              /*<<lexing.ml:149:17>>*/ (1024),
             0,
             0,
             0,
@@ -9979,7 +10619,7 @@
             (with_positions,
              function(buf, n){
                /*<<lexing.ml:163:46>>*/ return  /*<<lexing.ml:163:46>>*/ caml_call4
-                      (Stdlib[84], ic, buf, 0, n);
+                       /*<<lexing.ml:163:46>>*/ (Stdlib[84], ic, buf, 0, n);
               /*<<lexing.ml:163:62>>*/ });
     /*<<lexing.ml:163:63>>*/ }
    function from_string(opt, s){
@@ -9992,7 +10632,8 @@
               /*<<lexing.ml:166:33>>*/ lexbuf[9] = 1;
              return 0;
              /*<<lexing.ml:166:63>>*/ },
-             /*<<lexing.ml:167:17>>*/ caml_call1(Stdlib_Bytes[5], s),
+             /*<<lexing.ml:167:17>>*/ caml_call1
+              /*<<lexing.ml:167:17>>*/ (Stdlib_Bytes[5], s),
             runtime.caml_ml_string_length(s),
             0,
             0,
@@ -10021,32 +10662,37 @@
    function lexeme(lexbuf){
     var len = lexbuf[6] - lexbuf[5] | 0;
      /*<<lexing.ml:192:2>>*/ return  /*<<lexing.ml:192:2>>*/ caml_call3
-            (Stdlib_Bytes[8], lexbuf[2], lexbuf[5], len);
+             /*<<lexing.ml:192:2>>*/ (Stdlib_Bytes[8],
+             lexbuf[2],
+             lexbuf[5],
+             len);
     /*<<lexing.ml:192:61>>*/ }
    function sub_lexeme(lexbuf, i1, i2){
     var len = i2 - i1 | 0;
      /*<<lexing.ml:196:2>>*/ return  /*<<lexing.ml:196:2>>*/ caml_call3
-            (Stdlib_Bytes[8], lexbuf[2], i1, len);
+             /*<<lexing.ml:196:2>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len);
     /*<<lexing.ml:196:43>>*/ }
    function sub_lexeme_opt(lexbuf, i1, i2){
      /*<<lexing.ml:199:2>>*/ if(0 > i1)  /*<<lexing.ml:202:11>>*/ return 0;
     var len = i2 - i1 | 0;
      /*<<lexing.ml:201:4>>*/ return [0,
              /*<<lexing.ml:201:9>>*/ caml_call3
-             (Stdlib_Bytes[8], lexbuf[2], i1, len)];
+              /*<<lexing.ml:201:9>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len)];
     /*<<lexing.ml:204:5>>*/ }
    function sub_lexeme_char(lexbuf, i){
      /*<<lexing.ml:206:31>>*/ return  /*<<lexing.ml:206:31>>*/ caml_bytes_get
-            (lexbuf[2], i);
+             /*<<lexing.ml:206:31>>*/ (lexbuf[2], i);
     /*<<lexing.ml:206:60>>*/ }
    function sub_lexeme_char_opt(lexbuf, i){
      /*<<lexing.ml:209:2>>*/ return 0 <= i
-            ? [0,  /*<<lexing.ml:210:9>>*/ caml_bytes_get(lexbuf[2], i)]
+            ? [0,
+               /*<<lexing.ml:210:9>>*/ caml_bytes_get
+                /*<<lexing.ml:210:9>>*/ (lexbuf[2], i)]
             : 0;
     /*<<lexing.ml:212:8>>*/ }
    function lexeme_char(lexbuf, i){
      /*<<lexing.ml:216:2>>*/ return  /*<<lexing.ml:216:2>>*/ caml_bytes_get
-            (lexbuf[2], lexbuf[5] + i | 0);
+             /*<<lexing.ml:216:2>>*/ (lexbuf[2], lexbuf[5] + i | 0);
     /*<<lexing.ml:216:56>>*/ }
    function lexeme_start(lexbuf){
      /*<<lexing.ml:218:26>>*/ return lexbuf[11][4];
@@ -10151,10 +10797,14 @@
        caml_fresh_oo_id(0)],
     env =
        /*<<parsing.ml:90:2>>*/ [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_make_vect
+         /*<<parsing.ml:90:14>>*/ (100, 0),
+        /*<<parsing.ml:91:14>>*/ caml_make_vect
+         /*<<parsing.ml:91:14>>*/ (100, 0),
+        /*<<parsing.ml:92:23>>*/ caml_make_vect
+         /*<<parsing.ml:92:23>>*/ (100, Stdlib_Lexing[1]),
+        /*<<parsing.ml:93:21>>*/ caml_make_vect
+         /*<<parsing.ml:93:21>>*/ (100, Stdlib_Lexing[1]),
        100,
        0,
        0,
@@ -10174,33 +10824,43 @@
      newsize = oldsize * 2 | 0,
      new_s =
         /*<<parsing.ml:110:14>>*/  /*<<parsing.ml:110:14>>*/ caml_make_vect
-        (newsize, 0),
+         /*<<parsing.ml:110:14>>*/ (newsize, 0),
      new_v =
         /*<<parsing.ml:111:14>>*/  /*<<parsing.ml:111:14>>*/ caml_make_vect
-        (newsize, 0),
+         /*<<parsing.ml:111:14>>*/ (newsize, 0),
      new_start =
         /*<<parsing.ml:112:18>>*/  /*<<parsing.ml:112:18>>*/ caml_make_vect
-        (newsize, Stdlib_Lexing[1]),
+         /*<<parsing.ml:112:18>>*/ (newsize, Stdlib_Lexing[1]),
      new_end =
         /*<<parsing.ml:113:16>>*/  /*<<parsing.ml:113:16>>*/ caml_make_vect
-        (newsize, Stdlib_Lexing[1]);
+         /*<<parsing.ml:113:16>>*/ (newsize, Stdlib_Lexing[1]);
      /*<<parsing.ml:114:4>>*/  /*<<parsing.ml:114:4>>*/ caml_call5
-     (Stdlib_Array[9], env[1], 0, new_s, 0, oldsize);
+      /*<<parsing.ml:114:4>>*/ (Stdlib_Array[9], env[1], 0, new_s, 0, oldsize);
     env[1] = new_s;
      /*<<parsing.ml:116:4>>*/  /*<<parsing.ml:116:4>>*/ caml_call5
-     (Stdlib_Array[9], env[2], 0, new_v, 0, oldsize);
+      /*<<parsing.ml:116:4>>*/ (Stdlib_Array[9], env[2], 0, new_v, 0, oldsize);
     env[2] = new_v;
      /*<<parsing.ml:118:4>>*/  /*<<parsing.ml:118:4>>*/ caml_call5
-     (Stdlib_Array[9], env[3], 0, new_start, 0, oldsize);
+      /*<<parsing.ml:118:4>>*/ (Stdlib_Array[9],
+      env[3],
+      0,
+      new_start,
+      0,
+      oldsize);
     env[3] = new_start;
      /*<<parsing.ml:120:4>>*/  /*<<parsing.ml:120:4>>*/ caml_call5
-     (Stdlib_Array[9], env[4], 0, new_end, 0, oldsize);
+      /*<<parsing.ml:120:4>>*/ (Stdlib_Array[9],
+      env[4],
+      0,
+      new_end,
+      0,
+      oldsize);
     env[4] = new_end;
     env[5] = newsize;
     /*<<parsing.ml:122:28>>*/ }
    function clear_parser(param){
      /*<<parsing.ml:125:2>>*/  /*<<parsing.ml:125:2>>*/ caml_call4
-     (Stdlib_Array[8], env[2], 0, env[5], 0);
+      /*<<parsing.ml:125:2>>*/ (Stdlib_Array[8], env[2], 0, env[5], 0);
     env[8] = 0;
     return 0;
     /*<<parsing.ml:126:25>>*/ }
@@ -10228,12 +10888,12 @@
       /*<<parsing.ml:132:4>>*/ for(;;)
       switch
        ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
-         (tables, env, cmd, arg)){
+          /*<<parsing.ml:132:10>>*/ (tables, env, cmd, arg)){
         case 0:
          var
           arg$0 =
              /*<<parsing.ml:134:24>>*/  /*<<parsing.ml:134:24>>*/ caml_call1
-             (lexer, lexbuf);
+              /*<<parsing.ml:134:24>>*/ (lexer, lexbuf);
          env[9] = lexbuf[11];
          env[10] = lexbuf[12];
          cmd = 1;
@@ -10241,7 +10901,7 @@
          break;
         case 1:
           /*<<parsing.ml:139:8>>*/ throw  /*<<parsing.ml:139:8>>*/ caml_maybe_attach_backtrace
-                (Parse_error, 1);
+                 /*<<parsing.ml:139:8>>*/ (Parse_error, 1);
         case 2:
           /*<<parsing.ml:148:8>>*/ grow_stacks(0); cmd = 2; arg = 0; break;
         case 3:
@@ -10252,7 +10912,9 @@
            _i_ = env[13],
            _j_ =
               /*<<parsing.ml:143:39>>*/  /*<<parsing.ml:143:39>>*/ caml_call1
-              (caml_check_bound(tables[1], _i_)[1 + _i_], env),
+               /*<<parsing.ml:143:39>>*/ (caml_check_bound(tables[1], _i_)
+                [1 + _i_],
+               env),
            _k_ =  /*<<parsing.ml:143:39>>*/ 4,
            value = _j_,
            action = _k_;
@@ -10267,7 +10929,7 @@
          break;
         default:
           /*<<parsing.ml:152:8>>*/  /*<<parsing.ml:152:8>>*/ caml_call1
-          (tables[14], cst_syntax_error);
+           /*<<parsing.ml:152:8>>*/ (tables[14], cst_syntax_error);
          cmd = 5;
          arg = 0;
       }
@@ -10290,7 +10952,9 @@
      current_lookahead_fun[1] =
       function(tok){
         /*<<parsing.ml:181:12>>*/ if
-        (!  /*<<parsing.ml:181:15>>*/ caml_call1(Stdlib_Obj[1], tok))
+        (!
+          /*<<parsing.ml:181:15>>*/ caml_call1
+           /*<<parsing.ml:181:15>>*/ (Stdlib_Obj[1], tok))
          /*<<parsing.ml:183:17>>*/ return caml_check_bound(tables[2], tok)
                  [1 + tok]
                 === curr_char
@@ -10299,7 +10963,7 @@
        var
         _l_ =
            /*<<parsing.ml:182:38>>*/  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag
-           (tok);
+            /*<<parsing.ml:182:38>>*/ (tok);
         /*<<parsing.ml:182:17>>*/ return caml_check_bound(tables[3], _l_)
                 [1 + _l_]
                === curr_char
@@ -10307,7 +10971,7 @@
                : 0;
        /*<<parsing.ml:183:64>>*/ };
       /*<<parsing.ml:184:8>>*/ throw  /*<<parsing.ml:184:8>>*/ caml_maybe_attach_backtrace
-            (exn, 0);
+             /*<<parsing.ml:184:8>>*/ (exn, 0);
     }
     /*<<parsing.ml:184:17>>*/ }
    function peek_val(env, n){
@@ -10327,7 +10991,8 @@
       _e_ = (env[11] - i | 0) + 1 | 0,
       en =  /*<<parsing.ml:194:15>>*/ caml_check_bound(env[4], _e_)[1 + _e_];
       /*<<parsing.ml:195:9>>*/ if
-      ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal(st, en))
+      ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal
+         /*<<parsing.ml:195:9>>*/ (st, en))
        /*<<parsing.ml:195:23>>*/ return st;
      var i$0 =  /*<<parsing.ml:195:31>>*/ i - 1 | 0;
      i = i$0;
@@ -10359,7 +11024,7 @@
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
      /*<<parsing.ml:210:2>>*/ return  /*<<parsing.ml:210:2>>*/ caml_call1
-            (current_lookahead_fun[1], tok);
+             /*<<parsing.ml:210:2>>*/ (current_lookahead_fun[1], tok);
     /*<<parsing.ml:210:40>>*/ }
    function parse_error(param){
      /*<<parsing.ml:212:31>>*/ return 0;
@@ -10450,7 +11115,7 @@
          if((hr + 2 | 0) < hl){
           if(! l)
             /*<<set.ml:105:19>>*/ return  /*<<set.ml:105:19>>*/ caml_call1
-                   (Stdlib[1], cst_Set_bal$0);
+                    /*<<set.ml:105:19>>*/ (Stdlib[1], cst_Set_bal$0);
           var
            lr = l[3],
            lv = l[2],
@@ -10460,7 +11125,7 @@
             /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r));
           if(! lr)
             /*<<set.ml:111:25>>*/ return  /*<<set.ml:111:25>>*/ caml_call1
-                   (Stdlib[1], cst_Set_bal);
+                    /*<<set.ml:111:25>>*/ (Stdlib[1], cst_Set_bal);
           var
            lrr = lr[3],
            lrv = lr[2],
@@ -10474,7 +11139,7 @@
          }
          if(! r)
            /*<<set.ml:117:19>>*/ return  /*<<set.ml:117:19>>*/ caml_call1
-                  (Stdlib[1], cst_Set_bal$2);
+                   /*<<set.ml:117:19>>*/ (Stdlib[1], cst_Set_bal$2);
          var
           rr = r[3],
           rv = r[2],
@@ -10484,7 +11149,7 @@
            /*<<set.ml:120:14>>*/ return create(create(l, v, rl), rv, rr);
          if(! rl)
            /*<<set.ml:123:25>>*/ return  /*<<set.ml:123:25>>*/ caml_call1
-                  (Stdlib[1], cst_Set_bal$1);
+                   /*<<set.ml:123:25>>*/ (Stdlib[1], cst_Set_bal$1);
          var
           rlr = rl[3],
           rlv = rl[2],
@@ -10500,7 +11165,7 @@
           l = t[1],
           c =
              /*<<set.ml:135:18>>*/  /*<<set.ml:135:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<set.ml:135:18>>*/ (Ord[1], x, v);
           /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
          if(0 <= c){
           var rr =  /*<<set.ml:141:21>>*/ add(x, r);
@@ -10549,7 +11214,7 @@
           /*<<set.ml:177:22>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:178:17>>*/ throw  /*<<set.ml:178:17>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<set.ml:178:17>>*/ (Stdlib[8], 1);
           var l = param$0[1];
           if(! l){var v = param$0[2];  /*<<set.ml:179:28>>*/ return v;}
           param$0 = l;
@@ -10569,7 +11234,7 @@
           /*<<set.ml:187:22>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:188:17>>*/ throw  /*<<set.ml:188:17>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<set.ml:188:17>>*/ (Stdlib[8], 1);
           if(! param$0[3]){
            var v = param$0[2];
             /*<<set.ml:189:28>>*/ return v;
@@ -10593,7 +11258,7 @@
         function remove_min_elt(param){
           /*<<set.ml:199:29>>*/ if(! param)
            /*<<set.ml:200:17>>*/ return  /*<<set.ml:200:17>>*/ caml_call1
-                  (Stdlib[1], cst_Set_remove_min_elt);
+                   /*<<set.ml:200:17>>*/ (Stdlib[1], cst_Set_remove_min_elt);
          var l = param[1];
          if(l){
           var r = param[3], v = param[2];
@@ -10616,7 +11281,7 @@
           l = param[1],
           c =
              /*<<set.ml:234:18>>*/  /*<<set.ml:234:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<set.ml:234:18>>*/ (Ord[1], x, v);
           /*<<set.ml:235:10>>*/ if(0 === c)
            /*<<set.ml:235:24>>*/ return [0, l, 1, r];
          if(0 <= c){
@@ -10648,7 +11313,7 @@
            l = param$0[1],
            c =
               /*<<set.ml:250:18>>*/  /*<<set.ml:250:18>>*/ caml_call2
-              (Ord[1], x, v),
+               /*<<set.ml:250:18>>*/ (Ord[1], x, v),
            _R_ = 0 === c ? 1 : 0;
           if(_R_) return _R_;
           var r$0 = 0 <= c ? r : l;
@@ -10663,7 +11328,7 @@
           t1 = t[1],
           c =
              /*<<set.ml:256:18>>*/  /*<<set.ml:256:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<set.ml:256:18>>*/ (Ord[1], x, v);
           /*<<set.ml:257:10>>*/ if(0 === c){
           if(! t1)  /*<<set.ml:210:22>>*/ return t2;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1;
@@ -10735,7 +11400,7 @@
           l = param[1],
           c =
              /*<<set.ml:307:18>>*/  /*<<set.ml:307:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<set.ml:307:18>>*/ (Ord[1], x, v);
           /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
          if(0 <= c){
           var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
@@ -10820,7 +11485,7 @@
            v1 = e1[1],
            c =
               /*<<set.ml:351:18>>*/  /*<<set.ml:351:18>>*/ caml_call2
-              (Ord[1], v1, v2);
+               /*<<set.ml:351:18>>*/ (Ord[1], v1, v2);
            /*<<set.ml:352:10>>*/ if(0 !== c)  /*<<set.ml:353:15>>*/ return c;
           var
            e2$1 =  /*<<set.ml:354:45>>*/ cons_enum(r2, e2$0),
@@ -10846,7 +11511,7 @@
            l1 = s1$0[1],
            c =
               /*<<set.ml:369:18>>*/  /*<<set.ml:369:18>>*/ caml_call2
-              (Ord[1], v1, v2);
+               /*<<set.ml:369:18>>*/ (Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
            var _E_ =  /*<<set.ml:371:12>>*/ subset(l1, l2);
             /*<<set.ml:371:12>>*/ if(! _E_)  /*<<set.ml:371:12>>*/ return _E_;
@@ -10871,7 +11536,8 @@
           if(! param$0)  /*<<set.ml:378:17>>*/ return 0;
           var r = param$0[3], v = param$0[2], l = param$0[1];
            /*<<set.ml:379:25>>*/ iter(f, l);
-           /*<<set.ml:379:35>>*/  /*<<set.ml:379:35>>*/ caml_call1(f, v);
+           /*<<set.ml:379:35>>*/  /*<<set.ml:379:35>>*/ caml_call1
+            /*<<set.ml:379:35>>*/ (f, v);
           param$0 = r;
          }
         }
@@ -10885,7 +11551,7 @@
            l = s$0[1],
            accu$1 =
               /*<<set.ml:384:34>>*/  /*<<set.ml:384:34>>*/ caml_call2
-              (f, v, fold(f, l, accu$0));
+               /*<<set.ml:384:34>>*/ (f, v, fold(f, l, accu$0));
           s$0 = r;
           accu$0 = accu$1;
          }
@@ -10899,7 +11565,8 @@
            v = param$0[2],
            l = param$0[1],
            _B_ =
-              /*<<set.ml:388:25>>*/  /*<<set.ml:388:25>>*/ caml_call1(p, v);
+              /*<<set.ml:388:25>>*/  /*<<set.ml:388:25>>*/ caml_call1
+               /*<<set.ml:388:25>>*/ (p, v);
            /*<<set.ml:388:25>>*/ if(_B_){
            var _C_ =  /*<<set.ml:388:32>>*/ for_all(p, l);
             /*<<set.ml:388:32>>*/ if(_C_){param$0 = r; continue;}
@@ -10919,7 +11586,8 @@
            v = param$0[2],
            l = param$0[1],
            _y_ =
-              /*<<set.ml:392:25>>*/  /*<<set.ml:392:25>>*/ caml_call1(p, v);
+              /*<<set.ml:392:25>>*/  /*<<set.ml:392:25>>*/ caml_call1
+               /*<<set.ml:392:25>>*/ (p, v);
            /*<<set.ml:392:25>>*/ if(_y_)
            var _z_ = _y_;
           else{
@@ -10937,7 +11605,9 @@
           v = t[2],
           l = t[1],
           l$0 =  /*<<set.ml:398:19>>*/ filter(p, l),
-          pv =  /*<<set.ml:399:19>>*/  /*<<set.ml:399:19>>*/ caml_call1(p, v),
+          pv =
+             /*<<set.ml:399:19>>*/  /*<<set.ml:399:19>>*/ caml_call1
+              /*<<set.ml:399:19>>*/ (p, v),
           r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
            /*<<set.ml:403:15>>*/ return concat(l$0, r$0);
@@ -10953,7 +11623,9 @@
           match =  /*<<set.ml:409:25>>*/ partition(p, l),
           lf = match[2],
           lt = match[1],
-          pv =  /*<<set.ml:410:19>>*/  /*<<set.ml:410:19>>*/ caml_call1(p, v),
+          pv =
+             /*<<set.ml:410:19>>*/  /*<<set.ml:410:19>>*/ caml_call1
+              /*<<set.ml:410:19>>*/ (p, v),
           match$0 =  /*<<set.ml:411:25>>*/ partition(p, r),
           rf = match$0[2],
           rt = match$0[1];
@@ -10993,14 +11665,14 @@
          for(;;){
           if(! param$0)
             /*<<set.ml:432:17>>*/ throw  /*<<set.ml:432:17>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<set.ml:432:17>>*/ (Stdlib[8], 1);
           var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
            c =
               /*<<set.ml:434:18>>*/  /*<<set.ml:434:18>>*/ caml_call2
-              (Ord[1], x, v);
+               /*<<set.ml:434:18>>*/ (Ord[1], x, v);
            /*<<set.ml:435:10>>*/ if(0 === c)  /*<<set.ml:435:24>>*/ return v;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
@@ -11011,16 +11683,20 @@
          for(;;){
           if(! param$1)
             /*<<set.ml:449:10>>*/ throw  /*<<set.ml:449:10>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<set.ml:449:10>>*/ (Stdlib[8], 1);
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:451:13>>*/ if
-           ( /*<<set.ml:451:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<set.ml:451:13>>*/ caml_call1 /*<<set.ml:451:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = l$0;
            for(;;){
             if(! param)  /*<<set.ml:440:10>>*/ return v0;
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:442:13>>*/ if
-             ( /*<<set.ml:442:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = l;}
+             ( /*<<set.ml:442:13>>*/ caml_call1
+                /*<<set.ml:442:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             param = l;
+            }
             else
              param = r;
            }
@@ -11035,13 +11711,17 @@
           if(! param$1)  /*<<set.ml:467:10>>*/ return 0;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:469:13>>*/ if
-           ( /*<<set.ml:469:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<set.ml:469:13>>*/ caml_call1 /*<<set.ml:469:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = l$0;
            for(;;){
             if(! param)  /*<<set.ml:458:10>>*/ return [0, v0];
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:460:13>>*/ if
-             ( /*<<set.ml:460:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = l;}
+             ( /*<<set.ml:460:13>>*/ caml_call1
+                /*<<set.ml:460:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             param = l;
+            }
             else
              param = r;
            }
@@ -11055,16 +11735,20 @@
          for(;;){
           if(! param$1)
             /*<<set.ml:485:10>>*/ throw  /*<<set.ml:485:10>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<set.ml:485:10>>*/ (Stdlib[8], 1);
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:487:13>>*/ if
-           ( /*<<set.ml:487:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<set.ml:487:13>>*/ caml_call1 /*<<set.ml:487:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = r$0;
            for(;;){
             if(! param)  /*<<set.ml:476:10>>*/ return v0;
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:478:13>>*/ if
-             ( /*<<set.ml:478:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = r;}
+             ( /*<<set.ml:478:13>>*/ caml_call1
+                /*<<set.ml:478:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             param = r;
+            }
             else
              param = l;
            }
@@ -11079,13 +11763,17 @@
           if(! param$1)  /*<<set.ml:503:10>>*/ return 0;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:505:13>>*/ if
-           ( /*<<set.ml:505:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<set.ml:505:13>>*/ caml_call1 /*<<set.ml:505:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = r$0;
            for(;;){
             if(! param)  /*<<set.ml:494:10>>*/ return [0, v0];
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:496:13>>*/ if
-             ( /*<<set.ml:496:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = r;}
+             ( /*<<set.ml:496:13>>*/ caml_call1
+                /*<<set.ml:496:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             param = r;
+            }
             else
              param = l;
            }
@@ -11104,7 +11792,7 @@
            l = param$0[1],
            c =
               /*<<set.ml:513:18>>*/  /*<<set.ml:513:18>>*/ caml_call2
-              (Ord[1], x, v);
+               /*<<set.ml:513:18>>*/ (Ord[1], x, v);
            /*<<set.ml:514:10>>*/ if(0 === c)
             /*<<set.ml:514:24>>*/ return [0, v];
           var r$0 = 0 <= c ? r : l;
@@ -11117,13 +11805,19 @@
           if(0 !== l){
            var _u_ =  /*<<set.ml:521:35>>*/ max_elt(l);
             /*<<set.ml:521:23>>*/ if
-            (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _u_, v))
+            (0
+             <=
+               /*<<set.ml:521:23>>*/ caml_call2
+                /*<<set.ml:521:23>>*/ (Ord[1], _u_, v))
             break a;
           }
           if(0 !== r){
            var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
             /*<<set.ml:522:23>>*/ if
-            (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _t_))
+            (0
+             <=
+               /*<<set.ml:522:23>>*/ caml_call2
+                /*<<set.ml:522:23>>*/ (Ord[1], v, _t_))
             break a;
           }
            /*<<set.ml:523:11>>*/ return join(l, v, r);
@@ -11137,7 +11831,9 @@
           v = t[2],
           l = t[1],
           l$0 =  /*<<set.ml:530:18>>*/ map(f, l),
-          v$0 =  /*<<set.ml:531:18>>*/  /*<<set.ml:531:18>>*/ caml_call1(f, v),
+          v$0 =
+             /*<<set.ml:531:18>>*/  /*<<set.ml:531:18>>*/ caml_call1
+              /*<<set.ml:531:18>>*/ (f, v),
           r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
          if(l === l$0 && v === v$0 && r === r$0)
            /*<<set.ml:533:47>>*/ return t;
@@ -11150,7 +11846,9 @@
           v = t[2],
           l = t[1],
           t1 =  /*<<set.ml:546:18>>*/ filter_map(f, l),
-          v$0 =  /*<<set.ml:547:18>>*/  /*<<set.ml:547:18>>*/ caml_call1(f, v),
+          v$0 =
+             /*<<set.ml:547:18>>*/  /*<<set.ml:547:18>>*/ caml_call1
+              /*<<set.ml:547:18>>*/ (f, v),
           t2 =  /*<<set.ml:548:18>>*/ filter_map(f, r);
           /*<<set.ml:549:9>>*/ if(v$0){
           var v$1 = v$0[1];
@@ -11180,7 +11878,7 @@
           var
            l$0 =
               /*<<set.ml:588:28>>*/  /*<<set.ml:588:28>>*/ caml_call2
-              (Stdlib_List[62], Ord[1], l),
+               /*<<set.ml:588:28>>*/ (Stdlib_List[62], Ord[1], l),
            sub =
              function(n, l){
                /*<<set.ml:559:8>>*/ if(3 >= n >>> 0)
@@ -11229,7 +11927,7 @@
                left = match[1];
                /*<<set.ml:570:10>>*/ if(! l$0)
                 /*<<set.ml:571:18>>*/ throw  /*<<set.ml:571:18>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _c_], 1);
+                       /*<<set.ml:571:18>>*/ ([0, Assert_failure, _c_], 1);
               var
                l$1 = l$0[2],
                mid = l$0[1],
@@ -11239,7 +11937,8 @@
                /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2];
               /*<<set.ml:574:36>>*/ };
            /*<<set.ml:576:10>>*/ return sub
-                   ( /*<<set.ml:576:15>>*/ caml_call1(Stdlib_List[1], l$0),
+                   ( /*<<set.ml:576:15>>*/ caml_call1
+                      /*<<set.ml:576:15>>*/ (Stdlib_List[1], l$0),
                     l$0)
                   [1];
          }
@@ -11249,7 +11948,7 @@
          /*<<set.ml:588:58>>*/ }
         function add_seq(i, m){
           /*<<set.ml:591:6>>*/ return  /*<<set.ml:591:6>>*/ caml_call3
-                 (Stdlib_Seq[5],
+                  /*<<set.ml:591:6>>*/ (Stdlib_Seq[5],
                   function(s, x){
                     /*<<set.ml:591:32>>*/ return add(x, s);
                    /*<<set.ml:591:39>>*/ },
@@ -11318,7 +12017,7 @@
              l = s$0[1],
              n =
                 /*<<set.ml:616:24>>*/  /*<<set.ml:616:24>>*/ caml_call2
-                (Ord[1], v, low);
+                 /*<<set.ml:616:24>>*/ (Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
              var c$0 =  /*<<set.ml:619:31>>*/ [0, v, r, c];
@@ -11449,7 +12148,7 @@
          if((hr + 2 | 0) < hl){
           if(! l)
             /*<<map.ml:96:19>>*/ return  /*<<map.ml:96:19>>*/ caml_call1
-                   (Stdlib[1], cst_Map_bal$0);
+                    /*<<map.ml:96:19>>*/ (Stdlib[1], cst_Map_bal$0);
           var
            lr = l[4],
            ld = l[3],
@@ -11461,7 +12160,7 @@
                    (ll, lv, ld, create(lr, x, d, r));
           if(! lr)
             /*<<map.ml:102:25>>*/ return  /*<<map.ml:102:25>>*/ caml_call1
-                   (Stdlib[1], cst_Map_bal);
+                    /*<<map.ml:102:25>>*/ (Stdlib[1], cst_Map_bal);
           var
            lrr = lr[4],
            lrd = lr[3],
@@ -11477,7 +12176,7 @@
          }
          if(! r)
            /*<<map.ml:108:19>>*/ return  /*<<map.ml:108:19>>*/ caml_call1
-                  (Stdlib[1], cst_Map_bal$2);
+                   /*<<map.ml:108:19>>*/ (Stdlib[1], cst_Map_bal$2);
          var
           rr = r[4],
           rd = r[3],
@@ -11489,7 +12188,7 @@
                   (create(l, x, d, rl), rv, rd, rr);
          if(! rl)
            /*<<map.ml:114:25>>*/ return  /*<<map.ml:114:25>>*/ caml_call1
-                  (Stdlib[1], cst_Map_bal$1);
+                   /*<<map.ml:114:25>>*/ (Stdlib[1], cst_Map_bal$1);
          var
           rlr = rl[4],
           rld = rl[3],
@@ -11514,7 +12213,7 @@
           l = m[1],
           c =
              /*<<map.ml:129:18>>*/  /*<<map.ml:129:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<map.ml:129:18>>*/ (Ord[1], x, v);
           /*<<map.ml:130:10>>*/ if(0 === c)
           return d === data ? m : [0, l, x, data, r, h];
          if(0 <= c){
@@ -11529,7 +12228,7 @@
          for(;;){
           if(! param$0)
             /*<<map.ml:141:10>>*/ throw  /*<<map.ml:141:10>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<map.ml:141:10>>*/ (Stdlib[8], 1);
           var
            r = param$0[4],
            d = param$0[3],
@@ -11537,7 +12236,7 @@
            l = param$0[1],
            c =
               /*<<map.ml:143:18>>*/  /*<<map.ml:143:18>>*/ caml_call2
-              (Ord[1], x, v);
+               /*<<map.ml:143:18>>*/ (Ord[1], x, v);
            /*<<map.ml:144:10>>*/ if(0 === c)  /*<<map.ml:144:24>>*/ return d;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
@@ -11548,20 +12247,25 @@
          for(;;){
           if(! param$1)
             /*<<map.ml:158:10>>*/ throw  /*<<map.ml:158:10>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<map.ml:158:10>>*/ (Stdlib[8], 1);
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:160:13>>*/ if
-           ( /*<<map.ml:160:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<map.ml:160:13>>*/ caml_call1 /*<<map.ml:160:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
            for(;;){
             if(! param)  /*<<map.ml:149:10>>*/ return [0, v0, d0];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:151:13>>*/ if
-             ( /*<<map.ml:151:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = l;}
+             ( /*<<map.ml:151:13>>*/ caml_call1
+                /*<<map.ml:151:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             d0 = d0$0;
+             param = l;
+            }
             else
              param = r;
            }
@@ -11580,13 +12284,18 @@
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:178:13>>*/ if
-           ( /*<<map.ml:178:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<map.ml:178:13>>*/ caml_call1 /*<<map.ml:178:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
            for(;;){
             if(! param)  /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:169:13>>*/ if
-             ( /*<<map.ml:169:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = l;}
+             ( /*<<map.ml:169:13>>*/ caml_call1
+                /*<<map.ml:169:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             d0 = d0$0;
+             param = l;
+            }
             else
              param = r;
            }
@@ -11600,20 +12309,25 @@
          for(;;){
           if(! param$1)
             /*<<map.ml:194:10>>*/ throw  /*<<map.ml:194:10>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<map.ml:194:10>>*/ (Stdlib[8], 1);
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:196:13>>*/ if
-           ( /*<<map.ml:196:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<map.ml:196:13>>*/ caml_call1 /*<<map.ml:196:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
            for(;;){
             if(! param)  /*<<map.ml:185:10>>*/ return [0, v0, d0];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:187:13>>*/ if
-             ( /*<<map.ml:187:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = r;}
+             ( /*<<map.ml:187:13>>*/ caml_call1
+                /*<<map.ml:187:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             d0 = d0$0;
+             param = r;
+            }
             else
              param = l;
            }
@@ -11632,13 +12346,18 @@
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:214:13>>*/ if
-           ( /*<<map.ml:214:13>>*/ caml_call1(f, v0$1)){
+           ( /*<<map.ml:214:13>>*/ caml_call1 /*<<map.ml:214:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
            for(;;){
             if(! param)  /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:205:13>>*/ if
-             ( /*<<map.ml:205:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = r;}
+             ( /*<<map.ml:205:13>>*/ caml_call1
+                /*<<map.ml:205:13>>*/ (f, v0$0)){
+             v0 = v0$0;
+             d0 = d0$0;
+             param = r;
+            }
             else
              param = l;
            }
@@ -11658,7 +12377,7 @@
            l = param$0[1],
            c =
               /*<<map.ml:223:18>>*/  /*<<map.ml:223:18>>*/ caml_call2
-              (Ord[1], x, v);
+               /*<<map.ml:223:18>>*/ (Ord[1], x, v);
            /*<<map.ml:224:10>>*/ if(0 === c)
             /*<<map.ml:224:24>>*/ return [0, d];
           var r$0 = 0 <= c ? r : l;
@@ -11675,7 +12394,7 @@
            l = param$0[1],
            c =
               /*<<map.ml:231:18>>*/  /*<<map.ml:231:18>>*/ caml_call2
-              (Ord[1], x, v),
+               /*<<map.ml:231:18>>*/ (Ord[1], x, v),
            _E_ = 0 === c ? 1 : 0;
           if(_E_) return _E_;
           var r$0 = 0 <= c ? r : l;
@@ -11687,7 +12406,7 @@
           /*<<map.ml:234:26>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:235:17>>*/ throw  /*<<map.ml:235:17>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<map.ml:235:17>>*/ (Stdlib[8], 1);
           var l = param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
@@ -11713,7 +12432,7 @@
           /*<<map.ml:244:26>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:245:17>>*/ throw  /*<<map.ml:245:17>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<map.ml:245:17>>*/ (Stdlib[8], 1);
           if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
             /*<<map.ml:246:32>>*/ return [0, v, d];
@@ -11737,7 +12456,7 @@
         function remove_min_binding(param){
           /*<<map.ml:254:33>>*/ if(! param)
            /*<<map.ml:255:17>>*/ return  /*<<map.ml:255:17>>*/ caml_call1
-                  (Stdlib[1], cst_Map_remove_min_elt);
+                   /*<<map.ml:255:17>>*/ (Stdlib[1], cst_Map_remove_min_elt);
          var l = param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
@@ -11764,7 +12483,7 @@
           l = m[1],
           c =
              /*<<map.ml:271:18>>*/  /*<<map.ml:271:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<map.ml:271:18>>*/ (Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
            /*<<map.ml:272:24>>*/ return _d_(l, r);
          if(0 <= c){
@@ -11778,7 +12497,8 @@
           /*<<?>>*/ if(! m){
           var
            match$0 =
-              /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
+              /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ caml_call1
+               /*<<map.ml:280:22>>*/ (f, 0);
           if(! match$0)  /*<<map.ml:281:20>>*/ return 0;
           var data$0 = match$0[1];
            /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1];
@@ -11791,12 +12511,12 @@
           l = m[1],
           c =
              /*<<map.ml:285:18>>*/  /*<<map.ml:285:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<map.ml:285:18>>*/ (Ord[1], x, v);
           /*<<map.ml:286:10>>*/ if(0 === c){
           var
            match =
               /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ caml_call1
-              (f, [0, d]);
+               /*<<map.ml:287:18>>*/ (f, [0, d]);
           if(! match)  /*<<map.ml:288:22>>*/ return _d_(l, r);
           var data = match[1];
           return d === data ? m : [0, l, x, data, r, h];
@@ -11823,7 +12543,8 @@
           if(! param$0)  /*<<map.ml:303:17>>*/ return 0;
           var r = param$0[4], d = param$0[3], v = param$0[2], l = param$0[1];
            /*<<map.ml:305:10>>*/ iter(f, l);
-           /*<<map.ml:305:20>>*/  /*<<map.ml:305:20>>*/ caml_call2(f, v, d);
+           /*<<map.ml:305:20>>*/  /*<<map.ml:305:20>>*/ caml_call2
+            /*<<map.ml:305:20>>*/ (f, v, d);
           param$0 = r;
          }
         }
@@ -11836,7 +12557,9 @@
           v = param[2],
           l = param[1],
           l$0 =  /*<<map.ml:311:19>>*/ map(f, l),
-          d$0 =  /*<<map.ml:312:19>>*/  /*<<map.ml:312:19>>*/ caml_call1(f, d),
+          d$0 =
+             /*<<map.ml:312:19>>*/  /*<<map.ml:312:19>>*/ caml_call1
+              /*<<map.ml:312:19>>*/ (f, d),
           r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
           /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h];
         }
@@ -11850,7 +12573,8 @@
           l = param[1],
           l$0 =  /*<<map.ml:320:19>>*/ mapi(f, l),
           d$0 =
-             /*<<map.ml:321:19>>*/  /*<<map.ml:321:19>>*/ caml_call2(f, v, d),
+             /*<<map.ml:321:19>>*/  /*<<map.ml:321:19>>*/ caml_call2
+              /*<<map.ml:321:19>>*/ (f, v, d),
           r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
           /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h];
         }
@@ -11865,7 +12589,7 @@
            l = m$0[1],
            accu$1 =
               /*<<map.ml:329:19>>*/  /*<<map.ml:329:19>>*/ caml_call3
-              (f, v, d, fold(f, l, accu$0));
+               /*<<map.ml:329:19>>*/ (f, v, d, fold(f, l, accu$0));
           m$0 = r;
           accu$0 = accu$1;
          }
@@ -11880,7 +12604,8 @@
            v = param$0[2],
            l = param$0[1],
            _B_ =
-              /*<<map.ml:333:29>>*/  /*<<map.ml:333:29>>*/ caml_call2(p, v, d);
+              /*<<map.ml:333:29>>*/  /*<<map.ml:333:29>>*/ caml_call2
+               /*<<map.ml:333:29>>*/ (p, v, d);
            /*<<map.ml:333:29>>*/ if(_B_){
            var _C_ =  /*<<map.ml:333:38>>*/ for_all(p, l);
             /*<<map.ml:333:38>>*/ if(_C_){param$0 = r; continue;}
@@ -11901,7 +12626,8 @@
            v = param$0[2],
            l = param$0[1],
            _y_ =
-              /*<<map.ml:337:29>>*/  /*<<map.ml:337:29>>*/ caml_call2(p, v, d);
+              /*<<map.ml:337:29>>*/  /*<<map.ml:337:29>>*/ caml_call2
+               /*<<map.ml:337:29>>*/ (p, v, d);
            /*<<map.ml:337:29>>*/ if(_y_)
            var _z_ = _y_;
           else{
@@ -11970,7 +12696,7 @@
           l = param[1],
           c =
              /*<<map.ml:391:18>>*/  /*<<map.ml:391:18>>*/ caml_call2
-             (Ord[1], x, v);
+              /*<<map.ml:391:18>>*/ (Ord[1], x, v);
           /*<<map.ml:392:10>>*/ if(0 === c)
            /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
          if(0 <= c){
@@ -12000,7 +12726,7 @@
             _u_ =  /*<<map.ml:403:64>>*/ merge(f, r1, r2),
             _v_ =
                /*<<map.ml:403:44>>*/  /*<<map.ml:403:44>>*/ caml_call3
-               (f, v1, [0, d1], d2);
+                /*<<map.ml:403:44>>*/ (f, v1, [0, d1], d2);
             /*<<map.ml:403:64>>*/ return concat_or_join
                    (merge(f, l1, l2), v1, _v_, _u_);
           }
@@ -12008,7 +12734,7 @@
          else if(! s2)  /*<<map.ml:400:26>>*/ return 0;
          if(! s2)
            /*<<map.ml:408:10>>*/ throw  /*<<map.ml:408:10>>*/ caml_maybe_attach_backtrace
-                 ([0, Assert_failure, _b_], 1);
+                  /*<<map.ml:408:10>>*/ ([0, Assert_failure, _b_], 1);
          var
           r2$0 = s2[4],
           d2$0 = s2[3],
@@ -12021,7 +12747,7 @@
           _w_ =  /*<<map.ml:406:64>>*/ merge(f, r1$0, r2$0),
           _x_ =
              /*<<map.ml:406:44>>*/  /*<<map.ml:406:44>>*/ caml_call3
-             (f, v2, d1$0, [0, d2$0]);
+              /*<<map.ml:406:44>>*/ (f, v2, d1$0, [0, d2$0]);
           /*<<map.ml:406:64>>*/ return concat_or_join
                  (merge(f, l1$0, l2$0), v2, _x_, _w_);
          /*<<map.ml:408:22>>*/ }
@@ -12053,7 +12779,8 @@
              /*<<map.ml:420:25>>*/ return concat_or_join
                     (l,
                      v1,
-                      /*<<map.ml:420:45>>*/ caml_call3(f, v1, d1, d2$1),
+                      /*<<map.ml:420:45>>*/ caml_call3
+                       /*<<map.ml:420:45>>*/ (f, v1, d1, d2$1),
                      r);
            }
            var
@@ -12069,7 +12796,8 @@
             /*<<map.ml:426:25>>*/ return concat_or_join
                    (l$0,
                     v2,
-                     /*<<map.ml:426:45>>*/ caml_call3(f, v2, d1$1, d2),
+                     /*<<map.ml:426:45>>*/ caml_call3
+                      /*<<map.ml:426:45>>*/ (f, v2, d1$1, d2),
                     r$0);
           }
           var s = s1;
@@ -12087,7 +12815,8 @@
           l = m[1],
           l$0 =  /*<<map.ml:432:19>>*/ filter(p, l),
           pvd =
-             /*<<map.ml:433:20>>*/  /*<<map.ml:433:20>>*/ caml_call2(p, v, d),
+             /*<<map.ml:433:20>>*/  /*<<map.ml:433:20>>*/ caml_call2
+              /*<<map.ml:433:20>>*/ (p, v, d),
           r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
            /*<<map.ml:436:15>>*/ return concat(l$0, r$0);
@@ -12103,7 +12832,8 @@
           l = param[1],
           l$0 =  /*<<map.ml:442:19>>*/ filter_map(f, l),
           fvd =
-             /*<<map.ml:443:20>>*/  /*<<map.ml:443:20>>*/ caml_call2(f, v, d),
+             /*<<map.ml:443:20>>*/  /*<<map.ml:443:20>>*/ caml_call2
+              /*<<map.ml:443:20>>*/ (f, v, d),
           r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
            /*<<map.ml:447:22>>*/ return concat(l$0, r$0);
@@ -12121,7 +12851,8 @@
           lf = match[2],
           lt = match[1],
           pvd =
-             /*<<map.ml:455:20>>*/  /*<<map.ml:455:20>>*/ caml_call2(p, v, d),
+             /*<<map.ml:455:20>>*/  /*<<map.ml:455:20>>*/ caml_call2
+              /*<<map.ml:455:20>>*/ (p, v, d),
           match$0 =  /*<<map.ml:456:25>>*/ partition(p, r),
           rf = match$0[2],
           rt = match$0[1];
@@ -12166,12 +12897,12 @@
            v1 = e1[1],
            c =
               /*<<map.ml:475:20>>*/  /*<<map.ml:475:20>>*/ caml_call2
-              (Ord[1], v1, v2);
+               /*<<map.ml:475:20>>*/ (Ord[1], v1, v2);
            /*<<map.ml:476:12>>*/ if(0 !== c)  /*<<map.ml:476:27>>*/ return c;
           var
            c$0 =
               /*<<map.ml:477:20>>*/  /*<<map.ml:477:20>>*/ caml_call2
-              (cmp, d1, d2);
+               /*<<map.ml:477:20>>*/ (cmp, d1, d2);
            /*<<map.ml:478:12>>*/ if(0 !== c$0)
             /*<<map.ml:478:27>>*/ return c$0;
           var
@@ -12200,12 +12931,17 @@
            d1 = e1[2],
            v1 = e1[1],
            _p_ =
-             0 ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2) ? 1 : 0;
+             0
+              ===
+                /*<<map.ml:489:12>>*/ caml_call2
+                 /*<<map.ml:489:12>>*/ (Ord[1], v1, v2)
+              ? 1
+              : 0;
           if(_p_){
            var
             _q_ =
                /*<<map.ml:489:37>>*/  /*<<map.ml:489:37>>*/ caml_call2
-               (cmp, d1, d2);
+                /*<<map.ml:489:37>>*/ (cmp, d1, d2);
             /*<<map.ml:489:37>>*/ if(_q_){
             var
              e2$1 =  /*<<map.ml:490:40>>*/ cons_enum(r2, e2$0),
@@ -12249,7 +12985,7 @@
          /*<<map.ml:502:23>>*/ }
         function of_list(bs){
           /*<<map.ml:509:21>>*/ return  /*<<map.ml:509:21>>*/ caml_call3
-                 (Stdlib_List[26],
+                  /*<<map.ml:509:21>>*/ (Stdlib_List[26],
                   function(m, param){
                    var v = param[2], k = param[1];
                     /*<<map.ml:509:53>>*/ return add(k, v, m);
@@ -12259,7 +12995,7 @@
          /*<<map.ml:509:72>>*/ }
         function add_seq(i, m){
           /*<<map.ml:512:6>>*/ return  /*<<map.ml:512:6>>*/ caml_call3
-                 (Stdlib_Seq[5],
+                  /*<<map.ml:512:6>>*/ (Stdlib_Seq[5],
                   function(m, param){
                    var v = param[2], k = param[1];
                     /*<<map.ml:512:36>>*/ return add(k, v, m);
@@ -12333,7 +13069,7 @@
              l = m$0[1],
              n =
                 /*<<map.ml:540:24>>*/  /*<<map.ml:540:24>>*/ caml_call2
-                (Ord[1], v, low);
+                 /*<<map.ml:540:24>>*/ (Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
              var c$0 =  /*<<map.ml:543:31>>*/ [0, v, d, r, c];
@@ -12453,7 +13189,7 @@
     var match = s[1];
     if(! match)
       /*<<stack.ml:31:14>>*/ throw  /*<<stack.ml:31:14>>*/ caml_maybe_attach_backtrace
-            (Empty, 1);
+             /*<<stack.ml:31:14>>*/ (Empty, 1);
     var tl = match[2], hd = match[1];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
@@ -12471,7 +13207,7 @@
     var match = s[1];
     if(! match)
       /*<<stack.ml:41:10>>*/ throw  /*<<stack.ml:41:10>>*/ caml_maybe_attach_backtrace
-            (Empty, 1);
+             /*<<stack.ml:41:10>>*/ (Empty, 1);
     var tl = match[2];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
@@ -12481,7 +13217,7 @@
     var match = s[1];
     if(! match)
       /*<<stack.ml:46:13>>*/ throw  /*<<stack.ml:46:13>>*/ caml_maybe_attach_backtrace
-            (Empty, 1);
+             /*<<stack.ml:46:13>>*/ (Empty, 1);
     var hd = match[1];
      /*<<stack.ml:45:13>>*/ return hd;
     /*<<stack.ml:46:24>>*/ }
@@ -12508,7 +13244,7 @@
     /*<<stack.ml:63:30>>*/ }
    function add_seq(q, i){
      /*<<stack.ml:65:18>>*/ return  /*<<stack.ml:65:18>>*/ caml_call2
-            (Stdlib_Seq[4],
+             /*<<stack.ml:65:18>>*/ (Stdlib_Seq[4],
              function(x){
                /*<<stack.ml:65:37>>*/ return push(x, q);
               /*<<stack.ml:65:45>>*/ },
@@ -12591,7 +13327,7 @@
     var match = q[2];
     if(! match)
       /*<<queue.ml:60:11>>*/ throw  /*<<queue.ml:60:11>>*/ caml_maybe_attach_backtrace
-            (Empty, 1);
+             /*<<queue.ml:60:11>>*/ (Empty, 1);
     var content = match[1];
      /*<<queue.ml:61:24>>*/ return content;
     /*<<queue.ml:61:31>>*/ }
@@ -12605,7 +13341,7 @@
     var _f_ = q[2];
     if(! _f_)
       /*<<queue.ml:73:11>>*/ throw  /*<<queue.ml:73:11>>*/ caml_maybe_attach_backtrace
-            (Empty, 1);
+             /*<<queue.ml:73:11>>*/ (Empty, 1);
     var content = _f_[1];
     if(_f_[2]){
      var next = _f_[2];
@@ -12660,7 +13396,8 @@
      /*<<queue.ml:118:4>>*/ for(;;){
      if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
      var content = cell[1], next = cell[2];
-      /*<<queue.ml:121:6>>*/  /*<<queue.ml:121:6>>*/ caml_call1(f, content);
+      /*<<queue.ml:121:6>>*/  /*<<queue.ml:121:6>>*/ caml_call1
+       /*<<queue.ml:121:6>>*/ (f, content);
      cell = next;
     }
     /*<<queue.ml:124:27>>*/ }
@@ -12673,7 +13410,7 @@
       next = cell[2],
       accu$0 =
          /*<<queue.ml:131:17>>*/  /*<<queue.ml:131:17>>*/ caml_call2
-         (f, accu, content);
+          /*<<queue.ml:131:17>>*/ (f, accu, content);
      accu = accu$0;
      cell = next;
     }
@@ -12705,7 +13442,7 @@
     /*<<queue.ml:157:13>>*/ }
    function add_seq(q, i){
      /*<<queue.ml:159:18>>*/ return  /*<<queue.ml:159:18>>*/ caml_call2
-            (Stdlib_Seq[4],
+             /*<<queue.ml:159:18>>*/ (Stdlib_Seq[4],
              function(x){
                /*<<queue.ml:159:37>>*/ return add(x, q);
               /*<<queue.ml:159:45>>*/ },
@@ -12811,7 +13548,8 @@
      n$0 = 1 <= n ? n : 1,
      n$1 = Stdlib_Sys[12] < n$0 ? Stdlib_Sys[12] : n$0,
      s =
-        /*<<buffer.ml:43:9>>*/  /*<<buffer.ml:43:9>>*/ caml_create_bytes(n$1);
+        /*<<buffer.ml:43:9>>*/  /*<<buffer.ml:43:9>>*/ caml_create_bytes
+         /*<<buffer.ml:43:9>>*/ (n$1);
      /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s];
     /*<<buffer.ml:44:71>>*/ }
    function contents(b){
@@ -12826,9 +13564,9 @@
      /*<<buffer.ml:50:2>>*/ if
      (0 <= ofs && 0 <= len && (b[2] - len | 0) >= ofs)
       /*<<buffer.ml:52:7>>*/ return  /*<<buffer.ml:52:7>>*/ caml_call3
-             (Stdlib_Bytes[8], b[1][1], ofs, len);
+              /*<<buffer.ml:52:7>>*/ (Stdlib_Bytes[8], b[1][1], ofs, len);
      /*<<buffer.ml:51:7>>*/ return  /*<<buffer.ml:51:7>>*/ caml_call1
-            (Stdlib[1], cst_Buffer_sub);
+             /*<<buffer.ml:51:7>>*/ (Stdlib[1], cst_Buffer_sub);
     /*<<buffer.ml:52:46>>*/ }
    function blit(src, srcoff, dst, dstoff, len){
      /*<<buffer.ml:56:2>>*/ if
@@ -12839,9 +13577,14 @@
         (src[2] - len | 0) >= srcoff
         && 0 <= dstoff && (caml_ml_bytes_length(dst) - len | 0) >= dstoff)
       /*<<buffer.ml:60:4>>*/ return  /*<<buffer.ml:60:4>>*/ caml_call5
-             (Stdlib_Bytes[11], src[1][1], srcoff, dst, dstoff, len);
+              /*<<buffer.ml:60:4>>*/ (Stdlib_Bytes[11],
+              src[1][1],
+              srcoff,
+              dst,
+              dstoff,
+              len);
      /*<<buffer.ml:58:7>>*/ return  /*<<buffer.ml:58:7>>*/ caml_call1
-            (Stdlib[1], cst_Buffer_blit);
+             /*<<buffer.ml:58:7>>*/ (Stdlib[1], cst_Buffer_blit);
     /*<<buffer.ml:60:53>>*/ }
    function nth(b, ofs){
     var
@@ -12853,7 +13596,7 @@
      (0 <= ofs && position > ofs && length >= position)
      return runtime.caml_bytes_unsafe_get(buffer, ofs);
      /*<<buffer.ml:67:3>>*/ return  /*<<buffer.ml:67:3>>*/ caml_call1
-            (Stdlib[1], cst_Buffer_nth);
+             /*<<buffer.ml:67:3>>*/ (Stdlib[1], cst_Buffer_nth);
     /*<<buffer.ml:68:34>>*/ }
    function length(b){
      /*<<buffer.ml:71:15>>*/ return b[2];
@@ -12882,13 +13625,18 @@
       new_len[1] = Stdlib_Sys[12];
      else
        /*<<buffer.ml:94:9>>*/  /*<<buffer.ml:94:9>>*/ caml_call1
-       (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
+        /*<<buffer.ml:94:9>>*/ (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
     var
      new_buffer =
         /*<<buffer.ml:96:19>>*/  /*<<buffer.ml:96:19>>*/ caml_create_bytes
-        (new_len[1]);
+         /*<<buffer.ml:96:19>>*/ (new_len[1]);
      /*<<buffer.ml:99:2>>*/  /*<<buffer.ml:99:2>>*/ caml_call5
-     (Stdlib_Bytes[11], b[1][1], 0, new_buffer, 0, b[2]);
+      /*<<buffer.ml:99:2>>*/ (Stdlib_Bytes[11],
+      b[1][1],
+      0,
+      new_buffer,
+      0,
+      b[2]);
     b[1] = [0, new_buffer, new_len[1]];
     /*<<buffer.ml:100:55>>*/ }
    function add_char(b, c){
@@ -12900,7 +13648,7 @@
     if(length <= pos){
       /*<<buffer.ml:116:4>>*/ resize(b, 1);
       /*<<buffer.ml:117:4>>*/  /*<<buffer.ml:117:4>>*/ caml_bytes_set
-      (b[1][1], b[2], c);
+       /*<<buffer.ml:117:4>>*/ (b[1][1], b[2], c);
     }
     else
      caml_bytes_unsafe_set(buffer, pos, c);
@@ -12922,7 +13670,7 @@
      var
       n =
          /*<<buffer.ml:128:10>>*/  /*<<buffer.ml:128:10>>*/ caml_call3
-         (Stdlib_Bytes[51], b[1][1], pos, u);
+          /*<<buffer.ml:128:10>>*/ (Stdlib_Bytes[51], b[1][1], pos, u);
       /*<<buffer.ml:129:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:130:8>>*/ resize(b, uchar_utf_8_byte_length_max);
     }
@@ -12935,7 +13683,7 @@
      var
       n =
          /*<<buffer.ml:136:10>>*/  /*<<buffer.ml:136:10>>*/ caml_call3
-         (Stdlib_Bytes[54], b[1][1], pos, u);
+          /*<<buffer.ml:136:10>>*/ (Stdlib_Bytes[54], b[1][1], pos, u);
       /*<<buffer.ml:137:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:138:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
@@ -12948,7 +13696,7 @@
      var
       n =
          /*<<buffer.ml:144:10>>*/  /*<<buffer.ml:144:10>>*/ caml_call3
-         (Stdlib_Bytes[57], b[1][1], pos, u);
+          /*<<buffer.ml:144:10>>*/ (Stdlib_Bytes[57], b[1][1], pos, u);
       /*<<buffer.ml:145:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
       /*<<buffer.ml:146:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
@@ -12963,7 +13711,7 @@
       _t_ = _u_ || ((caml_ml_string_length(s) - len | 0) < offset ? 1 : 0);
     if(_t_)
       /*<<buffer.ml:151:7>>*/  /*<<buffer.ml:151:7>>*/ caml_call1
-      (Stdlib[1], cst_Buffer_add_substring_add_s);
+       /*<<buffer.ml:151:7>>*/ (Stdlib[1], cst_Buffer_add_substring_add_s);
     var
      position = b[2],
      match =  /*<<buffer.ml:153:2>>*/ b[1],
@@ -12973,18 +13721,24 @@
     if(length < new_position){
       /*<<buffer.ml:156:4>>*/ resize(b, len);
       /*<<buffer.ml:157:4>>*/  /*<<buffer.ml:157:4>>*/ caml_call5
-      (Stdlib_Bytes[12], s, offset, b[1][1], b[2], len);
+       /*<<buffer.ml:157:4>>*/ (Stdlib_Bytes[12],
+       s,
+       offset,
+       b[1][1],
+       b[2],
+       len);
     }
     else
       /*<<buffer.ml:159:4>>*/  /*<<buffer.ml:159:4>>*/ caml_blit_string
-      (s, offset, buffer, position, len);
+       /*<<buffer.ml:159:4>>*/ (s, offset, buffer, position, len);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
      /*<<buffer.ml:163:2>>*/ return add_substring
             (b,
-              /*<<buffer.ml:163:18>>*/ caml_call1(Stdlib_Bytes[44], s),
+              /*<<buffer.ml:163:18>>*/ caml_call1
+               /*<<buffer.ml:163:18>>*/ (Stdlib_Bytes[44], s),
              offset,
              len);
     /*<<buffer.ml:163:55>>*/ }
@@ -12999,17 +13753,19 @@
     if(length < new_position){
       /*<<buffer.ml:171:4>>*/ resize(b, len);
       /*<<buffer.ml:172:4>>*/  /*<<buffer.ml:172:4>>*/ caml_call5
-      (Stdlib_Bytes[12], s, 0, b[1][1], b[2], len);
+       /*<<buffer.ml:172:4>>*/ (Stdlib_Bytes[12], s, 0, b[1][1], b[2], len);
     }
     else
       /*<<buffer.ml:174:4>>*/  /*<<buffer.ml:174:4>>*/ caml_blit_string
-      (s, 0, buffer, position, len);
+       /*<<buffer.ml:174:4>>*/ (s, 0, buffer, position, len);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
      /*<<buffer.ml:177:20>>*/ return add_string
-            (b,  /*<<buffer.ml:177:33>>*/ caml_call1(Stdlib_Bytes[44], s));
+            (b,
+              /*<<buffer.ml:177:33>>*/ caml_call1
+               /*<<buffer.ml:177:33>>*/ (Stdlib_Bytes[44], s));
     /*<<buffer.ml:177:59>>*/ }
    function add_buffer(b, bs){
      /*<<buffer.ml:180:2>>*/ return add_subbytes(b, bs[1][1], 0, bs[2]);
@@ -13020,7 +13776,7 @@
      _r_ = _q_ || (Stdlib_Sys[12] < to_read$1 ? 1 : 0);
     if(_r_)
       /*<<buffer.ml:207:4>>*/  /*<<buffer.ml:207:4>>*/ caml_call1
-      (Stdlib[1], cst_Buffer_add_channel);
+       /*<<buffer.ml:207:4>>*/ (Stdlib[1], cst_Buffer_add_channel);
     if(b[1][2] < (b[2] + to_read$1 | 0))
       /*<<buffer.ml:200:44>>*/ resize(b, to_read$1);
     var
@@ -13034,7 +13790,7 @@
       var
        r =
           /*<<buffer.ml:187:14>>*/  /*<<buffer.ml:187:14>>*/ caml_call4
-          (Stdlib[84], ic, buf, ofs, to_read);
+           /*<<buffer.ml:187:14>>*/ (Stdlib[84], ic, buf, ofs, to_read);
        /*<<buffer.ml:188:6>>*/ if(0 !== r){
        var
         already_read$0 = already_read + r | 0,
@@ -13049,7 +13805,7 @@
      b[2] = b[2] + already_read | 0;
      if(already_read < to_read$1)
        /*<<buffer.ml:211:18>>*/ throw  /*<<buffer.ml:211:18>>*/ caml_maybe_attach_backtrace
-             (Stdlib[12], 1);
+              /*<<buffer.ml:211:18>>*/ (Stdlib[12], 1);
       /*<<buffer.ml:212:2>>*/ return 0;
     }
     /*<<buffer.ml:212:4>>*/ }
@@ -13067,7 +13823,7 @@
      var
       previous$0 =
          /*<<buffer.ml:264:12>>*/  /*<<buffer.ml:264:12>>*/ caml_string_get
-         (s, i$4);
+          /*<<buffer.ml:264:12>>*/ (s, i$4);
      if(36 === previous$0)
       if(92 === previous){
         /*<<buffer.ml:266:9>>*/ add_char(b, previous$0);
@@ -13080,11 +13836,11 @@
         /*<<buffer.ml:270:9>>*/ try{
         if(lim$1 <= start)
           /*<<buffer.ml:245:23>>*/ throw  /*<<buffer.ml:245:23>>*/ caml_maybe_attach_backtrace
-                (Stdlib[8], 1);
+                 /*<<buffer.ml:245:23>>*/ (Stdlib[8], 1);
         var
          opening =
             /*<<buffer.ml:246:8>>*/  /*<<buffer.ml:246:8>>*/ caml_string_get
-            (s, start);
+             /*<<buffer.ml:246:8>>*/ (s, start);
         a:
         {
          if(40 !== opening && 123 !== opening){
@@ -13101,7 +13857,7 @@
               var
                match =
                   /*<<buffer.ml:238:10>>*/  /*<<buffer.ml:238:10>>*/ caml_string_get
-                  (s, i$2);
+                   /*<<buffer.ml:238:10>>*/ (s, i$2);
               if(91 <= match){
                if(97 <= match){
                 if(123 <= match) break d;
@@ -13124,12 +13880,15 @@
           }
           if(stop$0 === start)
             /*<<buffer.ml:255:26>>*/ throw  /*<<buffer.ml:255:26>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
+                   /*<<buffer.ml:255:26>>*/ (Stdlib[8], 1);
           var
            val =
              [0,
                /*<<buffer.ml:256:5>>*/ caml_call3
-               (Stdlib_String[16], s, start, stop$0 - start | 0),
+                /*<<buffer.ml:256:5>>*/ (Stdlib_String[16],
+                s,
+                start,
+                stop$0 - start | 0),
               stop$0];
           break a;
          }
@@ -13139,17 +13898,26 @@
          else{
           if(123 !== opening)
             /*<<buffer.ml:220:9>>*/ throw  /*<<buffer.ml:220:9>>*/ caml_maybe_attach_backtrace
-                  ([0, Assert_failure, _a_], 1);
+                   /*<<buffer.ml:220:9>>*/ ([0, Assert_failure, _a_], 1);
           var closing = 125;
          }
          var lim = caml_ml_string_length(s), k = k$2, stop = new_start;
           /*<<buffer.ml:228:4>>*/ for(;;){
           if(lim <= stop)
             /*<<buffer.ml:228:21>>*/ throw  /*<<buffer.ml:228:21>>*/ caml_maybe_attach_backtrace
-                  (Stdlib[8], 1);
-          if( /*<<buffer.ml:229:7>>*/ caml_string_get(s, stop) === opening){var i = stop + 1 | 0, k$0 = k + 1 | 0; k = k$0; stop = i;}
+                   /*<<buffer.ml:228:21>>*/ (Stdlib[8], 1);
+          if
+           ( /*<<buffer.ml:229:7>>*/ caml_string_get
+              /*<<buffer.ml:229:7>>*/ (s, stop)
+            === opening){
+           var i = stop + 1 | 0, k$0 = k + 1 | 0;
+           k = k$0;
+           stop = i;
+          }
           else if
-           ( /*<<buffer.ml:230:7>>*/ caml_string_get(s, stop) === closing){
+           ( /*<<buffer.ml:230:7>>*/ caml_string_get
+              /*<<buffer.ml:230:7>>*/ (s, stop)
+            === closing){
            if(0 === k) break;
            var i$0 = stop + 1 | 0, k$1 = k - 1 | 0;
            k = k$1;
@@ -13161,7 +13929,10 @@
           val =
             [0,
               /*<<buffer.ml:251:5>>*/ caml_call3
-              (Stdlib_String[16], s, new_start, (stop - start | 0) - 1 | 0),
+               /*<<buffer.ml:251:5>>*/ (Stdlib_String[16],
+               s,
+               new_start,
+               (stop - start | 0) - 1 | 0),
              stop + 1 | 0];
         }
        }
@@ -13175,7 +13946,9 @@
        }
        var next_i = val[2], ident = val[1];
         /*<<buffer.ml:272:11>>*/ add_string
-        (b,  /*<<buffer.ml:272:24>>*/ caml_call1(f, ident));
+        (b,
+          /*<<buffer.ml:272:24>>*/ caml_call1
+           /*<<buffer.ml:272:24>>*/ (f, ident));
        previous = 32;
        i$4 = next_i;
       }
@@ -13191,7 +13964,7 @@
    function truncate(b, len){
      /*<<buffer.ml:287:4>>*/ if(0 <= len && b[2] >= len){b[2] = len; return 0;}
      /*<<buffer.ml:288:6>>*/ return  /*<<buffer.ml:288:6>>*/ caml_call1
-            (Stdlib[1], cst_Buffer_truncate);
+             /*<<buffer.ml:288:6>>*/ (Stdlib[1], cst_Buffer_truncate);
     /*<<buffer.ml:290:23>>*/ }
    function to_seq(b){
     function aux(i, param){
@@ -13200,7 +13973,7 @@
      var
       x =
          /*<<buffer.ml:299:14>>*/  /*<<buffer.ml:299:14>>*/ caml_bytes_get
-         (b[1][1], i),
+          /*<<buffer.ml:299:14>>*/ (b[1][1], i),
       _l_ =  /*<<buffer.ml:299:14>>*/ i + 1 | 0;
       /*<<buffer.ml:300:6>>*/ return [0,
              x,
@@ -13217,7 +13990,7 @@
      var
       x =
          /*<<buffer.ml:309:14>>*/  /*<<buffer.ml:309:14>>*/ caml_bytes_get
-         (b[1][1], i),
+          /*<<buffer.ml:309:14>>*/ (b[1][1], i),
       _h_ =  /*<<buffer.ml:309:14>>*/ i + 1 | 0;
       /*<<buffer.ml:310:6>>*/ return [0,
              [0, i, x],
@@ -13229,7 +14002,7 @@
     /*<<buffer.ml:312:7>>*/ }
    function add_seq(b, seq){
      /*<<buffer.ml:314:20>>*/ return  /*<<buffer.ml:314:20>>*/ caml_call2
-            (Stdlib_Seq[4],
+             /*<<buffer.ml:314:20>>*/ (Stdlib_Seq[4],
              function(_e_){ /*<<?>>*/ return add_char(b, _e_);},
              seq);
     /*<<buffer.ml:314:45>>*/ }
@@ -13248,7 +14021,7 @@
     if(length < new_position){
       /*<<buffer.ml:342:4>>*/ resize(b, 1);
       /*<<buffer.ml:343:4>>*/  /*<<buffer.ml:343:4>>*/ caml_bytes_set
-      (b[1][1], b[2], x);
+       /*<<buffer.ml:343:4>>*/ (b[1][1], b[2], x);
     }
     else
      caml_bytes_unsafe_set(buffer, position, x);
@@ -13265,11 +14038,11 @@
     if(length < new_position){
       /*<<buffer.ml:353:4>>*/ resize(b, 2);
       /*<<buffer.ml:354:4>>*/  /*<<buffer.ml:354:4>>*/ caml_bytes_set16
-      (b[1][1], b[2], x);
+       /*<<buffer.ml:354:4>>*/ (b[1][1], b[2], x);
     }
     else
       /*<<buffer.ml:356:4>>*/  /*<<buffer.ml:356:4>>*/ caml_bytes_set16
-      (buffer, position, x);
+       /*<<buffer.ml:356:4>>*/ (buffer, position, x);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:357:28>>*/ }
@@ -13283,11 +14056,11 @@
     if(length < new_position){
       /*<<buffer.ml:364:4>>*/ resize(b, 4);
       /*<<buffer.ml:365:4>>*/  /*<<buffer.ml:365:4>>*/ caml_bytes_set32
-      (b[1][1], b[2], x);
+       /*<<buffer.ml:365:4>>*/ (b[1][1], b[2], x);
     }
     else
       /*<<buffer.ml:367:4>>*/  /*<<buffer.ml:367:4>>*/ caml_bytes_set32
-      (buffer, position, x);
+       /*<<buffer.ml:367:4>>*/ (buffer, position, x);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:368:28>>*/ }
@@ -13301,11 +14074,11 @@
     if(length < new_position){
       /*<<buffer.ml:375:4>>*/ resize(b, 8);
       /*<<buffer.ml:376:4>>*/  /*<<buffer.ml:376:4>>*/ caml_bytes_set64
-      (b[1][1], b[2], x);
+       /*<<buffer.ml:376:4>>*/ (b[1][1], b[2], x);
     }
     else
       /*<<buffer.ml:378:4>>*/  /*<<buffer.ml:378:4>>*/ caml_bytes_set64
-      (buffer, position, x);
+       /*<<buffer.ml:378:4>>*/ (buffer, position, x);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:379:28>>*/ }
@@ -13319,22 +14092,38 @@
     /*<<buffer.ml:385:57>>*/ }
    function add_int32_le(b, x){
     var
-     _c_ = Stdlib_Sys[11] ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap(x) : x;
+     _c_ =
+       Stdlib_Sys[11]
+        ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap
+           /*<<buffer.ml:388:41>>*/ (x)
+        : x;
      /*<<buffer.ml:388:41>>*/ return add_int32_ne(b, _c_);
     /*<<buffer.ml:388:57>>*/ }
    function add_int32_be(b, x){
     var
-     x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap(x);
+     x$0 =
+       Stdlib_Sys[11]
+        ? x
+        :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap
+           /*<<buffer.ml:391:48>>*/ (x);
      /*<<buffer.ml:391:48>>*/ return add_int32_ne(b, x$0);
     /*<<buffer.ml:391:57>>*/ }
    function add_int64_le(b, x){
     var
-     _b_ = Stdlib_Sys[11] ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap(x) : x;
+     _b_ =
+       Stdlib_Sys[11]
+        ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap
+           /*<<buffer.ml:394:41>>*/ (x)
+        : x;
      /*<<buffer.ml:394:41>>*/ return add_int64_ne(b, _b_);
     /*<<buffer.ml:394:57>>*/ }
    function add_int64_be(b, x){
     var
-     x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap(x);
+     x$0 =
+       Stdlib_Sys[11]
+        ? x
+        :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap
+           /*<<buffer.ml:397:48>>*/ (x);
      /*<<buffer.ml:397:48>>*/ return add_int64_ne(b, x$0);
     /*<<buffer.ml:397:57>>*/ }
    var
@@ -13401,17 +14190,23 @@
             : runtime.caml_call_gen(f, [a0]);
    }
    function protect(m, f){
-     /*<<mutex.ml:27:2>>*/  /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock(m);
+     /*<<mutex.ml:27:2>>*/  /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock
+      /*<<mutex.ml:27:2>>*/ (m);
      /*<<mutex.ml:27:2>>*/ try{
-     var x =  /*<<mutex.ml:28:8>>*/  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
+     var
+      x =
+         /*<<mutex.ml:28:8>>*/  /*<<mutex.ml:28:8>>*/ caml_call1
+          /*<<mutex.ml:28:8>>*/ (f, 0);
     }
     catch(e$0){
      var e = caml_wrap_exception(e$0);
-      /*<<mutex.ml:33:4>>*/  /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock(m);
+      /*<<mutex.ml:33:4>>*/  /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock
+       /*<<mutex.ml:33:4>>*/ (m);
       /*<<mutex.ml:34:4>>*/ throw  /*<<mutex.ml:34:4>>*/ caml_maybe_attach_backtrace
-            (e, 0);
+             /*<<mutex.ml:34:4>>*/ (e, 0);
     }
-     /*<<mutex.ml:30:4>>*/  /*<<mutex.ml:30:4>>*/ caml_ml_mutex_unlock(m);
+     /*<<mutex.ml:30:4>>*/  /*<<mutex.ml:30:4>>*/ caml_ml_mutex_unlock
+      /*<<mutex.ml:30:4>>*/ (m);
      /*<<mutex.ml:30:4>>*/ return x;
     /*<<mutex.ml:34:13>>*/ }
    var
@@ -13473,48 +14268,52 @@
    function make(v){
      /*<<semaphore.ml:29:2>>*/ if(v < 0)
       /*<<semaphore.ml:29:16>>*/  /*<<semaphore.ml:29:16>>*/ caml_call1
-      (Stdlib[1], cst_Semaphore_Counting_init_wr);
+       /*<<semaphore.ml:29:16>>*/ (Stdlib[1], cst_Semaphore_Counting_init_wr);
     var
      _c_ =
         /*<<semaphore.ml:30:39>>*/  /*<<semaphore.ml:30:39>>*/ caml_call1
-        (Stdlib_Condition[1], 0);
+         /*<<semaphore.ml:30:39>>*/ (Stdlib_Condition[1], 0);
      /*<<semaphore.ml:30:2>>*/ return [0,
-             /*<<semaphore.ml:30:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
+             /*<<semaphore.ml:30:10>>*/ caml_call1
+              /*<<semaphore.ml:30:10>>*/ (Stdlib_Mutex[1], 0),
             v,
             _c_];
     /*<<semaphore.ml:30:59>>*/ }
    function release(s){
      /*<<semaphore.ml:33:2>>*/  /*<<semaphore.ml:33:2>>*/ caml_call1
-     (Stdlib_Mutex[2], s[1]);
+      /*<<semaphore.ml:33:2>>*/ (Stdlib_Mutex[2], s[1]);
     if(s[2] < Stdlib[19]){
      s[2] = s[2] + 1 | 0;
       /*<<semaphore.ml:36:4>>*/  /*<<semaphore.ml:36:4>>*/ caml_call1
-      (Stdlib_Condition[3], s[3]);
+       /*<<semaphore.ml:36:4>>*/ (Stdlib_Condition[3], s[3]);
      return caml_call1(Stdlib_Mutex[4], s[1]);
     }
      /*<<semaphore.ml:39:4>>*/  /*<<semaphore.ml:39:4>>*/ caml_call1
-     (Stdlib_Mutex[4], s[1]);
+      /*<<semaphore.ml:39:4>>*/ (Stdlib_Mutex[4], s[1]);
      /*<<semaphore.ml:40:4>>*/ throw  /*<<semaphore.ml:40:4>>*/ caml_maybe_attach_backtrace
-           ([0, Stdlib[11], cst_Semaphore_Counting_release], 1);
+            /*<<semaphore.ml:40:4>>*/ ([0,
+             Stdlib[11],
+             cst_Semaphore_Counting_release],
+            1);
     /*<<semaphore.ml:41:5>>*/ }
    function acquire(s){
      /*<<semaphore.ml:44:2>>*/  /*<<semaphore.ml:44:2>>*/ caml_call1
-     (Stdlib_Mutex[2], s[1]);
+      /*<<semaphore.ml:44:2>>*/ (Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:45:19>>*/ for(;;){
      if(0 !== s[2]){
       s[2] = s[2] - 1 | 0;
       return caml_call1(Stdlib_Mutex[4], s[1]);
      }
       /*<<semaphore.ml:45:19>>*/  /*<<semaphore.ml:45:19>>*/ caml_call2
-      (Stdlib_Condition[2], s[3], s[1]);
+       /*<<semaphore.ml:45:19>>*/ (Stdlib_Condition[2], s[3], s[1]);
     }
     /*<<semaphore.ml:47:20>>*/ }
    function try_acquire(s){
      /*<<semaphore.ml:50:2>>*/  /*<<semaphore.ml:50:2>>*/ caml_call1
-     (Stdlib_Mutex[2], s[1]);
+      /*<<semaphore.ml:50:2>>*/ (Stdlib_Mutex[2], s[1]);
     var ret = 0 === s[2] ? 0 : (s[2] = s[2] - 1 | 0, 1);
      /*<<semaphore.ml:52:2>>*/  /*<<semaphore.ml:52:2>>*/ caml_call1
-     (Stdlib_Mutex[4], s[1]);
+      /*<<semaphore.ml:52:2>>*/ (Stdlib_Mutex[4], s[1]);
      /*<<semaphore.ml:52:2>>*/ return ret;
     /*<<semaphore.ml:53:5>>*/ }
    function get_value(s){
@@ -13532,36 +14331,37 @@
     var
      _a_ =
         /*<<semaphore.ml:66:14>>*/  /*<<semaphore.ml:66:14>>*/ caml_call1
-        (Stdlib_Condition[1], 0),
+         /*<<semaphore.ml:66:14>>*/ (Stdlib_Condition[1], 0),
      _b_ = b ? 1 : 0;
      /*<<semaphore.ml:64:2>>*/ return [0,
-             /*<<semaphore.ml:64:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
+             /*<<semaphore.ml:64:10>>*/ caml_call1
+              /*<<semaphore.ml:64:10>>*/ (Stdlib_Mutex[1], 0),
             _b_,
             _a_];
     /*<<semaphore.ml:66:34>>*/ }
    function release$0(s){
      /*<<semaphore.ml:69:2>>*/  /*<<semaphore.ml:69:2>>*/ caml_call1
-     (Stdlib_Mutex[2], s[1]);
+      /*<<semaphore.ml:69:2>>*/ (Stdlib_Mutex[2], s[1]);
     s[2] = 1;
      /*<<semaphore.ml:71:2>>*/  /*<<semaphore.ml:71:2>>*/ caml_call1
-     (Stdlib_Condition[3], s[3]);
+      /*<<semaphore.ml:71:2>>*/ (Stdlib_Condition[3], s[3]);
     return caml_call1(Stdlib_Mutex[4], s[1]);
     /*<<semaphore.ml:72:20>>*/ }
    function acquire$0(s){
      /*<<semaphore.ml:75:2>>*/  /*<<semaphore.ml:75:2>>*/ caml_call1
-     (Stdlib_Mutex[2], s[1]);
+      /*<<semaphore.ml:75:2>>*/ (Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:76:19>>*/ for(;;){
      if(0 !== s[2]){s[2] = 0; return caml_call1(Stdlib_Mutex[4], s[1]);}
       /*<<semaphore.ml:76:19>>*/  /*<<semaphore.ml:76:19>>*/ caml_call2
-      (Stdlib_Condition[2], s[3], s[1]);
+       /*<<semaphore.ml:76:19>>*/ (Stdlib_Condition[2], s[3], s[1]);
     }
     /*<<semaphore.ml:78:20>>*/ }
    function try_acquire$0(s){
      /*<<semaphore.ml:81:2>>*/  /*<<semaphore.ml:81:2>>*/ caml_call1
-     (Stdlib_Mutex[2], s[1]);
+      /*<<semaphore.ml:81:2>>*/ (Stdlib_Mutex[2], s[1]);
     var ret = 0 === s[2] ? 0 : (s[2] = 0, 1);
      /*<<semaphore.ml:83:2>>*/  /*<<semaphore.ml:83:2>>*/ caml_call1
-     (Stdlib_Mutex[4], s[1]);
+      /*<<semaphore.ml:83:2>>*/ (Stdlib_Mutex[4], s[1]);
      /*<<semaphore.ml:83:2>>*/ return ret;
     /*<<semaphore.ml:84:5>>*/ }
    var
@@ -13623,31 +14423,31 @@
     Assert_failure = global_data.Assert_failure;
    function cpu_relax(param){
      /*<<domain.ml:47:19>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
-            (0);
+             /*<<domain.ml:47:19>>*/ (0);
     /*<<domain.ml:47:35>>*/ }
    var none =  /*<<domain.ml:72:24>>*/ [0, 0];
    function create_dls(param){
     var
      st =
         /*<<domain.ml:89:13>>*/  /*<<domain.ml:89:13>>*/ caml_make_vect
-        (8, none);
+         /*<<domain.ml:89:13>>*/ (8, none);
      /*<<domain.ml:90:4>>*/  /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set
-     (st);
+      /*<<domain.ml:90:4>>*/ (st);
     /*<<domain.ml:90:20>>*/ }
     /*<<domain.ml:92:10>>*/ create_dls(0);
    var
     key_counter =
        /*<<domain.ml:96:20>>*/  /*<<domain.ml:96:20>>*/ caml_call1
-       (Stdlib_Atomic[1], 0),
+        /*<<domain.ml:96:20>>*/ (Stdlib_Atomic[1], 0),
     parent_keys =
        /*<<domain.ml:101:20>>*/  /*<<domain.ml:101:20>>*/ caml_call1
-       (Stdlib_Atomic[1], 0),
+        /*<<domain.ml:101:20>>*/ (Stdlib_Atomic[1], 0),
     _a_ = [0, "domain.ml", 184, 13];
    function new_key(split_from_parent, init_orphan){
     var
      idx =
         /*<<domain.ml:109:14>>*/  /*<<domain.ml:109:14>>*/ caml_call2
-        (Stdlib_Atomic[7], key_counter, 1),
+         /*<<domain.ml:109:14>>*/ (Stdlib_Atomic[7], key_counter, 1),
      k =  /*<<domain.ml:110:12>>*/ [0, idx, init_orphan];
      /*<<domain.ml:111:4>>*/ if(split_from_parent){
      var
@@ -13657,13 +14457,16 @@
       var
        l =
           /*<<domain.ml:104:12>>*/  /*<<domain.ml:104:12>>*/ caml_call1
-          (Stdlib_Atomic[3], parent_keys);
+           /*<<domain.ml:104:12>>*/ (Stdlib_Atomic[3], parent_keys);
       if
        (!
         (1
         -
           /*<<domain.ml:105:11>>*/ caml_call3
-          (Stdlib_Atomic[6], parent_keys, l, [0, ki, l])))
+           /*<<domain.ml:105:11>>*/ (Stdlib_Atomic[6],
+           parent_keys,
+           l,
+           [0, ki, l])))
        break;
      }
     }
@@ -13684,12 +14487,12 @@
      var
       new_st =
          /*<<domain.ml:128:19>>*/  /*<<domain.ml:128:19>>*/ caml_make_vect
-         (new_sz, none);
+          /*<<domain.ml:128:19>>*/ (new_sz, none);
       /*<<domain.ml:129:6>>*/  /*<<domain.ml:129:6>>*/ caml_call5
-      (Stdlib_Array[9], st, 0, new_st, 0, sz);
+       /*<<domain.ml:129:6>>*/ (Stdlib_Array[9], st, 0, new_st, 0, sz);
       /*<<domain.ml:136:9>>*/ if
       ( /*<<domain.ml:136:9>>*/ runtime.caml_domain_dls_compare_and_set
-        (st, new_st))
+         /*<<domain.ml:136:9>>*/ (st, new_st))
        /*<<domain.ml:137:11>>*/ return new_st;
     }
     /*<<domain.ml:139:7>>*/ }
@@ -13708,10 +14511,11 @@
       /*<<domain.ml:75:25>>*/ return oldval;
     var
      new_obj =
-        /*<<domain.ml:164:18>>*/  /*<<domain.ml:164:18>>*/ caml_call1(init, 0),
+        /*<<domain.ml:164:18>>*/  /*<<domain.ml:164:18>>*/ caml_call1
+         /*<<domain.ml:164:18>>*/ (init, 0),
      st$0 =
         /*<<domain.ml:175:6>>*/  /*<<domain.ml:175:6>>*/ caml_domain_dls_get
-        (0),
+         /*<<domain.ml:175:6>>*/ (0),
      curval =  /*<<domain.ml:152:17>>*/ caml_check_bound(st$0, idx)[1 + idx],
      _e_ = curval === oldval ? (st$0[1 + idx] = new_obj, 1) : 0;
      /*<<domain.ml:176:9>>*/ if(_e_)  /*<<domain.ml:177:11>>*/ return new_obj;
@@ -13721,7 +14525,7 @@
      /*<<domain.ml:182:11>>*/ if(updated_obj !== none)
       /*<<domain.ml:75:25>>*/ return updated_obj;
      /*<<domain.ml:184:13>>*/ throw  /*<<domain.ml:184:13>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _a_], 1);
+            /*<<domain.ml:184:13>>*/ ([0, Assert_failure, _a_], 1);
    }
    function get_id(param){
     var domain = param[1];
@@ -13729,18 +14533,20 @@
    }
    function self(param){
      /*<<domain.ml:203:14>>*/ return  /*<<domain.ml:203:14>>*/ caml_ml_domain_id
-            (0);
+             /*<<domain.ml:203:14>>*/ (0);
     /*<<domain.ml:203:25>>*/ }
    function is_main_domain(param){
      /*<<domain.ml:205:24>>*/ return 0
-            ===  /*<<domain.ml:203:14>>*/ caml_ml_domain_id(0)
+            ===
+              /*<<domain.ml:203:14>>*/ caml_ml_domain_id
+               /*<<domain.ml:203:14>>*/ (0)
             ? 1
             : 0;
     /*<<domain.ml:205:44>>*/ }
    var
     first_domain_spawned =
        /*<<domain.ml:210:27>>*/  /*<<domain.ml:210:27>>*/ caml_call1
-       (Stdlib_Atomic[1], 0),
+        /*<<domain.ml:210:27>>*/ (Stdlib_Atomic[1], 0),
     first_spawn_function =
        /*<<domain.ml:212:27>>*/ [0,
        function(param){ /*<<domain.ml:212:44>>*/ }],
@@ -13748,14 +14554,18 @@
    function before_first_spawn(f){
      /*<<domain.ml:215:2>>*/ if
      ( /*<<domain.ml:215:5>>*/ caml_call1
-       (Stdlib_Atomic[3], first_domain_spawned))
+        /*<<domain.ml:215:5>>*/ (Stdlib_Atomic[3], first_domain_spawned))
       /*<<domain.ml:216:4>>*/ throw  /*<<domain.ml:216:4>>*/ caml_maybe_attach_backtrace
-            ([0, Stdlib[6], cst_first_domain_already_spawn], 1);
+             /*<<domain.ml:216:4>>*/ ([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>>*/  /*<<domain.ml:219:19>>*/ caml_call1
+       /*<<domain.ml:219:19>>*/ (old_f, 0);
       /*<<domain.ml:219:19>>*/ return  /*<<domain.ml:219:19>>*/ caml_call1
-             (f, 0);
+              /*<<domain.ml:219:19>>*/ (f, 0);
      /*<<domain.ml:219:33>>*/ }
     first_spawn_function[1] = new_f;
     return 0;
@@ -13771,15 +14581,17 @@
    function at_exit(f){
     var old_exit =  /*<<domain.ml:234:32>>*/ get(at_exit_key);
     function new_exit(param){
-      /*<<domain.ml:236:4>>*/  /*<<domain.ml:236:4>>*/ caml_call1(f, 0);
+      /*<<domain.ml:236:4>>*/  /*<<domain.ml:236:4>>*/ caml_call1
+       /*<<domain.ml:236:4>>*/ (f, 0);
       /*<<domain.ml:236:4>>*/ return  /*<<domain.ml:236:4>>*/ caml_call1
-             (old_exit, 0);
+              /*<<domain.ml:236:4>>*/ (old_exit, 0);
      /*<<domain.ml:236:21>>*/ }
      /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit);
     /*<<domain.ml:238:30>>*/ }
    function do_at_exit(param){
     var f =  /*<<domain.ml:241:25>>*/ get(at_exit_key);
-     /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1(f, 0);
+     /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1
+             /*<<domain.ml:242:2>>*/ (f, 0);
     /*<<domain.ml:242:6>>*/ }
    Stdlib[104][1] = do_at_exit;
    function spawn(f){
@@ -13787,11 +14599,11 @@
      (1
       -
         /*<<domain.ml:224:9>>*/ caml_call1
-        (Stdlib_Atomic[3], first_domain_spawned)){
+         /*<<domain.ml:224:9>>*/ (Stdlib_Atomic[3], first_domain_spawned)){
       /*<<domain.ml:225:4>>*/  /*<<domain.ml:225:4>>*/ caml_call2
-      (Stdlib_Atomic[4], first_domain_spawned, 1);
+       /*<<domain.ml:225:4>>*/ (Stdlib_Atomic[4], first_domain_spawned, 1);
       /*<<domain.ml:226:4>>*/  /*<<domain.ml:226:4>>*/ caml_call1
-      (first_spawn_function[1], 0);
+       /*<<domain.ml:226:4>>*/ (first_spawn_function[1], 0);
      first_spawn_function[1] =
       function(param){
         /*<<domain.ml:228:39>>*/ return 0;
@@ -13800,30 +14612,32 @@
     var
      _b_ =
         /*<<domain.ml:193:6>>*/  /*<<domain.ml:193:6>>*/ caml_call1
-        (Stdlib_Atomic[3], parent_keys),
+         /*<<domain.ml:193:6>>*/ (Stdlib_Atomic[3], parent_keys),
      pk =
         /*<<domain.ml:193:6>>*/  /*<<domain.ml:193:6>>*/ caml_call2
-        (Stdlib_List[20],
+         /*<<domain.ml:193:6>>*/ (Stdlib_List[20],
          function(param){
           var split = param[2], k = param[1];
            /*<<domain.ml:192:30>>*/ return [0,
                   k,
-                   /*<<domain.ml:192:37>>*/ caml_call1(split, get(k))];
+                   /*<<domain.ml:192:37>>*/ caml_call1
+                    /*<<domain.ml:192:37>>*/ (split, get(k))];
           /*<<domain.ml:192:54>>*/ },
          _b_),
      _c_ =
         /*<<domain.ml:256:17>>*/  /*<<domain.ml:256:17>>*/ caml_call1
-        (Stdlib_Condition[1], 0),
+         /*<<domain.ml:256:17>>*/ (Stdlib_Condition[1], 0),
      term_sync =
         /*<<domain.ml:254:8>>*/ [0,
         0,
-         /*<<domain.ml:255:16>>*/ caml_call1(Stdlib_Mutex[1], 0),
+         /*<<domain.ml:255:16>>*/ caml_call1
+          /*<<domain.ml:255:16>>*/ (Stdlib_Mutex[1], 0),
         _c_];
     function body(param){
       /*<<domain.ml:260:4>>*/ try{
        /*<<domain.ml:261:6>>*/ create_dls(0);
        /*<<domain.ml:196:4>>*/  /*<<domain.ml:196:4>>*/ caml_call2
-       (Stdlib_List[18],
+        /*<<domain.ml:196:4>>*/ (Stdlib_List[18],
         function(param){
          var v = param[2], k = param[1];
           /*<<domain.ml:196:34>>*/ return set(k, v);
@@ -13831,14 +14645,15 @@
         pk);
       var
        res =
-          /*<<domain.ml:263:16>>*/  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
+          /*<<domain.ml:263:16>>*/  /*<<domain.ml:263:16>>*/ caml_call1
+           /*<<domain.ml:263:16>>*/ (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);}
       catch(_d_){}
        /*<<domain.ml:279:8>>*/ throw  /*<<domain.ml:279:8>>*/ caml_maybe_attach_backtrace
-             (exn, 0);
+              /*<<domain.ml:279:8>>*/ (exn, 0);
      }
       /*<<domain.ml:272:8>>*/ do_at_exit(0);
       /*<<domain.ml:272:8>>*/ return res;
@@ -13846,7 +14661,7 @@
     var
      domain =
         /*<<domain.ml:281:15>>*/  /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn
-        (body, term_sync);
+         /*<<domain.ml:281:15>>*/ (body, term_sync);
      /*<<domain.ml:282:2>>*/ return [0, domain, term_sync];
     /*<<domain.ml:282:24>>*/ }
    function join(param){
@@ -13856,17 +14671,19 @@
       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
-       (Stdlib_Condition[2], term_sync[3], term_sync[2]);
+        /*<<domain.ml:289:8>>*/ (Stdlib_Condition[2],
+        term_sync[3],
+        term_sync[2]);
      }
      /*<<domain.ml:292:11>>*/ }
     var
      match =
         /*<<domain.ml:294:8>>*/  /*<<domain.ml:294:8>>*/ caml_call2
-        (Stdlib_Mutex[5], term_sync[2], loop);
+         /*<<domain.ml:294:8>>*/ (Stdlib_Mutex[5], term_sync[2], loop);
     if(0 === match[0]){var x = match[1];  /*<<domain.ml:295:12>>*/ return x;}
     var ex = match[1];
      /*<<domain.ml:296:16>>*/ throw  /*<<domain.ml:296:16>>*/ caml_maybe_attach_backtrace
-           (ex, 1);
+            /*<<domain.ml:296:16>>*/ (ex, 1);
    }
    var
     recommended_domain_count = runtime.caml_recommended_domain_count,
@@ -14041,7 +14858,7 @@
     _q_ = [0, cst_camlinternalFormat_ml, 831, 30];
    function create_char_set(param){
      /*<<camlinternalFormat.ml:24:25>>*/ return  /*<<camlinternalFormat.ml:24:25>>*/ caml_call2
-            (Stdlib_Bytes[1], 32, 0);
+             /*<<camlinternalFormat.ml:24:25>>*/ (Stdlib_Bytes[1], 32, 0);
     /*<<camlinternalFormat.ml:24:45>>*/ }
    function add_in_char_set(char_set, c){
     var
@@ -14049,16 +14866,17 @@
      mask = 1 << (c & 7),
      _cU_ =
         /*<<camlinternalFormat.ml:31:30>>*/  /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
-        (char_set, str_ind)
+         /*<<camlinternalFormat.ml:31:30>>*/ (char_set, str_ind)
        | mask;
      /*<<camlinternalFormat.ml:30:2>>*/ return  /*<<camlinternalFormat.ml:30:2>>*/ caml_bytes_set
-            (char_set,
+             /*<<camlinternalFormat.ml:30:2>>*/ (char_set,
              str_ind,
-              /*<<camlinternalFormat.ml:31:4>>*/ caml_call1(Stdlib[29], _cU_));
+              /*<<camlinternalFormat.ml:31:4>>*/ caml_call1
+               /*<<camlinternalFormat.ml:31:4>>*/ (Stdlib[29], _cU_));
     /*<<camlinternalFormat.ml:31:69>>*/ }
    function freeze_char_set(char_set){
      /*<<camlinternalFormat.ml:34:2>>*/ return  /*<<camlinternalFormat.ml:34:2>>*/ caml_call1
-            (Stdlib_Bytes[6], char_set);
+             /*<<camlinternalFormat.ml:34:2>>*/ (Stdlib_Bytes[6], char_set);
     /*<<camlinternalFormat.ml:34:26>>*/ }
    function rev_char_set(char_set){
     var
@@ -14068,16 +14886,18 @@
      var
       _cS_ =
          /*<<camlinternalFormat.ml:41:32>>*/  /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get
-         (char_set, i)
+          /*<<camlinternalFormat.ml:41:32>>*/ (char_set, i)
         ^ 255;
       /*<<camlinternalFormat.ml:40:4>>*/  /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
-      (char_set$0,
+       /*<<camlinternalFormat.ml:40:4>>*/ (char_set$0,
        i,
-        /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _cS_));
+        /*<<camlinternalFormat.ml:41:6>>*/ caml_call1
+         /*<<camlinternalFormat.ml:41:6>>*/ (Stdlib[29], _cS_));
      var _cT_ =  /*<<camlinternalFormat.ml:40:4>>*/ i + 1 | 0;
      if(31 === i)
        /*<<camlinternalFormat.ml:43:2>>*/ return  /*<<camlinternalFormat.ml:43:2>>*/ caml_call1
-              (Stdlib_Bytes[44], char_set$0);
+               /*<<camlinternalFormat.ml:43:2>>*/ (Stdlib_Bytes[44],
+               char_set$0);
      i = _cT_;
     }
     /*<<camlinternalFormat.ml:43:34>>*/ }
@@ -14086,7 +14906,7 @@
     return 0
             !==
              ( /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
-              (char_set, str_ind)
+               /*<<camlinternalFormat.ml:49:15>>*/ (char_set, str_ind)
              & mask)
             ? 1
             : 0;
@@ -14168,7 +14988,8 @@
    function buffer_create(init_size){
      /*<<camlinternalFormat.ml:256:30>>*/ return [0,
             0,
-             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)];
+             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes
+              /*<<camlinternalFormat.ml:256:49>>*/ (init_size)];
     /*<<camlinternalFormat.ml:256:73>>*/ }
    function buffer_check_size(buf, overhead){
     var
@@ -14178,26 +14999,38 @@
      var
       new_len =
          /*<<camlinternalFormat.ml:263:18>>*/  /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
-         (Stdlib_Int[11], len * 2 | 0, min_len),
+          /*<<camlinternalFormat.ml:263:18>>*/ (Stdlib_Int[11],
+          len * 2 | 0,
+          min_len),
       new_str =
          /*<<camlinternalFormat.ml:264:18>>*/  /*<<camlinternalFormat.ml:264:18>>*/ caml_create_bytes
-         (new_len);
+          /*<<camlinternalFormat.ml:264:18>>*/ (new_len);
       /*<<camlinternalFormat.ml:265:4>>*/  /*<<camlinternalFormat.ml:265:4>>*/ caml_call5
-      (Stdlib_Bytes[11], buf[2], 0, new_str, 0, len);
+       /*<<camlinternalFormat.ml:265:4>>*/ (Stdlib_Bytes[11],
+       buf[2],
+       0,
+       new_str,
+       0,
+       len);
      buf[2] = new_str;
     }
     /*<<camlinternalFormat.ml:267:3>>*/ }
    function buffer_add_char(buf, c){
      /*<<camlinternalFormat.ml:271:2>>*/ buffer_check_size(buf, 1);
      /*<<camlinternalFormat.ml:272:2>>*/  /*<<camlinternalFormat.ml:272:2>>*/ caml_bytes_set
-     (buf[2], buf[1], c);
+      /*<<camlinternalFormat.ml:272:2>>*/ (buf[2], buf[1], c);
     buf[1] = buf[1] + 1 | 0;
     /*<<camlinternalFormat.ml:273:24>>*/ }
    function buffer_add_string(buf, s){
     var str_len = caml_ml_string_length(s);
      /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size(buf, str_len);
      /*<<camlinternalFormat.ml:279:2>>*/  /*<<camlinternalFormat.ml:279:2>>*/ caml_call5
-     (Stdlib_String[6], s, 0, buf[2], buf[1], str_len);
+      /*<<camlinternalFormat.ml:279:2>>*/ (Stdlib_String[6],
+      s,
+      0,
+      buf[2],
+      buf[1],
+      str_len);
     buf[1] = buf[1] + str_len | 0;
     /*<<camlinternalFormat.ml:280:30>>*/ }
    function buffer_contents(buf){
@@ -14270,7 +15103,7 @@
      /*<<camlinternalFormat.ml:387:40>>*/ return buffer_add_string
             (buf,
               /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
-              (Stdlib_Int[12], width));
+               /*<<camlinternalFormat.ml:387:40>>*/ (Stdlib_Int[12], width));
     /*<<camlinternalFormat.ml:387:61>>*/ }
    function bprint_padding(buf, pad){
      /*<<camlinternalFormat.ml:393:15>>*/ if(typeof pad === "number")
@@ -14281,7 +15114,7 @@
       /*<<camlinternalFormat.ml:397:26>>*/ return buffer_add_string
              (buf,
                /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
-               (Stdlib_Int[12], n));
+                /*<<camlinternalFormat.ml:397:26>>*/ (Stdlib_Int[12], n));
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty(buf, padty$0);
@@ -14294,7 +15127,7 @@
       /*<<camlinternalFormat.ml:408:26>>*/ return buffer_add_string
              (buf,
                /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
-               (Stdlib_Int[12], n));
+                /*<<camlinternalFormat.ml:408:26>>*/ (Stdlib_Int[12], n));
     }
     if(prec)
       /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst);
@@ -14367,9 +15200,9 @@
         c = formatting_lit[1],
         _cQ_ =
            /*<<camlinternalFormat.ml:475:26>>*/  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
-           (Stdlib_String[1], 1, c);
+            /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib_String[1], 1, c);
         /*<<camlinternalFormat.ml:475:26>>*/ return  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
-               (Stdlib[28], cst$7, _cQ_);
+                /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib[28], cst$7, _cQ_);
     }
     /*<<camlinternalFormat.ml:475:43>>*/ }
    function bprint_char_literal(buf, chr){
@@ -14385,7 +15218,9 @@
      var i = _cN_;
      for(;;){
        /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
-       (buf,  /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get(str, i));
+       (buf,
+         /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get
+          /*<<camlinternalFormat.ml:487:28>>*/ (str, i));
       var _cP_ =  /*<<camlinternalFormat.ml:487:4>>*/ i + 1 | 0;
       if(_cO_ === i) break;
       i = _cP_;
@@ -14707,7 +15542,7 @@
              var
               c =
                  /*<<camlinternalFormat.ml:358:31>>*/  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
-                 (Stdlib[29], i);
+                  /*<<camlinternalFormat.ml:358:31>>*/ (Stdlib[29], i);
              return 37 === c
                      ? (buffer_add_char(buf, 37), buffer_add_char(buf, 37))
                      : 64
@@ -14728,10 +15563,12 @@
              var
               after =
                  /*<<camlinternalFormat.ml:316:50>>*/  /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
-                 (Stdlib_Char[1], c + 1 | 0),
+                  /*<<camlinternalFormat.ml:316:50>>*/ (Stdlib_Char[1],
+                  c + 1 | 0),
               before =
                  /*<<camlinternalFormat.ml:316:32>>*/  /*<<camlinternalFormat.ml:316:32>>*/ caml_call1
-                 (Stdlib_Char[1], c - 1 | 0),
+                  /*<<camlinternalFormat.ml:316:32>>*/ (Stdlib_Char[1],
+                  c - 1 | 0),
               _cJ_ =
                  /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set(set$0, c);
               /*<<camlinternalFormat.ml:317:6>>*/ if(_cJ_)
@@ -14764,11 +15601,11 @@
               (is_in_char_set
                 (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
-                  (Stdlib[29], i))){
+                   /*<<camlinternalFormat.ml:324:28>>*/ (Stdlib[29], i))){
               var
                switcher =
                   /*<<camlinternalFormat.ml:327:10>>*/  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
-                  (Stdlib[29], i)
+                   /*<<camlinternalFormat.ml:327:10>>*/ (Stdlib[29], i)
                  - 45
                  | 0;
               if(48 < switcher >>> 0){
@@ -14784,11 +15621,11 @@
                (is_in_char_set
                  (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
-                   (Stdlib[29], i$1))){
+                    /*<<camlinternalFormat.ml:332:26>>*/ (Stdlib[29], i$1))){
                var
                 switcher$0 =
                    /*<<camlinternalFormat.ml:333:12>>*/  /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
-                   (Stdlib[29], i$1)
+                    /*<<camlinternalFormat.ml:333:12>>*/ (Stdlib[29], i$1)
                   - 45
                   | 0;
                if(48 < switcher$0 >>> 0){
@@ -14801,7 +15638,8 @@
                   is_in_char_set
                    (set,
                      /*<<camlinternalFormat.ml:337:47>>*/ caml_call1
-                     (Stdlib[29], i$1 + 1 | 0))){
+                      /*<<camlinternalFormat.ml:337:47>>*/ (Stdlib[29],
+                      i$1 + 1 | 0))){
                  /*<<camlinternalFormat.ml:338:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
                 var i$5 =  /*<<camlinternalFormat.ml:338:8>>*/ i$1 + 1 | 0;
@@ -14812,7 +15650,8 @@
                 (is_in_char_set
                   (set,
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
-                    (Stdlib[29], i$1 + 1 | 0))){
+                     /*<<camlinternalFormat.ml:340:39>>*/ (Stdlib[29],
+                     i$1 + 1 | 0))){
                 var
                  j =  /*<<camlinternalFormat.ml:345:8>>*/ i$1 + 2 | 0,
                  i$3 = i$1 - 1 | 0,
@@ -14824,7 +15663,7 @@
                    is_in_char_set
                     (set,
                       /*<<camlinternalFormat.ml:351:42>>*/ caml_call1
-                      (Stdlib[29], j$0)))
+                       /*<<camlinternalFormat.ml:351:42>>*/ (Stdlib[29], j$0)))
                   break;
                  var j$1 =  /*<<camlinternalFormat.ml:357:6>>*/ j$0 + 1 | 0;
                  j$0 = j$1;
@@ -15442,7 +16281,10 @@
                    break e;
                 }
                 /*<<camlinternalFormat.ml:836:26>>*/ throw  /*<<camlinternalFormat.ml:836:26>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _k_], 1);
+                       /*<<camlinternalFormat.ml:836:26>>*/ ([0,
+                        Assert_failure,
+                        _k_],
+                       1);
               case 9:
                var rest1$8 = ty1[3], ty12 = ty1[2], ty11 = ty1[1];
                if(typeof ty2 !== "number")
@@ -15479,7 +16321,10 @@
                    break e;
                 }
                 /*<<camlinternalFormat.ml:846:28>>*/ throw  /*<<camlinternalFormat.ml:846:28>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _l_], 1);
+                       /*<<camlinternalFormat.ml:846:28>>*/ ([0,
+                        Assert_failure,
+                        _l_],
+                       1);
               case 10:
                var rest1$9 = ty1[1];
                if(typeof ty2 !== "number" && 10 === ty2[0]){
@@ -15488,7 +16333,10 @@
                         trans(rest1$9, rest2$9)];
                }
                 /*<<camlinternalFormat.ml:814:21>>*/ throw  /*<<camlinternalFormat.ml:814:21>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _m_], 1);
+                       /*<<camlinternalFormat.ml:814:21>>*/ ([0,
+                        Assert_failure,
+                        _m_],
+                       1);
               case 11:
                var rest1$10 = ty1[1];
                if(typeof ty2 !== "number")
@@ -15501,7 +16349,10 @@
                            trans(rest1$10, rest2$10)];
                 }
                 /*<<camlinternalFormat.ml:818:21>>*/ throw  /*<<camlinternalFormat.ml:818:21>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _n_], 1);
+                       /*<<camlinternalFormat.ml:818:21>>*/ ([0,
+                        Assert_failure,
+                        _n_],
+                       1);
               case 12:
                var rest1$11 = ty1[1];
                if(typeof ty2 !== "number")
@@ -15516,7 +16367,10 @@
                            trans(rest1$11, rest2$11)];
                 }
                 /*<<camlinternalFormat.ml:822:19>>*/ throw  /*<<camlinternalFormat.ml:822:19>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _o_], 1);
+                       /*<<camlinternalFormat.ml:822:19>>*/ ([0,
+                        Assert_failure,
+                        _o_],
+                       1);
               case 13:
                var rest1$12 = ty1[1];
                if(typeof ty2 !== "number")
@@ -15533,7 +16387,10 @@
                            trans(rest1$12, rest2$12)];
                 }
                 /*<<camlinternalFormat.ml:826:22>>*/ throw  /*<<camlinternalFormat.ml:826:22>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _p_], 1);
+                       /*<<camlinternalFormat.ml:826:22>>*/ ([0,
+                        Assert_failure,
+                        _p_],
+                       1);
               default:
                var rest1$13 = ty1[1];
                if(typeof ty2 !== "number")
@@ -15552,10 +16409,16 @@
                            trans(rest1$13, rest2$13)];
                 }
                 /*<<camlinternalFormat.ml:831:30>>*/ throw  /*<<camlinternalFormat.ml:831:30>>*/ caml_maybe_attach_backtrace
-                      ([0, Assert_failure, _q_], 1);
+                       /*<<camlinternalFormat.ml:831:30>>*/ ([0,
+                        Assert_failure,
+                        _q_],
+                       1);
             }
              /*<<camlinternalFormat.ml:851:23>>*/ throw  /*<<camlinternalFormat.ml:851:23>>*/ caml_maybe_attach_backtrace
-                   ([0, Assert_failure, _j_], 1);
+                    /*<<camlinternalFormat.ml:851:23>>*/ ([0,
+                     Assert_failure,
+                     _j_],
+                    1);
            }
            if(typeof ty2 === "number")
              /*<<camlinternalFormat.ml:849:34>>*/ return 0;
@@ -15575,29 +16438,42 @@
              case 9: break;
              default:
                /*<<camlinternalFormat.ml:850:23>>*/ throw  /*<<camlinternalFormat.ml:850:23>>*/ caml_maybe_attach_backtrace
-                     ([0, Assert_failure, _b_], 1);
+                      /*<<camlinternalFormat.ml:850:23>>*/ ([0,
+                       Assert_failure,
+                       _b_],
+                      1);
            }
           }
            /*<<camlinternalFormat.ml:847:28>>*/ throw  /*<<camlinternalFormat.ml:847:28>>*/ caml_maybe_attach_backtrace
-                 ([0, Assert_failure, _d_], 1);
+                  /*<<camlinternalFormat.ml:847:28>>*/ ([0,
+                   Assert_failure,
+                   _d_],
+                  1);
          }
           /*<<camlinternalFormat.ml:837:26>>*/ throw  /*<<camlinternalFormat.ml:837:26>>*/ caml_maybe_attach_backtrace
-                ([0, Assert_failure, _c_], 1);
+                 /*<<camlinternalFormat.ml:837:26>>*/ ([0,
+                  Assert_failure,
+                  _c_],
+                 1);
         }
          /*<<camlinternalFormat.ml:832:30>>*/ throw  /*<<camlinternalFormat.ml:832:30>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _i_], 1);
+                /*<<camlinternalFormat.ml:832:30>>*/ ([0, Assert_failure, _i_],
+                1);
        }
         /*<<camlinternalFormat.ml:827:22>>*/ throw  /*<<camlinternalFormat.ml:827:22>>*/ caml_maybe_attach_backtrace
-              ([0, Assert_failure, _h_], 1);
+               /*<<camlinternalFormat.ml:827:22>>*/ ([0, Assert_failure, _h_],
+               1);
       }
        /*<<camlinternalFormat.ml:823:19>>*/ throw  /*<<camlinternalFormat.ml:823:19>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _g_], 1);
+              /*<<camlinternalFormat.ml:823:19>>*/ ([0, Assert_failure, _g_],
+              1);
      }
       /*<<camlinternalFormat.ml:819:21>>*/ throw  /*<<camlinternalFormat.ml:819:21>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _f_], 1);
+             /*<<camlinternalFormat.ml:819:21>>*/ ([0, Assert_failure, _f_],
+             1);
     }
      /*<<camlinternalFormat.ml:815:21>>*/ throw  /*<<camlinternalFormat.ml:815:21>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _e_], 1);
+            /*<<camlinternalFormat.ml:815:21>>*/ ([0, Assert_failure, _e_], 1);
     /*<<camlinternalFormat.ml:851:35>>*/ }
    function fmtty_of_fmt(fmtty){
     var fmtty$0 = fmtty;
@@ -15719,7 +16595,10 @@
         else
          var fmt$0 = formatting_gen[1][1], _cC_ = fmtty_of_fmt(fmt$0);
          /*<<camlinternalFormat.ml:914:54>>*/ return  /*<<camlinternalFormat.ml:914:54>>*/ caml_call2
-                (CamlinternalFormatBasics[1], _cC_, _cB_);
+                 /*<<camlinternalFormat.ml:914:54>>*/ (CamlinternalFormatBasics
+                  [1],
+                 _cC_,
+                 _cB_);
        case 19:
         var rest$14 = fmtty$0[1];
          /*<<camlinternalFormat.ml:897:34>>*/ return [13,
@@ -15775,7 +16654,10 @@
              _cD_ =
                 /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt(fmtty$5);
              /*<<camlinternalFormat.ml:943:58>>*/ return  /*<<camlinternalFormat.ml:943:58>>*/ caml_call2
-                    (CamlinternalFormatBasics[1], fmtty$6, _cD_);
+                     /*<<camlinternalFormat.ml:943:58>>*/ (CamlinternalFormatBasics
+                      [1],
+                     fmtty$6,
+                     _cD_);
            case 10:
             fmtty$0 = fmtty$5; break;
            default: fmtty$0 = fmtty$5;
@@ -16058,7 +16940,7 @@
       /*<<camlinternalFormat.ml:980:38>>*/ return [0, [1, padty$0], rest];
     }
      /*<<camlinternalFormat.ml:981:9>>*/ throw  /*<<camlinternalFormat.ml:981:9>>*/ caml_maybe_attach_backtrace
-           (Type_mismatch, 1);
+            /*<<camlinternalFormat.ml:981:9>>*/ (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:981:28>>*/ }
    function type_padprec(pad, prec, fmtty){
     var
@@ -16077,14 +16959,14 @@
       /*<<camlinternalFormat.ml:995:4>>*/ return [0, pad$0, 1, rest];
     }
      /*<<camlinternalFormat.ml:996:35>>*/ throw  /*<<camlinternalFormat.ml:996:35>>*/ caml_maybe_attach_backtrace
-           (Type_mismatch, 1);
+            /*<<camlinternalFormat.ml:996:35>>*/ (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:996:54>>*/ }
    function type_format(fmt, fmtty){
     var
      _cA_ =  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen(fmt, fmtty);
     if(typeof _cA_[2] !== "number")
       /*<<camlinternalFormat.ml:1010:9>>*/ throw  /*<<camlinternalFormat.ml:1010:9>>*/ caml_maybe_attach_backtrace
-            (Type_mismatch, 1);
+             /*<<camlinternalFormat.ml:1010:9>>*/ (Type_mismatch, 1);
     var fmt$0 = _cA_[1];
      /*<<camlinternalFormat.ml:1009:42>>*/ return fmt$0;
     /*<<camlinternalFormat.ml:1010:28>>*/ }
@@ -16139,7 +17021,7 @@
                 fmtty$1];
        }
         /*<<camlinternalFormat.ml:1030:34>>*/ throw  /*<<camlinternalFormat.ml:1030:34>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1030:34>>*/ (Type_mismatch, 1);
       case 3:
        var
         fmt_rest$2 = fmt[2],
@@ -16161,7 +17043,7 @@
                 fmtty$2];
        }
         /*<<camlinternalFormat.ml:1037:34>>*/ throw  /*<<camlinternalFormat.ml:1037:34>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1037:34>>*/ (Type_mismatch, 1);
       case 4:
        var
         fmt_rest$3 = fmt[4],
@@ -16187,7 +17069,7 @@
                 fmtty$3];
        }
         /*<<camlinternalFormat.ml:1044:37>>*/ throw  /*<<camlinternalFormat.ml:1044:37>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1044:37>>*/ (Type_mismatch, 1);
       case 5:
        var
         fmt_rest$4 = fmt[4],
@@ -16213,7 +17095,7 @@
                 fmtty$4];
        }
         /*<<camlinternalFormat.ml:1051:37>>*/ throw  /*<<camlinternalFormat.ml:1051:37>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1051:37>>*/ (Type_mismatch, 1);
       case 6:
        var
         fmt_rest$5 = fmt[4],
@@ -16239,7 +17121,7 @@
                 fmtty$5];
        }
         /*<<camlinternalFormat.ml:1058:37>>*/ throw  /*<<camlinternalFormat.ml:1058:37>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1058:37>>*/ (Type_mismatch, 1);
       case 7:
        var
         fmt_rest$6 = fmt[4],
@@ -16265,7 +17147,7 @@
                 fmtty$6];
        }
         /*<<camlinternalFormat.ml:1065:37>>*/ throw  /*<<camlinternalFormat.ml:1065:37>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1065:37>>*/ (Type_mismatch, 1);
       case 8:
        var
         fmt_rest$7 = fmt[4],
@@ -16291,7 +17173,7 @@
                 fmtty$7];
        }
         /*<<camlinternalFormat.ml:1072:37>>*/ throw  /*<<camlinternalFormat.ml:1072:37>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1072:37>>*/ (Type_mismatch, 1);
       case 9:
        var
         fmt_rest$8 = fmt[2],
@@ -16313,7 +17195,7 @@
                 fmtty$8];
        }
         /*<<camlinternalFormat.ml:1079:34>>*/ throw  /*<<camlinternalFormat.ml:1079:34>>*/ caml_maybe_attach_backtrace
-              (Type_mismatch, 1);
+               /*<<camlinternalFormat.ml:1079:34>>*/ (Type_mismatch, 1);
       case 10:
        var
         fmt_rest$9 = fmt[1],
@@ -16357,9 +17239,10 @@
          pad_opt = fmt[1];
          /*<<camlinternalFormat.ml:1094:7>>*/ if
          ( /*<<camlinternalFormat.ml:1094:7>>*/ caml_notequal
-           ([0, sub_fmtty$0], [0, sub_fmtty]))
+            /*<<camlinternalFormat.ml:1094:7>>*/ ([0, sub_fmtty$0],
+            [0, sub_fmtty]))
           /*<<camlinternalFormat.ml:1094:56>>*/ throw  /*<<camlinternalFormat.ml:1094:56>>*/ caml_maybe_attach_backtrace
-                (Type_mismatch, 1);
+                 /*<<camlinternalFormat.ml:1094:56>>*/ (Type_mismatch, 1);
         var
          match$28 =
             /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
@@ -16382,21 +17265,27 @@
          _cy_ =
             /*<<camlinternalFormat.ml:1099:42>>*/ [0,
              /*<<camlinternalFormat.ml:1099:52>>*/ caml_call1
-             (CamlinternalFormatBasics[2], sub_fmtty1)];
+              /*<<camlinternalFormat.ml:1099:52>>*/ (CamlinternalFormatBasics
+               [2],
+              sub_fmtty1)];
          /*<<camlinternalFormat.ml:1099:7>>*/ if
          ( /*<<camlinternalFormat.ml:1099:7>>*/ caml_notequal
-           ([0,
+            /*<<camlinternalFormat.ml:1099:7>>*/ ([0,
               /*<<camlinternalFormat.ml:1099:17>>*/ caml_call1
-              (CamlinternalFormatBasics[2], sub_fmtty$1)],
+               /*<<camlinternalFormat.ml:1099:17>>*/ (CamlinternalFormatBasics
+                [2],
+               sub_fmtty$1)],
             _cy_))
           /*<<camlinternalFormat.ml:1100:6>>*/ throw  /*<<camlinternalFormat.ml:1100:6>>*/ caml_maybe_attach_backtrace
-                (Type_mismatch, 1);
+                 /*<<camlinternalFormat.ml:1100:6>>*/ (Type_mismatch, 1);
         var
          match$29 =
             /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
             (fmt_rest$13,
               /*<<camlinternalFormat.ml:1102:31>>*/ caml_call1
-              (CamlinternalFormatBasics[2], fmtty_rest$10)),
+               /*<<camlinternalFormat.ml:1102:31>>*/ (CamlinternalFormatBasics
+                [2],
+               fmtty_rest$10)),
          fmtty$13 = match$29[2],
          fmt$14 = match$29[1];
          /*<<camlinternalFormat.ml:1104:4>>*/ return [0,
@@ -16606,14 +17495,14 @@
                    fmtty$20];
           }
            /*<<camlinternalFormat.ml:1185:11>>*/ throw  /*<<camlinternalFormat.ml:1185:11>>*/ caml_maybe_attach_backtrace
-                 (Type_mismatch, 1);
+                  /*<<camlinternalFormat.ml:1185:11>>*/ (Type_mismatch, 1);
          default:
            /*<<camlinternalFormat.ml:1171:42>>*/ return type_ignored_param_one
                   (ign, rest, fmtty0);
        }
     }
      /*<<camlinternalFormat.ml:1135:9>>*/ throw  /*<<camlinternalFormat.ml:1135:9>>*/ caml_maybe_attach_backtrace
-           (Type_mismatch, 1);
+            /*<<camlinternalFormat.ml:1135:9>>*/ (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1135:28>>*/ }
    function type_ignored_param_one(ign, fmt, fmtty){
     var
@@ -16760,9 +17649,10 @@
          sub2_fmtty$0 = sub_fmtty[1];
          /*<<camlinternalFormat.ml:1254:7>>*/ if
          ( /*<<camlinternalFormat.ml:1254:7>>*/ caml_notequal
-           ([0, sub2_fmtty$0], [0, sub2_fmtty]))
+            /*<<camlinternalFormat.ml:1254:7>>*/ ([0, sub2_fmtty$0],
+            [0, sub2_fmtty]))
           /*<<camlinternalFormat.ml:1254:58>>*/ throw  /*<<camlinternalFormat.ml:1254:58>>*/ caml_maybe_attach_backtrace
-                (Type_mismatch, 1);
+                 /*<<camlinternalFormat.ml:1254:58>>*/ (Type_mismatch, 1);
         var
          match$7 =
             /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
@@ -16786,28 +17676,36 @@
          _cw_ =
             /*<<camlinternalFormat.ml:1261:43>>*/ [0,
              /*<<camlinternalFormat.ml:1261:53>>*/ caml_call1
-             (CamlinternalFormatBasics[2], sub1_fmtty)];
+              /*<<camlinternalFormat.ml:1261:53>>*/ (CamlinternalFormatBasics
+               [2],
+              sub1_fmtty)];
          /*<<camlinternalFormat.ml:1261:7>>*/ if
          ( /*<<camlinternalFormat.ml:1261:7>>*/ caml_notequal
-           ([0,
+            /*<<camlinternalFormat.ml:1261:7>>*/ ([0,
               /*<<camlinternalFormat.ml:1261:17>>*/ caml_call1
-              (CamlinternalFormatBasics[2], sub1_fmtty$0)],
+               /*<<camlinternalFormat.ml:1261:17>>*/ (CamlinternalFormatBasics
+                [2],
+               sub1_fmtty$0)],
             _cw_))
           /*<<camlinternalFormat.ml:1262:9>>*/ throw  /*<<camlinternalFormat.ml:1262:9>>*/ caml_maybe_attach_backtrace
-                (Type_mismatch, 1);
+                 /*<<camlinternalFormat.ml:1262:9>>*/ (Type_mismatch, 1);
         var
          _cx_ =
             /*<<camlinternalFormat.ml:1263:43>>*/ [0,
              /*<<camlinternalFormat.ml:1263:53>>*/ caml_call1
-             (CamlinternalFormatBasics[2], sub2_fmtty$1)];
+              /*<<camlinternalFormat.ml:1263:53>>*/ (CamlinternalFormatBasics
+               [2],
+              sub2_fmtty$1)];
          /*<<camlinternalFormat.ml:1263:7>>*/ if
          ( /*<<camlinternalFormat.ml:1263:7>>*/ caml_notequal
-           ([0,
+            /*<<camlinternalFormat.ml:1263:7>>*/ ([0,
               /*<<camlinternalFormat.ml:1263:17>>*/ caml_call1
-              (CamlinternalFormatBasics[2], sub2_fmtty$2)],
+               /*<<camlinternalFormat.ml:1263:17>>*/ (CamlinternalFormatBasics
+                [2],
+               sub2_fmtty$2)],
             _cx_))
           /*<<camlinternalFormat.ml:1264:9>>*/ throw  /*<<camlinternalFormat.ml:1264:9>>*/ caml_maybe_attach_backtrace
-                (Type_mismatch, 1);
+                 /*<<camlinternalFormat.ml:1264:9>>*/ (Type_mismatch, 1);
         var
          sub_fmtty$0 =
             /*<<camlinternalFormat.ml:1265:21>>*/ trans
@@ -16822,7 +17720,9 @@
          match$9 =
             /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
             ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
-              (CamlinternalFormatBasics[2], sub_fmtty_rest$17),
+               /*<<camlinternalFormat.ml:1270:39>>*/ (CamlinternalFormatBasics
+                [2],
+               sub_fmtty_rest$17),
              fmt,
              fmtty_rest$8),
          fmt$9 = match$9[2],
@@ -16894,14 +17794,16 @@
        break;
     }
      /*<<camlinternalFormat.ml:1277:9>>*/ throw  /*<<camlinternalFormat.ml:1277:9>>*/ caml_maybe_attach_backtrace
-           (Type_mismatch, 1);
+            /*<<camlinternalFormat.ml:1277:9>>*/ (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
     var _cv_ =  /*<<camlinternalFormat.ml:1312:29>>*/ symm(fmtty);
      /*<<camlinternalFormat.ml:1312:18>>*/ return type_format
             (fmt,
               /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
-              (CamlinternalFormatBasics[2], _cv_));
+               /*<<camlinternalFormat.ml:1312:18>>*/ (CamlinternalFormatBasics
+                [2],
+               _cv_));
     /*<<camlinternalFormat.ml:1312:42>>*/ }
    function fix_padding(padty, width, str){
     var
@@ -16909,41 +17811,60 @@
      padty$0 =  /*<<camlinternalFormat.ml:1320:2>>*/ 0 <= width ? padty : 0,
      width$0 =
         /*<<camlinternalFormat.ml:1321:4>>*/  /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1
-        (Stdlib[18], width);
+         /*<<camlinternalFormat.ml:1321:4>>*/ (Stdlib[18], width);
     if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
     var
      _cu_ = 2 === padty$0 ? 48 : 32,
      res =
         /*<<camlinternalFormat.ml:1333:14>>*/  /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
-        (Stdlib_Bytes[1], width$0, _cu_);
+         /*<<camlinternalFormat.ml:1333:14>>*/ (Stdlib_Bytes[1],
+         width$0,
+         _cu_);
      /*<<camlinternalFormat.ml:1334:4>>*/ switch(padty$0){
       case 0:
         /*<<camlinternalFormat.ml:1335:15>>*/  /*<<camlinternalFormat.ml:1335:15>>*/ caml_call5
-        (Stdlib_String[6], str, 0, res, 0, len);
+         /*<<camlinternalFormat.ml:1335:15>>*/ (Stdlib_String[6],
+         str,
+         0,
+         res,
+         0,
+         len);
        break;
       case 1:
         /*<<camlinternalFormat.ml:1336:15>>*/  /*<<camlinternalFormat.ml:1336:15>>*/ caml_call5
-        (Stdlib_String[6], str, 0, res, width$0 - len | 0, len);
+         /*<<camlinternalFormat.ml:1336:15>>*/ (Stdlib_String[6],
+         str,
+         0,
+         res,
+         width$0 - len | 0,
+         len);
        break;
       default:
        a:
        if(0 < len){
          /*<<camlinternalFormat.ml:1337:29>>*/ if
          (43
-          !==  /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get(str, 0)
+          !==
+            /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get
+             /*<<camlinternalFormat.ml:1337:29>>*/ (str, 0)
           &&
            45
-           !==  /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get(str, 0)
+           !==
+             /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get
+              /*<<camlinternalFormat.ml:1337:46>>*/ (str, 0)
            &&
             32
-            !==  /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get(str, 0))
+            !==
+              /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get
+               /*<<camlinternalFormat.ml:1337:63>>*/ (str, 0))
          break a;
          /*<<camlinternalFormat.ml:1338:6>>*/  /*<<camlinternalFormat.ml:1338:6>>*/ caml_bytes_set
-         (res,
+          /*<<camlinternalFormat.ml:1338:6>>*/ (res,
           0,
-           /*<<camlinternalFormat.ml:1338:22>>*/ caml_string_get(str, 0));
+           /*<<camlinternalFormat.ml:1338:22>>*/ caml_string_get
+            /*<<camlinternalFormat.ml:1338:22>>*/ (str, 0));
          /*<<camlinternalFormat.ml:1339:6>>*/  /*<<camlinternalFormat.ml:1339:6>>*/ caml_call5
-         (Stdlib_String[6],
+          /*<<camlinternalFormat.ml:1339:6>>*/ (Stdlib_String[6],
           str,
           1,
           res,
@@ -16956,20 +17877,27 @@
         (1 < len
          &&
           48
-          ===  /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0)){
+          ===
+            /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get
+             /*<<camlinternalFormat.ml:1340:28>>*/ (str, 0)){
          /*<<camlinternalFormat.ml:1340:46>>*/ if
          (120
-          !==  /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get(str, 1)
+          !==
+            /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get
+             /*<<camlinternalFormat.ml:1340:46>>*/ (str, 1)
           &&
            88
-           !==  /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get(str, 1))
+           !==
+             /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get
+              /*<<camlinternalFormat.ml:1340:63>>*/ (str, 1))
          break a;
          /*<<camlinternalFormat.ml:1341:6>>*/  /*<<camlinternalFormat.ml:1341:6>>*/ caml_bytes_set
-         (res,
+          /*<<camlinternalFormat.ml:1341:6>>*/ (res,
           1,
-           /*<<camlinternalFormat.ml:1341:22>>*/ caml_string_get(str, 1));
+           /*<<camlinternalFormat.ml:1341:22>>*/ caml_string_get
+            /*<<camlinternalFormat.ml:1341:22>>*/ (str, 1));
          /*<<camlinternalFormat.ml:1342:6>>*/  /*<<camlinternalFormat.ml:1342:6>>*/ caml_call5
-         (Stdlib_String[6],
+          /*<<camlinternalFormat.ml:1342:6>>*/ (Stdlib_String[6],
           str,
           2,
           res,
@@ -16978,22 +17906,27 @@
         break;
        }
         /*<<camlinternalFormat.ml:1344:6>>*/  /*<<camlinternalFormat.ml:1344:6>>*/ caml_call5
-        (Stdlib_String[6], str, 0, res, width$0 - len | 0, len);
+         /*<<camlinternalFormat.ml:1344:6>>*/ (Stdlib_String[6],
+         str,
+         0,
+         res,
+         width$0 - len | 0,
+         len);
     }
      /*<<camlinternalFormat.ml:1346:4>>*/ return  /*<<camlinternalFormat.ml:1346:4>>*/ caml_call1
-            (Stdlib_Bytes[44], res);
+             /*<<camlinternalFormat.ml:1346:4>>*/ (Stdlib_Bytes[44], res);
     /*<<camlinternalFormat.ml:1346:30>>*/ }
    function fix_int_precision(prec, str){
     var
      prec$0 =
         /*<<camlinternalFormat.ml:1350:13>>*/  /*<<camlinternalFormat.ml:1350:13>>*/ caml_call1
-        (Stdlib[18], prec),
+         /*<<camlinternalFormat.ml:1350:13>>*/ (Stdlib[18], prec),
      len =
         /*<<camlinternalFormat.ml:1351:2>>*/  /*<<camlinternalFormat.ml:1351:2>>*/ caml_ml_string_length
-        (str),
+         /*<<camlinternalFormat.ml:1351:2>>*/ (str),
      c =
         /*<<camlinternalFormat.ml:1352:8>>*/  /*<<camlinternalFormat.ml:1352:8>>*/ caml_string_get
-        (str, 0);
+         /*<<camlinternalFormat.ml:1352:8>>*/ (str, 0);
     a:
     {
      b:
@@ -17008,29 +17941,35 @@
              /*<<camlinternalFormat.ml:1358:43>>*/ if
              (120
               !==
-                /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get(str, 1)
+                /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get
+                 /*<<camlinternalFormat.ml:1358:43>>*/ (str, 1)
               &&
                88
                !==
-                 /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get(str, 1))
+                 /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get
+                  /*<<camlinternalFormat.ml:1358:60>>*/ (str, 1))
              break c;
             var
              res$1 =
                 /*<<camlinternalFormat.ml:1359:14>>*/  /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
-                (Stdlib_Bytes[1], prec$0 + 2 | 0, 48);
+                 /*<<camlinternalFormat.ml:1359:14>>*/ (Stdlib_Bytes[1],
+                 prec$0 + 2 | 0,
+                 48);
              /*<<camlinternalFormat.ml:1360:4>>*/  /*<<camlinternalFormat.ml:1360:4>>*/ caml_bytes_set
-             (res$1,
+              /*<<camlinternalFormat.ml:1360:4>>*/ (res$1,
               1,
-               /*<<camlinternalFormat.ml:1360:20>>*/ caml_string_get(str, 1));
+               /*<<camlinternalFormat.ml:1360:20>>*/ caml_string_get
+                /*<<camlinternalFormat.ml:1360:20>>*/ (str, 1));
              /*<<camlinternalFormat.ml:1361:4>>*/  /*<<camlinternalFormat.ml:1361:4>>*/ caml_call5
-             (Stdlib_String[6],
+              /*<<camlinternalFormat.ml:1361:4>>*/ (Stdlib_String[6],
               str,
               2,
               res$1,
               (prec$0 - len | 0) + 4 | 0,
               len - 2 | 0);
              /*<<camlinternalFormat.ml:1361:4>>*/ return  /*<<camlinternalFormat.ml:1361:4>>*/ caml_call1
-                    (Stdlib_Bytes[44], res$1);
+                     /*<<camlinternalFormat.ml:1361:4>>*/ (Stdlib_Bytes[44],
+                     res$1);
            }
            break b;
           case 0:
@@ -17046,18 +17985,20 @@
        var
         res$0 =
            /*<<camlinternalFormat.ml:1354:14>>*/  /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
-           (Stdlib_Bytes[1], prec$0 + 1 | 0, 48);
+            /*<<camlinternalFormat.ml:1354:14>>*/ (Stdlib_Bytes[1],
+            prec$0 + 1 | 0,
+            48);
         /*<<camlinternalFormat.ml:1355:4>>*/  /*<<camlinternalFormat.ml:1355:4>>*/ caml_bytes_set
-        (res$0, 0, c);
+         /*<<camlinternalFormat.ml:1355:4>>*/ (res$0, 0, c);
         /*<<camlinternalFormat.ml:1356:4>>*/  /*<<camlinternalFormat.ml:1356:4>>*/ caml_call5
-        (Stdlib_String[6],
+         /*<<camlinternalFormat.ml:1356:4>>*/ (Stdlib_String[6],
          str,
          1,
          res$0,
          (prec$0 - len | 0) + 2 | 0,
          len - 1 | 0);
         /*<<camlinternalFormat.ml:1356:4>>*/ return  /*<<camlinternalFormat.ml:1356:4>>*/ caml_call1
-               (Stdlib_Bytes[44], res$0);
+                /*<<camlinternalFormat.ml:1356:4>>*/ (Stdlib_Bytes[44], res$0);
       }
       if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
      }
@@ -17065,11 +18006,16 @@
       var
        res =
           /*<<camlinternalFormat.ml:1364:14>>*/  /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
-          (Stdlib_Bytes[1], prec$0, 48);
+           /*<<camlinternalFormat.ml:1364:14>>*/ (Stdlib_Bytes[1], prec$0, 48);
        /*<<camlinternalFormat.ml:1365:4>>*/  /*<<camlinternalFormat.ml:1365:4>>*/ caml_call5
-       (Stdlib_String[6], str, 0, res, prec$0 - len | 0, len);
+        /*<<camlinternalFormat.ml:1365:4>>*/ (Stdlib_String[6],
+        str,
+        0,
+        res,
+        prec$0 - len | 0,
+        len);
        /*<<camlinternalFormat.ml:1365:4>>*/ return  /*<<camlinternalFormat.ml:1365:4>>*/ caml_call1
-              (Stdlib_Bytes[44], res);
+               /*<<camlinternalFormat.ml:1365:4>>*/ (Stdlib_Bytes[44], res);
      }
     }
      /*<<camlinternalFormat.ml:1368:4>>*/ return str;
@@ -17078,23 +18024,25 @@
     var
      str$0 =
         /*<<camlinternalFormat.ml:1372:12>>*/  /*<<camlinternalFormat.ml:1372:12>>*/ caml_call1
-        (Stdlib_String[25], str),
+         /*<<camlinternalFormat.ml:1372:12>>*/ (Stdlib_String[25], str),
      l =
         /*<<camlinternalFormat.ml:1373:2>>*/  /*<<camlinternalFormat.ml:1373:2>>*/ caml_ml_string_length
-        (str$0),
+         /*<<camlinternalFormat.ml:1373:2>>*/ (str$0),
      res =
         /*<<camlinternalFormat.ml:1374:12>>*/  /*<<camlinternalFormat.ml:1374:12>>*/ caml_call2
-        (Stdlib_Bytes[1], l + 2 | 0, 34);
+         /*<<camlinternalFormat.ml:1374:12>>*/ (Stdlib_Bytes[1],
+         l + 2 | 0,
+         34);
      /*<<camlinternalFormat.ml:1375:2>>*/  /*<<camlinternalFormat.ml:1375:2>>*/ caml_blit_string
-     (str$0, 0, res, 1, l);
+      /*<<camlinternalFormat.ml:1375:2>>*/ (str$0, 0, res, 1, l);
      /*<<camlinternalFormat.ml:1375:2>>*/ return  /*<<camlinternalFormat.ml:1375:2>>*/ caml_call1
-            (Stdlib_Bytes[44], res);
+             /*<<camlinternalFormat.ml:1375:2>>*/ (Stdlib_Bytes[44], res);
     /*<<camlinternalFormat.ml:1376:28>>*/ }
    function format_of_fconv(fconv, prec){
     var
      prec$0 =
         /*<<camlinternalFormat.ml:1414:15>>*/  /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1
-        (Stdlib[18], prec),
+         /*<<camlinternalFormat.ml:1414:15>>*/ (Stdlib[18], prec),
      symb =  /*<<camlinternalFormat.ml:1415:15>>*/ char_of_fconv(_r_, fconv),
      buf =  /*<<camlinternalFormat.ml:1416:14>>*/ buffer_create(16);
      /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char(buf, 37);
@@ -17103,7 +18051,7 @@
      /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
      (buf,
        /*<<camlinternalFormat.ml:1420:26>>*/ caml_call1
-       (Stdlib_Int[12], prec$0));
+        /*<<camlinternalFormat.ml:1420:26>>*/ (Stdlib_Int[12], prec$0));
      /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char(buf, symb);
      /*<<camlinternalFormat.ml:1421:4>>*/ return buffer_contents(buf);
     /*<<camlinternalFormat.ml:1422:23>>*/ }
@@ -17127,11 +18075,13 @@
      digits = n[1],
      buf =
         /*<<camlinternalFormat.ml:1436:14>>*/  /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
-        (caml_ml_string_length(s) + ((digits - 1 | 0) / 3 | 0) | 0),
+         /*<<camlinternalFormat.ml:1436:14>>*/ (caml_ml_string_length(s)
+         + ((digits - 1 | 0) / 3 | 0)
+         | 0),
      pos =  /*<<camlinternalFormat.ml:1437:14>>*/ [0, 0];
     function put(c){
       /*<<camlinternalFormat.ml:1438:16>>*/  /*<<camlinternalFormat.ml:1438:16>>*/ caml_bytes_set
-      (buf, pos[1], c);
+       /*<<camlinternalFormat.ml:1438:16>>*/ (buf, pos[1], c);
      pos[1]++;
      /*<<camlinternalFormat.ml:1438:46>>*/ }
     var
@@ -17160,7 +18110,7 @@
      }
     }
      /*<<camlinternalFormat.ml:1446:4>>*/ return  /*<<camlinternalFormat.ml:1446:4>>*/ caml_call1
-            (Stdlib_Bytes[44], buf);
+             /*<<camlinternalFormat.ml:1446:4>>*/ (Stdlib_Bytes[44], buf);
     /*<<camlinternalFormat.ml:1447:10>>*/ }
    function convert_int(iconv, n){
      /*<<camlinternalFormat.ml:1451:2>>*/ switch(iconv){
@@ -17194,7 +18144,8 @@
     }
      /*<<camlinternalFormat.ml:1451:26>>*/ return transform_int_alt
             (iconv,
-              /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int(_cn_, n));
+              /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int
+               /*<<camlinternalFormat.ml:1451:26>>*/ (_cn_, n));
     /*<<camlinternalFormat.ml:1451:64>>*/ }
    function convert_int32(iconv, n){
      /*<<camlinternalFormat.ml:1453:2>>*/ switch(iconv){
@@ -17228,7 +18179,8 @@
     }
      /*<<camlinternalFormat.ml:1453:26>>*/ return transform_int_alt
             (iconv,
-              /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int(_cm_, n));
+              /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int
+               /*<<camlinternalFormat.ml:1453:26>>*/ (_cm_, n));
     /*<<camlinternalFormat.ml:1453:67>>*/ }
    function convert_nativeint(iconv, n){
      /*<<camlinternalFormat.ml:1455:2>>*/ switch(iconv){
@@ -17262,7 +18214,8 @@
     }
      /*<<camlinternalFormat.ml:1455:26>>*/ return transform_int_alt
             (iconv,
-              /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int(_cl_, n));
+              /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int
+               /*<<camlinternalFormat.ml:1455:26>>*/ (_cl_, n));
     /*<<camlinternalFormat.ml:1455:71>>*/ }
    function convert_int64(iconv, n){
      /*<<camlinternalFormat.ml:1457:2>>*/ switch(iconv){
@@ -17297,7 +18250,7 @@
      /*<<camlinternalFormat.ml:1457:26>>*/ return transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1457:26>>*/ runtime.caml_int64_format
-              (_ck_, n));
+               /*<<camlinternalFormat.ml:1457:26>>*/ (_ck_, n));
     /*<<camlinternalFormat.ml:1457:67>>*/ }
    function convert_float(fconv, prec, x){
     function hex(param){
@@ -17309,13 +18262,13 @@
        default: var sign = 32;
      }
       /*<<camlinternalFormat.ml:1468:4>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
-             (x, prec, sign);
+              /*<<camlinternalFormat.ml:1468:4>>*/ (x, prec, sign);
      /*<<camlinternalFormat.ml:1468:34>>*/ }
     function caml_special_val(str){
      var
       match =
          /*<<camlinternalFormat.ml:1477:35>>*/  /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float
-         (x);
+          /*<<camlinternalFormat.ml:1477:35>>*/ (x);
      return 3 === match
              ? x < 0. ? cst_neg_infinity : cst_infinity
              : 4 <= match ? cst_nan : str;
@@ -17325,7 +18278,9 @@
        var
         str =
            /*<<camlinternalFormat.ml:1486:14>>*/  /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
-           (format_of_fconv(fconv, prec), x),
+            /*<<camlinternalFormat.ml:1486:14>>*/ (format_of_fconv
+             (fconv, prec),
+            x),
         len = caml_ml_string_length(str),
         i = 0;
         /*<<camlinternalFormat.ml:1472:6>>*/ for(;;){
@@ -17335,7 +18290,7 @@
          var
           _cg_ =
              /*<<camlinternalFormat.ml:1473:14>>*/  /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get
-             (str, i)
+              /*<<camlinternalFormat.ml:1473:14>>*/ (str, i)
             - 46
             | 0;
          a:
@@ -17355,7 +18310,7 @@
             /*<<camlinternalFormat.ml:1476:7>>*/ _ch_
             ? str
             :  /*<<camlinternalFormat.ml:1476:32>>*/ caml_call2
-              (Stdlib[28], str, cst$17);
+               /*<<camlinternalFormat.ml:1476:32>>*/ (Stdlib[28], str, cst$17);
          /*<<camlinternalFormat.ml:1487:21>>*/ return caml_special_val(_ci_);
        }
       case 6:
@@ -17363,12 +18318,15 @@
       case 7:
        var _cj_ =  /*<<camlinternalFormat.ml:1483:38>>*/ hex(0);
         /*<<camlinternalFormat.ml:1483:38>>*/ return  /*<<camlinternalFormat.ml:1483:38>>*/ caml_call1
-               (Stdlib_String[26], _cj_);
+                /*<<camlinternalFormat.ml:1483:38>>*/ (Stdlib_String[26],
+                _cj_);
       case 8:
         /*<<camlinternalFormat.ml:1484:33>>*/ return caml_special_val(hex(0));
       default:
         /*<<camlinternalFormat.ml:1489:4>>*/ return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
-               (format_of_fconv(fconv, prec), x);
+                /*<<camlinternalFormat.ml:1489:4>>*/ (format_of_fconv
+                 (fconv, prec),
+                x);
     }
     /*<<camlinternalFormat.ml:1489:47>>*/ }
    function string_of_fmtty(fmtty){
@@ -17381,7 +18339,7 @@
      /*<<camlinternalFormat.ml:1518:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1605:4>>*/ return  /*<<camlinternalFormat.ml:1605:4>>*/ caml_call1
-              (k$0, acc$0);
+               /*<<camlinternalFormat.ml:1605:4>>*/ (k$0, acc$0);
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
@@ -17395,21 +18353,23 @@
          var
           str =
              /*<<camlinternalFormat.ml:1493:12>>*/  /*<<camlinternalFormat.ml:1493:12>>*/ caml_call1
-             (Stdlib_Char[2], c),
+              /*<<camlinternalFormat.ml:1493:12>>*/ (Stdlib_Char[2], c),
           l =
              /*<<camlinternalFormat.ml:1494:2>>*/  /*<<camlinternalFormat.ml:1494:2>>*/ caml_ml_string_length
-             (str),
+              /*<<camlinternalFormat.ml:1494:2>>*/ (str),
           res =
              /*<<camlinternalFormat.ml:1495:12>>*/  /*<<camlinternalFormat.ml:1495:12>>*/ caml_call2
-             (Stdlib_Bytes[1], l + 2 | 0, 39);
+              /*<<camlinternalFormat.ml:1495:12>>*/ (Stdlib_Bytes[1],
+              l + 2 | 0,
+              39);
           /*<<camlinternalFormat.ml:1496:2>>*/  /*<<camlinternalFormat.ml:1496:2>>*/ caml_blit_string
-          (str, 0, res, 1, l);
+           /*<<camlinternalFormat.ml:1496:2>>*/ (str, 0, res, 1, l);
          var
           new_acc =
              /*<<camlinternalFormat.ml:1525:20>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1496:2>>*/ caml_call1
-              (Stdlib_Bytes[44], res)];
+               /*<<camlinternalFormat.ml:1496:2>>*/ (Stdlib_Bytes[44], res)];
           /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
                  (k$0, new_acc, rest$0); /*<<camlinternalFormat.ml:1526:32>>*/ };
        case 2:
@@ -17611,7 +18571,10 @@
                  (k$0,
                   acc$0,
                    /*<<camlinternalFormat.ml:1574:6>>*/ caml_call2
-                   (CamlinternalFormatBasics[3], _cf_, rest$13)); /*<<camlinternalFormat.ml:1574:42>>*/ };
+                    /*<<camlinternalFormat.ml:1574:6>>*/ (CamlinternalFormatBasics
+                     [3],
+                    _cf_,
+                    rest$13)); /*<<camlinternalFormat.ml:1574:42>>*/ };
        case 15:
         var rest$14 = fmt$0[1];
          /*<<camlinternalFormat.ml:1544:4>>*/ return function(f, x){
@@ -17668,7 +18631,8 @@
         break;
        case 19:
          /*<<camlinternalFormat.ml:1558:4>>*/ throw  /*<<camlinternalFormat.ml:1558:4>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _s_], 1);
+                /*<<camlinternalFormat.ml:1558:4>>*/ ([0, Assert_failure, _s_],
+                1);
        case 20:
         var
          rest$19 = fmt$0[3],
@@ -17687,7 +18651,7 @@
              /*<<camlinternalFormat.ml:1584:20>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
-              (cst_u$0, n)];
+               /*<<camlinternalFormat.ml:1584:42>>*/ (cst_u$0, n)];
           /*<<camlinternalFormat.ml:1585:6>>*/ return make_printf
                  (k$0, new_acc, rest$20); /*<<camlinternalFormat.ml:1585:32>>*/ };
        case 22:
@@ -17700,7 +18664,8 @@
         var rest$22 = fmt$0[2], ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1591:4>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1591:4>>*/ return  /*<<camlinternalFormat.ml:1591:4>>*/ caml_trampoline_return
-                 (make_ignored_param$0, [0, k$0, acc$0, ign, rest$22]);
+                  /*<<camlinternalFormat.ml:1591:4>>*/ (make_ignored_param$0,
+                  [0, k$0, acc$0, ign, rest$22]);
         var counter$1 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1591:4>>*/ return make_ignored_param$0
                 (counter$1, k$0, acc$0, ign, rest$22);
@@ -17711,10 +18676,11 @@
          arity = fmt$0[1],
          _ce_ =
             /*<<camlinternalFormat.ml:1548:33>>*/  /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1
-            (f, 0);
+             /*<<camlinternalFormat.ml:1548:33>>*/ (f, 0);
          /*<<camlinternalFormat.ml:1548:33>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1548:33>>*/ return  /*<<camlinternalFormat.ml:1548:33>>*/ caml_trampoline_return
-                 (make_custom$0, [0, k$0, acc$0, rest$23, arity, _ce_]);
+                  /*<<camlinternalFormat.ml:1548:33>>*/ (make_custom$0,
+                  [0, k$0, acc$0, rest$23, arity, _ce_]);
         var counter$0 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1548:33>>*/ return make_custom$0
                 (counter$0, k$0, acc$0, rest$23, arity, _ce_);
@@ -17730,24 +18696,30 @@
        case 0:
          /*<<camlinternalFormat.ml:1614:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1614:39>>*/ return  /*<<camlinternalFormat.ml:1614:39>>*/ caml_trampoline_return
-                 (make_invalid_arg, [0, k, acc, fmt]);
+                  /*<<camlinternalFormat.ml:1614:39>>*/ (make_invalid_arg,
+                  [0, k, acc, fmt]);
         var counter$0 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1614:39>>*/ return make_invalid_arg
                 (counter$0, k, acc, fmt);
        case 1:
          /*<<camlinternalFormat.ml:1615:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1615:39>>*/ return  /*<<camlinternalFormat.ml:1615:39>>*/ caml_trampoline_return
-                 (make_invalid_arg, [0, k, acc, fmt]);
+                  /*<<camlinternalFormat.ml:1615:39>>*/ (make_invalid_arg,
+                  [0, k, acc, fmt]);
         var counter$1 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1615:39>>*/ return make_invalid_arg
                 (counter$1, k, acc, fmt);
        case 2:
          /*<<camlinternalFormat.ml:1626:39>>*/ throw  /*<<camlinternalFormat.ml:1626:39>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _t_], 1);
+                /*<<camlinternalFormat.ml:1626:39>>*/ ([0,
+                 Assert_failure,
+                 _t_],
+                1);
        default:
          /*<<camlinternalFormat.ml:1629:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1629:39>>*/ return  /*<<camlinternalFormat.ml:1629:39>>*/ caml_trampoline_return
-                 (make_invalid_arg, [0, k, acc, fmt]);
+                  /*<<camlinternalFormat.ml:1629:39>>*/ (make_invalid_arg,
+                  [0, k, acc, fmt]);
         var counter$2 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1629:39>>*/ return make_invalid_arg
                 (counter$2, k, acc, fmt);
@@ -17756,63 +18728,72 @@
       case 0:
         /*<<camlinternalFormat.ml:1616:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1616:39>>*/ return  /*<<camlinternalFormat.ml:1616:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1616:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$3 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1616:39>>*/ return make_invalid_arg
                (counter$3, k, acc, fmt);
       case 1:
         /*<<camlinternalFormat.ml:1617:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1617:39>>*/ return  /*<<camlinternalFormat.ml:1617:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1617:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$4 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1617:39>>*/ return make_invalid_arg
                (counter$4, k, acc, fmt);
       case 2:
         /*<<camlinternalFormat.ml:1618:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1618:39>>*/ return  /*<<camlinternalFormat.ml:1618:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1618:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$5 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1618:39>>*/ return make_invalid_arg
                (counter$5, k, acc, fmt);
       case 3:
         /*<<camlinternalFormat.ml:1619:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1619:39>>*/ return  /*<<camlinternalFormat.ml:1619:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1619:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$6 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1619:39>>*/ return make_invalid_arg
                (counter$6, k, acc, fmt);
       case 4:
         /*<<camlinternalFormat.ml:1620:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1620:39>>*/ return  /*<<camlinternalFormat.ml:1620:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1620:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$7 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1620:39>>*/ return make_invalid_arg
                (counter$7, k, acc, fmt);
       case 5:
         /*<<camlinternalFormat.ml:1621:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1621:39>>*/ return  /*<<camlinternalFormat.ml:1621:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1621:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$8 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1621:39>>*/ return make_invalid_arg
                (counter$8, k, acc, fmt);
       case 6:
         /*<<camlinternalFormat.ml:1622:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1622:39>>*/ return  /*<<camlinternalFormat.ml:1622:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1622:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$9 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1622:39>>*/ return make_invalid_arg
                (counter$9, k, acc, fmt);
       case 7:
         /*<<camlinternalFormat.ml:1623:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1623:39>>*/ return  /*<<camlinternalFormat.ml:1623:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1623:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$10 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1623:39>>*/ return make_invalid_arg
                (counter$10, k, acc, fmt);
       case 8:
         /*<<camlinternalFormat.ml:1624:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1624:39>>*/ return  /*<<camlinternalFormat.ml:1624:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1624:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$11 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1624:39>>*/ return make_invalid_arg
                (counter$11, k, acc, fmt);
@@ -17820,21 +18801,24 @@
        var fmtty = ign[2];
         /*<<camlinternalFormat.ml:1625:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1625:39>>*/ return  /*<<camlinternalFormat.ml:1625:39>>*/ caml_trampoline_return
-                (make_from_fmtty$0, [0, k, acc, fmtty, fmt]);
+                 /*<<camlinternalFormat.ml:1625:39>>*/ (make_from_fmtty$0,
+                 [0, k, acc, fmtty, fmt]);
        var counter$14 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1625:39>>*/ return make_from_fmtty$0
                (counter$14, k, acc, fmtty, fmt);
       case 10:
         /*<<camlinternalFormat.ml:1627:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1627:39>>*/ return  /*<<camlinternalFormat.ml:1627:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1627:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$12 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1627:39>>*/ return make_invalid_arg
                (counter$12, k, acc, fmt);
       default:
         /*<<camlinternalFormat.ml:1628:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1628:39>>*/ return  /*<<camlinternalFormat.ml:1628:39>>*/ caml_trampoline_return
-                (make_invalid_arg, [0, k, acc, fmt]);
+                 /*<<camlinternalFormat.ml:1628:39>>*/ (make_invalid_arg,
+                 [0, k, acc, fmt]);
        var counter$13 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1628:39>>*/ return make_invalid_arg
                (counter$13, k, acc, fmt);
@@ -17903,7 +18887,10 @@
                  (k,
                   acc,
                    /*<<camlinternalFormat.ml:1655:35>>*/ caml_call2
-                   (CamlinternalFormatBasics[1], ty, rest$8),
+                    /*<<camlinternalFormat.ml:1655:35>>*/ (CamlinternalFormatBasics
+                     [1],
+                    ty,
+                    rest$8),
                   fmt); /*<<camlinternalFormat.ml:1655:61>>*/ };
        case 10:
         var rest$9 = fmtty[1];
@@ -17922,14 +18909,21 @@
                  (k, acc, rest$11, fmt); /*<<camlinternalFormat.ml:1648:70>>*/ };
        case 13:
          /*<<camlinternalFormat.ml:1649:31>>*/ throw  /*<<camlinternalFormat.ml:1649:31>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _u_], 1);
+                /*<<camlinternalFormat.ml:1649:31>>*/ ([0,
+                 Assert_failure,
+                 _u_],
+                1);
        default:
          /*<<camlinternalFormat.ml:1650:31>>*/ throw  /*<<camlinternalFormat.ml:1650:31>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _v_], 1);
+                /*<<camlinternalFormat.ml:1650:31>>*/ ([0,
+                 Assert_failure,
+                 _v_],
+                1);
      }
      /*<<camlinternalFormat.ml:1652:31>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1652:31>>*/ return  /*<<camlinternalFormat.ml:1652:31>>*/ caml_trampoline_return
-             (make_invalid_arg, [0, k, acc, fmt]);
+              /*<<camlinternalFormat.ml:1652:31>>*/ (make_invalid_arg,
+              [0, k, acc, fmt]);
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1652:31>>*/ return make_invalid_arg
             (counter$0, k, acc, fmt);
@@ -17946,7 +18940,8 @@
         cst_Printf_bad_conversion$0];
      /*<<camlinternalFormat.ml:1663:2>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ caml_trampoline_return
-             (make_printf$0, [0, k, _cb_, fmt]);
+              /*<<camlinternalFormat.ml:1663:2>>*/ (make_printf$0,
+              [0, k, _cb_, fmt]);
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1663:2>>*/ return make_printf$0
             (counter$0, k, _cb_, fmt);
@@ -17958,7 +18953,8 @@
        new_acc =
           /*<<camlinternalFormat.ml:1673:20>>*/ [4,
           acc,
-           /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
+           /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1
+            /*<<camlinternalFormat.ml:1673:42>>*/ (trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
               (k, new_acc, fmt); /*<<camlinternalFormat.ml:1674:31>>*/ };
     if(0 === pad[0]){
@@ -17971,7 +18967,8 @@
           fix_padding
            (padty,
             width,
-             /*<<camlinternalFormat.ml:1677:66>>*/ caml_call1(trans, x))];
+             /*<<camlinternalFormat.ml:1677:66>>*/ caml_call1
+              /*<<camlinternalFormat.ml:1677:66>>*/ (trans, x))];
        /*<<camlinternalFormat.ml:1678:6>>*/ return make_printf
               (k, new_acc, fmt); /*<<camlinternalFormat.ml:1678:31>>*/ };
     }
@@ -17984,7 +18981,8 @@
          fix_padding
           (padty$0,
            w,
-            /*<<camlinternalFormat.ml:1681:62>>*/ caml_call1(trans, x))];
+            /*<<camlinternalFormat.ml:1681:62>>*/ caml_call1
+             /*<<camlinternalFormat.ml:1681:62>>*/ (trans, x))];
       /*<<camlinternalFormat.ml:1682:6>>*/ return make_printf(k, new_acc, fmt); /*<<camlinternalFormat.ml:1682:31>>*/ };
     /*<<camlinternalFormat.ml:1682:31>>*/ }
    function make_int_padding_precision(k, acc, fmt, pad, prec, trans, iconv){
@@ -17998,7 +18996,7 @@
                     /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
                     (p,
                       /*<<camlinternalFormat.ml:1702:36>>*/ caml_call2
-                      (trans, iconv, x));
+                       /*<<camlinternalFormat.ml:1702:36>>*/ (trans, iconv, x));
                  /*<<camlinternalFormat.ml:1703:6>>*/ return make_printf
                         (k, [4, acc, str], fmt);
                 /*<<camlinternalFormat.ml:1703:52>>*/ }
@@ -18007,7 +19005,7 @@
                 var
                  str =
                     /*<<camlinternalFormat.ml:1694:16>>*/  /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
-                    (trans, iconv, x);
+                     /*<<camlinternalFormat.ml:1694:16>>*/ (trans, iconv, x);
                  /*<<camlinternalFormat.ml:1695:6>>*/ return make_printf
                         (k, [4, acc, str], fmt);
                 /*<<camlinternalFormat.ml:1695:52>>*/ };
@@ -18017,7 +19015,8 @@
        str =
           /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
           (p,
-            /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2(trans, iconv, x));
+            /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2
+             /*<<camlinternalFormat.ml:1698:36>>*/ (trans, iconv, x));
        /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
               (k, [4, acc, str], fmt); /*<<camlinternalFormat.ml:1699:52>>*/ };
     }
@@ -18035,7 +19034,7 @@
                      fix_int_precision
                       (p,
                         /*<<camlinternalFormat.ml:1714:57>>*/ caml_call2
-                        (trans, iconv, x)));
+                         /*<<camlinternalFormat.ml:1714:57>>*/ (trans, iconv, x)));
                  /*<<camlinternalFormat.ml:1715:6>>*/ return make_printf
                         (k, [4, acc, str], fmt);
                 /*<<camlinternalFormat.ml:1715:52>>*/ }
@@ -18047,7 +19046,7 @@
                     (padty,
                      w,
                       /*<<camlinternalFormat.ml:1706:36>>*/ caml_call2
-                      (trans, iconv, x));
+                       /*<<camlinternalFormat.ml:1706:36>>*/ (trans, iconv, x));
                  /*<<camlinternalFormat.ml:1707:6>>*/ return make_printf
                         (k, [4, acc, str], fmt);
                 /*<<camlinternalFormat.ml:1707:52>>*/ };
@@ -18061,7 +19060,7 @@
            fix_int_precision
             (p$0,
               /*<<camlinternalFormat.ml:1710:57>>*/ caml_call2
-              (trans, iconv, x)));
+               /*<<camlinternalFormat.ml:1710:57>>*/ (trans, iconv, x)));
        /*<<camlinternalFormat.ml:1711:6>>*/ return make_printf
               (k, [4, acc, str], fmt); /*<<camlinternalFormat.ml:1711:52>>*/ };
     }
@@ -18078,7 +19077,7 @@
                     fix_int_precision
                      (p,
                        /*<<camlinternalFormat.ml:1726:57>>*/ caml_call2
-                       (trans, iconv, x)));
+                        /*<<camlinternalFormat.ml:1726:57>>*/ (trans, iconv, x)));
                 /*<<camlinternalFormat.ml:1727:6>>*/ return make_printf
                        (k, [4, acc, str], fmt);
                /*<<camlinternalFormat.ml:1727:52>>*/ }
@@ -18090,7 +19089,7 @@
                    (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1718:36>>*/ caml_call2
-                     (trans, iconv, x));
+                      /*<<camlinternalFormat.ml:1718:36>>*/ (trans, iconv, x));
                 /*<<camlinternalFormat.ml:1719:6>>*/ return make_printf
                        (k, [4, acc, str], fmt);
                /*<<camlinternalFormat.ml:1719:52>>*/ };
@@ -18103,7 +19102,8 @@
           w,
           fix_int_precision
            (p$1,
-             /*<<camlinternalFormat.ml:1722:57>>*/ caml_call2(trans, iconv, x)));
+             /*<<camlinternalFormat.ml:1722:57>>*/ caml_call2
+              /*<<camlinternalFormat.ml:1722:57>>*/ (trans, iconv, x)));
       /*<<camlinternalFormat.ml:1723:6>>*/ return make_printf
              (k, [4, acc, str], fmt); /*<<camlinternalFormat.ml:1723:52>>*/ };
     /*<<camlinternalFormat.ml:1727:52>>*/ }
@@ -18116,12 +19116,14 @@
                acc,
                rest,
                arity$0,
-                /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1(f, x)); /*<<camlinternalFormat.ml:1782:40>>*/ };
+                /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1
+                 /*<<camlinternalFormat.ml:1782:35>>*/ (f, x)); /*<<camlinternalFormat.ml:1782:40>>*/ };
     }
     var _ca_ =  /*<<camlinternalFormat.ml:1779:33>>*/ [4, acc, f];
      /*<<camlinternalFormat.ml:1779:19>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ caml_trampoline_return
-             (make_printf$0, [0, k, _ca_, rest]);
+              /*<<camlinternalFormat.ml:1779:19>>*/ (make_printf$0,
+              [0, k, _ca_, rest]);
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1779:19>>*/ return make_printf$0
             (counter$0, k, _ca_, rest);
@@ -18135,7 +19137,7 @@
      /*<<camlinternalFormat.ml:1788:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1858:8>>*/ return  /*<<camlinternalFormat.ml:1858:8>>*/ caml_call1
-              (k$0, o);
+               /*<<camlinternalFormat.ml:1858:8>>*/ (k$0, o);
      switch(fmt$0[0]){
        case 0:
         var
@@ -18285,7 +19287,10 @@
                  (k$0,
                   o,
                    /*<<camlinternalFormat.ml:1842:12>>*/ caml_call2
-                   (CamlinternalFormatBasics[3], _bW_, rest$19)); /*<<camlinternalFormat.ml:1842:48>>*/ };
+                    /*<<camlinternalFormat.ml:1842:12>>*/ (CamlinternalFormatBasics
+                     [3],
+                    _bW_,
+                    rest$19)); /*<<camlinternalFormat.ml:1842:48>>*/ };
        case 15:
         var
          rest$20 = fmt$0[1],
@@ -18337,7 +19342,8 @@
         break;
        case 19:
          /*<<camlinternalFormat.ml:1830:8>>*/ throw  /*<<camlinternalFormat.ml:1830:8>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _w_], 1);
+                /*<<camlinternalFormat.ml:1830:8>>*/ ([0, Assert_failure, _w_],
+                1);
        case 20:
         var
          rest$25 = fmt$0[3],
@@ -18376,7 +19382,8 @@
         var rest$29 = fmt$0[3], arity = fmt$0[1];
          /*<<camlinternalFormat.ml:1826:8>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1826:8>>*/ return  /*<<camlinternalFormat.ml:1826:8>>*/ caml_trampoline_return
-                 (fn_of_custom_arity$0, [0, k$0, o, rest$29, arity]);
+                  /*<<camlinternalFormat.ml:1826:8>>*/ (fn_of_custom_arity$0,
+                  [0, k$0, o, rest$29, arity]);
         var counter$0 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1826:8>>*/ return fn_of_custom_arity$0
                 (counter$0, k$0, o, rest$29, arity);
@@ -18470,7 +19477,8 @@
     }
      /*<<camlinternalFormat.ml:1887:8>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1887:8>>*/ return  /*<<camlinternalFormat.ml:1887:8>>*/ caml_trampoline_return
-             (make_iprintf$0, [0, k, o, fmt]);
+              /*<<camlinternalFormat.ml:1887:8>>*/ (make_iprintf$0,
+              [0, k, o, fmt]);
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1887:8>>*/ return make_iprintf$0
             (counter$0, k, o, fmt);
@@ -18494,21 +19502,21 @@
             (fmting_lit);
          /*<<camlinternalFormat.ml:1900:4>>*/ output_acc(o, p);
          /*<<camlinternalFormat.ml:1900:4>>*/ return  /*<<camlinternalFormat.ml:1900:4>>*/ caml_call2
-                (Stdlib[66], o, s);
+                 /*<<camlinternalFormat.ml:1900:4>>*/ (Stdlib[66], o, s);
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
           /*<<camlinternalFormat.ml:1902:4>>*/ output_acc(o, p$0);
           /*<<camlinternalFormat.ml:1902:20>>*/  /*<<camlinternalFormat.ml:1902:20>>*/ caml_call2
-          (Stdlib[66], o, cst$18);
+           /*<<camlinternalFormat.ml:1902:20>>*/ (Stdlib[66], o, cst$18);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
           /*<<camlinternalFormat.ml:1904:4>>*/ output_acc(o, p$0);
           /*<<camlinternalFormat.ml:1904:20>>*/  /*<<camlinternalFormat.ml:1904:20>>*/ caml_call2
-          (Stdlib[66], o, cst$19);
+           /*<<camlinternalFormat.ml:1904:20>>*/ (Stdlib[66], o, cst$19);
          acc$0 = acc$2;
         }
         break;
@@ -18516,28 +19524,28 @@
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1909:32>>*/ output_acc(o, p$3);
          /*<<camlinternalFormat.ml:1909:32>>*/ return  /*<<camlinternalFormat.ml:1909:32>>*/ caml_call1
-                (f, o);
+                 /*<<camlinternalFormat.ml:1909:32>>*/ (f, o);
        case 7:
         var p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1910:32>>*/ output_acc(o, p$4);
          /*<<camlinternalFormat.ml:1910:32>>*/ return  /*<<camlinternalFormat.ml:1910:32>>*/ caml_call1
-                (Stdlib[63], o);
+                 /*<<camlinternalFormat.ml:1910:32>>*/ (Stdlib[63], o);
        case 8:
         var msg = acc$0[2], p$5 = acc$0[1];
          /*<<camlinternalFormat.ml:1911:32>>*/ output_acc(o, p$5);
          /*<<camlinternalFormat.ml:1911:32>>*/ return  /*<<camlinternalFormat.ml:1911:32>>*/ caml_call1
-                (Stdlib[1], msg);
+                 /*<<camlinternalFormat.ml:1911:32>>*/ (Stdlib[1], msg);
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1906:32>>*/ output_acc(o, p$1);
          /*<<camlinternalFormat.ml:1906:32>>*/ return  /*<<camlinternalFormat.ml:1906:32>>*/ caml_call2
-                (Stdlib[66], o, s$0);
+                 /*<<camlinternalFormat.ml:1906:32>>*/ (Stdlib[66], o, s$0);
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1908:32>>*/ output_acc(o, p$2);
          /*<<camlinternalFormat.ml:1908:32>>*/ return  /*<<camlinternalFormat.ml:1908:32>>*/ caml_call2
-                (Stdlib[65], o, c);
+                 /*<<camlinternalFormat.ml:1908:32>>*/ (Stdlib[65], o, c);
      }
     }
     /*<<camlinternalFormat.ml:1912:34>>*/ }
@@ -18556,21 +19564,27 @@
             (fmting_lit);
          /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc(b, p);
          /*<<camlinternalFormat.ml:1920:4>>*/ return  /*<<camlinternalFormat.ml:1920:4>>*/ caml_call2
-                (Stdlib_Buffer[16], b, s);
+                 /*<<camlinternalFormat.ml:1920:4>>*/ (Stdlib_Buffer[16],
+                 b,
+                 s);
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
           /*<<camlinternalFormat.ml:1922:4>>*/ bufput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1922:20>>*/  /*<<camlinternalFormat.ml:1922:20>>*/ caml_call2
-          (Stdlib_Buffer[16], b, cst$20);
+           /*<<camlinternalFormat.ml:1922:20>>*/ (Stdlib_Buffer[16],
+           b,
+           cst$20);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
           /*<<camlinternalFormat.ml:1924:4>>*/ bufput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1924:20>>*/  /*<<camlinternalFormat.ml:1924:20>>*/ caml_call2
-          (Stdlib_Buffer[16], b, cst$21);
+           /*<<camlinternalFormat.ml:1924:20>>*/ (Stdlib_Buffer[16],
+           b,
+           cst$21);
          acc$0 = acc$2;
         }
         break;
@@ -18578,25 +19592,29 @@
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc(b, p$3);
          /*<<camlinternalFormat.ml:1929:32>>*/ return  /*<<camlinternalFormat.ml:1929:32>>*/ caml_call1
-                (f, b);
+                 /*<<camlinternalFormat.ml:1929:32>>*/ (f, b);
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc(b, p$4);
          /*<<camlinternalFormat.ml:1931:32>>*/ return  /*<<camlinternalFormat.ml:1931:32>>*/ caml_call1
-                (Stdlib[1], msg);
+                 /*<<camlinternalFormat.ml:1931:32>>*/ (Stdlib[1], msg);
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc(b, p$1);
          /*<<camlinternalFormat.ml:1926:32>>*/ return  /*<<camlinternalFormat.ml:1926:32>>*/ caml_call2
-                (Stdlib_Buffer[16], b, s$0);
+                 /*<<camlinternalFormat.ml:1926:32>>*/ (Stdlib_Buffer[16],
+                 b,
+                 s$0);
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc(b, p$2);
          /*<<camlinternalFormat.ml:1928:32>>*/ return  /*<<camlinternalFormat.ml:1928:32>>*/ caml_call2
-                (Stdlib_Buffer[12], b, c);
+                 /*<<camlinternalFormat.ml:1928:32>>*/ (Stdlib_Buffer[12],
+                 b,
+                 c);
      }
     }
     /*<<camlinternalFormat.ml:1932:34>>*/ }
@@ -18615,21 +19633,27 @@
             (fmting_lit);
          /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc(b, p);
          /*<<camlinternalFormat.ml:1941:4>>*/ return  /*<<camlinternalFormat.ml:1941:4>>*/ caml_call2
-                (Stdlib_Buffer[16], b, s);
+                 /*<<camlinternalFormat.ml:1941:4>>*/ (Stdlib_Buffer[16],
+                 b,
+                 s);
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
           /*<<camlinternalFormat.ml:1943:4>>*/ strput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1943:20>>*/  /*<<camlinternalFormat.ml:1943:20>>*/ caml_call2
-          (Stdlib_Buffer[16], b, cst$22);
+           /*<<camlinternalFormat.ml:1943:20>>*/ (Stdlib_Buffer[16],
+           b,
+           cst$22);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
           /*<<camlinternalFormat.ml:1945:4>>*/ strput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1945:20>>*/  /*<<camlinternalFormat.ml:1945:20>>*/ caml_call2
-          (Stdlib_Buffer[16], b, cst$23);
+           /*<<camlinternalFormat.ml:1945:20>>*/ (Stdlib_Buffer[16],
+           b,
+           cst$23);
          acc$0 = acc$2;
         }
         break;
@@ -18639,27 +19663,33 @@
         var
          _bv_ =
             /*<<camlinternalFormat.ml:1950:68>>*/  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1
-            (f, 0);
+             /*<<camlinternalFormat.ml:1950:68>>*/ (f, 0);
          /*<<camlinternalFormat.ml:1950:68>>*/ return  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call2
-                (Stdlib_Buffer[16], b, _bv_);
+                 /*<<camlinternalFormat.ml:1950:68>>*/ (Stdlib_Buffer[16],
+                 b,
+                 _bv_);
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc(b, p$4);
          /*<<camlinternalFormat.ml:1952:32>>*/ return  /*<<camlinternalFormat.ml:1952:32>>*/ caml_call1
-                (Stdlib[1], msg);
+                 /*<<camlinternalFormat.ml:1952:32>>*/ (Stdlib[1], msg);
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc(b, p$1);
          /*<<camlinternalFormat.ml:1947:32>>*/ return  /*<<camlinternalFormat.ml:1947:32>>*/ caml_call2
-                (Stdlib_Buffer[16], b, s$0);
+                 /*<<camlinternalFormat.ml:1947:32>>*/ (Stdlib_Buffer[16],
+                 b,
+                 s$0);
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc(b, p$2);
          /*<<camlinternalFormat.ml:1949:32>>*/ return  /*<<camlinternalFormat.ml:1949:32>>*/ caml_call2
-                (Stdlib_Buffer[12], b, c);
+                 /*<<camlinternalFormat.ml:1949:32>>*/ (Stdlib_Buffer[12],
+                 b,
+                 c);
      }
     }
     /*<<camlinternalFormat.ml:1953:34>>*/ }
@@ -18668,15 +19698,15 @@
      fmt = param[1],
      buf =
         /*<<camlinternalFormat.ml:1960:12>>*/  /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
-        (Stdlib_Buffer[1], 256);
+         /*<<camlinternalFormat.ml:1960:12>>*/ (Stdlib_Buffer[1], 256);
     function k(acc){
       /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc(buf, acc);
      var
       _bu_ =
          /*<<camlinternalFormat.ml:1961:43>>*/  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
-         (Stdlib_Buffer[2], buf);
+          /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib_Buffer[2], buf);
       /*<<camlinternalFormat.ml:1961:43>>*/ return  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
-             (Stdlib[2], _bu_);
+              /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib[2], _bu_);
      /*<<camlinternalFormat.ml:1961:64>>*/ }
      /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt);
    }
@@ -18686,7 +19716,8 @@
     var len = caml_ml_string_length(str);
     function invalid_box(param){
       /*<<camlinternalFormat.ml:1971:25>>*/ return  /*<<camlinternalFormat.ml:1971:4>>*/ caml_call1
-             (failwith_message(_y_), str);
+              /*<<camlinternalFormat.ml:1971:4>>*/ (failwith_message(_y_),
+              str);
      /*<<camlinternalFormat.ml:1971:74>>*/ }
     function parse_spaces(i){
      var i$0 = i;
@@ -18695,7 +19726,7 @@
       var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/  /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get
-          (str, i$0);
+           /*<<camlinternalFormat.ml:1974:14>>*/ (str, i$0);
       if(9 !== match && 32 !== match)
         /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
       var i$1 =  /*<<camlinternalFormat.ml:1975:24>>*/ i$0 + 1 | 0;
@@ -18712,7 +19743,8 @@
       if
        (25
         <
-          /*<<camlinternalFormat.ml:1979:14>>*/ caml_string_get(str, wend)
+          /*<<camlinternalFormat.ml:1979:14>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:1979:14>>*/ (str, wend)
          - 97
          >>> 0)
        break;
@@ -18724,7 +19756,10 @@
     var
      box_name =
         /*<<camlinternalFormat.ml:1989:19>>*/  /*<<camlinternalFormat.ml:1989:19>>*/ caml_call3
-        (Stdlib_String[16], str, wstart, wend - wstart | 0),
+         /*<<camlinternalFormat.ml:1989:19>>*/ (Stdlib_String[16],
+         str,
+         wstart,
+         wend - wstart | 0),
      nstart =  /*<<camlinternalFormat.ml:1990:17>>*/ parse_spaces(wend);
     a:
     b:
@@ -18735,7 +19770,7 @@
       var
        match =
           /*<<camlinternalFormat.ml:1984:14>>*/  /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get
-          (str, nend);
+           /*<<camlinternalFormat.ml:1984:14>>*/ (str, nend);
       if(48 <= match){if(58 <= match) break;} else if(45 !== match) break;
       var j$0 =  /*<<camlinternalFormat.ml:1985:30>>*/ nend + 1 | 0;
       nend = j$0;
@@ -18749,8 +19784,11 @@
       var
        _bs_ =
           /*<<camlinternalFormat.ml:1994:12>>*/  /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
-          ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
-            (Stdlib_String[16], str, nstart, nend - nstart | 0)),
+           /*<<camlinternalFormat.ml:1994:12>>*/ ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
+             /*<<camlinternalFormat.ml:1994:26>>*/ (Stdlib_String[16],
+             str,
+             nstart,
+             nend - nstart | 0)),
        indent = _bs_;
      }
      catch(_bt_){
@@ -18806,15 +19844,26 @@
      var legacy_behavior$0 = 1;
     function invalid_format_message(str_ind, msg){
       /*<<camlinternalFormat.ml:2084:4>>*/ return  /*<<camlinternalFormat.ml:2084:4>>*/ caml_call3
-             (failwith_message(_z_), str, str_ind, msg);
+              /*<<camlinternalFormat.ml:2084:4>>*/ (failwith_message(_z_),
+              str,
+              str_ind,
+              msg);
      /*<<camlinternalFormat.ml:2086:21>>*/ }
     function invalid_format_without(str_ind, c, s){
       /*<<camlinternalFormat.ml:2104:4>>*/ return  /*<<camlinternalFormat.ml:2104:4>>*/ caml_call4
-             (failwith_message(_A_), str, str_ind, c, s);
+              /*<<camlinternalFormat.ml:2104:4>>*/ (failwith_message(_A_),
+              str,
+              str_ind,
+              c,
+              s);
      /*<<camlinternalFormat.ml:2106:21>>*/ }
     function expected_character(str_ind, expected, read){
       /*<<camlinternalFormat.ml:2112:4>>*/ return  /*<<camlinternalFormat.ml:2112:4>>*/ caml_call4
-             (failwith_message(_B_), str, str_ind, expected, read);
+              /*<<camlinternalFormat.ml:2112:4>>*/ (failwith_message(_B_),
+              str,
+              str_ind,
+              expected,
+              read);
      /*<<camlinternalFormat.ml:2114:31>>*/ }
     function parse(lit_start, end_ind){
      a:
@@ -18827,7 +19876,7 @@
        var
         match =
            /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get
-           (str, str_ind);
+            /*<<camlinternalFormat.ml:2125:12>>*/ (str, str_ind);
        if(37 === match) break;
        if(64 === match) break a;
        var str_ind$1 = str_ind + 1 | 0;
@@ -18842,7 +19891,7 @@
          95
           ===
             /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
-            (str, str_ind$2)
+             /*<<camlinternalFormat.ml:2142:10>>*/ (str, str_ind$2)
           ? parse_flags(str_ind, str_ind$2 + 1 | 0, end_ind, 1)
           : parse_flags(str_ind, str_ind$2, end_ind, 0),
        fmt_rest = match$1[1];
@@ -18857,7 +19906,7 @@
       var
        c =
           /*<<camlinternalFormat.ml:2593:12>>*/  /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
-          (str, str_ind$0);
+           /*<<camlinternalFormat.ml:2593:12>>*/ (str, str_ind$0);
       if(65 <= c){
        if(94 <= c){
         var switcher =  /*<<camlinternalFormat.ml:2593:12>>*/ c - 123 | 0;
@@ -18906,7 +19955,8 @@
               37
               ===
                 /*<<camlinternalFormat.ml:2626:42>>*/ caml_string_get
-                (str, str_ind$0 + 1 | 0)){
+                 /*<<camlinternalFormat.ml:2626:42>>*/ (str,
+                 str_ind$0 + 1 | 0)){
             var
              fmt_rest$6 = parse(str_ind$0 + 2 | 0, end_ind)[1],
              match$0 = [0, [17, 6, fmt_rest$6]];
@@ -18938,19 +19988,19 @@
                 (60
                   !==
                     /*<<camlinternalFormat.ml:2666:32>>*/ caml_string_get
-                    (str, str_ind$3)
+                     /*<<camlinternalFormat.ml:2666:32>>*/ (str, str_ind$3)
                   ? 1
                   : 0);
             if(_bh_)
               /*<<camlinternalFormat.ml:2666:58>>*/ throw  /*<<camlinternalFormat.ml:2666:58>>*/ caml_maybe_attach_backtrace
-                    (Stdlib[8], 1);
+                     /*<<camlinternalFormat.ml:2666:58>>*/ (Stdlib[8], 1);
             var
              str_ind_1 =
                 /*<<camlinternalFormat.ml:2667:24>>*/ parse_spaces
                 (str_ind$3 + 1 | 0, end_ind),
              match$2 =
                 /*<<camlinternalFormat.ml:2668:14>>*/  /*<<camlinternalFormat.ml:2668:14>>*/ caml_string_get
-                (str, str_ind_1);
+                 /*<<camlinternalFormat.ml:2668:14>>*/ (str, str_ind_1);
             c:
             {
              if(48 <= match$2){
@@ -18958,7 +20008,7 @@
              }
              else if(45 === match$2) break c;
               /*<<camlinternalFormat.ml:2684:15>>*/ throw  /*<<camlinternalFormat.ml:2684:15>>*/ caml_maybe_attach_backtrace
-                    (Stdlib[8], 1);
+                     /*<<camlinternalFormat.ml:2684:15>>*/ (Stdlib[8], 1);
             }
             var
              match$3 =
@@ -18971,7 +20021,7 @@
                 (str_ind_2, end_ind),
              switcher$0 =
                 /*<<camlinternalFormat.ml:2672:18>>*/  /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
-                (str, str_ind_3)
+                 /*<<camlinternalFormat.ml:2672:18>>*/ (str, str_ind_3)
                - 45
                | 0;
             if(12 < switcher$0 >>> 0){
@@ -18979,7 +20029,7 @@
               var
                s =
                   /*<<camlinternalFormat.ml:2674:24>>*/  /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
-                  (Stdlib_String[16],
+                   /*<<camlinternalFormat.ml:2674:24>>*/ (Stdlib_String[16],
                    str,
                    str_ind$3 - 2 | 0,
                    (str_ind_3 - str_ind$3 | 0) + 3 | 0),
@@ -19004,13 +20054,13 @@
               (62
                !==
                  /*<<camlinternalFormat.ml:2679:19>>*/ caml_string_get
-                 (str, str_ind_5))
+                  /*<<camlinternalFormat.ml:2679:19>>*/ (str, str_ind_5))
                /*<<camlinternalFormat.ml:2679:47>>*/ throw  /*<<camlinternalFormat.ml:2679:47>>*/ caml_maybe_attach_backtrace
-                     (Stdlib[8], 1);
+                      /*<<camlinternalFormat.ml:2679:47>>*/ (Stdlib[8], 1);
              var
               s$0 =
                  /*<<camlinternalFormat.ml:2680:24>>*/  /*<<camlinternalFormat.ml:2680:24>>*/ caml_call3
-                 (Stdlib_String[16],
+                  /*<<camlinternalFormat.ml:2680:24>>*/ (Stdlib_String[16],
                   str,
                   str_ind$3 - 2 | 0,
                   (str_ind_5 - str_ind$3 | 0) + 3 | 0),
@@ -19022,7 +20072,7 @@
              break b;
             }
              /*<<camlinternalFormat.ml:2682:21>>*/ throw  /*<<camlinternalFormat.ml:2682:21>>*/ caml_maybe_attach_backtrace
-                   (Stdlib[8], 1);
+                    /*<<camlinternalFormat.ml:2682:21>>*/ (Stdlib[8], 1);
            }
            catch(_bq_){
             var _bf_ = caml_wrap_exception(_bq_);
@@ -19043,7 +20093,7 @@
                 (str_ind$4, end_ind),
              match$6 =
                 /*<<camlinternalFormat.ml:2697:14>>*/  /*<<camlinternalFormat.ml:2697:14>>*/ caml_string_get
-                (str, str_ind_1$0);
+                 /*<<camlinternalFormat.ml:2697:14>>*/ (str, str_ind_1$0);
             b:
             {
              c:
@@ -19068,13 +20118,13 @@
               (62
                !==
                  /*<<camlinternalFormat.ml:2701:13>>*/ caml_string_get
-                 (str, str_ind_3$0))
+                  /*<<camlinternalFormat.ml:2701:13>>*/ (str, str_ind_3$0))
                /*<<camlinternalFormat.ml:2701:41>>*/ throw  /*<<camlinternalFormat.ml:2701:41>>*/ caml_maybe_attach_backtrace
-                     (Stdlib[8], 1);
+                      /*<<camlinternalFormat.ml:2701:41>>*/ (Stdlib[8], 1);
              var
               s$1 =
                  /*<<camlinternalFormat.ml:2702:18>>*/  /*<<camlinternalFormat.ml:2702:18>>*/ caml_call3
-                 (Stdlib_String[16],
+                  /*<<camlinternalFormat.ml:2702:18>>*/ (Stdlib_String[16],
                   str,
                   str_ind$4 - 2 | 0,
                   (str_ind_3$0 - str_ind$4 | 0) + 3 | 0),
@@ -19134,9 +20184,12 @@
        var
         _bd_ =
            /*<<camlinternalFormat.ml:2157:22>>*/  /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get
-           (str, str_ind);
+            /*<<camlinternalFormat.ml:2157:22>>*/ (str, str_ind);
         /*<<camlinternalFormat.ml:2155:8>>*/  /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
-        (failwith_message(_C_), str, str_ind, _bd_);
+         /*<<camlinternalFormat.ml:2155:8>>*/ (failwith_message(_C_),
+         str,
+         str_ind,
+         _bd_);
       }
       flag[1] = 1;
       /*<<camlinternalFormat.ml:2158:19>>*/ }
@@ -19152,7 +20205,7 @@
        var
         switcher =
            /*<<camlinternalFormat.ml:2162:18>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
-           (str, str_ind$0)
+            /*<<camlinternalFormat.ml:2162:18>>*/ (str, str_ind$0)
           - 32
           | 0;
        if(16 < switcher >>> 0) break b;
@@ -19217,7 +20270,7 @@
          : minus$0 ? 0 : 1,
       match =
          /*<<camlinternalFormat.ml:2188:10>>*/  /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get
-         (str, str_ind$0);
+          /*<<camlinternalFormat.ml:2188:10>>*/ (str, str_ind$0);
      if(48 <= match){
       if(58 > match){
        var
@@ -19296,7 +20349,7 @@
      var
       symb =
          /*<<camlinternalFormat.ml:2220:10>>*/  /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get
-         (str, str_ind);
+          /*<<camlinternalFormat.ml:2220:10>>*/ (str, str_ind);
      if(46 !== symb)
        /*<<camlinternalFormat.ml:2225:6>>*/ return parse_conversion
               (pct_ind,
@@ -19336,7 +20389,7 @@
      var
       symb$0 =
          /*<<camlinternalFormat.ml:2238:10>>*/  /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get
-         (str, str_ind$0);
+          /*<<camlinternalFormat.ml:2238:10>>*/ (str, str_ind$0);
      if(48 <= symb$0){
       if(58 > symb$0)
         /*<<camlinternalFormat.ml:2239:20>>*/ return parse_literal
@@ -19399,7 +20452,7 @@
                prec,
                padprec,
                 /*<<camlinternalFormat.ml:2271:21>>*/ caml_string_get
-                (str, str_ind));
+                 /*<<camlinternalFormat.ml:2271:21>>*/ (str, str_ind));
       /*<<camlinternalFormat.ml:2271:34>>*/ }
      if(typeof pad !== "number")
        /*<<camlinternalFormat.ml:2287:13>>*/ return parse_conv(pad);
@@ -19613,7 +20666,7 @@
                  /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
                  (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
-                   (Stdlib[29], i));
+                    /*<<camlinternalFormat.ml:2725:33>>*/ (Stdlib[29], i));
                 var _a$_ =  /*<<camlinternalFormat.ml:2725:8>>*/ i + 1 | 0;
                 if(c === i) break;
                 i = _a$_;
@@ -19623,7 +20676,9 @@
            fail_single_percent =
              function(str_ind){
                /*<<camlinternalFormat.ml:2730:6>>*/ return  /*<<camlinternalFormat.ml:2730:6>>*/ caml_call2
-                      (failwith_message(_R_), str, str_ind);
+                       /*<<camlinternalFormat.ml:2730:6>>*/ (failwith_message(_R_),
+                       str,
+                       str_ind);
               /*<<camlinternalFormat.ml:2732:54>>*/ },
            parse_char_set_content =
              function(counter, str_ind, end_ind){
@@ -19635,7 +20690,7 @@
                var
                 c =
                    /*<<camlinternalFormat.ml:2744:12>>*/  /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
-                   (str, str_ind$0);
+                    /*<<camlinternalFormat.ml:2744:12>>*/ (str, str_ind$0);
                if(45 !== c){
                 if(93 === c)
                   /*<<camlinternalFormat.ml:2746:8>>*/ return str_ind$0 + 1
@@ -19643,7 +20698,8 @@
                 var _a__ = str_ind$0 + 1 | 0;
                  /*<<camlinternalFormat.ml:2751:8>>*/ if(counter >= 50)
                   /*<<camlinternalFormat.ml:2751:8>>*/ return  /*<<camlinternalFormat.ml:2751:8>>*/ caml_trampoline_return
-                         (parse_char_set_after_char$0, [0, _a__, end_ind, c]);
+                          /*<<camlinternalFormat.ml:2751:8>>*/ (parse_char_set_after_char$0,
+                          [0, _a__, end_ind, c]);
                 var counter$0 = counter + 1 | 0;
                  /*<<camlinternalFormat.ml:2751:8>>*/ return parse_char_set_after_char$0
                         (counter$0, _a__, end_ind, c);
@@ -19664,7 +20720,7 @@
                var
                 c$1 =
                    /*<<camlinternalFormat.ml:2756:12>>*/  /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
-                   (str, str_ind$0);
+                    /*<<camlinternalFormat.ml:2756:12>>*/ (str, str_ind$0);
                a:
                {
                 if(46 <= c$1){
@@ -19685,7 +20741,7 @@
                  var
                   c$2 =
                      /*<<camlinternalFormat.ml:2776:12>>*/  /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
-                     (str, str_ind$2);
+                      /*<<camlinternalFormat.ml:2776:12>>*/ (str, str_ind$2);
                  if(37 === c$2){
                   if((str_ind$2 + 1 | 0) === end_ind)
                     /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
@@ -19693,7 +20749,8 @@
                   var
                    c$3 =
                       /*<<camlinternalFormat.ml:2783:20>>*/  /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
-                      (str, str_ind$2 + 1 | 0);
+                       /*<<camlinternalFormat.ml:2783:20>>*/ (str,
+                       str_ind$2 + 1 | 0);
                   if(37 !== c$3 && 64 !== c$3)
                     /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
                            (str_ind$2);
@@ -19701,7 +20758,8 @@
                   var _a8_ = str_ind$2 + 2 | 0;
                    /*<<camlinternalFormat.ml:2785:12>>*/ if(counter >= 50)
                     /*<<camlinternalFormat.ml:2785:12>>*/ return  /*<<camlinternalFormat.ml:2785:12>>*/ caml_trampoline_return
-                           (parse_char_set_content, [0, _a8_, end_ind]);
+                            /*<<camlinternalFormat.ml:2785:12>>*/ (parse_char_set_content,
+                            [0, _a8_, end_ind]);
                   var counter$1 = counter + 1 | 0;
                    /*<<camlinternalFormat.ml:2785:12>>*/ return parse_char_set_content
                           (counter$1, _a8_, end_ind);
@@ -19718,7 +20776,8 @@
                  var _a9_ = str_ind$2 + 1 | 0;
                   /*<<camlinternalFormat.ml:2790:8>>*/ if(counter >= 50)
                    /*<<camlinternalFormat.ml:2790:8>>*/ return  /*<<camlinternalFormat.ml:2790:8>>*/ caml_trampoline_return
-                          (parse_char_set_content, [0, _a9_, end_ind]);
+                           /*<<camlinternalFormat.ml:2790:8>>*/ (parse_char_set_content,
+                           [0, _a9_, end_ind]);
                  var counter$0 = counter + 1 | 0;
                   /*<<camlinternalFormat.ml:2790:8>>*/ return parse_char_set_content
                          (counter$0, _a9_, end_ind);
@@ -19729,7 +20788,8 @@
                  var _a7_ = str_ind$0 + 1 | 0;
                   /*<<camlinternalFormat.ml:2763:8>>*/ if(counter >= 50)
                    /*<<camlinternalFormat.ml:2763:8>>*/ return  /*<<camlinternalFormat.ml:2763:8>>*/ caml_trampoline_return
-                          (parse_char_set_content, [0, _a7_, end_ind]);
+                           /*<<camlinternalFormat.ml:2763:8>>*/ (parse_char_set_content,
+                           [0, _a7_, end_ind]);
                  var counter$2 = counter + 1 | 0;
                   /*<<camlinternalFormat.ml:2763:8>>*/ return parse_char_set_content
                          (counter$2, _a7_, end_ind);
@@ -19757,7 +20817,7 @@
            (94
             ===
               /*<<camlinternalFormat.ml:2795:12>>*/ caml_string_get
-              (str, str_ind))
+               /*<<camlinternalFormat.ml:2795:12>>*/ (str, str_ind))
            var
             str_ind$0 = str_ind + 1 | 0,
             reverse = 1,
@@ -19770,7 +20830,7 @@
           var
            c =
               /*<<camlinternalFormat.ml:2738:14>>*/  /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
-              (str, str_ind$1),
+               /*<<camlinternalFormat.ml:2738:14>>*/ (str, str_ind$1),
            next_ind =
               /*<<camlinternalFormat.ml:2739:6>>*/ parse_char_set_after_char
               (str_ind$1 + 1 | 0, end_ind, c),
@@ -19918,7 +20978,7 @@
            var
             symb$0 =
                /*<<camlinternalFormat.ml:2438:63>>*/  /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
-               (str, str_ind),
+                /*<<camlinternalFormat.ml:2438:63>>*/ (str, str_ind),
             _a4_ =  /*<<camlinternalFormat.ml:2892:25>>*/ symb$0 - 88 | 0;
            b:
            {
@@ -19950,7 +21010,10 @@
            }
            else if(76 === symb){var counter = 2; break b;}
             /*<<camlinternalFormat.ml:2899:34>>*/ throw  /*<<camlinternalFormat.ml:2899:34>>*/ caml_maybe_attach_backtrace
-                  ([0, Assert_failure, _V_], 1);
+                   /*<<camlinternalFormat.ml:2899:34>>*/ ([0,
+                    Assert_failure,
+                    _V_],
+                   1);
           }
            /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
            var
@@ -19968,7 +21031,10 @@
           var
            fmt_result =
               /*<<camlinternalFormat.ml:2549:6>>*/ caml_call3
-              (failwith_message(_M_), str, pct_ind, symb);
+               /*<<camlinternalFormat.ml:2549:6>>*/ (failwith_message(_M_),
+               str,
+               pct_ind,
+               symb);
           break a;
          case 88:
          case 100:
@@ -20059,7 +21125,10 @@
            }
            else if(70 === symb){var kind = 5; break b;}
             /*<<camlinternalFormat.ml:2957:11>>*/ throw  /*<<camlinternalFormat.ml:2957:11>>*/ caml_maybe_attach_backtrace
-                  ([0, Assert_failure, _X_], 1);
+                   /*<<camlinternalFormat.ml:2957:11>>*/ ([0,
+                    Assert_failure,
+                    _X_],
+                   1);
           }
           var
            fconv =  /*<<camlinternalFormat.ml:2958:4>>*/ [0, flag, kind],
@@ -20100,7 +21169,7 @@
            var
             _at_ =
                /*<<camlinternalFormat.ml:2449:25>>*/  /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
-               (str, str_ind),
+                /*<<camlinternalFormat.ml:2449:25>>*/ (str, str_ind),
             _au_ =  /*<<camlinternalFormat.ml:2449:10>>*/ get_space(0),
             _av_ =  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash(0),
             iconv =
@@ -20132,7 +21201,7 @@
            var
             _az_ =
                /*<<camlinternalFormat.ml:2461:39>>*/  /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
-               (str, str_ind),
+                /*<<camlinternalFormat.ml:2461:39>>*/ (str, str_ind),
             _aA_ =  /*<<camlinternalFormat.ml:2461:24>>*/ get_space(0),
             _aB_ =  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash(0),
             iconv$0 =
@@ -20166,7 +21235,7 @@
        var
         _aE_ =
            /*<<camlinternalFormat.ml:2473:25>>*/  /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get
-           (str, str_ind),
+            /*<<camlinternalFormat.ml:2473:25>>*/ (str, str_ind),
         _aF_ =  /*<<camlinternalFormat.ml:2473:10>>*/ get_space(0),
         _aG_ =  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash(0),
         iconv$1 =
@@ -20196,7 +21265,10 @@
       var
        fmt_result =
           /*<<camlinternalFormat.ml:2554:6>>*/ caml_call3
-          (failwith_message(_J_), str, str_ind - 1 | 0, symb);
+           /*<<camlinternalFormat.ml:2554:6>>*/ (failwith_message(_J_),
+           str,
+           str_ind - 1 | 0,
+           symb);
      }
      if(1 - legacy_behavior$0){
       var _ak_ = 1 - plus_used[1], plus$0 = _ak_ ? plus : _ak_;
@@ -20216,7 +21288,7 @@
        _ao_ =
          _an_
           ?  /*<<camlinternalFormat.ml:2569:25>>*/ caml_notequal
-            ([0, pad], _K_)
+             /*<<camlinternalFormat.ml:2569:25>>*/ ([0, pad], _K_)
           : _an_;
        /*<<camlinternalFormat.ml:2569:25>>*/ if(_ao_)
         /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
@@ -20226,7 +21298,7 @@
        _aq_ =
          _ap_
           ?  /*<<camlinternalFormat.ml:2571:25>>*/ caml_notequal
-            ([0, prec], _L_)
+             /*<<camlinternalFormat.ml:2571:25>>*/ ([0, prec], _L_)
           : _ap_;
        /*<<camlinternalFormat.ml:2571:25>>*/ if(_aq_){
        var _ar_ = ign ? 95 : symb;
@@ -20258,24 +21330,31 @@
       /*<<camlinternalFormat.ml:2639:4>>*/ try{
       if(str_ind === end_ind)
         /*<<camlinternalFormat.ml:2640:32>>*/ throw  /*<<camlinternalFormat.ml:2640:32>>*/ caml_maybe_attach_backtrace
-              (Stdlib[8], 1);
+               /*<<camlinternalFormat.ml:2640:32>>*/ (Stdlib[8], 1);
       if
        (60
         !==
-          /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
+          /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:2641:12>>*/ (str, str_ind))
         /*<<camlinternalFormat.ml:2653:8>>*/ throw  /*<<camlinternalFormat.ml:2653:8>>*/ caml_maybe_attach_backtrace
-              (Stdlib[8], 1);
+               /*<<camlinternalFormat.ml:2653:8>>*/ (Stdlib[8], 1);
       var
        ind =
           /*<<camlinternalFormat.ml:2643:18>>*/  /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
-          (Stdlib_String[32], str, str_ind + 1 | 0, 62);
+           /*<<camlinternalFormat.ml:2643:18>>*/ (Stdlib_String[32],
+           str,
+           str_ind + 1 | 0,
+           62);
       if(end_ind <= ind)
         /*<<camlinternalFormat.ml:2644:31>>*/ throw  /*<<camlinternalFormat.ml:2644:31>>*/ caml_maybe_attach_backtrace
-              (Stdlib[8], 1);
+               /*<<camlinternalFormat.ml:2644:31>>*/ (Stdlib[8], 1);
       var
        sub_str =
           /*<<camlinternalFormat.ml:2645:22>>*/  /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
-          (Stdlib_String[16], str, str_ind, (ind - str_ind | 0) + 1 | 0),
+           /*<<camlinternalFormat.ml:2645:22>>*/ (Stdlib_String[16],
+           str,
+           str_ind,
+           (ind - str_ind | 0) + 1 | 0),
        fmt_rest$0 = parse(ind + 1 | 0, end_ind)[1],
        sub_fmt = parse(str_ind, ind + 1 | 0)[1],
        sub_format$0 =
@@ -20311,7 +21390,8 @@
        /*<<camlinternalFormat.ml:2805:7>>*/ if
        (32
         !==
-          /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get(str, str_ind$0))
+          /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:2805:7>>*/ (str, str_ind$0))
         /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0;
       var str_ind$1 = str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
@@ -20326,14 +21406,17 @@
       var
        c =
           /*<<camlinternalFormat.ml:2811:10>>*/  /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
-          (str, str_ind$0);
+           /*<<camlinternalFormat.ml:2811:10>>*/ (str, str_ind$0);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0];
       var new_acc = (acc$0 * 10 | 0) + (c - 48 | 0) | 0;
       if(Stdlib_Sys[12] < new_acc){
        var _ag_ =  /*<<camlinternalFormat.ml:2815:8>>*/ Stdlib_Sys[12];
         /*<<camlinternalFormat.ml:2815:8>>*/ return  /*<<camlinternalFormat.ml:2815:8>>*/ caml_call3
-               (failwith_message(_S_), str, new_acc, _ag_);
+                /*<<camlinternalFormat.ml:2815:8>>*/ (failwith_message(_S_),
+                str,
+                new_acc,
+                _ag_);
       }
       var str_ind$1 = str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
@@ -20347,7 +21430,7 @@
      var
       match =
          /*<<camlinternalFormat.ml:2826:10>>*/  /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get
-         (str, str_ind);
+          /*<<camlinternalFormat.ml:2826:10>>*/ (str, str_ind);
      if(48 <= match){
       if(58 > match)
         /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
@@ -20360,7 +21443,7 @@
       var
        c =
           /*<<camlinternalFormat.ml:2830:12>>*/  /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
-          (str, str_ind + 1 | 0);
+           /*<<camlinternalFormat.ml:2830:12>>*/ (str, str_ind + 1 | 0);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
                (str_ind + 1 | 0, cst_digit, c);
@@ -20373,7 +21456,8 @@
        /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0];
      }
       /*<<camlinternalFormat.ml:2837:11>>*/ throw  /*<<camlinternalFormat.ml:2837:11>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _T_], 1);
+             /*<<camlinternalFormat.ml:2837:11>>*/ ([0, Assert_failure, _T_],
+             1);
      /*<<camlinternalFormat.ml:2837:23>>*/ }
     function add_literal(lit_start, str_ind, fmt){
      var size = str_ind - lit_start | 0;
@@ -20384,12 +21468,15 @@
                ? [0,
                  [12,
                    /*<<camlinternalFormat.ml:2845:37>>*/ caml_string_get
-                   (str, lit_start),
+                    /*<<camlinternalFormat.ml:2845:37>>*/ (str, lit_start),
                   fmt]]
                : [0,
                  [11,
                    /*<<camlinternalFormat.ml:2846:39>>*/ caml_call3
-                   (Stdlib_String[16], str, lit_start, size),
+                    /*<<camlinternalFormat.ml:2846:39>>*/ (Stdlib_String[16],
+                    str,
+                    lit_start,
+                    size),
                   fmt]];
      /*<<camlinternalFormat.ml:2846:75>>*/ }
     function search_subformat_end(str_ind, end_ind, c){
@@ -20397,24 +21484,27 @@
       /*<<camlinternalFormat.ml:2851:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/  /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
-        (failwith_message(_U_), str, c, end_ind);
+         /*<<camlinternalFormat.ml:2852:6>>*/ (failwith_message(_U_),
+         str,
+         c,
+         end_ind);
       if
        (37
         ===
           /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
-          (str, str_ind$0)){
+           /*<<camlinternalFormat.ml:2855:10>>*/ (str, str_ind$0)){
        if((str_ind$0 + 1 | 0) === end_ind)
          /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
          (end_ind, cst_unexpected_end_of_format);
        if
         ( /*<<camlinternalFormat.ml:2858:9>>*/ caml_string_get
-          (str, str_ind$0 + 1 | 0)
+           /*<<camlinternalFormat.ml:2858:9>>*/ (str, str_ind$0 + 1 | 0)
          === c)
          /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0;
        var
         match =
            /*<<camlinternalFormat.ml:2859:20>>*/  /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
-           (str, str_ind$0 + 1 | 0);
+            /*<<camlinternalFormat.ml:2859:20>>*/ (str, str_ind$0 + 1 | 0);
        if(95 <= match){
         if(123 <= match){
          if(126 > match)
@@ -20441,7 +21531,7 @@
          var
           match$0 =
              /*<<camlinternalFormat.ml:2863:22>>*/  /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
-             (str, str_ind$0 + 2 | 0);
+              /*<<camlinternalFormat.ml:2863:22>>*/ (str, str_ind$0 + 2 | 0);
          if(40 === match$0){
           var
            sub_end$0 =
@@ -20585,7 +21675,10 @@
       else{
        if(! space$0)
          /*<<camlinternalFormat.ml:2935:28>>*/ throw  /*<<camlinternalFormat.ml:2935:28>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _W_], 1);
+                /*<<camlinternalFormat.ml:2935:28>>*/ ([0,
+                 Assert_failure,
+                 _W_],
+                1);
        if(! legacy_behavior$0)
          /*<<camlinternalFormat.ml:2930:11>>*/ return incompatible_flag
                 (pct_ind, str_ind, symb, cst$34);
@@ -20597,9 +21690,17 @@
      var
       subfmt =
          /*<<camlinternalFormat.ml:2963:19>>*/  /*<<camlinternalFormat.ml:2963:19>>*/ caml_call3
-         (Stdlib_String[16], str, pct_ind, str_ind - pct_ind | 0);
+          /*<<camlinternalFormat.ml:2963:19>>*/ (Stdlib_String[16],
+          str,
+          pct_ind,
+          str_ind - pct_ind | 0);
       /*<<camlinternalFormat.ml:2964:6>>*/ return  /*<<camlinternalFormat.ml:2964:6>>*/ caml_call5
-             (failwith_message(_Y_), str, pct_ind, option, symb, subfmt);
+              /*<<camlinternalFormat.ml:2964:6>>*/ (failwith_message(_Y_),
+              str,
+              pct_ind,
+              option,
+              symb,
+              subfmt);
      /*<<camlinternalFormat.ml:2967:38>>*/ }
     return parse(0, caml_ml_string_length(str));
    }
@@ -20618,7 +21719,9 @@
      if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
      var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
       /*<<camlinternalFormat.ml:2982:10>>*/ return  /*<<camlinternalFormat.ml:2982:10>>*/ caml_call2
-             (failwith_message(_Z_), str, _ad_);
+              /*<<camlinternalFormat.ml:2982:10>>*/ (failwith_message(_Z_),
+              str,
+              _ad_);
     }
     /*<<camlinternalFormat.ml:2982:33>>*/ }
    function format_of_string_format(str, param){
@@ -20638,7 +21741,9 @@
      var _$_ = caml_wrap_exception(_ab_);
      if(_$_ === Type_mismatch)
        /*<<camlinternalFormat.ml:2990:4>>*/ return  /*<<camlinternalFormat.ml:2990:4>>*/ caml_call2
-              (failwith_message(___), str, str$0);
+               /*<<camlinternalFormat.ml:2990:4>>*/ (failwith_message(___),
+               str,
+               str$0);
      throw caml_maybe_attach_backtrace(_$_, 0);
     }
    }
@@ -20702,10 +21807,10 @@
    function kfprintf(k, o, param){
     var fmt = param[1];
      /*<<printf.ml:20:2>>*/ return  /*<<printf.ml:20:2>>*/ caml_call3
-            (CamlinternalFormat[7],
+             /*<<printf.ml:20:2>>*/ (CamlinternalFormat[7],
              function(acc){
                /*<<printf.ml:20:26>>*/  /*<<printf.ml:20:26>>*/ caml_call2
-               (CamlinternalFormat[9], o, acc);
+                /*<<printf.ml:20:26>>*/ (CamlinternalFormat[9], o, acc);
               return caml_call1(k, o);
               /*<<printf.ml:20:47>>*/ },
              0,
@@ -20714,10 +21819,10 @@
    function kbprintf(k, b, param){
     var fmt = param[1];
      /*<<printf.ml:22:2>>*/ return  /*<<printf.ml:22:2>>*/ caml_call3
-            (CamlinternalFormat[7],
+             /*<<printf.ml:22:2>>*/ (CamlinternalFormat[7],
              function(acc){
                /*<<printf.ml:22:26>>*/  /*<<printf.ml:22:26>>*/ caml_call2
-               (CamlinternalFormat[10], b, acc);
+                /*<<printf.ml:22:26>>*/ (CamlinternalFormat[10], b, acc);
               return caml_call1(k, b);
               /*<<printf.ml:22:47>>*/ },
              0,
@@ -20726,7 +21831,7 @@
    function ikfprintf(k, oc, param){
     var fmt = param[1];
      /*<<printf.ml:24:2>>*/ return  /*<<printf.ml:24:2>>*/ caml_call3
-            (CamlinternalFormat[8], k, oc, fmt);
+             /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt);
    }
    function fprintf(oc, fmt){
      /*<<printf.ml:27:21>>*/ return kfprintf
@@ -20756,14 +21861,16 @@
      var
       buf =
          /*<<printf.ml:36:14>>*/  /*<<printf.ml:36:14>>*/ caml_call1
-         (Stdlib_Buffer[1], 64);
+          /*<<printf.ml:36:14>>*/ (Stdlib_Buffer[1], 64);
       /*<<printf.ml:37:4>>*/  /*<<printf.ml:37:4>>*/ caml_call2
-      (CamlinternalFormat[11], buf, acc);
+       /*<<printf.ml:37:4>>*/ (CamlinternalFormat[11], buf, acc);
       /*<<printf.ml:38:6>>*/ return  /*<<printf.ml:38:6>>*/ caml_call1
-             (k,  /*<<printf.ml:38:6>>*/ caml_call1(Stdlib_Buffer[2], buf));
+              /*<<printf.ml:38:6>>*/ (k,
+               /*<<printf.ml:38:6>>*/ caml_call1
+                /*<<printf.ml:38:6>>*/ (Stdlib_Buffer[2], buf));
      /*<<printf.ml:38:27>>*/ }
      /*<<printf.ml:39:2>>*/ return  /*<<printf.ml:39:2>>*/ caml_call3
-            (CamlinternalFormat[7], k$0, 0, fmt);
+             /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt);
    }
    function sprintf(fmt){
      /*<<printf.ml:41:18>>*/ return ksprintf
@@ -20958,15 +22065,23 @@
     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:128:4>>*/ (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:133:4>>*/ (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],
+             /*<<dynarray.ml:152:4>>*/ (Stdlib_Printf[10],
              Stdlib[1],
              _f_,
              invalid_state_description,
@@ -20979,22 +22094,36 @@
             : 0
               === length
               ?  /*<<dynarray.ml:119:6>>*/ caml_call4
-                (Stdlib_Printf[10], Stdlib[1], _a_, f, i)
+                 /*<<dynarray.ml:119:6>>*/ (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:123:6>>*/ (Stdlib_Printf[10],
+                 Stdlib[1],
+                 _b_,
+                 f,
+                 i,
+                 length - 1 | 0);
     /*<<dynarray.ml:175:38>>*/ }
    function check_same_length(f, a, expected){
     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)
+               /*<<dynarray.ml:164:4>>*/ (Stdlib_Printf[10],
+               Stdlib[1],
+               _h_,
+               f,
+               expected,
+               length_a)
             : _W_;
     /*<<dynarray.ml:190:41>>*/ }
    function check_valid_length(length, arr){
     var capacity = arr.length - 1, _V_ = capacity < length ? 1 : 0;
     return _V_
             ?  /*<<dynarray.ml:158:4>>*/ caml_call5
-              (Stdlib_Printf[10],
+               /*<<dynarray.ml:158:4>>*/ (Stdlib_Printf[10],
                Stdlib[1],
                _g_,
                invalid_state_description,
@@ -21017,7 +22146,7 @@
      /*<<dynarray.ml:220:2>>*/ return [0,
             n,
              /*<<dynarray.ml:222:10>>*/ caml_call2
-             (Stdlib_Array[1],
+              /*<<dynarray.ml:222:10>>*/ (Stdlib_Array[1],
               n,
               function(param){
                 /*<<dynarray.ml:222:33>>*/ return [0, x];
@@ -21029,11 +22158,12 @@
      /*<<dynarray.ml:227:2>>*/ return [0,
             n,
              /*<<dynarray.ml:229:10>>*/ caml_call2
-             (Stdlib_Array[1],
+              /*<<dynarray.ml:229:10>>*/ (Stdlib_Array[1],
               n,
               function(i){
                 /*<<dynarray.ml:229:33>>*/ return [0,
-                        /*<<dynarray.ml:229:43>>*/ caml_call1(f, i)];
+                        /*<<dynarray.ml:229:43>>*/ caml_call1
+                         /*<<dynarray.ml:229:43>>*/ (f, i)];
                /*<<dynarray.ml:229:47>>*/ })];
     /*<<dynarray.ml:230:3>>*/ }
    function get(a, i){
@@ -21058,7 +22188,7 @@
      /*<<dynarray.ml:259:2>>*/ return [0,
             length,
              /*<<dynarray.ml:261:10>>*/ caml_call2
-             (Stdlib_Array[1],
+              /*<<dynarray.ml:261:10>>*/ (Stdlib_Array[1],
               length,
               function(i){
                var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
@@ -21070,7 +22200,7 @@
      /*<<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:178:4>>*/ (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){
@@ -21083,7 +22213,7 @@
      /*<<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:290:21>>*/ (Stdlib[8], 1);
     var
      last =  /*<<dynarray.ml:291:2>>*/ length - 1 | 0,
      match = arr[1 + last];
@@ -21122,7 +22252,11 @@
                [1]
               = n,
                /*<<dynarray.ml:319:4>>*/ caml_call4
-               (Stdlib_Array[8], arr, n, length - n | 0, 0));
+                /*<<dynarray.ml:319:4>>*/ (Stdlib_Array[8],
+                arr,
+                n,
+                length - n | 0,
+                0));
     /*<<dynarray.ml:320:5>>*/ }
    function clear(a){
      /*<<dynarray.ml:322:14>>*/ return truncate(a, 0);
@@ -21138,7 +22272,7 @@
     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],
+       /*<<dynarray.ml:138:4>>*/ (Stdlib_Printf[10],
        Stdlib[1],
        _e_,
        f$0,
@@ -21152,25 +22286,25 @@
      _O_ = Stdlib_Sys[13],
      _P_ =
         /*<<dynarray.ml:345:6>>*/  /*<<dynarray.ml:345:6>>*/ caml_call2
-        (Stdlib[17], 8, n),
+         /*<<dynarray.ml:345:6>>*/ (Stdlib[17], 8, n),
      _Q_ =
         /*<<dynarray.ml:345:2>>*/  /*<<dynarray.ml:345:2>>*/ caml_call2
-        (Stdlib[16], _P_, _O_),
+         /*<<dynarray.ml:345:2>>*/ (Stdlib[16], _P_, _O_),
      new_capacity =
         /*<<dynarray.ml:375:6>>*/  /*<<dynarray.ml:375:6>>*/ caml_call2
-        (Stdlib[17], _Q_, capacity_request),
+         /*<<dynarray.ml:375:6>>*/ (Stdlib[17], _Q_, capacity_request),
      new_arr =
         /*<<dynarray.ml:376:18>>*/  /*<<dynarray.ml:376:18>>*/ caml_make_vect
-        (new_capacity, 0);
+         /*<<dynarray.ml:376:18>>*/ (new_capacity, 0);
      /*<<dynarray.ml:377:4>>*/  /*<<dynarray.ml:377:4>>*/ caml_call5
-     (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
+      /*<<dynarray.ml:377:4>>*/ (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);
+             /*<<dynarray.ml:380:4>>*/ ([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:381:4>>*/ ([0, Assert_failure, _j_], 1);
     /*<<dynarray.ml:382:5>>*/ }
    function ensure_extra_capacity(a, extra_capacity_request){
      /*<<dynarray.ml:385:2>>*/ return ensure_capacity
@@ -21184,7 +22318,7 @@
                [2]
               =
                 /*<<dynarray.ml:390:16>>*/ caml_call3
-                (Stdlib_Array[6], a[2], 0, a[1]),
+                 /*<<dynarray.ml:390:16>>*/ (Stdlib_Array[6], a[2], 0, a[1]),
               0);
     /*<<dynarray.ml:390:42>>*/ }
    function set_capacity(a, n){
@@ -21193,8 +22327,12 @@
       (cst_set_capacity, n);
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:396:2>>*/ 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);
+     a[1] =
+       /*<<dynarray.ml:398:16>>*/ caml_call2
+        /*<<dynarray.ml:398:16>>*/ (Stdlib[16], a[1], n);
+     a[2] =
+       /*<<dynarray.ml:399:13>>*/ caml_call3
+        /*<<dynarray.ml:399:13>>*/ (Stdlib_Array[6], arr, 0, n);
      return 0;
     }
     var _L_ = cur_capacity < n ? 1 : 0;
@@ -21202,9 +22340,9 @@
      var
       new_arr =
          /*<<dynarray.ml:402:18>>*/  /*<<dynarray.ml:402:18>>*/ caml_make_vect
-         (n, 0);
+          /*<<dynarray.ml:402:18>>*/ (n, 0);
       /*<<dynarray.ml:403:4>>*/  /*<<dynarray.ml:403:4>>*/ caml_call5
-      (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
+       /*<<dynarray.ml:403:4>>*/ (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
      a[2] = new_arr;
      var _M_ = 0;
     }
@@ -21244,7 +22382,7 @@
     /*<<dynarray.ml:452:45>>*/ }
    function append_iter(a, iter, b){
      /*<<dynarray.ml:455:2>>*/ return  /*<<dynarray.ml:455:2>>*/ caml_call2
-            (iter,
+             /*<<dynarray.ml:455:2>>*/ (iter,
              function(x){
                /*<<dynarray.ml:455:17>>*/ return add_last(a, x);
               /*<<dynarray.ml:455:29>>*/ },
@@ -21252,7 +22390,7 @@
     /*<<dynarray.ml:455:32>>*/ }
    function append_seq(a, seq){
      /*<<dynarray.ml:458:2>>*/ return  /*<<dynarray.ml:458:2>>*/ caml_call2
-            (Stdlib_Seq[4],
+             /*<<dynarray.ml:458:2>>*/ (Stdlib_Seq[4],
              function(x){
                /*<<dynarray.ml:458:21>>*/ return add_last(a, x);
               /*<<dynarray.ml:458:33>>*/ },
@@ -21330,7 +22468,7 @@
      var i = _z_;
      for(;;){
        /*<<dynarray.ml:598:4>>*/  /*<<dynarray.ml:598:4>>*/ caml_call1
-       (k, unsafe_get(arr, i, length));
+        /*<<dynarray.ml:598:4>>*/ (k, unsafe_get(arr, i, length));
       var _B_ =  /*<<dynarray.ml:598:4>>*/ i + 1 | 0;
       if(_A_ === i) break;
       i = _B_;
@@ -21349,7 +22487,7 @@
      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>>*/ (k, i, unsafe_get(arr, i, length));
       var _y_ =  /*<<dynarray.ml:609:4>>*/ i + 1 | 0;
       if(_x_ === i) break;
       i = _y_;
@@ -21365,12 +22503,12 @@
         /*<<dynarray.ml:616:12>>*/ [0,
         length,
          /*<<dynarray.ml:618:10>>*/ caml_call2
-         (Stdlib_Array[1],
+          /*<<dynarray.ml:618:10>>*/ (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:16>>*/ (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;
@@ -21383,12 +22521,14 @@
         /*<<dynarray.ml:628:12>>*/ [0,
         length,
          /*<<dynarray.ml:630:10>>*/ caml_call2
-         (Stdlib_Array[1],
+          /*<<dynarray.ml:630:10>>*/ (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:16>>*/ (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;
@@ -21404,7 +22544,9 @@
      var i = _t_;
      for(;;){
       var v =  /*<<dynarray.ml:641:12>>*/ unsafe_get(arr, i, length);
-      r[1] =  /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
+      r[1] =
+        /*<<dynarray.ml:642:9>>*/ caml_call2
+         /*<<dynarray.ml:642:9>>*/ (f, r[1], v);
       var _v_ =  /*<<dynarray.ml:640:2>>*/ i + 1 | 0;
       if(_u_ === i) break;
       i = _v_;
@@ -21423,7 +22565,9 @@
      var i = _r_;
      for(;;){
       var v =  /*<<dynarray.ml:652:12>>*/ unsafe_get(arr, i, length);
-      r[1] =  /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
+      r[1] =
+        /*<<dynarray.ml:653:9>>*/ caml_call2
+         /*<<dynarray.ml:653:9>>*/ (f, v, r[1]);
       var _s_ =  /*<<dynarray.ml:650:10>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _s_;
@@ -21443,7 +22587,7 @@
       var
        _q_ =
           /*<<dynarray.ml:664:6>>*/  /*<<dynarray.ml:664:6>>*/ caml_call1
-          (p, unsafe_get(arr, i, length));
+           /*<<dynarray.ml:664:6>>*/ (p, unsafe_get(arr, i, length));
        /*<<dynarray.ml:664:6>>*/ if(! _q_){
        var i$0 = i + 1 | 0;
        i = i$0;
@@ -21466,7 +22610,7 @@
       var
        _p_ =
           /*<<dynarray.ml:677:6>>*/  /*<<dynarray.ml:677:6>>*/ caml_call1
-          (p, unsafe_get(arr, i, length));
+           /*<<dynarray.ml:677:6>>*/ (p, unsafe_get(arr, i, length));
        /*<<dynarray.ml:677:6>>*/ if(_p_){
        var i$0 = i + 1 | 0;
        i = i$0;
@@ -21486,7 +22630,7 @@
        var
         _o_ =
            /*<<dynarray.ml:686:30>>*/  /*<<dynarray.ml:686:30>>*/ caml_call1
-           (f, x);
+            /*<<dynarray.ml:686:30>>*/ (f, x);
         /*<<dynarray.ml:686:30>>*/ return _o_ ? add_last(b, x) : _o_;
        /*<<dynarray.ml:686:51>>*/ },
       a);
@@ -21500,7 +22644,7 @@
        var
         match =
            /*<<dynarray.ml:692:10>>*/  /*<<dynarray.ml:692:10>>*/ caml_call1
-           (f, x);
+            /*<<dynarray.ml:692:10>>*/ (f, x);
        if(! match)  /*<<dynarray.ml:693:14>>*/ return 0;
        var y = match[1];
         /*<<dynarray.ml:694:16>>*/ return add_last(b, y);
@@ -21513,7 +22657,7 @@
      /*<<dynarray.ml:708:2>>*/ return [0,
             length,
              /*<<dynarray.ml:710:10>>*/ caml_call2
-             (Stdlib_Array[1],
+              /*<<dynarray.ml:710:10>>*/ (Stdlib_Array[1],
               length,
               function(i){
                 /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]];
@@ -21525,7 +22669,7 @@
     var
      res =
         /*<<dynarray.ml:716:12>>*/  /*<<dynarray.ml:716:12>>*/ caml_call2
-        (Stdlib_Array[1],
+         /*<<dynarray.ml:716:12>>*/ (Stdlib_Array[1],
          length,
          function(i){
            /*<<dynarray.ml:717:4>>*/ return unsafe_get(arr, i, length);
@@ -21536,7 +22680,7 @@
    function of_list(li){
     var a =  /*<<dynarray.ml:723:10>>*/ create(0);
      /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
-     (Stdlib_List[18],
+      /*<<dynarray.ml:724:2>>*/ (Stdlib_List[18],
       function(x){
         /*<<dynarray.ml:724:22>>*/ return add_last(a, x);
        /*<<dynarray.ml:724:34>>*/ },
@@ -21764,9 +22908,10 @@
      /*<<arg.ml:64:2>>*/ for(;;){
      if(! l$0)
        /*<<arg.ml:65:10>>*/ throw  /*<<arg.ml:65:10>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<arg.ml:65:10>>*/ (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:26>>*/ if
+      ( /*<<arg.ml:66:26>>*/ caml_equal /*<<arg.ml:66:26>>*/ (y1, x))
        /*<<arg.ml:66:36>>*/ return y2;
      var t = l$0[2];
      l$0 = t;
@@ -21779,26 +22924,26 @@
      h = l[1],
      _az_ =
         /*<<arg.ml:79:53>>*/  /*<<arg.ml:79:53>>*/ caml_call2
-        (Stdlib[28], prefix, h),
+         /*<<arg.ml:79:53>>*/ (Stdlib[28], prefix, h),
      _aA_ =
         /*<<arg.ml:79:12>>*/  /*<<arg.ml:79:12>>*/ caml_call3
-        (Stdlib_List[26],
+         /*<<arg.ml:79:12>>*/ (Stdlib_List[26],
          function(x, y){
           var
            _aB_ =
               /*<<arg.ml:79:44>>*/  /*<<arg.ml:79:44>>*/ caml_call2
-              (Stdlib[28], sep, y);
+               /*<<arg.ml:79:44>>*/ (Stdlib[28], sep, y);
            /*<<arg.ml:79:44>>*/ return  /*<<arg.ml:79:44>>*/ caml_call2
-                  (Stdlib[28], x, _aB_);
+                   /*<<arg.ml:79:44>>*/ (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:12>>*/ (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:21>>*/ ([0, Stop, _c_], 1);
     /*<<arg.ml:91:51>>*/ }
    function add_help(speclist){
      /*<<arg.ml:94:2>>*/ try{
@@ -21830,32 +22975,42 @@
     var
      _au_ =
         /*<<arg.ml:103:13>>*/  /*<<arg.ml:103:13>>*/ caml_call2
-        (Stdlib[37], add1, add2);
+         /*<<arg.ml:103:13>>*/ (Stdlib[37], add1, add2);
      /*<<arg.ml:103:13>>*/ return  /*<<arg.ml:103:13>>*/ caml_call2
-            (Stdlib[37], speclist, _au_);
+             /*<<arg.ml:103:13>>*/ (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:107:2>>*/ (Stdlib_Printf[5], buf, _d_, errmsg);
     var _ap_ =  /*<<arg.ml:108:29>>*/ add_help(speclist);
      /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
-            (Stdlib_List[18],
+             /*<<arg.ml:108:29>>*/ (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;
+                 0
+                  <
+                    /*<<arg.ml:83:2>>*/ caml_ml_string_length
+                     /*<<arg.ml:83:2>>*/ (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:88:8>>*/ (Stdlib_Printf[5], buf, _a_, key, doc);
               var
                l = spec[1],
                _ar_ =  /*<<arg.ml:86:38>>*/ 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);
+                       /*<<arg.ml:86:8>>*/ (Stdlib_Printf[5],
+                       buf,
+                       _b_,
+                       key,
+                       _ar_,
+                       doc);
              },
              _ap_);
     /*<<arg.ml:108:48>>*/ }
@@ -21863,15 +23018,15 @@
     var
      b =
         /*<<arg.ml:112:10>>*/  /*<<arg.ml:112:10>>*/ caml_call1
-        (Stdlib_Buffer[1], 200);
+         /*<<arg.ml:112:10>>*/ (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:113:2>>*/ (Stdlib_Buffer[2], b);
     /*<<arg.ml:114:19>>*/ }
    function usage(speclist, errmsg){
     var _ao_ =  /*<<arg.ml:118:15>>*/ usage_string(speclist, errmsg);
      /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
-            (Stdlib_Printf[3], _e_, _ao_);
+             /*<<arg.ml:118:15>>*/ (Stdlib_Printf[3], _e_, _ao_);
     /*<<arg.ml:118:45>>*/ }
    var
     current =  /*<<arg.ml:121:14>>*/ [0, 0],
@@ -21919,7 +23074,8 @@
      var
       _am_ =
          /*<<arg.ml:128:6>>*/ [0,
-          /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
+          /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string
+           /*<<arg.ml:128:11>>*/ (x)];
       /*<<arg.ml:128:6>>*/ return _am_;
     }
     catch(_an_){
@@ -21933,7 +23089,8 @@
      var
       _aj_ =
          /*<<arg.ml:132:6>>*/ [0,
-          /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
+          /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string
+           /*<<arg.ml:132:11>>*/ (x)];
       /*<<arg.ml:132:6>>*/ return _aj_;
     }
     catch(_ak_){
@@ -21949,7 +23106,7 @@
      var
       b =
          /*<<arg.ml:143:12>>*/  /*<<arg.ml:143:12>>*/ caml_call1
-         (Stdlib_Buffer[1], 200),
+          /*<<arg.ml:143:12>>*/ (Stdlib_Buffer[1], 200),
       progname =
         initpos < argv[1].length - 1
          ? caml_check_bound(argv[1], initpos)[1 + initpos]
@@ -21959,34 +23116,44 @@
         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);
+           /*<<arg.ml:150:10>>*/ (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);
+          /*<<arg.ml:154:10>>*/ (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);
+          /*<<arg.ml:152:10>>*/ (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:157:10>>*/ (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
       /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
       /*<<arg.ml:160:7>>*/ if
       (!
-        /*<<arg.ml:160:7>>*/ caml_equal(error, _g_)
-       && !  /*<<arg.ml:160:34>>*/ caml_equal(error, _h_))
+        /*<<arg.ml:160:7>>*/ caml_equal /*<<arg.ml:160:7>>*/ (error, _g_)
+       &&
+        !
+         /*<<arg.ml:160:34>>*/ caml_equal /*<<arg.ml:160:34>>*/ (error, _h_))
        /*<<arg.ml:162:9>>*/ return [0,
               Bad,
-               /*<<arg.ml:162:13>>*/ caml_call1(Stdlib_Buffer[2], b)];
+               /*<<arg.ml:162:13>>*/ caml_call1
+                /*<<arg.ml:162:13>>*/ (Stdlib_Buffer[2], b)];
       /*<<arg.ml:161:9>>*/ return [0,
              Help,
-              /*<<arg.ml:161:14>>*/ caml_call1(Stdlib_Buffer[2], b)];
+              /*<<arg.ml:161:14>>*/ caml_call1
+               /*<<arg.ml:161:14>>*/ (Stdlib_Buffer[2], b)];
      /*<<arg.ml:162:32>>*/ }
      /*<<arg.ml:164:2>>*/ current[1]++;
     for(;;){
@@ -21996,7 +23163,8 @@
        _V_ = current[1],
        s =  /*<<arg.ml:167:14>>*/ caml_check_bound(argv[1], _V_)[1 + _V_];
        /*<<arg.ml:168:9>>*/ if
-       ( /*<<arg.ml:168:9>>*/ caml_call2(Stdlib_String[11], cst$3, s)){
+       ( /*<<arg.ml:168:9>>*/ caml_call2
+          /*<<arg.ml:168:9>>*/ (Stdlib_String[11], cst$3, s)){
        try{
         var
          follow$1 = 0,
@@ -22011,15 +23179,19 @@
          var
           i =
              /*<<arg.ml:71:10>>*/  /*<<arg.ml:71:10>>*/ caml_call2
-             (Stdlib_String[36], s, 61),
+              /*<<arg.ml:71:10>>*/ (Stdlib_String[36], s, 61),
           len =
-             /*<<arg.ml:72:2>>*/  /*<<arg.ml:72:2>>*/ caml_ml_string_length(s),
+             /*<<arg.ml:72:2>>*/  /*<<arg.ml:72:2>>*/ caml_ml_string_length
+              /*<<arg.ml:72:2>>*/ (s),
           arg =
              /*<<arg.ml:73:20>>*/  /*<<arg.ml:73:20>>*/ caml_call3
-             (Stdlib_String[16], s, i + 1 | 0, len - (i + 1 | 0) | 0),
+              /*<<arg.ml:73:20>>*/ (Stdlib_String[16],
+              s,
+              i + 1 | 0,
+              len - (i + 1 | 0) | 0),
           keyword =
              /*<<arg.ml:73:2>>*/  /*<<arg.ml:73:2>>*/ caml_call3
-             (Stdlib_String[16], s, 0, i),
+              /*<<arg.ml:73:2>>*/ (Stdlib_String[16], s, 0, i),
           follow =  /*<<arg.ml:174:38>>*/ [0, arg],
           _Y_ =  /*<<arg.ml:174:12>>*/ assoc3(keyword, speclist[1]),
           follow$0 = follow,
@@ -22029,7 +23201,7 @@
          var _X_ = caml_wrap_exception(_ah_);
          if(_X_ === Stdlib[8])
            /*<<arg.ml:175:28>>*/ throw  /*<<arg.ml:175:28>>*/ caml_maybe_attach_backtrace
-                 ([0, Stop, [0, s]], 1);
+                  /*<<arg.ml:175:28>>*/ ([0, Stop, [0, s]], 1);
          throw caml_maybe_attach_backtrace(_X_, 0);
         }
        }
@@ -22041,7 +23213,10 @@
              /*<<arg.ml:179:20>>*/ return;
            var arg = follow$2[1];
             /*<<arg.ml:180:24>>*/ throw  /*<<arg.ml:180:24>>*/ caml_maybe_attach_backtrace
-                  ([0, Stop, [1, s$0, arg, cst_no_argument]], 1);
+                   /*<<arg.ml:180:24>>*/ ([0,
+                    Stop,
+                    [1, s$0, arg, cst_no_argument]],
+                   1);
            /*<<arg.ml:180:68>>*/ },
         get_arg =
           function(param){
@@ -22051,7 +23226,7 @@
            }
            if((current[1] + 1 | 0) >= argv[1].length - 1)
              /*<<arg.ml:185:19>>*/ throw  /*<<arg.ml:185:19>>*/ caml_maybe_attach_backtrace
-                   ([0, Stop, [2, s$0]], 1);
+                    /*<<arg.ml:185:19>>*/ ([0, Stop, [2, s$0]], 1);
            var _af_ = current[1] + 1 | 0;
             /*<<arg.ml:184:58>>*/ return caml_check_bound(argv[1], _af_)
                    [1 + _af_];
@@ -22067,14 +23242,15 @@
               var f = param[1];
                /*<<arg.ml:194:20>>*/ no_arg$0(0);
                /*<<arg.ml:194:20>>*/ return  /*<<arg.ml:194:20>>*/ caml_call1
-                      (f, 0);
+                       /*<<arg.ml:194:20>>*/ (f, 0);
              case 1:
               var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
                /*<<arg.ml:124:2>>*/ try{
                var
                 _$_ =
                    /*<<arg.ml:124:6>>*/ [0,
-                    /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
+                    /*<<arg.ml:124:11>>*/ caml_call1
+                     /*<<arg.ml:124:11>>*/ (Stdlib[32], arg)],
                 match = _$_;
               }
               catch(_ae_){
@@ -22085,9 +23261,13 @@
               }
               if(! match)
                 /*<<arg.ml:198:22>>*/ throw  /*<<arg.ml:198:22>>*/ caml_maybe_attach_backtrace
-                      ([0, Stop, [1, s$0, arg, cst_a_boolean]], 1);
+                       /*<<arg.ml:198:22>>*/ ([0,
+                        Stop,
+                        [1, s$0, arg, cst_a_boolean]],
+                       1);
               var s = match[1];
-               /*<<arg.ml:199:24>>*/  /*<<arg.ml:199:24>>*/ caml_call1(f$0, s);
+               /*<<arg.ml:199:24>>*/  /*<<arg.ml:199:24>>*/ caml_call1
+                /*<<arg.ml:199:24>>*/ (f$0, s);
                /*<<arg.ml:201:12>>*/ return consume_arg$0(0);
              case 2:
               var r = param[1];
@@ -22102,7 +23282,7 @@
              case 4:
               var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
                /*<<arg.ml:206:12>>*/  /*<<arg.ml:206:12>>*/ caml_call1
-               (f$1, arg$0);
+                /*<<arg.ml:206:12>>*/ (f$1, arg$0);
                /*<<arg.ml:206:12>>*/ return consume_arg$0(0);
              case 5:
               var r$1 = param[1];
@@ -22115,9 +23295,13 @@
                match$0 =  /*<<arg.ml:222:24>>*/ int_of_string_opt(arg$1);
               if(! match$0)
                 /*<<arg.ml:223:22>>*/ throw  /*<<arg.ml:223:22>>*/ caml_maybe_attach_backtrace
-                      ([0, Stop, [1, s$0, arg$1, cst_an_integer]], 1);
+                       /*<<arg.ml:223:22>>*/ ([0,
+                        Stop,
+                        [1, s$0, arg$1, cst_an_integer]],
+                       1);
               var x = match$0[1];
-               /*<<arg.ml:224:24>>*/  /*<<arg.ml:224:24>>*/ caml_call1(f$2, x);
+               /*<<arg.ml:224:24>>*/  /*<<arg.ml:224:24>>*/ caml_call1
+                /*<<arg.ml:224:24>>*/ (f$2, x);
                /*<<arg.ml:226:12>>*/ return consume_arg$0(0);
              case 7:
               var
@@ -22126,7 +23310,10 @@
                match$1 =  /*<<arg.ml:229:24>>*/ int_of_string_opt(arg$2);
               if(! match$1)
                 /*<<arg.ml:230:22>>*/ throw  /*<<arg.ml:230:22>>*/ caml_maybe_attach_backtrace
-                      ([0, Stop, [1, s$0, arg$2, cst_an_integer$0]], 1);
+                       /*<<arg.ml:230:22>>*/ ([0,
+                        Stop,
+                        [1, s$0, arg$2, cst_an_integer$0]],
+                       1);
               var x$0 = match$1[1];
               r$2[1] = x$0;
                /*<<arg.ml:233:12>>*/ return consume_arg$0(0);
@@ -22137,10 +23324,13 @@
                match$2 =  /*<<arg.ml:236:24>>*/ float_of_string_opt(arg$3);
               if(! match$2)
                 /*<<arg.ml:237:22>>*/ throw  /*<<arg.ml:237:22>>*/ caml_maybe_attach_backtrace
-                      ([0, Stop, [1, s$0, arg$3, cst_a_float]], 1);
+                       /*<<arg.ml:237:22>>*/ ([0,
+                        Stop,
+                        [1, s$0, arg$3, cst_a_float]],
+                       1);
               var x$1 = match$2[1];
                /*<<arg.ml:238:24>>*/  /*<<arg.ml:238:24>>*/ caml_call1
-               (f$3, x$1);
+                /*<<arg.ml:238:24>>*/ (f$3, x$1);
                /*<<arg.ml:240:12>>*/ return consume_arg$0(0);
              case 9:
               var
@@ -22149,7 +23339,10 @@
                match$3 =  /*<<arg.ml:243:24>>*/ float_of_string_opt(arg$4);
               if(! match$3)
                 /*<<arg.ml:244:22>>*/ throw  /*<<arg.ml:244:22>>*/ caml_maybe_attach_backtrace
-                      ([0, Stop, [1, s$0, arg$4, cst_a_float$0]], 1);
+                       /*<<arg.ml:244:22>>*/ ([0,
+                        Stop,
+                        [1, s$0, arg$4, cst_a_float$0]],
+                       1);
               var x$2 = match$3[1];
               r$3[1] = x$2;
                /*<<arg.ml:247:12>>*/ return consume_arg$0(0);
@@ -22157,7 +23350,9 @@
               var specs = param[1];
                /*<<arg.ml:249:12>>*/ no_arg$0(0);
                /*<<arg.ml:249:12>>*/ return  /*<<arg.ml:249:12>>*/ caml_call2
-                      (Stdlib_List[18], treat_action$0, specs);
+                       /*<<arg.ml:249:12>>*/ (Stdlib_List[18],
+                       treat_action$0,
+                       specs);
              case 11:
               var
                f$4 = param[2],
@@ -22165,9 +23360,9 @@
                arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
                /*<<arg.ml:210:15>>*/ if
                ( /*<<arg.ml:210:15>>*/ caml_call2
-                 (Stdlib_List[37], arg$5, symb)){
+                  /*<<arg.ml:210:15>>*/ (Stdlib_List[37], arg$5, symb)){
                 /*<<arg.ml:211:14>>*/  /*<<arg.ml:211:14>>*/ caml_call1
-                (f$4, arg$5);
+                 /*<<arg.ml:211:14>>*/ (f$4, arg$5);
                 /*<<arg.ml:211:14>>*/ return consume_arg$0(0);
               }
               var
@@ -22175,13 +23370,13 @@
                   /*<<arg.ml:215:44>>*/ make_symlist
                   (cst$6, cst$5, cst$4, symb);
                /*<<arg.ml:213:21>>*/ throw  /*<<arg.ml:213:21>>*/ caml_maybe_attach_backtrace
-                     ([0,
+                      /*<<arg.ml:213:21>>*/ ([0,
                        Stop,
                        [1,
                         s$0,
                         arg$5,
                          /*<<arg.ml:214:42>>*/ caml_call2
-                         (Stdlib[28], cst_one_of, _aa_)]],
+                          /*<<arg.ml:214:42>>*/ (Stdlib[28], cst_one_of, _aa_)]],
                       1);
              case 12:
               var f$5 = param[1];
@@ -22190,7 +23385,8 @@
                if(current[1] >= (argv[1].length - 2 | 0)) return 0;
                var _ab_ = current[1] + 1 | 0;
                 /*<<arg.ml:254:14>>*/  /*<<arg.ml:254:14>>*/ caml_call1
-                (f$5, caml_check_bound(argv[1], _ab_)[1 + _ab_]);
+                 /*<<arg.ml:254:14>>*/ (f$5,
+                 caml_check_bound(argv[1], _ab_)[1 + _ab_]);
                 /*<<arg.ml:255:14>>*/ consume_arg$0(0);
               }
               break;
@@ -22201,8 +23397,9 @@
                /*<<arg.ml:262:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
                  /*<<arg.ml:264:14>>*/ return  /*<<arg.ml:264:14>>*/ caml_call1
-                        (f$6,
-                          /*<<arg.ml:264:14>>*/ caml_call1(Stdlib_List[10], acc[1]));
+                         /*<<arg.ml:264:14>>*/ (f$6,
+                          /*<<arg.ml:264:14>>*/ caml_call1
+                           /*<<arg.ml:264:14>>*/ (Stdlib_List[10], acc[1]));
                var _ad_ = current[1] + 1 | 0, _ac_ = acc[1];
                acc[1] = [0, caml_check_bound(argv[1], _ad_)[1 + _ad_], _ac_];
                 /*<<arg.ml:262:14>>*/ consume_arg$0(0);
@@ -22212,26 +23409,33 @@
               var f$7 = param[1];
               if(1 - allow_expand)
                 /*<<arg.ml:267:14>>*/ throw  /*<<arg.ml:267:14>>*/ caml_maybe_attach_backtrace
-                      ([0, Stdlib[6], cst_Arg_Expand_is_is_only_allo], 1);
+                       /*<<arg.ml:267:14>>*/ ([0,
+                        Stdlib[6],
+                        cst_Arg_Expand_is_is_only_allo],
+                       1);
               var
                arg$6 =  /*<<arg.ml:269:22>>*/ get_arg$0(0),
                newarg =
                   /*<<arg.ml:270:25>>*/  /*<<arg.ml:270:25>>*/ caml_call1
-                  (f$7, arg$6);
+                   /*<<arg.ml:270:25>>*/ (f$7, arg$6);
                /*<<arg.ml:271:12>>*/ consume_arg$0(0);
               var
                before =
                   /*<<arg.ml:272:25>>*/  /*<<arg.ml:272:25>>*/ caml_call3
-                  (Stdlib_Array[6], argv[1], 0, current[1] + 1 | 0),
+                   /*<<arg.ml:272:25>>*/ (Stdlib_Array[6],
+                   argv[1],
+                   0,
+                   current[1] + 1 | 0),
                after =
                   /*<<arg.ml:274:14>>*/  /*<<arg.ml:274:14>>*/ caml_call3
-                  (Stdlib_Array[6],
+                   /*<<arg.ml:274:14>>*/ (Stdlib_Array[6],
                    argv[1],
                    current[1] + 1 | 0,
                    (argv[1].length - 1 - current[1] | 0) - 1 | 0);
               argv[1] =
                 /*<<arg.ml:276:19>>*/ caml_call1
-                (Stdlib_Array[5], [0, before, [0, newarg, [0, after, 0]]]);
+                 /*<<arg.ml:276:19>>*/ (Stdlib_Array[5],
+                 [0, before, [0, newarg, [0, after, 0]]]);
               return 0;
            }
            /*<<arg.ml:276:54>>*/ };
@@ -22243,19 +23447,20 @@
         /*<<arg.ml:278:8>>*/ treat_action(action);
       }
       else
-        /*<<arg.ml:279:11>>*/  /*<<arg.ml:279:11>>*/ caml_call1(anonfun, s);
+        /*<<arg.ml:279:11>>*/  /*<<arg.ml:279:11>>*/ caml_call1
+         /*<<arg.ml:279:11>>*/ (anonfun, s);
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
       if(exn[1] === Bad){
        var m = exn[2];
         /*<<arg.ml:280:26>>*/ throw  /*<<arg.ml:280:26>>*/ caml_maybe_attach_backtrace
-              (convert_error([3, m]), 1);
+               /*<<arg.ml:280:26>>*/ (convert_error([3, m]), 1);
       }
       if(exn[1] !== Stop) throw caml_maybe_attach_backtrace(exn, 0);
       var e = exn[2];
        /*<<arg.ml:281:27>>*/ throw  /*<<arg.ml:281:27>>*/ caml_maybe_attach_backtrace
-             (convert_error(e), 1);
+              /*<<arg.ml:281:27>>*/ (convert_error(e), 1);
      }
      current[1]++;
     }
@@ -22286,16 +23491,16 @@
      if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:302:15>>*/  /*<<arg.ml:302:15>>*/ caml_call2
-       (Stdlib_Printf[3], _l_, msg$0);
+        /*<<arg.ml:302:15>>*/ (Stdlib_Printf[3], _l_, msg$0);
        /*<<arg.ml:302:15>>*/ return  /*<<arg.ml:302:15>>*/ caml_call1
-              (Stdlib[99], 2);
+               /*<<arg.ml:302:15>>*/ (Stdlib[99], 2);
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:303:16>>*/  /*<<arg.ml:303:16>>*/ caml_call2
-      (Stdlib_Printf[2], _m_, msg$1);
+       /*<<arg.ml:303:16>>*/ (Stdlib_Printf[2], _m_, msg$1);
       /*<<arg.ml:303:16>>*/ return  /*<<arg.ml:303:16>>*/ caml_call1
-             (Stdlib[99], 0);
+              /*<<arg.ml:303:16>>*/ (Stdlib[99], 0);
     }
     /*<<arg.ml:303:39>>*/ }
    function parse_dynamic(l, f, msg){
@@ -22311,16 +23516,16 @@
      if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:310:15>>*/  /*<<arg.ml:310:15>>*/ caml_call2
-       (Stdlib_Printf[3], _n_, msg$0);
+        /*<<arg.ml:310:15>>*/ (Stdlib_Printf[3], _n_, msg$0);
        /*<<arg.ml:310:15>>*/ return  /*<<arg.ml:310:15>>*/ caml_call1
-              (Stdlib[99], 2);
+               /*<<arg.ml:310:15>>*/ (Stdlib[99], 2);
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:311:16>>*/  /*<<arg.ml:311:16>>*/ caml_call2
-      (Stdlib_Printf[2], _o_, msg$1);
+       /*<<arg.ml:311:16>>*/ (Stdlib_Printf[2], _o_, msg$1);
       /*<<arg.ml:311:16>>*/ return  /*<<arg.ml:311:16>>*/ caml_call1
-             (Stdlib[99], 0);
+              /*<<arg.ml:311:16>>*/ (Stdlib[99], 0);
     }
     /*<<arg.ml:311:39>>*/ }
    function parse_expand(l, f, msg){
@@ -22339,16 +23544,16 @@
      if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:320:15>>*/  /*<<arg.ml:320:15>>*/ caml_call2
-       (Stdlib_Printf[3], _p_, msg$0);
+        /*<<arg.ml:320:15>>*/ (Stdlib_Printf[3], _p_, msg$0);
        /*<<arg.ml:320:15>>*/ return  /*<<arg.ml:320:15>>*/ caml_call1
-              (Stdlib[99], 2);
+               /*<<arg.ml:320:15>>*/ (Stdlib[99], 2);
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:321:16>>*/  /*<<arg.ml:321:16>>*/ caml_call2
-      (Stdlib_Printf[2], _q_, msg$1);
+       /*<<arg.ml:321:16>>*/ (Stdlib_Printf[2], _q_, msg$1);
       /*<<arg.ml:321:16>>*/ return  /*<<arg.ml:321:16>>*/ caml_call1
-             (Stdlib[99], 0);
+              /*<<arg.ml:321:16>>*/ (Stdlib[99], 0);
     }
     /*<<arg.ml:321:39>>*/ }
    function second_word(s){
@@ -22358,7 +23563,9 @@
       /*<<arg.ml:327:4>>*/ for(;;){
       if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len;
        /*<<arg.ml:328:12>>*/ if
-       (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
+       (32
+        !==
+          /*<<arg.ml:328:12>>*/ caml_string_get /*<<arg.ml:328:12>>*/ (s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
       var n$1 =  /*<<arg.ml:328:29>>*/ n$0 + 1 | 0;
       n$0 = n$1;
@@ -22368,7 +23575,7 @@
      var
       n$0 =
          /*<<arg.ml:331:8>>*/  /*<<arg.ml:331:8>>*/ caml_call2
-         (Stdlib_String[36], s, 9);
+          /*<<arg.ml:331:8>>*/ (Stdlib_String[36], s, 9);
     }
     catch(_Q_){
      var _O_ = caml_wrap_exception(_Q_);
@@ -22377,7 +23584,7 @@
       var
        n =
           /*<<arg.ml:334:18>>*/  /*<<arg.ml:334:18>>*/ caml_call2
-          (Stdlib_String[36], s, 32);
+           /*<<arg.ml:334:18>>*/ (Stdlib_String[36], s, 32);
      }
      catch(_R_){
       var _P_ = caml_wrap_exception(_R_);
@@ -22398,7 +23605,7 @@
    function replace_leading_tab(s){
     var seen =  /*<<arg.ml:347:13>>*/ [0, 0];
      /*<<arg.ml:348:2>>*/ return  /*<<arg.ml:348:2>>*/ caml_call2
-            (Stdlib_String[18],
+             /*<<arg.ml:348:2>>*/ (Stdlib_String[18],
              function(c){
                /*<<arg.ml:348:13>>*/ if(9 === c && ! seen[1]){
                seen[1] = 1;
@@ -22414,12 +23621,12 @@
      completed =  /*<<arg.ml:374:18>>*/ add_help(speclist),
      len =
         /*<<arg.ml:375:12>>*/  /*<<arg.ml:375:12>>*/ caml_call3
-        (Stdlib_List[26], max_arg_len, 0, completed),
+         /*<<arg.ml:375:12>>*/ (Stdlib_List[26], max_arg_len, 0, completed),
      len$0 =
         /*<<arg.ml:376:12>>*/  /*<<arg.ml:376:12>>*/ caml_call2
-        (Stdlib_Int[10], len, limit);
+         /*<<arg.ml:376:12>>*/ (Stdlib_Int[10], len, limit);
      /*<<arg.ml:377:2>>*/ return  /*<<arg.ml:377:2>>*/ caml_call2
-            (Stdlib_List[20],
+             /*<<arg.ml:377:2>>*/ (Stdlib_List[20],
              function(ksd){
               var kwd = ksd[1], spec = ksd[2];
               if(ksd[3] === cst$8)  /*<<arg.ml:355:6>>*/ return ksd;
@@ -22429,20 +23636,23 @@
                 cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
                 _K_ =
                    /*<<arg.ml:358:32>>*/  /*<<arg.ml:358:32>>*/ caml_call2
-                   (Stdlib_Int[11], 0, len$0 - cutcol$0 | 0)
+                    /*<<arg.ml:358:32>>*/ (Stdlib_Int[11],
+                    0,
+                    len$0 - cutcol$0 | 0)
                   + 3
                   | 0,
                 spaces$0 =
                    /*<<arg.ml:358:19>>*/  /*<<arg.ml:358:19>>*/ caml_call2
-                   (Stdlib_String[1], _K_, 32),
+                    /*<<arg.ml:358:19>>*/ (Stdlib_String[1], _K_, 32),
                 _L_ =  /*<<arg.ml:359:34>>*/ replace_leading_tab(msg$0),
                 _M_ =
                    /*<<arg.ml:359:25>>*/  /*<<arg.ml:359:25>>*/ caml_call2
-                   (Stdlib[28], spaces$0, _L_);
+                    /*<<arg.ml:359:25>>*/ (Stdlib[28], spaces$0, _L_);
                 /*<<arg.ml:359:6>>*/ return [0,
                        kwd,
                        spec,
-                        /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)];
+                        /*<<arg.ml:359:18>>*/ caml_call2
+                         /*<<arg.ml:359:18>>*/ (Stdlib[28], cst$7, _M_)];
               }
               var
                msg = ksd[3],
@@ -22450,7 +23660,7 @@
                cutcol =  /*<<arg.ml:361:19>>*/ second_word(msg),
                kwd_len =
                   /*<<arg.ml:362:6>>*/  /*<<arg.ml:362:6>>*/ caml_ml_string_length
-                  (kwd),
+                   /*<<arg.ml:362:6>>*/ (kwd),
                diff = (len$0 - kwd_len | 0) - cutcol | 0;
                /*<<arg.ml:364:6>>*/ if(0 >= diff)
                 /*<<arg.ml:365:8>>*/ return [0,
@@ -22460,24 +23670,25 @@
               var
                spaces =
                   /*<<arg.ml:367:21>>*/  /*<<arg.ml:367:21>>*/ caml_call2
-                  (Stdlib_String[1], diff, 32),
+                   /*<<arg.ml:367:21>>*/ (Stdlib_String[1], diff, 32),
                _I_ =  /*<<arg.ml:368:32>>*/ replace_leading_tab(msg),
                prefix =
                   /*<<arg.ml:368:21>>*/  /*<<arg.ml:368:21>>*/ caml_call3
-                  (Stdlib_String[16], _I_, 0, cutcol),
+                   /*<<arg.ml:368:21>>*/ (Stdlib_String[16], _I_, 0, cutcol),
                suffix =
                   /*<<arg.ml:369:21>>*/  /*<<arg.ml:369:21>>*/ caml_call3
-                  (Stdlib_String[16],
+                   /*<<arg.ml:369:21>>*/ (Stdlib_String[16],
                    msg,
                    cutcol,
                    caml_ml_string_length(msg) - cutcol | 0),
                _J_ =
                   /*<<arg.ml:370:29>>*/  /*<<arg.ml:370:29>>*/ caml_call2
-                  (Stdlib[28], spaces, suffix);
+                   /*<<arg.ml:370:29>>*/ (Stdlib[28], spaces, suffix);
                /*<<arg.ml:370:8>>*/ return [0,
                       kwd,
                       spec$0,
-                       /*<<arg.ml:370:20>>*/ caml_call2(Stdlib[28], prefix, _J_)];
+                       /*<<arg.ml:370:20>>*/ caml_call2
+                        /*<<arg.ml:370:20>>*/ (Stdlib[28], prefix, _J_)];
              },
              completed);
    }
@@ -22485,27 +23696,31 @@
     var
      ic =
         /*<<arg.ml:387:11>>*/  /*<<arg.ml:387:11>>*/ caml_call1
-        (Stdlib[80], file),
+         /*<<arg.ml:387:11>>*/ (Stdlib[80], file),
      buf =
         /*<<arg.ml:388:12>>*/  /*<<arg.ml:388:12>>*/ caml_call1
-        (Stdlib_Buffer[1], 200),
+         /*<<arg.ml:388:12>>*/ (Stdlib_Buffer[1], 200),
      words =  /*<<arg.ml:389:14>>*/ [0, 0];
     function stash(param){
      var
       word =
          /*<<arg.ml:391:15>>*/  /*<<arg.ml:391:15>>*/ caml_call1
-         (Stdlib_Buffer[2], buf);
+          /*<<arg.ml:391:15>>*/ (Stdlib_Buffer[2], buf);
       /*<<arg.ml:392:4>>*/ if(trim){
       var len = caml_ml_string_length(word);
       a:
       {
         /*<<arg.ml:381:2>>*/ if
         (0 < len
-         && 13 ===  /*<<arg.ml:381:16>>*/ caml_string_get(word, len - 1 | 0)){
+         &&
+          13
+          ===
+            /*<<arg.ml:381:16>>*/ caml_string_get
+             /*<<arg.ml:381:16>>*/ (word, len - 1 | 0)){
         var
          _H_ =
             /*<<arg.ml:382:4>>*/ caml_call3
-            (Stdlib_String[16], word, 0, len - 1 | 0);
+             /*<<arg.ml:382:4>>*/ (Stdlib_String[16], word, 0, len - 1 | 0);
         break a;
        }
        var _H_ = word;
@@ -22516,33 +23731,38 @@
       var word$0 = word;
      words[1] = [0, word$0, words[1]];
       /*<<arg.ml:390:2>>*/ return  /*<<arg.ml:390:2>>*/ caml_call1
-             (Stdlib_Buffer[8], buf);
+              /*<<arg.ml:390:2>>*/ (Stdlib_Buffer[8], buf);
      /*<<arg.ml:394:20>>*/ }
      /*<<arg.ml:396:2>>*/ try{
      for(;;){
       var
        c =
           /*<<arg.ml:398:16>>*/  /*<<arg.ml:398:16>>*/ caml_call1
-          (Stdlib[82], ic);
+           /*<<arg.ml:398:16>>*/ (Stdlib[82], ic);
       if(c === sep)
         /*<<arg.ml:399:24>>*/ stash(0);
       else
         /*<<arg.ml:399:38>>*/  /*<<arg.ml:399:38>>*/ caml_call2
-        (Stdlib_Buffer[12], buf, c);
+         /*<<arg.ml:399:38>>*/ (Stdlib_Buffer[12], buf, c);
      }
     }
     catch(_G_){
      var _E_ = caml_wrap_exception(_G_);
      if(_E_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_E_, 0);
-     if(0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
+     if
+      (0
+       <
+         /*<<arg.ml:403:5>>*/ caml_call1
+          /*<<arg.ml:403:5>>*/ (Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
-      /*<<arg.ml:404:2>>*/  /*<<arg.ml:404:2>>*/ caml_call1(Stdlib[93], ic);
+      /*<<arg.ml:404:2>>*/  /*<<arg.ml:404:2>>*/ caml_call1
+       /*<<arg.ml:404:2>>*/ (Stdlib[93], ic);
      var
       _F_ =
          /*<<arg.ml:405:16>>*/  /*<<arg.ml:405:16>>*/ caml_call1
-         (Stdlib_List[10], words[1]);
+          /*<<arg.ml:405:16>>*/ (Stdlib_List[10], words[1]);
       /*<<arg.ml:405:16>>*/ return  /*<<arg.ml:405:16>>*/ caml_call1
-             (Stdlib_Array[11], _F_);
+              /*<<arg.ml:405:16>>*/ (Stdlib_Array[11], _F_);
     }
     /*<<arg.ml:405:33>>*/ }
    var _r_ = 10, _s_ = 1;
@@ -22556,16 +23776,16 @@
     var
      oc =
         /*<<arg.ml:412:11>>*/  /*<<arg.ml:412:11>>*/ caml_call1
-        (Stdlib[61], file);
+         /*<<arg.ml:412:11>>*/ (Stdlib[61], file);
      /*<<arg.ml:413:2>>*/  /*<<arg.ml:413:2>>*/ caml_call2
-     (Stdlib_Array[12],
+      /*<<arg.ml:413:2>>*/ (Stdlib_Array[12],
       function(s){
         /*<<arg.ml:413:23>>*/ return caml_call4
                (Stdlib_Printf[1], oc, _v_, s, sep);
        /*<<arg.ml:413:46>>*/ },
       args);
      /*<<arg.ml:413:2>>*/ return  /*<<arg.ml:413:2>>*/ caml_call1
-            (Stdlib[76], oc);
+             /*<<arg.ml:413:2>>*/ (Stdlib[76], oc);
     /*<<arg.ml:414:14>>*/ }
    var _w_ = 10;
    function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
@@ -22674,7 +23894,7 @@
     Stdlib_Obj = global_data.Stdlib__Obj,
     printers =
        /*<<printexc.ml:20:15>>*/  /*<<printexc.ml:20:15>>*/ caml_call1
-       (Stdlib_Atomic[1], 0),
+        /*<<printexc.ml:20:15>>*/ (Stdlib_Atomic[1], 0),
     _a_ = [0, [3, 0, 0], "%S"],
     _b_ = [0, [4, 0, 0, 0, 0], "%d"],
     _c_ = [0, [11, ", ", [2, 0, [2, 0, 0]]], ", %s%s"],
@@ -22727,16 +23947,23 @@
    function field(x, i){
     var f =  /*<<printexc.ml:25:10>>*/ x[1 + i];
      /*<<printexc.ml:26:9>>*/ if
-     (!  /*<<printexc.ml:26:9>>*/ caml_call1(Stdlib_Obj[1], f))
+     (!
+       /*<<printexc.ml:26:9>>*/ caml_call1
+        /*<<printexc.ml:26:9>>*/ (Stdlib_Obj[1], f))
       /*<<printexc.ml:27:4>>*/ return  /*<<printexc.ml:27:4>>*/ caml_call2
-             (Stdlib_Printf[4], _b_, f);
+              /*<<printexc.ml:27:4>>*/ (Stdlib_Printf[4], _b_, f);
     var _ah_ =  /*<<printexc.ml:28:7>>*/ Stdlib_Obj[15];
-    if( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
+    if
+     ( /*<<printexc.ml:28:10>>*/ caml_obj_tag /*<<printexc.ml:28:10>>*/ (f)
+      === _ah_)
       /*<<printexc.ml:29:4>>*/ return  /*<<printexc.ml:29:4>>*/ caml_call2
-             (Stdlib_Printf[4], _a_, f);
+              /*<<printexc.ml:29:4>>*/ (Stdlib_Printf[4], _a_, f);
     var _ai_ =  /*<<printexc.ml:30:7>>*/ Stdlib_Obj[16];
-    return  /*<<printexc.ml:30:10>>*/ caml_obj_tag(f) === _ai_
-            ?  /*<<printexc.ml:31:4>>*/ caml_call1(Stdlib[35], f)
+    return  /*<<printexc.ml:30:10>>*/ caml_obj_tag
+              /*<<printexc.ml:30:10>>*/ (f)
+            === _ai_
+            ?  /*<<printexc.ml:31:4>>*/ caml_call1
+               /*<<printexc.ml:31:4>>*/ (Stdlib[35], f)
             : cst;
     /*<<printexc.ml:33:7>>*/ }
    function other_fields(x, i){
@@ -22746,11 +23973,13 @@
      _af_ =  /*<<printexc.ml:37:36>>*/ other_fields(x, i + 1 | 0),
      _ag_ =  /*<<printexc.ml:37:24>>*/ field(x, i);
      /*<<printexc.ml:37:36>>*/ return  /*<<printexc.ml:37:36>>*/ caml_call3
-            (Stdlib_Printf[4], _c_, _ag_, _af_);
+             /*<<printexc.ml:37:36>>*/ (Stdlib_Printf[4], _c_, _ag_, _af_);
     /*<<printexc.ml:37:58>>*/ }
    function use_printers(x){
     var
-     param =  /*<<printexc.ml:53:7>>*/ caml_call1(Stdlib_Atomic[3], printers);
+     param =
+        /*<<printexc.ml:53:7>>*/ caml_call1
+         /*<<printexc.ml:53:7>>*/ (Stdlib_Atomic[3], printers);
      /*<<printexc.ml:47:17>>*/ for(;;){
      if(! param)  /*<<printexc.ml:52:12>>*/ return 0;
      var tl = param[2], hd = param[1];
@@ -22760,7 +23989,7 @@
        var
         val =
            /*<<printexc.ml:49:15>>*/  /*<<printexc.ml:49:15>>*/ caml_call1
-           (hd, x);
+            /*<<printexc.ml:49:15>>*/ (hd, x);
       }
       catch(_ae_){break a;}
       if(val){var s = val[1];  /*<<printexc.ml:51:21>>*/ return [0, s];}
@@ -22770,7 +23999,8 @@
     /*<<printexc.ml:53:28>>*/ }
    function string_of_extension_constructo(t){
      /*<<printexc.ml:64:2>>*/ if
-     (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
+     (0
+      ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag /*<<printexc.ml:56:5>>*/ (t)){
      var
       constructor =  /*<<printexc.ml:60:17>>*/ t[1][1],
       match = t.length - 1;
@@ -22780,7 +24010,7 @@
        _ab_ =  /*<<printexc.ml:44:26>>*/ field(t, 1),
        _ad_ =
           /*<<printexc.ml:44:38>>*/ caml_call3
-          (Stdlib_Printf[4], _d_, _ab_, _aa_);
+           /*<<printexc.ml:44:38>>*/ (Stdlib_Printf[4], _d_, _ab_, _aa_);
      else
       switch(match){
         case 0:
@@ -22791,7 +24021,8 @@
          var
           _ac_ =  /*<<printexc.ml:43:24>>*/ field(t, 1),
           _ad_ =
-             /*<<printexc.ml:43:24>>*/ caml_call2(Stdlib_Printf[4], _e_, _ac_);
+             /*<<printexc.ml:43:24>>*/ caml_call2
+              /*<<printexc.ml:43:24>>*/ (Stdlib_Printf[4], _e_, _ac_);
       }
      var match$0 = [0, constructor, [0, _ad_]];
     }
@@ -22802,7 +24033,7 @@
       /*<<printexc.ml:66:12>>*/ return constructor$0;
     var f = fields_opt[1];
      /*<<printexc.ml:67:14>>*/ return  /*<<printexc.ml:67:14>>*/ caml_call2
-            (Stdlib[28], constructor$0, f);
+             /*<<printexc.ml:67:14>>*/ (Stdlib[28], constructor$0, f);
     /*<<printexc.ml:67:29>>*/ }
    function to_string_default(x){
      /*<<printexc.ml:69:24>>*/ if(x === Stdlib[9])
@@ -22811,7 +24042,7 @@
     if(x[1] === Stdlib[4]){
      var match = x[2], char$0 = match[3], line = match[2], file = match[1];
       /*<<printexc.ml:73:6>>*/ return  /*<<printexc.ml:73:6>>*/ caml_call6
-             (Stdlib_Printf[4],
+              /*<<printexc.ml:73:6>>*/ (Stdlib_Printf[4],
               locfmt,
               file,
               line,
@@ -22826,7 +24057,7 @@
       line$0 = match$0[2],
       file$0 = match$0[1];
       /*<<printexc.ml:75:6>>*/ return  /*<<printexc.ml:75:6>>*/ caml_call6
-             (Stdlib_Printf[4],
+              /*<<printexc.ml:75:6>>*/ (Stdlib_Printf[4],
               locfmt,
               file$0,
               line$0,
@@ -22842,7 +24073,7 @@
      line$1 = match$1[2],
      file$1 = match$1[1];
      /*<<printexc.ml:77:6>>*/ return  /*<<printexc.ml:77:6>>*/ caml_call6
-            (Stdlib_Printf[4],
+             /*<<printexc.ml:77:6>>*/ (Stdlib_Printf[4],
              locfmt,
              file$1,
              line$1,
@@ -22861,7 +24092,7 @@
      var
       _$_ =
          /*<<printexc.ml:88:4>>*/  /*<<printexc.ml:88:4>>*/ caml_call1
-         (fct, arg);
+          /*<<printexc.ml:88:4>>*/ (fct, arg);
       /*<<printexc.ml:88:4>>*/ return _$_;
     }
     catch(x$0){
@@ -22869,11 +24100,11 @@
       x = caml_wrap_exception(x$0),
       ___ =  /*<<printexc.ml:90:39>>*/ to_string(x);
       /*<<printexc.ml:90:4>>*/  /*<<printexc.ml:90:4>>*/ caml_call2
-      (Stdlib_Printf[3], _f_, ___);
+       /*<<printexc.ml:90:4>>*/ (Stdlib_Printf[3], _f_, ___);
       /*<<printexc.ml:91:4>>*/  /*<<printexc.ml:91:4>>*/ caml_call1
-      (Stdlib[63], Stdlib[40]);
+       /*<<printexc.ml:91:4>>*/ (Stdlib[63], Stdlib[40]);
       /*<<printexc.ml:92:4>>*/ throw  /*<<printexc.ml:92:4>>*/ caml_maybe_attach_backtrace
-            (x, 0);
+             /*<<printexc.ml:92:4>>*/ (x, 0);
     }
     /*<<printexc.ml:92:11>>*/ }
    function catch$0(fct, arg){
@@ -22881,18 +24112,18 @@
      var
       _Z_ =
          /*<<printexc.ml:96:4>>*/  /*<<printexc.ml:96:4>>*/ caml_call1
-         (fct, arg);
+          /*<<printexc.ml:96:4>>*/ (fct, arg);
       /*<<printexc.ml:96:4>>*/ return _Z_;
     }
     catch(x$0){
      var x = caml_wrap_exception(x$0);
       /*<<printexc.ml:98:4>>*/  /*<<printexc.ml:98:4>>*/ caml_call1
-      (Stdlib[63], Stdlib[39]);
+       /*<<printexc.ml:98:4>>*/ (Stdlib[63], Stdlib[39]);
      var _Y_ =  /*<<printexc.ml:99:39>>*/ to_string(x);
       /*<<printexc.ml:99:4>>*/  /*<<printexc.ml:99:4>>*/ caml_call2
-      (Stdlib_Printf[3], _g_, _Y_);
+       /*<<printexc.ml:99:4>>*/ (Stdlib_Printf[3], _g_, _Y_);
       /*<<printexc.ml:99:4>>*/ return  /*<<printexc.ml:99:4>>*/ caml_call1
-             (Stdlib[99], 2);
+              /*<<printexc.ml:99:4>>*/ (Stdlib[99], 2);
     }
     /*<<printexc.ml:100:10>>*/ }
    function raw_backtrace_entries(bt){
@@ -22900,7 +24131,8 @@
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
      /*<<printexc.ml:138:2>>*/ return [0,
-             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)];
+             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace
+              /*<<printexc.ml:138:11>>*/ (bt)];
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
@@ -22913,9 +24145,12 @@
       lines =
         slot[3] === slot[6]
          ?  /*<<printexc.ml:157:10>>*/ caml_call2
-           (Stdlib_Printf[4], _h_, slot[3])
+            /*<<printexc.ml:157:10>>*/ (Stdlib_Printf[4], _h_, slot[3])
          :  /*<<printexc.ml:159:10>>*/ caml_call3
-           (Stdlib_Printf[4], _j_, slot[3], slot[6]),
+            /*<<printexc.ml:159:10>>*/ (Stdlib_Printf[4],
+            _j_,
+            slot[3],
+            slot[6]),
       _R_ = slot[7],
       _S_ = slot[4],
       _T_ = slot[8] ? cst_inlined : cst$3,
@@ -22924,12 +24159,21 @@
       _W_ =  /*<<printexc.ml:162:14>>*/ info(slot[1]);
       /*<<printexc.ml:161:6>>*/ return [0,
               /*<<printexc.ml:161:11>>*/ caml_call8
-              (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)];
+               /*<<printexc.ml:161:11>>*/ (Stdlib_Printf[4],
+               _i_,
+               _W_,
+               _V_,
+               _U_,
+               _T_,
+               lines,
+               _S_,
+               _R_)];
     }
     if(slot[1])  /*<<printexc.ml:151:50>>*/ return 0;
     var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
      /*<<printexc.ml:153:8>>*/ return [0,
-             /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)];
+             /*<<printexc.ml:153:13>>*/ caml_call2
+              /*<<printexc.ml:153:13>>*/ (Stdlib_Printf[4], _k_, _X_)];
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
     var
@@ -22937,7 +24181,7 @@
         /*<<printexc.ml:179:36>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:169:6>>*/ return  /*<<printexc.ml:169:6>>*/ caml_call2
-             (Stdlib_Printf[1], outchan, _m_);
+              /*<<printexc.ml:169:6>>*/ (Stdlib_Printf[1], outchan, _m_);
     var a = backtrace[1], _P_ = a.length - 2 | 0, _O_ = 0;
     if(_P_ >= 0){
      var i = _O_;
@@ -22949,7 +24193,7 @@
       if(match){
        var str = match[1];
         /*<<printexc.ml:175:24>>*/  /*<<printexc.ml:175:24>>*/ caml_call3
-        (Stdlib_Printf[1], outchan, _l_, str);
+         /*<<printexc.ml:175:24>>*/ (Stdlib_Printf[1], outchan, _l_, str);
       }
       var _Q_ =  /*<<printexc.ml:172:6>>*/ i + 1 | 0;
       if(_P_ === i) break;
@@ -22961,7 +24205,8 @@
    function print_backtrace(outchan){
      /*<<printexc.ml:183:2>>*/ return print_raw_backtrace
             (outchan,
-              /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra(0));
+              /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra
+               /*<<printexc.ml:183:30>>*/ (0));
     /*<<printexc.ml:183:52>>*/ }
    function raw_backtrace_to_string(raw_backtrace){
     var
@@ -22973,7 +24218,7 @@
      a = backtrace[1],
      b =
         /*<<printexc.ml:190:14>>*/  /*<<printexc.ml:190:14>>*/ caml_call1
-        (Stdlib_Buffer[1], 1024),
+         /*<<printexc.ml:190:14>>*/ (Stdlib_Buffer[1], 1024),
      _M_ = a.length - 2 | 0,
      _L_ =  /*<<printexc.ml:190:14>>*/ 0;
     if(_M_ >= 0){
@@ -22986,7 +24231,7 @@
       if(match){
        var str = match[1];
         /*<<printexc.ml:194:24>>*/  /*<<printexc.ml:194:24>>*/ caml_call3
-        (Stdlib_Printf[5], b, _n_, str);
+         /*<<printexc.ml:194:24>>*/ (Stdlib_Printf[5], b, _n_, str);
       }
       var _N_ =  /*<<printexc.ml:191:6>>*/ i + 1 | 0;
       if(_M_ === i) break;
@@ -22994,7 +24239,7 @@
      }
     }
      /*<<printexc.ml:196:6>>*/ return  /*<<printexc.ml:196:6>>*/ caml_call1
-            (Stdlib_Buffer[2], b);
+             /*<<printexc.ml:196:6>>*/ (Stdlib_Buffer[2], b);
     /*<<printexc.ml:199:59>>*/ }
    function backtrace_slot_is_raise(param){
      /*<<printexc.ml:201:30>>*/ return 0 === param[0] ? param[1] : param[1];
@@ -23041,25 +24286,31 @@
     /*<<printexc.ml:267:45>>*/ }
    function get_backtrace(param){
      /*<<printexc.ml:278:23>>*/ return raw_backtrace_to_string
-            ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra(0));
+            ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra
+               /*<<printexc.ml:278:47>>*/ (0));
     /*<<printexc.ml:278:69>>*/ }
    function register_printer(fn){
      /*<<printexc.ml:284:2>>*/ for(;;){
      var
       old_printers =
          /*<<printexc.ml:284:21>>*/  /*<<printexc.ml:284:21>>*/ caml_call1
-         (Stdlib_Atomic[3], printers),
+          /*<<printexc.ml:284:21>>*/ (Stdlib_Atomic[3], printers),
       new_printers =  /*<<printexc.ml:285:21>>*/ [0, fn, old_printers],
       success =
          /*<<printexc.ml:286:16>>*/  /*<<printexc.ml:286:16>>*/ caml_call3
-         (Stdlib_Atomic[6], printers, old_printers, new_printers),
+          /*<<printexc.ml:286:16>>*/ (Stdlib_Atomic[6],
+          printers,
+          old_printers,
+          new_printers),
       _I_ =  /*<<printexc.ml:287:2>>*/ 1 - success;
      if(! _I_)  /*<<printexc.ml:287:2>>*/ return _I_;
     }
     /*<<printexc.ml:287:41>>*/ }
    function exn_slot(x){
      /*<<printexc.ml:292:2>>*/ return 0
-            ===  /*<<printexc.ml:293:5>>*/ caml_obj_tag(x)
+            ===
+              /*<<printexc.ml:293:5>>*/ caml_obj_tag
+               /*<<printexc.ml:293:5>>*/ (x)
             ? x[1]
             : x;
     /*<<printexc.ml:293:44>>*/ }
@@ -23087,23 +24338,23 @@
    function default_uncaught_exception_han(exn, raw_backtrace){
     var _F_ =  /*<<printexc.ml:323:40>>*/ to_string(exn);
      /*<<printexc.ml:323:2>>*/  /*<<printexc.ml:323:2>>*/ caml_call2
-     (Stdlib_Printf[3], _o_, _F_);
+      /*<<printexc.ml:323:2>>*/ (Stdlib_Printf[3], _o_, _F_);
      /*<<printexc.ml:324:2>>*/ print_raw_backtrace(Stdlib[40], raw_backtrace);
     var
      status =
         /*<<printexc.ml:325:15>>*/  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status
-        (0);
+         /*<<printexc.ml:325:15>>*/ (0);
     if(status < 0){
      var
       _G_ =
          /*<<printexc.ml:327:26>>*/  /*<<printexc.ml:327:26>>*/ caml_call1
-         (Stdlib[18], status),
+          /*<<printexc.ml:327:26>>*/ (Stdlib[18], status),
       _H_ =  /*<<printexc.ml:327:18>>*/ caml_check_bound(errors, _G_)[1 + _G_];
       /*<<printexc.ml:327:4>>*/  /*<<printexc.ml:327:4>>*/ caml_call1
-      (Stdlib[53], _H_);
+       /*<<printexc.ml:327:4>>*/ (Stdlib[53], _H_);
     }
      /*<<printexc.ml:327:4>>*/ return  /*<<printexc.ml:327:4>>*/ caml_call1
-            (Stdlib[63], Stdlib[40]);
+             /*<<printexc.ml:327:4>>*/ (Stdlib[63], Stdlib[40]);
     /*<<printexc.ml:328:14>>*/ }
    var
     uncaught_exception_handler =
@@ -23133,17 +24384,20 @@
        raw_backtrace =
          debugger_in_use
           ? empty_backtrace
-          :  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0);
+          :  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra
+             /*<<printexc.ml:338:4>>*/ (0);
        /*<<printexc.ml:352:4>>*/ try{
         /*<<printexc.ml:352:9>>*/  /*<<printexc.ml:352:9>>*/ caml_call1
-        (Stdlib[103], 0);
+         /*<<printexc.ml:352:9>>*/ (Stdlib[103], 0);
       }
       catch(_E_){}
        /*<<printexc.ml:353:4>>*/ try{
        var
         _A_ =
            /*<<printexc.ml:354:6>>*/  /*<<printexc.ml:354:6>>*/ caml_call2
-           (uncaught_exception_handler[1], exn$0, raw_backtrace),
+            /*<<printexc.ml:354:6>>*/ (uncaught_exception_handler[1],
+            exn$0,
+            raw_backtrace),
         _z_ = _A_;
       }
       catch(exn$1){
@@ -23151,19 +24405,21 @@
         exn = caml_wrap_exception(exn$1),
         raw_backtrace$0 =
            /*<<printexc.ml:338:4>>*/  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra
-           (0),
+            /*<<printexc.ml:338:4>>*/ (0),
         _x_ =  /*<<printexc.ml:357:44>>*/ to_string(exn$0);
         /*<<printexc.ml:357:6>>*/  /*<<printexc.ml:357:6>>*/ caml_call2
-        (Stdlib_Printf[3], _p_, _x_);
+         /*<<printexc.ml:357:6>>*/ (Stdlib_Printf[3], _p_, _x_);
         /*<<printexc.ml:358:6>>*/ print_raw_backtrace
         (Stdlib[40], raw_backtrace);
        var _y_ =  /*<<printexc.ml:360:8>>*/ to_string(exn);
         /*<<printexc.ml:359:6>>*/  /*<<printexc.ml:359:6>>*/ caml_call2
-        (Stdlib_Printf[3], _q_, _y_);
+         /*<<printexc.ml:359:6>>*/ (Stdlib_Printf[3], _q_, _y_);
         /*<<printexc.ml:361:6>>*/ print_raw_backtrace
         (Stdlib[40], raw_backtrace$0);
        var
-        _z_ =  /*<<printexc.ml:362:6>>*/ caml_call1(Stdlib[63], Stdlib[40]);
+        _z_ =
+           /*<<printexc.ml:362:6>>*/ caml_call1
+            /*<<printexc.ml:362:6>>*/ (Stdlib[63], Stdlib[40]);
       }
       var _B_ = _z_;
      }
@@ -23173,14 +24429,16 @@
       var
        _B_ =
           /*<<printexc.ml:365:8>>*/ caml_call1
-          (Stdlib[53], cst_Fatal_error_out_of_memory_);
+           /*<<printexc.ml:365:8>>*/ (Stdlib[53],
+           cst_Fatal_error_out_of_memory_);
      }
       /*<<printexc.ml:372:4>>*/ return _B_;
     }
     catch(_C_){ /*<<printexc.ml:375:4>>*/ return 0;}
     /*<<printexc.ml:375:6>>*/ }
     /*<<printexc.ml:381:2>>*/  /*<<printexc.ml:381:2>>*/ runtime.caml_register_named_value
-    ("Printexc.handle_uncaught_exception", handle_uncaught_exception);
+     /*<<printexc.ml:381:2>>*/ ("Printexc.handle_uncaught_exception",
+     handle_uncaught_exception);
    var
     Stdlib_Printexc =
       [0,
@@ -23256,13 +24514,16 @@
     /*<<fun.ml:17:17>>*/ }
    function compose(f, g, x){
      /*<<fun.ml:18:20>>*/ return  /*<<fun.ml:18:22>>*/ caml_call1
-            (f,  /*<<fun.ml:18:22>>*/ caml_call1(g, x));
+             /*<<fun.ml:18:22>>*/ (f,
+              /*<<fun.ml:18:22>>*/ caml_call1 /*<<fun.ml:18:22>>*/ (g, x));
     /*<<fun.ml:18:27>>*/ }
    function flip(f, x, y){
-     /*<<fun.ml:19:17>>*/ return  /*<<fun.ml:19:17>>*/ caml_call2(f, y, x);
+     /*<<fun.ml:19:17>>*/ return  /*<<fun.ml:19:17>>*/ caml_call2
+             /*<<fun.ml:19:17>>*/ (f, y, x);
     /*<<fun.ml:19:22>>*/ }
    function negate(p, v){
-     /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v);
+     /*<<fun.ml:20:17>>*/ return 1
+           -  /*<<fun.ml:20:21>>*/ caml_call1 /*<<fun.ml:20:21>>*/ (p, v);
     /*<<fun.ml:20:26>>*/ }
    var
     Finally_raised =
@@ -23271,7 +24532,7 @@
        runtime.caml_fresh_oo_id(0)],
     cst_Fun_Finally_raised = "Fun.Finally_raised: ";
     /*<<fun.ml:24:9>>*/  /*<<fun.ml:24:9>>*/ caml_call1
-    (Stdlib_Printexc[9],
+     /*<<fun.ml:24:9>>*/ (Stdlib_Printexc[9],
      function(param){
        /*<<fun.ml:24:38>>*/ if(param[1] !== Finally_raised)
         /*<<fun.ml:26:7>>*/ return 0;
@@ -23279,16 +24540,17 @@
        exn = param[2],
        _a_ =
           /*<<fun.ml:25:55>>*/  /*<<fun.ml:25:55>>*/ caml_call1
-          (Stdlib_Printexc[1], exn);
+           /*<<fun.ml:25:55>>*/ (Stdlib_Printexc[1], exn);
        /*<<fun.ml:25:24>>*/ return [0,
                /*<<fun.ml:25:29>>*/ caml_call2
-               (Stdlib[28], cst_Fun_Finally_raised, _a_)];
+                /*<<fun.ml:25:29>>*/ (Stdlib[28], cst_Fun_Finally_raised, _a_)];
       /*<<fun.ml:26:11>>*/ });
    var dummy = 0;
    function protect(finally$0, work){
     function finally_no_exn(param){
       /*<<fun.ml:30:4>>*/ try{
-       /*<<fun.ml:30:8>>*/  /*<<fun.ml:30:8>>*/ caml_call1(finally$0, 0);
+       /*<<fun.ml:30:8>>*/  /*<<fun.ml:30:8>>*/ caml_call1
+        /*<<fun.ml:30:8>>*/ (finally$0, 0);
        /*<<fun.ml:30:8>>*/ return;
      }
      catch(e$0){
@@ -23296,27 +24558,29 @@
        e = caml_wrap_exception(e$0),
        bt =
           /*<<fun.ml:31:15>>*/  /*<<fun.ml:31:15>>*/ caml_call1
-          (Stdlib_Printexc[12], 0),
+           /*<<fun.ml:31:15>>*/ (Stdlib_Printexc[12], 0),
        exn =  /*<<fun.ml:32:36>>*/ [0, Finally_raised, e];
       caml_restore_raw_backtrace(exn, bt);
        /*<<fun.ml:32:6>>*/ throw  /*<<fun.ml:32:6>>*/ caml_maybe_attach_backtrace
-             (exn, 0);
+              /*<<fun.ml:32:6>>*/ (exn, 0);
      }
      /*<<fun.ml:32:57>>*/ }
      /*<<fun.ml:34:2>>*/ try{
      var
-      result =  /*<<fun.ml:34:8>>*/  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
+      result =
+         /*<<fun.ml:34:8>>*/  /*<<fun.ml:34:8>>*/ caml_call1
+          /*<<fun.ml:34:8>>*/ (work, 0);
     }
     catch(work_exn$0){
      var
       work_exn = caml_wrap_exception(work_exn$0),
       work_bt =
          /*<<fun.ml:37:20>>*/  /*<<fun.ml:37:20>>*/ caml_call1
-         (Stdlib_Printexc[12], 0);
+          /*<<fun.ml:37:20>>*/ (Stdlib_Printexc[12], 0);
       /*<<fun.ml:38:6>>*/ finally_no_exn(0);
      caml_restore_raw_backtrace(work_exn, work_bt);
       /*<<fun.ml:39:6>>*/ throw  /*<<fun.ml:39:6>>*/ caml_maybe_attach_backtrace
-            (work_exn, 0);
+             /*<<fun.ml:39:6>>*/ (work_exn, 0);
     }
      /*<<fun.ml:35:14>>*/ finally_no_exn(0);
      /*<<fun.ml:35:14>>*/ return result;
@@ -23442,57 +24706,62 @@
     /*<<gc.ml:66:27>>*/ }
    function print_stat(c){
     var
-     st =  /*<<gc.ml:71:11>>*/  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat(0);
+     st =
+        /*<<gc.ml:71:11>>*/  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat
+         /*<<gc.ml:71:11>>*/ (0);
      /*<<gc.ml:72:2>>*/  /*<<gc.ml:72:2>>*/ caml_call3
-     (Stdlib_Printf[1], c, _a_, st[4]);
+      /*<<gc.ml:72:2>>*/ (Stdlib_Printf[1], c, _a_, st[4]);
      /*<<gc.ml:73:2>>*/  /*<<gc.ml:73:2>>*/ caml_call3
-     (Stdlib_Printf[1], c, _b_, st[5]);
+      /*<<gc.ml:73:2>>*/ (Stdlib_Printf[1], c, _b_, st[5]);
      /*<<gc.ml:74:2>>*/  /*<<gc.ml:74:2>>*/ caml_call3
-     (Stdlib_Printf[1], c, _c_, st[14]);
+      /*<<gc.ml:74:2>>*/ (Stdlib_Printf[1], c, _c_, st[14]);
      /*<<gc.ml:75:2>>*/  /*<<gc.ml:75:2>>*/ caml_call3
-     (Stdlib_Printf[1], c, _d_, st[17]);
+      /*<<gc.ml:75:2>>*/ (Stdlib_Printf[1], c, _d_, st[17]);
      /*<<gc.ml:76:2>>*/  /*<<gc.ml:76:2>>*/ caml_call2
-     (Stdlib_Printf[1], c, _e_);
+      /*<<gc.ml:76:2>>*/ (Stdlib_Printf[1], c, _e_);
     var
      l1 =
         /*<<gc.ml:77:25>>*/  /*<<gc.ml:77:25>>*/ caml_ml_string_length
-        ( /*<<gc.ml:77:25>>*/ caml_call2(Stdlib_Printf[4], _f_, st[1]));
+         /*<<gc.ml:77:25>>*/ ( /*<<gc.ml:77:25>>*/ caml_call2
+           /*<<gc.ml:77:25>>*/ (Stdlib_Printf[4], _f_, st[1]));
      /*<<gc.ml:78:2>>*/  /*<<gc.ml:78:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _g_, l1, st[1]);
+      /*<<gc.ml:78:2>>*/ (Stdlib_Printf[1], c, _g_, l1, st[1]);
      /*<<gc.ml:79:2>>*/  /*<<gc.ml:79:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _h_, l1, st[2]);
+      /*<<gc.ml:79:2>>*/ (Stdlib_Printf[1], c, _h_, l1, st[2]);
      /*<<gc.ml:80:2>>*/  /*<<gc.ml:80:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _i_, l1, st[3]);
+      /*<<gc.ml:80:2>>*/ (Stdlib_Printf[1], c, _i_, l1, st[3]);
      /*<<gc.ml:81:2>>*/  /*<<gc.ml:81:2>>*/ caml_call2
-     (Stdlib_Printf[1], c, _j_);
+      /*<<gc.ml:81:2>>*/ (Stdlib_Printf[1], c, _j_);
     var
      l2 =
         /*<<gc.ml:82:25>>*/  /*<<gc.ml:82:25>>*/ caml_ml_string_length
-        ( /*<<gc.ml:82:25>>*/ caml_call2(Stdlib_Printf[4], _k_, st[15]));
+         /*<<gc.ml:82:25>>*/ ( /*<<gc.ml:82:25>>*/ caml_call2
+           /*<<gc.ml:82:25>>*/ (Stdlib_Printf[4], _k_, st[15]));
      /*<<gc.ml:83:2>>*/  /*<<gc.ml:83:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _l_, l2, st[15]);
+      /*<<gc.ml:83:2>>*/ (Stdlib_Printf[1], c, _l_, l2, st[15]);
      /*<<gc.ml:84:2>>*/  /*<<gc.ml:84:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _m_, l2, st[6]);
+      /*<<gc.ml:84:2>>*/ (Stdlib_Printf[1], c, _m_, l2, st[6]);
      /*<<gc.ml:85:2>>*/  /*<<gc.ml:85:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _n_, l2, st[8]);
+      /*<<gc.ml:85:2>>*/ (Stdlib_Printf[1], c, _n_, l2, st[8]);
      /*<<gc.ml:86:2>>*/  /*<<gc.ml:86:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _o_, l2, st[10]);
+      /*<<gc.ml:86:2>>*/ (Stdlib_Printf[1], c, _o_, l2, st[10]);
      /*<<gc.ml:87:2>>*/  /*<<gc.ml:87:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _p_, l2, st[12]);
+      /*<<gc.ml:87:2>>*/ (Stdlib_Printf[1], c, _p_, l2, st[12]);
      /*<<gc.ml:88:2>>*/  /*<<gc.ml:88:2>>*/ caml_call4
-     (Stdlib_Printf[1], c, _q_, l2, st[13]);
+      /*<<gc.ml:88:2>>*/ (Stdlib_Printf[1], c, _q_, l2, st[13]);
      /*<<gc.ml:89:2>>*/  /*<<gc.ml:89:2>>*/ caml_call2
-     (Stdlib_Printf[1], c, _r_);
+      /*<<gc.ml:89:2>>*/ (Stdlib_Printf[1], c, _r_);
      /*<<gc.ml:90:2>>*/  /*<<gc.ml:90:2>>*/ caml_call3
-     (Stdlib_Printf[1], c, _s_, st[9]);
+      /*<<gc.ml:90:2>>*/ (Stdlib_Printf[1], c, _s_, st[9]);
      /*<<gc.ml:91:2>>*/  /*<<gc.ml:91:2>>*/ caml_call3
-     (Stdlib_Printf[1], c, _t_, st[11]);
+      /*<<gc.ml:91:2>>*/ (Stdlib_Printf[1], c, _t_, st[11]);
     return caml_call3(Stdlib_Printf[1], c, _u_, st[7]);
     /*<<gc.ml:92:46>>*/ }
    function allocated_bytes(param){
     var
      match =
-        /*<<gc.ml:96:22>>*/  /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters(0),
+        /*<<gc.ml:96:22>>*/  /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters
+         /*<<gc.ml:96:22>>*/ (0),
      ma = match[3],
      pro = match[2],
      mi = match[1];
@@ -23500,15 +24769,15 @@
     /*<<gc.ml:97:55>>*/ }
    function delete_alarm(a){
      /*<<gc.ml:115:21>>*/ return  /*<<gc.ml:115:21>>*/ caml_call2
-            (Stdlib_Atomic[4], a, 0);
+             /*<<gc.ml:115:21>>*/ (Stdlib_Atomic[4], a, 0);
     /*<<gc.ml:115:39>>*/ }
    function create_alarm(f){
     var
      _y_ =
         /*<<gc.ml:118:24>>*/  /*<<gc.ml:118:24>>*/ caml_call1
-        (Stdlib_Atomic[1], 1);
+         /*<<gc.ml:118:24>>*/ (Stdlib_Atomic[1], 1);
      /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:2>>*/ caml_call1
-     (Stdlib_Domain[6],
+      /*<<gc.ml:119:2>>*/ (Stdlib_Domain[6],
       function(param){
         /*<<gc.ml:119:28>>*/ return delete_alarm(_y_);
        /*<<gc.ml:119:52>>*/ });
@@ -23525,7 +24794,7 @@
    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
-            (sampling_rate, callstack_size, tracker);
+             /*<<gc.ml:158:6>>*/ (sampling_rate, callstack_size, tracker);
    }
    var
     Stdlib_Gc =
@@ -23604,16 +24873,16 @@
     var
      ic =
         /*<<in_channel.ml:35:11>>*/  /*<<in_channel.ml:35:11>>*/ caml_call1
-        (openfun, s);
+         /*<<in_channel.ml:35:11>>*/ (openfun, s);
      /*<<in_channel.ml:37:4>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call2
-            (Stdlib_Fun[5],
+             /*<<in_channel.ml:37:4>>*/ (Stdlib_Fun[5],
              function(param){
                /*<<in_channel.ml:36:34>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call1
-                      (Stdlib[94], ic);
+                       /*<<in_channel.ml:37:4>>*/ (Stdlib[94], ic);
               /*<<in_channel.ml:36:58>>*/ },
              function(param){
                /*<<in_channel.ml:37:15>>*/ return  /*<<in_channel.ml:36:2>>*/ caml_call1
-                      (f, ic);
+                       /*<<in_channel.ml:36:2>>*/ (f, ic);
               /*<<in_channel.ml:37:19>>*/ });
     /*<<in_channel.ml:37:20>>*/ }
    function with_open_bin(s, f){
@@ -23624,7 +24893,8 @@
     /*<<in_channel.ml:43:30>>*/ }
    function with_open_gen(flags, perm, s, f){
      /*<<in_channel.ml:46:2>>*/ return with_open
-            ( /*<<in_channel.ml:46:12>>*/ caml_call2(Stdlib[81], flags, perm),
+            ( /*<<in_channel.ml:46:12>>*/ caml_call2
+               /*<<in_channel.ml:46:12>>*/ (Stdlib[81], flags, perm),
              s,
              f);
     /*<<in_channel.ml:46:47>>*/ }
@@ -23639,7 +24909,7 @@
      var
       c =
          /*<<in_channel.ml:55:8>>*/  /*<<in_channel.ml:55:8>>*/ caml_call1
-         (Stdlib[82], ic);
+          /*<<in_channel.ml:55:8>>*/ (Stdlib[82], ic);
     }
     catch(_x_){
      var _w_ = caml_wrap_exception(_x_);
@@ -23653,7 +24923,7 @@
      var
       n =
          /*<<in_channel.ml:60:8>>*/  /*<<in_channel.ml:60:8>>*/ caml_call1
-         (Stdlib[87], ic);
+          /*<<in_channel.ml:60:8>>*/ (Stdlib[87], ic);
     }
     catch(_v_){
      var _u_ = caml_wrap_exception(_v_);
@@ -23667,7 +24937,7 @@
      var
       s =
          /*<<in_channel.ml:65:8>>*/  /*<<in_channel.ml:65:8>>*/ caml_call1
-         (Stdlib[83], ic);
+          /*<<in_channel.ml:65:8>>*/ (Stdlib[83], ic);
     }
     catch(_t_){
      var _s_ = caml_wrap_exception(_t_);
@@ -23689,16 +24959,21 @@
      (0 <= ofs
       &&
        0 <= len
-       && ( /*<<in_channel.ml:76:33>>*/ caml_ba_dim_1(buf) - len | 0) >= ofs)
+       &&
+        ( /*<<in_channel.ml:76:33>>*/ caml_ba_dim_1
+          /*<<in_channel.ml:76:33>>*/ (buf)
+        - len
+        | 0)
+        >= ofs)
       /*<<in_channel.ml:78:7>>*/ return  /*<<in_channel.ml:78:7>>*/ caml_ml_input_bigarray
-             (ic, buf, ofs, len);
+              /*<<in_channel.ml:78:7>>*/ (ic, buf, ofs, len);
      /*<<in_channel.ml:77:7>>*/ return  /*<<in_channel.ml:77:7>>*/ caml_call1
-            (Stdlib[1], cst_input_bigarray);
+             /*<<in_channel.ml:77:7>>*/ (Stdlib[1], cst_input_bigarray);
     /*<<in_channel.ml:78:43>>*/ }
    function really_input(ic, buf, pos, len){
      /*<<in_channel.ml:81:2>>*/ try{
       /*<<in_channel.ml:81:8>>*/  /*<<in_channel.ml:81:8>>*/ caml_call4
-      (Stdlib[85], ic, buf, pos, len);
+       /*<<in_channel.ml:81:8>>*/ (Stdlib[85], ic, buf, pos, len);
       /*<<in_channel.ml:82:10>>*/ return _a_;
     }
     catch(_r_){
@@ -23713,14 +24988,18 @@
       &&
        0 <= len$1
        &&
-        ( /*<<in_channel.ml:94:33>>*/ caml_ba_dim_1(buf) - len$1 | 0) >= ofs$1){
+        ( /*<<in_channel.ml:94:33>>*/ caml_ba_dim_1
+          /*<<in_channel.ml:94:33>>*/ (buf)
+        - len$1
+        | 0)
+        >= ofs$1){
      var ofs = ofs$1, len = len$1;
       /*<<in_channel.ml:86:2>>*/ for(;;){
       if(0 >= len)  /*<<in_channel.ml:86:19>>*/ return _b_;
       var
        r =
           /*<<in_channel.ml:87:12>>*/  /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
-          (ic, buf, ofs, len);
+           /*<<in_channel.ml:87:12>>*/ (ic, buf, ofs, len);
        /*<<in_channel.ml:88:4>>*/ if(0 === r)
         /*<<in_channel.ml:89:9>>*/ return 0;
       var len$0 = len - r | 0, ofs$0 = ofs + r | 0;
@@ -23729,14 +25008,14 @@
      }
     }
      /*<<in_channel.ml:95:7>>*/ return  /*<<in_channel.ml:95:7>>*/ caml_call1
-            (Stdlib[1], cst_really_input_bigarray);
+             /*<<in_channel.ml:95:7>>*/ (Stdlib[1], cst_really_input_bigarray);
     /*<<in_channel.ml:96:50>>*/ }
    function really_input_string(ic, len){
      /*<<in_channel.ml:99:2>>*/ try{
      var
       s =
          /*<<in_channel.ml:99:8>>*/  /*<<in_channel.ml:99:8>>*/ caml_call2
-         (Stdlib[86], ic, len);
+          /*<<in_channel.ml:99:8>>*/ (Stdlib[86], ic, len);
     }
     catch(_p_){
      var _o_ = caml_wrap_exception(_p_);
@@ -23752,7 +25031,7 @@
       var
        r =
           /*<<in_channel.ml:109:14>>*/  /*<<in_channel.ml:109:14>>*/ caml_call4
-          (Stdlib[84], ic, buf, ofs$0, len$0);
+           /*<<in_channel.ml:109:14>>*/ (Stdlib[84], ic, buf, ofs$0, len$0);
        /*<<in_channel.ml:110:6>>*/ if(0 !== r){
        var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
        ofs$0 = ofs$1;
@@ -23780,12 +25059,13 @@
           < Stdlib_Sys[12]
           ? Stdlib_Sys[12]
           :  /*<<in_channel.ml:145:8>>*/ caml_call1
-            (Stdlib[2], cst_In_channel_input_all_chann),
+             /*<<in_channel.ml:145:8>>*/ (Stdlib[2],
+             cst_In_channel_input_all_chann),
      new_buf =
         /*<<in_channel.ml:148:18>>*/  /*<<in_channel.ml:148:18>>*/ caml_create_bytes
-        (new_len$1);
+         /*<<in_channel.ml:148:18>>*/ (new_len$1);
      /*<<in_channel.ml:149:4>>*/  /*<<in_channel.ml:149:4>>*/ caml_call5
-     (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
+      /*<<in_channel.ml:149:4>>*/ (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
      /*<<in_channel.ml:149:4>>*/ return new_buf;
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
@@ -23794,10 +25074,10 @@
      var
       _k_ =
          /*<<in_channel.ml:157:36>>*/  /*<<in_channel.ml:157:36>>*/ caml_call1
-         (Stdlib[91], ic),
+          /*<<in_channel.ml:157:36>>*/ (Stdlib[91], ic),
       _l_ =
          /*<<in_channel.ml:157:6>>*/  /*<<in_channel.ml:157:6>>*/ caml_call1
-         (Stdlib[92], ic)
+          /*<<in_channel.ml:157:6>>*/ (Stdlib[92], ic)
         - _k_
         | 0,
       initial_size = _l_;
@@ -23816,28 +25096,28 @@
        initial_size$0 <= Stdlib_Sys[12] ? initial_size$0 : Stdlib_Sys[12],
      buf =
         /*<<in_channel.ml:168:12>>*/  /*<<in_channel.ml:168:12>>*/ caml_create_bytes
-        (initial_size$1),
+         /*<<in_channel.ml:168:12>>*/ (initial_size$1),
      nread =
         /*<<in_channel.ml:169:14>>*/ read_upto(ic, buf, 0, initial_size$1);
     if(nread < initial_size$1)
       /*<<in_channel.ml:171:4>>*/ return  /*<<in_channel.ml:171:4>>*/ caml_call3
-             (Stdlib_Bytes[8], buf, 0, nread);
+              /*<<in_channel.ml:171:4>>*/ (Stdlib_Bytes[8], buf, 0, nread);
      /*<<in_channel.ml:172:7>>*/ try{
      var
       c =
          /*<<in_channel.ml:173:10>>*/  /*<<in_channel.ml:173:10>>*/ caml_call1
-         (Stdlib[82], ic);
+          /*<<in_channel.ml:173:10>>*/ (Stdlib[82], ic);
     }
     catch(_m_){
      var _j_ = caml_wrap_exception(_m_);
      if(_j_ === Stdlib[12])
        /*<<in_channel.ml:176:8>>*/ return  /*<<in_channel.ml:176:8>>*/ caml_call1
-              (Stdlib_Bytes[44], buf);
+               /*<<in_channel.ml:176:8>>*/ (Stdlib_Bytes[44], buf);
      throw caml_maybe_attach_backtrace(_j_, 0);
     }
     var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
      /*<<in_channel.ml:191:8>>*/  /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set
-     (buf$2, nread, c);
+      /*<<in_channel.ml:191:8>>*/ (buf$2, nread, c);
     var
      ofs$1 =  /*<<in_channel.ml:191:8>>*/ nread + 1 | 0,
      buf$0 = buf$2,
@@ -23849,7 +25129,10 @@
       r =  /*<<in_channel.ml:184:18>>*/ read_upto(ic, buf$1, ofs, rem);
      if(r < rem)
        /*<<in_channel.ml:180:20>>*/ return  /*<<in_channel.ml:180:20>>*/ caml_call3
-              (Stdlib_Bytes[8], buf$1, 0, ofs + r | 0);
+               /*<<in_channel.ml:180:20>>*/ (Stdlib_Bytes[8],
+               buf$1,
+               0,
+               ofs + r | 0);
      var ofs$0 = ofs + rem | 0;
      buf$0 = buf$1;
      ofs = ofs$0;
@@ -23860,7 +25143,7 @@
      var
       line =
          /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ caml_call1
-         (Stdlib[83], ic);
+          /*<<in_channel.ml:196:8>>*/ (Stdlib[83], ic);
     }
     catch(_h_){
      var _e_ = caml_wrap_exception(_h_);
@@ -23876,7 +25159,7 @@
       var
        line$0 =
           /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ caml_call1
-          (Stdlib[83], ic);
+           /*<<in_channel.ml:196:8>>*/ (Stdlib[83], ic);
      }
      catch(_g_){
       var _f_ = caml_wrap_exception(_g_);
@@ -23897,7 +25180,7 @@
       var
        line =
           /*<<in_channel.ml:201:8>>*/  /*<<in_channel.ml:201:8>>*/ caml_call1
-          (Stdlib[83], ic);
+           /*<<in_channel.ml:201:8>>*/ (Stdlib[83], ic);
      }
      catch(_d_){
       var _c_ = caml_wrap_exception(_d_);
@@ -23907,7 +25190,7 @@
      var
       accu$1 =
          /*<<in_channel.ml:202:25>>*/  /*<<in_channel.ml:202:25>>*/ caml_call2
-         (f, accu$0, line);
+          /*<<in_channel.ml:202:25>>*/ (f, accu$0, line);
      accu$0 = accu$1;
     }
     /*<<in_channel.ml:203:33>>*/ }
@@ -23975,16 +25258,16 @@
     var
      oc =
         /*<<out_channel.ml:36:11>>*/  /*<<out_channel.ml:36:11>>*/ caml_call1
-        (openfun, s);
+         /*<<out_channel.ml:36:11>>*/ (openfun, s);
      /*<<out_channel.ml:38:4>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call2
-            (Stdlib_Fun[5],
+             /*<<out_channel.ml:38:4>>*/ (Stdlib_Fun[5],
              function(param){
                /*<<out_channel.ml:37:34>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call1
-                      (Stdlib[77], oc);
+                       /*<<out_channel.ml:38:4>>*/ (Stdlib[77], oc);
               /*<<out_channel.ml:37:59>>*/ },
              function(param){
                /*<<out_channel.ml:38:15>>*/ return  /*<<out_channel.ml:37:2>>*/ caml_call1
-                      (f, oc);
+                       /*<<out_channel.ml:37:2>>*/ (f, oc);
               /*<<out_channel.ml:38:19>>*/ });
     /*<<out_channel.ml:38:20>>*/ }
    function with_open_bin(s, f){
@@ -23995,7 +25278,8 @@
     /*<<out_channel.ml:44:31>>*/ }
    function with_open_gen(flags, perm, s, f){
      /*<<out_channel.ml:47:2>>*/ return with_open
-            ( /*<<out_channel.ml:47:12>>*/ caml_call2(Stdlib[62], flags, perm),
+            ( /*<<out_channel.ml:47:12>>*/ caml_call2
+               /*<<out_channel.ml:47:12>>*/ (Stdlib[62], flags, perm),
              s,
              f);
     /*<<out_channel.ml:47:48>>*/ }
@@ -24020,12 +25304,15 @@
       &&
        0 <= len
        &&
-        ( /*<<out_channel.ml:67:33>>*/ runtime.caml_ba_dim_1(buf) - len | 0)
+        ( /*<<out_channel.ml:67:33>>*/ runtime.caml_ba_dim_1
+          /*<<out_channel.ml:67:33>>*/ (buf)
+        - len
+        | 0)
         >= ofs)
       /*<<out_channel.ml:69:7>>*/ return  /*<<out_channel.ml:69:7>>*/ runtime.caml_ml_output_bigarray
-             (oc, buf, ofs, len);
+              /*<<out_channel.ml:69:7>>*/ (oc, buf, ofs, len);
      /*<<out_channel.ml:68:7>>*/ return  /*<<out_channel.ml:68:7>>*/ caml_call1
-            (Stdlib[1], cst_output_bigarray);
+             /*<<out_channel.ml:68:7>>*/ (Stdlib[1], cst_output_bigarray);
     /*<<out_channel.ml:69:44>>*/ }
    var
     set_binary_mode = Stdlib[78],
@@ -24121,10 +25408,10 @@
     var
      len =
         /*<<digest.ml:22:2>>*/  /*<<digest.ml:22:2>>*/ caml_ml_string_length
-        (d),
+         /*<<digest.ml:22:2>>*/ (d),
      result =
         /*<<digest.ml:23:15>>*/  /*<<digest.ml:23:15>>*/ caml_create_bytes
-        (len * 2 | 0),
+         /*<<digest.ml:23:15>>*/ (len * 2 | 0),
      _j_ =  /*<<digest.ml:24:2>>*/ len - 1 | 0,
      _i_ =  /*<<digest.ml:23:15>>*/ 0;
     if(_j_ >= 0){
@@ -24133,7 +25420,7 @@
       var
        x =
           /*<<digest.ml:25:22>>*/  /*<<digest.ml:25:22>>*/ caml_string_get
-          (d, i);
+           /*<<digest.ml:25:22>>*/ (d, i);
       caml_bytes_unsafe_set(result, i * 2 | 0, char_hex(x >>> 4 | 0));
       caml_bytes_unsafe_set(result, (i * 2 | 0) + 1 | 0, char_hex(x & 15));
       var _k_ =  /*<<digest.ml:24:2>>*/ i + 1 | 0;
@@ -24142,7 +25429,7 @@
      }
     }
      /*<<digest.ml:29:2>>*/ return  /*<<digest.ml:29:2>>*/ caml_call1
-            (Stdlib_Bytes[44], result);
+             /*<<digest.ml:29:2>>*/ (Stdlib_Bytes[44], result);
     /*<<digest.ml:29:31>>*/ }
    function string_of_hex(s){
     function digit(c){
@@ -24154,42 +25441,50 @@
      }
      else if(9 >= c - 48 >>> 0) return c - 48 | 0;
       /*<<digest.ml:37:11>>*/ return  /*<<digest.ml:37:11>>*/ caml_call1
-             (Stdlib[1], cst_Digest_of_hex);
+              /*<<digest.ml:37:11>>*/ (Stdlib[1], cst_Digest_of_hex);
      /*<<digest.ml:37:38>>*/ }
      /*<<digest.ml:39:36>>*/ return  /*<<digest.ml:39:36>>*/ caml_call2
-            (Stdlib_String[2],
+             /*<<digest.ml:39:36>>*/ (Stdlib_String[2],
              caml_ml_string_length(s) / 2 | 0,
              function(i){
               var
                i$0 = 2 * i | 0,
                _g_ =
                   /*<<digest.ml:38:35>>*/ digit
-                  ( /*<<digest.ml:38:41>>*/ caml_string_get(s, i$0 + 1 | 0)),
+                  ( /*<<digest.ml:38:41>>*/ caml_string_get
+                     /*<<digest.ml:38:41>>*/ (s, i$0 + 1 | 0)),
                _h_ =
-                 (digit( /*<<digest.ml:38:21>>*/ caml_string_get(s, i$0))
+                 (digit
+                  ( /*<<digest.ml:38:21>>*/ caml_string_get
+                     /*<<digest.ml:38:21>>*/ (s, i$0))
                  << 4)
                  + _g_
                  | 0;
                /*<<digest.ml:39:55>>*/ return  /*<<digest.ml:39:55>>*/ caml_call1
-                      (Stdlib_Char[1], _h_);
+                       /*<<digest.ml:39:55>>*/ (Stdlib_Char[1], _h_);
               /*<<digest.ml:39:69>>*/ });
     /*<<digest.ml:39:70>>*/ }
    function BLAKE2(X){
     var _a_ = X[1] < 1 ? 1 : 0, _b_ = _a_ || (64 < X[1] ? 1 : 0);
     if(_b_)
       /*<<digest.ml:68:9>>*/  /*<<digest.ml:68:9>>*/ caml_call1
-      (Stdlib[1], cst_Digest_BLAKE2_wrong_hash_s);
+       /*<<digest.ml:68:9>>*/ (Stdlib[1], cst_Digest_BLAKE2_wrong_hash_s);
     var
      hash_length = X[1],
      compare = Stdlib_String[10],
      equal = Stdlib_String[9];
     function string(str){
       /*<<digest.ml:85:4>>*/ return  /*<<digest.ml:85:4>>*/ caml_blake2_string
-             (hash_length, cst, str, 0, caml_ml_string_length(str));
+              /*<<digest.ml:85:4>>*/ (hash_length,
+              cst,
+              str,
+              0,
+              caml_ml_string_length(str));
      /*<<digest.ml:85:58>>*/ }
     function bytes(b){
       /*<<digest.ml:88:4>>*/ return string
-             ( /*<<digest.ml:88:11>>*/ caml_call1(Stdlib_Bytes[44], b));
+             ( /*<<digest.ml:88:11>>*/ caml_call1
+                /*<<digest.ml:88:11>>*/ (Stdlib_Bytes[44], b));
      /*<<digest.ml:88:37>>*/ }
     function substring(str, ofs, len){
      var _d_ = ofs < 0 ? 1 : 0;
@@ -24201,13 +25496,14 @@
        _e_ = _f_ || ((caml_ml_string_length(str) - len | 0) < ofs ? 1 : 0);
      if(_e_)
        /*<<digest.ml:92:9>>*/  /*<<digest.ml:92:9>>*/ caml_call1
-       (Stdlib[1], cst_Digest_substring);
+        /*<<digest.ml:92:9>>*/ (Stdlib[1], cst_Digest_substring);
       /*<<digest.ml:93:4>>*/ return  /*<<digest.ml:93:4>>*/ caml_blake2_string
-             (hash_length, cst, str, ofs, len);
+              /*<<digest.ml:93:4>>*/ (hash_length, cst, str, ofs, len);
      /*<<digest.ml:93:44>>*/ }
     function subbytes(b, ofs, len){
       /*<<digest.ml:96:4>>*/ return substring
-             ( /*<<digest.ml:96:14>>*/ caml_call1(Stdlib_Bytes[44], b),
+             ( /*<<digest.ml:96:14>>*/ caml_call1
+                /*<<digest.ml:96:14>>*/ (Stdlib_Bytes[44], b),
               ofs,
               len);
      /*<<digest.ml:96:48>>*/ }
@@ -24216,29 +25512,30 @@
       buf_size =  /*<<digest.ml:99:4>>*/ 4096,
       buf =
          /*<<digest.ml:100:14>>*/  /*<<digest.ml:100:14>>*/ caml_create_bytes
-         (4096),
+          /*<<digest.ml:100:14>>*/ (4096),
       ctx =
          /*<<digest.ml:82:18>>*/  /*<<digest.ml:82:18>>*/ runtime.caml_blake2_create
-         (hash_length, cst);
+          /*<<digest.ml:82:18>>*/ (hash_length, cst);
       /*<<digest.ml:102:4>>*/ if(0 <= toread){
       var toread$0 = toread;
        /*<<digest.ml:111:8>>*/ for(;;){
        if(0 === toread$0)
          /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
-                (ctx, hash_length);
+                 /*<<digest.ml:111:27>>*/ (ctx, hash_length);
        var
         _c_ =
            /*<<digest.ml:112:44>>*/  /*<<digest.ml:112:44>>*/ caml_call2
-           (Stdlib_Int[10], buf_size, toread$0),
+            /*<<digest.ml:112:44>>*/ (Stdlib_Int[10], buf_size, toread$0),
         n =
            /*<<digest.ml:112:18>>*/  /*<<digest.ml:112:18>>*/ caml_call4
-           (Stdlib_In_channel[16], ic, buf, 0, _c_);
+            /*<<digest.ml:112:18>>*/ (Stdlib_In_channel[16], ic, buf, 0, _c_);
         /*<<digest.ml:113:10>>*/ if(0 === n)
          /*<<digest.ml:114:15>>*/ throw  /*<<digest.ml:114:15>>*/ caml_maybe_attach_backtrace
-               (Stdlib[12], 1);
+                /*<<digest.ml:114:15>>*/ (Stdlib[12], 1);
         /*<<digest.ml:116:12>>*/  /*<<digest.ml:116:12>>*/ caml_blake2_update
-        (ctx,
-          /*<<digest.ml:116:23>>*/ caml_call1(Stdlib_Bytes[44], buf),
+         /*<<digest.ml:116:12>>*/ (ctx,
+          /*<<digest.ml:116:23>>*/ caml_call1
+           /*<<digest.ml:116:23>>*/ (Stdlib_Bytes[44], buf),
          0,
          n);
        var toread$1 = toread$0 - n | 0;
@@ -24250,20 +25547,25 @@
        var
         n$0 =
            /*<<digest.ml:104:16>>*/  /*<<digest.ml:104:16>>*/ caml_call4
-           (Stdlib_In_channel[16], ic, buf, 0, buf_size);
+            /*<<digest.ml:104:16>>*/ (Stdlib_In_channel[16],
+            ic,
+            buf,
+            0,
+            buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
          /*<<digest.ml:106:13>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
-                (ctx, hash_length);
+                 /*<<digest.ml:106:13>>*/ (ctx, hash_length);
         /*<<digest.ml:107:14>>*/  /*<<digest.ml:107:14>>*/ caml_blake2_update
-        (ctx,
-          /*<<digest.ml:107:25>>*/ caml_call1(Stdlib_Bytes[44], buf),
+         /*<<digest.ml:107:14>>*/ (ctx,
+          /*<<digest.ml:107:25>>*/ caml_call1
+           /*<<digest.ml:107:25>>*/ (Stdlib_Bytes[44], buf),
          0,
          n$0);
       }
      /*<<digest.ml:121:7>>*/ }
     function file(filename){
       /*<<digest.ml:124:4>>*/ return  /*<<digest.ml:124:38>>*/ caml_call2
-             (Stdlib_In_channel[5],
+              /*<<digest.ml:124:38>>*/ (Stdlib_In_channel[5],
               filename,
               function(ic){
                 /*<<digest.ml:124:49>>*/ return channel(ic, -1);
@@ -24271,7 +25573,7 @@
      /*<<digest.ml:124:65>>*/ }
     function output(chan, digest){
       /*<<digest.ml:126:27>>*/ return  /*<<digest.ml:126:27>>*/ caml_call2
-             (Stdlib[66], chan, digest);
+              /*<<digest.ml:126:27>>*/ (Stdlib[66], chan, digest);
      /*<<digest.ml:126:52>>*/ }
     function input(chan){
       /*<<digest.ml:128:19>>*/ return caml_call2
@@ -24280,14 +25582,14 @@
     function to_hex(d){
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
        /*<<digest.ml:131:43>>*/  /*<<digest.ml:131:43>>*/ caml_call1
-       (Stdlib[1], cst_Digest_to_hex);
+        /*<<digest.ml:131:43>>*/ (Stdlib[1], cst_Digest_to_hex);
       /*<<digest.ml:131:43>>*/ return hex_of_string(d);
      /*<<digest.ml:132:19>>*/ }
     function of_hex(s){
       /*<<digest.ml:135:4>>*/ if
       (caml_ml_string_length(s) !== (hash_length * 2 | 0))
        /*<<digest.ml:135:47>>*/  /*<<digest.ml:135:47>>*/ caml_call1
-       (Stdlib[1], cst_Digest_of_hex$0);
+        /*<<digest.ml:135:47>>*/ (Stdlib[1], cst_Digest_of_hex$0);
       /*<<digest.ml:135:47>>*/ return string_of_hex(s);
      /*<<digest.ml:136:19>>*/ }
      /*<<digest.ml:62:55>>*/ return [0,
@@ -24316,53 +25618,55 @@
     cst_Digest_from_hex = "Digest.from_hex";
    function string(str){
      /*<<digest.ml:159:4>>*/ return  /*<<digest.ml:159:4>>*/ caml_md5_string
-            (str, 0, caml_ml_string_length(str));
+             /*<<digest.ml:159:4>>*/ (str, 0, caml_ml_string_length(str));
     /*<<digest.ml:159:43>>*/ }
    function bytes(b){
      /*<<digest.ml:161:16>>*/ return string
-            ( /*<<digest.ml:161:23>>*/ caml_call1(Stdlib_Bytes[44], b));
+            ( /*<<digest.ml:161:23>>*/ caml_call1
+               /*<<digest.ml:161:23>>*/ (Stdlib_Bytes[44], b));
     /*<<digest.ml:161:49>>*/ }
    function substring(str, ofs, len){
      /*<<digest.ml:164:4>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(str) - len | 0) >= ofs)
       /*<<digest.ml:166:9>>*/ return  /*<<digest.ml:166:9>>*/ caml_md5_string
-             (str, ofs, len);
+              /*<<digest.ml:166:9>>*/ (str, ofs, len);
      /*<<digest.ml:165:9>>*/ return  /*<<digest.ml:165:9>>*/ caml_call1
-            (Stdlib[1], cst_Digest_substring$0);
+             /*<<digest.ml:165:9>>*/ (Stdlib[1], cst_Digest_substring$0);
     /*<<digest.ml:166:34>>*/ }
    function subbytes(b, ofs, len){
      /*<<digest.ml:168:27>>*/ return substring
-            ( /*<<digest.ml:168:37>>*/ caml_call1(Stdlib_Bytes[44], b),
+            ( /*<<digest.ml:168:37>>*/ caml_call1
+               /*<<digest.ml:168:37>>*/ (Stdlib_Bytes[44], b),
              ofs,
              len);
     /*<<digest.ml:168:71>>*/ }
    function file(filename){
      /*<<digest.ml:171:4>>*/ return  /*<<digest.ml:171:38>>*/ caml_call2
-            (Stdlib_In_channel[5],
+             /*<<digest.ml:171:38>>*/ (Stdlib_In_channel[5],
              filename,
              function(ic){
                /*<<digest.ml:171:49>>*/ return  /*<<digest.ml:171:49>>*/ caml_md5_chan
-                      (ic, -1);
+                       /*<<digest.ml:171:49>>*/ (ic, -1);
               /*<<digest.ml:171:64>>*/ });
     /*<<digest.ml:171:65>>*/ }
    function output(chan, digest){
      /*<<digest.ml:173:27>>*/ return  /*<<digest.ml:173:27>>*/ caml_call2
-            (Stdlib[66], chan, digest);
+             /*<<digest.ml:173:27>>*/ (Stdlib[66], chan, digest);
     /*<<digest.ml:173:52>>*/ }
    function input(chan){
      /*<<digest.ml:175:19>>*/ return  /*<<digest.ml:175:19>>*/ caml_call2
-            (Stdlib[86], chan, 16);
+             /*<<digest.ml:175:19>>*/ (Stdlib[86], chan, 16);
     /*<<digest.ml:175:46>>*/ }
    function to_hex(d){
      /*<<digest.ml:178:4>>*/ if(16 !== caml_ml_string_length(d))
       /*<<digest.ml:178:34>>*/  /*<<digest.ml:178:34>>*/ caml_call1
-      (Stdlib[1], cst_Digest_to_hex$0);
+       /*<<digest.ml:178:34>>*/ (Stdlib[1], cst_Digest_to_hex$0);
      /*<<digest.ml:178:34>>*/ return hex_of_string(d);
     /*<<digest.ml:179:19>>*/ }
    function of_hex(s){
      /*<<digest.ml:182:4>>*/ if(32 !== caml_ml_string_length(s))
       /*<<digest.ml:182:34>>*/  /*<<digest.ml:182:34>>*/ caml_call1
-      (Stdlib[1], cst_Digest_from_hex);
+       /*<<digest.ml:182:34>>*/ (Stdlib[1], cst_Digest_from_hex);
      /*<<digest.ml:182:34>>*/ return string_of_hex(s);
     /*<<digest.ml:183:19>>*/ }
    var
@@ -24491,7 +25795,10 @@
    function cloop(arr, idx, f, col, max){
      /*<<bigarray.ml:108:4>>*/ if(col === idx.length - 1){
       /*<<bigarray.ml:108:35>>*/  /*<<bigarray.ml:108:35>>*/ caml_ba_set_generic
-      (arr, idx,  /*<<bigarray.ml:108:47>>*/ caml_call1(f, idx));
+       /*<<bigarray.ml:108:35>>*/ (arr,
+       idx,
+        /*<<bigarray.ml:108:47>>*/ caml_call1
+         /*<<bigarray.ml:108:47>>*/ (f, idx));
       /*<<bigarray.ml:108:35>>*/ return;
     }
     var
@@ -24512,7 +25819,10 @@
    function floop(arr, idx, f, col, max){
      /*<<bigarray.ml:114:4>>*/ if(0 > col){
       /*<<bigarray.ml:114:20>>*/  /*<<bigarray.ml:114:20>>*/ caml_ba_set_generic
-      (arr, idx,  /*<<bigarray.ml:114:32>>*/ caml_call1(f, idx));
+       /*<<bigarray.ml:114:20>>*/ (arr,
+       idx,
+        /*<<bigarray.ml:114:32>>*/ caml_call1
+         /*<<bigarray.ml:114:32>>*/ (f, idx));
       /*<<bigarray.ml:114:20>>*/ return;
     }
     var
@@ -24533,19 +25843,21 @@
     var
      arr =
         /*<<bigarray.ml:120:14>>*/  /*<<bigarray.ml:120:14>>*/ caml_ba_create
-        (kind, layout, dims),
+         /*<<bigarray.ml:120:14>>*/ (kind, layout, dims),
      dlen =  /*<<bigarray.ml:121:4>>*/ dims.length - 1;
      /*<<bigarray.ml:122:4>>*/ return layout
             ? (floop
                (arr,
-                 /*<<bigarray.ml:124:34>>*/ caml_make_vect(dlen, 1),
+                 /*<<bigarray.ml:124:34>>*/ caml_make_vect
+                  /*<<bigarray.ml:124:34>>*/ (dlen, 1),
                 f,
                 dlen - 1 | 0,
                 dims),
               arr)
             : (cloop
                (arr,
-                 /*<<bigarray.ml:123:28>>*/ caml_make_vect(dlen, 0),
+                 /*<<bigarray.ml:123:28>>*/ caml_make_vect
+                  /*<<bigarray.ml:123:28>>*/ (dlen, 0),
                 f,
                 0,
                 dims),
@@ -24555,10 +25867,10 @@
     var
      n =
         /*<<bigarray.ml:129:12>>*/  /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims
-        (a),
+         /*<<bigarray.ml:129:12>>*/ (a),
      d =
         /*<<bigarray.ml:130:12>>*/  /*<<bigarray.ml:130:12>>*/ caml_make_vect
-        (n, 0),
+         /*<<bigarray.ml:130:12>>*/ (n, 0),
      _af_ =  /*<<bigarray.ml:131:4>>*/ n - 1 | 0,
      _ae_ =  /*<<bigarray.ml:130:12>>*/ 0;
     if(_af_ >= 0){
@@ -24567,7 +25879,7 @@
       var
        _ag_ =
           /*<<bigarray.ml:131:33>>*/  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim
-          (a, i);
+           /*<<bigarray.ml:131:33>>*/ (a, i);
        /*<<bigarray.ml:131:24>>*/ caml_check_bound(d, i)[1 + i] = _ag_;
       var _ah_ =  /*<<bigarray.ml:131:24>>*/ i + 1 | 0;
       if(_af_ === i) break;
@@ -24581,18 +25893,20 @@
      _ac_ =  /*<<bigarray.ml:140:63>>*/ dims(arr),
      _ad_ =
         /*<<bigarray.ml:140:38>>*/  /*<<bigarray.ml:140:38>>*/ caml_call3
-        (Stdlib_Array[18], caml_mul, 1, _ac_);
+         /*<<bigarray.ml:140:38>>*/ (Stdlib_Array[18], caml_mul, 1, _ac_);
      /*<<bigarray.ml:140:4>>*/ return  /*<<bigarray.ml:140:4>>*/ caml_mul
-            (kind_size_in_bytes( /*<<bigarray.ml:140:24>>*/ caml_ba_kind(arr)),
+             /*<<bigarray.ml:140:4>>*/ (kind_size_in_bytes
+              ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind
+                 /*<<bigarray.ml:140:24>>*/ (arr)),
              _ad_);
     /*<<bigarray.ml:140:74>>*/ }
    function create(kind, layout){
      /*<<bigarray.ml:161:4>>*/ return  /*<<bigarray.ml:161:4>>*/ caml_ba_create
-            (kind, layout, [0]);
+             /*<<bigarray.ml:161:4>>*/ (kind, layout, [0]);
     /*<<bigarray.ml:161:36>>*/ }
    function get(arr){
      /*<<bigarray.ml:162:16>>*/ return  /*<<bigarray.ml:162:16>>*/ runtime.caml_ba_get_generic
-            (arr, [0]);
+             /*<<bigarray.ml:162:16>>*/ (arr, [0]);
     /*<<bigarray.ml:162:37>>*/ }
    function set(arr){
     var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
@@ -24601,7 +25915,8 @@
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
      /*<<bigarray.ml:170:26>>*/ return kind_size_in_bytes
-            ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind(arr));
+            ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind
+               /*<<bigarray.ml:170:45>>*/ (arr));
     /*<<bigarray.ml:170:55>>*/ }
    function of_value(kind, layout, v){
     var a =  /*<<bigarray.ml:176:12>>*/ create(kind, layout);
@@ -24610,22 +25925,26 @@
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
      /*<<bigarray.ml:185:4>>*/ return  /*<<bigarray.ml:185:4>>*/ caml_ba_create
-            (kind, layout, [0, dim]);
+             /*<<bigarray.ml:185:4>>*/ (kind, layout, [0, dim]);
     /*<<bigarray.ml:185:39>>*/ }
    function size_in_bytes$1(arr){
     var
      _$_ =
         /*<<bigarray.ml:199:38>>*/  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1
-        (arr);
+         /*<<bigarray.ml:199:38>>*/ (arr);
      /*<<bigarray.ml:199:4>>*/ return  /*<<bigarray.ml:199:4>>*/ caml_mul
-            (kind_size_in_bytes( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
+             /*<<bigarray.ml:199:4>>*/ (kind_size_in_bytes
+              ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind
+                 /*<<bigarray.ml:199:24>>*/ (arr)),
              _$_);
     /*<<bigarray.ml:199:47>>*/ }
    function slice(a, n){
      /*<<bigarray.ml:203:4>>*/ return  /*<<bigarray.ml:203:10>>*/ runtime.caml_ba_layout
-             (a)
-            ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice(a, [0, n])
-            :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice(a, [0, n]);
+              /*<<bigarray.ml:203:10>>*/ (a)
+            ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice
+               /*<<bigarray.ml:205:25>>*/ (a, [0, n])
+            :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice
+               /*<<bigarray.ml:204:19>>*/ (a, [0, n]);
     /*<<bigarray.ml:205:76>>*/ }
    function init$0(kind, layout, dim, f){
     var arr =  /*<<bigarray.ml:213:14>>*/ create$0(kind, layout, dim);
@@ -24635,7 +25954,10 @@
       var i$0 = _Z_;
       for(;;){
         /*<<bigarray.ml:211:24>>*/  /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
-        (arr, i$0,  /*<<bigarray.ml:211:41>>*/ caml_call1(f, i$0));
+         /*<<bigarray.ml:211:24>>*/ (arr,
+         i$0,
+          /*<<bigarray.ml:211:41>>*/ caml_call1
+           /*<<bigarray.ml:211:41>>*/ (f, i$0));
        var ___ =  /*<<bigarray.ml:211:24>>*/ i$0 + 1 | 0;
        if(dim === i$0) break;
        i$0 = ___;
@@ -24648,7 +25970,10 @@
      var i = _W_;
      for(;;){
        /*<<bigarray.ml:209:29>>*/  /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
-       (arr, i,  /*<<bigarray.ml:209:46>>*/ caml_call1(f, i));
+        /*<<bigarray.ml:209:29>>*/ (arr,
+        i,
+         /*<<bigarray.ml:209:46>>*/ caml_call1
+          /*<<bigarray.ml:209:46>>*/ (f, i));
       var _Y_ =  /*<<bigarray.ml:209:29>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
@@ -24666,7 +25991,9 @@
      var i = _T_;
      for(;;){
        /*<<bigarray.ml:224:42>>*/  /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
-       (ba, i + ofs | 0, caml_check_bound(data, i)[1 + i]);
+        /*<<bigarray.ml:224:42>>*/ (ba,
+        i + ofs | 0,
+        caml_check_bound(data, i)[1 + i]);
       var _V_ =  /*<<bigarray.ml:224:42>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
@@ -24676,30 +26003,31 @@
     /*<<bigarray.ml:225:6>>*/ }
    function create$1(kind, layout, dim1, dim2){
      /*<<bigarray.ml:231:4>>*/ return  /*<<bigarray.ml:231:4>>*/ caml_ba_create
-            (kind, layout, [0, dim1, dim2]);
+             /*<<bigarray.ml:231:4>>*/ (kind, layout, [0, dim1, dim2]);
     /*<<bigarray.ml:231:46>>*/ }
    function size_in_bytes$2(arr){
     var
      _R_ =
         /*<<bigarray.ml:247:51>>*/  /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2
-        (arr),
+         /*<<bigarray.ml:247:51>>*/ (arr),
      _S_ =
         /*<<bigarray.ml:247:38>>*/  /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1
-        (arr);
+         /*<<bigarray.ml:247:38>>*/ (arr);
     return caml_mul
             ( /*<<bigarray.ml:247:4>>*/ caml_mul
-              (kind_size_in_bytes
-                ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind(arr)),
+               /*<<bigarray.ml:247:4>>*/ (kind_size_in_bytes
+                ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind
+                   /*<<bigarray.ml:247:24>>*/ (arr)),
                _S_),
              _R_);
     /*<<bigarray.ml:247:61>>*/ }
    function slice_left(a, n){
      /*<<bigarray.ml:254:23>>*/ return  /*<<bigarray.ml:254:23>>*/ caml_ba_slice
-            (a, [0, n]);
+             /*<<bigarray.ml:254:23>>*/ (a, [0, n]);
     /*<<bigarray.ml:254:50>>*/ }
    function slice_right(a, n){
      /*<<bigarray.ml:255:24>>*/ return  /*<<bigarray.ml:255:24>>*/ caml_ba_slice
-            (a, [0, n]);
+             /*<<bigarray.ml:255:24>>*/ (a, [0, n]);
     /*<<bigarray.ml:255:52>>*/ }
    function init$1(kind, layout, dim1, dim2, f){
     var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
@@ -24713,7 +26041,11 @@
         var i$0 = _O_;
         for(;;){
           /*<<bigarray.ml:267:8>>*/  /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
-          (arr, i$0, j$0,  /*<<bigarray.ml:267:27>>*/ caml_call2(f, i$0, j$0));
+           /*<<bigarray.ml:267:8>>*/ (arr,
+           i$0,
+           j$0,
+            /*<<bigarray.ml:267:27>>*/ caml_call2
+             /*<<bigarray.ml:267:27>>*/ (f, i$0, j$0));
          var _Q_ =  /*<<bigarray.ml:267:8>>*/ i$0 + 1 | 0;
          if(dim1 === i$0) break;
          i$0 = _Q_;
@@ -24735,7 +26067,11 @@
        var j = _J_;
        for(;;){
          /*<<bigarray.ml:261:8>>*/  /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
-         (arr, i, j,  /*<<bigarray.ml:261:27>>*/ caml_call2(f, i, j));
+          /*<<bigarray.ml:261:8>>*/ (arr,
+          i,
+          j,
+           /*<<bigarray.ml:261:27>>*/ caml_call2
+            /*<<bigarray.ml:261:27>>*/ (f, i, j));
         var _M_ =  /*<<bigarray.ml:261:8>>*/ j + 1 | 0;
         if(_K_ === j) break;
         j = _M_;
@@ -24765,7 +26101,7 @@
       var row =  /*<<bigarray.ml:285:16>>*/ caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
         /*<<bigarray.ml:287:8>>*/  /*<<bigarray.ml:287:8>>*/ caml_call1
-        (Stdlib[1], cst_Bigarray_Array2_of_array_n);
+         /*<<bigarray.ml:287:8>>*/ (Stdlib[1], cst_Bigarray_Array2_of_array_n);
       var
        _E_ =  /*<<bigarray.ml:277:32>>*/ dim2 - 1 | 0,
        _D_ =  /*<<bigarray.ml:287:8>>*/ 0;
@@ -24773,7 +26109,10 @@
        var j = _D_;
        for(;;){
          /*<<bigarray.ml:289:8>>*/  /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
-         (ba, i + ofs | 0, j + ofs | 0, caml_check_bound(row, j)[1 + j]);
+          /*<<bigarray.ml:289:8>>*/ (ba,
+          i + ofs | 0,
+          j + ofs | 0,
+          caml_check_bound(row, j)[1 + j]);
         var _G_ =  /*<<bigarray.ml:289:8>>*/ j + 1 | 0;
         if(_E_ === j) break;
         j = _G_;
@@ -24788,43 +26127,44 @@
     /*<<bigarray.ml:292:6>>*/ }
    function create$2(kind, layout, dim1, dim2, dim3){
      /*<<bigarray.ml:298:4>>*/ return  /*<<bigarray.ml:298:4>>*/ caml_ba_create
-            (kind, layout, [0, dim1, dim2, dim3]);
+             /*<<bigarray.ml:298:4>>*/ (kind, layout, [0, dim1, dim2, dim3]);
     /*<<bigarray.ml:298:52>>*/ }
    function size_in_bytes$3(arr){
     var
      _y_ =
         /*<<bigarray.ml:316:64>>*/  /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3
-        (arr),
+         /*<<bigarray.ml:316:64>>*/ (arr),
      _z_ =
         /*<<bigarray.ml:316:51>>*/  /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2
-        (arr),
+         /*<<bigarray.ml:316:51>>*/ (arr),
      _A_ =
         /*<<bigarray.ml:316:38>>*/  /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1
-        (arr);
+         /*<<bigarray.ml:316:38>>*/ (arr);
     return caml_mul
             (caml_mul
               ( /*<<bigarray.ml:316:4>>*/ caml_mul
-                (kind_size_in_bytes
-                  ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind(arr)),
+                 /*<<bigarray.ml:316:4>>*/ (kind_size_in_bytes
+                  ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind
+                     /*<<bigarray.ml:316:24>>*/ (arr)),
                  _A_),
                _z_),
              _y_);
     /*<<bigarray.ml:316:74>>*/ }
    function slice_left_1(a, n, m){
      /*<<bigarray.ml:323:27>>*/ return  /*<<bigarray.ml:323:27>>*/ caml_ba_slice
-            (a, [0, n, m]);
+             /*<<bigarray.ml:323:27>>*/ (a, [0, n, m]);
     /*<<bigarray.ml:323:57>>*/ }
    function slice_right_1(a, n, m){
      /*<<bigarray.ml:324:28>>*/ return  /*<<bigarray.ml:324:28>>*/ caml_ba_slice
-            (a, [0, n, m]);
+             /*<<bigarray.ml:324:28>>*/ (a, [0, n, m]);
     /*<<bigarray.ml:324:59>>*/ }
    function slice_left_2(a, n){
      /*<<bigarray.ml:325:25>>*/ return  /*<<bigarray.ml:325:25>>*/ caml_ba_slice
-            (a, [0, n]);
+             /*<<bigarray.ml:325:25>>*/ (a, [0, n]);
     /*<<bigarray.ml:325:52>>*/ }
    function slice_right_2(a, n){
      /*<<bigarray.ml:326:26>>*/ return  /*<<bigarray.ml:326:26>>*/ caml_ba_slice
-            (a, [0, n]);
+             /*<<bigarray.ml:326:26>>*/ (a, [0, n]);
     /*<<bigarray.ml:326:54>>*/ }
    function init$2(kind, layout, dim1, dim2, dim3, f){
     var
@@ -24844,11 +26184,12 @@
           var i$0 = _v_;
           for(;;){
             /*<<bigarray.ml:341:10>>*/  /*<<bigarray.ml:341:10>>*/ caml_ba_set_3
-            (arr,
+             /*<<bigarray.ml:341:10>>*/ (arr,
              i$0,
              j$0,
              k$0,
-              /*<<bigarray.ml:341:31>>*/ caml_call3(f, i$0, j$0, k$0));
+              /*<<bigarray.ml:341:31>>*/ caml_call3
+               /*<<bigarray.ml:341:31>>*/ (f, i$0, j$0, k$0));
            var _x_ =  /*<<bigarray.ml:341:10>>*/ i$0 + 1 | 0;
            if(dim1 === i$0) break;
            i$0 = _x_;
@@ -24879,7 +26220,12 @@
          var k = _o_;
          for(;;){
            /*<<bigarray.ml:333:10>>*/  /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
-           (arr, i, j, k,  /*<<bigarray.ml:333:31>>*/ caml_call3(f, i, j, k));
+            /*<<bigarray.ml:333:10>>*/ (arr,
+            i,
+            j,
+            k,
+             /*<<bigarray.ml:333:31>>*/ caml_call3
+              /*<<bigarray.ml:333:31>>*/ (f, i, j, k));
           var _r_ =  /*<<bigarray.ml:333:10>>*/ k + 1 | 0;
           if(_p_ === k) break;
           k = _r_;
@@ -24918,7 +26264,7 @@
       var row =  /*<<bigarray.ml:361:16>>*/ caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
         /*<<bigarray.ml:363:8>>*/  /*<<bigarray.ml:363:8>>*/ caml_call1
-        (Stdlib[1], cst_Bigarray_Array3_of_array_n);
+         /*<<bigarray.ml:363:8>>*/ (Stdlib[1], cst_Bigarray_Array3_of_array_n);
       var
        _d_ =  /*<<bigarray.ml:352:32>>*/ dim2 - 1 | 0,
        _c_ =  /*<<bigarray.ml:363:8>>*/ 0;
@@ -24928,7 +26274,8 @@
         var col =  /*<<bigarray.ml:365:18>>*/ caml_check_bound(row, j)[1 + j];
         if(col.length - 1 !== dim3)
           /*<<bigarray.ml:367:10>>*/  /*<<bigarray.ml:367:10>>*/ caml_call1
-          (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
+           /*<<bigarray.ml:367:10>>*/ (Stdlib[1],
+           cst_Bigarray_Array3_of_array_n$0);
         var
          _g_ =  /*<<bigarray.ml:353:32>>*/ dim3 - 1 | 0,
          _f_ =  /*<<bigarray.ml:367:10>>*/ 0;
@@ -24936,7 +26283,7 @@
          var k = _f_;
          for(;;){
            /*<<bigarray.ml:369:10>>*/  /*<<bigarray.ml:369:10>>*/ caml_ba_set_3
-           (ba,
+            /*<<bigarray.ml:369:10>>*/ (ba,
             i + ofs | 0,
             j + ofs | 0,
             k + ofs | 0,
@@ -24960,47 +26307,59 @@
     /*<<bigarray.ml:373:6>>*/ }
    function array0_of_genarray(a){
      /*<<bigarray.ml:385:2>>*/ return 0
-            ===  /*<<bigarray.ml:385:5>>*/ caml_ba_num_dims(a)
+            ===
+              /*<<bigarray.ml:385:5>>*/ caml_ba_num_dims
+               /*<<bigarray.ml:385:5>>*/ (a)
             ? a
             :  /*<<bigarray.ml:386:7>>*/ caml_call1
-              (Stdlib[1], cst_Bigarray_array0_of_genarra);
+               /*<<bigarray.ml:386:7>>*/ (Stdlib[1],
+               cst_Bigarray_array0_of_genarra);
     /*<<bigarray.ml:386:48>>*/ }
    function array1_of_genarray(a){
      /*<<bigarray.ml:388:2>>*/ return 1
-            ===  /*<<bigarray.ml:388:5>>*/ caml_ba_num_dims(a)
+            ===
+              /*<<bigarray.ml:388:5>>*/ caml_ba_num_dims
+               /*<<bigarray.ml:388:5>>*/ (a)
             ? a
             :  /*<<bigarray.ml:389:7>>*/ caml_call1
-              (Stdlib[1], cst_Bigarray_array1_of_genarra);
+               /*<<bigarray.ml:389:7>>*/ (Stdlib[1],
+               cst_Bigarray_array1_of_genarra);
     /*<<bigarray.ml:389:48>>*/ }
    function array2_of_genarray(a){
      /*<<bigarray.ml:391:2>>*/ return 2
-            ===  /*<<bigarray.ml:391:5>>*/ caml_ba_num_dims(a)
+            ===
+              /*<<bigarray.ml:391:5>>*/ caml_ba_num_dims
+               /*<<bigarray.ml:391:5>>*/ (a)
             ? a
             :  /*<<bigarray.ml:392:7>>*/ caml_call1
-              (Stdlib[1], cst_Bigarray_array2_of_genarra);
+               /*<<bigarray.ml:392:7>>*/ (Stdlib[1],
+               cst_Bigarray_array2_of_genarra);
     /*<<bigarray.ml:392:48>>*/ }
    function array3_of_genarray(a){
      /*<<bigarray.ml:394:2>>*/ return 3
-            ===  /*<<bigarray.ml:394:5>>*/ caml_ba_num_dims(a)
+            ===
+              /*<<bigarray.ml:394:5>>*/ caml_ba_num_dims
+               /*<<bigarray.ml:394:5>>*/ (a)
             ? a
             :  /*<<bigarray.ml:395:7>>*/ caml_call1
-              (Stdlib[1], cst_Bigarray_array3_of_genarra);
+               /*<<bigarray.ml:395:7>>*/ (Stdlib[1],
+               cst_Bigarray_array3_of_genarra);
     /*<<bigarray.ml:395:48>>*/ }
    function reshape_0(a){
      /*<<bigarray.ml:400:18>>*/ return  /*<<bigarray.ml:400:18>>*/ caml_ba_reshape
-            (a, [0]);
+             /*<<bigarray.ml:400:18>>*/ (a, [0]);
     /*<<bigarray.ml:400:32>>*/ }
    function reshape_1(a, dim1){
      /*<<bigarray.ml:401:23>>*/ return  /*<<bigarray.ml:401:23>>*/ caml_ba_reshape
-            (a, [0, dim1]);
+             /*<<bigarray.ml:401:23>>*/ (a, [0, dim1]);
     /*<<bigarray.ml:401:41>>*/ }
    function reshape_2(a, dim1, dim2){
      /*<<bigarray.ml:402:28>>*/ return  /*<<bigarray.ml:402:28>>*/ caml_ba_reshape
-            (a, [0, dim1, dim2]);
+             /*<<bigarray.ml:402:28>>*/ (a, [0, dim1, dim2]);
     /*<<bigarray.ml:402:51>>*/ }
    function reshape_3(a, dim1, dim2, dim3){
      /*<<bigarray.ml:403:33>>*/ return  /*<<bigarray.ml:403:33>>*/ caml_ba_reshape
-            (a, [0, dim1, dim2, dim3]);
+             /*<<bigarray.ml:403:33>>*/ (a, [0, dim1, dim2, dim3]);
     /*<<bigarray.ml:403:61>>*/ }
    var
     Stdlib_Bigarray =
@@ -25134,27 +26493,32 @@
     _e_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0);
    function create(param){
      /*<<random.ml:31:4>>*/ return  /*<<random.ml:31:4>>*/ caml_call3
-            (Stdlib_Bigarray[20][1], 7, 0, 4);
+             /*<<random.ml:31:4>>*/ (Stdlib_Bigarray[20][1], 7, 0, 4);
     /*<<random.ml:31:34>>*/ }
    function set(s, i1, i2, i3, i4){
      /*<<random.ml:34:4>>*/  /*<<random.ml:34:4>>*/ caml_ba_set_1
-     (s, 0,  /*<<random.ml:34:26>>*/ runtime.caml_int64_or(i1, _a_));
-     /*<<random.ml:35:4>>*/  /*<<random.ml:35:4>>*/ caml_ba_set_1(s, 1, i2);
+      /*<<random.ml:34:4>>*/ (s,
+      0,
+       /*<<random.ml:34:26>>*/ runtime.caml_int64_or
+        /*<<random.ml:34:26>>*/ (i1, _a_));
+     /*<<random.ml:35:4>>*/  /*<<random.ml:35:4>>*/ caml_ba_set_1
+      /*<<random.ml:35:4>>*/ (s, 1, i2);
     var
      i3$0 =
         /*<<random.ml:36:30>>*/  /*<<random.ml:36:30>>*/ caml_notequal
-         (i3, _b_)
+          /*<<random.ml:36:30>>*/ (i3, _b_)
         ? i3
         : _e_;
-     /*<<random.ml:36:4>>*/  /*<<random.ml:36:4>>*/ caml_ba_set_1(s, 2, i3$0);
+     /*<<random.ml:36:4>>*/  /*<<random.ml:36:4>>*/ caml_ba_set_1
+      /*<<random.ml:36:4>>*/ (s, 2, i3$0);
     var
      i4$0 =
         /*<<random.ml:37:30>>*/  /*<<random.ml:37:30>>*/ caml_notequal
-         (i4, _c_)
+          /*<<random.ml:37:30>>*/ (i4, _c_)
         ? i4
         : _d_;
      /*<<random.ml:37:4>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
-            (s, 3, i4$0);
+             /*<<random.ml:37:4>>*/ (s, 3, i4$0);
     /*<<random.ml:37:55>>*/ }
    function mk(i1, i2, i3, i4){
     var s =  /*<<random.ml:40:12>>*/ create(0);
@@ -25168,9 +26532,10 @@
    function to_binary_string(s){
     var
      buf =
-        /*<<random.ml:63:14>>*/  /*<<random.ml:63:14>>*/ caml_create_bytes(37);
+        /*<<random.ml:63:14>>*/  /*<<random.ml:63:14>>*/ caml_create_bytes
+         /*<<random.ml:63:14>>*/ (37);
      /*<<random.ml:64:4>>*/  /*<<random.ml:64:4>>*/ caml_call5
-     (Stdlib_Bytes[12],
+      /*<<random.ml:64:4>>*/ (Stdlib_Bytes[12],
       serialization_prefix,
       0,
       buf,
@@ -25181,13 +26546,16 @@
      var
       _y_ =
          /*<<random.ml:66:47>>*/  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1
-         (s, i);
+          /*<<random.ml:66:47>>*/ (s, i);
       /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ caml_call3
-      (Stdlib_Bytes[86], buf, 5 + (i * 8 | 0) | 0, _y_);
+       /*<<random.ml:66:6>>*/ (Stdlib_Bytes[86],
+       buf,
+       5 + (i * 8 | 0) | 0,
+       _y_);
      var _z_ =  /*<<random.ml:66:6>>*/ i + 1 | 0;
      if(3 === i)
        /*<<random.ml:68:4>>*/ return  /*<<random.ml:68:4>>*/ caml_call1
-              (Stdlib_Bytes[44], buf);
+               /*<<random.ml:68:4>>*/ (Stdlib_Bytes[44], buf);
      i = _z_;
     }
     /*<<random.ml:68:30>>*/ }
@@ -25200,33 +26568,38 @@
         1
         -
           /*<<random.ml:74:14>>*/ caml_call2
-          (Stdlib_String[11], serialization_prefix, buf);
+           /*<<random.ml:74:14>>*/ (Stdlib_String[11],
+           serialization_prefix,
+           buf);
     if(_w_){
      var
       _x_ =
          /*<<random.ml:77:8>>*/  /*<<random.ml:77:8>>*/ caml_call2
-         (Stdlib[28], cst_Random_State_of_binary_str, Stdlib_Sys[46]);
+          /*<<random.ml:77:8>>*/ (Stdlib[28],
+          cst_Random_State_of_binary_str,
+          Stdlib_Sys[46]);
       /*<<random.ml:76:6>>*/  /*<<random.ml:76:6>>*/ caml_call1
-      (Stdlib[2], _x_);
+       /*<<random.ml:76:6>>*/ (Stdlib[2], _x_);
     }
     var
      i1 =
         /*<<random.ml:79:13>>*/  /*<<random.ml:79:13>>*/ caml_call2
-        (Stdlib_String[64], buf, 5),
+         /*<<random.ml:79:13>>*/ (Stdlib_String[64], buf, 5),
      i2 =
         /*<<random.ml:80:13>>*/  /*<<random.ml:80:13>>*/ caml_call2
-        (Stdlib_String[64], buf, 13),
+         /*<<random.ml:80:13>>*/ (Stdlib_String[64], buf, 13),
      i3 =
         /*<<random.ml:81:13>>*/  /*<<random.ml:81:13>>*/ caml_call2
-        (Stdlib_String[64], buf, 21),
+         /*<<random.ml:81:13>>*/ (Stdlib_String[64], buf, 21),
      i4 =
         /*<<random.ml:82:13>>*/  /*<<random.ml:82:13>>*/ caml_call2
-        (Stdlib_String[64], buf, 29);
+         /*<<random.ml:82:13>>*/ (Stdlib_String[64], buf, 29);
      /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4);
     /*<<random.ml:83:18>>*/ }
    function copy(src){
     var dst =  /*<<random.ml:89:13>>*/ create(0);
-     /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit(src, dst);
+     /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit
+      /*<<random.ml:86:4>>*/ (src, dst);
      /*<<random.ml:89:25>>*/ return dst;
     /*<<random.ml:89:40>>*/ }
    function reinit(s, seed){
@@ -25234,7 +26607,7 @@
      n = seed.length - 1,
      b =
         /*<<random.ml:98:12>>*/  /*<<random.ml:98:12>>*/ caml_create_bytes
-        ((n * 8 | 0) + 1 | 0),
+         /*<<random.ml:98:12>>*/ ((n * 8 | 0) + 1 | 0),
      _p_ =  /*<<random.ml:99:4>>*/ n - 1 | 0,
      _o_ =  /*<<random.ml:98:12>>*/ 0;
     if(_p_ >= 0){
@@ -25243,38 +26616,39 @@
       var
        _t_ =
           /*<<random.ml:100:35>>*/  /*<<random.ml:100:35>>*/ caml_int64_of_int32
-          (runtime.caml_check_bound(seed, i)[1 + i]);
+           /*<<random.ml:100:35>>*/ (runtime.caml_check_bound(seed, i)[1 + i]);
        /*<<random.ml:100:6>>*/  /*<<random.ml:100:6>>*/ caml_call3
-       (Stdlib_Bytes[86], b, i * 8 | 0, _t_);
+        /*<<random.ml:100:6>>*/ (Stdlib_Bytes[86], b, i * 8 | 0, _t_);
       var _u_ =  /*<<random.ml:100:6>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _u_;
      }
     }
      /*<<random.ml:102:4>>*/  /*<<random.ml:102:4>>*/ caml_bytes_set
-     (b, n * 8 | 0, 1);
+      /*<<random.ml:102:4>>*/ (b, n * 8 | 0, 1);
     var
      d1 =
         /*<<random.ml:103:13>>*/  /*<<random.ml:103:13>>*/ caml_call1
-        (Stdlib_Digest[4], b);
+         /*<<random.ml:103:13>>*/ (Stdlib_Digest[4], b);
      /*<<random.ml:104:4>>*/  /*<<random.ml:104:4>>*/ caml_bytes_set
-     (b, n * 8 | 0, 2);
+      /*<<random.ml:104:4>>*/ (b, n * 8 | 0, 2);
     var
      d2 =
         /*<<random.ml:105:13>>*/  /*<<random.ml:105:13>>*/ caml_call1
-        (Stdlib_Digest[4], b),
+         /*<<random.ml:105:13>>*/ (Stdlib_Digest[4], b),
      _q_ =
         /*<<random.ml:109:10>>*/  /*<<random.ml:109:10>>*/ caml_call2
-        (Stdlib_String[64], d2, 8),
+         /*<<random.ml:109:10>>*/ (Stdlib_String[64], d2, 8),
      _r_ =
         /*<<random.ml:108:10>>*/  /*<<random.ml:108:10>>*/ caml_call2
-        (Stdlib_String[64], d2, 0),
+         /*<<random.ml:108:10>>*/ (Stdlib_String[64], d2, 0),
      _s_ =
         /*<<random.ml:107:10>>*/  /*<<random.ml:107:10>>*/ caml_call2
-        (Stdlib_String[64], d1, 8);
+         /*<<random.ml:107:10>>*/ (Stdlib_String[64], d1, 8);
      /*<<random.ml:109:10>>*/ return set
             (s,
-              /*<<random.ml:106:10>>*/ caml_call2(Stdlib_String[64], d1, 0),
+              /*<<random.ml:106:10>>*/ caml_call2
+               /*<<random.ml:106:10>>*/ (Stdlib_String[64], d1, 0),
              _s_,
              _r_,
              _q_);
@@ -25286,7 +26660,8 @@
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
      /*<<random.ml:115:4>>*/ return make
-            ( /*<<random.ml:115:9>>*/ caml_sys_random_seed(0));
+            ( /*<<random.ml:115:9>>*/ caml_sys_random_seed
+               /*<<random.ml:115:9>>*/ (0));
     /*<<random.ml:115:25>>*/ }
    var
     max_int31 = 1073741823,
@@ -25298,7 +26673,8 @@
     cst_Random_int32_in_range = "Random.int32_in_range";
    function bits(s){
      /*<<random.ml:129:4>>*/ return  /*<<random.ml:129:17>>*/ caml_int64_to_int32
-            ( /*<<random.ml:129:17>>*/ caml_lxm_next(s))
+             /*<<random.ml:129:17>>*/ ( /*<<random.ml:129:17>>*/ caml_lxm_next
+               /*<<random.ml:129:17>>*/ (s))
            & 1073741823;
     /*<<random.ml:129:40>>*/ }
    function int_aux(s, n, mask){
@@ -25306,7 +26682,8 @@
      var
       r =
          /*<<random.ml:138:25>>*/ caml_int64_to_int32
-         ( /*<<random.ml:138:25>>*/ caml_lxm_next(s))
+          /*<<random.ml:138:25>>*/ ( /*<<random.ml:138:25>>*/ caml_lxm_next
+            /*<<random.ml:138:25>>*/ (s))
         & mask,
       v = caml_mod(r, n);
      if(((mask - n | 0) + 1 | 0) >= (r - v | 0))
@@ -25317,12 +26694,12 @@
      /*<<random.ml:154:4>>*/ if(1073741823 >= bound && 0 < bound)
      return int_aux(s, bound, max_int31);
      /*<<random.ml:155:9>>*/ return  /*<<random.ml:155:9>>*/ caml_call1
-            (Stdlib[1], cst_Random_int);
+             /*<<random.ml:155:9>>*/ (Stdlib[1], cst_Random_int);
     /*<<random.ml:156:34>>*/ }
    function full_int(s, bound){
      /*<<random.ml:161:4>>*/ if(0 >= bound)
       /*<<random.ml:162:6>>*/ return  /*<<random.ml:162:6>>*/ caml_call1
-             (Stdlib[1], cst_Random_full_int);
+              /*<<random.ml:162:6>>*/ (Stdlib[1], cst_Random_full_int);
     var
      _n_ =
        bound <= 1073741823
@@ -25338,7 +26715,8 @@
       drop = Stdlib_Sys[10] - nbits | 0,
       r =
          /*<<random.ml:186:27>>*/ caml_int64_to_int32
-         ( /*<<random.ml:186:27>>*/ caml_lxm_next(s))
+          /*<<random.ml:186:27>>*/ ( /*<<random.ml:186:27>>*/ caml_lxm_next
+            /*<<random.ml:186:27>>*/ (s))
         << drop
         >> drop;
      if(r >= min && max >= r)  /*<<random.ml:187:74>>*/ return r;
@@ -25347,7 +26725,7 @@
    function int_in_range(s, min, max){
      /*<<random.ml:206:4>>*/ if(max < min)
       /*<<random.ml:207:6>>*/  /*<<random.ml:207:6>>*/ caml_call1
-      (Stdlib[1], cst_Random_int_in_range);
+       /*<<random.ml:207:6>>*/ (Stdlib[1], cst_Random_int_in_range);
     if(-1073741824 <= min && max <= 1073741823)
       /*<<random.ml:215:6>>*/ return int_in_range_aux
              (s, min, max, max_int31, 31);
@@ -25359,47 +26737,59 @@
     /*<<random.ml:219:68>>*/ }
    function bits32(s){
      /*<<random.ml:223:4>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
-            ( /*<<random.ml:223:19>>*/ caml_lxm_next(s));
+             /*<<random.ml:223:4>>*/ ( /*<<random.ml:223:19>>*/ caml_lxm_next
+               /*<<random.ml:223:19>>*/ (s));
     /*<<random.ml:223:27>>*/ }
    function int32aux(s, n){
      /*<<random.ml:227:4>>*/ for(;;){
      var
       r =  /*<<random.ml:227:12>>*/ bits32(s) >>> 1 | 0,
-      v =  /*<<random.ml:228:12>>*/  /*<<random.ml:228:12>>*/ caml_mod(r, n);
+      v =
+         /*<<random.ml:228:12>>*/  /*<<random.ml:228:12>>*/ caml_mod
+          /*<<random.ml:228:12>>*/ (r, n);
       /*<<random.ml:230:14>>*/ if
       (!
         /*<<random.ml:230:14>>*/ caml_greaterthan
-        (r - v | 0, (Stdlib_Int32[9] - n | 0) + 1 | 0))
+         /*<<random.ml:230:14>>*/ (r - v | 0,
+         (Stdlib_Int32[9] - n | 0) + 1 | 0))
        /*<<random.ml:232:9>>*/ return v;
     }
     /*<<random.ml:232:10>>*/ }
    function int32(s, bound){
      /*<<random.ml:235:4>>*/ return  /*<<random.ml:235:7>>*/ caml_lessequal
-             (bound, 0)
-            ?  /*<<random.ml:236:9>>*/ caml_call1(Stdlib[1], cst_Random_int32)
+              /*<<random.ml:235:7>>*/ (bound, 0)
+            ?  /*<<random.ml:236:9>>*/ caml_call1
+               /*<<random.ml:236:9>>*/ (Stdlib[1], cst_Random_int32)
             : int32aux(s, bound);
     /*<<random.ml:237:25>>*/ }
    function int32_in_range(s, min, max){
      /*<<random.ml:246:4>>*/ if
-     ( /*<<random.ml:246:7>>*/ caml_greaterthan(min, max))
+     ( /*<<random.ml:246:7>>*/ caml_greaterthan
+        /*<<random.ml:246:7>>*/ (min, max))
       /*<<random.ml:247:6>>*/ return  /*<<random.ml:247:6>>*/ caml_call1
-             (Stdlib[1], cst_Random_int32_in_range);
+              /*<<random.ml:247:6>>*/ (Stdlib[1], cst_Random_int32_in_range);
     var
      span =
         /*<<random.ml:249:17>>*/  /*<<random.ml:249:17>>*/ caml_call1
-        (Stdlib_Int32[6], max - min | 0);
+         /*<<random.ml:249:17>>*/ (Stdlib_Int32[6], max - min | 0);
      /*<<random.ml:251:9>>*/ if
-     (!  /*<<random.ml:251:9>>*/ caml_lessequal(span, Stdlib_Int32[1]))
+     (!
+       /*<<random.ml:251:9>>*/ caml_lessequal
+        /*<<random.ml:251:9>>*/ (span, Stdlib_Int32[1]))
       /*<<random.ml:254:8>>*/ return min + int32aux(s, span) | 0;
      /*<<random.ml:242:4>>*/ for(;;){
      var
       r =
          /*<<random.ml:242:12>>*/  /*<<random.ml:242:12>>*/ caml_int64_to_int32
-         ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
+          /*<<random.ml:242:12>>*/ ( /*<<random.ml:242:27>>*/ caml_lxm_next
+            /*<<random.ml:242:27>>*/ (s));
       /*<<random.ml:243:7>>*/ if
       (!
-        /*<<random.ml:243:7>>*/ caml_lessthan(r, min)
-       && !  /*<<random.ml:243:18>>*/ caml_greaterthan(r, max))
+        /*<<random.ml:243:7>>*/ caml_lessthan /*<<random.ml:243:7>>*/ (r, min)
+       &&
+        !
+         /*<<random.ml:243:18>>*/ caml_greaterthan
+          /*<<random.ml:243:18>>*/ (r, max))
        /*<<random.ml:243:67>>*/ return r;
     }
     /*<<random.ml:254:39>>*/ }
@@ -25414,45 +26804,61 @@
      var
       r =
          /*<<random.ml:262:12>>*/  /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
-         ( /*<<random.ml:258:4>>*/ caml_lxm_next(s), 1),
+          /*<<random.ml:262:12>>*/ ( /*<<random.ml:258:4>>*/ caml_lxm_next
+            /*<<random.ml:258:4>>*/ (s),
+          1),
       v =
          /*<<random.ml:263:12>>*/  /*<<random.ml:263:12>>*/ runtime.caml_int64_mod
-         (r, n);
+          /*<<random.ml:263:12>>*/ (r, n);
       /*<<random.ml:265:14>>*/ if
       (!
         /*<<random.ml:265:14>>*/ caml_greaterthan
-        ( /*<<random.ml:265:14>>*/ caml_int64_sub(r, v),
+         /*<<random.ml:265:14>>*/ ( /*<<random.ml:265:14>>*/ caml_int64_sub
+           /*<<random.ml:265:14>>*/ (r, v),
           /*<<random.ml:265:24>>*/ caml_int64_add
-          ( /*<<random.ml:265:28>>*/ caml_int64_sub(Stdlib_Int64[9], n), _f_)))
+           /*<<random.ml:265:24>>*/ ( /*<<random.ml:265:28>>*/ caml_int64_sub
+             /*<<random.ml:265:28>>*/ (Stdlib_Int64[9], n),
+           _f_)))
        /*<<random.ml:267:9>>*/ return v;
     }
     /*<<random.ml:267:10>>*/ }
    function int64(s, bound){
      /*<<random.ml:270:4>>*/ return  /*<<random.ml:270:7>>*/ caml_lessequal
-             (bound, _g_)
-            ?  /*<<random.ml:271:9>>*/ caml_call1(Stdlib[1], cst_Random_int64)
+              /*<<random.ml:270:7>>*/ (bound, _g_)
+            ?  /*<<random.ml:271:9>>*/ caml_call1
+               /*<<random.ml:271:9>>*/ (Stdlib[1], cst_Random_int64)
             : int64aux(s, bound);
     /*<<random.ml:272:25>>*/ }
    function int64_in_range(s, min, max){
      /*<<random.ml:281:4>>*/ if
-     ( /*<<random.ml:281:7>>*/ caml_greaterthan(min, max))
+     ( /*<<random.ml:281:7>>*/ caml_greaterthan
+        /*<<random.ml:281:7>>*/ (min, max))
       /*<<random.ml:282:6>>*/ return  /*<<random.ml:282:6>>*/ caml_call1
-             (Stdlib[1], cst_Random_int64_in_range);
+              /*<<random.ml:282:6>>*/ (Stdlib[1], cst_Random_int64_in_range);
     var
      span =
         /*<<random.ml:284:17>>*/  /*<<random.ml:284:17>>*/ caml_call1
-        (Stdlib_Int64[6],  /*<<random.ml:284:28>>*/ caml_int64_sub(max, min));
+         /*<<random.ml:284:17>>*/ (Stdlib_Int64[6],
+          /*<<random.ml:284:28>>*/ caml_int64_sub
+           /*<<random.ml:284:28>>*/ (max, min));
      /*<<random.ml:286:9>>*/ if
-     (!  /*<<random.ml:286:9>>*/ caml_lessequal(span, Stdlib_Int64[1]))
+     (!
+       /*<<random.ml:286:9>>*/ caml_lessequal
+        /*<<random.ml:286:9>>*/ (span, Stdlib_Int64[1]))
       /*<<random.ml:289:8>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
-             (min, int64aux(s, span));
+              /*<<random.ml:289:8>>*/ (min, int64aux(s, span));
      /*<<random.ml:277:4>>*/ for(;;){
      var
-      r =  /*<<random.ml:277:12>>*/  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
+      r =
+         /*<<random.ml:277:12>>*/  /*<<random.ml:277:12>>*/ caml_lxm_next
+          /*<<random.ml:277:12>>*/ (s);
       /*<<random.ml:278:7>>*/ if
       (!
-        /*<<random.ml:278:7>>*/ caml_lessthan(r, min)
-       && !  /*<<random.ml:278:18>>*/ caml_greaterthan(r, max))
+        /*<<random.ml:278:7>>*/ caml_lessthan /*<<random.ml:278:7>>*/ (r, min)
+       &&
+        !
+         /*<<random.ml:278:18>>*/ caml_greaterthan
+          /*<<random.ml:278:18>>*/ (r, max))
        /*<<random.ml:278:67>>*/ return r;
     }
     /*<<random.ml:289:39>>*/ }
@@ -25472,7 +26878,8 @@
        : function
         (s){
           /*<<random.ml:295:18>>*/ return  /*<<random.ml:295:18>>*/ caml_int64_to_int32
-                 ( /*<<random.ml:258:4>>*/ caml_lxm_next(s));
+                  /*<<random.ml:295:18>>*/ ( /*<<random.ml:258:4>>*/ caml_lxm_next
+                    /*<<random.ml:258:4>>*/ (s));
          /*<<random.ml:295:47>>*/ },
     nativeint =
       32 === Stdlib_Nativeint[9]
@@ -25483,8 +26890,10 @@
        : function
         (s, bound){
           /*<<random.ml:301:24>>*/ return  /*<<random.ml:301:24>>*/ caml_int64_to_int32
-                 (int64
-                   (s,  /*<<random.ml:301:52>>*/ caml_int64_of_int32(bound)));
+                  /*<<random.ml:301:24>>*/ (int64
+                   (s,
+                     /*<<random.ml:301:52>>*/ caml_int64_of_int32
+                      /*<<random.ml:301:52>>*/ (bound)));
          /*<<random.ml:301:79>>*/ },
     nativeint_in_range =
       32 === Stdlib_Nativeint[9]
@@ -25495,36 +26904,50 @@
        : function
         (s, min, max){
           /*<<random.ml:310:6>>*/ return  /*<<random.ml:310:6>>*/ caml_int64_to_int32
-                 (int64_in_range
+                  /*<<random.ml:310:6>>*/ (int64_in_range
                    (s,
-                     /*<<random.ml:311:13>>*/ caml_int64_of_int32(min),
-                     /*<<random.ml:311:43>>*/ caml_int64_of_int32(max)));
+                     /*<<random.ml:311:13>>*/ caml_int64_of_int32
+                      /*<<random.ml:311:13>>*/ (min),
+                     /*<<random.ml:311:43>>*/ caml_int64_of_int32
+                      /*<<random.ml:311:43>>*/ (max)));
          /*<<random.ml:311:68>>*/ };
    function float$0(s, bound){
      /*<<random.ml:321:22>>*/ for(;;){
      var
-      b =  /*<<random.ml:316:12>>*/  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
+      b =
+         /*<<random.ml:316:12>>*/  /*<<random.ml:316:12>>*/ caml_lxm_next
+          /*<<random.ml:316:12>>*/ (s),
       n =
          /*<<random.ml:317:12>>*/  /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne
-         (b, 11);
+          /*<<random.ml:317:12>>*/ (b, 11);
       /*<<random.ml:318:7>>*/ if
-      ( /*<<random.ml:318:7>>*/ caml_notequal(n, _h_))
+      ( /*<<random.ml:318:7>>*/ caml_notequal /*<<random.ml:318:7>>*/ (n, _h_))
        /*<<random.ml:321:22>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
-              (n)
+               /*<<random.ml:318:20>>*/ (n)
              * 1.1102230246251565e-16
              * bound;
     }
     /*<<random.ml:321:41>>*/ }
    function bool(s){
      /*<<random.ml:324:15>>*/ return  /*<<random.ml:324:15>>*/ caml_lessthan
-            ( /*<<random.ml:324:15>>*/ caml_lxm_next(s), _i_);
+             /*<<random.ml:324:15>>*/ ( /*<<random.ml:324:15>>*/ caml_lxm_next
+               /*<<random.ml:324:15>>*/ (s),
+             _i_);
     /*<<random.ml:324:26>>*/ }
    function split(s){
     var
-     i1 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
-     i2 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
-     i3 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
-     i4 =  /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
+     i1 =
+        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
+         /*<<random.ml:258:4>>*/ (s),
+     i2 =
+        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
+         /*<<random.ml:258:4>>*/ (s),
+     i3 =
+        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
+         /*<<random.ml:258:4>>*/ (s),
+     i4 =
+        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
+         /*<<random.ml:258:4>>*/ (s);
      /*<<random.ml:330:4>>*/ return mk(i1, i2, i3, i4);
     /*<<random.ml:330:18>>*/ }
    function mk_default(param){
@@ -25533,102 +26956,103 @@
    var
     random_key =
        /*<<random.ml:341:2>>*/  /*<<random.ml:341:2>>*/ caml_call2
-       (Stdlib_Domain[10][1], [0, split], mk_default);
+        /*<<random.ml:341:2>>*/ (Stdlib_Domain[10][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));
+               /*<<random.ml:343:25>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:344:26>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:345:36>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:347:21>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:348:30>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:350:23>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:351:38>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:353:27>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:354:30>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:356:23>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:357:30>>*/ (Stdlib_Domain[10][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));
+               /*<<random.ml:358:25>>*/ (Stdlib_Domain[10][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));
+               /*<<random.ml:359:29>>*/ (Stdlib_Domain[10][2], random_key));
     /*<<random.ml:359:56>>*/ }
    function bits64$0(param){
     var
      s =
         /*<<random.ml:360:29>>*/  /*<<random.ml:360:29>>*/ caml_call1
-        (Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s);
+         /*<<random.ml:360:29>>*/ (Stdlib_Domain[10][2], random_key);
+     /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next
+             /*<<random.ml:258:4>>*/ (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));
+               /*<<random.ml:361:37>>*/ (Stdlib_Domain[10][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),
+               /*<<random.ml:363:34>>*/ (Stdlib_Domain[10][2], random_key),
              seed);
     /*<<random.ml:363:66>>*/ }
    function init(seed){
@@ -25636,25 +27060,26 @@
     /*<<random.ml:364:36>>*/ }
    function self_init(param){
      /*<<random.ml:365:19>>*/ return full_init
-            ( /*<<random.ml:365:29>>*/ caml_sys_random_seed(0));
+            ( /*<<random.ml:365:29>>*/ caml_sys_random_seed
+               /*<<random.ml:365:29>>*/ (0));
     /*<<random.ml:365:44>>*/ }
    function split$0(param){
      /*<<random.ml:369:15>>*/ return split
             ( /*<<random.ml:369:27>>*/ caml_call1
-              (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:369:27>>*/ (Stdlib_Domain[10][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));
+               /*<<random.ml:373:30>>*/ (Stdlib_Domain[10][2], random_key));
     /*<<random.ml:373:57>>*/ }
    function set_state(src){
     var
      dst =
         /*<<random.ml:374:31>>*/  /*<<random.ml:374:31>>*/ caml_call1
-        (Stdlib_Domain[10][2], random_key);
+         /*<<random.ml:374:31>>*/ (Stdlib_Domain[10][2], random_key);
      /*<<random.ml:86:4>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
-            (src, dst);
+             /*<<random.ml:86:4>>*/ (src, dst);
     /*<<random.ml:374:60>>*/ }
    var
     Stdlib_Random =
@@ -25770,7 +27195,7 @@
     var
      _f_ =
         /*<<hashtbl.ml:51:8>>*/  /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv
-        ("OCAMLRUNPARAM"),
+         /*<<hashtbl.ml:51:8>>*/ ("OCAMLRUNPARAM"),
      params = _f_;
    }
    catch(_al_){
@@ -25780,7 +27205,7 @@
      var
       _e_ =
          /*<<hashtbl.ml:52:8>>*/  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv
-         ("CAMLRUNPARAM"),
+          /*<<hashtbl.ml:52:8>>*/ ("CAMLRUNPARAM"),
       _c_ = _e_;
     }
     catch(_am_){
@@ -25793,13 +27218,13 @@
    var
     randomized_default =
        /*<<hashtbl.ml:53:2>>*/  /*<<hashtbl.ml:53:2>>*/ caml_call2
-       (Stdlib_String[15], params, 82),
+        /*<<hashtbl.ml:53:2>>*/ (Stdlib_String[15], params, 82),
     randomized =
        /*<<hashtbl.ml:55:17>>*/  /*<<hashtbl.ml:55:17>>*/ caml_call1
-       (Stdlib_Atomic[1], randomized_default);
+        /*<<hashtbl.ml:55:17>>*/ (Stdlib_Atomic[1], randomized_default);
    function randomize(param){
      /*<<hashtbl.ml:57:19>>*/ return  /*<<hashtbl.ml:57:19>>*/ caml_call2
-            (Stdlib_Atomic[4], randomized, 1);
+             /*<<hashtbl.ml:57:19>>*/ (Stdlib_Atomic[4], randomized, 1);
     /*<<hashtbl.ml:57:45>>*/ }
    function is_randomized(param){
      /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized);
@@ -25807,7 +27232,9 @@
    var
     prng_key =
        /*<<hashtbl.ml:60:15>>*/  /*<<hashtbl.ml:60:15>>*/ caml_call2
-       (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
+        /*<<hashtbl.ml:60:15>>*/ (Stdlib_Domain[10][1],
+        0,
+        Stdlib_Random[19][2]);
    function power_2_above(x, n){
     var x$0 = x;
      /*<<hashtbl.ml:69:2>>*/ for(;;){
@@ -25822,19 +27249,23 @@
      random =
        opt
         ? opt[1]
-        :  /*<<hashtbl.ml:73:22>>*/ caml_call1(Stdlib_Atomic[3], randomized),
+        :  /*<<hashtbl.ml:73:22>>*/ caml_call1
+           /*<<hashtbl.ml:73:22>>*/ (Stdlib_Atomic[3], randomized),
      s =  /*<<hashtbl.ml:74:10>>*/ power_2_above(16, initial_size);
      /*<<hashtbl.ml:75:2>>*/ if(random)
      var
       _ak_ =
          /*<<hashtbl.ml:76:37>>*/  /*<<hashtbl.ml:76:37>>*/ caml_call1
-         (Stdlib_Domain[10][2], prng_key),
-      seed =  /*<<hashtbl.ml:76:19>>*/ caml_call1(Stdlib_Random[19][4], _ak_);
+          /*<<hashtbl.ml:76:37>>*/ (Stdlib_Domain[10][2], prng_key),
+      seed =
+         /*<<hashtbl.ml:76:19>>*/ caml_call1
+          /*<<hashtbl.ml:76:19>>*/ (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_make_vect
+              /*<<hashtbl.ml:78:52>>*/ (s, 0),
             seed,
             s];
    }
@@ -25845,18 +27276,28 @@
                [1]
               = 0,
                /*<<hashtbl.ml:83:4>>*/ caml_call4
-               (Stdlib_Array[8], h[2], 0, h[2].length - 1, 0))
+                /*<<hashtbl.ml:83:4>>*/ (Stdlib_Array[8],
+                h[2],
+                0,
+                h[2].length - 1,
+                0))
             : _aj_;
     /*<<hashtbl.ml:84:5>>*/ }
    function reset(h){
     var len = h[2].length - 1;
     if
      (4 <= h.length - 1
-      && len !==  /*<<hashtbl.ml:89:13>>*/ caml_call1(Stdlib[18], h[4])){
+      &&
+       len
+       !==
+         /*<<hashtbl.ml:89:13>>*/ caml_call1
+          /*<<hashtbl.ml:89:13>>*/ (Stdlib[18], h[4])){
      h[1] = 0;
      h[2] =
        /*<<hashtbl.ml:93:14>>*/ caml_make_vect
-       ( /*<<hashtbl.ml:93:25>>*/ caml_call1(Stdlib[18], h[4]), 0);
+        /*<<hashtbl.ml:93:14>>*/ ( /*<<hashtbl.ml:93:25>>*/ caml_call1
+          /*<<hashtbl.ml:93:25>>*/ (Stdlib[18], h[4]),
+        0);
      return 0;
     }
      /*<<hashtbl.ml:90:4>>*/ return clear(h);
@@ -25888,7 +27329,7 @@
      _ah_ = h[3],
      _ai_ =
         /*<<hashtbl.ml:113:29>>*/  /*<<hashtbl.ml:113:29>>*/ caml_call2
-        (Stdlib_Array[14], copy_bucketlist, h[2]);
+         /*<<hashtbl.ml:113:29>>*/ (Stdlib_Array[14], copy_bucketlist, h[2]);
      /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_];
     /*<<hashtbl.ml:113:63>>*/ }
    function length(h){
@@ -25899,7 +27340,7 @@
      nsize = ndata.length - 1,
      ndata_tail =
         /*<<hashtbl.ml:119:19>>*/  /*<<hashtbl.ml:119:19>>*/ caml_make_vect
-        (nsize, 0),
+         /*<<hashtbl.ml:119:19>>*/ (nsize, 0),
      _aa_ = odata.length - 2 | 0,
      _$_ =  /*<<hashtbl.ml:135:2>>*/ 0;
     if(_aa_ >= 0){
@@ -25918,7 +27359,7 @@
         cell$0 =  /*<<hashtbl.ml:123:8>>*/ inplace ? cell : [0, key, data, 0],
         nidx =
            /*<<hashtbl.ml:127:19>>*/  /*<<hashtbl.ml:127:19>>*/ caml_call1
-           (indexfun, key),
+            /*<<hashtbl.ml:127:19>>*/ (indexfun, key),
         match =
            /*<<hashtbl.ml:128:20>>*/ caml_check_bound(ndata_tail, nidx)
            [1 + nidx];
@@ -25965,11 +27406,12 @@
     var
      ndata =
         /*<<hashtbl.ml:150:16>>*/  /*<<hashtbl.ml:150:16>>*/ caml_make_vect
-        (nsize, 0),
+         /*<<hashtbl.ml:150:16>>*/ (nsize, 0),
      inplace =  /*<<hashtbl.ml:151:22>>*/ 1 - ongoing_traversal(h);
     h[2] = ndata;
      /*<<hashtbl.ml:153:4>>*/ return insert_all_buckets
-            ( /*<<hashtbl.ml:153:23>>*/ caml_call1(indexfun, h),
+            ( /*<<hashtbl.ml:153:23>>*/ caml_call1
+               /*<<hashtbl.ml:153:23>>*/ (indexfun, h),
              inplace,
              odata,
              ndata);
@@ -25987,7 +27429,7 @@
         if(! param) break;
         var key = param[1], data = param[2], next = param[3];
          /*<<hashtbl.ml:161:8>>*/  /*<<hashtbl.ml:161:8>>*/ caml_call2
-         (f, key, data);
+          /*<<hashtbl.ml:161:8>>*/ (f, key, data);
         param = next;
        }
        var _Z_ =  /*<<hashtbl.ml:167:6>>*/ i + 1 | 0;
@@ -26004,7 +27446,7 @@
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal(h);
       /*<<hashtbl.ml:172:4>>*/ throw  /*<<hashtbl.ml:172:4>>*/ caml_maybe_attach_backtrace
-            (exn, 0);
+             /*<<hashtbl.ml:172:4>>*/ (exn, 0);
     }
     /*<<hashtbl.ml:172:13>>*/ }
    function filter_map_inplace(f, h){
@@ -26027,7 +27469,7 @@
          next = slot[3],
          match =
             /*<<hashtbl.ml:181:18>>*/  /*<<hashtbl.ml:181:18>>*/ caml_call2
-            (f, key, data);
+             /*<<hashtbl.ml:181:18>>*/ (f, key, data);
         if(match){
          var data$0 = match[1];
           /*<<hashtbl.ml:186:10>>*/ if(prec)
@@ -26058,7 +27500,7 @@
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal(h);
       /*<<hashtbl.ml:205:4>>*/ throw  /*<<hashtbl.ml:205:4>>*/ caml_maybe_attach_backtrace
-            (exn, 0);
+             /*<<hashtbl.ml:205:4>>*/ (exn, 0);
     }
     /*<<hashtbl.ml:205:13>>*/ }
    function fold(f, h, init){
@@ -26086,7 +27528,7 @@
          next = b[3],
          accu$0 =
             /*<<hashtbl.ml:213:23>>*/  /*<<hashtbl.ml:213:23>>*/ caml_call3
-            (f, key, data, accu);
+             /*<<hashtbl.ml:213:23>>*/ (f, key, data, accu);
         b = next;
         accu = accu$0;
        }
@@ -26106,7 +27548,7 @@
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal(h);
       /*<<hashtbl.ml:226:4>>*/ throw  /*<<hashtbl.ml:226:4>>*/ caml_maybe_attach_backtrace
-            (exn, 0);
+             /*<<hashtbl.ml:226:4>>*/ (exn, 0);
     }
     /*<<hashtbl.ml:226:13>>*/ }
    function bucket_length(accu, param){
@@ -26124,19 +27566,19 @@
     var
      mbl =
         /*<<hashtbl.ml:241:4>>*/  /*<<hashtbl.ml:241:4>>*/ caml_call3
-        (Stdlib_Array[18],
+         /*<<hashtbl.ml:241:4>>*/ (Stdlib_Array[18],
          function(m, b){
           var _L_ =  /*<<hashtbl.ml:241:42>>*/ bucket_length(0, b);
            /*<<hashtbl.ml:241:42>>*/ return  /*<<hashtbl.ml:241:42>>*/ caml_call2
-                  (Stdlib_Int[11], m, _L_);
+                   /*<<hashtbl.ml:241:42>>*/ (Stdlib_Int[11], m, _L_);
           /*<<hashtbl.ml:241:61>>*/ },
          0,
          h[2]),
      histo =
         /*<<hashtbl.ml:242:14>>*/  /*<<hashtbl.ml:242:14>>*/ caml_make_vect
-        (mbl + 1 | 0, 0);
+         /*<<hashtbl.ml:242:14>>*/ (mbl + 1 | 0, 0);
      /*<<hashtbl.ml:243:2>>*/  /*<<hashtbl.ml:243:2>>*/ caml_call2
-     (Stdlib_Array[12],
+      /*<<hashtbl.ml:243:2>>*/ (Stdlib_Array[12],
       function(b){
        var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
@@ -26173,18 +27615,22 @@
    function to_seq_keys(m){
     var _F_ =  /*<<hashtbl.ml:270:32>>*/ to_seq(m);
      /*<<hashtbl.ml:270:32>>*/ return  /*<<hashtbl.ml:270:32>>*/ caml_call2
-            (Stdlib_Seq[29], function(_G_){ /*<<?>>*/ return _G_[1];}, _F_);
+             /*<<hashtbl.ml:270:32>>*/ (Stdlib_Seq[29],
+             function(_G_){ /*<<?>>*/ return _G_[1];},
+             _F_);
     /*<<hashtbl.ml:270:42>>*/ }
    function to_seq_values(m){
     var _D_ =  /*<<hashtbl.ml:272:34>>*/ to_seq(m);
      /*<<hashtbl.ml:272:34>>*/ return  /*<<hashtbl.ml:272:34>>*/ caml_call2
-            (Stdlib_Seq[29], function(_E_){ /*<<?>>*/ return _E_[2];}, _D_);
+             /*<<hashtbl.ml:272:34>>*/ (Stdlib_Seq[29],
+             function(_E_){ /*<<?>>*/ return _E_[2];},
+             _D_);
     /*<<hashtbl.ml:272:44>>*/ }
    function MakeSeeded(H){
     function key_index(h, key){
      var _C_ = h[2].length - 2 | 0;
       /*<<hashtbl.ml:357:6>>*/ return  /*<<hashtbl.ml:357:6>>*/ caml_call2
-             (H[2], h[3], key)
+              /*<<hashtbl.ml:357:6>>*/ (H[2], h[3], key)
             & _C_;
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
@@ -26210,7 +27656,8 @@
       if(! prec)  /*<<hashtbl.ml:368:10>>*/ return 0;
       var k = prec[1], next = prec[3];
        /*<<hashtbl.ml:370:13>>*/ if
-       ( /*<<hashtbl.ml:370:13>>*/ caml_call2(H[1], k, key)){
+       ( /*<<hashtbl.ml:370:13>>*/ caml_call2
+          /*<<hashtbl.ml:370:13>>*/ (H[1], k, key)){
        h[1] = h[1] - 1 | 0;
        return prec$0
                ? (prec$0[3] = next, 0)
@@ -26226,33 +27673,37 @@
       match =  /*<<hashtbl.ml:390:12>>*/ caml_check_bound(h[2], _A_)[1 + _A_];
      if(! match)
        /*<<hashtbl.ml:391:17>>*/ throw  /*<<hashtbl.ml:391:17>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<hashtbl.ml:391:17>>*/ (Stdlib[8], 1);
      var k1 = match[1], d1 = match[2], next1 = match[3];
       /*<<hashtbl.ml:393:13>>*/ if
-      ( /*<<hashtbl.ml:393:13>>*/ caml_call2(H[1], key, k1))
+      ( /*<<hashtbl.ml:393:13>>*/ caml_call2
+         /*<<hashtbl.ml:393:13>>*/ (H[1], key, k1))
        /*<<hashtbl.ml:393:33>>*/ return d1;
      if(! next1)
        /*<<hashtbl.ml:395:21>>*/ throw  /*<<hashtbl.ml:395:21>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<hashtbl.ml:395:21>>*/ (Stdlib[8], 1);
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
       /*<<hashtbl.ml:397:17>>*/ if
-      ( /*<<hashtbl.ml:397:17>>*/ caml_call2(H[1], key, k2))
+      ( /*<<hashtbl.ml:397:17>>*/ caml_call2
+         /*<<hashtbl.ml:397:17>>*/ (H[1], key, k2))
        /*<<hashtbl.ml:397:37>>*/ return d2;
      if(! next2)
        /*<<hashtbl.ml:399:25>>*/ throw  /*<<hashtbl.ml:399:25>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<hashtbl.ml:399:25>>*/ (Stdlib[8], 1);
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
       /*<<hashtbl.ml:401:21>>*/ if
-      ( /*<<hashtbl.ml:401:21>>*/ caml_call2(H[1], key, k3))
+      ( /*<<hashtbl.ml:401:21>>*/ caml_call2
+         /*<<hashtbl.ml:401:21>>*/ (H[1], key, k3))
        /*<<hashtbl.ml:401:41>>*/ return d3;
      var param = next3;
      for(;;){
       if(! param)
         /*<<hashtbl.ml:385:10>>*/ throw  /*<<hashtbl.ml:385:10>>*/ caml_maybe_attach_backtrace
-              (Stdlib[8], 1);
+               /*<<hashtbl.ml:385:10>>*/ (Stdlib[8], 1);
       var k = param[1], data = param[2], next = param[3];
        /*<<hashtbl.ml:387:13>>*/ if
-       ( /*<<hashtbl.ml:387:13>>*/ caml_call2(H[1], key, k))
+       ( /*<<hashtbl.ml:387:13>>*/ caml_call2
+          /*<<hashtbl.ml:387:13>>*/ (H[1], key, k))
         /*<<hashtbl.ml:387:32>>*/ return data;
       param = next;
      }
@@ -26264,24 +27715,28 @@
      if(! match)  /*<<hashtbl.ml:411:17>>*/ return 0;
      var k1 = match[1], d1 = match[2], next1 = match[3];
       /*<<hashtbl.ml:413:13>>*/ if
-      ( /*<<hashtbl.ml:413:13>>*/ caml_call2(H[1], key, k1))
+      ( /*<<hashtbl.ml:413:13>>*/ caml_call2
+         /*<<hashtbl.ml:413:13>>*/ (H[1], key, k1))
        /*<<hashtbl.ml:413:33>>*/ return [0, d1];
      if(! next1)  /*<<hashtbl.ml:415:21>>*/ return 0;
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
       /*<<hashtbl.ml:417:17>>*/ if
-      ( /*<<hashtbl.ml:417:17>>*/ caml_call2(H[1], key, k2))
+      ( /*<<hashtbl.ml:417:17>>*/ caml_call2
+         /*<<hashtbl.ml:417:17>>*/ (H[1], key, k2))
        /*<<hashtbl.ml:417:37>>*/ return [0, d2];
      if(! next2)  /*<<hashtbl.ml:419:25>>*/ return 0;
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
       /*<<hashtbl.ml:421:21>>*/ if
-      ( /*<<hashtbl.ml:421:21>>*/ caml_call2(H[1], key, k3))
+      ( /*<<hashtbl.ml:421:21>>*/ caml_call2
+         /*<<hashtbl.ml:421:21>>*/ (H[1], key, k3))
        /*<<hashtbl.ml:421:41>>*/ return [0, d3];
      var param = next3;
      for(;;){
       if(! param)  /*<<hashtbl.ml:405:10>>*/ return 0;
       var k = param[1], data = param[2], next = param[3];
        /*<<hashtbl.ml:407:13>>*/ if
-       ( /*<<hashtbl.ml:407:13>>*/ caml_call2(H[1], key, k))
+       ( /*<<hashtbl.ml:407:13>>*/ caml_call2
+          /*<<hashtbl.ml:407:13>>*/ (H[1], key, k))
         /*<<hashtbl.ml:407:32>>*/ return [0, data];
       param = next;
      }
@@ -26294,7 +27749,8 @@
       if(! param)  /*<<hashtbl.ml:426:10>>*/ return 0;
       var k = param[1], d = param[2], next = param[3];
        /*<<hashtbl.ml:428:13>>*/ if
-       ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k, key))
+       ( /*<<hashtbl.ml:428:13>>*/ caml_call2
+          /*<<hashtbl.ml:428:13>>*/ (H[1], k, key))
        break;
       param = next;
      }
@@ -26310,7 +27766,8 @@
       }
       var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
        /*<<hashtbl.ml:428:13>>*/ if
-       ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k$0, key)){
+       ( /*<<hashtbl.ml:428:13>>*/ caml_call2
+          /*<<hashtbl.ml:428:13>>*/ (H[1], k$0, key)){
        var dst$0 =  /*<<hashtbl.ml:429:15>>*/ [0, d$0, 24029];
        dst[1 + offset] = dst$0;
        dst = dst$0;
@@ -26330,7 +27787,12 @@
       if(slot){
        var k = slot[1], next = slot[3];
         /*<<hashtbl.ml:437:13>>*/ if
-        (!  /*<<hashtbl.ml:437:13>>*/ caml_call2(H[1], k, key)){slot = next; continue;}
+        (!
+          /*<<hashtbl.ml:437:13>>*/ caml_call2
+           /*<<hashtbl.ml:437:13>>*/ (H[1], k, key)){
+        slot = next;
+        continue;
+       }
        slot[1] = key;
        slot[2] = data;
        var _v_ = 0;
@@ -26360,7 +27822,7 @@
        next = param[3],
        _t_ =
           /*<<hashtbl.ml:454:10>>*/  /*<<hashtbl.ml:454:10>>*/ caml_call2
-          (H[1], k, key);
+           /*<<hashtbl.ml:454:10>>*/ (H[1], k, key);
        /*<<hashtbl.ml:454:10>>*/ if(_t_)
         /*<<hashtbl.ml:454:10>>*/ return _t_;
       param = next;
@@ -26368,7 +27830,7 @@
      /*<<hashtbl.ml:457:48>>*/ }
     function add_seq(tbl, i){
       /*<<hashtbl.ml:460:6>>*/ return  /*<<hashtbl.ml:460:6>>*/ caml_call2
-             (Stdlib_Seq[4],
+              /*<<hashtbl.ml:460:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
                 /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v);
@@ -26377,7 +27839,7 @@
      /*<<hashtbl.ml:460:43>>*/ }
     function replace_seq(tbl, i){
       /*<<hashtbl.ml:463:6>>*/ return  /*<<hashtbl.ml:463:6>>*/ caml_call2
-             (Stdlib_Seq[4],
+              /*<<hashtbl.ml:463:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
                 /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v);
@@ -26417,7 +27879,7 @@
     var equal = H[1];
     function seeded_hash(seed, x){
       /*<<hashtbl.ml:485:41>>*/ return  /*<<hashtbl.ml:485:41>>*/ caml_call1
-             (H[2], x);
+              /*<<hashtbl.ml:485:41>>*/ (H[2], x);
      /*<<hashtbl.ml:485:49>>*/ }
     var
      include = MakeSeeded([0, equal, seeded_hash]),
@@ -26444,15 +27906,15 @@
      replace_seq = include[21];
     function create(sz){
       /*<<hashtbl.ml:487:20>>*/ return  /*<<hashtbl.ml:487:20>>*/ caml_call2
-             (_s_, _d_, sz);
+              /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, sz);
      /*<<hashtbl.ml:487:43>>*/ }
     function of_seq(i){
      var
       tbl =
          /*<<hashtbl.ml:487:20>>*/  /*<<hashtbl.ml:487:20>>*/ caml_call2
-         (_s_, _d_, 16);
+          /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, 16);
       /*<<hashtbl.ml:490:6>>*/  /*<<hashtbl.ml:490:6>>*/ caml_call2
-      (replace_seq, tbl, i);
+       /*<<hashtbl.ml:490:6>>*/ (replace_seq, tbl, i);
       /*<<hashtbl.ml:490:6>>*/ return tbl;
      /*<<hashtbl.ml:491:9>>*/ }
      /*<<hashtbl.ml:481:2>>*/ return [0,
@@ -26481,23 +27943,24 @@
    }
    function hash(x){
      /*<<hashtbl.ml:501:13>>*/ return  /*<<hashtbl.ml:501:13>>*/ caml_hash
-            (10, 100, 0, x);
+             /*<<hashtbl.ml:501:13>>*/ (10, 100, 0, x);
     /*<<hashtbl.ml:501:41>>*/ }
    function hash_param(n1, n2, x){
      /*<<hashtbl.ml:502:25>>*/ return  /*<<hashtbl.ml:502:25>>*/ caml_hash
-            (n1, n2, 0, x);
+             /*<<hashtbl.ml:502:25>>*/ (n1, n2, 0, x);
     /*<<hashtbl.ml:502:52>>*/ }
    function seeded_hash(seed, x){
      /*<<hashtbl.ml:503:25>>*/ return  /*<<hashtbl.ml:503:25>>*/ caml_hash
-            (10, 100, seed, x);
+             /*<<hashtbl.ml:503:25>>*/ (10, 100, seed, x);
     /*<<hashtbl.ml:503:56>>*/ }
    function key_index(h, key){
      /*<<hashtbl.ml:506:2>>*/ return 4 <= h.length - 1
             ?  /*<<hashtbl.ml:507:7>>*/ caml_hash
-              (10, 100, h[3], key)
+               /*<<hashtbl.ml:507:7>>*/ (10, 100, h[3], key)
              & (h[2].length - 2 | 0)
             :  /*<<hashtbl.ml:508:7>>*/ caml_call1
-              (Stdlib[1], cst_Hashtbl_unsupported_hash_t);
+               /*<<hashtbl.ml:508:7>>*/ (Stdlib[1],
+               cst_Hashtbl_unsupported_hash_t);
     /*<<hashtbl.ml:508:59>>*/ }
    function add(h, key, data){
     var
@@ -26522,7 +27985,10 @@
      if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
      var k = prec[1], next = prec[3];
       /*<<hashtbl.ml:521:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:521:9>>*/ caml_compare(k, key)){
+      (0
+       ===
+         /*<<hashtbl.ml:521:9>>*/ caml_compare
+          /*<<hashtbl.ml:521:9>>*/ (k, key)){
       h[1] = h[1] - 1 | 0;
       return prec$0
               ? (prec$0[3] = next, 0)
@@ -26538,33 +28004,45 @@
      match =  /*<<hashtbl.ml:541:8>>*/ caml_check_bound(h[2], _q_)[1 + _q_];
     if(! match)
       /*<<hashtbl.ml:542:13>>*/ throw  /*<<hashtbl.ml:542:13>>*/ caml_maybe_attach_backtrace
-            (Stdlib[8], 1);
+             /*<<hashtbl.ml:542:13>>*/ (Stdlib[8], 1);
     var k1 = match[1], d1 = match[2], next1 = match[3];
      /*<<hashtbl.ml:544:9>>*/ if
-     (0 ===  /*<<hashtbl.ml:544:9>>*/ caml_compare(key, k1))
+     (0
+      ===
+        /*<<hashtbl.ml:544:9>>*/ caml_compare
+         /*<<hashtbl.ml:544:9>>*/ (key, k1))
       /*<<hashtbl.ml:544:33>>*/ return d1;
     if(! next1)
       /*<<hashtbl.ml:546:17>>*/ throw  /*<<hashtbl.ml:546:17>>*/ caml_maybe_attach_backtrace
-            (Stdlib[8], 1);
+             /*<<hashtbl.ml:546:17>>*/ (Stdlib[8], 1);
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
      /*<<hashtbl.ml:548:13>>*/ if
-     (0 ===  /*<<hashtbl.ml:548:13>>*/ caml_compare(key, k2))
+     (0
+      ===
+        /*<<hashtbl.ml:548:13>>*/ caml_compare
+         /*<<hashtbl.ml:548:13>>*/ (key, k2))
       /*<<hashtbl.ml:548:37>>*/ return d2;
     if(! next2)
       /*<<hashtbl.ml:550:21>>*/ throw  /*<<hashtbl.ml:550:21>>*/ caml_maybe_attach_backtrace
-            (Stdlib[8], 1);
+             /*<<hashtbl.ml:550:21>>*/ (Stdlib[8], 1);
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
      /*<<hashtbl.ml:552:17>>*/ if
-     (0 ===  /*<<hashtbl.ml:552:17>>*/ caml_compare(key, k3))
+     (0
+      ===
+        /*<<hashtbl.ml:552:17>>*/ caml_compare
+         /*<<hashtbl.ml:552:17>>*/ (key, k3))
       /*<<hashtbl.ml:552:41>>*/ return d3;
     var param = next3;
     for(;;){
      if(! param)
        /*<<hashtbl.ml:536:6>>*/ throw  /*<<hashtbl.ml:536:6>>*/ caml_maybe_attach_backtrace
-             (Stdlib[8], 1);
+              /*<<hashtbl.ml:536:6>>*/ (Stdlib[8], 1);
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:538:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:538:9>>*/ caml_compare(key, k))
+      (0
+       ===
+         /*<<hashtbl.ml:538:9>>*/ caml_compare
+          /*<<hashtbl.ml:538:9>>*/ (key, k))
        /*<<hashtbl.ml:538:32>>*/ return data;
      param = next;
     }
@@ -26576,24 +28054,36 @@
     if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
     var k1 = match[1], d1 = match[2], next1 = match[3];
      /*<<hashtbl.ml:564:9>>*/ if
-     (0 ===  /*<<hashtbl.ml:564:9>>*/ caml_compare(key, k1))
+     (0
+      ===
+        /*<<hashtbl.ml:564:9>>*/ caml_compare
+         /*<<hashtbl.ml:564:9>>*/ (key, k1))
       /*<<hashtbl.ml:564:33>>*/ return [0, d1];
     if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
      /*<<hashtbl.ml:568:13>>*/ if
-     (0 ===  /*<<hashtbl.ml:568:13>>*/ caml_compare(key, k2))
+     (0
+      ===
+        /*<<hashtbl.ml:568:13>>*/ caml_compare
+         /*<<hashtbl.ml:568:13>>*/ (key, k2))
       /*<<hashtbl.ml:568:37>>*/ return [0, d2];
     if(! next2)  /*<<hashtbl.ml:570:21>>*/ return 0;
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
      /*<<hashtbl.ml:572:17>>*/ if
-     (0 ===  /*<<hashtbl.ml:572:17>>*/ caml_compare(key, k3))
+     (0
+      ===
+        /*<<hashtbl.ml:572:17>>*/ caml_compare
+         /*<<hashtbl.ml:572:17>>*/ (key, k3))
       /*<<hashtbl.ml:572:41>>*/ return [0, d3];
     var param = next3;
     for(;;){
      if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:558:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:558:9>>*/ caml_compare(key, k))
+      (0
+       ===
+         /*<<hashtbl.ml:558:9>>*/ caml_compare
+          /*<<hashtbl.ml:558:9>>*/ (key, k))
        /*<<hashtbl.ml:558:32>>*/ return [0, data];
      param = next;
     }
@@ -26606,7 +28096,10 @@
      if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:579:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k, key))
+      (0
+       ===
+         /*<<hashtbl.ml:579:9>>*/ caml_compare
+          /*<<hashtbl.ml:579:9>>*/ (k, key))
       break;
      param = next;
     }
@@ -26622,7 +28115,10 @@
      }
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
       /*<<hashtbl.ml:579:9>>*/ if
-      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
+      (0
+       ===
+         /*<<hashtbl.ml:579:9>>*/ caml_compare
+          /*<<hashtbl.ml:579:9>>*/ (k$0, key)){
       var dst$0 =  /*<<hashtbl.ml:580:11>>*/ [0, data$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -26642,7 +28138,13 @@
      if(slot){
       var k = slot[1], next = slot[3];
        /*<<hashtbl.ml:588:9>>*/ if
-       (0 !==  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key)){slot = next; continue;}
+       (0
+        !==
+          /*<<hashtbl.ml:588:9>>*/ caml_compare
+           /*<<hashtbl.ml:588:9>>*/ (k, key)){
+       slot = next;
+       continue;
+      }
       slot[1] = key;
       slot[2] = data;
       var _l_ = 0;
@@ -26670,14 +28172,20 @@
      var
       k = param[1],
       next = param[3],
-      _j_ = 0 ===  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key) ? 1 : 0;
+      _j_ =
+        0
+         ===
+           /*<<hashtbl.ml:605:6>>*/ caml_compare
+            /*<<hashtbl.ml:605:6>>*/ (k, key)
+         ? 1
+         : 0;
      if(_j_) return _j_;
      param = next;
     }
     /*<<hashtbl.ml:608:44>>*/ }
    function add_seq(tbl, i){
      /*<<hashtbl.ml:611:2>>*/ return  /*<<hashtbl.ml:611:2>>*/ caml_call2
-            (Stdlib_Seq[4],
+             /*<<hashtbl.ml:611:2>>*/ (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
                /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v);
@@ -26686,7 +28194,7 @@
     /*<<hashtbl.ml:611:39>>*/ }
    function replace_seq(tbl, i){
      /*<<hashtbl.ml:614:2>>*/ return  /*<<hashtbl.ml:614:2>>*/ caml_call2
-            (Stdlib_Seq[4],
+             /*<<hashtbl.ml:614:2>>*/ (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
                /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v);
@@ -26703,14 +28211,17 @@
      random =
        opt
         ? opt[1]
-        :  /*<<hashtbl.ml:621:23>>*/ caml_call1(Stdlib_Atomic[3], randomized),
+        :  /*<<hashtbl.ml:621:23>>*/ caml_call1
+           /*<<hashtbl.ml:621:23>>*/ (Stdlib_Atomic[3], randomized),
      s =  /*<<hashtbl.ml:622:10>>*/ power_2_above(16, h[2].length - 1);
      /*<<hashtbl.ml:623:2>>*/ if(random)
      var
       _g_ =
          /*<<hashtbl.ml:624:37>>*/  /*<<hashtbl.ml:624:37>>*/ caml_call1
-         (Stdlib_Domain[10][2], prng_key),
-      seed =  /*<<hashtbl.ml:624:19>>*/ caml_call1(Stdlib_Random[19][4], _g_);
+          /*<<hashtbl.ml:624:37>>*/ (Stdlib_Domain[10][2], prng_key),
+      seed =
+         /*<<hashtbl.ml:624:19>>*/ caml_call1
+          /*<<hashtbl.ml:624:19>>*/ (Stdlib_Random[19][4], _g_);
     else
      var seed = 4 <= h.length - 1 ? h[3] : 0;
     var
@@ -26718,7 +28229,8 @@
      h$0 =
         /*<<hashtbl.ml:627:11>>*/ [0,
         h[1],
-         /*<<hashtbl.ml:629:11>>*/ caml_make_vect(s, 0),
+         /*<<hashtbl.ml:629:11>>*/ caml_make_vect
+          /*<<hashtbl.ml:629:11>>*/ (s, 0),
         seed,
         _h_];
      /*<<hashtbl.ml:633:2>>*/ insert_all_buckets
@@ -26822,9 +28334,9 @@
      _K_ = _J_ ? l <= Stdlib_Obj[23][15] ? 1 : 0 : _J_;
     if(1 - _K_)
       /*<<weak.ml:29:4>>*/  /*<<weak.ml:29:4>>*/ caml_call1
-      (Stdlib[1], cst_Weak_create);
+       /*<<weak.ml:29:4>>*/ (Stdlib[1], cst_Weak_create);
      /*<<weak.ml:30:2>>*/ return  /*<<weak.ml:30:2>>*/ runtime.caml_weak_create
-            (l);
+             /*<<weak.ml:30:2>>*/ (l);
     /*<<weak.ml:30:10>>*/ }
    function length(x){
      /*<<weak.ml:33:15>>*/ return x.length - 3 | 0;
@@ -26834,31 +28346,34 @@
      _G_ = 0 <= o ? 1 : 0,
      _H_ = _G_ ? o < length(e) ? 1 : 0 : _G_,
      _I_ = 1 - _H_;
-    return _I_ ?  /*<<weak.ml:37:4>>*/ caml_call1(Stdlib[1], msg) : _I_;
+    return _I_
+            ?  /*<<weak.ml:37:4>>*/ caml_call1
+               /*<<weak.ml:37:4>>*/ (Stdlib[1], msg)
+            : _I_;
     /*<<weak.ml:37:20>>*/ }
    function set(e, o, x){
      /*<<weak.ml:42:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_set);
     if(! x)
       /*<<weak.ml:44:12>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
-             (e, o);
+              /*<<weak.ml:44:12>>*/ (e, o);
     var x$0 = x[1];
      /*<<weak.ml:45:14>>*/ return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key
-            (e, o, x$0);
+             /*<<weak.ml:45:14>>*/ (e, o, x$0);
     /*<<weak.ml:45:24>>*/ }
    function get(e, o){
      /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
      /*<<weak.ml:50:2>>*/ return  /*<<weak.ml:50:2>>*/ runtime.caml_ephe_get_key
-            (e, o);
+             /*<<weak.ml:50:2>>*/ (e, o);
     /*<<weak.ml:50:9>>*/ }
    function get_copy(e, o){
      /*<<weak.ml:54:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get_copy);
      /*<<weak.ml:55:2>>*/ return  /*<<weak.ml:55:2>>*/ runtime.caml_ephe_get_key_copy
-            (e, o);
+             /*<<weak.ml:55:2>>*/ (e, o);
     /*<<weak.ml:55:14>>*/ }
    function check(e, o){
      /*<<weak.ml:59:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_check);
      /*<<weak.ml:60:2>>*/ return  /*<<weak.ml:60:2>>*/ runtime.caml_ephe_check_key
-            (e, o);
+             /*<<weak.ml:60:2>>*/ (e, o);
     /*<<weak.ml:60:11>>*/ }
    function blit(e1, o1, e2, o2, l){
      /*<<weak.ml:66:2>>*/ if
@@ -26871,12 +28386,12 @@
       _F_ =
         _E_
          ?  /*<<weak.ml:69:22>>*/ runtime.caml_ephe_blit_key
-           (e1, o1, e2, o2, l)
+            /*<<weak.ml:69:22>>*/ (e1, o1, e2, o2, l)
          : _E_;
       /*<<weak.ml:69:22>>*/ return _F_;
     }
      /*<<weak.ml:68:7>>*/ return  /*<<weak.ml:68:7>>*/ caml_call1
-            (Stdlib[1], cst_Weak_blit);
+             /*<<weak.ml:68:7>>*/ (Stdlib[1], cst_Weak_blit);
     /*<<weak.ml:69:40>>*/ }
    function fill(ar, ofs, len, x){
      /*<<weak.ml:72:2>>*/ if
@@ -26894,7 +28409,7 @@
      return 0;
     }
      /*<<weak.ml:73:7>>*/ throw  /*<<weak.ml:73:7>>*/ caml_maybe_attach_backtrace
-           ([0, Stdlib[6], cst_Weak_fill], 1);
+            /*<<weak.ml:73:7>>*/ ([0, Stdlib[6], cst_Weak_fill], 1);
     /*<<weak.ml:78:5>>*/ }
    function Make(H){
     var emptybucket =  /*<<weak.ml:105:20>>*/ create(0);
@@ -26907,8 +28422,10 @@
       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_make_vect
+               /*<<weak.ml:126:14>>*/ (sz$1, emptybucket),
+              /*<<weak.ml:127:15>>*/ caml_make_vect
+               /*<<weak.ml:127:15>>*/ (sz$1, [0]),
              limit,
              0,
              0];
@@ -26932,7 +28449,7 @@
     function fold(f, t, init){
      var i = 0;
       /*<<weak.ml:149:4>>*/ return  /*<<weak.ml:149:4>>*/ caml_call3
-             (Stdlib_Array[20],
+              /*<<weak.ml:149:4>>*/ (Stdlib_Array[20],
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
@@ -26943,7 +28460,7 @@
                   v = match[1],
                   accu$0 =
                      /*<<weak.ml:146:38>>*/  /*<<weak.ml:146:38>>*/ caml_call2
-                     (f, v, accu),
+                      /*<<weak.ml:146:38>>*/ (f, v, accu),
                   i$1 = i$0 + 1 | 0;
                  i$0 = i$1;
                  accu = accu$0;
@@ -26957,7 +28474,7 @@
     function iter(f, t){
      var i = 0;
       /*<<weak.ml:159:15>>*/ return  /*<<weak.ml:159:15>>*/ caml_call2
-             (Stdlib_Array[12],
+              /*<<weak.ml:159:15>>*/ (Stdlib_Array[12],
               function(b){
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
@@ -26966,7 +28483,7 @@
                 if(match){
                  var v = match[1];
                   /*<<weak.ml:156:18>>*/  /*<<weak.ml:156:18>>*/ caml_call1
-                  (f, v);
+                   /*<<weak.ml:156:18>>*/ (f, v);
                  var i$1 = i$0 + 1 | 0;
                  i$0 = i$1;
                 }
@@ -26990,7 +28507,7 @@
     function count(t){
      var _v_ = 0;
       /*<<weak.ml:178:4>>*/ return  /*<<weak.ml:178:4>>*/ caml_call3
-             (Stdlib_Array[20],
+              /*<<weak.ml:178:4>>*/ (Stdlib_Array[20],
               function(_w_, _x_){
                 /*<<?>>*/ return count_bucket(_v_, _w_, _x_);
               },
@@ -27009,7 +28526,7 @@
       if(sz <= i$3) break;
        /*<<weak.ml:260:18>>*/ if(! check(bucket$0, i$3)){
         /*<<weak.ml:263:8>>*/  /*<<weak.ml:263:8>>*/ caml_call3
-        (setter, bucket$0, i$3, d);
+         /*<<weak.ml:263:8>>*/ (setter, bucket$0, i$3, d);
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
         /*<<weak.ml:264:8>>*/ return 0;
       }
@@ -27019,22 +28536,22 @@
      var
       newsz =
          /*<<weak.ml:244:10>>*/  /*<<weak.ml:244:10>>*/ caml_call2
-         (Stdlib_Int[10],
+          /*<<weak.ml:244:10>>*/ (Stdlib_Int[10],
           ((3 * sz | 0) / 2 | 0) + 3 | 0,
           Stdlib_Sys[13] - 2 | 0);
      if(newsz <= sz)
        /*<<weak.ml:246:28>>*/  /*<<weak.ml:246:28>>*/ caml_call1
-       (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
+        /*<<weak.ml:246:28>>*/ (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
      var
       newbucket$0 =  /*<<weak.ml:247:24>>*/ create(newsz),
       newhashes =
          /*<<weak.ml:248:24>>*/  /*<<weak.ml:248:24>>*/ caml_make_vect
-         (newsz, 0);
+          /*<<weak.ml:248:24>>*/ (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);
+       /*<<weak.ml:250:8>>*/ (Stdlib_Array[9], hashes, 0, newhashes, 0, sz);
       /*<<weak.ml:251:8>>*/  /*<<weak.ml:251:8>>*/ caml_call3
-      (setter, newbucket$0, sz, d);
+       /*<<weak.ml:251:8>>*/ (setter, newbucket$0, sz, d);
       /*<<weak.ml:252:8>>*/ caml_check_bound(newhashes, sz)[1 + sz] = h;
       /*<<weak.ml:253:8>>*/ caml_check_bound(t[1], index)[1 + index] = newbucket$0;
       /*<<weak.ml:254:8>>*/ caml_check_bound(t[2], index)[1 + index] = newhashes;
@@ -27087,7 +28604,7 @@
          var
           _p_ =
              /*<<weak.ml:209:30>>*/  /*<<weak.ml:209:30>>*/ caml_call3
-             (Stdlib_Array[6], hbucket, 0, prev_len),
+              /*<<weak.ml:209:30>>*/ (Stdlib_Array[6], hbucket, 0, prev_len),
           _q_ = t[5];
           /*<<weak.ml:209:8>>*/ caml_check_bound(t[2], _q_)[1 + _q_] = _p_;
         }
@@ -27108,11 +28625,13 @@
       oldlen = t[1].length - 1,
       newlen =
          /*<<weak.ml:181:18>>*/  /*<<weak.ml:181:18>>*/ caml_call2
-         (Stdlib_Int[10], ((3 * oldlen | 0) / 2 | 0) + 3 | 0, Stdlib_Sys[13]);
+          /*<<weak.ml:181:18>>*/ (Stdlib_Int[10],
+          ((3 * oldlen | 0) / 2 | 0) + 3 | 0,
+          Stdlib_Sys[13]);
      if(oldlen < newlen){
       var newt =  /*<<weak.ml:220:17>>*/ create$0(newlen), i = 0;
        /*<<weak.ml:169:16>>*/  /*<<weak.ml:169:16>>*/ caml_call2
-       (Stdlib_Array[13],
+        /*<<weak.ml:169:16>>*/ (Stdlib_Array[13],
         function(j, ob){
          var oi = i;
           /*<<weak.ml:164:6>>*/ for(;;){
@@ -27148,13 +28667,17 @@
      /*<<weak.ml:267:10>>*/ }
     function add(t, d){
      var
-      h =  /*<<weak.ml:271:12>>*/  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
+      h =
+         /*<<weak.ml:271:12>>*/  /*<<weak.ml:271:12>>*/ caml_call1
+          /*<<weak.ml:271:12>>*/ (H[2], d);
       /*<<weak.ml:272:29>>*/ return add_aux
              (t, set, [0, d], h, get_index(t, h));
      /*<<weak.ml:272:44>>*/ }
     function find_aux(t, d, found, notfound){
      var
-      h =  /*<<weak.ml:278:12>>*/  /*<<weak.ml:278:12>>*/ caml_call1(H[2], d),
+      h =
+         /*<<weak.ml:278:12>>*/  /*<<weak.ml:278:12>>*/ caml_call1
+          /*<<weak.ml:278:12>>*/ (H[2], d),
       index =  /*<<weak.ml:279:16>>*/ get_index(t, h),
       bucket =
          /*<<weak.ml:280:17>>*/ caml_check_bound(t[1], index)[1 + index],
@@ -27165,15 +28688,16 @@
       /*<<weak.ml:284:6>>*/ for(;;){
       if(sz <= i)
         /*<<weak.ml:279:16>>*/ return  /*<<weak.ml:279:16>>*/ caml_call2
-               (notfound, h, index);
+                /*<<weak.ml:279:16>>*/ (notfound, h, index);
       if(h === caml_check_bound(hashes, i)[1 + i]){
        var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
        if(opt){
         var v = opt[1];
          /*<<weak.ml:287:29>>*/ if
-         ( /*<<weak.ml:287:29>>*/ caml_call2(H[1], v, d))
+         ( /*<<weak.ml:287:29>>*/ caml_call2
+            /*<<weak.ml:287:29>>*/ (H[1], v, d))
           /*<<weak.ml:287:44>>*/ return  /*<<weak.ml:287:44>>*/ caml_call4
-                 (found, bucket, i, opt, v);
+                  /*<<weak.ml:287:44>>*/ (found, bucket, i, opt, v);
        }
        var i$0 =  /*<<weak.ml:288:15>>*/ i + 1 | 0;
        i = i$0;
@@ -27213,7 +28737,7 @@
                /*<<weak.ml:300:55>>*/ },
               function(h, i){
                 /*<<weak.ml:301:48>>*/ throw  /*<<weak.ml:301:48>>*/ caml_maybe_attach_backtrace
-                      (Stdlib[8], 1);
+                       /*<<weak.ml:301:48>>*/ (Stdlib[8], 1);
                /*<<weak.ml:301:63>>*/ });
      /*<<weak.ml:301:64>>*/ }
     function remove(t, d){
@@ -27240,7 +28764,9 @@
      /*<<weak.ml:307:54>>*/ }
     function find_all(t, d){
      var
-      h =  /*<<weak.ml:310:12>>*/  /*<<weak.ml:310:12>>*/ caml_call1(H[2], d),
+      h =
+         /*<<weak.ml:310:12>>*/  /*<<weak.ml:310:12>>*/ caml_call1
+          /*<<weak.ml:310:12>>*/ (H[2], d),
       index =  /*<<weak.ml:311:16>>*/ get_index(t, h),
       bucket =
          /*<<weak.ml:312:17>>*/ caml_check_bound(t[1], index)[1 + index],
@@ -27256,7 +28782,8 @@
        if(match){
         var v = match[1];
          /*<<weak.ml:319:22>>*/ if
-         ( /*<<weak.ml:319:22>>*/ caml_call2(H[1], v, d)){
+         ( /*<<weak.ml:319:22>>*/ caml_call2
+            /*<<weak.ml:319:22>>*/ (H[1], v, d)){
          var
           accu$0 =  /*<<weak.ml:319:50>>*/ [0, v, accu],
           i$0 =  /*<<weak.ml:319:50>>*/ i + 1 | 0;
@@ -27276,13 +28803,15 @@
       len = t[1].length - 1,
       lens =
          /*<<weak.ml:327:15>>*/  /*<<weak.ml:327:15>>*/ caml_call2
-         (Stdlib_Array[14], length, t[1]);
+          /*<<weak.ml:327:15>>*/ (Stdlib_Array[14], length, t[1]);
       /*<<weak.ml:328:4>>*/  /*<<weak.ml:328:4>>*/ caml_call2
-      (Stdlib_Array[35], runtime.caml_int_compare, lens);
+       /*<<weak.ml:328:4>>*/ (Stdlib_Array[35],
+       runtime.caml_int_compare,
+       lens);
      var
       totlen =
          /*<<weak.ml:329:17>>*/  /*<<weak.ml:329:17>>*/ caml_call3
-         (Stdlib_Array[18],
+          /*<<weak.ml:329:17>>*/ (Stdlib_Array[18],
           function(_g_, _f_){ /*<<?>>*/ return _g_ + _f_ | 0;},
           0,
           lens),
@@ -27406,7 +28935,7 @@
     /*<<format.ml:251:72>>*/ }
    function pp_output_newline(state){
      /*<<format.ml:252:30>>*/ return  /*<<format.ml:252:30>>*/ caml_call1
-            (state[19], 0);
+             /*<<format.ml:252:30>>*/ (state[19], 0);
     /*<<format.ml:252:53>>*/ }
    function format_pp_text(state, size, text){
      /*<<format.ml:258:2>>*/ state[9] = state[9] - size | 0;
@@ -27428,12 +28957,12 @@
      indent = (state[6] - width | 0) + offset | 0,
      real_indent =
         /*<<format.ml:273:20>>*/  /*<<format.ml:273:20>>*/ caml_call2
-        (Stdlib_Int[10], state[8], indent);
+         /*<<format.ml:273:20>>*/ (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
-     (state[21], n);
+      /*<<format.ml:254:31>>*/ (state[21], n);
      /*<<format.ml:276:2>>*/ return format_string(state, after);
    }
    function break_same_line(state, param){
@@ -27441,7 +28970,7 @@
      /*<<format.ml:285:2>>*/ format_string(state, before);
     state[9] = state[9] - width | 0;
      /*<<format.ml:253:31>>*/  /*<<format.ml:253:31>>*/ caml_call1
-     (state[20], width);
+      /*<<format.ml:253:31>>*/ (state[20], width);
      /*<<format.ml:287:2>>*/ return format_string(state, after);
    }
    function format_pp_token(state, size$0, param){
@@ -27451,7 +28980,7 @@
         var
          match$3 =
             /*<<format.ml:348:16>>*/  /*<<format.ml:348:16>>*/ caml_call1
-            (Stdlib_Stack[8], state[3]);
+             /*<<format.ml:348:16>>*/ (Stdlib_Stack[8], state[3]);
         if(! match$3)  /*<<format.ml:349:14>>*/ return;
         var
          tabs = match$3[1][1],
@@ -27460,7 +28989,7 @@
              /*<<?>>*/ if(! ls)  /*<<format.ml:352:16>>*/ return [0, n, 0];
             var l = ls[2], x = ls[1];
              /*<<format.ml:353:29>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
-                     (n, x)
+                      /*<<format.ml:353:29>>*/ (n, x)
                     ? [0, n, ls]
                     : [0, x, add_tab(n, l)];
            };
@@ -27468,17 +28997,17 @@
         return;
        case 1:
          /*<<format.ml:339:4>>*/  /*<<format.ml:339:4>>*/ caml_call1
-         (Stdlib_Stack[5], state[2]);
+          /*<<format.ml:339:4>>*/ (Stdlib_Stack[5], state[2]);
          /*<<format.ml:339:4>>*/ return;
        case 2:
          /*<<format.ml:345:4>>*/  /*<<format.ml:345:4>>*/ caml_call1
-         (Stdlib_Stack[5], state[3]);
+          /*<<format.ml:345:4>>*/ (Stdlib_Stack[5], state[3]);
          /*<<format.ml:345:4>>*/ return;
        case 3:
         var
          match$4 =
             /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ caml_call1
-            (Stdlib_Stack[8], state[2]);
+             /*<<format.ml:378:16>>*/ (Stdlib_Stack[8], state[2]);
         if(! match$4)
           /*<<format.ml:379:14>>*/ return pp_output_newline(state);
         var width$0 = match$4[1][2];
@@ -27489,7 +29018,7 @@
         var
          match$1 =
             /*<<format.ml:306:8>>*/  /*<<format.ml:306:8>>*/ caml_call1
-            (Stdlib_Queue[6], state[28]);
+             /*<<format.ml:306:8>>*/ (Stdlib_Queue[6], state[28]);
         if(! match$1)  /*<<format.ml:307:12>>*/ return;
         var match$2 = match$1[1], size = match$2[1], length = match$2[3];
         state[12] = state[12] - length | 0;
@@ -27499,13 +29028,13 @@
         var
          match$5 =
             /*<<format.ml:419:17>>*/  /*<<format.ml:419:17>>*/ caml_call1
-            (Stdlib_Stack[5], state[5]);
+             /*<<format.ml:419:17>>*/ (Stdlib_Stack[5], state[5]);
         if(! match$5)  /*<<format.ml:420:15>>*/ return;
         var
          tag_name = match$5[1],
          marker =
             /*<<format.ml:422:20>>*/  /*<<format.ml:422:20>>*/ caml_call1
-            (state[25], tag_name);
+             /*<<format.ml:422:20>>*/ (state[25], tag_name);
          /*<<format.ml:423:7>>*/ return pp_output_string(state, marker);
      }
     switch(param[0]){
@@ -27520,7 +29049,7 @@
         before = breaks[1],
         match$6 =
            /*<<format.ml:389:16>>*/  /*<<format.ml:389:16>>*/ caml_call1
-           (Stdlib_Stack[8], state[2]);
+            /*<<format.ml:389:16>>*/ (Stdlib_Stack[8], state[2]);
        if(! match$6)  /*<<format.ml:390:14>>*/ return;
        var
         match$7 = match$6[1],
@@ -27565,7 +29094,7 @@
         insertion_point = state[6] - state[9] | 0,
         match$8 =
            /*<<format.ml:359:16>>*/  /*<<format.ml:359:16>>*/ caml_call1
-           (Stdlib_Stack[8], state[3]);
+            /*<<format.ml:359:16>>*/ (Stdlib_Stack[8], state[3]);
        if(! match$8)  /*<<format.ml:360:14>>*/ return;
        var
         tabs$0 = match$8[1][1],
@@ -27600,7 +29129,7 @@
         var
          match =
             /*<<format.ml:295:8>>*/  /*<<format.ml:295:8>>*/ caml_call1
-            (Stdlib_Stack[8], state[2]);
+             /*<<format.ml:295:8>>*/ (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)
@@ -27614,17 +29143,19 @@
         box_type$1 =
            /*<<format.ml:331:4>>*/ 1 === ty ? 1 : state[9] < size$0 ? ty : 5;
         /*<<format.ml:336:4>>*/ return  /*<<format.ml:336:4>>*/ caml_call2
-               (Stdlib_Stack[3], [0, box_type$1, width$2], state[2]);
+                /*<<format.ml:336:4>>*/ (Stdlib_Stack[3],
+                [0, box_type$1, width$2],
+                state[2]);
       case 4:
        var tbox = param[1];
         /*<<format.ml:342:4>>*/ return  /*<<format.ml:342:4>>*/ caml_call2
-               (Stdlib_Stack[3], tbox, state[3]);
+                /*<<format.ml:342:4>>*/ (Stdlib_Stack[3], tbox, state[3]);
       default:
        var
         tag_name$0 = param[1],
         marker$0 =
            /*<<format.ml:414:18>>*/  /*<<format.ml:414:18>>*/ caml_call1
-           (state[24], tag_name$0);
+            /*<<format.ml:414:18>>*/ (state[24], tag_name$0);
         /*<<format.ml:415:5>>*/ pp_output_string(state, marker$0);
        return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]);
     }
@@ -27634,7 +29165,7 @@
      var
       match =
          /*<<format.ml:431:8>>*/  /*<<format.ml:431:8>>*/ caml_call1
-         (Stdlib_Queue[9], state[28]);
+          /*<<format.ml:431:8>>*/ (Stdlib_Queue[9], state[28]);
      if(! match)  /*<<format.ml:432:12>>*/ return 0;
      var
       match$0 = match[1],
@@ -27647,7 +29178,7 @@
          /*<<format.ml:435:7>>*/ _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
-      (Stdlib_Queue[5], state[28]);
+       /*<<format.ml:436:6>>*/ (Stdlib_Queue[5], state[28]);
      var size$0 =  /*<<format.ml:437:20>>*/ 0 <= size ? size : pp_infinity;
       /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
      state[12] = length + state[12] | 0;
@@ -27663,16 +29194,18 @@
     /*<<format.ml:450:78>>*/ }
    function initialize_scan_stack(stack){
      /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
-     (Stdlib_Stack[9], stack);
+      /*<<format.ml:462:2>>*/ (Stdlib_Stack[9], stack);
     var queue_elem =  /*<<format.ml:463:19>>*/ [0, unknown, _b_, 0];
      /*<<format.ml:464:2>>*/ return  /*<<format.ml:464:2>>*/ caml_call2
-            (Stdlib_Stack[3], [0, -1, queue_elem], stack);
+             /*<<format.ml:464:2>>*/ (Stdlib_Stack[3],
+             [0, -1, queue_elem],
+             stack);
     /*<<format.ml:464:50>>*/ }
    function set_size(state, ty){
     var
      match =
         /*<<format.ml:476:8>>*/  /*<<format.ml:476:8>>*/ caml_call1
-        (Stdlib_Stack[8], state[1]);
+         /*<<format.ml:476:8>>*/ (Stdlib_Stack[8], state[1]);
     if(! match)  /*<<format.ml:477:12>>*/ return;
     var
      match$0 = match[1],
@@ -27688,7 +29221,7 @@
          var x$0 = state[13] + size | 0;
          queue_elem[1] = x$0;
           /*<<format.ml:493:10>>*/  /*<<format.ml:493:10>>*/ caml_call1
-          (Stdlib_Stack[5], state[1]);
+           /*<<format.ml:493:10>>*/ (Stdlib_Stack[5], state[1]);
         }
          /*<<format.ml:493:10>>*/ return;
        case 1:
@@ -27697,7 +29230,7 @@
          var x = state[13] + size | 0;
          queue_elem[1] = x;
           /*<<format.ml:488:10>>*/  /*<<format.ml:488:10>>*/ caml_call1
-          (Stdlib_Stack[5], state[1]);
+           /*<<format.ml:488:10>>*/ (Stdlib_Stack[5], state[1]);
         }
          /*<<format.ml:488:10>>*/ return;
      }
@@ -27707,7 +29240,7 @@
     if(b)  /*<<format.ml:504:12>>*/ set_size(state, 1);
     var elem =  /*<<format.ml:505:13>>*/ [0, state[13], token];
      /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
-            (Stdlib_Stack[3], elem, state[1]);
+             /*<<format.ml:506:2>>*/ (Stdlib_Stack[3], elem, state[1]);
     /*<<format.ml:506:37>>*/ }
    function pp_open_box_gen(state, indent, br_ty){
      /*<<format.ml:513:2>>*/ state[14] = state[14] + 1 | 0;
@@ -27740,9 +29273,9 @@
    function pp_open_stag(state, tag_name){
      /*<<format.ml:540:2>>*/ if(state[22]){
       /*<<format.ml:542:4>>*/  /*<<format.ml:542:4>>*/ caml_call2
-      (Stdlib_Stack[3], tag_name, state[4]);
+       /*<<format.ml:542:4>>*/ (Stdlib_Stack[3], tag_name, state[4]);
       /*<<format.ml:543:4>>*/  /*<<format.ml:543:4>>*/ caml_call1
-      (state[26], tag_name);
+       /*<<format.ml:543:4>>*/ (state[26], tag_name);
     }
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
@@ -27757,11 +29290,11 @@
      var
       match =
          /*<<format.ml:555:10>>*/  /*<<format.ml:555:10>>*/ caml_call1
-         (Stdlib_Stack[5], state[4]);
+          /*<<format.ml:555:10>>*/ (Stdlib_Stack[5], state[4]);
      if(match){
       var tag_name = match[1];
        /*<<format.ml:558:6>>*/ return  /*<<format.ml:558:6>>*/ caml_call1
-              (state[27], tag_name);
+               /*<<format.ml:558:6>>*/ (state[27], tag_name);
      }
      var _a0_ = 0;
     }
@@ -27808,13 +29341,13 @@
     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
-     (Stdlib_Stack[9], state[2]);
+      /*<<format.ml:593:2>>*/ (Stdlib_Stack[9], state[2]);
      /*<<format.ml:594:2>>*/  /*<<format.ml:594:2>>*/ caml_call1
-     (Stdlib_Stack[9], state[3]);
+      /*<<format.ml:594:2>>*/ (Stdlib_Stack[9], state[3]);
      /*<<format.ml:595:2>>*/  /*<<format.ml:595:2>>*/ caml_call1
-     (Stdlib_Stack[9], state[4]);
+      /*<<format.ml:595:2>>*/ (Stdlib_Stack[9], state[4]);
      /*<<format.ml:596:2>>*/  /*<<format.ml:596:2>>*/ caml_call1
-     (Stdlib_Stack[9], state[5]);
+      /*<<format.ml:596:2>>*/ (Stdlib_Stack[9], state[5]);
     state[10] = 0;
     state[14] = 0;
     state[9] = state[6];
@@ -27822,7 +29355,7 @@
     /*<<format.ml:600:23>>*/ }
    function pp_flush_queue(state, end_with_newline){
      /*<<format.ml:608:2>>*/  /*<<format.ml:603:13>>*/ caml_call2
-     (Stdlib_Stack[13],
+      /*<<format.ml:603:13>>*/ (Stdlib_Stack[13],
       function(param){
         /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0);
        /*<<format.ml:603:45>>*/ },
@@ -27852,27 +29385,33 @@
     var
      s$0 =
         /*<<format.ml:637:37>>*/  /*<<format.ml:637:37>>*/ caml_call1
-        (Stdlib_Bytes[6], s),
+         /*<<format.ml:637:37>>*/ (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>>*/ }
    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));
+            (state,
+              /*<<format.ml:640:49>>*/ caml_call1
+               /*<<format.ml:640:49>>*/ (Stdlib_Int[12], i));
     /*<<format.ml:640: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));
+            (state,
+              /*<<format.ml:643:51>>*/ caml_call1
+               /*<<format.ml:643:51>>*/ (Stdlib[35], f));
     /*<<format.ml:643: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));
+            (state,
+              /*<<format.ml:646:50>>*/ caml_call1
+               /*<<format.ml:646:50>>*/ (Stdlib[30], b));
     /*<<format.ml:646:68>>*/ }
    function pp_print_char(state, c){
     var
      s =
         /*<<format.ml:650:22>>*/  /*<<format.ml:650:22>>*/ caml_call2
-        (Stdlib_String[1], 1, c);
+         /*<<format.ml:650:22>>*/ (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;
@@ -27895,12 +29434,12 @@
    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
-            (state[18], 0);
+             /*<<format.ml:673:2>>*/ (state[18], 0);
     /*<<format.ml:673: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
-            (state[18], 0);
+             /*<<format.ml:675:2>>*/ (state[18], 0);
     /*<<format.ml:675:69>>*/ }
    function pp_force_newline(state, param){
     var _aX_ = state[14] < state[15] ? 1 : 0;
@@ -27922,7 +29461,9 @@
      token =  /*<<format.ml:697:25>>*/ [1, fits, breaks],
      length =
        (caml_ml_string_length(before) + width | 0)
-       +  /*<<format.ml:698:4>>*/ caml_ml_string_length(after)
+       +
+         /*<<format.ml:698:4>>*/ caml_ml_string_length
+          /*<<format.ml:698:4>>*/ (after)
        | 0,
      elem =  /*<<format.ml:699:15>>*/ [0, size, token, length];
      /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem);
@@ -28022,9 +29563,12 @@
      var
       _aK_ =
          /*<<format.ml:810:15>>*/  /*<<format.ml:810:15>>*/ caml_call2
-         (Stdlib_Int[11], state[6] - state[7] | 0, state[6] / 2 | 0),
+          /*<<format.ml:810:15>>*/ (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:810:7>>*/ caml_call2
+          /*<<format.ml:810:7>>*/ (Stdlib_Int[11], _aK_, 1);
      /*<<format.ml:813:4>>*/ return pp_set_max_indent(state, new_max_indent);
     /*<<format.ml:813:42>>*/ }
    function validate_geometry(param){
@@ -28057,9 +29601,11 @@
      msg = match[1],
      _aI_ =
         /*<<format.ml:844:28>>*/  /*<<format.ml:844:28>>*/ caml_call2
-        (Stdlib[28], cst_Format_pp_set_geometry, msg);
+         /*<<format.ml:844:28>>*/ (Stdlib[28],
+         cst_Format_pp_set_geometry,
+         msg);
      /*<<format.ml:844:4>>*/ throw  /*<<format.ml:844:4>>*/ caml_maybe_attach_backtrace
-           ([0, Stdlib[6], _aI_], 1);
+            /*<<format.ml:844:4>>*/ ([0, Stdlib[6], _aI_], 1);
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
     var geometry =  /*<<format.ml:849:17>>*/ [0, max_indent, margin];
@@ -28073,7 +29619,9 @@
    function pp_update_geometry(state, update){
     var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
      /*<<format.ml:861:29>>*/ return pp_set_full_geometry
-            (state,  /*<<format.ml:861:29>>*/ caml_call1(update, geometry));
+            (state,
+              /*<<format.ml:861:29>>*/ caml_call1
+               /*<<format.ml:861:29>>*/ (update, geometry));
     /*<<format.ml:861: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];
@@ -28102,12 +29650,12 @@
     /*<<format.ml:891:43>>*/ }
    function display_newline(state, param){
      /*<<format.ml:895:31>>*/ return  /*<<format.ml:895:31>>*/ caml_call3
-            (state[17], cst$7, 0, 1);
+             /*<<format.ml:895:31>>*/ (state[17], cst$7, 0, 1);
     /*<<format.ml:895:60>>*/ }
    var
     blank_line =
        /*<<format.ml:898:17>>*/  /*<<format.ml:898:17>>*/ caml_call2
-       (Stdlib_String[1], 80, 32),
+        /*<<format.ml:898:17>>*/ (Stdlib_String[1], 80, 32),
     _g_ = [3, 0, 3];
    function display_blanks(state, n){
     var n$0 = n;
@@ -28116,20 +29664,21 @@
      if(! _aH_) return _aH_;
      if(80 >= n$0)
        /*<<format.ml:901:18>>*/ return  /*<<format.ml:901:18>>*/ caml_call3
-              (state[17], blank_line, 0, n$0);
+               /*<<format.ml:901:18>>*/ (state[17], blank_line, 0, n$0);
       /*<<format.ml:903:4>>*/  /*<<format.ml:903:4>>*/ caml_call3
-      (state[17], blank_line, 0, 80);
+       /*<<format.ml:903:4>>*/ (state[17], blank_line, 0, 80);
      var n$1 =  /*<<format.ml:903:4>>*/ n$0 - 80 | 0;
      n$0 = n$1;
     }
     /*<<format.ml:905: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:914:25>>*/ caml_call1
+       /*<<format.ml:914:25>>*/ (Stdlib[69], oc);
     state[18] =
      function(param){
        /*<<format.ml:915:35>>*/ return  /*<<format.ml:915:2>>*/ caml_call1
-              (Stdlib[63], oc);
+               /*<<format.ml:915:2>>*/ (Stdlib[63], oc);
       /*<<format.ml:915:43>>*/ };
     state[19] =
      function(_aG_){ /*<<?>>*/ return display_newline(state, _aG_);};
@@ -28144,9 +29693,9 @@
      s = param[2],
      _aD_ =
         /*<<format.ml:927:26>>*/  /*<<format.ml:927:26>>*/ caml_call2
-        (Stdlib[28], s, cst$8);
+         /*<<format.ml:927:26>>*/ (Stdlib[28], s, cst$8);
      /*<<format.ml:927:26>>*/ return  /*<<format.ml:927:26>>*/ caml_call2
-            (Stdlib[28], cst$9, _aD_);
+             /*<<format.ml:927:26>>*/ (Stdlib[28], cst$9, _aD_);
     /*<<format.ml:928:11>>*/ }
    function default_pp_mark_close_tag(param){
      /*<<format.ml:929:32>>*/ if(param[1] !== String_tag)
@@ -28155,9 +29704,9 @@
      s = param[2],
      _aC_ =
         /*<<format.ml:930:27>>*/  /*<<format.ml:930:27>>*/ caml_call2
-        (Stdlib[28], s, cst$11);
+         /*<<format.ml:930:27>>*/ (Stdlib[28], s, cst$11);
      /*<<format.ml:930:27>>*/ return  /*<<format.ml:930:27>>*/ caml_call2
-            (Stdlib[28], cst$12, _aC_);
+             /*<<format.ml:930:27>>*/ (Stdlib[28], cst$12, _aC_);
     /*<<format.ml:931:11>>*/ }
    function default_pp_print_open_tag(_aB_){ /*<<?>>*/ return 0;}
    function default_pp_print_close_tag(_aA_){ /*<<?>>*/ return 0;}
@@ -28165,32 +29714,33 @@
     var
      pp_queue =
         /*<<format.ml:940:17>>*/  /*<<format.ml:940:17>>*/ caml_call1
-        (Stdlib_Queue[2], 0),
+         /*<<format.ml:940:17>>*/ (Stdlib_Queue[2], 0),
      sys_tok =  /*<<format.ml:942:4>>*/ [0, unknown, _g_, 0];
      /*<<format.ml:943:2>>*/  /*<<format.ml:943:2>>*/ caml_call2
-     (Stdlib_Queue[3], sys_tok, pp_queue);
+      /*<<format.ml:943:2>>*/ (Stdlib_Queue[3], sys_tok, pp_queue);
     var
      scan_stack =
         /*<<format.ml:944:19>>*/  /*<<format.ml:944:19>>*/ caml_call1
-        (Stdlib_Stack[2], 0);
+         /*<<format.ml:944:19>>*/ (Stdlib_Stack[2], 0);
      /*<<format.ml:945:2>>*/ initialize_scan_stack(scan_stack);
      /*<<format.ml:946:2>>*/  /*<<format.ml:946:2>>*/ caml_call2
-     (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
+      /*<<format.ml:946:2>>*/ (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
     var
      pp_margin =  /*<<format.ml:946:2>>*/ 78,
      _aw_ = Stdlib[19],
      _ax_ =
         /*<<format.ml:954:20>>*/  /*<<format.ml:954:20>>*/ caml_call1
-        (Stdlib_Stack[2], 0),
+         /*<<format.ml:954:20>>*/ (Stdlib_Stack[2], 0),
      _ay_ =
         /*<<format.ml:953:19>>*/  /*<<format.ml:953:19>>*/ caml_call1
-        (Stdlib_Stack[2], 0),
+         /*<<format.ml:953:19>>*/ (Stdlib_Stack[2], 0),
      _az_ =
         /*<<format.ml:952:20>>*/  /*<<format.ml:952:20>>*/ caml_call1
-        (Stdlib_Stack[2], 0);
+         /*<<format.ml:952:20>>*/ (Stdlib_Stack[2], 0);
      /*<<format.ml:949:2>>*/ return [0,
             scan_stack,
-             /*<<format.ml:951:22>>*/ caml_call1(Stdlib_Stack[2], 0),
+             /*<<format.ml:951:22>>*/ caml_call1
+              /*<<format.ml:951:22>>*/ (Stdlib_Stack[2], 0),
             _az_,
             _ay_,
             _ax_,
@@ -28238,15 +29788,17 @@
     /*<<format.ml:998: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:1003:17>>*/ caml_call1
+               /*<<format.ml:1003:17>>*/ (Stdlib[69], oc),
              function(param){
                /*<<format.ml:1003:50>>*/ return  /*<<format.ml:1003:2>>*/ caml_call1
-                      (Stdlib[63], oc);
+                       /*<<format.ml:1003:2>>*/ (Stdlib[63], oc);
               /*<<format.ml:1003:58>>*/ });
     /*<<format.ml:1003: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:1008:17>>*/ caml_call1
+               /*<<format.ml:1008:17>>*/ (Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;});
     /*<<format.ml:1008:48>>*/ }
    var pp_buffer_size = 512;
@@ -28263,51 +29815,54 @@
     str_formatter =  /*<<format.ml:1024:20>>*/ formatter_of_buffer(stdbuf),
     stdbuf_key =
        /*<<format.ml:1029:17>>*/  /*<<format.ml:1029:17>>*/ caml_call2
-       (Stdlib_Domain[10][1], 0, pp_make_buffer);
+        /*<<format.ml:1029:17>>*/ (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:1030:8>>*/ (Stdlib_Domain[10][3], stdbuf_key, stdbuf);
    var
     str_formatter_key =
        /*<<format.ml:1032:24>>*/  /*<<format.ml:1032:24>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+        /*<<format.ml:1032:24>>*/ (Stdlib_Domain[10][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:22>>*/ (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>>*/ (Stdlib_Domain[10][3],
+     str_formatter_key,
+     str_formatter);
    function buffered_out_string(key, str, ofs, len){
     var
      _ao_ =
         /*<<format.ml:1037:23>>*/  /*<<format.ml:1037:23>>*/ caml_call1
-        (Stdlib_Domain[10][2], key);
+         /*<<format.ml:1037:23>>*/ (Stdlib_Domain[10][2], key);
      /*<<format.ml:1037:2>>*/ return  /*<<format.ml:1037:2>>*/ caml_call4
-            (Stdlib_Buffer[18], _ao_, str, ofs, len);
+             /*<<format.ml:1037:2>>*/ (Stdlib_Buffer[18], _ao_, str, ofs, len);
     /*<<format.ml:1037:55>>*/ }
    function buffered_out_flush(oc, key, param){
     var
      buf =
         /*<<format.ml:1040:12>>*/  /*<<format.ml:1040:12>>*/ caml_call1
-        (Stdlib_Domain[10][2], key),
+         /*<<format.ml:1040:12>>*/ (Stdlib_Domain[10][2], key),
      len =
         /*<<format.ml:1041:12>>*/  /*<<format.ml:1041:12>>*/ caml_call1
-        (Stdlib_Buffer[7], buf),
+         /*<<format.ml:1041:12>>*/ (Stdlib_Buffer[7], buf),
      str =
         /*<<format.ml:1042:12>>*/  /*<<format.ml:1042:12>>*/ caml_call1
-        (Stdlib_Buffer[2], buf);
+         /*<<format.ml:1042:12>>*/ (Stdlib_Buffer[2], buf);
      /*<<format.ml:1043:2>>*/  /*<<format.ml:1043:2>>*/ caml_call4
-     (Stdlib[69], oc, str, 0, len);
+      /*<<format.ml:1043:2>>*/ (Stdlib[69], oc, str, 0, len);
      /*<<format.ml:1044:2>>*/  /*<<format.ml:1044:2>>*/ caml_call1
-     (Stdlib[63], oc);
+      /*<<format.ml:1044:2>>*/ (Stdlib[63], oc);
      /*<<format.ml:1044:2>>*/ return  /*<<format.ml:1044:2>>*/ caml_call1
-            (Stdlib_Buffer[8], buf);
+             /*<<format.ml:1044:2>>*/ (Stdlib_Buffer[8], buf);
     /*<<format.ml:1045:18>>*/ }
    var
     std_buf_key =
        /*<<format.ml:1047:18>>*/  /*<<format.ml:1047:18>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+        /*<<format.ml:1047:18>>*/ (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1047:48>>*/ return caml_call1
@@ -28315,15 +29870,15 @@
          /*<<format.ml:1047:76>>*/ }),
     err_buf_key =
        /*<<format.ml:1048:18>>*/  /*<<format.ml:1048:18>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+        /*<<format.ml:1048:18>>*/ (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1048:48>>*/ return  /*<<format.ml:1047:18>>*/ caml_call1
-                 (Stdlib_Buffer[1], pp_buffer_size);
+                  /*<<format.ml:1047:18>>*/ (Stdlib_Buffer[1], pp_buffer_size);
          /*<<format.ml:1048:76>>*/ }),
     std_formatter_key =
        /*<<format.ml:1050:24>>*/  /*<<format.ml:1050:24>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+        /*<<format.ml:1050:24>>*/ (Stdlib_Domain[10][1],
         0,
         function(param){
          var
@@ -28347,16 +29902,18 @@
          ppf[21] =
           function(_ae_){ /*<<?>>*/ return display_blanks(ppf, _ae_);};
           /*<<format.ml:1058:2>>*/  /*<<format.ml:1058:2>>*/ caml_call1
-          (Stdlib_Domain[6],
+           /*<<format.ml:1058:2>>*/ (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:1060:8>>*/ (Stdlib_Domain[10][3],
+     std_formatter_key,
+     std_formatter);
    var
     err_formatter_key =
        /*<<format.ml:1062:24>>*/  /*<<format.ml:1062:24>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+        /*<<format.ml:1062:24>>*/ (Stdlib_Domain[10][1],
         0,
         function(param){
          var
@@ -28377,15 +29934,18 @@
          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
-          (Stdlib_Domain[6],
+           /*<<format.ml:1070:2>>*/ (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:1072:8>>*/ (Stdlib_Domain[10][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:1072:8>>*/ (Stdlib_Domain[10][2],
+             std_formatter_key);
     /*<<format.ml:1074:52>>*/ }
    function get_err_formatter(param){
      /*<<format.ml:1075:27>>*/ return caml_call1
@@ -28404,48 +29964,50 @@
     var
      s =
         /*<<format.ml:1085:10>>*/  /*<<format.ml:1085:10>>*/ caml_call1
-        (Stdlib_Buffer[2], buf);
+         /*<<format.ml:1085:10>>*/ (Stdlib_Buffer[2], buf);
      /*<<format.ml:1086:2>>*/  /*<<format.ml:1086:2>>*/ caml_call1
-     (Stdlib_Buffer[9], buf);
+      /*<<format.ml:1086:2>>*/ (Stdlib_Buffer[9], buf);
      /*<<format.ml:1086:2>>*/ return s;
     /*<<format.ml:1087:3>>*/ }
    function flush_str_formatter(param){
     var
      stdbuf =
         /*<<format.ml:1091:15>>*/  /*<<format.ml:1091:15>>*/ caml_call1
-        (Stdlib_Domain[10][2], stdbuf_key),
+         /*<<format.ml:1091:15>>*/ (Stdlib_Domain[10][2], stdbuf_key),
      str_formatter =
         /*<<format.ml:1092:22>>*/  /*<<format.ml:1092:22>>*/ caml_call1
-        (Stdlib_Domain[10][2], str_formatter_key);
+         /*<<format.ml:1092:22>>*/ (Stdlib_Domain[10][2], str_formatter_key);
      /*<<format.ml:1093:2>>*/ return flush_buffer_formatter
             (stdbuf, str_formatter);
     /*<<format.ml:1093:45>>*/ }
    function make_synchronized_formatter(output, flush){
      /*<<format.ml:1096:2>>*/ return  /*<<format.ml:1096:14>>*/ caml_call2
-            (Stdlib_Domain[10][1],
+             /*<<format.ml:1096:14>>*/ (Stdlib_Domain[10][1],
              0,
              function(param){
               var
                buf =
                   /*<<format.ml:1097:14>>*/  /*<<format.ml:1097:14>>*/ caml_call1
-                  (Stdlib_Buffer[1], pp_buffer_size),
+                   /*<<format.ml:1097:14>>*/ (Stdlib_Buffer[1],
+                   pp_buffer_size),
                output$0 =
                   /*<<format.ml:1098:18>>*/  /*<<format.ml:1098:18>>*/ caml_call1
-                  (Stdlib_Buffer[18], buf);
+                   /*<<format.ml:1098:18>>*/ (Stdlib_Buffer[18], buf);
               function flush$0(param){
                var
                 _R_ =
                    /*<<format.ml:1100:37>>*/  /*<<format.ml:1100:37>>*/ caml_call1
-                   (Stdlib_Buffer[7], buf);
+                    /*<<format.ml:1100:37>>*/ (Stdlib_Buffer[7], buf);
                 /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:6>>*/ caml_call3
-                (output,
-                  /*<<format.ml:1100:13>>*/ caml_call1(Stdlib_Buffer[2], buf),
+                 /*<<format.ml:1100:6>>*/ (output,
+                  /*<<format.ml:1100:13>>*/ caml_call1
+                   /*<<format.ml:1100:13>>*/ (Stdlib_Buffer[2], buf),
                  0,
                  _R_);
                 /*<<format.ml:1101:6>>*/  /*<<format.ml:1101:6>>*/ caml_call1
-                (Stdlib_Buffer[8], buf);
+                 /*<<format.ml:1101:6>>*/ (Stdlib_Buffer[8], buf);
                 /*<<format.ml:1101:6>>*/ return  /*<<format.ml:1101:6>>*/ caml_call1
-                       (flush, 0);
+                        /*<<format.ml:1101:6>>*/ (flush, 0);
                /*<<format.ml:1102:14>>*/ }
                /*<<format.ml:1104:4>>*/ return make_formatter
                       (output$0, flush$0);
@@ -28453,10 +30015,11 @@
     /*<<format.ml:1104: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:1107:30>>*/ caml_call1
+               /*<<format.ml:1107:30>>*/ (Stdlib[69], oc),
              function(param){
                /*<<format.ml:1107:63>>*/ return  /*<<format.ml:1107:2>>*/ caml_call1
-                      (Stdlib[63], oc);
+                       /*<<format.ml:1107:2>>*/ (Stdlib[63], oc);
               /*<<format.ml:1107:71>>*/ });
     /*<<format.ml:1107:72>>*/ }
    function make_symbolic_output_buffer(param){ /*<<format.ml:1134:2>>*/ return [0, 0];
@@ -28483,7 +30046,7 @@
              (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
-                (Stdlib_String[16], s, i, n)]);
+                 /*<<format.ml:1156:48>>*/ (Stdlib_String[16], s, i, n)]);
     }
     function g(_Q_){
       /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0);
@@ -28502,325 +30065,370 @@
    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:1176:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1176: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:1177:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1177: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:1178:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1178: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:1179:35>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1179: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:1180:29>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1180: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:1181:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1181: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:1182:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1182: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:1183:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1183:62>>*/ }
    function print_as(isize, w){
     var
      state =
         /*<<format.ml:1184:31>>*/  /*<<format.ml:1184:31>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1184:31>>*/ (Stdlib_Domain[10][2], std_formatter_key);
      /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, w);
     /*<<format.ml:1184: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:1185:37>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1185:66>>*/ }
    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:1186:35>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1186: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:1187:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1187: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:1188:35>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1188: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:1189:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1189: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:1190:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1190: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:1191:37>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v,
              w);
     /*<<format.ml:1191: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:1192:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1192: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:1193:35>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1193: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:1194:39>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1194: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:1195:35>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1195: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:1196:39>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1196: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:1197:45>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1197: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:1199:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1199: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:1200:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1200: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:1201:39>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v,
              w);
     /*<<format.ml:1201: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:1203:27>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1203: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:1204:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1204: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:1206:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1206:62>>*/ }
    function get_margin(v){
     var
      state =
         /*<<format.ml:1207:33>>*/  /*<<format.ml:1207:33>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1207:33>>*/ (Stdlib_Domain[10][2], std_formatter_key);
     return state[6];
     /*<<format.ml:1207: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:1209:41>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1209:70>>*/ }
    function get_max_indent(v){
     var
      state =
         /*<<format.ml:1210:41>>*/  /*<<format.ml:1210:41>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1210:41>>*/ (Stdlib_Domain[10][2], std_formatter_key);
     return state[8];
     /*<<format.ml:1210: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:1213:18>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              max_indent,
              margin);
     /*<<format.ml:1213: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:1215:23>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              max_indent,
              margin);
     /*<<format.ml:1215: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:1216:37>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1216: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:1217:43>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1217: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:1219:39>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1219:68>>*/ }
    function get_max_boxes(v){
     var
      state =
         /*<<format.ml:1220:39>>*/  /*<<format.ml:1220:39>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1220:39>>*/ (Stdlib_Domain[10][2], std_formatter_key);
     return state[15];
     /*<<format.ml:1220: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:1221:41>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1221: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:1223:47>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1223:76>>*/ }
    function get_ellipsis_text(v){
     var
      state =
         /*<<format.ml:1224:47>>*/  /*<<format.ml:1224:47>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1224:47>>*/ (Stdlib_Domain[10][2], std_formatter_key);
     return state[16];
     /*<<format.ml:1224: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:1227:31>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1227: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:1230:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1230: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:1232:33>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1232: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:1235:36>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v,
              w);
     /*<<format.ml:1235: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:1237:36>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1237: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:1240:34>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1240: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:1242:34>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1242: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:1244:20>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1244:49>>*/ }
    function get_print_tags(v){
     var
      state =
         /*<<format.ml:1246:20>>*/  /*<<format.ml:1246:20>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1246:20>>*/ (Stdlib_Domain[10][2], std_formatter_key);
     return state[22];
     /*<<format.ml:1246: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:1248:19>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1248:48>>*/ }
    function get_mark_tags(v){
     var
      state =
         /*<<format.ml:1250:19>>*/  /*<<format.ml:1250:19>>*/ caml_call1
-        (Stdlib_Domain[10][2], std_formatter_key);
+         /*<<format.ml:1250:19>>*/ (Stdlib_Domain[10][2], std_formatter_key);
     return state[23];
     /*<<format.ml:1250: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:1252:14>>*/ (Stdlib_Domain[10][2],
+               std_formatter_key),
              v);
     /*<<format.ml:1252:43>>*/ }
    function pp_print_iter(opt, iter, pp_v, ppf, v){
@@ -28832,12 +30440,12 @@
       is_first[1] = 0;
      else
        /*<<format.ml:1260:45>>*/  /*<<format.ml:1260:45>>*/ caml_call2
-       (pp_sep, ppf, 0);
+        /*<<format.ml:1260:45>>*/ (pp_sep, ppf, 0);
       /*<<format.ml:1260:45>>*/ return  /*<<format.ml:1260:45>>*/ caml_call2
-             (pp_v, ppf, v);
+              /*<<format.ml:1260:45>>*/ (pp_v, ppf, v);
      /*<<format.ml:1261:14>>*/ }
      /*<<format.ml:1263:2>>*/ return  /*<<format.ml:1263:2>>*/ caml_call2
-            (iter, pp_v$0, v);
+             /*<<format.ml:1263:2>>*/ (iter, pp_v$0, v);
    }
    function pp_print_list(opt, pp_v, ppf, v){
     var pp_sep = opt ? opt[1] : pp_print_cut;
@@ -28863,7 +30471,10 @@
       /*<<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:1283:24>>*/ (Stdlib_String[16],
+         s,
+         left[1],
+         right[1] - left[1] | 0));
      right[1]++;
      left[1] = right[1];
      return 0;
@@ -28876,7 +30487,7 @@
      var
       match =
          /*<<format.ml:1287:10>>*/  /*<<format.ml:1287:10>>*/ runtime.caml_string_get
-         (s, right[1]);
+          /*<<format.ml:1287:10>>*/ (s, right[1]);
      if(10 === match){
        /*<<format.ml:1289:8>>*/ flush(0);
        /*<<format.ml:1290:8>>*/ pp_force_newline(ppf, 0);
@@ -28900,48 +30511,52 @@
           /*<<format.ml:1299:43>>*/ };
     if(! param)
       /*<<format.ml:1300:10>>*/ return  /*<<format.ml:1300:10>>*/ caml_call2
-             (none, ppf, 0);
+              /*<<format.ml:1300:10>>*/ (none, ppf, 0);
     var v = param[1];
      /*<<format.ml:1301:12>>*/ return  /*<<format.ml:1301:12>>*/ caml_call2
-            (pp_v, ppf, v);
+             /*<<format.ml:1301:12>>*/ (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
-             (ok, ppf, v);
+              /*<<format.ml:1304:10>>*/ (ok, ppf, v);
     }
     var e = param[1];
      /*<<format.ml:1305:13>>*/ return  /*<<format.ml:1305:13>>*/ caml_call2
-            (error, ppf, e);
+             /*<<format.ml:1305:13>>*/ (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
-             (left, ppf, l);
+              /*<<format.ml:1308:19>>*/ (left, ppf, l);
     }
     var r = param[1];
      /*<<format.ml:1309:20>>*/ return  /*<<format.ml:1309:20>>*/ caml_call2
-            (right, ppf, r);
+             /*<<format.ml:1309:20>>*/ (right, ppf, r);
    }
    function compute_tag(output, tag_acc){
     var
      buf =
         /*<<format.ml:1314:12>>*/  /*<<format.ml:1314:12>>*/ caml_call1
-        (Stdlib_Buffer[1], 16),
+         /*<<format.ml:1314:12>>*/ (Stdlib_Buffer[1], 16),
      ppf =  /*<<format.ml:1315:12>>*/ formatter_of_buffer(buf);
      /*<<format.ml:1316:2>>*/  /*<<format.ml:1316:2>>*/ caml_call2
-     (output, ppf, tag_acc);
+      /*<<format.ml:1316:2>>*/ (output, ppf, tag_acc);
      /*<<format.ml:1317:2>>*/ pp_print_flush(ppf, 0);
     var
      len =
         /*<<format.ml:1318:12>>*/  /*<<format.ml:1318:12>>*/ caml_call1
-        (Stdlib_Buffer[7], buf);
+         /*<<format.ml:1318:12>>*/ (Stdlib_Buffer[7], buf);
      /*<<format.ml:1319:2>>*/ return 2 <= len
             ?  /*<<format.ml:1320:7>>*/ caml_call3
-              (Stdlib_Buffer[4], buf, 1, len - 2 | 0)
-            :  /*<<format.ml:1319:18>>*/ caml_call1(Stdlib_Buffer[2], buf);
+               /*<<format.ml:1320:7>>*/ (Stdlib_Buffer[4],
+               buf,
+               1,
+               len - 2 | 0)
+            :  /*<<format.ml:1319:18>>*/ caml_call1
+               /*<<format.ml:1319:18>>*/ (Stdlib_Buffer[2], buf);
     /*<<format.ml:1320:33>>*/ }
    function output_formatting_lit(ppf, fmting_lit){
      /*<<format.ml:1333:43>>*/ if(typeof fmting_lit === "number")
@@ -29000,7 +30615,7 @@
            _E_ =  /*<<format.ml:1366:43>>*/ compute_tag(output_acc, acc$1),
            match$0 =
               /*<<format.ml:1366:24>>*/  /*<<format.ml:1366:24>>*/ caml_call1
-              (CamlinternalFormat[20], _E_),
+               /*<<format.ml:1366:24>>*/ (CamlinternalFormat[20], _E_),
            bty = match$0[2],
            indent = match$0[1];
            /*<<format.ml:1367:4>>*/ return pp_open_box_gen(ppf, indent, bty);
@@ -29052,7 +30667,7 @@
           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
-                  (f$0, ppf);
+                   /*<<format.ml:1372:32>>*/ (f$0, ppf);
          case 7:
           var p$6 = acc[1];
            /*<<format.ml:1373:32>>*/ output_acc(ppf, p$6);
@@ -29061,14 +30676,14 @@
           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
-                  (Stdlib[1], msg);
+                   /*<<format.ml:1374:32>>*/ (Stdlib[1], msg);
        }
         /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
         /*<<format.ml:1357:44>>*/ return pp_print_as_size
                (ppf,
                 size$0,
                  /*<<format.ml:1357:44>>*/ caml_call2
-                 (Stdlib_String[1], 1, c$0));
+                  /*<<format.ml:1357:44>>*/ (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);
@@ -29107,7 +30722,7 @@
            _v_ =  /*<<format.ml:1401:43>>*/ compute_tag(strput_acc, acc$1),
            match$0 =
               /*<<format.ml:1401:24>>*/  /*<<format.ml:1401:24>>*/ caml_call1
-              (CamlinternalFormat[20], _v_),
+               /*<<format.ml:1401:24>>*/ (CamlinternalFormat[20], _v_),
            bty = match$0[2],
            indent = match$0[1];
            /*<<format.ml:1402:4>>*/ return pp_open_box_gen(ppf, indent, bty);
@@ -29163,13 +30778,18 @@
             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));
+                    (ppf,
+                     size$1,
+                      /*<<format.ml:1392:44>>*/ caml_call1
+                       /*<<format.ml:1392:44>>*/ (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));
+                  (ppf,
+                    /*<<format.ml:1407:70>>*/ caml_call1
+                     /*<<format.ml:1407:70>>*/ (f$0, 0));
          case 7:
           var p$7 = acc[1];
            /*<<format.ml:1408:32>>*/ strput_acc(ppf, p$7);
@@ -29178,14 +30798,14 @@
           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
-                  (Stdlib[1], msg);
+                   /*<<format.ml:1409:32>>*/ (Stdlib[1], msg);
        }
         /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
         /*<<format.ml:1389:44>>*/ return pp_print_as_size
                (ppf,
                 size$0,
                  /*<<format.ml:1389:44>>*/ caml_call2
-                 (Stdlib_String[1], 1, c$0));
+                  /*<<format.ml:1389:44>>*/ (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);
@@ -29199,7 +30819,7 @@
    function kfprintf(k, ppf, param){
     var fmt = param[1];
      /*<<format.ml:1419:2>>*/ return  /*<<format.ml:1419:2>>*/ caml_call3
-            (CamlinternalFormat[7],
+             /*<<format.ml:1419:2>>*/ (CamlinternalFormat[7],
              function(acc){
                /*<<format.ml:1420:16>>*/ output_acc(ppf, acc);
               return caml_call1(k, ppf);
@@ -29210,12 +30830,12 @@
    function ikfprintf(k, ppf, param){
     var fmt = param[1];
      /*<<format.ml:1424:2>>*/ return  /*<<format.ml:1424:2>>*/ caml_call3
-            (CamlinternalFormat[8], k, ppf, fmt);
+             /*<<format.ml:1424:2>>*/ (CamlinternalFormat[8], k, ppf, fmt);
    }
    function ifprintf(ppf, param){
     var fmt = param[1];
      /*<<format.ml:1427:2>>*/ return  /*<<format.ml:1427:2>>*/ caml_call3
-            (CamlinternalFormat[8],
+             /*<<format.ml:1427:2>>*/ (CamlinternalFormat[8],
              function(_u_){ /*<<?>>*/ return 0;},
              0,
              fmt);
@@ -29228,11 +30848,12 @@
    function printf(param){
     var fmt = param[1];
      /*<<format.ml:1432:2>>*/ return  /*<<format.ml:1432:2>>*/ caml_call3
-            (CamlinternalFormat[7],
+             /*<<format.ml:1432:2>>*/ (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:1433:27>>*/ (Stdlib_Domain[10][2],
+                         std_formatter_key),
                        acc);
               /*<<format.ml:1433:58>>*/ },
              0,
@@ -29241,11 +30862,12 @@
    function eprintf(param){
     var fmt = param[1];
      /*<<format.ml:1437:2>>*/ return  /*<<format.ml:1437:2>>*/ caml_call3
-            (CamlinternalFormat[7],
+             /*<<format.ml:1437:2>>*/ (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:1438:27>>*/ (Stdlib_Domain[10][2],
+                         err_formatter_key),
                        acc);
               /*<<format.ml:1438:58>>*/ },
              0,
@@ -29254,10 +30876,10 @@
    function kdprintf(k, param){
     var fmt = param[1];
      /*<<format.ml:1442:2>>*/ return  /*<<format.ml:1442:2>>*/ caml_call3
-            (CamlinternalFormat[7],
+             /*<<format.ml:1442:2>>*/ (CamlinternalFormat[7],
              function(acc){
                /*<<format.ml:1443:16>>*/ return  /*<<format.ml:1443:18>>*/ caml_call1
-                      (k,
+                       /*<<format.ml:1443:18>>*/ (k,
                        function(ppf){
                          /*<<format.ml:1443:30>>*/ return output_acc(ppf, acc);
                         /*<<format.ml:1443:48>>*/ });
@@ -29280,10 +30902,10 @@
     function k$0(acc){
       /*<<format.ml:1452:4>>*/ strput_acc(ppf, acc);
       /*<<format.ml:1453:6>>*/ return  /*<<format.ml:1453:6>>*/ caml_call1
-             (k, flush_buffer_formatter(b, ppf));
+              /*<<format.ml:1453:6>>*/ (k, flush_buffer_formatter(b, ppf));
      /*<<format.ml:1453:36>>*/ }
      /*<<format.ml:1454:2>>*/ return  /*<<format.ml:1454:2>>*/ caml_call3
-            (CamlinternalFormat[7], k$0, 0, fmt);
+             /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt);
    }
    function sprintf(fmt){
      /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt);
@@ -29296,10 +30918,10 @@
     function k$0(acc){
       /*<<format.ml:1463:4>>*/ output_acc(ppf, acc);
       /*<<format.ml:1464:6>>*/ return  /*<<format.ml:1464:6>>*/ caml_call1
-             (k, flush_buffer_formatter(b, ppf));
+              /*<<format.ml:1464:6>>*/ (k, flush_buffer_formatter(b, ppf));
      /*<<format.ml:1464:36>>*/ }
      /*<<format.ml:1465:2>>*/ return  /*<<format.ml:1465:2>>*/ caml_call3
-            (CamlinternalFormat[7], k$0, 0, fmt);
+             /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt);
    }
    function asprintf(fmt){
      /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt);
@@ -29307,17 +30929,18 @@
    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:1473:17>>*/ (Stdlib_Domain[10][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:1474:17>>*/ (Stdlib_Domain[10][2],
+               err_formatter_key),
              0);
     /*<<format.ml:1474:47>>*/ }
     /*<<format.ml:1476:9>>*/  /*<<format.ml:1476:9>>*/ caml_call1
-    (Stdlib[100], flush_standard_formatters);
+     /*<<format.ml:1476:9>>*/ (Stdlib[100], flush_standard_formatters);
     /*<<format.ml:1478:9>>*/  /*<<format.ml:1478:9>>*/ caml_call1
-    (Stdlib_Domain[5],
+     /*<<format.ml:1478:9>>*/ (Stdlib_Domain[5],
      function(param){
        /*<<format.ml:1479:2>>*/ flush_standard_formatters(0);
       var
@@ -29589,7 +31212,8 @@
      /*<<scanf.ml:165:4>>*/ try{
      var
       c =
-         /*<<scanf.ml:166:14>>*/  /*<<scanf.ml:166:14>>*/ caml_call1(ib[7], 0);
+         /*<<scanf.ml:166:14>>*/  /*<<scanf.ml:166:14>>*/ caml_call1
+          /*<<scanf.ml:166:14>>*/ (ib[7], 0);
      ib[2] = c;
      ib[3] = 1;
      ib[4] = ib[4] + 1 | 0;
@@ -29612,7 +31236,7 @@
     var c =  /*<<scanf.ml:192:12>>*/ peek_char(ib);
     if(ib[1])
       /*<<scanf.ml:193:22>>*/ throw  /*<<scanf.ml:193:22>>*/ caml_maybe_attach_backtrace
-            (Stdlib[12], 1);
+             /*<<scanf.ml:193:22>>*/ (Stdlib[12], 1);
      /*<<scanf.ml:194:4>>*/ return c;
     /*<<scanf.ml:194:5>>*/ }
    function end_of_input(ib){
@@ -29643,9 +31267,9 @@
      token_buffer = ib[8],
      tok =
         /*<<scanf.ml:228:14>>*/  /*<<scanf.ml:228:14>>*/ caml_call1
-        (Stdlib_Buffer[2], token_buffer);
+         /*<<scanf.ml:228:14>>*/ (Stdlib_Buffer[2], token_buffer);
      /*<<scanf.ml:229:4>>*/  /*<<scanf.ml:229:4>>*/ caml_call1
-     (Stdlib_Buffer[8], token_buffer);
+      /*<<scanf.ml:229:4>>*/ (Stdlib_Buffer[8], token_buffer);
     ib[6] = ib[6] + 1 | 0;
      /*<<scanf.ml:231:4>>*/ return tok;
     /*<<scanf.ml:231:7>>*/ }
@@ -29656,7 +31280,7 @@
     /*<<scanf.ml:241:53>>*/ }
    function store_char(width, ib, c){
      /*<<scanf.ml:244:4>>*/  /*<<scanf.ml:244:4>>*/ caml_call2
-     (Stdlib_Buffer[12], ib[8], c);
+      /*<<scanf.ml:244:4>>*/ (Stdlib_Buffer[12], ib[8], c);
      /*<<scanf.ml:244:4>>*/ return ignore_char(width, ib);
     /*<<scanf.ml:245:24>>*/ }
    var default_token_buffer_size = 1024;
@@ -29670,7 +31294,8 @@
             0,
             next,
              /*<<scanf.ml:258:22>>*/ caml_call1
-             (Stdlib_Buffer[1], default_token_buffer_size),
+              /*<<scanf.ml:258:22>>*/ (Stdlib_Buffer[1],
+              default_token_buffer_size),
             iname];
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
@@ -29678,15 +31303,15 @@
      i =  /*<<scanf.ml:264:12>>*/ [0, 0],
      len =
         /*<<scanf.ml:265:4>>*/  /*<<scanf.ml:265:4>>*/ caml_ml_string_length
-        (s);
+         /*<<scanf.ml:265:4>>*/ (s);
     function next(param){
       /*<<scanf.ml:267:6>>*/ if(len <= i[1])
        /*<<scanf.ml:267:24>>*/ throw  /*<<scanf.ml:267:24>>*/ caml_maybe_attach_backtrace
-             (Stdlib[12], 1);
+              /*<<scanf.ml:267:24>>*/ (Stdlib[12], 1);
      var
       c =
          /*<<scanf.ml:268:14>>*/  /*<<scanf.ml:268:14>>*/ caml_string_get
-         (s, i[1]);
+          /*<<scanf.ml:268:14>>*/ (s, i[1]);
       /*<<scanf.ml:269:6>>*/ i[1]++;
       /*<<scanf.ml:270:6>>*/ return c;
      /*<<scanf.ml:270:7>>*/ }
@@ -29697,19 +31322,19 @@
    var len =  /*<<scanf.ml:274:22>>*/ 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/  /*<<scanf.ml:320:29>>*/ caml_call1
-     (Stdlib[93], ic);
+      /*<<scanf.ml:320:29>>*/ (Stdlib[93], ic);
      /*<<scanf.ml:320:49>>*/ throw  /*<<scanf.ml:320:49>>*/ caml_maybe_attach_backtrace
-           (Stdlib[12], 1);
+            /*<<scanf.ml:320:49>>*/ (Stdlib[12], 1);
     /*<<scanf.ml:320:66>>*/ }
    function scan_raise_at_end(ic){
      /*<<scanf.ml:324:30>>*/ throw  /*<<scanf.ml:324:30>>*/ caml_maybe_attach_backtrace
-           (Stdlib[12], 1);
+            /*<<scanf.ml:324:30>>*/ (Stdlib[12], 1);
     /*<<scanf.ml:324:47>>*/ }
    function from_ic(scan_close_ic, iname, ic){
     var
      buf =
         /*<<scanf.ml:328:14>>*/  /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes
-        (1024),
+         /*<<scanf.ml:328:14>>*/ (1024),
      i =  /*<<scanf.ml:329:12>>*/ [0, 0],
      lim =  /*<<scanf.ml:330:14>>*/ [0, 0],
      eof =  /*<<scanf.ml:331:14>>*/ [0, 0];
@@ -29718,17 +31343,23 @@
       var
        c =
           /*<<scanf.ml:333:38>>*/  /*<<scanf.ml:333:38>>*/ caml_bytes_get
-          (buf, i[1]);
+           /*<<scanf.ml:333:38>>*/ (buf, i[1]);
        /*<<scanf.ml:333:58>>*/ i[1]++;
        /*<<scanf.ml:333:66>>*/ return c;
      }
      if(eof[1])
        /*<<scanf.ml:334:19>>*/ throw  /*<<scanf.ml:334:19>>*/ caml_maybe_attach_backtrace
-             (Stdlib[12], 1);
-     lim[1] =  /*<<scanf.ml:335:15>>*/ caml_call4(Stdlib[84], ic, buf, 0, len);
+              /*<<scanf.ml:334:19>>*/ (Stdlib[12], 1);
+     lim[1] =
+       /*<<scanf.ml:335:15>>*/ caml_call4
+        /*<<scanf.ml:335:15>>*/ (Stdlib[84], ic, buf, 0, len);
      return 0 === lim[1]
              ? (eof[1] = 1, caml_call1(scan_close_ic, ic))
-             : (i[1] = 1,  /*<<scanf.ml:338:10>>*/ caml_bytes_get(buf, 0));
+             : (i
+                [1]
+               = 1,
+                /*<<scanf.ml:338:10>>*/ caml_bytes_get
+                 /*<<scanf.ml:338:10>>*/ (buf, 0));
      /*<<scanf.ml:340:9>>*/ }
      /*<<scanf.ml:341:4>>*/ return create(iname, next);
     /*<<scanf.ml:341:21>>*/ }
@@ -29742,7 +31373,7 @@
     var
      ic =
         /*<<scanf.ml:370:15>>*/  /*<<scanf.ml:370:15>>*/ caml_call1
-        (open_in, fname);
+         /*<<scanf.ml:370:15>>*/ (open_in, fname);
     return from_ic(scan_close_at_end, [1, fname, ic], ic);
     /*<<scanf.ml:371:53>>*/ }
    var _b_ = Stdlib[79];
@@ -29758,11 +31389,11 @@
     if(0 === match[0]){
      var ic = match[1];
       /*<<scanf.ml:387:6>>*/ return  /*<<scanf.ml:387:6>>*/ caml_call1
-             (Stdlib[93], ic);
+              /*<<scanf.ml:387:6>>*/ (Stdlib[93], ic);
     }
     var ic$0 = match[2];
      /*<<scanf.ml:388:32>>*/ return  /*<<scanf.ml:388:32>>*/ caml_call1
-            (Stdlib[93], ic$0);
+             /*<<scanf.ml:388:32>>*/ (Stdlib[93], ic$0);
     /*<<scanf.ml:389:39>>*/ }
    var
     Scan_failure =
@@ -29855,23 +31486,25 @@
     _t_ = [0, [3, 0, [10, 0]], "%S%!"];
    function bad_input(s){
      /*<<scanf.ml:405:18>>*/ throw  /*<<scanf.ml:405:18>>*/ caml_maybe_attach_backtrace
-           ([0, Scan_failure, s], 1);
+            /*<<scanf.ml:405:18>>*/ ([0, Scan_failure, s], 1);
     /*<<scanf.ml:405:40>>*/ }
    function bad_input_escape(c){
      /*<<scanf.ml:408:2>>*/ return bad_input
-            ( /*<<scanf.ml:408:12>>*/ caml_call2(Stdlib_Printf[4], _d_, c));
+            ( /*<<scanf.ml:408:12>>*/ caml_call2
+               /*<<scanf.ml:408:12>>*/ (Stdlib_Printf[4], _d_, c));
     /*<<scanf.ml:408:60>>*/ }
    function bad_token_length(message){
      /*<<scanf.ml:412:2>>*/ return bad_input
             ( /*<<scanf.ml:413:4>>*/ caml_call2
-              (Stdlib_Printf[4], _e_, message));
+               /*<<scanf.ml:413:4>>*/ (Stdlib_Printf[4], _e_, message));
     /*<<scanf.ml:416:15>>*/ }
    function bad_hex_float(param){
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad);
     /*<<scanf.ml:432:55>>*/ }
    function character_mismatch(c, ci){
      /*<<scanf.ml:440:2>>*/ return bad_input
-            ( /*<<scanf.ml:436:2>>*/ caml_call3(Stdlib_Printf[4], _g_, c, ci));
+            ( /*<<scanf.ml:436:2>>*/ caml_call3
+               /*<<scanf.ml:436:2>>*/ (Stdlib_Printf[4], _g_, c, ci));
     /*<<scanf.ml:440:41>>*/ }
    function check_char(ib, c$0){
      /*<<scanf.ml:468:2>>*/ if(10 === c$0){
@@ -29907,7 +31540,7 @@
     /*<<scanf.ml:476:25>>*/ }
    function token_char(ib){
      /*<<scanf.ml:488:20>>*/ return  /*<<scanf.ml:488:20>>*/ caml_string_get
-            (token_string(ib), 0);
+             /*<<scanf.ml:488:20>>*/ (token_string(ib), 0);
     /*<<scanf.ml:488:43>>*/ }
    function token_bool(ib){
     var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
@@ -29915,7 +31548,8 @@
             ? s
               !== "true"
               ? bad_input
-                ( /*<<scanf.ml:496:19>>*/ caml_call2(Stdlib_Printf[4], _h_, s))
+                ( /*<<scanf.ml:496:19>>*/ caml_call2
+                   /*<<scanf.ml:496:19>>*/ (Stdlib_Printf[4], _h_, s))
               : 1
             : 0;
     /*<<scanf.ml:496:60>>*/ }
@@ -29938,45 +31572,58 @@
          /*<<scanf.ml:515:17>>*/ return 5;
      }
      /*<<scanf.ml:516:9>>*/ throw  /*<<scanf.ml:516:9>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _i_], 1);
+            /*<<scanf.ml:516:9>>*/ ([0, Assert_failure, _i_], 1);
     /*<<scanf.ml:516:21>>*/ }
    function token_int_literal(conv, ib){
      /*<<scanf.ml:523:2>>*/ switch(conv){
       case 0:
        var
         _aO_ =  /*<<scanf.ml:529:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:529:22>>*/ caml_call2(Stdlib[28], cst_0b, _aO_);
+        tok =
+           /*<<scanf.ml:529:22>>*/ caml_call2
+            /*<<scanf.ml:529:22>>*/ (Stdlib[28], cst_0b, _aO_);
        break;
       case 3:
        var
         _aP_ =  /*<<scanf.ml:527:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:527:22>>*/ caml_call2(Stdlib[28], cst_0o, _aP_);
+        tok =
+           /*<<scanf.ml:527:22>>*/ caml_call2
+            /*<<scanf.ml:527:22>>*/ (Stdlib[28], cst_0o, _aP_);
        break;
       case 4:
        var
         _aQ_ =  /*<<scanf.ml:526:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:526:22>>*/ caml_call2(Stdlib[28], cst_0u, _aQ_);
+        tok =
+           /*<<scanf.ml:526:22>>*/ caml_call2
+            /*<<scanf.ml:526:22>>*/ (Stdlib[28], cst_0u, _aQ_);
        break;
       case 5:
        var
         _aR_ =  /*<<scanf.ml:528:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:528:22>>*/ caml_call2(Stdlib[28], cst_0x, _aR_);
+        tok =
+           /*<<scanf.ml:528:22>>*/ caml_call2
+            /*<<scanf.ml:528:22>>*/ (Stdlib[28], cst_0x, _aR_);
        break;
       default: var tok = token_string(ib);
     }
     var
      l =
         /*<<scanf.ml:530:2>>*/  /*<<scanf.ml:530:2>>*/ caml_ml_string_length
-        (tok);
+         /*<<scanf.ml:530:2>>*/ (tok);
      /*<<scanf.ml:531:2>>*/ if
-     (0 !== l && 43 ===  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0))
+     (0 !== l
+      &&
+       43
+       ===
+         /*<<scanf.ml:531:14>>*/ caml_string_get
+          /*<<scanf.ml:531:14>>*/ (tok, 0))
       /*<<scanf.ml:531:43>>*/ return  /*<<scanf.ml:531:43>>*/ caml_call3
-             (Stdlib_String[16], tok, 1, l - 1 | 0);
+              /*<<scanf.ml:531:43>>*/ (Stdlib_String[16], tok, 1, l - 1 | 0);
      /*<<scanf.ml:531:34>>*/ return tok;
     /*<<scanf.ml:531:67>>*/ }
    function token_float(ib){
      /*<<scanf.ml:539:21>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
-            (token_string(ib));
+             /*<<scanf.ml:539:21>>*/ (token_string(ib));
     /*<<scanf.ml:539:56>>*/ }
    function scan_decimal_digit_star(width, ib){
     var width$0 = width;
@@ -30006,7 +31653,8 @@
     var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
     if(9 < c - 48 >>> 0)
       /*<<scanf.ml:596:14>>*/ return bad_input
-             ( /*<<scanf.ml:596:14>>*/ caml_call2(Stdlib_Printf[4], _j_, c));
+             ( /*<<scanf.ml:596:14>>*/ caml_call2
+                /*<<scanf.ml:596:14>>*/ (Stdlib_Printf[4], _j_, c));
     var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
      /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib);
     /*<<scanf.ml:596:70>>*/ }
@@ -30015,10 +31663,11 @@
       /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits);
     var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
      /*<<scanf.ml:622:5>>*/ if
-     (!  /*<<scanf.ml:622:5>>*/ caml_call1(digitp, c$0))
+     (!
+       /*<<scanf.ml:622:5>>*/ caml_call1 /*<<scanf.ml:622:5>>*/ (digitp, c$0))
       /*<<scanf.ml:626:14>>*/ return bad_input
              ( /*<<scanf.ml:626:14>>*/ caml_call3
-               (Stdlib_Printf[4], _k_, c$0, basis));
+                /*<<scanf.ml:626:14>>*/ (Stdlib_Printf[4], _k_, c$0, basis));
     var
      width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
      width = width$3;
@@ -30027,7 +31676,7 @@
      var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
       /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
       /*<<scanf.ml:607:13>>*/ if
-      ( /*<<scanf.ml:607:13>>*/ caml_call1(digitp, c)){
+      ( /*<<scanf.ml:607:13>>*/ caml_call1 /*<<scanf.ml:607:13>>*/ (digitp, c)){
       var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
       width = width$0;
      }
@@ -30161,7 +31810,7 @@
      width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
      precision$0 =
         /*<<scanf.ml:772:20>>*/  /*<<scanf.ml:772:20>>*/ caml_call2
-        (Stdlib_Int[10], width$2, precision),
+         /*<<scanf.ml:772:20>>*/ (Stdlib_Int[10], width$2, precision),
      width$3 =
        width$2 - (precision$0 - scan_fractional_part(precision$0, ib) | 0) | 0;
      /*<<scanf.ml:774:4>>*/ return [0,
@@ -30177,7 +31826,7 @@
     var
      len =
         /*<<scanf.ml:785:2>>*/  /*<<scanf.ml:785:2>>*/ caml_ml_string_length
-        (str),
+         /*<<scanf.ml:785:2>>*/ (str),
      width$0 =  /*<<scanf.ml:786:14>>*/ [0, width],
      _aK_ =  /*<<scanf.ml:787:2>>*/ len - 1 | 0,
      _aJ_ =  /*<<scanf.ml:786:14>>*/ 0;
@@ -30188,11 +31837,14 @@
        c =  /*<<scanf.ml:788:12>>*/ peek_char(ib),
        _aL_ =
           /*<<scanf.ml:789:22>>*/ lowercase
-          ( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
+          ( /*<<scanf.ml:789:32>>*/ caml_string_get
+             /*<<scanf.ml:789:32>>*/ (str, i));
       if(lowercase(c) !== _aL_)
-        /*<<scanf.ml:789:45>>*/  /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
+        /*<<scanf.ml:789:45>>*/  /*<<scanf.ml:789:45>>*/ caml_call1
+         /*<<scanf.ml:789:45>>*/ (error, 0);
       if(0 === width$0[1])
-        /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
+        /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1
+         /*<<scanf.ml:790:23>>*/ (error, 0);
       width$0[1] = store_char(width$0[1], ib, c);
       var _aM_ =  /*<<scanf.ml:787:2>>*/ i + 1 | 0;
       if(_aK_ === i) break;
@@ -30272,7 +31924,9 @@
               var
                precision$0 =
                   /*<<scanf.ml:817:32>>*/  /*<<scanf.ml:817:32>>*/ caml_call2
-                  (Stdlib_Int[10], width$6, precision),
+                   /*<<scanf.ml:817:32>>*/ (Stdlib_Int[10],
+                   width$6,
+                   precision),
                width$10 =
                  width$6
                  -
@@ -30346,7 +32000,7 @@
        width$1 =  /*<<scanf.ml:847:16>>*/ store_char(width$0, ib, c),
        precision$0 =
           /*<<scanf.ml:850:20>>*/  /*<<scanf.ml:850:20>>*/ caml_call2
-          (Stdlib_Int[10], width$1, precision),
+           /*<<scanf.ml:850:20>>*/ (Stdlib_Int[10], width$1, precision),
        width_precision =
           /*<<scanf.ml:853:26>>*/ scan_fractional_part(precision$0, ib),
        frac_width = precision$0 - width_precision | 0,
@@ -30424,7 +32078,7 @@
              var
               precision$0 =
                  /*<<scanf.ml:886:30>>*/  /*<<scanf.ml:886:30>>*/ caml_call2
-                 (Stdlib_Int[10], width$4, precision),
+                  /*<<scanf.ml:886:30>>*/ (Stdlib_Int[10], width$4, precision),
               width$9 =
                 width$4
                 -
@@ -30511,7 +32165,7 @@
      /*<<scanf.ml:997:5>>*/ return ib[1]
             ? bad_input
               ( /*<<scanf.ml:421:4>>*/ caml_call2
-                (Stdlib_Printf[4], _f_, message))
+                 /*<<scanf.ml:421:4>>*/ (Stdlib_Printf[4], _f_, message))
             : c;
     /*<<scanf.ml:998:3>>*/ }
    function scan_backslash_char(width, ib){
@@ -30536,14 +32190,17 @@
        b:
        {
          /*<<scanf.ml:959:2>>*/ if(0 <= c && 255 >= c){
-         var _ab_ =  /*<<scanf.ml:963:2>>*/ caml_call1(Stdlib[29], c);
+         var
+          _ab_ =
+             /*<<scanf.ml:963:2>>*/ caml_call1
+              /*<<scanf.ml:963:2>>*/ (Stdlib[29], c);
          break b;
         }
         var
          _ab_ =
            bad_input
             ( /*<<scanf.ml:961:6>>*/ caml_call4
-              (Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
+               /*<<scanf.ml:961:6>>*/ (Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
        }
         /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_);
       }
@@ -30574,14 +32231,17 @@
          b:
          {
            /*<<scanf.ml:986:2>>*/ if(0 <= c$0 && 255 >= c$0){
-           var _aa_ =  /*<<scanf.ml:989:2>>*/ caml_call1(Stdlib[29], c$0);
+           var
+            _aa_ =
+               /*<<scanf.ml:989:2>>*/ caml_call1
+                /*<<scanf.ml:989:2>>*/ (Stdlib[29], c$0);
            break b;
           }
           var
            _aa_ =
              bad_input
               ( /*<<scanf.ml:988:6>>*/ caml_call3
-                (Stdlib_Printf[4], _m_, c1, c2));
+                 /*<<scanf.ml:988:6>>*/ (Stdlib_Printf[4], _m_, c1, c2));
          }
           /*<<scanf.ml:1026:39>>*/ return store_char(width - 2 | 0, ib, _aa_);
         case 0:
@@ -30627,7 +32287,7 @@
         var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
          /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
           /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ caml_trampoline_return
-                 (skip_spaces, [0, _Y_]);
+                  /*<<scanf.ml:1071:26>>*/ (skip_spaces, [0, _Y_]);
         var counter$0 = counter + 1 | 0;
          /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_);
        }
@@ -30637,7 +32297,7 @@
          var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
           /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
            /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ caml_trampoline_return
-                  (skip_spaces, [0, _Z_]);
+                   /*<<scanf.ml:1076:26>>*/ (skip_spaces, [0, _Z_]);
          var counter$1 = counter + 1 | 0;
           /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_);
         }
@@ -30665,7 +32325,7 @@
       if(32 !== check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
          /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ caml_trampoline_return
-                (find_stop$0, [0, width$0]);
+                 /*<<scanf.ml:1082:11>>*/ (find_stop$0, [0, width$0]);
        var counter$0 = counter + 1 | 0;
         /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0);
       }
@@ -30689,7 +32349,7 @@
         var
          _W_ =
             /*<<scanf.ml:1106:7>>*/  /*<<scanf.ml:1106:7>>*/ caml_call2
-            (CamlinternalFormat[1], char_set, c),
+             /*<<scanf.ml:1106:7>>*/ (CamlinternalFormat[1], char_set, c),
          _X_ =  /*<<scanf.ml:1106:7>>*/ _W_ ? c !== stp ? 1 : 0 : _W_;
        else
         var _X_ = _V_;
@@ -30716,12 +32376,13 @@
     else{
      if(x[1] !== Stdlib[7])
        /*<<scanf.ml:1126:9>>*/ throw  /*<<scanf.ml:1126:9>>*/ caml_maybe_attach_backtrace
-             (x, 1);
+              /*<<scanf.ml:1126:9>>*/ (x, 1);
      var s = x[2];
     }
     var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
      /*<<scanf.ml:1125:14>>*/ return bad_input
-            ( /*<<scanf.ml:1125:14>>*/ caml_call3(Stdlib_Printf[4], _o_, i, s));
+            ( /*<<scanf.ml:1125:14>>*/ caml_call3
+               /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s));
    }
    function width_of_pad_opt(pad_opt){
      /*<<scanf.ml:1138:31>>*/ if(! pad_opt)
@@ -30735,16 +32396,19 @@
     var
      str =
         /*<<scanf.ml:1145:14>>*/  /*<<scanf.ml:1145:14>>*/ caml_call1
-        (CamlinternalFormat[17], fmting),
+         /*<<scanf.ml:1145:14>>*/ (CamlinternalFormat[17], fmting),
      stp =
         /*<<scanf.ml:1146:14>>*/  /*<<scanf.ml:1146:14>>*/ caml_string_get
-        (str, 1),
+         /*<<scanf.ml:1146:14>>*/ (str, 1),
      sub_str =
         /*<<scanf.ml:1147:18>>*/  /*<<scanf.ml:1147:18>>*/ caml_call3
-        (Stdlib_String[16],
+         /*<<scanf.ml:1147:18>>*/ (Stdlib_String[16],
          str,
          2,
-          /*<<scanf.ml:1147:4>>*/ caml_ml_string_length(str) - 2 | 0);
+          /*<<scanf.ml:1147:4>>*/ caml_ml_string_length
+           /*<<scanf.ml:1147:4>>*/ (str)
+         - 2
+         | 0);
      /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str];
     /*<<scanf.ml:1148:16>>*/ }
    function take_format_readers$0(counter, k, fmt){
@@ -30752,7 +32416,7 @@
      /*<<scanf.ml:1161:13>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<scanf.ml:1198:40>>*/ return  /*<<scanf.ml:1198:40>>*/ caml_call1
-              (k, 0);
+               /*<<scanf.ml:1198:40>>*/ (k, 0);
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1]; fmt$0 = rest; break;
@@ -30788,13 +32452,14 @@
          fmtty = fmt$0[2],
          _Q_ =
             /*<<scanf.ml:1195:44>>*/  /*<<scanf.ml:1195:44>>*/ caml_call1
-            (CamlinternalFormat[21], fmtty),
+             /*<<scanf.ml:1195:44>>*/ (CamlinternalFormat[21], fmtty),
          _R_ =
             /*<<scanf.ml:1195:33>>*/  /*<<scanf.ml:1195:33>>*/ caml_call1
-            (CamlinternalFormatBasics[2], _Q_);
+             /*<<scanf.ml:1195:33>>*/ (CamlinternalFormatBasics[2], _Q_);
          /*<<scanf.ml:1195:5>>*/ if(counter >= 50)
           /*<<scanf.ml:1195:5>>*/ return  /*<<scanf.ml:1195:5>>*/ caml_trampoline_return
-                 (take_fmtty_format_readers$0, [0, k, _R_, rest$13]);
+                  /*<<scanf.ml:1195:5>>*/ (take_fmtty_format_readers$0,
+                  [0, k, _R_, rest$13]);
         var counter$0 = counter + 1 | 0;
          /*<<scanf.ml:1195:5>>*/ return take_fmtty_format_readers$0
                 (counter$0, k, _R_, rest$13);
@@ -30812,7 +32477,9 @@
           fmt$1 = _S_[1][1],
           fmt$2 =
              /*<<scanf.ml:1189:28>>*/  /*<<scanf.ml:1189:28>>*/ caml_call2
-             (CamlinternalFormatBasics[3], fmt$1, rest$17);
+              /*<<scanf.ml:1189:28>>*/ (CamlinternalFormatBasics[3],
+              fmt$1,
+              rest$17);
          fmt$0 = fmt$2;
         }
         else{
@@ -30821,7 +32488,9 @@
           fmt$3 = _S_[1][1],
           fmt$4 =
              /*<<scanf.ml:1191:28>>*/  /*<<scanf.ml:1191:28>>*/ caml_call2
-             (CamlinternalFormatBasics[3], fmt$3, rest$18);
+              /*<<scanf.ml:1191:28>>*/ (CamlinternalFormatBasics[3],
+              fmt$3,
+              rest$18);
          fmt$0 = fmt$4;
         }
         break;
@@ -30830,7 +32499,7 @@
          /*<<scanf.ml:1163:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1164:31>>*/ return  /*<<scanf.ml:1164:33>>*/ caml_call1
-                  (k, [0, reader, readers_rest]);
+                   /*<<scanf.ml:1164:33>>*/ (k, [0, reader, readers_rest]);
           /*<<scanf.ml:1164:62>>*/ }
           /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest); /*<<scanf.ml:1165:40>>*/ };
        case 20:
@@ -30851,7 +32520,7 @@
              /*<<scanf.ml:1236:4>>*/ return function(reader){
              function new_k(readers_rest){
                /*<<scanf.ml:1237:31>>*/ return  /*<<scanf.ml:1237:33>>*/ caml_call1
-                      (k, [0, reader, readers_rest]);
+                       /*<<scanf.ml:1237:33>>*/ (k, [0, reader, readers_rest]);
               /*<<scanf.ml:1237:62>>*/ }
               /*<<scanf.ml:1238:6>>*/ return take_format_readers
                      (new_k, rest$22); /*<<scanf.ml:1238:35>>*/ };
@@ -30881,7 +32550,8 @@
             var fmtty$0 = ign[2];
              /*<<scanf.ml:1250:39>>*/ if(counter >= 50)
               /*<<scanf.ml:1250:39>>*/ return  /*<<scanf.ml:1250:39>>*/ caml_trampoline_return
-                     (take_fmtty_format_readers$0, [0, k, fmtty$0, rest$22]);
+                      /*<<scanf.ml:1250:39>>*/ (take_fmtty_format_readers$0,
+                      [0, k, fmtty$0, rest$22]);
             var counter$1 = counter + 1 | 0;
              /*<<scanf.ml:1250:39>>*/ return take_fmtty_format_readers$0
                     (counter$1, k, fmtty$0, rest$22);
@@ -30903,7 +32573,7 @@
      if(typeof fmtty$0 === "number"){
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
         /*<<scanf.ml:1225:35>>*/ return  /*<<scanf.ml:1225:35>>*/ caml_trampoline_return
-               (take_format_readers$0, [0, k, fmt]);
+                /*<<scanf.ml:1225:35>>*/ (take_format_readers$0, [0, k, fmt]);
       var counter$0 = counter + 1 | 0;
        /*<<scanf.ml:1225:35>>*/ return take_format_readers$0
               (counter$0, k, fmt);
@@ -30934,13 +32604,13 @@
          ty1 = fmtty$0[1],
          _P_ =
             /*<<scanf.ml:1227:19>>*/  /*<<scanf.ml:1227:19>>*/ caml_call1
-            (CamlinternalFormat[21], ty1),
+             /*<<scanf.ml:1227:19>>*/ (CamlinternalFormat[21], ty1),
          ty =
             /*<<scanf.ml:1227:13>>*/  /*<<scanf.ml:1227:13>>*/ caml_call2
-            (CamlinternalFormat[22], _P_, ty2),
+             /*<<scanf.ml:1227:13>>*/ (CamlinternalFormat[22], _P_, ty2),
          fmtty$10 =
             /*<<scanf.ml:1228:32>>*/  /*<<scanf.ml:1228:32>>*/ caml_call2
-            (CamlinternalFormatBasics[1], ty, rest);
+             /*<<scanf.ml:1228:32>>*/ (CamlinternalFormatBasics[1], ty, rest);
         fmtty$0 = fmtty$10;
         break;
        case 10:
@@ -30954,7 +32624,7 @@
          /*<<scanf.ml:1206:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1207:31>>*/ return  /*<<scanf.ml:1207:33>>*/ caml_call1
-                  (k, [0, reader, readers_rest]);
+                   /*<<scanf.ml:1207:33>>*/ (k, [0, reader, readers_rest]);
           /*<<scanf.ml:1207:62>>*/ }
           /*<<scanf.ml:1208:6>>*/ return take_fmtty_format_readers
                  (new_k, fmt_rest, fmt); /*<<scanf.ml:1208:50>>*/ };
@@ -30963,7 +32633,7 @@
          /*<<scanf.ml:1210:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1211:31>>*/ return  /*<<scanf.ml:1211:33>>*/ caml_call1
-                  (k, [0, reader, readers_rest]);
+                   /*<<scanf.ml:1211:33>>*/ (k, [0, reader, readers_rest]);
           /*<<scanf.ml:1211:62>>*/ }
           /*<<scanf.ml:1212:6>>*/ return take_fmtty_format_readers
                  (new_k, fmt_rest$0, fmt); /*<<scanf.ml:1212:50>>*/ };
@@ -31047,7 +32717,9 @@
               /*<<scanf.ml:1283:4>>*/ return pad_prec_scanf
                      (ib,
                        /*<<scanf.ml:1283:22>>*/ caml_call2
-                       (CamlinternalFormatBasics[3], fmt$1, rest$3),
+                        /*<<scanf.ml:1283:22>>*/ (CamlinternalFormatBasics[3],
+                        fmt$1,
+                        rest$3),
                       readers,
                       pad,
                       0,
@@ -31064,7 +32736,9 @@
              /*<<scanf.ml:1287:4>>*/ return pad_prec_scanf
                     (ib,
                       /*<<scanf.ml:1287:22>>*/ caml_call2
-                      (CamlinternalFormatBasics[3], fmt$2, rest$4),
+                       /*<<scanf.ml:1287:22>>*/ (CamlinternalFormatBasics[3],
+                       fmt$2,
+                       rest$4),
                      readers,
                      pad,
                      0,
@@ -31098,7 +32772,7 @@
          conv =
             /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1297:39>>*/ caml_call1
-              (CamlinternalFormat[16], iconv)),
+               /*<<scanf.ml:1297:39>>*/ (CamlinternalFormat[16], iconv)),
          scan$4 =
            function(width, param, ib){
              /*<<scanf.ml:1298:26>>*/ return scan_int_conversion
@@ -31113,7 +32787,7 @@
                  scan$4,
                  function(ib){
                    /*<<scanf.ml:537:24>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
-                          (token_int_literal(conv, ib));
+                           /*<<scanf.ml:537:24>>*/ (token_int_literal(conv, ib));
                  });
        case 5:
         var
@@ -31124,7 +32798,7 @@
          conv$0 =
             /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1301:39>>*/ caml_call1
-              (CamlinternalFormat[16], iconv$0)),
+               /*<<scanf.ml:1301:39>>*/ (CamlinternalFormat[16], iconv$0)),
          scan$5 =
            function(width, param, ib){
              /*<<scanf.ml:1302:26>>*/ return scan_int_conversion
@@ -31139,7 +32813,7 @@
                  scan$5,
                  function(ib){
                    /*<<scanf.ml:558:26>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
-                          (token_int_literal(conv$0, ib));
+                           /*<<scanf.ml:558:26>>*/ (token_int_literal(conv$0, ib));
                  });
        case 6:
         var
@@ -31150,7 +32824,7 @@
          conv$1 =
             /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1305:39>>*/ caml_call1
-              (CamlinternalFormat[16], iconv$1)),
+               /*<<scanf.ml:1305:39>>*/ (CamlinternalFormat[16], iconv$1)),
          scan$6 =
            function(width, param, ib){
              /*<<scanf.ml:1306:26>>*/ return scan_int_conversion
@@ -31165,7 +32839,7 @@
                  scan$6,
                  function(ib){
                    /*<<scanf.ml:557:30>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
-                          (token_int_literal(conv$1, ib));
+                           /*<<scanf.ml:557:30>>*/ (token_int_literal(conv$1, ib));
                  });
        case 7:
         var
@@ -31176,7 +32850,7 @@
          conv$2 =
             /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1309:39>>*/ caml_call1
-              (CamlinternalFormat[16], iconv$2)),
+               /*<<scanf.ml:1309:39>>*/ (CamlinternalFormat[16], iconv$2)),
          scan$7 =
            function(width, param, ib){
              /*<<scanf.ml:1310:26>>*/ return scan_int_conversion
@@ -31191,7 +32865,7 @@
                  scan$7,
                  function(ib){
                    /*<<scanf.ml:559:26>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
-                          (token_int_literal(conv$2, ib));
+                           /*<<scanf.ml:559:26>>*/ (token_int_literal(conv$2, ib));
                  });
        case 8:
         switch(fmt$0[1][2]){
@@ -31244,7 +32918,7 @@
                   ? 4
                   : bad_input
                     ( /*<<scanf.ml:1096:8>>*/ caml_call2
-                      (Stdlib_Printf[4], _n_, c));
+                       /*<<scanf.ml:1096:8>>*/ (Stdlib_Printf[4], _n_, c));
              /*<<scanf.ml:1097:2>>*/ return scan_string(0, m, ib);
             /*<<scanf.ml:1320:34>>*/ };
          /*<<scanf.ml:1321:4>>*/ return pad_prec_scanf
@@ -31258,7 +32932,7 @@
        case 11:
         var rest$15 = fmt$0[2], str$0 = fmt$0[1];
          /*<<scanf.ml:1341:4>>*/  /*<<scanf.ml:1341:4>>*/ caml_call2
-         (Stdlib_String[30],
+          /*<<scanf.ml:1341:4>>*/ (Stdlib_String[30],
           function(_N_){ /*<<?>>*/ return check_char(ib, _N_);},
           str$0);
         fmt$0 = rest$15;
@@ -31277,7 +32951,7 @@
          var
           _E_ =
              /*<<scanf.ml:1351:10>>*/  /*<<scanf.ml:1351:10>>*/ caml_call2
-             (CamlinternalFormat[14], s, fmtty),
+              /*<<scanf.ml:1351:10>>*/ (CamlinternalFormat[14], s, fmtty),
           fmt$3 = _E_;
         }
         catch(exn$0){
@@ -31297,27 +32971,27 @@
          var
           fmt$6 =
              /*<<scanf.ml:1360:26>>*/ caml_call2
-              (CamlinternalFormat[13], 0, s$0)
+               /*<<scanf.ml:1360:26>>*/ (CamlinternalFormat[13], 0, s$0)
              [1],
           fmt$7 =
              /*<<scanf.ml:1361:27>>*/ caml_call2
-              (CamlinternalFormat[13], 0, s$0)
+               /*<<scanf.ml:1361:27>>*/ (CamlinternalFormat[13], 0, s$0)
              [1],
           _G_ =
              /*<<scanf.ml:1375:36>>*/  /*<<scanf.ml:1375:36>>*/ caml_call1
-             (CamlinternalFormat[21], fmtty$0),
+              /*<<scanf.ml:1375:36>>*/ (CamlinternalFormat[21], fmtty$0),
           _H_ =
              /*<<scanf.ml:1375:25>>*/  /*<<scanf.ml:1375:25>>*/ caml_call1
-             (CamlinternalFormatBasics[2], _G_),
+              /*<<scanf.ml:1375:25>>*/ (CamlinternalFormatBasics[2], _G_),
           fmt$8 =
              /*<<scanf.ml:1375:8>>*/  /*<<scanf.ml:1375:8>>*/ caml_call2
-             (CamlinternalFormat[12], fmt$7, _H_),
+              /*<<scanf.ml:1375:8>>*/ (CamlinternalFormat[12], fmt$7, _H_),
           _I_ =
              /*<<scanf.ml:1374:24>>*/  /*<<scanf.ml:1374:24>>*/ caml_call1
-             (CamlinternalFormatBasics[2], fmtty$0),
+              /*<<scanf.ml:1374:24>>*/ (CamlinternalFormatBasics[2], fmtty$0),
           _J_ =
              /*<<scanf.ml:1374:8>>*/  /*<<scanf.ml:1374:8>>*/ caml_call2
-             (CamlinternalFormat[12], fmt$6, _I_),
+              /*<<scanf.ml:1374:8>>*/ (CamlinternalFormat[12], fmt$6, _I_),
           fmt$5 = fmt$8,
           fmt$4 = _J_;
         }
@@ -31336,23 +33010,27 @@
                 make_scanf
                  (ib,
                    /*<<scanf.ml:1379:24>>*/ caml_call2
-                   (CamlinternalFormatBasics[3], fmt$5, rest$18),
+                    /*<<scanf.ml:1379:24>>*/ (CamlinternalFormatBasics[3],
+                    fmt$5,
+                    rest$18),
                   readers)];
        case 15:
          /*<<scanf.ml:1323:4>>*/ return  /*<<scanf.ml:1323:4>>*/ caml_call1
-                (Stdlib[1], cst_scanf_bad_conversion_a);
+                 /*<<scanf.ml:1323:4>>*/ (Stdlib[1],
+                 cst_scanf_bad_conversion_a);
        case 16:
          /*<<scanf.ml:1325:4>>*/ return  /*<<scanf.ml:1325:4>>*/ caml_call1
-                (Stdlib[1], cst_scanf_bad_conversion_t);
+                 /*<<scanf.ml:1325:4>>*/ (Stdlib[1],
+                 cst_scanf_bad_conversion_t);
        case 17:
         var
          rest$19 = fmt$0[2],
          formatting_lit = fmt$0[1],
          _K_ =
             /*<<scanf.ml:1401:32>>*/  /*<<scanf.ml:1401:32>>*/ caml_call1
-            (CamlinternalFormat[17], formatting_lit);
+             /*<<scanf.ml:1401:32>>*/ (CamlinternalFormat[17], formatting_lit);
          /*<<scanf.ml:1401:4>>*/  /*<<scanf.ml:1401:4>>*/ caml_call2
-         (Stdlib_String[30],
+          /*<<scanf.ml:1401:4>>*/ (Stdlib_String[30],
           function(_M_){ /*<<?>>*/ return check_char(ib, _M_);},
           _K_);
         fmt$0 = rest$19;
@@ -31366,7 +33044,9 @@
          var
           fmt$10 =
              /*<<scanf.ml:1405:18>>*/  /*<<scanf.ml:1405:18>>*/ caml_call2
-             (CamlinternalFormatBasics[3], fmt$9, rest$20);
+              /*<<scanf.ml:1405:18>>*/ (CamlinternalFormatBasics[3],
+              fmt$9,
+              rest$20);
          fmt$0 = fmt$10;
         }
         else{
@@ -31376,7 +33056,9 @@
          var
           fmt$12 =
              /*<<scanf.ml:1408:18>>*/  /*<<scanf.ml:1408:18>>*/ caml_call2
-             (CamlinternalFormatBasics[3], fmt$11, rest$21);
+              /*<<scanf.ml:1408:18>>*/ (CamlinternalFormatBasics[3],
+              fmt$11,
+              rest$21);
          fmt$0 = fmt$12;
         }
         break;
@@ -31384,13 +33066,14 @@
         var fmt_rest = fmt$0[1];
          /*<<scanf.ml:1329:4>>*/ if(! readers)
           /*<<scanf.ml:1334:8>>*/ return  /*<<scanf.ml:1334:8>>*/ caml_call1
-                 (Stdlib[1], cst_scanf_missing_reader);
+                  /*<<scanf.ml:1334:8>>*/ (Stdlib[1],
+                  cst_scanf_missing_reader);
         var
          readers_rest = readers[2],
          reader = readers[1],
          x =
             /*<<scanf.ml:1331:16>>*/  /*<<scanf.ml:1331:16>>*/ caml_call1
-            (reader, ib);
+             /*<<scanf.ml:1331:16>>*/ (reader, ib);
          /*<<scanf.ml:1332:8>>*/ return [0,
                 x,
                 make_scanf(ib, fmt_rest, readers_rest)];
@@ -31450,17 +33133,18 @@
          ign = fmt$0[1],
          fmt$13 =
             /*<<scanf.ml:1411:32>>*/ caml_call2
-             (CamlinternalFormat[6], ign, rest$26)
+              /*<<scanf.ml:1411:32>>*/ (CamlinternalFormat[6], ign, rest$26)
             [1],
          match$3 =  /*<<scanf.ml:1412:16>>*/ make_scanf(ib, fmt$13, readers);
         if(! match$3)
           /*<<scanf.ml:1414:13>>*/ throw  /*<<scanf.ml:1414:13>>*/ caml_maybe_attach_backtrace
-                ([0, Assert_failure, _s_], 1);
+                 /*<<scanf.ml:1414:13>>*/ ([0, Assert_failure, _s_], 1);
         var arg_rest = match$3[2];
          /*<<scanf.ml:1413:28>>*/ return arg_rest;
        default:
          /*<<scanf.ml:1327:4>>*/ return  /*<<scanf.ml:1327:4>>*/ caml_call1
-                (Stdlib[1], cst_scanf_bad_conversion_custo);
+                 /*<<scanf.ml:1327:4>>*/ (Stdlib[1],
+                 cst_scanf_bad_conversion_custo);
      }
     }
     /*<<scanf.ml:1418:7>>*/ }
@@ -31469,50 +33153,50 @@
      if(typeof prec !== "number"){
       var p = prec[1];
        /*<<scanf.ml:1435:12>>*/  /*<<scanf.ml:1435:12>>*/ caml_call3
-       (scan, Stdlib[19], p, ib);
+        /*<<scanf.ml:1435:12>>*/ (scan, Stdlib[19], p, ib);
       var
        x$0 =
           /*<<scanf.ml:1436:12>>*/  /*<<scanf.ml:1436:12>>*/ caml_call1
-          (token, ib);
+           /*<<scanf.ml:1436:12>>*/ (token, ib);
        /*<<scanf.ml:1437:4>>*/ return [0, x$0, make_scanf(ib, fmt, readers)];
      }
      if(prec)
        /*<<scanf.ml:1453:4>>*/ return  /*<<scanf.ml:1453:4>>*/ caml_call1
-              (Stdlib[1], cst_scanf_bad_conversion);
+               /*<<scanf.ml:1453:4>>*/ (Stdlib[1], cst_scanf_bad_conversion);
       /*<<scanf.ml:1431:12>>*/  /*<<scanf.ml:1431:12>>*/ caml_call3
-      (scan, Stdlib[19], Stdlib[19], ib);
+       /*<<scanf.ml:1431:12>>*/ (scan, Stdlib[19], Stdlib[19], ib);
      var
       x =
          /*<<scanf.ml:1432:12>>*/  /*<<scanf.ml:1432:12>>*/ caml_call1
-         (token, ib);
+          /*<<scanf.ml:1432:12>>*/ (token, ib);
       /*<<scanf.ml:1433:4>>*/ return [0, x, make_scanf(ib, fmt, readers)];
     }
     if(0 !== pad[0])
       /*<<scanf.ml:1451:4>>*/ return  /*<<scanf.ml:1451:4>>*/ caml_call1
-             (Stdlib[1], cst_scanf_bad_conversion$2);
+              /*<<scanf.ml:1451:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$2);
     if(! pad[1])
       /*<<scanf.ml:1447:4>>*/ return  /*<<scanf.ml:1447:4>>*/ caml_call1
-             (Stdlib[1], cst_scanf_bad_conversion$1);
+              /*<<scanf.ml:1447:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$1);
     var w = pad[2];
     if(typeof prec !== "number"){
      var p$0 = prec[1];
       /*<<scanf.ml:1443:12>>*/  /*<<scanf.ml:1443:12>>*/ caml_call3
-      (scan, w, p$0, ib);
+       /*<<scanf.ml:1443:12>>*/ (scan, w, p$0, ib);
      var
       x$2 =
          /*<<scanf.ml:1444:12>>*/  /*<<scanf.ml:1444:12>>*/ caml_call1
-         (token, ib);
+          /*<<scanf.ml:1444:12>>*/ (token, ib);
       /*<<scanf.ml:1445:4>>*/ return [0, x$2, make_scanf(ib, fmt, readers)];
     }
     if(prec)
       /*<<scanf.ml:1449:4>>*/ return  /*<<scanf.ml:1449:4>>*/ caml_call1
-             (Stdlib[1], cst_scanf_bad_conversion$0);
+              /*<<scanf.ml:1449:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$0);
      /*<<scanf.ml:1439:12>>*/  /*<<scanf.ml:1439:12>>*/ caml_call3
-     (scan, w, Stdlib[19], ib);
+      /*<<scanf.ml:1439:12>>*/ (scan, w, Stdlib[19], ib);
     var
      x$1 =
         /*<<scanf.ml:1440:12>>*/  /*<<scanf.ml:1440:12>>*/ caml_call1
-        (token, ib);
+         /*<<scanf.ml:1440:12>>*/ (token, ib);
      /*<<scanf.ml:1441:4>>*/ return [0, x$1, make_scanf(ib, fmt, readers)];
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
@@ -31531,32 +33215,33 @@
         msg = exc[2],
         _z_ =
            /*<<scanf.ml:1470:45>>*/  /*<<scanf.ml:1470:45>>*/ caml_call1
-           (Stdlib_String[25], str),
+            /*<<scanf.ml:1470:45>>*/ (Stdlib_String[25], str),
         _A_ =
            /*<<scanf.ml:1470:45>>*/  /*<<scanf.ml:1470:45>>*/ caml_call2
-           (Stdlib[28], _z_, cst$0),
+            /*<<scanf.ml:1470:45>>*/ (Stdlib[28], _z_, cst$0),
         _B_ =
            /*<<scanf.ml:1470:27>>*/  /*<<scanf.ml:1470:27>>*/ caml_call2
-           (Stdlib[28], cst_in_format, _A_),
+            /*<<scanf.ml:1470:27>>*/ (Stdlib[28], cst_in_format, _A_),
         _C_ =
            /*<<scanf.ml:1470:20>>*/  /*<<scanf.ml:1470:20>>*/ caml_call2
-           (Stdlib[28], msg, _B_);
+            /*<<scanf.ml:1470:20>>*/ (Stdlib[28], msg, _B_);
         /*<<scanf.ml:1470:20>>*/ return  /*<<scanf.ml:1470:20>>*/ caml_call1
-               (Stdlib[1], _C_);
+                /*<<scanf.ml:1470:20>>*/ (Stdlib[1], _C_);
       }
        /*<<scanf.ml:1468:8>>*/ return  /*<<scanf.ml:1468:8>>*/ caml_call2
-              (ef, ib, exc);
+               /*<<scanf.ml:1468:8>>*/ (ef, ib, exc);
      }
      var f = f$1, args = args$1;
       /*<<scanf.ml:1460:18>>*/ for(;;){
       if(! args)
         /*<<scanf.ml:1472:11>>*/ return  /*<<scanf.ml:1472:11>>*/ caml_call1
-               (af, f);
+                /*<<scanf.ml:1472:11>>*/ (af, f);
       var
        args$0 = args[2],
        x = args[1],
        f$0 =
-          /*<<scanf.ml:1461:27>>*/  /*<<scanf.ml:1461:27>>*/ caml_call1(f, x);
+          /*<<scanf.ml:1461:27>>*/  /*<<scanf.ml:1461:27>>*/ caml_call1
+           /*<<scanf.ml:1461:27>>*/ (f, x);
       f = f$0;
       args = args$0;
      }
@@ -31612,7 +33297,7 @@
      var
       _x_ =
          /*<<scanf.ml:1505:10>>*/  /*<<scanf.ml:1505:10>>*/ caml_call2
-         (CamlinternalFormat[15], str, format),
+          /*<<scanf.ml:1505:10>>*/ (CamlinternalFormat[15], str, format),
       fmt = _x_;
     }
     catch(exn$0){
@@ -31621,7 +33306,7 @@
      var msg = exn[2], fmt = bad_input(msg);
     }
      /*<<scanf.ml:1507:4>>*/ return  /*<<scanf.ml:1507:4>>*/ caml_call1
-            (f, fmt);
+             /*<<scanf.ml:1507:4>>*/ (f, fmt);
     /*<<scanf.ml:1507:10>>*/ }
    function sscanf_format(s, format, f){
      /*<<scanf.ml:1513:20>>*/ return bscanf_format(from_string(s), format, f);
@@ -31630,12 +33315,13 @@
     var
      _v_ =
         /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call1
-        (Stdlib_String[25], s),
+         /*<<scanf.ml:1517:24>>*/ (Stdlib_String[25], s),
      _w_ =
         /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call2
-        (Stdlib[28], _v_, cst$1);
+         /*<<scanf.ml:1517:24>>*/ (Stdlib[28], _v_, cst$1);
      /*<<scanf.ml:1517:53>>*/ return sscanf_format
-            ( /*<<scanf.ml:1517:16>>*/ caml_call2(Stdlib[28], cst$2, _w_),
+            ( /*<<scanf.ml:1517:16>>*/ caml_call2
+               /*<<scanf.ml:1517:16>>*/ (Stdlib[28], cst$2, _w_),
              fmt,
              function(x){
                /*<<scanf.ml:1517:63>>*/ return x;
@@ -31645,10 +33331,11 @@
     var
      _u_ =
         /*<<scanf.ml:1521:17>>*/  /*<<scanf.ml:1521:17>>*/ caml_call2
-        (Stdlib[28], s, cst$3);
+         /*<<scanf.ml:1521:17>>*/ (Stdlib[28], s, cst$3);
      /*<<scanf.ml:1521:34>>*/ return  /*<<scanf.ml:1521:34>>*/ caml_call1
-            (sscanf
-              ( /*<<scanf.ml:1521:9>>*/ caml_call2(Stdlib[28], cst$4, _u_),
+             /*<<scanf.ml:1521:34>>*/ (sscanf
+              ( /*<<scanf.ml:1521:9>>*/ caml_call2
+                 /*<<scanf.ml:1521:9>>*/ (Stdlib[28], cst$4, _u_),
                _t_),
              function(x){
                /*<<scanf.ml:1521:44>>*/ return x;
@@ -31703,11 +33390,13 @@
     var
      _a_ = Stdlib_Obj[10],
      slot =
-        /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag(exn) === _a_
+        /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag
+          /*<<callback.ml:26:16>>*/ (exn)
+        === _a_
         ? exn
         : exn[1];
      /*<<callback.ml:27:2>>*/ return  /*<<callback.ml:27:2>>*/ caml_register_named_value
-            (name, slot);
+             /*<<callback.ml:27:2>>*/ (name, slot);
     /*<<callback.ml:27:32>>*/ }
    var Stdlib_Callback = [0, register, register_exception];
    runtime.caml_register_global(1, Stdlib_Callback, "Stdlib__Callback");
@@ -31766,9 +33455,9 @@
     var
      o$0 =
         /*<<camlinternalOO.ml:23:19>>*/  /*<<camlinternalOO.ml:23:19>>*/ o.slice
-        ();
+         /*<<camlinternalOO.ml:23:19>>*/ ();
      /*<<camlinternalOO.ml:24:2>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
-            (o$0);
+             /*<<camlinternalOO.ml:24:2>>*/ (o$0);
     /*<<camlinternalOO.ml:24:10>>*/ }
    var params =  /*<<camlinternalOO.ml:36:13>>*/ [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
@@ -31782,7 +33471,7 @@
       var
        _am_ =
           /*<<camlinternalOO.ml:71:36>>*/  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get
-          (s, i);
+           /*<<camlinternalOO.ml:71:36>>*/ (s, i);
       accu[1] = (223 * accu[1] | 0) + _am_ | 0;
       var _an_ =  /*<<camlinternalOO.ml:70:2>>*/ i + 1 | 0;
       if(_al_ === i) break;
@@ -31813,7 +33502,7 @@
     table_count =  /*<<camlinternalOO.ml:116:18>>*/ [0, 0],
     dummy_met =
        /*<<camlinternalOO.ml:119:31>>*/  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block
-       (0, 0),
+        /*<<camlinternalOO.ml:119:31>>*/ (0, 0),
     initial_object_size =  /*<<camlinternalOO.ml:36:13>>*/ 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
@@ -31826,13 +33515,13 @@
      len = pub_labels.length - 1,
      methods =
         /*<<camlinternalOO.ml:130:16>>*/  /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
-        ((len * 2 | 0) + 2 | 0, dummy_met);
+         /*<<camlinternalOO.ml:130:16>>*/ ((len * 2 | 0) + 2 | 0, dummy_met);
      /*<<camlinternalOO.ml:131:2>>*/ caml_check_bound(methods, 0)[1] = len;
     var
      _ad_ = Stdlib_Sys[9],
      _ae_ =
        ( /*<<camlinternalOO.ml:132:28>>*/ runtime.caml_mul
-        (fit_size(len), _ad_)
+         /*<<camlinternalOO.ml:132:28>>*/ (fit_size(len), _ad_)
        / 8
        | 0)
        - 1
@@ -31871,9 +33560,14 @@
      var
       new_buck =
          /*<<camlinternalOO.ml:146:19>>*/  /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect
-         (new_size, dummy_met);
+          /*<<camlinternalOO.ml:146:19>>*/ (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);
+       /*<<camlinternalOO.ml:147:4>>*/ (Stdlib_Array[9],
+       array[2],
+       0,
+       new_buck,
+       0,
+       old_size);
      array[2] = new_buck;
      var _ac_ = 0;
     }
@@ -31901,7 +33595,7 @@
      var
       _$_ =
          /*<<camlinternalOO.ml:170:4>>*/  /*<<camlinternalOO.ml:170:4>>*/ caml_call2
-         (Meths[17], name, table[3]);
+          /*<<camlinternalOO.ml:170:4>>*/ (Meths[17], name, table[3]);
       /*<<camlinternalOO.ml:170:4>>*/ return _$_;
     }
     catch(_aa_){
@@ -31910,23 +33604,23 @@
      var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
      table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
-       (Meths[2], name, label, table[3]);
+        /*<<camlinternalOO.ml:173:29>>*/ (Meths[2], name, label, table[3]);
      table[4] =
        /*<<camlinternalOO.ml:174:30>>*/ caml_call3
-       (Labs[2], label, 1, table[4]);
+        /*<<camlinternalOO.ml:174:30>>*/ (Labs[2], label, 1, table[4]);
       /*<<camlinternalOO.ml:175:4>>*/ return label;
     }
     /*<<camlinternalOO.ml:175:9>>*/ }
    function get_method_labels(table, names){
      /*<<camlinternalOO.ml:178:2>>*/ return  /*<<camlinternalOO.ml:178:2>>*/ caml_call2
-            (Stdlib_Array[14],
+             /*<<camlinternalOO.ml:178:2>>*/ (Stdlib_Array[14],
              function(_Z_){ /*<<?>>*/ return get_method_label(table, _Z_);},
              names);
     /*<<camlinternalOO.ml:178:42>>*/ }
    function set_method(table, label, element){
      /*<<camlinternalOO.ml:181:2>>*/ method_count[1]++;
      /*<<camlinternalOO.ml:182:5>>*/ return  /*<<camlinternalOO.ml:182:5>>*/ caml_call2
-             (Labs[17], label, table[4])
+              /*<<camlinternalOO.ml:182:5>>*/ (Labs[17], label, table[4])
             ? (resize
                (table, label + 1 | 0),
               caml_check_bound(table[2], label)[1 + label] = element,
@@ -31938,7 +33632,7 @@
      var
       _X_ =
          /*<<camlinternalOO.ml:188:6>>*/  /*<<camlinternalOO.ml:188:6>>*/ caml_call2
-         (Stdlib_List[49], label, table[6]);
+          /*<<camlinternalOO.ml:188:6>>*/ (Stdlib_List[49], label, table[6]);
       /*<<camlinternalOO.ml:188:6>>*/ return _X_;
     }
     catch(_Y_){
@@ -31954,7 +33648,7 @@
      /*<<camlinternalOO.ml:192:2>>*/ return 0 === arr
             ? 0
             :  /*<<camlinternalOO.ml:192:37>>*/ caml_call1
-              (Stdlib_Array[10], arr);
+               /*<<camlinternalOO.ml:192:37>>*/ (Stdlib_Array[10], arr);
     /*<<camlinternalOO.ml:192:54>>*/ }
    function narrow(table, vars, virt_meths, concr_meths){
     var
@@ -31963,12 +33657,12 @@
      concr_meths$0 =  /*<<camlinternalOO.ml:197:20>>*/ to_list(concr_meths),
      virt_meth_labs =
         /*<<camlinternalOO.ml:198:23>>*/  /*<<camlinternalOO.ml:198:23>>*/ caml_call2
-        (Stdlib_List[20],
+         /*<<camlinternalOO.ml:198:23>>*/ (Stdlib_List[20],
          function(_V_){ /*<<?>>*/ return get_method_label(table, _V_);},
          virt_meths$0),
      concr_meth_labs =
         /*<<camlinternalOO.ml:199:24>>*/  /*<<camlinternalOO.ml:199:24>>*/ caml_call2
-        (Stdlib_List[20],
+         /*<<camlinternalOO.ml:199:24>>*/ (Stdlib_List[20],
          function(_U_){ /*<<?>>*/ return get_method_label(table, _U_);},
          concr_meths$0);
     table[5] =
@@ -31977,12 +33671,17 @@
       table[5]];
     table[7] =
       /*<<camlinternalOO.ml:205:4>>*/ caml_call3
-      (Vars[24],
+       /*<<camlinternalOO.ml:205:4>>*/ (Vars[24],
        function(lab, info, tvars){
          /*<<camlinternalOO.ml:207:8>>*/ return  /*<<camlinternalOO.ml:207:11>>*/ caml_call2
-                 (Stdlib_List[37], lab, vars$0)
+                  /*<<camlinternalOO.ml:207:11>>*/ (Stdlib_List[37],
+                  lab,
+                  vars$0)
                 ?  /*<<camlinternalOO.ml:207:34>>*/ caml_call3
-                  (Vars[2], lab, info, tvars)
+                   /*<<camlinternalOO.ml:207:34>>*/ (Vars[2],
+                   lab,
+                   info,
+                   tvars)
                 : tvars;
         /*<<camlinternalOO.ml:207:68>>*/ },
        table[7],
@@ -31991,17 +33690,17 @@
      by_name =  /*<<camlinternalOO.ml:209:16>>*/ [0, Meths[1]],
      by_label =  /*<<camlinternalOO.ml:210:17>>*/ [0, Labs[1]];
      /*<<camlinternalOO.ml:211:2>>*/  /*<<camlinternalOO.ml:211:2>>*/ caml_call3
-     (Stdlib_List[28],
+      /*<<camlinternalOO.ml:211:2>>*/ (Stdlib_List[28],
       function(met, label){
         /*<<camlinternalOO.ml:213:7>>*/ by_name[1] =
          /*<<camlinternalOO.ml:213:18>>*/ caml_call3
-         (Meths[2], met, label, by_name[1]);
+          /*<<camlinternalOO.ml:213:18>>*/ (Meths[2], met, label, by_name[1]);
        var _P_ = by_label[1];
        try{
         var
          _S_ =
             /*<<camlinternalOO.ml:216:17>>*/  /*<<camlinternalOO.ml:216:17>>*/ caml_call2
-            (Labs[17], label, table[4]),
+             /*<<camlinternalOO.ml:216:17>>*/ (Labs[17], label, table[4]),
          _R_ = _S_;
        }
        catch(_T_){
@@ -32010,20 +33709,21 @@
         var _R_ = 1;
        }
        by_label[1] =
-         /*<<camlinternalOO.ml:215:10>>*/ caml_call3(Labs[2], label, _R_, _P_);
+         /*<<camlinternalOO.ml:215:10>>*/ caml_call3
+          /*<<camlinternalOO.ml:215:10>>*/ (Labs[2], label, _R_, _P_);
        return 0;
        /*<<camlinternalOO.ml:217:21>>*/ },
       concr_meths$0,
       concr_meth_labs);
      /*<<camlinternalOO.ml:219:2>>*/  /*<<camlinternalOO.ml:219:2>>*/ caml_call3
-     (Stdlib_List[28],
+      /*<<camlinternalOO.ml:219:2>>*/ (Stdlib_List[28],
       function(met, label){
         /*<<camlinternalOO.ml:221:7>>*/ by_name[1] =
          /*<<camlinternalOO.ml:221:18>>*/ caml_call3
-         (Meths[2], met, label, by_name[1]);
+          /*<<camlinternalOO.ml:221:18>>*/ (Meths[2], met, label, by_name[1]);
        by_label[1] =
          /*<<camlinternalOO.ml:222:19>>*/ caml_call3
-         (Labs[2], label, 0, by_label[1]);
+          /*<<camlinternalOO.ml:222:19>>*/ (Labs[2], label, 0, by_label[1]);
        return 0;
        /*<<camlinternalOO.ml:222:49>>*/ },
       virt_meths$0,
@@ -32032,11 +33732,13 @@
     table[4] = by_label[1];
     table[6] =
       /*<<camlinternalOO.ml:227:5>>*/ caml_call3
-      (Stdlib_List[27],
+       /*<<camlinternalOO.ml:227:5>>*/ (Stdlib_List[27],
        function(met, hm){
         var lab = met[1];
          /*<<camlinternalOO.ml:229:13>>*/ return  /*<<camlinternalOO.ml:229:13>>*/ caml_call2
-                 (Stdlib_List[37], lab, virt_meth_labs)
+                  /*<<camlinternalOO.ml:229:13>>*/ (Stdlib_List[37],
+                  lab,
+                  virt_meth_labs)
                 ? hm
                 : [0, met, hm];
         /*<<camlinternalOO.ml:229:62>>*/ },
@@ -32048,7 +33750,7 @@
     var
      match =
         /*<<camlinternalOO.ml:235:4>>*/  /*<<camlinternalOO.ml:235:4>>*/ caml_call1
-        (Stdlib_List[6], table[5]),
+         /*<<camlinternalOO.ml:235:4>>*/ (Stdlib_List[6], table[5]),
      vars = match[6],
      virt_meths = match[5],
      saved_vars = match[4],
@@ -32056,17 +33758,18 @@
      by_label = match[2],
      by_name = match[1];
     table[5] =
-      /*<<camlinternalOO.ml:237:27>>*/ caml_call1(Stdlib_List[7], table[5]);
+      /*<<camlinternalOO.ml:237:27>>*/ caml_call1
+       /*<<camlinternalOO.ml:237:27>>*/ (Stdlib_List[7], table[5]);
     table[7] =
       /*<<camlinternalOO.ml:239:5>>*/ caml_call3
-      (Stdlib_List[26],
+       /*<<camlinternalOO.ml:239:5>>*/ (Stdlib_List[26],
        function(s, v){
         var
          _O_ =
             /*<<camlinternalOO.ml:240:30>>*/  /*<<camlinternalOO.ml:240:30>>*/ caml_call2
-            (Vars[17], v, table[7]);
+             /*<<camlinternalOO.ml:240:30>>*/ (Vars[17], v, table[7]);
          /*<<camlinternalOO.ml:240:19>>*/ return  /*<<camlinternalOO.ml:240:19>>*/ caml_call3
-                (Vars[2], v, _O_, s);
+                 /*<<camlinternalOO.ml:240:19>>*/ (Vars[2], v, _O_, s);
         /*<<camlinternalOO.ml:240:56>>*/ },
        saved_vars,
        vars);
@@ -32074,11 +33777,13 @@
     table[4] = by_label;
     table[6] =
       /*<<camlinternalOO.ml:245:5>>*/ caml_call3
-      (Stdlib_List[27],
+       /*<<camlinternalOO.ml:245:5>>*/ (Stdlib_List[27],
        function(met, hm){
         var lab = met[1];
          /*<<camlinternalOO.ml:247:13>>*/ return  /*<<camlinternalOO.ml:247:13>>*/ caml_call2
-                 (Stdlib_List[37], lab, virt_meths)
+                  /*<<camlinternalOO.ml:247:13>>*/ (Stdlib_List[37],
+                  lab,
+                  virt_meths)
                 ? hm
                 : [0, met, hm];
         /*<<camlinternalOO.ml:247:58>>*/ },
@@ -32091,7 +33796,7 @@
      var
       _M_ =
          /*<<camlinternalOO.ml:257:6>>*/  /*<<camlinternalOO.ml:257:6>>*/ caml_call2
-         (Vars[17], name, table[7]);
+          /*<<camlinternalOO.ml:257:6>>*/ (Vars[17], name, table[7]);
       /*<<camlinternalOO.ml:257:6>>*/ return _M_;
     }
     catch(_N_){
@@ -32102,13 +33807,13 @@
       /*<<camlinternalOO.ml:260:7>>*/ if(name !== "")
       table[7] =
         /*<<camlinternalOO.ml:260:37>>*/ caml_call3
-        (Vars[2], name, index, table[7]);
+         /*<<camlinternalOO.ml:260:37>>*/ (Vars[2], name, index, table[7]);
       /*<<camlinternalOO.ml:261:4>>*/ return index;
     }
     /*<<camlinternalOO.ml:261:9>>*/ }
    function to_array(arr){
      /*<<camlinternalOO.ml:264:2>>*/ return  /*<<camlinternalOO.ml:264:5>>*/ runtime.caml_equal
-             (arr, 0)
+              /*<<camlinternalOO.ml:264:5>>*/ (arr, 0)
             ? [0]
             : arr;
     /*<<camlinternalOO.ml:264:41>>*/ }
@@ -32119,7 +33824,7 @@
      nvals = vals.length - 1,
      res =
         /*<<camlinternalOO.ml:269:12>>*/  /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect
-        (nmeths + nvals | 0, 0),
+         /*<<camlinternalOO.ml:269:12>>*/ (nmeths + nvals | 0, 0),
      _D_ =  /*<<camlinternalOO.ml:270:2>>*/ nmeths - 1 | 0,
      _C_ =  /*<<camlinternalOO.ml:269:12>>*/ 0;
     if(_D_ >= 0){
@@ -32157,20 +33862,20 @@
      var
       _A_ =
          /*<<camlinternalOO.ml:279:6>>*/  /*<<camlinternalOO.ml:279:6>>*/ caml_call2
-         (Vars[17], name, table[7]);
+          /*<<camlinternalOO.ml:279:6>>*/ (Vars[17], name, table[7]);
       /*<<camlinternalOO.ml:279:6>>*/ return _A_;
     }
     catch(_B_){
      var _z_ = caml_wrap_exception(_B_);
      if(_z_ === Stdlib[8])
        /*<<camlinternalOO.ml:279:50>>*/ throw  /*<<camlinternalOO.ml:279:50>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _a_], 1);
+              /*<<camlinternalOO.ml:279:50>>*/ ([0, Assert_failure, _a_], 1);
      throw caml_maybe_attach_backtrace(_z_, 0);
     }
     /*<<camlinternalOO.ml:279:62>>*/ }
    function get_variables(table, names){
      /*<<camlinternalOO.ml:282:2>>*/ return  /*<<camlinternalOO.ml:282:2>>*/ caml_call2
-            (Stdlib_Array[14],
+             /*<<camlinternalOO.ml:282:2>>*/ (Stdlib_Array[14],
              function(_y_){ /*<<?>>*/ return get_variable(table, _y_);},
              names);
     /*<<camlinternalOO.ml:282:38>>*/ }
@@ -32184,18 +33889,20 @@
     var
      tags =
         /*<<camlinternalOO.ml:301:13>>*/  /*<<camlinternalOO.ml:301:13>>*/ caml_call2
-        (Stdlib_Array[14], public_method_label, public_methods),
+         /*<<camlinternalOO.ml:301:13>>*/ (Stdlib_Array[14],
+         public_method_label,
+         public_methods),
      table =  /*<<camlinternalOO.ml:302:14>>*/ new_table(tags);
      /*<<camlinternalOO.ml:303:2>>*/  /*<<camlinternalOO.ml:303:2>>*/ caml_call2
-     (Stdlib_Array[13],
+      /*<<camlinternalOO.ml:303:2>>*/ (Stdlib_Array[13],
       function(i, met){
        var lab = (i * 2 | 0) + 2 | 0;
        table[3] =
          /*<<camlinternalOO.ml:306:32>>*/ caml_call3
-         (Meths[2], met, lab, table[3]);
+          /*<<camlinternalOO.ml:306:32>>*/ (Meths[2], met, lab, table[3]);
        table[4] =
          /*<<camlinternalOO.ml:307:32>>*/ caml_call3
-         (Labs[2], lab, 1, table[4]);
+          /*<<camlinternalOO.ml:307:32>>*/ (Labs[2], lab, 1, table[4]);
        return 0;
        /*<<camlinternalOO.ml:307:72>>*/ },
       public_methods);
@@ -32205,7 +33912,8 @@
      /*<<camlinternalOO.ml:312:2>>*/ inst_var_count[1] =
      (inst_var_count[1] + table[1] | 0) - 1 | 0;
     table[8] =
-      /*<<camlinternalOO.ml:313:24>>*/ caml_call1(Stdlib_List[10], table[8]);
+      /*<<camlinternalOO.ml:313:24>>*/ caml_call1
+       /*<<camlinternalOO.ml:313:24>>*/ (Stdlib_List[10], table[8]);
     var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
     return resize
             (table,
@@ -32218,15 +33926,17 @@
     var
      init =
        top
-        ?  /*<<camlinternalOO.ml:319:16>>*/ caml_call2(super$0, cla, env)
-        :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1(super$0, cla);
+        ?  /*<<camlinternalOO.ml:319:16>>*/ caml_call2
+           /*<<camlinternalOO.ml:319:16>>*/ (super$0, cla, env)
+        :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1
+           /*<<camlinternalOO.ml:319:44>>*/ (super$0, cla);
      /*<<camlinternalOO.ml:320:2>>*/ widen(cla);
     var
      _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
      _t_ =
        [0,
          /*<<camlinternalOO.ml:324:5>>*/ caml_call2
-         (Stdlib_Array[14],
+          /*<<camlinternalOO.ml:324:5>>*/ (Stdlib_Array[14],
           function(nm){
             /*<<camlinternalOO.ml:325:18>>*/ return get_method
                    (cla, get_method_label(cla, nm));
@@ -32239,22 +33949,23 @@
         [0, init],
         [0,
           /*<<camlinternalOO.ml:323:16>>*/ caml_call2
-          (Stdlib_Array[14],
+           /*<<camlinternalOO.ml:323:16>>*/ (Stdlib_Array[14],
            function(_w_){ /*<<?>>*/ return get_variable(cla, _w_);},
            _u_),
          _t_]];
      /*<<camlinternalOO.ml:322:4>>*/ return  /*<<camlinternalOO.ml:322:4>>*/ caml_call1
-            (Stdlib_Array[5], _v_);
+             /*<<camlinternalOO.ml:322:4>>*/ (Stdlib_Array[5], _v_);
    }
    function make_class(pub_meths, class_init){
     var
      table =  /*<<camlinternalOO.ml:329:14>>*/ create_table(pub_meths),
      env_init =
         /*<<camlinternalOO.ml:330:17>>*/  /*<<camlinternalOO.ml:330:17>>*/ caml_call1
-        (class_init, table);
+         /*<<camlinternalOO.ml:330:17>>*/ (class_init, table);
      /*<<camlinternalOO.ml:331:2>>*/ init_class(table);
      /*<<camlinternalOO.ml:332:2>>*/ return [0,
-             /*<<camlinternalOO.ml:332:3>>*/ caml_call1(env_init, 0),
+             /*<<camlinternalOO.ml:332:3>>*/ caml_call1
+              /*<<camlinternalOO.ml:332:3>>*/ (env_init, 0),
             class_init,
             env_init,
             0];
@@ -32264,7 +33975,7 @@
      table =  /*<<camlinternalOO.ml:338:14>>*/ create_table(pub_meths),
      env_init =
         /*<<camlinternalOO.ml:339:17>>*/  /*<<camlinternalOO.ml:339:17>>*/ caml_call1
-        (class_init, table);
+         /*<<camlinternalOO.ml:339:17>>*/ (class_init, table);
      /*<<camlinternalOO.ml:340:2>>*/ init_class(table);
     init_table[2] = class_init;
     init_table[1] = env_init;
@@ -32273,7 +33984,7 @@
    function dummy_class(loc){
     function undef(param){
       /*<<camlinternalOO.ml:345:23>>*/ throw  /*<<camlinternalOO.ml:345:23>>*/ caml_maybe_attach_backtrace
-            ([0, Stdlib[15], loc], 1);
+             /*<<camlinternalOO.ml:345:23>>*/ ([0, Stdlib[15], loc], 1);
      /*<<camlinternalOO.ml:345:61>>*/ }
      /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0];
     /*<<camlinternalOO.ml:346:45>>*/ }
@@ -32281,10 +33992,10 @@
     var
      obj =
         /*<<camlinternalOO.ml:352:12>>*/  /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
-        (Stdlib_Obj[10], table[1]);
+         /*<<camlinternalOO.ml:352:12>>*/ (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:354:2>>*/ obj[1] = table[2];
      /*<<camlinternalOO.ml:355:10>>*/ return  /*<<camlinternalOO.ml:355:10>>*/ caml_set_oo_id
-            (obj);
+             /*<<camlinternalOO.ml:355:10>>*/ (obj);
     /*<<camlinternalOO.ml:355:22>>*/ }
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
@@ -32292,10 +34003,10 @@
     var
      obj =
         /*<<camlinternalOO.ml:360:14>>*/  /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
-        (Stdlib_Obj[10], table[1]);
+         /*<<camlinternalOO.ml:360:14>>*/ (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:362:4>>*/ obj[1] = table[2];
      /*<<camlinternalOO.ml:363:12>>*/ return  /*<<camlinternalOO.ml:363:12>>*/ caml_set_oo_id
-            (obj);
+             /*<<camlinternalOO.ml:363:12>>*/ (obj);
     /*<<camlinternalOO.ml:364:5>>*/ }
    function iter_f(obj, param){
     var param$0 = param;
@@ -32303,7 +34014,7 @@
      if(! param$0)  /*<<camlinternalOO.ml:368:12>>*/ return 0;
      var l = param$0[2], f = param$0[1];
       /*<<camlinternalOO.ml:369:12>>*/  /*<<camlinternalOO.ml:369:12>>*/ caml_call1
-      (f, obj);
+       /*<<camlinternalOO.ml:369:12>>*/ (f, obj);
      param$0 = l;
     }
    }
@@ -32329,7 +34040,7 @@
      /*<<camlinternalOO.ml:415:15>>*/ if(param)
       /*<<camlinternalOO.ml:417:19>>*/ return param[2];
      /*<<camlinternalOO.ml:416:13>>*/ throw  /*<<camlinternalOO.ml:416:13>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _e_], 1);
+            /*<<camlinternalOO.ml:416:13>>*/ ([0, Assert_failure, _e_], 1);
     /*<<camlinternalOO.ml:417:30>>*/ }
    function build_path(n, keys, tables){
     var
@@ -32349,7 +34060,7 @@
     var v = r[1];
     if(! tables)
       /*<<camlinternalOO.ml:407:13>>*/ throw  /*<<camlinternalOO.ml:407:13>>*/ caml_maybe_attach_backtrace
-            ([0, Assert_failure, _b_], 1);
+             /*<<camlinternalOO.ml:407:13>>*/ ([0, Assert_failure, _b_], 1);
     tables[2] = v;
      /*<<camlinternalOO.ml:428:2>>*/ return res;
     /*<<camlinternalOO.ml:429:5>>*/ }
@@ -32367,17 +34078,17 @@
       /*<<camlinternalOO.ml:435:4>>*/ for(;;){
       if(! tables$1)
         /*<<camlinternalOO.ml:413:13>>*/ throw  /*<<camlinternalOO.ml:413:13>>*/ caml_maybe_attach_backtrace
-              ([0, Assert_failure, _d_], 1);
+               /*<<camlinternalOO.ml:413:13>>*/ ([0, Assert_failure, _d_], 1);
       if(tables$1[1] === key) break;
       if(! tables$1)
         /*<<camlinternalOO.ml:419:13>>*/ throw  /*<<camlinternalOO.ml:419:13>>*/ caml_maybe_attach_backtrace
-              ([0, Assert_failure, _f_], 1);
+               /*<<camlinternalOO.ml:419:13>>*/ ([0, Assert_failure, _f_], 1);
       var tables =  /*<<camlinternalOO.ml:420:19>>*/ tables$1[3];
       if(! tables){
        var next =  /*<<camlinternalOO.ml:444:35>>*/ [0, key, 0, 0];
        if(! tables$1)
          /*<<camlinternalOO.ml:410:13>>*/ throw  /*<<camlinternalOO.ml:410:13>>*/ caml_maybe_attach_backtrace
-               ([0, Assert_failure, _c_], 1);
+                /*<<camlinternalOO.ml:410:13>>*/ ([0, Assert_failure, _c_], 1);
        tables$1[3] = next;
         /*<<camlinternalOO.ml:445:10>>*/ return build_path
                (i - 1 | 0, keys, next);
@@ -32387,7 +34098,7 @@
      var tables_data =  /*<<camlinternalOO.ml:436:12>>*/ get_data(tables$1);
      if(! tables_data)
        /*<<camlinternalOO.ml:437:17>>*/ throw  /*<<camlinternalOO.ml:437:17>>*/ caml_maybe_attach_backtrace
-             ([0, Assert_failure, _g_], 1);
+              /*<<camlinternalOO.ml:437:17>>*/ ([0, Assert_failure, _g_], 1);
      var i$0 = i - 1 | 0;
      i = i$0;
      tables$0 = tables_data;
@@ -32470,7 +34181,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:464:34>>*/ return  /*<<camlinternalOO.ml:464:34>>*/ caml_call1
-                     (obj[1][1 + n$36], obj);
+                      /*<<camlinternalOO.ml:464:34>>*/ (obj[1][1 + n$36], obj);
              /*<<camlinternalOO.ml:464:48>>*/ };
          break;
         case 4:
@@ -32492,7 +34203,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:466:37>>*/ return  /*<<camlinternalOO.ml:466:20>>*/ caml_call1
-                     (f$20, x$19);
+                      /*<<camlinternalOO.ml:466:20>>*/ (f$20, x$19);
              /*<<camlinternalOO.ml:466:40>>*/ };
          break;
         case 6:
@@ -32529,9 +34240,9 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:38>>*/ caml_call1
-                     (f$17,
+                      /*<<camlinternalOO.ml:471:38>>*/ (f$17,
                        /*<<camlinternalOO.ml:471:38>>*/ caml_call1
-                       (obj[1][1 + n$32], obj));
+                        /*<<camlinternalOO.ml:471:38>>*/ (obj[1][1 + n$32], obj));
              /*<<camlinternalOO.ml:471:54>>*/ };
          break;
         case 9:
@@ -32544,7 +34255,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:472:45>>*/ return  /*<<camlinternalOO.ml:472:28>>*/ caml_call2
-                     (f$16, x$18, y$0);
+                      /*<<camlinternalOO.ml:472:28>>*/ (f$16, x$18, y$0);
              /*<<camlinternalOO.ml:472:50>>*/ };
          break;
         case 10:
@@ -32584,10 +34295,10 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:474:43>>*/ return  /*<<camlinternalOO.ml:474:47>>*/ caml_call2
-                     (f$13,
+                      /*<<camlinternalOO.ml:474:47>>*/ (f$13,
                       x$15,
                        /*<<camlinternalOO.ml:474:47>>*/ caml_call1
-                       (obj[1][1 + n$29], obj));
+                        /*<<camlinternalOO.ml:474:47>>*/ (obj[1][1 + n$29], obj));
              /*<<camlinternalOO.ml:474:63>>*/ };
          break;
         case 13:
@@ -32600,7 +34311,9 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:475:42>>*/ return  /*<<camlinternalOO.ml:475:26>>*/ caml_call2
-                     (f$12, obj[1 + n$28], x$14);
+                      /*<<camlinternalOO.ml:475:26>>*/ (f$12,
+                      obj[1 + n$28],
+                      x$14);
              /*<<camlinternalOO.ml:475:70>>*/ };
          break;
         case 14:
@@ -32614,7 +34327,9 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:482:4>>*/ return  /*<<camlinternalOO.ml:481:2>>*/ caml_call2
-                     (f$11, obj[1 + e$7][1 + n$27], x$13);
+                      /*<<camlinternalOO.ml:481:2>>*/ (f$11,
+                      obj[1 + e$7][1 + n$27],
+                      x$13);
              /*<<camlinternalOO.ml:482:71>>*/ };
          break;
         case 15:
@@ -32627,9 +34342,9 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:476:43>>*/ return  /*<<camlinternalOO.ml:476:27>>*/ caml_call2
-                     (f$10,
+                      /*<<camlinternalOO.ml:476:27>>*/ (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
-                       (obj[1][1 + n$26], obj),
+                        /*<<camlinternalOO.ml:476:45>>*/ (obj[1][1 + n$26], obj),
                       x$12);
              /*<<camlinternalOO.ml:476:63>>*/ };
          break;
@@ -32642,7 +34357,9 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:483:41>>*/ return  /*<<camlinternalOO.ml:483:25>>*/ caml_call2
-                     (obj[1][1 + n$25], obj, x$11);
+                      /*<<camlinternalOO.ml:483:25>>*/ (obj[1][1 + n$25],
+                      obj,
+                      x$11);
              /*<<camlinternalOO.ml:483:68>>*/ };
          break;
         case 17:
@@ -32681,9 +34398,11 @@
              var
               _l_ =
                  /*<<camlinternalOO.ml:490:44>>*/  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
-                 (obj[1][1 + m$10], obj);
+                  /*<<camlinternalOO.ml:490:44>>*/ (obj[1][1 + m$10], obj);
               /*<<camlinternalOO.ml:490:44>>*/ return  /*<<camlinternalOO.ml:490:44>>*/ caml_call2
-                     (obj[1][1 + n$22], obj, _l_);
+                      /*<<camlinternalOO.ml:490:44>>*/ (obj[1][1 + n$22],
+                      obj,
+                      _l_);
              /*<<camlinternalOO.ml:490:60>>*/ };
          break;
         case 20:
@@ -32696,7 +34415,9 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:492:18>>*/ return  /*<<camlinternalOO.ml:492:2>>*/ caml_call1
-                     (caml_get_public_method(x$10, m$9, 0), x$10);
+                      /*<<camlinternalOO.ml:492:2>>*/ (caml_get_public_method
+                       (x$10, m$9, 0),
+                      x$10);
              /*<<camlinternalOO.ml:492:58>>*/ };
          break;
         case 21:
@@ -32738,9 +34459,11 @@
              var
               _i_ =
                  /*<<camlinternalOO.ml:505:14>>*/  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
-                 (obj[1][1 + n$19], obj);
+                  /*<<camlinternalOO.ml:505:14>>*/ (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:14>>*/ (caml_get_public_method
+                       (_i_, m$6, 0),
+                      _i_);
              /*<<camlinternalOO.ml:505:59>>*/ };
       }
      else
@@ -32844,7 +34567,7 @@
      length = comps$0.length - 1,
      modu =
         /*<<camlinternalMod.ml:53:13>>*/  /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block
-        (0, length),
+         /*<<camlinternalMod.ml:53:13>>*/ (0, length),
      _h_ =  /*<<camlinternalMod.ml:54:2>>*/ length - 1 | 0,
      _g_ =  /*<<camlinternalMod.ml:53:13>>*/ 0;
     if(_h_ >= 0){
@@ -32863,9 +34586,9 @@
               var fn =  /*<<camlinternalMod.ml:28:38>>*/ 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:30:11>>*/ ([0, Stdlib[15], loc], 1);
                /*<<camlinternalMod.ml:32:11>>*/ return  /*<<camlinternalMod.ml:32:11>>*/ caml_call1
-                      (fn, x);
+                       /*<<camlinternalMod.ml:32:11>>*/ (fn, x);
               /*<<camlinternalMod.ml:32:16>>*/ };
           let fn$0 = fn;
           var init = fn;
@@ -32880,13 +34603,13 @@
               var l =  /*<<camlinternalMod.ml:37:28>>*/ 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);
+                       /*<<camlinternalMod.ml:39:13>>*/ ([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);
+                       /*<<camlinternalMod.ml:41:13>>*/ (CamlinternalLazy[2], l);
              }]);
           var init = l;
           break;
@@ -32894,7 +34617,7 @@
           var
            init =
               /*<<camlinternalMod.ml:44:16>>*/ caml_call1
-              (CamlinternalOO[21], loc);
+               /*<<camlinternalMod.ml:44:16>>*/ (CamlinternalOO[21], loc);
        }
       else if(0 === shape[0])
        var comps = shape[1], init = init_mod_block(loc, comps);
@@ -32915,11 +34638,15 @@
       /*<<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:9>>*/ (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)
+     (0
+      ===
+        /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag
+         /*<<camlinternalMod.ml:81:10>>*/ (n)
       && comps$0.length - 1 <= n.length - 1){
      var
       _e_ = comps$0.length - 2 | 0,
@@ -32936,7 +34663,10 @@
        if(typeof shape === "number"){
         if(2 === shape){
           /*<<camlinternalMod.ml:72:13>>*/ if
-          (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
+          (0
+           ===
+             /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag
+              /*<<camlinternalMod.ml:72:13>>*/ (n$0)
            && 4 === n$0.length - 1){
           var cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i], j = 0;
           for(;;){
@@ -32948,7 +34678,7 @@
           break a;
          }
           /*<<camlinternalMod.ml:72:5>>*/ throw  /*<<camlinternalMod.ml:72:5>>*/ caml_maybe_attach_backtrace
-                ([0, Assert_failure, _a_], 1);
+                 /*<<camlinternalMod.ml:72:5>>*/ ([0, Assert_failure, _a_], 1);
         }
          /*<<camlinternalMod.ml:68:5>>*/ modu[1 + i] = n$0;
        }
@@ -32965,7 +34695,7 @@
      return 0;
     }
      /*<<camlinternalMod.ml:81:2>>*/ throw  /*<<camlinternalMod.ml:81:2>>*/ caml_maybe_attach_backtrace
-           ([0, Assert_failure, _b_], 1);
+            /*<<camlinternalMod.ml:81:2>>*/ ([0, Assert_failure, _b_], 1);
     /*<<camlinternalMod.ml:84:6>>*/ }
    function update_mod(shape, o, n){
      /*<<camlinternalMod.ml:87:2>>*/ if
@@ -32974,7 +34704,8 @@
       /*<<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:9>>*/ (Stdlib[2],
+             cst_CamlinternalMod_update_mod);
     /*<<camlinternalMod.ml:90:60>>*/ }
    var CamlinternalMod = [0, init_mod, update_mod];
    runtime.caml_register_global(8, CamlinternalMod, "CamlinternalMod");
@@ -33035,7 +34766,8 @@
       random =
         opt
          ? opt[1]
-         :  /*<<ephemeron.ml:107:26>>*/ caml_call1(Stdlib_Hashtbl[17], 0);
+         :  /*<<ephemeron.ml:107:26>>*/ caml_call1
+            /*<<ephemeron.ml:107:26>>*/ (Stdlib_Hashtbl[17], 0);
      a:
      b:
      {
@@ -33059,13 +34791,15 @@
       }
       var
        seed =
-          /*<<ephemeron.ml:109:32>>*/ caml_call1(Stdlib_Random[19][4], _as_);
+          /*<<ephemeron.ml:109:32>>*/ caml_call1
+           /*<<ephemeron.ml:109:32>>*/ (Stdlib_Random[19][4], _as_);
      }
      else
       var seed = 0;
       /*<<ephemeron.ml:110:6>>*/ return [0,
              0,
-              /*<<ephemeron.ml:110:56>>*/ caml_make_vect(x, 0),
+              /*<<ephemeron.ml:110:56>>*/ caml_make_vect
+               /*<<ephemeron.ml:110:56>>*/ (x, 0),
              seed,
              x];
     }
@@ -33093,7 +34827,9 @@
              : (h
                 [1]
                = 0,
-               h[2] =  /*<<ephemeron.ml:125:18>>*/ caml_make_vect(h[4], 0),
+               h[2] =
+                 /*<<ephemeron.ml:125:18>>*/ caml_make_vect
+                  /*<<ephemeron.ml:125:18>>*/ (h[4], 0),
                0);
      /*<<ephemeron.ml:126:9>>*/ }
     function copy(h){
@@ -33102,7 +34838,7 @@
       _am_ = h[3],
       _an_ =
          /*<<ephemeron.ml:128:33>>*/  /*<<ephemeron.ml:128:33>>*/ caml_call1
-         (Stdlib_Array[7], h[2]);
+          /*<<ephemeron.ml:128:33>>*/ (Stdlib_Array[7], h[2]);
       /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_];
      /*<<ephemeron.ml:128:52>>*/ }
     function key_index(h, hkey){
@@ -33115,7 +34851,8 @@
        if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
        var hkey = param$0[1], rest = param$0[3], c = param$0[2];
         /*<<ephemeron.ml:137:36>>*/ if
-        ( /*<<ephemeron.ml:137:36>>*/ caml_call1(H[6], c)){
+        ( /*<<ephemeron.ml:137:36>>*/ caml_call1
+           /*<<ephemeron.ml:137:36>>*/ (H[6], c)){
         var rest$0 = param$0[3], c$0 = param$0[2];
          /*<<ephemeron.ml:141:12>>*/ return [0, hkey, c$0, do_bucket(rest$0)];
        }
@@ -33149,7 +34886,7 @@
       var
        ndata =
           /*<<ephemeron.ml:174:20>>*/  /*<<ephemeron.ml:174:20>>*/ caml_make_vect
-          (nsize, 0);
+           /*<<ephemeron.ml:174:20>>*/ (nsize, 0);
       h[2] = ndata;
       var
        insert_bucket =
@@ -33184,11 +34921,11 @@
      var
       hkey =
          /*<<ephemeron.ml:188:17>>*/  /*<<ephemeron.ml:188:17>>*/ caml_call2
-         (H[2], h[3], key),
+          /*<<ephemeron.ml:188:17>>*/ (H[2], h[3], key),
       i =  /*<<ephemeron.ml:189:14>>*/ key_index(h, hkey),
       container =
          /*<<ephemeron.ml:190:22>>*/  /*<<ephemeron.ml:190:22>>*/ caml_call2
-         (H[1], key, info),
+          /*<<ephemeron.ml:190:22>>*/ (H[1], key, info),
       bucket =
          /*<<ephemeron.ml:191:19>>*/ [0,
          hkey,
@@ -33203,7 +34940,7 @@
      var
       hkey =
          /*<<ephemeron.ml:197:17>>*/  /*<<ephemeron.ml:197:17>>*/ caml_call2
-         (H[2], h[3], key);
+          /*<<ephemeron.ml:197:17>>*/ (H[2], h[3], key);
      function remove_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:198:30>>*/ for(;;){
@@ -33216,7 +34953,9 @@
                 c$0,
                 remove_bucket(next$0)];
        }
-       switch( /*<<ephemeron.ml:201:24>>*/ caml_call2(H[3], c, key)){
+       switch
+        ( /*<<ephemeron.ml:201:24>>*/ caml_call2
+           /*<<ephemeron.ml:201:24>>*/ (H[3], c, key)){
          case 0:
           h[1] = h[1] - 1 | 0;  /*<<ephemeron.ml:202:45>>*/ return next;
          case 1:
@@ -33237,21 +34976,23 @@
      var
       hkey =
          /*<<ephemeron.ml:239:17>>*/  /*<<ephemeron.ml:239:17>>*/ caml_call2
-         (H[2], h[3], key),
+          /*<<ephemeron.ml:239:17>>*/ (H[2], h[3], key),
       _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _$_)[1 + _$_];
      for(;;){
       if(! param)
         /*<<ephemeron.ml:220:10>>*/ throw  /*<<ephemeron.ml:220:10>>*/ caml_maybe_attach_backtrace
-              (Stdlib[8], 1);
+               /*<<ephemeron.ml:220:10>>*/ (Stdlib[8], 1);
       var hk = param[1], rest = param[3], c = param[2];
       if(hkey === hk)
-       switch( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
+       switch
+        ( /*<<ephemeron.ml:222:22>>*/ caml_call2
+           /*<<ephemeron.ml:222:22>>*/ (H[3], c, key)){
          case 0:
           var
            match =
               /*<<ephemeron.ml:224:26>>*/  /*<<ephemeron.ml:224:26>>*/ caml_call1
-              (H[4], c);
+               /*<<ephemeron.ml:224:26>>*/ (H[4], c);
           if(match){var d = match[1];  /*<<ephemeron.ml:229:26>>*/ return d;}
           param = rest;
           break;
@@ -33266,19 +35007,21 @@
      var
       hkey =
          /*<<ephemeron.ml:264:17>>*/  /*<<ephemeron.ml:264:17>>*/ caml_call2
-         (H[2], h[3], key),
+          /*<<ephemeron.ml:264:17>>*/ (H[2], h[3], key),
       ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], ___)[1 + ___];
      for(;;){
       if(! param)  /*<<ephemeron.ml:245:10>>*/ return 0;
       var hk = param[1], rest = param[3], c = param[2];
       if(hkey === hk)
-       switch( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
+       switch
+        ( /*<<ephemeron.ml:247:22>>*/ caml_call2
+           /*<<ephemeron.ml:247:22>>*/ (H[3], c, key)){
          case 0:
           var
            d =
               /*<<ephemeron.ml:249:26>>*/  /*<<ephemeron.ml:249:26>>*/ caml_call1
-              (H[4], c);
+               /*<<ephemeron.ml:249:26>>*/ (H[4], c);
           if(d)  /*<<ephemeron.ml:254:31>>*/ return d;
           param = rest;
           break;
@@ -33293,19 +35036,21 @@
      var
       hkey =
          /*<<ephemeron.ml:269:17>>*/  /*<<ephemeron.ml:269:17>>*/ caml_call2
-         (H[2], h[3], key);
+          /*<<ephemeron.ml:269:17>>*/ (H[2], h[3], key);
      function find_in_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:270:31>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
        var hk = param$0[1], rest = param$0[3], c = param$0[2];
        if(hkey === hk)
-        switch( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
+        switch
+         ( /*<<ephemeron.ml:273:22>>*/ caml_call2
+            /*<<ephemeron.ml:273:22>>*/ (H[3], c, key)){
           case 0:
            var
             match =
                /*<<ephemeron.ml:274:33>>*/  /*<<ephemeron.ml:274:33>>*/ caml_call1
-               (H[4], c);
+                /*<<ephemeron.ml:274:33>>*/ (H[4], c);
            if(match){
             var d = match[1];
              /*<<ephemeron.ml:277:26>>*/ return [0, d, find_in_bucket(rest)];
@@ -33327,7 +35072,7 @@
      var
       hkey =
          /*<<ephemeron.ml:289:17>>*/  /*<<ephemeron.ml:289:17>>*/ caml_call2
-         (H[2], h[3], key),
+          /*<<ephemeron.ml:289:17>>*/ (H[2], h[3], key),
       i =  /*<<ephemeron.ml:299:14>>*/ key_index(h, hkey),
       l =  /*<<ephemeron.ml:300:14>>*/ caml_check_bound(h[2], i)[1 + i];
       /*<<ephemeron.ml:301:6>>*/ try{
@@ -33335,14 +35080,17 @@
        /*<<ephemeron.ml:290:31>>*/ for(;;){
        if(! param)
          /*<<ephemeron.ml:291:19>>*/ throw  /*<<ephemeron.ml:291:19>>*/ caml_maybe_attach_backtrace
-               (Stdlib[8], 1);
+                /*<<ephemeron.ml:291:19>>*/ (Stdlib[8], 1);
        var hk = param[1], next = param[3], c = param[2];
        if(hkey === hk){
-        if(!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
+        if
+         (!
+           /*<<ephemeron.ml:293:24>>*/ caml_call2
+            /*<<ephemeron.ml:293:24>>*/ (H[3], c, key)){
          var
           _V_ =
              /*<<ephemeron.ml:290:6>>*/  /*<<ephemeron.ml:290:6>>*/ caml_call3
-             (H[5], c, key, info);
+              /*<<ephemeron.ml:290:6>>*/ (H[5], c, key, info);
           /*<<ephemeron.ml:302:8>>*/ return _V_;
         }
         param = next;
@@ -33356,7 +35104,7 @@
       var
        container =
           /*<<ephemeron.ml:304:24>>*/  /*<<ephemeron.ml:304:24>>*/ caml_call2
-          (H[1], key, info);
+           /*<<ephemeron.ml:304:24>>*/ (H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
       h[1] = h[1] + 1 | 0;
       var _X_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
@@ -33367,14 +35115,17 @@
      var
       hkey =
          /*<<ephemeron.ml:310:17>>*/  /*<<ephemeron.ml:310:17>>*/ caml_call2
-         (H[2], h[3], key),
+          /*<<ephemeron.ml:310:17>>*/ (H[2], h[3], key),
       _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _U_)[1 + _U_];
       /*<<ephemeron.ml:311:30>>*/ for(;;){
       if(! param)  /*<<ephemeron.ml:313:10>>*/ return 0;
       var hk = param[1], rest = param[3], c = param[2];
       if(hk === hkey){
-       if(!  /*<<ephemeron.ml:315:22>>*/ caml_call2(H[3], c, key))
+       if
+        (!
+          /*<<ephemeron.ml:315:22>>*/ caml_call2
+           /*<<ephemeron.ml:315:22>>*/ (H[3], c, key))
          /*<<ephemeron.ml:316:21>>*/ return 1;
        param = rest;
       }
@@ -33399,19 +35150,19 @@
      var
       mbl =
          /*<<ephemeron.ml:330:8>>*/  /*<<ephemeron.ml:330:8>>*/ caml_call3
-         (Stdlib_Array[18],
+          /*<<ephemeron.ml:330:8>>*/ (Stdlib_Array[18],
           function(m, b){
            var _T_ =  /*<<ephemeron.ml:330:46>>*/ bucket_length(0, b);
             /*<<ephemeron.ml:330:46>>*/ return  /*<<ephemeron.ml:330:46>>*/ caml_call2
-                   (Stdlib_Int[11], m, _T_);
+                    /*<<ephemeron.ml:330:46>>*/ (Stdlib_Int[11], m, _T_);
            /*<<ephemeron.ml:330:65>>*/ },
           0,
           h[2]),
       histo =
          /*<<ephemeron.ml:331:18>>*/  /*<<ephemeron.ml:331:18>>*/ caml_make_vect
-         (mbl + 1 | 0, 0);
+          /*<<ephemeron.ml:331:18>>*/ (mbl + 1 | 0, 0);
       /*<<ephemeron.ml:332:6>>*/  /*<<ephemeron.ml:332:6>>*/ caml_call2
-      (Stdlib_Array[12],
+       /*<<ephemeron.ml:332:6>>*/ (Stdlib_Array[12],
        function(b){
         var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
@@ -33427,7 +35178,8 @@
       if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
       var rest = param$0[3], c = param$0[2];
        /*<<ephemeron.ml:344:30>>*/ if
-       ( /*<<ephemeron.ml:344:30>>*/ caml_call1(H[6], c)){
+       ( /*<<ephemeron.ml:344:30>>*/ caml_call1
+          /*<<ephemeron.ml:344:30>>*/ (H[6], c)){
        var accu$1 = accu$0 + 1 | 0;
        accu$0 = accu$1;
        param$0 = rest;
@@ -33440,19 +35192,19 @@
       size =  /*<<ephemeron.ml:349:17>>*/ [0, 0],
       mbl =
          /*<<ephemeron.ml:351:8>>*/  /*<<ephemeron.ml:351:8>>*/ caml_call3
-         (Stdlib_Array[18],
+          /*<<ephemeron.ml:351:8>>*/ (Stdlib_Array[18],
           function(m, b){
            var _S_ =  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive(0, b);
             /*<<ephemeron.ml:352:32>>*/ return  /*<<ephemeron.ml:352:32>>*/ caml_call2
-                   (Stdlib_Int[11], m, _S_);
+                    /*<<ephemeron.ml:352:32>>*/ (Stdlib_Int[11], m, _S_);
            /*<<ephemeron.ml:352:57>>*/ },
           0,
           h[2]),
       histo =
          /*<<ephemeron.ml:354:18>>*/  /*<<ephemeron.ml:354:18>>*/ caml_make_vect
-         (mbl + 1 | 0, 0);
+          /*<<ephemeron.ml:354:18>>*/ (mbl + 1 | 0, 0);
       /*<<ephemeron.ml:355:6>>*/  /*<<ephemeron.ml:355:6>>*/ caml_call2
-      (Stdlib_Array[12],
+       /*<<ephemeron.ml:355:6>>*/ (Stdlib_Array[12],
        function(b){
         var l =  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive(0, b);
         size[1] = size[1] + l | 0;
@@ -33469,7 +35221,7 @@
      /*<<ephemeron.ml:364:34>>*/ }
     function add_seq(tbl, i){
       /*<<ephemeron.ml:367:6>>*/ return  /*<<ephemeron.ml:367:6>>*/ caml_call2
-             (Stdlib_Seq[4],
+              /*<<ephemeron.ml:367:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
                 /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v);
@@ -33478,7 +35230,7 @@
      /*<<ephemeron.ml:367:43>>*/ }
     function replace_seq(tbl, i){
       /*<<ephemeron.ml:370:6>>*/ return  /*<<ephemeron.ml:370:6>>*/ caml_call2
-             (Stdlib_Seq[4],
+              /*<<ephemeron.ml:370:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
                 /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v);
@@ -33512,33 +35264,33 @@
    }
    function create(param){
      /*<<ephemeron.ml:394:30>>*/ return  /*<<ephemeron.ml:394:30>>*/ caml_call1
-            (Stdlib_Obj[23][1], 1);
+             /*<<ephemeron.ml:394:30>>*/ (Stdlib_Obj[23][1], 1);
     /*<<ephemeron.ml:394:45>>*/ }
    function get_key(t){
     var
      x =
         /*<<ephemeron.ml:396:50>>*/  /*<<ephemeron.ml:396:50>>*/ caml_call2
-        (Stdlib_Obj[23][3], t, 0);
+         /*<<ephemeron.ml:396:50>>*/ (Stdlib_Obj[23][3], t, 0);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:396:70>>*/ }
    function set_key(t, k){
      /*<<ephemeron.ml:397:44>>*/ return  /*<<ephemeron.ml:397:44>>*/ caml_call3
-            (Stdlib_Obj[23][5], t, 0, k);
+             /*<<ephemeron.ml:397:44>>*/ (Stdlib_Obj[23][5], t, 0, k);
     /*<<ephemeron.ml:397:75>>*/ }
    function check_key(t){
      /*<<ephemeron.ml:398:39>>*/ return  /*<<ephemeron.ml:398:39>>*/ caml_call2
-            (Stdlib_Obj[23][7], t, 0);
+             /*<<ephemeron.ml:398:39>>*/ (Stdlib_Obj[23][7], t, 0);
     /*<<ephemeron.ml:398:59>>*/ }
    function get_data(t){
     var
      x =
         /*<<ephemeron.ml:400:51>>*/  /*<<ephemeron.ml:400:51>>*/ caml_call1
-        (Stdlib_Obj[23][9], t);
+         /*<<ephemeron.ml:400:51>>*/ (Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:400:70>>*/ }
    function set_data(t, d){
      /*<<ephemeron.ml:401:45>>*/ return  /*<<ephemeron.ml:401:45>>*/ caml_call2
-            (Stdlib_Obj[23][11], t, d);
+             /*<<ephemeron.ml:401:45>>*/ (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:401:75>>*/ }
    function make(key, data){
     var eph =  /*<<ephemeron.ml:405:14>>*/ create(0);
@@ -33565,13 +35317,13 @@
      if(! match)  /*<<ephemeron.ml:430:18>>*/ return 2;
      var k$0 = match[1];
       /*<<ephemeron.ml:432:15>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
-              (H[1], k, k$0)
+               /*<<ephemeron.ml:432:15>>*/ (H[1], k, k$0)
              ? 0
              : 1;
      /*<<ephemeron.ml:432:76>>*/ }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:435:8>>*/  /*<<ephemeron.ml:402:40>>*/ caml_call1
-      (Stdlib_Obj[23][12], c);
+       /*<<ephemeron.ml:402:40>>*/ (Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:436:8>>*/ set_key(c, k);
       /*<<ephemeron.ml:436:8>>*/ return set_data(c, d);
      /*<<ephemeron.ml:437:20>>*/ }
@@ -33588,7 +35340,7 @@
     var equal = H[1];
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:446:41>>*/ return  /*<<ephemeron.ml:446:41>>*/ caml_call1
-             (H[2], x);
+              /*<<ephemeron.ml:446:41>>*/ (H[2], x);
      /*<<ephemeron.ml:446:49>>*/ }
     var
      include = MakeSeeded$0([0, equal, seeded_hash]),
@@ -33611,15 +35363,15 @@
      stats_alive = include[18];
     function create(sz){
       /*<<ephemeron.ml:448:20>>*/ return  /*<<ephemeron.ml:448:20>>*/ caml_call2
-             (_R_, _a_, sz);
+              /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, sz);
      /*<<ephemeron.ml:448:43>>*/ }
     function of_seq(i){
      var
       tbl =
          /*<<ephemeron.ml:448:20>>*/  /*<<ephemeron.ml:448:20>>*/ caml_call2
-         (_R_, _a_, 16);
+          /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, 16);
       /*<<ephemeron.ml:451:6>>*/  /*<<ephemeron.ml:451:6>>*/ caml_call2
-      (replace_seq, tbl, i);
+       /*<<ephemeron.ml:451:6>>*/ (replace_seq, tbl, i);
       /*<<ephemeron.ml:451:6>>*/ return tbl;
      /*<<ephemeron.ml:452:9>>*/ }
      /*<<ephemeron.ml:442:2>>*/ return [0,
@@ -33664,7 +35416,9 @@
      if(! l)  /*<<ephemeron.ml:470:16>>*/ return 0;
      var h = l[1], t = l[2];
       /*<<ephemeron.ml:471:22>>*/ if(test_key(k, h)){
-      b[1] =  /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
+      b[1] =
+        /*<<ephemeron.ml:471:43>>*/ caml_call2
+         /*<<ephemeron.ml:471:43>>*/ (Stdlib_List[13], acc, t);
       return 0;
      }
      var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:472:27>>*/ [0, h, acc];
@@ -33676,7 +35430,7 @@
     var
      match =
         /*<<ephemeron.ml:477:12>>*/  /*<<ephemeron.ml:477:12>>*/ caml_call2
-        (Stdlib_List[40],
+         /*<<ephemeron.ml:477:12>>*/ (Stdlib_List[40],
          function(_P_){ /*<<?>>*/ return test_key(k, _P_);},
          b[1]);
     if(! match)  /*<<ephemeron.ml:479:16>>*/ return 0;
@@ -33692,40 +35446,40 @@
     /*<<ephemeron.ml:482:25>>*/ }
    function create$0(param){
      /*<<ephemeron.ml:491:35>>*/ return  /*<<ephemeron.ml:491:35>>*/ caml_call1
-            (Stdlib_Obj[23][1], 2);
+             /*<<ephemeron.ml:491:35>>*/ (Stdlib_Obj[23][1], 2);
     /*<<ephemeron.ml:491:50>>*/ }
    function get_key1(t){
     var
      x =
         /*<<ephemeron.ml:493:57>>*/  /*<<ephemeron.ml:493:57>>*/ caml_call2
-        (Stdlib_Obj[23][3], t, 0);
+         /*<<ephemeron.ml:493:57>>*/ (Stdlib_Obj[23][3], t, 0);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:493:77>>*/ }
    function set_key1(t, k){
      /*<<ephemeron.ml:495:4>>*/ return  /*<<ephemeron.ml:495:4>>*/ caml_call3
-            (Stdlib_Obj[23][5], t, 0, k);
+             /*<<ephemeron.ml:495:4>>*/ (Stdlib_Obj[23][5], t, 0, k);
     /*<<ephemeron.ml:495:35>>*/ }
    function get_key2(t){
     var
      x =
         /*<<ephemeron.ml:498:57>>*/  /*<<ephemeron.ml:498:57>>*/ caml_call2
-        (Stdlib_Obj[23][3], t, 1);
+         /*<<ephemeron.ml:498:57>>*/ (Stdlib_Obj[23][3], t, 1);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:498:77>>*/ }
    function set_key2(t, k){
      /*<<ephemeron.ml:500:4>>*/ return  /*<<ephemeron.ml:500:4>>*/ caml_call3
-            (Stdlib_Obj[23][5], t, 1, k);
+             /*<<ephemeron.ml:500:4>>*/ (Stdlib_Obj[23][5], t, 1, k);
     /*<<ephemeron.ml:500:35>>*/ }
    function get_data$0(t){
     var
      x =
         /*<<ephemeron.ml:503:56>>*/  /*<<ephemeron.ml:503:56>>*/ caml_call1
-        (Stdlib_Obj[23][9], t);
+         /*<<ephemeron.ml:503:56>>*/ (Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:503:75>>*/ }
    function set_data$0(t, d){
      /*<<ephemeron.ml:505:4>>*/ return  /*<<ephemeron.ml:505:4>>*/ caml_call2
-            (Stdlib_Obj[23][11], t, d);
+             /*<<ephemeron.ml:505:4>>*/ (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:505:34>>*/ }
    function make$1(key1, key2, data){
     var eph =  /*<<ephemeron.ml:509:14>>*/ create$0(0);
@@ -33761,11 +35515,11 @@
       k1 = param[1],
       _O_ =
          /*<<ephemeron.ml:539:33>>*/  /*<<ephemeron.ml:539:33>>*/ caml_call2
-         (H2[2], seed, k2)
+          /*<<ephemeron.ml:539:33>>*/ (H2[2], seed, k2)
         * 65599
         | 0;
       /*<<ephemeron.ml:539:8>>*/ return  /*<<ephemeron.ml:539:8>>*/ caml_call2
-             (H1[2], seed, k1)
+              /*<<ephemeron.ml:539:8>>*/ (H1[2], seed, k1)
             + _O_
             | 0;
     }
@@ -33778,8 +35532,11 @@
      if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
        /*<<ephemeron.ml:544:15>>*/ if
-       ( /*<<ephemeron.ml:544:15>>*/ caml_call2(H1[1], k1, k1$0)
-        &&  /*<<ephemeron.ml:544:34>>*/ caml_call2(H2[1], k2, k2$0))
+       ( /*<<ephemeron.ml:544:15>>*/ caml_call2
+          /*<<ephemeron.ml:544:15>>*/ (H1[1], k1, k1$0)
+        &&
+          /*<<ephemeron.ml:544:34>>*/ caml_call2
+           /*<<ephemeron.ml:544:34>>*/ (H2[1], k2, k2$0))
         /*<<ephemeron.ml:545:17>>*/ return 0;
        /*<<ephemeron.ml:545:41>>*/ return 1;
      }
@@ -33788,7 +35545,7 @@
     function set_key_data(c, param, d){
      var k2 = param[2], k1 = param[1];
       /*<<ephemeron.ml:506:45>>*/  /*<<ephemeron.ml:506:45>>*/ caml_call1
-      (Stdlib_Obj[23][12], c);
+       /*<<ephemeron.ml:506:45>>*/ (Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:549:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:549:23>>*/ set_key2(c, k2);
       /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d);
@@ -33797,10 +35554,10 @@
      var
       _N_ =
          /*<<ephemeron.ml:496:45>>*/  /*<<ephemeron.ml:496:45>>*/ caml_call2
-         (Stdlib_Obj[23][7], c, 0);
+          /*<<ephemeron.ml:496:45>>*/ (Stdlib_Obj[23][7], c, 0);
       /*<<ephemeron.ml:551:24>>*/ return _N_
              ?  /*<<ephemeron.ml:501:45>>*/ caml_call2
-               (Stdlib_Obj[23][7], c, 1)
+                /*<<ephemeron.ml:501:45>>*/ (Stdlib_Obj[23][7], c, 1)
              : _N_;
      /*<<ephemeron.ml:551:52>>*/ }
      /*<<ephemeron.ml:530:28>>*/ return MakeSeeded
@@ -33816,12 +35573,12 @@
     var equal = H2[1];
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:566:43>>*/ return  /*<<ephemeron.ml:566:43>>*/ caml_call1
-             (H2[2], x);
+              /*<<ephemeron.ml:566:43>>*/ (H2[2], x);
      /*<<ephemeron.ml:566:52>>*/ }
     var equal$0 = H1[1];
     function seeded_hash$0(seed, x){
       /*<<ephemeron.ml:561:43>>*/ return  /*<<ephemeron.ml:561:43>>*/ caml_call1
-             (H1[2], x);
+              /*<<ephemeron.ml:561:43>>*/ (H1[2], x);
      /*<<ephemeron.ml:561:52>>*/ }
     var
      include =
@@ -33845,15 +35602,15 @@
      stats_alive = include[18];
     function create(sz){
       /*<<ephemeron.ml:568:20>>*/ return  /*<<ephemeron.ml:568:20>>*/ caml_call2
-             (_M_, _b_, sz);
+              /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, sz);
      /*<<ephemeron.ml:568:43>>*/ }
     function of_seq(i){
      var
       tbl =
          /*<<ephemeron.ml:568:20>>*/  /*<<ephemeron.ml:568:20>>*/ caml_call2
-         (_M_, _b_, 16);
+          /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, 16);
       /*<<ephemeron.ml:571:6>>*/  /*<<ephemeron.ml:571:6>>*/ caml_call2
-      (replace_seq, tbl, i);
+       /*<<ephemeron.ml:571:6>>*/ (replace_seq, tbl, i);
       /*<<ephemeron.ml:571:6>>*/ return tbl;
      /*<<ephemeron.ml:572:9>>*/ }
      /*<<ephemeron.ml:556:2>>*/ return [0,
@@ -33900,7 +35657,9 @@
      if(! l)  /*<<ephemeron.ml:590:16>>*/ return 0;
      var h = l[1], t = l[2];
       /*<<ephemeron.ml:591:22>>*/ if(test_keys(k1, k2, h)){
-      b[1] =  /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
+      b[1] =
+        /*<<ephemeron.ml:591:48>>*/ caml_call2
+         /*<<ephemeron.ml:591:48>>*/ (Stdlib_List[13], acc, t);
       return 0;
      }
      var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:592:27>>*/ [0, h, acc];
@@ -33912,7 +35671,7 @@
     var
      match =
         /*<<ephemeron.ml:597:12>>*/  /*<<ephemeron.ml:597:12>>*/ caml_call2
-        (Stdlib_List[40],
+         /*<<ephemeron.ml:597:12>>*/ (Stdlib_List[40],
          function(_K_){ /*<<?>>*/ return test_keys(k1, k2, _K_);},
          b[1]);
     if(! match)  /*<<ephemeron.ml:599:16>>*/ return 0;
@@ -33928,33 +35687,33 @@
     /*<<ephemeron.ml:602:25>>*/ }
    function create$1(n){
      /*<<ephemeron.ml:611:29>>*/ return  /*<<ephemeron.ml:611:29>>*/ caml_call1
-            (Stdlib_Obj[23][1], n);
+             /*<<ephemeron.ml:611:29>>*/ (Stdlib_Obj[23][1], n);
     /*<<ephemeron.ml:611:44>>*/ }
    function length$1(k){
      /*<<ephemeron.ml:612:35>>*/ return  /*<<ephemeron.ml:612:35>>*/ caml_call1
-            (Stdlib_Obj[23][2], k);
+             /*<<ephemeron.ml:612:35>>*/ (Stdlib_Obj[23][2], k);
     /*<<ephemeron.ml:612:50>>*/ }
    function get_key$0(t, n){
     var
      x =
         /*<<ephemeron.ml:614:58>>*/  /*<<ephemeron.ml:614:58>>*/ caml_call2
-        (Stdlib_Obj[23][3], t, n);
+         /*<<ephemeron.ml:614:58>>*/ (Stdlib_Obj[23][3], t, n);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:614:78>>*/ }
    function set_key$0(t, n, k){
      /*<<ephemeron.ml:616:4>>*/ return  /*<<ephemeron.ml:616:4>>*/ caml_call3
-            (Stdlib_Obj[23][5], t, n, k);
+             /*<<ephemeron.ml:616:4>>*/ (Stdlib_Obj[23][5], t, n, k);
     /*<<ephemeron.ml:616:35>>*/ }
    function get_data$1(t){
     var
      x =
         /*<<ephemeron.ml:619:51>>*/  /*<<ephemeron.ml:619:51>>*/ caml_call1
-        (Stdlib_Obj[23][9], t);
+         /*<<ephemeron.ml:619:51>>*/ (Stdlib_Obj[23][9], t);
      /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:619:70>>*/ }
    function set_data$1(t, d){
      /*<<ephemeron.ml:620:45>>*/ return  /*<<ephemeron.ml:620:45>>*/ caml_call2
-            (Stdlib_Obj[23][11], t, d);
+             /*<<ephemeron.ml:620:45>>*/ (Stdlib_Obj[23][11], t, d);
     /*<<ephemeron.ml:620:75>>*/ }
    function make$3(keys, data){
     var l = keys.length - 1, eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
@@ -33977,7 +35736,7 @@
      /*<<ephemeron.ml:632:4>>*/ try{
      if(l !== keys.length - 1)
        /*<<ephemeron.ml:633:37>>*/ throw  /*<<ephemeron.ml:633:37>>*/ caml_maybe_attach_backtrace
-             (Stdlib[3], 1);
+              /*<<ephemeron.ml:633:37>>*/ (Stdlib[3], 1);
      var
       _D_ =  /*<<ephemeron.ml:631:12>>*/ l - 1 | 0,
       _C_ =  /*<<ephemeron.ml:634:6>>*/ 0;
@@ -33987,11 +35746,11 @@
        var match =  /*<<ephemeron.ml:635:14>>*/ get_key$0(eph, i);
        if(! match)
          /*<<ephemeron.ml:636:18>>*/ throw  /*<<ephemeron.ml:636:18>>*/ caml_maybe_attach_backtrace
-               (Stdlib[3], 1);
+                /*<<ephemeron.ml:636:18>>*/ (Stdlib[3], 1);
        var k = match[1];
        if(k !== caml_check_bound(keys, i)[1 + i])
          /*<<ephemeron.ml:638:20>>*/ throw  /*<<ephemeron.ml:638:20>>*/ caml_maybe_attach_backtrace
-               (Stdlib[3], 1);
+                /*<<ephemeron.ml:638:20>>*/ (Stdlib[3], 1);
        var _F_ =  /*<<ephemeron.ml:634:6>>*/ i + 1 | 0;
        if(_D_ === i) break;
        i = _F_;
@@ -34035,7 +35794,10 @@
         _v_ = h[1],
         _w_ =  /*<<ephemeron.ml:657:34>>*/ caml_check_bound(k, i)[1 + i];
        h[1] =
-        ( /*<<ephemeron.ml:657:15>>*/ caml_call2(H[2], seed, _w_) * 65599 | 0)
+        ( /*<<ephemeron.ml:657:15>>*/ caml_call2
+          /*<<ephemeron.ml:657:15>>*/ (H[2], seed, _w_)
+        * 65599
+        | 0)
         + _v_
         | 0;
        var _x_ =  /*<<ephemeron.ml:656:8>>*/ i + 1 | 0;
@@ -34057,7 +35819,9 @@
        ki = match[1],
        _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
        /*<<ephemeron.ml:671:21>>*/ if
-       (!  /*<<ephemeron.ml:671:21>>*/ caml_call2(H[1], _s_, ki))
+       (!
+         /*<<ephemeron.ml:671:21>>*/ caml_call2
+          /*<<ephemeron.ml:671:21>>*/ (H[1], _s_, ki))
         /*<<ephemeron.ml:673:23>>*/ return 1;
       var i$0 =  /*<<ephemeron.ml:672:23>>*/ i - 1 | 0;
       i = i$0;
@@ -34065,7 +35829,7 @@
      /*<<ephemeron.ml:675:33>>*/ }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:678:8>>*/  /*<<ephemeron.ml:621:40>>*/ caml_call1
-      (Stdlib_Obj[23][12], c);
+       /*<<ephemeron.ml:621:40>>*/ (Stdlib_Obj[23][12], c);
      var _q_ = k.length - 2 | 0, _p_ =  /*<<ephemeron.ml:678:8>>*/ 0;
      if(_q_ >= 0){
       var i = _p_;
@@ -34089,7 +35853,7 @@
        var
         _m_ =
            /*<<ephemeron.ml:617:47>>*/  /*<<ephemeron.ml:617:47>>*/ caml_call2
-           (Stdlib_Obj[23][7], c, i);
+            /*<<ephemeron.ml:617:47>>*/ (Stdlib_Obj[23][7], c, i);
         /*<<ephemeron.ml:685:20>>*/ if(_m_){
         var i$0 = i - 1 | 0;
         i = i$0;
@@ -34113,7 +35877,7 @@
     var equal = H[1];
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:694:41>>*/ return  /*<<ephemeron.ml:694:41>>*/ caml_call1
-             (H[2], x);
+              /*<<ephemeron.ml:694:41>>*/ (H[2], x);
      /*<<ephemeron.ml:694:49>>*/ }
     var
      include = MakeSeeded$2([0, equal, seeded_hash]),
@@ -34136,15 +35900,15 @@
      stats_alive = include[18];
     function create(sz){
       /*<<ephemeron.ml:696:20>>*/ return  /*<<ephemeron.ml:696:20>>*/ caml_call2
-             (_l_, _c_, sz);
+              /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, sz);
      /*<<ephemeron.ml:696:43>>*/ }
     function of_seq(i){
      var
       tbl =
          /*<<ephemeron.ml:696:20>>*/  /*<<ephemeron.ml:696:20>>*/ caml_call2
-         (_l_, _c_, 16);
+          /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, 16);
       /*<<ephemeron.ml:699:6>>*/  /*<<ephemeron.ml:699:6>>*/ caml_call2
-      (replace_seq, tbl, i);
+       /*<<ephemeron.ml:699:6>>*/ (replace_seq, tbl, i);
       /*<<ephemeron.ml:699:6>>*/ return tbl;
      /*<<ephemeron.ml:700:9>>*/ }
      /*<<ephemeron.ml:690:2>>*/ return [0,
@@ -34179,7 +35943,7 @@
      /*<<ephemeron.ml:711:6>>*/ try{
      if(length$1(e) !== k.length - 1)
        /*<<ephemeron.ml:712:43>>*/ throw  /*<<ephemeron.ml:712:43>>*/ caml_maybe_attach_backtrace
-             (Stdlib[3], 1);
+              /*<<ephemeron.ml:712:43>>*/ (Stdlib[3], 1);
      var _g_ = k.length - 2 | 0, _f_ =  /*<<ephemeron.ml:713:8>>*/ 0;
      if(_g_ >= 0){
       var i = _f_;
@@ -34195,7 +35959,7 @@
         }
        }
         /*<<ephemeron.ml:716:17>>*/ throw  /*<<ephemeron.ml:716:17>>*/ caml_maybe_attach_backtrace
-              (Stdlib[3], 1);
+               /*<<ephemeron.ml:716:17>>*/ (Stdlib[3], 1);
       }
      }
      var _h_ =  /*<<ephemeron.ml:718:8>>*/ 1;
@@ -34213,7 +35977,9 @@
      if(! l)  /*<<ephemeron.ml:724:16>>*/ return 0;
      var h = l[1], t = l[2];
       /*<<ephemeron.ml:725:22>>*/ if(test_keys$0(k, h)){
-      b[1] =  /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
+      b[1] =
+        /*<<ephemeron.ml:725:44>>*/ caml_call2
+         /*<<ephemeron.ml:725:44>>*/ (Stdlib_List[13], acc, t);
       return 0;
      }
      var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:726:27>>*/ [0, h, acc];
@@ -34225,7 +35991,7 @@
     var
      match =
         /*<<ephemeron.ml:731:12>>*/  /*<<ephemeron.ml:731:12>>*/ caml_call2
-        (Stdlib_List[40],
+         /*<<ephemeron.ml:731:12>>*/ (Stdlib_List[40],
          function(_d_){ /*<<?>>*/ return test_keys$0(k, _d_);},
          b[1]);
     if(! match)  /*<<ephemeron.ml:733:16>>*/ return 0;
@@ -34364,9 +36130,11 @@
      /*<<filename.ml:38:4>>*/ for(;;){
      if(0 > n)
        /*<<filename.ml:38:18>>*/ return  /*<<filename.ml:38:18>>*/ caml_call3
-              (Stdlib_String[16], name, 0, 1);
+               /*<<filename.ml:38:18>>*/ (Stdlib_String[16], name, 0, 1);
       /*<<filename.ml:39:12>>*/ if
-      (!  /*<<filename.ml:39:12>>*/ caml_call2(is_dir_sep, name, n))
+      (!
+        /*<<filename.ml:39:12>>*/ caml_call2
+         /*<<filename.ml:39:12>>*/ (is_dir_sep, name, n))
       break;
      var n$0 =  /*<<filename.ml:39:35>>*/ n - 1 | 0;
      n = n$0;
@@ -34375,11 +36143,15 @@
      /*<<filename.ml:42:4>>*/ for(;;){
      if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return  /*<<filename.ml:42:18>>*/ caml_call3
-              (Stdlib_String[16], name, 0, p);
+               /*<<filename.ml:42:18>>*/ (Stdlib_String[16], name, 0, p);
       /*<<filename.ml:43:12>>*/ if
-      ( /*<<filename.ml:43:12>>*/ caml_call2(is_dir_sep, name, n$1))
+      ( /*<<filename.ml:43:12>>*/ caml_call2
+         /*<<filename.ml:43:12>>*/ (is_dir_sep, name, n$1))
        /*<<filename.ml:37:2>>*/ return  /*<<filename.ml:37:2>>*/ caml_call3
-              (Stdlib_String[16], name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0);
+               /*<<filename.ml:37:2>>*/ (Stdlib_String[16],
+               name,
+               n$1 + 1 | 0,
+               (p - n$1 | 0) - 1 | 0);
      var n$2 = n$1 - 1 | 0;
      n$1 = n$2;
     }
@@ -34391,9 +36163,11 @@
      /*<<filename.ml:56:4>>*/ for(;;){
      if(0 > n)
        /*<<filename.ml:56:18>>*/ return  /*<<filename.ml:56:18>>*/ caml_call3
-              (Stdlib_String[16], name, 0, 1);
+               /*<<filename.ml:56:18>>*/ (Stdlib_String[16], name, 0, 1);
       /*<<filename.ml:57:12>>*/ if
-      (!  /*<<filename.ml:57:12>>*/ caml_call2(is_dir_sep, name, n))
+      (!
+        /*<<filename.ml:57:12>>*/ caml_call2
+         /*<<filename.ml:57:12>>*/ (is_dir_sep, name, n))
       break;
      var n$0 =  /*<<filename.ml:57:35>>*/ n - 1 | 0;
      n = n$0;
@@ -34402,7 +36176,8 @@
      /*<<filename.ml:60:4>>*/ for(;;){
      if(0 > n$1) return current_dir_name;
       /*<<filename.ml:61:12>>*/ if
-      ( /*<<filename.ml:61:12>>*/ caml_call2(is_dir_sep, name, n$1))
+      ( /*<<filename.ml:61:12>>*/ caml_call2
+         /*<<filename.ml:61:12>>*/ (is_dir_sep, name, n$1))
       break;
      var n$2 =  /*<<filename.ml:62:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
@@ -34411,18 +36186,25 @@
      /*<<filename.ml:64:4>>*/ for(;;){
      if(0 > n$3)
        /*<<filename.ml:64:18>>*/ return  /*<<filename.ml:64:18>>*/ caml_call3
-              (Stdlib_String[16], name, 0, 1);
+               /*<<filename.ml:64:18>>*/ (Stdlib_String[16], name, 0, 1);
       /*<<filename.ml:65:12>>*/ if
-      (!  /*<<filename.ml:65:12>>*/ caml_call2(is_dir_sep, name, n$3))
+      (!
+        /*<<filename.ml:65:12>>*/ caml_call2
+         /*<<filename.ml:65:12>>*/ (is_dir_sep, name, n$3))
        /*<<filename.ml:66:9>>*/ return  /*<<filename.ml:66:9>>*/ caml_call3
-              (Stdlib_String[16], name, 0, n$3 + 1 | 0);
+               /*<<filename.ml:66:9>>*/ (Stdlib_String[16],
+               name,
+               0,
+               n$3 + 1 | 0);
      var n$4 =  /*<<filename.ml:65:35>>*/ n$3 - 1 | 0;
      n$3 = n$4;
     }
     /*<<filename.ml:70:44>>*/ }
    function is_dir_sep(s, i){
      /*<<filename.ml:96:23>>*/ return 47
-            ===  /*<<filename.ml:96:23>>*/ caml_string_get(s, i)
+            ===
+              /*<<filename.ml:96:23>>*/ caml_string_get
+               /*<<filename.ml:96:23>>*/ (s, i)
             ? 1
             : 0;
     /*<<filename.ml:96:34>>*/ }
@@ -34431,7 +36213,13 @@
      _aH_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _aI_ =
        _aH_
-       || (47 !==  /*<<filename.ml:97:45>>*/ caml_string_get(n, 0) ? 1 : 0);
+       ||
+        (47
+          !==
+            /*<<filename.ml:97:45>>*/ caml_string_get
+             /*<<filename.ml:97:45>>*/ (n, 0)
+          ? 1
+          : 0);
     return _aI_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
@@ -34442,7 +36230,8 @@
       _aE_ =
         _aD_
         ||
-         ( /*<<filename.ml:100:31>>*/ caml_call3(Stdlib_String[16], n, 0, 2)
+         ( /*<<filename.ml:100:31>>*/ caml_call3
+             /*<<filename.ml:100:31>>*/ (Stdlib_String[16], n, 0, 2)
            !== cst$27
            ? 1
            : 0);
@@ -34452,7 +36241,8 @@
        _aG_ =
          _aF_
          ||
-          ( /*<<filename.ml:101:31>>*/ caml_call3(Stdlib_String[16], n, 0, 3)
+          ( /*<<filename.ml:101:31>>*/ caml_call3
+              /*<<filename.ml:101:31>>*/ (Stdlib_String[16], n, 0, 3)
             !== cst$28
             ? 1
             : 0);
@@ -34465,7 +36255,7 @@
     /*<<filename.ml:101:57>>*/ }
    function check_suffix(name, suff){
      /*<<filename.ml:103:4>>*/ return  /*<<filename.ml:103:4>>*/ caml_call2
-            (Stdlib_String[12], suff, name);
+             /*<<filename.ml:103:4>>*/ (Stdlib_String[12], suff, name);
     /*<<filename.ml:103:38>>*/ }
    function chop_suffix_opt(suffix, filename){
     var
@@ -34475,11 +36265,17 @@
     var
      r =
         /*<<filename.ml:108:14>>*/  /*<<filename.ml:108:14>>*/ caml_call3
-        (Stdlib_String[16], filename, len_f - len_s | 0, len_s);
+         /*<<filename.ml:108:14>>*/ (Stdlib_String[16],
+         filename,
+         len_f - len_s | 0,
+         len_s);
      /*<<filename.ml:109:9>>*/ return r === suffix
             ? [0,
                /*<<filename.ml:110:13>>*/ caml_call3
-               (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
+                /*<<filename.ml:110:13>>*/ (Stdlib_String[16],
+                filename,
+                0,
+                len_f - len_s | 0)]
             : 0;
     /*<<filename.ml:114:10>>*/ }
    var
@@ -34501,7 +36297,7 @@
     var
      _j_ =
         /*<<filename.ml:117:8>>*/  /*<<filename.ml:117:8>>*/ caml_sys_getenv
-        ("TMPDIR"),
+         /*<<filename.ml:117:8>>*/ ("TMPDIR"),
      temp_dir_name = _j_;
    }
    catch(_aB_){
@@ -34514,24 +36310,27 @@
      l = caml_ml_string_length(s),
      b =
         /*<<filename.ml:18:10>>*/  /*<<filename.ml:18:10>>*/ caml_call1
-        (Stdlib_Buffer[1], l + 20 | 0);
+         /*<<filename.ml:18:10>>*/ (Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:19:2>>*/  /*<<filename.ml:19:2>>*/ caml_call2
-     (Stdlib_Buffer[12], b, 39);
+      /*<<filename.ml:19:2>>*/ (Stdlib_Buffer[12], b, 39);
     var _ay_ = l - 1 | 0, _ax_ =  /*<<filename.ml:19:2>>*/ 0;
     if(_ay_ >= 0){
      var i = _ax_;
      for(;;){
        /*<<filename.ml:21:7>>*/ if
-       (39 ===  /*<<filename.ml:21:7>>*/ caml_string_get(s, i))
+       (39
+        ===
+          /*<<filename.ml:21:7>>*/ caml_string_get
+           /*<<filename.ml:21:7>>*/ (s, i))
         /*<<filename.ml:22:9>>*/  /*<<filename.ml:22:9>>*/ caml_call2
-        (Stdlib_Buffer[16], b, quotequote);
+         /*<<filename.ml:22:9>>*/ (Stdlib_Buffer[16], b, quotequote);
       else{
        var
         _aA_ =
            /*<<filename.ml:23:28>>*/  /*<<filename.ml:23:28>>*/ caml_string_get
-           (s, i);
+            /*<<filename.ml:23:28>>*/ (s, i);
         /*<<filename.ml:23:9>>*/  /*<<filename.ml:23:9>>*/ caml_call2
-        (Stdlib_Buffer[12], b, _aA_);
+         /*<<filename.ml:23:9>>*/ (Stdlib_Buffer[12], b, _aA_);
       }
       var _az_ =  /*<<filename.ml:23:9>>*/ i + 1 | 0;
       if(_ay_ === i) break;
@@ -34539,20 +36338,23 @@
      }
     }
      /*<<filename.ml:25:2>>*/  /*<<filename.ml:25:2>>*/ caml_call2
-     (Stdlib_Buffer[12], b, 39);
+      /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[12], b, 39);
      /*<<filename.ml:25:2>>*/ return  /*<<filename.ml:25:2>>*/ caml_call1
-            (Stdlib_Buffer[2], b);
+             /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[2], b);
    }
    function quote_command(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:120:4>>*/ if(stderr){
      var f = stderr[1];
       /*<<filename.ml:123:51>>*/ if
-      ( /*<<filename.ml:123:51>>*/ caml_equal(stderr, stdout))
+      ( /*<<filename.ml:123:51>>*/ caml_equal
+         /*<<filename.ml:123:51>>*/ (stderr, stdout))
       var _am_ = cst_2_1;
      else
       var
        _aw_ =  /*<<filename.ml:125:61>>*/ quote(f),
-       _am_ =  /*<<filename.ml:125:53>>*/ caml_call2(Stdlib[28], cst_2, _aw_);
+       _am_ =
+          /*<<filename.ml:125:53>>*/ caml_call2
+           /*<<filename.ml:125:53>>*/ (Stdlib[28], cst_2, _aw_);
      var _an_ = _am_;
     }
     else
@@ -34561,32 +36363,36 @@
      var
       f$0 = stdout[1],
       _ao_ =  /*<<filename.ml:122:55>>*/ quote(f$0),
-      _ap_ =  /*<<filename.ml:122:48>>*/ caml_call2(Stdlib[28], cst, _ao_);
+      _ap_ =
+         /*<<filename.ml:122:48>>*/ caml_call2
+          /*<<filename.ml:122:48>>*/ (Stdlib[28], cst, _ao_);
     else
      var _ap_ = cst$3;
     var
      _aq_ =
         /*<<filename.ml:122:6>>*/  /*<<filename.ml:122:6>>*/ caml_call2
-        (Stdlib[28], _ap_, _an_);
+         /*<<filename.ml:122:6>>*/ (Stdlib[28], _ap_, _an_);
     if(stdin)
      var
       f$1 = stdin[1],
       _ar_ =  /*<<filename.ml:121:55>>*/ quote(f$1),
-      _as_ =  /*<<filename.ml:121:48>>*/ caml_call2(Stdlib[28], cst$0, _ar_);
+      _as_ =
+         /*<<filename.ml:121:48>>*/ caml_call2
+          /*<<filename.ml:121:48>>*/ (Stdlib[28], cst$0, _ar_);
     else
      var _as_ = cst$2;
     var
      _at_ =
         /*<<filename.ml:121:6>>*/  /*<<filename.ml:121:6>>*/ caml_call2
-        (Stdlib[28], _as_, _aq_),
+         /*<<filename.ml:121:6>>*/ (Stdlib[28], _as_, _aq_),
      _au_ =
         /*<<filename.ml:120:22>>*/  /*<<filename.ml:120:22>>*/ caml_call2
-        (Stdlib_List[20], quote, [0, cmd, args]),
+         /*<<filename.ml:120:22>>*/ (Stdlib_List[20], quote, [0, cmd, args]),
      _av_ =
         /*<<filename.ml:120:4>>*/  /*<<filename.ml:120:4>>*/ caml_call2
-        (Stdlib_String[7], cst$1, _au_);
+         /*<<filename.ml:120:4>>*/ (Stdlib_String[7], cst$1, _au_);
      /*<<filename.ml:121:6>>*/ return  /*<<filename.ml:121:6>>*/ caml_call2
-            (Stdlib[28], _av_, _at_);
+             /*<<filename.ml:121:6>>*/ (Stdlib[28], _av_, _at_);
     /*<<filename.ml:125:69>>*/ }
    function basename(_al_){
      /*<<?>>*/ return generic_basename(is_dir_sep, current_dir_name, _al_);
@@ -34615,7 +36421,7 @@
     var
      c =
         /*<<filename.ml:135:31>>*/  /*<<filename.ml:135:31>>*/ caml_string_get
-        (s, i),
+         /*<<filename.ml:135:31>>*/ (s, i),
      _ah_ = 47 === c ? 1 : 0;
     if(_ah_)
      var _ai_ = _ah_;
@@ -34628,19 +36434,37 @@
      _ab_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _ac_ =
        _ab_
-       || (47 !==  /*<<filename.ml:137:28>>*/ caml_string_get(n, 0) ? 1 : 0);
+       ||
+        (47
+          !==
+            /*<<filename.ml:137:28>>*/ caml_string_get
+             /*<<filename.ml:137:28>>*/ (n, 0)
+          ? 1
+          : 0);
     if(_ac_){
      var
       _ad_ = caml_ml_string_length(n) < 1 ? 1 : 0,
       _ae_ =
         _ad_
-        || (92 !==  /*<<filename.ml:138:31>>*/ caml_string_get(n, 0) ? 1 : 0);
+        ||
+         (92
+           !==
+             /*<<filename.ml:138:31>>*/ caml_string_get
+              /*<<filename.ml:138:31>>*/ (n, 0)
+           ? 1
+           : 0);
      if(_ae_)
       var
        _af_ = caml_ml_string_length(n) < 2 ? 1 : 0,
        _ag_ =
          _af_
-         || (58 !==  /*<<filename.ml:139:31>>*/ caml_string_get(n, 1) ? 1 : 0);
+         ||
+          (58
+            !==
+              /*<<filename.ml:139:31>>*/ caml_string_get
+               /*<<filename.ml:139:31>>*/ (n, 1)
+            ? 1
+            : 0);
      else
       var _ag_ = _ae_;
     }
@@ -34656,7 +36480,8 @@
       _W_ =
         _V_
         ||
-         ( /*<<filename.ml:142:31>>*/ caml_call3(Stdlib_String[16], n, 0, 2)
+         ( /*<<filename.ml:142:31>>*/ caml_call3
+             /*<<filename.ml:142:31>>*/ (Stdlib_String[16], n, 0, 2)
            !== cst$27
            ? 1
            : 0);
@@ -34666,7 +36491,8 @@
        _Y_ =
          _X_
          ||
-          ( /*<<filename.ml:143:31>>*/ caml_call3(Stdlib_String[16], n, 0, 2)
+          ( /*<<filename.ml:143:31>>*/ caml_call3
+              /*<<filename.ml:143:31>>*/ (Stdlib_String[16], n, 0, 2)
             !== ".\\"
             ? 1
             : 0);
@@ -34676,7 +36502,8 @@
         ___ =
           _Z_
           ||
-           ( /*<<filename.ml:144:31>>*/ caml_call3(Stdlib_String[16], n, 0, 3)
+           ( /*<<filename.ml:144:31>>*/ caml_call3
+               /*<<filename.ml:144:31>>*/ (Stdlib_String[16], n, 0, 3)
              !== cst$28
              ? 1
              : 0);
@@ -34687,7 +36514,7 @@
            _$_
            ||
             ( /*<<filename.ml:145:31>>*/ caml_call3
-               (Stdlib_String[16], n, 0, 3)
+                /*<<filename.ml:145:31>>*/ (Stdlib_String[16], n, 0, 3)
               !== "..\\"
               ? 1
               : 0);
@@ -34711,15 +36538,17 @@
      var
       s =
          /*<<filename.ml:148:12>>*/  /*<<filename.ml:148:12>>*/ caml_call3
-         (Stdlib_String[16],
+          /*<<filename.ml:148:12>>*/ (Stdlib_String[16],
           name,
           caml_ml_string_length(name) - caml_ml_string_length(suff) | 0,
           caml_ml_string_length(suff)),
       _S_ =
          /*<<filename.ml:150:31>>*/  /*<<filename.ml:150:31>>*/ caml_call1
-         (Stdlib_String[27], suff),
+          /*<<filename.ml:150:31>>*/ (Stdlib_String[27], suff),
       _T_ =
-         /*<<filename.ml:150:4>>*/ caml_call1(Stdlib_String[27], s) === _S_
+         /*<<filename.ml:150:4>>*/ caml_call1
+           /*<<filename.ml:150:4>>*/ (Stdlib_String[27], s)
+         === _S_
          ? 1
          : 0;
     else
@@ -34734,23 +36563,29 @@
     var
      r =
         /*<<filename.ml:155:14>>*/  /*<<filename.ml:155:14>>*/ caml_call3
-        (Stdlib_String[16], filename, len_f - len_s | 0, len_s),
+         /*<<filename.ml:155:14>>*/ (Stdlib_String[16],
+         filename,
+         len_f - len_s | 0,
+         len_s),
      _Q_ =
         /*<<filename.ml:156:36>>*/  /*<<filename.ml:156:36>>*/ caml_call1
-        (Stdlib_String[27], suffix);
+         /*<<filename.ml:156:36>>*/ (Stdlib_String[27], suffix);
      /*<<filename.ml:156:9>>*/ return  /*<<filename.ml:156:9>>*/ caml_call1
-             (Stdlib_String[27], r)
+              /*<<filename.ml:156:9>>*/ (Stdlib_String[27], r)
             === _Q_
             ? [0,
                /*<<filename.ml:157:13>>*/ caml_call3
-               (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
+                /*<<filename.ml:157:13>>*/ (Stdlib_String[16],
+                filename,
+                0,
+                len_f - len_s | 0)]
             : 0;
     /*<<filename.ml:161:10>>*/ }
    try{
     var
      _i_ =
         /*<<filename.ml:165:8>>*/  /*<<filename.ml:165:8>>*/ caml_sys_getenv
-        ("TEMP"),
+         /*<<filename.ml:165:8>>*/ ("TEMP"),
      temp_dir_name$0 = _i_;
    }
    catch(_P_){
@@ -34763,24 +36598,24 @@
      l = caml_ml_string_length(s),
      b =
         /*<<filename.ml:168:12>>*/  /*<<filename.ml:168:12>>*/ caml_call1
-        (Stdlib_Buffer[1], l + 20 | 0);
+         /*<<filename.ml:168:12>>*/ (Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:169:4>>*/  /*<<filename.ml:169:4>>*/ caml_call2
-     (Stdlib_Buffer[12], b, 34);
+      /*<<filename.ml:169:4>>*/ (Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
      var i$0 = i;
       /*<<filename.ml:171:6>>*/ for(;;){
       if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return  /*<<filename.ml:171:20>>*/ caml_call2
-               (Stdlib_Buffer[12], b, 34);
+                /*<<filename.ml:171:20>>*/ (Stdlib_Buffer[12], b, 34);
       var
        c =
           /*<<filename.ml:172:12>>*/  /*<<filename.ml:172:12>>*/ caml_string_get
-          (s, i$0);
+           /*<<filename.ml:172:12>>*/ (s, i$0);
       if(34 === c){
        var _N_ = 0;
         /*<<filename.ml:173:16>>*/ if(counter >= 50)
          /*<<filename.ml:173:16>>*/ return  /*<<filename.ml:173:16>>*/ caml_trampoline_return
-                (loop_bs, [0, _N_, i$0]);
+                 /*<<filename.ml:173:16>>*/ (loop_bs, [0, _N_, i$0]);
        var counter$1 = counter + 1 | 0;
         /*<<filename.ml:173:16>>*/ return loop_bs(counter$1, _N_, i$0);
       }
@@ -34788,12 +36623,12 @@
        var _O_ = 0;
         /*<<filename.ml:174:16>>*/ if(counter >= 50)
          /*<<filename.ml:174:16>>*/ return  /*<<filename.ml:174:16>>*/ caml_trampoline_return
-                (loop_bs, [0, _O_, i$0]);
+                 /*<<filename.ml:174:16>>*/ (loop_bs, [0, _O_, i$0]);
        var counter$0 = counter + 1 | 0;
         /*<<filename.ml:174:16>>*/ return loop_bs(counter$0, _O_, i$0);
       }
        /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ caml_call2
-       (Stdlib_Buffer[12], b, c);
+        /*<<filename.ml:175:16>>*/ (Stdlib_Buffer[12], b, c);
       var i$1 =  /*<<filename.ml:175:16>>*/ i$0 + 1 | 0;
       i$0 = i$1;
      }
@@ -34804,21 +36639,21 @@
       /*<<filename.ml:177:6>>*/ for(;;){
       if(i$0 === l){
         /*<<filename.ml:178:8>>*/  /*<<filename.ml:178:8>>*/ caml_call2
-        (Stdlib_Buffer[12], b, 34);
+         /*<<filename.ml:178:8>>*/ (Stdlib_Buffer[12], b, 34);
         /*<<filename.ml:178:8>>*/ return add_bs(n$0);
       }
       var
        match =
           /*<<filename.ml:181:14>>*/  /*<<filename.ml:181:14>>*/ caml_string_get
-          (s, i$0);
+           /*<<filename.ml:181:14>>*/ (s, i$0);
       if(34 === match){
         /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
         /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ caml_call2
-        (Stdlib_Buffer[12], b, 34);
+         /*<<filename.ml:182:34>>*/ (Stdlib_Buffer[12], b, 34);
        var _M_ =  /*<<filename.ml:182:34>>*/ i$0 + 1 | 0;
         /*<<filename.ml:182:34>>*/ if(counter >= 50)
          /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ caml_trampoline_return
-                (loop$0, [0, _M_]);
+                 /*<<filename.ml:182:34>>*/ (loop$0, [0, _M_]);
        var counter$1 = counter + 1 | 0;
         /*<<filename.ml:182:34>>*/ return loop$0(counter$1, _M_);
       }
@@ -34826,7 +36661,7 @@
         /*<<filename.ml:184:18>>*/ add_bs(n$0);
         /*<<filename.ml:184:18>>*/ if(counter >= 50)
          /*<<filename.ml:184:18>>*/ return  /*<<filename.ml:184:18>>*/ caml_trampoline_return
-                (loop$0, [0, i$0]);
+                 /*<<filename.ml:184:18>>*/ (loop$0, [0, i$0]);
        var counter$0 = counter + 1 | 0;
         /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0);
       }
@@ -34841,7 +36676,7 @@
       var j = _K_;
       for(;;){
         /*<<filename.ml:186:38>>*/  /*<<filename.ml:186:38>>*/ caml_call2
-        (Stdlib_Buffer[12], b, 92);
+         /*<<filename.ml:186:38>>*/ (Stdlib_Buffer[12], b, 92);
        var _L_ =  /*<<filename.ml:186:38>>*/ j + 1 | 0;
        if(n === j) break;
        j = _L_;
@@ -34850,13 +36685,13 @@
      /*<<filename.ml:186:66>>*/ }
      /*<<filename.ml:188:4>>*/ loop(0);
      /*<<filename.ml:188:4>>*/ return  /*<<filename.ml:188:4>>*/ caml_call1
-            (Stdlib_Buffer[2], b);
+             /*<<filename.ml:188:4>>*/ (Stdlib_Buffer[2], b);
     /*<<filename.ml:189:21>>*/ }
    function quote_cmd_filename(f){
      /*<<filename.ml:222:4>>*/ if
      (!
        /*<<filename.ml:222:7>>*/ caml_call2
-       (Stdlib_String[23],
+        /*<<filename.ml:222:7>>*/ (Stdlib_String[23],
         function(param){
           /*<<filename.ml:222:21>>*/ if(34 !== param && 37 !== param)
            /*<<filename.ml:222:57>>*/ return 0;
@@ -34864,27 +36699,34 @@
          /*<<filename.ml:222:63>>*/ },
         f))
       /*<<filename.ml:224:12>>*/ return  /*<<filename.ml:224:12>>*/ caml_call2
-              (Stdlib_String[15], f, 32)
+               /*<<filename.ml:224:12>>*/ (Stdlib_String[15], f, 32)
              ?  /*<<filename.ml:225:23>>*/ caml_call2
-               (Stdlib_String[7], cst$7, [0, cst$6, [0, f, _c_]])
+                /*<<filename.ml:225:23>>*/ (Stdlib_String[7],
+                cst$7,
+                [0, cst$6, [0, f, _c_]])
              : f;
     var
      _J_ =
         /*<<filename.ml:223:15>>*/  /*<<filename.ml:223:15>>*/ caml_call2
-        (Stdlib[28], cst_Filename_quote_command_bad, f);
+         /*<<filename.ml:223:15>>*/ (Stdlib[28],
+         cst_Filename_quote_command_bad,
+         f);
      /*<<filename.ml:223:15>>*/ return  /*<<filename.ml:223:15>>*/ caml_call1
-            (Stdlib[2], _J_);
+             /*<<filename.ml:223:15>>*/ (Stdlib[2], _J_);
     /*<<filename.ml:227:7>>*/ }
    function quote_command$0(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:232:4>>*/ if(stderr){
      var f = stderr[1];
       /*<<filename.ml:240:43>>*/ if
-      ( /*<<filename.ml:240:43>>*/ caml_equal(stderr, stdout))
+      ( /*<<filename.ml:240:43>>*/ caml_equal
+         /*<<filename.ml:240:43>>*/ (stderr, stdout))
       var _w_ = cst_2_1$0;
      else
       var
        _H_ =  /*<<filename.ml:242:53>>*/ quote_cmd_filename(f),
-       _w_ =  /*<<filename.ml:242:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
+       _w_ =
+          /*<<filename.ml:242:45>>*/ caml_call2
+           /*<<filename.ml:242:45>>*/ (Stdlib[28], cst_2$0, _H_);
      var _x_ = _w_;
     }
     else
@@ -34894,7 +36736,9 @@
      var
       f$0 = stdout[1],
       _z_ =  /*<<filename.ml:238:55>>*/ quote_cmd_filename(f$0),
-      _A_ =  /*<<filename.ml:238:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
+      _A_ =
+         /*<<filename.ml:238:48>>*/ caml_call2
+          /*<<filename.ml:238:48>>*/ (Stdlib[28], cst$8, _z_);
     else
      var _A_ = cst$15;
     var _B_ = [0, _A_, _y_];
@@ -34902,21 +36746,24 @@
      var
       f$1 = stdin[1],
       _C_ =  /*<<filename.ml:237:55>>*/ quote_cmd_filename(f$1),
-      _D_ =  /*<<filename.ml:237:48>>*/ caml_call2(Stdlib[28], cst$9, _C_);
+      _D_ =
+         /*<<filename.ml:237:48>>*/ caml_call2
+          /*<<filename.ml:237:48>>*/ (Stdlib[28], cst$9, _C_);
     else
      var _D_ = cst$14;
     var
      _E_ =
         /*<<filename.ml:236:35>>*/  /*<<filename.ml:236:35>>*/ caml_call2
-        (Stdlib_List[20], quote$0, args),
+         /*<<filename.ml:236:35>>*/ (Stdlib_List[20], quote$0, args),
      s =
         /*<<filename.ml:236:16>>*/  /*<<filename.ml:236:16>>*/ caml_call2
-        (Stdlib_String[7], cst$10, _E_),
+         /*<<filename.ml:236:16>>*/ (Stdlib_String[7], cst$10, _E_),
      b =
         /*<<filename.ml:211:12>>*/  /*<<filename.ml:211:12>>*/ caml_call1
-        (Stdlib_Buffer[1], caml_ml_string_length(s) + 20 | 0);
+         /*<<filename.ml:211:12>>*/ (Stdlib_Buffer[1],
+         caml_ml_string_length(s) + 20 | 0);
      /*<<filename.ml:212:4>>*/  /*<<filename.ml:212:4>>*/ caml_call2
-     (Stdlib_String[30],
+      /*<<filename.ml:212:4>>*/ (Stdlib_String[30],
       function(c){
        a:
        {
@@ -34937,12 +36784,12 @@
           }
          }
          /*<<filename.ml:216:12>>*/  /*<<filename.ml:216:12>>*/ caml_call2
-         (Stdlib_Buffer[12], b, 94);
+          /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, 94);
          /*<<filename.ml:216:12>>*/ return  /*<<filename.ml:216:12>>*/ caml_call2
-                (Stdlib_Buffer[12], b, c);
+                 /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, c);
        }
         /*<<filename.ml:218:12>>*/ return  /*<<filename.ml:218:12>>*/ caml_call2
-               (Stdlib_Buffer[12], b, c);
+                /*<<filename.ml:218:12>>*/ (Stdlib_Buffer[12], b, c);
        /*<<filename.ml:218:31>>*/ },
       s);
     var
@@ -34950,23 +36797,30 @@
        [0,
         cst$11,
         [0,
-          /*<<filename.ml:212:4>>*/ caml_call1(Stdlib_Buffer[2], b),
+          /*<<filename.ml:212:4>>*/ caml_call1
+           /*<<filename.ml:212:4>>*/ (Stdlib_Buffer[2], b),
          [0, _D_, _B_]]],
      _G_ =
         /*<<filename.ml:232:21>>*/ [0,
         cst$12,
         [0, quote_cmd_filename(cmd), _F_]];
      /*<<filename.ml:232:21>>*/ return  /*<<filename.ml:232:21>>*/ caml_call2
-            (Stdlib_String[7], cst$13, _G_);
+             /*<<filename.ml:232:21>>*/ (Stdlib_String[7], cst$13, _G_);
     /*<<filename.ml:244:5>>*/ }
    function drive_and_path(s){
     var
-     _s_ = 2 <=  /*<<filename.ml:250:4>>*/ caml_ml_string_length(s) ? 1 : 0;
+     _s_ =
+       2
+        <=
+          /*<<filename.ml:250:4>>*/ caml_ml_string_length
+           /*<<filename.ml:250:4>>*/ (s)
+        ? 1
+        : 0;
     if(_s_){
      var
       param =
          /*<<filename.ml:250:38>>*/  /*<<filename.ml:250:38>>*/ caml_string_get
-         (s, 0);
+          /*<<filename.ml:250:38>>*/ (s, 0);
      a:
      {
       b:
@@ -34983,7 +36837,12 @@
      var
       _u_ =
          /*<<filename.ml:250:28>>*/ _t_
-         ? 58 ===  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1) ? 1 : 0
+         ? 58
+           ===
+             /*<<filename.ml:250:47>>*/ caml_string_get
+              /*<<filename.ml:250:47>>*/ (s, 1)
+           ? 1
+           : 0
          : _t_;
     }
     else
@@ -34993,9 +36852,13 @@
     var
      _v_ =
         /*<<filename.ml:253:28>>*/  /*<<filename.ml:253:28>>*/ caml_call3
-        (Stdlib_String[16], s, 2, caml_ml_string_length(s) - 2 | 0);
+         /*<<filename.ml:253:28>>*/ (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:253:10>>*/ caml_call3
+              /*<<filename.ml:253:10>>*/ (Stdlib_String[16], s, 0, 2),
             _v_];
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
@@ -35007,7 +36870,7 @@
         /*<<filename.ml:257:14>>*/ generic_dirname
         (is_dir_sep$0, current_dir_name$0, path);
      /*<<filename.ml:258:4>>*/ return  /*<<filename.ml:258:4>>*/ caml_call2
-            (Stdlib[28], drive, dir);
+             /*<<filename.ml:258:4>>*/ (Stdlib[28], drive, dir);
     /*<<filename.ml:258:15>>*/ }
    function basename$0(s){
     var path = drive_and_path(s)[2];
@@ -35077,12 +36940,12 @@
      var
       _p_ =
          /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ caml_call2
-         (Stdlib[28], dir_sep$2, filename);
+          /*<<filename.ml:293:17>>*/ (Stdlib[28], dir_sep$2, filename);
       /*<<filename.ml:293:17>>*/ return  /*<<filename.ml:293:17>>*/ caml_call2
-             (Stdlib[28], dirname, _p_);
+              /*<<filename.ml:293:17>>*/ (Stdlib[28], dirname, _p_);
     }
      /*<<filename.ml:292:7>>*/ return  /*<<filename.ml:292:7>>*/ caml_call2
-            (Stdlib[28], dirname, filename);
+             /*<<filename.ml:292:7>>*/ (Stdlib[28], dirname, filename);
     /*<<filename.ml:293:35>>*/ }
    function chop_suffix(name, suff){
      /*<<filename.ml:296:2>>*/ return check_suffix$1(name, suff)
@@ -35092,14 +36955,17 @@
                0,
                caml_ml_string_length(name) - caml_ml_string_length(suff) | 0)
             :  /*<<filename.ml:298:7>>*/ caml_call1
-              (Stdlib[1], cst_Filename_chop_suffix);
+               /*<<filename.ml:298:7>>*/ (Stdlib[1], cst_Filename_chop_suffix);
     /*<<filename.ml:298:41>>*/ }
    function extension_len(name){
     var i$3 = caml_ml_string_length(name) - 1 | 0, i0 = i$3;
      /*<<filename.ml:307:4>>*/ for(;;){
      if(0 <= i0 && ! is_dir_sep$1(name, i0)){
        /*<<filename.ml:308:12>>*/ if
-       (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
+       (46
+        ===
+          /*<<filename.ml:308:12>>*/ caml_string_get
+           /*<<filename.ml:308:12>>*/ (name, i0))
        break;
       var i$2 =  /*<<filename.ml:309:9>>*/ i0 - 1 | 0;
       i0 = i$2;
@@ -35111,7 +36977,10 @@
      /*<<filename.ml:302:4>>*/ for(;;){
      if(0 <= i && ! is_dir_sep$1(name, i)){
        /*<<filename.ml:303:12>>*/ if
-       (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
+       (46
+        !==
+          /*<<filename.ml:303:12>>*/ caml_string_get
+           /*<<filename.ml:303:12>>*/ (name, i))
        return caml_ml_string_length(name) - i0 | 0;
       var i$0 =  /*<<filename.ml:303:32>>*/ i - 1 | 0;
       i = i$0;
@@ -35125,7 +36994,7 @@
      /*<<filename.ml:315:2>>*/ return 0 === l
             ? cst$18
             :  /*<<filename.ml:315:24>>*/ caml_call3
-              (Stdlib_String[16],
+               /*<<filename.ml:315:24>>*/ (Stdlib_String[16],
                name,
                caml_ml_string_length(name) - l | 0,
                l);
@@ -35134,7 +37003,8 @@
     var l =  /*<<filename.ml:318:10>>*/ extension_len(name);
      /*<<filename.ml:319:2>>*/ return 0 === l
             ?  /*<<filename.ml:319:16>>*/ caml_call1
-              (Stdlib[1], cst_Filename_chop_extension)
+               /*<<filename.ml:319:16>>*/ (Stdlib[1],
+               cst_Filename_chop_extension)
             : caml_call3
               (Stdlib_String[16],
                name,
@@ -35154,32 +37024,40 @@
    var
     prng_key =
        /*<<filename.ml:330:2>>*/  /*<<filename.ml:330:2>>*/ caml_call2
-       (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
+        /*<<filename.ml:330:2>>*/ (Stdlib_Domain[10][1],
+        0,
+        Stdlib_Random[19][2]);
    function temp_file_name(temp_dir, prefix, suffix){
     var
      random_state =
         /*<<filename.ml:333:21>>*/  /*<<filename.ml:333:21>>*/ caml_call1
-        (Stdlib_Domain[10][2], prng_key),
+         /*<<filename.ml:333:21>>*/ (Stdlib_Domain[10][2], prng_key),
      rnd =
         /*<<filename.ml:334:12>>*/  /*<<filename.ml:334:12>>*/ caml_call1
-        (Stdlib_Random[19][4], random_state)
+         /*<<filename.ml:334:12>>*/ (Stdlib_Random[19][4], random_state)
        & 16777215;
      /*<<filename.ml:335:18>>*/ return concat
             (temp_dir,
               /*<<filename.ml:335:18>>*/ caml_call4
-              (Stdlib_Printf[4], _f_, prefix, rnd, suffix));
+               /*<<filename.ml:335:18>>*/ (Stdlib_Printf[4],
+               _f_,
+               prefix,
+               rnd,
+               suffix));
     /*<<filename.ml:335:63>>*/ }
    var
     current_temp_dir_name =
        /*<<filename.ml:338:2>>*/  /*<<filename.ml:338:2>>*/ caml_call2
-       (Stdlib_Domain[10][1],
+        /*<<filename.ml:338:2>>*/ (Stdlib_Domain[10][1],
         [0, function(_o_){ /*<<?>>*/ return _o_;}],
         function(param){
           /*<<filename.ml:338:58>>*/ return temp_dir_name$1;
          /*<<filename.ml:338: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:26>>*/ (Stdlib_Domain[10][3],
+             current_temp_dir_name,
+             s);
     /*<<filename.ml:340:64>>*/ }
    function get_temp_dir_name(param){
      /*<<filename.ml:341:27>>*/ return caml_call1
@@ -35191,7 +37069,8 @@
        opt
         ? opt[1]
         :  /*<<filename.ml:343:27>>*/ caml_call1
-          (Stdlib_Domain[10][2], current_temp_dir_name),
+           /*<<filename.ml:343:27>>*/ (Stdlib_Domain[10][2],
+           current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:345:4>>*/ for(;;){
      var
@@ -35199,7 +37078,8 @@
          /*<<filename.ml:345:15>>*/ 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>>*/ ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open
+          /*<<filename.ml:347:16>>*/ (name, _g_, 384));
        /*<<filename.ml:347:6>>*/ return name;
      }
      catch(e$0){
@@ -35207,7 +37087,7 @@
       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
-              (e, 0);
+               /*<<filename.ml:350:28>>*/ (e, 0);
       var counter$0 =  /*<<filename.ml:350:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
@@ -35221,7 +37101,8 @@
        opt
         ? opt[1]
         :  /*<<filename.ml:354:17>>*/ caml_call1
-          (Stdlib_Domain[10][2], current_temp_dir_name),
+           /*<<filename.ml:354:17>>*/ (Stdlib_Domain[10][2],
+           current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:357:4>>*/ for(;;){
      var
@@ -35233,7 +37114,10 @@
           /*<<filename.ml:359:6>>*/ [0,
           name,
            /*<<filename.ml:360:7>>*/ caml_call3
-           (Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
+            /*<<filename.ml:360:7>>*/ (Stdlib[62],
+            [0, 1, [0, 3, [0, 5, mode]]],
+            perms,
+            name)];
        /*<<filename.ml:359:6>>*/ return _n_;
      }
      catch(e$0){
@@ -35241,7 +37125,7 @@
       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
-              (e, 0);
+               /*<<filename.ml:362:28>>*/ (e, 0);
       var counter$0 =  /*<<filename.ml:362:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
@@ -35253,7 +37137,8 @@
        _k_
         ? _k_[1]
         :  /*<<filename.ml:365:26>>*/ caml_call1
-          (Stdlib_Domain[10][2], current_temp_dir_name),
+           /*<<filename.ml:365:26>>*/ (Stdlib_Domain[10][2],
+           current_temp_dir_name),
      perms = opt ? opt[1] : 448,
      counter = 0;
      /*<<filename.ml:368:4>>*/ for(;;){
@@ -35262,7 +37147,7 @@
          /*<<filename.ml:368:15>>*/ temp_file_name(temp_dir, prefix, suffix);
       /*<<filename.ml:369:4>>*/ try{
        /*<<filename.ml:370:6>>*/  /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir
-       (name, perms);
+        /*<<filename.ml:370:6>>*/ (name, perms);
        /*<<filename.ml:370:6>>*/ return name;
      }
      catch(e$0){
@@ -35270,7 +37155,7 @@
       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
-              (e, 0);
+               /*<<filename.ml:373:28>>*/ (e, 0);
       var counter$0 =  /*<<filename.ml:373:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
@@ -35336,8 +37221,8 @@
     /*<<complex.ml:33:51>>*/ }
    function div(x, y){
      /*<<complex.ml:36:2>>*/ if
-     ( /*<<complex.ml:36:23>>*/ Math.abs(y[2])
-      <=  /*<<complex.ml:36:5>>*/ Math.abs(y[1])){
+     ( /*<<complex.ml:36:23>>*/ Math.abs /*<<complex.ml:36:23>>*/ (y[2])
+      <=  /*<<complex.ml:36:5>>*/ Math.abs /*<<complex.ml:36:5>>*/ (y[1])){
      var
       r =  /*<<complex.ml:37:12>>*/ y[2] / y[1],
       d =  /*<<complex.ml:38:12>>*/ y[1] + r * y[2];
@@ -35360,57 +37245,82 @@
     /*<<complex.ml:49:42>>*/ }
    function norm(x){
      /*<<complex.ml:51:13>>*/ return  /*<<complex.ml:51:13>>*/ runtime.caml_hypot_float
-            (x[1], x[2]);
+             /*<<complex.ml:51:13>>*/ (x[1], x[2]);
     /*<<complex.ml:51:34>>*/ }
    function arg(x){
      /*<<complex.ml:53:12>>*/ return  /*<<complex.ml:53:12>>*/ Math.atan2
-            (x[2], x[1]);
+             /*<<complex.ml:53:12>>*/ (x[2], x[1]);
     /*<<complex.ml:53:27>>*/ }
    function polar(n, a){
      /*<<complex.ml:55:16>>*/ return [254,
-             /*<<complex.ml:55:23>>*/ Math.cos(a) * n,
-             /*<<complex.ml:55:40>>*/ Math.sin(a) * n];
+             /*<<complex.ml:55:23>>*/ Math.cos /*<<complex.ml:55:23>>*/ (a)
+            * n,
+             /*<<complex.ml:55:40>>*/ Math.sin /*<<complex.ml:55:40>>*/ (a)
+            * n];
     /*<<complex.ml:55:52>>*/ }
    function sqrt(x){
      /*<<complex.ml:58:2>>*/ if(x[1] === 0. && x[2] === 0.)
       /*<<complex.ml:58:35>>*/ return _a_;
     var
-     r =  /*<<complex.ml:60:12>>*/  /*<<complex.ml:60:12>>*/ Math.abs(x[1]),
-     i =  /*<<complex.ml:60:35>>*/  /*<<complex.ml:60:35>>*/ Math.abs(x[2]);
+     r =
+        /*<<complex.ml:60:12>>*/  /*<<complex.ml:60:12>>*/ Math.abs
+         /*<<complex.ml:60:12>>*/ (x[1]),
+     i =
+        /*<<complex.ml:60:35>>*/  /*<<complex.ml:60:35>>*/ Math.abs
+         /*<<complex.ml:60:35>>*/ (x[2]);
     if(i <= r)
      var
       q =  /*<<complex.ml:63:16>>*/ i / r,
       w =
-         /*<<complex.ml:64:8>>*/ Math.sqrt(r)
+         /*<<complex.ml:64:8>>*/ Math.sqrt /*<<complex.ml:64:8>>*/ (r)
         *
           /*<<complex.ml:64:19>>*/ Math.sqrt
-          (0.5 * (1. +  /*<<complex.ml:64:39>>*/ Math.sqrt(1. + q * q)));
+           /*<<complex.ml:64:19>>*/ (0.5
+           *
+            (1.
+            +
+              /*<<complex.ml:64:39>>*/ Math.sqrt
+               /*<<complex.ml:64:39>>*/ (1. + q * q)));
     else
      var
       q$0 =  /*<<complex.ml:66:16>>*/ r / i,
       w =
-         /*<<complex.ml:67:8>>*/ Math.sqrt(i)
+         /*<<complex.ml:67:8>>*/ Math.sqrt /*<<complex.ml:67:8>>*/ (i)
         *
           /*<<complex.ml:67:19>>*/ Math.sqrt
-          (0.5 * (q$0 +  /*<<complex.ml:67:37>>*/ Math.sqrt(1. + q$0 * q$0)));
+           /*<<complex.ml:67:19>>*/ (0.5
+           *
+            (q$0
+            +
+              /*<<complex.ml:67:37>>*/ Math.sqrt
+               /*<<complex.ml:67:37>>*/ (1. + q$0 * q$0)));
     if(0. <= x[1])  /*<<complex.ml:70:9>>*/ return [254, w, 0.5 * x[2] / w];
     var w$0 = 0. <= x[2] ? w : - w;
      /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0];
     /*<<complex.ml:72:5>>*/ }
    function exp(x){
     var
-     e =  /*<<complex.ml:75:10>>*/  /*<<complex.ml:75:10>>*/ Math.exp(x[1]);
+     e =
+        /*<<complex.ml:75:10>>*/  /*<<complex.ml:75:10>>*/ Math.exp
+         /*<<complex.ml:75:10>>*/ (x[1]);
      /*<<complex.ml:75:22>>*/ return [254,
-            e *  /*<<complex.ml:75:34>>*/ Math.cos(x[2]),
-            e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])];
+            e
+            *
+              /*<<complex.ml:75:34>>*/ Math.cos
+               /*<<complex.ml:75:34>>*/ (x[2]),
+            e
+            *
+              /*<<complex.ml:75:54>>*/ Math.sin
+               /*<<complex.ml:75:54>>*/ (x[2])];
     /*<<complex.ml:75:64>>*/ }
    function log(x){
     var
      _b_ =
         /*<<complex.ml:77:38>>*/  /*<<complex.ml:77:38>>*/ Math.atan2
-        (x[2], x[1]);
+         /*<<complex.ml:77:38>>*/ (x[2], x[1]);
      /*<<complex.ml:77:12>>*/ return [254,
-             /*<<complex.ml:77:19>>*/ Math.log(norm(x)),
+             /*<<complex.ml:77:19>>*/ Math.log
+              /*<<complex.ml:77:19>>*/ (norm(x)),
             _b_];
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
@@ -36101,109 +38011,111 @@
      x = param[2],
      _i_ =
         /*<<effect.ml:25:12>>*/  /*<<effect.ml:25:12>>*/ caml_call1
-        (Stdlib_Printexc[26], x),
+         /*<<effect.ml:25:12>>*/ (Stdlib_Printexc[26], x),
      msg =
         /*<<effect.ml:24:18>>*/  /*<<effect.ml:24:18>>*/ caml_call2
-        (Stdlib_Printf[4], _a_, _i_);
+         /*<<effect.ml:24:18>>*/ (Stdlib_Printf[4], _a_, _i_);
      /*<<effect.ml:27:8>>*/ return [0, msg];
     /*<<effect.ml:28:15>>*/ }
     /*<<effect.ml:30:2>>*/  /*<<effect.ml:30:2>>*/ caml_call1
-    (Stdlib_Printexc[9], printer);
+     /*<<effect.ml:30:2>>*/ (Stdlib_Printexc[9], printer);
    var
     Should_not_see_this =
        /*<<effect.ml:33:12>>*/ [248,
        "Stdlib.Effect.Should_not_see_this__",
        caml_fresh_oo_id(0)];
     /*<<effect.ml:34:8>>*/  /*<<effect.ml:34:8>>*/ caml_call2
-    (Stdlib_Callback[2],
+     /*<<effect.ml:34:8>>*/ (Stdlib_Callback[2],
      "Effect.Unhandled",
      [0, Unhandled, Should_not_see_this]);
     /*<<effect.ml:36:8>>*/  /*<<effect.ml:36:8>>*/ caml_call2
-    (Stdlib_Callback[2],
+     /*<<effect.ml:36:8>>*/ (Stdlib_Callback[2],
      "Effect.Continuation_already_resumed",
      Continuation_already_resumed);
    function continue$0(k, v){
     var
      _h_ =
         /*<<effect.ml:62:11>>*/  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc
-        (k);
+         /*<<effect.ml:62:11>>*/ (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:62:11>>*/ ();
     /*<<effect.ml:62:65>>*/ }
    function discontinue(k, e){
     var
      _f_ =
         /*<<effect.ml:65:11>>*/  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc
-        (k);
+         /*<<effect.ml:65:11>>*/ (k);
     function _e_(e){
       /*<<effect.ml:65:41>>*/ throw  /*<<effect.ml:65:41>>*/ caml_maybe_attach_backtrace
-            (e, 1);
+             /*<<effect.ml:65:41>>*/ (e, 1);
      /*<<effect.ml:65:48>>*/ }
      /*<<effect.ml:65:11>>*/ return  /*<<effect.ml:65:11>>*/ jsoo_effect_not_supported
-            ();
+             /*<<effect.ml:65:11>>*/ ();
     /*<<effect.ml:65:71>>*/ }
    function discontinue_with_backtrace(k, e, bt){
     var
      _d_ =
         /*<<effect.ml:68:11>>*/  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc
-        (k);
+         /*<<effect.ml:68:11>>*/ (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
-            (e, 0);
+             /*<<effect.ml:68:41>>*/ (e, 0);
      /*<<effect.ml:68:75>>*/ }
      /*<<effect.ml:68:11>>*/ return  /*<<effect.ml:68:11>>*/ jsoo_effect_not_supported
-            ();
+             /*<<effect.ml:68:11>>*/ ();
     /*<<effect.ml:69:27>>*/ }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
      var
       match =
          /*<<effect.ml:81:12>>*/  /*<<effect.ml:81:12>>*/ caml_call1
-         (handler[3], eff);
+          /*<<effect.ml:81:12>>*/ (handler[3], eff);
      if(! match)
        /*<<effect.ml:85:16>>*/ return  /*<<effect.ml:85:16>>*/ jsoo_effect_not_supported
-              ();
+               /*<<effect.ml:85:16>>*/ ();
      var f = match[1];
      k[2] = last_fiber;
-      /*<<effect.ml:84:10>>*/ return  /*<<effect.ml:84:10>>*/ caml_call1(f, k);
+      /*<<effect.ml:84:10>>*/ return  /*<<effect.ml:84:10>>*/ caml_call1
+              /*<<effect.ml:84:10>>*/ (f, k);
      /*<<effect.ml:85:42>>*/ }
     var
      s =
         /*<<effect.ml:87:12>>*/  /*<<effect.ml:87:12>>*/ caml_alloc_stack
-        (handler[1], handler[2], effc);
+         /*<<effect.ml:87:12>>*/ (handler[1], handler[2], effc);
      /*<<effect.ml:88:4>>*/ return  /*<<effect.ml:88:4>>*/ jsoo_effect_not_supported
-            ();
+             /*<<effect.ml:88:4>>*/ ();
     /*<<effect.ml:88:23>>*/ }
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
      var
       match =
          /*<<effect.ml:95:12>>*/  /*<<effect.ml:95:12>>*/ caml_call1
-         (handler[1], eff);
+          /*<<effect.ml:95:12>>*/ (handler[1], eff);
      if(! match)
        /*<<effect.ml:99:16>>*/ return  /*<<effect.ml:99:16>>*/ jsoo_effect_not_supported
-              ();
+               /*<<effect.ml:99:16>>*/ ();
      var f = match[1];
      k[2] = last_fiber;
-      /*<<effect.ml:98:10>>*/ return  /*<<effect.ml:98:10>>*/ caml_call1(f, k);
+      /*<<effect.ml:98:10>>*/ return  /*<<effect.ml:98:10>>*/ caml_call1
+              /*<<effect.ml:98:10>>*/ (f, k);
      /*<<effect.ml:99:42>>*/ }
     var
      s =
         /*<<effect.ml:101:12>>*/  /*<<effect.ml:101:12>>*/ caml_alloc_stack
-        (function(x){
+         /*<<effect.ml:101:12>>*/ (function(x){
            /*<<effect.ml:101:34>>*/ return x;
           /*<<effect.ml:101:35>>*/ },
          function(e){
            /*<<effect.ml:101:47>>*/ throw  /*<<effect.ml:101:47>>*/ caml_maybe_attach_backtrace
-                 (e, 1);
+                  /*<<effect.ml:101:47>>*/ (e, 1);
           /*<<effect.ml:101:54>>*/ },
          effc);
      /*<<effect.ml:102:4>>*/ return  /*<<effect.ml:102:4>>*/ jsoo_effect_not_supported
-            ();
+             /*<<effect.ml:102:4>>*/ ();
     /*<<effect.ml:102:23>>*/ }
    var
     Deep =
@@ -36223,11 +38135,13 @@
      E =  /*<<effect.ml:125:18>>*/ [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:18>>*/ (f,
+               /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported
+                /*<<effect.ml:126:18>>*/ ());
      /*<<effect.ml:126:45>>*/ }
     function error(param){
       /*<<effect.ml:127:18>>*/ return  /*<<effect.ml:127:18>>*/ caml_call1
-             (Stdlib[2], cst_impossible);
+              /*<<effect.ml:127:18>>*/ (Stdlib[2], cst_impossible);
      /*<<effect.ml:127:39>>*/ }
     function effc(eff, k, last_fiber){
       /*<<effect.ml:129:6>>*/ if(eff !== Initial_setup)
@@ -36238,10 +38152,10 @@
     var
      s =
         /*<<effect.ml:135:12>>*/  /*<<effect.ml:135:12>>*/ caml_alloc_stack
-        (error, error, effc);
+         /*<<effect.ml:135:12>>*/ (error, error, effc);
      /*<<effect.ml:136:4>>*/ try{
       /*<<effect.ml:136:10>>*/  /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported
-      ();
+       /*<<effect.ml:136:10>>*/ ();
      var _b_ = 0;
     }
     catch(exn$0){
@@ -36257,21 +38171,21 @@
      var
       match =
          /*<<effect.ml:157:12>>*/  /*<<effect.ml:157:12>>*/ caml_call1
-         (handler[3], eff);
+          /*<<effect.ml:157:12>>*/ (handler[3], eff);
      if(! match)
        /*<<effect.ml:161:16>>*/ return  /*<<effect.ml:161:16>>*/ jsoo_effect_not_supported
-              ();
+               /*<<effect.ml:161:16>>*/ ();
      var f = match[1];
      k[2] = last_fiber;
       /*<<effect.ml:160:10>>*/ return  /*<<effect.ml:160:10>>*/ caml_call1
-             (f, k);
+              /*<<effect.ml:160:10>>*/ (f, k);
      /*<<effect.ml:161:42>>*/ }
     var
      stack =
         /*<<effect.ml:164:16>>*/  /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
-        (k, handler[1], handler[2], effc);
+         /*<<effect.ml:164:16>>*/ (k, handler[1], handler[2], effc);
      /*<<effect.ml:165:4>>*/ return  /*<<effect.ml:165:4>>*/ jsoo_effect_not_supported
-            ();
+             /*<<effect.ml:165:4>>*/ ();
     /*<<effect.ml:165:40>>*/ }
    function continue_with(k, v, handler){
      /*<<effect.ml:168:4>>*/ return continue_gen
@@ -36287,7 +38201,7 @@
             (k,
              function(e){
                /*<<effect.ml:171:29>>*/ throw  /*<<effect.ml:171:29>>*/ caml_maybe_attach_backtrace
-                     (e, 1);
+                      /*<<effect.ml:171:29>>*/ (e, 1);
               /*<<effect.ml:171:36>>*/ },
              v,
              handler);
@@ -36298,7 +38212,7 @@
              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
-                     (e, 0);
+                      /*<<effect.ml:174:29>>*/ (e, 0);
               /*<<effect.ml:174:63>>*/ },
              v,
              handler);

From 043ebc8d81c36f507b2426c81e3b079fd1e339a9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 11:42:24 +0200
Subject: [PATCH 06/35] Add location after return statement

---
 compiler/lib/generate.ml                     |   24 +-
 compiler/lib/javascript.ml                   |    2 +-
 compiler/lib/javascript.mli                  |    2 +-
 compiler/lib/js_output.ml                    |   12 +-
 compiler/lib/js_parser.mly                   |    4 +-
 compiler/lib/js_simpl.ml                     |   39 +-
 compiler/lib/js_simpl.mli                    |    3 +-
 compiler/lib/js_traverse.ml                  |   16 +-
 compiler/tests-compiler/gh747.ml             |   18 +-
 compiler/tests-compiler/global_deadcode.ml   |   15 +-
 compiler/tests-compiler/js_parser_printer.ml |   67 +-
 compiler/tests-compiler/sourcemap.ml         |    5 +-
 compiler/tests-full/stdlib.cma.expected.js   | 6750 +++++++++---------
 compiler/tests-sourcemap/dump.reference      |    1 +
 14 files changed, 3704 insertions(+), 3254 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 5bf2b8e1c5..5ec9c9e416 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -561,6 +561,7 @@ type state =
   ; dom : Structure.graph
   ; visited_blocks : Addr.Set.t ref
   ; ctx : Ctx.t
+  ; pc : Addr.t
   }
 
 module DTree = struct
@@ -681,7 +682,7 @@ let build_graph ctx pc =
   let visited_blocks = ref Addr.Set.empty in
   let structure = Structure.build_graph ctx.Ctx.blocks pc in
   let dom = Structure.dominator_tree structure in
-  { visited_blocks; structure; dom; ctx }
+  { visited_blocks; structure; dom; ctx; pc }
 
 (****)
 
@@ -835,7 +836,8 @@ let generate_apply_fun ctx { arity; exact; trampolined } =
     ( None
     , J.fun_
         (f :: params)
-        [ J.Return_statement (Some (apply_fun_raw ctx f' params' exact trampolined)), J.N
+        [ ( J.Return_statement (Some (apply_fun_raw ctx f' params' exact trampolined), J.N)
+          , J.N )
         ]
         J.N )
 
@@ -1283,7 +1285,7 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
                 loc
             in
             let e =
-              J.EFun (Some f, J.fun_ args [ J.Return_statement (Some call), J.N ] J.N)
+              J.EFun (Some f, J.fun_ args [ J.Return_statement (Some call, J.N), J.N ] J.N)
             in
             e, const_p, queue
         | Extern "caml_alloc_dummy_function", _ -> assert false
@@ -1676,6 +1678,8 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
         in
         ( never1 && never2
         , Js_simpl.if_statement
+            ~function_end:(fun () ->
+              source_location_ctx st.ctx ~force:After (After st.pc))
             e'
             loc
             (Js_simpl.block iftrue)
@@ -1759,7 +1763,17 @@ and compile_conditional st queue ~fall_through last scope_stack : _ * _ =
         let return_expr =
           if Var.equal st.ctx.deadcode_sentinal x then None else Some cx
         in
-        true, flush_all queue [ J.Return_statement return_expr, loc ]
+        let loc' =
+          match cx with
+          | ECall _ -> (
+              (* We usually don't have a good locations for tail
+                 calls, so use the end of the function instead *)
+              match source_location_ctx st.ctx ~force:After (After st.pc) with
+              | J.N -> loc
+              | loc -> loc)
+          | _ -> loc
+        in
+        true, flush_all queue [ J.Return_statement (return_expr, loc'), loc ]
     | Raise (x, k) ->
         let (_px, cx), queue = access_queue queue x in
         true, flush_all queue (throw_statement st.ctx cx k loc)
@@ -1767,7 +1781,7 @@ and compile_conditional st queue ~fall_through last scope_stack : _ * _ =
         let e_opt =
           if st.ctx.Ctx.should_export then Some (s_var Global_constant.exports) else None
         in
-        true, flush_all queue [ J.Return_statement e_opt, loc ]
+        true, flush_all queue [ J.Return_statement (e_opt, loc), loc ]
     | Branch cont -> compile_branch st queue cont scope_stack ~fall_through
     | Pushtrap (c1, x, e1) ->
         let never_body, body = compile_branch st [] c1 scope_stack ~fall_through in
diff --git a/compiler/lib/javascript.ml b/compiler/lib/javascript.ml
index 952b196769..a5a7109240 100644
--- a/compiler/lib/javascript.ml
+++ b/compiler/lib/javascript.ml
@@ -347,7 +347,7 @@ and statement =
       * (statement * location)
   | Continue_statement of Label.t option
   | Break_statement of Label.t option
-  | Return_statement of expression option
+  | Return_statement of expression option * location
   | With_statement of expression * (statement * location)
   | Labelled_statement of Label.t * (statement * location)
   | Switch_statement of
diff --git a/compiler/lib/javascript.mli b/compiler/lib/javascript.mli
index af02260783..732650be20 100644
--- a/compiler/lib/javascript.mli
+++ b/compiler/lib/javascript.mli
@@ -265,7 +265,7 @@ and statement =
       * (statement * location)
   | Continue_statement of Label.t option
   | Break_statement of Label.t option
-  | Return_statement of expression option
+  | Return_statement of expression option * location
   | With_statement of expression * (statement * location)
   | Labelled_statement of Label.t * (statement * location)
   | Switch_statement of
diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 08341833b5..b410ae5650 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -619,13 +619,14 @@ struct
             PP.end_group f);
         PP.end_group f;
         (match b, consise with
-        | [ (Return_statement (Some e), loc) ], true ->
+        | [ (Return_statement (Some e, loc), loc') ], true ->
             (* Should not starts with '{' *)
             PP.start_group f 1;
             PP.break1 f;
-            output_debug_info f loc;
+            output_debug_info f loc';
             parenthesized_expression ~obj:true AssignementExpression f e;
-            PP.end_group f
+            PP.end_group f;
+            output_debug_info f loc
         | l, _ ->
             let b =
               match l with
@@ -1571,10 +1572,11 @@ struct
         let (Utf8 l) = nane_of_label s in
         PP.string f l;
         last_semi ()
-    | Return_statement e -> (
+    | Return_statement (e, loc) -> (
         match e with
         | None ->
             PP.string f "return";
+            output_debug_info f loc;
             last_semi ()
         | Some (EFun (i, ({ async = false; generator = false }, l, b, pc))) ->
             PP.start_group f 1;
@@ -1595,6 +1597,7 @@ struct
             function_body f b;
             output_debug_info f pc;
             PP.string f "}";
+            output_debug_info f loc;
             last_semi ();
             PP.end_group f
         | Some e ->
@@ -1603,6 +1606,7 @@ struct
             PP.non_breaking_space f;
             PP.start_group f 0;
             expression Expression f e;
+            output_debug_info f loc;
             last_semi ();
             PP.end_group f;
             PP.end_group f
diff --git a/compiler/lib/js_parser.mly b/compiler/lib/js_parser.mly
index b649a8acd1..c433f476cb 100644
--- a/compiler/lib/js_parser.mly
+++ b/compiler/lib/js_parser.mly
@@ -736,7 +736,7 @@ break_stmt:
  | T_BREAK l=label? sc { (Break_statement (l)) }
 
 return_stmt:
- | T_RETURN e=expr? sc { (Return_statement e) }
+ | T_RETURN e=expr? sc { (Return_statement (e, p $endpos(e))) }
 
 switch_stmt:
  | T_SWITCH "(" subject=expr ")" cb=case_block
@@ -1100,7 +1100,7 @@ async_arrow_function:
 (* was called consise body in spec *)
 arrow_body:
  | "{" b=function_body "}" { b, false }
- | e=assignment_expr_for_consise_body { [(Return_statement (Some e), p $symbolstartpos)], true }
+ | e=assignment_expr_for_consise_body { [(Return_statement (Some e, p $endpos), p $symbolstartpos)], true }
 
 (*----------------------------*)
 (* no in                    *)
diff --git a/compiler/lib/js_simpl.ml b/compiler/lib/js_simpl.ml
index 463406ed14..ef7181855c 100644
--- a/compiler/lib/js_simpl.ml
+++ b/compiler/lib/js_simpl.ml
@@ -110,13 +110,13 @@ exception Not_expression
 
 let rec expression_of_statement_list l =
   match l with
-  | (J.Return_statement (Some e), _) :: _ -> e
+  | (J.Return_statement (Some e, _), _) :: _ -> e
   | (J.Expression_statement e, _) :: rem -> J.ESeq (e, expression_of_statement_list rem)
   | _ -> raise Not_expression
 
 let expression_of_statement st =
   match fst st with
-  | J.Return_statement (Some e) -> e
+  | J.Return_statement (Some e, _) -> e
   | J.Block l -> expression_of_statement_list l
   | _ -> raise Not_expression
 
@@ -194,7 +194,7 @@ and depth_class_block b =
       | J.CEField _ -> acc
       | J.CEStaticBLock b -> depth_block b + 2)
 
-let rec if_statement_2 e loc iftrue truestop iffalse falsestop =
+let rec if_statement_2 ~function_end e loc iftrue truestop iffalse falsestop =
   let e = simplify_condition e in
   match fst iftrue, fst iffalse with
   (* Empty blocks *)
@@ -202,7 +202,8 @@ let rec if_statement_2 e loc iftrue truestop iffalse falsestop =
       match e with
       | J.EVar _ -> []
       | _ -> [ J.Expression_statement e, loc ])
-  | J.Block [], _ -> if_statement_2 (enot e) loc iffalse falsestop iftrue truestop
+  | J.Block [], _ ->
+      if_statement_2 ~function_end (enot e) loc iffalse falsestop iftrue truestop
   | _, J.Block [] -> [ J.If_statement (e, iftrue, None), loc ]
   | _ -> (
       try
@@ -226,7 +227,7 @@ let rec if_statement_2 e loc iftrue truestop iffalse falsestop =
         try
           let e1 = expression_of_statement iftrue in
           let e2 = expression_of_statement iffalse in
-          [ J.Return_statement (Some (J.ECond (e, e1, e2))), loc ]
+          [ J.Return_statement (Some (J.ECond (e, e1, e2)), function_end ()), loc ]
         with Not_expression ->
           let truestop, falsestop =
             if truestop && falsestop
@@ -247,15 +248,23 @@ let unopt b =
   | Some b -> b
   | None -> J.Block [], J.N
 
-let if_statement e loc iftrue truestop iffalse falsestop =
+let if_statement ~function_end e loc iftrue truestop iffalse falsestop =
   (*FIX: should be done at an earlier stage*)
   let e = simplify_condition e in
   match iftrue, iffalse with
   (* Shared statements *)
   | (J.If_statement (e', iftrue', iffalse'), _), _ when Poly.(iffalse = unopt iffalse') ->
-      if_statement_2 (J.EBin (J.And, e, e')) loc iftrue' truestop iffalse falsestop
+      if_statement_2
+        ~function_end
+        (J.EBin (J.And, e, e'))
+        loc
+        iftrue'
+        truestop
+        iffalse
+        falsestop
   | (J.If_statement (e', iftrue', iffalse'), _), _ when Poly.(iffalse = iftrue') ->
       if_statement_2
+        ~function_end
         (J.EBin (J.And, e, J.EUn (J.Not, e')))
         loc
         (unopt iffalse')
@@ -263,16 +272,24 @@ let if_statement e loc iftrue truestop iffalse falsestop =
         iffalse
         falsestop
   | _, (J.If_statement (e', iftrue', iffalse'), _) when Poly.(iftrue = iftrue') ->
-      if_statement_2 (J.EBin (J.Or, e, e')) loc iftrue truestop (unopt iffalse') falsestop
+      if_statement_2
+        ~function_end
+        (J.EBin (J.Or, e, e'))
+        loc
+        iftrue
+        truestop
+        (unopt iffalse')
+        falsestop
   | _, (J.If_statement (e', iftrue', iffalse'), _) when Poly.(iftrue = unopt iffalse') ->
       if_statement_2
+        ~function_end
         (J.EBin (J.Or, e, J.EUn (J.Not, e')))
         loc
         iftrue
         truestop
         iftrue'
         falsestop
-  | _ -> if_statement_2 e loc iftrue truestop iffalse falsestop
+  | _ -> if_statement_2 ~function_end e loc iftrue truestop iffalse falsestop
 
 let function_body b =
   (* We only check for a return at the end since it is by far the most
@@ -281,7 +298,7 @@ let function_body b =
     let rec check l =
       match l with
       | [] -> false
-      | [ (J.Return_statement None, _) ] -> true
+      | [ (J.Return_statement (None, _), _) ] -> true
       | _ :: r -> check r
     in
     check b
@@ -291,7 +308,7 @@ let function_body b =
     let rec remove acc l =
       match l with
       | [] -> acc
-      | [ (J.Return_statement None, _) ] -> acc
+      | [ (J.Return_statement (None, _), _) ] -> acc
       | i :: r -> remove (i :: acc) r
     in
     List.rev (remove [] b)
diff --git a/compiler/lib/js_simpl.mli b/compiler/lib/js_simpl.mli
index 4d81f4ef24..d640595c9a 100644
--- a/compiler/lib/js_simpl.mli
+++ b/compiler/lib/js_simpl.mli
@@ -21,7 +21,8 @@
 open Javascript
 
 val if_statement :
-     expression
+     function_end:(unit -> location)
+  -> expression
   -> location
   -> statement * location
   -> bool
diff --git a/compiler/lib/js_traverse.ml b/compiler/lib/js_traverse.ml
index aea066c1e9..ba65d8968f 100644
--- a/compiler/lib/js_traverse.ml
+++ b/compiler/lib/js_traverse.ml
@@ -187,7 +187,7 @@ class map : mapper =
           ForAwaitOf_statement (e1, m#expression e2, (m#statement s, m#loc loc))
       | Continue_statement s -> Continue_statement s
       | Break_statement s -> Break_statement s
-      | Return_statement e -> Return_statement (m#expression_o e)
+      | Return_statement (e, loc) -> Return_statement (m#expression_o e, m#loc loc)
       | Labelled_statement (l, (s, loc)) ->
           Labelled_statement (l, (m#statement s, m#loc loc))
       | Throw_statement e -> Throw_statement (m#expression e)
@@ -549,7 +549,7 @@ class iter : iterator =
           m#statement s
       | Continue_statement _ -> ()
       | Break_statement _ -> ()
-      | Return_statement e -> m#expression_o e
+      | Return_statement (e, _) -> m#expression_o e
       | Labelled_statement (_, (s, _)) -> m#statement s
       | Throw_statement e -> m#expression e
       | Switch_statement (e, l, def, l') ->
@@ -1750,8 +1750,16 @@ class simpl =
           | If_statement (ENum n, _, iffalse) when Num.is_zero n -> opt_cons iffalse rem
           (* if (e1) return e2 else return e3 --> return e1 ? e2 : e3 *)
           | If_statement
-              (cond, (Return_statement (Some e1), _), Some (Return_statement (Some e2), _))
-            -> (Return_statement (Some (ECond (cond, e1, e2))), loc) :: rem
+              ( cond
+              , (Return_statement (Some e1, _), _)
+              , Some (Return_statement (Some e2, _), _) ) ->
+              ( Return_statement
+                  ( Some (ECond (cond, e1, e2))
+                  , U
+                    (*TODO: it would be better to use the location of the
+                      end of the function, but we can't easily get it. *) )
+              , loc )
+              :: rem
           (* if (e1) v1 = e2 else v1 = e3 --> v1 = e1 ? e2 : e3 *)
           | If_statement
               ( cond
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 1bd7df5d9b..f040b154b2 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -328,7 +328,7 @@ end
      93:     function info(is_raise){
      94:       /*<<test.ml:46:4>>*/ return is_raise
      95:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     96:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
+     96:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
      97:      /*<<test.ml:49:75>>*/ }
      98:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
      99:      var
@@ -349,18 +349,18 @@ end
     114:                _k_,
     115:                _j_,
     116:                _i_,
-    117:                _h_)];
+    117:                _h_)] /*<<test.ml:58:6>>*/ ;
     118:     }
-    119:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    119:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0 /*<<test.ml:54:50>>*/ ;
     120:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
     121:      /*<<test.ml:56:8>>*/ return [0,
     122:              /*<<test.ml:56:13>>*/ caml_call2
-    123:               /*<<test.ml:56:13>>*/ (Stdlib_Printf[4], _b_, _o_)];
+    123:               /*<<test.ml:56:13>>*/ (Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:8>>*/ ;
     124:     /*<<test.ml:61:52>>*/ }
     125:    function print_exception_backtrace(outchan, backtrace){
     126:      /*<<test.ml:64:2>>*/ if(! backtrace)
     127:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
-    128:               /*<<test.ml:66:6>>*/ (Stdlib_Printf[1], outchan, _d_);
+    128:               /*<<test.ml:66:6>>*/ (Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
     129:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
     130:     if(_f_ >= 0){
     131:      var i = _e_;
@@ -384,16 +384,16 @@ end
     149:    function compare(left, right, e1, e2){
     150:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
     151:      var v1 = e1[1];
-    152:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    152:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1 /*<<test.ml:80:23>>*/ ;
     153:      var v2 = e2[1];
     154:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
-    155:               /*<<test.ml:78:24>>*/ (left, v1, v2);
+    155:               /*<<test.ml:78:24>>*/ (left, v1, v2) /*<<test.ml:81:24>>*/ ;
     156:     }
     157:     var v1$0 = e1[1];
-    158:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    158:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1 /*<<test.ml:81:23>>*/ ;
     159:     var v2$0 = e2[1];
     160:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
-    161:              /*<<test.ml:79:26>>*/ (right, v1$0, v2$0);
+    161:              /*<<test.ml:79:26>>*/ (right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
     162:     /*<<test.ml:81:24>>*/ }
     163:    var
     164:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
diff --git a/compiler/tests-compiler/global_deadcode.ml b/compiler/tests-compiler/global_deadcode.ml
index ec3f6b1827..72e19e465d 100644
--- a/compiler/tests-compiler/global_deadcode.ml
+++ b/compiler/tests-compiler/global_deadcode.ml
@@ -21,15 +21,16 @@ let%expect_test "Eliminates unused functions from functor" =
    | Javascript.ECall (EVar (S { name = Utf8 name; _ }), _, _, _) -> (
        let _, _, body, _ = find_function program name in
        match List.rev body with
-       | (Return_statement (Some (EArr return)), loc) :: rest ->
+       | (Return_statement (Some (EArr return), loc), loc') :: rest ->
            let return =
              ( Javascript.Return_statement
-                 (Some
-                    (EArr
-                       (List.filter return ~f:(function
-                           | Javascript.ElementHole -> false
-                           | _ -> true))))
-             , loc )
+                 ( Some
+                     (EArr
+                        (List.filter return ~f:(function
+                            | Javascript.ElementHole -> false
+                            | _ -> true)))
+                 , loc )
+             , loc' )
            in
            print_program (List.rev (return :: rest))
        | _ -> ())
diff --git a/compiler/tests-compiler/js_parser_printer.ml b/compiler/tests-compiler/js_parser_printer.ml
index 08632c2276..57d8dd0ebb 100644
--- a/compiler/tests-compiler/js_parser_printer.ml
+++ b/compiler/tests-compiler/js_parser_printer.ml
@@ -232,25 +232,34 @@ let%expect_test "arrow" =
 
   [%expect
     {|
-    var a =  /*<<fake:2:10>>*/ x=> /*<<fake:2:18>>*/ x + 2;
-    var a =  /*<<fake:3:10>>*/ ()=> /*<<fake:3:19>>*/ 2;
-    var a =  /*<<fake:4:10>>*/ x=> /*<<fake:4:20>>*/ x + 2;
-    var a =  /*<<fake:5:10>>*/ (x, y)=> /*<<fake:5:22>>*/ x + y;
+    var a =  /*<<fake:2:10>>*/ x=> /*<<fake:2:18>>*/ x + 2 /*<<fake:2:23>>*/ ;
+    var a =  /*<<fake:3:10>>*/ ()=> /*<<fake:3:19>>*/ 2 /*<<fake:3:20>>*/ ;
+    var a =  /*<<fake:4:10>>*/ x=> /*<<fake:4:20>>*/ x + 2 /*<<fake:4:25>>*/ ;
+    var
+     a =  /*<<fake:5:10>>*/ (x, y)=> /*<<fake:5:22>>*/ x + y /*<<fake:5:27>>*/ ;
     var a =  /*<<fake:7:10>>*/ x=>{ /*<<fake:7:20>>*/ x + 2; /*<<fake:7:13>>*/ };
     var a =  /*<<fake:8:10>>*/ ()=>{ /*<<fake:8:21>>*/ 2; /*<<fake:8:13>>*/ };
     var a =  /*<<fake:9:10>>*/ x=>{ /*<<fake:9:22>>*/ x + 2; /*<<fake:9:13>>*/ };
     var
      a =
-        /*<<fake:11:10>>*/ (x =  /*<<fake:11:16>>*/ 1 / 2)=> /*<<fake:11:28>>*/ x + 10;
+        /*<<fake:11:10>>*/ (x =  /*<<fake:11:16>>*/ 1 / 2)=> /*<<fake:11:28>>*/ x + 10 /*<<fake:11:34>>*/ ;
+    var
+     a =
+        /*<<fake:13:10>>*/ (x =  /*<<fake:13:16>>*/ /qwe/g)=> /*<<fake:13:30>>*/ x + 10 /*<<fake:13:36>>*/ ;
     var
      a =
-        /*<<fake:13:10>>*/ (x =  /*<<fake:13:16>>*/ /qwe/g)=> /*<<fake:13:30>>*/ x + 10;
+        /*<<fake:16:10>>*/ x=>
+           /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y /*<<fake:16:27>>*/  /*<<fake:16:27>>*/ ;
     var
-     a =  /*<<fake:16:10>>*/ x=> /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y;
+     a =
+        /*<<fake:17:10>>*/ x=>
+           /*<<fake:17:17>>*/ y=> /*<<fake:17:23>>*/ x + y /*<<fake:17:28>>*/  /*<<fake:17:29>>*/ ;
+    var
+     a =  /*<<fake:19:10>>*/ async x=> /*<<fake:19:23>>*/ y /*<<fake:19:24>>*/ ;
     var
-     a =  /*<<fake:17:10>>*/ x=> /*<<fake:17:17>>*/ y=> /*<<fake:17:23>>*/ x + y;
-    var a =  /*<<fake:19:10>>*/ async x=> /*<<fake:19:23>>*/ y;
-    var a =  /*<<fake:20:10>>*/ async (a, b)=> /*<<fake:20:27>>*/ a + b; |}]
+     a =
+        /*<<fake:20:10>>*/ async (a, b)=>
+           /*<<fake:20:27>>*/ a + b /*<<fake:20:32>>*/ ; |}]
 
 let%expect_test "trailing comma" =
   (* GH#989 *)
@@ -283,7 +292,7 @@ function rehb_shape(_face /*: fk_face */, text /*: string */) {
   [%expect
     {|
     function rehb_new_face(_fontName){
-      /*<<fake:7:2>>*/ return undefined;
+      /*<<fake:7:2>>*/ return undefined /*<<fake:7:18>>*/ ;
      /*<<fake:8:0>>*/ }
     function rehb_shape(_face, text){
      var
@@ -295,10 +304,10 @@ function rehb_shape(_face /*: fk_face */, text /*: string */) {
          /*<<fake:14:10>>*/  /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split
            /*<<fake:14:12>>*/ ("").map
           /*<<fake:14:12>>*/ (function mapper(_char){
-            /*<<fake:15:6>>*/ return [0, 0, 0];
+            /*<<fake:15:6>>*/ return [0, 0, 0] /*<<fake:15:69>>*/ ;
            /*<<fake:14:30>>*/ });
       /*<<fake:19:2>>*/  /*<<fake:19:2>>*/ ret.unshift /*<<fake:19:2>>*/ (0);
-      /*<<fake:20:2>>*/ return ret;
+      /*<<fake:20:2>>*/ return ret /*<<fake:20:12>>*/ ;
      /*<<fake:21:0>>*/ } |}]
 
 let%expect_test "rest parameters" =
@@ -322,8 +331,8 @@ let%expect_test "rest parameters" =
                /*<<fake:3:15>>*/ ().then
               /*<<fake:3:15>>*/ (function(){
                 /*<<fake:4:10>>*/ return  /*<<fake:4:17>>*/ callWithProto
-                        /*<<fake:4:17>>*/ (api_json[key_module][key_func], args);
-               /*<<fake:3:41>>*/ });
+                        /*<<fake:4:17>>*/ (api_json[key_module][key_func], args) /*<<fake:4:68>>*/ ;
+               /*<<fake:3:41>>*/ }) /*<<fake:5:10>>*/ ;
      /*<<fake:2:38>>*/ }; |}]
 
 let%expect_test "async/await" =
@@ -369,7 +378,7 @@ let%expect_test "async/await" =
          /*<<fake:7:25>>*/ await
          /*<<fake:7:33>>*/ glslangModule.default /*<<fake:7:33>>*/ ();
       /*<<fake:8:11>>*/ return  /*<<fake:8:18>>*/ glslang.compileGLSL
-              /*<<fake:8:18>>*/ (src, "compute");
+              /*<<fake:8:18>>*/ (src, "compute") /*<<fake:8:53>>*/ ;
      /*<<fake:2:9>>*/ }
      /*<<fake:12:4>>*/ async;
     function test(){ /*<<fake:13:22>>*/ }
@@ -403,14 +412,20 @@ let%expect_test "get/set property" =
     var
      x =
         /*<<fake:2:11>>*/ {get prop(){
-          /*<<fake:3:20>>*/ return 3;
+          /*<<fake:3:20>>*/ return 3 /*<<fake:3:28>>*/ ;
          /*<<fake:3:7>>*/ },
-        set prop(x){ /*<<fake:4:21>>*/ return x == 2; /*<<fake:4:7>>*/ },
+        set prop(x){
+          /*<<fake:4:21>>*/ return x == 2 /*<<fake:4:34>>*/ ;
+         /*<<fake:4:7>>*/ },
         a: 4,
-        b(){ /*<<fake:6:13>>*/ return 5; /*<<fake:6:7>>*/ },
-        * e(){ /*<<fake:7:14>>*/ return 5; /*<<fake:7:7>>*/ },
-        async e(){ /*<<fake:8:19>>*/ return 5; /*<<fake:8:7>>*/ },
-        async* e(){ /*<<fake:9:20>>*/ return 5; /*<<fake:9:7>>*/ },
+        b(){ /*<<fake:6:13>>*/ return 5 /*<<fake:6:21>>*/ ; /*<<fake:6:7>>*/ },
+        * e(){ /*<<fake:7:14>>*/ return 5 /*<<fake:7:22>>*/ ; /*<<fake:7:7>>*/ },
+        async e(){
+          /*<<fake:8:19>>*/ return 5 /*<<fake:8:27>>*/ ;
+         /*<<fake:8:7>>*/ },
+        async* e(){
+          /*<<fake:9:20>>*/ return 5 /*<<fake:9:28>>*/ ;
+         /*<<fake:9:7>>*/ },
         ["field" + 1]: 3}; |}]
 
 let%expect_test "assignment pattern" =
@@ -513,14 +528,16 @@ let%expect_test "from keyword" =
      function from(field, get){
        /*<<fake:5:6>>*/ if(! get)
         /*<<fake:5:14>>*/ get =
-        function get(x){ /*<<fake:5:34>>*/ return x; /*<<fake:5:18>>*/ };
+        function get(x){
+          /*<<fake:5:34>>*/ return x /*<<fake:5:42>>*/ ;
+         /*<<fake:5:18>>*/ };
        /*<<fake:6:6>>*/ return  /*<<fake:6:13>>*/ this.compute
                /*<<fake:6:13>>*/ ([field],
                function(state){
                  /*<<fake:6:50>>*/ return  /*<<fake:6:57>>*/ get
                          /*<<fake:6:57>>*/ ( /*<<fake:6:61>>*/ state.field
-                           /*<<fake:6:61>>*/ (field));
-                /*<<fake:6:34>>*/ });
+                           /*<<fake:6:61>>*/ (field)) /*<<fake:6:80>>*/ ;
+                /*<<fake:6:34>>*/ }) /*<<fake:6:83>>*/ ;
       /*<<fake:4:3>>*/ }}); |}]
 
 let%expect_test "new.target" =
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index ac26b7f7dd..6f6f3b677c 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -88,6 +88,7 @@ let%expect_test _ =
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
       /dune-root/test.ml:1:7 -> 6:25
+      /dune-root/test.ml:1:11 -> 6:26
       /dune-root/test.ml:1:12 -> 6:27
       /dune-root/test.ml:1:4 -> 7:18
       null -> 10:2
@@ -114,7 +115,9 @@ function x (a, b) {
       3:   return a + b;
       4: }
     $ cat "test.min.js"
-      1: function x(a, b){ /*<<test.ml:3:2>>*/ return a + b; /*<<test.ml:4:0>>*/ }
+      1: function x(a, b){
+      2:   /*<<test.ml:3:2>>*/ return a + b /*<<test.ml:3:14>>*/ ;
+      3:  /*<<test.ml:4:0>>*/ }
  |}]
 
 let%expect_test _ =
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 6a1875a75a..4bb2fc211e 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -6,170 +6,170 @@
    var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function erase_rel(param){
      /*<<?>>*/ if(typeof param === "number")
-      /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0;
+      /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0 /*<<camlinternalFormatBasics.ml:562:20>>*/ ;
     switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormatBasics.ml:533:4>>*/ return [0, erase_rel(rest)];
+        /*<<camlinternalFormatBasics.ml:533:4>>*/ return [0, erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:4>>*/ ;
       case 1:
        var rest$0 = param[1];
         /*<<camlinternalFormatBasics.ml:535:4>>*/ return [1,
-               erase_rel(rest$0)];
+               erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:4>>*/ ;
       case 2:
        var rest$1 = param[1];
         /*<<camlinternalFormatBasics.ml:537:4>>*/ return [2,
-               erase_rel(rest$1)];
+               erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:4>>*/ ;
       case 3:
        var rest$2 = param[1];
         /*<<camlinternalFormatBasics.ml:539:4>>*/ return [3,
-               erase_rel(rest$2)];
+               erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:4>>*/ ;
       case 4:
        var rest$3 = param[1];
         /*<<camlinternalFormatBasics.ml:543:4>>*/ return [4,
-               erase_rel(rest$3)];
+               erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:4>>*/ ;
       case 5:
        var rest$4 = param[1];
         /*<<camlinternalFormatBasics.ml:541:4>>*/ return [5,
-               erase_rel(rest$4)];
+               erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:4>>*/ ;
       case 6:
        var rest$5 = param[1];
         /*<<camlinternalFormatBasics.ml:545:4>>*/ return [6,
-               erase_rel(rest$5)];
+               erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:4>>*/ ;
       case 7:
        var rest$6 = param[1];
         /*<<camlinternalFormatBasics.ml:547:4>>*/ return [7,
-               erase_rel(rest$6)];
+               erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:4>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
         /*<<camlinternalFormatBasics.ml:549:4>>*/ return [8,
                ty,
-               erase_rel(rest$7)];
+               erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:4>>*/ ;
       case 9:
        var rest$8 = param[3], ty1 = param[1];
         /*<<camlinternalFormatBasics.ml:551:4>>*/ return [9,
                ty1,
                ty1,
-               erase_rel(rest$8)];
+               erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:4>>*/ ;
       case 10:
        var rest$9 = param[1];
         /*<<camlinternalFormatBasics.ml:553:4>>*/ return [10,
-               erase_rel(rest$9)];
+               erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:4>>*/ ;
       case 11:
        var rest$10 = param[1];
         /*<<camlinternalFormatBasics.ml:555:4>>*/ return [11,
-               erase_rel(rest$10)];
+               erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:4>>*/ ;
       case 12:
        var rest$11 = param[1];
         /*<<camlinternalFormatBasics.ml:557:4>>*/ return [12,
-               erase_rel(rest$11)];
+               erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:4>>*/ ;
       case 13:
        var rest$12 = param[1];
         /*<<camlinternalFormatBasics.ml:559:4>>*/ return [13,
-               erase_rel(rest$12)];
+               erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:4>>*/ ;
       default:
        var rest$13 = param[1];
         /*<<camlinternalFormatBasics.ml:561:4>>*/ return [14,
-               erase_rel(rest$13)];
+               erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
     }
    }
    function concat_fmtty(fmtty1, fmtty2){
      /*<<camlinternalFormatBasics.ml:590:21>>*/ if(typeof fmtty1 === "number")
-      /*<<camlinternalFormatBasics.ml:621:20>>*/ return fmtty2;
+      /*<<camlinternalFormatBasics.ml:621:20>>*/ return fmtty2 /*<<camlinternalFormatBasics.ml:621:20>>*/ ;
     switch(fmtty1[0]){
       case 0:
        var rest = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:592:4>>*/ return [0,
-               concat_fmtty(rest, fmtty2)];
+               concat_fmtty(rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:4>>*/ ;
       case 1:
        var rest$0 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:594:4>>*/ return [1,
-               concat_fmtty(rest$0, fmtty2)];
+               concat_fmtty(rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:4>>*/ ;
       case 2:
        var rest$1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:596:4>>*/ return [2,
-               concat_fmtty(rest$1, fmtty2)];
+               concat_fmtty(rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:4>>*/ ;
       case 3:
        var rest$2 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:598:4>>*/ return [3,
-               concat_fmtty(rest$2, fmtty2)];
+               concat_fmtty(rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:4>>*/ ;
       case 4:
        var rest$3 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:600:4>>*/ return [4,
-               concat_fmtty(rest$3, fmtty2)];
+               concat_fmtty(rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:4>>*/ ;
       case 5:
        var rest$4 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:602:4>>*/ return [5,
-               concat_fmtty(rest$4, fmtty2)];
+               concat_fmtty(rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:4>>*/ ;
       case 6:
        var rest$5 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:604:4>>*/ return [6,
-               concat_fmtty(rest$5, fmtty2)];
+               concat_fmtty(rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:4>>*/ ;
       case 7:
        var rest$6 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:606:4>>*/ return [7,
-               concat_fmtty(rest$6, fmtty2)];
+               concat_fmtty(rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:4>>*/ ;
       case 8:
        var rest$7 = fmtty1[2], ty = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:618:4>>*/ return [8,
                ty,
-               concat_fmtty(rest$7, fmtty2)];
+               concat_fmtty(rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:4>>*/ ;
       case 9:
        var rest$8 = fmtty1[3], ty2 = fmtty1[2], ty1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:620:4>>*/ return [9,
                ty1,
                ty2,
-               concat_fmtty(rest$8, fmtty2)];
+               concat_fmtty(rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:4>>*/ ;
       case 10:
        var rest$9 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:608:4>>*/ return [10,
-               concat_fmtty(rest$9, fmtty2)];
+               concat_fmtty(rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:4>>*/ ;
       case 11:
        var rest$10 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:610:4>>*/ return [11,
-               concat_fmtty(rest$10, fmtty2)];
+               concat_fmtty(rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:4>>*/ ;
       case 12:
        var rest$11 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:612:4>>*/ return [12,
-               concat_fmtty(rest$11, fmtty2)];
+               concat_fmtty(rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:4>>*/ ;
       case 13:
        var rest$12 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:614:4>>*/ return [13,
-               concat_fmtty(rest$12, fmtty2)];
+               concat_fmtty(rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:4>>*/ ;
       default:
        var rest$13 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:616:4>>*/ return [14,
-               concat_fmtty(rest$13, fmtty2)];
+               concat_fmtty(rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:621:26>>*/ }
    function concat_fmt(fmt1, fmt2){
      /*<<camlinternalFormatBasics.ml:631:17>>*/ if(typeof fmt1 === "number")
-      /*<<camlinternalFormatBasics.ml:690:4>>*/ return fmt2;
+      /*<<camlinternalFormatBasics.ml:690:4>>*/ return fmt2 /*<<camlinternalFormatBasics.ml:690:4>>*/ ;
     switch(fmt1[0]){
       case 0:
        var rest = fmt1[1];
         /*<<camlinternalFormatBasics.ml:649:4>>*/ return [0,
-               concat_fmt(rest, fmt2)];
+               concat_fmt(rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:4>>*/ ;
       case 1:
        var rest$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:651:4>>*/ return [1,
-               concat_fmt(rest$0, fmt2)];
+               concat_fmt(rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:4>>*/ ;
       case 2:
        var rest$1 = fmt1[2], pad = fmt1[1];
         /*<<camlinternalFormatBasics.ml:633:4>>*/ return [2,
                pad,
-               concat_fmt(rest$1, fmt2)];
+               concat_fmt(rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:4>>*/ ;
       case 3:
        var rest$2 = fmt1[2], pad$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:635:4>>*/ return [3,
                pad$0,
-               concat_fmt(rest$2, fmt2)];
+               concat_fmt(rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:4>>*/ ;
       case 4:
        var rest$3 = fmt1[4], prec = fmt1[3], pad$1 = fmt1[2], iconv = fmt1[1];
         /*<<camlinternalFormatBasics.ml:638:4>>*/ return [4,
                iconv,
                pad$1,
                prec,
-               concat_fmt(rest$3, fmt2)];
+               concat_fmt(rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:4>>*/ ;
       case 5:
        var
         rest$4 = fmt1[4],
@@ -180,7 +180,7 @@
                iconv$0,
                pad$2,
                prec$0,
-               concat_fmt(rest$4, fmt2)];
+               concat_fmt(rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:4>>*/ ;
       case 6:
        var
         rest$5 = fmt1[4],
@@ -191,7 +191,7 @@
                iconv$1,
                pad$3,
                prec$1,
-               concat_fmt(rest$5, fmt2)];
+               concat_fmt(rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:4>>*/ ;
       case 7:
        var
         rest$6 = fmt1[4],
@@ -202,7 +202,7 @@
                iconv$2,
                pad$4,
                prec$2,
-               concat_fmt(rest$6, fmt2)];
+               concat_fmt(rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:4>>*/ ;
       case 8:
        var
         rest$7 = fmt1[4],
@@ -213,86 +213,86 @@
                fconv,
                pad$5,
                prec$3,
-               concat_fmt(rest$7, fmt2)];
+               concat_fmt(rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:4>>*/ ;
       case 9:
        var rest$8 = fmt1[2], pad$6 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:653:4>>*/ return [9,
                pad$6,
-               concat_fmt(rest$8, fmt2)];
+               concat_fmt(rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:4>>*/ ;
       case 10:
        var rest$9 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:663:4>>*/ return [10,
-               concat_fmt(rest$9, fmt2)];
+               concat_fmt(rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:4>>*/ ;
       case 11:
        var rest$10 = fmt1[2], str = fmt1[1];
         /*<<camlinternalFormatBasics.ml:666:4>>*/ return [11,
                str,
-               concat_fmt(rest$10, fmt2)];
+               concat_fmt(rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:4>>*/ ;
       case 12:
        var rest$11 = fmt1[2], chr = fmt1[1];
         /*<<camlinternalFormatBasics.ml:668:4>>*/ return [12,
                chr,
-               concat_fmt(rest$11, fmt2)];
+               concat_fmt(rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:4>>*/ ;
       case 13:
        var rest$12 = fmt1[3], fmtty = fmt1[2], pad$7 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:671:4>>*/ return [13,
                pad$7,
                fmtty,
-               concat_fmt(rest$12, fmt2)];
+               concat_fmt(rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:4>>*/ ;
       case 14:
        var rest$13 = fmt1[3], fmtty$0 = fmt1[2], pad$8 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:673:4>>*/ return [14,
                pad$8,
                fmtty$0,
-               concat_fmt(rest$13, fmt2)];
+               concat_fmt(rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:4>>*/ ;
       case 15:
        var rest$14 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:655:4>>*/ return [15,
-               concat_fmt(rest$14, fmt2)];
+               concat_fmt(rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:4>>*/ ;
       case 16:
        var rest$15 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:657:4>>*/ return [16,
-               concat_fmt(rest$15, fmt2)];
+               concat_fmt(rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:4>>*/ ;
       case 17:
        var rest$16 = fmt1[2], fmting_lit = fmt1[1];
         /*<<camlinternalFormatBasics.ml:685:4>>*/ return [17,
                fmting_lit,
-               concat_fmt(rest$16, fmt2)];
+               concat_fmt(rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:4>>*/ ;
       case 18:
        var rest$17 = fmt1[2], fmting_gen = fmt1[1];
         /*<<camlinternalFormatBasics.ml:687:4>>*/ return [18,
                fmting_gen,
-               concat_fmt(rest$17, fmt2)];
+               concat_fmt(rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:4>>*/ ;
       case 19:
        var rest$18 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:661:4>>*/ return [19,
-               concat_fmt(rest$18, fmt2)];
+               concat_fmt(rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:4>>*/ ;
       case 20:
        var rest$19 = fmt1[3], char_set = fmt1[2], width_opt = fmt1[1];
         /*<<camlinternalFormatBasics.ml:676:4>>*/ return [20,
                width_opt,
                char_set,
-               concat_fmt(rest$19, fmt2)];
+               concat_fmt(rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:4>>*/ ;
       case 21:
        var rest$20 = fmt1[2], counter = fmt1[1];
         /*<<camlinternalFormatBasics.ml:678:4>>*/ return [21,
                counter,
-               concat_fmt(rest$20, fmt2)];
+               concat_fmt(rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:4>>*/ ;
       case 22:
        var rest$21 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:680:4>>*/ return [22,
-               concat_fmt(rest$21, fmt2)];
+               concat_fmt(rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:4>>*/ ;
       case 23:
        var rest$22 = fmt1[2], ign = fmt1[1];
         /*<<camlinternalFormatBasics.ml:682:4>>*/ return [23,
                ign,
-               concat_fmt(rest$22, fmt2)];
+               concat_fmt(rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:4>>*/ ;
       default:
        var rest$23 = fmt1[3], f = fmt1[2], arity = fmt1[1];
         /*<<camlinternalFormatBasics.ml:659:4>>*/ return [24,
                arity,
                f,
-               concat_fmt(rest$23, fmt2)];
+               concat_fmt(rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:690:8>>*/ }
    var CamlinternalFormatBasics = [0, concat_fmtty, erase_rel, concat_fmt];
@@ -381,16 +381,16 @@
      /*<<stdlib.ml:74:14>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
               /*<<stdlib.ml:74:17>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<stdlib.ml:74:37>>*/ ;
     /*<<stdlib.ml:74:37>>*/ }
    function max(x, y){
      /*<<stdlib.ml:75:14>>*/ return  /*<<stdlib.ml:75:17>>*/ runtime.caml_greaterequal
               /*<<stdlib.ml:75:17>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<stdlib.ml:75:37>>*/ ;
     /*<<stdlib.ml:75:37>>*/ }
    function abs(x){
-     /*<<stdlib.ml:98:12>>*/ return 0 <= x ? x : - x | 0;
+     /*<<stdlib.ml:98:12>>*/ return 0 <= x ? x : - x | 0 /*<<stdlib.ml:98:36>>*/ ;
     /*<<stdlib.ml:98:36>>*/ }
    function lnot(x){
      /*<<stdlib.ml:104:13>>*/ return x ^ -1;
@@ -428,24 +428,24 @@
     _b_ = [0, 0];
    function char_of_int(n){
      /*<<stdlib.ml:224:2>>*/ if(0 <= n && 255 >= n)
-      /*<<stdlib.ml:224:58>>*/ return n;
-     /*<<stdlib.ml:224:27>>*/ return invalid_arg(cst_char_of_int);
+      /*<<stdlib.ml:224:58>>*/ return n /*<<stdlib.ml:224:58>>*/ ;
+     /*<<stdlib.ml:224:27>>*/ return invalid_arg(cst_char_of_int) /*<<stdlib.ml:224:78>>*/ ;
     /*<<stdlib.ml:224:78>>*/ }
    function string_of_bool(b){
-     /*<<stdlib.ml:254:2>>*/ return b ? cst_true : cst_false;
+     /*<<stdlib.ml:254:2>>*/ return b ? cst_true : cst_false /*<<stdlib.ml:254:31>>*/ ;
     /*<<stdlib.ml:254:31>>*/ }
    function bool_of_string(param){
      /*<<stdlib.ml:255:21>>*/ return param !== cst_false$0
             ? param !== cst_true$0 ? invalid_arg(cst_bool_of_string) : 1
-            : 0;
+            : 0 /*<<stdlib.ml:258:37>>*/ ;
     /*<<stdlib.ml:258:37>>*/ }
    function bool_of_string_opt(param){
      /*<<stdlib.ml:260:25>>*/ return param !== cst_false$0
             ? param !== cst_true$0 ? 0 : _a_
-            : _b_;
+            : _b_ /*<<stdlib.ml:263:13>>*/ ;
     /*<<stdlib.ml:263:13>>*/ }
    function string_of_int(n){
-     /*<<stdlib.ml:266:2>>*/ return "" + n;
+     /*<<stdlib.ml:266:2>>*/ return "" + n /*<<stdlib.ml:266:2>>*/ ;
     /*<<stdlib.ml:266:19>>*/ }
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
@@ -454,11 +454,12 @@
          /*<<stdlib.ml:272:6>>*/ [0,
           /*<<stdlib.ml:272:11>>*/ caml_int_of_string
            /*<<stdlib.ml:272:11>>*/ (s)];
-      /*<<stdlib.ml:272:6>>*/ return _w_;
+      /*<<stdlib.ml:272:6>>*/ return _w_ /*<<stdlib.ml:272:6>>*/ ;
     }
     catch(_x_){
      var _v_ = caml_wrap_exception(_x_);
-     if(_v_[1] === Failure)  /*<<stdlib.ml:273:20>>*/ return 0;
+     if(_v_[1] === Failure)
+       /*<<stdlib.ml:273:20>>*/ return 0 /*<<stdlib.ml:273:20>>*/ ;
      throw caml_maybe_attach_backtrace(_v_, 0);
     }
     /*<<stdlib.ml:273:24>>*/ }
@@ -473,7 +474,7 @@
      a:
      {
       if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
-       /*<<stdlib.ml:279:2>>*/ return s1;
+       /*<<stdlib.ml:279:2>>*/ return s1 /*<<stdlib.ml:279:2>>*/ ;
      }
      var i$0 =  /*<<stdlib.ml:282:26>>*/ i + 1 | 0;
      i = i$0;
@@ -482,7 +483,7 @@
    function string_of_float(f){
      /*<<stdlib.ml:287:24>>*/ return valid_float_lexem
             ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float
-               /*<<stdlib.ml:287:42>>*/ ("%.12g", f));
+               /*<<stdlib.ml:287:42>>*/ ("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
     /*<<stdlib.ml:287:66>>*/ }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
@@ -491,20 +492,24 @@
          /*<<stdlib.ml:293:6>>*/ [0,
           /*<<stdlib.ml:293:11>>*/ caml_float_of_string
            /*<<stdlib.ml:293:11>>*/ (s)];
-      /*<<stdlib.ml:293:6>>*/ return _t_;
+      /*<<stdlib.ml:293:6>>*/ return _t_ /*<<stdlib.ml:293:6>>*/ ;
     }
     catch(_u_){
      var _s_ = caml_wrap_exception(_u_);
-     if(_s_[1] === Failure)  /*<<stdlib.ml:294:20>>*/ return 0;
+     if(_s_[1] === Failure)
+       /*<<stdlib.ml:294:20>>*/ return 0 /*<<stdlib.ml:294:20>>*/ ;
      throw caml_maybe_attach_backtrace(_s_, 0);
     }
     /*<<stdlib.ml:294:24>>*/ }
    function symbol(l1, l2){
-     /*<<stdlib.ml:299:2>>*/ if(! l1)  /*<<stdlib.ml:300:10>>*/ return l2;
+     /*<<stdlib.ml:299:2>>*/ if(! l1)
+      /*<<stdlib.ml:300:10>>*/ return l2 /*<<stdlib.ml:300:10>>*/ ;
     var _q_ = l1[2], h1 = l1[1];
-    if(! _q_)  /*<<stdlib.ml:301:16>>*/ return [0, h1, l2];
+    if(! _q_)
+      /*<<stdlib.ml:301:16>>*/ return [0, h1, l2] /*<<stdlib.ml:301:16>>*/ ;
     var match = _q_[2], h2 = _q_[1];
-    if(! match)  /*<<stdlib.ml:302:22>>*/ return [0, h1, [0, h2, l2]];
+    if(! match)
+      /*<<stdlib.ml:302:22>>*/ return [0, h1, [0, h2, l2]] /*<<stdlib.ml:302:22>>*/ ;
     var
      tl = match[2],
      h3 = match[1],
@@ -535,7 +540,7 @@
      }
      else
       dst[1 + offset] = l2;
-      /*<<stdlib.ml:303:28>>*/ return [0, h1, [0, h2, block]];
+      /*<<stdlib.ml:303:28>>*/ return [0, h1, [0, h2, block]] /*<<stdlib.ml:303:28>>*/ ;
     }
     /*<<stdlib.ml:303:55>>*/ }
    var
@@ -564,13 +569,13 @@
            /*<<stdlib.ml:331:29>>*/ (name, mode, perm));
      /*<<stdlib.ml:332:2>>*/  /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name
       /*<<stdlib.ml:332:2>>*/ (c, name);
-     /*<<stdlib.ml:332:2>>*/ return c;
+     /*<<stdlib.ml:332:2>>*/ return c /*<<stdlib.ml:332:2>>*/ ;
     /*<<stdlib.ml:333:3>>*/ }
    function open_out(name){
-     /*<<stdlib.ml:336:2>>*/ return open_out_gen(_c_, 438, name);
+     /*<<stdlib.ml:336:2>>*/ return open_out_gen(_c_, 438, name) /*<<stdlib.ml:336:74>>*/ ;
     /*<<stdlib.ml:336:74>>*/ }
    function open_out_bin(name){
-     /*<<stdlib.ml:339:2>>*/ return open_out_gen(_d_, 438, name);
+     /*<<stdlib.ml:339:2>>*/ return open_out_gen(_d_, 438, name) /*<<stdlib.ml:339:76>>*/ ;
     /*<<stdlib.ml:339:76>>*/ }
    function flush_all(param){
     var
@@ -578,7 +583,8 @@
         /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list
          /*<<stdlib.ml:356:10>>*/ (0);
      /*<<stdlib.ml:347:17>>*/ for(;;){
-     if(! param$0)  /*<<stdlib.ml:348:12>>*/ return 0;
+     if(! param$0)
+       /*<<stdlib.ml:348:12>>*/ return 0 /*<<stdlib.ml:348:12>>*/ ;
      var l = param$0[2], a = param$0[1];
       /*<<stdlib.ml:350:8>>*/ try{
        /*<<stdlib.ml:351:12>>*/  /*<<stdlib.ml:351:12>>*/ caml_ml_flush
@@ -593,35 +599,35 @@
     /*<<stdlib.ml:356:32>>*/ }
    function output_bytes(oc, s){
      /*<<stdlib.ml:366:2>>*/ return  /*<<stdlib.ml:366:2>>*/ caml_ml_output_bytes
-             /*<<stdlib.ml:366:2>>*/ (oc, s, 0, caml_ml_bytes_length(s));
+             /*<<stdlib.ml:366:2>>*/ (oc, s, 0, caml_ml_bytes_length(s)) /*<<stdlib.ml:366:39>>*/ ;
     /*<<stdlib.ml:366:39>>*/ }
    function output_string(oc, s){
      /*<<stdlib.ml:369:2>>*/ return  /*<<stdlib.ml:369:2>>*/ caml_ml_output
-             /*<<stdlib.ml:369:2>>*/ (oc, s, 0, caml_ml_string_length(s));
+             /*<<stdlib.ml:369:2>>*/ (oc, s, 0, caml_ml_string_length(s)) /*<<stdlib.ml:369:47>>*/ ;
     /*<<stdlib.ml:369:47>>*/ }
    function output(oc, s, ofs, len){
      /*<<stdlib.ml:372:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:374:7>>*/ return  /*<<stdlib.ml:374:7>>*/ caml_ml_output_bytes
-              /*<<stdlib.ml:374:7>>*/ (oc, s, ofs, len);
-     /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output);
+              /*<<stdlib.ml:374:7>>*/ (oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
+     /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output) /*<<stdlib.ml:374:33>>*/ ;
     /*<<stdlib.ml:374:33>>*/ }
    function output_substring(oc, s, ofs, len){
      /*<<stdlib.ml:377:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:379:7>>*/ return  /*<<stdlib.ml:379:7>>*/ caml_ml_output
-              /*<<stdlib.ml:379:7>>*/ (oc, s, ofs, len);
-     /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring);
+              /*<<stdlib.ml:379:7>>*/ (oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
+     /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
     /*<<stdlib.ml:379:40>>*/ }
    function output_value(chan, v){
      /*<<stdlib.ml:386:26>>*/ return  /*<<stdlib.ml:386:26>>*/ runtime.caml_output_value
-             /*<<stdlib.ml:386:26>>*/ (chan, v, 0);
+             /*<<stdlib.ml:386:26>>*/ (chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
     /*<<stdlib.ml:386:54>>*/ }
    function close_out(oc){
      /*<<stdlib.ml:392:19>>*/  /*<<stdlib.ml:392:19>>*/ caml_ml_flush
       /*<<stdlib.ml:392:19>>*/ (oc);
      /*<<stdlib.ml:392:29>>*/ return  /*<<stdlib.ml:392:29>>*/ caml_ml_close_channel
-             /*<<stdlib.ml:392:29>>*/ (oc);
+             /*<<stdlib.ml:392:29>>*/ (oc) /*<<stdlib.ml:392:49>>*/ ;
     /*<<stdlib.ml:392:49>>*/ }
    function close_out_noerr(oc){
      /*<<stdlib.ml:394:2>>*/ try{
@@ -634,9 +640,9 @@
       _l_ =
          /*<<stdlib.ml:395:7>>*/  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel
           /*<<stdlib.ml:395:7>>*/ (oc);
-      /*<<stdlib.ml:395:7>>*/ return _l_;
+      /*<<stdlib.ml:395:7>>*/ return _l_ /*<<stdlib.ml:395:7>>*/ ;
     }
-    catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0;}
+    catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0 /*<<stdlib.ml:395:38>>*/ ;}
     /*<<stdlib.ml:395:41>>*/ }
    function open_in_gen(mode, perm, name){
     var
@@ -646,25 +652,26 @@
            /*<<stdlib.ml:405:28>>*/ (name, mode, perm));
      /*<<stdlib.ml:406:2>>*/  /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name
       /*<<stdlib.ml:406:2>>*/ (c, name);
-     /*<<stdlib.ml:406:2>>*/ return c;
+     /*<<stdlib.ml:406:2>>*/ return c /*<<stdlib.ml:406:2>>*/ ;
     /*<<stdlib.ml:407:3>>*/ }
    function open_in(name){
-     /*<<stdlib.ml:410:2>>*/ return open_in_gen(_e_, 0, name);
+     /*<<stdlib.ml:410:2>>*/ return open_in_gen(_e_, 0, name) /*<<stdlib.ml:410:45>>*/ ;
     /*<<stdlib.ml:410:45>>*/ }
    function open_in_bin(name){
-     /*<<stdlib.ml:413:2>>*/ return open_in_gen(_f_, 0, name);
+     /*<<stdlib.ml:413:2>>*/ return open_in_gen(_f_, 0, name) /*<<stdlib.ml:413:47>>*/ ;
     /*<<stdlib.ml:413:47>>*/ }
    function input(ic, s, ofs, len){
      /*<<stdlib.ml:421:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:423:7>>*/ return  /*<<stdlib.ml:423:7>>*/ caml_ml_input
-              /*<<stdlib.ml:423:7>>*/ (ic, s, ofs, len);
-     /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input);
+              /*<<stdlib.ml:423:7>>*/ (ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
+     /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input) /*<<stdlib.ml:423:32>>*/ ;
     /*<<stdlib.ml:423:32>>*/ }
    function unsafe_really_input(ic, s, ofs, len){
     var ofs$0 = ofs, len$0 = len;
      /*<<stdlib.ml:426:2>>*/ for(;;){
-     if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
+     if(0 >= len$0)
+       /*<<stdlib.ml:426:19>>*/ return 0 /*<<stdlib.ml:426:19>>*/ ;
      var
       r =
          /*<<stdlib.ml:427:12>>*/  /*<<stdlib.ml:427:12>>*/ caml_ml_input
@@ -680,8 +687,8 @@
    function really_input(ic, s, ofs, len){
      /*<<stdlib.ml:434:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:436:7>>*/ return unsafe_really_input(ic, s, ofs, len);
-     /*<<stdlib.ml:435:7>>*/ return invalid_arg(cst_really_input);
+      /*<<stdlib.ml:436:7>>*/ return unsafe_really_input(ic, s, ofs, len) /*<<stdlib.ml:436:39>>*/ ;
+     /*<<stdlib.ml:435:7>>*/ return invalid_arg(cst_really_input) /*<<stdlib.ml:436:39>>*/ ;
     /*<<stdlib.ml:436:39>>*/ }
    function really_input_string(ic, len){
     var
@@ -689,13 +696,14 @@
         /*<<stdlib.ml:439:10>>*/  /*<<stdlib.ml:439:10>>*/ caml_create_bytes
          /*<<stdlib.ml:439:10>>*/ (len);
      /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
-    return caml_string_of_bytes(s);
+    return caml_string_of_bytes(s) /*<<stdlib.ml:441:26>>*/ ;
     /*<<stdlib.ml:441:26>>*/ }
    function input_line(chan){
     function build_result(buf, pos, param){
      var pos$0 = pos, param$0 = param;
      for(;;){
-      if(! param$0)  /*<<stdlib.ml:447:10>>*/ return buf;
+      if(! param$0)
+        /*<<stdlib.ml:447:10>>*/ return buf /*<<stdlib.ml:447:10>>*/ ;
       var
        tl = param$0[2],
        hd = param$0[1],
@@ -763,7 +771,7 @@
        var _k_ = res;
      }
       /*<<stdlib.ml:471:28>>*/ return  /*<<stdlib.ml:471:28>>*/ caml_string_of_bytes
-              /*<<stdlib.ml:471:28>>*/ (_k_);
+              /*<<stdlib.ml:471:28>>*/ (_k_) /*<<stdlib.ml:471:39>>*/ ;
     }
     /*<<stdlib.ml:471:39>>*/ }
    function close_in_noerr(ic){
@@ -772,90 +780,90 @@
       _i_ =
          /*<<stdlib.ml:480:29>>*/  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel
           /*<<stdlib.ml:480:29>>*/ (ic);
-      /*<<stdlib.ml:480:29>>*/ return _i_;
+      /*<<stdlib.ml:480:29>>*/ return _i_ /*<<stdlib.ml:480:29>>*/ ;
     }
-    catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0;}
+    catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0 /*<<stdlib.ml:480:51>>*/ ;}
     /*<<stdlib.ml:480:54>>*/ }
    function print_char(c){
      /*<<stdlib.ml:486:19>>*/ return  /*<<stdlib.ml:486:19>>*/ caml_ml_output_char
-             /*<<stdlib.ml:486:19>>*/ (stdout, c);
+             /*<<stdlib.ml:486:19>>*/ (stdout, c) /*<<stdlib.ml:486:39>>*/ ;
     /*<<stdlib.ml:486:39>>*/ }
    function print_string(s){
-     /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s);
+     /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s) /*<<stdlib.ml:487:43>>*/ ;
     /*<<stdlib.ml:487:43>>*/ }
    function print_bytes(s){
-     /*<<stdlib.ml:488:20>>*/ return output_bytes(stdout, s);
+     /*<<stdlib.ml:488:20>>*/ return output_bytes(stdout, s) /*<<stdlib.ml:488:41>>*/ ;
     /*<<stdlib.ml:488:41>>*/ }
    function print_int(i){
-     /*<<stdlib.ml:489:18>>*/ return output_string(stdout, "" + i);
+     /*<<stdlib.ml:489:18>>*/ return output_string(stdout, "" + i) /*<<stdlib.ml:489:56>>*/ ;
     /*<<stdlib.ml:489:56>>*/ }
    function print_float(f){
-     /*<<stdlib.ml:490:20>>*/ return output_string(stdout, string_of_float(f));
+     /*<<stdlib.ml:490:20>>*/ return output_string(stdout, string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
     /*<<stdlib.ml:490:60>>*/ }
    function print_endline(s){
      /*<<stdlib.ml:492:2>>*/ output_string(stdout, s);
      /*<<stdlib.ml:492:26>>*/  /*<<stdlib.ml:492:26>>*/ caml_ml_output_char
       /*<<stdlib.ml:492:26>>*/ (stdout, 10);
      /*<<stdlib.ml:492:51>>*/ return  /*<<stdlib.ml:492:51>>*/ caml_ml_flush
-             /*<<stdlib.ml:492:51>>*/ (stdout);
+             /*<<stdlib.ml:492:51>>*/ (stdout) /*<<stdlib.ml:492:63>>*/ ;
     /*<<stdlib.ml:492:63>>*/ }
    function print_newline(param){
      /*<<stdlib.ml:493:23>>*/  /*<<stdlib.ml:493:23>>*/ caml_ml_output_char
       /*<<stdlib.ml:493:23>>*/ (stdout, 10);
      /*<<stdlib.ml:493:48>>*/ return  /*<<stdlib.ml:493:48>>*/ caml_ml_flush
-             /*<<stdlib.ml:493:48>>*/ (stdout);
+             /*<<stdlib.ml:493:48>>*/ (stdout) /*<<stdlib.ml:493:60>>*/ ;
     /*<<stdlib.ml:493:60>>*/ }
    function prerr_char(c){
      /*<<stdlib.ml:497:19>>*/ return  /*<<stdlib.ml:497:19>>*/ caml_ml_output_char
-             /*<<stdlib.ml:497:19>>*/ (stderr, c);
+             /*<<stdlib.ml:497:19>>*/ (stderr, c) /*<<stdlib.ml:497:39>>*/ ;
     /*<<stdlib.ml:497:39>>*/ }
    function prerr_string(s){
-     /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s);
+     /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s) /*<<stdlib.ml:498:43>>*/ ;
     /*<<stdlib.ml:498:43>>*/ }
    function prerr_bytes(s){
-     /*<<stdlib.ml:499:20>>*/ return output_bytes(stderr, s);
+     /*<<stdlib.ml:499:20>>*/ return output_bytes(stderr, s) /*<<stdlib.ml:499:41>>*/ ;
     /*<<stdlib.ml:499:41>>*/ }
    function prerr_int(i){
-     /*<<stdlib.ml:500:18>>*/ return output_string(stderr, "" + i);
+     /*<<stdlib.ml:500:18>>*/ return output_string(stderr, "" + i) /*<<stdlib.ml:500:56>>*/ ;
     /*<<stdlib.ml:500:56>>*/ }
    function prerr_float(f){
-     /*<<stdlib.ml:501:20>>*/ return output_string(stderr, string_of_float(f));
+     /*<<stdlib.ml:501:20>>*/ return output_string(stderr, string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
     /*<<stdlib.ml:501:60>>*/ }
    function prerr_endline(s){
      /*<<stdlib.ml:503:2>>*/ output_string(stderr, s);
      /*<<stdlib.ml:503:26>>*/  /*<<stdlib.ml:503:26>>*/ caml_ml_output_char
       /*<<stdlib.ml:503:26>>*/ (stderr, 10);
      /*<<stdlib.ml:503:51>>*/ return  /*<<stdlib.ml:503:51>>*/ caml_ml_flush
-             /*<<stdlib.ml:503:51>>*/ (stderr);
+             /*<<stdlib.ml:503:51>>*/ (stderr) /*<<stdlib.ml:503:63>>*/ ;
     /*<<stdlib.ml:503:63>>*/ }
    function prerr_newline(param){
      /*<<stdlib.ml:504:23>>*/  /*<<stdlib.ml:504:23>>*/ caml_ml_output_char
       /*<<stdlib.ml:504:23>>*/ (stderr, 10);
      /*<<stdlib.ml:504:48>>*/ return  /*<<stdlib.ml:504:48>>*/ caml_ml_flush
-             /*<<stdlib.ml:504:48>>*/ (stderr);
+             /*<<stdlib.ml:504:48>>*/ (stderr) /*<<stdlib.ml:504:60>>*/ ;
     /*<<stdlib.ml:504:60>>*/ }
    function read_line(param){
      /*<<stdlib.ml:508:19>>*/  /*<<stdlib.ml:508:19>>*/ caml_ml_flush
       /*<<stdlib.ml:508:19>>*/ (stdout);
-     /*<<stdlib.ml:314:12>>*/ return input_line(stdin);
+     /*<<stdlib.ml:314:12>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
     /*<<stdlib.ml:508:49>>*/ }
    function read_int(param){
      /*<<stdlib.ml:509:18>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
-             /*<<stdlib.ml:509:18>>*/ (read_line(0));
+             /*<<stdlib.ml:509:18>>*/ (read_line(0)) /*<<stdlib.ml:509:44>>*/ ;
     /*<<stdlib.ml:509:44>>*/ }
    function read_int_opt(param){
-     /*<<stdlib.ml:510:22>>*/ return int_of_string_opt(read_line(0));
+     /*<<stdlib.ml:510:22>>*/ return int_of_string_opt(read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
     /*<<stdlib.ml:510:52>>*/ }
    function read_float(param){
      /*<<stdlib.ml:511:20>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
-             /*<<stdlib.ml:511:20>>*/ (read_line(0));
+             /*<<stdlib.ml:511:20>>*/ (read_line(0)) /*<<stdlib.ml:511:48>>*/ ;
     /*<<stdlib.ml:511:48>>*/ }
    function read_float_opt(param){
-     /*<<stdlib.ml:512:24>>*/ return float_of_string_opt(read_line(0));
+     /*<<stdlib.ml:512:24>>*/ return float_of_string_opt(read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
     /*<<stdlib.ml:512:56>>*/ }
    function string_of_format(param){
     var str = param[2];
-     /*<<stdlib.ml:538:44>>*/ return str;
+     /*<<stdlib.ml:538:44>>*/ return str /*<<stdlib.ml:538:44>>*/ ;
    }
    function symbol$0(_h_, param){
     var
@@ -869,7 +877,7 @@
               /*<<stdlib.ml:545:10>>*/ (CamlinternalFormatBasics[3],
               fmt1,
               fmt2),
-            str1 + s2];
+            str1 + s2] /*<<stdlib.ml:545:2>>*/ ;
    }
    var exit_function =  /*<<stdlib.ml:559:20>>*/ [0, flush_all];
    function at_exit(f){
@@ -887,29 +895,29 @@
            /*<<stdlib.ml:566:59>>*/  /*<<stdlib.ml:566:59>>*/ caml_call1
             /*<<stdlib.ml:566:59>>*/ (f, 0);
           /*<<stdlib.ml:566:59>>*/ return  /*<<stdlib.ml:566:59>>*/ caml_call1
-                  /*<<stdlib.ml:566:59>>*/ (old_exit$0, 0);
+                  /*<<stdlib.ml:566:59>>*/ (old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
          /*<<stdlib.ml:567:15>>*/ },
       success = caml_atomic_cas(exit_function, old_exit, new_exit),
       _g_ =  /*<<stdlib.ml:570:2>>*/ 1 - success;
-     if(! _g_)  /*<<stdlib.ml:570:2>>*/ return _g_;
+     if(! _g_)  /*<<stdlib.ml:570:2>>*/ return _g_ /*<<stdlib.ml:570:2>>*/ ;
     }
     /*<<stdlib.ml:570:31>>*/ }
    var
     do_domain_local_at_exit =
        /*<<stdlib.ml:572:30>>*/ [0,
        function(param){
-         /*<<stdlib.ml:572:45>>*/ return 0;
+         /*<<stdlib.ml:572:45>>*/ return 0 /*<<stdlib.ml:572:45>>*/ ;
         /*<<stdlib.ml:572:47>>*/ }];
    function do_at_exit(param){
      /*<<stdlib.ml:575:2>>*/  /*<<stdlib.ml:575:2>>*/ caml_call1
       /*<<stdlib.ml:575:2>>*/ (do_domain_local_at_exit[1], 0);
      /*<<stdlib.ml:575:2>>*/ return  /*<<stdlib.ml:575:2>>*/ caml_call1
-             /*<<stdlib.ml:575:2>>*/ (caml_atomic_load(exit_function), 0);
+             /*<<stdlib.ml:575:2>>*/ (caml_atomic_load(exit_function), 0) /*<<stdlib.ml:576:31>>*/ ;
     /*<<stdlib.ml:576:31>>*/ }
    function exit(retcode){
      /*<<stdlib.ml:579:2>>*/ do_at_exit(0);
      /*<<stdlib.ml:580:2>>*/ return  /*<<stdlib.ml:580:2>>*/ runtime.caml_sys_exit
-             /*<<stdlib.ml:580:2>>*/ (retcode);
+             /*<<stdlib.ml:580:2>>*/ (retcode) /*<<stdlib.ml:580:18>>*/ ;
     /*<<stdlib.ml:580:18>>*/ }
     /*<<stdlib.ml:582:8>>*/  /*<<stdlib.ml:582:8>>*/ runtime.caml_register_named_value
      /*<<stdlib.ml:582:8>>*/ ("Pervasives.do_at_exit", do_at_exit);
@@ -1046,62 +1054,64 @@
             : runtime.caml_call_gen(f, [a0, a1]);
    }
    function left(v){
-     /*<<either.ml:18:13>>*/ return [0, v];
+     /*<<either.ml:18:13>>*/ return [0, v] /*<<either.ml:18:13>>*/ ;
     /*<<either.ml:18:19>>*/ }
    function right(v){
-     /*<<either.ml:19:14>>*/ return [1, v];
+     /*<<either.ml:19:14>>*/ return [1, v] /*<<either.ml:19:14>>*/ ;
     /*<<either.ml:19:21>>*/ }
    function is_left(param){
-     /*<<either.ml:21:14>>*/ return 0 === param[0] ? 1 : 0;
+     /*<<either.ml:21:14>>*/ return 0 === param[0] ? 1 : 0 /*<<either.ml:23:18>>*/ ;
     /*<<either.ml:23:18>>*/ }
    function is_right(param){
-     /*<<either.ml:25:15>>*/ return 0 === param[0] ? 0 : 1;
+     /*<<either.ml:25:15>>*/ return 0 === param[0] ? 0 : 1 /*<<either.ml:27:17>>*/ ;
     /*<<either.ml:27:17>>*/ }
    function find_left(param){
      /*<<either.ml:29:16>>*/ if(0 !== param[0])
-      /*<<either.ml:31:13>>*/ return 0;
+      /*<<either.ml:31:13>>*/ return 0 /*<<either.ml:31:13>>*/ ;
     var v = param[1];
-     /*<<either.ml:30:12>>*/ return [0, v];
+     /*<<either.ml:30:12>>*/ return [0, v] /*<<either.ml:30:12>>*/ ;
     /*<<either.ml:31:17>>*/ }
    function find_right(param){
      /*<<either.ml:33:17>>*/ if(0 === param[0])
-      /*<<either.ml:34:12>>*/ return 0;
+      /*<<either.ml:34:12>>*/ return 0 /*<<either.ml:34:12>>*/ ;
     var v = param[1];
-     /*<<either.ml:35:13>>*/ return [0, v];
+     /*<<either.ml:35:13>>*/ return [0, v] /*<<either.ml:35:13>>*/ ;
     /*<<either.ml:35:19>>*/ }
    function map_left(f, e){
-     /*<<?>>*/ if(0 !== e[0])  /*<<either.ml:39:18>>*/ return e;
+     /*<<?>>*/ if(0 !== e[0])
+      /*<<either.ml:39:18>>*/ return e /*<<either.ml:39:18>>*/ ;
     var v = e[1];
      /*<<either.ml:38:12>>*/ return [0,
-             /*<<either.ml:38:17>>*/ caml_call1 /*<<either.ml:38:17>>*/ (f, v)];
+             /*<<either.ml:38:17>>*/ caml_call1 /*<<either.ml:38:17>>*/ (f, v)] /*<<either.ml:38:12>>*/ ;
    }
    function map_right(f, e){
-     /*<<?>>*/ if(0 === e[0])  /*<<either.ml:42:17>>*/ return e;
+     /*<<?>>*/ if(0 === e[0])
+      /*<<either.ml:42:17>>*/ return e /*<<either.ml:42:17>>*/ ;
     var v = e[1];
      /*<<either.ml:43:13>>*/ return [1,
-             /*<<either.ml:43:19>>*/ caml_call1 /*<<either.ml:43:19>>*/ (f, v)];
+             /*<<either.ml:43:19>>*/ caml_call1 /*<<either.ml:43:19>>*/ (f, v)] /*<<either.ml:43:13>>*/ ;
    }
    function map(left, right, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:46:12>>*/ return [0,
               /*<<either.ml:46:17>>*/ caml_call1
-               /*<<either.ml:46:17>>*/ (left, v)];
+               /*<<either.ml:46:17>>*/ (left, v)] /*<<either.ml:46:12>>*/ ;
     }
     var v$0 = param[1];
      /*<<either.ml:47:13>>*/ return [1,
              /*<<either.ml:47:19>>*/ caml_call1
-              /*<<either.ml:47:19>>*/ (right, v$0)];
+              /*<<either.ml:47:19>>*/ (right, v$0)] /*<<either.ml:47:13>>*/ ;
    }
    function fold(left, right, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:50:12>>*/ return  /*<<either.ml:50:12>>*/ caml_call1
-              /*<<either.ml:50:12>>*/ (left, v);
+              /*<<either.ml:50:12>>*/ (left, v) /*<<either.ml:50:12>>*/ ;
     }
     var v$0 = param[1];
      /*<<either.ml:51:13>>*/ return  /*<<either.ml:51:13>>*/ caml_call1
-             /*<<either.ml:51:13>>*/ (right, v$0);
+             /*<<either.ml:51:13>>*/ (right, v$0) /*<<either.ml:51:13>>*/ ;
    }
    function equal(left, right, e1, e2){
      /*<<either.ml:57:31>>*/ if(0 === e1[0]){
@@ -1109,7 +1119,7 @@
      if(0 === e2[0]){
       var v2 = e2[1];
        /*<<either.ml:58:22>>*/ return  /*<<either.ml:58:22>>*/ caml_call2
-               /*<<either.ml:58:22>>*/ (left, v1, v2);
+               /*<<either.ml:58:22>>*/ (left, v1, v2) /*<<either.ml:60:44>>*/ ;
      }
     }
     else{
@@ -1117,24 +1127,26 @@
      if(0 !== e2[0]){
       var v2$0 = e2[1];
        /*<<either.ml:59:24>>*/ return  /*<<either.ml:59:24>>*/ caml_call2
-               /*<<either.ml:59:24>>*/ (right, v1$0, v2$0);
+               /*<<either.ml:59:24>>*/ (right, v1$0, v2$0) /*<<either.ml:60:44>>*/ ;
      }
     }
-     /*<<either.ml:60:39>>*/ return 0;
+     /*<<either.ml:60:39>>*/ return 0 /*<<either.ml:60:39>>*/ ;
     /*<<either.ml:60:44>>*/ }
    function compare(left, right, e1, e2){
      /*<<either.ml:62:33>>*/ if(0 === e1[0]){
      var v1 = e1[1];
-     if(0 !== e2[0])  /*<<either.ml:65:21>>*/ return -1;
+     if(0 !== e2[0])
+       /*<<either.ml:65:21>>*/ return -1 /*<<either.ml:65:21>>*/ ;
      var v2 = e2[1];
       /*<<either.ml:63:22>>*/ return  /*<<either.ml:63:22>>*/ caml_call2
-              /*<<either.ml:63:22>>*/ (left, v1, v2);
+              /*<<either.ml:63:22>>*/ (left, v1, v2) /*<<either.ml:66:22>>*/ ;
     }
     var v1$0 = e1[1];
-    if(0 === e2[0])  /*<<either.ml:66:21>>*/ return 1;
+    if(0 === e2[0])
+      /*<<either.ml:66:21>>*/ return 1 /*<<either.ml:66:21>>*/ ;
     var v2$0 = e2[1];
      /*<<either.ml:64:24>>*/ return  /*<<either.ml:64:24>>*/ caml_call2
-             /*<<either.ml:64:24>>*/ (right, v1$0, v2$0);
+             /*<<either.ml:64:24>>*/ (right, v1$0, v2$0) /*<<either.ml:66:22>>*/ ;
     /*<<either.ml:66:22>>*/ }
    var
     Stdlib_Either =
@@ -1193,16 +1205,18 @@
          /*<<sys.ml.in:60:6>>*/ [0,
           /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv
            /*<<sys.ml.in:60:11>>*/ (s)];
-      /*<<sys.ml.in:60:6>>*/ return _d_;
+      /*<<sys.ml.in:60:6>>*/ return _d_ /*<<sys.ml.in:60:6>>*/ ;
     }
     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:61:20>>*/ return 0 /*<<sys.ml.in:61:20>>*/ ;
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<sys.ml.in:61:24>>*/ }
    var interactive =  /*<<sys.ml.in:72:18>>*/ [0, 0];
-   function set_signal(sig_num, sig_beh){ /*<<sys.ml.in:82:33>>*/ return 0;
+   function set_signal(sig_num, sig_beh){
+     /*<<sys.ml.in:82:33>>*/ return 0 /*<<sys.ml.in:82:39>>*/ ;
     /*<<sys.ml.in:82:63>>*/ }
    var
     Break =
@@ -1210,9 +1224,11 @@
        "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:116:2>>*/ return on ? 0 : 0 /*<<sys.ml.in:119:36>>*/ ;
     /*<<sys.ml.in:119:36>>*/ }
-   function Make(_b_, _a_){ /*<<sys.ml.in:163:70>>*/ return [0, 1];}
+   function Make(_b_, _a_){
+     /*<<sys.ml.in:163:70>>*/ return [0, 1] /*<<sys.ml.in:163:70>>*/ ;
+   }
    var
     Immediate64 =  /*<<sys.ml.in:155:21>>*/ [0, Make],
     Stdlib_Sys =
@@ -1296,11 +1312,11 @@
      /*<<obj.ml:26:34>>*/ return 1 - (typeof a === "number" ? 1 : 0);
     /*<<obj.ml:26:48>>*/ }
    function double_field(x, i){
-     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i];
+     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i] /*<<obj.ml:35:40>>*/ ;
     /*<<obj.ml:35:77>>*/ }
    function set_double_field(x, i, v){
      /*<<obj.ml:37:2>>*/ caml_check_bound(x, i)[1 + i] = v;
-     /*<<obj.ml:37:2>>*/ return 0;
+     /*<<obj.ml:37:2>>*/ return 0 /*<<obj.ml:37:2>>*/ ;
     /*<<obj.ml:37:41>>*/ }
    var
     cst_Obj_extension_constructor = cst_Obj_extension_constructor$1,
@@ -1333,13 +1349,13 @@
             === 252
             ? slot
             :  /*<<obj.ml:85:11>>*/ caml_call1
-               /*<<obj.ml:85:11>>*/ (Stdlib[1], cst_Obj_extension_constructor);
+               /*<<obj.ml:85:11>>*/ (Stdlib[1], cst_Obj_extension_constructor) /*<<obj.ml:85:50>>*/ ;
     /*<<obj.ml:85:50>>*/ }
    function name(slot){
-     /*<<obj.ml:88:5>>*/ return slot[1];
+     /*<<obj.ml:88:5>>*/ return slot[1] /*<<obj.ml:88:9>>*/ ;
     /*<<obj.ml:88:30>>*/ }
    function id(slot){
-     /*<<obj.ml:91:5>>*/ return slot[2];
+     /*<<obj.ml:91:5>>*/ return slot[2] /*<<obj.ml:91:9>>*/ ;
     /*<<obj.ml:91:30>>*/ }
    var
     Extension_constructor =  /*<<obj.ml:72:0>>*/ [0, of_val, name, id],
@@ -1357,7 +1373,7 @@
       /*<<obj.ml:106:6>>*/  /*<<obj.ml:106:6>>*/ caml_call1
        /*<<obj.ml:106:6>>*/ (Stdlib[1], cst_Obj_Ephemeron_create);
      /*<<obj.ml:107:4>>*/ return  /*<<obj.ml:107:4>>*/ runtime.caml_ephe_create
-             /*<<obj.ml:107:4>>*/ (l);
+             /*<<obj.ml:107:4>>*/ (l) /*<<obj.ml:107:12>>*/ ;
     /*<<obj.ml:107:12>>*/ }
    function length(x){
      /*<<obj.ml:109:17>>*/ return x.length - 3 | 0;
@@ -1370,37 +1386,37 @@
     return _e_
             ?  /*<<obj.ml:113:6>>*/ caml_call1
                /*<<obj.ml:113:6>>*/ (Stdlib[1], msg)
-            : _e_;
+            : _e_ /*<<obj.ml:113:21>>*/ ;
     /*<<obj.ml:113:21>>*/ }
    function get_key(e, o){
      /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key);
      /*<<obj.ml:118:4>>*/ return  /*<<obj.ml:118:4>>*/ runtime.caml_ephe_get_key
-             /*<<obj.ml:118:4>>*/ (e, o);
+             /*<<obj.ml:118:4>>*/ (e, o) /*<<obj.ml:118:15>>*/ ;
     /*<<obj.ml:118:15>>*/ }
    function get_key_copy(e, o){
      /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key_copy);
      /*<<obj.ml:123:4>>*/ return  /*<<obj.ml:123:4>>*/ runtime.caml_ephe_get_key_copy
-             /*<<obj.ml:123:4>>*/ (e, o);
+             /*<<obj.ml:123:4>>*/ (e, o) /*<<obj.ml:123:20>>*/ ;
     /*<<obj.ml:123:20>>*/ }
    function set_key(e, o, x){
      /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_set_key);
      /*<<obj.ml:128:4>>*/ return  /*<<obj.ml:128:4>>*/ runtime.caml_ephe_set_key
-             /*<<obj.ml:128:4>>*/ (e, o, x);
+             /*<<obj.ml:128:4>>*/ (e, o, x) /*<<obj.ml:128:17>>*/ ;
     /*<<obj.ml:128:17>>*/ }
    function unset_key(e, o){
      /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_unset_key);
      /*<<obj.ml:133:4>>*/ return  /*<<obj.ml:133:4>>*/ runtime.caml_ephe_unset_key
-             /*<<obj.ml:133:4>>*/ (e, o);
+             /*<<obj.ml:133:4>>*/ (e, o) /*<<obj.ml:133:17>>*/ ;
     /*<<obj.ml:133:17>>*/ }
    function check_key(e, o){
      /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_check_key);
      /*<<obj.ml:138:4>>*/ return  /*<<obj.ml:138:4>>*/ runtime.caml_ephe_check_key
-             /*<<obj.ml:138:4>>*/ (e, o);
+             /*<<obj.ml:138:4>>*/ (e, o) /*<<obj.ml:138:17>>*/ ;
     /*<<obj.ml:138:17>>*/ }
    function blit_key(e1, o1, e2, o2, l){
      /*<<obj.ml:144:4>>*/ if
@@ -1415,10 +1431,10 @@
          ?  /*<<obj.ml:147:24>>*/ runtime.caml_ephe_blit_key
             /*<<obj.ml:147:24>>*/ (e1, o1, e2, o2, l)
          : _a_;
-      /*<<obj.ml:147:24>>*/ return _b_;
+      /*<<obj.ml:147:24>>*/ return _b_ /*<<obj.ml:147:24>>*/ ;
     }
      /*<<obj.ml:146:9>>*/ return  /*<<obj.ml:146:9>>*/ caml_call1
-             /*<<obj.ml:146:9>>*/ (Stdlib[1], cst_Obj_Ephemeron_blit_key);
+             /*<<obj.ml:146:9>>*/ (Stdlib[1], cst_Obj_Ephemeron_blit_key) /*<<obj.ml:147:46>>*/ ;
     /*<<obj.ml:147:46>>*/ }
    var
     Stdlib_Obj =
@@ -1485,7 +1501,7 @@
    function make(param){
     var
      Id =  /*<<type.ml:32:43>>*/ [248, cst_Id, runtime.caml_fresh_oo_id(0)];
-     /*<<type.ml:32:12>>*/ return [0, Id];
+     /*<<type.ml:32:12>>*/ return [0, Id] /*<<type.ml:32:12>>*/ ;
     /*<<type.ml:32:57>>*/ }
    function uid(A){
     var
@@ -1493,10 +1509,10 @@
         /*<<type.ml:35:33>>*/  /*<<type.ml:35:33>>*/ caml_call1
          /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][1], A[1]);
      /*<<type.ml:35:33>>*/ return  /*<<type.ml:35:33>>*/ caml_call1
-             /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][3], _b_);
+             /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][3], _b_) /*<<type.ml:35:72>>*/ ;
     /*<<type.ml:35:72>>*/ }
    function provably_equal(A, B){
-     /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0;
+     /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0 /*<<type.ml:40:50>>*/ ;
     /*<<type.ml:40:50>>*/ }
    var
     Id =  /*<<type.ml:22:12>>*/ [0, make, uid, provably_equal],
@@ -1528,7 +1544,9 @@
    var
     Stdlib_Atomic =
       [0,
-       function(_a_){ /*<<atomic.ml:17:0>>*/ return [0, _a_];},
+       function(_a_){
+         /*<<atomic.ml:17:0>>*/ return [0, _a_] /*<<atomic.ml:17:0>>*/ ;
+       },
        runtime.caml_atomic_make_contended,
        runtime.caml_atomic_load,
        set,
@@ -1584,7 +1602,7 @@
       /*<<camlinternalLazy.ml:64:2>>*/ blk[1] = result$0;
       /*<<camlinternalLazy.ml:65:2>>*/  /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward
        /*<<camlinternalLazy.ml:65:2>>*/ (blk);
-      /*<<camlinternalLazy.ml:65:2>>*/ return result$0;
+      /*<<camlinternalLazy.ml:65:2>>*/ return result$0 /*<<camlinternalLazy.ml:65:2>>*/ ;
     }
     var closure =  /*<<camlinternalLazy.ml:46:25>>*/ blk[1];
      /*<<camlinternalLazy.ml:47:2>>*/ blk[1] = 0;
@@ -1596,7 +1614,7 @@
       /*<<camlinternalLazy.ml:50:4>>*/ blk[1] = result;
       /*<<camlinternalLazy.ml:51:4>>*/  /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward
        /*<<camlinternalLazy.ml:51:4>>*/ (blk);
-      /*<<camlinternalLazy.ml:51:4>>*/ return result;
+      /*<<camlinternalLazy.ml:51:4>>*/ return result /*<<camlinternalLazy.ml:51:4>>*/ ;
     }
     catch(e$0){
      var e = caml_wrap_exception(e$0);
@@ -1612,7 +1630,7 @@
     }
     /*<<camlinternalLazy.ml:75:24>>*/ }
    function force_lazy_block(blk){
-     /*<<camlinternalLazy.ml:78:27>>*/ return force_gen_lazy_block(0, blk);
+     /*<<camlinternalLazy.ml:78:27>>*/ return force_gen_lazy_block(0, blk) /*<<camlinternalLazy.ml:78:67>>*/ ;
     /*<<camlinternalLazy.ml:78:67>>*/ }
    function force_gen(only_val, lzv){
     var
@@ -1620,11 +1638,11 @@
         /*<<camlinternalLazy.ml:99:10>>*/  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag
          /*<<camlinternalLazy.ml:99:10>>*/ (lzv);
     if(t === Stdlib_Obj[12])
-      /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1];
+      /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1] /*<<camlinternalLazy.ml:101:13>>*/ ;
     if(t === Stdlib_Obj[6])
       /*<<camlinternalLazy.ml:103:35>>*/ throw  /*<<camlinternalLazy.ml:103:35>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalLazy.ml:103:35>>*/ (Undefined, 1);
-    return t !== Stdlib_Obj[8] ? lzv : force_gen_lazy_block(only_val, lzv);
+    return t !== Stdlib_Obj[8] ? lzv : force_gen_lazy_block(only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
     /*<<camlinternalLazy.ml:105:41>>*/ }
    var CamlinternalLazy = [0, Undefined, force_lazy_block, force_gen];
    runtime.caml_register_global(2, CamlinternalLazy, "CamlinternalLazy");
@@ -1657,7 +1675,7 @@
     Undefined = CamlinternalLazy[1];
    function force_val(l){
      /*<<lazy.ml:56:18>>*/ return  /*<<lazy.ml:56:18>>*/ caml_call2
-             /*<<lazy.ml:56:18>>*/ (CamlinternalLazy[3], 1, l);
+             /*<<lazy.ml:56:18>>*/ (CamlinternalLazy[3], 1, l) /*<<lazy.ml:56:61>>*/ ;
     /*<<lazy.ml:56:61>>*/ }
    function from_fun(f){
     var
@@ -1665,7 +1683,7 @@
         /*<<lazy.ml:59:10>>*/  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block
          /*<<lazy.ml:59:10>>*/ (Stdlib_Obj[8], 1);
      /*<<lazy.ml:60:2>>*/ x[1] = f;
-     /*<<lazy.ml:60:2>>*/ return x;
+     /*<<lazy.ml:60:2>>*/ return x /*<<lazy.ml:60:2>>*/ ;
     /*<<lazy.ml:61:22>>*/ }
    function from_val(v){
     var
@@ -1675,9 +1693,9 @@
     if
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
-      /*<<lazy.ml:69:5>>*/ return v;
+      /*<<lazy.ml:69:5>>*/ return v /*<<lazy.ml:69:5>>*/ ;
      /*<<lazy.ml:66:52>>*/ return  /*<<lazy.ml:66:52>>*/ runtime.caml_lazy_make_forward
-             /*<<lazy.ml:66:52>>*/ (v);
+             /*<<lazy.ml:66:52>>*/ (v) /*<<lazy.ml:70:5>>*/ ;
     /*<<lazy.ml:70:5>>*/ }
    function is_val(l){
     var _i_ =  /*<<lazy.ml:72:26>>*/ Stdlib_Obj[8];
@@ -1685,7 +1703,7 @@
               /*<<lazy.ml:72:26>>*/ (l)
             !== _i_
             ? 1
-            : 0;
+            : 0 /*<<lazy.ml:72:26>>*/ ;
     /*<<lazy.ml:72:62>>*/ }
    function map(f, x){
      /*<<lazy.ml:75:2>>*/ return [246,
@@ -1699,8 +1717,8 @@
               var _h_ = caml_call1(CamlinternalLazy[2], x);
              }
               /*<<lazy.ml:75:10>>*/ return  /*<<lazy.ml:75:10>>*/ caml_call1
-                      /*<<lazy.ml:75:10>>*/ (f, _h_);
-            }];
+                      /*<<lazy.ml:75:10>>*/ (f, _h_) /*<<lazy.ml:75:10>>*/ ;
+            }] /*<<lazy.ml:75:7>>*/ ;
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
      /*<<lazy.ml:78:2>>*/ if(! is_val(x))
@@ -1715,8 +1733,8 @@
                var _e_ = caml_call1(CamlinternalLazy[2], x);
               }
                /*<<lazy.ml:80:15>>*/ return  /*<<lazy.ml:80:15>>*/ caml_call1
-                       /*<<lazy.ml:80:15>>*/ (f, _e_);
-             }];
+                       /*<<lazy.ml:80:15>>*/ (f, _e_) /*<<lazy.ml:80:15>>*/ ;
+             }] /*<<lazy.ml:80:12>>*/ ;
     var _a_ = caml_obj_tag(x);
     a:
     if(250 === _a_)
@@ -1726,7 +1744,7 @@
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
      /*<<lazy.ml:79:16>>*/ return from_val
-            ( /*<<lazy.ml:79:16>>*/ caml_call1 /*<<lazy.ml:79:16>>*/ (f, _b_));
+            ( /*<<lazy.ml:79:16>>*/ caml_call1 /*<<lazy.ml:79:16>>*/ (f, _b_)) /*<<lazy.ml:80:25>>*/ ;
     /*<<lazy.ml:80:25>>*/ }
    var
     Stdlib_Lazy =
@@ -1771,13 +1789,13 @@
     cst_Seq_take = "Seq.take",
     cst_Seq_drop = "Seq.drop";
    function empty(param){
-     /*<<seq.ml:24:15>>*/ return 0;
+     /*<<seq.ml:24:15>>*/ return 0 /*<<seq.ml:24:15>>*/ ;
     /*<<seq.ml:24:18>>*/ }
    function return$0(x, param){
-     /*<<seq.ml:26:18>>*/ return [0, x, empty];
+     /*<<seq.ml:26:18>>*/ return [0, x, empty] /*<<seq.ml:26:18>>*/ ;
     /*<<seq.ml:26:33>>*/ }
    function cons(x, next, param){
-     /*<<seq.ml:28:21>>*/ return [0, x, next];
+     /*<<seq.ml:28:21>>*/ return [0, x, next] /*<<seq.ml:28:21>>*/ ;
     /*<<seq.ml:28:35>>*/ }
    function append(seq1, seq2, param){
     var
@@ -1786,22 +1804,22 @@
          /*<<seq.ml:31:8>>*/ (seq1, 0);
     if(! match)
       /*<<seq.ml:32:11>>*/ return  /*<<seq.ml:32:11>>*/ caml_call1
-              /*<<seq.ml:32:11>>*/ (seq2, 0);
+              /*<<seq.ml:32:11>>*/ (seq2, 0) /*<<seq.ml:33:48>>*/ ;
     var next = match[2], x = match[1];
      /*<<seq.ml:33:22>>*/ return [0,
             x,
-            function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}];
+            function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}] /*<<seq.ml:33:22>>*/ ;
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
     var
      match =
         /*<<seq.ml:35:29>>*/  /*<<seq.ml:35:29>>*/ caml_call1
          /*<<seq.ml:35:29>>*/ (seq, 0);
-    if(! match)  /*<<seq.ml:36:11>>*/ return 0;
+    if(! match)  /*<<seq.ml:36:11>>*/ return 0 /*<<seq.ml:36:11>>*/ ;
     var next = match[2], x = match[1];
      /*<<seq.ml:37:22>>*/ return [0,
              /*<<seq.ml:37:28>>*/ caml_call1 /*<<seq.ml:37:28>>*/ (f, x),
-            function(_at_){ /*<<?>>*/ return map(f, next, _at_);}];
+            function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:22>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
     var seq$0 = seq;
@@ -1810,7 +1828,7 @@
       match =
          /*<<seq.ml:39:36>>*/  /*<<seq.ml:39:36>>*/ caml_call1
           /*<<seq.ml:39:36>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:40:11>>*/ return 0;
+     if(! match)  /*<<seq.ml:40:11>>*/ return 0 /*<<seq.ml:40:11>>*/ ;
      var
       next = match[2],
       x = match[1],
@@ -1821,7 +1839,7 @@
       var y = match$0[1];
        /*<<seq.ml:44:20>>*/ return [0,
               y,
-              function(_as_){ /*<<?>>*/ return filter_map(f, next, _as_);}];
+              function(_as_){ /*<<?>>*/ return filter_map(f, next, _as_);}] /*<<seq.ml:44:20>>*/ ;
      }
      seq$0 = next;
     }
@@ -1833,13 +1851,13 @@
       match =
          /*<<seq.ml:46:32>>*/  /*<<seq.ml:46:32>>*/ caml_call1
           /*<<seq.ml:46:32>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:47:11>>*/ return 0;
+     if(! match)  /*<<seq.ml:47:11>>*/ return 0 /*<<seq.ml:47:11>>*/ ;
      var next = match[2], x = match[1];
       /*<<seq.ml:49:9>>*/ if
       ( /*<<seq.ml:49:9>>*/ caml_call1 /*<<seq.ml:49:9>>*/ (f, x))
        /*<<seq.ml:50:11>>*/ return [0,
               x,
-              function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}];
+              function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}] /*<<seq.ml:50:11>>*/ ;
      seq$0 = next;
     }
     /*<<seq.ml:51:27>>*/ }
@@ -1848,22 +1866,22 @@
      match =
         /*<<seq.ml:53:30>>*/  /*<<seq.ml:53:30>>*/ caml_call1
          /*<<seq.ml:53:30>>*/ (seq, 0);
-    if(! match)  /*<<seq.ml:54:11>>*/ return 0;
+    if(! match)  /*<<seq.ml:54:11>>*/ return 0 /*<<seq.ml:54:11>>*/ ;
     var next = match[2], x = match[1];
      /*<<seq.ml:56:5>>*/ return append
-            (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0);
+            (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0) /*<<seq.ml:56:30>>*/ ;
     /*<<seq.ml:56:30>>*/ }
    function flat_map(f, seq, param){
     var
      match =
         /*<<seq.ml:58:34>>*/  /*<<seq.ml:58:34>>*/ caml_call1
          /*<<seq.ml:58:34>>*/ (seq, 0);
-    if(! match)  /*<<seq.ml:59:11>>*/ return 0;
+    if(! match)  /*<<seq.ml:59:11>>*/ return 0 /*<<seq.ml:59:11>>*/ ;
     var next = match[2], x = match[1];
      /*<<seq.ml:61:4>>*/ return append
             ( /*<<seq.ml:61:11>>*/ caml_call1 /*<<seq.ml:61:11>>*/ (f, x),
              function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
-             0);
+             0) /*<<seq.ml:61:37>>*/ ;
     /*<<seq.ml:61:37>>*/ }
    function fold_left(f, acc, seq){
     var acc$0 = acc, seq$0 = seq;
@@ -1872,7 +1890,7 @@
       match =
          /*<<seq.ml:66:8>>*/  /*<<seq.ml:66:8>>*/ caml_call1
           /*<<seq.ml:66:8>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
+     if(! match)  /*<<seq.ml:67:13>>*/ return acc$0 /*<<seq.ml:67:13>>*/ ;
      var
       next = match[2],
       x = match[1],
@@ -1890,7 +1908,7 @@
       match =
          /*<<seq.ml:73:8>>*/  /*<<seq.ml:73:8>>*/ caml_call1
           /*<<seq.ml:73:8>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:74:13>>*/ return 0;
+     if(! match)  /*<<seq.ml:74:13>>*/ return 0 /*<<seq.ml:74:13>>*/ ;
      var next = match[2], x = match[1];
       /*<<seq.ml:76:8>>*/  /*<<seq.ml:76:8>>*/ caml_call1
        /*<<seq.ml:76:8>>*/ (f, x);
@@ -1902,26 +1920,26 @@
      match =
         /*<<seq.ml:80:8>>*/  /*<<seq.ml:80:8>>*/ caml_call1
          /*<<seq.ml:80:8>>*/ (f, u);
-    if(! match)  /*<<seq.ml:81:12>>*/ return 0;
+    if(! match)  /*<<seq.ml:81:12>>*/ return 0 /*<<seq.ml:81:12>>*/ ;
     var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
      /*<<seq.ml:82:20>>*/ return [0,
             x,
-            function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}];
+            function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:20>>*/ ;
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
      /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1
               /*<<seq.ml:85:8>>*/ (xs, 0)
             ? 0
-            : 1;
+            : 1 /*<<seq.ml:89:11>>*/ ;
     /*<<seq.ml:89:11>>*/ }
    function uncons(xs){
     var
      match =
         /*<<seq.ml:92:8>>*/  /*<<seq.ml:92:8>>*/ caml_call1
          /*<<seq.ml:92:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:96:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:96:6>>*/ return 0 /*<<seq.ml:96:6>>*/ ;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
+     /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]] /*<<seq.ml:94:6>>*/ ;
     /*<<seq.ml:96:10>>*/ }
    function length(xs$1){
     var accu = 0, xs = xs$1;
@@ -1930,7 +1948,7 @@
       match =
          /*<<seq.ml:101:8>>*/  /*<<seq.ml:101:8>>*/ caml_call1
           /*<<seq.ml:101:8>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:103:6>>*/ return accu;
+     if(! match)  /*<<seq.ml:103:6>>*/ return accu /*<<seq.ml:103:6>>*/ ;
      var xs$0 = match[2], accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
      accu = accu$0;
      xs = xs$0;
@@ -1943,7 +1961,7 @@
       match =
          /*<<seq.ml:111:8>>*/  /*<<seq.ml:111:8>>*/ caml_call1
           /*<<seq.ml:111:8>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:113:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:113:6>>*/ return 0 /*<<seq.ml:113:6>>*/ ;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:115:6>>*/  /*<<seq.ml:115:6>>*/ caml_call2
        /*<<seq.ml:115:6>>*/ (f, i, x);
@@ -1959,7 +1977,7 @@
       match =
          /*<<seq.ml:122:8>>*/  /*<<seq.ml:122:8>>*/ caml_call1
           /*<<seq.ml:122:8>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:124:6>>*/ return accu;
+     if(! match)  /*<<seq.ml:124:6>>*/ return accu /*<<seq.ml:124:6>>*/ ;
      var
       xs$0 = match[2],
       x = match[1],
@@ -1979,14 +1997,15 @@
       match =
          /*<<seq.ml:133:8>>*/  /*<<seq.ml:133:8>>*/ caml_call1
           /*<<seq.ml:133:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:135:6>>*/ return 1;
+     if(! match)  /*<<seq.ml:135:6>>*/ return 1 /*<<seq.ml:135:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       _an_ =
          /*<<seq.ml:137:6>>*/  /*<<seq.ml:137:6>>*/ caml_call1
           /*<<seq.ml:137:6>>*/ (p, x);
-      /*<<seq.ml:137:6>>*/ if(! _an_)  /*<<seq.ml:137:6>>*/ return _an_;
+      /*<<seq.ml:137:6>>*/ if(! _an_)
+       /*<<seq.ml:137:6>>*/ return _an_ /*<<seq.ml:137:6>>*/ ;
      xs$0 = xs$1;
     }
     /*<<seq.ml:137:25>>*/ }
@@ -1997,14 +2016,15 @@
       match =
          /*<<seq.ml:140:8>>*/  /*<<seq.ml:140:8>>*/ caml_call1
           /*<<seq.ml:140:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:142:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:142:6>>*/ return 0 /*<<seq.ml:142:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       _am_ =
          /*<<seq.ml:144:6>>*/  /*<<seq.ml:144:6>>*/ caml_call1
           /*<<seq.ml:144:6>>*/ (p, x);
-      /*<<seq.ml:144:6>>*/ if(_am_)  /*<<seq.ml:144:6>>*/ return _am_;
+      /*<<seq.ml:144:6>>*/ if(_am_)
+       /*<<seq.ml:144:6>>*/ return _am_ /*<<seq.ml:144:6>>*/ ;
      xs$0 = xs$1;
     }
     /*<<seq.ml:144:24>>*/ }
@@ -2015,11 +2035,11 @@
       match =
          /*<<seq.ml:147:8>>*/  /*<<seq.ml:147:8>>*/ caml_call1
           /*<<seq.ml:147:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:149:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:149:6>>*/ return 0 /*<<seq.ml:149:6>>*/ ;
      var xs$1 = match[2], x = match[1];
       /*<<seq.ml:151:9>>*/ if
       ( /*<<seq.ml:151:9>>*/ caml_call1 /*<<seq.ml:151:9>>*/ (p, x))
-       /*<<seq.ml:151:18>>*/ return [0, x];
+       /*<<seq.ml:151:18>>*/ return [0, x] /*<<seq.ml:151:18>>*/ ;
      xs$0 = xs$1;
     }
     /*<<seq.ml:151:39>>*/ }
@@ -2030,11 +2050,11 @@
       match =
          /*<<seq.ml:154:27>>*/  /*<<seq.ml:154:27>>*/ caml_call1
           /*<<seq.ml:154:27>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:156:8>>*/ return 0;
+     if(! match)  /*<<seq.ml:156:8>>*/ return 0 /*<<seq.ml:156:8>>*/ ;
      var xs$1 = match[2], x = match[1];
       /*<<seq.ml:158:11>>*/ if
       ( /*<<seq.ml:158:11>>*/ caml_call1 /*<<seq.ml:158:11>>*/ (p, x))
-       /*<<seq.ml:158:20>>*/ return [0, i];
+       /*<<seq.ml:158:20>>*/ return [0, i] /*<<seq.ml:158:20>>*/ ;
      var i$0 = i + 1 | 0;
      i = i$0;
      xs$0 = xs$1;
@@ -2047,14 +2067,14 @@
       match =
          /*<<seq.ml:162:8>>*/  /*<<seq.ml:162:8>>*/ caml_call1
           /*<<seq.ml:162:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:164:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:164:6>>*/ return 0 /*<<seq.ml:164:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       result =
          /*<<seq.ml:166:12>>*/  /*<<seq.ml:166:12>>*/ caml_call1
           /*<<seq.ml:166:12>>*/ (f, x);
-     if(result)  /*<<seq.ml:170:10>>*/ return result;
+     if(result)  /*<<seq.ml:170:10>>*/ return result /*<<seq.ml:170:10>>*/ ;
      xs$0 = xs$1;
     }
     /*<<seq.ml:170:16>>*/ }
@@ -2065,14 +2085,14 @@
       match =
          /*<<seq.ml:173:27>>*/  /*<<seq.ml:173:27>>*/ caml_call1
           /*<<seq.ml:173:27>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:175:8>>*/ return 0;
+     if(! match)  /*<<seq.ml:175:8>>*/ return 0 /*<<seq.ml:175:8>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       result =
          /*<<seq.ml:177:14>>*/  /*<<seq.ml:177:14>>*/ caml_call2
           /*<<seq.ml:177:14>>*/ (f, i, x);
-     if(result)  /*<<seq.ml:181:12>>*/ return result;
+     if(result)  /*<<seq.ml:181:12>>*/ return result /*<<seq.ml:181:12>>*/ ;
      var i$0 = i + 1 | 0;
      i = i$0;
      xs$0 = xs$1;
@@ -2085,14 +2105,14 @@
       match =
          /*<<seq.ml:192:8>>*/  /*<<seq.ml:192:8>>*/ caml_call1
           /*<<seq.ml:192:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:194:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:194:6>>*/ return 0 /*<<seq.ml:194:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
          /*<<seq.ml:196:12>>*/  /*<<seq.ml:196:12>>*/ caml_call1
           /*<<seq.ml:196:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
+     if(! match$0)  /*<<seq.ml:198:10>>*/ return 0 /*<<seq.ml:198:10>>*/ ;
      var ys$1 = match$0[2], y = match$0[1];
       /*<<seq.ml:200:10>>*/  /*<<seq.ml:200:10>>*/ caml_call2
        /*<<seq.ml:200:10>>*/ (f, x, y);
@@ -2107,14 +2127,15 @@
       match =
          /*<<seq.ml:204:8>>*/  /*<<seq.ml:204:8>>*/ caml_call1
           /*<<seq.ml:204:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
+     if(! match)  /*<<seq.ml:206:6>>*/ return accu$0 /*<<seq.ml:206:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
          /*<<seq.ml:208:12>>*/  /*<<seq.ml:208:12>>*/ caml_call1
           /*<<seq.ml:208:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:210:10>>*/ return accu$0;
+     if(! match$0)
+       /*<<seq.ml:210:10>>*/ return accu$0 /*<<seq.ml:210:10>>*/ ;
      var
       ys$1 = match$0[2],
       y = match$0[1],
@@ -2133,21 +2154,22 @@
       match =
          /*<<seq.ml:216:8>>*/  /*<<seq.ml:216:8>>*/ caml_call1
           /*<<seq.ml:216:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:218:6>>*/ return 1;
+     if(! match)  /*<<seq.ml:218:6>>*/ return 1 /*<<seq.ml:218:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
          /*<<seq.ml:220:12>>*/  /*<<seq.ml:220:12>>*/ caml_call1
           /*<<seq.ml:220:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
+     if(! match$0)  /*<<seq.ml:222:10>>*/ return 1 /*<<seq.ml:222:10>>*/ ;
      var
       ys$1 = match$0[2],
       y = match$0[1],
       _al_ =
          /*<<seq.ml:224:10>>*/  /*<<seq.ml:224:10>>*/ caml_call2
           /*<<seq.ml:224:10>>*/ (f, x, y);
-      /*<<seq.ml:224:10>>*/ if(! _al_)  /*<<seq.ml:224:10>>*/ return _al_;
+      /*<<seq.ml:224:10>>*/ if(! _al_)
+       /*<<seq.ml:224:10>>*/ return _al_ /*<<seq.ml:224:10>>*/ ;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -2159,21 +2181,22 @@
       match =
          /*<<seq.ml:227:8>>*/  /*<<seq.ml:227:8>>*/ caml_call1
           /*<<seq.ml:227:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:229:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:229:6>>*/ return 0 /*<<seq.ml:229:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =
          /*<<seq.ml:231:12>>*/  /*<<seq.ml:231:12>>*/ caml_call1
           /*<<seq.ml:231:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
+     if(! match$0)  /*<<seq.ml:233:10>>*/ return 0 /*<<seq.ml:233:10>>*/ ;
      var
       ys$1 = match$0[2],
       y = match$0[1],
       _ak_ =
          /*<<seq.ml:235:10>>*/  /*<<seq.ml:235:10>>*/ caml_call2
           /*<<seq.ml:235:10>>*/ (f, x, y);
-      /*<<seq.ml:235:10>>*/ if(_ak_)  /*<<seq.ml:235:10>>*/ return _ak_;
+      /*<<seq.ml:235:10>>*/ if(_ak_)
+       /*<<seq.ml:235:10>>*/ return _ak_ /*<<seq.ml:235:10>>*/ ;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -2198,14 +2221,15 @@
         _aj_ =
            /*<<seq.ml:242:6>>*/  /*<<seq.ml:242:6>>*/ caml_call2
             /*<<seq.ml:242:6>>*/ (eq, x, y);
-        /*<<seq.ml:242:6>>*/ if(! _aj_)  /*<<seq.ml:242:6>>*/ return _aj_;
+        /*<<seq.ml:242:6>>*/ if(! _aj_)
+         /*<<seq.ml:242:6>>*/ return _aj_ /*<<seq.ml:242:6>>*/ ;
        xs$0 = xs$1;
        ys$0 = ys$1;
        continue;
       }
      }
-     else if(! match$0)  /*<<seq.ml:240:6>>*/ return 1;
-      /*<<seq.ml:245:6>>*/ return 0;
+     else if(! match$0)  /*<<seq.ml:240:6>>*/ return 1 /*<<seq.ml:240:6>>*/ ;
+      /*<<seq.ml:245:6>>*/ return 0 /*<<seq.ml:245:6>>*/ ;
     }
     /*<<seq.ml:245:11>>*/ }
    function compare(cmp, xs, ys){
@@ -2218,62 +2242,64 @@
       match$0 =
          /*<<seq.ml:248:14>>*/  /*<<seq.ml:248:14>>*/ caml_call1
           /*<<seq.ml:248:14>>*/ (ys$0, 0);
-     if(! match) return match$0 ? -1 : 0;
+     if(! match) return match$0 ? -1 : 0 /*<<seq.ml:257:8>>*/ ;
      var xs$1 = match[2], x = match[1];
-     if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
+     if(! match$0)  /*<<seq.ml:257:6>>*/ return 1 /*<<seq.ml:257:6>>*/ ;
      var
       ys$1 = match$0[2],
       y = match$0[1],
       c =
          /*<<seq.ml:252:14>>*/  /*<<seq.ml:252:14>>*/ caml_call2
           /*<<seq.ml:252:14>>*/ (cmp, x, y);
-      /*<<seq.ml:253:6>>*/ if(0 !== c)  /*<<seq.ml:253:21>>*/ return c;
+      /*<<seq.ml:253:6>>*/ if(0 !== c)
+       /*<<seq.ml:253:21>>*/ return c /*<<seq.ml:253:21>>*/ ;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
     /*<<seq.ml:257:8>>*/ }
    function init_aux(f, i, j, param){
-     /*<<seq.ml:264:2>>*/ if(i >= j)  /*<<seq.ml:268:4>>*/ return 0;
+     /*<<seq.ml:264:2>>*/ if(i >= j)
+      /*<<seq.ml:268:4>>*/ return 0 /*<<seq.ml:268:4>>*/ ;
     var _ah_ = i + 1 | 0;
      /*<<seq.ml:264:16>>*/ return [0,
              /*<<seq.ml:265:10>>*/ caml_call1 /*<<seq.ml:265:10>>*/ (f, i),
-            function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}];
+            function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}] /*<<seq.ml:264:16>>*/ ;
     /*<<seq.ml:268:7>>*/ }
    function init(n, f){
      /*<<seq.ml:271:2>>*/ if(0 > n)
       /*<<seq.ml:272:4>>*/ return  /*<<seq.ml:272:4>>*/ caml_call1
-              /*<<seq.ml:272:4>>*/ (Stdlib[1], cst_Seq_init);
+              /*<<seq.ml:272:4>>*/ (Stdlib[1], cst_Seq_init) /*<<seq.ml:274:18>>*/ ;
     var _af_ = 0;
      /*<<seq.ml:274:4>>*/ return function(_ag_){
-      /*<<?>>*/ return init_aux(f, _af_, n, _ag_);};
+      /*<<?>>*/ return init_aux(f, _af_, n, _ag_);} /*<<seq.ml:274:4>>*/ ;
     /*<<seq.ml:274:18>>*/ }
    function repeat(x, param){
      /*<<seq.ml:277:2>>*/ return [0,
             x,
-            function(_ae_){ /*<<?>>*/ return repeat(x, _ae_);}];
+            function(_ae_){ /*<<?>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:2>>*/ ;
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
      /*<<seq.ml:280:2>>*/ return [0,
              /*<<seq.ml:280:8>>*/ caml_call1 /*<<seq.ml:280:8>>*/ (f, 0),
-            function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}];
+            function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:2>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
      /*<<seq.ml:287:2>>*/ return append
             (xs,
              function(_ac_){ /*<<?>>*/ return cycle_nonempty(xs, _ac_);},
-             0);
+             0) /*<<seq.ml:287:34>>*/ ;
     /*<<seq.ml:287:34>>*/ }
    function cycle(xs, param){
     var
      match =
         /*<<seq.ml:295:8>>*/  /*<<seq.ml:295:8>>*/ caml_call1
          /*<<seq.ml:295:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:297:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:297:6>>*/ return 0 /*<<seq.ml:297:6>>*/ ;
     var xs$0 = match[2], x = match[1];
     function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
      /*<<seq.ml:299:6>>*/ return [0,
             x,
-            function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}];
+            function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}] /*<<seq.ml:299:6>>*/ ;
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
     var
@@ -2282,35 +2308,35 @@
          /*<<seq.ml:306:10>>*/ (f, x);
      /*<<seq.ml:307:2>>*/ return [0,
             y,
-            function(___){ /*<<?>>*/ return iterate1(f, y, ___);}];
+            function(___){ /*<<?>>*/ return iterate1(f, y, ___);}] /*<<seq.ml:307:2>>*/ ;
     /*<<seq.ml:307:24>>*/ }
    function iterate(f, x){
     function next(_Z_){ /*<<?>>*/ return iterate1(f, x, _Z_);}
      /*<<seq.ml:319:9>>*/ return function(_Y_){
-      /*<<seq.ml:28:21>>*/ return [0, x, next];};
+      /*<<seq.ml:28:21>>*/ return [0, x, next] /*<<seq.ml:28:21>>*/ ;} /*<<seq.ml:319:9>>*/ ;
     /*<<seq.ml:319:23>>*/ }
    function mapi_aux(f, i, xs, param){
     var
      match =
         /*<<seq.ml:324:8>>*/  /*<<seq.ml:324:8>>*/ caml_call1
          /*<<seq.ml:324:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:326:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:326:6>>*/ return 0 /*<<seq.ml:326:6>>*/ ;
     var xs$0 = match[2], x = match[1], _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
      /*<<seq.ml:328:6>>*/ return [0,
              /*<<seq.ml:328:12>>*/ caml_call2 /*<<seq.ml:328:12>>*/ (f, i, x),
-            function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}];
+            function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}] /*<<seq.ml:328:6>>*/ ;
     /*<<seq.ml:328:39>>*/ }
    function mapi(f, xs){
     var _U_ = 0;
      /*<<seq.ml:331:2>>*/ return function(_V_){
-      /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);};
+      /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);} /*<<seq.ml:331:2>>*/ ;
     /*<<seq.ml:331:17>>*/ }
    function tail_scan(f, s, xs, param){
     var
      match =
         /*<<seq.ml:340:8>>*/  /*<<seq.ml:340:8>>*/ caml_call1
          /*<<seq.ml:340:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:342:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:342:6>>*/ return 0 /*<<seq.ml:342:6>>*/ ;
     var
      xs$0 = match[2],
      x = match[1],
@@ -2319,12 +2345,12 @@
          /*<<seq.ml:344:14>>*/ (f, s, x);
      /*<<seq.ml:345:6>>*/ return [0,
             s$0,
-            function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}];
+            function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}] /*<<seq.ml:345:6>>*/ ;
     /*<<seq.ml:345:32>>*/ }
    function scan(f, s, xs){
     function next(_S_){ /*<<?>>*/ return tail_scan(f, s, xs, _S_);}
      /*<<seq.ml:348:9>>*/ return function(_R_){
-      /*<<seq.ml:28:21>>*/ return [0, s, next];};
+      /*<<seq.ml:28:21>>*/ return [0, s, next] /*<<seq.ml:28:21>>*/ ;} /*<<seq.ml:348:9>>*/ ;
     /*<<seq.ml:348:27>>*/ }
    function take_aux(n, xs){
      /*<<seq.ml:354:2>>*/ return 0 === n
@@ -2335,16 +2361,17 @@
                match =
                   /*<<seq.ml:358:12>>*/  /*<<seq.ml:358:12>>*/ caml_call1
                    /*<<seq.ml:358:12>>*/ (xs, 0);
-              if(! match)  /*<<seq.ml:360:10>>*/ return 0;
+              if(! match)
+                /*<<seq.ml:360:10>>*/ return 0 /*<<seq.ml:360:10>>*/ ;
               var xs$0 = match[2], x = match[1];
-               /*<<seq.ml:362:10>>*/ return [0, x, take_aux(n - 1 | 0, xs$0)];
-              /*<<seq.ml:362:37>>*/ };
+               /*<<seq.ml:362:10>>*/ return [0, x, take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:10>>*/ ;
+              /*<<seq.ml:362:37>>*/ } /*<<seq.ml:362:37>>*/ ;
     /*<<seq.ml:362:37>>*/ }
    function take(n, xs){
      /*<<seq.ml:365:2>>*/ if(n < 0)
       /*<<seq.ml:365:16>>*/  /*<<seq.ml:365:16>>*/ caml_call1
        /*<<seq.ml:365:16>>*/ (Stdlib[1], cst_Seq_take);
-     /*<<seq.ml:365:16>>*/ return take_aux(n, xs);
+     /*<<seq.ml:365:16>>*/ return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
     /*<<seq.ml:366:15>>*/ }
    function drop(n, xs){
      /*<<seq.ml:387:2>>*/ return 0 <= n
@@ -2359,31 +2386,32 @@
                   match =
                      /*<<seq.ml:373:8>>*/  /*<<seq.ml:373:8>>*/ caml_call1
                       /*<<seq.ml:373:8>>*/ (xs$0, 0);
-                 if(! match)  /*<<seq.ml:375:6>>*/ return 0;
+                 if(! match)
+                   /*<<seq.ml:375:6>>*/ return 0 /*<<seq.ml:375:6>>*/ ;
                  var xs$1 = match[2], n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
                    /*<<seq.ml:379:8>>*/ return  /*<<seq.ml:379:8>>*/ caml_call1
-                           /*<<seq.ml:379:8>>*/ (xs$1, 0);
+                           /*<<seq.ml:379:8>>*/ (xs$1, 0) /*<<seq.ml:392:21>>*/ ;
                  n$0 = n$1;
                  xs$0 = xs$1;
                 }
                 /*<<seq.ml:392:21>>*/ }
             :  /*<<seq.ml:387:16>>*/ caml_call1
-               /*<<seq.ml:387:16>>*/ (Stdlib[1], cst_Seq_drop);
+               /*<<seq.ml:387:16>>*/ (Stdlib[1], cst_Seq_drop) /*<<seq.ml:392:21>>*/ ;
     /*<<seq.ml:392:21>>*/ }
    function take_while(p, xs, param){
     var
      match =
         /*<<seq.ml:395:8>>*/  /*<<seq.ml:395:8>>*/ caml_call1
          /*<<seq.ml:395:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:397:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:397:6>>*/ return 0 /*<<seq.ml:397:6>>*/ ;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:399:9>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1
               /*<<seq.ml:399:9>>*/ (p, x)
             ? [0,
               x,
               function(_Q_){ /*<<?>>*/ return take_while(p, xs$0, _Q_);}]
-            : 0;
+            : 0 /*<<seq.ml:399:52>>*/ ;
     /*<<seq.ml:399:52>>*/ }
    function drop_while(p, xs, param){
     var xs$0 = xs;
@@ -2392,11 +2420,11 @@
       node =
          /*<<seq.ml:402:8>>*/  /*<<seq.ml:402:8>>*/ caml_call1
           /*<<seq.ml:402:8>>*/ (xs$0, 0);
-     if(! node)  /*<<seq.ml:404:6>>*/ return 0;
+     if(! node)  /*<<seq.ml:404:6>>*/ return 0 /*<<seq.ml:404:6>>*/ ;
      var xs$1 = node[2], x = node[1];
       /*<<seq.ml:406:9>>*/ if
       (!  /*<<seq.ml:406:9>>*/ caml_call1 /*<<seq.ml:406:9>>*/ (p, x))
-       /*<<seq.ml:406:42>>*/ return node;
+       /*<<seq.ml:406:42>>*/ return node /*<<seq.ml:406:42>>*/ ;
      xs$0 = xs$1;
     }
     /*<<seq.ml:406:46>>*/ }
@@ -2405,7 +2433,7 @@
      match =
         /*<<seq.ml:409:8>>*/  /*<<seq.ml:409:8>>*/ caml_call1
          /*<<seq.ml:409:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:411:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:411:6>>*/ return 0 /*<<seq.ml:411:6>>*/ ;
     var
      xs$0 = match[2],
      x = match[1],
@@ -2419,8 +2447,10 @@
          /*<<seq.ml:413:31>>*/ (eq, x);
     function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
      /*<<seq.ml:413:6>>*/ return [0,
-            function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
-            function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}];
+            function(_N_){
+              /*<<seq.ml:28:21>>*/ return [0, x, next] /*<<seq.ml:28:21>>*/ ;
+            },
+            function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}] /*<<seq.ml:413:6>>*/ ;
     /*<<seq.ml:413:75>>*/ }
    var
     Forced_twice =
@@ -2439,9 +2469,9 @@
       match =
          /*<<seq.ml:460:10>>*/  /*<<seq.ml:460:10>>*/ caml_call1
           /*<<seq.ml:460:10>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:462:8>>*/ return 0;
+     if(! match)  /*<<seq.ml:462:8>>*/ return 0 /*<<seq.ml:462:8>>*/ ;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:464:8>>*/ return [0, x, memoize(xs$0)];
+      /*<<seq.ml:464:8>>*/ return [0, x, memoize(xs$0)] /*<<seq.ml:464:8>>*/ ;
      /*<<seq.ml:464:28>>*/ }
     var
      s =
@@ -2450,9 +2480,10 @@
      /*<<seq.ml:429:4>>*/ return function(param){
      var _I_ = runtime.caml_obj_tag(s);
      if(250 === _I_) return s[1];
-     if(246 !== _I_ && 244 !== _I_)  /*<<seq.ml:429:4>>*/ return s;
+     if(246 !== _I_ && 244 !== _I_)
+       /*<<seq.ml:429:4>>*/ return s /*<<seq.ml:429:4>>*/ ;
       /*<<seq.ml:429:4>>*/ return  /*<<seq.ml:429:4>>*/ caml_call1
-              /*<<seq.ml:429:4>>*/ (CamlinternalLazy[2], s); /*<<seq.ml:429:26>>*/ };
+              /*<<seq.ml:429:4>>*/ (CamlinternalLazy[2], s) /*<<seq.ml:429:26>>*/ ; /*<<seq.ml:429:26>>*/ } /*<<seq.ml:429:4>>*/ ;
     /*<<seq.ml:465:3>>*/ }
    function once(xs){
     function f(param){
@@ -2460,9 +2491,9 @@
       match =
          /*<<seq.ml:469:10>>*/  /*<<seq.ml:469:10>>*/ caml_call1
           /*<<seq.ml:469:10>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:471:8>>*/ return 0;
+     if(! match)  /*<<seq.ml:471:8>>*/ return 0 /*<<seq.ml:471:8>>*/ ;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:473:8>>*/ return [0, x, once(xs$0)];
+      /*<<seq.ml:473:8>>*/ return [0, x, once(xs$0)] /*<<seq.ml:473:8>>*/ ;
      /*<<seq.ml:473:25>>*/ }
     var
      action =
@@ -2474,43 +2505,43 @@
          /*<<seq.ml:453:14>>*/  /*<<seq.ml:453:14>>*/ caml_call2
           /*<<seq.ml:453:14>>*/ (Stdlib_Atomic[5], action, failure);
       /*<<seq.ml:454:6>>*/ return  /*<<seq.ml:454:6>>*/ caml_call1
-              /*<<seq.ml:454:6>>*/ (f, 0); /*<<seq.ml:454:9>>*/ };
+              /*<<seq.ml:454:6>>*/ (f, 0) /*<<seq.ml:454:9>>*/ ; /*<<seq.ml:454:9>>*/ } /*<<seq.ml:449:4>>*/ ;
     /*<<seq.ml:474:3>>*/ }
    function zip(xs, ys, param){
     var
      match =
         /*<<seq.ml:478:8>>*/  /*<<seq.ml:478:8>>*/ caml_call1
          /*<<seq.ml:478:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:480:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:480:6>>*/ return 0 /*<<seq.ml:480:6>>*/ ;
     var
      xs$0 = match[2],
      x = match[1],
      match$0 =
         /*<<seq.ml:482:12>>*/  /*<<seq.ml:482:12>>*/ caml_call1
          /*<<seq.ml:482:12>>*/ (ys, 0);
-    if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
+    if(! match$0)  /*<<seq.ml:484:10>>*/ return 0 /*<<seq.ml:484:10>>*/ ;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:486:10>>*/ return [0,
             [0, x, y],
-            function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}];
+            function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:10>>*/ ;
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
     var
      match =
         /*<<seq.ml:489:8>>*/  /*<<seq.ml:489:8>>*/ caml_call1
          /*<<seq.ml:489:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:491:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:491:6>>*/ return 0 /*<<seq.ml:491:6>>*/ ;
     var
      xs$0 = match[2],
      x = match[1],
      match$0 =
         /*<<seq.ml:493:12>>*/  /*<<seq.ml:493:12>>*/ caml_call1
          /*<<seq.ml:493:12>>*/ (ys, 0);
-    if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
+    if(! match$0)  /*<<seq.ml:495:10>>*/ return 0 /*<<seq.ml:495:10>>*/ ;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:497:10>>*/ return [0,
              /*<<seq.ml:497:16>>*/ caml_call2 /*<<seq.ml:497:16>>*/ (f, x, y),
-            function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}];
+            function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}] /*<<seq.ml:497:10>>*/ ;
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
     var
@@ -2519,11 +2550,11 @@
          /*<<seq.ml:500:8>>*/ (xs, 0);
     if(! match)
       /*<<seq.ml:502:6>>*/ return  /*<<seq.ml:502:6>>*/ caml_call1
-              /*<<seq.ml:502:6>>*/ (ys, 0);
+              /*<<seq.ml:502:6>>*/ (ys, 0) /*<<seq.ml:504:32>>*/ ;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:504:6>>*/ return [0,
             x,
-            function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}];
+            function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}] /*<<seq.ml:504:6>>*/ ;
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
      /*<<seq.ml:533:2>>*/ return 0
@@ -2536,9 +2567,10 @@
                 match =
                    /*<<seq.ml:519:8>>*/  /*<<seq.ml:519:8>>*/ caml_call1
                     /*<<seq.ml:519:8>>*/ (ys, 0);
-               if(! match)  /*<<seq.ml:521:6>>*/ return [0, x, xs];
+               if(! match)
+                 /*<<seq.ml:521:6>>*/ return [0, x, xs] /*<<seq.ml:521:6>>*/ ;
                var ys$0 = match[2], y = match[1];
-                /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0);
+                /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0) /*<<seq.ml:523:6>>*/ ;
               }]
             : [0,
               x,
@@ -2547,10 +2579,11 @@
                 match =
                    /*<<seq.ml:526:8>>*/  /*<<seq.ml:526:8>>*/ caml_call1
                     /*<<seq.ml:526:8>>*/ (xs, 0);
-               if(! match)  /*<<seq.ml:528:6>>*/ return [0, y, ys];
+               if(! match)
+                 /*<<seq.ml:528:6>>*/ return [0, y, ys] /*<<seq.ml:528:6>>*/ ;
                var xs$0 = match[2], x = match[1];
-                /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys);
-              }];
+                /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys) /*<<seq.ml:530:6>>*/ ;
+              }] /*<<seq.ml:536:40>>*/ ;
     /*<<seq.ml:536:40>>*/ }
    function sorted_merge(cmp, xs, ys, param){
     var
@@ -2563,39 +2596,42 @@
     if(match){
      if(match$0){
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
-       /*<<seq.ml:546:8>>*/ return sorted_merge1(cmp, x, xs$0, y, ys$0);
+       /*<<seq.ml:546:8>>*/ return sorted_merge1(cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
      }
      var c = match;
     }
-    else{if(! match$0)  /*<<seq.ml:541:8>>*/ return 0; var c = match$0;}
-     /*<<seq.ml:544:8>>*/ return c;
+    else{
+     if(! match$0)  /*<<seq.ml:541:8>>*/ return 0 /*<<seq.ml:541:8>>*/ ;
+     var c = match$0;
+    }
+     /*<<seq.ml:544:8>>*/ return c /*<<seq.ml:544:8>>*/ ;
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
     var
      match =
         /*<<seq.ml:550:8>>*/  /*<<seq.ml:550:8>>*/ caml_call1
          /*<<seq.ml:550:8>>*/ (xys, 0);
-    if(! match)  /*<<seq.ml:552:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:552:6>>*/ return 0 /*<<seq.ml:552:6>>*/ ;
     var xys$0 = match[2], x = match[1][1];
      /*<<seq.ml:554:6>>*/ return [0,
             x,
-            function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}];
+            function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:6>>*/ ;
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
     var
      match =
         /*<<seq.ml:557:8>>*/  /*<<seq.ml:557:8>>*/ caml_call1
          /*<<seq.ml:557:8>>*/ (xys, 0);
-    if(! match)  /*<<seq.ml:559:6>>*/ return 0;
+    if(! match)  /*<<seq.ml:559:6>>*/ return 0 /*<<seq.ml:559:6>>*/ ;
     var xys$0 = match[2], y = match[1][2];
      /*<<seq.ml:561:6>>*/ return [0,
             y,
-            function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}];
+            function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:6>>*/ ;
     /*<<seq.ml:561:27>>*/ }
    function unzip(xys){
      /*<<seq.ml:564:2>>*/ return [0,
             function(_A_){ /*<<?>>*/ return map_fst(xys, _A_);},
-            function(_z_){ /*<<?>>*/ return map_snd(xys, _z_);}];
+            function(_z_){ /*<<?>>*/ return map_snd(xys, _z_);}] /*<<seq.ml:564:2>>*/ ;
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
     var xs$0 = xs;
@@ -2604,7 +2640,7 @@
       match =
          /*<<seq.ml:573:8>>*/  /*<<seq.ml:573:8>>*/ caml_call1
           /*<<seq.ml:573:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:575:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:575:6>>*/ return 0 /*<<seq.ml:575:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
@@ -2617,7 +2653,7 @@
               y,
               function(_y_){
                 /*<<?>>*/ return filter_map_find_left_map(f, xs$1, _y_);
-              }];
+              }] /*<<seq.ml:579:10>>*/ ;
      }
      xs$0 = xs$1;
     }
@@ -2629,7 +2665,7 @@
       match =
          /*<<seq.ml:584:8>>*/  /*<<seq.ml:584:8>>*/ caml_call1
           /*<<seq.ml:584:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:586:6>>*/ return 0;
+     if(! match)  /*<<seq.ml:586:6>>*/ return 0 /*<<seq.ml:586:6>>*/ ;
      var
       xs$1 = match[2],
       x = match[1],
@@ -2642,7 +2678,7 @@
               z,
               function(_x_){
                 /*<<?>>*/ return filter_map_find_right_map(f, xs$1, _x_);
-              }];
+              }] /*<<seq.ml:592:10>>*/ ;
      }
      xs$0 = xs$1;
     }
@@ -2654,20 +2690,20 @@
             },
             function(_v_){
               /*<<?>>*/ return filter_map_find_right_map(f, xs, _v_);
-            }];
+            }] /*<<seq.ml:595:2>>*/ ;
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
       /*<<seq.ml:599:32>>*/ return 1
-            -  /*<<seq.ml:599:36>>*/ caml_call1 /*<<seq.ml:599:36>>*/ (p, x);
+            -  /*<<seq.ml:599:36>>*/ caml_call1 /*<<seq.ml:599:36>>*/ (p, x) /*<<seq.ml:599:36>>*/ ;
      /*<<seq.ml:599:41>>*/ }
      /*<<seq.ml:599:2>>*/ return [0,
             function(_u_){ /*<<?>>*/ return filter(p, xs, _u_);},
-            function(_t_){ /*<<?>>*/ return filter(_s_, xs, _t_);}];
+            function(_t_){ /*<<?>>*/ return filter(_s_, xs, _t_);}] /*<<seq.ml:599:2>>*/ ;
     /*<<seq.ml:599:45>>*/ }
    function peel(xss){
      /*<<seq.ml:611:2>>*/ return unzip
-            (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);});
+            (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);}) /*<<seq.ml:611:31>>*/ ;
     /*<<seq.ml:611:31>>*/ }
    function transpose(xss, param){
     var
@@ -2677,8 +2713,9 @@
      /*<<seq.ml:615:5>>*/ if(! is_empty(heads))
       /*<<seq.ml:620:4>>*/ return [0,
              heads,
-             function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}];
-     /*<<seq.ml:616:11>>*/ if(is_empty(tails))  /*<<seq.ml:617:4>>*/ return 0;
+             function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:4>>*/ ;
+     /*<<seq.ml:616:11>>*/ if(is_empty(tails))
+      /*<<seq.ml:617:4>>*/ return 0 /*<<seq.ml:617:4>>*/ ;
      /*<<seq.ml:616:4>>*/ throw  /*<<seq.ml:616:4>>*/ caml_maybe_attach_backtrace
             /*<<seq.ml:616:4>>*/ ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
@@ -2687,7 +2724,8 @@
      match =
         /*<<seq.ml:627:8>>*/  /*<<seq.ml:627:8>>*/ caml_call1
          /*<<seq.ml:627:8>>*/ (xss, 0);
-    if(! match)  /*<<seq.ml:649:6>>*/ return transpose(remainders, 0);
+    if(! match)
+      /*<<seq.ml:649:6>>*/ return transpose(remainders, 0) /*<<seq.ml:649:29>>*/ ;
     var
      xss$0 = match[2],
      xs = match[1],
@@ -2703,11 +2741,13 @@
       heads = match$1[1],
       _l_ =
          /*<<seq.ml:638:40>>*/ function(_p_){
-          /*<<seq.ml:28:21>>*/ return [0, xs$0, tails];
+          /*<<seq.ml:28:21>>*/ return [0, xs$0, tails] /*<<seq.ml:28:21>>*/ ;
         };
       /*<<seq.ml:638:10>>*/ return [0,
-             function(_o_){ /*<<seq.ml:28:21>>*/ return [0, x, heads];},
-             function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}];
+             function(_o_){
+               /*<<seq.ml:28:21>>*/ return [0, x, heads] /*<<seq.ml:28:21>>*/ ;
+             },
+             function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}] /*<<seq.ml:638:10>>*/ ;
     }
     var
      match$2 =  /*<<seq.ml:643:29>>*/ peel(remainders),
@@ -2715,29 +2755,29 @@
      heads$0 = match$2[1];
      /*<<seq.ml:644:10>>*/ return [0,
             heads$0,
-            function(_m_){ /*<<?>>*/ return _b_(tails$0, xss$0, _m_);}];
+            function(_m_){ /*<<?>>*/ return _b_(tails$0, xss$0, _m_);}] /*<<seq.ml:644:10>>*/ ;
     /*<<seq.ml:649:29>>*/ }
    function map_product(f, xs, ys){
     function _f_(x){
      function _j_(y){
        /*<<seq.ml:671:8>>*/ return  /*<<seq.ml:671:8>>*/ caml_call2
-               /*<<seq.ml:671:8>>*/ (f, x, y);
+               /*<<seq.ml:671:8>>*/ (f, x, y) /*<<seq.ml:671:13>>*/ ;
       /*<<seq.ml:671:13>>*/ }
       /*<<seq.ml:670:10>>*/ return function(_k_){
-       /*<<?>>*/ return map(_j_, ys, _k_);};
+       /*<<?>>*/ return map(_j_, ys, _k_);} /*<<seq.ml:670:10>>*/ ;
      /*<<seq.ml:672:10>>*/ }
     function xss(_i_){ /*<<?>>*/ return map(_f_, xs, _i_);}
     function _e_(_h_){ /*<<?>>*/ return _b_(empty, xss, _h_);}
      /*<<seq.ml:668:9>>*/ return function(_g_){
-      /*<<?>>*/ return concat(_e_, _g_);};
+      /*<<?>>*/ return concat(_e_, _g_);} /*<<seq.ml:668:9>>*/ ;
     /*<<seq.ml:674:4>>*/ }
    function product(xs, ys){
      /*<<seq.ml:677:2>>*/ return map_product
             (function(x, y){
-               /*<<seq.ml:677:26>>*/ return [0, x, y];
+               /*<<seq.ml:677:26>>*/ return [0, x, y] /*<<seq.ml:677:26>>*/ ;
               /*<<seq.ml:677:32>>*/ },
              xs,
-             ys);
+             ys) /*<<seq.ml:677:39>>*/ ;
     /*<<seq.ml:677:39>>*/ }
    function of_dispenser(it){
     function c(param){
@@ -2745,11 +2785,11 @@
       match =
          /*<<seq.ml:681:10>>*/  /*<<seq.ml:681:10>>*/ caml_call1
           /*<<seq.ml:681:10>>*/ (it, 0);
-     if(! match)  /*<<seq.ml:683:8>>*/ return 0;
+     if(! match)  /*<<seq.ml:683:8>>*/ return 0 /*<<seq.ml:683:8>>*/ ;
      var x = match[1];
-      /*<<seq.ml:685:8>>*/ return [0, x, c];
+      /*<<seq.ml:685:8>>*/ return [0, x, c] /*<<seq.ml:685:8>>*/ ;
      /*<<seq.ml:685:19>>*/ }
-     /*<<seq.ml:687:2>>*/ return c;
+     /*<<seq.ml:687:2>>*/ return c /*<<seq.ml:687:2>>*/ ;
     /*<<seq.ml:687:3>>*/ }
    function to_dispenser(xs){
     var s =  /*<<seq.ml:690:10>>*/ [0, xs];
@@ -2758,16 +2798,16 @@
       match =
          /*<<seq.ml:692:10>>*/  /*<<seq.ml:692:10>>*/ caml_call1
           /*<<seq.ml:692:10>>*/ (s[1], 0);
-     if(! match)  /*<<seq.ml:694:8>>*/ return 0;
+     if(! match)  /*<<seq.ml:694:8>>*/ return 0 /*<<seq.ml:694:8>>*/ ;
      var xs = match[2], x = match[1];
      s[1] = xs;
-      /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ };
+      /*<<seq.ml:697:8>>*/ return [0, x] /*<<seq.ml:697:8>>*/ ; /*<<seq.ml:697:14>>*/ } /*<<seq.ml:691:2>>*/ ;
     /*<<seq.ml:697:14>>*/ }
    function ints(i, param){
     var _c_ =  /*<<seq.ml:702:2>>*/ i + 1 | 0;
      /*<<seq.ml:702:2>>*/ return [0,
             i,
-            function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}];
+            function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:2>>*/ ;
     /*<<seq.ml:702:24>>*/ }
    var
     Stdlib_Seq =
@@ -2858,91 +2898,99 @@
     Stdlib = global_data.Stdlib,
     cst_option_is_None = "option is None";
    function some(v){
-     /*<<option.ml:19:13>>*/ return [0, v];
+     /*<<option.ml:19:13>>*/ return [0, v] /*<<option.ml:19:13>>*/ ;
     /*<<option.ml:19:19>>*/ }
    function value(o, default$0){
      /*<<option.ml:20:23>>*/ if(! o)
-      /*<<option.ml:20:58>>*/ return default$0;
+      /*<<option.ml:20:58>>*/ return default$0 /*<<option.ml:20:58>>*/ ;
     var v = o[1];
-     /*<<option.ml:20:46>>*/ return v;
+     /*<<option.ml:20:46>>*/ return v /*<<option.ml:20:46>>*/ ;
     /*<<option.ml:20:65>>*/ }
    function get(param){
      /*<<option.ml:21:10>>*/ if(! param)
       /*<<option.ml:21:41>>*/ return  /*<<option.ml:21:41>>*/ caml_call1
-              /*<<option.ml:21:41>>*/ (Stdlib[1], cst_option_is_None);
+              /*<<option.ml:21:41>>*/ (Stdlib[1], cst_option_is_None) /*<<option.ml:21:69>>*/ ;
     var v = param[1];
-     /*<<option.ml:21:29>>*/ return v;
+     /*<<option.ml:21:29>>*/ return v /*<<option.ml:21:29>>*/ ;
     /*<<option.ml:21:69>>*/ }
    function bind(o, f){
-     /*<<option.ml:22:15>>*/ if(! o)  /*<<option.ml:22:36>>*/ return 0;
+     /*<<option.ml:22:15>>*/ if(! o)
+      /*<<option.ml:22:36>>*/ return 0 /*<<option.ml:22:36>>*/ ;
     var v = o[1];
      /*<<option.ml:22:53>>*/ return  /*<<option.ml:22:53>>*/ caml_call1
-             /*<<option.ml:22:53>>*/ (f, v);
+             /*<<option.ml:22:53>>*/ (f, v) /*<<option.ml:22:56>>*/ ;
     /*<<option.ml:22:56>>*/ }
    function join(param){
-     /*<<option.ml:23:11>>*/ if(! param)  /*<<option.ml:23:42>>*/ return 0;
+     /*<<option.ml:23:11>>*/ if(! param)
+      /*<<option.ml:23:42>>*/ return 0 /*<<option.ml:23:42>>*/ ;
     var o = param[1];
-     /*<<option.ml:23:30>>*/ return o;
+     /*<<option.ml:23:30>>*/ return o /*<<option.ml:23:30>>*/ ;
     /*<<option.ml:23:46>>*/ }
    function map(f, o){
-     /*<<option.ml:24:14>>*/ if(! o)  /*<<option.ml:24:35>>*/ return 0;
+     /*<<option.ml:24:14>>*/ if(! o)
+      /*<<option.ml:24:35>>*/ return 0 /*<<option.ml:24:35>>*/ ;
     var v = o[1];
      /*<<option.ml:24:52>>*/ return [0,
-             /*<<option.ml:24:57>>*/ caml_call1 /*<<option.ml:24:57>>*/ (f, v)];
+             /*<<option.ml:24:57>>*/ caml_call1 /*<<option.ml:24:57>>*/ (f, v)] /*<<option.ml:24:52>>*/ ;
     /*<<option.ml:24:62>>*/ }
    function fold(none, some, param){
-     /*<<?>>*/ if(! param)  /*<<option.ml:25:59>>*/ return none;
+     /*<<?>>*/ if(! param)
+      /*<<option.ml:25:59>>*/ return none /*<<option.ml:25:59>>*/ ;
     var v = param[1];
      /*<<option.ml:25:42>>*/ return  /*<<option.ml:25:42>>*/ caml_call1
-             /*<<option.ml:25:42>>*/ (some, v);
+             /*<<option.ml:25:42>>*/ (some, v) /*<<option.ml:25:42>>*/ ;
    }
    function iter(f, param){
-     /*<<?>>*/ if(! param)  /*<<option.ml:26:46>>*/ return 0;
+     /*<<?>>*/ if(! param)
+      /*<<option.ml:26:46>>*/ return 0 /*<<option.ml:26:46>>*/ ;
     var v = param[1];
      /*<<option.ml:26:32>>*/ return  /*<<option.ml:26:32>>*/ caml_call1
-             /*<<option.ml:26:32>>*/ (f, v);
+             /*<<option.ml:26:32>>*/ (f, v) /*<<option.ml:26:32>>*/ ;
    }
    function is_none(param){
-     /*<<option.ml:27:14>>*/ return param ? 0 : 1;
+     /*<<option.ml:27:14>>*/ return param ? 0 : 1 /*<<option.ml:27:53>>*/ ;
     /*<<option.ml:27:53>>*/ }
    function is_some(param){
-     /*<<option.ml:28:14>>*/ return param ? 1 : 0;
+     /*<<option.ml:28:14>>*/ return param ? 1 : 0 /*<<option.ml:28:53>>*/ ;
     /*<<option.ml:28:53>>*/ }
    function equal(eq, o0, o1){
      /*<<option.ml:30:21>>*/ if(o0){
      if(o1){
       var v1 = o1[1], v0 = o0[1];
        /*<<option.ml:31:22>>*/ return  /*<<option.ml:31:22>>*/ caml_call2
-               /*<<option.ml:31:22>>*/ (eq, v0, v1);
+               /*<<option.ml:31:22>>*/ (eq, v0, v1) /*<<option.ml:33:12>>*/ ;
      }
     }
-    else if(! o1)  /*<<option.ml:32:16>>*/ return 1;
-     /*<<option.ml:33:7>>*/ return 0;
+    else if(! o1)  /*<<option.ml:32:16>>*/ return 1 /*<<option.ml:32:16>>*/ ;
+     /*<<option.ml:33:7>>*/ return 0 /*<<option.ml:33:7>>*/ ;
     /*<<option.ml:33:12>>*/ }
    function compare(cmp, o0, o1){
-     /*<<option.ml:35:24>>*/ if(! o0) return o1 ? -1 : 0;
+     /*<<option.ml:35:24>>*/ if(! o0)
+     return o1 ? -1 : 0 /*<<option.ml:39:19>>*/ ;
     var v0 = o0[1];
-    if(! o1)  /*<<option.ml:39:18>>*/ return 1;
+    if(! o1)  /*<<option.ml:39:18>>*/ return 1 /*<<option.ml:39:18>>*/ ;
     var v1 = o1[1];
      /*<<option.ml:36:22>>*/ return  /*<<option.ml:36:22>>*/ caml_call2
-             /*<<option.ml:36:22>>*/ (cmp, v0, v1);
+             /*<<option.ml:36:22>>*/ (cmp, v0, v1) /*<<option.ml:39:19>>*/ ;
     /*<<option.ml:39:19>>*/ }
    function to_result(none, param){
-     /*<<?>>*/ if(! param)  /*<<option.ml:41:39>>*/ return [1, none];
+     /*<<?>>*/ if(! param)
+      /*<<option.ml:41:39>>*/ return [1, none] /*<<option.ml:41:39>>*/ ;
     var v = param[1];
-     /*<<option.ml:41:62>>*/ return [0, v];
+     /*<<option.ml:41:62>>*/ return [0, v] /*<<option.ml:41:62>>*/ ;
    }
    function to_list(param){
-     /*<<option.ml:42:14>>*/ if(! param)  /*<<option.ml:42:31>>*/ return 0;
+     /*<<option.ml:42:14>>*/ if(! param)
+      /*<<option.ml:42:31>>*/ return 0 /*<<option.ml:42:31>>*/ ;
     var v = param[1];
-     /*<<option.ml:42:46>>*/ return [0, v, 0];
+     /*<<option.ml:42:46>>*/ return [0, v, 0] /*<<option.ml:42:46>>*/ ;
     /*<<option.ml:42:49>>*/ }
    function to_seq(param){
      /*<<option.ml:43:13>>*/ if(! param)
-      /*<<option.ml:43:30>>*/ return Stdlib_Seq[20];
+      /*<<option.ml:43:30>>*/ return Stdlib_Seq[20] /*<<option.ml:43:30>>*/ ;
     var v = param[1];
      /*<<option.ml:43:52>>*/ return  /*<<option.ml:43:52>>*/ caml_call1
-             /*<<option.ml:43:52>>*/ (Stdlib_Seq[21], v);
+             /*<<option.ml:43:52>>*/ (Stdlib_Seq[21], v) /*<<option.ml:43:64>>*/ ;
     /*<<option.ml:43:64>>*/ }
    var
     Stdlib_Option =
@@ -2991,81 +3039,87 @@
     cst_result_is_Error = "result is Error _",
     cst_result_is_Ok = "result is Ok _";
    function ok(v){
-     /*<<result.ml:18:11>>*/ return [0, v];
+     /*<<result.ml:18:11>>*/ return [0, v] /*<<result.ml:18:11>>*/ ;
     /*<<result.ml:18:15>>*/ }
    function error(e){
-     /*<<result.ml:19:14>>*/ return [1, e];
+     /*<<result.ml:19:14>>*/ return [1, e] /*<<result.ml:19:14>>*/ ;
     /*<<result.ml:19:21>>*/ }
    function value(r, default$0){
      /*<<result.ml:20:23>>*/ if(0 !== r[0])
-      /*<<result.ml:20:59>>*/ return default$0;
+      /*<<result.ml:20:59>>*/ return default$0 /*<<result.ml:20:59>>*/ ;
     var v = r[1];
-     /*<<result.ml:20:44>>*/ return v;
+     /*<<result.ml:20:44>>*/ return v /*<<result.ml:20:44>>*/ ;
     /*<<result.ml:20:66>>*/ }
    function get_ok(param){
      /*<<result.ml:21:13>>*/ if(0 !== param[0])
       /*<<result.ml:21:45>>*/ return  /*<<result.ml:21:45>>*/ caml_call1
-              /*<<result.ml:21:45>>*/ (Stdlib[1], cst_result_is_Error);
+              /*<<result.ml:21:45>>*/ (Stdlib[1], cst_result_is_Error) /*<<result.ml:21:76>>*/ ;
     var v = param[1];
-     /*<<result.ml:21:30>>*/ return v;
+     /*<<result.ml:21:30>>*/ return v /*<<result.ml:21:30>>*/ ;
     /*<<result.ml:21:76>>*/ }
    function get_error(param){
      /*<<result.ml:22:16>>*/ if(0 === param[0])
       /*<<result.ml:22:48>>*/ return  /*<<result.ml:22:48>>*/ caml_call1
-              /*<<result.ml:22:48>>*/ (Stdlib[1], cst_result_is_Ok);
+              /*<<result.ml:22:48>>*/ (Stdlib[1], cst_result_is_Ok) /*<<result.ml:22:76>>*/ ;
     var e = param[1];
-     /*<<result.ml:22:36>>*/ return e;
+     /*<<result.ml:22:36>>*/ return e /*<<result.ml:22:36>>*/ ;
     /*<<result.ml:22:76>>*/ }
    function bind(r, f){
-     /*<<result.ml:23:15>>*/ if(0 !== r[0])  /*<<result.ml:23:58>>*/ return r;
+     /*<<result.ml:23:15>>*/ if(0 !== r[0])
+      /*<<result.ml:23:58>>*/ return r /*<<result.ml:23:58>>*/ ;
     var v = r[1];
      /*<<result.ml:23:36>>*/ return  /*<<result.ml:23:36>>*/ caml_call1
-             /*<<result.ml:23:36>>*/ (f, v);
+             /*<<result.ml:23:36>>*/ (f, v) /*<<result.ml:23:59>>*/ ;
     /*<<result.ml:23:59>>*/ }
    function join(e){
-     /*<<result.ml:24:11>>*/ if(0 !== e[0])  /*<<result.ml:24:48>>*/ return e;
+     /*<<result.ml:24:11>>*/ if(0 !== e[0])
+      /*<<result.ml:24:48>>*/ return e /*<<result.ml:24:48>>*/ ;
     var r = e[1];
-     /*<<result.ml:24:28>>*/ return r;
+     /*<<result.ml:24:28>>*/ return r /*<<result.ml:24:28>>*/ ;
     /*<<result.ml:24:49>>*/ }
    function map(f, e){
-     /*<<?>>*/ if(0 !== e[0])  /*<<result.ml:25:56>>*/ return e;
+     /*<<?>>*/ if(0 !== e[0])
+      /*<<result.ml:25:56>>*/ return e /*<<result.ml:25:56>>*/ ;
     var v = e[1];
      /*<<result.ml:25:29>>*/ return [0,
-             /*<<result.ml:25:32>>*/ caml_call1 /*<<result.ml:25:32>>*/ (f, v)];
+             /*<<result.ml:25:32>>*/ caml_call1 /*<<result.ml:25:32>>*/ (f, v)] /*<<result.ml:25:29>>*/ ;
    }
    function map_error(f, v){
-     /*<<?>>*/ if(0 === v[0])  /*<<result.ml:26:65>>*/ return v;
+     /*<<?>>*/ if(0 === v[0])
+      /*<<result.ml:26:65>>*/ return v /*<<result.ml:26:65>>*/ ;
     var e = v[1];
      /*<<result.ml:26:38>>*/ return [1,
-             /*<<result.ml:26:44>>*/ caml_call1 /*<<result.ml:26:44>>*/ (f, e)];
+             /*<<result.ml:26:44>>*/ caml_call1 /*<<result.ml:26:44>>*/ (f, e)] /*<<result.ml:26:38>>*/ ;
    }
    function fold(ok, error, param){
      /*<<?>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<result.ml:27:39>>*/ return  /*<<result.ml:27:39>>*/ caml_call1
-              /*<<result.ml:27:39>>*/ (ok, v);
+              /*<<result.ml:27:39>>*/ (ok, v) /*<<result.ml:27:39>>*/ ;
     }
     var e = param[1];
      /*<<result.ml:27:57>>*/ return  /*<<result.ml:27:57>>*/ caml_call1
-             /*<<result.ml:27:57>>*/ (error, e);
+             /*<<result.ml:27:57>>*/ (error, e) /*<<result.ml:27:57>>*/ ;
    }
    function iter(f, param){
-     /*<<?>>*/ if(0 !== param[0])  /*<<result.ml:28:47>>*/ return 0;
+     /*<<?>>*/ if(0 !== param[0])
+      /*<<result.ml:28:47>>*/ return 0 /*<<result.ml:28:47>>*/ ;
     var v = param[1];
      /*<<result.ml:28:30>>*/ return  /*<<result.ml:28:30>>*/ caml_call1
-             /*<<result.ml:28:30>>*/ (f, v);
+             /*<<result.ml:28:30>>*/ (f, v) /*<<result.ml:28:30>>*/ ;
    }
    function iter_error(f, param){
-     /*<<?>>*/ if(0 === param[0])  /*<<result.ml:29:53>>*/ return 0;
+     /*<<?>>*/ if(0 === param[0])
+      /*<<result.ml:29:53>>*/ return 0 /*<<result.ml:29:53>>*/ ;
     var e = param[1];
      /*<<result.ml:29:39>>*/ return  /*<<result.ml:29:39>>*/ caml_call1
-             /*<<result.ml:29:39>>*/ (f, e);
+             /*<<result.ml:29:39>>*/ (f, e) /*<<result.ml:29:39>>*/ ;
    }
    function is_ok(param){
-     /*<<result.ml:30:12>>*/ return 0 === param[0] ? 1 : 0;
+     /*<<result.ml:30:12>>*/ return 0 === param[0] ? 1 : 0 /*<<result.ml:30:52>>*/ ;
     /*<<result.ml:30:52>>*/ }
    function is_error(param){
-     /*<<result.ml:31:15>>*/ return 0 === param[0] ? 0 : 1;
+     /*<<result.ml:31:15>>*/ return 0 === param[0] ? 0 : 1 /*<<result.ml:31:55>>*/ ;
     /*<<result.ml:31:55>>*/ }
    function equal(ok, error, r0, r1){
      /*<<result.ml:33:29>>*/ if(0 === r0[0]){
@@ -3073,7 +3127,7 @@
      if(0 === r1[0]){
       var v1 = r1[1];
        /*<<result.ml:34:18>>*/ return  /*<<result.ml:34:18>>*/ caml_call2
-               /*<<result.ml:34:18>>*/ (ok, v0, v1);
+               /*<<result.ml:34:18>>*/ (ok, v0, v1) /*<<result.ml:36:15>>*/ ;
      }
     }
     else{
@@ -3081,43 +3135,45 @@
      if(0 !== r1[0]){
       var e1 = r1[1];
        /*<<result.ml:35:24>>*/ return  /*<<result.ml:35:24>>*/ caml_call2
-               /*<<result.ml:35:24>>*/ (error, e0, e1);
+               /*<<result.ml:35:24>>*/ (error, e0, e1) /*<<result.ml:36:15>>*/ ;
      }
     }
-     /*<<result.ml:36:10>>*/ return 0;
+     /*<<result.ml:36:10>>*/ return 0 /*<<result.ml:36:10>>*/ ;
     /*<<result.ml:36:15>>*/ }
    function compare(ok, error, r0, r1){
      /*<<result.ml:38:31>>*/ if(0 === r0[0]){
      var v0 = r0[1];
-     if(0 !== r1[0])  /*<<result.ml:41:19>>*/ return -1;
+     if(0 !== r1[0])
+       /*<<result.ml:41:19>>*/ return -1 /*<<result.ml:41:19>>*/ ;
      var v1 = r1[1];
       /*<<result.ml:39:18>>*/ return  /*<<result.ml:39:18>>*/ caml_call2
-              /*<<result.ml:39:18>>*/ (ok, v0, v1);
+              /*<<result.ml:39:18>>*/ (ok, v0, v1) /*<<result.ml:42:20>>*/ ;
     }
     var e0 = r0[1];
-    if(0 === r1[0])  /*<<result.ml:42:19>>*/ return 1;
+    if(0 === r1[0])
+      /*<<result.ml:42:19>>*/ return 1 /*<<result.ml:42:19>>*/ ;
     var e1 = r1[1];
      /*<<result.ml:40:24>>*/ return  /*<<result.ml:40:24>>*/ caml_call2
-             /*<<result.ml:40:24>>*/ (error, e0, e1);
+             /*<<result.ml:40:24>>*/ (error, e0, e1) /*<<result.ml:42:20>>*/ ;
     /*<<result.ml:42:20>>*/ }
    function to_option(param){
      /*<<result.ml:44:16>>*/ if(0 !== param[0])
-      /*<<result.ml:44:53>>*/ return 0;
+      /*<<result.ml:44:53>>*/ return 0 /*<<result.ml:44:53>>*/ ;
     var v = param[1];
-     /*<<result.ml:44:33>>*/ return [0, v];
+     /*<<result.ml:44:33>>*/ return [0, v] /*<<result.ml:44:33>>*/ ;
     /*<<result.ml:44:57>>*/ }
    function to_list(param){
      /*<<result.ml:45:14>>*/ if(0 !== param[0])
-      /*<<result.ml:45:48>>*/ return 0;
+      /*<<result.ml:45:48>>*/ return 0 /*<<result.ml:45:48>>*/ ;
     var v = param[1];
-     /*<<result.ml:45:31>>*/ return [0, v, 0];
+     /*<<result.ml:45:31>>*/ return [0, v, 0] /*<<result.ml:45:31>>*/ ;
     /*<<result.ml:45:50>>*/ }
    function to_seq(param){
      /*<<result.ml:46:13>>*/ if(0 !== param[0])
-      /*<<result.ml:46:56>>*/ return Stdlib_Seq[20];
+      /*<<result.ml:46:56>>*/ return Stdlib_Seq[20] /*<<result.ml:46:56>>*/ ;
     var v = param[1];
      /*<<result.ml:46:30>>*/ return  /*<<result.ml:46:30>>*/ caml_call1
-             /*<<result.ml:46:30>>*/ (Stdlib_Seq[21], v);
+             /*<<result.ml:46:30>>*/ (Stdlib_Seq[21], v) /*<<result.ml:46:65>>*/ ;
     /*<<result.ml:46:65>>*/ }
    var
     Stdlib_Result =
@@ -3158,18 +3214,18 @@
     cst_true = "true",
     cst_false = "false";
    function to_float(param){
-     /*<<bool.ml:24:15>>*/ return param ? 1. : 0.;
+     /*<<bool.ml:24:15>>*/ return param ? 1. : 0. /*<<bool.ml:24:48>>*/ ;
     /*<<bool.ml:24:48>>*/ }
    function to_string(param){
-     /*<<bool.ml:33:16>>*/ return param ? cst_true : cst_false;
+     /*<<bool.ml:33:16>>*/ return param ? cst_true : cst_false /*<<bool.ml:33:58>>*/ ;
     /*<<bool.ml:33:58>>*/ }
    function seeded_hash(seed, x){
      /*<<bool.ml:37:25>>*/ return  /*<<bool.ml:37:25>>*/ caml_hash
-             /*<<bool.ml:37:25>>*/ (10, 100, seed, x);
+             /*<<bool.ml:37:25>>*/ (10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
     /*<<bool.ml:37:56>>*/ }
    function hash(x){
      /*<<bool.ml:38:13>>*/ return  /*<<bool.ml:38:13>>*/ caml_hash
-             /*<<bool.ml:38:13>>*/ (10, 100, 0, x);
+             /*<<bool.ml:38:13>>*/ (10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
     /*<<bool.ml:38:41>>*/ }
    var
     Stdlib_Bool =
@@ -3215,29 +3271,32 @@
     cst_r = "\\r";
    function chr(n){
      /*<<char.ml:22:2>>*/ if(0 <= n && 255 >= n)
-      /*<<char.ml:22:55>>*/ return n;
+      /*<<char.ml:22:55>>*/ return n /*<<char.ml:22:55>>*/ ;
      /*<<char.ml:22:27>>*/ return  /*<<char.ml:22:27>>*/ caml_call1
-             /*<<char.ml:22:27>>*/ (Stdlib[1], cst_Char_chr);
+             /*<<char.ml:22:27>>*/ (Stdlib[1], cst_Char_chr) /*<<char.ml:22:67>>*/ ;
     /*<<char.ml:22:67>>*/ }
    function escaped(c){
     a:
     {
      if(40 <= c){
-      if(92 === c)  /*<<char.ml:31:12>>*/ return cst;
+      if(92 === c)  /*<<char.ml:31:12>>*/ return cst /*<<char.ml:31:12>>*/ ;
       if(127 > c) break a;
      }
      else{
-      if(32 <= c){if(39 <= c)  /*<<char.ml:30:12>>*/ return cst$0; break a;}
+      if(32 <= c){
+       if(39 <= c)  /*<<char.ml:30:12>>*/ return cst$0 /*<<char.ml:30:12>>*/ ;
+       break a;
+      }
       if(14 > c)
        switch(c){
          case 8:
-           /*<<char.ml:35:12>>*/ return cst_b;
+           /*<<char.ml:35:12>>*/ return cst_b /*<<char.ml:35:12>>*/ ;
          case 9:
-           /*<<char.ml:33:12>>*/ return cst_t;
+           /*<<char.ml:33:12>>*/ return cst_t /*<<char.ml:33:12>>*/ ;
          case 10:
-           /*<<char.ml:32:12>>*/ return cst_n;
+           /*<<char.ml:32:12>>*/ return cst_n /*<<char.ml:32:12>>*/ ;
          case 13:
-           /*<<char.ml:34:12>>*/ return cst_r;
+           /*<<char.ml:34:12>>*/ return cst_r /*<<char.ml:34:12>>*/ ;
        }
      }
      var
@@ -3248,20 +3307,20 @@
      caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
      caml_bytes_unsafe_set(s, 2, 48 + ((c / 10 | 0) % 10 | 0) | 0);
      caml_bytes_unsafe_set(s, 3, 48 + (c % 10 | 0) | 0);
-     return caml_string_of_bytes(s);
+     return caml_string_of_bytes(s) /*<<char.ml:47:24>>*/ ;
     }
     var
      s$0 =
         /*<<char.ml:37:14>>*/  /*<<char.ml:37:14>>*/ caml_create_bytes
          /*<<char.ml:37:14>>*/ (1);
     caml_bytes_unsafe_set(s$0, 0, c);
-    return caml_string_of_bytes(s$0);
+    return caml_string_of_bytes(s$0) /*<<char.ml:47:24>>*/ ;
     /*<<char.ml:47:24>>*/ }
    function lowercase_ascii(c){
-     /*<<char.ml:49:22>>*/ return 25 < c - 65 >>> 0 ? c : c + 32 | 0;
+     /*<<char.ml:49:22>>*/ return 25 < c - 65 >>> 0 ? c : c + 32 | 0 /*<<char.ml:51:10>>*/ ;
     /*<<char.ml:51:10>>*/ }
    function uppercase_ascii(c){
-     /*<<char.ml:53:22>>*/ return 25 < c - 97 >>> 0 ? c : c - 32 | 0;
+     /*<<char.ml:53:22>>*/ return 25 < c - 97 >>> 0 ? c : c - 32 | 0 /*<<char.ml:55:10>>*/ ;
     /*<<char.ml:55:10>>*/ }
    function compare(c1, c2){
      /*<<char.ml:59:20>>*/ return c1 - c2 | 0;
@@ -3271,11 +3330,11 @@
     /*<<char.ml:60:45>>*/ }
    function seeded_hash(seed, x){
      /*<<char.ml:64:25>>*/ return  /*<<char.ml:64:25>>*/ caml_hash
-             /*<<char.ml:64:25>>*/ (10, 100, seed, x);
+             /*<<char.ml:64:25>>*/ (10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
     /*<<char.ml:64:56>>*/ }
    function hash(x){
      /*<<char.ml:65:13>>*/ return  /*<<char.ml:65:13>>*/ caml_hash
-             /*<<char.ml:65:13>>*/ (10, 100, 0, x);
+             /*<<char.ml:65:13>>*/ (10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
     /*<<char.ml:65:41>>*/ }
    var
     Stdlib_Char =
@@ -3328,12 +3387,12 @@
    function succ(u){
      /*<<uchar.ml:34:2>>*/ return u === 55295
             ? hi_bound
-            : u === 1114111 ? caml_call1(Stdlib[1], err_no_succ) : u + 1 | 0;
+            : u === 1114111 ? caml_call1(Stdlib[1], err_no_succ) : u + 1 | 0 /*<<uchar.ml:36:7>>*/ ;
     /*<<uchar.ml:36:7>>*/ }
    function pred(u){
      /*<<uchar.ml:39:2>>*/ return u === 57344
             ? lo_bound
-            : u === 0 ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0;
+            : u === 0 ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0 /*<<uchar.ml:41:7>>*/ ;
     /*<<uchar.ml:41:7>>*/ }
    function is_valid(i){
     var _n_ = 0 <= i ? 1 : 0, _o_ = _n_ ? i <= 55295 ? 1 : 0 : _n_;
@@ -3344,7 +3403,8 @@
     return _p_;
     /*<<uchar.ml:43:75>>*/ }
    function of_int(i){
-     /*<<uchar.ml:44:15>>*/ if(is_valid(i))  /*<<uchar.ml:44:34>>*/ return i;
+     /*<<uchar.ml:44:15>>*/ if(is_valid(i))
+      /*<<uchar.ml:44:34>>*/ return i /*<<uchar.ml:44:34>>*/ ;
     var
      _m_ =
         /*<<uchar.ml:20:19>>*/  /*<<uchar.ml:20:19>>*/ caml_call2
@@ -3353,16 +3413,17 @@
            /*<<uchar.ml:20:19>>*/ ("%X", i),
          cst_is_not_an_Unicode_scalar_v);
      /*<<uchar.ml:44:53>>*/ return  /*<<uchar.ml:44:53>>*/ caml_call1
-             /*<<uchar.ml:44:53>>*/ (Stdlib[1], _m_);
+             /*<<uchar.ml:44:53>>*/ (Stdlib[1], _m_) /*<<uchar.ml:44:67>>*/ ;
     /*<<uchar.ml:44:67>>*/ }
    function is_char(u){
      /*<<uchar.ml:48:16>>*/ return u < 256 ? 1 : 0;
     /*<<uchar.ml:48:23>>*/ }
    function of_char(c){
-     /*<<uchar.ml:49:16>>*/ return c;
+     /*<<uchar.ml:49:16>>*/ return c /*<<uchar.ml:49:16>>*/ ;
     /*<<uchar.ml:49:27>>*/ }
    function to_char(u){
-     /*<<uchar.ml:51:2>>*/ if(255 >= u)  /*<<uchar.ml:52:2>>*/ return u;
+     /*<<uchar.ml:51:2>>*/ if(255 >= u)
+      /*<<uchar.ml:52:2>>*/ return u /*<<uchar.ml:52:2>>*/ ;
     var
      _k_ =
         /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
@@ -3374,7 +3435,7 @@
         /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
          /*<<uchar.ml:21:30>>*/ (Stdlib[28], cst_U, _k_);
      /*<<uchar.ml:51:30>>*/ return  /*<<uchar.ml:51:30>>*/ caml_call1
-             /*<<uchar.ml:51:30>>*/ (Stdlib[1], _l_);
+             /*<<uchar.ml:51:30>>*/ (Stdlib[1], _l_) /*<<uchar.ml:52:19>>*/ ;
     /*<<uchar.ml:52:19>>*/ }
    function unsafe_to_char(_j_){ /*<<?>>*/ return _j_;}
    function equal(_i_, _h_){ /*<<?>>*/ return _i_ === _h_ ? 1 : 0;}
@@ -3404,23 +3465,27 @@
      /*<<uchar.ml:79:26>>*/ if(0 > u)
       /*<<uchar.ml:80:18>>*/ throw  /*<<uchar.ml:80:18>>*/ caml_maybe_attach_backtrace
              /*<<uchar.ml:80:18>>*/ ([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:81:9>>*/ if(127 >= u)
+      /*<<uchar.ml:81:24>>*/ return 1 /*<<uchar.ml:81:24>>*/ ;
+     /*<<uchar.ml:82:9>>*/ if(2047 >= u)
+      /*<<uchar.ml:82:24>>*/ return 2 /*<<uchar.ml:82:24>>*/ ;
+     /*<<uchar.ml:83:9>>*/ if(65535 >= u)
+      /*<<uchar.ml:83:24>>*/ return 3 /*<<uchar.ml:83:24>>*/ ;
      /*<<uchar.ml:84:9>>*/ if(1114111 < u)
       /*<<uchar.ml:85:7>>*/ throw  /*<<uchar.ml:85:7>>*/ caml_maybe_attach_backtrace
              /*<<uchar.ml:85:7>>*/ ([0, Assert_failure, _a_], 1);
-     /*<<uchar.ml:84:26>>*/ return 4;
+     /*<<uchar.ml:84:26>>*/ return 4 /*<<uchar.ml:84:26>>*/ ;
     /*<<uchar.ml:85: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:88:18>>*/ ([0, Assert_failure, _d_], 1);
-     /*<<uchar.ml:89:9>>*/ if(65535 >= u)  /*<<uchar.ml:89:24>>*/ return 2;
+     /*<<uchar.ml:89:9>>*/ if(65535 >= u)
+      /*<<uchar.ml:89:24>>*/ return 2 /*<<uchar.ml:89:24>>*/ ;
      /*<<uchar.ml:90:9>>*/ if(1114111 < u)
       /*<<uchar.ml:91:7>>*/ throw  /*<<uchar.ml:91:7>>*/ caml_maybe_attach_backtrace
              /*<<uchar.ml:91:7>>*/ ([0, Assert_failure, _c_], 1);
-     /*<<uchar.ml:90:26>>*/ return 4;
+     /*<<uchar.ml:90:26>>*/ return 4 /*<<uchar.ml:90:26>>*/ ;
     /*<<uchar.ml:91:19>>*/ }
    var
     Stdlib_Uchar =
@@ -3492,40 +3557,41 @@
    function length(l$0){
     var len = 0, param = l$0;
     for(;;){
-     if(! param)  /*<<list.ml:22:10>>*/ return len;
+     if(! param)  /*<<list.ml:22:10>>*/ return len /*<<list.ml:22:10>>*/ ;
      var l = param[2], len$0 =  /*<<list.ml:23:12>>*/ len + 1 | 0;
      len = len$0;
      param = l;
     }
     /*<<list.ml:25:29>>*/ }
    function cons(a, l){
-     /*<<list.ml:27:15>>*/ return [0, a, l];
+     /*<<list.ml:27:15>>*/ return [0, a, l] /*<<list.ml:27:15>>*/ ;
     /*<<list.ml:27:19>>*/ }
    function hd(param){
      /*<<list.ml:29:9>>*/ if(! param)
       /*<<list.ml:30:10>>*/ return  /*<<list.ml:30:10>>*/ caml_call1
-              /*<<list.ml:30:10>>*/ (Stdlib[2], cst_hd);
+              /*<<list.ml:30:10>>*/ (Stdlib[2], cst_hd) /*<<list.ml:31:13>>*/ ;
     var a = param[1];
-     /*<<list.ml:31:12>>*/ return a;
+     /*<<list.ml:31:12>>*/ return a /*<<list.ml:31:12>>*/ ;
     /*<<list.ml:31:13>>*/ }
    function tl(param){
      /*<<list.ml:33:9>>*/ if(! param)
       /*<<list.ml:34:10>>*/ return  /*<<list.ml:34:10>>*/ caml_call1
-              /*<<list.ml:34:10>>*/ (Stdlib[2], cst_tl);
+              /*<<list.ml:34:10>>*/ (Stdlib[2], cst_tl) /*<<list.ml:35:13>>*/ ;
     var l = param[2];
-     /*<<list.ml:35:12>>*/ return l;
+     /*<<list.ml:35:12>>*/ return l /*<<list.ml:35:12>>*/ ;
     /*<<list.ml:35:13>>*/ }
    function nth(l, n){
      /*<<list.ml:38:2>>*/ if(0 > n)
       /*<<list.ml:38:16>>*/ return  /*<<list.ml:38:16>>*/ caml_call1
-              /*<<list.ml:38:16>>*/ (Stdlib[1], cst_List_nth);
+              /*<<list.ml:38:16>>*/ (Stdlib[1], cst_List_nth) /*<<list.ml:43:16>>*/ ;
     var l$0 = l, n$0 = n;
      /*<<list.ml:40:4>>*/ for(;;){
      if(! l$0)
        /*<<list.ml:41:12>>*/ return  /*<<list.ml:41:12>>*/ caml_call1
-               /*<<list.ml:41:12>>*/ (Stdlib[2], cst_nth);
+               /*<<list.ml:41:12>>*/ (Stdlib[2], cst_nth) /*<<list.ml:43:16>>*/ ;
      var l$1 = l$0[2], a = l$0[1];
-      /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
+      /*<<list.ml:42:14>>*/ if(0 === n$0)
+       /*<<list.ml:42:28>>*/ return a /*<<list.ml:42:28>>*/ ;
      var n$1 =  /*<<list.ml:42:35>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
@@ -3534,13 +3600,13 @@
    function nth_opt(l, n){
      /*<<list.ml:46:2>>*/ if(0 > n)
       /*<<list.ml:46:16>>*/ return  /*<<list.ml:46:16>>*/ caml_call1
-              /*<<list.ml:46:16>>*/ (Stdlib[1], cst_List_nth$0);
+              /*<<list.ml:46:16>>*/ (Stdlib[1], cst_List_nth$0) /*<<list.ml:51:16>>*/ ;
     var l$0 = l, n$0 = n;
      /*<<list.ml:48:4>>*/ for(;;){
-     if(! l$0)  /*<<list.ml:49:12>>*/ return 0;
+     if(! l$0)  /*<<list.ml:49:12>>*/ return 0 /*<<list.ml:49:12>>*/ ;
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:50:14>>*/ if(0 === n$0)
-       /*<<list.ml:50:28>>*/ return [0, a];
+       /*<<list.ml:50:28>>*/ return [0, a] /*<<list.ml:50:28>>*/ ;
      var n$1 =  /*<<list.ml:50:40>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
@@ -3562,7 +3628,7 @@
    function rev_append(l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:56:2>>*/ for(;;){
-     if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
+     if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0 /*<<list.ml:57:10>>*/ ;
      var
       l1$1 = l1$0[2],
       a = l1$0[1],
@@ -3572,18 +3638,18 @@
     }
     /*<<list.ml:58:36>>*/ }
    function rev(l){
-     /*<<list.ml:60:12>>*/ return rev_append(l, 0);
+     /*<<list.ml:60:12>>*/ return rev_append(l, 0) /*<<list.ml:60:27>>*/ ;
     /*<<list.ml:60:27>>*/ }
    function init(len, f){
      /*<<list.ml:71:2>>*/ if(0 > len)
       /*<<list.ml:71:18>>*/ return  /*<<list.ml:71:18>>*/ caml_call1
-              /*<<list.ml:71:18>>*/ (Stdlib[1], cst_List_init);
+              /*<<list.ml:71:18>>*/ (Stdlib[1], cst_List_init) /*<<list.ml:72:20>>*/ ;
     var last = len - 1 | 0, i$1 = 0;
-    if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
+    if(last < 0)  /*<<list.ml:63:19>>*/ return 0 /*<<list.ml:63:19>>*/ ;
     if(0 === last)
       /*<<list.ml:64:24>>*/ return [0,
               /*<<list.ml:64:25>>*/ caml_call1 /*<<list.ml:64:25>>*/ (f, i$1),
-             0];
+             0] /*<<list.ml:64:24>>*/ ;
     var
      r1 =
         /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1
@@ -3618,24 +3684,26 @@
       dst[1 + offset] =
        [0,  /*<<list.ml:64:25>>*/ caml_call1 /*<<list.ml:64:25>>*/ (f, i), 0];
      }
-      /*<<list.ml:68:4>>*/ return [0, r1, block];
+      /*<<list.ml:68:4>>*/ return [0, r1, block] /*<<list.ml:68:4>>*/ ;
     }
     /*<<list.ml:72:20>>*/ }
    function flatten(param){
-     /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
+     /*<<list.ml:74:18>>*/ if(! param)
+      /*<<list.ml:75:10>>*/ return 0 /*<<list.ml:75:10>>*/ ;
     var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
      /*<<list.ml:76:16>>*/ return  /*<<list.ml:76:16>>*/ caml_call2
-             /*<<list.ml:76:16>>*/ (Stdlib[37], l, _I_);
+             /*<<list.ml:76:16>>*/ (Stdlib[37], l, _I_) /*<<list.ml:76:25>>*/ ;
     /*<<list.ml:76:25>>*/ }
    function map(f, param){
-     /*<<?>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
+     /*<<?>>*/ if(! param)
+      /*<<list.ml:81:10>>*/ return 0 /*<<list.ml:81:10>>*/ ;
     var match = param[2], a1 = param[1];
     if(! match){
      var
       r1$0 =
          /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1
           /*<<list.ml:83:15>>*/ (f, a1);
-      /*<<list.ml:84:6>>*/ return [0, r1$0, 0];
+      /*<<list.ml:84:6>>*/ return [0, r1$0, 0] /*<<list.ml:84:6>>*/ ;
     }
     var
      l = match[2],
@@ -3678,19 +3746,19 @@
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:88:6>>*/ return [0, r1, block];
+      /*<<list.ml:88:6>>*/ return [0, r1, block] /*<<list.ml:88:6>>*/ ;
     }
    }
    function mapi(f, l$1){
     var i$1 = 0;
-    if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
+    if(! l$1)  /*<<list.ml:91:10>>*/ return 0 /*<<list.ml:91:10>>*/ ;
     var match = l$1[2], a1 = l$1[1];
     if(! match){
      var
       r1$0 =
          /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2
           /*<<list.ml:93:15>>*/ (f, i$1, a1);
-      /*<<list.ml:94:6>>*/ return [0, r1$0, 0];
+      /*<<list.ml:94:6>>*/ return [0, r1$0, 0] /*<<list.ml:94:6>>*/ ;
     }
     var
      l = match[2],
@@ -3736,13 +3804,13 @@
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:98:6>>*/ return [0, r1, block];
+      /*<<list.ml:98:6>>*/ return [0, r1, block] /*<<list.ml:98:6>>*/ ;
     }
     /*<<list.ml:100:25>>*/ }
    function rev_map(f, l){
     var accu = 0, param = l;
     for(;;){
-     if(! param)  /*<<list.ml:104:12>>*/ return accu;
+     if(! param)  /*<<list.ml:104:12>>*/ return accu /*<<list.ml:104:12>>*/ ;
      var
       l$0 = param[2],
       a = param[1],
@@ -3757,7 +3825,7 @@
    function iter(f, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:111:10>>*/ return 0 /*<<list.ml:111:10>>*/ ;
      var l = param$0[2], a = param$0[1];
       /*<<list.ml:112:12>>*/  /*<<list.ml:112:12>>*/ caml_call1
        /*<<list.ml:112:12>>*/ (f, a);
@@ -3767,7 +3835,7 @@
    function iteri(f, l$0){
     var i = 0, param = l$0;
     for(;;){
-     if(! param)  /*<<list.ml:115:10>>*/ return 0;
+     if(! param)  /*<<list.ml:115:10>>*/ return 0 /*<<list.ml:115:10>>*/ ;
      var l = param[2], a = param[1];
       /*<<list.ml:116:12>>*/  /*<<list.ml:116:12>>*/ caml_call2
        /*<<list.ml:116:12>>*/ (f, i, a);
@@ -3779,7 +3847,7 @@
    function fold_left(f, accu, l){
     var accu$0 = accu, l$0 = l;
      /*<<list.ml:121:2>>*/ for(;;){
-     if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
+     if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0 /*<<list.ml:122:10>>*/ ;
      var
       l$1 = l$0[2],
       a = l$0[1],
@@ -3791,10 +3859,11 @@
     }
     /*<<list.ml:123:36>>*/ }
    function fold_right(f, l, accu){
-     /*<<list.ml:126:2>>*/ if(! l)  /*<<list.ml:127:10>>*/ return accu;
+     /*<<list.ml:126:2>>*/ if(! l)
+      /*<<list.ml:127:10>>*/ return accu /*<<list.ml:127:10>>*/ ;
     var l$0 = l[2], a = l[1];
      /*<<list.ml:128:16>>*/ return  /*<<list.ml:128:16>>*/ caml_call2
-             /*<<list.ml:128:16>>*/ (f, a, fold_right(f, l$0, accu));
+             /*<<list.ml:128:16>>*/ (f, a, fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
     /*<<list.ml:128:37>>*/ }
    function map2(f, l1, l2){
      /*<<list.ml:131:2>>*/ if(l1){
@@ -3864,7 +3933,7 @@
           else if(! l2$1){dst[1 + offset] = 0; break a;}
           dst[1 + offset] = caml_call1(Stdlib[1], cst_List_map2$0);
          }
-          /*<<list.ml:139:6>>*/ return [0, r1, block];
+          /*<<list.ml:139:6>>*/ return [0, r1, block] /*<<list.ml:139:6>>*/ ;
         }
        }
       }
@@ -3875,12 +3944,12 @@
        r1$0 =
           /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
            /*<<list.ml:134:15>>*/ (f, a1, b1$0);
-       /*<<list.ml:135:6>>*/ return [0, r1$0, 0];
+       /*<<list.ml:135:6>>*/ return [0, r1$0, 0] /*<<list.ml:135:6>>*/ ;
      }
     }
-    else if(! l2)  /*<<list.ml:132:16>>*/ return 0;
+    else if(! l2)  /*<<list.ml:132:16>>*/ return 0 /*<<list.ml:132:16>>*/ ;
      /*<<list.ml:140:14>>*/ return  /*<<list.ml:140:14>>*/ caml_call1
-             /*<<list.ml:140:14>>*/ (Stdlib[1], cst_List_map2);
+             /*<<list.ml:140:14>>*/ (Stdlib[1], cst_List_map2) /*<<list.ml:140:37>>*/ ;
     /*<<list.ml:140:37>>*/ }
    function rev_map2(f, l1, l2){
     var accu = 0, l1$0 = l1, l2$0 = l2;
@@ -3903,9 +3972,10 @@
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:145:18>>*/ return accu;
+     else if(! l2$0)
+       /*<<list.ml:145:18>>*/ return accu /*<<list.ml:145:18>>*/ ;
       /*<<list.ml:147:16>>*/ return  /*<<list.ml:147:16>>*/ caml_call1
-              /*<<list.ml:147:16>>*/ (Stdlib[1], cst_List_rev_map2);
+              /*<<list.ml:147:16>>*/ (Stdlib[1], cst_List_rev_map2) /*<<list.ml:149:18>>*/ ;
     }
     /*<<list.ml:149:18>>*/ }
    function iter2(f, l1, l2){
@@ -3921,9 +3991,9 @@
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:154:16>>*/ return 0;
+     else if(! l2$0)  /*<<list.ml:154:16>>*/ return 0 /*<<list.ml:154:16>>*/ ;
       /*<<list.ml:156:14>>*/ return  /*<<list.ml:156:14>>*/ caml_call1
-              /*<<list.ml:156:14>>*/ (Stdlib[1], cst_List_iter2);
+              /*<<list.ml:156:14>>*/ (Stdlib[1], cst_List_iter2) /*<<list.ml:156:38>>*/ ;
     }
     /*<<list.ml:156:38>>*/ }
    function fold_left2(f, accu, l1, l2){
@@ -3945,9 +4015,10 @@
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:160:16>>*/ return accu$0;
+     else if(! l2$0)
+       /*<<list.ml:160:16>>*/ return accu$0 /*<<list.ml:160:16>>*/ ;
       /*<<list.ml:162:14>>*/ return  /*<<list.ml:162:14>>*/ caml_call1
-              /*<<list.ml:162:14>>*/ (Stdlib[1], cst_List_fold_left2);
+              /*<<list.ml:162:14>>*/ (Stdlib[1], cst_List_fold_left2) /*<<list.ml:162:43>>*/ ;
     }
     /*<<list.ml:162:43>>*/ }
    function fold_right2(f, l1, l2, accu){
@@ -3958,38 +4029,40 @@
                /*<<list.ml:167:32>>*/ (f,
                a1,
                a2,
-               fold_right2(f, l1$0, l2$0, accu));
+               fold_right2(f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
      }
     }
-    else if(! l2)  /*<<list.ml:166:16>>*/ return accu;
+    else if(! l2)  /*<<list.ml:166:16>>*/ return accu /*<<list.ml:166:16>>*/ ;
      /*<<list.ml:168:14>>*/ return  /*<<list.ml:168:14>>*/ caml_call1
-             /*<<list.ml:168:14>>*/ (Stdlib[1], cst_List_fold_right2);
+             /*<<list.ml:168:14>>*/ (Stdlib[1], cst_List_fold_right2) /*<<list.ml:168:44>>*/ ;
     /*<<list.ml:168:44>>*/ }
    function for_all(p, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
+     if(! param$0)  /*<<list.ml:171:10>>*/ return 1 /*<<list.ml:171:10>>*/ ;
      var
       l = param$0[2],
       a = param$0[1],
       _F_ =
          /*<<list.ml:172:12>>*/  /*<<list.ml:172:12>>*/ caml_call1
           /*<<list.ml:172:12>>*/ (p, a);
-      /*<<list.ml:172:12>>*/ if(! _F_)  /*<<list.ml:172:12>>*/ return _F_;
+      /*<<list.ml:172:12>>*/ if(! _F_)
+       /*<<list.ml:172:12>>*/ return _F_ /*<<list.ml:172:12>>*/ ;
      param$0 = l;
     }
    }
    function exists(p, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:175:10>>*/ return 0 /*<<list.ml:175:10>>*/ ;
      var
       l = param$0[2],
       a = param$0[1],
       _E_ =
          /*<<list.ml:176:12>>*/  /*<<list.ml:176:12>>*/ caml_call1
           /*<<list.ml:176:12>>*/ (p, a);
-      /*<<list.ml:176:12>>*/ if(_E_)  /*<<list.ml:176:12>>*/ return _E_;
+      /*<<list.ml:176:12>>*/ if(_E_)
+       /*<<list.ml:176:12>>*/ return _E_ /*<<list.ml:176:12>>*/ ;
      param$0 = l;
     }
    }
@@ -4006,15 +4079,16 @@
         _D_ =
            /*<<list.ml:181:24>>*/  /*<<list.ml:181:24>>*/ caml_call2
             /*<<list.ml:181:24>>*/ (p, a1, a2);
-        /*<<list.ml:181:24>>*/ if(! _D_)  /*<<list.ml:181:24>>*/ return _D_;
+        /*<<list.ml:181:24>>*/ if(! _D_)
+         /*<<list.ml:181:24>>*/ return _D_ /*<<list.ml:181:24>>*/ ;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:180:16>>*/ return 1;
+     else if(! l2$0)  /*<<list.ml:180:16>>*/ return 1 /*<<list.ml:180:16>>*/ ;
       /*<<list.ml:182:14>>*/ return  /*<<list.ml:182:14>>*/ caml_call1
-              /*<<list.ml:182:14>>*/ (Stdlib[1], cst_List_for_all2);
+              /*<<list.ml:182:14>>*/ (Stdlib[1], cst_List_for_all2) /*<<list.ml:182:41>>*/ ;
     }
     /*<<list.ml:182:41>>*/ }
    function exists2(p, l1, l2){
@@ -4030,21 +4104,22 @@
         _C_ =
            /*<<list.ml:187:24>>*/  /*<<list.ml:187:24>>*/ caml_call2
             /*<<list.ml:187:24>>*/ (p, a1, a2);
-        /*<<list.ml:187:24>>*/ if(_C_)  /*<<list.ml:187:24>>*/ return _C_;
+        /*<<list.ml:187:24>>*/ if(_C_)
+         /*<<list.ml:187:24>>*/ return _C_ /*<<list.ml:187:24>>*/ ;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:186:16>>*/ return 0;
+     else if(! l2$0)  /*<<list.ml:186:16>>*/ return 0 /*<<list.ml:186:16>>*/ ;
       /*<<list.ml:188:14>>*/ return  /*<<list.ml:188:14>>*/ caml_call1
-              /*<<list.ml:188:14>>*/ (Stdlib[1], cst_List_exists2);
+              /*<<list.ml:188:14>>*/ (Stdlib[1], cst_List_exists2) /*<<list.ml:188:40>>*/ ;
     }
     /*<<list.ml:188:40>>*/ }
    function mem(x, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:191:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:191:10>>*/ return 0 /*<<list.ml:191:10>>*/ ;
      var
       l = param$0[2],
       a = param$0[1],
@@ -4061,7 +4136,7 @@
    function memq(x, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:195:10>>*/ return 0 /*<<list.ml:195:10>>*/ ;
      var l = param$0[2], a = param$0[1], _A_ = a === x ? 1 : 0;
      if(_A_) return _A_;
      param$0 = l;
@@ -4077,19 +4152,19 @@
       /*<<list.ml:200:19>>*/ if
       (0
        ===  /*<<list.ml:200:19>>*/ caml_compare /*<<list.ml:200:19>>*/ (a, x))
-       /*<<list.ml:200:40>>*/ return b;
+       /*<<list.ml:200:40>>*/ return b /*<<list.ml:200:40>>*/ ;
      param$0 = l;
     }
    }
    function assoc_opt(x, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:203:10>>*/ return 0 /*<<list.ml:203:10>>*/ ;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
       /*<<list.ml:204:19>>*/ if
       (0
        ===  /*<<list.ml:204:19>>*/ caml_compare /*<<list.ml:204:19>>*/ (a, x))
-       /*<<list.ml:204:40>>*/ return [0, b];
+       /*<<list.ml:204:40>>*/ return [0, b] /*<<list.ml:204:40>>*/ ;
      param$0 = l;
     }
    }
@@ -4100,23 +4175,24 @@
        /*<<list.ml:207:10>>*/ throw  /*<<list.ml:207:10>>*/ caml_maybe_attach_backtrace
               /*<<list.ml:207:10>>*/ (Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-     if(a === x)  /*<<list.ml:208:31>>*/ return b;
+     if(a === x)  /*<<list.ml:208:31>>*/ return b /*<<list.ml:208:31>>*/ ;
      param$0 = l;
     }
    }
    function assq_opt(x, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:211:10>>*/ return 0 /*<<list.ml:211:10>>*/ ;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-     if(a === x)  /*<<list.ml:212:31>>*/ return [0, b];
+     if(a === x)
+       /*<<list.ml:212:31>>*/ return [0, b] /*<<list.ml:212:31>>*/ ;
      param$0 = l;
     }
    }
    function mem_assoc(x, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:215:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:215:10>>*/ return 0 /*<<list.ml:215:10>>*/ ;
      var
       l = param$0[2],
       a = param$0[1][1],
@@ -4133,14 +4209,15 @@
    function mem_assq(x, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:219:10>>*/ return 0 /*<<list.ml:219:10>>*/ ;
      var l = param$0[2], a = param$0[1][1], _y_ = a === x ? 1 : 0;
      if(_y_) return _y_;
      param$0 = l;
     }
    }
    function remove_assoc(x, param){
-     /*<<?>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
+     /*<<?>>*/ if(! param)
+      /*<<list.ml:223:10>>*/ return 0 /*<<list.ml:223:10>>*/ ;
     var l = param[2], pair = param[1], a = pair[1];
      /*<<list.ml:225:9>>*/ return 0
             ===
@@ -4149,7 +4226,8 @@
             : [0, pair, remove_assoc(x, l)];
    }
    function remove_assq(x, param){
-     /*<<?>>*/ if(! param)  /*<<list.ml:228:10>>*/ return 0;
+     /*<<?>>*/ if(! param)
+      /*<<list.ml:228:10>>*/ return 0 /*<<list.ml:228:10>>*/ ;
     var l = param[2], pair = param[1], a = pair[1];
     return a === x ? l : [0, pair, remove_assq(x, l)];
    }
@@ -4162,18 +4240,18 @@
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:233:17>>*/ if
       ( /*<<list.ml:233:17>>*/ caml_call1 /*<<list.ml:233:17>>*/ (p, x))
-       /*<<list.ml:233:26>>*/ return x;
+       /*<<list.ml:233:26>>*/ return x /*<<list.ml:233:26>>*/ ;
      param$0 = l;
     }
    }
    function find_opt(p, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:236:10>>*/ return 0 /*<<list.ml:236:10>>*/ ;
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:237:17>>*/ if
       ( /*<<list.ml:237:17>>*/ caml_call1 /*<<list.ml:237:17>>*/ (p, x))
-       /*<<list.ml:237:26>>*/ return [0, x];
+       /*<<list.ml:237:26>>*/ return [0, x] /*<<list.ml:237:26>>*/ ;
      param$0 = l;
     }
    }
@@ -4182,27 +4260,27 @@
      /*<<list.ml:243:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
      for(;;){
-      if(! param)  /*<<list.ml:241:10>>*/ return 0;
+      if(! param)  /*<<list.ml:241:10>>*/ return 0 /*<<list.ml:241:10>>*/ ;
       var l = param[2], a = param[1];
        /*<<list.ml:242:17>>*/ if
        ( /*<<list.ml:242:17>>*/ caml_call1 /*<<list.ml:242:17>>*/ (p, a))
-        /*<<list.ml:242:26>>*/ return [0, i$0];
+        /*<<list.ml:242:26>>*/ return [0, i$0] /*<<list.ml:242:26>>*/ ;
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
       param = l;
-     }};
+     }} /*<<list.ml:243:2>>*/ ;
     /*<<list.ml:243:7>>*/ }
    function find_map(f, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:246:10>>*/ return 0 /*<<list.ml:246:10>>*/ ;
      var
       l = param$0[2],
       x = param$0[1],
       result =
          /*<<list.ml:248:17>>*/  /*<<list.ml:248:17>>*/ caml_call1
           /*<<list.ml:248:17>>*/ (f, x);
-     if(result)  /*<<list.ml:249:29>>*/ return result;
+     if(result)  /*<<list.ml:249:29>>*/ return result /*<<list.ml:249:29>>*/ ;
      param$0 = l;
     }
    }
@@ -4211,23 +4289,24 @@
      /*<<list.ml:261:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
      for(;;){
-      if(! param)  /*<<list.ml:255:10>>*/ return 0;
+      if(! param)  /*<<list.ml:255:10>>*/ return 0 /*<<list.ml:255:10>>*/ ;
       var
        l = param[2],
        x = param[1],
        result =
           /*<<list.ml:257:17>>*/  /*<<list.ml:257:17>>*/ caml_call2
            /*<<list.ml:257:17>>*/ (f, i$0, x);
-      if(result)  /*<<list.ml:258:29>>*/ return result;
+      if(result)
+        /*<<list.ml:258:29>>*/ return result /*<<list.ml:258:29>>*/ ;
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
       param = l;
-     }};
+     }} /*<<list.ml:261:2>>*/ ;
     /*<<list.ml:261:7>>*/ }
    function find_all(p, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:264:10>>*/ return 0 /*<<list.ml:264:10>>*/ ;
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:265:17>>*/ if
       ( /*<<list.ml:265:17>>*/ caml_call1 /*<<list.ml:265:17>>*/ (p, x)){
@@ -4239,7 +4318,7 @@
       for(;;){
        if(! param$1){
         dst[1 + offset] = 0;
-         /*<<list.ml:265:31>>*/ return block;
+         /*<<list.ml:265:31>>*/ return block /*<<list.ml:265:31>>*/ ;
        }
        var l$0 = param$1[2], x$0 = param$1[1];
         /*<<list.ml:265:17>>*/ if
@@ -4261,7 +4340,7 @@
    function filteri(p, l$1){
     var i = 0, param = l$1;
     for(;;){
-     if(! param)  /*<<list.ml:270:10>>*/ return 0;
+     if(! param)  /*<<list.ml:270:10>>*/ return 0 /*<<list.ml:270:10>>*/ ;
      var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
       /*<<list.ml:273:9>>*/ if
       ( /*<<list.ml:273:9>>*/ caml_call2 /*<<list.ml:273:9>>*/ (p, i, x))
@@ -4276,7 +4355,10 @@
      i$1 = i$0,
      param$0 = l;
     for(;;){
-     if(! param$0){dst[1 + offset] = 0;  /*<<list.ml:273:25>>*/ return block;}
+     if(! param$0){
+      dst[1 + offset] = 0;
+       /*<<list.ml:273:25>>*/ return block /*<<list.ml:273:25>>*/ ;
+     }
      var
       l$0 = param$0[2],
       x$0 = param$0[1],
@@ -4296,7 +4378,7 @@
    function filter_map(f, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:278:10>>*/ return 0 /*<<list.ml:278:10>>*/ ;
      var
       l = param$0[2],
       x = param$0[1],
@@ -4313,7 +4395,7 @@
       for(;;){
        if(! param$1){
         dst[1 + offset] = 0;
-         /*<<list.ml:282:23>>*/ return block;
+         /*<<list.ml:282:23>>*/ return block /*<<list.ml:282:23>>*/ ;
        }
        var
         l$0 = param$1[2],
@@ -4339,7 +4421,7 @@
    function concat_map(f, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:285:10>>*/ return 0 /*<<list.ml:285:10>>*/ ;
      var
       xs = param$0[2],
       x = param$0[1],
@@ -4367,7 +4449,10 @@
         ys$2 = ys$3;
        }
        else{
-        if(! xs$1){dst[1 + offset] = 0;  /*<<list.ml:290:20>>*/ return block;}
+        if(! xs$1){
+         dst[1 + offset] = 0;
+          /*<<list.ml:290:20>>*/ return block /*<<list.ml:290:20>>*/ ;
+        }
         var
          xs$0 = xs$1[2],
          x$0 = xs$1[1],
@@ -4385,7 +4470,8 @@
    function fold_left_map(f, accu, l){
     var accu$0 = accu, l_accu = 0, param = l;
     for(;;){
-     if(! param)  /*<<list.ml:294:12>>*/ return [0, accu$0, rev(l_accu)];
+     if(! param)
+       /*<<list.ml:294:12>>*/ return [0, accu$0, rev(l_accu)] /*<<list.ml:294:12>>*/ ;
      var
       l$0 = param[2],
       x = param[1],
@@ -4405,7 +4491,7 @@
     for(;;){
      if(! param){
       var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
-       /*<<list.ml:302:10>>*/ return [0, rev(yes), _x_];
+       /*<<list.ml:302:10>>*/ return [0, rev(yes), _x_] /*<<list.ml:302:10>>*/ ;
      }
      var l$0 = param[2], x = param[1];
       /*<<list.ml:303:17>>*/ if
@@ -4426,7 +4512,7 @@
     for(;;){
      if(! param){
       var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
-       /*<<list.ml:308:10>>*/ return [0, rev(left), _w_];
+       /*<<list.ml:308:10>>*/ return [0, rev(left), _w_] /*<<list.ml:308:10>>*/ ;
      }
      var
       l$0 = param[2],
@@ -4447,7 +4533,8 @@
     }
     /*<<list.ml:315:14>>*/ }
    function split(param){
-     /*<<list.ml:317:16>>*/ if(! param)  /*<<list.ml:318:10>>*/ return _a_;
+     /*<<list.ml:317:16>>*/ if(! param)
+      /*<<list.ml:318:10>>*/ return _a_ /*<<list.ml:318:10>>*/ ;
     var
      l = param[2],
      match = param[1],
@@ -4456,29 +4543,30 @@
      match$0 =  /*<<list.ml:320:21>>*/ 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:32>>*/ return [0, [0, x, rx], [0, y, ry]] /*<<list.ml:320:32>>*/ ;
     /*<<list.ml:320:46>>*/ }
    function combine(l1, l2){
      /*<<list.ml:323: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:325:24>>*/ return [0, [0, a1, a2], combine(l1$0, l2$0)] /*<<list.ml:325:24>>*/ ;
      }
     }
-    else if(! l2)  /*<<list.ml:324:16>>*/ return 0;
+    else if(! l2)  /*<<list.ml:324:16>>*/ return 0 /*<<list.ml:324:16>>*/ ;
      /*<<list.ml:326:14>>*/ return  /*<<list.ml:326:14>>*/ caml_call1
-             /*<<list.ml:326:14>>*/ (Stdlib[1], cst_List_combine);
+             /*<<list.ml:326:14>>*/ (Stdlib[1], cst_List_combine) /*<<list.ml:326:40>>*/ ;
     /*<<list.ml:326: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:331:2>>*/ if(! l1)
+      /*<<list.ml:332:14>>*/ return l2 /*<<list.ml:332:14>>*/ ;
+    if(! l2)  /*<<list.ml:333:14>>*/ return l1 /*<<list.ml:333:14>>*/ ;
     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
                /*<<list.ml:335:9>>*/ (cmp, h1, h2)
             ? [0, h2, merge(cmp, l1, t2)]
-            : [0, h1, merge(cmp, t1, l2)];
+            : [0, h1, merge(cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
     /*<<list.ml:337:32>>*/ }
    function stable_sort(cmp, l){
     function sort(n, l){
@@ -4497,7 +4585,7 @@
                /*<<list.ml:362:19>>*/ (cmp, x1, x2)
             ? [0, x2, [0, x1, 0]]
             : [0, x1, [0, x2, 0]];
-         /*<<list.ml:363:8>>*/ return [0, s, tl];
+         /*<<list.ml:363:8>>*/ return [0, s, tl] /*<<list.ml:363:8>>*/ ;
        }
       }
      }
@@ -4538,7 +4626,7 @@
                 ? [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:374:8>>*/ return [0, s$0, tl$1] /*<<list.ml:374:8>>*/ ;
        }
       }
      }
@@ -4577,7 +4665,7 @@
       }
       else
        var _u_ = rev_append(l2, accu);
-       /*<<list.ml:380:8>>*/ return [0, _u_, tl$0];
+       /*<<list.ml:380:8>>*/ return [0, _u_, tl$0] /*<<list.ml:380:8>>*/ ;
      }
      /*<<list.ml:380:36>>*/ }
     function rev_sort(n, l){
@@ -4596,7 +4684,7 @@
                /*<<list.ml:384:19>>*/ (cmp, x1, x2)
             ? [0, x1, [0, x2, 0]]
             : [0, x2, [0, x1, 0]];
-         /*<<list.ml:385:8>>*/ return [0, s, tl];
+         /*<<list.ml:385:8>>*/ return [0, s, tl] /*<<list.ml:385:8>>*/ ;
        }
       }
      }
@@ -4637,7 +4725,7 @@
                    /*<<list.ml:393:18>>*/ (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:396:8>>*/ return [0, s$0, tl$1] /*<<list.ml:396:8>>*/ ;
        }
       }
      }
@@ -4676,11 +4764,11 @@
       }
       else
        var _s_ = rev_append(l2, accu);
-       /*<<list.ml:402:8>>*/ return [0, _s_, tl$0];
+       /*<<list.ml:402:8>>*/ return [0, _s_, tl$0] /*<<list.ml:402:8>>*/ ;
      }
      /*<<list.ml:402:32>>*/ }
     var len =  /*<<list.ml:404:12>>*/ length(l);
-     /*<<list.ml:405:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
+     /*<<list.ml:405:2>>*/ return 2 <= len ? sort(len, l)[1] : l /*<<list.ml:405:41>>*/ ;
     /*<<list.ml:405:41>>*/ }
    function sort_uniq(cmp, l){
     function sort(n, l){
@@ -4699,7 +4787,7 @@
             /*<<list.ml:447:10>>*/ 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:449:8>>*/ return [0, s, tl] /*<<list.ml:449:8>>*/ ;
        }
       }
      }
@@ -4774,7 +4862,7 @@
           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:475:8>>*/ return [0, s$0, tl$1] /*<<list.ml:475:8>>*/ ;
        }
       }
      }
@@ -4823,7 +4911,7 @@
       }
       else
        var _l_ = rev_append(l2, accu);
-       /*<<list.ml:481:8>>*/ return [0, _l_, tl$0];
+       /*<<list.ml:481:8>>*/ return [0, _l_, tl$0] /*<<list.ml:481:8>>*/ ;
      }
      /*<<list.ml:481:36>>*/ }
     function rev_sort(n, l){
@@ -4842,7 +4930,7 @@
             /*<<list.ml:487:10>>*/ 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:489:8>>*/ return [0, s, tl] /*<<list.ml:489:8>>*/ ;
        }
       }
      }
@@ -4917,7 +5005,7 @@
            _j_ = _k_;
          var s$0 = _j_;
         }
-         /*<<list.ml:515:8>>*/ return [0, s$0, tl$1];
+         /*<<list.ml:515:8>>*/ return [0, s$0, tl$1] /*<<list.ml:515:8>>*/ ;
        }
       }
      }
@@ -4966,17 +5054,17 @@
       }
       else
        var _e_ = rev_append(l2, accu);
-       /*<<list.ml:521:8>>*/ return [0, _e_, tl$0];
+       /*<<list.ml:521:8>>*/ return [0, _e_, tl$0] /*<<list.ml:521:8>>*/ ;
      }
      /*<<list.ml:521:32>>*/ }
     var len =  /*<<list.ml:523:12>>*/ length(l);
-     /*<<list.ml:524:2>>*/ return 2 <= len ? sort(len, l)[1] : l;
+     /*<<list.ml:524:2>>*/ return 2 <= len ? sort(len, l)[1] : l /*<<list.ml:524:41>>*/ ;
     /*<<list.ml:524:41>>*/ }
    function compare_lengths(l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:528:2>>*/ for(;;){
-     if(! l1$0) return l2$0 ? -1 : 0;
-     if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
+     if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:532:45>>*/ ;
+     if(! l2$0)  /*<<list.ml:531:13>>*/ return 1 /*<<list.ml:531:13>>*/ ;
      var l2$1 = l2$0[2], l1$1 = l1$0[2];
      l1$0 = l1$1;
      l2$0 = l2$1;
@@ -4985,16 +5073,18 @@
    function compare_length_with(l, n){
     var l$0 = l, n$0 = n;
      /*<<list.ml:535:2>>*/ for(;;){
-     if(! l$0) return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1;
+     if(! l$0)
+      return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1 /*<<list.ml:541:33>>*/ ;
      var l$1 = l$0[2];
-      /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
+      /*<<list.ml:540:4>>*/ if(0 >= n$0)
+       /*<<list.ml:540:19>>*/ return 1 /*<<list.ml:540:19>>*/ ;
      var n$1 =  /*<<list.ml:541:6>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
     }
     /*<<list.ml:541:33>>*/ }
    function is_empty(param){
-     /*<<list.ml:543:15>>*/ return param ? 0 : 1;
+     /*<<list.ml:543:15>>*/ return param ? 0 : 1 /*<<list.ml:545:19>>*/ ;
     /*<<list.ml:545:19>>*/ }
    function equal(eq, l1, l2){
     var l1$0 = l1, l2$0 = l2;
@@ -5009,57 +5099,61 @@
         _d_ =
            /*<<list.ml:558:22>>*/  /*<<list.ml:558:22>>*/ caml_call2
             /*<<list.ml:558:22>>*/ (eq, a1, a2);
-        /*<<list.ml:558:22>>*/ if(! _d_)  /*<<list.ml:558:22>>*/ return _d_;
+        /*<<list.ml:558:22>>*/ if(! _d_)
+         /*<<list.ml:558:22>>*/ return _d_ /*<<list.ml:558:22>>*/ ;
        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:556:14>>*/ return 1 /*<<list.ml:556:14>>*/ ;
+      /*<<list.ml:557:27>>*/ return 0 /*<<list.ml:557:27>>*/ ;
     }
     /*<<list.ml:558:48>>*/ }
    function compare(cmp, l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:561:2>>*/ for(;;){
-     if(! l1$0) return l2$0 ? -1 : 0;
+     if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:568:26>>*/ ;
      var l1$1 = l1$0[2], a1 = l1$0[1];
-     if(! l2$0)  /*<<list.ml:564:16>>*/ return 1;
+     if(! l2$0)  /*<<list.ml:564:16>>*/ return 1 /*<<list.ml:564:16>>*/ ;
      var
       l2$1 = l2$0[2],
       a2 = l2$0[1],
       c =
          /*<<list.ml:566:12>>*/  /*<<list.ml:566:12>>*/ caml_call2
           /*<<list.ml:566:12>>*/ (cmp, a1, a2);
-      /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
+      /*<<list.ml:567:4>>*/ if(0 !== c)
+       /*<<list.ml:567:19>>*/ return c /*<<list.ml:567:19>>*/ ;
      l1$0 = l1$1;
      l2$0 = l2$1;
     }
     /*<<list.ml:568:26>>*/ }
    function to_seq(l){
     function aux(l, param){
-      /*<<list.ml:573:21>>*/ if(! l)  /*<<list.ml:574:12>>*/ return 0;
+      /*<<list.ml:573:21>>*/ if(! l)
+       /*<<list.ml:574:12>>*/ return 0 /*<<list.ml:574:12>>*/ ;
      var tail = l[2], x = l[1];
       /*<<list.ml:575:19>>*/ return [0,
              x,
-             function(_c_){ /*<<?>>*/ return aux(tail, _c_);}];
+             function(_c_){ /*<<?>>*/ return aux(tail, _c_);}] /*<<list.ml:575:19>>*/ ;
      /*<<list.ml:575:41>>*/ }
      /*<<list.ml:577:2>>*/ return function(_b_){
-      /*<<?>>*/ return aux(l, _b_);};
+      /*<<?>>*/ return aux(l, _b_);} /*<<list.ml:577:2>>*/ ;
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
     var
      match =
         /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1
          /*<<list.ml:580:8>>*/ (seq, 0);
-    if(! match)  /*<<list.ml:581:15>>*/ return 0;
+    if(! match)  /*<<list.ml:581:15>>*/ return 0 /*<<list.ml:581:15>>*/ ;
     var
      seq$0 = match[2],
      x1 = match[1],
      match$0 =
         /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1
          /*<<list.ml:583:18>>*/ (seq$0, 0);
-    if(! match$0)  /*<<list.ml:584:19>>*/ return [0, x1, 0];
+    if(! match$0)
+      /*<<list.ml:584:19>>*/ return [0, x1, 0] /*<<list.ml:584:19>>*/ ;
     var
      seq$1 = match$0[2],
      x2 = match$0[1],
@@ -5094,7 +5188,7 @@
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:585:30>>*/ return [0, x1, block];
+      /*<<list.ml:585:30>>*/ return [0, x1, block] /*<<list.ml:585:30>>*/ ;
     }
     /*<<list.ml:586:9>>*/ }
    var
@@ -5177,7 +5271,7 @@
     runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
     caml_hash =  /*<<?>>*/ runtime.caml_hash;
    function abs(x){
-     /*<<int.ml:29:12>>*/ return 0 <= x ? x : - x | 0;
+     /*<<int.ml:29:12>>*/ return 0 <= x ? x : - x | 0 /*<<int.ml:29:36>>*/ ;
     /*<<int.ml:29:36>>*/ }
    function lognot(x){
      /*<<int.ml:35:15>>*/ return x ^ -1;
@@ -5185,21 +5279,21 @@
    function equal(_b_, _a_){ /*<<?>>*/ return _b_ === _a_ ? 1 : 0;}
    var compare = runtime.caml_int_compare;
    function min(x, y){
-     /*<<int.ml:41:18>>*/ return x <= y ? x : y;
+     /*<<int.ml:41:18>>*/ return x <= y ? x : y /*<<int.ml:41:41>>*/ ;
     /*<<int.ml:41:41>>*/ }
    function max(x, y){
-     /*<<int.ml:42:18>>*/ return y <= x ? x : y;
+     /*<<int.ml:42:18>>*/ return y <= x ? x : y /*<<int.ml:42:41>>*/ ;
     /*<<int.ml:42:41>>*/ }
    function to_string(x){
-     /*<<int.ml:52:18>>*/ return "" + x;
+     /*<<int.ml:52:18>>*/ return "" + x /*<<int.ml:52:18>>*/ ;
     /*<<int.ml:52:35>>*/ }
    function seeded_hash(seed, x){
      /*<<int.ml:56:25>>*/ return  /*<<int.ml:56:25>>*/ caml_hash
-             /*<<int.ml:56:25>>*/ (10, 100, seed, x);
+             /*<<int.ml:56:25>>*/ (10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
     /*<<int.ml:56:56>>*/ }
    function hash(x){
      /*<<int.ml:57:13>>*/ return  /*<<int.ml:57:13>>*/ caml_hash
-             /*<<int.ml:57:13>>*/ (10, 100, 0, x);
+             /*<<int.ml:57:13>>*/ (10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
     /*<<int.ml:57:41>>*/ }
    var
     Stdlib_Int =
@@ -5281,7 +5375,7 @@
          /*<<bytes.ml:42:10>>*/ (n);
      /*<<bytes.ml:43:2>>*/  /*<<bytes.ml:43:2>>*/ caml_fill_bytes
       /*<<bytes.ml:43:2>>*/ (s, 0, n, c);
-     /*<<bytes.ml:43:2>>*/ return s;
+     /*<<bytes.ml:43:2>>*/ return s /*<<bytes.ml:43:2>>*/ ;
     /*<<bytes.ml:44:3>>*/ }
    function init(n, f){
     var
@@ -5302,7 +5396,7 @@
       i = _aq_;
      }
     }
-     /*<<bytes.ml:51:2>>*/ return s;
+     /*<<bytes.ml:51:2>>*/ return s /*<<bytes.ml:51:2>>*/ ;
     /*<<bytes.ml:51:3>>*/ }
    var
     empty =
@@ -5332,14 +5426,14 @@
          /*<<bytes.ml:57:10>>*/ (len);
      /*<<bytes.ml:58:2>>*/  /*<<bytes.ml:58:2>>*/ caml_blit_bytes
       /*<<bytes.ml:58:2>>*/ (s, 0, r, 0, len);
-     /*<<bytes.ml:58:2>>*/ return r;
+     /*<<bytes.ml:58:2>>*/ return r /*<<bytes.ml:58:2>>*/ ;
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
      /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:35>>*/ caml_string_of_bytes
-             /*<<bytes.ml:61:35>>*/ (copy(b));
+             /*<<bytes.ml:61:35>>*/ (copy(b)) /*<<bytes.ml:61:43>>*/ ;
     /*<<bytes.ml:61:43>>*/ }
    function of_string(s){
-     /*<<bytes.ml:62:18>>*/ return copy(caml_bytes_of_string(s));
+     /*<<bytes.ml:62:18>>*/ return copy(caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
     /*<<bytes.ml:62:43>>*/ }
    function sub(s, ofs, len){
      /*<<bytes.ml:65:2>>*/ if
@@ -5350,24 +5444,24 @@
           /*<<bytes.ml:68:12>>*/ (len);
       /*<<bytes.ml:69:4>>*/  /*<<bytes.ml:69:4>>*/ caml_blit_bytes
        /*<<bytes.ml:69:4>>*/ (s, ofs, r, 0, len);
-      /*<<bytes.ml:69:4>>*/ return r;
+      /*<<bytes.ml:69:4>>*/ return r /*<<bytes.ml:69:4>>*/ ;
     }
      /*<<bytes.ml:66:7>>*/ return  /*<<bytes.ml:66:7>>*/ caml_call1
-             /*<<bytes.ml:66:7>>*/ (Stdlib[1], cst_String_sub_Bytes_sub);
+             /*<<bytes.ml:66:7>>*/ (Stdlib[1], cst_String_sub_Bytes_sub) /*<<bytes.ml:71:5>>*/ ;
     /*<<bytes.ml:71:5>>*/ }
    function sub_string(b, ofs, len){
      /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:44>>*/ caml_string_of_bytes
-             /*<<bytes.ml:73:44>>*/ (sub(b, ofs, len));
+             /*<<bytes.ml:73:44>>*/ (sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
     /*<<bytes.ml:73:59>>*/ }
    function symbol(a, b){
     var c = a + b | 0, _an_ = b < 0 ? 1 : 0, match = c < 0 ? 1 : 0;
     a:
     {
      if(a < 0){if(_an_ && ! match) break a;} else if(! _an_ && match) break a;
-      /*<<bytes.ml:81:9>>*/ return c;
+      /*<<bytes.ml:81:9>>*/ return c /*<<bytes.ml:81:9>>*/ ;
     }
      /*<<bytes.ml:80:27>>*/ return  /*<<bytes.ml:80:27>>*/ caml_call1
-             /*<<bytes.ml:80:27>>*/ (Stdlib[1], cst_Bytes_extend);
+             /*<<bytes.ml:80:27>>*/ (Stdlib[1], cst_Bytes_extend) /*<<bytes.ml:81:10>>*/ ;
     /*<<bytes.ml:81:10>>*/ }
    function extend(s, left, right){
     var
@@ -5390,15 +5484,15 @@
     if(0 < cpylen)
       /*<<bytes.ml:88:21>>*/  /*<<bytes.ml:88:21>>*/ caml_blit_bytes
        /*<<bytes.ml:88:21>>*/ (s, srcoff, r, dstoff, cpylen);
-     /*<<bytes.ml:88:21>>*/ return r;
+     /*<<bytes.ml:88:21>>*/ return r /*<<bytes.ml:88:21>>*/ ;
     /*<<bytes.ml:89:3>>*/ }
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<bytes.ml:94:7>>*/ return  /*<<bytes.ml:94:7>>*/ caml_fill_bytes
-              /*<<bytes.ml:94:7>>*/ (s, ofs, len, c);
+              /*<<bytes.ml:94:7>>*/ (s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
      /*<<bytes.ml:93:7>>*/ return  /*<<bytes.ml:93:7>>*/ caml_call1
-             /*<<bytes.ml:93:7>>*/ (Stdlib[1], cst_String_fill_Bytes_fill);
+             /*<<bytes.ml:93:7>>*/ (Stdlib[1], cst_String_fill_Bytes_fill) /*<<bytes.ml:94:30>>*/ ;
     /*<<bytes.ml:94:30>>*/ }
    function blit(s1, ofs1, s2, ofs2, len){
      /*<<bytes.ml:97:2>>*/ if
@@ -5409,9 +5503,9 @@
         (caml_ml_bytes_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
       /*<<bytes.ml:100:7>>*/ return  /*<<bytes.ml:100:7>>*/ caml_blit_bytes
-              /*<<bytes.ml:100:7>>*/ (s1, ofs1, s2, ofs2, len);
+              /*<<bytes.ml:100:7>>*/ (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
      /*<<bytes.ml:99:7>>*/ return  /*<<bytes.ml:99:7>>*/ caml_call1
-             /*<<bytes.ml:99:7>>*/ (Stdlib[1], cst_Bytes_blit);
+             /*<<bytes.ml:99:7>>*/ (Stdlib[1], cst_Bytes_blit) /*<<bytes.ml:100:38>>*/ ;
     /*<<bytes.ml:100:38>>*/ }
    function blit_string(s1, ofs1, s2, ofs2, len){
      /*<<bytes.ml:103:2>>*/ if
@@ -5422,10 +5516,10 @@
         (runtime.caml_ml_string_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
       /*<<bytes.ml:106:7>>*/ return  /*<<bytes.ml:106:7>>*/ runtime.caml_blit_string
-              /*<<bytes.ml:106:7>>*/ (s1, ofs1, s2, ofs2, len);
+              /*<<bytes.ml:106:7>>*/ (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:106:45>>*/ ;
      /*<<bytes.ml:105:7>>*/ return  /*<<bytes.ml:105:7>>*/ caml_call1
              /*<<bytes.ml:105:7>>*/ (Stdlib[1],
-             cst_String_blit_Bytes_blit_str);
+             cst_String_blit_Bytes_blit_str) /*<<bytes.ml:106:45>>*/ ;
     /*<<bytes.ml:106:45>>*/ }
    function iter(f, a){
     var
@@ -5460,7 +5554,8 @@
     return 0;
     /*<<bytes.ml:114:56>>*/ }
    function concat(sep, l){
-     /*<<?>>*/ if(! l)  /*<<bytes.ml:53:12>>*/ return empty;
+     /*<<?>>*/ if(! l)
+      /*<<bytes.ml:53:12>>*/ return empty /*<<bytes.ml:53:12>>*/ ;
     var seplen = caml_ml_bytes_length(sep);
     a:
     {
@@ -5494,12 +5589,13 @@
      pos = pos$1,
      param$0 = l;
     for(;;){
-     if(! param$0)  /*<<bytes.ml:124:10>>*/ return dst;
+     if(! param$0)
+       /*<<bytes.ml:124:10>>*/ return dst /*<<bytes.ml:124:10>>*/ ;
      var hd$0 = param$0[1];
      if(! param$0[2]){
        /*<<bytes.ml:126:4>>*/  /*<<bytes.ml:126:4>>*/ caml_blit_bytes
         /*<<bytes.ml:126:4>>*/ (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
-       /*<<bytes.ml:126:4>>*/ return dst;
+       /*<<bytes.ml:126:4>>*/ return dst /*<<bytes.ml:126:4>>*/ ;
      }
      var tl$0 = param$0[2];
       /*<<bytes.ml:128:4>>*/  /*<<bytes.ml:128:4>>*/ caml_blit_bytes
@@ -5533,16 +5629,16 @@
       /*<<bytes.ml:143:2>>*/ (s1, 0, r, 0, l1);
      /*<<bytes.ml:144:2>>*/  /*<<bytes.ml:144:2>>*/ caml_blit_bytes
       /*<<bytes.ml:144:2>>*/ (s2, 0, r, l1, l2);
-     /*<<bytes.ml:144:2>>*/ return r;
+     /*<<bytes.ml:144:2>>*/ return r /*<<bytes.ml:144:2>>*/ ;
     /*<<bytes.ml:145:3>>*/ }
    function is_space(param){
     var _af_ =  /*<<bytes.ml:151:15>>*/ param - 9 | 0;
     a:
     {
      if(4 < _af_ >>> 0){if(23 !== _af_) break a;} else if(2 === _af_) break a;
-      /*<<bytes.ml:152:41>>*/ return 1;
+      /*<<bytes.ml:152:41>>*/ return 1 /*<<bytes.ml:152:41>>*/ ;
     }
-     /*<<bytes.ml:153:9>>*/ return 0;
+     /*<<bytes.ml:153:9>>*/ return 0 /*<<bytes.ml:153:9>>*/ ;
     /*<<bytes.ml:153:14>>*/ }
    function trim(s){
     var len = caml_ml_bytes_length(s), i =  /*<<bytes.ml:157:10>>*/ [0, 0];
@@ -5555,7 +5651,7 @@
     var j =  /*<<bytes.ml:161:10>>*/ [0, len - 1 | 0];
     for(;;){
      if(i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
-     return i[1] <= j[1] ? sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0) : empty;
+     return i[1] <= j[1] ? sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0) : empty /*<<bytes.ml:168:9>>*/ ;
     }
     /*<<bytes.ml:168:9>>*/ }
    function unsafe_escape(s){
@@ -5598,7 +5694,8 @@
       i$0 = _ae_;
      }
     }
-    if(n[1] === caml_ml_bytes_length(s))  /*<<bytes.ml:192:24>>*/ return s;
+    if(n[1] === caml_ml_bytes_length(s))
+      /*<<bytes.ml:192:24>>*/ return s /*<<bytes.ml:192:24>>*/ ;
     var
      s$0 =
         /*<<bytes.ml:194:13>>*/  /*<<bytes.ml:194:13>>*/ caml_create_bytes
@@ -5671,15 +5768,16 @@
       i = _ab_;
      }
     }
-     /*<<bytes.ml:221:4>>*/ return s$0;
+     /*<<bytes.ml:221:4>>*/ return s$0 /*<<bytes.ml:221:4>>*/ ;
     /*<<bytes.ml:222:5>>*/ }
    function escaped(b){
     var b$0 =  /*<<bytes.ml:225:10>>*/ copy(b);
-     /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0);
+     /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0) /*<<bytes.ml:228:17>>*/ ;
     /*<<bytes.ml:228:17>>*/ }
    function map(f, s){
     var l = caml_ml_bytes_length(s);
-     /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
+     /*<<bytes.ml:232:2>>*/ if(0 === l)
+      /*<<bytes.ml:232:16>>*/ return s /*<<bytes.ml:232:16>>*/ ;
     var
      r =
         /*<<bytes.ml:233:12>>*/  /*<<bytes.ml:233:12>>*/ caml_create_bytes
@@ -5699,11 +5797,12 @@
       i = _Y_;
      }
     }
-     /*<<bytes.ml:235:4>>*/ return r;
+     /*<<bytes.ml:235:4>>*/ return r /*<<bytes.ml:235:4>>*/ ;
     /*<<bytes.ml:236:5>>*/ }
    function mapi(f, s){
     var l = caml_ml_bytes_length(s);
-     /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
+     /*<<bytes.ml:240:2>>*/ if(0 === l)
+      /*<<bytes.ml:240:16>>*/ return s /*<<bytes.ml:240:16>>*/ ;
     var
      r =
         /*<<bytes.ml:241:12>>*/  /*<<bytes.ml:241:12>>*/ caml_create_bytes
@@ -5723,7 +5822,7 @@
       i = _V_;
      }
     }
-     /*<<bytes.ml:243:4>>*/ return r;
+     /*<<bytes.ml:243:4>>*/ return r /*<<bytes.ml:243:4>>*/ ;
     /*<<bytes.ml:244:5>>*/ }
    function fold_left(f, x, a){
     var
@@ -5767,11 +5866,11 @@
    function exists(p, s){
     var n = caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:263:4>>*/ for(;;){
-     if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
+     if(i === n)  /*<<bytes.ml:263:18>>*/ return 0 /*<<bytes.ml:263:18>>*/ ;
       /*<<bytes.ml:264:12>>*/ if
       ( /*<<bytes.ml:264:12>>*/ caml_call1
          /*<<bytes.ml:264:12>>*/ (p, caml_bytes_unsafe_get(s, i)))
-       /*<<bytes.ml:264:36>>*/ return 1;
+       /*<<bytes.ml:264:36>>*/ return 1 /*<<bytes.ml:264:36>>*/ ;
      var i$0 =  /*<<bytes.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -5779,38 +5878,38 @@
    function for_all(p, s){
     var n = caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:271:4>>*/ for(;;){
-     if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
+     if(i === n)  /*<<bytes.ml:271:18>>*/ return 1 /*<<bytes.ml:271:18>>*/ ;
       /*<<bytes.ml:272:12>>*/ if
       (!
         /*<<bytes.ml:272:12>>*/ caml_call1
          /*<<bytes.ml:272:12>>*/ (p, caml_bytes_unsafe_get(s, i)))
-       /*<<bytes.ml:273:9>>*/ return 0;
+       /*<<bytes.ml:273:9>>*/ return 0 /*<<bytes.ml:273:9>>*/ ;
      var i$0 =  /*<<bytes.ml:272:36>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:274:8>>*/ }
    function uppercase_ascii(s){
-     /*<<bytes.ml:276:24>>*/ return map(Stdlib_Char[4], s);
+     /*<<bytes.ml:276:24>>*/ return map(Stdlib_Char[4], s) /*<<bytes.ml:276:50>>*/ ;
     /*<<bytes.ml:276:50>>*/ }
    function lowercase_ascii(s){
-     /*<<bytes.ml:277:24>>*/ return map(Stdlib_Char[3], s);
+     /*<<bytes.ml:277:24>>*/ return map(Stdlib_Char[3], s) /*<<bytes.ml:277:50>>*/ ;
     /*<<bytes.ml:277:50>>*/ }
    function apply1(f, s){
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
-      /*<<bytes.ml:280:23>>*/ return s;
+      /*<<bytes.ml:280:23>>*/ return s /*<<bytes.ml:280:23>>*/ ;
     var r =  /*<<bytes.ml:281:12>>*/ copy(s);
     caml_bytes_unsafe_set
      (r,
       0,
        /*<<bytes.ml:282:19>>*/ caml_call1
         /*<<bytes.ml:282:19>>*/ (f, caml_bytes_unsafe_get(s, 0)));
-     /*<<bytes.ml:283:4>>*/ return r;
+     /*<<bytes.ml:283:4>>*/ return r /*<<bytes.ml:283:4>>*/ ;
     /*<<bytes.ml:284:5>>*/ }
    function capitalize_ascii(s){
-     /*<<bytes.ml:286:25>>*/ return apply1(Stdlib_Char[4], s);
+     /*<<bytes.ml:286:25>>*/ return apply1(Stdlib_Char[4], s) /*<<bytes.ml:286:54>>*/ ;
     /*<<bytes.ml:286:54>>*/ }
    function uncapitalize_ascii(s){
-     /*<<bytes.ml:287:27>>*/ return apply1(Stdlib_Char[3], s);
+     /*<<bytes.ml:287:27>>*/ return apply1(Stdlib_Char[3], s) /*<<bytes.ml:287:56>>*/ ;
     /*<<bytes.ml:287:56>>*/ }
    function starts_with(prefix, s){
     var
@@ -5820,9 +5919,10 @@
     if(! _N_) return _N_;
     var i = 0;
      /*<<bytes.ml:294:4>>*/ for(;;){
-     if(i === len_pre)  /*<<bytes.ml:294:24>>*/ return 1;
+     if(i === len_pre)
+       /*<<bytes.ml:294:24>>*/ return 1 /*<<bytes.ml:294:24>>*/ ;
      if(caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
-       /*<<bytes.ml:295:55>>*/ return 0;
+       /*<<bytes.ml:295:55>>*/ return 0 /*<<bytes.ml:295:55>>*/ ;
      var i$0 =  /*<<bytes.ml:296:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -5836,11 +5936,12 @@
     if(! _M_) return _M_;
     var i = 0;
      /*<<bytes.ml:305:4>>*/ for(;;){
-     if(i === len_suf)  /*<<bytes.ml:305:24>>*/ return 1;
+     if(i === len_suf)
+       /*<<bytes.ml:305:24>>*/ return 1 /*<<bytes.ml:305:24>>*/ ;
      if
       (caml_bytes_unsafe_get(s, diff + i | 0)
        !== caml_bytes_unsafe_get(suffix, i))
-       /*<<bytes.ml:306:64>>*/ return 0;
+       /*<<bytes.ml:306:64>>*/ return 0 /*<<bytes.ml:306:64>>*/ ;
      var i$0 =  /*<<bytes.ml:307:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -5852,44 +5953,45 @@
        /*<<bytes.ml:312:19>>*/ throw  /*<<bytes.ml:312:19>>*/ caml_maybe_attach_backtrace
               /*<<bytes.ml:312:19>>*/ (Stdlib[8], 1);
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:313:29>>*/ return i$0;
+       /*<<bytes.ml:313:29>>*/ return i$0 /*<<bytes.ml:313:29>>*/ ;
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:313:61>>*/ }
    function index(s, c){
      /*<<bytes.ml:316:16>>*/ return index_rec
-            (s, caml_ml_bytes_length(s), 0, c);
+            (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:316:42>>*/ ;
     /*<<bytes.ml:316:42>>*/ }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
      /*<<bytes.ml:320:2>>*/ for(;;){
-     if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
+     if(lim <= i$0)
+       /*<<bytes.ml:320:19>>*/ return 0 /*<<bytes.ml:320:19>>*/ ;
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:321:29>>*/ return [0, i$0];
+       /*<<bytes.ml:321:29>>*/ return [0, i$0] /*<<bytes.ml:321:29>>*/ ;
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:321:70>>*/ }
    function index_opt(s, c){
      /*<<bytes.ml:324:20>>*/ return index_rec_opt
-            (s, caml_ml_bytes_length(s), 0, c);
+            (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:324:50>>*/ ;
     /*<<bytes.ml:324:50>>*/ }
    function index_from(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c);
+      /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c) /*<<bytes.ml:330:19>>*/ ;
      /*<<bytes.ml:329:25>>*/ return  /*<<bytes.ml:329:25>>*/ caml_call1
              /*<<bytes.ml:329:25>>*/ (Stdlib[1],
-             cst_String_index_from_Bytes_in);
+             cst_String_index_from_Bytes_in) /*<<bytes.ml:330:19>>*/ ;
     /*<<bytes.ml:330:19>>*/ }
    function index_from_opt(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c);
+      /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c) /*<<bytes.ml:338:25>>*/ ;
      /*<<bytes.ml:336:4>>*/ return  /*<<bytes.ml:336:4>>*/ caml_call1
              /*<<bytes.ml:336:4>>*/ (Stdlib[1],
-             cst_String_index_from_opt_Byte);
+             cst_String_index_from_opt_Byte) /*<<bytes.ml:338:25>>*/ ;
     /*<<bytes.ml:338:25>>*/ }
    function rindex_rec(s, i, c){
     var i$0 = i;
@@ -5898,42 +6000,42 @@
        /*<<bytes.ml:342:16>>*/ throw  /*<<bytes.ml:342:16>>*/ caml_maybe_attach_backtrace
               /*<<bytes.ml:342:16>>*/ (Stdlib[8], 1);
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:343:29>>*/ return i$0;
+       /*<<bytes.ml:343:29>>*/ return i$0 /*<<bytes.ml:343:29>>*/ ;
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:343:58>>*/ }
    function rindex(s, c){
      /*<<bytes.ml:346:17>>*/ return rindex_rec
-            (s, caml_ml_bytes_length(s) - 1 | 0, c);
+            (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:346:46>>*/ ;
     /*<<bytes.ml:346:46>>*/ }
    function rindex_from(s, i, c){
      /*<<bytes.ml:350:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:353:4>>*/ return rindex_rec(s, i, c);
+      /*<<bytes.ml:353:4>>*/ return rindex_rec(s, i, c) /*<<bytes.ml:353:20>>*/ ;
      /*<<bytes.ml:351:4>>*/ return  /*<<bytes.ml:351:4>>*/ caml_call1
              /*<<bytes.ml:351:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_Bytes_r);
+             cst_String_rindex_from_Bytes_r) /*<<bytes.ml:353:20>>*/ ;
     /*<<bytes.ml:353:20>>*/ }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
      /*<<bytes.ml:357:2>>*/ for(;;){
-     if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
+     if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0 /*<<bytes.ml:357:16>>*/ ;
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:358:29>>*/ return [0, i$0];
+       /*<<bytes.ml:358:29>>*/ return [0, i$0] /*<<bytes.ml:358:29>>*/ ;
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:358:67>>*/ }
    function rindex_opt(s, c){
      /*<<bytes.ml:361:21>>*/ return rindex_rec_opt
-            (s, caml_ml_bytes_length(s) - 1 | 0, c);
+            (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:361:54>>*/ ;
     /*<<bytes.ml:361:54>>*/ }
    function rindex_from_opt(s, i, c){
      /*<<bytes.ml:365:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:368:4>>*/ return rindex_rec_opt(s, i, c);
+      /*<<bytes.ml:368:4>>*/ return rindex_rec_opt(s, i, c) /*<<bytes.ml:368:24>>*/ ;
      /*<<bytes.ml:366:4>>*/ return  /*<<bytes.ml:366:4>>*/ caml_call1
              /*<<bytes.ml:366:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_opt_Byt);
+             cst_String_rindex_from_opt_Byt) /*<<bytes.ml:368:24>>*/ ;
     /*<<bytes.ml:368:24>>*/ }
    function contains_from(s, i, c){
     var l = caml_ml_bytes_length(s);
@@ -5941,35 +6043,37 @@
       /*<<bytes.ml:377:4>>*/ try{
        /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
       var _K_ =  /*<<bytes.ml:377:36>>*/ 1;
-       /*<<bytes.ml:377:36>>*/ return _K_;
+       /*<<bytes.ml:377:36>>*/ return _K_ /*<<bytes.ml:377:36>>*/ ;
      }
      catch(_L_){
       var _J_ = caml_wrap_exception(_L_);
-      if(_J_ === Stdlib[8])  /*<<bytes.ml:377:59>>*/ return 0;
+      if(_J_ === Stdlib[8])
+        /*<<bytes.ml:377:59>>*/ return 0 /*<<bytes.ml:377:59>>*/ ;
       throw caml_maybe_attach_backtrace(_J_, 0);
      }
      /*<<bytes.ml:375:4>>*/ return  /*<<bytes.ml:375:4>>*/ caml_call1
              /*<<bytes.ml:375:4>>*/ (Stdlib[1],
-             cst_String_contains_from_Bytes);
+             cst_String_contains_from_Bytes) /*<<bytes.ml:377:64>>*/ ;
     /*<<bytes.ml:377:64>>*/ }
    function contains(s, c){
-     /*<<bytes.ml:381:19>>*/ return contains_from(s, 0, c);
+     /*<<bytes.ml:381:19>>*/ return contains_from(s, 0, c) /*<<bytes.ml:381:38>>*/ ;
     /*<<bytes.ml:381:38>>*/ }
    function rcontains_from(s, i, c){
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:388:4>>*/ try{
        /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
       var _H_ =  /*<<bytes.ml:388:35>>*/ 1;
-       /*<<bytes.ml:388:35>>*/ return _H_;
+       /*<<bytes.ml:388:35>>*/ return _H_ /*<<bytes.ml:388:35>>*/ ;
      }
      catch(_I_){
       var _G_ = caml_wrap_exception(_I_);
-      if(_G_ === Stdlib[8])  /*<<bytes.ml:388:58>>*/ return 0;
+      if(_G_ === Stdlib[8])
+        /*<<bytes.ml:388:58>>*/ return 0 /*<<bytes.ml:388:58>>*/ ;
       throw caml_maybe_attach_backtrace(_G_, 0);
      }
      /*<<bytes.ml:386:4>>*/ return  /*<<bytes.ml:386:4>>*/ caml_call1
              /*<<bytes.ml:386:4>>*/ (Stdlib[1],
-             cst_String_rcontains_from_Byte);
+             cst_String_rcontains_from_Byte) /*<<bytes.ml:388:63>>*/ ;
     /*<<bytes.ml:388:63>>*/ }
    var
     compare = runtime.caml_bytes_compare,
@@ -6000,12 +6104,12 @@
      }
     }
     var _D_ = r[1];
-     /*<<bytes.ml:406:2>>*/ return [0, sub(s, 0, j[1]), _D_];
+     /*<<bytes.ml:406:2>>*/ return [0, sub(s, 0, j[1]), _D_] /*<<bytes.ml:406:2>>*/ ;
     /*<<bytes.ml:406:18>>*/ }
    function to_seq(s){
     function aux(i, param){
       /*<<bytes.ml:412:4>>*/ if(i === caml_ml_bytes_length(s))
-       /*<<bytes.ml:412:25>>*/ return 0;
+       /*<<bytes.ml:412:25>>*/ return 0 /*<<bytes.ml:412:25>>*/ ;
      var
       x =
          /*<<bytes.ml:414:14>>*/  /*<<bytes.ml:414:14>>*/ caml_bytes_get
@@ -6013,16 +6117,16 @@
       _A_ =  /*<<bytes.ml:414:14>>*/ i + 1 | 0;
       /*<<bytes.ml:415:6>>*/ return [0,
              x,
-             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}];
+             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:6>>*/ ;
      /*<<bytes.ml:415:29>>*/ }
     var _y_ =  /*<<bytes.ml:417:2>>*/ 0;
      /*<<bytes.ml:417:2>>*/ return function(_z_){
-      /*<<?>>*/ return aux(_y_, _z_);};
+      /*<<?>>*/ return aux(_y_, _z_);} /*<<bytes.ml:417:2>>*/ ;
     /*<<bytes.ml:417:7>>*/ }
    function to_seqi(s){
     function aux(i, param){
       /*<<bytes.ml:421:4>>*/ if(i === caml_ml_bytes_length(s))
-       /*<<bytes.ml:421:25>>*/ return 0;
+       /*<<bytes.ml:421:25>>*/ return 0 /*<<bytes.ml:421:25>>*/ ;
      var
       x =
          /*<<bytes.ml:423:14>>*/  /*<<bytes.ml:423:14>>*/ caml_bytes_get
@@ -6030,11 +6134,11 @@
       _w_ =  /*<<bytes.ml:423:14>>*/ i + 1 | 0;
       /*<<bytes.ml:424:6>>*/ return [0,
              [0, i, x],
-             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}];
+             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:6>>*/ ;
      /*<<bytes.ml:424:33>>*/ }
     var _u_ =  /*<<bytes.ml:426:2>>*/ 0;
      /*<<bytes.ml:426:2>>*/ return function(_v_){
-      /*<<?>>*/ return aux(_u_, _v_);};
+      /*<<?>>*/ return aux(_u_, _v_);} /*<<bytes.ml:426:2>>*/ ;
     /*<<bytes.ml:426:7>>*/ }
    function of_seq(i){
     var
@@ -6063,7 +6167,7 @@
        return 0;
        /*<<bytes.ml:443:13>>*/ },
       i);
-    return sub(buf[1], 0, n[1]);
+    return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
     /*<<bytes.ml:445:15>>*/ }
    function unsafe_get_uint16_le(b, i){
      /*<<bytes.ml:470:2>>*/ return Stdlib_Sys[11]
@@ -6071,7 +6175,7 @@
                /*<<bytes.ml:471:14>>*/ ( /*<<bytes.ml:471:14>>*/ caml_bytes_get16
                  /*<<bytes.ml:471:14>>*/ (b, i))
             :  /*<<bytes.ml:472:7>>*/ caml_bytes_get16
-               /*<<bytes.ml:472:7>>*/ (b, i);
+               /*<<bytes.ml:472:7>>*/ (b, i) /*<<bytes.ml:472:31>>*/ ;
     /*<<bytes.ml:472:31>>*/ }
    function unsafe_get_uint16_be(b, i){
      /*<<bytes.ml:475:2>>*/ return Stdlib_Sys[11]
@@ -6079,7 +6183,7 @@
                /*<<bytes.ml:476:7>>*/ (b, i)
             :  /*<<bytes.ml:477:14>>*/ caml_bswap16
                /*<<bytes.ml:477:14>>*/ ( /*<<bytes.ml:477:14>>*/ caml_bytes_get16
-                 /*<<bytes.ml:477:14>>*/ (b, i));
+                 /*<<bytes.ml:477:14>>*/ (b, i)) /*<<bytes.ml:477:40>>*/ ;
     /*<<bytes.ml:477:40>>*/ }
    function get_int8(b, i){
     var
@@ -6096,7 +6200,7 @@
                /*<<bytes.ml:483:32>>*/ ( /*<<bytes.ml:483:32>>*/ caml_bytes_get16
                  /*<<bytes.ml:483:32>>*/ (b, i))
             :  /*<<bytes.ml:484:7>>*/ caml_bytes_get16
-               /*<<bytes.ml:484:7>>*/ (b, i);
+               /*<<bytes.ml:484:7>>*/ (b, i) /*<<bytes.ml:484:24>>*/ ;
     /*<<bytes.ml:484:24>>*/ }
    function get_uint16_be(b, i){
      /*<<bytes.ml:487:2>>*/ return Stdlib_Sys[11]
@@ -6104,7 +6208,7 @@
                /*<<bytes.ml:488:7>>*/ (b, i)
             :  /*<<bytes.ml:487:36>>*/ caml_bswap16
                /*<<bytes.ml:487:36>>*/ ( /*<<bytes.ml:487:36>>*/ caml_bytes_get16
-                 /*<<bytes.ml:487:36>>*/ (b, i));
+                 /*<<bytes.ml:487:36>>*/ (b, i)) /*<<bytes.ml:488:24>>*/ ;
     /*<<bytes.ml:488:24>>*/ }
    function get_int16_ne(b, i){
     var
@@ -6133,7 +6237,7 @@
                /*<<bytes.ml:500:25>>*/ ( /*<<bytes.ml:500:32>>*/ caml_bytes_get32
                  /*<<bytes.ml:500:32>>*/ (b, i))
             :  /*<<bytes.ml:501:7>>*/ caml_bytes_get32
-               /*<<bytes.ml:501:7>>*/ (b, i);
+               /*<<bytes.ml:501:7>>*/ (b, i) /*<<bytes.ml:501:23>>*/ ;
     /*<<bytes.ml:501:23>>*/ }
    function get_int32_be(b, i){
      /*<<bytes.ml:504:2>>*/ return Stdlib_Sys[11]
@@ -6141,7 +6245,7 @@
                /*<<bytes.ml:505:7>>*/ (b, i)
             :  /*<<bytes.ml:504:29>>*/ caml_int32_bswap
                /*<<bytes.ml:504:29>>*/ ( /*<<bytes.ml:504:36>>*/ caml_bytes_get32
-                 /*<<bytes.ml:504:36>>*/ (b, i));
+                 /*<<bytes.ml:504:36>>*/ (b, i)) /*<<bytes.ml:505:23>>*/ ;
     /*<<bytes.ml:505:23>>*/ }
    function get_int64_le(b, i){
      /*<<bytes.ml:508:2>>*/ return Stdlib_Sys[11]
@@ -6149,7 +6253,7 @@
                /*<<bytes.ml:508:25>>*/ ( /*<<bytes.ml:508:32>>*/ caml_bytes_get64
                  /*<<bytes.ml:508:32>>*/ (b, i))
             :  /*<<bytes.ml:509:7>>*/ caml_bytes_get64
-               /*<<bytes.ml:509:7>>*/ (b, i);
+               /*<<bytes.ml:509:7>>*/ (b, i) /*<<bytes.ml:509:23>>*/ ;
     /*<<bytes.ml:509:23>>*/ }
    function get_int64_be(b, i){
      /*<<bytes.ml:512:2>>*/ return Stdlib_Sys[11]
@@ -6157,13 +6261,13 @@
                /*<<bytes.ml:513:7>>*/ (b, i)
             :  /*<<bytes.ml:512:29>>*/ caml_int64_bswap
                /*<<bytes.ml:512:29>>*/ ( /*<<bytes.ml:512:36>>*/ caml_bytes_get64
-                 /*<<bytes.ml:512:36>>*/ (b, i));
+                 /*<<bytes.ml:512:36>>*/ (b, i)) /*<<bytes.ml:513:23>>*/ ;
     /*<<bytes.ml:513:23>>*/ }
    function unsafe_set_uint16_le(b, i, x){
      /*<<bytes.ml:516:2>>*/ if(Stdlib_Sys[11]){
       /*<<bytes.ml:517:7>>*/  /*<<bytes.ml:517:7>>*/ caml_bytes_set16
        /*<<bytes.ml:517:7>>*/ (b, i, caml_bswap16(x));
-      /*<<bytes.ml:517:7>>*/ return;
+      /*<<bytes.ml:517:7>>*/ return /*<<bytes.ml:517:7>>*/ ;
     }
      /*<<bytes.ml:518:7>>*/  /*<<bytes.ml:518:7>>*/ caml_bytes_set16
       /*<<bytes.ml:518:7>>*/ (b, i, x);
@@ -6172,7 +6276,7 @@
      /*<<bytes.ml:521:2>>*/ if(Stdlib_Sys[11]){
       /*<<bytes.ml:522:7>>*/  /*<<bytes.ml:522:7>>*/ caml_bytes_set16
        /*<<bytes.ml:522:7>>*/ (b, i, x);
-      /*<<bytes.ml:522:7>>*/ return;
+      /*<<bytes.ml:522:7>>*/ return /*<<bytes.ml:522:7>>*/ ;
     }
      /*<<bytes.ml:523:2>>*/  /*<<bytes.ml:523:2>>*/ caml_bytes_set16
       /*<<bytes.ml:523:2>>*/ (b, i, caml_bswap16(x));
@@ -6182,14 +6286,14 @@
             ?  /*<<bytes.ml:526:25>>*/ caml_bytes_set16
                /*<<bytes.ml:526:25>>*/ (b, i, caml_bswap16(x))
             :  /*<<bytes.ml:527:7>>*/ caml_bytes_set16
-               /*<<bytes.ml:527:7>>*/ (b, i, x);
+               /*<<bytes.ml:527:7>>*/ (b, i, x) /*<<bytes.ml:527:25>>*/ ;
     /*<<bytes.ml:527:25>>*/ }
    function set_int16_be(b, i, x){
      /*<<bytes.ml:530:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:531:7>>*/ caml_bytes_set16
                /*<<bytes.ml:531:7>>*/ (b, i, x)
             :  /*<<bytes.ml:530:29>>*/ caml_bytes_set16
-               /*<<bytes.ml:530:29>>*/ (b, i, caml_bswap16(x));
+               /*<<bytes.ml:530:29>>*/ (b, i, caml_bswap16(x)) /*<<bytes.ml:531:25>>*/ ;
     /*<<bytes.ml:531:25>>*/ }
    function set_int32_le(b, i, x){
      /*<<bytes.ml:534:2>>*/ return Stdlib_Sys[11]
@@ -6199,7 +6303,7 @@
                 /*<<bytes.ml:534:42>>*/ caml_int32_bswap
                  /*<<bytes.ml:534:42>>*/ (x))
             :  /*<<bytes.ml:535:7>>*/ caml_bytes_set32
-               /*<<bytes.ml:535:7>>*/ (b, i, x);
+               /*<<bytes.ml:535:7>>*/ (b, i, x) /*<<bytes.ml:535:25>>*/ ;
     /*<<bytes.ml:535:25>>*/ }
    function set_int32_be(b, i, x){
      /*<<bytes.ml:538:2>>*/ return Stdlib_Sys[11]
@@ -6209,7 +6313,7 @@
                /*<<bytes.ml:538:29>>*/ (b,
                i,
                 /*<<bytes.ml:538:46>>*/ caml_int32_bswap
-                 /*<<bytes.ml:538:46>>*/ (x));
+                 /*<<bytes.ml:538:46>>*/ (x)) /*<<bytes.ml:539:25>>*/ ;
     /*<<bytes.ml:539:25>>*/ }
    function set_int64_le(b, i, x){
      /*<<bytes.ml:542:2>>*/ return Stdlib_Sys[11]
@@ -6219,7 +6323,7 @@
                 /*<<bytes.ml:542:42>>*/ caml_int64_bswap
                  /*<<bytes.ml:542:42>>*/ (x))
             :  /*<<bytes.ml:543:7>>*/ caml_bytes_set64
-               /*<<bytes.ml:543:7>>*/ (b, i, x);
+               /*<<bytes.ml:543:7>>*/ (b, i, x) /*<<bytes.ml:543:25>>*/ ;
     /*<<bytes.ml:543:25>>*/ }
    function set_int64_be(b, i, x){
      /*<<bytes.ml:546:2>>*/ return Stdlib_Sys[11]
@@ -6229,7 +6333,7 @@
                /*<<bytes.ml:546:29>>*/ (b,
                i,
                 /*<<bytes.ml:546:46>>*/ caml_int64_bswap
-                 /*<<bytes.ml:546:46>>*/ (x));
+                 /*<<bytes.ml:546:46>>*/ (x)) /*<<bytes.ml:547:25>>*/ ;
     /*<<bytes.ml:547:25>>*/ }
    var
     set_uint8 = caml_bytes_set,
@@ -6251,7 +6355,7 @@
         /*<<bytes.ml:557:46>>*/  /*<<bytes.ml:557:46>>*/ caml_call1
          /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[9], u);
      /*<<bytes.ml:557:46>>*/ return  /*<<bytes.ml:557:46>>*/ caml_call2
-             /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[21], n, _l_);
+             /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[21], n, _l_) /*<<bytes.ml:557:69>>*/ ;
     /*<<bytes.ml:557:69>>*/ }
    function not_in_x80_to_xBF(b){
      /*<<bytes.ml:575:35>>*/ return 2 !== (b >>> 6 | 0) ? 1 : 0;
@@ -6297,154 +6401,155 @@
           var i$0 =  /*<<bytes.ml:619:6>>*/ i + 1 | 0;
           if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return  /*<<bytes.ml:619:39>>*/ caml_call1
-                    /*<<bytes.ml:619:39>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:619:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$4 = caml_bytes_unsafe_get(b, i$0);
            /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return  /*<<bytes.ml:620:55>>*/ caml_call1
-                    /*<<bytes.ml:620:55>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:620:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
           if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return  /*<<bytes.ml:621:39>>*/ caml_call1
-                    /*<<bytes.ml:621:39>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:621:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$3 = caml_bytes_unsafe_get(b, i$1);
            /*<<bytes.ml:622:29>>*/ return not_in_x80_to_xBF(b2$3)
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1
                      /*<<bytes.ml:622:55>>*/ (dec_invalid, 2)
-                  : dec_ret(3, utf_8_uchar_3(b0, b1$4, b2$3));
+                  : dec_ret(3, utf_8_uchar_3(b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
          case 3:
           var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
           if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return  /*<<bytes.ml:625:39>>*/ caml_call1
-                    /*<<bytes.ml:625:39>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:625:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$2 = caml_bytes_unsafe_get(b, i$4);
            /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return  /*<<bytes.ml:626:55>>*/ caml_call1
-                    /*<<bytes.ml:626:55>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:626:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
           if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return  /*<<bytes.ml:627:39>>*/ caml_call1
-                    /*<<bytes.ml:627:39>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:627:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$1 = caml_bytes_unsafe_get(b, i$5);
            /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return  /*<<bytes.ml:628:55>>*/ caml_call1
-                    /*<<bytes.ml:628:55>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:628:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
           if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return  /*<<bytes.ml:629:39>>*/ caml_call1
-                    /*<<bytes.ml:629:39>>*/ (dec_invalid, 3);
+                    /*<<bytes.ml:629:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$1 = caml_bytes_unsafe_get(b, i$6);
            /*<<bytes.ml:630:29>>*/ return not_in_x80_to_xBF(b3$1)
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1
                      /*<<bytes.ml:630:55>>*/ (dec_invalid, 3)
-                  : dec_ret(4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1));
+                  : dec_ret(4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
          case 7:
           var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
           if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return  /*<<bytes.ml:641:39>>*/ caml_call1
-                    /*<<bytes.ml:641:39>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:641:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$0 = caml_bytes_unsafe_get(b, i$10);
            /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return  /*<<bytes.ml:642:55>>*/ caml_call1
-                    /*<<bytes.ml:642:55>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:642:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
           if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return  /*<<bytes.ml:643:39>>*/ caml_call1
-                    /*<<bytes.ml:643:39>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:643:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2 = caml_bytes_unsafe_get(b, i$11);
            /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return  /*<<bytes.ml:644:55>>*/ caml_call1
-                    /*<<bytes.ml:644:55>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:644:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
           if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return  /*<<bytes.ml:645:39>>*/ caml_call1
-                    /*<<bytes.ml:645:39>>*/ (dec_invalid, 3);
+                    /*<<bytes.ml:645:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3 = caml_bytes_unsafe_get(b, i$12);
            /*<<bytes.ml:646:29>>*/ return not_in_x80_to_xBF(b3)
                   ?  /*<<bytes.ml:646:55>>*/ caml_call1
                      /*<<bytes.ml:646:55>>*/ (dec_invalid, 3)
-                  : dec_ret(4, utf_8_uchar_4(b0, b1$0, b2, b3));
+                  : dec_ret(4, utf_8_uchar_4(b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
          case 1:
          case 2: break;
          default:
           var i$7 =  /*<<bytes.ml:633:6>>*/ i + 1 | 0;
           if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return  /*<<bytes.ml:633:39>>*/ caml_call1
-                    /*<<bytes.ml:633:39>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:633:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$1 = caml_bytes_unsafe_get(b, i$7);
            /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return  /*<<bytes.ml:634:55>>*/ caml_call1
-                    /*<<bytes.ml:634:55>>*/ (dec_invalid, 1);
+                    /*<<bytes.ml:634:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
           if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return  /*<<bytes.ml:635:39>>*/ caml_call1
-                    /*<<bytes.ml:635:39>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:635:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$0 = caml_bytes_unsafe_get(b, i$8);
            /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return  /*<<bytes.ml:636:55>>*/ caml_call1
-                    /*<<bytes.ml:636:55>>*/ (dec_invalid, 2);
+                    /*<<bytes.ml:636:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
           if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return  /*<<bytes.ml:637:39>>*/ caml_call1
-                    /*<<bytes.ml:637:39>>*/ (dec_invalid, 3);
+                    /*<<bytes.ml:637:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$0 = caml_bytes_unsafe_get(b, i$9);
            /*<<bytes.ml:638:29>>*/ return not_in_x80_to_xBF(b3$0)
                   ?  /*<<bytes.ml:638:55>>*/ caml_call1
                      /*<<bytes.ml:638:55>>*/ (dec_invalid, 3)
-                  : dec_ret(4, utf_8_uchar_4(b0, b1$1, b2$0, b3$0));
+                  : dec_ret(4, utf_8_uchar_4(b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
        }
       }
       else if(225 > b0){
        var i$13 =  /*<<bytes.ml:607:6>>*/ i + 1 | 0;
        if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return  /*<<bytes.ml:607:39>>*/ caml_call1
-                 /*<<bytes.ml:607:39>>*/ (dec_invalid, 1);
+                 /*<<bytes.ml:607:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var b1$5 = caml_bytes_unsafe_get(b, i$13);
         /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return  /*<<bytes.ml:608:55>>*/ caml_call1
-                 /*<<bytes.ml:608:55>>*/ (dec_invalid, 1);
+                 /*<<bytes.ml:608:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
        if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return  /*<<bytes.ml:609:39>>*/ caml_call1
-                 /*<<bytes.ml:609:39>>*/ (dec_invalid, 2);
+                 /*<<bytes.ml:609:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
        var b2$4 = caml_bytes_unsafe_get(b, i$14);
         /*<<bytes.ml:610:29>>*/ return not_in_x80_to_xBF(b2$4)
                ?  /*<<bytes.ml:610:55>>*/ caml_call1
                   /*<<bytes.ml:610:55>>*/ (dec_invalid, 2)
-               : dec_ret(3, utf_8_uchar_3(b0, b1$5, b2$4));
+               : dec_ret(3, utf_8_uchar_3(b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
       }
       var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
       if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return  /*<<bytes.ml:613:39>>*/ caml_call1
-                /*<<bytes.ml:613:39>>*/ (dec_invalid, 1);
+                /*<<bytes.ml:613:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1$3 = caml_bytes_unsafe_get(b, i$2);
        /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return  /*<<bytes.ml:614:55>>*/ caml_call1
-                /*<<bytes.ml:614:55>>*/ (dec_invalid, 1);
+                /*<<bytes.ml:614:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
       if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return  /*<<bytes.ml:615:39>>*/ caml_call1
-                /*<<bytes.ml:615:39>>*/ (dec_invalid, 2);
+                /*<<bytes.ml:615:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
       var b2$2 = caml_bytes_unsafe_get(b, i$3);
        /*<<bytes.ml:616:29>>*/ return not_in_x80_to_xBF(b2$2)
               ?  /*<<bytes.ml:616:55>>*/ caml_call1
                  /*<<bytes.ml:616:55>>*/ (dec_invalid, 2)
-              : dec_ret(3, utf_8_uchar_3(b0, b1$3, b2$2));
+              : dec_ret(3, utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
      }
-     if(128 > b0)  /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0);
+     if(128 > b0)
+       /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0) /*<<bytes.ml:648:22>>*/ ;
      if(194 <= b0){
       var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
       if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return  /*<<bytes.ml:603:39>>*/ caml_call1
-                /*<<bytes.ml:603:39>>*/ (dec_invalid, 1);
+                /*<<bytes.ml:603:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1 = caml_bytes_unsafe_get(b, i$15);
        /*<<bytes.ml:604:29>>*/ return not_in_x80_to_xBF(b1)
               ?  /*<<bytes.ml:604:55>>*/ caml_call1
                  /*<<bytes.ml:604:55>>*/ (dec_invalid, 1)
-              : dec_ret(2, (b0 & 31) << 6 | b1 & 63);
+              : dec_ret(2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
      }
     }
      /*<<bytes.ml:648:9>>*/ return  /*<<bytes.ml:648:9>>*/ caml_call1
-             /*<<bytes.ml:648:9>>*/ (dec_invalid, 1);
+             /*<<bytes.ml:648:9>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
     /*<<bytes.ml:648:22>>*/ }
    function set_utf_8_uchar(b, i, u){
     function set(_i_, _h_, _g_){
@@ -6464,7 +6569,7 @@
              /*<<bytes.ml:654:20>>*/ ([0, Assert_failure, _b_], 1);
      /*<<bytes.ml:655:11>>*/ if(127 >= u$0){
      caml_bytes_set(b, i, u$0);
-      /*<<bytes.ml:656:6>>*/ return 1;
+      /*<<bytes.ml:656:6>>*/ return 1 /*<<bytes.ml:656:6>>*/ ;
     }
      /*<<bytes.ml:658:11>>*/ if(2047 >= u$0){
      var last$1 =  /*<<bytes.ml:659:6>>*/ i + 1 | 0;
@@ -6473,7 +6578,7 @@
              : (caml_bytes_set
                 (b, i, 192 | u$0 >>> 6 | 0),
                set(b, last$1, 128 | u$0 & 63),
-               2);
+               2) /*<<bytes.ml:679:21>>*/ ;
     }
      /*<<bytes.ml:664:11>>*/ if(65535 >= u$0){
      var last$0 =  /*<<bytes.ml:665:6>>*/ i + 2 | 0;
@@ -6483,7 +6588,7 @@
                 (b, i, 224 | u$0 >>> 12 | 0),
                set(b, i + 1 | 0, 128 | (u$0 >>> 6 | 0) & 63),
                set(b, last$0, 128 | u$0 & 63),
-               3);
+               3) /*<<bytes.ml:679:21>>*/ ;
     }
      /*<<bytes.ml:671:11>>*/ if(1114111 < u$0)
       /*<<bytes.ml:679:9>>*/ throw  /*<<bytes.ml:679:9>>*/ caml_maybe_attach_backtrace
@@ -6496,12 +6601,12 @@
               set(b, i + 1 | 0, 128 | (u$0 >>> 12 | 0) & 63),
               set(b, i + 2 | 0, 128 | (u$0 >>> 6 | 0) & 63),
               set(b, last, 128 | u$0 & 63),
-              4);
+              4) /*<<bytes.ml:679:21>>*/ ;
     /*<<bytes.ml:679:21>>*/ }
    function is_valid_utf_8(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:683:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:683:20>>*/ return 1;
+     if(max < i)  /*<<bytes.ml:683:20>>*/ return 1 /*<<bytes.ml:683:20>>*/ ;
      var match = caml_bytes_unsafe_get(b, i);
      a:
      {
@@ -6521,7 +6626,7 @@
             i = i$0;
             continue;
            }
-            /*<<bytes.ml:712:13>>*/ return 0;
+            /*<<bytes.ml:712:13>>*/ return 0 /*<<bytes.ml:712:13>>*/ ;
           case 3:
            var last$1 =  /*<<bytes.ml:715:8>>*/ i + 3 | 0;
            if
@@ -6537,7 +6642,7 @@
             i = i$2;
             continue;
            }
-            /*<<bytes.ml:720:13>>*/ return 0;
+            /*<<bytes.ml:720:13>>*/ return 0 /*<<bytes.ml:720:13>>*/ ;
           case 7:
            var last$3 =  /*<<bytes.ml:731:8>>*/ i + 3 | 0;
            if
@@ -6553,7 +6658,7 @@
             i = i$4;
             continue;
            }
-            /*<<bytes.ml:736:13>>*/ return 0;
+            /*<<bytes.ml:736:13>>*/ return 0 /*<<bytes.ml:736:13>>*/ ;
           case 1:
           case 2: break;
           default:
@@ -6571,7 +6676,7 @@
             i = i$3;
             continue;
            }
-            /*<<bytes.ml:728:13>>*/ return 0;
+            /*<<bytes.ml:728:13>>*/ return 0 /*<<bytes.ml:728:13>>*/ ;
         }
        }
        else if(225 > match){
@@ -6586,7 +6691,7 @@
          i = i$5;
          continue;
         }
-         /*<<bytes.ml:698:13>>*/ return 0;
+         /*<<bytes.ml:698:13>>*/ return 0 /*<<bytes.ml:698:13>>*/ ;
        }
        var last$0 =  /*<<bytes.ml:701:8>>*/ i + 2 | 0;
        if
@@ -6599,7 +6704,7 @@
         i = i$1;
         continue;
        }
-        /*<<bytes.ml:705:13>>*/ return 0;
+        /*<<bytes.ml:705:13>>*/ return 0 /*<<bytes.ml:705:13>>*/ ;
       }
       if(128 > match){
        var i$7 =  /*<<bytes.ml:686:26>>*/ i + 1 | 0;
@@ -6615,10 +6720,10 @@
         i = i$6;
         continue;
        }
-        /*<<bytes.ml:691:13>>*/ return 0;
+        /*<<bytes.ml:691:13>>*/ return 0 /*<<bytes.ml:691:13>>*/ ;
       }
      }
-      /*<<bytes.ml:738:11>>*/ return 0;
+      /*<<bytes.ml:738:11>>*/ return 0 /*<<bytes.ml:738:11>>*/ ;
     }
     /*<<bytes.ml:740:25>>*/ }
    function get_utf_16be_uchar(b, i){
@@ -6631,26 +6736,27 @@
      /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
-               /*<<bytes.ml:748:18>>*/ (dec_invalid, 1);
+               /*<<bytes.ml:748:18>>*/ (dec_invalid, 1) /*<<bytes.ml:759:21>>*/ ;
      var hi =  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
-                /*<<bytes.ml:751:25>>*/ (dec_invalid, 2);
+                /*<<bytes.ml:751:25>>*/ (dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
       var last =  /*<<bytes.ml:753:6>>*/ i + 3 | 0;
-      if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
+      if(max < last)
+       return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:759:21>>*/ ;
       var lo =  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
-        /*<<bytes.ml:759:10>>*/ return dec_ret(4, u);
+        /*<<bytes.ml:759:10>>*/ return dec_ret(4, u) /*<<bytes.ml:759:21>>*/ ;
       }
        /*<<bytes.ml:756:43>>*/ return  /*<<bytes.ml:756:43>>*/ caml_call1
-               /*<<bytes.ml:756:43>>*/ (dec_invalid, 2);
+               /*<<bytes.ml:756:43>>*/ (dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
      }
-      /*<<bytes.ml:750:39>>*/ return dec_ret(2, hi);
+      /*<<bytes.ml:750:39>>*/ return dec_ret(2, hi) /*<<bytes.ml:759:21>>*/ ;
     }
      /*<<bytes.ml:747:27>>*/ return  /*<<bytes.ml:747:27>>*/ caml_call1
-             /*<<bytes.ml:747:27>>*/ (Stdlib[1], cst_index_out_of_bounds);
+             /*<<bytes.ml:747:27>>*/ (Stdlib[1], cst_index_out_of_bounds) /*<<bytes.ml:759:21>>*/ ;
     /*<<bytes.ml:759:21>>*/ }
    function set_utf_16be_uchar(b, i, u){
     var
@@ -6669,42 +6775,44 @@
               /*<<bytes.ml:766:20>>*/ ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:768:6>>*/ i + 1 | 0;
-      return max < last$0 ? 0 : (unsafe_set_uint16_be(b, i, u$0), 2);
+      return max < last$0 ? 0 : (unsafe_set_uint16_be(b, i, u$0), 2) /*<<bytes.ml:777:21>>*/ ;
      }
       /*<<bytes.ml:770:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:777:9>>*/ throw  /*<<bytes.ml:777:9>>*/ caml_maybe_attach_backtrace
               /*<<bytes.ml:777:9>>*/ ([0, Assert_failure, _c_], 1);
      var last =  /*<<bytes.ml:771:6>>*/ i + 3 | 0;
-     if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
+     if(max < last)
+       /*<<bytes.ml:772:25>>*/ return 0 /*<<bytes.ml:772:25>>*/ ;
      var
       u$1 =  /*<<bytes.ml:773:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
       /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be(b, i, hi);
       /*<<bytes.ml:776:18>>*/ unsafe_set_uint16_be(b, i + 2 | 0, lo);
-      /*<<bytes.ml:776:18>>*/ return 4;
+      /*<<bytes.ml:776:18>>*/ return 4 /*<<bytes.ml:776:18>>*/ ;
     }
      /*<<bytes.ml:764:27>>*/ return  /*<<bytes.ml:764:27>>*/ caml_call1
-             /*<<bytes.ml:764:27>>*/ (Stdlib[1], cst_index_out_of_bounds$0);
+             /*<<bytes.ml:764:27>>*/ (Stdlib[1], cst_index_out_of_bounds$0) /*<<bytes.ml:777:21>>*/ ;
     /*<<bytes.ml:777:21>>*/ }
    function is_valid_utf_16be(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:781:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
-     if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
+     if(max < i)  /*<<bytes.ml:782:20>>*/ return 1 /*<<bytes.ml:782:20>>*/ ;
+     if(i === max)  /*<<bytes.ml:783:20>>*/ return 0 /*<<bytes.ml:783:20>>*/ ;
      var u =  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
-        /*<<bytes.ml:786:27>>*/ return 0;
+        /*<<bytes.ml:786:27>>*/ return 0 /*<<bytes.ml:786:27>>*/ ;
       var last =  /*<<bytes.ml:788:8>>*/ i + 3 | 0;
-      if(max < last)  /*<<bytes.ml:789:27>>*/ return 0;
+      if(max < last)
+        /*<<bytes.ml:789:27>>*/ return 0 /*<<bytes.ml:789:27>>*/ ;
       var u$0 =  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:792:17>>*/ i + 4 | 0;
        i = i$1;
        continue;
       }
-       /*<<bytes.ml:791:45>>*/ return 0;
+       /*<<bytes.ml:791:45>>*/ return 0 /*<<bytes.ml:791:45>>*/ ;
      }
      var i$0 =  /*<<bytes.ml:785:41>>*/ i + 2 | 0;
      i = i$0;
@@ -6720,26 +6828,27 @@
      /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
      if(i === max)
        /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
-               /*<<bytes.ml:802:18>>*/ (dec_invalid, 1);
+               /*<<bytes.ml:802:18>>*/ (dec_invalid, 1) /*<<bytes.ml:813:21>>*/ ;
      var hi =  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
-                /*<<bytes.ml:805:25>>*/ (dec_invalid, 2);
+                /*<<bytes.ml:805:25>>*/ (dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
       var last =  /*<<bytes.ml:807:6>>*/ i + 3 | 0;
-      if(max < last) return caml_call1(dec_invalid, (max - i | 0) + 1 | 0);
+      if(max < last)
+       return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:813:21>>*/ ;
       var lo =  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
-        /*<<bytes.ml:813:10>>*/ return dec_ret(4, u);
+        /*<<bytes.ml:813:10>>*/ return dec_ret(4, u) /*<<bytes.ml:813:21>>*/ ;
       }
        /*<<bytes.ml:810:43>>*/ return  /*<<bytes.ml:810:43>>*/ caml_call1
-               /*<<bytes.ml:810:43>>*/ (dec_invalid, 2);
+               /*<<bytes.ml:810:43>>*/ (dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
      }
-      /*<<bytes.ml:804:39>>*/ return dec_ret(2, hi);
+      /*<<bytes.ml:804:39>>*/ return dec_ret(2, hi) /*<<bytes.ml:813:21>>*/ ;
     }
      /*<<bytes.ml:801:27>>*/ return  /*<<bytes.ml:801:27>>*/ caml_call1
-             /*<<bytes.ml:801:27>>*/ (Stdlib[1], cst_index_out_of_bounds$1);
+             /*<<bytes.ml:801:27>>*/ (Stdlib[1], cst_index_out_of_bounds$1) /*<<bytes.ml:813:21>>*/ ;
     /*<<bytes.ml:813:21>>*/ }
    function set_utf_16le_uchar(b, i, u){
     var
@@ -6758,42 +6867,44 @@
               /*<<bytes.ml:820:20>>*/ ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:822:6>>*/ i + 1 | 0;
-      return max < last$0 ? 0 : (unsafe_set_uint16_le(b, i, u$0), 2);
+      return max < last$0 ? 0 : (unsafe_set_uint16_le(b, i, u$0), 2) /*<<bytes.ml:831:21>>*/ ;
      }
       /*<<bytes.ml:824:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:831:9>>*/ throw  /*<<bytes.ml:831:9>>*/ caml_maybe_attach_backtrace
               /*<<bytes.ml:831:9>>*/ ([0, Assert_failure, _e_], 1);
      var last =  /*<<bytes.ml:825:6>>*/ i + 3 | 0;
-     if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
+     if(max < last)
+       /*<<bytes.ml:826:25>>*/ return 0 /*<<bytes.ml:826:25>>*/ ;
      var
       u$1 =  /*<<bytes.ml:827:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
       /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le(b, i, hi);
       /*<<bytes.ml:830:18>>*/ unsafe_set_uint16_le(b, i + 2 | 0, lo);
-      /*<<bytes.ml:830:18>>*/ return 4;
+      /*<<bytes.ml:830:18>>*/ return 4 /*<<bytes.ml:830:18>>*/ ;
     }
      /*<<bytes.ml:818:27>>*/ return  /*<<bytes.ml:818:27>>*/ caml_call1
-             /*<<bytes.ml:818:27>>*/ (Stdlib[1], cst_index_out_of_bounds$2);
+             /*<<bytes.ml:818:27>>*/ (Stdlib[1], cst_index_out_of_bounds$2) /*<<bytes.ml:831:21>>*/ ;
     /*<<bytes.ml:831:21>>*/ }
    function is_valid_utf_16le(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:835:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
-     if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
+     if(max < i)  /*<<bytes.ml:836:20>>*/ return 1 /*<<bytes.ml:836:20>>*/ ;
+     if(i === max)  /*<<bytes.ml:837:20>>*/ return 0 /*<<bytes.ml:837:20>>*/ ;
      var u =  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
-        /*<<bytes.ml:840:27>>*/ return 0;
+        /*<<bytes.ml:840:27>>*/ return 0 /*<<bytes.ml:840:27>>*/ ;
       var last =  /*<<bytes.ml:842:8>>*/ i + 3 | 0;
-      if(max < last)  /*<<bytes.ml:843:27>>*/ return 0;
+      if(max < last)
+        /*<<bytes.ml:843:27>>*/ return 0 /*<<bytes.ml:843:27>>*/ ;
       var u$0 =  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:846:17>>*/ i + 4 | 0;
        i = i$1;
        continue;
       }
-       /*<<bytes.ml:845:45>>*/ return 0;
+       /*<<bytes.ml:845:45>>*/ return 0 /*<<bytes.ml:845:45>>*/ ;
      }
      var i$0 =  /*<<bytes.ml:839:41>>*/ i + 2 | 0;
      i = i$0;
@@ -6937,13 +7048,13 @@
      /*<<string.ml:36:2>>*/ return  /*<<string.ml:36:2>>*/ caml_call1
              /*<<string.ml:36:2>>*/ (bts,
               /*<<string.ml:36:2>>*/ caml_call2
-               /*<<string.ml:36:2>>*/ (Stdlib_Bytes[1], n, c));
+               /*<<string.ml:36:2>>*/ (Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
     /*<<string.ml:36:19>>*/ }
    function init(n, f){
      /*<<string.ml:38:2>>*/ return  /*<<string.ml:38:2>>*/ caml_call1
              /*<<string.ml:38:2>>*/ (bts,
               /*<<string.ml:38:2>>*/ caml_call2
-               /*<<string.ml:38:2>>*/ (Stdlib_Bytes[2], n, f));
+               /*<<string.ml:38:2>>*/ (Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
     /*<<string.ml:38:19>>*/ }
    var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
@@ -6954,11 +7065,12 @@
      /*<<string.ml:43:2>>*/ return  /*<<string.ml:43:2>>*/ caml_call1
              /*<<string.ml:43:2>>*/ (bts,
               /*<<string.ml:43:2>>*/ caml_call3
-               /*<<string.ml:43:2>>*/ (Stdlib_Bytes[7], _X_, ofs, len));
+               /*<<string.ml:43:2>>*/ (Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
     /*<<string.ml:43:30>>*/ }
    var blit = Stdlib_Bytes[12], cst_String_concat = "String.concat";
    function concat(sep, l){
-     /*<<?>>*/ if(! l)  /*<<string.ml:64:10>>*/ return cst;
+     /*<<?>>*/ if(! l)
+      /*<<string.ml:64:10>>*/ return cst /*<<string.ml:64:10>>*/ ;
     var seplen = caml_ml_string_length(sep);
     a:
     {
@@ -7022,7 +7134,7 @@
         caml_ml_string_length(hd$0));
      }
       /*<<string.ml:66:10>>*/ return  /*<<string.ml:66:10>>*/ caml_call1
-              /*<<string.ml:66:10>>*/ (bts, dst);
+              /*<<string.ml:66:10>>*/ (bts, dst) /*<<string.ml:66:10>>*/ ;
     }
    }
    var
@@ -7077,7 +7189,7 @@
      /*<<string.ml:81:2>>*/ return  /*<<string.ml:81:2>>*/ caml_call1
              /*<<string.ml:81:2>>*/ (bts,
               /*<<string.ml:81:2>>*/ caml_call2
-               /*<<string.ml:81:2>>*/ (Stdlib_Bytes[17], f, _P_));
+               /*<<string.ml:81:2>>*/ (Stdlib_Bytes[17], f, _P_)) /*<<string.ml:81:24>>*/ ;
     /*<<string.ml:81:24>>*/ }
    function mapi(f, s){
     var
@@ -7087,7 +7199,7 @@
      /*<<string.ml:83:2>>*/ return  /*<<string.ml:83:2>>*/ caml_call1
              /*<<string.ml:83:2>>*/ (bts,
               /*<<string.ml:83:2>>*/ caml_call2
-               /*<<string.ml:83:2>>*/ (Stdlib_Bytes[18], f, _O_));
+               /*<<string.ml:83:2>>*/ (Stdlib_Bytes[18], f, _O_)) /*<<string.ml:83:25>>*/ ;
     /*<<string.ml:83:25>>*/ }
    function fold_right(f, x, a){
     var
@@ -7095,7 +7207,7 @@
         /*<<string.ml:85:17>>*/  /*<<string.ml:85:17>>*/ caml_call1
          /*<<string.ml:85:17>>*/ (bos, x);
      /*<<string.ml:85:2>>*/ return  /*<<string.ml:85:2>>*/ caml_call3
-             /*<<string.ml:85:2>>*/ (Stdlib_Bytes[20], f, _N_, a);
+             /*<<string.ml:85:2>>*/ (Stdlib_Bytes[20], f, _N_, a) /*<<string.ml:85:26>>*/ ;
     /*<<string.ml:85:26>>*/ }
    function fold_left(f, a, x){
     var
@@ -7103,7 +7215,7 @@
         /*<<string.ml:87:18>>*/  /*<<string.ml:87:18>>*/ caml_call1
          /*<<string.ml:87:18>>*/ (bos, x);
      /*<<string.ml:87:18>>*/ return  /*<<string.ml:87:18>>*/ caml_call3
-             /*<<string.ml:87:18>>*/ (Stdlib_Bytes[19], f, a, _M_);
+             /*<<string.ml:87:18>>*/ (Stdlib_Bytes[19], f, a, _M_) /*<<string.ml:87:25>>*/ ;
     /*<<string.ml:87:25>>*/ }
    function exists(f, s){
     var
@@ -7111,7 +7223,7 @@
         /*<<string.ml:89:13>>*/  /*<<string.ml:89:13>>*/ caml_call1
          /*<<string.ml:89:13>>*/ (bos, s);
      /*<<string.ml:89:13>>*/ return  /*<<string.ml:89:13>>*/ caml_call2
-             /*<<string.ml:89:13>>*/ (Stdlib_Bytes[22], f, _L_);
+             /*<<string.ml:89:13>>*/ (Stdlib_Bytes[22], f, _L_) /*<<string.ml:89:20>>*/ ;
     /*<<string.ml:89:20>>*/ }
    function for_all(f, s){
     var
@@ -7119,27 +7231,27 @@
         /*<<string.ml:91:14>>*/  /*<<string.ml:91:14>>*/ caml_call1
          /*<<string.ml:91:14>>*/ (bos, s);
      /*<<string.ml:91:14>>*/ return  /*<<string.ml:91:14>>*/ caml_call2
-             /*<<string.ml:91:14>>*/ (Stdlib_Bytes[21], f, _K_);
+             /*<<string.ml:91:14>>*/ (Stdlib_Bytes[21], f, _K_) /*<<string.ml:91:21>>*/ ;
     /*<<string.ml:91:21>>*/ }
    function is_space(param){
     var _J_ =  /*<<string.ml:97:15>>*/ param - 9 | 0;
     a:
     {
      if(4 < _J_ >>> 0){if(23 !== _J_) break a;} else if(2 === _J_) break a;
-      /*<<string.ml:98:41>>*/ return 1;
+      /*<<string.ml:98:41>>*/ return 1 /*<<string.ml:98:41>>*/ ;
     }
-     /*<<string.ml:99:9>>*/ return 0;
+     /*<<string.ml:99:9>>*/ return 0 /*<<string.ml:99:9>>*/ ;
     /*<<string.ml:99:14>>*/ }
    function trim(s){
      /*<<string.ml:102:2>>*/ if(s === cst$0)
-      /*<<string.ml:102:17>>*/ return s;
+      /*<<string.ml:102:17>>*/ return s /*<<string.ml:102:17>>*/ ;
      /*<<string.ml:103:10>>*/ if
      (!
       is_space(caml_string_unsafe_get(s, 0))
       &&
        !
        is_space(caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
-      /*<<string.ml:105:7>>*/ return s;
+      /*<<string.ml:105:7>>*/ return s /*<<string.ml:105:7>>*/ ;
     var
      _I_ =
         /*<<string.ml:104:21>>*/  /*<<string.ml:104:21>>*/ caml_call1
@@ -7147,7 +7259,7 @@
      /*<<string.ml:104:13>>*/ return  /*<<string.ml:104:13>>*/ caml_call1
              /*<<string.ml:104:13>>*/ (bts,
               /*<<string.ml:104:13>>*/ caml_call1
-               /*<<string.ml:104:13>>*/ (Stdlib_Bytes[23], _I_));
+               /*<<string.ml:104:13>>*/ (Stdlib_Bytes[23], _I_)) /*<<string.ml:105:8>>*/ ;
     /*<<string.ml:105:8>>*/ }
    function escaped(s){
     var
@@ -7157,7 +7269,7 @@
      /*<<string.ml:111:6>>*/ return  /*<<string.ml:111:6>>*/ caml_call1
              /*<<string.ml:111:6>>*/ (bts,
               /*<<string.ml:111:6>>*/ caml_call1
-               /*<<string.ml:111:6>>*/ (Stdlib_Bytes[87], b));
+               /*<<string.ml:111:6>>*/ (Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
     /*<<string.ml:111:25>>*/ }
    function index_rec(s, lim, i, c){
     var i$0 = i;
@@ -7166,44 +7278,45 @@
        /*<<string.ml:115:19>>*/ throw  /*<<string.ml:115:19>>*/ caml_maybe_attach_backtrace
               /*<<string.ml:115:19>>*/ (Stdlib[8], 1);
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:116:29>>*/ return i$0;
+       /*<<string.ml:116:29>>*/ return i$0 /*<<string.ml:116:29>>*/ ;
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:116:61>>*/ }
    function index(s, c){
      /*<<string.ml:119:16>>*/ return index_rec
-            (s, caml_ml_string_length(s), 0, c);
+            (s, caml_ml_string_length(s), 0, c) /*<<string.ml:119:42>>*/ ;
     /*<<string.ml:119:42>>*/ }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
      /*<<string.ml:123:2>>*/ for(;;){
-     if(lim <= i$0)  /*<<string.ml:123:19>>*/ return 0;
+     if(lim <= i$0)
+       /*<<string.ml:123:19>>*/ return 0 /*<<string.ml:123:19>>*/ ;
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:124:29>>*/ return [0, i$0];
+       /*<<string.ml:124:29>>*/ return [0, i$0] /*<<string.ml:124:29>>*/ ;
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:124:70>>*/ }
    function index_opt(s, c){
      /*<<string.ml:127:20>>*/ return index_rec_opt
-            (s, caml_ml_string_length(s), 0, c);
+            (s, caml_ml_string_length(s), 0, c) /*<<string.ml:127:50>>*/ ;
     /*<<string.ml:127:50>>*/ }
    function index_from(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c);
+      /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c) /*<<string.ml:133:21>>*/ ;
      /*<<string.ml:132:25>>*/ return  /*<<string.ml:132:25>>*/ caml_call1
              /*<<string.ml:132:25>>*/ (Stdlib[1],
-             cst_String_index_from_Bytes_in);
+             cst_String_index_from_Bytes_in) /*<<string.ml:133:21>>*/ ;
     /*<<string.ml:133:21>>*/ }
    function index_from_opt(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c);
+      /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c) /*<<string.ml:141:25>>*/ ;
      /*<<string.ml:139:4>>*/ return  /*<<string.ml:139:4>>*/ caml_call1
              /*<<string.ml:139:4>>*/ (Stdlib[1],
-             cst_String_index_from_opt_Byte);
+             cst_String_index_from_opt_Byte) /*<<string.ml:141:25>>*/ ;
     /*<<string.ml:141:25>>*/ }
    function rindex_rec(s, i, c){
     var i$0 = i;
@@ -7212,42 +7325,42 @@
        /*<<string.ml:145:16>>*/ throw  /*<<string.ml:145:16>>*/ caml_maybe_attach_backtrace
               /*<<string.ml:145:16>>*/ (Stdlib[8], 1);
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:146:29>>*/ return i$0;
+       /*<<string.ml:146:29>>*/ return i$0 /*<<string.ml:146:29>>*/ ;
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:146:58>>*/ }
    function rindex(s, c){
      /*<<string.ml:149:17>>*/ return rindex_rec
-            (s, caml_ml_string_length(s) - 1 | 0, c);
+            (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:149:46>>*/ ;
     /*<<string.ml:149:46>>*/ }
    function rindex_from(s, i, c){
      /*<<string.ml:153:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:156:4>>*/ return rindex_rec(s, i, c);
+      /*<<string.ml:156:4>>*/ return rindex_rec(s, i, c) /*<<string.ml:156:20>>*/ ;
      /*<<string.ml:154:4>>*/ return  /*<<string.ml:154:4>>*/ caml_call1
              /*<<string.ml:154:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_Bytes_r);
+             cst_String_rindex_from_Bytes_r) /*<<string.ml:156:20>>*/ ;
     /*<<string.ml:156:20>>*/ }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
      /*<<string.ml:160:2>>*/ for(;;){
-     if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
+     if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0 /*<<string.ml:160:16>>*/ ;
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:161:29>>*/ return [0, i$0];
+       /*<<string.ml:161:29>>*/ return [0, i$0] /*<<string.ml:161:29>>*/ ;
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:161:67>>*/ }
    function rindex_opt(s, c){
      /*<<string.ml:164:21>>*/ return rindex_rec_opt
-            (s, caml_ml_string_length(s) - 1 | 0, c);
+            (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:164:54>>*/ ;
     /*<<string.ml:164:54>>*/ }
    function rindex_from_opt(s, i, c){
      /*<<string.ml:168:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:171:4>>*/ return rindex_rec_opt(s, i, c);
+      /*<<string.ml:171:4>>*/ return rindex_rec_opt(s, i, c) /*<<string.ml:171:24>>*/ ;
      /*<<string.ml:169:4>>*/ return  /*<<string.ml:169:4>>*/ caml_call1
              /*<<string.ml:169:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_opt_Byt);
+             cst_String_rindex_from_opt_Byt) /*<<string.ml:171:24>>*/ ;
     /*<<string.ml:171:24>>*/ }
    function contains_from(s, i, c){
     var l = caml_ml_string_length(s);
@@ -7255,35 +7368,37 @@
       /*<<string.ml:179:4>>*/ try{
        /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
       var _G_ =  /*<<string.ml:179:36>>*/ 1;
-       /*<<string.ml:179:36>>*/ return _G_;
+       /*<<string.ml:179:36>>*/ return _G_ /*<<string.ml:179:36>>*/ ;
      }
      catch(_H_){
       var _F_ = caml_wrap_exception(_H_);
-      if(_F_ === Stdlib[8])  /*<<string.ml:179:59>>*/ return 0;
+      if(_F_ === Stdlib[8])
+        /*<<string.ml:179:59>>*/ return 0 /*<<string.ml:179:59>>*/ ;
       throw caml_maybe_attach_backtrace(_F_, 0);
      }
      /*<<string.ml:177:4>>*/ return  /*<<string.ml:177:4>>*/ caml_call1
              /*<<string.ml:177:4>>*/ (Stdlib[1],
-             cst_String_contains_from_Bytes);
+             cst_String_contains_from_Bytes) /*<<string.ml:179:64>>*/ ;
     /*<<string.ml:179:64>>*/ }
    function contains(s, c){
-     /*<<string.ml:182:19>>*/ return contains_from(s, 0, c);
+     /*<<string.ml:182:19>>*/ return contains_from(s, 0, c) /*<<string.ml:182:38>>*/ ;
     /*<<string.ml:182:38>>*/ }
    function rcontains_from(s, i, c){
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:189:4>>*/ try{
        /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
       var _D_ =  /*<<string.ml:189:35>>*/ 1;
-       /*<<string.ml:189:35>>*/ return _D_;
+       /*<<string.ml:189:35>>*/ return _D_ /*<<string.ml:189:35>>*/ ;
      }
      catch(_E_){
       var _C_ = caml_wrap_exception(_E_);
-      if(_C_ === Stdlib[8])  /*<<string.ml:189:58>>*/ return 0;
+      if(_C_ === Stdlib[8])
+        /*<<string.ml:189:58>>*/ return 0 /*<<string.ml:189:58>>*/ ;
       throw caml_maybe_attach_backtrace(_C_, 0);
      }
      /*<<string.ml:187:4>>*/ return  /*<<string.ml:187:4>>*/ caml_call1
              /*<<string.ml:187:4>>*/ (Stdlib[1],
-             cst_String_rcontains_from_Byte);
+             cst_String_rcontains_from_Byte) /*<<string.ml:189:63>>*/ ;
     /*<<string.ml:189:63>>*/ }
    function uppercase_ascii(s){
     var
@@ -7293,7 +7408,7 @@
      /*<<string.ml:192:2>>*/ return  /*<<string.ml:192:2>>*/ caml_call1
              /*<<string.ml:192:2>>*/ (bts,
               /*<<string.ml:192:2>>*/ caml_call1
-               /*<<string.ml:192:2>>*/ (Stdlib_Bytes[36], _B_));
+               /*<<string.ml:192:2>>*/ (Stdlib_Bytes[36], _B_)) /*<<string.ml:192:34>>*/ ;
     /*<<string.ml:192:34>>*/ }
    function lowercase_ascii(s){
     var
@@ -7303,7 +7418,7 @@
      /*<<string.ml:194:2>>*/ return  /*<<string.ml:194:2>>*/ caml_call1
              /*<<string.ml:194:2>>*/ (bts,
               /*<<string.ml:194:2>>*/ caml_call1
-               /*<<string.ml:194:2>>*/ (Stdlib_Bytes[37], _A_));
+               /*<<string.ml:194:2>>*/ (Stdlib_Bytes[37], _A_)) /*<<string.ml:194:34>>*/ ;
     /*<<string.ml:194:34>>*/ }
    function capitalize_ascii(s){
     var
@@ -7313,7 +7428,7 @@
      /*<<string.ml:196:2>>*/ return  /*<<string.ml:196:2>>*/ caml_call1
              /*<<string.ml:196:2>>*/ (bts,
               /*<<string.ml:196:2>>*/ caml_call1
-               /*<<string.ml:196:2>>*/ (Stdlib_Bytes[38], _z_));
+               /*<<string.ml:196:2>>*/ (Stdlib_Bytes[38], _z_)) /*<<string.ml:196:35>>*/ ;
     /*<<string.ml:196:35>>*/ }
    function uncapitalize_ascii(s){
     var
@@ -7323,7 +7438,7 @@
      /*<<string.ml:198:2>>*/ return  /*<<string.ml:198:2>>*/ caml_call1
              /*<<string.ml:198:2>>*/ (bts,
               /*<<string.ml:198:2>>*/ caml_call1
-               /*<<string.ml:198:2>>*/ (Stdlib_Bytes[39], _y_));
+               /*<<string.ml:198:2>>*/ (Stdlib_Bytes[39], _y_)) /*<<string.ml:198:37>>*/ ;
     /*<<string.ml:198:37>>*/ }
    function starts_with(prefix, s){
     var
@@ -7333,9 +7448,10 @@
     if(! _x_) return _x_;
     var i = 0;
      /*<<string.ml:205:4>>*/ for(;;){
-     if(i === len_pre)  /*<<string.ml:205:24>>*/ return 1;
+     if(i === len_pre)
+       /*<<string.ml:205:24>>*/ return 1 /*<<string.ml:205:24>>*/ ;
      if(caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
-       /*<<string.ml:206:55>>*/ return 0;
+       /*<<string.ml:206:55>>*/ return 0 /*<<string.ml:206:55>>*/ ;
      var i$0 =  /*<<string.ml:207:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -7349,18 +7465,19 @@
     if(! _w_) return _w_;
     var i = 0;
      /*<<string.ml:216:4>>*/ for(;;){
-     if(i === len_suf)  /*<<string.ml:216:24>>*/ return 1;
+     if(i === len_suf)
+       /*<<string.ml:216:24>>*/ return 1 /*<<string.ml:216:24>>*/ ;
      if
       (caml_string_unsafe_get(s, diff + i | 0)
        !== caml_string_unsafe_get(suffix, i))
-       /*<<string.ml:217:64>>*/ return 0;
+       /*<<string.ml:217:64>>*/ return 0 /*<<string.ml:217:64>>*/ ;
      var i$0 =  /*<<string.ml:218:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<string.ml:219:23>>*/ }
    function hash(x){
      /*<<string.ml:222:13>>*/ return  /*<<string.ml:222:13>>*/ caml_string_hash
-             /*<<string.ml:222:13>>*/ (0, x);
+             /*<<string.ml:222:13>>*/ (0, x) /*<<string.ml:222:28>>*/ ;
     /*<<string.ml:222:28>>*/ }
    function split_on_char(sep, s){
     var
@@ -7388,7 +7505,7 @@
      }
     }
     var _t_ = r[1];
-     /*<<string.ml:234:2>>*/ return [0, sub(s, 0, j[1]), _t_];
+     /*<<string.ml:234:2>>*/ return [0, sub(s, 0, j[1]), _t_] /*<<string.ml:234:2>>*/ ;
     /*<<string.ml:234:18>>*/ }
    var compare = runtime.caml_string_compare;
    function to_seq(s){
@@ -7397,7 +7514,7 @@
         /*<<string.ml:243:15>>*/  /*<<string.ml:243:15>>*/ caml_call1
          /*<<string.ml:243:15>>*/ (bos, s);
      /*<<string.ml:243:15>>*/ return  /*<<string.ml:243:15>>*/ caml_call1
-             /*<<string.ml:243:15>>*/ (Stdlib_Bytes[47], _r_);
+             /*<<string.ml:243:15>>*/ (Stdlib_Bytes[47], _r_) /*<<string.ml:243:32>>*/ ;
     /*<<string.ml:243:32>>*/ }
    function to_seqi(s){
     var
@@ -7405,13 +7522,13 @@
         /*<<string.ml:245:16>>*/  /*<<string.ml:245:16>>*/ caml_call1
          /*<<string.ml:245:16>>*/ (bos, s);
      /*<<string.ml:245:16>>*/ return  /*<<string.ml:245:16>>*/ caml_call1
-             /*<<string.ml:245:16>>*/ (Stdlib_Bytes[48], _q_);
+             /*<<string.ml:245:16>>*/ (Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
     /*<<string.ml:245:34>>*/ }
    function of_seq(g){
      /*<<string.ml:247:15>>*/ return  /*<<string.ml:247:15>>*/ caml_call1
              /*<<string.ml:247:15>>*/ (bts,
               /*<<string.ml:247:15>>*/ caml_call1
-               /*<<string.ml:247:15>>*/ (Stdlib_Bytes[49], g));
+               /*<<string.ml:247:15>>*/ (Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
     /*<<string.ml:247:32>>*/ }
    function get_utf_8_uchar(s, i){
     var
@@ -7419,7 +7536,7 @@
         /*<<string.ml:251:44>>*/  /*<<string.ml:251:44>>*/ caml_call1
          /*<<string.ml:251:44>>*/ (bos, s);
      /*<<string.ml:251:26>>*/ return  /*<<string.ml:251:26>>*/ caml_call2
-             /*<<string.ml:251:26>>*/ (Stdlib_Bytes[50], _p_, i);
+             /*<<string.ml:251:26>>*/ (Stdlib_Bytes[50], _p_, i) /*<<string.ml:251:53>>*/ ;
     /*<<string.ml:251:53>>*/ }
    function is_valid_utf_8(s){
     var
@@ -7427,7 +7544,7 @@
         /*<<string.ml:252:40>>*/  /*<<string.ml:252:40>>*/ caml_call1
          /*<<string.ml:252:40>>*/ (bos, s);
      /*<<string.ml:252:40>>*/ return  /*<<string.ml:252:40>>*/ caml_call1
-             /*<<string.ml:252:40>>*/ (Stdlib_Bytes[52], _o_);
+             /*<<string.ml:252:40>>*/ (Stdlib_Bytes[52], _o_) /*<<string.ml:252:47>>*/ ;
     /*<<string.ml:252:47>>*/ }
    function get_utf_16be_uchar(s, i){
     var
@@ -7435,7 +7552,7 @@
         /*<<string.ml:254:50>>*/  /*<<string.ml:254:50>>*/ caml_call1
          /*<<string.ml:254:50>>*/ (bos, s);
      /*<<string.ml:254:29>>*/ return  /*<<string.ml:254:29>>*/ caml_call2
-             /*<<string.ml:254:29>>*/ (Stdlib_Bytes[53], _n_, i);
+             /*<<string.ml:254:29>>*/ (Stdlib_Bytes[53], _n_, i) /*<<string.ml:254:59>>*/ ;
     /*<<string.ml:254:59>>*/ }
    function is_valid_utf_16be(s){
     var
@@ -7443,7 +7560,7 @@
         /*<<string.ml:255:46>>*/  /*<<string.ml:255:46>>*/ caml_call1
          /*<<string.ml:255:46>>*/ (bos, s);
      /*<<string.ml:255:46>>*/ return  /*<<string.ml:255:46>>*/ caml_call1
-             /*<<string.ml:255:46>>*/ (Stdlib_Bytes[55], _m_);
+             /*<<string.ml:255:46>>*/ (Stdlib_Bytes[55], _m_) /*<<string.ml:255:53>>*/ ;
     /*<<string.ml:255:53>>*/ }
    function get_utf_16le_uchar(s, i){
     var
@@ -7451,7 +7568,7 @@
         /*<<string.ml:257:50>>*/  /*<<string.ml:257:50>>*/ caml_call1
          /*<<string.ml:257:50>>*/ (bos, s);
      /*<<string.ml:257:29>>*/ return  /*<<string.ml:257:29>>*/ caml_call2
-             /*<<string.ml:257:29>>*/ (Stdlib_Bytes[56], _l_, i);
+             /*<<string.ml:257:29>>*/ (Stdlib_Bytes[56], _l_, i) /*<<string.ml:257:59>>*/ ;
     /*<<string.ml:257:59>>*/ }
    function is_valid_utf_16le(s){
     var
@@ -7459,7 +7576,7 @@
         /*<<string.ml:258:46>>*/  /*<<string.ml:258:46>>*/ caml_call1
          /*<<string.ml:258:46>>*/ (bos, s);
      /*<<string.ml:258:46>>*/ return  /*<<string.ml:258:46>>*/ caml_call1
-             /*<<string.ml:258:46>>*/ (Stdlib_Bytes[58], _k_);
+             /*<<string.ml:258:46>>*/ (Stdlib_Bytes[58], _k_) /*<<string.ml:258:53>>*/ ;
     /*<<string.ml:258:53>>*/ }
    function get_int8(s, i){
     var
@@ -7467,7 +7584,7 @@
         /*<<string.ml:267:30>>*/  /*<<string.ml:267:30>>*/ caml_call1
          /*<<string.ml:267:30>>*/ (bos, s);
      /*<<string.ml:267:19>>*/ return  /*<<string.ml:267:19>>*/ caml_call2
-             /*<<string.ml:267:19>>*/ (Stdlib_Bytes[60], _j_, i);
+             /*<<string.ml:267:19>>*/ (Stdlib_Bytes[60], _j_, i) /*<<string.ml:267:39>>*/ ;
     /*<<string.ml:267:39>>*/ }
    function get_uint16_le(s, i){
     var
@@ -7475,7 +7592,7 @@
         /*<<string.ml:268:40>>*/  /*<<string.ml:268:40>>*/ caml_call1
          /*<<string.ml:268:40>>*/ (bos, s);
      /*<<string.ml:268:24>>*/ return  /*<<string.ml:268:24>>*/ caml_call2
-             /*<<string.ml:268:24>>*/ (Stdlib_Bytes[63], _i_, i);
+             /*<<string.ml:268:24>>*/ (Stdlib_Bytes[63], _i_, i) /*<<string.ml:268:49>>*/ ;
     /*<<string.ml:268:49>>*/ }
    function get_uint16_be(s, i){
     var
@@ -7483,7 +7600,7 @@
         /*<<string.ml:269:40>>*/  /*<<string.ml:269:40>>*/ caml_call1
          /*<<string.ml:269:40>>*/ (bos, s);
      /*<<string.ml:269:24>>*/ return  /*<<string.ml:269:24>>*/ caml_call2
-             /*<<string.ml:269:24>>*/ (Stdlib_Bytes[62], _h_, i);
+             /*<<string.ml:269:24>>*/ (Stdlib_Bytes[62], _h_, i) /*<<string.ml:269:49>>*/ ;
     /*<<string.ml:269:49>>*/ }
    function get_int16_ne(s, i){
     var
@@ -7491,7 +7608,7 @@
         /*<<string.ml:270:38>>*/  /*<<string.ml:270:38>>*/ caml_call1
          /*<<string.ml:270:38>>*/ (bos, s);
      /*<<string.ml:270:23>>*/ return  /*<<string.ml:270:23>>*/ caml_call2
-             /*<<string.ml:270:23>>*/ (Stdlib_Bytes[64], _g_, i);
+             /*<<string.ml:270:23>>*/ (Stdlib_Bytes[64], _g_, i) /*<<string.ml:270:47>>*/ ;
     /*<<string.ml:270:47>>*/ }
    function get_int16_le(s, i){
     var
@@ -7499,7 +7616,7 @@
         /*<<string.ml:271:38>>*/  /*<<string.ml:271:38>>*/ caml_call1
          /*<<string.ml:271:38>>*/ (bos, s);
      /*<<string.ml:271:23>>*/ return  /*<<string.ml:271:23>>*/ caml_call2
-             /*<<string.ml:271:23>>*/ (Stdlib_Bytes[66], _f_, i);
+             /*<<string.ml:271:23>>*/ (Stdlib_Bytes[66], _f_, i) /*<<string.ml:271:47>>*/ ;
     /*<<string.ml:271:47>>*/ }
    function get_int16_be(s, i){
     var
@@ -7507,7 +7624,7 @@
         /*<<string.ml:272:38>>*/  /*<<string.ml:272:38>>*/ caml_call1
          /*<<string.ml:272:38>>*/ (bos, s);
      /*<<string.ml:272:23>>*/ return  /*<<string.ml:272:23>>*/ caml_call2
-             /*<<string.ml:272:23>>*/ (Stdlib_Bytes[65], _e_, i);
+             /*<<string.ml:272:23>>*/ (Stdlib_Bytes[65], _e_, i) /*<<string.ml:272:47>>*/ ;
     /*<<string.ml:272:47>>*/ }
    function get_int32_le(s, i){
     var
@@ -7515,7 +7632,7 @@
         /*<<string.ml:273:38>>*/  /*<<string.ml:273:38>>*/ caml_call1
          /*<<string.ml:273:38>>*/ (bos, s);
      /*<<string.ml:273:23>>*/ return  /*<<string.ml:273:23>>*/ caml_call2
-             /*<<string.ml:273:23>>*/ (Stdlib_Bytes[69], _d_, i);
+             /*<<string.ml:273:23>>*/ (Stdlib_Bytes[69], _d_, i) /*<<string.ml:273:47>>*/ ;
     /*<<string.ml:273:47>>*/ }
    function get_int32_be(s, i){
     var
@@ -7523,7 +7640,7 @@
         /*<<string.ml:274:38>>*/  /*<<string.ml:274:38>>*/ caml_call1
          /*<<string.ml:274:38>>*/ (bos, s);
      /*<<string.ml:274:23>>*/ return  /*<<string.ml:274:23>>*/ caml_call2
-             /*<<string.ml:274:23>>*/ (Stdlib_Bytes[68], _c_, i);
+             /*<<string.ml:274:23>>*/ (Stdlib_Bytes[68], _c_, i) /*<<string.ml:274:47>>*/ ;
     /*<<string.ml:274:47>>*/ }
    function get_int64_le(s, i){
     var
@@ -7531,7 +7648,7 @@
         /*<<string.ml:275:38>>*/  /*<<string.ml:275:38>>*/ caml_call1
          /*<<string.ml:275:38>>*/ (bos, s);
      /*<<string.ml:275:23>>*/ return  /*<<string.ml:275:23>>*/ caml_call2
-             /*<<string.ml:275:23>>*/ (Stdlib_Bytes[72], _b_, i);
+             /*<<string.ml:275:23>>*/ (Stdlib_Bytes[72], _b_, i) /*<<string.ml:275:47>>*/ ;
     /*<<string.ml:275:47>>*/ }
    function get_int64_be(s, i){
     var
@@ -7539,7 +7656,7 @@
         /*<<string.ml:276:38>>*/  /*<<string.ml:276:38>>*/ caml_call1
          /*<<string.ml:276:38>>*/ (bos, s);
      /*<<string.ml:276:23>>*/ return  /*<<string.ml:276:23>>*/ caml_call2
-             /*<<string.ml:276:23>>*/ (Stdlib_Bytes[71], _a_, i);
+             /*<<string.ml:276:23>>*/ (Stdlib_Bytes[71], _a_, i) /*<<string.ml:276:47>>*/ ;
     /*<<string.ml:276:47>>*/ }
    var
     Stdlib_String =
@@ -7618,13 +7735,13 @@
    "use strict";
    var runtime =  /*<<?>>*/ globalThis.jsoo_runtime, cst = "()";
    function equal(_b_, param){
-     /*<<unit.ml:18:18>>*/ return 1;
+     /*<<unit.ml:18:18>>*/ return 1 /*<<unit.ml:18:18>>*/ ;
     /*<<unit.ml:18:22>>*/ }
    function compare(_a_, param){
-     /*<<unit.ml:19:20>>*/ return 0;
+     /*<<unit.ml:19:20>>*/ return 0 /*<<unit.ml:19:20>>*/ ;
     /*<<unit.ml:19:21>>*/ }
    function to_string(param){
-     /*<<unit.ml:20:19>>*/ return cst;
+     /*<<unit.ml:20:19>>*/ return cst /*<<unit.ml:20:19>>*/ ;
     /*<<unit.ml:20:23>>*/ }
    var Stdlib_Unit = [0, equal, compare, to_string];
    runtime.caml_register_global(1, Stdlib_Unit, "Stdlib__Unit");
@@ -7657,10 +7774,10 @@
      /*<<marshal.ml:34:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(buff) - len | 0) >= ofs)
       /*<<marshal.ml:36:7>>*/ return  /*<<marshal.ml:36:7>>*/ runtime.caml_output_value_to_buffer
-              /*<<marshal.ml:36:7>>*/ (buff, ofs, len, v, flags);
+              /*<<marshal.ml:36:7>>*/ (buff, ofs, len, v, flags) /*<<marshal.ml:36:44>>*/ ;
      /*<<marshal.ml:35:7>>*/ return  /*<<marshal.ml:35:7>>*/ caml_call1
              /*<<marshal.ml:35:7>>*/ (Stdlib[1],
-             cst_Marshal_to_buffer_substrin);
+             cst_Marshal_to_buffer_substrin) /*<<marshal.ml:36:44>>*/ ;
     /*<<marshal.ml:36:44>>*/ }
    var
     cst_Marshal_data_size = "Marshal.data_size",
@@ -7670,9 +7787,9 @@
      /*<<marshal.ml:50:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs)
       /*<<marshal.ml:52:7>>*/ return  /*<<marshal.ml:52:7>>*/ caml_marshal_data_size
-              /*<<marshal.ml:52:7>>*/ (buff, ofs);
+              /*<<marshal.ml:52:7>>*/ (buff, ofs) /*<<marshal.ml:52:32>>*/ ;
      /*<<marshal.ml:51:7>>*/ return  /*<<marshal.ml:51:7>>*/ caml_call1
-             /*<<marshal.ml:51:7>>*/ (Stdlib[1], cst_Marshal_data_size);
+             /*<<marshal.ml:51:7>>*/ (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
     /*<<marshal.ml:52:32>>*/ }
    function total_size(buff, ofs){
      /*<<marshal.ml:53:26>>*/ return 16 + data_size(buff, ofs) | 0;
@@ -7688,16 +7805,16 @@
              ?  /*<<marshal.ml:61:9>>*/ caml_call1
                 /*<<marshal.ml:61:9>>*/ (Stdlib[1], cst_Marshal_from_bytes$0)
              :  /*<<marshal.ml:62:9>>*/ runtime.caml_input_value_from_bytes
-                /*<<marshal.ml:62:9>>*/ (buff, ofs);
+                /*<<marshal.ml:62:9>>*/ (buff, ofs) /*<<marshal.ml:63:5>>*/ ;
     }
      /*<<marshal.ml:57:7>>*/ return  /*<<marshal.ml:57:7>>*/ caml_call1
-             /*<<marshal.ml:57:7>>*/ (Stdlib[1], cst_Marshal_from_bytes);
+             /*<<marshal.ml:57:7>>*/ (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
     /*<<marshal.ml:63:5>>*/ }
    function from_string(buff, ofs){
      /*<<marshal.ml:68:2>>*/ return from_bytes
             ( /*<<marshal.ml:68:13>>*/ caml_call1
                /*<<marshal.ml:68:13>>*/ (Stdlib_Bytes[45], buff),
-             ofs);
+             ofs) /*<<marshal.ml:68:46>>*/ ;
     /*<<marshal.ml:68:46>>*/ }
    var
     Stdlib_Marshal =
@@ -7763,10 +7880,11 @@
     cst_Array_exists2 = "Array.exists2",
     cst_Array_combine = "Array.combine";
    function init(l, f){
-     /*<<array.ml:48:2>>*/ if(0 === l)  /*<<array.ml:48:16>>*/ return [0];
+     /*<<array.ml:48:2>>*/ if(0 === l)
+      /*<<array.ml:48:16>>*/ return [0] /*<<array.ml:48:16>>*/ ;
     if(0 > l)
       /*<<array.ml:49:16>>*/ return  /*<<array.ml:49:16>>*/ caml_call1
-              /*<<array.ml:49:16>>*/ (Stdlib[1], cst_Array_init);
+              /*<<array.ml:49:16>>*/ (Stdlib[1], cst_Array_init) /*<<array.ml:58:6>>*/ ;
     var
      res =
         /*<<array.ml:54:13>>*/  /*<<array.ml:54:13>>*/ caml_make_vect
@@ -7784,7 +7902,7 @@
       i = _aF_;
      }
     }
-     /*<<array.ml:58:3>>*/ return res;
+     /*<<array.ml:58:3>>*/ return res /*<<array.ml:58:3>>*/ ;
     /*<<array.ml:58:6>>*/ }
    function make_matrix(sx, sy, init){
      /*<<array.ml:62:2>>*/ if(sy < 0)
@@ -7808,7 +7926,7 @@
       }
      }
     }
-     /*<<array.ml:69:2>>*/ return res;
+     /*<<array.ml:69:2>>*/ return res /*<<array.ml:69:2>>*/ ;
     /*<<array.ml:69:5>>*/ }
    function init_matrix(sx, sy, f){
      /*<<array.ml:73:2>>*/ if(sy < 0)
@@ -7848,14 +7966,14 @@
       }
      }
     }
-     /*<<array.ml:85:2>>*/ return res;
+     /*<<array.ml:85:2>>*/ return res /*<<array.ml:85:2>>*/ ;
     /*<<array.ml:85:5>>*/ }
    function copy(a){
     var l = a.length - 1;
      /*<<array.ml:88:22>>*/ return 0 === l
             ? [0]
             :  /*<<array.ml:88:46>>*/ caml_array_sub
-               /*<<array.ml:88:46>>*/ (a, 0, l);
+               /*<<array.ml:88:46>>*/ (a, 0, l) /*<<array.ml:88:62>>*/ ;
     /*<<array.ml:88:62>>*/ }
    function append(a1, a2){
     var l1 = a1.length - 1;
@@ -7866,23 +7984,23 @@
               ?  /*<<array.ml:93:29>>*/ caml_array_sub
                  /*<<array.ml:93:29>>*/ (a1, 0, l1)
               :  /*<<array.ml:94:7>>*/ runtime.caml_array_append
-                 /*<<array.ml:94:7>>*/ (a1, a2);
+                 /*<<array.ml:94:7>>*/ (a1, a2) /*<<array.ml:94:24>>*/ ;
     /*<<array.ml:94:24>>*/ }
    function sub(a, ofs, len){
      /*<<array.ml:97:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
       /*<<array.ml:99:7>>*/ return  /*<<array.ml:99:7>>*/ caml_array_sub
-              /*<<array.ml:99:7>>*/ (a, ofs, len);
+              /*<<array.ml:99:7>>*/ (a, ofs, len) /*<<array.ml:99:27>>*/ ;
      /*<<array.ml:98:7>>*/ return  /*<<array.ml:98:7>>*/ caml_call1
-             /*<<array.ml:98:7>>*/ (Stdlib[1], cst_Array_sub);
+             /*<<array.ml:98:7>>*/ (Stdlib[1], cst_Array_sub) /*<<array.ml:99:27>>*/ ;
     /*<<array.ml:99:27>>*/ }
    function fill(a, ofs, len, v){
      /*<<array.ml:102:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
       /*<<array.ml:104:7>>*/ return  /*<<array.ml:104:7>>*/ runtime.caml_array_fill
-              /*<<array.ml:104:7>>*/ (a, ofs, len, v);
+              /*<<array.ml:104:7>>*/ (a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
      /*<<array.ml:103:7>>*/ return  /*<<array.ml:103:7>>*/ caml_call1
-             /*<<array.ml:103:7>>*/ (Stdlib[1], cst_Array_fill);
+             /*<<array.ml:103:7>>*/ (Stdlib[1], cst_Array_fill) /*<<array.ml:104:30>>*/ ;
     /*<<array.ml:104:30>>*/ }
    function blit(a1, ofs1, a2, ofs2, len){
      /*<<array.ml:107:2>>*/ if
@@ -7893,9 +8011,9 @@
         (a1.length - 1 - len | 0) >= ofs1
         && 0 <= ofs2 && (a2.length - 1 - len | 0) >= ofs2)
       /*<<array.ml:110:7>>*/ return  /*<<array.ml:110:7>>*/ runtime.caml_array_blit
-              /*<<array.ml:110:7>>*/ (a1, ofs1, a2, ofs2, len);
+              /*<<array.ml:110:7>>*/ (a1, ofs1, a2, ofs2, len) /*<<array.ml:110:38>>*/ ;
      /*<<array.ml:109:7>>*/ return  /*<<array.ml:109:7>>*/ caml_call1
-             /*<<array.ml:109:7>>*/ (Stdlib[1], cst_Array_blit);
+             /*<<array.ml:109:7>>*/ (Stdlib[1], cst_Array_blit) /*<<array.ml:110:38>>*/ ;
     /*<<array.ml:110:38>>*/ }
    function iter(f, a){
     var _as_ = a.length - 2 | 0, _ar_ =  /*<<array.ml:113:2>>*/ 0;
@@ -7915,7 +8033,7 @@
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
       /*<<array.ml:117:4>>*/ return  /*<<array.ml:117:4>>*/ caml_call1
               /*<<array.ml:117:4>>*/ (Stdlib[1],
-              cst_Array_iter2_arrays_must_ha);
+              cst_Array_iter2_arrays_must_ha) /*<<array.ml:119:73>>*/ ;
     var _ap_ = a.length - 2 | 0, _ao_ =  /*<<array.ml:119:4>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
@@ -7931,7 +8049,8 @@
     /*<<array.ml:119:73>>*/ }
    function map(f, a){
     var l = a.length - 1;
-     /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
+     /*<<array.ml:123:2>>*/ if(0 === l)
+      /*<<array.ml:123:16>>*/ return [0] /*<<array.ml:123:16>>*/ ;
     var
      r =
         /*<<array.ml:124:12>>*/  /*<<array.ml:124:12>>*/ caml_make_vect
@@ -7950,7 +8069,7 @@
       i = _an_;
      }
     }
-     /*<<array.ml:128:4>>*/ return r;
+     /*<<array.ml:128:4>>*/ return r /*<<array.ml:128:4>>*/ ;
     /*<<array.ml:129:5>>*/ }
    function map_inplace(f, a){
     var _aj_ = a.length - 2 | 0, _ai_ =  /*<<array.ml:132:2>>*/ 0;
@@ -7987,8 +8106,8 @@
     if(la !== lb)
       /*<<array.ml:145:4>>*/ return  /*<<array.ml:145:4>>*/ caml_call1
               /*<<array.ml:145:4>>*/ (Stdlib[1],
-              cst_Array_map2_arrays_must_hav);
-    if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
+              cst_Array_map2_arrays_must_hav) /*<<array.ml:154:5>>*/ ;
+    if(0 === la)  /*<<array.ml:147:19>>*/ return [0] /*<<array.ml:147:19>>*/ ;
     var
      r =
         /*<<array.ml:148:14>>*/  /*<<array.ml:148:14>>*/ caml_make_vect
@@ -8008,7 +8127,7 @@
       i = _ae_;
      }
     }
-     /*<<array.ml:152:6>>*/ return r;
+     /*<<array.ml:152:6>>*/ return r /*<<array.ml:152:6>>*/ ;
     /*<<array.ml:154:5>>*/ }
    function iteri(f, a){
     var _aa_ = a.length - 2 | 0, _$_ =  /*<<array.ml:157:2>>*/ 0;
@@ -8026,7 +8145,8 @@
     /*<<array.ml:157:56>>*/ }
    function mapi(f, a){
     var l = a.length - 1;
-     /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
+     /*<<array.ml:161:2>>*/ if(0 === l)
+      /*<<array.ml:161:16>>*/ return [0] /*<<array.ml:161:16>>*/ ;
     var
      r =
         /*<<array.ml:162:12>>*/  /*<<array.ml:162:12>>*/ caml_make_vect
@@ -8046,12 +8166,12 @@
       i = ___;
      }
     }
-     /*<<array.ml:166:4>>*/ return r;
+     /*<<array.ml:166:4>>*/ return r /*<<array.ml:166:4>>*/ ;
     /*<<array.ml:167:5>>*/ }
    function to_list(a){
     var i$1 = a.length - 2 | 0, i = i$1, res = 0;
      /*<<array.ml:171:4>>*/ for(;;){
-     if(0 > i)  /*<<array.ml:171:18>>*/ return res;
+     if(0 > i)  /*<<array.ml:171:18>>*/ return res /*<<array.ml:171:18>>*/ ;
      var
       res$0 =  /*<<array.ml:171:42>>*/ [0, a[1 + i], res],
       i$0 =  /*<<array.ml:171:42>>*/ i - 1 | 0;
@@ -8062,14 +8182,16 @@
    function list_length(accu, param){
     var accu$0 = accu, param$0 = param;
     for(;;){
-     if(! param$0)  /*<<array.ml:176:10>>*/ return accu$0;
+     if(! param$0)
+       /*<<array.ml:176:10>>*/ return accu$0 /*<<array.ml:176:10>>*/ ;
      var t = param$0[2], accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = t;
     }
    }
    function of_list(l){
-     /*<<array.ml:179:14>>*/ if(! l)  /*<<array.ml:180:10>>*/ return [0];
+     /*<<array.ml:179:14>>*/ if(! l)
+      /*<<array.ml:180:10>>*/ return [0] /*<<array.ml:180:10>>*/ ;
     var
      tl = l[2],
      hd = l[1],
@@ -8079,7 +8201,7 @@
      i = 1,
      param = tl;
     for(;;){
-     if(! param)  /*<<array.ml:183:6>>*/ return a;
+     if(! param)  /*<<array.ml:183:6>>*/ return a /*<<array.ml:183:6>>*/ ;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
      var i$0 =  /*<<array.ml:183:6>>*/ i + 1 | 0;
@@ -8108,7 +8230,7 @@
    function fold_left_map(f, acc, input_array){
     var len = input_array.length - 1;
      /*<<array.ml:197:2>>*/ if(0 === len)
-      /*<<array.ml:197:18>>*/ return [0, acc, [0]];
+      /*<<array.ml:197:18>>*/ return [0, acc, [0]] /*<<array.ml:197:18>>*/ ;
     var
      match =
         /*<<array.ml:198:19>>*/  /*<<array.ml:198:19>>*/ caml_call2
@@ -8137,7 +8259,7 @@
       i = _U_;
      }
     }
-     /*<<array.ml:206:4>>*/ return [0, acc$1[1], output_array];
+     /*<<array.ml:206:4>>*/ return [0, acc$1[1], output_array] /*<<array.ml:206:4>>*/ ;
     /*<<array.ml:207:5>>*/ }
    function fold_right(f, a, x){
     var
@@ -8159,11 +8281,11 @@
    function exists(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:219:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:219:18>>*/ return 0;
+     if(i === n)  /*<<array.ml:219:18>>*/ return 0 /*<<array.ml:219:18>>*/ ;
       /*<<array.ml:220:12>>*/ if
       ( /*<<array.ml:220:12>>*/ caml_call1
          /*<<array.ml:220:12>>*/ (p, a[1 + i]))
-       /*<<array.ml:220:36>>*/ return 1;
+       /*<<array.ml:220:36>>*/ return 1 /*<<array.ml:220:36>>*/ ;
      var i$0 =  /*<<array.ml:221:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8171,12 +8293,12 @@
    function for_all(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:227:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:227:18>>*/ return 1;
+     if(i === n)  /*<<array.ml:227:18>>*/ return 1 /*<<array.ml:227:18>>*/ ;
       /*<<array.ml:228:12>>*/ if
       (!
         /*<<array.ml:228:12>>*/ caml_call1
          /*<<array.ml:228:12>>*/ (p, a[1 + i]))
-       /*<<array.ml:229:9>>*/ return 0;
+       /*<<array.ml:229:9>>*/ return 0 /*<<array.ml:229:9>>*/ ;
      var i$0 =  /*<<array.ml:228:36>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8185,15 +8307,15 @@
     var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
       /*<<array.ml:235:19>>*/ return  /*<<array.ml:235:19>>*/ caml_call1
-              /*<<array.ml:235:19>>*/ (Stdlib[1], cst_Array_for_all2);
+              /*<<array.ml:235:19>>*/ (Stdlib[1], cst_Array_for_all2) /*<<array.ml:240:8>>*/ ;
     var i = 0;
      /*<<array.ml:237:4>>*/ for(;;){
-     if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
+     if(i === n1)  /*<<array.ml:237:19>>*/ return 1 /*<<array.ml:237:19>>*/ ;
       /*<<array.ml:238:12>>*/ if
       (!
         /*<<array.ml:238:12>>*/ caml_call2
          /*<<array.ml:238:12>>*/ (p, l1[1 + i], l2[1 + i]))
-       /*<<array.ml:239:9>>*/ return 0;
+       /*<<array.ml:239:9>>*/ return 0 /*<<array.ml:239:9>>*/ ;
      var i$0 =  /*<<array.ml:238:55>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8202,14 +8324,14 @@
     var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
       /*<<array.ml:245:19>>*/ return  /*<<array.ml:245:19>>*/ caml_call1
-              /*<<array.ml:245:19>>*/ (Stdlib[1], cst_Array_exists2);
+              /*<<array.ml:245:19>>*/ (Stdlib[1], cst_Array_exists2) /*<<array.ml:250:8>>*/ ;
     var i = 0;
      /*<<array.ml:247:4>>*/ for(;;){
-     if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
+     if(i === n1)  /*<<array.ml:247:19>>*/ return 0 /*<<array.ml:247:19>>*/ ;
       /*<<array.ml:248:12>>*/ if
       ( /*<<array.ml:248:12>>*/ caml_call2
          /*<<array.ml:248:12>>*/ (p, l1[1 + i], l2[1 + i]))
-       /*<<array.ml:248:55>>*/ return 1;
+       /*<<array.ml:248:55>>*/ return 1 /*<<array.ml:248:55>>*/ ;
      var i$0 =  /*<<array.ml:249:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8217,13 +8339,13 @@
    function mem(x, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:255:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:255:18>>*/ return 0;
+     if(i === n)  /*<<array.ml:255:18>>*/ return 0 /*<<array.ml:255:18>>*/ ;
       /*<<array.ml:256:12>>*/ if
       (0
        ===
          /*<<array.ml:256:12>>*/ runtime.caml_compare
           /*<<array.ml:256:12>>*/ (a[1 + i], x))
-       /*<<array.ml:256:48>>*/ return 1;
+       /*<<array.ml:256:48>>*/ return 1 /*<<array.ml:256:48>>*/ ;
      var i$0 =  /*<<array.ml:257:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8231,8 +8353,9 @@
    function memq(x, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:263:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:263:18>>*/ return 0;
-     if(x === a[1 + i])  /*<<array.ml:264:39>>*/ return 1;
+     if(i === n)  /*<<array.ml:263:18>>*/ return 0 /*<<array.ml:263:18>>*/ ;
+     if(x === a[1 + i])
+       /*<<array.ml:264:39>>*/ return 1 /*<<array.ml:264:39>>*/ ;
      var i$0 =  /*<<array.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8240,11 +8363,11 @@
    function find_opt(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:271:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:271:18>>*/ return 0;
+     if(i === n)  /*<<array.ml:271:18>>*/ return 0 /*<<array.ml:271:18>>*/ ;
      var x =  /*<<array.ml:273:14>>*/ a[1 + i];
       /*<<array.ml:274:9>>*/ if
       ( /*<<array.ml:274:9>>*/ caml_call1 /*<<array.ml:274:9>>*/ (p, x))
-       /*<<array.ml:274:18>>*/ return [0, x];
+       /*<<array.ml:274:18>>*/ return [0, x] /*<<array.ml:274:18>>*/ ;
      var i$0 =  /*<<array.ml:275:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8252,11 +8375,11 @@
    function find_index(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:282:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:282:18>>*/ return 0;
+     if(i === n)  /*<<array.ml:282:18>>*/ return 0 /*<<array.ml:282:18>>*/ ;
       /*<<array.ml:283:12>>*/ if
       ( /*<<array.ml:283:12>>*/ caml_call1
          /*<<array.ml:283:12>>*/ (p, a[1 + i]))
-       /*<<array.ml:283:36>>*/ return [0, i];
+       /*<<array.ml:283:36>>*/ return [0, i] /*<<array.ml:283:36>>*/ ;
      var i$0 =  /*<<array.ml:284:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8264,12 +8387,12 @@
    function find_map(f, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:290:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:290:18>>*/ return 0;
+     if(i === n)  /*<<array.ml:290:18>>*/ return 0 /*<<array.ml:290:18>>*/ ;
      var
       r =
          /*<<array.ml:292:12>>*/  /*<<array.ml:292:12>>*/ caml_call1
           /*<<array.ml:292:12>>*/ (f, a[1 + i]);
-     if(r)  /*<<array.ml:294:23>>*/ return r;
+     if(r)  /*<<array.ml:294:23>>*/ return r /*<<array.ml:294:23>>*/ ;
      var i$0 =  /*<<array.ml:293:16>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8277,12 +8400,12 @@
    function find_mapi(f, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:301:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:301:18>>*/ return 0;
+     if(i === n)  /*<<array.ml:301:18>>*/ return 0 /*<<array.ml:301:18>>*/ ;
      var
       r =
          /*<<array.ml:303:12>>*/  /*<<array.ml:303:12>>*/ caml_call2
           /*<<array.ml:303:12>>*/ (f, i, a[1 + i]);
-     if(r)  /*<<array.ml:305:23>>*/ return r;
+     if(r)  /*<<array.ml:305:23>>*/ return r /*<<array.ml:305:23>>*/ ;
      var i$0 =  /*<<array.ml:304:16>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8291,7 +8414,7 @@
      /*<<array.ml:310:2>>*/ if
      ( /*<<array.ml:310:5>>*/ runtime.caml_equal
         /*<<array.ml:310:5>>*/ (x, [0]))
-      /*<<array.ml:310:19>>*/ return [0, [0], [0]];
+      /*<<array.ml:310:19>>*/ return [0, [0], [0]] /*<<array.ml:310:19>>*/ ;
     var
      match = x[1],
      b0 = match[2],
@@ -8316,14 +8439,14 @@
       i = _P_;
      }
     }
-     /*<<array.ml:321:4>>*/ return [0, a, b];
+     /*<<array.ml:321:4>>*/ return [0, a, b] /*<<array.ml:321:4>>*/ ;
     /*<<array.ml:322:5>>*/ }
    function combine(a, b){
     var na = a.length - 1, nb =  /*<<array.ml:326:2>>*/ b.length - 1;
     if(na !== nb)
       /*<<array.ml:327:19>>*/  /*<<array.ml:327:19>>*/ caml_call1
        /*<<array.ml:327:19>>*/ (Stdlib[1], cst_Array_combine);
-    if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
+    if(0 === na)  /*<<array.ml:328:17>>*/ return [0] /*<<array.ml:328:17>>*/ ;
     var
      x =
         /*<<array.ml:330:12>>*/  /*<<array.ml:330:12>>*/ caml_make_vect
@@ -8339,7 +8462,7 @@
       i = _M_;
      }
     }
-     /*<<array.ml:334:4>>*/ return x;
+     /*<<array.ml:334:4>>*/ return x /*<<array.ml:334:4>>*/ ;
     /*<<array.ml:335:5>>*/ }
    var
     Bottom =
@@ -8383,9 +8506,9 @@
            /*<<array.ml:347:22>>*/ (cmp,
            caml_check_bound(a, i31)[1 + i31],
            _J_))
-        /*<<array.ml:348:11>>*/ return i31 + 1 | 0;
+        /*<<array.ml:348:11>>*/ return i31 + 1 | 0 /*<<array.ml:348:11>>*/ ;
      }
-     if(i31 < l)  /*<<array.ml:349:27>>*/ return i31;
+     if(i31 < l)  /*<<array.ml:349:27>>*/ return i31 /*<<array.ml:349:27>>*/ ;
       /*<<array.ml:349:36>>*/ throw  /*<<array.ml:349:36>>*/ caml_maybe_attach_backtrace
              /*<<array.ml:349:36>>*/ ([0, Bottom, i], 1);
      /*<<array.ml:349:52>>*/ }
@@ -8487,7 +8610,7 @@
     }
     else
      var _A_ = _z_;
-     /*<<array.ml:384:57>>*/ return _A_;
+     /*<<array.ml:384:57>>*/ return _A_ /*<<array.ml:384:57>>*/ ;
     /*<<array.ml:384:67>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
@@ -8511,7 +8634,8 @@
            /*<<array.ml:392:9>>*/ (cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<array.ml:400:8>>*/ i2 + 1 | 0;
-       if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
+       if(i2$0 >= src2r)
+        return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
         s2$0 =  /*<<array.ml:403:24>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -8523,7 +8647,7 @@
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
        var i1$0 =  /*<<array.ml:393:8>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
-        return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0);
+        return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
         s1$0 =  /*<<array.ml:396:18>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -8570,15 +8694,16 @@
      /*<<array.ml:418:8>>*/ }
     function sortto(srcofs, dst, dstofs, len){
       /*<<array.ml:421:4>>*/ if(len <= 5)
-       /*<<array.ml:421:26>>*/ return isortto(srcofs, dst, dstofs, len);
+       /*<<array.ml:421:26>>*/ return isortto(srcofs, dst, dstofs, len) /*<<array.ml:427:7>>*/ ;
      var l1 = len / 2 | 0, l2 = len - l1 | 0;
       /*<<array.ml:424:6>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
       /*<<array.ml:425:6>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
       /*<<array.ml:425:6>>*/ return merge
-             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs);
+             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<array.ml:427:7>>*/ ;
      /*<<array.ml:427:7>>*/ }
     var l = a.length - 1;
-    if(l <= 5)  /*<<array.ml:430:22>>*/ return isortto(0, a, 0, l);
+    if(l <= 5)
+      /*<<array.ml:430:22>>*/ return isortto(0, a, 0, l) /*<<array.ml:437:5>>*/ ;
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
@@ -8587,7 +8712,7 @@
          /*<<array.ml:433:12>>*/ (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:435:4>>*/ return merge(l2, l1, t, 0, l2, a, 0) /*<<array.ml:437:5>>*/ ;
     /*<<array.ml:437:5>>*/ }
    function shuffle(rand, a){
     var _j_ = a.length - 2 | 0;
@@ -8611,32 +8736,32 @@
    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:458:9>>*/ return 0 /*<<array.ml:458:9>>*/ ;
      var
       x =  /*<<array.ml:456:14>>*/ a[1 + i],
       _h_ =  /*<<array.ml:456:14>>*/ i + 1 | 0;
       /*<<array.ml:457:6>>*/ return [0,
              x,
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}];
+             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:6>>*/ ;
      /*<<array.ml:458:16>>*/ }
     var _f_ =  /*<<array.ml:460:2>>*/ 0;
      /*<<array.ml:460:2>>*/ return function(_g_){
-      /*<<?>>*/ return aux(_f_, _g_);};
+      /*<<?>>*/ return aux(_f_, _g_);} /*<<array.ml:460:2>>*/ ;
     /*<<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:468:9>>*/ return 0 /*<<array.ml:468:9>>*/ ;
      var
       x =  /*<<array.ml:466:14>>*/ a[1 + i],
       _d_ =  /*<<array.ml:466:14>>*/ i + 1 | 0;
       /*<<array.ml:467:6>>*/ return [0,
              [0, i, x],
-             function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}];
+             function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:6>>*/ ;
      /*<<array.ml:468:16>>*/ }
     var _b_ =  /*<<array.ml:470:2>>*/ 0;
      /*<<array.ml:470:2>>*/ return function(_c_){
-      /*<<?>>*/ return aux(_b_, _c_);};
+      /*<<?>>*/ return aux(_b_, _c_);} /*<<array.ml:470:2>>*/ ;
     /*<<array.ml:470:7>>*/ }
    function of_seq(i$2){
     var
@@ -8644,11 +8769,11 @@
         /*<<array.ml:484:10>>*/  /*<<array.ml:484:10>>*/ caml_call3
          /*<<array.ml:484:10>>*/ (Stdlib_Seq[5],
          function(acc, x){
-           /*<<array.ml:484:38>>*/ return [0, x, acc];
+           /*<<array.ml:484:38>>*/ return [0, x, acc] /*<<array.ml:484:38>>*/ ;
           /*<<array.ml:484:44>>*/ },
          0,
          i$2);
-    if(! l)  /*<<array.ml:473:10>>*/ return [0];
+    if(! l)  /*<<array.ml:473:10>>*/ return [0] /*<<array.ml:473:10>>*/ ;
     var
      tl = l[2],
      hd = l[1],
@@ -8660,7 +8785,7 @@
      i = i$1,
      param = tl;
     for(;;){
-     if(! param)  /*<<array.ml:477:6>>*/ return a;
+     if(! param)  /*<<array.ml:477:6>>*/ return a /*<<array.ml:477:6>>*/ ;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:479:20>>*/ a[1 + i] = hd$0;
      var i$0 =  /*<<array.ml:477:6>>*/ i - 1 | 0;
@@ -8767,10 +8892,10 @@
         /*<<float.ml:38:20>>*/ (runtime.caml_int64_create_lo_mi_hi
          (1, 0, 32752));
    function is_finite(x){
-     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0;
+     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0 /*<<float.ml:39:27>>*/ ;
     /*<<float.ml:39:38>>*/ }
    function is_infinite(x){
-     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0;
+     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0 /*<<float.ml:40:29>>*/ ;
     /*<<float.ml:40:41>>*/ }
    function is_nan(x){
      /*<<float.ml:41:24>>*/ return x !== x ? 1 : 0;
@@ -8803,15 +8928,15 @@
            /*<<float.ml:116:23>>*/ (x)
         ? 1
         : 0;
-    return _aX_ ? is_finite(x) : _aX_;
+    return _aX_ ? is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
     /*<<float.ml:116:45>>*/ }
    function succ(x){
      /*<<float.ml:121:13>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
-             /*<<float.ml:121:13>>*/ (x, infinity);
+             /*<<float.ml:121:13>>*/ (x, infinity) /*<<float.ml:121:34>>*/ ;
     /*<<float.ml:121:34>>*/ }
    function pred(x){
      /*<<float.ml:122:13>>*/ return  /*<<float.ml:122:13>>*/ caml_nextafter_float
-             /*<<float.ml:122:13>>*/ (x, neg_infinity);
+             /*<<float.ml:122:13>>*/ (x, neg_infinity) /*<<float.ml:122:38>>*/ ;
     /*<<float.ml:122:38>>*/ }
    function equal(x, y){
      /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
@@ -8826,9 +8951,9 @@
          /*<<float.ml:139:34>>*/ caml_signbit_float
           /*<<float.ml:139:34>>*/ (x))
       break a;
-      /*<<float.ml:141:10>>*/ return x !== x ? x : y;
+      /*<<float.ml:141:10>>*/ return x !== x ? x : y /*<<float.ml:141:32>>*/ ;
     }
-     /*<<float.ml:140:7>>*/ return y !== y ? y : x;
+     /*<<float.ml:140:7>>*/ return y !== y ? y : x /*<<float.ml:141:32>>*/ ;
     /*<<float.ml:141:32>>*/ }
    function max(x, y){
     a:
@@ -8840,9 +8965,9 @@
          /*<<float.ml:144:34>>*/ caml_signbit_float
           /*<<float.ml:144:34>>*/ (x))
       break a;
-      /*<<float.ml:146:10>>*/ return y !== y ? y : x;
+      /*<<float.ml:146:10>>*/ return y !== y ? y : x /*<<float.ml:146:32>>*/ ;
     }
-     /*<<float.ml:145:7>>*/ return x !== x ? x : y;
+     /*<<float.ml:145:7>>*/ return x !== x ? x : y /*<<float.ml:146:32>>*/ ;
     /*<<float.ml:146:32>>*/ }
    function min_max(x, y){
      /*<<float.ml:149:2>>*/ if(x === x && y === y){
@@ -8856,11 +8981,11 @@
           /*<<float.ml:150:39>>*/ caml_signbit_float
            /*<<float.ml:150:39>>*/ (x))
        break a;
-       /*<<float.ml:150:68>>*/ return [0, y, x];
+       /*<<float.ml:150:68>>*/ return [0, y, x] /*<<float.ml:150:68>>*/ ;
      }
-      /*<<float.ml:150:56>>*/ return [0, x, y];
+      /*<<float.ml:150:56>>*/ return [0, x, y] /*<<float.ml:150:56>>*/ ;
     }
-     /*<<float.ml:149:31>>*/ return [0, nan, nan];
+     /*<<float.ml:149:31>>*/ return [0, nan, nan] /*<<float.ml:149:31>>*/ ;
     /*<<float.ml:150:74>>*/ }
    function min_num(x, y){
     a:
@@ -8872,9 +8997,9 @@
          /*<<float.ml:153:34>>*/ caml_signbit_float
           /*<<float.ml:153:34>>*/ (x))
       break a;
-      /*<<float.ml:155:10>>*/ return y !== y ? x : y;
+      /*<<float.ml:155:10>>*/ return y !== y ? x : y /*<<float.ml:155:32>>*/ ;
     }
-     /*<<float.ml:154:7>>*/ return x !== x ? y : x;
+     /*<<float.ml:154:7>>*/ return x !== x ? y : x /*<<float.ml:155:32>>*/ ;
     /*<<float.ml:155:32>>*/ }
    function max_num(x, y){
     a:
@@ -8886,15 +9011,15 @@
          /*<<float.ml:158:34>>*/ caml_signbit_float
           /*<<float.ml:158:34>>*/ (x))
       break a;
-      /*<<float.ml:160:10>>*/ return x !== x ? y : x;
+      /*<<float.ml:160:10>>*/ return x !== x ? y : x /*<<float.ml:160:32>>*/ ;
     }
-     /*<<float.ml:159:7>>*/ return y !== y ? x : y;
+     /*<<float.ml:159:7>>*/ return y !== y ? x : y /*<<float.ml:160:32>>*/ ;
     /*<<float.ml:160:32>>*/ }
    function min_max_num(x, y){
      /*<<float.ml:163:2>>*/ if(x !== x)
-      /*<<float.ml:163:19>>*/ return [0, y, y];
+      /*<<float.ml:163:19>>*/ return [0, y, y] /*<<float.ml:163:19>>*/ ;
      /*<<float.ml:164:10>>*/ if(y !== y)
-      /*<<float.ml:164:24>>*/ return [0, x, x];
+      /*<<float.ml:164:24>>*/ return [0, x, x] /*<<float.ml:164:24>>*/ ;
     a:
     if(! (x < y)){
       /*<<float.ml:165:23>>*/ if
@@ -8904,17 +9029,17 @@
          /*<<float.ml:165:39>>*/ caml_signbit_float
           /*<<float.ml:165:39>>*/ (x))
       break a;
-      /*<<float.ml:165:67>>*/ return [0, y, x];
+      /*<<float.ml:165:67>>*/ return [0, y, x] /*<<float.ml:165:67>>*/ ;
     }
-     /*<<float.ml:165:56>>*/ return [0, x, y];
+     /*<<float.ml:165:56>>*/ return [0, x, y] /*<<float.ml:165:56>>*/ ;
     /*<<float.ml:165:72>>*/ }
    function seeded_hash(seed, x){
      /*<<float.ml:169:25>>*/ return  /*<<float.ml:169:25>>*/ caml_hash
-             /*<<float.ml:169:25>>*/ (10, 100, seed, x);
+             /*<<float.ml:169:25>>*/ (10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
     /*<<float.ml:169:56>>*/ }
    function hash(x){
      /*<<float.ml:170:13>>*/ return  /*<<float.ml:170:13>>*/ caml_hash
-             /*<<float.ml:170:13>>*/ (10, 100, 0, x);
+             /*<<float.ml:170:13>>*/ (10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
     /*<<float.ml:170:41>>*/ }
    function unsafe_fill(a, ofs, len, v){
     var _aV_ = (ofs + len | 0) - 1 | 0;
@@ -8945,7 +9070,7 @@
     return _aS_
             ?  /*<<float.ml:191:6>>*/ caml_call1
                /*<<float.ml:191:6>>*/ (Stdlib[1], msg)
-            : _aS_;
+            : _aS_ /*<<float.ml:191:21>>*/ ;
     /*<<float.ml:191:21>>*/ }
    function make(n, v){
     var
@@ -8953,12 +9078,12 @@
         /*<<float.ml:194:17>>*/  /*<<float.ml:194:17>>*/ caml_floatarray_create
          /*<<float.ml:194:17>>*/ (n);
      /*<<float.ml:195:4>>*/ unsafe_fill(result, 0, n, v);
-     /*<<float.ml:195:4>>*/ return result;
+     /*<<float.ml:195:4>>*/ return result /*<<float.ml:195:4>>*/ ;
     /*<<float.ml:196:10>>*/ }
    function init(l, f){
      /*<<float.ml:199:4>>*/ if(0 > l)
       /*<<float.ml:199:18>>*/ return  /*<<float.ml:199:18>>*/ caml_call1
-              /*<<float.ml:199:18>>*/ (Stdlib[1], cst_Float_Array_init);
+              /*<<float.ml:199:18>>*/ (Stdlib[1], cst_Float_Array_init) /*<<float.ml:205:9>>*/ ;
     var
      res =
         /*<<float.ml:201:16>>*/  /*<<float.ml:201:16>>*/ caml_floatarray_create
@@ -8975,7 +9100,7 @@
       i = _aQ_;
      }
     }
-     /*<<float.ml:205:6>>*/ return res;
+     /*<<float.ml:205:6>>*/ return res /*<<float.ml:205:6>>*/ ;
     /*<<float.ml:205:9>>*/ }
    function make_matrix(sx, sy, v){
      /*<<float.ml:209:4>>*/ if(sy < 0)
@@ -8999,7 +9124,7 @@
       }
      }
     }
-     /*<<float.ml:216:4>>*/ return res;
+     /*<<float.ml:216:4>>*/ return res /*<<float.ml:216:4>>*/ ;
     /*<<float.ml:216:7>>*/ }
    function init_matrix(sx, sy, f){
      /*<<float.ml:220:4>>*/ if(sy < 0)
@@ -9040,7 +9165,7 @@
       }
      }
     }
-     /*<<float.ml:231:4>>*/ return res;
+     /*<<float.ml:231:4>>*/ return res /*<<float.ml:231:4>>*/ ;
     /*<<float.ml:231:7>>*/ }
    function append(a1, a2){
     var
@@ -9053,7 +9178,7 @@
       /*<<float.ml:237:4>>*/ (a1, 0, result, 0, l1);
      /*<<float.ml:238:4>>*/  /*<<float.ml:238:4>>*/ caml_floatarray_blit
       /*<<float.ml:238:4>>*/ (a2, 0, result, l1, l2);
-     /*<<float.ml:238:4>>*/ return result;
+     /*<<float.ml:238:4>>*/ return result /*<<float.ml:238:4>>*/ ;
     /*<<float.ml:239:10>>*/ }
    function concat(l){
     var acc = 0, param = l;
@@ -9079,7 +9204,8 @@
      i = 0;
      /*<<float.ml:253:6>>*/ for(;;){
      if(! l$0){
-      if(i === acc)  /*<<float.ml:260:4>>*/ return result;
+      if(i === acc)
+        /*<<float.ml:260:4>>*/ return result /*<<float.ml:260:4>>*/ ;
        /*<<float.ml:254:14>>*/ throw  /*<<float.ml:254:14>>*/ caml_maybe_attach_backtrace
               /*<<float.ml:254:14>>*/ ([0, Assert_failure, _a_], 1);
      }
@@ -9102,7 +9228,7 @@
          /*<<float.ml:265:17>>*/ (len);
      /*<<float.ml:266:4>>*/  /*<<float.ml:266:4>>*/ caml_floatarray_blit
       /*<<float.ml:266:4>>*/ (a, ofs, result, 0, len);
-     /*<<float.ml:266:4>>*/ return result;
+     /*<<float.ml:266:4>>*/ return result /*<<float.ml:266:4>>*/ ;
     /*<<float.ml:267:10>>*/ }
    function copy(a){
     var
@@ -9112,23 +9238,23 @@
          /*<<float.ml:271:17>>*/ (l);
      /*<<float.ml:272:4>>*/  /*<<float.ml:272:4>>*/ caml_floatarray_blit
       /*<<float.ml:272:4>>*/ (a, 0, result, 0, l);
-     /*<<float.ml:272:4>>*/ return result;
+     /*<<float.ml:272:4>>*/ return result /*<<float.ml:272:4>>*/ ;
     /*<<float.ml:273:10>>*/ }
    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:276:4>>*/ return unsafe_fill(a, ofs, len, v) /*<<float.ml:277:27>>*/ ;
     /*<<float.ml:277: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:282:4>>*/ (src, sofs, dst, dofs, len);
+             /*<<float.ml:282:4>>*/ (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
     /*<<float.ml:282:37>>*/ }
    function to_list(a){
      /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:25>>*/ caml_call2
              /*<<float.ml:285:25>>*/ (Stdlib_List[11],
              a.length - 1,
-             function(_aE_){ /*<<?>>*/ return a[1 + _aE_];});
+             function(_aE_){ /*<<?>>*/ return a[1 + _aE_];}) /*<<float.ml:285:39>>*/ ;
     /*<<float.ml:285:39>>*/ }
    function of_list(l){
     var
@@ -9139,7 +9265,7 @@
      i = 0,
      l$0 = l;
      /*<<float.ml:290:6>>*/ for(;;){
-     if(! l$0)  /*<<float.ml:289:4>>*/ return result;
+     if(! l$0)  /*<<float.ml:289:4>>*/ return result /*<<float.ml:289:4>>*/ ;
      var t = l$0[2], h = l$0[1];
       /*<<float.ml:292:18>>*/ result[1 + i] = h;
      var i$0 =  /*<<float.ml:289:4>>*/ i + 1 | 0;
@@ -9165,7 +9291,7 @@
      /*<<float.ml:302:4>>*/ if(a.length - 1 !== b.length - 1)
       /*<<float.ml:303:6>>*/ return  /*<<float.ml:303:6>>*/ caml_call1
               /*<<float.ml:303:6>>*/ (Stdlib[1],
-              cst_Float_Array_iter2_arrays_m);
+              cst_Float_Array_iter2_arrays_m) /*<<float.ml:305:75>>*/ ;
     var _az_ = a.length - 2 | 0, _ay_ =  /*<<float.ml:305:6>>*/ 0;
     if(_az_ >= 0){
      var i = _ay_;
@@ -9198,7 +9324,7 @@
       i = _ax_;
      }
     }
-     /*<<float.ml:313:4>>*/ return r;
+     /*<<float.ml:313:4>>*/ return r /*<<float.ml:313:4>>*/ ;
     /*<<float.ml:313:5>>*/ }
    function map_inplace(f, a){
     var _at_ = a.length - 2 | 0, _as_ =  /*<<float.ml:317:4>>*/ 0;
@@ -9220,7 +9346,7 @@
     if(la !== lb)
       /*<<float.ml:325:6>>*/ return  /*<<float.ml:325:6>>*/ caml_call1
               /*<<float.ml:325:6>>*/ (Stdlib[1],
-              cst_Float_Array_map2_arrays_mu);
+              cst_Float_Array_map2_arrays_mu) /*<<float.ml:332:7>>*/ ;
     var
      r =
         /*<<float.ml:327:14>>*/  /*<<float.ml:327:14>>*/ caml_floatarray_create
@@ -9238,7 +9364,7 @@
       i = _ar_;
      }
     }
-     /*<<float.ml:331:6>>*/ return r;
+     /*<<float.ml:331:6>>*/ return r /*<<float.ml:331:6>>*/ ;
     /*<<float.ml:332:7>>*/ }
    function iteri(f, a){
     var _an_ = a.length - 2 | 0, _am_ =  /*<<float.ml:336:4>>*/ 0;
@@ -9273,7 +9399,7 @@
       i = _al_;
      }
     }
-     /*<<float.ml:344:4>>*/ return r;
+     /*<<float.ml:344:4>>*/ return r /*<<float.ml:344:4>>*/ ;
     /*<<float.ml:344:5>>*/ }
    function mapi_inplace(f, a){
     var _ah_ = a.length - 2 | 0, _ag_ =  /*<<float.ml:348:4>>*/ 0;
@@ -9328,11 +9454,11 @@
    function exists(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:372:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:372:20>>*/ return 0;
+     if(i === n)  /*<<float.ml:372:20>>*/ return 0 /*<<float.ml:372:20>>*/ ;
       /*<<float.ml:373:14>>*/ if
       ( /*<<float.ml:373:14>>*/ caml_call1
          /*<<float.ml:373:14>>*/ (p, a[1 + i]))
-       /*<<float.ml:373:38>>*/ return 1;
+       /*<<float.ml:373:38>>*/ return 1 /*<<float.ml:373:38>>*/ ;
      var i$0 =  /*<<float.ml:374:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9340,12 +9466,12 @@
    function for_all(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:381:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:381:20>>*/ return 1;
+     if(i === n)  /*<<float.ml:381:20>>*/ return 1 /*<<float.ml:381:20>>*/ ;
       /*<<float.ml:382:14>>*/ if
       (!
         /*<<float.ml:382:14>>*/ caml_call1
          /*<<float.ml:382:14>>*/ (p, a[1 + i]))
-       /*<<float.ml:383:11>>*/ return 0;
+       /*<<float.ml:383:11>>*/ return 0 /*<<float.ml:383:11>>*/ ;
      var i$0 =  /*<<float.ml:382:38>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9353,13 +9479,13 @@
    function mem(x, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:390:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:390:20>>*/ return 0;
+     if(i === n)  /*<<float.ml:390:20>>*/ return 0 /*<<float.ml:390:20>>*/ ;
      if
       (0
        ===
          /*<<float.ml:391:22>>*/ caml_float_compare
           /*<<float.ml:391:22>>*/ (a[1 + i], x))
-       /*<<float.ml:391:50>>*/ return 1;
+       /*<<float.ml:391:50>>*/ return 1 /*<<float.ml:391:50>>*/ ;
      var i$0 =  /*<<float.ml:392:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9367,8 +9493,9 @@
    function mem_ieee(x, a){
     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;
+     if(i === n)  /*<<float.ml:400:20>>*/ return 0 /*<<float.ml:400:20>>*/ ;
+     if(x === a[1 + i])
+       /*<<float.ml:401:40>>*/ return 1 /*<<float.ml:401:40>>*/ ;
      var i$0 =  /*<<float.ml:402:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9376,11 +9503,11 @@
    function find_opt(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:410:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:410:20>>*/ return 0;
+     if(i === n)  /*<<float.ml:410:20>>*/ return 0 /*<<float.ml:410:20>>*/ ;
      var x =  /*<<float.ml:412:16>>*/ a[1 + i];
       /*<<float.ml:413:11>>*/ if
       ( /*<<float.ml:413:11>>*/ caml_call1 /*<<float.ml:413:11>>*/ (p, x))
-       /*<<float.ml:413:20>>*/ return [0, x];
+       /*<<float.ml:413:20>>*/ return [0, x] /*<<float.ml:413:20>>*/ ;
      var i$0 =  /*<<float.ml:414:13>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9388,11 +9515,11 @@
    function find_index(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:422:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:422:20>>*/ return 0;
+     if(i === n)  /*<<float.ml:422:20>>*/ return 0 /*<<float.ml:422:20>>*/ ;
       /*<<float.ml:423:14>>*/ if
       ( /*<<float.ml:423:14>>*/ caml_call1
          /*<<float.ml:423:14>>*/ (p, a[1 + i]))
-       /*<<float.ml:423:38>>*/ return [0, i];
+       /*<<float.ml:423:38>>*/ return [0, i] /*<<float.ml:423:38>>*/ ;
      var i$0 =  /*<<float.ml:424:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9400,12 +9527,12 @@
    function find_map(f, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:431:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:431:20>>*/ return 0;
+     if(i === n)  /*<<float.ml:431:20>>*/ return 0 /*<<float.ml:431:20>>*/ ;
      var
       r =
          /*<<float.ml:433:14>>*/  /*<<float.ml:433:14>>*/ caml_call1
           /*<<float.ml:433:14>>*/ (f, a[1 + i]);
-     if(r)  /*<<float.ml:435:25>>*/ return r;
+     if(r)  /*<<float.ml:435:25>>*/ return r /*<<float.ml:435:25>>*/ ;
      var i$0 =  /*<<float.ml:434:18>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9413,12 +9540,12 @@
    function find_mapi(f, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:443:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:443:20>>*/ return 0;
+     if(i === n)  /*<<float.ml:443:20>>*/ return 0 /*<<float.ml:443:20>>*/ ;
      var
       r =
          /*<<float.ml:445:14>>*/  /*<<float.ml:445:14>>*/ caml_call2
           /*<<float.ml:445:14>>*/ (f, i, a[1 + i]);
-     if(r)  /*<<float.ml:447:25>>*/ return r;
+     if(r)  /*<<float.ml:447:25>>*/ return r /*<<float.ml:447:25>>*/ ;
      var i$0 =  /*<<float.ml:446:18>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9469,9 +9596,9 @@
            /*<<float.ml:462:24>>*/ (cmp,
            caml_check_bound(a, i31)[1 + i31],
            _aa_))
-        /*<<float.ml:463:13>>*/ return i31 + 1 | 0;
+        /*<<float.ml:463:13>>*/ return i31 + 1 | 0 /*<<float.ml:463:13>>*/ ;
      }
-     if(i31 < l)  /*<<float.ml:464:29>>*/ return i31;
+     if(i31 < l)  /*<<float.ml:464:29>>*/ return i31 /*<<float.ml:464:29>>*/ ;
       /*<<float.ml:464:38>>*/ throw  /*<<float.ml:464:38>>*/ caml_maybe_attach_backtrace
              /*<<float.ml:464:38>>*/ ([0, Bottom, i], 1);
      /*<<float.ml:464:54>>*/ }
@@ -9573,7 +9700,7 @@
     }
     else
      var _T_ = _S_;
-     /*<<float.ml:499:59>>*/ return _T_;
+     /*<<float.ml:499:59>>*/ return _T_ /*<<float.ml:499:59>>*/ ;
     /*<<float.ml:499:69>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
@@ -9597,7 +9724,8 @@
            /*<<float.ml:507:11>>*/ (cmp, s1, s2)){
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<float.ml:515:10>>*/ i2 + 1 | 0;
-       if(i2$0 >= src2r) return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0);
+       if(i2$0 >= src2r)
+        return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
         s2$0 =  /*<<float.ml:518:26>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -9609,7 +9737,7 @@
         /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
        var i1$0 =  /*<<float.ml:508:10>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
-        return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0);
+        return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
         s1$0 =  /*<<float.ml:511:20>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -9656,15 +9784,16 @@
      /*<<float.ml:533: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:536:28>>*/ return isortto(srcofs, dst, dstofs, len) /*<<float.ml:542:9>>*/ ;
      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
-             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs);
+             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<float.ml:542:9>>*/ ;
      /*<<float.ml:542:9>>*/ }
     var l = a.length - 1;
-    if(l <= 5)  /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l);
+    if(l <= 5)
+      /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l) /*<<float.ml:552:7>>*/ ;
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
@@ -9673,7 +9802,7 @@
          /*<<float.ml:548:14>>*/ (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:550:6>>*/ return merge(l2, l1, t, 0, l2, a, 0) /*<<float.ml:552:7>>*/ ;
     /*<<float.ml:552:7>>*/ }
    function shuffle(rand, a){
     var _C_ = a.length - 2 | 0;
@@ -9697,32 +9826,32 @@
    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:572:11>>*/ return 0 /*<<float.ml:572:11>>*/ ;
      var
       x =  /*<<float.ml:570:16>>*/ a[1 + i],
       _A_ =  /*<<float.ml:570:16>>*/ i + 1 | 0;
       /*<<float.ml:571:8>>*/ return [0,
              x,
-             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}];
+             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:8>>*/ ;
      /*<<float.ml:572:18>>*/ }
     var _y_ =  /*<<float.ml:574:4>>*/ 0;
      /*<<float.ml:574:4>>*/ return function(_z_){
-      /*<<?>>*/ return aux(_y_, _z_);};
+      /*<<?>>*/ return aux(_y_, _z_);} /*<<float.ml:574:4>>*/ ;
     /*<<float.ml:574: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:583:11>>*/ return 0 /*<<float.ml:583:11>>*/ ;
      var
       x =  /*<<float.ml:581:16>>*/ a[1 + i],
       _w_ =  /*<<float.ml:581:16>>*/ i + 1 | 0;
       /*<<float.ml:582:8>>*/ return [0,
              [0, i, x],
-             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}];
+             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:8>>*/ ;
      /*<<float.ml:583:18>>*/ }
     var _u_ =  /*<<float.ml:585:4>>*/ 0;
      /*<<float.ml:585:4>>*/ return function(_v_){
-      /*<<?>>*/ return aux(_u_, _v_);};
+      /*<<?>>*/ return aux(_u_, _v_);} /*<<float.ml:585:4>>*/ ;
     /*<<float.ml:585:9>>*/ }
    function of_seq(i$2){
     var
@@ -9730,7 +9859,7 @@
         /*<<float.ml:599:12>>*/  /*<<float.ml:599:12>>*/ caml_call3
          /*<<float.ml:599:12>>*/ (Stdlib_Seq[5],
          function(acc, x){
-           /*<<float.ml:599:40>>*/ return [0, x, acc];
+           /*<<float.ml:599:40>>*/ return [0, x, acc] /*<<float.ml:599:40>>*/ ;
           /*<<float.ml:599:46>>*/ },
          0,
          i$2),
@@ -9744,7 +9873,7 @@
      i = i$1,
      param = l;
     for(;;){
-     if(! param)  /*<<float.ml:591:4>>*/ return a;
+     if(! param)  /*<<float.ml:591:4>>*/ return a /*<<float.ml:591:4>>*/ ;
      var tl = param[2], hd = param[1];
       /*<<float.ml:593:18>>*/ a[1 + i] = hd;
      var i$0 =  /*<<float.ml:591:4>>*/ i - 1 | 0;
@@ -9754,7 +9883,8 @@
     /*<<float.ml:600:17>>*/ }
    function map_to_array(f, a){
     var l = a.length - 1;
-     /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
+     /*<<float.ml:605:4>>*/ if(0 === l)
+      /*<<float.ml:605:18>>*/ return [0] /*<<float.ml:605:18>>*/ ;
     var
      r =
         /*<<float.ml:606:14>>*/  /*<<float.ml:606:14>>*/ caml_make_vect
@@ -9773,7 +9903,7 @@
       i = _t_;
      }
     }
-     /*<<float.ml:610:6>>*/ return r;
+     /*<<float.ml:610:6>>*/ return r /*<<float.ml:610:6>>*/ ;
     /*<<float.ml:611:7>>*/ }
    function map_from_array(f, a){
     var
@@ -9794,7 +9924,7 @@
       i = _q_;
      }
     }
-     /*<<float.ml:619:4>>*/ return r;
+     /*<<float.ml:619:4>>*/ return r /*<<float.ml:619:4>>*/ ;
     /*<<float.ml:619:5>>*/ }
    var
     Stdlib_Float =
@@ -9955,19 +10085,19 @@
     zero = 0,
     one = 1;
    function succ(n){
-     /*<<int32.ml:48:13>>*/ return n + 1 | 0;
+     /*<<int32.ml:48:13>>*/ return n + 1 | 0 /*<<int32.ml:48:13>>*/ ;
     /*<<int32.ml:48:21>>*/ }
    function pred(n){
-     /*<<int32.ml:49:13>>*/ return n - 1 | 0;
+     /*<<int32.ml:49:13>>*/ return n - 1 | 0 /*<<int32.ml:49:13>>*/ ;
     /*<<int32.ml:49:21>>*/ }
    function abs(n){
      /*<<int32.ml:50:12>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
               /*<<int32.ml:50:15>>*/ (n, 0)
             ? n
-            : - n | 0;
+            : - n | 0 /*<<int32.ml:50:40>>*/ ;
     /*<<int32.ml:50:40>>*/ }
    function lognot(n){
-     /*<<int32.ml:53:15>>*/ return n ^ -1;
+     /*<<int32.ml:53:15>>*/ return n ^ -1 /*<<int32.ml:53:15>>*/ ;
     /*<<int32.ml:53:29>>*/ }
    var
     _a_ = Stdlib_Sys[9],
@@ -9986,8 +10116,8 @@
           &&
             /*<<int32.ml:60:22>>*/ caml_lessequal
              /*<<int32.ml:60:22>>*/ (n, max_int$0))
-          /*<<int32.ml:61:10>>*/ return [0, n];
-         /*<<int32.ml:63:10>>*/ return 0;
+          /*<<int32.ml:61:10>>*/ return [0, n] /*<<int32.ml:61:10>>*/ ;
+         /*<<int32.ml:63:10>>*/ return 0 /*<<int32.ml:63:10>>*/ ;
         /*<<int32.ml:63:14>>*/ };
    else{
     if(64 !== _a_)
@@ -9996,12 +10126,12 @@
     var
      unsigned_to_int =
        function(n){
-         /*<<int32.ml:67:15>>*/ return [0, n & -1];
+         /*<<int32.ml:67:15>>*/ return [0, n & -1] /*<<int32.ml:67:15>>*/ ;
         /*<<int32.ml:67:40>>*/ };
    }
    function to_string(n){
      /*<<int32.ml:72:18>>*/ return  /*<<int32.ml:72:18>>*/ runtime.caml_format_int
-             /*<<int32.ml:72:18>>*/ ("%d", n);
+             /*<<int32.ml:72:18>>*/ ("%d", n) /*<<int32.ml:72:31>>*/ ;
     /*<<int32.ml:72:31>>*/ }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
@@ -10010,11 +10140,12 @@
          /*<<int32.ml:77:6>>*/ [0,
           /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string
            /*<<int32.ml:77:11>>*/ (s)];
-      /*<<int32.ml:77:6>>*/ return _d_;
+      /*<<int32.ml:77:6>>*/ return _d_ /*<<int32.ml:77:6>>*/ ;
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
-     if(_c_[1] === Stdlib[7])  /*<<int32.ml:78:20>>*/ return 0;
+     if(_c_[1] === Stdlib[7])
+       /*<<int32.ml:78:20>>*/ return 0 /*<<int32.ml:78:20>>*/ ;
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<int32.ml:78:24>>*/ }
@@ -10024,28 +10155,28 @@
      y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
      x =  /*<<int32.ml:86:10>>*/ n + 2147483648 | 0;
      /*<<int32.ml:82:28>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
-             /*<<int32.ml:82:28>>*/ (x, y);
+             /*<<int32.ml:82:28>>*/ (x, y) /*<<int32.ml:86:41>>*/ ;
     /*<<int32.ml:86:41>>*/ }
    function unsigned_lt(n, m){
      /*<<int32.ml:89:2>>*/ return  /*<<int32.ml:89:2>>*/ caml_lessthan
-             /*<<int32.ml:89:2>>*/ (n + 2147483648 | 0, m + 2147483648 | 0);
+             /*<<int32.ml:89:2>>*/ (n + 2147483648 | 0, m + 2147483648 | 0) /*<<int32.ml:89:31>>*/ ;
     /*<<int32.ml:89:31>>*/ }
    function min(x, y){
      /*<<int32.ml:91:18>>*/ return  /*<<int32.ml:91:21>>*/ caml_lessequal
               /*<<int32.ml:91:21>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<int32.ml:91:41>>*/ ;
     /*<<int32.ml:91:41>>*/ }
    function max(x, y){
      /*<<int32.ml:92:18>>*/ return  /*<<int32.ml:92:21>>*/ caml_greaterequal
               /*<<int32.ml:92:21>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<int32.ml:92:41>>*/ ;
     /*<<int32.ml:92:41>>*/ }
    function unsigned_div(n, d){
      /*<<int32.ml:98:2>>*/ if
      ( /*<<int32.ml:98:5>>*/ caml_lessthan /*<<int32.ml:98:5>>*/ (d, 0))
-      /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one;
+      /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int32.ml:103:41>>*/ ;
     var
      q =
         /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
@@ -10055,22 +10186,22 @@
         /*<<int32.ml:102:12>>*/ n
        -  /*<<int32.ml:102:18>>*/ caml_mul /*<<int32.ml:102:18>>*/ (q, d)
        | 0;
-     /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0;
+     /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
     /*<<int32.ml:103:41>>*/ }
    function unsigned_rem(n, d){
      /*<<int32.ml:106:2>>*/ return n
            -
              /*<<int32.ml:106:8>>*/ caml_mul
               /*<<int32.ml:106:8>>*/ (unsigned_div(n, d), d)
-           | 0;
+           | 0 /*<<int32.ml:106:2>>*/ ;
     /*<<int32.ml:106:34>>*/ }
    function seeded_hash(seed, x){
      /*<<int32.ml:110:25>>*/ return  /*<<int32.ml:110:25>>*/ caml_hash
-             /*<<int32.ml:110:25>>*/ (10, 100, seed, x);
+             /*<<int32.ml:110:25>>*/ (10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
     /*<<int32.ml:110:56>>*/ }
    function hash(x){
      /*<<int32.ml:111:13>>*/ return  /*<<int32.ml:111:13>>*/ caml_hash
-             /*<<int32.ml:111:13>>*/ (10, 100, 0, x);
+             /*<<int32.ml:111:13>>*/ (10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
     /*<<int32.ml:111:41>>*/ }
    var
     Stdlib_Int32 =
@@ -10132,22 +10263,22 @@
     _d_ = runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 65535);
    function succ(n){
      /*<<int64.ml:46:13>>*/ return  /*<<int64.ml:46:13>>*/ caml_int64_add
-             /*<<int64.ml:46:13>>*/ (n, _a_);
+             /*<<int64.ml:46:13>>*/ (n, _a_) /*<<int64.ml:46:21>>*/ ;
     /*<<int64.ml:46:21>>*/ }
    function pred(n){
      /*<<int64.ml:47:13>>*/ return  /*<<int64.ml:47:13>>*/ caml_int64_sub
-             /*<<int64.ml:47:13>>*/ (n, _b_);
+             /*<<int64.ml:47:13>>*/ (n, _b_) /*<<int64.ml:47:21>>*/ ;
     /*<<int64.ml:47:21>>*/ }
    function abs(n){
      /*<<int64.ml:48:12>>*/ return  /*<<int64.ml:48:15>>*/ caml_greaterequal
               /*<<int64.ml:48:15>>*/ (n, _c_)
             ? n
             :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg
-               /*<<int64.ml:48:35>>*/ (n);
+               /*<<int64.ml:48:35>>*/ (n) /*<<int64.ml:48:40>>*/ ;
     /*<<int64.ml:48:40>>*/ }
    function lognot(n){
      /*<<int64.ml:51:15>>*/ return  /*<<int64.ml:51:15>>*/ runtime.caml_int64_xor
-             /*<<int64.ml:51:15>>*/ (n, _d_);
+             /*<<int64.ml:51:15>>*/ (n, _d_) /*<<int64.ml:51:29>>*/ ;
     /*<<int64.ml:51:29>>*/ }
    var
     max_int$0 =
@@ -10160,12 +10291,12 @@
       &&
         /*<<int64.ml:56:18>>*/ caml_lessequal
          /*<<int64.ml:56:18>>*/ (n, max_int$0))
-      /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)];
-     /*<<int64.ml:59:6>>*/ return 0;
+      /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)] /*<<int64.ml:57:6>>*/ ;
+     /*<<int64.ml:59:6>>*/ return 0 /*<<int64.ml:59:6>>*/ ;
     /*<<int64.ml:59:10>>*/ }
    function to_string(n){
      /*<<int64.ml:62:18>>*/ return  /*<<int64.ml:62:18>>*/ runtime.caml_int64_format
-             /*<<int64.ml:62:18>>*/ ("%d", n);
+             /*<<int64.ml:62:18>>*/ ("%d", n) /*<<int64.ml:62:31>>*/ ;
     /*<<int64.ml:62:31>>*/ }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
@@ -10174,17 +10305,18 @@
          /*<<int64.ml:67:6>>*/ [0,
           /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string
            /*<<int64.ml:67:11>>*/ (s)];
-      /*<<int64.ml:67:6>>*/ return _g_;
+      /*<<int64.ml:67:6>>*/ return _g_ /*<<int64.ml:67:6>>*/ ;
     }
     catch(_h_){
      var _f_ = caml_wrap_exception(_h_);
-     if(_f_[1] === Stdlib[7])  /*<<int64.ml:68:20>>*/ return 0;
+     if(_f_[1] === Stdlib[7])
+       /*<<int64.ml:68:20>>*/ return 0 /*<<int64.ml:68:20>>*/ ;
      throw caml_maybe_attach_backtrace(_f_, 0);
     }
     /*<<int64.ml:68:24>>*/ }
    function compare(x, y){
      /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-             /*<<int64.ml:79:28>>*/ (x, y);
+             /*<<int64.ml:79:28>>*/ (x, y) /*<<int64.ml:79:46>>*/ ;
     /*<<int64.ml:79:46>>*/ }
    var equal = runtime.caml_equal;
    function unsigned_compare(n, m){
@@ -10196,31 +10328,31 @@
         /*<<int64.ml:83:10>>*/  /*<<int64.ml:83:10>>*/ caml_int64_sub
          /*<<int64.ml:83:10>>*/ (n, min_int);
      /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-             /*<<int64.ml:79:28>>*/ (x, y);
+             /*<<int64.ml:79:28>>*/ (x, y) /*<<int64.ml:83:41>>*/ ;
     /*<<int64.ml:83:41>>*/ }
    function unsigned_lt(n, m){
      /*<<int64.ml:86:2>>*/ return  /*<<int64.ml:86:2>>*/ caml_lessthan
              /*<<int64.ml:86:2>>*/ ( /*<<int64.ml:86:2>>*/ caml_int64_sub
                /*<<int64.ml:86:2>>*/ (n, min_int),
               /*<<int64.ml:86:18>>*/ caml_int64_sub
-               /*<<int64.ml:86:18>>*/ (m, min_int));
+               /*<<int64.ml:86:18>>*/ (m, min_int)) /*<<int64.ml:86:31>>*/ ;
     /*<<int64.ml:86:31>>*/ }
    function min(x, y){
      /*<<int64.ml:88:18>>*/ return  /*<<int64.ml:88:21>>*/ caml_lessequal
               /*<<int64.ml:88:21>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<int64.ml:88:41>>*/ ;
     /*<<int64.ml:88:41>>*/ }
    function max(x, y){
      /*<<int64.ml:89:18>>*/ return  /*<<int64.ml:89:21>>*/ caml_greaterequal
               /*<<int64.ml:89:21>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<int64.ml:89:41>>*/ ;
     /*<<int64.ml:89:41>>*/ }
    function unsigned_div(n, d){
      /*<<int64.ml:95:2>>*/ if
      ( /*<<int64.ml:95:5>>*/ caml_lessthan /*<<int64.ml:95:5>>*/ (d, zero))
-      /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one;
+      /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int64.ml:100:41>>*/ ;
     var
      q =
         /*<<int64.ml:98:12>>*/  /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
@@ -10236,21 +10368,21 @@
      /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
             ? q
             :  /*<<int64.ml:46:13>>*/ caml_int64_add
-               /*<<int64.ml:46:13>>*/ (q, _a_);
+               /*<<int64.ml:46:13>>*/ (q, _a_) /*<<int64.ml:100:41>>*/ ;
     /*<<int64.ml:100:41>>*/ }
    function unsigned_rem(n, d){
      /*<<int64.ml:103:2>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
              /*<<int64.ml:103:2>>*/ (n,
               /*<<int64.ml:103:8>>*/ caml_int64_mul
-               /*<<int64.ml:103:8>>*/ (unsigned_div(n, d), d));
+               /*<<int64.ml:103:8>>*/ (unsigned_div(n, d), d)) /*<<int64.ml:103:34>>*/ ;
     /*<<int64.ml:103:34>>*/ }
    function seeded_hash(seed, x){
      /*<<int64.ml:107:25>>*/ return  /*<<int64.ml:107:25>>*/ caml_hash
-             /*<<int64.ml:107:25>>*/ (10, 100, seed, x);
+             /*<<int64.ml:107:25>>*/ (10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
     /*<<int64.ml:107:56>>*/ }
    function hash(x){
      /*<<int64.ml:108:13>>*/ return  /*<<int64.ml:108:13>>*/ caml_hash
-             /*<<int64.ml:108:13>>*/ (10, 100, 0, x);
+             /*<<int64.ml:108:13>>*/ (10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
     /*<<int64.ml:108:41>>*/ }
    var
     Stdlib_Int64 =
@@ -10303,23 +10435,23 @@
     zero = 0,
     one = 1;
    function succ(n){
-     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0;
+     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0 /*<<nativeint.ml:44:13>>*/ ;
     /*<<nativeint.ml:44:21>>*/ }
    function pred(n){
-     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0;
+     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0 /*<<nativeint.ml:45:13>>*/ ;
     /*<<nativeint.ml:45:21>>*/ }
    function abs(n){
      /*<<nativeint.ml:46:12>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
               /*<<nativeint.ml:46:15>>*/ (n, 0)
             ? n
-            : - n | 0;
+            : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
     /*<<nativeint.ml:46:40>>*/ }
    var
     size = Stdlib_Sys[9],
     min_int =  /*<<nativeint.ml:48:14>>*/ 1 << (size - 1 | 0),
     max_int =  /*<<nativeint.ml:49:14>>*/ min_int - 1 | 0;
    function lognot(n){
-     /*<<nativeint.ml:50:15>>*/ return n ^ -1;
+     /*<<nativeint.ml:50:15>>*/ return n ^ -1 /*<<nativeint.ml:50:15>>*/ ;
     /*<<nativeint.ml:50:29>>*/ }
    var max_int$0 = Stdlib[19];
    function unsigned_to_int(n){
@@ -10329,12 +10461,12 @@
       &&
         /*<<nativeint.ml:55:18>>*/ caml_lessequal
          /*<<nativeint.ml:55:18>>*/ (n, max_int$0))
-      /*<<nativeint.ml:56:6>>*/ return [0, n];
-     /*<<nativeint.ml:58:6>>*/ return 0;
+      /*<<nativeint.ml:56:6>>*/ return [0, n] /*<<nativeint.ml:56:6>>*/ ;
+     /*<<nativeint.ml:58:6>>*/ return 0 /*<<nativeint.ml:58:6>>*/ ;
     /*<<nativeint.ml:58:10>>*/ }
    function to_string(n){
      /*<<nativeint.ml:61:18>>*/ return  /*<<nativeint.ml:61:18>>*/ runtime.caml_format_int
-             /*<<nativeint.ml:61:18>>*/ ("%d", n);
+             /*<<nativeint.ml:61:18>>*/ ("%d", n) /*<<nativeint.ml:61:31>>*/ ;
     /*<<nativeint.ml:61:31>>*/ }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
@@ -10343,11 +10475,12 @@
          /*<<nativeint.ml:66:6>>*/ [0,
           /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string
            /*<<nativeint.ml:66:11>>*/ (s)];
-      /*<<nativeint.ml:66:6>>*/ return _b_;
+      /*<<nativeint.ml:66:6>>*/ return _b_ /*<<nativeint.ml:66:6>>*/ ;
     }
     catch(_c_){
      var _a_ = caml_wrap_exception(_c_);
-     if(_a_[1] === Stdlib[7])  /*<<nativeint.ml:67:20>>*/ return 0;
+     if(_a_[1] === Stdlib[7])
+       /*<<nativeint.ml:67:20>>*/ return 0 /*<<nativeint.ml:67:20>>*/ ;
      throw caml_maybe_attach_backtrace(_a_, 0);
     }
     /*<<nativeint.ml:67:24>>*/ }
@@ -10365,29 +10498,29 @@
      y =  /*<<nativeint.ml:75:26>>*/ m - min_int | 0,
      x =  /*<<nativeint.ml:75:10>>*/ n - min_int | 0;
      /*<<nativeint.ml:71:28>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
-             /*<<nativeint.ml:71:28>>*/ (x, y);
+             /*<<nativeint.ml:71:28>>*/ (x, y) /*<<nativeint.ml:75:41>>*/ ;
     /*<<nativeint.ml:75:41>>*/ }
    function unsigned_lt(n, m){
      /*<<nativeint.ml:78:2>>*/ return  /*<<nativeint.ml:78:2>>*/ caml_lessthan
-             /*<<nativeint.ml:78:2>>*/ (n - min_int | 0, m - min_int | 0);
+             /*<<nativeint.ml:78:2>>*/ (n - min_int | 0, m - min_int | 0) /*<<nativeint.ml:78:31>>*/ ;
     /*<<nativeint.ml:78:31>>*/ }
    function min(x, y){
      /*<<nativeint.ml:80:18>>*/ return  /*<<nativeint.ml:80:21>>*/ caml_lessequal
               /*<<nativeint.ml:80:21>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<nativeint.ml:80:41>>*/ ;
     /*<<nativeint.ml:80:41>>*/ }
    function max(x, y){
      /*<<nativeint.ml:81:18>>*/ return  /*<<nativeint.ml:81:21>>*/ caml_greaterequal
               /*<<nativeint.ml:81:21>>*/ (x, y)
             ? x
-            : y;
+            : y /*<<nativeint.ml:81:41>>*/ ;
     /*<<nativeint.ml:81:41>>*/ }
    function unsigned_div(n, d){
      /*<<nativeint.ml:87:2>>*/ if
      ( /*<<nativeint.ml:87:5>>*/ caml_lessthan
         /*<<nativeint.ml:87:5>>*/ (d, 0))
-      /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one;
+      /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<nativeint.ml:92:41>>*/ ;
     var
      q =
         /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
@@ -10398,22 +10531,22 @@
        -
          /*<<nativeint.ml:91:18>>*/ caml_mul /*<<nativeint.ml:91:18>>*/ (q, d)
        | 0;
-     /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0;
+     /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
     /*<<nativeint.ml:92:41>>*/ }
    function unsigned_rem(n, d){
      /*<<nativeint.ml:95:2>>*/ return n
            -
              /*<<nativeint.ml:95:8>>*/ caml_mul
               /*<<nativeint.ml:95:8>>*/ (unsigned_div(n, d), d)
-           | 0;
+           | 0 /*<<nativeint.ml:95:2>>*/ ;
     /*<<nativeint.ml:95:34>>*/ }
    function seeded_hash(seed, x){
      /*<<nativeint.ml:99:25>>*/ return  /*<<nativeint.ml:99:25>>*/ caml_hash
-             /*<<nativeint.ml:99:25>>*/ (10, 100, seed, x);
+             /*<<nativeint.ml:99:25>>*/ (10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
     /*<<nativeint.ml:99:56>>*/ }
    function hash(x){
      /*<<nativeint.ml:100:13>>*/ return  /*<<nativeint.ml:100:13>>*/ caml_hash
-             /*<<nativeint.ml:100:13>>*/ (10, 100, 0, x);
+             /*<<nativeint.ml:100:13>>*/ (10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
     /*<<nativeint.ml:100:41>>*/ }
    var
     Stdlib_Nativeint =
@@ -10503,7 +10636,7 @@
      var _p_ = buf[12];
      buf[12] = [0, _p_[1], _p_[2], _p_[3], buf[4] + buf[6] | 0];
     }
-     /*<<lexing.ml:71:2>>*/ return result;
+     /*<<lexing.ml:71:2>>*/ return result /*<<lexing.ml:71:2>>*/ ;
     /*<<lexing.ml:71:8>>*/ }
    function new_engine(tbl, state, buf){
     var
@@ -10517,7 +10650,7 @@
      var _m_ = buf[12];
      buf[12] = [0, _m_[1], _m_[2], _m_[3], buf[4] + buf[6] | 0];
     }
-     /*<<lexing.ml:81:2>>*/ return result;
+     /*<<lexing.ml:81:2>>*/ return result /*<<lexing.ml:81:2>>*/ ;
     /*<<lexing.ml:81:8>>*/ }
    function from_function(opt, read_fun){
     var
@@ -10612,15 +10745,15 @@
             0,
             [0],
             _g_,
-            _f_];
+            _f_] /*<<lexing.ml:148:2>>*/ ;
    }
    function from_channel(with_positions, ic){
      /*<<lexing.ml:163:2>>*/ return from_function
             (with_positions,
              function(buf, n){
                /*<<lexing.ml:163:46>>*/ return  /*<<lexing.ml:163:46>>*/ caml_call4
-                       /*<<lexing.ml:163:46>>*/ (Stdlib[84], ic, buf, 0, n);
-              /*<<lexing.ml:163:62>>*/ });
+                       /*<<lexing.ml:163:46>>*/ (Stdlib[84], ic, buf, 0, n) /*<<lexing.ml:163:62>>*/ ;
+              /*<<lexing.ml:163:62>>*/ }) /*<<lexing.ml:163:63>>*/ ;
     /*<<lexing.ml:163:63>>*/ }
    function from_string(opt, s){
     var
@@ -10643,7 +10776,7 @@
             1,
             [0],
             _e_,
-            _d_];
+            _d_] /*<<lexing.ml:166:2>>*/ ;
    }
    function set_position(lexbuf, position){
      /*<<lexing.ml:182:2>>*/ lexbuf[12] =
@@ -10665,34 +10798,35 @@
              /*<<lexing.ml:192:2>>*/ (Stdlib_Bytes[8],
              lexbuf[2],
              lexbuf[5],
-             len);
+             len) /*<<lexing.ml:192:61>>*/ ;
     /*<<lexing.ml:192:61>>*/ }
    function sub_lexeme(lexbuf, i1, i2){
     var len = i2 - i1 | 0;
      /*<<lexing.ml:196:2>>*/ return  /*<<lexing.ml:196:2>>*/ caml_call3
-             /*<<lexing.ml:196:2>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len);
+             /*<<lexing.ml:196:2>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len) /*<<lexing.ml:196:43>>*/ ;
     /*<<lexing.ml:196:43>>*/ }
    function sub_lexeme_opt(lexbuf, i1, i2){
-     /*<<lexing.ml:199:2>>*/ if(0 > i1)  /*<<lexing.ml:202:11>>*/ return 0;
+     /*<<lexing.ml:199:2>>*/ if(0 > i1)
+      /*<<lexing.ml:202:11>>*/ return 0 /*<<lexing.ml:202:11>>*/ ;
     var len = i2 - i1 | 0;
      /*<<lexing.ml:201:4>>*/ return [0,
              /*<<lexing.ml:201:9>>*/ caml_call3
-              /*<<lexing.ml:201:9>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len)];
+              /*<<lexing.ml:201:9>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:4>>*/ ;
     /*<<lexing.ml:204:5>>*/ }
    function sub_lexeme_char(lexbuf, i){
      /*<<lexing.ml:206:31>>*/ return  /*<<lexing.ml:206:31>>*/ caml_bytes_get
-             /*<<lexing.ml:206:31>>*/ (lexbuf[2], i);
+             /*<<lexing.ml:206:31>>*/ (lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
     /*<<lexing.ml:206:60>>*/ }
    function sub_lexeme_char_opt(lexbuf, i){
      /*<<lexing.ml:209:2>>*/ return 0 <= i
             ? [0,
                /*<<lexing.ml:210:9>>*/ caml_bytes_get
                 /*<<lexing.ml:210:9>>*/ (lexbuf[2], i)]
-            : 0;
+            : 0 /*<<lexing.ml:212:8>>*/ ;
     /*<<lexing.ml:212:8>>*/ }
    function lexeme_char(lexbuf, i){
      /*<<lexing.ml:216:2>>*/ return  /*<<lexing.ml:216:2>>*/ caml_bytes_get
-             /*<<lexing.ml:216:2>>*/ (lexbuf[2], lexbuf[5] + i | 0);
+             /*<<lexing.ml:216:2>>*/ (lexbuf[2], lexbuf[5] + i | 0) /*<<lexing.ml:216:56>>*/ ;
     /*<<lexing.ml:216:56>>*/ }
    function lexeme_start(lexbuf){
      /*<<lexing.ml:218:26>>*/ return lexbuf[11][4];
@@ -10868,7 +11002,7 @@
     current_lookahead_fun =
        /*<<parsing.ml:128:28>>*/ [0,
        function(param){
-         /*<<parsing.ml:128:52>>*/ return 0;
+         /*<<parsing.ml:128:52>>*/ return 0 /*<<parsing.ml:128:52>>*/ ;
         /*<<parsing.ml:128:57>>*/ }],
     cst_syntax_error = "syntax error";
    function yyparse(tables, start, lexer, lexbuf){
@@ -10947,7 +11081,7 @@
      env[16] = init_errflag;
      if(exn[1] === YYexit){
       var v = exn[2];
-       /*<<parsing.ml:177:8>>*/ return v;
+       /*<<parsing.ml:177:8>>*/ return v /*<<parsing.ml:177:8>>*/ ;
      }
      current_lookahead_fun[1] =
       function(tok){
@@ -10959,7 +11093,7 @@
                  [1 + tok]
                 === curr_char
                 ? 1
-                : 0;
+                : 0 /*<<parsing.ml:183:17>>*/ ;
        var
         _l_ =
            /*<<parsing.ml:182:38>>*/  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag
@@ -10968,7 +11102,7 @@
                 [1 + _l_]
                === curr_char
                ? 1
-               : 0;
+               : 0 /*<<parsing.ml:182:17>>*/ ;
        /*<<parsing.ml:183:64>>*/ };
       /*<<parsing.ml:184:8>>*/ throw  /*<<parsing.ml:184:8>>*/ caml_maybe_attach_backtrace
              /*<<parsing.ml:184:8>>*/ (exn, 0);
@@ -10976,14 +11110,14 @@
     /*<<parsing.ml:184:17>>*/ }
    function peek_val(env, n){
     var _g_ = env[11] - n | 0;
-     /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_];
+     /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_] /*<<parsing.ml:187:12>>*/ ;
     /*<<parsing.ml:187:37>>*/ }
    function symbol_start_pos(param){
     var i$1 = env[12], i = i$1;
      /*<<parsing.ml:191:4>>*/ for(;;){
      if(0 >= i){
       var _f_ = env[11];
-       /*<<parsing.ml:191:19>>*/ return caml_check_bound(env[4], _f_)[1 + _f_];
+       /*<<parsing.ml:191:19>>*/ return caml_check_bound(env[4], _f_)[1 + _f_] /*<<parsing.ml:191:19>>*/ ;
      }
      var
       _d_ = (env[11] - i | 0) + 1 | 0,
@@ -10993,41 +11127,41 @@
       /*<<parsing.ml:195:9>>*/ if
       ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal
          /*<<parsing.ml:195:9>>*/ (st, en))
-       /*<<parsing.ml:195:23>>*/ return st;
+       /*<<parsing.ml:195:23>>*/ return st /*<<parsing.ml:195:23>>*/ ;
      var i$0 =  /*<<parsing.ml:195:31>>*/ i - 1 | 0;
      i = i$0;
     }
     /*<<parsing.ml:198:19>>*/ }
    function symbol_end_pos(param){
     var _c_ = env[11];
-     /*<<parsing.ml:200:24>>*/ return caml_check_bound(env[4], _c_)[1 + _c_];
+     /*<<parsing.ml:200:24>>*/ return caml_check_bound(env[4], _c_)[1 + _c_] /*<<parsing.ml:200:24>>*/ ;
     /*<<parsing.ml:200:52>>*/ }
    function rhs_start_pos(n){
     var _b_ = env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:201:22>>*/ return caml_check_bound(env[3], _b_)[1 + _b_];
+     /*<<parsing.ml:201:22>>*/ return caml_check_bound(env[3], _b_)[1 + _b_] /*<<parsing.ml:201:22>>*/ ;
     /*<<parsing.ml:201:73>>*/ }
    function rhs_end_pos(n){
     var _a_ = env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_];
+     /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_] /*<<parsing.ml:202:20>>*/ ;
     /*<<parsing.ml:202:69>>*/ }
    function symbol_start(param){
-     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4];
+     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4] /*<<parsing.ml:204:22>>*/ ;
     /*<<parsing.ml:204:52>>*/ }
    function symbol_end(param){
-     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4];
+     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4] /*<<parsing.ml:205:20>>*/ ;
     /*<<parsing.ml:205:48>>*/ }
    function rhs_start(n){
-     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4];
+     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4] /*<<parsing.ml:206:18>>*/ ;
     /*<<parsing.ml:206:44>>*/ }
    function rhs_end(n){
-     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4];
+     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4] /*<<parsing.ml:207:16>>*/ ;
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
      /*<<parsing.ml:210:2>>*/ return  /*<<parsing.ml:210:2>>*/ caml_call1
-             /*<<parsing.ml:210:2>>*/ (current_lookahead_fun[1], tok);
+             /*<<parsing.ml:210:2>>*/ (current_lookahead_fun[1], tok) /*<<parsing.ml:210:40>>*/ ;
     /*<<parsing.ml:210:40>>*/ }
    function parse_error(param){
-     /*<<parsing.ml:212:31>>*/ return 0;
+     /*<<parsing.ml:212:31>>*/ return 0 /*<<parsing.ml:212:31>>*/ ;
     /*<<parsing.ml:212:33>>*/ }
    var
     Stdlib_Parsing =
@@ -11096,15 +11230,16 @@
       [0,
        function(Ord){
         function height(param){
-          /*<<set.ml:81:17>>*/ if(! param)  /*<<set.ml:82:17>>*/ return 0;
+          /*<<set.ml:81:17>>*/ if(! param)
+           /*<<set.ml:82:17>>*/ return 0 /*<<set.ml:82:17>>*/ ;
          var h = param[4];
-          /*<<set.ml:83:20>>*/ return h;
+          /*<<set.ml:83:20>>*/ return h /*<<set.ml:83:20>>*/ ;
          /*<<set.ml:83:21>>*/ }
         function create(l, v, r){
           /*<<set.ml:91:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
           /*<<set.ml:92:6>>*/ if(r) var h$0 = r[4], hr = h$0; else var hr = 0;
          var _Y_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-          /*<<set.ml:93:10>>*/ return [0, l, v, r, _Y_];
+          /*<<set.ml:93:10>>*/ return [0, l, v, r, _Y_] /*<<set.ml:93:10>>*/ ;
          /*<<set.ml:93:60>>*/ }
         function bal(l, v, r){
           /*<<set.ml:101:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
@@ -11115,50 +11250,51 @@
          if((hr + 2 | 0) < hl){
           if(! l)
             /*<<set.ml:105:19>>*/ return  /*<<set.ml:105:19>>*/ caml_call1
-                    /*<<set.ml:105:19>>*/ (Stdlib[1], cst_Set_bal$0);
+                    /*<<set.ml:105:19>>*/ (Stdlib[1], cst_Set_bal$0) /*<<set.ml:128:62>>*/ ;
           var
            lr = l[3],
            lv = l[2],
            ll = l[1],
            _T_ =  /*<<set.ml:107:28>>*/ height(lr);
           if(_T_ <= height(ll))
-            /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r));
+            /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r)) /*<<set.ml:128:62>>*/ ;
           if(! lr)
             /*<<set.ml:111:25>>*/ return  /*<<set.ml:111:25>>*/ caml_call1
-                    /*<<set.ml:111:25>>*/ (Stdlib[1], cst_Set_bal);
+                    /*<<set.ml:111:25>>*/ (Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
           var
            lrr = lr[3],
            lrv = lr[2],
            lrl = lr[1],
            _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
-           /*<<set.ml:113:48>>*/ return create(create(ll, lv, lrl), lrv, _U_);
+           /*<<set.ml:113:48>>*/ return create(create(ll, lv, lrl), lrv, _U_) /*<<set.ml:128:62>>*/ ;
          }
          if((hl + 2 | 0) >= hr){
           var _X_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-           /*<<set.ml:128:12>>*/ return [0, l, v, r, _X_];
+           /*<<set.ml:128:12>>*/ return [0, l, v, r, _X_] /*<<set.ml:128:12>>*/ ;
          }
          if(! r)
            /*<<set.ml:117:19>>*/ return  /*<<set.ml:117:19>>*/ caml_call1
-                   /*<<set.ml:117:19>>*/ (Stdlib[1], cst_Set_bal$2);
+                   /*<<set.ml:117:19>>*/ (Stdlib[1], cst_Set_bal$2) /*<<set.ml:128:62>>*/ ;
          var
           rr = r[3],
           rv = r[2],
           rl = r[1],
           _V_ =  /*<<set.ml:119:28>>*/ height(rl);
          if(_V_ <= height(rr))
-           /*<<set.ml:120:14>>*/ return create(create(l, v, rl), rv, rr);
+           /*<<set.ml:120:14>>*/ return create(create(l, v, rl), rv, rr) /*<<set.ml:128:62>>*/ ;
          if(! rl)
            /*<<set.ml:123:25>>*/ return  /*<<set.ml:123:25>>*/ caml_call1
-                   /*<<set.ml:123:25>>*/ (Stdlib[1], cst_Set_bal$1);
+                   /*<<set.ml:123:25>>*/ (Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
          var
           rlr = rl[3],
           rlv = rl[2],
           rll = rl[1],
           _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
-          /*<<set.ml:125:46>>*/ return create(create(l, v, rll), rlv, _W_);
+          /*<<set.ml:125:46>>*/ return create(create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
          /*<<set.ml:128:62>>*/ }
         function add(x, t){
-          /*<<?>>*/ if(! t)  /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1];
+          /*<<?>>*/ if(! t)
+           /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1] /*<<set.ml:133:21>>*/ ;
          var
           r = t[3],
           v = t[2],
@@ -11166,7 +11302,8 @@
           c =
              /*<<set.ml:135:18>>*/  /*<<set.ml:135:18>>*/ caml_call2
               /*<<set.ml:135:18>>*/ (Ord[1], x, v);
-          /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
+          /*<<set.ml:136:10>>*/ if(0 === c)
+           /*<<set.ml:136:24>>*/ return t /*<<set.ml:136:24>>*/ ;
          if(0 <= c){
           var rr =  /*<<set.ml:141:21>>*/ add(x, r);
           return r === rr ? t : bal(l, v, rr);
@@ -11175,22 +11312,25 @@
          return l === ll ? t : bal(ll, v, r);
         }
         function singleton(x){
-          /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1];
+          /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1] /*<<set.ml:144:26>>*/ ;
          /*<<set.ml:144:54>>*/ }
         function add_min_element(x, param){
-          /*<<?>>*/ if(! param)  /*<<set.ml:154:17>>*/ return singleton(x);
+          /*<<?>>*/ if(! param)
+           /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:154:17>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:156:8>>*/ return bal(add_min_element(x, l), v, r);
+          /*<<set.ml:156:8>>*/ return bal(add_min_element(x, l), v, r) /*<<set.ml:156:8>>*/ ;
         }
         function add_max_element(x, param){
-          /*<<?>>*/ if(! param)  /*<<set.ml:159:17>>*/ return singleton(x);
+          /*<<?>>*/ if(! param)
+           /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:159:17>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r));
+          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r)) /*<<set.ml:161:16>>*/ ;
         }
         function join(l, v, r){
           /*<<set.ml:167:6>>*/ if(! l)
-           /*<<set.ml:168:22>>*/ return add_min_element(v, r);
-         if(! r)  /*<<set.ml:169:22>>*/ return add_max_element(v, l);
+           /*<<set.ml:168:22>>*/ return add_min_element(v, r) /*<<set.ml:173:22>>*/ ;
+         if(! r)
+           /*<<set.ml:169:22>>*/ return add_max_element(v, l) /*<<set.ml:173:22>>*/ ;
          var
           rh = r[4],
           rr = r[3],
@@ -11207,7 +11347,7 @@
                    | 0)
                    < rh
                    ? bal(join(l, v, rl), rv, rr)
-                   : create(l, v, r);
+                   : create(l, v, r) /*<<set.ml:173:22>>*/ ;
          /*<<set.ml:173:22>>*/ }
         function min_elt(param){
          var param$0 = param;
@@ -11216,16 +11356,23 @@
             /*<<set.ml:178:17>>*/ throw  /*<<set.ml:178:17>>*/ caml_maybe_attach_backtrace
                    /*<<set.ml:178:17>>*/ (Stdlib[8], 1);
           var l = param$0[1];
-          if(! l){var v = param$0[2];  /*<<set.ml:179:28>>*/ return v;}
+          if(! l){
+           var v = param$0[2];
+            /*<<set.ml:179:28>>*/ return v /*<<set.ml:179:28>>*/ ;
+          }
           param$0 = l;
          }
          /*<<set.ml:180:28>>*/ }
         function min_elt_opt(param){
          var param$0 = param;
           /*<<set.ml:182:26>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:183:17>>*/ return 0;
+          if(! param$0)
+            /*<<set.ml:183:17>>*/ return 0 /*<<set.ml:183:17>>*/ ;
           var l = param$0[1];
-          if(! l){var v = param$0[2];  /*<<set.ml:184:28>>*/ return [0, v];}
+          if(! l){
+           var v = param$0[2];
+            /*<<set.ml:184:28>>*/ return [0, v] /*<<set.ml:184:28>>*/ ;
+          }
           param$0 = l;
          }
          /*<<set.ml:185:32>>*/ }
@@ -11237,7 +11384,7 @@
                    /*<<set.ml:188:17>>*/ (Stdlib[8], 1);
           if(! param$0[3]){
            var v = param$0[2];
-            /*<<set.ml:189:28>>*/ return v;
+            /*<<set.ml:189:28>>*/ return v /*<<set.ml:189:28>>*/ ;
           }
           var r = param$0[3];
           param$0 = r;
@@ -11246,10 +11393,11 @@
         function max_elt_opt(param){
          var param$0 = param;
           /*<<set.ml:192:26>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:193:17>>*/ return 0;
+          if(! param$0)
+            /*<<set.ml:193:17>>*/ return 0 /*<<set.ml:193:17>>*/ ;
           if(! param$0[3]){
            var v = param$0[2];
-            /*<<set.ml:194:28>>*/ return [0, v];
+            /*<<set.ml:194:28>>*/ return [0, v] /*<<set.ml:194:28>>*/ ;
           }
           var r = param$0[3];
           param$0 = r;
@@ -11258,23 +11406,25 @@
         function remove_min_elt(param){
           /*<<set.ml:199:29>>*/ if(! param)
            /*<<set.ml:200:17>>*/ return  /*<<set.ml:200:17>>*/ caml_call1
-                   /*<<set.ml:200:17>>*/ (Stdlib[1], cst_Set_remove_min_elt);
+                   /*<<set.ml:200:17>>*/ (Stdlib[1], cst_Set_remove_min_elt) /*<<set.ml:202:51>>*/ ;
          var l = param[1];
          if(l){
           var r = param[3], v = param[2];
-           /*<<set.ml:202:25>>*/ return bal(remove_min_elt(l), v, r);
+           /*<<set.ml:202:25>>*/ return bal(remove_min_elt(l), v, r) /*<<set.ml:202:51>>*/ ;
          }
          var r$0 = param[3];
-          /*<<set.ml:201:28>>*/ return r$0;
+          /*<<set.ml:201:28>>*/ return r$0 /*<<set.ml:201:28>>*/ ;
          /*<<set.ml:202:51>>*/ }
         function concat(t1, t2){
-          /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
-         if(! t2)  /*<<set.ml:221:22>>*/ return t1;
+          /*<<set.ml:219:6>>*/ if(! t1)
+           /*<<set.ml:220:22>>*/ return t2 /*<<set.ml:220:22>>*/ ;
+         if(! t2)  /*<<set.ml:221:22>>*/ return t1 /*<<set.ml:221:22>>*/ ;
          var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
-          /*<<set.ml:222:39>>*/ return join(t1, min_elt(t2), _S_);
+          /*<<set.ml:222:39>>*/ return join(t1, min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
          /*<<set.ml:222:58>>*/ }
         function split(x, param){
-          /*<<?>>*/ if(! param)  /*<<set.ml:232:10>>*/ return _a_;
+          /*<<?>>*/ if(! param)
+           /*<<set.ml:232:10>>*/ return _a_ /*<<set.ml:232:10>>*/ ;
          var
           r = param[3],
           v = param[2],
@@ -11283,30 +11433,31 @@
              /*<<set.ml:234:18>>*/  /*<<set.ml:234:18>>*/ caml_call2
               /*<<set.ml:234:18>>*/ (Ord[1], x, v);
           /*<<set.ml:235:10>>*/ if(0 === c)
-           /*<<set.ml:235:24>>*/ return [0, l, 1, r];
+           /*<<set.ml:235:24>>*/ return [0, l, 1, r] /*<<set.ml:235:24>>*/ ;
          if(0 <= c){
           var
            match =  /*<<set.ml:239:33>>*/ split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
-           /*<<set.ml:239:46>>*/ return [0, join(l, v, lr), pres, rr];
+           /*<<set.ml:239:46>>*/ return [0, join(l, v, lr), pres, rr] /*<<set.ml:239:46>>*/ ;
          }
          var
           match$0 =  /*<<set.ml:237:33>>*/ split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<set.ml:237:46>>*/ return [0, ll, pres$0, join(rl, v, r)];
+          /*<<set.ml:237:46>>*/ return [0, ll, pres$0, join(rl, v, r)] /*<<set.ml:237:46>>*/ ;
         }
         var empty = 0;
         function is_empty(param){
-          /*<<set.ml:245:19>>*/ return param ? 0 : 1;
+          /*<<set.ml:245:19>>*/ return param ? 0 : 1 /*<<set.ml:245:54>>*/ ;
          /*<<set.ml:245:54>>*/ }
         function mem(x, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<set.ml:248:17>>*/ return 0;
+          if(! param$0)
+            /*<<set.ml:248:17>>*/ return 0 /*<<set.ml:248:17>>*/ ;
           var
            r = param$0[3],
            v = param$0[2],
@@ -11321,7 +11472,8 @@
          }
         }
         function remove(x, t){
-          /*<<?>>*/ if(! t)  /*<<set.ml:254:17>>*/ return 0;
+          /*<<?>>*/ if(! t)
+           /*<<set.ml:254:17>>*/ return 0 /*<<set.ml:254:17>>*/ ;
          var
           t2 = t[3],
           v = t[2],
@@ -11330,10 +11482,10 @@
              /*<<set.ml:256:18>>*/  /*<<set.ml:256:18>>*/ caml_call2
               /*<<set.ml:256:18>>*/ (Ord[1], x, v);
           /*<<set.ml:257:10>>*/ if(0 === c){
-          if(! t1)  /*<<set.ml:210:22>>*/ return t2;
-          if(! t2)  /*<<set.ml:211:22>>*/ return t1;
+          if(! t1)  /*<<set.ml:210:22>>*/ return t2 /*<<set.ml:210:22>>*/ ;
+          if(! t2)  /*<<set.ml:211:22>>*/ return t1 /*<<set.ml:211:22>>*/ ;
           var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
-           /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_);
+           /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_) /*<<set.ml:212:38>>*/ ;
          }
          if(0 <= c){
           var rr =  /*<<set.ml:264:23>>*/ remove(x, t2);
@@ -11343,8 +11495,9 @@
          return t1 === ll ? t : bal(ll, v, t2);
         }
         function union(s1, s2){
-          /*<<set.ml:269:6>>*/ if(! s1)  /*<<set.ml:270:23>>*/ return s2;
-         if(! s2)  /*<<set.ml:271:23>>*/ return s1;
+          /*<<set.ml:269:6>>*/ if(! s1)
+           /*<<set.ml:270:23>>*/ return s2 /*<<set.ml:270:23>>*/ ;
+         if(! s2)  /*<<set.ml:271:23>>*/ return s1 /*<<set.ml:271:23>>*/ ;
          var
           h2 = s2[4],
           r2 = s2[3],
@@ -11355,25 +11508,28 @@
           v1 = s1[2],
           l1 = s1[1];
          if(h2 <= h1){
-          if(1 === h2)  /*<<set.ml:274:27>>*/ return add(v2, s1);
+          if(1 === h2)
+            /*<<set.ml:274:27>>*/ return add(v2, s1) /*<<set.ml:282:15>>*/ ;
           var
            match =  /*<<set.ml:275:32>>*/ split(v1, s2),
            r2$0 = match[3],
            l2$0 = match[1],
            _O_ =  /*<<set.ml:276:36>>*/ union(r1, r2$0);
-           /*<<set.ml:276:36>>*/ return join(union(l1, l2$0), v1, _O_);
+           /*<<set.ml:276:36>>*/ return join(union(l1, l2$0), v1, _O_) /*<<set.ml:282:15>>*/ ;
          }
-         if(1 === h1)  /*<<set.ml:279:27>>*/ return add(v1, s2);
+         if(1 === h1)
+           /*<<set.ml:279:27>>*/ return add(v1, s2) /*<<set.ml:282:15>>*/ ;
          var
           match$0 =  /*<<set.ml:280:32>>*/ split(v2, s1),
           r1$0 = match$0[3],
           l1$0 = match$0[1],
           _P_ =  /*<<set.ml:281:36>>*/ union(r1$0, r2);
-          /*<<set.ml:281:36>>*/ return join(union(l1$0, l2), v2, _P_);
+          /*<<set.ml:281:36>>*/ return join(union(l1$0, l2), v2, _P_) /*<<set.ml:282:15>>*/ ;
          /*<<set.ml:282:15>>*/ }
         function inter(s1, s2){
-          /*<<set.ml:285:6>>*/ if(! s1)  /*<<set.ml:286:22>>*/ return 0;
-         if(! s2)  /*<<set.ml:287:22>>*/ return 0;
+          /*<<set.ml:285:6>>*/ if(! s1)
+           /*<<set.ml:286:22>>*/ return 0 /*<<set.ml:286:22>>*/ ;
+         if(! s2)  /*<<set.ml:287:22>>*/ return 0 /*<<set.ml:287:22>>*/ ;
          var
           r1 = s1[3],
           v1 = s1[2],
@@ -11382,18 +11538,18 @@
           l2 = _L_[1];
          if(_L_[2]){
           var r2 = _L_[3], _M_ =  /*<<set.ml:293:36>>*/ inter(r1, r2);
-           /*<<set.ml:293:36>>*/ return join(inter(l1, l2), v1, _M_);
+           /*<<set.ml:293:36>>*/ return join(inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
          }
          var r2$0 = _L_[3], _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
-          /*<<set.ml:291:35>>*/ return concat(inter(l1, l2), _N_);
+          /*<<set.ml:291:35>>*/ return concat(inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
          /*<<set.ml:293:49>>*/ }
         function split_bis(x, param){
           /*<<?>>*/ if(! param)
            /*<<set.ml:305:10>>*/ return [0,
                   0,
                   function(param){
-                    /*<<set.ml:305:38>>*/ return 0;
-                   /*<<set.ml:305:43>>*/ }];
+                    /*<<set.ml:305:38>>*/ return 0 /*<<set.ml:305:38>>*/ ;
+                   /*<<set.ml:305:43>>*/ }] /*<<set.ml:305:10>>*/ ;
          var
           r = param[3],
           v = param[2],
@@ -11401,46 +11557,50 @@
           c =
              /*<<set.ml:307:18>>*/  /*<<set.ml:307:18>>*/ caml_call2
               /*<<set.ml:307:18>>*/ (Ord[1], x, v);
-          /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
+          /*<<set.ml:308:10>>*/ if(0 === c)
+           /*<<set.ml:308:24>>*/ return 0 /*<<set.ml:308:24>>*/ ;
          if(0 <= c){
           var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
-          if(! match)  /*<<set.ml:315:23>>*/ return 0;
+          if(! match)  /*<<set.ml:315:23>>*/ return 0 /*<<set.ml:315:23>>*/ ;
           var rr = match[2], lr = match[1];
-           /*<<set.ml:316:35>>*/ return [0, join(l, v, lr), rr];
+           /*<<set.ml:316:35>>*/ return [0, join(l, v, lr), rr] /*<<set.ml:316:35>>*/ ;
          }
          var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
-         if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
+         if(! match$0)  /*<<set.ml:311:23>>*/ return 0 /*<<set.ml:311:23>>*/ ;
          var rl = match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
-                   /*<<set.ml:312:60>>*/ return join(rl(0), v, r);
-                  /*<<set.ml:312:76>>*/ }];
+                   /*<<set.ml:312:60>>*/ return join(rl(0), v, r) /*<<set.ml:312:76>>*/ ;
+                  /*<<set.ml:312:76>>*/ }] /*<<set.ml:312:35>>*/ ;
         }
         function disjoint(s1, s2){
          var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:319:6>>*/ for(;;){
           if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
-           if(s1$0 === s2$0)  /*<<set.ml:322:27>>*/ return 0;
+           if(s1$0 === s2$0)
+             /*<<set.ml:322:27>>*/ return 0 /*<<set.ml:322:27>>*/ ;
            var match =  /*<<set.ml:323:21>>*/ split_bis(v1, s2$0);
-           if(! match)  /*<<set.ml:325:23>>*/ return 0;
+           if(! match)  /*<<set.ml:325:23>>*/ return 0 /*<<set.ml:325:23>>*/ ;
            var
             r2 = match[2],
             l2 = match[1],
             _K_ =  /*<<set.ml:324:34>>*/ disjoint(l1, l2);
-            /*<<set.ml:324:34>>*/ if(! _K_)  /*<<set.ml:324:34>>*/ return _K_;
+            /*<<set.ml:324:34>>*/ if(! _K_)
+             /*<<set.ml:324:34>>*/ return _K_ /*<<set.ml:324:34>>*/ ;
            var s2$1 =  /*<<set.ml:324:64>>*/ r2(0);
            s1$0 = r1;
            s2$0 = s2$1;
            continue;
           }
-           /*<<set.ml:320:35>>*/ return 1;
+           /*<<set.ml:320:35>>*/ return 1 /*<<set.ml:320:35>>*/ ;
          }
          /*<<set.ml:325:28>>*/ }
         function diff(s1, s2){
-          /*<<set.ml:328:6>>*/ if(! s1)  /*<<set.ml:329:22>>*/ return 0;
-         if(! s2)  /*<<set.ml:330:23>>*/ return s1;
+          /*<<set.ml:328:6>>*/ if(! s1)
+           /*<<set.ml:329:22>>*/ return 0 /*<<set.ml:329:22>>*/ ;
+         if(! s2)  /*<<set.ml:330:23>>*/ return s1 /*<<set.ml:330:23>>*/ ;
          var
           r1 = s1[3],
           v1 = s1[2],
@@ -11449,15 +11609,15 @@
           l2 = _H_[1];
          if(_H_[2]){
           var r2 = _H_[3], _I_ =  /*<<set.ml:336:34>>*/ diff(r1, r2);
-           /*<<set.ml:336:34>>*/ return concat(diff(l1, l2), _I_);
+           /*<<set.ml:336:34>>*/ return concat(diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
          }
          var r2$0 = _H_[3], _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
-          /*<<set.ml:334:35>>*/ return join(diff(l1, l2), v1, _J_);
+          /*<<set.ml:334:35>>*/ return join(diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
          /*<<set.ml:336:46>>*/ }
         function cons_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<set.ml:341:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
+          if(! s$0)  /*<<set.ml:342:17>>*/ return e$0 /*<<set.ml:342:17>>*/ ;
           var
            r = s$0[3],
            v = s$0[2],
@@ -11474,8 +11634,8 @@
           e1 = e1$2,
           e2 = e2$2;
           /*<<set.ml:346:8>>*/ for(;;){
-          if(! e1) return e2 ? -1 : 0;
-          if(! e2)  /*<<set.ml:349:20>>*/ return 1;
+          if(! e1) return e2 ? -1 : 0 /*<<set.ml:357:55>>*/ ;
+          if(! e2)  /*<<set.ml:349:20>>*/ return 1 /*<<set.ml:349:20>>*/ ;
           var
            e2$0 = e2[3],
            r2 = e2[2],
@@ -11486,7 +11646,8 @@
            c =
               /*<<set.ml:351:18>>*/  /*<<set.ml:351:18>>*/ caml_call2
                /*<<set.ml:351:18>>*/ (Ord[1], v1, v2);
-           /*<<set.ml:352:10>>*/ if(0 !== c)  /*<<set.ml:353:15>>*/ return c;
+           /*<<set.ml:352:10>>*/ if(0 !== c)
+            /*<<set.ml:353:15>>*/ return c /*<<set.ml:353:15>>*/ ;
           var
            e2$1 =  /*<<set.ml:354:45>>*/ cons_enum(r2, e2$0),
            e1$1 =  /*<<set.ml:354:27>>*/ cons_enum(r1, e1$0);
@@ -11500,8 +11661,8 @@
         function subset(s1, s2){
          var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:363:6>>*/ for(;;){
-          if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
-          if(! s2$0)  /*<<set.ml:367:10>>*/ return 0;
+          if(! s1$0)  /*<<set.ml:365:10>>*/ return 1 /*<<set.ml:365:10>>*/ ;
+          if(! s2$0)  /*<<set.ml:367:10>>*/ return 0 /*<<set.ml:367:10>>*/ ;
           var
            r2 = s2$0[3],
            v2 = s2$0[2],
@@ -11514,18 +11675,21 @@
                /*<<set.ml:369:18>>*/ (Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
            var _E_ =  /*<<set.ml:371:12>>*/ subset(l1, l2);
-            /*<<set.ml:371:12>>*/ if(! _E_)  /*<<set.ml:371:12>>*/ return _E_;
+            /*<<set.ml:371:12>>*/ if(! _E_)
+             /*<<set.ml:371:12>>*/ return _E_ /*<<set.ml:371:12>>*/ ;
            s1$0 = r1;
            s2$0 = r2;
           }
           else if(0 <= c){
            var _F_ =  /*<<set.ml:375:12>>*/ subset([0, 0, v1, r1, 0], r2);
-            /*<<set.ml:375:12>>*/ if(! _F_)  /*<<set.ml:375:12>>*/ return _F_;
+            /*<<set.ml:375:12>>*/ if(! _F_)
+             /*<<set.ml:375:12>>*/ return _F_ /*<<set.ml:375:12>>*/ ;
            s1$0 = l1;
           }
           else{
            var _G_ =  /*<<set.ml:373:12>>*/ subset([0, l1, v1, 0, 0], l2);
-            /*<<set.ml:373:12>>*/ if(! _G_)  /*<<set.ml:373:12>>*/ return _G_;
+            /*<<set.ml:373:12>>*/ if(! _G_)
+             /*<<set.ml:373:12>>*/ return _G_ /*<<set.ml:373:12>>*/ ;
            s1$0 = r1;
           }
          }
@@ -11533,7 +11697,8 @@
         function iter(f, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<set.ml:378:17>>*/ return 0;
+          if(! param$0)
+            /*<<set.ml:378:17>>*/ return 0 /*<<set.ml:378:17>>*/ ;
           var r = param$0[3], v = param$0[2], l = param$0[1];
            /*<<set.ml:379:25>>*/ iter(f, l);
            /*<<set.ml:379:35>>*/  /*<<set.ml:379:35>>*/ caml_call1
@@ -11544,7 +11709,8 @@
         function fold(f, s, accu){
          var s$0 = s, accu$0 = accu;
           /*<<set.ml:382:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:383:17>>*/ return accu$0;
+          if(! s$0)
+            /*<<set.ml:383:17>>*/ return accu$0 /*<<set.ml:383:17>>*/ ;
           var
            r = s$0[3],
            v = s$0[2],
@@ -11559,7 +11725,8 @@
         function for_all(p, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<set.ml:387:17>>*/ return 1;
+          if(! param$0)
+            /*<<set.ml:387:17>>*/ return 1 /*<<set.ml:387:17>>*/ ;
           var
            r = param$0[3],
            v = param$0[2],
@@ -11574,13 +11741,14 @@
           }
           else
            var _D_ = _B_;
-           /*<<set.ml:388:32>>*/ return _D_;
+           /*<<set.ml:388:32>>*/ return _D_ /*<<set.ml:388:32>>*/ ;
          }
         }
         function exists(p, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<set.ml:391:17>>*/ return 0;
+          if(! param$0)
+            /*<<set.ml:391:17>>*/ return 0 /*<<set.ml:391:17>>*/ ;
           var
            r = param$0[3],
            v = param$0[2],
@@ -11595,11 +11763,12 @@
             /*<<set.ml:392:32>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-           /*<<set.ml:392:25>>*/ return _z_;
+           /*<<set.ml:392:25>>*/ return _z_ /*<<set.ml:392:25>>*/ ;
          }
         }
         function filter(p, t){
-          /*<<?>>*/ if(! t)  /*<<set.ml:395:17>>*/ return 0;
+          /*<<?>>*/ if(! t)
+           /*<<set.ml:395:17>>*/ return 0 /*<<set.ml:395:17>>*/ ;
          var
           r = t[3],
           v = t[2],
@@ -11610,12 +11779,14 @@
               /*<<set.ml:399:19>>*/ (p, v),
           r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
-           /*<<set.ml:403:15>>*/ return concat(l$0, r$0);
-         if(l === l$0 && r === r$0)  /*<<set.ml:402:35>>*/ return t;
-          /*<<set.ml:402:42>>*/ return join(l$0, v, r$0);
+           /*<<set.ml:403:15>>*/ return concat(l$0, r$0) /*<<set.ml:403:15>>*/ ;
+         if(l === l$0 && r === r$0)
+           /*<<set.ml:402:35>>*/ return t /*<<set.ml:402:35>>*/ ;
+          /*<<set.ml:402:42>>*/ return join(l$0, v, r$0) /*<<set.ml:402:42>>*/ ;
         }
         function partition(p, param){
-          /*<<?>>*/ if(! param)  /*<<set.ml:406:17>>*/ return _b_;
+          /*<<?>>*/ if(! param)
+           /*<<set.ml:406:17>>*/ return _b_ /*<<set.ml:406:17>>*/ ;
          var
           r = param[3],
           v = param[2],
@@ -11631,13 +11802,14 @@
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
           var _w_ =  /*<<set.ml:413:30>>*/ concat(lf, rf);
-           /*<<set.ml:413:15>>*/ return [0, join(lt, v, rt), _w_];
+           /*<<set.ml:413:15>>*/ return [0, join(lt, v, rt), _w_] /*<<set.ml:413:15>>*/ ;
          }
          var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
-          /*<<set.ml:414:15>>*/ return [0, concat(lt, rt), _x_];
+          /*<<set.ml:414:15>>*/ return [0, concat(lt, rt), _x_] /*<<set.ml:414:15>>*/ ;
         }
         function cardinal(param){
-          /*<<set.ml:416:23>>*/ if(! param)  /*<<set.ml:417:17>>*/ return 0;
+          /*<<set.ml:416:23>>*/ if(! param)
+           /*<<set.ml:417:17>>*/ return 0 /*<<set.ml:417:17>>*/ ;
          var
           r = param[3],
           l = param[1],
@@ -11647,7 +11819,8 @@
         function elements_aux(accu, param){
          var accu$0 = accu, param$0 = param;
          for(;;){
-          if(! param$0)  /*<<set.ml:421:17>>*/ return accu$0;
+          if(! param$0)
+            /*<<set.ml:421:17>>*/ return accu$0 /*<<set.ml:421:17>>*/ ;
           var
            r = param$0[3],
            v = param$0[2],
@@ -11658,7 +11831,7 @@
          }
         }
         function elements(s){
-          /*<<set.ml:425:6>>*/ return elements_aux(0, s);
+          /*<<set.ml:425:6>>*/ return elements_aux(0, s) /*<<set.ml:425:23>>*/ ;
          /*<<set.ml:425:23>>*/ }
         function find(x, param){
          var param$0 = param;
@@ -11673,7 +11846,8 @@
            c =
               /*<<set.ml:434:18>>*/  /*<<set.ml:434:18>>*/ caml_call2
                /*<<set.ml:434:18>>*/ (Ord[1], x, v);
-           /*<<set.ml:435:10>>*/ if(0 === c)  /*<<set.ml:435:24>>*/ return v;
+           /*<<set.ml:435:10>>*/ if(0 === c)
+            /*<<set.ml:435:24>>*/ return v /*<<set.ml:435:24>>*/ ;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -11689,7 +11863,8 @@
            ( /*<<set.ml:451:13>>*/ caml_call1 /*<<set.ml:451:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = l$0;
            for(;;){
-            if(! param)  /*<<set.ml:440:10>>*/ return v0;
+            if(! param)
+              /*<<set.ml:440:10>>*/ return v0 /*<<set.ml:440:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:442:13>>*/ if
              ( /*<<set.ml:442:13>>*/ caml_call1
@@ -11708,13 +11883,15 @@
         function find_first_opt(f, param$0){
          var param$1 = param$0;
          for(;;){
-          if(! param$1)  /*<<set.ml:467:10>>*/ return 0;
+          if(! param$1)
+            /*<<set.ml:467:10>>*/ return 0 /*<<set.ml:467:10>>*/ ;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:469:13>>*/ if
            ( /*<<set.ml:469:13>>*/ caml_call1 /*<<set.ml:469:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = l$0;
            for(;;){
-            if(! param)  /*<<set.ml:458:10>>*/ return [0, v0];
+            if(! param)
+              /*<<set.ml:458:10>>*/ return [0, v0] /*<<set.ml:458:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:460:13>>*/ if
              ( /*<<set.ml:460:13>>*/ caml_call1
@@ -11741,7 +11918,8 @@
            ( /*<<set.ml:487:13>>*/ caml_call1 /*<<set.ml:487:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = r$0;
            for(;;){
-            if(! param)  /*<<set.ml:476:10>>*/ return v0;
+            if(! param)
+              /*<<set.ml:476:10>>*/ return v0 /*<<set.ml:476:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:478:13>>*/ if
              ( /*<<set.ml:478:13>>*/ caml_call1
@@ -11760,13 +11938,15 @@
         function find_last_opt(f, param$0){
          var param$1 = param$0;
          for(;;){
-          if(! param$1)  /*<<set.ml:503:10>>*/ return 0;
+          if(! param$1)
+            /*<<set.ml:503:10>>*/ return 0 /*<<set.ml:503:10>>*/ ;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:505:13>>*/ if
            ( /*<<set.ml:505:13>>*/ caml_call1 /*<<set.ml:505:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = r$0;
            for(;;){
-            if(! param)  /*<<set.ml:494:10>>*/ return [0, v0];
+            if(! param)
+              /*<<set.ml:494:10>>*/ return [0, v0] /*<<set.ml:494:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
              /*<<set.ml:496:13>>*/ if
              ( /*<<set.ml:496:13>>*/ caml_call1
@@ -11785,7 +11965,8 @@
         function find_opt(x, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<set.ml:511:17>>*/ return 0;
+          if(! param$0)
+            /*<<set.ml:511:17>>*/ return 0 /*<<set.ml:511:17>>*/ ;
           var
            r = param$0[3],
            v = param$0[2],
@@ -11794,7 +11975,7 @@
               /*<<set.ml:513:18>>*/  /*<<set.ml:513:18>>*/ caml_call2
                /*<<set.ml:513:18>>*/ (Ord[1], x, v);
            /*<<set.ml:514:10>>*/ if(0 === c)
-            /*<<set.ml:514:24>>*/ return [0, v];
+            /*<<set.ml:514:24>>*/ return [0, v] /*<<set.ml:514:24>>*/ ;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -11820,12 +12001,13 @@
                 /*<<set.ml:522:23>>*/ (Ord[1], v, _t_))
             break a;
           }
-           /*<<set.ml:523:11>>*/ return join(l, v, r);
+           /*<<set.ml:523:11>>*/ return join(l, v, r) /*<<set.ml:524:28>>*/ ;
          }
-          /*<<set.ml:524:19>>*/ return union(l, add(v, r));
+          /*<<set.ml:524:19>>*/ return union(l, add(v, r)) /*<<set.ml:524:28>>*/ ;
          /*<<set.ml:524:28>>*/ }
         function map(f, t){
-          /*<<?>>*/ if(! t)  /*<<set.ml:527:17>>*/ return 0;
+          /*<<?>>*/ if(! t)
+           /*<<set.ml:527:17>>*/ return 0 /*<<set.ml:527:17>>*/ ;
          var
           r = t[3],
           v = t[2],
@@ -11836,11 +12018,12 @@
               /*<<set.ml:531:18>>*/ (f, v),
           r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
          if(l === l$0 && v === v$0 && r === r$0)
-           /*<<set.ml:533:47>>*/ return t;
-          /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0);
+           /*<<set.ml:533:47>>*/ return t /*<<set.ml:533:47>>*/ ;
+          /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0) /*<<set.ml:534:14>>*/ ;
         }
         function filter_map(f, t){
-          /*<<?>>*/ if(! t)  /*<<set.ml:543:17>>*/ return 0;
+          /*<<?>>*/ if(! t)
+           /*<<set.ml:543:17>>*/ return 0 /*<<set.ml:543:17>>*/ ;
          var
           r = t[3],
           v = t[2],
@@ -11853,27 +12036,29 @@
           /*<<set.ml:549:9>>*/ if(v$0){
           var v$1 = v$0[1];
           if(l === t1 && v === v$1 && r === t2)
-            /*<<set.ml:551:52>>*/ return t;
-           /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2);
+            /*<<set.ml:551:52>>*/ return t /*<<set.ml:551:52>>*/ ;
+           /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:552:19>>*/ ;
          }
-         if(! t1)  /*<<set.ml:538:22>>*/ return t2;
-         if(! t2)  /*<<set.ml:539:22>>*/ return t1;
+         if(! t1)  /*<<set.ml:538:22>>*/ return t2 /*<<set.ml:538:22>>*/ ;
+         if(! t2)  /*<<set.ml:539:22>>*/ return t1 /*<<set.ml:539:22>>*/ ;
          var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
-          /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_);
+          /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_) /*<<set.ml:540:43>>*/ ;
         }
         function of_list(l){
           /*<<set.ml:581:6>>*/ if(! l) return empty;
          var _n_ = l[2], x0 = l[1];
-         if(! _n_)  /*<<set.ml:583:16>>*/ return singleton(x0);
+         if(! _n_)
+           /*<<set.ml:583:16>>*/ return singleton(x0) /*<<set.ml:588:58>>*/ ;
          var _o_ = _n_[2], x1 = _n_[1];
-         if(! _o_)  /*<<set.ml:584:27>>*/ return add(x1, singleton(x0));
+         if(! _o_)
+           /*<<set.ml:584:27>>*/ return add(x1, singleton(x0)) /*<<set.ml:588:58>>*/ ;
          var _p_ = _o_[2], x2 = _o_[1];
          if(! _p_)
-           /*<<set.ml:585:31>>*/ return add(x2, add(x1, singleton(x0)));
+           /*<<set.ml:585:31>>*/ return add(x2, add(x1, singleton(x0))) /*<<set.ml:588:58>>*/ ;
          var _q_ = _p_[2], x3 = _p_[1];
          if(! _q_)
            /*<<set.ml:586:35>>*/ return add
-                  (x3, add(x2, add(x1, singleton(x0))));
+                  (x3, add(x2, add(x1, singleton(x0)))) /*<<set.ml:588:58>>*/ ;
          if(_q_[2]){
           var
            l$0 =
@@ -11884,11 +12069,11 @@
                /*<<set.ml:559:8>>*/ if(3 >= n >>> 0)
                switch(n){
                  case 0:
-                   /*<<set.ml:560:18>>*/ return [0, 0, l];
+                   /*<<set.ml:560:18>>*/ return [0, 0, l] /*<<set.ml:560:18>>*/ ;
                  case 1:
                   if(l){
                    var l$3 = l[2], x0 = l[1];
-                    /*<<set.ml:561:24>>*/ return [0, [0, 0, x0, 0, 1], l$3];
+                    /*<<set.ml:561:24>>*/ return [0, [0, 0, x0, 0, 1], l$3] /*<<set.ml:561:24>>*/ ;
                   }
                   break;
                  case 2:
@@ -11898,7 +12083,7 @@
                     var l$4 = match$1[2], x1 = match$1[1], x0$0 = l[1];
                      /*<<set.ml:563:12>>*/ return [0,
                             [0, [0, 0, x0$0, 0, 1], x1, 0, 2],
-                            l$4];
+                            l$4] /*<<set.ml:563:12>>*/ ;
                    }
                   }
                   break;
@@ -11915,7 +12100,7 @@
                       x0$1 = l[1];
                       /*<<set.ml:565:12>>*/ return [0,
                              [0, [0, 0, x0$1, 0, 1], x1$0, [0, 0, x2, 0, 1], 2],
-                             l$5];
+                             l$5] /*<<set.ml:565:12>>*/ ;
                     }
                    }
                   }
@@ -11934,32 +12119,33 @@
                match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
                l$2 = match$0[2],
                right = match$0[1];
-               /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2];
+               /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2] /*<<set.ml:574:12>>*/ ;
               /*<<set.ml:574:36>>*/ };
            /*<<set.ml:576:10>>*/ return sub
                    ( /*<<set.ml:576:15>>*/ caml_call1
                       /*<<set.ml:576:15>>*/ (Stdlib_List[1], l$0),
                     l$0)
-                  [1];
+                  [1] /*<<set.ml:576:10>>*/ ;
          }
          var x4 = _q_[1];
           /*<<set.ml:587:39>>*/ return add
-                 (x4, add(x3, add(x2, add(x1, singleton(x0)))));
+                 (x4, add(x3, add(x2, add(x1, singleton(x0))))) /*<<set.ml:588:58>>*/ ;
          /*<<set.ml:588:58>>*/ }
         function add_seq(i, m){
           /*<<set.ml:591:6>>*/ return  /*<<set.ml:591:6>>*/ caml_call3
                   /*<<set.ml:591:6>>*/ (Stdlib_Seq[5],
                   function(s, x){
-                    /*<<set.ml:591:32>>*/ return add(x, s);
+                    /*<<set.ml:591:32>>*/ return add(x, s) /*<<set.ml:591:39>>*/ ;
                    /*<<set.ml:591:39>>*/ },
                   m,
-                  i);
+                  i) /*<<set.ml:591:44>>*/ ;
          /*<<set.ml:591:44>>*/ }
         function of_seq(i){
-          /*<<set.ml:593:19>>*/ return add_seq(i, empty);
+          /*<<set.ml:593:19>>*/ return add_seq(i, empty) /*<<set.ml:593:34>>*/ ;
          /*<<set.ml:593:34>>*/ }
         function seq_of_enum(c, param){
-          /*<<set.ml:595:32>>*/ if(! c)  /*<<set.ml:596:15>>*/ return 0;
+          /*<<set.ml:595:32>>*/ if(! c)
+           /*<<set.ml:596:15>>*/ return 0 /*<<set.ml:596:15>>*/ ;
          var
           rest = c[3],
           t = c[2],
@@ -11967,17 +12153,17 @@
           _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
           /*<<set.ml:597:29>>*/ return [0,
                  x,
-                 function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}];
+                 function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}] /*<<set.ml:597:29>>*/ ;
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
          var _j_ =  /*<<set.ml:599:32>>*/ cons_enum(c, 0);
           /*<<set.ml:599:32>>*/ return function(_k_){
-           /*<<?>>*/ return seq_of_enum(_j_, _k_);};
+           /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:32>>*/ ;
          /*<<set.ml:599:49>>*/ }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<set.ml:602:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
+          if(! s$0)  /*<<set.ml:603:17>>*/ return e$0 /*<<set.ml:603:17>>*/ ;
           var
            r = s$0[3],
            v = s$0[2],
@@ -11988,7 +12174,8 @@
          }
          /*<<set.ml:604:52>>*/ }
         function rev_seq_of_enum(c, param){
-          /*<<set.ml:606:36>>*/ if(! c)  /*<<set.ml:607:15>>*/ return 0;
+          /*<<set.ml:606:36>>*/ if(! c)
+           /*<<set.ml:607:15>>*/ return 0 /*<<set.ml:607:15>>*/ ;
          var
           rest = c[3],
           t = c[2],
@@ -11996,12 +12183,12 @@
           _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
           /*<<set.ml:608:29>>*/ return [0,
                  x,
-                 function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}];
+                 function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}] /*<<set.ml:608:29>>*/ ;
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
          var _f_ =  /*<<set.ml:610:40>>*/ snoc_enum(c, 0);
           /*<<set.ml:610:40>>*/ return function(_g_){
-           /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);};
+           /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);} /*<<set.ml:610:40>>*/ ;
          /*<<set.ml:610:57>>*/ }
         function to_seq_from(low, s){
          a:
@@ -12033,7 +12220,7 @@
           var _d_ = [0, v, r, c];
          }
           /*<<set.ml:622:19>>*/ return function(_e_){
-           /*<<?>>*/ return seq_of_enum(_d_, _e_);};
+           /*<<?>>*/ return seq_of_enum(_d_, _e_);} /*<<set.ml:622:19>>*/ ;
          /*<<set.ml:622:34>>*/ }
         return [0,
                 empty,
@@ -12128,19 +12315,20 @@
       [0,
        function(Ord){
         function height(param){
-          /*<<map.ml:81:17>>*/ if(! param)  /*<<map.ml:82:17>>*/ return 0;
+          /*<<map.ml:81:17>>*/ if(! param)
+           /*<<map.ml:82:17>>*/ return 0 /*<<map.ml:82:17>>*/ ;
          var h = param[5];
-          /*<<map.ml:83:20>>*/ return h;
+          /*<<map.ml:83:20>>*/ return h /*<<map.ml:83:20>>*/ ;
          /*<<map.ml:83:21>>*/ }
         function create(l, x, d, r){
          var
           hl =  /*<<map.ml:86:15>>*/ height(l),
           hr =  /*<<map.ml:86:33>>*/ height(r),
           _K_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-          /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_];
+          /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_] /*<<map.ml:87:10>>*/ ;
          /*<<map.ml:87:65>>*/ }
         function singleton(x, d){
-          /*<<map.ml:89:24>>*/ return [0, 0, x, d, 0, 1];
+          /*<<map.ml:89:24>>*/ return [0, 0, x, d, 0, 1] /*<<map.ml:89:28>>*/ ;
          /*<<map.ml:89:59>>*/ }
         function bal(l, x, d, r){
           /*<<map.ml:92:6>>*/ if(l) var h = l[5], hl = h; else var hl = 0;
@@ -12148,7 +12336,7 @@
          if((hr + 2 | 0) < hl){
           if(! l)
             /*<<map.ml:96:19>>*/ return  /*<<map.ml:96:19>>*/ caml_call1
-                    /*<<map.ml:96:19>>*/ (Stdlib[1], cst_Map_bal$0);
+                    /*<<map.ml:96:19>>*/ (Stdlib[1], cst_Map_bal$0) /*<<map.ml:119:67>>*/ ;
           var
            lr = l[4],
            ld = l[3],
@@ -12157,10 +12345,10 @@
            _F_ =  /*<<map.ml:98:28>>*/ height(lr);
           if(_F_ <= height(ll))
             /*<<map.ml:99:30>>*/ return create
-                   (ll, lv, ld, create(lr, x, d, r));
+                   (ll, lv, ld, create(lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
           if(! lr)
             /*<<map.ml:102:25>>*/ return  /*<<map.ml:102:25>>*/ caml_call1
-                    /*<<map.ml:102:25>>*/ (Stdlib[1], cst_Map_bal);
+                    /*<<map.ml:102:25>>*/ (Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
           var
            lrr = lr[4],
            lrd = lr[3],
@@ -12168,15 +12356,15 @@
            lrl = lr[1],
            _G_ =  /*<<map.ml:104:55>>*/ create(lrr, x, d, r);
            /*<<map.ml:104:55>>*/ return create
-                  (create(ll, lv, ld, lrl), lrv, lrd, _G_);
+                  (create(ll, lv, ld, lrl), lrv, lrd, _G_) /*<<map.ml:119:67>>*/ ;
          }
          if((hl + 2 | 0) >= hr){
           var _J_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-           /*<<map.ml:119:12>>*/ return [0, l, x, d, r, _J_];
+           /*<<map.ml:119:12>>*/ return [0, l, x, d, r, _J_] /*<<map.ml:119:12>>*/ ;
          }
          if(! r)
            /*<<map.ml:108:19>>*/ return  /*<<map.ml:108:19>>*/ caml_call1
-                   /*<<map.ml:108:19>>*/ (Stdlib[1], cst_Map_bal$2);
+                   /*<<map.ml:108:19>>*/ (Stdlib[1], cst_Map_bal$2) /*<<map.ml:119:67>>*/ ;
          var
           rr = r[4],
           rd = r[3],
@@ -12185,10 +12373,10 @@
           _H_ =  /*<<map.ml:110:28>>*/ height(rl);
          if(_H_ <= height(rr))
            /*<<map.ml:111:14>>*/ return create
-                  (create(l, x, d, rl), rv, rd, rr);
+                  (create(l, x, d, rl), rv, rd, rr) /*<<map.ml:119:67>>*/ ;
          if(! rl)
            /*<<map.ml:114:25>>*/ return  /*<<map.ml:114:25>>*/ caml_call1
-                   /*<<map.ml:114:25>>*/ (Stdlib[1], cst_Map_bal$1);
+                   /*<<map.ml:114:25>>*/ (Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
          var
           rlr = rl[4],
           rld = rl[3],
@@ -12196,15 +12384,15 @@
           rll = rl[1],
           _I_ =  /*<<map.ml:116:52>>*/ create(rlr, rv, rd, rr);
           /*<<map.ml:116:52>>*/ return create
-                 (create(l, x, d, rll), rlv, rld, _I_);
+                 (create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
          /*<<map.ml:119:67>>*/ }
         var empty = 0;
         function is_empty(param){
-          /*<<map.ml:123:19>>*/ return param ? 0 : 1;
+          /*<<map.ml:123:19>>*/ return param ? 0 : 1 /*<<map.ml:123:54>>*/ ;
          /*<<map.ml:123:54>>*/ }
         function add(x, data, m){
           /*<<?>>*/ if(! m)
-           /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1];
+           /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1] /*<<map.ml:127:14>>*/ ;
          var
           h = m[5],
           r = m[4],
@@ -12237,7 +12425,8 @@
            c =
               /*<<map.ml:143:18>>*/  /*<<map.ml:143:18>>*/ caml_call2
                /*<<map.ml:143:18>>*/ (Ord[1], x, v);
-           /*<<map.ml:144:10>>*/ if(0 === c)  /*<<map.ml:144:24>>*/ return d;
+           /*<<map.ml:144:10>>*/ if(0 === c)
+            /*<<map.ml:144:24>>*/ return d /*<<map.ml:144:24>>*/ ;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -12257,7 +12446,8 @@
            ( /*<<map.ml:160:13>>*/ caml_call1 /*<<map.ml:160:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
            for(;;){
-            if(! param)  /*<<map.ml:149:10>>*/ return [0, v0, d0];
+            if(! param)
+              /*<<map.ml:149:10>>*/ return [0, v0, d0] /*<<map.ml:149:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:151:13>>*/ if
              ( /*<<map.ml:151:13>>*/ caml_call1
@@ -12277,7 +12467,8 @@
         function find_first_opt(f, param$0){
          var param$1 = param$0;
          for(;;){
-          if(! param$1)  /*<<map.ml:176:10>>*/ return 0;
+          if(! param$1)
+            /*<<map.ml:176:10>>*/ return 0 /*<<map.ml:176:10>>*/ ;
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
@@ -12287,7 +12478,8 @@
            ( /*<<map.ml:178:13>>*/ caml_call1 /*<<map.ml:178:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
            for(;;){
-            if(! param)  /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]];
+            if(! param)
+              /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]] /*<<map.ml:167:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:169:13>>*/ if
              ( /*<<map.ml:169:13>>*/ caml_call1
@@ -12319,7 +12511,8 @@
            ( /*<<map.ml:196:13>>*/ caml_call1 /*<<map.ml:196:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
            for(;;){
-            if(! param)  /*<<map.ml:185:10>>*/ return [0, v0, d0];
+            if(! param)
+              /*<<map.ml:185:10>>*/ return [0, v0, d0] /*<<map.ml:185:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:187:13>>*/ if
              ( /*<<map.ml:187:13>>*/ caml_call1
@@ -12339,7 +12532,8 @@
         function find_last_opt(f, param$0){
          var param$1 = param$0;
          for(;;){
-          if(! param$1)  /*<<map.ml:212:10>>*/ return 0;
+          if(! param$1)
+            /*<<map.ml:212:10>>*/ return 0 /*<<map.ml:212:10>>*/ ;
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
@@ -12349,7 +12543,8 @@
            ( /*<<map.ml:214:13>>*/ caml_call1 /*<<map.ml:214:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
            for(;;){
-            if(! param)  /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]];
+            if(! param)
+              /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]] /*<<map.ml:203:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
              /*<<map.ml:205:13>>*/ if
              ( /*<<map.ml:205:13>>*/ caml_call1
@@ -12369,7 +12564,8 @@
         function find_opt(x, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<map.ml:221:10>>*/ return 0;
+          if(! param$0)
+            /*<<map.ml:221:10>>*/ return 0 /*<<map.ml:221:10>>*/ ;
           var
            r = param$0[4],
            d = param$0[3],
@@ -12379,7 +12575,7 @@
               /*<<map.ml:223:18>>*/  /*<<map.ml:223:18>>*/ caml_call2
                /*<<map.ml:223:18>>*/ (Ord[1], x, v);
            /*<<map.ml:224:10>>*/ if(0 === c)
-            /*<<map.ml:224:24>>*/ return [0, d];
+            /*<<map.ml:224:24>>*/ return [0, d] /*<<map.ml:224:24>>*/ ;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -12387,7 +12583,8 @@
         function mem(x, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<map.ml:229:10>>*/ return 0;
+          if(! param$0)
+            /*<<map.ml:229:10>>*/ return 0 /*<<map.ml:229:10>>*/ ;
           var
            r = param$0[4],
            v = param$0[2],
@@ -12410,7 +12607,7 @@
           var l = param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:236:32>>*/ return [0, v, d];
+            /*<<map.ml:236:32>>*/ return [0, v, d] /*<<map.ml:236:32>>*/ ;
           }
           param$0 = l;
          }
@@ -12418,11 +12615,12 @@
         function min_binding_opt(param){
          var param$0 = param;
           /*<<map.ml:239:30>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:240:17>>*/ return 0;
+          if(! param$0)
+            /*<<map.ml:240:17>>*/ return 0 /*<<map.ml:240:17>>*/ ;
           var l = param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:241:32>>*/ return [0, [0, v, d]];
+            /*<<map.ml:241:32>>*/ return [0, [0, v, d]] /*<<map.ml:241:32>>*/ ;
           }
           param$0 = l;
          }
@@ -12435,7 +12633,7 @@
                    /*<<map.ml:245:17>>*/ (Stdlib[8], 1);
           if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:246:32>>*/ return [0, v, d];
+            /*<<map.ml:246:32>>*/ return [0, v, d] /*<<map.ml:246:32>>*/ ;
           }
           var r = param$0[4];
           param$0 = r;
@@ -12444,10 +12642,11 @@
         function max_binding_opt(param){
          var param$0 = param;
           /*<<map.ml:249:30>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:250:17>>*/ return 0;
+          if(! param$0)
+            /*<<map.ml:250:17>>*/ return 0 /*<<map.ml:250:17>>*/ ;
           if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:251:32>>*/ return [0, [0, v, d]];
+            /*<<map.ml:251:32>>*/ return [0, [0, v, d]] /*<<map.ml:251:32>>*/ ;
           }
           var r = param$0[4];
           param$0 = r;
@@ -12456,26 +12655,28 @@
         function remove_min_binding(param){
           /*<<map.ml:254:33>>*/ if(! param)
            /*<<map.ml:255:17>>*/ return  /*<<map.ml:255:17>>*/ caml_call1
-                   /*<<map.ml:255:17>>*/ (Stdlib[1], cst_Map_remove_min_elt);
+                   /*<<map.ml:255:17>>*/ (Stdlib[1], cst_Map_remove_min_elt) /*<<map.ml:257:61>>*/ ;
          var l = param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
-           /*<<map.ml:257:29>>*/ return bal(remove_min_binding(l), v, d, r);
+           /*<<map.ml:257:29>>*/ return bal(remove_min_binding(l), v, d, r) /*<<map.ml:257:61>>*/ ;
          }
          var r$0 = param[4];
-          /*<<map.ml:256:29>>*/ return r$0;
+          /*<<map.ml:256:29>>*/ return r$0 /*<<map.ml:256:29>>*/ ;
          /*<<map.ml:257:61>>*/ }
         function _d_(t1, t2){
-          /*<<map.ml:260:6>>*/ if(! t1)  /*<<map.ml:261:22>>*/ return t2;
-         if(! t2)  /*<<map.ml:262:22>>*/ return t1;
+          /*<<map.ml:260:6>>*/ if(! t1)
+           /*<<map.ml:261:22>>*/ return t2 /*<<map.ml:261:22>>*/ ;
+         if(! t2)  /*<<map.ml:262:22>>*/ return t1 /*<<map.ml:262:22>>*/ ;
          var
           match =  /*<<map.ml:264:23>>*/ min_binding(t2),
           d = match[2],
           x = match[1];
-          /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2));
+          /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
          /*<<map.ml:265:44>>*/ }
         function remove(x, m){
-          /*<<?>>*/ if(! m)  /*<<map.ml:269:10>>*/ return 0;
+          /*<<?>>*/ if(! m)
+           /*<<map.ml:269:10>>*/ return 0 /*<<map.ml:269:10>>*/ ;
          var
           r = m[4],
           d = m[3],
@@ -12485,7 +12686,7 @@
              /*<<map.ml:271:18>>*/  /*<<map.ml:271:18>>*/ caml_call2
               /*<<map.ml:271:18>>*/ (Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
-           /*<<map.ml:272:24>>*/ return _d_(l, r);
+           /*<<map.ml:272:24>>*/ return _d_(l, r) /*<<map.ml:272:24>>*/ ;
          if(0 <= c){
           var rr =  /*<<map.ml:276:21>>*/ remove(x, r);
           return r === rr ? m : bal(l, v, d, rr);
@@ -12499,9 +12700,10 @@
            match$0 =
               /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ caml_call1
                /*<<map.ml:280:22>>*/ (f, 0);
-          if(! match$0)  /*<<map.ml:281:20>>*/ return 0;
+          if(! match$0)
+            /*<<map.ml:281:20>>*/ return 0 /*<<map.ml:281:20>>*/ ;
           var data$0 = match$0[1];
-           /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1];
+           /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1] /*<<map.ml:282:29>>*/ ;
          }
          var
           h = m[5],
@@ -12517,7 +12719,8 @@
            match =
               /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ caml_call1
                /*<<map.ml:287:18>>*/ (f, [0, d]);
-          if(! match)  /*<<map.ml:288:22>>*/ return _d_(l, r);
+          if(! match)
+            /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:288:22>>*/ ;
           var data = match[1];
           return d === data ? m : [0, l, x, data, r, h];
          }
@@ -12531,16 +12734,17 @@
         function add_to_list(x, data, m){
          function add(param){
            /*<<map.ml:299:16>>*/ if(! param)
-            /*<<map.ml:299:33>>*/ return [0, [0, data, 0]];
+            /*<<map.ml:299:33>>*/ return [0, [0, data, 0]] /*<<map.ml:299:33>>*/ ;
           var l = param[1];
-           /*<<map.ml:299:57>>*/ return [0, [0, data, l]];
+           /*<<map.ml:299:57>>*/ return [0, [0, data, l]] /*<<map.ml:299:57>>*/ ;
           /*<<map.ml:299:73>>*/ }
-          /*<<map.ml:300:6>>*/ return update(x, add, m);
+          /*<<map.ml:300:6>>*/ return update(x, add, m) /*<<map.ml:300:20>>*/ ;
          /*<<map.ml:300:20>>*/ }
         function iter(f, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<map.ml:303:17>>*/ return 0;
+          if(! param$0)
+            /*<<map.ml:303:17>>*/ return 0 /*<<map.ml:303:17>>*/ ;
           var r = param$0[4], d = param$0[3], v = param$0[2], l = param$0[1];
            /*<<map.ml:305:10>>*/ iter(f, l);
            /*<<map.ml:305:20>>*/  /*<<map.ml:305:20>>*/ caml_call2
@@ -12549,7 +12753,8 @@
          }
         }
         function map(f, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:309:10>>*/ return 0;
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:309:10>>*/ return 0 /*<<map.ml:309:10>>*/ ;
          var
           h = param[5],
           r = param[4],
@@ -12561,10 +12766,11 @@
              /*<<map.ml:312:19>>*/  /*<<map.ml:312:19>>*/ caml_call1
               /*<<map.ml:312:19>>*/ (f, d),
           r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
-          /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h];
+          /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:314:14>>*/ ;
         }
         function mapi(f, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:318:10>>*/ return 0;
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:318:10>>*/ return 0 /*<<map.ml:318:10>>*/ ;
          var
           h = param[5],
           r = param[4],
@@ -12576,12 +12782,13 @@
              /*<<map.ml:321:19>>*/  /*<<map.ml:321:19>>*/ caml_call2
               /*<<map.ml:321:19>>*/ (f, v, d),
           r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
-          /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h];
+          /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:323:14>>*/ ;
         }
         function fold(f, m, accu){
          var m$0 = m, accu$0 = accu;
           /*<<map.ml:326:6>>*/ for(;;){
-          if(! m$0)  /*<<map.ml:327:17>>*/ return accu$0;
+          if(! m$0)
+            /*<<map.ml:327:17>>*/ return accu$0 /*<<map.ml:327:17>>*/ ;
           var
            r = m$0[4],
            d = m$0[3],
@@ -12597,7 +12804,8 @@
         function for_all(p, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<map.ml:332:17>>*/ return 1;
+          if(! param$0)
+            /*<<map.ml:332:17>>*/ return 1 /*<<map.ml:332:17>>*/ ;
           var
            r = param$0[4],
            d = param$0[3],
@@ -12613,13 +12821,14 @@
           }
           else
            var _D_ = _B_;
-           /*<<map.ml:333:38>>*/ return _D_;
+           /*<<map.ml:333:38>>*/ return _D_ /*<<map.ml:333:38>>*/ ;
          }
         }
         function exists(p, param){
          var param$0 = param;
          for(;;){
-          if(! param$0)  /*<<map.ml:336:17>>*/ return 0;
+          if(! param$0)
+            /*<<map.ml:336:17>>*/ return 0 /*<<map.ml:336:17>>*/ ;
           var
            r = param$0[4],
            d = param$0[3],
@@ -12635,23 +12844,26 @@
             /*<<map.ml:337:38>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-           /*<<map.ml:337:29>>*/ return _z_;
+           /*<<map.ml:337:29>>*/ return _z_ /*<<map.ml:337:29>>*/ ;
          }
         }
         function add_min_binding(k, x, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:348:17>>*/ return singleton(k, x);
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:348:17>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:350:8>>*/ return bal(add_min_binding(k, x, l), v, d, r);
+          /*<<map.ml:350:8>>*/ return bal(add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:8>>*/ ;
         }
         function add_max_binding(k, x, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:353:17>>*/ return singleton(k, x);
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:353:17>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r));
+          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r)) /*<<map.ml:355:18>>*/ ;
         }
         function join(l, v, d, r){
           /*<<map.ml:361:6>>*/ if(! l)
-           /*<<map.ml:362:22>>*/ return add_min_binding(v, d, r);
-         if(! r)  /*<<map.ml:363:22>>*/ return add_max_binding(v, d, l);
+           /*<<map.ml:362:22>>*/ return add_min_binding(v, d, r) /*<<map.ml:368:24>>*/ ;
+         if(! r)
+           /*<<map.ml:363:22>>*/ return add_max_binding(v, d, l) /*<<map.ml:368:24>>*/ ;
          var
           rh = r[5],
           rr = r[4],
@@ -12670,25 +12882,27 @@
                    | 0)
                    < rh
                    ? bal(join(l, v, d, rl), rv, rd, rr)
-                   : create(l, v, d, r);
+                   : create(l, v, d, r) /*<<map.ml:368:24>>*/ ;
          /*<<map.ml:368:24>>*/ }
         function concat(t1, t2){
-          /*<<map.ml:375:6>>*/ if(! t1)  /*<<map.ml:376:22>>*/ return t2;
-         if(! t2)  /*<<map.ml:377:22>>*/ return t1;
+          /*<<map.ml:375:6>>*/ if(! t1)
+           /*<<map.ml:376:22>>*/ return t2 /*<<map.ml:376:22>>*/ ;
+         if(! t2)  /*<<map.ml:377:22>>*/ return t1 /*<<map.ml:377:22>>*/ ;
          var
           match =  /*<<map.ml:379:23>>*/ min_binding(t2),
           d = match[2],
           x = match[1];
-          /*<<map.ml:380:22>>*/ return join(t1, x, d, remove_min_binding(t2));
+          /*<<map.ml:380:22>>*/ return join(t1, x, d, remove_min_binding(t2)) /*<<map.ml:380:45>>*/ ;
          /*<<map.ml:380:45>>*/ }
         function concat_or_join(t1, v, d, t2){
           /*<<map.ml:383:6>>*/ if(! d)
-           /*<<map.ml:385:16>>*/ return concat(t1, t2);
+           /*<<map.ml:385:16>>*/ return concat(t1, t2) /*<<map.ml:385:28>>*/ ;
          var d$0 = d[1];
-          /*<<map.ml:384:18>>*/ return join(t1, v, d$0, t2);
+          /*<<map.ml:384:18>>*/ return join(t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
          /*<<map.ml:385:28>>*/ }
         function split(x, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:389:10>>*/ return _a_;
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:389:10>>*/ return _a_ /*<<map.ml:389:10>>*/ ;
          var
           r = param[4],
           d = param[3],
@@ -12698,21 +12912,21 @@
              /*<<map.ml:391:18>>*/  /*<<map.ml:391:18>>*/ caml_call2
               /*<<map.ml:391:18>>*/ (Ord[1], x, v);
           /*<<map.ml:392:10>>*/ if(0 === c)
-           /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
+           /*<<map.ml:392:24>>*/ return [0, l, [0, d], r] /*<<map.ml:392:24>>*/ ;
          if(0 <= c){
           var
            match =  /*<<map.ml:396:33>>*/ split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
-           /*<<map.ml:396:46>>*/ return [0, join(l, v, d, lr), pres, rr];
+           /*<<map.ml:396:46>>*/ return [0, join(l, v, d, lr), pres, rr] /*<<map.ml:396:46>>*/ ;
          }
          var
           match$0 =  /*<<map.ml:394:33>>*/ split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<map.ml:394:46>>*/ return [0, ll, pres$0, join(rl, v, d, r)];
+          /*<<map.ml:394:46>>*/ return [0, ll, pres$0, join(rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
         }
         function merge(f, s1, s2){
           /*<<map.ml:399:6>>*/ if(s1){
@@ -12728,10 +12942,10 @@
                /*<<map.ml:403:44>>*/  /*<<map.ml:403:44>>*/ caml_call3
                 /*<<map.ml:403:44>>*/ (f, v1, [0, d1], d2);
             /*<<map.ml:403:64>>*/ return concat_or_join
-                   (merge(f, l1, l2), v1, _v_, _u_);
+                   (merge(f, l1, l2), v1, _v_, _u_) /*<<map.ml:408:22>>*/ ;
           }
          }
-         else if(! s2)  /*<<map.ml:400:26>>*/ return 0;
+         else if(! s2)  /*<<map.ml:400:26>>*/ return 0 /*<<map.ml:400:26>>*/ ;
          if(! s2)
            /*<<map.ml:408:10>>*/ throw  /*<<map.ml:408:10>>*/ caml_maybe_attach_backtrace
                   /*<<map.ml:408:10>>*/ ([0, Assert_failure, _b_], 1);
@@ -12749,7 +12963,7 @@
              /*<<map.ml:406:44>>*/  /*<<map.ml:406:44>>*/ caml_call3
               /*<<map.ml:406:44>>*/ (f, v2, d1$0, [0, d2$0]);
           /*<<map.ml:406:64>>*/ return concat_or_join
-                 (merge(f, l1$0, l2$0), v2, _x_, _w_);
+                 (merge(f, l1$0, l2$0), v2, _x_, _w_) /*<<map.ml:408:22>>*/ ;
          /*<<map.ml:408:22>>*/ }
         function union(f, s1, s2){
           /*<<map.ml:411:6>>*/ if(s1){
@@ -12774,14 +12988,14 @@
              l =  /*<<map.ml:417:20>>*/ union(f, l1, l2$0),
              r =  /*<<map.ml:417:42>>*/ union(f, r1, r2$0);
              /*<<map.ml:418:12>>*/ if(! d2$0)
-              /*<<map.ml:419:22>>*/ return join(l, v1, d1, r);
+              /*<<map.ml:419:22>>*/ return join(l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
             var d2$1 = d2$0[1];
              /*<<map.ml:420:25>>*/ return concat_or_join
                     (l,
                      v1,
                       /*<<map.ml:420:45>>*/ caml_call3
                        /*<<map.ml:420:45>>*/ (f, v1, d1, d2$1),
-                     r);
+                     r) /*<<map.ml:426:59>>*/ ;
            }
            var
             match$0 =  /*<<map.ml:422:31>>*/ split(v2, s1),
@@ -12791,23 +13005,24 @@
             l$0 =  /*<<map.ml:423:20>>*/ union(f, l1$0, l2),
             r$0 =  /*<<map.ml:423:42>>*/ union(f, r1$0, r2);
             /*<<map.ml:424:12>>*/ if(! d1$0)
-             /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0);
+             /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
            var d1$1 = d1$0[1];
             /*<<map.ml:426:25>>*/ return concat_or_join
                    (l$0,
                     v2,
                      /*<<map.ml:426:45>>*/ caml_call3
                       /*<<map.ml:426:45>>*/ (f, v2, d1$1, d2),
-                    r$0);
+                    r$0) /*<<map.ml:426:59>>*/ ;
           }
           var s = s1;
          }
          else
           var s = s2;
-          /*<<map.ml:412:35>>*/ return s;
+          /*<<map.ml:412:35>>*/ return s /*<<map.ml:412:35>>*/ ;
          /*<<map.ml:426:59>>*/ }
         function filter(p, m){
-          /*<<?>>*/ if(! m)  /*<<map.ml:429:17>>*/ return 0;
+          /*<<?>>*/ if(! m)
+           /*<<map.ml:429:17>>*/ return 0 /*<<map.ml:429:17>>*/ ;
          var
           r = m[4],
           d = m[3],
@@ -12819,12 +13034,14 @@
               /*<<map.ml:433:20>>*/ (p, v, d),
           r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
-           /*<<map.ml:436:15>>*/ return concat(l$0, r$0);
-         if(l === l$0 && r === r$0)  /*<<map.ml:435:45>>*/ return m;
-          /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0);
+           /*<<map.ml:436:15>>*/ return concat(l$0, r$0) /*<<map.ml:436:15>>*/ ;
+         if(l === l$0 && r === r$0)
+           /*<<map.ml:435:45>>*/ return m /*<<map.ml:435:45>>*/ ;
+          /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0) /*<<map.ml:435:52>>*/ ;
         }
         function filter_map(f, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:439:17>>*/ return 0;
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:439:17>>*/ return 0 /*<<map.ml:439:17>>*/ ;
          var
           r = param[4],
           d = param[3],
@@ -12836,12 +13053,13 @@
               /*<<map.ml:443:20>>*/ (f, v, d),
           r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
-           /*<<map.ml:447:22>>*/ return concat(l$0, r$0);
+           /*<<map.ml:447:22>>*/ return concat(l$0, r$0) /*<<map.ml:447:22>>*/ ;
          var d$0 = fvd[1];
-          /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0);
+          /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0) /*<<map.ml:446:25>>*/ ;
         }
         function partition(p, param){
-          /*<<?>>*/ if(! param)  /*<<map.ml:451:17>>*/ return _c_;
+          /*<<?>>*/ if(! param)
+           /*<<map.ml:451:17>>*/ return _c_ /*<<map.ml:451:17>>*/ ;
          var
           r = param[4],
           d = param[3],
@@ -12858,15 +13076,15 @@
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
           var _s_ =  /*<<map.ml:458:32>>*/ concat(lf, rf);
-           /*<<map.ml:458:15>>*/ return [0, join(lt, v, d, rt), _s_];
+           /*<<map.ml:458:15>>*/ return [0, join(lt, v, d, rt), _s_] /*<<map.ml:458:15>>*/ ;
          }
          var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
-          /*<<map.ml:459:15>>*/ return [0, concat(lt, rt), _t_];
+          /*<<map.ml:459:15>>*/ return [0, concat(lt, rt), _t_] /*<<map.ml:459:15>>*/ ;
         }
         function cons_enum(m, e){
          var m$0 = m, e$0 = e;
           /*<<map.ml:464:6>>*/ for(;;){
-          if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
+          if(! m$0)  /*<<map.ml:465:17>>*/ return e$0 /*<<map.ml:465:17>>*/ ;
           var
            r = m$0[4],
            d = m$0[3],
@@ -12884,8 +13102,8 @@
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:470:10>>*/ for(;;){
-          if(! e1) return e2 ? -1 : 0;
-          if(! e2)  /*<<map.ml:473:22>>*/ return 1;
+          if(! e1) return e2 ? -1 : 0 /*<<map.ml:480:58>>*/ ;
+          if(! e2)  /*<<map.ml:473:22>>*/ return 1 /*<<map.ml:473:22>>*/ ;
           var
            e2$0 = e2[4],
            r2 = e2[3],
@@ -12898,13 +13116,14 @@
            c =
               /*<<map.ml:475:20>>*/  /*<<map.ml:475:20>>*/ caml_call2
                /*<<map.ml:475:20>>*/ (Ord[1], v1, v2);
-           /*<<map.ml:476:12>>*/ if(0 !== c)  /*<<map.ml:476:27>>*/ return c;
+           /*<<map.ml:476:12>>*/ if(0 !== c)
+            /*<<map.ml:476:27>>*/ return c /*<<map.ml:476:27>>*/ ;
           var
            c$0 =
               /*<<map.ml:477:20>>*/  /*<<map.ml:477:20>>*/ caml_call2
                /*<<map.ml:477:20>>*/ (cmp, d1, d2);
            /*<<map.ml:478:12>>*/ if(0 !== c$0)
-            /*<<map.ml:478:27>>*/ return c$0;
+            /*<<map.ml:478:27>>*/ return c$0 /*<<map.ml:478:27>>*/ ;
           var
            e2$1 =  /*<<map.ml:479:42>>*/ cons_enum(r2, e2$0),
            e1$1 =  /*<<map.ml:479:24>>*/ cons_enum(r1, e1$0);
@@ -12919,8 +13138,8 @@
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:484:10>>*/ for(;;){
-          if(! e1) return e2 ? 0 : 1;
-          if(! e2)  /*<<map.ml:487:22>>*/ return 0;
+          if(! e1) return e2 ? 0 : 1 /*<<map.ml:491:56>>*/ ;
+          if(! e2)  /*<<map.ml:487:22>>*/ return 0 /*<<map.ml:487:22>>*/ ;
           var
            e2$0 = e2[4],
            r2 = e2[3],
@@ -12954,11 +13173,12 @@
           }
           else
            var _r_ = _p_;
-           /*<<map.ml:489:37>>*/ return _r_;
+           /*<<map.ml:489:37>>*/ return _r_ /*<<map.ml:489:37>>*/ ;
          }
          /*<<map.ml:491:56>>*/ }
         function cardinal(param){
-          /*<<map.ml:493:23>>*/ if(! param)  /*<<map.ml:494:17>>*/ return 0;
+          /*<<map.ml:493:23>>*/ if(! param)
+           /*<<map.ml:494:17>>*/ return 0 /*<<map.ml:494:17>>*/ ;
          var
           r = param[4],
           l = param[1],
@@ -12968,7 +13188,8 @@
         function bindings_aux(accu, param){
          var accu$0 = accu, param$0 = param;
          for(;;){
-          if(! param$0)  /*<<map.ml:498:17>>*/ return accu$0;
+          if(! param$0)
+            /*<<map.ml:498:17>>*/ return accu$0 /*<<map.ml:498:17>>*/ ;
           var
            r = param$0[4],
            d = param$0[3],
@@ -12981,33 +13202,34 @@
          }
         }
         function bindings(s){
-          /*<<map.ml:502:6>>*/ return bindings_aux(0, s);
+          /*<<map.ml:502:6>>*/ return bindings_aux(0, s) /*<<map.ml:502:23>>*/ ;
          /*<<map.ml:502:23>>*/ }
         function of_list(bs){
           /*<<map.ml:509:21>>*/ return  /*<<map.ml:509:21>>*/ caml_call3
                   /*<<map.ml:509:21>>*/ (Stdlib_List[26],
                   function(m, param){
                    var v = param[2], k = param[1];
-                    /*<<map.ml:509:53>>*/ return add(k, v, m);
+                    /*<<map.ml:509:53>>*/ return add(k, v, m) /*<<map.ml:509:63>>*/ ;
                    /*<<map.ml:509:63>>*/ },
                   empty,
-                  bs);
+                  bs) /*<<map.ml:509:72>>*/ ;
          /*<<map.ml:509:72>>*/ }
         function add_seq(i, m){
           /*<<map.ml:512:6>>*/ return  /*<<map.ml:512:6>>*/ caml_call3
                   /*<<map.ml:512:6>>*/ (Stdlib_Seq[5],
                   function(m, param){
                    var v = param[2], k = param[1];
-                    /*<<map.ml:512:36>>*/ return add(k, v, m);
+                    /*<<map.ml:512:36>>*/ return add(k, v, m) /*<<map.ml:512:46>>*/ ;
                    /*<<map.ml:512:46>>*/ },
                   m,
-                  i);
+                  i) /*<<map.ml:512:50>>*/ ;
          /*<<map.ml:512:50>>*/ }
         function of_seq(i){
-          /*<<map.ml:514:19>>*/ return add_seq(i, empty);
+          /*<<map.ml:514:19>>*/ return add_seq(i, empty) /*<<map.ml:514:34>>*/ ;
          /*<<map.ml:514:34>>*/ }
         function seq_of_enum(c, param){
-          /*<<map.ml:516:32>>*/ if(! c)  /*<<map.ml:517:15>>*/ return 0;
+          /*<<map.ml:516:32>>*/ if(! c)
+           /*<<map.ml:517:15>>*/ return 0 /*<<map.ml:517:15>>*/ ;
          var
           rest = c[4],
           t = c[3],
@@ -13016,17 +13238,17 @@
           _m_ =  /*<<map.ml:518:59>>*/ cons_enum(t, rest);
           /*<<map.ml:518:29>>*/ return [0,
                  [0, k, v],
-                 function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}];
+                 function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}] /*<<map.ml:518:29>>*/ ;
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
          var _k_ =  /*<<map.ml:521:19>>*/ cons_enum(m, 0);
           /*<<map.ml:521:19>>*/ return function(_l_){
-           /*<<?>>*/ return seq_of_enum(_k_, _l_);};
+           /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:19>>*/ ;
          /*<<map.ml:521:36>>*/ }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<map.ml:524:6>>*/ for(;;){
-          if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
+          if(! s$0)  /*<<map.ml:525:17>>*/ return e$0 /*<<map.ml:525:17>>*/ ;
           var
            r = s$0[4],
            d = s$0[3],
@@ -13038,7 +13260,8 @@
          }
          /*<<map.ml:526:58>>*/ }
         function rev_seq_of_enum(c, param){
-          /*<<map.ml:528:36>>*/ if(! c)  /*<<map.ml:529:15>>*/ return 0;
+          /*<<map.ml:528:36>>*/ if(! c)
+           /*<<map.ml:529:15>>*/ return 0 /*<<map.ml:529:15>>*/ ;
          var
           rest = c[4],
           t = c[3],
@@ -13047,12 +13270,12 @@
           _i_ =  /*<<map.ml:531:44>>*/ snoc_enum(t, rest);
           /*<<map.ml:531:10>>*/ return [0,
                  [0, k, v],
-                 function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}];
+                 function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}] /*<<map.ml:531:10>>*/ ;
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
          var _g_ =  /*<<map.ml:534:23>>*/ snoc_enum(c, 0);
           /*<<map.ml:534:23>>*/ return function(_h_){
-           /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);};
+           /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);} /*<<map.ml:534:23>>*/ ;
          /*<<map.ml:534:40>>*/ }
         function to_seq_from(low, m){
          a:
@@ -13085,7 +13308,7 @@
           var _e_ = [0, v, d, r, c];
          }
           /*<<map.ml:546:19>>*/ return function(_f_){
-           /*<<?>>*/ return seq_of_enum(_e_, _f_);};
+           /*<<?>>*/ return seq_of_enum(_e_, _f_);} /*<<map.ml:546:19>>*/ ;
          /*<<map.ml:546:34>>*/ }
         return [0,
                 empty,
@@ -13170,7 +13393,7 @@
        "Stdlib.Stack.Empty",
        runtime.caml_fresh_oo_id(0)];
    function create(param){
-     /*<<stack.ml:20:16>>*/ return [0, 0, 0];
+     /*<<stack.ml:20:16>>*/ return [0, 0, 0] /*<<stack.ml:20:16>>*/ ;
     /*<<stack.ml:20:36>>*/ }
    function clear(s){
      /*<<stack.ml:22:14>>*/ s[1] = 0;
@@ -13178,7 +13401,7 @@
     return 0;
     /*<<stack.ml:22:35>>*/ }
    function copy(s){
-     /*<<stack.ml:24:13>>*/ return [0, s[1], s[2]];
+     /*<<stack.ml:24:13>>*/ return [0, s[1], s[2]] /*<<stack.ml:24:13>>*/ ;
     /*<<stack.ml:24:38>>*/ }
    function push(x, s){
      /*<<stack.ml:26:15>>*/ s[1] = [0, x, s[1]];
@@ -13193,15 +13416,15 @@
     var tl = match[2], hd = match[1];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
-     /*<<stack.ml:30:45>>*/ return hd;
+     /*<<stack.ml:30:45>>*/ return hd /*<<stack.ml:30:45>>*/ ;
     /*<<stack.ml:31:25>>*/ }
    function pop_opt(s){
     var match = s[1];
-    if(! match)  /*<<stack.ml:36:14>>*/ return 0;
+    if(! match)  /*<<stack.ml:36:14>>*/ return 0 /*<<stack.ml:36:14>>*/ ;
     var tl = match[2], hd = match[1];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
-     /*<<stack.ml:35:45>>*/ return [0, hd];
+     /*<<stack.ml:35:45>>*/ return [0, hd] /*<<stack.ml:35:45>>*/ ;
     /*<<stack.ml:36:18>>*/ }
    function drop(s){
     var match = s[1];
@@ -13219,13 +13442,13 @@
       /*<<stack.ml:46:13>>*/ throw  /*<<stack.ml:46:13>>*/ caml_maybe_attach_backtrace
              /*<<stack.ml:46:13>>*/ (Empty, 1);
     var hd = match[1];
-     /*<<stack.ml:45:13>>*/ return hd;
+     /*<<stack.ml:45:13>>*/ return hd /*<<stack.ml:45:13>>*/ ;
     /*<<stack.ml:46:24>>*/ }
    function top_opt(s){
     var match = s[1];
-    if(! match)  /*<<stack.ml:51:13>>*/ return 0;
+    if(! match)  /*<<stack.ml:51:13>>*/ return 0 /*<<stack.ml:51:13>>*/ ;
     var hd = match[1];
-     /*<<stack.ml:50:13>>*/ return [0, hd];
+     /*<<stack.ml:50:13>>*/ return [0, hd] /*<<stack.ml:50:13>>*/ ;
     /*<<stack.ml:51:17>>*/ }
    function is_empty(s){
      /*<<stack.ml:53:17>>*/ return 0 === s[1] ? 1 : 0;
@@ -13234,26 +13457,26 @@
      /*<<stack.ml:55:15>>*/ return s[2];
     /*<<stack.ml:55:20>>*/ }
    function iter(f, s){
-     /*<<stack.ml:57:15>>*/ return caml_call2(Stdlib_List[18], f, s[1]);
+     /*<<stack.ml:57:15>>*/ return caml_call2(Stdlib_List[18], f, s[1]) /*<<stack.ml:57:30>>*/ ;
     /*<<stack.ml:57:30>>*/ }
    function fold(f, acc, s){
-     /*<<stack.ml:59:19>>*/ return caml_call3(Stdlib_List[26], f, acc, s[1]);
+     /*<<stack.ml:59:19>>*/ return caml_call3(Stdlib_List[26], f, acc, s[1]) /*<<stack.ml:59:43>>*/ ;
     /*<<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[64], s[1]) /*<<stack.ml:63:30>>*/ ;
     /*<<stack.ml:63:30>>*/ }
    function add_seq(q, i){
      /*<<stack.ml:65:18>>*/ return  /*<<stack.ml:65:18>>*/ caml_call2
              /*<<stack.ml:65:18>>*/ (Stdlib_Seq[4],
              function(x){
-               /*<<stack.ml:65:37>>*/ return push(x, q);
+               /*<<stack.ml:65:37>>*/ return push(x, q) /*<<stack.ml:65:45>>*/ ;
               /*<<stack.ml:65:45>>*/ },
-             i);
+             i) /*<<stack.ml:65:48>>*/ ;
     /*<<stack.ml:65:48>>*/ }
    function of_seq(g){
     var s =  /*<<stack.ml:68:10>>*/ create(0);
      /*<<stack.ml:69:2>>*/ add_seq(s, g);
-     /*<<stack.ml:69:2>>*/ return s;
+     /*<<stack.ml:69:2>>*/ return s /*<<stack.ml:69:2>>*/ ;
     /*<<stack.ml:70:3>>*/ }
    var
     Stdlib_Stack =
@@ -13307,7 +13530,7 @@
        "Stdlib.Queue.Empty",
        runtime.caml_fresh_oo_id(0)];
    function create(param){
-     /*<<queue.ml:29:16>>*/ return [0, 0, 0, 0];
+     /*<<queue.ml:29:16>>*/ return [0, 0, 0, 0] /*<<queue.ml:29:16>>*/ ;
     /*<<queue.ml:33:1>>*/ }
    function clear(q){
      /*<<queue.ml:36:2>>*/ q[1] = 0;
@@ -13321,7 +13544,7 @@
      match =  /*<<queue.ml:45:2>>*/ q[3];
     return match
             ? (q[1] = q[1] + 1 | 0, match[2] = cell, q[3] = cell, 0)
-            : (q[1] = 1, q[2] = cell, q[3] = cell, 0);
+            : (q[1] = 1, q[2] = cell, q[3] = cell, 0) /*<<queue.ml:53:18>>*/ ;
     /*<<queue.ml:53:18>>*/ }
    function peek(q){
     var match = q[2];
@@ -13329,13 +13552,13 @@
       /*<<queue.ml:60:11>>*/ throw  /*<<queue.ml:60:11>>*/ caml_maybe_attach_backtrace
              /*<<queue.ml:60:11>>*/ (Empty, 1);
     var content = match[1];
-     /*<<queue.ml:61:24>>*/ return content;
+     /*<<queue.ml:61:24>>*/ return content /*<<queue.ml:61:24>>*/ ;
     /*<<queue.ml:61:31>>*/ }
    function peek_opt(q){
     var match = q[2];
-    if(! match)  /*<<queue.ml:65:11>>*/ return 0;
+    if(! match)  /*<<queue.ml:65:11>>*/ return 0 /*<<queue.ml:65:11>>*/ ;
     var content = match[1];
-     /*<<queue.ml:66:24>>*/ return [0, content];
+     /*<<queue.ml:66:24>>*/ return [0, content] /*<<queue.ml:66:24>>*/ ;
     /*<<queue.ml:66:36>>*/ }
    function take(q){
     var _f_ = q[2];
@@ -13347,23 +13570,23 @@
      var next = _f_[2];
      q[1] = q[1] - 1 | 0;
      q[2] = next;
-      /*<<queue.ml:80:4>>*/ return content;
+      /*<<queue.ml:80:4>>*/ return content /*<<queue.ml:80:4>>*/ ;
     }
      /*<<queue.ml:75:4>>*/ clear(q);
-     /*<<queue.ml:75:4>>*/ return content;
+     /*<<queue.ml:75:4>>*/ return content /*<<queue.ml:75:4>>*/ ;
     /*<<queue.ml:80:11>>*/ }
    function take_opt(q){
     var _e_ = q[2];
-    if(! _e_)  /*<<queue.ml:84:11>>*/ return 0;
+    if(! _e_)  /*<<queue.ml:84:11>>*/ return 0 /*<<queue.ml:84:11>>*/ ;
     var content = _e_[1];
     if(_e_[2]){
      var next = _e_[2];
      q[1] = q[1] - 1 | 0;
      q[2] = next;
-      /*<<queue.ml:91:4>>*/ return [0, content];
+      /*<<queue.ml:91:4>>*/ return [0, content] /*<<queue.ml:91:4>>*/ ;
     }
      /*<<queue.ml:86:4>>*/ clear(q);
-     /*<<queue.ml:87:4>>*/ return [0, content];
+     /*<<queue.ml:87:4>>*/ return [0, content] /*<<queue.ml:87:4>>*/ ;
     /*<<queue.ml:91:16>>*/ }
    function copy(q){
     var
@@ -13372,7 +13595,10 @@
      prev = 0,
      cell = cell$0;
      /*<<queue.ml:98:4>>*/ for(;;){
-     if(! cell){q_res[3] = prev;  /*<<queue.ml:99:33>>*/ return q_res;}
+     if(! cell){
+      q_res[3] = prev;
+       /*<<queue.ml:99:33>>*/ return q_res /*<<queue.ml:99:33>>*/ ;
+     }
      var
       content = cell[1],
       next = cell[2],
@@ -13394,7 +13620,7 @@
    function iter(f, q){
     var cell$0 = q[2], cell = cell$0;
      /*<<queue.ml:118:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
+     if(! cell)  /*<<queue.ml:119:13>>*/ return 0 /*<<queue.ml:119:13>>*/ ;
      var content = cell[1], next = cell[2];
       /*<<queue.ml:121:6>>*/  /*<<queue.ml:121:6>>*/ caml_call1
        /*<<queue.ml:121:6>>*/ (f, content);
@@ -13404,7 +13630,7 @@
    function fold(f, accu$1, q){
     var cell$0 = q[2], accu = accu$1, cell = cell$0;
      /*<<queue.ml:128:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:129:13>>*/ return accu;
+     if(! cell)  /*<<queue.ml:129:13>>*/ return accu /*<<queue.ml:129:13>>*/ ;
      var
       content = cell[1],
       next = cell[2],
@@ -13426,32 +13652,33 @@
               match[2] = q1[2],
               q2[3] = q1[3],
               clear(q1))
-            : (q2[1] = q1[1], q2[2] = q1[2], 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:148:14>>*/ }
    function to_seq(q){
     function aux(c, param){
-      /*<<queue.ml:153:21>>*/ if(! c)  /*<<queue.ml:154:13>>*/ return 0;
+      /*<<queue.ml:153:21>>*/ if(! c)
+       /*<<queue.ml:154:13>>*/ return 0 /*<<queue.ml:154:13>>*/ ;
      var x = c[1], next = c[2];
       /*<<queue.ml:155:35>>*/ return [0,
              x,
-             function(_c_){ /*<<?>>*/ return aux(next, _c_);}];
+             function(_c_){ /*<<?>>*/ return aux(next, _c_);}] /*<<queue.ml:155:35>>*/ ;
      /*<<queue.ml:155:57>>*/ }
     var _a_ = q[2];
      /*<<queue.ml:153:2>>*/ return function(_b_){
-      /*<<?>>*/ return aux(_a_, _b_);};
+      /*<<?>>*/ return aux(_a_, _b_);} /*<<queue.ml:153:2>>*/ ;
     /*<<queue.ml:157:13>>*/ }
    function add_seq(q, i){
      /*<<queue.ml:159:18>>*/ return  /*<<queue.ml:159:18>>*/ caml_call2
              /*<<queue.ml:159:18>>*/ (Stdlib_Seq[4],
              function(x){
-               /*<<queue.ml:159:37>>*/ return add(x, q);
+               /*<<queue.ml:159:37>>*/ return add(x, q) /*<<queue.ml:159:45>>*/ ;
               /*<<queue.ml:159:45>>*/ },
-             i);
+             i) /*<<queue.ml:159:48>>*/ ;
     /*<<queue.ml:159:48>>*/ }
    function of_seq(g){
     var q =  /*<<queue.ml:162:10>>*/ create(0);
      /*<<queue.ml:163:2>>*/ add_seq(q, g);
-     /*<<queue.ml:163:2>>*/ return q;
+     /*<<queue.ml:163:2>>*/ return q /*<<queue.ml:163:2>>*/ ;
     /*<<queue.ml:164:3>>*/ }
    var
     Stdlib_Queue =
@@ -13550,23 +13777,23 @@
      s =
         /*<<buffer.ml:43:9>>*/  /*<<buffer.ml:43:9>>*/ caml_create_bytes
          /*<<buffer.ml:43:9>>*/ (n$1);
-     /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s];
+     /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s] /*<<buffer.ml:44:1>>*/ ;
     /*<<buffer.ml:44:71>>*/ }
    function contents(b){
      /*<<buffer.ml:46:17>>*/ return caml_call3
-            (Stdlib_Bytes[8], b[1][1], 0, b[2]);
+            (Stdlib_Bytes[8], b[1][1], 0, b[2]) /*<<buffer.ml:46:61>>*/ ;
     /*<<buffer.ml:46:61>>*/ }
    function to_bytes(b){
      /*<<buffer.ml:47:17>>*/ return caml_call3
-            (Stdlib_Bytes[7], b[1][1], 0, b[2]);
+            (Stdlib_Bytes[7], b[1][1], 0, b[2]) /*<<buffer.ml:47:54>>*/ ;
     /*<<buffer.ml:47:54>>*/ }
    function sub(b, ofs, len){
      /*<<buffer.ml:50:2>>*/ if
      (0 <= ofs && 0 <= len && (b[2] - len | 0) >= ofs)
       /*<<buffer.ml:52:7>>*/ return  /*<<buffer.ml:52:7>>*/ caml_call3
-              /*<<buffer.ml:52:7>>*/ (Stdlib_Bytes[8], b[1][1], ofs, len);
+              /*<<buffer.ml:52:7>>*/ (Stdlib_Bytes[8], b[1][1], ofs, len) /*<<buffer.ml:52:46>>*/ ;
      /*<<buffer.ml:51:7>>*/ return  /*<<buffer.ml:51:7>>*/ caml_call1
-             /*<<buffer.ml:51:7>>*/ (Stdlib[1], cst_Buffer_sub);
+             /*<<buffer.ml:51:7>>*/ (Stdlib[1], cst_Buffer_sub) /*<<buffer.ml:52:46>>*/ ;
     /*<<buffer.ml:52:46>>*/ }
    function blit(src, srcoff, dst, dstoff, len){
      /*<<buffer.ml:56:2>>*/ if
@@ -13582,9 +13809,9 @@
               srcoff,
               dst,
               dstoff,
-              len);
+              len) /*<<buffer.ml:60:53>>*/ ;
      /*<<buffer.ml:58:7>>*/ return  /*<<buffer.ml:58:7>>*/ caml_call1
-             /*<<buffer.ml:58:7>>*/ (Stdlib[1], cst_Buffer_blit);
+             /*<<buffer.ml:58:7>>*/ (Stdlib[1], cst_Buffer_blit) /*<<buffer.ml:60:53>>*/ ;
     /*<<buffer.ml:60:53>>*/ }
    function nth(b, ofs){
     var
@@ -13594,9 +13821,9 @@
      buffer = match[1];
      /*<<buffer.ml:66:2>>*/ if
      (0 <= ofs && position > ofs && length >= position)
-     return runtime.caml_bytes_unsafe_get(buffer, ofs);
+     return runtime.caml_bytes_unsafe_get(buffer, ofs) /*<<buffer.ml:68:34>>*/ ;
      /*<<buffer.ml:67:3>>*/ return  /*<<buffer.ml:67:3>>*/ caml_call1
-             /*<<buffer.ml:67:3>>*/ (Stdlib[1], cst_Buffer_nth);
+             /*<<buffer.ml:67:3>>*/ (Stdlib[1], cst_Buffer_nth) /*<<buffer.ml:68:34>>*/ ;
     /*<<buffer.ml:68:34>>*/ }
    function length(b){
      /*<<buffer.ml:71:15>>*/ return b[2];
@@ -13740,7 +13967,7 @@
               /*<<buffer.ml:163:18>>*/ caml_call1
                /*<<buffer.ml:163:18>>*/ (Stdlib_Bytes[44], s),
              offset,
-             len);
+             len) /*<<buffer.ml:163:55>>*/ ;
     /*<<buffer.ml:163:55>>*/ }
    function add_string(b, s){
     var
@@ -13765,10 +13992,10 @@
      /*<<buffer.ml:177:20>>*/ return add_string
             (b,
               /*<<buffer.ml:177:33>>*/ caml_call1
-               /*<<buffer.ml:177:33>>*/ (Stdlib_Bytes[44], s));
+               /*<<buffer.ml:177:33>>*/ (Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
     /*<<buffer.ml:177:59>>*/ }
    function add_buffer(b, bs){
-     /*<<buffer.ml:180:2>>*/ return add_subbytes(b, bs[1][1], 0, bs[2]);
+     /*<<buffer.ml:180:2>>*/ return add_subbytes(b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
     /*<<buffer.ml:180:46>>*/ }
    function add_channel(b, ic, to_read$1){
     var
@@ -13806,19 +14033,19 @@
      if(already_read < to_read$1)
        /*<<buffer.ml:211:18>>*/ throw  /*<<buffer.ml:211:18>>*/ caml_maybe_attach_backtrace
               /*<<buffer.ml:211:18>>*/ (Stdlib[12], 1);
-      /*<<buffer.ml:212:2>>*/ return 0;
+      /*<<buffer.ml:212:2>>*/ return 0 /*<<buffer.ml:212:2>>*/ ;
     }
     /*<<buffer.ml:212:4>>*/ }
    function output_buffer(oc, b){
      /*<<buffer.ml:215:2>>*/ return caml_call4
-            (Stdlib[68], oc, b[1][1], 0, b[2]);
+            (Stdlib[68], oc, b[1][1], 0, b[2]) /*<<buffer.ml:215:39>>*/ ;
     /*<<buffer.ml:215:39>>*/ }
    function add_substitute(b, f, s){
     var lim$1 = caml_ml_string_length(s), previous = 32, i$4 = 0;
      /*<<buffer.ml:263:4>>*/ for(;;){
      if(i$4 >= lim$1){
       var _o_ = 92 === previous ? 1 : 0;
-      return _o_ ? add_char(b, previous) : _o_;
+      return _o_ ? add_char(b, previous) : _o_ /*<<buffer.ml:284:13>>*/ ;
      }
      var
       previous$0 =
@@ -13964,12 +14191,12 @@
    function truncate(b, len){
      /*<<buffer.ml:287:4>>*/ if(0 <= len && b[2] >= len){b[2] = len; return 0;}
      /*<<buffer.ml:288:6>>*/ return  /*<<buffer.ml:288:6>>*/ caml_call1
-             /*<<buffer.ml:288:6>>*/ (Stdlib[1], cst_Buffer_truncate);
+             /*<<buffer.ml:288:6>>*/ (Stdlib[1], cst_Buffer_truncate) /*<<buffer.ml:290:23>>*/ ;
     /*<<buffer.ml:290:23>>*/ }
    function to_seq(b){
     function aux(i, param){
       /*<<buffer.ml:297:4>>*/ if(b[2] <= i)
-       /*<<buffer.ml:297:28>>*/ return 0;
+       /*<<buffer.ml:297:28>>*/ return 0 /*<<buffer.ml:297:28>>*/ ;
      var
       x =
          /*<<buffer.ml:299:14>>*/  /*<<buffer.ml:299:14>>*/ caml_bytes_get
@@ -13977,16 +14204,16 @@
       _l_ =  /*<<buffer.ml:299:14>>*/ i + 1 | 0;
       /*<<buffer.ml:300:6>>*/ return [0,
              x,
-             function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}];
+             function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:6>>*/ ;
      /*<<buffer.ml:300:29>>*/ }
     var _j_ =  /*<<buffer.ml:302:2>>*/ 0;
      /*<<buffer.ml:302:2>>*/ return function(_k_){
-      /*<<?>>*/ return aux(_j_, _k_);};
+      /*<<?>>*/ return aux(_j_, _k_);} /*<<buffer.ml:302:2>>*/ ;
     /*<<buffer.ml:302:7>>*/ }
    function to_seqi(b){
     function aux(i, param){
       /*<<buffer.ml:307:4>>*/ if(b[2] <= i)
-       /*<<buffer.ml:307:28>>*/ return 0;
+       /*<<buffer.ml:307:28>>*/ return 0 /*<<buffer.ml:307:28>>*/ ;
      var
       x =
          /*<<buffer.ml:309:14>>*/  /*<<buffer.ml:309:14>>*/ caml_bytes_get
@@ -13994,22 +14221,22 @@
       _h_ =  /*<<buffer.ml:309:14>>*/ i + 1 | 0;
       /*<<buffer.ml:310:6>>*/ return [0,
              [0, i, x],
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}];
+             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:6>>*/ ;
      /*<<buffer.ml:310:33>>*/ }
     var _f_ =  /*<<buffer.ml:312:2>>*/ 0;
      /*<<buffer.ml:312:2>>*/ return function(_g_){
-      /*<<?>>*/ return aux(_f_, _g_);};
+      /*<<?>>*/ return aux(_f_, _g_);} /*<<buffer.ml:312:2>>*/ ;
     /*<<buffer.ml:312:7>>*/ }
    function add_seq(b, seq){
      /*<<buffer.ml:314:20>>*/ return  /*<<buffer.ml:314:20>>*/ caml_call2
              /*<<buffer.ml:314:20>>*/ (Stdlib_Seq[4],
              function(_e_){ /*<<?>>*/ return add_char(b, _e_);},
-             seq);
+             seq) /*<<buffer.ml:314:45>>*/ ;
     /*<<buffer.ml:314:45>>*/ }
    function of_seq(i){
     var b =  /*<<buffer.ml:317:10>>*/ create(32);
      /*<<buffer.ml:318:2>>*/ add_seq(b, i);
-     /*<<buffer.ml:318:2>>*/ return b;
+     /*<<buffer.ml:318:2>>*/ return b /*<<buffer.ml:318:2>>*/ ;
     /*<<buffer.ml:319:3>>*/ }
    function add_int8(b, x){
     var
@@ -14084,11 +14311,11 @@
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
     var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
-    return add_int16_ne(b, _d_);
+    return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
     /*<<buffer.ml:382:57>>*/ }
    function add_int16_be(b, x){
     var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
-     /*<<buffer.ml:385:41>>*/ return add_int16_ne(b, x$0);
+     /*<<buffer.ml:385:41>>*/ return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
     /*<<buffer.ml:385:57>>*/ }
    function add_int32_le(b, x){
     var
@@ -14097,7 +14324,7 @@
         ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap
            /*<<buffer.ml:388:41>>*/ (x)
         : x;
-     /*<<buffer.ml:388:41>>*/ return add_int32_ne(b, _c_);
+     /*<<buffer.ml:388:41>>*/ return add_int32_ne(b, _c_) /*<<buffer.ml:388:57>>*/ ;
     /*<<buffer.ml:388:57>>*/ }
    function add_int32_be(b, x){
     var
@@ -14106,7 +14333,7 @@
         ? x
         :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap
            /*<<buffer.ml:391:48>>*/ (x);
-     /*<<buffer.ml:391:48>>*/ return add_int32_ne(b, x$0);
+     /*<<buffer.ml:391:48>>*/ return add_int32_ne(b, x$0) /*<<buffer.ml:391:57>>*/ ;
     /*<<buffer.ml:391:57>>*/ }
    function add_int64_le(b, x){
     var
@@ -14115,7 +14342,7 @@
         ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap
            /*<<buffer.ml:394:41>>*/ (x)
         : x;
-     /*<<buffer.ml:394:41>>*/ return add_int64_ne(b, _b_);
+     /*<<buffer.ml:394:41>>*/ return add_int64_ne(b, _b_) /*<<buffer.ml:394:57>>*/ ;
     /*<<buffer.ml:394:57>>*/ }
    function add_int64_be(b, x){
     var
@@ -14124,7 +14351,7 @@
         ? x
         :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap
            /*<<buffer.ml:397:48>>*/ (x);
-     /*<<buffer.ml:397:48>>*/ return add_int64_ne(b, x$0);
+     /*<<buffer.ml:397:48>>*/ return add_int64_ne(b, x$0) /*<<buffer.ml:397:57>>*/ ;
     /*<<buffer.ml:397:57>>*/ }
    var
     Stdlib_Buffer =
@@ -14207,7 +14434,7 @@
     }
      /*<<mutex.ml:30:4>>*/  /*<<mutex.ml:30:4>>*/ caml_ml_mutex_unlock
       /*<<mutex.ml:30:4>>*/ (m);
-     /*<<mutex.ml:30:4>>*/ return x;
+     /*<<mutex.ml:30:4>>*/ return x /*<<mutex.ml:30:4>>*/ ;
     /*<<mutex.ml:34:13>>*/ }
    var
     Stdlib_Mutex =
@@ -14277,7 +14504,7 @@
              /*<<semaphore.ml:30:10>>*/ caml_call1
               /*<<semaphore.ml:30:10>>*/ (Stdlib_Mutex[1], 0),
             v,
-            _c_];
+            _c_] /*<<semaphore.ml:30:2>>*/ ;
     /*<<semaphore.ml:30:59>>*/ }
    function release(s){
      /*<<semaphore.ml:33:2>>*/  /*<<semaphore.ml:33:2>>*/ caml_call1
@@ -14286,7 +14513,7 @@
      s[2] = s[2] + 1 | 0;
       /*<<semaphore.ml:36:4>>*/  /*<<semaphore.ml:36:4>>*/ caml_call1
        /*<<semaphore.ml:36:4>>*/ (Stdlib_Condition[3], s[3]);
-     return caml_call1(Stdlib_Mutex[4], s[1]);
+     return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:41:5>>*/ ;
     }
      /*<<semaphore.ml:39:4>>*/  /*<<semaphore.ml:39:4>>*/ caml_call1
       /*<<semaphore.ml:39:4>>*/ (Stdlib_Mutex[4], s[1]);
@@ -14302,7 +14529,7 @@
      /*<<semaphore.ml:45:19>>*/ for(;;){
      if(0 !== s[2]){
       s[2] = s[2] - 1 | 0;
-      return caml_call1(Stdlib_Mutex[4], s[1]);
+      return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:47:20>>*/ ;
      }
       /*<<semaphore.ml:45:19>>*/  /*<<semaphore.ml:45:19>>*/ caml_call2
        /*<<semaphore.ml:45:19>>*/ (Stdlib_Condition[2], s[3], s[1]);
@@ -14314,7 +14541,7 @@
     var ret = 0 === s[2] ? 0 : (s[2] = s[2] - 1 | 0, 1);
      /*<<semaphore.ml:52:2>>*/  /*<<semaphore.ml:52:2>>*/ caml_call1
       /*<<semaphore.ml:52:2>>*/ (Stdlib_Mutex[4], s[1]);
-     /*<<semaphore.ml:52:2>>*/ return ret;
+     /*<<semaphore.ml:52:2>>*/ return ret /*<<semaphore.ml:52:2>>*/ ;
     /*<<semaphore.ml:53:5>>*/ }
    function get_value(s){
      /*<<semaphore.ml:55:18>>*/ return s[2];
@@ -14337,7 +14564,7 @@
              /*<<semaphore.ml:64:10>>*/ caml_call1
               /*<<semaphore.ml:64:10>>*/ (Stdlib_Mutex[1], 0),
             _b_,
-            _a_];
+            _a_] /*<<semaphore.ml:64:2>>*/ ;
     /*<<semaphore.ml:66:34>>*/ }
    function release$0(s){
      /*<<semaphore.ml:69:2>>*/  /*<<semaphore.ml:69:2>>*/ caml_call1
@@ -14345,13 +14572,16 @@
     s[2] = 1;
      /*<<semaphore.ml:71:2>>*/  /*<<semaphore.ml:71:2>>*/ caml_call1
       /*<<semaphore.ml:71:2>>*/ (Stdlib_Condition[3], s[3]);
-    return caml_call1(Stdlib_Mutex[4], s[1]);
+    return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:72:20>>*/ ;
     /*<<semaphore.ml:72:20>>*/ }
    function acquire$0(s){
      /*<<semaphore.ml:75:2>>*/  /*<<semaphore.ml:75:2>>*/ caml_call1
       /*<<semaphore.ml:75:2>>*/ (Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:76:19>>*/ for(;;){
-     if(0 !== s[2]){s[2] = 0; return caml_call1(Stdlib_Mutex[4], s[1]);}
+     if(0 !== s[2]){
+      s[2] = 0;
+      return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:78:20>>*/ ;
+     }
       /*<<semaphore.ml:76:19>>*/  /*<<semaphore.ml:76:19>>*/ caml_call2
        /*<<semaphore.ml:76:19>>*/ (Stdlib_Condition[2], s[3], s[1]);
     }
@@ -14362,7 +14592,7 @@
     var ret = 0 === s[2] ? 0 : (s[2] = 0, 1);
      /*<<semaphore.ml:83:2>>*/  /*<<semaphore.ml:83:2>>*/ caml_call1
       /*<<semaphore.ml:83:2>>*/ (Stdlib_Mutex[4], s[1]);
-     /*<<semaphore.ml:83:2>>*/ return ret;
+     /*<<semaphore.ml:83:2>>*/ return ret /*<<semaphore.ml:83:2>>*/ ;
     /*<<semaphore.ml:84:5>>*/ }
    var
     Binary =
@@ -14423,7 +14653,7 @@
     Assert_failure = global_data.Assert_failure;
    function cpu_relax(param){
      /*<<domain.ml:47:19>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
-             /*<<domain.ml:47:19>>*/ (0);
+             /*<<domain.ml:47:19>>*/ (0) /*<<domain.ml:47:35>>*/ ;
     /*<<domain.ml:47:35>>*/ }
    var none =  /*<<domain.ml:72:24>>*/ [0, 0];
    function create_dls(param){
@@ -14470,14 +14700,15 @@
        break;
      }
     }
-     /*<<domain.ml:115:4>>*/ return k;
+     /*<<domain.ml:115:4>>*/ return k /*<<domain.ml:115:4>>*/ ;
     /*<<domain.ml:115:5>>*/ }
    function maybe_grow(idx){
      /*<<domain.ml:120:4>>*/ for(;;){
      var
       st = caml_domain_dls_get(0),
       sz =  /*<<domain.ml:121:4>>*/ st.length - 1;
-     if(idx < sz)  /*<<domain.ml:122:21>>*/ return st;
+     if(idx < sz)
+       /*<<domain.ml:122:21>>*/ return st /*<<domain.ml:122:21>>*/ ;
      var new_sz = sz;
       /*<<domain.ml:125:8>>*/ for(;;){
       if(idx < new_sz) break;
@@ -14493,13 +14724,13 @@
       /*<<domain.ml:136:9>>*/ if
       ( /*<<domain.ml:136:9>>*/ runtime.caml_domain_dls_compare_and_set
          /*<<domain.ml:136:9>>*/ (st, new_st))
-       /*<<domain.ml:137:11>>*/ return new_st;
+       /*<<domain.ml:137:11>>*/ return new_st /*<<domain.ml:137:11>>*/ ;
     }
     /*<<domain.ml:139:7>>*/ }
    function set(param, x){
     var idx = param[1], st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
-     /*<<domain.ml:146:4>>*/ return 0;
+     /*<<domain.ml:146:4>>*/ return 0 /*<<domain.ml:146:4>>*/ ;
    }
    function get(param){
     var
@@ -14508,7 +14739,7 @@
      st =  /*<<domain.ml:159:13>>*/ maybe_grow(idx),
      oldval =  /*<<domain.ml:160:14>>*/ caml_check_bound(st, idx)[1 + idx];
      /*<<domain.ml:161:7>>*/ if(oldval !== none)
-      /*<<domain.ml:75:25>>*/ return oldval;
+      /*<<domain.ml:75:25>>*/ return oldval /*<<domain.ml:75:25>>*/ ;
     var
      new_obj =
         /*<<domain.ml:164:18>>*/  /*<<domain.ml:164:18>>*/ caml_call1
@@ -14518,22 +14749,23 @@
          /*<<domain.ml:175:6>>*/ (0),
      curval =  /*<<domain.ml:152:17>>*/ caml_check_bound(st$0, idx)[1 + idx],
      _e_ = curval === oldval ? (st$0[1 + idx] = new_obj, 1) : 0;
-     /*<<domain.ml:176:9>>*/ if(_e_)  /*<<domain.ml:177:11>>*/ return new_obj;
+     /*<<domain.ml:176:9>>*/ if(_e_)
+      /*<<domain.ml:177:11>>*/ return new_obj /*<<domain.ml:177:11>>*/ ;
     var
      updated_obj =
         /*<<domain.ml:181:26>>*/ caml_check_bound(st$0, idx)[1 + idx];
      /*<<domain.ml:182:11>>*/ if(updated_obj !== none)
-      /*<<domain.ml:75:25>>*/ return updated_obj;
+      /*<<domain.ml:75:25>>*/ return updated_obj /*<<domain.ml:75:25>>*/ ;
      /*<<domain.ml:184:13>>*/ throw  /*<<domain.ml:184:13>>*/ caml_maybe_attach_backtrace
             /*<<domain.ml:184:13>>*/ ([0, Assert_failure, _a_], 1);
    }
    function get_id(param){
     var domain = param[1];
-     /*<<domain.ml:201:27>>*/ return domain;
+     /*<<domain.ml:201:27>>*/ return domain /*<<domain.ml:201:27>>*/ ;
    }
    function self(param){
      /*<<domain.ml:203:14>>*/ return  /*<<domain.ml:203:14>>*/ caml_ml_domain_id
-             /*<<domain.ml:203:14>>*/ (0);
+             /*<<domain.ml:203:14>>*/ (0) /*<<domain.ml:203:25>>*/ ;
     /*<<domain.ml:203:25>>*/ }
    function is_main_domain(param){
      /*<<domain.ml:205:24>>*/ return 0
@@ -14565,7 +14797,7 @@
       /*<<domain.ml:219:19>>*/  /*<<domain.ml:219:19>>*/ caml_call1
        /*<<domain.ml:219:19>>*/ (old_f, 0);
       /*<<domain.ml:219:19>>*/ return  /*<<domain.ml:219:19>>*/ caml_call1
-              /*<<domain.ml:219:19>>*/ (f, 0);
+              /*<<domain.ml:219:19>>*/ (f, 0) /*<<domain.ml:219:33>>*/ ;
      /*<<domain.ml:219:33>>*/ }
     first_spawn_function[1] = new_f;
     return 0;
@@ -14576,7 +14808,7 @@
        (0,
         function(param){
           /*<<domain.ml:231:41>>*/ return function(param){
-           /*<<domain.ml:231:52>>*/ return 0; /*<<domain.ml:231:54>>*/ };
+           /*<<domain.ml:231:52>>*/ return 0 /*<<domain.ml:231:52>>*/ ; /*<<domain.ml:231:54>>*/ } /*<<domain.ml:231:41>>*/ ;
          /*<<domain.ml:231:55>>*/ });
    function at_exit(f){
     var old_exit =  /*<<domain.ml:234:32>>*/ get(at_exit_key);
@@ -14584,14 +14816,14 @@
       /*<<domain.ml:236:4>>*/  /*<<domain.ml:236:4>>*/ caml_call1
        /*<<domain.ml:236:4>>*/ (f, 0);
       /*<<domain.ml:236:4>>*/ return  /*<<domain.ml:236:4>>*/ caml_call1
-              /*<<domain.ml:236:4>>*/ (old_exit, 0);
+              /*<<domain.ml:236:4>>*/ (old_exit, 0) /*<<domain.ml:236:21>>*/ ;
      /*<<domain.ml:236:21>>*/ }
-     /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit);
+     /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit) /*<<domain.ml:238:30>>*/ ;
     /*<<domain.ml:238:30>>*/ }
    function do_at_exit(param){
     var f =  /*<<domain.ml:241:25>>*/ get(at_exit_key);
      /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1
-             /*<<domain.ml:242:2>>*/ (f, 0);
+             /*<<domain.ml:242:2>>*/ (f, 0) /*<<domain.ml:242:6>>*/ ;
     /*<<domain.ml:242:6>>*/ }
    Stdlib[104][1] = do_at_exit;
    function spawn(f){
@@ -14606,7 +14838,7 @@
        /*<<domain.ml:226:4>>*/ (first_spawn_function[1], 0);
      first_spawn_function[1] =
       function(param){
-        /*<<domain.ml:228:39>>*/ return 0;
+        /*<<domain.ml:228:39>>*/ return 0 /*<<domain.ml:228:39>>*/ ;
        /*<<domain.ml:228:41>>*/ };
     }
     var
@@ -14621,7 +14853,7 @@
            /*<<domain.ml:192:30>>*/ return [0,
                   k,
                    /*<<domain.ml:192:37>>*/ caml_call1
-                    /*<<domain.ml:192:37>>*/ (split, get(k))];
+                    /*<<domain.ml:192:37>>*/ (split, get(k))] /*<<domain.ml:192:30>>*/ ;
           /*<<domain.ml:192:54>>*/ },
          _b_),
      _c_ =
@@ -14640,7 +14872,7 @@
         /*<<domain.ml:196:4>>*/ (Stdlib_List[18],
         function(param){
          var v = param[2], k = param[1];
-          /*<<domain.ml:196:34>>*/ return set(k, v);
+          /*<<domain.ml:196:34>>*/ return set(k, v) /*<<domain.ml:196:42>>*/ ;
          /*<<domain.ml:196:42>>*/ },
         pk);
       var
@@ -14656,20 +14888,23 @@
               /*<<domain.ml:279:8>>*/ (exn, 0);
      }
       /*<<domain.ml:272:8>>*/ do_at_exit(0);
-      /*<<domain.ml:272:8>>*/ return res;
+      /*<<domain.ml:272:8>>*/ return res /*<<domain.ml:272:8>>*/ ;
      /*<<domain.ml:279:17>>*/ }
     var
      domain =
         /*<<domain.ml:281:15>>*/  /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn
          /*<<domain.ml:281:15>>*/ (body, term_sync);
-     /*<<domain.ml:282:2>>*/ return [0, domain, term_sync];
+     /*<<domain.ml:282:2>>*/ return [0, domain, term_sync] /*<<domain.ml:282:2>>*/ ;
     /*<<domain.ml:282:24>>*/ }
    function join(param){
     var term_sync = param[2];
     function loop(param){
       /*<<domain.ml:287:4>>*/ for(;;){
       var match = term_sync[1];
-      if(match){var res = match[1];  /*<<domain.ml:292:8>>*/ return res;}
+      if(match){
+       var res = match[1];
+        /*<<domain.ml:292:8>>*/ return res /*<<domain.ml:292:8>>*/ ;
+      }
        /*<<domain.ml:289:8>>*/  /*<<domain.ml:289:8>>*/ caml_call2
         /*<<domain.ml:289:8>>*/ (Stdlib_Condition[2],
         term_sync[3],
@@ -14680,7 +14915,10 @@
      match =
         /*<<domain.ml:294:8>>*/  /*<<domain.ml:294:8>>*/ caml_call2
          /*<<domain.ml:294:8>>*/ (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:295:12>>*/ return x /*<<domain.ml:295:12>>*/ ;
+    }
     var ex = match[1];
      /*<<domain.ml:296:16>>*/ throw  /*<<domain.ml:296:16>>*/ caml_maybe_attach_backtrace
             /*<<domain.ml:296:16>>*/ (ex, 1);
@@ -14858,7 +15096,7 @@
     _q_ = [0, cst_camlinternalFormat_ml, 831, 30];
    function create_char_set(param){
      /*<<camlinternalFormat.ml:24:25>>*/ return  /*<<camlinternalFormat.ml:24:25>>*/ caml_call2
-             /*<<camlinternalFormat.ml:24:25>>*/ (Stdlib_Bytes[1], 32, 0);
+             /*<<camlinternalFormat.ml:24:25>>*/ (Stdlib_Bytes[1], 32, 0) /*<<camlinternalFormat.ml:24:45>>*/ ;
     /*<<camlinternalFormat.ml:24:45>>*/ }
    function add_in_char_set(char_set, c){
     var
@@ -14872,11 +15110,11 @@
              /*<<camlinternalFormat.ml:30:2>>*/ (char_set,
              str_ind,
               /*<<camlinternalFormat.ml:31:4>>*/ caml_call1
-               /*<<camlinternalFormat.ml:31:4>>*/ (Stdlib[29], _cU_));
+               /*<<camlinternalFormat.ml:31:4>>*/ (Stdlib[29], _cU_)) /*<<camlinternalFormat.ml:31:69>>*/ ;
     /*<<camlinternalFormat.ml:31:69>>*/ }
    function freeze_char_set(char_set){
      /*<<camlinternalFormat.ml:34:2>>*/ return  /*<<camlinternalFormat.ml:34:2>>*/ caml_call1
-             /*<<camlinternalFormat.ml:34:2>>*/ (Stdlib_Bytes[6], char_set);
+             /*<<camlinternalFormat.ml:34:2>>*/ (Stdlib_Bytes[6], char_set) /*<<camlinternalFormat.ml:34:26>>*/ ;
     /*<<camlinternalFormat.ml:34:26>>*/ }
    function rev_char_set(char_set){
     var
@@ -14897,7 +15135,7 @@
      if(31 === i)
        /*<<camlinternalFormat.ml:43:2>>*/ return  /*<<camlinternalFormat.ml:43:2>>*/ caml_call1
                /*<<camlinternalFormat.ml:43:2>>*/ (Stdlib_Bytes[44],
-               char_set$0);
+               char_set$0) /*<<camlinternalFormat.ml:43:34>>*/ ;
      i = _cT_;
     }
     /*<<camlinternalFormat.ml:43:34>>*/ }
@@ -14913,46 +15151,47 @@
     /*<<camlinternalFormat.ml:49:60>>*/ }
    function pad_of_pad_opt(pad_opt){
      /*<<camlinternalFormat.ml:62:29>>*/ if(! pad_opt)
-      /*<<camlinternalFormat.ml:63:12>>*/ return 0;
+      /*<<camlinternalFormat.ml:63:12>>*/ return 0 /*<<camlinternalFormat.ml:63:12>>*/ ;
     var width = pad_opt[1];
-     /*<<camlinternalFormat.ml:64:18>>*/ return [0, 1, width];
+     /*<<camlinternalFormat.ml:64:18>>*/ return [0, 1, width] /*<<camlinternalFormat.ml:64:18>>*/ ;
     /*<<camlinternalFormat.ml:64:44>>*/ }
    function param_format_of_ignored_format(ign, fmt){
      /*<<camlinternalFormat.ml:76:15>>*/ if(typeof ign === "number")
      switch(ign){
        case 0:
-         /*<<camlinternalFormat.ml:78:4>>*/ return [0, [0, fmt]];
+         /*<<camlinternalFormat.ml:78:4>>*/ return [0, [0, fmt]] /*<<camlinternalFormat.ml:78:4>>*/ ;
        case 1:
-         /*<<camlinternalFormat.ml:80:4>>*/ return [0, [1, fmt]];
+         /*<<camlinternalFormat.ml:80:4>>*/ return [0, [1, fmt]] /*<<camlinternalFormat.ml:80:4>>*/ ;
        case 2:
-         /*<<camlinternalFormat.ml:108:4>>*/ return [0, [19, fmt]];
-       default:  /*<<camlinternalFormat.ml:114:4>>*/ return [0, [22, fmt]];
+         /*<<camlinternalFormat.ml:108:4>>*/ return [0, [19, fmt]] /*<<camlinternalFormat.ml:108:4>>*/ ;
+       default:
+         /*<<camlinternalFormat.ml:114:4>>*/ return [0, [22, fmt]] /*<<camlinternalFormat.ml:114:4>>*/ ;
      }
     switch(ign[0]){
       case 0:
        var pad_opt = ign[1];
         /*<<camlinternalFormat.ml:82:4>>*/ return [0,
-               [2, pad_of_pad_opt(pad_opt), fmt]];
+               [2, pad_of_pad_opt(pad_opt), fmt]] /*<<camlinternalFormat.ml:82:4>>*/ ;
       case 1:
        var pad_opt$0 = ign[1];
         /*<<camlinternalFormat.ml:84:4>>*/ return [0,
-               [3, pad_of_pad_opt(pad_opt$0), fmt]];
+               [3, pad_of_pad_opt(pad_opt$0), fmt]] /*<<camlinternalFormat.ml:84:4>>*/ ;
       case 2:
        var pad_opt$1 = ign[2], iconv = ign[1];
         /*<<camlinternalFormat.ml:86:4>>*/ return [0,
-               [4, iconv, pad_of_pad_opt(pad_opt$1), 0, fmt]];
+               [4, iconv, pad_of_pad_opt(pad_opt$1), 0, fmt]] /*<<camlinternalFormat.ml:86:4>>*/ ;
       case 3:
        var pad_opt$2 = ign[2], iconv$0 = ign[1];
         /*<<camlinternalFormat.ml:88:4>>*/ return [0,
-               [5, iconv$0, pad_of_pad_opt(pad_opt$2), 0, fmt]];
+               [5, iconv$0, pad_of_pad_opt(pad_opt$2), 0, fmt]] /*<<camlinternalFormat.ml:88:4>>*/ ;
       case 4:
        var pad_opt$3 = ign[2], iconv$1 = ign[1];
         /*<<camlinternalFormat.ml:91:4>>*/ return [0,
-               [6, iconv$1, pad_of_pad_opt(pad_opt$3), 0, fmt]];
+               [6, iconv$1, pad_of_pad_opt(pad_opt$3), 0, fmt]] /*<<camlinternalFormat.ml:91:4>>*/ ;
       case 5:
        var pad_opt$4 = ign[2], iconv$2 = ign[1];
         /*<<camlinternalFormat.ml:94:4>>*/ return [0,
-               [7, iconv$2, pad_of_pad_opt(pad_opt$4), 0, fmt]];
+               [7, iconv$2, pad_of_pad_opt(pad_opt$4), 0, fmt]] /*<<camlinternalFormat.ml:94:4>>*/ ;
       case 6:
        var prec_opt = ign[2], pad_opt$5 = ign[1];
        if(prec_opt)
@@ -14960,36 +15199,36 @@
        else
         var _cR_ = 0;
         /*<<camlinternalFormat.ml:97:4>>*/ return [0,
-               [8, _a_, pad_of_pad_opt(pad_opt$5), _cR_, fmt]];
+               [8, _a_, pad_of_pad_opt(pad_opt$5), _cR_, fmt]] /*<<camlinternalFormat.ml:97:4>>*/ ;
       case 7:
        var pad_opt$6 = ign[1];
         /*<<camlinternalFormat.ml:101:4>>*/ return [0,
-               [9, pad_of_pad_opt(pad_opt$6), fmt]];
+               [9, pad_of_pad_opt(pad_opt$6), fmt]] /*<<camlinternalFormat.ml:101:4>>*/ ;
       case 8:
        var fmtty = ign[2], pad_opt$7 = ign[1];
         /*<<camlinternalFormat.ml:103:4>>*/ return [0,
-               [13, pad_opt$7, fmtty, fmt]];
+               [13, pad_opt$7, fmtty, fmt]] /*<<camlinternalFormat.ml:103:4>>*/ ;
       case 9:
        var fmtty$0 = ign[2], pad_opt$8 = ign[1];
         /*<<camlinternalFormat.ml:105:4>>*/ return [0,
-               [14, pad_opt$8, fmtty$0, fmt]];
+               [14, pad_opt$8, fmtty$0, fmt]] /*<<camlinternalFormat.ml:105:4>>*/ ;
       case 10:
        var char_set = ign[2], width_opt = ign[1];
         /*<<camlinternalFormat.ml:110:4>>*/ return [0,
-               [20, width_opt, char_set, fmt]];
+               [20, width_opt, char_set, fmt]] /*<<camlinternalFormat.ml:110:4>>*/ ;
       default:
        var counter = ign[1];
-        /*<<camlinternalFormat.ml:112:4>>*/ return [0, [21, counter, fmt]];
+        /*<<camlinternalFormat.ml:112:4>>*/ return [0, [21, counter, fmt]] /*<<camlinternalFormat.ml:112:4>>*/ ;
     }
     /*<<camlinternalFormat.ml:114:41>>*/ }
    function default_float_precision(fconv){
-     /*<<camlinternalFormat.ml:221:2>>*/ return 5 === fconv[2] ? 12 : -6;
+     /*<<camlinternalFormat.ml:221:2>>*/ return 5 === fconv[2] ? 12 : -6 /*<<camlinternalFormat.ml:227:17>>*/ ;
     /*<<camlinternalFormat.ml:227:17>>*/ }
    function buffer_create(init_size){
      /*<<camlinternalFormat.ml:256:30>>*/ return [0,
             0,
              /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes
-              /*<<camlinternalFormat.ml:256:49>>*/ (init_size)];
+              /*<<camlinternalFormat.ml:256:49>>*/ (init_size)] /*<<camlinternalFormat.ml:256:30>>*/ ;
     /*<<camlinternalFormat.ml:256:73>>*/ }
    function buffer_check_size(buf, overhead){
     var
@@ -15035,90 +15274,92 @@
     /*<<camlinternalFormat.ml:280:30>>*/ }
    function buffer_contents(buf){
      /*<<camlinternalFormat.ml:284:2>>*/ return caml_call3
-            (Stdlib_Bytes[8], buf[2], 0, buf[1]);
+            (Stdlib_Bytes[8], buf[2], 0, buf[1]) /*<<camlinternalFormat.ml:284:38>>*/ ;
     /*<<camlinternalFormat.ml:284:38>>*/ }
    function char_of_iconv(iconv){
      /*<<camlinternalFormat.ml:289:26>>*/ switch(iconv){
       case 6:
       case 7:
-        /*<<camlinternalFormat.ml:291:38>>*/ return 120;
+        /*<<camlinternalFormat.ml:291:38>>*/ return 120 /*<<camlinternalFormat.ml:291:38>>*/ ;
       case 8:
       case 9:
-        /*<<camlinternalFormat.ml:291:62>>*/ return 88;
+        /*<<camlinternalFormat.ml:291:62>>*/ return 88 /*<<camlinternalFormat.ml:291:62>>*/ ;
       case 10:
       case 11:
-        /*<<camlinternalFormat.ml:292:14>>*/ return 111;
+        /*<<camlinternalFormat.ml:292:14>>*/ return 111 /*<<camlinternalFormat.ml:292:14>>*/ ;
       case 12:
       case 15:
-        /*<<camlinternalFormat.ml:292:38>>*/ return 117;
+        /*<<camlinternalFormat.ml:292:38>>*/ return 117 /*<<camlinternalFormat.ml:292:38>>*/ ;
       case 0:
       case 1:
       case 2:
       case 13:
-        /*<<camlinternalFormat.ml:290:40>>*/ return 100;
-      default:  /*<<camlinternalFormat.ml:291:14>>*/ return 105;
+        /*<<camlinternalFormat.ml:290:40>>*/ return 100 /*<<camlinternalFormat.ml:290:40>>*/ ;
+      default:
+        /*<<camlinternalFormat.ml:291:14>>*/ return 105 /*<<camlinternalFormat.ml:291:14>>*/ ;
     }
     /*<<camlinternalFormat.ml:292:41>>*/ }
    function char_of_fconv(opt, fconv){
     var cF = opt ? opt[1] : 70;
     switch(fconv[2]){
       case 0:
-        /*<<camlinternalFormat.ml:297:15>>*/ return 102;
+        /*<<camlinternalFormat.ml:297:15>>*/ return 102 /*<<camlinternalFormat.ml:297:15>>*/ ;
       case 1:
-        /*<<camlinternalFormat.ml:297:32>>*/ return 101;
+        /*<<camlinternalFormat.ml:297:32>>*/ return 101 /*<<camlinternalFormat.ml:297:32>>*/ ;
       case 2:
-        /*<<camlinternalFormat.ml:298:15>>*/ return 69;
+        /*<<camlinternalFormat.ml:298:15>>*/ return 69 /*<<camlinternalFormat.ml:298:15>>*/ ;
       case 3:
-        /*<<camlinternalFormat.ml:298:32>>*/ return 103;
+        /*<<camlinternalFormat.ml:298:32>>*/ return 103 /*<<camlinternalFormat.ml:298:32>>*/ ;
       case 4:
-        /*<<camlinternalFormat.ml:299:15>>*/ return 71;
+        /*<<camlinternalFormat.ml:299:15>>*/ return 71 /*<<camlinternalFormat.ml:299:15>>*/ ;
       case 5:
-        /*<<camlinternalFormat.ml:299:32>>*/ return cF;
+        /*<<camlinternalFormat.ml:299:32>>*/ return cF /*<<camlinternalFormat.ml:299:32>>*/ ;
       case 6:
-        /*<<camlinternalFormat.ml:300:15>>*/ return 104;
+        /*<<camlinternalFormat.ml:300:15>>*/ return 104 /*<<camlinternalFormat.ml:300:15>>*/ ;
       case 7:
-        /*<<camlinternalFormat.ml:300:32>>*/ return 72;
-      default:  /*<<camlinternalFormat.ml:301:16>>*/ return 70;
+        /*<<camlinternalFormat.ml:300:32>>*/ return 72 /*<<camlinternalFormat.ml:300:32>>*/ ;
+      default:
+        /*<<camlinternalFormat.ml:301:16>>*/ return 70 /*<<camlinternalFormat.ml:301:16>>*/ ;
     }
    }
    function bprint_padty(buf, padty){
      /*<<camlinternalFormat.ml:374:29>>*/ switch(padty){
       case 0:
-        /*<<camlinternalFormat.ml:375:13>>*/ return buffer_add_char(buf, 45);
+        /*<<camlinternalFormat.ml:375:13>>*/ return buffer_add_char(buf, 45) /*<<camlinternalFormat.ml:377:36>>*/ ;
       case 1:
-        /*<<camlinternalFormat.ml:376:13>>*/ return;
+        /*<<camlinternalFormat.ml:376:13>>*/ return /*<<camlinternalFormat.ml:376:13>>*/ ;
       default:
-        /*<<camlinternalFormat.ml:377:13>>*/ return buffer_add_char(buf, 48);
+        /*<<camlinternalFormat.ml:377:13>>*/ return buffer_add_char(buf, 48) /*<<camlinternalFormat.ml:377:36>>*/ ;
     }
     /*<<camlinternalFormat.ml:377:36>>*/ }
    function bprint_ignored_flag(buf, ign_flag){
      /*<<camlinternalFormat.ml:381:2>>*/ return ign_flag
             ? buffer_add_char(buf, 95)
-            : ign_flag;
+            : ign_flag /*<<camlinternalFormat.ml:381:42>>*/ ;
     /*<<camlinternalFormat.ml:381:42>>*/ }
    function bprint_pad_opt(buf, pad_opt){
      /*<<camlinternalFormat.ml:385:33>>*/ if(! pad_opt)
-      /*<<camlinternalFormat.ml:386:12>>*/ return;
+      /*<<camlinternalFormat.ml:386:12>>*/ return /*<<camlinternalFormat.ml:386:12>>*/ ;
     var width = pad_opt[1];
      /*<<camlinternalFormat.ml:387:40>>*/ return buffer_add_string
             (buf,
               /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
-               /*<<camlinternalFormat.ml:387:40>>*/ (Stdlib_Int[12], width));
+               /*<<camlinternalFormat.ml:387:40>>*/ (Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
     /*<<camlinternalFormat.ml:387:61>>*/ }
    function bprint_padding(buf, pad){
      /*<<camlinternalFormat.ml:393:15>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:394:18>>*/ return;
+      /*<<camlinternalFormat.ml:394:18>>*/ return /*<<camlinternalFormat.ml:394:18>>*/ ;
     if(0 === pad[0]){
      var n = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty(buf, padty);
       /*<<camlinternalFormat.ml:397:26>>*/ return buffer_add_string
              (buf,
                /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
-                /*<<camlinternalFormat.ml:397:26>>*/ (Stdlib_Int[12], n));
+                /*<<camlinternalFormat.ml:397:26>>*/ (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty(buf, padty$0);
-     /*<<camlinternalFormat.ml:399:4>>*/ return buffer_add_char(buf, 42);
+     /*<<camlinternalFormat.ml:399:4>>*/ return buffer_add_char(buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
     /*<<camlinternalFormat.ml:400:27>>*/ }
    function bprint_precision(buf, prec){
      /*<<camlinternalFormat.ml:404:18>>*/ if(typeof prec !== "number"){
@@ -15127,27 +15368,28 @@
       /*<<camlinternalFormat.ml:408:26>>*/ return buffer_add_string
              (buf,
                /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
-                /*<<camlinternalFormat.ml:408:26>>*/ (Stdlib_Int[12], n));
+                /*<<camlinternalFormat.ml:408:26>>*/ (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
     }
     if(prec)
-      /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst);
+      /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
     /*<<camlinternalFormat.ml:410:30>>*/ }
    function bprint_iconv_flag(buf, iconv){
      /*<<camlinternalFormat.ml:415:34>>*/ switch(iconv){
       case 1:
       case 4:
-        /*<<camlinternalFormat.ml:416:23>>*/ return buffer_add_char(buf, 43);
+        /*<<camlinternalFormat.ml:416:23>>*/ return buffer_add_char(buf, 43) /*<<camlinternalFormat.ml:420:55>>*/ ;
       case 2:
       case 5:
-        /*<<camlinternalFormat.ml:417:23>>*/ return buffer_add_char(buf, 32);
+        /*<<camlinternalFormat.ml:417:23>>*/ return buffer_add_char(buf, 32) /*<<camlinternalFormat.ml:420:55>>*/ ;
       case 7:
       case 9:
       case 11:
       case 13:
       case 14:
       case 15:
-        /*<<camlinternalFormat.ml:419:6>>*/ return buffer_add_char(buf, 35);
-      default:  /*<<camlinternalFormat.ml:420:53>>*/ return;
+        /*<<camlinternalFormat.ml:419:6>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:420:55>>*/ ;
+      default:
+        /*<<camlinternalFormat.ml:420:53>>*/ return /*<<camlinternalFormat.ml:420:53>>*/ ;
     }
     /*<<camlinternalFormat.ml:420:55>>*/ }
    function bprint_altint_fmt(buf, ign_flag, iconv, pad, prec, c){
@@ -15158,7 +15400,7 @@
      /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision(buf, prec);
      /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char(buf, c);
      /*<<camlinternalFormat.ml:439:22>>*/ return buffer_add_char
-            (buf, char_of_iconv(iconv));
+            (buf, char_of_iconv(iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
     /*<<camlinternalFormat.ml:439:43>>*/ }
    function bprint_fconv_flag(buf, fconv){
      /*<<camlinternalFormat.ml:445:2>>*/ switch(fconv[1]){
@@ -15168,33 +15410,34 @@
       default:  /*<<camlinternalFormat.ml:447:20>>*/ buffer_add_char(buf, 32);
     }
     if(8 <= fconv[2])
-      /*<<camlinternalFormat.ml:450:16>>*/ return buffer_add_char(buf, 35);
+      /*<<camlinternalFormat.ml:450:16>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:452:37>>*/ ;
     /*<<camlinternalFormat.ml:452:37>>*/ }
    function string_of_formatting_lit(formatting_lit){
      /*<<camlinternalFormat.ml:465:46>>*/ if
      (typeof formatting_lit === "number")
      switch(formatting_lit){
        case 0:
-         /*<<camlinternalFormat.ml:466:28>>*/ return cst$0;
+         /*<<camlinternalFormat.ml:466:28>>*/ return cst$0 /*<<camlinternalFormat.ml:466:28>>*/ ;
        case 1:
-         /*<<camlinternalFormat.ml:467:28>>*/ return cst$1;
+         /*<<camlinternalFormat.ml:467:28>>*/ return cst$1 /*<<camlinternalFormat.ml:467:28>>*/ ;
        case 2:
-         /*<<camlinternalFormat.ml:469:28>>*/ return cst$2;
+         /*<<camlinternalFormat.ml:469:28>>*/ return cst$2 /*<<camlinternalFormat.ml:469:28>>*/ ;
        case 3:
-         /*<<camlinternalFormat.ml:470:28>>*/ return cst$3;
+         /*<<camlinternalFormat.ml:470:28>>*/ return cst$3 /*<<camlinternalFormat.ml:470:28>>*/ ;
        case 4:
-         /*<<camlinternalFormat.ml:471:28>>*/ return cst$4;
+         /*<<camlinternalFormat.ml:471:28>>*/ return cst$4 /*<<camlinternalFormat.ml:471:28>>*/ ;
        case 5:
-         /*<<camlinternalFormat.ml:473:28>>*/ return cst$5;
-       default:  /*<<camlinternalFormat.ml:474:28>>*/ return cst$6;
+         /*<<camlinternalFormat.ml:473:28>>*/ return cst$5 /*<<camlinternalFormat.ml:473:28>>*/ ;
+       default:
+         /*<<camlinternalFormat.ml:474:28>>*/ return cst$6 /*<<camlinternalFormat.ml:474:28>>*/ ;
      }
     switch(formatting_lit[0]){
       case 0:
        var str = formatting_lit[1];
-        /*<<camlinternalFormat.ml:468:28>>*/ return str;
+        /*<<camlinternalFormat.ml:468:28>>*/ return str /*<<camlinternalFormat.ml:468:28>>*/ ;
       case 1:
        var str$0 = formatting_lit[1];
-        /*<<camlinternalFormat.ml:472:28>>*/ return str$0;
+        /*<<camlinternalFormat.ml:472:28>>*/ return str$0 /*<<camlinternalFormat.ml:472:28>>*/ ;
       default:
        var
         c = formatting_lit[1],
@@ -15202,13 +15445,13 @@
            /*<<camlinternalFormat.ml:475:26>>*/  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
             /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib_String[1], 1, c);
         /*<<camlinternalFormat.ml:475:26>>*/ return  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
-                /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib[28], cst$7, _cQ_);
+                /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib[28], cst$7, _cQ_) /*<<camlinternalFormat.ml:475:43>>*/ ;
     }
     /*<<camlinternalFormat.ml:475:43>>*/ }
    function bprint_char_literal(buf, chr){
      /*<<camlinternalFormat.ml:480:34>>*/ return 37 === chr
             ? buffer_add_string(buf, cst$8)
-            : buffer_add_char(buf, chr);
+            : buffer_add_char(buf, chr) /*<<camlinternalFormat.ml:482:32>>*/ ;
     /*<<camlinternalFormat.ml:482:32>>*/ }
    function bprint_string_literal(buf, str){
     var
@@ -15231,7 +15474,7 @@
     var fmtty$0 = fmtty;
      /*<<camlinternalFormat.ml:496:17>>*/ for(;;){
      if(typeof fmtty$0 === "number")
-       /*<<camlinternalFormat.ml:521:20>>*/ return;
+       /*<<camlinternalFormat.ml:521:20>>*/ return /*<<camlinternalFormat.ml:521:20>>*/ ;
      switch(fmtty$0[0]){
        case 0:
         var fmtty$1 = fmtty$0[1];
@@ -15315,7 +15558,8 @@
     }
     /*<<camlinternalFormat.ml:521:22>>*/ }
    function int_of_custom_arity(param){
-     /*<<?>>*/ if(! param)  /*<<camlinternalFormat.ml:528:19>>*/ return 0;
+     /*<<?>>*/ if(! param)
+      /*<<camlinternalFormat.ml:528:19>>*/ return 0 /*<<camlinternalFormat.ml:528:19>>*/ ;
     var x = param[1];
     return 1 + int_of_custom_arity(x) | 0;
    }
@@ -15325,7 +15569,7 @@
      var fmt$0 = fmt, ign_flag$0 = ign_flag;
       /*<<camlinternalFormat.ml:535:22>>*/ for(;;){
       if(typeof fmt$0 === "number")
-        /*<<camlinternalFormat.ml:636:23>>*/ return;
+        /*<<camlinternalFormat.ml:636:23>>*/ return /*<<camlinternalFormat.ml:636:23>>*/ ;
       switch(fmt$0[0]){
         case 0:
          var rest = fmt$0[1];
@@ -15548,7 +15792,7 @@
                      : 64
                        === c
                        ? (buffer_add_char(buf, 37), buffer_add_char(buf, 64))
-                       : buffer_add_char(buf, c);
+                       : buffer_add_char(buf, c) /*<<camlinternalFormat.ml:361:35>>*/ ;
              /*<<camlinternalFormat.ml:361:35>>*/ };
           /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
          var
@@ -15583,7 +15827,7 @@
                _cM_ = 1 - _cL_;
              else
               var _cM_ = _cJ_;
-              /*<<camlinternalFormat.ml:318:43>>*/ return _cM_;
+              /*<<camlinternalFormat.ml:318:43>>*/ return _cM_ /*<<camlinternalFormat.ml:318:43>>*/ ;
              /*<<camlinternalFormat.ml:318:68>>*/ };
           /*<<camlinternalFormat.ml:319:7>>*/ if(is_alone(93))
            /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char(buf, 93);
@@ -15770,57 +16014,57 @@
      }
      /*<<camlinternalFormat.ml:636:25>>*/ }
      /*<<camlinternalFormat.ml:638:5>>*/ fmtiter(fmt, 0);
-     /*<<camlinternalFormat.ml:645:2>>*/ return buffer_contents(buf);
+     /*<<camlinternalFormat.ml:645:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
     /*<<camlinternalFormat.ml:646:21>>*/ }
    function symm(param){
      /*<<?>>*/ if(typeof param === "number")
-      /*<<camlinternalFormat.ml:680:20>>*/ return 0;
+      /*<<camlinternalFormat.ml:680:20>>*/ return 0 /*<<camlinternalFormat.ml:680:20>>*/ ;
     switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormat.ml:663:20>>*/ return [0, symm(rest)];
+        /*<<camlinternalFormat.ml:663:20>>*/ return [0, symm(rest)] /*<<camlinternalFormat.ml:663:20>>*/ ;
       case 1:
        var rest$0 = param[1];
-        /*<<camlinternalFormat.ml:670:22>>*/ return [1, symm(rest$0)];
+        /*<<camlinternalFormat.ml:670:22>>*/ return [1, symm(rest$0)] /*<<camlinternalFormat.ml:670:22>>*/ ;
       case 2:
        var rest$1 = param[1];
-        /*<<camlinternalFormat.ml:664:19>>*/ return [2, symm(rest$1)];
+        /*<<camlinternalFormat.ml:664:19>>*/ return [2, symm(rest$1)] /*<<camlinternalFormat.ml:664:19>>*/ ;
       case 3:
        var rest$2 = param[1];
-        /*<<camlinternalFormat.ml:665:21>>*/ return [3, symm(rest$2)];
+        /*<<camlinternalFormat.ml:665:21>>*/ return [3, symm(rest$2)] /*<<camlinternalFormat.ml:665:21>>*/ ;
       case 4:
        var rest$3 = param[1];
-        /*<<camlinternalFormat.ml:667:25>>*/ return [4, symm(rest$3)];
+        /*<<camlinternalFormat.ml:667:25>>*/ return [4, symm(rest$3)] /*<<camlinternalFormat.ml:667:25>>*/ ;
       case 5:
        var rest$4 = param[1];
-        /*<<camlinternalFormat.ml:666:21>>*/ return [5, symm(rest$4)];
+        /*<<camlinternalFormat.ml:666:21>>*/ return [5, symm(rest$4)] /*<<camlinternalFormat.ml:666:21>>*/ ;
       case 6:
        var rest$5 = param[1];
-        /*<<camlinternalFormat.ml:668:21>>*/ return [6, symm(rest$5)];
+        /*<<camlinternalFormat.ml:668:21>>*/ return [6, symm(rest$5)] /*<<camlinternalFormat.ml:668:21>>*/ ;
       case 7:
        var rest$6 = param[1];
-        /*<<camlinternalFormat.ml:669:20>>*/ return [7, symm(rest$6)];
+        /*<<camlinternalFormat.ml:669:20>>*/ return [7, symm(rest$6)] /*<<camlinternalFormat.ml:669:20>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
-        /*<<camlinternalFormat.ml:677:4>>*/ return [8, ty, symm(rest$7)];
+        /*<<camlinternalFormat.ml:677:4>>*/ return [8, ty, symm(rest$7)] /*<<camlinternalFormat.ml:677:4>>*/ ;
       case 9:
        var rest$8 = param[3], ty2 = param[2], ty1 = param[1];
-        /*<<camlinternalFormat.ml:679:4>>*/ return [9, ty2, ty1, symm(rest$8)];
+        /*<<camlinternalFormat.ml:679:4>>*/ return [9, ty2, ty1, symm(rest$8)] /*<<camlinternalFormat.ml:679:4>>*/ ;
       case 10:
        var rest$9 = param[1];
-        /*<<camlinternalFormat.ml:672:21>>*/ return [10, symm(rest$9)];
+        /*<<camlinternalFormat.ml:672:21>>*/ return [10, symm(rest$9)] /*<<camlinternalFormat.ml:672:21>>*/ ;
       case 11:
        var rest$10 = param[1];
-        /*<<camlinternalFormat.ml:671:21>>*/ return [11, symm(rest$10)];
+        /*<<camlinternalFormat.ml:671:21>>*/ return [11, symm(rest$10)] /*<<camlinternalFormat.ml:671:21>>*/ ;
       case 12:
        var rest$11 = param[1];
-        /*<<camlinternalFormat.ml:673:19>>*/ return [12, symm(rest$11)];
+        /*<<camlinternalFormat.ml:673:19>>*/ return [12, symm(rest$11)] /*<<camlinternalFormat.ml:673:19>>*/ ;
       case 13:
        var rest$12 = param[1];
-        /*<<camlinternalFormat.ml:674:22>>*/ return [13, symm(rest$12)];
+        /*<<camlinternalFormat.ml:674:22>>*/ return [13, symm(rest$12)] /*<<camlinternalFormat.ml:674:22>>*/ ;
       default:
        var rest$13 = param[1];
-        /*<<camlinternalFormat.ml:675:30>>*/ return [14, symm(rest$13)];
+        /*<<camlinternalFormat.ml:675:30>>*/ return [14, symm(rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
     }
    }
    function fmtty_rel_det(param){
@@ -15829,7 +16073,7 @@
              ,
              function(param){ /*<<camlinternalFormat.ml:692:21>>*/ },
              ,
-             function(param){ /*<<camlinternalFormat.ml:694:21>>*/ }];
+             function(param){ /*<<camlinternalFormat.ml:694:21>>*/ }] /*<<camlinternalFormat.ml:691:4>>*/ ;
     switch(param[0]){
       case 0:
        var
@@ -15843,7 +16087,7 @@
                  /*<<camlinternalFormat.ml:698:17>>*/ af(0);
                 /*<<camlinternalFormat.ml:698:43>>*/ },
                ,
-               de];
+               de] /*<<camlinternalFormat.ml:697:4>>*/ ;
       case 1:
        var
         rest$0 = param[1],
@@ -15856,7 +16100,7 @@
                  /*<<camlinternalFormat.ml:703:17>>*/ af$0(0);
                 /*<<camlinternalFormat.ml:703:43>>*/ },
                ,
-               de$0];
+               de$0] /*<<camlinternalFormat.ml:702:4>>*/ ;
       case 2:
        var
         rest$1 = param[1],
@@ -15869,7 +16113,7 @@
                  /*<<camlinternalFormat.ml:708:17>>*/ af$1(0);
                 /*<<camlinternalFormat.ml:708:43>>*/ },
                ,
-               de$1];
+               de$1] /*<<camlinternalFormat.ml:707:4>>*/ ;
       case 3:
        var
         rest$2 = param[1],
@@ -15882,7 +16126,7 @@
                  /*<<camlinternalFormat.ml:713:17>>*/ af$2(0);
                 /*<<camlinternalFormat.ml:713:43>>*/ },
                ,
-               de$2];
+               de$2] /*<<camlinternalFormat.ml:712:4>>*/ ;
       case 4:
        var
         rest$3 = param[1],
@@ -15895,7 +16139,7 @@
                  /*<<camlinternalFormat.ml:723:17>>*/ af$3(0);
                 /*<<camlinternalFormat.ml:723:43>>*/ },
                ,
-               de$3];
+               de$3] /*<<camlinternalFormat.ml:722:4>>*/ ;
       case 5:
        var
         rest$4 = param[1],
@@ -15908,7 +16152,7 @@
                  /*<<camlinternalFormat.ml:718:17>>*/ af$4(0);
                 /*<<camlinternalFormat.ml:718:43>>*/ },
                ,
-               de$4];
+               de$4] /*<<camlinternalFormat.ml:717:4>>*/ ;
       case 6:
        var
         rest$5 = param[1],
@@ -15921,7 +16165,7 @@
                  /*<<camlinternalFormat.ml:728:17>>*/ af$5(0);
                 /*<<camlinternalFormat.ml:728:43>>*/ },
                ,
-               de$5];
+               de$5] /*<<camlinternalFormat.ml:727:4>>*/ ;
       case 7:
        var
         rest$6 = param[1],
@@ -15934,7 +16178,7 @@
                  /*<<camlinternalFormat.ml:733:17>>*/ af$6(0);
                 /*<<camlinternalFormat.ml:733:43>>*/ },
                ,
-               de$6];
+               de$6] /*<<camlinternalFormat.ml:732:4>>*/ ;
       case 8:
        var
         rest$7 = param[2],
@@ -15947,7 +16191,7 @@
                  /*<<camlinternalFormat.ml:766:17>>*/ af$7(0);
                 /*<<camlinternalFormat.ml:766:43>>*/ },
                ,
-               de$7];
+               de$7] /*<<camlinternalFormat.ml:765:4>>*/ ;
       case 9:
        var
         rest$8 = param[3],
@@ -15970,7 +16214,7 @@
                function(param){
                  /*<<camlinternalFormat.ml:775:17>>*/ jd(0);
                  /*<<camlinternalFormat.ml:775:50>>*/ de$8(0);
-                /*<<camlinternalFormat.ml:775:65>>*/ }];
+                /*<<camlinternalFormat.ml:775:65>>*/ }] /*<<camlinternalFormat.ml:772:4>>*/ ;
       case 10:
        var
         rest$9 = param[1],
@@ -15983,7 +16227,7 @@
                  /*<<camlinternalFormat.ml:744:17>>*/ af$9(0);
                 /*<<camlinternalFormat.ml:744:43>>*/ },
                ,
-               de$9];
+               de$9] /*<<camlinternalFormat.ml:743:4>>*/ ;
       case 11:
        var
         rest$10 = param[1],
@@ -15997,7 +16241,7 @@
                  /*<<camlinternalFormat.ml:739:17>>*/ af$10(0);
                 /*<<camlinternalFormat.ml:739:43>>*/ },
                ,
-               de$10];
+               de$10] /*<<camlinternalFormat.ml:738:4>>*/ ;
       case 12:
        var
         rest$11 = param[1],
@@ -16011,7 +16255,7 @@
                  /*<<camlinternalFormat.ml:749:17>>*/ af$11(0);
                 /*<<camlinternalFormat.ml:749:43>>*/ },
                ,
-               de$11];
+               de$11] /*<<camlinternalFormat.ml:748:4>>*/ ;
       case 13:
        var
         rest$12 = param[1],
@@ -16027,7 +16271,7 @@
                ,
                function(param){
                  /*<<camlinternalFormat.ml:756:17>>*/ de$12(0);
-                /*<<camlinternalFormat.ml:756:43>>*/ }];
+                /*<<camlinternalFormat.ml:756:43>>*/ }] /*<<camlinternalFormat.ml:753:4>>*/ ;
       default:
        var
         rest$13 = param[1],
@@ -16043,7 +16287,7 @@
                ,
                function(param){
                  /*<<camlinternalFormat.ml:762:17>>*/ de$13(0);
-                /*<<camlinternalFormat.ml:762:43>>*/ }];
+                /*<<camlinternalFormat.ml:762:43>>*/ }] /*<<camlinternalFormat.ml:759:4>>*/ ;
     }
    }
    function trans(ty1, ty2){
@@ -16070,7 +16314,7 @@
                   case 0:
                    var rest2 = ty2[1];
                     /*<<camlinternalFormat.ml:804:36>>*/ return [0,
-                           trans(rest1, rest2)];
+                           trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:36>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16094,7 +16338,7 @@
                   case 1:
                    var rest2$0 = ty2[1];
                     /*<<camlinternalFormat.ml:805:40>>*/ return [1,
-                           trans(rest1$0, rest2$0)];
+                           trans(rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:40>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16118,7 +16362,7 @@
                   case 2:
                    var rest2$1 = ty2[1];
                     /*<<camlinternalFormat.ml:807:34>>*/ return [2,
-                           trans(rest1$1, rest2$1)];
+                           trans(rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:34>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16142,7 +16386,7 @@
                   case 3:
                    var rest2$2 = ty2[1];
                     /*<<camlinternalFormat.ml:808:38>>*/ return [3,
-                           trans(rest1$2, rest2$2)];
+                           trans(rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16166,7 +16410,7 @@
                   case 4:
                    var rest2$3 = ty2[1];
                     /*<<camlinternalFormat.ml:810:46>>*/ return [4,
-                           trans(rest1$3, rest2$3)];
+                           trans(rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:46>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16190,7 +16434,7 @@
                   case 5:
                    var rest2$4 = ty2[1];
                     /*<<camlinternalFormat.ml:809:38>>*/ return [5,
-                           trans(rest1$4, rest2$4)];
+                           trans(rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16214,7 +16458,7 @@
                   case 6:
                    var rest2$5 = ty2[1];
                     /*<<camlinternalFormat.ml:811:38>>*/ return [6,
-                           trans(rest1$5, rest2$5)];
+                           trans(rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16238,7 +16482,7 @@
                   case 7:
                    var rest2$6 = ty2[1];
                     /*<<camlinternalFormat.ml:806:36>>*/ return [7,
-                           trans(rest1$6, rest2$6)];
+                           trans(rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:36>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16268,7 +16512,7 @@
                        (rest1$7, rest2$7);
                     /*<<camlinternalFormat.ml:835:4>>*/ return [8,
                            trans(ty1$0, ty2$0),
-                           _cE_];
+                           _cE_] /*<<camlinternalFormat.ml:835:4>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -16308,7 +16552,7 @@
                     /*<<camlinternalFormat.ml:845:4>>*/ return [9,
                            ty11,
                            ty22,
-                           trans(rest1$8, rest2$8)];
+                           trans(rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:4>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -16330,7 +16574,7 @@
                if(typeof ty2 !== "number" && 10 === ty2[0]){
                 var rest2$9 = ty2[1];
                  /*<<camlinternalFormat.ml:813:38>>*/ return [10,
-                        trans(rest1$9, rest2$9)];
+                        trans(rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:38>>*/ ;
                }
                 /*<<camlinternalFormat.ml:814:21>>*/ throw  /*<<camlinternalFormat.ml:814:21>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:814:21>>*/ ([0,
@@ -16346,7 +16590,7 @@
                   case 11:
                    var rest2$10 = ty2[1];
                     /*<<camlinternalFormat.ml:817:38>>*/ return [11,
-                           trans(rest1$10, rest2$10)];
+                           trans(rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:38>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:818:21>>*/ throw  /*<<camlinternalFormat.ml:818:21>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:818:21>>*/ ([0,
@@ -16364,7 +16608,7 @@
                   case 12:
                    var rest2$11 = ty2[1];
                     /*<<camlinternalFormat.ml:821:34>>*/ return [12,
-                           trans(rest1$11, rest2$11)];
+                           trans(rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:34>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:822:19>>*/ throw  /*<<camlinternalFormat.ml:822:19>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:822:19>>*/ ([0,
@@ -16384,7 +16628,7 @@
                   case 13:
                    var rest2$12 = ty2[1];
                     /*<<camlinternalFormat.ml:825:40>>*/ return [13,
-                           trans(rest1$12, rest2$12)];
+                           trans(rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:40>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:826:22>>*/ throw  /*<<camlinternalFormat.ml:826:22>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:826:22>>*/ ([0,
@@ -16406,7 +16650,7 @@
                   case 14:
                    var rest2$13 = ty2[1];
                     /*<<camlinternalFormat.ml:830:4>>*/ return [14,
-                           trans(rest1$13, rest2$13)];
+                           trans(rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:4>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:831:30>>*/ throw  /*<<camlinternalFormat.ml:831:30>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:831:30>>*/ ([0,
@@ -16421,7 +16665,7 @@
                     1);
            }
            if(typeof ty2 === "number")
-             /*<<camlinternalFormat.ml:849:34>>*/ return 0;
+             /*<<camlinternalFormat.ml:849:34>>*/ return 0 /*<<camlinternalFormat.ml:849:34>>*/ ;
            switch(ty2[0]){
              case 10:
               break a;
@@ -16479,22 +16723,22 @@
     var fmtty$0 = fmtty;
      /*<<camlinternalFormat.ml:863:13>>*/ for(;;){
      if(typeof fmtty$0 === "number")
-       /*<<camlinternalFormat.ml:916:34>>*/ return 0;
+       /*<<camlinternalFormat.ml:916:34>>*/ return 0 /*<<camlinternalFormat.ml:916:34>>*/ ;
      switch(fmtty$0[0]){
        case 0:
         var rest = fmtty$0[1];
-         /*<<camlinternalFormat.ml:890:34>>*/ return [0, fmtty_of_fmt(rest)];
+         /*<<camlinternalFormat.ml:890:34>>*/ return [0, fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:34>>*/ ;
        case 1:
         var rest$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:891:34>>*/ return [0, fmtty_of_fmt(rest$0)];
+         /*<<camlinternalFormat.ml:891:34>>*/ return [0, fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:34>>*/ ;
        case 2:
         var rest$1 = fmtty$0[2], pad = fmtty$0[1];
          /*<<camlinternalFormat.ml:865:31>>*/ return fmtty_of_padding_fmtty
-                (pad, [1, fmtty_of_fmt(rest$1)]);
+                (pad, [1, fmtty_of_fmt(rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 3:
         var rest$2 = fmtty$0[2], pad$0 = fmtty$0[1];
          /*<<camlinternalFormat.ml:867:31>>*/ return fmtty_of_padding_fmtty
-                (pad$0, [1, fmtty_of_fmt(rest$2)]);
+                (pad$0, [1, fmtty_of_fmt(rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 4:
         var
          rest$3 = fmtty$0[4],
@@ -16505,7 +16749,7 @@
             /*<<camlinternalFormat.ml:871:18>>*/ fmtty_of_precision_fmtty
             (prec, [2, ty_rest]);
          /*<<camlinternalFormat.ml:872:4>>*/ return fmtty_of_padding_fmtty
-                (pad$1, prec_ty);
+                (pad$1, prec_ty) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 5:
         var
          rest$4 = fmtty$0[4],
@@ -16517,7 +16761,7 @@
             /*<<camlinternalFormat.ml:875:18>>*/ fmtty_of_precision_fmtty
             (prec$0, [3, ty_rest$0]);
          /*<<camlinternalFormat.ml:876:4>>*/ return fmtty_of_padding_fmtty
-                (pad$2, prec_ty$0);
+                (pad$2, prec_ty$0) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 6:
         var
          rest$5 = fmtty$0[4],
@@ -16529,7 +16773,7 @@
             /*<<camlinternalFormat.ml:879:18>>*/ fmtty_of_precision_fmtty
             (prec$1, [4, ty_rest$1]);
          /*<<camlinternalFormat.ml:880:4>>*/ return fmtty_of_padding_fmtty
-                (pad$3, prec_ty$1);
+                (pad$3, prec_ty$1) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 7:
         var
          rest$6 = fmtty$0[4],
@@ -16541,7 +16785,7 @@
             /*<<camlinternalFormat.ml:883:18>>*/ fmtty_of_precision_fmtty
             (prec$2, [5, ty_rest$2]);
          /*<<camlinternalFormat.ml:884:4>>*/ return fmtty_of_padding_fmtty
-                (pad$4, prec_ty$2);
+                (pad$4, prec_ty$2) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 8:
         var
          rest$7 = fmtty$0[4],
@@ -16553,11 +16797,11 @@
             /*<<camlinternalFormat.ml:887:18>>*/ fmtty_of_precision_fmtty
             (prec$3, [6, ty_rest$3]);
          /*<<camlinternalFormat.ml:888:4>>*/ return fmtty_of_padding_fmtty
-                (pad$5, prec_ty$3);
+                (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 9:
         var rest$8 = fmtty$0[2], pad$6 = fmtty$0[1];
          /*<<camlinternalFormat.ml:893:33>>*/ return fmtty_of_padding_fmtty
-                (pad$6, [7, fmtty_of_fmt(rest$8)]);
+                (pad$6, [7, fmtty_of_fmt(rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 10:
         var fmtty$1 = fmtty$0[1]; fmtty$0 = fmtty$1; break;
        case 11:
@@ -16568,21 +16812,21 @@
         var rest$9 = fmtty$0[3], ty = fmtty$0[2];
          /*<<camlinternalFormat.ml:900:4>>*/ return [8,
                 ty,
-                fmtty_of_fmt(rest$9)];
+                fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:4>>*/ ;
        case 14:
         var rest$10 = fmtty$0[3], ty$0 = fmtty$0[2];
          /*<<camlinternalFormat.ml:902:4>>*/ return [9,
                 ty$0,
                 ty$0,
-                fmtty_of_fmt(rest$10)];
+                fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:4>>*/ ;
        case 15:
         var rest$11 = fmtty$0[1];
          /*<<camlinternalFormat.ml:894:34>>*/ return [10,
-                fmtty_of_fmt(rest$11)];
+                fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:34>>*/ ;
        case 16:
         var rest$12 = fmtty$0[1];
          /*<<camlinternalFormat.ml:895:34>>*/ return [11,
-                fmtty_of_fmt(rest$12)];
+                fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:34>>*/ ;
        case 17:
         var fmtty$4 = fmtty$0[2]; fmtty$0 = fmtty$4; break;
        case 18:
@@ -16598,23 +16842,23 @@
                  /*<<camlinternalFormat.ml:914:54>>*/ (CamlinternalFormatBasics
                   [1],
                  _cC_,
-                 _cB_);
+                 _cB_) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 19:
         var rest$14 = fmtty$0[1];
          /*<<camlinternalFormat.ml:897:34>>*/ return [13,
-                fmtty_of_fmt(rest$14)];
+                fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:34>>*/ ;
        case 20:
         var rest$15 = fmtty$0[3];
          /*<<camlinternalFormat.ml:908:34>>*/ return [1,
-                fmtty_of_fmt(rest$15)];
+                fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:34>>*/ ;
        case 21:
         var rest$16 = fmtty$0[2];
          /*<<camlinternalFormat.ml:909:34>>*/ return [2,
-                fmtty_of_fmt(rest$16)];
+                fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:34>>*/ ;
        case 22:
         var rest$17 = fmtty$0[1];
          /*<<camlinternalFormat.ml:910:34>>*/ return [0,
-                fmtty_of_fmt(rest$17)];
+                fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:34>>*/ ;
        case 23:
         var fmtty$5 = fmtty$0[2], ign = fmtty$0[1];
         if(typeof ign === "number")
@@ -16625,7 +16869,7 @@
             fmtty$0 = fmtty$5; break;
            case 2:
              /*<<camlinternalFormat.ml:944:39>>*/ return [14,
-                    fmtty_of_fmt(fmtty$5)];
+                    fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:39>>*/ ;
            default: fmtty$0 = fmtty$5;
          }
         else
@@ -16657,7 +16901,7 @@
                      /*<<camlinternalFormat.ml:943:58>>*/ (CamlinternalFormatBasics
                       [1],
                      fmtty$6,
-                     _cD_);
+                     _cD_) /*<<camlinternalFormat.ml:916:46>>*/ ;
            case 10:
             fmtty$0 = fmtty$5; break;
            default: fmtty$0 = fmtty$5;
@@ -16666,26 +16910,26 @@
        default:
         var rest$18 = fmtty$0[3], arity = fmtty$0[1];
          /*<<camlinternalFormat.ml:896:56>>*/ return fmtty_of_custom
-                (arity, fmtty_of_fmt(rest$18));
+                (arity, fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:916:46>>*/ }
    function fmtty_of_custom(arity, fmtty){
      /*<<camlinternalFormat.ml:921:19>>*/ if(! arity)
-      /*<<camlinternalFormat.ml:922:19>>*/ return fmtty;
+      /*<<camlinternalFormat.ml:922:19>>*/ return fmtty /*<<camlinternalFormat.ml:922:19>>*/ ;
     var arity$0 = arity[1];
      /*<<camlinternalFormat.ml:923:25>>*/ return [12,
-            fmtty_of_custom(arity$0, fmtty)];
+            fmtty_of_custom(arity$0, fmtty)] /*<<camlinternalFormat.ml:923:25>>*/ ;
     /*<<camlinternalFormat.ml:923:61>>*/ }
    function fmtty_of_padding_fmtty(pad, fmtty){
      /*<<camlinternalFormat.ml:952:19>>*/ return typeof pad === "number"
             ? fmtty
-            : 0 === pad[0] ? fmtty : [2, fmtty];
+            : 0 === pad[0] ? fmtty : [2, fmtty] /*<<camlinternalFormat.ml:955:35>>*/ ;
     /*<<camlinternalFormat.ml:955:35>>*/ }
    function fmtty_of_precision_fmtty(prec, fmtty){
      /*<<camlinternalFormat.ml:960:20>>*/ return typeof prec === "number"
             ? prec ? [2, fmtty] : fmtty
-            : fmtty;
+            : fmtty /*<<camlinternalFormat.ml:963:37>>*/ ;
     /*<<camlinternalFormat.ml:963:37>>*/ }
    var
     Type_mismatch =
@@ -16930,14 +17174,14 @@
        cst_bad_input_format_type_mism$0];
    function type_padding(pad, fmtty){
      /*<<camlinternalFormat.ml:977:17>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:978:21>>*/ return [0, 0, fmtty];
+      /*<<camlinternalFormat.ml:978:21>>*/ return [0, 0, fmtty] /*<<camlinternalFormat.ml:978:21>>*/ ;
     if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
-      /*<<camlinternalFormat.ml:979:33>>*/ return [0, [0, padty, w], fmtty];
+      /*<<camlinternalFormat.ml:979:33>>*/ return [0, [0, padty, w], fmtty] /*<<camlinternalFormat.ml:979:33>>*/ ;
     }
     if(typeof fmtty !== "number" && 2 === fmtty[0]){
      var rest = fmtty[1], padty$0 = pad[1];
-      /*<<camlinternalFormat.ml:980:38>>*/ return [0, [1, padty$0], rest];
+      /*<<camlinternalFormat.ml:980:38>>*/ return [0, [1, padty$0], rest] /*<<camlinternalFormat.ml:980:38>>*/ ;
     }
      /*<<camlinternalFormat.ml:981:9>>*/ throw  /*<<camlinternalFormat.ml:981:9>>*/ caml_maybe_attach_backtrace
             /*<<camlinternalFormat.ml:981:9>>*/ (Type_mismatch, 1);
@@ -16947,16 +17191,16 @@
      match =  /*<<camlinternalFormat.ml:989:34>>*/ type_padding(pad, fmtty);
     if(typeof prec !== "number"){
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
-      /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1];
+      /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1] /*<<camlinternalFormat.ml:993:4>>*/ ;
     }
     if(! prec){
      var rest$0 = match[2], pad$1 = match[1];
-      /*<<camlinternalFormat.ml:991:4>>*/ return [0, pad$1, 0, rest$0];
+      /*<<camlinternalFormat.ml:991:4>>*/ return [0, pad$1, 0, rest$0] /*<<camlinternalFormat.ml:991:4>>*/ ;
     }
     var match$0 = match[2];
     if(typeof match$0 !== "number" && 2 === match$0[0]){
      var rest = match$0[1], pad$0 = match[1];
-      /*<<camlinternalFormat.ml:995:4>>*/ return [0, pad$0, 1, rest];
+      /*<<camlinternalFormat.ml:995:4>>*/ return [0, pad$0, 1, rest] /*<<camlinternalFormat.ml:995:4>>*/ ;
     }
      /*<<camlinternalFormat.ml:996:35>>*/ throw  /*<<camlinternalFormat.ml:996:35>>*/ caml_maybe_attach_backtrace
             /*<<camlinternalFormat.ml:996:35>>*/ (Type_mismatch, 1);
@@ -16968,11 +17212,11 @@
       /*<<camlinternalFormat.ml:1010:9>>*/ throw  /*<<camlinternalFormat.ml:1010:9>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalFormat.ml:1010:9>>*/ (Type_mismatch, 1);
     var fmt$0 = _cA_[1];
-     /*<<camlinternalFormat.ml:1009:42>>*/ return fmt$0;
+     /*<<camlinternalFormat.ml:1009:42>>*/ return fmt$0 /*<<camlinternalFormat.ml:1009:42>>*/ ;
     /*<<camlinternalFormat.ml:1010:28>>*/ }
    function type_format_gen(fmt, fmtty0){
      /*<<camlinternalFormat.ml:1018:19>>*/ if(typeof fmt === "number")
-      /*<<camlinternalFormat.ml:1133:33>>*/ return [0, 0, fmtty0];
+      /*<<camlinternalFormat.ml:1133:33>>*/ return [0, 0, fmtty0] /*<<camlinternalFormat.ml:1133:33>>*/ ;
     switch(fmt[0]){
       case 0:
        if(typeof fmtty0 !== "number" && 0 === fmtty0[0]){
@@ -16984,7 +17228,7 @@
             (fmt_rest, fmtty_rest),
          fmtty = match[2],
          fmt$0 = match[1];
-         /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty];
+         /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty] /*<<camlinternalFormat.ml:1021:4>>*/ ;
        }
        break;
       case 1:
@@ -16997,7 +17241,7 @@
             (fmt_rest$0, fmtty_rest$0),
          fmtty$0 = match$0[2],
          fmt$1 = match$0[1];
-         /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0];
+         /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0] /*<<camlinternalFormat.ml:1024:4>>*/ ;
        }
        break;
       case 2:
@@ -17018,7 +17262,7 @@
          fmt$2 = match$3[1];
          /*<<camlinternalFormat.ml:1029:6>>*/ return [0,
                 [2, pad$0, fmt$2],
-                fmtty$1];
+                fmtty$1] /*<<camlinternalFormat.ml:1029:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1030:34>>*/ throw  /*<<camlinternalFormat.ml:1030:34>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1030:34>>*/ (Type_mismatch, 1);
@@ -17040,7 +17284,7 @@
          fmt$3 = match$6[1];
          /*<<camlinternalFormat.ml:1036:6>>*/ return [0,
                 [3, pad$2, fmt$3],
-                fmtty$2];
+                fmtty$2] /*<<camlinternalFormat.ml:1036:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1037:34>>*/ throw  /*<<camlinternalFormat.ml:1037:34>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1037:34>>*/ (Type_mismatch, 1);
@@ -17066,7 +17310,7 @@
          fmt$4 = match$9[1];
          /*<<camlinternalFormat.ml:1043:6>>*/ return [0,
                 [4, iconv, pad$4, prec$0, fmt$4],
-                fmtty$3];
+                fmtty$3] /*<<camlinternalFormat.ml:1043:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1044:37>>*/ throw  /*<<camlinternalFormat.ml:1044:37>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1044:37>>*/ (Type_mismatch, 1);
@@ -17092,7 +17336,7 @@
          fmt$5 = match$12[1];
          /*<<camlinternalFormat.ml:1050:6>>*/ return [0,
                 [5, iconv$0, pad$6, prec$2, fmt$5],
-                fmtty$4];
+                fmtty$4] /*<<camlinternalFormat.ml:1050:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1051:37>>*/ throw  /*<<camlinternalFormat.ml:1051:37>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1051:37>>*/ (Type_mismatch, 1);
@@ -17118,7 +17362,7 @@
          fmt$6 = match$15[1];
          /*<<camlinternalFormat.ml:1057:6>>*/ return [0,
                 [6, iconv$1, pad$8, prec$4, fmt$6],
-                fmtty$5];
+                fmtty$5] /*<<camlinternalFormat.ml:1057:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1058:37>>*/ throw  /*<<camlinternalFormat.ml:1058:37>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1058:37>>*/ (Type_mismatch, 1);
@@ -17144,7 +17388,7 @@
          fmt$7 = match$18[1];
          /*<<camlinternalFormat.ml:1064:6>>*/ return [0,
                 [7, iconv$2, pad$10, prec$6, fmt$7],
-                fmtty$6];
+                fmtty$6] /*<<camlinternalFormat.ml:1064:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1065:37>>*/ throw  /*<<camlinternalFormat.ml:1065:37>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1065:37>>*/ (Type_mismatch, 1);
@@ -17170,7 +17414,7 @@
          fmt$8 = match$21[1];
          /*<<camlinternalFormat.ml:1071:6>>*/ return [0,
                 [8, fconv, pad$12, prec$8, fmt$8],
-                fmtty$7];
+                fmtty$7] /*<<camlinternalFormat.ml:1071:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1072:37>>*/ throw  /*<<camlinternalFormat.ml:1072:37>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1072:37>>*/ (Type_mismatch, 1);
@@ -17192,7 +17436,7 @@
          fmt$9 = match$24[1];
          /*<<camlinternalFormat.ml:1078:6>>*/ return [0,
                 [9, pad$14, fmt$9],
-                fmtty$8];
+                fmtty$8] /*<<camlinternalFormat.ml:1078:6>>*/ ;
        }
         /*<<camlinternalFormat.ml:1079:34>>*/ throw  /*<<camlinternalFormat.ml:1079:34>>*/ caml_maybe_attach_backtrace
                /*<<camlinternalFormat.ml:1079:34>>*/ (Type_mismatch, 1);
@@ -17204,7 +17448,7 @@
            (fmt_rest$9, fmtty0),
         fmtty$9 = match$25[2],
         fmt$10 = match$25[1];
-        /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9];
+        /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9] /*<<camlinternalFormat.ml:1083:4>>*/ ;
       case 11:
        var
         fmt_rest$10 = fmt[2],
@@ -17216,7 +17460,7 @@
         fmt$11 = match$26[1];
         /*<<camlinternalFormat.ml:1087:4>>*/ return [0,
                [11, str, fmt$11],
-               fmtty$10];
+               fmtty$10] /*<<camlinternalFormat.ml:1087:4>>*/ ;
       case 12:
        var
         fmt_rest$11 = fmt[2],
@@ -17228,7 +17472,7 @@
         fmt$12 = match$27[1];
         /*<<camlinternalFormat.ml:1090:4>>*/ return [0,
                [12, chr, fmt$12],
-               fmtty$11];
+               fmtty$11] /*<<camlinternalFormat.ml:1090:4>>*/ ;
       case 13:
        if(typeof fmtty0 !== "number" && 8 === fmtty0[0]){
         var
@@ -17251,7 +17495,7 @@
          fmt$13 = match$28[1];
          /*<<camlinternalFormat.ml:1096:4>>*/ return [0,
                 [13, pad_opt, sub_fmtty, fmt$13],
-                fmtty$12];
+                fmtty$12] /*<<camlinternalFormat.ml:1096:4>>*/ ;
        }
        break;
       case 14:
@@ -17290,7 +17534,7 @@
          fmt$14 = match$29[1];
          /*<<camlinternalFormat.ml:1104:4>>*/ return [0,
                 [14, pad_opt$0, sub_fmtty1, fmt$14],
-                fmtty$13];
+                fmtty$13] /*<<camlinternalFormat.ml:1104:4>>*/ ;
        }
        break;
       case 15:
@@ -17305,7 +17549,7 @@
          fmt$15 = match$30[1];
          /*<<camlinternalFormat.ml:1108:4>>*/ return [0,
                 [15, fmt$15],
-                fmtty$14];
+                fmtty$14] /*<<camlinternalFormat.ml:1108:4>>*/ ;
        }
        break;
       case 16:
@@ -17320,7 +17564,7 @@
          fmt$16 = match$31[1];
          /*<<camlinternalFormat.ml:1111:4>>*/ return [0,
                 [16, fmt$16],
-                fmtty$15];
+                fmtty$15] /*<<camlinternalFormat.ml:1111:4>>*/ ;
        }
        break;
       case 17:
@@ -17334,7 +17578,7 @@
         fmt$17 = match$32[1];
         /*<<camlinternalFormat.ml:1116:4>>*/ return [0,
                [17, formatting_lit, fmt$17],
-               fmtty$16];
+               fmtty$16] /*<<camlinternalFormat.ml:1116:4>>*/ ;
       case 18:
        var fmt_rest$17 = fmt[2], formatting_gen = fmt[1];
        if(0 === formatting_gen[0]){
@@ -17354,7 +17598,7 @@
          fmt3 = match$38[1];
          /*<<camlinternalFormat.ml:1146:4>>*/ return [0,
                 [18, [0, [0, fmt2, str$0]], fmt3],
-                fmtty3];
+                fmtty3] /*<<camlinternalFormat.ml:1146:4>>*/ ;
        }
        var
         match$39 = formatting_gen[1],
@@ -17372,7 +17616,7 @@
         fmt3$0 = match$41[1];
         /*<<camlinternalFormat.ml:1150:4>>*/ return [0,
                [18, [1, [0, fmt2$0, str$1]], fmt3$0],
-               fmtty3$0];
+               fmtty3$0] /*<<camlinternalFormat.ml:1150:4>>*/ ;
       case 19:
        if(typeof fmtty0 !== "number" && 13 === fmtty0[0]){
         var
@@ -17385,7 +17629,7 @@
          fmt$18 = match$33[1];
          /*<<camlinternalFormat.ml:1123:4>>*/ return [0,
                 [19, fmt$18],
-                fmtty$17];
+                fmtty$17] /*<<camlinternalFormat.ml:1123:4>>*/ ;
        }
        break;
       case 20:
@@ -17402,7 +17646,7 @@
          fmt$19 = match$34[1];
          /*<<camlinternalFormat.ml:1126:4>>*/ return [0,
                 [20, width_opt, char_set, fmt$19],
-                fmtty$18];
+                fmtty$18] /*<<camlinternalFormat.ml:1126:4>>*/ ;
        }
        break;
       case 21:
@@ -17418,7 +17662,7 @@
          fmt$20 = match$35[1];
          /*<<camlinternalFormat.ml:1129:4>>*/ return [0,
                 [21, counter, fmt$20],
-                fmtty$19];
+                fmtty$19] /*<<camlinternalFormat.ml:1129:4>>*/ ;
        }
        break;
       case 23:
@@ -17427,32 +17671,32 @@
         switch(ign[0]){
           case 0:
             /*<<camlinternalFormat.ml:1161:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 1:
             /*<<camlinternalFormat.ml:1162:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 2:
             /*<<camlinternalFormat.ml:1163:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 3:
             /*<<camlinternalFormat.ml:1164:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 4:
             /*<<camlinternalFormat.ml:1165:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 5:
             /*<<camlinternalFormat.ml:1166:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 6:
             /*<<camlinternalFormat.ml:1167:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 7:
             /*<<camlinternalFormat.ml:1168:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 8:
            var sub_fmtty$2 = ign[2], pad_opt$1 = ign[1];
             /*<<camlinternalFormat.ml:1173:4>>*/ return type_ignored_param_one
-                   ([8, pad_opt$1, sub_fmtty$2], rest, fmtty0);
+                   ([8, pad_opt$1, sub_fmtty$2], rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 9:
            var
             sub_fmtty$3 = ign[2],
@@ -17466,21 +17710,21 @@
             sub_fmtty$4 = _cz_[1];
             /*<<camlinternalFormat.ml:1177:4>>*/ return [0,
                    [23, [9, pad_opt$2, sub_fmtty$4], fmt$22],
-                   fmtty$21];
+                   fmtty$21] /*<<camlinternalFormat.ml:1177:4>>*/ ;
           case 10:
             /*<<camlinternalFormat.ml:1169:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           default:
             /*<<camlinternalFormat.ml:1170:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0);
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
         }
        switch(ign){
          case 0:
            /*<<camlinternalFormat.ml:1159:42>>*/ return type_ignored_param_one
-                  (ign, rest, fmtty0);
+                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 1:
            /*<<camlinternalFormat.ml:1160:42>>*/ return type_ignored_param_one
-                  (ign, rest, fmtty0);
+                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 2:
           if(typeof fmtty0 !== "number" && 14 === fmtty0[0]){
            var
@@ -17492,13 +17736,13 @@
             fmt$21 = match$42[1];
             /*<<camlinternalFormat.ml:1184:6>>*/ return [0,
                    [23, 2, fmt$21],
-                   fmtty$20];
+                   fmtty$20] /*<<camlinternalFormat.ml:1184:6>>*/ ;
           }
            /*<<camlinternalFormat.ml:1185:11>>*/ throw  /*<<camlinternalFormat.ml:1185:11>>*/ caml_maybe_attach_backtrace
                   /*<<camlinternalFormat.ml:1185:11>>*/ (Type_mismatch, 1);
          default:
            /*<<camlinternalFormat.ml:1171:42>>*/ return type_ignored_param_one
-                  (ign, rest, fmtty0);
+                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
        }
     }
      /*<<camlinternalFormat.ml:1135:9>>*/ throw  /*<<camlinternalFormat.ml:1135:9>>*/ caml_maybe_attach_backtrace
@@ -17512,13 +17756,13 @@
      fmt$0 = match[1];
      /*<<camlinternalFormat.ml:1195:2>>*/ return [0,
             [23, ign, fmt$0],
-            fmtty$0];
+            fmtty$0] /*<<camlinternalFormat.ml:1195:2>>*/ ;
     /*<<camlinternalFormat.ml:1195:51>>*/ }
    function type_ignored_format_substituti(sub_fmtty, fmt, fmtty){
      /*<<camlinternalFormat.ml:1202:27>>*/ if(typeof sub_fmtty === "number")
       /*<<camlinternalFormat.ml:1276:4>>*/ return [0,
              0,
-             type_format_gen(fmt, fmtty)];
+             type_format_gen(fmt, fmtty)] /*<<camlinternalFormat.ml:1276:4>>*/ ;
     switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
@@ -17532,7 +17776,7 @@
          sub_fmtty_rest$0 = match[1];
          /*<<camlinternalFormat.ml:1206:4>>*/ return [0,
                 [0, sub_fmtty_rest$0],
-                fmt$0];
+                fmt$0] /*<<camlinternalFormat.ml:1206:4>>*/ ;
        }
        break;
       case 1:
@@ -17547,7 +17791,7 @@
          sub_fmtty_rest$2 = match$0[1];
          /*<<camlinternalFormat.ml:1210:4>>*/ return [0,
                 [1, sub_fmtty_rest$2],
-                fmt$1];
+                fmt$1] /*<<camlinternalFormat.ml:1210:4>>*/ ;
        }
        break;
       case 2:
@@ -17562,7 +17806,7 @@
          sub_fmtty_rest$4 = match$1[1];
          /*<<camlinternalFormat.ml:1214:4>>*/ return [0,
                 [2, sub_fmtty_rest$4],
-                fmt$2];
+                fmt$2] /*<<camlinternalFormat.ml:1214:4>>*/ ;
        }
        break;
       case 3:
@@ -17577,7 +17821,7 @@
          sub_fmtty_rest$6 = match$2[1];
          /*<<camlinternalFormat.ml:1218:4>>*/ return [0,
                 [3, sub_fmtty_rest$6],
-                fmt$3];
+                fmt$3] /*<<camlinternalFormat.ml:1218:4>>*/ ;
        }
        break;
       case 4:
@@ -17592,7 +17836,7 @@
          sub_fmtty_rest$8 = match$3[1];
          /*<<camlinternalFormat.ml:1222:4>>*/ return [0,
                 [4, sub_fmtty_rest$8],
-                fmt$4];
+                fmt$4] /*<<camlinternalFormat.ml:1222:4>>*/ ;
        }
        break;
       case 5:
@@ -17607,7 +17851,7 @@
          sub_fmtty_rest$10 = match$4[1];
          /*<<camlinternalFormat.ml:1226:4>>*/ return [0,
                 [5, sub_fmtty_rest$10],
-                fmt$5];
+                fmt$5] /*<<camlinternalFormat.ml:1226:4>>*/ ;
        }
        break;
       case 6:
@@ -17622,7 +17866,7 @@
          sub_fmtty_rest$12 = match$5[1];
          /*<<camlinternalFormat.ml:1230:4>>*/ return [0,
                 [6, sub_fmtty_rest$12],
-                fmt$6];
+                fmt$6] /*<<camlinternalFormat.ml:1230:4>>*/ ;
        }
        break;
       case 7:
@@ -17637,7 +17881,7 @@
          sub_fmtty_rest$14 = match$6[1];
          /*<<camlinternalFormat.ml:1234:4>>*/ return [0,
                 [7, sub_fmtty_rest$14],
-                fmt$7];
+                fmt$7] /*<<camlinternalFormat.ml:1234:4>>*/ ;
        }
        break;
       case 8:
@@ -17661,7 +17905,7 @@
          sub_fmtty_rest$16 = match$7[1];
          /*<<camlinternalFormat.ml:1257:4>>*/ return [0,
                 [8, sub2_fmtty, sub_fmtty_rest$16],
-                fmt$8];
+                fmt$8] /*<<camlinternalFormat.ml:1257:4>>*/ ;
        }
        break;
       case 9:
@@ -17729,7 +17973,7 @@
          sub_fmtty_rest$18 = match$9[1];
          /*<<camlinternalFormat.ml:1272:4>>*/ return [0,
                 [9, sub1_fmtty, sub2_fmtty$1, symm(sub_fmtty_rest$18)],
-                fmt$9];
+                fmt$9] /*<<camlinternalFormat.ml:1272:4>>*/ ;
        }
        break;
       case 10:
@@ -17744,7 +17988,7 @@
          sub_fmtty_rest$20 = match$10[1];
          /*<<camlinternalFormat.ml:1238:4>>*/ return [0,
                 [10, sub_fmtty_rest$20],
-                fmt$10];
+                fmt$10] /*<<camlinternalFormat.ml:1238:4>>*/ ;
        }
        break;
       case 11:
@@ -17759,7 +18003,7 @@
          sub_fmtty_rest$22 = match$11[1];
          /*<<camlinternalFormat.ml:1242:4>>*/ return [0,
                 [11, sub_fmtty_rest$22],
-                fmt$11];
+                fmt$11] /*<<camlinternalFormat.ml:1242:4>>*/ ;
        }
        break;
       case 13:
@@ -17774,7 +18018,7 @@
          sub_fmtty_rest$24 = match$12[1];
          /*<<camlinternalFormat.ml:1246:4>>*/ return [0,
                 [13, sub_fmtty_rest$24],
-                fmt$12];
+                fmt$12] /*<<camlinternalFormat.ml:1246:4>>*/ ;
        }
        break;
       case 14:
@@ -17789,7 +18033,7 @@
          sub_fmtty_rest$26 = match$13[1];
          /*<<camlinternalFormat.ml:1250:4>>*/ return [0,
                 [14, sub_fmtty_rest$26],
-                fmt$13];
+                fmt$13] /*<<camlinternalFormat.ml:1250:4>>*/ ;
        }
        break;
     }
@@ -17803,7 +18047,7 @@
               /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
                /*<<camlinternalFormat.ml:1312:18>>*/ (CamlinternalFormatBasics
                 [2],
-               _cv_));
+               _cv_)) /*<<camlinternalFormat.ml:1312:42>>*/ ;
     /*<<camlinternalFormat.ml:1312:42>>*/ }
    function fix_padding(padty, width, str){
     var
@@ -17812,7 +18056,8 @@
      width$0 =
         /*<<camlinternalFormat.ml:1321:4>>*/  /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1
          /*<<camlinternalFormat.ml:1321:4>>*/ (Stdlib[18], width);
-    if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
+    if(width$0 <= len)
+      /*<<camlinternalFormat.ml:1332:23>>*/ return str /*<<camlinternalFormat.ml:1332:23>>*/ ;
     var
      _cu_ = 2 === padty$0 ? 48 : 32,
      res =
@@ -17914,7 +18159,7 @@
          len);
     }
      /*<<camlinternalFormat.ml:1346:4>>*/ return  /*<<camlinternalFormat.ml:1346:4>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1346:4>>*/ (Stdlib_Bytes[44], res);
+             /*<<camlinternalFormat.ml:1346:4>>*/ (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1346:30>>*/ ;
     /*<<camlinternalFormat.ml:1346:30>>*/ }
    function fix_int_precision(prec, str){
     var
@@ -17969,7 +18214,7 @@
               len - 2 | 0);
              /*<<camlinternalFormat.ml:1361:4>>*/ return  /*<<camlinternalFormat.ml:1361:4>>*/ caml_call1
                      /*<<camlinternalFormat.ml:1361:4>>*/ (Stdlib_Bytes[44],
-                     res$1);
+                     res$1) /*<<camlinternalFormat.ml:1368:7>>*/ ;
            }
            break b;
           case 0:
@@ -17998,7 +18243,7 @@
          (prec$0 - len | 0) + 2 | 0,
          len - 1 | 0);
         /*<<camlinternalFormat.ml:1356:4>>*/ return  /*<<camlinternalFormat.ml:1356:4>>*/ caml_call1
-                /*<<camlinternalFormat.ml:1356:4>>*/ (Stdlib_Bytes[44], res$0);
+                /*<<camlinternalFormat.ml:1356:4>>*/ (Stdlib_Bytes[44], res$0) /*<<camlinternalFormat.ml:1368:7>>*/ ;
       }
       if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
      }
@@ -18015,10 +18260,10 @@
         prec$0 - len | 0,
         len);
        /*<<camlinternalFormat.ml:1365:4>>*/ return  /*<<camlinternalFormat.ml:1365:4>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1365:4>>*/ (Stdlib_Bytes[44], res);
+               /*<<camlinternalFormat.ml:1365:4>>*/ (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1368:7>>*/ ;
      }
     }
-     /*<<camlinternalFormat.ml:1368:4>>*/ return str;
+     /*<<camlinternalFormat.ml:1368:4>>*/ return str /*<<camlinternalFormat.ml:1368:4>>*/ ;
     /*<<camlinternalFormat.ml:1368:7>>*/ }
    function string_to_caml_string(str){
     var
@@ -18036,7 +18281,7 @@
      /*<<camlinternalFormat.ml:1375:2>>*/  /*<<camlinternalFormat.ml:1375:2>>*/ caml_blit_string
       /*<<camlinternalFormat.ml:1375:2>>*/ (str$0, 0, res, 1, l);
      /*<<camlinternalFormat.ml:1375:2>>*/ return  /*<<camlinternalFormat.ml:1375:2>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1375:2>>*/ (Stdlib_Bytes[44], res);
+             /*<<camlinternalFormat.ml:1375:2>>*/ (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1376:28>>*/ ;
     /*<<camlinternalFormat.ml:1376:28>>*/ }
    function format_of_fconv(fconv, prec){
     var
@@ -18053,11 +18298,11 @@
        /*<<camlinternalFormat.ml:1420:26>>*/ caml_call1
         /*<<camlinternalFormat.ml:1420:26>>*/ (Stdlib_Int[12], prec$0));
      /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char(buf, symb);
-     /*<<camlinternalFormat.ml:1421:4>>*/ return buffer_contents(buf);
+     /*<<camlinternalFormat.ml:1421:4>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
     /*<<camlinternalFormat.ml:1422:23>>*/ }
    function transform_int_alt(iconv, s){
      /*<<camlinternalFormat.ml:1425:2>>*/ if(13 > iconv)
-      /*<<camlinternalFormat.ml:1447:9>>*/ return s;
+      /*<<camlinternalFormat.ml:1447:9>>*/ return s /*<<camlinternalFormat.ml:1447:9>>*/ ;
     var
      n =  /*<<camlinternalFormat.ml:1428:14>>*/ [0, 0],
      _cp_ = caml_ml_string_length(s) - 1 | 0,
@@ -18110,7 +18355,7 @@
      }
     }
      /*<<camlinternalFormat.ml:1446:4>>*/ return  /*<<camlinternalFormat.ml:1446:4>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1446:4>>*/ (Stdlib_Bytes[44], buf);
+             /*<<camlinternalFormat.ml:1446:4>>*/ (Stdlib_Bytes[44], buf) /*<<camlinternalFormat.ml:1447:10>>*/ ;
     /*<<camlinternalFormat.ml:1447:10>>*/ }
    function convert_int(iconv, n){
      /*<<camlinternalFormat.ml:1451:2>>*/ switch(iconv){
@@ -18145,7 +18390,7 @@
      /*<<camlinternalFormat.ml:1451:26>>*/ return transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1451:26>>*/ (_cn_, n));
+               /*<<camlinternalFormat.ml:1451:26>>*/ (_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
     /*<<camlinternalFormat.ml:1451:64>>*/ }
    function convert_int32(iconv, n){
      /*<<camlinternalFormat.ml:1453:2>>*/ switch(iconv){
@@ -18180,7 +18425,7 @@
      /*<<camlinternalFormat.ml:1453:26>>*/ return transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1453:26>>*/ (_cm_, n));
+               /*<<camlinternalFormat.ml:1453:26>>*/ (_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
     /*<<camlinternalFormat.ml:1453:67>>*/ }
    function convert_nativeint(iconv, n){
      /*<<camlinternalFormat.ml:1455:2>>*/ switch(iconv){
@@ -18215,7 +18460,7 @@
      /*<<camlinternalFormat.ml:1455:26>>*/ return transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1455:26>>*/ (_cl_, n));
+               /*<<camlinternalFormat.ml:1455:26>>*/ (_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
     /*<<camlinternalFormat.ml:1455:71>>*/ }
    function convert_int64(iconv, n){
      /*<<camlinternalFormat.ml:1457:2>>*/ switch(iconv){
@@ -18250,7 +18495,7 @@
      /*<<camlinternalFormat.ml:1457:26>>*/ return transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1457:26>>*/ runtime.caml_int64_format
-               /*<<camlinternalFormat.ml:1457:26>>*/ (_ck_, n));
+               /*<<camlinternalFormat.ml:1457:26>>*/ (_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
     /*<<camlinternalFormat.ml:1457:67>>*/ }
    function convert_float(fconv, prec, x){
     function hex(param){
@@ -18262,7 +18507,7 @@
        default: var sign = 32;
      }
       /*<<camlinternalFormat.ml:1468:4>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
-              /*<<camlinternalFormat.ml:1468:4>>*/ (x, prec, sign);
+              /*<<camlinternalFormat.ml:1468:4>>*/ (x, prec, sign) /*<<camlinternalFormat.ml:1468:34>>*/ ;
      /*<<camlinternalFormat.ml:1468:34>>*/ }
     function caml_special_val(str){
      var
@@ -18271,7 +18516,7 @@
           /*<<camlinternalFormat.ml:1477:35>>*/ (x);
      return 3 === match
              ? x < 0. ? cst_neg_infinity : cst_infinity
-             : 4 <= match ? cst_nan : str;
+             : 4 <= match ? cst_nan : str /*<<camlinternalFormat.ml:1480:21>>*/ ;
      /*<<camlinternalFormat.ml:1480:21>>*/ }
     switch(fconv[2]){
       case 5:
@@ -18311,42 +18556,42 @@
             ? str
             :  /*<<camlinternalFormat.ml:1476:32>>*/ caml_call2
                /*<<camlinternalFormat.ml:1476:32>>*/ (Stdlib[28], str, cst$17);
-         /*<<camlinternalFormat.ml:1487:21>>*/ return caml_special_val(_ci_);
+         /*<<camlinternalFormat.ml:1487:21>>*/ return caml_special_val(_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
        }
       case 6:
-        /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0);
+        /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 7:
        var _cj_ =  /*<<camlinternalFormat.ml:1483:38>>*/ hex(0);
         /*<<camlinternalFormat.ml:1483:38>>*/ return  /*<<camlinternalFormat.ml:1483:38>>*/ caml_call1
                 /*<<camlinternalFormat.ml:1483:38>>*/ (Stdlib_String[26],
-                _cj_);
+                _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 8:
-        /*<<camlinternalFormat.ml:1484:33>>*/ return caml_special_val(hex(0));
+        /*<<camlinternalFormat.ml:1484:33>>*/ return caml_special_val(hex(0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       default:
         /*<<camlinternalFormat.ml:1489:4>>*/ return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
                 /*<<camlinternalFormat.ml:1489:4>>*/ (format_of_fconv
                  (fconv, prec),
-                x);
+                x) /*<<camlinternalFormat.ml:1489:47>>*/ ;
     }
     /*<<camlinternalFormat.ml:1489:47>>*/ }
    function string_of_fmtty(fmtty){
     var buf =  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create(16);
      /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty(buf, fmtty);
-     /*<<camlinternalFormat.ml:1502:2>>*/ return buffer_contents(buf);
+     /*<<camlinternalFormat.ml:1502:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
     /*<<camlinternalFormat.ml:1503:21>>*/ }
    function make_printf$0(counter, k, acc, fmt){
     var k$0 = k, acc$0 = acc, fmt$0 = fmt;
      /*<<camlinternalFormat.ml:1518:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1605:4>>*/ return  /*<<camlinternalFormat.ml:1605:4>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1605:4>>*/ (k$0, acc$0);
+               /*<<camlinternalFormat.ml:1605:4>>*/ (k$0, acc$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1521:20>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
-                 (k$0, new_acc, rest); /*<<camlinternalFormat.ml:1522:32>>*/ };
+                 (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ; /*<<camlinternalFormat.ml:1522:32>>*/ } /*<<camlinternalFormat.ml:1520:4>>*/ ;
        case 1:
         var rest$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1524:4>>*/ return function(c){
@@ -18371,7 +18616,7 @@
               /*<<camlinternalFormat.ml:1496:2>>*/ caml_call1
                /*<<camlinternalFormat.ml:1496:2>>*/ (Stdlib_Bytes[44], res)];
           /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
-                 (k$0, new_acc, rest$0); /*<<camlinternalFormat.ml:1526:32>>*/ };
+                 (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ; /*<<camlinternalFormat.ml:1526:32>>*/ } /*<<camlinternalFormat.ml:1524:4>>*/ ;
        case 2:
         var rest$1 = fmt$0[2], pad = fmt$0[1];
          /*<<camlinternalFormat.ml:1528:32>>*/ return make_padding
@@ -18380,12 +18625,12 @@
                  rest$1,
                  pad,
                  function(str){
-                   /*<<camlinternalFormat.ml:1528:44>>*/ return str;
-                  /*<<camlinternalFormat.ml:1528:47>>*/ });
+                   /*<<camlinternalFormat.ml:1528:44>>*/ return str /*<<camlinternalFormat.ml:1528:44>>*/ ;
+                  /*<<camlinternalFormat.ml:1528:47>>*/ }) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 3:
         var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1530:4>>*/ return make_padding
-                (k$0, acc$0, rest$2, pad$0, string_to_caml_string);
+                (k$0, acc$0, rest$2, pad$0, string_to_caml_string) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 4:
         var
          rest$3 = fmt$0[4],
@@ -18393,7 +18638,7 @@
          pad$1 = fmt$0[2],
          iconv = fmt$0[1];
          /*<<camlinternalFormat.ml:1532:4>>*/ return make_int_padding_precision
-                (k$0, acc$0, rest$3, pad$1, prec, convert_int, iconv);
+                (k$0, acc$0, rest$3, pad$1, prec, convert_int, iconv) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 5:
         var
          rest$4 = fmt$0[4],
@@ -18401,7 +18646,7 @@
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1534:4>>*/ return make_int_padding_precision
-                (k$0, acc$0, rest$4, pad$2, prec$0, convert_int32, iconv$0);
+                (k$0, acc$0, rest$4, pad$2, prec$0, convert_int32, iconv$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 6:
         var
          rest$5 = fmt$0[4],
@@ -18415,7 +18660,7 @@
                  pad$3,
                  prec$1,
                  convert_nativeint,
-                 iconv$1);
+                 iconv$1) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 7:
         var
          rest$6 = fmt$0[4],
@@ -18423,7 +18668,7 @@
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1];
          /*<<camlinternalFormat.ml:1538:4>>*/ return make_int_padding_precision
-                (k$0, acc$0, rest$6, pad$4, prec$2, convert_int64, iconv$2);
+                (k$0, acc$0, rest$6, pad$4, prec$2, convert_int64, iconv$2) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 8:
         var
          rest$7 = fmt$0[4],
@@ -18440,7 +18685,7 @@
                         /*<<camlinternalFormat.ml:1746:16>>*/ convert_float
                         (fconv, p, x);
                      /*<<camlinternalFormat.ml:1747:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str], rest$7);
+                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1747:52>>*/ ;
                     /*<<camlinternalFormat.ml:1747:52>>*/ }
                   : function
                    (x){
@@ -18449,15 +18694,15 @@
                         /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
                         (fconv, default_float_precision(fconv), x);
                      /*<<camlinternalFormat.ml:1739:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str], rest$7);
-                    /*<<camlinternalFormat.ml:1739:52>>*/ };
+                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1739:52>>*/ ;
+                    /*<<camlinternalFormat.ml:1739:52>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
          var p = prec$3[1];
           /*<<camlinternalFormat.ml:1741:4>>*/ return function(x){
           var
            str =
               /*<<camlinternalFormat.ml:1742:16>>*/ convert_float(fconv, p, x);
            /*<<camlinternalFormat.ml:1743:6>>*/ return make_printf
-                  (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1743:52>>*/ };
+                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1743:52>>*/ ; /*<<camlinternalFormat.ml:1743:52>>*/ } /*<<camlinternalFormat.ml:1741:4>>*/ ;
         }
         if(0 === pad$5[0]){
          var w = pad$5[2], padty = pad$5[1];
@@ -18470,7 +18715,7 @@
                         /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
                         (padty, w, convert_float(fconv, p, x));
                      /*<<camlinternalFormat.ml:1760:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str], rest$7);
+                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1760:52>>*/ ;
                     /*<<camlinternalFormat.ml:1760:52>>*/ }
                   : function
                    (x){
@@ -18482,8 +18727,8 @@
                         /*<<camlinternalFormat.ml:1751:17>>*/ fix_padding
                         (padty, w, str);
                      /*<<camlinternalFormat.ml:1752:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str$0], rest$7);
-                    /*<<camlinternalFormat.ml:1752:53>>*/ };
+                            (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1752:53>>*/ ;
+                    /*<<camlinternalFormat.ml:1752:53>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
          var p$0 = prec$3[1];
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
           var
@@ -18491,7 +18736,7 @@
               /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
               (padty, w, convert_float(fconv, p$0, x));
            /*<<camlinternalFormat.ml:1756:6>>*/ return make_printf
-                  (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1756:52>>*/ };
+                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1756:52>>*/ ; /*<<camlinternalFormat.ml:1756:52>>*/ } /*<<camlinternalFormat.ml:1754:4>>*/ ;
         }
         var padty$0 = pad$5[1];
         if(typeof prec$3 === "number")
@@ -18503,7 +18748,7 @@
                        /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
                        (padty$0, w, convert_float(fconv, p, x));
                     /*<<camlinternalFormat.ml:1773:6>>*/ return make_printf
-                           (k$0, [4, acc$0, str], rest$7);
+                           (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1773:52>>*/ ;
                    /*<<camlinternalFormat.ml:1773:52>>*/ }
                  : function
                   (w, x){
@@ -18515,8 +18760,8 @@
                        /*<<camlinternalFormat.ml:1764:17>>*/ fix_padding
                        (padty$0, w, str);
                     /*<<camlinternalFormat.ml:1765:6>>*/ return make_printf
-                           (k$0, [4, acc$0, str$0], rest$7);
-                   /*<<camlinternalFormat.ml:1765:53>>*/ };
+                           (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1765:53>>*/ ;
+                   /*<<camlinternalFormat.ml:1765:53>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var p$1 = prec$3[1];
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
          var
@@ -18524,11 +18769,11 @@
              /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
              (padty$0, w, convert_float(fconv, p$1, x));
           /*<<camlinternalFormat.ml:1769:6>>*/ return make_printf
-                 (k$0, [4, acc$0, str], rest$7); /*<<camlinternalFormat.ml:1769:52>>*/ };
+                 (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1769:52>>*/ ; /*<<camlinternalFormat.ml:1769:52>>*/ } /*<<camlinternalFormat.ml:1767:4>>*/ ;
        case 9:
         var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
          /*<<camlinternalFormat.ml:1542:4>>*/ return make_padding
-                (k$0, acc$0, rest$8, pad$6, Stdlib[30]);
+                (k$0, acc$0, rest$8, pad$6, Stdlib[30]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 10:
         var
          rest$9 = fmt$0[1],
@@ -18560,7 +18805,7 @@
             /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
          /*<<camlinternalFormat.ml:1569:4>>*/ return function(str){
           /*<<camlinternalFormat.ml:1570:6>>*/ return make_printf
-                 (k$0, [4, acc$0, ty], rest$12); /*<<camlinternalFormat.ml:1571:52>>*/ };
+                 (k$0, [4, acc$0, ty], rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ; /*<<camlinternalFormat.ml:1571:52>>*/ } /*<<camlinternalFormat.ml:1569:4>>*/ ;
        case 14:
         var rest$13 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1573:4>>*/ return function(param){
@@ -18574,7 +18819,7 @@
                     /*<<camlinternalFormat.ml:1574:6>>*/ (CamlinternalFormatBasics
                      [3],
                     _cf_,
-                    rest$13)); /*<<camlinternalFormat.ml:1574:42>>*/ };
+                    rest$13)) /*<<camlinternalFormat.ml:1574:42>>*/ ; /*<<camlinternalFormat.ml:1574:42>>*/ } /*<<camlinternalFormat.ml:1573:4>>*/ ;
        case 15:
         var rest$14 = fmt$0[1];
          /*<<camlinternalFormat.ml:1544:4>>*/ return function(f, x){
@@ -18584,14 +18829,14 @@
                    acc$0,
                    function(o){
                      /*<<camlinternalFormat.ml:1544:55>>*/ return caml_call2
-                            (f, o, x);
+                            (f, o, x) /*<<camlinternalFormat.ml:1544:60>>*/ ;
                     /*<<camlinternalFormat.ml:1544:60>>*/ }],
-                  rest$14); /*<<camlinternalFormat.ml:1544:67>>*/ };
+                  rest$14) /*<<camlinternalFormat.ml:1544:67>>*/ ; /*<<camlinternalFormat.ml:1544:67>>*/ } /*<<camlinternalFormat.ml:1544:4>>*/ ;
        case 16:
         var rest$15 = fmt$0[1];
          /*<<camlinternalFormat.ml:1546:4>>*/ return function(f){
           /*<<camlinternalFormat.ml:1546:13>>*/ return make_printf
-                 (k$0, [6, acc$0, f], rest$15); /*<<camlinternalFormat.ml:1546:52>>*/ };
+                 (k$0, [6, acc$0, f], rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ; /*<<camlinternalFormat.ml:1546:52>>*/ } /*<<camlinternalFormat.ml:1546:4>>*/ ;
        case 17:
         var
          rest$16 = fmt$0[2],
@@ -18609,7 +18854,7 @@
           k$1 =
             function(kacc){
               /*<<camlinternalFormat.ml:1597:6>>*/ return make_printf
-                     (k, [1, acc, [0, kacc]], rest);
+                     (k, [1, acc, [0, kacc]], rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
              /*<<camlinternalFormat.ml:1597:70>>*/ };
          k$0 = k$1;
          acc$0 = 0;
@@ -18622,7 +18867,7 @@
           k$2 =
             function(kacc){
               /*<<camlinternalFormat.ml:1601:6>>*/ return make_printf
-                     (k, [1, acc, [1, kacc]], rest);
+                     (k, [1, acc, [1, kacc]], rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
              /*<<camlinternalFormat.ml:1601:70>>*/ };
          k$0 = k$2;
          acc$0 = 0;
@@ -18642,7 +18887,7 @@
             cst_Printf_bad_conversion];
          /*<<camlinternalFormat.ml:1578:4>>*/ return function(param){
           /*<<camlinternalFormat.ml:1578:13>>*/ return make_printf
-                 (k$0, new_acc, rest$19); /*<<camlinternalFormat.ml:1578:39>>*/ };
+                 (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ; /*<<camlinternalFormat.ml:1578:39>>*/ } /*<<camlinternalFormat.ml:1578:4>>*/ ;
        case 21:
         var rest$20 = fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
@@ -18653,22 +18898,22 @@
               /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
                /*<<camlinternalFormat.ml:1584:42>>*/ (cst_u$0, n)];
           /*<<camlinternalFormat.ml:1585:6>>*/ return make_printf
-                 (k$0, new_acc, rest$20); /*<<camlinternalFormat.ml:1585:32>>*/ };
+                 (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ; /*<<camlinternalFormat.ml:1585:32>>*/ } /*<<camlinternalFormat.ml:1583:4>>*/ ;
        case 22:
         var rest$21 = fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1588:20>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
-                 (k$0, new_acc, rest$21); /*<<camlinternalFormat.ml:1589:32>>*/ };
+                 (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ; /*<<camlinternalFormat.ml:1589:32>>*/ } /*<<camlinternalFormat.ml:1587:4>>*/ ;
        case 23:
         var rest$22 = fmt$0[2], ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1591:4>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1591:4>>*/ return  /*<<camlinternalFormat.ml:1591:4>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1591:4>>*/ (make_ignored_param$0,
-                  [0, k$0, acc$0, ign, rest$22]);
+                  [0, k$0, acc$0, ign, rest$22]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$1 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1591:4>>*/ return make_ignored_param$0
-                (counter$1, k$0, acc$0, ign, rest$22);
+                (counter$1, k$0, acc$0, ign, rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        default:
         var
          rest$23 = fmt$0[3],
@@ -18680,10 +18925,10 @@
          /*<<camlinternalFormat.ml:1548:33>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1548:33>>*/ return  /*<<camlinternalFormat.ml:1548:33>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1548:33>>*/ (make_custom$0,
-                  [0, k$0, acc$0, rest$23, arity, _ce_]);
+                  [0, k$0, acc$0, rest$23, arity, _ce_]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$0 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1548:33>>*/ return make_custom$0
-                (counter$0, k$0, acc$0, rest$23, arity, _ce_);
+                (counter$0, k$0, acc$0, rest$23, arity, _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1605:9>>*/ }
@@ -18697,18 +18942,18 @@
          /*<<camlinternalFormat.ml:1614:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1614:39>>*/ return  /*<<camlinternalFormat.ml:1614:39>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1614:39>>*/ (make_invalid_arg,
-                  [0, k, acc, fmt]);
+                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$0 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1614:39>>*/ return make_invalid_arg
-                (counter$0, k, acc, fmt);
+                (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 1:
          /*<<camlinternalFormat.ml:1615:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1615:39>>*/ return  /*<<camlinternalFormat.ml:1615:39>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1615:39>>*/ (make_invalid_arg,
-                  [0, k, acc, fmt]);
+                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$1 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1615:39>>*/ return make_invalid_arg
-                (counter$1, k, acc, fmt);
+                (counter$1, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 2:
          /*<<camlinternalFormat.ml:1626:39>>*/ throw  /*<<camlinternalFormat.ml:1626:39>>*/ caml_maybe_attach_backtrace
                 /*<<camlinternalFormat.ml:1626:39>>*/ ([0,
@@ -18719,109 +18964,109 @@
          /*<<camlinternalFormat.ml:1629:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1629:39>>*/ return  /*<<camlinternalFormat.ml:1629:39>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1629:39>>*/ (make_invalid_arg,
-                  [0, k, acc, fmt]);
+                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$2 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1629:39>>*/ return make_invalid_arg
-                (counter$2, k, acc, fmt);
+                (counter$2, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
      }
     switch(ign[0]){
       case 0:
         /*<<camlinternalFormat.ml:1616:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1616:39>>*/ return  /*<<camlinternalFormat.ml:1616:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1616:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$3 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1616:39>>*/ return make_invalid_arg
-               (counter$3, k, acc, fmt);
+               (counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 1:
         /*<<camlinternalFormat.ml:1617:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1617:39>>*/ return  /*<<camlinternalFormat.ml:1617:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1617:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$4 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1617:39>>*/ return make_invalid_arg
-               (counter$4, k, acc, fmt);
+               (counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 2:
         /*<<camlinternalFormat.ml:1618:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1618:39>>*/ return  /*<<camlinternalFormat.ml:1618:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1618:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$5 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1618:39>>*/ return make_invalid_arg
-               (counter$5, k, acc, fmt);
+               (counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 3:
         /*<<camlinternalFormat.ml:1619:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1619:39>>*/ return  /*<<camlinternalFormat.ml:1619:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1619:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$6 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1619:39>>*/ return make_invalid_arg
-               (counter$6, k, acc, fmt);
+               (counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 4:
         /*<<camlinternalFormat.ml:1620:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1620:39>>*/ return  /*<<camlinternalFormat.ml:1620:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1620:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$7 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1620:39>>*/ return make_invalid_arg
-               (counter$7, k, acc, fmt);
+               (counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 5:
         /*<<camlinternalFormat.ml:1621:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1621:39>>*/ return  /*<<camlinternalFormat.ml:1621:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1621:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$8 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1621:39>>*/ return make_invalid_arg
-               (counter$8, k, acc, fmt);
+               (counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 6:
         /*<<camlinternalFormat.ml:1622:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1622:39>>*/ return  /*<<camlinternalFormat.ml:1622:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1622:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$9 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1622:39>>*/ return make_invalid_arg
-               (counter$9, k, acc, fmt);
+               (counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 7:
         /*<<camlinternalFormat.ml:1623:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1623:39>>*/ return  /*<<camlinternalFormat.ml:1623:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1623:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$10 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1623:39>>*/ return make_invalid_arg
-               (counter$10, k, acc, fmt);
+               (counter$10, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 8:
         /*<<camlinternalFormat.ml:1624:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1624:39>>*/ return  /*<<camlinternalFormat.ml:1624:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1624:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$11 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1624:39>>*/ return make_invalid_arg
-               (counter$11, k, acc, fmt);
+               (counter$11, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 9:
        var fmtty = ign[2];
         /*<<camlinternalFormat.ml:1625:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1625:39>>*/ return  /*<<camlinternalFormat.ml:1625:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1625:39>>*/ (make_from_fmtty$0,
-                 [0, k, acc, fmtty, fmt]);
+                 [0, k, acc, fmtty, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$14 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1625:39>>*/ return make_from_fmtty$0
-               (counter$14, k, acc, fmtty, fmt);
+               (counter$14, k, acc, fmtty, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 10:
         /*<<camlinternalFormat.ml:1627:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1627:39>>*/ return  /*<<camlinternalFormat.ml:1627:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1627:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$12 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1627:39>>*/ return make_invalid_arg
-               (counter$12, k, acc, fmt);
+               (counter$12, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       default:
         /*<<camlinternalFormat.ml:1628:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1628:39>>*/ return  /*<<camlinternalFormat.ml:1628:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1628:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]);
+                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$13 = counter + 1 | 0;
         /*<<camlinternalFormat.ml:1628:39>>*/ return make_invalid_arg
-               (counter$13, k, acc, fmt);
+               (counter$13, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
     }
     /*<<camlinternalFormat.ml:1629:65>>*/ }
    function make_ignored_param(k, acc, ign, fmt){
@@ -18835,47 +19080,47 @@
         var rest = fmtty[1];
          /*<<camlinternalFormat.ml:1638:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1638:40>>*/ return make_from_fmtty
-                 (k, acc, rest, fmt); /*<<camlinternalFormat.ml:1638:70>>*/ };
+                 (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ; /*<<camlinternalFormat.ml:1638:70>>*/ } /*<<camlinternalFormat.ml:1638:31>>*/ ;
        case 1:
         var rest$0 = fmtty[1];
          /*<<camlinternalFormat.ml:1639:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1639:40>>*/ return make_from_fmtty
-                 (k, acc, rest$0, fmt); /*<<camlinternalFormat.ml:1639:70>>*/ };
+                 (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ; /*<<camlinternalFormat.ml:1639:70>>*/ } /*<<camlinternalFormat.ml:1639:31>>*/ ;
        case 2:
         var rest$1 = fmtty[1];
          /*<<camlinternalFormat.ml:1640:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1640:40>>*/ return make_from_fmtty
-                 (k, acc, rest$1, fmt); /*<<camlinternalFormat.ml:1640:70>>*/ };
+                 (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ; /*<<camlinternalFormat.ml:1640:70>>*/ } /*<<camlinternalFormat.ml:1640:31>>*/ ;
        case 3:
         var rest$2 = fmtty[1];
          /*<<camlinternalFormat.ml:1641:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1641:40>>*/ return make_from_fmtty
-                 (k, acc, rest$2, fmt); /*<<camlinternalFormat.ml:1641:70>>*/ };
+                 (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ; /*<<camlinternalFormat.ml:1641:70>>*/ } /*<<camlinternalFormat.ml:1641:31>>*/ ;
        case 4:
         var rest$3 = fmtty[1];
          /*<<camlinternalFormat.ml:1642:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1642:40>>*/ return make_from_fmtty
-                 (k, acc, rest$3, fmt); /*<<camlinternalFormat.ml:1642:70>>*/ };
+                 (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ; /*<<camlinternalFormat.ml:1642:70>>*/ } /*<<camlinternalFormat.ml:1642:31>>*/ ;
        case 5:
         var rest$4 = fmtty[1];
          /*<<camlinternalFormat.ml:1643:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1643:40>>*/ return make_from_fmtty
-                 (k, acc, rest$4, fmt); /*<<camlinternalFormat.ml:1643:70>>*/ };
+                 (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ; /*<<camlinternalFormat.ml:1643:70>>*/ } /*<<camlinternalFormat.ml:1643:31>>*/ ;
        case 6:
         var rest$5 = fmtty[1];
          /*<<camlinternalFormat.ml:1644:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1644:40>>*/ return make_from_fmtty
-                 (k, acc, rest$5, fmt); /*<<camlinternalFormat.ml:1644:70>>*/ };
+                 (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ; /*<<camlinternalFormat.ml:1644:70>>*/ } /*<<camlinternalFormat.ml:1644:31>>*/ ;
        case 7:
         var rest$6 = fmtty[1];
          /*<<camlinternalFormat.ml:1645:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1645:40>>*/ return make_from_fmtty
-                 (k, acc, rest$6, fmt); /*<<camlinternalFormat.ml:1645:70>>*/ };
+                 (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ; /*<<camlinternalFormat.ml:1645:70>>*/ } /*<<camlinternalFormat.ml:1645:31>>*/ ;
        case 8:
         var rest$7 = fmtty[2];
          /*<<camlinternalFormat.ml:1651:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1651:40>>*/ return make_from_fmtty
-                 (k, acc, rest$7, fmt); /*<<camlinternalFormat.ml:1651:70>>*/ };
+                 (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ; /*<<camlinternalFormat.ml:1651:70>>*/ } /*<<camlinternalFormat.ml:1651:31>>*/ ;
        case 9:
         var
          rest$8 = fmtty[3],
@@ -18891,22 +19136,22 @@
                      [1],
                     ty,
                     rest$8),
-                  fmt); /*<<camlinternalFormat.ml:1655:61>>*/ };
+                  fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ; /*<<camlinternalFormat.ml:1655:61>>*/ } /*<<camlinternalFormat.ml:1655:4>>*/ ;
        case 10:
         var rest$9 = fmtty[1];
          /*<<camlinternalFormat.ml:1646:31>>*/ return function(_cc_, param){
           /*<<camlinternalFormat.ml:1646:42>>*/ return make_from_fmtty
-                 (k, acc, rest$9, fmt); /*<<camlinternalFormat.ml:1646:72>>*/ };
+                 (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ; /*<<camlinternalFormat.ml:1646:72>>*/ } /*<<camlinternalFormat.ml:1646:31>>*/ ;
        case 11:
         var rest$10 = fmtty[1];
          /*<<camlinternalFormat.ml:1647:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1647:40>>*/ return make_from_fmtty
-                 (k, acc, rest$10, fmt); /*<<camlinternalFormat.ml:1647:70>>*/ };
+                 (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ; /*<<camlinternalFormat.ml:1647:70>>*/ } /*<<camlinternalFormat.ml:1647:31>>*/ ;
        case 12:
         var rest$11 = fmtty[1];
          /*<<camlinternalFormat.ml:1648:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1648:40>>*/ return make_from_fmtty
-                 (k, acc, rest$11, fmt); /*<<camlinternalFormat.ml:1648:70>>*/ };
+                 (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ; /*<<camlinternalFormat.ml:1648:70>>*/ } /*<<camlinternalFormat.ml:1648:31>>*/ ;
        case 13:
          /*<<camlinternalFormat.ml:1649:31>>*/ throw  /*<<camlinternalFormat.ml:1649:31>>*/ caml_maybe_attach_backtrace
                 /*<<camlinternalFormat.ml:1649:31>>*/ ([0,
@@ -18923,10 +19168,10 @@
      /*<<camlinternalFormat.ml:1652:31>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1652:31>>*/ return  /*<<camlinternalFormat.ml:1652:31>>*/ caml_trampoline_return
               /*<<camlinternalFormat.ml:1652:31>>*/ (make_invalid_arg,
-              [0, k, acc, fmt]);
+              [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1655:61>>*/ ;
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1652:31>>*/ return make_invalid_arg
-            (counter$0, k, acc, fmt);
+            (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
     /*<<camlinternalFormat.ml:1655:61>>*/ }
    function make_from_fmtty(k, acc, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
@@ -18941,10 +19186,10 @@
      /*<<camlinternalFormat.ml:1663:2>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ caml_trampoline_return
               /*<<camlinternalFormat.ml:1663:2>>*/ (make_printf$0,
-              [0, k, _cb_, fmt]);
+              [0, k, _cb_, fmt]) /*<<camlinternalFormat.ml:1663:72>>*/ ;
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1663:2>>*/ return make_printf$0
-            (counter$0, k, _cb_, fmt);
+            (counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
     /*<<camlinternalFormat.ml:1663:72>>*/ }
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
@@ -18956,7 +19201,7 @@
            /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1
             /*<<camlinternalFormat.ml:1673:42>>*/ (trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
-              (k, new_acc, fmt); /*<<camlinternalFormat.ml:1674:31>>*/ };
+              (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ; /*<<camlinternalFormat.ml:1674:31>>*/ } /*<<camlinternalFormat.ml:1672:4>>*/ ;
     if(0 === pad[0]){
      var width = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
@@ -18970,7 +19215,7 @@
              /*<<camlinternalFormat.ml:1677:66>>*/ caml_call1
               /*<<camlinternalFormat.ml:1677:66>>*/ (trans, x))];
        /*<<camlinternalFormat.ml:1678:6>>*/ return make_printf
-              (k, new_acc, fmt); /*<<camlinternalFormat.ml:1678:31>>*/ };
+              (k, new_acc, fmt) /*<<camlinternalFormat.ml:1678:31>>*/ ; /*<<camlinternalFormat.ml:1678:31>>*/ } /*<<camlinternalFormat.ml:1676:4>>*/ ;
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
@@ -18983,7 +19228,7 @@
            w,
             /*<<camlinternalFormat.ml:1681:62>>*/ caml_call1
              /*<<camlinternalFormat.ml:1681:62>>*/ (trans, x))];
-      /*<<camlinternalFormat.ml:1682:6>>*/ return make_printf(k, new_acc, fmt); /*<<camlinternalFormat.ml:1682:31>>*/ };
+      /*<<camlinternalFormat.ml:1682:6>>*/ return make_printf(k, new_acc, fmt) /*<<camlinternalFormat.ml:1682:31>>*/ ; /*<<camlinternalFormat.ml:1682:31>>*/ } /*<<camlinternalFormat.ml:1680:4>>*/ ;
     /*<<camlinternalFormat.ml:1682:31>>*/ }
    function make_int_padding_precision(k, acc, fmt, pad, prec, trans, iconv){
      /*<<camlinternalFormat.ml:1691:40>>*/ if(typeof pad === "number"){
@@ -18998,7 +19243,7 @@
                       /*<<camlinternalFormat.ml:1702:36>>*/ caml_call2
                        /*<<camlinternalFormat.ml:1702:36>>*/ (trans, iconv, x));
                  /*<<camlinternalFormat.ml:1703:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt);
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1703:52>>*/ ;
                 /*<<camlinternalFormat.ml:1703:52>>*/ }
               : function
                (x){
@@ -19007,8 +19252,8 @@
                     /*<<camlinternalFormat.ml:1694:16>>*/  /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
                      /*<<camlinternalFormat.ml:1694:16>>*/ (trans, iconv, x);
                  /*<<camlinternalFormat.ml:1695:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt);
-                /*<<camlinternalFormat.ml:1695:52>>*/ };
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1695:52>>*/ ;
+                /*<<camlinternalFormat.ml:1695:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
      var p = prec[1];
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
       var
@@ -19018,7 +19263,7 @@
             /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2
              /*<<camlinternalFormat.ml:1698:36>>*/ (trans, iconv, x));
        /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
-              (k, [4, acc, str], fmt); /*<<camlinternalFormat.ml:1699:52>>*/ };
+              (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1699:52>>*/ ; /*<<camlinternalFormat.ml:1699:52>>*/ } /*<<camlinternalFormat.ml:1697:4>>*/ ;
     }
     if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
@@ -19036,7 +19281,7 @@
                         /*<<camlinternalFormat.ml:1714:57>>*/ caml_call2
                          /*<<camlinternalFormat.ml:1714:57>>*/ (trans, iconv, x)));
                  /*<<camlinternalFormat.ml:1715:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt);
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1715:52>>*/ ;
                 /*<<camlinternalFormat.ml:1715:52>>*/ }
               : function
                (x){
@@ -19048,8 +19293,8 @@
                       /*<<camlinternalFormat.ml:1706:36>>*/ caml_call2
                        /*<<camlinternalFormat.ml:1706:36>>*/ (trans, iconv, x));
                  /*<<camlinternalFormat.ml:1707:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt);
-                /*<<camlinternalFormat.ml:1707:52>>*/ };
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1707:52>>*/ ;
+                /*<<camlinternalFormat.ml:1707:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
      var p$0 = prec[1];
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
       var
@@ -19062,7 +19307,7 @@
               /*<<camlinternalFormat.ml:1710:57>>*/ caml_call2
                /*<<camlinternalFormat.ml:1710:57>>*/ (trans, iconv, x)));
        /*<<camlinternalFormat.ml:1711:6>>*/ return make_printf
-              (k, [4, acc, str], fmt); /*<<camlinternalFormat.ml:1711:52>>*/ };
+              (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1711:52>>*/ ; /*<<camlinternalFormat.ml:1711:52>>*/ } /*<<camlinternalFormat.ml:1709:4>>*/ ;
     }
     var padty$0 = pad[1];
     if(typeof prec === "number")
@@ -19079,7 +19324,7 @@
                        /*<<camlinternalFormat.ml:1726:57>>*/ caml_call2
                         /*<<camlinternalFormat.ml:1726:57>>*/ (trans, iconv, x)));
                 /*<<camlinternalFormat.ml:1727:6>>*/ return make_printf
-                       (k, [4, acc, str], fmt);
+                       (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1727:52>>*/ ;
                /*<<camlinternalFormat.ml:1727:52>>*/ }
              : function
               (w, x){
@@ -19091,8 +19336,8 @@
                      /*<<camlinternalFormat.ml:1718:36>>*/ caml_call2
                       /*<<camlinternalFormat.ml:1718:36>>*/ (trans, iconv, x));
                 /*<<camlinternalFormat.ml:1719:6>>*/ return make_printf
-                       (k, [4, acc, str], fmt);
-               /*<<camlinternalFormat.ml:1719:52>>*/ };
+                       (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1719:52>>*/ ;
+               /*<<camlinternalFormat.ml:1719:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
     var p$1 = prec[1];
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
      var
@@ -19105,7 +19350,7 @@
              /*<<camlinternalFormat.ml:1722:57>>*/ caml_call2
               /*<<camlinternalFormat.ml:1722:57>>*/ (trans, iconv, x)));
       /*<<camlinternalFormat.ml:1723:6>>*/ return make_printf
-             (k, [4, acc, str], fmt); /*<<camlinternalFormat.ml:1723:52>>*/ };
+             (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1723:52>>*/ ; /*<<camlinternalFormat.ml:1723:52>>*/ } /*<<camlinternalFormat.ml:1721:4>>*/ ;
     /*<<camlinternalFormat.ml:1727:52>>*/ }
    function make_custom$0(counter, k, acc, rest, arity, f){
      /*<<camlinternalFormat.ml:1778:28>>*/ if(arity){
@@ -19117,16 +19362,16 @@
                rest,
                arity$0,
                 /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1782:35>>*/ (f, x)); /*<<camlinternalFormat.ml:1782:40>>*/ };
+                 /*<<camlinternalFormat.ml:1782:35>>*/ (f, x)) /*<<camlinternalFormat.ml:1782:40>>*/ ; /*<<camlinternalFormat.ml:1782:40>>*/ } /*<<camlinternalFormat.ml:1781:4>>*/ ;
     }
     var _ca_ =  /*<<camlinternalFormat.ml:1779:33>>*/ [4, acc, f];
      /*<<camlinternalFormat.ml:1779:19>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ caml_trampoline_return
               /*<<camlinternalFormat.ml:1779:19>>*/ (make_printf$0,
-              [0, k, _ca_, rest]);
+              [0, k, _ca_, rest]) /*<<camlinternalFormat.ml:1782:40>>*/ ;
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1779:19>>*/ return make_printf$0
-            (counter$0, k, _ca_, rest);
+            (counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
     /*<<camlinternalFormat.ml:1782:40>>*/ }
    function make_custom(k, acc, rest, arity, f){
      /*<<?>>*/ return caml_trampoline
@@ -19137,21 +19382,21 @@
      /*<<camlinternalFormat.ml:1788:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1858:8>>*/ return  /*<<camlinternalFormat.ml:1858:8>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1858:8>>*/ (k$0, o);
+               /*<<camlinternalFormat.ml:1858:8>>*/ (k$0, o) /*<<camlinternalFormat.ml:1858:11>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var
          rest = fmt$0[1],
          x =  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf(k$0, o, rest);
          /*<<camlinternalFormat.ml:1790:14>>*/ return function(_b$_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1790:14>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
          x$0 =
             /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf(k$0, o, rest$0);
          /*<<camlinternalFormat.ml:1792:14>>*/ return function(_b__){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$0 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1792:14>>*/ ;
        case 2:
         var _bM_ = fmt$0[1];
         if(typeof _bM_ === "number"){
@@ -19161,7 +19406,7 @@
              /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
              (k$0, o, rest$1);
           /*<<camlinternalFormat.ml:1794:14>>*/ return function(_b9_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;};
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$1 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1794:14>>*/ ;
         }
         if(0 === _bM_[0]){
          var
@@ -19170,7 +19415,7 @@
              /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
              (k$0, o, rest$2);
           /*<<camlinternalFormat.ml:1796:14>>*/ return function(_b8_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;};
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$2 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1796:14>>*/ ;
         }
         var
          rest$3 = fmt$0[2],
@@ -19178,10 +19423,10 @@
             /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf(k$0, o, rest$3),
          x$4 =
             /*<<camlinternalFormat.ml:1798:14>>*/ function(_b7_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$3 /*<<camlinternalFormat.ml:1784:16>>*/ ;
            };
          /*<<camlinternalFormat.ml:1798:14>>*/ return function(_b6_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$4 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1798:14>>*/ ;
        case 3:
         var _bN_ = fmt$0[1];
         if(typeof _bN_ === "number"){
@@ -19191,7 +19436,7 @@
              /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
              (k$0, o, rest$4);
           /*<<camlinternalFormat.ml:1800:14>>*/ return function(_b5_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;};
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$5 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1800:14>>*/ ;
         }
         if(0 === _bN_[0]){
          var
@@ -19200,7 +19445,7 @@
              /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
              (k$0, o, rest$5);
           /*<<camlinternalFormat.ml:1802:14>>*/ return function(_b4_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;};
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$6 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1802:14>>*/ ;
         }
         var
          rest$6 = fmt$0[2],
@@ -19208,30 +19453,30 @@
             /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf(k$0, o, rest$6),
          x$8 =
             /*<<camlinternalFormat.ml:1804:14>>*/ function(_b3_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$7 /*<<camlinternalFormat.ml:1784:16>>*/ ;
            };
          /*<<camlinternalFormat.ml:1804:14>>*/ return function(_b2_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1804:14>>*/ ;
        case 4:
         var rest$7 = fmt$0[4], prec = fmt$0[3], pad = fmt$0[2];
          /*<<camlinternalFormat.ml:1806:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$7, pad, prec);
+                (k$0, o, rest$7, pad, prec) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 5:
         var rest$8 = fmt$0[4], prec$0 = fmt$0[3], pad$0 = fmt$0[2];
          /*<<camlinternalFormat.ml:1808:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$8, pad$0, prec$0);
+                (k$0, o, rest$8, pad$0, prec$0) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 6:
         var rest$9 = fmt$0[4], prec$1 = fmt$0[3], pad$1 = fmt$0[2];
          /*<<camlinternalFormat.ml:1810:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$9, pad$1, prec$1);
+                (k$0, o, rest$9, pad$1, prec$1) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 7:
         var rest$10 = fmt$0[4], prec$2 = fmt$0[3], pad$2 = fmt$0[2];
          /*<<camlinternalFormat.ml:1812:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$10, pad$2, prec$2);
+                (k$0, o, rest$10, pad$2, prec$2) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 8:
         var rest$11 = fmt$0[4], prec$3 = fmt$0[3], pad$3 = fmt$0[2];
          /*<<camlinternalFormat.ml:1814:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$11, pad$3, prec$3);
+                (k$0, o, rest$11, pad$3, prec$3) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 9:
         var _bO_ = fmt$0[1];
         if(typeof _bO_ === "number"){
@@ -19241,7 +19486,7 @@
              /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
              (k$0, o, rest$12);
           /*<<camlinternalFormat.ml:1816:14>>*/ return function(_b1_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;};
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$9 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1816:14>>*/ ;
         }
         if(0 === _bO_[0]){
          var
@@ -19250,7 +19495,7 @@
              /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
              (k$0, o, rest$13);
           /*<<camlinternalFormat.ml:1818:14>>*/ return function(_b0_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;};
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$10 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1818:14>>*/ ;
         }
         var
          rest$14 = fmt$0[2],
@@ -19259,10 +19504,10 @@
             (k$0, o, rest$14),
          x$12 =
             /*<<camlinternalFormat.ml:1820:14>>*/ function(_bZ_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$11 /*<<camlinternalFormat.ml:1784:16>>*/ ;
            };
          /*<<camlinternalFormat.ml:1820:14>>*/ return function(_bY_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1820:14>>*/ ;
        case 10:
         var rest$15 = fmt$0[1]; fmt$0 = rest$15; break;
        case 11:
@@ -19276,7 +19521,7 @@
             /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
             (k$0, o, rest$18);
          /*<<camlinternalFormat.ml:1838:14>>*/ return function(_bX_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$13 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1838:14>>*/ ;
        case 14:
         var rest$19 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
@@ -19290,7 +19535,7 @@
                     /*<<camlinternalFormat.ml:1842:12>>*/ (CamlinternalFormatBasics
                      [3],
                     _bW_,
-                    rest$19)); /*<<camlinternalFormat.ml:1842:48>>*/ };
+                    rest$19)) /*<<camlinternalFormat.ml:1842:48>>*/ ; /*<<camlinternalFormat.ml:1842:48>>*/ } /*<<camlinternalFormat.ml:1840:8>>*/ ;
        case 15:
         var
          rest$20 = fmt$0[1],
@@ -19299,10 +19544,10 @@
             (k$0, o, rest$20),
          x$15 =
             /*<<camlinternalFormat.ml:1822:14>>*/ function(_bV_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$14;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$14 /*<<camlinternalFormat.ml:1784:16>>*/ ;
            };
          /*<<camlinternalFormat.ml:1822:14>>*/ return function(_bU_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$15 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1822:14>>*/ ;
        case 16:
         var
          rest$21 = fmt$0[1],
@@ -19310,7 +19555,7 @@
             /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
             (k$0, o, rest$21);
          /*<<camlinternalFormat.ml:1824:14>>*/ return function(_bT_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$16;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$16 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1824:14>>*/ ;
        case 17:
         var rest$22 = fmt$0[2]; fmt$0 = rest$22; break;
        case 18:
@@ -19322,7 +19567,7 @@
           k$1 =
             function(koc){
               /*<<camlinternalFormat.ml:1854:33>>*/ return make_iprintf
-                     (k, koc, rest);
+                     (k, koc, rest) /*<<camlinternalFormat.ml:1854:56>>*/ ;
              /*<<camlinternalFormat.ml:1854:56>>*/ };
          k$0 = k$1;
          fmt$0 = fmt$1;
@@ -19334,7 +19579,7 @@
           k$2 =
             function(koc){
               /*<<camlinternalFormat.ml:1856:33>>*/ return make_iprintf
-                     (k, koc, rest);
+                     (k, koc, rest) /*<<camlinternalFormat.ml:1856:56>>*/ ;
              /*<<camlinternalFormat.ml:1856:56>>*/ };
          k$0 = k$2;
          fmt$0 = fmt$2;
@@ -19351,7 +19596,7 @@
             /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
             (k$0, o, rest$25);
          /*<<camlinternalFormat.ml:1844:14>>*/ return function(_bS_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$17 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1844:14>>*/ ;
        case 21:
         var
          rest$26 = fmt$0[2],
@@ -19359,7 +19604,7 @@
             /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
             (k$0, o, rest$26);
          /*<<camlinternalFormat.ml:1846:14>>*/ return function(_bR_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$18 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1846:14>>*/ ;
        case 22:
         var
          rest$27 = fmt$0[1],
@@ -19367,26 +19612,26 @@
             /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
             (k$0, o, rest$27);
          /*<<camlinternalFormat.ml:1848:14>>*/ return function(_bQ_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$19;};
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$19 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1848:14>>*/ ;
        case 23:
         var rest$28 = fmt$0[2], ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1850:8>>*/ return make_ignored_param
                 (function(param){
                    /*<<camlinternalFormat.ml:1850:37>>*/ return caml_call1
-                          (k$0, o);
+                          (k$0, o) /*<<camlinternalFormat.ml:1850:40>>*/ ;
                   /*<<camlinternalFormat.ml:1850:40>>*/ },
                  0,
                  ign,
-                 rest$28);
+                 rest$28) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        default:
         var rest$29 = fmt$0[3], arity = fmt$0[1];
          /*<<camlinternalFormat.ml:1826:8>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1826:8>>*/ return  /*<<camlinternalFormat.ml:1826:8>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1826:8>>*/ (fn_of_custom_arity$0,
-                  [0, k$0, o, rest$29, arity]);
+                  [0, k$0, o, rest$29, arity]) /*<<camlinternalFormat.ml:1858:11>>*/ ;
         var counter$0 = counter + 1 | 0;
          /*<<camlinternalFormat.ml:1826:8>>*/ return fn_of_custom_arity$0
-                (counter$0, k$0, o, rest$29, arity);
+                (counter$0, k$0, o, rest$29, arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1858:11>>*/ }
@@ -19399,71 +19644,73 @@
       var
        x$2 =  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1867:14>>*/ return function(_bL_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;};
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$2 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1867:14>>*/ ;
      }
      if(prec){
       var
        x =  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf(k, o, fmt),
        x$0 =
           /*<<camlinternalFormat.ml:1869:14>>*/ function(_bK_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x;
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;
          };
        /*<<camlinternalFormat.ml:1869:14>>*/ return function(_bJ_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;};
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$0 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1869:14>>*/ ;
      }
      var x$1 =  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf(k, o, fmt);
       /*<<camlinternalFormat.ml:1865:14>>*/ return function(_bI_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;};
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$1 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1865:14>>*/ ;
     }
     if(0 === pad[0]){
      if(typeof prec !== "number"){
       var
        x$6 =  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1873:14>>*/ return function(_bH_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;};
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$6 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1873:14>>*/ ;
      }
      if(prec){
       var
        x$3 =  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf(k, o, fmt),
        x$4 =
           /*<<camlinternalFormat.ml:1875:14>>*/ function(_bG_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$3 /*<<camlinternalFormat.ml:1784:16>>*/ ;
          };
        /*<<camlinternalFormat.ml:1875:14>>*/ return function(_bF_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;};
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$4 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1875:14>>*/ ;
      }
      var x$5 =  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf(k, o, fmt);
       /*<<camlinternalFormat.ml:1871:14>>*/ return function(_bE_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;};
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$5 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1871:14>>*/ ;
     }
     if(typeof prec !== "number"){
      var
       x$12 =  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf(k, o, fmt),
       x$13 =
          /*<<camlinternalFormat.ml:1879:14>>*/ function(_bD_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12 /*<<camlinternalFormat.ml:1784:16>>*/ ;
         };
       /*<<camlinternalFormat.ml:1879:14>>*/ return function(_bC_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;};
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$13 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1879:14>>*/ ;
     }
     if(prec){
      var
       x$7 =  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf(k, o, fmt),
       x$8 =
          /*<<camlinternalFormat.ml:1881:21>>*/ function(_bB_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$7 /*<<camlinternalFormat.ml:1784:16>>*/ ;
         },
       x$9 =
          /*<<camlinternalFormat.ml:1881:14>>*/ function(_bA_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8 /*<<camlinternalFormat.ml:1784:16>>*/ ;
         };
       /*<<camlinternalFormat.ml:1881:14>>*/ return function(_bz_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;};
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$9 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1881:14>>*/ ;
     }
     var x$10 =  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf(k, o, fmt);
-    function x$11(_by_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;}
+    function x$11(_by_){
+      /*<<camlinternalFormat.ml:1784:16>>*/ return x$10 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+    }
      /*<<camlinternalFormat.ml:1877:14>>*/ return function(_bx_){
-      /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;};
+      /*<<camlinternalFormat.ml:1784:16>>*/ return x$11 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1877:14>>*/ ;
     /*<<camlinternalFormat.ml:1881:52>>*/ }
    function fn_of_custom_arity$0(counter, k, o, fmt, param){
      /*<<?>>*/ if(param){
@@ -19473,15 +19720,15 @@
          /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
          (k, o, fmt, arity);
       /*<<camlinternalFormat.ml:1889:14>>*/ return function(_bw_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x;};
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1889:14>>*/ ;
     }
      /*<<camlinternalFormat.ml:1887:8>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1887:8>>*/ return  /*<<camlinternalFormat.ml:1887:8>>*/ caml_trampoline_return
               /*<<camlinternalFormat.ml:1887:8>>*/ (make_iprintf$0,
-              [0, k, o, fmt]);
+              [0, k, o, fmt]) /*<<camlinternalFormat.ml:1887:8>>*/ ;
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1887:8>>*/ return make_iprintf$0
-            (counter$0, k, o, fmt);
+            (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1887:8>>*/ ;
    }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
@@ -19491,7 +19738,7 @@
     var acc$0 = acc;
      /*<<camlinternalFormat.ml:1897:27>>*/ for(;;){
      if(typeof acc$0 === "number")
-       /*<<camlinternalFormat.ml:1912:32>>*/ return 0;
+       /*<<camlinternalFormat.ml:1912:32>>*/ return 0 /*<<camlinternalFormat.ml:1912:32>>*/ ;
      switch(acc$0[0]){
        case 0:
         var
@@ -19502,7 +19749,7 @@
             (fmting_lit);
          /*<<camlinternalFormat.ml:1900:4>>*/ output_acc(o, p);
          /*<<camlinternalFormat.ml:1900:4>>*/ return  /*<<camlinternalFormat.ml:1900:4>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1900:4>>*/ (Stdlib[66], o, s);
+                 /*<<camlinternalFormat.ml:1900:4>>*/ (Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
@@ -19524,28 +19771,28 @@
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1909:32>>*/ output_acc(o, p$3);
          /*<<camlinternalFormat.ml:1909:32>>*/ return  /*<<camlinternalFormat.ml:1909:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1909:32>>*/ (f, o);
+                 /*<<camlinternalFormat.ml:1909:32>>*/ (f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 7:
         var p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1910:32>>*/ output_acc(o, p$4);
          /*<<camlinternalFormat.ml:1910:32>>*/ return  /*<<camlinternalFormat.ml:1910:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1910:32>>*/ (Stdlib[63], o);
+                 /*<<camlinternalFormat.ml:1910:32>>*/ (Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 8:
         var msg = acc$0[2], p$5 = acc$0[1];
          /*<<camlinternalFormat.ml:1911:32>>*/ output_acc(o, p$5);
          /*<<camlinternalFormat.ml:1911:32>>*/ return  /*<<camlinternalFormat.ml:1911:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1911:32>>*/ (Stdlib[1], msg);
+                 /*<<camlinternalFormat.ml:1911:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1906:32>>*/ output_acc(o, p$1);
          /*<<camlinternalFormat.ml:1906:32>>*/ return  /*<<camlinternalFormat.ml:1906:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1906:32>>*/ (Stdlib[66], o, s$0);
+                 /*<<camlinternalFormat.ml:1906:32>>*/ (Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1908:32>>*/ output_acc(o, p$2);
          /*<<camlinternalFormat.ml:1908:32>>*/ return  /*<<camlinternalFormat.ml:1908:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1908:32>>*/ (Stdlib[65], o, c);
+                 /*<<camlinternalFormat.ml:1908:32>>*/ (Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1912:34>>*/ }
@@ -19553,7 +19800,7 @@
     var acc$0 = acc;
      /*<<camlinternalFormat.ml:1917:27>>*/ for(;;){
      if(typeof acc$0 === "number")
-       /*<<camlinternalFormat.ml:1932:32>>*/ return 0;
+       /*<<camlinternalFormat.ml:1932:32>>*/ return 0 /*<<camlinternalFormat.ml:1932:32>>*/ ;
      switch(acc$0[0]){
        case 0:
         var
@@ -19566,7 +19813,7 @@
          /*<<camlinternalFormat.ml:1920:4>>*/ return  /*<<camlinternalFormat.ml:1920:4>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1920:4>>*/ (Stdlib_Buffer[16],
                  b,
-                 s);
+                 s) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
@@ -19592,14 +19839,14 @@
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc(b, p$3);
          /*<<camlinternalFormat.ml:1929:32>>*/ return  /*<<camlinternalFormat.ml:1929:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1929:32>>*/ (f, b);
+                 /*<<camlinternalFormat.ml:1929:32>>*/ (f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc(b, p$4);
          /*<<camlinternalFormat.ml:1931:32>>*/ return  /*<<camlinternalFormat.ml:1931:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1931:32>>*/ (Stdlib[1], msg);
+                 /*<<camlinternalFormat.ml:1931:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
@@ -19607,14 +19854,14 @@
          /*<<camlinternalFormat.ml:1926:32>>*/ return  /*<<camlinternalFormat.ml:1926:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1926:32>>*/ (Stdlib_Buffer[16],
                  b,
-                 s$0);
+                 s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc(b, p$2);
          /*<<camlinternalFormat.ml:1928:32>>*/ return  /*<<camlinternalFormat.ml:1928:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1928:32>>*/ (Stdlib_Buffer[12],
                  b,
-                 c);
+                 c) /*<<camlinternalFormat.ml:1932:34>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1932:34>>*/ }
@@ -19622,7 +19869,7 @@
     var acc$0 = acc;
      /*<<camlinternalFormat.ml:1938:27>>*/ for(;;){
      if(typeof acc$0 === "number")
-       /*<<camlinternalFormat.ml:1953:32>>*/ return 0;
+       /*<<camlinternalFormat.ml:1953:32>>*/ return 0 /*<<camlinternalFormat.ml:1953:32>>*/ ;
      switch(acc$0[0]){
        case 0:
         var
@@ -19635,7 +19882,7 @@
          /*<<camlinternalFormat.ml:1941:4>>*/ return  /*<<camlinternalFormat.ml:1941:4>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1941:4>>*/ (Stdlib_Buffer[16],
                  b,
-                 s);
+                 s) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
@@ -19667,14 +19914,14 @@
          /*<<camlinternalFormat.ml:1950:68>>*/ return  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1950:68>>*/ (Stdlib_Buffer[16],
                  b,
-                 _bv_);
+                 _bv_) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc(b, p$4);
          /*<<camlinternalFormat.ml:1952:32>>*/ return  /*<<camlinternalFormat.ml:1952:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1952:32>>*/ (Stdlib[1], msg);
+                 /*<<camlinternalFormat.ml:1952:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
@@ -19682,14 +19929,14 @@
          /*<<camlinternalFormat.ml:1947:32>>*/ return  /*<<camlinternalFormat.ml:1947:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1947:32>>*/ (Stdlib_Buffer[16],
                  b,
-                 s$0);
+                 s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc(b, p$2);
          /*<<camlinternalFormat.ml:1949:32>>*/ return  /*<<camlinternalFormat.ml:1949:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1949:32>>*/ (Stdlib_Buffer[12],
                  b,
-                 c);
+                 c) /*<<camlinternalFormat.ml:1953:34>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1953:34>>*/ }
@@ -19706,29 +19953,30 @@
          /*<<camlinternalFormat.ml:1961:43>>*/  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
           /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib_Buffer[2], buf);
       /*<<camlinternalFormat.ml:1961:43>>*/ return  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib[2], _bu_);
+              /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib[2], _bu_) /*<<camlinternalFormat.ml:1961:64>>*/ ;
      /*<<camlinternalFormat.ml:1961:64>>*/ }
-     /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt);
+     /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:2>>*/ ;
    }
    function open_box_of_string(str){
      /*<<camlinternalFormat.ml:1969:2>>*/ if(str === cst$43)
-      /*<<camlinternalFormat.ml:1969:19>>*/ return _x_;
+      /*<<camlinternalFormat.ml:1969:19>>*/ return _x_ /*<<camlinternalFormat.ml:1969:19>>*/ ;
     var len = caml_ml_string_length(str);
     function invalid_box(param){
       /*<<camlinternalFormat.ml:1971:25>>*/ return  /*<<camlinternalFormat.ml:1971:4>>*/ caml_call1
               /*<<camlinternalFormat.ml:1971:4>>*/ (failwith_message(_y_),
-              str);
+              str) /*<<camlinternalFormat.ml:1971:74>>*/ ;
      /*<<camlinternalFormat.ml:1971:74>>*/ }
     function parse_spaces(i){
      var i$0 = i;
       /*<<camlinternalFormat.ml:1973:6>>*/ for(;;){
-      if(i$0 === len)  /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
+      if(i$0 === len)
+        /*<<camlinternalFormat.ml:1973:22>>*/ return i$0 /*<<camlinternalFormat.ml:1973:22>>*/ ;
       var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/  /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get
            /*<<camlinternalFormat.ml:1974:14>>*/ (str, i$0);
       if(9 !== match && 32 !== match)
-        /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
+        /*<<camlinternalFormat.ml:1976:15>>*/ return i$0 /*<<camlinternalFormat.ml:1976:15>>*/ ;
       var i$1 =  /*<<camlinternalFormat.ml:1975:24>>*/ i$0 + 1 | 0;
       i$0 = i$1;
      }
@@ -19810,17 +20058,17 @@
      }
      var box_type = 4;
     }
-     /*<<camlinternalFormat.ml:2005:4>>*/ return [0, indent, box_type];
+     /*<<camlinternalFormat.ml:2005:4>>*/ return [0, indent, box_type] /*<<camlinternalFormat.ml:2005:4>>*/ ;
     /*<<camlinternalFormat.ml:2005:22>>*/ }
    function make_padding_fmt_ebb(pad, fmt){
      /*<<camlinternalFormat.ml:2015:15>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:2016:26>>*/ return [0, 0, fmt];
+      /*<<camlinternalFormat.ml:2016:26>>*/ return [0, 0, fmt] /*<<camlinternalFormat.ml:2016:26>>*/ ;
     if(0 === pad[0]){
      var w = pad[2], s = pad[1];
-      /*<<camlinternalFormat.ml:2017:26>>*/ return [0, [0, s, w], fmt];
+      /*<<camlinternalFormat.ml:2017:26>>*/ return [0, [0, s, w], fmt] /*<<camlinternalFormat.ml:2017:26>>*/ ;
     }
     var s$0 = pad[1];
-     /*<<camlinternalFormat.ml:2018:26>>*/ return [0, [1, s$0], fmt];
+     /*<<camlinternalFormat.ml:2018:26>>*/ return [0, [1, s$0], fmt] /*<<camlinternalFormat.ml:2018:26>>*/ ;
     /*<<camlinternalFormat.ml:2018:62>>*/ }
    function make_padprec_fmt_ebb(pad, prec, fmt){
      /*<<camlinternalFormat.ml:2038:2>>*/ if(typeof prec === "number")
@@ -19829,13 +20077,13 @@
      var p = prec[1], match = [0, [0, p]];
     var prec$0 = match[1];
      /*<<camlinternalFormat.ml:2039:2>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:2040:26>>*/ return [0, 0, prec$0, fmt];
+      /*<<camlinternalFormat.ml:2040:26>>*/ return [0, 0, prec$0, fmt] /*<<camlinternalFormat.ml:2040:26>>*/ ;
      /*<<camlinternalFormat.ml:2039:2>>*/ if(0 === pad[0]){
      var w = pad[2], s = pad[1];
-      /*<<camlinternalFormat.ml:2041:26>>*/ return [0, [0, s, w], prec$0, fmt];
+      /*<<camlinternalFormat.ml:2041:26>>*/ return [0, [0, s, w], prec$0, fmt] /*<<camlinternalFormat.ml:2041:26>>*/ ;
     }
     var s$0 = pad[1];
-     /*<<camlinternalFormat.ml:2042:26>>*/ return [0, [1, s$0], prec$0, fmt];
+     /*<<camlinternalFormat.ml:2042:26>>*/ return [0, [1, s$0], prec$0, fmt] /*<<camlinternalFormat.ml:2042:26>>*/ ;
     /*<<camlinternalFormat.ml:2042:69>>*/ }
    function fmt_ebb_of_string(legacy_behavior, str){
      /*<<?>>*/ if(legacy_behavior)
@@ -19847,7 +20095,7 @@
               /*<<camlinternalFormat.ml:2084:4>>*/ (failwith_message(_z_),
               str,
               str_ind,
-              msg);
+              msg) /*<<camlinternalFormat.ml:2086:21>>*/ ;
      /*<<camlinternalFormat.ml:2086:21>>*/ }
     function invalid_format_without(str_ind, c, s){
       /*<<camlinternalFormat.ml:2104:4>>*/ return  /*<<camlinternalFormat.ml:2104:4>>*/ caml_call4
@@ -19855,7 +20103,7 @@
               str,
               str_ind,
               c,
-              s);
+              s) /*<<camlinternalFormat.ml:2106:21>>*/ ;
      /*<<camlinternalFormat.ml:2106:21>>*/ }
     function expected_character(str_ind, expected, read){
       /*<<camlinternalFormat.ml:2112:4>>*/ return  /*<<camlinternalFormat.ml:2112:4>>*/ caml_call4
@@ -19863,7 +20111,7 @@
               str,
               str_ind,
               expected,
-              read);
+              read) /*<<camlinternalFormat.ml:2114:31>>*/ ;
      /*<<camlinternalFormat.ml:2114:31>>*/ }
     function parse(lit_start, end_ind){
      a:
@@ -19872,7 +20120,7 @@
        /*<<camlinternalFormat.ml:2124:4>>*/ for(;;){
        if(str_ind === end_ind)
          /*<<camlinternalFormat.ml:2124:30>>*/ return add_literal
-                (lit_start, str_ind, 0);
+                (lit_start, str_ind, 0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
        var
         match =
            /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get
@@ -19896,7 +20144,7 @@
           : parse_flags(str_ind, str_ind$2, end_ind, 0),
        fmt_rest = match$1[1];
        /*<<camlinternalFormat.ml:2128:8>>*/ return add_literal
-              (lit_start, str_ind, fmt_rest);
+              (lit_start, str_ind, fmt_rest) /*<<camlinternalFormat.ml:2119:62>>*/ ;
      }
      var str_ind$0 = str_ind + 1 | 0;
      a:
@@ -20169,7 +20417,7 @@
      }
      var fmt_rest$0 = match$0[1];
       /*<<camlinternalFormat.ml:2131:8>>*/ return add_literal
-             (lit_start, str_ind, fmt_rest$0);
+             (lit_start, str_ind, fmt_rest$0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
      /*<<camlinternalFormat.ml:2119:62>>*/ }
     function parse_flags(pct_ind, str_ind, end_ind, ign){
      var
@@ -20288,7 +20536,7 @@
                 hash$0,
                 space$0,
                 ign,
-                [0, padty, width]);
+                [0, padty, width]) /*<<camlinternalFormat.ml:2173:22>>*/ ;
       }
      }
      else if(42 === match)
@@ -20301,7 +20549,7 @@
                hash$0,
                space$0,
                ign,
-               [1, padty]);
+               [1, padty]) /*<<camlinternalFormat.ml:2173:22>>*/ ;
      switch(padty){
        case 0:
         if(1 - legacy_behavior$0)
@@ -20316,7 +20564,7 @@
                  hash$0,
                  space$0,
                  ign,
-                 0);
+                 0) /*<<camlinternalFormat.ml:2173:22>>*/ ;
        case 1:
          /*<<camlinternalFormat.ml:2210:8>>*/ return parse_after_padding
                 (pct_ind,
@@ -20327,7 +20575,7 @@
                  hash$0,
                  space$0,
                  ign,
-                 0);
+                 0) /*<<camlinternalFormat.ml:2173:22>>*/ ;
        default:
          /*<<camlinternalFormat.ml:2207:8>>*/ return parse_after_padding
                 (pct_ind,
@@ -20338,7 +20586,7 @@
                  hash$0,
                  space$0,
                  ign,
-                 _D_);
+                 _D_) /*<<camlinternalFormat.ml:2173:22>>*/ ;
      }
      /*<<camlinternalFormat.ml:2173:22>>*/ }
     function parse_after_padding
@@ -20362,7 +20610,7 @@
                pad,
                0,
                pad,
-               symb);
+               symb) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      var str_ind$0 = str_ind + 1 | 0;
      if(str_ind$0 === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
@@ -20384,7 +20632,7 @@
                space,
                ign,
                pad,
-               [0, prec]);
+               [0, prec]) /*<<camlinternalFormat.ml:2237:32>>*/ ;
       /*<<camlinternalFormat.ml:2237:32>>*/ }
      var
       symb$0 =
@@ -20393,7 +20641,7 @@
      if(48 <= symb$0){
       if(58 > symb$0)
         /*<<camlinternalFormat.ml:2239:20>>*/ return parse_literal
-               (minus, str_ind$0);
+               (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      }
      else if(42 <= symb$0)
       switch(symb$0 - 42 | 0){
@@ -20408,7 +20656,7 @@
                   space,
                   ign,
                   pad,
-                  1);
+                  1) /*<<camlinternalFormat.ml:2226:29>>*/ ;
         case 1:
         case 3:
          if(legacy_behavior$0){
@@ -20416,7 +20664,7 @@
            _ba_ =  /*<<camlinternalFormat.ml:2249:6>>*/ str_ind$0 + 1 | 0,
            minus$0 = minus || (45 === symb$0 ? 1 : 0);
            /*<<camlinternalFormat.ml:2249:6>>*/ return parse_literal
-                  (minus$0, _ba_);
+                  (minus$0, _ba_) /*<<camlinternalFormat.ml:2226:29>>*/ ;
          }
          break;
       }
@@ -20432,7 +20680,7 @@
                 ign,
                 pad,
                 _E_)
-             : invalid_format_without(str_ind$0 - 1 | 0, 46, cst_precision);
+             : invalid_format_without(str_ind$0 - 1 | 0, 46, cst_precision) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      /*<<camlinternalFormat.ml:2226:29>>*/ }
     function parse_after_precision
     (pct_ind, str_ind, end_ind, minus, plus, hash, space, ign, pad, prec){
@@ -20452,22 +20700,22 @@
                prec,
                padprec,
                 /*<<camlinternalFormat.ml:2271:21>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:2271:21>>*/ (str, str_ind));
+                 /*<<camlinternalFormat.ml:2271:21>>*/ (str, str_ind)) /*<<camlinternalFormat.ml:2271:34>>*/ ;
       /*<<camlinternalFormat.ml:2271:34>>*/ }
      if(typeof pad !== "number")
-       /*<<camlinternalFormat.ml:2287:13>>*/ return parse_conv(pad);
+       /*<<camlinternalFormat.ml:2287:13>>*/ return parse_conv(pad) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(typeof prec === "number" && ! prec)
-       /*<<camlinternalFormat.ml:2281:29>>*/ return parse_conv(0);
+       /*<<camlinternalFormat.ml:2281:29>>*/ return parse_conv(0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(minus){
       if(typeof prec === "number")
-        /*<<camlinternalFormat.ml:2285:33>>*/ return parse_conv(_F_);
+        /*<<camlinternalFormat.ml:2285:33>>*/ return parse_conv(_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
       var n = prec[1];
-       /*<<camlinternalFormat.ml:2283:46>>*/ return parse_conv([0, 0, n]);
+       /*<<camlinternalFormat.ml:2283:46>>*/ return parse_conv([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      }
      if(typeof prec === "number")
-       /*<<camlinternalFormat.ml:2284:34>>*/ return parse_conv(_G_);
+       /*<<camlinternalFormat.ml:2284:34>>*/ return parse_conv(_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      var n$0 = prec[1];
-      /*<<camlinternalFormat.ml:2282:47>>*/ return parse_conv([0, 1, n$0]);
+      /*<<camlinternalFormat.ml:2282:47>>*/ return parse_conv([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      /*<<camlinternalFormat.ml:2287:27>>*/ }
     function parse_conversion
     (pct_ind,
@@ -20490,7 +20738,7 @@
       prec_used =  /*<<camlinternalFormat.ml:2297:48>>*/ [0, 0];
      function get_plus(param){
        /*<<camlinternalFormat.ml:2300:25>>*/ plus_used[1] = 1;
-       /*<<camlinternalFormat.ml:2300:4>>*/ return plus;
+       /*<<camlinternalFormat.ml:2300:4>>*/ return plus /*<<camlinternalFormat.ml:2300:4>>*/ ;
       /*<<camlinternalFormat.ml:2300:49>>*/ }
      function get_hash(param){
        /*<<camlinternalFormat.ml:2301:24>>*/ hash_used[1] = 1;
@@ -20521,64 +20769,66 @@
        pad =  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad(0),
        match =  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec(0);
       if(typeof match === "number" && ! match)
-        /*<<camlinternalFormat.ml:2321:32>>*/ return pad;
+        /*<<camlinternalFormat.ml:2321:32>>*/ return pad /*<<camlinternalFormat.ml:2321:32>>*/ ;
       if(typeof pad === "number")
-        /*<<camlinternalFormat.ml:2322:32>>*/ return 0;
+        /*<<camlinternalFormat.ml:2322:32>>*/ return 0 /*<<camlinternalFormat.ml:2322:32>>*/ ;
       if(0 !== pad[0])
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _H_
                  : incompatible_flag(pct_ind, str_ind, 48, cst_precision$1)
-               : pad;
-      if(2 > pad[1])  /*<<camlinternalFormat.ml:2329:38>>*/ return pad;
+               : pad /*<<camlinternalFormat.ml:2330:41>>*/ ;
+      if(2 > pad[1])
+        /*<<camlinternalFormat.ml:2329:38>>*/ return pad /*<<camlinternalFormat.ml:2329:38>>*/ ;
       var n = pad[2];
        /*<<camlinternalFormat.ml:2324:11>>*/ return legacy_behavior$0
               ? [0, 1, n]
-              : incompatible_flag(pct_ind, str_ind, 48, cst_precision$0);
+              : incompatible_flag(pct_ind, str_ind, 48, cst_precision$0) /*<<camlinternalFormat.ml:2330:41>>*/ ;
       /*<<camlinternalFormat.ml:2330:41>>*/ }
      function check_no_0(symb, pad){
        /*<<camlinternalFormat.ml:2334:6>>*/ if(typeof pad === "number")
-        /*<<camlinternalFormat.ml:2335:22>>*/ return pad;
+        /*<<camlinternalFormat.ml:2335:22>>*/ return pad /*<<camlinternalFormat.ml:2335:22>>*/ ;
       if(0 !== pad[0])
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _I_
                  : incompatible_flag(pct_ind, str_ind, symb, cst_0$1)
-               : pad;
-      if(2 > pad[1])  /*<<camlinternalFormat.ml:2336:43>>*/ return pad;
+               : pad /*<<camlinternalFormat.ml:2343:55>>*/ ;
+      if(2 > pad[1])
+        /*<<camlinternalFormat.ml:2336:43>>*/ return pad /*<<camlinternalFormat.ml:2336:43>>*/ ;
       var width = pad[2];
        /*<<camlinternalFormat.ml:2339:8>>*/ return legacy_behavior$0
               ? [0, 1, width]
-              : incompatible_flag(pct_ind, str_ind, symb, cst_0$0);
+              : incompatible_flag(pct_ind, str_ind, symb, cst_0$0) /*<<camlinternalFormat.ml:2343:55>>*/ ;
       /*<<camlinternalFormat.ml:2343:55>>*/ }
      function opt_of_pad(c, pad){
        /*<<camlinternalFormat.ml:2349:64>>*/ if(typeof pad === "number")
-        /*<<camlinternalFormat.ml:2350:22>>*/ return 0;
+        /*<<camlinternalFormat.ml:2350:22>>*/ return 0 /*<<camlinternalFormat.ml:2350:22>>*/ ;
       if(0 === pad[0])
        switch(pad[1]){
          case 0:
           var width = pad[2];
            /*<<camlinternalFormat.ml:2356:8>>*/ return legacy_behavior$0
                   ? [0, width]
-                  : incompatible_flag(pct_ind, str_ind, c, cst$24);
+                  : incompatible_flag(pct_ind, str_ind, c, cst$24) /*<<camlinternalFormat.ml:2358:66>>*/ ;
          case 1:
           var width$0 = pad[2];
-           /*<<camlinternalFormat.ml:2351:38>>*/ return [0, width$0];
+           /*<<camlinternalFormat.ml:2351:38>>*/ return [0, width$0] /*<<camlinternalFormat.ml:2351:38>>*/ ;
          default:
           var width$1 = pad[2];
            /*<<camlinternalFormat.ml:2353:8>>*/ return legacy_behavior$0
                   ? [0, width$1]
-                  : incompatible_flag(pct_ind, str_ind, c, cst_0$2);
+                  : incompatible_flag(pct_ind, str_ind, c, cst_0$2) /*<<camlinternalFormat.ml:2358:66>>*/ ;
        }
        /*<<camlinternalFormat.ml:2358:25>>*/ return incompatible_flag
-              (pct_ind, str_ind, c, cst$25);
+              (pct_ind, str_ind, c, cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
       /*<<camlinternalFormat.ml:2358:66>>*/ }
      function get_pad_opt(c){
-       /*<<camlinternalFormat.ml:2360:24>>*/ return opt_of_pad(c, get_pad(0));
+       /*<<camlinternalFormat.ml:2360:24>>*/ return opt_of_pad(c, get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
       /*<<camlinternalFormat.ml:2360:49>>*/ }
      function get_padprec_opt(c){
        /*<<camlinternalFormat.ml:2361:28>>*/ return opt_of_pad
-              (c, get_padprec(0));
+              (c, get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
       /*<<camlinternalFormat.ml:2361:57>>*/ }
      a:
      {
@@ -20678,7 +20928,7 @@
                /*<<camlinternalFormat.ml:2730:6>>*/ return  /*<<camlinternalFormat.ml:2730:6>>*/ caml_call2
                        /*<<camlinternalFormat.ml:2730:6>>*/ (failwith_message(_R_),
                        str,
-                       str_ind);
+                       str_ind) /*<<camlinternalFormat.ml:2732:54>>*/ ;
               /*<<camlinternalFormat.ml:2732:54>>*/ },
            parse_char_set_content =
              function(counter, str_ind, end_ind){
@@ -20694,15 +20944,15 @@
                if(45 !== c){
                 if(93 === c)
                   /*<<camlinternalFormat.ml:2746:8>>*/ return str_ind$0 + 1
-                        | 0;
+                        | 0 /*<<camlinternalFormat.ml:2746:8>>*/ ;
                 var _a__ = str_ind$0 + 1 | 0;
                  /*<<camlinternalFormat.ml:2751:8>>*/ if(counter >= 50)
                   /*<<camlinternalFormat.ml:2751:8>>*/ return  /*<<camlinternalFormat.ml:2751:8>>*/ caml_trampoline_return
                           /*<<camlinternalFormat.ml:2751:8>>*/ (parse_char_set_after_char$0,
-                          [0, _a__, end_ind, c]);
+                          [0, _a__, end_ind, c]) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                 var counter$0 = counter + 1 | 0;
                  /*<<camlinternalFormat.ml:2751:8>>*/ return parse_char_set_after_char$0
-                        (counter$0, _a__, end_ind, c);
+                        (counter$0, _a__, end_ind, c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                }
                 /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                 (char_set, 45);
@@ -20729,7 +20979,7 @@
                    /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                    (char_set, c$0);
                    /*<<camlinternalFormat.ml:2758:8>>*/ return str_ind$0 + 1
-                         | 0;
+                         | 0 /*<<camlinternalFormat.ml:2758:8>>*/ ;
                  }
                 }
                 else if(37 !== c$1){
@@ -20753,16 +21003,16 @@
                        str_ind$2 + 1 | 0);
                   if(37 !== c$3 && 64 !== c$3)
                     /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
-                           (str_ind$2);
+                           (str_ind$2) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                    /*<<camlinternalFormat.ml:2785:12>>*/ add_range(c$0, c$3);
                   var _a8_ = str_ind$2 + 2 | 0;
                    /*<<camlinternalFormat.ml:2785:12>>*/ if(counter >= 50)
                     /*<<camlinternalFormat.ml:2785:12>>*/ return  /*<<camlinternalFormat.ml:2785:12>>*/ caml_trampoline_return
                             /*<<camlinternalFormat.ml:2785:12>>*/ (parse_char_set_content,
-                            [0, _a8_, end_ind]);
+                            [0, _a8_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                   var counter$1 = counter + 1 | 0;
                    /*<<camlinternalFormat.ml:2785:12>>*/ return parse_char_set_content
-                          (counter$1, _a8_, end_ind);
+                          (counter$1, _a8_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  }
                  if(93 === c$2){
                    /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
@@ -20770,17 +21020,17 @@
                    /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                    (char_set, 45);
                    /*<<camlinternalFormat.ml:2779:8>>*/ return str_ind$2 + 1
-                         | 0;
+                         | 0 /*<<camlinternalFormat.ml:2779:8>>*/ ;
                  }
                   /*<<camlinternalFormat.ml:2790:8>>*/ add_range(c$0, c$2);
                  var _a9_ = str_ind$2 + 1 | 0;
                   /*<<camlinternalFormat.ml:2790:8>>*/ if(counter >= 50)
                    /*<<camlinternalFormat.ml:2790:8>>*/ return  /*<<camlinternalFormat.ml:2790:8>>*/ caml_trampoline_return
                            /*<<camlinternalFormat.ml:2790:8>>*/ (parse_char_set_content,
-                           [0, _a9_, end_ind]);
+                           [0, _a9_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$0 = counter + 1 | 0;
                   /*<<camlinternalFormat.ml:2790:8>>*/ return parse_char_set_content
-                         (counter$0, _a9_, end_ind);
+                         (counter$0, _a9_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                 if(37 === c$0){
                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
@@ -20789,10 +21039,10 @@
                   /*<<camlinternalFormat.ml:2763:8>>*/ if(counter >= 50)
                    /*<<camlinternalFormat.ml:2763:8>>*/ return  /*<<camlinternalFormat.ml:2763:8>>*/ caml_trampoline_return
                            /*<<camlinternalFormat.ml:2763:8>>*/ (parse_char_set_content,
-                           [0, _a7_, end_ind]);
+                           [0, _a7_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$2 = counter + 1 | 0;
                   /*<<camlinternalFormat.ml:2763:8>>*/ return parse_char_set_content
-                         (counter$2, _a7_, end_ind);
+                         (counter$2, _a7_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                }
                if(37 === c$0)
@@ -20863,7 +21113,7 @@
              function(fmt_rest){
                /*<<camlinternalFormat.ml:2377:8>>*/ return get_ign(0)
                       ? [0, [23, 0, fmt_rest]]
-                      : [0, [0, fmt_rest]];
+                      : [0, [0, fmt_rest]] /*<<camlinternalFormat.ml:2379:36>>*/ ;
               /*<<camlinternalFormat.ml:2379:36>>*/ },
            fmt_rest$21 = parse(str_ind, end_ind)[1],
            match$7 =  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt(99);
@@ -21324,7 +21574,7 @@
        /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
        (pct_ind, str_ind, symb, cst$31);
      }
-      /*<<camlinternalFormat.ml:2584:10>>*/ return fmt_result;
+      /*<<camlinternalFormat.ml:2584:10>>*/ return fmt_result /*<<camlinternalFormat.ml:2584:10>>*/ ;
     }
     function parse_tag(is_open_tag, str_ind, end_ind){
       /*<<camlinternalFormat.ml:2639:4>>*/ try{
@@ -21366,7 +21616,7 @@
        _ai_ =
           /*<<camlinternalFormat.ml:2651:8>>*/ [0,
           [18, formatting$0, fmt_rest$0]];
-       /*<<camlinternalFormat.ml:2651:8>>*/ return _ai_;
+       /*<<camlinternalFormat.ml:2651:8>>*/ return _ai_ /*<<camlinternalFormat.ml:2651:8>>*/ ;
      }
      catch(_aj_){
       var _ah_ = caml_wrap_exception(_aj_);
@@ -21378,7 +21628,7 @@
           ? [0, sub_format]
           : [1, sub_format];
        /*<<camlinternalFormat.ml:2659:6>>*/ return [0,
-              [18, formatting, fmt_rest]];
+              [18, formatting, fmt_rest]] /*<<camlinternalFormat.ml:2659:6>>*/ ;
      }
      /*<<camlinternalFormat.ml:2659:53>>*/ }
     function parse_spaces(str_ind, end_ind){
@@ -21392,7 +21642,7 @@
         !==
           /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get
            /*<<camlinternalFormat.ml:2805:7>>*/ (str, str_ind$0))
-        /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0;
+        /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0 /*<<camlinternalFormat.ml:2805:72>>*/ ;
       var str_ind$1 = str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
      }
@@ -21408,7 +21658,7 @@
           /*<<camlinternalFormat.ml:2811:10>>*/  /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
            /*<<camlinternalFormat.ml:2811:10>>*/ (str, str_ind$0);
       if(9 < c - 48 >>> 0)
-        /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0];
+        /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0] /*<<camlinternalFormat.ml:2820:11>>*/ ;
       var new_acc = (acc$0 * 10 | 0) + (c - 48 | 0) | 0;
       if(Stdlib_Sys[12] < new_acc){
        var _ag_ =  /*<<camlinternalFormat.ml:2815:8>>*/ Stdlib_Sys[12];
@@ -21416,7 +21666,7 @@
                 /*<<camlinternalFormat.ml:2815:8>>*/ (failwith_message(_S_),
                 str,
                 new_acc,
-                _ag_);
+                _ag_) /*<<camlinternalFormat.ml:2820:23>>*/ ;
       }
       var str_ind$1 = str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
@@ -21434,7 +21684,7 @@
      if(48 <= match){
       if(58 > match)
         /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
-               (str_ind, end_ind, 0);
+               (str_ind, end_ind, 0) /*<<camlinternalFormat.ml:2837:23>>*/ ;
      }
      else if(45 === match){
       if((str_ind + 1 | 0) === end_ind)
@@ -21446,14 +21696,14 @@
            /*<<camlinternalFormat.ml:2830:12>>*/ (str, str_ind + 1 | 0);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
-               (str_ind + 1 | 0, cst_digit, c);
+               (str_ind + 1 | 0, cst_digit, c) /*<<camlinternalFormat.ml:2837:23>>*/ ;
       var
        match$0 =
           /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
           (str_ind + 1 | 0, end_ind, 0),
        n = match$0[2],
        next_ind = match$0[1];
-       /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0];
+       /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0] /*<<camlinternalFormat.ml:2833:8>>*/ ;
      }
       /*<<camlinternalFormat.ml:2837:11>>*/ throw  /*<<camlinternalFormat.ml:2837:11>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalFormat.ml:2837:11>>*/ ([0, Assert_failure, _T_],
@@ -21477,7 +21727,7 @@
                     str,
                     lit_start,
                     size),
-                  fmt]];
+                  fmt]] /*<<camlinternalFormat.ml:2846:75>>*/ ;
      /*<<camlinternalFormat.ml:2846:75>>*/ }
     function search_subformat_end(str_ind, end_ind, c){
      var str_ind$0 = str_ind;
@@ -21500,7 +21750,7 @@
         ( /*<<camlinternalFormat.ml:2858:9>>*/ caml_string_get
            /*<<camlinternalFormat.ml:2858:9>>*/ (str, str_ind$0 + 1 | 0)
          === c)
-         /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0;
+         /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0 /*<<camlinternalFormat.ml:2858:62>>*/ ;
        var
         match =
            /*<<camlinternalFormat.ml:2859:20>>*/  /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
@@ -21521,7 +21771,7 @@
             case 1: break;
             default:
               /*<<camlinternalFormat.ml:2882:10>>*/ return expected_character
-                     (str_ind$0 + 1 | 0, cst_character, 125);
+                     (str_ind$0 + 1 | 0, cst_character, 125) /*<<camlinternalFormat.ml:2889:55>>*/ ;
           }
         }
         else if(96 > match){
@@ -21569,7 +21819,7 @@
         }
         if(41 === match)
           /*<<camlinternalFormat.ml:2885:10>>*/ return expected_character
-                 (str_ind$0 + 1 | 0, cst_character$0, 41);
+                 (str_ind$0 + 1 | 0, cst_character$0, 41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
        }
        var str_ind$1 = str_ind$0 + 2 | 0;
        str_ind$0 = str_ind$1;
@@ -21585,33 +21835,37 @@
        if(plus$0){
         if(! hash$0){
          if(space$0) break a;
-         if(100 === symb)  /*<<camlinternalFormat.ml:2906:34>>*/ return 1;
-         if(105 === symb)  /*<<camlinternalFormat.ml:2906:71>>*/ return 4;
+         if(100 === symb)
+           /*<<camlinternalFormat.ml:2906:34>>*/ return 1 /*<<camlinternalFormat.ml:2906:34>>*/ ;
+         if(105 === symb)
+           /*<<camlinternalFormat.ml:2906:71>>*/ return 4 /*<<camlinternalFormat.ml:2906:71>>*/ ;
          break a;
         }
        }
        else{
         if(! hash$0){
          if(space$0){
-          if(100 === symb)  /*<<camlinternalFormat.ml:2905:34>>*/ return 2;
-          if(105 === symb)  /*<<camlinternalFormat.ml:2905:71>>*/ return 5;
+          if(100 === symb)
+            /*<<camlinternalFormat.ml:2905:34>>*/ return 2 /*<<camlinternalFormat.ml:2905:34>>*/ ;
+          if(105 === symb)
+            /*<<camlinternalFormat.ml:2905:71>>*/ return 5 /*<<camlinternalFormat.ml:2905:71>>*/ ;
           break a;
          }
          var switcher$1 = symb - 88 | 0;
          if(32 < switcher$1 >>> 0) break a;
          switch(switcher$1){
            case 0:
-             /*<<camlinternalFormat.ml:2907:71>>*/ return 8;
+             /*<<camlinternalFormat.ml:2907:71>>*/ return 8 /*<<camlinternalFormat.ml:2907:71>>*/ ;
            case 12:
-             /*<<camlinternalFormat.ml:2904:34>>*/ return 0;
+             /*<<camlinternalFormat.ml:2904:34>>*/ return 0 /*<<camlinternalFormat.ml:2904:34>>*/ ;
            case 17:
-             /*<<camlinternalFormat.ml:2904:71>>*/ return 3;
+             /*<<camlinternalFormat.ml:2904:71>>*/ return 3 /*<<camlinternalFormat.ml:2904:71>>*/ ;
            case 23:
-             /*<<camlinternalFormat.ml:2909:34>>*/ return 10;
+             /*<<camlinternalFormat.ml:2909:34>>*/ return 10 /*<<camlinternalFormat.ml:2909:34>>*/ ;
            case 29:
-             /*<<camlinternalFormat.ml:2911:34>>*/ return 12;
+             /*<<camlinternalFormat.ml:2911:34>>*/ return 12 /*<<camlinternalFormat.ml:2911:34>>*/ ;
            case 32:
-             /*<<camlinternalFormat.ml:2907:34>>*/ return 6;
+             /*<<camlinternalFormat.ml:2907:34>>*/ return 6 /*<<camlinternalFormat.ml:2907:34>>*/ ;
            default: break a;
          }
         }
@@ -21620,17 +21874,17 @@
          if(32 >= switcher$0 >>> 0)
           switch(switcher$0){
             case 0:
-              /*<<camlinternalFormat.ml:2908:71>>*/ return 9;
+              /*<<camlinternalFormat.ml:2908:71>>*/ return 9 /*<<camlinternalFormat.ml:2908:71>>*/ ;
             case 12:
-              /*<<camlinternalFormat.ml:2912:34>>*/ return 13;
+              /*<<camlinternalFormat.ml:2912:34>>*/ return 13 /*<<camlinternalFormat.ml:2912:34>>*/ ;
             case 17:
-              /*<<camlinternalFormat.ml:2913:34>>*/ return 14;
+              /*<<camlinternalFormat.ml:2913:34>>*/ return 14 /*<<camlinternalFormat.ml:2913:34>>*/ ;
             case 23:
-              /*<<camlinternalFormat.ml:2910:34>>*/ return 11;
+              /*<<camlinternalFormat.ml:2910:34>>*/ return 11 /*<<camlinternalFormat.ml:2910:34>>*/ ;
             case 29:
-              /*<<camlinternalFormat.ml:2914:34>>*/ return 15;
+              /*<<camlinternalFormat.ml:2914:34>>*/ return 15 /*<<camlinternalFormat.ml:2914:34>>*/ ;
             case 32:
-              /*<<camlinternalFormat.ml:2908:34>>*/ return 7;
+              /*<<camlinternalFormat.ml:2908:34>>*/ return 7 /*<<camlinternalFormat.ml:2908:34>>*/ ;
           }
         }
        }
@@ -21639,22 +21893,22 @@
         switch(switcher){
           case 0:
            if(legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2916:46>>*/ return 9;
+             /*<<camlinternalFormat.ml:2916:46>>*/ return 9 /*<<camlinternalFormat.ml:2916:46>>*/ ;
            break;
           case 23:
            if(legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2917:46>>*/ return 11;
+             /*<<camlinternalFormat.ml:2917:46>>*/ return 11 /*<<camlinternalFormat.ml:2917:46>>*/ ;
            break;
           case 32:
            if(legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2915:46>>*/ return 7;
+             /*<<camlinternalFormat.ml:2915:46>>*/ return 7 /*<<camlinternalFormat.ml:2915:46>>*/ ;
            break;
           case 12:
           case 17:
           case 29:
            if(! legacy_behavior$0)
              /*<<camlinternalFormat.ml:2921:11>>*/ return incompatible_flag
-                    (pct_ind, str_ind, symb, cst$35);
+                    (pct_ind, str_ind, symb, cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
            hash$0 = 0;
            continue;
         }
@@ -21663,13 +21917,13 @@
        if(space$0){
         if(! legacy_behavior$0)
           /*<<camlinternalFormat.ml:2926:11>>*/ return incompatible_flag
-                 (pct_ind, str_ind, 32, cst$32);
+                 (pct_ind, str_ind, 32, cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         space$0 = 0;
        }
        else{
         if(! legacy_behavior$0)
           /*<<camlinternalFormat.ml:2934:11>>*/ return incompatible_flag
-                 (pct_ind, str_ind, symb, cst$33);
+                 (pct_ind, str_ind, symb, cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         plus$0 = 0;
        }
       else{
@@ -21681,7 +21935,7 @@
                 1);
        if(! legacy_behavior$0)
          /*<<camlinternalFormat.ml:2930:11>>*/ return incompatible_flag
-                (pct_ind, str_ind, symb, cst$34);
+                (pct_ind, str_ind, symb, cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
        space$0 = 0;
       }
      }
@@ -21700,7 +21954,7 @@
               pct_ind,
               option,
               symb,
-              subfmt);
+              subfmt) /*<<camlinternalFormat.ml:2967:38>>*/ ;
      /*<<camlinternalFormat.ml:2967:38>>*/ }
     return parse(0, caml_ml_string_length(str));
    }
@@ -21712,7 +21966,7 @@
          /*<<camlinternalFormat.ml:2978:6>>*/ [0,
          type_format(fmt, fmtty),
          str];
-      /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_;
+      /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_ /*<<camlinternalFormat.ml:2978:6>>*/ ;
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
@@ -21721,7 +21975,7 @@
       /*<<camlinternalFormat.ml:2982:10>>*/ return  /*<<camlinternalFormat.ml:2982:10>>*/ caml_call2
               /*<<camlinternalFormat.ml:2982:10>>*/ (failwith_message(_Z_),
               str,
-              _ad_);
+              _ad_) /*<<camlinternalFormat.ml:2982:33>>*/ ;
     }
     /*<<camlinternalFormat.ml:2982:33>>*/ }
    function format_of_string_format(str, param){
@@ -21735,7 +21989,7 @@
          /*<<camlinternalFormat.ml:2988:6>>*/ [0,
          type_format(fmt$0, fmtty_of_fmt(fmt)),
          str];
-      /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_;
+      /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_ /*<<camlinternalFormat.ml:2988:6>>*/ ;
     }
     catch(_ab_){
      var _$_ = caml_wrap_exception(_ab_);
@@ -21743,7 +21997,7 @@
        /*<<camlinternalFormat.ml:2990:4>>*/ return  /*<<camlinternalFormat.ml:2990:4>>*/ caml_call2
                /*<<camlinternalFormat.ml:2990:4>>*/ (failwith_message(___),
                str,
-               str$0);
+               str$0) /*<<camlinternalFormat.ml:2990:4>>*/ ;
      throw caml_maybe_attach_backtrace(_$_, 0);
     }
    }
@@ -21811,10 +22065,10 @@
              function(acc){
                /*<<printf.ml:20:26>>*/  /*<<printf.ml:20:26>>*/ caml_call2
                 /*<<printf.ml:20:26>>*/ (CamlinternalFormat[9], o, acc);
-              return caml_call1(k, o);
+              return caml_call1(k, o) /*<<printf.ml:20:47>>*/ ;
               /*<<printf.ml:20:47>>*/ },
              0,
-             fmt);
+             fmt) /*<<printf.ml:20:2>>*/ ;
    }
    function kbprintf(k, b, param){
     var fmt = param[1];
@@ -21823,37 +22077,37 @@
              function(acc){
                /*<<printf.ml:22:26>>*/  /*<<printf.ml:22:26>>*/ caml_call2
                 /*<<printf.ml:22:26>>*/ (CamlinternalFormat[10], b, acc);
-              return caml_call1(k, b);
+              return caml_call1(k, b) /*<<printf.ml:22:47>>*/ ;
               /*<<printf.ml:22:47>>*/ },
              0,
-             fmt);
+             fmt) /*<<printf.ml:22:2>>*/ ;
    }
    function ikfprintf(k, oc, param){
     var fmt = param[1];
      /*<<printf.ml:24:2>>*/ return  /*<<printf.ml:24:2>>*/ caml_call3
-             /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt);
+             /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:2>>*/ ;
    }
    function fprintf(oc, fmt){
      /*<<printf.ml:27:21>>*/ return kfprintf
-            (function(_d_){ /*<<?>>*/ return 0;}, oc, fmt);
+            (function(_d_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:27:43>>*/ ;
     /*<<printf.ml:27:43>>*/ }
    function bprintf(b, fmt){
      /*<<printf.ml:28:20>>*/ return kbprintf
-            (function(_c_){ /*<<?>>*/ return 0;}, b, fmt);
+            (function(_c_){ /*<<?>>*/ return 0;}, b, fmt) /*<<printf.ml:28:41>>*/ ;
     /*<<printf.ml:28:41>>*/ }
    function ifprintf(oc, fmt){
      /*<<printf.ml:29:22>>*/ return ikfprintf
-            (function(_b_){ /*<<?>>*/ return 0;}, oc, fmt);
+            (function(_b_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:29:45>>*/ ;
     /*<<printf.ml:29:45>>*/ }
    function ibprintf(b, fmt){
      /*<<printf.ml:30:21>>*/ return ikfprintf
-            (function(_a_){ /*<<?>>*/ return 0;}, b, fmt);
+            (function(_a_){ /*<<?>>*/ return 0;}, b, fmt) /*<<printf.ml:30:43>>*/ ;
     /*<<printf.ml:30:43>>*/ }
    function printf(fmt){
-     /*<<printf.ml:31:17>>*/ return fprintf(Stdlib[39], fmt);
+     /*<<printf.ml:31:17>>*/ return fprintf(Stdlib[39], fmt) /*<<printf.ml:31:35>>*/ ;
     /*<<printf.ml:31:35>>*/ }
    function eprintf(fmt){
-     /*<<printf.ml:32:18>>*/ return fprintf(Stdlib[40], fmt);
+     /*<<printf.ml:32:18>>*/ return fprintf(Stdlib[40], fmt) /*<<printf.ml:32:36>>*/ ;
     /*<<printf.ml:32:36>>*/ }
    function ksprintf(k, param){
     var fmt = param[1];
@@ -21867,17 +22121,17 @@
       /*<<printf.ml:38:6>>*/ return  /*<<printf.ml:38:6>>*/ caml_call1
               /*<<printf.ml:38:6>>*/ (k,
                /*<<printf.ml:38:6>>*/ caml_call1
-                /*<<printf.ml:38:6>>*/ (Stdlib_Buffer[2], buf));
+                /*<<printf.ml:38:6>>*/ (Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
      /*<<printf.ml:38:27>>*/ }
      /*<<printf.ml:39:2>>*/ return  /*<<printf.ml:39:2>>*/ caml_call3
-             /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt);
+             /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:2>>*/ ;
    }
    function sprintf(fmt){
      /*<<printf.ml:41:18>>*/ return ksprintf
             (function(s){
-               /*<<printf.ml:41:37>>*/ return s;
+               /*<<printf.ml:41:37>>*/ return s /*<<printf.ml:41:37>>*/ ;
               /*<<printf.ml:41:38>>*/ },
-             fmt);
+             fmt) /*<<printf.ml:41:43>>*/ ;
     /*<<printf.ml:41:43>>*/ }
    var
     Stdlib_Printf =
@@ -22069,7 +22323,7 @@
              Stdlib[1],
              _c_,
              f,
-             n);
+             n) /*<<dynarray.ml:130:9>>*/ ;
     /*<<dynarray.ml:130:9>>*/ }
    function negative_capacity_requested(f, n){
      /*<<dynarray.ml:133:4>>*/ return  /*<<dynarray.ml:133:4>>*/ caml_call4
@@ -22077,7 +22331,7 @@
              Stdlib[1],
              _d_,
              f,
-             n);
+             n) /*<<dynarray.ml:135:9>>*/ ;
     /*<<dynarray.ml:135:9>>*/ }
    function missing_element(i, length){
      /*<<dynarray.ml:152:4>>*/ return  /*<<dynarray.ml:152:4>>*/ caml_call5
@@ -22086,7 +22340,7 @@
              _f_,
              invalid_state_description,
              i,
-             length);
+             length) /*<<dynarray.ml:155:14>>*/ ;
     /*<<dynarray.ml:155:14>>*/ }
    function unexpected_empty_element(f, i, length){
      /*<<dynarray.ml:172:4>>*/ return i < length
@@ -22105,7 +22359,7 @@
                  _b_,
                  f,
                  i,
-                 length - 1 | 0);
+                 length - 1 | 0) /*<<dynarray.ml:175:38>>*/ ;
     /*<<dynarray.ml:175:38>>*/ }
    function check_same_length(f, a, expected){
     var length_a = a[1], _W_ = expected !== length_a ? 1 : 0;
@@ -22117,7 +22371,7 @@
                f,
                expected,
                length_a)
-            : _W_;
+            : _W_ /*<<dynarray.ml:190:41>>*/ ;
     /*<<dynarray.ml:190:41>>*/ }
    function check_valid_length(length, arr){
     var capacity = arr.length - 1, _V_ = capacity < length ? 1 : 0;
@@ -22129,16 +22383,17 @@
                invalid_state_description,
                length,
                capacity)
-            : _V_;
+            : _V_ /*<<dynarray.ml:199:42>>*/ ;
     /*<<dynarray.ml:199:42>>*/ }
    function unsafe_get(arr, i, length){
     var match = arr[1 + i];
-    if(! match)  /*<<dynarray.ml:207:13>>*/ return missing_element(i, length);
+    if(! match)
+      /*<<dynarray.ml:207:13>>*/ return missing_element(i, length) /*<<dynarray.ml:208:17>>*/ ;
     var v = match[1];
-     /*<<dynarray.ml:208:16>>*/ return v;
+     /*<<dynarray.ml:208:16>>*/ return v /*<<dynarray.ml:208:16>>*/ ;
     /*<<dynarray.ml:208:17>>*/ }
    function create(param){
-     /*<<dynarray.ml:213:16>>*/ return [0, 0, [0]];
+     /*<<dynarray.ml:213:16>>*/ return [0, 0, [0]] /*<<dynarray.ml:213:16>>*/ ;
     /*<<dynarray.ml:216:1>>*/ }
    function make(n, x){
      /*<<dynarray.ml:219:2>>*/ if(n < 0)
@@ -22149,8 +22404,8 @@
               /*<<dynarray.ml:222:10>>*/ (Stdlib_Array[1],
               n,
               function(param){
-                /*<<dynarray.ml:222:33>>*/ return [0, x];
-               /*<<dynarray.ml:222:45>>*/ })];
+                /*<<dynarray.ml:222:33>>*/ return [0, x] /*<<dynarray.ml:222:38>>*/ ;
+               /*<<dynarray.ml:222:45>>*/ })] /*<<dynarray.ml:220:2>>*/ ;
     /*<<dynarray.ml:223:3>>*/ }
    function init(n, f){
      /*<<dynarray.ml:226:2>>*/ if(n < 0)
@@ -22163,18 +22418,18 @@
               function(i){
                 /*<<dynarray.ml:229:33>>*/ return [0,
                         /*<<dynarray.ml:229:43>>*/ caml_call1
-                         /*<<dynarray.ml:229:43>>*/ (f, i)];
-               /*<<dynarray.ml:229:47>>*/ })];
+                         /*<<dynarray.ml:229:43>>*/ (f, i)] /*<<dynarray.ml:229:38>>*/ ;
+               /*<<dynarray.ml:229:47>>*/ })] /*<<dynarray.ml:227:2>>*/ ;
     /*<<dynarray.ml:230:3>>*/ }
    function get(a, i){
     var match =  /*<<dynarray.ml:238:8>>*/ caml_check_bound(a[2], i)[1 + i];
-    return match ? match[1] : unexpected_empty_element(cst_get, i, a[1]);
+    return match ? match[1] : unexpected_empty_element(cst_get, i, a[1]) /*<<dynarray.ml:241:62>>*/ ;
     /*<<dynarray.ml:241:62>>*/ }
    function set(a, i, x){
     var match =  /*<<dynarray.ml:246:8>>*/ caml_check_bound(a[2], i)[1 + i];
     return match
             ? (match[1] = x, 0)
-            : unexpected_empty_element(cst_set, i, a[1]);
+            : unexpected_empty_element(cst_set, i, a[1]) /*<<dynarray.ml:249:62>>*/ ;
     /*<<dynarray.ml:249:62>>*/ }
    function length(a){
      /*<<dynarray.ml:251:15>>*/ return a[1];
@@ -22192,8 +22447,8 @@
               length,
               function(i){
                var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
-                /*<<dynarray.ml:263:11>>*/ return [0, v];
-               /*<<dynarray.ml:263:14>>*/ })];
+                /*<<dynarray.ml:263:11>>*/ return [0, v] /*<<dynarray.ml:263:11>>*/ ;
+               /*<<dynarray.ml:263:14>>*/ })] /*<<dynarray.ml:259:2>>*/ ;
    }
    function get_last(a){
     var length = a[1], arr = a[2];
@@ -22201,12 +22456,12 @@
     if(0 === length)
       /*<<dynarray.ml:178:4>>*/  /*<<dynarray.ml:178:4>>*/ caml_call3
        /*<<dynarray.ml:178:4>>*/ (Stdlib_Printf[10], Stdlib[1], _i_, f);
-     /*<<dynarray.ml:271:21>>*/ return unsafe_get(arr, length - 1 | 0, length);
+     /*<<dynarray.ml:271:21>>*/ return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
     /*<<dynarray.ml:273:40>>*/ }
    function find_last(a){
     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)];
+    return 0 === length ? 0 : [0, unsafe_get(arr, length - 1 | 0, length)] /*<<dynarray.ml:282:49>>*/ ;
     /*<<dynarray.ml:282:49>>*/ }
    function pop_last(a){
     var length = a[1], arr = a[2];
@@ -22219,7 +22474,7 @@
      match = arr[1 + last];
     return match
             ? (arr[1 + last] = 0, a[1] = last, match[1])
-            : missing_element(last, length);
+            : missing_element(last, length) /*<<dynarray.ml:299:9>>*/ ;
     /*<<dynarray.ml:299:9>>*/ }
    function pop_last_opt(a){
      /*<<dynarray.ml:302:2>>*/ try{
@@ -22227,10 +22482,11 @@
     }
     catch(_U_){
      var _T_ = caml_wrap_exception(_U_);
-     if(_T_ === Stdlib[8])  /*<<dynarray.ml:303:27>>*/ return 0;
+     if(_T_ === Stdlib[8])
+       /*<<dynarray.ml:303:27>>*/ return 0 /*<<dynarray.ml:303:27>>*/ ;
      throw caml_maybe_attach_backtrace(_T_, 0);
     }
-     /*<<dynarray.ml:304:9>>*/ return [0, x];
+     /*<<dynarray.ml:304:9>>*/ return [0, x] /*<<dynarray.ml:304:9>>*/ ;
     /*<<dynarray.ml:304:15>>*/ }
    function remove_last(a){
     var
@@ -22240,7 +22496,7 @@
        _R_
         ? (a[1] = last, caml_check_bound(a[2], last)[1 + last] = 0, 0)
         : _R_;
-     /*<<dynarray.ml:310:4>>*/ return _S_;
+     /*<<dynarray.ml:310:4>>*/ return _S_ /*<<dynarray.ml:310:4>>*/ ;
     /*<<dynarray.ml:311:5>>*/ }
    function truncate(a, n){
      /*<<dynarray.ml:314:2>>*/ if(n < 0)
@@ -22256,10 +22512,10 @@
                 arr,
                 n,
                 length - n | 0,
-                0));
+                0)) /*<<dynarray.ml:320:5>>*/ ;
     /*<<dynarray.ml:320:5>>*/ }
    function clear(a){
-     /*<<dynarray.ml:322:14>>*/ return truncate(a, 0);
+     /*<<dynarray.ml:322:14>>*/ return truncate(a, 0) /*<<dynarray.ml:322:26>>*/ ;
     /*<<dynarray.ml:322:26>>*/ }
    function capacity(a){
      /*<<dynarray.ml:327:17>>*/ return a[2].length - 1;
@@ -22268,8 +22524,9 @@
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:349:2>>*/ 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;
+             (cst_ensure_capacity, capacity_request) /*<<dynarray.ml:382:5>>*/ ;
+    if(capacity_request <= cur_capacity)
+      /*<<dynarray.ml:356:4>>*/ return 0 /*<<dynarray.ml:356:4>>*/ ;
     if(Stdlib_Sys[13] < capacity_request)
       /*<<dynarray.ml:138:4>>*/  /*<<dynarray.ml:138:4>>*/ caml_call5
        /*<<dynarray.ml:138:4>>*/ (Stdlib_Printf[10],
@@ -22308,7 +22565,7 @@
     /*<<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);
+            (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
     /*<<dynarray.ml:385:55>>*/ }
    function fit_capacity(a){
     var _N_ = a[1];
@@ -22319,7 +22576,7 @@
               =
                 /*<<dynarray.ml:390:16>>*/ caml_call3
                  /*<<dynarray.ml:390:16>>*/ (Stdlib_Array[6], a[2], 0, a[1]),
-              0);
+              0) /*<<dynarray.ml:390:42>>*/ ;
     /*<<dynarray.ml:390:42>>*/ }
    function set_capacity(a, n){
      /*<<dynarray.ml:393:2>>*/ if(n < 0)
@@ -22359,22 +22616,24 @@
     var length = a[1], arr = a[2];
     return arr.length - 1 <= length
             ? 0
-            : (a[1] = length + 1 | 0, arr[1 + length] = elem, 1);
+            : (a[1] = length + 1 | 0, arr[1 + length] = elem, 1) /*<<dynarray.ml:435:5>>*/ ;
     /*<<dynarray.ml:435:5>>*/ }
    function add_last(a, x){
     var elem =  /*<<dynarray.ml:438:18>>*/ [0, x];
      /*<<dynarray.ml:439:5>>*/ if(add_last_if_room(a, elem))
-      /*<<dynarray.ml:439:34>>*/ return 0;
+      /*<<dynarray.ml:439:34>>*/ return 0 /*<<dynarray.ml:439:34>>*/ ;
      /*<<dynarray.ml:443:6>>*/ for(;;){
       /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity(a, 1);
      var _K_ =  /*<<dynarray.ml:444:13>>*/ 1 - add_last_if_room(a, elem);
-     if(! _K_)  /*<<dynarray.ml:444:13>>*/ return _K_;
+     if(! _K_)
+       /*<<dynarray.ml:444:13>>*/ return _K_ /*<<dynarray.ml:444:13>>*/ ;
     }
     /*<<dynarray.ml:447:5>>*/ }
    function append_list(a, li){
     var li$0 = li;
      /*<<dynarray.ml:450:2>>*/ for(;;){
-     if(! li$0)  /*<<dynarray.ml:451:10>>*/ return 0;
+     if(! li$0)
+       /*<<dynarray.ml:451:10>>*/ return 0 /*<<dynarray.ml:451:10>>*/ ;
      var xs = li$0[2], x = li$0[1];
       /*<<dynarray.ml:452:15>>*/ add_last(a, x);
      li$0 = xs;
@@ -22384,17 +22643,17 @@
      /*<<dynarray.ml:455:2>>*/ return  /*<<dynarray.ml:455:2>>*/ caml_call2
              /*<<dynarray.ml:455:2>>*/ (iter,
              function(x){
-               /*<<dynarray.ml:455:17>>*/ return add_last(a, x);
+               /*<<dynarray.ml:455:17>>*/ return add_last(a, x) /*<<dynarray.ml:455:29>>*/ ;
               /*<<dynarray.ml:455:29>>*/ },
-             b);
+             b) /*<<dynarray.ml:455:32>>*/ ;
     /*<<dynarray.ml:455:32>>*/ }
    function append_seq(a, seq){
      /*<<dynarray.ml:458:2>>*/ return  /*<<dynarray.ml:458:2>>*/ caml_call2
              /*<<dynarray.ml:458:2>>*/ (Stdlib_Seq[4],
              function(x){
-               /*<<dynarray.ml:458:21>>*/ return add_last(a, x);
+               /*<<dynarray.ml:458:21>>*/ return add_last(a, x) /*<<dynarray.ml:458:33>>*/ ;
               /*<<dynarray.ml:458:33>>*/ },
-             seq);
+             seq) /*<<dynarray.ml:458:38>>*/ ;
     /*<<dynarray.ml:458:38>>*/ }
    function append_array_if_room(a, b){
     var
@@ -22402,7 +22661,7 @@
      arr = a[2],
      length_b =  /*<<dynarray.ml:464:2>>*/ b.length - 1;
     if(arr.length - 1 < (length_a + length_b | 0))
-      /*<<dynarray.ml:465:49>>*/ return 0;
+      /*<<dynarray.ml:465:49>>*/ return 0 /*<<dynarray.ml:465:49>>*/ ;
     a[1] = length_a + length_b | 0;
     var
      _I_ =  /*<<dynarray.ml:464:2>>*/ length_b - 1 | 0,
@@ -22417,21 +22676,22 @@
       i = _J_;
      }
     }
-     /*<<dynarray.ml:499:4>>*/ return 1;
+     /*<<dynarray.ml:499:4>>*/ return 1 /*<<dynarray.ml:499:4>>*/ ;
     /*<<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:503:35>>*/ return 0 /*<<dynarray.ml:503:35>>*/ ;
      /*<<dynarray.ml:507:6>>*/ for(;;){
       /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity(a, b.length - 1);
      var _G_ =  /*<<dynarray.ml:508:13>>*/ 1 - append_array_if_room(a, b);
-     if(! _G_)  /*<<dynarray.ml:508:13>>*/ return _G_;
+     if(! _G_)
+       /*<<dynarray.ml:508:13>>*/ return _G_ /*<<dynarray.ml:508:13>>*/ ;
     }
     /*<<dynarray.ml:510:31>>*/ }
    function append_if_room(a, b, length_b){
     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;
+      /*<<dynarray.ml:522:51>>*/ return 0 /*<<dynarray.ml:522:51>>*/ ;
     a[1] = length_a + length_b | 0;
     var arr_b = b[2];
      /*<<dynarray.ml:526:4>>*/ check_valid_length(length_b, arr_b);
@@ -22447,17 +22707,18 @@
      }
     }
      /*<<dynarray.ml:531:4>>*/ check_same_length(cst_append, b, length_b);
-     /*<<dynarray.ml:531:4>>*/ return 1;
+     /*<<dynarray.ml:531:4>>*/ return 1 /*<<dynarray.ml:531:4>>*/ ;
     /*<<dynarray.ml:533:5>>*/ }
    function append(a, b){
     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:537:39>>*/ return 0 /*<<dynarray.ml:537:39>>*/ ;
      /*<<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);
      var _C_ =  /*<<dynarray.ml:549:13>>*/ 1 - append_if_room(a, b, length_b);
-     if(! _C_)  /*<<dynarray.ml:549:13>>*/ return _C_;
+     if(! _C_)
+       /*<<dynarray.ml:549:13>>*/ return _C_ /*<<dynarray.ml:549:13>>*/ ;
     }
     /*<<dynarray.ml:552:5>>*/ }
    function iter(f, k, a){
@@ -22474,10 +22735,10 @@
       i = _B_;
      }
     }
-     /*<<dynarray.ml:600:2>>*/ return check_same_length(f, a, length);
+     /*<<dynarray.ml:600:2>>*/ return check_same_length(f, a, length) /*<<dynarray.ml:600:31>>*/ ;
     /*<<dynarray.ml:600:31>>*/ }
    function iter$0(k, a){
-     /*<<dynarray.ml:603:2>>*/ return iter(cst_iter, k, a);
+     /*<<dynarray.ml:603:2>>*/ return iter(cst_iter, k, a) /*<<dynarray.ml:603:18>>*/ ;
     /*<<dynarray.ml:603:18>>*/ }
    function iteri(k, a){
     var length = a[1], arr = a[2];
@@ -22493,7 +22754,7 @@
       i = _y_;
      }
     }
-     /*<<dynarray.ml:611:2>>*/ return check_same_length(cst_iteri, a, length);
+     /*<<dynarray.ml:611:2>>*/ return check_same_length(cst_iteri, a, length) /*<<dynarray.ml:611:37>>*/ ;
     /*<<dynarray.ml:611:37>>*/ }
    function map(f, a){
     var length = a[1], arr = a[2];
@@ -22508,10 +22769,10 @@
           function(i){
             /*<<dynarray.ml:619:6>>*/ return [0,
                     /*<<dynarray.ml:619:16>>*/ caml_call1
-                     /*<<dynarray.ml:619:16>>*/ (f, unsafe_get(arr, i, length))];
+                     /*<<dynarray.ml:619:16>>*/ (f, unsafe_get(arr, i, length))] /*<<dynarray.ml:619:11>>*/ ;
            /*<<dynarray.ml:619:46>>*/ })];
      /*<<dynarray.ml:621:2>>*/ check_same_length(cst_map, a, length);
-     /*<<dynarray.ml:621:2>>*/ return res;
+     /*<<dynarray.ml:621:2>>*/ return res /*<<dynarray.ml:621:2>>*/ ;
     /*<<dynarray.ml:622:5>>*/ }
    function mapi(f, a){
     var length = a[1], arr = a[2];
@@ -22528,10 +22789,10 @@
                     /*<<dynarray.ml:631:16>>*/ caml_call2
                      /*<<dynarray.ml:631:16>>*/ (f,
                      i,
-                     unsafe_get(arr, i, length))];
+                     unsafe_get(arr, i, length))] /*<<dynarray.ml:631:11>>*/ ;
            /*<<dynarray.ml:631:48>>*/ })];
      /*<<dynarray.ml:633:2>>*/ check_same_length(cst_mapi, a, length);
-     /*<<dynarray.ml:633:2>>*/ return res;
+     /*<<dynarray.ml:633:2>>*/ return res /*<<dynarray.ml:633:2>>*/ ;
     /*<<dynarray.ml:634:5>>*/ }
    function fold_left(f, acc, a){
     var length = a[1], arr = a[2];
@@ -22596,7 +22857,7 @@
       var res = _q_;
      }
       /*<<dynarray.ml:668:2>>*/ check_same_length(cst_exists, a, length);
-      /*<<dynarray.ml:668:2>>*/ return res;
+      /*<<dynarray.ml:668:2>>*/ return res /*<<dynarray.ml:668:2>>*/ ;
     }
     /*<<dynarray.ml:669:5>>*/ }
    function for_all(p, a){
@@ -22619,7 +22880,7 @@
       var res = _p_;
      }
       /*<<dynarray.ml:681:2>>*/ check_same_length(cst_for_all, a, length);
-      /*<<dynarray.ml:681:2>>*/ return res;
+      /*<<dynarray.ml:681:2>>*/ return res /*<<dynarray.ml:681:2>>*/ ;
     }
     /*<<dynarray.ml:682:5>>*/ }
    function filter(f, a){
@@ -22631,10 +22892,10 @@
         _o_ =
            /*<<dynarray.ml:686:30>>*/  /*<<dynarray.ml:686:30>>*/ caml_call1
             /*<<dynarray.ml:686:30>>*/ (f, x);
-        /*<<dynarray.ml:686:30>>*/ return _o_ ? add_last(b, x) : _o_;
+        /*<<dynarray.ml:686:30>>*/ return _o_ ? add_last(b, x) : _o_ /*<<dynarray.ml:686:51>>*/ ;
        /*<<dynarray.ml:686:51>>*/ },
       a);
-     /*<<dynarray.ml:686:2>>*/ return b;
+     /*<<dynarray.ml:686:2>>*/ return b /*<<dynarray.ml:686:2>>*/ ;
     /*<<dynarray.ml:687:3>>*/ }
    function filter_map(f, a){
     var b =  /*<<dynarray.ml:690:10>>*/ create(0);
@@ -22645,12 +22906,13 @@
         match =
            /*<<dynarray.ml:692:10>>*/  /*<<dynarray.ml:692:10>>*/ caml_call1
             /*<<dynarray.ml:692:10>>*/ (f, x);
-       if(! match)  /*<<dynarray.ml:693:14>>*/ return 0;
+       if(! match)
+         /*<<dynarray.ml:693:14>>*/ return 0 /*<<dynarray.ml:693:14>>*/ ;
        var y = match[1];
-        /*<<dynarray.ml:694:16>>*/ return add_last(b, y);
+        /*<<dynarray.ml:694:16>>*/ return add_last(b, y) /*<<dynarray.ml:694:28>>*/ ;
        /*<<dynarray.ml:694:28>>*/ },
       a);
-     /*<<dynarray.ml:691:2>>*/ return b;
+     /*<<dynarray.ml:691:2>>*/ return b /*<<dynarray.ml:691:2>>*/ ;
     /*<<dynarray.ml:696:3>>*/ }
    function of_array(a){
     var length = a.length - 1;
@@ -22660,8 +22922,8 @@
               /*<<dynarray.ml:710:10>>*/ (Stdlib_Array[1],
               length,
               function(i){
-                /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]];
-               /*<<dynarray.ml:710:69>>*/ })];
+                /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]] /*<<dynarray.ml:710:43>>*/ ;
+               /*<<dynarray.ml:710:69>>*/ })] /*<<dynarray.ml:708:2>>*/ ;
     /*<<dynarray.ml:711:3>>*/ }
    function to_array(a){
     var length = a[1], arr = a[2];
@@ -22672,20 +22934,20 @@
          /*<<dynarray.ml:716:12>>*/ (Stdlib_Array[1],
          length,
          function(i){
-           /*<<dynarray.ml:717:4>>*/ return unsafe_get(arr, i, length);
+           /*<<dynarray.ml:717:4>>*/ return unsafe_get(arr, i, length) /*<<dynarray.ml:717:29>>*/ ;
           /*<<dynarray.ml:717:29>>*/ });
      /*<<dynarray.ml:719:2>>*/ check_same_length(cst_to_array, a, length);
-     /*<<dynarray.ml:719:2>>*/ return res;
+     /*<<dynarray.ml:719:2>>*/ return res /*<<dynarray.ml:719:2>>*/ ;
     /*<<dynarray.ml:720:5>>*/ }
    function of_list(li){
     var a =  /*<<dynarray.ml:723:10>>*/ create(0);
      /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
       /*<<dynarray.ml:724:2>>*/ (Stdlib_List[18],
       function(x){
-        /*<<dynarray.ml:724:22>>*/ return add_last(a, x);
+        /*<<dynarray.ml:724:22>>*/ return add_last(a, x) /*<<dynarray.ml:724:34>>*/ ;
        /*<<dynarray.ml:724:34>>*/ },
       li);
-     /*<<dynarray.ml:724:2>>*/ return a;
+     /*<<dynarray.ml:724:2>>*/ return a /*<<dynarray.ml:724:2>>*/ ;
     /*<<dynarray.ml:725:3>>*/ }
    function to_list(a){
     var length = a[1], arr = a[2];
@@ -22709,7 +22971,7 @@
    function of_seq(seq){
     var init =  /*<<dynarray.ml:738:13>>*/ create(0);
      /*<<dynarray.ml:739:2>>*/ append_seq(init, seq);
-     /*<<dynarray.ml:739:2>>*/ return init;
+     /*<<dynarray.ml:739:2>>*/ return init /*<<dynarray.ml:739:2>>*/ ;
     /*<<dynarray.ml:740:6>>*/ }
    function to_seq(a){
     var length = a[1], arr = a[2];
@@ -22717,21 +22979,22 @@
     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;
+      if(length <= i)
+        /*<<dynarray.ml:747:24>>*/ return 0 /*<<dynarray.ml:747:24>>*/ ;
       var v =  /*<<dynarray.ml:749:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:750:6>>*/ return [0, v, aux(i + 1 | 0)]; /*<<dynarray.ml:751:7>>*/ };
+       /*<<dynarray.ml:750:6>>*/ return [0, v, aux(i + 1 | 0)] /*<<dynarray.ml:750:6>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
      /*<<dynarray.ml:751:7>>*/ }
-     /*<<dynarray.ml:753:2>>*/ return aux(0);
+     /*<<dynarray.ml:753:2>>*/ return aux(0) /*<<dynarray.ml:753:7>>*/ ;
     /*<<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:757:26>>*/ return 0 /*<<dynarray.ml:757:26>>*/ ;
       var v =  /*<<dynarray.ml:759:14>>*/ get(a, i);
-       /*<<dynarray.ml:760:6>>*/ return [0, v, aux(i + 1 | 0)]; /*<<dynarray.ml:761:7>>*/ };
+       /*<<dynarray.ml:760:6>>*/ return [0, v, aux(i + 1 | 0)] /*<<dynarray.ml:760:6>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
      /*<<dynarray.ml:761:7>>*/ }
-     /*<<dynarray.ml:763:2>>*/ return aux(0);
+     /*<<dynarray.ml:763:2>>*/ return aux(0) /*<<dynarray.ml:763:7>>*/ ;
     /*<<dynarray.ml:763:7>>*/ }
    function to_seq_rev(a){
     var length = a[1], arr = a[2];
@@ -22739,22 +23002,24 @@
     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;
+      if(0 > i)
+        /*<<dynarray.ml:770:18>>*/ return 0 /*<<dynarray.ml:770:18>>*/ ;
       var v =  /*<<dynarray.ml:772:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:773:6>>*/ return [0, v, aux(i - 1 | 0)]; /*<<dynarray.ml:774:7>>*/ };
+       /*<<dynarray.ml:773:6>>*/ return [0, v, aux(i - 1 | 0)] /*<<dynarray.ml:773:6>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
      /*<<dynarray.ml:774:7>>*/ }
-     /*<<dynarray.ml:776:2>>*/ return aux(length - 1 | 0);
+     /*<<dynarray.ml:776:2>>*/ return aux(length - 1 | 0) /*<<dynarray.ml:776:18>>*/ ;
     /*<<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:780:18>>*/ return 0 /*<<dynarray.ml:780:18>>*/ ;
+      if(a[1] <= i)
+        /*<<dynarray.ml:784:6>>*/ return aux(a[1] - 1 | 0)(0) /*<<dynarray.ml:788:7>>*/ ;
       var v =  /*<<dynarray.ml:786:14>>*/ get(a, i);
-       /*<<dynarray.ml:787:6>>*/ return [0, v, aux(i - 1 | 0)]; /*<<dynarray.ml:788:7>>*/ };
+       /*<<dynarray.ml:787:6>>*/ return [0, v, aux(i - 1 | 0)] /*<<dynarray.ml:787:6>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
      /*<<dynarray.ml:788:7>>*/ }
-     /*<<dynarray.ml:790:7>>*/ return aux(a[1] - 1 | 0);
+     /*<<dynarray.ml:790:7>>*/ return aux(a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
     /*<<dynarray.ml:790:20>>*/ }
    var
     Stdlib_Dynarray =
@@ -22912,13 +23177,14 @@
      var match = l$0[1], y2 = match[2], y1 = match[1];
       /*<<arg.ml:66:26>>*/ if
       ( /*<<arg.ml:66:26>>*/ caml_equal /*<<arg.ml:66:26>>*/ (y1, x))
-       /*<<arg.ml:66:36>>*/ return y2;
+       /*<<arg.ml:66:36>>*/ return y2 /*<<arg.ml:66:36>>*/ ;
      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:77:2>>*/ if(! l)
+      /*<<arg.ml:78:10>>*/ return cst_none /*<<arg.ml:78:10>>*/ ;
     var
      t = l[2],
      h = l[1],
@@ -22934,12 +23200,12 @@
               /*<<arg.ml:79:44>>*/  /*<<arg.ml:79:44>>*/ caml_call2
                /*<<arg.ml:79:44>>*/ (Stdlib[28], sep, y);
            /*<<arg.ml:79:44>>*/ return  /*<<arg.ml:79:44>>*/ caml_call2
-                   /*<<arg.ml:79:44>>*/ (Stdlib[28], x, _aB_);
+                   /*<<arg.ml:79:44>>*/ (Stdlib[28], x, _aB_) /*<<arg.ml:79:51>>*/ ;
           /*<<arg.ml:79:51>>*/ },
          _az_,
          t);
      /*<<arg.ml:79:12>>*/ return  /*<<arg.ml:79:12>>*/ caml_call2
-             /*<<arg.ml:79:12>>*/ (Stdlib[28], _aA_, suffix);
+             /*<<arg.ml:79:12>>*/ (Stdlib[28], _aA_, suffix) /*<<arg.ml:79:77>>*/ ;
     /*<<arg.ml:79:77>>*/ }
    function help_action(param){
      /*<<arg.ml:91:21>>*/ throw  /*<<arg.ml:91:21>>*/ caml_maybe_attach_backtrace
@@ -22977,7 +23243,7 @@
         /*<<arg.ml:103:13>>*/  /*<<arg.ml:103:13>>*/ caml_call2
          /*<<arg.ml:103:13>>*/ (Stdlib[37], add1, add2);
      /*<<arg.ml:103:13>>*/ return  /*<<arg.ml:103:13>>*/ caml_call2
-             /*<<arg.ml:103:13>>*/ (Stdlib[37], speclist, _au_);
+             /*<<arg.ml:103:13>>*/ (Stdlib[37], speclist, _au_) /*<<arg.ml:103:26>>*/ ;
     /*<<arg.ml:103:26>>*/ }
    function usage_b(buf, speclist, errmsg){
      /*<<arg.ml:107:2>>*/  /*<<arg.ml:107:2>>*/ caml_call3
@@ -23000,7 +23266,7 @@
               if(! _aq_) return _aq_;
               if(11 !== spec[0])
                 /*<<arg.ml:88:8>>*/ return  /*<<arg.ml:88:8>>*/ caml_call4
-                        /*<<arg.ml:88:8>>*/ (Stdlib_Printf[5], buf, _a_, key, doc);
+                        /*<<arg.ml:88:8>>*/ (Stdlib_Printf[5], buf, _a_, key, doc) /*<<arg.ml:88:8>>*/ ;
               var
                l = spec[1],
                _ar_ =  /*<<arg.ml:86:38>>*/ make_symlist(cst$1, cst$0, cst, l);
@@ -23010,9 +23276,9 @@
                        _b_,
                        key,
                        _ar_,
-                       doc);
+                       doc) /*<<arg.ml:86:8>>*/ ;
              },
-             _ap_);
+             _ap_) /*<<arg.ml:108:48>>*/ ;
     /*<<arg.ml:108:48>>*/ }
    function usage_string(speclist, errmsg){
     var
@@ -23021,12 +23287,12 @@
          /*<<arg.ml:112:10>>*/ (Stdlib_Buffer[1], 200);
      /*<<arg.ml:113:2>>*/ usage_b(b, speclist, errmsg);
      /*<<arg.ml:113:2>>*/ return  /*<<arg.ml:113:2>>*/ caml_call1
-             /*<<arg.ml:113:2>>*/ (Stdlib_Buffer[2], b);
+             /*<<arg.ml:113:2>>*/ (Stdlib_Buffer[2], b) /*<<arg.ml:114:19>>*/ ;
     /*<<arg.ml:114:19>>*/ }
    function usage(speclist, errmsg){
     var _ao_ =  /*<<arg.ml:118:15>>*/ usage_string(speclist, errmsg);
      /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
-             /*<<arg.ml:118:15>>*/ (Stdlib_Printf[3], _e_, _ao_);
+             /*<<arg.ml:118:15>>*/ (Stdlib_Printf[3], _e_, _ao_) /*<<arg.ml:118:45>>*/ ;
     /*<<arg.ml:118:45>>*/ }
    var
     current =  /*<<arg.ml:121:14>>*/ [0, 0],
@@ -23076,11 +23342,12 @@
          /*<<arg.ml:128:6>>*/ [0,
           /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string
            /*<<arg.ml:128:11>>*/ (x)];
-      /*<<arg.ml:128:6>>*/ return _am_;
+      /*<<arg.ml:128:6>>*/ return _am_ /*<<arg.ml:128:6>>*/ ;
     }
     catch(_an_){
      var _al_ = caml_wrap_exception(_an_);
-     if(_al_[1] === Stdlib[7])  /*<<arg.ml:129:20>>*/ return 0;
+     if(_al_[1] === Stdlib[7])
+       /*<<arg.ml:129:20>>*/ return 0 /*<<arg.ml:129:20>>*/ ;
      throw caml_maybe_attach_backtrace(_al_, 0);
     }
     /*<<arg.ml:129:24>>*/ }
@@ -23091,11 +23358,12 @@
          /*<<arg.ml:132:6>>*/ [0,
           /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string
            /*<<arg.ml:132:11>>*/ (x)];
-      /*<<arg.ml:132:6>>*/ return _aj_;
+      /*<<arg.ml:132:6>>*/ return _aj_ /*<<arg.ml:132:6>>*/ ;
     }
     catch(_ak_){
      var _ai_ = caml_wrap_exception(_ak_);
-     if(_ai_[1] === Stdlib[7])  /*<<arg.ml:133:20>>*/ return 0;
+     if(_ai_[1] === Stdlib[7])
+       /*<<arg.ml:133:20>>*/ return 0 /*<<arg.ml:133:20>>*/ ;
      throw caml_maybe_attach_backtrace(_ai_, 0);
     }
     /*<<arg.ml:133:24>>*/ }
@@ -23149,11 +23417,11 @@
        /*<<arg.ml:162:9>>*/ return [0,
               Bad,
                /*<<arg.ml:162:13>>*/ caml_call1
-                /*<<arg.ml:162:13>>*/ (Stdlib_Buffer[2], b)];
+                /*<<arg.ml:162:13>>*/ (Stdlib_Buffer[2], b)] /*<<arg.ml:162:9>>*/ ;
       /*<<arg.ml:161:9>>*/ return [0,
              Help,
               /*<<arg.ml:161:14>>*/ caml_call1
-               /*<<arg.ml:161:14>>*/ (Stdlib_Buffer[2], b)];
+               /*<<arg.ml:161:14>>*/ (Stdlib_Buffer[2], b)] /*<<arg.ml:161:9>>*/ ;
      /*<<arg.ml:162:32>>*/ }
      /*<<arg.ml:164:2>>*/ current[1]++;
     for(;;){
@@ -23210,7 +23478,7 @@
         no_arg =
           function(param){
             /*<<arg.ml:178:10>>*/ if(! follow$2)
-             /*<<arg.ml:179:20>>*/ return;
+             /*<<arg.ml:179:20>>*/ return /*<<arg.ml:179:20>>*/ ;
            var arg = follow$2[1];
             /*<<arg.ml:180:24>>*/ throw  /*<<arg.ml:180:24>>*/ caml_maybe_attach_backtrace
                    /*<<arg.ml:180:24>>*/ ([0,
@@ -23222,18 +23490,18 @@
           function(param){
             /*<<arg.ml:182:10>>*/ if(follow$2){
             var arg = follow$2[1];
-             /*<<arg.ml:186:24>>*/ return arg;
+             /*<<arg.ml:186:24>>*/ return arg /*<<arg.ml:186:24>>*/ ;
            }
            if((current[1] + 1 | 0) >= argv[1].length - 1)
              /*<<arg.ml:185:19>>*/ throw  /*<<arg.ml:185:19>>*/ caml_maybe_attach_backtrace
                     /*<<arg.ml:185:19>>*/ ([0, Stop, [2, s$0]], 1);
            var _af_ = current[1] + 1 | 0;
             /*<<arg.ml:184:58>>*/ return caml_check_bound(argv[1], _af_)
-                   [1 + _af_];
+                   [1 + _af_] /*<<arg.ml:184:58>>*/ ;
            /*<<arg.ml:186:27>>*/ },
         consume_arg =
           function(param){
-            /*<<arg.ml:189:10>>*/ return follow$2 ? 0 : (current[1]++, 0);
+            /*<<arg.ml:189:10>>*/ return follow$2 ? 0 : (current[1]++, 0) /*<<arg.ml:191:24>>*/ ;
            /*<<arg.ml:191:24>>*/ },
         treat_action =
           function(param){
@@ -23242,7 +23510,7 @@
               var f = param[1];
                /*<<arg.ml:194:20>>*/ no_arg$0(0);
                /*<<arg.ml:194:20>>*/ return  /*<<arg.ml:194:20>>*/ caml_call1
-                       /*<<arg.ml:194:20>>*/ (f, 0);
+                       /*<<arg.ml:194:20>>*/ (f, 0) /*<<arg.ml:276:54>>*/ ;
              case 1:
               var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
                /*<<arg.ml:124:2>>*/ try{
@@ -23268,7 +23536,7 @@
               var s = match[1];
                /*<<arg.ml:199:24>>*/  /*<<arg.ml:199:24>>*/ caml_call1
                 /*<<arg.ml:199:24>>*/ (f$0, s);
-               /*<<arg.ml:201:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:201:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 2:
               var r = param[1];
                /*<<arg.ml:202:19>>*/ no_arg$0(0);
@@ -23283,11 +23551,11 @@
               var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
                /*<<arg.ml:206:12>>*/  /*<<arg.ml:206:12>>*/ caml_call1
                 /*<<arg.ml:206:12>>*/ (f$1, arg$0);
-               /*<<arg.ml:206:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:206:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 5:
               var r$1 = param[1];
               r$1[1] = get_arg$0(0);
-               /*<<arg.ml:219:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:219:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 6:
               var
                f$2 = param[1],
@@ -23302,7 +23570,7 @@
               var x = match$0[1];
                /*<<arg.ml:224:24>>*/  /*<<arg.ml:224:24>>*/ caml_call1
                 /*<<arg.ml:224:24>>*/ (f$2, x);
-               /*<<arg.ml:226:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:226:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 7:
               var
                r$2 = param[1],
@@ -23316,7 +23584,7 @@
                        1);
               var x$0 = match$1[1];
               r$2[1] = x$0;
-               /*<<arg.ml:233:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:233:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 8:
               var
                f$3 = param[1],
@@ -23331,7 +23599,7 @@
               var x$1 = match$2[1];
                /*<<arg.ml:238:24>>*/  /*<<arg.ml:238:24>>*/ caml_call1
                 /*<<arg.ml:238:24>>*/ (f$3, x$1);
-               /*<<arg.ml:240:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:240:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 9:
               var
                r$3 = param[1],
@@ -23345,14 +23613,14 @@
                        1);
               var x$2 = match$3[1];
               r$3[1] = x$2;
-               /*<<arg.ml:247:12>>*/ return consume_arg$0(0);
+               /*<<arg.ml:247:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 10:
               var specs = param[1];
                /*<<arg.ml:249:12>>*/ no_arg$0(0);
                /*<<arg.ml:249:12>>*/ return  /*<<arg.ml:249:12>>*/ caml_call2
                        /*<<arg.ml:249:12>>*/ (Stdlib_List[18],
                        treat_action$0,
-                       specs);
+                       specs) /*<<arg.ml:276:54>>*/ ;
              case 11:
               var
                f$4 = param[2],
@@ -23363,7 +23631,7 @@
                   /*<<arg.ml:210:15>>*/ (Stdlib_List[37], arg$5, symb)){
                 /*<<arg.ml:211:14>>*/  /*<<arg.ml:211:14>>*/ caml_call1
                  /*<<arg.ml:211:14>>*/ (f$4, arg$5);
-                /*<<arg.ml:211:14>>*/ return consume_arg$0(0);
+                /*<<arg.ml:211:14>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
               }
               var
                _aa_ =
@@ -23399,7 +23667,7 @@
                  /*<<arg.ml:264:14>>*/ return  /*<<arg.ml:264:14>>*/ caml_call1
                          /*<<arg.ml:264:14>>*/ (f$6,
                           /*<<arg.ml:264:14>>*/ caml_call1
-                           /*<<arg.ml:264:14>>*/ (Stdlib_List[10], acc[1]));
+                           /*<<arg.ml:264:14>>*/ (Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
                var _ad_ = current[1] + 1 | 0, _ac_ = acc[1];
                acc[1] = [0, caml_check_bound(argv[1], _ad_)[1 + _ad_], _ac_];
                 /*<<arg.ml:262:14>>*/ consume_arg$0(0);
@@ -23468,23 +23736,23 @@
    function parse_and_expand_argv_dynamic
    (current, argv, speclist, anonfun, errmsg){
      /*<<arg.ml:287:2>>*/ return parse_and_expand_argv_dynamic_
-            (1, current, argv, speclist, anonfun, errmsg);
+            (1, current, argv, speclist, anonfun, errmsg) /*<<arg.ml:287:77>>*/ ;
     /*<<arg.ml:287:77>>*/ }
    function parse_argv_dynamic(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
      /*<<arg.ml:290:2>>*/ return parse_and_expand_argv_dynamic_
-            (0, current$0, [0, argv], speclist, anonfun, errmsg);
+            (0, current$0, [0, argv], speclist, anonfun, errmsg) /*<<arg.ml:290:2>>*/ ;
    }
    function parse_argv(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
      /*<<arg.ml:295:2>>*/ return parse_argv_dynamic
-            ([0, current$0], argv, [0, speclist], anonfun, errmsg);
+            ([0, current$0], argv, [0, speclist], anonfun, errmsg) /*<<arg.ml:295:2>>*/ ;
    }
    function parse(l, f, msg){
      /*<<arg.ml:299:2>>*/ try{
      var
       _U_ =  /*<<arg.ml:300:4>>*/ parse_argv(0, caml_sys_argv(0), l, f, msg);
-      /*<<arg.ml:300:4>>*/ return _U_;
+      /*<<arg.ml:300:4>>*/ return _U_ /*<<arg.ml:300:4>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
@@ -23493,14 +23761,14 @@
        /*<<arg.ml:302:15>>*/  /*<<arg.ml:302:15>>*/ caml_call2
         /*<<arg.ml:302:15>>*/ (Stdlib_Printf[3], _l_, msg$0);
        /*<<arg.ml:302:15>>*/ return  /*<<arg.ml:302:15>>*/ caml_call1
-               /*<<arg.ml:302:15>>*/ (Stdlib[99], 2);
+               /*<<arg.ml:302:15>>*/ (Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:303:16>>*/  /*<<arg.ml:303:16>>*/ caml_call2
        /*<<arg.ml:303:16>>*/ (Stdlib_Printf[2], _m_, msg$1);
       /*<<arg.ml:303:16>>*/ return  /*<<arg.ml:303:16>>*/ caml_call1
-              /*<<arg.ml:303:16>>*/ (Stdlib[99], 0);
+              /*<<arg.ml:303:16>>*/ (Stdlib[99], 0) /*<<arg.ml:303:39>>*/ ;
     }
     /*<<arg.ml:303:39>>*/ }
    function parse_dynamic(l, f, msg){
@@ -23509,7 +23777,7 @@
       _T_ =
          /*<<arg.ml:308:4>>*/ parse_argv_dynamic
          (0, caml_sys_argv(0), l, f, msg);
-      /*<<arg.ml:308:4>>*/ return _T_;
+      /*<<arg.ml:308:4>>*/ return _T_ /*<<arg.ml:308:4>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
@@ -23518,14 +23786,14 @@
        /*<<arg.ml:310:15>>*/  /*<<arg.ml:310:15>>*/ caml_call2
         /*<<arg.ml:310:15>>*/ (Stdlib_Printf[3], _n_, msg$0);
        /*<<arg.ml:310:15>>*/ return  /*<<arg.ml:310:15>>*/ caml_call1
-               /*<<arg.ml:310:15>>*/ (Stdlib[99], 2);
+               /*<<arg.ml:310:15>>*/ (Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:311:16>>*/  /*<<arg.ml:311:16>>*/ caml_call2
        /*<<arg.ml:311:16>>*/ (Stdlib_Printf[2], _o_, msg$1);
       /*<<arg.ml:311:16>>*/ return  /*<<arg.ml:311:16>>*/ caml_call1
-              /*<<arg.ml:311:16>>*/ (Stdlib[99], 0);
+              /*<<arg.ml:311:16>>*/ (Stdlib[99], 0) /*<<arg.ml:311:39>>*/ ;
     }
     /*<<arg.ml:311:39>>*/ }
    function parse_expand(l, f, msg){
@@ -23537,7 +23805,7 @@
       _S_ =
          /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
          (current$0, argv, spec, f, msg);
-      /*<<arg.ml:318:4>>*/ return _S_;
+      /*<<arg.ml:318:4>>*/ return _S_ /*<<arg.ml:318:4>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
@@ -23546,14 +23814,14 @@
        /*<<arg.ml:320:15>>*/  /*<<arg.ml:320:15>>*/ caml_call2
         /*<<arg.ml:320:15>>*/ (Stdlib_Printf[3], _p_, msg$0);
        /*<<arg.ml:320:15>>*/ return  /*<<arg.ml:320:15>>*/ caml_call1
-               /*<<arg.ml:320:15>>*/ (Stdlib[99], 2);
+               /*<<arg.ml:320:15>>*/ (Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:321:16>>*/  /*<<arg.ml:321:16>>*/ caml_call2
        /*<<arg.ml:321:16>>*/ (Stdlib_Printf[2], _q_, msg$1);
       /*<<arg.ml:321:16>>*/ return  /*<<arg.ml:321:16>>*/ caml_call1
-              /*<<arg.ml:321:16>>*/ (Stdlib[99], 0);
+              /*<<arg.ml:321:16>>*/ (Stdlib[99], 0) /*<<arg.ml:321:39>>*/ ;
     }
     /*<<arg.ml:321:39>>*/ }
    function second_word(s){
@@ -23561,12 +23829,12 @@
     function loop(n){
      var n$0 = n;
       /*<<arg.ml:327:4>>*/ for(;;){
-      if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len;
+      if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len /*<<arg.ml:326:2>>*/ ;
        /*<<arg.ml:328:12>>*/ if
        (32
         !==
           /*<<arg.ml:328:12>>*/ caml_string_get /*<<arg.ml:328:12>>*/ (s, n$0))
-        /*<<arg.ml:329:9>>*/ return n$0;
+        /*<<arg.ml:329:9>>*/ return n$0 /*<<arg.ml:329:9>>*/ ;
       var n$1 =  /*<<arg.ml:328:29>>*/ n$0 + 1 | 0;
       n$0 = n$1;
      }
@@ -23588,12 +23856,13 @@
      }
      catch(_R_){
       var _P_ = caml_wrap_exception(_R_);
-      if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
+      if(_P_ === Stdlib[8])
+        /*<<arg.ml:336:31>>*/ return len /*<<arg.ml:336:31>>*/ ;
       throw caml_maybe_attach_backtrace(_P_, 0);
      }
-      /*<<arg.ml:334:18>>*/ return loop(n + 1 | 0);
+      /*<<arg.ml:334:18>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     }
-     /*<<arg.ml:331:8>>*/ return loop(n$0 + 1 | 0);
+     /*<<arg.ml:331:8>>*/ return loop(n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     /*<<arg.ml:337:9>>*/ }
    function max_arg_len(cur, param){
     var doc = param[3], spec = param[2], kwd = param[1];
@@ -23609,11 +23878,11 @@
              function(c){
                /*<<arg.ml:348:13>>*/ if(9 === c && ! seen[1]){
                seen[1] = 1;
-                /*<<arg.ml:348:60>>*/ return 32;
+                /*<<arg.ml:348:60>>*/ return 32 /*<<arg.ml:348:60>>*/ ;
               }
-               /*<<arg.ml:348:71>>*/ return c;
+               /*<<arg.ml:348:71>>*/ return c /*<<arg.ml:348:71>>*/ ;
               /*<<arg.ml:348:73>>*/ },
-             s);
+             s) /*<<arg.ml:348:75>>*/ ;
     /*<<arg.ml:348:75>>*/ }
    function align(opt, speclist){
     var
@@ -23629,7 +23898,8 @@
              /*<<arg.ml:377:2>>*/ (Stdlib_List[20],
              function(ksd){
               var kwd = ksd[1], spec = ksd[2];
-              if(ksd[3] === cst$8)  /*<<arg.ml:355:6>>*/ return ksd;
+              if(ksd[3] === cst$8)
+                /*<<arg.ml:355:6>>*/ return ksd /*<<arg.ml:355:6>>*/ ;
               if(11 === spec[0]){
                var
                 msg$0 = ksd[3],
@@ -23652,7 +23922,7 @@
                        kwd,
                        spec,
                         /*<<arg.ml:359:18>>*/ caml_call2
-                         /*<<arg.ml:359:18>>*/ (Stdlib[28], cst$7, _M_)];
+                         /*<<arg.ml:359:18>>*/ (Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:6>>*/ ;
               }
               var
                msg = ksd[3],
@@ -23666,7 +23936,7 @@
                 /*<<arg.ml:365:8>>*/ return [0,
                        kwd,
                        spec$0,
-                       replace_leading_tab(msg)];
+                       replace_leading_tab(msg)] /*<<arg.ml:365:8>>*/ ;
               var
                spaces =
                   /*<<arg.ml:367:21>>*/  /*<<arg.ml:367:21>>*/ caml_call2
@@ -23688,9 +23958,9 @@
                       kwd,
                       spec$0,
                        /*<<arg.ml:370:20>>*/ caml_call2
-                        /*<<arg.ml:370:20>>*/ (Stdlib[28], prefix, _J_)];
+                        /*<<arg.ml:370:20>>*/ (Stdlib[28], prefix, _J_)] /*<<arg.ml:370:8>>*/ ;
              },
-             completed);
+             completed) /*<<arg.ml:377:2>>*/ ;
    }
    function read_aux(trim, sep, file){
     var
@@ -23731,7 +24001,7 @@
       var word$0 = word;
      words[1] = [0, word$0, words[1]];
       /*<<arg.ml:390:2>>*/ return  /*<<arg.ml:390:2>>*/ caml_call1
-              /*<<arg.ml:390:2>>*/ (Stdlib_Buffer[8], buf);
+              /*<<arg.ml:390:2>>*/ (Stdlib_Buffer[8], buf) /*<<arg.ml:394:20>>*/ ;
      /*<<arg.ml:394:20>>*/ }
      /*<<arg.ml:396:2>>*/ try{
      for(;;){
@@ -23762,7 +24032,7 @@
          /*<<arg.ml:405:16>>*/  /*<<arg.ml:405:16>>*/ caml_call1
           /*<<arg.ml:405:16>>*/ (Stdlib_List[10], words[1]);
       /*<<arg.ml:405:16>>*/ return  /*<<arg.ml:405:16>>*/ caml_call1
-              /*<<arg.ml:405:16>>*/ (Stdlib_Array[11], _F_);
+              /*<<arg.ml:405:16>>*/ (Stdlib_Array[11], _F_) /*<<arg.ml:405:33>>*/ ;
     }
     /*<<arg.ml:405:33>>*/ }
    var _r_ = 10, _s_ = 1;
@@ -23781,11 +24051,11 @@
       /*<<arg.ml:413:2>>*/ (Stdlib_Array[12],
       function(s){
         /*<<arg.ml:413:23>>*/ return caml_call4
-               (Stdlib_Printf[1], oc, _v_, s, sep);
+               (Stdlib_Printf[1], oc, _v_, s, sep) /*<<arg.ml:413:46>>*/ ;
        /*<<arg.ml:413:46>>*/ },
       args);
      /*<<arg.ml:413:2>>*/ return  /*<<arg.ml:413:2>>*/ caml_call1
-             /*<<arg.ml:413:2>>*/ (Stdlib[76], oc);
+             /*<<arg.ml:413:2>>*/ (Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
     /*<<arg.ml:414:14>>*/ }
    var _w_ = 10;
    function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
@@ -23951,29 +24221,29 @@
        /*<<printexc.ml:26:9>>*/ caml_call1
         /*<<printexc.ml:26:9>>*/ (Stdlib_Obj[1], f))
       /*<<printexc.ml:27:4>>*/ return  /*<<printexc.ml:27:4>>*/ caml_call2
-              /*<<printexc.ml:27:4>>*/ (Stdlib_Printf[4], _b_, f);
+              /*<<printexc.ml:27:4>>*/ (Stdlib_Printf[4], _b_, f) /*<<printexc.ml:33:7>>*/ ;
     var _ah_ =  /*<<printexc.ml:28:7>>*/ Stdlib_Obj[15];
     if
      ( /*<<printexc.ml:28:10>>*/ caml_obj_tag /*<<printexc.ml:28:10>>*/ (f)
       === _ah_)
       /*<<printexc.ml:29:4>>*/ return  /*<<printexc.ml:29:4>>*/ caml_call2
-              /*<<printexc.ml:29:4>>*/ (Stdlib_Printf[4], _a_, f);
+              /*<<printexc.ml:29:4>>*/ (Stdlib_Printf[4], _a_, f) /*<<printexc.ml:33:7>>*/ ;
     var _ai_ =  /*<<printexc.ml:30:7>>*/ Stdlib_Obj[16];
     return  /*<<printexc.ml:30:10>>*/ caml_obj_tag
               /*<<printexc.ml:30:10>>*/ (f)
             === _ai_
             ?  /*<<printexc.ml:31:4>>*/ caml_call1
                /*<<printexc.ml:31:4>>*/ (Stdlib[35], f)
-            : cst;
+            : cst /*<<printexc.ml:33:7>>*/ ;
     /*<<printexc.ml:33:7>>*/ }
    function other_fields(x, i){
      /*<<printexc.ml:36:2>>*/ if(x.length - 1 <= i)
-      /*<<printexc.ml:36:26>>*/ return cst$0;
+      /*<<printexc.ml:36:26>>*/ return cst$0 /*<<printexc.ml:36:26>>*/ ;
     var
      _af_ =  /*<<printexc.ml:37:36>>*/ other_fields(x, i + 1 | 0),
      _ag_ =  /*<<printexc.ml:37:24>>*/ field(x, i);
      /*<<printexc.ml:37:36>>*/ return  /*<<printexc.ml:37:36>>*/ caml_call3
-             /*<<printexc.ml:37:36>>*/ (Stdlib_Printf[4], _c_, _ag_, _af_);
+             /*<<printexc.ml:37:36>>*/ (Stdlib_Printf[4], _c_, _ag_, _af_) /*<<printexc.ml:37:58>>*/ ;
     /*<<printexc.ml:37:58>>*/ }
    function use_printers(x){
     var
@@ -23981,7 +24251,8 @@
         /*<<printexc.ml:53:7>>*/ caml_call1
          /*<<printexc.ml:53:7>>*/ (Stdlib_Atomic[3], printers);
      /*<<printexc.ml:47:17>>*/ for(;;){
-     if(! param)  /*<<printexc.ml:52:12>>*/ return 0;
+     if(! param)
+       /*<<printexc.ml:52:12>>*/ return 0 /*<<printexc.ml:52:12>>*/ ;
      var tl = param[2], hd = param[1];
      a:
      {
@@ -23992,7 +24263,10 @@
             /*<<printexc.ml:49:15>>*/ (hd, x);
       }
       catch(_ae_){break a;}
-      if(val){var s = val[1];  /*<<printexc.ml:51:21>>*/ return [0, s];}
+      if(val){
+       var s = val[1];
+        /*<<printexc.ml:51:21>>*/ return [0, s] /*<<printexc.ml:51:21>>*/ ;
+      }
      }
      param = tl;
     }
@@ -24030,15 +24304,16 @@
      var match$0 = [0, t[1], 0];
     var fields_opt = match$0[2], constructor$0 = match$0[1];
      /*<<printexc.ml:65:2>>*/ if(! fields_opt)
-      /*<<printexc.ml:66:12>>*/ return constructor$0;
+      /*<<printexc.ml:66:12>>*/ return constructor$0 /*<<printexc.ml:66:12>>*/ ;
     var f = fields_opt[1];
      /*<<printexc.ml:67:14>>*/ return  /*<<printexc.ml:67:14>>*/ caml_call2
-             /*<<printexc.ml:67:14>>*/ (Stdlib[28], constructor$0, f);
+             /*<<printexc.ml:67:14>>*/ (Stdlib[28], constructor$0, f) /*<<printexc.ml:67:29>>*/ ;
     /*<<printexc.ml:67:29>>*/ }
    function to_string_default(x){
      /*<<printexc.ml:69:24>>*/ if(x === Stdlib[9])
-      /*<<printexc.ml:70:21>>*/ return cst_Out_of_memory;
-    if(x === Stdlib[10])  /*<<printexc.ml:71:22>>*/ return cst_Stack_overflow;
+      /*<<printexc.ml:70:21>>*/ return cst_Out_of_memory /*<<printexc.ml:70:21>>*/ ;
+    if(x === Stdlib[10])
+      /*<<printexc.ml:71:22>>*/ return cst_Stack_overflow /*<<printexc.ml:71:22>>*/ ;
     if(x[1] === Stdlib[4]){
      var match = x[2], char$0 = match[3], line = match[2], file = match[1];
       /*<<printexc.ml:73:6>>*/ return  /*<<printexc.ml:73:6>>*/ caml_call6
@@ -24048,7 +24323,7 @@
               line,
               char$0,
               char$0 + 5 | 0,
-              cst_Pattern_matching_failed);
+              cst_Pattern_matching_failed) /*<<printexc.ml:79:50>>*/ ;
     }
     if(x[1] === Stdlib[5]){
      var
@@ -24063,10 +24338,10 @@
               line$0,
               char$1,
               char$1 + 6 | 0,
-              cst_Assertion_failed);
+              cst_Assertion_failed) /*<<printexc.ml:79:50>>*/ ;
     }
     if(x[1] !== Stdlib[15])
-      /*<<printexc.ml:79:6>>*/ return string_of_extension_constructo(x);
+      /*<<printexc.ml:79:6>>*/ return string_of_extension_constructo(x) /*<<printexc.ml:79:50>>*/ ;
     var
      match$1 = x[2],
      char$2 = match$1[3],
@@ -24079,13 +24354,14 @@
              line$1,
              char$2,
              char$2 + 6 | 0,
-             cst_Undefined_recursive_module);
+             cst_Undefined_recursive_module) /*<<printexc.ml:79:50>>*/ ;
     /*<<printexc.ml:79:50>>*/ }
    function to_string(e){
     var match =  /*<<printexc.ml:82:8>>*/ use_printers(e);
-    if(! match)  /*<<printexc.ml:84:12>>*/ return to_string_default(e);
+    if(! match)
+      /*<<printexc.ml:84:12>>*/ return to_string_default(e) /*<<printexc.ml:84:31>>*/ ;
     var s = match[1];
-     /*<<printexc.ml:83:14>>*/ return s;
+     /*<<printexc.ml:83:14>>*/ return s /*<<printexc.ml:83:14>>*/ ;
     /*<<printexc.ml:84:31>>*/ }
    function print(fct, arg){
      /*<<printexc.ml:87:2>>*/ try{
@@ -24093,7 +24369,7 @@
       _$_ =
          /*<<printexc.ml:88:4>>*/  /*<<printexc.ml:88:4>>*/ caml_call1
           /*<<printexc.ml:88:4>>*/ (fct, arg);
-      /*<<printexc.ml:88:4>>*/ return _$_;
+      /*<<printexc.ml:88:4>>*/ return _$_ /*<<printexc.ml:88:4>>*/ ;
     }
     catch(x$0){
      var
@@ -24113,7 +24389,7 @@
       _Z_ =
          /*<<printexc.ml:96:4>>*/  /*<<printexc.ml:96:4>>*/ caml_call1
           /*<<printexc.ml:96:4>>*/ (fct, arg);
-      /*<<printexc.ml:96:4>>*/ return _Z_;
+      /*<<printexc.ml:96:4>>*/ return _Z_ /*<<printexc.ml:96:4>>*/ ;
     }
     catch(x$0){
      var x = caml_wrap_exception(x$0);
@@ -24123,22 +24399,22 @@
       /*<<printexc.ml:99:4>>*/  /*<<printexc.ml:99:4>>*/ caml_call2
        /*<<printexc.ml:99:4>>*/ (Stdlib_Printf[3], _g_, _Y_);
       /*<<printexc.ml:99:4>>*/ return  /*<<printexc.ml:99:4>>*/ caml_call1
-              /*<<printexc.ml:99:4>>*/ (Stdlib[99], 2);
+              /*<<printexc.ml:99:4>>*/ (Stdlib[99], 2) /*<<printexc.ml:100:10>>*/ ;
     }
     /*<<printexc.ml:100:10>>*/ }
    function raw_backtrace_entries(bt){
-     /*<<printexc.ml:106:31>>*/ return bt;
+     /*<<printexc.ml:106:31>>*/ return bt /*<<printexc.ml:106:31>>*/ ;
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
      /*<<printexc.ml:138:2>>*/ return [0,
              /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace
-              /*<<printexc.ml:138:11>>*/ (bt)];
+              /*<<printexc.ml:138:11>>*/ (bt)] /*<<printexc.ml:138:6>>*/ ;
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
       /*<<printexc.ml:143:4>>*/ return is_raise
              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-             : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from;
+             : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<printexc.ml:146:75>>*/ ;
      /*<<printexc.ml:146:75>>*/ }
      /*<<printexc.ml:148:2>>*/ if(0 === slot[0]){
      var
@@ -24167,13 +24443,14 @@
                _T_,
                lines,
                _S_,
-               _R_)];
+               _R_)] /*<<printexc.ml:161:6>>*/ ;
     }
-    if(slot[1])  /*<<printexc.ml:151:50>>*/ return 0;
+    if(slot[1])
+      /*<<printexc.ml:151:50>>*/ return 0 /*<<printexc.ml:151:50>>*/ ;
     var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
      /*<<printexc.ml:153:8>>*/ return [0,
              /*<<printexc.ml:153:13>>*/ caml_call2
-              /*<<printexc.ml:153:13>>*/ (Stdlib_Printf[4], _k_, _X_)];
+              /*<<printexc.ml:153:13>>*/ (Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:8>>*/ ;
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
     var
@@ -24181,7 +24458,7 @@
         /*<<printexc.ml:179:36>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:169:6>>*/ return  /*<<printexc.ml:169:6>>*/ caml_call2
-              /*<<printexc.ml:169:6>>*/ (Stdlib_Printf[1], outchan, _m_);
+              /*<<printexc.ml:169:6>>*/ (Stdlib_Printf[1], outchan, _m_) /*<<printexc.ml:179:73>>*/ ;
     var a = backtrace[1], _P_ = a.length - 2 | 0, _O_ = 0;
     if(_P_ >= 0){
      var i = _O_;
@@ -24206,14 +24483,14 @@
      /*<<printexc.ml:183:2>>*/ return print_raw_backtrace
             (outchan,
               /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra
-               /*<<printexc.ml:183:30>>*/ (0));
+               /*<<printexc.ml:183:30>>*/ (0)) /*<<printexc.ml:183:52>>*/ ;
     /*<<printexc.ml:183:52>>*/ }
    function raw_backtrace_to_string(raw_backtrace){
     var
      backtrace =
         /*<<printexc.ml:199:22>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
-      /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_;
+      /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_ /*<<printexc.ml:188:5>>*/ ;
     var
      a = backtrace[1],
      b =
@@ -24239,29 +24516,30 @@
      }
     }
      /*<<printexc.ml:196:6>>*/ return  /*<<printexc.ml:196:6>>*/ caml_call1
-             /*<<printexc.ml:196:6>>*/ (Stdlib_Buffer[2], b);
+             /*<<printexc.ml:196:6>>*/ (Stdlib_Buffer[2], b) /*<<printexc.ml:199:59>>*/ ;
     /*<<printexc.ml:199:59>>*/ }
    function backtrace_slot_is_raise(param){
-     /*<<printexc.ml:201:30>>*/ return 0 === param[0] ? param[1] : param[1];
+     /*<<printexc.ml:201:30>>*/ return 0 === param[0] ? param[1] : param[1] /*<<printexc.ml:203:36>>*/ ;
     /*<<printexc.ml:203:36>>*/ }
    function backtrace_slot_is_inline(param){
-     /*<<printexc.ml:205:31>>*/ return 0 === param[0] ? param[8] : 0;
+     /*<<printexc.ml:205:31>>*/ return 0 === param[0] ? param[8] : 0 /*<<printexc.ml:207:31>>*/ ;
     /*<<printexc.ml:207:31>>*/ }
    function backtrace_slot_location(param){
      /*<<printexc.ml:218:30>>*/ return 0 === param[0]
             ? [0,
               [0, param[2], param[3], param[4], param[5], param[6], param[7]]]
-            : 0;
+            : 0 /*<<printexc.ml:228:5>>*/ ;
     /*<<printexc.ml:228:5>>*/ }
    function backtrace_slot_defname(param){
      /*<<printexc.ml:230:29>>*/ if(0 === param[0] && param[9] !== cst$4)
-      /*<<printexc.ml:233:24>>*/ return [0, param[9]];
-     /*<<printexc.ml:232:39>>*/ return 0;
+      /*<<printexc.ml:233:24>>*/ return [0, param[9]] /*<<printexc.ml:233:24>>*/ ;
+     /*<<printexc.ml:232:39>>*/ return 0 /*<<printexc.ml:232:39>>*/ ;
     /*<<printexc.ml:233:38>>*/ }
    function backtrace_slots(raw_backtrace){
     var
      match =  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace(raw_backtrace);
-    if(! match)  /*<<printexc.ml:243:14>>*/ return 0;
+    if(! match)
+      /*<<printexc.ml:243:14>>*/ return 0 /*<<printexc.ml:243:14>>*/ ;
     var backtrace = match[1], i$1 = backtrace.length - 2 | 0, i = i$1;
      /*<<printexc.ml:248:30>>*/ for(;;){
      if(-1 === i)
@@ -24275,11 +24553,11 @@
       }
       var _K_ = _J_;
      }
-      /*<<printexc.ml:251:9>>*/ return _K_ ? [0, backtrace] : 0;
+      /*<<printexc.ml:251:9>>*/ return _K_ ? [0, backtrace] : 0 /*<<printexc.ml:253:15>>*/ ;
     }
     /*<<printexc.ml:253:15>>*/ }
    function backtrace_slots_of_raw_entry(entry){
-     /*<<printexc.ml:256:2>>*/ return backtrace_slots([0, entry]);
+     /*<<printexc.ml:256:2>>*/ return backtrace_slots([0, entry]) /*<<printexc.ml:256:29>>*/ ;
     /*<<printexc.ml:256:29>>*/ }
    function raw_backtrace_length(bt){
      /*<<printexc.ml:267:30>>*/ return bt.length - 1;
@@ -24287,7 +24565,7 @@
    function get_backtrace(param){
      /*<<printexc.ml:278:23>>*/ return raw_backtrace_to_string
             ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra
-               /*<<printexc.ml:278:47>>*/ (0));
+               /*<<printexc.ml:278:47>>*/ (0)) /*<<printexc.ml:278:69>>*/ ;
     /*<<printexc.ml:278:69>>*/ }
    function register_printer(fn){
      /*<<printexc.ml:284:2>>*/ for(;;){
@@ -24303,7 +24581,8 @@
           old_printers,
           new_printers),
       _I_ =  /*<<printexc.ml:287:2>>*/ 1 - success;
-     if(! _I_)  /*<<printexc.ml:287:2>>*/ return _I_;
+     if(! _I_)
+       /*<<printexc.ml:287:2>>*/ return _I_ /*<<printexc.ml:287:2>>*/ ;
     }
     /*<<printexc.ml:287:41>>*/ }
    function exn_slot(x){
@@ -24312,15 +24591,15 @@
               /*<<printexc.ml:293:5>>*/ caml_obj_tag
                /*<<printexc.ml:293:5>>*/ (x)
             ? x[1]
-            : x;
+            : x /*<<printexc.ml:293:44>>*/ ;
     /*<<printexc.ml:293:44>>*/ }
    function exn_slot_id(x){
     var slot =  /*<<printexc.ml:296:13>>*/ exn_slot(x);
-     /*<<printexc.ml:297:11>>*/ return slot[2];
+     /*<<printexc.ml:297:11>>*/ return slot[2] /*<<printexc.ml:297:11>>*/ ;
     /*<<printexc.ml:297:36>>*/ }
    function exn_slot_name(x){
     var slot =  /*<<printexc.ml:300:13>>*/ exn_slot(x);
-     /*<<printexc.ml:301:11>>*/ return slot[1];
+     /*<<printexc.ml:301:11>>*/ return slot[1] /*<<printexc.ml:301:11>>*/ ;
     /*<<printexc.ml:301:39>>*/ }
    var
     errors =
@@ -24354,7 +24633,7 @@
        /*<<printexc.ml:327:4>>*/ (Stdlib[53], _H_);
     }
      /*<<printexc.ml:327:4>>*/ return  /*<<printexc.ml:327:4>>*/ caml_call1
-             /*<<printexc.ml:327:4>>*/ (Stdlib[63], Stdlib[40]);
+             /*<<printexc.ml:327:4>>*/ (Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
     /*<<printexc.ml:328:14>>*/ }
    var
     uncaught_exception_handler =
@@ -24432,9 +24711,10 @@
            /*<<printexc.ml:365:8>>*/ (Stdlib[53],
            cst_Fatal_error_out_of_memory_);
      }
-      /*<<printexc.ml:372:4>>*/ return _B_;
+      /*<<printexc.ml:372:4>>*/ return _B_ /*<<printexc.ml:372:4>>*/ ;
+    }
+    catch(_C_){ /*<<printexc.ml:375:4>>*/ return 0 /*<<printexc.ml:375:4>>*/ ;
     }
-    catch(_C_){ /*<<printexc.ml:375:4>>*/ return 0;}
     /*<<printexc.ml:375:6>>*/ }
     /*<<printexc.ml:381:2>>*/  /*<<printexc.ml:381:2>>*/ runtime.caml_register_named_value
      /*<<printexc.ml:381:2>>*/ ("Printexc.handle_uncaught_exception",
@@ -24510,20 +24790,20 @@
     Stdlib_Printexc = global_data.Stdlib__Printexc,
     Stdlib = global_data.Stdlib;
    function const$0(c, param){
-     /*<<fun.ml:17:16>>*/ return c;
+     /*<<fun.ml:17:16>>*/ return c /*<<fun.ml:17:16>>*/ ;
     /*<<fun.ml:17:17>>*/ }
    function compose(f, g, x){
      /*<<fun.ml:18:20>>*/ return  /*<<fun.ml:18:22>>*/ caml_call1
              /*<<fun.ml:18:22>>*/ (f,
-              /*<<fun.ml:18:22>>*/ caml_call1 /*<<fun.ml:18:22>>*/ (g, x));
+              /*<<fun.ml:18:22>>*/ caml_call1 /*<<fun.ml:18:22>>*/ (g, x)) /*<<fun.ml:18:27>>*/ ;
     /*<<fun.ml:18:27>>*/ }
    function flip(f, x, y){
      /*<<fun.ml:19:17>>*/ return  /*<<fun.ml:19:17>>*/ caml_call2
-             /*<<fun.ml:19:17>>*/ (f, y, x);
+             /*<<fun.ml:19:17>>*/ (f, y, x) /*<<fun.ml:19:22>>*/ ;
     /*<<fun.ml:19:22>>*/ }
    function negate(p, v){
      /*<<fun.ml:20:17>>*/ return 1
-           -  /*<<fun.ml:20:21>>*/ caml_call1 /*<<fun.ml:20:21>>*/ (p, v);
+           -  /*<<fun.ml:20:21>>*/ caml_call1 /*<<fun.ml:20:21>>*/ (p, v) /*<<fun.ml:20:21>>*/ ;
     /*<<fun.ml:20:26>>*/ }
    var
     Finally_raised =
@@ -24535,7 +24815,7 @@
      /*<<fun.ml:24:9>>*/ (Stdlib_Printexc[9],
      function(param){
        /*<<fun.ml:24:38>>*/ if(param[1] !== Finally_raised)
-        /*<<fun.ml:26:7>>*/ return 0;
+        /*<<fun.ml:26:7>>*/ return 0 /*<<fun.ml:26:7>>*/ ;
       var
        exn = param[2],
        _a_ =
@@ -24543,7 +24823,7 @@
            /*<<fun.ml:25:55>>*/ (Stdlib_Printexc[1], exn);
        /*<<fun.ml:25:24>>*/ return [0,
                /*<<fun.ml:25:29>>*/ caml_call2
-                /*<<fun.ml:25:29>>*/ (Stdlib[28], cst_Fun_Finally_raised, _a_)];
+                /*<<fun.ml:25:29>>*/ (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:24>>*/ ;
       /*<<fun.ml:26:11>>*/ });
    var dummy = 0;
    function protect(finally$0, work){
@@ -24551,7 +24831,7 @@
       /*<<fun.ml:30:4>>*/ try{
        /*<<fun.ml:30:8>>*/  /*<<fun.ml:30:8>>*/ caml_call1
         /*<<fun.ml:30:8>>*/ (finally$0, 0);
-       /*<<fun.ml:30:8>>*/ return;
+       /*<<fun.ml:30:8>>*/ return /*<<fun.ml:30:8>>*/ ;
      }
      catch(e$0){
       var
@@ -24583,7 +24863,7 @@
              /*<<fun.ml:39:6>>*/ (work_exn, 0);
     }
      /*<<fun.ml:35:14>>*/ finally_no_exn(0);
-     /*<<fun.ml:35:14>>*/ return result;
+     /*<<fun.ml:35:14>>*/ return result /*<<fun.ml:35:14>>*/ ;
     /*<<fun.ml:39:52>>*/ }
    var
     Stdlib_Fun = [0, const$0, compose, flip, negate, protect, Finally_raised];
@@ -24700,9 +24980,10 @@
        [11, "heap_chunks: ", [4, 0, 0, 0, [12, 10, 0]]],
        "heap_chunks: %d\n"];
    function eventlog_pause(param){
-     /*<<gc.ml:65:24>>*/ return 0;
+     /*<<gc.ml:65:24>>*/ return 0 /*<<gc.ml:65:24>>*/ ;
     /*<<gc.ml:65:26>>*/ }
-   function eventlog_resume(param){ /*<<gc.ml:66:25>>*/ return 0;
+   function eventlog_resume(param){
+     /*<<gc.ml:66:25>>*/ return 0 /*<<gc.ml:66:25>>*/ ;
     /*<<gc.ml:66:27>>*/ }
    function print_stat(c){
     var
@@ -24755,7 +25036,7 @@
       /*<<gc.ml:90:2>>*/ (Stdlib_Printf[1], c, _s_, st[9]);
      /*<<gc.ml:91:2>>*/  /*<<gc.ml:91:2>>*/ caml_call3
       /*<<gc.ml:91:2>>*/ (Stdlib_Printf[1], c, _t_, st[11]);
-    return caml_call3(Stdlib_Printf[1], c, _u_, st[7]);
+    return caml_call3(Stdlib_Printf[1], c, _u_, st[7]) /*<<gc.ml:92:46>>*/ ;
     /*<<gc.ml:92:46>>*/ }
    function allocated_bytes(param){
     var
@@ -24765,11 +25046,11 @@
      ma = match[3],
      pro = match[2],
      mi = match[1];
-     /*<<gc.ml:97:2>>*/ return (mi + ma - pro) * (Stdlib_Sys[9] / 8 | 0);
+     /*<<gc.ml:97:2>>*/ return (mi + ma - pro) * (Stdlib_Sys[9] / 8 | 0) /*<<gc.ml:97:2>>*/ ;
     /*<<gc.ml:97:55>>*/ }
    function delete_alarm(a){
      /*<<gc.ml:115:21>>*/ return  /*<<gc.ml:115:21>>*/ caml_call2
-             /*<<gc.ml:115:21>>*/ (Stdlib_Atomic[4], a, 0);
+             /*<<gc.ml:115:21>>*/ (Stdlib_Atomic[4], a, 0) /*<<gc.ml:115:39>>*/ ;
     /*<<gc.ml:115:39>>*/ }
    function create_alarm(f){
     var
@@ -24779,22 +25060,32 @@
      /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:2>>*/ caml_call1
       /*<<gc.ml:119:2>>*/ (Stdlib_Domain[6],
       function(param){
-        /*<<gc.ml:119:28>>*/ return delete_alarm(_y_);
+        /*<<gc.ml:119:28>>*/ return delete_alarm(_y_) /*<<gc.ml:119:52>>*/ ;
        /*<<gc.ml:119:52>>*/ });
     return _y_;
     /*<<gc.ml:121:13>>*/ }
    var
     null_tracker =
        /*<<gc.ml:142:23>>*/ [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:143:30>>*/ return 0 /*<<gc.ml:143:30>>*/ ;
+        /*<<gc.ml:143:34>>*/ },
+       function(param){
+         /*<<gc.ml:144:30>>*/ return 0 /*<<gc.ml:144:30>>*/ ;
+        /*<<gc.ml:144:34>>*/ },
+       function(param){
+         /*<<gc.ml:145:26>>*/ return 0 /*<<gc.ml:145:26>>*/ ;
+        /*<<gc.ml:145:30>>*/ },
+       function(param){
+         /*<<gc.ml:146:32>>*/ return 0 /*<<gc.ml:146:32>>*/ ;
+        /*<<gc.ml:146:34>>*/ },
+       function(param){
+         /*<<gc.ml:147:32>>*/ return 0 /*<<gc.ml:147:32>>*/ ;
+        /*<<gc.ml:147: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:158:6>>*/ (sampling_rate, callstack_size, tracker);
+             /*<<gc.ml:158:6>>*/ (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:6>>*/ ;
    }
    var
     Stdlib_Gc =
@@ -24878,25 +25169,25 @@
              /*<<in_channel.ml:37:4>>*/ (Stdlib_Fun[5],
              function(param){
                /*<<in_channel.ml:36:34>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call1
-                       /*<<in_channel.ml:37:4>>*/ (Stdlib[94], ic);
+                       /*<<in_channel.ml:37:4>>*/ (Stdlib[94], ic) /*<<in_channel.ml:36:58>>*/ ;
               /*<<in_channel.ml:36:58>>*/ },
              function(param){
                /*<<in_channel.ml:37:15>>*/ return  /*<<in_channel.ml:36:2>>*/ caml_call1
-                       /*<<in_channel.ml:36:2>>*/ (f, ic);
-              /*<<in_channel.ml:37:19>>*/ });
+                       /*<<in_channel.ml:36:2>>*/ (f, ic) /*<<in_channel.ml:37:19>>*/ ;
+              /*<<in_channel.ml:37:19>>*/ }) /*<<in_channel.ml:37:20>>*/ ;
     /*<<in_channel.ml:37:20>>*/ }
    function with_open_bin(s, f){
-     /*<<in_channel.ml:40:2>>*/ return with_open(Stdlib[80], s, f);
+     /*<<in_channel.ml:40:2>>*/ return with_open(Stdlib[80], s, f) /*<<in_channel.ml:40:34>>*/ ;
     /*<<in_channel.ml:40:34>>*/ }
    function with_open_text(s, f){
-     /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f);
+     /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
     /*<<in_channel.ml:43:30>>*/ }
    function with_open_gen(flags, perm, s, f){
      /*<<in_channel.ml:46:2>>*/ return with_open
             ( /*<<in_channel.ml:46:12>>*/ caml_call2
                /*<<in_channel.ml:46:12>>*/ (Stdlib[81], flags, perm),
              s,
-             f);
+             f) /*<<in_channel.ml:46:47>>*/ ;
     /*<<in_channel.ml:46:47>>*/ }
    var
     seek = Stdlib[96][4],
@@ -24913,10 +25204,11 @@
     }
     catch(_x_){
      var _w_ = caml_wrap_exception(_x_);
-     if(_w_ === Stdlib[12])  /*<<in_channel.ml:57:29>>*/ return 0;
+     if(_w_ === Stdlib[12])
+       /*<<in_channel.ml:57:29>>*/ return 0 /*<<in_channel.ml:57:29>>*/ ;
      throw caml_maybe_attach_backtrace(_w_, 0);
     }
-     /*<<in_channel.ml:56:9>>*/ return [0, c];
+     /*<<in_channel.ml:56:9>>*/ return [0, c] /*<<in_channel.ml:56:9>>*/ ;
     /*<<in_channel.ml:57:33>>*/ }
    function input_byte(ic){
      /*<<in_channel.ml:60:2>>*/ try{
@@ -24927,10 +25219,11 @@
     }
     catch(_v_){
      var _u_ = caml_wrap_exception(_v_);
-     if(_u_ === Stdlib[12])  /*<<in_channel.ml:62:29>>*/ return 0;
+     if(_u_ === Stdlib[12])
+       /*<<in_channel.ml:62:29>>*/ return 0 /*<<in_channel.ml:62:29>>*/ ;
      throw caml_maybe_attach_backtrace(_u_, 0);
     }
-     /*<<in_channel.ml:61:9>>*/ return [0, n];
+     /*<<in_channel.ml:61:9>>*/ return [0, n] /*<<in_channel.ml:61:9>>*/ ;
     /*<<in_channel.ml:62:33>>*/ }
    function input_line(ic){
      /*<<in_channel.ml:65:2>>*/ try{
@@ -24941,10 +25234,11 @@
     }
     catch(_t_){
      var _s_ = caml_wrap_exception(_t_);
-     if(_s_ === Stdlib[12])  /*<<in_channel.ml:67:29>>*/ return 0;
+     if(_s_ === Stdlib[12])
+       /*<<in_channel.ml:67:29>>*/ return 0 /*<<in_channel.ml:67:29>>*/ ;
      throw caml_maybe_attach_backtrace(_s_, 0);
     }
-     /*<<in_channel.ml:66:9>>*/ return [0, s];
+     /*<<in_channel.ml:66:9>>*/ return [0, s] /*<<in_channel.ml:66:9>>*/ ;
     /*<<in_channel.ml:67:33>>*/ }
    var
     input = Stdlib[84],
@@ -24966,19 +25260,20 @@
         | 0)
         >= ofs)
       /*<<in_channel.ml:78:7>>*/ return  /*<<in_channel.ml:78:7>>*/ caml_ml_input_bigarray
-              /*<<in_channel.ml:78:7>>*/ (ic, buf, ofs, len);
+              /*<<in_channel.ml:78:7>>*/ (ic, buf, ofs, len) /*<<in_channel.ml:78:43>>*/ ;
      /*<<in_channel.ml:77:7>>*/ return  /*<<in_channel.ml:77:7>>*/ caml_call1
-             /*<<in_channel.ml:77:7>>*/ (Stdlib[1], cst_input_bigarray);
+             /*<<in_channel.ml:77:7>>*/ (Stdlib[1], cst_input_bigarray) /*<<in_channel.ml:78:43>>*/ ;
     /*<<in_channel.ml:78:43>>*/ }
    function really_input(ic, buf, pos, len){
      /*<<in_channel.ml:81:2>>*/ try{
       /*<<in_channel.ml:81:8>>*/  /*<<in_channel.ml:81:8>>*/ caml_call4
        /*<<in_channel.ml:81:8>>*/ (Stdlib[85], ic, buf, pos, len);
-      /*<<in_channel.ml:82:10>>*/ return _a_;
+      /*<<in_channel.ml:82:10>>*/ return _a_ /*<<in_channel.ml:82:10>>*/ ;
     }
     catch(_r_){
      var _q_ = caml_wrap_exception(_r_);
-     if(_q_ === Stdlib[12])  /*<<in_channel.ml:83:29>>*/ return 0;
+     if(_q_ === Stdlib[12])
+       /*<<in_channel.ml:83:29>>*/ return 0 /*<<in_channel.ml:83:29>>*/ ;
      throw caml_maybe_attach_backtrace(_q_, 0);
     }
     /*<<in_channel.ml:83:33>>*/ }
@@ -24995,20 +25290,21 @@
         >= ofs$1){
      var ofs = ofs$1, len = len$1;
       /*<<in_channel.ml:86:2>>*/ for(;;){
-      if(0 >= len)  /*<<in_channel.ml:86:19>>*/ return _b_;
+      if(0 >= len)
+        /*<<in_channel.ml:86:19>>*/ return _b_ /*<<in_channel.ml:86:19>>*/ ;
       var
        r =
           /*<<in_channel.ml:87:12>>*/  /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
            /*<<in_channel.ml:87:12>>*/ (ic, buf, ofs, len);
        /*<<in_channel.ml:88:4>>*/ if(0 === r)
-        /*<<in_channel.ml:89:9>>*/ return 0;
+        /*<<in_channel.ml:89:9>>*/ return 0 /*<<in_channel.ml:89:9>>*/ ;
       var len$0 = len - r | 0, ofs$0 = ofs + r | 0;
       ofs = ofs$0;
       len = len$0;
      }
     }
      /*<<in_channel.ml:95:7>>*/ return  /*<<in_channel.ml:95:7>>*/ caml_call1
-             /*<<in_channel.ml:95:7>>*/ (Stdlib[1], cst_really_input_bigarray);
+             /*<<in_channel.ml:95:7>>*/ (Stdlib[1], cst_really_input_bigarray) /*<<in_channel.ml:96:50>>*/ ;
     /*<<in_channel.ml:96:50>>*/ }
    function really_input_string(ic, len){
      /*<<in_channel.ml:99:2>>*/ try{
@@ -25019,10 +25315,11 @@
     }
     catch(_p_){
      var _o_ = caml_wrap_exception(_p_);
-     if(_o_ === Stdlib[12])  /*<<in_channel.ml:101:29>>*/ return 0;
+     if(_o_ === Stdlib[12])
+       /*<<in_channel.ml:101:29>>*/ return 0 /*<<in_channel.ml:101:29>>*/ ;
      throw caml_maybe_attach_backtrace(_o_, 0);
     }
-     /*<<in_channel.ml:100:9>>*/ return [0, s];
+     /*<<in_channel.ml:100:9>>*/ return [0, s] /*<<in_channel.ml:100:9>>*/ ;
     /*<<in_channel.ml:101:33>>*/ }
    function read_upto(ic, buf, ofs, len){
     var ofs$0 = ofs, len$0 = len;
@@ -25039,12 +25336,13 @@
        continue;
       }
      }
-      /*<<in_channel.ml:116:2>>*/ return ofs$0 - ofs | 0;
+      /*<<in_channel.ml:116:2>>*/ return ofs$0 - ofs | 0 /*<<in_channel.ml:116:2>>*/ ;
     }
     /*<<in_channel.ml:116:20>>*/ }
    function ensure(buf, ofs, n){
     var len = caml_ml_bytes_length(buf);
-    if((ofs + n | 0) <= len)  /*<<in_channel.ml:132:25>>*/ return buf;
+    if((ofs + n | 0) <= len)
+      /*<<in_channel.ml:132:25>>*/ return buf /*<<in_channel.ml:132:25>>*/ ;
     var new_len =  /*<<in_channel.ml:134:18>>*/ [0, len];
     for(;;){
      if(new_len[1] >= (ofs + n | 0)) break;
@@ -25066,7 +25364,7 @@
          /*<<in_channel.ml:148:18>>*/ (new_len$1);
      /*<<in_channel.ml:149:4>>*/  /*<<in_channel.ml:149:4>>*/ caml_call5
       /*<<in_channel.ml:149:4>>*/ (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
-     /*<<in_channel.ml:149:4>>*/ return new_buf;
+     /*<<in_channel.ml:149:4>>*/ return new_buf /*<<in_channel.ml:149:4>>*/ ;
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
     var chunk_size =  /*<<in_channel.ml:154:2>>*/ 65536;
@@ -25101,7 +25399,7 @@
         /*<<in_channel.ml:169:14>>*/ read_upto(ic, buf, 0, initial_size$1);
     if(nread < initial_size$1)
       /*<<in_channel.ml:171:4>>*/ return  /*<<in_channel.ml:171:4>>*/ caml_call3
-              /*<<in_channel.ml:171:4>>*/ (Stdlib_Bytes[8], buf, 0, nread);
+              /*<<in_channel.ml:171:4>>*/ (Stdlib_Bytes[8], buf, 0, nread) /*<<in_channel.ml:193:5>>*/ ;
      /*<<in_channel.ml:172:7>>*/ try{
      var
       c =
@@ -25112,7 +25410,7 @@
      var _j_ = caml_wrap_exception(_m_);
      if(_j_ === Stdlib[12])
        /*<<in_channel.ml:176:8>>*/ return  /*<<in_channel.ml:176:8>>*/ caml_call1
-               /*<<in_channel.ml:176:8>>*/ (Stdlib_Bytes[44], buf);
+               /*<<in_channel.ml:176:8>>*/ (Stdlib_Bytes[44], buf) /*<<in_channel.ml:193:5>>*/ ;
      throw caml_maybe_attach_backtrace(_j_, 0);
     }
     var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
@@ -25132,7 +25430,7 @@
                /*<<in_channel.ml:180:20>>*/ (Stdlib_Bytes[8],
                buf$1,
                0,
-               ofs + r | 0);
+               ofs + r | 0) /*<<in_channel.ml:193:5>>*/ ;
      var ofs$0 = ofs + rem | 0;
      buf$0 = buf$1;
      ofs = ofs$0;
@@ -25147,7 +25445,8 @@
     }
     catch(_h_){
      var _e_ = caml_wrap_exception(_h_);
-     if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
+     if(_e_ === Stdlib[12])
+       /*<<in_channel.ml:198:29>>*/ return 0 /*<<in_channel.ml:198:29>>*/ ;
      throw caml_maybe_attach_backtrace(_e_, 0);
     }
     var
@@ -25165,7 +25464,7 @@
       var _f_ = caml_wrap_exception(_g_);
       if(_f_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_f_, 0);
       dst[1 + offset] = 0;
-       /*<<in_channel.ml:197:20>>*/ return block;
+       /*<<in_channel.ml:197:20>>*/ return block /*<<in_channel.ml:197:20>>*/ ;
      }
      var dst$0 =  /*<<in_channel.ml:197:12>>*/ [0, line$0, 24029];
      dst[1 + offset] = dst$0;
@@ -25184,7 +25483,8 @@
      }
      catch(_d_){
       var _c_ = caml_wrap_exception(_d_);
-      if(_c_ === Stdlib[12])  /*<<in_channel.ml:203:29>>*/ return accu$0;
+      if(_c_ === Stdlib[12])
+        /*<<in_channel.ml:203:29>>*/ return accu$0 /*<<in_channel.ml:203:29>>*/ ;
       throw caml_maybe_attach_backtrace(_c_, 0);
      }
      var
@@ -25263,25 +25563,25 @@
              /*<<out_channel.ml:38:4>>*/ (Stdlib_Fun[5],
              function(param){
                /*<<out_channel.ml:37:34>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call1
-                       /*<<out_channel.ml:38:4>>*/ (Stdlib[77], oc);
+                       /*<<out_channel.ml:38:4>>*/ (Stdlib[77], oc) /*<<out_channel.ml:37:59>>*/ ;
               /*<<out_channel.ml:37:59>>*/ },
              function(param){
                /*<<out_channel.ml:38:15>>*/ return  /*<<out_channel.ml:37:2>>*/ caml_call1
-                       /*<<out_channel.ml:37:2>>*/ (f, oc);
-              /*<<out_channel.ml:38:19>>*/ });
+                       /*<<out_channel.ml:37:2>>*/ (f, oc) /*<<out_channel.ml:38:19>>*/ ;
+              /*<<out_channel.ml:38:19>>*/ }) /*<<out_channel.ml:38:20>>*/ ;
     /*<<out_channel.ml:38:20>>*/ }
    function with_open_bin(s, f){
-     /*<<out_channel.ml:41:2>>*/ return with_open(Stdlib[61], s, f);
+     /*<<out_channel.ml:41:2>>*/ return with_open(Stdlib[61], s, f) /*<<out_channel.ml:41:35>>*/ ;
     /*<<out_channel.ml:41:35>>*/ }
    function with_open_text(s, f){
-     /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f);
+     /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
     /*<<out_channel.ml:44:31>>*/ }
    function with_open_gen(flags, perm, s, f){
      /*<<out_channel.ml:47:2>>*/ return with_open
             ( /*<<out_channel.ml:47:12>>*/ caml_call2
                /*<<out_channel.ml:47:12>>*/ (Stdlib[62], flags, perm),
              s,
-             f);
+             f) /*<<out_channel.ml:47:48>>*/ ;
     /*<<out_channel.ml:47:48>>*/ }
    var
     seek = Stdlib[96][1],
@@ -25310,9 +25610,9 @@
         | 0)
         >= ofs)
       /*<<out_channel.ml:69:7>>*/ return  /*<<out_channel.ml:69:7>>*/ runtime.caml_ml_output_bigarray
-              /*<<out_channel.ml:69:7>>*/ (oc, buf, ofs, len);
+              /*<<out_channel.ml:69:7>>*/ (oc, buf, ofs, len) /*<<out_channel.ml:69:44>>*/ ;
      /*<<out_channel.ml:68:7>>*/ return  /*<<out_channel.ml:68:7>>*/ caml_call1
-             /*<<out_channel.ml:68:7>>*/ (Stdlib[1], cst_output_bigarray);
+             /*<<out_channel.ml:68:7>>*/ (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
     /*<<out_channel.ml:69:44>>*/ }
    var
     set_binary_mode = Stdlib[78],
@@ -25403,7 +25703,7 @@
    function hex_of_string(d){
     function char_hex(n){
      var _l_ = 10 <= n ? (97 + n | 0) - 10 | 0 : 48 + n | 0;
-     return caml_call1(Stdlib_Char[1], _l_);
+     return caml_call1(Stdlib_Char[1], _l_) /*<<digest.ml:21:52>>*/ ;
      /*<<digest.ml:21:52>>*/ }
     var
      len =
@@ -25429,7 +25729,7 @@
      }
     }
      /*<<digest.ml:29:2>>*/ return  /*<<digest.ml:29:2>>*/ caml_call1
-             /*<<digest.ml:29:2>>*/ (Stdlib_Bytes[44], result);
+             /*<<digest.ml:29:2>>*/ (Stdlib_Bytes[44], result) /*<<digest.ml:29:31>>*/ ;
     /*<<digest.ml:29:31>>*/ }
    function string_of_hex(s){
     function digit(c){
@@ -25441,7 +25741,7 @@
      }
      else if(9 >= c - 48 >>> 0) return c - 48 | 0;
       /*<<digest.ml:37:11>>*/ return  /*<<digest.ml:37:11>>*/ caml_call1
-              /*<<digest.ml:37:11>>*/ (Stdlib[1], cst_Digest_of_hex);
+              /*<<digest.ml:37:11>>*/ (Stdlib[1], cst_Digest_of_hex) /*<<digest.ml:37:38>>*/ ;
      /*<<digest.ml:37:38>>*/ }
      /*<<digest.ml:39:36>>*/ return  /*<<digest.ml:39:36>>*/ caml_call2
              /*<<digest.ml:39:36>>*/ (Stdlib_String[2],
@@ -25461,8 +25761,8 @@
                  + _g_
                  | 0;
                /*<<digest.ml:39:55>>*/ return  /*<<digest.ml:39:55>>*/ caml_call1
-                       /*<<digest.ml:39:55>>*/ (Stdlib_Char[1], _h_);
-              /*<<digest.ml:39:69>>*/ });
+                       /*<<digest.ml:39:55>>*/ (Stdlib_Char[1], _h_) /*<<digest.ml:39:69>>*/ ;
+              /*<<digest.ml:39:69>>*/ }) /*<<digest.ml:39:70>>*/ ;
     /*<<digest.ml:39:70>>*/ }
    function BLAKE2(X){
     var _a_ = X[1] < 1 ? 1 : 0, _b_ = _a_ || (64 < X[1] ? 1 : 0);
@@ -25479,12 +25779,12 @@
               cst,
               str,
               0,
-              caml_ml_string_length(str));
+              caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
      /*<<digest.ml:85:58>>*/ }
     function bytes(b){
       /*<<digest.ml:88:4>>*/ return string
              ( /*<<digest.ml:88:11>>*/ caml_call1
-                /*<<digest.ml:88:11>>*/ (Stdlib_Bytes[44], b));
+                /*<<digest.ml:88:11>>*/ (Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
      /*<<digest.ml:88:37>>*/ }
     function substring(str, ofs, len){
      var _d_ = ofs < 0 ? 1 : 0;
@@ -25498,14 +25798,14 @@
        /*<<digest.ml:92:9>>*/  /*<<digest.ml:92:9>>*/ caml_call1
         /*<<digest.ml:92:9>>*/ (Stdlib[1], cst_Digest_substring);
       /*<<digest.ml:93:4>>*/ return  /*<<digest.ml:93:4>>*/ caml_blake2_string
-              /*<<digest.ml:93:4>>*/ (hash_length, cst, str, ofs, len);
+              /*<<digest.ml:93:4>>*/ (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
      /*<<digest.ml:93:44>>*/ }
     function subbytes(b, ofs, len){
       /*<<digest.ml:96:4>>*/ return substring
              ( /*<<digest.ml:96:14>>*/ caml_call1
                 /*<<digest.ml:96:14>>*/ (Stdlib_Bytes[44], b),
               ofs,
-              len);
+              len) /*<<digest.ml:96:48>>*/ ;
      /*<<digest.ml:96:48>>*/ }
     function channel(ic, toread){
      var
@@ -25521,7 +25821,7 @@
        /*<<digest.ml:111:8>>*/ for(;;){
        if(0 === toread$0)
          /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
-                 /*<<digest.ml:111:27>>*/ (ctx, hash_length);
+                 /*<<digest.ml:111:27>>*/ (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
        var
         _c_ =
            /*<<digest.ml:112:44>>*/  /*<<digest.ml:112:44>>*/ caml_call2
@@ -25554,7 +25854,7 @@
             buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
          /*<<digest.ml:106:13>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
-                 /*<<digest.ml:106:13>>*/ (ctx, hash_length);
+                 /*<<digest.ml:106:13>>*/ (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
         /*<<digest.ml:107:14>>*/  /*<<digest.ml:107:14>>*/ caml_blake2_update
          /*<<digest.ml:107:14>>*/ (ctx,
           /*<<digest.ml:107:25>>*/ caml_call1
@@ -25568,29 +25868,29 @@
               /*<<digest.ml:124:38>>*/ (Stdlib_In_channel[5],
               filename,
               function(ic){
-                /*<<digest.ml:124:49>>*/ return channel(ic, -1);
-               /*<<digest.ml:124:64>>*/ });
+                /*<<digest.ml:124:49>>*/ return channel(ic, -1) /*<<digest.ml:124:64>>*/ ;
+               /*<<digest.ml:124:64>>*/ }) /*<<digest.ml:124:65>>*/ ;
      /*<<digest.ml:124:65>>*/ }
     function output(chan, digest){
       /*<<digest.ml:126:27>>*/ return  /*<<digest.ml:126:27>>*/ caml_call2
-              /*<<digest.ml:126:27>>*/ (Stdlib[66], chan, digest);
+              /*<<digest.ml:126:27>>*/ (Stdlib[66], chan, digest) /*<<digest.ml:126:52>>*/ ;
      /*<<digest.ml:126:52>>*/ }
     function input(chan){
       /*<<digest.ml:128:19>>*/ return caml_call2
-             (Stdlib[86], chan, hash_length);
+             (Stdlib[86], chan, hash_length) /*<<digest.ml:128:55>>*/ ;
      /*<<digest.ml:128:55>>*/ }
     function to_hex(d){
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
        /*<<digest.ml:131:43>>*/  /*<<digest.ml:131:43>>*/ caml_call1
         /*<<digest.ml:131:43>>*/ (Stdlib[1], cst_Digest_to_hex);
-      /*<<digest.ml:131:43>>*/ return hex_of_string(d);
+      /*<<digest.ml:131:43>>*/ return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
      /*<<digest.ml:132:19>>*/ }
     function of_hex(s){
       /*<<digest.ml:135:4>>*/ if
       (caml_ml_string_length(s) !== (hash_length * 2 | 0))
        /*<<digest.ml:135:47>>*/  /*<<digest.ml:135:47>>*/ caml_call1
         /*<<digest.ml:135:47>>*/ (Stdlib[1], cst_Digest_of_hex$0);
-      /*<<digest.ml:135:47>>*/ return string_of_hex(s);
+      /*<<digest.ml:135:47>>*/ return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
      /*<<digest.ml:136:19>>*/ }
      /*<<digest.ml:62:55>>*/ return [0,
             hash_length,
@@ -25605,7 +25905,7 @@
             output,
             input,
             to_hex,
-            of_hex];
+            of_hex] /*<<digest.ml:62:55>>*/ ;
    }
    var
     BLAKE128 = BLAKE2([0, 16]),
@@ -25618,27 +25918,27 @@
     cst_Digest_from_hex = "Digest.from_hex";
    function string(str){
      /*<<digest.ml:159:4>>*/ return  /*<<digest.ml:159:4>>*/ caml_md5_string
-             /*<<digest.ml:159:4>>*/ (str, 0, caml_ml_string_length(str));
+             /*<<digest.ml:159:4>>*/ (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
     /*<<digest.ml:159:43>>*/ }
    function bytes(b){
      /*<<digest.ml:161:16>>*/ return string
             ( /*<<digest.ml:161:23>>*/ caml_call1
-               /*<<digest.ml:161:23>>*/ (Stdlib_Bytes[44], b));
+               /*<<digest.ml:161:23>>*/ (Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
     /*<<digest.ml:161:49>>*/ }
    function substring(str, ofs, len){
      /*<<digest.ml:164:4>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(str) - len | 0) >= ofs)
       /*<<digest.ml:166:9>>*/ return  /*<<digest.ml:166:9>>*/ caml_md5_string
-              /*<<digest.ml:166:9>>*/ (str, ofs, len);
+              /*<<digest.ml:166:9>>*/ (str, ofs, len) /*<<digest.ml:166:34>>*/ ;
      /*<<digest.ml:165:9>>*/ return  /*<<digest.ml:165:9>>*/ caml_call1
-             /*<<digest.ml:165:9>>*/ (Stdlib[1], cst_Digest_substring$0);
+             /*<<digest.ml:165:9>>*/ (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
     /*<<digest.ml:166:34>>*/ }
    function subbytes(b, ofs, len){
      /*<<digest.ml:168:27>>*/ return substring
             ( /*<<digest.ml:168:37>>*/ caml_call1
                /*<<digest.ml:168:37>>*/ (Stdlib_Bytes[44], b),
              ofs,
-             len);
+             len) /*<<digest.ml:168:71>>*/ ;
     /*<<digest.ml:168:71>>*/ }
    function file(filename){
      /*<<digest.ml:171:4>>*/ return  /*<<digest.ml:171:38>>*/ caml_call2
@@ -25646,28 +25946,28 @@
              filename,
              function(ic){
                /*<<digest.ml:171:49>>*/ return  /*<<digest.ml:171:49>>*/ caml_md5_chan
-                       /*<<digest.ml:171:49>>*/ (ic, -1);
-              /*<<digest.ml:171:64>>*/ });
+                       /*<<digest.ml:171:49>>*/ (ic, -1) /*<<digest.ml:171:64>>*/ ;
+              /*<<digest.ml:171:64>>*/ }) /*<<digest.ml:171:65>>*/ ;
     /*<<digest.ml:171:65>>*/ }
    function output(chan, digest){
      /*<<digest.ml:173:27>>*/ return  /*<<digest.ml:173:27>>*/ caml_call2
-             /*<<digest.ml:173:27>>*/ (Stdlib[66], chan, digest);
+             /*<<digest.ml:173:27>>*/ (Stdlib[66], chan, digest) /*<<digest.ml:173:52>>*/ ;
     /*<<digest.ml:173:52>>*/ }
    function input(chan){
      /*<<digest.ml:175:19>>*/ return  /*<<digest.ml:175:19>>*/ caml_call2
-             /*<<digest.ml:175:19>>*/ (Stdlib[86], chan, 16);
+             /*<<digest.ml:175:19>>*/ (Stdlib[86], chan, 16) /*<<digest.ml:175:46>>*/ ;
     /*<<digest.ml:175:46>>*/ }
    function to_hex(d){
      /*<<digest.ml:178:4>>*/ if(16 !== caml_ml_string_length(d))
       /*<<digest.ml:178:34>>*/  /*<<digest.ml:178:34>>*/ caml_call1
        /*<<digest.ml:178:34>>*/ (Stdlib[1], cst_Digest_to_hex$0);
-     /*<<digest.ml:178:34>>*/ return hex_of_string(d);
+     /*<<digest.ml:178:34>>*/ return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
     /*<<digest.ml:179:19>>*/ }
    function of_hex(s){
      /*<<digest.ml:182:4>>*/ if(32 !== caml_ml_string_length(s))
       /*<<digest.ml:182:34>>*/  /*<<digest.ml:182:34>>*/ caml_call1
        /*<<digest.ml:182:34>>*/ (Stdlib[1], cst_Digest_from_hex);
-     /*<<digest.ml:182:34>>*/ return string_of_hex(s);
+     /*<<digest.ml:182:34>>*/ return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
     /*<<digest.ml:183:19>>*/ }
    var
     Stdlib_Digest =
@@ -25755,32 +26055,32 @@
    function kind_size_in_bytes(param){
      /*<<?>>*/ switch(param){
       case 0:
-        /*<<bigarray.ml:78:15>>*/ return 4;
+        /*<<bigarray.ml:78:15>>*/ return 4 /*<<bigarray.ml:78:15>>*/ ;
       case 1:
-        /*<<bigarray.ml:79:15>>*/ return 8;
+        /*<<bigarray.ml:79:15>>*/ return 8 /*<<bigarray.ml:79:15>>*/ ;
       case 2:
-        /*<<bigarray.ml:80:19>>*/ return 1;
+        /*<<bigarray.ml:80:19>>*/ return 1 /*<<bigarray.ml:80:19>>*/ ;
       case 3:
-        /*<<bigarray.ml:81:21>>*/ return 1;
+        /*<<bigarray.ml:81:21>>*/ return 1 /*<<bigarray.ml:81:21>>*/ ;
       case 4:
-        /*<<bigarray.ml:82:20>>*/ return 2;
+        /*<<bigarray.ml:82:20>>*/ return 2 /*<<bigarray.ml:82:20>>*/ ;
       case 5:
-        /*<<bigarray.ml:83:22>>*/ return 2;
+        /*<<bigarray.ml:83:22>>*/ return 2 /*<<bigarray.ml:83:22>>*/ ;
       case 6:
-        /*<<bigarray.ml:84:13>>*/ return 4;
+        /*<<bigarray.ml:84:13>>*/ return 4 /*<<bigarray.ml:84:13>>*/ ;
       case 7:
-        /*<<bigarray.ml:85:13>>*/ return 8;
+        /*<<bigarray.ml:85:13>>*/ return 8 /*<<bigarray.ml:85:13>>*/ ;
       case 8:
        return Stdlib_Sys[9] / 8 | 0;
       case 9:
        return Stdlib_Sys[9] / 8 | 0;
       case 10:
-        /*<<bigarray.ml:88:17>>*/ return 8;
+        /*<<bigarray.ml:88:17>>*/ return 8 /*<<bigarray.ml:88:17>>*/ ;
       case 11:
-        /*<<bigarray.ml:89:17>>*/ return 16;
+        /*<<bigarray.ml:89:17>>*/ return 16 /*<<bigarray.ml:89:17>>*/ ;
       case 12:
-        /*<<bigarray.ml:90:12>>*/ return 1;
-      default:  /*<<bigarray.ml:77:15>>*/ return 2;
+        /*<<bigarray.ml:90:12>>*/ return 1 /*<<bigarray.ml:90:12>>*/ ;
+      default:  /*<<bigarray.ml:77:15>>*/ return 2 /*<<bigarray.ml:77:15>>*/ ;
     }
    }
    var
@@ -25799,7 +26099,7 @@
        idx,
         /*<<bigarray.ml:108:47>>*/ caml_call1
          /*<<bigarray.ml:108:47>>*/ (f, idx));
-      /*<<bigarray.ml:108:35>>*/ return;
+      /*<<bigarray.ml:108:35>>*/ return /*<<bigarray.ml:108:35>>*/ ;
     }
     var
      _am_ =
@@ -25823,7 +26123,7 @@
        idx,
         /*<<bigarray.ml:114:32>>*/ caml_call1
          /*<<bigarray.ml:114:32>>*/ (f, idx));
-      /*<<bigarray.ml:114:20>>*/ return;
+      /*<<bigarray.ml:114:20>>*/ return /*<<bigarray.ml:114:20>>*/ ;
     }
     var
      _aj_ =  /*<<bigarray.ml:115:22>>*/ caml_check_bound(max, col)[1 + col],
@@ -25861,7 +26161,7 @@
                 f,
                 0,
                 dims),
-              arr);
+              arr) /*<<bigarray.ml:124:77>>*/ ;
     /*<<bigarray.ml:124:77>>*/ }
    function dims(a){
     var
@@ -25886,7 +26186,7 @@
       i = _ah_;
      }
     }
-     /*<<bigarray.ml:132:4>>*/ return d;
+     /*<<bigarray.ml:132:4>>*/ return d /*<<bigarray.ml:132:4>>*/ ;
     /*<<bigarray.ml:132:5>>*/ }
    function size_in_bytes(arr){
     var
@@ -25898,34 +26198,34 @@
              /*<<bigarray.ml:140:4>>*/ (kind_size_in_bytes
               ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind
                  /*<<bigarray.ml:140:24>>*/ (arr)),
-             _ad_);
+             _ad_) /*<<bigarray.ml:140:74>>*/ ;
     /*<<bigarray.ml:140:74>>*/ }
    function create(kind, layout){
      /*<<bigarray.ml:161:4>>*/ return  /*<<bigarray.ml:161:4>>*/ caml_ba_create
-             /*<<bigarray.ml:161:4>>*/ (kind, layout, [0]);
+             /*<<bigarray.ml:161:4>>*/ (kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
     /*<<bigarray.ml:161:36>>*/ }
    function get(arr){
      /*<<bigarray.ml:162:16>>*/ return  /*<<bigarray.ml:162:16>>*/ runtime.caml_ba_get_generic
-             /*<<bigarray.ml:162:16>>*/ (arr, [0]);
+             /*<<bigarray.ml:162:16>>*/ (arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
     /*<<bigarray.ml:162:37>>*/ }
    function set(arr){
     var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
      /*<<bigarray.ml:163:33>>*/ return function(_ab_){
-      /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);};
+      /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);} /*<<bigarray.ml:163:33>>*/ ;
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
      /*<<bigarray.ml:170:26>>*/ return kind_size_in_bytes
             ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind
-               /*<<bigarray.ml:170:45>>*/ (arr));
+               /*<<bigarray.ml:170:45>>*/ (arr)) /*<<bigarray.ml:170:55>>*/ ;
     /*<<bigarray.ml:170:55>>*/ }
    function of_value(kind, layout, v){
     var a =  /*<<bigarray.ml:176:12>>*/ create(kind, layout);
      /*<<bigarray.ml:177:4>>*/ set(a)(v);
-     /*<<bigarray.ml:177:4>>*/ return a;
+     /*<<bigarray.ml:177:4>>*/ return a /*<<bigarray.ml:177:4>>*/ ;
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
      /*<<bigarray.ml:185:4>>*/ return  /*<<bigarray.ml:185:4>>*/ caml_ba_create
-             /*<<bigarray.ml:185:4>>*/ (kind, layout, [0, dim]);
+             /*<<bigarray.ml:185:4>>*/ (kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
     /*<<bigarray.ml:185:39>>*/ }
    function size_in_bytes$1(arr){
     var
@@ -25936,7 +26236,7 @@
              /*<<bigarray.ml:199:4>>*/ (kind_size_in_bytes
               ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind
                  /*<<bigarray.ml:199:24>>*/ (arr)),
-             _$_);
+             _$_) /*<<bigarray.ml:199:47>>*/ ;
     /*<<bigarray.ml:199:47>>*/ }
    function slice(a, n){
      /*<<bigarray.ml:203:4>>*/ return  /*<<bigarray.ml:203:10>>*/ runtime.caml_ba_layout
@@ -25944,7 +26244,7 @@
             ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice
                /*<<bigarray.ml:205:25>>*/ (a, [0, n])
             :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice
-               /*<<bigarray.ml:204:19>>*/ (a, [0, n]);
+               /*<<bigarray.ml:204:19>>*/ (a, [0, n]) /*<<bigarray.ml:205:76>>*/ ;
     /*<<bigarray.ml:205:76>>*/ }
    function init$0(kind, layout, dim, f){
     var arr =  /*<<bigarray.ml:213:14>>*/ create$0(kind, layout, dim);
@@ -25963,7 +26263,7 @@
        i$0 = ___;
       }
      }
-      /*<<bigarray.ml:216:24>>*/ return arr;
+      /*<<bigarray.ml:216:24>>*/ return arr /*<<bigarray.ml:216:24>>*/ ;
     }
     var _X_ = dim - 1 | 0, _W_ =  /*<<bigarray.ml:209:4>>*/ 0;
     if(_X_ >= 0){
@@ -25979,7 +26279,7 @@
       i = _Y_;
      }
     }
-     /*<<bigarray.ml:215:18>>*/ return arr;
+     /*<<bigarray.ml:215:18>>*/ return arr /*<<bigarray.ml:215:18>>*/ ;
     /*<<bigarray.ml:216:51>>*/ }
    function of_array(kind, layout, data){
     var
@@ -25999,11 +26299,11 @@
       i = _V_;
      }
     }
-     /*<<bigarray.ml:225:4>>*/ return ba;
+     /*<<bigarray.ml:225:4>>*/ return ba /*<<bigarray.ml:225:4>>*/ ;
     /*<<bigarray.ml:225:6>>*/ }
    function create$1(kind, layout, dim1, dim2){
      /*<<bigarray.ml:231:4>>*/ return  /*<<bigarray.ml:231:4>>*/ caml_ba_create
-             /*<<bigarray.ml:231:4>>*/ (kind, layout, [0, dim1, dim2]);
+             /*<<bigarray.ml:231:4>>*/ (kind, layout, [0, dim1, dim2]) /*<<bigarray.ml:231:46>>*/ ;
     /*<<bigarray.ml:231:46>>*/ }
    function size_in_bytes$2(arr){
     var
@@ -26019,15 +26319,15 @@
                 ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind
                    /*<<bigarray.ml:247:24>>*/ (arr)),
                _S_),
-             _R_);
+             _R_) /*<<bigarray.ml:247:61>>*/ ;
     /*<<bigarray.ml:247:61>>*/ }
    function slice_left(a, n){
      /*<<bigarray.ml:254:23>>*/ return  /*<<bigarray.ml:254:23>>*/ caml_ba_slice
-             /*<<bigarray.ml:254:23>>*/ (a, [0, n]);
+             /*<<bigarray.ml:254:23>>*/ (a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
     /*<<bigarray.ml:254:50>>*/ }
    function slice_right(a, n){
      /*<<bigarray.ml:255:24>>*/ return  /*<<bigarray.ml:255:24>>*/ caml_ba_slice
-             /*<<bigarray.ml:255:24>>*/ (a, [0, n]);
+             /*<<bigarray.ml:255:24>>*/ (a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
     /*<<bigarray.ml:255:52>>*/ }
    function init$1(kind, layout, dim1, dim2, f){
     var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
@@ -26056,7 +26356,7 @@
        j$0 = _P_;
       }
      }
-      /*<<bigarray.ml:274:24>>*/ return arr;
+      /*<<bigarray.ml:274:24>>*/ return arr /*<<bigarray.ml:274:24>>*/ ;
     }
     var _I_ = dim1 - 1 | 0, _H_ =  /*<<bigarray.ml:259:4>>*/ 0;
     if(_I_ >= 0){
@@ -26082,7 +26382,7 @@
       i = _L_;
      }
     }
-     /*<<bigarray.ml:273:18>>*/ return arr;
+     /*<<bigarray.ml:273:18>>*/ return arr /*<<bigarray.ml:273:18>>*/ ;
     /*<<bigarray.ml:274:57>>*/ }
    function of_array$0(kind, layout, data){
     var
@@ -26123,11 +26423,11 @@
       i = _F_;
      }
     }
-     /*<<bigarray.ml:292:4>>*/ return ba;
+     /*<<bigarray.ml:292:4>>*/ return ba /*<<bigarray.ml:292:4>>*/ ;
     /*<<bigarray.ml:292:6>>*/ }
    function create$2(kind, layout, dim1, dim2, dim3){
      /*<<bigarray.ml:298:4>>*/ return  /*<<bigarray.ml:298:4>>*/ caml_ba_create
-             /*<<bigarray.ml:298:4>>*/ (kind, layout, [0, dim1, dim2, dim3]);
+             /*<<bigarray.ml:298:4>>*/ (kind, layout, [0, dim1, dim2, dim3]) /*<<bigarray.ml:298:52>>*/ ;
     /*<<bigarray.ml:298:52>>*/ }
    function size_in_bytes$3(arr){
     var
@@ -26148,23 +26448,23 @@
                      /*<<bigarray.ml:316:24>>*/ (arr)),
                  _A_),
                _z_),
-             _y_);
+             _y_) /*<<bigarray.ml:316:74>>*/ ;
     /*<<bigarray.ml:316:74>>*/ }
    function slice_left_1(a, n, m){
      /*<<bigarray.ml:323:27>>*/ return  /*<<bigarray.ml:323:27>>*/ caml_ba_slice
-             /*<<bigarray.ml:323:27>>*/ (a, [0, n, m]);
+             /*<<bigarray.ml:323:27>>*/ (a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
     /*<<bigarray.ml:323:57>>*/ }
    function slice_right_1(a, n, m){
      /*<<bigarray.ml:324:28>>*/ return  /*<<bigarray.ml:324:28>>*/ caml_ba_slice
-             /*<<bigarray.ml:324:28>>*/ (a, [0, n, m]);
+             /*<<bigarray.ml:324:28>>*/ (a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
     /*<<bigarray.ml:324:59>>*/ }
    function slice_left_2(a, n){
      /*<<bigarray.ml:325:25>>*/ return  /*<<bigarray.ml:325:25>>*/ caml_ba_slice
-             /*<<bigarray.ml:325:25>>*/ (a, [0, n]);
+             /*<<bigarray.ml:325:25>>*/ (a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
     /*<<bigarray.ml:325:52>>*/ }
    function slice_right_2(a, n){
      /*<<bigarray.ml:326:26>>*/ return  /*<<bigarray.ml:326:26>>*/ caml_ba_slice
-             /*<<bigarray.ml:326:26>>*/ (a, [0, n]);
+             /*<<bigarray.ml:326:26>>*/ (a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
     /*<<bigarray.ml:326:54>>*/ }
    function init$2(kind, layout, dim1, dim2, dim3, f){
     var
@@ -26205,7 +26505,7 @@
        k$0 = _u_;
       }
      }
-      /*<<bigarray.ml:349:24>>*/ return arr;
+      /*<<bigarray.ml:349:24>>*/ return arr /*<<bigarray.ml:349:24>>*/ ;
     }
     var _k_ = dim1 - 1 | 0, _j_ =  /*<<bigarray.ml:330:4>>*/ 0;
     if(_k_ >= 0){
@@ -26241,7 +26541,7 @@
       i = _n_;
      }
     }
-     /*<<bigarray.ml:348:18>>*/ return arr;
+     /*<<bigarray.ml:348:18>>*/ return arr /*<<bigarray.ml:348:18>>*/ ;
     /*<<bigarray.ml:349:62>>*/ }
    function of_array$1(kind, layout, data){
     var
@@ -26303,7 +26603,7 @@
       i = _e_;
      }
     }
-     /*<<bigarray.ml:373:4>>*/ return ba;
+     /*<<bigarray.ml:373:4>>*/ return ba /*<<bigarray.ml:373:4>>*/ ;
     /*<<bigarray.ml:373:6>>*/ }
    function array0_of_genarray(a){
      /*<<bigarray.ml:385:2>>*/ return 0
@@ -26313,7 +26613,7 @@
             ? a
             :  /*<<bigarray.ml:386:7>>*/ caml_call1
                /*<<bigarray.ml:386:7>>*/ (Stdlib[1],
-               cst_Bigarray_array0_of_genarra);
+               cst_Bigarray_array0_of_genarra) /*<<bigarray.ml:386:48>>*/ ;
     /*<<bigarray.ml:386:48>>*/ }
    function array1_of_genarray(a){
      /*<<bigarray.ml:388:2>>*/ return 1
@@ -26323,7 +26623,7 @@
             ? a
             :  /*<<bigarray.ml:389:7>>*/ caml_call1
                /*<<bigarray.ml:389:7>>*/ (Stdlib[1],
-               cst_Bigarray_array1_of_genarra);
+               cst_Bigarray_array1_of_genarra) /*<<bigarray.ml:389:48>>*/ ;
     /*<<bigarray.ml:389:48>>*/ }
    function array2_of_genarray(a){
      /*<<bigarray.ml:391:2>>*/ return 2
@@ -26333,7 +26633,7 @@
             ? a
             :  /*<<bigarray.ml:392:7>>*/ caml_call1
                /*<<bigarray.ml:392:7>>*/ (Stdlib[1],
-               cst_Bigarray_array2_of_genarra);
+               cst_Bigarray_array2_of_genarra) /*<<bigarray.ml:392:48>>*/ ;
     /*<<bigarray.ml:392:48>>*/ }
    function array3_of_genarray(a){
      /*<<bigarray.ml:394:2>>*/ return 3
@@ -26343,23 +26643,23 @@
             ? a
             :  /*<<bigarray.ml:395:7>>*/ caml_call1
                /*<<bigarray.ml:395:7>>*/ (Stdlib[1],
-               cst_Bigarray_array3_of_genarra);
+               cst_Bigarray_array3_of_genarra) /*<<bigarray.ml:395:48>>*/ ;
     /*<<bigarray.ml:395:48>>*/ }
    function reshape_0(a){
      /*<<bigarray.ml:400:18>>*/ return  /*<<bigarray.ml:400:18>>*/ caml_ba_reshape
-             /*<<bigarray.ml:400:18>>*/ (a, [0]);
+             /*<<bigarray.ml:400:18>>*/ (a, [0]) /*<<bigarray.ml:400:32>>*/ ;
     /*<<bigarray.ml:400:32>>*/ }
    function reshape_1(a, dim1){
      /*<<bigarray.ml:401:23>>*/ return  /*<<bigarray.ml:401:23>>*/ caml_ba_reshape
-             /*<<bigarray.ml:401:23>>*/ (a, [0, dim1]);
+             /*<<bigarray.ml:401:23>>*/ (a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
     /*<<bigarray.ml:401:41>>*/ }
    function reshape_2(a, dim1, dim2){
      /*<<bigarray.ml:402:28>>*/ return  /*<<bigarray.ml:402:28>>*/ caml_ba_reshape
-             /*<<bigarray.ml:402:28>>*/ (a, [0, dim1, dim2]);
+             /*<<bigarray.ml:402:28>>*/ (a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
     /*<<bigarray.ml:402:51>>*/ }
    function reshape_3(a, dim1, dim2, dim3){
      /*<<bigarray.ml:403:33>>*/ return  /*<<bigarray.ml:403:33>>*/ caml_ba_reshape
-             /*<<bigarray.ml:403:33>>*/ (a, [0, dim1, dim2, dim3]);
+             /*<<bigarray.ml:403:33>>*/ (a, [0, dim1, dim2, dim3]) /*<<bigarray.ml:403:61>>*/ ;
     /*<<bigarray.ml:403:61>>*/ }
    var
     Stdlib_Bigarray =
@@ -26493,7 +26793,7 @@
     _e_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0);
    function create(param){
      /*<<random.ml:31:4>>*/ return  /*<<random.ml:31:4>>*/ caml_call3
-             /*<<random.ml:31:4>>*/ (Stdlib_Bigarray[20][1], 7, 0, 4);
+             /*<<random.ml:31:4>>*/ (Stdlib_Bigarray[20][1], 7, 0, 4) /*<<random.ml:31:34>>*/ ;
     /*<<random.ml:31:34>>*/ }
    function set(s, i1, i2, i3, i4){
      /*<<random.ml:34:4>>*/  /*<<random.ml:34:4>>*/ caml_ba_set_1
@@ -26518,12 +26818,12 @@
         ? i4
         : _d_;
      /*<<random.ml:37:4>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
-             /*<<random.ml:37:4>>*/ (s, 3, i4$0);
+             /*<<random.ml:37:4>>*/ (s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
     /*<<random.ml:37:55>>*/ }
    function mk(i1, i2, i3, i4){
     var s =  /*<<random.ml:40:12>>*/ create(0);
      /*<<random.ml:41:4>>*/ set(s, i1, i2, i3, i4);
-     /*<<random.ml:41:4>>*/ return s;
+     /*<<random.ml:41:4>>*/ return s /*<<random.ml:41:4>>*/ ;
     /*<<random.ml:41:24>>*/ }
    var
     serialization_prefix_len = 5,
@@ -26555,7 +26855,7 @@
      var _z_ =  /*<<random.ml:66:6>>*/ i + 1 | 0;
      if(3 === i)
        /*<<random.ml:68:4>>*/ return  /*<<random.ml:68:4>>*/ caml_call1
-               /*<<random.ml:68:4>>*/ (Stdlib_Bytes[44], buf);
+               /*<<random.ml:68:4>>*/ (Stdlib_Bytes[44], buf) /*<<random.ml:68:30>>*/ ;
      i = _z_;
     }
     /*<<random.ml:68:30>>*/ }
@@ -26594,13 +26894,13 @@
      i4 =
         /*<<random.ml:82:13>>*/  /*<<random.ml:82:13>>*/ caml_call2
          /*<<random.ml:82:13>>*/ (Stdlib_String[64], buf, 29);
-     /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4);
+     /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4) /*<<random.ml:83:18>>*/ ;
     /*<<random.ml:83:18>>*/ }
    function copy(src){
     var dst =  /*<<random.ml:89:13>>*/ create(0);
      /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit
       /*<<random.ml:86:4>>*/ (src, dst);
-     /*<<random.ml:89:25>>*/ return dst;
+     /*<<random.ml:89:25>>*/ return dst /*<<random.ml:89:25>>*/ ;
     /*<<random.ml:89:40>>*/ }
    function reinit(s, seed){
     var
@@ -26651,17 +26951,17 @@
                /*<<random.ml:106:10>>*/ (Stdlib_String[64], d1, 0),
              _s_,
              _r_,
-             _q_);
+             _q_) /*<<random.ml:109:36>>*/ ;
     /*<<random.ml:109:36>>*/ }
    function make(seed){
     var s =  /*<<random.ml:112:12>>*/ create(0);
      /*<<random.ml:112:24>>*/ reinit(s, seed);
-     /*<<random.ml:112:24>>*/ return s;
+     /*<<random.ml:112:24>>*/ return s /*<<random.ml:112:24>>*/ ;
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
      /*<<random.ml:115:4>>*/ return make
             ( /*<<random.ml:115:9>>*/ caml_sys_random_seed
-               /*<<random.ml:115:9>>*/ (0));
+               /*<<random.ml:115:9>>*/ (0)) /*<<random.ml:115:25>>*/ ;
     /*<<random.ml:115:25>>*/ }
    var
     max_int31 = 1073741823,
@@ -26687,25 +26987,25 @@
         & mask,
       v = caml_mod(r, n);
      if(((mask - n | 0) + 1 | 0) >= (r - v | 0))
-       /*<<random.ml:148:55>>*/ return v;
+       /*<<random.ml:148:55>>*/ return v /*<<random.ml:148:55>>*/ ;
     }
     /*<<random.ml:148:56>>*/ }
    function int$0(s, bound){
      /*<<random.ml:154:4>>*/ if(1073741823 >= bound && 0 < bound)
-     return int_aux(s, bound, max_int31);
+     return int_aux(s, bound, max_int31) /*<<random.ml:156:34>>*/ ;
      /*<<random.ml:155:9>>*/ return  /*<<random.ml:155:9>>*/ caml_call1
-             /*<<random.ml:155:9>>*/ (Stdlib[1], cst_Random_int);
+             /*<<random.ml:155:9>>*/ (Stdlib[1], cst_Random_int) /*<<random.ml:156:34>>*/ ;
     /*<<random.ml:156:34>>*/ }
    function full_int(s, bound){
      /*<<random.ml:161:4>>*/ if(0 >= bound)
       /*<<random.ml:162:6>>*/ return  /*<<random.ml:162:6>>*/ caml_call1
-              /*<<random.ml:162:6>>*/ (Stdlib[1], cst_Random_full_int);
+              /*<<random.ml:162:6>>*/ (Stdlib[1], cst_Random_full_int) /*<<random.ml:173:22>>*/ ;
     var
      _n_ =
        bound <= 1073741823
         ? max_int31
         : bound <= 2147483647 ? max_int32 : Stdlib[19];
-    return int_aux(s, bound, _n_);
+    return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
     /*<<random.ml:173:22>>*/ }
    function int_in_range_aux(s, min, max, mask, nbits){
     var span = (max - min | 0) + 1 | 0;
@@ -26719,7 +27019,8 @@
             /*<<random.ml:186:27>>*/ (s))
         << drop
         >> drop;
-     if(r >= min && max >= r)  /*<<random.ml:187:74>>*/ return r;
+     if(r >= min && max >= r)
+       /*<<random.ml:187:74>>*/ return r /*<<random.ml:187:74>>*/ ;
     }
     /*<<random.ml:201:43>>*/ }
    function int_in_range(s, min, max){
@@ -26728,17 +27029,17 @@
        /*<<random.ml:207:6>>*/ (Stdlib[1], cst_Random_int_in_range);
     if(-1073741824 <= min && max <= 1073741823)
       /*<<random.ml:215:6>>*/ return int_in_range_aux
-             (s, min, max, max_int31, 31);
+             (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
     if(-2147483648 <= min && max <= 2147483647)
       /*<<random.ml:217:6>>*/ return int_in_range_aux
-             (s, min, max, max_int32, 32);
+             (s, min, max, max_int32, 32) /*<<random.ml:219:68>>*/ ;
      /*<<random.ml:219:6>>*/ return int_in_range_aux
-            (s, min, max, Stdlib[19], Stdlib_Sys[10]);
+            (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
     /*<<random.ml:219:68>>*/ }
    function bits32(s){
      /*<<random.ml:223:4>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
              /*<<random.ml:223:4>>*/ ( /*<<random.ml:223:19>>*/ caml_lxm_next
-               /*<<random.ml:223:19>>*/ (s));
+               /*<<random.ml:223:19>>*/ (s)) /*<<random.ml:223:27>>*/ ;
     /*<<random.ml:223:27>>*/ }
    function int32aux(s, n){
      /*<<random.ml:227:4>>*/ for(;;){
@@ -26752,7 +27053,7 @@
         /*<<random.ml:230:14>>*/ caml_greaterthan
          /*<<random.ml:230:14>>*/ (r - v | 0,
          (Stdlib_Int32[9] - n | 0) + 1 | 0))
-       /*<<random.ml:232:9>>*/ return v;
+       /*<<random.ml:232:9>>*/ return v /*<<random.ml:232:9>>*/ ;
     }
     /*<<random.ml:232:10>>*/ }
    function int32(s, bound){
@@ -26760,14 +27061,14 @@
               /*<<random.ml:235:7>>*/ (bound, 0)
             ?  /*<<random.ml:236:9>>*/ caml_call1
                /*<<random.ml:236:9>>*/ (Stdlib[1], cst_Random_int32)
-            : int32aux(s, bound);
+            : int32aux(s, bound) /*<<random.ml:237:25>>*/ ;
     /*<<random.ml:237:25>>*/ }
    function int32_in_range(s, min, max){
      /*<<random.ml:246:4>>*/ if
      ( /*<<random.ml:246:7>>*/ caml_greaterthan
         /*<<random.ml:246:7>>*/ (min, max))
       /*<<random.ml:247:6>>*/ return  /*<<random.ml:247:6>>*/ caml_call1
-              /*<<random.ml:247:6>>*/ (Stdlib[1], cst_Random_int32_in_range);
+              /*<<random.ml:247:6>>*/ (Stdlib[1], cst_Random_int32_in_range) /*<<random.ml:254:39>>*/ ;
     var
      span =
         /*<<random.ml:249:17>>*/  /*<<random.ml:249:17>>*/ caml_call1
@@ -26776,7 +27077,7 @@
      (!
        /*<<random.ml:251:9>>*/ caml_lessequal
         /*<<random.ml:251:9>>*/ (span, Stdlib_Int32[1]))
-      /*<<random.ml:254:8>>*/ return min + int32aux(s, span) | 0;
+      /*<<random.ml:254:8>>*/ return min + int32aux(s, span) | 0 /*<<random.ml:254:8>>*/ ;
      /*<<random.ml:242:4>>*/ for(;;){
      var
       r =
@@ -26790,7 +27091,7 @@
         !
          /*<<random.ml:243:18>>*/ caml_greaterthan
           /*<<random.ml:243:18>>*/ (r, max))
-       /*<<random.ml:243:67>>*/ return r;
+       /*<<random.ml:243:67>>*/ return r /*<<random.ml:243:67>>*/ ;
     }
     /*<<random.ml:254:39>>*/ }
    var
@@ -26819,7 +27120,7 @@
            /*<<random.ml:265:24>>*/ ( /*<<random.ml:265:28>>*/ caml_int64_sub
              /*<<random.ml:265:28>>*/ (Stdlib_Int64[9], n),
            _f_)))
-       /*<<random.ml:267:9>>*/ return v;
+       /*<<random.ml:267:9>>*/ return v /*<<random.ml:267:9>>*/ ;
     }
     /*<<random.ml:267:10>>*/ }
    function int64(s, bound){
@@ -26827,14 +27128,14 @@
               /*<<random.ml:270:7>>*/ (bound, _g_)
             ?  /*<<random.ml:271:9>>*/ caml_call1
                /*<<random.ml:271:9>>*/ (Stdlib[1], cst_Random_int64)
-            : int64aux(s, bound);
+            : int64aux(s, bound) /*<<random.ml:272:25>>*/ ;
     /*<<random.ml:272:25>>*/ }
    function int64_in_range(s, min, max){
      /*<<random.ml:281:4>>*/ if
      ( /*<<random.ml:281:7>>*/ caml_greaterthan
         /*<<random.ml:281:7>>*/ (min, max))
       /*<<random.ml:282:6>>*/ return  /*<<random.ml:282:6>>*/ caml_call1
-              /*<<random.ml:282:6>>*/ (Stdlib[1], cst_Random_int64_in_range);
+              /*<<random.ml:282:6>>*/ (Stdlib[1], cst_Random_int64_in_range) /*<<random.ml:289:39>>*/ ;
     var
      span =
         /*<<random.ml:284:17>>*/  /*<<random.ml:284:17>>*/ caml_call1
@@ -26846,7 +27147,7 @@
        /*<<random.ml:286:9>>*/ caml_lessequal
         /*<<random.ml:286:9>>*/ (span, Stdlib_Int64[1]))
       /*<<random.ml:289:8>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
-              /*<<random.ml:289:8>>*/ (min, int64aux(s, span));
+              /*<<random.ml:289:8>>*/ (min, int64aux(s, span)) /*<<random.ml:289:39>>*/ ;
      /*<<random.ml:277:4>>*/ for(;;){
      var
       r =
@@ -26859,7 +27160,7 @@
         !
          /*<<random.ml:278:18>>*/ caml_greaterthan
           /*<<random.ml:278:18>>*/ (r, max))
-       /*<<random.ml:278:67>>*/ return r;
+       /*<<random.ml:278:67>>*/ return r /*<<random.ml:278:67>>*/ ;
     }
     /*<<random.ml:289:39>>*/ }
    var
@@ -26873,19 +27174,19 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s){
-          /*<<random.ml:294:18>>*/ return bits32(s);
+          /*<<random.ml:294:18>>*/ return bits32(s) /*<<random.ml:294:47>>*/ ;
          /*<<random.ml:294:47>>*/ }
        : function
         (s){
           /*<<random.ml:295:18>>*/ return  /*<<random.ml:295:18>>*/ caml_int64_to_int32
                   /*<<random.ml:295:18>>*/ ( /*<<random.ml:258:4>>*/ caml_lxm_next
-                    /*<<random.ml:258:4>>*/ (s));
+                    /*<<random.ml:258:4>>*/ (s)) /*<<random.ml:295:47>>*/ ;
          /*<<random.ml:295:47>>*/ },
     nativeint =
       32 === Stdlib_Nativeint[9]
        ? function
         (s, bound){
-          /*<<random.ml:300:24>>*/ return int32(s, bound);
+          /*<<random.ml:300:24>>*/ return int32(s, bound) /*<<random.ml:300:79>>*/ ;
          /*<<random.ml:300:79>>*/ }
        : function
         (s, bound){
@@ -26893,13 +27194,13 @@
                   /*<<random.ml:301:24>>*/ (int64
                    (s,
                      /*<<random.ml:301:52>>*/ caml_int64_of_int32
-                      /*<<random.ml:301:52>>*/ (bound)));
+                      /*<<random.ml:301:52>>*/ (bound))) /*<<random.ml:301:79>>*/ ;
          /*<<random.ml:301:79>>*/ },
     nativeint_in_range =
       32 === Stdlib_Nativeint[9]
        ? function
         (s, min, max){
-          /*<<random.ml:307:6>>*/ return int32_in_range(s, min, max);
+          /*<<random.ml:307:6>>*/ return int32_in_range(s, min, max) /*<<random.ml:308:68>>*/ ;
          /*<<random.ml:308:68>>*/ }
        : function
         (s, min, max){
@@ -26909,7 +27210,7 @@
                      /*<<random.ml:311:13>>*/ caml_int64_of_int32
                       /*<<random.ml:311:13>>*/ (min),
                      /*<<random.ml:311:43>>*/ caml_int64_of_int32
-                      /*<<random.ml:311:43>>*/ (max)));
+                      /*<<random.ml:311:43>>*/ (max))) /*<<random.ml:311:68>>*/ ;
          /*<<random.ml:311:68>>*/ };
    function float$0(s, bound){
      /*<<random.ml:321:22>>*/ for(;;){
@@ -26925,14 +27226,14 @@
        /*<<random.ml:321:22>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
                /*<<random.ml:318:20>>*/ (n)
              * 1.1102230246251565e-16
-             * bound;
+             * bound /*<<random.ml:321:22>>*/ ;
     }
     /*<<random.ml:321:41>>*/ }
    function bool(s){
      /*<<random.ml:324:15>>*/ return  /*<<random.ml:324:15>>*/ caml_lessthan
              /*<<random.ml:324:15>>*/ ( /*<<random.ml:324:15>>*/ caml_lxm_next
                /*<<random.ml:324:15>>*/ (s),
-             _i_);
+             _i_) /*<<random.ml:324:26>>*/ ;
     /*<<random.ml:324:26>>*/ }
    function split(s){
     var
@@ -26948,10 +27249,10 @@
      i4 =
         /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
          /*<<random.ml:258:4>>*/ (s);
-     /*<<random.ml:330:4>>*/ return mk(i1, i2, i3, i4);
+     /*<<random.ml:330:4>>*/ return mk(i1, i2, i3, i4) /*<<random.ml:330:18>>*/ ;
     /*<<random.ml:330:18>>*/ }
    function mk_default(param){
-     /*<<random.ml:335:2>>*/ return mk(_m_, _l_, _k_, _j_);
+     /*<<random.ml:335:2>>*/ return mk(_m_, _l_, _k_, _j_) /*<<random.ml:338:31>>*/ ;
     /*<<random.ml:338:31>>*/ }
    var
     random_key =
@@ -26960,81 +27261,81 @@
    function bits$0(param){
      /*<<random.ml:343:14>>*/ return bits
             ( /*<<random.ml:343:25>>*/ caml_call1
-               /*<<random.ml:343:25>>*/ (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:343:25>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
     /*<<random.ml:343:52>>*/ }
    function int$1(bound){
      /*<<random.ml:344:16>>*/ return int$0
             ( /*<<random.ml:344:26>>*/ caml_call1
                /*<<random.ml:344:26>>*/ (Stdlib_Domain[10][2], random_key),
-             bound);
+             bound) /*<<random.ml:344:59>>*/ ;
     /*<<random.ml:344:59>>*/ }
    function full_int$0(bound){
      /*<<random.ml:345:21>>*/ return full_int
             ( /*<<random.ml:345:36>>*/ caml_call1
                /*<<random.ml:345:36>>*/ (Stdlib_Domain[10][2], random_key),
-             bound);
+             bound) /*<<random.ml:345:69>>*/ ;
     /*<<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
                /*<<random.ml:347:21>>*/ (Stdlib_Domain[10][2], random_key),
              min,
-             max);
+             max) /*<<random.ml:347:58>>*/ ;
     /*<<random.ml:347:58>>*/ }
    function int32$0(bound){
      /*<<random.ml:348:18>>*/ return int32
             ( /*<<random.ml:348:30>>*/ caml_call1
                /*<<random.ml:348:30>>*/ (Stdlib_Domain[10][2], random_key),
-             bound);
+             bound) /*<<random.ml:348:63>>*/ ;
     /*<<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
                /*<<random.ml:350:23>>*/ (Stdlib_Domain[10][2], random_key),
              min,
-             max);
+             max) /*<<random.ml:350:60>>*/ ;
     /*<<random.ml:350:60>>*/ }
    function nativeint$0(bound){
      /*<<random.ml:351:22>>*/ return nativeint
             ( /*<<random.ml:351:38>>*/ caml_call1
                /*<<random.ml:351:38>>*/ (Stdlib_Domain[10][2], random_key),
-             bound);
+             bound) /*<<random.ml:351:71>>*/ ;
     /*<<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
                /*<<random.ml:353:27>>*/ (Stdlib_Domain[10][2], random_key),
              min,
-             max);
+             max) /*<<random.ml:353:64>>*/ ;
     /*<<random.ml:353:64>>*/ }
    function int64$0(bound){
      /*<<random.ml:354:18>>*/ return int64
             ( /*<<random.ml:354:30>>*/ caml_call1
                /*<<random.ml:354:30>>*/ (Stdlib_Domain[10][2], random_key),
-             bound);
+             bound) /*<<random.ml:354:63>>*/ ;
     /*<<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
                /*<<random.ml:356:23>>*/ (Stdlib_Domain[10][2], random_key),
              min,
-             max);
+             max) /*<<random.ml:356:60>>*/ ;
     /*<<random.ml:356:60>>*/ }
    function float$1(scale){
      /*<<random.ml:357:18>>*/ return float$0
             ( /*<<random.ml:357:30>>*/ caml_call1
                /*<<random.ml:357:30>>*/ (Stdlib_Domain[10][2], random_key),
-             scale);
+             scale) /*<<random.ml:357:63>>*/ ;
     /*<<random.ml:357:63>>*/ }
    function bool$0(param){
      /*<<random.ml:358:14>>*/ return bool
             ( /*<<random.ml:358:25>>*/ caml_call1
-               /*<<random.ml:358:25>>*/ (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:358:25>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
     /*<<random.ml:358:52>>*/ }
    function bits32$0(param){
      /*<<random.ml:359:16>>*/ return bits32
             ( /*<<random.ml:359:29>>*/ caml_call1
-               /*<<random.ml:359:29>>*/ (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:359:29>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
     /*<<random.ml:359:56>>*/ }
    function bits64$0(param){
     var
@@ -27042,36 +27343,36 @@
         /*<<random.ml:360:29>>*/  /*<<random.ml:360:29>>*/ caml_call1
          /*<<random.ml:360:29>>*/ (Stdlib_Domain[10][2], random_key);
      /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next
-             /*<<random.ml:258:4>>*/ (s);
+             /*<<random.ml:258:4>>*/ (s) /*<<random.ml:360:56>>*/ ;
     /*<<random.ml:360:56>>*/ }
    function nativebits$0(param){
      /*<<random.ml:361:20>>*/ return nativebits
             ( /*<<random.ml:361:37>>*/ caml_call1
-               /*<<random.ml:361:37>>*/ (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:361:37>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
     /*<<random.ml:361:64>>*/ }
    function full_init(seed){
      /*<<random.ml:363:21>>*/ return reinit
             ( /*<<random.ml:363:34>>*/ caml_call1
                /*<<random.ml:363:34>>*/ (Stdlib_Domain[10][2], random_key),
-             seed);
+             seed) /*<<random.ml:363:66>>*/ ;
     /*<<random.ml:363:66>>*/ }
    function init(seed){
-     /*<<random.ml:364:16>>*/ return full_init([0, seed]);
+     /*<<random.ml:364:16>>*/ return full_init([0, seed]) /*<<random.ml:364:36>>*/ ;
     /*<<random.ml:364:36>>*/ }
    function self_init(param){
      /*<<random.ml:365:19>>*/ return full_init
             ( /*<<random.ml:365:29>>*/ caml_sys_random_seed
-               /*<<random.ml:365:29>>*/ (0));
+               /*<<random.ml:365:29>>*/ (0)) /*<<random.ml:365:44>>*/ ;
     /*<<random.ml:365:44>>*/ }
    function split$0(param){
      /*<<random.ml:369:15>>*/ return split
             ( /*<<random.ml:369:27>>*/ caml_call1
-               /*<<random.ml:369:27>>*/ (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:369:27>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
     /*<<random.ml:369:54>>*/ }
    function get_state(param){
      /*<<random.ml:373:19>>*/ return copy
             ( /*<<random.ml:373:30>>*/ caml_call1
-               /*<<random.ml:373:30>>*/ (Stdlib_Domain[10][2], random_key));
+               /*<<random.ml:373:30>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
     /*<<random.ml:373:57>>*/ }
    function set_state(src){
     var
@@ -27079,7 +27380,7 @@
         /*<<random.ml:374:31>>*/  /*<<random.ml:374:31>>*/ caml_call1
          /*<<random.ml:374:31>>*/ (Stdlib_Domain[10][2], random_key);
      /*<<random.ml:86:4>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
-             /*<<random.ml:86:4>>*/ (src, dst);
+             /*<<random.ml:86:4>>*/ (src, dst) /*<<random.ml:374:60>>*/ ;
     /*<<random.ml:374:60>>*/ }
    var
     Stdlib_Random =
@@ -27224,10 +27525,10 @@
         /*<<hashtbl.ml:55:17>>*/ (Stdlib_Atomic[1], randomized_default);
    function randomize(param){
      /*<<hashtbl.ml:57:19>>*/ return  /*<<hashtbl.ml:57:19>>*/ caml_call2
-             /*<<hashtbl.ml:57:19>>*/ (Stdlib_Atomic[4], randomized, 1);
+             /*<<hashtbl.ml:57:19>>*/ (Stdlib_Atomic[4], randomized, 1) /*<<hashtbl.ml:57:45>>*/ ;
     /*<<hashtbl.ml:57:45>>*/ }
    function is_randomized(param){
-     /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized);
+     /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
     /*<<hashtbl.ml:58:44>>*/ }
    var
     prng_key =
@@ -27238,8 +27539,10 @@
    function power_2_above(x, n){
     var x$0 = x;
      /*<<hashtbl.ml:69:2>>*/ for(;;){
-     if(n <= x$0)  /*<<hashtbl.ml:69:17>>*/ return x$0;
-     if(Stdlib_Sys[13] < (x$0 * 2 | 0))  /*<<hashtbl.ml:70:44>>*/ return x$0;
+     if(n <= x$0)
+       /*<<hashtbl.ml:69:17>>*/ return x$0 /*<<hashtbl.ml:69:17>>*/ ;
+     if(Stdlib_Sys[13] < (x$0 * 2 | 0))
+       /*<<hashtbl.ml:70:44>>*/ return x$0 /*<<hashtbl.ml:70:44>>*/ ;
      var x$1 = x$0 * 2 | 0;
      x$0 = x$1;
     }
@@ -27267,7 +27570,7 @@
              /*<<hashtbl.ml:78:52>>*/ caml_make_vect
               /*<<hashtbl.ml:78:52>>*/ (s, 0),
             seed,
-            s];
+            s] /*<<hashtbl.ml:78:2>>*/ ;
    }
    function clear(h){
     var _aj_ = 0 < h[1] ? 1 : 0;
@@ -27281,7 +27584,7 @@
                 0,
                 h[2].length - 1,
                 0))
-            : _aj_;
+            : _aj_ /*<<hashtbl.ml:84:5>>*/ ;
     /*<<hashtbl.ml:84:5>>*/ }
    function reset(h){
     var len = h[2].length - 1;
@@ -27300,10 +27603,11 @@
         0);
      return 0;
     }
-     /*<<hashtbl.ml:90:4>>*/ return clear(h);
+     /*<<hashtbl.ml:90:4>>*/ return clear(h) /*<<hashtbl.ml:94:5>>*/ ;
     /*<<hashtbl.ml:94:5>>*/ }
    function copy_bucketlist(param){
-     /*<<hashtbl.ml:96:22>>*/ if(! param)  /*<<hashtbl.ml:97:13>>*/ return 0;
+     /*<<hashtbl.ml:96:22>>*/ if(! param)
+      /*<<hashtbl.ml:97:13>>*/ return 0 /*<<hashtbl.ml:97:13>>*/ ;
     var
      key = param[1],
      data = param[2],
@@ -27312,7 +27616,8 @@
      prec = prec$1,
      param$0 = next;
     for(;;){
-     if(! param$0)  /*<<hashtbl.ml:110:6>>*/ return prec$1;
+     if(! param$0)
+       /*<<hashtbl.ml:110:6>>*/ return prec$1 /*<<hashtbl.ml:110:6>>*/ ;
      var
       key$0 = param$0[1],
       data$0 = param$0[2],
@@ -27330,7 +27635,7 @@
      _ai_ =
         /*<<hashtbl.ml:113:29>>*/  /*<<hashtbl.ml:113:29>>*/ caml_call2
          /*<<hashtbl.ml:113:29>>*/ (Stdlib_Array[14], copy_bucketlist, h[2]);
-     /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_];
+     /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_] /*<<hashtbl.ml:113:13>>*/ ;
     /*<<hashtbl.ml:113:63>>*/ }
    function length(h){
      /*<<hashtbl.ml:115:15>>*/ return h[1];
@@ -27414,7 +27719,7 @@
                /*<<hashtbl.ml:153:23>>*/ (indexfun, h),
              inplace,
              odata,
-             ndata);
+             ndata) /*<<hashtbl.ml:154:5>>*/ ;
     /*<<hashtbl.ml:154:5>>*/ }
    function iter(f, h){
     var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
@@ -27438,7 +27743,7 @@
       }
      }
      var _X_ = 1 - old_trav, _Y_ = _X_ ? flip_ongoing_traversal(h) : _X_;
-      /*<<hashtbl.ml:169:25>>*/ return _Y_;
+      /*<<hashtbl.ml:169:25>>*/ return _Y_ /*<<hashtbl.ml:169:25>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
@@ -27492,7 +27797,7 @@
       }
      }
      var _S_ = 1 - old_trav, _T_ = _S_ ? flip_ongoing_traversal(h) : _S_;
-      /*<<hashtbl.ml:202:25>>*/ return _T_;
+      /*<<hashtbl.ml:202:25>>*/ return _T_ /*<<hashtbl.ml:202:25>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
@@ -27554,7 +27859,8 @@
    function bucket_length(accu, param){
     var accu$0 = accu, param$0 = param;
     for(;;){
-     if(! param$0)  /*<<hashtbl.ml:236:13>>*/ return accu$0;
+     if(! param$0)
+       /*<<hashtbl.ml:236:13>>*/ return accu$0 /*<<hashtbl.ml:236:13>>*/ ;
      var
       next = param$0[3],
       accu$1 =  /*<<hashtbl.ml:237:18>>*/ accu$0 + 1 | 0;
@@ -27570,7 +27876,7 @@
          function(m, b){
           var _L_ =  /*<<hashtbl.ml:241:42>>*/ bucket_length(0, b);
            /*<<hashtbl.ml:241:42>>*/ return  /*<<hashtbl.ml:241:42>>*/ caml_call2
-                   /*<<hashtbl.ml:241:42>>*/ (Stdlib_Int[11], m, _L_);
+                   /*<<hashtbl.ml:241:42>>*/ (Stdlib_Int[11], m, _L_) /*<<hashtbl.ml:241:61>>*/ ;
           /*<<hashtbl.ml:241:61>>*/ },
          0,
          h[2]),
@@ -27583,10 +27889,10 @@
        var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
         caml_check_bound(histo, l)[1 + l] + 1 | 0;
-        /*<<hashtbl.ml:246:6>>*/ return 0;
+        /*<<hashtbl.ml:246:6>>*/ return 0 /*<<hashtbl.ml:246:6>>*/ ;
        /*<<hashtbl.ml:246:32>>*/ },
       h[2]);
-     /*<<hashtbl.ml:248:2>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
+     /*<<hashtbl.ml:248:2>>*/ return [0, h[1], h[2].length - 1, mbl, histo] /*<<hashtbl.ml:248:2>>*/ ;
     /*<<hashtbl.ml:251:30>>*/ }
    function to_seq(tbl){
     var tbl_data = tbl[2];
@@ -27597,9 +27903,10 @@
        var key = buck$0[1], data = buck$0[2], next = buck$0[3];
         /*<<hashtbl.ml:266:8>>*/ return [0,
                [0, key, data],
-               function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}];
+               function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}] /*<<hashtbl.ml:266:8>>*/ ;
       }
-      if(i$0 === tbl_data.length - 1)  /*<<hashtbl.ml:263:13>>*/ return 0;
+      if(i$0 === tbl_data.length - 1)
+        /*<<hashtbl.ml:263:13>>*/ return 0 /*<<hashtbl.ml:263:13>>*/ ;
       var
        buck$1 =
           /*<<hashtbl.ml:264:22>>*/ caml_check_bound(tbl_data, i$0)[1 + i$0],
@@ -27610,28 +27917,28 @@
      /*<<hashtbl.ml:266:42>>*/ }
     var _H_ =  /*<<hashtbl.ml:268:2>>*/ 0, _I_ = 0;
      /*<<hashtbl.ml:268:2>>*/ return function(_J_){
-      /*<<?>>*/ return aux(_I_, _H_, _J_);};
+      /*<<?>>*/ return aux(_I_, _H_, _J_);} /*<<hashtbl.ml:268:2>>*/ ;
     /*<<hashtbl.ml:268:13>>*/ }
    function to_seq_keys(m){
     var _F_ =  /*<<hashtbl.ml:270:32>>*/ to_seq(m);
      /*<<hashtbl.ml:270:32>>*/ return  /*<<hashtbl.ml:270:32>>*/ caml_call2
              /*<<hashtbl.ml:270:32>>*/ (Stdlib_Seq[29],
              function(_G_){ /*<<?>>*/ return _G_[1];},
-             _F_);
+             _F_) /*<<hashtbl.ml:270:42>>*/ ;
     /*<<hashtbl.ml:270:42>>*/ }
    function to_seq_values(m){
     var _D_ =  /*<<hashtbl.ml:272:34>>*/ to_seq(m);
      /*<<hashtbl.ml:272:34>>*/ return  /*<<hashtbl.ml:272:34>>*/ caml_call2
              /*<<hashtbl.ml:272:34>>*/ (Stdlib_Seq[29],
              function(_E_){ /*<<?>>*/ return _E_[2];},
-             _D_);
+             _D_) /*<<hashtbl.ml:272:44>>*/ ;
     /*<<hashtbl.ml:272:44>>*/ }
    function MakeSeeded(H){
     function key_index(h, key){
      var _C_ = h[2].length - 2 | 0;
       /*<<hashtbl.ml:357:6>>*/ return  /*<<hashtbl.ml:357:6>>*/ caml_call2
               /*<<hashtbl.ml:357:6>>*/ (H[2], h[3], key)
-            & _C_;
+            & _C_ /*<<hashtbl.ml:357:6>>*/ ;
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
      var
@@ -27644,7 +27951,7 @@
       /*<<hashtbl.ml:362:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _B_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-     return _B_ ? resize(key_index, h) : _B_;
+     return _B_ ? resize(key_index, h) : _B_ /*<<hashtbl.ml:364:67>>*/ ;
      /*<<hashtbl.ml:364:67>>*/ }
     function remove(h, key){
      var
@@ -27653,7 +27960,8 @@
       prec$0 = 0,
       prec = c;
      for(;;){
-      if(! prec)  /*<<hashtbl.ml:368:10>>*/ return 0;
+      if(! prec)
+        /*<<hashtbl.ml:368:10>>*/ return 0 /*<<hashtbl.ml:368:10>>*/ ;
       var k = prec[1], next = prec[3];
        /*<<hashtbl.ml:370:13>>*/ if
        ( /*<<hashtbl.ml:370:13>>*/ caml_call2
@@ -27661,7 +27969,7 @@
        h[1] = h[1] - 1 | 0;
        return prec$0
                ? (prec$0[3] = next, 0)
-               : (caml_check_bound(h[2], i)[1 + i] = next, 0);
+               : (caml_check_bound(h[2], i)[1 + i] = next, 0) /*<<hashtbl.ml:381:44>>*/ ;
       }
       prec$0 = prec;
       prec = next;
@@ -27678,7 +27986,7 @@
       /*<<hashtbl.ml:393:13>>*/ if
       ( /*<<hashtbl.ml:393:13>>*/ caml_call2
          /*<<hashtbl.ml:393:13>>*/ (H[1], key, k1))
-       /*<<hashtbl.ml:393:33>>*/ return d1;
+       /*<<hashtbl.ml:393:33>>*/ return d1 /*<<hashtbl.ml:393:33>>*/ ;
      if(! next1)
        /*<<hashtbl.ml:395:21>>*/ throw  /*<<hashtbl.ml:395:21>>*/ caml_maybe_attach_backtrace
               /*<<hashtbl.ml:395:21>>*/ (Stdlib[8], 1);
@@ -27686,7 +27994,7 @@
       /*<<hashtbl.ml:397:17>>*/ if
       ( /*<<hashtbl.ml:397:17>>*/ caml_call2
          /*<<hashtbl.ml:397:17>>*/ (H[1], key, k2))
-       /*<<hashtbl.ml:397:37>>*/ return d2;
+       /*<<hashtbl.ml:397:37>>*/ return d2 /*<<hashtbl.ml:397:37>>*/ ;
      if(! next2)
        /*<<hashtbl.ml:399:25>>*/ throw  /*<<hashtbl.ml:399:25>>*/ caml_maybe_attach_backtrace
               /*<<hashtbl.ml:399:25>>*/ (Stdlib[8], 1);
@@ -27694,7 +28002,7 @@
       /*<<hashtbl.ml:401:21>>*/ if
       ( /*<<hashtbl.ml:401:21>>*/ caml_call2
          /*<<hashtbl.ml:401:21>>*/ (H[1], key, k3))
-       /*<<hashtbl.ml:401:41>>*/ return d3;
+       /*<<hashtbl.ml:401:41>>*/ return d3 /*<<hashtbl.ml:401:41>>*/ ;
      var param = next3;
      for(;;){
       if(! param)
@@ -27704,7 +28012,7 @@
        /*<<hashtbl.ml:387:13>>*/ if
        ( /*<<hashtbl.ml:387:13>>*/ caml_call2
           /*<<hashtbl.ml:387:13>>*/ (H[1], key, k))
-        /*<<hashtbl.ml:387:32>>*/ return data;
+        /*<<hashtbl.ml:387:32>>*/ return data /*<<hashtbl.ml:387:32>>*/ ;
       param = next;
      }
      /*<<hashtbl.ml:401:67>>*/ }
@@ -27712,32 +28020,36 @@
      var
       _z_ =  /*<<hashtbl.ml:410:20>>*/ key_index(h, key),
       match =  /*<<hashtbl.ml:410:12>>*/ caml_check_bound(h[2], _z_)[1 + _z_];
-     if(! match)  /*<<hashtbl.ml:411:17>>*/ return 0;
+     if(! match)
+       /*<<hashtbl.ml:411:17>>*/ return 0 /*<<hashtbl.ml:411:17>>*/ ;
      var k1 = match[1], d1 = match[2], next1 = match[3];
       /*<<hashtbl.ml:413:13>>*/ if
       ( /*<<hashtbl.ml:413:13>>*/ caml_call2
          /*<<hashtbl.ml:413:13>>*/ (H[1], key, k1))
-       /*<<hashtbl.ml:413:33>>*/ return [0, d1];
-     if(! next1)  /*<<hashtbl.ml:415:21>>*/ return 0;
+       /*<<hashtbl.ml:413:33>>*/ return [0, d1] /*<<hashtbl.ml:413:33>>*/ ;
+     if(! next1)
+       /*<<hashtbl.ml:415:21>>*/ return 0 /*<<hashtbl.ml:415:21>>*/ ;
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
       /*<<hashtbl.ml:417:17>>*/ if
       ( /*<<hashtbl.ml:417:17>>*/ caml_call2
          /*<<hashtbl.ml:417:17>>*/ (H[1], key, k2))
-       /*<<hashtbl.ml:417:37>>*/ return [0, d2];
-     if(! next2)  /*<<hashtbl.ml:419:25>>*/ return 0;
+       /*<<hashtbl.ml:417:37>>*/ return [0, d2] /*<<hashtbl.ml:417:37>>*/ ;
+     if(! next2)
+       /*<<hashtbl.ml:419:25>>*/ return 0 /*<<hashtbl.ml:419:25>>*/ ;
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
       /*<<hashtbl.ml:421:21>>*/ if
       ( /*<<hashtbl.ml:421:21>>*/ caml_call2
          /*<<hashtbl.ml:421:21>>*/ (H[1], key, k3))
-       /*<<hashtbl.ml:421:41>>*/ return [0, d3];
+       /*<<hashtbl.ml:421:41>>*/ return [0, d3] /*<<hashtbl.ml:421:41>>*/ ;
      var param = next3;
      for(;;){
-      if(! param)  /*<<hashtbl.ml:405:10>>*/ return 0;
+      if(! param)
+        /*<<hashtbl.ml:405:10>>*/ return 0 /*<<hashtbl.ml:405:10>>*/ ;
       var k = param[1], data = param[2], next = param[3];
        /*<<hashtbl.ml:407:13>>*/ if
        ( /*<<hashtbl.ml:407:13>>*/ caml_call2
           /*<<hashtbl.ml:407:13>>*/ (H[1], key, k))
-        /*<<hashtbl.ml:407:32>>*/ return [0, data];
+        /*<<hashtbl.ml:407:32>>*/ return [0, data] /*<<hashtbl.ml:407:32>>*/ ;
       param = next;
      }
      /*<<hashtbl.ml:421:76>>*/ }
@@ -27746,7 +28058,8 @@
       _y_ =  /*<<hashtbl.ml:431:29>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _y_)[1 + _y_];
       /*<<hashtbl.ml:424:47>>*/ for(;;){
-      if(! param)  /*<<hashtbl.ml:426:10>>*/ return 0;
+      if(! param)
+        /*<<hashtbl.ml:426:10>>*/ return 0 /*<<hashtbl.ml:426:10>>*/ ;
       var k = param[1], d = param[2], next = param[3];
        /*<<hashtbl.ml:428:13>>*/ if
        ( /*<<hashtbl.ml:428:13>>*/ caml_call2
@@ -27762,7 +28075,7 @@
       /*<<hashtbl.ml:424:47>>*/ for(;;){
       if(! param$0){
        dst[1 + offset] = 0;
-        /*<<hashtbl.ml:429:20>>*/ return block;
+        /*<<hashtbl.ml:429:20>>*/ return block /*<<hashtbl.ml:429:20>>*/ ;
       }
       var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
        /*<<hashtbl.ml:428:13>>*/ if
@@ -27803,7 +28116,8 @@
         /*<<hashtbl.ml:445:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, key, data, l];
        h[1] = h[1] + 1 | 0;
        var _w_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-       if(_w_)  /*<<hashtbl.ml:447:51>>*/ return resize(key_index, h);
+       if(_w_)
+         /*<<hashtbl.ml:447:51>>*/ return resize(key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
        var _x_ = _w_;
       }
       else
@@ -27816,7 +28130,8 @@
       _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _u_)[1 + _u_];
      for(;;){
-      if(! param)  /*<<hashtbl.ml:452:10>>*/ return 0;
+      if(! param)
+        /*<<hashtbl.ml:452:10>>*/ return 0 /*<<hashtbl.ml:452:10>>*/ ;
       var
        k = param[1],
        next = param[3],
@@ -27824,7 +28139,7 @@
           /*<<hashtbl.ml:454:10>>*/  /*<<hashtbl.ml:454:10>>*/ caml_call2
            /*<<hashtbl.ml:454:10>>*/ (H[1], k, key);
        /*<<hashtbl.ml:454:10>>*/ if(_t_)
-        /*<<hashtbl.ml:454:10>>*/ return _t_;
+        /*<<hashtbl.ml:454:10>>*/ return _t_ /*<<hashtbl.ml:454:10>>*/ ;
       param = next;
      }
      /*<<hashtbl.ml:457:48>>*/ }
@@ -27833,23 +28148,23 @@
               /*<<hashtbl.ml:460:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v);
+                /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v) /*<<hashtbl.ml:460:41>>*/ ;
                /*<<hashtbl.ml:460:41>>*/ },
-              i);
+              i) /*<<hashtbl.ml:460:43>>*/ ;
      /*<<hashtbl.ml:460:43>>*/ }
     function replace_seq(tbl, i){
       /*<<hashtbl.ml:463:6>>*/ return  /*<<hashtbl.ml:463:6>>*/ caml_call2
               /*<<hashtbl.ml:463:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v);
+                /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:463:45>>*/ ;
                /*<<hashtbl.ml:463:45>>*/ },
-              i);
+              i) /*<<hashtbl.ml:463:47>>*/ ;
      /*<<hashtbl.ml:463:47>>*/ }
     function of_seq(i){
      var tbl =  /*<<hashtbl.ml:466:16>>*/ create(0, 16);
       /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
-      /*<<hashtbl.ml:467:6>>*/ return tbl;
+      /*<<hashtbl.ml:467:6>>*/ return tbl /*<<hashtbl.ml:467:6>>*/ ;
      /*<<hashtbl.ml:468:9>>*/ }
      /*<<hashtbl.ml:347:2>>*/ return [0,
             create,
@@ -27873,13 +28188,13 @@
             to_seq_values,
             add_seq,
             replace_seq,
-            of_seq];
+            of_seq] /*<<hashtbl.ml:347:2>>*/ ;
    }
    function Make(H){
     var equal = H[1];
     function seeded_hash(seed, x){
       /*<<hashtbl.ml:485:41>>*/ return  /*<<hashtbl.ml:485:41>>*/ caml_call1
-              /*<<hashtbl.ml:485:41>>*/ (H[2], x);
+              /*<<hashtbl.ml:485:41>>*/ (H[2], x) /*<<hashtbl.ml:485:49>>*/ ;
      /*<<hashtbl.ml:485:49>>*/ }
     var
      include = MakeSeeded([0, equal, seeded_hash]),
@@ -27906,7 +28221,7 @@
      replace_seq = include[21];
     function create(sz){
       /*<<hashtbl.ml:487:20>>*/ return  /*<<hashtbl.ml:487:20>>*/ caml_call2
-              /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, sz);
+              /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, sz) /*<<hashtbl.ml:487:43>>*/ ;
      /*<<hashtbl.ml:487:43>>*/ }
     function of_seq(i){
      var
@@ -27915,7 +28230,7 @@
           /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, 16);
       /*<<hashtbl.ml:490:6>>*/  /*<<hashtbl.ml:490:6>>*/ caml_call2
        /*<<hashtbl.ml:490:6>>*/ (replace_seq, tbl, i);
-      /*<<hashtbl.ml:490:6>>*/ return tbl;
+      /*<<hashtbl.ml:490:6>>*/ return tbl /*<<hashtbl.ml:490:6>>*/ ;
      /*<<hashtbl.ml:491:9>>*/ }
      /*<<hashtbl.ml:481:2>>*/ return [0,
             create,
@@ -27939,19 +28254,19 @@
             to_seq_values,
             add_seq,
             replace_seq,
-            of_seq];
+            of_seq] /*<<hashtbl.ml:481:2>>*/ ;
    }
    function hash(x){
      /*<<hashtbl.ml:501:13>>*/ return  /*<<hashtbl.ml:501:13>>*/ caml_hash
-             /*<<hashtbl.ml:501:13>>*/ (10, 100, 0, x);
+             /*<<hashtbl.ml:501:13>>*/ (10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
     /*<<hashtbl.ml:501:41>>*/ }
    function hash_param(n1, n2, x){
      /*<<hashtbl.ml:502:25>>*/ return  /*<<hashtbl.ml:502:25>>*/ caml_hash
-             /*<<hashtbl.ml:502:25>>*/ (n1, n2, 0, x);
+             /*<<hashtbl.ml:502:25>>*/ (n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
     /*<<hashtbl.ml:502:52>>*/ }
    function seeded_hash(seed, x){
      /*<<hashtbl.ml:503:25>>*/ return  /*<<hashtbl.ml:503:25>>*/ caml_hash
-             /*<<hashtbl.ml:503:25>>*/ (10, 100, seed, x);
+             /*<<hashtbl.ml:503:25>>*/ (10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
     /*<<hashtbl.ml:503:56>>*/ }
    function key_index(h, key){
      /*<<hashtbl.ml:506:2>>*/ return 4 <= h.length - 1
@@ -27960,7 +28275,7 @@
              & (h[2].length - 2 | 0)
             :  /*<<hashtbl.ml:508:7>>*/ caml_call1
                /*<<hashtbl.ml:508:7>>*/ (Stdlib[1],
-               cst_Hashtbl_unsupported_hash_t);
+               cst_Hashtbl_unsupported_hash_t) /*<<hashtbl.ml:508:59>>*/ ;
     /*<<hashtbl.ml:508:59>>*/ }
    function add(h, key, data){
     var
@@ -27973,7 +28288,7 @@
      /*<<hashtbl.ml:513:2>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
     h[1] = h[1] + 1 | 0;
     var _r_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-    return _r_ ? resize(key_index, h) : _r_;
+    return _r_ ? resize(key_index, h) : _r_ /*<<hashtbl.ml:515:63>>*/ ;
     /*<<hashtbl.ml:515:63>>*/ }
    function remove(h, key){
     var
@@ -27982,7 +28297,7 @@
      prec$0 = 0,
      prec = c;
     for(;;){
-     if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
+     if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0 /*<<hashtbl.ml:519:6>>*/ ;
      var k = prec[1], next = prec[3];
       /*<<hashtbl.ml:521:9>>*/ if
       (0
@@ -27992,7 +28307,7 @@
       h[1] = h[1] - 1 | 0;
       return prec$0
               ? (prec$0[3] = next, 0)
-              : (caml_check_bound(h[2], i)[1 + i] = next, 0);
+              : (caml_check_bound(h[2], i)[1 + i] = next, 0) /*<<hashtbl.ml:532:40>>*/ ;
      }
      prec$0 = prec;
      prec = next;
@@ -28011,7 +28326,7 @@
       ===
         /*<<hashtbl.ml:544:9>>*/ caml_compare
          /*<<hashtbl.ml:544:9>>*/ (key, k1))
-      /*<<hashtbl.ml:544:33>>*/ return d1;
+      /*<<hashtbl.ml:544:33>>*/ return d1 /*<<hashtbl.ml:544:33>>*/ ;
     if(! next1)
       /*<<hashtbl.ml:546:17>>*/ throw  /*<<hashtbl.ml:546:17>>*/ caml_maybe_attach_backtrace
              /*<<hashtbl.ml:546:17>>*/ (Stdlib[8], 1);
@@ -28021,7 +28336,7 @@
       ===
         /*<<hashtbl.ml:548:13>>*/ caml_compare
          /*<<hashtbl.ml:548:13>>*/ (key, k2))
-      /*<<hashtbl.ml:548:37>>*/ return d2;
+      /*<<hashtbl.ml:548:37>>*/ return d2 /*<<hashtbl.ml:548:37>>*/ ;
     if(! next2)
       /*<<hashtbl.ml:550:21>>*/ throw  /*<<hashtbl.ml:550:21>>*/ caml_maybe_attach_backtrace
              /*<<hashtbl.ml:550:21>>*/ (Stdlib[8], 1);
@@ -28031,7 +28346,7 @@
       ===
         /*<<hashtbl.ml:552:17>>*/ caml_compare
          /*<<hashtbl.ml:552:17>>*/ (key, k3))
-      /*<<hashtbl.ml:552:41>>*/ return d3;
+      /*<<hashtbl.ml:552:41>>*/ return d3 /*<<hashtbl.ml:552:41>>*/ ;
     var param = next3;
     for(;;){
      if(! param)
@@ -28043,7 +28358,7 @@
        ===
          /*<<hashtbl.ml:538:9>>*/ caml_compare
           /*<<hashtbl.ml:538:9>>*/ (key, k))
-       /*<<hashtbl.ml:538:32>>*/ return data;
+       /*<<hashtbl.ml:538:32>>*/ return data /*<<hashtbl.ml:538:32>>*/ ;
      param = next;
     }
     /*<<hashtbl.ml:552:67>>*/ }
@@ -28051,40 +28366,43 @@
     var
      _p_ =  /*<<hashtbl.ml:561:16>>*/ key_index(h, key),
      match =  /*<<hashtbl.ml:561:8>>*/ caml_check_bound(h[2], _p_)[1 + _p_];
-    if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
+    if(! match)
+      /*<<hashtbl.ml:562:13>>*/ return 0 /*<<hashtbl.ml:562:13>>*/ ;
     var k1 = match[1], d1 = match[2], next1 = match[3];
      /*<<hashtbl.ml:564:9>>*/ if
      (0
       ===
         /*<<hashtbl.ml:564:9>>*/ caml_compare
          /*<<hashtbl.ml:564:9>>*/ (key, k1))
-      /*<<hashtbl.ml:564:33>>*/ return [0, d1];
-    if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
+      /*<<hashtbl.ml:564:33>>*/ return [0, d1] /*<<hashtbl.ml:564:33>>*/ ;
+    if(! next1)
+      /*<<hashtbl.ml:566:17>>*/ return 0 /*<<hashtbl.ml:566:17>>*/ ;
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
      /*<<hashtbl.ml:568:13>>*/ if
      (0
       ===
         /*<<hashtbl.ml:568:13>>*/ caml_compare
          /*<<hashtbl.ml:568:13>>*/ (key, k2))
-      /*<<hashtbl.ml:568:37>>*/ return [0, d2];
-    if(! next2)  /*<<hashtbl.ml:570:21>>*/ return 0;
+      /*<<hashtbl.ml:568:37>>*/ return [0, d2] /*<<hashtbl.ml:568:37>>*/ ;
+    if(! next2)
+      /*<<hashtbl.ml:570:21>>*/ return 0 /*<<hashtbl.ml:570:21>>*/ ;
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
      /*<<hashtbl.ml:572:17>>*/ if
      (0
       ===
         /*<<hashtbl.ml:572:17>>*/ caml_compare
          /*<<hashtbl.ml:572:17>>*/ (key, k3))
-      /*<<hashtbl.ml:572:41>>*/ return [0, d3];
+      /*<<hashtbl.ml:572:41>>*/ return [0, d3] /*<<hashtbl.ml:572:41>>*/ ;
     var param = next3;
     for(;;){
-     if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0;
+     if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0 /*<<hashtbl.ml:556:6>>*/ ;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:558:9>>*/ if
       (0
        ===
          /*<<hashtbl.ml:558:9>>*/ caml_compare
           /*<<hashtbl.ml:558:9>>*/ (key, k))
-       /*<<hashtbl.ml:558:32>>*/ return [0, data];
+       /*<<hashtbl.ml:558:32>>*/ return [0, data] /*<<hashtbl.ml:558:32>>*/ ;
      param = next;
     }
     /*<<hashtbl.ml:572:76>>*/ }
@@ -28093,7 +28411,7 @@
      _o_ =  /*<<hashtbl.ml:582:25>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _o_)[1 + _o_];
      /*<<hashtbl.ml:575:43>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
+     if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0 /*<<hashtbl.ml:577:6>>*/ ;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:579:9>>*/ if
       (0
@@ -28111,7 +28429,7 @@
      /*<<hashtbl.ml:575:43>>*/ for(;;){
      if(! param$0){
       dst[1 + offset] = 0;
-       /*<<hashtbl.ml:580:19>>*/ return block;
+       /*<<hashtbl.ml:580:19>>*/ return block /*<<hashtbl.ml:580:19>>*/ ;
      }
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
       /*<<hashtbl.ml:579:9>>*/ if
@@ -28155,7 +28473,8 @@
        /*<<hashtbl.ml:596:4>>*/ caml_check_bound(h[2], i)[1 + i] = [0, key, data, l];
       h[1] = h[1] + 1 | 0;
       var _m_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-      if(_m_)  /*<<hashtbl.ml:598:47>>*/ return resize(key_index, h);
+      if(_m_)
+        /*<<hashtbl.ml:598:47>>*/ return resize(key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
       var _n_ = _m_;
      }
      else
@@ -28168,7 +28487,7 @@
      _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _k_)[1 + _k_];
     for(;;){
-     if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0;
+     if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0 /*<<hashtbl.ml:603:6>>*/ ;
      var
       k = param[1],
       next = param[3],
@@ -28188,23 +28507,23 @@
              /*<<hashtbl.ml:611:2>>*/ (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
-               /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v);
+               /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v) /*<<hashtbl.ml:611:37>>*/ ;
               /*<<hashtbl.ml:611:37>>*/ },
-             i);
+             i) /*<<hashtbl.ml:611:39>>*/ ;
     /*<<hashtbl.ml:611:39>>*/ }
    function replace_seq(tbl, i){
      /*<<hashtbl.ml:614:2>>*/ return  /*<<hashtbl.ml:614:2>>*/ caml_call2
              /*<<hashtbl.ml:614:2>>*/ (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
-               /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v);
+               /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:614:41>>*/ ;
               /*<<hashtbl.ml:614:41>>*/ },
-             i);
+             i) /*<<hashtbl.ml:614:43>>*/ ;
     /*<<hashtbl.ml:614:43>>*/ }
    function of_seq(i){
     var tbl =  /*<<hashtbl.ml:617:12>>*/ create(0, 16);
      /*<<hashtbl.ml:618:2>>*/ replace_seq(tbl, i);
-     /*<<hashtbl.ml:618:2>>*/ return tbl;
+     /*<<hashtbl.ml:618:2>>*/ return tbl /*<<hashtbl.ml:618:2>>*/ ;
     /*<<hashtbl.ml:619:5>>*/ }
    function rebuild(opt, h){
     var
@@ -28235,7 +28554,7 @@
         _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;
+     /*<<hashtbl.ml:633:2>>*/ return h$0 /*<<hashtbl.ml:633:2>>*/ ;
    }
    var
     Stdlib_Hashtbl =
@@ -28336,7 +28655,7 @@
       /*<<weak.ml:29:4>>*/  /*<<weak.ml:29:4>>*/ caml_call1
        /*<<weak.ml:29:4>>*/ (Stdlib[1], cst_Weak_create);
      /*<<weak.ml:30:2>>*/ return  /*<<weak.ml:30:2>>*/ runtime.caml_weak_create
-             /*<<weak.ml:30:2>>*/ (l);
+             /*<<weak.ml:30:2>>*/ (l) /*<<weak.ml:30:10>>*/ ;
     /*<<weak.ml:30:10>>*/ }
    function length(x){
      /*<<weak.ml:33:15>>*/ return x.length - 3 | 0;
@@ -28349,31 +28668,31 @@
     return _I_
             ?  /*<<weak.ml:37:4>>*/ caml_call1
                /*<<weak.ml:37:4>>*/ (Stdlib[1], msg)
-            : _I_;
+            : _I_ /*<<weak.ml:37:20>>*/ ;
     /*<<weak.ml:37:20>>*/ }
    function set(e, o, x){
      /*<<weak.ml:42:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_set);
     if(! x)
       /*<<weak.ml:44:12>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
-              /*<<weak.ml:44:12>>*/ (e, o);
+              /*<<weak.ml:44:12>>*/ (e, o) /*<<weak.ml:45:24>>*/ ;
     var x$0 = x[1];
      /*<<weak.ml:45:14>>*/ return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key
-             /*<<weak.ml:45:14>>*/ (e, o, x$0);
+             /*<<weak.ml:45:14>>*/ (e, o, x$0) /*<<weak.ml:45:24>>*/ ;
     /*<<weak.ml:45:24>>*/ }
    function get(e, o){
      /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
      /*<<weak.ml:50:2>>*/ return  /*<<weak.ml:50:2>>*/ runtime.caml_ephe_get_key
-             /*<<weak.ml:50:2>>*/ (e, o);
+             /*<<weak.ml:50:2>>*/ (e, o) /*<<weak.ml:50:9>>*/ ;
     /*<<weak.ml:50:9>>*/ }
    function get_copy(e, o){
      /*<<weak.ml:54:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get_copy);
      /*<<weak.ml:55:2>>*/ return  /*<<weak.ml:55:2>>*/ runtime.caml_ephe_get_key_copy
-             /*<<weak.ml:55:2>>*/ (e, o);
+             /*<<weak.ml:55:2>>*/ (e, o) /*<<weak.ml:55:14>>*/ ;
     /*<<weak.ml:55:14>>*/ }
    function check(e, o){
      /*<<weak.ml:59:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_check);
      /*<<weak.ml:60:2>>*/ return  /*<<weak.ml:60:2>>*/ runtime.caml_ephe_check_key
-             /*<<weak.ml:60:2>>*/ (e, o);
+             /*<<weak.ml:60:2>>*/ (e, o) /*<<weak.ml:60:11>>*/ ;
     /*<<weak.ml:60:11>>*/ }
    function blit(e1, o1, e2, o2, l){
      /*<<weak.ml:66:2>>*/ if
@@ -28388,10 +28707,10 @@
          ?  /*<<weak.ml:69:22>>*/ runtime.caml_ephe_blit_key
             /*<<weak.ml:69:22>>*/ (e1, o1, e2, o2, l)
          : _E_;
-      /*<<weak.ml:69:22>>*/ return _F_;
+      /*<<weak.ml:69:22>>*/ return _F_ /*<<weak.ml:69:22>>*/ ;
     }
      /*<<weak.ml:68:7>>*/ return  /*<<weak.ml:68:7>>*/ caml_call1
-             /*<<weak.ml:68:7>>*/ (Stdlib[1], cst_Weak_blit);
+             /*<<weak.ml:68:7>>*/ (Stdlib[1], cst_Weak_blit) /*<<weak.ml:69:40>>*/ ;
     /*<<weak.ml:69:40>>*/ }
    function fill(ar, ofs, len, x){
      /*<<weak.ml:72:2>>*/ if
@@ -28414,7 +28733,7 @@
    function Make(H){
     var emptybucket =  /*<<weak.ml:105:20>>*/ create(0);
     function get_index(t, h){
-      /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1);
+      /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1) /*<<weak.ml:117:65>>*/ ;
      /*<<weak.ml:117:65>>*/ }
     var limit = 7;
     function create$0(sz){
@@ -28428,7 +28747,7 @@
                /*<<weak.ml:127:15>>*/ (sz$1, [0]),
              limit,
              0,
-             0];
+             0] /*<<weak.ml:125:4>>*/ ;
      /*<<weak.ml:131:5>>*/ }
     function clear(t){
      var _A_ = t[1].length - 2 | 0, _z_ =  /*<<weak.ml:134:4>>*/ 0;
@@ -28453,7 +28772,8 @@
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
-                if(length(b) <= i$0)  /*<<weak.ml:144:28>>*/ return accu;
+                if(length(b) <= i$0)
+                  /*<<weak.ml:144:28>>*/ return accu /*<<weak.ml:144:28>>*/ ;
                 var match =  /*<<weak.ml:145:12>>*/ get(b, i$0);
                 if(match){
                  var
@@ -28469,7 +28789,7 @@
                }
               },
               t[1],
-              init);
+              init) /*<<weak.ml:149:49>>*/ ;
      /*<<weak.ml:149:49>>*/ }
     function iter(f, t){
      var i = 0;
@@ -28478,7 +28798,8 @@
               function(b){
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
-                if(length(b) <= i$0)  /*<<weak.ml:154:28>>*/ return 0;
+                if(length(b) <= i$0)
+                  /*<<weak.ml:154:28>>*/ return 0 /*<<weak.ml:154:28>>*/ ;
                 var match =  /*<<weak.ml:155:12>>*/ get(b, i$0);
                 if(match){
                  var v = match[1];
@@ -28490,12 +28811,13 @@
                 else{var i$2 = i$0 + 1 | 0; i$0 = i$2;}
                }
               },
-              t[1]);
+              t[1]) /*<<weak.ml:159:38>>*/ ;
      /*<<weak.ml:159:38>>*/ }
     function count_bucket(i, b, accu){
      var i$0 = i, accu$0 = accu;
       /*<<weak.ml:173:4>>*/ for(;;){
-      if(length(b) <= i$0)  /*<<weak.ml:173:26>>*/ return accu$0;
+      if(length(b) <= i$0)
+        /*<<weak.ml:173:26>>*/ return accu$0 /*<<weak.ml:173:26>>*/ ;
       var
        _y_ =  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
        accu$1 = accu$0 + _y_ | 0,
@@ -28512,7 +28834,7 @@
                 /*<<?>>*/ return count_bucket(_v_, _w_, _x_);
               },
               t[1],
-              0);
+              0) /*<<weak.ml:178:47>>*/ ;
      /*<<weak.ml:178:47>>*/ }
     function add_aux(t, setter, d, h, index){
      var
@@ -28528,7 +28850,7 @@
         /*<<weak.ml:263:8>>*/  /*<<weak.ml:263:8>>*/ caml_call3
          /*<<weak.ml:263:8>>*/ (setter, bucket$0, i$3, d);
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
-        /*<<weak.ml:264:8>>*/ return 0;
+        /*<<weak.ml:264:8>>*/ return 0 /*<<weak.ml:264:8>>*/ ;
       }
       var i$5 =  /*<<weak.ml:260:38>>*/ i$3 + 1 | 0;
       i$3 = i$5;
@@ -28635,14 +28957,15 @@
         function(j, ob){
          var oi = i;
           /*<<weak.ml:164:6>>*/ for(;;){
-          if(length(ob) <= oi)  /*<<weak.ml:164:28>>*/ return 0;
+          if(length(ob) <= oi)
+            /*<<weak.ml:164:28>>*/ return 0 /*<<weak.ml:164:28>>*/ ;
           if(check(ob, oi)){
            var oh =  /*<<weak.ml:166:20>>*/ caml_check_bound(t[2], j)[1 + j];
            let oi$0 = oi;
            var
             setter =
               function(nb, ni, param){
-                /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1);
+                /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
                /*<<weak.ml:222:47>>*/ },
             h =  /*<<weak.ml:223:16>>*/ caml_check_bound(oh, oi)[1 + oi];
             /*<<weak.ml:224:35>>*/ add_aux
@@ -28671,7 +28994,7 @@
          /*<<weak.ml:271:12>>*/  /*<<weak.ml:271:12>>*/ caml_call1
           /*<<weak.ml:271:12>>*/ (H[2], d);
       /*<<weak.ml:272:29>>*/ return add_aux
-             (t, set, [0, d], h, get_index(t, h));
+             (t, set, [0, d], h, get_index(t, h)) /*<<weak.ml:272:44>>*/ ;
      /*<<weak.ml:272:44>>*/ }
     function find_aux(t, d, found, notfound){
      var
@@ -28688,7 +29011,7 @@
       /*<<weak.ml:284:6>>*/ for(;;){
       if(sz <= i)
         /*<<weak.ml:279:16>>*/ return  /*<<weak.ml:279:16>>*/ caml_call2
-                /*<<weak.ml:279:16>>*/ (notfound, h, index);
+                /*<<weak.ml:279:16>>*/ (notfound, h, index) /*<<weak.ml:291:10>>*/ ;
       if(h === caml_check_bound(hashes, i)[1 + i]){
        var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
        if(opt){
@@ -28697,7 +29020,7 @@
          ( /*<<weak.ml:287:29>>*/ caml_call2
             /*<<weak.ml:287:29>>*/ (H[1], v, d))
           /*<<weak.ml:287:44>>*/ return  /*<<weak.ml:287:44>>*/ caml_call4
-                  /*<<weak.ml:287:44>>*/ (found, bucket, i, opt, v);
+                  /*<<weak.ml:287:44>>*/ (found, bucket, i, opt, v) /*<<weak.ml:291:10>>*/ ;
        }
        var i$0 =  /*<<weak.ml:288:15>>*/ i + 1 | 0;
        i = i$0;
@@ -28710,57 +29033,57 @@
              (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:293:54>>*/ return o;
+                /*<<weak.ml:293:54>>*/ return o /*<<weak.ml:293:54>>*/ ;
                /*<<weak.ml:293:55>>*/ },
               function(h, i){
-                /*<<weak.ml:294:48>>*/ return 0;
-               /*<<weak.ml:294:52>>*/ });
+                /*<<weak.ml:294:48>>*/ return 0 /*<<weak.ml:294:48>>*/ ;
+               /*<<weak.ml:294:52>>*/ }) /*<<weak.ml:294:53>>*/ ;
      /*<<weak.ml:294:53>>*/ }
     function merge(t, d){
       /*<<weak.ml:296:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:296:54>>*/ return v;
+                /*<<weak.ml:296:54>>*/ return v /*<<weak.ml:296:54>>*/ ;
                /*<<weak.ml:296:55>>*/ },
               function(h, i){
                 /*<<weak.ml:298:40>>*/ add_aux(t, set, [0, d], h, i);
-                /*<<weak.ml:296:21>>*/ return d;
-               /*<<weak.ml:298:69>>*/ });
+                /*<<weak.ml:296:21>>*/ return d /*<<weak.ml:296:21>>*/ ;
+               /*<<weak.ml:298:69>>*/ }) /*<<weak.ml:298:70>>*/ ;
      /*<<weak.ml:298:70>>*/ }
     function find(t, d){
       /*<<weak.ml:300:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:300:54>>*/ return v;
+                /*<<weak.ml:300:54>>*/ return v /*<<weak.ml:300:54>>*/ ;
                /*<<weak.ml:300:55>>*/ },
               function(h, i){
                 /*<<weak.ml:301:48>>*/ throw  /*<<weak.ml:301:48>>*/ caml_maybe_attach_backtrace
                        /*<<weak.ml:301:48>>*/ (Stdlib[8], 1);
-               /*<<weak.ml:301:63>>*/ });
+               /*<<weak.ml:301:63>>*/ }) /*<<weak.ml:301:64>>*/ ;
      /*<<weak.ml:301:64>>*/ }
     function remove(t, d){
       /*<<weak.ml:303:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:303:54>>*/ return set(b, i, 0);
+                /*<<weak.ml:303:54>>*/ return set(b, i, 0) /*<<weak.ml:303:66>>*/ ;
                /*<<weak.ml:303:66>>*/ },
               function(h, i){
-                /*<<weak.ml:304:48>>*/ return 0;
-               /*<<weak.ml:304:50>>*/ });
+                /*<<weak.ml:304:48>>*/ return 0 /*<<weak.ml:304:48>>*/ ;
+               /*<<weak.ml:304:50>>*/ }) /*<<weak.ml:304:51>>*/ ;
      /*<<weak.ml:304:51>>*/ }
     function mem(t, d){
       /*<<weak.ml:306:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:306:54>>*/ return 1;
+                /*<<weak.ml:306:54>>*/ return 1 /*<<weak.ml:306:54>>*/ ;
                /*<<weak.ml:306:58>>*/ },
               function(h, i){
-                /*<<weak.ml:307:48>>*/ return 0;
-               /*<<weak.ml:307:53>>*/ });
+                /*<<weak.ml:307:48>>*/ return 0 /*<<weak.ml:307:48>>*/ ;
+               /*<<weak.ml:307:53>>*/ }) /*<<weak.ml:307:54>>*/ ;
      /*<<weak.ml:307:54>>*/ }
     function find_all(t, d){
      var
@@ -28776,7 +29099,7 @@
       i = 0,
       accu = 0;
       /*<<weak.ml:316:6>>*/ for(;;){
-      if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
+      if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu /*<<weak.ml:316:22>>*/ ;
       if(h === caml_check_bound(hashes, i)[1 + i]){
        var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
        if(match){
@@ -28820,7 +29143,7 @@
       _b_ =  /*<<weak.ml:330:51>>*/ caml_check_bound(lens, _a_)[1 + _a_],
       _d_ =  /*<<weak.ml:330:37>>*/ caml_check_bound(lens, _c_)[1 + _c_],
       _e_ =  /*<<weak.ml:330:27>>*/ caml_check_bound(lens, 0)[1];
-      /*<<weak.ml:330:4>>*/ return [0, len, count(t), totlen, _e_, _d_, _b_];
+      /*<<weak.ml:330:4>>*/ return [0, len, count(t), totlen, _e_, _d_, _b_] /*<<weak.ml:330:4>>*/ ;
      /*<<weak.ml:330:64>>*/ }
      /*<<weak.ml:101:66>>*/ return [0,
             create$0,
@@ -28835,7 +29158,7 @@
             iter,
             fold,
             count,
-            stats];
+            stats] /*<<weak.ml:101:66>>*/ ;
    }
    var
     Stdlib_Weak =
@@ -28909,7 +29232,9 @@
     Stdlib_Stack = global_data.Stdlib__Stack,
     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>>*/ }
+   function id(x){
+     /*<<format.ml:23:11>>*/ return x /*<<format.ml:23:11>>*/ ;
+    /*<<format.ml:23:12>>*/ }
    var
     zero = 0,
     unknown = -1,
@@ -28919,7 +29244,7 @@
        runtime.caml_fresh_oo_id(0)];
    function pp_enqueue(state, token){
      /*<<format.ml:219:2>>*/ state[13] = state[13] + token[3] | 0;
-    return caml_call2(Stdlib_Queue[3], token, state[28]);
+    return caml_call2(Stdlib_Queue[3], token, state[28]) /*<<format.ml:220:32>>*/ ;
     /*<<format.ml:220:32>>*/ }
    var
     pp_infinity = 1000000010,
@@ -28931,11 +29256,11 @@
     cst_Format_pp_set_geometry = "Format.pp_set_geometry: ";
    function pp_output_string(state, s){
      /*<<format.ml:251:31>>*/ return caml_call3
-            (state[17], s, 0, caml_ml_string_length(s));
+            (state[17], s, 0, caml_ml_string_length(s)) /*<<format.ml:251:72>>*/ ;
     /*<<format.ml:251:72>>*/ }
    function pp_output_newline(state){
      /*<<format.ml:252:30>>*/ return  /*<<format.ml:252:30>>*/ caml_call1
-             /*<<format.ml:252:30>>*/ (state[19], 0);
+             /*<<format.ml:252:30>>*/ (state[19], 0) /*<<format.ml:252:53>>*/ ;
     /*<<format.ml:252:53>>*/ }
    function format_pp_text(state, size, text){
      /*<<format.ml:258:2>>*/ state[9] = state[9] - size | 0;
@@ -28946,7 +29271,7 @@
     var _a__ =  /*<<format.ml:264:5>>*/ s !== cst$16 ? 1 : 0;
      /*<<format.ml:264:5>>*/ return _a__
             ? format_pp_text(state, caml_ml_string_length(s), s)
-            : _a__;
+            : _a__ /*<<format.ml:264:58>>*/ ;
     /*<<format.ml:264:58>>*/ }
    function break_new_line(state, param, width){
     var after = param[3], offset = param[2], before = param[1];
@@ -28963,7 +29288,7 @@
     var n = state[10];
      /*<<format.ml:254:31>>*/  /*<<format.ml:254:31>>*/ caml_call1
       /*<<format.ml:254:31>>*/ (state[21], n);
-     /*<<format.ml:276:2>>*/ return format_string(state, after);
+     /*<<format.ml:276:2>>*/ return format_string(state, after) /*<<format.ml:276:2>>*/ ;
    }
    function break_same_line(state, param){
     var after = param[3], width = param[2], before = param[1];
@@ -28971,7 +29296,7 @@
     state[9] = state[9] - width | 0;
      /*<<format.ml:253:31>>*/  /*<<format.ml:253:31>>*/ caml_call1
       /*<<format.ml:253:31>>*/ (state[20], width);
-     /*<<format.ml:287:2>>*/ return format_string(state, after);
+     /*<<format.ml:287:2>>*/ return format_string(state, after) /*<<format.ml:287:2>>*/ ;
    }
    function format_pp_token(state, size$0, param){
      /*<<?>>*/ if(typeof param === "number")
@@ -28981,12 +29306,14 @@
          match$3 =
             /*<<format.ml:348:16>>*/  /*<<format.ml:348:16>>*/ caml_call1
              /*<<format.ml:348:16>>*/ (Stdlib_Stack[8], state[3]);
-        if(! match$3)  /*<<format.ml:349:14>>*/ return;
+        if(! match$3)
+          /*<<format.ml:349:14>>*/ return /*<<format.ml:349:14>>*/ ;
         var
          tabs = match$3[1][1],
          add_tab =
             /*<<format.ml:351:6>>*/ function(n, ls){
-             /*<<?>>*/ if(! ls)  /*<<format.ml:352:16>>*/ return [0, n, 0];
+             /*<<?>>*/ if(! ls)
+              /*<<format.ml:352:16>>*/ return [0, n, 0] /*<<format.ml:352:16>>*/ ;
             var l = ls[2], x = ls[1];
              /*<<format.ml:353:29>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
                       /*<<format.ml:353:29>>*/ (n, x)
@@ -28998,20 +29325,20 @@
        case 1:
          /*<<format.ml:339:4>>*/  /*<<format.ml:339:4>>*/ caml_call1
           /*<<format.ml:339:4>>*/ (Stdlib_Stack[5], state[2]);
-         /*<<format.ml:339:4>>*/ return;
+         /*<<format.ml:339:4>>*/ return /*<<format.ml:339:4>>*/ ;
        case 2:
          /*<<format.ml:345:4>>*/  /*<<format.ml:345:4>>*/ caml_call1
           /*<<format.ml:345:4>>*/ (Stdlib_Stack[5], state[3]);
-         /*<<format.ml:345:4>>*/ return;
+         /*<<format.ml:345:4>>*/ return /*<<format.ml:345:4>>*/ ;
        case 3:
         var
          match$4 =
             /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ caml_call1
              /*<<format.ml:378:16>>*/ (Stdlib_Stack[8], state[2]);
         if(! match$4)
-          /*<<format.ml:379:14>>*/ return pp_output_newline(state);
+          /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:379:14>>*/ ;
         var width$0 = match$4[1][2];
-         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0);
+         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:281:29>>*/ ;
        case 4:
         var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
         if(! _a8_) return _a8_;
@@ -29019,7 +29346,8 @@
          match$1 =
             /*<<format.ml:306:8>>*/  /*<<format.ml:306:8>>*/ caml_call1
              /*<<format.ml:306:8>>*/ (Stdlib_Queue[6], state[28]);
-        if(! match$1)  /*<<format.ml:307:12>>*/ return;
+        if(! match$1)
+          /*<<format.ml:307:12>>*/ return /*<<format.ml:307:12>>*/ ;
         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;
@@ -29029,18 +29357,19 @@
          match$5 =
             /*<<format.ml:419:17>>*/  /*<<format.ml:419:17>>*/ caml_call1
              /*<<format.ml:419:17>>*/ (Stdlib_Stack[5], state[5]);
-        if(! match$5)  /*<<format.ml:420:15>>*/ return;
+        if(! match$5)
+          /*<<format.ml:420:15>>*/ return /*<<format.ml:420:15>>*/ ;
         var
          tag_name = match$5[1],
          marker =
             /*<<format.ml:422:20>>*/  /*<<format.ml:422:20>>*/ caml_call1
              /*<<format.ml:422:20>>*/ (state[25], tag_name);
-         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker);
+         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker) /*<<format.ml:423:7>>*/ ;
      }
     switch(param[0]){
       case 0:
        var s = param[1];
-        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s);
+        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s) /*<<format.ml:323:4>>*/ ;
       case 1:
        var
         breaks = param[2],
@@ -29050,20 +29379,21 @@
         match$6 =
            /*<<format.ml:389:16>>*/  /*<<format.ml:389:16>>*/ caml_call1
             /*<<format.ml:389:16>>*/ (Stdlib_Stack[8], state[2]);
-       if(! match$6)  /*<<format.ml:390:14>>*/ return;
+       if(! match$6)
+         /*<<format.ml:390:14>>*/ return /*<<format.ml:390:14>>*/ ;
        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){
          case 0:
-           /*<<format.ml:409:19>>*/ return break_same_line(state, fits);
+           /*<<format.ml:409:19>>*/ return break_same_line(state, fits) /*<<format.ml:409:19>>*/ ;
          case 1:
            /*<<format.ml:408:19>>*/ return break_new_line
-                  (state, breaks, width$1);
+                  (state, breaks, width$1) /*<<format.ml:408:19>>*/ ;
          case 2:
            /*<<format.ml:406:20>>*/ return break_new_line
-                  (state, breaks, width$1);
+                  (state, breaks, width$1) /*<<format.ml:406:20>>*/ ;
          case 3:
           return state[9] < (size$0 + caml_ml_string_length(before) | 0)
                   ? break_new_line(state, breaks, width$1)
@@ -29085,7 +29415,7 @@
                       ? 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:407:19>>*/ return break_same_line(state, fits) /*<<format.ml:407:19>>*/ ;
        }
       case 2:
        var
@@ -29095,7 +29425,8 @@
         match$8 =
            /*<<format.ml:359:16>>*/  /*<<format.ml:359:16>>*/ caml_call1
             /*<<format.ml:359:16>>*/ (Stdlib_Stack[8], state[3]);
-       if(! match$8)  /*<<format.ml:360:14>>*/ return;
+       if(! match$8)
+         /*<<format.ml:360:14>>*/ return /*<<format.ml:360:14>>*/ ;
        var
         tabs$0 = match$8[1][1],
         match$9 =  /*<<format.ml:362:6>>*/ tabs$0[1];
@@ -29145,11 +29476,11 @@
         /*<<format.ml:336:4>>*/ return  /*<<format.ml:336:4>>*/ caml_call2
                 /*<<format.ml:336:4>>*/ (Stdlib_Stack[3],
                 [0, box_type$1, width$2],
-                state[2]);
+                state[2]) /*<<format.ml:336:4>>*/ ;
       case 4:
        var tbox = param[1];
         /*<<format.ml:342:4>>*/ return  /*<<format.ml:342:4>>*/ caml_call2
-                /*<<format.ml:342:4>>*/ (Stdlib_Stack[3], tbox, state[3]);
+                /*<<format.ml:342:4>>*/ (Stdlib_Stack[3], tbox, state[3]) /*<<format.ml:342:4>>*/ ;
       default:
        var
         tag_name$0 = param[1],
@@ -29166,7 +29497,7 @@
       match =
          /*<<format.ml:431:8>>*/  /*<<format.ml:431:8>>*/ caml_call1
           /*<<format.ml:431:8>>*/ (Stdlib_Queue[9], state[28]);
-     if(! match)  /*<<format.ml:432:12>>*/ return 0;
+     if(! match)  /*<<format.ml:432:12>>*/ return 0 /*<<format.ml:432:12>>*/ ;
      var
       match$0 = match[1],
       size = match$0[1],
@@ -29176,7 +29507,7 @@
       _a6_ = 0 <= size ? 1 : 0,
       _a7_ =
          /*<<format.ml:435:7>>*/ _a6_ || (state[9] <= pending_count ? 1 : 0);
-     if(! _a7_)  /*<<format.ml:435:7>>*/ return _a7_;
+     if(! _a7_)  /*<<format.ml:435:7>>*/ return _a7_ /*<<format.ml:435:7>>*/ ;
       /*<<format.ml:436:6>>*/  /*<<format.ml:436:6>>*/ caml_call1
        /*<<format.ml:436:6>>*/ (Stdlib_Queue[5], state[28]);
      var size$0 =  /*<<format.ml:437:20>>*/ 0 <= size ? size : pp_infinity;
@@ -29186,11 +29517,11 @@
     /*<<format.ml:441: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:32>>*/ return advance_left(state) /*<<format.ml:445:72>>*/ ;
     /*<<format.ml:445:72>>*/ }
    function enqueue_string_as(state, size, s){
      /*<<format.ml:450:2>>*/ return enqueue_advance
-            (state, [0, size, [0, s], size]);
+            (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
     /*<<format.ml:450:78>>*/ }
    function initialize_scan_stack(stack){
      /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
@@ -29199,20 +29530,21 @@
      /*<<format.ml:464:2>>*/ return  /*<<format.ml:464:2>>*/ caml_call2
              /*<<format.ml:464:2>>*/ (Stdlib_Stack[3],
              [0, -1, queue_elem],
-             stack);
+             stack) /*<<format.ml:464:50>>*/ ;
     /*<<format.ml:464:50>>*/ }
    function set_size(state, ty){
     var
      match =
         /*<<format.ml:476:8>>*/  /*<<format.ml:476:8>>*/ caml_call1
          /*<<format.ml:476:8>>*/ (Stdlib_Stack[8], state[1]);
-    if(! match)  /*<<format.ml:477:12>>*/ return;
+    if(! match)  /*<<format.ml:477:12>>*/ return /*<<format.ml:477:12>>*/ ;
     var
      match$0 = match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
      size =  /*<<format.ml:479:4>>*/ queue_elem[1];
-    if(left_total < state[12]) return initialize_scan_stack(state[1]);
+    if(left_total < state[12])
+     return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
     var _a5_ = queue_elem[2];
     if(typeof _a5_ !== "number")
      switch(_a5_[0]){
@@ -29223,7 +29555,7 @@
           /*<<format.ml:493:10>>*/  /*<<format.ml:493:10>>*/ caml_call1
            /*<<format.ml:493:10>>*/ (Stdlib_Stack[5], state[1]);
         }
-         /*<<format.ml:493:10>>*/ return;
+         /*<<format.ml:493:10>>*/ return /*<<format.ml:493:10>>*/ ;
        case 1:
        case 2:
         if(ty){
@@ -29232,7 +29564,7 @@
           /*<<format.ml:488:10>>*/  /*<<format.ml:488:10>>*/ caml_call1
            /*<<format.ml:488:10>>*/ (Stdlib_Stack[5], state[1]);
         }
-         /*<<format.ml:488:10>>*/ return;
+         /*<<format.ml:488:10>>*/ return /*<<format.ml:488:10>>*/ ;
      }
     /*<<format.ml:497:10>>*/ }
    function scan_push(state, b, token){
@@ -29240,7 +29572,7 @@
     if(b)  /*<<format.ml:504:12>>*/ set_size(state, 1);
     var elem =  /*<<format.ml:505:13>>*/ [0, state[13], token];
      /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
-             /*<<format.ml:506:2>>*/ (Stdlib_Stack[3], elem, state[1]);
+             /*<<format.ml:506:2>>*/ (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
     /*<<format.ml:506:37>>*/ }
    function pp_open_box_gen(state, indent, br_ty){
      /*<<format.ml:513:2>>*/ state[14] = state[14] + 1 | 0;
@@ -29248,12 +29580,12 @@
      var
       size = - state[13] | 0,
       elem =  /*<<format.ml:516:15>>*/ [0, size, [3, indent, br_ty], 0];
-      /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem);
+      /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem) /*<<format.ml:519:45>>*/ ;
     }
     var _a4_ = state[14] === state[15] ? 1 : 0;
     if(! _a4_) return _a4_;
     var s = state[16], x = caml_ml_string_length(s);
-     /*<<format.ml:454:2>>*/ return enqueue_string_as(state, x, s);
+     /*<<format.ml:454:2>>*/ return enqueue_string_as(state, x, s) /*<<format.ml:519:45>>*/ ;
     /*<<format.ml:519:45>>*/ }
    function pp_close_box(state, param){
     var _a2_ = 1 < state[14] ? 1 : 0;
@@ -29280,7 +29612,7 @@
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
     var token =  /*<<format.ml:546:16>>*/ [5, tag_name];
-     /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]);
+     /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
     /*<<format.ml:547:60>>*/ }
    function pp_close_stag(state, param){
      /*<<format.ml:552:2>>*/ if(state[23])
@@ -29294,13 +29626,13 @@
      if(match){
       var tag_name = match[1];
        /*<<format.ml:558:6>>*/ return  /*<<format.ml:558:6>>*/ caml_call1
-               /*<<format.ml:558:6>>*/ (state[27], tag_name);
+               /*<<format.ml:558:6>>*/ (state[27], tag_name) /*<<format.ml:558:39>>*/ ;
      }
      var _a0_ = 0;
     }
     else
      var _a0_ = _aZ_;
-     /*<<format.ml:556:14>>*/ return _a0_;
+     /*<<format.ml:556:14>>*/ return _a0_ /*<<format.ml:556:14>>*/ ;
     /*<<format.ml:558:39>>*/ }
    function pp_set_print_tags(state, b){
      /*<<format.ml:560:32>>*/ state[22] = b;
@@ -29318,14 +29650,14 @@
     /*<<format.ml:563: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:2>>*/ return pp_set_mark_tags(state, b) /*<<format.ml:565:53>>*/ ;
     /*<<format.ml:565:53>>*/ }
    function pp_get_formatter_stag_function(state, param){
      /*<<format.ml:569:47>>*/ return [0,
             state[24],
             state[25],
             state[26],
-            state[27]];
+            state[27]] /*<<format.ml:569:47>>*/ ;
     /*<<format.ml:574:1>>*/ }
    function pp_set_formatter_stag_function(state, param){
     var pct = param[4], pot = param[3], mct = param[2], mot = param[1];
@@ -29351,13 +29683,13 @@
     state[10] = 0;
     state[14] = 0;
     state[9] = state[6];
-     /*<<format.ml:523:28>>*/ return pp_open_box_gen(state, 0, 3);
+     /*<<format.ml:523:28>>*/ return pp_open_box_gen(state, 0, 3) /*<<format.ml:600:23>>*/ ;
     /*<<format.ml:600:23>>*/ }
    function pp_flush_queue(state, end_with_newline){
      /*<<format.ml:608:2>>*/  /*<<format.ml:603:13>>*/ caml_call2
       /*<<format.ml:603:13>>*/ (Stdlib_Stack[13],
       function(param){
-        /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0);
+        /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0) /*<<format.ml:603:45>>*/ ;
        /*<<format.ml:603:45>>*/ },
       state[4]);
      /*<<format.ml:610:4>>*/ for(;;){
@@ -29365,21 +29697,21 @@
       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:614:27>>*/ return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
      }
       /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
     }
     /*<<format.ml:615:16>>*/ }
    function pp_print_as_size(state, size, s){
     var _aY_ = state[14] < state[15] ? 1 : 0;
-    return _aY_ ? enqueue_string_as(state, size, s) : _aY_;
+    return _aY_ ? enqueue_string_as(state, size, s) : _aY_ /*<<format.ml:626:37>>*/ ;
     /*<<format.ml:626:37>>*/ }
    function pp_print_as(state, isize, s){
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s);
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:630:46>>*/ ;
     /*<<format.ml:630:46>>*/ }
    function pp_print_string(state, s){
     var isize = caml_ml_string_length(s);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s);
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:634:39>>*/ ;
     /*<<format.ml:634:39>>*/ }
    function pp_print_bytes(state, s){
     var
@@ -29387,67 +29719,68 @@
         /*<<format.ml:637:37>>*/  /*<<format.ml:637:37>>*/ caml_call1
          /*<<format.ml:637:37>>*/ (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:630:2>>*/ return pp_print_as_size(state, isize, s$0) /*<<format.ml:637:56>>*/ ;
     /*<<format.ml:637:56>>*/ }
    function pp_print_int(state, i){
      /*<<format.ml:640:27>>*/ return pp_print_string
             (state,
               /*<<format.ml:640:49>>*/ caml_call1
-               /*<<format.ml:640:49>>*/ (Stdlib_Int[12], i));
+               /*<<format.ml:640:49>>*/ (Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
     /*<<format.ml:640:66>>*/ }
    function pp_print_float(state, f){
      /*<<format.ml:643:29>>*/ return pp_print_string
             (state,
               /*<<format.ml:643:51>>*/ caml_call1
-               /*<<format.ml:643:51>>*/ (Stdlib[35], f));
+               /*<<format.ml:643:51>>*/ (Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
     /*<<format.ml:643:70>>*/ }
    function pp_print_bool(state, b){
      /*<<format.ml:646:28>>*/ return pp_print_string
             (state,
               /*<<format.ml:646:50>>*/ caml_call1
-               /*<<format.ml:646:50>>*/ (Stdlib[30], b));
+               /*<<format.ml:646:50>>*/ (Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
     /*<<format.ml:646:68>>*/ }
    function pp_print_char(state, c){
     var
      s =
         /*<<format.ml:650:22>>*/  /*<<format.ml:650:22>>*/ caml_call2
          /*<<format.ml:650:22>>*/ (Stdlib_String[1], 1, c);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, 1, s);
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, 1, s) /*<<format.ml:650:39>>*/ ;
     /*<<format.ml:650:39>>*/ }
-   function pp_print_nothing(state, param){ /*<<format.ml:652:33>>*/ return 0;
+   function pp_print_nothing(state, param){
+     /*<<format.ml:652:33>>*/ return 0 /*<<format.ml:652:33>>*/ ;
     /*<<format.ml:652:35>>*/ }
    function pp_open_hbox(state, param){
-     /*<<format.ml:656:28>>*/ return pp_open_box_gen(state, 0, 0);
+     /*<<format.ml:656:28>>*/ return pp_open_box_gen(state, 0, 0) /*<<format.ml:656:59>>*/ ;
     /*<<format.ml:656:59>>*/ }
    function pp_open_vbox(state, indent){
-     /*<<format.ml:657:32>>*/ return pp_open_box_gen(state, indent, 1);
+     /*<<format.ml:657:32>>*/ return pp_open_box_gen(state, indent, 1) /*<<format.ml:657:68>>*/ ;
     /*<<format.ml:657:68>>*/ }
    function pp_open_hvbox(state, indent){
-     /*<<format.ml:659:33>>*/ return pp_open_box_gen(state, indent, 2);
+     /*<<format.ml:659:33>>*/ return pp_open_box_gen(state, indent, 2) /*<<format.ml:659:70>>*/ ;
     /*<<format.ml:659:70>>*/ }
    function pp_open_hovbox(state, indent){
-     /*<<format.ml:660:34>>*/ return pp_open_box_gen(state, indent, 3);
+     /*<<format.ml:660:34>>*/ return pp_open_box_gen(state, indent, 3) /*<<format.ml:660:72>>*/ ;
     /*<<format.ml:660:72>>*/ }
    function pp_open_box(state, indent){
-     /*<<format.ml:661:31>>*/ return pp_open_box_gen(state, indent, 4);
+     /*<<format.ml:661:31>>*/ return pp_open_box_gen(state, indent, 4) /*<<format.ml:661:66>>*/ ;
     /*<<format.ml:661: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:673:2>>*/ (state[18], 0);
+             /*<<format.ml:673:2>>*/ (state[18], 0) /*<<format.ml:673:68>>*/ ;
     /*<<format.ml:673: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:675:2>>*/ (state[18], 0);
+             /*<<format.ml:675:2>>*/ (state[18], 0) /*<<format.ml:675:69>>*/ ;
     /*<<format.ml:675:69>>*/ }
    function pp_force_newline(state, param){
     var _aX_ = state[14] < state[15] ? 1 : 0;
-    return _aX_ ? enqueue_advance(state, [0, zero, 3, 0]) : _aX_;
+    return _aX_ ? enqueue_advance(state, [0, zero, 3, 0]) : _aX_ /*<<format.ml:681:78>>*/ ;
     /*<<format.ml:681:78>>*/ }
    function pp_print_if_newline(state, param){
     var _aW_ = state[14] < state[15] ? 1 : 0;
-    return _aW_ ? enqueue_advance(state, [0, zero, 4, 0]) : _aW_;
+    return _aW_ ? enqueue_advance(state, [0, zero, 4, 0]) : _aW_ /*<<format.ml:688:61>>*/ ;
     /*<<format.ml:688:61>>*/ }
    function pp_print_custom_break(state, fits, breaks){
     var
@@ -29466,24 +29799,24 @@
           /*<<format.ml:698:4>>*/ (after)
        | 0,
      elem =  /*<<format.ml:699:15>>*/ [0, size, token, length];
-     /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem);
+     /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:700:29>>*/ ;
     /*<<format.ml:700:29>>*/ }
    function pp_print_break(state, width, offset){
      /*<<format.ml:707:2>>*/ return pp_print_custom_break
-            (state, [0, cst$6, width, cst$5], [0, cst$4, offset, cst$3]);
+            (state, [0, cst$6, width, cst$5], [0, cst$4, offset, cst$3]) /*<<format.ml:708:50>>*/ ;
     /*<<format.ml:708:50>>*/ }
    function pp_print_space(state, param){
-     /*<<format.ml:716:30>>*/ return pp_print_break(state, 1, 0);
+     /*<<format.ml:716:30>>*/ return pp_print_break(state, 1, 0) /*<<format.ml:716:54>>*/ ;
     /*<<format.ml:716:54>>*/ }
    function pp_print_cut(state, param){
-     /*<<format.ml:717:28>>*/ return pp_print_break(state, 0, 0);
+     /*<<format.ml:717:28>>*/ return pp_print_break(state, 0, 0) /*<<format.ml:717:52>>*/ ;
     /*<<format.ml:717:52>>*/ }
    function pp_open_tbox(state, param){
      /*<<format.ml:722:2>>*/ state[14] = state[14] + 1 | 0;
     var _aU_ = state[14] < state[15] ? 1 : 0;
     if(! _aU_) return _aU_;
     var elem =  /*<<format.ml:725:15>>*/ [0, zero, [4, [0, [0, 0]]], 0];
-     /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem);
+     /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:726:30>>*/ ;
     /*<<format.ml:726:30>>*/ }
    function pp_close_tbox(state, param){
     var _aR_ = 1 < state[14] ? 1 : 0;
@@ -29508,16 +29841,16 @@
     var
      size = - state[13] | 0,
      elem =  /*<<format.ml:744:15>>*/ [0, size, [2, width, offset], width];
-     /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem);
+     /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:745:29>>*/ ;
     /*<<format.ml:745:29>>*/ }
    function pp_print_tab(state, param){
-     /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0);
+     /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0) /*<<format.ml:748:53>>*/ ;
     /*<<format.ml:748:53>>*/ }
    function pp_set_tab(state, param){
     var _aP_ = state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
     var elem =  /*<<format.ml:752:15>>*/ [0, zero, 0, 0];
-     /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem);
+     /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:753:30>>*/ ;
     /*<<format.ml:753:30>>*/ }
    function pp_set_max_boxes(state, n){
     var _aN_ = 1 < n ? 1 : 0, _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
@@ -29537,7 +29870,7 @@
      /*<<format.ml:772:36>>*/ return state[16];
     /*<<format.ml:772:53>>*/ }
    function pp_limit(n){
-     /*<<format.ml:777:2>>*/ return n < 1000000010 ? n : 1000000009;
+     /*<<format.ml:777:2>>*/ return n < 1000000010 ? n : 1000000009 /*<<format.ml:777:49>>*/ ;
     /*<<format.ml:777:49>>*/ }
    function pp_set_max_indent(state, n$0){
     var _aM_ = 1 < n$0 ? 1 : 0;
@@ -29547,7 +29880,7 @@
     var n =  /*<<format.ml:783:12>>*/ pp_limit(n$1);
     state[7] = n;
     state[8] = state[6] - state[7] | 0;
-     /*<<format.ml:786:4>>*/ return pp_rinit(state);
+     /*<<format.ml:786:4>>*/ return pp_rinit(state) /*<<format.ml:794:53>>*/ ;
     /*<<format.ml:794:53>>*/ }
    function pp_get_max_indent(state, param){
      /*<<format.ml:797:33>>*/ return state[8];
@@ -29569,7 +29902,7 @@
       new_max_indent =
          /*<<format.ml:810:7>>*/ caml_call2
           /*<<format.ml:810:7>>*/ (Stdlib_Int[11], _aK_, 1);
-     /*<<format.ml:813:4>>*/ return pp_set_max_indent(state, new_max_indent);
+     /*<<format.ml:813:4>>*/ return pp_set_max_indent(state, new_max_indent) /*<<format.ml:813:42>>*/ ;
     /*<<format.ml:813:42>>*/ }
    function validate_geometry(param){
     var margin = param[2], max_indent = param[1];
@@ -29580,7 +29913,7 @@
    function check_geometry(geometry){
      /*<<format.ml:829:2>>*/ return 0 === validate_geometry(geometry)[0]
             ? 1
-            : 0;
+            : 0 /*<<format.ml:831:20>>*/ ;
     /*<<format.ml:831:20>>*/ }
    function pp_get_margin(state, param){
      /*<<format.ml:833:29>>*/ return state[6];
@@ -29589,14 +29922,14 @@
     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:837:2>>*/ return 0 /*<<format.ml:837:2>>*/ ;
    }
    function pp_set_geometry(state, max_indent, margin){
     var
      geometry =  /*<<format.ml:841:17>>*/ [0, max_indent, margin],
      match =  /*<<format.ml:842:8>>*/ validate_geometry(geometry);
     if(0 === match[0])
-      /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry);
+      /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry) /*<<format.ml:846:39>>*/ ;
     var
      msg = match[1],
      _aI_ =
@@ -29611,17 +29944,17 @@
     var geometry =  /*<<format.ml:849:17>>*/ [0, max_indent, margin];
     return 0 === validate_geometry(geometry)[0]
             ? pp_set_full_geometry(state, geometry)
-            : 0;
+            : 0 /*<<format.ml:854:39>>*/ ;
     /*<<format.ml:854:39>>*/ }
    function pp_get_geometry(state, param){
-     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]];
+     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]] /*<<format.ml:857:2>>*/ ;
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
     var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
      /*<<format.ml:861:29>>*/ return pp_set_full_geometry
             (state,
               /*<<format.ml:861:29>>*/ caml_call1
-               /*<<format.ml:861:29>>*/ (update, geometry));
+               /*<<format.ml:861:29>>*/ (update, geometry)) /*<<format.ml:861:46>>*/ ;
     /*<<format.ml:861: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];
@@ -29638,7 +29971,7 @@
             state[18],
             state[19],
             state[20],
-            state[21]];
+            state[21]] /*<<format.ml:877:46>>*/ ;
     /*<<format.ml:883:1>>*/ }
    function pp_set_formatter_output_functi(state, f, g){
      /*<<format.ml:888:2>>*/ state[17] = f;
@@ -29646,11 +29979,11 @@
     return 0;
     /*<<format.ml:888:51>>*/ }
    function pp_get_formatter_output_functi(state, param){
-     /*<<format.ml:891:2>>*/ return [0, state[17], state[18]];
+     /*<<format.ml:891:2>>*/ return [0, state[17], state[18]] /*<<format.ml:891:2>>*/ ;
     /*<<format.ml:891:43>>*/ }
    function display_newline(state, param){
      /*<<format.ml:895:31>>*/ return  /*<<format.ml:895:31>>*/ caml_call3
-             /*<<format.ml:895:31>>*/ (state[17], cst$7, 0, 1);
+             /*<<format.ml:895:31>>*/ (state[17], cst$7, 0, 1) /*<<format.ml:895:60>>*/ ;
     /*<<format.ml:895:60>>*/ }
    var
     blank_line =
@@ -29664,7 +29997,7 @@
      if(! _aH_) return _aH_;
      if(80 >= n$0)
        /*<<format.ml:901:18>>*/ return  /*<<format.ml:901:18>>*/ caml_call3
-               /*<<format.ml:901:18>>*/ (state[17], blank_line, 0, n$0);
+               /*<<format.ml:901:18>>*/ (state[17], blank_line, 0, n$0) /*<<format.ml:905:5>>*/ ;
       /*<<format.ml:903:4>>*/  /*<<format.ml:903:4>>*/ caml_call3
        /*<<format.ml:903:4>>*/ (state[17], blank_line, 0, 80);
      var n$1 =  /*<<format.ml:903:4>>*/ n$0 - 80 | 0;
@@ -29678,7 +30011,7 @@
     state[18] =
      function(param){
        /*<<format.ml:915:35>>*/ return  /*<<format.ml:915:2>>*/ caml_call1
-               /*<<format.ml:915:2>>*/ (Stdlib[63], oc);
+               /*<<format.ml:915:2>>*/ (Stdlib[63], oc) /*<<format.ml:915:43>>*/ ;
       /*<<format.ml:915:43>>*/ };
     state[19] =
      function(_aG_){ /*<<?>>*/ return display_newline(state, _aG_);};
@@ -29688,25 +30021,25 @@
     /*<<format.ml:918: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:928:9>>*/ return cst$10 /*<<format.ml:928:9>>*/ ;
     var
      s = param[2],
      _aD_ =
         /*<<format.ml:927:26>>*/  /*<<format.ml:927:26>>*/ caml_call2
          /*<<format.ml:927:26>>*/ (Stdlib[28], s, cst$8);
      /*<<format.ml:927:26>>*/ return  /*<<format.ml:927:26>>*/ caml_call2
-             /*<<format.ml:927:26>>*/ (Stdlib[28], cst$9, _aD_);
+             /*<<format.ml:927:26>>*/ (Stdlib[28], cst$9, _aD_) /*<<format.ml:928:11>>*/ ;
     /*<<format.ml:928: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:931:9>>*/ return cst$13 /*<<format.ml:931:9>>*/ ;
     var
      s = param[2],
      _aC_ =
         /*<<format.ml:930:27>>*/  /*<<format.ml:930:27>>*/ caml_call2
          /*<<format.ml:930:27>>*/ (Stdlib[28], s, cst$11);
      /*<<format.ml:930:27>>*/ return  /*<<format.ml:930:27>>*/ caml_call2
-             /*<<format.ml:930:27>>*/ (Stdlib[28], cst$12, _aC_);
+             /*<<format.ml:930:27>>*/ (Stdlib[28], cst$12, _aC_) /*<<format.ml:931:11>>*/ ;
     /*<<format.ml:931:11>>*/ }
    function default_pp_print_open_tag(_aB_){ /*<<?>>*/ return 0;}
    function default_pp_print_close_tag(_aA_){ /*<<?>>*/ return 0;}
@@ -29766,11 +30099,11 @@
             default_pp_mark_close_tag,
             default_pp_print_open_tag,
             default_pp_print_close_tag,
-            pp_queue];
+            pp_queue] /*<<format.ml:949:2>>*/ ;
    }
    function formatter_of_out_functions(out_funs){
      /*<<format.ml:983:2>>*/ return pp_make_formatter
-            (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]);
+            (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]) /*<<format.ml:988:23>>*/ ;
     /*<<format.ml:988:23>>*/ }
    function make_formatter(output, flush){
     var
@@ -29784,7 +30117,7 @@
     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:2>>*/ return ppf /*<<format.ml:998:2>>*/ ;
     /*<<format.ml:998:5>>*/ }
    function formatter_of_out_channel(oc){
      /*<<format.ml:1003:2>>*/ return make_formatter
@@ -29792,19 +30125,19 @@
                /*<<format.ml:1003:17>>*/ (Stdlib[69], oc),
              function(param){
                /*<<format.ml:1003:50>>*/ return  /*<<format.ml:1003:2>>*/ caml_call1
-                       /*<<format.ml:1003:2>>*/ (Stdlib[63], oc);
-              /*<<format.ml:1003:58>>*/ });
+                       /*<<format.ml:1003:2>>*/ (Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
+              /*<<format.ml:1003:58>>*/ }) /*<<format.ml:1003:59>>*/ ;
     /*<<format.ml:1003:59>>*/ }
    function formatter_of_buffer(b){
      /*<<format.ml:1008:2>>*/ return make_formatter
             ( /*<<format.ml:1008:17>>*/ caml_call1
                /*<<format.ml:1008:17>>*/ (Stdlib_Buffer[18], b),
-             function(_ap_){ /*<<?>>*/ return 0;});
+             function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
     /*<<format.ml:1008:48>>*/ }
    var pp_buffer_size = 512;
    function pp_make_buffer(param){
      /*<<format.ml:1015:24>>*/ return caml_call1
-            (Stdlib_Buffer[1], pp_buffer_size);
+            (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
     /*<<format.ml:1015:52>>*/ }
    var
     stdbuf =  /*<<format.ml:1018:13>>*/ pp_make_buffer(0),
@@ -29827,7 +30160,7 @@
           /*<<format.ml:1033:2>>*/ return formatter_of_buffer
                  ( /*<<format.ml:1033:22>>*/ caml_call1
                     /*<<format.ml:1033:22>>*/ (Stdlib_Domain[10][2],
-                    stdbuf_key));
+                    stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
          /*<<format.ml:1033:42>>*/ });
     /*<<format.ml:1034:8>>*/  /*<<format.ml:1034:8>>*/ caml_call2
      /*<<format.ml:1034:8>>*/ (Stdlib_Domain[10][3],
@@ -29839,7 +30172,7 @@
         /*<<format.ml:1037:23>>*/  /*<<format.ml:1037:23>>*/ caml_call1
          /*<<format.ml:1037:23>>*/ (Stdlib_Domain[10][2], key);
      /*<<format.ml:1037:2>>*/ return  /*<<format.ml:1037:2>>*/ caml_call4
-             /*<<format.ml:1037:2>>*/ (Stdlib_Buffer[18], _ao_, str, ofs, len);
+             /*<<format.ml:1037:2>>*/ (Stdlib_Buffer[18], _ao_, str, ofs, len) /*<<format.ml:1037:55>>*/ ;
     /*<<format.ml:1037:55>>*/ }
    function buffered_out_flush(oc, key, param){
     var
@@ -29857,7 +30190,7 @@
      /*<<format.ml:1044:2>>*/  /*<<format.ml:1044:2>>*/ caml_call1
       /*<<format.ml:1044:2>>*/ (Stdlib[63], oc);
      /*<<format.ml:1044:2>>*/ return  /*<<format.ml:1044:2>>*/ caml_call1
-             /*<<format.ml:1044:2>>*/ (Stdlib_Buffer[8], buf);
+             /*<<format.ml:1044:2>>*/ (Stdlib_Buffer[8], buf) /*<<format.ml:1045:18>>*/ ;
     /*<<format.ml:1045:18>>*/ }
    var
     std_buf_key =
@@ -29866,7 +30199,7 @@
         0,
         function(param){
           /*<<format.ml:1047:48>>*/ return caml_call1
-                 (Stdlib_Buffer[1], pp_buffer_size);
+                 (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1047:76>>*/ ;
          /*<<format.ml:1047:76>>*/ }),
     err_buf_key =
        /*<<format.ml:1048:18>>*/  /*<<format.ml:1048:18>>*/ caml_call2
@@ -29874,7 +30207,7 @@
         0,
         function(param){
           /*<<format.ml:1048:48>>*/ return  /*<<format.ml:1047:18>>*/ caml_call1
-                  /*<<format.ml:1047:18>>*/ (Stdlib_Buffer[1], pp_buffer_size);
+                  /*<<format.ml:1047:18>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1048:76>>*/ ;
          /*<<format.ml:1048:76>>*/ }),
     std_formatter_key =
        /*<<format.ml:1050:24>>*/  /*<<format.ml:1050:24>>*/ caml_call2
@@ -29904,7 +30237,7 @@
           /*<<format.ml:1058:2>>*/  /*<<format.ml:1058:2>>*/ caml_call1
            /*<<format.ml:1058:2>>*/ (Stdlib_Domain[6],
            function(_ad_){ /*<<?>>*/ return pp_print_flush(ppf, _ad_);});
-          /*<<format.ml:1058:2>>*/ return ppf;
+          /*<<format.ml:1058:2>>*/ return ppf /*<<format.ml:1058:2>>*/ ;
          /*<<format.ml:1059:5>>*/ });
     /*<<format.ml:1060:8>>*/  /*<<format.ml:1060:8>>*/ caml_call2
      /*<<format.ml:1060:8>>*/ (Stdlib_Domain[10][3],
@@ -29936,7 +30269,7 @@
           /*<<format.ml:1070:2>>*/  /*<<format.ml:1070:2>>*/ caml_call1
            /*<<format.ml:1070:2>>*/ (Stdlib_Domain[6],
            function(_T_){ /*<<?>>*/ return pp_print_flush(ppf, _T_);});
-          /*<<format.ml:1070:2>>*/ return ppf;
+          /*<<format.ml:1070:2>>*/ return ppf /*<<format.ml:1070:2>>*/ ;
          /*<<format.ml:1071:5>>*/ });
     /*<<format.ml:1072:8>>*/  /*<<format.ml:1072:8>>*/ caml_call2
      /*<<format.ml:1072:8>>*/ (Stdlib_Domain[10][3],
@@ -29945,19 +30278,19 @@
    function get_std_formatter(param){
      /*<<format.ml:1074:27>>*/ return  /*<<format.ml:1072:8>>*/ caml_call1
              /*<<format.ml:1072:8>>*/ (Stdlib_Domain[10][2],
-             std_formatter_key);
+             std_formatter_key) /*<<format.ml:1074:52>>*/ ;
     /*<<format.ml:1074:52>>*/ }
    function get_err_formatter(param){
      /*<<format.ml:1075:27>>*/ return caml_call1
-            (Stdlib_Domain[10][2], err_formatter_key);
+            (Stdlib_Domain[10][2], err_formatter_key) /*<<format.ml:1075:52>>*/ ;
     /*<<format.ml:1075:52>>*/ }
    function get_str_formatter(param){
      /*<<format.ml:1076:27>>*/ return caml_call1
-            (Stdlib_Domain[10][2], str_formatter_key);
+            (Stdlib_Domain[10][2], str_formatter_key) /*<<format.ml:1076:52>>*/ ;
     /*<<format.ml:1076:52>>*/ }
    function get_stdbuf(param){
      /*<<format.ml:1077:20>>*/ return caml_call1
-            (Stdlib_Domain[10][2], stdbuf_key);
+            (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
     /*<<format.ml:1077:38>>*/ }
    function flush_buffer_formatter(buf, ppf){
      /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
@@ -29967,7 +30300,7 @@
          /*<<format.ml:1085:10>>*/ (Stdlib_Buffer[2], buf);
      /*<<format.ml:1086:2>>*/  /*<<format.ml:1086:2>>*/ caml_call1
       /*<<format.ml:1086:2>>*/ (Stdlib_Buffer[9], buf);
-     /*<<format.ml:1086:2>>*/ return s;
+     /*<<format.ml:1086:2>>*/ return s /*<<format.ml:1086:2>>*/ ;
     /*<<format.ml:1087:3>>*/ }
    function flush_str_formatter(param){
     var
@@ -29978,7 +30311,7 @@
         /*<<format.ml:1092:22>>*/  /*<<format.ml:1092:22>>*/ caml_call1
          /*<<format.ml:1092:22>>*/ (Stdlib_Domain[10][2], str_formatter_key);
      /*<<format.ml:1093:2>>*/ return flush_buffer_formatter
-            (stdbuf, str_formatter);
+            (stdbuf, str_formatter) /*<<format.ml:1093:45>>*/ ;
     /*<<format.ml:1093:45>>*/ }
    function make_synchronized_formatter(output, flush){
      /*<<format.ml:1096:2>>*/ return  /*<<format.ml:1096:14>>*/ caml_call2
@@ -30007,11 +30340,11 @@
                 /*<<format.ml:1101:6>>*/  /*<<format.ml:1101:6>>*/ caml_call1
                  /*<<format.ml:1101:6>>*/ (Stdlib_Buffer[8], buf);
                 /*<<format.ml:1101:6>>*/ return  /*<<format.ml:1101:6>>*/ caml_call1
-                        /*<<format.ml:1101:6>>*/ (flush, 0);
+                        /*<<format.ml:1101:6>>*/ (flush, 0) /*<<format.ml:1102:14>>*/ ;
                /*<<format.ml:1102:14>>*/ }
                /*<<format.ml:1104:4>>*/ return make_formatter
-                      (output$0, flush$0);
-              /*<<format.ml:1104:33>>*/ });
+                      (output$0, flush$0) /*<<format.ml:1104:33>>*/ ;
+              /*<<format.ml:1104:33>>*/ }) /*<<format.ml:1104:34>>*/ ;
     /*<<format.ml:1104:34>>*/ }
    function synchronized_formatter_of_out_(oc){
      /*<<format.ml:1107:2>>*/ return make_synchronized_formatter
@@ -30019,22 +30352,23 @@
                /*<<format.ml:1107:30>>*/ (Stdlib[69], oc),
              function(param){
                /*<<format.ml:1107:63>>*/ return  /*<<format.ml:1107:2>>*/ caml_call1
-                       /*<<format.ml:1107:2>>*/ (Stdlib[63], oc);
-              /*<<format.ml:1107:71>>*/ });
+                       /*<<format.ml:1107:2>>*/ (Stdlib[63], oc) /*<<format.ml:1107:71>>*/ ;
+              /*<<format.ml:1107:71>>*/ }) /*<<format.ml:1107:72>>*/ ;
     /*<<format.ml:1107:72>>*/ }
-   function make_symbolic_output_buffer(param){ /*<<format.ml:1134:2>>*/ return [0, 0];
+   function make_symbolic_output_buffer(param){
+     /*<<format.ml:1134:2>>*/ return [0, 0] /*<<format.ml:1134:2>>*/ ;
     /*<<format.ml:1134:35>>*/ }
    function clear_symbolic_output_buffer(sob){
      /*<<format.ml:1137:2>>*/ sob[1] = 0;
     return 0;
     /*<<format.ml:1137:36>>*/ }
    function get_symbolic_output_buffer(sob){
-     /*<<format.ml:1140:2>>*/ return caml_call1(Stdlib_List[10], sob[1]);
+     /*<<format.ml:1140:2>>*/ return caml_call1(Stdlib_List[10], sob[1]) /*<<format.ml:1140:39>>*/ ;
     /*<<format.ml:1140:39>>*/ }
    function flush_symbolic_output_buffer(sob){
     var items =  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer(sob);
      /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer(sob);
-     /*<<format.ml:1144:2>>*/ return items;
+     /*<<format.ml:1144:2>>*/ return items /*<<format.ml:1144:2>>*/ ;
     /*<<format.ml:1145:7>>*/ }
    function add_symbolic_output_item(sob, item){
      /*<<format.ml:1148:2>>*/ sob[1] = [0, item, sob[1]];
@@ -30046,126 +30380,126 @@
              (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
-                 /*<<format.ml:1156:48>>*/ (Stdlib_String[16], s, i, n)]);
+                 /*<<format.ml:1156:48>>*/ (Stdlib_String[16], s, i, n)]) /*<<format.ml:1156:33>>*/ ;
     }
     function g(_Q_){
-      /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0);
+      /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0) /*<<format.ml:1152:4>>*/ ;
     }
     function h(_P_){
-      /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1);
+      /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1) /*<<format.ml:1154:4>>*/ ;
     }
     function i(n){
-      /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]);
+      /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]) /*<<format.ml:1158:33>>*/ ;
     }
     function j(n){
-      /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]);
+      /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]) /*<<format.ml:1160:33>>*/ ;
     }
-     /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j);
+     /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
     /*<<format.ml:1167:29>>*/ }
    function open_hbox(v){
      /*<<format.ml:1176:18>>*/ return pp_open_hbox
             ( /*<<format.ml:1176:31>>*/ caml_call1
                /*<<format.ml:1176:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1176:60>>*/ ;
     /*<<format.ml:1176:60>>*/ }
    function open_vbox(v){
      /*<<format.ml:1177:18>>*/ return pp_open_vbox
             ( /*<<format.ml:1177:31>>*/ caml_call1
                /*<<format.ml:1177:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1177:60>>*/ ;
     /*<<format.ml:1177:60>>*/ }
    function open_hvbox(v){
      /*<<format.ml:1178:19>>*/ return pp_open_hvbox
             ( /*<<format.ml:1178:33>>*/ caml_call1
                /*<<format.ml:1178:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1178:62>>*/ ;
     /*<<format.ml:1178:62>>*/ }
    function open_hovbox(v){
      /*<<format.ml:1179:20>>*/ return pp_open_hovbox
             ( /*<<format.ml:1179:35>>*/ caml_call1
                /*<<format.ml:1179:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1179:64>>*/ ;
     /*<<format.ml:1179:64>>*/ }
    function open_box(v){
      /*<<format.ml:1180:17>>*/ return pp_open_box
             ( /*<<format.ml:1180:29>>*/ caml_call1
                /*<<format.ml:1180:29>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1180:58>>*/ ;
     /*<<format.ml:1180:58>>*/ }
    function close_box(v){
      /*<<format.ml:1181:18>>*/ return pp_close_box
             ( /*<<format.ml:1181:31>>*/ caml_call1
                /*<<format.ml:1181:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1181:60>>*/ ;
     /*<<format.ml:1181:60>>*/ }
    function open_stag(v){
      /*<<format.ml:1182:18>>*/ return pp_open_stag
             ( /*<<format.ml:1182:31>>*/ caml_call1
                /*<<format.ml:1182:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1182:60>>*/ ;
     /*<<format.ml:1182:60>>*/ }
    function close_stag(v){
      /*<<format.ml:1183:19>>*/ return pp_close_stag
             ( /*<<format.ml:1183:33>>*/ caml_call1
                /*<<format.ml:1183:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1183:62>>*/ ;
     /*<<format.ml:1183:62>>*/ }
    function print_as(isize, w){
     var
      state =
         /*<<format.ml:1184:31>>*/  /*<<format.ml:1184:31>>*/ caml_call1
          /*<<format.ml:1184:31>>*/ (Stdlib_Domain[10][2], std_formatter_key);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, w);
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, w) /*<<format.ml:1184:62>>*/ ;
     /*<<format.ml:1184:62>>*/ }
    function print_string(v){
      /*<<format.ml:1185:21>>*/ return pp_print_string
             ( /*<<format.ml:1185:37>>*/ caml_call1
                /*<<format.ml:1185:37>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1185:66>>*/ ;
     /*<<format.ml:1185:66>>*/ }
    function print_bytes(v){
      /*<<format.ml:1186:20>>*/ return pp_print_bytes
             ( /*<<format.ml:1186:35>>*/ caml_call1
                /*<<format.ml:1186:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1186:64>>*/ ;
     /*<<format.ml:1186:64>>*/ }
    function print_int(v){
      /*<<format.ml:1187:18>>*/ return pp_print_int
             ( /*<<format.ml:1187:31>>*/ caml_call1
                /*<<format.ml:1187:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1187:60>>*/ ;
     /*<<format.ml:1187:60>>*/ }
    function print_float(v){
      /*<<format.ml:1188:20>>*/ return pp_print_float
             ( /*<<format.ml:1188:35>>*/ caml_call1
                /*<<format.ml:1188:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1188:64>>*/ ;
     /*<<format.ml:1188:64>>*/ }
    function print_char(v){
      /*<<format.ml:1189:19>>*/ return pp_print_char
             ( /*<<format.ml:1189:33>>*/ caml_call1
                /*<<format.ml:1189:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1189:62>>*/ ;
     /*<<format.ml:1189:62>>*/ }
    function print_bool(v){
      /*<<format.ml:1190:19>>*/ return pp_print_bool
             ( /*<<format.ml:1190:33>>*/ caml_call1
                /*<<format.ml:1190:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1190:62>>*/ ;
     /*<<format.ml:1190:62>>*/ }
    function print_break(v, w){
      /*<<format.ml:1191:22>>*/ return pp_print_break
@@ -30173,63 +30507,63 @@
                /*<<format.ml:1191:37>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v,
-             w);
+             w) /*<<format.ml:1191:68>>*/ ;
     /*<<format.ml:1191:68>>*/ }
    function print_cut(v){
      /*<<format.ml:1192:18>>*/ return pp_print_cut
             ( /*<<format.ml:1192:31>>*/ caml_call1
                /*<<format.ml:1192:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1192:60>>*/ ;
     /*<<format.ml:1192:60>>*/ }
    function print_space(v){
      /*<<format.ml:1193:20>>*/ return pp_print_space
             ( /*<<format.ml:1193:35>>*/ caml_call1
                /*<<format.ml:1193:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1193:64>>*/ ;
     /*<<format.ml:1193:64>>*/ }
    function force_newline(v){
      /*<<format.ml:1194:22>>*/ return pp_force_newline
             ( /*<<format.ml:1194:39>>*/ caml_call1
                /*<<format.ml:1194:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1194:68>>*/ ;
     /*<<format.ml:1194:68>>*/ }
    function print_flush(v){
      /*<<format.ml:1195:20>>*/ return pp_print_flush
             ( /*<<format.ml:1195:35>>*/ caml_call1
                /*<<format.ml:1195:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1195:64>>*/ ;
     /*<<format.ml:1195:64>>*/ }
    function print_newline(v){
      /*<<format.ml:1196:22>>*/ return pp_print_newline
             ( /*<<format.ml:1196:39>>*/ caml_call1
                /*<<format.ml:1196:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1196:68>>*/ ;
     /*<<format.ml:1196:68>>*/ }
    function print_if_newline(v){
      /*<<format.ml:1197:25>>*/ return pp_print_if_newline
             ( /*<<format.ml:1197:45>>*/ caml_call1
                /*<<format.ml:1197:45>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1197:74>>*/ ;
     /*<<format.ml:1197:74>>*/ }
    function open_tbox(v){
      /*<<format.ml:1199:18>>*/ return pp_open_tbox
             ( /*<<format.ml:1199:31>>*/ caml_call1
                /*<<format.ml:1199:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1199:60>>*/ ;
     /*<<format.ml:1199:60>>*/ }
    function close_tbox(v){
      /*<<format.ml:1200:19>>*/ return pp_close_tbox
             ( /*<<format.ml:1200:33>>*/ caml_call1
                /*<<format.ml:1200:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1200:62>>*/ ;
     /*<<format.ml:1200:62>>*/ }
    function print_tbreak(v, w){
      /*<<format.ml:1201:23>>*/ return pp_print_tbreak
@@ -30237,28 +30571,28 @@
                /*<<format.ml:1201:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v,
-             w);
+             w) /*<<format.ml:1201:70>>*/ ;
     /*<<format.ml:1201:70>>*/ }
    function set_tab(v){
      /*<<format.ml:1203:16>>*/ return pp_set_tab
             ( /*<<format.ml:1203:27>>*/ caml_call1
                /*<<format.ml:1203:27>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1203:56>>*/ ;
     /*<<format.ml:1203:56>>*/ }
    function print_tab(v){
      /*<<format.ml:1204:18>>*/ return pp_print_tab
             ( /*<<format.ml:1204:31>>*/ caml_call1
                /*<<format.ml:1204:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1204:60>>*/ ;
     /*<<format.ml:1204:60>>*/ }
    function set_margin(v){
      /*<<format.ml:1206:19>>*/ return pp_set_margin
             ( /*<<format.ml:1206:33>>*/ caml_call1
                /*<<format.ml:1206:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1206:62>>*/ ;
     /*<<format.ml:1206:62>>*/ }
    function get_margin(v){
     var
@@ -30272,7 +30606,7 @@
             ( /*<<format.ml:1209:41>>*/ caml_call1
                /*<<format.ml:1209:41>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1209:70>>*/ ;
     /*<<format.ml:1209:70>>*/ }
    function get_max_indent(v){
     var
@@ -30287,7 +30621,7 @@
                /*<<format.ml:1213:18>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              max_indent,
-             margin);
+             margin) /*<<format.ml:1213:65>>*/ ;
     /*<<format.ml:1213:65>>*/ }
    function safe_set_geometry(max_indent, margin){
      /*<<format.ml:1215:2>>*/ return pp_safe_set_geometry
@@ -30295,28 +30629,28 @@
                /*<<format.ml:1215:23>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              max_indent,
-             margin);
+             margin) /*<<format.ml:1215:70>>*/ ;
     /*<<format.ml:1215:70>>*/ }
    function get_geometry(v){
      /*<<format.ml:1216:21>>*/ return pp_get_geometry
             ( /*<<format.ml:1216:37>>*/ caml_call1
                /*<<format.ml:1216:37>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1216:66>>*/ ;
     /*<<format.ml:1216:66>>*/ }
    function update_geometry(v){
      /*<<format.ml:1217:24>>*/ return pp_update_geometry
             ( /*<<format.ml:1217:43>>*/ caml_call1
                /*<<format.ml:1217:43>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1217:72>>*/ ;
     /*<<format.ml:1217:72>>*/ }
    function set_max_boxes(v){
      /*<<format.ml:1219:22>>*/ return pp_set_max_boxes
             ( /*<<format.ml:1219:39>>*/ caml_call1
                /*<<format.ml:1219:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1219:68>>*/ ;
     /*<<format.ml:1219:68>>*/ }
    function get_max_boxes(v){
     var
@@ -30330,14 +30664,14 @@
             ( /*<<format.ml:1221:41>>*/ caml_call1
                /*<<format.ml:1221:41>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1221:70>>*/ ;
     /*<<format.ml:1221:70>>*/ }
    function set_ellipsis_text(v){
      /*<<format.ml:1223:26>>*/ return pp_set_ellipsis_text
             ( /*<<format.ml:1223:47>>*/ caml_call1
                /*<<format.ml:1223:47>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1223:76>>*/ ;
     /*<<format.ml:1223:76>>*/ }
    function get_ellipsis_text(v){
     var
@@ -30351,21 +30685,21 @@
             ( /*<<format.ml:1227:31>>*/ caml_call1
                /*<<format.ml:1227:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1227:60>>*/ ;
     /*<<format.ml:1227:60>>*/ }
    function set_formatter_out_functions(v){
      /*<<format.ml:1230:2>>*/ return pp_set_formatter_out_functions
             ( /*<<format.ml:1230:33>>*/ caml_call1
                /*<<format.ml:1230:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1230:62>>*/ ;
     /*<<format.ml:1230:62>>*/ }
    function get_formatter_out_functions(v){
      /*<<format.ml:1232:2>>*/ return pp_get_formatter_out_functions
             ( /*<<format.ml:1232:33>>*/ caml_call1
                /*<<format.ml:1232:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1232:62>>*/ ;
     /*<<format.ml:1232:62>>*/ }
    function set_formatter_output_functions(v, w){
      /*<<format.ml:1235:2>>*/ return pp_set_formatter_output_functi
@@ -30373,35 +30707,35 @@
                /*<<format.ml:1235:36>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v,
-             w);
+             w) /*<<format.ml:1235:67>>*/ ;
     /*<<format.ml:1235:67>>*/ }
    function get_formatter_output_functions(v){
      /*<<format.ml:1237:2>>*/ return pp_get_formatter_output_functi
             ( /*<<format.ml:1237:36>>*/ caml_call1
                /*<<format.ml:1237:36>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1237:65>>*/ ;
     /*<<format.ml:1237:65>>*/ }
    function set_formatter_stag_functions(v){
      /*<<format.ml:1240:2>>*/ return pp_set_formatter_stag_function
             ( /*<<format.ml:1240:34>>*/ caml_call1
                /*<<format.ml:1240:34>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1240:63>>*/ ;
     /*<<format.ml:1240:63>>*/ }
    function get_formatter_stag_functions(v){
      /*<<format.ml:1242:2>>*/ return pp_get_formatter_stag_function
             ( /*<<format.ml:1242:34>>*/ caml_call1
                /*<<format.ml:1242:34>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1242:63>>*/ ;
     /*<<format.ml:1242:63>>*/ }
    function set_print_tags(v){
      /*<<format.ml:1244:2>>*/ return pp_set_print_tags
             ( /*<<format.ml:1244:20>>*/ caml_call1
                /*<<format.ml:1244:20>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1244:49>>*/ ;
     /*<<format.ml:1244:49>>*/ }
    function get_print_tags(v){
     var
@@ -30415,7 +30749,7 @@
             ( /*<<format.ml:1248:19>>*/ caml_call1
                /*<<format.ml:1248:19>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1248:48>>*/ ;
     /*<<format.ml:1248:48>>*/ }
    function get_mark_tags(v){
     var
@@ -30429,7 +30763,7 @@
             ( /*<<format.ml:1252:14>>*/ caml_call1
                /*<<format.ml:1252:14>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
-             v);
+             v) /*<<format.ml:1252:43>>*/ ;
     /*<<format.ml:1252:43>>*/ }
    function pp_print_iter(opt, iter, pp_v, ppf, v){
     var
@@ -30442,25 +30776,25 @@
        /*<<format.ml:1260:45>>*/  /*<<format.ml:1260:45>>*/ caml_call2
         /*<<format.ml:1260:45>>*/ (pp_sep, ppf, 0);
       /*<<format.ml:1260:45>>*/ return  /*<<format.ml:1260:45>>*/ caml_call2
-              /*<<format.ml:1260:45>>*/ (pp_v, ppf, v);
+              /*<<format.ml:1260:45>>*/ (pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
      /*<<format.ml:1261:14>>*/ }
      /*<<format.ml:1263:2>>*/ return  /*<<format.ml:1263:2>>*/ caml_call2
-             /*<<format.ml:1263:2>>*/ (iter, pp_v$0, v);
+             /*<<format.ml:1263:2>>*/ (iter, pp_v$0, v) /*<<format.ml:1263:2>>*/ ;
    }
    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
-            ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v);
+            ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v) /*<<format.ml:1267:2>>*/ ;
    }
    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
-            ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v);
+            ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v) /*<<format.ml:1271:2>>*/ ;
    }
    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
-            ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq);
+            ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq) /*<<format.ml:1275:2>>*/ ;
    }
    function pp_print_text(ppf, s){
     var
@@ -30482,7 +30816,7 @@
     for(;;){
      if(right[1] === len){
       var _O_ = left[1] !== len ? 1 : 0;
-      return _O_ ? flush(0) : _O_;
+      return _O_ ? flush(0) : _O_ /*<<format.ml:1297:31>>*/ ;
      }
      var
       match =
@@ -30507,34 +30841,34 @@
         ? opt[1]
         : function
          (_N_, param){
-           /*<<format.ml:1299:41>>*/ return 0;
+           /*<<format.ml:1299:41>>*/ return 0 /*<<format.ml:1299:41>>*/ ;
           /*<<format.ml:1299:43>>*/ };
     if(! param)
       /*<<format.ml:1300:10>>*/ return  /*<<format.ml:1300:10>>*/ caml_call2
-              /*<<format.ml:1300:10>>*/ (none, ppf, 0);
+              /*<<format.ml:1300:10>>*/ (none, ppf, 0) /*<<format.ml:1300:10>>*/ ;
     var v = param[1];
      /*<<format.ml:1301:12>>*/ return  /*<<format.ml:1301:12>>*/ caml_call2
-             /*<<format.ml:1301:12>>*/ (pp_v, ppf, v);
+             /*<<format.ml:1301:12>>*/ (pp_v, ppf, v) /*<<format.ml:1301:12>>*/ ;
    }
    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:1304:10>>*/ (ok, ppf, v);
+              /*<<format.ml:1304:10>>*/ (ok, ppf, v) /*<<format.ml:1304:10>>*/ ;
     }
     var e = param[1];
      /*<<format.ml:1305:13>>*/ return  /*<<format.ml:1305:13>>*/ caml_call2
-             /*<<format.ml:1305:13>>*/ (error, ppf, e);
+             /*<<format.ml:1305:13>>*/ (error, ppf, e) /*<<format.ml:1305:13>>*/ ;
    }
    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:1308:19>>*/ (left, ppf, l);
+              /*<<format.ml:1308:19>>*/ (left, ppf, l) /*<<format.ml:1308:19>>*/ ;
     }
     var r = param[1];
      /*<<format.ml:1309:20>>*/ return  /*<<format.ml:1309:20>>*/ caml_call2
-             /*<<format.ml:1309:20>>*/ (right, ppf, r);
+             /*<<format.ml:1309:20>>*/ (right, ppf, r) /*<<format.ml:1309:20>>*/ ;
    }
    function compute_tag(output, tag_acc){
     var
@@ -30556,40 +30890,41 @@
                1,
                len - 2 | 0)
             :  /*<<format.ml:1319:18>>*/ caml_call1
-               /*<<format.ml:1319:18>>*/ (Stdlib_Buffer[2], buf);
+               /*<<format.ml:1319:18>>*/ (Stdlib_Buffer[2], buf) /*<<format.ml:1320:33>>*/ ;
     /*<<format.ml:1320:33>>*/ }
    function output_formatting_lit(ppf, fmting_lit){
      /*<<format.ml:1333:43>>*/ if(typeof fmting_lit === "number")
      switch(fmting_lit){
        case 0:
-         /*<<format.ml:1334:33>>*/ return pp_close_box(ppf, 0);
+         /*<<format.ml:1334:33>>*/ return pp_close_box(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 1:
-         /*<<format.ml:1335:33>>*/ return pp_close_stag(ppf, 0);
+         /*<<format.ml:1335:33>>*/ return pp_close_stag(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 2:
-         /*<<format.ml:1337:33>>*/ return pp_print_flush(ppf, 0);
+         /*<<format.ml:1337:33>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 3:
-         /*<<format.ml:1338:33>>*/ return pp_force_newline(ppf, 0);
+         /*<<format.ml:1338:33>>*/ return pp_force_newline(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 4:
-         /*<<format.ml:1339:33>>*/ return pp_print_newline(ppf, 0);
+         /*<<format.ml:1339:33>>*/ return pp_print_newline(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        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:1341:33>>*/ return pp_print_char(ppf, 64) /*<<format.ml:1343:75>>*/ ;
+       default:
+         /*<<format.ml:1342:33>>*/ return pp_print_char(ppf, 37) /*<<format.ml:1343:75>>*/ ;
      }
     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:1336:33>>*/ return pp_print_break(ppf, width, offset) /*<<format.ml:1343:75>>*/ ;
       case 1:
-        /*<<format.ml:1340:33>>*/ return 0;
+        /*<<format.ml:1340:33>>*/ return 0 /*<<format.ml:1340:33>>*/ ;
       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:1343:33>>*/ return pp_print_char(ppf, c) /*<<format.ml:1343:75>>*/ ;
     }
     /*<<format.ml:1343:75>>*/ }
    function output_acc(ppf, acc){
      /*<<format.ml:1349:29>>*/ if(typeof acc === "number")
-      /*<<format.ml:1375:32>>*/ return 0;
+      /*<<format.ml:1375:32>>*/ return 0 /*<<format.ml:1375:32>>*/ ;
     a:
     {
      b:
@@ -30600,14 +30935,14 @@
          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:1359:4>>*/ return output_formatting_lit(ppf, f) /*<<format.ml:1375:34>>*/ ;
          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
-                   (ppf, [0, String_tag, compute_tag(output_acc, acc$0)]);
+                   (ppf, [0, String_tag, compute_tag(output_acc, acc$0)]) /*<<format.ml:1375:34>>*/ ;
           }
           var acc$1 = match[1];
            /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
@@ -30618,7 +30953,7 @@
                /*<<format.ml:1366:24>>*/ (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:1367:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1375:34>>*/ ;
          case 2:
           var _F_ = acc[1];
           if(typeof _F_ !== "number" && 0 === _F_[0]){
@@ -30667,36 +31002,36 @@
           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:1372:32>>*/ (f$0, ppf);
+                   /*<<format.ml:1372:32>>*/ (f$0, ppf) /*<<format.ml:1375:34>>*/ ;
          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:1373:32>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1375:34>>*/ ;
          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:1374:32>>*/ (Stdlib[1], msg);
+                   /*<<format.ml:1374:32>>*/ (Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
        }
         /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
         /*<<format.ml:1357:44>>*/ return pp_print_as_size
                (ppf,
                 size$0,
                  /*<<format.ml:1357:44>>*/ caml_call2
-                  /*<<format.ml:1357:44>>*/ (Stdlib_String[1], 1, c$0));
+                  /*<<format.ml:1357:44>>*/ (Stdlib_String[1], 1, c$0)) /*<<format.ml:1375:34>>*/ ;
       }
        /*<<format.ml:1371:32>>*/ output_acc(ppf, p$3);
-       /*<<format.ml:1371:32>>*/ return pp_print_char(ppf, c);
+       /*<<format.ml:1371:32>>*/ return pp_print_char(ppf, c) /*<<format.ml:1375:34>>*/ ;
      }
       /*<<format.ml:1352:4>>*/ output_acc(ppf, p$2);
-      /*<<format.ml:1352:4>>*/ return pp_print_as_size(ppf, size, s$0);
+      /*<<format.ml:1352:4>>*/ return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
     }
      /*<<format.ml:1369:32>>*/ output_acc(ppf, p$1);
-     /*<<format.ml:1369:32>>*/ return pp_print_string(ppf, s);
+     /*<<format.ml:1369:32>>*/ return pp_print_string(ppf, s) /*<<format.ml:1375:34>>*/ ;
     /*<<format.ml:1375:34>>*/ }
    function strput_acc(ppf, acc){
      /*<<format.ml:1381:29>>*/ if(typeof acc === "number")
-      /*<<format.ml:1410:32>>*/ return 0;
+      /*<<format.ml:1410:32>>*/ return 0 /*<<format.ml:1410:32>>*/ ;
     a:
     {
      b:
@@ -30707,14 +31042,14 @@
          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:1394:4>>*/ return output_formatting_lit(ppf, f) /*<<format.ml:1410:34>>*/ ;
          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
-                   (ppf, [0, String_tag, compute_tag(strput_acc, acc$0)]);
+                   (ppf, [0, String_tag, compute_tag(strput_acc, acc$0)]) /*<<format.ml:1410:34>>*/ ;
           }
           var acc$1 = match[1];
            /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
@@ -30725,7 +31060,7 @@
                /*<<format.ml:1401:24>>*/ (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:1402:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1410:34>>*/ ;
          case 2:
           var _w_ = acc[1];
           if(typeof _w_ !== "number" && 0 === _w_[0]){
@@ -30781,7 +31116,7 @@
                     (ppf,
                      size$1,
                       /*<<format.ml:1392:44>>*/ caml_call1
-                       /*<<format.ml:1392:44>>*/ (f$1, 0));
+                       /*<<format.ml:1392:44>>*/ (f$1, 0)) /*<<format.ml:1410:34>>*/ ;
            }
           }
           var f$0 = acc[2];
@@ -30789,32 +31124,32 @@
            /*<<format.ml:1407:70>>*/ return pp_print_string
                   (ppf,
                     /*<<format.ml:1407:70>>*/ caml_call1
-                     /*<<format.ml:1407:70>>*/ (f$0, 0));
+                     /*<<format.ml:1407:70>>*/ (f$0, 0)) /*<<format.ml:1410:34>>*/ ;
          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:1408:32>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1410:34>>*/ ;
          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:1409:32>>*/ (Stdlib[1], msg);
+                   /*<<format.ml:1409:32>>*/ (Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
        }
         /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
         /*<<format.ml:1389:44>>*/ return pp_print_as_size
                (ppf,
                 size$0,
                  /*<<format.ml:1389:44>>*/ caml_call2
-                  /*<<format.ml:1389:44>>*/ (Stdlib_String[1], 1, c$0));
+                  /*<<format.ml:1389:44>>*/ (Stdlib_String[1], 1, c$0)) /*<<format.ml:1410:34>>*/ ;
       }
        /*<<format.ml:1406:32>>*/ strput_acc(ppf, p$3);
-       /*<<format.ml:1406:32>>*/ return pp_print_char(ppf, c);
+       /*<<format.ml:1406:32>>*/ return pp_print_char(ppf, c) /*<<format.ml:1410:34>>*/ ;
      }
       /*<<format.ml:1384:4>>*/ strput_acc(ppf, p$2);
-      /*<<format.ml:1384:4>>*/ return pp_print_as_size(ppf, size, s$0);
+      /*<<format.ml:1384:4>>*/ return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
     }
      /*<<format.ml:1404:32>>*/ strput_acc(ppf, p$1);
-     /*<<format.ml:1404:32>>*/ return pp_print_string(ppf, s);
+     /*<<format.ml:1404:32>>*/ return pp_print_string(ppf, s) /*<<format.ml:1410:34>>*/ ;
     /*<<format.ml:1410:34>>*/ }
    function kfprintf(k, ppf, param){
     var fmt = param[1];
@@ -30822,15 +31157,15 @@
              /*<<format.ml:1419:2>>*/ (CamlinternalFormat[7],
              function(acc){
                /*<<format.ml:1420:16>>*/ output_acc(ppf, acc);
-              return caml_call1(k, ppf);
+              return caml_call1(k, ppf) /*<<format.ml:1420:41>>*/ ;
               /*<<format.ml:1420:41>>*/ },
              0,
-             fmt);
+             fmt) /*<<format.ml:1419:2>>*/ ;
    }
    function ikfprintf(k, ppf, param){
     var fmt = param[1];
      /*<<format.ml:1424:2>>*/ return  /*<<format.ml:1424:2>>*/ caml_call3
-             /*<<format.ml:1424:2>>*/ (CamlinternalFormat[8], k, ppf, fmt);
+             /*<<format.ml:1424:2>>*/ (CamlinternalFormat[8], k, ppf, fmt) /*<<format.ml:1424:2>>*/ ;
    }
    function ifprintf(ppf, param){
     var fmt = param[1];
@@ -30838,12 +31173,12 @@
              /*<<format.ml:1427:2>>*/ (CamlinternalFormat[8],
              function(_u_){ /*<<?>>*/ return 0;},
              0,
-             fmt);
+             fmt) /*<<format.ml:1427:2>>*/ ;
    }
    function fprintf(ppf){
     function _r_(_t_){ /*<<?>>*/ return 0;}
      /*<<format.ml:1429:18>>*/ return function(_s_){
-      /*<<?>>*/ return kfprintf(_r_, ppf, _s_);};
+      /*<<?>>*/ return kfprintf(_r_, ppf, _s_);} /*<<format.ml:1429:18>>*/ ;
     /*<<format.ml:1429:37>>*/ }
    function printf(param){
     var fmt = param[1];
@@ -30854,10 +31189,10 @@
                       ( /*<<format.ml:1433:27>>*/ caml_call1
                          /*<<format.ml:1433:27>>*/ (Stdlib_Domain[10][2],
                          std_formatter_key),
-                       acc);
+                       acc) /*<<format.ml:1433:58>>*/ ;
               /*<<format.ml:1433:58>>*/ },
              0,
-             fmt);
+             fmt) /*<<format.ml:1432:2>>*/ ;
    }
    function eprintf(param){
     var fmt = param[1];
@@ -30868,10 +31203,10 @@
                       ( /*<<format.ml:1438:27>>*/ caml_call1
                          /*<<format.ml:1438:27>>*/ (Stdlib_Domain[10][2],
                          err_formatter_key),
-                       acc);
+                       acc) /*<<format.ml:1438:58>>*/ ;
               /*<<format.ml:1438:58>>*/ },
              0,
-             fmt);
+             fmt) /*<<format.ml:1437:2>>*/ ;
    }
    function kdprintf(k, param){
     var fmt = param[1];
@@ -30881,18 +31216,18 @@
                /*<<format.ml:1443:16>>*/ return  /*<<format.ml:1443:18>>*/ caml_call1
                        /*<<format.ml:1443:18>>*/ (k,
                        function(ppf){
-                         /*<<format.ml:1443:30>>*/ return output_acc(ppf, acc);
-                        /*<<format.ml:1443:48>>*/ });
+                         /*<<format.ml:1443:30>>*/ return output_acc(ppf, acc) /*<<format.ml:1443:48>>*/ ;
+                        /*<<format.ml:1443:48>>*/ }) /*<<format.ml:1443:49>>*/ ;
               /*<<format.ml:1443:49>>*/ },
              0,
-             fmt);
+             fmt) /*<<format.ml:1442:2>>*/ ;
    }
    function dprintf(fmt){
      /*<<format.ml:1446:18>>*/ return kdprintf
             (function(i){
-               /*<<format.ml:1446:37>>*/ return i;
+               /*<<format.ml:1446:37>>*/ return i /*<<format.ml:1446:37>>*/ ;
               /*<<format.ml:1446:38>>*/ },
-             fmt);
+             fmt) /*<<format.ml:1446:43>>*/ ;
     /*<<format.ml:1446:43>>*/ }
    function ksprintf(k, param){
     var
@@ -30902,13 +31237,13 @@
     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:1453:6>>*/ (k, flush_buffer_formatter(b, ppf));
+              /*<<format.ml:1453:6>>*/ (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
      /*<<format.ml:1453:36>>*/ }
      /*<<format.ml:1454:2>>*/ return  /*<<format.ml:1454:2>>*/ caml_call3
-             /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt);
+             /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:2>>*/ ;
    }
    function sprintf(fmt){
-     /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt);
+     /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt) /*<<format.ml:1457:33>>*/ ;
     /*<<format.ml:1457:33>>*/ }
    function kasprintf(k, param){
     var
@@ -30918,13 +31253,13 @@
     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:1464:6>>*/ (k, flush_buffer_formatter(b, ppf));
+              /*<<format.ml:1464:6>>*/ (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
      /*<<format.ml:1464:36>>*/ }
      /*<<format.ml:1465:2>>*/ return  /*<<format.ml:1465:2>>*/ caml_call3
-             /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt);
+             /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:2>>*/ ;
    }
    function asprintf(fmt){
-     /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt);
+     /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt) /*<<format.ml:1468:35>>*/ ;
     /*<<format.ml:1468:35>>*/ }
    function flush_standard_formatters(param){
      /*<<format.ml:1473:2>>*/ pp_print_flush
@@ -30935,7 +31270,7 @@
             ( /*<<format.ml:1474:17>>*/ caml_call1
                /*<<format.ml:1474:17>>*/ (Stdlib_Domain[10][2],
                err_formatter_key),
-             0);
+             0) /*<<format.ml:1474:47>>*/ ;
     /*<<format.ml:1474:47>>*/ }
     /*<<format.ml:1476:9>>*/  /*<<format.ml:1476:9>>*/ caml_call1
      /*<<format.ml:1476:9>>*/ (Stdlib[100], flush_standard_formatters);
@@ -30977,7 +31312,7 @@
                 },
                 fs$0[3],
                 fs$0[4],
-                fs$0[5]]);
+                fs$0[5]]) /*<<format.ml:1488:71>>*/ ;
       /*<<format.ml:1488:71>>*/ });
    var
     Stdlib_Format =
@@ -31218,7 +31553,7 @@
      ib[3] = 1;
      ib[4] = ib[4] + 1 | 0;
      if(10 === c) ib[5] = ib[5] + 1 | 0;
-      /*<<scanf.ml:171:6>>*/ return c;
+      /*<<scanf.ml:171:6>>*/ return c /*<<scanf.ml:171:6>>*/ ;
     }
     catch(_aY_){
      var _aX_ = caml_wrap_exception(_aY_);
@@ -31226,18 +31561,18 @@
      ib[2] = null_char;
      ib[3] = 0;
      ib[1] = 1;
-      /*<<scanf.ml:177:6>>*/ return null_char;
+      /*<<scanf.ml:177:6>>*/ return null_char /*<<scanf.ml:177:6>>*/ ;
     }
     /*<<scanf.ml:177:7>>*/ }
    function peek_char(ib){
-     /*<<scanf.ml:181:4>>*/ return ib[3] ? ib[2] : next_char(ib);
+     /*<<scanf.ml:181:4>>*/ return ib[3] ? ib[2] : next_char(ib) /*<<scanf.ml:183:21>>*/ ;
     /*<<scanf.ml:183:21>>*/ }
    function checked_peek_char(ib){
     var c =  /*<<scanf.ml:192:12>>*/ peek_char(ib);
     if(ib[1])
       /*<<scanf.ml:193:22>>*/ throw  /*<<scanf.ml:193:22>>*/ caml_maybe_attach_backtrace
              /*<<scanf.ml:193:22>>*/ (Stdlib[12], 1);
-     /*<<scanf.ml:194:4>>*/ return c;
+     /*<<scanf.ml:194:4>>*/ return c /*<<scanf.ml:194:4>>*/ ;
     /*<<scanf.ml:194:5>>*/ }
    function end_of_input(ib){
      /*<<scanf.ml:198:4>>*/ peek_char(ib);
@@ -31249,14 +31584,14 @@
    function name_of_input(ib){
     var match = ib[9];
     if(typeof match === "number")
-     return 0 === match ? cst_unnamed_function : cst_unnamed_character_string;
+     return 0 === match ? cst_unnamed_function : cst_unnamed_character_string /*<<scanf.ml:211:47>>*/ ;
     if(0 === match[0])
-      /*<<scanf.ml:208:26>>*/ return cst_unnamed_Stdlib_input_chann;
+      /*<<scanf.ml:208:26>>*/ return cst_unnamed_Stdlib_input_chann /*<<scanf.ml:208:26>>*/ ;
     var fname = match[1];
-     /*<<scanf.ml:209:32>>*/ return fname;
+     /*<<scanf.ml:209:32>>*/ return fname /*<<scanf.ml:209:32>>*/ ;
     /*<<scanf.ml:211:47>>*/ }
    function char_count(ib){
-     /*<<scanf.ml:215:4>>*/ return ib[3] ? ib[4] - 1 | 0 : ib[4];
+     /*<<scanf.ml:215:4>>*/ return ib[3] ? ib[4] - 1 | 0 : ib[4] /*<<scanf.ml:217:25>>*/ ;
     /*<<scanf.ml:217:25>>*/ }
    function invalidate_current_char(ib){
      /*<<scanf.ml:224:35>>*/ ib[3] = 0;
@@ -31271,17 +31606,17 @@
      /*<<scanf.ml:229:4>>*/  /*<<scanf.ml:229:4>>*/ caml_call1
       /*<<scanf.ml:229:4>>*/ (Stdlib_Buffer[8], token_buffer);
     ib[6] = ib[6] + 1 | 0;
-     /*<<scanf.ml:231:4>>*/ return tok;
+     /*<<scanf.ml:231:4>>*/ return tok /*<<scanf.ml:231:4>>*/ ;
     /*<<scanf.ml:231:7>>*/ }
    function ignore_char(width, ib){
     var width$0 = width - 1 | 0;
      /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
-     /*<<scanf.ml:237:4>>*/ return width$0;
+     /*<<scanf.ml:237:4>>*/ return width$0 /*<<scanf.ml:237:4>>*/ ;
     /*<<scanf.ml:241:53>>*/ }
    function store_char(width, ib, c){
      /*<<scanf.ml:244:4>>*/  /*<<scanf.ml:244:4>>*/ caml_call2
       /*<<scanf.ml:244:4>>*/ (Stdlib_Buffer[12], ib[8], c);
-     /*<<scanf.ml:244:4>>*/ return ignore_char(width, ib);
+     /*<<scanf.ml:244:4>>*/ return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
     /*<<scanf.ml:245:24>>*/ }
    var default_token_buffer_size = 1024;
    function create(iname, next){
@@ -31296,7 +31631,7 @@
              /*<<scanf.ml:258:22>>*/ caml_call1
               /*<<scanf.ml:258:22>>*/ (Stdlib_Buffer[1],
               default_token_buffer_size),
-            iname];
+            iname] /*<<scanf.ml:250:26>>*/ ;
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
     var
@@ -31313,9 +31648,9 @@
          /*<<scanf.ml:268:14>>*/  /*<<scanf.ml:268:14>>*/ caml_string_get
           /*<<scanf.ml:268:14>>*/ (s, i[1]);
       /*<<scanf.ml:269:6>>*/ i[1]++;
-      /*<<scanf.ml:270:6>>*/ return c;
+      /*<<scanf.ml:270:6>>*/ return c /*<<scanf.ml:270:6>>*/ ;
      /*<<scanf.ml:270:7>>*/ }
-     /*<<scanf.ml:271:4>>*/ return create(1, next);
+     /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
     /*<<scanf.ml:271:27>>*/ }
    var _a_ = 0;
    function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
@@ -31345,7 +31680,7 @@
           /*<<scanf.ml:333:38>>*/  /*<<scanf.ml:333:38>>*/ caml_bytes_get
            /*<<scanf.ml:333:38>>*/ (buf, i[1]);
        /*<<scanf.ml:333:58>>*/ i[1]++;
-       /*<<scanf.ml:333:66>>*/ return c;
+       /*<<scanf.ml:333:66>>*/ return c /*<<scanf.ml:333:66>>*/ ;
      }
      if(eof[1])
        /*<<scanf.ml:334:19>>*/ throw  /*<<scanf.ml:334:19>>*/ caml_maybe_attach_backtrace
@@ -31359,9 +31694,9 @@
                 [1]
                = 1,
                 /*<<scanf.ml:338:10>>*/ caml_bytes_get
-                 /*<<scanf.ml:338:10>>*/ (buf, 0));
+                 /*<<scanf.ml:338:10>>*/ (buf, 0)) /*<<scanf.ml:340:9>>*/ ;
      /*<<scanf.ml:340:9>>*/ }
-     /*<<scanf.ml:341:4>>*/ return create(iname, next);
+     /*<<scanf.ml:341:4>>*/ return create(iname, next) /*<<scanf.ml:341:21>>*/ ;
     /*<<scanf.ml:341:21>>*/ }
    var
     stdin =
@@ -31369,31 +31704,32 @@
        (scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
    function open_in_file(open_in, fname){
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
-      /*<<scanf.ml:363:4>>*/ return stdin;
+      /*<<scanf.ml:363:4>>*/ return stdin /*<<scanf.ml:363:4>>*/ ;
     var
      ic =
         /*<<scanf.ml:370:15>>*/  /*<<scanf.ml:370:15>>*/ caml_call1
          /*<<scanf.ml:370:15>>*/ (open_in, fname);
-    return from_ic(scan_close_at_end, [1, fname, ic], ic);
+    return from_ic(scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
     /*<<scanf.ml:371:53>>*/ }
    var _b_ = Stdlib[79];
    function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
    var _c_ =  /*<<scanf.ml:374:16>>*/ Stdlib[80];
    function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
    function from_channel(ic){
-     /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic);
+     /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic) /*<<scanf.ml:381:45>>*/ ;
     /*<<scanf.ml:381:45>>*/ }
    function close_in(ib){
     var match = ib[9];
-    if(typeof match === "number")  /*<<scanf.ml:389:37>>*/ return 0;
+    if(typeof match === "number")
+      /*<<scanf.ml:389:37>>*/ return 0 /*<<scanf.ml:389:37>>*/ ;
     if(0 === match[0]){
      var ic = match[1];
       /*<<scanf.ml:387:6>>*/ return  /*<<scanf.ml:387:6>>*/ caml_call1
-              /*<<scanf.ml:387:6>>*/ (Stdlib[93], ic);
+              /*<<scanf.ml:387:6>>*/ (Stdlib[93], ic) /*<<scanf.ml:389:39>>*/ ;
     }
     var ic$0 = match[2];
      /*<<scanf.ml:388:32>>*/ return  /*<<scanf.ml:388:32>>*/ caml_call1
-             /*<<scanf.ml:388:32>>*/ (Stdlib[93], ic$0);
+             /*<<scanf.ml:388:32>>*/ (Stdlib[93], ic$0) /*<<scanf.ml:389:39>>*/ ;
     /*<<scanf.ml:389:39>>*/ }
    var
     Scan_failure =
@@ -31491,20 +31827,20 @@
    function bad_input_escape(c){
      /*<<scanf.ml:408:2>>*/ return bad_input
             ( /*<<scanf.ml:408:12>>*/ caml_call2
-               /*<<scanf.ml:408:12>>*/ (Stdlib_Printf[4], _d_, c));
+               /*<<scanf.ml:408:12>>*/ (Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
     /*<<scanf.ml:408:60>>*/ }
    function bad_token_length(message){
      /*<<scanf.ml:412:2>>*/ return bad_input
             ( /*<<scanf.ml:413:4>>*/ caml_call2
-               /*<<scanf.ml:413:4>>*/ (Stdlib_Printf[4], _e_, message));
+               /*<<scanf.ml:413:4>>*/ (Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
     /*<<scanf.ml:416:15>>*/ }
    function bad_hex_float(param){
-     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad);
+     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
     /*<<scanf.ml:432:55>>*/ }
    function character_mismatch(c, ci){
      /*<<scanf.ml:440:2>>*/ return bad_input
             ( /*<<scanf.ml:436:2>>*/ caml_call3
-               /*<<scanf.ml:436:2>>*/ (Stdlib_Printf[4], _g_, c, ci));
+               /*<<scanf.ml:436:2>>*/ (Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
     /*<<scanf.ml:440:41>>*/ }
    function check_char(ib, c$0){
      /*<<scanf.ml:468:2>>*/ if(10 === c$0){
@@ -31514,14 +31850,15 @@
              : 13
                === ci
                ? (invalidate_current_char(ib), check_this_char(ib, 10))
-               : character_mismatch(10, ci);
+               : character_mismatch(10, ci) /*<<scanf.ml:471:29>>*/ ;
     }
-    if(32 !== c$0)  /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0);
+    if(32 !== c$0)
+      /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0) /*<<scanf.ml:471:29>>*/ ;
      /*<<scanf.ml:444:2>>*/ for(;;){
      var
       c =  /*<<scanf.ml:444:10>>*/ peek_char(ib),
       _aS_ =  /*<<scanf.ml:445:9>>*/ 1 - ib[1];
-     if(! _aS_)  /*<<scanf.ml:445:9>>*/ return _aS_;
+     if(! _aS_)  /*<<scanf.ml:445:9>>*/ return _aS_ /*<<scanf.ml:445:9>>*/ ;
      var _aT_ =  /*<<scanf.ml:445:32>>*/ c - 9 | 0;
      a:
      {
@@ -31529,18 +31866,18 @@
        if(23 === _aT_) break a;
       }
       else if(1 < _aT_ - 2 >>> 0) break a;
-       /*<<scanf.ml:449:11>>*/ return 0;
+       /*<<scanf.ml:449:11>>*/ return 0 /*<<scanf.ml:449:11>>*/ ;
      }
       /*<<scanf.ml:448:6>>*/ invalidate_current_char(ib);
     }
     /*<<scanf.ml:471:29>>*/ }
    function check_this_char(ib, c){
     var ci =  /*<<scanf.ml:474:11>>*/ checked_peek_char(ib);
-    return ci === c ? invalidate_current_char(ib) : character_mismatch(c, ci);
+    return ci === c ? invalidate_current_char(ib) : character_mismatch(c, ci) /*<<scanf.ml:476:25>>*/ ;
     /*<<scanf.ml:476:25>>*/ }
    function token_char(ib){
      /*<<scanf.ml:488:20>>*/ return  /*<<scanf.ml:488:20>>*/ caml_string_get
-             /*<<scanf.ml:488:20>>*/ (token_string(ib), 0);
+             /*<<scanf.ml:488:20>>*/ (token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
     /*<<scanf.ml:488:43>>*/ }
    function token_bool(ib){
     var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
@@ -31551,25 +31888,25 @@
                 ( /*<<scanf.ml:496:19>>*/ caml_call2
                    /*<<scanf.ml:496:19>>*/ (Stdlib_Printf[4], _h_, s))
               : 1
-            : 0;
+            : 0 /*<<scanf.ml:496:60>>*/ ;
     /*<<scanf.ml:496:60>>*/ }
    function integer_conversion_of_char(param){
     var switcher =  /*<<scanf.ml:509:33>>*/ param - 88 | 0;
     if(32 >= switcher >>> 0)
      switch(switcher){
        case 10:
-         /*<<scanf.ml:510:11>>*/ return 0;
+         /*<<scanf.ml:510:11>>*/ return 0 /*<<scanf.ml:510:11>>*/ ;
        case 12:
-         /*<<scanf.ml:511:11>>*/ return 1;
+         /*<<scanf.ml:511:11>>*/ return 1 /*<<scanf.ml:511:11>>*/ ;
        case 17:
-         /*<<scanf.ml:512:11>>*/ return 2;
+         /*<<scanf.ml:512:11>>*/ return 2 /*<<scanf.ml:512:11>>*/ ;
        case 23:
-         /*<<scanf.ml:513:11>>*/ return 3;
+         /*<<scanf.ml:513:11>>*/ return 3 /*<<scanf.ml:513:11>>*/ ;
        case 29:
-         /*<<scanf.ml:514:11>>*/ return 4;
+         /*<<scanf.ml:514:11>>*/ return 4 /*<<scanf.ml:514:11>>*/ ;
        case 0:
        case 32:
-         /*<<scanf.ml:515:17>>*/ return 5;
+         /*<<scanf.ml:515:17>>*/ return 5 /*<<scanf.ml:515:17>>*/ ;
      }
      /*<<scanf.ml:516:9>>*/ throw  /*<<scanf.ml:516:9>>*/ caml_maybe_attach_backtrace
             /*<<scanf.ml:516:9>>*/ ([0, Assert_failure, _i_], 1);
@@ -31618,20 +31955,21 @@
          /*<<scanf.ml:531:14>>*/ caml_string_get
           /*<<scanf.ml:531:14>>*/ (tok, 0))
       /*<<scanf.ml:531:43>>*/ return  /*<<scanf.ml:531:43>>*/ caml_call3
-              /*<<scanf.ml:531:43>>*/ (Stdlib_String[16], tok, 1, l - 1 | 0);
-     /*<<scanf.ml:531:34>>*/ return tok;
+              /*<<scanf.ml:531:43>>*/ (Stdlib_String[16], tok, 1, l - 1 | 0) /*<<scanf.ml:531:67>>*/ ;
+     /*<<scanf.ml:531:34>>*/ return tok /*<<scanf.ml:531:34>>*/ ;
     /*<<scanf.ml:531:67>>*/ }
    function token_float(ib){
      /*<<scanf.ml:539:21>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
-             /*<<scanf.ml:539:21>>*/ (token_string(ib));
+             /*<<scanf.ml:539:21>>*/ (token_string(ib)) /*<<scanf.ml:539:56>>*/ ;
     /*<<scanf.ml:539:56>>*/ }
    function scan_decimal_digit_star(width, ib){
     var width$0 = width;
      /*<<scanf.ml:575:2>>*/ for(;;){
-     if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
+     if(0 === width$0)
+       /*<<scanf.ml:575:20>>*/ return width$0 /*<<scanf.ml:575:20>>*/ ;
      var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
       /*<<scanf.ml:577:5>>*/ if(ib[1])
-       /*<<scanf.ml:577:26>>*/ return width$0;
+       /*<<scanf.ml:577:26>>*/ return width$0 /*<<scanf.ml:577:26>>*/ ;
      if(58 <= c){
       if(95 === c){
        var width$1 =  /*<<scanf.ml:583:16>>*/ ignore_char(width$0, ib);
@@ -31644,54 +31982,57 @@
       width$0 = width$2;
       continue;
      }
-      /*<<scanf.ml:585:9>>*/ return width$0;
+      /*<<scanf.ml:585:9>>*/ return width$0 /*<<scanf.ml:585:9>>*/ ;
     }
     /*<<scanf.ml:585:14>>*/ }
    function scan_decimal_digit_plus(width, ib){
      /*<<scanf.ml:589:2>>*/ if(0 === width)
-      /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits);
+      /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
     var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
     if(9 < c - 48 >>> 0)
       /*<<scanf.ml:596:14>>*/ return bad_input
              ( /*<<scanf.ml:596:14>>*/ caml_call2
-                /*<<scanf.ml:596:14>>*/ (Stdlib_Printf[4], _j_, c));
+                /*<<scanf.ml:596:14>>*/ (Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
     var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
-     /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib);
+     /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib) /*<<scanf.ml:596:70>>*/ ;
     /*<<scanf.ml:596:70>>*/ }
    function scan_digit_plus(basis, digitp, width$2, ib){
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
-      /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits);
+      /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits) /*<<scanf.ml:626:77>>*/ ;
     var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
      /*<<scanf.ml:622:5>>*/ if
      (!
        /*<<scanf.ml:622:5>>*/ caml_call1 /*<<scanf.ml:622:5>>*/ (digitp, c$0))
       /*<<scanf.ml:626:14>>*/ return bad_input
              ( /*<<scanf.ml:626:14>>*/ caml_call3
-                /*<<scanf.ml:626:14>>*/ (Stdlib_Printf[4], _k_, c$0, basis));
+                /*<<scanf.ml:626:14>>*/ (Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
     var
      width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
-     if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
+     if(0 === width)
+       /*<<scanf.ml:603:22>>*/ return width /*<<scanf.ml:603:22>>*/ ;
      var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
-      /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
+      /*<<scanf.ml:605:7>>*/ if(ib[1])
+       /*<<scanf.ml:605:28>>*/ return width /*<<scanf.ml:605:28>>*/ ;
       /*<<scanf.ml:607:13>>*/ if
       ( /*<<scanf.ml:607:13>>*/ caml_call1 /*<<scanf.ml:607:13>>*/ (digitp, c)){
       var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
       width = width$0;
      }
      else{
-      if(95 !== c)  /*<<scanf.ml:613:11>>*/ return width;
+      if(95 !== c)
+        /*<<scanf.ml:613:11>>*/ return width /*<<scanf.ml:613:11>>*/ ;
       var width$1 =  /*<<scanf.ml:611:18>>*/ ignore_char(width, ib);
       width = width$1;
      }
     }
     /*<<scanf.ml:626:77>>*/ }
    function is_binary_digit(param){
-     /*<<scanf.ml:629:22>>*/ return 1 < param - 48 >>> 0 ? 0 : 1;
+     /*<<scanf.ml:629:22>>*/ return 1 < param - 48 >>> 0 ? 0 : 1 /*<<scanf.ml:631:14>>*/ ;
     /*<<scanf.ml:631:14>>*/ }
    function is_octal_digit(param){
-     /*<<scanf.ml:636:21>>*/ return 7 < param - 48 >>> 0 ? 0 : 1;
+     /*<<scanf.ml:636:21>>*/ return 7 < param - 48 >>> 0 ? 0 : 1 /*<<scanf.ml:638:14>>*/ ;
     /*<<scanf.ml:638:14>>*/ }
    function is_hexa_digit(param){
     var _aN_ =  /*<<scanf.ml:643:20>>*/ param - 48 | 0;
@@ -31701,9 +32042,9 @@
       if(5 < _aN_ - 49 >>> 0) break a;
      }
      else if(6 >= _aN_ - 10 >>> 0) break a;
-      /*<<scanf.ml:644:44>>*/ return 1;
+      /*<<scanf.ml:644:44>>*/ return 1 /*<<scanf.ml:644:44>>*/ ;
     }
-     /*<<scanf.ml:645:9>>*/ return 0;
+     /*<<scanf.ml:645:9>>*/ return 0 /*<<scanf.ml:645:9>>*/ ;
     /*<<scanf.ml:645:14>>*/ }
    function scan_sign(width, ib){
     var
@@ -31712,41 +32053,42 @@
     if(2 >= switcher >>> 0)
      switch(switcher){
        case 0:
-         /*<<scanf.ml:656:11>>*/ return store_char(width, ib, c);
+         /*<<scanf.ml:656:11>>*/ return store_char(width, ib, c) /*<<scanf.ml:658:14>>*/ ;
        case 1: break;
-       default:  /*<<scanf.ml:657:11>>*/ return store_char(width, ib, c);
+       default:
+         /*<<scanf.ml:657:11>>*/ return store_char(width, ib, c) /*<<scanf.ml:658:14>>*/ ;
      }
-     /*<<scanf.ml:658:9>>*/ return width;
+     /*<<scanf.ml:658:9>>*/ return width /*<<scanf.ml:658:9>>*/ ;
     /*<<scanf.ml:658:14>>*/ }
    function scan_optionally_signed_decimal(width, ib){
     var width$0 =  /*<<scanf.ml:662:14>>*/ scan_sign(width, ib);
-     /*<<scanf.ml:663:2>>*/ return scan_decimal_digit_plus(width$0, ib);
+     /*<<scanf.ml:663:2>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:663:36>>*/ ;
     /*<<scanf.ml:663:36>>*/ }
    function scan_int_conversion(conv, width$1, ib){
      /*<<scanf.ml:691:2>>*/ switch(conv){
       case 0:
-       return scan_digit_plus(cst_binary, is_binary_digit, width$1, ib);
+       return scan_digit_plus(cst_binary, is_binary_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 1:
         /*<<scanf.ml:693:20>>*/ return scan_optionally_signed_decimal
-               (width$1, ib);
+               (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 2:
        var
         width$0 =  /*<<scanf.ml:686:14>>*/ scan_sign(width$1, ib),
         c =  /*<<scanf.ml:671:8>>*/ checked_peek_char(ib);
        if(48 !== c)
-         /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib);
+         /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:697:49>>*/ ;
        var width =  /*<<scanf.ml:673:16>>*/ store_char(width$0, ib, c);
         /*<<scanf.ml:674:4>>*/ if(0 === width)
-         /*<<scanf.ml:674:22>>*/ return width;
+         /*<<scanf.ml:674:22>>*/ return width /*<<scanf.ml:674:22>>*/ ;
        var c$0 =  /*<<scanf.ml:675:12>>*/ peek_char(ib);
         /*<<scanf.ml:676:7>>*/ if(ib[1])
-         /*<<scanf.ml:676:28>>*/ return width;
+         /*<<scanf.ml:676:28>>*/ return width /*<<scanf.ml:676:28>>*/ ;
        a:
        {
         if(99 <= c$0){
          if(111 === c$0)
           return scan_digit_plus
-                  (cst_octal, is_octal_digit, store_char(width, ib, c$0), ib);
+                  (cst_octal, is_octal_digit, store_char(width, ib, c$0), ib) /*<<scanf.ml:697:49>>*/ ;
          if(120 === c$0) break a;
         }
         else{
@@ -31756,56 +32098,58 @@
                   (cst_binary,
                    is_binary_digit,
                    store_char(width, ib, c$0),
-                   ib);
+                   ib) /*<<scanf.ml:697:49>>*/ ;
         }
-         /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib);
+         /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib) /*<<scanf.ml:697:49>>*/ ;
        }
        return scan_digit_plus
                (cst_hexadecimal,
                 is_hexa_digit,
                 store_char(width, ib, c$0),
-                ib);
+                ib) /*<<scanf.ml:697:49>>*/ ;
       case 3:
-       return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib);
+       return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 4:
-        /*<<scanf.ml:696:20>>*/ return scan_decimal_digit_plus(width$1, ib);
+        /*<<scanf.ml:696:20>>*/ return scan_decimal_digit_plus(width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       default:
-       return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib);
+       return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
     }
     /*<<scanf.ml:697:49>>*/ }
    function scan_fractional_part(width, ib){
      /*<<scanf.ml:704:2>>*/ if(0 === width)
-      /*<<scanf.ml:704:20>>*/ return width;
+      /*<<scanf.ml:704:20>>*/ return width /*<<scanf.ml:704:20>>*/ ;
     var c =  /*<<scanf.ml:705:10>>*/ peek_char(ib);
      /*<<scanf.ml:706:5>>*/ return ib[1]
             ? width
             : 9
               < c - 48 >>> 0
               ? width
-              : scan_decimal_digit_star(store_char(width, ib, c), ib);
+              : scan_decimal_digit_star(store_char(width, ib, c), ib) /*<<scanf.ml:710:14>>*/ ;
     /*<<scanf.ml:710:14>>*/ }
    function scan_exponent_part(width, ib){
      /*<<scanf.ml:715:2>>*/ if(0 === width)
-      /*<<scanf.ml:715:20>>*/ return width;
+      /*<<scanf.ml:715:20>>*/ return width /*<<scanf.ml:715:20>>*/ ;
     var c =  /*<<scanf.ml:716:10>>*/ peek_char(ib);
-     /*<<scanf.ml:717:5>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
-    if(69 !== c && 101 !== c)  /*<<scanf.ml:721:9>>*/ return width;
+     /*<<scanf.ml:717:5>>*/ if(ib[1])
+      /*<<scanf.ml:717:26>>*/ return width /*<<scanf.ml:717:26>>*/ ;
+    if(69 !== c && 101 !== c)
+      /*<<scanf.ml:721:9>>*/ return width /*<<scanf.ml:721:9>>*/ ;
      /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
-            (store_char(width, ib, c), ib);
+            (store_char(width, ib, c), ib) /*<<scanf.ml:721:14>>*/ ;
     /*<<scanf.ml:721:14>>*/ }
    function scan_float(width$1, precision, ib){
     var
      width =  /*<<scanf.ml:729:14>>*/ scan_sign(width$1, ib),
      width$0 =  /*<<scanf.ml:730:2>>*/ scan_decimal_digit_star(width, ib);
      /*<<scanf.ml:766:2>>*/ if(0 === width$0)
-      /*<<scanf.ml:766:20>>*/ return [0, width$0, precision];
+      /*<<scanf.ml:766:20>>*/ return [0, width$0, precision] /*<<scanf.ml:766:20>>*/ ;
     var c =  /*<<scanf.ml:767:10>>*/ peek_char(ib);
      /*<<scanf.ml:768:5>>*/ if(ib[1])
-      /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
+      /*<<scanf.ml:768:26>>*/ return [0, width$0, precision] /*<<scanf.ml:768:26>>*/ ;
     if(46 !== c)
       /*<<scanf.ml:776:4>>*/ return [0,
              scan_exponent_part(width$0, ib),
-             precision];
+             precision] /*<<scanf.ml:776:4>>*/ ;
     var
      width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
      precision$0 =
@@ -31815,13 +32159,13 @@
        width$2 - (precision$0 - scan_fractional_part(precision$0, ib) | 0) | 0;
      /*<<scanf.ml:774:4>>*/ return [0,
             scan_exponent_part(width$3, ib),
-            precision$0];
+            precision$0] /*<<scanf.ml:774:4>>*/ ;
     /*<<scanf.ml:776:42>>*/ }
    function check_case_insensitive_string(width, ib, error, str){
     function lowercase(c){
       /*<<scanf.ml:781:4>>*/ return 25 < c - 65 >>> 0
              ? c
-             : caml_call1(Stdlib[29], (c - 65 | 0) + 97 | 0);
+             : caml_call1(Stdlib[29], (c - 65 | 0) + 97 | 0) /*<<scanf.ml:784:12>>*/ ;
      /*<<scanf.ml:784:12>>*/ }
     var
      len =
@@ -31877,7 +32221,7 @@
         /*<<scanf.ml:831:20>>*/ if(_aB_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
         /*<<scanf.ml:831:50>>*/ return check_case_insensitive_string
-               (width$1, ib, bad_hex_float, cst_an);
+               (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
       }
       if(26 !== switcher) break a;
      }
@@ -31952,7 +32296,7 @@
           /*<<scanf.ml:821:8>>*/ if(0 !== width$8 && ! end_of_input(ib)){
           var c$1 =  /*<<scanf.ml:822:16>>*/ peek_char(ib);
           if(80 !== c$1 && 112 !== c$1)
-            /*<<scanf.ml:827:17>>*/ return width$8;
+            /*<<scanf.ml:827:17>>*/ return width$8 /*<<scanf.ml:827:17>>*/ ;
           var
            width$9 =  /*<<scanf.ml:824:24>>*/ store_char(width$8, ib, c$1),
            _aH_ = 0 === width$9 ? 1 : 0,
@@ -31960,13 +32304,13 @@
            /*<<scanf.ml:825:28>>*/ if(_aI_)
             /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
            /*<<scanf.ml:825:58>>*/ return scan_optionally_signed_decimal
-                  (width$9, ib);
+                  (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
          }
-          /*<<scanf.ml:821:54>>*/ return width$8;
+          /*<<scanf.ml:821:54>>*/ return width$8 /*<<scanf.ml:821:54>>*/ ;
         }
-         /*<<scanf.ml:809:52>>*/ return width$5;
+         /*<<scanf.ml:809:52>>*/ return width$5 /*<<scanf.ml:809:52>>*/ ;
        }
-        /*<<scanf.ml:805:50>>*/ return width$4;
+        /*<<scanf.ml:805:50>>*/ return width$4 /*<<scanf.ml:805:50>>*/ ;
       }
       if(73 !== c) break a;
      }
@@ -31977,9 +32321,9 @@
       /*<<scanf.ml:835:20>>*/ if(_aD_)
        /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
       /*<<scanf.ml:835:50>>*/ return check_case_insensitive_string
-             (width$2, ib, bad_hex_float, cst_nfinity);
+             (width$2, ib, bad_hex_float, cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
     }
-     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad);
+     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
     /*<<scanf.ml:837:25>>*/ }
    function scan_caml_float_rest(width, precision, ib){
     var _as_ = 0 === width ? 1 : 0, _at_ = _as_ || end_of_input(ib);
@@ -32005,12 +32349,12 @@
           /*<<scanf.ml:853:26>>*/ scan_fractional_part(precision$0, ib),
        frac_width = precision$0 - width_precision | 0,
        width$2 = width$1 - frac_width | 0;
-       /*<<scanf.ml:859:4>>*/ return scan_exponent_part(width$2, ib);
+       /*<<scanf.ml:859:4>>*/ return scan_exponent_part(width$2, ib) /*<<scanf.ml:862:21>>*/ ;
      }
     }
     else if(30 < switcher - 1 >>> 0)
-      /*<<scanf.ml:861:4>>*/ return scan_exponent_part(width$0, ib);
-     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo);
+      /*<<scanf.ml:861:4>>*/ return scan_exponent_part(width$0, ib) /*<<scanf.ml:862:21>>*/ ;
+     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:862:21>>*/ ;
     /*<<scanf.ml:862:21>>*/ }
    function scan_caml_float(width, precision, ib){
     var _ae_ = 0 === width ? 1 : 0, _af_ = _ae_ || end_of_input(ib);
@@ -32032,7 +32376,7 @@
        /*<<scanf.ml:904:20>>*/ if(_aj_)
         /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
        /*<<scanf.ml:904:50>>*/ return scan_caml_float_rest
-              (width$1, precision, ib);
+              (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      }
     }
     else if(48 <= c){
@@ -32045,7 +32389,7 @@
      var c$0 =  /*<<scanf.ml:873:10>>*/ peek_char(ib);
      if(88 !== c$0 && 120 !== c$0)
        /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
-              (width$2, precision, ib);
+              (width$2, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      var
       width$3 =  /*<<scanf.ml:875:18>>*/ store_char(width$2, ib, c$0),
       _am_ = 0 === width$3 ? 1 : 0,
@@ -32109,7 +32453,8 @@
      }
       /*<<scanf.ml:891:6>>*/ if(0 !== width$7 && ! end_of_input(ib)){
       var c$2 =  /*<<scanf.ml:892:14>>*/ peek_char(ib);
-      if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$7;
+      if(80 !== c$2 && 112 !== c$2)
+        /*<<scanf.ml:897:15>>*/ return width$7 /*<<scanf.ml:897:15>>*/ ;
       var
        width$8 =  /*<<scanf.ml:894:22>>*/ store_char(width$7, ib, c$2),
        _aq_ = 0 === width$8 ? 1 : 0,
@@ -32117,19 +32462,20 @@
        /*<<scanf.ml:895:26>>*/ if(_ar_)
         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
        /*<<scanf.ml:895:56>>*/ return scan_optionally_signed_decimal
-              (width$8, ib);
+              (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
      }
-      /*<<scanf.ml:891:52>>*/ return width$7;
+      /*<<scanf.ml:891:52>>*/ return width$7 /*<<scanf.ml:891:52>>*/ ;
     }
-     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo);
+     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:910:21>>*/ ;
     /*<<scanf.ml:910:21>>*/ }
    function scan_string(stp, width, ib){
     var width$0 = width;
      /*<<scanf.ml:921:4>>*/ for(;;){
-     if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
+     if(0 === width$0)
+       /*<<scanf.ml:921:22>>*/ return width$0 /*<<scanf.ml:921:22>>*/ ;
      var c =  /*<<scanf.ml:922:12>>*/ peek_char(ib);
       /*<<scanf.ml:923:7>>*/ if(ib[1])
-       /*<<scanf.ml:923:28>>*/ return width$0;
+       /*<<scanf.ml:923:28>>*/ return width$0 /*<<scanf.ml:923:28>>*/ ;
      if(! stp){
       var _ad_ =  /*<<scanf.ml:928:8>>*/ c - 9 | 0;
       a:
@@ -32142,12 +32488,12 @@
        width$0 = width$2;
        continue;
       }
-       /*<<scanf.ml:929:38>>*/ return width$0;
+       /*<<scanf.ml:929:38>>*/ return width$0 /*<<scanf.ml:929:38>>*/ ;
      }
      var c$0 = stp[1];
      if(c === c$0){
        /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
-       /*<<scanf.ml:237:4>>*/ return width$0;
+       /*<<scanf.ml:237:4>>*/ return width$0 /*<<scanf.ml:237:4>>*/ ;
      }
      var width$1 =  /*<<scanf.ml:926:23>>*/ store_char(width$0, ib, c);
      width$0 = width$1;
@@ -32156,17 +32502,17 @@
    function hexadecimal_value_of_char(c){
      /*<<scanf.ml:969:2>>*/ return 97 <= c
             ? c - 87 | 0
-            : 65 <= c ? c - 55 | 0 : c - 48 | 0;
+            : 65 <= c ? c - 55 | 0 : c - 48 | 0 /*<<scanf.ml:979:23>>*/ ;
     /*<<scanf.ml:979:23>>*/ }
    function check_next_char(message, width, ib){
      /*<<scanf.ml:995:2>>*/ if(0 === width)
-      /*<<scanf.ml:995:20>>*/ return bad_token_length(message);
+      /*<<scanf.ml:995:20>>*/ return bad_token_length(message) /*<<scanf.ml:998:3>>*/ ;
     var c =  /*<<scanf.ml:996:10>>*/ peek_char(ib);
      /*<<scanf.ml:997:5>>*/ return ib[1]
             ? bad_input
               ( /*<<scanf.ml:421:4>>*/ caml_call2
                  /*<<scanf.ml:421:4>>*/ (Stdlib_Printf[4], _f_, message))
-            : c;
+            : c /*<<scanf.ml:998:3>>*/ ;
     /*<<scanf.ml:998:3>>*/ }
    function scan_backslash_char(width, ib){
     var c0 = check_next_char(cst_a_Char, width, ib);
@@ -32179,7 +32525,7 @@
         get_digit$0 =
           function(param){
            var c =  /*<<scanf.ml:1010:14>>*/ next_char(ib);
-           return 9 < c - 48 >>> 0 ? bad_input_escape(c) : c;
+           return 9 < c - 48 >>> 0 ? bad_input_escape(c) : c /*<<scanf.ml:1013:31>>*/ ;
            /*<<scanf.ml:1013:31>>*/ },
         c1$0 =  /*<<scanf.ml:1015:13>>*/ get_digit$0(0),
         c2$0 =  /*<<scanf.ml:1016:13>>*/ get_digit$0(0),
@@ -32202,7 +32548,7 @@
             ( /*<<scanf.ml:961:6>>*/ caml_call4
                /*<<scanf.ml:961:6>>*/ (Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
        }
-        /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_);
+        /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
       }
       var switcher =  /*<<scanf.ml:1005:8>>*/ c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
@@ -32220,9 +32566,9 @@
                if(5 < _ac_ - 49 >>> 0) break a;
               }
               else if(6 >= _ac_ - 10 >>> 0) break a;
-               /*<<scanf.ml:1022:53>>*/ return c;
+               /*<<scanf.ml:1022:53>>*/ return c /*<<scanf.ml:1022:53>>*/ ;
              }
-              /*<<scanf.ml:1023:13>>*/ return bad_input_escape(c);
+              /*<<scanf.ml:1023:13>>*/ return bad_input_escape(c) /*<<scanf.ml:1023:31>>*/ ;
              /*<<scanf.ml:1023:31>>*/ },
           c1 =  /*<<scanf.ml:1024:13>>*/ get_digit(0),
           c2 =  /*<<scanf.ml:1025:13>>*/ get_digit(0),
@@ -32243,7 +32589,7 @@
               ( /*<<scanf.ml:988:6>>*/ caml_call3
                  /*<<scanf.ml:988:6>>*/ (Stdlib_Printf[4], _m_, c1, c2));
          }
-          /*<<scanf.ml:1026:39>>*/ return store_char(width - 2 | 0, ib, _aa_);
+          /*<<scanf.ml:1026:39>>*/ return store_char(width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
         case 0:
         case 6:
         case 18:
@@ -32269,16 +32615,17 @@
       else if(98 === c0){var _$_ = 8; break b;}
       var _$_ = c0;
      }
-      /*<<scanf.ml:1007:33>>*/ return store_char(width, ib, _$_);
+      /*<<scanf.ml:1007:33>>*/ return store_char(width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
     }
-     /*<<scanf.ml:1028:4>>*/ return bad_input_escape(c0);
+     /*<<scanf.ml:1028:4>>*/ return bad_input_escape(c0) /*<<scanf.ml:1028:22>>*/ ;
     /*<<scanf.ml:1028:22>>*/ }
    function scan_caml_string(width, ib){
     function find_stop$0(counter, width){
      var width$0 = width;
       /*<<scanf.ml:1063:4>>*/ for(;;){
       var c = check_next_char(cst_a_String, width$0, ib);
-      if(34 === c)  /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib);
+      if(34 === c)
+        /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
       if(92 === c){
        var
         width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
@@ -32287,9 +32634,9 @@
         var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
          /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
           /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ caml_trampoline_return
-                  /*<<scanf.ml:1071:26>>*/ (skip_spaces, [0, _Y_]);
+                  /*<<scanf.ml:1071:26>>*/ (skip_spaces, [0, _Y_]) /*<<scanf.ml:1066:53>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_);
+         /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
        }
        if(13 === match){
         var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
@@ -32297,9 +32644,9 @@
          var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
           /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
            /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ caml_trampoline_return
-                   /*<<scanf.ml:1076:26>>*/ (skip_spaces, [0, _Z_]);
+                   /*<<scanf.ml:1076:26>>*/ (skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
          var counter$1 = counter + 1 | 0;
-          /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_);
+          /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
         }
         var width$5 =  /*<<scanf.ml:1077:21>>*/ store_char(width$3, ib, 13);
         width$0 = width$5;
@@ -32325,9 +32672,9 @@
       if(32 !== check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
          /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ caml_trampoline_return
-                 /*<<scanf.ml:1082:11>>*/ (find_stop$0, [0, width$0]);
+                 /*<<scanf.ml:1082:11>>*/ (find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0);
+        /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
       }
       var width$1 =  /*<<scanf.ml:1081:25>>*/ ignore_char(width$0, ib);
       width$0 = width$1;
@@ -32336,7 +32683,7 @@
     var c =  /*<<scanf.ml:1058:10>>*/ checked_peek_char(ib);
     return 34 === c
             ? find_stop(ignore_char(width, ib))
-            : character_mismatch(34, c);
+            : character_mismatch(34, c) /*<<scanf.ml:1084:18>>*/ ;
     /*<<scanf.ml:1084:18>>*/ }
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
@@ -32362,13 +32709,14 @@
       i$0 = i$1;
      }
      /*<<scanf.ml:1109:28>>*/ }
-    if(! scan_indic)  /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1);
+    if(! scan_indic)
+      /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1) /*<<scanf.ml:1118:34>>*/ ;
     var c = scan_indic[1];
      /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
     var _T_ =  /*<<scanf.ml:1114:11>>*/ 1 - ib[1];
-    if(! _T_)  /*<<scanf.ml:1114:11>>*/ return _T_;
+    if(! _T_)  /*<<scanf.ml:1114:11>>*/ return _T_ /*<<scanf.ml:1114:11>>*/ ;
     var ci =  /*<<scanf.ml:1115:15>>*/ peek_char(ib);
-    return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci);
+    return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci) /*<<scanf.ml:1118:34>>*/ ;
     /*<<scanf.ml:1118:34>>*/ }
    function scanf_bad_input(ib, x){
      /*<<?>>*/ if(x[1] === Scan_failure)
@@ -32382,17 +32730,17 @@
     var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
      /*<<scanf.ml:1125:14>>*/ return bad_input
             ( /*<<scanf.ml:1125:14>>*/ caml_call3
-               /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s));
+               /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1125:14>>*/ ;
    }
    function width_of_pad_opt(pad_opt){
      /*<<scanf.ml:1138:31>>*/ if(! pad_opt)
-      /*<<scanf.ml:1139:12>>*/ return Stdlib[19];
+      /*<<scanf.ml:1139:12>>*/ return Stdlib[19] /*<<scanf.ml:1139:12>>*/ ;
     var width = pad_opt[1];
-     /*<<scanf.ml:1140:18>>*/ return width;
+     /*<<scanf.ml:1140:18>>*/ return width /*<<scanf.ml:1140:18>>*/ ;
     /*<<scanf.ml:1140:23>>*/ }
    function stopper_of_formatting_lit(fmting){
      /*<<scanf.ml:1144:2>>*/ if(6 === fmting)
-      /*<<scanf.ml:1144:35>>*/ return _p_;
+      /*<<scanf.ml:1144:35>>*/ return _p_ /*<<scanf.ml:1144:35>>*/ ;
     var
      str =
         /*<<scanf.ml:1145:14>>*/  /*<<scanf.ml:1145:14>>*/ caml_call1
@@ -32409,14 +32757,14 @@
            /*<<scanf.ml:1147:4>>*/ (str)
          - 2
          | 0);
-     /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str];
+     /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str] /*<<scanf.ml:1148:4>>*/ ;
     /*<<scanf.ml:1148:16>>*/ }
    function take_format_readers$0(counter, k, fmt){
     var fmt$0 = fmt;
      /*<<scanf.ml:1161:13>>*/ for(;;){
      if(typeof fmt$0 === "number")
        /*<<scanf.ml:1198:40>>*/ return  /*<<scanf.ml:1198:40>>*/ caml_call1
-               /*<<scanf.ml:1198:40>>*/ (k, 0);
+               /*<<scanf.ml:1198:40>>*/ (k, 0) /*<<scanf.ml:1198:45>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1]; fmt$0 = rest; break;
@@ -32459,10 +32807,10 @@
          /*<<scanf.ml:1195:5>>*/ if(counter >= 50)
           /*<<scanf.ml:1195:5>>*/ return  /*<<scanf.ml:1195:5>>*/ caml_trampoline_return
                   /*<<scanf.ml:1195:5>>*/ (take_fmtty_format_readers$0,
-                  [0, k, _R_, rest$13]);
+                  [0, k, _R_, rest$13]) /*<<scanf.ml:1198:45>>*/ ;
         var counter$0 = counter + 1 | 0;
          /*<<scanf.ml:1195:5>>*/ return take_fmtty_format_readers$0
-                (counter$0, k, _R_, rest$13);
+                (counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
        case 15:
         var rest$14 = fmt$0[1]; fmt$0 = rest$14; break;
        case 16:
@@ -32499,9 +32847,9 @@
          /*<<scanf.ml:1163:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1164:31>>*/ return  /*<<scanf.ml:1164:33>>*/ caml_call1
-                   /*<<scanf.ml:1164:33>>*/ (k, [0, reader, readers_rest]);
+                   /*<<scanf.ml:1164:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1164:62>>*/ ;
           /*<<scanf.ml:1164:62>>*/ }
-          /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest); /*<<scanf.ml:1165:40>>*/ };
+          /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ; /*<<scanf.ml:1165:40>>*/ } /*<<scanf.ml:1163:4>>*/ ;
        case 20:
         var rest$19 = fmt$0[3]; fmt$0 = rest$19; break;
        case 21:
@@ -32520,10 +32868,10 @@
              /*<<scanf.ml:1236:4>>*/ return function(reader){
              function new_k(readers_rest){
                /*<<scanf.ml:1237:31>>*/ return  /*<<scanf.ml:1237:33>>*/ caml_call1
-                       /*<<scanf.ml:1237:33>>*/ (k, [0, reader, readers_rest]);
+                       /*<<scanf.ml:1237:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1237:62>>*/ ;
               /*<<scanf.ml:1237:62>>*/ }
               /*<<scanf.ml:1238:6>>*/ return take_format_readers
-                     (new_k, rest$22); /*<<scanf.ml:1238:35>>*/ };
+                     (new_k, rest$22) /*<<scanf.ml:1238:35>>*/ ; /*<<scanf.ml:1238:35>>*/ } /*<<scanf.ml:1236:4>>*/ ;
            default: fmt$0 = rest$22;
          }
         else
@@ -32551,10 +32899,10 @@
              /*<<scanf.ml:1250:39>>*/ if(counter >= 50)
               /*<<scanf.ml:1250:39>>*/ return  /*<<scanf.ml:1250:39>>*/ caml_trampoline_return
                       /*<<scanf.ml:1250:39>>*/ (take_fmtty_format_readers$0,
-                      [0, k, fmtty$0, rest$22]);
+                      [0, k, fmtty$0, rest$22]) /*<<scanf.ml:1198:45>>*/ ;
             var counter$1 = counter + 1 | 0;
              /*<<scanf.ml:1250:39>>*/ return take_fmtty_format_readers$0
-                    (counter$1, k, fmtty$0, rest$22);
+                    (counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
            case 10:
             fmt$0 = rest$22; break;
            default: fmt$0 = rest$22;
@@ -32573,10 +32921,10 @@
      if(typeof fmtty$0 === "number"){
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
         /*<<scanf.ml:1225:35>>*/ return  /*<<scanf.ml:1225:35>>*/ caml_trampoline_return
-                /*<<scanf.ml:1225:35>>*/ (take_format_readers$0, [0, k, fmt]);
+                /*<<scanf.ml:1225:35>>*/ (take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
       var counter$0 = counter + 1 | 0;
        /*<<scanf.ml:1225:35>>*/ return take_format_readers$0
-              (counter$0, k, fmt);
+              (counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
      }
      switch(fmtty$0[0]){
        case 0:
@@ -32624,19 +32972,19 @@
          /*<<scanf.ml:1206:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1207:31>>*/ return  /*<<scanf.ml:1207:33>>*/ caml_call1
-                   /*<<scanf.ml:1207:33>>*/ (k, [0, reader, readers_rest]);
+                   /*<<scanf.ml:1207:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1207:62>>*/ ;
           /*<<scanf.ml:1207:62>>*/ }
           /*<<scanf.ml:1208:6>>*/ return take_fmtty_format_readers
-                 (new_k, fmt_rest, fmt); /*<<scanf.ml:1208:50>>*/ };
+                 (new_k, fmt_rest, fmt) /*<<scanf.ml:1208:50>>*/ ; /*<<scanf.ml:1208:50>>*/ } /*<<scanf.ml:1206:4>>*/ ;
        default:
         var fmt_rest$0 = fmtty$0[1];
          /*<<scanf.ml:1210:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1211:31>>*/ return  /*<<scanf.ml:1211:33>>*/ caml_call1
-                   /*<<scanf.ml:1211:33>>*/ (k, [0, reader, readers_rest]);
+                   /*<<scanf.ml:1211:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1211:62>>*/ ;
           /*<<scanf.ml:1211:62>>*/ }
           /*<<scanf.ml:1212:6>>*/ return take_fmtty_format_readers
-                 (new_k, fmt_rest$0, fmt); /*<<scanf.ml:1212:50>>*/ };
+                 (new_k, fmt_rest$0, fmt) /*<<scanf.ml:1212:50>>*/ ; /*<<scanf.ml:1212:50>>*/ } /*<<scanf.ml:1210:4>>*/ ;
      }
     }
     /*<<scanf.ml:1228:58>>*/ }
@@ -32647,7 +32995,8 @@
    function make_scanf(ib, fmt, readers){
     var fmt$0 = fmt;
      /*<<scanf.ml:1266:22>>*/ for(;;){
-     if(typeof fmt$0 === "number")  /*<<scanf.ml:1418:4>>*/ return 0;
+     if(typeof fmt$0 === "number")
+       /*<<scanf.ml:1418:4>>*/ return 0 /*<<scanf.ml:1418:4>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
@@ -32655,7 +33004,7 @@
         var c$0 =  /*<<scanf.ml:1269:12>>*/ token_char(ib);
          /*<<scanf.ml:1270:4>>*/ return [0,
                 c$0,
-                make_scanf(ib, rest, readers)];
+                make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:4>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
@@ -32664,7 +33013,7 @@
             var c = check_next_char(cst_a_Char, width, ib);
             return 39 === c
                     ? ignore_char(width, ib)
-                    : character_mismatch(39, c);
+                    : character_mismatch(39, c) /*<<scanf.ml:1049:36>>*/ ;
             /*<<scanf.ml:1049:36>>*/ },
          c =  /*<<scanf.ml:1035:10>>*/ checked_peek_char(ib),
          width$0 =  /*<<scanf.ml:1272:4>>*/ 0;
@@ -32683,7 +33032,7 @@
         var c$1 =  /*<<scanf.ml:1273:12>>*/ token_char(ib);
          /*<<scanf.ml:1274:4>>*/ return [0,
                 c$1,
-                make_scanf(ib, rest$0, readers)];
+                make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:4>>*/ ;
        case 2:
         var pad = fmt$0[1], match = fmt$0[2];
         if(typeof match !== "number")
@@ -32699,11 +33048,11 @@
              scan$0 =
                function(width, param, ib){
                  /*<<scanf.ml:1278:26>>*/ return scan_string
-                        ([0, stp], width, ib);
+                        ([0, stp], width, ib) /*<<scanf.ml:1278:57>>*/ ;
                 /*<<scanf.ml:1278:57>>*/ },
              str_rest =  /*<<scanf.ml:1279:19>>*/ [11, str, rest$2];
              /*<<scanf.ml:1280:4>>*/ return pad_prec_scanf
-                    (ib, str_rest, readers, pad, 0, scan$0, token_string);
+                    (ib, str_rest, readers, pad, 0, scan$0, token_string) /*<<scanf.ml:1418:7>>*/ ;
            case 18:
             var _D_ = match[1];
             if(0 === _D_[0]){
@@ -32712,7 +33061,7 @@
               fmt$1 = _D_[1][1],
               scan$1 =
                  /*<<scanf.ml:1282:4>>*/ function(width, param, ib){
-                  /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib);
+                  /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
                  /*<<scanf.ml:1282:57>>*/ };
               /*<<scanf.ml:1283:4>>*/ return pad_prec_scanf
                      (ib,
@@ -32724,14 +33073,14 @@
                       pad,
                       0,
                       scan$1,
-                      token_string);
+                      token_string) /*<<scanf.ml:1418:7>>*/ ;
             }
             var
              rest$4 = match[2],
              fmt$2 = _D_[1][1],
              scan$2 =
                 /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
-                 /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib);
+                 /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
                 /*<<scanf.ml:1286:57>>*/ };
              /*<<scanf.ml:1287:4>>*/ return pad_prec_scanf
                     (ib,
@@ -32743,26 +33092,26 @@
                      pad,
                      0,
                      scan$2,
-                     token_string);
+                     token_string) /*<<scanf.ml:1418:7>>*/ ;
          }
         var
          rest$1 = fmt$0[2],
          scan =
             /*<<scanf.ml:1290:4>>*/ function(width, param, ib){
-             /*<<scanf.ml:1290:26>>*/ return scan_string(0, width, ib);
+             /*<<scanf.ml:1290:26>>*/ return scan_string(0, width, ib) /*<<scanf.ml:1290:51>>*/ ;
             /*<<scanf.ml:1290:51>>*/ };
          /*<<scanf.ml:1291:4>>*/ return pad_prec_scanf
-                (ib, rest$1, readers, pad, 0, scan, token_string);
+                (ib, rest$1, readers, pad, 0, scan, token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 3:
         var
          rest$5 = fmt$0[2],
          pad$0 = fmt$0[1],
          scan$3 =
             /*<<scanf.ml:1294:4>>*/ function(width, param, ib){
-             /*<<scanf.ml:1294:26>>*/ return scan_caml_string(width, ib);
+             /*<<scanf.ml:1294:26>>*/ return scan_caml_string(width, ib) /*<<scanf.ml:1294:51>>*/ ;
             /*<<scanf.ml:1294:51>>*/ };
          /*<<scanf.ml:1295:4>>*/ return pad_prec_scanf
-                (ib, rest$5, readers, pad$0, 0, scan$3, token_string);
+                (ib, rest$5, readers, pad$0, 0, scan$3, token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 4:
         var
          rest$6 = fmt$0[4],
@@ -32776,7 +33125,7 @@
          scan$4 =
            function(width, param, ib){
              /*<<scanf.ml:1298:26>>*/ return scan_int_conversion
-                    (conv, width, ib);
+                    (conv, width, ib) /*<<scanf.ml:1298:56>>*/ ;
             /*<<scanf.ml:1298:56>>*/ };
          /*<<scanf.ml:1299:49>>*/ return pad_prec_scanf
                 (ib,
@@ -32787,8 +33136,8 @@
                  scan$4,
                  function(ib){
                    /*<<scanf.ml:537:24>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
-                           /*<<scanf.ml:537:24>>*/ (token_int_literal(conv, ib));
-                 });
+                           /*<<scanf.ml:537:24>>*/ (token_int_literal(conv, ib)) /*<<scanf.ml:537:24>>*/ ;
+                 }) /*<<scanf.ml:1418:7>>*/ ;
        case 5:
         var
          rest$7 = fmt$0[4],
@@ -32802,7 +33151,7 @@
          scan$5 =
            function(width, param, ib){
              /*<<scanf.ml:1302:26>>*/ return scan_int_conversion
-                    (conv$0, width, ib);
+                    (conv$0, width, ib) /*<<scanf.ml:1302:56>>*/ ;
             /*<<scanf.ml:1302:56>>*/ };
          /*<<scanf.ml:1303:49>>*/ return pad_prec_scanf
                 (ib,
@@ -32813,8 +33162,8 @@
                  scan$5,
                  function(ib){
                    /*<<scanf.ml:558:26>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
-                           /*<<scanf.ml:558:26>>*/ (token_int_literal(conv$0, ib));
-                 });
+                           /*<<scanf.ml:558:26>>*/ (token_int_literal(conv$0, ib)) /*<<scanf.ml:558:26>>*/ ;
+                 }) /*<<scanf.ml:1418:7>>*/ ;
        case 6:
         var
          rest$8 = fmt$0[4],
@@ -32828,7 +33177,7 @@
          scan$6 =
            function(width, param, ib){
              /*<<scanf.ml:1306:26>>*/ return scan_int_conversion
-                    (conv$1, width, ib);
+                    (conv$1, width, ib) /*<<scanf.ml:1306:56>>*/ ;
             /*<<scanf.ml:1306:56>>*/ };
          /*<<scanf.ml:1307:49>>*/ return pad_prec_scanf
                 (ib,
@@ -32839,8 +33188,8 @@
                  scan$6,
                  function(ib){
                    /*<<scanf.ml:557:30>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
-                           /*<<scanf.ml:557:30>>*/ (token_int_literal(conv$1, ib));
-                 });
+                           /*<<scanf.ml:557:30>>*/ (token_int_literal(conv$1, ib)) /*<<scanf.ml:557:30>>*/ ;
+                 }) /*<<scanf.ml:1418:7>>*/ ;
        case 7:
         var
          rest$9 = fmt$0[4],
@@ -32854,7 +33203,7 @@
          scan$7 =
            function(width, param, ib){
              /*<<scanf.ml:1310:26>>*/ return scan_int_conversion
-                    (conv$2, width, ib);
+                    (conv$2, width, ib) /*<<scanf.ml:1310:56>>*/ ;
             /*<<scanf.ml:1310:56>>*/ };
          /*<<scanf.ml:1311:49>>*/ return pad_prec_scanf
                 (ib,
@@ -32865,8 +33214,8 @@
                  scan$7,
                  function(ib){
                    /*<<scanf.ml:559:26>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
-                           /*<<scanf.ml:559:26>>*/ (token_int_literal(conv$2, ib));
-                 });
+                           /*<<scanf.ml:559:26>>*/ (token_int_literal(conv$2, ib)) /*<<scanf.ml:559:26>>*/ ;
+                 }) /*<<scanf.ml:1418:7>>*/ ;
        case 8:
         switch(fmt$0[1][2]){
           case 5:
@@ -32879,7 +33228,7 @@
                     pad$6,
                     prec$4,
                     scan_caml_float,
-                    token_float);
+                    token_float) /*<<scanf.ml:1418:7>>*/ ;
           case 6:
           case 7:
            var rest$12 = fmt$0[4], prec$5 = fmt$0[3], pad$7 = fmt$0[2];
@@ -32890,7 +33239,7 @@
                     pad$7,
                     prec$5,
                     scan_hex_float,
-                    token_float);
+                    token_float) /*<<scanf.ml:1418:7>>*/ ;
           default:
            var rest$10 = fmt$0[4], prec$3 = fmt$0[3], pad$5 = fmt$0[2];
             /*<<scanf.ml:1316:4>>*/ return pad_prec_scanf
@@ -32900,7 +33249,7 @@
                     pad$5,
                     prec$3,
                     scan_float,
-                    token_float);
+                    token_float) /*<<scanf.ml:1418:7>>*/ ;
         }
        case 9:
         var
@@ -32919,14 +33268,14 @@
                   : bad_input
                     ( /*<<scanf.ml:1096:8>>*/ caml_call2
                        /*<<scanf.ml:1096:8>>*/ (Stdlib_Printf[4], _n_, c));
-             /*<<scanf.ml:1097:2>>*/ return scan_string(0, m, ib);
+             /*<<scanf.ml:1097:2>>*/ return scan_string(0, m, ib) /*<<scanf.ml:1320:34>>*/ ;
             /*<<scanf.ml:1320:34>>*/ };
          /*<<scanf.ml:1321:4>>*/ return pad_prec_scanf
-                (ib, rest$13, readers, pad$8, 0, scan$8, token_bool);
+                (ib, rest$13, readers, pad$8, 0, scan$8, token_bool) /*<<scanf.ml:1418:7>>*/ ;
        case 10:
         var rest$14 = fmt$0[1];
          /*<<scanf.ml:1337:7>>*/ if(! end_of_input(ib))
-          /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found);
+          /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
         fmt$0 = rest$14;
         break;
        case 11:
@@ -32961,7 +33310,7 @@
         }
          /*<<scanf.ml:1354:4>>*/ return [0,
                 fmt$3,
-                make_scanf(ib, rest$17, readers)];
+                make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:4>>*/ ;
        case 14:
         var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
          /*<<scanf.ml:1356:12>>*/ scan_caml_string
@@ -33013,15 +33362,15 @@
                     /*<<scanf.ml:1379:24>>*/ (CamlinternalFormatBasics[3],
                     fmt$5,
                     rest$18),
-                  readers)];
+                  readers)] /*<<scanf.ml:1378:4>>*/ ;
        case 15:
          /*<<scanf.ml:1323:4>>*/ return  /*<<scanf.ml:1323:4>>*/ caml_call1
                  /*<<scanf.ml:1323:4>>*/ (Stdlib[1],
-                 cst_scanf_bad_conversion_a);
+                 cst_scanf_bad_conversion_a) /*<<scanf.ml:1418:7>>*/ ;
        case 16:
          /*<<scanf.ml:1325:4>>*/ return  /*<<scanf.ml:1325:4>>*/ caml_call1
                  /*<<scanf.ml:1325:4>>*/ (Stdlib[1],
-                 cst_scanf_bad_conversion_t);
+                 cst_scanf_bad_conversion_t) /*<<scanf.ml:1418:7>>*/ ;
        case 17:
         var
          rest$19 = fmt$0[2],
@@ -33067,7 +33416,7 @@
          /*<<scanf.ml:1329:4>>*/ if(! readers)
           /*<<scanf.ml:1334:8>>*/ return  /*<<scanf.ml:1334:8>>*/ caml_call1
                   /*<<scanf.ml:1334:8>>*/ (Stdlib[1],
-                  cst_scanf_missing_reader);
+                  cst_scanf_missing_reader) /*<<scanf.ml:1418:7>>*/ ;
         var
          readers_rest = readers[2],
          reader = readers[1],
@@ -33076,7 +33425,7 @@
              /*<<scanf.ml:1331:16>>*/ (reader, ib);
          /*<<scanf.ml:1332:8>>*/ return [0,
                 x,
-                make_scanf(ib, fmt_rest, readers_rest)];
+                make_scanf(ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:8>>*/ ;
        case 20:
         var width_opt = fmt$0[1], match$1 = fmt$0[3];
         if(typeof match$1 !== "number" && 17 === match$1[0]){
@@ -33096,7 +33445,7 @@
           str_rest$0 =  /*<<scanf.ml:1386:19>>*/ [11, str$1, rest$23];
           /*<<scanf.ml:1387:4>>*/ return [0,
                  s$2,
-                 make_scanf(ib, str_rest$0, readers)];
+                 make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:4>>*/ ;
         }
         var
          rest$22 = fmt$0[3],
@@ -33107,7 +33456,7 @@
         var s$1 =  /*<<scanf.ml:1391:12>>*/ token_string(ib);
          /*<<scanf.ml:1392:4>>*/ return [0,
                 s$1,
-                make_scanf(ib, rest$22, readers)];
+                make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:4>>*/ ;
        case 21:
         var rest$24 = fmt$0[2], counter = fmt$0[1];
         switch(counter){
@@ -33119,14 +33468,14 @@
         }
          /*<<scanf.ml:1395:4>>*/ return [0,
                 count,
-                make_scanf(ib, rest$24, readers)];
+                make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:4>>*/ ;
        case 22:
         var
          rest$25 = fmt$0[1],
          c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
          /*<<scanf.ml:1398:4>>*/ return [0,
                 c$2,
-                make_scanf(ib, rest$25, readers)];
+                make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:4>>*/ ;
        case 23:
         var
          rest$26 = fmt$0[2],
@@ -33140,11 +33489,11 @@
           /*<<scanf.ml:1414:13>>*/ throw  /*<<scanf.ml:1414:13>>*/ caml_maybe_attach_backtrace
                  /*<<scanf.ml:1414:13>>*/ ([0, Assert_failure, _s_], 1);
         var arg_rest = match$3[2];
-         /*<<scanf.ml:1413:28>>*/ return arg_rest;
+         /*<<scanf.ml:1413:28>>*/ return arg_rest /*<<scanf.ml:1413:28>>*/ ;
        default:
          /*<<scanf.ml:1327:4>>*/ return  /*<<scanf.ml:1327:4>>*/ caml_call1
                  /*<<scanf.ml:1327:4>>*/ (Stdlib[1],
-                 cst_scanf_bad_conversion_custo);
+                 cst_scanf_bad_conversion_custo) /*<<scanf.ml:1418:7>>*/ ;
      }
     }
     /*<<scanf.ml:1418:7>>*/ }
@@ -33158,25 +33507,25 @@
        x$0 =
           /*<<scanf.ml:1436:12>>*/  /*<<scanf.ml:1436:12>>*/ caml_call1
            /*<<scanf.ml:1436:12>>*/ (token, ib);
-       /*<<scanf.ml:1437:4>>*/ return [0, x$0, make_scanf(ib, fmt, readers)];
+       /*<<scanf.ml:1437:4>>*/ return [0, x$0, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:4>>*/ ;
      }
      if(prec)
        /*<<scanf.ml:1453:4>>*/ return  /*<<scanf.ml:1453:4>>*/ caml_call1
-               /*<<scanf.ml:1453:4>>*/ (Stdlib[1], cst_scanf_bad_conversion);
+               /*<<scanf.ml:1453:4>>*/ (Stdlib[1], cst_scanf_bad_conversion) /*<<scanf.ml:1453:46>>*/ ;
       /*<<scanf.ml:1431:12>>*/  /*<<scanf.ml:1431:12>>*/ caml_call3
        /*<<scanf.ml:1431:12>>*/ (scan, Stdlib[19], Stdlib[19], ib);
      var
       x =
          /*<<scanf.ml:1432:12>>*/  /*<<scanf.ml:1432:12>>*/ caml_call1
           /*<<scanf.ml:1432:12>>*/ (token, ib);
-      /*<<scanf.ml:1433:4>>*/ return [0, x, make_scanf(ib, fmt, readers)];
+      /*<<scanf.ml:1433:4>>*/ return [0, x, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:4>>*/ ;
     }
     if(0 !== pad[0])
       /*<<scanf.ml:1451:4>>*/ return  /*<<scanf.ml:1451:4>>*/ caml_call1
-              /*<<scanf.ml:1451:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$2);
+              /*<<scanf.ml:1451:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$2) /*<<scanf.ml:1453:46>>*/ ;
     if(! pad[1])
       /*<<scanf.ml:1447:4>>*/ return  /*<<scanf.ml:1447:4>>*/ caml_call1
-              /*<<scanf.ml:1447:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$1);
+              /*<<scanf.ml:1447:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$1) /*<<scanf.ml:1453:46>>*/ ;
     var w = pad[2];
     if(typeof prec !== "number"){
      var p$0 = prec[1];
@@ -33186,18 +33535,18 @@
       x$2 =
          /*<<scanf.ml:1444:12>>*/  /*<<scanf.ml:1444:12>>*/ caml_call1
           /*<<scanf.ml:1444:12>>*/ (token, ib);
-      /*<<scanf.ml:1445:4>>*/ return [0, x$2, make_scanf(ib, fmt, readers)];
+      /*<<scanf.ml:1445:4>>*/ return [0, x$2, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:4>>*/ ;
     }
     if(prec)
       /*<<scanf.ml:1449:4>>*/ return  /*<<scanf.ml:1449:4>>*/ caml_call1
-              /*<<scanf.ml:1449:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$0);
+              /*<<scanf.ml:1449:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$0) /*<<scanf.ml:1453:46>>*/ ;
      /*<<scanf.ml:1439:12>>*/  /*<<scanf.ml:1439:12>>*/ caml_call3
       /*<<scanf.ml:1439:12>>*/ (scan, w, Stdlib[19], ib);
     var
      x$1 =
         /*<<scanf.ml:1440:12>>*/  /*<<scanf.ml:1440:12>>*/ caml_call1
          /*<<scanf.ml:1440:12>>*/ (token, ib);
-     /*<<scanf.ml:1441:4>>*/ return [0, x$1, make_scanf(ib, fmt, readers)];
+     /*<<scanf.ml:1441:4>>*/ return [0, x$1, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:4>>*/ ;
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
     var str = param[2], fmt = param[1];
@@ -33226,16 +33575,16 @@
            /*<<scanf.ml:1470:20>>*/  /*<<scanf.ml:1470:20>>*/ caml_call2
             /*<<scanf.ml:1470:20>>*/ (Stdlib[28], msg, _B_);
         /*<<scanf.ml:1470:20>>*/ return  /*<<scanf.ml:1470:20>>*/ caml_call1
-                /*<<scanf.ml:1470:20>>*/ (Stdlib[1], _C_);
+                /*<<scanf.ml:1470:20>>*/ (Stdlib[1], _C_) /*<<scanf.ml:1472:25>>*/ ;
       }
        /*<<scanf.ml:1468:8>>*/ return  /*<<scanf.ml:1468:8>>*/ caml_call2
-               /*<<scanf.ml:1468:8>>*/ (ef, ib, exc);
+               /*<<scanf.ml:1468:8>>*/ (ef, ib, exc) /*<<scanf.ml:1472:25>>*/ ;
      }
      var f = f$1, args = args$1;
       /*<<scanf.ml:1460:18>>*/ for(;;){
       if(! args)
         /*<<scanf.ml:1472:11>>*/ return  /*<<scanf.ml:1472:11>>*/ caml_call1
-                /*<<scanf.ml:1472:11>>*/ (af, f);
+                /*<<scanf.ml:1472:11>>*/ (af, f) /*<<scanf.ml:1472:25>>*/ ;
       var
        args$0 = args[2],
        x = args[1],
@@ -33246,49 +33595,49 @@
       args = args$0;
      }
      /*<<scanf.ml:1472:25>>*/ }
-     /*<<scanf.ml:1474:2>>*/ return take_format_readers(k, fmt);
+     /*<<scanf.ml:1474:2>>*/ return take_format_readers(k, fmt) /*<<scanf.ml:1474:2>>*/ ;
    }
    function kscanf(ib, ef, fmt){
      /*<<scanf.ml:1477:2>>*/ return kscanf_gen
             (ib,
              ef,
              function(x){
-               /*<<scanf.ml:1477:29>>*/ return x;
+               /*<<scanf.ml:1477:29>>*/ return x /*<<scanf.ml:1477:29>>*/ ;
               /*<<scanf.ml:1477:30>>*/ },
-             fmt);
+             fmt) /*<<scanf.ml:1477:35>>*/ ;
     /*<<scanf.ml:1477:35>>*/ }
    function kscanf_opt(ib, fmt){
      /*<<scanf.ml:1480:2>>*/ return kscanf_gen
             (ib,
              function(_y_, param){
-               /*<<scanf.ml:1480:28>>*/ return 0;
+               /*<<scanf.ml:1480:28>>*/ return 0 /*<<scanf.ml:1480:28>>*/ ;
               /*<<scanf.ml:1480:32>>*/ },
              function(x){
-               /*<<scanf.ml:1480:44>>*/ return [0, x];
+               /*<<scanf.ml:1480:44>>*/ return [0, x] /*<<scanf.ml:1480:44>>*/ ;
               /*<<scanf.ml:1480:50>>*/ },
-             fmt);
+             fmt) /*<<scanf.ml:1480:55>>*/ ;
     /*<<scanf.ml:1480:55>>*/ }
    function bscanf(ib, fmt){
-     /*<<scanf.ml:1485:20>>*/ return kscanf(ib, scanf_bad_input, fmt);
+     /*<<scanf.ml:1485:20>>*/ return kscanf(ib, scanf_bad_input, fmt) /*<<scanf.ml:1485:50>>*/ ;
     /*<<scanf.ml:1485:50>>*/ }
    function bscanf_opt(ib, fmt){
-     /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt);
+     /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
     /*<<scanf.ml:1486:41>>*/ }
    function ksscanf(s, ef, fmt){
-     /*<<scanf.ml:1488:23>>*/ return kscanf(from_string(s), ef, fmt);
+     /*<<scanf.ml:1488:23>>*/ return kscanf(from_string(s), ef, fmt) /*<<scanf.ml:1488:62>>*/ ;
     /*<<scanf.ml:1488:62>>*/ }
    function sscanf(s, fmt){
      /*<<scanf.ml:1489:19>>*/ return kscanf
-            (from_string(s), scanf_bad_input, fmt);
+            (from_string(s), scanf_bad_input, fmt) /*<<scanf.ml:1489:71>>*/ ;
     /*<<scanf.ml:1489:71>>*/ }
    function sscanf_opt(s, fmt){
-     /*<<scanf.ml:1490:23>>*/ return kscanf_opt(from_string(s), fmt);
+     /*<<scanf.ml:1490:23>>*/ return kscanf_opt(from_string(s), fmt) /*<<scanf.ml:1490:62>>*/ ;
     /*<<scanf.ml:1490:62>>*/ }
    function scanf(fmt){
-     /*<<scanf.ml:1492:16>>*/ return kscanf(stdin, scanf_bad_input, fmt);
+     /*<<scanf.ml:1492:16>>*/ return kscanf(stdin, scanf_bad_input, fmt) /*<<scanf.ml:1492:57>>*/ ;
     /*<<scanf.ml:1492:57>>*/ }
    function scanf_opt(fmt){
-     /*<<scanf.ml:1493:20>>*/ return kscanf_opt(stdin, fmt);
+     /*<<scanf.ml:1493:20>>*/ return kscanf_opt(stdin, fmt) /*<<scanf.ml:1493:49>>*/ ;
     /*<<scanf.ml:1493:49>>*/ }
    function bscanf_format(ib, format, f){
      /*<<scanf.ml:1502:4>>*/ scan_caml_string(Stdlib[19], ib);
@@ -33306,10 +33655,10 @@
      var msg = exn[2], fmt = bad_input(msg);
     }
      /*<<scanf.ml:1507:4>>*/ return  /*<<scanf.ml:1507:4>>*/ caml_call1
-             /*<<scanf.ml:1507:4>>*/ (f, fmt);
+             /*<<scanf.ml:1507:4>>*/ (f, fmt) /*<<scanf.ml:1507:10>>*/ ;
     /*<<scanf.ml:1507:10>>*/ }
    function sscanf_format(s, format, f){
-     /*<<scanf.ml:1513:20>>*/ return bscanf_format(from_string(s), format, f);
+     /*<<scanf.ml:1513:20>>*/ return bscanf_format(from_string(s), format, f) /*<<scanf.ml:1513:67>>*/ ;
     /*<<scanf.ml:1513:67>>*/ }
    function format_from_string(s, fmt){
     var
@@ -33324,8 +33673,8 @@
                /*<<scanf.ml:1517:16>>*/ (Stdlib[28], cst$2, _w_),
              fmt,
              function(x){
-               /*<<scanf.ml:1517:63>>*/ return x;
-              /*<<scanf.ml:1517:64>>*/ });
+               /*<<scanf.ml:1517:63>>*/ return x /*<<scanf.ml:1517:63>>*/ ;
+              /*<<scanf.ml:1517:64>>*/ }) /*<<scanf.ml:1517:65>>*/ ;
     /*<<scanf.ml:1517:65>>*/ }
    function unescaped(s){
     var
@@ -33338,8 +33687,8 @@
                  /*<<scanf.ml:1521:9>>*/ (Stdlib[28], cst$4, _u_),
                _t_),
              function(x){
-               /*<<scanf.ml:1521:44>>*/ return x;
-              /*<<scanf.ml:1521:45>>*/ });
+               /*<<scanf.ml:1521:44>>*/ return x /*<<scanf.ml:1521:44>>*/ ;
+              /*<<scanf.ml:1521:45>>*/ }) /*<<scanf.ml:1521:46>>*/ ;
     /*<<scanf.ml:1521:46>>*/ }
    var
     Stdlib_Scanf =
@@ -33396,7 +33745,7 @@
         ? exn
         : exn[1];
      /*<<callback.ml:27:2>>*/ return  /*<<callback.ml:27:2>>*/ caml_register_named_value
-             /*<<callback.ml:27:2>>*/ (name, slot);
+             /*<<callback.ml:27:2>>*/ (name, slot) /*<<callback.ml:27:32>>*/ ;
     /*<<callback.ml:27:32>>*/ }
    var Stdlib_Callback = [0, register, register_exception];
    runtime.caml_register_global(1, Stdlib_Callback, "Stdlib__Callback");
@@ -33457,7 +33806,7 @@
         /*<<camlinternalOO.ml:23:19>>*/  /*<<camlinternalOO.ml:23:19>>*/ o.slice
          /*<<camlinternalOO.ml:23:19>>*/ ();
      /*<<camlinternalOO.ml:24:2>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
-             /*<<camlinternalOO.ml:24:2>>*/ (o$0);
+             /*<<camlinternalOO.ml:24:2>>*/ (o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
     /*<<camlinternalOO.ml:24:10>>*/ }
    var params =  /*<<camlinternalOO.ml:36:13>>*/ [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
@@ -33480,7 +33829,7 @@
     }
     accu[1] = accu[1] & 2147483647;
     var tag = 1073741823 < accu[1] ? accu[1] + 2147483648 | 0 : accu[1];
-     /*<<camlinternalOO.ml:78:2>>*/ return tag;
+     /*<<camlinternalOO.ml:78:2>>*/ return tag /*<<camlinternalOO.ml:78:2>>*/ ;
     /*<<camlinternalOO.ml:78:15>>*/ }
    var
     compare = caml_string_compare,
@@ -33507,7 +33856,7 @@
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
             ? fit_size((n + 1 | 0) / 2 | 0) * 2 | 0
-            : n;
+            : n /*<<camlinternalOO.ml:125:24>>*/ ;
     /*<<camlinternalOO.ml:125:24>>*/ }
    function new_table(pub_labels){
      /*<<camlinternalOO.ml:128:2>>*/ table_count[1]++;
@@ -33552,7 +33901,7 @@
             0,
             0,
             Vars[1],
-            0];
+            0] /*<<camlinternalOO.ml:134:2>>*/ ;
     /*<<camlinternalOO.ml:141:32>>*/ }
    function resize(array, new_size){
     var old_size = array[2].length - 1, _ab_ = old_size < new_size ? 1 : 0;
@@ -33588,7 +33937,7 @@
    function new_method(table){
     var index = table[2].length - 1;
      /*<<camlinternalOO.ml:165:2>>*/ resize(table, index + 1 | 0);
-     /*<<camlinternalOO.ml:165:2>>*/ return index;
+     /*<<camlinternalOO.ml:165:2>>*/ return index /*<<camlinternalOO.ml:165:2>>*/ ;
     /*<<camlinternalOO.ml:166:7>>*/ }
    function get_method_label(table, name){
      /*<<camlinternalOO.ml:169:2>>*/ try{
@@ -33596,7 +33945,7 @@
       _$_ =
          /*<<camlinternalOO.ml:170:4>>*/  /*<<camlinternalOO.ml:170:4>>*/ caml_call2
           /*<<camlinternalOO.ml:170:4>>*/ (Meths[17], name, table[3]);
-      /*<<camlinternalOO.ml:170:4>>*/ return _$_;
+      /*<<camlinternalOO.ml:170:4>>*/ return _$_ /*<<camlinternalOO.ml:170:4>>*/ ;
     }
     catch(_aa_){
      var ___ = caml_wrap_exception(_aa_);
@@ -33608,14 +33957,14 @@
      table[4] =
        /*<<camlinternalOO.ml:174:30>>*/ caml_call3
         /*<<camlinternalOO.ml:174:30>>*/ (Labs[2], label, 1, table[4]);
-      /*<<camlinternalOO.ml:175:4>>*/ return label;
+      /*<<camlinternalOO.ml:175:4>>*/ return label /*<<camlinternalOO.ml:175:4>>*/ ;
     }
     /*<<camlinternalOO.ml:175:9>>*/ }
    function get_method_labels(table, names){
      /*<<camlinternalOO.ml:178:2>>*/ return  /*<<camlinternalOO.ml:178:2>>*/ caml_call2
              /*<<camlinternalOO.ml:178:2>>*/ (Stdlib_Array[14],
              function(_Z_){ /*<<?>>*/ return get_method_label(table, _Z_);},
-             names);
+             names) /*<<camlinternalOO.ml:178:42>>*/ ;
     /*<<camlinternalOO.ml:178:42>>*/ }
    function set_method(table, label, element){
      /*<<camlinternalOO.ml:181:2>>*/ method_count[1]++;
@@ -33625,7 +33974,7 @@
                (table, label + 1 | 0),
               caml_check_bound(table[2], label)[1 + label] = element,
               0)
-            : (table[6] = [0, [0, label, element], table[6]], 0);
+            : (table[6] = [0, [0, label, element], table[6]], 0) /*<<camlinternalOO.ml:185:64>>*/ ;
     /*<<camlinternalOO.ml:185:64>>*/ }
    function get_method(table, label){
      /*<<camlinternalOO.ml:188:2>>*/ try{
@@ -33633,14 +33982,14 @@
       _X_ =
          /*<<camlinternalOO.ml:188:6>>*/  /*<<camlinternalOO.ml:188:6>>*/ caml_call2
           /*<<camlinternalOO.ml:188:6>>*/ (Stdlib_List[49], label, table[6]);
-      /*<<camlinternalOO.ml:188:6>>*/ return _X_;
+      /*<<camlinternalOO.ml:188:6>>*/ return _X_ /*<<camlinternalOO.ml:188:6>>*/ ;
     }
     catch(_Y_){
      var _W_ = caml_wrap_exception(_Y_);
      if(_W_ === Stdlib[8])
        /*<<camlinternalOO.ml:189:20>>*/ return caml_check_bound
                (table[2], label)
-              [1 + label];
+              [1 + label] /*<<camlinternalOO.ml:189:20>>*/ ;
      throw caml_maybe_attach_backtrace(_W_, 0);
     }
     /*<<camlinternalOO.ml:189:41>>*/ }
@@ -33648,7 +33997,7 @@
      /*<<camlinternalOO.ml:192:2>>*/ return 0 === arr
             ? 0
             :  /*<<camlinternalOO.ml:192:37>>*/ caml_call1
-               /*<<camlinternalOO.ml:192:37>>*/ (Stdlib_Array[10], arr);
+               /*<<camlinternalOO.ml:192:37>>*/ (Stdlib_Array[10], arr) /*<<camlinternalOO.ml:192:54>>*/ ;
     /*<<camlinternalOO.ml:192:54>>*/ }
    function narrow(table, vars, virt_meths, concr_meths){
     var
@@ -33682,7 +34031,7 @@
                    lab,
                    info,
                    tvars)
-                : tvars;
+                : tvars /*<<camlinternalOO.ml:207:68>>*/ ;
         /*<<camlinternalOO.ml:207:68>>*/ },
        table[7],
        Vars[1]);
@@ -33740,7 +34089,7 @@
                   lab,
                   virt_meth_labs)
                 ? hm
-                : [0, met, hm];
+                : [0, met, hm] /*<<camlinternalOO.ml:229:62>>*/ ;
         /*<<camlinternalOO.ml:229:62>>*/ },
        table[6],
        0);
@@ -33769,7 +34118,7 @@
             /*<<camlinternalOO.ml:240:30>>*/  /*<<camlinternalOO.ml:240:30>>*/ caml_call2
              /*<<camlinternalOO.ml:240:30>>*/ (Vars[17], v, table[7]);
          /*<<camlinternalOO.ml:240:19>>*/ return  /*<<camlinternalOO.ml:240:19>>*/ caml_call3
-                 /*<<camlinternalOO.ml:240:19>>*/ (Vars[2], v, _O_, s);
+                 /*<<camlinternalOO.ml:240:19>>*/ (Vars[2], v, _O_, s) /*<<camlinternalOO.ml:240:56>>*/ ;
         /*<<camlinternalOO.ml:240:56>>*/ },
        saved_vars,
        vars);
@@ -33785,7 +34134,7 @@
                   lab,
                   virt_meths)
                 ? hm
-                : [0, met, hm];
+                : [0, met, hm] /*<<camlinternalOO.ml:247:58>>*/ ;
         /*<<camlinternalOO.ml:247:58>>*/ },
        table[6],
        saved_hidden_meths);
@@ -33797,7 +34146,7 @@
       _M_ =
          /*<<camlinternalOO.ml:257:6>>*/  /*<<camlinternalOO.ml:257:6>>*/ caml_call2
           /*<<camlinternalOO.ml:257:6>>*/ (Vars[17], name, table[7]);
-      /*<<camlinternalOO.ml:257:6>>*/ return _M_;
+      /*<<camlinternalOO.ml:257:6>>*/ return _M_ /*<<camlinternalOO.ml:257:6>>*/ ;
     }
     catch(_N_){
      var _L_ = caml_wrap_exception(_N_);
@@ -33808,14 +34157,14 @@
       table[7] =
         /*<<camlinternalOO.ml:260:37>>*/ caml_call3
          /*<<camlinternalOO.ml:260:37>>*/ (Vars[2], name, index, table[7]);
-      /*<<camlinternalOO.ml:261:4>>*/ return index;
+      /*<<camlinternalOO.ml:261:4>>*/ return index /*<<camlinternalOO.ml:261:4>>*/ ;
     }
     /*<<camlinternalOO.ml:261:9>>*/ }
    function to_array(arr){
      /*<<camlinternalOO.ml:264:2>>*/ return  /*<<camlinternalOO.ml:264:5>>*/ runtime.caml_equal
               /*<<camlinternalOO.ml:264:5>>*/ (arr, 0)
             ? [0]
-            : arr;
+            : arr /*<<camlinternalOO.ml:264:41>>*/ ;
     /*<<camlinternalOO.ml:264:41>>*/ }
    function new_methods_variables(table, meths, vals){
     var
@@ -33855,7 +34204,7 @@
       i = _I_;
      }
     }
-     /*<<camlinternalOO.ml:276:2>>*/ return res;
+     /*<<camlinternalOO.ml:276:2>>*/ return res /*<<camlinternalOO.ml:276:2>>*/ ;
     /*<<camlinternalOO.ml:276:5>>*/ }
    function get_variable(table, name){
      /*<<camlinternalOO.ml:279:2>>*/ try{
@@ -33863,7 +34212,7 @@
       _A_ =
          /*<<camlinternalOO.ml:279:6>>*/  /*<<camlinternalOO.ml:279:6>>*/ caml_call2
           /*<<camlinternalOO.ml:279:6>>*/ (Vars[17], name, table[7]);
-      /*<<camlinternalOO.ml:279:6>>*/ return _A_;
+      /*<<camlinternalOO.ml:279:6>>*/ return _A_ /*<<camlinternalOO.ml:279:6>>*/ ;
     }
     catch(_B_){
      var _z_ = caml_wrap_exception(_B_);
@@ -33877,7 +34226,7 @@
      /*<<camlinternalOO.ml:282:2>>*/ return  /*<<camlinternalOO.ml:282:2>>*/ caml_call2
              /*<<camlinternalOO.ml:282:2>>*/ (Stdlib_Array[14],
              function(_y_){ /*<<?>>*/ return get_variable(table, _y_);},
-             names);
+             names) /*<<camlinternalOO.ml:282:38>>*/ ;
     /*<<camlinternalOO.ml:282:38>>*/ }
    function add_initializer(table, f){
      /*<<camlinternalOO.ml:285:2>>*/ table[8] = [0, f, table[8]];
@@ -33885,7 +34234,7 @@
     /*<<camlinternalOO.ml:285:45>>*/ }
    function create_table(public_methods){
      /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
-      /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]);
+      /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
     var
      tags =
         /*<<camlinternalOO.ml:301:13>>*/  /*<<camlinternalOO.ml:301:13>>*/ caml_call2
@@ -33906,7 +34255,7 @@
        return 0;
        /*<<camlinternalOO.ml:307:72>>*/ },
       public_methods);
-     /*<<camlinternalOO.ml:303:2>>*/ return table;
+     /*<<camlinternalOO.ml:303:2>>*/ return table /*<<camlinternalOO.ml:303:2>>*/ ;
     /*<<camlinternalOO.ml:309:7>>*/ }
    function init_class(table){
      /*<<camlinternalOO.ml:312:2>>*/ inst_var_count[1] =
@@ -33917,7 +34266,7 @@
     var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
     return resize
             (table,
-             3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0);
+             3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0) /*<<camlinternalOO.ml:314:69>>*/ ;
     /*<<camlinternalOO.ml:314:69>>*/ }
    function inherits(cla, vals, virt_meths, concr_meths, param, top){
     var env = param[4], super$0 = param[2];
@@ -33939,7 +34288,7 @@
           /*<<camlinternalOO.ml:324:5>>*/ (Stdlib_Array[14],
           function(nm){
             /*<<camlinternalOO.ml:325:18>>*/ return get_method
-                   (cla, get_method_label(cla, nm));
+                   (cla, get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
            /*<<camlinternalOO.ml:325:79>>*/ },
           _s_),
         0],
@@ -33954,7 +34303,7 @@
            _u_),
          _t_]];
      /*<<camlinternalOO.ml:322:4>>*/ return  /*<<camlinternalOO.ml:322:4>>*/ caml_call1
-             /*<<camlinternalOO.ml:322:4>>*/ (Stdlib_Array[5], _v_);
+             /*<<camlinternalOO.ml:322:4>>*/ (Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:322:4>>*/ ;
    }
    function make_class(pub_meths, class_init){
     var
@@ -33968,7 +34317,7 @@
               /*<<camlinternalOO.ml:332:3>>*/ (env_init, 0),
             class_init,
             env_init,
-            0];
+            0] /*<<camlinternalOO.ml:332:2>>*/ ;
     /*<<camlinternalOO.ml:332:59>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
     var
@@ -33986,7 +34335,7 @@
       /*<<camlinternalOO.ml:345:23>>*/ throw  /*<<camlinternalOO.ml:345:23>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalOO.ml:345:23>>*/ ([0, Stdlib[15], loc], 1);
      /*<<camlinternalOO.ml:345:61>>*/ }
-     /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0];
+     /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0] /*<<camlinternalOO.ml:346:2>>*/ ;
     /*<<camlinternalOO.ml:346:45>>*/ }
    function create_object(table){
     var
@@ -33995,23 +34344,24 @@
          /*<<camlinternalOO.ml:352:12>>*/ (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:354:2>>*/ obj[1] = table[2];
      /*<<camlinternalOO.ml:355:10>>*/ return  /*<<camlinternalOO.ml:355:10>>*/ caml_set_oo_id
-             /*<<camlinternalOO.ml:355:10>>*/ (obj);
+             /*<<camlinternalOO.ml:355:10>>*/ (obj) /*<<camlinternalOO.ml:355:22>>*/ ;
     /*<<camlinternalOO.ml:355:22>>*/ }
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
-      /*<<camlinternalOO.ml:358:35>>*/ return obj_0;
+      /*<<camlinternalOO.ml:358:35>>*/ return obj_0 /*<<camlinternalOO.ml:358:35>>*/ ;
     var
      obj =
         /*<<camlinternalOO.ml:360:14>>*/  /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
          /*<<camlinternalOO.ml:360:14>>*/ (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:362:4>>*/ obj[1] = table[2];
      /*<<camlinternalOO.ml:363:12>>*/ return  /*<<camlinternalOO.ml:363:12>>*/ caml_set_oo_id
-             /*<<camlinternalOO.ml:363:12>>*/ (obj);
+             /*<<camlinternalOO.ml:363:12>>*/ (obj) /*<<camlinternalOO.ml:364:5>>*/ ;
     /*<<camlinternalOO.ml:364:5>>*/ }
    function iter_f(obj, param){
     var param$0 = param;
     for(;;){
-     if(! param$0)  /*<<camlinternalOO.ml:368:12>>*/ return 0;
+     if(! param$0)
+       /*<<camlinternalOO.ml:368:12>>*/ return 0 /*<<camlinternalOO.ml:368:12>>*/ ;
      var l = param$0[2], f = param$0[1];
       /*<<camlinternalOO.ml:369:12>>*/  /*<<camlinternalOO.ml:369:12>>*/ caml_call1
        /*<<camlinternalOO.ml:369:12>>*/ (f, obj);
@@ -34020,25 +34370,25 @@
    }
    function run_initializers(obj, table){
     var inits = table[8], _r_ = 0 !== inits ? 1 : 0;
-    return _r_ ? iter_f(obj, inits) : _r_;
+    return _r_ ? iter_f(obj, inits) : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
     /*<<camlinternalOO.ml:374:20>>*/ }
    function run_initializers_opt(obj_0, obj, table){
      /*<<camlinternalOO.ml:377:2>>*/ if(obj_0)
-      /*<<camlinternalOO.ml:377:35>>*/ return obj;
+      /*<<camlinternalOO.ml:377:35>>*/ return obj /*<<camlinternalOO.ml:377:35>>*/ ;
     var inits = table[8];
     if(0 !== inits)  /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
-     /*<<camlinternalOO.ml:379:24>>*/ return obj;
+     /*<<camlinternalOO.ml:379:24>>*/ return obj /*<<camlinternalOO.ml:379:24>>*/ ;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
      /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
-      /*<<camlinternalOO.ml:384:35>>*/ return obj_0;
+      /*<<camlinternalOO.ml:384:35>>*/ return obj_0 /*<<camlinternalOO.ml:384:35>>*/ ;
     var obj =  /*<<camlinternalOO.ml:385:14>>*/ create_object(table);
      /*<<camlinternalOO.ml:386:4>>*/ run_initializers(obj, table);
-     /*<<camlinternalOO.ml:386:4>>*/ return obj;
+     /*<<camlinternalOO.ml:386:4>>*/ return obj /*<<camlinternalOO.ml:386:4>>*/ ;
     /*<<camlinternalOO.ml:388:5>>*/ }
    function get_data(param){
      /*<<camlinternalOO.ml:415:15>>*/ if(param)
-      /*<<camlinternalOO.ml:417:19>>*/ return param[2];
+      /*<<camlinternalOO.ml:417:19>>*/ return param[2] /*<<camlinternalOO.ml:417:19>>*/ ;
      /*<<camlinternalOO.ml:416:13>>*/ throw  /*<<camlinternalOO.ml:416:13>>*/ caml_maybe_attach_backtrace
             /*<<camlinternalOO.ml:416:13>>*/ ([0, Assert_failure, _e_], 1);
     /*<<camlinternalOO.ml:417:30>>*/ }
@@ -34062,16 +34412,17 @@
       /*<<camlinternalOO.ml:407:13>>*/ throw  /*<<camlinternalOO.ml:407:13>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalOO.ml:407:13>>*/ ([0, Assert_failure, _b_], 1);
     tables[2] = v;
-     /*<<camlinternalOO.ml:428:2>>*/ return res;
+     /*<<camlinternalOO.ml:428:2>>*/ return res /*<<camlinternalOO.ml:428:2>>*/ ;
     /*<<camlinternalOO.ml:429:5>>*/ }
    function lookup_tables(root, keys){
     var root_data =  /*<<camlinternalOO.ml:451:8>>*/ get_data(root);
     if(! root_data)
       /*<<camlinternalOO.ml:455:4>>*/ return build_path
-             (keys.length - 2 | 0, keys, root);
+             (keys.length - 2 | 0, keys, root) /*<<camlinternalOO.ml:455:48>>*/ ;
     var i$1 = keys.length - 2 | 0, i = i$1, tables$0 = root_data;
      /*<<camlinternalOO.ml:432:2>>*/ for(;;){
-     if(0 > i)  /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
+     if(0 > i)
+       /*<<camlinternalOO.ml:432:16>>*/ return tables$0 /*<<camlinternalOO.ml:432:16>>*/ ;
      var
       key =  /*<<camlinternalOO.ml:433:12>>*/ caml_check_bound(keys, i)[1 + i],
       tables$1 = tables$0;
@@ -34091,7 +34442,7 @@
                 /*<<camlinternalOO.ml:410:13>>*/ ([0, Assert_failure, _c_], 1);
        tables$1[3] = next;
         /*<<camlinternalOO.ml:445:10>>*/ return build_path
-               (i - 1 | 0, keys, next);
+               (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
       }
       tables$1 = tables;
      }
@@ -34121,7 +34472,7 @@
     }
      /*<<camlinternalOO.ml:512:2>>*/ caml_check_bound(table[2], n$0)[1 + n$0]
     = 0;
-     /*<<camlinternalOO.ml:512:2>>*/ return n$0;
+     /*<<camlinternalOO.ml:512:2>>*/ return n$0 /*<<camlinternalOO.ml:512:2>>*/ ;
     /*<<camlinternalOO.ml:513:3>>*/ }
    function set_methods(table, methods){
     var
@@ -34140,7 +34491,7 @@
          var _m_ = i[1];
           /*<<camlinternalOO.ml:543:34>>*/ return caml_check_bound
                   (methods, _m_)
-                 [1 + _m_];
+                 [1 + _m_] /*<<camlinternalOO.ml:543:34>>*/ ;
          /*<<camlinternalOO.ml:543:42>>*/ },
       clo =  /*<<camlinternalOO.ml:544:8>>*/ next(0);
      if(typeof clo === "number")
@@ -34151,7 +34502,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:459:35>>*/ return x$20;
+              /*<<camlinternalOO.ml:459:35>>*/ return x$20 /*<<camlinternalOO.ml:459:18>>*/ ;
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
@@ -34181,7 +34532,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:464:34>>*/ return  /*<<camlinternalOO.ml:464:34>>*/ caml_call1
-                      /*<<camlinternalOO.ml:464:34>>*/ (obj[1][1 + n$36], obj);
+                      /*<<camlinternalOO.ml:464:34>>*/ (obj[1][1 + n$36], obj) /*<<camlinternalOO.ml:464:48>>*/ ;
              /*<<camlinternalOO.ml:464:48>>*/ };
          break;
         case 4:
@@ -34203,7 +34554,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:466:37>>*/ return  /*<<camlinternalOO.ml:466:20>>*/ caml_call1
-                      /*<<camlinternalOO.ml:466:20>>*/ (f$20, x$19);
+                      /*<<camlinternalOO.ml:466:20>>*/ (f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
              /*<<camlinternalOO.ml:466:40>>*/ };
          break;
         case 6:
@@ -34215,7 +34566,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:467:36>>*/ return caml_call1
-                     (f$19, obj[1 + n$34]);
+                     (f$19, obj[1 + n$34]) /*<<camlinternalOO.ml:467:62>>*/ ;
              /*<<camlinternalOO.ml:467:62>>*/ };
          break;
         case 7:
@@ -34228,7 +34579,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:470:4>>*/ return caml_call1
-                     (f$18, obj[1 + e$9][1 + n$33]);
+                     (f$18, obj[1 + e$9][1 + n$33]) /*<<camlinternalOO.ml:470:69>>*/ ;
              /*<<camlinternalOO.ml:470:69>>*/ };
          break;
         case 8:
@@ -34242,7 +34593,7 @@
               /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:38>>*/ caml_call1
                       /*<<camlinternalOO.ml:471:38>>*/ (f$17,
                        /*<<camlinternalOO.ml:471:38>>*/ caml_call1
-                        /*<<camlinternalOO.ml:471:38>>*/ (obj[1][1 + n$32], obj));
+                        /*<<camlinternalOO.ml:471:38>>*/ (obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
              /*<<camlinternalOO.ml:471:54>>*/ };
          break;
         case 9:
@@ -34255,7 +34606,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:472:45>>*/ return  /*<<camlinternalOO.ml:472:28>>*/ caml_call2
-                      /*<<camlinternalOO.ml:472:28>>*/ (f$16, x$18, y$0);
+                      /*<<camlinternalOO.ml:472:28>>*/ (f$16, x$18, y$0) /*<<camlinternalOO.ml:472:50>>*/ ;
              /*<<camlinternalOO.ml:472:50>>*/ };
          break;
         case 10:
@@ -34268,7 +34619,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:473:44>>*/ return caml_call2
-                     (f$15, x$17, obj[1 + n$31]);
+                     (f$15, x$17, obj[1 + n$31]) /*<<camlinternalOO.ml:473:72>>*/ ;
              /*<<camlinternalOO.ml:473:72>>*/ };
          break;
         case 11:
@@ -34282,7 +34633,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:479:4>>*/ return caml_call2
-                     (f$14, x$16, obj[1 + e$8][1 + n$30]);
+                     (f$14, x$16, obj[1 + e$8][1 + n$30]) /*<<camlinternalOO.ml:479:71>>*/ ;
              /*<<camlinternalOO.ml:479:71>>*/ };
          break;
         case 12:
@@ -34298,7 +34649,7 @@
                       /*<<camlinternalOO.ml:474:47>>*/ (f$13,
                       x$15,
                        /*<<camlinternalOO.ml:474:47>>*/ caml_call1
-                        /*<<camlinternalOO.ml:474:47>>*/ (obj[1][1 + n$29], obj));
+                        /*<<camlinternalOO.ml:474:47>>*/ (obj[1][1 + n$29], obj)) /*<<camlinternalOO.ml:474:63>>*/ ;
              /*<<camlinternalOO.ml:474:63>>*/ };
          break;
         case 13:
@@ -34313,7 +34664,7 @@
               /*<<camlinternalOO.ml:475:42>>*/ return  /*<<camlinternalOO.ml:475:26>>*/ caml_call2
                       /*<<camlinternalOO.ml:475:26>>*/ (f$12,
                       obj[1 + n$28],
-                      x$14);
+                      x$14) /*<<camlinternalOO.ml:475:70>>*/ ;
              /*<<camlinternalOO.ml:475:70>>*/ };
          break;
         case 14:
@@ -34329,7 +34680,7 @@
               /*<<camlinternalOO.ml:482:4>>*/ return  /*<<camlinternalOO.ml:481:2>>*/ caml_call2
                       /*<<camlinternalOO.ml:481:2>>*/ (f$11,
                       obj[1 + e$7][1 + n$27],
-                      x$13);
+                      x$13) /*<<camlinternalOO.ml:482:71>>*/ ;
              /*<<camlinternalOO.ml:482:71>>*/ };
          break;
         case 15:
@@ -34345,7 +34696,7 @@
                       /*<<camlinternalOO.ml:476:27>>*/ (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
                         /*<<camlinternalOO.ml:476:45>>*/ (obj[1][1 + n$26], obj),
-                      x$12);
+                      x$12) /*<<camlinternalOO.ml:476:63>>*/ ;
              /*<<camlinternalOO.ml:476:63>>*/ };
          break;
         case 16:
@@ -34359,7 +34710,7 @@
               /*<<camlinternalOO.ml:483:41>>*/ return  /*<<camlinternalOO.ml:483:25>>*/ caml_call2
                       /*<<camlinternalOO.ml:483:25>>*/ (obj[1][1 + n$25],
                       obj,
-                      x$11);
+                      x$11) /*<<camlinternalOO.ml:483:68>>*/ ;
              /*<<camlinternalOO.ml:483:68>>*/ };
          break;
         case 17:
@@ -34371,7 +34722,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:485:18>>*/ return caml_call2
-                     (obj[1][1 + n$24], obj, obj[1 + m$12]);
+                     (obj[1][1 + n$24], obj, obj[1 + m$12]) /*<<camlinternalOO.ml:485:68>>*/ ;
              /*<<camlinternalOO.ml:485:68>>*/ };
          break;
         case 18:
@@ -34384,7 +34735,7 @@
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:487:18>>*/ return caml_call2
-                     (obj[1][1 + n$23], obj, obj[1 + e$6][1 + m$11]);
+                     (obj[1][1 + n$23], obj, obj[1 + e$6][1 + m$11]) /*<<camlinternalOO.ml:488:69>>*/ ;
              /*<<camlinternalOO.ml:488:69>>*/ };
          break;
         case 19:
@@ -34402,7 +34753,7 @@
               /*<<camlinternalOO.ml:490:44>>*/ return  /*<<camlinternalOO.ml:490:44>>*/ caml_call2
                       /*<<camlinternalOO.ml:490:44>>*/ (obj[1][1 + n$22],
                       obj,
-                      _l_);
+                      _l_) /*<<camlinternalOO.ml:490:60>>*/ ;
              /*<<camlinternalOO.ml:490:60>>*/ };
          break;
         case 20:
@@ -34417,7 +34768,7 @@
               /*<<camlinternalOO.ml:492:18>>*/ return  /*<<camlinternalOO.ml:492:2>>*/ caml_call1
                       /*<<camlinternalOO.ml:492:2>>*/ (caml_get_public_method
                        (x$10, m$9, 0),
-                      x$10);
+                      x$10) /*<<camlinternalOO.ml:492:58>>*/ ;
              /*<<camlinternalOO.ml:492:58>>*/ };
          break;
         case 21:
@@ -34430,7 +34781,7 @@
           clo$0 =
             function(obj){
              var _k_ = obj[1 + n$21];
-             return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_);
+             return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_) /*<<camlinternalOO.ml:496:32>>*/ ;
              /*<<camlinternalOO.ml:496:32>>*/ };
          break;
         case 22:
@@ -34444,7 +34795,7 @@
           clo$0 =
             function(obj){
              var _j_ = obj[1 + e$5][1 + n$20];
-             return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_);
+             return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_) /*<<camlinternalOO.ml:502:34>>*/ ;
              /*<<camlinternalOO.ml:502:34>>*/ };
          break;
         default:
@@ -34463,7 +34814,7 @@
               /*<<camlinternalOO.ml:505:14>>*/ return  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
                       /*<<camlinternalOO.ml:505:14>>*/ (caml_get_public_method
                        (_i_, m$6, 0),
-                      _i_);
+                      _i_) /*<<camlinternalOO.ml:505:59>>*/ ;
              /*<<camlinternalOO.ml:505:59>>*/ };
       }
      else
@@ -34476,7 +34827,7 @@
      /*<<camlinternalOO.ml:611:2>>*/ return [0,
             table_count[1],
             method_count[1],
-            inst_var_count[1]];
+            inst_var_count[1]] /*<<camlinternalOO.ml:611:2>>*/ ;
     /*<<camlinternalOO.ml:612:59>>*/ }
    var
     CamlinternalOO =
@@ -34588,7 +34939,7 @@
                 /*<<camlinternalMod.ml:30:11>>*/ throw  /*<<camlinternalMod.ml:30:11>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalMod.ml:30:11>>*/ ([0, Stdlib[15], loc], 1);
                /*<<camlinternalMod.ml:32:11>>*/ return  /*<<camlinternalMod.ml:32:11>>*/ caml_call1
-                       /*<<camlinternalMod.ml:32:11>>*/ (fn, x);
+                       /*<<camlinternalMod.ml:32:11>>*/ (fn, x) /*<<camlinternalMod.ml:32:16>>*/ ;
               /*<<camlinternalMod.ml:32:16>>*/ };
           let fn$0 = fn;
           var init = fn;
@@ -34607,9 +34958,9 @@
               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 l /*<<camlinternalMod.ml:41:13>>*/ ;
                /*<<camlinternalMod.ml:41:13>>*/ return  /*<<camlinternalMod.ml:41:13>>*/ caml_call1
-                       /*<<camlinternalMod.ml:41:13>>*/ (CamlinternalLazy[2], l);
+                       /*<<camlinternalMod.ml:41:13>>*/ (CamlinternalLazy[2], l) /*<<camlinternalMod.ml:41:13>>*/ ;
              }]);
           var init = l;
           break;
@@ -34629,17 +34980,17 @@
       i = _i_;
      }
     }
-     /*<<camlinternalMod.ml:57:2>>*/ return modu;
+     /*<<camlinternalMod.ml:57:2>>*/ return modu /*<<camlinternalMod.ml:57:2>>*/ ;
     /*<<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:62:5>>*/ return init_mod_block(loc, comps) /*<<camlinternalMod.ml:63:58>>*/ ;
     }
      /*<<camlinternalMod.ml:63:9>>*/ return  /*<<camlinternalMod.ml:63:9>>*/ caml_call1
              /*<<camlinternalMod.ml:63:9>>*/ (Stdlib[2],
-             cst_CamlinternalMod_init_mod_n);
+             cst_CamlinternalMod_init_mod_n) /*<<camlinternalMod.ml:63:58>>*/ ;
     /*<<camlinternalMod.ml:63:58>>*/ }
    function update_mod_block(comps$0, modu, n){
      /*<<camlinternalMod.ml:81:2>>*/ if
@@ -34701,11 +35052,11 @@
      /*<<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:89:5>>*/ return update_mod_block(comps, o, n) /*<<camlinternalMod.ml:90:60>>*/ ;
     }
      /*<<camlinternalMod.ml:90:9>>*/ return  /*<<camlinternalMod.ml:90:9>>*/ caml_call1
              /*<<camlinternalMod.ml:90:9>>*/ (Stdlib[2],
-             cst_CamlinternalMod_update_mod);
+             cst_CamlinternalMod_update_mod) /*<<camlinternalMod.ml:90:60>>*/ ;
     /*<<camlinternalMod.ml:90:60>>*/ }
    var CamlinternalMod = [0, init_mod, update_mod];
    runtime.caml_register_global(8, CamlinternalMod, "CamlinternalMod");
@@ -34801,7 +35152,7 @@
               /*<<ephemeron.ml:110:56>>*/ caml_make_vect
                /*<<ephemeron.ml:110:56>>*/ (x, 0),
              seed,
-             x];
+             x] /*<<ephemeron.ml:110:6>>*/ ;
     }
     function clear(h){
       /*<<ephemeron.ml:113:6>>*/ h[1] = 0;
@@ -34830,7 +35181,7 @@
                h[2] =
                  /*<<ephemeron.ml:125:18>>*/ caml_make_vect
                   /*<<ephemeron.ml:125:18>>*/ (h[4], 0),
-               0);
+               0) /*<<ephemeron.ml:126:9>>*/ ;
      /*<<ephemeron.ml:126:9>>*/ }
     function copy(h){
      var
@@ -34839,7 +35190,7 @@
       _an_ =
          /*<<ephemeron.ml:128:33>>*/  /*<<ephemeron.ml:128:33>>*/ caml_call1
           /*<<ephemeron.ml:128:33>>*/ (Stdlib_Array[7], h[2]);
-      /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_];
+      /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_] /*<<ephemeron.ml:128:17>>*/ ;
      /*<<ephemeron.ml:128:52>>*/ }
     function key_index(h, hkey){
       /*<<ephemeron.ml:131:6>>*/ return hkey & (h[2].length - 2 | 0);
@@ -34848,13 +35199,14 @@
      function do_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:134:26>>*/ for(;;){
-       if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
+       if(! param$0)
+         /*<<ephemeron.ml:136:12>>*/ return 0 /*<<ephemeron.ml:136:12>>*/ ;
        var hkey = param$0[1], rest = param$0[3], c = param$0[2];
         /*<<ephemeron.ml:137:36>>*/ if
         ( /*<<ephemeron.ml:137:36>>*/ caml_call1
            /*<<ephemeron.ml:137:36>>*/ (H[6], c)){
         var rest$0 = param$0[3], c$0 = param$0[2];
-         /*<<ephemeron.ml:141:12>>*/ return [0, hkey, c$0, do_bucket(rest$0)];
+         /*<<ephemeron.ml:141:12>>*/ return [0, hkey, c$0, do_bucket(rest$0)] /*<<ephemeron.ml:141:12>>*/ ;
        }
        h[1] = h[1] - 1 | 0;
        param$0 = rest;
@@ -34892,7 +35244,7 @@
        insert_bucket =
          function(param){
            /*<<ephemeron.ml:176:32>>*/ if(! param)
-            /*<<ephemeron.ml:177:21>>*/ return;
+            /*<<ephemeron.ml:177:21>>*/ return /*<<ephemeron.ml:177:21>>*/ ;
           var rest = param[3], data = param[2], hkey = param[1];
            /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
           var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
@@ -34934,7 +35286,7 @@
       /*<<ephemeron.ml:192:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _ab_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-     return _ab_ ? resize(h) : _ab_;
+     return _ab_ ? resize(h) : _ab_ /*<<ephemeron.ml:194:57>>*/ ;
      /*<<ephemeron.ml:194:57>>*/ }
     function remove(h, key){
      var
@@ -34944,22 +35296,24 @@
      function remove_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:198:30>>*/ for(;;){
-       if(! param$0)  /*<<ephemeron.ml:199:19>>*/ return 0;
+       if(! param$0)
+         /*<<ephemeron.ml:199:19>>*/ return 0 /*<<ephemeron.ml:199:19>>*/ ;
        var hk = param$0[1], next = param$0[3], c = param$0[2];
        if(hkey !== hk){
         var next$0 = param$0[3], c$0 = param$0[2];
          /*<<ephemeron.ml:210:29>>*/ return [0,
                 hk,
                 c$0,
-                remove_bucket(next$0)];
+                remove_bucket(next$0)] /*<<ephemeron.ml:210:29>>*/ ;
        }
        switch
         ( /*<<ephemeron.ml:201:24>>*/ caml_call2
            /*<<ephemeron.ml:201:24>>*/ (H[3], c, key)){
          case 0:
-          h[1] = h[1] - 1 | 0;  /*<<ephemeron.ml:202:45>>*/ return next;
+          h[1] = h[1] - 1 | 0;
+           /*<<ephemeron.ml:202:45>>*/ return next /*<<ephemeron.ml:202:45>>*/ ;
          case 1:
-           /*<<ephemeron.ml:203:24>>*/ return [0, hk, c, remove_bucket(next)];
+           /*<<ephemeron.ml:203:24>>*/ return [0, hk, c, remove_bucket(next)] /*<<ephemeron.ml:203:24>>*/ ;
          default: h[1] = h[1] - 1 | 0; param$0 = next;
        }
       }
@@ -34970,7 +35324,7 @@
          /*<<ephemeron.ml:212:20>>*/ remove_bucket
          (caml_check_bound(h[2], i)[1 + i]);
       /*<<ephemeron.ml:212:6>>*/ caml_check_bound(h[2], i)[1 + i] = _aa_;
-      /*<<ephemeron.ml:212:6>>*/ return 0;
+      /*<<ephemeron.ml:212:6>>*/ return 0 /*<<ephemeron.ml:212:6>>*/ ;
      /*<<ephemeron.ml:212:44>>*/ }
     function find(h, key){
      var
@@ -34993,7 +35347,10 @@
            match =
               /*<<ephemeron.ml:224:26>>*/  /*<<ephemeron.ml:224:26>>*/ caml_call1
                /*<<ephemeron.ml:224:26>>*/ (H[4], c);
-          if(match){var d = match[1];  /*<<ephemeron.ml:229:26>>*/ return d;}
+          if(match){
+           var d = match[1];
+            /*<<ephemeron.ml:229:26>>*/ return d /*<<ephemeron.ml:229:26>>*/ ;
+          }
           param = rest;
           break;
          case 1:
@@ -35011,7 +35368,8 @@
       ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], ___)[1 + ___];
      for(;;){
-      if(! param)  /*<<ephemeron.ml:245:10>>*/ return 0;
+      if(! param)
+        /*<<ephemeron.ml:245:10>>*/ return 0 /*<<ephemeron.ml:245:10>>*/ ;
       var hk = param[1], rest = param[3], c = param[2];
       if(hkey === hk)
        switch
@@ -35022,7 +35380,8 @@
            d =
               /*<<ephemeron.ml:249:26>>*/  /*<<ephemeron.ml:249:26>>*/ caml_call1
                /*<<ephemeron.ml:249:26>>*/ (H[4], c);
-          if(d)  /*<<ephemeron.ml:254:31>>*/ return d;
+          if(d)
+            /*<<ephemeron.ml:254:31>>*/ return d /*<<ephemeron.ml:254:31>>*/ ;
           param = rest;
           break;
          case 1:
@@ -35040,7 +35399,8 @@
      function find_in_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:270:31>>*/ for(;;){
-       if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
+       if(! param$0)
+         /*<<ephemeron.ml:271:17>>*/ return 0 /*<<ephemeron.ml:271:17>>*/ ;
        var hk = param$0[1], rest = param$0[3], c = param$0[2];
        if(hkey === hk)
         switch
@@ -35053,7 +35413,7 @@
                 /*<<ephemeron.ml:274:33>>*/ (H[4], c);
            if(match){
             var d = match[1];
-             /*<<ephemeron.ml:277:26>>*/ return [0, d, find_in_bucket(rest)];
+             /*<<ephemeron.ml:277:26>>*/ return [0, d, find_in_bucket(rest)] /*<<ephemeron.ml:277:26>>*/ ;
            }
            param$0 = rest;
            break;
@@ -35066,7 +35426,7 @@
       /*<<ephemeron.ml:284:29>>*/ }
      var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
       /*<<ephemeron.ml:285:21>>*/ return find_in_bucket
-             (caml_check_bound(h[2], _Z_)[1 + _Z_]);
+             (caml_check_bound(h[2], _Z_)[1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
      /*<<ephemeron.ml:285:46>>*/ }
     function replace(h, key, info){
      var
@@ -35091,7 +35451,7 @@
           _V_ =
              /*<<ephemeron.ml:290:6>>*/  /*<<ephemeron.ml:290:6>>*/ caml_call3
               /*<<ephemeron.ml:290:6>>*/ (H[5], c, key, info);
-          /*<<ephemeron.ml:302:8>>*/ return _V_;
+          /*<<ephemeron.ml:302:8>>*/ return _V_ /*<<ephemeron.ml:302:8>>*/ ;
         }
         param = next;
        }
@@ -35108,7 +35468,7 @@
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
       h[1] = h[1] + 1 | 0;
       var _X_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-      return _X_ ? resize(h) : _X_;
+      return _X_ ? resize(h) : _X_ /*<<ephemeron.ml:307:59>>*/ ;
      }
      /*<<ephemeron.ml:307:59>>*/ }
     function mem(h, key){
@@ -35119,14 +35479,15 @@
       _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _U_)[1 + _U_];
       /*<<ephemeron.ml:311:30>>*/ for(;;){
-      if(! param)  /*<<ephemeron.ml:313:10>>*/ return 0;
+      if(! param)
+        /*<<ephemeron.ml:313:10>>*/ return 0 /*<<ephemeron.ml:313:10>>*/ ;
       var hk = param[1], rest = param[3], c = param[2];
       if(hk === hkey){
        if
         (!
           /*<<ephemeron.ml:315:22>>*/ caml_call2
            /*<<ephemeron.ml:315:22>>*/ (H[3], c, key))
-         /*<<ephemeron.ml:316:21>>*/ return 1;
+         /*<<ephemeron.ml:316:21>>*/ return 1 /*<<ephemeron.ml:316:21>>*/ ;
        param = rest;
       }
       else{var rest$0 = param[3]; param = rest$0;}
@@ -35138,7 +35499,8 @@
     function bucket_length(accu, param){
      var accu$0 = accu, param$0 = param;
      for(;;){
-      if(! param$0)  /*<<ephemeron.ml:325:17>>*/ return accu$0;
+      if(! param$0)
+        /*<<ephemeron.ml:325:17>>*/ return accu$0 /*<<ephemeron.ml:325:17>>*/ ;
       var
        rest = param$0[3],
        accu$1 =  /*<<ephemeron.ml:326:28>>*/ accu$0 + 1 | 0;
@@ -35154,7 +35516,7 @@
           function(m, b){
            var _T_ =  /*<<ephemeron.ml:330:46>>*/ bucket_length(0, b);
             /*<<ephemeron.ml:330:46>>*/ return  /*<<ephemeron.ml:330:46>>*/ caml_call2
-                    /*<<ephemeron.ml:330:46>>*/ (Stdlib_Int[11], m, _T_);
+                    /*<<ephemeron.ml:330:46>>*/ (Stdlib_Int[11], m, _T_) /*<<ephemeron.ml:330:65>>*/ ;
            /*<<ephemeron.ml:330:65>>*/ },
           0,
           h[2]),
@@ -35167,15 +35529,16 @@
         var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
-         /*<<ephemeron.ml:335:11>>*/ return 0;
+         /*<<ephemeron.ml:335:11>>*/ return 0 /*<<ephemeron.ml:335:11>>*/ ;
         /*<<ephemeron.ml:335:37>>*/ },
        h[2]);
-      /*<<ephemeron.ml:337:6>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
+      /*<<ephemeron.ml:337:6>>*/ return [0, h[1], h[2].length - 1, mbl, histo] /*<<ephemeron.ml:337:6>>*/ ;
      /*<<ephemeron.ml:340:34>>*/ }
     function bucket_length_alive(accu, param){
      var accu$0 = accu, param$0 = param;
      for(;;){
-      if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
+      if(! param$0)
+        /*<<ephemeron.ml:343:17>>*/ return accu$0 /*<<ephemeron.ml:343:17>>*/ ;
       var rest = param$0[3], c = param$0[2];
        /*<<ephemeron.ml:344:30>>*/ if
        ( /*<<ephemeron.ml:344:30>>*/ caml_call1
@@ -35196,7 +35559,7 @@
           function(m, b){
            var _S_ =  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive(0, b);
             /*<<ephemeron.ml:352:32>>*/ return  /*<<ephemeron.ml:352:32>>*/ caml_call2
-                    /*<<ephemeron.ml:352:32>>*/ (Stdlib_Int[11], m, _S_);
+                    /*<<ephemeron.ml:352:32>>*/ (Stdlib_Int[11], m, _S_) /*<<ephemeron.ml:352:57>>*/ ;
            /*<<ephemeron.ml:352:57>>*/ },
           0,
           h[2]),
@@ -35210,37 +35573,37 @@
         size[1] = size[1] + l | 0;
          /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
-         /*<<ephemeron.ml:359:11>>*/ return 0;
+         /*<<ephemeron.ml:359:11>>*/ return 0 /*<<ephemeron.ml:359:11>>*/ ;
         /*<<ephemeron.ml:359:37>>*/ },
        h[2]);
       /*<<ephemeron.ml:361:6>>*/ return [0,
              size[1],
              h[2].length - 1,
              mbl,
-             histo];
+             histo] /*<<ephemeron.ml:361:6>>*/ ;
      /*<<ephemeron.ml:364:34>>*/ }
     function add_seq(tbl, i){
       /*<<ephemeron.ml:367:6>>*/ return  /*<<ephemeron.ml:367:6>>*/ caml_call2
               /*<<ephemeron.ml:367:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v);
+                /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v) /*<<ephemeron.ml:367:41>>*/ ;
                /*<<ephemeron.ml:367:41>>*/ },
-              i);
+              i) /*<<ephemeron.ml:367:43>>*/ ;
      /*<<ephemeron.ml:367:43>>*/ }
     function replace_seq(tbl, i){
       /*<<ephemeron.ml:370:6>>*/ return  /*<<ephemeron.ml:370:6>>*/ caml_call2
               /*<<ephemeron.ml:370:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v);
+                /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v) /*<<ephemeron.ml:370:45>>*/ ;
                /*<<ephemeron.ml:370:45>>*/ },
-              i);
+              i) /*<<ephemeron.ml:370:47>>*/ ;
      /*<<ephemeron.ml:370:47>>*/ }
     function of_seq(i){
      var tbl =  /*<<ephemeron.ml:373:16>>*/ create(0, 16);
       /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
-      /*<<ephemeron.ml:374:6>>*/ return tbl;
+      /*<<ephemeron.ml:374:6>>*/ return tbl /*<<ephemeron.ml:374:6>>*/ ;
      /*<<ephemeron.ml:375:9>>*/ }
      /*<<ephemeron.ml:82:4>>*/ return [0,
             create,
@@ -35260,72 +35623,74 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive];
+            stats_alive] /*<<ephemeron.ml:82:4>>*/ ;
    }
    function create(param){
      /*<<ephemeron.ml:394:30>>*/ return  /*<<ephemeron.ml:394:30>>*/ caml_call1
-             /*<<ephemeron.ml:394:30>>*/ (Stdlib_Obj[23][1], 1);
+             /*<<ephemeron.ml:394:30>>*/ (Stdlib_Obj[23][1], 1) /*<<ephemeron.ml:394:45>>*/ ;
     /*<<ephemeron.ml:394:45>>*/ }
    function get_key(t){
     var
      x =
         /*<<ephemeron.ml:396:50>>*/  /*<<ephemeron.ml:396:50>>*/ caml_call2
          /*<<ephemeron.ml:396:50>>*/ (Stdlib_Obj[23][3], t, 0);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:396:70>>*/ }
    function set_key(t, k){
      /*<<ephemeron.ml:397:44>>*/ return  /*<<ephemeron.ml:397:44>>*/ caml_call3
-             /*<<ephemeron.ml:397:44>>*/ (Stdlib_Obj[23][5], t, 0, k);
+             /*<<ephemeron.ml:397:44>>*/ (Stdlib_Obj[23][5], t, 0, k) /*<<ephemeron.ml:397:75>>*/ ;
     /*<<ephemeron.ml:397:75>>*/ }
    function check_key(t){
      /*<<ephemeron.ml:398:39>>*/ return  /*<<ephemeron.ml:398:39>>*/ caml_call2
-             /*<<ephemeron.ml:398:39>>*/ (Stdlib_Obj[23][7], t, 0);
+             /*<<ephemeron.ml:398:39>>*/ (Stdlib_Obj[23][7], t, 0) /*<<ephemeron.ml:398:59>>*/ ;
     /*<<ephemeron.ml:398:59>>*/ }
    function get_data(t){
     var
      x =
         /*<<ephemeron.ml:400:51>>*/  /*<<ephemeron.ml:400:51>>*/ caml_call1
          /*<<ephemeron.ml:400:51>>*/ (Stdlib_Obj[23][9], t);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:400:70>>*/ }
    function set_data(t, d){
      /*<<ephemeron.ml:401:45>>*/ return  /*<<ephemeron.ml:401:45>>*/ caml_call2
-             /*<<ephemeron.ml:401:45>>*/ (Stdlib_Obj[23][11], t, d);
+             /*<<ephemeron.ml:401:45>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:401:75>>*/ ;
     /*<<ephemeron.ml:401:75>>*/ }
    function make(key, data){
     var eph =  /*<<ephemeron.ml:405:14>>*/ create(0);
      /*<<ephemeron.ml:406:4>>*/ set_data(eph, data);
      /*<<ephemeron.ml:407:4>>*/ set_key(eph, key);
-     /*<<ephemeron.ml:407:4>>*/ return eph;
+     /*<<ephemeron.ml:407:4>>*/ return eph /*<<ephemeron.ml:407:4>>*/ ;
     /*<<ephemeron.ml:408:7>>*/ }
    function query(eph, key){
     var match =  /*<<ephemeron.ml:411:10>>*/ get_key(eph);
-    if(! match)  /*<<ephemeron.ml:412:14>>*/ return 0;
+    if(! match)
+      /*<<ephemeron.ml:412:14>>*/ return 0 /*<<ephemeron.ml:412:14>>*/ ;
     var k = match[1];
-    return k === key ? get_data(eph) : 0;
+    return k === key ? get_data(eph) : 0 /*<<ephemeron.ml:414:20>>*/ ;
     /*<<ephemeron.ml:414:20>>*/ }
    function MakeSeeded$0(H){
     function create$0(k, d){
      var c =  /*<<ephemeron.ml:421:16>>*/ create(0);
       /*<<ephemeron.ml:422:8>>*/ set_data(c, d);
       /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
-      /*<<ephemeron.ml:423:8>>*/ return c;
+      /*<<ephemeron.ml:423:8>>*/ return c /*<<ephemeron.ml:423:8>>*/ ;
      /*<<ephemeron.ml:424:9>>*/ }
     var seeded_hash = H[2];
     function equal(c, k){
      var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
-     if(! match)  /*<<ephemeron.ml:430:18>>*/ return 2;
+     if(! match)
+       /*<<ephemeron.ml:430:18>>*/ return 2 /*<<ephemeron.ml:430:18>>*/ ;
      var k$0 = match[1];
       /*<<ephemeron.ml:432:15>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
                /*<<ephemeron.ml:432:15>>*/ (H[1], k, k$0)
              ? 0
-             : 1;
+             : 1 /*<<ephemeron.ml:432:76>>*/ ;
      /*<<ephemeron.ml:432:76>>*/ }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:435:8>>*/  /*<<ephemeron.ml:402:40>>*/ caml_call1
        /*<<ephemeron.ml:402:40>>*/ (Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:436:8>>*/ set_key(c, k);
-      /*<<ephemeron.ml:436:8>>*/ return set_data(c, d);
+      /*<<ephemeron.ml:436:8>>*/ return set_data(c, d) /*<<ephemeron.ml:437:20>>*/ ;
      /*<<ephemeron.ml:437:20>>*/ }
      /*<<ephemeron.ml:417:28>>*/ return MakeSeeded
             ([0,
@@ -35334,13 +35699,13 @@
               equal,
               get_data,
               set_key_data,
-              check_key]);
+              check_key]) /*<<ephemeron.ml:417:28>>*/ ;
    }
    function Make(H){
     var equal = H[1];
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:446:41>>*/ return  /*<<ephemeron.ml:446:41>>*/ caml_call1
-              /*<<ephemeron.ml:446:41>>*/ (H[2], x);
+              /*<<ephemeron.ml:446:41>>*/ (H[2], x) /*<<ephemeron.ml:446:49>>*/ ;
      /*<<ephemeron.ml:446:49>>*/ }
     var
      include = MakeSeeded$0([0, equal, seeded_hash]),
@@ -35363,7 +35728,7 @@
      stats_alive = include[18];
     function create(sz){
       /*<<ephemeron.ml:448:20>>*/ return  /*<<ephemeron.ml:448:20>>*/ caml_call2
-              /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, sz);
+              /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, sz) /*<<ephemeron.ml:448:43>>*/ ;
      /*<<ephemeron.ml:448:43>>*/ }
     function of_seq(i){
      var
@@ -35372,7 +35737,7 @@
           /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, 16);
       /*<<ephemeron.ml:451:6>>*/  /*<<ephemeron.ml:451:6>>*/ caml_call2
        /*<<ephemeron.ml:451:6>>*/ (replace_seq, tbl, i);
-      /*<<ephemeron.ml:451:6>>*/ return tbl;
+      /*<<ephemeron.ml:451:6>>*/ return tbl /*<<ephemeron.ml:451:6>>*/ ;
      /*<<ephemeron.ml:452:9>>*/ }
      /*<<ephemeron.ml:442:2>>*/ return [0,
             create,
@@ -35392,10 +35757,10 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive];
+            stats_alive] /*<<ephemeron.ml:442:2>>*/ ;
    }
    function make$0(param){
-     /*<<ephemeron.ml:459:18>>*/ return [0, 0];
+     /*<<ephemeron.ml:459:18>>*/ return [0, 0] /*<<ephemeron.ml:459:18>>*/ ;
     /*<<ephemeron.ml:459:24>>*/ }
    function add(b, k, d){
     var _Q_ = b[1];
@@ -35406,14 +35771,16 @@
     var match =  /*<<ephemeron.ml:463:12>>*/ get_key(e);
     if(match){
      var x = match[1];
-     if(x === k)  /*<<ephemeron.ml:464:30>>*/ return 1;
+     if(x === k)
+       /*<<ephemeron.ml:464:30>>*/ return 1 /*<<ephemeron.ml:464:30>>*/ ;
     }
-     /*<<ephemeron.ml:465:13>>*/ return 0;
+     /*<<ephemeron.ml:465:13>>*/ return 0 /*<<ephemeron.ml:465:13>>*/ ;
     /*<<ephemeron.ml:465:18>>*/ }
    function remove(b, k){
     var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:469:8>>*/ for(;;){
-     if(! l)  /*<<ephemeron.ml:470:16>>*/ return 0;
+     if(! l)
+       /*<<ephemeron.ml:470:16>>*/ return 0 /*<<ephemeron.ml:470:16>>*/ ;
      var h = l[1], t = l[2];
       /*<<ephemeron.ml:471:22>>*/ if(test_key(k, h)){
       b[1] =
@@ -35433,12 +35800,13 @@
          /*<<ephemeron.ml:477:12>>*/ (Stdlib_List[40],
          function(_P_){ /*<<?>>*/ return test_key(k, _P_);},
          b[1]);
-    if(! match)  /*<<ephemeron.ml:479:16>>*/ return 0;
+    if(! match)
+      /*<<ephemeron.ml:479:16>>*/ return 0 /*<<ephemeron.ml:479:16>>*/ ;
     var e = match[1];
-     /*<<ephemeron.ml:478:18>>*/ return get_data(e);
+     /*<<ephemeron.ml:478:18>>*/ return get_data(e) /*<<ephemeron.ml:479:20>>*/ ;
     /*<<ephemeron.ml:479:20>>*/ }
    function length(b){
-     /*<<ephemeron.ml:481:19>>*/ return caml_call1(Stdlib_List[1], b[1]);
+     /*<<ephemeron.ml:481:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:481:33>>*/ ;
     /*<<ephemeron.ml:481:33>>*/ }
    function clear(b){
      /*<<ephemeron.ml:482:18>>*/ b[1] = 0;
@@ -35446,57 +35814,60 @@
     /*<<ephemeron.ml:482:25>>*/ }
    function create$0(param){
      /*<<ephemeron.ml:491:35>>*/ return  /*<<ephemeron.ml:491:35>>*/ caml_call1
-             /*<<ephemeron.ml:491:35>>*/ (Stdlib_Obj[23][1], 2);
+             /*<<ephemeron.ml:491:35>>*/ (Stdlib_Obj[23][1], 2) /*<<ephemeron.ml:491:50>>*/ ;
     /*<<ephemeron.ml:491:50>>*/ }
    function get_key1(t){
     var
      x =
         /*<<ephemeron.ml:493:57>>*/  /*<<ephemeron.ml:493:57>>*/ caml_call2
          /*<<ephemeron.ml:493:57>>*/ (Stdlib_Obj[23][3], t, 0);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:493:77>>*/ }
    function set_key1(t, k){
      /*<<ephemeron.ml:495:4>>*/ return  /*<<ephemeron.ml:495:4>>*/ caml_call3
-             /*<<ephemeron.ml:495:4>>*/ (Stdlib_Obj[23][5], t, 0, k);
+             /*<<ephemeron.ml:495:4>>*/ (Stdlib_Obj[23][5], t, 0, k) /*<<ephemeron.ml:495:35>>*/ ;
     /*<<ephemeron.ml:495:35>>*/ }
    function get_key2(t){
     var
      x =
         /*<<ephemeron.ml:498:57>>*/  /*<<ephemeron.ml:498:57>>*/ caml_call2
          /*<<ephemeron.ml:498:57>>*/ (Stdlib_Obj[23][3], t, 1);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:498:77>>*/ }
    function set_key2(t, k){
      /*<<ephemeron.ml:500:4>>*/ return  /*<<ephemeron.ml:500:4>>*/ caml_call3
-             /*<<ephemeron.ml:500:4>>*/ (Stdlib_Obj[23][5], t, 1, k);
+             /*<<ephemeron.ml:500:4>>*/ (Stdlib_Obj[23][5], t, 1, k) /*<<ephemeron.ml:500:35>>*/ ;
     /*<<ephemeron.ml:500:35>>*/ }
    function get_data$0(t){
     var
      x =
         /*<<ephemeron.ml:503:56>>*/  /*<<ephemeron.ml:503:56>>*/ caml_call1
          /*<<ephemeron.ml:503:56>>*/ (Stdlib_Obj[23][9], t);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:503:75>>*/ }
    function set_data$0(t, d){
      /*<<ephemeron.ml:505:4>>*/ return  /*<<ephemeron.ml:505:4>>*/ caml_call2
-             /*<<ephemeron.ml:505:4>>*/ (Stdlib_Obj[23][11], t, d);
+             /*<<ephemeron.ml:505:4>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:505:34>>*/ ;
     /*<<ephemeron.ml:505:34>>*/ }
    function make$1(key1, key2, data){
     var eph =  /*<<ephemeron.ml:509:14>>*/ create$0(0);
      /*<<ephemeron.ml:510:4>>*/ set_data$0(eph, data);
      /*<<ephemeron.ml:511:4>>*/ set_key1(eph, key1);
      /*<<ephemeron.ml:512:4>>*/ set_key2(eph, key2);
-     /*<<ephemeron.ml:514:4>>*/ return eph;
+     /*<<ephemeron.ml:514:4>>*/ return eph /*<<ephemeron.ml:514:4>>*/ ;
     /*<<ephemeron.ml:514:7>>*/ }
    function query$0(eph, key1, key2){
     var match =  /*<<ephemeron.ml:517:10>>*/ get_key1(eph);
-    if(! match)  /*<<ephemeron.ml:518:14>>*/ return 0;
+    if(! match)
+      /*<<ephemeron.ml:518:14>>*/ return 0 /*<<ephemeron.ml:518:14>>*/ ;
     var k = match[1];
-    if(k !== key1)  /*<<ephemeron.ml:525:16>>*/ return 0;
+    if(k !== key1)
+      /*<<ephemeron.ml:525:16>>*/ return 0 /*<<ephemeron.ml:525:16>>*/ ;
     var match$0 =  /*<<ephemeron.ml:520:20>>*/ get_key2(eph);
-    if(! match$0)  /*<<ephemeron.ml:521:18>>*/ return 0;
+    if(! match$0)
+      /*<<ephemeron.ml:521:18>>*/ return 0 /*<<ephemeron.ml:521:18>>*/ ;
     var k$0 = match$0[1];
-    return k$0 === key2 ? get_data$0(eph) : 0;
+    return k$0 === key2 ? get_data$0(eph) : 0 /*<<ephemeron.ml:525:20>>*/ ;
     /*<<ephemeron.ml:525:20>>*/ }
    function MakeSeeded$1(H1, H2){
     function create(param, d){
@@ -35507,7 +35878,7 @@
       /*<<ephemeron.ml:535:8>>*/ set_data$0(c, d);
       /*<<ephemeron.ml:536:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:536:23>>*/ set_key2(c, k2);
-      /*<<ephemeron.ml:536:23>>*/ return c;
+      /*<<ephemeron.ml:536:23>>*/ return c /*<<ephemeron.ml:536:23>>*/ ;
     }
     function seeded_hash(seed, param){
      var
@@ -35521,7 +35892,7 @@
       /*<<ephemeron.ml:539:8>>*/ return  /*<<ephemeron.ml:539:8>>*/ caml_call2
               /*<<ephemeron.ml:539:8>>*/ (H1[2], seed, k1)
             + _O_
-            | 0;
+            | 0 /*<<ephemeron.ml:539:8>>*/ ;
     }
     function equal(c, param){
      var
@@ -35537,10 +35908,10 @@
         &&
           /*<<ephemeron.ml:544:34>>*/ caml_call2
            /*<<ephemeron.ml:544:34>>*/ (H2[1], k2, k2$0))
-        /*<<ephemeron.ml:545:17>>*/ return 0;
-       /*<<ephemeron.ml:545:41>>*/ return 1;
+        /*<<ephemeron.ml:545:17>>*/ return 0 /*<<ephemeron.ml:545:17>>*/ ;
+       /*<<ephemeron.ml:545:41>>*/ return 1 /*<<ephemeron.ml:545:41>>*/ ;
      }
-      /*<<ephemeron.ml:542:32>>*/ return 2;
+      /*<<ephemeron.ml:542:32>>*/ return 2 /*<<ephemeron.ml:542:32>>*/ ;
     }
     function set_key_data(c, param, d){
      var k2 = param[2], k1 = param[1];
@@ -35548,7 +35919,7 @@
        /*<<ephemeron.ml:506:45>>*/ (Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:549:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:549:23>>*/ set_key2(c, k2);
-      /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d);
+      /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d) /*<<ephemeron.ml:549:23>>*/ ;
     }
     function check_key(c){
      var
@@ -35558,7 +35929,7 @@
       /*<<ephemeron.ml:551:24>>*/ return _N_
              ?  /*<<ephemeron.ml:501:45>>*/ caml_call2
                 /*<<ephemeron.ml:501:45>>*/ (Stdlib_Obj[23][7], c, 1)
-             : _N_;
+             : _N_ /*<<ephemeron.ml:551:52>>*/ ;
      /*<<ephemeron.ml:551:52>>*/ }
      /*<<ephemeron.ml:530:28>>*/ return MakeSeeded
             ([0,
@@ -35567,18 +35938,18 @@
               equal,
               get_data$0,
               set_key_data,
-              check_key]);
+              check_key]) /*<<ephemeron.ml:530:28>>*/ ;
    }
    function Make$0(H1, H2){
     var equal = H2[1];
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:566:43>>*/ return  /*<<ephemeron.ml:566:43>>*/ caml_call1
-              /*<<ephemeron.ml:566:43>>*/ (H2[2], x);
+              /*<<ephemeron.ml:566:43>>*/ (H2[2], x) /*<<ephemeron.ml:566:52>>*/ ;
      /*<<ephemeron.ml:566:52>>*/ }
     var equal$0 = H1[1];
     function seeded_hash$0(seed, x){
       /*<<ephemeron.ml:561:43>>*/ return  /*<<ephemeron.ml:561:43>>*/ caml_call1
-              /*<<ephemeron.ml:561:43>>*/ (H1[2], x);
+              /*<<ephemeron.ml:561:43>>*/ (H1[2], x) /*<<ephemeron.ml:561:52>>*/ ;
      /*<<ephemeron.ml:561:52>>*/ }
     var
      include =
@@ -35602,7 +35973,7 @@
      stats_alive = include[18];
     function create(sz){
       /*<<ephemeron.ml:568:20>>*/ return  /*<<ephemeron.ml:568:20>>*/ caml_call2
-              /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, sz);
+              /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, sz) /*<<ephemeron.ml:568:43>>*/ ;
      /*<<ephemeron.ml:568:43>>*/ }
     function of_seq(i){
      var
@@ -35611,7 +35982,7 @@
           /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, 16);
       /*<<ephemeron.ml:571:6>>*/  /*<<ephemeron.ml:571:6>>*/ caml_call2
        /*<<ephemeron.ml:571:6>>*/ (replace_seq, tbl, i);
-      /*<<ephemeron.ml:571:6>>*/ return tbl;
+      /*<<ephemeron.ml:571:6>>*/ return tbl /*<<ephemeron.ml:571:6>>*/ ;
      /*<<ephemeron.ml:572:9>>*/ }
      /*<<ephemeron.ml:556:2>>*/ return [0,
             create,
@@ -35631,10 +36002,10 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive];
+            stats_alive] /*<<ephemeron.ml:556:2>>*/ ;
    }
    function make$2(param){
-     /*<<ephemeron.ml:579:18>>*/ return [0, 0];
+     /*<<ephemeron.ml:579:18>>*/ return [0, 0] /*<<ephemeron.ml:579:18>>*/ ;
     /*<<ephemeron.ml:579:24>>*/ }
    function add$0(b, k1, k2, d){
     var _L_ = b[1];
@@ -35647,14 +36018,16 @@
      match$0 =  /*<<ephemeron.ml:583:24>>*/ get_key2(e);
     if(match && match$0){
      var x2 = match$0[1], x1 = match[1];
-     if(x1 === k1 && x2 === k2)  /*<<ephemeron.ml:584:54>>*/ return 1;
+     if(x1 === k1 && x2 === k2)
+       /*<<ephemeron.ml:584:54>>*/ return 1 /*<<ephemeron.ml:584:54>>*/ ;
     }
-     /*<<ephemeron.ml:585:13>>*/ return 0;
+     /*<<ephemeron.ml:585:13>>*/ return 0 /*<<ephemeron.ml:585:13>>*/ ;
     /*<<ephemeron.ml:585:18>>*/ }
    function remove$0(b, k1, k2){
     var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:589:8>>*/ for(;;){
-     if(! l)  /*<<ephemeron.ml:590:16>>*/ return 0;
+     if(! l)
+       /*<<ephemeron.ml:590:16>>*/ return 0 /*<<ephemeron.ml:590:16>>*/ ;
      var h = l[1], t = l[2];
       /*<<ephemeron.ml:591:22>>*/ if(test_keys(k1, k2, h)){
       b[1] =
@@ -35674,12 +36047,13 @@
          /*<<ephemeron.ml:597:12>>*/ (Stdlib_List[40],
          function(_K_){ /*<<?>>*/ return test_keys(k1, k2, _K_);},
          b[1]);
-    if(! match)  /*<<ephemeron.ml:599:16>>*/ return 0;
+    if(! match)
+      /*<<ephemeron.ml:599:16>>*/ return 0 /*<<ephemeron.ml:599:16>>*/ ;
     var e = match[1];
-     /*<<ephemeron.ml:598:18>>*/ return get_data$0(e);
+     /*<<ephemeron.ml:598:18>>*/ return get_data$0(e) /*<<ephemeron.ml:599:20>>*/ ;
     /*<<ephemeron.ml:599:20>>*/ }
    function length$0(b){
-     /*<<ephemeron.ml:601:19>>*/ return caml_call1(Stdlib_List[1], b[1]);
+     /*<<ephemeron.ml:601:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:601:33>>*/ ;
     /*<<ephemeron.ml:601:33>>*/ }
    function clear$0(b){
      /*<<ephemeron.ml:602:18>>*/ b[1] = 0;
@@ -35687,33 +36061,33 @@
     /*<<ephemeron.ml:602:25>>*/ }
    function create$1(n){
      /*<<ephemeron.ml:611:29>>*/ return  /*<<ephemeron.ml:611:29>>*/ caml_call1
-             /*<<ephemeron.ml:611:29>>*/ (Stdlib_Obj[23][1], n);
+             /*<<ephemeron.ml:611:29>>*/ (Stdlib_Obj[23][1], n) /*<<ephemeron.ml:611:44>>*/ ;
     /*<<ephemeron.ml:611:44>>*/ }
    function length$1(k){
      /*<<ephemeron.ml:612:35>>*/ return  /*<<ephemeron.ml:612:35>>*/ caml_call1
-             /*<<ephemeron.ml:612:35>>*/ (Stdlib_Obj[23][2], k);
+             /*<<ephemeron.ml:612:35>>*/ (Stdlib_Obj[23][2], k) /*<<ephemeron.ml:612:50>>*/ ;
     /*<<ephemeron.ml:612:50>>*/ }
    function get_key$0(t, n){
     var
      x =
         /*<<ephemeron.ml:614:58>>*/  /*<<ephemeron.ml:614:58>>*/ caml_call2
          /*<<ephemeron.ml:614:58>>*/ (Stdlib_Obj[23][3], t, n);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:614:78>>*/ }
    function set_key$0(t, n, k){
      /*<<ephemeron.ml:616:4>>*/ return  /*<<ephemeron.ml:616:4>>*/ caml_call3
-             /*<<ephemeron.ml:616:4>>*/ (Stdlib_Obj[23][5], t, n, k);
+             /*<<ephemeron.ml:616:4>>*/ (Stdlib_Obj[23][5], t, n, k) /*<<ephemeron.ml:616:35>>*/ ;
     /*<<ephemeron.ml:616:35>>*/ }
    function get_data$1(t){
     var
      x =
         /*<<ephemeron.ml:619:51>>*/  /*<<ephemeron.ml:619:51>>*/ caml_call1
          /*<<ephemeron.ml:619:51>>*/ (Stdlib_Obj[23][9], t);
-     /*<<ephemeron.ml:388:51>>*/ return x;
+     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
     /*<<ephemeron.ml:619:70>>*/ }
    function set_data$1(t, d){
      /*<<ephemeron.ml:620:45>>*/ return  /*<<ephemeron.ml:620:45>>*/ caml_call2
-             /*<<ephemeron.ml:620:45>>*/ (Stdlib_Obj[23][11], t, d);
+             /*<<ephemeron.ml:620:45>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:620:75>>*/ ;
     /*<<ephemeron.ml:620:75>>*/ }
    function make$3(keys, data){
     var l = keys.length - 1, eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
@@ -35729,7 +36103,7 @@
       i = _J_;
      }
     }
-     /*<<ephemeron.ml:628:4>>*/ return eph;
+     /*<<ephemeron.ml:628:4>>*/ return eph /*<<ephemeron.ml:628:4>>*/ ;
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
     var l =  /*<<ephemeron.ml:631:12>>*/ length$1(eph);
@@ -35757,11 +36131,12 @@
       }
      }
      var _E_ =  /*<<ephemeron.ml:640:6>>*/ get_data$1(eph);
-      /*<<ephemeron.ml:640:6>>*/ return _E_;
+      /*<<ephemeron.ml:640:6>>*/ return _E_ /*<<ephemeron.ml:640:6>>*/ ;
     }
     catch(_G_){
      var _B_ = caml_wrap_exception(_G_);
-     if(_B_ === Stdlib[3])  /*<<ephemeron.ml:641:17>>*/ return 0;
+     if(_B_ === Stdlib[3])
+       /*<<ephemeron.ml:641:17>>*/ return 0 /*<<ephemeron.ml:641:17>>*/ ;
      throw caml_maybe_attach_backtrace(_B_, 0);
     }
     /*<<ephemeron.ml:641:21>>*/ }
@@ -35780,7 +36155,7 @@
        i = _A_;
       }
      }
-      /*<<ephemeron.ml:653:8>>*/ return c;
+      /*<<ephemeron.ml:653:8>>*/ return c /*<<ephemeron.ml:653:8>>*/ ;
      /*<<ephemeron.ml:653:9>>*/ }
     function seeded_hash(seed, k){
      var
@@ -35809,12 +36184,15 @@
      /*<<ephemeron.ml:659:10>>*/ }
     function equal(c, k){
      var len = k.length - 1, len$0 =  /*<<ephemeron.ml:662:19>>*/ length$1(c);
-     if(len !== len$0)  /*<<ephemeron.ml:663:28>>*/ return 1;
+     if(len !== len$0)
+       /*<<ephemeron.ml:663:28>>*/ return 1 /*<<ephemeron.ml:663:28>>*/ ;
      var i$1 =  /*<<ephemeron.ml:675:10>>*/ len - 1 | 0, i = i$1;
       /*<<ephemeron.ml:666:12>>*/ for(;;){
-      if(0 > i)  /*<<ephemeron.ml:666:26>>*/ return 0;
+      if(0 > i)
+        /*<<ephemeron.ml:666:26>>*/ return 0 /*<<ephemeron.ml:666:26>>*/ ;
       var match =  /*<<ephemeron.ml:668:20>>*/ get_key$0(c, i);
-      if(! match)  /*<<ephemeron.ml:669:24>>*/ return 2;
+      if(! match)
+        /*<<ephemeron.ml:669:24>>*/ return 2 /*<<ephemeron.ml:669:24>>*/ ;
       var
        ki = match[1],
        _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
@@ -35822,7 +36200,7 @@
        (!
          /*<<ephemeron.ml:671:21>>*/ caml_call2
           /*<<ephemeron.ml:671:21>>*/ (H[1], _s_, ki))
-        /*<<ephemeron.ml:673:23>>*/ return 1;
+        /*<<ephemeron.ml:673:23>>*/ return 1 /*<<ephemeron.ml:673:23>>*/ ;
       var i$0 =  /*<<ephemeron.ml:672:23>>*/ i - 1 | 0;
       i = i$0;
      }
@@ -35841,7 +36219,7 @@
        i = _r_;
       }
      }
-      /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d);
+      /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d) /*<<ephemeron.ml:682:20>>*/ ;
      /*<<ephemeron.ml:682:20>>*/ }
     function check_key(c){
      var i$1 =  /*<<ephemeron.ml:686:17>>*/ length$1(c) - 1 | 0, i = i$1;
@@ -35871,13 +36249,13 @@
               equal,
               get_data$1,
               set_key_data,
-              check_key]);
+              check_key]) /*<<ephemeron.ml:644:28>>*/ ;
    }
    function Make$1(H){
     var equal = H[1];
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:694:41>>*/ return  /*<<ephemeron.ml:694:41>>*/ caml_call1
-              /*<<ephemeron.ml:694:41>>*/ (H[2], x);
+              /*<<ephemeron.ml:694:41>>*/ (H[2], x) /*<<ephemeron.ml:694:49>>*/ ;
      /*<<ephemeron.ml:694:49>>*/ }
     var
      include = MakeSeeded$2([0, equal, seeded_hash]),
@@ -35900,7 +36278,7 @@
      stats_alive = include[18];
     function create(sz){
       /*<<ephemeron.ml:696:20>>*/ return  /*<<ephemeron.ml:696:20>>*/ caml_call2
-              /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, sz);
+              /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, sz) /*<<ephemeron.ml:696:43>>*/ ;
      /*<<ephemeron.ml:696:43>>*/ }
     function of_seq(i){
      var
@@ -35909,7 +36287,7 @@
           /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, 16);
       /*<<ephemeron.ml:699:6>>*/  /*<<ephemeron.ml:699:6>>*/ caml_call2
        /*<<ephemeron.ml:699:6>>*/ (replace_seq, tbl, i);
-      /*<<ephemeron.ml:699:6>>*/ return tbl;
+      /*<<ephemeron.ml:699:6>>*/ return tbl /*<<ephemeron.ml:699:6>>*/ ;
      /*<<ephemeron.ml:700:9>>*/ }
      /*<<ephemeron.ml:690:2>>*/ return [0,
             create,
@@ -35929,10 +36307,10 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive];
+            stats_alive] /*<<ephemeron.ml:690:2>>*/ ;
    }
    function make$4(param){
-     /*<<ephemeron.ml:707:18>>*/ return [0, 0];
+     /*<<ephemeron.ml:707:18>>*/ return [0, 0] /*<<ephemeron.ml:707:18>>*/ ;
     /*<<ephemeron.ml:707:24>>*/ }
    function add$1(b, k, d){
     var _k_ = b[1];
@@ -35963,18 +36341,20 @@
       }
      }
      var _h_ =  /*<<ephemeron.ml:718:8>>*/ 1;
-      /*<<ephemeron.ml:718:8>>*/ return _h_;
+      /*<<ephemeron.ml:718:8>>*/ return _h_ /*<<ephemeron.ml:718:8>>*/ ;
     }
     catch(_j_){
      var _e_ = caml_wrap_exception(_j_);
-     if(_e_ === Stdlib[3])  /*<<ephemeron.ml:719:19>>*/ return 0;
+     if(_e_ === Stdlib[3])
+       /*<<ephemeron.ml:719:19>>*/ return 0 /*<<ephemeron.ml:719:19>>*/ ;
      throw caml_maybe_attach_backtrace(_e_, 0);
     }
     /*<<ephemeron.ml:719:24>>*/ }
    function remove$1(b, k){
     var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:723:8>>*/ for(;;){
-     if(! l)  /*<<ephemeron.ml:724:16>>*/ return 0;
+     if(! l)
+       /*<<ephemeron.ml:724:16>>*/ return 0 /*<<ephemeron.ml:724:16>>*/ ;
      var h = l[1], t = l[2];
       /*<<ephemeron.ml:725:22>>*/ if(test_keys$0(k, h)){
       b[1] =
@@ -35994,12 +36374,13 @@
          /*<<ephemeron.ml:731:12>>*/ (Stdlib_List[40],
          function(_d_){ /*<<?>>*/ return test_keys$0(k, _d_);},
          b[1]);
-    if(! match)  /*<<ephemeron.ml:733:16>>*/ return 0;
+    if(! match)
+      /*<<ephemeron.ml:733:16>>*/ return 0 /*<<ephemeron.ml:733:16>>*/ ;
     var e = match[1];
-     /*<<ephemeron.ml:732:18>>*/ return get_data$1(e);
+     /*<<ephemeron.ml:732:18>>*/ return get_data$1(e) /*<<ephemeron.ml:733:20>>*/ ;
     /*<<ephemeron.ml:733:20>>*/ }
    function length$2(b){
-     /*<<ephemeron.ml:735:19>>*/ return caml_call1(Stdlib_List[1], b[1]);
+     /*<<ephemeron.ml:735:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:735:33>>*/ ;
     /*<<ephemeron.ml:735:33>>*/ }
    function clear$1(b){
      /*<<ephemeron.ml:736:18>>*/ b[1] = 0;
@@ -36125,12 +36506,12 @@
     Stdlib_Sys = global_data.Stdlib__Sys;
    function generic_basename(is_dir_sep, current_dir_name, name){
      /*<<filename.ml:37:2>>*/ if(name === cst$19)
-      /*<<filename.ml:47:7>>*/ return current_dir_name;
+      /*<<filename.ml:47:7>>*/ return current_dir_name /*<<filename.ml:47:7>>*/ ;
     var n$3 = caml_ml_string_length(name) - 1 | 0, n = n$3;
      /*<<filename.ml:38:4>>*/ for(;;){
      if(0 > n)
        /*<<filename.ml:38:18>>*/ return  /*<<filename.ml:38:18>>*/ caml_call3
-               /*<<filename.ml:38:18>>*/ (Stdlib_String[16], name, 0, 1);
+               /*<<filename.ml:38:18>>*/ (Stdlib_String[16], name, 0, 1) /*<<filename.ml:48:40>>*/ ;
       /*<<filename.ml:39:12>>*/ if
       (!
         /*<<filename.ml:39:12>>*/ caml_call2
@@ -36143,7 +36524,7 @@
      /*<<filename.ml:42:4>>*/ for(;;){
      if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return  /*<<filename.ml:42:18>>*/ caml_call3
-               /*<<filename.ml:42:18>>*/ (Stdlib_String[16], name, 0, p);
+               /*<<filename.ml:42:18>>*/ (Stdlib_String[16], name, 0, p) /*<<filename.ml:48:40>>*/ ;
       /*<<filename.ml:43:12>>*/ if
       ( /*<<filename.ml:43:12>>*/ caml_call2
          /*<<filename.ml:43:12>>*/ (is_dir_sep, name, n$1))
@@ -36151,19 +36532,19 @@
                /*<<filename.ml:37:2>>*/ (Stdlib_String[16],
                name,
                n$1 + 1 | 0,
-               (p - n$1 | 0) - 1 | 0);
+               (p - n$1 | 0) - 1 | 0) /*<<filename.ml:48:40>>*/ ;
      var n$2 = n$1 - 1 | 0;
      n$1 = n$2;
     }
     /*<<filename.ml:48:40>>*/ }
    function generic_dirname(is_dir_sep, current_dir_name, name){
      /*<<filename.ml:55:2>>*/ if(name === cst$19)
-      /*<<filename.ml:69:7>>*/ return current_dir_name;
+      /*<<filename.ml:69:7>>*/ return current_dir_name /*<<filename.ml:69:7>>*/ ;
     var n$5 = caml_ml_string_length(name) - 1 | 0, n = n$5;
      /*<<filename.ml:56:4>>*/ for(;;){
      if(0 > n)
        /*<<filename.ml:56:18>>*/ return  /*<<filename.ml:56:18>>*/ caml_call3
-               /*<<filename.ml:56:18>>*/ (Stdlib_String[16], name, 0, 1);
+               /*<<filename.ml:56:18>>*/ (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
       /*<<filename.ml:57:12>>*/ if
       (!
         /*<<filename.ml:57:12>>*/ caml_call2
@@ -36186,7 +36567,7 @@
      /*<<filename.ml:64:4>>*/ for(;;){
      if(0 > n$3)
        /*<<filename.ml:64:18>>*/ return  /*<<filename.ml:64:18>>*/ caml_call3
-               /*<<filename.ml:64:18>>*/ (Stdlib_String[16], name, 0, 1);
+               /*<<filename.ml:64:18>>*/ (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
       /*<<filename.ml:65:12>>*/ if
       (!
         /*<<filename.ml:65:12>>*/ caml_call2
@@ -36195,7 +36576,7 @@
                /*<<filename.ml:66:9>>*/ (Stdlib_String[16],
                name,
                0,
-               n$3 + 1 | 0);
+               n$3 + 1 | 0) /*<<filename.ml:70:44>>*/ ;
      var n$4 =  /*<<filename.ml:65:35>>*/ n$3 - 1 | 0;
      n$3 = n$4;
     }
@@ -36251,17 +36632,18 @@
     }
     else
      var _aG_ = _aC_;
-     /*<<filename.ml:101:31>>*/ return _aG_;
+     /*<<filename.ml:101:31>>*/ return _aG_ /*<<filename.ml:101:31>>*/ ;
     /*<<filename.ml:101:57>>*/ }
    function check_suffix(name, suff){
      /*<<filename.ml:103:4>>*/ return  /*<<filename.ml:103:4>>*/ caml_call2
-             /*<<filename.ml:103:4>>*/ (Stdlib_String[12], suff, name);
+             /*<<filename.ml:103:4>>*/ (Stdlib_String[12], suff, name) /*<<filename.ml:103:38>>*/ ;
     /*<<filename.ml:103:38>>*/ }
    function chop_suffix_opt(suffix, filename){
     var
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
-    if(len_s > len_f)  /*<<filename.ml:114:6>>*/ return 0;
+    if(len_s > len_f)
+      /*<<filename.ml:114:6>>*/ return 0 /*<<filename.ml:114:6>>*/ ;
     var
      r =
         /*<<filename.ml:108:14>>*/  /*<<filename.ml:108:14>>*/ caml_call3
@@ -36276,7 +36658,7 @@
                 filename,
                 0,
                 len_f - len_s | 0)]
-            : 0;
+            : 0 /*<<filename.ml:114:10>>*/ ;
     /*<<filename.ml:114:10>>*/ }
    var
     dummy = 0,
@@ -36340,7 +36722,7 @@
      /*<<filename.ml:25:2>>*/  /*<<filename.ml:25:2>>*/ caml_call2
       /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[12], b, 39);
      /*<<filename.ml:25:2>>*/ return  /*<<filename.ml:25:2>>*/ caml_call1
-             /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[2], b);
+             /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[2], b) /*<<filename.ml:25:2>>*/ ;
    }
    function quote_command(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:120:4>>*/ if(stderr){
@@ -36392,7 +36774,7 @@
         /*<<filename.ml:120:4>>*/  /*<<filename.ml:120:4>>*/ caml_call2
          /*<<filename.ml:120:4>>*/ (Stdlib_String[7], cst$1, _au_);
      /*<<filename.ml:121:6>>*/ return  /*<<filename.ml:121:6>>*/ caml_call2
-             /*<<filename.ml:121:6>>*/ (Stdlib[28], _av_, _at_);
+             /*<<filename.ml:121:6>>*/ (Stdlib[28], _av_, _at_) /*<<filename.ml:125:69>>*/ ;
     /*<<filename.ml:125:69>>*/ }
    function basename(_al_){
      /*<<?>>*/ return generic_basename(is_dir_sep, current_dir_name, _al_);
@@ -36529,7 +36911,7 @@
     }
     else
      var _aa_ = _U_;
-     /*<<filename.ml:145:31>>*/ return _aa_;
+     /*<<filename.ml:145:31>>*/ return _aa_ /*<<filename.ml:145:31>>*/ ;
     /*<<filename.ml:145:58>>*/ }
    function check_suffix$0(name, suff){
     var
@@ -36553,13 +36935,14 @@
          : 0;
     else
      var _T_ = _R_;
-     /*<<filename.ml:150:4>>*/ return _T_;
+     /*<<filename.ml:150:4>>*/ return _T_ /*<<filename.ml:150:4>>*/ ;
     /*<<filename.ml:150:59>>*/ }
    function chop_suffix_opt$0(suffix, filename){
     var
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
-    if(len_s > len_f)  /*<<filename.ml:161:6>>*/ return 0;
+    if(len_s > len_f)
+      /*<<filename.ml:161:6>>*/ return 0 /*<<filename.ml:161:6>>*/ ;
     var
      r =
         /*<<filename.ml:155:14>>*/  /*<<filename.ml:155:14>>*/ caml_call3
@@ -36579,7 +36962,7 @@
                 filename,
                 0,
                 len_f - len_s | 0)]
-            : 0;
+            : 0 /*<<filename.ml:161:10>>*/ ;
     /*<<filename.ml:161:10>>*/ }
    try{
     var
@@ -36606,7 +36989,7 @@
       /*<<filename.ml:171:6>>*/ for(;;){
       if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return  /*<<filename.ml:171:20>>*/ caml_call2
-                /*<<filename.ml:171:20>>*/ (Stdlib_Buffer[12], b, 34);
+                /*<<filename.ml:171:20>>*/ (Stdlib_Buffer[12], b, 34) /*<<filename.ml:175:48>>*/ ;
       var
        c =
           /*<<filename.ml:172:12>>*/  /*<<filename.ml:172:12>>*/ caml_string_get
@@ -36615,17 +36998,17 @@
        var _N_ = 0;
         /*<<filename.ml:173:16>>*/ if(counter >= 50)
          /*<<filename.ml:173:16>>*/ return  /*<<filename.ml:173:16>>*/ caml_trampoline_return
-                 /*<<filename.ml:173:16>>*/ (loop_bs, [0, _N_, i$0]);
+                 /*<<filename.ml:173:16>>*/ (loop_bs, [0, _N_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:173:16>>*/ return loop_bs(counter$1, _N_, i$0);
+        /*<<filename.ml:173:16>>*/ return loop_bs(counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
       if(92 === c){
        var _O_ = 0;
         /*<<filename.ml:174:16>>*/ if(counter >= 50)
          /*<<filename.ml:174:16>>*/ return  /*<<filename.ml:174:16>>*/ caml_trampoline_return
-                 /*<<filename.ml:174:16>>*/ (loop_bs, [0, _O_, i$0]);
+                 /*<<filename.ml:174:16>>*/ (loop_bs, [0, _O_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:174:16>>*/ return loop_bs(counter$0, _O_, i$0);
+        /*<<filename.ml:174:16>>*/ return loop_bs(counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
        /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ caml_call2
         /*<<filename.ml:175:16>>*/ (Stdlib_Buffer[12], b, c);
@@ -36640,7 +37023,7 @@
       if(i$0 === l){
         /*<<filename.ml:178:8>>*/  /*<<filename.ml:178:8>>*/ caml_call2
          /*<<filename.ml:178:8>>*/ (Stdlib_Buffer[12], b, 34);
-        /*<<filename.ml:178:8>>*/ return add_bs(n$0);
+        /*<<filename.ml:178:8>>*/ return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
       }
       var
        match =
@@ -36653,17 +37036,17 @@
        var _M_ =  /*<<filename.ml:182:34>>*/ i$0 + 1 | 0;
         /*<<filename.ml:182:34>>*/ if(counter >= 50)
          /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ caml_trampoline_return
-                 /*<<filename.ml:182:34>>*/ (loop$0, [0, _M_]);
+                 /*<<filename.ml:182:34>>*/ (loop$0, [0, _M_]) /*<<filename.ml:185:9>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:182:34>>*/ return loop$0(counter$1, _M_);
+        /*<<filename.ml:182:34>>*/ return loop$0(counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
       }
       if(92 !== match){
         /*<<filename.ml:184:18>>*/ add_bs(n$0);
         /*<<filename.ml:184:18>>*/ if(counter >= 50)
          /*<<filename.ml:184:18>>*/ return  /*<<filename.ml:184:18>>*/ caml_trampoline_return
-                 /*<<filename.ml:184:18>>*/ (loop$0, [0, i$0]);
+                 /*<<filename.ml:184:18>>*/ (loop$0, [0, i$0]) /*<<filename.ml:185:9>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0);
+        /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
       }
       var i$1 =  /*<<filename.ml:183:18>>*/ i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
@@ -36685,7 +37068,7 @@
      /*<<filename.ml:186:66>>*/ }
      /*<<filename.ml:188:4>>*/ loop(0);
      /*<<filename.ml:188:4>>*/ return  /*<<filename.ml:188:4>>*/ caml_call1
-             /*<<filename.ml:188:4>>*/ (Stdlib_Buffer[2], b);
+             /*<<filename.ml:188:4>>*/ (Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
     /*<<filename.ml:189:21>>*/ }
    function quote_cmd_filename(f){
      /*<<filename.ml:222:4>>*/ if
@@ -36694,8 +37077,8 @@
         /*<<filename.ml:222:7>>*/ (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:57>>*/ return 0 /*<<filename.ml:222:57>>*/ ;
+          /*<<filename.ml:222:45>>*/ return 1 /*<<filename.ml:222:45>>*/ ;
          /*<<filename.ml:222:63>>*/ },
         f))
       /*<<filename.ml:224:12>>*/ return  /*<<filename.ml:224:12>>*/ caml_call2
@@ -36704,7 +37087,7 @@
                 /*<<filename.ml:225:23>>*/ (Stdlib_String[7],
                 cst$7,
                 [0, cst$6, [0, f, _c_]])
-             : f;
+             : f /*<<filename.ml:227:7>>*/ ;
     var
      _J_ =
         /*<<filename.ml:223:15>>*/  /*<<filename.ml:223:15>>*/ caml_call2
@@ -36712,7 +37095,7 @@
          cst_Filename_quote_command_bad,
          f);
      /*<<filename.ml:223:15>>*/ return  /*<<filename.ml:223:15>>*/ caml_call1
-             /*<<filename.ml:223:15>>*/ (Stdlib[2], _J_);
+             /*<<filename.ml:223:15>>*/ (Stdlib[2], _J_) /*<<filename.ml:227:7>>*/ ;
     /*<<filename.ml:227:7>>*/ }
    function quote_command$0(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:232:4>>*/ if(stderr){
@@ -36786,10 +37169,10 @@
          /*<<filename.ml:216:12>>*/  /*<<filename.ml:216:12>>*/ caml_call2
           /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, 94);
          /*<<filename.ml:216:12>>*/ return  /*<<filename.ml:216:12>>*/ caml_call2
-                 /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, c);
+                 /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
        }
         /*<<filename.ml:218:12>>*/ return  /*<<filename.ml:218:12>>*/ caml_call2
-                /*<<filename.ml:218:12>>*/ (Stdlib_Buffer[12], b, c);
+                /*<<filename.ml:218:12>>*/ (Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
        /*<<filename.ml:218:31>>*/ },
       s);
     var
@@ -36805,7 +37188,7 @@
         cst$12,
         [0, quote_cmd_filename(cmd), _F_]];
      /*<<filename.ml:232:21>>*/ return  /*<<filename.ml:232:21>>*/ caml_call2
-             /*<<filename.ml:232:21>>*/ (Stdlib_String[7], cst$13, _G_);
+             /*<<filename.ml:232:21>>*/ (Stdlib_String[7], cst$13, _G_) /*<<filename.ml:244:5>>*/ ;
     /*<<filename.ml:244:5>>*/ }
    function drive_and_path(s){
     var
@@ -36848,7 +37231,7 @@
     else
      var _u_ = _s_;
      /*<<filename.ml:252:7>>*/ if(! _u_)
-      /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
+      /*<<filename.ml:254:9>>*/ return [0, cst$17, s] /*<<filename.ml:254:9>>*/ ;
     var
      _v_ =
         /*<<filename.ml:253:28>>*/  /*<<filename.ml:253:28>>*/ caml_call3
@@ -36859,7 +37242,7 @@
      /*<<filename.ml:253:9>>*/ return [0,
              /*<<filename.ml:253:10>>*/ caml_call3
               /*<<filename.ml:253:10>>*/ (Stdlib_String[16], s, 0, 2),
-            _v_];
+            _v_] /*<<filename.ml:253:9>>*/ ;
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
     var
@@ -36870,12 +37253,12 @@
         /*<<filename.ml:257:14>>*/ generic_dirname
         (is_dir_sep$0, current_dir_name$0, path);
      /*<<filename.ml:258:4>>*/ return  /*<<filename.ml:258:4>>*/ caml_call2
-             /*<<filename.ml:258:4>>*/ (Stdlib[28], drive, dir);
+             /*<<filename.ml:258:4>>*/ (Stdlib[28], drive, dir) /*<<filename.ml:258:15>>*/ ;
     /*<<filename.ml:258:15>>*/ }
    function basename$0(s){
     var path = drive_and_path(s)[2];
      /*<<filename.ml:261:4>>*/ return generic_basename
-            (is_dir_sep$0, current_dir_name$0, path);
+            (is_dir_sep$0, current_dir_name$0, path) /*<<filename.ml:261:53>>*/ ;
     /*<<filename.ml:261:53>>*/ }
    var
     Win32 =
@@ -36942,10 +37325,10 @@
          /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ caml_call2
           /*<<filename.ml:293:17>>*/ (Stdlib[28], dir_sep$2, filename);
       /*<<filename.ml:293:17>>*/ return  /*<<filename.ml:293:17>>*/ caml_call2
-              /*<<filename.ml:293:17>>*/ (Stdlib[28], dirname, _p_);
+              /*<<filename.ml:293:17>>*/ (Stdlib[28], dirname, _p_) /*<<filename.ml:293:35>>*/ ;
     }
      /*<<filename.ml:292:7>>*/ return  /*<<filename.ml:292:7>>*/ caml_call2
-             /*<<filename.ml:292:7>>*/ (Stdlib[28], dirname, filename);
+             /*<<filename.ml:292:7>>*/ (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
     /*<<filename.ml:293:35>>*/ }
    function chop_suffix(name, suff){
      /*<<filename.ml:296:2>>*/ return check_suffix$1(name, suff)
@@ -36955,7 +37338,7 @@
                0,
                caml_ml_string_length(name) - caml_ml_string_length(suff) | 0)
             :  /*<<filename.ml:298:7>>*/ caml_call1
-               /*<<filename.ml:298:7>>*/ (Stdlib[1], cst_Filename_chop_suffix);
+               /*<<filename.ml:298:7>>*/ (Stdlib[1], cst_Filename_chop_suffix) /*<<filename.ml:298:41>>*/ ;
     /*<<filename.ml:298:41>>*/ }
    function extension_len(name){
     var i$3 = caml_ml_string_length(name) - 1 | 0, i0 = i$3;
@@ -36971,7 +37354,7 @@
       i0 = i$2;
       continue;
      }
-      /*<<filename.ml:307:39>>*/ return 0;
+      /*<<filename.ml:307:39>>*/ return 0 /*<<filename.ml:307:39>>*/ ;
     }
     var i$1 =  /*<<filename.ml:308:32>>*/ i0 - 1 | 0, i = i$1;
      /*<<filename.ml:302:4>>*/ for(;;){
@@ -36986,7 +37369,7 @@
       i = i$0;
       continue;
      }
-      /*<<filename.ml:302:39>>*/ return 0;
+      /*<<filename.ml:302:39>>*/ return 0 /*<<filename.ml:302:39>>*/ ;
     }
     /*<<filename.ml:311:37>>*/ }
    function extension(name){
@@ -36997,7 +37380,7 @@
                /*<<filename.ml:315:24>>*/ (Stdlib_String[16],
                name,
                caml_ml_string_length(name) - l | 0,
-               l);
+               l) /*<<filename.ml:315:66>>*/ ;
     /*<<filename.ml:315:66>>*/ }
    function chop_extension(name){
     var l =  /*<<filename.ml:318:10>>*/ extension_len(name);
@@ -37009,7 +37392,7 @@
               (Stdlib_String[16],
                name,
                0,
-               caml_ml_string_length(name) - l | 0);
+               caml_ml_string_length(name) - l | 0) /*<<filename.ml:320:49>>*/ ;
     /*<<filename.ml:320:49>>*/ }
    function remove_extension(name){
     var l =  /*<<filename.ml:323:10>>*/ extension_len(name);
@@ -37019,7 +37402,7 @@
               (Stdlib_String[16],
                name,
                0,
-               caml_ml_string_length(name) - l | 0);
+               caml_ml_string_length(name) - l | 0) /*<<filename.ml:324:68>>*/ ;
     /*<<filename.ml:324:68>>*/ }
    var
     prng_key =
@@ -37043,7 +37426,7 @@
                _f_,
                prefix,
                rnd,
-               suffix));
+               suffix)) /*<<filename.ml:335:63>>*/ ;
     /*<<filename.ml:335:63>>*/ }
    var
     current_temp_dir_name =
@@ -37057,11 +37440,11 @@
      /*<<filename.ml:340:26>>*/ return  /*<<filename.ml:340:26>>*/ caml_call2
              /*<<filename.ml:340:26>>*/ (Stdlib_Domain[10][3],
              current_temp_dir_name,
-             s);
+             s) /*<<filename.ml:340:64>>*/ ;
     /*<<filename.ml:340:64>>*/ }
    function get_temp_dir_name(param){
      /*<<filename.ml:341:27>>*/ return caml_call1
-            (Stdlib_Domain[10][2], current_temp_dir_name);
+            (Stdlib_Domain[10][2], current_temp_dir_name) /*<<filename.ml:341:63>>*/ ;
     /*<<filename.ml:341:63>>*/ }
    function temp_file(opt, prefix, suffix){
     var
@@ -37080,7 +37463,7 @@
        /*<<filename.ml:347:6>>*/  /*<<filename.ml:347:6>>*/ runtime.caml_sys_close
         /*<<filename.ml:347:6>>*/ ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open
           /*<<filename.ml:347:16>>*/ (name, _g_, 384));
-       /*<<filename.ml:347:6>>*/ return name;
+       /*<<filename.ml:347:6>>*/ return name /*<<filename.ml:347:6>>*/ ;
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
@@ -37118,7 +37501,7 @@
             [0, 1, [0, 3, [0, 5, mode]]],
             perms,
             name)];
-       /*<<filename.ml:359:6>>*/ return _n_;
+       /*<<filename.ml:359:6>>*/ return _n_ /*<<filename.ml:359:6>>*/ ;
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
@@ -37148,7 +37531,7 @@
       /*<<filename.ml:369:4>>*/ try{
        /*<<filename.ml:370:6>>*/  /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir
         /*<<filename.ml:370:6>>*/ (name, perms);
-       /*<<filename.ml:370:6>>*/ return name;
+       /*<<filename.ml:370:6>>*/ return name /*<<filename.ml:370:6>>*/ ;
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
@@ -37203,21 +37586,21 @@
     i = [254, 0., 1.],
     _a_ = [254, 0., 0.];
    function add(x, y){
-     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]];
+     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]] /*<<complex.ml:24:14>>*/ ;
     /*<<complex.ml:24:54>>*/ }
    function sub(x, y){
-     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]];
+     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]] /*<<complex.ml:26:14>>*/ ;
     /*<<complex.ml:26:54>>*/ }
    function neg(x){
-     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]];
+     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]] /*<<complex.ml:28:12>>*/ ;
     /*<<complex.ml:28:42>>*/ }
    function conj(x){
-     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]];
+     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]] /*<<complex.ml:30:13>>*/ ;
     /*<<complex.ml:30:40>>*/ }
    function mul(x, y){
      /*<<complex.ml:32:14>>*/ return [254,
             x[1] * y[1] - x[2] * y[2],
-            x[1] * y[2] + x[2] * y[1]];
+            x[1] * y[2] + x[2] * y[1]] /*<<complex.ml:32:14>>*/ ;
     /*<<complex.ml:33:51>>*/ }
    function div(x, y){
      /*<<complex.ml:36:2>>*/ if
@@ -37228,39 +37611,39 @@
       d =  /*<<complex.ml:38:12>>*/ y[1] + r * y[2];
       /*<<complex.ml:39:4>>*/ return [254,
              (x[1] + r * x[2]) / d,
-             (x[2] - r * x[1]) / d];
+             (x[2] - r * x[1]) / d] /*<<complex.ml:39:4>>*/ ;
     }
     var
      r$0 =  /*<<complex.ml:42:12>>*/ y[1] / y[2],
      d$0 =  /*<<complex.ml:43:12>>*/ y[2] + r$0 * y[1];
      /*<<complex.ml:44:4>>*/ return [254,
             (r$0 * x[1] + x[2]) / d$0,
-            (r$0 * x[2] - x[1]) / d$0];
+            (r$0 * x[2] - x[1]) / d$0] /*<<complex.ml:44:4>>*/ ;
     /*<<complex.ml:45:37>>*/ }
    function inv(x){
-     /*<<complex.ml:47:12>>*/ return div(one, x);
+     /*<<complex.ml:47:12>>*/ return div(one, x) /*<<complex.ml:47:21>>*/ ;
     /*<<complex.ml:47:21>>*/ }
    function norm2(x){
-     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2];
+     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2] /*<<complex.ml:49:14>>*/ ;
     /*<<complex.ml:49:42>>*/ }
    function norm(x){
      /*<<complex.ml:51:13>>*/ return  /*<<complex.ml:51:13>>*/ runtime.caml_hypot_float
-             /*<<complex.ml:51:13>>*/ (x[1], x[2]);
+             /*<<complex.ml:51:13>>*/ (x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
     /*<<complex.ml:51:34>>*/ }
    function arg(x){
      /*<<complex.ml:53:12>>*/ return  /*<<complex.ml:53:12>>*/ Math.atan2
-             /*<<complex.ml:53:12>>*/ (x[2], x[1]);
+             /*<<complex.ml:53:12>>*/ (x[2], x[1]) /*<<complex.ml:53:27>>*/ ;
     /*<<complex.ml:53:27>>*/ }
    function polar(n, a){
      /*<<complex.ml:55:16>>*/ return [254,
              /*<<complex.ml:55:23>>*/ Math.cos /*<<complex.ml:55:23>>*/ (a)
             * n,
              /*<<complex.ml:55:40>>*/ Math.sin /*<<complex.ml:55:40>>*/ (a)
-            * n];
+            * n] /*<<complex.ml:55:16>>*/ ;
     /*<<complex.ml:55:52>>*/ }
    function sqrt(x){
      /*<<complex.ml:58:2>>*/ if(x[1] === 0. && x[2] === 0.)
-      /*<<complex.ml:58:35>>*/ return _a_;
+      /*<<complex.ml:58:35>>*/ return _a_ /*<<complex.ml:58:35>>*/ ;
     var
      r =
         /*<<complex.ml:60:12>>*/  /*<<complex.ml:60:12>>*/ Math.abs
@@ -37294,9 +37677,10 @@
             +
               /*<<complex.ml:67:37>>*/ Math.sqrt
                /*<<complex.ml:67:37>>*/ (1. + q$0 * q$0)));
-    if(0. <= x[1])  /*<<complex.ml:70:9>>*/ return [254, w, 0.5 * x[2] / w];
+    if(0. <= x[1])
+      /*<<complex.ml:70:9>>*/ return [254, w, 0.5 * x[2] / w] /*<<complex.ml:70:9>>*/ ;
     var w$0 = 0. <= x[2] ? w : - w;
-     /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0];
+     /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0] /*<<complex.ml:71:9>>*/ ;
     /*<<complex.ml:72:5>>*/ }
    function exp(x){
     var
@@ -37311,7 +37695,7 @@
             e
             *
               /*<<complex.ml:75:54>>*/ Math.sin
-               /*<<complex.ml:75:54>>*/ (x[2])];
+               /*<<complex.ml:75:54>>*/ (x[2])] /*<<complex.ml:75:22>>*/ ;
     /*<<complex.ml:75:64>>*/ }
    function log(x){
     var
@@ -37321,10 +37705,10 @@
      /*<<complex.ml:77:12>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log
               /*<<complex.ml:77:19>>*/ (norm(x)),
-            _b_];
+            _b_] /*<<complex.ml:77:12>>*/ ;
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
-     /*<<complex.ml:79:14>>*/ return exp(mul(y, log(x)));
+     /*<<complex.ml:79:14>>*/ return exp(mul(y, log(x))) /*<<complex.ml:79:33>>*/ ;
     /*<<complex.ml:79:33>>*/ }
    var
     Stdlib_Complex =
@@ -38006,7 +38390,7 @@
        "Stdlib.Effect.Unhandled(%s)"];
    function printer(param){
      /*<<effect.ml:22:16>>*/ if(param[1] !== Unhandled)
-      /*<<effect.ml:28:11>>*/ return 0;
+      /*<<effect.ml:28:11>>*/ return 0 /*<<effect.ml:28:11>>*/ ;
     var
      x = param[2],
      _i_ =
@@ -38015,7 +38399,7 @@
      msg =
         /*<<effect.ml:24:18>>*/  /*<<effect.ml:24:18>>*/ caml_call2
          /*<<effect.ml:24:18>>*/ (Stdlib_Printf[4], _a_, _i_);
-     /*<<effect.ml:27:8>>*/ return [0, msg];
+     /*<<effect.ml:27:8>>*/ return [0, msg] /*<<effect.ml:27:8>>*/ ;
     /*<<effect.ml:28:15>>*/ }
     /*<<effect.ml:30:2>>*/  /*<<effect.ml:30:2>>*/ caml_call1
      /*<<effect.ml:30:2>>*/ (Stdlib_Printexc[9], printer);
@@ -38038,10 +38422,10 @@
         /*<<effect.ml:62:11>>*/  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc
          /*<<effect.ml:62:11>>*/ (k);
     function _g_(x){
-      /*<<effect.ml:62:41>>*/ return x;
+      /*<<effect.ml:62:41>>*/ return x /*<<effect.ml:62:41>>*/ ;
      /*<<effect.ml:62:42>>*/ }
      /*<<effect.ml:62:11>>*/ return  /*<<effect.ml:62:11>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:62:11>>*/ ();
+             /*<<effect.ml:62:11>>*/ () /*<<effect.ml:62:65>>*/ ;
     /*<<effect.ml:62:65>>*/ }
    function discontinue(k, e){
     var
@@ -38053,7 +38437,7 @@
              /*<<effect.ml:65:41>>*/ (e, 1);
      /*<<effect.ml:65:48>>*/ }
      /*<<effect.ml:65:11>>*/ return  /*<<effect.ml:65:11>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:65:11>>*/ ();
+             /*<<effect.ml:65:11>>*/ () /*<<effect.ml:65:71>>*/ ;
     /*<<effect.ml:65:71>>*/ }
    function discontinue_with_backtrace(k, e, bt){
     var
@@ -38066,7 +38450,7 @@
              /*<<effect.ml:68:41>>*/ (e, 0);
      /*<<effect.ml:68:75>>*/ }
      /*<<effect.ml:68:11>>*/ return  /*<<effect.ml:68:11>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:68:11>>*/ ();
+             /*<<effect.ml:68:11>>*/ () /*<<effect.ml:69:27>>*/ ;
     /*<<effect.ml:69:27>>*/ }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
@@ -38076,18 +38460,18 @@
           /*<<effect.ml:81:12>>*/ (handler[3], eff);
      if(! match)
        /*<<effect.ml:85:16>>*/ return  /*<<effect.ml:85:16>>*/ jsoo_effect_not_supported
-               /*<<effect.ml:85:16>>*/ ();
+               /*<<effect.ml:85:16>>*/ () /*<<effect.ml:85:42>>*/ ;
      var f = match[1];
      k[2] = last_fiber;
       /*<<effect.ml:84:10>>*/ return  /*<<effect.ml:84:10>>*/ caml_call1
-              /*<<effect.ml:84:10>>*/ (f, k);
+              /*<<effect.ml:84:10>>*/ (f, k) /*<<effect.ml:85:42>>*/ ;
      /*<<effect.ml:85:42>>*/ }
     var
      s =
         /*<<effect.ml:87:12>>*/  /*<<effect.ml:87:12>>*/ caml_alloc_stack
          /*<<effect.ml:87:12>>*/ (handler[1], handler[2], effc);
      /*<<effect.ml:88:4>>*/ return  /*<<effect.ml:88:4>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:88:4>>*/ ();
+             /*<<effect.ml:88:4>>*/ () /*<<effect.ml:88:23>>*/ ;
     /*<<effect.ml:88:23>>*/ }
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
@@ -38097,17 +38481,17 @@
           /*<<effect.ml:95:12>>*/ (handler[1], eff);
      if(! match)
        /*<<effect.ml:99:16>>*/ return  /*<<effect.ml:99:16>>*/ jsoo_effect_not_supported
-               /*<<effect.ml:99:16>>*/ ();
+               /*<<effect.ml:99:16>>*/ () /*<<effect.ml:99:42>>*/ ;
      var f = match[1];
      k[2] = last_fiber;
       /*<<effect.ml:98:10>>*/ return  /*<<effect.ml:98:10>>*/ caml_call1
-              /*<<effect.ml:98:10>>*/ (f, k);
+              /*<<effect.ml:98:10>>*/ (f, k) /*<<effect.ml:99:42>>*/ ;
      /*<<effect.ml:99:42>>*/ }
     var
      s =
         /*<<effect.ml:101:12>>*/  /*<<effect.ml:101:12>>*/ caml_alloc_stack
          /*<<effect.ml:101:12>>*/ (function(x){
-           /*<<effect.ml:101:34>>*/ return x;
+           /*<<effect.ml:101:34>>*/ return x /*<<effect.ml:101:34>>*/ ;
           /*<<effect.ml:101:35>>*/ },
          function(e){
            /*<<effect.ml:101:47>>*/ throw  /*<<effect.ml:101:47>>*/ caml_maybe_attach_backtrace
@@ -38115,7 +38499,7 @@
           /*<<effect.ml:101:54>>*/ },
          effc);
      /*<<effect.ml:102:4>>*/ return  /*<<effect.ml:102:4>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:102:4>>*/ ();
+             /*<<effect.ml:102:4>>*/ () /*<<effect.ml:102:23>>*/ ;
     /*<<effect.ml:102:23>>*/ }
    var
     Deep =
@@ -38137,15 +38521,15 @@
       /*<<effect.ml:126:16>>*/ return  /*<<effect.ml:126:18>>*/ caml_call1
               /*<<effect.ml:126:18>>*/ (f,
                /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported
-                /*<<effect.ml:126:18>>*/ ());
+                /*<<effect.ml:126:18>>*/ ()) /*<<effect.ml:126:45>>*/ ;
      /*<<effect.ml:126:45>>*/ }
     function error(param){
       /*<<effect.ml:127:18>>*/ return  /*<<effect.ml:127:18>>*/ caml_call1
-              /*<<effect.ml:127:18>>*/ (Stdlib[2], cst_impossible);
+              /*<<effect.ml:127:18>>*/ (Stdlib[2], cst_impossible) /*<<effect.ml:127:39>>*/ ;
      /*<<effect.ml:127:39>>*/ }
     function effc(eff, k, last_fiber){
       /*<<effect.ml:129:6>>*/ if(eff !== Initial_setup)
-       /*<<effect.ml:133:13>>*/ return error(0);
+       /*<<effect.ml:133:13>>*/ return error(0) /*<<effect.ml:133:21>>*/ ;
      k[2] = last_fiber;
       /*<<effect.ml:132:10>>*/ throw [0, E, k];
      /*<<effect.ml:133:21>>*/ }
@@ -38162,9 +38546,9 @@
      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:137:23>>*/ return k /*<<effect.ml:137:23>>*/ ;
     }
-     /*<<effect.ml:138:11>>*/ return error(0);
+     /*<<effect.ml:138:11>>*/ return error(0) /*<<effect.ml:138:19>>*/ ;
     /*<<effect.ml:138:19>>*/ }
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
@@ -38174,27 +38558,27 @@
           /*<<effect.ml:157:12>>*/ (handler[3], eff);
      if(! match)
        /*<<effect.ml:161:16>>*/ return  /*<<effect.ml:161:16>>*/ jsoo_effect_not_supported
-               /*<<effect.ml:161:16>>*/ ();
+               /*<<effect.ml:161:16>>*/ () /*<<effect.ml:161:42>>*/ ;
      var f = match[1];
      k[2] = last_fiber;
       /*<<effect.ml:160:10>>*/ return  /*<<effect.ml:160:10>>*/ caml_call1
-              /*<<effect.ml:160:10>>*/ (f, k);
+              /*<<effect.ml:160:10>>*/ (f, k) /*<<effect.ml:161:42>>*/ ;
      /*<<effect.ml:161:42>>*/ }
     var
      stack =
         /*<<effect.ml:164:16>>*/  /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
          /*<<effect.ml:164:16>>*/ (k, handler[1], handler[2], effc);
      /*<<effect.ml:165:4>>*/ return  /*<<effect.ml:165:4>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:165:4>>*/ ();
+             /*<<effect.ml:165:4>>*/ () /*<<effect.ml:165:40>>*/ ;
     /*<<effect.ml:165:40>>*/ }
    function continue_with(k, v, handler){
      /*<<effect.ml:168:4>>*/ return continue_gen
             (k,
              function(x){
-               /*<<effect.ml:168:29>>*/ return x;
+               /*<<effect.ml:168:29>>*/ return x /*<<effect.ml:168:29>>*/ ;
               /*<<effect.ml:168:30>>*/ },
              v,
-             handler);
+             handler) /*<<effect.ml:168:41>>*/ ;
     /*<<effect.ml:168:41>>*/ }
    function discontinue_with(k, v, handler){
      /*<<effect.ml:171:4>>*/ return continue_gen
@@ -38204,7 +38588,7 @@
                       /*<<effect.ml:171:29>>*/ (e, 1);
               /*<<effect.ml:171:36>>*/ },
              v,
-             handler);
+             handler) /*<<effect.ml:171:47>>*/ ;
     /*<<effect.ml:171:47>>*/ }
    function discontinue_with_backtrace$0(k, v, bt, handler){
      /*<<effect.ml:174:4>>*/ return continue_gen
@@ -38215,7 +38599,7 @@
                       /*<<effect.ml:174:29>>*/ (e, 0);
               /*<<effect.ml:174:63>>*/ },
              v,
-             handler);
+             handler) /*<<effect.ml:174:74>>*/ ;
     /*<<effect.ml:174:74>>*/ }
    var
     Stdlib_Effect =
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index be88f6df65..9e60e838ac 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -3,5 +3,6 @@ sourcemap for test.bc.js
 /my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0;}
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0;}
 /my/sourceRoot#b.ml:1:6 -> 24:   function f(x){return <>x - 1 | 0;}
+/my/sourceRoot#b.ml:1:10 -> 33:   function f(x){return x - 1 | 0<>;}
 /my/sourceRoot#b.ml:1:15 -> 34:   function f(x){return x - 1 | 0;<>}
 /my/sourceRoot#b.ml:1:4 -> 23:   var Testlib_B = [0, <>f];

From c3f179e4f6d504ccfbf4aad93061f8809de196f0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 09:55:19 +0200
Subject: [PATCH 07/35] Add location on new expression

---
 compiler/lib/generate.ml    | 2 +-
 compiler/lib/javascript.ml  | 2 +-
 compiler/lib/javascript.mli | 2 +-
 compiler/lib/js_output.ml   | 6 ++++--
 compiler/lib/js_parser.mly  | 4 ++--
 compiler/lib/js_traverse.ml | 8 ++++----
 6 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 5ec9c9e416..4653d75057 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -1233,7 +1233,7 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
                 l
                 ~init:([], mutator_p, queue)
             in
-            ( J.ENew (cc, if List.is_empty args then None else Some args)
+            ( J.ENew (cc, (if List.is_empty args then None else Some args), loc)
             , or_p pc prop
             , queue )
         | Extern "caml_js_get", [ Pv o; Pc (NativeString (Utf f)) ] when J.is_ident' f ->
diff --git a/compiler/lib/javascript.ml b/compiler/lib/javascript.ml
index a5a7109240..ca1c8be266 100644
--- a/compiler/lib/javascript.ml
+++ b/compiler/lib/javascript.ml
@@ -280,7 +280,7 @@ and expression =
   | EAccess of expression * access_kind * expression
   | EDot of expression * access_kind * identifier
   | EDotPrivate of expression * access_kind * identifier
-  | ENew of expression * arguments option
+  | ENew of expression * arguments option * location
   | EVar of ident
   | EFun of ident option * function_declaration
   | EClass of ident option * class_declaration
diff --git a/compiler/lib/javascript.mli b/compiler/lib/javascript.mli
index 732650be20..499393e3cc 100644
--- a/compiler/lib/javascript.mli
+++ b/compiler/lib/javascript.mli
@@ -197,7 +197,7 @@ and expression =
   | EAccess of expression * access_kind * expression
   | EDot of expression * access_kind * identifier
   | EDotPrivate of expression * access_kind * identifier
-  | ENew of expression * arguments option
+  | ENew of expression * arguments option * location
   | EVar of ident
   | EFun of ident option * function_declaration
   | EClass of ident option * class_declaration
diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index b410ae5650..64ec8c7381 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -966,12 +966,13 @@ struct
         | ANormal -> PP.string f ".#"
         | ANullish -> PP.string f "?.#");
         PP.string f nm
-    | ENew (e, None) ->
+    | ENew (e, None, loc) ->
         if Prec.(l > NewExpression)
         then (
           PP.start_group f 1;
           PP.string f "(");
         PP.start_group f 1;
+        output_debug_info f loc;
         PP.string f "new";
         PP.space f;
         expression NewExpression f e;
@@ -980,8 +981,9 @@ struct
         then (
           PP.string f ")";
           PP.end_group f)
-    | ENew (e, Some el) ->
+    | ENew (e, Some el, loc) ->
         PP.start_group f 1;
+        output_debug_info f loc;
         PP.string f "new";
         PP.space f;
         expression MemberExpression f e;
diff --git a/compiler/lib/js_parser.mly b/compiler/lib/js_parser.mly
index c433f476cb..014f7f6526 100644
--- a/compiler/lib/js_parser.mly
+++ b/compiler/lib/js_parser.mly
@@ -906,7 +906,7 @@ call_expr(x):
 
 new_expr(x):
  | e=member_expr(x)    { e }
- | T_NEW e=new_expr(d1) { (ENew (e,None)) }
+ | T_NEW e=new_expr(d1) { (ENew (e,None, p $symbolstartpos)) }
 
 access:
   | "." { ANormal }
@@ -924,7 +924,7 @@ member_expr(x):
  | e1=member_expr(x) ak=access i=field_name
      { (EDot(e1,ak,i)) }
  | T_NEW e1=member_expr(d1) a=arguments
-     { (ENew(e1, Some a)) }
+     { (ENew(e1, Some a, p $symbolstartpos)) }
  | e=member_expr(x) t=template_literal
      { ECallTemplate(e, t, p $symbolstartpos) }
  | T_SUPER "[" e=expr "]"
diff --git a/compiler/lib/js_traverse.ml b/compiler/lib/js_traverse.ml
index ba65d8968f..4636d70011 100644
--- a/compiler/lib/js_traverse.ml
+++ b/compiler/lib/js_traverse.ml
@@ -314,8 +314,8 @@ class map : mapper =
       | EAccess (e1, ak, e2) -> EAccess (m#expression e1, ak, m#expression e2)
       | EDot (e1, ak, id) -> EDot (m#expression e1, ak, id)
       | EDotPrivate (e1, ak, id) -> EDotPrivate (m#expression e1, ak, id)
-      | ENew (e1, args) ->
-          ENew (m#expression e1, Option.map ~f:(List.map ~f:m#argument) args)
+      | ENew (e1, args, loc) ->
+          ENew (m#expression e1, Option.map ~f:(List.map ~f:m#argument) args, m#loc loc)
       | EVar v -> EVar (m#ident v)
       | EFun (idopt, fun_decl) ->
           let idopt = Option.map ~f:m#ident idopt in
@@ -668,10 +668,10 @@ class iter : iterator =
           m#expression e2
       | EDot (e1, _ak, _) -> m#expression e1
       | EDotPrivate (e1, _, _) -> m#expression e1
-      | ENew (e1, Some args) ->
+      | ENew (e1, Some args, _) ->
           m#expression e1;
           List.iter args ~f:m#argument
-      | ENew (e1, None) -> m#expression e1
+      | ENew (e1, None, _) -> m#expression e1
       | EVar v -> m#ident v
       | EFun (idopt, fun_decl) ->
           (match idopt with

From c3d5dfde208b672b7d19809572ecaed82d64550b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 11 Oct 2024 16:05:44 +0200
Subject: [PATCH 08/35] Change way of filtering out dummy locations

There are some locations which are marked as ghost locations, but which
actually make sense.
---
 compiler/lib/parse_bytecode.ml             |   5 +-
 compiler/tests-full/stdlib.cma.expected.js | 868 +++++++++++----------
 2 files changed, 443 insertions(+), 430 deletions(-)

diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index 2068d2d233..c3e5ff5eb9 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -299,6 +299,9 @@ end = struct
 
   let mem { events_by_pc; _ } pc = Int_table.mem events_by_pc pc
 
+  let dummy_location (loc : Location.t) =
+    loc.loc_start.pos_cnum = -1 || loc.loc_end.pos_cnum = -1
+
   let find_loc' { events_by_pc; _ } pc =
     try
       let { event; source } = Int_table.find events_by_pc pc in
@@ -313,7 +316,7 @@ end = struct
         try
           let { event; source } = Int_table.find events_by_pc pc in
           let loc = event.ev_loc in
-          if loc.Location.loc_ghost
+          if dummy_location loc
           then None
           else
             let pos =
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 4bb2fc211e..d7330ffd90 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -5,7 +5,7 @@
    "use strict";
    var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
    function erase_rel(param){
-     /*<<?>>*/ if(typeof param === "number")
+     /*<<camlinternalFormatBasics.ml:528:8>>*/ if(typeof param === "number")
       /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0 /*<<camlinternalFormatBasics.ml:562:20>>*/ ;
     switch(param[0]){
       case 0:
@@ -71,7 +71,7 @@
         /*<<camlinternalFormatBasics.ml:561:4>>*/ return [14,
                erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
     }
-   }
+    /*<<camlinternalFormatBasics.ml:562:32>>*/ }
    function concat_fmtty(fmtty1, fmtty2){
      /*<<camlinternalFormatBasics.ml:590:21>>*/ if(typeof fmtty1 === "number")
       /*<<camlinternalFormatBasics.ml:621:20>>*/ return fmtty2 /*<<camlinternalFormatBasics.ml:621:20>>*/ ;
@@ -701,7 +701,7 @@
    function input_line(chan){
     function build_result(buf, pos, param){
      var pos$0 = pos, param$0 = param;
-     for(;;){
+      /*<<stdlib.ml:446:23>>*/ for(;;){
       if(! param$0)
         /*<<stdlib.ml:447:10>>*/ return buf /*<<stdlib.ml:447:10>>*/ ;
       var
@@ -716,7 +716,7 @@
       pos$0 = pos$1;
       param$0 = tl;
      }
-    }
+     /*<<stdlib.ml:451:37>>*/ }
     var accu = 0, len = 0;
      /*<<stdlib.ml:453:4>>*/ for(;;){
      var
@@ -864,7 +864,7 @@
    function string_of_format(param){
     var str = param[2];
      /*<<stdlib.ml:538:44>>*/ return str /*<<stdlib.ml:538:44>>*/ ;
-   }
+    /*<<stdlib.ml:538:47>>*/ }
    function symbol$0(_h_, param){
     var
      str2 = param[2],
@@ -878,7 +878,7 @@
               fmt1,
               fmt2),
             str1 + s2] /*<<stdlib.ml:545:2>>*/ ;
-   }
+    /*<<stdlib.ml:546:29>>*/ }
    var exit_function =  /*<<stdlib.ml:559:20>>*/ [0, flush_all];
    function at_exit(f){
      /*<<stdlib.ml:563:2>>*/ for(;;){
@@ -1078,21 +1078,21 @@
      /*<<either.ml:35:13>>*/ return [0, v] /*<<either.ml:35:13>>*/ ;
     /*<<either.ml:35:19>>*/ }
    function map_left(f, e){
-     /*<<?>>*/ if(0 !== e[0])
+     /*<<either.ml:37:13>>*/ if(0 !== e[0])
       /*<<either.ml:39:18>>*/ return e /*<<either.ml:39:18>>*/ ;
     var v = e[1];
      /*<<either.ml:38:12>>*/ return [0,
              /*<<either.ml:38:17>>*/ caml_call1 /*<<either.ml:38:17>>*/ (f, v)] /*<<either.ml:38:12>>*/ ;
-   }
+    /*<<either.ml:39:19>>*/ }
    function map_right(f, e){
-     /*<<?>>*/ if(0 === e[0])
+     /*<<either.ml:41:14>>*/ if(0 === e[0])
       /*<<either.ml:42:17>>*/ return e /*<<either.ml:42:17>>*/ ;
     var v = e[1];
      /*<<either.ml:43:13>>*/ return [1,
              /*<<either.ml:43:19>>*/ caml_call1 /*<<either.ml:43:19>>*/ (f, v)] /*<<either.ml:43:13>>*/ ;
-   }
+    /*<<either.ml:43:24>>*/ }
    function map(left, right, param){
-     /*<<?>>*/ if(0 === param[0]){
+     /*<<either.ml:45:8>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:46:12>>*/ return [0,
               /*<<either.ml:46:17>>*/ caml_call1
@@ -1102,17 +1102,17 @@
      /*<<either.ml:47:13>>*/ return [1,
              /*<<either.ml:47:19>>*/ caml_call1
               /*<<either.ml:47:19>>*/ (right, v$0)] /*<<either.ml:47:13>>*/ ;
-   }
+    /*<<either.ml:47:28>>*/ }
    function fold(left, right, param){
-     /*<<?>>*/ if(0 === param[0]){
+     /*<<either.ml:49:9>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:50:12>>*/ return  /*<<either.ml:50:12>>*/ caml_call1
-              /*<<either.ml:50:12>>*/ (left, v) /*<<either.ml:50:12>>*/ ;
+              /*<<either.ml:50:12>>*/ (left, v) /*<<either.ml:51:20>>*/ ;
     }
     var v$0 = param[1];
      /*<<either.ml:51:13>>*/ return  /*<<either.ml:51:13>>*/ caml_call1
-             /*<<either.ml:51:13>>*/ (right, v$0) /*<<either.ml:51:13>>*/ ;
-   }
+             /*<<either.ml:51:13>>*/ (right, v$0) /*<<either.ml:51:20>>*/ ;
+    /*<<either.ml:51:20>>*/ }
    function equal(left, right, e1, e2){
      /*<<either.ml:57:31>>*/ if(0 === e1[0]){
      var v1 = e1[1];
@@ -2934,19 +2934,19 @@
              /*<<option.ml:24:57>>*/ caml_call1 /*<<option.ml:24:57>>*/ (f, v)] /*<<option.ml:24:52>>*/ ;
     /*<<option.ml:24:62>>*/ }
    function fold(none, some, param){
-     /*<<?>>*/ if(! param)
+     /*<<option.ml:25:9>>*/ if(! param)
       /*<<option.ml:25:59>>*/ return none /*<<option.ml:25:59>>*/ ;
     var v = param[1];
      /*<<option.ml:25:42>>*/ return  /*<<option.ml:25:42>>*/ caml_call1
-             /*<<option.ml:25:42>>*/ (some, v) /*<<option.ml:25:42>>*/ ;
-   }
+             /*<<option.ml:25:42>>*/ (some, v) /*<<option.ml:25:63>>*/ ;
+    /*<<option.ml:25:63>>*/ }
    function iter(f, param){
-     /*<<?>>*/ if(! param)
+     /*<<option.ml:26:9>>*/ if(! param)
       /*<<option.ml:26:46>>*/ return 0 /*<<option.ml:26:46>>*/ ;
     var v = param[1];
      /*<<option.ml:26:32>>*/ return  /*<<option.ml:26:32>>*/ caml_call1
-             /*<<option.ml:26:32>>*/ (f, v) /*<<option.ml:26:32>>*/ ;
-   }
+             /*<<option.ml:26:32>>*/ (f, v) /*<<option.ml:26:48>>*/ ;
+    /*<<option.ml:26:48>>*/ }
    function is_none(param){
      /*<<option.ml:27:14>>*/ return param ? 0 : 1 /*<<option.ml:27:53>>*/ ;
     /*<<option.ml:27:53>>*/ }
@@ -2974,11 +2974,11 @@
              /*<<option.ml:36:22>>*/ (cmp, v0, v1) /*<<option.ml:39:19>>*/ ;
     /*<<option.ml:39:19>>*/ }
    function to_result(none, param){
-     /*<<?>>*/ if(! param)
+     /*<<option.ml:41:14>>*/ if(! param)
       /*<<option.ml:41:39>>*/ return [1, none] /*<<option.ml:41:39>>*/ ;
     var v = param[1];
      /*<<option.ml:41:62>>*/ return [0, v] /*<<option.ml:41:62>>*/ ;
-   }
+    /*<<option.ml:41:66>>*/ }
    function to_list(param){
      /*<<option.ml:42:14>>*/ if(! param)
       /*<<option.ml:42:31>>*/ return 0 /*<<option.ml:42:31>>*/ ;
@@ -3078,43 +3078,43 @@
      /*<<result.ml:24:28>>*/ return r /*<<result.ml:24:28>>*/ ;
     /*<<result.ml:24:49>>*/ }
    function map(f, e){
-     /*<<?>>*/ if(0 !== e[0])
+     /*<<result.ml:25:8>>*/ if(0 !== e[0])
       /*<<result.ml:25:56>>*/ return e /*<<result.ml:25:56>>*/ ;
     var v = e[1];
      /*<<result.ml:25:29>>*/ return [0,
              /*<<result.ml:25:32>>*/ caml_call1 /*<<result.ml:25:32>>*/ (f, v)] /*<<result.ml:25:29>>*/ ;
-   }
+    /*<<result.ml:25:57>>*/ }
    function map_error(f, v){
-     /*<<?>>*/ if(0 === v[0])
+     /*<<result.ml:26:14>>*/ if(0 === v[0])
       /*<<result.ml:26:65>>*/ return v /*<<result.ml:26:65>>*/ ;
     var e = v[1];
      /*<<result.ml:26:38>>*/ return [1,
              /*<<result.ml:26:44>>*/ caml_call1 /*<<result.ml:26:44>>*/ (f, e)] /*<<result.ml:26:38>>*/ ;
-   }
+    /*<<result.ml:26:66>>*/ }
    function fold(ok, error, param){
-     /*<<?>>*/ if(0 === param[0]){
+     /*<<result.ml:27:9>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<result.ml:27:39>>*/ return  /*<<result.ml:27:39>>*/ caml_call1
-              /*<<result.ml:27:39>>*/ (ok, v) /*<<result.ml:27:39>>*/ ;
+              /*<<result.ml:27:39>>*/ (ok, v) /*<<result.ml:27:64>>*/ ;
     }
     var e = param[1];
      /*<<result.ml:27:57>>*/ return  /*<<result.ml:27:57>>*/ caml_call1
-             /*<<result.ml:27:57>>*/ (error, e) /*<<result.ml:27:57>>*/ ;
-   }
+             /*<<result.ml:27:57>>*/ (error, e) /*<<result.ml:27:64>>*/ ;
+    /*<<result.ml:27:64>>*/ }
    function iter(f, param){
-     /*<<?>>*/ if(0 !== param[0])
+     /*<<result.ml:28:9>>*/ if(0 !== param[0])
       /*<<result.ml:28:47>>*/ return 0 /*<<result.ml:28:47>>*/ ;
     var v = param[1];
      /*<<result.ml:28:30>>*/ return  /*<<result.ml:28:30>>*/ caml_call1
-             /*<<result.ml:28:30>>*/ (f, v) /*<<result.ml:28:30>>*/ ;
-   }
+             /*<<result.ml:28:30>>*/ (f, v) /*<<result.ml:28:49>>*/ ;
+    /*<<result.ml:28:49>>*/ }
    function iter_error(f, param){
-     /*<<?>>*/ if(0 === param[0])
+     /*<<result.ml:29:15>>*/ if(0 === param[0])
       /*<<result.ml:29:53>>*/ return 0 /*<<result.ml:29:53>>*/ ;
     var e = param[1];
      /*<<result.ml:29:39>>*/ return  /*<<result.ml:29:39>>*/ caml_call1
-             /*<<result.ml:29:39>>*/ (f, e) /*<<result.ml:29:39>>*/ ;
-   }
+             /*<<result.ml:29:39>>*/ (f, e) /*<<result.ml:29:55>>*/ ;
+    /*<<result.ml:29:55>>*/ }
    function is_ok(param){
      /*<<result.ml:30:12>>*/ return 0 === param[0] ? 1 : 0 /*<<result.ml:30:52>>*/ ;
     /*<<result.ml:30:52>>*/ }
@@ -3556,7 +3556,7 @@
     cst_List_nth$0 = cst_List_nth$1;
    function length(l$0){
     var len = 0, param = l$0;
-    for(;;){
+     /*<<list.ml:21:19>>*/ for(;;){
      if(! param)  /*<<list.ml:22:10>>*/ return len /*<<list.ml:22:10>>*/ ;
      var l = param[2], len$0 =  /*<<list.ml:23:12>>*/ len + 1 | 0;
      len = len$0;
@@ -3613,7 +3613,7 @@
     }
     /*<<list.ml:51:16>>*/ }
    var
-    append = Stdlib[37],
+    append =  /*<<list.ml:45:12>>*/ Stdlib[37],
     cst_List_init = "List.init",
     cst_List_map2 = cst_List_map2$1,
     cst_List_map2$0 = cst_List_map2$1,
@@ -3695,7 +3695,7 @@
              /*<<list.ml:76:16>>*/ (Stdlib[37], l, _I_) /*<<list.ml:76:25>>*/ ;
     /*<<list.ml:76:25>>*/ }
    function map(f, param){
-     /*<<?>>*/ if(! param)
+     /*<<list.ml:80:28>>*/ if(! param)
       /*<<list.ml:81:10>>*/ return 0 /*<<list.ml:81:10>>*/ ;
     var match = param[2], a1 = param[1];
     if(! match){
@@ -3718,7 +3718,7 @@
      dst = block,
      offset = 1,
      param$0 = l;
-    for(;;){
+     /*<<list.ml:80:28>>*/ for(;;){
      if(param$0){
       var match$0 = param$0[2], a1$0 = param$0[1];
       if(match$0){
@@ -3748,7 +3748,7 @@
       dst[1 + offset] = 0;
       /*<<list.ml:88:6>>*/ return [0, r1, block] /*<<list.ml:88:6>>*/ ;
     }
-   }
+    /*<<list.ml:88:21>>*/ }
    function mapi(f, l$1){
     var i$1 = 0;
     if(! l$1)  /*<<list.ml:91:10>>*/ return 0 /*<<list.ml:91:10>>*/ ;
@@ -3774,7 +3774,7 @@
      offset = 1,
      i = 2,
      param = l;
-    for(;;){
+     /*<<list.ml:90:29>>*/ for(;;){
      if(param){
       var match$0 = param[2], a1$0 = param[1];
       if(match$0){
@@ -3809,7 +3809,7 @@
     /*<<list.ml:100:25>>*/ }
    function rev_map(f, l){
     var accu = 0, param = l;
-    for(;;){
+     /*<<list.ml:103:17>>*/ for(;;){
      if(! param)  /*<<list.ml:104:12>>*/ return accu /*<<list.ml:104:12>>*/ ;
      var
       l$0 = param[2],
@@ -3824,17 +3824,17 @@
     /*<<list.ml:107:13>>*/ }
    function iter(f, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:110:13>>*/ for(;;){
      if(! param$0)  /*<<list.ml:111:10>>*/ return 0 /*<<list.ml:111:10>>*/ ;
      var l = param$0[2], a = param$0[1];
       /*<<list.ml:112:12>>*/  /*<<list.ml:112:12>>*/ caml_call1
        /*<<list.ml:112:12>>*/ (f, a);
      param$0 = l;
     }
-   }
+    /*<<list.ml:112:25>>*/ }
    function iteri(f, l$0){
     var i = 0, param = l$0;
-    for(;;){
+     /*<<list.ml:114:14>>*/ for(;;){
      if(! param)  /*<<list.ml:115:10>>*/ return 0 /*<<list.ml:115:10>>*/ ;
      var l = param[2], a = param[1];
       /*<<list.ml:116:12>>*/  /*<<list.ml:116:12>>*/ caml_call2
@@ -4038,7 +4038,7 @@
     /*<<list.ml:168:44>>*/ }
    function for_all(p, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:170:16>>*/ for(;;){
      if(! param$0)  /*<<list.ml:171:10>>*/ return 1 /*<<list.ml:171:10>>*/ ;
      var
       l = param$0[2],
@@ -4050,10 +4050,10 @@
        /*<<list.ml:172:12>>*/ return _F_ /*<<list.ml:172:12>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:172:30>>*/ }
    function exists(p, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:174:15>>*/ for(;;){
      if(! param$0)  /*<<list.ml:175:10>>*/ return 0 /*<<list.ml:175:10>>*/ ;
      var
       l = param$0[2],
@@ -4065,7 +4065,7 @@
        /*<<list.ml:176:12>>*/ return _E_ /*<<list.ml:176:12>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:176:29>>*/ }
    function for_all2(p, l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:179:2>>*/ for(;;){
@@ -4118,7 +4118,7 @@
     /*<<list.ml:188:40>>*/ }
    function mem(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:190:12>>*/ for(;;){
      if(! param$0)  /*<<list.ml:191:10>>*/ return 0 /*<<list.ml:191:10>>*/ ;
      var
       l = param$0[2],
@@ -4132,19 +4132,19 @@
      if(_B_) return _B_;
      param$0 = l;
     }
-   }
+    /*<<list.ml:192:38>>*/ }
    function memq(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:194:13>>*/ for(;;){
      if(! param$0)  /*<<list.ml:195:10>>*/ return 0 /*<<list.ml:195:10>>*/ ;
      var l = param$0[2], a = param$0[1], _A_ = a === x ? 1 : 0;
      if(_A_) return _A_;
      param$0 = l;
     }
-   }
+    /*<<list.ml:196:30>>*/ }
    function assoc(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:198:14>>*/ for(;;){
      if(! param$0)
        /*<<list.ml:199:10>>*/ throw  /*<<list.ml:199:10>>*/ caml_maybe_attach_backtrace
               /*<<list.ml:199:10>>*/ (Stdlib[8], 1);
@@ -4155,10 +4155,10 @@
        /*<<list.ml:200:40>>*/ return b /*<<list.ml:200:40>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:200:56>>*/ }
    function assoc_opt(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:202:18>>*/ for(;;){
      if(! param$0)  /*<<list.ml:203:10>>*/ return 0 /*<<list.ml:203:10>>*/ ;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
       /*<<list.ml:204:19>>*/ if
@@ -4167,10 +4167,10 @@
        /*<<list.ml:204:40>>*/ return [0, b] /*<<list.ml:204:40>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:204:65>>*/ }
    function assq(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:206:13>>*/ for(;;){
      if(! param$0)
        /*<<list.ml:207:10>>*/ throw  /*<<list.ml:207:10>>*/ caml_maybe_attach_backtrace
               /*<<list.ml:207:10>>*/ (Stdlib[8], 1);
@@ -4178,20 +4178,20 @@
      if(a === x)  /*<<list.ml:208:31>>*/ return b /*<<list.ml:208:31>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:208:46>>*/ }
    function assq_opt(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:210:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:211:10>>*/ return 0 /*<<list.ml:211:10>>*/ ;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
      if(a === x)
        /*<<list.ml:212:31>>*/ return [0, b] /*<<list.ml:212:31>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:212:55>>*/ }
    function mem_assoc(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:214:18>>*/ for(;;){
      if(! param$0)  /*<<list.ml:215:10>>*/ return 0 /*<<list.ml:215:10>>*/ ;
      var
       l = param$0[2],
@@ -4205,35 +4205,35 @@
      if(_z_) return _z_;
      param$0 = l;
     }
-   }
+    /*<<list.ml:216:51>>*/ }
    function mem_assq(x, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:218:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:219:10>>*/ return 0 /*<<list.ml:219:10>>*/ ;
      var l = param$0[2], a = param$0[1][1], _y_ = a === x ? 1 : 0;
      if(_y_) return _y_;
      param$0 = l;
     }
-   }
+    /*<<list.ml:220:41>>*/ }
    function remove_assoc(x, param){
-     /*<<?>>*/ if(! param)
+     /*<<list.ml:222:21>>*/ if(! param)
       /*<<list.ml:223:10>>*/ return 0 /*<<list.ml:223:10>>*/ ;
     var l = param[2], pair = param[1], a = pair[1];
      /*<<list.ml:225:9>>*/ return 0
             ===
               /*<<list.ml:225:9>>*/ caml_compare /*<<list.ml:225:9>>*/ (a, x)
             ? l
-            : [0, pair, remove_assoc(x, l)];
-   }
+            : [0, pair, remove_assoc(x, l)] /*<<list.ml:225:61>>*/ ;
+    /*<<list.ml:225:61>>*/ }
    function remove_assq(x, param){
-     /*<<?>>*/ if(! param)
+     /*<<list.ml:227:20>>*/ if(! param)
       /*<<list.ml:228:10>>*/ return 0 /*<<list.ml:228:10>>*/ ;
     var l = param[2], pair = param[1], a = pair[1];
-    return a === x ? l : [0, pair, remove_assq(x, l)];
-   }
+    return a === x ? l : [0, pair, remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
+    /*<<list.ml:229:72>>*/ }
    function find(p, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:231:13>>*/ for(;;){
      if(! param$0)
        /*<<list.ml:232:10>>*/ throw  /*<<list.ml:232:10>>*/ caml_maybe_attach_backtrace
               /*<<list.ml:232:10>>*/ (Stdlib[8], 1);
@@ -4243,10 +4243,10 @@
        /*<<list.ml:233:26>>*/ return x /*<<list.ml:233:26>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:233:41>>*/ }
    function find_opt(p, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:235:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:236:10>>*/ return 0 /*<<list.ml:236:10>>*/ ;
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:237:17>>*/ if
@@ -4254,12 +4254,12 @@
        /*<<list.ml:237:26>>*/ return [0, x] /*<<list.ml:237:26>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:237:50>>*/ }
    function find_index(p){
     var i =  /*<<list.ml:243:2>>*/ 0;
      /*<<list.ml:243:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
-     for(;;){
+      /*<<list.ml:240:14>>*/ for(;;){
       if(! param)  /*<<list.ml:241:10>>*/ return 0 /*<<list.ml:241:10>>*/ ;
       var l = param[2], a = param[1];
        /*<<list.ml:242:17>>*/ if
@@ -4272,7 +4272,7 @@
     /*<<list.ml:243:7>>*/ }
    function find_map(f, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:245:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:246:10>>*/ return 0 /*<<list.ml:246:10>>*/ ;
      var
       l = param$0[2],
@@ -4283,12 +4283,12 @@
      if(result)  /*<<list.ml:249:29>>*/ return result /*<<list.ml:249:29>>*/ ;
      param$0 = l;
     }
-   }
+    /*<<list.ml:251:8>>*/ }
    function find_mapi(f){
     var i =  /*<<list.ml:261:2>>*/ 0;
      /*<<list.ml:261:2>>*/ return function(param$0){
      var i$0 = i, param = param$0;
-     for(;;){
+      /*<<list.ml:254:14>>*/ for(;;){
       if(! param)  /*<<list.ml:255:10>>*/ return 0 /*<<list.ml:255:10>>*/ ;
       var
        l = param[2],
@@ -4305,7 +4305,7 @@
     /*<<list.ml:261:7>>*/ }
    function find_all(p, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:263:33>>*/ for(;;){
      if(! param$0)  /*<<list.ml:264:10>>*/ return 0 /*<<list.ml:264:10>>*/ ;
      var l = param$0[2], x = param$0[1];
       /*<<list.ml:265:17>>*/ if
@@ -4315,7 +4315,7 @@
        dst = block,
        offset = 1,
        param$1 = l;
-      for(;;){
+       /*<<list.ml:263:33>>*/ for(;;){
        if(! param$1){
         dst[1 + offset] = 0;
          /*<<list.ml:265:31>>*/ return block /*<<list.ml:265:31>>*/ ;
@@ -4336,10 +4336,10 @@
      else
       param$0 = l;
     }
-   }
+    /*<<list.ml:265:61>>*/ }
    function filteri(p, l$1){
     var i = 0, param = l$1;
-    for(;;){
+     /*<<list.ml:269:32>>*/ for(;;){
      if(! param)  /*<<list.ml:270:10>>*/ return 0 /*<<list.ml:270:10>>*/ ;
      var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
       /*<<list.ml:273:9>>*/ if
@@ -4354,7 +4354,7 @@
      offset = 1,
      i$1 = i$0,
      param$0 = l;
-    for(;;){
+     /*<<list.ml:269:32>>*/ for(;;){
      if(! param$0){
       dst[1 + offset] = 0;
        /*<<list.ml:273:25>>*/ return block /*<<list.ml:273:25>>*/ ;
@@ -4377,7 +4377,7 @@
     /*<<list.ml:275:31>>*/ }
    function filter_map(f, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:277:35>>*/ for(;;){
      if(! param$0)  /*<<list.ml:278:10>>*/ return 0 /*<<list.ml:278:10>>*/ ;
      var
       l = param$0[2],
@@ -4392,7 +4392,7 @@
        dst = block,
        offset = 1,
        param$1 = l;
-      for(;;){
+       /*<<list.ml:277:35>>*/ for(;;){
        if(! param$1){
         dst[1 + offset] = 0;
          /*<<list.ml:282:23>>*/ return block /*<<list.ml:282:23>>*/ ;
@@ -4417,10 +4417,10 @@
      else
       param$0 = l;
     }
-   }
+    /*<<list.ml:282:37>>*/ }
    function concat_map(f, param){
     var param$0 = param;
-    for(;;){
+     /*<<list.ml:284:35>>*/ for(;;){
      if(! param$0)  /*<<list.ml:285:10>>*/ return 0 /*<<list.ml:285:10>>*/ ;
      var
       xs = param$0[2],
@@ -4466,10 +4466,10 @@
      else
       param$0 = xs;
     }
-   }
+    /*<<list.ml:286:42>>*/ }
    function fold_left_map(f, accu, l){
     var accu$0 = accu, l_accu = 0, param = l;
-    for(;;){
+     /*<<list.ml:293:14>>*/ for(;;){
      if(! param)
        /*<<list.ml:294:12>>*/ return [0, accu$0, rev(l_accu)] /*<<list.ml:294:12>>*/ ;
      var
@@ -4488,7 +4488,7 @@
     /*<<list.ml:298:15>>*/ }
    function partition(p, l){
     var yes = 0, no = 0, param = l;
-    for(;;){
+     /*<<list.ml:301:15>>*/ for(;;){
      if(! param){
       var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
        /*<<list.ml:302:10>>*/ return [0, rev(yes), _x_] /*<<list.ml:302:10>>*/ ;
@@ -4509,7 +4509,7 @@
     /*<<list.ml:304:14>>*/ }
    function partition_map(p, l){
     var left = 0, right = 0, param = l;
-    for(;;){
+     /*<<list.ml:307:15>>*/ for(;;){
      if(! param){
       var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
        /*<<list.ml:308:10>>*/ return [0, rev(left), _w_] /*<<list.ml:308:10>>*/ ;
@@ -5554,7 +5554,7 @@
     return 0;
     /*<<bytes.ml:114:56>>*/ }
    function concat(sep, l){
-     /*<<?>>*/ if(! l)
+     /*<<bytes.ml:132:11>>*/ if(! l)
       /*<<bytes.ml:53:12>>*/ return empty /*<<bytes.ml:53:12>>*/ ;
     var seplen = caml_ml_bytes_length(sep);
     a:
@@ -5562,7 +5562,7 @@
      b:
      {
       var acc = 0, param = l, pos$1 = 0;
-      for(;;){
+       /*<<bytes.ml:118:20>>*/ for(;;){
        if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
@@ -5588,7 +5588,7 @@
          /*<<bytes.ml:136:12>>*/ (_ag_),
      pos = pos$1,
      param$0 = l;
-    for(;;){
+     /*<<bytes.ml:123:21>>*/ for(;;){
      if(! param$0)
        /*<<bytes.ml:124:10>>*/ return dst /*<<bytes.ml:124:10>>*/ ;
      var hd$0 = param$0[1];
@@ -5615,7 +5615,7 @@
      pos = pos$0;
      param$0 = tl$0;
     }
-   }
+    /*<<bytes.ml:137:26>>*/ }
    function cat(s1, s2){
     var
      l1 = caml_ml_bytes_length(s1),
@@ -6167,7 +6167,7 @@
        return 0;
        /*<<bytes.ml:443:13>>*/ },
       i);
-    return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
+     /*<<bytes.ml:64:8>>*/ return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
     /*<<bytes.ml:445:15>>*/ }
    function unsafe_get_uint16_le(b, i){
      /*<<bytes.ml:470:2>>*/ return Stdlib_Sys[11]
@@ -7067,9 +7067,11 @@
               /*<<string.ml:43:2>>*/ caml_call3
                /*<<string.ml:43:2>>*/ (Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
     /*<<string.ml:43:30>>*/ }
-   var blit = Stdlib_Bytes[12], cst_String_concat = "String.concat";
+   var
+    blit =  /*<<string.ml:42:8>>*/ Stdlib_Bytes[12],
+    cst_String_concat = "String.concat";
    function concat(sep, l){
-     /*<<?>>*/ if(! l)
+     /*<<string.ml:63:11>>*/ if(! l)
       /*<<string.ml:64:10>>*/ return cst /*<<string.ml:64:10>>*/ ;
     var seplen = caml_ml_string_length(sep);
     a:
@@ -7077,7 +7079,7 @@
      b:
      {
       var acc = 0, param = l, pos$1 = 0;
-      for(;;){
+       /*<<string.ml:49:20>>*/ for(;;){
        if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
@@ -7103,7 +7105,7 @@
          /*<<string.ml:67:12>>*/ (_W_),
      pos = pos$1,
      param$0 = l;
-    for(;;){
+     /*<<string.ml:54:21>>*/ for(;;){
      if(param$0){
       var hd$0 = param$0[1];
       if(param$0[2]){
@@ -7134,11 +7136,11 @@
         caml_ml_string_length(hd$0));
      }
       /*<<string.ml:66:10>>*/ return  /*<<string.ml:66:10>>*/ caml_call1
-              /*<<string.ml:66:10>>*/ (bts, dst) /*<<string.ml:66:10>>*/ ;
+              /*<<string.ml:66:10>>*/ (bts, dst) /*<<string.ml:68:26>>*/ ;
     }
-   }
+    /*<<string.ml:68:26>>*/ }
    var
-    cat = Stdlib[28],
+    cat =  /*<<string.ml:63:11>>*/ Stdlib[28],
     cst_String_index_from_Bytes_in = "String.index_from / Bytes.index_from",
     cst_String_index_from_opt_Byte =
       "String.index_from_opt / Bytes.index_from_opt",
@@ -8181,14 +8183,14 @@
     /*<<array.ml:172:26>>*/ }
    function list_length(accu, param){
     var accu$0 = accu, param$0 = param;
-    for(;;){
+     /*<<array.ml:175:20>>*/ for(;;){
      if(! param$0)
        /*<<array.ml:176:10>>*/ return accu$0 /*<<array.ml:176:10>>*/ ;
      var t = param$0[2], accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = t;
     }
-   }
+    /*<<array.ml:177:37>>*/ }
    function of_list(l){
      /*<<array.ml:179:14>>*/ if(! l)
       /*<<array.ml:180:10>>*/ return [0] /*<<array.ml:180:10>>*/ ;
@@ -8200,7 +8202,7 @@
          /*<<array.ml:182:14>>*/ (list_length(0, l), hd),
      i = 1,
      param = tl;
-    for(;;){
+     /*<<array.ml:183:19>>*/ for(;;){
      if(! param)  /*<<array.ml:183:6>>*/ return a /*<<array.ml:183:6>>*/ ;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
@@ -8635,7 +8637,8 @@
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<array.ml:400:8>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r)
-        return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
+         /*<<array.ml:106:9>>*/ return blit
+                (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
         s2$0 =  /*<<array.ml:403:24>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -8647,7 +8650,8 @@
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
        var i1$0 =  /*<<array.ml:393:8>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
-        return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
+         /*<<array.ml:106:9>>*/ return blit
+                (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
         s1$0 =  /*<<array.ml:396:18>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -8784,7 +8788,7 @@
      i$1 =  /*<<array.ml:475:16>>*/ len - 2 | 0,
      i = i$1,
      param = tl;
-    for(;;){
+     /*<<array.ml:477:19>>*/ for(;;){
      if(! param)  /*<<array.ml:477:6>>*/ return a /*<<array.ml:477:6>>*/ ;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:479:20>>*/ a[1 + i] = hd$0;
@@ -9182,7 +9186,7 @@
     /*<<float.ml:239:10>>*/ }
    function concat(l){
     var acc = 0, param = l;
-    for(;;){
+     /*<<float.ml:245:22>>*/ for(;;){
      if(! param) break;
      var
       tl = param[2],
@@ -9725,7 +9729,8 @@
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<float.ml:515:10>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r)
-        return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
+         /*<<float.ml:279:11>>*/ return blit
+                (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
         s2$0 =  /*<<float.ml:518:26>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -9737,7 +9742,8 @@
         /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
        var i1$0 =  /*<<float.ml:508:10>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
-        return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
+         /*<<float.ml:279:11>>*/ return blit
+                (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
         s1$0 =  /*<<float.ml:511:20>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -9872,7 +9878,7 @@
      i$1 =  /*<<float.ml:589:14>>*/ len - 1 | 0,
      i = i$1,
      param = l;
-    for(;;){
+     /*<<float.ml:591:17>>*/ for(;;){
      if(! param)  /*<<float.ml:591:4>>*/ return a /*<<float.ml:591:4>>*/ ;
      var tl = param[2], hd = param[1];
       /*<<float.ml:593:18>>*/ a[1 + i] = hd;
@@ -10100,10 +10106,10 @@
      /*<<int32.ml:53:15>>*/ return n ^ -1 /*<<int32.ml:53:15>>*/ ;
     /*<<int32.ml:53:29>>*/ }
    var
-    _a_ = Stdlib_Sys[9],
+    _a_ =  /*<<int32.ml:53:11>>*/ Stdlib_Sys[9],
     _b_ = [0, "int32.ml", 69, 6],
     minus_one = -1,
-    min_int = -2147483648,
+    min_int =  /*<<int32.ml:50:8>>*/ -2147483648,
     max_int = 2147483647;
    if(32 === _a_)
     var
@@ -10447,13 +10453,13 @@
             : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
     /*<<nativeint.ml:46:40>>*/ }
    var
-    size = Stdlib_Sys[9],
+    size =  /*<<nativeint.ml:46:8>>*/ Stdlib_Sys[9],
     min_int =  /*<<nativeint.ml:48:14>>*/ 1 << (size - 1 | 0),
     max_int =  /*<<nativeint.ml:49:14>>*/ min_int - 1 | 0;
    function lognot(n){
      /*<<nativeint.ml:50:15>>*/ return n ^ -1 /*<<nativeint.ml:50:15>>*/ ;
     /*<<nativeint.ml:50:29>>*/ }
-   var max_int$0 = Stdlib[19];
+   var max_int$0 =  /*<<nativeint.ml:50:11>>*/ Stdlib[19];
    function unsigned_to_int(n){
      /*<<nativeint.ml:55:4>>*/ if
      ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal
@@ -10746,7 +10752,7 @@
             [0],
             _g_,
             _f_] /*<<lexing.ml:148:2>>*/ ;
-   }
+    /*<<lexing.ml:160:3>>*/ }
    function from_channel(with_positions, ic){
      /*<<lexing.ml:163:2>>*/ return from_function
             (with_positions,
@@ -10777,7 +10783,7 @@
             [0],
             _e_,
             _d_] /*<<lexing.ml:166:2>>*/ ;
-   }
+    /*<<lexing.ml:179:3>>*/ }
    function set_position(lexbuf, position){
      /*<<lexing.ml:182:2>>*/ lexbuf[12] =
      [0, lexbuf[12][1], position[2], position[3], position[4]];
@@ -11293,7 +11299,7 @@
           /*<<set.ml:125:46>>*/ return create(create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
          /*<<set.ml:128:62>>*/ }
         function add(x, t){
-          /*<<?>>*/ if(! t)
+          /*<<set.ml:132:16>>*/ if(! t)
            /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1] /*<<set.ml:133:21>>*/ ;
          var
           r = t[3],
@@ -11306,26 +11312,26 @@
            /*<<set.ml:136:24>>*/ return t /*<<set.ml:136:24>>*/ ;
          if(0 <= c){
           var rr =  /*<<set.ml:141:21>>*/ add(x, r);
-          return r === rr ? t : bal(l, v, rr);
+          return r === rr ? t : bal(l, v, rr) /*<<set.ml:142:45>>*/ ;
          }
          var ll =  /*<<set.ml:138:21>>*/ add(x, l);
-         return l === ll ? t : bal(ll, v, r);
-        }
+         return l === ll ? t : bal(ll, v, r) /*<<set.ml:142:45>>*/ ;
+         /*<<set.ml:142:45>>*/ }
         function singleton(x){
           /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1] /*<<set.ml:144:26>>*/ ;
          /*<<set.ml:144:54>>*/ }
         function add_min_element(x, param){
-          /*<<?>>*/ if(! param)
-           /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:154:17>>*/ ;
+          /*<<set.ml:153:28>>*/ if(! param)
+           /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:156:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:156:8>>*/ return bal(add_min_element(x, l), v, r) /*<<set.ml:156:8>>*/ ;
-        }
+          /*<<set.ml:156:8>>*/ return bal(add_min_element(x, l), v, r) /*<<set.ml:156:37>>*/ ;
+         /*<<set.ml:156:37>>*/ }
         function add_max_element(x, param){
-          /*<<?>>*/ if(! param)
-           /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:159:17>>*/ ;
+          /*<<set.ml:158:28>>*/ if(! param)
+           /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:161:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r)) /*<<set.ml:161:16>>*/ ;
-        }
+          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
+         /*<<set.ml:161:37>>*/ }
         function join(l, v, r){
           /*<<set.ml:167:6>>*/ if(! l)
            /*<<set.ml:168:22>>*/ return add_min_element(v, r) /*<<set.ml:173:22>>*/ ;
@@ -11423,7 +11429,7 @@
           /*<<set.ml:222:39>>*/ return join(t1, min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
          /*<<set.ml:222:58>>*/ }
         function split(x, param){
-          /*<<?>>*/ if(! param)
+          /*<<set.ml:230:18>>*/ if(! param)
            /*<<set.ml:232:10>>*/ return _a_ /*<<set.ml:232:10>>*/ ;
          var
           r = param[3],
@@ -11448,14 +11454,14 @@
           pres$0 = match$0[2],
           ll = match$0[1];
           /*<<set.ml:237:46>>*/ return [0, ll, pres$0, join(rl, v, r)] /*<<set.ml:237:46>>*/ ;
-        }
+         /*<<set.ml:239:69>>*/ }
         var empty = 0;
         function is_empty(param){
           /*<<set.ml:245:19>>*/ return param ? 0 : 1 /*<<set.ml:245:54>>*/ ;
          /*<<set.ml:245:54>>*/ }
         function mem(x, param){
          var param$0 = param;
-         for(;;){
+          /*<<set.ml:247:16>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:248:17>>*/ return 0 /*<<set.ml:248:17>>*/ ;
           var
@@ -11470,9 +11476,9 @@
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
-        }
+         /*<<set.ml:251:49>>*/ }
         function remove(x, t){
-          /*<<?>>*/ if(! t)
+          /*<<set.ml:253:19>>*/ if(! t)
            /*<<set.ml:254:17>>*/ return 0 /*<<set.ml:254:17>>*/ ;
          var
           t2 = t[3],
@@ -11485,15 +11491,15 @@
           if(! t1)  /*<<set.ml:210:22>>*/ return t2 /*<<set.ml:210:22>>*/ ;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1 /*<<set.ml:211:22>>*/ ;
           var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
-           /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_) /*<<set.ml:212:38>>*/ ;
+           /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
          }
          if(0 <= c){
           var rr =  /*<<set.ml:264:23>>*/ remove(x, t2);
-          return t2 === rr ? t : bal(t1, v, rr);
+          return t2 === rr ? t : bal(t1, v, rr) /*<<set.ml:266:29>>*/ ;
          }
          var ll =  /*<<set.ml:260:23>>*/ remove(x, t1);
-         return t1 === ll ? t : bal(ll, v, t2);
-        }
+         return t1 === ll ? t : bal(ll, v, t2) /*<<set.ml:266:29>>*/ ;
+         /*<<set.ml:266:29>>*/ }
         function union(s1, s2){
           /*<<set.ml:269:6>>*/ if(! s1)
            /*<<set.ml:270:23>>*/ return s2 /*<<set.ml:270:23>>*/ ;
@@ -11544,7 +11550,7 @@
           /*<<set.ml:291:35>>*/ return concat(inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
          /*<<set.ml:293:49>>*/ }
         function split_bis(x, param){
-          /*<<?>>*/ if(! param)
+          /*<<set.ml:303:22>>*/ if(! param)
            /*<<set.ml:305:10>>*/ return [0,
                   0,
                   function(param){
@@ -11573,7 +11579,7 @@
                  function(param){
                    /*<<set.ml:312:60>>*/ return join(rl(0), v, r) /*<<set.ml:312:76>>*/ ;
                   /*<<set.ml:312:76>>*/ }] /*<<set.ml:312:35>>*/ ;
-        }
+         /*<<set.ml:316:61>>*/ }
         function disjoint(s1, s2){
          var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:319:6>>*/ for(;;){
@@ -11696,7 +11702,7 @@
          /*<<set.ml:375:71>>*/ }
         function iter(f, param){
          var param$0 = param;
-         for(;;){
+          /*<<set.ml:377:17>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:378:17>>*/ return 0 /*<<set.ml:378:17>>*/ ;
           var r = param$0[3], v = param$0[2], l = param$0[1];
@@ -11705,7 +11711,7 @@
             /*<<set.ml:379:35>>*/ (f, v);
           param$0 = r;
          }
-        }
+         /*<<set.ml:379:48>>*/ }
         function fold(f, s, accu){
          var s$0 = s, accu$0 = accu;
           /*<<set.ml:382:6>>*/ for(;;){
@@ -11724,7 +11730,7 @@
          /*<<set.ml:384:55>>*/ }
         function for_all(p, param){
          var param$0 = param;
-         for(;;){
+          /*<<set.ml:386:20>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:387:17>>*/ return 1 /*<<set.ml:387:17>>*/ ;
           var
@@ -11743,10 +11749,10 @@
            var _D_ = _B_;
            /*<<set.ml:388:32>>*/ return _D_ /*<<set.ml:388:32>>*/ ;
          }
-        }
+         /*<<set.ml:388:58>>*/ }
         function exists(p, param){
          var param$0 = param;
-         for(;;){
+          /*<<set.ml:390:19>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:391:17>>*/ return 0 /*<<set.ml:391:17>>*/ ;
           var
@@ -11765,9 +11771,9 @@
           }
            /*<<set.ml:392:25>>*/ return _z_ /*<<set.ml:392:25>>*/ ;
          }
-        }
+         /*<<set.ml:392:56>>*/ }
         function filter(p, t){
-          /*<<?>>*/ if(! t)
+          /*<<set.ml:394:19>>*/ if(! t)
            /*<<set.ml:395:17>>*/ return 0 /*<<set.ml:395:17>>*/ ;
          var
           r = t[3],
@@ -11779,13 +11785,13 @@
               /*<<set.ml:399:19>>*/ (p, v),
           r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
-           /*<<set.ml:403:15>>*/ return concat(l$0, r$0) /*<<set.ml:403:15>>*/ ;
+           /*<<set.ml:403:15>>*/ return concat(l$0, r$0) /*<<set.ml:403:27>>*/ ;
          if(l === l$0 && r === r$0)
            /*<<set.ml:402:35>>*/ return t /*<<set.ml:402:35>>*/ ;
-          /*<<set.ml:402:42>>*/ return join(l$0, v, r$0) /*<<set.ml:402:42>>*/ ;
-        }
+          /*<<set.ml:402:42>>*/ return join(l$0, v, r$0) /*<<set.ml:403:27>>*/ ;
+         /*<<set.ml:403:27>>*/ }
         function partition(p, param){
-          /*<<?>>*/ if(! param)
+          /*<<set.ml:405:22>>*/ if(! param)
            /*<<set.ml:406:17>>*/ return _b_ /*<<set.ml:406:17>>*/ ;
          var
           r = param[3],
@@ -11806,7 +11812,7 @@
          }
          var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
           /*<<set.ml:414:15>>*/ return [0, concat(lt, rt), _x_] /*<<set.ml:414:15>>*/ ;
-        }
+         /*<<set.ml:414:43>>*/ }
         function cardinal(param){
           /*<<set.ml:416:23>>*/ if(! param)
            /*<<set.ml:417:17>>*/ return 0 /*<<set.ml:417:17>>*/ ;
@@ -11818,7 +11824,7 @@
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
          var accu$0 = accu, param$0 = param;
-         for(;;){
+          /*<<set.ml:420:25>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:421:17>>*/ return accu$0 /*<<set.ml:421:17>>*/ ;
           var
@@ -11829,13 +11835,13 @@
           accu$0 = accu$1;
           param$0 = l;
          }
-        }
+         /*<<set.ml:422:66>>*/ }
         function elements(s){
           /*<<set.ml:425:6>>*/ return elements_aux(0, s) /*<<set.ml:425:23>>*/ ;
          /*<<set.ml:425:23>>*/ }
         function find(x, param){
          var param$0 = param;
-         for(;;){
+          /*<<set.ml:431:17>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:432:17>>*/ throw  /*<<set.ml:432:17>>*/ caml_maybe_attach_backtrace
                    /*<<set.ml:432:17>>*/ (Stdlib[8], 1);
@@ -11851,10 +11857,10 @@
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
-        }
+         /*<<set.ml:436:46>>*/ }
         function find_first(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<set.ml:447:23>>*/ for(;;){
           if(! param$1)
             /*<<set.ml:449:10>>*/ throw  /*<<set.ml:449:10>>*/ caml_maybe_attach_backtrace
                    /*<<set.ml:449:10>>*/ (Stdlib[8], 1);
@@ -11862,7 +11868,7 @@
            /*<<set.ml:451:13>>*/ if
            ( /*<<set.ml:451:13>>*/ caml_call1 /*<<set.ml:451:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = l$0;
-           for(;;){
+            /*<<set.ml:438:27>>*/ for(;;){
             if(! param)
               /*<<set.ml:440:10>>*/ return v0 /*<<set.ml:440:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
@@ -11879,17 +11885,17 @@
           else
            param$1 = r$0;
          }
-        }
+         /*<<set.ml:454:26>>*/ }
         function find_first_opt(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<set.ml:465:27>>*/ for(;;){
           if(! param$1)
             /*<<set.ml:467:10>>*/ return 0 /*<<set.ml:467:10>>*/ ;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:469:13>>*/ if
            ( /*<<set.ml:469:13>>*/ caml_call1 /*<<set.ml:469:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = l$0;
-           for(;;){
+            /*<<set.ml:456:31>>*/ for(;;){
             if(! param)
               /*<<set.ml:458:10>>*/ return [0, v0] /*<<set.ml:458:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
@@ -11906,10 +11912,10 @@
           else
            param$1 = r$0;
          }
-        }
+         /*<<set.ml:472:30>>*/ }
         function find_last(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<set.ml:483:22>>*/ for(;;){
           if(! param$1)
             /*<<set.ml:485:10>>*/ throw  /*<<set.ml:485:10>>*/ caml_maybe_attach_backtrace
                    /*<<set.ml:485:10>>*/ (Stdlib[8], 1);
@@ -11917,7 +11923,7 @@
            /*<<set.ml:487:13>>*/ if
            ( /*<<set.ml:487:13>>*/ caml_call1 /*<<set.ml:487:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = r$0;
-           for(;;){
+            /*<<set.ml:474:26>>*/ for(;;){
             if(! param)
               /*<<set.ml:476:10>>*/ return v0 /*<<set.ml:476:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
@@ -11934,17 +11940,17 @@
           else
            param$1 = l$0;
          }
-        }
+         /*<<set.ml:490:25>>*/ }
         function find_last_opt(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<set.ml:501:26>>*/ for(;;){
           if(! param$1)
             /*<<set.ml:503:10>>*/ return 0 /*<<set.ml:503:10>>*/ ;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
            /*<<set.ml:505:13>>*/ if
            ( /*<<set.ml:505:13>>*/ caml_call1 /*<<set.ml:505:13>>*/ (f, v0$1)){
            var v0 = v0$1, param = r$0;
-           for(;;){
+            /*<<set.ml:492:30>>*/ for(;;){
             if(! param)
               /*<<set.ml:494:10>>*/ return [0, v0] /*<<set.ml:494:10>>*/ ;
             var r = param[3], v0$0 = param[2], l = param[1];
@@ -11961,10 +11967,10 @@
           else
            param$1 = l$0;
          }
-        }
+         /*<<set.ml:508:29>>*/ }
         function find_opt(x, param){
          var param$0 = param;
-         for(;;){
+          /*<<set.ml:510:21>>*/ for(;;){
           if(! param$0)
             /*<<set.ml:511:17>>*/ return 0 /*<<set.ml:511:17>>*/ ;
           var
@@ -11979,7 +11985,7 @@
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
-        }
+         /*<<set.ml:515:50>>*/ }
         function try_join(l, v, r){
          a:
          {
@@ -12006,7 +12012,7 @@
           /*<<set.ml:524:19>>*/ return union(l, add(v, r)) /*<<set.ml:524:28>>*/ ;
          /*<<set.ml:524:28>>*/ }
         function map(f, t){
-          /*<<?>>*/ if(! t)
+          /*<<set.ml:526:16>>*/ if(! t)
            /*<<set.ml:527:17>>*/ return 0 /*<<set.ml:527:17>>*/ ;
          var
           r = t[3],
@@ -12019,10 +12025,10 @@
           r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
          if(l === l$0 && v === v$0 && r === r$0)
            /*<<set.ml:533:47>>*/ return t /*<<set.ml:533:47>>*/ ;
-          /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0) /*<<set.ml:534:14>>*/ ;
-        }
+          /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0) /*<<set.ml:534:31>>*/ ;
+         /*<<set.ml:534:31>>*/ }
         function filter_map(f, t){
-          /*<<?>>*/ if(! t)
+          /*<<set.ml:542:23>>*/ if(! t)
            /*<<set.ml:543:17>>*/ return 0 /*<<set.ml:543:17>>*/ ;
          var
           r = t[3],
@@ -12037,13 +12043,13 @@
           var v$1 = v$0[1];
           if(l === t1 && v === v$1 && r === t2)
             /*<<set.ml:551:52>>*/ return t /*<<set.ml:551:52>>*/ ;
-           /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:552:19>>*/ ;
+           /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
          }
          if(! t1)  /*<<set.ml:538:22>>*/ return t2 /*<<set.ml:538:22>>*/ ;
          if(! t2)  /*<<set.ml:539:22>>*/ return t1 /*<<set.ml:539:22>>*/ ;
          var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
-          /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_) /*<<set.ml:540:43>>*/ ;
-        }
+          /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
+         /*<<set.ml:555:12>>*/ }
         function of_list(l){
           /*<<set.ml:581:6>>*/ if(! l) return empty;
          var _n_ = l[2], x0 = l[1];
@@ -12386,12 +12392,12 @@
           /*<<map.ml:116:52>>*/ return create
                  (create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
          /*<<map.ml:119:67>>*/ }
-        var empty = 0;
+        var empty =  /*<<map.ml:91:12>>*/ 0;
         function is_empty(param){
           /*<<map.ml:123:19>>*/ return param ? 0 : 1 /*<<map.ml:123:54>>*/ ;
          /*<<map.ml:123:54>>*/ }
         function add(x, data, m){
-          /*<<?>>*/ if(! m)
+          /*<<map.ml:125:16>>*/ if(! m)
            /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1] /*<<map.ml:127:14>>*/ ;
          var
           h = m[5],
@@ -12403,17 +12409,17 @@
              /*<<map.ml:129:18>>*/  /*<<map.ml:129:18>>*/ caml_call2
               /*<<map.ml:129:18>>*/ (Ord[1], x, v);
           /*<<map.ml:130:10>>*/ if(0 === c)
-          return d === data ? m : [0, l, x, data, r, h];
+          return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:137:47>>*/ ;
          if(0 <= c){
           var rr =  /*<<map.ml:136:21>>*/ add(x, data, r);
-          return r === rr ? m : bal(l, v, d, rr);
+          return r === rr ? m : bal(l, v, d, rr) /*<<map.ml:137:47>>*/ ;
          }
          var ll =  /*<<map.ml:133:21>>*/ add(x, data, l);
-         return l === ll ? m : bal(ll, v, d, r);
-        }
+         return l === ll ? m : bal(ll, v, d, r) /*<<map.ml:137:47>>*/ ;
+         /*<<map.ml:137:47>>*/ }
         function find(x, param){
          var param$0 = param;
-         for(;;){
+          /*<<map.ml:139:17>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:141:10>>*/ throw  /*<<map.ml:141:10>>*/ caml_maybe_attach_backtrace
                    /*<<map.ml:141:10>>*/ (Stdlib[8], 1);
@@ -12430,10 +12436,10 @@
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
-        }
+         /*<<map.ml:145:46>>*/ }
         function find_first(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<map.ml:156:23>>*/ for(;;){
           if(! param$1)
             /*<<map.ml:158:10>>*/ throw  /*<<map.ml:158:10>>*/ caml_maybe_attach_backtrace
                    /*<<map.ml:158:10>>*/ (Stdlib[8], 1);
@@ -12445,7 +12451,7 @@
            /*<<map.ml:160:13>>*/ if
            ( /*<<map.ml:160:13>>*/ caml_call1 /*<<map.ml:160:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
-           for(;;){
+            /*<<map.ml:147:27>>*/ for(;;){
             if(! param)
               /*<<map.ml:149:10>>*/ return [0, v0, d0] /*<<map.ml:149:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
@@ -12463,10 +12469,10 @@
           else
            param$1 = r$0;
          }
-        }
+         /*<<map.ml:163:26>>*/ }
         function find_first_opt(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<map.ml:174:27>>*/ for(;;){
           if(! param$1)
             /*<<map.ml:176:10>>*/ return 0 /*<<map.ml:176:10>>*/ ;
           var
@@ -12477,7 +12483,7 @@
            /*<<map.ml:178:13>>*/ if
            ( /*<<map.ml:178:13>>*/ caml_call1 /*<<map.ml:178:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
-           for(;;){
+            /*<<map.ml:165:31>>*/ for(;;){
             if(! param)
               /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]] /*<<map.ml:167:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
@@ -12495,10 +12501,10 @@
           else
            param$1 = r$0;
          }
-        }
+         /*<<map.ml:181:30>>*/ }
         function find_last(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<map.ml:192:22>>*/ for(;;){
           if(! param$1)
             /*<<map.ml:194:10>>*/ throw  /*<<map.ml:194:10>>*/ caml_maybe_attach_backtrace
                    /*<<map.ml:194:10>>*/ (Stdlib[8], 1);
@@ -12510,7 +12516,7 @@
            /*<<map.ml:196:13>>*/ if
            ( /*<<map.ml:196:13>>*/ caml_call1 /*<<map.ml:196:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
-           for(;;){
+            /*<<map.ml:183:26>>*/ for(;;){
             if(! param)
               /*<<map.ml:185:10>>*/ return [0, v0, d0] /*<<map.ml:185:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
@@ -12528,10 +12534,10 @@
           else
            param$1 = l$0;
          }
-        }
+         /*<<map.ml:199:25>>*/ }
         function find_last_opt(f, param$0){
          var param$1 = param$0;
-         for(;;){
+          /*<<map.ml:210:26>>*/ for(;;){
           if(! param$1)
             /*<<map.ml:212:10>>*/ return 0 /*<<map.ml:212:10>>*/ ;
           var
@@ -12542,7 +12548,7 @@
            /*<<map.ml:214:13>>*/ if
            ( /*<<map.ml:214:13>>*/ caml_call1 /*<<map.ml:214:13>>*/ (f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
-           for(;;){
+            /*<<map.ml:201:30>>*/ for(;;){
             if(! param)
               /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]] /*<<map.ml:203:10>>*/ ;
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
@@ -12560,10 +12566,10 @@
           else
            param$1 = l$0;
          }
-        }
+         /*<<map.ml:217:29>>*/ }
         function find_opt(x, param){
          var param$0 = param;
-         for(;;){
+          /*<<map.ml:219:21>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:221:10>>*/ return 0 /*<<map.ml:221:10>>*/ ;
           var
@@ -12579,10 +12585,10 @@
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
-        }
+         /*<<map.ml:225:50>>*/ }
         function mem(x, param){
          var param$0 = param;
-         for(;;){
+          /*<<map.ml:227:16>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:229:10>>*/ return 0 /*<<map.ml:229:10>>*/ ;
           var
@@ -12597,7 +12603,7 @@
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
-        }
+         /*<<map.ml:232:49>>*/ }
         function min_binding(param){
          var param$0 = param;
           /*<<map.ml:234:26>>*/ for(;;){
@@ -12675,7 +12681,7 @@
           /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
          /*<<map.ml:265:44>>*/ }
         function remove(x, m){
-          /*<<?>>*/ if(! m)
+          /*<<map.ml:267:19>>*/ if(! m)
            /*<<map.ml:269:10>>*/ return 0 /*<<map.ml:269:10>>*/ ;
          var
           r = m[4],
@@ -12686,16 +12692,16 @@
              /*<<map.ml:271:18>>*/  /*<<map.ml:271:18>>*/ caml_call2
               /*<<map.ml:271:18>>*/ (Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
-           /*<<map.ml:272:24>>*/ return _d_(l, r) /*<<map.ml:272:24>>*/ ;
+           /*<<map.ml:272:24>>*/ return _d_(l, r) /*<<map.ml:276:70>>*/ ;
          if(0 <= c){
           var rr =  /*<<map.ml:276:21>>*/ remove(x, r);
-          return r === rr ? m : bal(l, v, d, rr);
+          return r === rr ? m : bal(l, v, d, rr) /*<<map.ml:276:70>>*/ ;
          }
          var ll =  /*<<map.ml:274:21>>*/ remove(x, l);
-         return l === ll ? m : bal(ll, v, d, r);
-        }
+         return l === ll ? m : bal(ll, v, d, r) /*<<map.ml:276:70>>*/ ;
+         /*<<map.ml:276:70>>*/ }
         function update(x, f, m){
-          /*<<?>>*/ if(! m){
+          /*<<map.ml:278:19>>*/ if(! m){
           var
            match$0 =
               /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ caml_call1
@@ -12720,17 +12726,17 @@
               /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ caml_call1
                /*<<map.ml:287:18>>*/ (f, [0, d]);
           if(! match)
-            /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:288:22>>*/ ;
+            /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:296:47>>*/ ;
           var data = match[1];
-          return d === data ? m : [0, l, x, data, r, h];
+          return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:296:47>>*/ ;
          }
          if(0 <= c){
           var rr =  /*<<map.ml:295:21>>*/ update(x, f, r);
-          return r === rr ? m : bal(l, v, d, rr);
+          return r === rr ? m : bal(l, v, d, rr) /*<<map.ml:296:47>>*/ ;
          }
          var ll =  /*<<map.ml:292:21>>*/ update(x, f, l);
-         return l === ll ? m : bal(ll, v, d, r);
-        }
+         return l === ll ? m : bal(ll, v, d, r) /*<<map.ml:296:47>>*/ ;
+         /*<<map.ml:296:47>>*/ }
         function add_to_list(x, data, m){
          function add(param){
            /*<<map.ml:299:16>>*/ if(! param)
@@ -12742,7 +12748,7 @@
          /*<<map.ml:300:20>>*/ }
         function iter(f, param){
          var param$0 = param;
-         for(;;){
+          /*<<map.ml:302:17>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:303:17>>*/ return 0 /*<<map.ml:303:17>>*/ ;
           var r = param$0[4], d = param$0[3], v = param$0[2], l = param$0[1];
@@ -12751,9 +12757,9 @@
             /*<<map.ml:305:20>>*/ (f, v, d);
           param$0 = r;
          }
-        }
+         /*<<map.ml:305:35>>*/ }
         function map(f, param){
-          /*<<?>>*/ if(! param)
+          /*<<map.ml:307:16>>*/ if(! param)
            /*<<map.ml:309:10>>*/ return 0 /*<<map.ml:309:10>>*/ ;
          var
           h = param[5],
@@ -12767,9 +12773,9 @@
               /*<<map.ml:312:19>>*/ (f, d),
           r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
           /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:314:14>>*/ ;
-        }
+         /*<<map.ml:314:38>>*/ }
         function mapi(f, param){
-          /*<<?>>*/ if(! param)
+          /*<<map.ml:316:17>>*/ if(! param)
            /*<<map.ml:318:10>>*/ return 0 /*<<map.ml:318:10>>*/ ;
          var
           h = param[5],
@@ -12783,7 +12789,7 @@
               /*<<map.ml:321:19>>*/ (f, v, d),
           r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
           /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:323:14>>*/ ;
-        }
+         /*<<map.ml:323:38>>*/ }
         function fold(f, m, accu){
          var m$0 = m, accu$0 = accu;
           /*<<map.ml:326:6>>*/ for(;;){
@@ -12803,7 +12809,7 @@
          /*<<map.ml:329:42>>*/ }
         function for_all(p, param){
          var param$0 = param;
-         for(;;){
+          /*<<map.ml:331:20>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:332:17>>*/ return 1 /*<<map.ml:332:17>>*/ ;
           var
@@ -12823,10 +12829,10 @@
            var _D_ = _B_;
            /*<<map.ml:333:38>>*/ return _D_ /*<<map.ml:333:38>>*/ ;
          }
-        }
+         /*<<map.ml:333:64>>*/ }
         function exists(p, param){
          var param$0 = param;
-         for(;;){
+          /*<<map.ml:335:19>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:336:17>>*/ return 0 /*<<map.ml:336:17>>*/ ;
           var
@@ -12846,19 +12852,19 @@
           }
            /*<<map.ml:337:29>>*/ return _z_ /*<<map.ml:337:29>>*/ ;
          }
-        }
+         /*<<map.ml:337:62>>*/ }
         function add_min_binding(k, x, param){
-          /*<<?>>*/ if(! param)
-           /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:348:17>>*/ ;
+          /*<<map.ml:347:28>>*/ if(! param)
+           /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:350:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:350:8>>*/ return bal(add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:8>>*/ ;
-        }
+          /*<<map.ml:350:8>>*/ return bal(add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:41>>*/ ;
+         /*<<map.ml:350:41>>*/ }
         function add_max_binding(k, x, param){
-          /*<<?>>*/ if(! param)
-           /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:353:17>>*/ ;
+          /*<<map.ml:352:28>>*/ if(! param)
+           /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:355:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r)) /*<<map.ml:355:18>>*/ ;
-        }
+          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
+         /*<<map.ml:355:41>>*/ }
         function join(l, v, d, r){
           /*<<map.ml:361:6>>*/ if(! l)
            /*<<map.ml:362:22>>*/ return add_min_binding(v, d, r) /*<<map.ml:368:24>>*/ ;
@@ -12901,7 +12907,7 @@
           /*<<map.ml:384:18>>*/ return join(t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
          /*<<map.ml:385:28>>*/ }
         function split(x, param){
-          /*<<?>>*/ if(! param)
+          /*<<map.ml:387:18>>*/ if(! param)
            /*<<map.ml:389:10>>*/ return _a_ /*<<map.ml:389:10>>*/ ;
          var
           r = param[4],
@@ -12927,7 +12933,7 @@
           pres$0 = match$0[2],
           ll = match$0[1];
           /*<<map.ml:394:46>>*/ return [0, ll, pres$0, join(rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
-        }
+         /*<<map.ml:396:71>>*/ }
         function merge(f, s1, s2){
           /*<<map.ml:399:6>>*/ if(s1){
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
@@ -13021,7 +13027,7 @@
           /*<<map.ml:412:35>>*/ return s /*<<map.ml:412:35>>*/ ;
          /*<<map.ml:426:59>>*/ }
         function filter(p, m){
-          /*<<?>>*/ if(! m)
+          /*<<map.ml:428:19>>*/ if(! m)
            /*<<map.ml:429:17>>*/ return 0 /*<<map.ml:429:17>>*/ ;
          var
           r = m[4],
@@ -13034,13 +13040,13 @@
               /*<<map.ml:433:20>>*/ (p, v, d),
           r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
-           /*<<map.ml:436:15>>*/ return concat(l$0, r$0) /*<<map.ml:436:15>>*/ ;
+           /*<<map.ml:436:15>>*/ return concat(l$0, r$0) /*<<map.ml:436:27>>*/ ;
          if(l === l$0 && r === r$0)
            /*<<map.ml:435:45>>*/ return m /*<<map.ml:435:45>>*/ ;
-          /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0) /*<<map.ml:435:52>>*/ ;
-        }
+          /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0) /*<<map.ml:436:27>>*/ ;
+         /*<<map.ml:436:27>>*/ }
         function filter_map(f, param){
-          /*<<?>>*/ if(! param)
+          /*<<map.ml:438:23>>*/ if(! param)
            /*<<map.ml:439:17>>*/ return 0 /*<<map.ml:439:17>>*/ ;
          var
           r = param[4],
@@ -13053,12 +13059,12 @@
               /*<<map.ml:443:20>>*/ (f, v, d),
           r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
-           /*<<map.ml:447:22>>*/ return concat(l$0, r$0) /*<<map.ml:447:22>>*/ ;
+           /*<<map.ml:447:22>>*/ return concat(l$0, r$0) /*<<map.ml:448:13>>*/ ;
          var d$0 = fvd[1];
-          /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0) /*<<map.ml:446:25>>*/ ;
-        }
+          /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0) /*<<map.ml:448:13>>*/ ;
+         /*<<map.ml:448:13>>*/ }
         function partition(p, param){
-          /*<<?>>*/ if(! param)
+          /*<<map.ml:450:22>>*/ if(! param)
            /*<<map.ml:451:17>>*/ return _c_ /*<<map.ml:451:17>>*/ ;
          var
           r = param[4],
@@ -13080,7 +13086,7 @@
          }
          var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
           /*<<map.ml:459:15>>*/ return [0, concat(lt, rt), _t_] /*<<map.ml:459:15>>*/ ;
-        }
+         /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
          var m$0 = m, e$0 = e;
           /*<<map.ml:464:6>>*/ for(;;){
@@ -13187,7 +13193,7 @@
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
          var accu$0 = accu, param$0 = param;
-         for(;;){
+          /*<<map.ml:497:25>>*/ for(;;){
           if(! param$0)
             /*<<map.ml:498:17>>*/ return accu$0 /*<<map.ml:498:17>>*/ ;
           var
@@ -13200,7 +13206,7 @@
           accu$0 = accu$1;
           param$0 = l;
          }
-        }
+         /*<<map.ml:499:75>>*/ }
         function bindings(s){
           /*<<map.ml:502:6>>*/ return bindings_aux(0, s) /*<<map.ml:502:23>>*/ ;
          /*<<map.ml:502:23>>*/ }
@@ -13883,7 +13889,7 @@
     return 0;
     /*<<buffer.ml:120:23>>*/ }
    var
-    uchar_utf_8_byte_length_max = 4,
+    uchar_utf_8_byte_length_max =  /*<<buffer.ml:112:13>>*/ 4,
     uchar_utf_16_byte_length_max = 4,
     cst_Buffer_add_substring_add_s = "Buffer.add_substring/add_subbytes",
     cst_Buffer_add_channel = "Buffer.add_channel",
@@ -14311,7 +14317,7 @@
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
     var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
-    return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
+     /*<<buffer.ml:370:17>>*/ return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
     /*<<buffer.ml:382:57>>*/ }
    function add_int16_be(b, x){
     var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
@@ -14731,7 +14737,7 @@
     var idx = param[1], st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
      /*<<domain.ml:146:4>>*/ return 0 /*<<domain.ml:146:4>>*/ ;
-   }
+    /*<<domain.ml:146:52>>*/ }
    function get(param){
     var
      init = param[2],
@@ -14758,11 +14764,11 @@
       /*<<domain.ml:75:25>>*/ return updated_obj /*<<domain.ml:75:25>>*/ ;
      /*<<domain.ml:184:13>>*/ throw  /*<<domain.ml:184:13>>*/ caml_maybe_attach_backtrace
             /*<<domain.ml:184:13>>*/ ([0, Assert_failure, _a_], 1);
-   }
+    /*<<domain.ml:186:7>>*/ }
    function get_id(param){
     var domain = param[1];
      /*<<domain.ml:201:27>>*/ return domain /*<<domain.ml:201:27>>*/ ;
-   }
+    /*<<domain.ml:201:33>>*/ }
    function self(param){
      /*<<domain.ml:203:14>>*/ return  /*<<domain.ml:203:14>>*/ caml_ml_domain_id
              /*<<domain.ml:203:14>>*/ (0) /*<<domain.ml:203:25>>*/ ;
@@ -14922,7 +14928,7 @@
     var ex = match[1];
      /*<<domain.ml:296:16>>*/ throw  /*<<domain.ml:296:16>>*/ caml_maybe_attach_backtrace
             /*<<domain.ml:296:16>>*/ (ex, 1);
-   }
+    /*<<domain.ml:296:24>>*/ }
    var
     recommended_domain_count = runtime.caml_recommended_domain_count,
     Stdlib_Domain =
@@ -15321,7 +15327,7 @@
       default:
         /*<<camlinternalFormat.ml:301:16>>*/ return 70 /*<<camlinternalFormat.ml:301:16>>*/ ;
     }
-   }
+    /*<<camlinternalFormat.ml:301:19>>*/ }
    function bprint_padty(buf, padty){
      /*<<camlinternalFormat.ml:374:29>>*/ switch(padty){
       case 0:
@@ -15558,11 +15564,11 @@
     }
     /*<<camlinternalFormat.ml:521:22>>*/ }
    function int_of_custom_arity(param){
-     /*<<?>>*/ if(! param)
+     /*<<camlinternalFormat.ml:525:8>>*/ if(! param)
       /*<<camlinternalFormat.ml:528:19>>*/ return 0 /*<<camlinternalFormat.ml:528:19>>*/ ;
     var x = param[1];
     return 1 + int_of_custom_arity(x) | 0;
-   }
+    /*<<camlinternalFormat.ml:529:46>>*/ }
    function string_of_fmt(fmt){
     var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
     function fmtiter(fmt, ign_flag){
@@ -16017,7 +16023,7 @@
      /*<<camlinternalFormat.ml:645:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
     /*<<camlinternalFormat.ml:646:21>>*/ }
    function symm(param){
-     /*<<?>>*/ if(typeof param === "number")
+     /*<<camlinternalFormat.ml:657:8>>*/ if(typeof param === "number")
       /*<<camlinternalFormat.ml:680:20>>*/ return 0 /*<<camlinternalFormat.ml:680:20>>*/ ;
     switch(param[0]){
       case 0:
@@ -16066,9 +16072,9 @@
        var rest$13 = param[1];
         /*<<camlinternalFormat.ml:675:30>>*/ return [14, symm(rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
     }
-   }
+    /*<<camlinternalFormat.ml:680:32>>*/ }
    function fmtty_rel_det(param){
-     /*<<?>>*/ if(typeof param === "number")
+     /*<<camlinternalFormat.ml:682:8>>*/ if(typeof param === "number")
       /*<<camlinternalFormat.ml:691:4>>*/ return [0,
              ,
              function(param){ /*<<camlinternalFormat.ml:692:21>>*/ },
@@ -16289,7 +16295,7 @@
                  /*<<camlinternalFormat.ml:762:17>>*/ de$13(0);
                 /*<<camlinternalFormat.ml:762:43>>*/ }] /*<<camlinternalFormat.ml:759:4>>*/ ;
     }
-   }
+    /*<<camlinternalFormat.ml:775:66>>*/ }
    function trans(ty1, ty2){
     a:
     {
@@ -19713,7 +19719,7 @@
       /*<<camlinternalFormat.ml:1784:16>>*/ return x$11 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1877:14>>*/ ;
     /*<<camlinternalFormat.ml:1881:52>>*/ }
    function fn_of_custom_arity$0(counter, k, o, fmt, param){
-     /*<<?>>*/ if(param){
+     /*<<camlinternalFormat.ml:1882:4>>*/ if(param){
      var
       arity = param[1],
       x =
@@ -19725,11 +19731,11 @@
      /*<<camlinternalFormat.ml:1887:8>>*/ if(counter >= 50)
       /*<<camlinternalFormat.ml:1887:8>>*/ return  /*<<camlinternalFormat.ml:1887:8>>*/ caml_trampoline_return
               /*<<camlinternalFormat.ml:1887:8>>*/ (make_iprintf$0,
-              [0, k, o, fmt]) /*<<camlinternalFormat.ml:1887:8>>*/ ;
+              [0, k, o, fmt]) /*<<camlinternalFormat.ml:1889:48>>*/ ;
     var counter$0 = counter + 1 | 0;
      /*<<camlinternalFormat.ml:1887:8>>*/ return make_iprintf$0
-            (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1887:8>>*/ ;
-   }
+            (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
+    /*<<camlinternalFormat.ml:1889:48>>*/ }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
             (fn_of_custom_arity$0(0, k, o, fmt, param));
@@ -19955,8 +19961,8 @@
       /*<<camlinternalFormat.ml:1961:43>>*/ return  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
               /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib[2], _bu_) /*<<camlinternalFormat.ml:1961:64>>*/ ;
      /*<<camlinternalFormat.ml:1961:64>>*/ }
-     /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:2>>*/ ;
-   }
+     /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
+    /*<<camlinternalFormat.ml:1962:30>>*/ }
    function open_box_of_string(str){
      /*<<camlinternalFormat.ml:1969:2>>*/ if(str === cst$43)
       /*<<camlinternalFormat.ml:1969:19>>*/ return _x_ /*<<camlinternalFormat.ml:1969:19>>*/ ;
@@ -21997,10 +22003,10 @@
        /*<<camlinternalFormat.ml:2990:4>>*/ return  /*<<camlinternalFormat.ml:2990:4>>*/ caml_call2
                /*<<camlinternalFormat.ml:2990:4>>*/ (failwith_message(___),
                str,
-               str$0) /*<<camlinternalFormat.ml:2990:4>>*/ ;
+               str$0) /*<<camlinternalFormat.ml:2991:66>>*/ ;
      throw caml_maybe_attach_backtrace(_$_, 0);
     }
-   }
+    /*<<camlinternalFormat.ml:2991:66>>*/ }
    var
     CamlinternalFormat =
       [0,
@@ -22068,8 +22074,8 @@
               return caml_call1(k, o) /*<<printf.ml:20:47>>*/ ;
               /*<<printf.ml:20:47>>*/ },
              0,
-             fmt) /*<<printf.ml:20:2>>*/ ;
-   }
+             fmt) /*<<printf.ml:20:63>>*/ ;
+    /*<<printf.ml:20:63>>*/ }
    function kbprintf(k, b, param){
     var fmt = param[1];
      /*<<printf.ml:22:2>>*/ return  /*<<printf.ml:22:2>>*/ caml_call3
@@ -22080,13 +22086,13 @@
               return caml_call1(k, b) /*<<printf.ml:22:47>>*/ ;
               /*<<printf.ml:22:47>>*/ },
              0,
-             fmt) /*<<printf.ml:22:2>>*/ ;
-   }
+             fmt) /*<<printf.ml:22:63>>*/ ;
+    /*<<printf.ml:22:63>>*/ }
    function ikfprintf(k, oc, param){
     var fmt = param[1];
      /*<<printf.ml:24:2>>*/ return  /*<<printf.ml:24:2>>*/ caml_call3
-             /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:2>>*/ ;
-   }
+             /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:23>>*/ ;
+    /*<<printf.ml:24:23>>*/ }
    function fprintf(oc, fmt){
      /*<<printf.ml:27:21>>*/ return kfprintf
             (function(_d_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:27:43>>*/ ;
@@ -22124,8 +22130,8 @@
                 /*<<printf.ml:38:6>>*/ (Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
      /*<<printf.ml:38:27>>*/ }
      /*<<printf.ml:39:2>>*/ return  /*<<printf.ml:39:2>>*/ caml_call3
-             /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:2>>*/ ;
-   }
+             /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:31>>*/ ;
+    /*<<printf.ml:39:31>>*/ }
    function sprintf(fmt){
      /*<<printf.ml:41:18>>*/ return ksprintf
             (function(s){
@@ -22449,7 +22455,7 @@
                var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
                 /*<<dynarray.ml:263:11>>*/ return [0, v] /*<<dynarray.ml:263:11>>*/ ;
                /*<<dynarray.ml:263:14>>*/ })] /*<<dynarray.ml:259:2>>*/ ;
-   }
+    /*<<dynarray.ml:265:3>>*/ }
    function get_last(a){
     var length = a[1], arr = a[2];
      /*<<dynarray.ml:269:2>>*/ check_valid_length(length, arr);
@@ -23741,13 +23747,13 @@
    function parse_argv_dynamic(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
      /*<<arg.ml:290:2>>*/ return parse_and_expand_argv_dynamic_
-            (0, current$0, [0, argv], speclist, anonfun, errmsg) /*<<arg.ml:290:2>>*/ ;
-   }
+            (0, current$0, [0, argv], speclist, anonfun, errmsg) /*<<arg.ml:291:10>>*/ ;
+    /*<<arg.ml:291:10>>*/ }
    function parse_argv(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
      /*<<arg.ml:295:2>>*/ return parse_argv_dynamic
-            ([0, current$0], argv, [0, speclist], anonfun, errmsg) /*<<arg.ml:295:2>>*/ ;
-   }
+            ([0, current$0], argv, [0, speclist], anonfun, errmsg) /*<<arg.ml:295:72>>*/ ;
+    /*<<arg.ml:295:72>>*/ }
    function parse(l, f, msg){
      /*<<arg.ml:299:2>>*/ try{
      var
@@ -23867,10 +23873,10 @@
    function max_arg_len(cur, param){
     var doc = param[3], spec = param[2], kwd = param[1];
      /*<<arg.ml:341:2>>*/ if(11 === spec[0])
-     return caml_call2(Stdlib_Int[11], cur, caml_ml_string_length(kwd));
+     return caml_call2(Stdlib_Int[11], cur, caml_ml_string_length(kwd)) /*<<arg.ml:343:58>>*/ ;
     var _N_ = caml_ml_string_length(kwd) + second_word(doc) | 0;
-    return caml_call2(Stdlib_Int[11], cur, _N_);
-   }
+    return caml_call2(Stdlib_Int[11], cur, _N_) /*<<arg.ml:343:58>>*/ ;
+    /*<<arg.ml:343:58>>*/ }
    function replace_leading_tab(s){
     var seen =  /*<<arg.ml:347:13>>*/ [0, 0];
      /*<<arg.ml:348:2>>*/ return  /*<<arg.ml:348:2>>*/ caml_call2
@@ -23960,8 +23966,8 @@
                        /*<<arg.ml:370:20>>*/ caml_call2
                         /*<<arg.ml:370:20>>*/ (Stdlib[28], prefix, _J_)] /*<<arg.ml:370:8>>*/ ;
              },
-             completed) /*<<arg.ml:377:2>>*/ ;
-   }
+             completed) /*<<arg.ml:377:38>>*/ ;
+    /*<<arg.ml:377:38>>*/ }
    function read_aux(trim, sep, file){
     var
      ic =
@@ -24035,7 +24041,7 @@
               /*<<arg.ml:405:16>>*/ (Stdlib_Array[11], _F_) /*<<arg.ml:405:33>>*/ ;
     }
     /*<<arg.ml:405:33>>*/ }
-   var _r_ = 10, _s_ = 1;
+   var _r_ =  /*<<arg.ml:386:13>>*/ 10, _s_ = 1;
    function read_arg(_D_){ /*<<?>>*/ return read_aux(_s_, _r_, _D_);}
    var
     _t_ =  /*<<arg.ml:407:15>>*/ 0,
@@ -24057,7 +24063,7 @@
      /*<<arg.ml:413:2>>*/ return  /*<<arg.ml:413:2>>*/ caml_call1
              /*<<arg.ml:413:2>>*/ (Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
     /*<<arg.ml:414:14>>*/ }
-   var _w_ = 10;
+   var _w_ =  /*<<arg.ml:411:14>>*/ 10;
    function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
    var _x_ =  /*<<arg.ml:416:16>>*/ 0;
    function write_arg0(_y_, _z_){ /*<<?>>*/ return write_aux(_x_, _y_, _z_);}
@@ -25085,8 +25091,8 @@
    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:158:6>>*/ (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:6>>*/ ;
-   }
+             /*<<gc.ml:158:6>>*/ (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:50>>*/ ;
+    /*<<gc.ml:158:50>>*/ }
    var
     Stdlib_Gc =
       [0,
@@ -25241,7 +25247,7 @@
      /*<<in_channel.ml:66:9>>*/ return [0, s] /*<<in_channel.ml:66:9>>*/ ;
     /*<<in_channel.ml:67:33>>*/ }
    var
-    input = Stdlib[84],
+    input =  /*<<in_channel.ml:64:15>>*/ Stdlib[84],
     cst_input_bigarray = "input_bigarray",
     _a_ = [0, 0],
     _b_ = [0, 0],
@@ -25615,7 +25621,7 @@
              /*<<out_channel.ml:68:7>>*/ (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
     /*<<out_channel.ml:69:44>>*/ }
    var
-    set_binary_mode = Stdlib[78],
+    set_binary_mode =  /*<<out_channel.ml:66:20>>*/ Stdlib[78],
     Stdlib_Out_channel =
       [0,
        stdout,
@@ -25876,8 +25882,8 @@
               /*<<digest.ml:126:27>>*/ (Stdlib[66], chan, digest) /*<<digest.ml:126:52>>*/ ;
      /*<<digest.ml:126:52>>*/ }
     function input(chan){
-      /*<<digest.ml:128:19>>*/ return caml_call2
-             (Stdlib[86], chan, hash_length) /*<<digest.ml:128:55>>*/ ;
+      /*<<digest.ml:128:19>>*/ return  /*<<digest.ml:126:13>>*/ caml_call2
+              /*<<digest.ml:126:13>>*/ (Stdlib[86], chan, hash_length) /*<<digest.ml:128:55>>*/ ;
      /*<<digest.ml:128:55>>*/ }
     function to_hex(d){
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
@@ -26053,7 +26059,7 @@
     Stdlib_Array = global_data.Stdlib__Array,
     Stdlib_Sys = global_data.Stdlib__Sys;
    function kind_size_in_bytes(param){
-     /*<<?>>*/ switch(param){
+     /*<<bigarray.ml:76:4>>*/ switch(param){
       case 0:
         /*<<bigarray.ml:78:15>>*/ return 4 /*<<bigarray.ml:78:15>>*/ ;
       case 1:
@@ -26082,7 +26088,7 @@
         /*<<bigarray.ml:90:12>>*/ return 1 /*<<bigarray.ml:90:12>>*/ ;
       default:  /*<<bigarray.ml:77:15>>*/ return 2 /*<<bigarray.ml:77:15>>*/ ;
     }
-   }
+    /*<<bigarray.ml:90:13>>*/ }
    var
     cst_Bigarray_Array2_of_array_n =
       "Bigarray.Array2.of_array: non-rectangular data",
@@ -27005,7 +27011,7 @@
        bound <= 1073741823
         ? max_int31
         : bound <= 2147483647 ? max_int32 : Stdlib[19];
-    return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
+     /*<<random.ml:153:10>>*/ return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
     /*<<random.ml:173:22>>*/ }
    function int_in_range_aux(s, min, max, mask, nbits){
     var span = (max - min | 0) + 1 | 0;
@@ -27528,7 +27534,8 @@
              /*<<hashtbl.ml:57:19>>*/ (Stdlib_Atomic[4], randomized, 1) /*<<hashtbl.ml:57:45>>*/ ;
     /*<<hashtbl.ml:57:45>>*/ }
    function is_randomized(param){
-     /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
+     /*<<hashtbl.ml:58:23>>*/ return  /*<<hashtbl.ml:57:14>>*/ caml_call1
+             /*<<hashtbl.ml:57:14>>*/ (Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
     /*<<hashtbl.ml:58:44>>*/ }
    var
     prng_key =
@@ -27571,7 +27578,7 @@
               /*<<hashtbl.ml:78:52>>*/ (s, 0),
             seed,
             s] /*<<hashtbl.ml:78:2>>*/ ;
-   }
+    /*<<hashtbl.ml:78:72>>*/ }
    function clear(h){
     var _aj_ = 0 < h[1] ? 1 : 0;
     return _aj_
@@ -27615,7 +27622,7 @@
      prec$1 =  /*<<hashtbl.ml:109:19>>*/ [0, key, data, next],
      prec = prec$1,
      param$0 = next;
-    for(;;){
+     /*<<hashtbl.ml:99:19>>*/ for(;;){
      if(! param$0)
        /*<<hashtbl.ml:110:6>>*/ return prec$1 /*<<hashtbl.ml:110:6>>*/ ;
      var
@@ -27766,7 +27773,7 @@
         slot$0 =  /*<<hashtbl.ml:200:44>>*/ caml_check_bound(h[2], i)[1 + i],
         prec = 0,
         slot = slot$0;
-       for(;;){
+        /*<<hashtbl.ml:174:34>>*/ for(;;){
         if(! slot) break;
         var
          key = slot[1],
@@ -27858,7 +27865,7 @@
     /*<<hashtbl.ml:226:13>>*/ }
    function bucket_length(accu, param){
     var accu$0 = accu, param$0 = param;
-    for(;;){
+     /*<<hashtbl.ml:235:22>>*/ for(;;){
      if(! param$0)
        /*<<hashtbl.ml:236:13>>*/ return accu$0 /*<<hashtbl.ml:236:13>>*/ ;
      var
@@ -27867,7 +27874,7 @@
      accu$0 = accu$1;
      param$0 = next;
     }
-   }
+    /*<<hashtbl.ml:237:47>>*/ }
    function stats(h){
     var
      mbl =
@@ -27959,7 +27966,7 @@
       c =  /*<<hashtbl.ml:381:34>>*/ caml_check_bound(h[2], i)[1 + i],
       prec$0 = 0,
       prec = c;
-     for(;;){
+      /*<<hashtbl.ml:366:26>>*/ for(;;){
       if(! prec)
         /*<<hashtbl.ml:368:10>>*/ return 0 /*<<hashtbl.ml:368:10>>*/ ;
       var k = prec[1], next = prec[3];
@@ -28004,7 +28011,7 @@
          /*<<hashtbl.ml:401:21>>*/ (H[1], key, k3))
        /*<<hashtbl.ml:401:41>>*/ return d3 /*<<hashtbl.ml:401:41>>*/ ;
      var param = next3;
-     for(;;){
+      /*<<hashtbl.ml:383:21>>*/ for(;;){
       if(! param)
         /*<<hashtbl.ml:385:10>>*/ throw  /*<<hashtbl.ml:385:10>>*/ caml_maybe_attach_backtrace
                /*<<hashtbl.ml:385:10>>*/ (Stdlib[8], 1);
@@ -28042,7 +28049,7 @@
          /*<<hashtbl.ml:421:21>>*/ (H[1], key, k3))
        /*<<hashtbl.ml:421:41>>*/ return [0, d3] /*<<hashtbl.ml:421:41>>*/ ;
      var param = next3;
-     for(;;){
+      /*<<hashtbl.ml:403:25>>*/ for(;;){
       if(! param)
         /*<<hashtbl.ml:405:10>>*/ return 0 /*<<hashtbl.ml:405:10>>*/ ;
       var k = param[1], data = param[2], next = param[3];
@@ -28096,7 +28103,7 @@
       i =  /*<<hashtbl.ml:442:14>>*/ key_index(h, key),
       l =  /*<<hashtbl.ml:443:14>>*/ caml_check_bound(h[2], i)[1 + i],
       slot = l;
-     for(;;){
+      /*<<hashtbl.ml:433:27>>*/ for(;;){
       if(slot){
        var k = slot[1], next = slot[3];
         /*<<hashtbl.ml:437:13>>*/ if
@@ -28129,7 +28136,7 @@
      var
       _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _u_)[1 + _u_];
-     for(;;){
+      /*<<hashtbl.ml:450:26>>*/ for(;;){
       if(! param)
         /*<<hashtbl.ml:452:10>>*/ return 0 /*<<hashtbl.ml:452:10>>*/ ;
       var
@@ -28296,7 +28303,7 @@
      c =  /*<<hashtbl.ml:532:30>>*/ caml_check_bound(h[2], i)[1 + i],
      prec$0 = 0,
      prec = c;
-    for(;;){
+     /*<<hashtbl.ml:517:22>>*/ for(;;){
      if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0 /*<<hashtbl.ml:519:6>>*/ ;
      var k = prec[1], next = prec[3];
       /*<<hashtbl.ml:521:9>>*/ if
@@ -28348,7 +28355,7 @@
          /*<<hashtbl.ml:552:17>>*/ (key, k3))
       /*<<hashtbl.ml:552:41>>*/ return d3 /*<<hashtbl.ml:552:41>>*/ ;
     var param = next3;
-    for(;;){
+     /*<<hashtbl.ml:534:17>>*/ for(;;){
      if(! param)
        /*<<hashtbl.ml:536:6>>*/ throw  /*<<hashtbl.ml:536:6>>*/ caml_maybe_attach_backtrace
               /*<<hashtbl.ml:536:6>>*/ (Stdlib[8], 1);
@@ -28394,7 +28401,7 @@
          /*<<hashtbl.ml:572:17>>*/ (key, k3))
       /*<<hashtbl.ml:572:41>>*/ return [0, d3] /*<<hashtbl.ml:572:41>>*/ ;
     var param = next3;
-    for(;;){
+     /*<<hashtbl.ml:554:21>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0 /*<<hashtbl.ml:556:6>>*/ ;
      var k = param[1], data = param[2], next = param[3];
       /*<<hashtbl.ml:558:9>>*/ if
@@ -28452,7 +28459,7 @@
      i =  /*<<hashtbl.ml:593:10>>*/ key_index(h, key),
      l =  /*<<hashtbl.ml:594:10>>*/ caml_check_bound(h[2], i)[1 + i],
      slot = l;
-    for(;;){
+     /*<<hashtbl.ml:584:23>>*/ for(;;){
      if(slot){
       var k = slot[1], next = slot[3];
        /*<<hashtbl.ml:588:9>>*/ if
@@ -28486,7 +28493,7 @@
     var
      _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _k_)[1 + _k_];
-    for(;;){
+     /*<<hashtbl.ml:601:22>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0 /*<<hashtbl.ml:603:6>>*/ ;
      var
       k = param[1],
@@ -28555,7 +28562,7 @@
      /*<<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 /*<<hashtbl.ml:633:2>>*/ ;
-   }
+    /*<<hashtbl.ml:634:4>>*/ }
    var
     Stdlib_Hashtbl =
       [0,
@@ -28735,7 +28742,7 @@
     function get_index(t, h){
       /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1) /*<<weak.ml:117:65>>*/ ;
      /*<<weak.ml:117:65>>*/ }
-    var limit = 7;
+    var limit =  /*<<weak.ml:117:16>>*/ 7;
     function create$0(sz){
      var
       sz$0 = 7 <= sz ? sz : 7,
@@ -29247,7 +29254,7 @@
     return caml_call2(Stdlib_Queue[3], token, state[28]) /*<<format.ml:220:32>>*/ ;
     /*<<format.ml:220:32>>*/ }
    var
-    pp_infinity = 1000000010,
+    pp_infinity =  /*<<format.ml:223:19>>*/ 1000000010,
     _b_ = [0, cst$16],
     _c_ = [1, "margin <= max_indent"],
     _d_ = [1, "margin >= pp_infinity"],
@@ -29288,18 +29295,18 @@
     var n = state[10];
      /*<<format.ml:254:31>>*/  /*<<format.ml:254:31>>*/ caml_call1
       /*<<format.ml:254:31>>*/ (state[21], n);
-     /*<<format.ml:276:2>>*/ return format_string(state, after) /*<<format.ml:276:2>>*/ ;
-   }
+     /*<<format.ml:276:2>>*/ return format_string(state, after) /*<<format.ml:277:27>>*/ ;
+    /*<<format.ml:277:27>>*/ }
    function break_same_line(state, param){
     var after = param[3], width = param[2], before = param[1];
      /*<<format.ml:285:2>>*/ format_string(state, before);
     state[9] = state[9] - width | 0;
      /*<<format.ml:253:31>>*/  /*<<format.ml:253:31>>*/ caml_call1
       /*<<format.ml:253:31>>*/ (state[20], width);
-     /*<<format.ml:287:2>>*/ return format_string(state, after) /*<<format.ml:287:2>>*/ ;
-   }
+     /*<<format.ml:287:2>>*/ return format_string(state, after) /*<<format.ml:288:27>>*/ ;
+    /*<<format.ml:288:27>>*/ }
    function format_pp_token(state, size$0, param){
-     /*<<?>>*/ if(typeof param === "number")
+     /*<<format.ml:320:20>>*/ if(typeof param === "number")
      switch(param){
        case 0:
         var
@@ -29312,14 +29319,14 @@
          tabs = match$3[1][1],
          add_tab =
             /*<<format.ml:351:6>>*/ function(n, ls){
-             /*<<?>>*/ if(! ls)
+             /*<<format.ml:351:22>>*/ if(! ls)
               /*<<format.ml:352:16>>*/ return [0, n, 0] /*<<format.ml:352:16>>*/ ;
             var l = ls[2], x = ls[1];
              /*<<format.ml:353:29>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
                       /*<<format.ml:353:29>>*/ (n, x)
                     ? [0, n, ls]
-                    : [0, x, add_tab(n, l)];
-           };
+                    : [0, x, add_tab(n, l)] /*<<format.ml:353:69>>*/ ;
+            /*<<format.ml:353:69>>*/ };
         tabs[1] = add_tab(state[6] - state[9] | 0, tabs[1]);
         return;
        case 1:
@@ -29336,9 +29343,9 @@
             /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ caml_call1
              /*<<format.ml:378:16>>*/ (Stdlib_Stack[8], state[2]);
         if(! match$4)
-          /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:379:14>>*/ ;
+          /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:424:8>>*/ ;
         var width$0 = match$4[1][2];
-         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:281:29>>*/ ;
+         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
        case 4:
         var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
         if(! _a8_) return _a8_;
@@ -29364,12 +29371,12 @@
          marker =
             /*<<format.ml:422:20>>*/  /*<<format.ml:422:20>>*/ caml_call1
              /*<<format.ml:422:20>>*/ (state[25], tag_name);
-         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker) /*<<format.ml:423:7>>*/ ;
+         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker) /*<<format.ml:424:8>>*/ ;
      }
     switch(param[0]){
       case 0:
        var s = param[1];
-        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s) /*<<format.ml:323:4>>*/ ;
+        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s) /*<<format.ml:424:8>>*/ ;
       case 1:
        var
         breaks = param[2],
@@ -29387,17 +29394,17 @@
         box_type$0 = match$7[1];
         /*<<format.ml:392:6>>*/ switch(box_type$0){
          case 0:
-           /*<<format.ml:409:19>>*/ return break_same_line(state, fits) /*<<format.ml:409:19>>*/ ;
+           /*<<format.ml:409:19>>*/ return break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          case 1:
            /*<<format.ml:408:19>>*/ return break_new_line
-                  (state, breaks, width$1) /*<<format.ml:408:19>>*/ ;
+                  (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 2:
            /*<<format.ml:406:20>>*/ return break_new_line
-                  (state, breaks, width$1) /*<<format.ml:406:20>>*/ ;
+                  (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 3:
           return state[9] < (size$0 + caml_ml_string_length(before) | 0)
                   ? break_new_line(state, breaks, width$1)
-                  : break_same_line(state, fits);
+                  : break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          case 4:
           return state[11]
                   ? break_same_line(state, fits)
@@ -29413,9 +29420,9 @@
                       | 0)
                       < state[10]
                       ? break_new_line(state, breaks, width$1)
-                      : break_same_line(state, fits);
+                      : break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          default:
-           /*<<format.ml:407:19>>*/ return break_same_line(state, fits) /*<<format.ml:407:19>>*/ ;
+           /*<<format.ml:407:19>>*/ return break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
        }
       case 2:
        var
@@ -29450,7 +29457,7 @@
         /*<<format.ml:372: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]);
+                 (state, [0, cst$2, tab + off$0 | 0, cst$1], state[6]) /*<<format.ml:424:8>>*/ ;
       case 3:
        var
         ty = param[2],
@@ -29476,11 +29483,11 @@
         /*<<format.ml:336:4>>*/ return  /*<<format.ml:336:4>>*/ caml_call2
                 /*<<format.ml:336:4>>*/ (Stdlib_Stack[3],
                 [0, box_type$1, width$2],
-                state[2]) /*<<format.ml:336:4>>*/ ;
+                state[2]) /*<<format.ml:424:8>>*/ ;
       case 4:
        var tbox = param[1];
         /*<<format.ml:342:4>>*/ return  /*<<format.ml:342:4>>*/ caml_call2
-                /*<<format.ml:342:4>>*/ (Stdlib_Stack[3], tbox, state[3]) /*<<format.ml:342:4>>*/ ;
+                /*<<format.ml:342:4>>*/ (Stdlib_Stack[3], tbox, state[3]) /*<<format.ml:424:8>>*/ ;
       default:
        var
         tag_name$0 = param[1],
@@ -29488,9 +29495,9 @@
            /*<<format.ml:414:18>>*/  /*<<format.ml:414:18>>*/ caml_call1
             /*<<format.ml:414:18>>*/ (state[24], tag_name$0);
         /*<<format.ml:415:5>>*/ pp_output_string(state, marker$0);
-       return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]);
+       return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]) /*<<format.ml:424:8>>*/ ;
     }
-   }
+    /*<<format.ml:424:8>>*/ }
    function advance_left(state){
      /*<<format.ml:431:2>>*/ for(;;){
      var
@@ -29544,7 +29551,7 @@
      left_total = match$0[1],
      size =  /*<<format.ml:479:4>>*/ queue_elem[1];
     if(left_total < state[12])
-     return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
+      /*<<format.ml:461:26>>*/ return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
     var _a5_ = queue_elem[2];
     if(typeof _a5_ !== "number")
      switch(_a5_[0]){
@@ -29666,7 +29673,7 @@
     state[26] = pot;
     state[27] = pct;
     return 0;
-   }
+    /*<<format.ml:586:33>>*/ }
    function pp_rinit(state){
      /*<<format.ml:591:2>>*/ state[12] = 1;
     state[13] = 1;
@@ -29908,8 +29915,8 @@
     var margin = param[2], max_indent = param[1];
      /*<<format.ml:820:2>>*/ return 2 <= max_indent
             ? margin <= max_indent ? _c_ : 1000000010 <= margin ? _d_ : _e_
-            : _f_;
-   }
+            : _f_ /*<<format.ml:826:12>>*/ ;
+    /*<<format.ml:826:12>>*/ }
    function check_geometry(geometry){
      /*<<format.ml:829:2>>*/ return 0 === validate_geometry(geometry)[0]
             ? 1
@@ -29923,7 +29930,7 @@
      /*<<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:837:2>>*/ ;
-   }
+    /*<<format.ml:838:4>>*/ }
    function pp_set_geometry(state, max_indent, margin){
     var
      geometry =  /*<<format.ml:841:17>>*/ [0, max_indent, margin],
@@ -29964,7 +29971,7 @@
     state[20] = i;
     state[21] = j;
     return 0;
-   }
+    /*<<format.ml:875:26>>*/ }
    function pp_get_formatter_out_functions(state, param){
      /*<<format.ml:877:46>>*/ return [0,
             state[17],
@@ -30134,10 +30141,10 @@
                /*<<format.ml:1008:17>>*/ (Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
     /*<<format.ml:1008:48>>*/ }
-   var pp_buffer_size = 512;
+   var pp_buffer_size =  /*<<format.ml:1007:24>>*/ 512;
    function pp_make_buffer(param){
-     /*<<format.ml:1015:24>>*/ return caml_call1
-            (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
+     /*<<format.ml:1015:24>>*/ return  /*<<format.ml:1007:24>>*/ caml_call1
+             /*<<format.ml:1007:24>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
     /*<<format.ml:1015:52>>*/ }
    var
     stdbuf =  /*<<format.ml:1018:13>>*/ pp_make_buffer(0),
@@ -30198,8 +30205,8 @@
         /*<<format.ml:1047:18>>*/ (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1047:48>>*/ return caml_call1
-                 (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1047:76>>*/ ;
+          /*<<format.ml:1047:48>>*/ return  /*<<format.ml:1039:23>>*/ caml_call1
+                  /*<<format.ml:1039:23>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1047:76>>*/ ;
          /*<<format.ml:1047:76>>*/ }),
     err_buf_key =
        /*<<format.ml:1048:18>>*/  /*<<format.ml:1048:18>>*/ caml_call2
@@ -30281,16 +30288,18 @@
              std_formatter_key) /*<<format.ml:1074:52>>*/ ;
     /*<<format.ml:1074: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:1075:27>>*/ return  /*<<format.ml:1074:22>>*/ caml_call1
+             /*<<format.ml:1074:22>>*/ (Stdlib_Domain[10][2],
+             err_formatter_key) /*<<format.ml:1075:52>>*/ ;
     /*<<format.ml:1075: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:1076:27>>*/ return  /*<<format.ml:1075:22>>*/ caml_call1
+             /*<<format.ml:1075:22>>*/ (Stdlib_Domain[10][2],
+             str_formatter_key) /*<<format.ml:1076:52>>*/ ;
     /*<<format.ml:1076:52>>*/ }
    function get_stdbuf(param){
-     /*<<format.ml:1077:20>>*/ return caml_call1
-            (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
+     /*<<format.ml:1077:20>>*/ return  /*<<format.ml:1076:22>>*/ caml_call1
+             /*<<format.ml:1076:22>>*/ (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
     /*<<format.ml:1077:38>>*/ }
    function flush_buffer_formatter(buf, ppf){
      /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
@@ -30779,23 +30788,23 @@
               /*<<format.ml:1260:45>>*/ (pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
      /*<<format.ml:1261:14>>*/ }
      /*<<format.ml:1263:2>>*/ return  /*<<format.ml:1263:2>>*/ caml_call2
-             /*<<format.ml:1263:2>>*/ (iter, pp_v$0, v) /*<<format.ml:1263:2>>*/ ;
-   }
+             /*<<format.ml:1263:2>>*/ (iter, pp_v$0, v) /*<<format.ml:1263:13>>*/ ;
+    /*<<format.ml:1263:13>>*/ }
    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
-            ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v) /*<<format.ml:1267:2>>*/ ;
-   }
+            ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v) /*<<format.ml:1267:44>>*/ ;
+    /*<<format.ml:1267:44>>*/ }
    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
-            ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v) /*<<format.ml:1271:2>>*/ ;
-   }
+            ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v) /*<<format.ml:1271:45>>*/ ;
+    /*<<format.ml:1271:45>>*/ }
    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
-            ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq) /*<<format.ml:1275:2>>*/ ;
-   }
+            ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq) /*<<format.ml:1275:45>>*/ ;
+    /*<<format.ml:1275:45>>*/ }
    function pp_print_text(ppf, s){
     var
      len = caml_ml_string_length(s),
@@ -30845,31 +30854,31 @@
           /*<<format.ml:1299:43>>*/ };
     if(! param)
       /*<<format.ml:1300:10>>*/ return  /*<<format.ml:1300:10>>*/ caml_call2
-              /*<<format.ml:1300:10>>*/ (none, ppf, 0) /*<<format.ml:1300:10>>*/ ;
+              /*<<format.ml:1300:10>>*/ (none, ppf, 0) /*<<format.ml:1301:22>>*/ ;
     var v = param[1];
      /*<<format.ml:1301:12>>*/ return  /*<<format.ml:1301:12>>*/ caml_call2
-             /*<<format.ml:1301:12>>*/ (pp_v, ppf, v) /*<<format.ml:1301:12>>*/ ;
-   }
+             /*<<format.ml:1301:12>>*/ (pp_v, ppf, v) /*<<format.ml:1301:22>>*/ ;
+    /*<<format.ml:1301:22>>*/ }
    function pp_print_result(ok, error, ppf, param){
-     /*<<?>>*/ if(0 === param[0]){
+     /*<<format.ml:1303:20>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<format.ml:1304:10>>*/ return  /*<<format.ml:1304:10>>*/ caml_call2
-              /*<<format.ml:1304:10>>*/ (ok, ppf, v) /*<<format.ml:1304:10>>*/ ;
+              /*<<format.ml:1304:10>>*/ (ok, ppf, v) /*<<format.ml:1305:24>>*/ ;
     }
     var e = param[1];
      /*<<format.ml:1305:13>>*/ return  /*<<format.ml:1305:13>>*/ caml_call2
-             /*<<format.ml:1305:13>>*/ (error, ppf, e) /*<<format.ml:1305:13>>*/ ;
-   }
+             /*<<format.ml:1305:13>>*/ (error, ppf, e) /*<<format.ml:1305:24>>*/ ;
+    /*<<format.ml:1305:24>>*/ }
    function pp_print_either(left, right, ppf, param){
-     /*<<?>>*/ if(0 === param[0]){
+     /*<<format.ml:1307:20>>*/ if(0 === param[0]){
      var l = param[1];
       /*<<format.ml:1308:19>>*/ return  /*<<format.ml:1308:19>>*/ caml_call2
-              /*<<format.ml:1308:19>>*/ (left, ppf, l) /*<<format.ml:1308:19>>*/ ;
+              /*<<format.ml:1308:19>>*/ (left, ppf, l) /*<<format.ml:1309:31>>*/ ;
     }
     var r = param[1];
      /*<<format.ml:1309:20>>*/ return  /*<<format.ml:1309:20>>*/ caml_call2
-             /*<<format.ml:1309:20>>*/ (right, ppf, r) /*<<format.ml:1309:20>>*/ ;
-   }
+             /*<<format.ml:1309:20>>*/ (right, ppf, r) /*<<format.ml:1309:31>>*/ ;
+    /*<<format.ml:1309:31>>*/ }
    function compute_tag(output, tag_acc){
     var
      buf =
@@ -31160,21 +31169,21 @@
               return caml_call1(k, ppf) /*<<format.ml:1420:41>>*/ ;
               /*<<format.ml:1420:41>>*/ },
              0,
-             fmt) /*<<format.ml:1419:2>>*/ ;
-   }
+             fmt) /*<<format.ml:1421:18>>*/ ;
+    /*<<format.ml:1421:18>>*/ }
    function ikfprintf(k, ppf, param){
     var fmt = param[1];
      /*<<format.ml:1424:2>>*/ return  /*<<format.ml:1424:2>>*/ caml_call3
-             /*<<format.ml:1424:2>>*/ (CamlinternalFormat[8], k, ppf, fmt) /*<<format.ml:1424:2>>*/ ;
-   }
+             /*<<format.ml:1424:2>>*/ (CamlinternalFormat[8], k, ppf, fmt) /*<<format.ml:1424:24>>*/ ;
+    /*<<format.ml:1424:24>>*/ }
    function ifprintf(ppf, param){
     var fmt = param[1];
      /*<<format.ml:1427:2>>*/ return  /*<<format.ml:1427:2>>*/ caml_call3
              /*<<format.ml:1427:2>>*/ (CamlinternalFormat[8],
              function(_u_){ /*<<?>>*/ return 0;},
              0,
-             fmt) /*<<format.ml:1427:2>>*/ ;
-   }
+             fmt) /*<<format.ml:1427:28>>*/ ;
+    /*<<format.ml:1427:28>>*/ }
    function fprintf(ppf){
     function _r_(_t_){ /*<<?>>*/ return 0;}
      /*<<format.ml:1429:18>>*/ return function(_s_){
@@ -31192,8 +31201,8 @@
                        acc) /*<<format.ml:1433:58>>*/ ;
               /*<<format.ml:1433:58>>*/ },
              0,
-             fmt) /*<<format.ml:1432:2>>*/ ;
-   }
+             fmt) /*<<format.ml:1434:18>>*/ ;
+    /*<<format.ml:1434:18>>*/ }
    function eprintf(param){
     var fmt = param[1];
      /*<<format.ml:1437:2>>*/ return  /*<<format.ml:1437:2>>*/ caml_call3
@@ -31206,8 +31215,8 @@
                        acc) /*<<format.ml:1438:58>>*/ ;
               /*<<format.ml:1438:58>>*/ },
              0,
-             fmt) /*<<format.ml:1437:2>>*/ ;
-   }
+             fmt) /*<<format.ml:1439:18>>*/ ;
+    /*<<format.ml:1439:18>>*/ }
    function kdprintf(k, param){
     var fmt = param[1];
      /*<<format.ml:1442:2>>*/ return  /*<<format.ml:1442:2>>*/ caml_call3
@@ -31220,8 +31229,8 @@
                         /*<<format.ml:1443:48>>*/ }) /*<<format.ml:1443:49>>*/ ;
               /*<<format.ml:1443:49>>*/ },
              0,
-             fmt) /*<<format.ml:1442:2>>*/ ;
-   }
+             fmt) /*<<format.ml:1444:18>>*/ ;
+    /*<<format.ml:1444:18>>*/ }
    function dprintf(fmt){
      /*<<format.ml:1446:18>>*/ return kdprintf
             (function(i){
@@ -31240,8 +31249,8 @@
               /*<<format.ml:1453:6>>*/ (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
      /*<<format.ml:1453:36>>*/ }
      /*<<format.ml:1454:2>>*/ return  /*<<format.ml:1454:2>>*/ caml_call3
-             /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:2>>*/ ;
-   }
+             /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:30>>*/ ;
+    /*<<format.ml:1454:30>>*/ }
    function sprintf(fmt){
      /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt) /*<<format.ml:1457:33>>*/ ;
     /*<<format.ml:1457:33>>*/ }
@@ -31256,8 +31265,8 @@
               /*<<format.ml:1464:6>>*/ (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
      /*<<format.ml:1464:36>>*/ }
      /*<<format.ml:1465:2>>*/ return  /*<<format.ml:1465:2>>*/ caml_call3
-             /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:2>>*/ ;
-   }
+             /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:30>>*/ ;
+    /*<<format.ml:1465:30>>*/ }
    function asprintf(fmt){
      /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt) /*<<format.ml:1468:35>>*/ ;
     /*<<format.ml:1468:35>>*/ }
@@ -31618,7 +31627,7 @@
       /*<<scanf.ml:244:4>>*/ (Stdlib_Buffer[12], ib[8], c);
      /*<<scanf.ml:244:4>>*/ return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
     /*<<scanf.ml:245:24>>*/ }
-   var default_token_buffer_size = 1024;
+   var default_token_buffer_size =  /*<<scanf.ml:243:17>>*/ 1024;
    function create(iname, next){
      /*<<scanf.ml:250:26>>*/ return [0,
             0,
@@ -31652,7 +31661,7 @@
      /*<<scanf.ml:270:7>>*/ }
      /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
     /*<<scanf.ml:271:27>>*/ }
-   var _a_ = 0;
+   var _a_ =  /*<<scanf.ml:263:18>>*/ 0;
    function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
    var len =  /*<<scanf.ml:274:22>>*/ 1024;
    function scan_close_at_end(ic){
@@ -31711,7 +31720,7 @@
          /*<<scanf.ml:370:15>>*/ (open_in, fname);
     return from_ic(scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
     /*<<scanf.ml:371:53>>*/ }
-   var _b_ = Stdlib[79];
+   var _b_ =  /*<<scanf.ml:366:19>>*/ Stdlib[79];
    function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
    var _c_ =  /*<<scanf.ml:374:16>>*/ Stdlib[80];
    function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
@@ -32719,7 +32728,7 @@
     return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci) /*<<scanf.ml:1118:34>>*/ ;
     /*<<scanf.ml:1118:34>>*/ }
    function scanf_bad_input(ib, x){
-     /*<<?>>*/ if(x[1] === Scan_failure)
+     /*<<scanf.ml:1122:20>>*/ if(x[1] === Scan_failure)
      var s = x[2];
     else{
      if(x[1] !== Stdlib[7])
@@ -32730,8 +32739,8 @@
     var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
      /*<<scanf.ml:1125:14>>*/ return bad_input
             ( /*<<scanf.ml:1125:14>>*/ caml_call3
-               /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1125:14>>*/ ;
-   }
+               /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
+    /*<<scanf.ml:1126:16>>*/ }
    function width_of_pad_opt(pad_opt){
      /*<<scanf.ml:1138:31>>*/ if(! pad_opt)
       /*<<scanf.ml:1139:12>>*/ return Stdlib[19] /*<<scanf.ml:1139:12>>*/ ;
@@ -33595,8 +33604,8 @@
       args = args$0;
      }
      /*<<scanf.ml:1472:25>>*/ }
-     /*<<scanf.ml:1474:2>>*/ return take_format_readers(k, fmt) /*<<scanf.ml:1474:2>>*/ ;
-   }
+     /*<<scanf.ml:1474:2>>*/ return take_format_readers(k, fmt) /*<<scanf.ml:1474:27>>*/ ;
+    /*<<scanf.ml:1474:27>>*/ }
    function kscanf(ib, ef, fmt){
      /*<<scanf.ml:1477:2>>*/ return kscanf_gen
             (ib,
@@ -34264,7 +34273,7 @@
       /*<<camlinternalOO.ml:313:24>>*/ caml_call1
        /*<<camlinternalOO.ml:313:24>>*/ (Stdlib_List[10], table[8]);
     var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
-    return resize
+     /*<<camlinternalOO.ml:143:11>>*/ return resize
             (table,
              3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0) /*<<camlinternalOO.ml:314:69>>*/ ;
     /*<<camlinternalOO.ml:314:69>>*/ }
@@ -34283,7 +34292,7 @@
     var
      _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
      _t_ =
-       [0,
+        /*<<camlinternalOO.ml:324:5>>*/ [0,
          /*<<camlinternalOO.ml:324:5>>*/ caml_call2
           /*<<camlinternalOO.ml:324:5>>*/ (Stdlib_Array[14],
           function(nm){
@@ -34303,8 +34312,8 @@
            _u_),
          _t_]];
      /*<<camlinternalOO.ml:322:4>>*/ return  /*<<camlinternalOO.ml:322:4>>*/ caml_call1
-             /*<<camlinternalOO.ml:322:4>>*/ (Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:322:4>>*/ ;
-   }
+             /*<<camlinternalOO.ml:322:4>>*/ (Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:326:31>>*/ ;
+    /*<<camlinternalOO.ml:326:31>>*/ }
    function make_class(pub_meths, class_init){
     var
      table =  /*<<camlinternalOO.ml:329:14>>*/ create_table(pub_meths),
@@ -34359,7 +34368,7 @@
     /*<<camlinternalOO.ml:364:5>>*/ }
    function iter_f(obj, param){
     var param$0 = param;
-    for(;;){
+     /*<<camlinternalOO.ml:366:15>>*/ for(;;){
      if(! param$0)
        /*<<camlinternalOO.ml:368:12>>*/ return 0 /*<<camlinternalOO.ml:368:12>>*/ ;
      var l = param$0[2], f = param$0[1];
@@ -34367,7 +34376,7 @@
        /*<<camlinternalOO.ml:369:12>>*/ (f, obj);
      param$0 = l;
     }
-   }
+    /*<<camlinternalOO.ml:369:31>>*/ }
    function run_initializers(obj, table){
     var inits = table[8], _r_ = 0 !== inits ? 1 : 0;
     return _r_ ? iter_f(obj, inits) : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
@@ -35153,7 +35162,7 @@
                /*<<ephemeron.ml:110:56>>*/ (x, 0),
              seed,
              x] /*<<ephemeron.ml:110:6>>*/ ;
-    }
+     /*<<ephemeron.ml:110:76>>*/ }
     function clear(h){
       /*<<ephemeron.ml:113:6>>*/ h[1] = 0;
      var
@@ -35333,7 +35342,7 @@
           /*<<ephemeron.ml:239:17>>*/ (H[2], h[3], key),
       _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _$_)[1 + _$_];
-     for(;;){
+      /*<<ephemeron.ml:218:21>>*/ for(;;){
       if(! param)
         /*<<ephemeron.ml:220:10>>*/ throw  /*<<ephemeron.ml:220:10>>*/ caml_maybe_attach_backtrace
                /*<<ephemeron.ml:220:10>>*/ (Stdlib[8], 1);
@@ -35367,7 +35376,7 @@
           /*<<ephemeron.ml:264:17>>*/ (H[2], h[3], key),
       ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], ___)[1 + ___];
-     for(;;){
+      /*<<ephemeron.ml:243:25>>*/ for(;;){
       if(! param)
         /*<<ephemeron.ml:245:10>>*/ return 0 /*<<ephemeron.ml:245:10>>*/ ;
       var hk = param[1], rest = param[3], c = param[2];
@@ -35498,7 +35507,7 @@
      /*<<ephemeron.ml:322:25>>*/ }
     function bucket_length(accu, param){
      var accu$0 = accu, param$0 = param;
-     for(;;){
+      /*<<ephemeron.ml:324:26>>*/ for(;;){
       if(! param$0)
         /*<<ephemeron.ml:325:17>>*/ return accu$0 /*<<ephemeron.ml:325:17>>*/ ;
       var
@@ -35507,7 +35516,7 @@
       accu$0 = accu$1;
       param$0 = rest;
      }
-    }
+     /*<<ephemeron.ml:326:57>>*/ }
     function stats(h){
      var
       mbl =
@@ -35536,7 +35545,7 @@
      /*<<ephemeron.ml:340:34>>*/ }
     function bucket_length_alive(accu, param){
      var accu$0 = accu, param$0 = param;
-     for(;;){
+      /*<<ephemeron.ml:342:32>>*/ for(;;){
       if(! param$0)
         /*<<ephemeron.ml:343:17>>*/ return accu$0 /*<<ephemeron.ml:343:17>>*/ ;
       var rest = param$0[3], c = param$0[2];
@@ -35549,7 +35558,7 @@
       }
       else{var rest$0 = param$0[3]; param$0 = rest$0;}
      }
-    }
+     /*<<ephemeron.ml:346:57>>*/ }
     function stats_alive(h){
      var
       size =  /*<<ephemeron.ml:349:17>>*/ [0, 0],
@@ -35879,7 +35888,7 @@
       /*<<ephemeron.ml:536:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:536:23>>*/ set_key2(c, k2);
       /*<<ephemeron.ml:536:23>>*/ return c /*<<ephemeron.ml:536:23>>*/ ;
-    }
+     /*<<ephemeron.ml:537:9>>*/ }
     function seeded_hash(seed, param){
      var
       k2 = param[2],
@@ -35893,7 +35902,7 @@
               /*<<ephemeron.ml:539:8>>*/ (H1[2], seed, k1)
             + _O_
             | 0 /*<<ephemeron.ml:539:8>>*/ ;
-    }
+     /*<<ephemeron.ml:539:63>>*/ }
     function equal(c, param){
      var
       k2 = param[2],
@@ -35912,15 +35921,15 @@
        /*<<ephemeron.ml:545:41>>*/ return 1 /*<<ephemeron.ml:545:41>>*/ ;
      }
       /*<<ephemeron.ml:542:32>>*/ return 2 /*<<ephemeron.ml:542:32>>*/ ;
-    }
+     /*<<ephemeron.ml:545:60>>*/ }
     function set_key_data(c, param, d){
      var k2 = param[2], k1 = param[1];
       /*<<ephemeron.ml:506:45>>*/  /*<<ephemeron.ml:506:45>>*/ caml_call1
        /*<<ephemeron.ml:506:45>>*/ (Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:549:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:549:23>>*/ set_key2(c, k2);
-      /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d) /*<<ephemeron.ml:549:23>>*/ ;
-    }
+      /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d) /*<<ephemeron.ml:550:20>>*/ ;
+     /*<<ephemeron.ml:550:20>>*/ }
     function check_key(c){
      var
       _N_ =
@@ -37114,7 +37123,7 @@
     }
     else
      var _x_ = cst$16;
-    var _y_ = [0, _x_, _d_];
+    var _y_ =  /*<<filename.ml:239:6>>*/ [0, _x_, _d_];
     if(stdout)
      var
       f$0 = stdout[1],
@@ -37124,7 +37133,7 @@
           /*<<filename.ml:238:48>>*/ (Stdlib[28], cst$8, _z_);
     else
      var _A_ = cst$15;
-    var _B_ = [0, _A_, _y_];
+    var _B_ =  /*<<filename.ml:238:6>>*/ [0, _A_, _y_];
     if(stdin)
      var
       f$1 = stdin[1],
@@ -37177,7 +37186,7 @@
       s);
     var
      _F_ =
-       [0,
+        /*<<filename.ml:235:6>>*/ [0,
         cst$11,
         [0,
           /*<<filename.ml:212:4>>*/ caml_call1
@@ -37434,7 +37443,7 @@
         /*<<filename.ml:338:2>>*/ (Stdlib_Domain[10][1],
         [0, function(_o_){ /*<<?>>*/ return _o_;}],
         function(param){
-          /*<<filename.ml:338:58>>*/ return temp_dir_name$1;
+          /*<<filename.ml:338:58>>*/ return temp_dir_name$1 /*<<filename.ml:332:19>>*/ ;
          /*<<filename.ml:338:71>>*/ });
    function set_temp_dir_name(s){
      /*<<filename.ml:340:26>>*/ return  /*<<filename.ml:340:26>>*/ caml_call2
@@ -37443,8 +37452,9 @@
              s) /*<<filename.ml:340:64>>*/ ;
     /*<<filename.ml:340: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:341:27>>*/ return  /*<<filename.ml:340:22>>*/ caml_call1
+             /*<<filename.ml:340:22>>*/ (Stdlib_Domain[10][2],
+             current_temp_dir_name) /*<<filename.ml:341:63>>*/ ;
     /*<<filename.ml:341:63>>*/ }
    function temp_file(opt, prefix, suffix){
     var
@@ -37475,7 +37485,7 @@
       counter = counter$0;
      }
     }
-   }
+    /*<<filename.ml:351:15>>*/ }
    function open_temp_file(_m_, _l_, opt, prefix, suffix){
     var
      mode = _m_ ? _m_[1] : _h_,
@@ -37513,7 +37523,7 @@
       counter = counter$0;
      }
     }
-   }
+    /*<<filename.ml:363:15>>*/ }
    function temp_dir(_k_, opt, prefix, suffix){
     var
      temp_dir =
@@ -37543,7 +37553,7 @@
       counter = counter$0;
      }
     }
-   }
+    /*<<filename.ml:374:15>>*/ }
    var
     Stdlib_Filename =
       [0,

From 98bdcd4319fc2ef39ccd5151e0afaac5fade7760 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 12:37:47 +0200
Subject: [PATCH 09/35] Indicate the origin location of modules and exceptions
 as well

---
 compiler/lib/ocaml_compiler.ml | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/lib/ocaml_compiler.ml b/compiler/lib/ocaml_compiler.ml
index bad5b3cd89..6b334be60b 100644
--- a/compiler/lib/ocaml_compiler.ml
+++ b/compiler/lib/ocaml_compiler.ml
@@ -50,6 +50,10 @@ let rec find_loc_in_summary ident' = function
   | Env.Env_empty -> None
   | Env.Env_value (_summary, ident, description) when Poly.(ident = ident') ->
       Some description.Types.val_loc
+  | Env.Env_module (_summary, ident, _, description) when Ident.same ident ident' ->
+      Some description.Types.md_loc
+  | Env.Env_extension (_summary, ident, description) when Ident.same ident ident' ->
+      Some description.Types.ext_loc
   | Env.Env_value (summary, _, _)
   | Env.Env_type (summary, _, _)
   | Env.Env_extension (summary, _, _)

From a48ae9ab235a52bc07591c52a854094d00324014 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 11 Oct 2024 16:19:19 +0200
Subject: [PATCH 10/35] Generate: put location on function calls

---
 compiler/lib/generate.ml                   |    17 +-
 compiler/tests-compiler/gh747.ml           |   171 +-
 compiler/tests-full/stdlib.cma.expected.js | 10336 +++++++++++++------
 3 files changed, 7279 insertions(+), 3245 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 4653d75057..3cb5b4588b 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -780,14 +780,14 @@ let parallel_renaming back_edge params args continuation queue =
 
 (****)
 
-let apply_fun_raw ctx f params exact trampolined =
+let apply_fun_raw ctx f params exact trampolined loc =
   let n = List.length params in
   let apply_directly =
     (* Make sure we are performing a regular call, not a (slower)
        method call *)
     match f with
-    | J.EAccess _ | J.EDot _ -> J.call (J.ESeq (int 0, f)) params J.N
-    | _ -> J.call f params J.N
+    | J.EAccess _ | J.EDot _ -> J.call (J.ESeq (int 0, f)) params loc
+    | _ -> J.call f params loc
   in
   let apply =
     (* We skip the arity check when we know that we have the right
@@ -806,7 +806,7 @@ let apply_fun_raw ctx f params exact trampolined =
                 )
             , int n )
         , apply_directly
-        , J.call (runtime_fun ctx "caml_call_gen") [ f; J.array params ] J.N )
+        , J.call (runtime_fun ctx "caml_call_gen") [ f; J.array params ] loc )
   in
   if trampolined
   then (
@@ -816,9 +816,9 @@ let apply_fun_raw ctx f params exact trampolined =
        bounce to a trampoline if needed, to avoid a stack overflow.
        The trampoline then performs the call in an shorter stack. *)
     J.ECond
-      ( J.call (runtime_fun ctx "caml_stack_check_depth") [] J.N
+      ( J.call (runtime_fun ctx "caml_stack_check_depth") [] loc
       , apply
-      , J.call (runtime_fun ctx "caml_trampoline_return") [ f; J.array params ] J.N ))
+      , J.call (runtime_fun ctx "caml_trampoline_return") [ f; J.array params ] loc ))
   else apply
 
 let generate_apply_fun ctx { arity; exact; trampolined } =
@@ -836,7 +836,8 @@ let generate_apply_fun ctx { arity; exact; trampolined } =
     ( None
     , J.fun_
         (f :: params)
-        [ ( J.Return_statement (Some (apply_fun_raw ctx f' params' exact trampolined), J.N)
+        [ ( J.Return_statement
+              (Some (apply_fun_raw ctx f' params' exact trampolined J.N), J.N)
           , J.N )
         ]
         J.N )
@@ -849,7 +850,7 @@ let apply_fun ctx f params exact trampolined loc =
      since the function should get inlined by the JavaScript
      engines. *)
   if Config.Flag.inline_callgen () || (exact && not trampolined)
-  then apply_fun_raw ctx f params exact trampolined
+  then apply_fun_raw ctx f params exact trampolined loc
   else
     let y =
       Share.get_apply
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index f040b154b2..3816f7d848 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -338,87 +338,92 @@ end
     103:       _k_ = slot[6] ? cst_inlined : cst,
     104:       _l_ = slot[2],
     105:       _m_ = slot[7],
-    106:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
-    107:       /*<<test.ml:58:6>>*/ return [0,
-    108:               /*<<test.ml:58:11>>*/ caml_call8
-    109:                /*<<test.ml:58:11>>*/ (Stdlib_Printf[4],
-    110:                _a_,
-    111:                _n_,
-    112:                _m_,
-    113:                _l_,
-    114:                _k_,
-    115:                _j_,
-    116:                _i_,
-    117:                _h_)] /*<<test.ml:58:6>>*/ ;
-    118:     }
-    119:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0 /*<<test.ml:54:50>>*/ ;
-    120:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
-    121:      /*<<test.ml:56:8>>*/ return [0,
-    122:              /*<<test.ml:56:13>>*/ caml_call2
-    123:               /*<<test.ml:56:13>>*/ (Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:8>>*/ ;
-    124:     /*<<test.ml:61:52>>*/ }
-    125:    function print_exception_backtrace(outchan, backtrace){
-    126:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    127:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
-    128:               /*<<test.ml:66:6>>*/ (Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
-    129:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
-    130:     if(_f_ >= 0){
-    131:      var i = _e_;
-    132:      for(;;){
-    133:       var
-    134:        match =
-    135:           /*<<test.ml:70:14>>*/ format_backtrace_slot
-    136:           (i, runtime.caml_check_bound(a, i)[1 + i]);
-    137:       if(match){
-    138:        var str = match[1];
-    139:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
-    140:          /*<<test.ml:72:24>>*/ (Stdlib_Printf[1], outchan, _c_, str);
-    141:       }
-    142:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
-    143:       if(_f_ === i) break;
-    144:       i = _g_;
-    145:      }
-    146:     }
-    147:     return 0;
-    148:     /*<<test.ml:73:10>>*/ }
-    149:    function compare(left, right, e1, e2){
-    150:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    151:      var v1 = e1[1];
-    152:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1 /*<<test.ml:80:23>>*/ ;
-    153:      var v2 = e2[1];
-    154:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
-    155:               /*<<test.ml:78:24>>*/ (left, v1, v2) /*<<test.ml:81:24>>*/ ;
-    156:     }
-    157:     var v1$0 = e1[1];
-    158:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1 /*<<test.ml:81:23>>*/ ;
-    159:     var v2$0 = e2[1];
-    160:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
-    161:              /*<<test.ml:79:26>>*/ (right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
-    162:     /*<<test.ml:81:24>>*/ }
-    163:    var
-    164:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
-    165:     Test =
-    166:       [0,
-    167:        executable_name,
-    168:        os_type,
-    169:        backend_type,
-    170:        0,
-    171:        32,
-    172:        32,
-    173:        unix,
-    174:        win32,
-    175:        cygwin,
-    176:        max_array_length,
-    177:        max_floatarray_length,
-    178:        max_string_length,
-    179:        Unhandled,
-    180:        format_backtrace_slot,
-    181:        print_exception_backtrace,
-    182:        Either];
-    183:    runtime.caml_register_global(12, Test, "Test");
-    184:    return;
-    185:    /*<<?>>*/ }
-    186:   (globalThis));
-    187:
-    188: //# sourceMappingURL=test.map
+    106:       _n_ =
+    107:          /*<<test.ml:59:14>>*/  /*<<test.ml:59:14>>*/ info
+    108:           /*<<test.ml:59:14>>*/ (slot[1]);
+    109:       /*<<test.ml:58:6>>*/ return [0,
+    110:               /*<<test.ml:58:11>>*/ caml_call8
+    111:                /*<<test.ml:58:11>>*/ (Stdlib_Printf[4],
+    112:                _a_,
+    113:                _n_,
+    114:                _m_,
+    115:                _l_,
+    116:                _k_,
+    117:                _j_,
+    118:                _i_,
+    119:                _h_)] /*<<test.ml:58:6>>*/ ;
+    120:     }
+    121:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0 /*<<test.ml:54:50>>*/ ;
+    122:     var
+    123:      _o_ =
+    124:         /*<<test.ml:56:51>>*/  /*<<test.ml:56:51>>*/ info
+    125:          /*<<test.ml:56:51>>*/ (0);
+    126:      /*<<test.ml:56:8>>*/ return [0,
+    127:              /*<<test.ml:56:13>>*/ caml_call2
+    128:               /*<<test.ml:56:13>>*/ (Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:8>>*/ ;
+    129:     /*<<test.ml:61:52>>*/ }
+    130:    function print_exception_backtrace(outchan, backtrace){
+    131:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    132:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
+    133:               /*<<test.ml:66:6>>*/ (Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
+    134:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
+    135:     if(_f_ >= 0){
+    136:      var i = _e_;
+    137:      for(;;){
+    138:       var
+    139:        match =
+    140:           /*<<test.ml:70:14>>*/  /*<<test.ml:70:14>>*/ format_backtrace_slot
+    141:            /*<<test.ml:70:14>>*/ (i, runtime.caml_check_bound(a, i)[1 + i]);
+    142:       if(match){
+    143:        var str = match[1];
+    144:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
+    145:          /*<<test.ml:72:24>>*/ (Stdlib_Printf[1], outchan, _c_, str);
+    146:       }
+    147:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
+    148:       if(_f_ === i) break;
+    149:       i = _g_;
+    150:      }
+    151:     }
+    152:     return 0;
+    153:     /*<<test.ml:73:10>>*/ }
+    154:    function compare(left, right, e1, e2){
+    155:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    156:      var v1 = e1[1];
+    157:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1 /*<<test.ml:80:23>>*/ ;
+    158:      var v2 = e2[1];
+    159:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
+    160:               /*<<test.ml:78:24>>*/ (left, v1, v2) /*<<test.ml:81:24>>*/ ;
+    161:     }
+    162:     var v1$0 = e1[1];
+    163:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1 /*<<test.ml:81:23>>*/ ;
+    164:     var v2$0 = e2[1];
+    165:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
+    166:              /*<<test.ml:79:26>>*/ (right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
+    167:     /*<<test.ml:81:24>>*/ }
+    168:    var
+    169:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
+    170:     Test =
+    171:       [0,
+    172:        executable_name,
+    173:        os_type,
+    174:        backend_type,
+    175:        0,
+    176:        32,
+    177:        32,
+    178:        unix,
+    179:        win32,
+    180:        cygwin,
+    181:        max_array_length,
+    182:        max_floatarray_length,
+    183:        max_string_length,
+    184:        Unhandled,
+    185:        format_backtrace_slot,
+    186:        print_exception_backtrace,
+    187:        Either];
+    188:    runtime.caml_register_global(12, Test, "Test");
+    189:    return;
+    190:    /*<<?>>*/ }
+    191:   (globalThis));
+    192:
+    193: //# sourceMappingURL=test.map
     |}]
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index d7330ffd90..1dedbc3cbc 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -10,66 +10,82 @@
     switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormatBasics.ml:533:4>>*/ return [0, erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:533:4>>*/ return [0,
+                /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:533:12>>*/ (rest)] /*<<camlinternalFormatBasics.ml:533:4>>*/ ;
       case 1:
        var rest$0 = param[1];
         /*<<camlinternalFormatBasics.ml:535:4>>*/ return [1,
-               erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:535:14>>*/ (rest$0)] /*<<camlinternalFormatBasics.ml:535:4>>*/ ;
       case 2:
        var rest$1 = param[1];
         /*<<camlinternalFormatBasics.ml:537:4>>*/ return [2,
-               erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:537:11>>*/ (rest$1)] /*<<camlinternalFormatBasics.ml:537:4>>*/ ;
       case 3:
        var rest$2 = param[1];
         /*<<camlinternalFormatBasics.ml:539:4>>*/ return [3,
-               erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:539:13>>*/ (rest$2)] /*<<camlinternalFormatBasics.ml:539:4>>*/ ;
       case 4:
        var rest$3 = param[1];
         /*<<camlinternalFormatBasics.ml:543:4>>*/ return [4,
-               erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:543:17>>*/ (rest$3)] /*<<camlinternalFormatBasics.ml:543:4>>*/ ;
       case 5:
        var rest$4 = param[1];
         /*<<camlinternalFormatBasics.ml:541:4>>*/ return [5,
-               erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:541:13>>*/ (rest$4)] /*<<camlinternalFormatBasics.ml:541:4>>*/ ;
       case 6:
        var rest$5 = param[1];
         /*<<camlinternalFormatBasics.ml:545:4>>*/ return [6,
-               erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:545:13>>*/ (rest$5)] /*<<camlinternalFormatBasics.ml:545:4>>*/ ;
       case 7:
        var rest$6 = param[1];
         /*<<camlinternalFormatBasics.ml:547:4>>*/ return [7,
-               erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:547:12>>*/ (rest$6)] /*<<camlinternalFormatBasics.ml:547:4>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
         /*<<camlinternalFormatBasics.ml:549:4>>*/ return [8,
                ty,
-               erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:549:23>>*/ (rest$7)] /*<<camlinternalFormatBasics.ml:549:4>>*/ ;
       case 9:
        var rest$8 = param[3], ty1 = param[1];
         /*<<camlinternalFormatBasics.ml:551:4>>*/ return [9,
                ty1,
                ty1,
-               erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:551:31>>*/ (rest$8)] /*<<camlinternalFormatBasics.ml:551:4>>*/ ;
       case 10:
        var rest$9 = param[1];
         /*<<camlinternalFormatBasics.ml:553:4>>*/ return [10,
-               erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:553:13>>*/ (rest$9)] /*<<camlinternalFormatBasics.ml:553:4>>*/ ;
       case 11:
        var rest$10 = param[1];
         /*<<camlinternalFormatBasics.ml:555:4>>*/ return [11,
-               erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:555:13>>*/ (rest$10)] /*<<camlinternalFormatBasics.ml:555:4>>*/ ;
       case 12:
        var rest$11 = param[1];
         /*<<camlinternalFormatBasics.ml:557:4>>*/ return [12,
-               erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:557:11>>*/ (rest$11)] /*<<camlinternalFormatBasics.ml:557:4>>*/ ;
       case 13:
        var rest$12 = param[1];
         /*<<camlinternalFormatBasics.ml:559:4>>*/ return [13,
-               erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:559:14>>*/ (rest$12)] /*<<camlinternalFormatBasics.ml:559:4>>*/ ;
       default:
        var rest$13 = param[1];
         /*<<camlinternalFormatBasics.ml:561:4>>*/ return [14,
-               erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel
+                 /*<<camlinternalFormatBasics.ml:561:22>>*/ (rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:562:32>>*/ }
    function concat_fmtty(fmtty1, fmtty2){
@@ -79,66 +95,81 @@
       case 0:
        var rest = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:592:4>>*/ return [0,
-               concat_fmtty(rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:592:12>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:592:12>>*/ (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:4>>*/ ;
       case 1:
        var rest$0 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:594:4>>*/ return [1,
-               concat_fmtty(rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:594:14>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:594:14>>*/ (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:4>>*/ ;
       case 2:
        var rest$1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:596:4>>*/ return [2,
-               concat_fmtty(rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:596:11>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:596:11>>*/ (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:4>>*/ ;
       case 3:
        var rest$2 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:598:4>>*/ return [3,
-               concat_fmtty(rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:598:13>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:598:13>>*/ (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:4>>*/ ;
       case 4:
        var rest$3 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:600:4>>*/ return [4,
-               concat_fmtty(rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:600:17>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:600:17>>*/ (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:4>>*/ ;
       case 5:
        var rest$4 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:602:4>>*/ return [5,
-               concat_fmtty(rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:602:13>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:602:13>>*/ (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:4>>*/ ;
       case 6:
        var rest$5 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:604:4>>*/ return [6,
-               concat_fmtty(rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:604:13>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:604:13>>*/ (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:4>>*/ ;
       case 7:
        var rest$6 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:606:4>>*/ return [7,
-               concat_fmtty(rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:606:12>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:606:12>>*/ (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:4>>*/ ;
       case 8:
        var rest$7 = fmtty1[2], ty = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:618:4>>*/ return [8,
                ty,
-               concat_fmtty(rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:618:23>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:618:23>>*/ (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:4>>*/ ;
       case 9:
        var rest$8 = fmtty1[3], ty2 = fmtty1[2], ty1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:620:4>>*/ return [9,
                ty1,
                ty2,
-               concat_fmtty(rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:620:31>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:620:31>>*/ (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:4>>*/ ;
       case 10:
        var rest$9 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:608:4>>*/ return [10,
-               concat_fmtty(rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:608:13>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:608:13>>*/ (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:4>>*/ ;
       case 11:
        var rest$10 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:610:4>>*/ return [11,
-               concat_fmtty(rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:610:13>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:610:13>>*/ (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:4>>*/ ;
       case 12:
        var rest$11 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:612:4>>*/ return [12,
-               concat_fmtty(rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:612:11>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:612:11>>*/ (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:4>>*/ ;
       case 13:
        var rest$12 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:614:4>>*/ return [13,
-               concat_fmtty(rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:614:14>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:614:14>>*/ (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:4>>*/ ;
       default:
        var rest$13 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:616:4>>*/ return [14,
-               concat_fmtty(rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:616:22>>*/ concat_fmtty
+                 /*<<camlinternalFormatBasics.ml:616:22>>*/ (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:621:26>>*/ }
    function concat_fmt(fmt1, fmt2){
@@ -148,28 +179,33 @@
       case 0:
        var rest = fmt1[1];
         /*<<camlinternalFormatBasics.ml:649:4>>*/ return [0,
-               concat_fmt(rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:649:9>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:649:9>>*/ (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:4>>*/ ;
       case 1:
        var rest$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:651:4>>*/ return [1,
-               concat_fmt(rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:651:14>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:651:14>>*/ (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:4>>*/ ;
       case 2:
        var rest$1 = fmt1[2], pad = fmt1[1];
         /*<<camlinternalFormatBasics.ml:633:4>>*/ return [2,
                pad,
-               concat_fmt(rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:633:17>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:633:17>>*/ (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:4>>*/ ;
       case 3:
        var rest$2 = fmt1[2], pad$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:635:4>>*/ return [3,
                pad$0,
-               concat_fmt(rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:635:22>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:635:22>>*/ (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:4>>*/ ;
       case 4:
        var rest$3 = fmt1[4], prec = fmt1[3], pad$1 = fmt1[2], iconv = fmt1[1];
         /*<<camlinternalFormatBasics.ml:638:4>>*/ return [4,
                iconv,
                pad$1,
                prec,
-               concat_fmt(rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:638:27>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:638:27>>*/ (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:4>>*/ ;
       case 5:
        var
         rest$4 = fmt1[4],
@@ -180,7 +216,8 @@
                iconv$0,
                pad$2,
                prec$0,
-               concat_fmt(rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:640:29>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:640:29>>*/ (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:4>>*/ ;
       case 6:
        var
         rest$5 = fmt1[4],
@@ -191,7 +228,8 @@
                iconv$1,
                pad$3,
                prec$1,
-               concat_fmt(rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:642:33>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:642:33>>*/ (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:4>>*/ ;
       case 7:
        var
         rest$6 = fmt1[4],
@@ -202,7 +240,8 @@
                iconv$2,
                pad$4,
                prec$2,
-               concat_fmt(rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:644:29>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:644:29>>*/ (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:4>>*/ ;
       case 8:
        var
         rest$7 = fmt1[4],
@@ -213,86 +252,103 @@
                fconv,
                pad$5,
                prec$3,
-               concat_fmt(rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:646:29>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:646:29>>*/ (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:4>>*/ ;
       case 9:
        var rest$8 = fmt1[2], pad$6 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:653:4>>*/ return [9,
                pad$6,
-               concat_fmt(rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:653:15>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:653:15>>*/ (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:4>>*/ ;
       case 10:
        var rest$9 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:663:4>>*/ return [10,
-               concat_fmt(rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:663:10>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:663:10>>*/ (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:4>>*/ ;
       case 11:
        var rest$10 = fmt1[2], str = fmt1[1];
         /*<<camlinternalFormatBasics.ml:666:4>>*/ return [11,
                str,
-               concat_fmt(rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:666:25>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:666:25>>*/ (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:4>>*/ ;
       case 12:
        var rest$11 = fmt1[2], chr = fmt1[1];
         /*<<camlinternalFormatBasics.ml:668:4>>*/ return [12,
                chr,
-               concat_fmt(rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:668:25>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:668:25>>*/ (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:4>>*/ ;
       case 13:
        var rest$12 = fmt1[3], fmtty = fmt1[2], pad$7 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:671:4>>*/ return [13,
                pad$7,
                fmtty,
-               concat_fmt(rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:671:30>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:671:30>>*/ (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:4>>*/ ;
       case 14:
        var rest$13 = fmt1[3], fmtty$0 = fmt1[2], pad$8 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:673:4>>*/ return [14,
                pad$8,
                fmtty$0,
-               concat_fmt(rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:673:30>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:673:30>>*/ (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:4>>*/ ;
       case 15:
        var rest$14 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:655:4>>*/ return [15,
-               concat_fmt(rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:655:10>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:655:10>>*/ (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:4>>*/ ;
       case 16:
        var rest$15 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:657:4>>*/ return [16,
-               concat_fmt(rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:657:10>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:657:10>>*/ (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:4>>*/ ;
       case 17:
        var rest$16 = fmt1[2], fmting_lit = fmt1[1];
         /*<<camlinternalFormatBasics.ml:685:4>>*/ return [17,
                fmting_lit,
-               concat_fmt(rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:685:32>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:685:32>>*/ (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:4>>*/ ;
       case 18:
        var rest$17 = fmt1[2], fmting_gen = fmt1[1];
         /*<<camlinternalFormatBasics.ml:687:4>>*/ return [18,
                fmting_gen,
-               concat_fmt(rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:687:32>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:687:32>>*/ (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:4>>*/ ;
       case 19:
        var rest$18 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:661:4>>*/ return [19,
-               concat_fmt(rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:661:11>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:661:11>>*/ (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:4>>*/ ;
       case 20:
        var rest$19 = fmt1[3], char_set = fmt1[2], width_opt = fmt1[1];
         /*<<camlinternalFormatBasics.ml:676:4>>*/ return [20,
                width_opt,
                char_set,
-               concat_fmt(rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:676:40>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:676:40>>*/ (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:4>>*/ ;
       case 21:
        var rest$20 = fmt1[2], counter = fmt1[1];
         /*<<camlinternalFormatBasics.ml:678:4>>*/ return [21,
                counter,
-               concat_fmt(rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:678:31>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:678:31>>*/ (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:4>>*/ ;
       case 22:
        var rest$21 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:680:4>>*/ return [22,
-               concat_fmt(rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:680:19>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:680:19>>*/ (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:4>>*/ ;
       case 23:
        var rest$22 = fmt1[2], ign = fmt1[1];
         /*<<camlinternalFormatBasics.ml:682:4>>*/ return [23,
                ign,
-               concat_fmt(rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:682:24>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:682:24>>*/ (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:4>>*/ ;
       default:
        var rest$23 = fmt1[3], f = fmt1[2], arity = fmt1[1];
         /*<<camlinternalFormatBasics.ml:659:4>>*/ return [24,
                arity,
                f,
-               concat_fmt(rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:659:22>>*/ concat_fmt
+                 /*<<camlinternalFormatBasics.ml:659:22>>*/ (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:690:8>>*/ }
    var CamlinternalFormatBasics = [0, concat_fmtty, erase_rel, concat_fmt];
@@ -429,14 +485,19 @@
    function char_of_int(n){
      /*<<stdlib.ml:224:2>>*/ if(0 <= n && 255 >= n)
       /*<<stdlib.ml:224:58>>*/ return n /*<<stdlib.ml:224:58>>*/ ;
-     /*<<stdlib.ml:224:27>>*/ return invalid_arg(cst_char_of_int) /*<<stdlib.ml:224:78>>*/ ;
+     /*<<stdlib.ml:224:27>>*/ return  /*<<stdlib.ml:224:27>>*/ invalid_arg
+             /*<<stdlib.ml:224:27>>*/ (cst_char_of_int) /*<<stdlib.ml:224:78>>*/ ;
     /*<<stdlib.ml:224:78>>*/ }
    function string_of_bool(b){
      /*<<stdlib.ml:254:2>>*/ return b ? cst_true : cst_false /*<<stdlib.ml:254:31>>*/ ;
     /*<<stdlib.ml:254:31>>*/ }
    function bool_of_string(param){
      /*<<stdlib.ml:255:21>>*/ return param !== cst_false$0
-            ? param !== cst_true$0 ? invalid_arg(cst_bool_of_string) : 1
+            ? param
+              !== cst_true$0
+              ?  /*<<stdlib.ml:258:9>>*/ invalid_arg
+                 /*<<stdlib.ml:258:9>>*/ (cst_bool_of_string)
+              : 1
             : 0 /*<<stdlib.ml:258:37>>*/ ;
     /*<<stdlib.ml:258:37>>*/ }
    function bool_of_string_opt(param){
@@ -481,8 +542,8 @@
     }
     /*<<stdlib.ml:285:8>>*/ }
    function string_of_float(f){
-     /*<<stdlib.ml:287:24>>*/ return valid_float_lexem
-            ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float
+     /*<<stdlib.ml:287:24>>*/ return  /*<<stdlib.ml:287:42>>*/ valid_float_lexem
+             /*<<stdlib.ml:287:42>>*/ ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float
                /*<<stdlib.ml:287:42>>*/ ("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
     /*<<stdlib.ml:287:66>>*/ }
    function float_of_string_opt(s){
@@ -572,10 +633,12 @@
      /*<<stdlib.ml:332:2>>*/ return c /*<<stdlib.ml:332:2>>*/ ;
     /*<<stdlib.ml:333:3>>*/ }
    function open_out(name){
-     /*<<stdlib.ml:336:2>>*/ return open_out_gen(_c_, 438, name) /*<<stdlib.ml:336:74>>*/ ;
+     /*<<stdlib.ml:336:2>>*/ return  /*<<stdlib.ml:336:2>>*/ open_out_gen
+             /*<<stdlib.ml:336:2>>*/ (_c_, 438, name) /*<<stdlib.ml:336:74>>*/ ;
     /*<<stdlib.ml:336:74>>*/ }
    function open_out_bin(name){
-     /*<<stdlib.ml:339:2>>*/ return open_out_gen(_d_, 438, name) /*<<stdlib.ml:339:76>>*/ ;
+     /*<<stdlib.ml:339:2>>*/ return  /*<<stdlib.ml:339:2>>*/ open_out_gen
+             /*<<stdlib.ml:339:2>>*/ (_d_, 438, name) /*<<stdlib.ml:339:76>>*/ ;
     /*<<stdlib.ml:339:76>>*/ }
    function flush_all(param){
     var
@@ -610,14 +673,16 @@
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:374:7>>*/ return  /*<<stdlib.ml:374:7>>*/ caml_ml_output_bytes
               /*<<stdlib.ml:374:7>>*/ (oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
-     /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output) /*<<stdlib.ml:374:33>>*/ ;
+     /*<<stdlib.ml:373:7>>*/ return  /*<<stdlib.ml:373:7>>*/ invalid_arg
+             /*<<stdlib.ml:373:7>>*/ (cst_output) /*<<stdlib.ml:374:33>>*/ ;
     /*<<stdlib.ml:374:33>>*/ }
    function output_substring(oc, s, ofs, len){
      /*<<stdlib.ml:377:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:379:7>>*/ return  /*<<stdlib.ml:379:7>>*/ caml_ml_output
               /*<<stdlib.ml:379:7>>*/ (oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
-     /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
+     /*<<stdlib.ml:378:7>>*/ return  /*<<stdlib.ml:378:7>>*/ invalid_arg
+             /*<<stdlib.ml:378:7>>*/ (cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
     /*<<stdlib.ml:379:40>>*/ }
    function output_value(chan, v){
      /*<<stdlib.ml:386:26>>*/ return  /*<<stdlib.ml:386:26>>*/ runtime.caml_output_value
@@ -655,17 +720,20 @@
      /*<<stdlib.ml:406:2>>*/ return c /*<<stdlib.ml:406:2>>*/ ;
     /*<<stdlib.ml:407:3>>*/ }
    function open_in(name){
-     /*<<stdlib.ml:410:2>>*/ return open_in_gen(_e_, 0, name) /*<<stdlib.ml:410:45>>*/ ;
+     /*<<stdlib.ml:410:2>>*/ return  /*<<stdlib.ml:410:2>>*/ open_in_gen
+             /*<<stdlib.ml:410:2>>*/ (_e_, 0, name) /*<<stdlib.ml:410:45>>*/ ;
     /*<<stdlib.ml:410:45>>*/ }
    function open_in_bin(name){
-     /*<<stdlib.ml:413:2>>*/ return open_in_gen(_f_, 0, name) /*<<stdlib.ml:413:47>>*/ ;
+     /*<<stdlib.ml:413:2>>*/ return  /*<<stdlib.ml:413:2>>*/ open_in_gen
+             /*<<stdlib.ml:413:2>>*/ (_f_, 0, name) /*<<stdlib.ml:413:47>>*/ ;
     /*<<stdlib.ml:413:47>>*/ }
    function input(ic, s, ofs, len){
      /*<<stdlib.ml:421:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
       /*<<stdlib.ml:423:7>>*/ return  /*<<stdlib.ml:423:7>>*/ caml_ml_input
               /*<<stdlib.ml:423:7>>*/ (ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
-     /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input) /*<<stdlib.ml:423:32>>*/ ;
+     /*<<stdlib.ml:422:7>>*/ return  /*<<stdlib.ml:422:7>>*/ invalid_arg
+             /*<<stdlib.ml:422:7>>*/ (cst_input) /*<<stdlib.ml:423:32>>*/ ;
     /*<<stdlib.ml:423:32>>*/ }
    function unsafe_really_input(ic, s, ofs, len){
     var ofs$0 = ofs, len$0 = len;
@@ -687,15 +755,18 @@
    function really_input(ic, s, ofs, len){
      /*<<stdlib.ml:434:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:436:7>>*/ return unsafe_really_input(ic, s, ofs, len) /*<<stdlib.ml:436:39>>*/ ;
-     /*<<stdlib.ml:435:7>>*/ return invalid_arg(cst_really_input) /*<<stdlib.ml:436:39>>*/ ;
+      /*<<stdlib.ml:436:7>>*/ return  /*<<stdlib.ml:436:7>>*/ unsafe_really_input
+              /*<<stdlib.ml:436:7>>*/ (ic, s, ofs, len) /*<<stdlib.ml:436:39>>*/ ;
+     /*<<stdlib.ml:435:7>>*/ return  /*<<stdlib.ml:435:7>>*/ invalid_arg
+             /*<<stdlib.ml:435:7>>*/ (cst_really_input) /*<<stdlib.ml:436:39>>*/ ;
     /*<<stdlib.ml:436:39>>*/ }
    function really_input_string(ic, len){
     var
      s =
         /*<<stdlib.ml:439:10>>*/  /*<<stdlib.ml:439:10>>*/ caml_create_bytes
          /*<<stdlib.ml:439:10>>*/ (len);
-     /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
+     /*<<stdlib.ml:440:2>>*/  /*<<stdlib.ml:440:2>>*/ really_input
+      /*<<stdlib.ml:440:2>>*/ (ic, s, 0, len);
     return caml_string_of_bytes(s) /*<<stdlib.ml:441:26>>*/ ;
     /*<<stdlib.ml:441:26>>*/ }
    function input_line(chan){
@@ -729,8 +800,8 @@
                /*<<stdlib.ml:456:14>>*/ (End_of_file, 1);
       var
        _k_ =
-         build_result
-          ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes
+          /*<<stdlib.ml:457:14>>*/ build_result
+           /*<<stdlib.ml:457:14>>*/ ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes
              /*<<stdlib.ml:457:27>>*/ (len),
            len,
            accu);
@@ -762,8 +833,8 @@
        var
         len$0 = (len + n | 0) - 1 | 0,
         _k_ =
-          build_result
-           ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes
+           /*<<stdlib.ml:465:50>>*/ build_result
+            /*<<stdlib.ml:465:50>>*/ ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes
               /*<<stdlib.ml:465:27>>*/ (len$0),
             len$0,
             [0, res, accu]);
@@ -789,19 +860,26 @@
              /*<<stdlib.ml:486:19>>*/ (stdout, c) /*<<stdlib.ml:486:39>>*/ ;
     /*<<stdlib.ml:486:39>>*/ }
    function print_string(s){
-     /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s) /*<<stdlib.ml:487:43>>*/ ;
+     /*<<stdlib.ml:487:21>>*/ return  /*<<stdlib.ml:487:21>>*/ output_string
+             /*<<stdlib.ml:487:21>>*/ (stdout, s) /*<<stdlib.ml:487:43>>*/ ;
     /*<<stdlib.ml:487:43>>*/ }
    function print_bytes(s){
-     /*<<stdlib.ml:488:20>>*/ return output_bytes(stdout, s) /*<<stdlib.ml:488:41>>*/ ;
+     /*<<stdlib.ml:488:20>>*/ return  /*<<stdlib.ml:488:20>>*/ output_bytes
+             /*<<stdlib.ml:488:20>>*/ (stdout, s) /*<<stdlib.ml:488:41>>*/ ;
     /*<<stdlib.ml:488:41>>*/ }
    function print_int(i){
-     /*<<stdlib.ml:489:18>>*/ return output_string(stdout, "" + i) /*<<stdlib.ml:489:56>>*/ ;
+     /*<<stdlib.ml:489:18>>*/ return  /*<<stdlib.ml:489:39>>*/ output_string
+             /*<<stdlib.ml:489:39>>*/ (stdout, "" + i) /*<<stdlib.ml:489:56>>*/ ;
     /*<<stdlib.ml:489:56>>*/ }
    function print_float(f){
-     /*<<stdlib.ml:490:20>>*/ return output_string(stdout, string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
+     /*<<stdlib.ml:490:20>>*/ return  /*<<stdlib.ml:490:41>>*/ output_string
+             /*<<stdlib.ml:490:41>>*/ (stdout,
+              /*<<stdlib.ml:490:41>>*/ string_of_float
+               /*<<stdlib.ml:490:41>>*/ (f)) /*<<stdlib.ml:490:60>>*/ ;
     /*<<stdlib.ml:490:60>>*/ }
    function print_endline(s){
-     /*<<stdlib.ml:492:2>>*/ output_string(stdout, s);
+     /*<<stdlib.ml:492:2>>*/  /*<<stdlib.ml:492:2>>*/ output_string
+      /*<<stdlib.ml:492:2>>*/ (stdout, s);
      /*<<stdlib.ml:492:26>>*/  /*<<stdlib.ml:492:26>>*/ caml_ml_output_char
       /*<<stdlib.ml:492:26>>*/ (stdout, 10);
      /*<<stdlib.ml:492:51>>*/ return  /*<<stdlib.ml:492:51>>*/ caml_ml_flush
@@ -818,19 +896,26 @@
              /*<<stdlib.ml:497:19>>*/ (stderr, c) /*<<stdlib.ml:497:39>>*/ ;
     /*<<stdlib.ml:497:39>>*/ }
    function prerr_string(s){
-     /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s) /*<<stdlib.ml:498:43>>*/ ;
+     /*<<stdlib.ml:498:21>>*/ return  /*<<stdlib.ml:498:21>>*/ output_string
+             /*<<stdlib.ml:498:21>>*/ (stderr, s) /*<<stdlib.ml:498:43>>*/ ;
     /*<<stdlib.ml:498:43>>*/ }
    function prerr_bytes(s){
-     /*<<stdlib.ml:499:20>>*/ return output_bytes(stderr, s) /*<<stdlib.ml:499:41>>*/ ;
+     /*<<stdlib.ml:499:20>>*/ return  /*<<stdlib.ml:499:20>>*/ output_bytes
+             /*<<stdlib.ml:499:20>>*/ (stderr, s) /*<<stdlib.ml:499:41>>*/ ;
     /*<<stdlib.ml:499:41>>*/ }
    function prerr_int(i){
-     /*<<stdlib.ml:500:18>>*/ return output_string(stderr, "" + i) /*<<stdlib.ml:500:56>>*/ ;
+     /*<<stdlib.ml:500:18>>*/ return  /*<<stdlib.ml:500:39>>*/ output_string
+             /*<<stdlib.ml:500:39>>*/ (stderr, "" + i) /*<<stdlib.ml:500:56>>*/ ;
     /*<<stdlib.ml:500:56>>*/ }
    function prerr_float(f){
-     /*<<stdlib.ml:501:20>>*/ return output_string(stderr, string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
+     /*<<stdlib.ml:501:20>>*/ return  /*<<stdlib.ml:501:41>>*/ output_string
+             /*<<stdlib.ml:501:41>>*/ (stderr,
+              /*<<stdlib.ml:501:41>>*/ string_of_float
+               /*<<stdlib.ml:501:41>>*/ (f)) /*<<stdlib.ml:501:60>>*/ ;
     /*<<stdlib.ml:501:60>>*/ }
    function prerr_endline(s){
-     /*<<stdlib.ml:503:2>>*/ output_string(stderr, s);
+     /*<<stdlib.ml:503:2>>*/  /*<<stdlib.ml:503:2>>*/ output_string
+      /*<<stdlib.ml:503:2>>*/ (stderr, s);
      /*<<stdlib.ml:503:26>>*/  /*<<stdlib.ml:503:26>>*/ caml_ml_output_char
       /*<<stdlib.ml:503:26>>*/ (stderr, 10);
      /*<<stdlib.ml:503:51>>*/ return  /*<<stdlib.ml:503:51>>*/ caml_ml_flush
@@ -845,21 +930,28 @@
    function read_line(param){
      /*<<stdlib.ml:508:19>>*/  /*<<stdlib.ml:508:19>>*/ caml_ml_flush
       /*<<stdlib.ml:508:19>>*/ (stdout);
-     /*<<stdlib.ml:314:12>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
+     /*<<stdlib.ml:314:12>>*/ return  /*<<stdlib.ml:314:12>>*/ input_line
+             /*<<stdlib.ml:314:12>>*/ (stdin) /*<<stdlib.ml:508:49>>*/ ;
     /*<<stdlib.ml:508:49>>*/ }
    function read_int(param){
      /*<<stdlib.ml:509:18>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
-             /*<<stdlib.ml:509:18>>*/ (read_line(0)) /*<<stdlib.ml:509:44>>*/ ;
+             /*<<stdlib.ml:509:18>>*/ ( /*<<stdlib.ml:509:31>>*/ read_line
+               /*<<stdlib.ml:509:31>>*/ (0)) /*<<stdlib.ml:509:44>>*/ ;
     /*<<stdlib.ml:509:44>>*/ }
    function read_int_opt(param){
-     /*<<stdlib.ml:510:22>>*/ return int_of_string_opt(read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
+     /*<<stdlib.ml:510:22>>*/ return  /*<<stdlib.ml:510:39>>*/ int_of_string_opt
+             /*<<stdlib.ml:510:39>>*/ ( /*<<stdlib.ml:510:39>>*/ read_line
+               /*<<stdlib.ml:510:39>>*/ (0)) /*<<stdlib.ml:510:52>>*/ ;
     /*<<stdlib.ml:510:52>>*/ }
    function read_float(param){
      /*<<stdlib.ml:511:20>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
-             /*<<stdlib.ml:511:20>>*/ (read_line(0)) /*<<stdlib.ml:511:48>>*/ ;
+             /*<<stdlib.ml:511:20>>*/ ( /*<<stdlib.ml:511:35>>*/ read_line
+               /*<<stdlib.ml:511:35>>*/ (0)) /*<<stdlib.ml:511:48>>*/ ;
     /*<<stdlib.ml:511:48>>*/ }
    function read_float_opt(param){
-     /*<<stdlib.ml:512:24>>*/ return float_of_string_opt(read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
+     /*<<stdlib.ml:512:24>>*/ return  /*<<stdlib.ml:512:43>>*/ float_of_string_opt
+             /*<<stdlib.ml:512:43>>*/ ( /*<<stdlib.ml:512:43>>*/ read_line
+               /*<<stdlib.ml:512:43>>*/ (0)) /*<<stdlib.ml:512:56>>*/ ;
     /*<<stdlib.ml:512:56>>*/ }
    function string_of_format(param){
     var str = param[2];
@@ -915,7 +1007,8 @@
              /*<<stdlib.ml:575:2>>*/ (caml_atomic_load(exit_function), 0) /*<<stdlib.ml:576:31>>*/ ;
     /*<<stdlib.ml:576:31>>*/ }
    function exit(retcode){
-     /*<<stdlib.ml:579:2>>*/ do_at_exit(0);
+     /*<<stdlib.ml:579:2>>*/  /*<<stdlib.ml:579:2>>*/ do_at_exit
+      /*<<stdlib.ml:579:2>>*/ (0);
      /*<<stdlib.ml:580:2>>*/ return  /*<<stdlib.ml:580:2>>*/ runtime.caml_sys_exit
              /*<<stdlib.ml:580:2>>*/ (retcode) /*<<stdlib.ml:580:18>>*/ ;
     /*<<stdlib.ml:580:18>>*/ }
@@ -1325,7 +1418,7 @@
     a:
     {
       /*<<obj.ml:77:9>>*/ if
-      (is_block(x)
+      ( /*<<obj.ml:77:9>>*/ is_block /*<<obj.ml:77:9>>*/ (x)
        &&
          /*<<obj.ml:77:25>>*/ caml_obj_tag /*<<obj.ml:77:25>>*/ (x) !== 248
         && 1 <= x.length - 1){
@@ -1337,7 +1430,7 @@
     a:
     {
       /*<<obj.ml:81:9>>*/ if
-      (is_block(slot)
+      ( /*<<obj.ml:81:9>>*/ is_block /*<<obj.ml:81:9>>*/ (slot)
        &&
          /*<<obj.ml:81:28>>*/ caml_obj_tag /*<<obj.ml:81:28>>*/ (slot) === 248){var name = slot[1]; break a;}
      var
@@ -1381,7 +1474,10 @@
    function raise_if_invalid_offset(e, o, msg){
     var
      _c_ = 0 <= o ? 1 : 0,
-     _d_ = _c_ ? o < length(e) ? 1 : 0 : _c_,
+     _d_ =
+       _c_
+        ? o <  /*<<obj.ml:112:26>>*/ length /*<<obj.ml:112:26>>*/ (e) ? 1 : 0
+        : _c_,
      _e_ = 1 - _d_;
     return _e_
             ?  /*<<obj.ml:113:6>>*/ caml_call1
@@ -1389,32 +1485,32 @@
             : _e_ /*<<obj.ml:113:21>>*/ ;
     /*<<obj.ml:113:21>>*/ }
    function get_key(e, o){
-     /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
-     (e, o, cst_Obj_Ephemeron_get_key);
+     /*<<obj.ml:117:4>>*/  /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
+      /*<<obj.ml:117:4>>*/ (e, o, cst_Obj_Ephemeron_get_key);
      /*<<obj.ml:118:4>>*/ return  /*<<obj.ml:118:4>>*/ runtime.caml_ephe_get_key
              /*<<obj.ml:118:4>>*/ (e, o) /*<<obj.ml:118:15>>*/ ;
     /*<<obj.ml:118:15>>*/ }
    function get_key_copy(e, o){
-     /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
-     (e, o, cst_Obj_Ephemeron_get_key_copy);
+     /*<<obj.ml:122:4>>*/  /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
+      /*<<obj.ml:122:4>>*/ (e, o, cst_Obj_Ephemeron_get_key_copy);
      /*<<obj.ml:123:4>>*/ return  /*<<obj.ml:123:4>>*/ runtime.caml_ephe_get_key_copy
              /*<<obj.ml:123:4>>*/ (e, o) /*<<obj.ml:123:20>>*/ ;
     /*<<obj.ml:123:20>>*/ }
    function set_key(e, o, x){
-     /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
-     (e, o, cst_Obj_Ephemeron_set_key);
+     /*<<obj.ml:127:4>>*/  /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
+      /*<<obj.ml:127:4>>*/ (e, o, cst_Obj_Ephemeron_set_key);
      /*<<obj.ml:128:4>>*/ return  /*<<obj.ml:128:4>>*/ runtime.caml_ephe_set_key
              /*<<obj.ml:128:4>>*/ (e, o, x) /*<<obj.ml:128:17>>*/ ;
     /*<<obj.ml:128:17>>*/ }
    function unset_key(e, o){
-     /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
-     (e, o, cst_Obj_Ephemeron_unset_key);
+     /*<<obj.ml:132:4>>*/  /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
+      /*<<obj.ml:132:4>>*/ (e, o, cst_Obj_Ephemeron_unset_key);
      /*<<obj.ml:133:4>>*/ return  /*<<obj.ml:133:4>>*/ runtime.caml_ephe_unset_key
              /*<<obj.ml:133:4>>*/ (e, o) /*<<obj.ml:133:17>>*/ ;
     /*<<obj.ml:133:17>>*/ }
    function check_key(e, o){
-     /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
-     (e, o, cst_Obj_Ephemeron_check_key);
+     /*<<obj.ml:137:4>>*/  /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
+      /*<<obj.ml:137:4>>*/ (e, o, cst_Obj_Ephemeron_check_key);
      /*<<obj.ml:138:4>>*/ return  /*<<obj.ml:138:4>>*/ runtime.caml_ephe_check_key
              /*<<obj.ml:138:4>>*/ (e, o) /*<<obj.ml:138:17>>*/ ;
     /*<<obj.ml:138:17>>*/ }
@@ -1423,7 +1519,14 @@
      (0 <= l
       &&
        0 <= o1
-       && (length(e1) - l | 0) >= o1 && 0 <= o2 && (length(e2) - l | 0) >= o2){
+       &&
+        ( /*<<obj.ml:144:31>>*/ length /*<<obj.ml:144:31>>*/ (e1) - l | 0)
+        >= o1
+        &&
+         0 <= o2
+         &&
+          ( /*<<obj.ml:145:25>>*/ length /*<<obj.ml:145:25>>*/ (e2) - l | 0)
+          >= o2){
      var
       _a_ = 0 !== l ? 1 : 0,
       _b_ =
@@ -1630,7 +1733,8 @@
     }
     /*<<camlinternalLazy.ml:75:24>>*/ }
    function force_lazy_block(blk){
-     /*<<camlinternalLazy.ml:78:27>>*/ return force_gen_lazy_block(0, blk) /*<<camlinternalLazy.ml:78:67>>*/ ;
+     /*<<camlinternalLazy.ml:78:27>>*/ return  /*<<camlinternalLazy.ml:78:27>>*/ force_gen_lazy_block
+             /*<<camlinternalLazy.ml:78:27>>*/ (0, blk) /*<<camlinternalLazy.ml:78:67>>*/ ;
     /*<<camlinternalLazy.ml:78:67>>*/ }
    function force_gen(only_val, lzv){
     var
@@ -1642,7 +1746,10 @@
     if(t === Stdlib_Obj[6])
       /*<<camlinternalLazy.ml:103:35>>*/ throw  /*<<camlinternalLazy.ml:103:35>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalLazy.ml:103:35>>*/ (Undefined, 1);
-    return t !== Stdlib_Obj[8] ? lzv : force_gen_lazy_block(only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
+    return t !== Stdlib_Obj[8]
+            ? lzv
+            :  /*<<camlinternalLazy.ml:105:7>>*/ force_gen_lazy_block
+               /*<<camlinternalLazy.ml:105:7>>*/ (only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
     /*<<camlinternalLazy.ml:105:41>>*/ }
    var CamlinternalLazy = [0, Undefined, force_lazy_block, force_gen];
    runtime.caml_register_global(2, CamlinternalLazy, "CamlinternalLazy");
@@ -1721,7 +1828,8 @@
             }] /*<<lazy.ml:75:7>>*/ ;
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
-     /*<<lazy.ml:78:2>>*/ if(! is_val(x))
+     /*<<lazy.ml:78:2>>*/ if
+     (!  /*<<lazy.ml:78:5>>*/ is_val /*<<lazy.ml:78:5>>*/ (x))
       /*<<lazy.ml:80:12>>*/ return [246,
              function(_c_){
               var _d_ = caml_obj_tag(x);
@@ -1743,8 +1851,9 @@
      if(246 !== _a_ && 244 !== _a_){var _b_ = x; break a;}
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
-     /*<<lazy.ml:79:16>>*/ return from_val
-            ( /*<<lazy.ml:79:16>>*/ caml_call1 /*<<lazy.ml:79:16>>*/ (f, _b_)) /*<<lazy.ml:80:25>>*/ ;
+     /*<<lazy.ml:79:16>>*/ return  /*<<lazy.ml:79:16>>*/ from_val
+             /*<<lazy.ml:79:16>>*/ ( /*<<lazy.ml:79:16>>*/ caml_call1
+               /*<<lazy.ml:79:16>>*/ (f, _b_)) /*<<lazy.ml:80:25>>*/ ;
     /*<<lazy.ml:80:25>>*/ }
    var
     Stdlib_Lazy =
@@ -1868,8 +1977,10 @@
          /*<<seq.ml:53:30>>*/ (seq, 0);
     if(! match)  /*<<seq.ml:54:11>>*/ return 0 /*<<seq.ml:54:11>>*/ ;
     var next = match[2], x = match[1];
-     /*<<seq.ml:56:5>>*/ return append
-            (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0) /*<<seq.ml:56:30>>*/ ;
+     /*<<seq.ml:56:5>>*/ return  /*<<seq.ml:56:5>>*/ append
+             /*<<seq.ml:56:5>>*/ (x,
+             function(_aq_){ /*<<?>>*/ return concat(next, _aq_);},
+             0) /*<<seq.ml:56:30>>*/ ;
     /*<<seq.ml:56:30>>*/ }
    function flat_map(f, seq, param){
     var
@@ -1878,8 +1989,9 @@
          /*<<seq.ml:58:34>>*/ (seq, 0);
     if(! match)  /*<<seq.ml:59:11>>*/ return 0 /*<<seq.ml:59:11>>*/ ;
     var next = match[2], x = match[1];
-     /*<<seq.ml:61:4>>*/ return append
-            ( /*<<seq.ml:61:11>>*/ caml_call1 /*<<seq.ml:61:11>>*/ (f, x),
+     /*<<seq.ml:61:4>>*/ return  /*<<seq.ml:61:4>>*/ append
+             /*<<seq.ml:61:4>>*/ ( /*<<seq.ml:61:11>>*/ caml_call1
+               /*<<seq.ml:61:11>>*/ (f, x),
              function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
              0) /*<<seq.ml:61:37>>*/ ;
     /*<<seq.ml:61:37>>*/ }
@@ -2284,8 +2396,8 @@
             function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:2>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
-     /*<<seq.ml:287:2>>*/ return append
-            (xs,
+     /*<<seq.ml:287:2>>*/ return  /*<<seq.ml:287:2>>*/ append
+             /*<<seq.ml:287:2>>*/ (xs,
              function(_ac_){ /*<<?>>*/ return cycle_nonempty(xs, _ac_);},
              0) /*<<seq.ml:287:34>>*/ ;
     /*<<seq.ml:287:34>>*/ }
@@ -2364,14 +2476,18 @@
               if(! match)
                 /*<<seq.ml:360:10>>*/ return 0 /*<<seq.ml:360:10>>*/ ;
               var xs$0 = match[2], x = match[1];
-               /*<<seq.ml:362:10>>*/ return [0, x, take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:10>>*/ ;
+               /*<<seq.ml:362:10>>*/ return [0,
+                      x,
+                       /*<<seq.ml:362:19>>*/ take_aux
+                        /*<<seq.ml:362:19>>*/ (n - 1 | 0, xs$0)] /*<<seq.ml:362:10>>*/ ;
               /*<<seq.ml:362:37>>*/ } /*<<seq.ml:362:37>>*/ ;
     /*<<seq.ml:362:37>>*/ }
    function take(n, xs){
      /*<<seq.ml:365:2>>*/ if(n < 0)
       /*<<seq.ml:365:16>>*/  /*<<seq.ml:365:16>>*/ caml_call1
        /*<<seq.ml:365:16>>*/ (Stdlib[1], cst_Seq_take);
-     /*<<seq.ml:365:16>>*/ return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
+     /*<<seq.ml:365:16>>*/ return  /*<<seq.ml:365:16>>*/ take_aux
+             /*<<seq.ml:365:16>>*/ (n, xs) /*<<seq.ml:366:15>>*/ ;
     /*<<seq.ml:366:15>>*/ }
    function drop(n, xs){
      /*<<seq.ml:387:2>>*/ return 0 <= n
@@ -2471,7 +2587,9 @@
           /*<<seq.ml:460:10>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:462:8>>*/ return 0 /*<<seq.ml:462:8>>*/ ;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:464:8>>*/ return [0, x, memoize(xs$0)] /*<<seq.ml:464:8>>*/ ;
+      /*<<seq.ml:464:8>>*/ return [0,
+             x,
+              /*<<seq.ml:464:17>>*/ memoize /*<<seq.ml:464:17>>*/ (xs$0)] /*<<seq.ml:464:8>>*/ ;
      /*<<seq.ml:464:28>>*/ }
     var
      s =
@@ -2493,7 +2611,9 @@
           /*<<seq.ml:469:10>>*/ (xs, 0);
      if(! match)  /*<<seq.ml:471:8>>*/ return 0 /*<<seq.ml:471:8>>*/ ;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:473:8>>*/ return [0, x, once(xs$0)] /*<<seq.ml:473:8>>*/ ;
+      /*<<seq.ml:473:8>>*/ return [0,
+             x,
+              /*<<seq.ml:473:17>>*/ once /*<<seq.ml:473:17>>*/ (xs$0)] /*<<seq.ml:473:8>>*/ ;
      /*<<seq.ml:473:25>>*/ }
     var
      action =
@@ -2570,7 +2690,8 @@
                if(! match)
                  /*<<seq.ml:521:6>>*/ return [0, x, xs] /*<<seq.ml:521:6>>*/ ;
                var ys$0 = match[2], y = match[1];
-                /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0) /*<<seq.ml:523:6>>*/ ;
+                /*<<seq.ml:523:6>>*/ return  /*<<seq.ml:523:6>>*/ sorted_merge1
+                        /*<<seq.ml:523:6>>*/ (cmp, x, xs, y, ys$0) /*<<seq.ml:523:6>>*/ ;
               }]
             : [0,
               x,
@@ -2582,7 +2703,8 @@
                if(! match)
                  /*<<seq.ml:528:6>>*/ return [0, y, ys] /*<<seq.ml:528:6>>*/ ;
                var xs$0 = match[2], x = match[1];
-                /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys) /*<<seq.ml:530:6>>*/ ;
+                /*<<seq.ml:530:6>>*/ return  /*<<seq.ml:530:6>>*/ sorted_merge1
+                        /*<<seq.ml:530:6>>*/ (cmp, x, xs$0, y, ys) /*<<seq.ml:530:6>>*/ ;
               }] /*<<seq.ml:536:40>>*/ ;
     /*<<seq.ml:536:40>>*/ }
    function sorted_merge(cmp, xs, ys, param){
@@ -2596,7 +2718,8 @@
     if(match){
      if(match$0){
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
-       /*<<seq.ml:546:8>>*/ return sorted_merge1(cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
+       /*<<seq.ml:546:8>>*/ return  /*<<seq.ml:546:8>>*/ sorted_merge1
+               /*<<seq.ml:546:8>>*/ (cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
      }
      var c = match;
     }
@@ -2702,19 +2825,25 @@
             function(_t_){ /*<<?>>*/ return filter(_s_, xs, _t_);}] /*<<seq.ml:599:2>>*/ ;
     /*<<seq.ml:599:45>>*/ }
    function peel(xss){
-     /*<<seq.ml:611:2>>*/ return unzip
-            (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);}) /*<<seq.ml:611:31>>*/ ;
+     /*<<seq.ml:611:2>>*/ return  /*<<seq.ml:611:8>>*/ unzip
+             /*<<seq.ml:611:8>>*/ (function(_r_){
+               /*<<?>>*/ return filter_map(uncons, xss, _r_);
+             }) /*<<seq.ml:611:31>>*/ ;
     /*<<seq.ml:611:31>>*/ }
    function transpose(xss, param){
     var
-     match =  /*<<seq.ml:614:21>>*/ peel(xss),
+     match =
+        /*<<seq.ml:614:21>>*/  /*<<seq.ml:614:21>>*/ peel
+         /*<<seq.ml:614:21>>*/ (xss),
      tails = match[2],
      heads = match[1];
-     /*<<seq.ml:615:5>>*/ if(! is_empty(heads))
+     /*<<seq.ml:615:5>>*/ if
+     (!  /*<<seq.ml:615:5>>*/ is_empty /*<<seq.ml:615:5>>*/ (heads))
       /*<<seq.ml:620:4>>*/ return [0,
              heads,
              function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:4>>*/ ;
-     /*<<seq.ml:616:11>>*/ if(is_empty(tails))
+     /*<<seq.ml:616:11>>*/ if
+     ( /*<<seq.ml:616:11>>*/ is_empty /*<<seq.ml:616:11>>*/ (tails))
       /*<<seq.ml:617:4>>*/ return 0 /*<<seq.ml:617:4>>*/ ;
      /*<<seq.ml:616:4>>*/ throw  /*<<seq.ml:616:4>>*/ caml_maybe_attach_backtrace
             /*<<seq.ml:616:4>>*/ ([0, Assert_failure, _a_], 1);
@@ -2725,7 +2854,8 @@
         /*<<seq.ml:627:8>>*/  /*<<seq.ml:627:8>>*/ caml_call1
          /*<<seq.ml:627:8>>*/ (xss, 0);
     if(! match)
-      /*<<seq.ml:649:6>>*/ return transpose(remainders, 0) /*<<seq.ml:649:29>>*/ ;
+      /*<<seq.ml:649:6>>*/ return  /*<<seq.ml:649:6>>*/ transpose
+              /*<<seq.ml:649:6>>*/ (remainders, 0) /*<<seq.ml:649:29>>*/ ;
     var
      xss$0 = match[2],
      xs = match[1],
@@ -2736,7 +2866,9 @@
      var
       xs$0 = match$0[2],
       x = match$0[1],
-      match$1 =  /*<<seq.ml:637:29>>*/ peel(remainders),
+      match$1 =
+         /*<<seq.ml:637:29>>*/  /*<<seq.ml:637:29>>*/ peel
+          /*<<seq.ml:637:29>>*/ (remainders),
       tails = match$1[2],
       heads = match$1[1],
       _l_ =
@@ -2750,7 +2882,9 @@
              function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}] /*<<seq.ml:638:10>>*/ ;
     }
     var
-     match$2 =  /*<<seq.ml:643:29>>*/ peel(remainders),
+     match$2 =
+        /*<<seq.ml:643:29>>*/  /*<<seq.ml:643:29>>*/ peel
+         /*<<seq.ml:643:29>>*/ (remainders),
      tails$0 = match$2[2],
      heads$0 = match$2[1];
      /*<<seq.ml:644:10>>*/ return [0,
@@ -2772,8 +2906,8 @@
       /*<<?>>*/ return concat(_e_, _g_);} /*<<seq.ml:668:9>>*/ ;
     /*<<seq.ml:674:4>>*/ }
    function product(xs, ys){
-     /*<<seq.ml:677:2>>*/ return map_product
-            (function(x, y){
+     /*<<seq.ml:677:2>>*/ return  /*<<seq.ml:677:2>>*/ map_product
+             /*<<seq.ml:677:2>>*/ (function(x, y){
                /*<<seq.ml:677:26>>*/ return [0, x, y] /*<<seq.ml:677:26>>*/ ;
               /*<<seq.ml:677:32>>*/ },
              xs,
@@ -3403,7 +3537,8 @@
     return _p_;
     /*<<uchar.ml:43:75>>*/ }
    function of_int(i){
-     /*<<uchar.ml:44:15>>*/ if(is_valid(i))
+     /*<<uchar.ml:44:15>>*/ if
+     ( /*<<uchar.ml:44:18>>*/ is_valid /*<<uchar.ml:44:18>>*/ (i))
       /*<<uchar.ml:44:34>>*/ return i /*<<uchar.ml:44:34>>*/ ;
     var
      _m_ =
@@ -3638,7 +3773,8 @@
     }
     /*<<list.ml:58:36>>*/ }
    function rev(l){
-     /*<<list.ml:60:12>>*/ return rev_append(l, 0) /*<<list.ml:60:27>>*/ ;
+     /*<<list.ml:60:12>>*/ return  /*<<list.ml:60:12>>*/ rev_append
+             /*<<list.ml:60:12>>*/ (l, 0) /*<<list.ml:60:27>>*/ ;
     /*<<list.ml:60:27>>*/ }
    function init(len, f){
      /*<<list.ml:71:2>>*/ if(0 > len)
@@ -3690,7 +3826,12 @@
    function flatten(param){
      /*<<list.ml:74:18>>*/ if(! param)
       /*<<list.ml:75:10>>*/ return 0 /*<<list.ml:75:10>>*/ ;
-    var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
+    var
+     r = param[2],
+     l = param[1],
+     _I_ =
+        /*<<list.ml:76:16>>*/  /*<<list.ml:76:16>>*/ flatten
+         /*<<list.ml:76:16>>*/ (r);
      /*<<list.ml:76:16>>*/ return  /*<<list.ml:76:16>>*/ caml_call2
              /*<<list.ml:76:16>>*/ (Stdlib[37], l, _I_) /*<<list.ml:76:25>>*/ ;
     /*<<list.ml:76:25>>*/ }
@@ -3863,7 +4004,10 @@
       /*<<list.ml:127:10>>*/ return accu /*<<list.ml:127:10>>*/ ;
     var l$0 = l[2], a = l[1];
      /*<<list.ml:128:16>>*/ return  /*<<list.ml:128:16>>*/ caml_call2
-             /*<<list.ml:128:16>>*/ (f, a, fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
+             /*<<list.ml:128:16>>*/ (f,
+             a,
+              /*<<list.ml:128:16>>*/ fold_right
+               /*<<list.ml:128:16>>*/ (f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
     /*<<list.ml:128:37>>*/ }
    function map2(f, l1, l2){
      /*<<list.ml:131:2>>*/ if(l1){
@@ -4029,7 +4173,8 @@
                /*<<list.ml:167:32>>*/ (f,
                a1,
                a2,
-               fold_right2(f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
+                /*<<list.ml:167:32>>*/ fold_right2
+                 /*<<list.ml:167:32>>*/ (f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
      }
     }
     else if(! l2)  /*<<list.ml:166:16>>*/ return accu /*<<list.ml:166:16>>*/ ;
@@ -4223,13 +4368,21 @@
             ===
               /*<<list.ml:225:9>>*/ caml_compare /*<<list.ml:225:9>>*/ (a, x)
             ? l
-            : [0, pair, remove_assoc(x, l)] /*<<list.ml:225:61>>*/ ;
+            : [0,
+              pair,
+               /*<<list.ml:225:45>>*/ remove_assoc
+                /*<<list.ml:225:45>>*/ (x, l)] /*<<list.ml:225:61>>*/ ;
     /*<<list.ml:225:61>>*/ }
    function remove_assq(x, param){
      /*<<list.ml:227:20>>*/ if(! param)
       /*<<list.ml:228:10>>*/ return 0 /*<<list.ml:228:10>>*/ ;
     var l = param[2], pair = param[1], a = pair[1];
-    return a === x ? l : [0, pair, remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
+    return a === x
+            ? l
+            : [0,
+              pair,
+               /*<<list.ml:229:57>>*/ remove_assq
+                /*<<list.ml:229:57>>*/ (x, l)] /*<<list.ml:229:72>>*/ ;
     /*<<list.ml:229:72>>*/ }
    function find(p, param){
     var param$0 = param;
@@ -4471,7 +4624,9 @@
     var accu$0 = accu, l_accu = 0, param = l;
      /*<<list.ml:293:14>>*/ for(;;){
      if(! param)
-       /*<<list.ml:294:12>>*/ return [0, accu$0, rev(l_accu)] /*<<list.ml:294:12>>*/ ;
+       /*<<list.ml:294:12>>*/ return [0,
+              accu$0,
+               /*<<list.ml:294:18>>*/ rev /*<<list.ml:294:18>>*/ (l_accu)] /*<<list.ml:294:12>>*/ ;
      var
       l$0 = param[2],
       x = param[1],
@@ -4490,8 +4645,13 @@
     var yes = 0, no = 0, param = l;
      /*<<list.ml:301:15>>*/ for(;;){
      if(! param){
-      var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
-       /*<<list.ml:302:10>>*/ return [0, rev(yes), _x_] /*<<list.ml:302:10>>*/ ;
+      var
+       _x_ =
+          /*<<list.ml:302:20>>*/  /*<<list.ml:302:20>>*/ rev
+           /*<<list.ml:302:20>>*/ (no);
+       /*<<list.ml:302:10>>*/ return [0,
+               /*<<list.ml:302:11>>*/ rev /*<<list.ml:302:11>>*/ (yes),
+              _x_] /*<<list.ml:302:10>>*/ ;
      }
      var l$0 = param[2], x = param[1];
       /*<<list.ml:303:17>>*/ if
@@ -4511,8 +4671,13 @@
     var left = 0, right = 0, param = l;
      /*<<list.ml:307:15>>*/ for(;;){
      if(! param){
-      var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
-       /*<<list.ml:308:10>>*/ return [0, rev(left), _w_] /*<<list.ml:308:10>>*/ ;
+      var
+       _w_ =
+          /*<<list.ml:308:21>>*/  /*<<list.ml:308:21>>*/ rev
+           /*<<list.ml:308:21>>*/ (right);
+       /*<<list.ml:308:10>>*/ return [0,
+               /*<<list.ml:308:11>>*/ rev /*<<list.ml:308:11>>*/ (left),
+              _w_] /*<<list.ml:308:10>>*/ ;
      }
      var
       l$0 = param[2],
@@ -4540,7 +4705,9 @@
      match = param[1],
      y = match[2],
      x = match[1],
-     match$0 =  /*<<list.ml:320:21>>*/ split(l),
+     match$0 =
+        /*<<list.ml:320:21>>*/  /*<<list.ml:320:21>>*/ split
+         /*<<list.ml:320:21>>*/ (l),
      ry = match$0[2],
      rx = match$0[1];
      /*<<list.ml:320:32>>*/ return [0, [0, x, rx], [0, y, ry]] /*<<list.ml:320:32>>*/ ;
@@ -4549,7 +4716,10 @@
      /*<<list.ml:323: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:325:24>>*/ ;
+       /*<<list.ml:325:24>>*/ return [0,
+              [0, a1, a2],
+               /*<<list.ml:325:36>>*/ combine
+                /*<<list.ml:325:36>>*/ (l1$0, l2$0)] /*<<list.ml:325:24>>*/ ;
      }
     }
     else if(! l2)  /*<<list.ml:324:16>>*/ return 0 /*<<list.ml:324:16>>*/ ;
@@ -4565,8 +4735,14 @@
             <
               /*<<list.ml:335:9>>*/ caml_call2
                /*<<list.ml:335:9>>*/ (cmp, h1, h2)
-            ? [0, h2, merge(cmp, l1, t2)]
-            : [0, h1, merge(cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
+            ? [0,
+              h2,
+               /*<<list.ml:337:17>>*/ merge
+                /*<<list.ml:337:17>>*/ (cmp, l1, t2)]
+            : [0,
+              h1,
+               /*<<list.ml:336:17>>*/ merge
+                /*<<list.ml:336:17>>*/ (cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
     /*<<list.ml:337:32>>*/ }
    function stable_sort(cmp, l){
     function sort(n, l){
@@ -4633,10 +4809,14 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =  /*<<list.ml:378:21>>*/ rev_sort(n1, l),
+      match$0 =
+         /*<<list.ml:378:21>>*/  /*<<list.ml:378:21>>*/ rev_sort
+          /*<<list.ml:378:21>>*/ (n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =  /*<<list.ml:379:21>>*/ rev_sort(n2, l2$0),
+      match$1 =
+         /*<<list.ml:379:21>>*/  /*<<list.ml:379:21>>*/ rev_sort
+          /*<<list.ml:379:21>>*/ (n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4661,10 +4841,14 @@
         accu = accu$1;
         continue;
        }
-       var _u_ = rev_append(l1, accu);
+       var
+        _u_ =
+           /*<<list.ml:353:16>>*/ rev_append /*<<list.ml:353:16>>*/ (l1, accu);
       }
       else
-       var _u_ = rev_append(l2, accu);
+       var
+        _u_ =
+           /*<<list.ml:352:16>>*/ rev_append /*<<list.ml:352:16>>*/ (l2, accu);
        /*<<list.ml:380:8>>*/ return [0, _u_, tl$0] /*<<list.ml:380:8>>*/ ;
      }
      /*<<list.ml:380:36>>*/ }
@@ -4732,10 +4916,14 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =  /*<<list.ml:400:21>>*/ sort(n1, l),
+      match$0 =
+         /*<<list.ml:400:21>>*/  /*<<list.ml:400:21>>*/ sort
+          /*<<list.ml:400:21>>*/ (n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =  /*<<list.ml:401:21>>*/ sort(n2, l2$0),
+      match$1 =
+         /*<<list.ml:401:21>>*/  /*<<list.ml:401:21>>*/ sort
+          /*<<list.ml:401:21>>*/ (n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4760,15 +4948,24 @@
         accu = accu$1;
         continue;
        }
-       var _s_ = rev_append(l1, accu);
+       var
+        _s_ =
+           /*<<list.ml:344:16>>*/ rev_append /*<<list.ml:344:16>>*/ (l1, accu);
       }
       else
-       var _s_ = rev_append(l2, accu);
+       var
+        _s_ =
+           /*<<list.ml:343:16>>*/ rev_append /*<<list.ml:343:16>>*/ (l2, accu);
        /*<<list.ml:402:8>>*/ return [0, _s_, tl$0] /*<<list.ml:402:8>>*/ ;
      }
      /*<<list.ml:402:32>>*/ }
-    var len =  /*<<list.ml:404:12>>*/ length(l);
-     /*<<list.ml:405:2>>*/ return 2 <= len ? sort(len, l)[1] : l /*<<list.ml:405:41>>*/ ;
+    var
+     len =
+        /*<<list.ml:404:12>>*/  /*<<list.ml:404:12>>*/ length
+         /*<<list.ml:404:12>>*/ (l);
+     /*<<list.ml:405:2>>*/ return 2 <= len
+            ?  /*<<list.ml:405:29>>*/ sort /*<<list.ml:405:29>>*/ (len, l)[1]
+            : l /*<<list.ml:405:41>>*/ ;
     /*<<list.ml:405:41>>*/ }
    function sort_uniq(cmp, l){
     function sort(n, l){
@@ -4869,10 +5066,14 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =  /*<<list.ml:479:21>>*/ rev_sort(n1, l),
+      match$0 =
+         /*<<list.ml:479:21>>*/  /*<<list.ml:479:21>>*/ rev_sort
+          /*<<list.ml:479:21>>*/ (n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =  /*<<list.ml:480:21>>*/ rev_sort(n2, l2$0),
+      match$1 =
+         /*<<list.ml:480:21>>*/  /*<<list.ml:480:21>>*/ rev_sort
+          /*<<list.ml:480:21>>*/ (n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4907,10 +5108,14 @@
         accu = accu$2;
         continue;
        }
-       var _l_ = rev_append(l1, accu);
+       var
+        _l_ =
+           /*<<list.ml:434:16>>*/ rev_append /*<<list.ml:434:16>>*/ (l1, accu);
       }
       else
-       var _l_ = rev_append(l2, accu);
+       var
+        _l_ =
+           /*<<list.ml:433:16>>*/ rev_append /*<<list.ml:433:16>>*/ (l2, accu);
        /*<<list.ml:481:8>>*/ return [0, _l_, tl$0] /*<<list.ml:481:8>>*/ ;
      }
      /*<<list.ml:481:36>>*/ }
@@ -5012,10 +5217,14 @@
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =  /*<<list.ml:519:21>>*/ sort(n1, l),
+      match$0 =
+         /*<<list.ml:519:21>>*/  /*<<list.ml:519:21>>*/ sort
+          /*<<list.ml:519:21>>*/ (n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =  /*<<list.ml:520:21>>*/ sort(n2, l2$0),
+      match$1 =
+         /*<<list.ml:520:21>>*/  /*<<list.ml:520:21>>*/ sort
+          /*<<list.ml:520:21>>*/ (n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -5050,15 +5259,24 @@
         accu = accu$2;
         continue;
        }
-       var _e_ = rev_append(l1, accu);
+       var
+        _e_ =
+           /*<<list.ml:423:16>>*/ rev_append /*<<list.ml:423:16>>*/ (l1, accu);
       }
       else
-       var _e_ = rev_append(l2, accu);
+       var
+        _e_ =
+           /*<<list.ml:422:16>>*/ rev_append /*<<list.ml:422:16>>*/ (l2, accu);
        /*<<list.ml:521:8>>*/ return [0, _e_, tl$0] /*<<list.ml:521:8>>*/ ;
      }
      /*<<list.ml:521:32>>*/ }
-    var len =  /*<<list.ml:523:12>>*/ length(l);
-     /*<<list.ml:524:2>>*/ return 2 <= len ? sort(len, l)[1] : l /*<<list.ml:524:41>>*/ ;
+    var
+     len =
+        /*<<list.ml:523:12>>*/  /*<<list.ml:523:12>>*/ length
+         /*<<list.ml:523:12>>*/ (l);
+     /*<<list.ml:524:2>>*/ return 2 <= len
+            ?  /*<<list.ml:524:29>>*/ sort /*<<list.ml:524:29>>*/ (len, l)[1]
+            : l /*<<list.ml:524:41>>*/ ;
     /*<<list.ml:524:41>>*/ }
    function compare_lengths(l1, l2){
     var l1$0 = l1, l2$0 = l2;
@@ -5430,10 +5648,12 @@
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
      /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:35>>*/ caml_string_of_bytes
-             /*<<bytes.ml:61:35>>*/ (copy(b)) /*<<bytes.ml:61:43>>*/ ;
+             /*<<bytes.ml:61:35>>*/ ( /*<<bytes.ml:61:35>>*/ copy
+               /*<<bytes.ml:61:35>>*/ (b)) /*<<bytes.ml:61:43>>*/ ;
     /*<<bytes.ml:61:43>>*/ }
    function of_string(s){
-     /*<<bytes.ml:62:18>>*/ return copy(caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
+     /*<<bytes.ml:62:18>>*/ return  /*<<bytes.ml:61:14>>*/ copy
+             /*<<bytes.ml:61:14>>*/ (caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
     /*<<bytes.ml:62:43>>*/ }
    function sub(s, ofs, len){
      /*<<bytes.ml:65:2>>*/ if
@@ -5451,7 +5671,8 @@
     /*<<bytes.ml:71:5>>*/ }
    function sub_string(b, ofs, len){
      /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:44>>*/ caml_string_of_bytes
-             /*<<bytes.ml:73:44>>*/ (sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
+             /*<<bytes.ml:73:44>>*/ ( /*<<bytes.ml:73:44>>*/ sub
+               /*<<bytes.ml:73:44>>*/ (b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
     /*<<bytes.ml:73:59>>*/ }
    function symbol(a, b){
     var c = a + b | 0, _an_ = b < 0 ? 1 : 0, match = c < 0 ? 1 : 0;
@@ -5466,8 +5687,10 @@
    function extend(s, left, right){
     var
      len =
-        /*<<bytes.ml:84:12>>*/ symbol
-        (symbol(caml_ml_bytes_length(s), left), right),
+        /*<<bytes.ml:84:12>>*/  /*<<bytes.ml:84:12>>*/ symbol
+         /*<<bytes.ml:84:12>>*/ ( /*<<bytes.ml:84:12>>*/ symbol
+           /*<<bytes.ml:84:12>>*/ (caml_ml_bytes_length(s), left),
+         right),
      r =
         /*<<bytes.ml:85:10>>*/  /*<<bytes.ml:85:10>>*/ caml_create_bytes
          /*<<bytes.ml:85:10>>*/ (len);
@@ -5644,14 +5867,24 @@
     var len = caml_ml_bytes_length(s), i =  /*<<bytes.ml:157:10>>*/ [0, 0];
     for(;;){
      if(i[1] >= len) break;
-      /*<<bytes.ml:158:20>>*/ if(! is_space(caml_bytes_unsafe_get(s, i[1])))
+      /*<<bytes.ml:158:20>>*/ if
+      (!
+        /*<<bytes.ml:158:20>>*/ is_space
+         /*<<bytes.ml:158:20>>*/ (caml_bytes_unsafe_get(s, i[1])))
       break;
      i[1]++;
     }
     var j =  /*<<bytes.ml:161:10>>*/ [0, len - 1 | 0];
     for(;;){
-     if(i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
-     return i[1] <= j[1] ? sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0) : empty /*<<bytes.ml:168:9>>*/ ;
+     if
+      (i[1] <= j[1]
+       &&
+         /*<<bytes.ml:162:20>>*/ is_space
+          /*<<bytes.ml:162:20>>*/ (caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
+     return i[1] <= j[1]
+             ?  /*<<bytes.ml:64:8>>*/ sub
+                /*<<bytes.ml:64:8>>*/ (s, i[1], (j[1] - i[1] | 0) + 1 | 0)
+             : empty /*<<bytes.ml:168:9>>*/ ;
     }
     /*<<bytes.ml:168:9>>*/ }
    function unsafe_escape(s){
@@ -5771,8 +6004,12 @@
      /*<<bytes.ml:221:4>>*/ return s$0 /*<<bytes.ml:221:4>>*/ ;
     /*<<bytes.ml:222:5>>*/ }
    function escaped(b){
-    var b$0 =  /*<<bytes.ml:225:10>>*/ copy(b);
-     /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0) /*<<bytes.ml:228:17>>*/ ;
+    var
+     b$0 =
+        /*<<bytes.ml:225:10>>*/  /*<<bytes.ml:225:10>>*/ copy
+         /*<<bytes.ml:225:10>>*/ (b);
+     /*<<bytes.ml:228:2>>*/ return  /*<<bytes.ml:228:2>>*/ unsafe_escape
+             /*<<bytes.ml:228:2>>*/ (b$0) /*<<bytes.ml:228:17>>*/ ;
     /*<<bytes.ml:228:17>>*/ }
    function map(f, s){
     var l = caml_ml_bytes_length(s);
@@ -5889,15 +6126,20 @@
     }
     /*<<bytes.ml:274:8>>*/ }
    function uppercase_ascii(s){
-     /*<<bytes.ml:276:24>>*/ return map(Stdlib_Char[4], s) /*<<bytes.ml:276:50>>*/ ;
+     /*<<bytes.ml:276:24>>*/ return  /*<<bytes.ml:276:24>>*/ map
+             /*<<bytes.ml:276:24>>*/ (Stdlib_Char[4], s) /*<<bytes.ml:276:50>>*/ ;
     /*<<bytes.ml:276:50>>*/ }
    function lowercase_ascii(s){
-     /*<<bytes.ml:277:24>>*/ return map(Stdlib_Char[3], s) /*<<bytes.ml:277:50>>*/ ;
+     /*<<bytes.ml:277:24>>*/ return  /*<<bytes.ml:277:24>>*/ map
+             /*<<bytes.ml:277:24>>*/ (Stdlib_Char[3], s) /*<<bytes.ml:277:50>>*/ ;
     /*<<bytes.ml:277:50>>*/ }
    function apply1(f, s){
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
       /*<<bytes.ml:280:23>>*/ return s /*<<bytes.ml:280:23>>*/ ;
-    var r =  /*<<bytes.ml:281:12>>*/ copy(s);
+    var
+     r =
+        /*<<bytes.ml:281:12>>*/  /*<<bytes.ml:281:12>>*/ copy
+         /*<<bytes.ml:281:12>>*/ (s);
     caml_bytes_unsafe_set
      (r,
       0,
@@ -5906,10 +6148,12 @@
      /*<<bytes.ml:283:4>>*/ return r /*<<bytes.ml:283:4>>*/ ;
     /*<<bytes.ml:284:5>>*/ }
    function capitalize_ascii(s){
-     /*<<bytes.ml:286:25>>*/ return apply1(Stdlib_Char[4], s) /*<<bytes.ml:286:54>>*/ ;
+     /*<<bytes.ml:286:25>>*/ return  /*<<bytes.ml:286:25>>*/ apply1
+             /*<<bytes.ml:286:25>>*/ (Stdlib_Char[4], s) /*<<bytes.ml:286:54>>*/ ;
     /*<<bytes.ml:286:54>>*/ }
    function uncapitalize_ascii(s){
-     /*<<bytes.ml:287:27>>*/ return apply1(Stdlib_Char[3], s) /*<<bytes.ml:287:56>>*/ ;
+     /*<<bytes.ml:287:27>>*/ return  /*<<bytes.ml:287:27>>*/ apply1
+             /*<<bytes.ml:287:27>>*/ (Stdlib_Char[3], s) /*<<bytes.ml:287:56>>*/ ;
     /*<<bytes.ml:287:56>>*/ }
    function starts_with(prefix, s){
     var
@@ -5959,8 +6203,8 @@
     }
     /*<<bytes.ml:313:61>>*/ }
    function index(s, c){
-     /*<<bytes.ml:316:16>>*/ return index_rec
-            (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:316:42>>*/ ;
+     /*<<bytes.ml:316:16>>*/ return  /*<<bytes.ml:316:16>>*/ index_rec
+             /*<<bytes.ml:316:16>>*/ (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:316:42>>*/ ;
     /*<<bytes.ml:316:42>>*/ }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
@@ -5974,13 +6218,14 @@
     }
     /*<<bytes.ml:321:70>>*/ }
    function index_opt(s, c){
-     /*<<bytes.ml:324:20>>*/ return index_rec_opt
-            (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:324:50>>*/ ;
+     /*<<bytes.ml:324:20>>*/ return  /*<<bytes.ml:324:20>>*/ index_rec_opt
+             /*<<bytes.ml:324:20>>*/ (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:324:50>>*/ ;
     /*<<bytes.ml:324:50>>*/ }
    function index_from(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c) /*<<bytes.ml:330:19>>*/ ;
+      /*<<bytes.ml:330:2>>*/ return  /*<<bytes.ml:330:2>>*/ index_rec
+              /*<<bytes.ml:330:2>>*/ (s, l, i, c) /*<<bytes.ml:330:19>>*/ ;
      /*<<bytes.ml:329:25>>*/ return  /*<<bytes.ml:329:25>>*/ caml_call1
              /*<<bytes.ml:329:25>>*/ (Stdlib[1],
              cst_String_index_from_Bytes_in) /*<<bytes.ml:330:19>>*/ ;
@@ -5988,7 +6233,8 @@
    function index_from_opt(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c) /*<<bytes.ml:338:25>>*/ ;
+      /*<<bytes.ml:338:4>>*/ return  /*<<bytes.ml:338:4>>*/ index_rec_opt
+              /*<<bytes.ml:338:4>>*/ (s, l, i, c) /*<<bytes.ml:338:25>>*/ ;
      /*<<bytes.ml:336:4>>*/ return  /*<<bytes.ml:336:4>>*/ caml_call1
              /*<<bytes.ml:336:4>>*/ (Stdlib[1],
              cst_String_index_from_opt_Byte) /*<<bytes.ml:338:25>>*/ ;
@@ -6006,12 +6252,13 @@
     }
     /*<<bytes.ml:343:58>>*/ }
    function rindex(s, c){
-     /*<<bytes.ml:346:17>>*/ return rindex_rec
-            (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:346:46>>*/ ;
+     /*<<bytes.ml:346:17>>*/ return  /*<<bytes.ml:346:17>>*/ rindex_rec
+             /*<<bytes.ml:346:17>>*/ (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:346:46>>*/ ;
     /*<<bytes.ml:346:46>>*/ }
    function rindex_from(s, i, c){
      /*<<bytes.ml:350:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:353:4>>*/ return rindex_rec(s, i, c) /*<<bytes.ml:353:20>>*/ ;
+      /*<<bytes.ml:353:4>>*/ return  /*<<bytes.ml:353:4>>*/ rindex_rec
+              /*<<bytes.ml:353:4>>*/ (s, i, c) /*<<bytes.ml:353:20>>*/ ;
      /*<<bytes.ml:351:4>>*/ return  /*<<bytes.ml:351:4>>*/ caml_call1
              /*<<bytes.ml:351:4>>*/ (Stdlib[1],
              cst_String_rindex_from_Bytes_r) /*<<bytes.ml:353:20>>*/ ;
@@ -6027,12 +6274,13 @@
     }
     /*<<bytes.ml:358:67>>*/ }
    function rindex_opt(s, c){
-     /*<<bytes.ml:361:21>>*/ return rindex_rec_opt
-            (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:361:54>>*/ ;
+     /*<<bytes.ml:361:21>>*/ return  /*<<bytes.ml:361:21>>*/ rindex_rec_opt
+             /*<<bytes.ml:361:21>>*/ (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:361:54>>*/ ;
     /*<<bytes.ml:361:54>>*/ }
    function rindex_from_opt(s, i, c){
      /*<<bytes.ml:365:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:368:4>>*/ return rindex_rec_opt(s, i, c) /*<<bytes.ml:368:24>>*/ ;
+      /*<<bytes.ml:368:4>>*/ return  /*<<bytes.ml:368:4>>*/ rindex_rec_opt
+              /*<<bytes.ml:368:4>>*/ (s, i, c) /*<<bytes.ml:368:24>>*/ ;
      /*<<bytes.ml:366:4>>*/ return  /*<<bytes.ml:366:4>>*/ caml_call1
              /*<<bytes.ml:366:4>>*/ (Stdlib[1],
              cst_String_rindex_from_opt_Byt) /*<<bytes.ml:368:24>>*/ ;
@@ -6041,7 +6289,8 @@
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:377:4>>*/ try{
-       /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
+       /*<<bytes.ml:377:15>>*/  /*<<bytes.ml:377:15>>*/ index_rec
+        /*<<bytes.ml:377:15>>*/ (s, l, i, c);
       var _K_ =  /*<<bytes.ml:377:36>>*/ 1;
        /*<<bytes.ml:377:36>>*/ return _K_ /*<<bytes.ml:377:36>>*/ ;
      }
@@ -6056,12 +6305,14 @@
              cst_String_contains_from_Bytes) /*<<bytes.ml:377:64>>*/ ;
     /*<<bytes.ml:377:64>>*/ }
    function contains(s, c){
-     /*<<bytes.ml:381:19>>*/ return contains_from(s, 0, c) /*<<bytes.ml:381:38>>*/ ;
+     /*<<bytes.ml:381:19>>*/ return  /*<<bytes.ml:381:19>>*/ contains_from
+             /*<<bytes.ml:381:19>>*/ (s, 0, c) /*<<bytes.ml:381:38>>*/ ;
     /*<<bytes.ml:381:38>>*/ }
    function rcontains_from(s, i, c){
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:388:4>>*/ try{
-       /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
+       /*<<bytes.ml:388:15>>*/  /*<<bytes.ml:388:15>>*/ rindex_rec
+        /*<<bytes.ml:388:15>>*/ (s, i, c);
       var _H_ =  /*<<bytes.ml:388:35>>*/ 1;
        /*<<bytes.ml:388:35>>*/ return _H_ /*<<bytes.ml:388:35>>*/ ;
      }
@@ -6095,7 +6346,11 @@
      for(;;){
       if(caml_bytes_unsafe_get(s, i) === sep){
        var _E_ = r[1];
-       r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _E_];
+       r[1] =
+        [0,
+          /*<<bytes.ml:402:11>>*/ sub
+           /*<<bytes.ml:402:11>>*/ (s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
+         _E_];
        j[1] = i;
       }
       var _F_ =  /*<<bytes.ml:400:2>>*/ i - 1 | 0;
@@ -6104,7 +6359,9 @@
      }
     }
     var _D_ = r[1];
-     /*<<bytes.ml:406:2>>*/ return [0, sub(s, 0, j[1]), _D_] /*<<bytes.ml:406:2>>*/ ;
+     /*<<bytes.ml:406:2>>*/ return [0,
+             /*<<bytes.ml:406:2>>*/ sub /*<<bytes.ml:406:2>>*/ (s, 0, j[1]),
+            _D_] /*<<bytes.ml:406:2>>*/ ;
     /*<<bytes.ml:406:18>>*/ }
    function to_seq(s){
     function aux(i, param){
@@ -6143,7 +6400,9 @@
    function of_seq(i){
     var
      n =  /*<<bytes.ml:429:10>>*/ [0, 0],
-     buf =  /*<<bytes.ml:430:12>>*/ [0, make(256, 0)];
+     buf =
+        /*<<bytes.ml:430:12>>*/ [0,
+         /*<<bytes.ml:430:16>>*/ make /*<<bytes.ml:430:16>>*/ (256, 0)];
      /*<<bytes.ml:439:2>>*/  /*<<bytes.ml:439:2>>*/ caml_call2
       /*<<bytes.ml:439:2>>*/ (Stdlib_Seq[4],
       function(c){
@@ -6157,8 +6416,12 @@
         if(caml_ml_bytes_length(buf[1]) === new_len)
           /*<<bytes.ml:434:34>>*/  /*<<bytes.ml:434:34>>*/ caml_call1
            /*<<bytes.ml:434:34>>*/ (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
-        var new_buf =  /*<<bytes.ml:435:18>>*/ make(new_len, 0);
-         /*<<bytes.ml:436:4>>*/ blit(buf[1], 0, new_buf, 0, n[1]);
+        var
+         new_buf =
+            /*<<bytes.ml:435:18>>*/  /*<<bytes.ml:435:18>>*/ make
+             /*<<bytes.ml:435:18>>*/ (new_len, 0);
+         /*<<bytes.ml:436:4>>*/  /*<<bytes.ml:436:4>>*/ blit
+          /*<<bytes.ml:436:4>>*/ (buf[1], 0, new_buf, 0, n[1]);
         buf[1] = new_buf;
        }
         /*<<bytes.ml:442:7>>*/  /*<<bytes.ml:442:7>>*/ caml_bytes_set
@@ -6167,7 +6430,8 @@
        return 0;
        /*<<bytes.ml:443:13>>*/ },
       i);
-     /*<<bytes.ml:64:8>>*/ return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
+     /*<<bytes.ml:64:8>>*/ return  /*<<bytes.ml:64:8>>*/ sub
+             /*<<bytes.ml:64:8>>*/ (buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
     /*<<bytes.ml:445:15>>*/ }
    function unsafe_get_uint16_le(b, i){
      /*<<bytes.ml:470:2>>*/ return Stdlib_Sys[11]
@@ -6223,13 +6487,17 @@
     var
      _o_ =  /*<<bytes.ml:494:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _p_ = Stdlib_Sys[10] - 16 | 0;
-    return get_uint16_le(b, i) << _p_ >> _o_;
+    return  /*<<bytes.ml:494:3>>*/ get_uint16_le /*<<bytes.ml:494:3>>*/ (b, i)
+           << _p_
+           >> _o_;
     /*<<bytes.ml:494:71>>*/ }
    function get_int16_be(b, i){
     var
      _m_ =  /*<<bytes.ml:497:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _n_ = Stdlib_Sys[10] - 16 | 0;
-    return get_uint16_be(b, i) << _n_ >> _m_;
+    return  /*<<bytes.ml:497:3>>*/ get_uint16_be /*<<bytes.ml:497:3>>*/ (b, i)
+           << _n_
+           >> _m_;
     /*<<bytes.ml:497:71>>*/ }
    function get_int32_le(b, i){
      /*<<bytes.ml:500:2>>*/ return Stdlib_Sys[11]
@@ -6403,7 +6671,9 @@
             /*<<bytes.ml:619:39>>*/ return  /*<<bytes.ml:619:39>>*/ caml_call1
                     /*<<bytes.ml:619:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$4 = caml_bytes_unsafe_get(b, i$0);
-           /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
+           /*<<bytes.ml:620:29>>*/ if
+           ( /*<<bytes.ml:620:29>>*/ not_in_x80_to_x9F
+              /*<<bytes.ml:620:29>>*/ (b1$4))
             /*<<bytes.ml:620:55>>*/ return  /*<<bytes.ml:620:55>>*/ caml_call1
                     /*<<bytes.ml:620:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
@@ -6411,17 +6681,23 @@
             /*<<bytes.ml:621:39>>*/ return  /*<<bytes.ml:621:39>>*/ caml_call1
                     /*<<bytes.ml:621:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$3 = caml_bytes_unsafe_get(b, i$1);
-           /*<<bytes.ml:622:29>>*/ return not_in_x80_to_xBF(b2$3)
+           /*<<bytes.ml:622:29>>*/ return  /*<<bytes.ml:622:29>>*/ not_in_x80_to_xBF
+                    /*<<bytes.ml:622:29>>*/ (b2$3)
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1
                      /*<<bytes.ml:622:55>>*/ (dec_invalid, 2)
-                  : dec_ret(3, utf_8_uchar_3(b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:623:16>>*/ dec_ret
+                     /*<<bytes.ml:623:16>>*/ (3,
+                      /*<<bytes.ml:623:16>>*/ utf_8_uchar_3
+                       /*<<bytes.ml:623:16>>*/ (b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
          case 3:
           var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
           if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return  /*<<bytes.ml:625:39>>*/ caml_call1
                     /*<<bytes.ml:625:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$2 = caml_bytes_unsafe_get(b, i$4);
-           /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
+           /*<<bytes.ml:626:29>>*/ if
+           ( /*<<bytes.ml:626:29>>*/ not_in_x90_to_xBF
+              /*<<bytes.ml:626:29>>*/ (b1$2))
             /*<<bytes.ml:626:55>>*/ return  /*<<bytes.ml:626:55>>*/ caml_call1
                     /*<<bytes.ml:626:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
@@ -6429,7 +6705,9 @@
             /*<<bytes.ml:627:39>>*/ return  /*<<bytes.ml:627:39>>*/ caml_call1
                     /*<<bytes.ml:627:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$1 = caml_bytes_unsafe_get(b, i$5);
-           /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
+           /*<<bytes.ml:628:29>>*/ if
+           ( /*<<bytes.ml:628:29>>*/ not_in_x80_to_xBF
+              /*<<bytes.ml:628:29>>*/ (b2$1))
             /*<<bytes.ml:628:55>>*/ return  /*<<bytes.ml:628:55>>*/ caml_call1
                     /*<<bytes.ml:628:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
@@ -6437,17 +6715,23 @@
             /*<<bytes.ml:629:39>>*/ return  /*<<bytes.ml:629:39>>*/ caml_call1
                     /*<<bytes.ml:629:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$1 = caml_bytes_unsafe_get(b, i$6);
-           /*<<bytes.ml:630:29>>*/ return not_in_x80_to_xBF(b3$1)
+           /*<<bytes.ml:630:29>>*/ return  /*<<bytes.ml:630:29>>*/ not_in_x80_to_xBF
+                    /*<<bytes.ml:630:29>>*/ (b3$1)
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1
                      /*<<bytes.ml:630:55>>*/ (dec_invalid, 3)
-                  : dec_ret(4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:631:16>>*/ dec_ret
+                     /*<<bytes.ml:631:16>>*/ (4,
+                      /*<<bytes.ml:631:16>>*/ utf_8_uchar_4
+                       /*<<bytes.ml:631:16>>*/ (b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
          case 7:
           var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
           if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return  /*<<bytes.ml:641:39>>*/ caml_call1
                     /*<<bytes.ml:641:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$0 = caml_bytes_unsafe_get(b, i$10);
-           /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
+           /*<<bytes.ml:642:29>>*/ if
+           ( /*<<bytes.ml:642:29>>*/ not_in_x80_to_x8F
+              /*<<bytes.ml:642:29>>*/ (b1$0))
             /*<<bytes.ml:642:55>>*/ return  /*<<bytes.ml:642:55>>*/ caml_call1
                     /*<<bytes.ml:642:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
@@ -6455,7 +6739,9 @@
             /*<<bytes.ml:643:39>>*/ return  /*<<bytes.ml:643:39>>*/ caml_call1
                     /*<<bytes.ml:643:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2 = caml_bytes_unsafe_get(b, i$11);
-           /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
+           /*<<bytes.ml:644:29>>*/ if
+           ( /*<<bytes.ml:644:29>>*/ not_in_x80_to_xBF
+              /*<<bytes.ml:644:29>>*/ (b2))
             /*<<bytes.ml:644:55>>*/ return  /*<<bytes.ml:644:55>>*/ caml_call1
                     /*<<bytes.ml:644:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
@@ -6463,10 +6749,14 @@
             /*<<bytes.ml:645:39>>*/ return  /*<<bytes.ml:645:39>>*/ caml_call1
                     /*<<bytes.ml:645:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3 = caml_bytes_unsafe_get(b, i$12);
-           /*<<bytes.ml:646:29>>*/ return not_in_x80_to_xBF(b3)
+           /*<<bytes.ml:646:29>>*/ return  /*<<bytes.ml:646:29>>*/ not_in_x80_to_xBF
+                    /*<<bytes.ml:646:29>>*/ (b3)
                   ?  /*<<bytes.ml:646:55>>*/ caml_call1
                      /*<<bytes.ml:646:55>>*/ (dec_invalid, 3)
-                  : dec_ret(4, utf_8_uchar_4(b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:647:16>>*/ dec_ret
+                     /*<<bytes.ml:647:16>>*/ (4,
+                      /*<<bytes.ml:647:16>>*/ utf_8_uchar_4
+                       /*<<bytes.ml:647:16>>*/ (b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
          case 1:
          case 2: break;
          default:
@@ -6475,7 +6765,9 @@
             /*<<bytes.ml:633:39>>*/ return  /*<<bytes.ml:633:39>>*/ caml_call1
                     /*<<bytes.ml:633:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$1 = caml_bytes_unsafe_get(b, i$7);
-           /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
+           /*<<bytes.ml:634:29>>*/ if
+           ( /*<<bytes.ml:634:29>>*/ not_in_x80_to_xBF
+              /*<<bytes.ml:634:29>>*/ (b1$1))
             /*<<bytes.ml:634:55>>*/ return  /*<<bytes.ml:634:55>>*/ caml_call1
                     /*<<bytes.ml:634:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
@@ -6483,7 +6775,9 @@
             /*<<bytes.ml:635:39>>*/ return  /*<<bytes.ml:635:39>>*/ caml_call1
                     /*<<bytes.ml:635:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$0 = caml_bytes_unsafe_get(b, i$8);
-           /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
+           /*<<bytes.ml:636:29>>*/ if
+           ( /*<<bytes.ml:636:29>>*/ not_in_x80_to_xBF
+              /*<<bytes.ml:636:29>>*/ (b2$0))
             /*<<bytes.ml:636:55>>*/ return  /*<<bytes.ml:636:55>>*/ caml_call1
                     /*<<bytes.ml:636:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
@@ -6491,10 +6785,14 @@
             /*<<bytes.ml:637:39>>*/ return  /*<<bytes.ml:637:39>>*/ caml_call1
                     /*<<bytes.ml:637:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$0 = caml_bytes_unsafe_get(b, i$9);
-           /*<<bytes.ml:638:29>>*/ return not_in_x80_to_xBF(b3$0)
+           /*<<bytes.ml:638:29>>*/ return  /*<<bytes.ml:638:29>>*/ not_in_x80_to_xBF
+                    /*<<bytes.ml:638:29>>*/ (b3$0)
                   ?  /*<<bytes.ml:638:55>>*/ caml_call1
                      /*<<bytes.ml:638:55>>*/ (dec_invalid, 3)
-                  : dec_ret(4, utf_8_uchar_4(b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:639:16>>*/ dec_ret
+                     /*<<bytes.ml:639:16>>*/ (4,
+                      /*<<bytes.ml:639:16>>*/ utf_8_uchar_4
+                       /*<<bytes.ml:639:16>>*/ (b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
        }
       }
       else if(225 > b0){
@@ -6503,7 +6801,9 @@
          /*<<bytes.ml:607:39>>*/ return  /*<<bytes.ml:607:39>>*/ caml_call1
                  /*<<bytes.ml:607:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var b1$5 = caml_bytes_unsafe_get(b, i$13);
-        /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
+        /*<<bytes.ml:608:29>>*/ if
+        ( /*<<bytes.ml:608:29>>*/ not_in_xA0_to_xBF
+           /*<<bytes.ml:608:29>>*/ (b1$5))
          /*<<bytes.ml:608:55>>*/ return  /*<<bytes.ml:608:55>>*/ caml_call1
                  /*<<bytes.ml:608:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
@@ -6511,17 +6811,23 @@
          /*<<bytes.ml:609:39>>*/ return  /*<<bytes.ml:609:39>>*/ caml_call1
                  /*<<bytes.ml:609:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
        var b2$4 = caml_bytes_unsafe_get(b, i$14);
-        /*<<bytes.ml:610:29>>*/ return not_in_x80_to_xBF(b2$4)
+        /*<<bytes.ml:610:29>>*/ return  /*<<bytes.ml:610:29>>*/ not_in_x80_to_xBF
+                 /*<<bytes.ml:610:29>>*/ (b2$4)
                ?  /*<<bytes.ml:610:55>>*/ caml_call1
                   /*<<bytes.ml:610:55>>*/ (dec_invalid, 2)
-               : dec_ret(3, utf_8_uchar_3(b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
+               :  /*<<bytes.ml:611:16>>*/ dec_ret
+                  /*<<bytes.ml:611:16>>*/ (3,
+                   /*<<bytes.ml:611:16>>*/ utf_8_uchar_3
+                    /*<<bytes.ml:611:16>>*/ (b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
       }
       var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
       if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return  /*<<bytes.ml:613:39>>*/ caml_call1
                 /*<<bytes.ml:613:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1$3 = caml_bytes_unsafe_get(b, i$2);
-       /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
+       /*<<bytes.ml:614:29>>*/ if
+       ( /*<<bytes.ml:614:29>>*/ not_in_x80_to_xBF
+          /*<<bytes.ml:614:29>>*/ (b1$3))
         /*<<bytes.ml:614:55>>*/ return  /*<<bytes.ml:614:55>>*/ caml_call1
                 /*<<bytes.ml:614:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
@@ -6529,23 +6835,30 @@
         /*<<bytes.ml:615:39>>*/ return  /*<<bytes.ml:615:39>>*/ caml_call1
                 /*<<bytes.ml:615:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
       var b2$2 = caml_bytes_unsafe_get(b, i$3);
-       /*<<bytes.ml:616:29>>*/ return not_in_x80_to_xBF(b2$2)
+       /*<<bytes.ml:616:29>>*/ return  /*<<bytes.ml:616:29>>*/ not_in_x80_to_xBF
+                /*<<bytes.ml:616:29>>*/ (b2$2)
               ?  /*<<bytes.ml:616:55>>*/ caml_call1
                  /*<<bytes.ml:616:55>>*/ (dec_invalid, 2)
-              : dec_ret(3, utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
+              :  /*<<bytes.ml:617:16>>*/ dec_ret
+                 /*<<bytes.ml:617:16>>*/ (3,
+                  /*<<bytes.ml:617:16>>*/ utf_8_uchar_3
+                   /*<<bytes.ml:617:16>>*/ (b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
      }
      if(128 > b0)
-       /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0) /*<<bytes.ml:648:22>>*/ ;
+       /*<<bytes.ml:601:24>>*/ return  /*<<bytes.ml:601:24>>*/ dec_ret
+               /*<<bytes.ml:601:24>>*/ (1, b0) /*<<bytes.ml:648:22>>*/ ;
      if(194 <= b0){
       var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
       if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return  /*<<bytes.ml:603:39>>*/ caml_call1
                 /*<<bytes.ml:603:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1 = caml_bytes_unsafe_get(b, i$15);
-       /*<<bytes.ml:604:29>>*/ return not_in_x80_to_xBF(b1)
+       /*<<bytes.ml:604:29>>*/ return  /*<<bytes.ml:604:29>>*/ not_in_x80_to_xBF
+                /*<<bytes.ml:604:29>>*/ (b1)
               ?  /*<<bytes.ml:604:55>>*/ caml_call1
                  /*<<bytes.ml:604:55>>*/ (dec_invalid, 1)
-              : dec_ret(2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
+              :  /*<<bytes.ml:605:16>>*/ dec_ret
+                 /*<<bytes.ml:605:16>>*/ (2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
      }
     }
      /*<<bytes.ml:648:9>>*/ return  /*<<bytes.ml:648:9>>*/ caml_call1
@@ -6577,7 +6890,8 @@
              ? 0
              : (caml_bytes_set
                 (b, i, 192 | u$0 >>> 6 | 0),
-               set(b, last$1, 128 | u$0 & 63),
+                /*<<bytes.ml:662:7>>*/ set
+                 /*<<bytes.ml:662:7>>*/ (b, last$1, 128 | u$0 & 63),
                2) /*<<bytes.ml:679:21>>*/ ;
     }
      /*<<bytes.ml:664:11>>*/ if(65535 >= u$0){
@@ -6586,8 +6900,12 @@
              ? 0
              : (caml_bytes_set
                 (b, i, 224 | u$0 >>> 12 | 0),
-               set(b, i + 1 | 0, 128 | (u$0 >>> 6 | 0) & 63),
-               set(b, last$0, 128 | u$0 & 63),
+                /*<<bytes.ml:668:7>>*/ set
+                 /*<<bytes.ml:668:7>>*/ (b,
+                 i + 1 | 0,
+                 128 | (u$0 >>> 6 | 0) & 63),
+                /*<<bytes.ml:669:7>>*/ set
+                 /*<<bytes.ml:669:7>>*/ (b, last$0, 128 | u$0 & 63),
                3) /*<<bytes.ml:679:21>>*/ ;
     }
      /*<<bytes.ml:671:11>>*/ if(1114111 < u$0)
@@ -6598,9 +6916,16 @@
             ? 0
             : (caml_bytes_set
                (b, i, 240 | u$0 >>> 18 | 0),
-              set(b, i + 1 | 0, 128 | (u$0 >>> 12 | 0) & 63),
-              set(b, i + 2 | 0, 128 | (u$0 >>> 6 | 0) & 63),
-              set(b, last, 128 | u$0 & 63),
+               /*<<bytes.ml:675:7>>*/ set
+                /*<<bytes.ml:675:7>>*/ (b,
+                i + 1 | 0,
+                128 | (u$0 >>> 12 | 0) & 63),
+               /*<<bytes.ml:676:7>>*/ set
+                /*<<bytes.ml:676:7>>*/ (b,
+                i + 2 | 0,
+                128 | (u$0 >>> 6 | 0) & 63),
+               /*<<bytes.ml:677:7>>*/ set
+                /*<<bytes.ml:677:7>>*/ (b, last, 128 | u$0 & 63),
               4) /*<<bytes.ml:679:21>>*/ ;
     /*<<bytes.ml:679:21>>*/ }
    function is_valid_utf_8(b){
@@ -6620,8 +6945,12 @@
             (max >= last
              &&
               !
-              not_in_x80_to_x9F(caml_bytes_unsafe_get(b, i + 1 | 0))
-              && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last))){
+               /*<<bytes.ml:710:11>>*/ not_in_x80_to_x9F
+                /*<<bytes.ml:710:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+              &&
+               !
+                /*<<bytes.ml:711:11>>*/ not_in_x80_to_xBF
+                 /*<<bytes.ml:711:11>>*/ (caml_bytes_unsafe_get(b, last))){
             var i$0 =  /*<<bytes.ml:713:13>>*/ last + 1 | 0;
             i = i$0;
             continue;
@@ -6633,11 +6962,16 @@
             (max >= last$1
              &&
               !
-              not_in_x90_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
+               /*<<bytes.ml:717:11>>*/ not_in_x90_to_xBF
+                /*<<bytes.ml:717:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
-               not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
-               && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$1))){
+                /*<<bytes.ml:718:11>>*/ not_in_x80_to_xBF
+                 /*<<bytes.ml:718:11>>*/ (caml_bytes_unsafe_get(b, i + 2 | 0))
+               &&
+                !
+                 /*<<bytes.ml:719:11>>*/ not_in_x80_to_xBF
+                  /*<<bytes.ml:719:11>>*/ (caml_bytes_unsafe_get(b, last$1))){
             var i$2 =  /*<<bytes.ml:721:13>>*/ last$1 + 1 | 0;
             i = i$2;
             continue;
@@ -6649,11 +6983,16 @@
             (max >= last$3
              &&
               !
-              not_in_x80_to_x8F(caml_bytes_unsafe_get(b, i + 1 | 0))
+               /*<<bytes.ml:733:11>>*/ not_in_x80_to_x8F
+                /*<<bytes.ml:733:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
-               not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
-               && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$3))){
+                /*<<bytes.ml:734:11>>*/ not_in_x80_to_xBF
+                 /*<<bytes.ml:734:11>>*/ (caml_bytes_unsafe_get(b, i + 2 | 0))
+               &&
+                !
+                 /*<<bytes.ml:735:11>>*/ not_in_x80_to_xBF
+                  /*<<bytes.ml:735:11>>*/ (caml_bytes_unsafe_get(b, last$3))){
             var i$4 =  /*<<bytes.ml:737:13>>*/ last$3 + 1 | 0;
             i = i$4;
             continue;
@@ -6667,11 +7006,16 @@
             (max >= last$2
              &&
               !
-              not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
+               /*<<bytes.ml:725:11>>*/ not_in_x80_to_xBF
+                /*<<bytes.ml:725:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
-               not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 2 | 0))
-               && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$2))){
+                /*<<bytes.ml:726:11>>*/ not_in_x80_to_xBF
+                 /*<<bytes.ml:726:11>>*/ (caml_bytes_unsafe_get(b, i + 2 | 0))
+               &&
+                !
+                 /*<<bytes.ml:727:11>>*/ not_in_x80_to_xBF
+                  /*<<bytes.ml:727:11>>*/ (caml_bytes_unsafe_get(b, last$2))){
             var i$3 =  /*<<bytes.ml:729:13>>*/ last$2 + 1 | 0;
             i = i$3;
             continue;
@@ -6685,8 +7029,12 @@
          (max >= last$4
           &&
            !
-           not_in_xA0_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
-           && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$4))){
+            /*<<bytes.ml:696:11>>*/ not_in_xA0_to_xBF
+             /*<<bytes.ml:696:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+           &&
+            !
+             /*<<bytes.ml:697:11>>*/ not_in_x80_to_xBF
+              /*<<bytes.ml:697:11>>*/ (caml_bytes_unsafe_get(b, last$4))){
          var i$5 =  /*<<bytes.ml:699:13>>*/ last$4 + 1 | 0;
          i = i$5;
          continue;
@@ -6698,8 +7046,12 @@
         (max >= last$0
          &&
           !
-          not_in_x80_to_xBF(caml_bytes_unsafe_get(b, i + 1 | 0))
-          && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$0))){
+           /*<<bytes.ml:703:11>>*/ not_in_x80_to_xBF
+            /*<<bytes.ml:703:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+          &&
+           !
+            /*<<bytes.ml:704:11>>*/ not_in_x80_to_xBF
+             /*<<bytes.ml:704:11>>*/ (caml_bytes_unsafe_get(b, last$0))){
         var i$1 =  /*<<bytes.ml:706:13>>*/ last$0 + 1 | 0;
         i = i$1;
         continue;
@@ -6715,7 +7067,10 @@
        var last$5 =  /*<<bytes.ml:688:8>>*/ i + 1 | 0;
        if
         (max >= last$5
-         && ! not_in_x80_to_xBF(caml_bytes_unsafe_get(b, last$5))){
+         &&
+          !
+           /*<<bytes.ml:690:11>>*/ not_in_x80_to_xBF
+            /*<<bytes.ml:690:11>>*/ (caml_bytes_unsafe_get(b, last$5))){
         var i$6 =  /*<<bytes.ml:692:13>>*/ last$5 + 1 | 0;
         i = i$6;
         continue;
@@ -6737,7 +7092,10 @@
      if(i === max)
        /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
                /*<<bytes.ml:748:18>>*/ (dec_invalid, 1) /*<<bytes.ml:759:21>>*/ ;
-     var hi =  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be(b, i);
+     var
+      hi =
+         /*<<bytes.ml:749:8>>*/  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be
+          /*<<bytes.ml:749:8>>*/ (b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
@@ -6745,15 +7103,20 @@
       var last =  /*<<bytes.ml:753:6>>*/ i + 3 | 0;
       if(max < last)
        return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:759:21>>*/ ;
-      var lo =  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
+      var
+       lo =
+          /*<<bytes.ml:755:12>>*/  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be
+           /*<<bytes.ml:755:12>>*/ (b, i + 2 | 0);
        /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
-        /*<<bytes.ml:759:10>>*/ return dec_ret(4, u) /*<<bytes.ml:759:21>>*/ ;
+        /*<<bytes.ml:759:10>>*/ return  /*<<bytes.ml:759:10>>*/ dec_ret
+                /*<<bytes.ml:759:10>>*/ (4, u) /*<<bytes.ml:759:21>>*/ ;
       }
        /*<<bytes.ml:756:43>>*/ return  /*<<bytes.ml:756:43>>*/ caml_call1
                /*<<bytes.ml:756:43>>*/ (dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
      }
-      /*<<bytes.ml:750:39>>*/ return dec_ret(2, hi) /*<<bytes.ml:759:21>>*/ ;
+      /*<<bytes.ml:750:39>>*/ return  /*<<bytes.ml:750:39>>*/ dec_ret
+              /*<<bytes.ml:750:39>>*/ (2, hi) /*<<bytes.ml:759:21>>*/ ;
     }
      /*<<bytes.ml:747:27>>*/ return  /*<<bytes.ml:747:27>>*/ caml_call1
              /*<<bytes.ml:747:27>>*/ (Stdlib[1], cst_index_out_of_bounds) /*<<bytes.ml:759:21>>*/ ;
@@ -6775,7 +7138,11 @@
               /*<<bytes.ml:766:20>>*/ ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:768:6>>*/ i + 1 | 0;
-      return max < last$0 ? 0 : (unsafe_set_uint16_be(b, i, u$0), 2) /*<<bytes.ml:777:21>>*/ ;
+      return max < last$0
+              ? 0
+              : ( /*<<bytes.ml:769:33>>*/ unsafe_set_uint16_be
+                  /*<<bytes.ml:769:33>>*/ (b, i, u$0),
+                2) /*<<bytes.ml:777:21>>*/ ;
      }
       /*<<bytes.ml:770:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:777:9>>*/ throw  /*<<bytes.ml:777:9>>*/ caml_maybe_attach_backtrace
@@ -6787,8 +7154,10 @@
       u$1 =  /*<<bytes.ml:773:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
-      /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be(b, i, hi);
-      /*<<bytes.ml:776:18>>*/ unsafe_set_uint16_be(b, i + 2 | 0, lo);
+      /*<<bytes.ml:776:6>>*/  /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be
+       /*<<bytes.ml:776:6>>*/ (b, i, hi);
+      /*<<bytes.ml:776:18>>*/  /*<<bytes.ml:776:18>>*/ unsafe_set_uint16_be
+       /*<<bytes.ml:776:18>>*/ (b, i + 2 | 0, lo);
       /*<<bytes.ml:776:18>>*/ return 4 /*<<bytes.ml:776:18>>*/ ;
     }
      /*<<bytes.ml:764:27>>*/ return  /*<<bytes.ml:764:27>>*/ caml_call1
@@ -6799,14 +7168,20 @@
      /*<<bytes.ml:781:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:782:20>>*/ return 1 /*<<bytes.ml:782:20>>*/ ;
      if(i === max)  /*<<bytes.ml:783:20>>*/ return 0 /*<<bytes.ml:783:20>>*/ ;
-     var u =  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be(b, i);
+     var
+      u =
+         /*<<bytes.ml:784:10>>*/  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be
+          /*<<bytes.ml:784:10>>*/ (b, i);
       /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
         /*<<bytes.ml:786:27>>*/ return 0 /*<<bytes.ml:786:27>>*/ ;
       var last =  /*<<bytes.ml:788:8>>*/ i + 3 | 0;
       if(max < last)
         /*<<bytes.ml:789:27>>*/ return 0 /*<<bytes.ml:789:27>>*/ ;
-      var u$0 =  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
+      var
+       u$0 =
+          /*<<bytes.ml:790:14>>*/  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be
+           /*<<bytes.ml:790:14>>*/ (b, i + 2 | 0);
        /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:792:17>>*/ i + 4 | 0;
        i = i$1;
@@ -6829,7 +7204,10 @@
      if(i === max)
        /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
                /*<<bytes.ml:802:18>>*/ (dec_invalid, 1) /*<<bytes.ml:813:21>>*/ ;
-     var hi =  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le(b, i);
+     var
+      hi =
+         /*<<bytes.ml:803:8>>*/  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le
+          /*<<bytes.ml:803:8>>*/ (b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
@@ -6837,15 +7215,20 @@
       var last =  /*<<bytes.ml:807:6>>*/ i + 3 | 0;
       if(max < last)
        return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:813:21>>*/ ;
-      var lo =  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
+      var
+       lo =
+          /*<<bytes.ml:809:12>>*/  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le
+           /*<<bytes.ml:809:12>>*/ (b, i + 2 | 0);
        /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
-        /*<<bytes.ml:813:10>>*/ return dec_ret(4, u) /*<<bytes.ml:813:21>>*/ ;
+        /*<<bytes.ml:813:10>>*/ return  /*<<bytes.ml:813:10>>*/ dec_ret
+                /*<<bytes.ml:813:10>>*/ (4, u) /*<<bytes.ml:813:21>>*/ ;
       }
        /*<<bytes.ml:810:43>>*/ return  /*<<bytes.ml:810:43>>*/ caml_call1
                /*<<bytes.ml:810:43>>*/ (dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
      }
-      /*<<bytes.ml:804:39>>*/ return dec_ret(2, hi) /*<<bytes.ml:813:21>>*/ ;
+      /*<<bytes.ml:804:39>>*/ return  /*<<bytes.ml:804:39>>*/ dec_ret
+              /*<<bytes.ml:804:39>>*/ (2, hi) /*<<bytes.ml:813:21>>*/ ;
     }
      /*<<bytes.ml:801:27>>*/ return  /*<<bytes.ml:801:27>>*/ caml_call1
              /*<<bytes.ml:801:27>>*/ (Stdlib[1], cst_index_out_of_bounds$1) /*<<bytes.ml:813:21>>*/ ;
@@ -6867,7 +7250,11 @@
               /*<<bytes.ml:820:20>>*/ ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:822:6>>*/ i + 1 | 0;
-      return max < last$0 ? 0 : (unsafe_set_uint16_le(b, i, u$0), 2) /*<<bytes.ml:831:21>>*/ ;
+      return max < last$0
+              ? 0
+              : ( /*<<bytes.ml:823:33>>*/ unsafe_set_uint16_le
+                  /*<<bytes.ml:823:33>>*/ (b, i, u$0),
+                2) /*<<bytes.ml:831:21>>*/ ;
      }
       /*<<bytes.ml:824:11>>*/ if(1114111 < u$0)
        /*<<bytes.ml:831:9>>*/ throw  /*<<bytes.ml:831:9>>*/ caml_maybe_attach_backtrace
@@ -6879,8 +7266,10 @@
       u$1 =  /*<<bytes.ml:827:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
-      /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le(b, i, hi);
-      /*<<bytes.ml:830:18>>*/ unsafe_set_uint16_le(b, i + 2 | 0, lo);
+      /*<<bytes.ml:830:6>>*/  /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le
+       /*<<bytes.ml:830:6>>*/ (b, i, hi);
+      /*<<bytes.ml:830:18>>*/  /*<<bytes.ml:830:18>>*/ unsafe_set_uint16_le
+       /*<<bytes.ml:830:18>>*/ (b, i + 2 | 0, lo);
       /*<<bytes.ml:830:18>>*/ return 4 /*<<bytes.ml:830:18>>*/ ;
     }
      /*<<bytes.ml:818:27>>*/ return  /*<<bytes.ml:818:27>>*/ caml_call1
@@ -6891,14 +7280,20 @@
      /*<<bytes.ml:835:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:836:20>>*/ return 1 /*<<bytes.ml:836:20>>*/ ;
      if(i === max)  /*<<bytes.ml:837:20>>*/ return 0 /*<<bytes.ml:837:20>>*/ ;
-     var u =  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le(b, i);
+     var
+      u =
+         /*<<bytes.ml:838:10>>*/  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le
+          /*<<bytes.ml:838:10>>*/ (b, i);
       /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
         /*<<bytes.ml:840:27>>*/ return 0 /*<<bytes.ml:840:27>>*/ ;
       var last =  /*<<bytes.ml:842:8>>*/ i + 3 | 0;
       if(max < last)
         /*<<bytes.ml:843:27>>*/ return 0 /*<<bytes.ml:843:27>>*/ ;
-      var u$0 =  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
+      var
+       u$0 =
+          /*<<bytes.ml:844:14>>*/  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le
+           /*<<bytes.ml:844:14>>*/ (b, i + 2 | 0);
        /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:846:17>>*/ i + 4 | 0;
        i = i$1;
@@ -7249,10 +7644,13 @@
       /*<<string.ml:102:17>>*/ return s /*<<string.ml:102:17>>*/ ;
      /*<<string.ml:103:10>>*/ if
      (!
-      is_space(caml_string_unsafe_get(s, 0))
+       /*<<string.ml:103:10>>*/ is_space
+        /*<<string.ml:103:10>>*/ (caml_string_unsafe_get(s, 0))
       &&
        !
-       is_space(caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
+        /*<<string.ml:103:39>>*/ is_space
+         /*<<string.ml:103:39>>*/ (caml_string_unsafe_get
+          (s, caml_ml_string_length(s) - 1 | 0)))
       /*<<string.ml:105:7>>*/ return s /*<<string.ml:105:7>>*/ ;
     var
      _I_ =
@@ -7286,8 +7684,8 @@
     }
     /*<<string.ml:116:61>>*/ }
    function index(s, c){
-     /*<<string.ml:119:16>>*/ return index_rec
-            (s, caml_ml_string_length(s), 0, c) /*<<string.ml:119:42>>*/ ;
+     /*<<string.ml:119:16>>*/ return  /*<<string.ml:119:16>>*/ index_rec
+             /*<<string.ml:119:16>>*/ (s, caml_ml_string_length(s), 0, c) /*<<string.ml:119:42>>*/ ;
     /*<<string.ml:119:42>>*/ }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
@@ -7301,13 +7699,14 @@
     }
     /*<<string.ml:124:70>>*/ }
    function index_opt(s, c){
-     /*<<string.ml:127:20>>*/ return index_rec_opt
-            (s, caml_ml_string_length(s), 0, c) /*<<string.ml:127:50>>*/ ;
+     /*<<string.ml:127:20>>*/ return  /*<<string.ml:127:20>>*/ index_rec_opt
+             /*<<string.ml:127:20>>*/ (s, caml_ml_string_length(s), 0, c) /*<<string.ml:127:50>>*/ ;
     /*<<string.ml:127:50>>*/ }
    function index_from(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c) /*<<string.ml:133:21>>*/ ;
+      /*<<string.ml:133:4>>*/ return  /*<<string.ml:133:4>>*/ index_rec
+              /*<<string.ml:133:4>>*/ (s, l, i, c) /*<<string.ml:133:21>>*/ ;
      /*<<string.ml:132:25>>*/ return  /*<<string.ml:132:25>>*/ caml_call1
              /*<<string.ml:132:25>>*/ (Stdlib[1],
              cst_String_index_from_Bytes_in) /*<<string.ml:133:21>>*/ ;
@@ -7315,7 +7714,8 @@
    function index_from_opt(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c) /*<<string.ml:141:25>>*/ ;
+      /*<<string.ml:141:4>>*/ return  /*<<string.ml:141:4>>*/ index_rec_opt
+              /*<<string.ml:141:4>>*/ (s, l, i, c) /*<<string.ml:141:25>>*/ ;
      /*<<string.ml:139:4>>*/ return  /*<<string.ml:139:4>>*/ caml_call1
              /*<<string.ml:139:4>>*/ (Stdlib[1],
              cst_String_index_from_opt_Byte) /*<<string.ml:141:25>>*/ ;
@@ -7333,12 +7733,13 @@
     }
     /*<<string.ml:146:58>>*/ }
    function rindex(s, c){
-     /*<<string.ml:149:17>>*/ return rindex_rec
-            (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:149:46>>*/ ;
+     /*<<string.ml:149:17>>*/ return  /*<<string.ml:149:17>>*/ rindex_rec
+             /*<<string.ml:149:17>>*/ (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:149:46>>*/ ;
     /*<<string.ml:149:46>>*/ }
    function rindex_from(s, i, c){
      /*<<string.ml:153:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:156:4>>*/ return rindex_rec(s, i, c) /*<<string.ml:156:20>>*/ ;
+      /*<<string.ml:156:4>>*/ return  /*<<string.ml:156:4>>*/ rindex_rec
+              /*<<string.ml:156:4>>*/ (s, i, c) /*<<string.ml:156:20>>*/ ;
      /*<<string.ml:154:4>>*/ return  /*<<string.ml:154:4>>*/ caml_call1
              /*<<string.ml:154:4>>*/ (Stdlib[1],
              cst_String_rindex_from_Bytes_r) /*<<string.ml:156:20>>*/ ;
@@ -7354,12 +7755,13 @@
     }
     /*<<string.ml:161:67>>*/ }
    function rindex_opt(s, c){
-     /*<<string.ml:164:21>>*/ return rindex_rec_opt
-            (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:164:54>>*/ ;
+     /*<<string.ml:164:21>>*/ return  /*<<string.ml:164:21>>*/ rindex_rec_opt
+             /*<<string.ml:164:21>>*/ (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:164:54>>*/ ;
     /*<<string.ml:164:54>>*/ }
    function rindex_from_opt(s, i, c){
      /*<<string.ml:168:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:171:4>>*/ return rindex_rec_opt(s, i, c) /*<<string.ml:171:24>>*/ ;
+      /*<<string.ml:171:4>>*/ return  /*<<string.ml:171:4>>*/ rindex_rec_opt
+              /*<<string.ml:171:4>>*/ (s, i, c) /*<<string.ml:171:24>>*/ ;
      /*<<string.ml:169:4>>*/ return  /*<<string.ml:169:4>>*/ caml_call1
              /*<<string.ml:169:4>>*/ (Stdlib[1],
              cst_String_rindex_from_opt_Byt) /*<<string.ml:171:24>>*/ ;
@@ -7368,7 +7770,8 @@
     var l = caml_ml_string_length(s);
      /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:179:4>>*/ try{
-       /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
+       /*<<string.ml:179:15>>*/  /*<<string.ml:179:15>>*/ index_rec
+        /*<<string.ml:179:15>>*/ (s, l, i, c);
       var _G_ =  /*<<string.ml:179:36>>*/ 1;
        /*<<string.ml:179:36>>*/ return _G_ /*<<string.ml:179:36>>*/ ;
      }
@@ -7383,12 +7786,14 @@
              cst_String_contains_from_Bytes) /*<<string.ml:179:64>>*/ ;
     /*<<string.ml:179:64>>*/ }
    function contains(s, c){
-     /*<<string.ml:182:19>>*/ return contains_from(s, 0, c) /*<<string.ml:182:38>>*/ ;
+     /*<<string.ml:182:19>>*/ return  /*<<string.ml:182:19>>*/ contains_from
+             /*<<string.ml:182:19>>*/ (s, 0, c) /*<<string.ml:182:38>>*/ ;
     /*<<string.ml:182:38>>*/ }
    function rcontains_from(s, i, c){
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:189:4>>*/ try{
-       /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
+       /*<<string.ml:189:15>>*/  /*<<string.ml:189:15>>*/ rindex_rec
+        /*<<string.ml:189:15>>*/ (s, i, c);
       var _D_ =  /*<<string.ml:189:35>>*/ 1;
        /*<<string.ml:189:35>>*/ return _D_ /*<<string.ml:189:35>>*/ ;
      }
@@ -7498,7 +7903,11 @@
      for(;;){
       if(caml_string_unsafe_get(s, i) === sep){
        var _u_ = r[1];
-       r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _u_];
+       r[1] =
+        [0,
+          /*<<string.ml:230:11>>*/ sub
+           /*<<string.ml:230:11>>*/ (s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
+         _u_];
        j[1] = i;
       }
       var _v_ =  /*<<string.ml:228:2>>*/ i - 1 | 0;
@@ -7507,7 +7916,9 @@
      }
     }
     var _t_ = r[1];
-     /*<<string.ml:234:2>>*/ return [0, sub(s, 0, j[1]), _t_] /*<<string.ml:234:2>>*/ ;
+     /*<<string.ml:234:2>>*/ return [0,
+             /*<<string.ml:234:2>>*/ sub /*<<string.ml:234:2>>*/ (s, 0, j[1]),
+            _t_] /*<<string.ml:234:2>>*/ ;
     /*<<string.ml:234:18>>*/ }
    var compare = runtime.caml_string_compare;
    function to_seq(s){
@@ -7794,7 +8205,11 @@
              /*<<marshal.ml:51:7>>*/ (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
     /*<<marshal.ml:52:32>>*/ }
    function total_size(buff, ofs){
-     /*<<marshal.ml:53:26>>*/ return 16 + data_size(buff, ofs) | 0;
+     /*<<marshal.ml:53:26>>*/ return 16
+           +
+             /*<<marshal.ml:53:40>>*/ data_size
+              /*<<marshal.ml:53:40>>*/ (buff, ofs)
+           | 0;
     /*<<marshal.ml:53:58>>*/ }
    function from_bytes(buff, ofs){
      /*<<marshal.ml:56:2>>*/ if
@@ -7813,8 +8228,8 @@
              /*<<marshal.ml:57:7>>*/ (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
     /*<<marshal.ml:63:5>>*/ }
    function from_string(buff, ofs){
-     /*<<marshal.ml:68:2>>*/ return from_bytes
-            ( /*<<marshal.ml:68:13>>*/ caml_call1
+     /*<<marshal.ml:68:2>>*/ return  /*<<marshal.ml:68:2>>*/ from_bytes
+             /*<<marshal.ml:68:2>>*/ ( /*<<marshal.ml:68:13>>*/ caml_call1
                /*<<marshal.ml:68:13>>*/ (Stdlib_Bytes[45], buff),
              ofs) /*<<marshal.ml:68:46>>*/ ;
     /*<<marshal.ml:68:46>>*/ }
@@ -7980,7 +8395,7 @@
    function append(a1, a2){
     var l1 = a1.length - 1;
      /*<<array.ml:92:2>>*/ return 0 === l1
-            ? copy(a2)
+            ?  /*<<array.ml:92:17>>*/ copy /*<<array.ml:92:17>>*/ (a2)
             : 0
               === a2.length - 1
               ?  /*<<array.ml:93:29>>*/ caml_array_sub
@@ -8199,7 +8614,9 @@
      hd = l[1],
      a =
         /*<<array.ml:182:14>>*/  /*<<array.ml:182:14>>*/ caml_make_vect
-         /*<<array.ml:182:14>>*/ (list_length(0, l), hd),
+         /*<<array.ml:182:14>>*/ ( /*<<array.ml:182:21>>*/ list_length
+           /*<<array.ml:182:21>>*/ (0, l),
+         hd),
      i = 1,
      param = tl;
      /*<<array.ml:183:19>>*/ for(;;){
@@ -8522,7 +8939,10 @@
        /*<<array.ml:360:22>>*/ try{
        var i = i$6;
         /*<<array.ml:352:4>>*/ for(;;){
-        var j =  /*<<array.ml:352:12>>*/ maxson(l, i);
+        var
+         j =
+            /*<<array.ml:352:12>>*/  /*<<array.ml:352:12>>*/ maxson
+             /*<<array.ml:352:12>>*/ (l, i);
          /*<<array.ml:353:7>>*/ if
          (0
           >=
@@ -8557,7 +8977,9 @@
        var i$1 = i$5;
         /*<<array.ml:362:4>>*/ for(;;){
         var
-         j$0 =  /*<<array.ml:362:12>>*/ maxson(i$4, i$1),
+         j$0 =
+            /*<<array.ml:362:12>>*/  /*<<array.ml:362:12>>*/ maxson
+             /*<<array.ml:362:12>>*/ (i$4, i$1),
          _v_ =  /*<<array.ml:363:12>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<array.ml:363:4>>*/ caml_check_bound(a, i$1)[1 + i$1] = _v_;
         i$1 = j$0;
@@ -8637,8 +9059,12 @@
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<array.ml:400:8>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r)
-         /*<<array.ml:106:9>>*/ return blit
-                (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
+         /*<<array.ml:106:9>>*/ return  /*<<array.ml:106:9>>*/ blit
+                 /*<<array.ml:106:9>>*/ (a,
+                 i1,
+                 dst,
+                 d + 1 | 0,
+                 src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
         s2$0 =  /*<<array.ml:403:24>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -8650,8 +9076,12 @@
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
        var i1$0 =  /*<<array.ml:393:8>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
-         /*<<array.ml:106:9>>*/ return blit
-                (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
+         /*<<array.ml:106:9>>*/ return  /*<<array.ml:106:9>>*/ blit
+                 /*<<array.ml:106:9>>*/ (src2,
+                 i2,
+                 dst,
+                 d + 1 | 0,
+                 src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
         s1$0 =  /*<<array.ml:396:18>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -8698,25 +9128,38 @@
      /*<<array.ml:418:8>>*/ }
     function sortto(srcofs, dst, dstofs, len){
       /*<<array.ml:421:4>>*/ if(len <= 5)
-       /*<<array.ml:421:26>>*/ return isortto(srcofs, dst, dstofs, len) /*<<array.ml:427:7>>*/ ;
+       /*<<array.ml:421:26>>*/ return  /*<<array.ml:421:26>>*/ isortto
+               /*<<array.ml:421:26>>*/ (srcofs, dst, dstofs, len) /*<<array.ml:427:7>>*/ ;
      var l1 = len / 2 | 0, l2 = len - l1 | 0;
-      /*<<array.ml:424:6>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
-      /*<<array.ml:425:6>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
-      /*<<array.ml:425:6>>*/ return merge
-             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<array.ml:427:7>>*/ ;
+      /*<<array.ml:424:6>>*/  /*<<array.ml:424:6>>*/ sortto
+       /*<<array.ml:424:6>>*/ (srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
+      /*<<array.ml:425:6>>*/  /*<<array.ml:425:6>>*/ sortto
+       /*<<array.ml:425:6>>*/ (srcofs, a, srcofs + l2 | 0, l1);
+      /*<<array.ml:425:6>>*/ return  /*<<array.ml:425:6>>*/ merge
+              /*<<array.ml:425:6>>*/ (srcofs + l2 | 0,
+              l1,
+              dst,
+              dstofs + l1 | 0,
+              l2,
+              dst,
+              dstofs) /*<<array.ml:427:7>>*/ ;
      /*<<array.ml:427:7>>*/ }
     var l = a.length - 1;
     if(l <= 5)
-      /*<<array.ml:430:22>>*/ return isortto(0, a, 0, l) /*<<array.ml:437:5>>*/ ;
+      /*<<array.ml:430:22>>*/ return  /*<<array.ml:430:22>>*/ isortto
+              /*<<array.ml:430:22>>*/ (0, a, 0, l) /*<<array.ml:437:5>>*/ ;
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
      t =
         /*<<array.ml:433:12>>*/  /*<<array.ml:433:12>>*/ caml_make_vect
          /*<<array.ml:433:12>>*/ (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>>*/ ;
+     /*<<array.ml:434:4>>*/  /*<<array.ml:434:4>>*/ sortto
+      /*<<array.ml:434:4>>*/ (l1, t, 0, l2);
+     /*<<array.ml:435:4>>*/  /*<<array.ml:435:4>>*/ sortto
+      /*<<array.ml:435:4>>*/ (0, a, l2, l1);
+     /*<<array.ml:435:4>>*/ return  /*<<array.ml:435:4>>*/ merge
+             /*<<array.ml:435:4>>*/ (l2, l1, t, 0, l2, a, 0) /*<<array.ml:437:5>>*/ ;
     /*<<array.ml:437:5>>*/ }
    function shuffle(rand, a){
     var _j_ = a.length - 2 | 0;
@@ -8781,7 +9224,9 @@
     var
      tl = l[2],
      hd = l[1],
-     len =  /*<<array.ml:475:16>>*/ list_length(0, l),
+     len =
+        /*<<array.ml:475:16>>*/  /*<<array.ml:475:16>>*/ list_length
+         /*<<array.ml:475:16>>*/ (0, l),
      a =
         /*<<array.ml:476:14>>*/  /*<<array.ml:476:14>>*/ caml_make_vect
          /*<<array.ml:476:14>>*/ (len, hd),
@@ -8932,7 +9377,9 @@
            /*<<float.ml:116:23>>*/ (x)
         ? 1
         : 0;
-    return _aX_ ? is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
+    return _aX_
+            ?  /*<<float.ml:39:14>>*/ is_finite /*<<float.ml:39:14>>*/ (x)
+            : _aX_ /*<<float.ml:116:45>>*/ ;
     /*<<float.ml:116:45>>*/ }
    function succ(x){
      /*<<float.ml:121:13>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
@@ -9081,7 +9528,8 @@
      result =
         /*<<float.ml:194:17>>*/  /*<<float.ml:194:17>>*/ caml_floatarray_create
          /*<<float.ml:194:17>>*/ (n);
-     /*<<float.ml:195:4>>*/ unsafe_fill(result, 0, n, v);
+     /*<<float.ml:195:4>>*/  /*<<float.ml:195:4>>*/ unsafe_fill
+      /*<<float.ml:195:4>>*/ (result, 0, n, v);
      /*<<float.ml:195:4>>*/ return result /*<<float.ml:195:4>>*/ ;
     /*<<float.ml:196:10>>*/ }
    function init(l, f){
@@ -9121,7 +9569,8 @@
      if(_aM_ >= 0){
       var x = _aL_;
       for(;;){
-        /*<<float.ml:213:8>>*/ res[1 + x] = make(sy, v);
+        /*<<float.ml:213:8>>*/ res[1 + x] =
+         /*<<float.ml:213:31>>*/ make /*<<float.ml:213:31>>*/ (sy, v);
        var _aN_ =  /*<<float.ml:213:8>>*/ x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
@@ -9225,7 +9674,8 @@
     }
     /*<<float.ml:261:10>>*/ }
    function sub(a, ofs, len){
-     /*<<float.ml:264:4>>*/ check(a, ofs, len, cst_Float_Array_sub);
+     /*<<float.ml:264:4>>*/  /*<<float.ml:264:4>>*/ check
+      /*<<float.ml:264:4>>*/ (a, ofs, len, cst_Float_Array_sub);
     var
      result =
         /*<<float.ml:265:17>>*/  /*<<float.ml:265:17>>*/ caml_floatarray_create
@@ -9245,12 +9695,16 @@
      /*<<float.ml:272:4>>*/ return result /*<<float.ml:272:4>>*/ ;
     /*<<float.ml:273:10>>*/ }
    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:276:4>>*/  /*<<float.ml:276:4>>*/ check
+      /*<<float.ml:276:4>>*/ (a, ofs, len, cst_Float_Array_fill);
+     /*<<float.ml:276:4>>*/ return  /*<<float.ml:276:4>>*/ unsafe_fill
+             /*<<float.ml:276:4>>*/ (a, ofs, len, v) /*<<float.ml:277:27>>*/ ;
     /*<<float.ml:277: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:280:4>>*/  /*<<float.ml:280:4>>*/ check
+      /*<<float.ml:280:4>>*/ (src, sofs, len, cst_Float_array_blit);
+     /*<<float.ml:281:4>>*/  /*<<float.ml:281:4>>*/ check
+      /*<<float.ml:281:4>>*/ (dst, dofs, len, cst_Float_array_blit$0);
      /*<<float.ml:282:4>>*/ return  /*<<float.ml:282:4>>*/ caml_floatarray_blit
              /*<<float.ml:282:4>>*/ (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
     /*<<float.ml:282:37>>*/ }
@@ -9614,7 +10068,10 @@
        /*<<float.ml:475:24>>*/ try{
        var i = i$6;
         /*<<float.ml:467:6>>*/ for(;;){
-        var j =  /*<<float.ml:467:14>>*/ maxson(l, i);
+        var
+         j =
+            /*<<float.ml:467:14>>*/  /*<<float.ml:467:14>>*/ maxson
+             /*<<float.ml:467:14>>*/ (l, i);
          /*<<float.ml:468:9>>*/ if
          (0
           >=
@@ -9649,7 +10106,9 @@
        var i$1 = i$5;
         /*<<float.ml:477:6>>*/ for(;;){
         var
-         j$0 =  /*<<float.ml:477:14>>*/ maxson(i$4, i$1),
+         j$0 =
+            /*<<float.ml:477:14>>*/  /*<<float.ml:477:14>>*/ maxson
+             /*<<float.ml:477:14>>*/ (i$4, i$1),
          _O_ =  /*<<float.ml:478:14>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<float.ml:478:6>>*/ caml_check_bound(a, i$1)[1 + i$1] = _O_;
         i$1 = j$0;
@@ -9729,8 +10188,12 @@
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<float.ml:515:10>>*/ i2 + 1 | 0;
        if(i2$0 >= src2r)
-         /*<<float.ml:279:11>>*/ return blit
-                (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
+         /*<<float.ml:279:11>>*/ return  /*<<float.ml:279:11>>*/ blit
+                 /*<<float.ml:279:11>>*/ (a,
+                 i1,
+                 dst,
+                 d + 1 | 0,
+                 src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
         s2$0 =  /*<<float.ml:518:26>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -9742,8 +10205,12 @@
         /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
        var i1$0 =  /*<<float.ml:508:10>>*/ i1 + 1 | 0;
        if(i1$0 >= src1r)
-         /*<<float.ml:279:11>>*/ return blit
-                (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
+         /*<<float.ml:279:11>>*/ return  /*<<float.ml:279:11>>*/ blit
+                 /*<<float.ml:279:11>>*/ (src2,
+                 i2,
+                 dst,
+                 d + 1 | 0,
+                 src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
         s1$0 =  /*<<float.ml:511:20>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -9790,25 +10257,38 @@
      /*<<float.ml:533: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:542:9>>*/ ;
+       /*<<float.ml:536:28>>*/ return  /*<<float.ml:536:28>>*/ isortto
+               /*<<float.ml:536:28>>*/ (srcofs, dst, dstofs, len) /*<<float.ml:542:9>>*/ ;
      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
-             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<float.ml:542:9>>*/ ;
+      /*<<float.ml:539:8>>*/  /*<<float.ml:539:8>>*/ sortto
+       /*<<float.ml:539:8>>*/ (srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
+      /*<<float.ml:540:8>>*/  /*<<float.ml:540:8>>*/ sortto
+       /*<<float.ml:540:8>>*/ (srcofs, a, srcofs + l2 | 0, l1);
+      /*<<float.ml:540:8>>*/ return  /*<<float.ml:540:8>>*/ merge
+              /*<<float.ml:540:8>>*/ (srcofs + l2 | 0,
+              l1,
+              dst,
+              dstofs + l1 | 0,
+              l2,
+              dst,
+              dstofs) /*<<float.ml:542:9>>*/ ;
      /*<<float.ml:542:9>>*/ }
     var l = a.length - 1;
     if(l <= 5)
-      /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l) /*<<float.ml:552:7>>*/ ;
+      /*<<float.ml:545:24>>*/ return  /*<<float.ml:545:24>>*/ isortto
+              /*<<float.ml:545:24>>*/ (0, a, 0, l) /*<<float.ml:552:7>>*/ ;
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
      t =
         /*<<float.ml:548:14>>*/  /*<<float.ml:548:14>>*/ caml_floatarray_create
          /*<<float.ml:548:14>>*/ (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:549:6>>*/  /*<<float.ml:549:6>>*/ sortto
+      /*<<float.ml:549:6>>*/ (l1, t, 0, l2);
+     /*<<float.ml:550:6>>*/  /*<<float.ml:550:6>>*/ sortto
+      /*<<float.ml:550:6>>*/ (0, a, l2, l1);
+     /*<<float.ml:550:6>>*/ return  /*<<float.ml:550:6>>*/ merge
+             /*<<float.ml:550:6>>*/ (l2, l1, t, 0, l2, a, 0) /*<<float.ml:552:7>>*/ ;
     /*<<float.ml:552:7>>*/ }
    function shuffle(rand, a){
     var _C_ = a.length - 2 | 0;
@@ -10182,7 +10662,10 @@
    function unsigned_div(n, d){
      /*<<int32.ml:98:2>>*/ if
      ( /*<<int32.ml:98:5>>*/ caml_lessthan /*<<int32.ml:98:5>>*/ (d, 0))
-      /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int32.ml:103:41>>*/ ;
+      /*<<int32.ml:99:7>>*/ return  /*<<int32.ml:99:7>>*/ unsigned_lt
+               /*<<int32.ml:99:7>>*/ (n, d)
+             ? zero
+             : one /*<<int32.ml:103:41>>*/ ;
     var
      q =
         /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
@@ -10192,13 +10675,18 @@
         /*<<int32.ml:102:12>>*/ n
        -  /*<<int32.ml:102:18>>*/ caml_mul /*<<int32.ml:102:18>>*/ (q, d)
        | 0;
-     /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
+     /*<<int32.ml:103:7>>*/ return  /*<<int32.ml:103:7>>*/ unsigned_lt
+              /*<<int32.ml:103:7>>*/ (r, d)
+            ? q
+            : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
     /*<<int32.ml:103:41>>*/ }
    function unsigned_rem(n, d){
      /*<<int32.ml:106:2>>*/ return n
            -
              /*<<int32.ml:106:8>>*/ caml_mul
-              /*<<int32.ml:106:8>>*/ (unsigned_div(n, d), d)
+              /*<<int32.ml:106:8>>*/ ( /*<<int32.ml:106:13>>*/ unsigned_div
+                /*<<int32.ml:106:13>>*/ (n, d),
+              d)
            | 0 /*<<int32.ml:106:2>>*/ ;
     /*<<int32.ml:106:34>>*/ }
    function seeded_hash(seed, x){
@@ -10358,7 +10846,10 @@
    function unsigned_div(n, d){
      /*<<int64.ml:95:2>>*/ if
      ( /*<<int64.ml:95:5>>*/ caml_lessthan /*<<int64.ml:95:5>>*/ (d, zero))
-      /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int64.ml:100:41>>*/ ;
+      /*<<int64.ml:96:7>>*/ return  /*<<int64.ml:96:7>>*/ unsigned_lt
+               /*<<int64.ml:96:7>>*/ (n, d)
+             ? zero
+             : one /*<<int64.ml:100:41>>*/ ;
     var
      q =
         /*<<int64.ml:98:12>>*/  /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
@@ -10371,7 +10862,8 @@
         /*<<int64.ml:99:12>>*/  /*<<int64.ml:99:12>>*/ caml_int64_sub
          /*<<int64.ml:99:12>>*/ (n,
           /*<<int64.ml:99:18>>*/ caml_int64_mul /*<<int64.ml:99:18>>*/ (q, d));
-     /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
+     /*<<int64.ml:100:7>>*/ return  /*<<int64.ml:100:7>>*/ unsigned_lt
+              /*<<int64.ml:100:7>>*/ (r, d)
             ? q
             :  /*<<int64.ml:46:13>>*/ caml_int64_add
                /*<<int64.ml:46:13>>*/ (q, _a_) /*<<int64.ml:100:41>>*/ ;
@@ -10380,7 +10872,9 @@
      /*<<int64.ml:103:2>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
              /*<<int64.ml:103:2>>*/ (n,
               /*<<int64.ml:103:8>>*/ caml_int64_mul
-               /*<<int64.ml:103:8>>*/ (unsigned_div(n, d), d)) /*<<int64.ml:103:34>>*/ ;
+               /*<<int64.ml:103:8>>*/ ( /*<<int64.ml:103:13>>*/ unsigned_div
+                 /*<<int64.ml:103:13>>*/ (n, d),
+               d)) /*<<int64.ml:103:34>>*/ ;
     /*<<int64.ml:103:34>>*/ }
    function seeded_hash(seed, x){
      /*<<int64.ml:107:25>>*/ return  /*<<int64.ml:107:25>>*/ caml_hash
@@ -10526,7 +11020,10 @@
      /*<<nativeint.ml:87:2>>*/ if
      ( /*<<nativeint.ml:87:5>>*/ caml_lessthan
         /*<<nativeint.ml:87:5>>*/ (d, 0))
-      /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<nativeint.ml:92:41>>*/ ;
+      /*<<nativeint.ml:88:7>>*/ return  /*<<nativeint.ml:88:7>>*/ unsigned_lt
+               /*<<nativeint.ml:88:7>>*/ (n, d)
+             ? zero
+             : one /*<<nativeint.ml:92:41>>*/ ;
     var
      q =
         /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
@@ -10537,13 +11034,18 @@
        -
          /*<<nativeint.ml:91:18>>*/ caml_mul /*<<nativeint.ml:91:18>>*/ (q, d)
        | 0;
-     /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
+     /*<<nativeint.ml:92:7>>*/ return  /*<<nativeint.ml:92:7>>*/ unsigned_lt
+              /*<<nativeint.ml:92:7>>*/ (r, d)
+            ? q
+            : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
     /*<<nativeint.ml:92:41>>*/ }
    function unsigned_rem(n, d){
      /*<<nativeint.ml:95:2>>*/ return n
            -
              /*<<nativeint.ml:95:8>>*/ caml_mul
-              /*<<nativeint.ml:95:8>>*/ (unsigned_div(n, d), d)
+              /*<<nativeint.ml:95:8>>*/ ( /*<<nativeint.ml:95:13>>*/ unsigned_div
+                /*<<nativeint.ml:95:13>>*/ (n, d),
+              d)
            | 0 /*<<nativeint.ml:95:2>>*/ ;
     /*<<nativeint.ml:95:34>>*/ }
    function seeded_hash(seed, x){
@@ -10754,8 +11256,8 @@
             _f_] /*<<lexing.ml:148:2>>*/ ;
     /*<<lexing.ml:160:3>>*/ }
    function from_channel(with_positions, ic){
-     /*<<lexing.ml:163:2>>*/ return from_function
-            (with_positions,
+     /*<<lexing.ml:163:2>>*/ return  /*<<lexing.ml:163:32>>*/ from_function
+             /*<<lexing.ml:163:32>>*/ (with_positions,
              function(buf, n){
                /*<<lexing.ml:163:46>>*/ return  /*<<lexing.ml:163:46>>*/ caml_call4
                        /*<<lexing.ml:163:46>>*/ (Stdlib[84], ic, buf, 0, n) /*<<lexing.ml:163:62>>*/ ;
@@ -11043,9 +11545,17 @@
           /*<<parsing.ml:139:8>>*/ throw  /*<<parsing.ml:139:8>>*/ caml_maybe_attach_backtrace
                  /*<<parsing.ml:139:8>>*/ (Parse_error, 1);
         case 2:
-          /*<<parsing.ml:148:8>>*/ grow_stacks(0); cmd = 2; arg = 0; break;
+          /*<<parsing.ml:148:8>>*/  /*<<parsing.ml:148:8>>*/ grow_stacks
+           /*<<parsing.ml:148:8>>*/ (0);
+         cmd = 2;
+         arg = 0;
+         break;
         case 3:
-          /*<<parsing.ml:150:8>>*/ grow_stacks(0); cmd = 3; arg = 0; break;
+          /*<<parsing.ml:150:8>>*/  /*<<parsing.ml:150:8>>*/ grow_stacks
+           /*<<parsing.ml:150:8>>*/ (0);
+         cmd = 3;
+         arg = 0;
+         break;
         case 4:
          try{
           var
@@ -11151,16 +11661,24 @@
      /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_] /*<<parsing.ml:202:20>>*/ ;
     /*<<parsing.ml:202:69>>*/ }
    function symbol_start(param){
-     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4] /*<<parsing.ml:204:22>>*/ ;
+     /*<<parsing.ml:204:22>>*/ return  /*<<parsing.ml:204:22>>*/ symbol_start_pos
+              /*<<parsing.ml:204:22>>*/ (0)
+            [4] /*<<parsing.ml:204:22>>*/ ;
     /*<<parsing.ml:204:52>>*/ }
    function symbol_end(param){
-     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4] /*<<parsing.ml:205:20>>*/ ;
+     /*<<parsing.ml:205:20>>*/ return  /*<<parsing.ml:205:20>>*/ symbol_end_pos
+              /*<<parsing.ml:205:20>>*/ (0)
+            [4] /*<<parsing.ml:205:20>>*/ ;
     /*<<parsing.ml:205:48>>*/ }
    function rhs_start(n){
-     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4] /*<<parsing.ml:206:18>>*/ ;
+     /*<<parsing.ml:206:18>>*/ return  /*<<parsing.ml:206:18>>*/ rhs_start_pos
+              /*<<parsing.ml:206:18>>*/ (n)
+            [4] /*<<parsing.ml:206:18>>*/ ;
     /*<<parsing.ml:206:44>>*/ }
    function rhs_end(n){
-     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4] /*<<parsing.ml:207:16>>*/ ;
+     /*<<parsing.ml:207:16>>*/ return  /*<<parsing.ml:207:16>>*/ rhs_end_pos
+              /*<<parsing.ml:207:16>>*/ (n)
+            [4] /*<<parsing.ml:207:16>>*/ ;
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
      /*<<parsing.ml:210:2>>*/ return  /*<<parsing.ml:210:2>>*/ caml_call1
@@ -11261,9 +11779,15 @@
            lr = l[3],
            lv = l[2],
            ll = l[1],
-           _T_ =  /*<<set.ml:107:28>>*/ height(lr);
-          if(_T_ <= height(ll))
-            /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r)) /*<<set.ml:128:62>>*/ ;
+           _T_ =
+              /*<<set.ml:107:28>>*/  /*<<set.ml:107:28>>*/ height
+               /*<<set.ml:107:28>>*/ (lr);
+          if(_T_ <=  /*<<set.ml:107:15>>*/ height /*<<set.ml:107:15>>*/ (ll))
+            /*<<set.ml:108:27>>*/ return  /*<<set.ml:108:27>>*/ create
+                    /*<<set.ml:108:27>>*/ (ll,
+                    lv,
+                     /*<<set.ml:108:27>>*/ create
+                      /*<<set.ml:108:27>>*/ (lr, v, r)) /*<<set.ml:128:62>>*/ ;
           if(! lr)
             /*<<set.ml:111:25>>*/ return  /*<<set.ml:111:25>>*/ caml_call1
                     /*<<set.ml:111:25>>*/ (Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
@@ -11271,8 +11795,14 @@
            lrr = lr[3],
            lrv = lr[2],
            lrl = lr[1],
-           _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
-           /*<<set.ml:113:48>>*/ return create(create(ll, lv, lrl), lrv, _U_) /*<<set.ml:128:62>>*/ ;
+           _U_ =
+              /*<<set.ml:113:48>>*/  /*<<set.ml:113:48>>*/ create
+               /*<<set.ml:113:48>>*/ (lrr, v, r);
+           /*<<set.ml:113:48>>*/ return  /*<<set.ml:113:48>>*/ create
+                   /*<<set.ml:113:48>>*/ ( /*<<set.ml:113:25>>*/ create
+                     /*<<set.ml:113:25>>*/ (ll, lv, lrl),
+                   lrv,
+                   _U_) /*<<set.ml:128:62>>*/ ;
          }
          if((hl + 2 | 0) >= hr){
           var _X_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
@@ -11285,9 +11815,15 @@
           rr = r[3],
           rv = r[2],
           rl = r[1],
-          _V_ =  /*<<set.ml:119:28>>*/ height(rl);
-         if(_V_ <= height(rr))
-           /*<<set.ml:120:14>>*/ return create(create(l, v, rl), rv, rr) /*<<set.ml:128:62>>*/ ;
+          _V_ =
+             /*<<set.ml:119:28>>*/  /*<<set.ml:119:28>>*/ height
+              /*<<set.ml:119:28>>*/ (rl);
+         if(_V_ <=  /*<<set.ml:119:15>>*/ height /*<<set.ml:119:15>>*/ (rr))
+           /*<<set.ml:120:14>>*/ return  /*<<set.ml:120:14>>*/ create
+                   /*<<set.ml:120:14>>*/ ( /*<<set.ml:120:21>>*/ create
+                     /*<<set.ml:120:21>>*/ (l, v, rl),
+                   rv,
+                   rr) /*<<set.ml:128:62>>*/ ;
          if(! rl)
            /*<<set.ml:123:25>>*/ return  /*<<set.ml:123:25>>*/ caml_call1
                    /*<<set.ml:123:25>>*/ (Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
@@ -11295,8 +11831,14 @@
           rlr = rl[3],
           rlv = rl[2],
           rll = rl[1],
-          _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
-          /*<<set.ml:125:46>>*/ return create(create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
+          _W_ =
+             /*<<set.ml:125:46>>*/  /*<<set.ml:125:46>>*/ create
+              /*<<set.ml:125:46>>*/ (rlr, rv, rr);
+          /*<<set.ml:125:46>>*/ return  /*<<set.ml:125:46>>*/ create
+                  /*<<set.ml:125:46>>*/ ( /*<<set.ml:125:25>>*/ create
+                    /*<<set.ml:125:25>>*/ (l, v, rll),
+                  rlv,
+                  _W_) /*<<set.ml:128:62>>*/ ;
          /*<<set.ml:128:62>>*/ }
         function add(x, t){
           /*<<set.ml:132:16>>*/ if(! t)
@@ -11311,32 +11853,55 @@
           /*<<set.ml:136:10>>*/ if(0 === c)
            /*<<set.ml:136:24>>*/ return t /*<<set.ml:136:24>>*/ ;
          if(0 <= c){
-          var rr =  /*<<set.ml:141:21>>*/ add(x, r);
-          return r === rr ? t : bal(l, v, rr) /*<<set.ml:142:45>>*/ ;
+          var
+           rr =
+              /*<<set.ml:141:21>>*/  /*<<set.ml:141:21>>*/ add
+               /*<<set.ml:141:21>>*/ (x, r);
+          return r === rr
+                  ? t
+                  :  /*<<set.ml:142:35>>*/ bal
+                     /*<<set.ml:142:35>>*/ (l, v, rr) /*<<set.ml:142:45>>*/ ;
          }
-         var ll =  /*<<set.ml:138:21>>*/ add(x, l);
-         return l === ll ? t : bal(ll, v, r) /*<<set.ml:142:45>>*/ ;
+         var
+          ll =
+             /*<<set.ml:138:21>>*/  /*<<set.ml:138:21>>*/ add
+              /*<<set.ml:138:21>>*/ (x, l);
+         return l === ll
+                 ? t
+                 :  /*<<set.ml:139:35>>*/ bal /*<<set.ml:139:35>>*/ (ll, v, r) /*<<set.ml:142:45>>*/ ;
          /*<<set.ml:142:45>>*/ }
         function singleton(x){
           /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1] /*<<set.ml:144:26>>*/ ;
          /*<<set.ml:144:54>>*/ }
         function add_min_element(x, param){
           /*<<set.ml:153:28>>*/ if(! param)
-           /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:156:37>>*/ ;
+           /*<<set.ml:154:17>>*/ return  /*<<set.ml:154:17>>*/ singleton
+                   /*<<set.ml:154:17>>*/ (x) /*<<set.ml:156:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:156:8>>*/ return bal(add_min_element(x, l), v, r) /*<<set.ml:156:37>>*/ ;
+          /*<<set.ml:156:8>>*/ return  /*<<set.ml:156:8>>*/ bal
+                  /*<<set.ml:156:8>>*/ ( /*<<set.ml:156:12>>*/ add_min_element
+                    /*<<set.ml:156:12>>*/ (x, l),
+                  v,
+                  r) /*<<set.ml:156:37>>*/ ;
          /*<<set.ml:156:37>>*/ }
         function add_max_element(x, param){
           /*<<set.ml:158:28>>*/ if(! param)
-           /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:161:37>>*/ ;
+           /*<<set.ml:159:17>>*/ return  /*<<set.ml:159:17>>*/ singleton
+                   /*<<set.ml:159:17>>*/ (x) /*<<set.ml:161:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
+          /*<<set.ml:161:16>>*/ return  /*<<set.ml:161:16>>*/ bal
+                  /*<<set.ml:161:16>>*/ (l,
+                  v,
+                   /*<<set.ml:161:16>>*/ add_max_element
+                    /*<<set.ml:161:16>>*/ (x, r)) /*<<set.ml:161:37>>*/ ;
          /*<<set.ml:161:37>>*/ }
         function join(l, v, r){
           /*<<set.ml:167:6>>*/ if(! l)
-           /*<<set.ml:168:22>>*/ return add_min_element(v, r) /*<<set.ml:173:22>>*/ ;
+           /*<<set.ml:168:22>>*/ return  /*<<set.ml:168:22>>*/ add_min_element
+                   /*<<set.ml:168:22>>*/ (v, r) /*<<set.ml:173:22>>*/ ;
          if(! r)
-           /*<<set.ml:169:22>>*/ return add_max_element(v, l) /*<<set.ml:173:22>>*/ ;
+           /*<<set.ml:169:22>>*/ return  /*<<set.ml:169:22>>*/ add_max_element
+                   /*<<set.ml:169:22>>*/ (v, l) /*<<set.ml:173:22>>*/ ;
          var
           rh = r[4],
           rr = r[3],
@@ -11347,13 +11912,21 @@
           lv = l[2],
           ll = l[1];
          return (rh + 2 | 0) < lh
-                 ? bal(ll, lv, join(lr, v, r))
+                 ?  /*<<set.ml:171:40>>*/ bal
+                    /*<<set.ml:171:40>>*/ (ll,
+                    lv,
+                     /*<<set.ml:171:40>>*/ join /*<<set.ml:171:40>>*/ (lr, v, r))
                  : (lh
                    + 2
                    | 0)
                    < rh
-                   ? bal(join(l, v, rl), rv, rr)
-                   : create(l, v, r) /*<<set.ml:173:22>>*/ ;
+                   ?  /*<<set.ml:172:30>>*/ bal
+                      /*<<set.ml:172:30>>*/ ( /*<<set.ml:172:34>>*/ join
+                        /*<<set.ml:172:34>>*/ (l, v, rl),
+                      rv,
+                      rr)
+                   :  /*<<set.ml:173:10>>*/ create
+                      /*<<set.ml:173:10>>*/ (l, v, r) /*<<set.ml:173:22>>*/ ;
          /*<<set.ml:173:22>>*/ }
         function min_elt(param){
          var param$0 = param;
@@ -11416,7 +11989,11 @@
          var l = param[1];
          if(l){
           var r = param[3], v = param[2];
-           /*<<set.ml:202:25>>*/ return bal(remove_min_elt(l), v, r) /*<<set.ml:202:51>>*/ ;
+           /*<<set.ml:202:25>>*/ return  /*<<set.ml:202:25>>*/ bal
+                   /*<<set.ml:202:25>>*/ ( /*<<set.ml:202:29>>*/ remove_min_elt
+                     /*<<set.ml:202:29>>*/ (l),
+                   v,
+                   r) /*<<set.ml:202:51>>*/ ;
          }
          var r$0 = param[3];
           /*<<set.ml:201:28>>*/ return r$0 /*<<set.ml:201:28>>*/ ;
@@ -11425,8 +12002,14 @@
           /*<<set.ml:219:6>>*/ if(! t1)
            /*<<set.ml:220:22>>*/ return t2 /*<<set.ml:220:22>>*/ ;
          if(! t2)  /*<<set.ml:221:22>>*/ return t1 /*<<set.ml:221:22>>*/ ;
-         var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
-          /*<<set.ml:222:39>>*/ return join(t1, min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
+         var
+          _S_ =
+             /*<<set.ml:222:39>>*/  /*<<set.ml:222:39>>*/ remove_min_elt
+              /*<<set.ml:222:39>>*/ (t2);
+          /*<<set.ml:222:39>>*/ return  /*<<set.ml:222:39>>*/ join
+                  /*<<set.ml:222:39>>*/ (t1,
+                   /*<<set.ml:222:26>>*/ min_elt /*<<set.ml:222:26>>*/ (t2),
+                  _S_) /*<<set.ml:222:58>>*/ ;
          /*<<set.ml:222:58>>*/ }
         function split(x, param){
           /*<<set.ml:230:18>>*/ if(! param)
@@ -11442,18 +12025,28 @@
            /*<<set.ml:235:24>>*/ return [0, l, 1, r] /*<<set.ml:235:24>>*/ ;
          if(0 <= c){
           var
-           match =  /*<<set.ml:239:33>>*/ split(x, r),
+           match =
+              /*<<set.ml:239:33>>*/  /*<<set.ml:239:33>>*/ split
+               /*<<set.ml:239:33>>*/ (x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
-           /*<<set.ml:239:46>>*/ return [0, join(l, v, lr), pres, rr] /*<<set.ml:239:46>>*/ ;
+           /*<<set.ml:239:46>>*/ return [0,
+                   /*<<set.ml:239:47>>*/ join /*<<set.ml:239:47>>*/ (l, v, lr),
+                  pres,
+                  rr] /*<<set.ml:239:46>>*/ ;
          }
          var
-          match$0 =  /*<<set.ml:237:33>>*/ split(x, l),
+          match$0 =
+             /*<<set.ml:237:33>>*/  /*<<set.ml:237:33>>*/ split
+              /*<<set.ml:237:33>>*/ (x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<set.ml:237:46>>*/ return [0, ll, pres$0, join(rl, v, r)] /*<<set.ml:237:46>>*/ ;
+          /*<<set.ml:237:46>>*/ return [0,
+                 ll,
+                 pres$0,
+                  /*<<set.ml:237:57>>*/ join /*<<set.ml:237:57>>*/ (rl, v, r)] /*<<set.ml:237:46>>*/ ;
          /*<<set.ml:239:69>>*/ }
         var empty = 0;
         function is_empty(param){
@@ -11490,15 +12083,33 @@
           /*<<set.ml:257:10>>*/ if(0 === c){
           if(! t1)  /*<<set.ml:210:22>>*/ return t2 /*<<set.ml:210:22>>*/ ;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1 /*<<set.ml:211:22>>*/ ;
-          var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
-           /*<<set.ml:212:38>>*/ return bal(t1, min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
+          var
+           _Q_ =
+              /*<<set.ml:212:38>>*/  /*<<set.ml:212:38>>*/ remove_min_elt
+               /*<<set.ml:212:38>>*/ (t2);
+           /*<<set.ml:212:38>>*/ return  /*<<set.ml:212:38>>*/ bal
+                   /*<<set.ml:212:38>>*/ (t1,
+                    /*<<set.ml:212:25>>*/ min_elt /*<<set.ml:212:25>>*/ (t2),
+                   _Q_) /*<<set.ml:266:29>>*/ ;
          }
          if(0 <= c){
-          var rr =  /*<<set.ml:264:23>>*/ remove(x, t2);
-          return t2 === rr ? t : bal(t1, v, rr) /*<<set.ml:266:29>>*/ ;
+          var
+           rr =
+              /*<<set.ml:264:23>>*/  /*<<set.ml:264:23>>*/ remove
+               /*<<set.ml:264:23>>*/ (x, t2);
+          return t2 === rr
+                  ? t
+                  :  /*<<set.ml:266:19>>*/ bal
+                     /*<<set.ml:266:19>>*/ (t1, v, rr) /*<<set.ml:266:29>>*/ ;
          }
-         var ll =  /*<<set.ml:260:23>>*/ remove(x, t1);
-         return t1 === ll ? t : bal(ll, v, t2) /*<<set.ml:266:29>>*/ ;
+         var
+          ll =
+             /*<<set.ml:260:23>>*/  /*<<set.ml:260:23>>*/ remove
+              /*<<set.ml:260:23>>*/ (x, t1);
+         return t1 === ll
+                 ? t
+                 :  /*<<set.ml:262:19>>*/ bal
+                    /*<<set.ml:262:19>>*/ (ll, v, t2) /*<<set.ml:266:29>>*/ ;
          /*<<set.ml:266:29>>*/ }
         function union(s1, s2){
           /*<<set.ml:269:6>>*/ if(! s1)
@@ -11515,22 +12126,40 @@
           l1 = s1[1];
          if(h2 <= h1){
           if(1 === h2)
-            /*<<set.ml:274:27>>*/ return add(v2, s1) /*<<set.ml:282:15>>*/ ;
+            /*<<set.ml:274:27>>*/ return  /*<<set.ml:274:27>>*/ add
+                    /*<<set.ml:274:27>>*/ (v2, s1) /*<<set.ml:282:15>>*/ ;
           var
-           match =  /*<<set.ml:275:32>>*/ split(v1, s2),
+           match =
+              /*<<set.ml:275:32>>*/  /*<<set.ml:275:32>>*/ split
+               /*<<set.ml:275:32>>*/ (v1, s2),
            r2$0 = match[3],
            l2$0 = match[1],
-           _O_ =  /*<<set.ml:276:36>>*/ union(r1, r2$0);
-           /*<<set.ml:276:36>>*/ return join(union(l1, l2$0), v1, _O_) /*<<set.ml:282:15>>*/ ;
+           _O_ =
+              /*<<set.ml:276:36>>*/  /*<<set.ml:276:36>>*/ union
+               /*<<set.ml:276:36>>*/ (r1, r2$0);
+           /*<<set.ml:276:36>>*/ return  /*<<set.ml:276:36>>*/ join
+                   /*<<set.ml:276:36>>*/ ( /*<<set.ml:276:19>>*/ union
+                     /*<<set.ml:276:19>>*/ (l1, l2$0),
+                   v1,
+                   _O_) /*<<set.ml:282:15>>*/ ;
          }
          if(1 === h1)
-           /*<<set.ml:279:27>>*/ return add(v1, s2) /*<<set.ml:282:15>>*/ ;
+           /*<<set.ml:279:27>>*/ return  /*<<set.ml:279:27>>*/ add
+                   /*<<set.ml:279:27>>*/ (v1, s2) /*<<set.ml:282:15>>*/ ;
          var
-          match$0 =  /*<<set.ml:280:32>>*/ split(v2, s1),
+          match$0 =
+             /*<<set.ml:280:32>>*/  /*<<set.ml:280:32>>*/ split
+              /*<<set.ml:280:32>>*/ (v2, s1),
           r1$0 = match$0[3],
           l1$0 = match$0[1],
-          _P_ =  /*<<set.ml:281:36>>*/ union(r1$0, r2);
-          /*<<set.ml:281:36>>*/ return join(union(l1$0, l2), v2, _P_) /*<<set.ml:282:15>>*/ ;
+          _P_ =
+             /*<<set.ml:281:36>>*/  /*<<set.ml:281:36>>*/ union
+              /*<<set.ml:281:36>>*/ (r1$0, r2);
+          /*<<set.ml:281:36>>*/ return  /*<<set.ml:281:36>>*/ join
+                  /*<<set.ml:281:36>>*/ ( /*<<set.ml:281:19>>*/ union
+                    /*<<set.ml:281:19>>*/ (l1$0, l2),
+                  v2,
+                  _P_) /*<<set.ml:282:15>>*/ ;
          /*<<set.ml:282:15>>*/ }
         function inter(s1, s2){
           /*<<set.ml:285:6>>*/ if(! s1)
@@ -11540,14 +12169,31 @@
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
-          _L_ =  /*<<set.ml:289:16>>*/ split(v1, s2),
+          _L_ =
+             /*<<set.ml:289:16>>*/  /*<<set.ml:289:16>>*/ split
+              /*<<set.ml:289:16>>*/ (v1, s2),
           l2 = _L_[1];
          if(_L_[2]){
-          var r2 = _L_[3], _M_ =  /*<<set.ml:293:36>>*/ inter(r1, r2);
-           /*<<set.ml:293:36>>*/ return join(inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
+          var
+           r2 = _L_[3],
+           _M_ =
+              /*<<set.ml:293:36>>*/  /*<<set.ml:293:36>>*/ inter
+               /*<<set.ml:293:36>>*/ (r1, r2);
+           /*<<set.ml:293:36>>*/ return  /*<<set.ml:293:36>>*/ join
+                   /*<<set.ml:293:36>>*/ ( /*<<set.ml:293:19>>*/ inter
+                     /*<<set.ml:293:19>>*/ (l1, l2),
+                   v1,
+                   _M_) /*<<set.ml:293:49>>*/ ;
          }
-         var r2$0 = _L_[3], _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
-          /*<<set.ml:291:35>>*/ return concat(inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
+         var
+          r2$0 = _L_[3],
+          _N_ =
+             /*<<set.ml:291:35>>*/  /*<<set.ml:291:35>>*/ inter
+              /*<<set.ml:291:35>>*/ (r1, r2$0);
+          /*<<set.ml:291:35>>*/ return  /*<<set.ml:291:35>>*/ concat
+                  /*<<set.ml:291:35>>*/ ( /*<<set.ml:291:21>>*/ inter
+                    /*<<set.ml:291:21>>*/ (l1, l2),
+                  _N_) /*<<set.ml:293:49>>*/ ;
          /*<<set.ml:293:49>>*/ }
         function split_bis(x, param){
           /*<<set.ml:303:22>>*/ if(! param)
@@ -11566,18 +12212,30 @@
           /*<<set.ml:308:10>>*/ if(0 === c)
            /*<<set.ml:308:24>>*/ return 0 /*<<set.ml:308:24>>*/ ;
          if(0 <= c){
-          var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
+          var
+           match =
+              /*<<set.ml:314:18>>*/  /*<<set.ml:314:18>>*/ split_bis
+               /*<<set.ml:314:18>>*/ (x, r);
           if(! match)  /*<<set.ml:315:23>>*/ return 0 /*<<set.ml:315:23>>*/ ;
           var rr = match[2], lr = match[1];
-           /*<<set.ml:316:35>>*/ return [0, join(l, v, lr), rr] /*<<set.ml:316:35>>*/ ;
+           /*<<set.ml:316:35>>*/ return [0,
+                   /*<<set.ml:316:45>>*/ join /*<<set.ml:316:45>>*/ (l, v, lr),
+                  rr] /*<<set.ml:316:35>>*/ ;
          }
-         var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
+         var
+          match$0 =
+             /*<<set.ml:310:18>>*/  /*<<set.ml:310:18>>*/ split_bis
+              /*<<set.ml:310:18>>*/ (x, l);
          if(! match$0)  /*<<set.ml:311:23>>*/ return 0 /*<<set.ml:311:23>>*/ ;
          var rl = match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
-                   /*<<set.ml:312:60>>*/ return join(rl(0), v, r) /*<<set.ml:312:76>>*/ ;
+                   /*<<set.ml:312:60>>*/ return  /*<<set.ml:312:35>>*/ join
+                           /*<<set.ml:312:35>>*/ ( /*<<set.ml:312:65>>*/ rl
+                             /*<<set.ml:312:65>>*/ (0),
+                           v,
+                           r) /*<<set.ml:312:76>>*/ ;
                   /*<<set.ml:312:76>>*/ }] /*<<set.ml:312:35>>*/ ;
          /*<<set.ml:316:61>>*/ }
         function disjoint(s1, s2){
@@ -11587,15 +12245,23 @@
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
            if(s1$0 === s2$0)
              /*<<set.ml:322:27>>*/ return 0 /*<<set.ml:322:27>>*/ ;
-           var match =  /*<<set.ml:323:21>>*/ split_bis(v1, s2$0);
+           var
+            match =
+               /*<<set.ml:323:21>>*/  /*<<set.ml:323:21>>*/ split_bis
+                /*<<set.ml:323:21>>*/ (v1, s2$0);
            if(! match)  /*<<set.ml:325:23>>*/ return 0 /*<<set.ml:325:23>>*/ ;
            var
             r2 = match[2],
             l2 = match[1],
-            _K_ =  /*<<set.ml:324:34>>*/ disjoint(l1, l2);
+            _K_ =
+               /*<<set.ml:324:34>>*/  /*<<set.ml:324:34>>*/ disjoint
+                /*<<set.ml:324:34>>*/ (l1, l2);
             /*<<set.ml:324:34>>*/ if(! _K_)
              /*<<set.ml:324:34>>*/ return _K_ /*<<set.ml:324:34>>*/ ;
-           var s2$1 =  /*<<set.ml:324:64>>*/ r2(0);
+           var
+            s2$1 =
+               /*<<set.ml:324:64>>*/  /*<<set.ml:324:64>>*/ r2
+                /*<<set.ml:324:64>>*/ (0);
            s1$0 = r1;
            s2$0 = s2$1;
            continue;
@@ -11611,14 +12277,31 @@
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
-          _H_ =  /*<<set.ml:332:16>>*/ split(v1, s2),
+          _H_ =
+             /*<<set.ml:332:16>>*/  /*<<set.ml:332:16>>*/ split
+              /*<<set.ml:332:16>>*/ (v1, s2),
           l2 = _H_[1];
          if(_H_[2]){
-          var r2 = _H_[3], _I_ =  /*<<set.ml:336:34>>*/ diff(r1, r2);
-           /*<<set.ml:336:34>>*/ return concat(diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
+          var
+           r2 = _H_[3],
+           _I_ =
+              /*<<set.ml:336:34>>*/  /*<<set.ml:336:34>>*/ diff
+               /*<<set.ml:336:34>>*/ (r1, r2);
+           /*<<set.ml:336:34>>*/ return  /*<<set.ml:336:34>>*/ concat
+                   /*<<set.ml:336:34>>*/ ( /*<<set.ml:336:21>>*/ diff
+                     /*<<set.ml:336:21>>*/ (l1, l2),
+                   _I_) /*<<set.ml:336:46>>*/ ;
          }
-         var r2$0 = _H_[3], _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
-          /*<<set.ml:334:35>>*/ return join(diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
+         var
+          r2$0 = _H_[3],
+          _J_ =
+             /*<<set.ml:334:35>>*/  /*<<set.ml:334:35>>*/ diff
+              /*<<set.ml:334:35>>*/ (r1, r2$0);
+          /*<<set.ml:334:35>>*/ return  /*<<set.ml:334:35>>*/ join
+                  /*<<set.ml:334:35>>*/ ( /*<<set.ml:334:19>>*/ diff
+                    /*<<set.ml:334:19>>*/ (l1, l2),
+                  v1,
+                  _J_) /*<<set.ml:336:46>>*/ ;
          /*<<set.ml:336:46>>*/ }
         function cons_enum(s, e){
          var s$0 = s, e$0 = e;
@@ -11635,8 +12318,12 @@
          /*<<set.ml:343:52>>*/ }
         function compare(s1, s2){
          var
-          e2$2 =  /*<<set.ml:357:37>>*/ cons_enum(s2, 0),
-          e1$2 =  /*<<set.ml:357:18>>*/ cons_enum(s1, 0),
+          e2$2 =
+             /*<<set.ml:357:37>>*/  /*<<set.ml:357:37>>*/ cons_enum
+              /*<<set.ml:357:37>>*/ (s2, 0),
+          e1$2 =
+             /*<<set.ml:357:18>>*/  /*<<set.ml:357:18>>*/ cons_enum
+              /*<<set.ml:357:18>>*/ (s1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<set.ml:346:8>>*/ for(;;){
@@ -11655,14 +12342,22 @@
            /*<<set.ml:352:10>>*/ if(0 !== c)
             /*<<set.ml:353:15>>*/ return c /*<<set.ml:353:15>>*/ ;
           var
-           e2$1 =  /*<<set.ml:354:45>>*/ cons_enum(r2, e2$0),
-           e1$1 =  /*<<set.ml:354:27>>*/ cons_enum(r1, e1$0);
+           e2$1 =
+              /*<<set.ml:354:45>>*/  /*<<set.ml:354:45>>*/ cons_enum
+               /*<<set.ml:354:45>>*/ (r2, e2$0),
+           e1$1 =
+              /*<<set.ml:354:27>>*/  /*<<set.ml:354:27>>*/ cons_enum
+               /*<<set.ml:354:27>>*/ (r1, e1$0);
           e1 = e1$1;
           e2 = e2$1;
          }
          /*<<set.ml:357:55>>*/ }
         function equal(s1, s2){
-          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0;
+          /*<<set.ml:360:6>>*/ return 0
+                 ===
+                   /*<<set.ml:360:6>>*/ compare /*<<set.ml:360:6>>*/ (s1, s2)
+                 ? 1
+                 : 0;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
          var s1$0 = s1, s2$0 = s2;
@@ -11680,20 +12375,29 @@
               /*<<set.ml:369:18>>*/  /*<<set.ml:369:18>>*/ caml_call2
                /*<<set.ml:369:18>>*/ (Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
-           var _E_ =  /*<<set.ml:371:12>>*/ subset(l1, l2);
+           var
+            _E_ =
+               /*<<set.ml:371:12>>*/  /*<<set.ml:371:12>>*/ subset
+                /*<<set.ml:371:12>>*/ (l1, l2);
             /*<<set.ml:371:12>>*/ if(! _E_)
              /*<<set.ml:371:12>>*/ return _E_ /*<<set.ml:371:12>>*/ ;
            s1$0 = r1;
            s2$0 = r2;
           }
           else if(0 <= c){
-           var _F_ =  /*<<set.ml:375:12>>*/ subset([0, 0, v1, r1, 0], r2);
+           var
+            _F_ =
+               /*<<set.ml:375:12>>*/  /*<<set.ml:375:12>>*/ subset
+                /*<<set.ml:375:12>>*/ ([0, 0, v1, r1, 0], r2);
             /*<<set.ml:375:12>>*/ if(! _F_)
              /*<<set.ml:375:12>>*/ return _F_ /*<<set.ml:375:12>>*/ ;
            s1$0 = l1;
           }
           else{
-           var _G_ =  /*<<set.ml:373:12>>*/ subset([0, l1, v1, 0, 0], l2);
+           var
+            _G_ =
+               /*<<set.ml:373:12>>*/  /*<<set.ml:373:12>>*/ subset
+                /*<<set.ml:373:12>>*/ ([0, l1, v1, 0, 0], l2);
             /*<<set.ml:373:12>>*/ if(! _G_)
              /*<<set.ml:373:12>>*/ return _G_ /*<<set.ml:373:12>>*/ ;
            s1$0 = r1;
@@ -11706,7 +12410,8 @@
           if(! param$0)
             /*<<set.ml:378:17>>*/ return 0 /*<<set.ml:378:17>>*/ ;
           var r = param$0[3], v = param$0[2], l = param$0[1];
-           /*<<set.ml:379:25>>*/ iter(f, l);
+           /*<<set.ml:379:25>>*/  /*<<set.ml:379:25>>*/ iter
+            /*<<set.ml:379:25>>*/ (f, l);
            /*<<set.ml:379:35>>*/  /*<<set.ml:379:35>>*/ caml_call1
             /*<<set.ml:379:35>>*/ (f, v);
           param$0 = r;
@@ -11723,7 +12428,10 @@
            l = s$0[1],
            accu$1 =
               /*<<set.ml:384:34>>*/  /*<<set.ml:384:34>>*/ caml_call2
-               /*<<set.ml:384:34>>*/ (f, v, fold(f, l, accu$0));
+               /*<<set.ml:384:34>>*/ (f,
+               v,
+                /*<<set.ml:384:39>>*/ fold
+                 /*<<set.ml:384:39>>*/ (f, l, accu$0));
           s$0 = r;
           accu$0 = accu$1;
          }
@@ -11741,7 +12449,10 @@
               /*<<set.ml:388:25>>*/  /*<<set.ml:388:25>>*/ caml_call1
                /*<<set.ml:388:25>>*/ (p, v);
            /*<<set.ml:388:25>>*/ if(_B_){
-           var _C_ =  /*<<set.ml:388:32>>*/ for_all(p, l);
+           var
+            _C_ =
+               /*<<set.ml:388:32>>*/  /*<<set.ml:388:32>>*/ for_all
+                /*<<set.ml:388:32>>*/ (p, l);
             /*<<set.ml:388:32>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
@@ -11765,7 +12476,10 @@
            /*<<set.ml:392:25>>*/ if(_y_)
            var _z_ = _y_;
           else{
-           var _A_ =  /*<<set.ml:392:32>>*/ exists(p, l);
+           var
+            _A_ =
+               /*<<set.ml:392:32>>*/  /*<<set.ml:392:32>>*/ exists
+                /*<<set.ml:392:32>>*/ (p, l);
             /*<<set.ml:392:32>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
@@ -11779,16 +12493,22 @@
           r = t[3],
           v = t[2],
           l = t[1],
-          l$0 =  /*<<set.ml:398:19>>*/ filter(p, l),
+          l$0 =
+             /*<<set.ml:398:19>>*/  /*<<set.ml:398:19>>*/ filter
+              /*<<set.ml:398:19>>*/ (p, l),
           pv =
              /*<<set.ml:399:19>>*/  /*<<set.ml:399:19>>*/ caml_call1
               /*<<set.ml:399:19>>*/ (p, v),
-          r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
+          r$0 =
+             /*<<set.ml:400:19>>*/  /*<<set.ml:400:19>>*/ filter
+              /*<<set.ml:400:19>>*/ (p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
-           /*<<set.ml:403:15>>*/ return concat(l$0, r$0) /*<<set.ml:403:27>>*/ ;
+           /*<<set.ml:403:15>>*/ return  /*<<set.ml:403:15>>*/ concat
+                   /*<<set.ml:403:15>>*/ (l$0, r$0) /*<<set.ml:403:27>>*/ ;
          if(l === l$0 && r === r$0)
            /*<<set.ml:402:35>>*/ return t /*<<set.ml:402:35>>*/ ;
-          /*<<set.ml:402:42>>*/ return join(l$0, v, r$0) /*<<set.ml:403:27>>*/ ;
+          /*<<set.ml:402:42>>*/ return  /*<<set.ml:402:42>>*/ join
+                  /*<<set.ml:402:42>>*/ (l$0, v, r$0) /*<<set.ml:403:27>>*/ ;
          /*<<set.ml:403:27>>*/ }
         function partition(p, param){
           /*<<set.ml:405:22>>*/ if(! param)
@@ -11797,21 +12517,36 @@
           r = param[3],
           v = param[2],
           l = param[1],
-          match =  /*<<set.ml:409:25>>*/ partition(p, l),
+          match =
+             /*<<set.ml:409:25>>*/  /*<<set.ml:409:25>>*/ partition
+              /*<<set.ml:409:25>>*/ (p, l),
           lf = match[2],
           lt = match[1],
           pv =
              /*<<set.ml:410:19>>*/  /*<<set.ml:410:19>>*/ caml_call1
               /*<<set.ml:410:19>>*/ (p, v),
-          match$0 =  /*<<set.ml:411:25>>*/ partition(p, r),
+          match$0 =
+             /*<<set.ml:411:25>>*/  /*<<set.ml:411:25>>*/ partition
+              /*<<set.ml:411:25>>*/ (p, r),
           rf = match$0[2],
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
-          var _w_ =  /*<<set.ml:413:30>>*/ concat(lf, rf);
-           /*<<set.ml:413:15>>*/ return [0, join(lt, v, rt), _w_] /*<<set.ml:413:15>>*/ ;
+          var
+           _w_ =
+              /*<<set.ml:413:30>>*/  /*<<set.ml:413:30>>*/ concat
+               /*<<set.ml:413:30>>*/ (lf, rf);
+           /*<<set.ml:413:15>>*/ return [0,
+                   /*<<set.ml:413:16>>*/ join
+                    /*<<set.ml:413:16>>*/ (lt, v, rt),
+                  _w_] /*<<set.ml:413:15>>*/ ;
          }
-         var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
-          /*<<set.ml:414:15>>*/ return [0, concat(lt, rt), _x_] /*<<set.ml:414:15>>*/ ;
+         var
+          _x_ =
+             /*<<set.ml:414:30>>*/  /*<<set.ml:414:30>>*/ join
+              /*<<set.ml:414:30>>*/ (lf, v, rf);
+          /*<<set.ml:414:15>>*/ return [0,
+                  /*<<set.ml:414:16>>*/ concat /*<<set.ml:414:16>>*/ (lt, rt),
+                 _x_] /*<<set.ml:414:15>>*/ ;
          /*<<set.ml:414:43>>*/ }
         function cardinal(param){
           /*<<set.ml:416:23>>*/ if(! param)
@@ -11819,8 +12554,13 @@
          var
           r = param[3],
           l = param[1],
-          _v_ =  /*<<set.ml:418:39>>*/ cardinal(r);
-         return (cardinal(l) + 1 | 0) + _v_ | 0;
+          _v_ =
+             /*<<set.ml:418:39>>*/  /*<<set.ml:418:39>>*/ cardinal
+              /*<<set.ml:418:39>>*/ (r);
+         return ( /*<<set.ml:418:22>>*/ cardinal /*<<set.ml:418:22>>*/ (l) + 1
+                | 0)
+                + _v_
+                | 0;
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
          var accu$0 = accu, param$0 = param;
@@ -11831,13 +12571,18 @@
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           accu$1 =  /*<<set.ml:422:38>>*/ [0, v, elements_aux(accu$0, r)];
+           accu$1 =
+              /*<<set.ml:422:38>>*/ [0,
+              v,
+               /*<<set.ml:422:44>>*/ elements_aux
+                /*<<set.ml:422:44>>*/ (accu$0, r)];
           accu$0 = accu$1;
           param$0 = l;
          }
          /*<<set.ml:422:66>>*/ }
         function elements(s){
-          /*<<set.ml:425:6>>*/ return elements_aux(0, s) /*<<set.ml:425:23>>*/ ;
+          /*<<set.ml:425:6>>*/ return  /*<<set.ml:425:6>>*/ elements_aux
+                  /*<<set.ml:425:6>>*/ (0, s) /*<<set.ml:425:23>>*/ ;
          /*<<set.ml:425:23>>*/ }
         function find(x, param){
          var param$0 = param;
@@ -11990,7 +12735,10 @@
          a:
          {
           if(0 !== l){
-           var _u_ =  /*<<set.ml:521:35>>*/ max_elt(l);
+           var
+            _u_ =
+               /*<<set.ml:521:35>>*/  /*<<set.ml:521:35>>*/ max_elt
+                /*<<set.ml:521:35>>*/ (l);
             /*<<set.ml:521:23>>*/ if
             (0
              <=
@@ -11999,7 +12747,10 @@
             break a;
           }
           if(0 !== r){
-           var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
+           var
+            _t_ =
+               /*<<set.ml:522:37>>*/  /*<<set.ml:522:37>>*/ min_elt
+                /*<<set.ml:522:37>>*/ (r);
             /*<<set.ml:522:23>>*/ if
             (0
              <=
@@ -12007,9 +12758,12 @@
                 /*<<set.ml:522:23>>*/ (Ord[1], v, _t_))
             break a;
           }
-           /*<<set.ml:523:11>>*/ return join(l, v, r) /*<<set.ml:524:28>>*/ ;
+           /*<<set.ml:523:11>>*/ return  /*<<set.ml:523:11>>*/ join
+                   /*<<set.ml:523:11>>*/ (l, v, r) /*<<set.ml:524:28>>*/ ;
          }
-          /*<<set.ml:524:19>>*/ return union(l, add(v, r)) /*<<set.ml:524:28>>*/ ;
+          /*<<set.ml:524:19>>*/ return  /*<<set.ml:524:19>>*/ union
+                  /*<<set.ml:524:19>>*/ (l,
+                   /*<<set.ml:524:19>>*/ add /*<<set.ml:524:19>>*/ (v, r)) /*<<set.ml:524:28>>*/ ;
          /*<<set.ml:524:28>>*/ }
         function map(f, t){
           /*<<set.ml:526:16>>*/ if(! t)
@@ -12018,14 +12772,19 @@
           r = t[3],
           v = t[2],
           l = t[1],
-          l$0 =  /*<<set.ml:530:18>>*/ map(f, l),
+          l$0 =
+             /*<<set.ml:530:18>>*/  /*<<set.ml:530:18>>*/ map
+              /*<<set.ml:530:18>>*/ (f, l),
           v$0 =
              /*<<set.ml:531:18>>*/  /*<<set.ml:531:18>>*/ caml_call1
               /*<<set.ml:531:18>>*/ (f, v),
-          r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
+          r$0 =
+             /*<<set.ml:532:18>>*/  /*<<set.ml:532:18>>*/ map
+              /*<<set.ml:532:18>>*/ (f, r);
          if(l === l$0 && v === v$0 && r === r$0)
            /*<<set.ml:533:47>>*/ return t /*<<set.ml:533:47>>*/ ;
-          /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0) /*<<set.ml:534:31>>*/ ;
+          /*<<set.ml:534:14>>*/ return  /*<<set.ml:534:14>>*/ try_join
+                  /*<<set.ml:534:14>>*/ (l$0, v$0, r$0) /*<<set.ml:534:31>>*/ ;
          /*<<set.ml:534:31>>*/ }
         function filter_map(f, t){
           /*<<set.ml:542:23>>*/ if(! t)
@@ -12034,37 +12793,60 @@
           r = t[3],
           v = t[2],
           l = t[1],
-          t1 =  /*<<set.ml:546:18>>*/ filter_map(f, l),
+          t1 =
+             /*<<set.ml:546:18>>*/  /*<<set.ml:546:18>>*/ filter_map
+              /*<<set.ml:546:18>>*/ (f, l),
           v$0 =
              /*<<set.ml:547:18>>*/  /*<<set.ml:547:18>>*/ caml_call1
               /*<<set.ml:547:18>>*/ (f, v),
-          t2 =  /*<<set.ml:548:18>>*/ filter_map(f, r);
+          t2 =
+             /*<<set.ml:548:18>>*/  /*<<set.ml:548:18>>*/ filter_map
+              /*<<set.ml:548:18>>*/ (f, r);
           /*<<set.ml:549:9>>*/ if(v$0){
           var v$1 = v$0[1];
           if(l === t1 && v === v$1 && r === t2)
             /*<<set.ml:551:52>>*/ return t /*<<set.ml:551:52>>*/ ;
-           /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
+           /*<<set.ml:552:19>>*/ return  /*<<set.ml:552:19>>*/ try_join
+                   /*<<set.ml:552:19>>*/ (t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
          }
          if(! t1)  /*<<set.ml:538:22>>*/ return t2 /*<<set.ml:538:22>>*/ ;
          if(! t2)  /*<<set.ml:539:22>>*/ return t1 /*<<set.ml:539:22>>*/ ;
-         var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
-          /*<<set.ml:540:43>>*/ return try_join(t1, min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
+         var
+          _s_ =
+             /*<<set.ml:540:43>>*/  /*<<set.ml:540:43>>*/ remove_min_elt
+              /*<<set.ml:540:43>>*/ (t2);
+          /*<<set.ml:540:43>>*/ return  /*<<set.ml:540:43>>*/ try_join
+                  /*<<set.ml:540:43>>*/ (t1,
+                   /*<<set.ml:540:30>>*/ min_elt /*<<set.ml:540:30>>*/ (t2),
+                  _s_) /*<<set.ml:555:12>>*/ ;
          /*<<set.ml:555:12>>*/ }
         function of_list(l){
           /*<<set.ml:581:6>>*/ if(! l) return empty;
          var _n_ = l[2], x0 = l[1];
          if(! _n_)
-           /*<<set.ml:583:16>>*/ return singleton(x0) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:583:16>>*/ return  /*<<set.ml:583:16>>*/ singleton
+                   /*<<set.ml:583:16>>*/ (x0) /*<<set.ml:588:58>>*/ ;
          var _o_ = _n_[2], x1 = _n_[1];
          if(! _o_)
-           /*<<set.ml:584:27>>*/ return add(x1, singleton(x0)) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:584:27>>*/ return  /*<<set.ml:584:27>>*/ add
+                   /*<<set.ml:584:27>>*/ (x1,
+                    /*<<set.ml:584:27>>*/ singleton /*<<set.ml:584:27>>*/ (x0)) /*<<set.ml:588:58>>*/ ;
          var _p_ = _o_[2], x2 = _o_[1];
          if(! _p_)
-           /*<<set.ml:585:31>>*/ return add(x2, add(x1, singleton(x0))) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:585:31>>*/ return  /*<<set.ml:585:31>>*/ add
+                   /*<<set.ml:585:31>>*/ (x2,
+                    /*<<set.ml:585:31>>*/ add
+                     /*<<set.ml:585:31>>*/ (x1,
+                      /*<<set.ml:585:39>>*/ singleton /*<<set.ml:585:39>>*/ (x0))) /*<<set.ml:588:58>>*/ ;
          var _q_ = _p_[2], x3 = _p_[1];
          if(! _q_)
-           /*<<set.ml:586:35>>*/ return add
-                  (x3, add(x2, add(x1, singleton(x0)))) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:586:35>>*/ return  /*<<set.ml:586:35>>*/ add
+                   /*<<set.ml:586:35>>*/ (x3,
+                    /*<<set.ml:586:35>>*/ add
+                     /*<<set.ml:586:35>>*/ (x2,
+                      /*<<set.ml:586:43>>*/ add
+                       /*<<set.ml:586:43>>*/ (x1,
+                        /*<<set.ml:586:51>>*/ singleton /*<<set.ml:586:51>>*/ (x0)))) /*<<set.ml:588:58>>*/ ;
          if(_q_[2]){
           var
            l$0 =
@@ -12113,7 +12895,9 @@
                }
               var
                nl = n / 2 | 0,
-               match =  /*<<set.ml:569:24>>*/ sub(nl, l),
+               match =
+                  /*<<set.ml:569:24>>*/  /*<<set.ml:569:24>>*/ sub
+                   /*<<set.ml:569:24>>*/ (nl, l),
                l$0 = match[2],
                left = match[1];
                /*<<set.ml:570:10>>*/ if(! l$0)
@@ -12122,32 +12906,46 @@
               var
                l$1 = l$0[2],
                mid = l$0[1],
-               match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
+               match$0 =
+                  /*<<set.ml:573:27>>*/  /*<<set.ml:573:27>>*/ sub
+                   /*<<set.ml:573:27>>*/ ((n - nl | 0) - 1 | 0, l$1),
                l$2 = match$0[2],
                right = match$0[1];
-               /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2] /*<<set.ml:574:12>>*/ ;
+               /*<<set.ml:574:12>>*/ return [0,
+                       /*<<set.ml:574:12>>*/ create
+                        /*<<set.ml:574:12>>*/ (left, mid, right),
+                      l$2] /*<<set.ml:574:12>>*/ ;
               /*<<set.ml:574:36>>*/ };
-           /*<<set.ml:576:10>>*/ return sub
-                   ( /*<<set.ml:576:15>>*/ caml_call1
+           /*<<set.ml:576:10>>*/ return  /*<<set.ml:576:10>>*/ sub
+                    /*<<set.ml:576:10>>*/ ( /*<<set.ml:576:15>>*/ caml_call1
                       /*<<set.ml:576:15>>*/ (Stdlib_List[1], l$0),
                     l$0)
                   [1] /*<<set.ml:576:10>>*/ ;
          }
          var x4 = _q_[1];
-          /*<<set.ml:587:39>>*/ return add
-                 (x4, add(x3, add(x2, add(x1, singleton(x0))))) /*<<set.ml:588:58>>*/ ;
+          /*<<set.ml:587:39>>*/ return  /*<<set.ml:587:39>>*/ add
+                  /*<<set.ml:587:39>>*/ (x4,
+                   /*<<set.ml:587:39>>*/ add
+                    /*<<set.ml:587:39>>*/ (x3,
+                     /*<<set.ml:587:47>>*/ add
+                      /*<<set.ml:587:47>>*/ (x2,
+                       /*<<set.ml:587:55>>*/ add
+                        /*<<set.ml:587:55>>*/ (x1,
+                         /*<<set.ml:587:63>>*/ singleton /*<<set.ml:587:63>>*/ (x0))))) /*<<set.ml:588:58>>*/ ;
          /*<<set.ml:588:58>>*/ }
         function add_seq(i, m){
           /*<<set.ml:591:6>>*/ return  /*<<set.ml:591:6>>*/ caml_call3
                   /*<<set.ml:591:6>>*/ (Stdlib_Seq[5],
                   function(s, x){
-                    /*<<set.ml:591:32>>*/ return add(x, s) /*<<set.ml:591:39>>*/ ;
+                    /*<<set.ml:591:32>>*/ return  /*<<set.ml:591:32>>*/ add
+                            /*<<set.ml:591:32>>*/ (x, s) /*<<set.ml:591:39>>*/ ;
                    /*<<set.ml:591:39>>*/ },
                   m,
                   i) /*<<set.ml:591:44>>*/ ;
          /*<<set.ml:591:44>>*/ }
         function of_seq(i){
-          /*<<set.ml:593:19>>*/ return add_seq(i, empty) /*<<set.ml:593:34>>*/ ;
+          /*<<set.ml:593:19>>*/ return  /*<<set.ml:590:16>>*/ add_seq
+                  /*<<set.ml:590:16>>*/ (i, empty) /*<<set.ml:593:34>>*/ ;
          /*<<set.ml:593:34>>*/ }
         function seq_of_enum(c, param){
           /*<<set.ml:595:32>>*/ if(! c)
@@ -12156,13 +12954,18 @@
           rest = c[3],
           t = c[2],
           x = c[1],
-          _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
+          _l_ =
+             /*<<set.ml:597:55>>*/  /*<<set.ml:597:55>>*/ cons_enum
+              /*<<set.ml:597:55>>*/ (t, rest);
           /*<<set.ml:597:29>>*/ return [0,
                  x,
                  function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}] /*<<set.ml:597:29>>*/ ;
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
-         var _j_ =  /*<<set.ml:599:32>>*/ cons_enum(c, 0);
+         var
+          _j_ =
+             /*<<set.ml:599:32>>*/  /*<<set.ml:599:32>>*/ cons_enum
+              /*<<set.ml:599:32>>*/ (c, 0);
           /*<<set.ml:599:32>>*/ return function(_k_){
            /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:32>>*/ ;
          /*<<set.ml:599:49>>*/ }
@@ -12186,13 +12989,18 @@
           rest = c[3],
           t = c[2],
           x = c[1],
-          _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
+          _h_ =
+             /*<<set.ml:608:59>>*/  /*<<set.ml:608:59>>*/ snoc_enum
+              /*<<set.ml:608:59>>*/ (t, rest);
           /*<<set.ml:608:29>>*/ return [0,
                  x,
                  function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}] /*<<set.ml:608:29>>*/ ;
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
-         var _f_ =  /*<<set.ml:610:40>>*/ snoc_enum(c, 0);
+         var
+          _f_ =
+             /*<<set.ml:610:40>>*/  /*<<set.ml:610:40>>*/ snoc_enum
+              /*<<set.ml:610:40>>*/ (c, 0);
           /*<<set.ml:610:40>>*/ return function(_g_){
            /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);} /*<<set.ml:610:40>>*/ ;
          /*<<set.ml:610:57>>*/ }
@@ -12328,8 +13136,12 @@
          /*<<map.ml:83:21>>*/ }
         function create(l, x, d, r){
          var
-          hl =  /*<<map.ml:86:15>>*/ height(l),
-          hr =  /*<<map.ml:86:33>>*/ height(r),
+          hl =
+             /*<<map.ml:86:15>>*/  /*<<map.ml:86:15>>*/ height
+              /*<<map.ml:86:15>>*/ (l),
+          hr =
+             /*<<map.ml:86:33>>*/  /*<<map.ml:86:33>>*/ height
+              /*<<map.ml:86:33>>*/ (r),
           _K_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
           /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_] /*<<map.ml:87:10>>*/ ;
          /*<<map.ml:87:65>>*/ }
@@ -12348,10 +13160,16 @@
            ld = l[3],
            lv = l[2],
            ll = l[1],
-           _F_ =  /*<<map.ml:98:28>>*/ height(lr);
-          if(_F_ <= height(ll))
-            /*<<map.ml:99:30>>*/ return create
-                   (ll, lv, ld, create(lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
+           _F_ =
+              /*<<map.ml:98:28>>*/  /*<<map.ml:98:28>>*/ height
+               /*<<map.ml:98:28>>*/ (lr);
+          if(_F_ <=  /*<<map.ml:98:15>>*/ height /*<<map.ml:98:15>>*/ (ll))
+            /*<<map.ml:99:30>>*/ return  /*<<map.ml:99:30>>*/ create
+                    /*<<map.ml:99:30>>*/ (ll,
+                    lv,
+                    ld,
+                     /*<<map.ml:99:30>>*/ create
+                      /*<<map.ml:99:30>>*/ (lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
           if(! lr)
             /*<<map.ml:102:25>>*/ return  /*<<map.ml:102:25>>*/ caml_call1
                     /*<<map.ml:102:25>>*/ (Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
@@ -12360,9 +13178,15 @@
            lrd = lr[3],
            lrv = lr[2],
            lrl = lr[1],
-           _G_ =  /*<<map.ml:104:55>>*/ create(lrr, x, d, r);
-           /*<<map.ml:104:55>>*/ return create
-                  (create(ll, lv, ld, lrl), lrv, lrd, _G_) /*<<map.ml:119:67>>*/ ;
+           _G_ =
+              /*<<map.ml:104:55>>*/  /*<<map.ml:104:55>>*/ create
+               /*<<map.ml:104:55>>*/ (lrr, x, d, r);
+           /*<<map.ml:104:55>>*/ return  /*<<map.ml:104:55>>*/ create
+                   /*<<map.ml:104:55>>*/ ( /*<<map.ml:104:25>>*/ create
+                     /*<<map.ml:104:25>>*/ (ll, lv, ld, lrl),
+                   lrv,
+                   lrd,
+                   _G_) /*<<map.ml:119:67>>*/ ;
          }
          if((hl + 2 | 0) >= hr){
           var _J_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
@@ -12376,10 +13200,16 @@
           rd = r[3],
           rv = r[2],
           rl = r[1],
-          _H_ =  /*<<map.ml:110:28>>*/ height(rl);
-         if(_H_ <= height(rr))
-           /*<<map.ml:111:14>>*/ return create
-                  (create(l, x, d, rl), rv, rd, rr) /*<<map.ml:119:67>>*/ ;
+          _H_ =
+             /*<<map.ml:110:28>>*/  /*<<map.ml:110:28>>*/ height
+              /*<<map.ml:110:28>>*/ (rl);
+         if(_H_ <=  /*<<map.ml:110:15>>*/ height /*<<map.ml:110:15>>*/ (rr))
+           /*<<map.ml:111:14>>*/ return  /*<<map.ml:111:14>>*/ create
+                   /*<<map.ml:111:14>>*/ ( /*<<map.ml:111:21>>*/ create
+                     /*<<map.ml:111:21>>*/ (l, x, d, rl),
+                   rv,
+                   rd,
+                   rr) /*<<map.ml:119:67>>*/ ;
          if(! rl)
            /*<<map.ml:114:25>>*/ return  /*<<map.ml:114:25>>*/ caml_call1
                    /*<<map.ml:114:25>>*/ (Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
@@ -12388,9 +13218,15 @@
           rld = rl[3],
           rlv = rl[2],
           rll = rl[1],
-          _I_ =  /*<<map.ml:116:52>>*/ create(rlr, rv, rd, rr);
-          /*<<map.ml:116:52>>*/ return create
-                 (create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
+          _I_ =
+             /*<<map.ml:116:52>>*/  /*<<map.ml:116:52>>*/ create
+              /*<<map.ml:116:52>>*/ (rlr, rv, rd, rr);
+          /*<<map.ml:116:52>>*/ return  /*<<map.ml:116:52>>*/ create
+                  /*<<map.ml:116:52>>*/ ( /*<<map.ml:116:25>>*/ create
+                    /*<<map.ml:116:25>>*/ (l, x, d, rll),
+                  rlv,
+                  rld,
+                  _I_) /*<<map.ml:119:67>>*/ ;
          /*<<map.ml:119:67>>*/ }
         var empty =  /*<<map.ml:91:12>>*/ 0;
         function is_empty(param){
@@ -12411,11 +13247,23 @@
           /*<<map.ml:130:10>>*/ if(0 === c)
           return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:137:47>>*/ ;
          if(0 <= c){
-          var rr =  /*<<map.ml:136:21>>*/ add(x, data, r);
-          return r === rr ? m : bal(l, v, d, rr) /*<<map.ml:137:47>>*/ ;
+          var
+           rr =
+              /*<<map.ml:136:21>>*/  /*<<map.ml:136:21>>*/ add
+               /*<<map.ml:136:21>>*/ (x, data, r);
+          return r === rr
+                  ? m
+                  :  /*<<map.ml:137:35>>*/ bal
+                     /*<<map.ml:137:35>>*/ (l, v, d, rr) /*<<map.ml:137:47>>*/ ;
          }
-         var ll =  /*<<map.ml:133:21>>*/ add(x, data, l);
-         return l === ll ? m : bal(ll, v, d, r) /*<<map.ml:137:47>>*/ ;
+         var
+          ll =
+             /*<<map.ml:133:21>>*/  /*<<map.ml:133:21>>*/ add
+              /*<<map.ml:133:21>>*/ (x, data, l);
+         return l === ll
+                 ? m
+                 :  /*<<map.ml:134:35>>*/ bal
+                    /*<<map.ml:134:35>>*/ (ll, v, d, r) /*<<map.ml:137:47>>*/ ;
          /*<<map.ml:137:47>>*/ }
         function find(x, param){
          var param$0 = param;
@@ -12665,7 +13513,12 @@
          var l = param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
-           /*<<map.ml:257:29>>*/ return bal(remove_min_binding(l), v, d, r) /*<<map.ml:257:61>>*/ ;
+           /*<<map.ml:257:29>>*/ return  /*<<map.ml:257:29>>*/ bal
+                   /*<<map.ml:257:29>>*/ ( /*<<map.ml:257:33>>*/ remove_min_binding
+                     /*<<map.ml:257:33>>*/ (l),
+                   v,
+                   d,
+                   r) /*<<map.ml:257:61>>*/ ;
          }
          var r$0 = param[4];
           /*<<map.ml:256:29>>*/ return r$0 /*<<map.ml:256:29>>*/ ;
@@ -12675,10 +13528,17 @@
            /*<<map.ml:261:22>>*/ return t2 /*<<map.ml:261:22>>*/ ;
          if(! t2)  /*<<map.ml:262:22>>*/ return t1 /*<<map.ml:262:22>>*/ ;
          var
-          match =  /*<<map.ml:264:23>>*/ min_binding(t2),
+          match =
+             /*<<map.ml:264:23>>*/  /*<<map.ml:264:23>>*/ min_binding
+              /*<<map.ml:264:23>>*/ (t2),
           d = match[2],
           x = match[1];
-          /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
+          /*<<map.ml:265:21>>*/ return  /*<<map.ml:265:21>>*/ bal
+                  /*<<map.ml:265:21>>*/ (t1,
+                  x,
+                  d,
+                   /*<<map.ml:265:21>>*/ remove_min_binding
+                    /*<<map.ml:265:21>>*/ (t2)) /*<<map.ml:265:44>>*/ ;
          /*<<map.ml:265:44>>*/ }
         function remove(x, m){
           /*<<map.ml:267:19>>*/ if(! m)
@@ -12692,13 +13552,26 @@
              /*<<map.ml:271:18>>*/  /*<<map.ml:271:18>>*/ caml_call2
               /*<<map.ml:271:18>>*/ (Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
-           /*<<map.ml:272:24>>*/ return _d_(l, r) /*<<map.ml:276:70>>*/ ;
+           /*<<map.ml:272:24>>*/ return  /*<<map.ml:272:24>>*/ _d_
+                   /*<<map.ml:272:24>>*/ (l, r) /*<<map.ml:276:70>>*/ ;
          if(0 <= c){
-          var rr =  /*<<map.ml:276:21>>*/ remove(x, r);
-          return r === rr ? m : bal(l, v, d, rr) /*<<map.ml:276:70>>*/ ;
+          var
+           rr =
+              /*<<map.ml:276:21>>*/  /*<<map.ml:276:21>>*/ remove
+               /*<<map.ml:276:21>>*/ (x, r);
+          return r === rr
+                  ? m
+                  :  /*<<map.ml:276:58>>*/ bal
+                     /*<<map.ml:276:58>>*/ (l, v, d, rr) /*<<map.ml:276:70>>*/ ;
          }
-         var ll =  /*<<map.ml:274:21>>*/ remove(x, l);
-         return l === ll ? m : bal(ll, v, d, r) /*<<map.ml:276:70>>*/ ;
+         var
+          ll =
+             /*<<map.ml:274:21>>*/  /*<<map.ml:274:21>>*/ remove
+              /*<<map.ml:274:21>>*/ (x, l);
+         return l === ll
+                 ? m
+                 :  /*<<map.ml:274:58>>*/ bal
+                    /*<<map.ml:274:58>>*/ (ll, v, d, r) /*<<map.ml:276:70>>*/ ;
          /*<<map.ml:276:70>>*/ }
         function update(x, f, m){
           /*<<map.ml:278:19>>*/ if(! m){
@@ -12726,16 +13599,29 @@
               /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ caml_call1
                /*<<map.ml:287:18>>*/ (f, [0, d]);
           if(! match)
-            /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:296:47>>*/ ;
+            /*<<map.ml:288:22>>*/ return  /*<<map.ml:288:22>>*/ _d_
+                    /*<<map.ml:288:22>>*/ (l, r) /*<<map.ml:296:47>>*/ ;
           var data = match[1];
           return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:296:47>>*/ ;
          }
          if(0 <= c){
-          var rr =  /*<<map.ml:295:21>>*/ update(x, f, r);
-          return r === rr ? m : bal(l, v, d, rr) /*<<map.ml:296:47>>*/ ;
+          var
+           rr =
+              /*<<map.ml:295:21>>*/  /*<<map.ml:295:21>>*/ update
+               /*<<map.ml:295:21>>*/ (x, f, r);
+          return r === rr
+                  ? m
+                  :  /*<<map.ml:296:35>>*/ bal
+                     /*<<map.ml:296:35>>*/ (l, v, d, rr) /*<<map.ml:296:47>>*/ ;
          }
-         var ll =  /*<<map.ml:292:21>>*/ update(x, f, l);
-         return l === ll ? m : bal(ll, v, d, r) /*<<map.ml:296:47>>*/ ;
+         var
+          ll =
+             /*<<map.ml:292:21>>*/  /*<<map.ml:292:21>>*/ update
+              /*<<map.ml:292:21>>*/ (x, f, l);
+         return l === ll
+                 ? m
+                 :  /*<<map.ml:293:35>>*/ bal
+                    /*<<map.ml:293:35>>*/ (ll, v, d, r) /*<<map.ml:296:47>>*/ ;
          /*<<map.ml:296:47>>*/ }
         function add_to_list(x, data, m){
          function add(param){
@@ -12744,7 +13630,8 @@
           var l = param[1];
            /*<<map.ml:299:57>>*/ return [0, [0, data, l]] /*<<map.ml:299:57>>*/ ;
           /*<<map.ml:299:73>>*/ }
-          /*<<map.ml:300:6>>*/ return update(x, add, m) /*<<map.ml:300:20>>*/ ;
+          /*<<map.ml:300:6>>*/ return  /*<<map.ml:300:6>>*/ update
+                  /*<<map.ml:300:6>>*/ (x, add, m) /*<<map.ml:300:20>>*/ ;
          /*<<map.ml:300:20>>*/ }
         function iter(f, param){
          var param$0 = param;
@@ -12752,7 +13639,8 @@
           if(! param$0)
             /*<<map.ml:303:17>>*/ return 0 /*<<map.ml:303:17>>*/ ;
           var r = param$0[4], d = param$0[3], v = param$0[2], l = param$0[1];
-           /*<<map.ml:305:10>>*/ iter(f, l);
+           /*<<map.ml:305:10>>*/  /*<<map.ml:305:10>>*/ iter
+            /*<<map.ml:305:10>>*/ (f, l);
            /*<<map.ml:305:20>>*/  /*<<map.ml:305:20>>*/ caml_call2
             /*<<map.ml:305:20>>*/ (f, v, d);
           param$0 = r;
@@ -12767,11 +13655,15 @@
           d = param[3],
           v = param[2],
           l = param[1],
-          l$0 =  /*<<map.ml:311:19>>*/ map(f, l),
+          l$0 =
+             /*<<map.ml:311:19>>*/  /*<<map.ml:311:19>>*/ map
+              /*<<map.ml:311:19>>*/ (f, l),
           d$0 =
              /*<<map.ml:312:19>>*/  /*<<map.ml:312:19>>*/ caml_call1
               /*<<map.ml:312:19>>*/ (f, d),
-          r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
+          r$0 =
+             /*<<map.ml:313:19>>*/  /*<<map.ml:313:19>>*/ map
+              /*<<map.ml:313:19>>*/ (f, r);
           /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:314:14>>*/ ;
          /*<<map.ml:314:38>>*/ }
         function mapi(f, param){
@@ -12783,11 +13675,15 @@
           d = param[3],
           v = param[2],
           l = param[1],
-          l$0 =  /*<<map.ml:320:19>>*/ mapi(f, l),
+          l$0 =
+             /*<<map.ml:320:19>>*/  /*<<map.ml:320:19>>*/ mapi
+              /*<<map.ml:320:19>>*/ (f, l),
           d$0 =
              /*<<map.ml:321:19>>*/  /*<<map.ml:321:19>>*/ caml_call2
               /*<<map.ml:321:19>>*/ (f, v, d),
-          r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
+          r$0 =
+             /*<<map.ml:322:19>>*/  /*<<map.ml:322:19>>*/ mapi
+              /*<<map.ml:322:19>>*/ (f, r);
           /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:323:14>>*/ ;
          /*<<map.ml:323:38>>*/ }
         function fold(f, m, accu){
@@ -12802,7 +13698,11 @@
            l = m$0[1],
            accu$1 =
               /*<<map.ml:329:19>>*/  /*<<map.ml:329:19>>*/ caml_call3
-               /*<<map.ml:329:19>>*/ (f, v, d, fold(f, l, accu$0));
+               /*<<map.ml:329:19>>*/ (f,
+               v,
+               d,
+                /*<<map.ml:329:26>>*/ fold
+                 /*<<map.ml:329:26>>*/ (f, l, accu$0));
           m$0 = r;
           accu$0 = accu$1;
          }
@@ -12821,7 +13721,10 @@
               /*<<map.ml:333:29>>*/  /*<<map.ml:333:29>>*/ caml_call2
                /*<<map.ml:333:29>>*/ (p, v, d);
            /*<<map.ml:333:29>>*/ if(_B_){
-           var _C_ =  /*<<map.ml:333:38>>*/ for_all(p, l);
+           var
+            _C_ =
+               /*<<map.ml:333:38>>*/  /*<<map.ml:333:38>>*/ for_all
+                /*<<map.ml:333:38>>*/ (p, l);
             /*<<map.ml:333:38>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
@@ -12846,7 +13749,10 @@
            /*<<map.ml:337:29>>*/ if(_y_)
            var _z_ = _y_;
           else{
-           var _A_ =  /*<<map.ml:337:38>>*/ exists(p, l);
+           var
+            _A_ =
+               /*<<map.ml:337:38>>*/  /*<<map.ml:337:38>>*/ exists
+                /*<<map.ml:337:38>>*/ (p, l);
             /*<<map.ml:337:38>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
@@ -12855,21 +13761,35 @@
          /*<<map.ml:337:62>>*/ }
         function add_min_binding(k, x, param){
           /*<<map.ml:347:28>>*/ if(! param)
-           /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:350:41>>*/ ;
+           /*<<map.ml:348:17>>*/ return  /*<<map.ml:348:17>>*/ singleton
+                   /*<<map.ml:348:17>>*/ (k, x) /*<<map.ml:350:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:350:8>>*/ return bal(add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:41>>*/ ;
+          /*<<map.ml:350:8>>*/ return  /*<<map.ml:350:8>>*/ bal
+                  /*<<map.ml:350:8>>*/ ( /*<<map.ml:350:12>>*/ add_min_binding
+                    /*<<map.ml:350:12>>*/ (k, x, l),
+                  v,
+                  d,
+                  r) /*<<map.ml:350:41>>*/ ;
          /*<<map.ml:350:41>>*/ }
         function add_max_binding(k, x, param){
           /*<<map.ml:352:28>>*/ if(! param)
-           /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:355:41>>*/ ;
+           /*<<map.ml:353:17>>*/ return  /*<<map.ml:353:17>>*/ singleton
+                   /*<<map.ml:353:17>>*/ (k, x) /*<<map.ml:355:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
+          /*<<map.ml:355:18>>*/ return  /*<<map.ml:355:18>>*/ bal
+                  /*<<map.ml:355:18>>*/ (l,
+                  v,
+                  d,
+                   /*<<map.ml:355:18>>*/ add_max_binding
+                    /*<<map.ml:355:18>>*/ (k, x, r)) /*<<map.ml:355:41>>*/ ;
          /*<<map.ml:355:41>>*/ }
         function join(l, v, d, r){
           /*<<map.ml:361:6>>*/ if(! l)
-           /*<<map.ml:362:22>>*/ return add_min_binding(v, d, r) /*<<map.ml:368:24>>*/ ;
+           /*<<map.ml:362:22>>*/ return  /*<<map.ml:362:22>>*/ add_min_binding
+                   /*<<map.ml:362:22>>*/ (v, d, r) /*<<map.ml:368:24>>*/ ;
          if(! r)
-           /*<<map.ml:363:22>>*/ return add_max_binding(v, d, l) /*<<map.ml:368:24>>*/ ;
+           /*<<map.ml:363:22>>*/ return  /*<<map.ml:363:22>>*/ add_max_binding
+                   /*<<map.ml:363:22>>*/ (v, d, l) /*<<map.ml:368:24>>*/ ;
          var
           rh = r[5],
           rr = r[4],
@@ -12882,29 +13802,49 @@
           lv = l[2],
           ll = l[1];
          return (rh + 2 | 0) < lh
-                 ? bal(ll, lv, ld, join(lr, v, d, r))
+                 ?  /*<<map.ml:366:43>>*/ bal
+                    /*<<map.ml:366:43>>*/ (ll,
+                    lv,
+                    ld,
+                     /*<<map.ml:366:43>>*/ join
+                      /*<<map.ml:366:43>>*/ (lr, v, d, r))
                  : (lh
                    + 2
                    | 0)
                    < rh
-                   ? bal(join(l, v, d, rl), rv, rd, rr)
-                   : create(l, v, d, r) /*<<map.ml:368:24>>*/ ;
+                   ?  /*<<map.ml:367:30>>*/ bal
+                      /*<<map.ml:367:30>>*/ ( /*<<map.ml:367:34>>*/ join
+                        /*<<map.ml:367:34>>*/ (l, v, d, rl),
+                      rv,
+                      rd,
+                      rr)
+                   :  /*<<map.ml:368:10>>*/ create
+                      /*<<map.ml:368:10>>*/ (l, v, d, r) /*<<map.ml:368:24>>*/ ;
          /*<<map.ml:368:24>>*/ }
         function concat(t1, t2){
           /*<<map.ml:375:6>>*/ if(! t1)
            /*<<map.ml:376:22>>*/ return t2 /*<<map.ml:376:22>>*/ ;
          if(! t2)  /*<<map.ml:377:22>>*/ return t1 /*<<map.ml:377:22>>*/ ;
          var
-          match =  /*<<map.ml:379:23>>*/ min_binding(t2),
+          match =
+             /*<<map.ml:379:23>>*/  /*<<map.ml:379:23>>*/ min_binding
+              /*<<map.ml:379:23>>*/ (t2),
           d = match[2],
           x = match[1];
-          /*<<map.ml:380:22>>*/ return join(t1, x, d, remove_min_binding(t2)) /*<<map.ml:380:45>>*/ ;
+          /*<<map.ml:380:22>>*/ return  /*<<map.ml:380:22>>*/ join
+                  /*<<map.ml:380:22>>*/ (t1,
+                  x,
+                  d,
+                   /*<<map.ml:380:22>>*/ remove_min_binding
+                    /*<<map.ml:380:22>>*/ (t2)) /*<<map.ml:380:45>>*/ ;
          /*<<map.ml:380:45>>*/ }
         function concat_or_join(t1, v, d, t2){
           /*<<map.ml:383:6>>*/ if(! d)
-           /*<<map.ml:385:16>>*/ return concat(t1, t2) /*<<map.ml:385:28>>*/ ;
+           /*<<map.ml:385:16>>*/ return  /*<<map.ml:385:16>>*/ concat
+                   /*<<map.ml:385:16>>*/ (t1, t2) /*<<map.ml:385:28>>*/ ;
          var d$0 = d[1];
-          /*<<map.ml:384:18>>*/ return join(t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
+          /*<<map.ml:384:18>>*/ return  /*<<map.ml:384:18>>*/ join
+                  /*<<map.ml:384:18>>*/ (t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
          /*<<map.ml:385:28>>*/ }
         function split(x, param){
           /*<<map.ml:387:18>>*/ if(! param)
@@ -12921,34 +13861,54 @@
            /*<<map.ml:392:24>>*/ return [0, l, [0, d], r] /*<<map.ml:392:24>>*/ ;
          if(0 <= c){
           var
-           match =  /*<<map.ml:396:33>>*/ split(x, r),
+           match =
+              /*<<map.ml:396:33>>*/  /*<<map.ml:396:33>>*/ split
+               /*<<map.ml:396:33>>*/ (x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
-           /*<<map.ml:396:46>>*/ return [0, join(l, v, d, lr), pres, rr] /*<<map.ml:396:46>>*/ ;
+           /*<<map.ml:396:46>>*/ return [0,
+                   /*<<map.ml:396:47>>*/ join
+                    /*<<map.ml:396:47>>*/ (l, v, d, lr),
+                  pres,
+                  rr] /*<<map.ml:396:46>>*/ ;
          }
          var
-          match$0 =  /*<<map.ml:394:33>>*/ split(x, l),
+          match$0 =
+             /*<<map.ml:394:33>>*/  /*<<map.ml:394:33>>*/ split
+              /*<<map.ml:394:33>>*/ (x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<map.ml:394:46>>*/ return [0, ll, pres$0, join(rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
+          /*<<map.ml:394:46>>*/ return [0,
+                 ll,
+                 pres$0,
+                  /*<<map.ml:394:57>>*/ join
+                   /*<<map.ml:394:57>>*/ (rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
          /*<<map.ml:396:71>>*/ }
         function merge(f, s1, s2){
           /*<<map.ml:399:6>>*/ if(s1){
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
-          if(height(s2) <= h1){
+          if( /*<<map.ml:401:60>>*/ height /*<<map.ml:401:60>>*/ (s2) <= h1){
            var
-            match =  /*<<map.ml:402:29>>*/ split(v1, s2),
+            match =
+               /*<<map.ml:402:29>>*/  /*<<map.ml:402:29>>*/ split
+                /*<<map.ml:402:29>>*/ (v1, s2),
             r2 = match[3],
             d2 = match[2],
             l2 = match[1],
-            _u_ =  /*<<map.ml:403:64>>*/ merge(f, r1, r2),
+            _u_ =
+               /*<<map.ml:403:64>>*/  /*<<map.ml:403:64>>*/ merge
+                /*<<map.ml:403:64>>*/ (f, r1, r2),
             _v_ =
                /*<<map.ml:403:44>>*/  /*<<map.ml:403:44>>*/ caml_call3
                 /*<<map.ml:403:44>>*/ (f, v1, [0, d1], d2);
-            /*<<map.ml:403:64>>*/ return concat_or_join
-                   (merge(f, l1, l2), v1, _v_, _u_) /*<<map.ml:408:22>>*/ ;
+            /*<<map.ml:403:64>>*/ return  /*<<map.ml:403:64>>*/ concat_or_join
+                    /*<<map.ml:403:64>>*/ ( /*<<map.ml:403:25>>*/ merge
+                      /*<<map.ml:403:25>>*/ (f, l1, l2),
+                    v1,
+                    _v_,
+                    _u_) /*<<map.ml:408:22>>*/ ;
           }
          }
          else if(! s2)  /*<<map.ml:400:26>>*/ return 0 /*<<map.ml:400:26>>*/ ;
@@ -12960,16 +13920,24 @@
           d2$0 = s2[3],
           v2 = s2[2],
           l2$0 = s2[1],
-          match$0 =  /*<<map.ml:405:29>>*/ split(v2, s1),
+          match$0 =
+             /*<<map.ml:405:29>>*/  /*<<map.ml:405:29>>*/ split
+              /*<<map.ml:405:29>>*/ (v2, s1),
           r1$0 = match$0[3],
           d1$0 = match$0[2],
           l1$0 = match$0[1],
-          _w_ =  /*<<map.ml:406:64>>*/ merge(f, r1$0, r2$0),
+          _w_ =
+             /*<<map.ml:406:64>>*/  /*<<map.ml:406:64>>*/ merge
+              /*<<map.ml:406:64>>*/ (f, r1$0, r2$0),
           _x_ =
              /*<<map.ml:406:44>>*/  /*<<map.ml:406:44>>*/ caml_call3
               /*<<map.ml:406:44>>*/ (f, v2, d1$0, [0, d2$0]);
-          /*<<map.ml:406:64>>*/ return concat_or_join
-                 (merge(f, l1$0, l2$0), v2, _x_, _w_) /*<<map.ml:408:22>>*/ ;
+          /*<<map.ml:406:64>>*/ return  /*<<map.ml:406:64>>*/ concat_or_join
+                  /*<<map.ml:406:64>>*/ ( /*<<map.ml:406:25>>*/ merge
+                    /*<<map.ml:406:25>>*/ (f, l1$0, l2$0),
+                  v2,
+                  _x_,
+                  _w_) /*<<map.ml:408:22>>*/ ;
          /*<<map.ml:408:22>>*/ }
         function union(f, s1, s2){
           /*<<map.ml:411:6>>*/ if(s1){
@@ -12987,34 +13955,48 @@
             l1 = s1[1];
            if(h2 <= h1){
             var
-             match =  /*<<map.ml:416:31>>*/ split(v1, s2),
+             match =
+                /*<<map.ml:416:31>>*/  /*<<map.ml:416:31>>*/ split
+                 /*<<map.ml:416:31>>*/ (v1, s2),
              r2$0 = match[3],
              d2$0 = match[2],
              l2$0 = match[1],
-             l =  /*<<map.ml:417:20>>*/ union(f, l1, l2$0),
-             r =  /*<<map.ml:417:42>>*/ union(f, r1, r2$0);
+             l =
+                /*<<map.ml:417:20>>*/  /*<<map.ml:417:20>>*/ union
+                 /*<<map.ml:417:20>>*/ (f, l1, l2$0),
+             r =
+                /*<<map.ml:417:42>>*/  /*<<map.ml:417:42>>*/ union
+                 /*<<map.ml:417:42>>*/ (f, r1, r2$0);
              /*<<map.ml:418:12>>*/ if(! d2$0)
-              /*<<map.ml:419:22>>*/ return join(l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
+              /*<<map.ml:419:22>>*/ return  /*<<map.ml:419:22>>*/ join
+                      /*<<map.ml:419:22>>*/ (l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
             var d2$1 = d2$0[1];
-             /*<<map.ml:420:25>>*/ return concat_or_join
-                    (l,
+             /*<<map.ml:420:25>>*/ return  /*<<map.ml:420:25>>*/ concat_or_join
+                     /*<<map.ml:420:25>>*/ (l,
                      v1,
                       /*<<map.ml:420:45>>*/ caml_call3
                        /*<<map.ml:420:45>>*/ (f, v1, d1, d2$1),
                      r) /*<<map.ml:426:59>>*/ ;
            }
            var
-            match$0 =  /*<<map.ml:422:31>>*/ split(v2, s1),
+            match$0 =
+               /*<<map.ml:422:31>>*/  /*<<map.ml:422:31>>*/ split
+                /*<<map.ml:422:31>>*/ (v2, s1),
             r1$0 = match$0[3],
             d1$0 = match$0[2],
             l1$0 = match$0[1],
-            l$0 =  /*<<map.ml:423:20>>*/ union(f, l1$0, l2),
-            r$0 =  /*<<map.ml:423:42>>*/ union(f, r1$0, r2);
+            l$0 =
+               /*<<map.ml:423:20>>*/  /*<<map.ml:423:20>>*/ union
+                /*<<map.ml:423:20>>*/ (f, l1$0, l2),
+            r$0 =
+               /*<<map.ml:423:42>>*/  /*<<map.ml:423:42>>*/ union
+                /*<<map.ml:423:42>>*/ (f, r1$0, r2);
             /*<<map.ml:424:12>>*/ if(! d1$0)
-             /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
+             /*<<map.ml:425:22>>*/ return  /*<<map.ml:425:22>>*/ join
+                     /*<<map.ml:425:22>>*/ (l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
            var d1$1 = d1$0[1];
-            /*<<map.ml:426:25>>*/ return concat_or_join
-                   (l$0,
+            /*<<map.ml:426:25>>*/ return  /*<<map.ml:426:25>>*/ concat_or_join
+                    /*<<map.ml:426:25>>*/ (l$0,
                     v2,
                      /*<<map.ml:426:45>>*/ caml_call3
                       /*<<map.ml:426:45>>*/ (f, v2, d1$1, d2),
@@ -13034,16 +14016,22 @@
           d = m[3],
           v = m[2],
           l = m[1],
-          l$0 =  /*<<map.ml:432:19>>*/ filter(p, l),
+          l$0 =
+             /*<<map.ml:432:19>>*/  /*<<map.ml:432:19>>*/ filter
+              /*<<map.ml:432:19>>*/ (p, l),
           pvd =
              /*<<map.ml:433:20>>*/  /*<<map.ml:433:20>>*/ caml_call2
               /*<<map.ml:433:20>>*/ (p, v, d),
-          r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
+          r$0 =
+             /*<<map.ml:434:19>>*/  /*<<map.ml:434:19>>*/ filter
+              /*<<map.ml:434:19>>*/ (p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
-           /*<<map.ml:436:15>>*/ return concat(l$0, r$0) /*<<map.ml:436:27>>*/ ;
+           /*<<map.ml:436:15>>*/ return  /*<<map.ml:436:15>>*/ concat
+                   /*<<map.ml:436:15>>*/ (l$0, r$0) /*<<map.ml:436:27>>*/ ;
          if(l === l$0 && r === r$0)
            /*<<map.ml:435:45>>*/ return m /*<<map.ml:435:45>>*/ ;
-          /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0) /*<<map.ml:436:27>>*/ ;
+          /*<<map.ml:435:52>>*/ return  /*<<map.ml:435:52>>*/ join
+                  /*<<map.ml:435:52>>*/ (l$0, v, d, r$0) /*<<map.ml:436:27>>*/ ;
          /*<<map.ml:436:27>>*/ }
         function filter_map(f, param){
           /*<<map.ml:438:23>>*/ if(! param)
@@ -13053,15 +14041,21 @@
           d = param[3],
           v = param[2],
           l = param[1],
-          l$0 =  /*<<map.ml:442:19>>*/ filter_map(f, l),
+          l$0 =
+             /*<<map.ml:442:19>>*/  /*<<map.ml:442:19>>*/ filter_map
+              /*<<map.ml:442:19>>*/ (f, l),
           fvd =
              /*<<map.ml:443:20>>*/  /*<<map.ml:443:20>>*/ caml_call2
               /*<<map.ml:443:20>>*/ (f, v, d),
-          r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
+          r$0 =
+             /*<<map.ml:444:19>>*/  /*<<map.ml:444:19>>*/ filter_map
+              /*<<map.ml:444:19>>*/ (f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
-           /*<<map.ml:447:22>>*/ return concat(l$0, r$0) /*<<map.ml:448:13>>*/ ;
+           /*<<map.ml:447:22>>*/ return  /*<<map.ml:447:22>>*/ concat
+                   /*<<map.ml:447:22>>*/ (l$0, r$0) /*<<map.ml:448:13>>*/ ;
          var d$0 = fvd[1];
-          /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0) /*<<map.ml:448:13>>*/ ;
+          /*<<map.ml:446:25>>*/ return  /*<<map.ml:446:25>>*/ join
+                  /*<<map.ml:446:25>>*/ (l$0, v, d$0, r$0) /*<<map.ml:448:13>>*/ ;
          /*<<map.ml:448:13>>*/ }
         function partition(p, param){
           /*<<map.ml:450:22>>*/ if(! param)
@@ -13071,21 +14065,36 @@
           d = param[3],
           v = param[2],
           l = param[1],
-          match =  /*<<map.ml:454:25>>*/ partition(p, l),
+          match =
+             /*<<map.ml:454:25>>*/  /*<<map.ml:454:25>>*/ partition
+              /*<<map.ml:454:25>>*/ (p, l),
           lf = match[2],
           lt = match[1],
           pvd =
              /*<<map.ml:455:20>>*/  /*<<map.ml:455:20>>*/ caml_call2
               /*<<map.ml:455:20>>*/ (p, v, d),
-          match$0 =  /*<<map.ml:456:25>>*/ partition(p, r),
+          match$0 =
+             /*<<map.ml:456:25>>*/  /*<<map.ml:456:25>>*/ partition
+              /*<<map.ml:456:25>>*/ (p, r),
           rf = match$0[2],
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
-          var _s_ =  /*<<map.ml:458:32>>*/ concat(lf, rf);
-           /*<<map.ml:458:15>>*/ return [0, join(lt, v, d, rt), _s_] /*<<map.ml:458:15>>*/ ;
+          var
+           _s_ =
+              /*<<map.ml:458:32>>*/  /*<<map.ml:458:32>>*/ concat
+               /*<<map.ml:458:32>>*/ (lf, rf);
+           /*<<map.ml:458:15>>*/ return [0,
+                   /*<<map.ml:458:16>>*/ join
+                    /*<<map.ml:458:16>>*/ (lt, v, d, rt),
+                  _s_] /*<<map.ml:458:15>>*/ ;
          }
-         var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
-          /*<<map.ml:459:15>>*/ return [0, concat(lt, rt), _t_] /*<<map.ml:459:15>>*/ ;
+         var
+          _t_ =
+             /*<<map.ml:459:30>>*/  /*<<map.ml:459:30>>*/ join
+              /*<<map.ml:459:30>>*/ (lf, v, d, rf);
+          /*<<map.ml:459:15>>*/ return [0,
+                  /*<<map.ml:459:16>>*/ concat /*<<map.ml:459:16>>*/ (lt, rt),
+                 _t_] /*<<map.ml:459:15>>*/ ;
          /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
          var m$0 = m, e$0 = e;
@@ -13103,8 +14112,12 @@
          /*<<map.ml:466:59>>*/ }
         function compare(cmp, m1, m2){
          var
-          e2$2 =  /*<<map.ml:480:40>>*/ cons_enum(m2, 0),
-          e1$2 =  /*<<map.ml:480:21>>*/ cons_enum(m1, 0),
+          e2$2 =
+             /*<<map.ml:480:40>>*/  /*<<map.ml:480:40>>*/ cons_enum
+              /*<<map.ml:480:40>>*/ (m2, 0),
+          e1$2 =
+             /*<<map.ml:480:21>>*/  /*<<map.ml:480:21>>*/ cons_enum
+              /*<<map.ml:480:21>>*/ (m1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:470:10>>*/ for(;;){
@@ -13131,16 +14144,24 @@
            /*<<map.ml:478:12>>*/ if(0 !== c$0)
             /*<<map.ml:478:27>>*/ return c$0 /*<<map.ml:478:27>>*/ ;
           var
-           e2$1 =  /*<<map.ml:479:42>>*/ cons_enum(r2, e2$0),
-           e1$1 =  /*<<map.ml:479:24>>*/ cons_enum(r1, e1$0);
+           e2$1 =
+              /*<<map.ml:479:42>>*/  /*<<map.ml:479:42>>*/ cons_enum
+               /*<<map.ml:479:42>>*/ (r2, e2$0),
+           e1$1 =
+              /*<<map.ml:479:24>>*/  /*<<map.ml:479:24>>*/ cons_enum
+               /*<<map.ml:479:24>>*/ (r1, e1$0);
           e1 = e1$1;
           e2 = e2$1;
          }
          /*<<map.ml:480:58>>*/ }
         function equal(cmp, m1, m2){
          var
-          e2$2 =  /*<<map.ml:491:38>>*/ cons_enum(m2, 0),
-          e1$2 =  /*<<map.ml:491:19>>*/ cons_enum(m1, 0),
+          e2$2 =
+             /*<<map.ml:491:38>>*/  /*<<map.ml:491:38>>*/ cons_enum
+              /*<<map.ml:491:38>>*/ (m2, 0),
+          e1$2 =
+             /*<<map.ml:491:19>>*/  /*<<map.ml:491:19>>*/ cons_enum
+              /*<<map.ml:491:19>>*/ (m1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:484:10>>*/ for(;;){
@@ -13169,8 +14190,12 @@
                 /*<<map.ml:489:37>>*/ (cmp, d1, d2);
             /*<<map.ml:489:37>>*/ if(_q_){
             var
-             e2$1 =  /*<<map.ml:490:40>>*/ cons_enum(r2, e2$0),
-             e1$1 =  /*<<map.ml:490:22>>*/ cons_enum(r1, e1$0);
+             e2$1 =
+                /*<<map.ml:490:40>>*/  /*<<map.ml:490:40>>*/ cons_enum
+                 /*<<map.ml:490:40>>*/ (r2, e2$0),
+             e1$1 =
+                /*<<map.ml:490:22>>*/  /*<<map.ml:490:22>>*/ cons_enum
+                 /*<<map.ml:490:22>>*/ (r1, e1$0);
             e1 = e1$1;
             e2 = e2$1;
             continue;
@@ -13188,8 +14213,13 @@
          var
           r = param[4],
           l = param[1],
-          _o_ =  /*<<map.ml:495:40>>*/ cardinal(r);
-         return (cardinal(l) + 1 | 0) + _o_ | 0;
+          _o_ =
+             /*<<map.ml:495:40>>*/  /*<<map.ml:495:40>>*/ cardinal
+              /*<<map.ml:495:40>>*/ (r);
+         return ( /*<<map.ml:495:23>>*/ cardinal /*<<map.ml:495:23>>*/ (l) + 1
+                | 0)
+                + _o_
+                | 0;
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
          var accu$0 = accu, param$0 = param;
@@ -13202,20 +14232,25 @@
            v = param$0[2],
            l = param$0[1],
            accu$1 =
-              /*<<map.ml:499:42>>*/ [0, [0, v, d], bindings_aux(accu$0, r)];
+              /*<<map.ml:499:42>>*/ [0,
+              [0, v, d],
+               /*<<map.ml:499:53>>*/ bindings_aux
+                /*<<map.ml:499:53>>*/ (accu$0, r)];
           accu$0 = accu$1;
           param$0 = l;
          }
          /*<<map.ml:499:75>>*/ }
         function bindings(s){
-          /*<<map.ml:502:6>>*/ return bindings_aux(0, s) /*<<map.ml:502:23>>*/ ;
+          /*<<map.ml:502:6>>*/ return  /*<<map.ml:502:6>>*/ bindings_aux
+                  /*<<map.ml:502:6>>*/ (0, s) /*<<map.ml:502:23>>*/ ;
          /*<<map.ml:502:23>>*/ }
         function of_list(bs){
           /*<<map.ml:509:21>>*/ return  /*<<map.ml:509:21>>*/ caml_call3
                   /*<<map.ml:509:21>>*/ (Stdlib_List[26],
                   function(m, param){
                    var v = param[2], k = param[1];
-                    /*<<map.ml:509:53>>*/ return add(k, v, m) /*<<map.ml:509:63>>*/ ;
+                    /*<<map.ml:509:53>>*/ return  /*<<map.ml:509:53>>*/ add
+                            /*<<map.ml:509:53>>*/ (k, v, m) /*<<map.ml:509:63>>*/ ;
                    /*<<map.ml:509:63>>*/ },
                   empty,
                   bs) /*<<map.ml:509:72>>*/ ;
@@ -13225,13 +14260,15 @@
                   /*<<map.ml:512:6>>*/ (Stdlib_Seq[5],
                   function(m, param){
                    var v = param[2], k = param[1];
-                    /*<<map.ml:512:36>>*/ return add(k, v, m) /*<<map.ml:512:46>>*/ ;
+                    /*<<map.ml:512:36>>*/ return  /*<<map.ml:512:36>>*/ add
+                            /*<<map.ml:512:36>>*/ (k, v, m) /*<<map.ml:512:46>>*/ ;
                    /*<<map.ml:512:46>>*/ },
                   m,
                   i) /*<<map.ml:512:50>>*/ ;
          /*<<map.ml:512:50>>*/ }
         function of_seq(i){
-          /*<<map.ml:514:19>>*/ return add_seq(i, empty) /*<<map.ml:514:34>>*/ ;
+          /*<<map.ml:514:19>>*/ return  /*<<map.ml:91:12>>*/ add_seq
+                  /*<<map.ml:91:12>>*/ (i, empty) /*<<map.ml:514:34>>*/ ;
          /*<<map.ml:514:34>>*/ }
         function seq_of_enum(c, param){
           /*<<map.ml:516:32>>*/ if(! c)
@@ -13241,13 +14278,18 @@
           t = c[3],
           v = c[2],
           k = c[1],
-          _m_ =  /*<<map.ml:518:59>>*/ cons_enum(t, rest);
+          _m_ =
+             /*<<map.ml:518:59>>*/  /*<<map.ml:518:59>>*/ cons_enum
+              /*<<map.ml:518:59>>*/ (t, rest);
           /*<<map.ml:518:29>>*/ return [0,
                  [0, k, v],
                  function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}] /*<<map.ml:518:29>>*/ ;
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
-         var _k_ =  /*<<map.ml:521:19>>*/ cons_enum(m, 0);
+         var
+          _k_ =
+             /*<<map.ml:521:19>>*/  /*<<map.ml:521:19>>*/ cons_enum
+              /*<<map.ml:521:19>>*/ (m, 0);
           /*<<map.ml:521:19>>*/ return function(_l_){
            /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:19>>*/ ;
          /*<<map.ml:521:36>>*/ }
@@ -13273,13 +14315,18 @@
           t = c[3],
           v = c[2],
           k = c[1],
-          _i_ =  /*<<map.ml:531:44>>*/ snoc_enum(t, rest);
+          _i_ =
+             /*<<map.ml:531:44>>*/  /*<<map.ml:531:44>>*/ snoc_enum
+              /*<<map.ml:531:44>>*/ (t, rest);
           /*<<map.ml:531:10>>*/ return [0,
                  [0, k, v],
                  function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}] /*<<map.ml:531:10>>*/ ;
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
-         var _g_ =  /*<<map.ml:534:23>>*/ snoc_enum(c, 0);
+         var
+          _g_ =
+             /*<<map.ml:534:23>>*/  /*<<map.ml:534:23>>*/ snoc_enum
+              /*<<map.ml:534:23>>*/ (c, 0);
           /*<<map.ml:534:23>>*/ return function(_h_){
            /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);} /*<<map.ml:534:23>>*/ ;
          /*<<map.ml:534:40>>*/ }
@@ -13475,13 +14522,18 @@
      /*<<stack.ml:65:18>>*/ return  /*<<stack.ml:65:18>>*/ caml_call2
              /*<<stack.ml:65:18>>*/ (Stdlib_Seq[4],
              function(x){
-               /*<<stack.ml:65:37>>*/ return push(x, q) /*<<stack.ml:65:45>>*/ ;
+               /*<<stack.ml:65:37>>*/ return  /*<<stack.ml:63:11>>*/ push
+                       /*<<stack.ml:63:11>>*/ (x, q) /*<<stack.ml:65:45>>*/ ;
               /*<<stack.ml:65:45>>*/ },
              i) /*<<stack.ml:65:48>>*/ ;
     /*<<stack.ml:65:48>>*/ }
    function of_seq(g){
-    var s =  /*<<stack.ml:68:10>>*/ create(0);
-     /*<<stack.ml:69:2>>*/ add_seq(s, g);
+    var
+     s =
+        /*<<stack.ml:68:10>>*/  /*<<stack.ml:68:10>>*/ create
+         /*<<stack.ml:68:10>>*/ (0);
+     /*<<stack.ml:69:2>>*/  /*<<stack.ml:69:2>>*/ add_seq
+      /*<<stack.ml:69:2>>*/ (s, g);
      /*<<stack.ml:69:2>>*/ return s /*<<stack.ml:69:2>>*/ ;
     /*<<stack.ml:70:3>>*/ }
    var
@@ -13578,7 +14630,8 @@
      q[2] = next;
       /*<<queue.ml:80:4>>*/ return content /*<<queue.ml:80:4>>*/ ;
     }
-     /*<<queue.ml:75:4>>*/ clear(q);
+     /*<<queue.ml:75:4>>*/  /*<<queue.ml:75:4>>*/ clear
+      /*<<queue.ml:75:4>>*/ (q);
      /*<<queue.ml:75:4>>*/ return content /*<<queue.ml:75:4>>*/ ;
     /*<<queue.ml:80:11>>*/ }
    function take_opt(q){
@@ -13591,7 +14644,8 @@
      q[2] = next;
       /*<<queue.ml:91:4>>*/ return [0, content] /*<<queue.ml:91:4>>*/ ;
     }
-     /*<<queue.ml:86:4>>*/ clear(q);
+     /*<<queue.ml:86:4>>*/  /*<<queue.ml:86:4>>*/ clear
+      /*<<queue.ml:86:4>>*/ (q);
      /*<<queue.ml:87:4>>*/ return [0, content] /*<<queue.ml:87:4>>*/ ;
     /*<<queue.ml:91:16>>*/ }
    function copy(q){
@@ -13657,8 +14711,13 @@
               = q2[1] + q1[1] | 0,
               match[2] = q1[2],
               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:148:6>>*/ clear /*<<queue.ml:148:6>>*/ (q1))
+            : (q2
+               [1]
+              = q1[1],
+              q2[2] = q1[2],
+              q2[3] = q1[3],
+               /*<<queue.ml:143:6>>*/ clear /*<<queue.ml:143:6>>*/ (q1)) /*<<queue.ml:148:14>>*/ ;
     /*<<queue.ml:148:14>>*/ }
    function to_seq(q){
     function aux(c, param){
@@ -13677,13 +14736,18 @@
      /*<<queue.ml:159:18>>*/ return  /*<<queue.ml:159:18>>*/ caml_call2
              /*<<queue.ml:159:18>>*/ (Stdlib_Seq[4],
              function(x){
-               /*<<queue.ml:159:37>>*/ return add(x, q) /*<<queue.ml:159:45>>*/ ;
+               /*<<queue.ml:159:37>>*/ return  /*<<queue.ml:152:11>>*/ add
+                       /*<<queue.ml:152:11>>*/ (x, q) /*<<queue.ml:159:45>>*/ ;
               /*<<queue.ml:159:45>>*/ },
              i) /*<<queue.ml:159:48>>*/ ;
     /*<<queue.ml:159:48>>*/ }
    function of_seq(g){
-    var q =  /*<<queue.ml:162:10>>*/ create(0);
-     /*<<queue.ml:163:2>>*/ add_seq(q, g);
+    var
+     q =
+        /*<<queue.ml:162:10>>*/  /*<<queue.ml:162:10>>*/ create
+         /*<<queue.ml:162:10>>*/ (0);
+     /*<<queue.ml:163:2>>*/  /*<<queue.ml:163:2>>*/ add_seq
+      /*<<queue.ml:163:2>>*/ (q, g);
      /*<<queue.ml:163:2>>*/ return q /*<<queue.ml:163:2>>*/ ;
     /*<<queue.ml:164:3>>*/ }
    var
@@ -13879,7 +14943,8 @@
      length = match[2],
      buffer = match[1];
     if(length <= pos){
-      /*<<buffer.ml:116:4>>*/ resize(b, 1);
+      /*<<buffer.ml:116:4>>*/  /*<<buffer.ml:116:4>>*/ resize
+       /*<<buffer.ml:116:4>>*/ (b, 1);
       /*<<buffer.ml:117:4>>*/  /*<<buffer.ml:117:4>>*/ caml_bytes_set
        /*<<buffer.ml:117:4>>*/ (b[1][1], b[2], c);
     }
@@ -13899,39 +14964,45 @@
      /*<<buffer.ml:126:2>>*/ for(;;){
      var pos = b[2];
      if(b[1][2] <= pos)
-       /*<<buffer.ml:127:32>>*/ resize(b, uchar_utf_8_byte_length_max);
+       /*<<buffer.ml:127:32>>*/  /*<<buffer.ml:127:32>>*/ resize
+        /*<<buffer.ml:127:32>>*/ (b, uchar_utf_8_byte_length_max);
      var
       n =
          /*<<buffer.ml:128:10>>*/  /*<<buffer.ml:128:10>>*/ caml_call3
           /*<<buffer.ml:128:10>>*/ (Stdlib_Bytes[51], b[1][1], pos, u);
       /*<<buffer.ml:129:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
-      /*<<buffer.ml:130:8>>*/ resize(b, uchar_utf_8_byte_length_max);
+      /*<<buffer.ml:130:8>>*/  /*<<buffer.ml:130:8>>*/ resize
+       /*<<buffer.ml:130:8>>*/ (b, uchar_utf_8_byte_length_max);
     }
     /*<<buffer.ml:131:30>>*/ }
    function add_utf_16be_uchar(b, u){
      /*<<buffer.ml:134:2>>*/ for(;;){
      var pos = b[2];
      if(b[1][2] <= pos)
-       /*<<buffer.ml:135:32>>*/ resize(b, uchar_utf_16_byte_length_max);
+       /*<<buffer.ml:135:32>>*/  /*<<buffer.ml:135:32>>*/ resize
+        /*<<buffer.ml:135:32>>*/ (b, uchar_utf_16_byte_length_max);
      var
       n =
          /*<<buffer.ml:136:10>>*/  /*<<buffer.ml:136:10>>*/ caml_call3
           /*<<buffer.ml:136:10>>*/ (Stdlib_Bytes[54], b[1][1], pos, u);
       /*<<buffer.ml:137:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
-      /*<<buffer.ml:138:8>>*/ resize(b, uchar_utf_16_byte_length_max);
+      /*<<buffer.ml:138:8>>*/  /*<<buffer.ml:138:8>>*/ resize
+       /*<<buffer.ml:138:8>>*/ (b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:139:30>>*/ }
    function add_utf_16le_uchar(b, u){
      /*<<buffer.ml:142:2>>*/ for(;;){
      var pos = b[2];
      if(b[1][2] <= pos)
-       /*<<buffer.ml:143:32>>*/ resize(b, uchar_utf_16_byte_length_max);
+       /*<<buffer.ml:143:32>>*/  /*<<buffer.ml:143:32>>*/ resize
+        /*<<buffer.ml:143:32>>*/ (b, uchar_utf_16_byte_length_max);
      var
       n =
          /*<<buffer.ml:144:10>>*/  /*<<buffer.ml:144:10>>*/ caml_call3
           /*<<buffer.ml:144:10>>*/ (Stdlib_Bytes[57], b[1][1], pos, u);
       /*<<buffer.ml:145:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
-      /*<<buffer.ml:146:8>>*/ resize(b, uchar_utf_16_byte_length_max);
+      /*<<buffer.ml:146:8>>*/  /*<<buffer.ml:146:8>>*/ resize
+       /*<<buffer.ml:146:8>>*/ (b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:147:30>>*/ }
    function add_substring(b, s, offset, len){
@@ -13952,7 +15023,8 @@
      buffer = match[1],
      new_position = position + len | 0;
     if(length < new_position){
-      /*<<buffer.ml:156:4>>*/ resize(b, len);
+      /*<<buffer.ml:156:4>>*/  /*<<buffer.ml:156:4>>*/ resize
+       /*<<buffer.ml:156:4>>*/ (b, len);
       /*<<buffer.ml:157:4>>*/  /*<<buffer.ml:157:4>>*/ caml_call5
        /*<<buffer.ml:157:4>>*/ (Stdlib_Bytes[12],
        s,
@@ -13968,8 +15040,8 @@
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
-     /*<<buffer.ml:163:2>>*/ return add_substring
-            (b,
+     /*<<buffer.ml:163:2>>*/ return  /*<<buffer.ml:163:2>>*/ add_substring
+             /*<<buffer.ml:163:2>>*/ (b,
               /*<<buffer.ml:163:18>>*/ caml_call1
                /*<<buffer.ml:163:18>>*/ (Stdlib_Bytes[44], s),
              offset,
@@ -13984,7 +15056,8 @@
      buffer = match[1],
      new_position = position + len | 0;
     if(length < new_position){
-      /*<<buffer.ml:171:4>>*/ resize(b, len);
+      /*<<buffer.ml:171:4>>*/  /*<<buffer.ml:171:4>>*/ resize
+       /*<<buffer.ml:171:4>>*/ (b, len);
       /*<<buffer.ml:172:4>>*/  /*<<buffer.ml:172:4>>*/ caml_call5
        /*<<buffer.ml:172:4>>*/ (Stdlib_Bytes[12], s, 0, b[1][1], b[2], len);
     }
@@ -13995,13 +15068,14 @@
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
-     /*<<buffer.ml:177:20>>*/ return add_string
-            (b,
+     /*<<buffer.ml:177:20>>*/ return  /*<<buffer.ml:177:33>>*/ add_string
+             /*<<buffer.ml:177:33>>*/ (b,
               /*<<buffer.ml:177:33>>*/ caml_call1
                /*<<buffer.ml:177:33>>*/ (Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
     /*<<buffer.ml:177:59>>*/ }
    function add_buffer(b, bs){
-     /*<<buffer.ml:180:2>>*/ return add_subbytes(b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
+     /*<<buffer.ml:180:2>>*/ return  /*<<buffer.ml:177:14>>*/ add_subbytes
+             /*<<buffer.ml:177:14>>*/ (b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
     /*<<buffer.ml:180:46>>*/ }
    function add_channel(b, ic, to_read$1){
     var
@@ -14011,7 +15085,8 @@
       /*<<buffer.ml:207:4>>*/  /*<<buffer.ml:207:4>>*/ caml_call1
        /*<<buffer.ml:207:4>>*/ (Stdlib[1], cst_Buffer_add_channel);
     if(b[1][2] < (b[2] + to_read$1 | 0))
-      /*<<buffer.ml:200:44>>*/ resize(b, to_read$1);
+      /*<<buffer.ml:200:44>>*/  /*<<buffer.ml:200:44>>*/ resize
+       /*<<buffer.ml:200:44>>*/ (b, to_read$1);
     var
      ofs$1 = b[2],
      buf = b[1][1],
@@ -14051,7 +15126,10 @@
      /*<<buffer.ml:263:4>>*/ for(;;){
      if(i$4 >= lim$1){
       var _o_ = 92 === previous ? 1 : 0;
-      return _o_ ? add_char(b, previous) : _o_ /*<<buffer.ml:284:13>>*/ ;
+      return _o_
+              ?  /*<<buffer.ml:283:28>>*/ add_char
+                 /*<<buffer.ml:283:28>>*/ (b, previous)
+              : _o_ /*<<buffer.ml:284:13>>*/ ;
      }
      var
       previous$0 =
@@ -14059,7 +15137,8 @@
           /*<<buffer.ml:264:12>>*/ (s, i$4);
      if(36 === previous$0)
       if(92 === previous){
-        /*<<buffer.ml:266:9>>*/ add_char(b, previous$0);
+        /*<<buffer.ml:266:9>>*/  /*<<buffer.ml:266:9>>*/ add_char
+         /*<<buffer.ml:266:9>>*/ (b, previous$0);
        var i$5 =  /*<<buffer.ml:266:9>>*/ i$4 + 1 | 0;
        previous = 32;
        i$4 = i$5;
@@ -14172,22 +15251,27 @@
        catch(_p_){
         var _n_ = caml_wrap_exception(_p_);
         if(_n_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_n_, 0);
-         /*<<buffer.ml:275:11>>*/ add_char(b, 36);
+         /*<<buffer.ml:275:11>>*/  /*<<buffer.ml:275:11>>*/ add_char
+          /*<<buffer.ml:275:11>>*/ (b, 36);
         previous = 32;
         i$4 = start;
         continue;
        }
        var next_i = val[2], ident = val[1];
-        /*<<buffer.ml:272:11>>*/ add_string
-        (b,
+        /*<<buffer.ml:272:11>>*/  /*<<buffer.ml:272:11>>*/ add_string
+         /*<<buffer.ml:272:11>>*/ (b,
           /*<<buffer.ml:272:24>>*/ caml_call1
            /*<<buffer.ml:272:24>>*/ (f, ident));
        previous = 32;
        i$4 = next_i;
       }
      else{
-      if(92 === previous)  /*<<buffer.ml:279:33>>*/ add_char(b, previous);
-      if(92 !== previous$0)  /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
+      if(92 === previous)
+        /*<<buffer.ml:279:33>>*/  /*<<buffer.ml:279:33>>*/ add_char
+         /*<<buffer.ml:279:33>>*/ (b, previous);
+      if(92 !== previous$0)
+        /*<<buffer.ml:280:33>>*/  /*<<buffer.ml:280:33>>*/ add_char
+         /*<<buffer.ml:280:33>>*/ (b, previous$0);
       var i$6 =  /*<<buffer.ml:280:33>>*/ i$4 + 1 | 0;
       previous = previous$0;
       i$4 = i$6;
@@ -14240,8 +15324,12 @@
              seq) /*<<buffer.ml:314:45>>*/ ;
     /*<<buffer.ml:314:45>>*/ }
    function of_seq(i){
-    var b =  /*<<buffer.ml:317:10>>*/ create(32);
-     /*<<buffer.ml:318:2>>*/ add_seq(b, i);
+    var
+     b =
+        /*<<buffer.ml:317:10>>*/  /*<<buffer.ml:317:10>>*/ create
+         /*<<buffer.ml:317:10>>*/ (32);
+     /*<<buffer.ml:318:2>>*/  /*<<buffer.ml:318:2>>*/ add_seq
+      /*<<buffer.ml:318:2>>*/ (b, i);
      /*<<buffer.ml:318:2>>*/ return b /*<<buffer.ml:318:2>>*/ ;
     /*<<buffer.ml:319:3>>*/ }
    function add_int8(b, x){
@@ -14252,7 +15340,8 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:340:2>>*/ position + 1 | 0;
     if(length < new_position){
-      /*<<buffer.ml:342:4>>*/ resize(b, 1);
+      /*<<buffer.ml:342:4>>*/  /*<<buffer.ml:342:4>>*/ resize
+       /*<<buffer.ml:342:4>>*/ (b, 1);
       /*<<buffer.ml:343:4>>*/  /*<<buffer.ml:343:4>>*/ caml_bytes_set
        /*<<buffer.ml:343:4>>*/ (b[1][1], b[2], x);
     }
@@ -14269,7 +15358,8 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:351:2>>*/ position + 2 | 0;
     if(length < new_position){
-      /*<<buffer.ml:353:4>>*/ resize(b, 2);
+      /*<<buffer.ml:353:4>>*/  /*<<buffer.ml:353:4>>*/ resize
+       /*<<buffer.ml:353:4>>*/ (b, 2);
       /*<<buffer.ml:354:4>>*/  /*<<buffer.ml:354:4>>*/ caml_bytes_set16
        /*<<buffer.ml:354:4>>*/ (b[1][1], b[2], x);
     }
@@ -14287,7 +15377,8 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:362:2>>*/ position + 4 | 0;
     if(length < new_position){
-      /*<<buffer.ml:364:4>>*/ resize(b, 4);
+      /*<<buffer.ml:364:4>>*/  /*<<buffer.ml:364:4>>*/ resize
+       /*<<buffer.ml:364:4>>*/ (b, 4);
       /*<<buffer.ml:365:4>>*/  /*<<buffer.ml:365:4>>*/ caml_bytes_set32
        /*<<buffer.ml:365:4>>*/ (b[1][1], b[2], x);
     }
@@ -14305,7 +15396,8 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:373:2>>*/ position + 8 | 0;
     if(length < new_position){
-      /*<<buffer.ml:375:4>>*/ resize(b, 8);
+      /*<<buffer.ml:375:4>>*/  /*<<buffer.ml:375:4>>*/ resize
+       /*<<buffer.ml:375:4>>*/ (b, 8);
       /*<<buffer.ml:376:4>>*/  /*<<buffer.ml:376:4>>*/ caml_bytes_set64
        /*<<buffer.ml:376:4>>*/ (b[1][1], b[2], x);
     }
@@ -14317,11 +15409,13 @@
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
     var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
-     /*<<buffer.ml:370:17>>*/ return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
+     /*<<buffer.ml:370:17>>*/ return  /*<<buffer.ml:370:17>>*/ add_int16_ne
+             /*<<buffer.ml:370:17>>*/ (b, _d_) /*<<buffer.ml:382:57>>*/ ;
     /*<<buffer.ml:382:57>>*/ }
    function add_int16_be(b, x){
     var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
-     /*<<buffer.ml:385:41>>*/ return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
+     /*<<buffer.ml:385:41>>*/ return  /*<<buffer.ml:385:41>>*/ add_int16_ne
+             /*<<buffer.ml:385:41>>*/ (b, x$0) /*<<buffer.ml:385:57>>*/ ;
     /*<<buffer.ml:385:57>>*/ }
    function add_int32_le(b, x){
     var
@@ -14330,7 +15424,8 @@
         ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap
            /*<<buffer.ml:388:41>>*/ (x)
         : x;
-     /*<<buffer.ml:388:41>>*/ return add_int32_ne(b, _c_) /*<<buffer.ml:388:57>>*/ ;
+     /*<<buffer.ml:388:41>>*/ return  /*<<buffer.ml:388:41>>*/ add_int32_ne
+             /*<<buffer.ml:388:41>>*/ (b, _c_) /*<<buffer.ml:388:57>>*/ ;
     /*<<buffer.ml:388:57>>*/ }
    function add_int32_be(b, x){
     var
@@ -14339,7 +15434,8 @@
         ? x
         :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap
            /*<<buffer.ml:391:48>>*/ (x);
-     /*<<buffer.ml:391:48>>*/ return add_int32_ne(b, x$0) /*<<buffer.ml:391:57>>*/ ;
+     /*<<buffer.ml:391:48>>*/ return  /*<<buffer.ml:391:48>>*/ add_int32_ne
+             /*<<buffer.ml:391:48>>*/ (b, x$0) /*<<buffer.ml:391:57>>*/ ;
     /*<<buffer.ml:391:57>>*/ }
    function add_int64_le(b, x){
     var
@@ -14348,7 +15444,8 @@
         ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap
            /*<<buffer.ml:394:41>>*/ (x)
         : x;
-     /*<<buffer.ml:394:41>>*/ return add_int64_ne(b, _b_) /*<<buffer.ml:394:57>>*/ ;
+     /*<<buffer.ml:394:41>>*/ return  /*<<buffer.ml:394:41>>*/ add_int64_ne
+             /*<<buffer.ml:394:41>>*/ (b, _b_) /*<<buffer.ml:394:57>>*/ ;
     /*<<buffer.ml:394:57>>*/ }
    function add_int64_be(b, x){
     var
@@ -14357,7 +15454,8 @@
         ? x
         :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap
            /*<<buffer.ml:397:48>>*/ (x);
-     /*<<buffer.ml:397:48>>*/ return add_int64_ne(b, x$0) /*<<buffer.ml:397:57>>*/ ;
+     /*<<buffer.ml:397:48>>*/ return  /*<<buffer.ml:397:48>>*/ add_int64_ne
+             /*<<buffer.ml:397:48>>*/ (b, x$0) /*<<buffer.ml:397:57>>*/ ;
     /*<<buffer.ml:397:57>>*/ }
    var
     Stdlib_Buffer =
@@ -14670,7 +15768,8 @@
      /*<<domain.ml:90:4>>*/  /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set
       /*<<domain.ml:90:4>>*/ (st);
     /*<<domain.ml:90:20>>*/ }
-    /*<<domain.ml:92:10>>*/ create_dls(0);
+    /*<<domain.ml:92:10>>*/  /*<<domain.ml:92:10>>*/ create_dls
+     /*<<domain.ml:92:10>>*/ (0);
    var
     key_counter =
        /*<<domain.ml:96:20>>*/  /*<<domain.ml:96:20>>*/ caml_call1
@@ -14734,7 +15833,11 @@
     }
     /*<<domain.ml:139:7>>*/ }
    function set(param, x){
-    var idx = param[1], st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
+    var
+     idx = param[1],
+     st =
+        /*<<domain.ml:142:13>>*/  /*<<domain.ml:142:13>>*/ maybe_grow
+         /*<<domain.ml:142:13>>*/ (idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
      /*<<domain.ml:146:4>>*/ return 0 /*<<domain.ml:146:4>>*/ ;
     /*<<domain.ml:146:52>>*/ }
@@ -14742,7 +15845,9 @@
     var
      init = param[2],
      idx = param[1],
-     st =  /*<<domain.ml:159:13>>*/ maybe_grow(idx),
+     st =
+        /*<<domain.ml:159:13>>*/  /*<<domain.ml:159:13>>*/ maybe_grow
+         /*<<domain.ml:159:13>>*/ (idx),
      oldval =  /*<<domain.ml:160:14>>*/ caml_check_bound(st, idx)[1 + idx];
      /*<<domain.ml:161:7>>*/ if(oldval !== none)
       /*<<domain.ml:75:25>>*/ return oldval /*<<domain.ml:75:25>>*/ ;
@@ -14810,24 +15915,31 @@
     /*<<domain.ml:221:5>>*/ }
    var
     at_exit_key =
-       /*<<domain.ml:231:18>>*/ new_key
-       (0,
+       /*<<domain.ml:231:18>>*/  /*<<domain.ml:231:18>>*/ new_key
+        /*<<domain.ml:231:18>>*/ (0,
         function(param){
           /*<<domain.ml:231:41>>*/ return function(param){
            /*<<domain.ml:231:52>>*/ return 0 /*<<domain.ml:231:52>>*/ ; /*<<domain.ml:231:54>>*/ } /*<<domain.ml:231:41>>*/ ;
          /*<<domain.ml:231:55>>*/ });
    function at_exit(f){
-    var old_exit =  /*<<domain.ml:234:32>>*/ get(at_exit_key);
+    var
+     old_exit =
+        /*<<domain.ml:234:32>>*/  /*<<domain.ml:234:32>>*/ get
+         /*<<domain.ml:234:32>>*/ (at_exit_key);
     function new_exit(param){
       /*<<domain.ml:236:4>>*/  /*<<domain.ml:236:4>>*/ caml_call1
        /*<<domain.ml:236:4>>*/ (f, 0);
       /*<<domain.ml:236:4>>*/ return  /*<<domain.ml:236:4>>*/ caml_call1
               /*<<domain.ml:236:4>>*/ (old_exit, 0) /*<<domain.ml:236:21>>*/ ;
      /*<<domain.ml:236:21>>*/ }
-     /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit) /*<<domain.ml:238:30>>*/ ;
+     /*<<domain.ml:238:2>>*/ return  /*<<domain.ml:238:2>>*/ set
+             /*<<domain.ml:238:2>>*/ (at_exit_key, new_exit) /*<<domain.ml:238:30>>*/ ;
     /*<<domain.ml:238:30>>*/ }
    function do_at_exit(param){
-    var f =  /*<<domain.ml:241:25>>*/ get(at_exit_key);
+    var
+     f =
+        /*<<domain.ml:241:25>>*/  /*<<domain.ml:241:25>>*/ get
+         /*<<domain.ml:241:25>>*/ (at_exit_key);
      /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1
              /*<<domain.ml:242:2>>*/ (f, 0) /*<<domain.ml:242:6>>*/ ;
     /*<<domain.ml:242:6>>*/ }
@@ -14859,7 +15971,8 @@
            /*<<domain.ml:192:30>>*/ return [0,
                   k,
                    /*<<domain.ml:192:37>>*/ caml_call1
-                    /*<<domain.ml:192:37>>*/ (split, get(k))] /*<<domain.ml:192:30>>*/ ;
+                    /*<<domain.ml:192:37>>*/ (split,
+                     /*<<domain.ml:192:44>>*/ get /*<<domain.ml:192:44>>*/ (k))] /*<<domain.ml:192:30>>*/ ;
           /*<<domain.ml:192:54>>*/ },
          _b_),
      _c_ =
@@ -14873,12 +15986,14 @@
         _c_];
     function body(param){
       /*<<domain.ml:260:4>>*/ try{
-       /*<<domain.ml:261:6>>*/ create_dls(0);
+       /*<<domain.ml:261:6>>*/  /*<<domain.ml:261:6>>*/ create_dls
+        /*<<domain.ml:261:6>>*/ (0);
        /*<<domain.ml:196:4>>*/  /*<<domain.ml:196:4>>*/ caml_call2
         /*<<domain.ml:196:4>>*/ (Stdlib_List[18],
         function(param){
          var v = param[2], k = param[1];
-          /*<<domain.ml:196:34>>*/ return set(k, v) /*<<domain.ml:196:42>>*/ ;
+          /*<<domain.ml:196:34>>*/ return  /*<<domain.ml:196:34>>*/ set
+                  /*<<domain.ml:196:34>>*/ (k, v) /*<<domain.ml:196:42>>*/ ;
          /*<<domain.ml:196:42>>*/ },
         pk);
       var
@@ -14888,12 +16003,16 @@
      }
      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:278:8>>*/ try{
+        /*<<domain.ml:278:13>>*/  /*<<domain.ml:278:13>>*/ do_at_exit
+         /*<<domain.ml:278:13>>*/ (0);
+      }
       catch(_d_){}
        /*<<domain.ml:279:8>>*/ throw  /*<<domain.ml:279:8>>*/ caml_maybe_attach_backtrace
               /*<<domain.ml:279:8>>*/ (exn, 0);
      }
-      /*<<domain.ml:272:8>>*/ do_at_exit(0);
+      /*<<domain.ml:272:8>>*/  /*<<domain.ml:272:8>>*/ do_at_exit
+       /*<<domain.ml:272:8>>*/ (0);
       /*<<domain.ml:272:8>>*/ return res /*<<domain.ml:272:8>>*/ ;
      /*<<domain.ml:279:17>>*/ }
     var
@@ -15124,7 +16243,9 @@
     /*<<camlinternalFormat.ml:34:26>>*/ }
    function rev_char_set(char_set){
     var
-     char_set$0 =  /*<<camlinternalFormat.ml:38:18>>*/ create_char_set(0),
+     char_set$0 =
+        /*<<camlinternalFormat.ml:38:18>>*/  /*<<camlinternalFormat.ml:38:18>>*/ create_char_set
+         /*<<camlinternalFormat.ml:38:18>>*/ (0),
      i = 0;
     for(;;){
      var
@@ -15177,27 +16298,53 @@
       case 0:
        var pad_opt = ign[1];
         /*<<camlinternalFormat.ml:82:4>>*/ return [0,
-               [2, pad_of_pad_opt(pad_opt), fmt]] /*<<camlinternalFormat.ml:82:4>>*/ ;
+               [2,
+                 /*<<camlinternalFormat.ml:82:30>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:82:30>>*/ (pad_opt),
+                fmt]] /*<<camlinternalFormat.ml:82:4>>*/ ;
       case 1:
        var pad_opt$0 = ign[1];
         /*<<camlinternalFormat.ml:84:4>>*/ return [0,
-               [3, pad_of_pad_opt(pad_opt$0), fmt]] /*<<camlinternalFormat.ml:84:4>>*/ ;
+               [3,
+                 /*<<camlinternalFormat.ml:84:35>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:84:35>>*/ (pad_opt$0),
+                fmt]] /*<<camlinternalFormat.ml:84:4>>*/ ;
       case 2:
        var pad_opt$1 = ign[2], iconv = ign[1];
         /*<<camlinternalFormat.ml:86:4>>*/ return [0,
-               [4, iconv, pad_of_pad_opt(pad_opt$1), 0, fmt]] /*<<camlinternalFormat.ml:86:4>>*/ ;
+               [4,
+                iconv,
+                 /*<<camlinternalFormat.ml:86:34>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:86:34>>*/ (pad_opt$1),
+                0,
+                fmt]] /*<<camlinternalFormat.ml:86:4>>*/ ;
       case 3:
        var pad_opt$2 = ign[2], iconv$0 = ign[1];
         /*<<camlinternalFormat.ml:88:4>>*/ return [0,
-               [5, iconv$0, pad_of_pad_opt(pad_opt$2), 0, fmt]] /*<<camlinternalFormat.ml:88:4>>*/ ;
+               [5,
+                iconv$0,
+                 /*<<camlinternalFormat.ml:89:21>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:89:21>>*/ (pad_opt$2),
+                0,
+                fmt]] /*<<camlinternalFormat.ml:88:4>>*/ ;
       case 4:
        var pad_opt$3 = ign[2], iconv$1 = ign[1];
         /*<<camlinternalFormat.ml:91:4>>*/ return [0,
-               [6, iconv$1, pad_of_pad_opt(pad_opt$3), 0, fmt]] /*<<camlinternalFormat.ml:91:4>>*/ ;
+               [6,
+                iconv$1,
+                 /*<<camlinternalFormat.ml:92:25>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:92:25>>*/ (pad_opt$3),
+                0,
+                fmt]] /*<<camlinternalFormat.ml:91:4>>*/ ;
       case 5:
        var pad_opt$4 = ign[2], iconv$2 = ign[1];
         /*<<camlinternalFormat.ml:94:4>>*/ return [0,
-               [7, iconv$2, pad_of_pad_opt(pad_opt$4), 0, fmt]] /*<<camlinternalFormat.ml:94:4>>*/ ;
+               [7,
+                iconv$2,
+                 /*<<camlinternalFormat.ml:95:21>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:95:21>>*/ (pad_opt$4),
+                0,
+                fmt]] /*<<camlinternalFormat.ml:94:4>>*/ ;
       case 6:
        var prec_opt = ign[2], pad_opt$5 = ign[1];
        if(prec_opt)
@@ -15205,11 +16352,19 @@
        else
         var _cR_ = 0;
         /*<<camlinternalFormat.ml:97:4>>*/ return [0,
-               [8, _a_, pad_of_pad_opt(pad_opt$5), _cR_, fmt]] /*<<camlinternalFormat.ml:97:4>>*/ ;
+               [8,
+                _a_,
+                 /*<<camlinternalFormat.ml:99:14>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:99:14>>*/ (pad_opt$5),
+                _cR_,
+                fmt]] /*<<camlinternalFormat.ml:97:4>>*/ ;
       case 7:
        var pad_opt$6 = ign[1];
         /*<<camlinternalFormat.ml:101:4>>*/ return [0,
-               [9, pad_of_pad_opt(pad_opt$6), fmt]] /*<<camlinternalFormat.ml:101:4>>*/ ;
+               [9,
+                 /*<<camlinternalFormat.ml:101:28>>*/ pad_of_pad_opt
+                  /*<<camlinternalFormat.ml:101:28>>*/ (pad_opt$6),
+                fmt]] /*<<camlinternalFormat.ml:101:4>>*/ ;
       case 8:
        var fmtty = ign[2], pad_opt$7 = ign[1];
         /*<<camlinternalFormat.ml:103:4>>*/ return [0,
@@ -15261,14 +16416,16 @@
     }
     /*<<camlinternalFormat.ml:267:3>>*/ }
    function buffer_add_char(buf, c){
-     /*<<camlinternalFormat.ml:271:2>>*/ buffer_check_size(buf, 1);
+     /*<<camlinternalFormat.ml:271:2>>*/  /*<<camlinternalFormat.ml:271:2>>*/ buffer_check_size
+      /*<<camlinternalFormat.ml:271:2>>*/ (buf, 1);
      /*<<camlinternalFormat.ml:272:2>>*/  /*<<camlinternalFormat.ml:272:2>>*/ caml_bytes_set
       /*<<camlinternalFormat.ml:272:2>>*/ (buf[2], buf[1], c);
     buf[1] = buf[1] + 1 | 0;
     /*<<camlinternalFormat.ml:273:24>>*/ }
    function buffer_add_string(buf, s){
     var str_len = caml_ml_string_length(s);
-     /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size(buf, str_len);
+     /*<<camlinternalFormat.ml:278:2>>*/  /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size
+      /*<<camlinternalFormat.ml:278:2>>*/ (buf, str_len);
      /*<<camlinternalFormat.ml:279:2>>*/  /*<<camlinternalFormat.ml:279:2>>*/ caml_call5
       /*<<camlinternalFormat.ml:279:2>>*/ (Stdlib_String[6],
       s,
@@ -15331,24 +16488,27 @@
    function bprint_padty(buf, padty){
      /*<<camlinternalFormat.ml:374:29>>*/ switch(padty){
       case 0:
-        /*<<camlinternalFormat.ml:375:13>>*/ return buffer_add_char(buf, 45) /*<<camlinternalFormat.ml:377:36>>*/ ;
+        /*<<camlinternalFormat.ml:375:13>>*/ return  /*<<camlinternalFormat.ml:375:13>>*/ buffer_add_char
+                /*<<camlinternalFormat.ml:375:13>>*/ (buf, 45) /*<<camlinternalFormat.ml:377:36>>*/ ;
       case 1:
         /*<<camlinternalFormat.ml:376:13>>*/ return /*<<camlinternalFormat.ml:376:13>>*/ ;
       default:
-        /*<<camlinternalFormat.ml:377:13>>*/ return buffer_add_char(buf, 48) /*<<camlinternalFormat.ml:377:36>>*/ ;
+        /*<<camlinternalFormat.ml:377:13>>*/ return  /*<<camlinternalFormat.ml:377:13>>*/ buffer_add_char
+                /*<<camlinternalFormat.ml:377:13>>*/ (buf, 48) /*<<camlinternalFormat.ml:377:36>>*/ ;
     }
     /*<<camlinternalFormat.ml:377:36>>*/ }
    function bprint_ignored_flag(buf, ign_flag){
      /*<<camlinternalFormat.ml:381:2>>*/ return ign_flag
-            ? buffer_add_char(buf, 95)
+            ?  /*<<camlinternalFormat.ml:381:19>>*/ buffer_add_char
+               /*<<camlinternalFormat.ml:381:19>>*/ (buf, 95)
             : ign_flag /*<<camlinternalFormat.ml:381:42>>*/ ;
     /*<<camlinternalFormat.ml:381:42>>*/ }
    function bprint_pad_opt(buf, pad_opt){
      /*<<camlinternalFormat.ml:385:33>>*/ if(! pad_opt)
       /*<<camlinternalFormat.ml:386:12>>*/ return /*<<camlinternalFormat.ml:386:12>>*/ ;
     var width = pad_opt[1];
-     /*<<camlinternalFormat.ml:387:40>>*/ return buffer_add_string
-            (buf,
+     /*<<camlinternalFormat.ml:387:40>>*/ return  /*<<camlinternalFormat.ml:387:40>>*/ buffer_add_string
+             /*<<camlinternalFormat.ml:387:40>>*/ (buf,
               /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
                /*<<camlinternalFormat.ml:387:40>>*/ (Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
     /*<<camlinternalFormat.ml:387:61>>*/ }
@@ -15357,66 +16517,87 @@
       /*<<camlinternalFormat.ml:394:18>>*/ return /*<<camlinternalFormat.ml:394:18>>*/ ;
     if(0 === pad[0]){
      var n = pad[2], padty = pad[1];
-      /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty(buf, padty);
-      /*<<camlinternalFormat.ml:397:26>>*/ return buffer_add_string
-             (buf,
+      /*<<camlinternalFormat.ml:396:4>>*/  /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty
+       /*<<camlinternalFormat.ml:396:4>>*/ (buf, padty);
+      /*<<camlinternalFormat.ml:397:26>>*/ return  /*<<camlinternalFormat.ml:397:26>>*/ buffer_add_string
+              /*<<camlinternalFormat.ml:397:26>>*/ (buf,
                /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
                 /*<<camlinternalFormat.ml:397:26>>*/ (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
     }
     var padty$0 = pad[1];
-     /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty(buf, padty$0);
-     /*<<camlinternalFormat.ml:399:4>>*/ return buffer_add_char(buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
+     /*<<camlinternalFormat.ml:399:4>>*/  /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty
+      /*<<camlinternalFormat.ml:399:4>>*/ (buf, padty$0);
+     /*<<camlinternalFormat.ml:399:4>>*/ return  /*<<camlinternalFormat.ml:399:4>>*/ buffer_add_char
+             /*<<camlinternalFormat.ml:399:4>>*/ (buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
     /*<<camlinternalFormat.ml:400:27>>*/ }
    function bprint_precision(buf, prec){
      /*<<camlinternalFormat.ml:404:18>>*/ if(typeof prec !== "number"){
      var n = prec[1];
-      /*<<camlinternalFormat.ml:407:4>>*/ buffer_add_char(buf, 46);
-      /*<<camlinternalFormat.ml:408:26>>*/ return buffer_add_string
-             (buf,
+      /*<<camlinternalFormat.ml:407:4>>*/  /*<<camlinternalFormat.ml:407:4>>*/ buffer_add_char
+       /*<<camlinternalFormat.ml:407:4>>*/ (buf, 46);
+      /*<<camlinternalFormat.ml:408:26>>*/ return  /*<<camlinternalFormat.ml:408:26>>*/ buffer_add_string
+              /*<<camlinternalFormat.ml:408:26>>*/ (buf,
                /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
                 /*<<camlinternalFormat.ml:408:26>>*/ (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
     }
     if(prec)
-      /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
+      /*<<camlinternalFormat.ml:410:4>>*/ return  /*<<camlinternalFormat.ml:410:4>>*/ buffer_add_string
+              /*<<camlinternalFormat.ml:410:4>>*/ (buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
     /*<<camlinternalFormat.ml:410:30>>*/ }
    function bprint_iconv_flag(buf, iconv){
      /*<<camlinternalFormat.ml:415:34>>*/ switch(iconv){
       case 1:
       case 4:
-        /*<<camlinternalFormat.ml:416:23>>*/ return buffer_add_char(buf, 43) /*<<camlinternalFormat.ml:420:55>>*/ ;
+        /*<<camlinternalFormat.ml:416:23>>*/ return  /*<<camlinternalFormat.ml:416:23>>*/ buffer_add_char
+                /*<<camlinternalFormat.ml:416:23>>*/ (buf, 43) /*<<camlinternalFormat.ml:420:55>>*/ ;
       case 2:
       case 5:
-        /*<<camlinternalFormat.ml:417:23>>*/ return buffer_add_char(buf, 32) /*<<camlinternalFormat.ml:420:55>>*/ ;
+        /*<<camlinternalFormat.ml:417:23>>*/ return  /*<<camlinternalFormat.ml:417:23>>*/ buffer_add_char
+                /*<<camlinternalFormat.ml:417:23>>*/ (buf, 32) /*<<camlinternalFormat.ml:420:55>>*/ ;
       case 7:
       case 9:
       case 11:
       case 13:
       case 14:
       case 15:
-        /*<<camlinternalFormat.ml:419:6>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:420:55>>*/ ;
+        /*<<camlinternalFormat.ml:419:6>>*/ return  /*<<camlinternalFormat.ml:419:6>>*/ buffer_add_char
+                /*<<camlinternalFormat.ml:419:6>>*/ (buf, 35) /*<<camlinternalFormat.ml:420:55>>*/ ;
       default:
         /*<<camlinternalFormat.ml:420:53>>*/ return /*<<camlinternalFormat.ml:420:53>>*/ ;
     }
     /*<<camlinternalFormat.ml:420:55>>*/ }
    function bprint_altint_fmt(buf, ign_flag, iconv, pad, prec, c){
-     /*<<camlinternalFormat.ml:433:2>>*/ buffer_add_char(buf, 37);
-     /*<<camlinternalFormat.ml:434:2>>*/ bprint_ignored_flag(buf, ign_flag);
-     /*<<camlinternalFormat.ml:435:2>>*/ bprint_iconv_flag(buf, iconv);
-     /*<<camlinternalFormat.ml:436:2>>*/ bprint_padding(buf, pad);
-     /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision(buf, prec);
-     /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char(buf, c);
-     /*<<camlinternalFormat.ml:439:22>>*/ return buffer_add_char
-            (buf, char_of_iconv(iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
+     /*<<camlinternalFormat.ml:433:2>>*/  /*<<camlinternalFormat.ml:433:2>>*/ buffer_add_char
+      /*<<camlinternalFormat.ml:433:2>>*/ (buf, 37);
+     /*<<camlinternalFormat.ml:434:2>>*/  /*<<camlinternalFormat.ml:434:2>>*/ bprint_ignored_flag
+      /*<<camlinternalFormat.ml:434:2>>*/ (buf, ign_flag);
+     /*<<camlinternalFormat.ml:435:2>>*/  /*<<camlinternalFormat.ml:435:2>>*/ bprint_iconv_flag
+      /*<<camlinternalFormat.ml:435:2>>*/ (buf, iconv);
+     /*<<camlinternalFormat.ml:436:2>>*/  /*<<camlinternalFormat.ml:436:2>>*/ bprint_padding
+      /*<<camlinternalFormat.ml:436:2>>*/ (buf, pad);
+     /*<<camlinternalFormat.ml:437:2>>*/  /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision
+      /*<<camlinternalFormat.ml:437:2>>*/ (buf, prec);
+     /*<<camlinternalFormat.ml:438:2>>*/  /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char
+      /*<<camlinternalFormat.ml:438:2>>*/ (buf, c);
+     /*<<camlinternalFormat.ml:439:22>>*/ return  /*<<camlinternalFormat.ml:439:22>>*/ buffer_add_char
+             /*<<camlinternalFormat.ml:439:22>>*/ (buf,
+              /*<<camlinternalFormat.ml:439:22>>*/ char_of_iconv
+               /*<<camlinternalFormat.ml:439:22>>*/ (iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
     /*<<camlinternalFormat.ml:439:43>>*/ }
    function bprint_fconv_flag(buf, fconv){
      /*<<camlinternalFormat.ml:445:2>>*/ switch(fconv[1]){
       case 0: break;
       case 1:
-        /*<<camlinternalFormat.ml:446:20>>*/ buffer_add_char(buf, 43); break;
-      default:  /*<<camlinternalFormat.ml:447:20>>*/ buffer_add_char(buf, 32);
+        /*<<camlinternalFormat.ml:446:20>>*/  /*<<camlinternalFormat.ml:446:20>>*/ buffer_add_char
+         /*<<camlinternalFormat.ml:446:20>>*/ (buf, 43);
+       break;
+      default:
+        /*<<camlinternalFormat.ml:447:20>>*/  /*<<camlinternalFormat.ml:447:20>>*/ buffer_add_char
+         /*<<camlinternalFormat.ml:447:20>>*/ (buf, 32);
     }
     if(8 <= fconv[2])
-      /*<<camlinternalFormat.ml:450:16>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:452:37>>*/ ;
+      /*<<camlinternalFormat.ml:450:16>>*/ return  /*<<camlinternalFormat.ml:450:16>>*/ buffer_add_char
+              /*<<camlinternalFormat.ml:450:16>>*/ (buf, 35) /*<<camlinternalFormat.ml:452:37>>*/ ;
     /*<<camlinternalFormat.ml:452:37>>*/ }
    function string_of_formatting_lit(formatting_lit){
      /*<<camlinternalFormat.ml:465:46>>*/ if
@@ -15456,8 +16637,10 @@
     /*<<camlinternalFormat.ml:475:43>>*/ }
    function bprint_char_literal(buf, chr){
      /*<<camlinternalFormat.ml:480:34>>*/ return 37 === chr
-            ? buffer_add_string(buf, cst$8)
-            : buffer_add_char(buf, chr) /*<<camlinternalFormat.ml:482:32>>*/ ;
+            ?  /*<<camlinternalFormat.ml:481:11>>*/ buffer_add_string
+               /*<<camlinternalFormat.ml:481:11>>*/ (buf, cst$8)
+            :  /*<<camlinternalFormat.ml:482:9>>*/ buffer_add_char
+               /*<<camlinternalFormat.ml:482:9>>*/ (buf, chr) /*<<camlinternalFormat.ml:482:32>>*/ ;
     /*<<camlinternalFormat.ml:482:32>>*/ }
    function bprint_string_literal(buf, str){
     var
@@ -15466,8 +16649,8 @@
     if(_cO_ >= 0){
      var i = _cN_;
      for(;;){
-       /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
-       (buf,
+       /*<<camlinternalFormat.ml:487:4>>*/  /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
+        /*<<camlinternalFormat.ml:487:4>>*/ (buf,
          /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get
           /*<<camlinternalFormat.ml:487:28>>*/ (str, i));
       var _cP_ =  /*<<camlinternalFormat.ml:487:4>>*/ i + 1 | 0;
@@ -15484,81 +16667,100 @@
      switch(fmtty$0[0]){
        case 0:
         var fmtty$1 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:497:25>>*/ buffer_add_string(buf, cst_c);
+         /*<<camlinternalFormat.ml:497:25>>*/  /*<<camlinternalFormat.ml:497:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:497:25>>*/ (buf, cst_c);
         fmtty$0 = fmtty$1;
         break;
        case 1:
         var fmtty$2 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:498:25>>*/ buffer_add_string(buf, cst_s);
+         /*<<camlinternalFormat.ml:498:25>>*/  /*<<camlinternalFormat.ml:498:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:498:25>>*/ (buf, cst_s);
         fmtty$0 = fmtty$2;
         break;
        case 2:
         var fmtty$3 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:499:25>>*/ buffer_add_string(buf, cst_i);
+         /*<<camlinternalFormat.ml:499:25>>*/  /*<<camlinternalFormat.ml:499:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:499:25>>*/ (buf, cst_i);
         fmtty$0 = fmtty$3;
         break;
        case 3:
         var fmtty$4 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:500:25>>*/ buffer_add_string(buf, cst_li);
+         /*<<camlinternalFormat.ml:500:25>>*/  /*<<camlinternalFormat.ml:500:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:500:25>>*/ (buf, cst_li);
         fmtty$0 = fmtty$4;
         break;
        case 4:
         var fmtty$5 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:501:25>>*/ buffer_add_string(buf, cst_ni);
+         /*<<camlinternalFormat.ml:501:25>>*/  /*<<camlinternalFormat.ml:501:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:501:25>>*/ (buf, cst_ni);
         fmtty$0 = fmtty$5;
         break;
        case 5:
         var fmtty$6 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:502:25>>*/ buffer_add_string(buf, cst_Li);
+         /*<<camlinternalFormat.ml:502:25>>*/  /*<<camlinternalFormat.ml:502:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:502:25>>*/ (buf, cst_Li);
         fmtty$0 = fmtty$6;
         break;
        case 6:
         var fmtty$7 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:503:25>>*/ buffer_add_string(buf, cst_f);
+         /*<<camlinternalFormat.ml:503:25>>*/  /*<<camlinternalFormat.ml:503:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:503:25>>*/ (buf, cst_f);
         fmtty$0 = fmtty$7;
         break;
        case 7:
         var fmtty$8 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:504:25>>*/ buffer_add_string(buf, cst_B);
+         /*<<camlinternalFormat.ml:504:25>>*/  /*<<camlinternalFormat.ml:504:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:504:25>>*/ (buf, cst_B);
         fmtty$0 = fmtty$8;
         break;
        case 8:
         var fmtty$9 = fmtty$0[2], sub_fmtty = fmtty$0[1];
-         /*<<camlinternalFormat.ml:515:4>>*/ buffer_add_string(buf, cst$9);
-         /*<<camlinternalFormat.ml:515:32>>*/ bprint_fmtty(buf, sub_fmtty);
-         /*<<camlinternalFormat.ml:516:4>>*/ buffer_add_string(buf, cst$10);
+         /*<<camlinternalFormat.ml:515:4>>*/  /*<<camlinternalFormat.ml:515:4>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:515:4>>*/ (buf, cst$9);
+         /*<<camlinternalFormat.ml:515:32>>*/  /*<<camlinternalFormat.ml:515:32>>*/ bprint_fmtty
+          /*<<camlinternalFormat.ml:515:32>>*/ (buf, sub_fmtty);
+         /*<<camlinternalFormat.ml:516:4>>*/  /*<<camlinternalFormat.ml:516:4>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:516:4>>*/ (buf, cst$10);
         fmtty$0 = fmtty$9;
         break;
        case 9:
         var fmtty$10 = fmtty$0[3], sub_fmtty$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:518:4>>*/ buffer_add_string(buf, cst$11);
-         /*<<camlinternalFormat.ml:518:32>>*/ bprint_fmtty(buf, sub_fmtty$0);
-         /*<<camlinternalFormat.ml:519:4>>*/ buffer_add_string(buf, cst$12);
+         /*<<camlinternalFormat.ml:518:4>>*/  /*<<camlinternalFormat.ml:518:4>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:518:4>>*/ (buf, cst$11);
+         /*<<camlinternalFormat.ml:518:32>>*/  /*<<camlinternalFormat.ml:518:32>>*/ bprint_fmtty
+          /*<<camlinternalFormat.ml:518:32>>*/ (buf, sub_fmtty$0);
+         /*<<camlinternalFormat.ml:519:4>>*/  /*<<camlinternalFormat.ml:519:4>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:519:4>>*/ (buf, cst$12);
         fmtty$0 = fmtty$10;
         break;
        case 10:
         var fmtty$11 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:505:25>>*/ buffer_add_string(buf, cst_a);
+         /*<<camlinternalFormat.ml:505:25>>*/  /*<<camlinternalFormat.ml:505:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:505:25>>*/ (buf, cst_a);
         fmtty$0 = fmtty$11;
         break;
        case 11:
         var fmtty$12 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:506:25>>*/ buffer_add_string(buf, cst_t);
+         /*<<camlinternalFormat.ml:506:25>>*/  /*<<camlinternalFormat.ml:506:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:506:25>>*/ (buf, cst_t);
         fmtty$0 = fmtty$12;
         break;
        case 12:
         var fmtty$13 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:507:25>>*/ buffer_add_string(buf, cst$13);
+         /*<<camlinternalFormat.ml:507:25>>*/  /*<<camlinternalFormat.ml:507:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:507:25>>*/ (buf, cst$13);
         fmtty$0 = fmtty$13;
         break;
        case 13:
         var fmtty$14 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:508:25>>*/ buffer_add_string(buf, cst_r);
+         /*<<camlinternalFormat.ml:508:25>>*/  /*<<camlinternalFormat.ml:508:25>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:508:25>>*/ (buf, cst_r);
         fmtty$0 = fmtty$14;
         break;
        default:
         var fmtty$15 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:511:4>>*/ buffer_add_string(buf, cst_r$0);
+         /*<<camlinternalFormat.ml:511:4>>*/  /*<<camlinternalFormat.ml:511:4>>*/ buffer_add_string
+          /*<<camlinternalFormat.ml:511:4>>*/ (buf, cst_r$0);
         fmtty$0 = fmtty$15;
      }
     }
@@ -15567,10 +16769,17 @@
      /*<<camlinternalFormat.ml:525:8>>*/ if(! param)
       /*<<camlinternalFormat.ml:528:19>>*/ return 0 /*<<camlinternalFormat.ml:528:19>>*/ ;
     var x = param[1];
-    return 1 + int_of_custom_arity(x) | 0;
+    return 1
+           +
+             /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity
+              /*<<camlinternalFormat.ml:529:25>>*/ (x)
+           | 0;
     /*<<camlinternalFormat.ml:529:46>>*/ }
    function string_of_fmt(fmt){
-    var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
+    var
+     buf =
+        /*<<camlinternalFormat.ml:644:12>>*/  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create
+         /*<<camlinternalFormat.ml:644:12>>*/ (16);
     function fmtiter(fmt, ign_flag){
      var fmt$0 = fmt, ign_flag$0 = ign_flag;
       /*<<camlinternalFormat.ml:535:22>>*/ for(;;){
@@ -15579,39 +16788,49 @@
       switch(fmt$0[0]){
         case 0:
          var rest = fmt$0[1];
-          /*<<camlinternalFormat.ml:562:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:562:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:563:6>>*/ buffer_add_char(buf, 99);
+          /*<<camlinternalFormat.ml:562:6>>*/  /*<<camlinternalFormat.ml:562:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:562:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:562:31>>*/  /*<<camlinternalFormat.ml:562:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:562:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:563:6>>*/  /*<<camlinternalFormat.ml:563:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:563:6>>*/ (buf, 99);
          fmt$0 = rest;
          ign_flag$0 = 0;
          break;
         case 1:
          var rest$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:565:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:565:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:566:6>>*/ buffer_add_char(buf, 67);
+          /*<<camlinternalFormat.ml:565:6>>*/  /*<<camlinternalFormat.ml:565:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:565:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:565:31>>*/  /*<<camlinternalFormat.ml:565:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:565:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:566:6>>*/  /*<<camlinternalFormat.ml:566:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:566:6>>*/ (buf, 67);
          fmt$0 = rest$0;
          ign_flag$0 = 0;
          break;
         case 2:
          var rest$1 = fmt$0[2], pad = fmt$0[1];
-          /*<<camlinternalFormat.ml:537:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:537:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:538:6>>*/ bprint_padding(buf, pad);
-          /*<<camlinternalFormat.ml:538:30>>*/ buffer_add_char(buf, 115);
+          /*<<camlinternalFormat.ml:537:6>>*/  /*<<camlinternalFormat.ml:537:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:537:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:537:31>>*/  /*<<camlinternalFormat.ml:537:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:537:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:538:6>>*/  /*<<camlinternalFormat.ml:538:6>>*/ bprint_padding
+           /*<<camlinternalFormat.ml:538:6>>*/ (buf, pad);
+          /*<<camlinternalFormat.ml:538:30>>*/  /*<<camlinternalFormat.ml:538:30>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:538:30>>*/ (buf, 115);
          fmt$0 = rest$1;
          ign_flag$0 = 0;
          break;
         case 3:
          var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:541:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:541:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:542:6>>*/ bprint_padding(buf, pad$0);
-          /*<<camlinternalFormat.ml:542:30>>*/ buffer_add_char(buf, 83);
+          /*<<camlinternalFormat.ml:541:6>>*/  /*<<camlinternalFormat.ml:541:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:541:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:541:31>>*/  /*<<camlinternalFormat.ml:541:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:541:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:542:6>>*/  /*<<camlinternalFormat.ml:542:6>>*/ bprint_padding
+           /*<<camlinternalFormat.ml:542:6>>*/ (buf, pad$0);
+          /*<<camlinternalFormat.ml:542:30>>*/  /*<<camlinternalFormat.ml:542:30>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:542:30>>*/ (buf, 83);
          fmt$0 = rest$2;
          ign_flag$0 = 0;
          break;
@@ -15621,14 +16840,20 @@
           prec = fmt$0[3],
           pad$1 = fmt$0[2],
           iconv = fmt$0[1];
-          /*<<camlinternalFormat.ml:424:2>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:425:2>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:426:2>>*/ bprint_iconv_flag(buf, iconv);
-          /*<<camlinternalFormat.ml:427:2>>*/ bprint_padding(buf, pad$1);
-          /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision(buf, prec);
-          /*<<camlinternalFormat.ml:429:22>>*/ buffer_add_char
-          (buf, char_of_iconv(iconv));
+          /*<<camlinternalFormat.ml:424:2>>*/  /*<<camlinternalFormat.ml:424:2>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:424:2>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:425:2>>*/  /*<<camlinternalFormat.ml:425:2>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:425:2>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:426:2>>*/  /*<<camlinternalFormat.ml:426:2>>*/ bprint_iconv_flag
+           /*<<camlinternalFormat.ml:426:2>>*/ (buf, iconv);
+          /*<<camlinternalFormat.ml:427:2>>*/  /*<<camlinternalFormat.ml:427:2>>*/ bprint_padding
+           /*<<camlinternalFormat.ml:427:2>>*/ (buf, pad$1);
+          /*<<camlinternalFormat.ml:428:2>>*/  /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision
+           /*<<camlinternalFormat.ml:428:2>>*/ (buf, prec);
+          /*<<camlinternalFormat.ml:429:22>>*/  /*<<camlinternalFormat.ml:429:22>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:429:22>>*/ (buf,
+            /*<<camlinternalFormat.ml:429:22>>*/ char_of_iconv
+             /*<<camlinternalFormat.ml:429:22>>*/ (iconv));
          fmt$0 = rest$3;
          ign_flag$0 = 0;
          break;
@@ -15638,8 +16863,13 @@
           prec$0 = fmt$0[3],
           pad$2 = fmt$0[2],
           iconv$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:549:6>>*/ bprint_altint_fmt
-          (buf, ign_flag$0, iconv$0, pad$2, prec$0, 108);
+          /*<<camlinternalFormat.ml:549:6>>*/  /*<<camlinternalFormat.ml:549:6>>*/ bprint_altint_fmt
+           /*<<camlinternalFormat.ml:549:6>>*/ (buf,
+           ign_flag$0,
+           iconv$0,
+           pad$2,
+           prec$0,
+           108);
          fmt$0 = rest$4;
          ign_flag$0 = 0;
          break;
@@ -15649,8 +16879,13 @@
           prec$1 = fmt$0[3],
           pad$3 = fmt$0[2],
           iconv$1 = fmt$0[1];
-          /*<<camlinternalFormat.ml:552:6>>*/ bprint_altint_fmt
-          (buf, ign_flag$0, iconv$1, pad$3, prec$1, 110);
+          /*<<camlinternalFormat.ml:552:6>>*/  /*<<camlinternalFormat.ml:552:6>>*/ bprint_altint_fmt
+           /*<<camlinternalFormat.ml:552:6>>*/ (buf,
+           ign_flag$0,
+           iconv$1,
+           pad$3,
+           prec$1,
+           110);
          fmt$0 = rest$5;
          ign_flag$0 = 0;
          break;
@@ -15660,8 +16895,13 @@
           prec$2 = fmt$0[3],
           pad$4 = fmt$0[2],
           iconv$2 = fmt$0[1];
-          /*<<camlinternalFormat.ml:555:6>>*/ bprint_altint_fmt
-          (buf, ign_flag$0, iconv$2, pad$4, prec$2, 76);
+          /*<<camlinternalFormat.ml:555:6>>*/  /*<<camlinternalFormat.ml:555:6>>*/ bprint_altint_fmt
+           /*<<camlinternalFormat.ml:555:6>>*/ (buf,
+           ign_flag$0,
+           iconv$2,
+           pad$4,
+           prec$2,
+           76);
          fmt$0 = rest$6;
          ign_flag$0 = 0;
          break;
@@ -15671,121 +16911,159 @@
           prec$3 = fmt$0[3],
           pad$5 = fmt$0[2],
           fconv = fmt$0[1];
-          /*<<camlinternalFormat.ml:456:2>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:457:2>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:458:2>>*/ bprint_fconv_flag(buf, fconv);
-          /*<<camlinternalFormat.ml:459:2>>*/ bprint_padding(buf, pad$5);
-          /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision(buf, prec$3);
-          /*<<camlinternalFormat.ml:461:22>>*/ buffer_add_char
-          (buf, char_of_fconv(0, fconv));
+          /*<<camlinternalFormat.ml:456:2>>*/  /*<<camlinternalFormat.ml:456:2>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:456:2>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:457:2>>*/  /*<<camlinternalFormat.ml:457:2>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:457:2>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:458:2>>*/  /*<<camlinternalFormat.ml:458:2>>*/ bprint_fconv_flag
+           /*<<camlinternalFormat.ml:458:2>>*/ (buf, fconv);
+          /*<<camlinternalFormat.ml:459:2>>*/  /*<<camlinternalFormat.ml:459:2>>*/ bprint_padding
+           /*<<camlinternalFormat.ml:459:2>>*/ (buf, pad$5);
+          /*<<camlinternalFormat.ml:460:2>>*/  /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision
+           /*<<camlinternalFormat.ml:460:2>>*/ (buf, prec$3);
+          /*<<camlinternalFormat.ml:461:22>>*/  /*<<camlinternalFormat.ml:461:22>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:461:22>>*/ (buf,
+            /*<<camlinternalFormat.ml:461:22>>*/ char_of_fconv
+             /*<<camlinternalFormat.ml:461:22>>*/ (0, fconv));
          fmt$0 = rest$7;
          ign_flag$0 = 0;
          break;
         case 9:
          var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
-          /*<<camlinternalFormat.ml:568:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:568:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:569:6>>*/ bprint_padding(buf, pad$6);
-          /*<<camlinternalFormat.ml:569:30>>*/ buffer_add_char(buf, 66);
+          /*<<camlinternalFormat.ml:568:6>>*/  /*<<camlinternalFormat.ml:568:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:568:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:568:31>>*/  /*<<camlinternalFormat.ml:568:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:568:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:569:6>>*/  /*<<camlinternalFormat.ml:569:6>>*/ bprint_padding
+           /*<<camlinternalFormat.ml:569:6>>*/ (buf, pad$6);
+          /*<<camlinternalFormat.ml:569:30>>*/  /*<<camlinternalFormat.ml:569:30>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:569:30>>*/ (buf, 66);
          fmt$0 = rest$8;
          ign_flag$0 = 0;
          break;
         case 10:
          var rest$9 = fmt$0[1];
-          /*<<camlinternalFormat.ml:587:6>>*/ buffer_add_string(buf, cst$14);
+          /*<<camlinternalFormat.ml:587:6>>*/  /*<<camlinternalFormat.ml:587:6>>*/ buffer_add_string
+           /*<<camlinternalFormat.ml:587:6>>*/ (buf, cst$14);
          fmt$0 = rest$9;
          break;
         case 11:
          var rest$10 = fmt$0[2], str = fmt$0[1];
-          /*<<camlinternalFormat.ml:591:6>>*/ bprint_string_literal(buf, str);
+          /*<<camlinternalFormat.ml:591:6>>*/  /*<<camlinternalFormat.ml:591:6>>*/ bprint_string_literal
+           /*<<camlinternalFormat.ml:591:6>>*/ (buf, str);
          fmt$0 = rest$10;
          break;
         case 12:
          var rest$11 = fmt$0[2], chr = fmt$0[1];
-          /*<<camlinternalFormat.ml:594:6>>*/ bprint_char_literal(buf, chr);
+          /*<<camlinternalFormat.ml:594:6>>*/  /*<<camlinternalFormat.ml:594:6>>*/ bprint_char_literal
+           /*<<camlinternalFormat.ml:594:6>>*/ (buf, chr);
          fmt$0 = rest$11;
          break;
         case 13:
          var rest$12 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
-          /*<<camlinternalFormat.ml:598:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:598:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:599:6>>*/ bprint_pad_opt(buf, pad_opt);
-          /*<<camlinternalFormat.ml:599:34>>*/ buffer_add_char(buf, 123);
-          /*<<camlinternalFormat.ml:600:6>>*/ bprint_fmtty(buf, fmtty);
-          /*<<camlinternalFormat.ml:600:30>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:600:55>>*/ buffer_add_char(buf, 125);
+          /*<<camlinternalFormat.ml:598:6>>*/  /*<<camlinternalFormat.ml:598:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:598:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:598:31>>*/  /*<<camlinternalFormat.ml:598:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:598:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:599:6>>*/  /*<<camlinternalFormat.ml:599:6>>*/ bprint_pad_opt
+           /*<<camlinternalFormat.ml:599:6>>*/ (buf, pad_opt);
+          /*<<camlinternalFormat.ml:599:34>>*/  /*<<camlinternalFormat.ml:599:34>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:599:34>>*/ (buf, 123);
+          /*<<camlinternalFormat.ml:600:6>>*/  /*<<camlinternalFormat.ml:600:6>>*/ bprint_fmtty
+           /*<<camlinternalFormat.ml:600:6>>*/ (buf, fmtty);
+          /*<<camlinternalFormat.ml:600:30>>*/  /*<<camlinternalFormat.ml:600:30>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:600:30>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:600:55>>*/  /*<<camlinternalFormat.ml:600:55>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:600:55>>*/ (buf, 125);
          fmt$0 = rest$12;
          ign_flag$0 = 0;
          break;
         case 14:
          var rest$13 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:603:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:603:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:604:6>>*/ bprint_pad_opt(buf, pad_opt$0);
-          /*<<camlinternalFormat.ml:604:34>>*/ buffer_add_char(buf, 40);
-          /*<<camlinternalFormat.ml:605:6>>*/ bprint_fmtty(buf, fmtty$0);
-          /*<<camlinternalFormat.ml:605:30>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:605:55>>*/ buffer_add_char(buf, 41);
+          /*<<camlinternalFormat.ml:603:6>>*/  /*<<camlinternalFormat.ml:603:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:603:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:603:31>>*/  /*<<camlinternalFormat.ml:603:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:603:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:604:6>>*/  /*<<camlinternalFormat.ml:604:6>>*/ bprint_pad_opt
+           /*<<camlinternalFormat.ml:604:6>>*/ (buf, pad_opt$0);
+          /*<<camlinternalFormat.ml:604:34>>*/  /*<<camlinternalFormat.ml:604:34>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:604:34>>*/ (buf, 40);
+          /*<<camlinternalFormat.ml:605:6>>*/  /*<<camlinternalFormat.ml:605:6>>*/ bprint_fmtty
+           /*<<camlinternalFormat.ml:605:6>>*/ (buf, fmtty$0);
+          /*<<camlinternalFormat.ml:605:30>>*/  /*<<camlinternalFormat.ml:605:30>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:605:30>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:605:55>>*/  /*<<camlinternalFormat.ml:605:55>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:605:55>>*/ (buf, 41);
          fmt$0 = rest$13;
          ign_flag$0 = 0;
          break;
         case 15:
          var rest$14 = fmt$0[1];
-          /*<<camlinternalFormat.ml:572:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:572:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:573:6>>*/ buffer_add_char(buf, 97);
+          /*<<camlinternalFormat.ml:572:6>>*/  /*<<camlinternalFormat.ml:572:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:572:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:572:31>>*/  /*<<camlinternalFormat.ml:572:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:572:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:573:6>>*/  /*<<camlinternalFormat.ml:573:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:573:6>>*/ (buf, 97);
          fmt$0 = rest$14;
          ign_flag$0 = 0;
          break;
         case 16:
          var rest$15 = fmt$0[1];
-          /*<<camlinternalFormat.ml:575:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:575:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:576:6>>*/ buffer_add_char(buf, 116);
+          /*<<camlinternalFormat.ml:575:6>>*/  /*<<camlinternalFormat.ml:575:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:575:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:575:31>>*/  /*<<camlinternalFormat.ml:575:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:575:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:576:6>>*/  /*<<camlinternalFormat.ml:576:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:576:6>>*/ (buf, 116);
          fmt$0 = rest$15;
          ign_flag$0 = 0;
          break;
         case 17:
          var rest$16 = fmt$0[2], fmting_lit = fmt$0[1];
-          /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
-          (buf, string_of_formatting_lit(fmting_lit));
+          /*<<camlinternalFormat.ml:625:6>>*/  /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
+           /*<<camlinternalFormat.ml:625:6>>*/ (buf,
+            /*<<camlinternalFormat.ml:625:32>>*/ string_of_formatting_lit
+             /*<<camlinternalFormat.ml:625:32>>*/ (fmting_lit));
          fmt$0 = rest$16;
          break;
         case 18:
          var rest$17 = fmt$0[2], fmting_gen = fmt$0[1];
           /*<<camlinternalFormat.ml:628:6>>*/ if(0 === fmting_gen[0]){
           var str$0 = fmting_gen[1][2];
-           /*<<camlinternalFormat.ml:630:8>>*/ buffer_add_string(buf, cst$15);
-           /*<<camlinternalFormat.ml:630:36>>*/ buffer_add_string(buf, str$0);
+           /*<<camlinternalFormat.ml:630:8>>*/  /*<<camlinternalFormat.ml:630:8>>*/ buffer_add_string
+            /*<<camlinternalFormat.ml:630:8>>*/ (buf, cst$15);
+           /*<<camlinternalFormat.ml:630:36>>*/  /*<<camlinternalFormat.ml:630:36>>*/ buffer_add_string
+            /*<<camlinternalFormat.ml:630:36>>*/ (buf, str$0);
          }
          else{
           var str$1 = fmting_gen[1][2];
-           /*<<camlinternalFormat.ml:632:8>>*/ buffer_add_string(buf, cst$16);
-           /*<<camlinternalFormat.ml:632:36>>*/ buffer_add_string(buf, str$1);
+           /*<<camlinternalFormat.ml:632:8>>*/  /*<<camlinternalFormat.ml:632:8>>*/ buffer_add_string
+            /*<<camlinternalFormat.ml:632:8>>*/ (buf, cst$16);
+           /*<<camlinternalFormat.ml:632:36>>*/  /*<<camlinternalFormat.ml:632:36>>*/ buffer_add_string
+            /*<<camlinternalFormat.ml:632:36>>*/ (buf, str$1);
          }
          fmt$0 = rest$17;
          break;
         case 19:
          var rest$18 = fmt$0[1];
-          /*<<camlinternalFormat.ml:584:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:584:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:585:6>>*/ buffer_add_char(buf, 114);
+          /*<<camlinternalFormat.ml:584:6>>*/  /*<<camlinternalFormat.ml:584:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:584:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:584:31>>*/  /*<<camlinternalFormat.ml:584:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:584:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:585:6>>*/  /*<<camlinternalFormat.ml:585:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:585:6>>*/ (buf, 114);
          fmt$0 = rest$18;
          ign_flag$0 = 0;
          break;
         case 20:
          var rest$19 = fmt$0[3], char_set = fmt$0[2], width_opt = fmt$0[1];
-          /*<<camlinternalFormat.ml:609:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:609:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:610:6>>*/ bprint_pad_opt(buf, width_opt);
+          /*<<camlinternalFormat.ml:609:6>>*/  /*<<camlinternalFormat.ml:609:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:609:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:609:31>>*/  /*<<camlinternalFormat.ml:609:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:609:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:610:6>>*/  /*<<camlinternalFormat.ml:610:6>>*/ bprint_pad_opt
+           /*<<camlinternalFormat.ml:610:6>>*/ (buf, width_opt);
          var
           print_char =
             function(buf, i){
@@ -15794,17 +17072,29 @@
                  /*<<camlinternalFormat.ml:358:31>>*/  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
                   /*<<camlinternalFormat.ml:358:31>>*/ (Stdlib[29], i);
              return 37 === c
-                     ? (buffer_add_char(buf, 37), buffer_add_char(buf, 37))
+                     ? ( /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char
+                         /*<<camlinternalFormat.ml:359:13>>*/ (buf, 37),
+                        /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char
+                         /*<<camlinternalFormat.ml:359:13>>*/ (buf, 37))
                      : 64
                        === c
-                       ? (buffer_add_char(buf, 37), buffer_add_char(buf, 64))
-                       : buffer_add_char(buf, c) /*<<camlinternalFormat.ml:361:35>>*/ ;
+                       ? ( /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char
+                           /*<<camlinternalFormat.ml:360:13>>*/ (buf, 37),
+                          /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char
+                           /*<<camlinternalFormat.ml:360:13>>*/ (buf, 64))
+                       :  /*<<camlinternalFormat.ml:361:13>>*/ buffer_add_char
+                          /*<<camlinternalFormat.ml:361:13>>*/ (buf, c) /*<<camlinternalFormat.ml:361:35>>*/ ;
              /*<<camlinternalFormat.ml:361:35>>*/ };
-          /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
+          /*<<camlinternalFormat.ml:363:2>>*/  /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:363:2>>*/ (buf, 91);
          var
           set =
-             /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set(char_set, 0)
-             ? (buffer_add_char(buf, 94), rev_char_set(char_set))
+             /*<<camlinternalFormat.ml:365:7>>*/  /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set
+               /*<<camlinternalFormat.ml:365:7>>*/ (char_set, 0)
+             ? ( /*<<camlinternalFormat.ml:366:11>>*/ buffer_add_char
+                 /*<<camlinternalFormat.ml:366:11>>*/ (buf, 94),
+                /*<<camlinternalFormat.ml:366:36>>*/ rev_char_set
+                 /*<<camlinternalFormat.ml:366:36>>*/ (char_set))
              : char_set;
          let set$0 = set;
          var
@@ -15820,23 +17110,28 @@
                   /*<<camlinternalFormat.ml:316:32>>*/ (Stdlib_Char[1],
                   c - 1 | 0),
               _cJ_ =
-                 /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set(set$0, c);
+                 /*<<camlinternalFormat.ml:317:6>>*/  /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set
+                  /*<<camlinternalFormat.ml:317:6>>*/ (set$0, c);
               /*<<camlinternalFormat.ml:317:6>>*/ if(_cJ_)
               var
                _cK_ =
-                  /*<<camlinternalFormat.ml:318:14>>*/ is_in_char_set
-                  (set$0, before),
+                  /*<<camlinternalFormat.ml:318:14>>*/  /*<<camlinternalFormat.ml:318:14>>*/ is_in_char_set
+                   /*<<camlinternalFormat.ml:318:14>>*/ (set$0, before),
                _cL_ =
                   /*<<camlinternalFormat.ml:318:14>>*/ _cK_
-                  ? is_in_char_set(set$0, after)
+                  ?  /*<<camlinternalFormat.ml:318:43>>*/ is_in_char_set
+                     /*<<camlinternalFormat.ml:318:43>>*/ (set$0, after)
                   : _cK_,
                _cM_ = 1 - _cL_;
              else
               var _cM_ = _cJ_;
               /*<<camlinternalFormat.ml:318:43>>*/ return _cM_ /*<<camlinternalFormat.ml:318:43>>*/ ;
              /*<<camlinternalFormat.ml:318:68>>*/ };
-          /*<<camlinternalFormat.ml:319:7>>*/ if(is_alone(93))
-           /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char(buf, 93);
+          /*<<camlinternalFormat.ml:319:7>>*/ if
+          ( /*<<camlinternalFormat.ml:319:7>>*/ is_alone
+             /*<<camlinternalFormat.ml:319:7>>*/ (93))
+           /*<<camlinternalFormat.ml:319:25>>*/  /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char
+            /*<<camlinternalFormat.ml:319:25>>*/ (buf, 93);
          a:
          b:
          {
@@ -15848,8 +17143,8 @@
              /*<<camlinternalFormat.ml:323:4>>*/ for(;;){
              if(i >= 256) break;
               /*<<camlinternalFormat.ml:324:9>>*/ if
-              (is_in_char_set
-                (set,
+              ( /*<<camlinternalFormat.ml:324:9>>*/ is_in_char_set
+                 /*<<camlinternalFormat.ml:324:9>>*/ (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
                    /*<<camlinternalFormat.ml:324:28>>*/ (Stdlib[29], i))){
               var
@@ -15868,8 +17163,8 @@
               }
               var i$1 =  /*<<camlinternalFormat.ml:330:11>>*/ i + 1 | 0;
                /*<<camlinternalFormat.ml:332:7>>*/ if
-               (is_in_char_set
-                 (set,
+               ( /*<<camlinternalFormat.ml:332:7>>*/ is_in_char_set
+                  /*<<camlinternalFormat.ml:332:7>>*/ (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
                     /*<<camlinternalFormat.ml:332:26>>*/ (Stdlib[29], i$1))){
                var
@@ -15885,20 +17180,20 @@
                 (46 < switcher$0 - 1 >>> 0
                  &&
                   !
-                  is_in_char_set
-                   (set,
+                   /*<<camlinternalFormat.ml:337:27>>*/ is_in_char_set
+                    /*<<camlinternalFormat.ml:337:27>>*/ (set,
                      /*<<camlinternalFormat.ml:337:47>>*/ caml_call1
                       /*<<camlinternalFormat.ml:337:47>>*/ (Stdlib[29],
                       i$1 + 1 | 0))){
-                 /*<<camlinternalFormat.ml:338:8>>*/ print_char
-                 (buf, i$1 - 1 | 0);
+                 /*<<camlinternalFormat.ml:338:8>>*/  /*<<camlinternalFormat.ml:338:8>>*/ print_char
+                  /*<<camlinternalFormat.ml:338:8>>*/ (buf, i$1 - 1 | 0);
                 var i$5 =  /*<<camlinternalFormat.ml:338:8>>*/ i$1 + 1 | 0;
                 i = i$5;
                 continue;
                }
                 /*<<camlinternalFormat.ml:340:19>>*/ if
-                (is_in_char_set
-                  (set,
+                ( /*<<camlinternalFormat.ml:340:19>>*/ is_in_char_set
+                   /*<<camlinternalFormat.ml:340:19>>*/ (set,
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
                      /*<<camlinternalFormat.ml:340:39>>*/ (Stdlib[29],
                      i$1 + 1 | 0))){
@@ -15910,33 +17205,36 @@
                  if(256 === j$0) break;
                   /*<<camlinternalFormat.ml:351:22>>*/ if
                   (!
-                   is_in_char_set
-                    (set,
+                    /*<<camlinternalFormat.ml:351:22>>*/ is_in_char_set
+                     /*<<camlinternalFormat.ml:351:22>>*/ (set,
                       /*<<camlinternalFormat.ml:351:42>>*/ caml_call1
                        /*<<camlinternalFormat.ml:351:42>>*/ (Stdlib[29], j$0)))
                   break;
                  var j$1 =  /*<<camlinternalFormat.ml:357:6>>*/ j$0 + 1 | 0;
                  j$0 = j$1;
                 }
-                 /*<<camlinternalFormat.ml:352:6>>*/ print_char(buf, i$3);
-                 /*<<camlinternalFormat.ml:353:6>>*/ print_char(buf, 45);
-                 /*<<camlinternalFormat.ml:354:6>>*/ print_char
-                 (buf, j$0 - 1 | 0);
+                 /*<<camlinternalFormat.ml:352:6>>*/  /*<<camlinternalFormat.ml:352:6>>*/ print_char
+                  /*<<camlinternalFormat.ml:352:6>>*/ (buf, i$3);
+                 /*<<camlinternalFormat.ml:353:6>>*/  /*<<camlinternalFormat.ml:353:6>>*/ print_char
+                  /*<<camlinternalFormat.ml:353:6>>*/ (buf, 45);
+                 /*<<camlinternalFormat.ml:354:6>>*/  /*<<camlinternalFormat.ml:354:6>>*/ print_char
+                  /*<<camlinternalFormat.ml:354:6>>*/ (buf, j$0 - 1 | 0);
                 if(j$0 >= 256) break b;
                 var i$7 =  /*<<camlinternalFormat.ml:355:22>>*/ j$0 + 1 | 0;
                 i = i$7;
                }
                else{
-                 /*<<camlinternalFormat.ml:341:8>>*/ print_char
-                 (buf, i$1 - 1 | 0);
-                 /*<<camlinternalFormat.ml:342:8>>*/ print_char(buf, i$1);
+                 /*<<camlinternalFormat.ml:341:8>>*/  /*<<camlinternalFormat.ml:341:8>>*/ print_char
+                  /*<<camlinternalFormat.ml:341:8>>*/ (buf, i$1 - 1 | 0);
+                 /*<<camlinternalFormat.ml:342:8>>*/  /*<<camlinternalFormat.ml:342:8>>*/ print_char
+                  /*<<camlinternalFormat.ml:342:8>>*/ (buf, i$1);
                 var i$4 =  /*<<camlinternalFormat.ml:342:8>>*/ i$1 + 2 | 0;
                 i = i$4;
                }
               }
               else{
-                /*<<camlinternalFormat.ml:347:6>>*/ print_char
-                (buf, i$1 - 1 | 0);
+                /*<<camlinternalFormat.ml:347:6>>*/  /*<<camlinternalFormat.ml:347:6>>*/ print_char
+                 /*<<camlinternalFormat.ml:347:6>>*/ (buf, i$1 - 1 | 0);
                var i$6 =  /*<<camlinternalFormat.ml:347:6>>*/ i$1 + 1 | 0;
                i = i$6;
               }
@@ -15948,24 +17246,32 @@
             }
             break a;
            }
-            /*<<camlinternalFormat.ml:328:16>>*/ print_char(buf, 255);
+            /*<<camlinternalFormat.ml:328:16>>*/  /*<<camlinternalFormat.ml:328:16>>*/ print_char
+             /*<<camlinternalFormat.ml:328:16>>*/ (buf, 255);
            break a;
           }
-           /*<<camlinternalFormat.ml:335:8>>*/ print_char(buf, 254);
-           /*<<camlinternalFormat.ml:335:8>>*/ print_char(buf, 255);
+           /*<<camlinternalFormat.ml:335:8>>*/  /*<<camlinternalFormat.ml:335:8>>*/ print_char
+            /*<<camlinternalFormat.ml:335:8>>*/ (buf, 254);
+           /*<<camlinternalFormat.ml:335:8>>*/  /*<<camlinternalFormat.ml:335:8>>*/ print_char
+            /*<<camlinternalFormat.ml:335:8>>*/ (buf, 255);
           break a;
          }
-          /*<<camlinternalFormat.ml:321:7>>*/ if(is_alone(45))
-           /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char(buf, 45);
-          /*<<camlinternalFormat.ml:364:2>>*/ buffer_add_char(buf, 93);
+          /*<<camlinternalFormat.ml:321:7>>*/ if
+          ( /*<<camlinternalFormat.ml:321:7>>*/ is_alone
+             /*<<camlinternalFormat.ml:321:7>>*/ (45))
+           /*<<camlinternalFormat.ml:321:25>>*/  /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char
+            /*<<camlinternalFormat.ml:321:25>>*/ (buf, 45);
+          /*<<camlinternalFormat.ml:364:2>>*/  /*<<camlinternalFormat.ml:364:2>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:364:2>>*/ (buf, 93);
          fmt$0 = rest$19;
          ign_flag$0 = 0;
          break;
         case 21:
          var rest$20 = fmt$0[2], counter = fmt$0[1];
-          /*<<camlinternalFormat.ml:613:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:613:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:613:6>>*/  /*<<camlinternalFormat.ml:613:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:613:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:613:31>>*/  /*<<camlinternalFormat.ml:613:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:613:31>>*/ (buf, ign_flag$0);
          switch(counter){
            case 0:
             var _cF_ = 108; break;
@@ -15973,17 +17279,19 @@
             var _cF_ = 110; break;
            default: var _cF_ = 78;
          }
-          /*<<camlinternalFormat.ml:614:6>>*/ buffer_add_char(buf, _cF_);
+          /*<<camlinternalFormat.ml:614:6>>*/  /*<<camlinternalFormat.ml:614:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:614:6>>*/ (buf, _cF_);
          fmt$0 = rest$20;
          ign_flag$0 = 0;
          break;
         case 22:
          var rest$21 = fmt$0[1];
-          /*<<camlinternalFormat.ml:617:6>>*/ buffer_add_char(buf, 37);
-          /*<<camlinternalFormat.ml:617:31>>*/ bprint_ignored_flag
-          (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:618:6>>*/ bprint_string_literal
-          (buf, cst_0c);
+          /*<<camlinternalFormat.ml:617:6>>*/  /*<<camlinternalFormat.ml:617:6>>*/ buffer_add_char
+           /*<<camlinternalFormat.ml:617:6>>*/ (buf, 37);
+          /*<<camlinternalFormat.ml:617:31>>*/  /*<<camlinternalFormat.ml:617:31>>*/ bprint_ignored_flag
+           /*<<camlinternalFormat.ml:617:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:618:6>>*/  /*<<camlinternalFormat.ml:618:6>>*/ bprint_string_literal
+           /*<<camlinternalFormat.ml:618:6>>*/ (buf, cst_0c);
          fmt$0 = rest$21;
          ign_flag$0 = 0;
          break;
@@ -15991,7 +17299,10 @@
          var
           rest$22 = fmt$0[2],
           ign = fmt$0[1],
-          fmt$1 = param_format_of_ignored_format(ign, rest$22)[1];
+          fmt$1 =
+             /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
+               /*<<camlinternalFormat.ml:621:34>>*/ (ign, rest$22)
+             [1];
          fmt$0 = fmt$1;
          ign_flag$0 = 1;
          break;
@@ -16000,15 +17311,18 @@
           rest$23 = fmt$0[3],
           arity = fmt$0[1],
           _cH_ =
-             /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity(arity),
+             /*<<camlinternalFormat.ml:578:20>>*/  /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity
+              /*<<camlinternalFormat.ml:578:20>>*/ (arity),
           _cG_ = 1;
          if(_cH_ >= 1){
           var i$8 = _cG_;
           for(;;){
-            /*<<camlinternalFormat.ml:579:8>>*/ buffer_add_char(buf, 37);
-            /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
-            (buf, ign_flag$0);
-            /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char(buf, 63);
+            /*<<camlinternalFormat.ml:579:8>>*/  /*<<camlinternalFormat.ml:579:8>>*/ buffer_add_char
+             /*<<camlinternalFormat.ml:579:8>>*/ (buf, 37);
+            /*<<camlinternalFormat.ml:579:33>>*/  /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
+             /*<<camlinternalFormat.ml:579:33>>*/ (buf, ign_flag$0);
+            /*<<camlinternalFormat.ml:580:8>>*/  /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char
+             /*<<camlinternalFormat.ml:580:8>>*/ (buf, 63);
            var _cI_ =  /*<<camlinternalFormat.ml:580:8>>*/ i$8 + 1 | 0;
            if(_cH_ === i$8) break;
            i$8 = _cI_;
@@ -16019,8 +17333,10 @@
       }
      }
      /*<<camlinternalFormat.ml:636:25>>*/ }
-     /*<<camlinternalFormat.ml:638:5>>*/ fmtiter(fmt, 0);
-     /*<<camlinternalFormat.ml:645:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
+     /*<<camlinternalFormat.ml:638:5>>*/  /*<<camlinternalFormat.ml:638:5>>*/ fmtiter
+      /*<<camlinternalFormat.ml:638:5>>*/ (fmt, 0);
+     /*<<camlinternalFormat.ml:645:2>>*/ return  /*<<camlinternalFormat.ml:645:2>>*/ buffer_contents
+             /*<<camlinternalFormat.ml:645:2>>*/ (buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
     /*<<camlinternalFormat.ml:646:21>>*/ }
    function symm(param){
      /*<<camlinternalFormat.ml:657:8>>*/ if(typeof param === "number")
@@ -16028,49 +17344,82 @@
     switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormat.ml:663:20>>*/ return [0, symm(rest)] /*<<camlinternalFormat.ml:663:20>>*/ ;
+        /*<<camlinternalFormat.ml:663:20>>*/ return [0,
+                /*<<camlinternalFormat.ml:663:28>>*/ symm
+                 /*<<camlinternalFormat.ml:663:28>>*/ (rest)] /*<<camlinternalFormat.ml:663:20>>*/ ;
       case 1:
        var rest$0 = param[1];
-        /*<<camlinternalFormat.ml:670:22>>*/ return [1, symm(rest$0)] /*<<camlinternalFormat.ml:670:22>>*/ ;
+        /*<<camlinternalFormat.ml:670:22>>*/ return [1,
+                /*<<camlinternalFormat.ml:670:32>>*/ symm
+                 /*<<camlinternalFormat.ml:670:32>>*/ (rest$0)] /*<<camlinternalFormat.ml:670:22>>*/ ;
       case 2:
        var rest$1 = param[1];
-        /*<<camlinternalFormat.ml:664:19>>*/ return [2, symm(rest$1)] /*<<camlinternalFormat.ml:664:19>>*/ ;
+        /*<<camlinternalFormat.ml:664:19>>*/ return [2,
+                /*<<camlinternalFormat.ml:664:26>>*/ symm
+                 /*<<camlinternalFormat.ml:664:26>>*/ (rest$1)] /*<<camlinternalFormat.ml:664:19>>*/ ;
       case 3:
        var rest$2 = param[1];
-        /*<<camlinternalFormat.ml:665:21>>*/ return [3, symm(rest$2)] /*<<camlinternalFormat.ml:665:21>>*/ ;
+        /*<<camlinternalFormat.ml:665:21>>*/ return [3,
+                /*<<camlinternalFormat.ml:665:30>>*/ symm
+                 /*<<camlinternalFormat.ml:665:30>>*/ (rest$2)] /*<<camlinternalFormat.ml:665:21>>*/ ;
       case 4:
        var rest$3 = param[1];
-        /*<<camlinternalFormat.ml:667:25>>*/ return [4, symm(rest$3)] /*<<camlinternalFormat.ml:667:25>>*/ ;
+        /*<<camlinternalFormat.ml:667:25>>*/ return [4,
+                /*<<camlinternalFormat.ml:667:38>>*/ symm
+                 /*<<camlinternalFormat.ml:667:38>>*/ (rest$3)] /*<<camlinternalFormat.ml:667:25>>*/ ;
       case 5:
        var rest$4 = param[1];
-        /*<<camlinternalFormat.ml:666:21>>*/ return [5, symm(rest$4)] /*<<camlinternalFormat.ml:666:21>>*/ ;
+        /*<<camlinternalFormat.ml:666:21>>*/ return [5,
+                /*<<camlinternalFormat.ml:666:30>>*/ symm
+                 /*<<camlinternalFormat.ml:666:30>>*/ (rest$4)] /*<<camlinternalFormat.ml:666:21>>*/ ;
       case 6:
        var rest$5 = param[1];
-        /*<<camlinternalFormat.ml:668:21>>*/ return [6, symm(rest$5)] /*<<camlinternalFormat.ml:668:21>>*/ ;
+        /*<<camlinternalFormat.ml:668:21>>*/ return [6,
+                /*<<camlinternalFormat.ml:668:30>>*/ symm
+                 /*<<camlinternalFormat.ml:668:30>>*/ (rest$5)] /*<<camlinternalFormat.ml:668:21>>*/ ;
       case 7:
        var rest$6 = param[1];
-        /*<<camlinternalFormat.ml:669:20>>*/ return [7, symm(rest$6)] /*<<camlinternalFormat.ml:669:20>>*/ ;
+        /*<<camlinternalFormat.ml:669:20>>*/ return [7,
+                /*<<camlinternalFormat.ml:669:28>>*/ symm
+                 /*<<camlinternalFormat.ml:669:28>>*/ (rest$6)] /*<<camlinternalFormat.ml:669:20>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
-        /*<<camlinternalFormat.ml:677:4>>*/ return [8, ty, symm(rest$7)] /*<<camlinternalFormat.ml:677:4>>*/ ;
+        /*<<camlinternalFormat.ml:677:4>>*/ return [8,
+               ty,
+                /*<<camlinternalFormat.ml:677:23>>*/ symm
+                 /*<<camlinternalFormat.ml:677:23>>*/ (rest$7)] /*<<camlinternalFormat.ml:677:4>>*/ ;
       case 9:
        var rest$8 = param[3], ty2 = param[2], ty1 = param[1];
-        /*<<camlinternalFormat.ml:679:4>>*/ return [9, ty2, ty1, symm(rest$8)] /*<<camlinternalFormat.ml:679:4>>*/ ;
+        /*<<camlinternalFormat.ml:679:4>>*/ return [9,
+               ty2,
+               ty1,
+                /*<<camlinternalFormat.ml:679:31>>*/ symm
+                 /*<<camlinternalFormat.ml:679:31>>*/ (rest$8)] /*<<camlinternalFormat.ml:679:4>>*/ ;
       case 10:
        var rest$9 = param[1];
-        /*<<camlinternalFormat.ml:672:21>>*/ return [10, symm(rest$9)] /*<<camlinternalFormat.ml:672:21>>*/ ;
+        /*<<camlinternalFormat.ml:672:21>>*/ return [10,
+                /*<<camlinternalFormat.ml:672:30>>*/ symm
+                 /*<<camlinternalFormat.ml:672:30>>*/ (rest$9)] /*<<camlinternalFormat.ml:672:21>>*/ ;
       case 11:
        var rest$10 = param[1];
-        /*<<camlinternalFormat.ml:671:21>>*/ return [11, symm(rest$10)] /*<<camlinternalFormat.ml:671:21>>*/ ;
+        /*<<camlinternalFormat.ml:671:21>>*/ return [11,
+                /*<<camlinternalFormat.ml:671:30>>*/ symm
+                 /*<<camlinternalFormat.ml:671:30>>*/ (rest$10)] /*<<camlinternalFormat.ml:671:21>>*/ ;
       case 12:
        var rest$11 = param[1];
-        /*<<camlinternalFormat.ml:673:19>>*/ return [12, symm(rest$11)] /*<<camlinternalFormat.ml:673:19>>*/ ;
+        /*<<camlinternalFormat.ml:673:19>>*/ return [12,
+                /*<<camlinternalFormat.ml:673:26>>*/ symm
+                 /*<<camlinternalFormat.ml:673:26>>*/ (rest$11)] /*<<camlinternalFormat.ml:673:19>>*/ ;
       case 13:
        var rest$12 = param[1];
-        /*<<camlinternalFormat.ml:674:22>>*/ return [13, symm(rest$12)] /*<<camlinternalFormat.ml:674:22>>*/ ;
+        /*<<camlinternalFormat.ml:674:22>>*/ return [13,
+                /*<<camlinternalFormat.ml:674:32>>*/ symm
+                 /*<<camlinternalFormat.ml:674:32>>*/ (rest$12)] /*<<camlinternalFormat.ml:674:22>>*/ ;
       default:
        var rest$13 = param[1];
-        /*<<camlinternalFormat.ml:675:30>>*/ return [14, symm(rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
+        /*<<camlinternalFormat.ml:675:30>>*/ return [14,
+                /*<<camlinternalFormat.ml:675:48>>*/ symm
+                 /*<<camlinternalFormat.ml:675:48>>*/ (rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
     }
     /*<<camlinternalFormat.ml:680:32>>*/ }
    function fmtty_rel_det(param){
@@ -16084,117 +17433,144 @@
       case 0:
        var
         rest = param[1],
-        match =  /*<<camlinternalFormat.ml:696:25>>*/ fmtty_rel_det(rest),
+        match =
+           /*<<camlinternalFormat.ml:696:25>>*/  /*<<camlinternalFormat.ml:696:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:696:25>>*/ (rest),
         de = match[4],
         af = match[2];
         /*<<camlinternalFormat.ml:697:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:698:17>>*/ af(0);
+                 /*<<camlinternalFormat.ml:698:17>>*/  /*<<camlinternalFormat.ml:698:28>>*/ af
+                  /*<<camlinternalFormat.ml:698:28>>*/ (0);
                 /*<<camlinternalFormat.ml:698:43>>*/ },
                ,
                de] /*<<camlinternalFormat.ml:697:4>>*/ ;
       case 1:
        var
         rest$0 = param[1],
-        match$0 =  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det(rest$0),
+        match$0 =
+           /*<<camlinternalFormat.ml:701:25>>*/  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:701:25>>*/ (rest$0),
         de$0 = match$0[4],
         af$0 = match$0[2];
         /*<<camlinternalFormat.ml:702:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:703:17>>*/ af$0(0);
+                 /*<<camlinternalFormat.ml:703:17>>*/  /*<<camlinternalFormat.ml:703:28>>*/ af$0
+                  /*<<camlinternalFormat.ml:703:28>>*/ (0);
                 /*<<camlinternalFormat.ml:703:43>>*/ },
                ,
                de$0] /*<<camlinternalFormat.ml:702:4>>*/ ;
       case 2:
        var
         rest$1 = param[1],
-        match$1 =  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det(rest$1),
+        match$1 =
+           /*<<camlinternalFormat.ml:706:25>>*/  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:706:25>>*/ (rest$1),
         de$1 = match$1[4],
         af$1 = match$1[2];
         /*<<camlinternalFormat.ml:707:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:708:17>>*/ af$1(0);
+                 /*<<camlinternalFormat.ml:708:17>>*/  /*<<camlinternalFormat.ml:708:28>>*/ af$1
+                  /*<<camlinternalFormat.ml:708:28>>*/ (0);
                 /*<<camlinternalFormat.ml:708:43>>*/ },
                ,
                de$1] /*<<camlinternalFormat.ml:707:4>>*/ ;
       case 3:
        var
         rest$2 = param[1],
-        match$2 =  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det(rest$2),
+        match$2 =
+           /*<<camlinternalFormat.ml:711:25>>*/  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:711:25>>*/ (rest$2),
         de$2 = match$2[4],
         af$2 = match$2[2];
         /*<<camlinternalFormat.ml:712:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:713:17>>*/ af$2(0);
+                 /*<<camlinternalFormat.ml:713:17>>*/  /*<<camlinternalFormat.ml:713:28>>*/ af$2
+                  /*<<camlinternalFormat.ml:713:28>>*/ (0);
                 /*<<camlinternalFormat.ml:713:43>>*/ },
                ,
                de$2] /*<<camlinternalFormat.ml:712:4>>*/ ;
       case 4:
        var
         rest$3 = param[1],
-        match$3 =  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det(rest$3),
+        match$3 =
+           /*<<camlinternalFormat.ml:721:25>>*/  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:721:25>>*/ (rest$3),
         de$3 = match$3[4],
         af$3 = match$3[2];
         /*<<camlinternalFormat.ml:722:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:723:17>>*/ af$3(0);
+                 /*<<camlinternalFormat.ml:723:17>>*/  /*<<camlinternalFormat.ml:723:28>>*/ af$3
+                  /*<<camlinternalFormat.ml:723:28>>*/ (0);
                 /*<<camlinternalFormat.ml:723:43>>*/ },
                ,
                de$3] /*<<camlinternalFormat.ml:722:4>>*/ ;
       case 5:
        var
         rest$4 = param[1],
-        match$4 =  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det(rest$4),
+        match$4 =
+           /*<<camlinternalFormat.ml:716:25>>*/  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:716:25>>*/ (rest$4),
         de$4 = match$4[4],
         af$4 = match$4[2];
         /*<<camlinternalFormat.ml:717:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:718:17>>*/ af$4(0);
+                 /*<<camlinternalFormat.ml:718:17>>*/  /*<<camlinternalFormat.ml:718:28>>*/ af$4
+                  /*<<camlinternalFormat.ml:718:28>>*/ (0);
                 /*<<camlinternalFormat.ml:718:43>>*/ },
                ,
                de$4] /*<<camlinternalFormat.ml:717:4>>*/ ;
       case 6:
        var
         rest$5 = param[1],
-        match$5 =  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det(rest$5),
+        match$5 =
+           /*<<camlinternalFormat.ml:726:25>>*/  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:726:25>>*/ (rest$5),
         de$5 = match$5[4],
         af$5 = match$5[2];
         /*<<camlinternalFormat.ml:727:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:728:17>>*/ af$5(0);
+                 /*<<camlinternalFormat.ml:728:17>>*/  /*<<camlinternalFormat.ml:728:28>>*/ af$5
+                  /*<<camlinternalFormat.ml:728:28>>*/ (0);
                 /*<<camlinternalFormat.ml:728:43>>*/ },
                ,
                de$5] /*<<camlinternalFormat.ml:727:4>>*/ ;
       case 7:
        var
         rest$6 = param[1],
-        match$6 =  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det(rest$6),
+        match$6 =
+           /*<<camlinternalFormat.ml:731:25>>*/  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:731:25>>*/ (rest$6),
         de$6 = match$6[4],
         af$6 = match$6[2];
         /*<<camlinternalFormat.ml:732:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:733:17>>*/ af$6(0);
+                 /*<<camlinternalFormat.ml:733:17>>*/  /*<<camlinternalFormat.ml:733:28>>*/ af$6
+                  /*<<camlinternalFormat.ml:733:28>>*/ (0);
                 /*<<camlinternalFormat.ml:733:43>>*/ },
                ,
                de$6] /*<<camlinternalFormat.ml:732:4>>*/ ;
       case 8:
        var
         rest$7 = param[2],
-        match$7 =  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det(rest$7),
+        match$7 =
+           /*<<camlinternalFormat.ml:764:25>>*/  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:764:25>>*/ (rest$7),
         de$7 = match$7[4],
         af$7 = match$7[2];
         /*<<camlinternalFormat.ml:765:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:766:17>>*/ af$7(0);
+                 /*<<camlinternalFormat.ml:766:17>>*/  /*<<camlinternalFormat.ml:766:28>>*/ af$7
+                  /*<<camlinternalFormat.ml:766:28>>*/ (0);
                 /*<<camlinternalFormat.ml:766:43>>*/ },
                ,
                de$7] /*<<camlinternalFormat.ml:765:4>>*/ ;
@@ -16203,34 +17579,49 @@
         rest$8 = param[3],
         ty2 = param[2],
         ty1 = param[1],
-        match$8 =  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det(rest$8),
+        match$8 =
+           /*<<camlinternalFormat.ml:769:25>>*/  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:769:25>>*/ (rest$8),
         de$8 = match$8[4],
         af$8 = match$8[2],
-        ty =  /*<<camlinternalFormat.ml:770:13>>*/ trans(symm(ty1), ty2),
-        match$9 =  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det(ty),
+        ty =
+           /*<<camlinternalFormat.ml:770:13>>*/  /*<<camlinternalFormat.ml:770:13>>*/ trans
+            /*<<camlinternalFormat.ml:770:13>>*/ ( /*<<camlinternalFormat.ml:770:19>>*/ symm
+              /*<<camlinternalFormat.ml:770:19>>*/ (ty1),
+            ty2),
+        match$9 =
+           /*<<camlinternalFormat.ml:771:25>>*/  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:771:25>>*/ (ty),
         jd = match$9[4],
         ga = match$9[2];
         /*<<camlinternalFormat.ml:772:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:773:17>>*/ ga(0);
-                 /*<<camlinternalFormat.ml:773:50>>*/ af$8(0);
+                 /*<<camlinternalFormat.ml:773:17>>*/  /*<<camlinternalFormat.ml:773:28>>*/ ga
+                  /*<<camlinternalFormat.ml:773:28>>*/ (0);
+                 /*<<camlinternalFormat.ml:773:50>>*/  /*<<camlinternalFormat.ml:773:50>>*/ af$8
+                  /*<<camlinternalFormat.ml:773:50>>*/ (0);
                 /*<<camlinternalFormat.ml:773:65>>*/ },
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:775:17>>*/ jd(0);
-                 /*<<camlinternalFormat.ml:775:50>>*/ de$8(0);
+                 /*<<camlinternalFormat.ml:775:17>>*/  /*<<camlinternalFormat.ml:775:28>>*/ jd
+                  /*<<camlinternalFormat.ml:775:28>>*/ (0);
+                 /*<<camlinternalFormat.ml:775:50>>*/  /*<<camlinternalFormat.ml:775:50>>*/ de$8
+                  /*<<camlinternalFormat.ml:775:50>>*/ (0);
                 /*<<camlinternalFormat.ml:775:65>>*/ }] /*<<camlinternalFormat.ml:772:4>>*/ ;
       case 10:
        var
         rest$9 = param[1],
-        match$10 =  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det(rest$9),
+        match$10 =
+           /*<<camlinternalFormat.ml:742:25>>*/  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:742:25>>*/ (rest$9),
         de$9 = match$10[4],
         af$9 = match$10[2];
         /*<<camlinternalFormat.ml:743:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:744:17>>*/ af$9(0);
+                 /*<<camlinternalFormat.ml:744:17>>*/  /*<<camlinternalFormat.ml:744:28>>*/ af$9
+                  /*<<camlinternalFormat.ml:744:28>>*/ (0);
                 /*<<camlinternalFormat.ml:744:43>>*/ },
                ,
                de$9] /*<<camlinternalFormat.ml:743:4>>*/ ;
@@ -16238,13 +17629,15 @@
        var
         rest$10 = param[1],
         match$11 =
-           /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det(rest$10),
+           /*<<camlinternalFormat.ml:737:25>>*/  /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:737:25>>*/ (rest$10),
         de$10 = match$11[4],
         af$10 = match$11[2];
         /*<<camlinternalFormat.ml:738:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:739:17>>*/ af$10(0);
+                 /*<<camlinternalFormat.ml:739:17>>*/  /*<<camlinternalFormat.ml:739:28>>*/ af$10
+                  /*<<camlinternalFormat.ml:739:28>>*/ (0);
                 /*<<camlinternalFormat.ml:739:43>>*/ },
                ,
                de$10] /*<<camlinternalFormat.ml:738:4>>*/ ;
@@ -16252,13 +17645,15 @@
        var
         rest$11 = param[1],
         match$12 =
-           /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det(rest$11),
+           /*<<camlinternalFormat.ml:747:25>>*/  /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:747:25>>*/ (rest$11),
         de$11 = match$12[4],
         af$11 = match$12[2];
         /*<<camlinternalFormat.ml:748:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:749:17>>*/ af$11(0);
+                 /*<<camlinternalFormat.ml:749:17>>*/  /*<<camlinternalFormat.ml:749:28>>*/ af$11
+                  /*<<camlinternalFormat.ml:749:28>>*/ (0);
                 /*<<camlinternalFormat.ml:749:43>>*/ },
                ,
                de$11] /*<<camlinternalFormat.ml:748:4>>*/ ;
@@ -16266,33 +17661,39 @@
        var
         rest$12 = param[1],
         match$13 =
-           /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det(rest$12),
+           /*<<camlinternalFormat.ml:752:25>>*/  /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:752:25>>*/ (rest$12),
         de$12 = match$13[4],
         af$12 = match$13[2];
         /*<<camlinternalFormat.ml:753:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:754:17>>*/ af$12(0);
+                 /*<<camlinternalFormat.ml:754:17>>*/  /*<<camlinternalFormat.ml:754:28>>*/ af$12
+                  /*<<camlinternalFormat.ml:754:28>>*/ (0);
                 /*<<camlinternalFormat.ml:754:43>>*/ },
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:756:17>>*/ de$12(0);
+                 /*<<camlinternalFormat.ml:756:17>>*/  /*<<camlinternalFormat.ml:756:28>>*/ de$12
+                  /*<<camlinternalFormat.ml:756:28>>*/ (0);
                 /*<<camlinternalFormat.ml:756:43>>*/ }] /*<<camlinternalFormat.ml:753:4>>*/ ;
       default:
        var
         rest$13 = param[1],
         match$14 =
-           /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det(rest$13),
+           /*<<camlinternalFormat.ml:758:25>>*/  /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det
+            /*<<camlinternalFormat.ml:758:25>>*/ (rest$13),
         de$13 = match$14[4],
         af$13 = match$14[2];
         /*<<camlinternalFormat.ml:759:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:760:17>>*/ af$13(0);
+                 /*<<camlinternalFormat.ml:760:17>>*/  /*<<camlinternalFormat.ml:760:28>>*/ af$13
+                  /*<<camlinternalFormat.ml:760:28>>*/ (0);
                 /*<<camlinternalFormat.ml:760:43>>*/ },
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:762:17>>*/ de$13(0);
+                 /*<<camlinternalFormat.ml:762:17>>*/  /*<<camlinternalFormat.ml:762:28>>*/ de$13
+                  /*<<camlinternalFormat.ml:762:28>>*/ (0);
                 /*<<camlinternalFormat.ml:762:43>>*/ }] /*<<camlinternalFormat.ml:759:4>>*/ ;
     }
     /*<<camlinternalFormat.ml:775:66>>*/ }
@@ -16320,7 +17721,8 @@
                   case 0:
                    var rest2 = ty2[1];
                     /*<<camlinternalFormat.ml:804:36>>*/ return [0,
-                           trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:36>>*/ ;
+                            /*<<camlinternalFormat.ml:804:44>>*/ trans
+                             /*<<camlinternalFormat.ml:804:44>>*/ (rest1, rest2)] /*<<camlinternalFormat.ml:804:36>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16344,7 +17746,8 @@
                   case 1:
                    var rest2$0 = ty2[1];
                     /*<<camlinternalFormat.ml:805:40>>*/ return [1,
-                           trans(rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:40>>*/ ;
+                            /*<<camlinternalFormat.ml:805:50>>*/ trans
+                             /*<<camlinternalFormat.ml:805:50>>*/ (rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:40>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16368,7 +17771,8 @@
                   case 2:
                    var rest2$1 = ty2[1];
                     /*<<camlinternalFormat.ml:807:34>>*/ return [2,
-                           trans(rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:34>>*/ ;
+                            /*<<camlinternalFormat.ml:807:41>>*/ trans
+                             /*<<camlinternalFormat.ml:807:41>>*/ (rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:34>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16392,7 +17796,8 @@
                   case 3:
                    var rest2$2 = ty2[1];
                     /*<<camlinternalFormat.ml:808:38>>*/ return [3,
-                           trans(rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:38>>*/ ;
+                            /*<<camlinternalFormat.ml:808:47>>*/ trans
+                             /*<<camlinternalFormat.ml:808:47>>*/ (rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16416,7 +17821,8 @@
                   case 4:
                    var rest2$3 = ty2[1];
                     /*<<camlinternalFormat.ml:810:46>>*/ return [4,
-                           trans(rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:46>>*/ ;
+                            /*<<camlinternalFormat.ml:810:59>>*/ trans
+                             /*<<camlinternalFormat.ml:810:59>>*/ (rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:46>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16440,7 +17846,8 @@
                   case 5:
                    var rest2$4 = ty2[1];
                     /*<<camlinternalFormat.ml:809:38>>*/ return [5,
-                           trans(rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:38>>*/ ;
+                            /*<<camlinternalFormat.ml:809:47>>*/ trans
+                             /*<<camlinternalFormat.ml:809:47>>*/ (rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16464,7 +17871,8 @@
                   case 6:
                    var rest2$5 = ty2[1];
                     /*<<camlinternalFormat.ml:811:38>>*/ return [6,
-                           trans(rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:38>>*/ ;
+                            /*<<camlinternalFormat.ml:811:47>>*/ trans
+                             /*<<camlinternalFormat.ml:811:47>>*/ (rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16488,7 +17896,8 @@
                   case 7:
                    var rest2$6 = ty2[1];
                     /*<<camlinternalFormat.ml:806:36>>*/ return [7,
-                           trans(rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:36>>*/ ;
+                            /*<<camlinternalFormat.ml:806:44>>*/ trans
+                             /*<<camlinternalFormat.ml:806:44>>*/ (rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:36>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -16514,10 +17923,11 @@
                     rest2$7 = ty2[2],
                     ty2$0 = ty2[1],
                     _cE_ =
-                       /*<<camlinternalFormat.ml:835:34>>*/ trans
-                       (rest1$7, rest2$7);
+                       /*<<camlinternalFormat.ml:835:34>>*/  /*<<camlinternalFormat.ml:835:34>>*/ trans
+                        /*<<camlinternalFormat.ml:835:34>>*/ (rest1$7, rest2$7);
                     /*<<camlinternalFormat.ml:835:4>>*/ return [8,
-                           trans(ty1$0, ty2$0),
+                            /*<<camlinternalFormat.ml:835:19>>*/ trans
+                             /*<<camlinternalFormat.ml:835:19>>*/ (ty1$0, ty2$0),
                            _cE_] /*<<camlinternalFormat.ml:835:4>>*/ ;
                   case 10:
                    break a;
@@ -16547,18 +17957,24 @@
                     ty22 = ty2[2],
                     ty21 = ty2[1],
                     ty =
-                       /*<<camlinternalFormat.ml:841:13>>*/ trans
-                       (symm(ty12), ty21),
+                       /*<<camlinternalFormat.ml:841:13>>*/  /*<<camlinternalFormat.ml:841:13>>*/ trans
+                        /*<<camlinternalFormat.ml:841:13>>*/ ( /*<<camlinternalFormat.ml:841:19>>*/ symm
+                          /*<<camlinternalFormat.ml:841:19>>*/ (ty12),
+                        ty21),
                     match =
-                       /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det(ty),
+                       /*<<camlinternalFormat.ml:842:23>>*/  /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det
+                        /*<<camlinternalFormat.ml:842:23>>*/ (ty),
                     f4 = match[4],
                     f2 = match[2];
-                    /*<<camlinternalFormat.ml:843:15>>*/ f2(0);
-                    /*<<camlinternalFormat.ml:844:15>>*/ f4(0);
+                    /*<<camlinternalFormat.ml:843:15>>*/  /*<<camlinternalFormat.ml:843:15>>*/ f2
+                     /*<<camlinternalFormat.ml:843:15>>*/ (0);
+                    /*<<camlinternalFormat.ml:844:15>>*/  /*<<camlinternalFormat.ml:844:15>>*/ f4
+                     /*<<camlinternalFormat.ml:844:15>>*/ (0);
                     /*<<camlinternalFormat.ml:845:4>>*/ return [9,
                            ty11,
                            ty22,
-                           trans(rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:4>>*/ ;
+                            /*<<camlinternalFormat.ml:845:33>>*/ trans
+                             /*<<camlinternalFormat.ml:845:33>>*/ (rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:4>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -16580,7 +17996,8 @@
                if(typeof ty2 !== "number" && 10 === ty2[0]){
                 var rest2$9 = ty2[1];
                  /*<<camlinternalFormat.ml:813:38>>*/ return [10,
-                        trans(rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:38>>*/ ;
+                         /*<<camlinternalFormat.ml:813:47>>*/ trans
+                          /*<<camlinternalFormat.ml:813:47>>*/ (rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:38>>*/ ;
                }
                 /*<<camlinternalFormat.ml:814:21>>*/ throw  /*<<camlinternalFormat.ml:814:21>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:814:21>>*/ ([0,
@@ -16596,7 +18013,8 @@
                   case 11:
                    var rest2$10 = ty2[1];
                     /*<<camlinternalFormat.ml:817:38>>*/ return [11,
-                           trans(rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:38>>*/ ;
+                            /*<<camlinternalFormat.ml:817:47>>*/ trans
+                             /*<<camlinternalFormat.ml:817:47>>*/ (rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:38>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:818:21>>*/ throw  /*<<camlinternalFormat.ml:818:21>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:818:21>>*/ ([0,
@@ -16614,7 +18032,8 @@
                   case 12:
                    var rest2$11 = ty2[1];
                     /*<<camlinternalFormat.ml:821:34>>*/ return [12,
-                           trans(rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:34>>*/ ;
+                            /*<<camlinternalFormat.ml:821:41>>*/ trans
+                             /*<<camlinternalFormat.ml:821:41>>*/ (rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:34>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:822:19>>*/ throw  /*<<camlinternalFormat.ml:822:19>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:822:19>>*/ ([0,
@@ -16634,7 +18053,8 @@
                   case 13:
                    var rest2$12 = ty2[1];
                     /*<<camlinternalFormat.ml:825:40>>*/ return [13,
-                           trans(rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:40>>*/ ;
+                            /*<<camlinternalFormat.ml:825:50>>*/ trans
+                             /*<<camlinternalFormat.ml:825:50>>*/ (rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:40>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:826:22>>*/ throw  /*<<camlinternalFormat.ml:826:22>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:826:22>>*/ ([0,
@@ -16656,7 +18076,8 @@
                   case 14:
                    var rest2$13 = ty2[1];
                     /*<<camlinternalFormat.ml:830:4>>*/ return [14,
-                           trans(rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:4>>*/ ;
+                            /*<<camlinternalFormat.ml:830:22>>*/ trans
+                             /*<<camlinternalFormat.ml:830:22>>*/ (rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:4>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:831:30>>*/ throw  /*<<camlinternalFormat.ml:831:30>>*/ caml_maybe_attach_backtrace
                        /*<<camlinternalFormat.ml:831:30>>*/ ([0,
@@ -16733,81 +18154,100 @@
      switch(fmtty$0[0]){
        case 0:
         var rest = fmtty$0[1];
-         /*<<camlinternalFormat.ml:890:34>>*/ return [0, fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:34>>*/ ;
+         /*<<camlinternalFormat.ml:890:34>>*/ return [0,
+                 /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:890:42>>*/ (rest)] /*<<camlinternalFormat.ml:890:34>>*/ ;
        case 1:
         var rest$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:891:34>>*/ return [0, fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:34>>*/ ;
+         /*<<camlinternalFormat.ml:891:34>>*/ return [0,
+                 /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:891:42>>*/ (rest$0)] /*<<camlinternalFormat.ml:891:34>>*/ ;
        case 2:
         var rest$1 = fmtty$0[2], pad = fmtty$0[1];
-         /*<<camlinternalFormat.ml:865:31>>*/ return fmtty_of_padding_fmtty
-                (pad, [1, fmtty_of_fmt(rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
+         /*<<camlinternalFormat.ml:865:31>>*/ return  /*<<camlinternalFormat.ml:865:31>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:865:31>>*/ (pad,
+                 [1,
+                   /*<<camlinternalFormat.ml:865:42>>*/ fmtty_of_fmt
+                    /*<<camlinternalFormat.ml:865:42>>*/ (rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 3:
         var rest$2 = fmtty$0[2], pad$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:867:31>>*/ return fmtty_of_padding_fmtty
-                (pad$0, [1, fmtty_of_fmt(rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
+         /*<<camlinternalFormat.ml:867:31>>*/ return  /*<<camlinternalFormat.ml:867:31>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:867:31>>*/ (pad$0,
+                 [1,
+                   /*<<camlinternalFormat.ml:867:42>>*/ fmtty_of_fmt
+                    /*<<camlinternalFormat.ml:867:42>>*/ (rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 4:
         var
          rest$3 = fmtty$0[4],
          prec = fmtty$0[3],
          pad$1 = fmtty$0[2],
-         ty_rest =  /*<<camlinternalFormat.ml:870:18>>*/ fmtty_of_fmt(rest$3),
+         ty_rest =
+            /*<<camlinternalFormat.ml:870:18>>*/  /*<<camlinternalFormat.ml:870:18>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:870:18>>*/ (rest$3),
          prec_ty =
-            /*<<camlinternalFormat.ml:871:18>>*/ fmtty_of_precision_fmtty
-            (prec, [2, ty_rest]);
-         /*<<camlinternalFormat.ml:872:4>>*/ return fmtty_of_padding_fmtty
-                (pad$1, prec_ty) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:871:18>>*/  /*<<camlinternalFormat.ml:871:18>>*/ fmtty_of_precision_fmtty
+             /*<<camlinternalFormat.ml:871:18>>*/ (prec, [2, ty_rest]);
+         /*<<camlinternalFormat.ml:872:4>>*/ return  /*<<camlinternalFormat.ml:872:4>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:872:4>>*/ (pad$1, prec_ty) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 5:
         var
          rest$4 = fmtty$0[4],
          prec$0 = fmtty$0[3],
          pad$2 = fmtty$0[2],
          ty_rest$0 =
-            /*<<camlinternalFormat.ml:874:18>>*/ fmtty_of_fmt(rest$4),
+            /*<<camlinternalFormat.ml:874:18>>*/  /*<<camlinternalFormat.ml:874:18>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:874:18>>*/ (rest$4),
          prec_ty$0 =
-            /*<<camlinternalFormat.ml:875:18>>*/ fmtty_of_precision_fmtty
-            (prec$0, [3, ty_rest$0]);
-         /*<<camlinternalFormat.ml:876:4>>*/ return fmtty_of_padding_fmtty
-                (pad$2, prec_ty$0) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:875:18>>*/  /*<<camlinternalFormat.ml:875:18>>*/ fmtty_of_precision_fmtty
+             /*<<camlinternalFormat.ml:875:18>>*/ (prec$0, [3, ty_rest$0]);
+         /*<<camlinternalFormat.ml:876:4>>*/ return  /*<<camlinternalFormat.ml:876:4>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:876:4>>*/ (pad$2, prec_ty$0) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 6:
         var
          rest$5 = fmtty$0[4],
          prec$1 = fmtty$0[3],
          pad$3 = fmtty$0[2],
          ty_rest$1 =
-            /*<<camlinternalFormat.ml:878:18>>*/ fmtty_of_fmt(rest$5),
+            /*<<camlinternalFormat.ml:878:18>>*/  /*<<camlinternalFormat.ml:878:18>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:878:18>>*/ (rest$5),
          prec_ty$1 =
-            /*<<camlinternalFormat.ml:879:18>>*/ fmtty_of_precision_fmtty
-            (prec$1, [4, ty_rest$1]);
-         /*<<camlinternalFormat.ml:880:4>>*/ return fmtty_of_padding_fmtty
-                (pad$3, prec_ty$1) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:879:18>>*/  /*<<camlinternalFormat.ml:879:18>>*/ fmtty_of_precision_fmtty
+             /*<<camlinternalFormat.ml:879:18>>*/ (prec$1, [4, ty_rest$1]);
+         /*<<camlinternalFormat.ml:880:4>>*/ return  /*<<camlinternalFormat.ml:880:4>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:880:4>>*/ (pad$3, prec_ty$1) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 7:
         var
          rest$6 = fmtty$0[4],
          prec$2 = fmtty$0[3],
          pad$4 = fmtty$0[2],
          ty_rest$2 =
-            /*<<camlinternalFormat.ml:882:18>>*/ fmtty_of_fmt(rest$6),
+            /*<<camlinternalFormat.ml:882:18>>*/  /*<<camlinternalFormat.ml:882:18>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:882:18>>*/ (rest$6),
          prec_ty$2 =
-            /*<<camlinternalFormat.ml:883:18>>*/ fmtty_of_precision_fmtty
-            (prec$2, [5, ty_rest$2]);
-         /*<<camlinternalFormat.ml:884:4>>*/ return fmtty_of_padding_fmtty
-                (pad$4, prec_ty$2) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:883:18>>*/  /*<<camlinternalFormat.ml:883:18>>*/ fmtty_of_precision_fmtty
+             /*<<camlinternalFormat.ml:883:18>>*/ (prec$2, [5, ty_rest$2]);
+         /*<<camlinternalFormat.ml:884:4>>*/ return  /*<<camlinternalFormat.ml:884:4>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:884:4>>*/ (pad$4, prec_ty$2) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 8:
         var
          rest$7 = fmtty$0[4],
          prec$3 = fmtty$0[3],
          pad$5 = fmtty$0[2],
          ty_rest$3 =
-            /*<<camlinternalFormat.ml:886:18>>*/ fmtty_of_fmt(rest$7),
+            /*<<camlinternalFormat.ml:886:18>>*/  /*<<camlinternalFormat.ml:886:18>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:886:18>>*/ (rest$7),
          prec_ty$3 =
-            /*<<camlinternalFormat.ml:887:18>>*/ fmtty_of_precision_fmtty
-            (prec$3, [6, ty_rest$3]);
-         /*<<camlinternalFormat.ml:888:4>>*/ return fmtty_of_padding_fmtty
-                (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:887:18>>*/  /*<<camlinternalFormat.ml:887:18>>*/ fmtty_of_precision_fmtty
+             /*<<camlinternalFormat.ml:887:18>>*/ (prec$3, [6, ty_rest$3]);
+         /*<<camlinternalFormat.ml:888:4>>*/ return  /*<<camlinternalFormat.ml:888:4>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:888:4>>*/ (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 9:
         var rest$8 = fmtty$0[2], pad$6 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:893:33>>*/ return fmtty_of_padding_fmtty
-                (pad$6, [7, fmtty_of_fmt(rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
+         /*<<camlinternalFormat.ml:893:33>>*/ return  /*<<camlinternalFormat.ml:893:33>>*/ fmtty_of_padding_fmtty
+                 /*<<camlinternalFormat.ml:893:33>>*/ (pad$6,
+                 [7,
+                   /*<<camlinternalFormat.ml:893:42>>*/ fmtty_of_fmt
+                    /*<<camlinternalFormat.ml:893:42>>*/ (rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 10:
         var fmtty$1 = fmtty$0[1]; fmtty$0 = fmtty$1; break;
        case 11:
@@ -16818,32 +18258,46 @@
         var rest$9 = fmtty$0[3], ty = fmtty$0[2];
          /*<<camlinternalFormat.ml:900:4>>*/ return [8,
                 ty,
-                fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:4>>*/ ;
+                 /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:900:23>>*/ (rest$9)] /*<<camlinternalFormat.ml:900:4>>*/ ;
        case 14:
         var rest$10 = fmtty$0[3], ty$0 = fmtty$0[2];
          /*<<camlinternalFormat.ml:902:4>>*/ return [9,
                 ty$0,
                 ty$0,
-                fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:4>>*/ ;
+                 /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:902:29>>*/ (rest$10)] /*<<camlinternalFormat.ml:902:4>>*/ ;
        case 15:
         var rest$11 = fmtty$0[1];
          /*<<camlinternalFormat.ml:894:34>>*/ return [10,
-                fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:34>>*/ ;
+                 /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:894:43>>*/ (rest$11)] /*<<camlinternalFormat.ml:894:34>>*/ ;
        case 16:
         var rest$12 = fmtty$0[1];
          /*<<camlinternalFormat.ml:895:34>>*/ return [11,
-                fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:34>>*/ ;
+                 /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:895:43>>*/ (rest$12)] /*<<camlinternalFormat.ml:895:34>>*/ ;
        case 17:
         var fmtty$4 = fmtty$0[2]; fmtty$0 = fmtty$4; break;
        case 18:
         var
          rest$13 = fmtty$0[2],
          formatting_gen = fmtty$0[1],
-         _cB_ =  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt(rest$13);
+         _cB_ =
+            /*<<camlinternalFormat.ml:914:54>>*/  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:914:54>>*/ (rest$13);
         if(0 === formatting_gen[0])
-         var fmt = formatting_gen[1][1], _cC_ = fmtty_of_fmt(fmt);
+         var
+          fmt = formatting_gen[1][1],
+          _cC_ =
+             /*<<camlinternalFormat.ml:857:34>>*/ fmtty_of_fmt
+              /*<<camlinternalFormat.ml:857:34>>*/ (fmt);
         else
-         var fmt$0 = formatting_gen[1][1], _cC_ = fmtty_of_fmt(fmt$0);
+         var
+          fmt$0 = formatting_gen[1][1],
+          _cC_ =
+             /*<<camlinternalFormat.ml:858:34>>*/ fmtty_of_fmt
+              /*<<camlinternalFormat.ml:858:34>>*/ (fmt$0);
          /*<<camlinternalFormat.ml:914:54>>*/ return  /*<<camlinternalFormat.ml:914:54>>*/ caml_call2
                  /*<<camlinternalFormat.ml:914:54>>*/ (CamlinternalFormatBasics
                   [1],
@@ -16852,19 +18306,23 @@
        case 19:
         var rest$14 = fmtty$0[1];
          /*<<camlinternalFormat.ml:897:34>>*/ return [13,
-                fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:34>>*/ ;
+                 /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:897:44>>*/ (rest$14)] /*<<camlinternalFormat.ml:897:34>>*/ ;
        case 20:
         var rest$15 = fmtty$0[3];
          /*<<camlinternalFormat.ml:908:34>>*/ return [1,
-                fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:34>>*/ ;
+                 /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:908:44>>*/ (rest$15)] /*<<camlinternalFormat.ml:908:34>>*/ ;
        case 21:
         var rest$16 = fmtty$0[2];
          /*<<camlinternalFormat.ml:909:34>>*/ return [2,
-                fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:34>>*/ ;
+                 /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:909:41>>*/ (rest$16)] /*<<camlinternalFormat.ml:909:34>>*/ ;
        case 22:
         var rest$17 = fmtty$0[1];
          /*<<camlinternalFormat.ml:910:34>>*/ return [0,
-                fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:34>>*/ ;
+                 /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt
+                  /*<<camlinternalFormat.ml:910:42>>*/ (rest$17)] /*<<camlinternalFormat.ml:910:34>>*/ ;
        case 23:
         var fmtty$5 = fmtty$0[2], ign = fmtty$0[1];
         if(typeof ign === "number")
@@ -16875,7 +18333,8 @@
             fmtty$0 = fmtty$5; break;
            case 2:
              /*<<camlinternalFormat.ml:944:39>>*/ return [14,
-                    fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:39>>*/ ;
+                     /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt
+                      /*<<camlinternalFormat.ml:944:57>>*/ (fmtty$5)] /*<<camlinternalFormat.ml:944:39>>*/ ;
            default: fmtty$0 = fmtty$5;
          }
         else
@@ -16902,7 +18361,8 @@
             var
              fmtty$6 = ign[2],
              _cD_ =
-                /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt(fmtty$5);
+                /*<<camlinternalFormat.ml:943:58>>*/  /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt
+                 /*<<camlinternalFormat.ml:943:58>>*/ (fmtty$5);
              /*<<camlinternalFormat.ml:943:58>>*/ return  /*<<camlinternalFormat.ml:943:58>>*/ caml_call2
                      /*<<camlinternalFormat.ml:943:58>>*/ (CamlinternalFormatBasics
                       [1],
@@ -16915,8 +18375,10 @@
         break;
        default:
         var rest$18 = fmtty$0[3], arity = fmtty$0[1];
-         /*<<camlinternalFormat.ml:896:56>>*/ return fmtty_of_custom
-                (arity, fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
+         /*<<camlinternalFormat.ml:896:56>>*/ return  /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_custom
+                 /*<<camlinternalFormat.ml:896:56>>*/ (arity,
+                  /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_fmt
+                   /*<<camlinternalFormat.ml:896:56>>*/ (rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:916:46>>*/ }
@@ -16925,7 +18387,8 @@
       /*<<camlinternalFormat.ml:922:19>>*/ return fmtty /*<<camlinternalFormat.ml:922:19>>*/ ;
     var arity$0 = arity[1];
      /*<<camlinternalFormat.ml:923:25>>*/ return [12,
-            fmtty_of_custom(arity$0, fmtty)] /*<<camlinternalFormat.ml:923:25>>*/ ;
+             /*<<camlinternalFormat.ml:923:32>>*/ fmtty_of_custom
+              /*<<camlinternalFormat.ml:923:32>>*/ (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:25>>*/ ;
     /*<<camlinternalFormat.ml:923:61>>*/ }
    function fmtty_of_padding_fmtty(pad, fmtty){
      /*<<camlinternalFormat.ml:952:19>>*/ return typeof pad === "number"
@@ -17194,7 +18657,9 @@
     /*<<camlinternalFormat.ml:981:28>>*/ }
    function type_padprec(pad, prec, fmtty){
     var
-     match =  /*<<camlinternalFormat.ml:989:34>>*/ type_padding(pad, fmtty);
+     match =
+        /*<<camlinternalFormat.ml:989:34>>*/  /*<<camlinternalFormat.ml:989:34>>*/ type_padding
+         /*<<camlinternalFormat.ml:989:34>>*/ (pad, fmtty);
     if(typeof prec !== "number"){
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
       /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1] /*<<camlinternalFormat.ml:993:4>>*/ ;
@@ -17213,7 +18678,9 @@
     /*<<camlinternalFormat.ml:996:54>>*/ }
    function type_format(fmt, fmtty){
     var
-     _cA_ =  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen(fmt, fmtty);
+     _cA_ =
+        /*<<camlinternalFormat.ml:1008:25>>*/  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen
+         /*<<camlinternalFormat.ml:1008:25>>*/ (fmt, fmtty);
     if(typeof _cA_[2] !== "number")
       /*<<camlinternalFormat.ml:1010:9>>*/ throw  /*<<camlinternalFormat.ml:1010:9>>*/ caml_maybe_attach_backtrace
              /*<<camlinternalFormat.ml:1010:9>>*/ (Type_mismatch, 1);
@@ -17230,8 +18697,8 @@
          fmtty_rest = fmtty0[1],
          fmt_rest = fmt[1],
          match =
-            /*<<camlinternalFormat.ml:1020:39>>*/ type_format_gen
-            (fmt_rest, fmtty_rest),
+            /*<<camlinternalFormat.ml:1020:39>>*/  /*<<camlinternalFormat.ml:1020:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1020:39>>*/ (fmt_rest, fmtty_rest),
          fmtty = match[2],
          fmt$0 = match[1];
          /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty] /*<<camlinternalFormat.ml:1021:4>>*/ ;
@@ -17243,8 +18710,8 @@
          fmtty_rest$0 = fmtty0[1],
          fmt_rest$0 = fmt[1],
          match$0 =
-            /*<<camlinternalFormat.ml:1023:39>>*/ type_format_gen
-            (fmt_rest$0, fmtty_rest$0),
+            /*<<camlinternalFormat.ml:1023:39>>*/  /*<<camlinternalFormat.ml:1023:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1023:39>>*/ (fmt_rest$0, fmtty_rest$0),
          fmtty$0 = match$0[2],
          fmt$1 = match$0[1];
          /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0] /*<<camlinternalFormat.ml:1024:4>>*/ ;
@@ -17255,15 +18722,16 @@
         fmt_rest$1 = fmt[2],
         pad = fmt[1],
         match$1 =
-           /*<<camlinternalFormat.ml:1026:10>>*/ type_padding(pad, fmtty0),
+           /*<<camlinternalFormat.ml:1026:10>>*/  /*<<camlinternalFormat.ml:1026:10>>*/ type_padding
+            /*<<camlinternalFormat.ml:1026:10>>*/ (pad, fmtty0),
         pad$0 = match$1[1],
         match$2 = match$1[2];
        if(typeof match$2 !== "number" && 1 === match$2[0]){
         var
          fmtty_rest$1 = match$2[1],
          match$3 =
-            /*<<camlinternalFormat.ml:1028:41>>*/ type_format_gen
-            (fmt_rest$1, fmtty_rest$1),
+            /*<<camlinternalFormat.ml:1028:41>>*/  /*<<camlinternalFormat.ml:1028:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1028:41>>*/ (fmt_rest$1, fmtty_rest$1),
          fmtty$1 = match$3[2],
          fmt$2 = match$3[1];
          /*<<camlinternalFormat.ml:1029:6>>*/ return [0,
@@ -17277,15 +18745,16 @@
         fmt_rest$2 = fmt[2],
         pad$1 = fmt[1],
         match$4 =
-           /*<<camlinternalFormat.ml:1033:10>>*/ type_padding(pad$1, fmtty0),
+           /*<<camlinternalFormat.ml:1033:10>>*/  /*<<camlinternalFormat.ml:1033:10>>*/ type_padding
+            /*<<camlinternalFormat.ml:1033:10>>*/ (pad$1, fmtty0),
         pad$2 = match$4[1],
         match$5 = match$4[2];
        if(typeof match$5 !== "number" && 1 === match$5[0]){
         var
          fmtty_rest$2 = match$5[1],
          match$6 =
-            /*<<camlinternalFormat.ml:1035:41>>*/ type_format_gen
-            (fmt_rest$2, fmtty_rest$2),
+            /*<<camlinternalFormat.ml:1035:41>>*/  /*<<camlinternalFormat.ml:1035:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1035:41>>*/ (fmt_rest$2, fmtty_rest$2),
          fmtty$2 = match$6[2],
          fmt$3 = match$6[1];
          /*<<camlinternalFormat.ml:1036:6>>*/ return [0,
@@ -17301,8 +18770,8 @@
         pad$3 = fmt[2],
         iconv = fmt[1],
         match$7 =
-           /*<<camlinternalFormat.ml:1040:10>>*/ type_padprec
-           (pad$3, prec, fmtty0),
+           /*<<camlinternalFormat.ml:1040:10>>*/  /*<<camlinternalFormat.ml:1040:10>>*/ type_padprec
+            /*<<camlinternalFormat.ml:1040:10>>*/ (pad$3, prec, fmtty0),
         pad$4 = match$7[1],
         match$8 = match$7[3];
        if(typeof match$8 !== "number" && 2 === match$8[0]){
@@ -17310,8 +18779,8 @@
          fmtty_rest$3 = match$8[1],
          prec$0 = match$7[2],
          match$9 =
-            /*<<camlinternalFormat.ml:1042:41>>*/ type_format_gen
-            (fmt_rest$3, fmtty_rest$3),
+            /*<<camlinternalFormat.ml:1042:41>>*/  /*<<camlinternalFormat.ml:1042:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1042:41>>*/ (fmt_rest$3, fmtty_rest$3),
          fmtty$3 = match$9[2],
          fmt$4 = match$9[1];
          /*<<camlinternalFormat.ml:1043:6>>*/ return [0,
@@ -17327,8 +18796,8 @@
         pad$5 = fmt[2],
         iconv$0 = fmt[1],
         match$10 =
-           /*<<camlinternalFormat.ml:1047:10>>*/ type_padprec
-           (pad$5, prec$1, fmtty0),
+           /*<<camlinternalFormat.ml:1047:10>>*/  /*<<camlinternalFormat.ml:1047:10>>*/ type_padprec
+            /*<<camlinternalFormat.ml:1047:10>>*/ (pad$5, prec$1, fmtty0),
         pad$6 = match$10[1],
         match$11 = match$10[3];
        if(typeof match$11 !== "number" && 3 === match$11[0]){
@@ -17336,8 +18805,8 @@
          fmtty_rest$4 = match$11[1],
          prec$2 = match$10[2],
          match$12 =
-            /*<<camlinternalFormat.ml:1049:41>>*/ type_format_gen
-            (fmt_rest$4, fmtty_rest$4),
+            /*<<camlinternalFormat.ml:1049:41>>*/  /*<<camlinternalFormat.ml:1049:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1049:41>>*/ (fmt_rest$4, fmtty_rest$4),
          fmtty$4 = match$12[2],
          fmt$5 = match$12[1];
          /*<<camlinternalFormat.ml:1050:6>>*/ return [0,
@@ -17353,8 +18822,8 @@
         pad$7 = fmt[2],
         iconv$1 = fmt[1],
         match$13 =
-           /*<<camlinternalFormat.ml:1054:10>>*/ type_padprec
-           (pad$7, prec$3, fmtty0),
+           /*<<camlinternalFormat.ml:1054:10>>*/  /*<<camlinternalFormat.ml:1054:10>>*/ type_padprec
+            /*<<camlinternalFormat.ml:1054:10>>*/ (pad$7, prec$3, fmtty0),
         pad$8 = match$13[1],
         match$14 = match$13[3];
        if(typeof match$14 !== "number" && 4 === match$14[0]){
@@ -17362,8 +18831,8 @@
          fmtty_rest$5 = match$14[1],
          prec$4 = match$13[2],
          match$15 =
-            /*<<camlinternalFormat.ml:1056:41>>*/ type_format_gen
-            (fmt_rest$5, fmtty_rest$5),
+            /*<<camlinternalFormat.ml:1056:41>>*/  /*<<camlinternalFormat.ml:1056:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1056:41>>*/ (fmt_rest$5, fmtty_rest$5),
          fmtty$5 = match$15[2],
          fmt$6 = match$15[1];
          /*<<camlinternalFormat.ml:1057:6>>*/ return [0,
@@ -17379,8 +18848,8 @@
         pad$9 = fmt[2],
         iconv$2 = fmt[1],
         match$16 =
-           /*<<camlinternalFormat.ml:1061:10>>*/ type_padprec
-           (pad$9, prec$5, fmtty0),
+           /*<<camlinternalFormat.ml:1061:10>>*/  /*<<camlinternalFormat.ml:1061:10>>*/ type_padprec
+            /*<<camlinternalFormat.ml:1061:10>>*/ (pad$9, prec$5, fmtty0),
         pad$10 = match$16[1],
         match$17 = match$16[3];
        if(typeof match$17 !== "number" && 5 === match$17[0]){
@@ -17388,8 +18857,8 @@
          fmtty_rest$6 = match$17[1],
          prec$6 = match$16[2],
          match$18 =
-            /*<<camlinternalFormat.ml:1063:41>>*/ type_format_gen
-            (fmt_rest$6, fmtty_rest$6),
+            /*<<camlinternalFormat.ml:1063:41>>*/  /*<<camlinternalFormat.ml:1063:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1063:41>>*/ (fmt_rest$6, fmtty_rest$6),
          fmtty$6 = match$18[2],
          fmt$7 = match$18[1];
          /*<<camlinternalFormat.ml:1064:6>>*/ return [0,
@@ -17405,8 +18874,8 @@
         pad$11 = fmt[2],
         fconv = fmt[1],
         match$19 =
-           /*<<camlinternalFormat.ml:1068:10>>*/ type_padprec
-           (pad$11, prec$7, fmtty0),
+           /*<<camlinternalFormat.ml:1068:10>>*/  /*<<camlinternalFormat.ml:1068:10>>*/ type_padprec
+            /*<<camlinternalFormat.ml:1068:10>>*/ (pad$11, prec$7, fmtty0),
         pad$12 = match$19[1],
         match$20 = match$19[3];
        if(typeof match$20 !== "number" && 6 === match$20[0]){
@@ -17414,8 +18883,8 @@
          fmtty_rest$7 = match$20[1],
          prec$8 = match$19[2],
          match$21 =
-            /*<<camlinternalFormat.ml:1070:41>>*/ type_format_gen
-            (fmt_rest$7, fmtty_rest$7),
+            /*<<camlinternalFormat.ml:1070:41>>*/  /*<<camlinternalFormat.ml:1070:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1070:41>>*/ (fmt_rest$7, fmtty_rest$7),
          fmtty$7 = match$21[2],
          fmt$8 = match$21[1];
          /*<<camlinternalFormat.ml:1071:6>>*/ return [0,
@@ -17429,15 +18898,16 @@
         fmt_rest$8 = fmt[2],
         pad$13 = fmt[1],
         match$22 =
-           /*<<camlinternalFormat.ml:1075:10>>*/ type_padding(pad$13, fmtty0),
+           /*<<camlinternalFormat.ml:1075:10>>*/  /*<<camlinternalFormat.ml:1075:10>>*/ type_padding
+            /*<<camlinternalFormat.ml:1075:10>>*/ (pad$13, fmtty0),
         pad$14 = match$22[1],
         match$23 = match$22[2];
        if(typeof match$23 !== "number" && 7 === match$23[0]){
         var
          fmtty_rest$8 = match$23[1],
          match$24 =
-            /*<<camlinternalFormat.ml:1077:41>>*/ type_format_gen
-            (fmt_rest$8, fmtty_rest$8),
+            /*<<camlinternalFormat.ml:1077:41>>*/  /*<<camlinternalFormat.ml:1077:41>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1077:41>>*/ (fmt_rest$8, fmtty_rest$8),
          fmtty$8 = match$24[2],
          fmt$9 = match$24[1];
          /*<<camlinternalFormat.ml:1078:6>>*/ return [0,
@@ -17450,8 +18920,8 @@
        var
         fmt_rest$9 = fmt[1],
         match$25 =
-           /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
-           (fmt_rest$9, fmtty0),
+           /*<<camlinternalFormat.ml:1082:39>>*/  /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1082:39>>*/ (fmt_rest$9, fmtty0),
         fmtty$9 = match$25[2],
         fmt$10 = match$25[1];
         /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9] /*<<camlinternalFormat.ml:1083:4>>*/ ;
@@ -17460,8 +18930,8 @@
         fmt_rest$10 = fmt[2],
         str = fmt[1],
         match$26 =
-           /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
-           (fmt_rest$10, fmtty0),
+           /*<<camlinternalFormat.ml:1086:39>>*/  /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1086:39>>*/ (fmt_rest$10, fmtty0),
         fmtty$10 = match$26[2],
         fmt$11 = match$26[1];
         /*<<camlinternalFormat.ml:1087:4>>*/ return [0,
@@ -17472,8 +18942,8 @@
         fmt_rest$11 = fmt[2],
         chr = fmt[1],
         match$27 =
-           /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
-           (fmt_rest$11, fmtty0),
+           /*<<camlinternalFormat.ml:1089:39>>*/  /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1089:39>>*/ (fmt_rest$11, fmtty0),
         fmtty$11 = match$27[2],
         fmt$12 = match$27[1];
         /*<<camlinternalFormat.ml:1090:4>>*/ return [0,
@@ -17495,8 +18965,8 @@
                  /*<<camlinternalFormat.ml:1094:56>>*/ (Type_mismatch, 1);
         var
          match$28 =
-            /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
-            (fmt_rest$12, fmtty_rest$9),
+            /*<<camlinternalFormat.ml:1095:39>>*/  /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1095:39>>*/ (fmt_rest$12, fmtty_rest$9),
          fmtty$12 = match$28[2],
          fmt$13 = match$28[1];
          /*<<camlinternalFormat.ml:1096:4>>*/ return [0,
@@ -17530,8 +19000,8 @@
                  /*<<camlinternalFormat.ml:1100:6>>*/ (Type_mismatch, 1);
         var
          match$29 =
-            /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
-            (fmt_rest$13,
+            /*<<camlinternalFormat.ml:1102:6>>*/  /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1102:6>>*/ (fmt_rest$13,
               /*<<camlinternalFormat.ml:1102:31>>*/ caml_call1
                /*<<camlinternalFormat.ml:1102:31>>*/ (CamlinternalFormatBasics
                 [2],
@@ -17549,8 +19019,9 @@
          fmtty_rest$11 = fmtty0[1],
          fmt_rest$14 = fmt[1],
          match$30 =
-            /*<<camlinternalFormat.ml:1107:39>>*/ type_format_gen
-            (fmt_rest$14, fmtty_rest$11),
+            /*<<camlinternalFormat.ml:1107:39>>*/  /*<<camlinternalFormat.ml:1107:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1107:39>>*/ (fmt_rest$14,
+             fmtty_rest$11),
          fmtty$14 = match$30[2],
          fmt$15 = match$30[1];
          /*<<camlinternalFormat.ml:1108:4>>*/ return [0,
@@ -17564,8 +19035,9 @@
          fmtty_rest$12 = fmtty0[1],
          fmt_rest$15 = fmt[1],
          match$31 =
-            /*<<camlinternalFormat.ml:1110:39>>*/ type_format_gen
-            (fmt_rest$15, fmtty_rest$12),
+            /*<<camlinternalFormat.ml:1110:39>>*/  /*<<camlinternalFormat.ml:1110:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1110:39>>*/ (fmt_rest$15,
+             fmtty_rest$12),
          fmtty$15 = match$31[2],
          fmt$16 = match$31[1];
          /*<<camlinternalFormat.ml:1111:4>>*/ return [0,
@@ -17578,8 +19050,8 @@
         fmt_rest$16 = fmt[2],
         formatting_lit = fmt[1],
         match$32 =
-           /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
-           (fmt_rest$16, fmtty0),
+           /*<<camlinternalFormat.ml:1115:39>>*/  /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1115:39>>*/ (fmt_rest$16, fmtty0),
         fmtty$16 = match$32[2],
         fmt$17 = match$32[1];
         /*<<camlinternalFormat.ml:1116:4>>*/ return [0,
@@ -17593,13 +19065,13 @@
          str$0 = match$36[2],
          fmt1 = match$36[1],
          match$37 =
-            /*<<camlinternalFormat.ml:1144:39>>*/ type_format_gen
-            (fmt1, fmtty0),
+            /*<<camlinternalFormat.ml:1144:39>>*/  /*<<camlinternalFormat.ml:1144:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1144:39>>*/ (fmt1, fmtty0),
          fmtty2 = match$37[2],
          fmt2 = match$37[1],
          match$38 =
-            /*<<camlinternalFormat.ml:1145:39>>*/ type_format_gen
-            (fmt_rest$17, fmtty2),
+            /*<<camlinternalFormat.ml:1145:39>>*/  /*<<camlinternalFormat.ml:1145:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1145:39>>*/ (fmt_rest$17, fmtty2),
          fmtty3 = match$38[2],
          fmt3 = match$38[1];
          /*<<camlinternalFormat.ml:1146:4>>*/ return [0,
@@ -17611,13 +19083,13 @@
         str$1 = match$39[2],
         fmt1$0 = match$39[1],
         match$40 =
-           /*<<camlinternalFormat.ml:1148:39>>*/ type_format_gen
-           (fmt1$0, fmtty0),
+           /*<<camlinternalFormat.ml:1148:39>>*/  /*<<camlinternalFormat.ml:1148:39>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1148:39>>*/ (fmt1$0, fmtty0),
         fmtty2$0 = match$40[2],
         fmt2$0 = match$40[1],
         match$41 =
-           /*<<camlinternalFormat.ml:1149:39>>*/ type_format_gen
-           (fmt_rest$17, fmtty2$0),
+           /*<<camlinternalFormat.ml:1149:39>>*/  /*<<camlinternalFormat.ml:1149:39>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1149:39>>*/ (fmt_rest$17, fmtty2$0),
         fmtty3$0 = match$41[2],
         fmt3$0 = match$41[1];
         /*<<camlinternalFormat.ml:1150:4>>*/ return [0,
@@ -17629,8 +19101,9 @@
          fmtty_rest$13 = fmtty0[1],
          fmt_rest$18 = fmt[1],
          match$33 =
-            /*<<camlinternalFormat.ml:1122:39>>*/ type_format_gen
-            (fmt_rest$18, fmtty_rest$13),
+            /*<<camlinternalFormat.ml:1122:39>>*/  /*<<camlinternalFormat.ml:1122:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1122:39>>*/ (fmt_rest$18,
+             fmtty_rest$13),
          fmtty$17 = match$33[2],
          fmt$18 = match$33[1];
          /*<<camlinternalFormat.ml:1123:4>>*/ return [0,
@@ -17646,8 +19119,9 @@
          char_set = fmt[2],
          width_opt = fmt[1],
          match$34 =
-            /*<<camlinternalFormat.ml:1125:39>>*/ type_format_gen
-            (fmt_rest$19, fmtty_rest$14),
+            /*<<camlinternalFormat.ml:1125:39>>*/  /*<<camlinternalFormat.ml:1125:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1125:39>>*/ (fmt_rest$19,
+             fmtty_rest$14),
          fmtty$18 = match$34[2],
          fmt$19 = match$34[1];
          /*<<camlinternalFormat.ml:1126:4>>*/ return [0,
@@ -17662,8 +19136,9 @@
          fmt_rest$20 = fmt[2],
          counter = fmt[1],
          match$35 =
-            /*<<camlinternalFormat.ml:1128:39>>*/ type_format_gen
-            (fmt_rest$20, fmtty_rest$15),
+            /*<<camlinternalFormat.ml:1128:39>>*/  /*<<camlinternalFormat.ml:1128:39>>*/ type_format_gen
+             /*<<camlinternalFormat.ml:1128:39>>*/ (fmt_rest$20,
+             fmtty_rest$15),
          fmtty$19 = match$35[2],
          fmt$20 = match$35[1];
          /*<<camlinternalFormat.ml:1129:4>>*/ return [0,
@@ -17676,40 +19151,46 @@
        if(typeof ign !== "number")
         switch(ign[0]){
           case 0:
-            /*<<camlinternalFormat.ml:1161:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1161:42>>*/ return  /*<<camlinternalFormat.ml:1161:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1161:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 1:
-            /*<<camlinternalFormat.ml:1162:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1162:42>>*/ return  /*<<camlinternalFormat.ml:1162:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1162:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 2:
-            /*<<camlinternalFormat.ml:1163:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1163:42>>*/ return  /*<<camlinternalFormat.ml:1163:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1163:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 3:
-            /*<<camlinternalFormat.ml:1164:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1164:42>>*/ return  /*<<camlinternalFormat.ml:1164:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1164:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 4:
-            /*<<camlinternalFormat.ml:1165:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1165:42>>*/ return  /*<<camlinternalFormat.ml:1165:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1165:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 5:
-            /*<<camlinternalFormat.ml:1166:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1166:42>>*/ return  /*<<camlinternalFormat.ml:1166:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1166:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 6:
-            /*<<camlinternalFormat.ml:1167:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1167:42>>*/ return  /*<<camlinternalFormat.ml:1167:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1167:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 7:
-            /*<<camlinternalFormat.ml:1168:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1168:42>>*/ return  /*<<camlinternalFormat.ml:1168:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1168:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 8:
            var sub_fmtty$2 = ign[2], pad_opt$1 = ign[1];
-            /*<<camlinternalFormat.ml:1173:4>>*/ return type_ignored_param_one
-                   ([8, pad_opt$1, sub_fmtty$2], rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1173:4>>*/ return  /*<<camlinternalFormat.ml:1173:4>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1173:4>>*/ ([8,
+                     pad_opt$1,
+                     sub_fmtty$2],
+                    rest,
+                    fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 9:
            var
             sub_fmtty$3 = ign[2],
             pad_opt$2 = ign[1],
             _cz_ =
-               /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
-               (sub_fmtty$3, rest, fmtty0),
+               /*<<camlinternalFormat.ml:1176:6>>*/  /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
+                /*<<camlinternalFormat.ml:1176:6>>*/ (sub_fmtty$3,
+                rest,
+                fmtty0),
             match$43 = _cz_[2],
             fmtty$21 = match$43[2],
             fmt$22 = match$43[1],
@@ -17718,26 +19199,26 @@
                    [23, [9, pad_opt$2, sub_fmtty$4], fmt$22],
                    fmtty$21] /*<<camlinternalFormat.ml:1177:4>>*/ ;
           case 10:
-            /*<<camlinternalFormat.ml:1169:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1169:42>>*/ return  /*<<camlinternalFormat.ml:1169:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1169:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           default:
-            /*<<camlinternalFormat.ml:1170:42>>*/ return type_ignored_param_one
-                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1170:42>>*/ return  /*<<camlinternalFormat.ml:1170:42>>*/ type_ignored_param_one
+                    /*<<camlinternalFormat.ml:1170:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
         }
        switch(ign){
          case 0:
-           /*<<camlinternalFormat.ml:1159:42>>*/ return type_ignored_param_one
-                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+           /*<<camlinternalFormat.ml:1159:42>>*/ return  /*<<camlinternalFormat.ml:1159:42>>*/ type_ignored_param_one
+                   /*<<camlinternalFormat.ml:1159:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 1:
-           /*<<camlinternalFormat.ml:1160:42>>*/ return type_ignored_param_one
-                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+           /*<<camlinternalFormat.ml:1160:42>>*/ return  /*<<camlinternalFormat.ml:1160:42>>*/ type_ignored_param_one
+                   /*<<camlinternalFormat.ml:1160:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 2:
           if(typeof fmtty0 !== "number" && 14 === fmtty0[0]){
            var
             fmtty_rest$16 = fmtty0[1],
             match$42 =
-               /*<<camlinternalFormat.ml:1183:41>>*/ type_format_gen
-               (rest, fmtty_rest$16),
+               /*<<camlinternalFormat.ml:1183:41>>*/  /*<<camlinternalFormat.ml:1183:41>>*/ type_format_gen
+                /*<<camlinternalFormat.ml:1183:41>>*/ (rest, fmtty_rest$16),
             fmtty$20 = match$42[2],
             fmt$21 = match$42[1];
             /*<<camlinternalFormat.ml:1184:6>>*/ return [0,
@@ -17747,8 +19228,8 @@
            /*<<camlinternalFormat.ml:1185:11>>*/ throw  /*<<camlinternalFormat.ml:1185:11>>*/ caml_maybe_attach_backtrace
                   /*<<camlinternalFormat.ml:1185:11>>*/ (Type_mismatch, 1);
          default:
-           /*<<camlinternalFormat.ml:1171:42>>*/ return type_ignored_param_one
-                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+           /*<<camlinternalFormat.ml:1171:42>>*/ return  /*<<camlinternalFormat.ml:1171:42>>*/ type_ignored_param_one
+                   /*<<camlinternalFormat.ml:1171:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
        }
     }
      /*<<camlinternalFormat.ml:1135:9>>*/ throw  /*<<camlinternalFormat.ml:1135:9>>*/ caml_maybe_attach_backtrace
@@ -17757,7 +19238,8 @@
    function type_ignored_param_one(ign, fmt, fmtty){
     var
      match =
-        /*<<camlinternalFormat.ml:1194:37>>*/ type_format_gen(fmt, fmtty),
+        /*<<camlinternalFormat.ml:1194:37>>*/  /*<<camlinternalFormat.ml:1194:37>>*/ type_format_gen
+         /*<<camlinternalFormat.ml:1194:37>>*/ (fmt, fmtty),
      fmtty$0 = match[2],
      fmt$0 = match[1];
      /*<<camlinternalFormat.ml:1195:2>>*/ return [0,
@@ -17768,7 +19250,8 @@
      /*<<camlinternalFormat.ml:1202:27>>*/ if(typeof sub_fmtty === "number")
       /*<<camlinternalFormat.ml:1276:4>>*/ return [0,
              0,
-             type_format_gen(fmt, fmtty)] /*<<camlinternalFormat.ml:1276:4>>*/ ;
+              /*<<camlinternalFormat.ml:1276:33>>*/ type_format_gen
+               /*<<camlinternalFormat.ml:1276:33>>*/ (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:4>>*/ ;
     switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
@@ -17776,8 +19259,10 @@
          fmtty_rest = fmtty[1],
          sub_fmtty_rest = sub_fmtty[1],
          match =
-            /*<<camlinternalFormat.ml:1205:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest, fmt, fmtty_rest),
+            /*<<camlinternalFormat.ml:1205:6>>*/  /*<<camlinternalFormat.ml:1205:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1205:6>>*/ (sub_fmtty_rest,
+             fmt,
+             fmtty_rest),
          fmt$0 = match[2],
          sub_fmtty_rest$0 = match[1];
          /*<<camlinternalFormat.ml:1206:4>>*/ return [0,
@@ -17791,8 +19276,10 @@
          fmtty_rest$0 = fmtty[1],
          sub_fmtty_rest$1 = sub_fmtty[1],
          match$0 =
-            /*<<camlinternalFormat.ml:1209:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$1, fmt, fmtty_rest$0),
+            /*<<camlinternalFormat.ml:1209:6>>*/  /*<<camlinternalFormat.ml:1209:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1209:6>>*/ (sub_fmtty_rest$1,
+             fmt,
+             fmtty_rest$0),
          fmt$1 = match$0[2],
          sub_fmtty_rest$2 = match$0[1];
          /*<<camlinternalFormat.ml:1210:4>>*/ return [0,
@@ -17806,8 +19293,10 @@
          fmtty_rest$1 = fmtty[1],
          sub_fmtty_rest$3 = sub_fmtty[1],
          match$1 =
-            /*<<camlinternalFormat.ml:1213:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$3, fmt, fmtty_rest$1),
+            /*<<camlinternalFormat.ml:1213:6>>*/  /*<<camlinternalFormat.ml:1213:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1213:6>>*/ (sub_fmtty_rest$3,
+             fmt,
+             fmtty_rest$1),
          fmt$2 = match$1[2],
          sub_fmtty_rest$4 = match$1[1];
          /*<<camlinternalFormat.ml:1214:4>>*/ return [0,
@@ -17821,8 +19310,10 @@
          fmtty_rest$2 = fmtty[1],
          sub_fmtty_rest$5 = sub_fmtty[1],
          match$2 =
-            /*<<camlinternalFormat.ml:1217:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$5, fmt, fmtty_rest$2),
+            /*<<camlinternalFormat.ml:1217:6>>*/  /*<<camlinternalFormat.ml:1217:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1217:6>>*/ (sub_fmtty_rest$5,
+             fmt,
+             fmtty_rest$2),
          fmt$3 = match$2[2],
          sub_fmtty_rest$6 = match$2[1];
          /*<<camlinternalFormat.ml:1218:4>>*/ return [0,
@@ -17836,8 +19327,10 @@
          fmtty_rest$3 = fmtty[1],
          sub_fmtty_rest$7 = sub_fmtty[1],
          match$3 =
-            /*<<camlinternalFormat.ml:1221:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$7, fmt, fmtty_rest$3),
+            /*<<camlinternalFormat.ml:1221:6>>*/  /*<<camlinternalFormat.ml:1221:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1221:6>>*/ (sub_fmtty_rest$7,
+             fmt,
+             fmtty_rest$3),
          fmt$4 = match$3[2],
          sub_fmtty_rest$8 = match$3[1];
          /*<<camlinternalFormat.ml:1222:4>>*/ return [0,
@@ -17851,8 +19344,10 @@
          fmtty_rest$4 = fmtty[1],
          sub_fmtty_rest$9 = sub_fmtty[1],
          match$4 =
-            /*<<camlinternalFormat.ml:1225:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$9, fmt, fmtty_rest$4),
+            /*<<camlinternalFormat.ml:1225:6>>*/  /*<<camlinternalFormat.ml:1225:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1225:6>>*/ (sub_fmtty_rest$9,
+             fmt,
+             fmtty_rest$4),
          fmt$5 = match$4[2],
          sub_fmtty_rest$10 = match$4[1];
          /*<<camlinternalFormat.ml:1226:4>>*/ return [0,
@@ -17866,8 +19361,10 @@
          fmtty_rest$5 = fmtty[1],
          sub_fmtty_rest$11 = sub_fmtty[1],
          match$5 =
-            /*<<camlinternalFormat.ml:1229:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$11, fmt, fmtty_rest$5),
+            /*<<camlinternalFormat.ml:1229:6>>*/  /*<<camlinternalFormat.ml:1229:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1229:6>>*/ (sub_fmtty_rest$11,
+             fmt,
+             fmtty_rest$5),
          fmt$6 = match$5[2],
          sub_fmtty_rest$12 = match$5[1];
          /*<<camlinternalFormat.ml:1230:4>>*/ return [0,
@@ -17881,8 +19378,10 @@
          fmtty_rest$6 = fmtty[1],
          sub_fmtty_rest$13 = sub_fmtty[1],
          match$6 =
-            /*<<camlinternalFormat.ml:1233:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$13, fmt, fmtty_rest$6),
+            /*<<camlinternalFormat.ml:1233:6>>*/  /*<<camlinternalFormat.ml:1233:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1233:6>>*/ (sub_fmtty_rest$13,
+             fmt,
+             fmtty_rest$6),
          fmt$7 = match$6[2],
          sub_fmtty_rest$14 = match$6[1];
          /*<<camlinternalFormat.ml:1234:4>>*/ return [0,
@@ -17905,8 +19404,10 @@
                  /*<<camlinternalFormat.ml:1254:58>>*/ (Type_mismatch, 1);
         var
          match$7 =
-            /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$15, fmt, fmtty_rest$7),
+            /*<<camlinternalFormat.ml:1256:6>>*/  /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1256:6>>*/ (sub_fmtty_rest$15,
+             fmt,
+             fmtty_rest$7),
          fmt$8 = match$7[2],
          sub_fmtty_rest$16 = match$7[1];
          /*<<camlinternalFormat.ml:1257:4>>*/ return [0,
@@ -17958,18 +19459,23 @@
                  /*<<camlinternalFormat.ml:1264:9>>*/ (Type_mismatch, 1);
         var
          sub_fmtty$0 =
-            /*<<camlinternalFormat.ml:1265:21>>*/ trans
-            (symm(sub1_fmtty), sub2_fmtty$1),
+            /*<<camlinternalFormat.ml:1265:21>>*/  /*<<camlinternalFormat.ml:1265:21>>*/ trans
+             /*<<camlinternalFormat.ml:1265:21>>*/ ( /*<<camlinternalFormat.ml:1265:27>>*/ symm
+               /*<<camlinternalFormat.ml:1265:27>>*/ (sub1_fmtty),
+             sub2_fmtty$1),
          match$8 =
-            /*<<camlinternalFormat.ml:1266:23>>*/ fmtty_rel_det(sub_fmtty$0),
+            /*<<camlinternalFormat.ml:1266:23>>*/  /*<<camlinternalFormat.ml:1266:23>>*/ fmtty_rel_det
+             /*<<camlinternalFormat.ml:1266:23>>*/ (sub_fmtty$0),
          f4 = match$8[4],
          f2 = match$8[2];
-         /*<<camlinternalFormat.ml:1267:15>>*/ f2(0);
-         /*<<camlinternalFormat.ml:1268:15>>*/ f4(0);
+         /*<<camlinternalFormat.ml:1267:15>>*/  /*<<camlinternalFormat.ml:1267:15>>*/ f2
+          /*<<camlinternalFormat.ml:1267:15>>*/ (0);
+         /*<<camlinternalFormat.ml:1268:15>>*/  /*<<camlinternalFormat.ml:1268:15>>*/ f4
+          /*<<camlinternalFormat.ml:1268:15>>*/ (0);
         var
          match$9 =
-            /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
-            ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
+            /*<<camlinternalFormat.ml:1270:6>>*/  /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1270:6>>*/ ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
                /*<<camlinternalFormat.ml:1270:39>>*/ (CamlinternalFormatBasics
                 [2],
                sub_fmtty_rest$17),
@@ -17978,7 +19484,11 @@
          fmt$9 = match$9[2],
          sub_fmtty_rest$18 = match$9[1];
          /*<<camlinternalFormat.ml:1272:4>>*/ return [0,
-                [9, sub1_fmtty, sub2_fmtty$1, symm(sub_fmtty_rest$18)],
+                [9,
+                 sub1_fmtty,
+                 sub2_fmtty$1,
+                  /*<<camlinternalFormat.ml:1273:36>>*/ symm
+                   /*<<camlinternalFormat.ml:1273:36>>*/ (sub_fmtty_rest$18)],
                 fmt$9] /*<<camlinternalFormat.ml:1272:4>>*/ ;
        }
        break;
@@ -17988,8 +19498,10 @@
          fmtty_rest$9 = fmtty[1],
          sub_fmtty_rest$19 = sub_fmtty[1],
          match$10 =
-            /*<<camlinternalFormat.ml:1237:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$19, fmt, fmtty_rest$9),
+            /*<<camlinternalFormat.ml:1237:6>>*/  /*<<camlinternalFormat.ml:1237:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1237:6>>*/ (sub_fmtty_rest$19,
+             fmt,
+             fmtty_rest$9),
          fmt$10 = match$10[2],
          sub_fmtty_rest$20 = match$10[1];
          /*<<camlinternalFormat.ml:1238:4>>*/ return [0,
@@ -18003,8 +19515,10 @@
          fmtty_rest$10 = fmtty[1],
          sub_fmtty_rest$21 = sub_fmtty[1],
          match$11 =
-            /*<<camlinternalFormat.ml:1241:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$21, fmt, fmtty_rest$10),
+            /*<<camlinternalFormat.ml:1241:6>>*/  /*<<camlinternalFormat.ml:1241:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1241:6>>*/ (sub_fmtty_rest$21,
+             fmt,
+             fmtty_rest$10),
          fmt$11 = match$11[2],
          sub_fmtty_rest$22 = match$11[1];
          /*<<camlinternalFormat.ml:1242:4>>*/ return [0,
@@ -18018,8 +19532,10 @@
          fmtty_rest$11 = fmtty[1],
          sub_fmtty_rest$23 = sub_fmtty[1],
          match$12 =
-            /*<<camlinternalFormat.ml:1245:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$23, fmt, fmtty_rest$11),
+            /*<<camlinternalFormat.ml:1245:6>>*/  /*<<camlinternalFormat.ml:1245:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1245:6>>*/ (sub_fmtty_rest$23,
+             fmt,
+             fmtty_rest$11),
          fmt$12 = match$12[2],
          sub_fmtty_rest$24 = match$12[1];
          /*<<camlinternalFormat.ml:1246:4>>*/ return [0,
@@ -18033,8 +19549,10 @@
          fmtty_rest$12 = fmtty[1],
          sub_fmtty_rest$25 = sub_fmtty[1],
          match$13 =
-            /*<<camlinternalFormat.ml:1249:6>>*/ type_ignored_format_substituti
-            (sub_fmtty_rest$25, fmt, fmtty_rest$12),
+            /*<<camlinternalFormat.ml:1249:6>>*/  /*<<camlinternalFormat.ml:1249:6>>*/ type_ignored_format_substituti
+             /*<<camlinternalFormat.ml:1249:6>>*/ (sub_fmtty_rest$25,
+             fmt,
+             fmtty_rest$12),
          fmt$13 = match$13[2],
          sub_fmtty_rest$26 = match$13[1];
          /*<<camlinternalFormat.ml:1250:4>>*/ return [0,
@@ -18047,9 +19565,12 @@
             /*<<camlinternalFormat.ml:1277:9>>*/ (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
-    var _cv_ =  /*<<camlinternalFormat.ml:1312:29>>*/ symm(fmtty);
-     /*<<camlinternalFormat.ml:1312:18>>*/ return type_format
-            (fmt,
+    var
+     _cv_ =
+        /*<<camlinternalFormat.ml:1312:29>>*/  /*<<camlinternalFormat.ml:1312:29>>*/ symm
+         /*<<camlinternalFormat.ml:1312:29>>*/ (fmtty);
+     /*<<camlinternalFormat.ml:1312:18>>*/ return  /*<<camlinternalFormat.ml:1312:18>>*/ type_format
+             /*<<camlinternalFormat.ml:1312:18>>*/ (fmt,
               /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
                /*<<camlinternalFormat.ml:1312:18>>*/ (CamlinternalFormatBasics
                 [2],
@@ -18294,17 +19815,26 @@
      prec$0 =
         /*<<camlinternalFormat.ml:1414:15>>*/  /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1
          /*<<camlinternalFormat.ml:1414:15>>*/ (Stdlib[18], prec),
-     symb =  /*<<camlinternalFormat.ml:1415:15>>*/ char_of_fconv(_r_, fconv),
-     buf =  /*<<camlinternalFormat.ml:1416:14>>*/ buffer_create(16);
-     /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char(buf, 37);
-     /*<<camlinternalFormat.ml:1418:4>>*/ bprint_fconv_flag(buf, fconv);
-     /*<<camlinternalFormat.ml:1419:4>>*/ buffer_add_char(buf, 46);
-     /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
-     (buf,
+     symb =
+        /*<<camlinternalFormat.ml:1415:15>>*/  /*<<camlinternalFormat.ml:1415:15>>*/ char_of_fconv
+         /*<<camlinternalFormat.ml:1415:15>>*/ (_r_, fconv),
+     buf =
+        /*<<camlinternalFormat.ml:1416:14>>*/  /*<<camlinternalFormat.ml:1416:14>>*/ buffer_create
+         /*<<camlinternalFormat.ml:1416:14>>*/ (16);
+     /*<<camlinternalFormat.ml:1417:4>>*/  /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char
+      /*<<camlinternalFormat.ml:1417:4>>*/ (buf, 37);
+     /*<<camlinternalFormat.ml:1418:4>>*/  /*<<camlinternalFormat.ml:1418:4>>*/ bprint_fconv_flag
+      /*<<camlinternalFormat.ml:1418:4>>*/ (buf, fconv);
+     /*<<camlinternalFormat.ml:1419:4>>*/  /*<<camlinternalFormat.ml:1419:4>>*/ buffer_add_char
+      /*<<camlinternalFormat.ml:1419:4>>*/ (buf, 46);
+     /*<<camlinternalFormat.ml:1420:4>>*/  /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
+      /*<<camlinternalFormat.ml:1420:4>>*/ (buf,
        /*<<camlinternalFormat.ml:1420:26>>*/ caml_call1
         /*<<camlinternalFormat.ml:1420:26>>*/ (Stdlib_Int[12], prec$0));
-     /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char(buf, symb);
-     /*<<camlinternalFormat.ml:1421:4>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
+     /*<<camlinternalFormat.ml:1421:4>>*/  /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char
+      /*<<camlinternalFormat.ml:1421:4>>*/ (buf, symb);
+     /*<<camlinternalFormat.ml:1421:4>>*/ return  /*<<camlinternalFormat.ml:1421:4>>*/ buffer_contents
+             /*<<camlinternalFormat.ml:1421:4>>*/ (buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
     /*<<camlinternalFormat.ml:1422:23>>*/ }
    function transform_int_alt(iconv, s){
      /*<<camlinternalFormat.ml:1425:2>>*/ if(13 > iconv)
@@ -18346,14 +19876,17 @@
      for(;;){
       var c = caml_string_unsafe_get(s, i);
       if(9 < c - 48 >>> 0)
-        /*<<camlinternalFormat.ml:1444:13>>*/ put(c);
+        /*<<camlinternalFormat.ml:1444:13>>*/  /*<<camlinternalFormat.ml:1444:13>>*/ put
+         /*<<camlinternalFormat.ml:1444:13>>*/ (c);
       else{
        if(0 === left[1]){
-         /*<<camlinternalFormat.ml:1443:29>>*/ put(95);
+         /*<<camlinternalFormat.ml:1443:29>>*/  /*<<camlinternalFormat.ml:1443:29>>*/ put
+          /*<<camlinternalFormat.ml:1443:29>>*/ (95);
         left[1] = 3;
        }
        left[1]--;
-        /*<<camlinternalFormat.ml:1443:61>>*/ put(c);
+        /*<<camlinternalFormat.ml:1443:61>>*/  /*<<camlinternalFormat.ml:1443:61>>*/ put
+         /*<<camlinternalFormat.ml:1443:61>>*/ (c);
       }
       var _cs_ =  /*<<camlinternalFormat.ml:1440:4>>*/ i + 1 | 0;
       if(_cr_ === i) break;
@@ -18393,8 +19926,8 @@
        var _cn_ = cst_i$0; break;
       default: var _cn_ = cst_u;
     }
-     /*<<camlinternalFormat.ml:1451:26>>*/ return transform_int_alt
-            (iconv,
+     /*<<camlinternalFormat.ml:1451:26>>*/ return  /*<<camlinternalFormat.ml:1451:26>>*/ transform_int_alt
+             /*<<camlinternalFormat.ml:1451:26>>*/ (iconv,
               /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int
                /*<<camlinternalFormat.ml:1451:26>>*/ (_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
     /*<<camlinternalFormat.ml:1451:64>>*/ }
@@ -18428,8 +19961,8 @@
        var _cm_ = cst_li$0; break;
       default: var _cm_ = cst_lu;
     }
-     /*<<camlinternalFormat.ml:1453:26>>*/ return transform_int_alt
-            (iconv,
+     /*<<camlinternalFormat.ml:1453:26>>*/ return  /*<<camlinternalFormat.ml:1453:26>>*/ transform_int_alt
+             /*<<camlinternalFormat.ml:1453:26>>*/ (iconv,
               /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int
                /*<<camlinternalFormat.ml:1453:26>>*/ (_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
     /*<<camlinternalFormat.ml:1453:67>>*/ }
@@ -18463,8 +19996,8 @@
        var _cl_ = cst_ni$0; break;
       default: var _cl_ = cst_nu;
     }
-     /*<<camlinternalFormat.ml:1455:26>>*/ return transform_int_alt
-            (iconv,
+     /*<<camlinternalFormat.ml:1455:26>>*/ return  /*<<camlinternalFormat.ml:1455:26>>*/ transform_int_alt
+             /*<<camlinternalFormat.ml:1455:26>>*/ (iconv,
               /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int
                /*<<camlinternalFormat.ml:1455:26>>*/ (_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
     /*<<camlinternalFormat.ml:1455:71>>*/ }
@@ -18498,8 +20031,8 @@
        var _ck_ = cst_Li$0; break;
       default: var _ck_ = cst_Lu;
     }
-     /*<<camlinternalFormat.ml:1457:26>>*/ return transform_int_alt
-            (iconv,
+     /*<<camlinternalFormat.ml:1457:26>>*/ return  /*<<camlinternalFormat.ml:1457:26>>*/ transform_int_alt
+             /*<<camlinternalFormat.ml:1457:26>>*/ (iconv,
               /*<<camlinternalFormat.ml:1457:26>>*/ runtime.caml_int64_format
                /*<<camlinternalFormat.ml:1457:26>>*/ (_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
     /*<<camlinternalFormat.ml:1457:67>>*/ }
@@ -18529,8 +20062,8 @@
        var
         str =
            /*<<camlinternalFormat.ml:1486:14>>*/  /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
-            /*<<camlinternalFormat.ml:1486:14>>*/ (format_of_fconv
-             (fconv, prec),
+            /*<<camlinternalFormat.ml:1486:14>>*/ ( /*<<camlinternalFormat.ml:1486:27>>*/ format_of_fconv
+              /*<<camlinternalFormat.ml:1486:27>>*/ (fconv, prec),
             x),
         len = caml_ml_string_length(str),
         i = 0;
@@ -18562,28 +20095,40 @@
             ? str
             :  /*<<camlinternalFormat.ml:1476:32>>*/ caml_call2
                /*<<camlinternalFormat.ml:1476:32>>*/ (Stdlib[28], str, cst$17);
-         /*<<camlinternalFormat.ml:1487:21>>*/ return caml_special_val(_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+         /*<<camlinternalFormat.ml:1487:21>>*/ return  /*<<camlinternalFormat.ml:1487:21>>*/ caml_special_val
+                 /*<<camlinternalFormat.ml:1487:21>>*/ (_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
        }
       case 6:
-        /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+        /*<<camlinternalFormat.ml:1482:15>>*/ return  /*<<camlinternalFormat.ml:1482:15>>*/ hex
+                /*<<camlinternalFormat.ml:1482:15>>*/ (0) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 7:
-       var _cj_ =  /*<<camlinternalFormat.ml:1483:38>>*/ hex(0);
+       var
+        _cj_ =
+           /*<<camlinternalFormat.ml:1483:38>>*/  /*<<camlinternalFormat.ml:1483:38>>*/ hex
+            /*<<camlinternalFormat.ml:1483:38>>*/ (0);
         /*<<camlinternalFormat.ml:1483:38>>*/ return  /*<<camlinternalFormat.ml:1483:38>>*/ caml_call1
                 /*<<camlinternalFormat.ml:1483:38>>*/ (Stdlib_String[26],
                 _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 8:
-        /*<<camlinternalFormat.ml:1484:33>>*/ return caml_special_val(hex(0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+        /*<<camlinternalFormat.ml:1484:33>>*/ return  /*<<camlinternalFormat.ml:1484:33>>*/ caml_special_val
+                /*<<camlinternalFormat.ml:1484:33>>*/ ( /*<<camlinternalFormat.ml:1484:33>>*/ hex
+                  /*<<camlinternalFormat.ml:1484:33>>*/ (0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       default:
         /*<<camlinternalFormat.ml:1489:4>>*/ return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
-                /*<<camlinternalFormat.ml:1489:4>>*/ (format_of_fconv
-                 (fconv, prec),
+                /*<<camlinternalFormat.ml:1489:4>>*/ ( /*<<camlinternalFormat.ml:1489:17>>*/ format_of_fconv
+                  /*<<camlinternalFormat.ml:1489:17>>*/ (fconv, prec),
                 x) /*<<camlinternalFormat.ml:1489:47>>*/ ;
     }
     /*<<camlinternalFormat.ml:1489:47>>*/ }
    function string_of_fmtty(fmtty){
-    var buf =  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create(16);
-     /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty(buf, fmtty);
-     /*<<camlinternalFormat.ml:1502:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
+    var
+     buf =
+        /*<<camlinternalFormat.ml:1501:12>>*/  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create
+         /*<<camlinternalFormat.ml:1501:12>>*/ (16);
+     /*<<camlinternalFormat.ml:1502:2>>*/  /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty
+      /*<<camlinternalFormat.ml:1502:2>>*/ (buf, fmtty);
+     /*<<camlinternalFormat.ml:1502:2>>*/ return  /*<<camlinternalFormat.ml:1502:2>>*/ buffer_contents
+             /*<<camlinternalFormat.ml:1502:2>>*/ (buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
     /*<<camlinternalFormat.ml:1503:21>>*/ }
    function make_printf$0(counter, k, acc, fmt){
     var k$0 = k, acc$0 = acc, fmt$0 = fmt;
@@ -18596,8 +20141,8 @@
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1521:20>>*/ [5, acc$0, c];
-          /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
-                 (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ; /*<<camlinternalFormat.ml:1522:32>>*/ } /*<<camlinternalFormat.ml:1520:4>>*/ ;
+          /*<<camlinternalFormat.ml:1522:6>>*/ return  /*<<camlinternalFormat.ml:1522:6>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1522:6>>*/ (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ; /*<<camlinternalFormat.ml:1522:32>>*/ } /*<<camlinternalFormat.ml:1520:4>>*/ ;
        case 1:
         var rest$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1524:4>>*/ return function(c){
@@ -18621,12 +20166,12 @@
              acc$0,
               /*<<camlinternalFormat.ml:1496:2>>*/ caml_call1
                /*<<camlinternalFormat.ml:1496:2>>*/ (Stdlib_Bytes[44], res)];
-          /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
-                 (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ; /*<<camlinternalFormat.ml:1526:32>>*/ } /*<<camlinternalFormat.ml:1524:4>>*/ ;
+          /*<<camlinternalFormat.ml:1526:6>>*/ return  /*<<camlinternalFormat.ml:1526:6>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1526:6>>*/ (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ; /*<<camlinternalFormat.ml:1526:32>>*/ } /*<<camlinternalFormat.ml:1524:4>>*/ ;
        case 2:
         var rest$1 = fmt$0[2], pad = fmt$0[1];
-         /*<<camlinternalFormat.ml:1528:32>>*/ return make_padding
-                (k$0,
+         /*<<camlinternalFormat.ml:1528:32>>*/ return  /*<<camlinternalFormat.ml:1528:32>>*/ make_padding
+                 /*<<camlinternalFormat.ml:1528:32>>*/ (k$0,
                  acc$0,
                  rest$1,
                  pad,
@@ -18635,32 +20180,48 @@
                   /*<<camlinternalFormat.ml:1528:47>>*/ }) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 3:
         var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1530:4>>*/ return make_padding
-                (k$0, acc$0, rest$2, pad$0, string_to_caml_string) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1530:4>>*/ return  /*<<camlinternalFormat.ml:1530:4>>*/ make_padding
+                 /*<<camlinternalFormat.ml:1530:4>>*/ (k$0,
+                 acc$0,
+                 rest$2,
+                 pad$0,
+                 string_to_caml_string) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 4:
         var
          rest$3 = fmt$0[4],
          prec = fmt$0[3],
          pad$1 = fmt$0[2],
          iconv = fmt$0[1];
-         /*<<camlinternalFormat.ml:1532:4>>*/ return make_int_padding_precision
-                (k$0, acc$0, rest$3, pad$1, prec, convert_int, iconv) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1532:4>>*/ return  /*<<camlinternalFormat.ml:1532:4>>*/ make_int_padding_precision
+                 /*<<camlinternalFormat.ml:1532:4>>*/ (k$0,
+                 acc$0,
+                 rest$3,
+                 pad$1,
+                 prec,
+                 convert_int,
+                 iconv) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 5:
         var
          rest$4 = fmt$0[4],
          prec$0 = fmt$0[3],
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1534:4>>*/ return make_int_padding_precision
-                (k$0, acc$0, rest$4, pad$2, prec$0, convert_int32, iconv$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1534:4>>*/ return  /*<<camlinternalFormat.ml:1534:4>>*/ make_int_padding_precision
+                 /*<<camlinternalFormat.ml:1534:4>>*/ (k$0,
+                 acc$0,
+                 rest$4,
+                 pad$2,
+                 prec$0,
+                 convert_int32,
+                 iconv$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 6:
         var
          rest$5 = fmt$0[4],
          prec$1 = fmt$0[3],
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1536:4>>*/ return make_int_padding_precision
-                (k$0,
+         /*<<camlinternalFormat.ml:1536:4>>*/ return  /*<<camlinternalFormat.ml:1536:4>>*/ make_int_padding_precision
+                 /*<<camlinternalFormat.ml:1536:4>>*/ (k$0,
                  acc$0,
                  rest$5,
                  pad$3,
@@ -18673,8 +20234,14 @@
          prec$2 = fmt$0[3],
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1538:4>>*/ return make_int_padding_precision
-                (k$0, acc$0, rest$6, pad$4, prec$2, convert_int64, iconv$2) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1538:4>>*/ return  /*<<camlinternalFormat.ml:1538:4>>*/ make_int_padding_precision
+                 /*<<camlinternalFormat.ml:1538:4>>*/ (k$0,
+                 acc$0,
+                 rest$6,
+                 pad$4,
+                 prec$2,
+                 convert_int64,
+                 iconv$2) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 8:
         var
          rest$7 = fmt$0[4],
@@ -18688,27 +20255,37 @@
                    (p, x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1746:16>>*/ convert_float
-                        (fconv, p, x);
-                     /*<<camlinternalFormat.ml:1747:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1747:52>>*/ ;
+                        /*<<camlinternalFormat.ml:1746:16>>*/  /*<<camlinternalFormat.ml:1746:16>>*/ convert_float
+                         /*<<camlinternalFormat.ml:1746:16>>*/ (fconv, p, x);
+                     /*<<camlinternalFormat.ml:1747:6>>*/ return  /*<<camlinternalFormat.ml:1747:6>>*/ make_printf
+                             /*<<camlinternalFormat.ml:1747:6>>*/ (k$0,
+                             [4, acc$0, str],
+                             rest$7) /*<<camlinternalFormat.ml:1747:52>>*/ ;
                     /*<<camlinternalFormat.ml:1747:52>>*/ }
                   : function
                    (x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
-                        (fconv, default_float_precision(fconv), x);
-                     /*<<camlinternalFormat.ml:1739:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1739:52>>*/ ;
+                        /*<<camlinternalFormat.ml:1738:16>>*/  /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
+                         /*<<camlinternalFormat.ml:1738:16>>*/ (fconv,
+                          /*<<camlinternalFormat.ml:1738:36>>*/ default_float_precision
+                           /*<<camlinternalFormat.ml:1738:36>>*/ (fconv),
+                         x);
+                     /*<<camlinternalFormat.ml:1739:6>>*/ return  /*<<camlinternalFormat.ml:1739:6>>*/ make_printf
+                             /*<<camlinternalFormat.ml:1739:6>>*/ (k$0,
+                             [4, acc$0, str],
+                             rest$7) /*<<camlinternalFormat.ml:1739:52>>*/ ;
                     /*<<camlinternalFormat.ml:1739:52>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
          var p = prec$3[1];
           /*<<camlinternalFormat.ml:1741:4>>*/ return function(x){
           var
            str =
-              /*<<camlinternalFormat.ml:1742:16>>*/ convert_float(fconv, p, x);
-           /*<<camlinternalFormat.ml:1743:6>>*/ return make_printf
-                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1743:52>>*/ ; /*<<camlinternalFormat.ml:1743:52>>*/ } /*<<camlinternalFormat.ml:1741:4>>*/ ;
+              /*<<camlinternalFormat.ml:1742:16>>*/  /*<<camlinternalFormat.ml:1742:16>>*/ convert_float
+               /*<<camlinternalFormat.ml:1742:16>>*/ (fconv, p, x);
+           /*<<camlinternalFormat.ml:1743:6>>*/ return  /*<<camlinternalFormat.ml:1743:6>>*/ make_printf
+                   /*<<camlinternalFormat.ml:1743:6>>*/ (k$0,
+                   [4, acc$0, str],
+                   rest$7) /*<<camlinternalFormat.ml:1743:52>>*/ ; /*<<camlinternalFormat.ml:1743:52>>*/ } /*<<camlinternalFormat.ml:1741:4>>*/ ;
         }
         if(0 === pad$5[0]){
          var w = pad$5[2], padty = pad$5[1];
@@ -18718,31 +20295,46 @@
                    (p, x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
-                        (padty, w, convert_float(fconv, p, x));
-                     /*<<camlinternalFormat.ml:1760:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1760:52>>*/ ;
+                        /*<<camlinternalFormat.ml:1759:16>>*/  /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
+                         /*<<camlinternalFormat.ml:1759:16>>*/ (padty,
+                         w,
+                          /*<<camlinternalFormat.ml:1759:36>>*/ convert_float
+                           /*<<camlinternalFormat.ml:1759:36>>*/ (fconv, p, x));
+                     /*<<camlinternalFormat.ml:1760:6>>*/ return  /*<<camlinternalFormat.ml:1760:6>>*/ make_printf
+                             /*<<camlinternalFormat.ml:1760:6>>*/ (k$0,
+                             [4, acc$0, str],
+                             rest$7) /*<<camlinternalFormat.ml:1760:52>>*/ ;
                     /*<<camlinternalFormat.ml:1760:52>>*/ }
                   : function
                    (x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
-                        (fconv, default_float_precision(fconv), x),
+                        /*<<camlinternalFormat.ml:1750:16>>*/  /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
+                         /*<<camlinternalFormat.ml:1750:16>>*/ (fconv,
+                          /*<<camlinternalFormat.ml:1750:36>>*/ default_float_precision
+                           /*<<camlinternalFormat.ml:1750:36>>*/ (fconv),
+                         x),
                      str$0 =
-                        /*<<camlinternalFormat.ml:1751:17>>*/ fix_padding
-                        (padty, w, str);
-                     /*<<camlinternalFormat.ml:1752:6>>*/ return make_printf
-                            (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1752:53>>*/ ;
+                        /*<<camlinternalFormat.ml:1751:17>>*/  /*<<camlinternalFormat.ml:1751:17>>*/ fix_padding
+                         /*<<camlinternalFormat.ml:1751:17>>*/ (padty, w, str);
+                     /*<<camlinternalFormat.ml:1752:6>>*/ return  /*<<camlinternalFormat.ml:1752:6>>*/ make_printf
+                             /*<<camlinternalFormat.ml:1752:6>>*/ (k$0,
+                             [4, acc$0, str$0],
+                             rest$7) /*<<camlinternalFormat.ml:1752:53>>*/ ;
                     /*<<camlinternalFormat.ml:1752:53>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
          var p$0 = prec$3[1];
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
           var
            str =
-              /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
-              (padty, w, convert_float(fconv, p$0, x));
-           /*<<camlinternalFormat.ml:1756:6>>*/ return make_printf
-                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1756:52>>*/ ; /*<<camlinternalFormat.ml:1756:52>>*/ } /*<<camlinternalFormat.ml:1754:4>>*/ ;
+              /*<<camlinternalFormat.ml:1755:16>>*/  /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
+               /*<<camlinternalFormat.ml:1755:16>>*/ (padty,
+               w,
+                /*<<camlinternalFormat.ml:1755:36>>*/ convert_float
+                 /*<<camlinternalFormat.ml:1755:36>>*/ (fconv, p$0, x));
+           /*<<camlinternalFormat.ml:1756:6>>*/ return  /*<<camlinternalFormat.ml:1756:6>>*/ make_printf
+                   /*<<camlinternalFormat.ml:1756:6>>*/ (k$0,
+                   [4, acc$0, str],
+                   rest$7) /*<<camlinternalFormat.ml:1756:52>>*/ ; /*<<camlinternalFormat.ml:1756:52>>*/ } /*<<camlinternalFormat.ml:1754:4>>*/ ;
         }
         var padty$0 = pad$5[1];
         if(typeof prec$3 === "number")
@@ -18751,35 +20343,54 @@
                   (w, p, x){
                    var
                     str =
-                       /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
-                       (padty$0, w, convert_float(fconv, p, x));
-                    /*<<camlinternalFormat.ml:1773:6>>*/ return make_printf
-                           (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1773:52>>*/ ;
+                       /*<<camlinternalFormat.ml:1772:16>>*/  /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
+                        /*<<camlinternalFormat.ml:1772:16>>*/ (padty$0,
+                        w,
+                         /*<<camlinternalFormat.ml:1772:36>>*/ convert_float
+                          /*<<camlinternalFormat.ml:1772:36>>*/ (fconv, p, x));
+                    /*<<camlinternalFormat.ml:1773:6>>*/ return  /*<<camlinternalFormat.ml:1773:6>>*/ make_printf
+                            /*<<camlinternalFormat.ml:1773:6>>*/ (k$0,
+                            [4, acc$0, str],
+                            rest$7) /*<<camlinternalFormat.ml:1773:52>>*/ ;
                    /*<<camlinternalFormat.ml:1773:52>>*/ }
                  : function
                   (w, x){
                    var
                     str =
-                       /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
-                       (fconv, default_float_precision(fconv), x),
+                       /*<<camlinternalFormat.ml:1763:16>>*/  /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
+                        /*<<camlinternalFormat.ml:1763:16>>*/ (fconv,
+                         /*<<camlinternalFormat.ml:1763:36>>*/ default_float_precision
+                          /*<<camlinternalFormat.ml:1763:36>>*/ (fconv),
+                        x),
                     str$0 =
-                       /*<<camlinternalFormat.ml:1764:17>>*/ fix_padding
-                       (padty$0, w, str);
-                    /*<<camlinternalFormat.ml:1765:6>>*/ return make_printf
-                           (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1765:53>>*/ ;
+                       /*<<camlinternalFormat.ml:1764:17>>*/  /*<<camlinternalFormat.ml:1764:17>>*/ fix_padding
+                        /*<<camlinternalFormat.ml:1764:17>>*/ (padty$0, w, str);
+                    /*<<camlinternalFormat.ml:1765:6>>*/ return  /*<<camlinternalFormat.ml:1765:6>>*/ make_printf
+                            /*<<camlinternalFormat.ml:1765:6>>*/ (k$0,
+                            [4, acc$0, str$0],
+                            rest$7) /*<<camlinternalFormat.ml:1765:53>>*/ ;
                    /*<<camlinternalFormat.ml:1765:53>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var p$1 = prec$3[1];
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
          var
           str =
-             /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
-             (padty$0, w, convert_float(fconv, p$1, x));
-          /*<<camlinternalFormat.ml:1769:6>>*/ return make_printf
-                 (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1769:52>>*/ ; /*<<camlinternalFormat.ml:1769:52>>*/ } /*<<camlinternalFormat.ml:1767:4>>*/ ;
+             /*<<camlinternalFormat.ml:1768:16>>*/  /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
+              /*<<camlinternalFormat.ml:1768:16>>*/ (padty$0,
+              w,
+               /*<<camlinternalFormat.ml:1768:36>>*/ convert_float
+                /*<<camlinternalFormat.ml:1768:36>>*/ (fconv, p$1, x));
+          /*<<camlinternalFormat.ml:1769:6>>*/ return  /*<<camlinternalFormat.ml:1769:6>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1769:6>>*/ (k$0,
+                  [4, acc$0, str],
+                  rest$7) /*<<camlinternalFormat.ml:1769:52>>*/ ; /*<<camlinternalFormat.ml:1769:52>>*/ } /*<<camlinternalFormat.ml:1767:4>>*/ ;
        case 9:
         var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1542:4>>*/ return make_padding
-                (k$0, acc$0, rest$8, pad$6, Stdlib[30]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1542:4>>*/ return  /*<<camlinternalFormat.ml:1542:4>>*/ make_padding
+                 /*<<camlinternalFormat.ml:1542:4>>*/ (k$0,
+                 acc$0,
+                 rest$8,
+                 pad$6,
+                 Stdlib[30]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 10:
         var
          rest$9 = fmt$0[1],
@@ -18808,18 +20419,23 @@
          rest$12 = fmt$0[3],
          sub_fmtty = fmt$0[2],
          ty =
-            /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
+            /*<<camlinternalFormat.ml:1568:13>>*/  /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty
+             /*<<camlinternalFormat.ml:1568:13>>*/ (sub_fmtty);
          /*<<camlinternalFormat.ml:1569:4>>*/ return function(str){
-          /*<<camlinternalFormat.ml:1570:6>>*/ return make_printf
-                 (k$0, [4, acc$0, ty], rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ; /*<<camlinternalFormat.ml:1571:52>>*/ } /*<<camlinternalFormat.ml:1569:4>>*/ ;
+          /*<<camlinternalFormat.ml:1570:6>>*/ return  /*<<camlinternalFormat.ml:1569:4>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1569:4>>*/ (k$0,
+                  [4, acc$0, ty],
+                  rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ; /*<<camlinternalFormat.ml:1571:52>>*/ } /*<<camlinternalFormat.ml:1569:4>>*/ ;
        case 14:
         var rest$13 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1573:4>>*/ return function(param){
          var
           fmt = param[1],
-          _cf_ =  /*<<camlinternalFormat.ml:1574:18>>*/ recast(fmt, fmtty);
-          /*<<camlinternalFormat.ml:1574:6>>*/ return make_printf
-                 (k$0,
+          _cf_ =
+             /*<<camlinternalFormat.ml:1574:18>>*/  /*<<camlinternalFormat.ml:1574:18>>*/ recast
+              /*<<camlinternalFormat.ml:1574:18>>*/ (fmt, fmtty);
+          /*<<camlinternalFormat.ml:1574:6>>*/ return  /*<<camlinternalFormat.ml:1574:6>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1574:6>>*/ (k$0,
                   acc$0,
                    /*<<camlinternalFormat.ml:1574:6>>*/ caml_call2
                     /*<<camlinternalFormat.ml:1574:6>>*/ (CamlinternalFormatBasics
@@ -18829,8 +20445,8 @@
        case 15:
         var rest$14 = fmt$0[1];
          /*<<camlinternalFormat.ml:1544:4>>*/ return function(f, x){
-          /*<<camlinternalFormat.ml:1544:15>>*/ return make_printf
-                 (k$0,
+          /*<<camlinternalFormat.ml:1544:15>>*/ return  /*<<camlinternalFormat.ml:1544:4>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1544:4>>*/ (k$0,
                   [6,
                    acc$0,
                    function(o){
@@ -18841,8 +20457,10 @@
        case 16:
         var rest$15 = fmt$0[1];
          /*<<camlinternalFormat.ml:1546:4>>*/ return function(f){
-          /*<<camlinternalFormat.ml:1546:13>>*/ return make_printf
-                 (k$0, [6, acc$0, f], rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ; /*<<camlinternalFormat.ml:1546:52>>*/ } /*<<camlinternalFormat.ml:1546:4>>*/ ;
+          /*<<camlinternalFormat.ml:1546:13>>*/ return  /*<<camlinternalFormat.ml:1546:4>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1546:4>>*/ (k$0,
+                  [6, acc$0, f],
+                  rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ; /*<<camlinternalFormat.ml:1546:52>>*/ } /*<<camlinternalFormat.ml:1546:4>>*/ ;
        case 17:
         var
          rest$16 = fmt$0[2],
@@ -18859,8 +20477,10 @@
          var
           k$1 =
             function(kacc){
-              /*<<camlinternalFormat.ml:1597:6>>*/ return make_printf
-                     (k, [1, acc, [0, kacc]], rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
+              /*<<camlinternalFormat.ml:1597:6>>*/ return  /*<<camlinternalFormat.ml:1596:4>>*/ make_printf
+                      /*<<camlinternalFormat.ml:1596:4>>*/ (k,
+                      [1, acc, [0, kacc]],
+                      rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
              /*<<camlinternalFormat.ml:1597:70>>*/ };
          k$0 = k$1;
          acc$0 = 0;
@@ -18872,8 +20492,10 @@
          var
           k$2 =
             function(kacc){
-              /*<<camlinternalFormat.ml:1601:6>>*/ return make_printf
-                     (k, [1, acc, [1, kacc]], rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
+              /*<<camlinternalFormat.ml:1601:6>>*/ return  /*<<camlinternalFormat.ml:1600:4>>*/ make_printf
+                      /*<<camlinternalFormat.ml:1600:4>>*/ (k,
+                      [1, acc, [1, kacc]],
+                      rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
              /*<<camlinternalFormat.ml:1601:70>>*/ };
          k$0 = k$2;
          acc$0 = 0;
@@ -18892,8 +20514,8 @@
             acc$0,
             cst_Printf_bad_conversion];
          /*<<camlinternalFormat.ml:1578:4>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1578:13>>*/ return make_printf
-                 (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ; /*<<camlinternalFormat.ml:1578:39>>*/ } /*<<camlinternalFormat.ml:1578:4>>*/ ;
+          /*<<camlinternalFormat.ml:1578:13>>*/ return  /*<<camlinternalFormat.ml:1578:4>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1578:4>>*/ (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ; /*<<camlinternalFormat.ml:1578:39>>*/ } /*<<camlinternalFormat.ml:1578:4>>*/ ;
        case 21:
         var rest$20 = fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
@@ -18903,14 +20525,14 @@
              acc$0,
               /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
                /*<<camlinternalFormat.ml:1584:42>>*/ (cst_u$0, n)];
-          /*<<camlinternalFormat.ml:1585:6>>*/ return make_printf
-                 (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ; /*<<camlinternalFormat.ml:1585:32>>*/ } /*<<camlinternalFormat.ml:1583:4>>*/ ;
+          /*<<camlinternalFormat.ml:1585:6>>*/ return  /*<<camlinternalFormat.ml:1585:6>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1585:6>>*/ (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ; /*<<camlinternalFormat.ml:1585:32>>*/ } /*<<camlinternalFormat.ml:1583:4>>*/ ;
        case 22:
         var rest$21 = fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1588:20>>*/ [5, acc$0, c];
-          /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
-                 (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ; /*<<camlinternalFormat.ml:1589:32>>*/ } /*<<camlinternalFormat.ml:1587:4>>*/ ;
+          /*<<camlinternalFormat.ml:1589:6>>*/ return  /*<<camlinternalFormat.ml:1589:6>>*/ make_printf
+                  /*<<camlinternalFormat.ml:1589:6>>*/ (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ; /*<<camlinternalFormat.ml:1589:32>>*/ } /*<<camlinternalFormat.ml:1587:4>>*/ ;
        case 23:
         var rest$22 = fmt$0[2], ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1591:4>>*/ if(counter >= 50)
@@ -18918,8 +20540,12 @@
                   /*<<camlinternalFormat.ml:1591:4>>*/ (make_ignored_param$0,
                   [0, k$0, acc$0, ign, rest$22]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$1 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1591:4>>*/ return make_ignored_param$0
-                (counter$1, k$0, acc$0, ign, rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1591:4>>*/ return  /*<<camlinternalFormat.ml:1591:4>>*/ make_ignored_param$0
+                 /*<<camlinternalFormat.ml:1591:4>>*/ (counter$1,
+                 k$0,
+                 acc$0,
+                 ign,
+                 rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        default:
         var
          rest$23 = fmt$0[3],
@@ -18933,8 +20559,13 @@
                   /*<<camlinternalFormat.ml:1548:33>>*/ (make_custom$0,
                   [0, k$0, acc$0, rest$23, arity, _ce_]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1548:33>>*/ return make_custom$0
-                (counter$0, k$0, acc$0, rest$23, arity, _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1548:33>>*/ return  /*<<camlinternalFormat.ml:1548:33>>*/ make_custom$0
+                 /*<<camlinternalFormat.ml:1548:33>>*/ (counter$0,
+                 k$0,
+                 acc$0,
+                 rest$23,
+                 arity,
+                 _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1605:9>>*/ }
@@ -18950,16 +20581,22 @@
                   /*<<camlinternalFormat.ml:1614:39>>*/ (make_invalid_arg,
                   [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1614:39>>*/ return make_invalid_arg
-                (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         /*<<camlinternalFormat.ml:1614:39>>*/ return  /*<<camlinternalFormat.ml:1614:39>>*/ make_invalid_arg
+                 /*<<camlinternalFormat.ml:1614:39>>*/ (counter$0,
+                 k,
+                 acc,
+                 fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 1:
          /*<<camlinternalFormat.ml:1615:39>>*/ if(counter >= 50)
           /*<<camlinternalFormat.ml:1615:39>>*/ return  /*<<camlinternalFormat.ml:1615:39>>*/ caml_trampoline_return
                   /*<<camlinternalFormat.ml:1615:39>>*/ (make_invalid_arg,
                   [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$1 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1615:39>>*/ return make_invalid_arg
-                (counter$1, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         /*<<camlinternalFormat.ml:1615:39>>*/ return  /*<<camlinternalFormat.ml:1615:39>>*/ make_invalid_arg
+                 /*<<camlinternalFormat.ml:1615:39>>*/ (counter$1,
+                 k,
+                 acc,
+                 fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 2:
          /*<<camlinternalFormat.ml:1626:39>>*/ throw  /*<<camlinternalFormat.ml:1626:39>>*/ caml_maybe_attach_backtrace
                 /*<<camlinternalFormat.ml:1626:39>>*/ ([0,
@@ -18972,8 +20609,11 @@
                   /*<<camlinternalFormat.ml:1629:39>>*/ (make_invalid_arg,
                   [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$2 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1629:39>>*/ return make_invalid_arg
-                (counter$2, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         /*<<camlinternalFormat.ml:1629:39>>*/ return  /*<<camlinternalFormat.ml:1629:39>>*/ make_invalid_arg
+                 /*<<camlinternalFormat.ml:1629:39>>*/ (counter$2,
+                 k,
+                 acc,
+                 fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
      }
     switch(ign[0]){
       case 0:
@@ -18982,72 +20622,78 @@
                  /*<<camlinternalFormat.ml:1616:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$3 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1616:39>>*/ return make_invalid_arg
-               (counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1616:39>>*/ return  /*<<camlinternalFormat.ml:1616:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1616:39>>*/ (counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 1:
         /*<<camlinternalFormat.ml:1617:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1617:39>>*/ return  /*<<camlinternalFormat.ml:1617:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1617:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$4 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1617:39>>*/ return make_invalid_arg
-               (counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1617:39>>*/ return  /*<<camlinternalFormat.ml:1617:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1617:39>>*/ (counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 2:
         /*<<camlinternalFormat.ml:1618:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1618:39>>*/ return  /*<<camlinternalFormat.ml:1618:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1618:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$5 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1618:39>>*/ return make_invalid_arg
-               (counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1618:39>>*/ return  /*<<camlinternalFormat.ml:1618:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1618:39>>*/ (counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 3:
         /*<<camlinternalFormat.ml:1619:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1619:39>>*/ return  /*<<camlinternalFormat.ml:1619:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1619:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$6 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1619:39>>*/ return make_invalid_arg
-               (counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1619:39>>*/ return  /*<<camlinternalFormat.ml:1619:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1619:39>>*/ (counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 4:
         /*<<camlinternalFormat.ml:1620:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1620:39>>*/ return  /*<<camlinternalFormat.ml:1620:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1620:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$7 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1620:39>>*/ return make_invalid_arg
-               (counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1620:39>>*/ return  /*<<camlinternalFormat.ml:1620:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1620:39>>*/ (counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 5:
         /*<<camlinternalFormat.ml:1621:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1621:39>>*/ return  /*<<camlinternalFormat.ml:1621:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1621:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$8 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1621:39>>*/ return make_invalid_arg
-               (counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1621:39>>*/ return  /*<<camlinternalFormat.ml:1621:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1621:39>>*/ (counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 6:
         /*<<camlinternalFormat.ml:1622:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1622:39>>*/ return  /*<<camlinternalFormat.ml:1622:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1622:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$9 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1622:39>>*/ return make_invalid_arg
-               (counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1622:39>>*/ return  /*<<camlinternalFormat.ml:1622:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1622:39>>*/ (counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 7:
         /*<<camlinternalFormat.ml:1623:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1623:39>>*/ return  /*<<camlinternalFormat.ml:1623:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1623:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$10 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1623:39>>*/ return make_invalid_arg
-               (counter$10, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1623:39>>*/ return  /*<<camlinternalFormat.ml:1623:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1623:39>>*/ (counter$10,
+                k,
+                acc,
+                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 8:
         /*<<camlinternalFormat.ml:1624:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1624:39>>*/ return  /*<<camlinternalFormat.ml:1624:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1624:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$11 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1624:39>>*/ return make_invalid_arg
-               (counter$11, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1624:39>>*/ return  /*<<camlinternalFormat.ml:1624:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1624:39>>*/ (counter$11,
+                k,
+                acc,
+                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 9:
        var fmtty = ign[2];
         /*<<camlinternalFormat.ml:1625:39>>*/ if(counter >= 50)
@@ -19055,24 +20701,34 @@
                  /*<<camlinternalFormat.ml:1625:39>>*/ (make_from_fmtty$0,
                  [0, k, acc, fmtty, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$14 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1625:39>>*/ return make_from_fmtty$0
-               (counter$14, k, acc, fmtty, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1625:39>>*/ return  /*<<camlinternalFormat.ml:1625:39>>*/ make_from_fmtty$0
+                /*<<camlinternalFormat.ml:1625:39>>*/ (counter$14,
+                k,
+                acc,
+                fmtty,
+                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 10:
         /*<<camlinternalFormat.ml:1627:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1627:39>>*/ return  /*<<camlinternalFormat.ml:1627:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1627:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$12 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1627:39>>*/ return make_invalid_arg
-               (counter$12, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1627:39>>*/ return  /*<<camlinternalFormat.ml:1627:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1627:39>>*/ (counter$12,
+                k,
+                acc,
+                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       default:
         /*<<camlinternalFormat.ml:1628:39>>*/ if(counter >= 50)
          /*<<camlinternalFormat.ml:1628:39>>*/ return  /*<<camlinternalFormat.ml:1628:39>>*/ caml_trampoline_return
                  /*<<camlinternalFormat.ml:1628:39>>*/ (make_invalid_arg,
                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$13 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1628:39>>*/ return make_invalid_arg
-               (counter$13, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1628:39>>*/ return  /*<<camlinternalFormat.ml:1628:39>>*/ make_invalid_arg
+                /*<<camlinternalFormat.ml:1628:39>>*/ (counter$13,
+                k,
+                acc,
+                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
     }
     /*<<camlinternalFormat.ml:1629:65>>*/ }
    function make_ignored_param(k, acc, ign, fmt){
@@ -19085,54 +20741,58 @@
        case 0:
         var rest = fmtty[1];
          /*<<camlinternalFormat.ml:1638:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1638:40>>*/ return make_from_fmtty
-                 (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ; /*<<camlinternalFormat.ml:1638:70>>*/ } /*<<camlinternalFormat.ml:1638:31>>*/ ;
+          /*<<camlinternalFormat.ml:1638:40>>*/ return  /*<<camlinternalFormat.ml:1638:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1638:31>>*/ (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ; /*<<camlinternalFormat.ml:1638:70>>*/ } /*<<camlinternalFormat.ml:1638:31>>*/ ;
        case 1:
         var rest$0 = fmtty[1];
          /*<<camlinternalFormat.ml:1639:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1639:40>>*/ return make_from_fmtty
-                 (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ; /*<<camlinternalFormat.ml:1639:70>>*/ } /*<<camlinternalFormat.ml:1639:31>>*/ ;
+          /*<<camlinternalFormat.ml:1639:40>>*/ return  /*<<camlinternalFormat.ml:1639:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1639:31>>*/ (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ; /*<<camlinternalFormat.ml:1639:70>>*/ } /*<<camlinternalFormat.ml:1639:31>>*/ ;
        case 2:
         var rest$1 = fmtty[1];
          /*<<camlinternalFormat.ml:1640:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1640:40>>*/ return make_from_fmtty
-                 (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ; /*<<camlinternalFormat.ml:1640:70>>*/ } /*<<camlinternalFormat.ml:1640:31>>*/ ;
+          /*<<camlinternalFormat.ml:1640:40>>*/ return  /*<<camlinternalFormat.ml:1640:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1640:31>>*/ (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ; /*<<camlinternalFormat.ml:1640:70>>*/ } /*<<camlinternalFormat.ml:1640:31>>*/ ;
        case 3:
         var rest$2 = fmtty[1];
          /*<<camlinternalFormat.ml:1641:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1641:40>>*/ return make_from_fmtty
-                 (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ; /*<<camlinternalFormat.ml:1641:70>>*/ } /*<<camlinternalFormat.ml:1641:31>>*/ ;
+          /*<<camlinternalFormat.ml:1641:40>>*/ return  /*<<camlinternalFormat.ml:1641:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1641:31>>*/ (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ; /*<<camlinternalFormat.ml:1641:70>>*/ } /*<<camlinternalFormat.ml:1641:31>>*/ ;
        case 4:
         var rest$3 = fmtty[1];
          /*<<camlinternalFormat.ml:1642:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1642:40>>*/ return make_from_fmtty
-                 (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ; /*<<camlinternalFormat.ml:1642:70>>*/ } /*<<camlinternalFormat.ml:1642:31>>*/ ;
+          /*<<camlinternalFormat.ml:1642:40>>*/ return  /*<<camlinternalFormat.ml:1642:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1642:31>>*/ (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ; /*<<camlinternalFormat.ml:1642:70>>*/ } /*<<camlinternalFormat.ml:1642:31>>*/ ;
        case 5:
         var rest$4 = fmtty[1];
          /*<<camlinternalFormat.ml:1643:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1643:40>>*/ return make_from_fmtty
-                 (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ; /*<<camlinternalFormat.ml:1643:70>>*/ } /*<<camlinternalFormat.ml:1643:31>>*/ ;
+          /*<<camlinternalFormat.ml:1643:40>>*/ return  /*<<camlinternalFormat.ml:1643:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1643:31>>*/ (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ; /*<<camlinternalFormat.ml:1643:70>>*/ } /*<<camlinternalFormat.ml:1643:31>>*/ ;
        case 6:
         var rest$5 = fmtty[1];
          /*<<camlinternalFormat.ml:1644:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1644:40>>*/ return make_from_fmtty
-                 (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ; /*<<camlinternalFormat.ml:1644:70>>*/ } /*<<camlinternalFormat.ml:1644:31>>*/ ;
+          /*<<camlinternalFormat.ml:1644:40>>*/ return  /*<<camlinternalFormat.ml:1644:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1644:31>>*/ (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ; /*<<camlinternalFormat.ml:1644:70>>*/ } /*<<camlinternalFormat.ml:1644:31>>*/ ;
        case 7:
         var rest$6 = fmtty[1];
          /*<<camlinternalFormat.ml:1645:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1645:40>>*/ return make_from_fmtty
-                 (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ; /*<<camlinternalFormat.ml:1645:70>>*/ } /*<<camlinternalFormat.ml:1645:31>>*/ ;
+          /*<<camlinternalFormat.ml:1645:40>>*/ return  /*<<camlinternalFormat.ml:1645:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1645:31>>*/ (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ; /*<<camlinternalFormat.ml:1645:70>>*/ } /*<<camlinternalFormat.ml:1645:31>>*/ ;
        case 8:
         var rest$7 = fmtty[2];
          /*<<camlinternalFormat.ml:1651:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1651:40>>*/ return make_from_fmtty
-                 (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ; /*<<camlinternalFormat.ml:1651:70>>*/ } /*<<camlinternalFormat.ml:1651:31>>*/ ;
+          /*<<camlinternalFormat.ml:1651:40>>*/ return  /*<<camlinternalFormat.ml:1651:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1651:31>>*/ (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ; /*<<camlinternalFormat.ml:1651:70>>*/ } /*<<camlinternalFormat.ml:1651:31>>*/ ;
        case 9:
         var
          rest$8 = fmtty[3],
          ty2 = fmtty[2],
          ty1 = fmtty[1],
-         ty =  /*<<camlinternalFormat.ml:1654:13>>*/ trans(symm(ty1), ty2);
+         ty =
+            /*<<camlinternalFormat.ml:1654:13>>*/  /*<<camlinternalFormat.ml:1654:13>>*/ trans
+             /*<<camlinternalFormat.ml:1654:13>>*/ ( /*<<camlinternalFormat.ml:1654:19>>*/ symm
+               /*<<camlinternalFormat.ml:1654:19>>*/ (ty1),
+             ty2);
          /*<<camlinternalFormat.ml:1655:4>>*/ return function(param){
           /*<<camlinternalFormat.ml:1655:13>>*/ return make_from_fmtty
                  (k,
@@ -19146,18 +20806,18 @@
        case 10:
         var rest$9 = fmtty[1];
          /*<<camlinternalFormat.ml:1646:31>>*/ return function(_cc_, param){
-          /*<<camlinternalFormat.ml:1646:42>>*/ return make_from_fmtty
-                 (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ; /*<<camlinternalFormat.ml:1646:72>>*/ } /*<<camlinternalFormat.ml:1646:31>>*/ ;
+          /*<<camlinternalFormat.ml:1646:42>>*/ return  /*<<camlinternalFormat.ml:1646:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1646:31>>*/ (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ; /*<<camlinternalFormat.ml:1646:72>>*/ } /*<<camlinternalFormat.ml:1646:31>>*/ ;
        case 11:
         var rest$10 = fmtty[1];
          /*<<camlinternalFormat.ml:1647:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1647:40>>*/ return make_from_fmtty
-                 (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ; /*<<camlinternalFormat.ml:1647:70>>*/ } /*<<camlinternalFormat.ml:1647:31>>*/ ;
+          /*<<camlinternalFormat.ml:1647:40>>*/ return  /*<<camlinternalFormat.ml:1647:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1647:31>>*/ (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ; /*<<camlinternalFormat.ml:1647:70>>*/ } /*<<camlinternalFormat.ml:1647:31>>*/ ;
        case 12:
         var rest$11 = fmtty[1];
          /*<<camlinternalFormat.ml:1648:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1648:40>>*/ return make_from_fmtty
-                 (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ; /*<<camlinternalFormat.ml:1648:70>>*/ } /*<<camlinternalFormat.ml:1648:31>>*/ ;
+          /*<<camlinternalFormat.ml:1648:40>>*/ return  /*<<camlinternalFormat.ml:1648:31>>*/ make_from_fmtty
+                  /*<<camlinternalFormat.ml:1648:31>>*/ (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ; /*<<camlinternalFormat.ml:1648:70>>*/ } /*<<camlinternalFormat.ml:1648:31>>*/ ;
        case 13:
          /*<<camlinternalFormat.ml:1649:31>>*/ throw  /*<<camlinternalFormat.ml:1649:31>>*/ caml_maybe_attach_backtrace
                 /*<<camlinternalFormat.ml:1649:31>>*/ ([0,
@@ -19176,8 +20836,8 @@
               /*<<camlinternalFormat.ml:1652:31>>*/ (make_invalid_arg,
               [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1655:61>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1652:31>>*/ return make_invalid_arg
-            (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
+     /*<<camlinternalFormat.ml:1652:31>>*/ return  /*<<camlinternalFormat.ml:1652:31>>*/ make_invalid_arg
+             /*<<camlinternalFormat.ml:1652:31>>*/ (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
     /*<<camlinternalFormat.ml:1655:61>>*/ }
    function make_from_fmtty(k, acc, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
@@ -19194,8 +20854,8 @@
               /*<<camlinternalFormat.ml:1663:2>>*/ (make_printf$0,
               [0, k, _cb_, fmt]) /*<<camlinternalFormat.ml:1663:72>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1663:2>>*/ return make_printf$0
-            (counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
+     /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ make_printf$0
+             /*<<camlinternalFormat.ml:1663:2>>*/ (counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
     /*<<camlinternalFormat.ml:1663:72>>*/ }
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
@@ -19206,8 +20866,8 @@
           acc,
            /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1
             /*<<camlinternalFormat.ml:1673:42>>*/ (trans, x)];
-       /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
-              (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ; /*<<camlinternalFormat.ml:1674:31>>*/ } /*<<camlinternalFormat.ml:1672:4>>*/ ;
+       /*<<camlinternalFormat.ml:1674:6>>*/ return  /*<<camlinternalFormat.ml:1674:6>>*/ make_printf
+               /*<<camlinternalFormat.ml:1674:6>>*/ (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ; /*<<camlinternalFormat.ml:1674:31>>*/ } /*<<camlinternalFormat.ml:1672:4>>*/ ;
     if(0 === pad[0]){
      var width = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
@@ -19215,13 +20875,13 @@
        new_acc =
           /*<<camlinternalFormat.ml:1677:20>>*/ [4,
           acc,
-          fix_padding
-           (padty,
+           /*<<camlinternalFormat.ml:1677:42>>*/ fix_padding
+            /*<<camlinternalFormat.ml:1677:42>>*/ (padty,
             width,
              /*<<camlinternalFormat.ml:1677:66>>*/ caml_call1
               /*<<camlinternalFormat.ml:1677:66>>*/ (trans, x))];
-       /*<<camlinternalFormat.ml:1678:6>>*/ return make_printf
-              (k, new_acc, fmt) /*<<camlinternalFormat.ml:1678:31>>*/ ; /*<<camlinternalFormat.ml:1678:31>>*/ } /*<<camlinternalFormat.ml:1676:4>>*/ ;
+       /*<<camlinternalFormat.ml:1678:6>>*/ return  /*<<camlinternalFormat.ml:1678:6>>*/ make_printf
+               /*<<camlinternalFormat.ml:1678:6>>*/ (k, new_acc, fmt) /*<<camlinternalFormat.ml:1678:31>>*/ ; /*<<camlinternalFormat.ml:1678:31>>*/ } /*<<camlinternalFormat.ml:1676:4>>*/ ;
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
@@ -19229,12 +20889,13 @@
       new_acc =
          /*<<camlinternalFormat.ml:1681:20>>*/ [4,
          acc,
-         fix_padding
-          (padty$0,
+          /*<<camlinternalFormat.ml:1681:42>>*/ fix_padding
+           /*<<camlinternalFormat.ml:1681:42>>*/ (padty$0,
            w,
             /*<<camlinternalFormat.ml:1681:62>>*/ caml_call1
              /*<<camlinternalFormat.ml:1681:62>>*/ (trans, x))];
-      /*<<camlinternalFormat.ml:1682:6>>*/ return make_printf(k, new_acc, fmt) /*<<camlinternalFormat.ml:1682:31>>*/ ; /*<<camlinternalFormat.ml:1682:31>>*/ } /*<<camlinternalFormat.ml:1680:4>>*/ ;
+      /*<<camlinternalFormat.ml:1682:6>>*/ return  /*<<camlinternalFormat.ml:1682:6>>*/ make_printf
+              /*<<camlinternalFormat.ml:1682:6>>*/ (k, new_acc, fmt) /*<<camlinternalFormat.ml:1682:31>>*/ ; /*<<camlinternalFormat.ml:1682:31>>*/ } /*<<camlinternalFormat.ml:1680:4>>*/ ;
     /*<<camlinternalFormat.ml:1682:31>>*/ }
    function make_int_padding_precision(k, acc, fmt, pad, prec, trans, iconv){
      /*<<camlinternalFormat.ml:1691:40>>*/ if(typeof pad === "number"){
@@ -19244,12 +20905,14 @@
                (p, x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
-                    (p,
+                    /*<<camlinternalFormat.ml:1702:16>>*/  /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
+                     /*<<camlinternalFormat.ml:1702:16>>*/ (p,
                       /*<<camlinternalFormat.ml:1702:36>>*/ caml_call2
                        /*<<camlinternalFormat.ml:1702:36>>*/ (trans, iconv, x));
-                 /*<<camlinternalFormat.ml:1703:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1703:52>>*/ ;
+                 /*<<camlinternalFormat.ml:1703:6>>*/ return  /*<<camlinternalFormat.ml:1703:6>>*/ make_printf
+                         /*<<camlinternalFormat.ml:1703:6>>*/ (k,
+                         [4, acc, str],
+                         fmt) /*<<camlinternalFormat.ml:1703:52>>*/ ;
                 /*<<camlinternalFormat.ml:1703:52>>*/ }
               : function
                (x){
@@ -19257,19 +20920,21 @@
                  str =
                     /*<<camlinternalFormat.ml:1694:16>>*/  /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
                      /*<<camlinternalFormat.ml:1694:16>>*/ (trans, iconv, x);
-                 /*<<camlinternalFormat.ml:1695:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1695:52>>*/ ;
+                 /*<<camlinternalFormat.ml:1695:6>>*/ return  /*<<camlinternalFormat.ml:1695:6>>*/ make_printf
+                         /*<<camlinternalFormat.ml:1695:6>>*/ (k,
+                         [4, acc, str],
+                         fmt) /*<<camlinternalFormat.ml:1695:52>>*/ ;
                 /*<<camlinternalFormat.ml:1695:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
      var p = prec[1];
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
       var
        str =
-          /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
-          (p,
+          /*<<camlinternalFormat.ml:1698:16>>*/  /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
+           /*<<camlinternalFormat.ml:1698:16>>*/ (p,
             /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2
              /*<<camlinternalFormat.ml:1698:36>>*/ (trans, iconv, x));
-       /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
-              (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1699:52>>*/ ; /*<<camlinternalFormat.ml:1699:52>>*/ } /*<<camlinternalFormat.ml:1697:4>>*/ ;
+       /*<<camlinternalFormat.ml:1699:6>>*/ return  /*<<camlinternalFormat.ml:1699:6>>*/ make_printf
+               /*<<camlinternalFormat.ml:1699:6>>*/ (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1699:52>>*/ ; /*<<camlinternalFormat.ml:1699:52>>*/ } /*<<camlinternalFormat.ml:1697:4>>*/ ;
     }
     if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
@@ -19279,41 +20944,45 @@
                (p, x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
-                    (padty,
+                    /*<<camlinternalFormat.ml:1714:16>>*/  /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
+                     /*<<camlinternalFormat.ml:1714:16>>*/ (padty,
                      w,
-                     fix_int_precision
-                      (p,
+                      /*<<camlinternalFormat.ml:1714:36>>*/ fix_int_precision
+                       /*<<camlinternalFormat.ml:1714:36>>*/ (p,
                         /*<<camlinternalFormat.ml:1714:57>>*/ caml_call2
                          /*<<camlinternalFormat.ml:1714:57>>*/ (trans, iconv, x)));
-                 /*<<camlinternalFormat.ml:1715:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1715:52>>*/ ;
+                 /*<<camlinternalFormat.ml:1715:6>>*/ return  /*<<camlinternalFormat.ml:1715:6>>*/ make_printf
+                         /*<<camlinternalFormat.ml:1715:6>>*/ (k,
+                         [4, acc, str],
+                         fmt) /*<<camlinternalFormat.ml:1715:52>>*/ ;
                 /*<<camlinternalFormat.ml:1715:52>>*/ }
               : function
                (x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
-                    (padty,
+                    /*<<camlinternalFormat.ml:1706:16>>*/  /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
+                     /*<<camlinternalFormat.ml:1706:16>>*/ (padty,
                      w,
                       /*<<camlinternalFormat.ml:1706:36>>*/ caml_call2
                        /*<<camlinternalFormat.ml:1706:36>>*/ (trans, iconv, x));
-                 /*<<camlinternalFormat.ml:1707:6>>*/ return make_printf
-                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1707:52>>*/ ;
+                 /*<<camlinternalFormat.ml:1707:6>>*/ return  /*<<camlinternalFormat.ml:1707:6>>*/ make_printf
+                         /*<<camlinternalFormat.ml:1707:6>>*/ (k,
+                         [4, acc, str],
+                         fmt) /*<<camlinternalFormat.ml:1707:52>>*/ ;
                 /*<<camlinternalFormat.ml:1707:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
      var p$0 = prec[1];
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
       var
        str =
-          /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
-          (padty,
+          /*<<camlinternalFormat.ml:1710:16>>*/  /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
+           /*<<camlinternalFormat.ml:1710:16>>*/ (padty,
            w,
-           fix_int_precision
-            (p$0,
+            /*<<camlinternalFormat.ml:1710:36>>*/ fix_int_precision
+             /*<<camlinternalFormat.ml:1710:36>>*/ (p$0,
               /*<<camlinternalFormat.ml:1710:57>>*/ caml_call2
                /*<<camlinternalFormat.ml:1710:57>>*/ (trans, iconv, x)));
-       /*<<camlinternalFormat.ml:1711:6>>*/ return make_printf
-              (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1711:52>>*/ ; /*<<camlinternalFormat.ml:1711:52>>*/ } /*<<camlinternalFormat.ml:1709:4>>*/ ;
+       /*<<camlinternalFormat.ml:1711:6>>*/ return  /*<<camlinternalFormat.ml:1711:6>>*/ make_printf
+               /*<<camlinternalFormat.ml:1711:6>>*/ (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1711:52>>*/ ; /*<<camlinternalFormat.ml:1711:52>>*/ } /*<<camlinternalFormat.ml:1709:4>>*/ ;
     }
     var padty$0 = pad[1];
     if(typeof prec === "number")
@@ -19322,48 +20991,52 @@
               (w, p, x){
                var
                 str =
-                   /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
-                   (padty$0,
+                   /*<<camlinternalFormat.ml:1726:16>>*/  /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
+                    /*<<camlinternalFormat.ml:1726:16>>*/ (padty$0,
                     w,
-                    fix_int_precision
-                     (p,
+                     /*<<camlinternalFormat.ml:1726:36>>*/ fix_int_precision
+                      /*<<camlinternalFormat.ml:1726:36>>*/ (p,
                        /*<<camlinternalFormat.ml:1726:57>>*/ caml_call2
                         /*<<camlinternalFormat.ml:1726:57>>*/ (trans, iconv, x)));
-                /*<<camlinternalFormat.ml:1727:6>>*/ return make_printf
-                       (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1727:52>>*/ ;
+                /*<<camlinternalFormat.ml:1727:6>>*/ return  /*<<camlinternalFormat.ml:1727:6>>*/ make_printf
+                        /*<<camlinternalFormat.ml:1727:6>>*/ (k,
+                        [4, acc, str],
+                        fmt) /*<<camlinternalFormat.ml:1727:52>>*/ ;
                /*<<camlinternalFormat.ml:1727:52>>*/ }
              : function
               (w, x){
                var
                 str =
-                   /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
-                   (padty$0,
+                   /*<<camlinternalFormat.ml:1718:16>>*/  /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
+                    /*<<camlinternalFormat.ml:1718:16>>*/ (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1718:36>>*/ caml_call2
                       /*<<camlinternalFormat.ml:1718:36>>*/ (trans, iconv, x));
-                /*<<camlinternalFormat.ml:1719:6>>*/ return make_printf
-                       (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1719:52>>*/ ;
+                /*<<camlinternalFormat.ml:1719:6>>*/ return  /*<<camlinternalFormat.ml:1719:6>>*/ make_printf
+                        /*<<camlinternalFormat.ml:1719:6>>*/ (k,
+                        [4, acc, str],
+                        fmt) /*<<camlinternalFormat.ml:1719:52>>*/ ;
                /*<<camlinternalFormat.ml:1719:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
     var p$1 = prec[1];
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
      var
       str =
-         /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
-         (padty$0,
+         /*<<camlinternalFormat.ml:1722:16>>*/  /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
+          /*<<camlinternalFormat.ml:1722:16>>*/ (padty$0,
           w,
-          fix_int_precision
-           (p$1,
+           /*<<camlinternalFormat.ml:1722:36>>*/ fix_int_precision
+            /*<<camlinternalFormat.ml:1722:36>>*/ (p$1,
              /*<<camlinternalFormat.ml:1722:57>>*/ caml_call2
               /*<<camlinternalFormat.ml:1722:57>>*/ (trans, iconv, x)));
-      /*<<camlinternalFormat.ml:1723:6>>*/ return make_printf
-             (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1723:52>>*/ ; /*<<camlinternalFormat.ml:1723:52>>*/ } /*<<camlinternalFormat.ml:1721:4>>*/ ;
+      /*<<camlinternalFormat.ml:1723:6>>*/ return  /*<<camlinternalFormat.ml:1723:6>>*/ make_printf
+              /*<<camlinternalFormat.ml:1723:6>>*/ (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1723:52>>*/ ; /*<<camlinternalFormat.ml:1723:52>>*/ } /*<<camlinternalFormat.ml:1721:4>>*/ ;
     /*<<camlinternalFormat.ml:1727:52>>*/ }
    function make_custom$0(counter, k, acc, rest, arity, f){
      /*<<camlinternalFormat.ml:1778:28>>*/ if(arity){
      var arity$0 = arity[1];
       /*<<camlinternalFormat.ml:1781:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1782:6>>*/ return make_custom
-              (k,
+       /*<<camlinternalFormat.ml:1782:6>>*/ return  /*<<camlinternalFormat.ml:1782:35>>*/ make_custom
+               /*<<camlinternalFormat.ml:1782:35>>*/ (k,
                acc,
                rest,
                arity$0,
@@ -19376,8 +21049,8 @@
               /*<<camlinternalFormat.ml:1779:19>>*/ (make_printf$0,
               [0, k, _ca_, rest]) /*<<camlinternalFormat.ml:1782:40>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1779:19>>*/ return make_printf$0
-            (counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
+     /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ make_printf$0
+             /*<<camlinternalFormat.ml:1779:19>>*/ (counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
     /*<<camlinternalFormat.ml:1782:40>>*/ }
    function make_custom(k, acc, rest, arity, f){
      /*<<?>>*/ return caml_trampoline
@@ -19393,14 +21066,17 @@
        case 0:
         var
          rest = fmt$0[1],
-         x =  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf(k$0, o, rest);
+         x =
+            /*<<camlinternalFormat.ml:1790:14>>*/  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1790:14>>*/ (k$0, o, rest);
          /*<<camlinternalFormat.ml:1790:14>>*/ return function(_b$_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1790:14>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
          x$0 =
-            /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf(k$0, o, rest$0);
+            /*<<camlinternalFormat.ml:1792:14>>*/  /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1792:14>>*/ (k$0, o, rest$0);
          /*<<camlinternalFormat.ml:1792:14>>*/ return function(_b__){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$0 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1792:14>>*/ ;
        case 2:
@@ -19409,8 +21085,8 @@
          var
           rest$1 = fmt$0[2],
           x$1 =
-             /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
-             (k$0, o, rest$1);
+             /*<<camlinternalFormat.ml:1794:14>>*/  /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
+              /*<<camlinternalFormat.ml:1794:14>>*/ (k$0, o, rest$1);
           /*<<camlinternalFormat.ml:1794:14>>*/ return function(_b9_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$1 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1794:14>>*/ ;
         }
@@ -19418,15 +21094,16 @@
          var
           rest$2 = fmt$0[2],
           x$2 =
-             /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
-             (k$0, o, rest$2);
+             /*<<camlinternalFormat.ml:1796:14>>*/  /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
+              /*<<camlinternalFormat.ml:1796:14>>*/ (k$0, o, rest$2);
           /*<<camlinternalFormat.ml:1796:14>>*/ return function(_b8_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$2 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1796:14>>*/ ;
         }
         var
          rest$3 = fmt$0[2],
          x$3 =
-            /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf(k$0, o, rest$3),
+            /*<<camlinternalFormat.ml:1798:21>>*/  /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1798:21>>*/ (k$0, o, rest$3),
          x$4 =
             /*<<camlinternalFormat.ml:1798:14>>*/ function(_b7_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$3 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19439,8 +21116,8 @@
          var
           rest$4 = fmt$0[2],
           x$5 =
-             /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
-             (k$0, o, rest$4);
+             /*<<camlinternalFormat.ml:1800:14>>*/  /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
+              /*<<camlinternalFormat.ml:1800:14>>*/ (k$0, o, rest$4);
           /*<<camlinternalFormat.ml:1800:14>>*/ return function(_b5_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$5 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1800:14>>*/ ;
         }
@@ -19448,15 +21125,16 @@
          var
           rest$5 = fmt$0[2],
           x$6 =
-             /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
-             (k$0, o, rest$5);
+             /*<<camlinternalFormat.ml:1802:14>>*/  /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
+              /*<<camlinternalFormat.ml:1802:14>>*/ (k$0, o, rest$5);
           /*<<camlinternalFormat.ml:1802:14>>*/ return function(_b4_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$6 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1802:14>>*/ ;
         }
         var
          rest$6 = fmt$0[2],
          x$7 =
-            /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf(k$0, o, rest$6),
+            /*<<camlinternalFormat.ml:1804:21>>*/  /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1804:21>>*/ (k$0, o, rest$6),
          x$8 =
             /*<<camlinternalFormat.ml:1804:14>>*/ function(_b3_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$7 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19465,32 +21143,52 @@
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$8 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1804:14>>*/ ;
        case 4:
         var rest$7 = fmt$0[4], prec = fmt$0[3], pad = fmt$0[2];
-         /*<<camlinternalFormat.ml:1806:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$7, pad, prec) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1806:8>>*/ return  /*<<camlinternalFormat.ml:1806:8>>*/ fn_of_padding_precision
+                 /*<<camlinternalFormat.ml:1806:8>>*/ (k$0,
+                 o,
+                 rest$7,
+                 pad,
+                 prec) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 5:
         var rest$8 = fmt$0[4], prec$0 = fmt$0[3], pad$0 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1808:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$8, pad$0, prec$0) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1808:8>>*/ return  /*<<camlinternalFormat.ml:1808:8>>*/ fn_of_padding_precision
+                 /*<<camlinternalFormat.ml:1808:8>>*/ (k$0,
+                 o,
+                 rest$8,
+                 pad$0,
+                 prec$0) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 6:
         var rest$9 = fmt$0[4], prec$1 = fmt$0[3], pad$1 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1810:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$9, pad$1, prec$1) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1810:8>>*/ return  /*<<camlinternalFormat.ml:1810:8>>*/ fn_of_padding_precision
+                 /*<<camlinternalFormat.ml:1810:8>>*/ (k$0,
+                 o,
+                 rest$9,
+                 pad$1,
+                 prec$1) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 7:
         var rest$10 = fmt$0[4], prec$2 = fmt$0[3], pad$2 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1812:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$10, pad$2, prec$2) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1812:8>>*/ return  /*<<camlinternalFormat.ml:1812:8>>*/ fn_of_padding_precision
+                 /*<<camlinternalFormat.ml:1812:8>>*/ (k$0,
+                 o,
+                 rest$10,
+                 pad$2,
+                 prec$2) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 8:
         var rest$11 = fmt$0[4], prec$3 = fmt$0[3], pad$3 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1814:8>>*/ return fn_of_padding_precision
-                (k$0, o, rest$11, pad$3, prec$3) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1814:8>>*/ return  /*<<camlinternalFormat.ml:1814:8>>*/ fn_of_padding_precision
+                 /*<<camlinternalFormat.ml:1814:8>>*/ (k$0,
+                 o,
+                 rest$11,
+                 pad$3,
+                 prec$3) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 9:
         var _bO_ = fmt$0[1];
         if(typeof _bO_ === "number"){
          var
           rest$12 = fmt$0[2],
           x$9 =
-             /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
-             (k$0, o, rest$12);
+             /*<<camlinternalFormat.ml:1816:14>>*/  /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
+              /*<<camlinternalFormat.ml:1816:14>>*/ (k$0, o, rest$12);
           /*<<camlinternalFormat.ml:1816:14>>*/ return function(_b1_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$9 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1816:14>>*/ ;
         }
@@ -19498,16 +21196,16 @@
          var
           rest$13 = fmt$0[2],
           x$10 =
-             /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
-             (k$0, o, rest$13);
+             /*<<camlinternalFormat.ml:1818:14>>*/  /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
+              /*<<camlinternalFormat.ml:1818:14>>*/ (k$0, o, rest$13);
           /*<<camlinternalFormat.ml:1818:14>>*/ return function(_b0_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$10 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1818:14>>*/ ;
         }
         var
          rest$14 = fmt$0[2],
          x$11 =
-            /*<<camlinternalFormat.ml:1820:21>>*/ make_iprintf
-            (k$0, o, rest$14),
+            /*<<camlinternalFormat.ml:1820:21>>*/  /*<<camlinternalFormat.ml:1820:21>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1820:21>>*/ (k$0, o, rest$14),
          x$12 =
             /*<<camlinternalFormat.ml:1820:14>>*/ function(_bZ_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$11 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19524,8 +21222,8 @@
         var
          rest$18 = fmt$0[3],
          x$13 =
-            /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
-            (k$0, o, rest$18);
+            /*<<camlinternalFormat.ml:1838:14>>*/  /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1838:14>>*/ (k$0, o, rest$18);
          /*<<camlinternalFormat.ml:1838:14>>*/ return function(_bX_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$13 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1838:14>>*/ ;
        case 14:
@@ -19533,9 +21231,11 @@
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
          var
           fmt = param[1],
-          _bW_ =  /*<<camlinternalFormat.ml:1842:24>>*/ recast(fmt, fmtty);
-          /*<<camlinternalFormat.ml:1842:12>>*/ return make_iprintf
-                 (k$0,
+          _bW_ =
+             /*<<camlinternalFormat.ml:1842:24>>*/  /*<<camlinternalFormat.ml:1842:24>>*/ recast
+              /*<<camlinternalFormat.ml:1842:24>>*/ (fmt, fmtty);
+          /*<<camlinternalFormat.ml:1842:12>>*/ return  /*<<camlinternalFormat.ml:1842:12>>*/ make_iprintf
+                  /*<<camlinternalFormat.ml:1842:12>>*/ (k$0,
                   o,
                    /*<<camlinternalFormat.ml:1842:12>>*/ caml_call2
                     /*<<camlinternalFormat.ml:1842:12>>*/ (CamlinternalFormatBasics
@@ -19546,8 +21246,8 @@
         var
          rest$20 = fmt$0[1],
          x$14 =
-            /*<<camlinternalFormat.ml:1822:21>>*/ make_iprintf
-            (k$0, o, rest$20),
+            /*<<camlinternalFormat.ml:1822:21>>*/  /*<<camlinternalFormat.ml:1822:21>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1822:21>>*/ (k$0, o, rest$20),
          x$15 =
             /*<<camlinternalFormat.ml:1822:14>>*/ function(_bV_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$14 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19558,8 +21258,8 @@
         var
          rest$21 = fmt$0[1],
          x$16 =
-            /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
-            (k$0, o, rest$21);
+            /*<<camlinternalFormat.ml:1824:14>>*/  /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1824:14>>*/ (k$0, o, rest$21);
          /*<<camlinternalFormat.ml:1824:14>>*/ return function(_bT_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$16 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1824:14>>*/ ;
        case 17:
@@ -19599,30 +21299,30 @@
         var
          rest$25 = fmt$0[3],
          x$17 =
-            /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
-            (k$0, o, rest$25);
+            /*<<camlinternalFormat.ml:1844:14>>*/  /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1844:14>>*/ (k$0, o, rest$25);
          /*<<camlinternalFormat.ml:1844:14>>*/ return function(_bS_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$17 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1844:14>>*/ ;
        case 21:
         var
          rest$26 = fmt$0[2],
          x$18 =
-            /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
-            (k$0, o, rest$26);
+            /*<<camlinternalFormat.ml:1846:14>>*/  /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1846:14>>*/ (k$0, o, rest$26);
          /*<<camlinternalFormat.ml:1846:14>>*/ return function(_bR_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$18 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1846:14>>*/ ;
        case 22:
         var
          rest$27 = fmt$0[1],
          x$19 =
-            /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
-            (k$0, o, rest$27);
+            /*<<camlinternalFormat.ml:1848:14>>*/  /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
+             /*<<camlinternalFormat.ml:1848:14>>*/ (k$0, o, rest$27);
          /*<<camlinternalFormat.ml:1848:14>>*/ return function(_bQ_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$19 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1848:14>>*/ ;
        case 23:
         var rest$28 = fmt$0[2], ign = fmt$0[1];
-         /*<<camlinternalFormat.ml:1850:8>>*/ return make_ignored_param
-                (function(param){
+         /*<<camlinternalFormat.ml:1850:8>>*/ return  /*<<camlinternalFormat.ml:1850:8>>*/ make_ignored_param
+                 /*<<camlinternalFormat.ml:1850:8>>*/ (function(param){
                    /*<<camlinternalFormat.ml:1850:37>>*/ return caml_call1
                           (k$0, o) /*<<camlinternalFormat.ml:1850:40>>*/ ;
                   /*<<camlinternalFormat.ml:1850:40>>*/ },
@@ -19636,8 +21336,12 @@
                   /*<<camlinternalFormat.ml:1826:8>>*/ (fn_of_custom_arity$0,
                   [0, k$0, o, rest$29, arity]) /*<<camlinternalFormat.ml:1858:11>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1826:8>>*/ return fn_of_custom_arity$0
-                (counter$0, k$0, o, rest$29, arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1826:8>>*/ return  /*<<camlinternalFormat.ml:1826:8>>*/ fn_of_custom_arity$0
+                 /*<<camlinternalFormat.ml:1826:8>>*/ (counter$0,
+                 k$0,
+                 o,
+                 rest$29,
+                 arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
      }
     }
     /*<<camlinternalFormat.ml:1858:11>>*/ }
@@ -19648,13 +21352,17 @@
      /*<<camlinternalFormat.ml:1863:26>>*/ if(typeof pad === "number"){
      if(typeof prec !== "number"){
       var
-       x$2 =  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf(k, o, fmt);
+       x$2 =
+          /*<<camlinternalFormat.ml:1867:14>>*/  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf
+           /*<<camlinternalFormat.ml:1867:14>>*/ (k, o, fmt);
        /*<<camlinternalFormat.ml:1867:14>>*/ return function(_bL_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$2 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1867:14>>*/ ;
      }
      if(prec){
       var
-       x =  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf(k, o, fmt),
+       x =
+          /*<<camlinternalFormat.ml:1869:21>>*/  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf
+           /*<<camlinternalFormat.ml:1869:21>>*/ (k, o, fmt),
        x$0 =
           /*<<camlinternalFormat.ml:1869:14>>*/ function(_bK_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19662,20 +21370,27 @@
        /*<<camlinternalFormat.ml:1869:14>>*/ return function(_bJ_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$0 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1869:14>>*/ ;
      }
-     var x$1 =  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf(k, o, fmt);
+     var
+      x$1 =
+         /*<<camlinternalFormat.ml:1865:14>>*/  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf
+          /*<<camlinternalFormat.ml:1865:14>>*/ (k, o, fmt);
       /*<<camlinternalFormat.ml:1865:14>>*/ return function(_bI_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$1 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1865:14>>*/ ;
     }
     if(0 === pad[0]){
      if(typeof prec !== "number"){
       var
-       x$6 =  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf(k, o, fmt);
+       x$6 =
+          /*<<camlinternalFormat.ml:1873:14>>*/  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf
+           /*<<camlinternalFormat.ml:1873:14>>*/ (k, o, fmt);
        /*<<camlinternalFormat.ml:1873:14>>*/ return function(_bH_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$6 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1873:14>>*/ ;
      }
      if(prec){
       var
-       x$3 =  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf(k, o, fmt),
+       x$3 =
+          /*<<camlinternalFormat.ml:1875:21>>*/  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf
+           /*<<camlinternalFormat.ml:1875:21>>*/ (k, o, fmt),
        x$4 =
           /*<<camlinternalFormat.ml:1875:14>>*/ function(_bG_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$3 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19683,13 +21398,18 @@
        /*<<camlinternalFormat.ml:1875:14>>*/ return function(_bF_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$4 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1875:14>>*/ ;
      }
-     var x$5 =  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf(k, o, fmt);
+     var
+      x$5 =
+         /*<<camlinternalFormat.ml:1871:14>>*/  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf
+          /*<<camlinternalFormat.ml:1871:14>>*/ (k, o, fmt);
       /*<<camlinternalFormat.ml:1871:14>>*/ return function(_bE_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$5 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1871:14>>*/ ;
     }
     if(typeof prec !== "number"){
      var
-      x$12 =  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf(k, o, fmt),
+      x$12 =
+         /*<<camlinternalFormat.ml:1879:21>>*/  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf
+          /*<<camlinternalFormat.ml:1879:21>>*/ (k, o, fmt),
       x$13 =
          /*<<camlinternalFormat.ml:1879:14>>*/ function(_bD_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$12 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19699,7 +21419,9 @@
     }
     if(prec){
      var
-      x$7 =  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf(k, o, fmt),
+      x$7 =
+         /*<<camlinternalFormat.ml:1881:28>>*/  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf
+          /*<<camlinternalFormat.ml:1881:28>>*/ (k, o, fmt),
       x$8 =
          /*<<camlinternalFormat.ml:1881:21>>*/ function(_bB_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$7 /*<<camlinternalFormat.ml:1784:16>>*/ ;
@@ -19711,7 +21433,10 @@
       /*<<camlinternalFormat.ml:1881:14>>*/ return function(_bz_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$9 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1881:14>>*/ ;
     }
-    var x$10 =  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf(k, o, fmt);
+    var
+     x$10 =
+        /*<<camlinternalFormat.ml:1877:21>>*/  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf
+         /*<<camlinternalFormat.ml:1877:21>>*/ (k, o, fmt);
     function x$11(_by_){
       /*<<camlinternalFormat.ml:1784:16>>*/ return x$10 /*<<camlinternalFormat.ml:1784:16>>*/ ;
     }
@@ -19723,8 +21448,8 @@
      var
       arity = param[1],
       x =
-         /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
-         (k, o, fmt, arity);
+         /*<<camlinternalFormat.ml:1889:14>>*/  /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
+          /*<<camlinternalFormat.ml:1889:14>>*/ (k, o, fmt, arity);
       /*<<camlinternalFormat.ml:1889:14>>*/ return function(_bw_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1889:14>>*/ ;
     }
@@ -19733,8 +21458,8 @@
               /*<<camlinternalFormat.ml:1887:8>>*/ (make_iprintf$0,
               [0, k, o, fmt]) /*<<camlinternalFormat.ml:1889:48>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1887:8>>*/ return make_iprintf$0
-            (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
+     /*<<camlinternalFormat.ml:1887:8>>*/ return  /*<<camlinternalFormat.ml:1887:8>>*/ make_iprintf$0
+             /*<<camlinternalFormat.ml:1887:8>>*/ (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
     /*<<camlinternalFormat.ml:1889:48>>*/ }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
@@ -19751,23 +21476,26 @@
          fmting_lit = acc$0[2],
          p = acc$0[1],
          s =
-            /*<<camlinternalFormat.ml:1899:12>>*/ string_of_formatting_lit
-            (fmting_lit);
-         /*<<camlinternalFormat.ml:1900:4>>*/ output_acc(o, p);
+            /*<<camlinternalFormat.ml:1899:12>>*/  /*<<camlinternalFormat.ml:1899:12>>*/ string_of_formatting_lit
+             /*<<camlinternalFormat.ml:1899:12>>*/ (fmting_lit);
+         /*<<camlinternalFormat.ml:1900:4>>*/  /*<<camlinternalFormat.ml:1900:4>>*/ output_acc
+          /*<<camlinternalFormat.ml:1900:4>>*/ (o, p);
          /*<<camlinternalFormat.ml:1900:4>>*/ return  /*<<camlinternalFormat.ml:1900:4>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1900:4>>*/ (Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
-          /*<<camlinternalFormat.ml:1902:4>>*/ output_acc(o, p$0);
+          /*<<camlinternalFormat.ml:1902:4>>*/  /*<<camlinternalFormat.ml:1902:4>>*/ output_acc
+           /*<<camlinternalFormat.ml:1902:4>>*/ (o, p$0);
           /*<<camlinternalFormat.ml:1902:20>>*/  /*<<camlinternalFormat.ml:1902:20>>*/ caml_call2
            /*<<camlinternalFormat.ml:1902:20>>*/ (Stdlib[66], o, cst$18);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
-          /*<<camlinternalFormat.ml:1904:4>>*/ output_acc(o, p$0);
+          /*<<camlinternalFormat.ml:1904:4>>*/  /*<<camlinternalFormat.ml:1904:4>>*/ output_acc
+           /*<<camlinternalFormat.ml:1904:4>>*/ (o, p$0);
           /*<<camlinternalFormat.ml:1904:20>>*/  /*<<camlinternalFormat.ml:1904:20>>*/ caml_call2
            /*<<camlinternalFormat.ml:1904:20>>*/ (Stdlib[66], o, cst$19);
          acc$0 = acc$2;
@@ -19775,28 +21503,33 @@
         break;
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
-         /*<<camlinternalFormat.ml:1909:32>>*/ output_acc(o, p$3);
+         /*<<camlinternalFormat.ml:1909:32>>*/  /*<<camlinternalFormat.ml:1909:32>>*/ output_acc
+          /*<<camlinternalFormat.ml:1909:32>>*/ (o, p$3);
          /*<<camlinternalFormat.ml:1909:32>>*/ return  /*<<camlinternalFormat.ml:1909:32>>*/ caml_call1
                  /*<<camlinternalFormat.ml:1909:32>>*/ (f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 7:
         var p$4 = acc$0[1];
-         /*<<camlinternalFormat.ml:1910:32>>*/ output_acc(o, p$4);
+         /*<<camlinternalFormat.ml:1910:32>>*/  /*<<camlinternalFormat.ml:1910:32>>*/ output_acc
+          /*<<camlinternalFormat.ml:1910:32>>*/ (o, p$4);
          /*<<camlinternalFormat.ml:1910:32>>*/ return  /*<<camlinternalFormat.ml:1910:32>>*/ caml_call1
                  /*<<camlinternalFormat.ml:1910:32>>*/ (Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 8:
         var msg = acc$0[2], p$5 = acc$0[1];
-         /*<<camlinternalFormat.ml:1911:32>>*/ output_acc(o, p$5);
+         /*<<camlinternalFormat.ml:1911:32>>*/  /*<<camlinternalFormat.ml:1911:32>>*/ output_acc
+          /*<<camlinternalFormat.ml:1911:32>>*/ (o, p$5);
          /*<<camlinternalFormat.ml:1911:32>>*/ return  /*<<camlinternalFormat.ml:1911:32>>*/ caml_call1
                  /*<<camlinternalFormat.ml:1911:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
-         /*<<camlinternalFormat.ml:1906:32>>*/ output_acc(o, p$1);
+         /*<<camlinternalFormat.ml:1906:32>>*/  /*<<camlinternalFormat.ml:1906:32>>*/ output_acc
+          /*<<camlinternalFormat.ml:1906:32>>*/ (o, p$1);
          /*<<camlinternalFormat.ml:1906:32>>*/ return  /*<<camlinternalFormat.ml:1906:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1906:32>>*/ (Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
-         /*<<camlinternalFormat.ml:1908:32>>*/ output_acc(o, p$2);
+         /*<<camlinternalFormat.ml:1908:32>>*/  /*<<camlinternalFormat.ml:1908:32>>*/ output_acc
+          /*<<camlinternalFormat.ml:1908:32>>*/ (o, p$2);
          /*<<camlinternalFormat.ml:1908:32>>*/ return  /*<<camlinternalFormat.ml:1908:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1908:32>>*/ (Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
      }
@@ -19813,9 +21546,10 @@
          fmting_lit = acc$0[2],
          p = acc$0[1],
          s =
-            /*<<camlinternalFormat.ml:1919:12>>*/ string_of_formatting_lit
-            (fmting_lit);
-         /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc(b, p);
+            /*<<camlinternalFormat.ml:1919:12>>*/  /*<<camlinternalFormat.ml:1919:12>>*/ string_of_formatting_lit
+             /*<<camlinternalFormat.ml:1919:12>>*/ (fmting_lit);
+         /*<<camlinternalFormat.ml:1920:4>>*/  /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc
+          /*<<camlinternalFormat.ml:1920:4>>*/ (b, p);
          /*<<camlinternalFormat.ml:1920:4>>*/ return  /*<<camlinternalFormat.ml:1920:4>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1920:4>>*/ (Stdlib_Buffer[16],
                  b,
@@ -19824,7 +21558,8 @@
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
-          /*<<camlinternalFormat.ml:1922:4>>*/ bufput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1922:4>>*/  /*<<camlinternalFormat.ml:1922:4>>*/ bufput_acc
+           /*<<camlinternalFormat.ml:1922:4>>*/ (b, p$0);
           /*<<camlinternalFormat.ml:1922:20>>*/  /*<<camlinternalFormat.ml:1922:20>>*/ caml_call2
            /*<<camlinternalFormat.ml:1922:20>>*/ (Stdlib_Buffer[16],
            b,
@@ -19833,7 +21568,8 @@
         }
         else{
          var acc$2 = match[1];
-          /*<<camlinternalFormat.ml:1924:4>>*/ bufput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1924:4>>*/  /*<<camlinternalFormat.ml:1924:4>>*/ bufput_acc
+           /*<<camlinternalFormat.ml:1924:4>>*/ (b, p$0);
           /*<<camlinternalFormat.ml:1924:20>>*/  /*<<camlinternalFormat.ml:1924:20>>*/ caml_call2
            /*<<camlinternalFormat.ml:1924:20>>*/ (Stdlib_Buffer[16],
            b,
@@ -19843,27 +21579,31 @@
         break;
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
-         /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc(b, p$3);
+         /*<<camlinternalFormat.ml:1929:32>>*/  /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc
+          /*<<camlinternalFormat.ml:1929:32>>*/ (b, p$3);
          /*<<camlinternalFormat.ml:1929:32>>*/ return  /*<<camlinternalFormat.ml:1929:32>>*/ caml_call1
                  /*<<camlinternalFormat.ml:1929:32>>*/ (f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
-         /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc(b, p$4);
+         /*<<camlinternalFormat.ml:1931:32>>*/  /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc
+          /*<<camlinternalFormat.ml:1931:32>>*/ (b, p$4);
          /*<<camlinternalFormat.ml:1931:32>>*/ return  /*<<camlinternalFormat.ml:1931:32>>*/ caml_call1
                  /*<<camlinternalFormat.ml:1931:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
-         /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc(b, p$1);
+         /*<<camlinternalFormat.ml:1926:32>>*/  /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc
+          /*<<camlinternalFormat.ml:1926:32>>*/ (b, p$1);
          /*<<camlinternalFormat.ml:1926:32>>*/ return  /*<<camlinternalFormat.ml:1926:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1926:32>>*/ (Stdlib_Buffer[16],
                  b,
                  s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
-         /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc(b, p$2);
+         /*<<camlinternalFormat.ml:1928:32>>*/  /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc
+          /*<<camlinternalFormat.ml:1928:32>>*/ (b, p$2);
          /*<<camlinternalFormat.ml:1928:32>>*/ return  /*<<camlinternalFormat.ml:1928:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1928:32>>*/ (Stdlib_Buffer[12],
                  b,
@@ -19882,9 +21622,10 @@
          fmting_lit = acc$0[2],
          p = acc$0[1],
          s =
-            /*<<camlinternalFormat.ml:1940:12>>*/ string_of_formatting_lit
-            (fmting_lit);
-         /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc(b, p);
+            /*<<camlinternalFormat.ml:1940:12>>*/  /*<<camlinternalFormat.ml:1940:12>>*/ string_of_formatting_lit
+             /*<<camlinternalFormat.ml:1940:12>>*/ (fmting_lit);
+         /*<<camlinternalFormat.ml:1941:4>>*/  /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc
+          /*<<camlinternalFormat.ml:1941:4>>*/ (b, p);
          /*<<camlinternalFormat.ml:1941:4>>*/ return  /*<<camlinternalFormat.ml:1941:4>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1941:4>>*/ (Stdlib_Buffer[16],
                  b,
@@ -19893,7 +21634,8 @@
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
-          /*<<camlinternalFormat.ml:1943:4>>*/ strput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1943:4>>*/  /*<<camlinternalFormat.ml:1943:4>>*/ strput_acc
+           /*<<camlinternalFormat.ml:1943:4>>*/ (b, p$0);
           /*<<camlinternalFormat.ml:1943:20>>*/  /*<<camlinternalFormat.ml:1943:20>>*/ caml_call2
            /*<<camlinternalFormat.ml:1943:20>>*/ (Stdlib_Buffer[16],
            b,
@@ -19902,7 +21644,8 @@
         }
         else{
          var acc$2 = match[1];
-          /*<<camlinternalFormat.ml:1945:4>>*/ strput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1945:4>>*/  /*<<camlinternalFormat.ml:1945:4>>*/ strput_acc
+           /*<<camlinternalFormat.ml:1945:4>>*/ (b, p$0);
           /*<<camlinternalFormat.ml:1945:20>>*/  /*<<camlinternalFormat.ml:1945:20>>*/ caml_call2
            /*<<camlinternalFormat.ml:1945:20>>*/ (Stdlib_Buffer[16],
            b,
@@ -19912,7 +21655,8 @@
         break;
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
-         /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc(b, p$3);
+         /*<<camlinternalFormat.ml:1950:32>>*/  /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc
+          /*<<camlinternalFormat.ml:1950:32>>*/ (b, p$3);
         var
          _bv_ =
             /*<<camlinternalFormat.ml:1950:68>>*/  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1
@@ -19925,20 +21669,23 @@
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
-         /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc(b, p$4);
+         /*<<camlinternalFormat.ml:1952:32>>*/  /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc
+          /*<<camlinternalFormat.ml:1952:32>>*/ (b, p$4);
          /*<<camlinternalFormat.ml:1952:32>>*/ return  /*<<camlinternalFormat.ml:1952:32>>*/ caml_call1
                  /*<<camlinternalFormat.ml:1952:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
-         /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc(b, p$1);
+         /*<<camlinternalFormat.ml:1947:32>>*/  /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc
+          /*<<camlinternalFormat.ml:1947:32>>*/ (b, p$1);
          /*<<camlinternalFormat.ml:1947:32>>*/ return  /*<<camlinternalFormat.ml:1947:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1947:32>>*/ (Stdlib_Buffer[16],
                  b,
                  s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
-         /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc(b, p$2);
+         /*<<camlinternalFormat.ml:1949:32>>*/  /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc
+          /*<<camlinternalFormat.ml:1949:32>>*/ (b, p$2);
          /*<<camlinternalFormat.ml:1949:32>>*/ return  /*<<camlinternalFormat.ml:1949:32>>*/ caml_call2
                  /*<<camlinternalFormat.ml:1949:32>>*/ (Stdlib_Buffer[12],
                  b,
@@ -19953,7 +21700,8 @@
         /*<<camlinternalFormat.ml:1960:12>>*/  /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
          /*<<camlinternalFormat.ml:1960:12>>*/ (Stdlib_Buffer[1], 256);
     function k(acc){
-      /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc(buf, acc);
+      /*<<camlinternalFormat.ml:1961:14>>*/  /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc
+       /*<<camlinternalFormat.ml:1961:14>>*/ (buf, acc);
      var
       _bu_ =
          /*<<camlinternalFormat.ml:1961:43>>*/  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
@@ -19961,7 +21709,8 @@
       /*<<camlinternalFormat.ml:1961:43>>*/ return  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
               /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib[2], _bu_) /*<<camlinternalFormat.ml:1961:64>>*/ ;
      /*<<camlinternalFormat.ml:1961:64>>*/ }
-     /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
+     /*<<camlinternalFormat.ml:1962:2>>*/ return  /*<<camlinternalFormat.ml:1962:2>>*/ make_printf
+             /*<<camlinternalFormat.ml:1962:2>>*/ (k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
     /*<<camlinternalFormat.ml:1962:30>>*/ }
    function open_box_of_string(str){
      /*<<camlinternalFormat.ml:1969:2>>*/ if(str === cst$43)
@@ -19969,7 +21718,8 @@
     var len = caml_ml_string_length(str);
     function invalid_box(param){
       /*<<camlinternalFormat.ml:1971:25>>*/ return  /*<<camlinternalFormat.ml:1971:4>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1971:4>>*/ (failwith_message(_y_),
+              /*<<camlinternalFormat.ml:1971:4>>*/ ( /*<<camlinternalFormat.ml:1971:4>>*/ failwith_message
+                /*<<camlinternalFormat.ml:1971:4>>*/ (_y_),
               str) /*<<camlinternalFormat.ml:1971:74>>*/ ;
      /*<<camlinternalFormat.ml:1971:74>>*/ }
     function parse_spaces(i){
@@ -19987,7 +21737,10 @@
       i$0 = i$1;
      }
      /*<<camlinternalFormat.ml:1976:16>>*/ }
-    var wstart =  /*<<camlinternalFormat.ml:1987:17>>*/ parse_spaces(0);
+    var
+     wstart =
+        /*<<camlinternalFormat.ml:1987:17>>*/  /*<<camlinternalFormat.ml:1987:17>>*/ parse_spaces
+         /*<<camlinternalFormat.ml:1987:17>>*/ (0);
     a:
     b:
     {
@@ -20014,7 +21767,9 @@
          str,
          wstart,
          wend - wstart | 0),
-     nstart =  /*<<camlinternalFormat.ml:1990:17>>*/ parse_spaces(wend);
+     nstart =
+        /*<<camlinternalFormat.ml:1990:17>>*/  /*<<camlinternalFormat.ml:1990:17>>*/ parse_spaces
+         /*<<camlinternalFormat.ml:1990:17>>*/ (wend);
     a:
     b:
     {
@@ -20048,17 +21803,31 @@
      catch(_bt_){
       var _br_ = caml_wrap_exception(_bt_);
       if(_br_[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(_br_, 0);
-      var indent = invalid_box(0);
+      var
+       indent =
+          /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box
+           /*<<camlinternalFormat.ml:1995:26>>*/ (0);
      }
-    var exp_end =  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces(nend);
-    if(exp_end !== len)  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
+    var
+     exp_end =
+        /*<<camlinternalFormat.ml:1996:18>>*/  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces
+         /*<<camlinternalFormat.ml:1996:18>>*/ (nend);
+    if(exp_end !== len)
+      /*<<camlinternalFormat.ml:1997:27>>*/  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box
+       /*<<camlinternalFormat.ml:1997:27>>*/ (0);
     a:
     {
      if(box_name !== cst$43 && box_name !== "b"){
       if(box_name === "h"){var box_type = 0; break a;}
       if(box_name === "hov"){var box_type = 3; break a;}
       if(box_name === "hv"){var box_type = 2; break a;}
-      if(box_name !== "v"){var box_type = invalid_box(0); break a;}
+      if(box_name !== "v"){
+       var
+        box_type =
+           /*<<camlinternalFormat.ml:2004:20>>*/ invalid_box
+            /*<<camlinternalFormat.ml:2004:20>>*/ (0);
+       break a;
+      }
       var box_type = 1;
       break a;
      }
@@ -20098,14 +21867,16 @@
      var legacy_behavior$0 = 1;
     function invalid_format_message(str_ind, msg){
       /*<<camlinternalFormat.ml:2084:4>>*/ return  /*<<camlinternalFormat.ml:2084:4>>*/ caml_call3
-              /*<<camlinternalFormat.ml:2084:4>>*/ (failwith_message(_z_),
+              /*<<camlinternalFormat.ml:2084:4>>*/ ( /*<<camlinternalFormat.ml:2084:4>>*/ failwith_message
+                /*<<camlinternalFormat.ml:2084:4>>*/ (_z_),
               str,
               str_ind,
               msg) /*<<camlinternalFormat.ml:2086:21>>*/ ;
      /*<<camlinternalFormat.ml:2086:21>>*/ }
     function invalid_format_without(str_ind, c, s){
       /*<<camlinternalFormat.ml:2104:4>>*/ return  /*<<camlinternalFormat.ml:2104:4>>*/ caml_call4
-              /*<<camlinternalFormat.ml:2104:4>>*/ (failwith_message(_A_),
+              /*<<camlinternalFormat.ml:2104:4>>*/ ( /*<<camlinternalFormat.ml:2104:4>>*/ failwith_message
+                /*<<camlinternalFormat.ml:2104:4>>*/ (_A_),
               str,
               str_ind,
               c,
@@ -20113,7 +21884,8 @@
      /*<<camlinternalFormat.ml:2106:21>>*/ }
     function expected_character(str_ind, expected, read){
       /*<<camlinternalFormat.ml:2112:4>>*/ return  /*<<camlinternalFormat.ml:2112:4>>*/ caml_call4
-              /*<<camlinternalFormat.ml:2112:4>>*/ (failwith_message(_B_),
+              /*<<camlinternalFormat.ml:2112:4>>*/ ( /*<<camlinternalFormat.ml:2112:4>>*/ failwith_message
+                /*<<camlinternalFormat.ml:2112:4>>*/ (_B_),
               str,
               str_ind,
               expected,
@@ -20125,8 +21897,8 @@
       var str_ind = lit_start;
        /*<<camlinternalFormat.ml:2124:4>>*/ for(;;){
        if(str_ind === end_ind)
-         /*<<camlinternalFormat.ml:2124:30>>*/ return add_literal
-                (lit_start, str_ind, 0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
+         /*<<camlinternalFormat.ml:2124:30>>*/ return  /*<<camlinternalFormat.ml:2124:30>>*/ add_literal
+                 /*<<camlinternalFormat.ml:2124:30>>*/ (lit_start, str_ind, 0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
        var
         match =
            /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get
@@ -20138,19 +21910,30 @@
       }
       var str_ind$2 = str_ind + 1 | 0;
       if(str_ind$2 === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        (end_ind, cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+         cst_unexpected_end_of_format);
       var
        match$1 =
          95
           ===
             /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
              /*<<camlinternalFormat.ml:2142:10>>*/ (str, str_ind$2)
-          ? parse_flags(str_ind, str_ind$2 + 1 | 0, end_ind, 1)
-          : parse_flags(str_ind, str_ind$2, end_ind, 0),
+          ?  /*<<camlinternalFormat.ml:2143:15>>*/ parse_flags
+             /*<<camlinternalFormat.ml:2143:15>>*/ (str_ind,
+             str_ind$2 + 1 | 0,
+             end_ind,
+             1)
+          :  /*<<camlinternalFormat.ml:2144:13>>*/ parse_flags
+             /*<<camlinternalFormat.ml:2144:13>>*/ (str_ind,
+             str_ind$2,
+             end_ind,
+             0),
        fmt_rest = match$1[1];
-       /*<<camlinternalFormat.ml:2128:8>>*/ return add_literal
-              (lit_start, str_ind, fmt_rest) /*<<camlinternalFormat.ml:2119:62>>*/ ;
+       /*<<camlinternalFormat.ml:2128:8>>*/ return  /*<<camlinternalFormat.ml:2128:8>>*/ add_literal
+               /*<<camlinternalFormat.ml:2128:8>>*/ (lit_start,
+               str_ind,
+               fmt_rest) /*<<camlinternalFormat.ml:2119:62>>*/ ;
      }
      var str_ind$0 = str_ind + 1 | 0;
      a:
@@ -20167,11 +21950,21 @@
         if(2 >= switcher >>> 0)
          switch(switcher){
            case 0:
-            var match$0 = parse_tag(1, str_ind$0 + 1 | 0, end_ind); break a;
+            var
+             match$0 =
+                /*<<camlinternalFormat.ml:2600:8>>*/ parse_tag
+                 /*<<camlinternalFormat.ml:2600:8>>*/ (1,
+                 str_ind$0 + 1 | 0,
+                 end_ind);
+            break a;
            case 1: break;
            default:
             var
-             fmt_rest$2 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+             fmt_rest$2 =
+                /*<<camlinternalFormat.ml:2602:31>>*/ parse
+                  /*<<camlinternalFormat.ml:2602:31>>*/ (str_ind$0 + 1 | 0,
+                  end_ind)
+                [1],
              match$0 = [0, [17, 1, fmt_rest$2]];
             break a;
          }
@@ -20179,11 +21972,21 @@
        else if(91 <= c)
         switch(c - 91 | 0){
           case 0:
-           var match$0 = parse_tag(0, str_ind$0 + 1 | 0, end_ind); break a;
+           var
+            match$0 =
+               /*<<camlinternalFormat.ml:2595:8>>*/ parse_tag
+                /*<<camlinternalFormat.ml:2595:8>>*/ (0,
+                str_ind$0 + 1 | 0,
+                end_ind);
+           break a;
           case 1: break;
           default:
            var
-            fmt_rest$3 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+            fmt_rest$3 =
+               /*<<camlinternalFormat.ml:2597:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2597:31>>*/ (str_ind$0 + 1 | 0,
+                 end_ind)
+               [1],
             match$0 = [0, [17, 0, fmt_rest$3]];
            break a;
         }
@@ -20191,7 +21994,11 @@
       else{
        if(10 === c){
         var
-         fmt_rest$4 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+         fmt_rest$4 =
+            /*<<camlinternalFormat.ml:2616:31>>*/ parse
+              /*<<camlinternalFormat.ml:2616:31>>*/ (str_ind$0 + 1 | 0,
+              end_ind)
+            [1],
          match$0 = [0, [17, 3, fmt_rest$4]];
         break a;
        }
@@ -20199,7 +22006,11 @@
         switch(c - 32 | 0){
           case 0:
            var
-            fmt_rest$5 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+            fmt_rest$5 =
+               /*<<camlinternalFormat.ml:2608:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2608:31>>*/ (str_ind$0 + 1 | 0,
+                 end_ind)
+               [1],
             match$0 = [0, [17, _O_, fmt_rest$5]];
            break a;
           case 5:
@@ -20212,22 +22023,37 @@
                  /*<<camlinternalFormat.ml:2626:42>>*/ (str,
                  str_ind$0 + 1 | 0)){
             var
-             fmt_rest$6 = parse(str_ind$0 + 2 | 0, end_ind)[1],
+             fmt_rest$6 =
+                /*<<camlinternalFormat.ml:2627:31>>*/ parse
+                  /*<<camlinternalFormat.ml:2627:31>>*/ (str_ind$0 + 2 | 0,
+                  end_ind)
+                [1],
              match$0 = [0, [17, 6, fmt_rest$6]];
             break a;
            }
            var
-            fmt_rest$7 = parse(str_ind$0, end_ind)[1],
+            fmt_rest$7 =
+               /*<<camlinternalFormat.ml:2630:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2630:31>>*/ (str_ind$0, end_ind)
+               [1],
             match$0 = [0, [12, 64, fmt_rest$7]];
            break a;
           case 12:
            var
-            fmt_rest$8 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+            fmt_rest$8 =
+               /*<<camlinternalFormat.ml:2605:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2605:31>>*/ (str_ind$0 + 1 | 0,
+                 end_ind)
+               [1],
             match$0 = [0, [17, _P_, fmt_rest$8]];
            break a;
           case 14:
            var
-            fmt_rest$9 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+            fmt_rest$9 =
+               /*<<camlinternalFormat.ml:2619:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2619:31>>*/ (str_ind$0 + 1 | 0,
+                 end_ind)
+               [1],
             match$0 = [0, [17, 4, fmt_rest$9]];
            break a;
           case 27:
@@ -20250,8 +22076,9 @@
                      /*<<camlinternalFormat.ml:2666:58>>*/ (Stdlib[8], 1);
             var
              str_ind_1 =
-                /*<<camlinternalFormat.ml:2667:24>>*/ parse_spaces
-                (str_ind$3 + 1 | 0, end_ind),
+                /*<<camlinternalFormat.ml:2667:24>>*/  /*<<camlinternalFormat.ml:2667:24>>*/ parse_spaces
+                 /*<<camlinternalFormat.ml:2667:24>>*/ (str_ind$3 + 1 | 0,
+                 end_ind),
              match$2 =
                 /*<<camlinternalFormat.ml:2668:14>>*/  /*<<camlinternalFormat.ml:2668:14>>*/ caml_string_get
                  /*<<camlinternalFormat.ml:2668:14>>*/ (str, str_ind_1);
@@ -20266,13 +22093,13 @@
             }
             var
              match$3 =
-                /*<<camlinternalFormat.ml:2670:33>>*/ parse_integer
-                (str_ind_1, end_ind),
+                /*<<camlinternalFormat.ml:2670:33>>*/  /*<<camlinternalFormat.ml:2670:33>>*/ parse_integer
+                 /*<<camlinternalFormat.ml:2670:33>>*/ (str_ind_1, end_ind),
              width = match$3[2],
              str_ind_2 = match$3[1],
              str_ind_3 =
-                /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
-                (str_ind_2, end_ind),
+                /*<<camlinternalFormat.ml:2671:28>>*/  /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
+                 /*<<camlinternalFormat.ml:2671:28>>*/ (str_ind_2, end_ind),
              switcher$0 =
                 /*<<camlinternalFormat.ml:2672:18>>*/  /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
                  /*<<camlinternalFormat.ml:2672:18>>*/ (str, str_ind_3)
@@ -20297,13 +22124,13 @@
             else if(1 < switcher$0 - 1 >>> 0){
              var
               match$4 =
-                 /*<<camlinternalFormat.ml:2677:40>>*/ parse_integer
-                 (str_ind_3, end_ind),
+                 /*<<camlinternalFormat.ml:2677:40>>*/  /*<<camlinternalFormat.ml:2677:40>>*/ parse_integer
+                  /*<<camlinternalFormat.ml:2677:40>>*/ (str_ind_3, end_ind),
               offset = match$4[2],
               str_ind_4 = match$4[1],
               str_ind_5 =
-                 /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
-                 (str_ind_4, end_ind);
+                 /*<<camlinternalFormat.ml:2678:32>>*/  /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
+                  /*<<camlinternalFormat.ml:2678:32>>*/ (str_ind_4, end_ind);
              if
               (62
                !==
@@ -20335,7 +22162,10 @@
             var formatting_lit$0 = formatting_lit, next_ind = str_ind$3;
            }
            var
-            fmt_rest$12 = parse(next_ind, end_ind)[1],
+            fmt_rest$12 =
+               /*<<camlinternalFormat.ml:2688:27>>*/ parse
+                 /*<<camlinternalFormat.ml:2688:27>>*/ (next_ind, end_ind)
+               [1],
             match$0 = [0, [17, formatting_lit$0, fmt_rest$12]];
            break a;
           case 28:
@@ -20343,8 +22173,8 @@
             /*<<camlinternalFormat.ml:2694:4>>*/ try{
             var
              str_ind_1$0 =
-                /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
-                (str_ind$4, end_ind),
+                /*<<camlinternalFormat.ml:2696:24>>*/  /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
+                 /*<<camlinternalFormat.ml:2696:24>>*/ (str_ind$4, end_ind),
              match$6 =
                 /*<<camlinternalFormat.ml:2697:14>>*/  /*<<camlinternalFormat.ml:2697:14>>*/ caml_string_get
                  /*<<camlinternalFormat.ml:2697:14>>*/ (str, str_ind_1$0);
@@ -20361,13 +22191,13 @@
              }
              var
               match$7 =
-                 /*<<camlinternalFormat.ml:2699:32>>*/ parse_integer
-                 (str_ind_1$0, end_ind),
+                 /*<<camlinternalFormat.ml:2699:32>>*/  /*<<camlinternalFormat.ml:2699:32>>*/ parse_integer
+                  /*<<camlinternalFormat.ml:2699:32>>*/ (str_ind_1$0, end_ind),
               size = match$7[2],
               str_ind_2$0 = match$7[1],
               str_ind_3$0 =
-                 /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
-                 (str_ind_2$0, end_ind);
+                 /*<<camlinternalFormat.ml:2700:26>>*/  /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
+                  /*<<camlinternalFormat.ml:2700:26>>*/ (str_ind_2$0, end_ind);
              if
               (62
                !==
@@ -20397,33 +22227,52 @@
              match$5 = _bn_[1],
              formatting_lit$1 = match$5[2],
              next_ind$0 = match$5[1],
-             fmt_rest$13 = parse(next_ind$0, end_ind)[1],
+             fmt_rest$13 =
+                /*<<camlinternalFormat.ml:2709:29>>*/ parse
+                  /*<<camlinternalFormat.ml:2709:29>>*/ (next_ind$0, end_ind)
+                [1],
              _be_ = [0, [17, formatting_lit$1, fmt_rest$13]];
            else
             var
-             fmt_rest$14 = parse(str_ind$4, end_ind)[1],
+             fmt_rest$14 =
+                /*<<camlinternalFormat.ml:2712:29>>*/ parse
+                  /*<<camlinternalFormat.ml:2712:29>>*/ (str_ind$4, end_ind)
+                [1],
              _be_ = [0, [17, _Q_, fmt_rest$14]];
            var match$0 = _be_;
            break a;
           case 31:
            var
-            fmt_rest$10 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+            fmt_rest$10 =
+               /*<<camlinternalFormat.ml:2613:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2613:31>>*/ (str_ind$0 + 1 | 0,
+                 end_ind)
+               [1],
             match$0 = [0, [17, 2, fmt_rest$10]];
            break a;
           case 32:
            var
-            fmt_rest$11 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+            fmt_rest$11 =
+               /*<<camlinternalFormat.ml:2624:31>>*/ parse
+                 /*<<camlinternalFormat.ml:2624:31>>*/ (str_ind$0 + 1 | 0,
+                 end_ind)
+               [1],
             match$0 = [0, [17, 5, fmt_rest$11]];
            break a;
         }
       }
       var
-       fmt_rest$1 = parse(str_ind$0 + 1 | 0, end_ind)[1],
+       fmt_rest$1 =
+          /*<<camlinternalFormat.ml:2633:31>>*/ parse
+            /*<<camlinternalFormat.ml:2633:31>>*/ (str_ind$0 + 1 | 0, end_ind)
+          [1],
        match$0 = [0, [17, [2, c], fmt_rest$1]];
      }
      var fmt_rest$0 = match$0[1];
-      /*<<camlinternalFormat.ml:2131:8>>*/ return add_literal
-             (lit_start, str_ind, fmt_rest$0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
+      /*<<camlinternalFormat.ml:2131:8>>*/ return  /*<<camlinternalFormat.ml:2131:8>>*/ add_literal
+              /*<<camlinternalFormat.ml:2131:8>>*/ (lit_start,
+              str_ind,
+              fmt_rest$0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
      /*<<camlinternalFormat.ml:2119:62>>*/ }
     function parse_flags(pct_ind, str_ind, end_ind, ign){
      var
@@ -20440,7 +22289,8 @@
            /*<<camlinternalFormat.ml:2157:22>>*/  /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get
             /*<<camlinternalFormat.ml:2157:22>>*/ (str, str_ind);
         /*<<camlinternalFormat.ml:2155:8>>*/  /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
-         /*<<camlinternalFormat.ml:2155:8>>*/ (failwith_message(_C_),
+         /*<<camlinternalFormat.ml:2155:8>>*/ ( /*<<camlinternalFormat.ml:2155:8>>*/ failwith_message
+           /*<<camlinternalFormat.ml:2155:8>>*/ (_C_),
          str,
          str_ind,
          _bd_);
@@ -20454,8 +22304,9 @@
       c:
        /*<<camlinternalFormat.ml:2161:6>>*/ for(;;){
        if(str_ind$0 === end_ind)
-         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-         (end_ind, cst_unexpected_end_of_format);
+         /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+          /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+          cst_unexpected_end_of_format);
        var
         switcher =
            /*<<camlinternalFormat.ml:2162:18>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
@@ -20465,35 +22316,40 @@
        if(16 < switcher >>> 0) break b;
        switch(switcher){
          case 0:
-           /*<<camlinternalFormat.ml:2167:15>>*/ set_flag(str_ind$0, space);
+           /*<<camlinternalFormat.ml:2167:15>>*/  /*<<camlinternalFormat.ml:2167:15>>*/ set_flag
+            /*<<camlinternalFormat.ml:2167:15>>*/ (str_ind$0, space);
           var
            str_ind$1 =
               /*<<camlinternalFormat.ml:2167:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$1;
           break;
          case 3:
-           /*<<camlinternalFormat.ml:2166:15>>*/ set_flag(str_ind$0, hash);
+           /*<<camlinternalFormat.ml:2166:15>>*/  /*<<camlinternalFormat.ml:2166:15>>*/ set_flag
+            /*<<camlinternalFormat.ml:2166:15>>*/ (str_ind$0, hash);
           var
            str_ind$2 =
               /*<<camlinternalFormat.ml:2166:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$2;
           break;
          case 11:
-           /*<<camlinternalFormat.ml:2165:15>>*/ set_flag(str_ind$0, plus);
+           /*<<camlinternalFormat.ml:2165:15>>*/  /*<<camlinternalFormat.ml:2165:15>>*/ set_flag
+            /*<<camlinternalFormat.ml:2165:15>>*/ (str_ind$0, plus);
           var
            str_ind$3 =
               /*<<camlinternalFormat.ml:2165:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$3;
           break;
          case 13:
-           /*<<camlinternalFormat.ml:2164:15>>*/ set_flag(str_ind$0, minus);
+           /*<<camlinternalFormat.ml:2164:15>>*/  /*<<camlinternalFormat.ml:2164:15>>*/ set_flag
+            /*<<camlinternalFormat.ml:2164:15>>*/ (str_ind$0, minus);
           var
            str_ind$4 =
               /*<<camlinternalFormat.ml:2164:15>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$4;
           break;
          case 16:
-           /*<<camlinternalFormat.ml:2163:15>>*/ set_flag(str_ind$0, zero);
+           /*<<camlinternalFormat.ml:2163:15>>*/  /*<<camlinternalFormat.ml:2163:15>>*/ set_flag
+            /*<<camlinternalFormat.ml:2163:15>>*/ (str_ind$0, zero);
           var
            str_ind$5 =
               /*<<camlinternalFormat.ml:2163:15>>*/ str_ind$0 + 1 | 0;
@@ -20511,15 +22367,20 @@
       minus$0 = minus[1],
       zero$0 = zero[1];
      if(str_ind$0 === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-       (end_ind, cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+        cst_unexpected_end_of_format);
      var
       padty =
         zero$0
          ? minus$0
            ? legacy_behavior$0
              ? 0
-             : incompatible_flag(pct_ind, str_ind$0, 45, cst_0)
+             :  /*<<camlinternalFormat.ml:2187:13>>*/ incompatible_flag
+                /*<<camlinternalFormat.ml:2187:13>>*/ (pct_ind,
+                str_ind$0,
+                45,
+                cst_0)
            : 2
          : minus$0 ? 0 : 1,
       match =
@@ -20529,12 +22390,12 @@
       if(58 > match){
        var
         match$0 =
-           /*<<camlinternalFormat.ml:2190:27>>*/ parse_positive
-           (str_ind$0, end_ind, 0),
+           /*<<camlinternalFormat.ml:2190:27>>*/  /*<<camlinternalFormat.ml:2190:27>>*/ parse_positive
+            /*<<camlinternalFormat.ml:2190:27>>*/ (str_ind$0, end_ind, 0),
         width = match$0[2],
         new_ind = match$0[1];
-        /*<<camlinternalFormat.ml:2192:8>>*/ return parse_after_padding
-               (pct_ind,
+        /*<<camlinternalFormat.ml:2192:8>>*/ return  /*<<camlinternalFormat.ml:2192:8>>*/ parse_after_padding
+                /*<<camlinternalFormat.ml:2192:8>>*/ (pct_ind,
                 new_ind,
                 end_ind,
                 minus$0,
@@ -20546,8 +22407,8 @@
       }
      }
      else if(42 === match)
-       /*<<camlinternalFormat.ml:2195:12>>*/ return parse_after_padding
-              (pct_ind,
+       /*<<camlinternalFormat.ml:2195:12>>*/ return  /*<<camlinternalFormat.ml:2195:12>>*/ parse_after_padding
+               /*<<camlinternalFormat.ml:2195:12>>*/ (pct_ind,
                str_ind$0 + 1 | 0,
                end_ind,
                minus$0,
@@ -20559,10 +22420,12 @@
      switch(padty){
        case 0:
         if(1 - legacy_behavior$0)
-          /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
-          (str_ind$0 - 1 | 0, 45, cst_padding);
-         /*<<camlinternalFormat.ml:2200:10>>*/ return parse_after_padding
-                (pct_ind,
+          /*<<camlinternalFormat.ml:2200:10>>*/  /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
+           /*<<camlinternalFormat.ml:2200:10>>*/ (str_ind$0 - 1 | 0,
+           45,
+           cst_padding);
+         /*<<camlinternalFormat.ml:2200:10>>*/ return  /*<<camlinternalFormat.ml:2200:10>>*/ parse_after_padding
+                 /*<<camlinternalFormat.ml:2200:10>>*/ (pct_ind,
                  str_ind$0,
                  end_ind,
                  minus$0,
@@ -20572,8 +22435,8 @@
                  ign,
                  0) /*<<camlinternalFormat.ml:2173:22>>*/ ;
        case 1:
-         /*<<camlinternalFormat.ml:2210:8>>*/ return parse_after_padding
-                (pct_ind,
+         /*<<camlinternalFormat.ml:2210:8>>*/ return  /*<<camlinternalFormat.ml:2210:8>>*/ parse_after_padding
+                 /*<<camlinternalFormat.ml:2210:8>>*/ (pct_ind,
                  str_ind$0,
                  end_ind,
                  minus$0,
@@ -20583,8 +22446,8 @@
                  ign,
                  0) /*<<camlinternalFormat.ml:2173:22>>*/ ;
        default:
-         /*<<camlinternalFormat.ml:2207:8>>*/ return parse_after_padding
-                (pct_ind,
+         /*<<camlinternalFormat.ml:2207:8>>*/ return  /*<<camlinternalFormat.ml:2207:8>>*/ parse_after_padding
+                 /*<<camlinternalFormat.ml:2207:8>>*/ (pct_ind,
                  str_ind$0,
                  end_ind,
                  minus$0,
@@ -20598,15 +22461,16 @@
     function parse_after_padding
     (pct_ind, str_ind, end_ind, minus, plus, hash, space, ign, pad){
       /*<<camlinternalFormat.ml:2219:4>>*/ if(str_ind === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-       (end_ind, cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+        cst_unexpected_end_of_format);
      var
       symb =
          /*<<camlinternalFormat.ml:2220:10>>*/  /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get
           /*<<camlinternalFormat.ml:2220:10>>*/ (str, str_ind);
      if(46 !== symb)
-       /*<<camlinternalFormat.ml:2225:6>>*/ return parse_conversion
-              (pct_ind,
+       /*<<camlinternalFormat.ml:2225:6>>*/ return  /*<<camlinternalFormat.ml:2225:6>>*/ parse_conversion
+               /*<<camlinternalFormat.ml:2225:6>>*/ (pct_ind,
                str_ind + 1 | 0,
                end_ind,
                plus,
@@ -20619,17 +22483,18 @@
                symb) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      var str_ind$0 = str_ind + 1 | 0;
      if(str_ind$0 === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-       (end_ind, cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+        cst_unexpected_end_of_format);
      function parse_literal(minus, str_ind){
       var
        match =
-          /*<<camlinternalFormat.ml:2235:26>>*/ parse_positive
-          (str_ind, end_ind, 0),
+          /*<<camlinternalFormat.ml:2235:26>>*/  /*<<camlinternalFormat.ml:2235:26>>*/ parse_positive
+           /*<<camlinternalFormat.ml:2235:26>>*/ (str_ind, end_ind, 0),
        prec = match[2],
        new_ind = match[1];
-       /*<<camlinternalFormat.ml:2237:12>>*/ return parse_after_precision
-              (pct_ind,
+       /*<<camlinternalFormat.ml:2237:12>>*/ return  /*<<camlinternalFormat.ml:2237:12>>*/ parse_after_precision
+               /*<<camlinternalFormat.ml:2237:12>>*/ (pct_ind,
                new_ind,
                end_ind,
                minus,
@@ -20646,14 +22511,14 @@
           /*<<camlinternalFormat.ml:2238:10>>*/ (str, str_ind$0);
      if(48 <= symb$0){
       if(58 > symb$0)
-        /*<<camlinternalFormat.ml:2239:20>>*/ return parse_literal
-               (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
+        /*<<camlinternalFormat.ml:2239:20>>*/ return  /*<<camlinternalFormat.ml:2239:20>>*/ parse_literal
+                /*<<camlinternalFormat.ml:2239:20>>*/ (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      }
      else if(42 <= symb$0)
       switch(symb$0 - 42 | 0){
         case 0:
-          /*<<camlinternalFormat.ml:2251:6>>*/ return parse_after_precision
-                 (pct_ind,
+          /*<<camlinternalFormat.ml:2251:6>>*/ return  /*<<camlinternalFormat.ml:2251:6>>*/ parse_after_precision
+                  /*<<camlinternalFormat.ml:2251:6>>*/ (pct_ind,
                   str_ind$0 + 1 | 0,
                   end_ind,
                   minus,
@@ -20669,14 +22534,14 @@
           var
            _ba_ =  /*<<camlinternalFormat.ml:2249:6>>*/ str_ind$0 + 1 | 0,
            minus$0 = minus || (45 === symb$0 ? 1 : 0);
-           /*<<camlinternalFormat.ml:2249:6>>*/ return parse_literal
-                  (minus$0, _ba_) /*<<camlinternalFormat.ml:2226:29>>*/ ;
+           /*<<camlinternalFormat.ml:2249:6>>*/ return  /*<<camlinternalFormat.ml:2249:6>>*/ parse_literal
+                   /*<<camlinternalFormat.ml:2249:6>>*/ (minus$0, _ba_) /*<<camlinternalFormat.ml:2226:29>>*/ ;
          }
          break;
       }
      return legacy_behavior$0
-             ? parse_after_precision
-               (pct_ind,
+             ?  /*<<camlinternalFormat.ml:2258:8>>*/ parse_after_precision
+                /*<<camlinternalFormat.ml:2258:8>>*/ (pct_ind,
                 str_ind$0,
                 end_ind,
                 minus,
@@ -20686,16 +22551,20 @@
                 ign,
                 pad,
                 _E_)
-             : invalid_format_without(str_ind$0 - 1 | 0, 46, cst_precision) /*<<camlinternalFormat.ml:2226:29>>*/ ;
+             :  /*<<camlinternalFormat.ml:2261:8>>*/ invalid_format_without
+                /*<<camlinternalFormat.ml:2261:8>>*/ (str_ind$0 - 1 | 0,
+                46,
+                cst_precision) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      /*<<camlinternalFormat.ml:2226:29>>*/ }
     function parse_after_precision
     (pct_ind, str_ind, end_ind, minus, plus, hash, space, ign, pad, prec){
       /*<<camlinternalFormat.ml:2268:4>>*/ if(str_ind === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-       (end_ind, cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+        cst_unexpected_end_of_format);
      function parse_conv(padprec){
-       /*<<camlinternalFormat.ml:2270:6>>*/ return parse_conversion
-              (pct_ind,
+       /*<<camlinternalFormat.ml:2270:6>>*/ return  /*<<camlinternalFormat.ml:2271:21>>*/ parse_conversion
+               /*<<camlinternalFormat.ml:2271:21>>*/ (pct_ind,
                str_ind + 1 | 0,
                end_ind,
                plus,
@@ -20709,19 +22578,25 @@
                  /*<<camlinternalFormat.ml:2271:21>>*/ (str, str_ind)) /*<<camlinternalFormat.ml:2271:34>>*/ ;
       /*<<camlinternalFormat.ml:2271:34>>*/ }
      if(typeof pad !== "number")
-       /*<<camlinternalFormat.ml:2287:13>>*/ return parse_conv(pad) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2287:13>>*/ return  /*<<camlinternalFormat.ml:2287:13>>*/ parse_conv
+               /*<<camlinternalFormat.ml:2287:13>>*/ (pad) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(typeof prec === "number" && ! prec)
-       /*<<camlinternalFormat.ml:2281:29>>*/ return parse_conv(0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2281:29>>*/ return  /*<<camlinternalFormat.ml:2281:29>>*/ parse_conv
+               /*<<camlinternalFormat.ml:2281:29>>*/ (0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(minus){
       if(typeof prec === "number")
-        /*<<camlinternalFormat.ml:2285:33>>*/ return parse_conv(_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+        /*<<camlinternalFormat.ml:2285:33>>*/ return  /*<<camlinternalFormat.ml:2285:33>>*/ parse_conv
+                /*<<camlinternalFormat.ml:2285:33>>*/ (_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
       var n = prec[1];
-       /*<<camlinternalFormat.ml:2283:46>>*/ return parse_conv([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2283:46>>*/ return  /*<<camlinternalFormat.ml:2283:46>>*/ parse_conv
+               /*<<camlinternalFormat.ml:2283:46>>*/ ([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      }
      if(typeof prec === "number")
-       /*<<camlinternalFormat.ml:2284:34>>*/ return parse_conv(_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2284:34>>*/ return  /*<<camlinternalFormat.ml:2284:34>>*/ parse_conv
+               /*<<camlinternalFormat.ml:2284:34>>*/ (_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      var n$0 = prec[1];
-      /*<<camlinternalFormat.ml:2282:47>>*/ return parse_conv([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+      /*<<camlinternalFormat.ml:2282:47>>*/ return  /*<<camlinternalFormat.ml:2282:47>>*/ parse_conv
+              /*<<camlinternalFormat.ml:2282:47>>*/ ([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      /*<<camlinternalFormat.ml:2287:27>>*/ }
     function parse_conversion
     (pct_ind,
@@ -20772,8 +22647,12 @@
       /*<<camlinternalFormat.ml:2306:52>>*/ }
      function get_int_pad(param){
       var
-       pad =  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad(0),
-       match =  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec(0);
+       pad =
+          /*<<camlinternalFormat.ml:2320:13>>*/  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad
+           /*<<camlinternalFormat.ml:2320:13>>*/ (0),
+       match =
+          /*<<camlinternalFormat.ml:2320:25>>*/  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec
+           /*<<camlinternalFormat.ml:2320:25>>*/ (0);
       if(typeof match === "number" && ! match)
         /*<<camlinternalFormat.ml:2321:32>>*/ return pad /*<<camlinternalFormat.ml:2321:32>>*/ ;
       if(typeof pad === "number")
@@ -20782,14 +22661,22 @@
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _H_
-                 : incompatible_flag(pct_ind, str_ind, 48, cst_precision$1)
+                 :  /*<<camlinternalFormat.ml:2328:16>>*/ incompatible_flag
+                    /*<<camlinternalFormat.ml:2328:16>>*/ (pct_ind,
+                    str_ind,
+                    48,
+                    cst_precision$1)
                : pad /*<<camlinternalFormat.ml:2330:41>>*/ ;
       if(2 > pad[1])
         /*<<camlinternalFormat.ml:2329:38>>*/ return pad /*<<camlinternalFormat.ml:2329:38>>*/ ;
       var n = pad[2];
        /*<<camlinternalFormat.ml:2324:11>>*/ return legacy_behavior$0
               ? [0, 1, n]
-              : incompatible_flag(pct_ind, str_ind, 48, cst_precision$0) /*<<camlinternalFormat.ml:2330:41>>*/ ;
+              :  /*<<camlinternalFormat.ml:2325:16>>*/ incompatible_flag
+                 /*<<camlinternalFormat.ml:2325:16>>*/ (pct_ind,
+                 str_ind,
+                 48,
+                 cst_precision$0) /*<<camlinternalFormat.ml:2330:41>>*/ ;
       /*<<camlinternalFormat.ml:2330:41>>*/ }
      function check_no_0(symb, pad){
        /*<<camlinternalFormat.ml:2334:6>>*/ if(typeof pad === "number")
@@ -20798,14 +22685,22 @@
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _I_
-                 : incompatible_flag(pct_ind, str_ind, symb, cst_0$1)
+                 :  /*<<camlinternalFormat.ml:2343:13>>*/ incompatible_flag
+                    /*<<camlinternalFormat.ml:2343:13>>*/ (pct_ind,
+                    str_ind,
+                    symb,
+                    cst_0$1)
                : pad /*<<camlinternalFormat.ml:2343:55>>*/ ;
       if(2 > pad[1])
         /*<<camlinternalFormat.ml:2336:43>>*/ return pad /*<<camlinternalFormat.ml:2336:43>>*/ ;
       var width = pad[2];
        /*<<camlinternalFormat.ml:2339:8>>*/ return legacy_behavior$0
               ? [0, 1, width]
-              : incompatible_flag(pct_ind, str_ind, symb, cst_0$0) /*<<camlinternalFormat.ml:2343:55>>*/ ;
+              :  /*<<camlinternalFormat.ml:2340:13>>*/ incompatible_flag
+                 /*<<camlinternalFormat.ml:2340:13>>*/ (pct_ind,
+                 str_ind,
+                 symb,
+                 cst_0$0) /*<<camlinternalFormat.ml:2343:55>>*/ ;
       /*<<camlinternalFormat.ml:2343:55>>*/ }
      function opt_of_pad(c, pad){
        /*<<camlinternalFormat.ml:2349:64>>*/ if(typeof pad === "number")
@@ -20816,7 +22711,11 @@
           var width = pad[2];
            /*<<camlinternalFormat.ml:2356:8>>*/ return legacy_behavior$0
                   ? [0, width]
-                  : incompatible_flag(pct_ind, str_ind, c, cst$24) /*<<camlinternalFormat.ml:2358:66>>*/ ;
+                  :  /*<<camlinternalFormat.ml:2357:13>>*/ incompatible_flag
+                     /*<<camlinternalFormat.ml:2357:13>>*/ (pct_ind,
+                     str_ind,
+                     c,
+                     cst$24) /*<<camlinternalFormat.ml:2358:66>>*/ ;
          case 1:
           var width$0 = pad[2];
            /*<<camlinternalFormat.ml:2351:38>>*/ return [0, width$0] /*<<camlinternalFormat.ml:2351:38>>*/ ;
@@ -20824,17 +22723,29 @@
           var width$1 = pad[2];
            /*<<camlinternalFormat.ml:2353:8>>*/ return legacy_behavior$0
                   ? [0, width$1]
-                  : incompatible_flag(pct_ind, str_ind, c, cst_0$2) /*<<camlinternalFormat.ml:2358:66>>*/ ;
+                  :  /*<<camlinternalFormat.ml:2354:13>>*/ incompatible_flag
+                     /*<<camlinternalFormat.ml:2354:13>>*/ (pct_ind,
+                     str_ind,
+                     c,
+                     cst_0$2) /*<<camlinternalFormat.ml:2358:66>>*/ ;
        }
-       /*<<camlinternalFormat.ml:2358:25>>*/ return incompatible_flag
-              (pct_ind, str_ind, c, cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
+       /*<<camlinternalFormat.ml:2358:25>>*/ return  /*<<camlinternalFormat.ml:2358:25>>*/ incompatible_flag
+               /*<<camlinternalFormat.ml:2358:25>>*/ (pct_ind,
+               str_ind,
+               c,
+               cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
       /*<<camlinternalFormat.ml:2358:66>>*/ }
      function get_pad_opt(c){
-       /*<<camlinternalFormat.ml:2360:24>>*/ return opt_of_pad(c, get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
+       /*<<camlinternalFormat.ml:2360:24>>*/ return  /*<<camlinternalFormat.ml:2360:37>>*/ opt_of_pad
+               /*<<camlinternalFormat.ml:2360:37>>*/ (c,
+                /*<<camlinternalFormat.ml:2360:37>>*/ get_pad
+                 /*<<camlinternalFormat.ml:2360:37>>*/ (0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
       /*<<camlinternalFormat.ml:2360:49>>*/ }
      function get_padprec_opt(c){
-       /*<<camlinternalFormat.ml:2361:28>>*/ return opt_of_pad
-              (c, get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
+       /*<<camlinternalFormat.ml:2361:28>>*/ return  /*<<camlinternalFormat.ml:2361:41>>*/ opt_of_pad
+               /*<<camlinternalFormat.ml:2361:41>>*/ (c,
+                /*<<camlinternalFormat.ml:2361:41>>*/ get_padprec
+                 /*<<camlinternalFormat.ml:2361:41>>*/ (0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
       /*<<camlinternalFormat.ml:2361:57>>*/ }
      a:
      {
@@ -20842,43 +22753,79 @@
        switch(symb){
          case 33:
           var
-           fmt_rest$5 = parse(str_ind, end_ind)[1],
+           fmt_rest$5 =
+              /*<<camlinternalFormat.ml:2515:29>>*/ parse
+                /*<<camlinternalFormat.ml:2515:29>>*/ (str_ind, end_ind)
+              [1],
            fmt_result = [0, [10, fmt_rest$5]];
           break a;
          case 40:
           var
            sub_end =
-              /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
-              (str_ind, end_ind, 41),
-           fmt_rest$7 = parse(sub_end + 2 | 0, end_ind)[1],
-           sub_fmt = parse(str_ind, sub_end)[1],
+              /*<<camlinternalFormat.ml:2531:20>>*/  /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
+               /*<<camlinternalFormat.ml:2531:20>>*/ (str_ind, end_ind, 41),
+           fmt_rest$7 =
+              /*<<camlinternalFormat.ml:2532:29>>*/ parse
+                /*<<camlinternalFormat.ml:2532:29>>*/ (sub_end + 2 | 0,
+                end_ind)
+              [1],
+           sub_fmt =
+              /*<<camlinternalFormat.ml:2533:28>>*/ parse
+                /*<<camlinternalFormat.ml:2533:28>>*/ (str_ind, sub_end)
+              [1],
            sub_fmtty =
-              /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt(sub_fmt);
-           /*<<camlinternalFormat.ml:2535:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2534:22>>*/  /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt
+               /*<<camlinternalFormat.ml:2534:22>>*/ (sub_fmt);
+           /*<<camlinternalFormat.ml:2535:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2535:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2535:9>>*/ (0))
            var
             ignored$2 =
                /*<<camlinternalFormat.ml:2536:22>>*/ [9,
-               get_pad_opt(95),
+                /*<<camlinternalFormat.ml:2536:44>>*/ get_pad_opt
+                 /*<<camlinternalFormat.ml:2536:44>>*/ (95),
                sub_fmtty],
             _aJ_ = [0, [23, ignored$2, fmt_rest$7]];
           else
-           var _aJ_ = [0, [14, get_pad_opt(40), sub_fmtty, fmt_rest$7]];
+           var
+            _aJ_ =
+              [0,
+               [14,
+                 /*<<camlinternalFormat.ml:2539:31>>*/ get_pad_opt
+                  /*<<camlinternalFormat.ml:2539:31>>*/ (40),
+                sub_fmtty,
+                fmt_rest$7]];
           var fmt_result = _aJ_;
           break a;
          case 44:
-          var fmt_result = parse(str_ind, end_ind); break a;
+          var
+           fmt_result =
+              /*<<camlinternalFormat.ml:2374:6>>*/ parse
+               /*<<camlinternalFormat.ml:2374:6>>*/ (str_ind, end_ind);
+          break a;
          case 67:
           var
-           fmt_rest$10 = parse(str_ind, end_ind)[1],
+           fmt_rest$10 =
+              /*<<camlinternalFormat.ml:2396:29>>*/ parse
+                /*<<camlinternalFormat.ml:2396:29>>*/ (str_ind, end_ind)
+              [1],
            _aL_ =
-              /*<<camlinternalFormat.ml:2397:9>>*/ get_ign(0)
+              /*<<camlinternalFormat.ml:2397:9>>*/  /*<<camlinternalFormat.ml:2397:9>>*/ get_ign
+                /*<<camlinternalFormat.ml:2397:9>>*/ (0)
               ? [0, [23, 1, fmt_rest$10]]
               : [0, [1, fmt_rest$10]],
            fmt_result = _aL_;
           break a;
          case 78:
-          var fmt_rest$14 = parse(str_ind, end_ind)[1], counter$0 = 2;
-           /*<<camlinternalFormat.ml:2433:9>>*/ if(get_ign(0))
+          var
+           fmt_rest$14 =
+              /*<<camlinternalFormat.ml:2431:29>>*/ parse
+                /*<<camlinternalFormat.ml:2431:29>>*/ (str_ind, end_ind)
+              [1],
+           counter$0 = 2;
+           /*<<camlinternalFormat.ml:2433:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2433:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2433:9>>*/ (0))
            var
             ignored$6 =  /*<<camlinternalFormat.ml:2434:22>>*/ [11, counter$0],
             _aR_ = [0, [23, ignored$6, fmt_rest$14]];
@@ -20889,19 +22836,28 @@
          case 83:
           var
            pad$6 =
-              /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
-              (symb, get_padprec(0)),
-           fmt_rest$15 = parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2412:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2410:16>>*/  /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
+               /*<<camlinternalFormat.ml:2410:16>>*/ (symb,
+                /*<<camlinternalFormat.ml:2410:32>>*/ get_padprec
+                 /*<<camlinternalFormat.ml:2410:32>>*/ (0)),
+           fmt_rest$15 =
+              /*<<camlinternalFormat.ml:2411:29>>*/ parse
+                /*<<camlinternalFormat.ml:2411:29>>*/ (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2412:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2412:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2412:9>>*/ (0))
            var
             ignored$7 =
-               /*<<camlinternalFormat.ml:2413:22>>*/ [1, get_padprec_opt(95)],
+               /*<<camlinternalFormat.ml:2413:22>>*/ [1,
+                /*<<camlinternalFormat.ml:2413:42>>*/ get_padprec_opt
+                 /*<<camlinternalFormat.ml:2413:42>>*/ (95)],
             _aS_ = [0, [23, ignored$7, fmt_rest$15]];
           else
            var
             match$5 =
-               /*<<camlinternalFormat.ml:2417:10>>*/ make_padding_fmt_ebb
-               (pad$6, fmt_rest$15),
+               /*<<camlinternalFormat.ml:2417:10>>*/  /*<<camlinternalFormat.ml:2417:10>>*/ make_padding_fmt_ebb
+                /*<<camlinternalFormat.ml:2417:10>>*/ (pad$6, fmt_rest$15),
             fmt_rest$16 = match$5[2],
             pad$7 = match$5[1],
             _aS_ = [0, [3, pad$7, fmt_rest$16]];
@@ -20909,18 +22865,20 @@
           break a;
          case 91:
           if(str_ind === end_ind)
-            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-            (end_ind, cst_unexpected_end_of_format);
+            /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+             /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+             cst_unexpected_end_of_format);
           var
            char_set =
-              /*<<camlinternalFormat.ml:2719:19>>*/ create_char_set(0),
+              /*<<camlinternalFormat.ml:2719:19>>*/  /*<<camlinternalFormat.ml:2719:19>>*/ create_char_set
+               /*<<camlinternalFormat.ml:2719:19>>*/ (0),
            add_range =
              function(c$0, c){
                /*<<camlinternalFormat.ml:2724:6>>*/ if(c >= c$0){
                var i = c$0;
                for(;;){
-                 /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
-                 (char_set,
+                 /*<<camlinternalFormat.ml:2725:8>>*/  /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
+                  /*<<camlinternalFormat.ml:2725:8>>*/ (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
                     /*<<camlinternalFormat.ml:2725:33>>*/ (Stdlib[29], i));
                 var _a$_ =  /*<<camlinternalFormat.ml:2725:8>>*/ i + 1 | 0;
@@ -20932,7 +22890,8 @@
            fail_single_percent =
              function(str_ind){
                /*<<camlinternalFormat.ml:2730:6>>*/ return  /*<<camlinternalFormat.ml:2730:6>>*/ caml_call2
-                       /*<<camlinternalFormat.ml:2730:6>>*/ (failwith_message(_R_),
+                       /*<<camlinternalFormat.ml:2730:6>>*/ ( /*<<camlinternalFormat.ml:2730:6>>*/ failwith_message
+                         /*<<camlinternalFormat.ml:2730:6>>*/ (_R_),
                        str,
                        str_ind) /*<<camlinternalFormat.ml:2732:54>>*/ ;
               /*<<camlinternalFormat.ml:2732:54>>*/ },
@@ -20941,8 +22900,9 @@
               var str_ind$0 = str_ind;
                /*<<camlinternalFormat.ml:2743:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
-                 /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                 (end_ind, cst_unexpected_end_of_format);
+                 /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                  /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+                  cst_unexpected_end_of_format);
                var
                 c =
                    /*<<camlinternalFormat.ml:2744:12>>*/  /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
@@ -20957,11 +22917,14 @@
                           /*<<camlinternalFormat.ml:2751:8>>*/ (parse_char_set_after_char$0,
                           [0, _a__, end_ind, c]) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                 var counter$0 = counter + 1 | 0;
-                 /*<<camlinternalFormat.ml:2751:8>>*/ return parse_char_set_after_char$0
-                        (counter$0, _a__, end_ind, c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
+                 /*<<camlinternalFormat.ml:2751:8>>*/ return  /*<<camlinternalFormat.ml:2751:8>>*/ parse_char_set_after_char$0
+                         /*<<camlinternalFormat.ml:2751:8>>*/ (counter$0,
+                         _a__,
+                         end_ind,
+                         c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                }
-                /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                (char_set, 45);
+                /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                 /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, 45);
                var str_ind$1 = str_ind$0 + 1 | 0;
                str_ind$0 = str_ind$1;
               }
@@ -20971,8 +22934,9 @@
               var str_ind$0 = str_ind, c$0 = c;
                /*<<camlinternalFormat.ml:2755:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
-                 /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                 (end_ind, cst_unexpected_end_of_format);
+                 /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                  /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+                  cst_unexpected_end_of_format);
                var
                 c$1 =
                    /*<<camlinternalFormat.ml:2756:12>>*/  /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
@@ -20982,8 +22946,8 @@
                 if(46 <= c$1){
                  if(64 !== c$1){
                   if(93 !== c$1) break a;
-                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                   (char_set, c$0);
+                   /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                    /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$0);
                    /*<<camlinternalFormat.ml:2758:8>>*/ return str_ind$0 + 1
                          | 0 /*<<camlinternalFormat.ml:2758:8>>*/ ;
                  }
@@ -20992,70 +22956,80 @@
                  if(45 > c$1) break a;
                  var str_ind$2 = str_ind$0 + 1 | 0;
                  if(str_ind$2 === end_ind)
-                   /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                   (end_ind, cst_unexpected_end_of_format);
+                   /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                    /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+                    cst_unexpected_end_of_format);
                  var
                   c$2 =
                      /*<<camlinternalFormat.ml:2776:12>>*/  /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
                       /*<<camlinternalFormat.ml:2776:12>>*/ (str, str_ind$2);
                  if(37 === c$2){
                   if((str_ind$2 + 1 | 0) === end_ind)
-                    /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                    (end_ind, cst_unexpected_end_of_format);
+                    /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                     /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+                     cst_unexpected_end_of_format);
                   var
                    c$3 =
                       /*<<camlinternalFormat.ml:2783:20>>*/  /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
                        /*<<camlinternalFormat.ml:2783:20>>*/ (str,
                        str_ind$2 + 1 | 0);
                   if(37 !== c$3 && 64 !== c$3)
-                    /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
-                           (str_ind$2) /*<<camlinternalFormat.ml:2771:58>>*/ ;
-                   /*<<camlinternalFormat.ml:2785:12>>*/ add_range(c$0, c$3);
+                    /*<<camlinternalFormat.ml:2787:17>>*/ return  /*<<camlinternalFormat.ml:2787:17>>*/ fail_single_percent
+                            /*<<camlinternalFormat.ml:2787:17>>*/ (str_ind$2) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                   /*<<camlinternalFormat.ml:2785:12>>*/  /*<<camlinternalFormat.ml:2785:12>>*/ add_range
+                    /*<<camlinternalFormat.ml:2785:12>>*/ (c$0, c$3);
                   var _a8_ = str_ind$2 + 2 | 0;
                    /*<<camlinternalFormat.ml:2785:12>>*/ if(counter >= 50)
                     /*<<camlinternalFormat.ml:2785:12>>*/ return  /*<<camlinternalFormat.ml:2785:12>>*/ caml_trampoline_return
                             /*<<camlinternalFormat.ml:2785:12>>*/ (parse_char_set_content,
                             [0, _a8_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                   var counter$1 = counter + 1 | 0;
-                   /*<<camlinternalFormat.ml:2785:12>>*/ return parse_char_set_content
-                          (counter$1, _a8_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                   /*<<camlinternalFormat.ml:2785:12>>*/ return  /*<<camlinternalFormat.ml:2785:12>>*/ parse_char_set_content
+                           /*<<camlinternalFormat.ml:2785:12>>*/ (counter$1,
+                           _a8_,
+                           end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  }
                  if(93 === c$2){
-                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                   (char_set, c$0);
-                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                   (char_set, 45);
+                   /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                    /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$0);
+                   /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                    /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, 45);
                    /*<<camlinternalFormat.ml:2779:8>>*/ return str_ind$2 + 1
                          | 0 /*<<camlinternalFormat.ml:2779:8>>*/ ;
                  }
-                  /*<<camlinternalFormat.ml:2790:8>>*/ add_range(c$0, c$2);
+                  /*<<camlinternalFormat.ml:2790:8>>*/  /*<<camlinternalFormat.ml:2790:8>>*/ add_range
+                   /*<<camlinternalFormat.ml:2790:8>>*/ (c$0, c$2);
                  var _a9_ = str_ind$2 + 1 | 0;
                   /*<<camlinternalFormat.ml:2790:8>>*/ if(counter >= 50)
                    /*<<camlinternalFormat.ml:2790:8>>*/ return  /*<<camlinternalFormat.ml:2790:8>>*/ caml_trampoline_return
                            /*<<camlinternalFormat.ml:2790:8>>*/ (parse_char_set_content,
                            [0, _a9_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$0 = counter + 1 | 0;
-                  /*<<camlinternalFormat.ml:2790:8>>*/ return parse_char_set_content
-                         (counter$0, _a9_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  /*<<camlinternalFormat.ml:2790:8>>*/ return  /*<<camlinternalFormat.ml:2790:8>>*/ parse_char_set_content
+                          /*<<camlinternalFormat.ml:2790:8>>*/ (counter$0,
+                          _a9_,
+                          end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                 if(37 === c$0){
-                  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                  (char_set, c$1);
+                  /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                   /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$1);
                  var _a7_ = str_ind$0 + 1 | 0;
                   /*<<camlinternalFormat.ml:2763:8>>*/ if(counter >= 50)
                    /*<<camlinternalFormat.ml:2763:8>>*/ return  /*<<camlinternalFormat.ml:2763:8>>*/ caml_trampoline_return
                            /*<<camlinternalFormat.ml:2763:8>>*/ (parse_char_set_content,
                            [0, _a7_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$2 = counter + 1 | 0;
-                  /*<<camlinternalFormat.ml:2763:8>>*/ return parse_char_set_content
-                         (counter$2, _a7_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  /*<<camlinternalFormat.ml:2763:8>>*/ return  /*<<camlinternalFormat.ml:2763:8>>*/ parse_char_set_content
+                          /*<<camlinternalFormat.ml:2763:8>>*/ (counter$2,
+                          _a7_,
+                          end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                }
                if(37 === c$0)
-                 /*<<camlinternalFormat.ml:2766:24>>*/ fail_single_percent
-                 (str_ind$0);
-                /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                (char_set, c$0);
+                 /*<<camlinternalFormat.ml:2766:24>>*/  /*<<camlinternalFormat.ml:2766:24>>*/ fail_single_percent
+                  /*<<camlinternalFormat.ml:2766:24>>*/ (str_ind$0);
+                /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                 /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$0);
                var str_ind$1 = str_ind$0 + 1 | 0;
                str_ind$0 = str_ind$1;
                c$0 = c$1;
@@ -21067,8 +23041,9 @@
                       (parse_char_set_after_char$0(0, str_ind, end_ind, c));
              };
           if(str_ind === end_ind)
-            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-            (end_ind, cst_unexpected_end_of_format);
+            /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+             /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+             cst_unexpected_end_of_format);
           if
            (94
             ===
@@ -21081,53 +23056,81 @@
           else
            var reverse = 0, str_ind$1 = str_ind;
           if(str_ind$1 === end_ind)
-            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-            (end_ind, cst_unexpected_end_of_format);
+            /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+             /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+             cst_unexpected_end_of_format);
           var
            c =
               /*<<camlinternalFormat.ml:2738:14>>*/  /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
                /*<<camlinternalFormat.ml:2738:14>>*/ (str, str_ind$1),
            next_ind =
-              /*<<camlinternalFormat.ml:2739:6>>*/ parse_char_set_after_char
-              (str_ind$1 + 1 | 0, end_ind, c),
+              /*<<camlinternalFormat.ml:2739:6>>*/  /*<<camlinternalFormat.ml:2739:6>>*/ parse_char_set_after_char
+               /*<<camlinternalFormat.ml:2739:6>>*/ (str_ind$1 + 1 | 0,
+               end_ind,
+               c),
            char_set$0 =
-              /*<<camlinternalFormat.ml:2799:19>>*/ freeze_char_set(char_set),
+              /*<<camlinternalFormat.ml:2799:19>>*/  /*<<camlinternalFormat.ml:2799:19>>*/ freeze_char_set
+               /*<<camlinternalFormat.ml:2799:19>>*/ (char_set),
            char_set$1 =
               /*<<camlinternalFormat.ml:2800:4>>*/ reverse
-              ? rev_char_set(char_set$0)
+              ?  /*<<camlinternalFormat.ml:2800:31>>*/ rev_char_set
+                 /*<<camlinternalFormat.ml:2800:31>>*/ (char_set$0)
               : char_set$0,
-           fmt_rest$19 = parse(next_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2543:9>>*/ if(get_ign(0))
+           fmt_rest$19 =
+              /*<<camlinternalFormat.ml:2542:29>>*/ parse
+                /*<<camlinternalFormat.ml:2542:29>>*/ (next_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2543:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2543:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2543:9>>*/ (0))
            var
             ignored$9 =
                /*<<camlinternalFormat.ml:2544:22>>*/ [10,
-               get_pad_opt(95),
+                /*<<camlinternalFormat.ml:2544:45>>*/ get_pad_opt
+                 /*<<camlinternalFormat.ml:2544:45>>*/ (95),
                char_set$1],
             _aX_ = [0, [23, ignored$9, fmt_rest$19]];
           else
-           var _aX_ = [0, [20, get_pad_opt(91), char_set$1, fmt_rest$19]];
+           var
+            _aX_ =
+              [0,
+               [20,
+                 /*<<camlinternalFormat.ml:2547:32>>*/ get_pad_opt
+                  /*<<camlinternalFormat.ml:2547:32>>*/ (91),
+                char_set$1,
+                fmt_rest$19]];
           var fmt_result = _aX_;
           break a;
          case 97:
           var
-           fmt_rest$20 = parse(str_ind, end_ind)[1],
+           fmt_rest$20 =
+              /*<<camlinternalFormat.ml:2505:29>>*/ parse
+                /*<<camlinternalFormat.ml:2505:29>>*/ (str_ind, end_ind)
+              [1],
            fmt_result = [0, [15, fmt_rest$20]];
           break a;
          case 99:
           var
            char_format =
              function(fmt_rest){
-               /*<<camlinternalFormat.ml:2377:8>>*/ return get_ign(0)
+               /*<<camlinternalFormat.ml:2377:8>>*/ return  /*<<camlinternalFormat.ml:2377:11>>*/ get_ign
+                        /*<<camlinternalFormat.ml:2377:11>>*/ (0)
                       ? [0, [23, 0, fmt_rest]]
                       : [0, [0, fmt_rest]] /*<<camlinternalFormat.ml:2379:36>>*/ ;
               /*<<camlinternalFormat.ml:2379:36>>*/ },
-           fmt_rest$21 = parse(str_ind, end_ind)[1],
-           match$7 =  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt(99);
+           fmt_rest$21 =
+              /*<<camlinternalFormat.ml:2386:29>>*/ parse
+                /*<<camlinternalFormat.ml:2386:29>>*/ (str_ind, end_ind)
+              [1],
+           match$7 =
+              /*<<camlinternalFormat.ml:2387:18>>*/  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt
+               /*<<camlinternalFormat.ml:2387:18>>*/ (99);
           if(match$7){
            if(0 === match$7[1])
             var
              _aY_ =
-                /*<<camlinternalFormat.ml:2382:11>>*/ get_ign(0)
+                /*<<camlinternalFormat.ml:2382:11>>*/  /*<<camlinternalFormat.ml:2382:11>>*/ get_ign
+                  /*<<camlinternalFormat.ml:2382:11>>*/ (0)
                 ? [0, [23, 3, fmt_rest$21]]
                 : [0, [22, fmt_rest$21]],
              _aZ_ = _aY_;
@@ -21135,20 +23138,29 @@
             var
              _aZ_ =
                legacy_behavior$0
-                ? char_format(fmt_rest$21)
-                : invalid_format_message
-                  (str_ind, cst_non_zero_widths_are_unsupp);
+                ?  /*<<camlinternalFormat.ml:2393:47>>*/ char_format
+                   /*<<camlinternalFormat.ml:2393:47>>*/ (fmt_rest$21)
+                :  /*<<camlinternalFormat.ml:2098:4>>*/ invalid_format_message
+                   /*<<camlinternalFormat.ml:2098:4>>*/ (str_ind,
+                   cst_non_zero_widths_are_unsupp);
            var _a0_ = _aZ_;
           }
           else
-           var _a0_ = char_format(fmt_rest$21);
+           var
+            _a0_ =
+               /*<<camlinternalFormat.ml:2388:18>>*/ char_format
+                /*<<camlinternalFormat.ml:2388:18>>*/ (fmt_rest$21);
           var fmt_result = _a0_;
           break a;
          case 114:
           var
-           fmt_rest$22 = parse(str_ind, end_ind)[1],
+           fmt_rest$22 =
+              /*<<camlinternalFormat.ml:2511:29>>*/ parse
+                /*<<camlinternalFormat.ml:2511:29>>*/ (str_ind, end_ind)
+              [1],
            _a1_ =
-              /*<<camlinternalFormat.ml:2512:9>>*/ get_ign(0)
+              /*<<camlinternalFormat.ml:2512:9>>*/  /*<<camlinternalFormat.ml:2512:9>>*/ get_ign
+                /*<<camlinternalFormat.ml:2512:9>>*/ (0)
               ? [0, [23, 2, fmt_rest$22]]
               : [0, [19, fmt_rest$22]],
            fmt_result = _a1_;
@@ -21156,19 +23168,28 @@
          case 115:
           var
            pad$9 =
-              /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
-              (symb, get_padprec(0)),
-           fmt_rest$23 = parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2402:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2400:16>>*/  /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
+               /*<<camlinternalFormat.ml:2400:16>>*/ (symb,
+                /*<<camlinternalFormat.ml:2400:32>>*/ get_padprec
+                 /*<<camlinternalFormat.ml:2400:32>>*/ (0)),
+           fmt_rest$23 =
+              /*<<camlinternalFormat.ml:2401:29>>*/ parse
+                /*<<camlinternalFormat.ml:2401:29>>*/ (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2402:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2402:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2402:9>>*/ (0))
            var
             ignored$10 =
-               /*<<camlinternalFormat.ml:2403:22>>*/ [0, get_padprec_opt(95)],
+               /*<<camlinternalFormat.ml:2403:22>>*/ [0,
+                /*<<camlinternalFormat.ml:2403:37>>*/ get_padprec_opt
+                 /*<<camlinternalFormat.ml:2403:37>>*/ (95)],
             _a2_ = [0, [23, ignored$10, fmt_rest$23]];
           else
            var
             match$8 =
-               /*<<camlinternalFormat.ml:2407:10>>*/ make_padding_fmt_ebb
-               (pad$9, fmt_rest$23),
+               /*<<camlinternalFormat.ml:2407:10>>*/  /*<<camlinternalFormat.ml:2407:10>>*/ make_padding_fmt_ebb
+                /*<<camlinternalFormat.ml:2407:10>>*/ (pad$9, fmt_rest$23),
             fmt_rest$24 = match$8[2],
             pad$10 = match$8[1],
             _a2_ = [0, [2, pad$10, fmt_rest$24]];
@@ -21176,46 +23197,76 @@
           break a;
          case 116:
           var
-           fmt_rest$25 = parse(str_ind, end_ind)[1],
+           fmt_rest$25 =
+              /*<<camlinternalFormat.ml:2508:29>>*/ parse
+                /*<<camlinternalFormat.ml:2508:29>>*/ (str_ind, end_ind)
+              [1],
            fmt_result = [0, [16, fmt_rest$25]];
           break a;
          case 123:
           var
            sub_end$0 =
-              /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
-              (str_ind, end_ind, 125),
-           sub_fmt$0 = parse(str_ind, sub_end$0)[1],
-           fmt_rest$26 = parse(sub_end$0 + 2 | 0, end_ind)[1],
+              /*<<camlinternalFormat.ml:2521:20>>*/  /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
+               /*<<camlinternalFormat.ml:2521:20>>*/ (str_ind, end_ind, 125),
+           sub_fmt$0 =
+              /*<<camlinternalFormat.ml:2522:28>>*/ parse
+                /*<<camlinternalFormat.ml:2522:28>>*/ (str_ind, sub_end$0)
+              [1],
+           fmt_rest$26 =
+              /*<<camlinternalFormat.ml:2523:29>>*/ parse
+                /*<<camlinternalFormat.ml:2523:29>>*/ (sub_end$0 + 2 | 0,
+                end_ind)
+              [1],
            sub_fmtty$0 =
-              /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt(sub_fmt$0);
-           /*<<camlinternalFormat.ml:2525:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2524:22>>*/  /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt
+               /*<<camlinternalFormat.ml:2524:22>>*/ (sub_fmt$0);
+           /*<<camlinternalFormat.ml:2525:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2525:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2525:9>>*/ (0))
            var
             ignored$11 =
                /*<<camlinternalFormat.ml:2526:22>>*/ [8,
-               get_pad_opt(95),
+                /*<<camlinternalFormat.ml:2526:42>>*/ get_pad_opt
+                 /*<<camlinternalFormat.ml:2526:42>>*/ (95),
                sub_fmtty$0],
             _a3_ = [0, [23, ignored$11, fmt_rest$26]];
           else
-           var _a3_ = [0, [13, get_pad_opt(123), sub_fmtty$0, fmt_rest$26]];
+           var
+            _a3_ =
+              [0,
+               [13,
+                 /*<<camlinternalFormat.ml:2529:29>>*/ get_pad_opt
+                  /*<<camlinternalFormat.ml:2529:29>>*/ (123),
+                sub_fmtty$0,
+                fmt_rest$26]];
           var fmt_result = _a3_;
           break a;
          case 66:
          case 98:
           var
            pad$3 =
-              /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
-              (symb, get_padprec(0)),
-           fmt_rest$8 = parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2497:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2495:16>>*/  /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
+               /*<<camlinternalFormat.ml:2495:16>>*/ (symb,
+                /*<<camlinternalFormat.ml:2495:32>>*/ get_padprec
+                 /*<<camlinternalFormat.ml:2495:32>>*/ (0)),
+           fmt_rest$8 =
+              /*<<camlinternalFormat.ml:2496:29>>*/ parse
+                /*<<camlinternalFormat.ml:2496:29>>*/ (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2497:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2497:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2497:9>>*/ (0))
            var
             ignored$3 =
-               /*<<camlinternalFormat.ml:2498:22>>*/ [7, get_padprec_opt(95)],
+               /*<<camlinternalFormat.ml:2498:22>>*/ [7,
+                /*<<camlinternalFormat.ml:2498:35>>*/ get_padprec_opt
+                 /*<<camlinternalFormat.ml:2498:35>>*/ (95)],
             _aK_ = [0, [23, ignored$3, fmt_rest$8]];
           else
            var
             match$3 =
-               /*<<camlinternalFormat.ml:2502:10>>*/ make_padding_fmt_ebb
-               (pad$3, fmt_rest$8),
+               /*<<camlinternalFormat.ml:2502:10>>*/  /*<<camlinternalFormat.ml:2502:10>>*/ make_padding_fmt_ebb
+                /*<<camlinternalFormat.ml:2502:10>>*/ (pad$3, fmt_rest$8),
             fmt_rest$9 = match$3[2],
             pad$4 = match$3[1],
             _aK_ = [0, [9, pad$4, fmt_rest$9]];
@@ -21224,7 +23275,10 @@
          case 37:
          case 64:
           var
-           fmt_rest$6 = parse(str_ind, end_ind)[1],
+           fmt_rest$6 =
+              /*<<camlinternalFormat.ml:2518:29>>*/ parse
+                /*<<camlinternalFormat.ml:2518:29>>*/ (str_ind, end_ind)
+              [1],
            fmt_result = [0, [12, symb, fmt_rest$6]];
           break a;
          case 76:
@@ -21252,7 +23306,11 @@
            }
             /*<<camlinternalFormat.ml:2438:50>>*/ if(_aQ_) break;
           }
-          var fmt_rest$13 = parse(str_ind, end_ind)[1];
+          var
+           fmt_rest$13 =
+              /*<<camlinternalFormat.ml:2439:29>>*/ parse
+                /*<<camlinternalFormat.ml:2439:29>>*/ (str_ind, end_ind)
+              [1];
           b:
           {
            if(108 <= symb){
@@ -21271,7 +23329,9 @@
                     _V_],
                    1);
           }
-           /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
+           /*<<camlinternalFormat.ml:2441:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2441:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2441:9>>*/ (0))
            var
             ignored$5 =  /*<<camlinternalFormat.ml:2442:22>>*/ [11, counter],
             _aP_ = [0, [23, ignored$5, fmt_rest$13]];
@@ -21287,7 +23347,8 @@
           var
            fmt_result =
               /*<<camlinternalFormat.ml:2549:6>>*/ caml_call3
-               /*<<camlinternalFormat.ml:2549:6>>*/ (failwith_message(_M_),
+               /*<<camlinternalFormat.ml:2549:6>>*/ ( /*<<camlinternalFormat.ml:2549:6>>*/ failwith_message
+                 /*<<camlinternalFormat.ml:2549:6>>*/ (_M_),
                str,
                pct_ind,
                symb);
@@ -21299,25 +23360,46 @@
          case 117:
          case 120:
           var
-           _aT_ =  /*<<camlinternalFormat.ml:2421:8>>*/ get_space(0),
-           _aU_ =  /*<<camlinternalFormat.ml:2420:65>>*/ get_hash(0),
+           _aT_ =
+              /*<<camlinternalFormat.ml:2421:8>>*/  /*<<camlinternalFormat.ml:2421:8>>*/ get_space
+               /*<<camlinternalFormat.ml:2421:8>>*/ (0),
+           _aU_ =
+              /*<<camlinternalFormat.ml:2420:65>>*/  /*<<camlinternalFormat.ml:2420:65>>*/ get_hash
+               /*<<camlinternalFormat.ml:2420:65>>*/ (0),
            iconv$2 =
-              /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
-              (pct_ind, str_ind, get_plus(0), _aU_, _aT_, symb),
-           fmt_rest$17 = parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2423:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2420:18>>*/  /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
+               /*<<camlinternalFormat.ml:2420:18>>*/ (pct_ind,
+               str_ind,
+                /*<<camlinternalFormat.ml:2420:51>>*/ get_plus
+                 /*<<camlinternalFormat.ml:2420:51>>*/ (0),
+               _aU_,
+               _aT_,
+               symb),
+           fmt_rest$17 =
+              /*<<camlinternalFormat.ml:2422:29>>*/ parse
+                /*<<camlinternalFormat.ml:2422:29>>*/ (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2423:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2423:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2423:9>>*/ (0))
            var
             ignored$8 =
                /*<<camlinternalFormat.ml:2424:22>>*/ [2,
                iconv$2,
-               get_pad_opt(95)],
+                /*<<camlinternalFormat.ml:2424:42>>*/ get_pad_opt
+                 /*<<camlinternalFormat.ml:2424:42>>*/ (95)],
             _aV_ = [0, [23, ignored$8, fmt_rest$17]];
           else
            var
-            _aW_ =  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec(0),
+            _aW_ =
+               /*<<camlinternalFormat.ml:2428:48>>*/  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec
+                /*<<camlinternalFormat.ml:2428:48>>*/ (0),
             match$6 =
-               /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
-               (get_int_pad(0), _aW_, fmt_rest$17),
+               /*<<camlinternalFormat.ml:2428:10>>*/  /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
+                /*<<camlinternalFormat.ml:2428:10>>*/ ( /*<<camlinternalFormat.ml:2428:31>>*/ get_int_pad
+                  /*<<camlinternalFormat.ml:2428:31>>*/ (0),
+                _aW_,
+                fmt_rest$17),
             fmt_rest$18 = match$6[3],
             prec$4 = match$6[2],
             pad$8 = match$6[1],
@@ -21333,15 +23415,25 @@
          case 103:
          case 104:
           var
-           space$1 =  /*<<camlinternalFormat.ml:2485:38>>*/ get_space(0),
-           hash$1 =  /*<<camlinternalFormat.ml:2485:24>>*/ get_hash(0),
-           plus$2 =  /*<<camlinternalFormat.ml:2485:10>>*/ get_plus(0),
+           space$1 =
+              /*<<camlinternalFormat.ml:2485:38>>*/  /*<<camlinternalFormat.ml:2485:38>>*/ get_space
+               /*<<camlinternalFormat.ml:2485:38>>*/ (0),
+           hash$1 =
+              /*<<camlinternalFormat.ml:2485:24>>*/  /*<<camlinternalFormat.ml:2485:24>>*/ get_hash
+               /*<<camlinternalFormat.ml:2485:24>>*/ (0),
+           plus$2 =
+              /*<<camlinternalFormat.ml:2485:10>>*/  /*<<camlinternalFormat.ml:2485:10>>*/ get_plus
+               /*<<camlinternalFormat.ml:2485:10>>*/ (0),
            flag =
              plus$2
               ? space$1
                 ? legacy_behavior$0
                   ? 1
-                  : incompatible_flag(pct_ind, str_ind, 32, cst$36)
+                  :  /*<<camlinternalFormat.ml:2946:11>>*/ incompatible_flag
+                     /*<<camlinternalFormat.ml:2946:11>>*/ (pct_ind,
+                     str_ind,
+                     32,
+                     cst$36)
                 : 1
               : space$1 ? 2 : 0;
           b:
@@ -21388,28 +23480,48 @@
           }
           var
            fconv =  /*<<camlinternalFormat.ml:2958:4>>*/ [0, flag, kind],
-           fmt_rest$11 = parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2487:9>>*/ if(get_ign(0)){
-           var match =  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec(0);
+           fmt_rest$11 =
+              /*<<camlinternalFormat.ml:2486:29>>*/ parse
+                /*<<camlinternalFormat.ml:2486:29>>*/ (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2487:9>>*/ if
+           ( /*<<camlinternalFormat.ml:2487:9>>*/ get_ign
+              /*<<camlinternalFormat.ml:2487:9>>*/ (0)){
+           var
+            match =
+               /*<<camlinternalFormat.ml:2366:32>>*/  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec
+                /*<<camlinternalFormat.ml:2366:32>>*/ (0);
            if(typeof match === "number")
             var
              _aM_ =
-               match ? incompatible_flag(pct_ind, str_ind, 95, cst$26) : 0;
+               match
+                ?  /*<<camlinternalFormat.ml:2369:30>>*/ incompatible_flag
+                   /*<<camlinternalFormat.ml:2369:30>>*/ (pct_ind,
+                   str_ind,
+                   95,
+                   cst$26)
+                : 0;
            else
             var ndec = match[1], _aM_ = [0, ndec];
            var
             ignored$4 =
                /*<<camlinternalFormat.ml:2488:22>>*/ [6,
-               get_pad_opt(95),
+                /*<<camlinternalFormat.ml:2488:37>>*/ get_pad_opt
+                 /*<<camlinternalFormat.ml:2488:37>>*/ (95),
                _aM_],
             _aN_ = [0, [23, ignored$4, fmt_rest$11]];
           }
           else
            var
-            _aO_ =  /*<<camlinternalFormat.ml:2492:44>>*/ get_prec(0),
+            _aO_ =
+               /*<<camlinternalFormat.ml:2492:44>>*/  /*<<camlinternalFormat.ml:2492:44>>*/ get_prec
+                /*<<camlinternalFormat.ml:2492:44>>*/ (0),
             match$4 =
-               /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
-               (get_pad(0), _aO_, fmt_rest$11),
+               /*<<camlinternalFormat.ml:2492:10>>*/  /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
+                /*<<camlinternalFormat.ml:2492:10>>*/ ( /*<<camlinternalFormat.ml:2492:31>>*/ get_pad
+                  /*<<camlinternalFormat.ml:2492:31>>*/ (0),
+                _aO_,
+                fmt_rest$11),
             fmt_rest$12 = match$4[3],
             prec$3 = match$4[2],
             pad$5 = match$4[1],
@@ -21426,25 +23538,47 @@
             _at_ =
                /*<<camlinternalFormat.ml:2449:25>>*/  /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
                 /*<<camlinternalFormat.ml:2449:25>>*/ (str, str_ind),
-            _au_ =  /*<<camlinternalFormat.ml:2449:10>>*/ get_space(0),
-            _av_ =  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash(0),
+            _au_ =
+               /*<<camlinternalFormat.ml:2449:10>>*/  /*<<camlinternalFormat.ml:2449:10>>*/ get_space
+                /*<<camlinternalFormat.ml:2449:10>>*/ (0),
+            _av_ =
+               /*<<camlinternalFormat.ml:2448:61>>*/  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash
+                /*<<camlinternalFormat.ml:2448:61>>*/ (0),
             iconv =
-               /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
-               (pct_ind, str_ind + 1 | 0, get_plus(0), _av_, _au_, _at_),
-            fmt_rest = parse(str_ind + 1 | 0, end_ind)[1];
-            /*<<camlinternalFormat.ml:2451:9>>*/ if(get_ign(0))
+               /*<<camlinternalFormat.ml:2448:8>>*/  /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
+                /*<<camlinternalFormat.ml:2448:8>>*/ (pct_ind,
+                str_ind + 1 | 0,
+                 /*<<camlinternalFormat.ml:2448:47>>*/ get_plus
+                  /*<<camlinternalFormat.ml:2448:47>>*/ (0),
+                _av_,
+                _au_,
+                _at_),
+            fmt_rest =
+               /*<<camlinternalFormat.ml:2450:29>>*/ parse
+                 /*<<camlinternalFormat.ml:2450:29>>*/ (str_ind + 1 | 0,
+                 end_ind)
+               [1];
+            /*<<camlinternalFormat.ml:2451:9>>*/ if
+            ( /*<<camlinternalFormat.ml:2451:9>>*/ get_ign
+               /*<<camlinternalFormat.ml:2451:9>>*/ (0))
             var
              ignored =
                 /*<<camlinternalFormat.ml:2452:22>>*/ [3,
                 iconv,
-                get_pad_opt(95)],
+                 /*<<camlinternalFormat.ml:2452:44>>*/ get_pad_opt
+                  /*<<camlinternalFormat.ml:2452:44>>*/ (95)],
              _aw_ = [0, [23, ignored, fmt_rest]];
            else
             var
-             _ay_ =  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec(0),
+             _ay_ =
+                /*<<camlinternalFormat.ml:2456:48>>*/  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec
+                 /*<<camlinternalFormat.ml:2456:48>>*/ (0),
              match$0 =
-                /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
-                (get_int_pad(0), _ay_, fmt_rest),
+                /*<<camlinternalFormat.ml:2456:10>>*/  /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
+                 /*<<camlinternalFormat.ml:2456:10>>*/ ( /*<<camlinternalFormat.ml:2456:31>>*/ get_int_pad
+                   /*<<camlinternalFormat.ml:2456:31>>*/ (0),
+                 _ay_,
+                 fmt_rest),
              fmt_rest$0 = match$0[3],
              prec$0 = match$0[2],
              pad$0 = match$0[1],
@@ -21458,25 +23592,47 @@
             _az_ =
                /*<<camlinternalFormat.ml:2461:39>>*/  /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
                 /*<<camlinternalFormat.ml:2461:39>>*/ (str, str_ind),
-            _aA_ =  /*<<camlinternalFormat.ml:2461:24>>*/ get_space(0),
-            _aB_ =  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash(0),
+            _aA_ =
+               /*<<camlinternalFormat.ml:2461:24>>*/  /*<<camlinternalFormat.ml:2461:24>>*/ get_space
+                /*<<camlinternalFormat.ml:2461:24>>*/ (0),
+            _aB_ =
+               /*<<camlinternalFormat.ml:2461:10>>*/  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash
+                /*<<camlinternalFormat.ml:2461:10>>*/ (0),
             iconv$0 =
-               /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
-               (pct_ind, str_ind + 1 | 0, get_plus(0), _aB_, _aA_, _az_),
-            fmt_rest$1 = parse(str_ind + 1 | 0, end_ind)[1];
-            /*<<camlinternalFormat.ml:2463:9>>*/ if(get_ign(0))
+               /*<<camlinternalFormat.ml:2460:8>>*/  /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
+                /*<<camlinternalFormat.ml:2460:8>>*/ (pct_ind,
+                str_ind + 1 | 0,
+                 /*<<camlinternalFormat.ml:2460:47>>*/ get_plus
+                  /*<<camlinternalFormat.ml:2460:47>>*/ (0),
+                _aB_,
+                _aA_,
+                _az_),
+            fmt_rest$1 =
+               /*<<camlinternalFormat.ml:2462:29>>*/ parse
+                 /*<<camlinternalFormat.ml:2462:29>>*/ (str_ind + 1 | 0,
+                 end_ind)
+               [1];
+            /*<<camlinternalFormat.ml:2463:9>>*/ if
+            ( /*<<camlinternalFormat.ml:2463:9>>*/ get_ign
+               /*<<camlinternalFormat.ml:2463:9>>*/ (0))
             var
              ignored$0 =
                 /*<<camlinternalFormat.ml:2464:22>>*/ [4,
                 iconv$0,
-                get_pad_opt(95)],
+                 /*<<camlinternalFormat.ml:2464:48>>*/ get_pad_opt
+                  /*<<camlinternalFormat.ml:2464:48>>*/ (95)],
              _aC_ = [0, [23, ignored$0, fmt_rest$1]];
            else
             var
-             _aD_ =  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec(0),
+             _aD_ =
+                /*<<camlinternalFormat.ml:2468:48>>*/  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec
+                 /*<<camlinternalFormat.ml:2468:48>>*/ (0),
              match$1 =
-                /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
-                (get_int_pad(0), _aD_, fmt_rest$1),
+                /*<<camlinternalFormat.ml:2468:10>>*/  /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
+                 /*<<camlinternalFormat.ml:2468:10>>*/ ( /*<<camlinternalFormat.ml:2468:31>>*/ get_int_pad
+                   /*<<camlinternalFormat.ml:2468:31>>*/ (0),
+                 _aD_,
+                 fmt_rest$1),
              fmt_rest$2 = match$1[3],
              prec$1 = match$1[2],
              pad$1 = match$1[1],
@@ -21492,25 +23648,46 @@
         _aE_ =
            /*<<camlinternalFormat.ml:2473:25>>*/  /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get
             /*<<camlinternalFormat.ml:2473:25>>*/ (str, str_ind),
-        _aF_ =  /*<<camlinternalFormat.ml:2473:10>>*/ get_space(0),
-        _aG_ =  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash(0),
+        _aF_ =
+           /*<<camlinternalFormat.ml:2473:10>>*/  /*<<camlinternalFormat.ml:2473:10>>*/ get_space
+            /*<<camlinternalFormat.ml:2473:10>>*/ (0),
+        _aG_ =
+           /*<<camlinternalFormat.ml:2472:61>>*/  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash
+            /*<<camlinternalFormat.ml:2472:61>>*/ (0),
         iconv$1 =
-           /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
-           (pct_ind, str_ind + 1 | 0, get_plus(0), _aG_, _aF_, _aE_),
-        fmt_rest$3 = parse(str_ind + 1 | 0, end_ind)[1];
-        /*<<camlinternalFormat.ml:2475:9>>*/ if(get_ign(0))
+           /*<<camlinternalFormat.ml:2472:8>>*/  /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
+            /*<<camlinternalFormat.ml:2472:8>>*/ (pct_ind,
+            str_ind + 1 | 0,
+             /*<<camlinternalFormat.ml:2472:47>>*/ get_plus
+              /*<<camlinternalFormat.ml:2472:47>>*/ (0),
+            _aG_,
+            _aF_,
+            _aE_),
+        fmt_rest$3 =
+           /*<<camlinternalFormat.ml:2474:29>>*/ parse
+             /*<<camlinternalFormat.ml:2474:29>>*/ (str_ind + 1 | 0, end_ind)
+           [1];
+        /*<<camlinternalFormat.ml:2475:9>>*/ if
+        ( /*<<camlinternalFormat.ml:2475:9>>*/ get_ign
+           /*<<camlinternalFormat.ml:2475:9>>*/ (0))
         var
          ignored$1 =
             /*<<camlinternalFormat.ml:2476:22>>*/ [5,
             iconv$1,
-            get_pad_opt(95)],
+             /*<<camlinternalFormat.ml:2476:44>>*/ get_pad_opt
+              /*<<camlinternalFormat.ml:2476:44>>*/ (95)],
          _aH_ = [0, [23, ignored$1, fmt_rest$3]];
        else
         var
-         _aI_ =  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec(0),
+         _aI_ =
+            /*<<camlinternalFormat.ml:2480:48>>*/  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec
+             /*<<camlinternalFormat.ml:2480:48>>*/ (0),
          match$2 =
-            /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
-            (get_int_pad(0), _aI_, fmt_rest$3),
+            /*<<camlinternalFormat.ml:2480:10>>*/  /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
+             /*<<camlinternalFormat.ml:2480:10>>*/ ( /*<<camlinternalFormat.ml:2480:31>>*/ get_int_pad
+               /*<<camlinternalFormat.ml:2480:31>>*/ (0),
+             _aI_,
+             fmt_rest$3),
          fmt_rest$4 = match$2[3],
          prec$2 = match$2[2],
          pad$2 = match$2[1],
@@ -21521,7 +23698,8 @@
       var
        fmt_result =
           /*<<camlinternalFormat.ml:2554:6>>*/ caml_call3
-           /*<<camlinternalFormat.ml:2554:6>>*/ (failwith_message(_J_),
+           /*<<camlinternalFormat.ml:2554:6>>*/ ( /*<<camlinternalFormat.ml:2554:6>>*/ failwith_message
+             /*<<camlinternalFormat.ml:2554:6>>*/ (_J_),
            str,
            str_ind - 1 | 0,
            symb);
@@ -21529,16 +23707,16 @@
      if(1 - legacy_behavior$0){
       var _ak_ = 1 - plus_used[1], plus$0 = _ak_ ? plus : _ak_;
       if(plus$0)
-        /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
-        (pct_ind, str_ind, symb, cst$27);
+        /*<<camlinternalFormat.ml:2564:6>>*/  /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
+         /*<<camlinternalFormat.ml:2564:6>>*/ (pct_ind, str_ind, symb, cst$27);
       var _al_ = 1 - hash_used[1], hash$0 = _al_ ? hash : _al_;
       if(hash$0)
-        /*<<camlinternalFormat.ml:2566:6>>*/ incompatible_flag
-        (pct_ind, str_ind, symb, cst$28);
+        /*<<camlinternalFormat.ml:2566:6>>*/  /*<<camlinternalFormat.ml:2566:6>>*/ incompatible_flag
+         /*<<camlinternalFormat.ml:2566:6>>*/ (pct_ind, str_ind, symb, cst$28);
       var _am_ = 1 - space_used[1], space$0 = _am_ ? space : _am_;
       if(space$0)
-        /*<<camlinternalFormat.ml:2568:6>>*/ incompatible_flag
-        (pct_ind, str_ind, symb, cst$29);
+        /*<<camlinternalFormat.ml:2568:6>>*/  /*<<camlinternalFormat.ml:2568:6>>*/ incompatible_flag
+         /*<<camlinternalFormat.ml:2568:6>>*/ (pct_ind, str_ind, symb, cst$29);
       var
        _an_ = 1 - pad_used[1],
        _ao_ =
@@ -21547,8 +23725,11 @@
              /*<<camlinternalFormat.ml:2569:25>>*/ ([0, pad], _K_)
           : _an_;
        /*<<camlinternalFormat.ml:2569:25>>*/ if(_ao_)
-        /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
-        (pct_ind, str_ind, symb, cst_padding$0);
+        /*<<camlinternalFormat.ml:2570:6>>*/  /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
+         /*<<camlinternalFormat.ml:2570:6>>*/ (pct_ind,
+         str_ind,
+         symb,
+         cst_padding$0);
       var
        _ap_ = 1 - prec_used[1],
        _aq_ =
@@ -21558,13 +23739,16 @@
           : _ap_;
        /*<<camlinternalFormat.ml:2571:25>>*/ if(_aq_){
        var _ar_ = ign ? 95 : symb;
-        /*<<camlinternalFormat.ml:2572:6>>*/ incompatible_flag
-        (pct_ind, str_ind, _ar_, cst_precision$2);
+        /*<<camlinternalFormat.ml:2572:6>>*/  /*<<camlinternalFormat.ml:2572:6>>*/ incompatible_flag
+         /*<<camlinternalFormat.ml:2572:6>>*/ (pct_ind,
+         str_ind,
+         _ar_,
+         cst_precision$2);
       }
       var plus$1 = ign ? plus : ign;
       if(plus$1)
-        /*<<camlinternalFormat.ml:2574:24>>*/ incompatible_flag
-        (pct_ind, str_ind, 95, cst$30);
+        /*<<camlinternalFormat.ml:2574:24>>*/  /*<<camlinternalFormat.ml:2574:24>>*/ incompatible_flag
+         /*<<camlinternalFormat.ml:2574:24>>*/ (pct_ind, str_ind, 95, cst$30);
      }
      var _as_ = 1 - ign_used[1], ign$0 = _as_ ? ign : _as_;
      a:
@@ -21577,8 +23761,8 @@
        else if(33 !== symb && 37 > symb) break b;
        if(legacy_behavior$0) break a;
       }
-       /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
-       (pct_ind, str_ind, symb, cst$31);
+       /*<<camlinternalFormat.ml:2584:10>>*/  /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
+        /*<<camlinternalFormat.ml:2584:10>>*/ (pct_ind, str_ind, symb, cst$31);
      }
       /*<<camlinternalFormat.ml:2584:10>>*/ return fmt_result /*<<camlinternalFormat.ml:2584:10>>*/ ;
     }
@@ -21611,8 +23795,14 @@
            str,
            str_ind,
            (ind - str_ind | 0) + 1 | 0),
-       fmt_rest$0 = parse(ind + 1 | 0, end_ind)[1],
-       sub_fmt = parse(str_ind, ind + 1 | 0)[1],
+       fmt_rest$0 =
+          /*<<camlinternalFormat.ml:2646:31>>*/ parse
+            /*<<camlinternalFormat.ml:2646:31>>*/ (ind + 1 | 0, end_ind)
+          [1],
+       sub_fmt =
+          /*<<camlinternalFormat.ml:2647:30>>*/ parse
+            /*<<camlinternalFormat.ml:2647:30>>*/ (str_ind, ind + 1 | 0)
+          [1],
        sub_format$0 =
           /*<<camlinternalFormat.ml:2648:25>>*/ [0, sub_fmt, sub_str],
        formatting$0 =
@@ -21628,7 +23818,10 @@
       var _ah_ = caml_wrap_exception(_aj_);
       if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
       var
-       fmt_rest = parse(str_ind, end_ind)[1],
+       fmt_rest =
+          /*<<camlinternalFormat.ml:2655:29>>*/ parse
+            /*<<camlinternalFormat.ml:2655:29>>*/ (str_ind, end_ind)
+          [1],
        formatting =
           /*<<camlinternalFormat.ml:2657:6>>*/ is_open_tag
           ? [0, sub_format]
@@ -21641,8 +23834,9 @@
      var str_ind$0 = str_ind;
       /*<<camlinternalFormat.ml:2804:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        (end_ind, cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+         cst_unexpected_end_of_format);
        /*<<camlinternalFormat.ml:2805:7>>*/ if
        (32
         !==
@@ -21657,8 +23851,9 @@
      var str_ind$0 = str_ind, acc$0 = acc;
       /*<<camlinternalFormat.ml:2810:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        (end_ind, cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+         cst_unexpected_end_of_format);
       var
        c =
           /*<<camlinternalFormat.ml:2811:10>>*/  /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
@@ -21669,7 +23864,8 @@
       if(Stdlib_Sys[12] < new_acc){
        var _ag_ =  /*<<camlinternalFormat.ml:2815:8>>*/ Stdlib_Sys[12];
         /*<<camlinternalFormat.ml:2815:8>>*/ return  /*<<camlinternalFormat.ml:2815:8>>*/ caml_call3
-                /*<<camlinternalFormat.ml:2815:8>>*/ (failwith_message(_S_),
+                /*<<camlinternalFormat.ml:2815:8>>*/ ( /*<<camlinternalFormat.ml:2815:8>>*/ failwith_message
+                  /*<<camlinternalFormat.ml:2815:8>>*/ (_S_),
                 str,
                 new_acc,
                 _ag_) /*<<camlinternalFormat.ml:2820:23>>*/ ;
@@ -21681,32 +23877,36 @@
      /*<<camlinternalFormat.ml:2820:23>>*/ }
     function parse_integer(str_ind, end_ind){
       /*<<camlinternalFormat.ml:2825:4>>*/ if(str_ind === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-       (end_ind, cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+        cst_unexpected_end_of_format);
      var
       match =
          /*<<camlinternalFormat.ml:2826:10>>*/  /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get
           /*<<camlinternalFormat.ml:2826:10>>*/ (str, str_ind);
      if(48 <= match){
       if(58 > match)
-        /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
-               (str_ind, end_ind, 0) /*<<camlinternalFormat.ml:2837:23>>*/ ;
+        /*<<camlinternalFormat.ml:2827:20>>*/ return  /*<<camlinternalFormat.ml:2827:20>>*/ parse_positive
+                /*<<camlinternalFormat.ml:2827:20>>*/ (str_ind, end_ind, 0) /*<<camlinternalFormat.ml:2837:23>>*/ ;
      }
      else if(45 === match){
       if((str_ind + 1 | 0) === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        (end_ind, cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+         cst_unexpected_end_of_format);
       var
        c =
           /*<<camlinternalFormat.ml:2830:12>>*/  /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
            /*<<camlinternalFormat.ml:2830:12>>*/ (str, str_ind + 1 | 0);
       if(9 < c - 48 >>> 0)
-        /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
-               (str_ind + 1 | 0, cst_digit, c) /*<<camlinternalFormat.ml:2837:23>>*/ ;
+        /*<<camlinternalFormat.ml:2835:8>>*/ return  /*<<camlinternalFormat.ml:2835:8>>*/ expected_character
+                /*<<camlinternalFormat.ml:2835:8>>*/ (str_ind + 1 | 0,
+                cst_digit,
+                c) /*<<camlinternalFormat.ml:2837:23>>*/ ;
       var
        match$0 =
-          /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
-          (str_ind + 1 | 0, end_ind, 0),
+          /*<<camlinternalFormat.ml:2832:26>>*/  /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
+           /*<<camlinternalFormat.ml:2832:26>>*/ (str_ind + 1 | 0, end_ind, 0),
        n = match$0[2],
        next_ind = match$0[1];
        /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0] /*<<camlinternalFormat.ml:2833:8>>*/ ;
@@ -21740,7 +23940,8 @@
       /*<<camlinternalFormat.ml:2851:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/  /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
-         /*<<camlinternalFormat.ml:2852:6>>*/ (failwith_message(_U_),
+         /*<<camlinternalFormat.ml:2852:6>>*/ ( /*<<camlinternalFormat.ml:2852:6>>*/ failwith_message
+           /*<<camlinternalFormat.ml:2852:6>>*/ (_U_),
          str,
          c,
          end_ind);
@@ -21750,8 +23951,9 @@
           /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
            /*<<camlinternalFormat.ml:2855:10>>*/ (str, str_ind$0)){
        if((str_ind$0 + 1 | 0) === end_ind)
-         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-         (end_ind, cst_unexpected_end_of_format);
+         /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+          /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+          cst_unexpected_end_of_format);
        if
         ( /*<<camlinternalFormat.ml:2858:9>>*/ caml_string_get
            /*<<camlinternalFormat.ml:2858:9>>*/ (str, str_ind$0 + 1 | 0)
@@ -21768,22 +23970,27 @@
             case 0:
              var
               sub_end =
-                 /*<<camlinternalFormat.ml:2874:24>>*/ search_subformat_end
-                 (str_ind$0 + 2 | 0, end_ind, 125),
+                 /*<<camlinternalFormat.ml:2874:24>>*/  /*<<camlinternalFormat.ml:2874:24>>*/ search_subformat_end
+                  /*<<camlinternalFormat.ml:2874:24>>*/ (str_ind$0 + 2 | 0,
+                  end_ind,
+                  125),
               str_ind$2 =
                  /*<<camlinternalFormat.ml:2874:24>>*/ sub_end + 2 | 0;
              str_ind$0 = str_ind$2;
              continue;
             case 1: break;
             default:
-              /*<<camlinternalFormat.ml:2882:10>>*/ return expected_character
-                     (str_ind$0 + 1 | 0, cst_character, 125) /*<<camlinternalFormat.ml:2889:55>>*/ ;
+              /*<<camlinternalFormat.ml:2882:10>>*/ return  /*<<camlinternalFormat.ml:2882:10>>*/ expected_character
+                      /*<<camlinternalFormat.ml:2882:10>>*/ (str_ind$0 + 1 | 0,
+                      cst_character,
+                      125) /*<<camlinternalFormat.ml:2889:55>>*/ ;
           }
         }
         else if(96 > match){
          if((str_ind$0 + 2 | 0) === end_ind)
-           /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-           (end_ind, cst_unexpected_end_of_format);
+           /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+            /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
+            cst_unexpected_end_of_format);
          var
           match$0 =
              /*<<camlinternalFormat.ml:2863:22>>*/  /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
@@ -21791,8 +23998,10 @@
          if(40 === match$0){
           var
            sub_end$0 =
-              /*<<camlinternalFormat.ml:2868:26>>*/ search_subformat_end
-              (str_ind$0 + 3 | 0, end_ind, 41),
+              /*<<camlinternalFormat.ml:2868:26>>*/  /*<<camlinternalFormat.ml:2868:26>>*/ search_subformat_end
+               /*<<camlinternalFormat.ml:2868:26>>*/ (str_ind$0 + 3 | 0,
+               end_ind,
+               41),
            str_ind$3 =
               /*<<camlinternalFormat.ml:2868:26>>*/ sub_end$0 + 2 | 0;
           str_ind$0 = str_ind$3;
@@ -21801,8 +24010,10 @@
          if(123 === match$0){
           var
            sub_end$1 =
-              /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
-              (str_ind$0 + 3 | 0, end_ind, 125),
+              /*<<camlinternalFormat.ml:2865:26>>*/  /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
+               /*<<camlinternalFormat.ml:2865:26>>*/ (str_ind$0 + 3 | 0,
+               end_ind,
+               125),
            str_ind$4 =
               /*<<camlinternalFormat.ml:2865:26>>*/ sub_end$1 + 2 | 0;
           str_ind$0 = str_ind$4;
@@ -21817,15 +24028,19 @@
         if(40 === match){
          var
           sub_end$2 =
-             /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
-             (str_ind$0 + 2 | 0, end_ind, 41),
+             /*<<camlinternalFormat.ml:2878:24>>*/  /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
+              /*<<camlinternalFormat.ml:2878:24>>*/ (str_ind$0 + 2 | 0,
+              end_ind,
+              41),
           str_ind$6 =  /*<<camlinternalFormat.ml:2878:24>>*/ sub_end$2 + 2 | 0;
          str_ind$0 = str_ind$6;
          continue;
         }
         if(41 === match)
-          /*<<camlinternalFormat.ml:2885:10>>*/ return expected_character
-                 (str_ind$0 + 1 | 0, cst_character$0, 41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
+          /*<<camlinternalFormat.ml:2885:10>>*/ return  /*<<camlinternalFormat.ml:2885:10>>*/ expected_character
+                  /*<<camlinternalFormat.ml:2885:10>>*/ (str_ind$0 + 1 | 0,
+                  cst_character$0,
+                  41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
        }
        var str_ind$1 = str_ind$0 + 2 | 0;
        str_ind$0 = str_ind$1;
@@ -21913,8 +24128,11 @@
           case 17:
           case 29:
            if(! legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2921:11>>*/ return incompatible_flag
-                    (pct_ind, str_ind, symb, cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+             /*<<camlinternalFormat.ml:2921:11>>*/ return  /*<<camlinternalFormat.ml:2921:11>>*/ incompatible_flag
+                     /*<<camlinternalFormat.ml:2921:11>>*/ (pct_ind,
+                     str_ind,
+                     symb,
+                     cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
            hash$0 = 0;
            continue;
         }
@@ -21922,14 +24140,20 @@
       if(plus$0)
        if(space$0){
         if(! legacy_behavior$0)
-          /*<<camlinternalFormat.ml:2926:11>>*/ return incompatible_flag
-                 (pct_ind, str_ind, 32, cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+          /*<<camlinternalFormat.ml:2926:11>>*/ return  /*<<camlinternalFormat.ml:2926:11>>*/ incompatible_flag
+                  /*<<camlinternalFormat.ml:2926:11>>*/ (pct_ind,
+                  str_ind,
+                  32,
+                  cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         space$0 = 0;
        }
        else{
         if(! legacy_behavior$0)
-          /*<<camlinternalFormat.ml:2934:11>>*/ return incompatible_flag
-                 (pct_ind, str_ind, symb, cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+          /*<<camlinternalFormat.ml:2934:11>>*/ return  /*<<camlinternalFormat.ml:2934:11>>*/ incompatible_flag
+                  /*<<camlinternalFormat.ml:2934:11>>*/ (pct_ind,
+                  str_ind,
+                  symb,
+                  cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         plus$0 = 0;
        }
       else{
@@ -21940,8 +24164,11 @@
                  _W_],
                 1);
        if(! legacy_behavior$0)
-         /*<<camlinternalFormat.ml:2930:11>>*/ return incompatible_flag
-                (pct_ind, str_ind, symb, cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+         /*<<camlinternalFormat.ml:2930:11>>*/ return  /*<<camlinternalFormat.ml:2930:11>>*/ incompatible_flag
+                 /*<<camlinternalFormat.ml:2930:11>>*/ (pct_ind,
+                 str_ind,
+                 symb,
+                 cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
        space$0 = 0;
       }
      }
@@ -21955,7 +24182,8 @@
           pct_ind,
           str_ind - pct_ind | 0);
       /*<<camlinternalFormat.ml:2964:6>>*/ return  /*<<camlinternalFormat.ml:2964:6>>*/ caml_call5
-              /*<<camlinternalFormat.ml:2964:6>>*/ (failwith_message(_Y_),
+              /*<<camlinternalFormat.ml:2964:6>>*/ ( /*<<camlinternalFormat.ml:2964:6>>*/ failwith_message
+                /*<<camlinternalFormat.ml:2964:6>>*/ (_Y_),
               str,
               pct_ind,
               option,
@@ -21965,21 +24193,30 @@
     return parse(0, caml_ml_string_length(str));
    }
    function format_of_string_fmtty(str, fmtty){
-    var fmt = fmt_ebb_of_string(0, str)[1];
+    var
+     fmt =
+        /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string
+          /*<<camlinternalFormat.ml:2977:20>>*/ (0, str)
+        [1];
      /*<<camlinternalFormat.ml:2978:2>>*/ try{
      var
       _ae_ =
          /*<<camlinternalFormat.ml:2978:6>>*/ [0,
-         type_format(fmt, fmtty),
+          /*<<camlinternalFormat.ml:2978:14>>*/ type_format
+           /*<<camlinternalFormat.ml:2978:14>>*/ (fmt, fmtty),
          str];
       /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_ /*<<camlinternalFormat.ml:2978:6>>*/ ;
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
      if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
-     var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
+     var
+      _ad_ =
+         /*<<camlinternalFormat.ml:2982:10>>*/  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty
+          /*<<camlinternalFormat.ml:2982:10>>*/ (fmtty);
       /*<<camlinternalFormat.ml:2982:10>>*/ return  /*<<camlinternalFormat.ml:2982:10>>*/ caml_call2
-              /*<<camlinternalFormat.ml:2982:10>>*/ (failwith_message(_Z_),
+              /*<<camlinternalFormat.ml:2982:10>>*/ ( /*<<camlinternalFormat.ml:2982:10>>*/ failwith_message
+                /*<<camlinternalFormat.ml:2982:10>>*/ (_Z_),
               str,
               _ad_) /*<<camlinternalFormat.ml:2982:33>>*/ ;
     }
@@ -21988,12 +24225,18 @@
     var
      str$0 = param[2],
      fmt = param[1],
-     fmt$0 = fmt_ebb_of_string(0, str)[1];
+     fmt$0 =
+        /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string
+          /*<<camlinternalFormat.ml:2987:20>>*/ (0, str)
+        [1];
      /*<<camlinternalFormat.ml:2988:2>>*/ try{
      var
       _aa_ =
          /*<<camlinternalFormat.ml:2988:6>>*/ [0,
-         type_format(fmt$0, fmtty_of_fmt(fmt)),
+          /*<<camlinternalFormat.ml:2988:14>>*/ type_format
+           /*<<camlinternalFormat.ml:2988:14>>*/ (fmt$0,
+            /*<<camlinternalFormat.ml:2988:30>>*/ fmtty_of_fmt
+             /*<<camlinternalFormat.ml:2988:30>>*/ (fmt)),
          str];
       /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_ /*<<camlinternalFormat.ml:2988:6>>*/ ;
     }
@@ -22001,7 +24244,8 @@
      var _$_ = caml_wrap_exception(_ab_);
      if(_$_ === Type_mismatch)
        /*<<camlinternalFormat.ml:2990:4>>*/ return  /*<<camlinternalFormat.ml:2990:4>>*/ caml_call2
-               /*<<camlinternalFormat.ml:2990:4>>*/ (failwith_message(___),
+               /*<<camlinternalFormat.ml:2990:4>>*/ ( /*<<camlinternalFormat.ml:2990:4>>*/ failwith_message
+                 /*<<camlinternalFormat.ml:2990:4>>*/ (___),
                str,
                str$0) /*<<camlinternalFormat.ml:2991:66>>*/ ;
      throw caml_maybe_attach_backtrace(_$_, 0);
@@ -22094,26 +24338,36 @@
              /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:23>>*/ ;
     /*<<printf.ml:24:23>>*/ }
    function fprintf(oc, fmt){
-     /*<<printf.ml:27:21>>*/ return kfprintf
-            (function(_d_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:27:43>>*/ ;
+     /*<<printf.ml:27:21>>*/ return  /*<<printf.ml:27:21>>*/ kfprintf
+             /*<<printf.ml:27:21>>*/ (function(_d_){ /*<<?>>*/ return 0;},
+             oc,
+             fmt) /*<<printf.ml:27:43>>*/ ;
     /*<<printf.ml:27:43>>*/ }
    function bprintf(b, fmt){
-     /*<<printf.ml:28:20>>*/ return kbprintf
-            (function(_c_){ /*<<?>>*/ return 0;}, b, fmt) /*<<printf.ml:28:41>>*/ ;
+     /*<<printf.ml:28:20>>*/ return  /*<<printf.ml:28:20>>*/ kbprintf
+             /*<<printf.ml:28:20>>*/ (function(_c_){ /*<<?>>*/ return 0;},
+             b,
+             fmt) /*<<printf.ml:28:41>>*/ ;
     /*<<printf.ml:28:41>>*/ }
    function ifprintf(oc, fmt){
-     /*<<printf.ml:29:22>>*/ return ikfprintf
-            (function(_b_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:29:45>>*/ ;
+     /*<<printf.ml:29:22>>*/ return  /*<<printf.ml:29:22>>*/ ikfprintf
+             /*<<printf.ml:29:22>>*/ (function(_b_){ /*<<?>>*/ return 0;},
+             oc,
+             fmt) /*<<printf.ml:29:45>>*/ ;
     /*<<printf.ml:29:45>>*/ }
    function ibprintf(b, fmt){
-     /*<<printf.ml:30:21>>*/ return ikfprintf
-            (function(_a_){ /*<<?>>*/ return 0;}, b, fmt) /*<<printf.ml:30:43>>*/ ;
+     /*<<printf.ml:30:21>>*/ return  /*<<printf.ml:30:21>>*/ ikfprintf
+             /*<<printf.ml:30:21>>*/ (function(_a_){ /*<<?>>*/ return 0;},
+             b,
+             fmt) /*<<printf.ml:30:43>>*/ ;
     /*<<printf.ml:30:43>>*/ }
    function printf(fmt){
-     /*<<printf.ml:31:17>>*/ return fprintf(Stdlib[39], fmt) /*<<printf.ml:31:35>>*/ ;
+     /*<<printf.ml:31:17>>*/ return  /*<<printf.ml:31:17>>*/ fprintf
+             /*<<printf.ml:31:17>>*/ (Stdlib[39], fmt) /*<<printf.ml:31:35>>*/ ;
     /*<<printf.ml:31:35>>*/ }
    function eprintf(fmt){
-     /*<<printf.ml:32:18>>*/ return fprintf(Stdlib[40], fmt) /*<<printf.ml:32:36>>*/ ;
+     /*<<printf.ml:32:18>>*/ return  /*<<printf.ml:32:18>>*/ fprintf
+             /*<<printf.ml:32:18>>*/ (Stdlib[40], fmt) /*<<printf.ml:32:36>>*/ ;
     /*<<printf.ml:32:36>>*/ }
    function ksprintf(k, param){
     var fmt = param[1];
@@ -22133,8 +24387,8 @@
              /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:31>>*/ ;
     /*<<printf.ml:39:31>>*/ }
    function sprintf(fmt){
-     /*<<printf.ml:41:18>>*/ return ksprintf
-            (function(s){
+     /*<<printf.ml:41:18>>*/ return  /*<<printf.ml:41:18>>*/ ksprintf
+             /*<<printf.ml:41:18>>*/ (function(s){
                /*<<printf.ml:41:37>>*/ return s /*<<printf.ml:41:37>>*/ ;
               /*<<printf.ml:41:38>>*/ },
              fmt) /*<<printf.ml:41:43>>*/ ;
@@ -22350,7 +24604,8 @@
     /*<<dynarray.ml:155:14>>*/ }
    function unexpected_empty_element(f, i, length){
      /*<<dynarray.ml:172:4>>*/ return i < length
-            ? missing_element(i, length)
+            ?  /*<<dynarray.ml:173:6>>*/ missing_element
+               /*<<dynarray.ml:173:6>>*/ (i, length)
             : 0
               === length
               ?  /*<<dynarray.ml:119:6>>*/ caml_call4
@@ -22394,7 +24649,8 @@
    function unsafe_get(arr, i, length){
     var match = arr[1 + i];
     if(! match)
-      /*<<dynarray.ml:207:13>>*/ return missing_element(i, length) /*<<dynarray.ml:208:17>>*/ ;
+      /*<<dynarray.ml:207:13>>*/ return  /*<<dynarray.ml:207:13>>*/ missing_element
+              /*<<dynarray.ml:207:13>>*/ (i, length) /*<<dynarray.ml:208:17>>*/ ;
     var v = match[1];
      /*<<dynarray.ml:208:16>>*/ return v /*<<dynarray.ml:208:16>>*/ ;
     /*<<dynarray.ml:208:17>>*/ }
@@ -22403,7 +24659,8 @@
     /*<<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:219:16>>*/  /*<<dynarray.ml:219:16>>*/ negative_length_requested
+       /*<<dynarray.ml:219:16>>*/ (cst_make, n);
      /*<<dynarray.ml:220:2>>*/ return [0,
             n,
              /*<<dynarray.ml:222:10>>*/ caml_call2
@@ -22415,7 +24672,8 @@
     /*<<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:226:16>>*/  /*<<dynarray.ml:226:16>>*/ negative_length_requested
+       /*<<dynarray.ml:226:16>>*/ (cst_init, n);
      /*<<dynarray.ml:227:2>>*/ return [0,
             n,
              /*<<dynarray.ml:229:10>>*/ caml_call2
@@ -22445,33 +24703,45 @@
     /*<<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:256:2>>*/  /*<<dynarray.ml:256:2>>*/ check_valid_length
+      /*<<dynarray.ml:256:2>>*/ (length, arr);
      /*<<dynarray.ml:259:2>>*/ return [0,
             length,
              /*<<dynarray.ml:261:10>>*/ caml_call2
               /*<<dynarray.ml:261:10>>*/ (Stdlib_Array[1],
               length,
               function(i){
-               var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
+               var
+                v =
+                   /*<<dynarray.ml:262:14>>*/  /*<<dynarray.ml:262:14>>*/ unsafe_get
+                    /*<<dynarray.ml:262:14>>*/ (arr, i, length);
                 /*<<dynarray.ml:263:11>>*/ return [0, v] /*<<dynarray.ml:263:11>>*/ ;
                /*<<dynarray.ml:263:14>>*/ })] /*<<dynarray.ml:259:2>>*/ ;
     /*<<dynarray.ml:265:3>>*/ }
    function get_last(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:269:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:269:2>>*/  /*<<dynarray.ml:269:2>>*/ check_valid_length
+      /*<<dynarray.ml:269:2>>*/ (length, arr);
     if(0 === length)
       /*<<dynarray.ml:178:4>>*/  /*<<dynarray.ml:178:4>>*/ caml_call3
        /*<<dynarray.ml:178:4>>*/ (Stdlib_Printf[10], Stdlib[1], _i_, f);
-     /*<<dynarray.ml:271:21>>*/ return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
+     /*<<dynarray.ml:271:21>>*/ return  /*<<dynarray.ml:271:21>>*/ unsafe_get
+             /*<<dynarray.ml:271:21>>*/ (arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
     /*<<dynarray.ml:273:40>>*/ }
    function find_last(a){
     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>>*/ ;
+     /*<<dynarray.ml:277:2>>*/  /*<<dynarray.ml:277:2>>*/ check_valid_length
+      /*<<dynarray.ml:277:2>>*/ (length, arr);
+    return 0 === length
+            ? 0
+            : [0,
+               /*<<dynarray.ml:282:9>>*/ unsafe_get
+                /*<<dynarray.ml:282:9>>*/ (arr, length - 1 | 0, length)] /*<<dynarray.ml:282:49>>*/ ;
     /*<<dynarray.ml:282:49>>*/ }
    function pop_last(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:288:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:288:2>>*/  /*<<dynarray.ml:288:2>>*/ check_valid_length
+      /*<<dynarray.ml:288:2>>*/ (length, arr);
     if(0 === length)
       /*<<dynarray.ml:290:21>>*/ throw  /*<<dynarray.ml:290:21>>*/ caml_maybe_attach_backtrace
              /*<<dynarray.ml:290:21>>*/ (Stdlib[8], 1);
@@ -22480,11 +24750,15 @@
      match = arr[1 + last];
     return match
             ? (arr[1 + last] = 0, a[1] = last, match[1])
-            : missing_element(last, length) /*<<dynarray.ml:299:9>>*/ ;
+            :  /*<<dynarray.ml:295:6>>*/ missing_element
+               /*<<dynarray.ml:295:6>>*/ (last, length) /*<<dynarray.ml:299:9>>*/ ;
     /*<<dynarray.ml:299:9>>*/ }
    function pop_last_opt(a){
      /*<<dynarray.ml:302:2>>*/ try{
-     var x =  /*<<dynarray.ml:302:8>>*/ pop_last(a);
+     var
+      x =
+         /*<<dynarray.ml:302:8>>*/  /*<<dynarray.ml:302:8>>*/ pop_last
+          /*<<dynarray.ml:302:8>>*/ (a);
     }
     catch(_U_){
      var _T_ = caml_wrap_exception(_U_);
@@ -22506,7 +24780,8 @@
     /*<<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);
+      /*<<dynarray.ml:314:16>>*/  /*<<dynarray.ml:314:16>>*/ negative_length_requested
+       /*<<dynarray.ml:314:16>>*/ (cst_truncate, n);
     var length = a[1], arr = a[2];
     return length <= n
             ? 0
@@ -22521,7 +24796,8 @@
                 0)) /*<<dynarray.ml:320:5>>*/ ;
     /*<<dynarray.ml:320:5>>*/ }
    function clear(a){
-     /*<<dynarray.ml:322:14>>*/ return truncate(a, 0) /*<<dynarray.ml:322:26>>*/ ;
+     /*<<dynarray.ml:322:14>>*/ return  /*<<dynarray.ml:322:14>>*/ truncate
+             /*<<dynarray.ml:322:14>>*/ (a, 0) /*<<dynarray.ml:322:26>>*/ ;
     /*<<dynarray.ml:322:26>>*/ }
    function capacity(a){
      /*<<dynarray.ml:327:17>>*/ return a[2].length - 1;
@@ -22529,8 +24805,9 @@
    function ensure_capacity(a, capacity_request){
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:349:2>>*/ arr.length - 1;
      /*<<dynarray.ml:350:2>>*/ if(0 > capacity_request)
-      /*<<dynarray.ml:351:4>>*/ return negative_capacity_requested
-             (cst_ensure_capacity, capacity_request) /*<<dynarray.ml:382:5>>*/ ;
+      /*<<dynarray.ml:351:4>>*/ return  /*<<dynarray.ml:351:4>>*/ negative_capacity_requested
+              /*<<dynarray.ml:351:4>>*/ (cst_ensure_capacity,
+              capacity_request) /*<<dynarray.ml:382:5>>*/ ;
     if(capacity_request <= cur_capacity)
       /*<<dynarray.ml:356:4>>*/ return 0 /*<<dynarray.ml:356:4>>*/ ;
     if(Stdlib_Sys[13] < capacity_request)
@@ -22570,12 +24847,13 @@
             /*<<dynarray.ml:381:4>>*/ ([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>>*/ ;
+     /*<<dynarray.ml:385:2>>*/ return  /*<<dynarray.ml:385:21>>*/ ensure_capacity
+             /*<<dynarray.ml:385:21>>*/ (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
     /*<<dynarray.ml:385:55>>*/ }
    function fit_capacity(a){
     var _N_ = a[1];
-    return capacity(a) === _N_
+    return  /*<<dynarray.ml:388:5>>*/ capacity /*<<dynarray.ml:388:5>>*/ (a)
+            === _N_
             ? 0
             : (a
                [2]
@@ -22586,8 +24864,8 @@
     /*<<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:394:4>>*/  /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
+       /*<<dynarray.ml:394:4>>*/ (cst_set_capacity, n);
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:396:2>>*/ arr.length - 1;
     if(n < cur_capacity){
      a[1] =
@@ -22626,11 +24904,19 @@
     /*<<dynarray.ml:435:5>>*/ }
    function add_last(a, x){
     var elem =  /*<<dynarray.ml:438:18>>*/ [0, x];
-     /*<<dynarray.ml:439:5>>*/ if(add_last_if_room(a, elem))
+     /*<<dynarray.ml:439:5>>*/ if
+     ( /*<<dynarray.ml:439:5>>*/ add_last_if_room
+        /*<<dynarray.ml:439:5>>*/ (a, elem))
       /*<<dynarray.ml:439:34>>*/ return 0 /*<<dynarray.ml:439:34>>*/ ;
      /*<<dynarray.ml:443:6>>*/ for(;;){
-      /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity(a, 1);
-     var _K_ =  /*<<dynarray.ml:444:13>>*/ 1 - add_last_if_room(a, elem);
+      /*<<dynarray.ml:443:6>>*/  /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity
+       /*<<dynarray.ml:443:6>>*/ (a, 1);
+     var
+      _K_ =
+         /*<<dynarray.ml:444:13>>*/ 1
+        -
+          /*<<dynarray.ml:444:13>>*/ add_last_if_room
+           /*<<dynarray.ml:444:13>>*/ (a, elem);
      if(! _K_)
        /*<<dynarray.ml:444:13>>*/ return _K_ /*<<dynarray.ml:444:13>>*/ ;
     }
@@ -22641,7 +24927,8 @@
      if(! li$0)
        /*<<dynarray.ml:451:10>>*/ return 0 /*<<dynarray.ml:451:10>>*/ ;
      var xs = li$0[2], x = li$0[1];
-      /*<<dynarray.ml:452:15>>*/ add_last(a, x);
+      /*<<dynarray.ml:452:15>>*/  /*<<dynarray.ml:452:15>>*/ add_last
+       /*<<dynarray.ml:452:15>>*/ (a, x);
      li$0 = xs;
     }
     /*<<dynarray.ml:452:45>>*/ }
@@ -22649,7 +24936,8 @@
      /*<<dynarray.ml:455:2>>*/ return  /*<<dynarray.ml:455:2>>*/ caml_call2
              /*<<dynarray.ml:455:2>>*/ (iter,
              function(x){
-               /*<<dynarray.ml:455:17>>*/ return add_last(a, x) /*<<dynarray.ml:455:29>>*/ ;
+               /*<<dynarray.ml:455:17>>*/ return  /*<<dynarray.ml:455:17>>*/ add_last
+                       /*<<dynarray.ml:455:17>>*/ (a, x) /*<<dynarray.ml:455:29>>*/ ;
               /*<<dynarray.ml:455:29>>*/ },
              b) /*<<dynarray.ml:455:32>>*/ ;
     /*<<dynarray.ml:455:32>>*/ }
@@ -22657,7 +24945,8 @@
      /*<<dynarray.ml:458:2>>*/ return  /*<<dynarray.ml:458:2>>*/ caml_call2
              /*<<dynarray.ml:458:2>>*/ (Stdlib_Seq[4],
              function(x){
-               /*<<dynarray.ml:458:21>>*/ return add_last(a, x) /*<<dynarray.ml:458:33>>*/ ;
+               /*<<dynarray.ml:458:21>>*/ return  /*<<dynarray.ml:458:21>>*/ add_last
+                       /*<<dynarray.ml:458:21>>*/ (a, x) /*<<dynarray.ml:458:33>>*/ ;
               /*<<dynarray.ml:458:33>>*/ },
              seq) /*<<dynarray.ml:458:38>>*/ ;
     /*<<dynarray.ml:458:38>>*/ }
@@ -22685,11 +24974,19 @@
      /*<<dynarray.ml:499:4>>*/ return 1 /*<<dynarray.ml:499:4>>*/ ;
     /*<<dynarray.ml:500:5>>*/ }
    function append_array(a, b){
-     /*<<dynarray.ml:503:2>>*/ if(append_array_if_room(a, b))
+     /*<<dynarray.ml:503:2>>*/ if
+     ( /*<<dynarray.ml:503:5>>*/ append_array_if_room
+        /*<<dynarray.ml:503:5>>*/ (a, b))
       /*<<dynarray.ml:503:35>>*/ return 0 /*<<dynarray.ml:503:35>>*/ ;
      /*<<dynarray.ml:507:6>>*/ for(;;){
-      /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity(a, b.length - 1);
-     var _G_ =  /*<<dynarray.ml:508:13>>*/ 1 - append_array_if_room(a, b);
+      /*<<dynarray.ml:507:6>>*/  /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity
+       /*<<dynarray.ml:507:6>>*/ (a, b.length - 1);
+     var
+      _G_ =
+         /*<<dynarray.ml:508:13>>*/ 1
+        -
+          /*<<dynarray.ml:508:13>>*/ append_array_if_room
+           /*<<dynarray.ml:508:13>>*/ (a, b);
      if(! _G_)
        /*<<dynarray.ml:508:13>>*/ return _G_ /*<<dynarray.ml:508:13>>*/ ;
     }
@@ -22700,71 +24997,96 @@
       /*<<dynarray.ml:522:51>>*/ return 0 /*<<dynarray.ml:522:51>>*/ ;
     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>>*/  /*<<dynarray.ml:526:4>>*/ check_valid_length
+      /*<<dynarray.ml:526:4>>*/ (length_b, arr_b);
     var _E_ = length_b - 1 | 0, _D_ =  /*<<dynarray.ml:526:4>>*/ 0;
     if(_E_ >= 0){
      var i = _D_;
      for(;;){
-      var x =  /*<<dynarray.ml:528:14>>*/ unsafe_get(arr_b, i, length_b);
+      var
+       x =
+          /*<<dynarray.ml:528:14>>*/  /*<<dynarray.ml:528:14>>*/ unsafe_get
+           /*<<dynarray.ml:528:14>>*/ (arr_b, i, length_b);
       arr_a[1 + (length_a + i | 0)] = [0, x];
       var _F_ =  /*<<dynarray.ml:526:4>>*/ 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>>*/  /*<<dynarray.ml:531:4>>*/ check_same_length
+      /*<<dynarray.ml:531:4>>*/ (cst_append, b, length_b);
      /*<<dynarray.ml:531:4>>*/ return 1 /*<<dynarray.ml:531:4>>*/ ;
     /*<<dynarray.ml:533:5>>*/ }
    function append(a, b){
     var length_b = b[1];
-     /*<<dynarray.ml:537:5>>*/ if(append_if_room(a, b, length_b))
+     /*<<dynarray.ml:537:5>>*/ if
+     ( /*<<dynarray.ml:537:5>>*/ append_if_room
+        /*<<dynarray.ml:537:5>>*/ (a, b, length_b))
       /*<<dynarray.ml:537:39>>*/ return 0 /*<<dynarray.ml:537:39>>*/ ;
      /*<<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);
-     var _C_ =  /*<<dynarray.ml:549:13>>*/ 1 - append_if_room(a, b, length_b);
+      /*<<dynarray.ml:541:6>>*/  /*<<dynarray.ml:541:6>>*/ ensure_extra_capacity
+       /*<<dynarray.ml:541:6>>*/ (a, length_b);
+      /*<<dynarray.ml:548:6>>*/  /*<<dynarray.ml:548:6>>*/ check_same_length
+       /*<<dynarray.ml:548:6>>*/ (cst_append$0, b, length_b);
+     var
+      _C_ =
+         /*<<dynarray.ml:549:13>>*/ 1
+        -
+          /*<<dynarray.ml:549:13>>*/ append_if_room
+           /*<<dynarray.ml:549:13>>*/ (a, b, length_b);
      if(! _C_)
        /*<<dynarray.ml:549:13>>*/ return _C_ /*<<dynarray.ml:549:13>>*/ ;
     }
     /*<<dynarray.ml:552:5>>*/ }
    function iter(f, k, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:596:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:596:2>>*/  /*<<dynarray.ml:596:2>>*/ check_valid_length
+      /*<<dynarray.ml:596:2>>*/ (length, arr);
     var _A_ = length - 1 | 0, _z_ =  /*<<dynarray.ml:596:2>>*/ 0;
     if(_A_ >= 0){
      var i = _z_;
      for(;;){
        /*<<dynarray.ml:598:4>>*/  /*<<dynarray.ml:598:4>>*/ caml_call1
-        /*<<dynarray.ml:598:4>>*/ (k, unsafe_get(arr, i, length));
+        /*<<dynarray.ml:598:4>>*/ (k,
+         /*<<dynarray.ml:598:6>>*/ unsafe_get
+          /*<<dynarray.ml:598:6>>*/ (arr, i, length));
       var _B_ =  /*<<dynarray.ml:598:4>>*/ i + 1 | 0;
       if(_A_ === i) break;
       i = _B_;
      }
     }
-     /*<<dynarray.ml:600:2>>*/ return check_same_length(f, a, length) /*<<dynarray.ml:600:31>>*/ ;
+     /*<<dynarray.ml:600:2>>*/ return  /*<<dynarray.ml:600:2>>*/ check_same_length
+             /*<<dynarray.ml:600:2>>*/ (f, a, length) /*<<dynarray.ml:600:31>>*/ ;
     /*<<dynarray.ml:600:31>>*/ }
    function iter$0(k, a){
-     /*<<dynarray.ml:603:2>>*/ return iter(cst_iter, k, a) /*<<dynarray.ml:603:18>>*/ ;
+     /*<<dynarray.ml:603:2>>*/ return  /*<<dynarray.ml:603:2>>*/ iter
+             /*<<dynarray.ml:603:2>>*/ (cst_iter, k, a) /*<<dynarray.ml:603:18>>*/ ;
     /*<<dynarray.ml:603:18>>*/ }
    function iteri(k, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:607:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:607:2>>*/  /*<<dynarray.ml:607:2>>*/ check_valid_length
+      /*<<dynarray.ml:607:2>>*/ (length, arr);
     var _x_ = length - 1 | 0, _w_ =  /*<<dynarray.ml:607:2>>*/ 0;
     if(_x_ >= 0){
      var i = _w_;
      for(;;){
        /*<<dynarray.ml:609:4>>*/  /*<<dynarray.ml:609:4>>*/ caml_call2
-        /*<<dynarray.ml:609:4>>*/ (k, i, unsafe_get(arr, i, length));
+        /*<<dynarray.ml:609:4>>*/ (k,
+        i,
+         /*<<dynarray.ml:609:8>>*/ unsafe_get
+          /*<<dynarray.ml:609:8>>*/ (arr, i, length));
       var _y_ =  /*<<dynarray.ml:609:4>>*/ 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>>*/ ;
+     /*<<dynarray.ml:611:2>>*/ return  /*<<dynarray.ml:611:2>>*/ check_same_length
+             /*<<dynarray.ml:611:2>>*/ (cst_iteri, a, length) /*<<dynarray.ml:611:37>>*/ ;
     /*<<dynarray.ml:611:37>>*/ }
    function map(f, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:615:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:615:2>>*/  /*<<dynarray.ml:615:2>>*/ check_valid_length
+      /*<<dynarray.ml:615:2>>*/ (length, arr);
     var
      res =
         /*<<dynarray.ml:616:12>>*/ [0,
@@ -22775,14 +25097,18 @@
           function(i){
             /*<<dynarray.ml:619:6>>*/ return [0,
                     /*<<dynarray.ml:619:16>>*/ caml_call1
-                     /*<<dynarray.ml:619:16>>*/ (f, unsafe_get(arr, i, length))] /*<<dynarray.ml:619:11>>*/ ;
+                     /*<<dynarray.ml:619:16>>*/ (f,
+                      /*<<dynarray.ml:619:18>>*/ unsafe_get
+                       /*<<dynarray.ml:619:18>>*/ (arr, i, length))] /*<<dynarray.ml:619:11>>*/ ;
            /*<<dynarray.ml:619:46>>*/ })];
-     /*<<dynarray.ml:621:2>>*/ check_same_length(cst_map, a, length);
+     /*<<dynarray.ml:621:2>>*/  /*<<dynarray.ml:621:2>>*/ check_same_length
+      /*<<dynarray.ml:621:2>>*/ (cst_map, a, length);
      /*<<dynarray.ml:621:2>>*/ return res /*<<dynarray.ml:621:2>>*/ ;
     /*<<dynarray.ml:622:5>>*/ }
    function mapi(f, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:627:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:627:2>>*/  /*<<dynarray.ml:627:2>>*/ check_valid_length
+      /*<<dynarray.ml:627:2>>*/ (length, arr);
     var
      res =
         /*<<dynarray.ml:628:12>>*/ [0,
@@ -22795,14 +25121,17 @@
                     /*<<dynarray.ml:631:16>>*/ caml_call2
                      /*<<dynarray.ml:631:16>>*/ (f,
                      i,
-                     unsafe_get(arr, i, length))] /*<<dynarray.ml:631:11>>*/ ;
+                      /*<<dynarray.ml:631:20>>*/ unsafe_get
+                       /*<<dynarray.ml:631:20>>*/ (arr, i, length))] /*<<dynarray.ml:631:11>>*/ ;
            /*<<dynarray.ml:631:48>>*/ })];
-     /*<<dynarray.ml:633:2>>*/ check_same_length(cst_mapi, a, length);
+     /*<<dynarray.ml:633:2>>*/  /*<<dynarray.ml:633:2>>*/ check_same_length
+      /*<<dynarray.ml:633:2>>*/ (cst_mapi, a, length);
      /*<<dynarray.ml:633:2>>*/ return res /*<<dynarray.ml:633:2>>*/ ;
     /*<<dynarray.ml:634:5>>*/ }
    function fold_left(f, acc, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:638:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:638:2>>*/  /*<<dynarray.ml:638:2>>*/ check_valid_length
+      /*<<dynarray.ml:638:2>>*/ (length, arr);
     var
      r =  /*<<dynarray.ml:639:10>>*/ [0, acc],
      _u_ =  /*<<dynarray.ml:640:2>>*/ length - 1 | 0,
@@ -22810,7 +25139,10 @@
     if(_u_ >= 0){
      var i = _t_;
      for(;;){
-      var v =  /*<<dynarray.ml:641:12>>*/ unsafe_get(arr, i, length);
+      var
+       v =
+          /*<<dynarray.ml:641:12>>*/  /*<<dynarray.ml:641:12>>*/ unsafe_get
+           /*<<dynarray.ml:641:12>>*/ (arr, i, length);
       r[1] =
         /*<<dynarray.ml:642:9>>*/ caml_call2
          /*<<dynarray.ml:642:9>>*/ (f, r[1], v);
@@ -22819,19 +25151,24 @@
       i = _v_;
      }
     }
-     /*<<dynarray.ml:644:2>>*/ check_same_length(cst_fold_left, a, length);
+     /*<<dynarray.ml:644:2>>*/  /*<<dynarray.ml:644:2>>*/ check_same_length
+      /*<<dynarray.ml:644:2>>*/ (cst_fold_left, a, length);
     return r[1];
     /*<<dynarray.ml:645:4>>*/ }
    function fold_right(f, a, acc){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:649:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:649:2>>*/  /*<<dynarray.ml:649:2>>*/ check_valid_length
+      /*<<dynarray.ml:649:2>>*/ (length, arr);
     var
      r =  /*<<dynarray.ml:650:10>>*/ [0, acc],
      _r_ =  /*<<dynarray.ml:650:10>>*/ length - 1 | 0;
     if(_r_ >= 0){
      var i = _r_;
      for(;;){
-      var v =  /*<<dynarray.ml:652:12>>*/ unsafe_get(arr, i, length);
+      var
+       v =
+          /*<<dynarray.ml:652:12>>*/  /*<<dynarray.ml:652:12>>*/ unsafe_get
+           /*<<dynarray.ml:652:12>>*/ (arr, i, length);
       r[1] =
         /*<<dynarray.ml:653:9>>*/ caml_call2
          /*<<dynarray.ml:653:9>>*/ (f, v, r[1]);
@@ -22840,12 +25177,14 @@
       i = _s_;
      }
     }
-     /*<<dynarray.ml:655:2>>*/ check_same_length(cst_fold_right, a, length);
+     /*<<dynarray.ml:655:2>>*/  /*<<dynarray.ml:655:2>>*/ check_same_length
+      /*<<dynarray.ml:655:2>>*/ (cst_fold_right, a, length);
     return r[1];
     /*<<dynarray.ml:656:4>>*/ }
    function exists(p, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:660:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:660:2>>*/  /*<<dynarray.ml:660:2>>*/ check_valid_length
+      /*<<dynarray.ml:660:2>>*/ (length, arr);
     var i = 0;
      /*<<dynarray.ml:662:4>>*/ for(;;){
      if(i === length)
@@ -22854,7 +25193,9 @@
       var
        _q_ =
           /*<<dynarray.ml:664:6>>*/  /*<<dynarray.ml:664:6>>*/ caml_call1
-           /*<<dynarray.ml:664:6>>*/ (p, unsafe_get(arr, i, length));
+           /*<<dynarray.ml:664:6>>*/ (p,
+            /*<<dynarray.ml:664:8>>*/ unsafe_get
+             /*<<dynarray.ml:664:8>>*/ (arr, i, length));
        /*<<dynarray.ml:664:6>>*/ if(! _q_){
        var i$0 = i + 1 | 0;
        i = i$0;
@@ -22862,13 +25203,15 @@
       }
       var res = _q_;
      }
-      /*<<dynarray.ml:668:2>>*/ check_same_length(cst_exists, a, length);
+      /*<<dynarray.ml:668:2>>*/  /*<<dynarray.ml:668:2>>*/ check_same_length
+       /*<<dynarray.ml:668:2>>*/ (cst_exists, a, length);
       /*<<dynarray.ml:668:2>>*/ return res /*<<dynarray.ml:668:2>>*/ ;
     }
     /*<<dynarray.ml:669:5>>*/ }
    function for_all(p, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:673:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:673:2>>*/  /*<<dynarray.ml:673:2>>*/ check_valid_length
+      /*<<dynarray.ml:673:2>>*/ (length, arr);
     var i = 0;
      /*<<dynarray.ml:675:4>>*/ for(;;){
      if(i === length)
@@ -22877,7 +25220,9 @@
       var
        _p_ =
           /*<<dynarray.ml:677:6>>*/  /*<<dynarray.ml:677:6>>*/ caml_call1
-           /*<<dynarray.ml:677:6>>*/ (p, unsafe_get(arr, i, length));
+           /*<<dynarray.ml:677:6>>*/ (p,
+            /*<<dynarray.ml:677:8>>*/ unsafe_get
+             /*<<dynarray.ml:677:8>>*/ (arr, i, length));
        /*<<dynarray.ml:677:6>>*/ if(_p_){
        var i$0 = i + 1 | 0;
        i = i$0;
@@ -22885,28 +25230,38 @@
       }
       var res = _p_;
      }
-      /*<<dynarray.ml:681:2>>*/ check_same_length(cst_for_all, a, length);
+      /*<<dynarray.ml:681:2>>*/  /*<<dynarray.ml:681:2>>*/ check_same_length
+       /*<<dynarray.ml:681:2>>*/ (cst_for_all, a, length);
       /*<<dynarray.ml:681:2>>*/ return res /*<<dynarray.ml:681:2>>*/ ;
     }
     /*<<dynarray.ml:682:5>>*/ }
    function filter(f, a){
-    var b =  /*<<dynarray.ml:685:10>>*/ create(0);
-     /*<<dynarray.ml:686:2>>*/ iter
-     (cst_filter,
+    var
+     b =
+        /*<<dynarray.ml:685:10>>*/  /*<<dynarray.ml:685:10>>*/ create
+         /*<<dynarray.ml:685:10>>*/ (0);
+     /*<<dynarray.ml:686:2>>*/  /*<<dynarray.ml:686:2>>*/ iter
+      /*<<dynarray.ml:686:2>>*/ (cst_filter,
       function(x){
        var
         _o_ =
            /*<<dynarray.ml:686:30>>*/  /*<<dynarray.ml:686:30>>*/ caml_call1
             /*<<dynarray.ml:686:30>>*/ (f, x);
-        /*<<dynarray.ml:686:30>>*/ return _o_ ? add_last(b, x) : _o_ /*<<dynarray.ml:686:51>>*/ ;
+        /*<<dynarray.ml:686:30>>*/ return _o_
+               ?  /*<<dynarray.ml:686:39>>*/ add_last
+                  /*<<dynarray.ml:686:39>>*/ (b, x)
+               : _o_ /*<<dynarray.ml:686:51>>*/ ;
        /*<<dynarray.ml:686:51>>*/ },
       a);
      /*<<dynarray.ml:686:2>>*/ return b /*<<dynarray.ml:686:2>>*/ ;
     /*<<dynarray.ml:687:3>>*/ }
    function filter_map(f, a){
-    var b =  /*<<dynarray.ml:690:10>>*/ create(0);
-     /*<<dynarray.ml:691:2>>*/ iter
-     (cst_filter_map,
+    var
+     b =
+        /*<<dynarray.ml:690:10>>*/  /*<<dynarray.ml:690:10>>*/ create
+         /*<<dynarray.ml:690:10>>*/ (0);
+     /*<<dynarray.ml:691:2>>*/  /*<<dynarray.ml:691:2>>*/ iter
+      /*<<dynarray.ml:691:2>>*/ (cst_filter_map,
       function(x){
        var
         match =
@@ -22915,7 +25270,8 @@
        if(! match)
          /*<<dynarray.ml:693:14>>*/ return 0 /*<<dynarray.ml:693:14>>*/ ;
        var y = match[1];
-        /*<<dynarray.ml:694:16>>*/ return add_last(b, y) /*<<dynarray.ml:694:28>>*/ ;
+        /*<<dynarray.ml:694:16>>*/ return  /*<<dynarray.ml:694:16>>*/ add_last
+                /*<<dynarray.ml:694:16>>*/ (b, y) /*<<dynarray.ml:694:28>>*/ ;
        /*<<dynarray.ml:694:28>>*/ },
       a);
      /*<<dynarray.ml:691:2>>*/ return b /*<<dynarray.ml:691:2>>*/ ;
@@ -22933,31 +25289,39 @@
     /*<<dynarray.ml:711:3>>*/ }
    function to_array(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:715:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:715:2>>*/  /*<<dynarray.ml:715:2>>*/ check_valid_length
+      /*<<dynarray.ml:715:2>>*/ (length, arr);
     var
      res =
         /*<<dynarray.ml:716:12>>*/  /*<<dynarray.ml:716:12>>*/ caml_call2
          /*<<dynarray.ml:716:12>>*/ (Stdlib_Array[1],
          length,
          function(i){
-           /*<<dynarray.ml:717:4>>*/ return unsafe_get(arr, i, length) /*<<dynarray.ml:717:29>>*/ ;
+           /*<<dynarray.ml:717:4>>*/ return  /*<<dynarray.ml:715:2>>*/ unsafe_get
+                   /*<<dynarray.ml:715:2>>*/ (arr, i, length) /*<<dynarray.ml:717:29>>*/ ;
           /*<<dynarray.ml:717:29>>*/ });
-     /*<<dynarray.ml:719:2>>*/ check_same_length(cst_to_array, a, length);
+     /*<<dynarray.ml:719:2>>*/  /*<<dynarray.ml:719:2>>*/ check_same_length
+      /*<<dynarray.ml:719:2>>*/ (cst_to_array, a, length);
      /*<<dynarray.ml:719:2>>*/ return res /*<<dynarray.ml:719:2>>*/ ;
     /*<<dynarray.ml:720:5>>*/ }
    function of_list(li){
-    var a =  /*<<dynarray.ml:723:10>>*/ create(0);
+    var
+     a =
+        /*<<dynarray.ml:723:10>>*/  /*<<dynarray.ml:723:10>>*/ create
+         /*<<dynarray.ml:723:10>>*/ (0);
      /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
       /*<<dynarray.ml:724:2>>*/ (Stdlib_List[18],
       function(x){
-        /*<<dynarray.ml:724:22>>*/ return add_last(a, x) /*<<dynarray.ml:724:34>>*/ ;
+        /*<<dynarray.ml:724:22>>*/ return  /*<<dynarray.ml:724:22>>*/ add_last
+                /*<<dynarray.ml:724:22>>*/ (a, x) /*<<dynarray.ml:724:34>>*/ ;
        /*<<dynarray.ml:724:34>>*/ },
       li);
      /*<<dynarray.ml:724:2>>*/ return a /*<<dynarray.ml:724:2>>*/ ;
     /*<<dynarray.ml:725:3>>*/ }
    function to_list(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:729:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:729:2>>*/  /*<<dynarray.ml:729:2>>*/ check_valid_length
+      /*<<dynarray.ml:729:2>>*/ (length, arr);
     var
      l =  /*<<dynarray.ml:730:10>>*/ [0, 0],
      _l_ =  /*<<dynarray.ml:730:10>>*/ length - 1 | 0;
@@ -22965,55 +25329,89 @@
      var i = _l_;
      for(;;){
       var _m_ = l[1];
-      l[1] = [0, unsafe_get(arr, i, length), _m_];
+      l[1] =
+       [0,
+         /*<<dynarray.ml:732:9>>*/ unsafe_get
+          /*<<dynarray.ml:732:9>>*/ (arr, i, length),
+        _m_];
       var _n_ =  /*<<dynarray.ml:730:10>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _n_;
      }
     }
-     /*<<dynarray.ml:734:2>>*/ check_same_length(cst_to_list, a, length);
+     /*<<dynarray.ml:734:2>>*/  /*<<dynarray.ml:734:2>>*/ check_same_length
+      /*<<dynarray.ml:734:2>>*/ (cst_to_list, a, length);
     return l[1];
     /*<<dynarray.ml:735:4>>*/ }
    function of_seq(seq){
-    var init =  /*<<dynarray.ml:738:13>>*/ create(0);
-     /*<<dynarray.ml:739:2>>*/ append_seq(init, seq);
+    var
+     init =
+        /*<<dynarray.ml:738:13>>*/  /*<<dynarray.ml:738:13>>*/ create
+         /*<<dynarray.ml:738:13>>*/ (0);
+     /*<<dynarray.ml:739:2>>*/  /*<<dynarray.ml:739:2>>*/ append_seq
+      /*<<dynarray.ml:739:2>>*/ (init, seq);
      /*<<dynarray.ml:739:2>>*/ return init /*<<dynarray.ml:739:2>>*/ ;
     /*<<dynarray.ml:740:6>>*/ }
    function to_seq(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:744:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:744:2>>*/  /*<<dynarray.ml:744:2>>*/ check_valid_length
+      /*<<dynarray.ml:744:2>>*/ (length, arr);
     function aux(i){
       /*<<dynarray.ml:745:18>>*/ return function(param){
-       /*<<dynarray.ml:746:4>>*/ check_same_length(cst_to_seq, a, length);
+       /*<<dynarray.ml:746:4>>*/  /*<<dynarray.ml:746:4>>*/ check_same_length
+        /*<<dynarray.ml:746:4>>*/ (cst_to_seq, a, length);
       if(length <= i)
         /*<<dynarray.ml:747:24>>*/ return 0 /*<<dynarray.ml:747:24>>*/ ;
-      var v =  /*<<dynarray.ml:749:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:750:6>>*/ return [0, v, aux(i + 1 | 0)] /*<<dynarray.ml:750:6>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
+      var
+       v =
+          /*<<dynarray.ml:749:14>>*/  /*<<dynarray.ml:749:14>>*/ unsafe_get
+           /*<<dynarray.ml:749:14>>*/ (arr, i, length);
+       /*<<dynarray.ml:750:6>>*/ return [0,
+              v,
+               /*<<dynarray.ml:750:19>>*/ aux
+                /*<<dynarray.ml:750:19>>*/ (i + 1 | 0)] /*<<dynarray.ml:750:6>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
      /*<<dynarray.ml:751:7>>*/ }
-     /*<<dynarray.ml:753:2>>*/ return aux(0) /*<<dynarray.ml:753:7>>*/ ;
+     /*<<dynarray.ml:753:2>>*/ return  /*<<dynarray.ml:753:2>>*/ aux
+             /*<<dynarray.ml:753:2>>*/ (0) /*<<dynarray.ml:753:7>>*/ ;
     /*<<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:757:26>>*/ ;
-      var v =  /*<<dynarray.ml:759:14>>*/ get(a, i);
-       /*<<dynarray.ml:760:6>>*/ return [0, v, aux(i + 1 | 0)] /*<<dynarray.ml:760:6>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
+      var
+       v =
+          /*<<dynarray.ml:759:14>>*/  /*<<dynarray.ml:759:14>>*/ get
+           /*<<dynarray.ml:759:14>>*/ (a, i);
+       /*<<dynarray.ml:760:6>>*/ return [0,
+              v,
+               /*<<dynarray.ml:760:19>>*/ aux
+                /*<<dynarray.ml:760:19>>*/ (i + 1 | 0)] /*<<dynarray.ml:760:6>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
      /*<<dynarray.ml:761:7>>*/ }
-     /*<<dynarray.ml:763:2>>*/ return aux(0) /*<<dynarray.ml:763:7>>*/ ;
+     /*<<dynarray.ml:763:2>>*/ return  /*<<dynarray.ml:763:2>>*/ aux
+             /*<<dynarray.ml:763:2>>*/ (0) /*<<dynarray.ml:763:7>>*/ ;
     /*<<dynarray.ml:763:7>>*/ }
    function to_seq_rev(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:767:2>>*/ check_valid_length(length, arr);
+     /*<<dynarray.ml:767:2>>*/  /*<<dynarray.ml:767:2>>*/ check_valid_length
+      /*<<dynarray.ml:767:2>>*/ (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);
+       /*<<dynarray.ml:769:4>>*/  /*<<dynarray.ml:769:4>>*/ check_same_length
+        /*<<dynarray.ml:769:4>>*/ (cst_to_seq_rev, a, length);
       if(0 > i)
         /*<<dynarray.ml:770:18>>*/ return 0 /*<<dynarray.ml:770:18>>*/ ;
-      var v =  /*<<dynarray.ml:772:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:773:6>>*/ return [0, v, aux(i - 1 | 0)] /*<<dynarray.ml:773:6>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
+      var
+       v =
+          /*<<dynarray.ml:772:14>>*/  /*<<dynarray.ml:772:14>>*/ unsafe_get
+           /*<<dynarray.ml:772:14>>*/ (arr, i, length);
+       /*<<dynarray.ml:773:6>>*/ return [0,
+              v,
+               /*<<dynarray.ml:773:19>>*/ aux
+                /*<<dynarray.ml:773:19>>*/ (i - 1 | 0)] /*<<dynarray.ml:773:6>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
      /*<<dynarray.ml:774:7>>*/ }
-     /*<<dynarray.ml:776:2>>*/ return aux(length - 1 | 0) /*<<dynarray.ml:776:18>>*/ ;
+     /*<<dynarray.ml:776:2>>*/ return  /*<<dynarray.ml:776:2>>*/ aux
+             /*<<dynarray.ml:776:2>>*/ (length - 1 | 0) /*<<dynarray.ml:776:18>>*/ ;
     /*<<dynarray.ml:776:18>>*/ }
    function to_seq_rev_reentrant(a){
     function aux(i){
@@ -23021,11 +25419,20 @@
        /*<<dynarray.ml:780:4>>*/ if(0 > i)
         /*<<dynarray.ml:780:18>>*/ return 0 /*<<dynarray.ml:780:18>>*/ ;
       if(a[1] <= i)
-        /*<<dynarray.ml:784:6>>*/ return aux(a[1] - 1 | 0)(0) /*<<dynarray.ml:788:7>>*/ ;
-      var v =  /*<<dynarray.ml:786:14>>*/ get(a, i);
-       /*<<dynarray.ml:787:6>>*/ return [0, v, aux(i - 1 | 0)] /*<<dynarray.ml:787:6>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
+        /*<<dynarray.ml:784:6>>*/ return  /*<<dynarray.ml:784:6>>*/  /*<<dynarray.ml:784:6>>*/ aux
+                 /*<<dynarray.ml:784:6>>*/ (a[1] - 1 | 0)
+                /*<<dynarray.ml:784:6>>*/ (0) /*<<dynarray.ml:788:7>>*/ ;
+      var
+       v =
+          /*<<dynarray.ml:786:14>>*/  /*<<dynarray.ml:786:14>>*/ get
+           /*<<dynarray.ml:786:14>>*/ (a, i);
+       /*<<dynarray.ml:787:6>>*/ return [0,
+              v,
+               /*<<dynarray.ml:787:19>>*/ aux
+                /*<<dynarray.ml:787:19>>*/ (i - 1 | 0)] /*<<dynarray.ml:787:6>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
      /*<<dynarray.ml:788:7>>*/ }
-     /*<<dynarray.ml:790:7>>*/ return aux(a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
+     /*<<dynarray.ml:790:7>>*/ return  /*<<dynarray.ml:790:7>>*/ aux
+             /*<<dynarray.ml:790:7>>*/ (a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
     /*<<dynarray.ml:790:20>>*/ }
    var
     Stdlib_Dynarray =
@@ -23219,7 +25626,8 @@
     /*<<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:15>>*/  /*<<arg.ml:95:15>>*/ assoc3
+       /*<<arg.ml:95:15>>*/ (cst_help$2, speclist);
      var _aw_ =  /*<<arg.ml:95:42>>*/ 0, add1 = _aw_;
     }
     catch(_ay_){
@@ -23232,7 +25640,8 @@
          0];
     }
     try{
-      /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
+      /*<<arg.ml:99:15>>*/  /*<<arg.ml:99:15>>*/ assoc3
+       /*<<arg.ml:99:15>>*/ (cst_help$1, speclist);
      var _av_ =  /*<<arg.ml:99:43>>*/ 0, add2 = _av_;
     }
     catch(_ax_){
@@ -23254,7 +25663,10 @@
    function usage_b(buf, speclist, errmsg){
      /*<<arg.ml:107:2>>*/  /*<<arg.ml:107:2>>*/ caml_call3
       /*<<arg.ml:107:2>>*/ (Stdlib_Printf[5], buf, _d_, errmsg);
-    var _ap_ =  /*<<arg.ml:108:29>>*/ add_help(speclist);
+    var
+     _ap_ =
+        /*<<arg.ml:108:29>>*/  /*<<arg.ml:108:29>>*/ add_help
+         /*<<arg.ml:108:29>>*/ (speclist);
      /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
              /*<<arg.ml:108:29>>*/ (Stdlib_List[18],
              function(param){
@@ -23275,7 +25687,9 @@
                         /*<<arg.ml:88:8>>*/ (Stdlib_Printf[5], buf, _a_, key, doc) /*<<arg.ml:88:8>>*/ ;
               var
                l = spec[1],
-               _ar_ =  /*<<arg.ml:86:38>>*/ make_symlist(cst$1, cst$0, cst, l);
+               _ar_ =
+                  /*<<arg.ml:86:38>>*/  /*<<arg.ml:86:38>>*/ make_symlist
+                   /*<<arg.ml:86:38>>*/ (cst$1, cst$0, cst, l);
                /*<<arg.ml:86:8>>*/ return  /*<<arg.ml:86:8>>*/ caml_call5
                        /*<<arg.ml:86:8>>*/ (Stdlib_Printf[5],
                        buf,
@@ -23291,12 +25705,16 @@
      b =
         /*<<arg.ml:112:10>>*/  /*<<arg.ml:112:10>>*/ caml_call1
          /*<<arg.ml:112:10>>*/ (Stdlib_Buffer[1], 200);
-     /*<<arg.ml:113:2>>*/ usage_b(b, speclist, errmsg);
+     /*<<arg.ml:113:2>>*/  /*<<arg.ml:113:2>>*/ usage_b
+      /*<<arg.ml:113:2>>*/ (b, speclist, errmsg);
      /*<<arg.ml:113:2>>*/ return  /*<<arg.ml:113:2>>*/ caml_call1
              /*<<arg.ml:113:2>>*/ (Stdlib_Buffer[2], b) /*<<arg.ml:114:19>>*/ ;
     /*<<arg.ml:114:19>>*/ }
    function usage(speclist, errmsg){
-    var _ao_ =  /*<<arg.ml:118:15>>*/ usage_string(speclist, errmsg);
+    var
+     _ao_ =
+        /*<<arg.ml:118:15>>*/  /*<<arg.ml:118:15>>*/ usage_string
+         /*<<arg.ml:118:15>>*/ (speclist, errmsg);
      /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
              /*<<arg.ml:118:15>>*/ (Stdlib_Printf[3], _e_, _ao_) /*<<arg.ml:118:45>>*/ ;
     /*<<arg.ml:118:45>>*/ }
@@ -23413,7 +25831,8 @@
          /*<<arg.ml:157:10>>*/  /*<<arg.ml:157:10>>*/ caml_call4
           /*<<arg.ml:157:10>>*/ (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
-      /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
+      /*<<arg.ml:159:4>>*/  /*<<arg.ml:159:4>>*/ usage_b
+       /*<<arg.ml:159:4>>*/ (b, speclist[1], errmsg);
       /*<<arg.ml:160:7>>*/ if
       (!
         /*<<arg.ml:160:7>>*/ caml_equal /*<<arg.ml:160:7>>*/ (error, _g_)
@@ -23442,7 +25861,9 @@
        try{
         var
          follow$1 = 0,
-         _Z_ =  /*<<arg.ml:170:14>>*/ assoc3(s, speclist[1]),
+         _Z_ =
+            /*<<arg.ml:170:14>>*/  /*<<arg.ml:170:14>>*/ assoc3
+             /*<<arg.ml:170:14>>*/ (s, speclist[1]),
          follow$0 = follow$1,
          action = _Z_;
        }
@@ -23467,7 +25888,9 @@
              /*<<arg.ml:73:2>>*/  /*<<arg.ml:73:2>>*/ caml_call3
               /*<<arg.ml:73:2>>*/ (Stdlib_String[16], s, 0, i),
           follow =  /*<<arg.ml:174:38>>*/ [0, arg],
-          _Y_ =  /*<<arg.ml:174:12>>*/ assoc3(keyword, speclist[1]),
+          _Y_ =
+             /*<<arg.ml:174:12>>*/  /*<<arg.ml:174:12>>*/ assoc3
+              /*<<arg.ml:174:12>>*/ (keyword, speclist[1]),
           follow$0 = follow,
           action = _Y_;
         }
@@ -23514,11 +25937,16 @@
             /*<<arg.ml:193:31>>*/ switch(param[0]){
              case 0:
               var f = param[1];
-               /*<<arg.ml:194:20>>*/ no_arg$0(0);
+               /*<<arg.ml:194:20>>*/  /*<<arg.ml:194:20>>*/ no_arg$0
+                /*<<arg.ml:194:20>>*/ (0);
                /*<<arg.ml:194:20>>*/ return  /*<<arg.ml:194:20>>*/ caml_call1
                        /*<<arg.ml:194:20>>*/ (f, 0) /*<<arg.ml:276:54>>*/ ;
              case 1:
-              var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
+              var
+               f$0 = param[1],
+               arg =
+                  /*<<arg.ml:196:22>>*/  /*<<arg.ml:196:22>>*/ get_arg$0
+                   /*<<arg.ml:196:22>>*/ (0);
                /*<<arg.ml:124:2>>*/ try{
                var
                 _$_ =
@@ -23542,31 +25970,45 @@
               var s = match[1];
                /*<<arg.ml:199:24>>*/  /*<<arg.ml:199:24>>*/ caml_call1
                 /*<<arg.ml:199:24>>*/ (f$0, s);
-               /*<<arg.ml:201:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:201:12>>*/ return  /*<<arg.ml:201:12>>*/ consume_arg$0
+                       /*<<arg.ml:201:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 2:
               var r = param[1];
-               /*<<arg.ml:202:19>>*/ no_arg$0(0);
+               /*<<arg.ml:202:19>>*/  /*<<arg.ml:202:19>>*/ no_arg$0
+                /*<<arg.ml:202:19>>*/ (0);
               r[1] = 1;
               return 0;
              case 3:
               var r$0 = param[1];
-               /*<<arg.ml:203:21>>*/ no_arg$0(0);
+               /*<<arg.ml:203:21>>*/  /*<<arg.ml:203:21>>*/ no_arg$0
+                /*<<arg.ml:203:21>>*/ (0);
               r$0[1] = 0;
               return 0;
              case 4:
-              var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
+              var
+               f$1 = param[1],
+               arg$0 =
+                  /*<<arg.ml:205:22>>*/  /*<<arg.ml:205:22>>*/ get_arg$0
+                   /*<<arg.ml:205:22>>*/ (0);
                /*<<arg.ml:206:12>>*/  /*<<arg.ml:206:12>>*/ caml_call1
                 /*<<arg.ml:206:12>>*/ (f$1, arg$0);
-               /*<<arg.ml:206:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:206:12>>*/ return  /*<<arg.ml:206:12>>*/ consume_arg$0
+                       /*<<arg.ml:206:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 5:
               var r$1 = param[1];
-              r$1[1] = get_arg$0(0);
-               /*<<arg.ml:219:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+              r$1[1] =
+                /*<<arg.ml:218:17>>*/ get_arg$0 /*<<arg.ml:218:17>>*/ (0);
+               /*<<arg.ml:219:12>>*/ return  /*<<arg.ml:219:12>>*/ consume_arg$0
+                       /*<<arg.ml:219:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 6:
               var
                f$2 = param[1],
-               arg$1 =  /*<<arg.ml:221:22>>*/ get_arg$0(0),
-               match$0 =  /*<<arg.ml:222:24>>*/ int_of_string_opt(arg$1);
+               arg$1 =
+                  /*<<arg.ml:221:22>>*/  /*<<arg.ml:221:22>>*/ get_arg$0
+                   /*<<arg.ml:221:22>>*/ (0),
+               match$0 =
+                  /*<<arg.ml:222:24>>*/  /*<<arg.ml:222:24>>*/ int_of_string_opt
+                   /*<<arg.ml:222:24>>*/ (arg$1);
               if(! match$0)
                 /*<<arg.ml:223:22>>*/ throw  /*<<arg.ml:223:22>>*/ caml_maybe_attach_backtrace
                        /*<<arg.ml:223:22>>*/ ([0,
@@ -23576,12 +26018,17 @@
               var x = match$0[1];
                /*<<arg.ml:224:24>>*/  /*<<arg.ml:224:24>>*/ caml_call1
                 /*<<arg.ml:224:24>>*/ (f$2, x);
-               /*<<arg.ml:226:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:226:12>>*/ return  /*<<arg.ml:226:12>>*/ consume_arg$0
+                       /*<<arg.ml:226:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 7:
               var
                r$2 = param[1],
-               arg$2 =  /*<<arg.ml:228:22>>*/ get_arg$0(0),
-               match$1 =  /*<<arg.ml:229:24>>*/ int_of_string_opt(arg$2);
+               arg$2 =
+                  /*<<arg.ml:228:22>>*/  /*<<arg.ml:228:22>>*/ get_arg$0
+                   /*<<arg.ml:228:22>>*/ (0),
+               match$1 =
+                  /*<<arg.ml:229:24>>*/  /*<<arg.ml:229:24>>*/ int_of_string_opt
+                   /*<<arg.ml:229:24>>*/ (arg$2);
               if(! match$1)
                 /*<<arg.ml:230:22>>*/ throw  /*<<arg.ml:230:22>>*/ caml_maybe_attach_backtrace
                        /*<<arg.ml:230:22>>*/ ([0,
@@ -23590,12 +26037,17 @@
                        1);
               var x$0 = match$1[1];
               r$2[1] = x$0;
-               /*<<arg.ml:233:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:233:12>>*/ return  /*<<arg.ml:233:12>>*/ consume_arg$0
+                       /*<<arg.ml:233:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 8:
               var
                f$3 = param[1],
-               arg$3 =  /*<<arg.ml:235:22>>*/ get_arg$0(0),
-               match$2 =  /*<<arg.ml:236:24>>*/ float_of_string_opt(arg$3);
+               arg$3 =
+                  /*<<arg.ml:235:22>>*/  /*<<arg.ml:235:22>>*/ get_arg$0
+                   /*<<arg.ml:235:22>>*/ (0),
+               match$2 =
+                  /*<<arg.ml:236:24>>*/  /*<<arg.ml:236:24>>*/ float_of_string_opt
+                   /*<<arg.ml:236:24>>*/ (arg$3);
               if(! match$2)
                 /*<<arg.ml:237:22>>*/ throw  /*<<arg.ml:237:22>>*/ caml_maybe_attach_backtrace
                        /*<<arg.ml:237:22>>*/ ([0,
@@ -23605,12 +26057,17 @@
               var x$1 = match$2[1];
                /*<<arg.ml:238:24>>*/  /*<<arg.ml:238:24>>*/ caml_call1
                 /*<<arg.ml:238:24>>*/ (f$3, x$1);
-               /*<<arg.ml:240:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:240:12>>*/ return  /*<<arg.ml:240:12>>*/ consume_arg$0
+                       /*<<arg.ml:240:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 9:
               var
                r$3 = param[1],
-               arg$4 =  /*<<arg.ml:242:22>>*/ get_arg$0(0),
-               match$3 =  /*<<arg.ml:243:24>>*/ float_of_string_opt(arg$4);
+               arg$4 =
+                  /*<<arg.ml:242:22>>*/  /*<<arg.ml:242:22>>*/ get_arg$0
+                   /*<<arg.ml:242:22>>*/ (0),
+               match$3 =
+                  /*<<arg.ml:243:24>>*/  /*<<arg.ml:243:24>>*/ float_of_string_opt
+                   /*<<arg.ml:243:24>>*/ (arg$4);
               if(! match$3)
                 /*<<arg.ml:244:22>>*/ throw  /*<<arg.ml:244:22>>*/ caml_maybe_attach_backtrace
                        /*<<arg.ml:244:22>>*/ ([0,
@@ -23619,10 +26076,12 @@
                        1);
               var x$2 = match$3[1];
               r$3[1] = x$2;
-               /*<<arg.ml:247:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:247:12>>*/ return  /*<<arg.ml:247:12>>*/ consume_arg$0
+                       /*<<arg.ml:247:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
              case 10:
               var specs = param[1];
-               /*<<arg.ml:249:12>>*/ no_arg$0(0);
+               /*<<arg.ml:249:12>>*/  /*<<arg.ml:249:12>>*/ no_arg$0
+                /*<<arg.ml:249:12>>*/ (0);
                /*<<arg.ml:249:12>>*/ return  /*<<arg.ml:249:12>>*/ caml_call2
                        /*<<arg.ml:249:12>>*/ (Stdlib_List[18],
                        treat_action$0,
@@ -23631,18 +26090,21 @@
               var
                f$4 = param[2],
                symb = param[1],
-               arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
+               arg$5 =
+                  /*<<arg.ml:209:22>>*/  /*<<arg.ml:209:22>>*/ get_arg$0
+                   /*<<arg.ml:209:22>>*/ (0);
                /*<<arg.ml:210:15>>*/ if
                ( /*<<arg.ml:210:15>>*/ caml_call2
                   /*<<arg.ml:210:15>>*/ (Stdlib_List[37], arg$5, symb)){
                 /*<<arg.ml:211:14>>*/  /*<<arg.ml:211:14>>*/ caml_call1
                  /*<<arg.ml:211:14>>*/ (f$4, arg$5);
-                /*<<arg.ml:211:14>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+                /*<<arg.ml:211:14>>*/ return  /*<<arg.ml:211:14>>*/ consume_arg$0
+                        /*<<arg.ml:211:14>>*/ (0) /*<<arg.ml:276:54>>*/ ;
               }
               var
                _aa_ =
-                  /*<<arg.ml:215:44>>*/ make_symlist
-                  (cst$6, cst$5, cst$4, symb);
+                  /*<<arg.ml:215:44>>*/  /*<<arg.ml:215:44>>*/ make_symlist
+                   /*<<arg.ml:215:44>>*/ (cst$6, cst$5, cst$4, symb);
                /*<<arg.ml:213:21>>*/ throw  /*<<arg.ml:213:21>>*/ caml_maybe_attach_backtrace
                       /*<<arg.ml:213:21>>*/ ([0,
                        Stop,
@@ -23654,19 +26116,22 @@
                       1);
              case 12:
               var f$5 = param[1];
-               /*<<arg.ml:252:12>>*/ no_arg$0(0);
+               /*<<arg.ml:252:12>>*/  /*<<arg.ml:252:12>>*/ no_arg$0
+                /*<<arg.ml:252:12>>*/ (0);
                /*<<arg.ml:255:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0)) return 0;
                var _ab_ = current[1] + 1 | 0;
                 /*<<arg.ml:254:14>>*/  /*<<arg.ml:254:14>>*/ caml_call1
                  /*<<arg.ml:254:14>>*/ (f$5,
                  caml_check_bound(argv[1], _ab_)[1 + _ab_]);
-                /*<<arg.ml:255:14>>*/ consume_arg$0(0);
+                /*<<arg.ml:255:14>>*/  /*<<arg.ml:255:14>>*/ consume_arg$0
+                 /*<<arg.ml:255:14>>*/ (0);
               }
               break;
              case 13:
               var f$6 = param[1];
-               /*<<arg.ml:258:12>>*/ no_arg$0(0);
+               /*<<arg.ml:258:12>>*/  /*<<arg.ml:258:12>>*/ no_arg$0
+                /*<<arg.ml:258:12>>*/ (0);
               var acc =  /*<<arg.ml:259:22>>*/ [0, 0];
                /*<<arg.ml:262:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
@@ -23676,7 +26141,8 @@
                            /*<<arg.ml:264:14>>*/ (Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
                var _ad_ = current[1] + 1 | 0, _ac_ = acc[1];
                acc[1] = [0, caml_check_bound(argv[1], _ad_)[1 + _ad_], _ac_];
-                /*<<arg.ml:262:14>>*/ consume_arg$0(0);
+                /*<<arg.ml:262:14>>*/  /*<<arg.ml:262:14>>*/ consume_arg$0
+                 /*<<arg.ml:262:14>>*/ (0);
               }
               break;
              default:
@@ -23688,11 +26154,14 @@
                         cst_Arg_Expand_is_is_only_allo],
                        1);
               var
-               arg$6 =  /*<<arg.ml:269:22>>*/ get_arg$0(0),
+               arg$6 =
+                  /*<<arg.ml:269:22>>*/  /*<<arg.ml:269:22>>*/ get_arg$0
+                   /*<<arg.ml:269:22>>*/ (0),
                newarg =
                   /*<<arg.ml:270:25>>*/  /*<<arg.ml:270:25>>*/ caml_call1
                    /*<<arg.ml:270:25>>*/ (f$7, arg$6);
-               /*<<arg.ml:271:12>>*/ consume_arg$0(0);
+               /*<<arg.ml:271:12>>*/  /*<<arg.ml:271:12>>*/ consume_arg$0
+                /*<<arg.ml:271:12>>*/ (0);
               var
                before =
                   /*<<arg.ml:272:25>>*/  /*<<arg.ml:272:25>>*/ caml_call3
@@ -23718,7 +26187,8 @@
         get_arg$0 = get_arg,
         consume_arg$0 = consume_arg,
         treat_action$0 = treat_action;
-        /*<<arg.ml:278:8>>*/ treat_action(action);
+        /*<<arg.ml:278:8>>*/  /*<<arg.ml:278:8>>*/ treat_action
+         /*<<arg.ml:278:8>>*/ (action);
       }
       else
         /*<<arg.ml:279:11>>*/  /*<<arg.ml:279:11>>*/ caml_call1
@@ -23729,35 +26199,55 @@
       if(exn[1] === Bad){
        var m = exn[2];
         /*<<arg.ml:280:26>>*/ throw  /*<<arg.ml:280:26>>*/ caml_maybe_attach_backtrace
-               /*<<arg.ml:280:26>>*/ (convert_error([3, m]), 1);
+               /*<<arg.ml:280:26>>*/ ( /*<<arg.ml:280:26>>*/ convert_error
+                 /*<<arg.ml:280:26>>*/ ([3, m]),
+               1);
       }
       if(exn[1] !== Stop) throw caml_maybe_attach_backtrace(exn, 0);
       var e = exn[2];
        /*<<arg.ml:281:27>>*/ throw  /*<<arg.ml:281:27>>*/ caml_maybe_attach_backtrace
-              /*<<arg.ml:281:27>>*/ (convert_error(e), 1);
+              /*<<arg.ml:281:27>>*/ ( /*<<arg.ml:281:27>>*/ convert_error
+                /*<<arg.ml:281:27>>*/ (e),
+              1);
      }
      current[1]++;
     }
    }
    function parse_and_expand_argv_dynamic
    (current, argv, speclist, anonfun, errmsg){
-     /*<<arg.ml:287:2>>*/ return parse_and_expand_argv_dynamic_
-            (1, current, argv, speclist, anonfun, errmsg) /*<<arg.ml:287:77>>*/ ;
+     /*<<arg.ml:287:2>>*/ return  /*<<arg.ml:287:2>>*/ parse_and_expand_argv_dynamic_
+             /*<<arg.ml:287:2>>*/ (1,
+             current,
+             argv,
+             speclist,
+             anonfun,
+             errmsg) /*<<arg.ml:287:77>>*/ ;
     /*<<arg.ml:287:77>>*/ }
    function parse_argv_dynamic(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
-     /*<<arg.ml:290:2>>*/ return parse_and_expand_argv_dynamic_
-            (0, current$0, [0, argv], speclist, anonfun, errmsg) /*<<arg.ml:291:10>>*/ ;
+     /*<<arg.ml:290:2>>*/ return  /*<<arg.ml:290:2>>*/ parse_and_expand_argv_dynamic_
+             /*<<arg.ml:290:2>>*/ (0,
+             current$0,
+             [0, argv],
+             speclist,
+             anonfun,
+             errmsg) /*<<arg.ml:291:10>>*/ ;
     /*<<arg.ml:291:10>>*/ }
    function parse_argv(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
-     /*<<arg.ml:295:2>>*/ return parse_argv_dynamic
-            ([0, current$0], argv, [0, speclist], anonfun, errmsg) /*<<arg.ml:295:72>>*/ ;
+     /*<<arg.ml:295:2>>*/ return  /*<<arg.ml:295:2>>*/ parse_argv_dynamic
+             /*<<arg.ml:295:2>>*/ ([0, current$0],
+             argv,
+             [0, speclist],
+             anonfun,
+             errmsg) /*<<arg.ml:295:72>>*/ ;
     /*<<arg.ml:295:72>>*/ }
    function parse(l, f, msg){
      /*<<arg.ml:299:2>>*/ try{
      var
-      _U_ =  /*<<arg.ml:300:4>>*/ parse_argv(0, caml_sys_argv(0), l, f, msg);
+      _U_ =
+         /*<<arg.ml:300:4>>*/  /*<<arg.ml:300:4>>*/ parse_argv
+          /*<<arg.ml:300:4>>*/ (0, caml_sys_argv(0), l, f, msg);
       /*<<arg.ml:300:4>>*/ return _U_ /*<<arg.ml:300:4>>*/ ;
     }
     catch(exn$0){
@@ -23781,8 +26271,8 @@
      /*<<arg.ml:307:2>>*/ try{
      var
       _T_ =
-         /*<<arg.ml:308:4>>*/ parse_argv_dynamic
-         (0, caml_sys_argv(0), l, f, msg);
+         /*<<arg.ml:308:4>>*/  /*<<arg.ml:308:4>>*/ parse_argv_dynamic
+          /*<<arg.ml:308:4>>*/ (0, caml_sys_argv(0), l, f, msg);
       /*<<arg.ml:308:4>>*/ return _T_ /*<<arg.ml:308:4>>*/ ;
     }
     catch(exn$0){
@@ -23809,8 +26299,8 @@
       spec =  /*<<arg.ml:316:15>>*/ [0, l],
       current$0 =  /*<<arg.ml:317:18>>*/ [0, current[1]],
       _S_ =
-         /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
-         (current$0, argv, spec, f, msg);
+         /*<<arg.ml:318:4>>*/  /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
+          /*<<arg.ml:318:4>>*/ (current$0, argv, spec, f, msg);
       /*<<arg.ml:318:4>>*/ return _S_ /*<<arg.ml:318:4>>*/ ;
     }
     catch(exn$0){
@@ -23866,15 +26356,21 @@
         /*<<arg.ml:336:31>>*/ return len /*<<arg.ml:336:31>>*/ ;
       throw caml_maybe_attach_backtrace(_P_, 0);
      }
-      /*<<arg.ml:334:18>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
+      /*<<arg.ml:334:18>>*/ return  /*<<arg.ml:334:18>>*/ loop
+              /*<<arg.ml:334:18>>*/ (n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     }
-     /*<<arg.ml:331:8>>*/ return loop(n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
+     /*<<arg.ml:331:8>>*/ return  /*<<arg.ml:331:8>>*/ loop
+             /*<<arg.ml:331:8>>*/ (n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     /*<<arg.ml:337:9>>*/ }
    function max_arg_len(cur, param){
     var doc = param[3], spec = param[2], kwd = param[1];
      /*<<arg.ml:341:2>>*/ if(11 === spec[0])
      return caml_call2(Stdlib_Int[11], cur, caml_ml_string_length(kwd)) /*<<arg.ml:343:58>>*/ ;
-    var _N_ = caml_ml_string_length(kwd) + second_word(doc) | 0;
+    var
+     _N_ =
+       caml_ml_string_length(kwd)
+       +  /*<<arg.ml:343:42>>*/ second_word /*<<arg.ml:343:42>>*/ (doc)
+       | 0;
     return caml_call2(Stdlib_Int[11], cur, _N_) /*<<arg.ml:343:58>>*/ ;
     /*<<arg.ml:343:58>>*/ }
    function replace_leading_tab(s){
@@ -23893,7 +26389,9 @@
    function align(opt, speclist){
     var
      limit = opt ? opt[1] : Stdlib[19],
-     completed =  /*<<arg.ml:374:18>>*/ add_help(speclist),
+     completed =
+        /*<<arg.ml:374:18>>*/  /*<<arg.ml:374:18>>*/ add_help
+         /*<<arg.ml:374:18>>*/ (speclist),
      len =
         /*<<arg.ml:375:12>>*/  /*<<arg.ml:375:12>>*/ caml_call3
          /*<<arg.ml:375:12>>*/ (Stdlib_List[26], max_arg_len, 0, completed),
@@ -23909,7 +26407,9 @@
               if(11 === spec[0]){
                var
                 msg$0 = ksd[3],
-                cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
+                cutcol$0 =
+                   /*<<arg.ml:357:19>>*/  /*<<arg.ml:357:19>>*/ second_word
+                    /*<<arg.ml:357:19>>*/ (msg$0),
                 _K_ =
                    /*<<arg.ml:358:32>>*/  /*<<arg.ml:358:32>>*/ caml_call2
                     /*<<arg.ml:358:32>>*/ (Stdlib_Int[11],
@@ -23920,7 +26420,9 @@
                 spaces$0 =
                    /*<<arg.ml:358:19>>*/  /*<<arg.ml:358:19>>*/ caml_call2
                     /*<<arg.ml:358:19>>*/ (Stdlib_String[1], _K_, 32),
-                _L_ =  /*<<arg.ml:359:34>>*/ replace_leading_tab(msg$0),
+                _L_ =
+                   /*<<arg.ml:359:34>>*/  /*<<arg.ml:359:34>>*/ replace_leading_tab
+                    /*<<arg.ml:359:34>>*/ (msg$0),
                 _M_ =
                    /*<<arg.ml:359:25>>*/  /*<<arg.ml:359:25>>*/ caml_call2
                     /*<<arg.ml:359:25>>*/ (Stdlib[28], spaces$0, _L_);
@@ -23933,7 +26435,9 @@
               var
                msg = ksd[3],
                spec$0 = ksd[2],
-               cutcol =  /*<<arg.ml:361:19>>*/ second_word(msg),
+               cutcol =
+                  /*<<arg.ml:361:19>>*/  /*<<arg.ml:361:19>>*/ second_word
+                   /*<<arg.ml:361:19>>*/ (msg),
                kwd_len =
                   /*<<arg.ml:362:6>>*/  /*<<arg.ml:362:6>>*/ caml_ml_string_length
                    /*<<arg.ml:362:6>>*/ (kwd),
@@ -23942,12 +26446,15 @@
                 /*<<arg.ml:365:8>>*/ return [0,
                        kwd,
                        spec$0,
-                       replace_leading_tab(msg)] /*<<arg.ml:365:8>>*/ ;
+                        /*<<arg.ml:365:20>>*/ replace_leading_tab
+                         /*<<arg.ml:365:20>>*/ (msg)] /*<<arg.ml:365:8>>*/ ;
               var
                spaces =
                   /*<<arg.ml:367:21>>*/  /*<<arg.ml:367:21>>*/ caml_call2
                    /*<<arg.ml:367:21>>*/ (Stdlib_String[1], diff, 32),
-               _I_ =  /*<<arg.ml:368:32>>*/ replace_leading_tab(msg),
+               _I_ =
+                  /*<<arg.ml:368:32>>*/  /*<<arg.ml:368:32>>*/ replace_leading_tab
+                   /*<<arg.ml:368:32>>*/ (msg),
                prefix =
                   /*<<arg.ml:368:21>>*/  /*<<arg.ml:368:21>>*/ caml_call3
                    /*<<arg.ml:368:21>>*/ (Stdlib_String[16], _I_, 0, cutcol),
@@ -24016,7 +26523,8 @@
           /*<<arg.ml:398:16>>*/  /*<<arg.ml:398:16>>*/ caml_call1
            /*<<arg.ml:398:16>>*/ (Stdlib[82], ic);
       if(c === sep)
-        /*<<arg.ml:399:24>>*/ stash(0);
+        /*<<arg.ml:399:24>>*/  /*<<arg.ml:399:24>>*/ stash
+         /*<<arg.ml:399:24>>*/ (0);
       else
         /*<<arg.ml:399:38>>*/  /*<<arg.ml:399:38>>*/ caml_call2
          /*<<arg.ml:399:38>>*/ (Stdlib_Buffer[12], buf, c);
@@ -24030,7 +26538,8 @@
        <
          /*<<arg.ml:403:5>>*/ caml_call1
           /*<<arg.ml:403:5>>*/ (Stdlib_Buffer[7], buf))
-       /*<<arg.ml:403:32>>*/ stash(0);
+       /*<<arg.ml:403:32>>*/  /*<<arg.ml:403:32>>*/ stash
+        /*<<arg.ml:403:32>>*/ (0);
       /*<<arg.ml:404:2>>*/  /*<<arg.ml:404:2>>*/ caml_call1
        /*<<arg.ml:404:2>>*/ (Stdlib[93], ic);
      var
@@ -24246,8 +26755,12 @@
      /*<<printexc.ml:36:2>>*/ if(x.length - 1 <= i)
       /*<<printexc.ml:36:26>>*/ return cst$0 /*<<printexc.ml:36:26>>*/ ;
     var
-     _af_ =  /*<<printexc.ml:37:36>>*/ other_fields(x, i + 1 | 0),
-     _ag_ =  /*<<printexc.ml:37:24>>*/ field(x, i);
+     _af_ =
+        /*<<printexc.ml:37:36>>*/  /*<<printexc.ml:37:36>>*/ other_fields
+         /*<<printexc.ml:37:36>>*/ (x, i + 1 | 0),
+     _ag_ =
+        /*<<printexc.ml:37:24>>*/  /*<<printexc.ml:37:24>>*/ field
+         /*<<printexc.ml:37:24>>*/ (x, i);
      /*<<printexc.ml:37:36>>*/ return  /*<<printexc.ml:37:36>>*/ caml_call3
              /*<<printexc.ml:37:36>>*/ (Stdlib_Printf[4], _c_, _ag_, _af_) /*<<printexc.ml:37:58>>*/ ;
     /*<<printexc.ml:37:58>>*/ }
@@ -24286,8 +26799,12 @@
       match = t.length - 1;
      if(2 < match >>> 0)
       var
-       _aa_ =  /*<<printexc.ml:44:38>>*/ other_fields(t, 2),
-       _ab_ =  /*<<printexc.ml:44:26>>*/ field(t, 1),
+       _aa_ =
+          /*<<printexc.ml:44:38>>*/  /*<<printexc.ml:44:38>>*/ other_fields
+           /*<<printexc.ml:44:38>>*/ (t, 2),
+       _ab_ =
+          /*<<printexc.ml:44:26>>*/  /*<<printexc.ml:44:26>>*/ field
+           /*<<printexc.ml:44:26>>*/ (t, 1),
        _ad_ =
           /*<<printexc.ml:44:38>>*/ caml_call3
            /*<<printexc.ml:44:38>>*/ (Stdlib_Printf[4], _d_, _ab_, _aa_);
@@ -24299,7 +26816,9 @@
          var _ad_ = cst$2; break;
         default:
          var
-          _ac_ =  /*<<printexc.ml:43:24>>*/ field(t, 1),
+          _ac_ =
+             /*<<printexc.ml:43:24>>*/  /*<<printexc.ml:43:24>>*/ field
+              /*<<printexc.ml:43:24>>*/ (t, 1),
           _ad_ =
              /*<<printexc.ml:43:24>>*/ caml_call2
               /*<<printexc.ml:43:24>>*/ (Stdlib_Printf[4], _e_, _ac_);
@@ -24347,7 +26866,8 @@
               cst_Assertion_failed) /*<<printexc.ml:79:50>>*/ ;
     }
     if(x[1] !== Stdlib[15])
-      /*<<printexc.ml:79:6>>*/ return string_of_extension_constructo(x) /*<<printexc.ml:79:50>>*/ ;
+      /*<<printexc.ml:79:6>>*/ return  /*<<printexc.ml:79:6>>*/ string_of_extension_constructo
+              /*<<printexc.ml:79:6>>*/ (x) /*<<printexc.ml:79:50>>*/ ;
     var
      match$1 = x[2],
      char$2 = match$1[3],
@@ -24363,9 +26883,13 @@
              cst_Undefined_recursive_module) /*<<printexc.ml:79:50>>*/ ;
     /*<<printexc.ml:79:50>>*/ }
    function to_string(e){
-    var match =  /*<<printexc.ml:82:8>>*/ use_printers(e);
+    var
+     match =
+        /*<<printexc.ml:82:8>>*/  /*<<printexc.ml:82:8>>*/ use_printers
+         /*<<printexc.ml:82:8>>*/ (e);
     if(! match)
-      /*<<printexc.ml:84:12>>*/ return to_string_default(e) /*<<printexc.ml:84:31>>*/ ;
+      /*<<printexc.ml:84:12>>*/ return  /*<<printexc.ml:84:12>>*/ to_string_default
+              /*<<printexc.ml:84:12>>*/ (e) /*<<printexc.ml:84:31>>*/ ;
     var s = match[1];
      /*<<printexc.ml:83:14>>*/ return s /*<<printexc.ml:83:14>>*/ ;
     /*<<printexc.ml:84:31>>*/ }
@@ -24380,7 +26904,9 @@
     catch(x$0){
      var
       x = caml_wrap_exception(x$0),
-      ___ =  /*<<printexc.ml:90:39>>*/ to_string(x);
+      ___ =
+         /*<<printexc.ml:90:39>>*/  /*<<printexc.ml:90:39>>*/ to_string
+          /*<<printexc.ml:90:39>>*/ (x);
       /*<<printexc.ml:90:4>>*/  /*<<printexc.ml:90:4>>*/ caml_call2
        /*<<printexc.ml:90:4>>*/ (Stdlib_Printf[3], _f_, ___);
       /*<<printexc.ml:91:4>>*/  /*<<printexc.ml:91:4>>*/ caml_call1
@@ -24401,7 +26927,10 @@
      var x = caml_wrap_exception(x$0);
       /*<<printexc.ml:98:4>>*/  /*<<printexc.ml:98:4>>*/ caml_call1
        /*<<printexc.ml:98:4>>*/ (Stdlib[63], Stdlib[39]);
-     var _Y_ =  /*<<printexc.ml:99:39>>*/ to_string(x);
+     var
+      _Y_ =
+         /*<<printexc.ml:99:39>>*/  /*<<printexc.ml:99:39>>*/ to_string
+          /*<<printexc.ml:99:39>>*/ (x);
       /*<<printexc.ml:99:4>>*/  /*<<printexc.ml:99:4>>*/ caml_call2
        /*<<printexc.ml:99:4>>*/ (Stdlib_Printf[3], _g_, _Y_);
       /*<<printexc.ml:99:4>>*/ return  /*<<printexc.ml:99:4>>*/ caml_call1
@@ -24438,7 +26967,9 @@
       _T_ = slot[8] ? cst_inlined : cst$3,
       _U_ = slot[2],
       _V_ = slot[9],
-      _W_ =  /*<<printexc.ml:162:14>>*/ info(slot[1]);
+      _W_ =
+         /*<<printexc.ml:162:14>>*/  /*<<printexc.ml:162:14>>*/ info
+          /*<<printexc.ml:162:14>>*/ (slot[1]);
       /*<<printexc.ml:161:6>>*/ return [0,
               /*<<printexc.ml:161:11>>*/ caml_call8
                /*<<printexc.ml:161:11>>*/ (Stdlib_Printf[4],
@@ -24453,7 +26984,10 @@
     }
     if(slot[1])
       /*<<printexc.ml:151:50>>*/ return 0 /*<<printexc.ml:151:50>>*/ ;
-    var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
+    var
+     _X_ =
+        /*<<printexc.ml:153:44>>*/  /*<<printexc.ml:153:44>>*/ info
+         /*<<printexc.ml:153:44>>*/ (0);
      /*<<printexc.ml:153:8>>*/ return [0,
              /*<<printexc.ml:153:13>>*/ caml_call2
               /*<<printexc.ml:153:13>>*/ (Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:8>>*/ ;
@@ -24461,7 +26995,8 @@
    function print_raw_backtrace(outchan, raw_backtrace){
     var
      backtrace =
-        /*<<printexc.ml:179:36>>*/ convert_raw_backtrace(raw_backtrace);
+        /*<<printexc.ml:179:36>>*/  /*<<printexc.ml:179:36>>*/ convert_raw_backtrace
+         /*<<printexc.ml:179:36>>*/ (raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:169:6>>*/ return  /*<<printexc.ml:169:6>>*/ caml_call2
               /*<<printexc.ml:169:6>>*/ (Stdlib_Printf[1], outchan, _m_) /*<<printexc.ml:179:73>>*/ ;
@@ -24471,8 +27006,8 @@
      for(;;){
       var
        match =
-          /*<<printexc.ml:173:14>>*/ format_backtrace_slot
-          (i, caml_check_bound(a, i)[1 + i]);
+          /*<<printexc.ml:173:14>>*/  /*<<printexc.ml:173:14>>*/ format_backtrace_slot
+           /*<<printexc.ml:173:14>>*/ (i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
         /*<<printexc.ml:175:24>>*/  /*<<printexc.ml:175:24>>*/ caml_call3
@@ -24486,15 +27021,16 @@
     return 0;
     /*<<printexc.ml:179:73>>*/ }
    function print_backtrace(outchan){
-     /*<<printexc.ml:183:2>>*/ return print_raw_backtrace
-            (outchan,
+     /*<<printexc.ml:183:2>>*/ return  /*<<printexc.ml:183:30>>*/ print_raw_backtrace
+             /*<<printexc.ml:183:30>>*/ (outchan,
               /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra
                /*<<printexc.ml:183:30>>*/ (0)) /*<<printexc.ml:183:52>>*/ ;
     /*<<printexc.ml:183:52>>*/ }
    function raw_backtrace_to_string(raw_backtrace){
     var
      backtrace =
-        /*<<printexc.ml:199:22>>*/ convert_raw_backtrace(raw_backtrace);
+        /*<<printexc.ml:199:22>>*/  /*<<printexc.ml:199:22>>*/ convert_raw_backtrace
+         /*<<printexc.ml:199:22>>*/ (raw_backtrace);
     if(! backtrace)
       /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_ /*<<printexc.ml:188:5>>*/ ;
     var
@@ -24509,8 +27045,8 @@
      for(;;){
       var
        match =
-          /*<<printexc.ml:192:14>>*/ format_backtrace_slot
-          (i, caml_check_bound(a, i)[1 + i]);
+          /*<<printexc.ml:192:14>>*/  /*<<printexc.ml:192:14>>*/ format_backtrace_slot
+           /*<<printexc.ml:192:14>>*/ (i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
         /*<<printexc.ml:194:24>>*/  /*<<printexc.ml:194:24>>*/ caml_call3
@@ -24543,7 +27079,9 @@
     /*<<printexc.ml:233:38>>*/ }
    function backtrace_slots(raw_backtrace){
     var
-     match =  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace(raw_backtrace);
+     match =
+        /*<<printexc.ml:242:8>>*/  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace
+         /*<<printexc.ml:242:8>>*/ (raw_backtrace);
     if(! match)
       /*<<printexc.ml:243:14>>*/ return 0 /*<<printexc.ml:243:14>>*/ ;
     var backtrace = match[1], i$1 = backtrace.length - 2 | 0, i = i$1;
@@ -24563,14 +27101,15 @@
     }
     /*<<printexc.ml:253:15>>*/ }
    function backtrace_slots_of_raw_entry(entry){
-     /*<<printexc.ml:256:2>>*/ return backtrace_slots([0, entry]) /*<<printexc.ml:256:29>>*/ ;
+     /*<<printexc.ml:256:2>>*/ return  /*<<printexc.ml:256:18>>*/ backtrace_slots
+             /*<<printexc.ml:256:18>>*/ ([0, entry]) /*<<printexc.ml:256:29>>*/ ;
     /*<<printexc.ml:256:29>>*/ }
    function raw_backtrace_length(bt){
      /*<<printexc.ml:267:30>>*/ return bt.length - 1;
     /*<<printexc.ml:267:45>>*/ }
    function get_backtrace(param){
-     /*<<printexc.ml:278:23>>*/ return raw_backtrace_to_string
-            ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra
+     /*<<printexc.ml:278:23>>*/ return  /*<<printexc.ml:278:47>>*/ raw_backtrace_to_string
+             /*<<printexc.ml:278:47>>*/ ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra
                /*<<printexc.ml:278:47>>*/ (0)) /*<<printexc.ml:278:69>>*/ ;
     /*<<printexc.ml:278:69>>*/ }
    function register_printer(fn){
@@ -24600,11 +27139,17 @@
             : x /*<<printexc.ml:293:44>>*/ ;
     /*<<printexc.ml:293:44>>*/ }
    function exn_slot_id(x){
-    var slot =  /*<<printexc.ml:296:13>>*/ exn_slot(x);
+    var
+     slot =
+        /*<<printexc.ml:296:13>>*/  /*<<printexc.ml:296:13>>*/ exn_slot
+         /*<<printexc.ml:296:13>>*/ (x);
      /*<<printexc.ml:297:11>>*/ return slot[2] /*<<printexc.ml:297:11>>*/ ;
     /*<<printexc.ml:297:36>>*/ }
    function exn_slot_name(x){
-    var slot =  /*<<printexc.ml:300:13>>*/ exn_slot(x);
+    var
+     slot =
+        /*<<printexc.ml:300:13>>*/  /*<<printexc.ml:300:13>>*/ exn_slot
+         /*<<printexc.ml:300:13>>*/ (x);
      /*<<printexc.ml:301:11>>*/ return slot[1] /*<<printexc.ml:301:11>>*/ ;
     /*<<printexc.ml:301:39>>*/ }
    var
@@ -24621,10 +27166,14 @@
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
        cst_Fatal_error_exception_s];
    function default_uncaught_exception_han(exn, raw_backtrace){
-    var _F_ =  /*<<printexc.ml:323:40>>*/ to_string(exn);
+    var
+     _F_ =
+        /*<<printexc.ml:323:40>>*/  /*<<printexc.ml:323:40>>*/ to_string
+         /*<<printexc.ml:323:40>>*/ (exn);
      /*<<printexc.ml:323:2>>*/  /*<<printexc.ml:323:2>>*/ caml_call2
       /*<<printexc.ml:323:2>>*/ (Stdlib_Printf[3], _o_, _F_);
-     /*<<printexc.ml:324:2>>*/ print_raw_backtrace(Stdlib[40], raw_backtrace);
+     /*<<printexc.ml:324:2>>*/  /*<<printexc.ml:324:2>>*/ print_raw_backtrace
+      /*<<printexc.ml:324:2>>*/ (Stdlib[40], raw_backtrace);
     var
      status =
         /*<<printexc.ml:325:15>>*/  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status
@@ -24691,16 +27240,21 @@
         raw_backtrace$0 =
            /*<<printexc.ml:338:4>>*/  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra
             /*<<printexc.ml:338:4>>*/ (0),
-        _x_ =  /*<<printexc.ml:357:44>>*/ to_string(exn$0);
+        _x_ =
+           /*<<printexc.ml:357:44>>*/  /*<<printexc.ml:357:44>>*/ to_string
+            /*<<printexc.ml:357:44>>*/ (exn$0);
         /*<<printexc.ml:357:6>>*/  /*<<printexc.ml:357:6>>*/ caml_call2
          /*<<printexc.ml:357:6>>*/ (Stdlib_Printf[3], _p_, _x_);
-        /*<<printexc.ml:358:6>>*/ print_raw_backtrace
-        (Stdlib[40], raw_backtrace);
-       var _y_ =  /*<<printexc.ml:360:8>>*/ to_string(exn);
+        /*<<printexc.ml:358:6>>*/  /*<<printexc.ml:358:6>>*/ print_raw_backtrace
+         /*<<printexc.ml:358:6>>*/ (Stdlib[40], raw_backtrace);
+       var
+        _y_ =
+           /*<<printexc.ml:360:8>>*/  /*<<printexc.ml:360:8>>*/ to_string
+            /*<<printexc.ml:360:8>>*/ (exn);
         /*<<printexc.ml:359:6>>*/  /*<<printexc.ml:359:6>>*/ caml_call2
          /*<<printexc.ml:359:6>>*/ (Stdlib_Printf[3], _q_, _y_);
-        /*<<printexc.ml:361:6>>*/ print_raw_backtrace
-        (Stdlib[40], raw_backtrace$0);
+        /*<<printexc.ml:361:6>>*/  /*<<printexc.ml:361:6>>*/ print_raw_backtrace
+         /*<<printexc.ml:361:6>>*/ (Stdlib[40], raw_backtrace$0);
        var
         _z_ =
            /*<<printexc.ml:362:6>>*/ caml_call1
@@ -24863,12 +27417,14 @@
       work_bt =
          /*<<fun.ml:37:20>>*/  /*<<fun.ml:37:20>>*/ caml_call1
           /*<<fun.ml:37:20>>*/ (Stdlib_Printexc[12], 0);
-      /*<<fun.ml:38:6>>*/ finally_no_exn(0);
+      /*<<fun.ml:38:6>>*/  /*<<fun.ml:38:6>>*/ finally_no_exn
+       /*<<fun.ml:38:6>>*/ (0);
      caml_restore_raw_backtrace(work_exn, work_bt);
       /*<<fun.ml:39:6>>*/ throw  /*<<fun.ml:39:6>>*/ caml_maybe_attach_backtrace
              /*<<fun.ml:39:6>>*/ (work_exn, 0);
     }
-     /*<<fun.ml:35:14>>*/ finally_no_exn(0);
+     /*<<fun.ml:35:14>>*/  /*<<fun.ml:35:14>>*/ finally_no_exn
+      /*<<fun.ml:35:14>>*/ (0);
      /*<<fun.ml:35:14>>*/ return result /*<<fun.ml:35:14>>*/ ;
     /*<<fun.ml:39:52>>*/ }
    var
@@ -25066,7 +27622,8 @@
      /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:2>>*/ caml_call1
       /*<<gc.ml:119:2>>*/ (Stdlib_Domain[6],
       function(param){
-        /*<<gc.ml:119:28>>*/ return delete_alarm(_y_) /*<<gc.ml:119:52>>*/ ;
+        /*<<gc.ml:119:28>>*/ return  /*<<gc.ml:115:17>>*/ delete_alarm
+                /*<<gc.ml:115:17>>*/ (_y_) /*<<gc.ml:119:52>>*/ ;
        /*<<gc.ml:119:52>>*/ });
     return _y_;
     /*<<gc.ml:121:13>>*/ }
@@ -25183,14 +27740,16 @@
               /*<<in_channel.ml:37:19>>*/ }) /*<<in_channel.ml:37:20>>*/ ;
     /*<<in_channel.ml:37:20>>*/ }
    function with_open_bin(s, f){
-     /*<<in_channel.ml:40:2>>*/ return with_open(Stdlib[80], s, f) /*<<in_channel.ml:40:34>>*/ ;
+     /*<<in_channel.ml:40:2>>*/ return  /*<<in_channel.ml:40:2>>*/ with_open
+             /*<<in_channel.ml:40:2>>*/ (Stdlib[80], s, f) /*<<in_channel.ml:40:34>>*/ ;
     /*<<in_channel.ml:40:34>>*/ }
    function with_open_text(s, f){
-     /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
+     /*<<in_channel.ml:43:2>>*/ return  /*<<in_channel.ml:43:2>>*/ with_open
+             /*<<in_channel.ml:43:2>>*/ (Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
     /*<<in_channel.ml:43:30>>*/ }
    function with_open_gen(flags, perm, s, f){
-     /*<<in_channel.ml:46:2>>*/ return with_open
-            ( /*<<in_channel.ml:46:12>>*/ caml_call2
+     /*<<in_channel.ml:46:2>>*/ return  /*<<in_channel.ml:46:2>>*/ with_open
+             /*<<in_channel.ml:46:2>>*/ ( /*<<in_channel.ml:46:12>>*/ caml_call2
                /*<<in_channel.ml:46:12>>*/ (Stdlib[81], flags, perm),
              s,
              f) /*<<in_channel.ml:46:47>>*/ ;
@@ -25402,7 +27961,8 @@
         /*<<in_channel.ml:168:12>>*/  /*<<in_channel.ml:168:12>>*/ caml_create_bytes
          /*<<in_channel.ml:168:12>>*/ (initial_size$1),
      nread =
-        /*<<in_channel.ml:169:14>>*/ read_upto(ic, buf, 0, initial_size$1);
+        /*<<in_channel.ml:169:14>>*/  /*<<in_channel.ml:169:14>>*/ read_upto
+         /*<<in_channel.ml:169:14>>*/ (ic, buf, 0, initial_size$1);
     if(nread < initial_size$1)
       /*<<in_channel.ml:171:4>>*/ return  /*<<in_channel.ml:171:4>>*/ caml_call3
               /*<<in_channel.ml:171:4>>*/ (Stdlib_Bytes[8], buf, 0, nread) /*<<in_channel.ml:193:5>>*/ ;
@@ -25419,7 +27979,10 @@
                /*<<in_channel.ml:176:8>>*/ (Stdlib_Bytes[44], buf) /*<<in_channel.ml:193:5>>*/ ;
      throw caml_maybe_attach_backtrace(_j_, 0);
     }
-    var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
+    var
+     buf$2 =
+        /*<<in_channel.ml:190:18>>*/  /*<<in_channel.ml:190:18>>*/ ensure
+         /*<<in_channel.ml:190:18>>*/ (buf, nread, 65537);
      /*<<in_channel.ml:191:8>>*/  /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set
       /*<<in_channel.ml:191:8>>*/ (buf$2, nread, c);
     var
@@ -25428,9 +27991,13 @@
      ofs = ofs$1;
      /*<<in_channel.ml:180:10>>*/ for(;;){
      var
-      buf$1 =  /*<<in_channel.ml:180:20>>*/ ensure(buf$0, ofs, chunk_size),
+      buf$1 =
+         /*<<in_channel.ml:180:20>>*/  /*<<in_channel.ml:180:20>>*/ ensure
+          /*<<in_channel.ml:180:20>>*/ (buf$0, ofs, chunk_size),
       rem = caml_ml_bytes_length(buf$1) - ofs | 0,
-      r =  /*<<in_channel.ml:184:18>>*/ read_upto(ic, buf$1, ofs, rem);
+      r =
+         /*<<in_channel.ml:184:18>>*/  /*<<in_channel.ml:184:18>>*/ read_upto
+          /*<<in_channel.ml:184:18>>*/ (ic, buf$1, ofs, rem);
      if(r < rem)
        /*<<in_channel.ml:180:20>>*/ return  /*<<in_channel.ml:180:20>>*/ caml_call3
                /*<<in_channel.ml:180:20>>*/ (Stdlib_Bytes[8],
@@ -25577,14 +28144,16 @@
               /*<<out_channel.ml:38:19>>*/ }) /*<<out_channel.ml:38:20>>*/ ;
     /*<<out_channel.ml:38:20>>*/ }
    function with_open_bin(s, f){
-     /*<<out_channel.ml:41:2>>*/ return with_open(Stdlib[61], s, f) /*<<out_channel.ml:41:35>>*/ ;
+     /*<<out_channel.ml:41:2>>*/ return  /*<<out_channel.ml:41:2>>*/ with_open
+             /*<<out_channel.ml:41:2>>*/ (Stdlib[61], s, f) /*<<out_channel.ml:41:35>>*/ ;
     /*<<out_channel.ml:41:35>>*/ }
    function with_open_text(s, f){
-     /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
+     /*<<out_channel.ml:44:2>>*/ return  /*<<out_channel.ml:44:2>>*/ with_open
+             /*<<out_channel.ml:44:2>>*/ (Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
     /*<<out_channel.ml:44:31>>*/ }
    function with_open_gen(flags, perm, s, f){
-     /*<<out_channel.ml:47:2>>*/ return with_open
-            ( /*<<out_channel.ml:47:12>>*/ caml_call2
+     /*<<out_channel.ml:47:2>>*/ return  /*<<out_channel.ml:47:2>>*/ with_open
+             /*<<out_channel.ml:47:2>>*/ ( /*<<out_channel.ml:47:12>>*/ caml_call2
                /*<<out_channel.ml:47:12>>*/ (Stdlib[62], flags, perm),
              s,
              f) /*<<out_channel.ml:47:48>>*/ ;
@@ -25727,8 +28296,15 @@
        x =
           /*<<digest.ml:25:22>>*/  /*<<digest.ml:25:22>>*/ caml_string_get
            /*<<digest.ml:25:22>>*/ (d, i);
-      caml_bytes_unsafe_set(result, i * 2 | 0, char_hex(x >>> 4 | 0));
-      caml_bytes_unsafe_set(result, (i * 2 | 0) + 1 | 0, char_hex(x & 15));
+      caml_bytes_unsafe_set
+       (result,
+        i * 2 | 0,
+         /*<<digest.ml:26:34>>*/ char_hex
+          /*<<digest.ml:26:34>>*/ (x >>> 4 | 0));
+      caml_bytes_unsafe_set
+       (result,
+        (i * 2 | 0) + 1 | 0,
+         /*<<digest.ml:27:36>>*/ char_hex /*<<digest.ml:27:36>>*/ (x & 15));
       var _k_ =  /*<<digest.ml:24:2>>*/ i + 1 | 0;
       if(_j_ === i) break;
       i = _k_;
@@ -25756,12 +28332,12 @@
               var
                i$0 = 2 * i | 0,
                _g_ =
-                  /*<<digest.ml:38:35>>*/ digit
-                  ( /*<<digest.ml:38:41>>*/ caml_string_get
+                  /*<<digest.ml:38:35>>*/  /*<<digest.ml:38:35>>*/ digit
+                   /*<<digest.ml:38:35>>*/ ( /*<<digest.ml:38:41>>*/ caml_string_get
                      /*<<digest.ml:38:41>>*/ (s, i$0 + 1 | 0)),
                _h_ =
-                 (digit
-                  ( /*<<digest.ml:38:21>>*/ caml_string_get
+                 ( /*<<digest.ml:38:15>>*/ digit
+                   /*<<digest.ml:38:15>>*/ ( /*<<digest.ml:38:21>>*/ caml_string_get
                      /*<<digest.ml:38:21>>*/ (s, i$0))
                  << 4)
                  + _g_
@@ -25788,8 +28364,8 @@
               caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
      /*<<digest.ml:85:58>>*/ }
     function bytes(b){
-      /*<<digest.ml:88:4>>*/ return string
-             ( /*<<digest.ml:88:11>>*/ caml_call1
+      /*<<digest.ml:88:4>>*/ return  /*<<digest.ml:88:11>>*/ string
+              /*<<digest.ml:88:11>>*/ ( /*<<digest.ml:88:11>>*/ caml_call1
                 /*<<digest.ml:88:11>>*/ (Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
      /*<<digest.ml:88:37>>*/ }
     function substring(str, ofs, len){
@@ -25807,8 +28383,8 @@
               /*<<digest.ml:93:4>>*/ (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
      /*<<digest.ml:93:44>>*/ }
     function subbytes(b, ofs, len){
-      /*<<digest.ml:96:4>>*/ return substring
-             ( /*<<digest.ml:96:14>>*/ caml_call1
+      /*<<digest.ml:96:4>>*/ return  /*<<digest.ml:96:4>>*/ substring
+              /*<<digest.ml:96:4>>*/ ( /*<<digest.ml:96:14>>*/ caml_call1
                 /*<<digest.ml:96:14>>*/ (Stdlib_Bytes[44], b),
               ofs,
               len) /*<<digest.ml:96:48>>*/ ;
@@ -25874,7 +28450,8 @@
               /*<<digest.ml:124:38>>*/ (Stdlib_In_channel[5],
               filename,
               function(ic){
-                /*<<digest.ml:124:49>>*/ return channel(ic, -1) /*<<digest.ml:124:64>>*/ ;
+                /*<<digest.ml:124:49>>*/ return  /*<<digest.ml:124:49>>*/ channel
+                        /*<<digest.ml:124:49>>*/ (ic, -1) /*<<digest.ml:124:64>>*/ ;
                /*<<digest.ml:124:64>>*/ }) /*<<digest.ml:124:65>>*/ ;
      /*<<digest.ml:124:65>>*/ }
     function output(chan, digest){
@@ -25889,14 +28466,16 @@
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
        /*<<digest.ml:131:43>>*/  /*<<digest.ml:131:43>>*/ caml_call1
         /*<<digest.ml:131:43>>*/ (Stdlib[1], cst_Digest_to_hex);
-      /*<<digest.ml:131:43>>*/ return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
+      /*<<digest.ml:131:43>>*/ return  /*<<digest.ml:131:43>>*/ hex_of_string
+              /*<<digest.ml:131:43>>*/ (d) /*<<digest.ml:132:19>>*/ ;
      /*<<digest.ml:132:19>>*/ }
     function of_hex(s){
       /*<<digest.ml:135:4>>*/ if
       (caml_ml_string_length(s) !== (hash_length * 2 | 0))
        /*<<digest.ml:135:47>>*/  /*<<digest.ml:135:47>>*/ caml_call1
         /*<<digest.ml:135:47>>*/ (Stdlib[1], cst_Digest_of_hex$0);
-      /*<<digest.ml:135:47>>*/ return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
+      /*<<digest.ml:135:47>>*/ return  /*<<digest.ml:135:47>>*/ string_of_hex
+              /*<<digest.ml:135:47>>*/ (s) /*<<digest.ml:136:19>>*/ ;
      /*<<digest.ml:136:19>>*/ }
      /*<<digest.ml:62:55>>*/ return [0,
             hash_length,
@@ -25927,8 +28506,8 @@
              /*<<digest.ml:159:4>>*/ (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
     /*<<digest.ml:159:43>>*/ }
    function bytes(b){
-     /*<<digest.ml:161:16>>*/ return string
-            ( /*<<digest.ml:161:23>>*/ caml_call1
+     /*<<digest.ml:161:16>>*/ return  /*<<digest.ml:161:23>>*/ string
+             /*<<digest.ml:161:23>>*/ ( /*<<digest.ml:161:23>>*/ caml_call1
                /*<<digest.ml:161:23>>*/ (Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
     /*<<digest.ml:161:49>>*/ }
    function substring(str, ofs, len){
@@ -25940,8 +28519,8 @@
              /*<<digest.ml:165:9>>*/ (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
     /*<<digest.ml:166:34>>*/ }
    function subbytes(b, ofs, len){
-     /*<<digest.ml:168:27>>*/ return substring
-            ( /*<<digest.ml:168:37>>*/ caml_call1
+     /*<<digest.ml:168:27>>*/ return  /*<<digest.ml:168:27>>*/ substring
+             /*<<digest.ml:168:27>>*/ ( /*<<digest.ml:168:37>>*/ caml_call1
                /*<<digest.ml:168:37>>*/ (Stdlib_Bytes[44], b),
              ofs,
              len) /*<<digest.ml:168:71>>*/ ;
@@ -25967,13 +28546,15 @@
      /*<<digest.ml:178:4>>*/ if(16 !== caml_ml_string_length(d))
       /*<<digest.ml:178:34>>*/  /*<<digest.ml:178:34>>*/ caml_call1
        /*<<digest.ml:178:34>>*/ (Stdlib[1], cst_Digest_to_hex$0);
-     /*<<digest.ml:178:34>>*/ return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
+     /*<<digest.ml:178:34>>*/ return  /*<<digest.ml:178:34>>*/ hex_of_string
+             /*<<digest.ml:178:34>>*/ (d) /*<<digest.ml:179:19>>*/ ;
     /*<<digest.ml:179:19>>*/ }
    function of_hex(s){
      /*<<digest.ml:182:4>>*/ if(32 !== caml_ml_string_length(s))
       /*<<digest.ml:182:34>>*/  /*<<digest.ml:182:34>>*/ caml_call1
        /*<<digest.ml:182:34>>*/ (Stdlib[1], cst_Digest_from_hex);
-     /*<<digest.ml:182:34>>*/ return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
+     /*<<digest.ml:182:34>>*/ return  /*<<digest.ml:182:34>>*/ string_of_hex
+             /*<<digest.ml:182:34>>*/ (s) /*<<digest.ml:183:19>>*/ ;
     /*<<digest.ml:183:19>>*/ }
    var
     Stdlib_Digest =
@@ -26115,7 +28696,8 @@
      var j = _al_;
      for(;;){
        /*<<bigarray.ml:110:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
-       /*<<bigarray.ml:111:11>>*/ cloop(arr, idx, f, col + 1 | 0, max);
+       /*<<bigarray.ml:111:11>>*/  /*<<bigarray.ml:111:11>>*/ cloop
+        /*<<bigarray.ml:111:11>>*/ (arr, idx, f, col + 1 | 0, max);
       var _an_ =  /*<<bigarray.ml:111:11>>*/ j + 1 | 0;
       if(_am_ === j) break;
       j = _an_;
@@ -26138,7 +28720,8 @@
      var j = _ai_;
      for(;;){
        /*<<bigarray.ml:116:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
-       /*<<bigarray.ml:117:11>>*/ floop(arr, idx, f, col - 1 | 0, max);
+       /*<<bigarray.ml:117:11>>*/  /*<<bigarray.ml:117:11>>*/ floop
+        /*<<bigarray.ml:117:11>>*/ (arr, idx, f, col - 1 | 0, max);
       var _ak_ =  /*<<bigarray.ml:117:11>>*/ j + 1 | 0;
       if(_aj_ === j) break;
       j = _ak_;
@@ -26152,16 +28735,16 @@
          /*<<bigarray.ml:120:14>>*/ (kind, layout, dims),
      dlen =  /*<<bigarray.ml:121:4>>*/ dims.length - 1;
      /*<<bigarray.ml:122:4>>*/ return layout
-            ? (floop
-               (arr,
+            ? ( /*<<bigarray.ml:124:24>>*/ floop
+                /*<<bigarray.ml:124:24>>*/ (arr,
                  /*<<bigarray.ml:124:34>>*/ caml_make_vect
                   /*<<bigarray.ml:124:34>>*/ (dlen, 1),
                 f,
                 dlen - 1 | 0,
                 dims),
               arr)
-            : (cloop
-               (arr,
+            : ( /*<<bigarray.ml:123:18>>*/ cloop
+                /*<<bigarray.ml:123:18>>*/ (arr,
                  /*<<bigarray.ml:123:28>>*/ caml_make_vect
                   /*<<bigarray.ml:123:28>>*/ (dlen, 0),
                 f,
@@ -26196,13 +28779,15 @@
     /*<<bigarray.ml:132:5>>*/ }
    function size_in_bytes(arr){
     var
-     _ac_ =  /*<<bigarray.ml:140:63>>*/ dims(arr),
+     _ac_ =
+        /*<<bigarray.ml:140:63>>*/  /*<<bigarray.ml:140:63>>*/ dims
+         /*<<bigarray.ml:140:63>>*/ (arr),
      _ad_ =
         /*<<bigarray.ml:140:38>>*/  /*<<bigarray.ml:140:38>>*/ caml_call3
          /*<<bigarray.ml:140:38>>*/ (Stdlib_Array[18], caml_mul, 1, _ac_);
      /*<<bigarray.ml:140:4>>*/ return  /*<<bigarray.ml:140:4>>*/ caml_mul
-             /*<<bigarray.ml:140:4>>*/ (kind_size_in_bytes
-              ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind
+             /*<<bigarray.ml:140:4>>*/ ( /*<<bigarray.ml:140:4>>*/ kind_size_in_bytes
+               /*<<bigarray.ml:140:4>>*/ ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind
                  /*<<bigarray.ml:140:24>>*/ (arr)),
              _ad_) /*<<bigarray.ml:140:74>>*/ ;
     /*<<bigarray.ml:140:74>>*/ }
@@ -26220,13 +28805,18 @@
       /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);} /*<<bigarray.ml:163:33>>*/ ;
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
-     /*<<bigarray.ml:170:26>>*/ return kind_size_in_bytes
-            ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind
+     /*<<bigarray.ml:170:26>>*/ return  /*<<bigarray.ml:170:45>>*/ kind_size_in_bytes
+             /*<<bigarray.ml:170:45>>*/ ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind
                /*<<bigarray.ml:170:45>>*/ (arr)) /*<<bigarray.ml:170:55>>*/ ;
     /*<<bigarray.ml:170:55>>*/ }
    function of_value(kind, layout, v){
-    var a =  /*<<bigarray.ml:176:12>>*/ create(kind, layout);
-     /*<<bigarray.ml:177:4>>*/ set(a)(v);
+    var
+     a =
+        /*<<bigarray.ml:176:12>>*/  /*<<bigarray.ml:176:12>>*/ create
+         /*<<bigarray.ml:176:12>>*/ (kind, layout);
+     /*<<bigarray.ml:177:4>>*/  /*<<bigarray.ml:177:4>>*/  /*<<bigarray.ml:177:4>>*/ set
+       /*<<bigarray.ml:177:4>>*/ (a)
+      /*<<bigarray.ml:177:4>>*/ (v);
      /*<<bigarray.ml:177:4>>*/ return a /*<<bigarray.ml:177:4>>*/ ;
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
@@ -26239,8 +28829,8 @@
         /*<<bigarray.ml:199:38>>*/  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1
          /*<<bigarray.ml:199:38>>*/ (arr);
      /*<<bigarray.ml:199:4>>*/ return  /*<<bigarray.ml:199:4>>*/ caml_mul
-             /*<<bigarray.ml:199:4>>*/ (kind_size_in_bytes
-              ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind
+             /*<<bigarray.ml:199:4>>*/ ( /*<<bigarray.ml:199:4>>*/ kind_size_in_bytes
+               /*<<bigarray.ml:199:4>>*/ ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind
                  /*<<bigarray.ml:199:24>>*/ (arr)),
              _$_) /*<<bigarray.ml:199:47>>*/ ;
     /*<<bigarray.ml:199:47>>*/ }
@@ -26253,7 +28843,10 @@
                /*<<bigarray.ml:204:19>>*/ (a, [0, n]) /*<<bigarray.ml:205:76>>*/ ;
     /*<<bigarray.ml:205:76>>*/ }
    function init$0(kind, layout, dim, f){
-    var arr =  /*<<bigarray.ml:213:14>>*/ create$0(kind, layout, dim);
+    var
+     arr =
+        /*<<bigarray.ml:213:14>>*/  /*<<bigarray.ml:213:14>>*/ create$0
+         /*<<bigarray.ml:213:14>>*/ (kind, layout, dim);
      /*<<bigarray.ml:214:4>>*/ if(layout){
      var _Z_ =  /*<<bigarray.ml:211:4>>*/ 1;
      if(dim >= 1){
@@ -26289,7 +28882,9 @@
     /*<<bigarray.ml:216:51>>*/ }
    function of_array(kind, layout, data){
     var
-     ba =  /*<<bigarray.ml:218:13>>*/ create$0(kind, layout, data.length - 1),
+     ba =
+        /*<<bigarray.ml:218:13>>*/  /*<<bigarray.ml:218:13>>*/ create$0
+         /*<<bigarray.ml:218:13>>*/ (kind, layout, data.length - 1),
      ofs =  /*<<bigarray.ml:219:4>>*/ layout ? 1 : 0,
      _U_ = data.length - 2 | 0,
      _T_ = 0;
@@ -26321,8 +28916,8 @@
          /*<<bigarray.ml:247:38>>*/ (arr);
     return caml_mul
             ( /*<<bigarray.ml:247:4>>*/ caml_mul
-               /*<<bigarray.ml:247:4>>*/ (kind_size_in_bytes
-                ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind
+               /*<<bigarray.ml:247:4>>*/ ( /*<<bigarray.ml:247:4>>*/ kind_size_in_bytes
+                 /*<<bigarray.ml:247:4>>*/ ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind
                    /*<<bigarray.ml:247:24>>*/ (arr)),
                _S_),
              _R_) /*<<bigarray.ml:247:61>>*/ ;
@@ -26336,7 +28931,10 @@
              /*<<bigarray.ml:255:24>>*/ (a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
     /*<<bigarray.ml:255:52>>*/ }
    function init$1(kind, layout, dim1, dim2, f){
-    var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
+    var
+     arr =
+        /*<<bigarray.ml:271:14>>*/  /*<<bigarray.ml:271:14>>*/ create$1
+         /*<<bigarray.ml:271:14>>*/ (kind, layout, dim1, dim2);
      /*<<bigarray.ml:272:4>>*/ if(layout){
      var _N_ =  /*<<bigarray.ml:265:4>>*/ 1;
      if(dim2 >= 1){
@@ -26397,7 +28995,9 @@
         /*<<bigarray.ml:277:4>>*/ 0 === dim1
         ? 0
         : caml_check_bound(data, 0)[1].length - 1,
-     ba =  /*<<bigarray.ml:278:13>>*/ create$1(kind, layout, dim1, dim2),
+     ba =
+        /*<<bigarray.ml:278:13>>*/  /*<<bigarray.ml:278:13>>*/ create$1
+         /*<<bigarray.ml:278:13>>*/ (kind, layout, dim1, dim2),
      ofs =  /*<<bigarray.ml:279:4>>*/ layout ? 1 : 0,
      _C_ =  /*<<bigarray.ml:284:4>>*/ dim1 - 1 | 0,
      _B_ = 0;
@@ -26449,8 +29049,8 @@
     return caml_mul
             (caml_mul
               ( /*<<bigarray.ml:316:4>>*/ caml_mul
-                 /*<<bigarray.ml:316:4>>*/ (kind_size_in_bytes
-                  ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind
+                 /*<<bigarray.ml:316:4>>*/ ( /*<<bigarray.ml:316:4>>*/ kind_size_in_bytes
+                   /*<<bigarray.ml:316:4>>*/ ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind
                      /*<<bigarray.ml:316:24>>*/ (arr)),
                  _A_),
                _z_),
@@ -26475,7 +29075,8 @@
    function init$2(kind, layout, dim1, dim2, dim3, f){
     var
      arr =
-        /*<<bigarray.ml:346:14>>*/ create$2(kind, layout, dim1, dim2, dim3);
+        /*<<bigarray.ml:346:14>>*/  /*<<bigarray.ml:346:14>>*/ create$2
+         /*<<bigarray.ml:346:14>>*/ (kind, layout, dim1, dim2, dim3);
      /*<<bigarray.ml:347:4>>*/ if(layout){
      var _s_ =  /*<<bigarray.ml:338:4>>*/ 1;
      if(dim3 >= 1){
@@ -26560,7 +29161,9 @@
         /*<<bigarray.ml:353:4>>*/ 0 === dim2
         ? 0
         : caml_check_bound(caml_check_bound(data, 0)[1], 0)[1].length - 1,
-     ba =  /*<<bigarray.ml:354:13>>*/ create$2(kind, layout, dim1, dim2, dim3),
+     ba =
+        /*<<bigarray.ml:354:13>>*/  /*<<bigarray.ml:354:13>>*/ create$2
+         /*<<bigarray.ml:354:13>>*/ (kind, layout, dim1, dim2, dim3),
      ofs =  /*<<bigarray.ml:355:4>>*/ layout ? 1 : 0,
      _b_ =  /*<<bigarray.ml:360:4>>*/ dim1 - 1 | 0,
      _a_ = 0;
@@ -26827,8 +29430,12 @@
              /*<<random.ml:37:4>>*/ (s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
     /*<<random.ml:37:55>>*/ }
    function mk(i1, i2, i3, i4){
-    var s =  /*<<random.ml:40:12>>*/ create(0);
-     /*<<random.ml:41:4>>*/ set(s, i1, i2, i3, i4);
+    var
+     s =
+        /*<<random.ml:40:12>>*/  /*<<random.ml:40:12>>*/ create
+         /*<<random.ml:40:12>>*/ (0);
+     /*<<random.ml:41:4>>*/  /*<<random.ml:41:4>>*/ set
+      /*<<random.ml:41:4>>*/ (s, i1, i2, i3, i4);
      /*<<random.ml:41:4>>*/ return s /*<<random.ml:41:4>>*/ ;
     /*<<random.ml:41:24>>*/ }
    var
@@ -26900,10 +29507,14 @@
      i4 =
         /*<<random.ml:82:13>>*/  /*<<random.ml:82:13>>*/ caml_call2
          /*<<random.ml:82:13>>*/ (Stdlib_String[64], buf, 29);
-     /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4) /*<<random.ml:83:18>>*/ ;
+     /*<<random.ml:83:4>>*/ return  /*<<random.ml:83:4>>*/ mk
+             /*<<random.ml:83:4>>*/ (i1, i2, i3, i4) /*<<random.ml:83:18>>*/ ;
     /*<<random.ml:83:18>>*/ }
    function copy(src){
-    var dst =  /*<<random.ml:89:13>>*/ create(0);
+    var
+     dst =
+        /*<<random.ml:89:13>>*/  /*<<random.ml:89:13>>*/ create
+         /*<<random.ml:89:13>>*/ (0);
      /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit
       /*<<random.ml:86:4>>*/ (src, dst);
      /*<<random.ml:89:25>>*/ return dst /*<<random.ml:89:25>>*/ ;
@@ -26951,8 +29562,8 @@
      _s_ =
         /*<<random.ml:107:10>>*/  /*<<random.ml:107:10>>*/ caml_call2
          /*<<random.ml:107:10>>*/ (Stdlib_String[64], d1, 8);
-     /*<<random.ml:109:10>>*/ return set
-            (s,
+     /*<<random.ml:109:10>>*/ return  /*<<random.ml:109:10>>*/ set
+             /*<<random.ml:109:10>>*/ (s,
               /*<<random.ml:106:10>>*/ caml_call2
                /*<<random.ml:106:10>>*/ (Stdlib_String[64], d1, 0),
              _s_,
@@ -26960,13 +29571,17 @@
              _q_) /*<<random.ml:109:36>>*/ ;
     /*<<random.ml:109:36>>*/ }
    function make(seed){
-    var s =  /*<<random.ml:112:12>>*/ create(0);
-     /*<<random.ml:112:24>>*/ reinit(s, seed);
+    var
+     s =
+        /*<<random.ml:112:12>>*/  /*<<random.ml:112:12>>*/ create
+         /*<<random.ml:112:12>>*/ (0);
+     /*<<random.ml:112:24>>*/  /*<<random.ml:112:24>>*/ reinit
+      /*<<random.ml:112:24>>*/ (s, seed);
      /*<<random.ml:112:24>>*/ return s /*<<random.ml:112:24>>*/ ;
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
-     /*<<random.ml:115:4>>*/ return make
-            ( /*<<random.ml:115:9>>*/ caml_sys_random_seed
+     /*<<random.ml:115:4>>*/ return  /*<<random.ml:115:9>>*/ make
+             /*<<random.ml:115:9>>*/ ( /*<<random.ml:115:9>>*/ caml_sys_random_seed
                /*<<random.ml:115:9>>*/ (0)) /*<<random.ml:115:25>>*/ ;
     /*<<random.ml:115:25>>*/ }
    var
@@ -27011,11 +29626,17 @@
        bound <= 1073741823
         ? max_int31
         : bound <= 2147483647 ? max_int32 : Stdlib[19];
-     /*<<random.ml:153:10>>*/ return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
+     /*<<random.ml:153:10>>*/ return  /*<<random.ml:153:10>>*/ int_aux
+             /*<<random.ml:153:10>>*/ (s, bound, _n_) /*<<random.ml:173:22>>*/ ;
     /*<<random.ml:173:22>>*/ }
    function int_in_range_aux(s, min, max, mask, nbits){
     var span = (max - min | 0) + 1 | 0;
-    if(span <= mask && 0 < span) return min + int_aux(s, span, mask) | 0;
+    if(span <= mask && 0 < span)
+     return min
+            +
+              /*<<random.ml:198:12>>*/ int_aux
+               /*<<random.ml:198:12>>*/ (s, span, mask)
+            | 0;
      /*<<random.ml:184:4>>*/ for(;;){
      var
       drop = Stdlib_Sys[10] - nbits | 0,
@@ -27034,13 +29655,13 @@
       /*<<random.ml:207:6>>*/  /*<<random.ml:207:6>>*/ caml_call1
        /*<<random.ml:207:6>>*/ (Stdlib[1], cst_Random_int_in_range);
     if(-1073741824 <= min && max <= 1073741823)
-      /*<<random.ml:215:6>>*/ return int_in_range_aux
-             (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
+      /*<<random.ml:215:6>>*/ return  /*<<random.ml:215:6>>*/ int_in_range_aux
+              /*<<random.ml:215:6>>*/ (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
     if(-2147483648 <= min && max <= 2147483647)
-      /*<<random.ml:217:6>>*/ return int_in_range_aux
-             (s, min, max, max_int32, 32) /*<<random.ml:219:68>>*/ ;
-     /*<<random.ml:219:6>>*/ return int_in_range_aux
-            (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
+      /*<<random.ml:217:6>>*/ return  /*<<random.ml:217:6>>*/ int_in_range_aux
+              /*<<random.ml:217:6>>*/ (s, min, max, max_int32, 32) /*<<random.ml:219:68>>*/ ;
+     /*<<random.ml:219:6>>*/ return  /*<<random.ml:219:6>>*/ int_in_range_aux
+             /*<<random.ml:219:6>>*/ (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
     /*<<random.ml:219:68>>*/ }
    function bits32(s){
      /*<<random.ml:223:4>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
@@ -27050,7 +29671,11 @@
    function int32aux(s, n){
      /*<<random.ml:227:4>>*/ for(;;){
      var
-      r =  /*<<random.ml:227:12>>*/ bits32(s) >>> 1 | 0,
+      r =
+         /*<<random.ml:227:12>>*/  /*<<random.ml:227:38>>*/ bits32
+          /*<<random.ml:227:38>>*/ (s)
+        >>> 1
+        | 0,
       v =
          /*<<random.ml:228:12>>*/  /*<<random.ml:228:12>>*/ caml_mod
           /*<<random.ml:228:12>>*/ (r, n);
@@ -27067,7 +29692,8 @@
               /*<<random.ml:235:7>>*/ (bound, 0)
             ?  /*<<random.ml:236:9>>*/ caml_call1
                /*<<random.ml:236:9>>*/ (Stdlib[1], cst_Random_int32)
-            : int32aux(s, bound) /*<<random.ml:237:25>>*/ ;
+            :  /*<<random.ml:237:9>>*/ int32aux
+               /*<<random.ml:237:9>>*/ (s, bound) /*<<random.ml:237:25>>*/ ;
     /*<<random.ml:237:25>>*/ }
    function int32_in_range(s, min, max){
      /*<<random.ml:246:4>>*/ if
@@ -27083,7 +29709,11 @@
      (!
        /*<<random.ml:251:9>>*/ caml_lessequal
         /*<<random.ml:251:9>>*/ (span, Stdlib_Int32[1]))
-      /*<<random.ml:254:8>>*/ return min + int32aux(s, span) | 0 /*<<random.ml:254:8>>*/ ;
+      /*<<random.ml:254:8>>*/ return min
+            +
+              /*<<random.ml:254:22>>*/ int32aux
+               /*<<random.ml:254:22>>*/ (s, span)
+            | 0 /*<<random.ml:254:8>>*/ ;
      /*<<random.ml:242:4>>*/ for(;;){
      var
       r =
@@ -27134,7 +29764,8 @@
               /*<<random.ml:270:7>>*/ (bound, _g_)
             ?  /*<<random.ml:271:9>>*/ caml_call1
                /*<<random.ml:271:9>>*/ (Stdlib[1], cst_Random_int64)
-            : int64aux(s, bound) /*<<random.ml:272:25>>*/ ;
+            :  /*<<random.ml:272:9>>*/ int64aux
+               /*<<random.ml:272:9>>*/ (s, bound) /*<<random.ml:272:25>>*/ ;
     /*<<random.ml:272:25>>*/ }
    function int64_in_range(s, min, max){
      /*<<random.ml:281:4>>*/ if
@@ -27153,7 +29784,9 @@
        /*<<random.ml:286:9>>*/ caml_lessequal
         /*<<random.ml:286:9>>*/ (span, Stdlib_Int64[1]))
       /*<<random.ml:289:8>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
-              /*<<random.ml:289:8>>*/ (min, int64aux(s, span)) /*<<random.ml:289:39>>*/ ;
+              /*<<random.ml:289:8>>*/ (min,
+               /*<<random.ml:289:22>>*/ int64aux
+                /*<<random.ml:289:22>>*/ (s, span)) /*<<random.ml:289:39>>*/ ;
      /*<<random.ml:277:4>>*/ for(;;){
      var
       r =
@@ -27180,7 +29813,8 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s){
-          /*<<random.ml:294:18>>*/ return bits32(s) /*<<random.ml:294:47>>*/ ;
+          /*<<random.ml:294:18>>*/ return  /*<<random.ml:294:37>>*/ bits32
+                  /*<<random.ml:294:37>>*/ (s) /*<<random.ml:294:47>>*/ ;
          /*<<random.ml:294:47>>*/ }
        : function
         (s){
@@ -27192,13 +29826,14 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s, bound){
-          /*<<random.ml:300:24>>*/ return int32(s, bound) /*<<random.ml:300:79>>*/ ;
+          /*<<random.ml:300:24>>*/ return  /*<<random.ml:300:43>>*/ int32
+                  /*<<random.ml:300:43>>*/ (s, bound) /*<<random.ml:300:79>>*/ ;
          /*<<random.ml:300:79>>*/ }
        : function
         (s, bound){
           /*<<random.ml:301:24>>*/ return  /*<<random.ml:301:24>>*/ caml_int64_to_int32
-                  /*<<random.ml:301:24>>*/ (int64
-                   (s,
+                  /*<<random.ml:301:24>>*/ ( /*<<random.ml:301:43>>*/ int64
+                    /*<<random.ml:301:43>>*/ (s,
                      /*<<random.ml:301:52>>*/ caml_int64_of_int32
                       /*<<random.ml:301:52>>*/ (bound))) /*<<random.ml:301:79>>*/ ;
          /*<<random.ml:301:79>>*/ },
@@ -27206,13 +29841,14 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s, min, max){
-          /*<<random.ml:307:6>>*/ return int32_in_range(s, min, max) /*<<random.ml:308:68>>*/ ;
+          /*<<random.ml:307:6>>*/ return  /*<<random.ml:307:25>>*/ int32_in_range
+                  /*<<random.ml:307:25>>*/ (s, min, max) /*<<random.ml:308:68>>*/ ;
          /*<<random.ml:308:68>>*/ }
        : function
         (s, min, max){
           /*<<random.ml:310:6>>*/ return  /*<<random.ml:310:6>>*/ caml_int64_to_int32
-                  /*<<random.ml:310:6>>*/ (int64_in_range
-                   (s,
+                  /*<<random.ml:310:6>>*/ ( /*<<random.ml:310:25>>*/ int64_in_range
+                    /*<<random.ml:310:25>>*/ (s,
                      /*<<random.ml:311:13>>*/ caml_int64_of_int32
                       /*<<random.ml:311:13>>*/ (min),
                      /*<<random.ml:311:43>>*/ caml_int64_of_int32
@@ -27255,92 +29891,94 @@
      i4 =
         /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
          /*<<random.ml:258:4>>*/ (s);
-     /*<<random.ml:330:4>>*/ return mk(i1, i2, i3, i4) /*<<random.ml:330:18>>*/ ;
+     /*<<random.ml:330:4>>*/ return  /*<<random.ml:330:4>>*/ mk
+             /*<<random.ml:330:4>>*/ (i1, i2, i3, i4) /*<<random.ml:330:18>>*/ ;
     /*<<random.ml:330:18>>*/ }
    function mk_default(param){
-     /*<<random.ml:335:2>>*/ return mk(_m_, _l_, _k_, _j_) /*<<random.ml:338:31>>*/ ;
+     /*<<random.ml:335:2>>*/ return  /*<<random.ml:335:2>>*/ mk
+             /*<<random.ml:335:2>>*/ (_m_, _l_, _k_, _j_) /*<<random.ml:338:31>>*/ ;
     /*<<random.ml:338:31>>*/ }
    var
     random_key =
        /*<<random.ml:341:2>>*/  /*<<random.ml:341:2>>*/ caml_call2
         /*<<random.ml:341:2>>*/ (Stdlib_Domain[10][1], [0, split], mk_default);
    function bits$0(param){
-     /*<<random.ml:343:14>>*/ return bits
-            ( /*<<random.ml:343:25>>*/ caml_call1
+     /*<<random.ml:343:14>>*/ return  /*<<random.ml:343:25>>*/ bits
+             /*<<random.ml:343:25>>*/ ( /*<<random.ml:343:25>>*/ caml_call1
                /*<<random.ml:343:25>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
     /*<<random.ml:343:52>>*/ }
    function int$1(bound){
-     /*<<random.ml:344:16>>*/ return int$0
-            ( /*<<random.ml:344:26>>*/ caml_call1
+     /*<<random.ml:344:16>>*/ return  /*<<random.ml:344:16>>*/ int$0
+             /*<<random.ml:344:16>>*/ ( /*<<random.ml:344:26>>*/ caml_call1
                /*<<random.ml:344:26>>*/ (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:344:59>>*/ ;
     /*<<random.ml:344:59>>*/ }
    function full_int$0(bound){
-     /*<<random.ml:345:21>>*/ return full_int
-            ( /*<<random.ml:345:36>>*/ caml_call1
+     /*<<random.ml:345:21>>*/ return  /*<<random.ml:345:21>>*/ full_int
+             /*<<random.ml:345:21>>*/ ( /*<<random.ml:345:36>>*/ caml_call1
                /*<<random.ml:345:36>>*/ (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:345:69>>*/ ;
     /*<<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
+     /*<<random.ml:347:2>>*/ return  /*<<random.ml:347:2>>*/ int_in_range
+             /*<<random.ml:347:2>>*/ ( /*<<random.ml:347:21>>*/ caml_call1
                /*<<random.ml:347:21>>*/ (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:347:58>>*/ ;
     /*<<random.ml:347:58>>*/ }
    function int32$0(bound){
-     /*<<random.ml:348:18>>*/ return int32
-            ( /*<<random.ml:348:30>>*/ caml_call1
+     /*<<random.ml:348:18>>*/ return  /*<<random.ml:348:18>>*/ int32
+             /*<<random.ml:348:18>>*/ ( /*<<random.ml:348:30>>*/ caml_call1
                /*<<random.ml:348:30>>*/ (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:348:63>>*/ ;
     /*<<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
+     /*<<random.ml:350:2>>*/ return  /*<<random.ml:350:2>>*/ int32_in_range
+             /*<<random.ml:350:2>>*/ ( /*<<random.ml:350:23>>*/ caml_call1
                /*<<random.ml:350:23>>*/ (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:350:60>>*/ ;
     /*<<random.ml:350:60>>*/ }
    function nativeint$0(bound){
-     /*<<random.ml:351:22>>*/ return nativeint
-            ( /*<<random.ml:351:38>>*/ caml_call1
+     /*<<random.ml:351:22>>*/ return  /*<<random.ml:351:22>>*/ nativeint
+             /*<<random.ml:351:22>>*/ ( /*<<random.ml:351:38>>*/ caml_call1
                /*<<random.ml:351:38>>*/ (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:351:71>>*/ ;
     /*<<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
+     /*<<random.ml:353:2>>*/ return  /*<<random.ml:353:2>>*/ nativeint_in_range
+             /*<<random.ml:353:2>>*/ ( /*<<random.ml:353:27>>*/ caml_call1
                /*<<random.ml:353:27>>*/ (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:353:64>>*/ ;
     /*<<random.ml:353:64>>*/ }
    function int64$0(bound){
-     /*<<random.ml:354:18>>*/ return int64
-            ( /*<<random.ml:354:30>>*/ caml_call1
+     /*<<random.ml:354:18>>*/ return  /*<<random.ml:354:18>>*/ int64
+             /*<<random.ml:354:18>>*/ ( /*<<random.ml:354:30>>*/ caml_call1
                /*<<random.ml:354:30>>*/ (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:354:63>>*/ ;
     /*<<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
+     /*<<random.ml:356:2>>*/ return  /*<<random.ml:356:2>>*/ int64_in_range
+             /*<<random.ml:356:2>>*/ ( /*<<random.ml:356:23>>*/ caml_call1
                /*<<random.ml:356:23>>*/ (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:356:60>>*/ ;
     /*<<random.ml:356:60>>*/ }
    function float$1(scale){
-     /*<<random.ml:357:18>>*/ return float$0
-            ( /*<<random.ml:357:30>>*/ caml_call1
+     /*<<random.ml:357:18>>*/ return  /*<<random.ml:357:18>>*/ float$0
+             /*<<random.ml:357:18>>*/ ( /*<<random.ml:357:30>>*/ caml_call1
                /*<<random.ml:357:30>>*/ (Stdlib_Domain[10][2], random_key),
              scale) /*<<random.ml:357:63>>*/ ;
     /*<<random.ml:357:63>>*/ }
    function bool$0(param){
-     /*<<random.ml:358:14>>*/ return bool
-            ( /*<<random.ml:358:25>>*/ caml_call1
+     /*<<random.ml:358:14>>*/ return  /*<<random.ml:358:25>>*/ bool
+             /*<<random.ml:358:25>>*/ ( /*<<random.ml:358:25>>*/ caml_call1
                /*<<random.ml:358:25>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
     /*<<random.ml:358:52>>*/ }
    function bits32$0(param){
-     /*<<random.ml:359:16>>*/ return bits32
-            ( /*<<random.ml:359:29>>*/ caml_call1
+     /*<<random.ml:359:16>>*/ return  /*<<random.ml:359:29>>*/ bits32
+             /*<<random.ml:359:29>>*/ ( /*<<random.ml:359:29>>*/ caml_call1
                /*<<random.ml:359:29>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
     /*<<random.ml:359:56>>*/ }
    function bits64$0(param){
@@ -27352,32 +29990,33 @@
              /*<<random.ml:258:4>>*/ (s) /*<<random.ml:360:56>>*/ ;
     /*<<random.ml:360:56>>*/ }
    function nativebits$0(param){
-     /*<<random.ml:361:20>>*/ return nativebits
-            ( /*<<random.ml:361:37>>*/ caml_call1
+     /*<<random.ml:361:20>>*/ return  /*<<random.ml:361:37>>*/ nativebits
+             /*<<random.ml:361:37>>*/ ( /*<<random.ml:361:37>>*/ caml_call1
                /*<<random.ml:361:37>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
     /*<<random.ml:361:64>>*/ }
    function full_init(seed){
-     /*<<random.ml:363:21>>*/ return reinit
-            ( /*<<random.ml:363:34>>*/ caml_call1
+     /*<<random.ml:363:21>>*/ return  /*<<random.ml:363:21>>*/ reinit
+             /*<<random.ml:363:21>>*/ ( /*<<random.ml:363:34>>*/ caml_call1
                /*<<random.ml:363:34>>*/ (Stdlib_Domain[10][2], random_key),
              seed) /*<<random.ml:363:66>>*/ ;
     /*<<random.ml:363:66>>*/ }
    function init(seed){
-     /*<<random.ml:364:16>>*/ return full_init([0, seed]) /*<<random.ml:364:36>>*/ ;
+     /*<<random.ml:364:16>>*/ return  /*<<random.ml:364:26>>*/ full_init
+             /*<<random.ml:364:26>>*/ ([0, seed]) /*<<random.ml:364:36>>*/ ;
     /*<<random.ml:364:36>>*/ }
    function self_init(param){
-     /*<<random.ml:365:19>>*/ return full_init
-            ( /*<<random.ml:365:29>>*/ caml_sys_random_seed
+     /*<<random.ml:365:19>>*/ return  /*<<random.ml:365:29>>*/ full_init
+             /*<<random.ml:365:29>>*/ ( /*<<random.ml:365:29>>*/ caml_sys_random_seed
                /*<<random.ml:365:29>>*/ (0)) /*<<random.ml:365:44>>*/ ;
     /*<<random.ml:365:44>>*/ }
    function split$0(param){
-     /*<<random.ml:369:15>>*/ return split
-            ( /*<<random.ml:369:27>>*/ caml_call1
+     /*<<random.ml:369:15>>*/ return  /*<<random.ml:369:27>>*/ split
+             /*<<random.ml:369:27>>*/ ( /*<<random.ml:369:27>>*/ caml_call1
                /*<<random.ml:369:27>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
     /*<<random.ml:369:54>>*/ }
    function get_state(param){
-     /*<<random.ml:373:19>>*/ return copy
-            ( /*<<random.ml:373:30>>*/ caml_call1
+     /*<<random.ml:373:19>>*/ return  /*<<random.ml:373:30>>*/ copy
+             /*<<random.ml:373:30>>*/ ( /*<<random.ml:373:30>>*/ caml_call1
                /*<<random.ml:373:30>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
     /*<<random.ml:373:57>>*/ }
    function set_state(src){
@@ -27561,7 +30200,9 @@
         ? opt[1]
         :  /*<<hashtbl.ml:73:22>>*/ caml_call1
            /*<<hashtbl.ml:73:22>>*/ (Stdlib_Atomic[3], randomized),
-     s =  /*<<hashtbl.ml:74:10>>*/ power_2_above(16, initial_size);
+     s =
+        /*<<hashtbl.ml:74:10>>*/  /*<<hashtbl.ml:74:10>>*/ power_2_above
+         /*<<hashtbl.ml:74:10>>*/ (16, initial_size);
      /*<<hashtbl.ml:75:2>>*/ if(random)
      var
       _ak_ =
@@ -27610,7 +30251,8 @@
         0);
      return 0;
     }
-     /*<<hashtbl.ml:90:4>>*/ return clear(h) /*<<hashtbl.ml:94:5>>*/ ;
+     /*<<hashtbl.ml:90:4>>*/ return  /*<<hashtbl.ml:90:4>>*/ clear
+             /*<<hashtbl.ml:90:4>>*/ (h) /*<<hashtbl.ml:94:5>>*/ ;
     /*<<hashtbl.ml:94:5>>*/ }
    function copy_bucketlist(param){
      /*<<hashtbl.ml:96:22>>*/ if(! param)
@@ -27719,18 +30361,27 @@
      ndata =
         /*<<hashtbl.ml:150:16>>*/  /*<<hashtbl.ml:150:16>>*/ caml_make_vect
          /*<<hashtbl.ml:150:16>>*/ (nsize, 0),
-     inplace =  /*<<hashtbl.ml:151:22>>*/ 1 - ongoing_traversal(h);
+     inplace =
+        /*<<hashtbl.ml:151:22>>*/ 1
+       -
+         /*<<hashtbl.ml:151:22>>*/ ongoing_traversal
+          /*<<hashtbl.ml:151:22>>*/ (h);
     h[2] = ndata;
-     /*<<hashtbl.ml:153:4>>*/ return insert_all_buckets
-            ( /*<<hashtbl.ml:153:23>>*/ caml_call1
+     /*<<hashtbl.ml:153:4>>*/ return  /*<<hashtbl.ml:153:4>>*/ insert_all_buckets
+             /*<<hashtbl.ml:153:4>>*/ ( /*<<hashtbl.ml:153:23>>*/ caml_call1
                /*<<hashtbl.ml:153:23>>*/ (indexfun, h),
              inplace,
              odata,
              ndata) /*<<hashtbl.ml:154:5>>*/ ;
     /*<<hashtbl.ml:154:5>>*/ }
    function iter(f, h){
-    var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
-    if(1 - old_trav)  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
+    var
+     old_trav =
+        /*<<hashtbl.ml:162:17>>*/  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal
+         /*<<hashtbl.ml:162:17>>*/ (h);
+    if(1 - old_trav)
+      /*<<hashtbl.ml:163:23>>*/  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal
+       /*<<hashtbl.ml:163:23>>*/ (h);
      /*<<hashtbl.ml:163:23>>*/ try{
      var d = h[2], _W_ = d.length - 2 | 0, _V_ = 0;
      if(_W_ >= 0){
@@ -27749,21 +30400,34 @@
        i = _Z_;
       }
      }
-     var _X_ = 1 - old_trav, _Y_ = _X_ ? flip_ongoing_traversal(h) : _X_;
+     var
+      _X_ = 1 - old_trav,
+      _Y_ =
+        _X_
+         ?  /*<<hashtbl.ml:169:25>>*/ flip_ongoing_traversal
+            /*<<hashtbl.ml:169:25>>*/ (h)
+         : _X_;
       /*<<hashtbl.ml:169:25>>*/ return _Y_ /*<<hashtbl.ml:169:25>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:170:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
-      /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:171:4>>*/  /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal
+       /*<<hashtbl.ml:171:4>>*/ (h);
       /*<<hashtbl.ml:172:4>>*/ throw  /*<<hashtbl.ml:172:4>>*/ caml_maybe_attach_backtrace
              /*<<hashtbl.ml:172:4>>*/ (exn, 0);
     }
     /*<<hashtbl.ml:172:13>>*/ }
    function filter_map_inplace(f, h){
-    var d = h[2], old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
-    if(1 - old_trav)  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
+    var
+     d = h[2],
+     old_trav =
+        /*<<hashtbl.ml:196:17>>*/  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal
+         /*<<hashtbl.ml:196:17>>*/ (h);
+    if(1 - old_trav)
+      /*<<hashtbl.ml:197:23>>*/  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal
+       /*<<hashtbl.ml:197:23>>*/ (h);
      /*<<hashtbl.ml:197:23>>*/ try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
      if(_R_ >= 0){
@@ -27803,21 +30467,33 @@
        i = _U_;
       }
      }
-     var _S_ = 1 - old_trav, _T_ = _S_ ? flip_ongoing_traversal(h) : _S_;
+     var
+      _S_ = 1 - old_trav,
+      _T_ =
+        _S_
+         ?  /*<<hashtbl.ml:202:25>>*/ flip_ongoing_traversal
+            /*<<hashtbl.ml:202:25>>*/ (h)
+         : _S_;
       /*<<hashtbl.ml:202:25>>*/ return _T_ /*<<hashtbl.ml:202:25>>*/ ;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:203:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
-      /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:204:4>>*/  /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal
+       /*<<hashtbl.ml:204:4>>*/ (h);
       /*<<hashtbl.ml:205:4>>*/ throw  /*<<hashtbl.ml:205:4>>*/ caml_maybe_attach_backtrace
              /*<<hashtbl.ml:205:4>>*/ (exn, 0);
     }
     /*<<hashtbl.ml:205:13>>*/ }
    function fold(f, h, init){
-    var old_trav =  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal(h);
-    if(1 - old_trav)  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
+    var
+     old_trav =
+        /*<<hashtbl.ml:214:17>>*/  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal
+         /*<<hashtbl.ml:214:17>>*/ (h);
+    if(1 - old_trav)
+      /*<<hashtbl.ml:215:23>>*/  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal
+       /*<<hashtbl.ml:215:23>>*/ (h);
      /*<<hashtbl.ml:215:23>>*/ try{
      var
       d = h[2],
@@ -27850,7 +30526,9 @@
        i = _P_;
       }
      }
-     if(1 - old_trav)  /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal(h);
+     if(1 - old_trav)
+       /*<<hashtbl.ml:222:25>>*/  /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal
+        /*<<hashtbl.ml:222:25>>*/ (h);
      var _O_ = accu$1[1];
      return _O_;
     }
@@ -27858,7 +30536,8 @@
      var exn = caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:224:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
-      /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:225:4>>*/  /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal
+       /*<<hashtbl.ml:225:4>>*/ (h);
       /*<<hashtbl.ml:226:4>>*/ throw  /*<<hashtbl.ml:226:4>>*/ caml_maybe_attach_backtrace
              /*<<hashtbl.ml:226:4>>*/ (exn, 0);
     }
@@ -27881,7 +30560,10 @@
         /*<<hashtbl.ml:241:4>>*/  /*<<hashtbl.ml:241:4>>*/ caml_call3
          /*<<hashtbl.ml:241:4>>*/ (Stdlib_Array[18],
          function(m, b){
-          var _L_ =  /*<<hashtbl.ml:241:42>>*/ bucket_length(0, b);
+          var
+           _L_ =
+              /*<<hashtbl.ml:241:42>>*/  /*<<hashtbl.ml:241:42>>*/ bucket_length
+               /*<<hashtbl.ml:241:42>>*/ (0, b);
            /*<<hashtbl.ml:241:42>>*/ return  /*<<hashtbl.ml:241:42>>*/ caml_call2
                    /*<<hashtbl.ml:241:42>>*/ (Stdlib_Int[11], m, _L_) /*<<hashtbl.ml:241:61>>*/ ;
           /*<<hashtbl.ml:241:61>>*/ },
@@ -27893,7 +30575,10 @@
      /*<<hashtbl.ml:243:2>>*/  /*<<hashtbl.ml:243:2>>*/ caml_call2
       /*<<hashtbl.ml:243:2>>*/ (Stdlib_Array[12],
       function(b){
-       var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
+       var
+        l =
+           /*<<hashtbl.ml:245:14>>*/  /*<<hashtbl.ml:245:14>>*/ bucket_length
+            /*<<hashtbl.ml:245:14>>*/ (0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
         caml_check_bound(histo, l)[1 + l] + 1 | 0;
         /*<<hashtbl.ml:246:6>>*/ return 0 /*<<hashtbl.ml:246:6>>*/ ;
@@ -27927,14 +30612,20 @@
       /*<<?>>*/ return aux(_I_, _H_, _J_);} /*<<hashtbl.ml:268:2>>*/ ;
     /*<<hashtbl.ml:268:13>>*/ }
    function to_seq_keys(m){
-    var _F_ =  /*<<hashtbl.ml:270:32>>*/ to_seq(m);
+    var
+     _F_ =
+        /*<<hashtbl.ml:270:32>>*/  /*<<hashtbl.ml:270:32>>*/ to_seq
+         /*<<hashtbl.ml:270:32>>*/ (m);
      /*<<hashtbl.ml:270:32>>*/ return  /*<<hashtbl.ml:270:32>>*/ caml_call2
              /*<<hashtbl.ml:270:32>>*/ (Stdlib_Seq[29],
              function(_G_){ /*<<?>>*/ return _G_[1];},
              _F_) /*<<hashtbl.ml:270:42>>*/ ;
     /*<<hashtbl.ml:270:42>>*/ }
    function to_seq_values(m){
-    var _D_ =  /*<<hashtbl.ml:272:34>>*/ to_seq(m);
+    var
+     _D_ =
+        /*<<hashtbl.ml:272:34>>*/  /*<<hashtbl.ml:272:34>>*/ to_seq
+         /*<<hashtbl.ml:272:34>>*/ (m);
      /*<<hashtbl.ml:272:34>>*/ return  /*<<hashtbl.ml:272:34>>*/ caml_call2
              /*<<hashtbl.ml:272:34>>*/ (Stdlib_Seq[29],
              function(_E_){ /*<<?>>*/ return _E_[2];},
@@ -27949,7 +30640,9 @@
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
      var
-      i =  /*<<hashtbl.ml:360:14>>*/ key_index(h, key),
+      i =
+         /*<<hashtbl.ml:360:14>>*/  /*<<hashtbl.ml:360:14>>*/ key_index
+          /*<<hashtbl.ml:360:14>>*/ (h, key),
       bucket =
          /*<<hashtbl.ml:361:23>>*/ [0,
          key,
@@ -27958,11 +30651,16 @@
       /*<<hashtbl.ml:362:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _B_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-     return _B_ ? resize(key_index, h) : _B_ /*<<hashtbl.ml:364:67>>*/ ;
+     return _B_
+             ?  /*<<hashtbl.ml:364:49>>*/ resize
+                /*<<hashtbl.ml:364:49>>*/ (key_index, h)
+             : _B_ /*<<hashtbl.ml:364:67>>*/ ;
      /*<<hashtbl.ml:364:67>>*/ }
     function remove(h, key){
      var
-      i =  /*<<hashtbl.ml:380:14>>*/ key_index(h, key),
+      i =
+         /*<<hashtbl.ml:380:14>>*/  /*<<hashtbl.ml:380:14>>*/ key_index
+          /*<<hashtbl.ml:380:14>>*/ (h, key),
       c =  /*<<hashtbl.ml:381:34>>*/ caml_check_bound(h[2], i)[1 + i],
       prec$0 = 0,
       prec = c;
@@ -27984,7 +30682,9 @@
      /*<<hashtbl.ml:381:44>>*/ }
     function find(h, key){
      var
-      _A_ =  /*<<hashtbl.ml:390:20>>*/ key_index(h, key),
+      _A_ =
+         /*<<hashtbl.ml:390:20>>*/  /*<<hashtbl.ml:390:20>>*/ key_index
+          /*<<hashtbl.ml:390:20>>*/ (h, key),
       match =  /*<<hashtbl.ml:390:12>>*/ caml_check_bound(h[2], _A_)[1 + _A_];
      if(! match)
        /*<<hashtbl.ml:391:17>>*/ throw  /*<<hashtbl.ml:391:17>>*/ caml_maybe_attach_backtrace
@@ -28025,7 +30725,9 @@
      /*<<hashtbl.ml:401:67>>*/ }
     function find_opt(h, key){
      var
-      _z_ =  /*<<hashtbl.ml:410:20>>*/ key_index(h, key),
+      _z_ =
+         /*<<hashtbl.ml:410:20>>*/  /*<<hashtbl.ml:410:20>>*/ key_index
+          /*<<hashtbl.ml:410:20>>*/ (h, key),
       match =  /*<<hashtbl.ml:410:12>>*/ caml_check_bound(h[2], _z_)[1 + _z_];
      if(! match)
        /*<<hashtbl.ml:411:17>>*/ return 0 /*<<hashtbl.ml:411:17>>*/ ;
@@ -28062,7 +30764,9 @@
      /*<<hashtbl.ml:421:76>>*/ }
     function find_all(h, key){
      var
-      _y_ =  /*<<hashtbl.ml:431:29>>*/ key_index(h, key),
+      _y_ =
+         /*<<hashtbl.ml:431:29>>*/  /*<<hashtbl.ml:431:29>>*/ key_index
+          /*<<hashtbl.ml:431:29>>*/ (h, key),
       param = caml_check_bound(h[2], _y_)[1 + _y_];
       /*<<hashtbl.ml:424:47>>*/ for(;;){
       if(! param)
@@ -28100,7 +30804,9 @@
      /*<<hashtbl.ml:431:45>>*/ }
     function replace(h, key, data){
      var
-      i =  /*<<hashtbl.ml:442:14>>*/ key_index(h, key),
+      i =
+         /*<<hashtbl.ml:442:14>>*/  /*<<hashtbl.ml:442:14>>*/ key_index
+          /*<<hashtbl.ml:442:14>>*/ (h, key),
       l =  /*<<hashtbl.ml:443:14>>*/ caml_check_bound(h[2], i)[1 + i],
       slot = l;
       /*<<hashtbl.ml:433:27>>*/ for(;;){
@@ -28124,7 +30830,8 @@
        h[1] = h[1] + 1 | 0;
        var _w_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
        if(_w_)
-         /*<<hashtbl.ml:447:51>>*/ return resize(key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
+         /*<<hashtbl.ml:447:51>>*/ return  /*<<hashtbl.ml:447:51>>*/ resize
+                 /*<<hashtbl.ml:447:51>>*/ (key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
        var _x_ = _w_;
       }
       else
@@ -28134,7 +30841,9 @@
      /*<<hashtbl.ml:448:9>>*/ }
     function mem(h, key){
      var
-      _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
+      _u_ =
+         /*<<hashtbl.ml:457:32>>*/  /*<<hashtbl.ml:457:32>>*/ key_index
+          /*<<hashtbl.ml:457:32>>*/ (h, key),
       param = caml_check_bound(h[2], _u_)[1 + _u_];
       /*<<hashtbl.ml:450:26>>*/ for(;;){
       if(! param)
@@ -28155,7 +30864,8 @@
               /*<<hashtbl.ml:460:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v) /*<<hashtbl.ml:460:41>>*/ ;
+                /*<<hashtbl.ml:460:29>>*/ return  /*<<hashtbl.ml:460:29>>*/ add
+                        /*<<hashtbl.ml:460:29>>*/ (tbl, k, v) /*<<hashtbl.ml:460:41>>*/ ;
                /*<<hashtbl.ml:460:41>>*/ },
               i) /*<<hashtbl.ml:460:43>>*/ ;
      /*<<hashtbl.ml:460:43>>*/ }
@@ -28164,13 +30874,18 @@
               /*<<hashtbl.ml:463:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:463:45>>*/ ;
+                /*<<hashtbl.ml:463:29>>*/ return  /*<<hashtbl.ml:463:29>>*/ replace
+                        /*<<hashtbl.ml:463:29>>*/ (tbl, k, v) /*<<hashtbl.ml:463:45>>*/ ;
                /*<<hashtbl.ml:463:45>>*/ },
               i) /*<<hashtbl.ml:463:47>>*/ ;
      /*<<hashtbl.ml:463:47>>*/ }
     function of_seq(i){
-     var tbl =  /*<<hashtbl.ml:466:16>>*/ create(0, 16);
-      /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
+     var
+      tbl =
+         /*<<hashtbl.ml:466:16>>*/  /*<<hashtbl.ml:466:16>>*/ create
+          /*<<hashtbl.ml:466:16>>*/ (0, 16);
+      /*<<hashtbl.ml:467:6>>*/  /*<<hashtbl.ml:467:6>>*/ replace_seq
+       /*<<hashtbl.ml:467:6>>*/ (tbl, i);
       /*<<hashtbl.ml:467:6>>*/ return tbl /*<<hashtbl.ml:467:6>>*/ ;
      /*<<hashtbl.ml:468:9>>*/ }
      /*<<hashtbl.ml:347:2>>*/ return [0,
@@ -28286,7 +31001,9 @@
     /*<<hashtbl.ml:508:59>>*/ }
    function add(h, key, data){
     var
-     i =  /*<<hashtbl.ml:511:10>>*/ key_index(h, key),
+     i =
+        /*<<hashtbl.ml:511:10>>*/  /*<<hashtbl.ml:511:10>>*/ key_index
+         /*<<hashtbl.ml:511:10>>*/ (h, key),
      bucket =
         /*<<hashtbl.ml:512:19>>*/ [0,
         key,
@@ -28295,11 +31012,16 @@
      /*<<hashtbl.ml:513:2>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
     h[1] = h[1] + 1 | 0;
     var _r_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-    return _r_ ? resize(key_index, h) : _r_ /*<<hashtbl.ml:515:63>>*/ ;
+    return _r_
+            ?  /*<<hashtbl.ml:515:45>>*/ resize
+               /*<<hashtbl.ml:515:45>>*/ (key_index, h)
+            : _r_ /*<<hashtbl.ml:515:63>>*/ ;
     /*<<hashtbl.ml:515:63>>*/ }
    function remove(h, key){
     var
-     i =  /*<<hashtbl.ml:531:10>>*/ key_index(h, key),
+     i =
+        /*<<hashtbl.ml:531:10>>*/  /*<<hashtbl.ml:531:10>>*/ key_index
+         /*<<hashtbl.ml:531:10>>*/ (h, key),
      c =  /*<<hashtbl.ml:532:30>>*/ caml_check_bound(h[2], i)[1 + i],
      prec$0 = 0,
      prec = c;
@@ -28322,7 +31044,9 @@
     /*<<hashtbl.ml:532:40>>*/ }
    function find(h, key){
     var
-     _q_ =  /*<<hashtbl.ml:541:16>>*/ key_index(h, key),
+     _q_ =
+        /*<<hashtbl.ml:541:16>>*/  /*<<hashtbl.ml:541:16>>*/ key_index
+         /*<<hashtbl.ml:541:16>>*/ (h, key),
      match =  /*<<hashtbl.ml:541:8>>*/ caml_check_bound(h[2], _q_)[1 + _q_];
     if(! match)
       /*<<hashtbl.ml:542:13>>*/ throw  /*<<hashtbl.ml:542:13>>*/ caml_maybe_attach_backtrace
@@ -28371,7 +31095,9 @@
     /*<<hashtbl.ml:552:67>>*/ }
    function find_opt(h, key){
     var
-     _p_ =  /*<<hashtbl.ml:561:16>>*/ key_index(h, key),
+     _p_ =
+        /*<<hashtbl.ml:561:16>>*/  /*<<hashtbl.ml:561:16>>*/ key_index
+         /*<<hashtbl.ml:561:16>>*/ (h, key),
      match =  /*<<hashtbl.ml:561:8>>*/ caml_check_bound(h[2], _p_)[1 + _p_];
     if(! match)
       /*<<hashtbl.ml:562:13>>*/ return 0 /*<<hashtbl.ml:562:13>>*/ ;
@@ -28415,7 +31141,9 @@
     /*<<hashtbl.ml:572:76>>*/ }
    function find_all(h, key){
     var
-     _o_ =  /*<<hashtbl.ml:582:25>>*/ key_index(h, key),
+     _o_ =
+        /*<<hashtbl.ml:582:25>>*/  /*<<hashtbl.ml:582:25>>*/ key_index
+         /*<<hashtbl.ml:582:25>>*/ (h, key),
      param = caml_check_bound(h[2], _o_)[1 + _o_];
      /*<<hashtbl.ml:575:43>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0 /*<<hashtbl.ml:577:6>>*/ ;
@@ -28456,7 +31184,9 @@
     /*<<hashtbl.ml:582:41>>*/ }
    function replace(h, key, data){
     var
-     i =  /*<<hashtbl.ml:593:10>>*/ key_index(h, key),
+     i =
+        /*<<hashtbl.ml:593:10>>*/  /*<<hashtbl.ml:593:10>>*/ key_index
+         /*<<hashtbl.ml:593:10>>*/ (h, key),
      l =  /*<<hashtbl.ml:594:10>>*/ caml_check_bound(h[2], i)[1 + i],
      slot = l;
      /*<<hashtbl.ml:584:23>>*/ for(;;){
@@ -28481,7 +31211,8 @@
       h[1] = h[1] + 1 | 0;
       var _m_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
       if(_m_)
-        /*<<hashtbl.ml:598:47>>*/ return resize(key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
+        /*<<hashtbl.ml:598:47>>*/ return  /*<<hashtbl.ml:598:47>>*/ resize
+                /*<<hashtbl.ml:598:47>>*/ (key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
       var _n_ = _m_;
      }
      else
@@ -28491,7 +31222,9 @@
     /*<<hashtbl.ml:599:5>>*/ }
    function mem(h, key){
     var
-     _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
+     _k_ =
+        /*<<hashtbl.ml:608:28>>*/  /*<<hashtbl.ml:608:28>>*/ key_index
+         /*<<hashtbl.ml:608:28>>*/ (h, key),
      param = caml_check_bound(h[2], _k_)[1 + _k_];
      /*<<hashtbl.ml:601:22>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0 /*<<hashtbl.ml:603:6>>*/ ;
@@ -28514,7 +31247,8 @@
              /*<<hashtbl.ml:611:2>>*/ (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
-               /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v) /*<<hashtbl.ml:611:37>>*/ ;
+               /*<<hashtbl.ml:611:25>>*/ return  /*<<hashtbl.ml:611:25>>*/ add
+                       /*<<hashtbl.ml:611:25>>*/ (tbl, k, v) /*<<hashtbl.ml:611:37>>*/ ;
               /*<<hashtbl.ml:611:37>>*/ },
              i) /*<<hashtbl.ml:611:39>>*/ ;
     /*<<hashtbl.ml:611:39>>*/ }
@@ -28523,13 +31257,18 @@
              /*<<hashtbl.ml:614:2>>*/ (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
-               /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:614:41>>*/ ;
+               /*<<hashtbl.ml:614:25>>*/ return  /*<<hashtbl.ml:614:25>>*/ replace
+                       /*<<hashtbl.ml:614:25>>*/ (tbl, k, v) /*<<hashtbl.ml:614:41>>*/ ;
               /*<<hashtbl.ml:614:41>>*/ },
              i) /*<<hashtbl.ml:614:43>>*/ ;
     /*<<hashtbl.ml:614:43>>*/ }
    function of_seq(i){
-    var tbl =  /*<<hashtbl.ml:617:12>>*/ create(0, 16);
-     /*<<hashtbl.ml:618:2>>*/ replace_seq(tbl, i);
+    var
+     tbl =
+        /*<<hashtbl.ml:617:12>>*/  /*<<hashtbl.ml:617:12>>*/ create
+         /*<<hashtbl.ml:617:12>>*/ (0, 16);
+     /*<<hashtbl.ml:618:2>>*/  /*<<hashtbl.ml:618:2>>*/ replace_seq
+      /*<<hashtbl.ml:618:2>>*/ (tbl, i);
      /*<<hashtbl.ml:618:2>>*/ return tbl /*<<hashtbl.ml:618:2>>*/ ;
     /*<<hashtbl.ml:619:5>>*/ }
    function rebuild(opt, h){
@@ -28539,7 +31278,9 @@
         ? opt[1]
         :  /*<<hashtbl.ml:621:23>>*/ caml_call1
            /*<<hashtbl.ml:621:23>>*/ (Stdlib_Atomic[3], randomized),
-     s =  /*<<hashtbl.ml:622:10>>*/ power_2_above(16, h[2].length - 1);
+     s =
+        /*<<hashtbl.ml:622:10>>*/  /*<<hashtbl.ml:622:10>>*/ power_2_above
+         /*<<hashtbl.ml:622:10>>*/ (16, h[2].length - 1);
      /*<<hashtbl.ml:623:2>>*/ if(random)
      var
       _g_ =
@@ -28559,8 +31300,13 @@
           /*<<hashtbl.ml:629:11>>*/ (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>>*/  /*<<hashtbl.ml:633:2>>*/ insert_all_buckets
+      /*<<hashtbl.ml:633:2>>*/ (function(_i_){
+        /*<<?>>*/ return key_index(h$0, _i_);
+      },
+      0,
+      h[2],
+      h$0[2]);
      /*<<hashtbl.ml:633:2>>*/ return h$0 /*<<hashtbl.ml:633:2>>*/ ;
     /*<<hashtbl.ml:634:4>>*/ }
    var
@@ -28670,7 +31416,10 @@
    function raise_if_invalid_offset(e, o, msg){
     var
      _G_ = 0 <= o ? 1 : 0,
-     _H_ = _G_ ? o < length(e) ? 1 : 0 : _G_,
+     _H_ =
+       _G_
+        ? o <  /*<<weak.ml:36:24>>*/ length /*<<weak.ml:36:24>>*/ (e) ? 1 : 0
+        : _G_,
      _I_ = 1 - _H_;
     return _I_
             ?  /*<<weak.ml:37:4>>*/ caml_call1
@@ -28678,7 +31427,8 @@
             : _I_ /*<<weak.ml:37:20>>*/ ;
     /*<<weak.ml:37:20>>*/ }
    function set(e, o, x){
-     /*<<weak.ml:42:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_set);
+     /*<<weak.ml:42:2>>*/  /*<<weak.ml:42:2>>*/ raise_if_invalid_offset
+      /*<<weak.ml:42:2>>*/ (e, o, cst_Weak_set);
     if(! x)
       /*<<weak.ml:44:12>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
               /*<<weak.ml:44:12>>*/ (e, o) /*<<weak.ml:45:24>>*/ ;
@@ -28687,17 +31437,20 @@
              /*<<weak.ml:45:14>>*/ (e, o, x$0) /*<<weak.ml:45:24>>*/ ;
     /*<<weak.ml:45:24>>*/ }
    function get(e, o){
-     /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
+     /*<<weak.ml:49:2>>*/  /*<<weak.ml:49:2>>*/ raise_if_invalid_offset
+      /*<<weak.ml:49:2>>*/ (e, o, cst_Weak_get);
      /*<<weak.ml:50:2>>*/ return  /*<<weak.ml:50:2>>*/ runtime.caml_ephe_get_key
              /*<<weak.ml:50:2>>*/ (e, o) /*<<weak.ml:50:9>>*/ ;
     /*<<weak.ml:50:9>>*/ }
    function get_copy(e, o){
-     /*<<weak.ml:54:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get_copy);
+     /*<<weak.ml:54:2>>*/  /*<<weak.ml:54:2>>*/ raise_if_invalid_offset
+      /*<<weak.ml:54:2>>*/ (e, o, cst_Weak_get_copy);
      /*<<weak.ml:55:2>>*/ return  /*<<weak.ml:55:2>>*/ runtime.caml_ephe_get_key_copy
              /*<<weak.ml:55:2>>*/ (e, o) /*<<weak.ml:55:14>>*/ ;
     /*<<weak.ml:55:14>>*/ }
    function check(e, o){
-     /*<<weak.ml:59:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_check);
+     /*<<weak.ml:59:2>>*/  /*<<weak.ml:59:2>>*/ raise_if_invalid_offset
+      /*<<weak.ml:59:2>>*/ (e, o, cst_Weak_check);
      /*<<weak.ml:60:2>>*/ return  /*<<weak.ml:60:2>>*/ runtime.caml_ephe_check_key
              /*<<weak.ml:60:2>>*/ (e, o) /*<<weak.ml:60:11>>*/ ;
     /*<<weak.ml:60:11>>*/ }
@@ -28706,7 +31459,14 @@
      (0 <= l
       &&
        0 <= o1
-       && (length(e1) - l | 0) >= o1 && 0 <= o2 && (length(e2) - l | 0) >= o2){
+       &&
+        ( /*<<weak.ml:66:29>>*/ length /*<<weak.ml:66:29>>*/ (e1) - l | 0)
+        >= o1
+        &&
+         0 <= o2
+         &&
+          ( /*<<weak.ml:67:23>>*/ length /*<<weak.ml:67:23>>*/ (e2) - l | 0)
+          >= o2){
      var
       _E_ = 0 !== l ? 1 : 0,
       _F_ =
@@ -28721,12 +31481,18 @@
     /*<<weak.ml:69:40>>*/ }
    function fill(ar, ofs, len, x){
      /*<<weak.ml:72:2>>*/ if
-     (0 <= ofs && 0 <= len && (length(ar) - len | 0) >= ofs){
+     (0 <= ofs
+      &&
+       0 <= len
+       &&
+        ( /*<<weak.ml:72:33>>*/ length /*<<weak.ml:72:33>>*/ (ar) - len | 0)
+        >= ofs){
      var _C_ = (ofs + len | 0) - 1 | 0;
      if(_C_ >= ofs){
       var i = ofs;
       for(;;){
-        /*<<weak.ml:76:6>>*/ set(ar, i, x);
+        /*<<weak.ml:76:6>>*/  /*<<weak.ml:76:6>>*/ set
+         /*<<weak.ml:76:6>>*/ (ar, i, x);
        var _D_ =  /*<<weak.ml:76:6>>*/ i + 1 | 0;
        if(_C_ === i) break;
        i = _D_;
@@ -28738,7 +31504,10 @@
             /*<<weak.ml:73:7>>*/ ([0, Stdlib[6], cst_Weak_fill], 1);
     /*<<weak.ml:78:5>>*/ }
    function Make(H){
-    var emptybucket =  /*<<weak.ml:105:20>>*/ create(0);
+    var
+     emptybucket =
+        /*<<weak.ml:105:20>>*/  /*<<weak.ml:105:20>>*/ create
+         /*<<weak.ml:105:20>>*/ (0);
     function get_index(t, h){
       /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1) /*<<weak.ml:117:65>>*/ ;
      /*<<weak.ml:117:65>>*/ }
@@ -28779,9 +31548,14 @@
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
-                if(length(b) <= i$0)
+                if
+                 ( /*<<weak.ml:144:14>>*/ length /*<<weak.ml:144:14>>*/ (b)
+                  <= i$0)
                   /*<<weak.ml:144:28>>*/ return accu /*<<weak.ml:144:28>>*/ ;
-                var match =  /*<<weak.ml:145:12>>*/ get(b, i$0);
+                var
+                 match =
+                    /*<<weak.ml:145:12>>*/  /*<<weak.ml:145:12>>*/ get
+                     /*<<weak.ml:145:12>>*/ (b, i$0);
                 if(match){
                  var
                   v = match[1],
@@ -28805,9 +31579,14 @@
               function(b){
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
-                if(length(b) <= i$0)
+                if
+                 ( /*<<weak.ml:154:14>>*/ length /*<<weak.ml:154:14>>*/ (b)
+                  <= i$0)
                   /*<<weak.ml:154:28>>*/ return 0 /*<<weak.ml:154:28>>*/ ;
-                var match =  /*<<weak.ml:155:12>>*/ get(b, i$0);
+                var
+                 match =
+                    /*<<weak.ml:155:12>>*/  /*<<weak.ml:155:12>>*/ get
+                     /*<<weak.ml:155:12>>*/ (b, i$0);
                 if(match){
                  var v = match[1];
                   /*<<weak.ml:156:18>>*/  /*<<weak.ml:156:18>>*/ caml_call1
@@ -28823,10 +31602,14 @@
     function count_bucket(i, b, accu){
      var i$0 = i, accu$0 = accu;
       /*<<weak.ml:173:4>>*/ for(;;){
-      if(length(b) <= i$0)
+      if( /*<<weak.ml:173:12>>*/ length /*<<weak.ml:173:12>>*/ (b) <= i$0)
         /*<<weak.ml:173:26>>*/ return accu$0 /*<<weak.ml:173:26>>*/ ;
       var
-       _y_ =  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
+       _y_ =
+          /*<<weak.ml:174:37>>*/  /*<<weak.ml:174:37>>*/ check
+            /*<<weak.ml:174:37>>*/ (b, i$0)
+          ? 1
+          : 0,
        accu$1 = accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -28849,11 +31632,15 @@
          /*<<weak.ml:238:17>>*/ caml_check_bound(t[1], index)[1 + index],
       hashes =
          /*<<weak.ml:239:17>>*/ caml_check_bound(t[2], index)[1 + index],
-      sz =  /*<<weak.ml:240:13>>*/ length(bucket$0),
+      sz =
+         /*<<weak.ml:240:13>>*/  /*<<weak.ml:240:13>>*/ length
+          /*<<weak.ml:240:13>>*/ (bucket$0),
       i$3 = 0;
       /*<<weak.ml:242:6>>*/ for(;;){
       if(sz <= i$3) break;
-       /*<<weak.ml:260:18>>*/ if(! check(bucket$0, i$3)){
+       /*<<weak.ml:260:18>>*/ if
+       (!
+         /*<<weak.ml:260:18>>*/ check /*<<weak.ml:260:18>>*/ (bucket$0, i$3)){
         /*<<weak.ml:263:8>>*/  /*<<weak.ml:263:8>>*/ caml_call3
          /*<<weak.ml:263:8>>*/ (setter, bucket$0, i$3, d);
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
@@ -28872,11 +31659,14 @@
        /*<<weak.ml:246:28>>*/  /*<<weak.ml:246:28>>*/ caml_call1
         /*<<weak.ml:246:28>>*/ (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
      var
-      newbucket$0 =  /*<<weak.ml:247:24>>*/ create(newsz),
+      newbucket$0 =
+         /*<<weak.ml:247:24>>*/  /*<<weak.ml:247:24>>*/ create
+          /*<<weak.ml:247:24>>*/ (newsz),
       newhashes =
          /*<<weak.ml:248:24>>*/  /*<<weak.ml:248:24>>*/ caml_make_vect
           /*<<weak.ml:248:24>>*/ (newsz, 0);
-      /*<<weak.ml:249:8>>*/ blit(bucket$0, 0, newbucket$0, 0, sz);
+      /*<<weak.ml:249:8>>*/  /*<<weak.ml:249:8>>*/ blit
+       /*<<weak.ml:249:8>>*/ (bucket$0, 0, newbucket$0, 0, sz);
       /*<<weak.ml:250:8>>*/  /*<<weak.ml:250:8>>*/ caml_call5
        /*<<weak.ml:250:8>>*/ (Stdlib_Array[9], hashes, 0, newhashes, 0, sz);
       /*<<weak.ml:251:8>>*/  /*<<weak.ml:251:8>>*/ caml_call3
@@ -28894,22 +31684,30 @@
         bucket =  /*<<weak.ml:185:17>>*/ caml_check_bound(t[1], _h_)[1 + _h_],
         _i_ =  /*<<weak.ml:186:4>>*/ t[5],
         hbucket =  /*<<weak.ml:186:18>>*/ caml_check_bound(t[2], _i_)[1 + _i_],
-        len =  /*<<weak.ml:187:14>>*/ length(bucket),
+        len =
+           /*<<weak.ml:187:14>>*/  /*<<weak.ml:187:14>>*/ length
+            /*<<weak.ml:187:14>>*/ (bucket),
         prev_len = (((len - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0,
-        live =  /*<<weak.ml:189:15>>*/ count_bucket(0, bucket, 0);
+        live =
+           /*<<weak.ml:189:15>>*/  /*<<weak.ml:189:15>>*/ count_bucket
+            /*<<weak.ml:189:15>>*/ (0, bucket, 0);
        if(live <= prev_len){
         var
-         j$2 =  /*<<weak.ml:201:14>>*/ length(bucket) - 1 | 0,
+         j$2 =
+            /*<<weak.ml:201:14>>*/  /*<<weak.ml:201:14>>*/ length
+             /*<<weak.ml:201:14>>*/ (bucket)
+           - 1
+           | 0,
          i$0 = 0,
          j = j$2;
          /*<<weak.ml:192:8>>*/ for(;;){
          if(prev_len > j) break;
-          /*<<weak.ml:193:13>>*/ if(check(bucket, i$0)){
-          var i$1 = i$0 + 1 | 0;
-          i$0 = i$1;
-         }
-         else if(check(bucket, j)){
-           /*<<weak.ml:195:12>>*/ blit(bucket, j, bucket, i$0, 1);
+          /*<<weak.ml:193:13>>*/ if
+          ( /*<<weak.ml:193:13>>*/ check /*<<weak.ml:193:13>>*/ (bucket, i$0)){var i$1 = i$0 + 1 | 0; i$0 = i$1;}
+         else if
+          ( /*<<weak.ml:194:18>>*/ check /*<<weak.ml:194:18>>*/ (bucket, j)){
+           /*<<weak.ml:195:12>>*/  /*<<weak.ml:195:12>>*/ blit
+            /*<<weak.ml:195:12>>*/ (bucket, j, bucket, i$0, 1);
           var
            _j_ =  /*<<weak.ml:196:27>>*/ caml_check_bound(hbucket, j)[1 + j];
            /*<<weak.ml:196:12>>*/ caml_check_bound(hbucket, i$0)[1 + i$0] = _j_;
@@ -28926,8 +31724,12 @@
           /*<<weak.ml:204:8>>*/ caml_check_bound(t[2], _l_)[1 + _l_] = [0];
         }
         else{
-         var newbucket =  /*<<weak.ml:206:24>>*/ create(prev_len);
-          /*<<weak.ml:207:8>>*/ blit(bucket, 0, newbucket, 0, prev_len);
+         var
+          newbucket =
+             /*<<weak.ml:206:24>>*/  /*<<weak.ml:206:24>>*/ create
+              /*<<weak.ml:206:24>>*/ (prev_len);
+          /*<<weak.ml:207:8>>*/  /*<<weak.ml:207:8>>*/ blit
+           /*<<weak.ml:207:8>>*/ (bucket, 0, newbucket, 0, prev_len);
          var _o_ = t[5];
           /*<<weak.ml:208:8>>*/ caml_check_bound(t[1], _o_)[1 + _o_] = newbucket;
          var
@@ -28958,25 +31760,35 @@
           ((3 * oldlen | 0) / 2 | 0) + 3 | 0,
           Stdlib_Sys[13]);
      if(oldlen < newlen){
-      var newt =  /*<<weak.ml:220:17>>*/ create$0(newlen), i = 0;
+      var
+       newt =
+          /*<<weak.ml:220:17>>*/  /*<<weak.ml:220:17>>*/ create$0
+           /*<<weak.ml:220:17>>*/ (newlen),
+       i = 0;
        /*<<weak.ml:169:16>>*/  /*<<weak.ml:169:16>>*/ caml_call2
         /*<<weak.ml:169:16>>*/ (Stdlib_Array[13],
         function(j, ob){
          var oi = i;
           /*<<weak.ml:164:6>>*/ for(;;){
-          if(length(ob) <= oi)
+          if( /*<<weak.ml:164:14>>*/ length /*<<weak.ml:164:14>>*/ (ob) <= oi)
             /*<<weak.ml:164:28>>*/ return 0 /*<<weak.ml:164:28>>*/ ;
-          if(check(ob, oi)){
+          if( /*<<weak.ml:165:12>>*/ check /*<<weak.ml:165:12>>*/ (ob, oi)){
            var oh =  /*<<weak.ml:166:20>>*/ caml_check_bound(t[2], j)[1 + j];
            let oi$0 = oi;
            var
             setter =
               function(nb, ni, param){
-                /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
+                /*<<weak.ml:222:29>>*/ return  /*<<weak.ml:222:29>>*/ blit
+                        /*<<weak.ml:222:29>>*/ (ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
                /*<<weak.ml:222:47>>*/ },
             h =  /*<<weak.ml:223:16>>*/ caml_check_bound(oh, oi)[1 + oi];
-            /*<<weak.ml:224:35>>*/ add_aux
-            (newt, setter, 0, h, get_index(newt, h));
+            /*<<weak.ml:224:35>>*/  /*<<weak.ml:224:35>>*/ add_aux
+             /*<<weak.ml:224:35>>*/ (newt,
+             setter,
+             0,
+             h,
+              /*<<weak.ml:224:35>>*/ get_index
+               /*<<weak.ml:224:35>>*/ (newt, h));
            var i$0 = oi + 1 | 0;
            oi = i$0;
           }
@@ -29000,27 +31812,38 @@
       h =
          /*<<weak.ml:271:12>>*/  /*<<weak.ml:271:12>>*/ caml_call1
           /*<<weak.ml:271:12>>*/ (H[2], d);
-      /*<<weak.ml:272:29>>*/ return add_aux
-             (t, set, [0, d], h, get_index(t, h)) /*<<weak.ml:272:44>>*/ ;
+      /*<<weak.ml:272:29>>*/ return  /*<<weak.ml:272:29>>*/ add_aux
+              /*<<weak.ml:272:29>>*/ (t,
+              set,
+              [0, d],
+              h,
+               /*<<weak.ml:272:29>>*/ get_index /*<<weak.ml:272:29>>*/ (t, h)) /*<<weak.ml:272:44>>*/ ;
      /*<<weak.ml:272:44>>*/ }
     function find_aux(t, d, found, notfound){
      var
       h =
          /*<<weak.ml:278:12>>*/  /*<<weak.ml:278:12>>*/ caml_call1
           /*<<weak.ml:278:12>>*/ (H[2], d),
-      index =  /*<<weak.ml:279:16>>*/ get_index(t, h),
+      index =
+         /*<<weak.ml:279:16>>*/  /*<<weak.ml:279:16>>*/ get_index
+          /*<<weak.ml:279:16>>*/ (t, h),
       bucket =
          /*<<weak.ml:280:17>>*/ caml_check_bound(t[1], index)[1 + index],
       hashes =
          /*<<weak.ml:281:17>>*/ caml_check_bound(t[2], index)[1 + index],
-      sz =  /*<<weak.ml:282:13>>*/ length(bucket),
+      sz =
+         /*<<weak.ml:282:13>>*/  /*<<weak.ml:282:13>>*/ length
+          /*<<weak.ml:282:13>>*/ (bucket),
       i = 0;
       /*<<weak.ml:284:6>>*/ for(;;){
       if(sz <= i)
         /*<<weak.ml:279:16>>*/ return  /*<<weak.ml:279:16>>*/ caml_call2
                 /*<<weak.ml:279:16>>*/ (notfound, h, index) /*<<weak.ml:291:10>>*/ ;
       if(h === caml_check_bound(hashes, i)[1 + i]){
-       var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
+       var
+        opt =
+           /*<<weak.ml:286:14>>*/  /*<<weak.ml:286:14>>*/ get
+            /*<<weak.ml:286:14>>*/ (bucket, i);
        if(opt){
         var v = opt[1];
          /*<<weak.ml:287:29>>*/ if
@@ -29036,8 +31859,8 @@
      }
      /*<<weak.ml:291:10>>*/ }
     function find_opt(t, d){
-      /*<<weak.ml:293:21>>*/ return find_aux
-             (t,
+      /*<<weak.ml:293:21>>*/ return  /*<<weak.ml:294:34>>*/ find_aux
+              /*<<weak.ml:294:34>>*/ (t,
               d,
               function(b, i, o, v){
                 /*<<weak.ml:293:54>>*/ return o /*<<weak.ml:293:54>>*/ ;
@@ -29047,20 +31870,21 @@
                /*<<weak.ml:294:52>>*/ }) /*<<weak.ml:294:53>>*/ ;
      /*<<weak.ml:294:53>>*/ }
     function merge(t, d){
-      /*<<weak.ml:296:21>>*/ return find_aux
-             (t,
+      /*<<weak.ml:296:21>>*/ return  /*<<weak.ml:297:34>>*/ find_aux
+              /*<<weak.ml:297:34>>*/ (t,
               d,
               function(b, i, o, v){
                 /*<<weak.ml:296:54>>*/ return v /*<<weak.ml:296:54>>*/ ;
                /*<<weak.ml:296:55>>*/ },
               function(h, i){
-                /*<<weak.ml:298:40>>*/ add_aux(t, set, [0, d], h, i);
+                /*<<weak.ml:298:40>>*/  /*<<weak.ml:298:40>>*/ add_aux
+                 /*<<weak.ml:298:40>>*/ (t, set, [0, d], h, i);
                 /*<<weak.ml:296:21>>*/ return d /*<<weak.ml:296:21>>*/ ;
                /*<<weak.ml:298:69>>*/ }) /*<<weak.ml:298:70>>*/ ;
      /*<<weak.ml:298:70>>*/ }
     function find(t, d){
-      /*<<weak.ml:300:21>>*/ return find_aux
-             (t,
+      /*<<weak.ml:300:21>>*/ return  /*<<weak.ml:301:34>>*/ find_aux
+              /*<<weak.ml:301:34>>*/ (t,
               d,
               function(b, i, o, v){
                 /*<<weak.ml:300:54>>*/ return v /*<<weak.ml:300:54>>*/ ;
@@ -29071,19 +31895,20 @@
                /*<<weak.ml:301:63>>*/ }) /*<<weak.ml:301:64>>*/ ;
      /*<<weak.ml:301:64>>*/ }
     function remove(t, d){
-      /*<<weak.ml:303:21>>*/ return find_aux
-             (t,
+      /*<<weak.ml:303:21>>*/ return  /*<<weak.ml:304:34>>*/ find_aux
+              /*<<weak.ml:304:34>>*/ (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:303:54>>*/ return set(b, i, 0) /*<<weak.ml:303:66>>*/ ;
+                /*<<weak.ml:303:54>>*/ return  /*<<weak.ml:303:54>>*/ set
+                        /*<<weak.ml:303:54>>*/ (b, i, 0) /*<<weak.ml:303:66>>*/ ;
                /*<<weak.ml:303:66>>*/ },
               function(h, i){
                 /*<<weak.ml:304:48>>*/ return 0 /*<<weak.ml:304:48>>*/ ;
                /*<<weak.ml:304:50>>*/ }) /*<<weak.ml:304:51>>*/ ;
      /*<<weak.ml:304:51>>*/ }
     function mem(t, d){
-      /*<<weak.ml:306:21>>*/ return find_aux
-             (t,
+      /*<<weak.ml:306:21>>*/ return  /*<<weak.ml:307:34>>*/ find_aux
+              /*<<weak.ml:307:34>>*/ (t,
               d,
               function(b, i, o, v){
                 /*<<weak.ml:306:54>>*/ return 1 /*<<weak.ml:306:54>>*/ ;
@@ -29097,18 +31922,25 @@
       h =
          /*<<weak.ml:310:12>>*/  /*<<weak.ml:310:12>>*/ caml_call1
           /*<<weak.ml:310:12>>*/ (H[2], d),
-      index =  /*<<weak.ml:311:16>>*/ get_index(t, h),
+      index =
+         /*<<weak.ml:311:16>>*/  /*<<weak.ml:311:16>>*/ get_index
+          /*<<weak.ml:311:16>>*/ (t, h),
       bucket =
          /*<<weak.ml:312:17>>*/ caml_check_bound(t[1], index)[1 + index],
       hashes =
          /*<<weak.ml:313:17>>*/ caml_check_bound(t[2], index)[1 + index],
-      sz =  /*<<weak.ml:314:13>>*/ length(bucket),
+      sz =
+         /*<<weak.ml:314:13>>*/  /*<<weak.ml:314:13>>*/ length
+          /*<<weak.ml:314:13>>*/ (bucket),
       i = 0,
       accu = 0;
       /*<<weak.ml:316:6>>*/ for(;;){
       if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu /*<<weak.ml:316:22>>*/ ;
       if(h === caml_check_bound(hashes, i)[1 + i]){
-       var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
+       var
+        match =
+           /*<<weak.ml:318:14>>*/  /*<<weak.ml:318:14>>*/ get
+            /*<<weak.ml:318:14>>*/ (bucket, i);
        if(match){
         var v = match[1];
          /*<<weak.ml:319:22>>*/ if
@@ -29150,7 +31982,13 @@
       _b_ =  /*<<weak.ml:330:51>>*/ caml_check_bound(lens, _a_)[1 + _a_],
       _d_ =  /*<<weak.ml:330:37>>*/ caml_check_bound(lens, _c_)[1 + _c_],
       _e_ =  /*<<weak.ml:330:27>>*/ caml_check_bound(lens, 0)[1];
-      /*<<weak.ml:330:4>>*/ return [0, len, count(t), totlen, _e_, _d_, _b_] /*<<weak.ml:330:4>>*/ ;
+      /*<<weak.ml:330:4>>*/ return [0,
+             len,
+              /*<<weak.ml:330:10>>*/ count /*<<weak.ml:330:10>>*/ (t),
+             totlen,
+             _e_,
+             _d_,
+             _b_] /*<<weak.ml:330:4>>*/ ;
      /*<<weak.ml:330:64>>*/ }
      /*<<weak.ml:101:66>>*/ return [0,
             create$0,
@@ -29271,19 +32109,23 @@
     /*<<format.ml:252: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:259:2>>*/  /*<<format.ml:259:2>>*/ pp_output_string
+      /*<<format.ml:259:2>>*/ (state, text);
     state[11] = 0;
     /*<<format.ml:260:31>>*/ }
    function format_string(state, s){
     var _a__ =  /*<<format.ml:264:5>>*/ s !== cst$16 ? 1 : 0;
      /*<<format.ml:264:5>>*/ return _a__
-            ? format_pp_text(state, caml_ml_string_length(s), s)
+            ?  /*<<format.ml:264:18>>*/ format_pp_text
+               /*<<format.ml:264:18>>*/ (state, caml_ml_string_length(s), s)
             : _a__ /*<<format.ml:264:58>>*/ ;
     /*<<format.ml:264: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:268:2>>*/  /*<<format.ml:268:2>>*/ format_string
+      /*<<format.ml:268:2>>*/ (state, before);
+     /*<<format.ml:269:2>>*/  /*<<format.ml:269:2>>*/ pp_output_newline
+      /*<<format.ml:269:2>>*/ (state);
     state[11] = 1;
     var
      indent = (state[6] - width | 0) + offset | 0,
@@ -29295,15 +32137,18 @@
     var n = state[10];
      /*<<format.ml:254:31>>*/  /*<<format.ml:254:31>>*/ caml_call1
       /*<<format.ml:254:31>>*/ (state[21], n);
-     /*<<format.ml:276:2>>*/ return format_string(state, after) /*<<format.ml:277:27>>*/ ;
+     /*<<format.ml:276:2>>*/ return  /*<<format.ml:276:2>>*/ format_string
+             /*<<format.ml:276:2>>*/ (state, after) /*<<format.ml:277:27>>*/ ;
     /*<<format.ml:277:27>>*/ }
    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:285:2>>*/  /*<<format.ml:285:2>>*/ format_string
+      /*<<format.ml:285:2>>*/ (state, before);
     state[9] = state[9] - width | 0;
      /*<<format.ml:253:31>>*/  /*<<format.ml:253:31>>*/ caml_call1
       /*<<format.ml:253:31>>*/ (state[20], width);
-     /*<<format.ml:287:2>>*/ return format_string(state, after) /*<<format.ml:288:27>>*/ ;
+     /*<<format.ml:287:2>>*/ return  /*<<format.ml:287:2>>*/ format_string
+             /*<<format.ml:287:2>>*/ (state, after) /*<<format.ml:288:27>>*/ ;
     /*<<format.ml:288:27>>*/ }
    function format_pp_token(state, size$0, param){
      /*<<format.ml:320:20>>*/ if(typeof param === "number")
@@ -29325,9 +32170,14 @@
              /*<<format.ml:353:29>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
                       /*<<format.ml:353:29>>*/ (n, x)
                     ? [0, n, ls]
-                    : [0, x, add_tab(n, l)] /*<<format.ml:353:69>>*/ ;
+                    : [0,
+                      x,
+                       /*<<format.ml:353:58>>*/ add_tab
+                        /*<<format.ml:353:58>>*/ (n, l)] /*<<format.ml:353:69>>*/ ;
             /*<<format.ml:353:69>>*/ };
-        tabs[1] = add_tab(state[6] - state[9] | 0, tabs[1]);
+        tabs[1] =
+          /*<<format.ml:354:14>>*/ add_tab
+           /*<<format.ml:354:14>>*/ (state[6] - state[9] | 0, tabs[1]);
         return;
        case 1:
          /*<<format.ml:339:4>>*/  /*<<format.ml:339:4>>*/ caml_call1
@@ -29343,9 +32193,11 @@
             /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ caml_call1
              /*<<format.ml:378:16>>*/ (Stdlib_Stack[8], state[2]);
         if(! match$4)
-          /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:424:8>>*/ ;
+          /*<<format.ml:379:14>>*/ return  /*<<format.ml:379:14>>*/ pp_output_newline
+                  /*<<format.ml:379:14>>*/ (state) /*<<format.ml:424:8>>*/ ;
         var width$0 = match$4[1][2];
-         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
+         /*<<format.ml:281:29>>*/ return  /*<<format.ml:281:29>>*/ break_new_line
+                 /*<<format.ml:281:29>>*/ (state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
        case 4:
         var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
         if(! _a8_) return _a8_;
@@ -29371,12 +32223,14 @@
          marker =
             /*<<format.ml:422:20>>*/  /*<<format.ml:422:20>>*/ caml_call1
              /*<<format.ml:422:20>>*/ (state[25], tag_name);
-         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker) /*<<format.ml:424:8>>*/ ;
+         /*<<format.ml:423:7>>*/ return  /*<<format.ml:423:7>>*/ pp_output_string
+                 /*<<format.ml:423:7>>*/ (state, marker) /*<<format.ml:424:8>>*/ ;
      }
     switch(param[0]){
       case 0:
        var s = param[1];
-        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s) /*<<format.ml:424:8>>*/ ;
+        /*<<format.ml:323:4>>*/ return  /*<<format.ml:323:4>>*/ format_pp_text
+                /*<<format.ml:323:4>>*/ (state, size$0, s) /*<<format.ml:424:8>>*/ ;
       case 1:
        var
         breaks = param[2],
@@ -29394,24 +32248,29 @@
         box_type$0 = match$7[1];
         /*<<format.ml:392:6>>*/ switch(box_type$0){
          case 0:
-           /*<<format.ml:409:19>>*/ return break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:409:19>>*/ return  /*<<format.ml:409:19>>*/ break_same_line
+                   /*<<format.ml:409:19>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
          case 1:
-           /*<<format.ml:408:19>>*/ return break_new_line
-                  (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:408:19>>*/ return  /*<<format.ml:408:19>>*/ break_new_line
+                   /*<<format.ml:408:19>>*/ (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 2:
-           /*<<format.ml:406:20>>*/ return break_new_line
-                  (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:406:20>>*/ return  /*<<format.ml:406:20>>*/ break_new_line
+                   /*<<format.ml:406:20>>*/ (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 3:
           return state[9] < (size$0 + caml_ml_string_length(before) | 0)
-                  ? break_new_line(state, breaks, width$1)
-                  : break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
+                  ?  /*<<format.ml:395:13>>*/ break_new_line
+                     /*<<format.ml:395:13>>*/ (state, breaks, width$1)
+                  :  /*<<format.ml:396:13>>*/ break_same_line
+                     /*<<format.ml:396:13>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
          case 4:
           return state[11]
-                  ? break_same_line(state, fits)
+                  ?  /*<<format.ml:399:37>>*/ break_same_line
+                     /*<<format.ml:399:37>>*/ (state, fits)
                   : state
                      [9]
                     < (size$0 + caml_ml_string_length(before) | 0)
-                    ? break_new_line(state, breaks, width$1)
+                    ?  /*<<format.ml:401:15>>*/ break_new_line
+                       /*<<format.ml:401:15>>*/ (state, breaks, width$1)
                     : ((state
                        [6]
                       - width$1
@@ -29419,10 +32278,13 @@
                       + off
                       | 0)
                       < state[10]
-                      ? break_new_line(state, breaks, width$1)
-                      : break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
+                      ?  /*<<format.ml:404:13>>*/ break_new_line
+                         /*<<format.ml:404:13>>*/ (state, breaks, width$1)
+                      :  /*<<format.ml:405:13>>*/ break_same_line
+                         /*<<format.ml:405:13>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
          default:
-           /*<<format.ml:407:19>>*/ return break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:407:19>>*/ return  /*<<format.ml:407:19>>*/ break_same_line
+                   /*<<format.ml:407:19>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
        }
       case 2:
        var
@@ -29455,9 +32317,13 @@
         var tab = insertion_point;
        var offset = tab - insertion_point | 0;
         /*<<format.ml:372: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]) /*<<format.ml:424:8>>*/ ;
+               ?  /*<<format.ml:373:33>>*/ break_same_line
+                  /*<<format.ml:373:33>>*/ (state,
+                  [0, cst$0, offset + n | 0, cst])
+               :  /*<<format.ml:374:32>>*/ break_new_line
+                  /*<<format.ml:374:32>>*/ (state,
+                  [0, cst$2, tab + off$0 | 0, cst$1],
+                  state[6]) /*<<format.ml:424:8>>*/ ;
       case 3:
        var
         ty = param[2],
@@ -29471,10 +32337,12 @@
         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:281:29>>*/  /*<<format.ml:281:29>>*/ break_new_line
+            /*<<format.ml:281:29>>*/ (state, _a_, width);
         }
         else
-          /*<<format.ml:296:12>>*/ pp_output_newline(state);
+          /*<<format.ml:296:12>>*/  /*<<format.ml:296:12>>*/ pp_output_newline
+           /*<<format.ml:296:12>>*/ (state);
        }
        var
         width$2 = state[9] - off$1 | 0,
@@ -29494,7 +32362,8 @@
         marker$0 =
            /*<<format.ml:414:18>>*/  /*<<format.ml:414:18>>*/ caml_call1
             /*<<format.ml:414:18>>*/ (state[24], tag_name$0);
-        /*<<format.ml:415:5>>*/ pp_output_string(state, marker$0);
+        /*<<format.ml:415:5>>*/  /*<<format.ml:415:5>>*/ pp_output_string
+         /*<<format.ml:415:5>>*/ (state, marker$0);
        return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]) /*<<format.ml:424:8>>*/ ;
     }
     /*<<format.ml:424:8>>*/ }
@@ -29518,17 +32387,20 @@
       /*<<format.ml:436:6>>*/  /*<<format.ml:436:6>>*/ caml_call1
        /*<<format.ml:436:6>>*/ (Stdlib_Queue[5], state[28]);
      var size$0 =  /*<<format.ml:437:20>>*/ 0 <= size ? size : pp_infinity;
-      /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
+      /*<<format.ml:438:6>>*/  /*<<format.ml:438:6>>*/ format_pp_token
+       /*<<format.ml:438:6>>*/ (state, size$0, token);
      state[12] = length + state[12] | 0;
     }
     /*<<format.ml:441: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:445:32>>*/  /*<<format.ml:445:32>>*/ pp_enqueue
+      /*<<format.ml:445:32>>*/ (state, tok);
+     /*<<format.ml:445:32>>*/ return  /*<<format.ml:445:32>>*/ advance_left
+             /*<<format.ml:445:32>>*/ (state) /*<<format.ml:445:72>>*/ ;
     /*<<format.ml:445:72>>*/ }
    function enqueue_string_as(state, size, s){
-     /*<<format.ml:450:2>>*/ return enqueue_advance
-            (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
+     /*<<format.ml:450:2>>*/ return  /*<<format.ml:450:24>>*/ enqueue_advance
+             /*<<format.ml:450:24>>*/ (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
     /*<<format.ml:450:78>>*/ }
    function initialize_scan_stack(stack){
      /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
@@ -29551,7 +32423,8 @@
      left_total = match$0[1],
      size =  /*<<format.ml:479:4>>*/ queue_elem[1];
     if(left_total < state[12])
-      /*<<format.ml:461:26>>*/ return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
+      /*<<format.ml:461:26>>*/ return  /*<<format.ml:461:26>>*/ initialize_scan_stack
+              /*<<format.ml:461:26>>*/ (state[1]) /*<<format.ml:497:10>>*/ ;
     var _a5_ = queue_elem[2];
     if(typeof _a5_ !== "number")
      switch(_a5_[0]){
@@ -29575,8 +32448,11 @@
      }
     /*<<format.ml:497: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:503:2>>*/  /*<<format.ml:503:2>>*/ pp_enqueue
+      /*<<format.ml:503:2>>*/ (state, token);
+    if(b)
+      /*<<format.ml:504:12>>*/  /*<<format.ml:504:12>>*/ set_size
+       /*<<format.ml:504:12>>*/ (state, 1);
     var elem =  /*<<format.ml:505:13>>*/ [0, state[13], token];
      /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
              /*<<format.ml:506:2>>*/ (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
@@ -29587,20 +32463,25 @@
      var
       size = - state[13] | 0,
       elem =  /*<<format.ml:516:15>>*/ [0, size, [3, indent, br_ty], 0];
-      /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem) /*<<format.ml:519:45>>*/ ;
+      /*<<format.ml:517:4>>*/ return  /*<<format.ml:517:4>>*/ scan_push
+              /*<<format.ml:517:4>>*/ (state, 0, elem) /*<<format.ml:519:45>>*/ ;
     }
     var _a4_ = state[14] === state[15] ? 1 : 0;
     if(! _a4_) return _a4_;
     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:454:2>>*/ return  /*<<format.ml:454:2>>*/ enqueue_string_as
+             /*<<format.ml:454:2>>*/ (state, x, s) /*<<format.ml:519:45>>*/ ;
     /*<<format.ml:519:45>>*/ }
    function pp_close_box(state, param){
     var _a2_ = 1 < state[14] ? 1 : 0;
     if(_a2_){
      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:531:6>>*/  /*<<format.ml:531:6>>*/ pp_enqueue
+        /*<<format.ml:531:6>>*/ (state, [0, zero, 1, 0]);
+       /*<<format.ml:532:6>>*/  /*<<format.ml:532:6>>*/ set_size
+        /*<<format.ml:532:6>>*/ (state, 1);
+       /*<<format.ml:532:27>>*/  /*<<format.ml:532:27>>*/ set_size
+        /*<<format.ml:532:27>>*/ (state, 0);
      }
      state[14] = state[14] - 1 | 0;
      var _a3_ = 0;
@@ -29619,11 +32500,13 @@
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
     var token =  /*<<format.ml:546:16>>*/ [5, tag_name];
-     /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
+     /*<<format.ml:547:21>>*/ return  /*<<format.ml:547:21>>*/ pp_enqueue
+             /*<<format.ml:547:21>>*/ (state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
     /*<<format.ml:547: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]);
+      /*<<format.ml:553:4>>*/  /*<<format.ml:553:4>>*/ pp_enqueue
+       /*<<format.ml:553:4>>*/ (state, [0, zero, 5, 0]);
     var _aZ_ = state[22];
     if(_aZ_){
      var
@@ -29656,8 +32539,10 @@
      /*<<format.ml:563:32>>*/ return state[23];
     /*<<format.ml:563: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:565:2>>*/  /*<<format.ml:565:2>>*/ pp_set_print_tags
+      /*<<format.ml:565:2>>*/ (state, b);
+     /*<<format.ml:565:2>>*/ return  /*<<format.ml:565:2>>*/ pp_set_mark_tags
+             /*<<format.ml:565:2>>*/ (state, b) /*<<format.ml:565:53>>*/ ;
     /*<<format.ml:565:53>>*/ }
    function pp_get_formatter_stag_function(state, param){
      /*<<format.ml:569:47>>*/ return [0,
@@ -29678,7 +32563,8 @@
      /*<<format.ml:591: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:592:2>>*/  /*<<format.ml:592:2>>*/ initialize_scan_stack
+      /*<<format.ml:592:2>>*/ (state[1]);
      /*<<format.ml:593:2>>*/  /*<<format.ml:593:2>>*/ caml_call1
       /*<<format.ml:593:2>>*/ (Stdlib_Stack[9], state[2]);
      /*<<format.ml:594:2>>*/  /*<<format.ml:594:2>>*/ caml_call1
@@ -29690,35 +32576,47 @@
     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:523:28>>*/ return  /*<<format.ml:523:28>>*/ pp_open_box_gen
+             /*<<format.ml:523:28>>*/ (state, 0, 3) /*<<format.ml:600:23>>*/ ;
     /*<<format.ml:600:23>>*/ }
    function pp_flush_queue(state, end_with_newline){
      /*<<format.ml:608:2>>*/  /*<<format.ml:603:13>>*/ caml_call2
       /*<<format.ml:603:13>>*/ (Stdlib_Stack[13],
       function(param){
-        /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0) /*<<format.ml:603:45>>*/ ;
+        /*<<format.ml:603:23>>*/ return  /*<<format.ml:603:23>>*/ pp_close_stag
+                /*<<format.ml:603:23>>*/ (state, 0) /*<<format.ml:603:45>>*/ ;
        /*<<format.ml:603:45>>*/ },
       state[4]);
      /*<<format.ml:610: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:615:16>>*/ ;
+       /*<<format.ml:613:2>>*/  /*<<format.ml:613:2>>*/ advance_left
+        /*<<format.ml:613:2>>*/ (state);
+      if(end_with_newline)
+        /*<<format.ml:614:27>>*/  /*<<format.ml:614:27>>*/ pp_output_newline
+         /*<<format.ml:614:27>>*/ (state);
+       /*<<format.ml:614:27>>*/ return  /*<<format.ml:614:27>>*/ pp_rinit
+               /*<<format.ml:614:27>>*/ (state) /*<<format.ml:615:16>>*/ ;
      }
-      /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
+      /*<<format.ml:610:4>>*/  /*<<format.ml:610:4>>*/ pp_close_box
+       /*<<format.ml:610:4>>*/ (state, 0);
     }
     /*<<format.ml:615:16>>*/ }
    function pp_print_as_size(state, size, s){
     var _aY_ = state[14] < state[15] ? 1 : 0;
-    return _aY_ ? enqueue_string_as(state, size, s) : _aY_ /*<<format.ml:626:37>>*/ ;
+    return _aY_
+            ?  /*<<format.ml:626:7>>*/ enqueue_string_as
+               /*<<format.ml:626:7>>*/ (state, size, s)
+            : _aY_ /*<<format.ml:626:37>>*/ ;
     /*<<format.ml:626: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:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
+             /*<<format.ml:630:2>>*/ (state, isize, s) /*<<format.ml:630:46>>*/ ;
     /*<<format.ml:630:46>>*/ }
    function pp_print_string(state, s){
     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:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
+             /*<<format.ml:630:2>>*/ (state, isize, s) /*<<format.ml:634:39>>*/ ;
     /*<<format.ml:634:39>>*/ }
    function pp_print_bytes(state, s){
     var
@@ -29726,23 +32624,24 @@
         /*<<format.ml:637:37>>*/  /*<<format.ml:637:37>>*/ caml_call1
          /*<<format.ml:637:37>>*/ (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:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
+             /*<<format.ml:630:2>>*/ (state, isize, s$0) /*<<format.ml:637:56>>*/ ;
     /*<<format.ml:637:56>>*/ }
    function pp_print_int(state, i){
-     /*<<format.ml:640:27>>*/ return pp_print_string
-            (state,
+     /*<<format.ml:640:27>>*/ return  /*<<format.ml:640:49>>*/ pp_print_string
+             /*<<format.ml:640:49>>*/ (state,
               /*<<format.ml:640:49>>*/ caml_call1
                /*<<format.ml:640:49>>*/ (Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
     /*<<format.ml:640:66>>*/ }
    function pp_print_float(state, f){
-     /*<<format.ml:643:29>>*/ return pp_print_string
-            (state,
+     /*<<format.ml:643:29>>*/ return  /*<<format.ml:643:51>>*/ pp_print_string
+             /*<<format.ml:643:51>>*/ (state,
               /*<<format.ml:643:51>>*/ caml_call1
                /*<<format.ml:643:51>>*/ (Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
     /*<<format.ml:643:70>>*/ }
    function pp_print_bool(state, b){
-     /*<<format.ml:646:28>>*/ return pp_print_string
-            (state,
+     /*<<format.ml:646:28>>*/ return  /*<<format.ml:646:50>>*/ pp_print_string
+             /*<<format.ml:646:50>>*/ (state,
               /*<<format.ml:646:50>>*/ caml_call1
                /*<<format.ml:646:50>>*/ (Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
     /*<<format.ml:646:68>>*/ }
@@ -29751,43 +32650,57 @@
      s =
         /*<<format.ml:650:22>>*/  /*<<format.ml:650:22>>*/ caml_call2
          /*<<format.ml:650:22>>*/ (Stdlib_String[1], 1, c);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, 1, s) /*<<format.ml:650:39>>*/ ;
+     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
+             /*<<format.ml:630:2>>*/ (state, 1, s) /*<<format.ml:650:39>>*/ ;
     /*<<format.ml:650:39>>*/ }
    function pp_print_nothing(state, param){
      /*<<format.ml:652:33>>*/ return 0 /*<<format.ml:652:33>>*/ ;
     /*<<format.ml:652: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:656:28>>*/ return  /*<<format.ml:656:28>>*/ pp_open_box_gen
+             /*<<format.ml:656:28>>*/ (state, 0, 0) /*<<format.ml:656:59>>*/ ;
     /*<<format.ml:656: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:657:32>>*/ return  /*<<format.ml:657:32>>*/ pp_open_box_gen
+             /*<<format.ml:657:32>>*/ (state, indent, 1) /*<<format.ml:657:68>>*/ ;
     /*<<format.ml:657: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:659:33>>*/ return  /*<<format.ml:659:33>>*/ pp_open_box_gen
+             /*<<format.ml:659:33>>*/ (state, indent, 2) /*<<format.ml:659:70>>*/ ;
     /*<<format.ml:659: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:660:34>>*/ return  /*<<format.ml:660:34>>*/ pp_open_box_gen
+             /*<<format.ml:660:34>>*/ (state, indent, 3) /*<<format.ml:660:72>>*/ ;
     /*<<format.ml:660: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:661:31>>*/ return  /*<<format.ml:661:31>>*/ pp_open_box_gen
+             /*<<format.ml:661:31>>*/ (state, indent, 4) /*<<format.ml:661:66>>*/ ;
     /*<<format.ml:661:66>>*/ }
    function pp_print_newline(state, param){
-     /*<<format.ml:673:2>>*/ pp_flush_queue(state, 1);
+     /*<<format.ml:673:2>>*/  /*<<format.ml:673:2>>*/ pp_flush_queue
+      /*<<format.ml:673:2>>*/ (state, 1);
      /*<<format.ml:673:2>>*/ return  /*<<format.ml:673:2>>*/ caml_call1
              /*<<format.ml:673:2>>*/ (state[18], 0) /*<<format.ml:673:68>>*/ ;
     /*<<format.ml:673:68>>*/ }
    function pp_print_flush(state, param){
-     /*<<format.ml:675:2>>*/ pp_flush_queue(state, 0);
+     /*<<format.ml:675:2>>*/  /*<<format.ml:675:2>>*/ pp_flush_queue
+      /*<<format.ml:675:2>>*/ (state, 0);
      /*<<format.ml:675:2>>*/ return  /*<<format.ml:675:2>>*/ caml_call1
              /*<<format.ml:675:2>>*/ (state[18], 0) /*<<format.ml:675:69>>*/ ;
     /*<<format.ml:675:69>>*/ }
    function pp_force_newline(state, param){
     var _aX_ = state[14] < state[15] ? 1 : 0;
-    return _aX_ ? enqueue_advance(state, [0, zero, 3, 0]) : _aX_ /*<<format.ml:681:78>>*/ ;
+    return _aX_
+            ?  /*<<format.ml:681:26>>*/ enqueue_advance
+               /*<<format.ml:681:26>>*/ (state, [0, zero, 3, 0])
+            : _aX_ /*<<format.ml:681:78>>*/ ;
     /*<<format.ml:681:78>>*/ }
    function pp_print_if_newline(state, param){
     var _aW_ = state[14] < state[15] ? 1 : 0;
-    return _aW_ ? enqueue_advance(state, [0, zero, 4, 0]) : _aW_ /*<<format.ml:688:61>>*/ ;
+    return _aW_
+            ?  /*<<format.ml:688:6>>*/ enqueue_advance
+               /*<<format.ml:688:6>>*/ (state, [0, zero, 4, 0])
+            : _aW_ /*<<format.ml:688:61>>*/ ;
     /*<<format.ml:688:61>>*/ }
    function pp_print_custom_break(state, fits, breaks){
     var
@@ -29806,24 +32719,30 @@
           /*<<format.ml:698:4>>*/ (after)
        | 0,
      elem =  /*<<format.ml:699:15>>*/ [0, size, token, length];
-     /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:700:29>>*/ ;
+     /*<<format.ml:700:4>>*/ return  /*<<format.ml:700:4>>*/ scan_push
+             /*<<format.ml:700:4>>*/ (state, 1, elem) /*<<format.ml:700:29>>*/ ;
     /*<<format.ml:700:29>>*/ }
    function pp_print_break(state, width, offset){
-     /*<<format.ml:707: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:707:2>>*/ return  /*<<format.ml:708:34>>*/ pp_print_custom_break
+             /*<<format.ml:708:34>>*/ (state,
+             [0, cst$6, width, cst$5],
+             [0, cst$4, offset, cst$3]) /*<<format.ml:708:50>>*/ ;
     /*<<format.ml:708:50>>*/ }
    function pp_print_space(state, param){
-     /*<<format.ml:716:30>>*/ return pp_print_break(state, 1, 0) /*<<format.ml:716:54>>*/ ;
+     /*<<format.ml:716:30>>*/ return  /*<<format.ml:716:30>>*/ pp_print_break
+             /*<<format.ml:716:30>>*/ (state, 1, 0) /*<<format.ml:716:54>>*/ ;
     /*<<format.ml:716:54>>*/ }
    function pp_print_cut(state, param){
-     /*<<format.ml:717:28>>*/ return pp_print_break(state, 0, 0) /*<<format.ml:717:52>>*/ ;
+     /*<<format.ml:717:28>>*/ return  /*<<format.ml:717:28>>*/ pp_print_break
+             /*<<format.ml:717:28>>*/ (state, 0, 0) /*<<format.ml:717:52>>*/ ;
     /*<<format.ml:717:52>>*/ }
    function pp_open_tbox(state, param){
      /*<<format.ml:722:2>>*/ state[14] = state[14] + 1 | 0;
     var _aU_ = state[14] < state[15] ? 1 : 0;
     if(! _aU_) return _aU_;
     var elem =  /*<<format.ml:725:15>>*/ [0, zero, [4, [0, [0, 0]]], 0];
-     /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:726:30>>*/ ;
+     /*<<format.ml:726:4>>*/ return  /*<<format.ml:726:4>>*/ enqueue_advance
+             /*<<format.ml:726:4>>*/ (state, elem) /*<<format.ml:726:30>>*/ ;
     /*<<format.ml:726:30>>*/ }
    function pp_close_tbox(state, param){
     var _aR_ = 1 < state[14] ? 1 : 0;
@@ -29831,7 +32750,8 @@
      var _aS_ = state[14] < state[15] ? 1 : 0;
      if(_aS_){
       var elem =  /*<<format.ml:734:16>>*/ [0, zero, 2, 0];
-       /*<<format.ml:735:5>>*/ enqueue_advance(state, elem);
+       /*<<format.ml:735:5>>*/  /*<<format.ml:735:5>>*/ enqueue_advance
+        /*<<format.ml:735:5>>*/ (state, elem);
       state[14] = state[14] - 1 | 0;
       var _aT_ = 0;
      }
@@ -29848,16 +32768,19 @@
     var
      size = - state[13] | 0,
      elem =  /*<<format.ml:744:15>>*/ [0, size, [2, width, offset], width];
-     /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:745:29>>*/ ;
+     /*<<format.ml:745:4>>*/ return  /*<<format.ml:745:4>>*/ scan_push
+             /*<<format.ml:745:4>>*/ (state, 1, elem) /*<<format.ml:745:29>>*/ ;
     /*<<format.ml:745:29>>*/ }
    function pp_print_tab(state, param){
-     /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0) /*<<format.ml:748:53>>*/ ;
+     /*<<format.ml:748:28>>*/ return  /*<<format.ml:748:28>>*/ pp_print_tbreak
+             /*<<format.ml:748:28>>*/ (state, 0, 0) /*<<format.ml:748:53>>*/ ;
     /*<<format.ml:748:53>>*/ }
    function pp_set_tab(state, param){
     var _aP_ = state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
     var elem =  /*<<format.ml:752:15>>*/ [0, zero, 0, 0];
-     /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:753:30>>*/ ;
+     /*<<format.ml:753:4>>*/ return  /*<<format.ml:753:4>>*/ enqueue_advance
+             /*<<format.ml:753:4>>*/ (state, elem) /*<<format.ml:753:30>>*/ ;
     /*<<format.ml:753:30>>*/ }
    function pp_set_max_boxes(state, n){
     var _aN_ = 1 < n ? 1 : 0, _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
@@ -29884,10 +32807,14 @@
     if(! _aM_) return _aM_;
     var n$1 = state[6] - n$0 | 0, _aL_ = 1 <= n$1 ? 1 : 0;
     if(! _aL_) return _aL_;
-    var n =  /*<<format.ml:783:12>>*/ pp_limit(n$1);
+    var
+     n =
+        /*<<format.ml:783:12>>*/  /*<<format.ml:783:12>>*/ pp_limit
+         /*<<format.ml:783:12>>*/ (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:786:4>>*/ return  /*<<format.ml:786:4>>*/ pp_rinit
+             /*<<format.ml:786:4>>*/ (state) /*<<format.ml:794:53>>*/ ;
     /*<<format.ml:794:53>>*/ }
    function pp_get_max_indent(state, param){
      /*<<format.ml:797:33>>*/ return state[8];
@@ -29895,7 +32822,10 @@
    function pp_set_margin(state, n){
     var _aJ_ = 1 <= n ? 1 : 0;
     if(! _aJ_) return _aJ_;
-    var n$0 =  /*<<format.ml:801:12>>*/ pp_limit(n);
+    var
+     n$0 =
+        /*<<format.ml:801:12>>*/  /*<<format.ml:801:12>>*/ pp_limit
+         /*<<format.ml:801:12>>*/ (n);
     state[6] = n$0;
     if(state[8] <= state[6])
      var new_max_indent = state[8];
@@ -29909,7 +32839,8 @@
       new_max_indent =
          /*<<format.ml:810:7>>*/ caml_call2
           /*<<format.ml:810:7>>*/ (Stdlib_Int[11], _aK_, 1);
-     /*<<format.ml:813:4>>*/ return pp_set_max_indent(state, new_max_indent) /*<<format.ml:813:42>>*/ ;
+     /*<<format.ml:813:4>>*/ return  /*<<format.ml:813:4>>*/ pp_set_max_indent
+             /*<<format.ml:813:4>>*/ (state, new_max_indent) /*<<format.ml:813:42>>*/ ;
     /*<<format.ml:813:42>>*/ }
    function validate_geometry(param){
     var margin = param[2], max_indent = param[1];
@@ -29918,7 +32849,11 @@
             : _f_ /*<<format.ml:826:12>>*/ ;
     /*<<format.ml:826:12>>*/ }
    function check_geometry(geometry){
-     /*<<format.ml:829:2>>*/ return 0 === validate_geometry(geometry)[0]
+     /*<<format.ml:829:2>>*/ return 0
+            ===
+              /*<<format.ml:829:8>>*/ validate_geometry
+                /*<<format.ml:829:8>>*/ (geometry)
+              [0]
             ? 1
             : 0 /*<<format.ml:831:20>>*/ ;
     /*<<format.ml:831:20>>*/ }
@@ -29927,16 +32862,21 @@
     /*<<format.ml:833: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:836:2>>*/  /*<<format.ml:836:2>>*/ pp_set_margin
+      /*<<format.ml:836:2>>*/ (state, margin);
+     /*<<format.ml:837:2>>*/  /*<<format.ml:837:2>>*/ pp_set_max_indent
+      /*<<format.ml:837:2>>*/ (state, max_indent);
      /*<<format.ml:837:2>>*/ return 0 /*<<format.ml:837:2>>*/ ;
     /*<<format.ml:838:4>>*/ }
    function pp_set_geometry(state, max_indent, margin){
     var
      geometry =  /*<<format.ml:841:17>>*/ [0, max_indent, margin],
-     match =  /*<<format.ml:842:8>>*/ validate_geometry(geometry);
+     match =
+        /*<<format.ml:842:8>>*/  /*<<format.ml:842:8>>*/ validate_geometry
+         /*<<format.ml:842:8>>*/ (geometry);
     if(0 === match[0])
-      /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry) /*<<format.ml:846:39>>*/ ;
+      /*<<format.ml:846:4>>*/ return  /*<<format.ml:846:4>>*/ pp_set_full_geometry
+              /*<<format.ml:846:4>>*/ (state, geometry) /*<<format.ml:846:39>>*/ ;
     var
      msg = match[1],
      _aI_ =
@@ -29949,17 +32889,25 @@
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
     var geometry =  /*<<format.ml:849:17>>*/ [0, max_indent, margin];
-    return 0 === validate_geometry(geometry)[0]
-            ? pp_set_full_geometry(state, geometry)
+    return 0
+            ===
+              /*<<format.ml:850:8>>*/ validate_geometry
+                /*<<format.ml:850:8>>*/ (geometry)
+              [0]
+            ?  /*<<format.ml:854:4>>*/ pp_set_full_geometry
+               /*<<format.ml:854:4>>*/ (state, geometry)
             : 0 /*<<format.ml:854:39>>*/ ;
     /*<<format.ml:854:39>>*/ }
    function pp_get_geometry(state, param){
      /*<<format.ml:857:2>>*/ return [0, state[8], state[6]] /*<<format.ml:857:2>>*/ ;
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
-    var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
-     /*<<format.ml:861:29>>*/ return pp_set_full_geometry
-            (state,
+    var
+     geometry =
+        /*<<format.ml:860:17>>*/  /*<<format.ml:860:17>>*/ pp_get_geometry
+         /*<<format.ml:860:17>>*/ (state, 0);
+     /*<<format.ml:861:29>>*/ return  /*<<format.ml:861:29>>*/ pp_set_full_geometry
+             /*<<format.ml:861:29>>*/ (state,
               /*<<format.ml:861:29>>*/ caml_call1
                /*<<format.ml:861:29>>*/ (update, geometry)) /*<<format.ml:861:46>>*/ ;
     /*<<format.ml:861:46>>*/ }
@@ -30062,7 +33010,8 @@
      scan_stack =
         /*<<format.ml:944:19>>*/  /*<<format.ml:944:19>>*/ caml_call1
          /*<<format.ml:944:19>>*/ (Stdlib_Stack[2], 0);
-     /*<<format.ml:945:2>>*/ initialize_scan_stack(scan_stack);
+     /*<<format.ml:945:2>>*/  /*<<format.ml:945:2>>*/ initialize_scan_stack
+      /*<<format.ml:945:2>>*/ (scan_stack);
      /*<<format.ml:946:2>>*/  /*<<format.ml:946:2>>*/ caml_call2
       /*<<format.ml:946:2>>*/ (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
     var
@@ -30109,14 +33058,18 @@
             pp_queue] /*<<format.ml:949:2>>*/ ;
    }
    function formatter_of_out_functions(out_funs){
-     /*<<format.ml:983: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:983:2>>*/ return  /*<<format.ml:938:22>>*/ pp_make_formatter
+             /*<<format.ml:938:22>>*/ (out_funs[1],
+             out_funs[2],
+             out_funs[3],
+             out_funs[4],
+             out_funs[5]) /*<<format.ml:988:23>>*/ ;
     /*<<format.ml:988:23>>*/ }
    function make_formatter(output, flush){
     var
      ppf =
-        /*<<format.ml:994:12>>*/ pp_make_formatter
-        (output,
+        /*<<format.ml:994:12>>*/  /*<<format.ml:994:12>>*/ pp_make_formatter
+         /*<<format.ml:994:12>>*/ (output,
          flush,
          function(_av_){ /*<<?>>*/ return 0;},
          function(_au_){ /*<<?>>*/ return 0;},
@@ -30127,8 +33080,8 @@
      /*<<format.ml:998:2>>*/ return ppf /*<<format.ml:998:2>>*/ ;
     /*<<format.ml:998:5>>*/ }
    function formatter_of_out_channel(oc){
-     /*<<format.ml:1003:2>>*/ return make_formatter
-            ( /*<<format.ml:1003:17>>*/ caml_call1
+     /*<<format.ml:1003:2>>*/ return  /*<<format.ml:1003:39>>*/ make_formatter
+             /*<<format.ml:1003:39>>*/ ( /*<<format.ml:1003:17>>*/ caml_call1
                /*<<format.ml:1003:17>>*/ (Stdlib[69], oc),
              function(param){
                /*<<format.ml:1003:50>>*/ return  /*<<format.ml:1003:2>>*/ caml_call1
@@ -30136,8 +33089,8 @@
               /*<<format.ml:1003:58>>*/ }) /*<<format.ml:1003:59>>*/ ;
     /*<<format.ml:1003:59>>*/ }
    function formatter_of_buffer(b){
-     /*<<format.ml:1008:2>>*/ return make_formatter
-            ( /*<<format.ml:1008:17>>*/ caml_call1
+     /*<<format.ml:1008:2>>*/ return  /*<<format.ml:1008:42>>*/ make_formatter
+             /*<<format.ml:1008:42>>*/ ( /*<<format.ml:1008:17>>*/ caml_call1
                /*<<format.ml:1008:17>>*/ (Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
     /*<<format.ml:1008:48>>*/ }
@@ -30147,12 +33100,18 @@
              /*<<format.ml:1007:24>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
     /*<<format.ml:1015:52>>*/ }
    var
-    stdbuf =  /*<<format.ml:1018:13>>*/ pp_make_buffer(0),
+    stdbuf =
+       /*<<format.ml:1018:13>>*/  /*<<format.ml:1018:13>>*/ pp_make_buffer
+        /*<<format.ml:1018:13>>*/ (0),
     std_formatter =
-       /*<<format.ml:1022:20>>*/ formatter_of_out_channel(Stdlib[39]),
+       /*<<format.ml:1022:20>>*/  /*<<format.ml:1022:20>>*/ formatter_of_out_channel
+        /*<<format.ml:1022:20>>*/ (Stdlib[39]),
     err_formatter =
-       /*<<format.ml:1023:20>>*/ formatter_of_out_channel(Stdlib[40]),
-    str_formatter =  /*<<format.ml:1024:20>>*/ formatter_of_buffer(stdbuf),
+       /*<<format.ml:1023:20>>*/  /*<<format.ml:1023:20>>*/ formatter_of_out_channel
+        /*<<format.ml:1023:20>>*/ (Stdlib[40]),
+    str_formatter =
+       /*<<format.ml:1024:20>>*/  /*<<format.ml:1024:20>>*/ formatter_of_buffer
+        /*<<format.ml:1024:20>>*/ (stdbuf),
     stdbuf_key =
        /*<<format.ml:1029:17>>*/  /*<<format.ml:1029:17>>*/ caml_call2
         /*<<format.ml:1029:17>>*/ (Stdlib_Domain[10][1], 0, pp_make_buffer);
@@ -30164,8 +33123,8 @@
         /*<<format.ml:1032:24>>*/ (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1033:2>>*/ return formatter_of_buffer
-                 ( /*<<format.ml:1033:22>>*/ caml_call1
+          /*<<format.ml:1033:2>>*/ return  /*<<format.ml:1033:22>>*/ formatter_of_buffer
+                  /*<<format.ml:1033:22>>*/ ( /*<<format.ml:1033:22>>*/ caml_call1
                     /*<<format.ml:1033:22>>*/ (Stdlib_Domain[10][2],
                     stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
          /*<<format.ml:1033:42>>*/ });
@@ -30224,8 +33183,8 @@
          var
           _ac_ = Stdlib[39],
           ppf =
-             /*<<format.ml:1052:4>>*/ pp_make_formatter
-             (function(_al_, _am_, _an_){
+             /*<<format.ml:1052:4>>*/  /*<<format.ml:1052:4>>*/ pp_make_formatter
+              /*<<format.ml:1052:4>>*/ (function(_al_, _am_, _an_){
                 /*<<?>>*/ return buffered_out_string
                        (std_buf_key, _al_, _am_, _an_);
               },
@@ -30259,8 +33218,8 @@
          var
           _S_ = Stdlib[40],
           ppf =
-             /*<<format.ml:1064:4>>*/ pp_make_formatter
-             (function(_$_, _aa_, _ab_){
+             /*<<format.ml:1064:4>>*/  /*<<format.ml:1064:4>>*/ pp_make_formatter
+              /*<<format.ml:1064:4>>*/ (function(_$_, _aa_, _ab_){
                 /*<<?>>*/ return buffered_out_string
                        (err_buf_key, _$_, _aa_, _ab_);
               },
@@ -30302,7 +33261,8 @@
              /*<<format.ml:1076:22>>*/ (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
     /*<<format.ml:1077:38>>*/ }
    function flush_buffer_formatter(buf, ppf){
-     /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
+     /*<<format.ml:1084:2>>*/  /*<<format.ml:1084:2>>*/ pp_flush_queue
+      /*<<format.ml:1084:2>>*/ (ppf, 0);
     var
      s =
         /*<<format.ml:1085:10>>*/  /*<<format.ml:1085:10>>*/ caml_call1
@@ -30319,8 +33279,8 @@
      str_formatter =
         /*<<format.ml:1092:22>>*/  /*<<format.ml:1092:22>>*/ caml_call1
          /*<<format.ml:1092:22>>*/ (Stdlib_Domain[10][2], str_formatter_key);
-     /*<<format.ml:1093:2>>*/ return flush_buffer_formatter
-            (stdbuf, str_formatter) /*<<format.ml:1093:45>>*/ ;
+     /*<<format.ml:1093:2>>*/ return  /*<<format.ml:1093:2>>*/ flush_buffer_formatter
+             /*<<format.ml:1093:2>>*/ (stdbuf, str_formatter) /*<<format.ml:1093:45>>*/ ;
     /*<<format.ml:1093:45>>*/ }
    function make_synchronized_formatter(output, flush){
      /*<<format.ml:1096:2>>*/ return  /*<<format.ml:1096:14>>*/ caml_call2
@@ -30351,13 +33311,13 @@
                 /*<<format.ml:1101:6>>*/ return  /*<<format.ml:1101:6>>*/ caml_call1
                         /*<<format.ml:1101:6>>*/ (flush, 0) /*<<format.ml:1102:14>>*/ ;
                /*<<format.ml:1102:14>>*/ }
-               /*<<format.ml:1104:4>>*/ return make_formatter
-                      (output$0, flush$0) /*<<format.ml:1104:33>>*/ ;
+               /*<<format.ml:1104:4>>*/ return  /*<<format.ml:1104:4>>*/ make_formatter
+                       /*<<format.ml:1104:4>>*/ (output$0, flush$0) /*<<format.ml:1104:33>>*/ ;
               /*<<format.ml:1104:33>>*/ }) /*<<format.ml:1104:34>>*/ ;
     /*<<format.ml:1104:34>>*/ }
    function synchronized_formatter_of_out_(oc){
-     /*<<format.ml:1107:2>>*/ return make_synchronized_formatter
-            ( /*<<format.ml:1107:30>>*/ caml_call1
+     /*<<format.ml:1107:2>>*/ return  /*<<format.ml:1107:52>>*/ make_synchronized_formatter
+             /*<<format.ml:1107:52>>*/ ( /*<<format.ml:1107:30>>*/ caml_call1
                /*<<format.ml:1107:30>>*/ (Stdlib[69], oc),
              function(param){
                /*<<format.ml:1107:63>>*/ return  /*<<format.ml:1107:2>>*/ caml_call1
@@ -30375,8 +33335,12 @@
      /*<<format.ml:1140:2>>*/ return caml_call1(Stdlib_List[10], sob[1]) /*<<format.ml:1140:39>>*/ ;
     /*<<format.ml:1140:39>>*/ }
    function flush_symbolic_output_buffer(sob){
-    var items =  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer(sob);
-     /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer(sob);
+    var
+     items =
+        /*<<format.ml:1143:14>>*/  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer
+         /*<<format.ml:1143:14>>*/ (sob);
+     /*<<format.ml:1144:2>>*/  /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer
+      /*<<format.ml:1144:2>>*/ (sob);
      /*<<format.ml:1144:2>>*/ return items /*<<format.ml:1144:2>>*/ ;
     /*<<format.ml:1145:7>>*/ }
    function add_symbolic_output_item(sob, item){
@@ -30385,78 +33349,83 @@
     /*<<format.ml:1148:70>>*/ }
    function formatter_of_symbolic_output_b(sob){
     function f(s, i, n){
-      /*<<format.ml:1156:33>>*/ return add_symbolic_output_item
-             (sob,
+      /*<<format.ml:1156:33>>*/ return  /*<<format.ml:1156:33>>*/ add_symbolic_output_item
+              /*<<format.ml:1156:33>>*/ (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
                  /*<<format.ml:1156:48>>*/ (Stdlib_String[16], s, i, n)]) /*<<format.ml:1156:33>>*/ ;
     }
     function g(_Q_){
-      /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0) /*<<format.ml:1152:4>>*/ ;
+      /*<<format.ml:1152:4>>*/ return  /*<<format.ml:1152:4>>*/ add_symbolic_output_item
+              /*<<format.ml:1152:4>>*/ (sob, 0) /*<<format.ml:1152:4>>*/ ;
     }
     function h(_P_){
-      /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1) /*<<format.ml:1154:4>>*/ ;
+      /*<<format.ml:1154:4>>*/ return  /*<<format.ml:1154:4>>*/ add_symbolic_output_item
+              /*<<format.ml:1154:4>>*/ (sob, 1) /*<<format.ml:1154:4>>*/ ;
     }
     function i(n){
-      /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]) /*<<format.ml:1158:33>>*/ ;
+      /*<<format.ml:1158:33>>*/ return  /*<<format.ml:1158:33>>*/ add_symbolic_output_item
+              /*<<format.ml:1158:33>>*/ (sob, [1, n]) /*<<format.ml:1158:33>>*/ ;
     }
     function j(n){
-      /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]) /*<<format.ml:1160:33>>*/ ;
+      /*<<format.ml:1160:33>>*/ return  /*<<format.ml:1160:33>>*/ add_symbolic_output_item
+              /*<<format.ml:1160:33>>*/ (sob, [2, n]) /*<<format.ml:1160:33>>*/ ;
     }
-     /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
+     /*<<format.ml:1167:2>>*/ return  /*<<format.ml:1167:2>>*/ pp_make_formatter
+             /*<<format.ml:1167:2>>*/ (f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
     /*<<format.ml:1167:29>>*/ }
    function open_hbox(v){
-     /*<<format.ml:1176:18>>*/ return pp_open_hbox
-            ( /*<<format.ml:1176:31>>*/ caml_call1
+     /*<<format.ml:1176:18>>*/ return  /*<<format.ml:1176:18>>*/ pp_open_hbox
+             /*<<format.ml:1176:18>>*/ ( /*<<format.ml:1176:31>>*/ caml_call1
                /*<<format.ml:1176:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1176:60>>*/ ;
     /*<<format.ml:1176:60>>*/ }
    function open_vbox(v){
-     /*<<format.ml:1177:18>>*/ return pp_open_vbox
-            ( /*<<format.ml:1177:31>>*/ caml_call1
+     /*<<format.ml:1177:18>>*/ return  /*<<format.ml:1177:18>>*/ pp_open_vbox
+             /*<<format.ml:1177:18>>*/ ( /*<<format.ml:1177:31>>*/ caml_call1
                /*<<format.ml:1177:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1177:60>>*/ ;
     /*<<format.ml:1177:60>>*/ }
    function open_hvbox(v){
-     /*<<format.ml:1178:19>>*/ return pp_open_hvbox
-            ( /*<<format.ml:1178:33>>*/ caml_call1
+     /*<<format.ml:1178:19>>*/ return  /*<<format.ml:1178:19>>*/ pp_open_hvbox
+             /*<<format.ml:1178:19>>*/ ( /*<<format.ml:1178:33>>*/ caml_call1
                /*<<format.ml:1178:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1178:62>>*/ ;
     /*<<format.ml:1178:62>>*/ }
    function open_hovbox(v){
-     /*<<format.ml:1179:20>>*/ return pp_open_hovbox
-            ( /*<<format.ml:1179:35>>*/ caml_call1
+     /*<<format.ml:1179:20>>*/ return  /*<<format.ml:1179:20>>*/ pp_open_hovbox
+             /*<<format.ml:1179:20>>*/ ( /*<<format.ml:1179:35>>*/ caml_call1
                /*<<format.ml:1179:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1179:64>>*/ ;
     /*<<format.ml:1179:64>>*/ }
    function open_box(v){
-     /*<<format.ml:1180:17>>*/ return pp_open_box
-            ( /*<<format.ml:1180:29>>*/ caml_call1
+     /*<<format.ml:1180:17>>*/ return  /*<<format.ml:1180:17>>*/ pp_open_box
+             /*<<format.ml:1180:17>>*/ ( /*<<format.ml:1180:29>>*/ caml_call1
                /*<<format.ml:1180:29>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1180:58>>*/ ;
     /*<<format.ml:1180:58>>*/ }
    function close_box(v){
-     /*<<format.ml:1181:18>>*/ return pp_close_box
-            ( /*<<format.ml:1181:31>>*/ caml_call1
+     /*<<format.ml:1181:18>>*/ return  /*<<format.ml:1181:18>>*/ pp_close_box
+             /*<<format.ml:1181:18>>*/ ( /*<<format.ml:1181:31>>*/ caml_call1
                /*<<format.ml:1181:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1181:60>>*/ ;
     /*<<format.ml:1181:60>>*/ }
    function open_stag(v){
-     /*<<format.ml:1182:18>>*/ return pp_open_stag
-            ( /*<<format.ml:1182:31>>*/ caml_call1
+     /*<<format.ml:1182:18>>*/ return  /*<<format.ml:1182:18>>*/ pp_open_stag
+             /*<<format.ml:1182:18>>*/ ( /*<<format.ml:1182:31>>*/ caml_call1
                /*<<format.ml:1182:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1182:60>>*/ ;
     /*<<format.ml:1182:60>>*/ }
    function close_stag(v){
-     /*<<format.ml:1183:19>>*/ return pp_close_stag
-            ( /*<<format.ml:1183:33>>*/ caml_call1
+     /*<<format.ml:1183:19>>*/ return  /*<<format.ml:1183:19>>*/ pp_close_stag
+             /*<<format.ml:1183:19>>*/ ( /*<<format.ml:1183:33>>*/ caml_call1
                /*<<format.ml:1183:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1183:62>>*/ ;
@@ -30466,139 +33435,140 @@
      state =
         /*<<format.ml:1184:31>>*/  /*<<format.ml:1184:31>>*/ caml_call1
          /*<<format.ml:1184:31>>*/ (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:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
+             /*<<format.ml:630:2>>*/ (state, isize, w) /*<<format.ml:1184:62>>*/ ;
     /*<<format.ml:1184:62>>*/ }
    function print_string(v){
-     /*<<format.ml:1185:21>>*/ return pp_print_string
-            ( /*<<format.ml:1185:37>>*/ caml_call1
+     /*<<format.ml:1185:21>>*/ return  /*<<format.ml:1185:21>>*/ pp_print_string
+             /*<<format.ml:1185:21>>*/ ( /*<<format.ml:1185:37>>*/ caml_call1
                /*<<format.ml:1185:37>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1185:66>>*/ ;
     /*<<format.ml:1185:66>>*/ }
    function print_bytes(v){
-     /*<<format.ml:1186:20>>*/ return pp_print_bytes
-            ( /*<<format.ml:1186:35>>*/ caml_call1
+     /*<<format.ml:1186:20>>*/ return  /*<<format.ml:1186:20>>*/ pp_print_bytes
+             /*<<format.ml:1186:20>>*/ ( /*<<format.ml:1186:35>>*/ caml_call1
                /*<<format.ml:1186:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1186:64>>*/ ;
     /*<<format.ml:1186:64>>*/ }
    function print_int(v){
-     /*<<format.ml:1187:18>>*/ return pp_print_int
-            ( /*<<format.ml:1187:31>>*/ caml_call1
+     /*<<format.ml:1187:18>>*/ return  /*<<format.ml:1187:18>>*/ pp_print_int
+             /*<<format.ml:1187:18>>*/ ( /*<<format.ml:1187:31>>*/ caml_call1
                /*<<format.ml:1187:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1187:60>>*/ ;
     /*<<format.ml:1187:60>>*/ }
    function print_float(v){
-     /*<<format.ml:1188:20>>*/ return pp_print_float
-            ( /*<<format.ml:1188:35>>*/ caml_call1
+     /*<<format.ml:1188:20>>*/ return  /*<<format.ml:1188:20>>*/ pp_print_float
+             /*<<format.ml:1188:20>>*/ ( /*<<format.ml:1188:35>>*/ caml_call1
                /*<<format.ml:1188:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1188:64>>*/ ;
     /*<<format.ml:1188:64>>*/ }
    function print_char(v){
-     /*<<format.ml:1189:19>>*/ return pp_print_char
-            ( /*<<format.ml:1189:33>>*/ caml_call1
+     /*<<format.ml:1189:19>>*/ return  /*<<format.ml:1189:19>>*/ pp_print_char
+             /*<<format.ml:1189:19>>*/ ( /*<<format.ml:1189:33>>*/ caml_call1
                /*<<format.ml:1189:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1189:62>>*/ ;
     /*<<format.ml:1189:62>>*/ }
    function print_bool(v){
-     /*<<format.ml:1190:19>>*/ return pp_print_bool
-            ( /*<<format.ml:1190:33>>*/ caml_call1
+     /*<<format.ml:1190:19>>*/ return  /*<<format.ml:1190:19>>*/ pp_print_bool
+             /*<<format.ml:1190:19>>*/ ( /*<<format.ml:1190:33>>*/ caml_call1
                /*<<format.ml:1190:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1190:62>>*/ ;
     /*<<format.ml:1190:62>>*/ }
    function print_break(v, w){
-     /*<<format.ml:1191:22>>*/ return pp_print_break
-            ( /*<<format.ml:1191:37>>*/ caml_call1
+     /*<<format.ml:1191:22>>*/ return  /*<<format.ml:1191:22>>*/ pp_print_break
+             /*<<format.ml:1191:22>>*/ ( /*<<format.ml:1191:37>>*/ caml_call1
                /*<<format.ml:1191:37>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v,
              w) /*<<format.ml:1191:68>>*/ ;
     /*<<format.ml:1191:68>>*/ }
    function print_cut(v){
-     /*<<format.ml:1192:18>>*/ return pp_print_cut
-            ( /*<<format.ml:1192:31>>*/ caml_call1
+     /*<<format.ml:1192:18>>*/ return  /*<<format.ml:1192:18>>*/ pp_print_cut
+             /*<<format.ml:1192:18>>*/ ( /*<<format.ml:1192:31>>*/ caml_call1
                /*<<format.ml:1192:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1192:60>>*/ ;
     /*<<format.ml:1192:60>>*/ }
    function print_space(v){
-     /*<<format.ml:1193:20>>*/ return pp_print_space
-            ( /*<<format.ml:1193:35>>*/ caml_call1
+     /*<<format.ml:1193:20>>*/ return  /*<<format.ml:1193:20>>*/ pp_print_space
+             /*<<format.ml:1193:20>>*/ ( /*<<format.ml:1193:35>>*/ caml_call1
                /*<<format.ml:1193:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1193:64>>*/ ;
     /*<<format.ml:1193:64>>*/ }
    function force_newline(v){
-     /*<<format.ml:1194:22>>*/ return pp_force_newline
-            ( /*<<format.ml:1194:39>>*/ caml_call1
+     /*<<format.ml:1194:22>>*/ return  /*<<format.ml:1194:22>>*/ pp_force_newline
+             /*<<format.ml:1194:22>>*/ ( /*<<format.ml:1194:39>>*/ caml_call1
                /*<<format.ml:1194:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1194:68>>*/ ;
     /*<<format.ml:1194:68>>*/ }
    function print_flush(v){
-     /*<<format.ml:1195:20>>*/ return pp_print_flush
-            ( /*<<format.ml:1195:35>>*/ caml_call1
+     /*<<format.ml:1195:20>>*/ return  /*<<format.ml:1195:20>>*/ pp_print_flush
+             /*<<format.ml:1195:20>>*/ ( /*<<format.ml:1195:35>>*/ caml_call1
                /*<<format.ml:1195:35>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1195:64>>*/ ;
     /*<<format.ml:1195:64>>*/ }
    function print_newline(v){
-     /*<<format.ml:1196:22>>*/ return pp_print_newline
-            ( /*<<format.ml:1196:39>>*/ caml_call1
+     /*<<format.ml:1196:22>>*/ return  /*<<format.ml:1196:22>>*/ pp_print_newline
+             /*<<format.ml:1196:22>>*/ ( /*<<format.ml:1196:39>>*/ caml_call1
                /*<<format.ml:1196:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1196:68>>*/ ;
     /*<<format.ml:1196:68>>*/ }
    function print_if_newline(v){
-     /*<<format.ml:1197:25>>*/ return pp_print_if_newline
-            ( /*<<format.ml:1197:45>>*/ caml_call1
+     /*<<format.ml:1197:25>>*/ return  /*<<format.ml:1197:25>>*/ pp_print_if_newline
+             /*<<format.ml:1197:25>>*/ ( /*<<format.ml:1197:45>>*/ caml_call1
                /*<<format.ml:1197:45>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1197:74>>*/ ;
     /*<<format.ml:1197:74>>*/ }
    function open_tbox(v){
-     /*<<format.ml:1199:18>>*/ return pp_open_tbox
-            ( /*<<format.ml:1199:31>>*/ caml_call1
+     /*<<format.ml:1199:18>>*/ return  /*<<format.ml:1199:18>>*/ pp_open_tbox
+             /*<<format.ml:1199:18>>*/ ( /*<<format.ml:1199:31>>*/ caml_call1
                /*<<format.ml:1199:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1199:60>>*/ ;
     /*<<format.ml:1199:60>>*/ }
    function close_tbox(v){
-     /*<<format.ml:1200:19>>*/ return pp_close_tbox
-            ( /*<<format.ml:1200:33>>*/ caml_call1
+     /*<<format.ml:1200:19>>*/ return  /*<<format.ml:1200:19>>*/ pp_close_tbox
+             /*<<format.ml:1200:19>>*/ ( /*<<format.ml:1200:33>>*/ caml_call1
                /*<<format.ml:1200:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1200:62>>*/ ;
     /*<<format.ml:1200:62>>*/ }
    function print_tbreak(v, w){
-     /*<<format.ml:1201:23>>*/ return pp_print_tbreak
-            ( /*<<format.ml:1201:39>>*/ caml_call1
+     /*<<format.ml:1201:23>>*/ return  /*<<format.ml:1201:23>>*/ pp_print_tbreak
+             /*<<format.ml:1201:23>>*/ ( /*<<format.ml:1201:39>>*/ caml_call1
                /*<<format.ml:1201:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v,
              w) /*<<format.ml:1201:70>>*/ ;
     /*<<format.ml:1201:70>>*/ }
    function set_tab(v){
-     /*<<format.ml:1203:16>>*/ return pp_set_tab
-            ( /*<<format.ml:1203:27>>*/ caml_call1
+     /*<<format.ml:1203:16>>*/ return  /*<<format.ml:1203:16>>*/ pp_set_tab
+             /*<<format.ml:1203:16>>*/ ( /*<<format.ml:1203:27>>*/ caml_call1
                /*<<format.ml:1203:27>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1203:56>>*/ ;
     /*<<format.ml:1203:56>>*/ }
    function print_tab(v){
-     /*<<format.ml:1204:18>>*/ return pp_print_tab
-            ( /*<<format.ml:1204:31>>*/ caml_call1
+     /*<<format.ml:1204:18>>*/ return  /*<<format.ml:1204:18>>*/ pp_print_tab
+             /*<<format.ml:1204:18>>*/ ( /*<<format.ml:1204:31>>*/ caml_call1
                /*<<format.ml:1204:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1204:60>>*/ ;
     /*<<format.ml:1204:60>>*/ }
    function set_margin(v){
-     /*<<format.ml:1206:19>>*/ return pp_set_margin
-            ( /*<<format.ml:1206:33>>*/ caml_call1
+     /*<<format.ml:1206:19>>*/ return  /*<<format.ml:1206:19>>*/ pp_set_margin
+             /*<<format.ml:1206:19>>*/ ( /*<<format.ml:1206:33>>*/ caml_call1
                /*<<format.ml:1206:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1206:62>>*/ ;
@@ -30611,8 +33581,8 @@
     return state[6];
     /*<<format.ml:1207:62>>*/ }
    function set_max_indent(v){
-     /*<<format.ml:1209:23>>*/ return pp_set_max_indent
-            ( /*<<format.ml:1209:41>>*/ caml_call1
+     /*<<format.ml:1209:23>>*/ return  /*<<format.ml:1209:23>>*/ pp_set_max_indent
+             /*<<format.ml:1209:23>>*/ ( /*<<format.ml:1209:41>>*/ caml_call1
                /*<<format.ml:1209:41>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1209:70>>*/ ;
@@ -30625,38 +33595,38 @@
     return state[8];
     /*<<format.ml:1210:70>>*/ }
    function set_geometry(max_indent, margin){
-     /*<<format.ml:1213:2>>*/ return pp_set_geometry
-            ( /*<<format.ml:1213:18>>*/ caml_call1
+     /*<<format.ml:1213:2>>*/ return  /*<<format.ml:1213:2>>*/ pp_set_geometry
+             /*<<format.ml:1213:2>>*/ ( /*<<format.ml:1213:18>>*/ caml_call1
                /*<<format.ml:1213:18>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1213:65>>*/ ;
     /*<<format.ml:1213:65>>*/ }
    function safe_set_geometry(max_indent, margin){
-     /*<<format.ml:1215:2>>*/ return pp_safe_set_geometry
-            ( /*<<format.ml:1215:23>>*/ caml_call1
+     /*<<format.ml:1215:2>>*/ return  /*<<format.ml:1215:2>>*/ pp_safe_set_geometry
+             /*<<format.ml:1215:2>>*/ ( /*<<format.ml:1215:23>>*/ caml_call1
                /*<<format.ml:1215:23>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1215:70>>*/ ;
     /*<<format.ml:1215:70>>*/ }
    function get_geometry(v){
-     /*<<format.ml:1216:21>>*/ return pp_get_geometry
-            ( /*<<format.ml:1216:37>>*/ caml_call1
+     /*<<format.ml:1216:21>>*/ return  /*<<format.ml:1216:21>>*/ pp_get_geometry
+             /*<<format.ml:1216:21>>*/ ( /*<<format.ml:1216:37>>*/ caml_call1
                /*<<format.ml:1216:37>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1216:66>>*/ ;
     /*<<format.ml:1216:66>>*/ }
    function update_geometry(v){
-     /*<<format.ml:1217:24>>*/ return pp_update_geometry
-            ( /*<<format.ml:1217:43>>*/ caml_call1
+     /*<<format.ml:1217:24>>*/ return  /*<<format.ml:1217:24>>*/ pp_update_geometry
+             /*<<format.ml:1217:24>>*/ ( /*<<format.ml:1217:43>>*/ caml_call1
                /*<<format.ml:1217:43>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1217:72>>*/ ;
     /*<<format.ml:1217:72>>*/ }
    function set_max_boxes(v){
-     /*<<format.ml:1219:22>>*/ return pp_set_max_boxes
-            ( /*<<format.ml:1219:39>>*/ caml_call1
+     /*<<format.ml:1219:22>>*/ return  /*<<format.ml:1219:22>>*/ pp_set_max_boxes
+             /*<<format.ml:1219:22>>*/ ( /*<<format.ml:1219:39>>*/ caml_call1
                /*<<format.ml:1219:39>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1219:68>>*/ ;
@@ -30669,15 +33639,15 @@
     return state[15];
     /*<<format.ml:1220:68>>*/ }
    function over_max_boxes(v){
-     /*<<format.ml:1221:23>>*/ return pp_over_max_boxes
-            ( /*<<format.ml:1221:41>>*/ caml_call1
+     /*<<format.ml:1221:23>>*/ return  /*<<format.ml:1221:23>>*/ pp_over_max_boxes
+             /*<<format.ml:1221:23>>*/ ( /*<<format.ml:1221:41>>*/ caml_call1
                /*<<format.ml:1221:41>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1221:70>>*/ ;
     /*<<format.ml:1221:70>>*/ }
    function set_ellipsis_text(v){
-     /*<<format.ml:1223:26>>*/ return pp_set_ellipsis_text
-            ( /*<<format.ml:1223:47>>*/ caml_call1
+     /*<<format.ml:1223:26>>*/ return  /*<<format.ml:1223:26>>*/ pp_set_ellipsis_text
+             /*<<format.ml:1223:26>>*/ ( /*<<format.ml:1223:47>>*/ caml_call1
                /*<<format.ml:1223:47>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1223:76>>*/ ;
@@ -30690,58 +33660,58 @@
     return state[16];
     /*<<format.ml:1224:76>>*/ }
    function set_formatter_out_channel(v){
-     /*<<format.ml:1227:2>>*/ return pp_set_formatter_out_channel
-            ( /*<<format.ml:1227:31>>*/ caml_call1
+     /*<<format.ml:1227:2>>*/ return  /*<<format.ml:1227:2>>*/ pp_set_formatter_out_channel
+             /*<<format.ml:1227:2>>*/ ( /*<<format.ml:1227:31>>*/ caml_call1
                /*<<format.ml:1227:31>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1227:60>>*/ ;
     /*<<format.ml:1227:60>>*/ }
    function set_formatter_out_functions(v){
-     /*<<format.ml:1230:2>>*/ return pp_set_formatter_out_functions
-            ( /*<<format.ml:1230:33>>*/ caml_call1
+     /*<<format.ml:1230:2>>*/ return  /*<<format.ml:1230:2>>*/ pp_set_formatter_out_functions
+             /*<<format.ml:1230:2>>*/ ( /*<<format.ml:1230:33>>*/ caml_call1
                /*<<format.ml:1230:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1230:62>>*/ ;
     /*<<format.ml:1230:62>>*/ }
    function get_formatter_out_functions(v){
-     /*<<format.ml:1232:2>>*/ return pp_get_formatter_out_functions
-            ( /*<<format.ml:1232:33>>*/ caml_call1
+     /*<<format.ml:1232:2>>*/ return  /*<<format.ml:1232:2>>*/ pp_get_formatter_out_functions
+             /*<<format.ml:1232:2>>*/ ( /*<<format.ml:1232:33>>*/ caml_call1
                /*<<format.ml:1232:33>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1232:62>>*/ ;
     /*<<format.ml:1232:62>>*/ }
    function set_formatter_output_functions(v, w){
-     /*<<format.ml:1235:2>>*/ return pp_set_formatter_output_functi
-            ( /*<<format.ml:1235:36>>*/ caml_call1
+     /*<<format.ml:1235:2>>*/ return  /*<<format.ml:1235:2>>*/ pp_set_formatter_output_functi
+             /*<<format.ml:1235:2>>*/ ( /*<<format.ml:1235:36>>*/ caml_call1
                /*<<format.ml:1235:36>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v,
              w) /*<<format.ml:1235:67>>*/ ;
     /*<<format.ml:1235:67>>*/ }
    function get_formatter_output_functions(v){
-     /*<<format.ml:1237:2>>*/ return pp_get_formatter_output_functi
-            ( /*<<format.ml:1237:36>>*/ caml_call1
+     /*<<format.ml:1237:2>>*/ return  /*<<format.ml:1237:2>>*/ pp_get_formatter_output_functi
+             /*<<format.ml:1237:2>>*/ ( /*<<format.ml:1237:36>>*/ caml_call1
                /*<<format.ml:1237:36>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1237:65>>*/ ;
     /*<<format.ml:1237:65>>*/ }
    function set_formatter_stag_functions(v){
-     /*<<format.ml:1240:2>>*/ return pp_set_formatter_stag_function
-            ( /*<<format.ml:1240:34>>*/ caml_call1
+     /*<<format.ml:1240:2>>*/ return  /*<<format.ml:1240:2>>*/ pp_set_formatter_stag_function
+             /*<<format.ml:1240:2>>*/ ( /*<<format.ml:1240:34>>*/ caml_call1
                /*<<format.ml:1240:34>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1240:63>>*/ ;
     /*<<format.ml:1240:63>>*/ }
    function get_formatter_stag_functions(v){
-     /*<<format.ml:1242:2>>*/ return pp_get_formatter_stag_function
-            ( /*<<format.ml:1242:34>>*/ caml_call1
+     /*<<format.ml:1242:2>>*/ return  /*<<format.ml:1242:2>>*/ pp_get_formatter_stag_function
+             /*<<format.ml:1242:2>>*/ ( /*<<format.ml:1242:34>>*/ caml_call1
                /*<<format.ml:1242:34>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1242:63>>*/ ;
     /*<<format.ml:1242:63>>*/ }
    function set_print_tags(v){
-     /*<<format.ml:1244:2>>*/ return pp_set_print_tags
-            ( /*<<format.ml:1244:20>>*/ caml_call1
+     /*<<format.ml:1244:2>>*/ return  /*<<format.ml:1244:2>>*/ pp_set_print_tags
+             /*<<format.ml:1244:2>>*/ ( /*<<format.ml:1244:20>>*/ caml_call1
                /*<<format.ml:1244:20>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1244:49>>*/ ;
@@ -30754,8 +33724,8 @@
     return state[22];
     /*<<format.ml:1246:49>>*/ }
    function set_mark_tags(v){
-     /*<<format.ml:1248:2>>*/ return pp_set_mark_tags
-            ( /*<<format.ml:1248:19>>*/ caml_call1
+     /*<<format.ml:1248:2>>*/ return  /*<<format.ml:1248:2>>*/ pp_set_mark_tags
+             /*<<format.ml:1248:2>>*/ ( /*<<format.ml:1248:19>>*/ caml_call1
                /*<<format.ml:1248:19>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1248:48>>*/ ;
@@ -30768,8 +33738,8 @@
     return state[23];
     /*<<format.ml:1250:48>>*/ }
    function set_tags(v){
-     /*<<format.ml:1252:2>>*/ return pp_set_tags
-            ( /*<<format.ml:1252:14>>*/ caml_call1
+     /*<<format.ml:1252:2>>*/ return  /*<<format.ml:1252:2>>*/ pp_set_tags
+             /*<<format.ml:1252:2>>*/ ( /*<<format.ml:1252:14>>*/ caml_call1
                /*<<format.ml:1252:14>>*/ (Stdlib_Domain[10][2],
                std_formatter_key),
              v) /*<<format.ml:1252:43>>*/ ;
@@ -30792,18 +33762,30 @@
     /*<<format.ml:1263:13>>*/ }
    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
-            ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v) /*<<format.ml:1267:44>>*/ ;
+     /*<<format.ml:1267:2>>*/ return  /*<<format.ml:1267:2>>*/ pp_print_iter
+             /*<<format.ml:1267:2>>*/ ([0, pp_sep],
+             Stdlib_List[18],
+             pp_v,
+             ppf,
+             v) /*<<format.ml:1267:44>>*/ ;
     /*<<format.ml:1267:44>>*/ }
    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
-            ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v) /*<<format.ml:1271:45>>*/ ;
+     /*<<format.ml:1271:2>>*/ return  /*<<format.ml:1271:2>>*/ pp_print_iter
+             /*<<format.ml:1271:2>>*/ ([0, pp_sep],
+             Stdlib_Array[12],
+             pp_v,
+             ppf,
+             v) /*<<format.ml:1271:45>>*/ ;
     /*<<format.ml:1271:45>>*/ }
    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
-            ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq) /*<<format.ml:1275:45>>*/ ;
+     /*<<format.ml:1275:2>>*/ return  /*<<format.ml:1275:2>>*/ pp_print_iter
+             /*<<format.ml:1275:2>>*/ ([0, pp_sep],
+             Stdlib_Seq[4],
+             pp_v,
+             ppf,
+             seq) /*<<format.ml:1275:45>>*/ ;
     /*<<format.ml:1275:45>>*/ }
    function pp_print_text(ppf, s){
     var
@@ -30811,8 +33793,8 @@
      left =  /*<<format.ml:1280:13>>*/ [0, 0],
      right =  /*<<format.ml:1281:14>>*/ [0, 0];
     function flush(param){
-      /*<<format.ml:1283:4>>*/ pp_print_string
-      (ppf,
+      /*<<format.ml:1283:4>>*/  /*<<format.ml:1283:4>>*/ pp_print_string
+       /*<<format.ml:1283:4>>*/ (ppf,
         /*<<format.ml:1283:24>>*/ caml_call3
          /*<<format.ml:1283:24>>*/ (Stdlib_String[16],
          s,
@@ -30825,19 +33807,25 @@
     for(;;){
      if(right[1] === len){
       var _O_ = left[1] !== len ? 1 : 0;
-      return _O_ ? flush(0) : _O_ /*<<format.ml:1297:31>>*/ ;
+      return _O_
+              ?  /*<<format.ml:1297:23>>*/ flush /*<<format.ml:1297:23>>*/ (0)
+              : _O_ /*<<format.ml:1297:31>>*/ ;
      }
      var
       match =
          /*<<format.ml:1287:10>>*/  /*<<format.ml:1287:10>>*/ runtime.caml_string_get
           /*<<format.ml:1287:10>>*/ (s, right[1]);
      if(10 === match){
-       /*<<format.ml:1289:8>>*/ flush(0);
-       /*<<format.ml:1290:8>>*/ pp_force_newline(ppf, 0);
+       /*<<format.ml:1289:8>>*/  /*<<format.ml:1289:8>>*/ flush
+        /*<<format.ml:1289:8>>*/ (0);
+       /*<<format.ml:1290:8>>*/  /*<<format.ml:1290:8>>*/ pp_force_newline
+        /*<<format.ml:1290:8>>*/ (ppf, 0);
      }
      else if(32 === match){
-       /*<<format.ml:1292:8>>*/ flush(0);
-       /*<<format.ml:1292:18>>*/ pp_print_space(ppf, 0);
+       /*<<format.ml:1292:8>>*/  /*<<format.ml:1292:8>>*/ flush
+        /*<<format.ml:1292:8>>*/ (0);
+       /*<<format.ml:1292:18>>*/  /*<<format.ml:1292:18>>*/ pp_print_space
+        /*<<format.ml:1292:18>>*/ (ppf, 0);
      }
      else
       right[1]++;
@@ -30884,10 +33872,13 @@
      buf =
         /*<<format.ml:1314:12>>*/  /*<<format.ml:1314:12>>*/ caml_call1
          /*<<format.ml:1314:12>>*/ (Stdlib_Buffer[1], 16),
-     ppf =  /*<<format.ml:1315:12>>*/ formatter_of_buffer(buf);
+     ppf =
+        /*<<format.ml:1315:12>>*/  /*<<format.ml:1315:12>>*/ formatter_of_buffer
+         /*<<format.ml:1315:12>>*/ (buf);
      /*<<format.ml:1316:2>>*/  /*<<format.ml:1316:2>>*/ caml_call2
       /*<<format.ml:1316:2>>*/ (output, ppf, tag_acc);
-     /*<<format.ml:1317:2>>*/ pp_print_flush(ppf, 0);
+     /*<<format.ml:1317:2>>*/  /*<<format.ml:1317:2>>*/ pp_print_flush
+      /*<<format.ml:1317:2>>*/ (ppf, 0);
     var
      len =
         /*<<format.ml:1318:12>>*/  /*<<format.ml:1318:12>>*/ caml_call1
@@ -30905,30 +33896,40 @@
      /*<<format.ml:1333:43>>*/ if(typeof fmting_lit === "number")
      switch(fmting_lit){
        case 0:
-         /*<<format.ml:1334:33>>*/ return pp_close_box(ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1334:33>>*/ return  /*<<format.ml:1334:33>>*/ pp_close_box
+                 /*<<format.ml:1334:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 1:
-         /*<<format.ml:1335:33>>*/ return pp_close_stag(ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1335:33>>*/ return  /*<<format.ml:1335:33>>*/ pp_close_stag
+                 /*<<format.ml:1335:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 2:
-         /*<<format.ml:1337:33>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1337:33>>*/ return  /*<<format.ml:1337:33>>*/ pp_print_flush
+                 /*<<format.ml:1337:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 3:
-         /*<<format.ml:1338:33>>*/ return pp_force_newline(ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1338:33>>*/ return  /*<<format.ml:1338:33>>*/ pp_force_newline
+                 /*<<format.ml:1338:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 4:
-         /*<<format.ml:1339:33>>*/ return pp_print_newline(ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1339:33>>*/ return  /*<<format.ml:1339:33>>*/ pp_print_newline
+                 /*<<format.ml:1339:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 5:
-         /*<<format.ml:1341:33>>*/ return pp_print_char(ppf, 64) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1341:33>>*/ return  /*<<format.ml:1341:33>>*/ pp_print_char
+                 /*<<format.ml:1341:33>>*/ (ppf, 64) /*<<format.ml:1343:75>>*/ ;
        default:
-         /*<<format.ml:1342:33>>*/ return pp_print_char(ppf, 37) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1342:33>>*/ return  /*<<format.ml:1342:33>>*/ pp_print_char
+                 /*<<format.ml:1342:33>>*/ (ppf, 37) /*<<format.ml:1343:75>>*/ ;
      }
     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:1343:75>>*/ ;
+        /*<<format.ml:1336:33>>*/ return  /*<<format.ml:1336:33>>*/ pp_print_break
+                /*<<format.ml:1336:33>>*/ (ppf, width, offset) /*<<format.ml:1343:75>>*/ ;
       case 1:
         /*<<format.ml:1340:33>>*/ return 0 /*<<format.ml:1340:33>>*/ ;
       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:1343:75>>*/ ;
+        /*<<format.ml:1343:33>>*/  /*<<format.ml:1343:33>>*/ pp_print_char
+         /*<<format.ml:1343:33>>*/ (ppf, 64);
+        /*<<format.ml:1343:33>>*/ return  /*<<format.ml:1343:33>>*/ pp_print_char
+                /*<<format.ml:1343:33>>*/ (ppf, c) /*<<format.ml:1343:75>>*/ ;
     }
     /*<<format.ml:1343:75>>*/ }
    function output_acc(ppf, acc){
@@ -30943,26 +33944,37 @@
        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:1375:34>>*/ ;
+           /*<<format.ml:1359:4>>*/  /*<<format.ml:1359:4>>*/ output_acc
+            /*<<format.ml:1359:4>>*/ (ppf, p);
+           /*<<format.ml:1359:4>>*/ return  /*<<format.ml:1359:4>>*/ output_formatting_lit
+                   /*<<format.ml:1359:4>>*/ (ppf, f) /*<<format.ml:1375:34>>*/ ;
          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
-                   (ppf, [0, String_tag, compute_tag(output_acc, acc$0)]) /*<<format.ml:1375:34>>*/ ;
+            /*<<format.ml:1362:4>>*/  /*<<format.ml:1362:4>>*/ output_acc
+             /*<<format.ml:1362:4>>*/ (ppf, p$0);
+            /*<<format.ml:1363:21>>*/ return  /*<<format.ml:1363:21>>*/ pp_open_stag
+                    /*<<format.ml:1363:21>>*/ (ppf,
+                    [0,
+                     String_tag,
+                      /*<<format.ml:1363:33>>*/ compute_tag
+                       /*<<format.ml:1363:33>>*/ (output_acc, acc$0)]) /*<<format.ml:1375:34>>*/ ;
           }
           var acc$1 = match[1];
-           /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
+           /*<<format.ml:1365:4>>*/  /*<<format.ml:1365:4>>*/ output_acc
+            /*<<format.ml:1365:4>>*/ (ppf, p$0);
           var
-           _E_ =  /*<<format.ml:1366:43>>*/ compute_tag(output_acc, acc$1),
+           _E_ =
+              /*<<format.ml:1366:43>>*/  /*<<format.ml:1366:43>>*/ compute_tag
+               /*<<format.ml:1366:43>>*/ (output_acc, acc$1),
            match$0 =
               /*<<format.ml:1366:24>>*/  /*<<format.ml:1366:24>>*/ caml_call1
                /*<<format.ml:1366:24>>*/ (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:1375:34>>*/ ;
+           /*<<format.ml:1367:4>>*/ return  /*<<format.ml:1367:4>>*/ pp_open_box_gen
+                   /*<<format.ml:1367:4>>*/ (ppf, indent, bty) /*<<format.ml:1375:34>>*/ ;
          case 2:
           var _F_ = acc[1];
           if(typeof _F_ !== "number" && 0 === _F_[0]){
@@ -31009,34 +34021,45 @@
           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>>*/  /*<<format.ml:1372:32>>*/ output_acc
+            /*<<format.ml:1372:32>>*/ (ppf, p$5);
            /*<<format.ml:1372:32>>*/ return  /*<<format.ml:1372:32>>*/ caml_call1
                    /*<<format.ml:1372:32>>*/ (f$0, ppf) /*<<format.ml:1375:34>>*/ ;
          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:1375:34>>*/ ;
+           /*<<format.ml:1373:32>>*/  /*<<format.ml:1373:32>>*/ output_acc
+            /*<<format.ml:1373:32>>*/ (ppf, p$6);
+           /*<<format.ml:1373:32>>*/ return  /*<<format.ml:1373:32>>*/ pp_print_flush
+                   /*<<format.ml:1373:32>>*/ (ppf, 0) /*<<format.ml:1375:34>>*/ ;
          default:
           var msg = acc[2], p$7 = acc[1];
-           /*<<format.ml:1374:32>>*/ output_acc(ppf, p$7);
+           /*<<format.ml:1374:32>>*/  /*<<format.ml:1374:32>>*/ output_acc
+            /*<<format.ml:1374:32>>*/ (ppf, p$7);
            /*<<format.ml:1374:32>>*/ return  /*<<format.ml:1374:32>>*/ caml_call1
                    /*<<format.ml:1374:32>>*/ (Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
        }
-        /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
-        /*<<format.ml:1357:44>>*/ return pp_print_as_size
-               (ppf,
+        /*<<format.ml:1356:4>>*/  /*<<format.ml:1356:4>>*/ output_acc
+         /*<<format.ml:1356:4>>*/ (ppf, p$4);
+        /*<<format.ml:1357:44>>*/ return  /*<<format.ml:1357:44>>*/ pp_print_as_size
+                /*<<format.ml:1357:44>>*/ (ppf,
                 size$0,
                  /*<<format.ml:1357:44>>*/ caml_call2
                   /*<<format.ml:1357:44>>*/ (Stdlib_String[1], 1, c$0)) /*<<format.ml:1375:34>>*/ ;
       }
-       /*<<format.ml:1371:32>>*/ output_acc(ppf, p$3);
-       /*<<format.ml:1371:32>>*/ return pp_print_char(ppf, c) /*<<format.ml:1375:34>>*/ ;
-     }
-      /*<<format.ml:1352:4>>*/ output_acc(ppf, p$2);
-      /*<<format.ml:1352:4>>*/ return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
-    }
-     /*<<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:1371:32>>*/  /*<<format.ml:1371:32>>*/ output_acc
+        /*<<format.ml:1371:32>>*/ (ppf, p$3);
+       /*<<format.ml:1371:32>>*/ return  /*<<format.ml:1371:32>>*/ pp_print_char
+               /*<<format.ml:1371:32>>*/ (ppf, c) /*<<format.ml:1375:34>>*/ ;
+     }
+      /*<<format.ml:1352:4>>*/  /*<<format.ml:1352:4>>*/ output_acc
+       /*<<format.ml:1352:4>>*/ (ppf, p$2);
+      /*<<format.ml:1352:4>>*/ return  /*<<format.ml:1352:4>>*/ pp_print_as_size
+              /*<<format.ml:1352:4>>*/ (ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
+    }
+     /*<<format.ml:1369:32>>*/  /*<<format.ml:1369:32>>*/ output_acc
+      /*<<format.ml:1369:32>>*/ (ppf, p$1);
+     /*<<format.ml:1369:32>>*/ return  /*<<format.ml:1369:32>>*/ pp_print_string
+             /*<<format.ml:1369:32>>*/ (ppf, s) /*<<format.ml:1375:34>>*/ ;
     /*<<format.ml:1375:34>>*/ }
    function strput_acc(ppf, acc){
      /*<<format.ml:1381:29>>*/ if(typeof acc === "number")
@@ -31050,26 +34073,37 @@
        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:1410:34>>*/ ;
+           /*<<format.ml:1394:4>>*/  /*<<format.ml:1394:4>>*/ strput_acc
+            /*<<format.ml:1394:4>>*/ (ppf, p);
+           /*<<format.ml:1394:4>>*/ return  /*<<format.ml:1394:4>>*/ output_formatting_lit
+                   /*<<format.ml:1394:4>>*/ (ppf, f) /*<<format.ml:1410:34>>*/ ;
          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
-                   (ppf, [0, String_tag, compute_tag(strput_acc, acc$0)]) /*<<format.ml:1410:34>>*/ ;
+            /*<<format.ml:1397:4>>*/  /*<<format.ml:1397:4>>*/ strput_acc
+             /*<<format.ml:1397:4>>*/ (ppf, p$0);
+            /*<<format.ml:1398:21>>*/ return  /*<<format.ml:1398:21>>*/ pp_open_stag
+                    /*<<format.ml:1398:21>>*/ (ppf,
+                    [0,
+                     String_tag,
+                      /*<<format.ml:1398:33>>*/ compute_tag
+                       /*<<format.ml:1398:33>>*/ (strput_acc, acc$0)]) /*<<format.ml:1410:34>>*/ ;
           }
           var acc$1 = match[1];
-           /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
+           /*<<format.ml:1400:4>>*/  /*<<format.ml:1400:4>>*/ strput_acc
+            /*<<format.ml:1400:4>>*/ (ppf, p$0);
           var
-           _v_ =  /*<<format.ml:1401:43>>*/ compute_tag(strput_acc, acc$1),
+           _v_ =
+              /*<<format.ml:1401:43>>*/  /*<<format.ml:1401:43>>*/ compute_tag
+               /*<<format.ml:1401:43>>*/ (strput_acc, acc$1),
            match$0 =
               /*<<format.ml:1401:24>>*/  /*<<format.ml:1401:24>>*/ caml_call1
                /*<<format.ml:1401:24>>*/ (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:1410:34>>*/ ;
+           /*<<format.ml:1402:4>>*/ return  /*<<format.ml:1402:4>>*/ pp_open_box_gen
+                   /*<<format.ml:1402:4>>*/ (ppf, indent, bty) /*<<format.ml:1410:34>>*/ ;
          case 2:
           var _w_ = acc[1];
           if(typeof _w_ !== "number" && 0 === _w_[0]){
@@ -31120,52 +34154,65 @@
            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,
+             /*<<format.ml:1391:4>>*/  /*<<format.ml:1391:4>>*/ strput_acc
+              /*<<format.ml:1391:4>>*/ (ppf, p$6);
+             /*<<format.ml:1392:44>>*/ return  /*<<format.ml:1392:44>>*/ pp_print_as_size
+                     /*<<format.ml:1392:44>>*/ (ppf,
                      size$1,
                       /*<<format.ml:1392:44>>*/ caml_call1
                        /*<<format.ml:1392:44>>*/ (f$1, 0)) /*<<format.ml:1410:34>>*/ ;
            }
           }
           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:32>>*/  /*<<format.ml:1407:32>>*/ strput_acc
+            /*<<format.ml:1407:32>>*/ (ppf, p$5);
+           /*<<format.ml:1407:70>>*/ return  /*<<format.ml:1407:70>>*/ pp_print_string
+                   /*<<format.ml:1407:70>>*/ (ppf,
                     /*<<format.ml:1407:70>>*/ caml_call1
                      /*<<format.ml:1407:70>>*/ (f$0, 0)) /*<<format.ml:1410:34>>*/ ;
          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:1410:34>>*/ ;
+           /*<<format.ml:1408:32>>*/  /*<<format.ml:1408:32>>*/ strput_acc
+            /*<<format.ml:1408:32>>*/ (ppf, p$7);
+           /*<<format.ml:1408:32>>*/ return  /*<<format.ml:1408:32>>*/ pp_print_flush
+                   /*<<format.ml:1408:32>>*/ (ppf, 0) /*<<format.ml:1410:34>>*/ ;
          default:
           var msg = acc[2], p$8 = acc[1];
-           /*<<format.ml:1409:32>>*/ strput_acc(ppf, p$8);
+           /*<<format.ml:1409:32>>*/  /*<<format.ml:1409:32>>*/ strput_acc
+            /*<<format.ml:1409:32>>*/ (ppf, p$8);
            /*<<format.ml:1409:32>>*/ return  /*<<format.ml:1409:32>>*/ caml_call1
                    /*<<format.ml:1409:32>>*/ (Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
        }
-        /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
-        /*<<format.ml:1389:44>>*/ return pp_print_as_size
-               (ppf,
+        /*<<format.ml:1388:4>>*/  /*<<format.ml:1388:4>>*/ strput_acc
+         /*<<format.ml:1388:4>>*/ (ppf, p$4);
+        /*<<format.ml:1389:44>>*/ return  /*<<format.ml:1389:44>>*/ pp_print_as_size
+                /*<<format.ml:1389:44>>*/ (ppf,
                 size$0,
                  /*<<format.ml:1389:44>>*/ caml_call2
                   /*<<format.ml:1389:44>>*/ (Stdlib_String[1], 1, c$0)) /*<<format.ml:1410:34>>*/ ;
       }
-       /*<<format.ml:1406:32>>*/ strput_acc(ppf, p$3);
-       /*<<format.ml:1406:32>>*/ return pp_print_char(ppf, c) /*<<format.ml:1410:34>>*/ ;
-     }
-      /*<<format.ml:1384:4>>*/ strput_acc(ppf, p$2);
-      /*<<format.ml:1384:4>>*/ return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
-    }
-     /*<<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:1406:32>>*/  /*<<format.ml:1406:32>>*/ strput_acc
+        /*<<format.ml:1406:32>>*/ (ppf, p$3);
+       /*<<format.ml:1406:32>>*/ return  /*<<format.ml:1406:32>>*/ pp_print_char
+               /*<<format.ml:1406:32>>*/ (ppf, c) /*<<format.ml:1410:34>>*/ ;
+     }
+      /*<<format.ml:1384:4>>*/  /*<<format.ml:1384:4>>*/ strput_acc
+       /*<<format.ml:1384:4>>*/ (ppf, p$2);
+      /*<<format.ml:1384:4>>*/ return  /*<<format.ml:1384:4>>*/ pp_print_as_size
+              /*<<format.ml:1384:4>>*/ (ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
+    }
+     /*<<format.ml:1404:32>>*/  /*<<format.ml:1404:32>>*/ strput_acc
+      /*<<format.ml:1404:32>>*/ (ppf, p$1);
+     /*<<format.ml:1404:32>>*/ return  /*<<format.ml:1404:32>>*/ pp_print_string
+             /*<<format.ml:1404:32>>*/ (ppf, s) /*<<format.ml:1410:34>>*/ ;
     /*<<format.ml:1410:34>>*/ }
    function kfprintf(k, ppf, param){
     var fmt = param[1];
      /*<<format.ml:1419:2>>*/ return  /*<<format.ml:1419:2>>*/ caml_call3
              /*<<format.ml:1419:2>>*/ (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1420:16>>*/ output_acc(ppf, acc);
+               /*<<format.ml:1420:16>>*/  /*<<format.ml:1420:16>>*/ output_acc
+                /*<<format.ml:1420:16>>*/ (ppf, acc);
               return caml_call1(k, ppf) /*<<format.ml:1420:41>>*/ ;
               /*<<format.ml:1420:41>>*/ },
              0,
@@ -31194,8 +34241,8 @@
      /*<<format.ml:1432:2>>*/ return  /*<<format.ml:1432:2>>*/ caml_call3
              /*<<format.ml:1432:2>>*/ (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1433:16>>*/ return output_acc
-                      ( /*<<format.ml:1433:27>>*/ caml_call1
+               /*<<format.ml:1433:16>>*/ return  /*<<format.ml:1433:16>>*/ output_acc
+                       /*<<format.ml:1433:16>>*/ ( /*<<format.ml:1433:27>>*/ caml_call1
                          /*<<format.ml:1433:27>>*/ (Stdlib_Domain[10][2],
                          std_formatter_key),
                        acc) /*<<format.ml:1433:58>>*/ ;
@@ -31208,8 +34255,8 @@
      /*<<format.ml:1437:2>>*/ return  /*<<format.ml:1437:2>>*/ caml_call3
              /*<<format.ml:1437:2>>*/ (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1438:16>>*/ return output_acc
-                      ( /*<<format.ml:1438:27>>*/ caml_call1
+               /*<<format.ml:1438:16>>*/ return  /*<<format.ml:1438:16>>*/ output_acc
+                       /*<<format.ml:1438:16>>*/ ( /*<<format.ml:1438:27>>*/ caml_call1
                          /*<<format.ml:1438:27>>*/ (Stdlib_Domain[10][2],
                          err_formatter_key),
                        acc) /*<<format.ml:1438:58>>*/ ;
@@ -31225,15 +34272,16 @@
                /*<<format.ml:1443:16>>*/ return  /*<<format.ml:1443:18>>*/ caml_call1
                        /*<<format.ml:1443:18>>*/ (k,
                        function(ppf){
-                         /*<<format.ml:1443:30>>*/ return output_acc(ppf, acc) /*<<format.ml:1443:48>>*/ ;
+                         /*<<format.ml:1443:30>>*/ return  /*<<format.ml:1443:16>>*/ output_acc
+                                 /*<<format.ml:1443:16>>*/ (ppf, acc) /*<<format.ml:1443:48>>*/ ;
                         /*<<format.ml:1443:48>>*/ }) /*<<format.ml:1443:49>>*/ ;
               /*<<format.ml:1443:49>>*/ },
              0,
              fmt) /*<<format.ml:1444:18>>*/ ;
     /*<<format.ml:1444:18>>*/ }
    function dprintf(fmt){
-     /*<<format.ml:1446:18>>*/ return kdprintf
-            (function(i){
+     /*<<format.ml:1446:18>>*/ return  /*<<format.ml:1446:18>>*/ kdprintf
+             /*<<format.ml:1446:18>>*/ (function(i){
                /*<<format.ml:1446:37>>*/ return i /*<<format.ml:1446:37>>*/ ;
               /*<<format.ml:1446:38>>*/ },
              fmt) /*<<format.ml:1446:43>>*/ ;
@@ -31241,42 +34289,58 @@
    function ksprintf(k, param){
     var
      fmt = param[1],
-     b =  /*<<format.ml:1449:10>>*/ pp_make_buffer(0),
-     ppf =  /*<<format.ml:1450:12>>*/ formatter_of_buffer(b);
+     b =
+        /*<<format.ml:1449:10>>*/  /*<<format.ml:1449:10>>*/ pp_make_buffer
+         /*<<format.ml:1449:10>>*/ (0),
+     ppf =
+        /*<<format.ml:1450:12>>*/  /*<<format.ml:1450:12>>*/ formatter_of_buffer
+         /*<<format.ml:1450:12>>*/ (b);
     function k$0(acc){
-      /*<<format.ml:1452:4>>*/ strput_acc(ppf, acc);
+      /*<<format.ml:1452:4>>*/  /*<<format.ml:1452:4>>*/ strput_acc
+       /*<<format.ml:1452:4>>*/ (ppf, acc);
       /*<<format.ml:1453:6>>*/ return  /*<<format.ml:1453:6>>*/ caml_call1
-              /*<<format.ml:1453:6>>*/ (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
+              /*<<format.ml:1453:6>>*/ (k,
+               /*<<format.ml:1453:6>>*/ flush_buffer_formatter
+                /*<<format.ml:1453:6>>*/ (b, ppf)) /*<<format.ml:1453:36>>*/ ;
      /*<<format.ml:1453:36>>*/ }
      /*<<format.ml:1454:2>>*/ return  /*<<format.ml:1454:2>>*/ caml_call3
              /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:30>>*/ ;
     /*<<format.ml:1454:30>>*/ }
    function sprintf(fmt){
-     /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt) /*<<format.ml:1457:33>>*/ ;
+     /*<<format.ml:1457:18>>*/ return  /*<<format.ml:1457:18>>*/ ksprintf
+             /*<<format.ml:1457:18>>*/ (id, fmt) /*<<format.ml:1457:33>>*/ ;
     /*<<format.ml:1457:33>>*/ }
    function kasprintf(k, param){
     var
      fmt = param[1],
-     b =  /*<<format.ml:1460:10>>*/ pp_make_buffer(0),
-     ppf =  /*<<format.ml:1461:12>>*/ formatter_of_buffer(b);
+     b =
+        /*<<format.ml:1460:10>>*/  /*<<format.ml:1460:10>>*/ pp_make_buffer
+         /*<<format.ml:1460:10>>*/ (0),
+     ppf =
+        /*<<format.ml:1461:12>>*/  /*<<format.ml:1461:12>>*/ formatter_of_buffer
+         /*<<format.ml:1461:12>>*/ (b);
     function k$0(acc){
-      /*<<format.ml:1463:4>>*/ output_acc(ppf, acc);
+      /*<<format.ml:1463:4>>*/  /*<<format.ml:1463:4>>*/ output_acc
+       /*<<format.ml:1463:4>>*/ (ppf, acc);
       /*<<format.ml:1464:6>>*/ return  /*<<format.ml:1464:6>>*/ caml_call1
-              /*<<format.ml:1464:6>>*/ (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
+              /*<<format.ml:1464:6>>*/ (k,
+               /*<<format.ml:1464:6>>*/ flush_buffer_formatter
+                /*<<format.ml:1464:6>>*/ (b, ppf)) /*<<format.ml:1464:36>>*/ ;
      /*<<format.ml:1464:36>>*/ }
      /*<<format.ml:1465:2>>*/ return  /*<<format.ml:1465:2>>*/ caml_call3
              /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:30>>*/ ;
     /*<<format.ml:1465:30>>*/ }
    function asprintf(fmt){
-     /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt) /*<<format.ml:1468:35>>*/ ;
+     /*<<format.ml:1468:19>>*/ return  /*<<format.ml:1468:19>>*/ kasprintf
+             /*<<format.ml:1468:19>>*/ (id, fmt) /*<<format.ml:1468:35>>*/ ;
     /*<<format.ml:1468:35>>*/ }
    function flush_standard_formatters(param){
-     /*<<format.ml:1473:2>>*/ pp_print_flush
-     ( /*<<format.ml:1473:17>>*/ caml_call1
+     /*<<format.ml:1473:2>>*/  /*<<format.ml:1473:2>>*/ pp_print_flush
+      /*<<format.ml:1473:2>>*/ ( /*<<format.ml:1473:17>>*/ caml_call1
         /*<<format.ml:1473:17>>*/ (Stdlib_Domain[10][2], std_formatter_key),
       0);
-     /*<<format.ml:1473:2>>*/ return pp_print_flush
-            ( /*<<format.ml:1474:17>>*/ caml_call1
+     /*<<format.ml:1473:2>>*/ return  /*<<format.ml:1473:2>>*/ pp_print_flush
+             /*<<format.ml:1473:2>>*/ ( /*<<format.ml:1474:17>>*/ caml_call1
                /*<<format.ml:1474:17>>*/ (Stdlib_Domain[10][2],
                err_formatter_key),
              0) /*<<format.ml:1474:47>>*/ ;
@@ -31286,14 +34350,15 @@
     /*<<format.ml:1478:9>>*/  /*<<format.ml:1478:9>>*/ caml_call1
      /*<<format.ml:1478:9>>*/ (Stdlib_Domain[5],
      function(param){
-       /*<<format.ml:1479:2>>*/ flush_standard_formatters(0);
+       /*<<format.ml:1479:2>>*/  /*<<format.ml:1479:2>>*/ flush_standard_formatters
+        /*<<format.ml:1479:2>>*/ (0);
       var
        fs =
-          /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
-          (std_formatter, 0),
+          /*<<format.ml:1480:11>>*/  /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
+           /*<<format.ml:1480:11>>*/ (std_formatter, 0),
        _h_ = Stdlib[39];
-       /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
-       (std_formatter,
+       /*<<format.ml:1481:2>>*/  /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
+        /*<<format.ml:1481:2>>*/ (std_formatter,
         [0,
          function(_o_, _p_, _q_){
            /*<<?>>*/ return buffered_out_string(std_buf_key, _o_, _p_, _q_);
@@ -31306,11 +34371,11 @@
          fs[5]]);
       var
        fs$0 =
-          /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
-          (err_formatter, 0),
+          /*<<format.ml:1485:11>>*/  /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
+           /*<<format.ml:1485:11>>*/ (err_formatter, 0),
        _i_ = Stdlib[40];
-       /*<<format.ml:1487:4>>*/ return pp_set_formatter_out_functions
-              (err_formatter,
+       /*<<format.ml:1487:4>>*/ return  /*<<format.ml:1487:4>>*/ pp_set_formatter_out_functions
+               /*<<format.ml:1487:4>>*/ (err_formatter,
                [0,
                 function(_k_, _l_, _m_){
                   /*<<?>>*/ return buffered_out_string
@@ -31574,17 +34639,23 @@
     }
     /*<<scanf.ml:177:7>>*/ }
    function peek_char(ib){
-     /*<<scanf.ml:181:4>>*/ return ib[3] ? ib[2] : next_char(ib) /*<<scanf.ml:183:21>>*/ ;
+     /*<<scanf.ml:181:4>>*/ return ib[3]
+            ? ib[2]
+            :  /*<<scanf.ml:183:9>>*/ next_char /*<<scanf.ml:183:9>>*/ (ib) /*<<scanf.ml:183:21>>*/ ;
     /*<<scanf.ml:183:21>>*/ }
    function checked_peek_char(ib){
-    var c =  /*<<scanf.ml:192:12>>*/ peek_char(ib);
+    var
+     c =
+        /*<<scanf.ml:192:12>>*/  /*<<scanf.ml:192:12>>*/ peek_char
+         /*<<scanf.ml:192:12>>*/ (ib);
     if(ib[1])
       /*<<scanf.ml:193:22>>*/ throw  /*<<scanf.ml:193:22>>*/ caml_maybe_attach_backtrace
              /*<<scanf.ml:193:22>>*/ (Stdlib[12], 1);
      /*<<scanf.ml:194:4>>*/ return c /*<<scanf.ml:194:4>>*/ ;
     /*<<scanf.ml:194:5>>*/ }
    function end_of_input(ib){
-     /*<<scanf.ml:198:4>>*/ peek_char(ib);
+     /*<<scanf.ml:198:4>>*/  /*<<scanf.ml:198:11>>*/ peek_char
+      /*<<scanf.ml:198:11>>*/ (ib);
     return ib[1];
     /*<<scanf.ml:199:13>>*/ }
    function beginning_of_input(ib){
@@ -31619,13 +34690,15 @@
     /*<<scanf.ml:231:7>>*/ }
    function ignore_char(width, ib){
     var width$0 = width - 1 | 0;
-     /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
+     /*<<scanf.ml:237:4>>*/  /*<<scanf.ml:237:4>>*/ invalidate_current_char
+      /*<<scanf.ml:237:4>>*/ (ib);
      /*<<scanf.ml:237:4>>*/ return width$0 /*<<scanf.ml:237:4>>*/ ;
     /*<<scanf.ml:241:53>>*/ }
    function store_char(width, ib, c){
      /*<<scanf.ml:244:4>>*/  /*<<scanf.ml:244:4>>*/ caml_call2
       /*<<scanf.ml:244:4>>*/ (Stdlib_Buffer[12], ib[8], c);
-     /*<<scanf.ml:244:4>>*/ return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
+     /*<<scanf.ml:244:4>>*/ return  /*<<scanf.ml:244:4>>*/ ignore_char
+             /*<<scanf.ml:244:4>>*/ (width, ib) /*<<scanf.ml:245:24>>*/ ;
     /*<<scanf.ml:245:24>>*/ }
    var default_token_buffer_size =  /*<<scanf.ml:243:17>>*/ 1024;
    function create(iname, next){
@@ -31659,7 +34732,8 @@
       /*<<scanf.ml:269:6>>*/ i[1]++;
       /*<<scanf.ml:270:6>>*/ return c /*<<scanf.ml:270:6>>*/ ;
      /*<<scanf.ml:270:7>>*/ }
-     /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
+     /*<<scanf.ml:271:4>>*/ return  /*<<scanf.ml:271:4>>*/ create
+             /*<<scanf.ml:271:4>>*/ (1, next) /*<<scanf.ml:271:27>>*/ ;
     /*<<scanf.ml:271:27>>*/ }
    var _a_ =  /*<<scanf.ml:263:18>>*/ 0;
    function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
@@ -31705,12 +34779,15 @@
                 /*<<scanf.ml:338:10>>*/ caml_bytes_get
                  /*<<scanf.ml:338:10>>*/ (buf, 0)) /*<<scanf.ml:340:9>>*/ ;
      /*<<scanf.ml:340:9>>*/ }
-     /*<<scanf.ml:341:4>>*/ return create(iname, next) /*<<scanf.ml:341:21>>*/ ;
+     /*<<scanf.ml:341:4>>*/ return  /*<<scanf.ml:341:4>>*/ create
+             /*<<scanf.ml:341:4>>*/ (iname, next) /*<<scanf.ml:341:21>>*/ ;
     /*<<scanf.ml:341:21>>*/ }
    var
     stdin =
-       /*<<scanf.ml:363:4>>*/ from_ic
-       (scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
+       /*<<scanf.ml:363:4>>*/  /*<<scanf.ml:363:4>>*/ from_ic
+        /*<<scanf.ml:363:4>>*/ (scan_raise_at_end,
+        [1, cst, Stdlib[38]],
+        Stdlib[38]);
    function open_in_file(open_in, fname){
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
       /*<<scanf.ml:363:4>>*/ return stdin /*<<scanf.ml:363:4>>*/ ;
@@ -31834,38 +34911,50 @@
             /*<<scanf.ml:405:18>>*/ ([0, Scan_failure, s], 1);
     /*<<scanf.ml:405:40>>*/ }
    function bad_input_escape(c){
-     /*<<scanf.ml:408:2>>*/ return bad_input
-            ( /*<<scanf.ml:408:12>>*/ caml_call2
+     /*<<scanf.ml:408:2>>*/ return  /*<<scanf.ml:408:12>>*/ bad_input
+             /*<<scanf.ml:408:12>>*/ ( /*<<scanf.ml:408:12>>*/ caml_call2
                /*<<scanf.ml:408:12>>*/ (Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
     /*<<scanf.ml:408:60>>*/ }
    function bad_token_length(message){
-     /*<<scanf.ml:412:2>>*/ return bad_input
-            ( /*<<scanf.ml:413:4>>*/ caml_call2
+     /*<<scanf.ml:412:2>>*/ return  /*<<scanf.ml:413:4>>*/ bad_input
+             /*<<scanf.ml:413:4>>*/ ( /*<<scanf.ml:413:4>>*/ caml_call2
                /*<<scanf.ml:413:4>>*/ (Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
     /*<<scanf.ml:416:15>>*/ }
    function bad_hex_float(param){
-     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
+     /*<<scanf.ml:432:2>>*/ return  /*<<scanf.ml:432:2>>*/ bad_input
+             /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
     /*<<scanf.ml:432:55>>*/ }
    function character_mismatch(c, ci){
-     /*<<scanf.ml:440:2>>*/ return bad_input
-            ( /*<<scanf.ml:436:2>>*/ caml_call3
+     /*<<scanf.ml:440:2>>*/ return  /*<<scanf.ml:440:12>>*/ bad_input
+             /*<<scanf.ml:440:12>>*/ ( /*<<scanf.ml:436:2>>*/ caml_call3
                /*<<scanf.ml:436:2>>*/ (Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
     /*<<scanf.ml:440:41>>*/ }
    function check_char(ib, c$0){
      /*<<scanf.ml:468:2>>*/ if(10 === c$0){
-     var ci =  /*<<scanf.ml:479:11>>*/ checked_peek_char(ib);
+     var
+      ci =
+         /*<<scanf.ml:479:11>>*/  /*<<scanf.ml:479:11>>*/ checked_peek_char
+          /*<<scanf.ml:479:11>>*/ (ib);
       /*<<scanf.ml:480:2>>*/ return 10 === ci
-             ? invalidate_current_char(ib)
+             ?  /*<<scanf.ml:481:12>>*/ invalidate_current_char
+                /*<<scanf.ml:481:12>>*/ (ib)
              : 13
                === ci
-               ? (invalidate_current_char(ib), check_this_char(ib, 10))
-               : character_mismatch(10, ci) /*<<scanf.ml:471:29>>*/ ;
+               ? ( /*<<scanf.ml:482:12>>*/ invalidate_current_char
+                   /*<<scanf.ml:482:12>>*/ (ib),
+                  /*<<scanf.ml:482:12>>*/ check_this_char
+                   /*<<scanf.ml:482:12>>*/ (ib, 10))
+               :  /*<<scanf.ml:483:9>>*/ character_mismatch
+                  /*<<scanf.ml:483:9>>*/ (10, ci) /*<<scanf.ml:471:29>>*/ ;
     }
     if(32 !== c$0)
-      /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0) /*<<scanf.ml:471:29>>*/ ;
+      /*<<scanf.ml:471:9>>*/ return  /*<<scanf.ml:471:9>>*/ check_this_char
+              /*<<scanf.ml:471:9>>*/ (ib, c$0) /*<<scanf.ml:471:29>>*/ ;
      /*<<scanf.ml:444:2>>*/ for(;;){
      var
-      c =  /*<<scanf.ml:444:10>>*/ peek_char(ib),
+      c =
+         /*<<scanf.ml:444:10>>*/  /*<<scanf.ml:444:10>>*/ peek_char
+          /*<<scanf.ml:444:10>>*/ (ib),
       _aS_ =  /*<<scanf.ml:445:9>>*/ 1 - ib[1];
      if(! _aS_)  /*<<scanf.ml:445:9>>*/ return _aS_ /*<<scanf.ml:445:9>>*/ ;
      var _aT_ =  /*<<scanf.ml:445:32>>*/ c - 9 | 0;
@@ -31877,24 +34966,37 @@
       else if(1 < _aT_ - 2 >>> 0) break a;
        /*<<scanf.ml:449:11>>*/ return 0 /*<<scanf.ml:449:11>>*/ ;
      }
-      /*<<scanf.ml:448:6>>*/ invalidate_current_char(ib);
+      /*<<scanf.ml:448:6>>*/  /*<<scanf.ml:448:6>>*/ invalidate_current_char
+       /*<<scanf.ml:448:6>>*/ (ib);
     }
     /*<<scanf.ml:471:29>>*/ }
    function check_this_char(ib, c){
-    var ci =  /*<<scanf.ml:474:11>>*/ checked_peek_char(ib);
-    return ci === c ? invalidate_current_char(ib) : character_mismatch(c, ci) /*<<scanf.ml:476:25>>*/ ;
+    var
+     ci =
+        /*<<scanf.ml:474:11>>*/  /*<<scanf.ml:474:11>>*/ checked_peek_char
+         /*<<scanf.ml:474:11>>*/ (ib);
+    return ci === c
+            ?  /*<<scanf.ml:475:17>>*/ invalidate_current_char
+               /*<<scanf.ml:475:17>>*/ (ib)
+            :  /*<<scanf.ml:476:2>>*/ character_mismatch
+               /*<<scanf.ml:476:2>>*/ (c, ci) /*<<scanf.ml:476:25>>*/ ;
     /*<<scanf.ml:476:25>>*/ }
    function token_char(ib){
      /*<<scanf.ml:488:20>>*/ return  /*<<scanf.ml:488:20>>*/ caml_string_get
-             /*<<scanf.ml:488:20>>*/ (token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
+             /*<<scanf.ml:488:20>>*/ ( /*<<scanf.ml:488:20>>*/ token_string
+               /*<<scanf.ml:488:20>>*/ (ib),
+             0) /*<<scanf.ml:488:43>>*/ ;
     /*<<scanf.ml:488:43>>*/ }
    function token_bool(ib){
-    var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
+    var
+     s =
+        /*<<scanf.ml:493:8>>*/  /*<<scanf.ml:493:8>>*/ token_string
+         /*<<scanf.ml:493:8>>*/ (ib);
     return s !== "false"
             ? s
               !== "true"
-              ? bad_input
-                ( /*<<scanf.ml:496:19>>*/ caml_call2
+              ?  /*<<scanf.ml:496:19>>*/ bad_input
+                 /*<<scanf.ml:496:19>>*/ ( /*<<scanf.ml:496:19>>*/ caml_call2
                    /*<<scanf.ml:496:19>>*/ (Stdlib_Printf[4], _h_, s))
               : 1
             : 0 /*<<scanf.ml:496:60>>*/ ;
@@ -31924,33 +35026,44 @@
      /*<<scanf.ml:523:2>>*/ switch(conv){
       case 0:
        var
-        _aO_ =  /*<<scanf.ml:529:29>>*/ token_string(ib),
+        _aO_ =
+           /*<<scanf.ml:529:29>>*/  /*<<scanf.ml:529:29>>*/ token_string
+            /*<<scanf.ml:529:29>>*/ (ib),
         tok =
            /*<<scanf.ml:529:22>>*/ caml_call2
             /*<<scanf.ml:529:22>>*/ (Stdlib[28], cst_0b, _aO_);
        break;
       case 3:
        var
-        _aP_ =  /*<<scanf.ml:527:29>>*/ token_string(ib),
+        _aP_ =
+           /*<<scanf.ml:527:29>>*/  /*<<scanf.ml:527:29>>*/ token_string
+            /*<<scanf.ml:527:29>>*/ (ib),
         tok =
            /*<<scanf.ml:527:22>>*/ caml_call2
             /*<<scanf.ml:527:22>>*/ (Stdlib[28], cst_0o, _aP_);
        break;
       case 4:
        var
-        _aQ_ =  /*<<scanf.ml:526:29>>*/ token_string(ib),
+        _aQ_ =
+           /*<<scanf.ml:526:29>>*/  /*<<scanf.ml:526:29>>*/ token_string
+            /*<<scanf.ml:526:29>>*/ (ib),
         tok =
            /*<<scanf.ml:526:22>>*/ caml_call2
             /*<<scanf.ml:526:22>>*/ (Stdlib[28], cst_0u, _aQ_);
        break;
       case 5:
        var
-        _aR_ =  /*<<scanf.ml:528:29>>*/ token_string(ib),
+        _aR_ =
+           /*<<scanf.ml:528:29>>*/  /*<<scanf.ml:528:29>>*/ token_string
+            /*<<scanf.ml:528:29>>*/ (ib),
         tok =
            /*<<scanf.ml:528:22>>*/ caml_call2
             /*<<scanf.ml:528:22>>*/ (Stdlib[28], cst_0x, _aR_);
        break;
-      default: var tok = token_string(ib);
+      default:
+       var
+        tok =
+           /*<<scanf.ml:525:37>>*/ token_string /*<<scanf.ml:525:37>>*/ (ib);
     }
     var
      l =
@@ -31969,25 +35082,35 @@
     /*<<scanf.ml:531:67>>*/ }
    function token_float(ib){
      /*<<scanf.ml:539:21>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
-             /*<<scanf.ml:539:21>>*/ (token_string(ib)) /*<<scanf.ml:539:56>>*/ ;
+             /*<<scanf.ml:539:21>>*/ ( /*<<scanf.ml:539:37>>*/ token_string
+               /*<<scanf.ml:539:37>>*/ (ib)) /*<<scanf.ml:539:56>>*/ ;
     /*<<scanf.ml:539:56>>*/ }
    function scan_decimal_digit_star(width, ib){
     var width$0 = width;
      /*<<scanf.ml:575:2>>*/ for(;;){
      if(0 === width$0)
        /*<<scanf.ml:575:20>>*/ return width$0 /*<<scanf.ml:575:20>>*/ ;
-     var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
+     var
+      c =
+         /*<<scanf.ml:576:10>>*/  /*<<scanf.ml:576:10>>*/ peek_char
+          /*<<scanf.ml:576:10>>*/ (ib);
       /*<<scanf.ml:577:5>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0 /*<<scanf.ml:577:26>>*/ ;
      if(58 <= c){
       if(95 === c){
-       var width$1 =  /*<<scanf.ml:583:16>>*/ ignore_char(width$0, ib);
+       var
+        width$1 =
+           /*<<scanf.ml:583:16>>*/  /*<<scanf.ml:583:16>>*/ ignore_char
+            /*<<scanf.ml:583:16>>*/ (width$0, ib);
        width$0 = width$1;
        continue;
       }
      }
      else if(48 <= c){
-      var width$2 =  /*<<scanf.ml:580:16>>*/ store_char(width$0, ib, c);
+      var
+       width$2 =
+          /*<<scanf.ml:580:16>>*/  /*<<scanf.ml:580:16>>*/ store_char
+           /*<<scanf.ml:580:16>>*/ (width$0, ib, c);
       width$0 = width$2;
       continue;
      }
@@ -31996,43 +35119,66 @@
     /*<<scanf.ml:585:14>>*/ }
    function scan_decimal_digit_plus(width, ib){
      /*<<scanf.ml:589:2>>*/ if(0 === width)
-      /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
-    var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
+      /*<<scanf.ml:589:20>>*/ return  /*<<scanf.ml:589:20>>*/ bad_token_length
+              /*<<scanf.ml:589:20>>*/ (cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
+    var
+     c =
+        /*<<scanf.ml:590:10>>*/  /*<<scanf.ml:590:10>>*/ checked_peek_char
+         /*<<scanf.ml:590:10>>*/ (ib);
     if(9 < c - 48 >>> 0)
-      /*<<scanf.ml:596:14>>*/ return bad_input
-             ( /*<<scanf.ml:596:14>>*/ caml_call2
+      /*<<scanf.ml:596:14>>*/ return  /*<<scanf.ml:596:14>>*/ bad_input
+              /*<<scanf.ml:596:14>>*/ ( /*<<scanf.ml:596:14>>*/ caml_call2
                 /*<<scanf.ml:596:14>>*/ (Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
-    var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
-     /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib) /*<<scanf.ml:596:70>>*/ ;
+    var
+     width$0 =
+        /*<<scanf.ml:593:16>>*/  /*<<scanf.ml:593:16>>*/ store_char
+         /*<<scanf.ml:593:16>>*/ (width, ib, c);
+     /*<<scanf.ml:594:4>>*/ return  /*<<scanf.ml:594:4>>*/ scan_decimal_digit_star
+             /*<<scanf.ml:594:4>>*/ (width$0, ib) /*<<scanf.ml:596:70>>*/ ;
     /*<<scanf.ml:596:70>>*/ }
    function scan_digit_plus(basis, digitp, width$2, ib){
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
-      /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits) /*<<scanf.ml:626:77>>*/ ;
-    var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
+      /*<<scanf.ml:620:20>>*/ return  /*<<scanf.ml:620:20>>*/ bad_token_length
+              /*<<scanf.ml:620:20>>*/ (cst_digits) /*<<scanf.ml:626:77>>*/ ;
+    var
+     c$0 =
+        /*<<scanf.ml:621:10>>*/  /*<<scanf.ml:621:10>>*/ checked_peek_char
+         /*<<scanf.ml:621:10>>*/ (ib);
      /*<<scanf.ml:622:5>>*/ if
      (!
        /*<<scanf.ml:622:5>>*/ caml_call1 /*<<scanf.ml:622:5>>*/ (digitp, c$0))
-      /*<<scanf.ml:626:14>>*/ return bad_input
-             ( /*<<scanf.ml:626:14>>*/ caml_call3
+      /*<<scanf.ml:626:14>>*/ return  /*<<scanf.ml:626:14>>*/ bad_input
+              /*<<scanf.ml:626:14>>*/ ( /*<<scanf.ml:626:14>>*/ caml_call3
                 /*<<scanf.ml:626:14>>*/ (Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
     var
-     width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
+     width$3 =
+        /*<<scanf.ml:623:16>>*/  /*<<scanf.ml:623:16>>*/ store_char
+         /*<<scanf.ml:623:16>>*/ (width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
      if(0 === width)
        /*<<scanf.ml:603:22>>*/ return width /*<<scanf.ml:603:22>>*/ ;
-     var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
+     var
+      c =
+         /*<<scanf.ml:604:12>>*/  /*<<scanf.ml:604:12>>*/ peek_char
+          /*<<scanf.ml:604:12>>*/ (ib);
       /*<<scanf.ml:605:7>>*/ if(ib[1])
        /*<<scanf.ml:605:28>>*/ return width /*<<scanf.ml:605:28>>*/ ;
       /*<<scanf.ml:607:13>>*/ if
       ( /*<<scanf.ml:607:13>>*/ caml_call1 /*<<scanf.ml:607:13>>*/ (digitp, c)){
-      var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
+      var
+       width$0 =
+          /*<<scanf.ml:608:18>>*/  /*<<scanf.ml:608:18>>*/ store_char
+           /*<<scanf.ml:608:18>>*/ (width, ib, c);
       width = width$0;
      }
      else{
       if(95 !== c)
         /*<<scanf.ml:613:11>>*/ return width /*<<scanf.ml:613:11>>*/ ;
-      var width$1 =  /*<<scanf.ml:611:18>>*/ ignore_char(width, ib);
+      var
+       width$1 =
+          /*<<scanf.ml:611:18>>*/  /*<<scanf.ml:611:18>>*/ ignore_char
+           /*<<scanf.ml:611:18>>*/ (width, ib);
       width = width$1;
      }
     }
@@ -32057,39 +35203,58 @@
     /*<<scanf.ml:645:14>>*/ }
    function scan_sign(width, ib){
     var
-     c =  /*<<scanf.ml:654:10>>*/ checked_peek_char(ib),
+     c =
+        /*<<scanf.ml:654:10>>*/  /*<<scanf.ml:654:10>>*/ checked_peek_char
+         /*<<scanf.ml:654:10>>*/ (ib),
      switcher =  /*<<scanf.ml:654:10>>*/ c - 43 | 0;
     if(2 >= switcher >>> 0)
      switch(switcher){
        case 0:
-         /*<<scanf.ml:656:11>>*/ return store_char(width, ib, c) /*<<scanf.ml:658:14>>*/ ;
+         /*<<scanf.ml:656:11>>*/ return  /*<<scanf.ml:656:11>>*/ store_char
+                 /*<<scanf.ml:656:11>>*/ (width, ib, c) /*<<scanf.ml:658:14>>*/ ;
        case 1: break;
        default:
-         /*<<scanf.ml:657:11>>*/ return store_char(width, ib, c) /*<<scanf.ml:658:14>>*/ ;
+         /*<<scanf.ml:657:11>>*/ return  /*<<scanf.ml:657:11>>*/ store_char
+                 /*<<scanf.ml:657:11>>*/ (width, ib, c) /*<<scanf.ml:658:14>>*/ ;
      }
      /*<<scanf.ml:658:9>>*/ return width /*<<scanf.ml:658:9>>*/ ;
     /*<<scanf.ml:658:14>>*/ }
    function scan_optionally_signed_decimal(width, ib){
-    var width$0 =  /*<<scanf.ml:662:14>>*/ scan_sign(width, ib);
-     /*<<scanf.ml:663:2>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:663:36>>*/ ;
+    var
+     width$0 =
+        /*<<scanf.ml:662:14>>*/  /*<<scanf.ml:662:14>>*/ scan_sign
+         /*<<scanf.ml:662:14>>*/ (width, ib);
+     /*<<scanf.ml:663:2>>*/ return  /*<<scanf.ml:663:2>>*/ scan_decimal_digit_plus
+             /*<<scanf.ml:663:2>>*/ (width$0, ib) /*<<scanf.ml:663:36>>*/ ;
     /*<<scanf.ml:663:36>>*/ }
    function scan_int_conversion(conv, width$1, ib){
      /*<<scanf.ml:691:2>>*/ switch(conv){
       case 0:
        return scan_digit_plus(cst_binary, is_binary_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 1:
-        /*<<scanf.ml:693:20>>*/ return scan_optionally_signed_decimal
-               (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+        /*<<scanf.ml:693:20>>*/ return  /*<<scanf.ml:693:20>>*/ scan_optionally_signed_decimal
+                /*<<scanf.ml:693:20>>*/ (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 2:
        var
-        width$0 =  /*<<scanf.ml:686:14>>*/ scan_sign(width$1, ib),
-        c =  /*<<scanf.ml:671:8>>*/ checked_peek_char(ib);
+        width$0 =
+           /*<<scanf.ml:686:14>>*/  /*<<scanf.ml:686:14>>*/ scan_sign
+            /*<<scanf.ml:686:14>>*/ (width$1, ib),
+        c =
+           /*<<scanf.ml:671:8>>*/  /*<<scanf.ml:671:8>>*/ checked_peek_char
+            /*<<scanf.ml:671:8>>*/ (ib);
        if(48 !== c)
-         /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:697:49>>*/ ;
-       var width =  /*<<scanf.ml:673:16>>*/ store_char(width$0, ib, c);
+         /*<<scanf.ml:682:9>>*/ return  /*<<scanf.ml:682:9>>*/ scan_decimal_digit_plus
+                 /*<<scanf.ml:682:9>>*/ (width$0, ib) /*<<scanf.ml:697:49>>*/ ;
+       var
+        width =
+           /*<<scanf.ml:673:16>>*/  /*<<scanf.ml:673:16>>*/ store_char
+            /*<<scanf.ml:673:16>>*/ (width$0, ib, c);
         /*<<scanf.ml:674:4>>*/ if(0 === width)
          /*<<scanf.ml:674:22>>*/ return width /*<<scanf.ml:674:22>>*/ ;
-       var c$0 =  /*<<scanf.ml:675:12>>*/ peek_char(ib);
+       var
+        c$0 =
+           /*<<scanf.ml:675:12>>*/  /*<<scanf.ml:675:12>>*/ peek_char
+            /*<<scanf.ml:675:12>>*/ (ib);
         /*<<scanf.ml:676:7>>*/ if(ib[1])
          /*<<scanf.ml:676:28>>*/ return width /*<<scanf.ml:676:28>>*/ ;
        a:
@@ -32097,7 +35262,11 @@
         if(99 <= c$0){
          if(111 === c$0)
           return scan_digit_plus
-                  (cst_octal, is_octal_digit, store_char(width, ib, c$0), ib) /*<<scanf.ml:697:49>>*/ ;
+                  (cst_octal,
+                   is_octal_digit,
+                    /*<<scanf.ml:679:28>>*/ store_char
+                     /*<<scanf.ml:679:28>>*/ (width, ib, c$0),
+                   ib) /*<<scanf.ml:697:49>>*/ ;
          if(120 === c$0) break a;
         }
         else{
@@ -32106,20 +35275,24 @@
           return scan_digit_plus
                   (cst_binary,
                    is_binary_digit,
-                   store_char(width, ib, c$0),
+                    /*<<scanf.ml:680:29>>*/ store_char
+                     /*<<scanf.ml:680:29>>*/ (width, ib, c$0),
                    ib) /*<<scanf.ml:697:49>>*/ ;
         }
-         /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib) /*<<scanf.ml:697:49>>*/ ;
+         /*<<scanf.ml:681:11>>*/ return  /*<<scanf.ml:681:11>>*/ scan_decimal_digit_star
+                 /*<<scanf.ml:681:11>>*/ (width, ib) /*<<scanf.ml:697:49>>*/ ;
        }
        return scan_digit_plus
                (cst_hexadecimal,
                 is_hexa_digit,
-                store_char(width, ib, c$0),
+                 /*<<scanf.ml:678:40>>*/ store_char
+                  /*<<scanf.ml:678:40>>*/ (width, ib, c$0),
                 ib) /*<<scanf.ml:697:49>>*/ ;
       case 3:
        return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 4:
-        /*<<scanf.ml:696:20>>*/ return scan_decimal_digit_plus(width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+        /*<<scanf.ml:696:20>>*/ return  /*<<scanf.ml:696:20>>*/ scan_decimal_digit_plus
+                /*<<scanf.ml:696:20>>*/ (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       default:
        return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
     }
@@ -32127,47 +35300,76 @@
    function scan_fractional_part(width, ib){
      /*<<scanf.ml:704:2>>*/ if(0 === width)
       /*<<scanf.ml:704:20>>*/ return width /*<<scanf.ml:704:20>>*/ ;
-    var c =  /*<<scanf.ml:705:10>>*/ peek_char(ib);
+    var
+     c =
+        /*<<scanf.ml:705:10>>*/  /*<<scanf.ml:705:10>>*/ peek_char
+         /*<<scanf.ml:705:10>>*/ (ib);
      /*<<scanf.ml:706:5>>*/ return ib[1]
             ? width
             : 9
               < c - 48 >>> 0
               ? width
-              : scan_decimal_digit_star(store_char(width, ib, c), ib) /*<<scanf.ml:710:14>>*/ ;
+              :  /*<<scanf.ml:709:4>>*/ scan_decimal_digit_star
+                 /*<<scanf.ml:709:4>>*/ ( /*<<scanf.ml:709:28>>*/ store_char
+                   /*<<scanf.ml:709:28>>*/ (width, ib, c),
+                 ib) /*<<scanf.ml:710:14>>*/ ;
     /*<<scanf.ml:710:14>>*/ }
    function scan_exponent_part(width, ib){
      /*<<scanf.ml:715:2>>*/ if(0 === width)
       /*<<scanf.ml:715:20>>*/ return width /*<<scanf.ml:715:20>>*/ ;
-    var c =  /*<<scanf.ml:716:10>>*/ peek_char(ib);
+    var
+     c =
+        /*<<scanf.ml:716:10>>*/  /*<<scanf.ml:716:10>>*/ peek_char
+         /*<<scanf.ml:716:10>>*/ (ib);
      /*<<scanf.ml:717:5>>*/ if(ib[1])
       /*<<scanf.ml:717:26>>*/ return width /*<<scanf.ml:717:26>>*/ ;
     if(69 !== c && 101 !== c)
       /*<<scanf.ml:721:9>>*/ return width /*<<scanf.ml:721:9>>*/ ;
-     /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
-            (store_char(width, ib, c), ib) /*<<scanf.ml:721:14>>*/ ;
+     /*<<scanf.ml:720:4>>*/ return  /*<<scanf.ml:720:4>>*/ scan_optionally_signed_decimal
+             /*<<scanf.ml:720:4>>*/ ( /*<<scanf.ml:720:39>>*/ store_char
+               /*<<scanf.ml:720:39>>*/ (width, ib, c),
+             ib) /*<<scanf.ml:721:14>>*/ ;
     /*<<scanf.ml:721:14>>*/ }
    function scan_float(width$1, precision, ib){
     var
-     width =  /*<<scanf.ml:729:14>>*/ scan_sign(width$1, ib),
-     width$0 =  /*<<scanf.ml:730:2>>*/ scan_decimal_digit_star(width, ib);
+     width =
+        /*<<scanf.ml:729:14>>*/  /*<<scanf.ml:729:14>>*/ scan_sign
+         /*<<scanf.ml:729:14>>*/ (width$1, ib),
+     width$0 =
+        /*<<scanf.ml:730:2>>*/  /*<<scanf.ml:730:2>>*/ scan_decimal_digit_star
+         /*<<scanf.ml:730:2>>*/ (width, ib);
      /*<<scanf.ml:766:2>>*/ if(0 === width$0)
       /*<<scanf.ml:766:20>>*/ return [0, width$0, precision] /*<<scanf.ml:766:20>>*/ ;
-    var c =  /*<<scanf.ml:767:10>>*/ peek_char(ib);
+    var
+     c =
+        /*<<scanf.ml:767:10>>*/  /*<<scanf.ml:767:10>>*/ peek_char
+         /*<<scanf.ml:767:10>>*/ (ib);
      /*<<scanf.ml:768:5>>*/ if(ib[1])
       /*<<scanf.ml:768:26>>*/ return [0, width$0, precision] /*<<scanf.ml:768:26>>*/ ;
     if(46 !== c)
       /*<<scanf.ml:776:4>>*/ return [0,
-             scan_exponent_part(width$0, ib),
+              /*<<scanf.ml:776:4>>*/ scan_exponent_part
+               /*<<scanf.ml:776:4>>*/ (width$0, ib),
              precision] /*<<scanf.ml:776:4>>*/ ;
     var
-     width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
+     width$2 =
+        /*<<scanf.ml:771:16>>*/  /*<<scanf.ml:771:16>>*/ store_char
+         /*<<scanf.ml:771:16>>*/ (width$0, ib, c),
      precision$0 =
         /*<<scanf.ml:772:20>>*/  /*<<scanf.ml:772:20>>*/ caml_call2
          /*<<scanf.ml:772:20>>*/ (Stdlib_Int[10], width$2, precision),
      width$3 =
-       width$2 - (precision$0 - scan_fractional_part(precision$0, ib) | 0) | 0;
+       width$2
+       -
+        (precision$0
+        -
+          /*<<scanf.ml:773:37>>*/ scan_fractional_part
+           /*<<scanf.ml:773:37>>*/ (precision$0, ib)
+        | 0)
+       | 0;
      /*<<scanf.ml:774:4>>*/ return [0,
-            scan_exponent_part(width$3, ib),
+             /*<<scanf.ml:774:4>>*/ scan_exponent_part
+              /*<<scanf.ml:774:4>>*/ (width$3, ib),
             precision$0] /*<<scanf.ml:774:4>>*/ ;
     /*<<scanf.ml:776:42>>*/ }
    function check_case_insensitive_string(width, ib, error, str){
@@ -32187,18 +35389,23 @@
      var i = _aJ_;
      for(;;){
       var
-       c =  /*<<scanf.ml:788:12>>*/ peek_char(ib),
+       c =
+          /*<<scanf.ml:788:12>>*/  /*<<scanf.ml:788:12>>*/ peek_char
+           /*<<scanf.ml:788:12>>*/ (ib),
        _aL_ =
-          /*<<scanf.ml:789:22>>*/ lowercase
-          ( /*<<scanf.ml:789:32>>*/ caml_string_get
+          /*<<scanf.ml:789:22>>*/  /*<<scanf.ml:789:22>>*/ lowercase
+           /*<<scanf.ml:789:22>>*/ ( /*<<scanf.ml:789:32>>*/ caml_string_get
              /*<<scanf.ml:789:32>>*/ (str, i));
-      if(lowercase(c) !== _aL_)
+      if
+       ( /*<<scanf.ml:789:7>>*/ lowercase /*<<scanf.ml:789:7>>*/ (c) !== _aL_)
         /*<<scanf.ml:789:45>>*/  /*<<scanf.ml:789:45>>*/ caml_call1
          /*<<scanf.ml:789:45>>*/ (error, 0);
       if(0 === width$0[1])
         /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1
          /*<<scanf.ml:790:23>>*/ (error, 0);
-      width$0[1] = store_char(width$0[1], ib, c);
+      width$0[1] =
+        /*<<scanf.ml:791:13>>*/ store_char
+         /*<<scanf.ml:791:13>>*/ (width$0[1], ib, c);
       var _aM_ =  /*<<scanf.ml:787:2>>*/ i + 1 | 0;
       if(_aK_ === i) break;
       i = _aM_;
@@ -32207,16 +35414,29 @@
     return width$0[1];
     /*<<scanf.ml:793:8>>*/ }
    function scan_hex_float(width, precision, ib){
-    var _aw_ = 0 === width ? 1 : 0, _ax_ = _aw_ || end_of_input(ib);
+    var
+     _aw_ = 0 === width ? 1 : 0,
+     _ax_ =
+       _aw_
+       ||  /*<<scanf.ml:797:18>>*/ end_of_input /*<<scanf.ml:797:18>>*/ (ib);
      /*<<scanf.ml:797:18>>*/ if(_ax_)
-      /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+      /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+       /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
     var
-     width$0 =  /*<<scanf.ml:798:14>>*/ scan_sign(width, ib),
+     width$0 =
+        /*<<scanf.ml:798:14>>*/  /*<<scanf.ml:798:14>>*/ scan_sign
+         /*<<scanf.ml:798:14>>*/ (width, ib),
      _ay_ = 0 === width$0 ? 1 : 0,
-     _az_ = _ay_ || end_of_input(ib);
+     _az_ =
+       _ay_
+       ||  /*<<scanf.ml:799:18>>*/ end_of_input /*<<scanf.ml:799:18>>*/ (ib);
      /*<<scanf.ml:799:18>>*/ if(_az_)
-      /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-    var c =  /*<<scanf.ml:800:8>>*/ peek_char(ib);
+      /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+       /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+    var
+     c =
+        /*<<scanf.ml:800:8>>*/  /*<<scanf.ml:800:8>>*/ peek_char
+         /*<<scanf.ml:800:8>>*/ (ib);
     a:
     {
      if(78 <= c){
@@ -32224,30 +35444,51 @@
       if(30 < switcher >>> 0){
        if(32 <= switcher) break a;
        var
-        width$1 =  /*<<scanf.ml:830:16>>*/ store_char(width$0, ib, c),
+        width$1 =
+           /*<<scanf.ml:830:16>>*/  /*<<scanf.ml:830:16>>*/ store_char
+            /*<<scanf.ml:830:16>>*/ (width$0, ib, c),
         _aA_ = 0 === width$1 ? 1 : 0,
-        _aB_ = _aA_ || end_of_input(ib);
+        _aB_ =
+          _aA_
+          ||
+            /*<<scanf.ml:831:20>>*/ end_of_input /*<<scanf.ml:831:20>>*/ (ib);
         /*<<scanf.ml:831:20>>*/ if(_aB_)
-         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-        /*<<scanf.ml:831:50>>*/ return check_case_insensitive_string
-               (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
+         /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+          /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+        /*<<scanf.ml:831:50>>*/ return  /*<<scanf.ml:831:50>>*/ check_case_insensitive_string
+                /*<<scanf.ml:831:50>>*/ (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
       }
       if(26 !== switcher) break a;
      }
      else{
       if(48 === c){
        var
-        width$3 =  /*<<scanf.ml:802:16>>*/ store_char(width$0, ib, c),
+        width$3 =
+           /*<<scanf.ml:802:16>>*/  /*<<scanf.ml:802:16>>*/ store_char
+            /*<<scanf.ml:802:16>>*/ (width$0, ib, c),
         _aE_ = 0 === width$3 ? 1 : 0,
-        _aF_ = _aE_ || end_of_input(ib);
+        _aF_ =
+          _aE_
+          ||
+            /*<<scanf.ml:803:20>>*/ end_of_input /*<<scanf.ml:803:20>>*/ (ib);
         /*<<scanf.ml:803:20>>*/ if(_aF_)
-         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+         /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+          /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
        var
         width$4 =
-           /*<<scanf.ml:804:16>>*/ check_case_insensitive_string
-           (width$3, ib, bad_hex_float, cst_x);
-        /*<<scanf.ml:805:4>>*/ if(0 !== width$4 && ! end_of_input(ib)){
-        var _aG_ =  /*<<scanf.ml:806:24>>*/ peek_char(ib) - 46 | 0;
+           /*<<scanf.ml:804:16>>*/  /*<<scanf.ml:804:16>>*/ check_case_insensitive_string
+            /*<<scanf.ml:804:16>>*/ (width$3, ib, bad_hex_float, cst_x);
+        /*<<scanf.ml:805:4>>*/ if
+        (0 !== width$4
+         &&
+          !
+           /*<<scanf.ml:805:20>>*/ end_of_input /*<<scanf.ml:805:20>>*/ (ib)){
+        var
+         _aG_ =
+            /*<<scanf.ml:806:24>>*/  /*<<scanf.ml:806:24>>*/ peek_char
+             /*<<scanf.ml:806:24>>*/ (ib)
+           - 46
+           | 0;
         b:
         {
          c:
@@ -32263,14 +35504,32 @@
          }
          var width$5 = width$4;
         }
-         /*<<scanf.ml:809:6>>*/ if(0 !== width$5 && ! end_of_input(ib)){
-         var c$0 =  /*<<scanf.ml:810:26>>*/ peek_char(ib);
+         /*<<scanf.ml:809:6>>*/ if
+         (0 !== width$5
+          &&
+           !
+            /*<<scanf.ml:809:22>>*/ end_of_input /*<<scanf.ml:809:22>>*/ (ib)){
+         var
+          c$0 =
+             /*<<scanf.ml:810:26>>*/  /*<<scanf.ml:810:26>>*/ peek_char
+              /*<<scanf.ml:810:26>>*/ (ib);
          if(46 === c$0){
-          var width$6 =  /*<<scanf.ml:812:24>>*/ store_char(width$5, ib, c$0);
+          var
+           width$6 =
+              /*<<scanf.ml:812:24>>*/  /*<<scanf.ml:812:24>>*/ store_char
+               /*<<scanf.ml:812:24>>*/ (width$5, ib, c$0);
           b:
           {
-            /*<<scanf.ml:813:12>>*/ if(0 !== width$6 && ! end_of_input(ib)){
-            var match =  /*<<scanf.ml:814:20>>*/ peek_char(ib);
+            /*<<scanf.ml:813:12>>*/ if
+            (0 !== width$6
+             &&
+              !
+               /*<<scanf.ml:813:28>>*/ end_of_input
+                /*<<scanf.ml:813:28>>*/ (ib)){
+            var
+             match =
+                /*<<scanf.ml:814:20>>*/  /*<<scanf.ml:814:20>>*/ peek_char
+                 /*<<scanf.ml:814:20>>*/ (ib);
             c:
             {
              if(80 !== match && 112 !== match){
@@ -32302,18 +35561,32 @@
          }
          else
           var width$8 = width$5;
-          /*<<scanf.ml:821:8>>*/ if(0 !== width$8 && ! end_of_input(ib)){
-          var c$1 =  /*<<scanf.ml:822:16>>*/ peek_char(ib);
+          /*<<scanf.ml:821:8>>*/ if
+          (0 !== width$8
+           &&
+            !
+             /*<<scanf.ml:821:24>>*/ end_of_input /*<<scanf.ml:821:24>>*/ (ib)){
+          var
+           c$1 =
+              /*<<scanf.ml:822:16>>*/  /*<<scanf.ml:822:16>>*/ peek_char
+               /*<<scanf.ml:822:16>>*/ (ib);
           if(80 !== c$1 && 112 !== c$1)
             /*<<scanf.ml:827:17>>*/ return width$8 /*<<scanf.ml:827:17>>*/ ;
           var
-           width$9 =  /*<<scanf.ml:824:24>>*/ store_char(width$8, ib, c$1),
+           width$9 =
+              /*<<scanf.ml:824:24>>*/  /*<<scanf.ml:824:24>>*/ store_char
+               /*<<scanf.ml:824:24>>*/ (width$8, ib, c$1),
            _aH_ = 0 === width$9 ? 1 : 0,
-           _aI_ = _aH_ || end_of_input(ib);
+           _aI_ =
+             _aH_
+             ||
+               /*<<scanf.ml:825:28>>*/ end_of_input
+                /*<<scanf.ml:825:28>>*/ (ib);
            /*<<scanf.ml:825:28>>*/ if(_aI_)
-            /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-           /*<<scanf.ml:825:58>>*/ return scan_optionally_signed_decimal
-                  (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
+            /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+             /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+           /*<<scanf.ml:825:58>>*/ return  /*<<scanf.ml:825:58>>*/ scan_optionally_signed_decimal
+                   /*<<scanf.ml:825:58>>*/ (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
          }
           /*<<scanf.ml:821:54>>*/ return width$8 /*<<scanf.ml:821:54>>*/ ;
         }
@@ -32324,95 +35597,158 @@
       if(73 !== c) break a;
      }
      var
-      width$2 =  /*<<scanf.ml:834:16>>*/ store_char(width$0, ib, c),
+      width$2 =
+         /*<<scanf.ml:834:16>>*/  /*<<scanf.ml:834:16>>*/ store_char
+          /*<<scanf.ml:834:16>>*/ (width$0, ib, c),
       _aC_ = 0 === width$2 ? 1 : 0,
-      _aD_ = _aC_ || end_of_input(ib);
+      _aD_ =
+        _aC_
+        ||  /*<<scanf.ml:835:20>>*/ end_of_input /*<<scanf.ml:835:20>>*/ (ib);
       /*<<scanf.ml:835:20>>*/ if(_aD_)
-       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-      /*<<scanf.ml:835:50>>*/ return check_case_insensitive_string
-             (width$2, ib, bad_hex_float, cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
-    }
-     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
+       /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+        /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+      /*<<scanf.ml:835:50>>*/ return  /*<<scanf.ml:835:50>>*/ check_case_insensitive_string
+              /*<<scanf.ml:835:50>>*/ (width$2,
+              ib,
+              bad_hex_float,
+              cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
+    }
+     /*<<scanf.ml:432:2>>*/ return  /*<<scanf.ml:432:2>>*/ bad_input
+             /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
     /*<<scanf.ml:837:25>>*/ }
    function scan_caml_float_rest(width, precision, ib){
-    var _as_ = 0 === width ? 1 : 0, _at_ = _as_ || end_of_input(ib);
+    var
+     _as_ = 0 === width ? 1 : 0,
+     _at_ =
+       _as_
+       ||  /*<<scanf.ml:841:18>>*/ end_of_input /*<<scanf.ml:841:18>>*/ (ib);
      /*<<scanf.ml:841:18>>*/ if(_at_)
-      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
     var
-     width$0 =  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star(width, ib),
+     width$0 =
+        /*<<scanf.ml:842:14>>*/  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star
+         /*<<scanf.ml:842:14>>*/ (width, ib),
      _au_ = 0 === width$0 ? 1 : 0,
-     _av_ = _au_ || end_of_input(ib);
+     _av_ =
+       _au_
+       ||  /*<<scanf.ml:843:18>>*/ end_of_input /*<<scanf.ml:843:18>>*/ (ib);
      /*<<scanf.ml:843:18>>*/ if(_av_)
-      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
     var
-     c =  /*<<scanf.ml:844:10>>*/ peek_char(ib),
+     c =
+        /*<<scanf.ml:844:10>>*/  /*<<scanf.ml:844:10>>*/ peek_char
+         /*<<scanf.ml:844:10>>*/ (ib),
      switcher =  /*<<scanf.ml:844:10>>*/ c - 69 | 0;
     if(32 < switcher >>> 0){
      if(-23 === switcher){
       var
-       width$1 =  /*<<scanf.ml:847:16>>*/ store_char(width$0, ib, c),
+       width$1 =
+          /*<<scanf.ml:847:16>>*/  /*<<scanf.ml:847:16>>*/ store_char
+           /*<<scanf.ml:847:16>>*/ (width$0, ib, c),
        precision$0 =
           /*<<scanf.ml:850:20>>*/  /*<<scanf.ml:850:20>>*/ caml_call2
            /*<<scanf.ml:850:20>>*/ (Stdlib_Int[10], width$1, precision),
        width_precision =
-          /*<<scanf.ml:853:26>>*/ scan_fractional_part(precision$0, ib),
+          /*<<scanf.ml:853:26>>*/  /*<<scanf.ml:853:26>>*/ scan_fractional_part
+           /*<<scanf.ml:853:26>>*/ (precision$0, ib),
        frac_width = precision$0 - width_precision | 0,
        width$2 = width$1 - frac_width | 0;
-       /*<<scanf.ml:859:4>>*/ return scan_exponent_part(width$2, ib) /*<<scanf.ml:862:21>>*/ ;
+       /*<<scanf.ml:859:4>>*/ return  /*<<scanf.ml:859:4>>*/ scan_exponent_part
+               /*<<scanf.ml:859:4>>*/ (width$2, ib) /*<<scanf.ml:862:21>>*/ ;
      }
     }
     else if(30 < switcher - 1 >>> 0)
-      /*<<scanf.ml:861:4>>*/ return scan_exponent_part(width$0, ib) /*<<scanf.ml:862:21>>*/ ;
-     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:862:21>>*/ ;
+      /*<<scanf.ml:861:4>>*/ return  /*<<scanf.ml:861:4>>*/ scan_exponent_part
+              /*<<scanf.ml:861:4>>*/ (width$0, ib) /*<<scanf.ml:862:21>>*/ ;
+     /*<<scanf.ml:428:2>>*/ return  /*<<scanf.ml:428:2>>*/ bad_input
+             /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:862:21>>*/ ;
     /*<<scanf.ml:862:21>>*/ }
    function scan_caml_float(width, precision, ib){
-    var _ae_ = 0 === width ? 1 : 0, _af_ = _ae_ || end_of_input(ib);
+    var
+     _ae_ = 0 === width ? 1 : 0,
+     _af_ =
+       _ae_
+       ||  /*<<scanf.ml:866:18>>*/ end_of_input /*<<scanf.ml:866:18>>*/ (ib);
      /*<<scanf.ml:866:18>>*/ if(_af_)
-      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
     var
-     width$0 =  /*<<scanf.ml:867:14>>*/ scan_sign(width, ib),
+     width$0 =
+        /*<<scanf.ml:867:14>>*/  /*<<scanf.ml:867:14>>*/ scan_sign
+         /*<<scanf.ml:867:14>>*/ (width, ib),
      _ag_ = 0 === width$0 ? 1 : 0,
-     _ah_ = _ag_ || end_of_input(ib);
+     _ah_ =
+       _ag_
+       ||  /*<<scanf.ml:868:18>>*/ end_of_input /*<<scanf.ml:868:18>>*/ (ib);
      /*<<scanf.ml:868:18>>*/ if(_ah_)
-      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-    var c =  /*<<scanf.ml:869:8>>*/ peek_char(ib);
+      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+    var
+     c =
+        /*<<scanf.ml:869:8>>*/  /*<<scanf.ml:869:8>>*/ peek_char
+         /*<<scanf.ml:869:8>>*/ (ib);
     if(49 <= c){
      if(58 > c){
       var
-       width$1 =  /*<<scanf.ml:903:16>>*/ store_char(width$0, ib, c),
+       width$1 =
+          /*<<scanf.ml:903:16>>*/  /*<<scanf.ml:903:16>>*/ store_char
+           /*<<scanf.ml:903:16>>*/ (width$0, ib, c),
        _ai_ = 0 === width$1 ? 1 : 0,
-       _aj_ = _ai_ || end_of_input(ib);
+       _aj_ =
+         _ai_
+         ||  /*<<scanf.ml:904:20>>*/ end_of_input /*<<scanf.ml:904:20>>*/ (ib);
        /*<<scanf.ml:904:20>>*/ if(_aj_)
-        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-       /*<<scanf.ml:904:50>>*/ return scan_caml_float_rest
-              (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
+        /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+         /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+       /*<<scanf.ml:904:50>>*/ return  /*<<scanf.ml:904:50>>*/ scan_caml_float_rest
+               /*<<scanf.ml:904:50>>*/ (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      }
     }
     else if(48 <= c){
      var
-      width$2 =  /*<<scanf.ml:871:16>>*/ store_char(width$0, ib, c),
+      width$2 =
+         /*<<scanf.ml:871:16>>*/  /*<<scanf.ml:871:16>>*/ store_char
+          /*<<scanf.ml:871:16>>*/ (width$0, ib, c),
       _ak_ = 0 === width$2 ? 1 : 0,
-      _al_ = _ak_ || end_of_input(ib);
+      _al_ =
+        _ak_
+        ||  /*<<scanf.ml:872:20>>*/ end_of_input /*<<scanf.ml:872:20>>*/ (ib);
       /*<<scanf.ml:872:20>>*/ if(_al_)
-       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-     var c$0 =  /*<<scanf.ml:873:10>>*/ peek_char(ib);
+       /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+        /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+     var
+      c$0 =
+         /*<<scanf.ml:873:10>>*/  /*<<scanf.ml:873:10>>*/ peek_char
+          /*<<scanf.ml:873:10>>*/ (ib);
      if(88 !== c$0 && 120 !== c$0)
-       /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
-              (width$2, precision, ib) /*<<scanf.ml:910:21>>*/ ;
+       /*<<scanf.ml:900:6>>*/ return  /*<<scanf.ml:900:6>>*/ scan_caml_float_rest
+               /*<<scanf.ml:900:6>>*/ (width$2, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      var
-      width$3 =  /*<<scanf.ml:875:18>>*/ store_char(width$2, ib, c$0),
+      width$3 =
+         /*<<scanf.ml:875:18>>*/  /*<<scanf.ml:875:18>>*/ store_char
+          /*<<scanf.ml:875:18>>*/ (width$2, ib, c$0),
       _am_ = 0 === width$3 ? 1 : 0,
-      _an_ = _am_ || end_of_input(ib);
+      _an_ =
+        _am_
+        ||  /*<<scanf.ml:876:22>>*/ end_of_input /*<<scanf.ml:876:22>>*/ (ib);
       /*<<scanf.ml:876:22>>*/ if(_an_)
-       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+       /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+        /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
      var
       width$10 = scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$3, ib),
       _ao_ = 0 === width$10 ? 1 : 0,
-      _ap_ = _ao_ || end_of_input(ib);
+      _ap_ =
+        _ao_
+        ||  /*<<scanf.ml:878:22>>*/ end_of_input /*<<scanf.ml:878:22>>*/ (ib);
       /*<<scanf.ml:878:22>>*/ if(_ap_)
-       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+       /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+        /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
      var
-      c$1 =  /*<<scanf.ml:879:24>>*/ peek_char(ib),
+      c$1 =
+         /*<<scanf.ml:879:24>>*/  /*<<scanf.ml:879:24>>*/ peek_char
+          /*<<scanf.ml:879:24>>*/ (ib),
       switcher =  /*<<scanf.ml:879:24>>*/ c$1 - 80 | 0;
      a:
      {
@@ -32420,11 +35756,22 @@
       {
        if(32 < switcher >>> 0){
         if(-34 === switcher){
-         var width$4 =  /*<<scanf.ml:881:22>>*/ store_char(width$10, ib, c$1);
+         var
+          width$4 =
+             /*<<scanf.ml:881:22>>*/  /*<<scanf.ml:881:22>>*/ store_char
+              /*<<scanf.ml:881:22>>*/ (width$10, ib, c$1);
          c:
          {
-           /*<<scanf.ml:882:10>>*/ if(0 !== width$4 && ! end_of_input(ib)){
-           var match =  /*<<scanf.ml:883:18>>*/ peek_char(ib);
+           /*<<scanf.ml:882:10>>*/ if
+           (0 !== width$4
+            &&
+             !
+              /*<<scanf.ml:882:26>>*/ end_of_input
+               /*<<scanf.ml:882:26>>*/ (ib)){
+           var
+            match =
+               /*<<scanf.ml:883:18>>*/  /*<<scanf.ml:883:18>>*/ peek_char
+                /*<<scanf.ml:883:18>>*/ (ib);
            d:
            {
             if(80 !== match && 112 !== match){
@@ -32455,34 +35802,51 @@
         }
        }
        else if(30 < switcher - 1 >>> 0){var width$6 = width$10; break b;}
-       var width$7 = bad_input(cst_no_dot_or_exponent_part_fo);
+       var
+        width$7 =
+           /*<<scanf.ml:428:2>>*/ bad_input
+            /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
        break a;
       }
       var width$7 = width$6;
      }
-      /*<<scanf.ml:891:6>>*/ if(0 !== width$7 && ! end_of_input(ib)){
-      var c$2 =  /*<<scanf.ml:892:14>>*/ peek_char(ib);
+      /*<<scanf.ml:891:6>>*/ if
+      (0 !== width$7
+       && !  /*<<scanf.ml:891:22>>*/ end_of_input /*<<scanf.ml:891:22>>*/ (ib)){
+      var
+       c$2 =
+          /*<<scanf.ml:892:14>>*/  /*<<scanf.ml:892:14>>*/ peek_char
+           /*<<scanf.ml:892:14>>*/ (ib);
       if(80 !== c$2 && 112 !== c$2)
         /*<<scanf.ml:897:15>>*/ return width$7 /*<<scanf.ml:897:15>>*/ ;
       var
-       width$8 =  /*<<scanf.ml:894:22>>*/ store_char(width$7, ib, c$2),
+       width$8 =
+          /*<<scanf.ml:894:22>>*/  /*<<scanf.ml:894:22>>*/ store_char
+           /*<<scanf.ml:894:22>>*/ (width$7, ib, c$2),
        _aq_ = 0 === width$8 ? 1 : 0,
-       _ar_ = _aq_ || end_of_input(ib);
+       _ar_ =
+         _aq_
+         ||  /*<<scanf.ml:895:26>>*/ end_of_input /*<<scanf.ml:895:26>>*/ (ib);
        /*<<scanf.ml:895:26>>*/ if(_ar_)
-        /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-       /*<<scanf.ml:895:56>>*/ return scan_optionally_signed_decimal
-              (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
+        /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
+         /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+       /*<<scanf.ml:895:56>>*/ return  /*<<scanf.ml:895:56>>*/ scan_optionally_signed_decimal
+               /*<<scanf.ml:895:56>>*/ (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
      }
       /*<<scanf.ml:891:52>>*/ return width$7 /*<<scanf.ml:891:52>>*/ ;
     }
-     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:910:21>>*/ ;
+     /*<<scanf.ml:428:2>>*/ return  /*<<scanf.ml:428:2>>*/ bad_input
+             /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:910:21>>*/ ;
     /*<<scanf.ml:910:21>>*/ }
    function scan_string(stp, width, ib){
     var width$0 = width;
      /*<<scanf.ml:921:4>>*/ for(;;){
      if(0 === width$0)
        /*<<scanf.ml:921:22>>*/ return width$0 /*<<scanf.ml:921:22>>*/ ;
-     var c =  /*<<scanf.ml:922:12>>*/ peek_char(ib);
+     var
+      c =
+         /*<<scanf.ml:922:12>>*/  /*<<scanf.ml:922:12>>*/ peek_char
+          /*<<scanf.ml:922:12>>*/ (ib);
       /*<<scanf.ml:923:7>>*/ if(ib[1])
        /*<<scanf.ml:923:28>>*/ return width$0 /*<<scanf.ml:923:28>>*/ ;
      if(! stp){
@@ -32493,7 +35857,10 @@
         if(23 === _ad_) break a;
        }
        else if(1 < _ad_ - 2 >>> 0) break a;
-       var width$2 =  /*<<scanf.ml:930:20>>*/ store_char(width$0, ib, c);
+       var
+        width$2 =
+           /*<<scanf.ml:930:20>>*/  /*<<scanf.ml:930:20>>*/ store_char
+            /*<<scanf.ml:930:20>>*/ (width$0, ib, c);
        width$0 = width$2;
        continue;
       }
@@ -32501,10 +35868,14 @@
      }
      var c$0 = stp[1];
      if(c === c$0){
-       /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
+       /*<<scanf.ml:237:4>>*/  /*<<scanf.ml:237:4>>*/ invalidate_current_char
+        /*<<scanf.ml:237:4>>*/ (ib);
        /*<<scanf.ml:237:4>>*/ return width$0 /*<<scanf.ml:237:4>>*/ ;
      }
-     var width$1 =  /*<<scanf.ml:926:23>>*/ store_char(width$0, ib, c);
+     var
+      width$1 =
+         /*<<scanf.ml:926:23>>*/  /*<<scanf.ml:926:23>>*/ store_char
+          /*<<scanf.ml:926:23>>*/ (width$0, ib, c);
      width$0 = width$1;
     }
     /*<<scanf.ml:931:12>>*/ }
@@ -32515,11 +35886,15 @@
     /*<<scanf.ml:979:23>>*/ }
    function check_next_char(message, width, ib){
      /*<<scanf.ml:995:2>>*/ if(0 === width)
-      /*<<scanf.ml:995:20>>*/ return bad_token_length(message) /*<<scanf.ml:998:3>>*/ ;
-    var c =  /*<<scanf.ml:996:10>>*/ peek_char(ib);
+      /*<<scanf.ml:995:20>>*/ return  /*<<scanf.ml:995:20>>*/ bad_token_length
+              /*<<scanf.ml:995:20>>*/ (message) /*<<scanf.ml:998:3>>*/ ;
+    var
+     c =
+        /*<<scanf.ml:996:10>>*/  /*<<scanf.ml:996:10>>*/ peek_char
+         /*<<scanf.ml:996:10>>*/ (ib);
      /*<<scanf.ml:997:5>>*/ return ib[1]
-            ? bad_input
-              ( /*<<scanf.ml:421:4>>*/ caml_call2
+            ?  /*<<scanf.ml:421:4>>*/ bad_input
+               /*<<scanf.ml:421:4>>*/ ( /*<<scanf.ml:421:4>>*/ caml_call2
                  /*<<scanf.ml:421:4>>*/ (Stdlib_Printf[4], _f_, message))
             : c /*<<scanf.ml:998:3>>*/ ;
     /*<<scanf.ml:998:3>>*/ }
@@ -32533,11 +35908,21 @@
        var
         get_digit$0 =
           function(param){
-           var c =  /*<<scanf.ml:1010:14>>*/ next_char(ib);
-           return 9 < c - 48 >>> 0 ? bad_input_escape(c) : c /*<<scanf.ml:1013:31>>*/ ;
+           var
+            c =
+               /*<<scanf.ml:1010:14>>*/  /*<<scanf.ml:1010:14>>*/ next_char
+                /*<<scanf.ml:1010:14>>*/ (ib);
+           return 9 < c - 48 >>> 0
+                   ?  /*<<scanf.ml:1013:13>>*/ bad_input_escape
+                      /*<<scanf.ml:1013:13>>*/ (c)
+                   : c /*<<scanf.ml:1013:31>>*/ ;
            /*<<scanf.ml:1013:31>>*/ },
-        c1$0 =  /*<<scanf.ml:1015:13>>*/ get_digit$0(0),
-        c2$0 =  /*<<scanf.ml:1016:13>>*/ get_digit$0(0),
+        c1$0 =
+           /*<<scanf.ml:1015:13>>*/  /*<<scanf.ml:1015:13>>*/ get_digit$0
+            /*<<scanf.ml:1015:13>>*/ (0),
+        c2$0 =
+           /*<<scanf.ml:1016:13>>*/  /*<<scanf.ml:1016:13>>*/ get_digit$0
+            /*<<scanf.ml:1016:13>>*/ (0),
         c =
           ((100 * (c0 - 48 | 0) | 0) + (10 * (c1$0 - 48 | 0) | 0) | 0)
           + (c2$0 - 48 | 0)
@@ -32553,11 +35938,12 @@
         }
         var
          _ab_ =
-           bad_input
-            ( /*<<scanf.ml:961:6>>*/ caml_call4
+            /*<<scanf.ml:961:6>>*/ bad_input
+             /*<<scanf.ml:961:6>>*/ ( /*<<scanf.ml:961:6>>*/ caml_call4
                /*<<scanf.ml:961:6>>*/ (Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
        }
-        /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
+        /*<<scanf.ml:1017:39>>*/ return  /*<<scanf.ml:1017:39>>*/ store_char
+                /*<<scanf.ml:1017:39>>*/ (width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
       }
       var switcher =  /*<<scanf.ml:1005:8>>*/ c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
@@ -32567,7 +35953,9 @@
           get_digit =
             function(param){
              var
-              c =  /*<<scanf.ml:1020:14>>*/ next_char(ib),
+              c =
+                 /*<<scanf.ml:1020:14>>*/  /*<<scanf.ml:1020:14>>*/ next_char
+                  /*<<scanf.ml:1020:14>>*/ (ib),
               _ac_ =  /*<<scanf.ml:1020:14>>*/ c - 48 | 0;
              a:
              {
@@ -32577,12 +35965,26 @@
               else if(6 >= _ac_ - 10 >>> 0) break a;
                /*<<scanf.ml:1022:53>>*/ return c /*<<scanf.ml:1022:53>>*/ ;
              }
-              /*<<scanf.ml:1023:13>>*/ return bad_input_escape(c) /*<<scanf.ml:1023:31>>*/ ;
+              /*<<scanf.ml:1023:13>>*/ return  /*<<scanf.ml:1023:13>>*/ bad_input_escape
+                      /*<<scanf.ml:1023:13>>*/ (c) /*<<scanf.ml:1023:31>>*/ ;
              /*<<scanf.ml:1023:31>>*/ },
-          c1 =  /*<<scanf.ml:1024:13>>*/ get_digit(0),
-          c2 =  /*<<scanf.ml:1025:13>>*/ get_digit(0),
-          ___ =  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char(c2),
-          c$0 = (16 * hexadecimal_value_of_char(c1) | 0) + ___ | 0;
+          c1 =
+             /*<<scanf.ml:1024:13>>*/  /*<<scanf.ml:1024:13>>*/ get_digit
+              /*<<scanf.ml:1024:13>>*/ (0),
+          c2 =
+             /*<<scanf.ml:1025:13>>*/  /*<<scanf.ml:1025:13>>*/ get_digit
+              /*<<scanf.ml:1025:13>>*/ (0),
+          ___ =
+             /*<<scanf.ml:985:9>>*/  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char
+              /*<<scanf.ml:985:9>>*/ (c2),
+          c$0 =
+            (16
+            *
+              /*<<scanf.ml:984:9>>*/ hexadecimal_value_of_char
+               /*<<scanf.ml:984:9>>*/ (c1)
+            | 0)
+            + ___
+            | 0;
          b:
          {
            /*<<scanf.ml:986:2>>*/ if(0 <= c$0 && 255 >= c$0){
@@ -32594,11 +35996,12 @@
           }
           var
            _aa_ =
-             bad_input
-              ( /*<<scanf.ml:988:6>>*/ caml_call3
+              /*<<scanf.ml:988:6>>*/ bad_input
+               /*<<scanf.ml:988:6>>*/ ( /*<<scanf.ml:988:6>>*/ caml_call3
                  /*<<scanf.ml:988:6>>*/ (Stdlib_Printf[4], _m_, c1, c2));
          }
-          /*<<scanf.ml:1026:39>>*/ return store_char(width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
+          /*<<scanf.ml:1026:39>>*/ return  /*<<scanf.ml:1026:39>>*/ store_char
+                  /*<<scanf.ml:1026:39>>*/ (width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
         case 0:
         case 6:
         case 18:
@@ -32624,9 +36027,11 @@
       else if(98 === c0){var _$_ = 8; break b;}
       var _$_ = c0;
      }
-      /*<<scanf.ml:1007:33>>*/ return store_char(width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
+      /*<<scanf.ml:1007:33>>*/ return  /*<<scanf.ml:1007:33>>*/ store_char
+              /*<<scanf.ml:1007:33>>*/ (width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
     }
-     /*<<scanf.ml:1028:4>>*/ return bad_input_escape(c0) /*<<scanf.ml:1028:22>>*/ ;
+     /*<<scanf.ml:1028:4>>*/ return  /*<<scanf.ml:1028:4>>*/ bad_input_escape
+             /*<<scanf.ml:1028:4>>*/ (c0) /*<<scanf.ml:1028:22>>*/ ;
     /*<<scanf.ml:1028:22>>*/ }
    function scan_caml_string(width, ib){
     function find_stop$0(counter, width){
@@ -32634,40 +36039,62 @@
       /*<<scanf.ml:1063:4>>*/ for(;;){
       var c = check_next_char(cst_a_String, width$0, ib);
       if(34 === c)
-        /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
+        /*<<scanf.ml:1057:2>>*/ return  /*<<scanf.ml:1057:2>>*/ ignore_char
+                /*<<scanf.ml:1057:2>>*/ (width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
       if(92 === c){
        var
-        width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
+        width$1 =
+           /*<<scanf.ml:1065:29>>*/  /*<<scanf.ml:1065:29>>*/ ignore_char
+            /*<<scanf.ml:1065:29>>*/ (width$0, ib),
         match = check_next_char(cst_a_String, width$1, ib);
        if(10 === match){
-        var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
+        var
+         _Y_ =
+            /*<<scanf.ml:1071:26>>*/  /*<<scanf.ml:1071:26>>*/ ignore_char
+             /*<<scanf.ml:1071:26>>*/ (width$1, ib);
          /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
           /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ caml_trampoline_return
                   /*<<scanf.ml:1071:26>>*/ (skip_spaces, [0, _Y_]) /*<<scanf.ml:1066:53>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
+         /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ skip_spaces
+                 /*<<scanf.ml:1071:26>>*/ (counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
        }
        if(13 === match){
-        var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
+        var
+         width$3 =
+            /*<<scanf.ml:1070:27>>*/  /*<<scanf.ml:1070:27>>*/ ignore_char
+             /*<<scanf.ml:1070:27>>*/ (width$1, ib);
         if(10 === check_next_char(cst_a_String, width$3, ib)){
-         var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
+         var
+          _Z_ =
+             /*<<scanf.ml:1076:26>>*/  /*<<scanf.ml:1076:26>>*/ ignore_char
+              /*<<scanf.ml:1076:26>>*/ (width$3, ib);
           /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
            /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ caml_trampoline_return
                    /*<<scanf.ml:1076:26>>*/ (skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
          var counter$1 = counter + 1 | 0;
-          /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
+          /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ skip_spaces
+                  /*<<scanf.ml:1076:26>>*/ (counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
         }
-        var width$5 =  /*<<scanf.ml:1077:21>>*/ store_char(width$3, ib, 13);
+        var
+         width$5 =
+            /*<<scanf.ml:1077:21>>*/  /*<<scanf.ml:1077:21>>*/ store_char
+             /*<<scanf.ml:1077:21>>*/ (width$3, ib, 13);
         width$0 = width$5;
        }
        else{
         var
-         width$4 =  /*<<scanf.ml:1072:21>>*/ scan_backslash_char(width$1, ib);
+         width$4 =
+            /*<<scanf.ml:1072:21>>*/  /*<<scanf.ml:1072:21>>*/ scan_backslash_char
+             /*<<scanf.ml:1072:21>>*/ (width$1, ib);
         width$0 = width$4;
        }
       }
       else{
-       var width$2 =  /*<<scanf.ml:1066:21>>*/ store_char(width$0, ib, c);
+       var
+        width$2 =
+           /*<<scanf.ml:1066:21>>*/  /*<<scanf.ml:1066:21>>*/ store_char
+            /*<<scanf.ml:1066:21>>*/ (width$0, ib, c);
        width$0 = width$2;
       }
      }
@@ -32683,22 +36110,36 @@
          /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ caml_trampoline_return
                  /*<<scanf.ml:1082:11>>*/ (find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
+        /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ find_stop$0
+                /*<<scanf.ml:1082:11>>*/ (counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
       }
-      var width$1 =  /*<<scanf.ml:1081:25>>*/ ignore_char(width$0, ib);
+      var
+       width$1 =
+          /*<<scanf.ml:1081:25>>*/  /*<<scanf.ml:1081:25>>*/ ignore_char
+           /*<<scanf.ml:1081:25>>*/ (width$0, ib);
       width$0 = width$1;
      }
      /*<<scanf.ml:1082:26>>*/ }
-    var c =  /*<<scanf.ml:1058:10>>*/ checked_peek_char(ib);
+    var
+     c =
+        /*<<scanf.ml:1058:10>>*/  /*<<scanf.ml:1058:10>>*/ checked_peek_char
+         /*<<scanf.ml:1058:10>>*/ (ib);
     return 34 === c
-            ? find_stop(ignore_char(width, ib))
-            : character_mismatch(34, c) /*<<scanf.ml:1084:18>>*/ ;
+            ?  /*<<scanf.ml:1059:24>>*/ find_stop
+               /*<<scanf.ml:1059:24>>*/ ( /*<<scanf.ml:1059:24>>*/ ignore_char
+                 /*<<scanf.ml:1059:24>>*/ (width, ib))
+            :  /*<<scanf.ml:1060:11>>*/ character_mismatch
+               /*<<scanf.ml:1060:11>>*/ (34, c) /*<<scanf.ml:1084:18>>*/ ;
     /*<<scanf.ml:1084:18>>*/ }
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
      var i$0 = i;
       /*<<scanf.ml:1104:4>>*/ for(;;){
-      var c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib), _U_ = 0 < i$0 ? 1 : 0;
+      var
+       c =
+          /*<<scanf.ml:1104:12>>*/  /*<<scanf.ml:1104:12>>*/ peek_char
+           /*<<scanf.ml:1104:12>>*/ (ib),
+       _U_ = 0 < i$0 ? 1 : 0;
       if(_U_){
        var _V_ =  /*<<scanf.ml:1105:20>>*/ 1 - ib[1];
        if(_V_)
@@ -32713,19 +36154,29 @@
       else
        var _X_ = _U_;
       if(! _X_) return _X_;
-       /*<<scanf.ml:1108:14>>*/ store_char(Stdlib[19], ib, c);
+       /*<<scanf.ml:1108:14>>*/  /*<<scanf.ml:1108:14>>*/ store_char
+        /*<<scanf.ml:1108:14>>*/ (Stdlib[19], ib, c);
       var i$1 = i$0 - 1 | 0;
       i$0 = i$1;
      }
      /*<<scanf.ml:1109:28>>*/ }
     if(! scan_indic)
-      /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1) /*<<scanf.ml:1118:34>>*/ ;
+      /*<<scanf.ml:1111:12>>*/ return  /*<<scanf.ml:1111:12>>*/ scan_chars
+              /*<<scanf.ml:1111:12>>*/ (width, -1) /*<<scanf.ml:1118:34>>*/ ;
     var c = scan_indic[1];
-     /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
+     /*<<scanf.ml:1113:4>>*/  /*<<scanf.ml:1113:4>>*/ scan_chars
+      /*<<scanf.ml:1113:4>>*/ (width, c);
     var _T_ =  /*<<scanf.ml:1114:11>>*/ 1 - ib[1];
     if(! _T_)  /*<<scanf.ml:1114:11>>*/ return _T_ /*<<scanf.ml:1114:11>>*/ ;
-    var ci =  /*<<scanf.ml:1115:15>>*/ peek_char(ib);
-    return c === ci ? invalidate_current_char(ib) : character_mismatch(c, ci) /*<<scanf.ml:1118:34>>*/ ;
+    var
+     ci =
+        /*<<scanf.ml:1115:15>>*/  /*<<scanf.ml:1115:15>>*/ peek_char
+         /*<<scanf.ml:1115:15>>*/ (ib);
+    return c === ci
+            ?  /*<<scanf.ml:1117:11>>*/ invalidate_current_char
+               /*<<scanf.ml:1117:11>>*/ (ib)
+            :  /*<<scanf.ml:1118:11>>*/ character_mismatch
+               /*<<scanf.ml:1118:11>>*/ (c, ci) /*<<scanf.ml:1118:34>>*/ ;
     /*<<scanf.ml:1118:34>>*/ }
    function scanf_bad_input(ib, x){
      /*<<scanf.ml:1122:20>>*/ if(x[1] === Scan_failure)
@@ -32736,9 +36187,12 @@
               /*<<scanf.ml:1126:9>>*/ (x, 1);
      var s = x[2];
     }
-    var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
-     /*<<scanf.ml:1125:14>>*/ return bad_input
-            ( /*<<scanf.ml:1125:14>>*/ caml_call3
+    var
+     i =
+        /*<<scanf.ml:1124:12>>*/  /*<<scanf.ml:1124:12>>*/ char_count
+         /*<<scanf.ml:1124:12>>*/ (ib);
+     /*<<scanf.ml:1125:14>>*/ return  /*<<scanf.ml:1125:14>>*/ bad_input
+             /*<<scanf.ml:1125:14>>*/ ( /*<<scanf.ml:1125:14>>*/ caml_call3
                /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
     /*<<scanf.ml:1126:16>>*/ }
    function width_of_pad_opt(pad_opt){
@@ -32818,8 +36272,8 @@
                   /*<<scanf.ml:1195:5>>*/ (take_fmtty_format_readers$0,
                   [0, k, _R_, rest$13]) /*<<scanf.ml:1198:45>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1195:5>>*/ return take_fmtty_format_readers$0
-                (counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
+         /*<<scanf.ml:1195:5>>*/ return  /*<<scanf.ml:1195:5>>*/ take_fmtty_format_readers$0
+                 /*<<scanf.ml:1195:5>>*/ (counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
        case 15:
         var rest$14 = fmt$0[1]; fmt$0 = rest$14; break;
        case 16:
@@ -32858,7 +36312,8 @@
            /*<<scanf.ml:1164:31>>*/ return  /*<<scanf.ml:1164:33>>*/ caml_call1
                    /*<<scanf.ml:1164:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1164:62>>*/ ;
           /*<<scanf.ml:1164:62>>*/ }
-          /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ; /*<<scanf.ml:1165:40>>*/ } /*<<scanf.ml:1163:4>>*/ ;
+          /*<<scanf.ml:1165:6>>*/ return  /*<<scanf.ml:1165:6>>*/ take_format_readers
+                  /*<<scanf.ml:1165:6>>*/ (new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ; /*<<scanf.ml:1165:40>>*/ } /*<<scanf.ml:1163:4>>*/ ;
        case 20:
         var rest$19 = fmt$0[3]; fmt$0 = rest$19; break;
        case 21:
@@ -32879,8 +36334,8 @@
                /*<<scanf.ml:1237:31>>*/ return  /*<<scanf.ml:1237:33>>*/ caml_call1
                        /*<<scanf.ml:1237:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1237:62>>*/ ;
               /*<<scanf.ml:1237:62>>*/ }
-              /*<<scanf.ml:1238:6>>*/ return take_format_readers
-                     (new_k, rest$22) /*<<scanf.ml:1238:35>>*/ ; /*<<scanf.ml:1238:35>>*/ } /*<<scanf.ml:1236:4>>*/ ;
+              /*<<scanf.ml:1238:6>>*/ return  /*<<scanf.ml:1238:6>>*/ take_format_readers
+                      /*<<scanf.ml:1238:6>>*/ (new_k, rest$22) /*<<scanf.ml:1238:35>>*/ ; /*<<scanf.ml:1238:35>>*/ } /*<<scanf.ml:1236:4>>*/ ;
            default: fmt$0 = rest$22;
          }
         else
@@ -32910,8 +36365,8 @@
                       /*<<scanf.ml:1250:39>>*/ (take_fmtty_format_readers$0,
                       [0, k, fmtty$0, rest$22]) /*<<scanf.ml:1198:45>>*/ ;
             var counter$1 = counter + 1 | 0;
-             /*<<scanf.ml:1250:39>>*/ return take_fmtty_format_readers$0
-                    (counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
+             /*<<scanf.ml:1250:39>>*/ return  /*<<scanf.ml:1250:39>>*/ take_fmtty_format_readers$0
+                     /*<<scanf.ml:1250:39>>*/ (counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
            case 10:
             fmt$0 = rest$22; break;
            default: fmt$0 = rest$22;
@@ -32932,8 +36387,8 @@
         /*<<scanf.ml:1225:35>>*/ return  /*<<scanf.ml:1225:35>>*/ caml_trampoline_return
                 /*<<scanf.ml:1225:35>>*/ (take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
       var counter$0 = counter + 1 | 0;
-       /*<<scanf.ml:1225:35>>*/ return take_format_readers$0
-              (counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
+       /*<<scanf.ml:1225:35>>*/ return  /*<<scanf.ml:1225:35>>*/ take_format_readers$0
+               /*<<scanf.ml:1225:35>>*/ (counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
      }
      switch(fmtty$0[0]){
        case 0:
@@ -32983,8 +36438,8 @@
            /*<<scanf.ml:1207:31>>*/ return  /*<<scanf.ml:1207:33>>*/ caml_call1
                    /*<<scanf.ml:1207:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1207:62>>*/ ;
           /*<<scanf.ml:1207:62>>*/ }
-          /*<<scanf.ml:1208:6>>*/ return take_fmtty_format_readers
-                 (new_k, fmt_rest, fmt) /*<<scanf.ml:1208:50>>*/ ; /*<<scanf.ml:1208:50>>*/ } /*<<scanf.ml:1206:4>>*/ ;
+          /*<<scanf.ml:1208:6>>*/ return  /*<<scanf.ml:1208:6>>*/ take_fmtty_format_readers
+                  /*<<scanf.ml:1208:6>>*/ (new_k, fmt_rest, fmt) /*<<scanf.ml:1208:50>>*/ ; /*<<scanf.ml:1208:50>>*/ } /*<<scanf.ml:1206:4>>*/ ;
        default:
         var fmt_rest$0 = fmtty$0[1];
          /*<<scanf.ml:1210:4>>*/ return function(reader){
@@ -32992,8 +36447,8 @@
            /*<<scanf.ml:1211:31>>*/ return  /*<<scanf.ml:1211:33>>*/ caml_call1
                    /*<<scanf.ml:1211:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1211:62>>*/ ;
           /*<<scanf.ml:1211:62>>*/ }
-          /*<<scanf.ml:1212:6>>*/ return take_fmtty_format_readers
-                 (new_k, fmt_rest$0, fmt) /*<<scanf.ml:1212:50>>*/ ; /*<<scanf.ml:1212:50>>*/ } /*<<scanf.ml:1210:4>>*/ ;
+          /*<<scanf.ml:1212:6>>*/ return  /*<<scanf.ml:1212:6>>*/ take_fmtty_format_readers
+                  /*<<scanf.ml:1212:6>>*/ (new_k, fmt_rest$0, fmt) /*<<scanf.ml:1212:50>>*/ ; /*<<scanf.ml:1212:50>>*/ } /*<<scanf.ml:1210:4>>*/ ;
      }
     }
     /*<<scanf.ml:1228:58>>*/ }
@@ -33009,11 +36464,19 @@
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
-         /*<<scanf.ml:939:31>>*/ store_char(0, ib, checked_peek_char(ib));
-        var c$0 =  /*<<scanf.ml:1269:12>>*/ token_char(ib);
+         /*<<scanf.ml:939:31>>*/  /*<<scanf.ml:939:31>>*/ store_char
+          /*<<scanf.ml:939:31>>*/ (0,
+          ib,
+           /*<<scanf.ml:939:31>>*/ checked_peek_char
+            /*<<scanf.ml:939:31>>*/ (ib));
+        var
+         c$0 =
+            /*<<scanf.ml:1269:12>>*/  /*<<scanf.ml:1269:12>>*/ token_char
+             /*<<scanf.ml:1269:12>>*/ (ib);
          /*<<scanf.ml:1270:4>>*/ return [0,
                 c$0,
-                make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:4>>*/ ;
+                 /*<<scanf.ml:1270:13>>*/ make_scanf
+                  /*<<scanf.ml:1270:13>>*/ (ib, rest, readers)] /*<<scanf.ml:1270:4>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
@@ -33021,27 +36484,43 @@
            function(width){
             var c = check_next_char(cst_a_Char, width, ib);
             return 39 === c
-                    ? ignore_char(width, ib)
-                    : character_mismatch(39, c) /*<<scanf.ml:1049:36>>*/ ;
+                    ?  /*<<scanf.ml:1034:2>>*/ ignore_char
+                       /*<<scanf.ml:1034:2>>*/ (width, ib)
+                    :  /*<<scanf.ml:1049:11>>*/ character_mismatch
+                       /*<<scanf.ml:1049:11>>*/ (39, c) /*<<scanf.ml:1049:36>>*/ ;
             /*<<scanf.ml:1049:36>>*/ },
-         c =  /*<<scanf.ml:1035:10>>*/ checked_peek_char(ib),
+         c =
+            /*<<scanf.ml:1035:10>>*/  /*<<scanf.ml:1035:10>>*/ checked_peek_char
+             /*<<scanf.ml:1035:10>>*/ (ib),
          width$0 =  /*<<scanf.ml:1272:4>>*/ 0;
         if(39 === c){
          var
-          width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
+          width =
+             /*<<scanf.ml:1036:24>>*/  /*<<scanf.ml:1036:24>>*/ ignore_char
+              /*<<scanf.ml:1036:24>>*/ (width$0, ib),
           c$3 = check_next_char(cst_a_Char, width, ib);
          if(92 === c$3)
-           /*<<scanf.ml:1042:16>>*/ find_stop
-           (scan_backslash_char(ignore_char(width, ib), ib));
+           /*<<scanf.ml:1042:16>>*/  /*<<scanf.ml:1042:16>>*/ find_stop
+            /*<<scanf.ml:1042:16>>*/ ( /*<<scanf.ml:1042:16>>*/ scan_backslash_char
+              /*<<scanf.ml:1042:16>>*/ ( /*<<scanf.ml:1042:37>>*/ ignore_char
+                /*<<scanf.ml:1042:37>>*/ (width, ib),
+              ib));
          else
-           /*<<scanf.ml:1044:16>>*/ find_stop(store_char(width, ib, c$3));
+           /*<<scanf.ml:1044:16>>*/  /*<<scanf.ml:1044:16>>*/ find_stop
+            /*<<scanf.ml:1044:16>>*/ ( /*<<scanf.ml:1044:16>>*/ store_char
+              /*<<scanf.ml:1044:16>>*/ (width, ib, c$3));
         }
         else
-          /*<<scanf.ml:1037:11>>*/ character_mismatch(39, c);
-        var c$1 =  /*<<scanf.ml:1273:12>>*/ token_char(ib);
+          /*<<scanf.ml:1037:11>>*/  /*<<scanf.ml:1037:11>>*/ character_mismatch
+           /*<<scanf.ml:1037:11>>*/ (39, c);
+        var
+         c$1 =
+            /*<<scanf.ml:1273:12>>*/  /*<<scanf.ml:1273:12>>*/ token_char
+             /*<<scanf.ml:1273:12>>*/ (ib);
          /*<<scanf.ml:1274:4>>*/ return [0,
                 c$1,
-                make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:4>>*/ ;
+                 /*<<scanf.ml:1274:13>>*/ make_scanf
+                  /*<<scanf.ml:1274:13>>*/ (ib, rest$0, readers)] /*<<scanf.ml:1274:4>>*/ ;
        case 2:
         var pad = fmt$0[1], match = fmt$0[2];
         if(typeof match !== "number")
@@ -33051,17 +36530,24 @@
              rest$2 = match[2],
              fmting_lit = match[1],
              match$0 =
-                /*<<scanf.ml:1277:19>>*/ stopper_of_formatting_lit(fmting_lit),
+                /*<<scanf.ml:1277:19>>*/  /*<<scanf.ml:1277:19>>*/ stopper_of_formatting_lit
+                 /*<<scanf.ml:1277:19>>*/ (fmting_lit),
              str = match$0[2],
              stp = match$0[1],
              scan$0 =
                function(width, param, ib){
-                 /*<<scanf.ml:1278:26>>*/ return scan_string
-                        ([0, stp], width, ib) /*<<scanf.ml:1278:57>>*/ ;
+                 /*<<scanf.ml:1278:26>>*/ return  /*<<scanf.ml:1278:26>>*/ scan_string
+                         /*<<scanf.ml:1278:26>>*/ ([0, stp], width, ib) /*<<scanf.ml:1278:57>>*/ ;
                 /*<<scanf.ml:1278:57>>*/ },
              str_rest =  /*<<scanf.ml:1279:19>>*/ [11, str, rest$2];
-             /*<<scanf.ml:1280:4>>*/ return pad_prec_scanf
-                    (ib, str_rest, readers, pad, 0, scan$0, token_string) /*<<scanf.ml:1418:7>>*/ ;
+             /*<<scanf.ml:1280:4>>*/ return  /*<<scanf.ml:1280:4>>*/ pad_prec_scanf
+                     /*<<scanf.ml:1280:4>>*/ (ib,
+                     str_rest,
+                     readers,
+                     pad,
+                     0,
+                     scan$0,
+                     token_string) /*<<scanf.ml:1418:7>>*/ ;
            case 18:
             var _D_ = match[1];
             if(0 === _D_[0]){
@@ -33070,10 +36556,11 @@
               fmt$1 = _D_[1][1],
               scan$1 =
                  /*<<scanf.ml:1282:4>>*/ function(width, param, ib){
-                  /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
+                  /*<<scanf.ml:1282:26>>*/ return  /*<<scanf.ml:1282:26>>*/ scan_string
+                          /*<<scanf.ml:1282:26>>*/ (_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
                  /*<<scanf.ml:1282:57>>*/ };
-              /*<<scanf.ml:1283:4>>*/ return pad_prec_scanf
-                     (ib,
+              /*<<scanf.ml:1283:4>>*/ return  /*<<scanf.ml:1283:4>>*/ pad_prec_scanf
+                      /*<<scanf.ml:1283:4>>*/ (ib,
                        /*<<scanf.ml:1283:22>>*/ caml_call2
                         /*<<scanf.ml:1283:22>>*/ (CamlinternalFormatBasics[3],
                         fmt$1,
@@ -33089,10 +36576,11 @@
              fmt$2 = _D_[1][1],
              scan$2 =
                 /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
-                 /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
+                 /*<<scanf.ml:1286:26>>*/ return  /*<<scanf.ml:1286:26>>*/ scan_string
+                         /*<<scanf.ml:1286:26>>*/ (_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
                 /*<<scanf.ml:1286:57>>*/ };
-             /*<<scanf.ml:1287:4>>*/ return pad_prec_scanf
-                    (ib,
+             /*<<scanf.ml:1287:4>>*/ return  /*<<scanf.ml:1287:4>>*/ pad_prec_scanf
+                     /*<<scanf.ml:1287:4>>*/ (ib,
                       /*<<scanf.ml:1287:22>>*/ caml_call2
                        /*<<scanf.ml:1287:22>>*/ (CamlinternalFormatBasics[3],
                        fmt$2,
@@ -33107,20 +36595,34 @@
          rest$1 = fmt$0[2],
          scan =
             /*<<scanf.ml:1290:4>>*/ function(width, param, ib){
-             /*<<scanf.ml:1290:26>>*/ return scan_string(0, width, ib) /*<<scanf.ml:1290:51>>*/ ;
+             /*<<scanf.ml:1290:26>>*/ return  /*<<scanf.ml:1290:26>>*/ scan_string
+                     /*<<scanf.ml:1290:26>>*/ (0, width, ib) /*<<scanf.ml:1290:51>>*/ ;
             /*<<scanf.ml:1290:51>>*/ };
-         /*<<scanf.ml:1291:4>>*/ return pad_prec_scanf
-                (ib, rest$1, readers, pad, 0, scan, token_string) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1291:4>>*/ return  /*<<scanf.ml:1291:4>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1291:4>>*/ (ib,
+                 rest$1,
+                 readers,
+                 pad,
+                 0,
+                 scan,
+                 token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 3:
         var
          rest$5 = fmt$0[2],
          pad$0 = fmt$0[1],
          scan$3 =
             /*<<scanf.ml:1294:4>>*/ function(width, param, ib){
-             /*<<scanf.ml:1294:26>>*/ return scan_caml_string(width, ib) /*<<scanf.ml:1294:51>>*/ ;
+             /*<<scanf.ml:1294:26>>*/ return  /*<<scanf.ml:1294:26>>*/ scan_caml_string
+                     /*<<scanf.ml:1294:26>>*/ (width, ib) /*<<scanf.ml:1294:51>>*/ ;
             /*<<scanf.ml:1294:51>>*/ };
-         /*<<scanf.ml:1295:4>>*/ return pad_prec_scanf
-                (ib, rest$5, readers, pad$0, 0, scan$3, token_string) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1295:4>>*/ return  /*<<scanf.ml:1295:4>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1295:4>>*/ (ib,
+                 rest$5,
+                 readers,
+                 pad$0,
+                 0,
+                 scan$3,
+                 token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 4:
         var
          rest$6 = fmt$0[4],
@@ -33128,16 +36630,16 @@
          pad$1 = fmt$0[2],
          iconv = fmt$0[1],
          conv =
-            /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
-            ( /*<<scanf.ml:1297:39>>*/ caml_call1
+            /*<<scanf.ml:1297:12>>*/  /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
+             /*<<scanf.ml:1297:12>>*/ ( /*<<scanf.ml:1297:39>>*/ caml_call1
                /*<<scanf.ml:1297:39>>*/ (CamlinternalFormat[16], iconv)),
          scan$4 =
            function(width, param, ib){
-             /*<<scanf.ml:1298:26>>*/ return scan_int_conversion
-                    (conv, width, ib) /*<<scanf.ml:1298:56>>*/ ;
+             /*<<scanf.ml:1298:26>>*/ return  /*<<scanf.ml:1298:26>>*/ scan_int_conversion
+                     /*<<scanf.ml:1298:26>>*/ (conv, width, ib) /*<<scanf.ml:1298:56>>*/ ;
             /*<<scanf.ml:1298:56>>*/ };
-         /*<<scanf.ml:1299:49>>*/ return pad_prec_scanf
-                (ib,
+         /*<<scanf.ml:1299:49>>*/ return  /*<<scanf.ml:1299:49>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1299:49>>*/ (ib,
                  rest$6,
                  readers,
                  pad$1,
@@ -33145,7 +36647,8 @@
                  scan$4,
                  function(ib){
                    /*<<scanf.ml:537:24>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
-                           /*<<scanf.ml:537:24>>*/ (token_int_literal(conv, ib)) /*<<scanf.ml:537:24>>*/ ;
+                           /*<<scanf.ml:537:24>>*/ ( /*<<scanf.ml:537:38>>*/ token_int_literal
+                             /*<<scanf.ml:537:38>>*/ (conv, ib)) /*<<scanf.ml:537:24>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 5:
         var
@@ -33154,16 +36657,16 @@
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1],
          conv$0 =
-            /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
-            ( /*<<scanf.ml:1301:39>>*/ caml_call1
+            /*<<scanf.ml:1301:12>>*/  /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
+             /*<<scanf.ml:1301:12>>*/ ( /*<<scanf.ml:1301:39>>*/ caml_call1
                /*<<scanf.ml:1301:39>>*/ (CamlinternalFormat[16], iconv$0)),
          scan$5 =
            function(width, param, ib){
-             /*<<scanf.ml:1302:26>>*/ return scan_int_conversion
-                    (conv$0, width, ib) /*<<scanf.ml:1302:56>>*/ ;
+             /*<<scanf.ml:1302:26>>*/ return  /*<<scanf.ml:1302:26>>*/ scan_int_conversion
+                     /*<<scanf.ml:1302:26>>*/ (conv$0, width, ib) /*<<scanf.ml:1302:56>>*/ ;
             /*<<scanf.ml:1302:56>>*/ };
-         /*<<scanf.ml:1303:49>>*/ return pad_prec_scanf
-                (ib,
+         /*<<scanf.ml:1303:49>>*/ return  /*<<scanf.ml:1303:49>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1303:49>>*/ (ib,
                  rest$7,
                  readers,
                  pad$2,
@@ -33171,7 +36674,8 @@
                  scan$5,
                  function(ib){
                    /*<<scanf.ml:558:26>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
-                           /*<<scanf.ml:558:26>>*/ (token_int_literal(conv$0, ib)) /*<<scanf.ml:558:26>>*/ ;
+                           /*<<scanf.ml:558:26>>*/ ( /*<<scanf.ml:558:42>>*/ token_int_literal
+                             /*<<scanf.ml:558:42>>*/ (conv$0, ib)) /*<<scanf.ml:558:26>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 6:
         var
@@ -33180,16 +36684,16 @@
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1],
          conv$1 =
-            /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
-            ( /*<<scanf.ml:1305:39>>*/ caml_call1
+            /*<<scanf.ml:1305:12>>*/  /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
+             /*<<scanf.ml:1305:12>>*/ ( /*<<scanf.ml:1305:39>>*/ caml_call1
                /*<<scanf.ml:1305:39>>*/ (CamlinternalFormat[16], iconv$1)),
          scan$6 =
            function(width, param, ib){
-             /*<<scanf.ml:1306:26>>*/ return scan_int_conversion
-                    (conv$1, width, ib) /*<<scanf.ml:1306:56>>*/ ;
+             /*<<scanf.ml:1306:26>>*/ return  /*<<scanf.ml:1306:26>>*/ scan_int_conversion
+                     /*<<scanf.ml:1306:26>>*/ (conv$1, width, ib) /*<<scanf.ml:1306:56>>*/ ;
             /*<<scanf.ml:1306:56>>*/ };
-         /*<<scanf.ml:1307:49>>*/ return pad_prec_scanf
-                (ib,
+         /*<<scanf.ml:1307:49>>*/ return  /*<<scanf.ml:1307:49>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1307:49>>*/ (ib,
                  rest$8,
                  readers,
                  pad$3,
@@ -33197,7 +36701,8 @@
                  scan$6,
                  function(ib){
                    /*<<scanf.ml:557:30>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
-                           /*<<scanf.ml:557:30>>*/ (token_int_literal(conv$1, ib)) /*<<scanf.ml:557:30>>*/ ;
+                           /*<<scanf.ml:557:30>>*/ ( /*<<scanf.ml:557:50>>*/ token_int_literal
+                             /*<<scanf.ml:557:50>>*/ (conv$1, ib)) /*<<scanf.ml:557:30>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 7:
         var
@@ -33206,16 +36711,16 @@
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1],
          conv$2 =
-            /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
-            ( /*<<scanf.ml:1309:39>>*/ caml_call1
+            /*<<scanf.ml:1309:12>>*/  /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
+             /*<<scanf.ml:1309:12>>*/ ( /*<<scanf.ml:1309:39>>*/ caml_call1
                /*<<scanf.ml:1309:39>>*/ (CamlinternalFormat[16], iconv$2)),
          scan$7 =
            function(width, param, ib){
-             /*<<scanf.ml:1310:26>>*/ return scan_int_conversion
-                    (conv$2, width, ib) /*<<scanf.ml:1310:56>>*/ ;
+             /*<<scanf.ml:1310:26>>*/ return  /*<<scanf.ml:1310:26>>*/ scan_int_conversion
+                     /*<<scanf.ml:1310:26>>*/ (conv$2, width, ib) /*<<scanf.ml:1310:56>>*/ ;
             /*<<scanf.ml:1310:56>>*/ };
-         /*<<scanf.ml:1311:49>>*/ return pad_prec_scanf
-                (ib,
+         /*<<scanf.ml:1311:49>>*/ return  /*<<scanf.ml:1311:49>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1311:49>>*/ (ib,
                  rest$9,
                  readers,
                  pad$4,
@@ -33223,15 +36728,16 @@
                  scan$7,
                  function(ib){
                    /*<<scanf.ml:559:26>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
-                           /*<<scanf.ml:559:26>>*/ (token_int_literal(conv$2, ib)) /*<<scanf.ml:559:26>>*/ ;
+                           /*<<scanf.ml:559:26>>*/ ( /*<<scanf.ml:559:42>>*/ token_int_literal
+                             /*<<scanf.ml:559:42>>*/ (conv$2, ib)) /*<<scanf.ml:559:26>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 8:
         switch(fmt$0[1][2]){
           case 5:
           case 8:
            var rest$11 = fmt$0[4], prec$4 = fmt$0[3], pad$6 = fmt$0[2];
-            /*<<scanf.ml:1313:4>>*/ return pad_prec_scanf
-                   (ib,
+            /*<<scanf.ml:1313:4>>*/ return  /*<<scanf.ml:1313:4>>*/ pad_prec_scanf
+                    /*<<scanf.ml:1313:4>>*/ (ib,
                     rest$11,
                     readers,
                     pad$6,
@@ -33241,8 +36747,8 @@
           case 6:
           case 7:
            var rest$12 = fmt$0[4], prec$5 = fmt$0[3], pad$7 = fmt$0[2];
-            /*<<scanf.ml:1318:4>>*/ return pad_prec_scanf
-                   (ib,
+            /*<<scanf.ml:1318:4>>*/ return  /*<<scanf.ml:1318:4>>*/ pad_prec_scanf
+                    /*<<scanf.ml:1318:4>>*/ (ib,
                     rest$12,
                     readers,
                     pad$7,
@@ -33251,8 +36757,8 @@
                     token_float) /*<<scanf.ml:1418:7>>*/ ;
           default:
            var rest$10 = fmt$0[4], prec$3 = fmt$0[3], pad$5 = fmt$0[2];
-            /*<<scanf.ml:1316:4>>*/ return pad_prec_scanf
-                   (ib,
+            /*<<scanf.ml:1316:4>>*/ return  /*<<scanf.ml:1316:4>>*/ pad_prec_scanf
+                    /*<<scanf.ml:1316:4>>*/ (ib,
                     rest$10,
                     readers,
                     pad$5,
@@ -33267,24 +36773,36 @@
          scan$8 =
             /*<<scanf.ml:1320:4>>*/ function(_O_, param, ib){
             var
-             c =  /*<<scanf.ml:1089:10>>*/ checked_peek_char(ib),
+             c =
+                /*<<scanf.ml:1089:10>>*/  /*<<scanf.ml:1089:10>>*/ checked_peek_char
+                 /*<<scanf.ml:1089:10>>*/ (ib),
              m =
                 /*<<scanf.ml:1090:2>>*/ 102 === c
                 ? 5
                 : 116
                   === c
                   ? 4
-                  : bad_input
-                    ( /*<<scanf.ml:1096:8>>*/ caml_call2
+                  :  /*<<scanf.ml:1095:6>>*/ bad_input
+                     /*<<scanf.ml:1095:6>>*/ ( /*<<scanf.ml:1096:8>>*/ caml_call2
                        /*<<scanf.ml:1096:8>>*/ (Stdlib_Printf[4], _n_, c));
-             /*<<scanf.ml:1097:2>>*/ return scan_string(0, m, ib) /*<<scanf.ml:1320:34>>*/ ;
+             /*<<scanf.ml:1097:2>>*/ return  /*<<scanf.ml:1097:2>>*/ scan_string
+                     /*<<scanf.ml:1097:2>>*/ (0, m, ib) /*<<scanf.ml:1320:34>>*/ ;
             /*<<scanf.ml:1320:34>>*/ };
-         /*<<scanf.ml:1321:4>>*/ return pad_prec_scanf
-                (ib, rest$13, readers, pad$8, 0, scan$8, token_bool) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1321:4>>*/ return  /*<<scanf.ml:1321:4>>*/ pad_prec_scanf
+                 /*<<scanf.ml:1321:4>>*/ (ib,
+                 rest$13,
+                 readers,
+                 pad$8,
+                 0,
+                 scan$8,
+                 token_bool) /*<<scanf.ml:1418:7>>*/ ;
        case 10:
         var rest$14 = fmt$0[1];
-         /*<<scanf.ml:1337:7>>*/ if(! end_of_input(ib))
-          /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1337:7>>*/ if
+         (!
+           /*<<scanf.ml:1337:7>>*/ end_of_input /*<<scanf.ml:1337:7>>*/ (ib))
+          /*<<scanf.ml:1338:9>>*/ return  /*<<scanf.ml:1338:9>>*/ bad_input
+                  /*<<scanf.ml:1338:9>>*/ (cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
         fmt$0 = rest$14;
         break;
        case 11:
@@ -33297,14 +36815,20 @@
         break;
        case 12:
         var rest$16 = fmt$0[2], chr = fmt$0[1];
-         /*<<scanf.ml:1344:4>>*/ check_char(ib, chr);
+         /*<<scanf.ml:1344:4>>*/  /*<<scanf.ml:1344:4>>*/ check_char
+          /*<<scanf.ml:1344:4>>*/ (ib, chr);
         fmt$0 = rest$16;
         break;
        case 13:
         var rest$17 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
-         /*<<scanf.ml:1348:12>>*/ scan_caml_string
-         (width_of_pad_opt(pad_opt), ib);
-        var s =  /*<<scanf.ml:1349:12>>*/ token_string(ib);
+         /*<<scanf.ml:1348:12>>*/  /*<<scanf.ml:1348:12>>*/ scan_caml_string
+          /*<<scanf.ml:1348:12>>*/ ( /*<<scanf.ml:1348:29>>*/ width_of_pad_opt
+            /*<<scanf.ml:1348:29>>*/ (pad_opt),
+          ib);
+        var
+         s =
+            /*<<scanf.ml:1349:12>>*/  /*<<scanf.ml:1349:12>>*/ token_string
+             /*<<scanf.ml:1349:12>>*/ (ib);
          /*<<scanf.ml:1350:4>>*/ try{
          var
           _E_ =
@@ -33315,16 +36839,25 @@
         catch(exn$0){
          var exn = caml_wrap_exception(exn$0);
          if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
-         var msg = exn[2], fmt$3 = bad_input(msg);
+         var
+          msg = exn[2],
+          fmt$3 =
+             /*<<scanf.ml:1352:26>>*/ bad_input /*<<scanf.ml:1352:26>>*/ (msg);
         }
          /*<<scanf.ml:1354:4>>*/ return [0,
                 fmt$3,
-                make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:4>>*/ ;
+                 /*<<scanf.ml:1354:15>>*/ make_scanf
+                  /*<<scanf.ml:1354:15>>*/ (ib, rest$17, readers)] /*<<scanf.ml:1354:4>>*/ ;
        case 14:
         var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
-         /*<<scanf.ml:1356:12>>*/ scan_caml_string
-         (width_of_pad_opt(pad_opt$0), ib);
-        var s$0 =  /*<<scanf.ml:1357:12>>*/ token_string(ib);
+         /*<<scanf.ml:1356:12>>*/  /*<<scanf.ml:1356:12>>*/ scan_caml_string
+          /*<<scanf.ml:1356:12>>*/ ( /*<<scanf.ml:1356:29>>*/ width_of_pad_opt
+            /*<<scanf.ml:1356:29>>*/ (pad_opt$0),
+          ib);
+        var
+         s$0 =
+            /*<<scanf.ml:1357:12>>*/  /*<<scanf.ml:1357:12>>*/ token_string
+             /*<<scanf.ml:1357:12>>*/ (ib);
         try{
          var
           fmt$6 =
@@ -33365,8 +36898,8 @@
         }
          /*<<scanf.ml:1378:4>>*/ return [0,
                 [0, fmt$4, s$0],
-                make_scanf
-                 (ib,
+                 /*<<scanf.ml:1379:10>>*/ make_scanf
+                  /*<<scanf.ml:1379:10>>*/ (ib,
                    /*<<scanf.ml:1379:24>>*/ caml_call2
                     /*<<scanf.ml:1379:24>>*/ (CamlinternalFormatBasics[3],
                     fmt$5,
@@ -33397,8 +36930,10 @@
         var _L_ = fmt$0[1];
         if(0 === _L_[0]){
          var rest$20 = fmt$0[2], fmt$9 = _L_[1][1];
-          /*<<scanf.ml:1404:4>>*/ check_char(ib, 64);
-          /*<<scanf.ml:1404:23>>*/ check_char(ib, 123);
+          /*<<scanf.ml:1404:4>>*/  /*<<scanf.ml:1404:4>>*/ check_char
+           /*<<scanf.ml:1404:4>>*/ (ib, 64);
+          /*<<scanf.ml:1404:23>>*/  /*<<scanf.ml:1404:23>>*/ check_char
+           /*<<scanf.ml:1404:23>>*/ (ib, 123);
          var
           fmt$10 =
              /*<<scanf.ml:1405:18>>*/  /*<<scanf.ml:1405:18>>*/ caml_call2
@@ -33409,8 +36944,10 @@
         }
         else{
          var rest$21 = fmt$0[2], fmt$11 = _L_[1][1];
-          /*<<scanf.ml:1407:4>>*/ check_char(ib, 64);
-          /*<<scanf.ml:1407:23>>*/ check_char(ib, 91);
+          /*<<scanf.ml:1407:4>>*/  /*<<scanf.ml:1407:4>>*/ check_char
+           /*<<scanf.ml:1407:4>>*/ (ib, 64);
+          /*<<scanf.ml:1407:23>>*/  /*<<scanf.ml:1407:23>>*/ check_char
+           /*<<scanf.ml:1407:23>>*/ (ib, 91);
          var
           fmt$12 =
              /*<<scanf.ml:1408:18>>*/  /*<<scanf.ml:1408:18>>*/ caml_call2
@@ -33434,7 +36971,8 @@
              /*<<scanf.ml:1331:16>>*/ (reader, ib);
          /*<<scanf.ml:1332:8>>*/ return [0,
                 x,
-                make_scanf(ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:8>>*/ ;
+                 /*<<scanf.ml:1332:17>>*/ make_scanf
+                  /*<<scanf.ml:1332:17>>*/ (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:8>>*/ ;
        case 20:
         var width_opt = fmt$0[1], match$1 = fmt$0[3];
         if(typeof match$1 !== "number" && 17 === match$1[0]){
@@ -33443,48 +36981,68 @@
           fmting_lit$0 = match$1[1],
           char_set$0 = fmt$0[2],
           match$2 =
-             /*<<scanf.ml:1382:19>>*/ stopper_of_formatting_lit(fmting_lit$0),
+             /*<<scanf.ml:1382:19>>*/  /*<<scanf.ml:1382:19>>*/ stopper_of_formatting_lit
+              /*<<scanf.ml:1382:19>>*/ (fmting_lit$0),
           str$1 = match$2[2],
           stp$0 = match$2[1],
-          width$2 =  /*<<scanf.ml:1383:16>>*/ width_of_pad_opt(width_opt);
-          /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
-          (char_set$0, [0, stp$0], width$2, ib);
+          width$2 =
+             /*<<scanf.ml:1383:16>>*/  /*<<scanf.ml:1383:16>>*/ width_of_pad_opt
+              /*<<scanf.ml:1383:16>>*/ (width_opt);
+          /*<<scanf.ml:1384:4>>*/  /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
+           /*<<scanf.ml:1384:4>>*/ (char_set$0, [0, stp$0], width$2, ib);
          var
-          s$2 =  /*<<scanf.ml:1385:12>>*/ token_string(ib),
+          s$2 =
+             /*<<scanf.ml:1385:12>>*/  /*<<scanf.ml:1385:12>>*/ token_string
+              /*<<scanf.ml:1385:12>>*/ (ib),
           str_rest$0 =  /*<<scanf.ml:1386:19>>*/ [11, str$1, rest$23];
           /*<<scanf.ml:1387:4>>*/ return [0,
                  s$2,
-                 make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:4>>*/ ;
+                  /*<<scanf.ml:1387:13>>*/ make_scanf
+                   /*<<scanf.ml:1387:13>>*/ (ib, str_rest$0, readers)] /*<<scanf.ml:1387:4>>*/ ;
         }
         var
          rest$22 = fmt$0[3],
          char_set = fmt$0[2],
-         width$1 =  /*<<scanf.ml:1389:16>>*/ width_of_pad_opt(width_opt);
-         /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
-         (char_set, 0, width$1, ib);
-        var s$1 =  /*<<scanf.ml:1391:12>>*/ token_string(ib);
+         width$1 =
+            /*<<scanf.ml:1389:16>>*/  /*<<scanf.ml:1389:16>>*/ width_of_pad_opt
+             /*<<scanf.ml:1389:16>>*/ (width_opt);
+         /*<<scanf.ml:1390:4>>*/  /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
+          /*<<scanf.ml:1390:4>>*/ (char_set, 0, width$1, ib);
+        var
+         s$1 =
+            /*<<scanf.ml:1391:12>>*/  /*<<scanf.ml:1391:12>>*/ token_string
+             /*<<scanf.ml:1391:12>>*/ (ib);
          /*<<scanf.ml:1392:4>>*/ return [0,
                 s$1,
-                make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:4>>*/ ;
+                 /*<<scanf.ml:1392:13>>*/ make_scanf
+                  /*<<scanf.ml:1392:13>>*/ (ib, rest$22, readers)] /*<<scanf.ml:1392:4>>*/ ;
        case 21:
         var rest$24 = fmt$0[2], counter = fmt$0[1];
         switch(counter){
           case 0:
            var count = ib[5]; break;
           case 1:
-           var count = char_count(ib); break;
+           var
+            count =
+               /*<<scanf.ml:1133:20>>*/ char_count
+                /*<<scanf.ml:1133:20>>*/ (ib);
+           break;
           default: var count = ib[6];
         }
          /*<<scanf.ml:1395:4>>*/ return [0,
                 count,
-                make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:4>>*/ ;
+                 /*<<scanf.ml:1395:17>>*/ make_scanf
+                  /*<<scanf.ml:1395:17>>*/ (ib, rest$24, readers)] /*<<scanf.ml:1395:4>>*/ ;
        case 22:
         var
          rest$25 = fmt$0[1],
-         c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
+         c$2 =
+            /*<<scanf.ml:1397:12>>*/  /*<<scanf.ml:1397:12>>*/ checked_peek_char
+             /*<<scanf.ml:1397:12>>*/ (ib);
          /*<<scanf.ml:1398:4>>*/ return [0,
                 c$2,
-                make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:4>>*/ ;
+                 /*<<scanf.ml:1398:13>>*/ make_scanf
+                  /*<<scanf.ml:1398:13>>*/ (ib, rest$25, readers)] /*<<scanf.ml:1398:4>>*/ ;
        case 23:
         var
          rest$26 = fmt$0[2],
@@ -33493,7 +37051,9 @@
             /*<<scanf.ml:1411:32>>*/ caml_call2
               /*<<scanf.ml:1411:32>>*/ (CamlinternalFormat[6], ign, rest$26)
             [1],
-         match$3 =  /*<<scanf.ml:1412:16>>*/ make_scanf(ib, fmt$13, readers);
+         match$3 =
+            /*<<scanf.ml:1412:16>>*/  /*<<scanf.ml:1412:16>>*/ make_scanf
+             /*<<scanf.ml:1412:16>>*/ (ib, fmt$13, readers);
         if(! match$3)
           /*<<scanf.ml:1414:13>>*/ throw  /*<<scanf.ml:1414:13>>*/ caml_maybe_attach_backtrace
                  /*<<scanf.ml:1414:13>>*/ ([0, Assert_failure, _s_], 1);
@@ -33516,7 +37076,10 @@
        x$0 =
           /*<<scanf.ml:1436:12>>*/  /*<<scanf.ml:1436:12>>*/ caml_call1
            /*<<scanf.ml:1436:12>>*/ (token, ib);
-       /*<<scanf.ml:1437:4>>*/ return [0, x$0, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:4>>*/ ;
+       /*<<scanf.ml:1437:4>>*/ return [0,
+              x$0,
+               /*<<scanf.ml:1437:13>>*/ make_scanf
+                /*<<scanf.ml:1437:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1437:4>>*/ ;
      }
      if(prec)
        /*<<scanf.ml:1453:4>>*/ return  /*<<scanf.ml:1453:4>>*/ caml_call1
@@ -33527,7 +37090,10 @@
       x =
          /*<<scanf.ml:1432:12>>*/  /*<<scanf.ml:1432:12>>*/ caml_call1
           /*<<scanf.ml:1432:12>>*/ (token, ib);
-      /*<<scanf.ml:1433:4>>*/ return [0, x, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:4>>*/ ;
+      /*<<scanf.ml:1433:4>>*/ return [0,
+             x,
+              /*<<scanf.ml:1433:13>>*/ make_scanf
+               /*<<scanf.ml:1433:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1433:4>>*/ ;
     }
     if(0 !== pad[0])
       /*<<scanf.ml:1451:4>>*/ return  /*<<scanf.ml:1451:4>>*/ caml_call1
@@ -33544,7 +37110,10 @@
       x$2 =
          /*<<scanf.ml:1444:12>>*/  /*<<scanf.ml:1444:12>>*/ caml_call1
           /*<<scanf.ml:1444:12>>*/ (token, ib);
-      /*<<scanf.ml:1445:4>>*/ return [0, x$2, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:4>>*/ ;
+      /*<<scanf.ml:1445:4>>*/ return [0,
+             x$2,
+              /*<<scanf.ml:1445:13>>*/ make_scanf
+               /*<<scanf.ml:1445:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1445:4>>*/ ;
     }
     if(prec)
       /*<<scanf.ml:1449:4>>*/ return  /*<<scanf.ml:1449:4>>*/ caml_call1
@@ -33555,14 +37124,20 @@
      x$1 =
         /*<<scanf.ml:1440:12>>*/  /*<<scanf.ml:1440:12>>*/ caml_call1
          /*<<scanf.ml:1440:12>>*/ (token, ib);
-     /*<<scanf.ml:1441:4>>*/ return [0, x$1, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:4>>*/ ;
+     /*<<scanf.ml:1441:4>>*/ return [0,
+            x$1,
+             /*<<scanf.ml:1441:13>>*/ make_scanf
+              /*<<scanf.ml:1441:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1441:4>>*/ ;
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
     var str = param[2], fmt = param[1];
     function k(readers, f$1){
       /*<<scanf.ml:1465:4>>*/ caml_call1(Stdlib_Buffer[9], ib[8]);
       /*<<scanf.ml:1465:4>>*/ try{
-      var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);
+      var
+       args$1 =
+          /*<<scanf.ml:1466:10>>*/  /*<<scanf.ml:1466:10>>*/ make_scanf
+           /*<<scanf.ml:1466:10>>*/ (ib, fmt, readers);
      }
      catch(exc$0){
       var exc = caml_wrap_exception(exc$0);
@@ -33604,11 +37179,12 @@
       args = args$0;
      }
      /*<<scanf.ml:1472:25>>*/ }
-     /*<<scanf.ml:1474:2>>*/ return take_format_readers(k, fmt) /*<<scanf.ml:1474:27>>*/ ;
+     /*<<scanf.ml:1474:2>>*/ return  /*<<scanf.ml:1474:2>>*/ take_format_readers
+             /*<<scanf.ml:1474:2>>*/ (k, fmt) /*<<scanf.ml:1474:27>>*/ ;
     /*<<scanf.ml:1474:27>>*/ }
    function kscanf(ib, ef, fmt){
-     /*<<scanf.ml:1477:2>>*/ return kscanf_gen
-            (ib,
+     /*<<scanf.ml:1477:2>>*/ return  /*<<scanf.ml:1477:2>>*/ kscanf_gen
+             /*<<scanf.ml:1477:2>>*/ (ib,
              ef,
              function(x){
                /*<<scanf.ml:1477:29>>*/ return x /*<<scanf.ml:1477:29>>*/ ;
@@ -33616,8 +37192,8 @@
              fmt) /*<<scanf.ml:1477:35>>*/ ;
     /*<<scanf.ml:1477:35>>*/ }
    function kscanf_opt(ib, fmt){
-     /*<<scanf.ml:1480:2>>*/ return kscanf_gen
-            (ib,
+     /*<<scanf.ml:1480:2>>*/ return  /*<<scanf.ml:1480:2>>*/ kscanf_gen
+             /*<<scanf.ml:1480:2>>*/ (ib,
              function(_y_, param){
                /*<<scanf.ml:1480:28>>*/ return 0 /*<<scanf.ml:1480:28>>*/ ;
               /*<<scanf.ml:1480:32>>*/ },
@@ -33627,30 +37203,48 @@
              fmt) /*<<scanf.ml:1480:55>>*/ ;
     /*<<scanf.ml:1480:55>>*/ }
    function bscanf(ib, fmt){
-     /*<<scanf.ml:1485:20>>*/ return kscanf(ib, scanf_bad_input, fmt) /*<<scanf.ml:1485:50>>*/ ;
+     /*<<scanf.ml:1485:20>>*/ return  /*<<scanf.ml:1485:20>>*/ kscanf
+             /*<<scanf.ml:1485:20>>*/ (ib, scanf_bad_input, fmt) /*<<scanf.ml:1485:50>>*/ ;
     /*<<scanf.ml:1485:50>>*/ }
    function bscanf_opt(ib, fmt){
-     /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
+     /*<<scanf.ml:1486:24>>*/ return  /*<<scanf.ml:1486:24>>*/ kscanf_opt
+             /*<<scanf.ml:1486:24>>*/ (ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
     /*<<scanf.ml:1486:41>>*/ }
    function ksscanf(s, ef, fmt){
-     /*<<scanf.ml:1488:23>>*/ return kscanf(from_string(s), ef, fmt) /*<<scanf.ml:1488:62>>*/ ;
+     /*<<scanf.ml:1488:23>>*/ return  /*<<scanf.ml:1488:23>>*/ kscanf
+             /*<<scanf.ml:1488:23>>*/ ( /*<<scanf.ml:1488:31>>*/ from_string
+               /*<<scanf.ml:1488:31>>*/ (s),
+             ef,
+             fmt) /*<<scanf.ml:1488:62>>*/ ;
     /*<<scanf.ml:1488:62>>*/ }
    function sscanf(s, fmt){
-     /*<<scanf.ml:1489:19>>*/ return kscanf
-            (from_string(s), scanf_bad_input, fmt) /*<<scanf.ml:1489:71>>*/ ;
+     /*<<scanf.ml:1489:19>>*/ return  /*<<scanf.ml:1489:19>>*/ kscanf
+             /*<<scanf.ml:1489:19>>*/ ( /*<<scanf.ml:1489:27>>*/ from_string
+               /*<<scanf.ml:1489:27>>*/ (s),
+             scanf_bad_input,
+             fmt) /*<<scanf.ml:1489:71>>*/ ;
     /*<<scanf.ml:1489:71>>*/ }
    function sscanf_opt(s, fmt){
-     /*<<scanf.ml:1490:23>>*/ return kscanf_opt(from_string(s), fmt) /*<<scanf.ml:1490:62>>*/ ;
+     /*<<scanf.ml:1490:23>>*/ return  /*<<scanf.ml:1490:23>>*/ kscanf_opt
+             /*<<scanf.ml:1490:23>>*/ ( /*<<scanf.ml:1490:34>>*/ from_string
+               /*<<scanf.ml:1490:34>>*/ (s),
+             fmt) /*<<scanf.ml:1490:62>>*/ ;
     /*<<scanf.ml:1490:62>>*/ }
    function scanf(fmt){
-     /*<<scanf.ml:1492:16>>*/ return kscanf(stdin, scanf_bad_input, fmt) /*<<scanf.ml:1492:57>>*/ ;
+     /*<<scanf.ml:1492:16>>*/ return  /*<<scanf.ml:1492:16>>*/ kscanf
+             /*<<scanf.ml:1492:16>>*/ (stdin, scanf_bad_input, fmt) /*<<scanf.ml:1492:57>>*/ ;
     /*<<scanf.ml:1492:57>>*/ }
    function scanf_opt(fmt){
-     /*<<scanf.ml:1493:20>>*/ return kscanf_opt(stdin, fmt) /*<<scanf.ml:1493:49>>*/ ;
+     /*<<scanf.ml:1493:20>>*/ return  /*<<scanf.ml:1493:20>>*/ kscanf_opt
+             /*<<scanf.ml:1493:20>>*/ (stdin, fmt) /*<<scanf.ml:1493:49>>*/ ;
     /*<<scanf.ml:1493:49>>*/ }
    function bscanf_format(ib, format, f){
-     /*<<scanf.ml:1502:4>>*/ scan_caml_string(Stdlib[19], ib);
-    var str =  /*<<scanf.ml:1503:14>>*/ token_string(ib);
+     /*<<scanf.ml:1502:4>>*/  /*<<scanf.ml:1502:12>>*/ scan_caml_string
+      /*<<scanf.ml:1502:12>>*/ (Stdlib[19], ib);
+    var
+     str =
+        /*<<scanf.ml:1503:14>>*/  /*<<scanf.ml:1503:14>>*/ token_string
+         /*<<scanf.ml:1503:14>>*/ (ib);
      /*<<scanf.ml:1504:4>>*/ try{
      var
       _x_ =
@@ -33661,13 +37255,19 @@
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
-     var msg = exn[2], fmt = bad_input(msg);
+     var
+      msg = exn[2],
+      fmt =  /*<<scanf.ml:1506:26>>*/ bad_input /*<<scanf.ml:1506:26>>*/ (msg);
     }
      /*<<scanf.ml:1507:4>>*/ return  /*<<scanf.ml:1507:4>>*/ caml_call1
              /*<<scanf.ml:1507:4>>*/ (f, fmt) /*<<scanf.ml:1507:10>>*/ ;
     /*<<scanf.ml:1507:10>>*/ }
    function sscanf_format(s, format, f){
-     /*<<scanf.ml:1513:20>>*/ return bscanf_format(from_string(s), format, f) /*<<scanf.ml:1513:67>>*/ ;
+     /*<<scanf.ml:1513:20>>*/ return  /*<<scanf.ml:1513:20>>*/ bscanf_format
+             /*<<scanf.ml:1513:20>>*/ ( /*<<scanf.ml:1513:34>>*/ from_string
+               /*<<scanf.ml:1513:34>>*/ (s),
+             format,
+             f) /*<<scanf.ml:1513:67>>*/ ;
     /*<<scanf.ml:1513:67>>*/ }
    function format_from_string(s, fmt){
     var
@@ -33677,8 +37277,8 @@
      _w_ =
         /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call2
          /*<<scanf.ml:1517:24>>*/ (Stdlib[28], _v_, cst$1);
-     /*<<scanf.ml:1517:53>>*/ return sscanf_format
-            ( /*<<scanf.ml:1517:16>>*/ caml_call2
+     /*<<scanf.ml:1517:53>>*/ return  /*<<scanf.ml:1517:53>>*/ sscanf_format
+             /*<<scanf.ml:1517:53>>*/ ( /*<<scanf.ml:1517:16>>*/ caml_call2
                /*<<scanf.ml:1517:16>>*/ (Stdlib[28], cst$2, _w_),
              fmt,
              function(x){
@@ -33691,8 +37291,8 @@
         /*<<scanf.ml:1521:17>>*/  /*<<scanf.ml:1521:17>>*/ caml_call2
          /*<<scanf.ml:1521:17>>*/ (Stdlib[28], s, cst$3);
      /*<<scanf.ml:1521:34>>*/ return  /*<<scanf.ml:1521:34>>*/ caml_call1
-             /*<<scanf.ml:1521:34>>*/ (sscanf
-              ( /*<<scanf.ml:1521:9>>*/ caml_call2
+             /*<<scanf.ml:1521:34>>*/ ( /*<<scanf.ml:1521:34>>*/ sscanf
+               /*<<scanf.ml:1521:34>>*/ ( /*<<scanf.ml:1521:9>>*/ caml_call2
                  /*<<scanf.ml:1521:9>>*/ (Stdlib[28], cst$4, _u_),
                _t_),
              function(x){
@@ -33864,7 +37464,10 @@
     initial_object_size =  /*<<camlinternalOO.ml:36:13>>*/ 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
-            ? fit_size((n + 1 | 0) / 2 | 0) * 2 | 0
+            ?  /*<<camlinternalOO.ml:125:2>>*/ fit_size
+               /*<<camlinternalOO.ml:125:2>>*/ ((n + 1 | 0) / 2 | 0)
+             * 2
+             | 0
             : n /*<<camlinternalOO.ml:125:24>>*/ ;
     /*<<camlinternalOO.ml:125:24>>*/ }
    function new_table(pub_labels){
@@ -33879,7 +37482,9 @@
      _ad_ = Stdlib_Sys[9],
      _ae_ =
        ( /*<<camlinternalOO.ml:132:28>>*/ runtime.caml_mul
-         /*<<camlinternalOO.ml:132:28>>*/ (fit_size(len), _ad_)
+         /*<<camlinternalOO.ml:132:28>>*/ ( /*<<camlinternalOO.ml:132:28>>*/ fit_size
+           /*<<camlinternalOO.ml:132:28>>*/ (len),
+         _ad_)
        / 8
        | 0)
        - 1
@@ -33945,7 +37550,8 @@
     _g_ = [0, cst_camlinternalOO_ml, 437, 17];
    function new_method(table){
     var index = table[2].length - 1;
-     /*<<camlinternalOO.ml:165:2>>*/ resize(table, index + 1 | 0);
+     /*<<camlinternalOO.ml:165:2>>*/  /*<<camlinternalOO.ml:165:2>>*/ resize
+      /*<<camlinternalOO.ml:165:2>>*/ (table, index + 1 | 0);
      /*<<camlinternalOO.ml:165:2>>*/ return index /*<<camlinternalOO.ml:165:2>>*/ ;
     /*<<camlinternalOO.ml:166:7>>*/ }
    function get_method_label(table, name){
@@ -33959,7 +37565,10 @@
     catch(_aa_){
      var ___ = caml_wrap_exception(_aa_);
      if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
-     var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
+     var
+      label =
+         /*<<camlinternalOO.ml:172:16>>*/  /*<<camlinternalOO.ml:172:16>>*/ new_method
+          /*<<camlinternalOO.ml:172:16>>*/ (table);
      table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
         /*<<camlinternalOO.ml:173:29>>*/ (Meths[2], name, label, table[3]);
@@ -33979,8 +37588,8 @@
      /*<<camlinternalOO.ml:181:2>>*/ method_count[1]++;
      /*<<camlinternalOO.ml:182:5>>*/ return  /*<<camlinternalOO.ml:182:5>>*/ caml_call2
               /*<<camlinternalOO.ml:182:5>>*/ (Labs[17], label, table[4])
-            ? (resize
-               (table, label + 1 | 0),
+            ? ( /*<<camlinternalOO.ml:152:2>>*/ resize
+                /*<<camlinternalOO.ml:152:2>>*/ (table, label + 1 | 0),
               caml_check_bound(table[2], label)[1 + label] = element,
               0)
             : (table[6] = [0, [0, label, element], table[6]], 0) /*<<camlinternalOO.ml:185:64>>*/ ;
@@ -34010,9 +37619,15 @@
     /*<<camlinternalOO.ml:192:54>>*/ }
    function narrow(table, vars, virt_meths, concr_meths){
     var
-     vars$0 =  /*<<camlinternalOO.ml:195:13>>*/ to_list(vars),
-     virt_meths$0 =  /*<<camlinternalOO.ml:196:19>>*/ to_list(virt_meths),
-     concr_meths$0 =  /*<<camlinternalOO.ml:197:20>>*/ to_list(concr_meths),
+     vars$0 =
+        /*<<camlinternalOO.ml:195:13>>*/  /*<<camlinternalOO.ml:195:13>>*/ to_list
+         /*<<camlinternalOO.ml:195:13>>*/ (vars),
+     virt_meths$0 =
+        /*<<camlinternalOO.ml:196:19>>*/  /*<<camlinternalOO.ml:196:19>>*/ to_list
+         /*<<camlinternalOO.ml:196:19>>*/ (virt_meths),
+     concr_meths$0 =
+        /*<<camlinternalOO.ml:197:20>>*/  /*<<camlinternalOO.ml:197:20>>*/ to_list
+         /*<<camlinternalOO.ml:197:20>>*/ (concr_meths),
      virt_meth_labs =
         /*<<camlinternalOO.ml:198:23>>*/  /*<<camlinternalOO.ml:198:23>>*/ caml_call2
          /*<<camlinternalOO.ml:198:23>>*/ (Stdlib_List[20],
@@ -34177,7 +37792,9 @@
     /*<<camlinternalOO.ml:264:41>>*/ }
    function new_methods_variables(table, meths, vals){
     var
-     meths$0 =  /*<<camlinternalOO.ml:267:14>>*/ to_array(meths),
+     meths$0 =
+        /*<<camlinternalOO.ml:267:14>>*/  /*<<camlinternalOO.ml:267:14>>*/ to_array
+         /*<<camlinternalOO.ml:267:14>>*/ (meths),
      nmeths =  /*<<camlinternalOO.ml:268:2>>*/ meths$0.length - 1,
      nvals = vals.length - 1,
      res =
@@ -34190,8 +37807,9 @@
      for(;;){
       var
        _J_ =
-          /*<<camlinternalOO.ml:271:15>>*/ get_method_label
-          (table, caml_check_bound(meths$0, i$0)[1 + i$0]);
+          /*<<camlinternalOO.ml:271:15>>*/  /*<<camlinternalOO.ml:271:15>>*/ get_method_label
+           /*<<camlinternalOO.ml:271:15>>*/ (table,
+           caml_check_bound(meths$0, i$0)[1 + i$0]);
        /*<<camlinternalOO.ml:271:4>>*/ caml_check_bound(res, i$0)[1 + i$0] = _J_;
       var _K_ =  /*<<camlinternalOO.ml:271:4>>*/ i$0 + 1 | 0;
       if(_D_ === i$0) break;
@@ -34205,8 +37823,9 @@
       var
        _H_ = i + nmeths | 0,
        _G_ =
-          /*<<camlinternalOO.ml:274:22>>*/ new_variable
-          (table, caml_check_bound(vals, i)[1 + i]);
+          /*<<camlinternalOO.ml:274:22>>*/  /*<<camlinternalOO.ml:274:22>>*/ new_variable
+           /*<<camlinternalOO.ml:274:22>>*/ (table,
+           caml_check_bound(vals, i)[1 + i]);
        /*<<camlinternalOO.ml:274:4>>*/ caml_check_bound(res, _H_)[1 + _H_] = _G_;
       var _I_ =  /*<<camlinternalOO.ml:274:4>>*/ i + 1 | 0;
       if(_F_ === i) break;
@@ -34243,14 +37862,17 @@
     /*<<camlinternalOO.ml:285:45>>*/ }
    function create_table(public_methods){
      /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
-      /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
+      /*<<camlinternalOO.ml:299:50>>*/ return  /*<<camlinternalOO.ml:299:50>>*/ new_table
+              /*<<camlinternalOO.ml:299:50>>*/ ([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
     var
      tags =
         /*<<camlinternalOO.ml:301:13>>*/  /*<<camlinternalOO.ml:301:13>>*/ caml_call2
          /*<<camlinternalOO.ml:301:13>>*/ (Stdlib_Array[14],
          public_method_label,
          public_methods),
-     table =  /*<<camlinternalOO.ml:302:14>>*/ new_table(tags);
+     table =
+        /*<<camlinternalOO.ml:302:14>>*/  /*<<camlinternalOO.ml:302:14>>*/ new_table
+         /*<<camlinternalOO.ml:302:14>>*/ (tags);
      /*<<camlinternalOO.ml:303:2>>*/  /*<<camlinternalOO.ml:303:2>>*/ caml_call2
       /*<<camlinternalOO.ml:303:2>>*/ (Stdlib_Array[13],
       function(i, met){
@@ -34273,14 +37895,14 @@
       /*<<camlinternalOO.ml:313:24>>*/ caml_call1
        /*<<camlinternalOO.ml:313:24>>*/ (Stdlib_List[10], table[8]);
     var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
-     /*<<camlinternalOO.ml:143:11>>*/ return resize
-            (table,
+     /*<<camlinternalOO.ml:143:11>>*/ return  /*<<camlinternalOO.ml:143:11>>*/ resize
+             /*<<camlinternalOO.ml:143:11>>*/ (table,
              3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0) /*<<camlinternalOO.ml:314:69>>*/ ;
     /*<<camlinternalOO.ml:314:69>>*/ }
    function inherits(cla, vals, virt_meths, concr_meths, param, top){
     var env = param[4], super$0 = param[2];
-     /*<<camlinternalOO.ml:317:2>>*/ narrow
-     (cla, vals, virt_meths, concr_meths);
+     /*<<camlinternalOO.ml:317:2>>*/  /*<<camlinternalOO.ml:317:2>>*/ narrow
+      /*<<camlinternalOO.ml:317:2>>*/ (cla, vals, virt_meths, concr_meths);
     var
      init =
        top
@@ -34288,20 +37910,27 @@
            /*<<camlinternalOO.ml:319:16>>*/ (super$0, cla, env)
         :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1
            /*<<camlinternalOO.ml:319:44>>*/ (super$0, cla);
-     /*<<camlinternalOO.ml:320:2>>*/ widen(cla);
+     /*<<camlinternalOO.ml:320:2>>*/  /*<<camlinternalOO.ml:320:2>>*/ widen
+      /*<<camlinternalOO.ml:320:2>>*/ (cla);
     var
-     _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
+     _s_ =
+        /*<<camlinternalOO.ml:326:7>>*/  /*<<camlinternalOO.ml:326:7>>*/ to_array
+         /*<<camlinternalOO.ml:326:7>>*/ (concr_meths),
      _t_ =
         /*<<camlinternalOO.ml:324:5>>*/ [0,
          /*<<camlinternalOO.ml:324:5>>*/ caml_call2
           /*<<camlinternalOO.ml:324:5>>*/ (Stdlib_Array[14],
           function(nm){
-            /*<<camlinternalOO.ml:325:18>>*/ return get_method
-                   (cla, get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
+            /*<<camlinternalOO.ml:325:18>>*/ return  /*<<camlinternalOO.ml:325:43>>*/ get_method
+                    /*<<camlinternalOO.ml:325:43>>*/ (cla,
+                     /*<<camlinternalOO.ml:325:43>>*/ get_method_label
+                      /*<<camlinternalOO.ml:325:43>>*/ (cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
            /*<<camlinternalOO.ml:325:79>>*/ },
           _s_),
         0],
-     _u_ =  /*<<camlinternalOO.ml:323:45>>*/ to_array(vals),
+     _u_ =
+        /*<<camlinternalOO.ml:323:45>>*/  /*<<camlinternalOO.ml:323:45>>*/ to_array
+         /*<<camlinternalOO.ml:323:45>>*/ (vals),
      _v_ =
         /*<<camlinternalOO.ml:322:4>>*/ [0,
         [0, init],
@@ -34316,11 +37945,14 @@
     /*<<camlinternalOO.ml:326:31>>*/ }
    function make_class(pub_meths, class_init){
     var
-     table =  /*<<camlinternalOO.ml:329:14>>*/ create_table(pub_meths),
+     table =
+        /*<<camlinternalOO.ml:329:14>>*/  /*<<camlinternalOO.ml:329:14>>*/ create_table
+         /*<<camlinternalOO.ml:329:14>>*/ (pub_meths),
      env_init =
         /*<<camlinternalOO.ml:330:17>>*/  /*<<camlinternalOO.ml:330:17>>*/ caml_call1
          /*<<camlinternalOO.ml:330:17>>*/ (class_init, table);
-     /*<<camlinternalOO.ml:331:2>>*/ init_class(table);
+     /*<<camlinternalOO.ml:331:2>>*/  /*<<camlinternalOO.ml:331:2>>*/ init_class
+      /*<<camlinternalOO.ml:331:2>>*/ (table);
      /*<<camlinternalOO.ml:332:2>>*/ return [0,
              /*<<camlinternalOO.ml:332:3>>*/ caml_call1
               /*<<camlinternalOO.ml:332:3>>*/ (env_init, 0),
@@ -34330,11 +37962,14 @@
     /*<<camlinternalOO.ml:332:59>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
     var
-     table =  /*<<camlinternalOO.ml:338:14>>*/ create_table(pub_meths),
+     table =
+        /*<<camlinternalOO.ml:338:14>>*/  /*<<camlinternalOO.ml:338:14>>*/ create_table
+         /*<<camlinternalOO.ml:338:14>>*/ (pub_meths),
      env_init =
         /*<<camlinternalOO.ml:339:17>>*/  /*<<camlinternalOO.ml:339:17>>*/ caml_call1
          /*<<camlinternalOO.ml:339:17>>*/ (class_init, table);
-     /*<<camlinternalOO.ml:340:2>>*/ init_class(table);
+     /*<<camlinternalOO.ml:340:2>>*/  /*<<camlinternalOO.ml:340:2>>*/ init_class
+      /*<<camlinternalOO.ml:340:2>>*/ (table);
     init_table[2] = class_init;
     init_table[1] = env_init;
     return 0;
@@ -34379,20 +38014,29 @@
     /*<<camlinternalOO.ml:369:31>>*/ }
    function run_initializers(obj, table){
     var inits = table[8], _r_ = 0 !== inits ? 1 : 0;
-    return _r_ ? iter_f(obj, inits) : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
+    return _r_
+            ?  /*<<camlinternalOO.ml:374:4>>*/ iter_f
+               /*<<camlinternalOO.ml:374:4>>*/ (obj, inits)
+            : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
     /*<<camlinternalOO.ml:374:20>>*/ }
    function run_initializers_opt(obj_0, obj, table){
      /*<<camlinternalOO.ml:377:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:377:35>>*/ return obj /*<<camlinternalOO.ml:377:35>>*/ ;
     var inits = table[8];
-    if(0 !== inits)  /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
+    if(0 !== inits)
+      /*<<camlinternalOO.ml:379:24>>*/  /*<<camlinternalOO.ml:379:24>>*/ iter_f
+       /*<<camlinternalOO.ml:379:24>>*/ (obj, inits);
      /*<<camlinternalOO.ml:379:24>>*/ return obj /*<<camlinternalOO.ml:379:24>>*/ ;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
      /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:384:35>>*/ return obj_0 /*<<camlinternalOO.ml:384:35>>*/ ;
-    var obj =  /*<<camlinternalOO.ml:385:14>>*/ create_object(table);
-     /*<<camlinternalOO.ml:386:4>>*/ run_initializers(obj, table);
+    var
+     obj =
+        /*<<camlinternalOO.ml:385:14>>*/  /*<<camlinternalOO.ml:385:14>>*/ create_object
+         /*<<camlinternalOO.ml:385:14>>*/ (table);
+     /*<<camlinternalOO.ml:386:4>>*/  /*<<camlinternalOO.ml:386:4>>*/ run_initializers
+      /*<<camlinternalOO.ml:386:4>>*/ (obj, table);
      /*<<camlinternalOO.ml:386:4>>*/ return obj /*<<camlinternalOO.ml:386:4>>*/ ;
     /*<<camlinternalOO.ml:388:5>>*/ }
    function get_data(param){
@@ -34424,10 +38068,15 @@
      /*<<camlinternalOO.ml:428:2>>*/ return res /*<<camlinternalOO.ml:428:2>>*/ ;
     /*<<camlinternalOO.ml:429:5>>*/ }
    function lookup_tables(root, keys){
-    var root_data =  /*<<camlinternalOO.ml:451:8>>*/ get_data(root);
+    var
+     root_data =
+        /*<<camlinternalOO.ml:451:8>>*/  /*<<camlinternalOO.ml:451:8>>*/ get_data
+         /*<<camlinternalOO.ml:451:8>>*/ (root);
     if(! root_data)
-      /*<<camlinternalOO.ml:455:4>>*/ return build_path
-             (keys.length - 2 | 0, keys, root) /*<<camlinternalOO.ml:455:48>>*/ ;
+      /*<<camlinternalOO.ml:455:4>>*/ return  /*<<camlinternalOO.ml:455:4>>*/ build_path
+              /*<<camlinternalOO.ml:455:4>>*/ (keys.length - 2 | 0,
+              keys,
+              root) /*<<camlinternalOO.ml:455:48>>*/ ;
     var i$1 = keys.length - 2 | 0, i = i$1, tables$0 = root_data;
      /*<<camlinternalOO.ml:432:2>>*/ for(;;){
      if(0 > i)
@@ -34450,12 +38099,15 @@
          /*<<camlinternalOO.ml:410:13>>*/ throw  /*<<camlinternalOO.ml:410:13>>*/ caml_maybe_attach_backtrace
                 /*<<camlinternalOO.ml:410:13>>*/ ([0, Assert_failure, _c_], 1);
        tables$1[3] = next;
-        /*<<camlinternalOO.ml:445:10>>*/ return build_path
-               (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
+        /*<<camlinternalOO.ml:445:10>>*/ return  /*<<camlinternalOO.ml:445:10>>*/ build_path
+                /*<<camlinternalOO.ml:445:10>>*/ (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
       }
       tables$1 = tables;
      }
-     var tables_data =  /*<<camlinternalOO.ml:436:12>>*/ get_data(tables$1);
+     var
+      tables_data =
+         /*<<camlinternalOO.ml:436:12>>*/  /*<<camlinternalOO.ml:436:12>>*/ get_data
+          /*<<camlinternalOO.ml:436:12>>*/ (tables$1);
      if(! tables_data)
        /*<<camlinternalOO.ml:437:17>>*/ throw  /*<<camlinternalOO.ml:437:17>>*/ caml_maybe_attach_backtrace
               /*<<camlinternalOO.ml:437:17>>*/ ([0, Assert_failure, _g_], 1);
@@ -34465,7 +38117,10 @@
     }
     /*<<camlinternalOO.ml:455:48>>*/ }
    function new_cache(table){
-    var n =  /*<<camlinternalOO.ml:507:10>>*/ new_method(table);
+    var
+     n =
+        /*<<camlinternalOO.ml:507:10>>*/  /*<<camlinternalOO.ml:507:10>>*/ new_method
+         /*<<camlinternalOO.ml:507:10>>*/ (table);
     a:
     {
      if(0 !== (n % 2 | 0)){
@@ -34473,7 +38128,10 @@
       if
        ((2 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _n_) | 0)
         >= n){
-       var n$0 = new_method(table);
+       var
+        n$0 =
+           /*<<camlinternalOO.ml:510:16>>*/ new_method
+            /*<<camlinternalOO.ml:510:16>>*/ (table);
        break a;
       }
      }
@@ -34502,11 +38160,16 @@
                   (methods, _m_)
                  [1 + _m_] /*<<camlinternalOO.ml:543:34>>*/ ;
          /*<<camlinternalOO.ml:543:42>>*/ },
-      clo =  /*<<camlinternalOO.ml:544:8>>*/ next(0);
+      clo =
+         /*<<camlinternalOO.ml:544:8>>*/  /*<<camlinternalOO.ml:544:8>>*/ next
+          /*<<camlinternalOO.ml:544:8>>*/ (0);
      if(typeof clo === "number")
       switch(clo){
         case 0:
-         var x =  /*<<camlinternalOO.ml:545:28>>*/ next(0);
+         var
+          x =
+             /*<<camlinternalOO.ml:545:28>>*/  /*<<camlinternalOO.ml:545:28>>*/ next
+              /*<<camlinternalOO.ml:545:28>>*/ (0);
          let x$20 = x;
          var
           clo$0 =
@@ -34515,7 +38178,10 @@
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
-         var n =  /*<<camlinternalOO.ml:546:24>>*/ next(0);
+         var
+          n =
+             /*<<camlinternalOO.ml:546:24>>*/  /*<<camlinternalOO.ml:546:24>>*/ next
+              /*<<camlinternalOO.ml:546:24>>*/ (0);
          let n$38 = n;
          var
           clo$0 =
@@ -34525,8 +38191,12 @@
          break;
         case 2:
          var
-          e =  /*<<camlinternalOO.ml:547:24>>*/ next(0),
-          n$0 =  /*<<camlinternalOO.ml:547:42>>*/ next(0);
+          e =
+             /*<<camlinternalOO.ml:547:24>>*/  /*<<camlinternalOO.ml:547:24>>*/ next
+              /*<<camlinternalOO.ml:547:24>>*/ (0),
+          n$0 =
+             /*<<camlinternalOO.ml:547:42>>*/  /*<<camlinternalOO.ml:547:42>>*/ next
+              /*<<camlinternalOO.ml:547:42>>*/ (0);
          let e$10 = e, n$37 = n$0;
          var
           clo$0 =
@@ -34535,7 +38205,10 @@
              /*<<camlinternalOO.ml:463:65>>*/ };
          break;
         case 3:
-         var n$1 =  /*<<camlinternalOO.ml:548:24>>*/ next(0);
+         var
+          n$1 =
+             /*<<camlinternalOO.ml:548:24>>*/  /*<<camlinternalOO.ml:548:24>>*/ next
+              /*<<camlinternalOO.ml:548:24>>*/ (0);
          let n$36 = n$1;
          var
           clo$0 =
@@ -34545,7 +38218,10 @@
              /*<<camlinternalOO.ml:464:48>>*/ };
          break;
         case 4:
-         var n$2 =  /*<<camlinternalOO.ml:549:24>>*/ next(0);
+         var
+          n$2 =
+             /*<<camlinternalOO.ml:549:24>>*/  /*<<camlinternalOO.ml:549:24>>*/ next
+              /*<<camlinternalOO.ml:549:24>>*/ (0);
          let n$35 = n$2;
          var
           clo$0 =
@@ -34556,8 +38232,12 @@
          break;
         case 5:
          var
-          f =  /*<<camlinternalOO.ml:550:24>>*/ next(0),
-          x$0 =  /*<<camlinternalOO.ml:550:42>>*/ next(0);
+          f =
+             /*<<camlinternalOO.ml:550:24>>*/  /*<<camlinternalOO.ml:550:24>>*/ next
+              /*<<camlinternalOO.ml:550:24>>*/ (0),
+          x$0 =
+             /*<<camlinternalOO.ml:550:42>>*/  /*<<camlinternalOO.ml:550:42>>*/ next
+              /*<<camlinternalOO.ml:550:42>>*/ (0);
          let f$20 = f, x$19 = x$0;
          var
           clo$0 =
@@ -34568,8 +38248,12 @@
          break;
         case 6:
          var
-          f$0 =  /*<<camlinternalOO.ml:551:24>>*/ next(0),
-          n$3 =  /*<<camlinternalOO.ml:551:42>>*/ next(0);
+          f$0 =
+             /*<<camlinternalOO.ml:551:24>>*/  /*<<camlinternalOO.ml:551:24>>*/ next
+              /*<<camlinternalOO.ml:551:24>>*/ (0),
+          n$3 =
+             /*<<camlinternalOO.ml:551:42>>*/  /*<<camlinternalOO.ml:551:42>>*/ next
+              /*<<camlinternalOO.ml:551:42>>*/ (0);
          let f$19 = f$0, n$34 = n$3;
          var
           clo$0 =
@@ -34580,9 +38264,15 @@
          break;
         case 7:
          var
-          f$1 =  /*<<camlinternalOO.ml:553:14>>*/ next(0),
-          e$0 =  /*<<camlinternalOO.ml:553:33>>*/ next(0),
-          n$4 =  /*<<camlinternalOO.ml:553:51>>*/ next(0);
+          f$1 =
+             /*<<camlinternalOO.ml:553:14>>*/  /*<<camlinternalOO.ml:553:14>>*/ next
+              /*<<camlinternalOO.ml:553:14>>*/ (0),
+          e$0 =
+             /*<<camlinternalOO.ml:553:33>>*/  /*<<camlinternalOO.ml:553:33>>*/ next
+              /*<<camlinternalOO.ml:553:33>>*/ (0),
+          n$4 =
+             /*<<camlinternalOO.ml:553:51>>*/  /*<<camlinternalOO.ml:553:51>>*/ next
+              /*<<camlinternalOO.ml:553:51>>*/ (0);
          let f$18 = f$1, e$9 = e$0, n$33 = n$4;
          var
           clo$0 =
@@ -34593,8 +38283,12 @@
          break;
         case 8:
          var
-          f$2 =  /*<<camlinternalOO.ml:555:24>>*/ next(0),
-          n$5 =  /*<<camlinternalOO.ml:555:42>>*/ next(0);
+          f$2 =
+             /*<<camlinternalOO.ml:555:24>>*/  /*<<camlinternalOO.ml:555:24>>*/ next
+              /*<<camlinternalOO.ml:555:24>>*/ (0),
+          n$5 =
+             /*<<camlinternalOO.ml:555:42>>*/  /*<<camlinternalOO.ml:555:42>>*/ next
+              /*<<camlinternalOO.ml:555:42>>*/ (0);
          let f$17 = f$2, n$32 = n$5;
          var
           clo$0 =
@@ -34607,9 +38301,15 @@
          break;
         case 9:
          var
-          f$3 =  /*<<camlinternalOO.ml:557:14>>*/ next(0),
-          x$1 =  /*<<camlinternalOO.ml:557:32>>*/ next(0),
-          y =  /*<<camlinternalOO.ml:557:50>>*/ next(0);
+          f$3 =
+             /*<<camlinternalOO.ml:557:14>>*/  /*<<camlinternalOO.ml:557:14>>*/ next
+              /*<<camlinternalOO.ml:557:14>>*/ (0),
+          x$1 =
+             /*<<camlinternalOO.ml:557:32>>*/  /*<<camlinternalOO.ml:557:32>>*/ next
+              /*<<camlinternalOO.ml:557:32>>*/ (0),
+          y =
+             /*<<camlinternalOO.ml:557:50>>*/  /*<<camlinternalOO.ml:557:50>>*/ next
+              /*<<camlinternalOO.ml:557:50>>*/ (0);
          let f$16 = f$3, x$18 = x$1, y$0 = y;
          var
           clo$0 =
@@ -34620,9 +38320,15 @@
          break;
         case 10:
          var
-          f$4 =  /*<<camlinternalOO.ml:560:14>>*/ next(0),
-          x$2 =  /*<<camlinternalOO.ml:560:32>>*/ next(0),
-          n$6 =  /*<<camlinternalOO.ml:560:50>>*/ next(0);
+          f$4 =
+             /*<<camlinternalOO.ml:560:14>>*/  /*<<camlinternalOO.ml:560:14>>*/ next
+              /*<<camlinternalOO.ml:560:14>>*/ (0),
+          x$2 =
+             /*<<camlinternalOO.ml:560:32>>*/  /*<<camlinternalOO.ml:560:32>>*/ next
+              /*<<camlinternalOO.ml:560:32>>*/ (0),
+          n$6 =
+             /*<<camlinternalOO.ml:560:50>>*/  /*<<camlinternalOO.ml:560:50>>*/ next
+              /*<<camlinternalOO.ml:560:50>>*/ (0);
          let f$15 = f$4, x$17 = x$2, n$31 = n$6;
          var
           clo$0 =
@@ -34633,10 +38339,18 @@
          break;
         case 11:
          var
-          f$5 =  /*<<camlinternalOO.ml:563:14>>*/ next(0),
-          x$3 =  /*<<camlinternalOO.ml:563:32>>*/ next(0),
-          e$1 =  /*<<camlinternalOO.ml:563:50>>*/ next(0),
-          n$7 =  /*<<camlinternalOO.ml:563:69>>*/ next(0);
+          f$5 =
+             /*<<camlinternalOO.ml:563:14>>*/  /*<<camlinternalOO.ml:563:14>>*/ next
+              /*<<camlinternalOO.ml:563:14>>*/ (0),
+          x$3 =
+             /*<<camlinternalOO.ml:563:32>>*/  /*<<camlinternalOO.ml:563:32>>*/ next
+              /*<<camlinternalOO.ml:563:32>>*/ (0),
+          e$1 =
+             /*<<camlinternalOO.ml:563:50>>*/  /*<<camlinternalOO.ml:563:50>>*/ next
+              /*<<camlinternalOO.ml:563:50>>*/ (0),
+          n$7 =
+             /*<<camlinternalOO.ml:563:69>>*/  /*<<camlinternalOO.ml:563:69>>*/ next
+              /*<<camlinternalOO.ml:563:69>>*/ (0);
          let f$14 = f$5, x$16 = x$3, e$8 = e$1, n$30 = n$7;
          var
           clo$0 =
@@ -34647,9 +38361,15 @@
          break;
         case 12:
          var
-          f$6 =  /*<<camlinternalOO.ml:566:14>>*/ next(0),
-          x$4 =  /*<<camlinternalOO.ml:566:32>>*/ next(0),
-          n$8 =  /*<<camlinternalOO.ml:566:50>>*/ next(0);
+          f$6 =
+             /*<<camlinternalOO.ml:566:14>>*/  /*<<camlinternalOO.ml:566:14>>*/ next
+              /*<<camlinternalOO.ml:566:14>>*/ (0),
+          x$4 =
+             /*<<camlinternalOO.ml:566:32>>*/  /*<<camlinternalOO.ml:566:32>>*/ next
+              /*<<camlinternalOO.ml:566:32>>*/ (0),
+          n$8 =
+             /*<<camlinternalOO.ml:566:50>>*/  /*<<camlinternalOO.ml:566:50>>*/ next
+              /*<<camlinternalOO.ml:566:50>>*/ (0);
          let f$13 = f$6, x$15 = x$4, n$29 = n$8;
          var
           clo$0 =
@@ -34663,9 +38383,15 @@
          break;
         case 13:
          var
-          f$7 =  /*<<camlinternalOO.ml:569:14>>*/ next(0),
-          n$9 =  /*<<camlinternalOO.ml:569:32>>*/ next(0),
-          x$5 =  /*<<camlinternalOO.ml:569:50>>*/ next(0);
+          f$7 =
+             /*<<camlinternalOO.ml:569:14>>*/  /*<<camlinternalOO.ml:569:14>>*/ next
+              /*<<camlinternalOO.ml:569:14>>*/ (0),
+          n$9 =
+             /*<<camlinternalOO.ml:569:32>>*/  /*<<camlinternalOO.ml:569:32>>*/ next
+              /*<<camlinternalOO.ml:569:32>>*/ (0),
+          x$5 =
+             /*<<camlinternalOO.ml:569:50>>*/  /*<<camlinternalOO.ml:569:50>>*/ next
+              /*<<camlinternalOO.ml:569:50>>*/ (0);
          let f$12 = f$7, n$28 = n$9, x$14 = x$5;
          var
           clo$0 =
@@ -34678,10 +38404,18 @@
          break;
         case 14:
          var
-          f$8 =  /*<<camlinternalOO.ml:572:14>>*/ next(0),
-          e$2 =  /*<<camlinternalOO.ml:572:32>>*/ next(0),
-          n$10 =  /*<<camlinternalOO.ml:572:51>>*/ next(0),
-          x$6 =  /*<<camlinternalOO.ml:572:69>>*/ next(0);
+          f$8 =
+             /*<<camlinternalOO.ml:572:14>>*/  /*<<camlinternalOO.ml:572:14>>*/ next
+              /*<<camlinternalOO.ml:572:14>>*/ (0),
+          e$2 =
+             /*<<camlinternalOO.ml:572:32>>*/  /*<<camlinternalOO.ml:572:32>>*/ next
+              /*<<camlinternalOO.ml:572:32>>*/ (0),
+          n$10 =
+             /*<<camlinternalOO.ml:572:51>>*/  /*<<camlinternalOO.ml:572:51>>*/ next
+              /*<<camlinternalOO.ml:572:51>>*/ (0),
+          x$6 =
+             /*<<camlinternalOO.ml:572:69>>*/  /*<<camlinternalOO.ml:572:69>>*/ next
+              /*<<camlinternalOO.ml:572:69>>*/ (0);
          let f$11 = f$8, e$7 = e$2, n$27 = n$10, x$13 = x$6;
          var
           clo$0 =
@@ -34694,9 +38428,15 @@
          break;
         case 15:
          var
-          f$9 =  /*<<camlinternalOO.ml:575:14>>*/ next(0),
-          n$11 =  /*<<camlinternalOO.ml:575:32>>*/ next(0),
-          x$7 =  /*<<camlinternalOO.ml:575:50>>*/ next(0);
+          f$9 =
+             /*<<camlinternalOO.ml:575:14>>*/  /*<<camlinternalOO.ml:575:14>>*/ next
+              /*<<camlinternalOO.ml:575:14>>*/ (0),
+          n$11 =
+             /*<<camlinternalOO.ml:575:32>>*/  /*<<camlinternalOO.ml:575:32>>*/ next
+              /*<<camlinternalOO.ml:575:32>>*/ (0),
+          x$7 =
+             /*<<camlinternalOO.ml:575:50>>*/  /*<<camlinternalOO.ml:575:50>>*/ next
+              /*<<camlinternalOO.ml:575:50>>*/ (0);
          let f$10 = f$9, n$26 = n$11, x$12 = x$7;
          var
           clo$0 =
@@ -34710,8 +38450,12 @@
          break;
         case 16:
          var
-          n$12 =  /*<<camlinternalOO.ml:578:14>>*/ next(0),
-          x$8 =  /*<<camlinternalOO.ml:578:32>>*/ next(0);
+          n$12 =
+             /*<<camlinternalOO.ml:578:14>>*/  /*<<camlinternalOO.ml:578:14>>*/ next
+              /*<<camlinternalOO.ml:578:14>>*/ (0),
+          x$8 =
+             /*<<camlinternalOO.ml:578:32>>*/  /*<<camlinternalOO.ml:578:32>>*/ next
+              /*<<camlinternalOO.ml:578:32>>*/ (0);
          let n$25 = n$12, x$11 = x$8;
          var
           clo$0 =
@@ -34724,8 +38468,12 @@
          break;
         case 17:
          var
-          n$13 =  /*<<camlinternalOO.ml:580:14>>*/ next(0),
-          m =  /*<<camlinternalOO.ml:580:32>>*/ next(0);
+          n$13 =
+             /*<<camlinternalOO.ml:580:14>>*/  /*<<camlinternalOO.ml:580:14>>*/ next
+              /*<<camlinternalOO.ml:580:14>>*/ (0),
+          m =
+             /*<<camlinternalOO.ml:580:32>>*/  /*<<camlinternalOO.ml:580:32>>*/ next
+              /*<<camlinternalOO.ml:580:32>>*/ (0);
          let n$24 = n$13, m$12 = m;
          var
           clo$0 =
@@ -34736,9 +38484,15 @@
          break;
         case 18:
          var
-          n$14 =  /*<<camlinternalOO.ml:582:14>>*/ next(0),
-          e$3 =  /*<<camlinternalOO.ml:582:32>>*/ next(0),
-          m$0 =  /*<<camlinternalOO.ml:582:50>>*/ next(0);
+          n$14 =
+             /*<<camlinternalOO.ml:582:14>>*/  /*<<camlinternalOO.ml:582:14>>*/ next
+              /*<<camlinternalOO.ml:582:14>>*/ (0),
+          e$3 =
+             /*<<camlinternalOO.ml:582:32>>*/  /*<<camlinternalOO.ml:582:32>>*/ next
+              /*<<camlinternalOO.ml:582:32>>*/ (0),
+          m$0 =
+             /*<<camlinternalOO.ml:582:50>>*/  /*<<camlinternalOO.ml:582:50>>*/ next
+              /*<<camlinternalOO.ml:582:50>>*/ (0);
          let n$23 = n$14, e$6 = e$3, m$11 = m$0;
          var
           clo$0 =
@@ -34749,8 +38503,12 @@
          break;
         case 19:
          var
-          n$15 =  /*<<camlinternalOO.ml:585:14>>*/ next(0),
-          m$1 =  /*<<camlinternalOO.ml:585:32>>*/ next(0);
+          n$15 =
+             /*<<camlinternalOO.ml:585:14>>*/  /*<<camlinternalOO.ml:585:14>>*/ next
+              /*<<camlinternalOO.ml:585:14>>*/ (0),
+          m$1 =
+             /*<<camlinternalOO.ml:585:32>>*/  /*<<camlinternalOO.ml:585:32>>*/ next
+              /*<<camlinternalOO.ml:585:32>>*/ (0);
          let n$22 = n$15, m$10 = m$1;
          var
           clo$0 =
@@ -34767,9 +38525,14 @@
          break;
         case 20:
          var
-          m$2 =  /*<<camlinternalOO.ml:587:14>>*/ next(0),
-          x$9 =  /*<<camlinternalOO.ml:587:32>>*/ next(0);
-          /*<<camlinternalOO.ml:587:57>>*/ new_cache(table);
+          m$2 =
+             /*<<camlinternalOO.ml:587:14>>*/  /*<<camlinternalOO.ml:587:14>>*/ next
+              /*<<camlinternalOO.ml:587:14>>*/ (0),
+          x$9 =
+             /*<<camlinternalOO.ml:587:32>>*/  /*<<camlinternalOO.ml:587:32>>*/ next
+              /*<<camlinternalOO.ml:587:32>>*/ (0);
+          /*<<camlinternalOO.ml:587:57>>*/  /*<<camlinternalOO.ml:587:57>>*/ new_cache
+           /*<<camlinternalOO.ml:587:57>>*/ (table);
          let m$9 = m$2, x$10 = x$9;
          var
           clo$0 =
@@ -34782,9 +38545,14 @@
          break;
         case 21:
          var
-          m$3 =  /*<<camlinternalOO.ml:589:14>>*/ next(0),
-          n$16 =  /*<<camlinternalOO.ml:589:32>>*/ next(0);
-          /*<<camlinternalOO.ml:589:56>>*/ new_cache(table);
+          m$3 =
+             /*<<camlinternalOO.ml:589:14>>*/  /*<<camlinternalOO.ml:589:14>>*/ next
+              /*<<camlinternalOO.ml:589:14>>*/ (0),
+          n$16 =
+             /*<<camlinternalOO.ml:589:32>>*/  /*<<camlinternalOO.ml:589:32>>*/ next
+              /*<<camlinternalOO.ml:589:32>>*/ (0);
+          /*<<camlinternalOO.ml:589:56>>*/  /*<<camlinternalOO.ml:589:56>>*/ new_cache
+           /*<<camlinternalOO.ml:589:56>>*/ (table);
          let m$8 = m$3, n$21 = n$16;
          var
           clo$0 =
@@ -34795,10 +38563,17 @@
          break;
         case 22:
          var
-          m$4 =  /*<<camlinternalOO.ml:591:14>>*/ next(0),
-          e$4 =  /*<<camlinternalOO.ml:591:32>>*/ next(0),
-          n$17 =  /*<<camlinternalOO.ml:591:50>>*/ next(0);
-          /*<<camlinternalOO.ml:592:21>>*/ new_cache(table);
+          m$4 =
+             /*<<camlinternalOO.ml:591:14>>*/  /*<<camlinternalOO.ml:591:14>>*/ next
+              /*<<camlinternalOO.ml:591:14>>*/ (0),
+          e$4 =
+             /*<<camlinternalOO.ml:591:32>>*/  /*<<camlinternalOO.ml:591:32>>*/ next
+              /*<<camlinternalOO.ml:591:32>>*/ (0),
+          n$17 =
+             /*<<camlinternalOO.ml:591:50>>*/  /*<<camlinternalOO.ml:591:50>>*/ next
+              /*<<camlinternalOO.ml:591:50>>*/ (0);
+          /*<<camlinternalOO.ml:592:21>>*/  /*<<camlinternalOO.ml:592:21>>*/ new_cache
+           /*<<camlinternalOO.ml:592:21>>*/ (table);
          let m$7 = m$4, e$5 = e$4, n$20 = n$17;
          var
           clo$0 =
@@ -34809,9 +38584,14 @@
          break;
         default:
          var
-          m$5 =  /*<<camlinternalOO.ml:594:14>>*/ next(0),
-          n$18 =  /*<<camlinternalOO.ml:594:32>>*/ next(0);
-          /*<<camlinternalOO.ml:594:57>>*/ new_cache(table);
+          m$5 =
+             /*<<camlinternalOO.ml:594:14>>*/  /*<<camlinternalOO.ml:594:14>>*/ next
+              /*<<camlinternalOO.ml:594:14>>*/ (0),
+          n$18 =
+             /*<<camlinternalOO.ml:594:32>>*/  /*<<camlinternalOO.ml:594:32>>*/ next
+              /*<<camlinternalOO.ml:594:32>>*/ (0);
+          /*<<camlinternalOO.ml:594:57>>*/  /*<<camlinternalOO.ml:594:57>>*/ new_cache
+           /*<<camlinternalOO.ml:594:57>>*/ (table);
          let m$6 = m$5, n$19 = n$18;
          var
           clo$0 =
@@ -34828,7 +38608,8 @@
       }
      else
       var clo$0 = clo;
-      /*<<camlinternalOO.ml:601:4>>*/ set_method(table, label, clo$0);
+      /*<<camlinternalOO.ml:601:4>>*/  /*<<camlinternalOO.ml:601:4>>*/ set_method
+       /*<<camlinternalOO.ml:601:4>>*/ (table, label, clo$0);
      i[1]++;
     }
     /*<<camlinternalOO.ml:603:6>>*/ }
@@ -34980,7 +38761,11 @@
                /*<<camlinternalMod.ml:44:16>>*/ (CamlinternalOO[21], loc);
        }
       else if(0 === shape[0])
-       var comps = shape[1], init = init_mod_block(loc, comps);
+       var
+        comps = shape[1],
+        init =
+           /*<<camlinternalMod.ml:46:16>>*/ init_mod_block
+            /*<<camlinternalMod.ml:46:16>>*/ (loc, comps);
       else
        var v = shape[1], init = v;
        /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
@@ -34995,7 +38780,8 @@
      /*<<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:58>>*/ ;
+      /*<<camlinternalMod.ml:62:5>>*/ return  /*<<camlinternalMod.ml:62:5>>*/ init_mod_block
+              /*<<camlinternalMod.ml:62:5>>*/ (loc, comps) /*<<camlinternalMod.ml:63:58>>*/ ;
     }
      /*<<camlinternalMod.ml:63:9>>*/ return  /*<<camlinternalMod.ml:63:9>>*/ caml_call1
              /*<<camlinternalMod.ml:63:9>>*/ (Stdlib[2],
@@ -35044,8 +38830,8 @@
        }
        else if(0 === shape[0]){
         var comps = shape[1];
-         /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
-         (comps, modu[1 + i], n$0);
+         /*<<camlinternalMod.ml:78:5>>*/  /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
+          /*<<camlinternalMod.ml:78:5>>*/ (comps, modu[1 + i], n$0);
        }
        var _f_ =  /*<<camlinternalMod.ml:83:4>>*/ i + 1 | 0;
        if(_e_ === i) break;
@@ -35061,7 +38847,8 @@
      /*<<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:60>>*/ ;
+      /*<<camlinternalMod.ml:89:5>>*/ return  /*<<camlinternalMod.ml:89:5>>*/ update_mod_block
+              /*<<camlinternalMod.ml:89:5>>*/ (comps, o, n) /*<<camlinternalMod.ml:90:60>>*/ ;
     }
      /*<<camlinternalMod.ml:90:9>>*/ return  /*<<camlinternalMod.ml:90:9>>*/ caml_call1
              /*<<camlinternalMod.ml:90:9>>*/ (Stdlib[2],
@@ -35183,7 +38970,8 @@
     function reset(h){
      var len = h[2].length - 1;
      return len === h[4]
-             ? clear(h)
+             ?  /*<<ephemeron.ml:122:8>>*/ clear
+                /*<<ephemeron.ml:122:8>>*/ (h)
              : (h
                 [1]
                = 0,
@@ -35215,7 +39003,11 @@
         ( /*<<ephemeron.ml:137:36>>*/ caml_call1
            /*<<ephemeron.ml:137:36>>*/ (H[6], c)){
         var rest$0 = param$0[3], c$0 = param$0[2];
-         /*<<ephemeron.ml:141:12>>*/ return [0, hkey, c$0, do_bucket(rest$0)] /*<<ephemeron.ml:141:12>>*/ ;
+         /*<<ephemeron.ml:141:12>>*/ return [0,
+                hkey,
+                c$0,
+                 /*<<ephemeron.ml:141:26>>*/ do_bucket
+                  /*<<ephemeron.ml:141:26>>*/ (rest$0)] /*<<ephemeron.ml:141:12>>*/ ;
        }
        h[1] = h[1] - 1 | 0;
        param$0 = rest;
@@ -35226,7 +39018,8 @@
       var i = _ai_;
       for(;;){
         /*<<ephemeron.ml:145:8>>*/ d[1 + i] =
-        do_bucket(caml_check_bound(d, i)[1 + i]);
+         /*<<ephemeron.ml:145:17>>*/ do_bucket
+          /*<<ephemeron.ml:145:17>>*/ (caml_check_bound(d, i)[1 + i]);
        var _ak_ =  /*<<ephemeron.ml:145:8>>*/ i + 1 | 0;
        if(_aj_ === i) break;
        i = _ak_;
@@ -35239,7 +39032,8 @@
       odata = h[2],
       osize =  /*<<ephemeron.ml:170:6>>*/ odata.length - 1,
       nsize = osize * 2 | 0;
-      /*<<ephemeron.ml:172:6>>*/ clean(h);
+      /*<<ephemeron.ml:172:6>>*/  /*<<ephemeron.ml:172:6>>*/ clean
+       /*<<ephemeron.ml:172:6>>*/ (h);
      var
       _ac_ = nsize < Stdlib_Sys[13] ? 1 : 0,
       _ad_ = _ac_ ? (osize >>> 1 | 0) <= h[1] ? 1 : 0 : _ac_;
@@ -35255,8 +39049,12 @@
            /*<<ephemeron.ml:176:32>>*/ if(! param)
             /*<<ephemeron.ml:177:21>>*/ return /*<<ephemeron.ml:177:21>>*/ ;
           var rest = param[3], data = param[2], hkey = param[1];
-           /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
-          var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
+           /*<<ephemeron.ml:179:14>>*/  /*<<ephemeron.ml:179:14>>*/ insert_bucket
+            /*<<ephemeron.ml:179:14>>*/ (rest);
+          var
+           nidx =
+              /*<<ephemeron.ml:180:25>>*/  /*<<ephemeron.ml:180:25>>*/ key_index
+               /*<<ephemeron.ml:180:25>>*/ (h, hkey);
            /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
            [0, hkey, data, caml_check_bound(ndata, nidx)[1 + nidx]];
           /*<<ephemeron.ml:181:60>>*/ },
@@ -35265,8 +39063,8 @@
       if(_af_ >= 0){
        var i = _ae_;
        for(;;){
-         /*<<ephemeron.ml:183:10>>*/ insert_bucket
-         (caml_check_bound(odata, i)[1 + i]);
+         /*<<ephemeron.ml:183:10>>*/  /*<<ephemeron.ml:183:10>>*/ insert_bucket
+          /*<<ephemeron.ml:183:10>>*/ (caml_check_bound(odata, i)[1 + i]);
         var _ah_ =  /*<<ephemeron.ml:183:10>>*/ i + 1 | 0;
         if(_af_ === i) break;
         i = _ah_;
@@ -35283,7 +39081,9 @@
       hkey =
          /*<<ephemeron.ml:188:17>>*/  /*<<ephemeron.ml:188:17>>*/ caml_call2
           /*<<ephemeron.ml:188:17>>*/ (H[2], h[3], key),
-      i =  /*<<ephemeron.ml:189:14>>*/ key_index(h, hkey),
+      i =
+         /*<<ephemeron.ml:189:14>>*/  /*<<ephemeron.ml:189:14>>*/ key_index
+          /*<<ephemeron.ml:189:14>>*/ (h, hkey),
       container =
          /*<<ephemeron.ml:190:22>>*/  /*<<ephemeron.ml:190:22>>*/ caml_call2
           /*<<ephemeron.ml:190:22>>*/ (H[1], key, info),
@@ -35295,7 +39095,10 @@
       /*<<ephemeron.ml:192:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _ab_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-     return _ab_ ? resize(h) : _ab_ /*<<ephemeron.ml:194:57>>*/ ;
+     return _ab_
+             ?  /*<<ephemeron.ml:194:49>>*/ resize
+                /*<<ephemeron.ml:194:49>>*/ (h)
+             : _ab_ /*<<ephemeron.ml:194:57>>*/ ;
      /*<<ephemeron.ml:194:57>>*/ }
     function remove(h, key){
      var
@@ -35313,7 +39116,8 @@
          /*<<ephemeron.ml:210:29>>*/ return [0,
                 hk,
                 c$0,
-                remove_bucket(next$0)] /*<<ephemeron.ml:210:29>>*/ ;
+                 /*<<ephemeron.ml:210:41>>*/ remove_bucket
+                  /*<<ephemeron.ml:210:41>>*/ (next$0)] /*<<ephemeron.ml:210:29>>*/ ;
        }
        switch
         ( /*<<ephemeron.ml:201:24>>*/ caml_call2
@@ -35322,16 +39126,22 @@
           h[1] = h[1] - 1 | 0;
            /*<<ephemeron.ml:202:45>>*/ return next /*<<ephemeron.ml:202:45>>*/ ;
          case 1:
-           /*<<ephemeron.ml:203:24>>*/ return [0, hk, c, remove_bucket(next)] /*<<ephemeron.ml:203:24>>*/ ;
+           /*<<ephemeron.ml:203:24>>*/ return [0,
+                  hk,
+                  c,
+                   /*<<ephemeron.ml:203:36>>*/ remove_bucket
+                    /*<<ephemeron.ml:203:36>>*/ (next)] /*<<ephemeron.ml:203:24>>*/ ;
          default: h[1] = h[1] - 1 | 0; param$0 = next;
        }
       }
       /*<<ephemeron.ml:210:60>>*/ }
      var
-      i =  /*<<ephemeron.ml:211:14>>*/ key_index(h, hkey),
+      i =
+         /*<<ephemeron.ml:211:14>>*/  /*<<ephemeron.ml:211:14>>*/ key_index
+          /*<<ephemeron.ml:211:14>>*/ (h, hkey),
       _aa_ =
-         /*<<ephemeron.ml:212:20>>*/ remove_bucket
-         (caml_check_bound(h[2], i)[1 + i]);
+         /*<<ephemeron.ml:212:20>>*/  /*<<ephemeron.ml:212:20>>*/ remove_bucket
+          /*<<ephemeron.ml:212:20>>*/ (caml_check_bound(h[2], i)[1 + i]);
       /*<<ephemeron.ml:212:6>>*/ caml_check_bound(h[2], i)[1 + i] = _aa_;
       /*<<ephemeron.ml:212:6>>*/ return 0 /*<<ephemeron.ml:212:6>>*/ ;
      /*<<ephemeron.ml:212:44>>*/ }
@@ -35340,7 +39150,9 @@
       hkey =
          /*<<ephemeron.ml:239:17>>*/  /*<<ephemeron.ml:239:17>>*/ caml_call2
           /*<<ephemeron.ml:239:17>>*/ (H[2], h[3], key),
-      _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
+      _$_ =
+         /*<<ephemeron.ml:241:33>>*/  /*<<ephemeron.ml:241:33>>*/ key_index
+          /*<<ephemeron.ml:241:33>>*/ (h, hkey),
       param = caml_check_bound(h[2], _$_)[1 + _$_];
       /*<<ephemeron.ml:218:21>>*/ for(;;){
       if(! param)
@@ -35374,7 +39186,9 @@
       hkey =
          /*<<ephemeron.ml:264:17>>*/  /*<<ephemeron.ml:264:17>>*/ caml_call2
           /*<<ephemeron.ml:264:17>>*/ (H[2], h[3], key),
-      ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
+      ___ =
+         /*<<ephemeron.ml:266:37>>*/  /*<<ephemeron.ml:266:37>>*/ key_index
+          /*<<ephemeron.ml:266:37>>*/ (h, hkey),
       param = caml_check_bound(h[2], ___)[1 + ___];
       /*<<ephemeron.ml:243:25>>*/ for(;;){
       if(! param)
@@ -35422,7 +39236,10 @@
                 /*<<ephemeron.ml:274:33>>*/ (H[4], c);
            if(match){
             var d = match[1];
-             /*<<ephemeron.ml:277:26>>*/ return [0, d, find_in_bucket(rest)] /*<<ephemeron.ml:277:26>>*/ ;
+             /*<<ephemeron.ml:277:26>>*/ return [0,
+                    d,
+                     /*<<ephemeron.ml:277:29>>*/ find_in_bucket
+                      /*<<ephemeron.ml:277:29>>*/ (rest)] /*<<ephemeron.ml:277:26>>*/ ;
            }
            param$0 = rest;
            break;
@@ -35433,16 +39250,22 @@
        else{var rest$0 = param$0[3]; param$0 = rest$0;}
       }
       /*<<ephemeron.ml:284:29>>*/ }
-     var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
-      /*<<ephemeron.ml:285:21>>*/ return find_in_bucket
-             (caml_check_bound(h[2], _Z_)[1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
+     var
+      _Z_ =
+         /*<<ephemeron.ml:285:29>>*/  /*<<ephemeron.ml:285:29>>*/ key_index
+          /*<<ephemeron.ml:285:29>>*/ (h, hkey);
+      /*<<ephemeron.ml:285:21>>*/ return  /*<<ephemeron.ml:285:21>>*/ find_in_bucket
+              /*<<ephemeron.ml:285:21>>*/ (caml_check_bound(h[2], _Z_)
+               [1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
      /*<<ephemeron.ml:285:46>>*/ }
     function replace(h, key, info){
      var
       hkey =
          /*<<ephemeron.ml:289:17>>*/  /*<<ephemeron.ml:289:17>>*/ caml_call2
           /*<<ephemeron.ml:289:17>>*/ (H[2], h[3], key),
-      i =  /*<<ephemeron.ml:299:14>>*/ key_index(h, hkey),
+      i =
+         /*<<ephemeron.ml:299:14>>*/  /*<<ephemeron.ml:299:14>>*/ key_index
+          /*<<ephemeron.ml:299:14>>*/ (h, hkey),
       l =  /*<<ephemeron.ml:300:14>>*/ caml_check_bound(h[2], i)[1 + i];
       /*<<ephemeron.ml:301:6>>*/ try{
       var param = l;
@@ -35477,7 +39300,10 @@
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
       h[1] = h[1] + 1 | 0;
       var _X_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-      return _X_ ? resize(h) : _X_ /*<<ephemeron.ml:307:59>>*/ ;
+      return _X_
+              ?  /*<<ephemeron.ml:307:51>>*/ resize
+                 /*<<ephemeron.ml:307:51>>*/ (h)
+              : _X_ /*<<ephemeron.ml:307:59>>*/ ;
      }
      /*<<ephemeron.ml:307:59>>*/ }
     function mem(h, key){
@@ -35485,7 +39311,9 @@
       hkey =
          /*<<ephemeron.ml:310:17>>*/  /*<<ephemeron.ml:310:17>>*/ caml_call2
           /*<<ephemeron.ml:310:17>>*/ (H[2], h[3], key),
-      _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
+      _U_ =
+         /*<<ephemeron.ml:320:28>>*/  /*<<ephemeron.ml:320:28>>*/ key_index
+          /*<<ephemeron.ml:320:28>>*/ (h, hkey),
       param = caml_check_bound(h[2], _U_)[1 + _U_];
       /*<<ephemeron.ml:311:30>>*/ for(;;){
       if(! param)
@@ -35523,7 +39351,10 @@
          /*<<ephemeron.ml:330:8>>*/  /*<<ephemeron.ml:330:8>>*/ caml_call3
           /*<<ephemeron.ml:330:8>>*/ (Stdlib_Array[18],
           function(m, b){
-           var _T_ =  /*<<ephemeron.ml:330:46>>*/ bucket_length(0, b);
+           var
+            _T_ =
+               /*<<ephemeron.ml:330:46>>*/  /*<<ephemeron.ml:330:46>>*/ bucket_length
+                /*<<ephemeron.ml:330:46>>*/ (0, b);
             /*<<ephemeron.ml:330:46>>*/ return  /*<<ephemeron.ml:330:46>>*/ caml_call2
                     /*<<ephemeron.ml:330:46>>*/ (Stdlib_Int[11], m, _T_) /*<<ephemeron.ml:330:65>>*/ ;
            /*<<ephemeron.ml:330:65>>*/ },
@@ -35535,7 +39366,10 @@
       /*<<ephemeron.ml:332:6>>*/  /*<<ephemeron.ml:332:6>>*/ caml_call2
        /*<<ephemeron.ml:332:6>>*/ (Stdlib_Array[12],
        function(b){
-        var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
+        var
+         l =
+            /*<<ephemeron.ml:334:19>>*/  /*<<ephemeron.ml:334:19>>*/ bucket_length
+             /*<<ephemeron.ml:334:19>>*/ (0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
          /*<<ephemeron.ml:335:11>>*/ return 0 /*<<ephemeron.ml:335:11>>*/ ;
@@ -35566,7 +39400,10 @@
          /*<<ephemeron.ml:351:8>>*/  /*<<ephemeron.ml:351:8>>*/ caml_call3
           /*<<ephemeron.ml:351:8>>*/ (Stdlib_Array[18],
           function(m, b){
-           var _S_ =  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive(0, b);
+           var
+            _S_ =
+               /*<<ephemeron.ml:352:32>>*/  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive
+                /*<<ephemeron.ml:352:32>>*/ (0, b);
             /*<<ephemeron.ml:352:32>>*/ return  /*<<ephemeron.ml:352:32>>*/ caml_call2
                     /*<<ephemeron.ml:352:32>>*/ (Stdlib_Int[11], m, _S_) /*<<ephemeron.ml:352:57>>*/ ;
            /*<<ephemeron.ml:352:57>>*/ },
@@ -35578,7 +39415,10 @@
       /*<<ephemeron.ml:355:6>>*/  /*<<ephemeron.ml:355:6>>*/ caml_call2
        /*<<ephemeron.ml:355:6>>*/ (Stdlib_Array[12],
        function(b){
-        var l =  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive(0, b);
+        var
+         l =
+            /*<<ephemeron.ml:357:19>>*/  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive
+             /*<<ephemeron.ml:357:19>>*/ (0, b);
         size[1] = size[1] + l | 0;
          /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
@@ -35596,7 +39436,8 @@
               /*<<ephemeron.ml:367:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v) /*<<ephemeron.ml:367:41>>*/ ;
+                /*<<ephemeron.ml:367:29>>*/ return  /*<<ephemeron.ml:367:29>>*/ add
+                        /*<<ephemeron.ml:367:29>>*/ (tbl, k, v) /*<<ephemeron.ml:367:41>>*/ ;
                /*<<ephemeron.ml:367:41>>*/ },
               i) /*<<ephemeron.ml:367:43>>*/ ;
      /*<<ephemeron.ml:367:43>>*/ }
@@ -35605,13 +39446,18 @@
               /*<<ephemeron.ml:370:6>>*/ (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v) /*<<ephemeron.ml:370:45>>*/ ;
+                /*<<ephemeron.ml:370:29>>*/ return  /*<<ephemeron.ml:370:29>>*/ replace
+                        /*<<ephemeron.ml:370:29>>*/ (tbl, k, v) /*<<ephemeron.ml:370:45>>*/ ;
                /*<<ephemeron.ml:370:45>>*/ },
               i) /*<<ephemeron.ml:370:47>>*/ ;
      /*<<ephemeron.ml:370:47>>*/ }
     function of_seq(i){
-     var tbl =  /*<<ephemeron.ml:373:16>>*/ create(0, 16);
-      /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
+     var
+      tbl =
+         /*<<ephemeron.ml:373:16>>*/  /*<<ephemeron.ml:373:16>>*/ create
+          /*<<ephemeron.ml:373:16>>*/ (0, 16);
+      /*<<ephemeron.ml:374:6>>*/  /*<<ephemeron.ml:374:6>>*/ replace_seq
+       /*<<ephemeron.ml:374:6>>*/ (tbl, i);
       /*<<ephemeron.ml:374:6>>*/ return tbl /*<<ephemeron.ml:374:6>>*/ ;
      /*<<ephemeron.ml:375:9>>*/ }
      /*<<ephemeron.ml:82:4>>*/ return [0,
@@ -35665,28 +39511,47 @@
              /*<<ephemeron.ml:401:45>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:401:75>>*/ ;
     /*<<ephemeron.ml:401:75>>*/ }
    function make(key, data){
-    var eph =  /*<<ephemeron.ml:405:14>>*/ create(0);
-     /*<<ephemeron.ml:406:4>>*/ set_data(eph, data);
-     /*<<ephemeron.ml:407:4>>*/ set_key(eph, key);
+    var
+     eph =
+        /*<<ephemeron.ml:405:14>>*/  /*<<ephemeron.ml:405:14>>*/ create
+         /*<<ephemeron.ml:405:14>>*/ (0);
+     /*<<ephemeron.ml:406:4>>*/  /*<<ephemeron.ml:406:4>>*/ set_data
+      /*<<ephemeron.ml:406:4>>*/ (eph, data);
+     /*<<ephemeron.ml:407:4>>*/  /*<<ephemeron.ml:407:4>>*/ set_key
+      /*<<ephemeron.ml:407:4>>*/ (eph, key);
      /*<<ephemeron.ml:407:4>>*/ return eph /*<<ephemeron.ml:407:4>>*/ ;
     /*<<ephemeron.ml:408:7>>*/ }
    function query(eph, key){
-    var match =  /*<<ephemeron.ml:411:10>>*/ get_key(eph);
+    var
+     match =
+        /*<<ephemeron.ml:411:10>>*/  /*<<ephemeron.ml:411:10>>*/ get_key
+         /*<<ephemeron.ml:411:10>>*/ (eph);
     if(! match)
       /*<<ephemeron.ml:412:14>>*/ return 0 /*<<ephemeron.ml:412:14>>*/ ;
     var k = match[1];
-    return k === key ? get_data(eph) : 0 /*<<ephemeron.ml:414:20>>*/ ;
+    return k === key
+            ?  /*<<ephemeron.ml:413:30>>*/ get_data
+               /*<<ephemeron.ml:413:30>>*/ (eph)
+            : 0 /*<<ephemeron.ml:414:20>>*/ ;
     /*<<ephemeron.ml:414:20>>*/ }
    function MakeSeeded$0(H){
     function create$0(k, d){
-     var c =  /*<<ephemeron.ml:421:16>>*/ create(0);
-      /*<<ephemeron.ml:422:8>>*/ set_data(c, d);
-      /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
+     var
+      c =
+         /*<<ephemeron.ml:421:16>>*/  /*<<ephemeron.ml:421:16>>*/ create
+          /*<<ephemeron.ml:421:16>>*/ (0);
+      /*<<ephemeron.ml:422:8>>*/  /*<<ephemeron.ml:422:8>>*/ set_data
+       /*<<ephemeron.ml:422:8>>*/ (c, d);
+      /*<<ephemeron.ml:423:8>>*/  /*<<ephemeron.ml:423:8>>*/ set_key
+       /*<<ephemeron.ml:423:8>>*/ (c, k);
       /*<<ephemeron.ml:423:8>>*/ return c /*<<ephemeron.ml:423:8>>*/ ;
      /*<<ephemeron.ml:424:9>>*/ }
     var seeded_hash = H[2];
     function equal(c, k){
-     var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
+     var
+      match =
+         /*<<ephemeron.ml:429:14>>*/  /*<<ephemeron.ml:429:14>>*/ get_key
+          /*<<ephemeron.ml:429:14>>*/ (c);
      if(! match)
        /*<<ephemeron.ml:430:18>>*/ return 2 /*<<ephemeron.ml:430:18>>*/ ;
      var k$0 = match[1];
@@ -35698,11 +39563,13 @@
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:435:8>>*/  /*<<ephemeron.ml:402:40>>*/ caml_call1
        /*<<ephemeron.ml:402:40>>*/ (Stdlib_Obj[23][12], c);
-      /*<<ephemeron.ml:436:8>>*/ set_key(c, k);
-      /*<<ephemeron.ml:436:8>>*/ return set_data(c, d) /*<<ephemeron.ml:437:20>>*/ ;
+      /*<<ephemeron.ml:436:8>>*/  /*<<ephemeron.ml:436:8>>*/ set_key
+       /*<<ephemeron.ml:436:8>>*/ (c, k);
+      /*<<ephemeron.ml:436:8>>*/ return  /*<<ephemeron.ml:436:8>>*/ set_data
+              /*<<ephemeron.ml:436:8>>*/ (c, d) /*<<ephemeron.ml:437:20>>*/ ;
      /*<<ephemeron.ml:437:20>>*/ }
-     /*<<ephemeron.ml:417:28>>*/ return MakeSeeded
-            ([0,
+     /*<<ephemeron.ml:417:28>>*/ return  /*<<ephemeron.ml:417:28>>*/ MakeSeeded
+             /*<<ephemeron.ml:417:28>>*/ ([0,
               create$0,
               seeded_hash,
               equal,
@@ -35773,11 +39640,17 @@
     /*<<ephemeron.ml:459:24>>*/ }
    function add(b, k, d){
     var _Q_ = b[1];
-    b[1] = [0, make(k, d), _Q_];
+    b[1] =
+     [0,
+       /*<<ephemeron.ml:460:25>>*/ make /*<<ephemeron.ml:460:25>>*/ (k, d),
+      _Q_];
     return 0;
     /*<<ephemeron.ml:460:42>>*/ }
    function test_key(k, e){
-    var match =  /*<<ephemeron.ml:463:12>>*/ get_key(e);
+    var
+     match =
+        /*<<ephemeron.ml:463:12>>*/  /*<<ephemeron.ml:463:12>>*/ get_key
+         /*<<ephemeron.ml:463:12>>*/ (e);
     if(match){
      var x = match[1];
      if(x === k)
@@ -35791,7 +39664,9 @@
      if(! l)
        /*<<ephemeron.ml:470:16>>*/ return 0 /*<<ephemeron.ml:470:16>>*/ ;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:471:22>>*/ if(test_key(k, h)){
+      /*<<ephemeron.ml:471:22>>*/ if
+      ( /*<<ephemeron.ml:471:22>>*/ test_key
+         /*<<ephemeron.ml:471:22>>*/ (k, h)){
       b[1] =
         /*<<ephemeron.ml:471:43>>*/ caml_call2
          /*<<ephemeron.ml:471:43>>*/ (Stdlib_List[13], acc, t);
@@ -35812,7 +39687,8 @@
     if(! match)
       /*<<ephemeron.ml:479:16>>*/ return 0 /*<<ephemeron.ml:479:16>>*/ ;
     var e = match[1];
-     /*<<ephemeron.ml:478:18>>*/ return get_data(e) /*<<ephemeron.ml:479:20>>*/ ;
+     /*<<ephemeron.ml:478:18>>*/ return  /*<<ephemeron.ml:478:18>>*/ get_data
+             /*<<ephemeron.ml:478:18>>*/ (e) /*<<ephemeron.ml:479:20>>*/ ;
     /*<<ephemeron.ml:479:20>>*/ }
    function length(b){
      /*<<ephemeron.ml:481:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:481:33>>*/ ;
@@ -35859,34 +39735,54 @@
              /*<<ephemeron.ml:505:4>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:505:34>>*/ ;
     /*<<ephemeron.ml:505:34>>*/ }
    function make$1(key1, key2, data){
-    var eph =  /*<<ephemeron.ml:509:14>>*/ create$0(0);
-     /*<<ephemeron.ml:510:4>>*/ set_data$0(eph, data);
-     /*<<ephemeron.ml:511:4>>*/ set_key1(eph, key1);
-     /*<<ephemeron.ml:512:4>>*/ set_key2(eph, key2);
+    var
+     eph =
+        /*<<ephemeron.ml:509:14>>*/  /*<<ephemeron.ml:509:14>>*/ create$0
+         /*<<ephemeron.ml:509:14>>*/ (0);
+     /*<<ephemeron.ml:510:4>>*/  /*<<ephemeron.ml:510:4>>*/ set_data$0
+      /*<<ephemeron.ml:510:4>>*/ (eph, data);
+     /*<<ephemeron.ml:511:4>>*/  /*<<ephemeron.ml:511:4>>*/ set_key1
+      /*<<ephemeron.ml:511:4>>*/ (eph, key1);
+     /*<<ephemeron.ml:512:4>>*/  /*<<ephemeron.ml:512:4>>*/ set_key2
+      /*<<ephemeron.ml:512:4>>*/ (eph, key2);
      /*<<ephemeron.ml:514:4>>*/ return eph /*<<ephemeron.ml:514:4>>*/ ;
     /*<<ephemeron.ml:514:7>>*/ }
    function query$0(eph, key1, key2){
-    var match =  /*<<ephemeron.ml:517:10>>*/ get_key1(eph);
+    var
+     match =
+        /*<<ephemeron.ml:517:10>>*/  /*<<ephemeron.ml:517:10>>*/ get_key1
+         /*<<ephemeron.ml:517:10>>*/ (eph);
     if(! match)
       /*<<ephemeron.ml:518:14>>*/ return 0 /*<<ephemeron.ml:518:14>>*/ ;
     var k = match[1];
     if(k !== key1)
       /*<<ephemeron.ml:525:16>>*/ return 0 /*<<ephemeron.ml:525:16>>*/ ;
-    var match$0 =  /*<<ephemeron.ml:520:20>>*/ get_key2(eph);
+    var
+     match$0 =
+        /*<<ephemeron.ml:520:20>>*/  /*<<ephemeron.ml:520:20>>*/ get_key2
+         /*<<ephemeron.ml:520:20>>*/ (eph);
     if(! match$0)
       /*<<ephemeron.ml:521:18>>*/ return 0 /*<<ephemeron.ml:521:18>>*/ ;
     var k$0 = match$0[1];
-    return k$0 === key2 ? get_data$0(eph) : 0 /*<<ephemeron.ml:525:20>>*/ ;
+    return k$0 === key2
+            ?  /*<<ephemeron.ml:522:35>>*/ get_data$0
+               /*<<ephemeron.ml:522:35>>*/ (eph)
+            : 0 /*<<ephemeron.ml:525:20>>*/ ;
     /*<<ephemeron.ml:525:20>>*/ }
    function MakeSeeded$1(H1, H2){
     function create(param, d){
      var
       k2 = param[2],
       k1 = param[1],
-      c =  /*<<ephemeron.ml:534:16>>*/ create$0(0);
-      /*<<ephemeron.ml:535:8>>*/ set_data$0(c, d);
-      /*<<ephemeron.ml:536:8>>*/ set_key1(c, k1);
-      /*<<ephemeron.ml:536:23>>*/ set_key2(c, k2);
+      c =
+         /*<<ephemeron.ml:534:16>>*/  /*<<ephemeron.ml:534:16>>*/ create$0
+          /*<<ephemeron.ml:534:16>>*/ (0);
+      /*<<ephemeron.ml:535:8>>*/  /*<<ephemeron.ml:535:8>>*/ set_data$0
+       /*<<ephemeron.ml:535:8>>*/ (c, d);
+      /*<<ephemeron.ml:536:8>>*/  /*<<ephemeron.ml:536:8>>*/ set_key1
+       /*<<ephemeron.ml:536:8>>*/ (c, k1);
+      /*<<ephemeron.ml:536:23>>*/  /*<<ephemeron.ml:536:23>>*/ set_key2
+       /*<<ephemeron.ml:536:23>>*/ (c, k2);
       /*<<ephemeron.ml:536:23>>*/ return c /*<<ephemeron.ml:536:23>>*/ ;
      /*<<ephemeron.ml:537:9>>*/ }
     function seeded_hash(seed, param){
@@ -35907,8 +39803,12 @@
      var
       k2 = param[2],
       k1 = param[1],
-      match =  /*<<ephemeron.ml:541:14>>*/ get_key1(c),
-      match$0 =  /*<<ephemeron.ml:541:26>>*/ get_key2(c);
+      match =
+         /*<<ephemeron.ml:541:14>>*/  /*<<ephemeron.ml:541:14>>*/ get_key1
+          /*<<ephemeron.ml:541:14>>*/ (c),
+      match$0 =
+         /*<<ephemeron.ml:541:26>>*/  /*<<ephemeron.ml:541:26>>*/ get_key2
+          /*<<ephemeron.ml:541:26>>*/ (c);
      if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
        /*<<ephemeron.ml:544:15>>*/ if
@@ -35926,9 +39826,12 @@
      var k2 = param[2], k1 = param[1];
       /*<<ephemeron.ml:506:45>>*/  /*<<ephemeron.ml:506:45>>*/ caml_call1
        /*<<ephemeron.ml:506:45>>*/ (Stdlib_Obj[23][12], c);
-      /*<<ephemeron.ml:549:8>>*/ set_key1(c, k1);
-      /*<<ephemeron.ml:549:23>>*/ set_key2(c, k2);
-      /*<<ephemeron.ml:549:23>>*/ return set_data$0(c, d) /*<<ephemeron.ml:550:20>>*/ ;
+      /*<<ephemeron.ml:549:8>>*/  /*<<ephemeron.ml:549:8>>*/ set_key1
+       /*<<ephemeron.ml:549:8>>*/ (c, k1);
+      /*<<ephemeron.ml:549:23>>*/  /*<<ephemeron.ml:549:23>>*/ set_key2
+       /*<<ephemeron.ml:549:23>>*/ (c, k2);
+      /*<<ephemeron.ml:549:23>>*/ return  /*<<ephemeron.ml:549:23>>*/ set_data$0
+              /*<<ephemeron.ml:549:23>>*/ (c, d) /*<<ephemeron.ml:550:20>>*/ ;
      /*<<ephemeron.ml:550:20>>*/ }
     function check_key(c){
      var
@@ -35940,8 +39843,8 @@
                 /*<<ephemeron.ml:501:45>>*/ (Stdlib_Obj[23][7], c, 1)
              : _N_ /*<<ephemeron.ml:551:52>>*/ ;
      /*<<ephemeron.ml:551:52>>*/ }
-     /*<<ephemeron.ml:530:28>>*/ return MakeSeeded
-            ([0,
+     /*<<ephemeron.ml:530:28>>*/ return  /*<<ephemeron.ml:530:28>>*/ MakeSeeded
+             /*<<ephemeron.ml:530:28>>*/ ([0,
               create,
               seeded_hash,
               equal,
@@ -36018,13 +39921,21 @@
     /*<<ephemeron.ml:579:24>>*/ }
    function add$0(b, k1, k2, d){
     var _L_ = b[1];
-    b[1] = [0, make$1(k1, k2, d), _L_];
+    b[1] =
+     [0,
+       /*<<ephemeron.ml:580:29>>*/ make$1
+        /*<<ephemeron.ml:580:29>>*/ (k1, k2, d),
+      _L_];
     return 0;
     /*<<ephemeron.ml:580:50>>*/ }
    function test_keys(k1, k2, e){
     var
-     match =  /*<<ephemeron.ml:583:12>>*/ get_key1(e),
-     match$0 =  /*<<ephemeron.ml:583:24>>*/ get_key2(e);
+     match =
+        /*<<ephemeron.ml:583:12>>*/  /*<<ephemeron.ml:583:12>>*/ get_key1
+         /*<<ephemeron.ml:583:12>>*/ (e),
+     match$0 =
+        /*<<ephemeron.ml:583:24>>*/  /*<<ephemeron.ml:583:24>>*/ get_key2
+         /*<<ephemeron.ml:583:24>>*/ (e);
     if(match && match$0){
      var x2 = match$0[1], x1 = match[1];
      if(x1 === k1 && x2 === k2)
@@ -36038,7 +39949,9 @@
      if(! l)
        /*<<ephemeron.ml:590:16>>*/ return 0 /*<<ephemeron.ml:590:16>>*/ ;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:591:22>>*/ if(test_keys(k1, k2, h)){
+      /*<<ephemeron.ml:591:22>>*/ if
+      ( /*<<ephemeron.ml:591:22>>*/ test_keys
+         /*<<ephemeron.ml:591:22>>*/ (k1, k2, h)){
       b[1] =
         /*<<ephemeron.ml:591:48>>*/ caml_call2
          /*<<ephemeron.ml:591:48>>*/ (Stdlib_List[13], acc, t);
@@ -36059,7 +39972,8 @@
     if(! match)
       /*<<ephemeron.ml:599:16>>*/ return 0 /*<<ephemeron.ml:599:16>>*/ ;
     var e = match[1];
-     /*<<ephemeron.ml:598:18>>*/ return get_data$0(e) /*<<ephemeron.ml:599:20>>*/ ;
+     /*<<ephemeron.ml:598:18>>*/ return  /*<<ephemeron.ml:598:18>>*/ get_data$0
+             /*<<ephemeron.ml:598:18>>*/ (e) /*<<ephemeron.ml:599:20>>*/ ;
     /*<<ephemeron.ml:599:20>>*/ }
    function length$0(b){
      /*<<ephemeron.ml:601:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:601:33>>*/ ;
@@ -36099,14 +40013,19 @@
              /*<<ephemeron.ml:620:45>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:620:75>>*/ ;
     /*<<ephemeron.ml:620:75>>*/ }
    function make$3(keys, data){
-    var l = keys.length - 1, eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
-     /*<<ephemeron.ml:626:4>>*/ set_data$1(eph, data);
+    var
+     l = keys.length - 1,
+     eph =
+        /*<<ephemeron.ml:625:14>>*/  /*<<ephemeron.ml:625:14>>*/ create$1
+         /*<<ephemeron.ml:625:14>>*/ (l);
+     /*<<ephemeron.ml:626:4>>*/  /*<<ephemeron.ml:626:4>>*/ set_data$1
+      /*<<ephemeron.ml:626:4>>*/ (eph, data);
     var _I_ = l - 1 | 0, _H_ =  /*<<ephemeron.ml:626:4>>*/ 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-       /*<<ephemeron.ml:627:26>>*/ set_key$0
-       (eph, i, caml_check_bound(keys, i)[1 + i]);
+       /*<<ephemeron.ml:627:26>>*/  /*<<ephemeron.ml:627:26>>*/ set_key$0
+        /*<<ephemeron.ml:627:26>>*/ (eph, i, caml_check_bound(keys, i)[1 + i]);
       var _J_ =  /*<<ephemeron.ml:627:26>>*/ i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
@@ -36115,7 +40034,10 @@
      /*<<ephemeron.ml:628:4>>*/ return eph /*<<ephemeron.ml:628:4>>*/ ;
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
-    var l =  /*<<ephemeron.ml:631:12>>*/ length$1(eph);
+    var
+     l =
+        /*<<ephemeron.ml:631:12>>*/  /*<<ephemeron.ml:631:12>>*/ length$1
+         /*<<ephemeron.ml:631:12>>*/ (eph);
      /*<<ephemeron.ml:632:4>>*/ try{
      if(l !== keys.length - 1)
        /*<<ephemeron.ml:633:37>>*/ throw  /*<<ephemeron.ml:633:37>>*/ caml_maybe_attach_backtrace
@@ -36126,7 +40048,10 @@
      if(_D_ >= 0){
       var i = _C_;
       for(;;){
-       var match =  /*<<ephemeron.ml:635:14>>*/ get_key$0(eph, i);
+       var
+        match =
+           /*<<ephemeron.ml:635:14>>*/  /*<<ephemeron.ml:635:14>>*/ get_key$0
+            /*<<ephemeron.ml:635:14>>*/ (eph, i);
        if(! match)
          /*<<ephemeron.ml:636:18>>*/ throw  /*<<ephemeron.ml:636:18>>*/ caml_maybe_attach_backtrace
                 /*<<ephemeron.ml:636:18>>*/ (Stdlib[3], 1);
@@ -36139,7 +40064,10 @@
        i = _F_;
       }
      }
-     var _E_ =  /*<<ephemeron.ml:640:6>>*/ get_data$1(eph);
+     var
+      _E_ =
+         /*<<ephemeron.ml:640:6>>*/  /*<<ephemeron.ml:640:6>>*/ get_data$1
+          /*<<ephemeron.ml:640:6>>*/ (eph);
       /*<<ephemeron.ml:640:6>>*/ return _E_ /*<<ephemeron.ml:640:6>>*/ ;
     }
     catch(_G_){
@@ -36151,14 +40079,18 @@
     /*<<ephemeron.ml:641:21>>*/ }
    function MakeSeeded$2(H){
     function create(k, d){
-     var c =  /*<<ephemeron.ml:648:16>>*/ create$1(k.length - 1);
-      /*<<ephemeron.ml:649:8>>*/ set_data$1(c, d);
+     var
+      c =
+         /*<<ephemeron.ml:648:16>>*/  /*<<ephemeron.ml:648:16>>*/ create$1
+          /*<<ephemeron.ml:648:16>>*/ (k.length - 1);
+      /*<<ephemeron.ml:649:8>>*/  /*<<ephemeron.ml:649:8>>*/ set_data$1
+       /*<<ephemeron.ml:649:8>>*/ (c, d);
      var _z_ = k.length - 2 | 0, _y_ =  /*<<ephemeron.ml:649:8>>*/ 0;
      if(_z_ >= 0){
       var i = _y_;
       for(;;){
-        /*<<ephemeron.ml:651:10>>*/ set_key$0
-        (c, i, caml_check_bound(k, i)[1 + i]);
+        /*<<ephemeron.ml:651:10>>*/  /*<<ephemeron.ml:651:10>>*/ set_key$0
+         /*<<ephemeron.ml:651:10>>*/ (c, i, caml_check_bound(k, i)[1 + i]);
        var _A_ =  /*<<ephemeron.ml:651:10>>*/ i + 1 | 0;
        if(_z_ === i) break;
        i = _A_;
@@ -36192,14 +40124,21 @@
      return h[1];
      /*<<ephemeron.ml:659:10>>*/ }
     function equal(c, k){
-     var len = k.length - 1, len$0 =  /*<<ephemeron.ml:662:19>>*/ length$1(c);
+     var
+      len = k.length - 1,
+      len$0 =
+         /*<<ephemeron.ml:662:19>>*/  /*<<ephemeron.ml:662:19>>*/ length$1
+          /*<<ephemeron.ml:662:19>>*/ (c);
      if(len !== len$0)
        /*<<ephemeron.ml:663:28>>*/ return 1 /*<<ephemeron.ml:663:28>>*/ ;
      var i$1 =  /*<<ephemeron.ml:675:10>>*/ len - 1 | 0, i = i$1;
       /*<<ephemeron.ml:666:12>>*/ for(;;){
       if(0 > i)
         /*<<ephemeron.ml:666:26>>*/ return 0 /*<<ephemeron.ml:666:26>>*/ ;
-      var match =  /*<<ephemeron.ml:668:20>>*/ get_key$0(c, i);
+      var
+       match =
+          /*<<ephemeron.ml:668:20>>*/  /*<<ephemeron.ml:668:20>>*/ get_key$0
+           /*<<ephemeron.ml:668:20>>*/ (c, i);
       if(! match)
         /*<<ephemeron.ml:669:24>>*/ return 2 /*<<ephemeron.ml:669:24>>*/ ;
       var
@@ -36221,17 +40160,24 @@
      if(_q_ >= 0){
       var i = _p_;
       for(;;){
-        /*<<ephemeron.ml:680:10>>*/ set_key$0
-        (c, i, caml_check_bound(k, i)[1 + i]);
+        /*<<ephemeron.ml:680:10>>*/  /*<<ephemeron.ml:680:10>>*/ set_key$0
+         /*<<ephemeron.ml:680:10>>*/ (c, i, caml_check_bound(k, i)[1 + i]);
        var _r_ =  /*<<ephemeron.ml:680:10>>*/ i + 1 | 0;
        if(_q_ === i) break;
        i = _r_;
       }
      }
-      /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d) /*<<ephemeron.ml:682:20>>*/ ;
+      /*<<ephemeron.ml:682:8>>*/ return  /*<<ephemeron.ml:682:8>>*/ set_data$1
+              /*<<ephemeron.ml:682:8>>*/ (c, d) /*<<ephemeron.ml:682:20>>*/ ;
      /*<<ephemeron.ml:682:20>>*/ }
     function check_key(c){
-     var i$1 =  /*<<ephemeron.ml:686:17>>*/ length$1(c) - 1 | 0, i = i$1;
+     var
+      i$1 =
+         /*<<ephemeron.ml:686:17>>*/  /*<<ephemeron.ml:686:17>>*/ length$1
+          /*<<ephemeron.ml:686:17>>*/ (c)
+        - 1
+        | 0,
+      i = i$1;
       /*<<ephemeron.ml:685:10>>*/ for(;;){
       var _n_ = i < 0 ? 1 : 0;
       if(_n_)
@@ -36251,8 +40197,8 @@
       return _o_;
      }
      /*<<ephemeron.ml:686:30>>*/ }
-     /*<<ephemeron.ml:644:28>>*/ return MakeSeeded
-            ([0,
+     /*<<ephemeron.ml:644:28>>*/ return  /*<<ephemeron.ml:644:28>>*/ MakeSeeded
+             /*<<ephemeron.ml:644:28>>*/ ([0,
               create,
               seeded_hash,
               equal,
@@ -36323,19 +40269,27 @@
     /*<<ephemeron.ml:707:24>>*/ }
    function add$1(b, k, d){
     var _k_ = b[1];
-    b[1] = [0, make$3(k, d), _k_];
+    b[1] =
+     [0,
+       /*<<ephemeron.ml:708:25>>*/ make$3 /*<<ephemeron.ml:708:25>>*/ (k, d),
+      _k_];
     return 0;
     /*<<ephemeron.ml:708:42>>*/ }
    function test_keys$0(k, e){
      /*<<ephemeron.ml:711:6>>*/ try{
-     if(length$1(e) !== k.length - 1)
+     if
+      ( /*<<ephemeron.ml:712:11>>*/ length$1 /*<<ephemeron.ml:712:11>>*/ (e)
+       !== k.length - 1)
        /*<<ephemeron.ml:712:43>>*/ throw  /*<<ephemeron.ml:712:43>>*/ caml_maybe_attach_backtrace
               /*<<ephemeron.ml:712:43>>*/ (Stdlib[3], 1);
      var _g_ = k.length - 2 | 0, _f_ =  /*<<ephemeron.ml:713:8>>*/ 0;
      if(_g_ >= 0){
       var i = _f_;
       for(;;){
-       var match =  /*<<ephemeron.ml:714:16>>*/ get_key$0(e, i);
+       var
+        match =
+           /*<<ephemeron.ml:714:16>>*/  /*<<ephemeron.ml:714:16>>*/ get_key$0
+            /*<<ephemeron.ml:714:16>>*/ (e, i);
        if(match){
         var x = match[1];
         if(x === caml_check_bound(k, i)[1 + i]){
@@ -36365,7 +40319,9 @@
      if(! l)
        /*<<ephemeron.ml:724:16>>*/ return 0 /*<<ephemeron.ml:724:16>>*/ ;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:725:22>>*/ if(test_keys$0(k, h)){
+      /*<<ephemeron.ml:725:22>>*/ if
+      ( /*<<ephemeron.ml:725:22>>*/ test_keys$0
+         /*<<ephemeron.ml:725:22>>*/ (k, h)){
       b[1] =
         /*<<ephemeron.ml:725:44>>*/ caml_call2
          /*<<ephemeron.ml:725:44>>*/ (Stdlib_List[13], acc, t);
@@ -36386,7 +40342,8 @@
     if(! match)
       /*<<ephemeron.ml:733:16>>*/ return 0 /*<<ephemeron.ml:733:16>>*/ ;
     var e = match[1];
-     /*<<ephemeron.ml:732:18>>*/ return get_data$1(e) /*<<ephemeron.ml:733:20>>*/ ;
+     /*<<ephemeron.ml:732:18>>*/ return  /*<<ephemeron.ml:732:18>>*/ get_data$1
+             /*<<ephemeron.ml:732:18>>*/ (e) /*<<ephemeron.ml:733:20>>*/ ;
     /*<<ephemeron.ml:733:20>>*/ }
    function length$2(b){
      /*<<ephemeron.ml:735:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:735:33>>*/ ;
@@ -36613,7 +40570,10 @@
     return _aI_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
-    var _aC_ =  /*<<filename.ml:99:4>>*/ is_relative(n);
+    var
+     _aC_ =
+        /*<<filename.ml:99:4>>*/  /*<<filename.ml:99:4>>*/ is_relative
+         /*<<filename.ml:99:4>>*/ (n);
      /*<<filename.ml:99:4>>*/ if(_aC_){
      var
       _aD_ = caml_ml_string_length(n) < 2 ? 1 : 0,
@@ -36742,7 +40702,9 @@
       var _am_ = cst_2_1;
      else
       var
-       _aw_ =  /*<<filename.ml:125:61>>*/ quote(f),
+       _aw_ =
+          /*<<filename.ml:125:61>>*/  /*<<filename.ml:125:61>>*/ quote
+           /*<<filename.ml:125:61>>*/ (f),
        _am_ =
           /*<<filename.ml:125:53>>*/ caml_call2
            /*<<filename.ml:125:53>>*/ (Stdlib[28], cst_2, _aw_);
@@ -36753,7 +40715,9 @@
     if(stdout)
      var
       f$0 = stdout[1],
-      _ao_ =  /*<<filename.ml:122:55>>*/ quote(f$0),
+      _ao_ =
+         /*<<filename.ml:122:55>>*/  /*<<filename.ml:122:55>>*/ quote
+          /*<<filename.ml:122:55>>*/ (f$0),
       _ap_ =
          /*<<filename.ml:122:48>>*/ caml_call2
           /*<<filename.ml:122:48>>*/ (Stdlib[28], cst, _ao_);
@@ -36766,7 +40730,9 @@
     if(stdin)
      var
       f$1 = stdin[1],
-      _ar_ =  /*<<filename.ml:121:55>>*/ quote(f$1),
+      _ar_ =
+         /*<<filename.ml:121:55>>*/  /*<<filename.ml:121:55>>*/ quote
+          /*<<filename.ml:121:55>>*/ (f$1),
       _as_ =
          /*<<filename.ml:121:48>>*/ caml_call2
           /*<<filename.ml:121:48>>*/ (Stdlib[28], cst$0, _ar_);
@@ -36864,7 +40830,10 @@
     return _ag_;
     /*<<filename.ml:139:44>>*/ }
    function is_implicit$0(n){
-    var _U_ =  /*<<filename.ml:141:4>>*/ is_relative$0(n);
+    var
+     _U_ =
+        /*<<filename.ml:141:4>>*/  /*<<filename.ml:141:4>>*/ is_relative$0
+         /*<<filename.ml:141:4>>*/ (n);
      /*<<filename.ml:141:4>>*/ if(_U_){
      var
       _V_ = caml_ml_string_length(n) < 2 ? 1 : 0,
@@ -37009,7 +40978,8 @@
          /*<<filename.ml:173:16>>*/ return  /*<<filename.ml:173:16>>*/ caml_trampoline_return
                  /*<<filename.ml:173:16>>*/ (loop_bs, [0, _N_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:173:16>>*/ return loop_bs(counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
+        /*<<filename.ml:173:16>>*/ return  /*<<filename.ml:173:16>>*/ loop_bs
+                /*<<filename.ml:173:16>>*/ (counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
       if(92 === c){
        var _O_ = 0;
@@ -37017,7 +40987,8 @@
          /*<<filename.ml:174:16>>*/ return  /*<<filename.ml:174:16>>*/ caml_trampoline_return
                  /*<<filename.ml:174:16>>*/ (loop_bs, [0, _O_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:174:16>>*/ return loop_bs(counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
+        /*<<filename.ml:174:16>>*/ return  /*<<filename.ml:174:16>>*/ loop_bs
+                /*<<filename.ml:174:16>>*/ (counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
        /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ caml_call2
         /*<<filename.ml:175:16>>*/ (Stdlib_Buffer[12], b, c);
@@ -37032,14 +41003,16 @@
       if(i$0 === l){
         /*<<filename.ml:178:8>>*/  /*<<filename.ml:178:8>>*/ caml_call2
          /*<<filename.ml:178:8>>*/ (Stdlib_Buffer[12], b, 34);
-        /*<<filename.ml:178:8>>*/ return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:178:8>>*/ return  /*<<filename.ml:178:8>>*/ add_bs
+                /*<<filename.ml:178:8>>*/ (n$0) /*<<filename.ml:185:9>>*/ ;
       }
       var
        match =
           /*<<filename.ml:181:14>>*/  /*<<filename.ml:181:14>>*/ caml_string_get
            /*<<filename.ml:181:14>>*/ (s, i$0);
       if(34 === match){
-        /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
+        /*<<filename.ml:182:18>>*/  /*<<filename.ml:182:18>>*/ add_bs
+         /*<<filename.ml:182:18>>*/ ((2 * n$0 | 0) + 1 | 0);
         /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ caml_call2
          /*<<filename.ml:182:34>>*/ (Stdlib_Buffer[12], b, 34);
        var _M_ =  /*<<filename.ml:182:34>>*/ i$0 + 1 | 0;
@@ -37047,15 +41020,18 @@
          /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ caml_trampoline_return
                  /*<<filename.ml:182:34>>*/ (loop$0, [0, _M_]) /*<<filename.ml:185:9>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:182:34>>*/ return loop$0(counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ loop$0
+                /*<<filename.ml:182:34>>*/ (counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
       }
       if(92 !== match){
-        /*<<filename.ml:184:18>>*/ add_bs(n$0);
+        /*<<filename.ml:184:18>>*/  /*<<filename.ml:184:18>>*/ add_bs
+         /*<<filename.ml:184:18>>*/ (n$0);
         /*<<filename.ml:184:18>>*/ if(counter >= 50)
          /*<<filename.ml:184:18>>*/ return  /*<<filename.ml:184:18>>*/ caml_trampoline_return
                  /*<<filename.ml:184:18>>*/ (loop$0, [0, i$0]) /*<<filename.ml:185:9>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:184:18>>*/ return  /*<<filename.ml:184:18>>*/ loop$0
+                /*<<filename.ml:184:18>>*/ (counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
       }
       var i$1 =  /*<<filename.ml:183:18>>*/ i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
@@ -37075,7 +41051,8 @@
       }
      }
      /*<<filename.ml:186:66>>*/ }
-     /*<<filename.ml:188:4>>*/ loop(0);
+     /*<<filename.ml:188:4>>*/  /*<<filename.ml:188:4>>*/ loop
+      /*<<filename.ml:188:4>>*/ (0);
      /*<<filename.ml:188:4>>*/ return  /*<<filename.ml:188:4>>*/ caml_call1
              /*<<filename.ml:188:4>>*/ (Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
     /*<<filename.ml:189:21>>*/ }
@@ -37115,7 +41092,9 @@
       var _w_ = cst_2_1$0;
      else
       var
-       _H_ =  /*<<filename.ml:242:53>>*/ quote_cmd_filename(f),
+       _H_ =
+          /*<<filename.ml:242:53>>*/  /*<<filename.ml:242:53>>*/ quote_cmd_filename
+           /*<<filename.ml:242:53>>*/ (f),
        _w_ =
           /*<<filename.ml:242:45>>*/ caml_call2
            /*<<filename.ml:242:45>>*/ (Stdlib[28], cst_2$0, _H_);
@@ -37127,7 +41106,9 @@
     if(stdout)
      var
       f$0 = stdout[1],
-      _z_ =  /*<<filename.ml:238:55>>*/ quote_cmd_filename(f$0),
+      _z_ =
+         /*<<filename.ml:238:55>>*/  /*<<filename.ml:238:55>>*/ quote_cmd_filename
+          /*<<filename.ml:238:55>>*/ (f$0),
       _A_ =
          /*<<filename.ml:238:48>>*/ caml_call2
           /*<<filename.ml:238:48>>*/ (Stdlib[28], cst$8, _z_);
@@ -37137,7 +41118,9 @@
     if(stdin)
      var
       f$1 = stdin[1],
-      _C_ =  /*<<filename.ml:237:55>>*/ quote_cmd_filename(f$1),
+      _C_ =
+         /*<<filename.ml:237:55>>*/  /*<<filename.ml:237:55>>*/ quote_cmd_filename
+          /*<<filename.ml:237:55>>*/ (f$1),
       _D_ =
          /*<<filename.ml:237:48>>*/ caml_call2
           /*<<filename.ml:237:48>>*/ (Stdlib[28], cst$9, _C_);
@@ -37195,7 +41178,10 @@
      _G_ =
         /*<<filename.ml:232:21>>*/ [0,
         cst$12,
-        [0, quote_cmd_filename(cmd), _F_]];
+        [0,
+          /*<<filename.ml:234:6>>*/ quote_cmd_filename
+           /*<<filename.ml:234:6>>*/ (cmd),
+         _F_]];
      /*<<filename.ml:232:21>>*/ return  /*<<filename.ml:232:21>>*/ caml_call2
              /*<<filename.ml:232:21>>*/ (Stdlib_String[7], cst$13, _G_) /*<<filename.ml:244:5>>*/ ;
     /*<<filename.ml:244:5>>*/ }
@@ -37255,19 +41241,27 @@
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
     var
-     match =  /*<<filename.ml:256:24>>*/ drive_and_path(s),
+     match =
+        /*<<filename.ml:256:24>>*/  /*<<filename.ml:256:24>>*/ drive_and_path
+         /*<<filename.ml:256:24>>*/ (s),
      path = match[2],
      drive = match[1],
      dir =
-        /*<<filename.ml:257:14>>*/ generic_dirname
-        (is_dir_sep$0, current_dir_name$0, path);
+        /*<<filename.ml:257:14>>*/  /*<<filename.ml:257:14>>*/ generic_dirname
+         /*<<filename.ml:257:14>>*/ (is_dir_sep$0, current_dir_name$0, path);
      /*<<filename.ml:258:4>>*/ return  /*<<filename.ml:258:4>>*/ caml_call2
              /*<<filename.ml:258:4>>*/ (Stdlib[28], drive, dir) /*<<filename.ml:258:15>>*/ ;
     /*<<filename.ml:258:15>>*/ }
    function basename$0(s){
-    var path = drive_and_path(s)[2];
-     /*<<filename.ml:261:4>>*/ return generic_basename
-            (is_dir_sep$0, current_dir_name$0, path) /*<<filename.ml:261:53>>*/ ;
+    var
+     path =
+        /*<<filename.ml:260:25>>*/ drive_and_path
+          /*<<filename.ml:260:25>>*/ (s)
+        [2];
+     /*<<filename.ml:261:4>>*/ return  /*<<filename.ml:261:4>>*/ generic_basename
+             /*<<filename.ml:261:4>>*/ (is_dir_sep$0,
+             current_dir_name$0,
+             path) /*<<filename.ml:261:53>>*/ ;
     /*<<filename.ml:261:53>>*/ }
    var
     Win32 =
@@ -37328,7 +41322,11 @@
    function concat(dirname, filename){
     var l = caml_ml_string_length(dirname);
      /*<<filename.ml:291:2>>*/ if
-     (0 !== l && ! is_dir_sep$1(dirname, l - 1 | 0)){
+     (0 !== l
+      &&
+       !
+        /*<<filename.ml:291:14>>*/ is_dir_sep$1
+         /*<<filename.ml:291:14>>*/ (dirname, l - 1 | 0)){
      var
       _p_ =
          /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ caml_call2
@@ -37340,7 +41338,8 @@
              /*<<filename.ml:292:7>>*/ (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
     /*<<filename.ml:293:35>>*/ }
    function chop_suffix(name, suff){
-     /*<<filename.ml:296:2>>*/ return check_suffix$1(name, suff)
+     /*<<filename.ml:296:2>>*/ return  /*<<filename.ml:296:5>>*/ check_suffix$1
+              /*<<filename.ml:296:5>>*/ (name, suff)
             ? caml_call3
               (Stdlib_String[16],
                name,
@@ -37352,7 +41351,12 @@
    function extension_len(name){
     var i$3 = caml_ml_string_length(name) - 1 | 0, i0 = i$3;
      /*<<filename.ml:307:4>>*/ for(;;){
-     if(0 <= i0 && ! is_dir_sep$1(name, i0)){
+     if
+      (0 <= i0
+       &&
+        !
+         /*<<filename.ml:307:16>>*/ is_dir_sep$1
+          /*<<filename.ml:307:16>>*/ (name, i0)){
        /*<<filename.ml:308:12>>*/ if
        (46
         ===
@@ -37367,7 +41371,12 @@
     }
     var i$1 =  /*<<filename.ml:308:32>>*/ i0 - 1 | 0, i = i$1;
      /*<<filename.ml:302:4>>*/ for(;;){
-     if(0 <= i && ! is_dir_sep$1(name, i)){
+     if
+      (0 <= i
+       &&
+        !
+         /*<<filename.ml:302:16>>*/ is_dir_sep$1
+          /*<<filename.ml:302:16>>*/ (name, i)){
        /*<<filename.ml:303:12>>*/ if
        (46
         !==
@@ -37382,7 +41391,10 @@
     }
     /*<<filename.ml:311:37>>*/ }
    function extension(name){
-    var l =  /*<<filename.ml:314:10>>*/ extension_len(name);
+    var
+     l =
+        /*<<filename.ml:314:10>>*/  /*<<filename.ml:314:10>>*/ extension_len
+         /*<<filename.ml:314:10>>*/ (name);
      /*<<filename.ml:315:2>>*/ return 0 === l
             ? cst$18
             :  /*<<filename.ml:315:24>>*/ caml_call3
@@ -37392,7 +41404,10 @@
                l) /*<<filename.ml:315:66>>*/ ;
     /*<<filename.ml:315:66>>*/ }
    function chop_extension(name){
-    var l =  /*<<filename.ml:318:10>>*/ extension_len(name);
+    var
+     l =
+        /*<<filename.ml:318:10>>*/  /*<<filename.ml:318:10>>*/ extension_len
+         /*<<filename.ml:318:10>>*/ (name);
      /*<<filename.ml:319:2>>*/ return 0 === l
             ?  /*<<filename.ml:319:16>>*/ caml_call1
                /*<<filename.ml:319:16>>*/ (Stdlib[1],
@@ -37404,7 +41419,10 @@
                caml_ml_string_length(name) - l | 0) /*<<filename.ml:320:49>>*/ ;
     /*<<filename.ml:320:49>>*/ }
    function remove_extension(name){
-    var l =  /*<<filename.ml:323:10>>*/ extension_len(name);
+    var
+     l =
+        /*<<filename.ml:323:10>>*/  /*<<filename.ml:323:10>>*/ extension_len
+         /*<<filename.ml:323:10>>*/ (name);
      /*<<filename.ml:324:2>>*/ return 0 === l
             ? name
             : caml_call3
@@ -37428,8 +41446,8 @@
         /*<<filename.ml:334:12>>*/  /*<<filename.ml:334:12>>*/ caml_call1
          /*<<filename.ml:334:12>>*/ (Stdlib_Random[19][4], random_state)
        & 16777215;
-     /*<<filename.ml:335:18>>*/ return concat
-            (temp_dir,
+     /*<<filename.ml:335:18>>*/ return  /*<<filename.ml:335:18>>*/ concat
+             /*<<filename.ml:335:18>>*/ (temp_dir,
               /*<<filename.ml:335:18>>*/ caml_call4
                /*<<filename.ml:335:18>>*/ (Stdlib_Printf[4],
                _f_,
@@ -37468,7 +41486,8 @@
      /*<<filename.ml:345:4>>*/ for(;;){
      var
       name =
-         /*<<filename.ml:345:15>>*/ temp_file_name(temp_dir, prefix, suffix);
+         /*<<filename.ml:345:15>>*/  /*<<filename.ml:345:15>>*/ temp_file_name
+          /*<<filename.ml:345:15>>*/ (temp_dir, prefix, suffix);
       /*<<filename.ml:346:4>>*/ try{
        /*<<filename.ml:347:6>>*/  /*<<filename.ml:347:6>>*/ runtime.caml_sys_close
         /*<<filename.ml:347:6>>*/ ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open
@@ -37500,7 +41519,8 @@
      /*<<filename.ml:357:4>>*/ for(;;){
      var
       name =
-         /*<<filename.ml:357:15>>*/ temp_file_name(temp_dir, prefix, suffix);
+         /*<<filename.ml:357:15>>*/  /*<<filename.ml:357:15>>*/ temp_file_name
+          /*<<filename.ml:357:15>>*/ (temp_dir, prefix, suffix);
       /*<<filename.ml:358:4>>*/ try{
       var
        _n_ =
@@ -37537,7 +41557,8 @@
      /*<<filename.ml:368:4>>*/ for(;;){
      var
       name =
-         /*<<filename.ml:368:15>>*/ temp_file_name(temp_dir, prefix, suffix);
+         /*<<filename.ml:368:15>>*/  /*<<filename.ml:368:15>>*/ temp_file_name
+          /*<<filename.ml:368:15>>*/ (temp_dir, prefix, suffix);
       /*<<filename.ml:369:4>>*/ try{
        /*<<filename.ml:370:6>>*/  /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir
         /*<<filename.ml:370:6>>*/ (name, perms);
@@ -37631,7 +41652,8 @@
             (r$0 * x[2] - x[1]) / d$0] /*<<complex.ml:44:4>>*/ ;
     /*<<complex.ml:45:37>>*/ }
    function inv(x){
-     /*<<complex.ml:47:12>>*/ return div(one, x) /*<<complex.ml:47:21>>*/ ;
+     /*<<complex.ml:47:12>>*/ return  /*<<complex.ml:47:12>>*/ div
+             /*<<complex.ml:47:12>>*/ (one, x) /*<<complex.ml:47:21>>*/ ;
     /*<<complex.ml:47:21>>*/ }
    function norm2(x){
      /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2] /*<<complex.ml:49:14>>*/ ;
@@ -37714,11 +41736,15 @@
          /*<<complex.ml:77:38>>*/ (x[2], x[1]);
      /*<<complex.ml:77:12>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log
-              /*<<complex.ml:77:19>>*/ (norm(x)),
+              /*<<complex.ml:77:19>>*/ ( /*<<complex.ml:77:23>>*/ norm
+                /*<<complex.ml:77:23>>*/ (x)),
             _b_] /*<<complex.ml:77:12>>*/ ;
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
-     /*<<complex.ml:79:14>>*/ return exp(mul(y, log(x))) /*<<complex.ml:79:33>>*/ ;
+     /*<<complex.ml:79:14>>*/ return  /*<<complex.ml:79:18>>*/ exp
+             /*<<complex.ml:79:18>>*/ ( /*<<complex.ml:79:18>>*/ mul
+               /*<<complex.ml:79:18>>*/ (y,
+                /*<<complex.ml:79:25>>*/ log /*<<complex.ml:79:25>>*/ (x))) /*<<complex.ml:79:33>>*/ ;
     /*<<complex.ml:79:33>>*/ }
    var
     Stdlib_Complex =
@@ -38539,7 +42565,8 @@
      /*<<effect.ml:127:39>>*/ }
     function effc(eff, k, last_fiber){
       /*<<effect.ml:129:6>>*/ if(eff !== Initial_setup)
-       /*<<effect.ml:133:13>>*/ return error(0) /*<<effect.ml:133:21>>*/ ;
+       /*<<effect.ml:133:13>>*/ return  /*<<effect.ml:133:13>>*/ error
+               /*<<effect.ml:133:13>>*/ (0) /*<<effect.ml:133:21>>*/ ;
      k[2] = last_fiber;
       /*<<effect.ml:132:10>>*/ throw [0, E, k];
      /*<<effect.ml:133:21>>*/ }
@@ -38558,7 +42585,8 @@
      var k = exn[2];
       /*<<effect.ml:137:23>>*/ return k /*<<effect.ml:137:23>>*/ ;
     }
-     /*<<effect.ml:138:11>>*/ return error(0) /*<<effect.ml:138:19>>*/ ;
+     /*<<effect.ml:138:11>>*/ return  /*<<effect.ml:138:11>>*/ error
+             /*<<effect.ml:138:11>>*/ (0) /*<<effect.ml:138:19>>*/ ;
     /*<<effect.ml:138:19>>*/ }
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
@@ -38582,8 +42610,8 @@
              /*<<effect.ml:165:4>>*/ () /*<<effect.ml:165:40>>*/ ;
     /*<<effect.ml:165:40>>*/ }
    function continue_with(k, v, handler){
-     /*<<effect.ml:168:4>>*/ return continue_gen
-            (k,
+     /*<<effect.ml:168:4>>*/ return  /*<<effect.ml:168:4>>*/ continue_gen
+             /*<<effect.ml:168:4>>*/ (k,
              function(x){
                /*<<effect.ml:168:29>>*/ return x /*<<effect.ml:168:29>>*/ ;
               /*<<effect.ml:168:30>>*/ },
@@ -38591,8 +42619,8 @@
              handler) /*<<effect.ml:168:41>>*/ ;
     /*<<effect.ml:168:41>>*/ }
    function discontinue_with(k, v, handler){
-     /*<<effect.ml:171:4>>*/ return continue_gen
-            (k,
+     /*<<effect.ml:171:4>>*/ return  /*<<effect.ml:171:4>>*/ continue_gen
+             /*<<effect.ml:171:4>>*/ (k,
              function(e){
                /*<<effect.ml:171:29>>*/ throw  /*<<effect.ml:171:29>>*/ caml_maybe_attach_backtrace
                       /*<<effect.ml:171:29>>*/ (e, 1);
@@ -38601,8 +42629,8 @@
              handler) /*<<effect.ml:171:47>>*/ ;
     /*<<effect.ml:171:47>>*/ }
    function discontinue_with_backtrace$0(k, v, bt, handler){
-     /*<<effect.ml:174:4>>*/ return continue_gen
-            (k,
+     /*<<effect.ml:174:4>>*/ return  /*<<effect.ml:174:4>>*/ continue_gen
+             /*<<effect.ml:174:4>>*/ (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

From bbb33529e7d501d3894a9b396c47d14449bd4e81 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 11:42:30 +0200
Subject: [PATCH 11/35] Add space to remove ambiguity

Chrome will stop right after a return before returning from a function.
This will yield to an ambiguity if there is a statement there. To
prevent this, we add a space after a return statement when source maps
are enabled.
---
 compiler/lib/js_output.ml               | 14 ++++++++++----
 compiler/tests-compiler/sourcemap.ml    |  4 ++--
 compiler/tests-sourcemap/dump.reference | 12 ++++++------
 3 files changed, 18 insertions(+), 12 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 64ec8c7381..9d82529af1 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -1371,7 +1371,13 @@ struct
 
   and statement ?(last = false) f (s, loc) =
     let can_omit_semi = PP.compact f && last in
-    let last_semi () = if can_omit_semi then () else PP.string f ";" in
+    let last_semi ?(ret = false) () =
+      if can_omit_semi
+      then ()
+      else if ret && source_map_enabled
+      then PP.string f "; "
+      else PP.string f ";"
+    in
     if stop_on_statement s then output_debug_info f loc;
     match s with
     | Block b -> block f b
@@ -1579,7 +1585,7 @@ struct
         | None ->
             PP.string f "return";
             output_debug_info f loc;
-            last_semi ()
+            last_semi ~ret:true ()
         | Some (EFun (i, ({ async = false; generator = false }, l, b, pc))) ->
             PP.start_group f 1;
             PP.start_group f 0;
@@ -1600,7 +1606,7 @@ struct
             output_debug_info f pc;
             PP.string f "}";
             output_debug_info f loc;
-            last_semi ();
+            last_semi ~ret:true ();
             PP.end_group f
         | Some e ->
             PP.start_group f 7;
@@ -1609,7 +1615,7 @@ struct
             PP.start_group f 0;
             expression Expression f e;
             output_debug_info f loc;
-            last_semi ();
+            last_semi ~ret:true ();
             PP.end_group f;
             PP.end_group f
             (* There MUST be a space between the return and its
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 6f6f3b677c..f80483626e 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -75,7 +75,7 @@ let%expect_test _ =
         3: (function(globalThis){
         4:    "use strict";
         5:    var runtime = globalThis.jsoo_runtime;
-        6:    function id(x){return x;}
+        6:    function id(x){return x; }
         7:    var Test = [0, id];
         8:    runtime.caml_register_global(0, Test, "Test");
         9:    return;
@@ -89,7 +89,7 @@ let%expect_test _ =
       /dune-root/test.ml:1:11 -> 6:18
       /dune-root/test.ml:1:7 -> 6:25
       /dune-root/test.ml:1:11 -> 6:26
-      /dune-root/test.ml:1:12 -> 6:27
+      /dune-root/test.ml:1:12 -> 6:28
       /dune-root/test.ml:1:4 -> 7:18
       null -> 10:2
     |}]
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index 9e60e838ac..d04415b0e3 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -1,8 +1,8 @@
 sourcemap for test.bc.js
-/my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0;}
-/my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0;}
-/my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0;}
-/my/sourceRoot#b.ml:1:6 -> 24:   function f(x){return <>x - 1 | 0;}
-/my/sourceRoot#b.ml:1:10 -> 33:   function f(x){return x - 1 | 0<>;}
-/my/sourceRoot#b.ml:1:15 -> 34:   function f(x){return x - 1 | 0;<>}
+/my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0; }
+/my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
+/my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }
+/my/sourceRoot#b.ml:1:6 -> 24:   function f(x){return <>x - 1 | 0; }
+/my/sourceRoot#b.ml:1:10 -> 33:   function f(x){return x - 1 | 0<>; }
+/my/sourceRoot#b.ml:1:15 -> 35:   function f(x){return x - 1 | 0; <>}
 /my/sourceRoot#b.ml:1:4 -> 23:   var Testlib_B = [0, <>f];

From 7e3c91b8187e259dab9f876f84f0036eaff4295a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 11:53:18 +0200
Subject: [PATCH 12/35] Source map: only specify the names of bindings

The Chrome debugger uses this information to get the original names of
variables. It does not look at all the identifier occurences but only at
where they are bound.

Also, we provide the original name, not the shortened name, which is not
very useful.
---
 compiler/lib/js_output.ml               | 59 ++++++++++++-------------
 compiler/tests-compiler/sourcemap.ml    |  2 -
 compiler/tests-sourcemap/dump.reference |  2 -
 3 files changed, 29 insertions(+), 34 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 9d82529af1..0204f3eef6 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -200,25 +200,24 @@ struct
                ; ori_name = get_name_index nm
                })
 
-  let ident f = function
+  let ident f ~kind = function
     | S { name = Utf8 name; var = Some v; _ } ->
-        output_debug_info_ident f name (Code.Var.get_loc v);
+        (match kind, Code.Var.get_name v with
+        | `Binding, Some nm -> output_debug_info_ident f nm (Code.Var.get_loc v)
+        | `Reference, _ | `Binding, None -> ());
         if false then PP.string f (Printf.sprintf "/* %d */" (Code.Var.idx v));
         PP.string f name
-    | S { name = Utf8 name; var = None; loc = Pi pi } ->
-        output_debug_info_ident f name (Some pi);
-        PP.string f name
-    | S { name = Utf8 name; var = None; loc = U | N } -> PP.string f name
+    | S { name = Utf8 name; var = None; _ } -> PP.string f name
     | V v ->
         assert accept_unnamed_var;
         PP.string f ("<" ^ Code.Var.to_string v ^ ">")
 
-  let opt_identifier f i =
+  let opt_identifier f ~kind i =
     match i with
     | None -> ()
     | Some i ->
         PP.space f;
-        ident f i
+        ident f ~kind i
 
   let early_error _ = assert false
 
@@ -578,7 +577,7 @@ struct
 
   let rec expression (l : prec) f e =
     match e with
-    | EVar v -> ident f v
+    | EVar v -> ident f ~kind:`Reference v
     | ESeq (e1, e2) ->
         if Prec.(l > Expression)
         then (
@@ -853,9 +852,9 @@ struct
     | EAssignTarget t -> (
         let property f p =
           match p with
-          | TargetPropertyId (Prop_and_ident id, None) -> ident f id
+          | TargetPropertyId (Prop_and_ident id, None) -> ident f ~kind:`Reference id
           | TargetPropertyId (Prop_and_ident id, Some (e, _)) ->
-              ident f id;
+              ident f ~kind:`Reference id;
               PP.space f;
               PP.string f "=";
               PP.space f;
@@ -886,9 +885,9 @@ struct
         let element f p =
           match p with
           | TargetElementHole -> ()
-          | TargetElementId (id, None) -> ident f id
+          | TargetElementId (id, None) -> ident f ~kind:`Reference id
           | TargetElementId (id, Some (e, _)) ->
-              ident f id;
+              ident f ~kind:`Reference id;
               PP.space f;
               PP.string f "=";
               PP.space f;
@@ -1185,11 +1184,11 @@ struct
 
   and variable_declaration f ?(in_ = true) x =
     match x with
-    | DeclIdent (i, None) -> ident f i
+    | DeclIdent (i, None) -> ident f ~kind:`Binding i
     | DeclIdent (i, Some (e, loc)) ->
         PP.start_group f 1;
         PP.start_group f 0;
-        ident f i;
+        ident f ~kind:`Binding i;
         PP.space f;
         PP.string f "=";
         PP.end_group f;
@@ -1238,9 +1237,9 @@ struct
         PP.string f ":";
         PP.space f;
         binding_element f e
-    | Prop_ident (Prop_and_ident i, None) -> ident f i
+    | Prop_ident (Prop_and_ident i, None) -> ident f ~kind:`Binding i
     | Prop_ident (Prop_and_ident i, Some (e, loc)) ->
-        ident f i;
+        ident f ~kind:`Binding i;
         PP.space f;
         PP.string f "=";
         PP.space f;
@@ -1260,7 +1259,7 @@ struct
 
   and binding f x =
     match x with
-    | BindingIdent id -> ident f id
+    | BindingIdent id -> ident f ~kind:`Binding id
     | BindingPattern p -> pattern f p
 
   and binding_array_elt f x =
@@ -1278,7 +1277,7 @@ struct
           ~force_last_comma:(fun _ -> false)
           binding_property
           list
-          ident
+          (ident ~kind:`Binding)
           rest;
         PP.string f "}";
         PP.end_group f
@@ -1591,7 +1590,7 @@ struct
             PP.start_group f 0;
             PP.start_group f 0;
             PP.string f "return function";
-            opt_identifier f i;
+            opt_identifier f ~kind:`Binding i;
             PP.end_group f;
             PP.break f;
             PP.start_group f 1;
@@ -1732,19 +1731,19 @@ struct
         | SideEffect -> ()
         | Default i ->
             PP.space f;
-            ident f i
+            ident f ~kind:`Binding i
         | Namespace (def, i) ->
             Option.iter def ~f:(fun def ->
                 PP.space f;
-                ident f def;
+                ident f ~kind:`Binding def;
                 PP.string f ",");
             PP.space f;
             PP.string f "* as ";
-            ident f i
+            ident f ~kind:`Binding i
         | Named (def, l) ->
             Option.iter def ~f:(fun def ->
                 PP.space f;
-                ident f def;
+                ident f ~kind:`Binding def;
                 PP.string f ",");
             PP.space f;
             PP.string f "{";
@@ -1756,11 +1755,11 @@ struct
                 if match i with
                    | S { name; _ } when Stdlib.Utf8_string.equal name s -> true
                    | _ -> false
-                then ident f i
+                then ident f ~kind:`Binding i
                 else (
                   pp_ident_or_string_lit f s;
                   PP.string f " as ";
-                  ident f i))
+                  ident f ~kind:`Binding i))
               l;
             PP.space f;
             PP.string f "}");
@@ -1788,9 +1787,9 @@ struct
                 if match i with
                    | S { name; _ } when Stdlib.Utf8_string.equal name s -> true
                    | _ -> false
-                then ident f i
+                then ident f ~kind:`Reference i
                 else (
-                  ident f i;
+                  ident f ~kind:`Reference i;
                   PP.string f " as ";
                   pp_ident_or_string_lit f s))
               l;
@@ -1917,7 +1916,7 @@ struct
       | { async = true; generator = true } -> "async function*"
       | { async = false; generator = true } -> "function*"
     in
-    function_declaration f prefix ident name l b loc'
+    function_declaration f prefix (ident ~kind:`Binding) name l b loc'
 
   and class_declaration f i x =
     PP.start_group f 1;
@@ -1928,7 +1927,7 @@ struct
     | None -> ()
     | Some i ->
         PP.space f;
-        ident f i);
+        ident f ~kind:`Binding i);
     PP.end_group f;
     Option.iter x.extends ~f:(fun e ->
         PP.space f;
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index f80483626e..9716972ada 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -87,10 +87,8 @@ let%expect_test _ =
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
-      /dune-root/test.ml:1:7 -> 6:25
       /dune-root/test.ml:1:11 -> 6:26
       /dune-root/test.ml:1:12 -> 6:28
-      /dune-root/test.ml:1:4 -> 7:18
       null -> 10:2
     |}]
 
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index d04415b0e3..261bd71fb0 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -2,7 +2,5 @@ sourcemap for test.bc.js
 /my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }
-/my/sourceRoot#b.ml:1:6 -> 24:   function f(x){return <>x - 1 | 0; }
 /my/sourceRoot#b.ml:1:10 -> 33:   function f(x){return x - 1 | 0<>; }
 /my/sourceRoot#b.ml:1:15 -> 35:   function f(x){return x - 1 | 0; <>}
-/my/sourceRoot#b.ml:1:4 -> 23:   var Testlib_B = [0, <>f];

From 7c58966e8ba888ec90f5b0f46ff8c35cd693fd37 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 11:32:04 +0200
Subject: [PATCH 13/35] Debug info output improvements

- Do not repeat the output if the location has not changed
- Start a new source map mapping before outputing the debug info as a
  comment (we need to start a mapping right after a return statement,
  moving it after a comment would not work)
- Outputting an identifier name will not change the location (there is
  no point in doing that)
---
 compiler/lib/js_output.ml                    |   123 +-
 compiler/lib/parse_info.ml                   |    13 +
 compiler/lib/parse_info.mli                  |     2 +
 compiler/tests-compiler/gh747.ml             |   379 +-
 compiler/tests-compiler/js_parser_printer.ml |    44 +-
 compiler/tests-compiler/sourcemap.ml         |     4 +-
 compiler/tests-full/stdlib.cma.expected.js   | 26467 ++++++-----------
 compiler/tests-sourcemap/dump.reference      |     4 +-
 8 files changed, 9690 insertions(+), 17346 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 0204f3eef6..d7694017b9 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -146,59 +146,86 @@ struct
 
   let debug_enabled = Config.Flag.debuginfo ()
 
+  let current_loc = ref U
+
+  let on_ident = ref false
+
   let output_debug_info f loc =
-    (if debug_enabled
-     then
-       match loc with
-       | Pi { Parse_info.src = None | Some ""; name = None | Some ""; _ } | N -> ()
-       | U ->
-           PP.non_breaking_space f;
-           PP.string f "/*<<?>>*/";
-           PP.non_breaking_space f
-       | Pi { Parse_info.src; name; line; col; _ } ->
-           let file =
-             match name, src with
-             | (None | Some ""), Some file -> file
-             | Some file, (None | Some "") -> file
-             | Some file, Some _file -> file
-             | None, None -> assert false
-           in
-           PP.non_breaking_space f;
-           PP.string f (Format.sprintf "/*<<%s:%d:%d>>*/" file line col);
-           PP.non_breaking_space f);
-    if source_map_enabled
-    then
+    let loc =
+      (* We force a new mapping after an identifier, to avoid its name
+         to bleed over other identifiers, using the current location
+         when none is provided. *)
       match loc with
-      | N -> ()
-      | U | Pi { Parse_info.src = None | Some ""; _ } ->
-          push_mapping (PP.pos f) (Source_map.Gen { gen_line = -1; gen_col = -1 })
-      | Pi { Parse_info.src = Some file; line; col; _ } ->
-          push_mapping
-            (PP.pos f)
-            (Source_map.Gen_Ori
-               { gen_line = -1
-               ; gen_col = -1
-               ; ori_source = get_file_index file
-               ; ori_line = line
-               ; ori_col = col
-               })
+      | N when !on_ident -> !current_loc
+      | _ -> loc
+    in
+    match loc with
+    | N -> ()
+    | _ ->
+        let location_changed = Poly.(loc <> !current_loc) in
+        (if source_map_enabled && (!on_ident || location_changed)
+         then
+           match loc with
+           | N | U | Pi { Parse_info.src = None | Some ""; _ } ->
+               push_mapping (PP.pos f) (Source_map.Gen { gen_line = -1; gen_col = -1 })
+           | Pi { Parse_info.src = Some file; line; col; _ } ->
+               push_mapping
+                 (PP.pos f)
+                 (Source_map.Gen_Ori
+                    { gen_line = -1
+                    ; gen_col = -1
+                    ; ori_source = get_file_index file
+                    ; ori_line = line
+                    ; ori_col = col
+                    }));
+        (if debug_enabled && location_changed
+         then
+           match loc with
+           | N | U ->
+               PP.non_breaking_space f;
+               PP.string f "/*<<?>>*/";
+               PP.non_breaking_space f
+           | Pi pi ->
+               PP.non_breaking_space f;
+               PP.string f (Format.sprintf "/*<<%s>>*/" (Parse_info.to_string pi));
+               PP.non_breaking_space f);
+        current_loc := loc;
+        on_ident := false
 
   let output_debug_info_ident f nm loc =
     if source_map_enabled
-    then
-      match loc with
-      | None | Some { Parse_info.src = Some "" | None; _ } -> ()
-      | Some { Parse_info.src = Some file; line; col; _ } ->
-          push_mapping
-            (PP.pos f)
-            (Source_map.Gen_Ori_Name
-               { gen_line = -1
-               ; gen_col = -1
-               ; ori_source = get_file_index file
-               ; ori_line = line
-               ; ori_col = col
-               ; ori_name = get_name_index nm
-               })
+    then (
+      let loc =
+        (* Keep the current location if possible, since we don't care
+           about the actual identifier's location *)
+        match !current_loc, loc with
+        | (N | U | Pi { Parse_info.src = Some "" | None; _ }), Some _ -> loc
+        | Pi ({ Parse_info.src = Some _; _ } as loc), _ -> Some loc
+        | _, None -> None
+      in
+      on_ident := true;
+      push_mapping
+        (PP.pos f)
+        (match loc with
+        | None | Some { Parse_info.src = Some "" | None; _ } ->
+            (* Use a dummy location. It is going to be ignored anyway *)
+            Source_map.Gen_Ori_Name
+              { gen_line = -1
+              ; gen_col = -1
+              ; ori_source = 0
+              ; ori_line = 1
+              ; ori_col = 0
+              ; ori_name = get_name_index nm
+              }
+        | Some { Parse_info.src = Some file; line; col; _ } ->
+            Source_map.Gen_Ori_Name
+              { gen_line = -1
+              ; gen_col = -1
+              ; ori_source = get_file_index file
+              ; ori_line = line
+              ; ori_col = col
+              ; ori_name = get_name_index nm
+              }))
 
   let ident f ~kind = function
     | S { name = Utf8 name; var = Some v; _ } ->
diff --git a/compiler/lib/parse_info.ml b/compiler/lib/parse_info.ml
index 0dc7280353..33680362f1 100644
--- a/compiler/lib/parse_info.ml
+++ b/compiler/lib/parse_info.ml
@@ -51,3 +51,16 @@ let t_of_position ~src pos =
   ; col = pos.Lexing.pos_cnum - pos.Lexing.pos_bol
   ; idx = 0
   }
+
+let to_string { name; src; line; col; _ } =
+  match name, src with
+  | (None | Some ""), (None | Some "") -> "?"
+  | _ ->
+      let file =
+        match name, src with
+        | (None | Some ""), Some file -> file
+        | Some file, (None | Some "") -> file
+        | Some file, Some _file -> file
+        | None, None -> assert false
+      in
+      Format.sprintf "%s:%d:%d" file line col
diff --git a/compiler/lib/parse_info.mli b/compiler/lib/parse_info.mli
index ed47c535e3..33e4970a6d 100644
--- a/compiler/lib/parse_info.mli
+++ b/compiler/lib/parse_info.mli
@@ -34,3 +34,5 @@ val t_of_pos : Lexing.position -> t
 val start_position : t -> Lexing.position
 
 val t_of_position : src:string option -> Lexing.position -> t
+
+val to_string : t -> string
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 3816f7d848..23467138cf 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -60,8 +60,8 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
       5:   (globalThis){
       6:    "use strict";
       7:    var
-      8:     runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-      9:     caml_string_of_jsbytes =  /*<<?>>*/ runtime.caml_string_of_jsbytes;
+      8:     runtime = globalThis.jsoo_runtime,
+      9:     caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
      10:    function caml_call1(f, a0){
      11:     return (f.l >= 0 ? f.l : f.l = f.length) === 1
      12:             ? f(a0)
@@ -79,47 +79,32 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      24:     Stdlib = global_data.Stdlib,
      25:     Stdlib_Random = global_data.Stdlib__Random,
      26:     Stdlib_String = global_data.Stdlib__String;
-     27:     /*<<test.ml:3:0>>*/  /*<<test.ml:3:0>>*/ caml_call1
-     28:      /*<<test.ml:3:0>>*/ (Stdlib[46], greeting);
-     29:     /*<<test.ml:5:0>>*/  /*<<test.ml:5:0>>*/ caml_call1
-     30:      /*<<test.ml:5:0>>*/ (Stdlib[46], greeting$0);
-     31:    var
-     32:     _a_ =
-     33:        /*<<test.ml:7:47>>*/  /*<<test.ml:7:47>>*/ caml_call1
-     34:         /*<<test.ml:7:47>>*/ (Stdlib_Random[5], 30),
-     35:     unicodeLength =
-     36:        /*<<test.ml:7:34>>*/  /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
-     37:         /*<<test.ml:7:34>>*/ ( /*<<test.ml:7:34>>*/ caml_call2
-     38:           /*<<test.ml:7:34>>*/ (Stdlib_String[1], _a_, 105)),
-     39:     _b_ =
-     40:        /*<<test.ml:8:56>>*/  /*<<test.ml:8:56>>*/ caml_call1
-     41:         /*<<test.ml:8:56>>*/ (Stdlib[33], unicodeLength),
-     42:     _c_ =
-     43:        /*<<test.ml:8:14>>*/  /*<<test.ml:8:14>>*/ caml_call2
-     44:         /*<<test.ml:8:14>>*/ (Stdlib[28],
-     45:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
-     46:         _b_);
-     47:     /*<<test.ml:8:0>>*/  /*<<test.ml:8:0>>*/ caml_call1
-     48:      /*<<test.ml:8:0>>*/ (Stdlib[46], _c_);
-     49:    var
-     50:     _d_ =
-     51:        /*<<test.ml:9:39>>*/  /*<<test.ml:9:39>>*/ caml_call2
-     52:         /*<<test.ml:9:39>>*/ (Stdlib_String[1], 1, 138),
-     53:     _e_ =
-     54:        /*<<test.ml:9:14>>*/  /*<<test.ml:9:14>>*/ caml_call2
-     55:         /*<<test.ml:9:14>>*/ (Stdlib_String[1], 1, 201),
-     56:     _f_ =
-     57:        /*<<test.ml:9:13>>*/  /*<<test.ml:9:13>>*/ caml_call2
-     58:         /*<<test.ml:9:13>>*/ (Stdlib[28], _e_, _d_);
-     59:     /*<<test.ml:9:0>>*/  /*<<test.ml:9:0>>*/ caml_call1
-     60:      /*<<test.ml:9:0>>*/ (Stdlib[46], _f_);
-     61:    var Test = [0, greeting$0, unicodeLength];
-     62:    runtime.caml_register_global(8, Test, "Test");
-     63:    return;
-     64:    /*<<?>>*/ }
-     65:   (globalThis));
-     66:
-     67: //# sourceMappingURL=test.map
+     27:     /*<<test.ml:3:0>>*/ caml_call1(Stdlib[46], greeting);
+     28:     /*<<test.ml:5:0>>*/ caml_call1(Stdlib[46], greeting$0);
+     29:    var
+     30:     _a_ =  /*<<test.ml:7:47>>*/ caml_call1(Stdlib_Random[5], 30),
+     31:     unicodeLength =
+     32:        /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
+     33:        (caml_call2(Stdlib_String[1], _a_, 105)),
+     34:     _b_ =  /*<<test.ml:8:56>>*/ caml_call1(Stdlib[33], unicodeLength),
+     35:     _c_ =
+     36:        /*<<test.ml:8:14>>*/ caml_call2
+     37:        (Stdlib[28],
+     38:         caml_string_of_jsbytes('String.length("\xc9\x8a") should be two:'),
+     39:         _b_);
+     40:     /*<<test.ml:8:0>>*/ caml_call1(Stdlib[46], _c_);
+     41:    var
+     42:     _d_ =  /*<<test.ml:9:39>>*/ caml_call2(Stdlib_String[1], 1, 138),
+     43:     _e_ =  /*<<test.ml:9:14>>*/ caml_call2(Stdlib_String[1], 1, 201),
+     44:     _f_ =  /*<<test.ml:9:13>>*/ caml_call2(Stdlib[28], _e_, _d_);
+     45:     /*<<test.ml:9:0>>*/ caml_call1(Stdlib[46], _f_);
+     46:    var Test = [0, greeting$0, unicodeLength];
+     47:    runtime.caml_register_global(8, Test, "Test");
+     48:    return;
+     49:    /*<<?>>*/ }
+     50:   (globalThis));
+     51:
+     52: //# sourceMappingURL=test.map
     |}]
 
 let%expect_test _ =
@@ -240,8 +225,8 @@ end
       5:   (globalThis){
       6:    "use strict";
       7:    var
-      8:     runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-      9:     caml_string_of_jsbytes =  /*<<?>>*/ runtime.caml_string_of_jsbytes;
+      8:     runtime = globalThis.jsoo_runtime,
+      9:     caml_string_of_jsbytes = runtime.caml_string_of_jsbytes;
      10:    function caml_call2(f, a0, a1){
      11:     return (f.l >= 0 ? f.l : f.l = f.length) === 2
      12:             ? f(a0, a1)
@@ -263,167 +248,145 @@ end
      28:     partial = [4, 0, 0, 0, [12, 45, [4, 0, 0, 0, 0]]],
      29:     Stdlib_Printf = global_data.Stdlib__Printf,
      30:     executable_name =
-     31:        /*<<test.ml:14:22>>*/  /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name
-     32:         /*<<test.ml:14:22>>*/ (0),
-     33:     os_type =
-     34:        /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config
-     35:          /*<<test.ml:15:22>>*/ (0)
-     36:        [1],
-     37:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
-     38:     unix = runtime.caml_sys_const_ostype_unix(0),
-     39:     win32 = runtime.caml_sys_const_ostype_win32(0),
-     40:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
-     41:     max_array_length = runtime.caml_sys_const_max_wosize(0),
-     42:     max_floatarray_length = max_array_length / 2 | 0,
-     43:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
-     44:     Unhandled =
-     45:        /*<<test.ml:28:12>>*/ [248,
-     46:        caml_string_of_jsbytes("Test.Unhandled"),
-     47:        runtime.caml_fresh_oo_id(0)],
-     48:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
-     49:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
-     50:     cst_Raised_by_primitive_operat =
-     51:       caml_string_of_jsbytes("Raised by primitive operation at"),
-     52:     cst_Called_from = caml_string_of_jsbytes("Called from"),
-     53:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
-     54:     _a_ =
-     55:       [0,
-     56:        [2,
-     57:         0,
-     58:         [12,
-     59:          32,
-     60:          [2,
-     61:           0,
-     62:           [11,
-     63:            caml_string_of_jsbytes(' in file "'),
-     64:            [2,
-     65:             0,
-     66:             [12,
-     67:              34,
-     68:              [2,
-     69:               0,
-     70:               [11,
-     71:                caml_string_of_jsbytes(", line "),
-     72:                [4,
-     73:                 0,
-     74:                 0,
-     75:                 0,
-     76:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
-     77:        caml_string_of_jsbytes
-     78:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
-     79:     _b_ =
-     80:       [0,
-     81:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
-     82:        caml_string_of_jsbytes("%s unknown location")],
-     83:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
-     84:     _d_ =
-     85:       [0,
-     86:        [11,
-     87:         caml_string_of_jsbytes
-     88:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
-     89:         0],
-     90:        caml_string_of_jsbytes
-     91:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
-     92:    function format_backtrace_slot(pos, slot){
-     93:     function info(is_raise){
-     94:       /*<<test.ml:46:4>>*/ return is_raise
-     95:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     96:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
-     97:      /*<<test.ml:49:75>>*/ }
-     98:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     99:      var
-    100:       _h_ = slot[5],
-    101:       _i_ = slot[4],
-    102:       _j_ = slot[3],
-    103:       _k_ = slot[6] ? cst_inlined : cst,
-    104:       _l_ = slot[2],
-    105:       _m_ = slot[7],
-    106:       _n_ =
-    107:          /*<<test.ml:59:14>>*/  /*<<test.ml:59:14>>*/ info
-    108:           /*<<test.ml:59:14>>*/ (slot[1]);
-    109:       /*<<test.ml:58:6>>*/ return [0,
-    110:               /*<<test.ml:58:11>>*/ caml_call8
-    111:                /*<<test.ml:58:11>>*/ (Stdlib_Printf[4],
-    112:                _a_,
-    113:                _n_,
-    114:                _m_,
-    115:                _l_,
-    116:                _k_,
-    117:                _j_,
-    118:                _i_,
-    119:                _h_)] /*<<test.ml:58:6>>*/ ;
-    120:     }
-    121:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0 /*<<test.ml:54:50>>*/ ;
-    122:     var
-    123:      _o_ =
-    124:         /*<<test.ml:56:51>>*/  /*<<test.ml:56:51>>*/ info
-    125:          /*<<test.ml:56:51>>*/ (0);
-    126:      /*<<test.ml:56:8>>*/ return [0,
-    127:              /*<<test.ml:56:13>>*/ caml_call2
-    128:               /*<<test.ml:56:13>>*/ (Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:8>>*/ ;
-    129:     /*<<test.ml:61:52>>*/ }
-    130:    function print_exception_backtrace(outchan, backtrace){
-    131:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    132:       /*<<test.ml:66:6>>*/ return  /*<<test.ml:66:6>>*/ caml_call2
-    133:               /*<<test.ml:66:6>>*/ (Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
-    134:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
-    135:     if(_f_ >= 0){
-    136:      var i = _e_;
-    137:      for(;;){
-    138:       var
-    139:        match =
-    140:           /*<<test.ml:70:14>>*/  /*<<test.ml:70:14>>*/ format_backtrace_slot
-    141:            /*<<test.ml:70:14>>*/ (i, runtime.caml_check_bound(a, i)[1 + i]);
-    142:       if(match){
-    143:        var str = match[1];
-    144:         /*<<test.ml:72:24>>*/  /*<<test.ml:72:24>>*/ caml_call3
-    145:          /*<<test.ml:72:24>>*/ (Stdlib_Printf[1], outchan, _c_, str);
-    146:       }
-    147:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
-    148:       if(_f_ === i) break;
-    149:       i = _g_;
-    150:      }
-    151:     }
-    152:     return 0;
-    153:     /*<<test.ml:73:10>>*/ }
-    154:    function compare(left, right, e1, e2){
-    155:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    156:      var v1 = e1[1];
-    157:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1 /*<<test.ml:80:23>>*/ ;
-    158:      var v2 = e2[1];
-    159:       /*<<test.ml:78:24>>*/ return  /*<<test.ml:78:24>>*/ caml_call2
-    160:               /*<<test.ml:78:24>>*/ (left, v1, v2) /*<<test.ml:81:24>>*/ ;
-    161:     }
-    162:     var v1$0 = e1[1];
-    163:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1 /*<<test.ml:81:23>>*/ ;
-    164:     var v2$0 = e2[1];
-    165:      /*<<test.ml:79:26>>*/ return  /*<<test.ml:79:26>>*/ caml_call2
-    166:              /*<<test.ml:79:26>>*/ (right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
-    167:     /*<<test.ml:81:24>>*/ }
-    168:    var
-    169:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
-    170:     Test =
-    171:       [0,
-    172:        executable_name,
-    173:        os_type,
-    174:        backend_type,
-    175:        0,
-    176:        32,
-    177:        32,
-    178:        unix,
-    179:        win32,
-    180:        cygwin,
-    181:        max_array_length,
-    182:        max_floatarray_length,
-    183:        max_string_length,
-    184:        Unhandled,
-    185:        format_backtrace_slot,
-    186:        print_exception_backtrace,
-    187:        Either];
-    188:    runtime.caml_register_global(12, Test, "Test");
-    189:    return;
-    190:    /*<<?>>*/ }
-    191:   (globalThis));
-    192:
-    193: //# sourceMappingURL=test.map
+     31:        /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name(0),
+     32:     os_type =  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config(0)[1],
+     33:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
+     34:     unix = runtime.caml_sys_const_ostype_unix(0),
+     35:     win32 = runtime.caml_sys_const_ostype_win32(0),
+     36:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
+     37:     max_array_length = runtime.caml_sys_const_max_wosize(0),
+     38:     max_floatarray_length = max_array_length / 2 | 0,
+     39:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
+     40:     Unhandled =
+     41:        /*<<test.ml:28:12>>*/ [248,
+     42:        caml_string_of_jsbytes("Test.Unhandled"),
+     43:        runtime.caml_fresh_oo_id(0)],
+     44:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
+     45:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
+     46:     cst_Raised_by_primitive_operat =
+     47:       caml_string_of_jsbytes("Raised by primitive operation at"),
+     48:     cst_Called_from = caml_string_of_jsbytes("Called from"),
+     49:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
+     50:     _a_ =
+     51:       [0,
+     52:        [2,
+     53:         0,
+     54:         [12,
+     55:          32,
+     56:          [2,
+     57:           0,
+     58:           [11,
+     59:            caml_string_of_jsbytes(' in file "'),
+     60:            [2,
+     61:             0,
+     62:             [12,
+     63:              34,
+     64:              [2,
+     65:               0,
+     66:               [11,
+     67:                caml_string_of_jsbytes(", line "),
+     68:                [4,
+     69:                 0,
+     70:                 0,
+     71:                 0,
+     72:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
+     73:        caml_string_of_jsbytes
+     74:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
+     75:     _b_ =
+     76:       [0,
+     77:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
+     78:        caml_string_of_jsbytes("%s unknown location")],
+     79:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
+     80:     _d_ =
+     81:       [0,
+     82:        [11,
+     83:         caml_string_of_jsbytes
+     84:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
+     85:         0],
+     86:        caml_string_of_jsbytes
+     87:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
+     88:    function format_backtrace_slot(pos, slot){
+     89:     function info(is_raise){
+     90:       /*<<test.ml:46:4>>*/ return is_raise
+     91:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
+     92:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
+     93:     }
+     94:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
+     95:      var
+     96:       _h_ = slot[5],
+     97:       _i_ = slot[4],
+     98:       _j_ = slot[3],
+     99:       _k_ = slot[6] ? cst_inlined : cst,
+    100:       _l_ = slot[2],
+    101:       _m_ = slot[7],
+    102:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
+    103:       /*<<test.ml:58:6>>*/ return [0,
+    104:               /*<<test.ml:58:11>>*/ caml_call8
+    105:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)] /*<<test.ml:58:6>>*/ ;
+    106:     }
+    107:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    108:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
+    109:      /*<<test.ml:56:8>>*/ return [0,
+    110:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:8>>*/ ;
+    111:     /*<<test.ml:61:52>>*/ }
+    112:    function print_exception_backtrace(outchan, backtrace){
+    113:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    114:       /*<<test.ml:66:6>>*/ return caml_call2(Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
+    115:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
+    116:     if(_f_ >= 0){
+    117:      var i = _e_;
+    118:      for(;;){
+    119:       var
+    120:        match =
+    121:           /*<<test.ml:70:14>>*/ format_backtrace_slot
+    122:           (i, runtime.caml_check_bound(a, i)[1 + i]);
+    123:       if(match){
+    124:        var str = match[1];
+    125:         /*<<test.ml:72:24>>*/ caml_call3(Stdlib_Printf[1], outchan, _c_, str);
+    126:       }
+    127:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
+    128:       if(_f_ === i) break;
+    129:       i = _g_;
+    130:      }
+    131:     }
+    132:     return 0;
+    133:     /*<<test.ml:73:10>>*/ }
+    134:    function compare(left, right, e1, e2){
+    135:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    136:      var v1 = e1[1];
+    137:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    138:      var v2 = e2[1];
+    139:       /*<<test.ml:78:24>>*/ return caml_call2(left, v1, v2) /*<<test.ml:81:24>>*/ ;
+    140:     }
+    141:     var v1$0 = e1[1];
+    142:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    143:     var v2$0 = e2[1];
+    144:      /*<<test.ml:79:26>>*/ return caml_call2(right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
+    145:    }
+    146:    var
+    147:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
+    148:     Test =
+    149:       [0,
+    150:        executable_name,
+    151:        os_type,
+    152:        backend_type,
+    153:        0,
+    154:        32,
+    155:        32,
+    156:        unix,
+    157:        win32,
+    158:        cygwin,
+    159:        max_array_length,
+    160:        max_floatarray_length,
+    161:        max_string_length,
+    162:        Unhandled,
+    163:        format_backtrace_slot,
+    164:        print_exception_backtrace,
+    165:        Either];
+    166:    runtime.caml_register_global(12, Test, "Test");
+    167:    return;
+    168:    /*<<?>>*/ }
+    169:   (globalThis));
+    170:
+    171: //# sourceMappingURL=test.map
     |}]
diff --git a/compiler/tests-compiler/js_parser_printer.ml b/compiler/tests-compiler/js_parser_printer.ml
index 57d8dd0ebb..4fd903a984 100644
--- a/compiler/tests-compiler/js_parser_printer.ml
+++ b/compiler/tests-compiler/js_parser_printer.ml
@@ -75,7 +75,7 @@ let print ?(debuginfo = true) ?(report = false) ?(invalid = false) ~compact sour
 
 let%expect_test "spread operator survives round-trip" =
   print ~compact:true "f(...[1, 2, 3])";
-  [%expect {| /*<<fake:1:0>>*/ /*<<fake:1:0>>*/f/*<<fake:1:0>>*/(...[1,2,3]); |}]
+  [%expect {| /*<<fake:1:0>>*/f(...[1,2,3]); |}]
 
 let%expect_test "no postfix addition coalesce" =
   print ~compact:true "a + +b";
@@ -202,7 +202,7 @@ let%expect_test "ops" =
     /*<<fake:15:4>>*/ y = a?.b?.s?.[a] ?? c ?? d;
     /*<<fake:17:4>>*/ a?.b;
     /*<<fake:18:4>>*/ a?.[b];
-    /*<<fake:19:4>>*/  /*<<fake:19:4>>*/ a /*<<fake:19:4>>*/ ?.(b); |}]
+    /*<<fake:19:4>>*/ a?.(b); |}]
 
 let%expect_test "arrow" =
   print
@@ -249,7 +249,7 @@ let%expect_test "arrow" =
     var
      a =
         /*<<fake:16:10>>*/ x=>
-           /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y /*<<fake:16:27>>*/  /*<<fake:16:27>>*/ ;
+           /*<<fake:16:17>>*/ y=> /*<<fake:16:22>>*/ x + y /*<<fake:16:27>>*/ ;
     var
      a =
         /*<<fake:17:10>>*/ x=>
@@ -295,18 +295,14 @@ function rehb_shape(_face /*: fk_face */, text /*: string */) {
       /*<<fake:7:2>>*/ return undefined /*<<fake:7:18>>*/ ;
      /*<<fake:8:0>>*/ }
     function rehb_shape(_face, text){
-     var
-      str =
-         /*<<fake:13:10>>*/  /*<<fake:13:12>>*/ caml_to_js_string
-          /*<<fake:13:12>>*/ (text);
+     var str =  /*<<fake:13:10>>*/  /*<<fake:13:12>>*/ caml_to_js_string(text);
      var
       ret =
-         /*<<fake:14:10>>*/  /*<<fake:14:12>>*/  /*<<fake:14:12>>*/ str.split
-           /*<<fake:14:12>>*/ ("").map
-          /*<<fake:14:12>>*/ (function mapper(_char){
+         /*<<fake:14:10>>*/  /*<<fake:14:12>>*/ str.split("").map
+         (function mapper(_char){
             /*<<fake:15:6>>*/ return [0, 0, 0] /*<<fake:15:69>>*/ ;
            /*<<fake:14:30>>*/ });
-      /*<<fake:19:2>>*/  /*<<fake:19:2>>*/ ret.unshift /*<<fake:19:2>>*/ (0);
+      /*<<fake:19:2>>*/ ret.unshift(0);
       /*<<fake:20:2>>*/ return ret /*<<fake:20:12>>*/ ;
      /*<<fake:21:0>>*/ } |}]
 
@@ -327,11 +323,10 @@ let%expect_test "rest parameters" =
     {|
     /*<<fake:2:6>>*/ api_obj[key_module][key_func] =
     function(...args){
-      /*<<fake:3:8>>*/ return  /*<<fake:3:15>>*/  /*<<fake:3:15>>*/ checkIfInitialized
-               /*<<fake:3:15>>*/ ().then
-              /*<<fake:3:15>>*/ (function(){
+      /*<<fake:3:8>>*/ return  /*<<fake:3:15>>*/ checkIfInitialized().then
+             (function(){
                 /*<<fake:4:10>>*/ return  /*<<fake:4:17>>*/ callWithProto
-                        /*<<fake:4:17>>*/ (api_json[key_module][key_func], args) /*<<fake:4:68>>*/ ;
+                       (api_json[key_module][key_func], args) /*<<fake:4:68>>*/ ;
                /*<<fake:3:41>>*/ }) /*<<fake:5:10>>*/ ;
      /*<<fake:2:38>>*/ }; |}]
 
@@ -372,13 +367,12 @@ let%expect_test "async/await" =
       glslangModule =
          /*<<fake:4:31>>*/ await
          /*<<fake:4:39>>*/ import
-          /*<<fake:4:39>>*/ ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
+         ("https://unpkg.com/@webgpu/glslang@0.0.7/web/glslang.js");
      const
       glslang =
-         /*<<fake:7:25>>*/ await
-         /*<<fake:7:33>>*/ glslangModule.default /*<<fake:7:33>>*/ ();
+         /*<<fake:7:25>>*/ await  /*<<fake:7:33>>*/ glslangModule.default();
       /*<<fake:8:11>>*/ return  /*<<fake:8:18>>*/ glslang.compileGLSL
-              /*<<fake:8:18>>*/ (src, "compute") /*<<fake:8:53>>*/ ;
+             (src, "compute") /*<<fake:8:53>>*/ ;
      /*<<fake:2:9>>*/ }
      /*<<fake:12:4>>*/ async;
     function test(){ /*<<fake:13:22>>*/ }
@@ -507,8 +501,7 @@ let%expect_test "string template" =
     var s =  /*<<fake:5:10>>*/  /*<<fake:5:12>>*/ tag`asd ${test} te`;
     var
      s =
-        /*<<fake:7:10>>*/ `asd ${ /*<<fake:7:20>>*/ f
-         /*<<fake:7:20>>*/ (`space ${test} space`, 32)} te`; |}]
+        /*<<fake:7:10>>*/ `asd ${ /*<<fake:7:20>>*/ f(`space ${test} space`, 32)} te`; |}]
 
 let%expect_test "from keyword" =
   (* GH#1017 *)
@@ -532,11 +525,10 @@ let%expect_test "from keyword" =
           /*<<fake:5:34>>*/ return x /*<<fake:5:42>>*/ ;
          /*<<fake:5:18>>*/ };
        /*<<fake:6:6>>*/ return  /*<<fake:6:13>>*/ this.compute
-               /*<<fake:6:13>>*/ ([field],
+              ([field],
                function(state){
                  /*<<fake:6:50>>*/ return  /*<<fake:6:57>>*/ get
-                         /*<<fake:6:57>>*/ ( /*<<fake:6:61>>*/ state.field
-                           /*<<fake:6:61>>*/ (field)) /*<<fake:6:80>>*/ ;
+                        ( /*<<fake:6:61>>*/ state.field(field)) /*<<fake:6:80>>*/ ;
                 /*<<fake:6:34>>*/ }) /*<<fake:6:83>>*/ ;
       /*<<fake:4:3>>*/ }}); |}]
 
@@ -585,9 +577,7 @@ class x extends p {
   [%expect
     {|
     class x extends p {
-       constructor(){
-         /*<<fake:4:6>>*/  /*<<fake:4:6>>*/ super /*<<fake:4:6>>*/ (a, b, c);
-        /*<<fake:3:4>>*/ }
+       constructor(){ /*<<fake:4:6>>*/ super(a, b, c); /*<<fake:3:4>>*/ }
        foo(){
         var s =  /*<<fake:8:12>>*/ super[d];
         var s =  /*<<fake:9:12>>*/ super.d;
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 9716972ada..34d5b4e417 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -83,12 +83,14 @@ let%expect_test _ =
        11:   (globalThis));
        12:
        13: //# sourceMappingURL=test.map
+      /dune-root/test.ml:1:0 -> 5:7
       null -> 5:17
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
-      /dune-root/test.ml:1:11 -> 6:26
       /dune-root/test.ml:1:12 -> 6:28
+      /dune-root/test.ml:1:12 -> 7:7
+      /dune-root/test.ml:1:12 -> 7:14
       null -> 10:2
     |}]
 
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 1dedbc3cbc..6b0776548e 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -3,201 +3,186 @@
 (function
   (globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function erase_rel(param){
      /*<<camlinternalFormatBasics.ml:528:8>>*/ if(typeof param === "number")
-      /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0 /*<<camlinternalFormatBasics.ml:562:20>>*/ ;
+      /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0;
     switch(param[0]){
       case 0:
        var rest = param[1];
         /*<<camlinternalFormatBasics.ml:533:4>>*/ return [0,
-                /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:533:12>>*/ (rest)] /*<<camlinternalFormatBasics.ml:533:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:4>>*/ ;
       case 1:
        var rest$0 = param[1];
         /*<<camlinternalFormatBasics.ml:535:4>>*/ return [1,
-                /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:535:14>>*/ (rest$0)] /*<<camlinternalFormatBasics.ml:535:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:4>>*/ ;
       case 2:
        var rest$1 = param[1];
         /*<<camlinternalFormatBasics.ml:537:4>>*/ return [2,
-                /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:537:11>>*/ (rest$1)] /*<<camlinternalFormatBasics.ml:537:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:4>>*/ ;
       case 3:
        var rest$2 = param[1];
         /*<<camlinternalFormatBasics.ml:539:4>>*/ return [3,
-                /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:539:13>>*/ (rest$2)] /*<<camlinternalFormatBasics.ml:539:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:4>>*/ ;
       case 4:
        var rest$3 = param[1];
         /*<<camlinternalFormatBasics.ml:543:4>>*/ return [4,
-                /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:543:17>>*/ (rest$3)] /*<<camlinternalFormatBasics.ml:543:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:4>>*/ ;
       case 5:
        var rest$4 = param[1];
         /*<<camlinternalFormatBasics.ml:541:4>>*/ return [5,
-                /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:541:13>>*/ (rest$4)] /*<<camlinternalFormatBasics.ml:541:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:4>>*/ ;
       case 6:
        var rest$5 = param[1];
         /*<<camlinternalFormatBasics.ml:545:4>>*/ return [6,
-                /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:545:13>>*/ (rest$5)] /*<<camlinternalFormatBasics.ml:545:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:4>>*/ ;
       case 7:
        var rest$6 = param[1];
         /*<<camlinternalFormatBasics.ml:547:4>>*/ return [7,
-                /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:547:12>>*/ (rest$6)] /*<<camlinternalFormatBasics.ml:547:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:4>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
         /*<<camlinternalFormatBasics.ml:549:4>>*/ return [8,
                ty,
-                /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:549:23>>*/ (rest$7)] /*<<camlinternalFormatBasics.ml:549:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:4>>*/ ;
       case 9:
        var rest$8 = param[3], ty1 = param[1];
         /*<<camlinternalFormatBasics.ml:551:4>>*/ return [9,
                ty1,
                ty1,
-                /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:551:31>>*/ (rest$8)] /*<<camlinternalFormatBasics.ml:551:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:4>>*/ ;
       case 10:
        var rest$9 = param[1];
         /*<<camlinternalFormatBasics.ml:553:4>>*/ return [10,
-                /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:553:13>>*/ (rest$9)] /*<<camlinternalFormatBasics.ml:553:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:4>>*/ ;
       case 11:
        var rest$10 = param[1];
         /*<<camlinternalFormatBasics.ml:555:4>>*/ return [11,
-                /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:555:13>>*/ (rest$10)] /*<<camlinternalFormatBasics.ml:555:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:4>>*/ ;
       case 12:
        var rest$11 = param[1];
         /*<<camlinternalFormatBasics.ml:557:4>>*/ return [12,
-                /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:557:11>>*/ (rest$11)] /*<<camlinternalFormatBasics.ml:557:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:4>>*/ ;
       case 13:
        var rest$12 = param[1];
         /*<<camlinternalFormatBasics.ml:559:4>>*/ return [13,
-                /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:559:14>>*/ (rest$12)] /*<<camlinternalFormatBasics.ml:559:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:4>>*/ ;
       default:
        var rest$13 = param[1];
         /*<<camlinternalFormatBasics.ml:561:4>>*/ return [14,
-                /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel
-                 /*<<camlinternalFormatBasics.ml:561:22>>*/ (rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:562:32>>*/ }
    function concat_fmtty(fmtty1, fmtty2){
      /*<<camlinternalFormatBasics.ml:590:21>>*/ if(typeof fmtty1 === "number")
-      /*<<camlinternalFormatBasics.ml:621:20>>*/ return fmtty2 /*<<camlinternalFormatBasics.ml:621:20>>*/ ;
+      /*<<camlinternalFormatBasics.ml:621:20>>*/ return fmtty2;
     switch(fmtty1[0]){
       case 0:
        var rest = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:592:4>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:592:12>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:592:12>>*/ (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:4>>*/ ;
+                (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:4>>*/ ;
       case 1:
        var rest$0 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:594:4>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:594:14>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:594:14>>*/ (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:4>>*/ ;
+                (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:4>>*/ ;
       case 2:
        var rest$1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:596:4>>*/ return [2,
                 /*<<camlinternalFormatBasics.ml:596:11>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:596:11>>*/ (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:4>>*/ ;
+                (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:4>>*/ ;
       case 3:
        var rest$2 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:598:4>>*/ return [3,
                 /*<<camlinternalFormatBasics.ml:598:13>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:598:13>>*/ (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:4>>*/ ;
+                (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:4>>*/ ;
       case 4:
        var rest$3 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:600:4>>*/ return [4,
                 /*<<camlinternalFormatBasics.ml:600:17>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:600:17>>*/ (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:4>>*/ ;
+                (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:4>>*/ ;
       case 5:
        var rest$4 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:602:4>>*/ return [5,
                 /*<<camlinternalFormatBasics.ml:602:13>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:602:13>>*/ (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:4>>*/ ;
+                (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:4>>*/ ;
       case 6:
        var rest$5 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:604:4>>*/ return [6,
                 /*<<camlinternalFormatBasics.ml:604:13>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:604:13>>*/ (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:4>>*/ ;
+                (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:4>>*/ ;
       case 7:
        var rest$6 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:606:4>>*/ return [7,
                 /*<<camlinternalFormatBasics.ml:606:12>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:606:12>>*/ (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:4>>*/ ;
+                (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:4>>*/ ;
       case 8:
        var rest$7 = fmtty1[2], ty = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:618:4>>*/ return [8,
                ty,
                 /*<<camlinternalFormatBasics.ml:618:23>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:618:23>>*/ (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:4>>*/ ;
+                (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:4>>*/ ;
       case 9:
        var rest$8 = fmtty1[3], ty2 = fmtty1[2], ty1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:620:4>>*/ return [9,
                ty1,
                ty2,
                 /*<<camlinternalFormatBasics.ml:620:31>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:620:31>>*/ (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:4>>*/ ;
+                (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:4>>*/ ;
       case 10:
        var rest$9 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:608:4>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:608:13>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:608:13>>*/ (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:4>>*/ ;
+                (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:4>>*/ ;
       case 11:
        var rest$10 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:610:4>>*/ return [11,
                 /*<<camlinternalFormatBasics.ml:610:13>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:610:13>>*/ (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:4>>*/ ;
+                (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:4>>*/ ;
       case 12:
        var rest$11 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:612:4>>*/ return [12,
                 /*<<camlinternalFormatBasics.ml:612:11>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:612:11>>*/ (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:4>>*/ ;
+                (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:4>>*/ ;
       case 13:
        var rest$12 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:614:4>>*/ return [13,
                 /*<<camlinternalFormatBasics.ml:614:14>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:614:14>>*/ (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:4>>*/ ;
+                (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:4>>*/ ;
       default:
        var rest$13 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:616:4>>*/ return [14,
                 /*<<camlinternalFormatBasics.ml:616:22>>*/ concat_fmtty
-                 /*<<camlinternalFormatBasics.ml:616:22>>*/ (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:4>>*/ ;
+                (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:621:26>>*/ }
    function concat_fmt(fmt1, fmt2){
      /*<<camlinternalFormatBasics.ml:631:17>>*/ if(typeof fmt1 === "number")
-      /*<<camlinternalFormatBasics.ml:690:4>>*/ return fmt2 /*<<camlinternalFormatBasics.ml:690:4>>*/ ;
+      /*<<camlinternalFormatBasics.ml:690:4>>*/ return fmt2;
     switch(fmt1[0]){
       case 0:
        var rest = fmt1[1];
         /*<<camlinternalFormatBasics.ml:649:4>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:649:9>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:649:9>>*/ (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:4>>*/ ;
+                (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:4>>*/ ;
       case 1:
        var rest$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:651:4>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:651:14>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:651:14>>*/ (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:4>>*/ ;
+                (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:4>>*/ ;
       case 2:
        var rest$1 = fmt1[2], pad = fmt1[1];
         /*<<camlinternalFormatBasics.ml:633:4>>*/ return [2,
                pad,
                 /*<<camlinternalFormatBasics.ml:633:17>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:633:17>>*/ (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:4>>*/ ;
+                (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:4>>*/ ;
       case 3:
        var rest$2 = fmt1[2], pad$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:635:4>>*/ return [3,
                pad$0,
                 /*<<camlinternalFormatBasics.ml:635:22>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:635:22>>*/ (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:4>>*/ ;
+                (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:4>>*/ ;
       case 4:
        var rest$3 = fmt1[4], prec = fmt1[3], pad$1 = fmt1[2], iconv = fmt1[1];
         /*<<camlinternalFormatBasics.ml:638:4>>*/ return [4,
@@ -205,7 +190,7 @@
                pad$1,
                prec,
                 /*<<camlinternalFormatBasics.ml:638:27>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:638:27>>*/ (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:4>>*/ ;
+                (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:4>>*/ ;
       case 5:
        var
         rest$4 = fmt1[4],
@@ -217,7 +202,7 @@
                pad$2,
                prec$0,
                 /*<<camlinternalFormatBasics.ml:640:29>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:640:29>>*/ (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:4>>*/ ;
+                (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:4>>*/ ;
       case 6:
        var
         rest$5 = fmt1[4],
@@ -229,7 +214,7 @@
                pad$3,
                prec$1,
                 /*<<camlinternalFormatBasics.ml:642:33>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:642:33>>*/ (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:4>>*/ ;
+                (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:4>>*/ ;
       case 7:
        var
         rest$6 = fmt1[4],
@@ -241,7 +226,7 @@
                pad$4,
                prec$2,
                 /*<<camlinternalFormatBasics.ml:644:29>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:644:29>>*/ (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:4>>*/ ;
+                (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:4>>*/ ;
       case 8:
        var
         rest$7 = fmt1[4],
@@ -253,102 +238,102 @@
                pad$5,
                prec$3,
                 /*<<camlinternalFormatBasics.ml:646:29>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:646:29>>*/ (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:4>>*/ ;
+                (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:4>>*/ ;
       case 9:
        var rest$8 = fmt1[2], pad$6 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:653:4>>*/ return [9,
                pad$6,
                 /*<<camlinternalFormatBasics.ml:653:15>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:653:15>>*/ (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:4>>*/ ;
+                (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:4>>*/ ;
       case 10:
        var rest$9 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:663:4>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:663:10>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:663:10>>*/ (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:4>>*/ ;
+                (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:4>>*/ ;
       case 11:
        var rest$10 = fmt1[2], str = fmt1[1];
         /*<<camlinternalFormatBasics.ml:666:4>>*/ return [11,
                str,
                 /*<<camlinternalFormatBasics.ml:666:25>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:666:25>>*/ (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:4>>*/ ;
+                (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:4>>*/ ;
       case 12:
        var rest$11 = fmt1[2], chr = fmt1[1];
         /*<<camlinternalFormatBasics.ml:668:4>>*/ return [12,
                chr,
                 /*<<camlinternalFormatBasics.ml:668:25>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:668:25>>*/ (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:4>>*/ ;
+                (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:4>>*/ ;
       case 13:
        var rest$12 = fmt1[3], fmtty = fmt1[2], pad$7 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:671:4>>*/ return [13,
                pad$7,
                fmtty,
                 /*<<camlinternalFormatBasics.ml:671:30>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:671:30>>*/ (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:4>>*/ ;
+                (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:4>>*/ ;
       case 14:
        var rest$13 = fmt1[3], fmtty$0 = fmt1[2], pad$8 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:673:4>>*/ return [14,
                pad$8,
                fmtty$0,
                 /*<<camlinternalFormatBasics.ml:673:30>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:673:30>>*/ (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:4>>*/ ;
+                (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:4>>*/ ;
       case 15:
        var rest$14 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:655:4>>*/ return [15,
                 /*<<camlinternalFormatBasics.ml:655:10>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:655:10>>*/ (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:4>>*/ ;
+                (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:4>>*/ ;
       case 16:
        var rest$15 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:657:4>>*/ return [16,
                 /*<<camlinternalFormatBasics.ml:657:10>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:657:10>>*/ (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:4>>*/ ;
+                (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:4>>*/ ;
       case 17:
        var rest$16 = fmt1[2], fmting_lit = fmt1[1];
         /*<<camlinternalFormatBasics.ml:685:4>>*/ return [17,
                fmting_lit,
                 /*<<camlinternalFormatBasics.ml:685:32>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:685:32>>*/ (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:4>>*/ ;
+                (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:4>>*/ ;
       case 18:
        var rest$17 = fmt1[2], fmting_gen = fmt1[1];
         /*<<camlinternalFormatBasics.ml:687:4>>*/ return [18,
                fmting_gen,
                 /*<<camlinternalFormatBasics.ml:687:32>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:687:32>>*/ (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:4>>*/ ;
+                (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:4>>*/ ;
       case 19:
        var rest$18 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:661:4>>*/ return [19,
                 /*<<camlinternalFormatBasics.ml:661:11>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:661:11>>*/ (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:4>>*/ ;
+                (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:4>>*/ ;
       case 20:
        var rest$19 = fmt1[3], char_set = fmt1[2], width_opt = fmt1[1];
         /*<<camlinternalFormatBasics.ml:676:4>>*/ return [20,
                width_opt,
                char_set,
                 /*<<camlinternalFormatBasics.ml:676:40>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:676:40>>*/ (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:4>>*/ ;
+                (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:4>>*/ ;
       case 21:
        var rest$20 = fmt1[2], counter = fmt1[1];
         /*<<camlinternalFormatBasics.ml:678:4>>*/ return [21,
                counter,
                 /*<<camlinternalFormatBasics.ml:678:31>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:678:31>>*/ (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:4>>*/ ;
+                (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:4>>*/ ;
       case 22:
        var rest$21 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:680:4>>*/ return [22,
                 /*<<camlinternalFormatBasics.ml:680:19>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:680:19>>*/ (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:4>>*/ ;
+                (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:4>>*/ ;
       case 23:
        var rest$22 = fmt1[2], ign = fmt1[1];
         /*<<camlinternalFormatBasics.ml:682:4>>*/ return [23,
                ign,
                 /*<<camlinternalFormatBasics.ml:682:24>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:682:24>>*/ (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:4>>*/ ;
+                (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:4>>*/ ;
       default:
        var rest$23 = fmt1[3], f = fmt1[2], arity = fmt1[1];
         /*<<camlinternalFormatBasics.ml:659:4>>*/ return [24,
                arity,
                f,
                 /*<<camlinternalFormatBasics.ml:659:22>>*/ concat_fmt
-                 /*<<camlinternalFormatBasics.ml:659:22>>*/ (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:4>>*/ ;
+                (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:4>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:690:8>>*/ }
    var CamlinternalFormatBasics = [0, concat_fmtty, erase_rel, concat_fmt];
@@ -364,37 +349,35 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_false$0 =  /*<<?>>*/ "false",
-    cst_true$0 =  /*<<?>>*/ "true",
-    caml_atomic_cas =  /*<<?>>*/ runtime.caml_atomic_cas,
-    caml_atomic_load =  /*<<?>>*/ runtime.caml_atomic_load,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_float_of_string =  /*<<?>>*/ runtime.caml_float_of_string,
-    caml_int64_float_of_bits =  /*<<?>>*/ runtime.caml_int64_float_of_bits,
-    caml_int_of_string =  /*<<?>>*/ runtime.caml_int_of_string,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
-    caml_ml_channel_size =  /*<<?>>*/ runtime.caml_ml_channel_size,
-    caml_ml_channel_size_64 =  /*<<?>>*/ runtime.caml_ml_channel_size_64,
-    caml_ml_close_channel =  /*<<?>>*/ runtime.caml_ml_close_channel,
-    caml_ml_flush =  /*<<?>>*/ runtime.caml_ml_flush,
-    caml_ml_input =  /*<<?>>*/ runtime.caml_ml_input,
-    caml_ml_input_char =  /*<<?>>*/ runtime.caml_ml_input_char,
-    caml_ml_open_descriptor_in =  /*<<?>>*/ runtime.caml_ml_open_descriptor_in,
-    caml_ml_open_descriptor_out =
-       /*<<?>>*/ runtime.caml_ml_open_descriptor_out,
-    caml_ml_output =  /*<<?>>*/ runtime.caml_ml_output,
-    caml_ml_output_bytes =  /*<<?>>*/ runtime.caml_ml_output_bytes,
-    caml_ml_output_char =  /*<<?>>*/ runtime.caml_ml_output_char,
-    caml_ml_set_binary_mode =  /*<<?>>*/ runtime.caml_ml_set_binary_mode,
-    caml_ml_set_channel_name =  /*<<?>>*/ runtime.caml_ml_set_channel_name,
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
-    caml_string_concat =  /*<<?>>*/ runtime.caml_string_concat,
-    caml_string_of_bytes =  /*<<?>>*/ runtime.caml_string_of_bytes,
-    caml_sys_open =  /*<<?>>*/ runtime.caml_sys_open,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst_false$0 = "false",
+    cst_true$0 = "true",
+    caml_atomic_cas = runtime.caml_atomic_cas,
+    caml_atomic_load = runtime.caml_atomic_load,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_float_of_string = runtime.caml_float_of_string,
+    caml_int64_float_of_bits = runtime.caml_int64_float_of_bits,
+    caml_int_of_string = runtime.caml_int_of_string,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+    caml_ml_channel_size = runtime.caml_ml_channel_size,
+    caml_ml_channel_size_64 = runtime.caml_ml_channel_size_64,
+    caml_ml_close_channel = runtime.caml_ml_close_channel,
+    caml_ml_flush = runtime.caml_ml_flush,
+    caml_ml_input = runtime.caml_ml_input,
+    caml_ml_input_char = runtime.caml_ml_input_char,
+    caml_ml_open_descriptor_in = runtime.caml_ml_open_descriptor_in,
+    caml_ml_open_descriptor_out = runtime.caml_ml_open_descriptor_out,
+    caml_ml_output = runtime.caml_ml_output,
+    caml_ml_output_bytes = runtime.caml_ml_output_bytes,
+    caml_ml_output_char = runtime.caml_ml_output_char,
+    caml_ml_set_binary_mode = runtime.caml_ml_set_binary_mode,
+    caml_ml_set_channel_name = runtime.caml_ml_set_channel_name,
+    caml_ml_string_length = runtime.caml_ml_string_length,
+    caml_string_concat = runtime.caml_string_concat,
+    caml_string_of_bytes = runtime.caml_string_of_bytes,
+    caml_sys_open = runtime.caml_sys_open,
+    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)
@@ -421,12 +404,12 @@
     Sys_blocked_io = global_data.Sys_blocked_io,
     Undefined_recursive_module = global_data.Undefined_recursive_module;
    function failwith(s){
-     /*<<stdlib.ml:29:17>>*/ throw  /*<<stdlib.ml:29:17>>*/ caml_maybe_attach_backtrace
-            /*<<stdlib.ml:29:17>>*/ ([0, Failure, s], 1);
+     /*<<stdlib.ml:29:17>>*/ throw caml_maybe_attach_backtrace
+           ([0, Failure, s], 1);
     /*<<stdlib.ml:29:33>>*/ }
    function invalid_arg(s){
-     /*<<stdlib.ml:30:20>>*/ throw  /*<<stdlib.ml:30:20>>*/ caml_maybe_attach_backtrace
-            /*<<stdlib.ml:30:20>>*/ ([0, Invalid_argument, s], 1);
+     /*<<stdlib.ml:30:20>>*/ throw caml_maybe_attach_backtrace
+           ([0, Invalid_argument, s], 1);
     /*<<stdlib.ml:30:45>>*/ }
    var
     Exit =
@@ -435,46 +418,41 @@
        runtime.caml_fresh_oo_id(0)];
    function min(x, y){
      /*<<stdlib.ml:74:14>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
-              /*<<stdlib.ml:74:17>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<stdlib.ml:74:37>>*/ ;
-    /*<<stdlib.ml:74:37>>*/ }
+   }
    function max(x, y){
      /*<<stdlib.ml:75:14>>*/ return  /*<<stdlib.ml:75:17>>*/ runtime.caml_greaterequal
-              /*<<stdlib.ml:75:17>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<stdlib.ml:75:37>>*/ ;
-    /*<<stdlib.ml:75:37>>*/ }
+   }
    function abs(x){
      /*<<stdlib.ml:98:12>>*/ return 0 <= x ? x : - x | 0 /*<<stdlib.ml:98:36>>*/ ;
-    /*<<stdlib.ml:98:36>>*/ }
+   }
    function lnot(x){
      /*<<stdlib.ml:104:13>>*/ return x ^ -1;
     /*<<stdlib.ml:104:24>>*/ }
    var
     infinity =
-       /*<<stdlib.ml:180:2>>*/  /*<<stdlib.ml:180:2>>*/ caml_int64_float_of_bits
-        /*<<stdlib.ml:180:2>>*/ (runtime.caml_int64_create_lo_mi_hi
-         (0, 0, 32752)),
+       /*<<stdlib.ml:180:2>>*/ caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(0, 0, 32752)),
     neg_infinity =
-       /*<<stdlib.ml:182:2>>*/  /*<<stdlib.ml:182:2>>*/ caml_int64_float_of_bits
-        /*<<stdlib.ml:182:2>>*/ (runtime.caml_int64_create_lo_mi_hi
-         (0, 0, 65520)),
+       /*<<stdlib.ml:182:2>>*/ caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(0, 0, 65520)),
     nan =
-       /*<<stdlib.ml:184:2>>*/  /*<<stdlib.ml:184:2>>*/ caml_int64_float_of_bits
-        /*<<stdlib.ml:184:2>>*/ (runtime.caml_int64_create_lo_mi_hi
-         (1, 0, 32760)),
+       /*<<stdlib.ml:184:2>>*/ caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(1, 0, 32760)),
     max_float =
-       /*<<stdlib.ml:186:2>>*/  /*<<stdlib.ml:186:2>>*/ caml_int64_float_of_bits
-        /*<<stdlib.ml:186:2>>*/ (runtime.caml_int64_create_lo_mi_hi
-         (16777215, 16777215, 32751)),
+       /*<<stdlib.ml:186:2>>*/ caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 32751)),
     min_float =
-       /*<<stdlib.ml:188:2>>*/  /*<<stdlib.ml:188:2>>*/ caml_int64_float_of_bits
-        /*<<stdlib.ml:188:2>>*/ (runtime.caml_int64_create_lo_mi_hi(0, 0, 16)),
+       /*<<stdlib.ml:188:2>>*/ caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(0, 0, 16)),
     epsilon_float =
-       /*<<stdlib.ml:190:2>>*/  /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
-        /*<<stdlib.ml:190:2>>*/ (runtime.caml_int64_create_lo_mi_hi
-         (0, 0, 15536)),
+       /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(0, 0, 15536)),
     symbol_concat = caml_string_concat,
     cst_char_of_int = "char_of_int",
     cst_true = cst_true$0,
@@ -484,43 +462,39 @@
     _b_ = [0, 0];
    function char_of_int(n){
      /*<<stdlib.ml:224:2>>*/ if(0 <= n && 255 >= n)
-      /*<<stdlib.ml:224:58>>*/ return n /*<<stdlib.ml:224:58>>*/ ;
-     /*<<stdlib.ml:224:27>>*/ return  /*<<stdlib.ml:224:27>>*/ invalid_arg
-             /*<<stdlib.ml:224:27>>*/ (cst_char_of_int) /*<<stdlib.ml:224:78>>*/ ;
-    /*<<stdlib.ml:224:78>>*/ }
+      /*<<stdlib.ml:224:58>>*/ return n;
+     /*<<stdlib.ml:224:27>>*/ return invalid_arg(cst_char_of_int) /*<<stdlib.ml:224:78>>*/ ;
+   }
    function string_of_bool(b){
      /*<<stdlib.ml:254:2>>*/ return b ? cst_true : cst_false /*<<stdlib.ml:254:31>>*/ ;
-    /*<<stdlib.ml:254:31>>*/ }
+   }
    function bool_of_string(param){
      /*<<stdlib.ml:255:21>>*/ return param !== cst_false$0
             ? param
               !== cst_true$0
-              ?  /*<<stdlib.ml:258:9>>*/ invalid_arg
-                 /*<<stdlib.ml:258:9>>*/ (cst_bool_of_string)
+              ?  /*<<stdlib.ml:258:9>>*/ invalid_arg(cst_bool_of_string)
               : 1
             : 0 /*<<stdlib.ml:258:37>>*/ ;
-    /*<<stdlib.ml:258:37>>*/ }
+   }
    function bool_of_string_opt(param){
      /*<<stdlib.ml:260:25>>*/ return param !== cst_false$0
             ? param !== cst_true$0 ? 0 : _a_
             : _b_ /*<<stdlib.ml:263:13>>*/ ;
-    /*<<stdlib.ml:263:13>>*/ }
+   }
    function string_of_int(n){
-     /*<<stdlib.ml:266:2>>*/ return "" + n /*<<stdlib.ml:266:2>>*/ ;
+     /*<<stdlib.ml:266:2>>*/ return "" + n;
     /*<<stdlib.ml:266:19>>*/ }
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
      var
       _w_ =
          /*<<stdlib.ml:272:6>>*/ [0,
-          /*<<stdlib.ml:272:11>>*/ caml_int_of_string
-           /*<<stdlib.ml:272:11>>*/ (s)];
-      /*<<stdlib.ml:272:6>>*/ return _w_ /*<<stdlib.ml:272:6>>*/ ;
+          /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
+      /*<<stdlib.ml:272:6>>*/ return _w_;
     }
     catch(_x_){
      var _v_ = caml_wrap_exception(_x_);
-     if(_v_[1] === Failure)
-       /*<<stdlib.ml:273:20>>*/ return 0 /*<<stdlib.ml:273:20>>*/ ;
+     if(_v_[1] === Failure)  /*<<stdlib.ml:273:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_v_, 0);
     }
     /*<<stdlib.ml:273:24>>*/ }
@@ -528,14 +502,11 @@
     var l = caml_ml_string_length(s1), i = 0;
      /*<<stdlib.ml:280:4>>*/ for(;;){
      if(l <= i) return s1 + ".";
-     var
-      match =
-         /*<<stdlib.ml:281:10>>*/  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get
-          /*<<stdlib.ml:281:10>>*/ (s1, i);
+     var match =  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get(s1, i);
      a:
      {
       if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
-       /*<<stdlib.ml:279:2>>*/ return s1 /*<<stdlib.ml:279:2>>*/ ;
+       /*<<stdlib.ml:279:2>>*/ return s1;
      }
      var i$0 =  /*<<stdlib.ml:282:26>>*/ i + 1 | 0;
      i = i$0;
@@ -543,34 +514,28 @@
     /*<<stdlib.ml:285:8>>*/ }
    function string_of_float(f){
      /*<<stdlib.ml:287:24>>*/ return  /*<<stdlib.ml:287:42>>*/ valid_float_lexem
-             /*<<stdlib.ml:287:42>>*/ ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float
-               /*<<stdlib.ml:287:42>>*/ ("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
-    /*<<stdlib.ml:287:66>>*/ }
+            (runtime.caml_format_float("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
+   }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
      var
       _t_ =
          /*<<stdlib.ml:293:6>>*/ [0,
-          /*<<stdlib.ml:293:11>>*/ caml_float_of_string
-           /*<<stdlib.ml:293:11>>*/ (s)];
-      /*<<stdlib.ml:293:6>>*/ return _t_ /*<<stdlib.ml:293:6>>*/ ;
+          /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
+      /*<<stdlib.ml:293:6>>*/ return _t_;
     }
     catch(_u_){
      var _s_ = caml_wrap_exception(_u_);
-     if(_s_[1] === Failure)
-       /*<<stdlib.ml:294:20>>*/ return 0 /*<<stdlib.ml:294:20>>*/ ;
+     if(_s_[1] === Failure)  /*<<stdlib.ml:294:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_s_, 0);
     }
     /*<<stdlib.ml:294:24>>*/ }
    function symbol(l1, l2){
-     /*<<stdlib.ml:299:2>>*/ if(! l1)
-      /*<<stdlib.ml:300:10>>*/ return l2 /*<<stdlib.ml:300:10>>*/ ;
+     /*<<stdlib.ml:299:2>>*/ if(! l1)  /*<<stdlib.ml:300:10>>*/ return l2;
     var _q_ = l1[2], h1 = l1[1];
-    if(! _q_)
-      /*<<stdlib.ml:301:16>>*/ return [0, h1, l2] /*<<stdlib.ml:301:16>>*/ ;
+    if(! _q_)  /*<<stdlib.ml:301:16>>*/ return [0, h1, l2];
     var match = _q_[2], h2 = _q_[1];
-    if(! match)
-      /*<<stdlib.ml:302:22>>*/ return [0, h1, [0, h2, l2]] /*<<stdlib.ml:302:22>>*/ ;
+    if(! match)  /*<<stdlib.ml:302:22>>*/ return [0, h1, [0, h2, l2]];
     var
      tl = match[2],
      h3 = match[1],
@@ -601,19 +566,13 @@
      }
      else
       dst[1 + offset] = l2;
-      /*<<stdlib.ml:303:28>>*/ return [0, h1, [0, h2, block]] /*<<stdlib.ml:303:28>>*/ ;
+      /*<<stdlib.ml:303:28>>*/ return [0, h1, [0, h2, block]];
     }
     /*<<stdlib.ml:303:55>>*/ }
    var
-    stdin =
-       /*<<stdlib.ml:314:12>>*/  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in
-        /*<<stdlib.ml:314:12>>*/ (0),
-    stdout =
-       /*<<stdlib.ml:315:13>>*/  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out
-        /*<<stdlib.ml:315:13>>*/ (1),
-    stderr =
-       /*<<stdlib.ml:316:13>>*/  /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out
-        /*<<stdlib.ml:316:13>>*/ (2),
+    stdin =  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in(0),
+    stdout =  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out(1),
+    stderr =  /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out(2),
     _c_ = [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
     _d_ = [0, 1, [0, 3, [0, 4, [0, 6, 0]]]],
     cst_output = "output",
@@ -625,34 +584,24 @@
    function open_out_gen(mode, perm, name){
     var
      c =
-        /*<<stdlib.ml:331:10>>*/  /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
-         /*<<stdlib.ml:331:10>>*/ ( /*<<stdlib.ml:331:29>>*/ caml_sys_open
-           /*<<stdlib.ml:331:29>>*/ (name, mode, perm));
-     /*<<stdlib.ml:332:2>>*/  /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name
-      /*<<stdlib.ml:332:2>>*/ (c, name);
-     /*<<stdlib.ml:332:2>>*/ return c /*<<stdlib.ml:332:2>>*/ ;
+        /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
+        ( /*<<stdlib.ml:331:29>>*/ caml_sys_open(name, mode, perm));
+     /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name(c, name);
+    return c;
     /*<<stdlib.ml:333:3>>*/ }
    function open_out(name){
-     /*<<stdlib.ml:336:2>>*/ return  /*<<stdlib.ml:336:2>>*/ open_out_gen
-             /*<<stdlib.ml:336:2>>*/ (_c_, 438, name) /*<<stdlib.ml:336:74>>*/ ;
-    /*<<stdlib.ml:336:74>>*/ }
+     /*<<stdlib.ml:336:2>>*/ return open_out_gen(_c_, 438, name) /*<<stdlib.ml:336:74>>*/ ;
+   }
    function open_out_bin(name){
-     /*<<stdlib.ml:339:2>>*/ return  /*<<stdlib.ml:339:2>>*/ open_out_gen
-             /*<<stdlib.ml:339:2>>*/ (_d_, 438, name) /*<<stdlib.ml:339:76>>*/ ;
-    /*<<stdlib.ml:339:76>>*/ }
+     /*<<stdlib.ml:339:2>>*/ return open_out_gen(_d_, 438, name) /*<<stdlib.ml:339:76>>*/ ;
+   }
    function flush_all(param){
     var
-     param$0 =
-        /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list
-         /*<<stdlib.ml:356:10>>*/ (0);
+     param$0 =  /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list(0);
      /*<<stdlib.ml:347:17>>*/ for(;;){
-     if(! param$0)
-       /*<<stdlib.ml:348:12>>*/ return 0 /*<<stdlib.ml:348:12>>*/ ;
+     if(! param$0)  /*<<stdlib.ml:348:12>>*/ return 0;
      var l = param$0[2], a = param$0[1];
-      /*<<stdlib.ml:350:8>>*/ try{
-       /*<<stdlib.ml:351:12>>*/  /*<<stdlib.ml:351:12>>*/ caml_ml_flush
-        /*<<stdlib.ml:351:12>>*/ (a);
-     }
+      /*<<stdlib.ml:350:8>>*/ try{ /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);}
      catch(_p_){
       var _o_ = caml_wrap_exception(_p_);
       if(_o_[1] !== Sys_error) throw caml_maybe_attach_backtrace(_o_, 0);
@@ -661,92 +610,69 @@
     }
     /*<<stdlib.ml:356:32>>*/ }
    function output_bytes(oc, s){
-     /*<<stdlib.ml:366:2>>*/ return  /*<<stdlib.ml:366:2>>*/ caml_ml_output_bytes
-             /*<<stdlib.ml:366:2>>*/ (oc, s, 0, caml_ml_bytes_length(s)) /*<<stdlib.ml:366:39>>*/ ;
-    /*<<stdlib.ml:366:39>>*/ }
+     /*<<stdlib.ml:366:2>>*/ return caml_ml_output_bytes
+            (oc, s, 0, caml_ml_bytes_length(s)) /*<<stdlib.ml:366:39>>*/ ;
+   }
    function output_string(oc, s){
-     /*<<stdlib.ml:369:2>>*/ return  /*<<stdlib.ml:369:2>>*/ caml_ml_output
-             /*<<stdlib.ml:369:2>>*/ (oc, s, 0, caml_ml_string_length(s)) /*<<stdlib.ml:369:47>>*/ ;
-    /*<<stdlib.ml:369:47>>*/ }
+     /*<<stdlib.ml:369:2>>*/ return caml_ml_output
+            (oc, s, 0, caml_ml_string_length(s)) /*<<stdlib.ml:369:47>>*/ ;
+   }
    function output(oc, s, ofs, len){
      /*<<stdlib.ml:372:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:374:7>>*/ return  /*<<stdlib.ml:374:7>>*/ caml_ml_output_bytes
-              /*<<stdlib.ml:374:7>>*/ (oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
-     /*<<stdlib.ml:373:7>>*/ return  /*<<stdlib.ml:373:7>>*/ invalid_arg
-             /*<<stdlib.ml:373:7>>*/ (cst_output) /*<<stdlib.ml:374:33>>*/ ;
-    /*<<stdlib.ml:374:33>>*/ }
+      /*<<stdlib.ml:374:7>>*/ return caml_ml_output_bytes(oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
+     /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output) /*<<stdlib.ml:374:33>>*/ ;
+   }
    function output_substring(oc, s, ofs, len){
      /*<<stdlib.ml:377:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:379:7>>*/ return  /*<<stdlib.ml:379:7>>*/ caml_ml_output
-              /*<<stdlib.ml:379:7>>*/ (oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
-     /*<<stdlib.ml:378:7>>*/ return  /*<<stdlib.ml:378:7>>*/ invalid_arg
-             /*<<stdlib.ml:378:7>>*/ (cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
-    /*<<stdlib.ml:379:40>>*/ }
+      /*<<stdlib.ml:379:7>>*/ return caml_ml_output(oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
+     /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
+   }
    function output_value(chan, v){
-     /*<<stdlib.ml:386:26>>*/ return  /*<<stdlib.ml:386:26>>*/ runtime.caml_output_value
-             /*<<stdlib.ml:386:26>>*/ (chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
-    /*<<stdlib.ml:386:54>>*/ }
+     /*<<stdlib.ml:386:26>>*/ return runtime.caml_output_value(chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
+   }
    function close_out(oc){
-     /*<<stdlib.ml:392:19>>*/  /*<<stdlib.ml:392:19>>*/ caml_ml_flush
-      /*<<stdlib.ml:392:19>>*/ (oc);
-     /*<<stdlib.ml:392:29>>*/ return  /*<<stdlib.ml:392:29>>*/ caml_ml_close_channel
-             /*<<stdlib.ml:392:29>>*/ (oc) /*<<stdlib.ml:392:49>>*/ ;
-    /*<<stdlib.ml:392:49>>*/ }
+     /*<<stdlib.ml:392:19>>*/ caml_ml_flush(oc);
+     /*<<stdlib.ml:392:29>>*/ return caml_ml_close_channel(oc) /*<<stdlib.ml:392:49>>*/ ;
+   }
    function close_out_noerr(oc){
-     /*<<stdlib.ml:394:2>>*/ try{
-      /*<<stdlib.ml:394:7>>*/  /*<<stdlib.ml:394:7>>*/ caml_ml_flush
-       /*<<stdlib.ml:394:7>>*/ (oc);
-    }
+     /*<<stdlib.ml:394:2>>*/ try{ /*<<stdlib.ml:394:7>>*/ caml_ml_flush(oc);}
     catch(_n_){}
      /*<<stdlib.ml:395:2>>*/ try{
-     var
-      _l_ =
-         /*<<stdlib.ml:395:7>>*/  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel
-          /*<<stdlib.ml:395:7>>*/ (oc);
-      /*<<stdlib.ml:395:7>>*/ return _l_ /*<<stdlib.ml:395:7>>*/ ;
+     var _l_ =  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel(oc);
+     return _l_;
     }
-    catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0 /*<<stdlib.ml:395:38>>*/ ;}
+    catch(_m_){ /*<<stdlib.ml:395:38>>*/ return 0;}
     /*<<stdlib.ml:395:41>>*/ }
    function open_in_gen(mode, perm, name){
     var
      c =
-        /*<<stdlib.ml:405:10>>*/  /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
-         /*<<stdlib.ml:405:10>>*/ ( /*<<stdlib.ml:405:28>>*/ caml_sys_open
-           /*<<stdlib.ml:405:28>>*/ (name, mode, perm));
-     /*<<stdlib.ml:406:2>>*/  /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name
-      /*<<stdlib.ml:406:2>>*/ (c, name);
-     /*<<stdlib.ml:406:2>>*/ return c /*<<stdlib.ml:406:2>>*/ ;
+        /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
+        ( /*<<stdlib.ml:405:28>>*/ caml_sys_open(name, mode, perm));
+     /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name(c, name);
+    return c;
     /*<<stdlib.ml:407:3>>*/ }
    function open_in(name){
-     /*<<stdlib.ml:410:2>>*/ return  /*<<stdlib.ml:410:2>>*/ open_in_gen
-             /*<<stdlib.ml:410:2>>*/ (_e_, 0, name) /*<<stdlib.ml:410:45>>*/ ;
-    /*<<stdlib.ml:410:45>>*/ }
+     /*<<stdlib.ml:410:2>>*/ return open_in_gen(_e_, 0, name) /*<<stdlib.ml:410:45>>*/ ;
+   }
    function open_in_bin(name){
-     /*<<stdlib.ml:413:2>>*/ return  /*<<stdlib.ml:413:2>>*/ open_in_gen
-             /*<<stdlib.ml:413:2>>*/ (_f_, 0, name) /*<<stdlib.ml:413:47>>*/ ;
-    /*<<stdlib.ml:413:47>>*/ }
+     /*<<stdlib.ml:413:2>>*/ return open_in_gen(_f_, 0, name) /*<<stdlib.ml:413:47>>*/ ;
+   }
    function input(ic, s, ofs, len){
      /*<<stdlib.ml:421:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:423:7>>*/ return  /*<<stdlib.ml:423:7>>*/ caml_ml_input
-              /*<<stdlib.ml:423:7>>*/ (ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
-     /*<<stdlib.ml:422:7>>*/ return  /*<<stdlib.ml:422:7>>*/ invalid_arg
-             /*<<stdlib.ml:422:7>>*/ (cst_input) /*<<stdlib.ml:423:32>>*/ ;
-    /*<<stdlib.ml:423:32>>*/ }
+      /*<<stdlib.ml:423:7>>*/ return caml_ml_input(ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
+     /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input) /*<<stdlib.ml:423:32>>*/ ;
+   }
    function unsafe_really_input(ic, s, ofs, len){
     var ofs$0 = ofs, len$0 = len;
      /*<<stdlib.ml:426:2>>*/ for(;;){
-     if(0 >= len$0)
-       /*<<stdlib.ml:426:19>>*/ return 0 /*<<stdlib.ml:426:19>>*/ ;
-     var
-      r =
-         /*<<stdlib.ml:427:12>>*/  /*<<stdlib.ml:427:12>>*/ caml_ml_input
-          /*<<stdlib.ml:427:12>>*/ (ic, s, ofs$0, len$0);
+     if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
+     var r =  /*<<stdlib.ml:427:12>>*/ caml_ml_input(ic, s, ofs$0, len$0);
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
-       /*<<stdlib.ml:429:9>>*/ throw  /*<<stdlib.ml:429:9>>*/ caml_maybe_attach_backtrace
-              /*<<stdlib.ml:429:9>>*/ (End_of_file, 1);
+       /*<<stdlib.ml:429:9>>*/ throw caml_maybe_attach_backtrace
+             (End_of_file, 1);
      var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
      ofs$0 = ofs$1;
      len$0 = len$1;
@@ -755,34 +681,25 @@
    function really_input(ic, s, ofs, len){
      /*<<stdlib.ml:434:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:436:7>>*/ return  /*<<stdlib.ml:436:7>>*/ unsafe_really_input
-              /*<<stdlib.ml:436:7>>*/ (ic, s, ofs, len) /*<<stdlib.ml:436:39>>*/ ;
-     /*<<stdlib.ml:435:7>>*/ return  /*<<stdlib.ml:435:7>>*/ invalid_arg
-             /*<<stdlib.ml:435:7>>*/ (cst_really_input) /*<<stdlib.ml:436:39>>*/ ;
-    /*<<stdlib.ml:436:39>>*/ }
+      /*<<stdlib.ml:436:7>>*/ return unsafe_really_input(ic, s, ofs, len) /*<<stdlib.ml:436:39>>*/ ;
+     /*<<stdlib.ml:435:7>>*/ return invalid_arg(cst_really_input) /*<<stdlib.ml:436:39>>*/ ;
+   }
    function really_input_string(ic, len){
-    var
-     s =
-        /*<<stdlib.ml:439:10>>*/  /*<<stdlib.ml:439:10>>*/ caml_create_bytes
-         /*<<stdlib.ml:439:10>>*/ (len);
-     /*<<stdlib.ml:440:2>>*/  /*<<stdlib.ml:440:2>>*/ really_input
-      /*<<stdlib.ml:440:2>>*/ (ic, s, 0, len);
+    var s =  /*<<stdlib.ml:439:10>>*/ caml_create_bytes(len);
+     /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
     return caml_string_of_bytes(s) /*<<stdlib.ml:441:26>>*/ ;
-    /*<<stdlib.ml:441:26>>*/ }
+   }
    function input_line(chan){
     function build_result(buf, pos, param){
      var pos$0 = pos, param$0 = param;
       /*<<stdlib.ml:446:23>>*/ for(;;){
-      if(! param$0)
-        /*<<stdlib.ml:447:10>>*/ return buf /*<<stdlib.ml:447:10>>*/ ;
+      if(! param$0)  /*<<stdlib.ml:447:10>>*/ return buf;
       var
        tl = param$0[2],
        hd = param$0[1],
-       len =
-          /*<<stdlib.ml:449:6>>*/  /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length
-           /*<<stdlib.ml:449:6>>*/ (hd);
-       /*<<stdlib.ml:450:6>>*/  /*<<stdlib.ml:450:6>>*/ runtime.caml_blit_bytes
-        /*<<stdlib.ml:450:6>>*/ (hd, 0, buf, pos$0 - len | 0, len);
+       len =  /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length(hd);
+       /*<<stdlib.ml:450:6>>*/ runtime.caml_blit_bytes
+       (hd, 0, buf, pos$0 - len | 0, len);
       var pos$1 = pos$0 - len | 0;
       pos$0 = pos$1;
       param$0 = tl;
@@ -790,30 +707,20 @@
      /*<<stdlib.ml:451:37>>*/ }
     var accu = 0, len = 0;
      /*<<stdlib.ml:453:4>>*/ for(;;){
-     var
-      n =
-         /*<<stdlib.ml:453:12>>*/  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line
-          /*<<stdlib.ml:453:12>>*/ (chan);
+     var n =  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line(chan);
       /*<<stdlib.ml:454:4>>*/ if(0 === n){
       if(! accu)
-        /*<<stdlib.ml:456:14>>*/ throw  /*<<stdlib.ml:456:14>>*/ caml_maybe_attach_backtrace
-               /*<<stdlib.ml:456:14>>*/ (End_of_file, 1);
+        /*<<stdlib.ml:456:14>>*/ throw caml_maybe_attach_backtrace
+              (End_of_file, 1);
       var
        _k_ =
           /*<<stdlib.ml:457:14>>*/ build_result
-           /*<<stdlib.ml:457:14>>*/ ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes
-             /*<<stdlib.ml:457:27>>*/ (len),
-           len,
-           accu);
+          ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes(len), len, accu);
      }
      else{
       if(0 >= n){
-       var
-        beg =
-           /*<<stdlib.ml:467:16>>*/  /*<<stdlib.ml:467:16>>*/ caml_create_bytes
-            /*<<stdlib.ml:467:16>>*/ (- n | 0);
-        /*<<stdlib.ml:468:12>>*/  /*<<stdlib.ml:468:12>>*/ caml_ml_input
-         /*<<stdlib.ml:468:12>>*/ (chan, beg, 0, - n | 0);
+       var beg =  /*<<stdlib.ml:467:16>>*/ caml_create_bytes(- n | 0);
+        /*<<stdlib.ml:468:12>>*/ caml_ml_input(chan, beg, 0, - n | 0);
        var
         len$1 = len - n | 0,
         accu$0 =  /*<<stdlib.ml:469:11>>*/ [0, beg, accu];
@@ -821,141 +728,105 @@
        len = len$1;
        continue;
       }
-      var
-       res =
-          /*<<stdlib.ml:459:16>>*/  /*<<stdlib.ml:459:16>>*/ caml_create_bytes
-           /*<<stdlib.ml:459:16>>*/ (n - 1 | 0);
-       /*<<stdlib.ml:460:13>>*/  /*<<stdlib.ml:460:13>>*/ caml_ml_input
-        /*<<stdlib.ml:460:13>>*/ (chan, res, 0, n - 1 | 0);
-       /*<<stdlib.ml:461:13>>*/  /*<<stdlib.ml:461:13>>*/ caml_ml_input_char
-        /*<<stdlib.ml:461:13>>*/ (chan);
+      var res =  /*<<stdlib.ml:459:16>>*/ caml_create_bytes(n - 1 | 0);
+       /*<<stdlib.ml:460:13>>*/ caml_ml_input(chan, res, 0, n - 1 | 0);
+       /*<<stdlib.ml:461:13>>*/ caml_ml_input_char(chan);
       if(accu)
        var
         len$0 = (len + n | 0) - 1 | 0,
         _k_ =
            /*<<stdlib.ml:465:50>>*/ build_result
-            /*<<stdlib.ml:465:50>>*/ ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes
-              /*<<stdlib.ml:465:27>>*/ (len$0),
+           ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes(len$0),
             len$0,
             [0, res, accu]);
       else
        var _k_ = res;
      }
-      /*<<stdlib.ml:471:28>>*/ return  /*<<stdlib.ml:471:28>>*/ caml_string_of_bytes
-              /*<<stdlib.ml:471:28>>*/ (_k_) /*<<stdlib.ml:471:39>>*/ ;
+      /*<<stdlib.ml:471:28>>*/ return caml_string_of_bytes(_k_) /*<<stdlib.ml:471:39>>*/ ;
     }
-    /*<<stdlib.ml:471:39>>*/ }
+   }
    function close_in_noerr(ic){
      /*<<stdlib.ml:480:24>>*/ try{
-     var
-      _i_ =
-         /*<<stdlib.ml:480:29>>*/  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel
-          /*<<stdlib.ml:480:29>>*/ (ic);
-      /*<<stdlib.ml:480:29>>*/ return _i_ /*<<stdlib.ml:480:29>>*/ ;
+     var _i_ =  /*<<stdlib.ml:480:29>>*/ caml_ml_close_channel(ic);
+     return _i_;
     }
-    catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0 /*<<stdlib.ml:480:51>>*/ ;}
+    catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0;}
     /*<<stdlib.ml:480:54>>*/ }
    function print_char(c){
-     /*<<stdlib.ml:486:19>>*/ return  /*<<stdlib.ml:486:19>>*/ caml_ml_output_char
-             /*<<stdlib.ml:486:19>>*/ (stdout, c) /*<<stdlib.ml:486:39>>*/ ;
-    /*<<stdlib.ml:486:39>>*/ }
+     /*<<stdlib.ml:486:19>>*/ return caml_ml_output_char(stdout, c) /*<<stdlib.ml:486:39>>*/ ;
+   }
    function print_string(s){
-     /*<<stdlib.ml:487:21>>*/ return  /*<<stdlib.ml:487:21>>*/ output_string
-             /*<<stdlib.ml:487:21>>*/ (stdout, s) /*<<stdlib.ml:487:43>>*/ ;
-    /*<<stdlib.ml:487:43>>*/ }
+     /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s) /*<<stdlib.ml:487:43>>*/ ;
+   }
    function print_bytes(s){
-     /*<<stdlib.ml:488:20>>*/ return  /*<<stdlib.ml:488:20>>*/ output_bytes
-             /*<<stdlib.ml:488:20>>*/ (stdout, s) /*<<stdlib.ml:488:41>>*/ ;
-    /*<<stdlib.ml:488:41>>*/ }
+     /*<<stdlib.ml:488:20>>*/ return output_bytes(stdout, s) /*<<stdlib.ml:488:41>>*/ ;
+   }
    function print_int(i){
      /*<<stdlib.ml:489:18>>*/ return  /*<<stdlib.ml:489:39>>*/ output_string
-             /*<<stdlib.ml:489:39>>*/ (stdout, "" + i) /*<<stdlib.ml:489:56>>*/ ;
-    /*<<stdlib.ml:489:56>>*/ }
+            (stdout, "" + i) /*<<stdlib.ml:489:56>>*/ ;
+   }
    function print_float(f){
      /*<<stdlib.ml:490:20>>*/ return  /*<<stdlib.ml:490:41>>*/ output_string
-             /*<<stdlib.ml:490:41>>*/ (stdout,
-              /*<<stdlib.ml:490:41>>*/ string_of_float
-               /*<<stdlib.ml:490:41>>*/ (f)) /*<<stdlib.ml:490:60>>*/ ;
-    /*<<stdlib.ml:490:60>>*/ }
+            (stdout, string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
+   }
    function print_endline(s){
-     /*<<stdlib.ml:492:2>>*/  /*<<stdlib.ml:492:2>>*/ output_string
-      /*<<stdlib.ml:492:2>>*/ (stdout, s);
-     /*<<stdlib.ml:492:26>>*/  /*<<stdlib.ml:492:26>>*/ caml_ml_output_char
-      /*<<stdlib.ml:492:26>>*/ (stdout, 10);
-     /*<<stdlib.ml:492:51>>*/ return  /*<<stdlib.ml:492:51>>*/ caml_ml_flush
-             /*<<stdlib.ml:492:51>>*/ (stdout) /*<<stdlib.ml:492:63>>*/ ;
-    /*<<stdlib.ml:492:63>>*/ }
+     /*<<stdlib.ml:492:2>>*/ output_string(stdout, s);
+     /*<<stdlib.ml:492:26>>*/ caml_ml_output_char(stdout, 10);
+     /*<<stdlib.ml:492:51>>*/ return caml_ml_flush(stdout) /*<<stdlib.ml:492:63>>*/ ;
+   }
    function print_newline(param){
-     /*<<stdlib.ml:493:23>>*/  /*<<stdlib.ml:493:23>>*/ caml_ml_output_char
-      /*<<stdlib.ml:493:23>>*/ (stdout, 10);
-     /*<<stdlib.ml:493:48>>*/ return  /*<<stdlib.ml:493:48>>*/ caml_ml_flush
-             /*<<stdlib.ml:493:48>>*/ (stdout) /*<<stdlib.ml:493:60>>*/ ;
-    /*<<stdlib.ml:493:60>>*/ }
+     /*<<stdlib.ml:493:23>>*/ caml_ml_output_char(stdout, 10);
+     /*<<stdlib.ml:493:48>>*/ return caml_ml_flush(stdout) /*<<stdlib.ml:493:60>>*/ ;
+   }
    function prerr_char(c){
-     /*<<stdlib.ml:497:19>>*/ return  /*<<stdlib.ml:497:19>>*/ caml_ml_output_char
-             /*<<stdlib.ml:497:19>>*/ (stderr, c) /*<<stdlib.ml:497:39>>*/ ;
-    /*<<stdlib.ml:497:39>>*/ }
+     /*<<stdlib.ml:497:19>>*/ return caml_ml_output_char(stderr, c) /*<<stdlib.ml:497:39>>*/ ;
+   }
    function prerr_string(s){
-     /*<<stdlib.ml:498:21>>*/ return  /*<<stdlib.ml:498:21>>*/ output_string
-             /*<<stdlib.ml:498:21>>*/ (stderr, s) /*<<stdlib.ml:498:43>>*/ ;
-    /*<<stdlib.ml:498:43>>*/ }
+     /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s) /*<<stdlib.ml:498:43>>*/ ;
+   }
    function prerr_bytes(s){
-     /*<<stdlib.ml:499:20>>*/ return  /*<<stdlib.ml:499:20>>*/ output_bytes
-             /*<<stdlib.ml:499:20>>*/ (stderr, s) /*<<stdlib.ml:499:41>>*/ ;
-    /*<<stdlib.ml:499:41>>*/ }
+     /*<<stdlib.ml:499:20>>*/ return output_bytes(stderr, s) /*<<stdlib.ml:499:41>>*/ ;
+   }
    function prerr_int(i){
      /*<<stdlib.ml:500:18>>*/ return  /*<<stdlib.ml:500:39>>*/ output_string
-             /*<<stdlib.ml:500:39>>*/ (stderr, "" + i) /*<<stdlib.ml:500:56>>*/ ;
-    /*<<stdlib.ml:500:56>>*/ }
+            (stderr, "" + i) /*<<stdlib.ml:500:56>>*/ ;
+   }
    function prerr_float(f){
      /*<<stdlib.ml:501:20>>*/ return  /*<<stdlib.ml:501:41>>*/ output_string
-             /*<<stdlib.ml:501:41>>*/ (stderr,
-              /*<<stdlib.ml:501:41>>*/ string_of_float
-               /*<<stdlib.ml:501:41>>*/ (f)) /*<<stdlib.ml:501:60>>*/ ;
-    /*<<stdlib.ml:501:60>>*/ }
+            (stderr, string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
+   }
    function prerr_endline(s){
-     /*<<stdlib.ml:503:2>>*/  /*<<stdlib.ml:503:2>>*/ output_string
-      /*<<stdlib.ml:503:2>>*/ (stderr, s);
-     /*<<stdlib.ml:503:26>>*/  /*<<stdlib.ml:503:26>>*/ caml_ml_output_char
-      /*<<stdlib.ml:503:26>>*/ (stderr, 10);
-     /*<<stdlib.ml:503:51>>*/ return  /*<<stdlib.ml:503:51>>*/ caml_ml_flush
-             /*<<stdlib.ml:503:51>>*/ (stderr) /*<<stdlib.ml:503:63>>*/ ;
-    /*<<stdlib.ml:503:63>>*/ }
+     /*<<stdlib.ml:503:2>>*/ output_string(stderr, s);
+     /*<<stdlib.ml:503:26>>*/ caml_ml_output_char(stderr, 10);
+     /*<<stdlib.ml:503:51>>*/ return caml_ml_flush(stderr) /*<<stdlib.ml:503:63>>*/ ;
+   }
    function prerr_newline(param){
-     /*<<stdlib.ml:504:23>>*/  /*<<stdlib.ml:504:23>>*/ caml_ml_output_char
-      /*<<stdlib.ml:504:23>>*/ (stderr, 10);
-     /*<<stdlib.ml:504:48>>*/ return  /*<<stdlib.ml:504:48>>*/ caml_ml_flush
-             /*<<stdlib.ml:504:48>>*/ (stderr) /*<<stdlib.ml:504:60>>*/ ;
-    /*<<stdlib.ml:504:60>>*/ }
+     /*<<stdlib.ml:504:23>>*/ caml_ml_output_char(stderr, 10);
+     /*<<stdlib.ml:504:48>>*/ return caml_ml_flush(stderr) /*<<stdlib.ml:504:60>>*/ ;
+   }
    function read_line(param){
-     /*<<stdlib.ml:508:19>>*/  /*<<stdlib.ml:508:19>>*/ caml_ml_flush
-      /*<<stdlib.ml:508:19>>*/ (stdout);
-     /*<<stdlib.ml:314:12>>*/ return  /*<<stdlib.ml:314:12>>*/ input_line
-             /*<<stdlib.ml:314:12>>*/ (stdin) /*<<stdlib.ml:508:49>>*/ ;
-    /*<<stdlib.ml:508:49>>*/ }
+     /*<<stdlib.ml:508:19>>*/ caml_ml_flush(stdout);
+     /*<<stdlib.ml:314:12>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
+   }
    function read_int(param){
-     /*<<stdlib.ml:509:18>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
-             /*<<stdlib.ml:509:18>>*/ ( /*<<stdlib.ml:509:31>>*/ read_line
-               /*<<stdlib.ml:509:31>>*/ (0)) /*<<stdlib.ml:509:44>>*/ ;
-    /*<<stdlib.ml:509:44>>*/ }
+     /*<<stdlib.ml:509:18>>*/ return caml_int_of_string
+            ( /*<<stdlib.ml:509:31>>*/ read_line(0)) /*<<stdlib.ml:509:44>>*/ ;
+   }
    function read_int_opt(param){
      /*<<stdlib.ml:510:22>>*/ return  /*<<stdlib.ml:510:39>>*/ int_of_string_opt
-             /*<<stdlib.ml:510:39>>*/ ( /*<<stdlib.ml:510:39>>*/ read_line
-               /*<<stdlib.ml:510:39>>*/ (0)) /*<<stdlib.ml:510:52>>*/ ;
-    /*<<stdlib.ml:510:52>>*/ }
+            (read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
+   }
    function read_float(param){
-     /*<<stdlib.ml:511:20>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
-             /*<<stdlib.ml:511:20>>*/ ( /*<<stdlib.ml:511:35>>*/ read_line
-               /*<<stdlib.ml:511:35>>*/ (0)) /*<<stdlib.ml:511:48>>*/ ;
-    /*<<stdlib.ml:511:48>>*/ }
+     /*<<stdlib.ml:511:20>>*/ return caml_float_of_string
+            ( /*<<stdlib.ml:511:35>>*/ read_line(0)) /*<<stdlib.ml:511:48>>*/ ;
+   }
    function read_float_opt(param){
      /*<<stdlib.ml:512:24>>*/ return  /*<<stdlib.ml:512:43>>*/ float_of_string_opt
-             /*<<stdlib.ml:512:43>>*/ ( /*<<stdlib.ml:512:43>>*/ read_line
-               /*<<stdlib.ml:512:43>>*/ (0)) /*<<stdlib.ml:512:56>>*/ ;
-    /*<<stdlib.ml:512:56>>*/ }
+            (read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
+   }
    function string_of_format(param){
     var str = param[2];
-     /*<<stdlib.ml:538:44>>*/ return str /*<<stdlib.ml:538:44>>*/ ;
+     /*<<stdlib.ml:538:44>>*/ return str;
     /*<<stdlib.ml:538:47>>*/ }
    function symbol$0(_h_, param){
     var
@@ -966,9 +837,7 @@
      s2 = "%," + str2;
      /*<<stdlib.ml:545:2>>*/ return [0,
              /*<<stdlib.ml:545:10>>*/ caml_call2
-              /*<<stdlib.ml:545:10>>*/ (CamlinternalFormatBasics[3],
-              fmt1,
-              fmt2),
+             (CamlinternalFormatBasics[3], fmt1, fmt2),
             str1 + s2] /*<<stdlib.ml:545:2>>*/ ;
     /*<<stdlib.ml:546:29>>*/ }
    var exit_function =  /*<<stdlib.ml:559:20>>*/ [0, flush_all];
@@ -976,44 +845,36 @@
      /*<<stdlib.ml:563:2>>*/ for(;;){
      var
       f_yet_to_run =  /*<<stdlib.ml:563:21>>*/ [0, 1],
-      old_exit =
-         /*<<stdlib.ml:564:2>>*/  /*<<stdlib.ml:564:2>>*/ caml_atomic_load
-          /*<<stdlib.ml:564:2>>*/ (exit_function);
+      old_exit =  /*<<stdlib.ml:564:2>>*/ caml_atomic_load(exit_function);
      let f_yet_to_run$0 = f_yet_to_run, old_exit$0 = old_exit;
      var
       new_exit =
         function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
-           /*<<stdlib.ml:566:59>>*/  /*<<stdlib.ml:566:59>>*/ caml_call1
-            /*<<stdlib.ml:566:59>>*/ (f, 0);
-          /*<<stdlib.ml:566:59>>*/ return  /*<<stdlib.ml:566:59>>*/ caml_call1
-                  /*<<stdlib.ml:566:59>>*/ (old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
-         /*<<stdlib.ml:567:15>>*/ },
+           /*<<stdlib.ml:566:59>>*/ caml_call1(f, 0);
+         return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
+        },
       success = caml_atomic_cas(exit_function, old_exit, new_exit),
       _g_ =  /*<<stdlib.ml:570:2>>*/ 1 - success;
-     if(! _g_)  /*<<stdlib.ml:570:2>>*/ return _g_ /*<<stdlib.ml:570:2>>*/ ;
+     if(! _g_) return _g_;
     }
     /*<<stdlib.ml:570:31>>*/ }
    var
     do_domain_local_at_exit =
        /*<<stdlib.ml:572:30>>*/ [0,
        function(param){
-         /*<<stdlib.ml:572:45>>*/ return 0 /*<<stdlib.ml:572:45>>*/ ;
+         /*<<stdlib.ml:572:45>>*/ return 0;
         /*<<stdlib.ml:572:47>>*/ }];
    function do_at_exit(param){
-     /*<<stdlib.ml:575:2>>*/  /*<<stdlib.ml:575:2>>*/ caml_call1
-      /*<<stdlib.ml:575:2>>*/ (do_domain_local_at_exit[1], 0);
-     /*<<stdlib.ml:575:2>>*/ return  /*<<stdlib.ml:575:2>>*/ caml_call1
-             /*<<stdlib.ml:575:2>>*/ (caml_atomic_load(exit_function), 0) /*<<stdlib.ml:576:31>>*/ ;
-    /*<<stdlib.ml:576:31>>*/ }
+     /*<<stdlib.ml:575:2>>*/ caml_call1(do_domain_local_at_exit[1], 0);
+    return caml_call1(caml_atomic_load(exit_function), 0) /*<<stdlib.ml:576:31>>*/ ;
+   }
    function exit(retcode){
-     /*<<stdlib.ml:579:2>>*/  /*<<stdlib.ml:579:2>>*/ do_at_exit
-      /*<<stdlib.ml:579:2>>*/ (0);
-     /*<<stdlib.ml:580:2>>*/ return  /*<<stdlib.ml:580:2>>*/ runtime.caml_sys_exit
-             /*<<stdlib.ml:580:2>>*/ (retcode) /*<<stdlib.ml:580:18>>*/ ;
-    /*<<stdlib.ml:580:18>>*/ }
-    /*<<stdlib.ml:582:8>>*/  /*<<stdlib.ml:582:8>>*/ runtime.caml_register_named_value
-     /*<<stdlib.ml:582:8>>*/ ("Pervasives.do_at_exit", do_at_exit);
+     /*<<stdlib.ml:579:2>>*/ do_at_exit(0);
+     /*<<stdlib.ml:580:2>>*/ return runtime.caml_sys_exit(retcode) /*<<stdlib.ml:580:18>>*/ ;
+   }
+    /*<<stdlib.ml:582:8>>*/ runtime.caml_register_named_value
+    ("Pervasives.do_at_exit", do_at_exit);
    var
     Stdlib =
       [0,
@@ -1135,7 +996,7 @@
 //# unitInfo: Provides: Stdlib__Either
 (function(globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -1147,100 +1008,88 @@
             : runtime.caml_call_gen(f, [a0, a1]);
    }
    function left(v){
-     /*<<either.ml:18:13>>*/ return [0, v] /*<<either.ml:18:13>>*/ ;
+     /*<<either.ml:18:13>>*/ return [0, v];
     /*<<either.ml:18:19>>*/ }
    function right(v){
-     /*<<either.ml:19:14>>*/ return [1, v] /*<<either.ml:19:14>>*/ ;
+     /*<<either.ml:19:14>>*/ return [1, v];
     /*<<either.ml:19:21>>*/ }
    function is_left(param){
      /*<<either.ml:21:14>>*/ return 0 === param[0] ? 1 : 0 /*<<either.ml:23:18>>*/ ;
-    /*<<either.ml:23:18>>*/ }
+   }
    function is_right(param){
      /*<<either.ml:25:15>>*/ return 0 === param[0] ? 0 : 1 /*<<either.ml:27:17>>*/ ;
-    /*<<either.ml:27:17>>*/ }
+   }
    function find_left(param){
      /*<<either.ml:29:16>>*/ if(0 !== param[0])
-      /*<<either.ml:31:13>>*/ return 0 /*<<either.ml:31:13>>*/ ;
+      /*<<either.ml:31:13>>*/ return 0;
     var v = param[1];
-     /*<<either.ml:30:12>>*/ return [0, v] /*<<either.ml:30:12>>*/ ;
+     /*<<either.ml:30:12>>*/ return [0, v];
     /*<<either.ml:31:17>>*/ }
    function find_right(param){
      /*<<either.ml:33:17>>*/ if(0 === param[0])
-      /*<<either.ml:34:12>>*/ return 0 /*<<either.ml:34:12>>*/ ;
+      /*<<either.ml:34:12>>*/ return 0;
     var v = param[1];
-     /*<<either.ml:35:13>>*/ return [0, v] /*<<either.ml:35:13>>*/ ;
+     /*<<either.ml:35:13>>*/ return [0, v];
     /*<<either.ml:35:19>>*/ }
    function map_left(f, e){
-     /*<<either.ml:37:13>>*/ if(0 !== e[0])
-      /*<<either.ml:39:18>>*/ return e /*<<either.ml:39:18>>*/ ;
+     /*<<either.ml:37:13>>*/ if(0 !== e[0])  /*<<either.ml:39:18>>*/ return e;
     var v = e[1];
      /*<<either.ml:38:12>>*/ return [0,
-             /*<<either.ml:38:17>>*/ caml_call1 /*<<either.ml:38:17>>*/ (f, v)] /*<<either.ml:38:12>>*/ ;
+             /*<<either.ml:38:17>>*/ caml_call1(f, v)] /*<<either.ml:38:12>>*/ ;
     /*<<either.ml:39:19>>*/ }
    function map_right(f, e){
-     /*<<either.ml:41:14>>*/ if(0 === e[0])
-      /*<<either.ml:42:17>>*/ return e /*<<either.ml:42:17>>*/ ;
+     /*<<either.ml:41:14>>*/ if(0 === e[0])  /*<<either.ml:42:17>>*/ return e;
     var v = e[1];
      /*<<either.ml:43:13>>*/ return [1,
-             /*<<either.ml:43:19>>*/ caml_call1 /*<<either.ml:43:19>>*/ (f, v)] /*<<either.ml:43:13>>*/ ;
+             /*<<either.ml:43:19>>*/ caml_call1(f, v)] /*<<either.ml:43:13>>*/ ;
     /*<<either.ml:43:24>>*/ }
    function map(left, right, param){
      /*<<either.ml:45:8>>*/ if(0 === param[0]){
      var v = param[1];
       /*<<either.ml:46:12>>*/ return [0,
-              /*<<either.ml:46:17>>*/ caml_call1
-               /*<<either.ml:46:17>>*/ (left, v)] /*<<either.ml:46:12>>*/ ;
+              /*<<either.ml:46:17>>*/ caml_call1(left, v)] /*<<either.ml:46:12>>*/ ;
     }
     var v$0 = param[1];
      /*<<either.ml:47:13>>*/ return [1,
-             /*<<either.ml:47:19>>*/ caml_call1
-              /*<<either.ml:47:19>>*/ (right, v$0)] /*<<either.ml:47:13>>*/ ;
+             /*<<either.ml:47:19>>*/ caml_call1(right, v$0)] /*<<either.ml:47:13>>*/ ;
     /*<<either.ml:47:28>>*/ }
    function fold(left, right, param){
      /*<<either.ml:49:9>>*/ if(0 === param[0]){
      var v = param[1];
-      /*<<either.ml:50:12>>*/ return  /*<<either.ml:50:12>>*/ caml_call1
-              /*<<either.ml:50:12>>*/ (left, v) /*<<either.ml:51:20>>*/ ;
+      /*<<either.ml:50:12>>*/ return caml_call1(left, v) /*<<either.ml:51:20>>*/ ;
     }
     var v$0 = param[1];
-     /*<<either.ml:51:13>>*/ return  /*<<either.ml:51:13>>*/ caml_call1
-             /*<<either.ml:51:13>>*/ (right, v$0) /*<<either.ml:51:20>>*/ ;
-    /*<<either.ml:51:20>>*/ }
+     /*<<either.ml:51:13>>*/ return caml_call1(right, v$0) /*<<either.ml:51:20>>*/ ;
+   }
    function equal(left, right, e1, e2){
      /*<<either.ml:57:31>>*/ if(0 === e1[0]){
      var v1 = e1[1];
      if(0 === e2[0]){
       var v2 = e2[1];
-       /*<<either.ml:58:22>>*/ return  /*<<either.ml:58:22>>*/ caml_call2
-               /*<<either.ml:58:22>>*/ (left, v1, v2) /*<<either.ml:60:44>>*/ ;
+       /*<<either.ml:58:22>>*/ return caml_call2(left, v1, v2) /*<<either.ml:60:44>>*/ ;
      }
     }
     else{
      var v1$0 = e1[1];
      if(0 !== e2[0]){
       var v2$0 = e2[1];
-       /*<<either.ml:59:24>>*/ return  /*<<either.ml:59:24>>*/ caml_call2
-               /*<<either.ml:59:24>>*/ (right, v1$0, v2$0) /*<<either.ml:60:44>>*/ ;
+       /*<<either.ml:59:24>>*/ return caml_call2(right, v1$0, v2$0) /*<<either.ml:60:44>>*/ ;
      }
     }
-     /*<<either.ml:60:39>>*/ return 0 /*<<either.ml:60:39>>*/ ;
+     /*<<either.ml:60:39>>*/ return 0;
     /*<<either.ml:60:44>>*/ }
    function compare(left, right, e1, e2){
      /*<<either.ml:62:33>>*/ if(0 === e1[0]){
      var v1 = e1[1];
-     if(0 !== e2[0])
-       /*<<either.ml:65:21>>*/ return -1 /*<<either.ml:65:21>>*/ ;
+     if(0 !== e2[0])  /*<<either.ml:65:21>>*/ return -1;
      var v2 = e2[1];
-      /*<<either.ml:63:22>>*/ return  /*<<either.ml:63:22>>*/ caml_call2
-              /*<<either.ml:63:22>>*/ (left, v1, v2) /*<<either.ml:66:22>>*/ ;
+      /*<<either.ml:63:22>>*/ return caml_call2(left, v1, v2) /*<<either.ml:66:22>>*/ ;
     }
     var v1$0 = e1[1];
-    if(0 === e2[0])
-      /*<<either.ml:66:21>>*/ return 1 /*<<either.ml:66:21>>*/ ;
+    if(0 === e2[0])  /*<<either.ml:66:21>>*/ return 1;
     var v2$0 = e2[1];
-     /*<<either.ml:64:24>>*/ return  /*<<either.ml:64:24>>*/ caml_call2
-             /*<<either.ml:64:24>>*/ (right, v1$0, v2$0) /*<<either.ml:66:22>>*/ ;
-    /*<<either.ml:66:22>>*/ }
+     /*<<either.ml:64:24>>*/ return caml_call2(right, v1$0, v2$0) /*<<either.ml:66:22>>*/ ;
+   }
    var
     Stdlib_Either =
       [0,
@@ -1269,21 +1118,16 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
+    runtime = globalThis.jsoo_runtime,
+    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],
     Stdlib = global_data.Stdlib,
     executable_name =
-       /*<<sys.ml.in:36:22>>*/  /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name
-        /*<<sys.ml.in:36:22>>*/ (0),
-    os_type =
-       /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config
-         /*<<sys.ml.in:37:22>>*/ (0)
-       [1],
+       /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name(0),
+    os_type =  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config(0)[1],
     backend_type = [0, "js_of_ocaml"],
     unix = runtime.caml_sys_const_ostype_unix(0),
     win32 = runtime.caml_sys_const_ostype_win32(0),
@@ -1296,14 +1140,12 @@
      var
       _d_ =
          /*<<sys.ml.in:60:6>>*/ [0,
-          /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv
-           /*<<sys.ml.in:60:11>>*/ (s)];
-      /*<<sys.ml.in:60:6>>*/ return _d_ /*<<sys.ml.in:60:6>>*/ ;
+          /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
+      /*<<sys.ml.in:60:6>>*/ return _d_;
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
-     if(_c_ === Stdlib[8])
-       /*<<sys.ml.in:61:20>>*/ return 0 /*<<sys.ml.in:61:20>>*/ ;
+     if(_c_ === Stdlib[8])  /*<<sys.ml.in:61:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<sys.ml.in:61:24>>*/ }
@@ -1318,10 +1160,8 @@
        runtime.caml_fresh_oo_id(0)];
    function catch_break(on){
      /*<<sys.ml.in:116:2>>*/ return on ? 0 : 0 /*<<sys.ml.in:119:36>>*/ ;
-    /*<<sys.ml.in:119:36>>*/ }
-   function Make(_b_, _a_){
-     /*<<sys.ml.in:163:70>>*/ return [0, 1] /*<<sys.ml.in:163:70>>*/ ;
    }
+   function Make(_b_, _a_){ /*<<sys.ml.in:163:70>>*/ return [0, 1];}
    var
     Immediate64 =  /*<<sys.ml.in:155:21>>*/ [0, Make],
     Stdlib_Sys =
@@ -1388,10 +1228,10 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_Obj_extension_constructor$1 =  /*<<?>>*/ "Obj.extension_constructor",
-    caml_check_bound =  /*<<?>>*/ runtime.caml_check_bound,
-    caml_obj_tag =  /*<<?>>*/ runtime.caml_obj_tag;
+    runtime = globalThis.jsoo_runtime,
+    cst_Obj_extension_constructor$1 = "Obj.extension_constructor",
+    caml_check_bound = runtime.caml_check_bound,
+    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)
@@ -1405,11 +1245,11 @@
      /*<<obj.ml:26:34>>*/ return 1 - (typeof a === "number" ? 1 : 0);
     /*<<obj.ml:26:48>>*/ }
    function double_field(x, i){
-     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i] /*<<obj.ml:35:40>>*/ ;
+     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i];
     /*<<obj.ml:35:77>>*/ }
    function set_double_field(x, i, v){
      /*<<obj.ml:37:2>>*/ caml_check_bound(x, i)[1 + i] = v;
-     /*<<obj.ml:37:2>>*/ return 0 /*<<obj.ml:37:2>>*/ ;
+    return 0;
     /*<<obj.ml:37:41>>*/ }
    var
     cst_Obj_extension_constructor = cst_Obj_extension_constructor$1,
@@ -1418,32 +1258,24 @@
     a:
     {
       /*<<obj.ml:77:9>>*/ if
-      ( /*<<obj.ml:77:9>>*/ is_block /*<<obj.ml:77:9>>*/ (x)
-       &&
-         /*<<obj.ml:77:25>>*/ caml_obj_tag /*<<obj.ml:77:25>>*/ (x) !== 248
-        && 1 <= x.length - 1){
-      var slot = x[1];
-      break a;
-     }
+      (is_block(x)
+       &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot = x[1]; break a;}
      var slot = x;
     }
     a:
     {
       /*<<obj.ml:81:9>>*/ if
-      ( /*<<obj.ml:81:9>>*/ is_block /*<<obj.ml:81:9>>*/ (slot)
-       &&
-         /*<<obj.ml:81:28>>*/ caml_obj_tag /*<<obj.ml:81:28>>*/ (slot) === 248){var name = slot[1]; break a;}
+      (is_block(slot) &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
      var
       name =
          /*<<obj.ml:82:11>>*/ caml_call1
-          /*<<obj.ml:82:11>>*/ (Stdlib[1], cst_Obj_extension_constructor$0);
+         (Stdlib[1], cst_Obj_extension_constructor$0);
     }
-    return  /*<<obj.ml:84:9>>*/ caml_obj_tag /*<<obj.ml:84:9>>*/ (name)
-            === 252
+    return  /*<<obj.ml:84:9>>*/ caml_obj_tag(name) === 252
             ? slot
             :  /*<<obj.ml:85:11>>*/ caml_call1
-               /*<<obj.ml:85:11>>*/ (Stdlib[1], cst_Obj_extension_constructor) /*<<obj.ml:85:50>>*/ ;
-    /*<<obj.ml:85:50>>*/ }
+              (Stdlib[1], cst_Obj_extension_constructor) /*<<obj.ml:85:50>>*/ ;
+   }
    function name(slot){
      /*<<obj.ml:88:5>>*/ return slot[1] /*<<obj.ml:88:9>>*/ ;
     /*<<obj.ml:88:30>>*/ }
@@ -1463,82 +1295,64 @@
    function create(l){
     var _f_ = 0 <= l ? 1 : 0, _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
     if(1 - _g_)
-      /*<<obj.ml:106:6>>*/  /*<<obj.ml:106:6>>*/ caml_call1
-       /*<<obj.ml:106:6>>*/ (Stdlib[1], cst_Obj_Ephemeron_create);
-     /*<<obj.ml:107:4>>*/ return  /*<<obj.ml:107:4>>*/ runtime.caml_ephe_create
-             /*<<obj.ml:107:4>>*/ (l) /*<<obj.ml:107:12>>*/ ;
-    /*<<obj.ml:107:12>>*/ }
+      /*<<obj.ml:106:6>>*/ caml_call1(Stdlib[1], cst_Obj_Ephemeron_create);
+     /*<<obj.ml:107:4>>*/ return runtime.caml_ephe_create(l) /*<<obj.ml:107:12>>*/ ;
+   }
    function length(x){
      /*<<obj.ml:109:17>>*/ return x.length - 3 | 0;
     /*<<obj.ml:109:49>>*/ }
    function raise_if_invalid_offset(e, o, msg){
     var
      _c_ = 0 <= o ? 1 : 0,
-     _d_ =
-       _c_
-        ? o <  /*<<obj.ml:112:26>>*/ length /*<<obj.ml:112:26>>*/ (e) ? 1 : 0
-        : _c_,
+     _d_ = _c_ ? o <  /*<<obj.ml:112:26>>*/ length(e) ? 1 : 0 : _c_,
      _e_ = 1 - _d_;
-    return _e_
-            ?  /*<<obj.ml:113:6>>*/ caml_call1
-               /*<<obj.ml:113:6>>*/ (Stdlib[1], msg)
-            : _e_ /*<<obj.ml:113:21>>*/ ;
-    /*<<obj.ml:113:21>>*/ }
+    return _e_ ?  /*<<obj.ml:113:6>>*/ caml_call1(Stdlib[1], msg) : _e_ /*<<obj.ml:113:21>>*/ ;
+   }
    function get_key(e, o){
-     /*<<obj.ml:117:4>>*/  /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
-      /*<<obj.ml:117:4>>*/ (e, o, cst_Obj_Ephemeron_get_key);
-     /*<<obj.ml:118:4>>*/ return  /*<<obj.ml:118:4>>*/ runtime.caml_ephe_get_key
-             /*<<obj.ml:118:4>>*/ (e, o) /*<<obj.ml:118:15>>*/ ;
-    /*<<obj.ml:118:15>>*/ }
+     /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
+     (e, o, cst_Obj_Ephemeron_get_key);
+     /*<<obj.ml:118:4>>*/ return runtime.caml_ephe_get_key(e, o) /*<<obj.ml:118:15>>*/ ;
+   }
    function get_key_copy(e, o){
-     /*<<obj.ml:122:4>>*/  /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
-      /*<<obj.ml:122:4>>*/ (e, o, cst_Obj_Ephemeron_get_key_copy);
-     /*<<obj.ml:123:4>>*/ return  /*<<obj.ml:123:4>>*/ runtime.caml_ephe_get_key_copy
-             /*<<obj.ml:123:4>>*/ (e, o) /*<<obj.ml:123:20>>*/ ;
-    /*<<obj.ml:123:20>>*/ }
+     /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
+     (e, o, cst_Obj_Ephemeron_get_key_copy);
+     /*<<obj.ml:123:4>>*/ return runtime.caml_ephe_get_key_copy(e, o) /*<<obj.ml:123:20>>*/ ;
+   }
    function set_key(e, o, x){
-     /*<<obj.ml:127:4>>*/  /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
-      /*<<obj.ml:127:4>>*/ (e, o, cst_Obj_Ephemeron_set_key);
-     /*<<obj.ml:128:4>>*/ return  /*<<obj.ml:128:4>>*/ runtime.caml_ephe_set_key
-             /*<<obj.ml:128:4>>*/ (e, o, x) /*<<obj.ml:128:17>>*/ ;
-    /*<<obj.ml:128:17>>*/ }
+     /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
+     (e, o, cst_Obj_Ephemeron_set_key);
+     /*<<obj.ml:128:4>>*/ return runtime.caml_ephe_set_key(e, o, x) /*<<obj.ml:128:17>>*/ ;
+   }
    function unset_key(e, o){
-     /*<<obj.ml:132:4>>*/  /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
-      /*<<obj.ml:132:4>>*/ (e, o, cst_Obj_Ephemeron_unset_key);
-     /*<<obj.ml:133:4>>*/ return  /*<<obj.ml:133:4>>*/ runtime.caml_ephe_unset_key
-             /*<<obj.ml:133:4>>*/ (e, o) /*<<obj.ml:133:17>>*/ ;
-    /*<<obj.ml:133:17>>*/ }
+     /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
+     (e, o, cst_Obj_Ephemeron_unset_key);
+     /*<<obj.ml:133:4>>*/ return runtime.caml_ephe_unset_key(e, o) /*<<obj.ml:133:17>>*/ ;
+   }
    function check_key(e, o){
-     /*<<obj.ml:137:4>>*/  /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
-      /*<<obj.ml:137:4>>*/ (e, o, cst_Obj_Ephemeron_check_key);
-     /*<<obj.ml:138:4>>*/ return  /*<<obj.ml:138:4>>*/ runtime.caml_ephe_check_key
-             /*<<obj.ml:138:4>>*/ (e, o) /*<<obj.ml:138:17>>*/ ;
-    /*<<obj.ml:138:17>>*/ }
+     /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
+     (e, o, cst_Obj_Ephemeron_check_key);
+     /*<<obj.ml:138:4>>*/ return runtime.caml_ephe_check_key(e, o) /*<<obj.ml:138:17>>*/ ;
+   }
    function blit_key(e1, o1, e2, o2, l){
      /*<<obj.ml:144:4>>*/ if
      (0 <= l
       &&
        0 <= o1
        &&
-        ( /*<<obj.ml:144:31>>*/ length /*<<obj.ml:144:31>>*/ (e1) - l | 0)
-        >= o1
-        &&
-         0 <= o2
-         &&
-          ( /*<<obj.ml:145:25>>*/ length /*<<obj.ml:145:25>>*/ (e2) - l | 0)
-          >= o2){
+        ( /*<<obj.ml:144:31>>*/ length(e1) - l | 0) >= o1
+        && 0 <= o2 && ( /*<<obj.ml:145:25>>*/ length(e2) - l | 0) >= o2){
      var
       _a_ = 0 !== l ? 1 : 0,
       _b_ =
         _a_
          ?  /*<<obj.ml:147:24>>*/ runtime.caml_ephe_blit_key
-            /*<<obj.ml:147:24>>*/ (e1, o1, e2, o2, l)
+           (e1, o1, e2, o2, l)
          : _a_;
-      /*<<obj.ml:147:24>>*/ return _b_ /*<<obj.ml:147:24>>*/ ;
+     return _b_;
     }
-     /*<<obj.ml:146:9>>*/ return  /*<<obj.ml:146:9>>*/ caml_call1
-             /*<<obj.ml:146:9>>*/ (Stdlib[1], cst_Obj_Ephemeron_blit_key) /*<<obj.ml:147:46>>*/ ;
-    /*<<obj.ml:147:46>>*/ }
+     /*<<obj.ml:146:9>>*/ return caml_call1
+            (Stdlib[1], cst_Obj_Ephemeron_blit_key) /*<<obj.ml:147:46>>*/ ;
+   }
    var
     Stdlib_Obj =
       [0,
@@ -1590,7 +1404,7 @@
 (function
   (globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -1604,19 +1418,15 @@
    function make(param){
     var
      Id =  /*<<type.ml:32:43>>*/ [248, cst_Id, runtime.caml_fresh_oo_id(0)];
-     /*<<type.ml:32:12>>*/ return [0, Id] /*<<type.ml:32:12>>*/ ;
+     /*<<type.ml:32:12>>*/ return [0, Id];
     /*<<type.ml:32:57>>*/ }
    function uid(A){
-    var
-     _b_ =
-        /*<<type.ml:35:33>>*/  /*<<type.ml:35:33>>*/ caml_call1
-         /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][1], A[1]);
-     /*<<type.ml:35:33>>*/ return  /*<<type.ml:35:33>>*/ caml_call1
-             /*<<type.ml:35:33>>*/ (Stdlib_Obj[22][3], _b_) /*<<type.ml:35:72>>*/ ;
-    /*<<type.ml:35:72>>*/ }
+    var _b_ =  /*<<type.ml:35:33>>*/ caml_call1(Stdlib_Obj[22][1], A[1]);
+    return caml_call1(Stdlib_Obj[22][3], _b_) /*<<type.ml:35:72>>*/ ;
+   }
    function provably_equal(A, B){
      /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0 /*<<type.ml:40:50>>*/ ;
-    /*<<type.ml:40:50>>*/ }
+   }
    var
     Id =  /*<<type.ml:22:12>>*/ [0, make, uid, provably_equal],
     Stdlib_Type = [0, Id];
@@ -1629,9 +1439,9 @@
 (function(globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_atomic_exchange =  /*<<?>>*/ runtime.caml_atomic_exchange,
-    caml_atomic_fetch_add =  /*<<?>>*/ runtime.caml_atomic_fetch_add;
+    runtime = globalThis.jsoo_runtime,
+    caml_atomic_exchange = runtime.caml_atomic_exchange,
+    caml_atomic_fetch_add = runtime.caml_atomic_fetch_add;
    function set(r, x){
      /*<<atomic.ml:25:14>>*/ caml_atomic_exchange(r, x);
     return 0;
@@ -1647,9 +1457,7 @@
    var
     Stdlib_Atomic =
       [0,
-       function(_a_){
-         /*<<atomic.ml:17:0>>*/ return [0, _a_] /*<<atomic.ml:17:0>>*/ ;
-       },
+       function(_a_){ /*<<atomic.ml:17:0>>*/ return [0, _a_];},
        runtime.caml_atomic_make_contended,
        runtime.caml_atomic_load,
        set,
@@ -1669,12 +1477,10 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_lazy_update_to_forward =
-       /*<<?>>*/ runtime.caml_lazy_update_to_forward,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    caml_lazy_update_to_forward = runtime.caml_lazy_update_to_forward,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    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)
@@ -1692,65 +1498,52 @@
      (0
       !==
         /*<<camlinternalLazy.ml:72:8>>*/ runtime.caml_lazy_update_to_forcing
-         /*<<camlinternalLazy.ml:72:8>>*/ (blk))
-      /*<<camlinternalLazy.ml:75:9>>*/ throw  /*<<camlinternalLazy.ml:75:9>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalLazy.ml:75:9>>*/ (Undefined, 1);
+        (blk))
+      /*<<camlinternalLazy.ml:75:9>>*/ throw caml_maybe_attach_backtrace
+            (Undefined, 1);
     if(only_val){
      var closure$0 =  /*<<camlinternalLazy.ml:61:25>>*/ blk[1];
       /*<<camlinternalLazy.ml:62:2>>*/ blk[1] = 0;
      var
-      result$0 =
-         /*<<camlinternalLazy.ml:63:15>>*/  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1
-          /*<<camlinternalLazy.ml:63:15>>*/ (closure$0, 0);
+      result$0 =  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1(closure$0, 0);
       /*<<camlinternalLazy.ml:64:2>>*/ blk[1] = result$0;
-      /*<<camlinternalLazy.ml:65:2>>*/  /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward
-       /*<<camlinternalLazy.ml:65:2>>*/ (blk);
-      /*<<camlinternalLazy.ml:65:2>>*/ return result$0 /*<<camlinternalLazy.ml:65:2>>*/ ;
+      /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward(blk);
+     return result$0;
     }
     var closure =  /*<<camlinternalLazy.ml:46:25>>*/ blk[1];
      /*<<camlinternalLazy.ml:47:2>>*/ blk[1] = 0;
-     /*<<camlinternalLazy.ml:47:2>>*/ try{
-     var
-      result =
-         /*<<camlinternalLazy.ml:49:17>>*/  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1
-          /*<<camlinternalLazy.ml:49:17>>*/ (closure, 0);
+    try{
+     var result =  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1(closure, 0);
       /*<<camlinternalLazy.ml:50:4>>*/ blk[1] = result;
-      /*<<camlinternalLazy.ml:51:4>>*/  /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward
-       /*<<camlinternalLazy.ml:51:4>>*/ (blk);
-      /*<<camlinternalLazy.ml:51:4>>*/ return result /*<<camlinternalLazy.ml:51:4>>*/ ;
+      /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward(blk);
+     return result;
     }
     catch(e$0){
      var e = caml_wrap_exception(e$0);
       /*<<camlinternalLazy.ml:54:4>>*/ blk[1] =
       function(param){
-        /*<<camlinternalLazy.ml:54:43>>*/ throw  /*<<camlinternalLazy.ml:54:43>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalLazy.ml:54:43>>*/ (e, 0);
+        /*<<camlinternalLazy.ml:54:43>>*/ throw caml_maybe_attach_backtrace
+              (e, 0);
        /*<<camlinternalLazy.ml:54:50>>*/ };
-      /*<<camlinternalLazy.ml:55:4>>*/  /*<<camlinternalLazy.ml:55:4>>*/ runtime.caml_lazy_reset_to_lazy
-       /*<<camlinternalLazy.ml:55:4>>*/ (blk);
-      /*<<camlinternalLazy.ml:56:4>>*/ throw  /*<<camlinternalLazy.ml:56:4>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalLazy.ml:56:4>>*/ (e, 0);
+      /*<<camlinternalLazy.ml:55:4>>*/ runtime.caml_lazy_reset_to_lazy(blk);
+      /*<<camlinternalLazy.ml:56:4>>*/ throw caml_maybe_attach_backtrace(e, 0);
     }
     /*<<camlinternalLazy.ml:75:24>>*/ }
    function force_lazy_block(blk){
-     /*<<camlinternalLazy.ml:78:27>>*/ return  /*<<camlinternalLazy.ml:78:27>>*/ force_gen_lazy_block
-             /*<<camlinternalLazy.ml:78:27>>*/ (0, blk) /*<<camlinternalLazy.ml:78:67>>*/ ;
-    /*<<camlinternalLazy.ml:78:67>>*/ }
+     /*<<camlinternalLazy.ml:78:27>>*/ return force_gen_lazy_block(0, blk) /*<<camlinternalLazy.ml:78:67>>*/ ;
+   }
    function force_gen(only_val, lzv){
-    var
-     t =
-        /*<<camlinternalLazy.ml:99:10>>*/  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag
-         /*<<camlinternalLazy.ml:99:10>>*/ (lzv);
+    var t =  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag(lzv);
     if(t === Stdlib_Obj[12])
-      /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1] /*<<camlinternalLazy.ml:101:13>>*/ ;
+      /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1];
     if(t === Stdlib_Obj[6])
-      /*<<camlinternalLazy.ml:103:35>>*/ throw  /*<<camlinternalLazy.ml:103:35>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalLazy.ml:103:35>>*/ (Undefined, 1);
+      /*<<camlinternalLazy.ml:103:35>>*/ throw caml_maybe_attach_backtrace
+            (Undefined, 1);
     return t !== Stdlib_Obj[8]
             ? lzv
             :  /*<<camlinternalLazy.ml:105:7>>*/ force_gen_lazy_block
-               /*<<camlinternalLazy.ml:105:7>>*/ (only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
-    /*<<camlinternalLazy.ml:105:41>>*/ }
+              (only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
+   }
    var CamlinternalLazy = [0, Undefined, force_lazy_block, force_gen];
    runtime.caml_register_global(2, CamlinternalLazy, "CamlinternalLazy");
    return;
@@ -1762,9 +1555,7 @@
 (function
   (globalThis){
    "use strict";
-   var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_obj_tag =  /*<<?>>*/ runtime.caml_obj_tag;
+   var runtime = globalThis.jsoo_runtime, 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)
@@ -1781,36 +1572,24 @@
     Stdlib_Obj = global_data.Stdlib__Obj,
     Undefined = CamlinternalLazy[1];
    function force_val(l){
-     /*<<lazy.ml:56:18>>*/ return  /*<<lazy.ml:56:18>>*/ caml_call2
-             /*<<lazy.ml:56:18>>*/ (CamlinternalLazy[3], 1, l) /*<<lazy.ml:56:61>>*/ ;
-    /*<<lazy.ml:56:61>>*/ }
+     /*<<lazy.ml:56:18>>*/ return caml_call2(CamlinternalLazy[3], 1, l) /*<<lazy.ml:56:61>>*/ ;
+   }
    function from_fun(f){
-    var
-     x =
-        /*<<lazy.ml:59:10>>*/  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block
-         /*<<lazy.ml:59:10>>*/ (Stdlib_Obj[8], 1);
+    var x =  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block(Stdlib_Obj[8], 1);
      /*<<lazy.ml:60:2>>*/ x[1] = f;
-     /*<<lazy.ml:60:2>>*/ return x /*<<lazy.ml:60:2>>*/ ;
+    return x;
     /*<<lazy.ml:61:22>>*/ }
    function from_val(v){
-    var
-     t =
-        /*<<lazy.ml:64:10>>*/  /*<<lazy.ml:64:10>>*/ caml_obj_tag
-         /*<<lazy.ml:64:10>>*/ (v);
+    var t =  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
     if
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
-      /*<<lazy.ml:69:5>>*/ return v /*<<lazy.ml:69:5>>*/ ;
-     /*<<lazy.ml:66:52>>*/ return  /*<<lazy.ml:66:52>>*/ runtime.caml_lazy_make_forward
-             /*<<lazy.ml:66:52>>*/ (v) /*<<lazy.ml:70:5>>*/ ;
-    /*<<lazy.ml:70:5>>*/ }
+      /*<<lazy.ml:69:5>>*/ return v;
+     /*<<lazy.ml:66:52>>*/ return runtime.caml_lazy_make_forward(v) /*<<lazy.ml:70:5>>*/ ;
+   }
    function is_val(l){
     var _i_ =  /*<<lazy.ml:72:26>>*/ Stdlib_Obj[8];
-     /*<<lazy.ml:72:26>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag
-              /*<<lazy.ml:72:26>>*/ (l)
-            !== _i_
-            ? 1
-            : 0 /*<<lazy.ml:72:26>>*/ ;
+    return caml_obj_tag(l) !== _i_ ? 1 : 0;
     /*<<lazy.ml:72:62>>*/ }
    function map(f, x){
      /*<<lazy.ml:75:2>>*/ return [246,
@@ -1823,13 +1602,11 @@
               if(246 !== _g_ && 244 !== _g_){var _h_ = x; break a;}
               var _h_ = caml_call1(CamlinternalLazy[2], x);
              }
-              /*<<lazy.ml:75:10>>*/ return  /*<<lazy.ml:75:10>>*/ caml_call1
-                      /*<<lazy.ml:75:10>>*/ (f, _h_) /*<<lazy.ml:75:10>>*/ ;
+              /*<<lazy.ml:75:10>>*/ return caml_call1(f, _h_);
             }] /*<<lazy.ml:75:7>>*/ ;
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
-     /*<<lazy.ml:78:2>>*/ if
-     (!  /*<<lazy.ml:78:5>>*/ is_val /*<<lazy.ml:78:5>>*/ (x))
+     /*<<lazy.ml:78:2>>*/ if(!  /*<<lazy.ml:78:5>>*/ is_val(x))
       /*<<lazy.ml:80:12>>*/ return [246,
              function(_c_){
               var _d_ = caml_obj_tag(x);
@@ -1840,8 +1617,7 @@
                if(246 !== _d_ && 244 !== _d_){var _e_ = x; break a;}
                var _e_ = caml_call1(CamlinternalLazy[2], x);
               }
-               /*<<lazy.ml:80:15>>*/ return  /*<<lazy.ml:80:15>>*/ caml_call1
-                       /*<<lazy.ml:80:15>>*/ (f, _e_) /*<<lazy.ml:80:15>>*/ ;
+               /*<<lazy.ml:80:15>>*/ return caml_call1(f, _e_);
              }] /*<<lazy.ml:80:12>>*/ ;
     var _a_ = caml_obj_tag(x);
     a:
@@ -1851,10 +1627,8 @@
      if(246 !== _a_ && 244 !== _a_){var _b_ = x; break a;}
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
-     /*<<lazy.ml:79:16>>*/ return  /*<<lazy.ml:79:16>>*/ from_val
-             /*<<lazy.ml:79:16>>*/ ( /*<<lazy.ml:79:16>>*/ caml_call1
-               /*<<lazy.ml:79:16>>*/ (f, _b_)) /*<<lazy.ml:80:25>>*/ ;
-    /*<<lazy.ml:80:25>>*/ }
+     /*<<lazy.ml:79:16>>*/ return from_val(caml_call1(f, _b_)) /*<<lazy.ml:80:25>>*/ ;
+   }
    var
     Stdlib_Lazy =
       [0, Undefined, map, is_val, from_val, map_val, from_fun, force_val];
@@ -1869,9 +1643,8 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -1898,52 +1671,40 @@
     cst_Seq_take = "Seq.take",
     cst_Seq_drop = "Seq.drop";
    function empty(param){
-     /*<<seq.ml:24:15>>*/ return 0 /*<<seq.ml:24:15>>*/ ;
+     /*<<seq.ml:24:15>>*/ return 0;
     /*<<seq.ml:24:18>>*/ }
    function return$0(x, param){
-     /*<<seq.ml:26:18>>*/ return [0, x, empty] /*<<seq.ml:26:18>>*/ ;
+     /*<<seq.ml:26:18>>*/ return [0, x, empty];
     /*<<seq.ml:26:33>>*/ }
    function cons(x, next, param){
-     /*<<seq.ml:28:21>>*/ return [0, x, next] /*<<seq.ml:28:21>>*/ ;
+     /*<<seq.ml:28:21>>*/ return [0, x, next];
     /*<<seq.ml:28:35>>*/ }
    function append(seq1, seq2, param){
-    var
-     match =
-        /*<<seq.ml:31:8>>*/  /*<<seq.ml:31:8>>*/ caml_call1
-         /*<<seq.ml:31:8>>*/ (seq1, 0);
+    var match =  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
     if(! match)
-      /*<<seq.ml:32:11>>*/ return  /*<<seq.ml:32:11>>*/ caml_call1
-              /*<<seq.ml:32:11>>*/ (seq2, 0) /*<<seq.ml:33:48>>*/ ;
+      /*<<seq.ml:32:11>>*/ return caml_call1(seq2, 0) /*<<seq.ml:33:48>>*/ ;
     var next = match[2], x = match[1];
      /*<<seq.ml:33:22>>*/ return [0,
             x,
             function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}] /*<<seq.ml:33:22>>*/ ;
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
-    var
-     match =
-        /*<<seq.ml:35:29>>*/  /*<<seq.ml:35:29>>*/ caml_call1
-         /*<<seq.ml:35:29>>*/ (seq, 0);
-    if(! match)  /*<<seq.ml:36:11>>*/ return 0 /*<<seq.ml:36:11>>*/ ;
+    var match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
+    if(! match)  /*<<seq.ml:36:11>>*/ return 0;
     var next = match[2], x = match[1];
      /*<<seq.ml:37:22>>*/ return [0,
-             /*<<seq.ml:37:28>>*/ caml_call1 /*<<seq.ml:37:28>>*/ (f, x),
+             /*<<seq.ml:37:28>>*/ caml_call1(f, x),
             function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:22>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
     var seq$0 = seq;
      /*<<seq.ml:39:30>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:39:36>>*/  /*<<seq.ml:39:36>>*/ caml_call1
-          /*<<seq.ml:39:36>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:40:11>>*/ return 0 /*<<seq.ml:40:11>>*/ ;
+     var match =  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
+     if(! match)  /*<<seq.ml:40:11>>*/ return 0;
      var
       next = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:42:12>>*/  /*<<seq.ml:42:12>>*/ caml_call1
-          /*<<seq.ml:42:12>>*/ (f, x);
+      match$0 =  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
      if(match$0){
       var y = match$0[1];
        /*<<seq.ml:44:20>>*/ return [0,
@@ -1956,14 +1717,10 @@
    function filter(f, seq, param){
     var seq$0 = seq;
      /*<<seq.ml:46:26>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:46:32>>*/  /*<<seq.ml:46:32>>*/ caml_call1
-          /*<<seq.ml:46:32>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:47:11>>*/ return 0 /*<<seq.ml:47:11>>*/ ;
+     var match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
+     if(! match)  /*<<seq.ml:47:11>>*/ return 0;
      var next = match[2], x = match[1];
-      /*<<seq.ml:49:9>>*/ if
-      ( /*<<seq.ml:49:9>>*/ caml_call1 /*<<seq.ml:49:9>>*/ (f, x))
+      /*<<seq.ml:49:9>>*/ if(caml_call1(f, x))
        /*<<seq.ml:50:11>>*/ return [0,
               x,
               function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}] /*<<seq.ml:50:11>>*/ ;
@@ -1971,44 +1728,30 @@
     }
     /*<<seq.ml:51:27>>*/ }
    function concat(seq, param){
-    var
-     match =
-        /*<<seq.ml:53:30>>*/  /*<<seq.ml:53:30>>*/ caml_call1
-         /*<<seq.ml:53:30>>*/ (seq, 0);
-    if(! match)  /*<<seq.ml:54:11>>*/ return 0 /*<<seq.ml:54:11>>*/ ;
+    var match =  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
+    if(! match)  /*<<seq.ml:54:11>>*/ return 0;
     var next = match[2], x = match[1];
-     /*<<seq.ml:56:5>>*/ return  /*<<seq.ml:56:5>>*/ append
-             /*<<seq.ml:56:5>>*/ (x,
-             function(_aq_){ /*<<?>>*/ return concat(next, _aq_);},
-             0) /*<<seq.ml:56:30>>*/ ;
-    /*<<seq.ml:56:30>>*/ }
+     /*<<seq.ml:56:5>>*/ return append
+            (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0) /*<<seq.ml:56:30>>*/ ;
+   }
    function flat_map(f, seq, param){
-    var
-     match =
-        /*<<seq.ml:58:34>>*/  /*<<seq.ml:58:34>>*/ caml_call1
-         /*<<seq.ml:58:34>>*/ (seq, 0);
-    if(! match)  /*<<seq.ml:59:11>>*/ return 0 /*<<seq.ml:59:11>>*/ ;
+    var match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
+    if(! match)  /*<<seq.ml:59:11>>*/ return 0;
     var next = match[2], x = match[1];
-     /*<<seq.ml:61:4>>*/ return  /*<<seq.ml:61:4>>*/ append
-             /*<<seq.ml:61:4>>*/ ( /*<<seq.ml:61:11>>*/ caml_call1
-               /*<<seq.ml:61:11>>*/ (f, x),
+     /*<<seq.ml:61:4>>*/ return append
+            ( /*<<seq.ml:61:11>>*/ caml_call1(f, x),
              function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
              0) /*<<seq.ml:61:37>>*/ ;
-    /*<<seq.ml:61:37>>*/ }
+   }
    function fold_left(f, acc, seq){
     var acc$0 = acc, seq$0 = seq;
      /*<<seq.ml:66:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:66:8>>*/  /*<<seq.ml:66:8>>*/ caml_call1
-          /*<<seq.ml:66:8>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:67:13>>*/ return acc$0 /*<<seq.ml:67:13>>*/ ;
+     var match =  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
+     if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
      var
       next = match[2],
       x = match[1],
-      acc$1 =
-         /*<<seq.ml:69:18>>*/  /*<<seq.ml:69:18>>*/ caml_call2
-          /*<<seq.ml:69:18>>*/ (f, acc$0, x);
+      acc$1 =  /*<<seq.ml:69:18>>*/ caml_call2(f, acc$0, x);
      acc$0 = acc$1;
      seq$0 = next;
     }
@@ -2016,51 +1759,35 @@
    function iter(f, seq){
     var seq$0 = seq;
      /*<<seq.ml:73:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:73:8>>*/  /*<<seq.ml:73:8>>*/ caml_call1
-          /*<<seq.ml:73:8>>*/ (seq$0, 0);
-     if(! match)  /*<<seq.ml:74:13>>*/ return 0 /*<<seq.ml:74:13>>*/ ;
+     var match =  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
+     if(! match)  /*<<seq.ml:74:13>>*/ return 0;
      var next = match[2], x = match[1];
-      /*<<seq.ml:76:8>>*/  /*<<seq.ml:76:8>>*/ caml_call1
-       /*<<seq.ml:76:8>>*/ (f, x);
+      /*<<seq.ml:76:8>>*/ caml_call1(f, x);
      seq$0 = next;
     }
     /*<<seq.ml:77:19>>*/ }
    function unfold(f, u, param){
-    var
-     match =
-        /*<<seq.ml:80:8>>*/  /*<<seq.ml:80:8>>*/ caml_call1
-         /*<<seq.ml:80:8>>*/ (f, u);
-    if(! match)  /*<<seq.ml:81:12>>*/ return 0 /*<<seq.ml:81:12>>*/ ;
+    var match =  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
+    if(! match)  /*<<seq.ml:81:12>>*/ return 0;
     var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
      /*<<seq.ml:82:20>>*/ return [0,
             x,
             function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:20>>*/ ;
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
-     /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1
-              /*<<seq.ml:85:8>>*/ (xs, 0)
-            ? 0
-            : 1 /*<<seq.ml:89:11>>*/ ;
-    /*<<seq.ml:89:11>>*/ }
+     /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0) ? 0 : 1 /*<<seq.ml:89:11>>*/ ;
+   }
    function uncons(xs){
-    var
-     match =
-        /*<<seq.ml:92:8>>*/  /*<<seq.ml:92:8>>*/ caml_call1
-         /*<<seq.ml:92:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:96:6>>*/ return 0 /*<<seq.ml:96:6>>*/ ;
+    var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:96:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]] /*<<seq.ml:94:6>>*/ ;
+     /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
     /*<<seq.ml:96:10>>*/ }
    function length(xs$1){
     var accu = 0, xs = xs$1;
      /*<<seq.ml:101:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:101:8>>*/  /*<<seq.ml:101:8>>*/ caml_call1
-          /*<<seq.ml:101:8>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:103:6>>*/ return accu /*<<seq.ml:103:6>>*/ ;
+     var match =  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
+     if(! match)  /*<<seq.ml:103:6>>*/ return accu;
      var xs$0 = match[2], accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
      accu = accu$0;
      xs = xs$0;
@@ -2069,14 +1796,10 @@
    function iteri(f, xs$1){
     var i = 0, xs = xs$1;
      /*<<seq.ml:111:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:111:8>>*/  /*<<seq.ml:111:8>>*/ caml_call1
-          /*<<seq.ml:111:8>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:113:6>>*/ return 0 /*<<seq.ml:113:6>>*/ ;
+     var match =  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
+     if(! match)  /*<<seq.ml:113:6>>*/ return 0;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:115:6>>*/  /*<<seq.ml:115:6>>*/ caml_call2
-       /*<<seq.ml:115:6>>*/ (f, i, x);
+      /*<<seq.ml:115:6>>*/ caml_call2(f, i, x);
      var i$0 = i + 1 | 0;
      i = i$0;
      xs = xs$0;
@@ -2085,17 +1808,12 @@
    function fold_lefti(f, accu$1, xs$1){
     var accu = accu$1, i = 0, xs = xs$1;
      /*<<seq.ml:122:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:122:8>>*/  /*<<seq.ml:122:8>>*/ caml_call1
-          /*<<seq.ml:122:8>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:124:6>>*/ return accu /*<<seq.ml:124:6>>*/ ;
+     var match =  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
+     if(! match)  /*<<seq.ml:124:6>>*/ return accu;
      var
       xs$0 = match[2],
       x = match[1],
-      accu$0 =
-         /*<<seq.ml:126:17>>*/  /*<<seq.ml:126:17>>*/ caml_call3
-          /*<<seq.ml:126:17>>*/ (f, accu, i, x),
+      accu$0 =  /*<<seq.ml:126:17>>*/ caml_call3(f, accu, i, x),
       i$0 =  /*<<seq.ml:127:6>>*/ i + 1 | 0;
      accu = accu$0;
      i = i$0;
@@ -2105,68 +1823,48 @@
    function for_all(p, xs){
     var xs$0 = xs;
      /*<<seq.ml:133:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:133:8>>*/  /*<<seq.ml:133:8>>*/ caml_call1
-          /*<<seq.ml:133:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:135:6>>*/ return 1 /*<<seq.ml:135:6>>*/ ;
+     var match =  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:135:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
-      _an_ =
-         /*<<seq.ml:137:6>>*/  /*<<seq.ml:137:6>>*/ caml_call1
-          /*<<seq.ml:137:6>>*/ (p, x);
-      /*<<seq.ml:137:6>>*/ if(! _an_)
-       /*<<seq.ml:137:6>>*/ return _an_ /*<<seq.ml:137:6>>*/ ;
+      _an_ =  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
+     if(! _an_) return _an_;
      xs$0 = xs$1;
     }
     /*<<seq.ml:137:25>>*/ }
    function exists(p, xs){
     var xs$0 = xs;
      /*<<seq.ml:140:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:140:8>>*/  /*<<seq.ml:140:8>>*/ caml_call1
-          /*<<seq.ml:140:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:142:6>>*/ return 0 /*<<seq.ml:142:6>>*/ ;
+     var match =  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:142:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      _am_ =
-         /*<<seq.ml:144:6>>*/  /*<<seq.ml:144:6>>*/ caml_call1
-          /*<<seq.ml:144:6>>*/ (p, x);
-      /*<<seq.ml:144:6>>*/ if(_am_)
-       /*<<seq.ml:144:6>>*/ return _am_ /*<<seq.ml:144:6>>*/ ;
+      _am_ =  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
+     if(_am_) return _am_;
      xs$0 = xs$1;
     }
     /*<<seq.ml:144:24>>*/ }
    function find(p, xs){
     var xs$0 = xs;
      /*<<seq.ml:147:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:147:8>>*/  /*<<seq.ml:147:8>>*/ caml_call1
-          /*<<seq.ml:147:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:149:6>>*/ return 0 /*<<seq.ml:149:6>>*/ ;
+     var match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:149:6>>*/ return 0;
      var xs$1 = match[2], x = match[1];
-      /*<<seq.ml:151:9>>*/ if
-      ( /*<<seq.ml:151:9>>*/ caml_call1 /*<<seq.ml:151:9>>*/ (p, x))
-       /*<<seq.ml:151:18>>*/ return [0, x] /*<<seq.ml:151:18>>*/ ;
+      /*<<seq.ml:151:9>>*/ if(caml_call1(p, x))
+       /*<<seq.ml:151:18>>*/ return [0, x];
      xs$0 = xs$1;
     }
     /*<<seq.ml:151:39>>*/ }
    function find_index(p, xs){
     var i = 0, xs$0 = xs;
      /*<<seq.ml:154:21>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:154:27>>*/  /*<<seq.ml:154:27>>*/ caml_call1
-          /*<<seq.ml:154:27>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:156:8>>*/ return 0 /*<<seq.ml:156:8>>*/ ;
+     var match =  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:156:8>>*/ return 0;
      var xs$1 = match[2], x = match[1];
-      /*<<seq.ml:158:11>>*/ if
-      ( /*<<seq.ml:158:11>>*/ caml_call1 /*<<seq.ml:158:11>>*/ (p, x))
-       /*<<seq.ml:158:20>>*/ return [0, i] /*<<seq.ml:158:20>>*/ ;
+      /*<<seq.ml:158:11>>*/ if(caml_call1(p, x))
+       /*<<seq.ml:158:20>>*/ return [0, i];
      var i$0 = i + 1 | 0;
      i = i$0;
      xs$0 = xs$1;
@@ -2175,36 +1873,26 @@
    function find_map(f, xs){
     var xs$0 = xs;
      /*<<seq.ml:162:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:162:8>>*/  /*<<seq.ml:162:8>>*/ caml_call1
-          /*<<seq.ml:162:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:164:6>>*/ return 0 /*<<seq.ml:164:6>>*/ ;
+     var match =  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:164:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      result =
-         /*<<seq.ml:166:12>>*/  /*<<seq.ml:166:12>>*/ caml_call1
-          /*<<seq.ml:166:12>>*/ (f, x);
-     if(result)  /*<<seq.ml:170:10>>*/ return result /*<<seq.ml:170:10>>*/ ;
+      result =  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
+     if(result)  /*<<seq.ml:170:10>>*/ return result;
      xs$0 = xs$1;
     }
     /*<<seq.ml:170:16>>*/ }
    function find_mapi(f, xs){
     var i = 0, xs$0 = xs;
      /*<<seq.ml:173:21>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:173:27>>*/  /*<<seq.ml:173:27>>*/ caml_call1
-          /*<<seq.ml:173:27>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:175:8>>*/ return 0 /*<<seq.ml:175:8>>*/ ;
+     var match =  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:175:8>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      result =
-         /*<<seq.ml:177:14>>*/  /*<<seq.ml:177:14>>*/ caml_call2
-          /*<<seq.ml:177:14>>*/ (f, i, x);
-     if(result)  /*<<seq.ml:181:12>>*/ return result /*<<seq.ml:181:12>>*/ ;
+      result =  /*<<seq.ml:177:14>>*/ caml_call2(f, i, x);
+     if(result)  /*<<seq.ml:181:12>>*/ return result;
      var i$0 = i + 1 | 0;
      i = i$0;
      xs$0 = xs$1;
@@ -2213,21 +1901,15 @@
    function iter2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:192:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:192:8>>*/  /*<<seq.ml:192:8>>*/ caml_call1
-          /*<<seq.ml:192:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:194:6>>*/ return 0 /*<<seq.ml:194:6>>*/ ;
+     var match =  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:194:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:196:12>>*/  /*<<seq.ml:196:12>>*/ caml_call1
-          /*<<seq.ml:196:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:198:10>>*/ return 0 /*<<seq.ml:198:10>>*/ ;
+      match$0 =  /*<<seq.ml:196:12>>*/ caml_call1(ys$0, 0);
+     if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
      var ys$1 = match$0[2], y = match$0[1];
-      /*<<seq.ml:200:10>>*/  /*<<seq.ml:200:10>>*/ caml_call2
-       /*<<seq.ml:200:10>>*/ (f, x, y);
+      /*<<seq.ml:200:10>>*/ caml_call2(f, x, y);
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -2235,25 +1917,17 @@
    function fold_left2(f, accu, xs, ys){
     var accu$0 = accu, xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:204:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:204:8>>*/  /*<<seq.ml:204:8>>*/ caml_call1
-          /*<<seq.ml:204:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:206:6>>*/ return accu$0 /*<<seq.ml:206:6>>*/ ;
+     var match =  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:208:12>>*/  /*<<seq.ml:208:12>>*/ caml_call1
-          /*<<seq.ml:208:12>>*/ (ys$0, 0);
-     if(! match$0)
-       /*<<seq.ml:210:10>>*/ return accu$0 /*<<seq.ml:210:10>>*/ ;
+      match$0 =  /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
+     if(! match$0)  /*<<seq.ml:210:10>>*/ return accu$0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      accu$1 =
-         /*<<seq.ml:212:21>>*/  /*<<seq.ml:212:21>>*/ caml_call3
-          /*<<seq.ml:212:21>>*/ (f, accu$0, x, y);
+      accu$1 =  /*<<seq.ml:212:21>>*/ caml_call3(f, accu$0, x, y);
      accu$0 = accu$1;
      xs$0 = xs$1;
      ys$0 = ys$1;
@@ -2262,26 +1936,18 @@
    function for_all2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:216:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:216:8>>*/  /*<<seq.ml:216:8>>*/ caml_call1
-          /*<<seq.ml:216:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:218:6>>*/ return 1 /*<<seq.ml:218:6>>*/ ;
+     var match =  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:218:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:220:12>>*/  /*<<seq.ml:220:12>>*/ caml_call1
-          /*<<seq.ml:220:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:222:10>>*/ return 1 /*<<seq.ml:222:10>>*/ ;
+      match$0 =  /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
+     if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      _al_ =
-         /*<<seq.ml:224:10>>*/  /*<<seq.ml:224:10>>*/ caml_call2
-          /*<<seq.ml:224:10>>*/ (f, x, y);
-      /*<<seq.ml:224:10>>*/ if(! _al_)
-       /*<<seq.ml:224:10>>*/ return _al_ /*<<seq.ml:224:10>>*/ ;
+      _al_ =  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
+     if(! _al_) return _al_;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -2289,26 +1955,18 @@
    function exists2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:227:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:227:8>>*/  /*<<seq.ml:227:8>>*/ caml_call1
-          /*<<seq.ml:227:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:229:6>>*/ return 0 /*<<seq.ml:229:6>>*/ ;
+     var match =  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:229:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:231:12>>*/  /*<<seq.ml:231:12>>*/ caml_call1
-          /*<<seq.ml:231:12>>*/ (ys$0, 0);
-     if(! match$0)  /*<<seq.ml:233:10>>*/ return 0 /*<<seq.ml:233:10>>*/ ;
+      match$0 =  /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
+     if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      _ak_ =
-         /*<<seq.ml:235:10>>*/  /*<<seq.ml:235:10>>*/ caml_call2
-          /*<<seq.ml:235:10>>*/ (f, x, y);
-      /*<<seq.ml:235:10>>*/ if(_ak_)
-       /*<<seq.ml:235:10>>*/ return _ak_ /*<<seq.ml:235:10>>*/ ;
+      _ak_ =  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
+     if(_ak_) return _ak_;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -2317,12 +1975,8 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:238:2>>*/ for(;;){
      var
-      match =
-         /*<<seq.ml:238:8>>*/  /*<<seq.ml:238:8>>*/ caml_call1
-          /*<<seq.ml:238:8>>*/ (xs$0, 0),
-      match$0 =
-         /*<<seq.ml:238:14>>*/  /*<<seq.ml:238:14>>*/ caml_call1
-          /*<<seq.ml:238:14>>*/ (ys$0, 0);
+      match =  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
+      match$0 =  /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
      if(match){
       if(match$0){
        var
@@ -2330,57 +1984,45 @@
         y = match$0[1],
         xs$1 = match[2],
         x = match[1],
-        _aj_ =
-           /*<<seq.ml:242:6>>*/  /*<<seq.ml:242:6>>*/ caml_call2
-            /*<<seq.ml:242:6>>*/ (eq, x, y);
-        /*<<seq.ml:242:6>>*/ if(! _aj_)
-         /*<<seq.ml:242:6>>*/ return _aj_ /*<<seq.ml:242:6>>*/ ;
+        _aj_ =  /*<<seq.ml:242:6>>*/ caml_call2(eq, x, y);
+       if(! _aj_) return _aj_;
        xs$0 = xs$1;
        ys$0 = ys$1;
        continue;
       }
      }
-     else if(! match$0)  /*<<seq.ml:240:6>>*/ return 1 /*<<seq.ml:240:6>>*/ ;
-      /*<<seq.ml:245:6>>*/ return 0 /*<<seq.ml:245:6>>*/ ;
+     else if(! match$0)  /*<<seq.ml:240:6>>*/ return 1;
+      /*<<seq.ml:245:6>>*/ return 0;
     }
     /*<<seq.ml:245:11>>*/ }
    function compare(cmp, xs, ys){
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:248:2>>*/ for(;;){
      var
-      match =
-         /*<<seq.ml:248:8>>*/  /*<<seq.ml:248:8>>*/ caml_call1
-          /*<<seq.ml:248:8>>*/ (xs$0, 0),
-      match$0 =
-         /*<<seq.ml:248:14>>*/  /*<<seq.ml:248:14>>*/ caml_call1
-          /*<<seq.ml:248:14>>*/ (ys$0, 0);
+      match =  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
+      match$0 =  /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
      if(! match) return match$0 ? -1 : 0 /*<<seq.ml:257:8>>*/ ;
      var xs$1 = match[2], x = match[1];
-     if(! match$0)  /*<<seq.ml:257:6>>*/ return 1 /*<<seq.ml:257:6>>*/ ;
+     if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
-      c =
-         /*<<seq.ml:252:14>>*/  /*<<seq.ml:252:14>>*/ caml_call2
-          /*<<seq.ml:252:14>>*/ (cmp, x, y);
-      /*<<seq.ml:253:6>>*/ if(0 !== c)
-       /*<<seq.ml:253:21>>*/ return c /*<<seq.ml:253:21>>*/ ;
+      c =  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
+      /*<<seq.ml:253:6>>*/ if(0 !== c)  /*<<seq.ml:253:21>>*/ return c;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
     /*<<seq.ml:257:8>>*/ }
    function init_aux(f, i, j, param){
-     /*<<seq.ml:264:2>>*/ if(i >= j)
-      /*<<seq.ml:268:4>>*/ return 0 /*<<seq.ml:268:4>>*/ ;
+     /*<<seq.ml:264:2>>*/ if(i >= j)  /*<<seq.ml:268:4>>*/ return 0;
     var _ah_ = i + 1 | 0;
      /*<<seq.ml:264:16>>*/ return [0,
-             /*<<seq.ml:265:10>>*/ caml_call1 /*<<seq.ml:265:10>>*/ (f, i),
+             /*<<seq.ml:265:10>>*/ caml_call1(f, i),
             function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}] /*<<seq.ml:264:16>>*/ ;
     /*<<seq.ml:268:7>>*/ }
    function init(n, f){
      /*<<seq.ml:271:2>>*/ if(0 > n)
-      /*<<seq.ml:272:4>>*/ return  /*<<seq.ml:272:4>>*/ caml_call1
-              /*<<seq.ml:272:4>>*/ (Stdlib[1], cst_Seq_init) /*<<seq.ml:274:18>>*/ ;
+      /*<<seq.ml:272:4>>*/ return caml_call1(Stdlib[1], cst_Seq_init) /*<<seq.ml:274:18>>*/ ;
     var _af_ = 0;
      /*<<seq.ml:274:4>>*/ return function(_ag_){
       /*<<?>>*/ return init_aux(f, _af_, n, _ag_);} /*<<seq.ml:274:4>>*/ ;
@@ -2392,21 +2034,18 @@
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
      /*<<seq.ml:280:2>>*/ return [0,
-             /*<<seq.ml:280:8>>*/ caml_call1 /*<<seq.ml:280:8>>*/ (f, 0),
+             /*<<seq.ml:280:8>>*/ caml_call1(f, 0),
             function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:2>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
-     /*<<seq.ml:287:2>>*/ return  /*<<seq.ml:287:2>>*/ append
-             /*<<seq.ml:287:2>>*/ (xs,
+     /*<<seq.ml:287:2>>*/ return append
+            (xs,
              function(_ac_){ /*<<?>>*/ return cycle_nonempty(xs, _ac_);},
              0) /*<<seq.ml:287:34>>*/ ;
-    /*<<seq.ml:287:34>>*/ }
+   }
    function cycle(xs, param){
-    var
-     match =
-        /*<<seq.ml:295:8>>*/  /*<<seq.ml:295:8>>*/ caml_call1
-         /*<<seq.ml:295:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:297:6>>*/ return 0 /*<<seq.ml:297:6>>*/ ;
+    var match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:297:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
     function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
      /*<<seq.ml:299:6>>*/ return [0,
@@ -2414,10 +2053,7 @@
             function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}] /*<<seq.ml:299:6>>*/ ;
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
-    var
-     y =
-        /*<<seq.ml:306:10>>*/  /*<<seq.ml:306:10>>*/ caml_call1
-         /*<<seq.ml:306:10>>*/ (f, x);
+    var y =  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
      /*<<seq.ml:307:2>>*/ return [0,
             y,
             function(___){ /*<<?>>*/ return iterate1(f, y, ___);}] /*<<seq.ml:307:2>>*/ ;
@@ -2425,17 +2061,14 @@
    function iterate(f, x){
     function next(_Z_){ /*<<?>>*/ return iterate1(f, x, _Z_);}
      /*<<seq.ml:319:9>>*/ return function(_Y_){
-      /*<<seq.ml:28:21>>*/ return [0, x, next] /*<<seq.ml:28:21>>*/ ;} /*<<seq.ml:319:9>>*/ ;
+      /*<<seq.ml:28:21>>*/ return [0, x, next];} /*<<seq.ml:319:9>>*/ ;
     /*<<seq.ml:319:23>>*/ }
    function mapi_aux(f, i, xs, param){
-    var
-     match =
-        /*<<seq.ml:324:8>>*/  /*<<seq.ml:324:8>>*/ caml_call1
-         /*<<seq.ml:324:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:326:6>>*/ return 0 /*<<seq.ml:326:6>>*/ ;
+    var match =  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:326:6>>*/ return 0;
     var xs$0 = match[2], x = match[1], _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
-     /*<<seq.ml:328:6>>*/ return [0,
-             /*<<seq.ml:328:12>>*/ caml_call2 /*<<seq.ml:328:12>>*/ (f, i, x),
+    return [0,
+             /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
             function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}] /*<<seq.ml:328:6>>*/ ;
     /*<<seq.ml:328:39>>*/ }
    function mapi(f, xs){
@@ -2444,17 +2077,12 @@
       /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);} /*<<seq.ml:331:2>>*/ ;
     /*<<seq.ml:331:17>>*/ }
    function tail_scan(f, s, xs, param){
-    var
-     match =
-        /*<<seq.ml:340:8>>*/  /*<<seq.ml:340:8>>*/ caml_call1
-         /*<<seq.ml:340:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:342:6>>*/ return 0 /*<<seq.ml:342:6>>*/ ;
+    var match =  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:342:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     s$0 =
-        /*<<seq.ml:344:14>>*/  /*<<seq.ml:344:14>>*/ caml_call2
-         /*<<seq.ml:344:14>>*/ (f, s, x);
+     s$0 =  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
      /*<<seq.ml:345:6>>*/ return [0,
             s$0,
             function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}] /*<<seq.ml:345:6>>*/ ;
@@ -2462,33 +2090,26 @@
    function scan(f, s, xs){
     function next(_S_){ /*<<?>>*/ return tail_scan(f, s, xs, _S_);}
      /*<<seq.ml:348:9>>*/ return function(_R_){
-      /*<<seq.ml:28:21>>*/ return [0, s, next] /*<<seq.ml:28:21>>*/ ;} /*<<seq.ml:348:9>>*/ ;
+      /*<<seq.ml:28:21>>*/ return [0, s, next];} /*<<seq.ml:348:9>>*/ ;
     /*<<seq.ml:348:27>>*/ }
    function take_aux(n, xs){
      /*<<seq.ml:354:2>>*/ return 0 === n
             ? empty
             : function
              (param){
-              var
-               match =
-                  /*<<seq.ml:358:12>>*/  /*<<seq.ml:358:12>>*/ caml_call1
-                   /*<<seq.ml:358:12>>*/ (xs, 0);
-              if(! match)
-                /*<<seq.ml:360:10>>*/ return 0 /*<<seq.ml:360:10>>*/ ;
+              var match =  /*<<seq.ml:358:12>>*/ caml_call1(xs, 0);
+              if(! match)  /*<<seq.ml:360:10>>*/ return 0;
               var xs$0 = match[2], x = match[1];
                /*<<seq.ml:362:10>>*/ return [0,
                       x,
-                       /*<<seq.ml:362:19>>*/ take_aux
-                        /*<<seq.ml:362:19>>*/ (n - 1 | 0, xs$0)] /*<<seq.ml:362:10>>*/ ;
-              /*<<seq.ml:362:37>>*/ } /*<<seq.ml:362:37>>*/ ;
-    /*<<seq.ml:362:37>>*/ }
+                       /*<<seq.ml:362:19>>*/ take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:10>>*/ ;
+              /*<<seq.ml:362:37>>*/ };
+   }
    function take(n, xs){
      /*<<seq.ml:365:2>>*/ if(n < 0)
-      /*<<seq.ml:365:16>>*/  /*<<seq.ml:365:16>>*/ caml_call1
-       /*<<seq.ml:365:16>>*/ (Stdlib[1], cst_Seq_take);
-     /*<<seq.ml:365:16>>*/ return  /*<<seq.ml:365:16>>*/ take_aux
-             /*<<seq.ml:365:16>>*/ (n, xs) /*<<seq.ml:366:15>>*/ ;
-    /*<<seq.ml:366:15>>*/ }
+      /*<<seq.ml:365:16>>*/ caml_call1(Stdlib[1], cst_Seq_take);
+    return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
+   }
    function drop(n, xs){
      /*<<seq.ml:387:2>>*/ return 0 <= n
             ? 0
@@ -2498,74 +2119,50 @@
                (param){
                 var n$0 = n, xs$0 = xs;
                  /*<<seq.ml:373:2>>*/ for(;;){
-                 var
-                  match =
-                     /*<<seq.ml:373:8>>*/  /*<<seq.ml:373:8>>*/ caml_call1
-                      /*<<seq.ml:373:8>>*/ (xs$0, 0);
-                 if(! match)
-                   /*<<seq.ml:375:6>>*/ return 0 /*<<seq.ml:375:6>>*/ ;
+                 var match =  /*<<seq.ml:373:8>>*/ caml_call1(xs$0, 0);
+                 if(! match)  /*<<seq.ml:375:6>>*/ return 0;
                  var xs$1 = match[2], n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
-                   /*<<seq.ml:379:8>>*/ return  /*<<seq.ml:379:8>>*/ caml_call1
-                           /*<<seq.ml:379:8>>*/ (xs$1, 0) /*<<seq.ml:392:21>>*/ ;
+                   /*<<seq.ml:379:8>>*/ return caml_call1(xs$1, 0) /*<<seq.ml:392:21>>*/ ;
                  n$0 = n$1;
                  xs$0 = xs$1;
                 }
-                /*<<seq.ml:392:21>>*/ }
-            :  /*<<seq.ml:387:16>>*/ caml_call1
-               /*<<seq.ml:387:16>>*/ (Stdlib[1], cst_Seq_drop) /*<<seq.ml:392:21>>*/ ;
-    /*<<seq.ml:392:21>>*/ }
+               }
+            :  /*<<seq.ml:387:16>>*/ caml_call1(Stdlib[1], cst_Seq_drop) /*<<seq.ml:392:21>>*/ ;
+   }
    function take_while(p, xs, param){
-    var
-     match =
-        /*<<seq.ml:395:8>>*/  /*<<seq.ml:395:8>>*/ caml_call1
-         /*<<seq.ml:395:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:397:6>>*/ return 0 /*<<seq.ml:397:6>>*/ ;
+    var match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:397:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:399:9>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1
-              /*<<seq.ml:399:9>>*/ (p, x)
+     /*<<seq.ml:399:9>>*/ return caml_call1(p, x)
             ? [0,
               x,
               function(_Q_){ /*<<?>>*/ return take_while(p, xs$0, _Q_);}]
             : 0 /*<<seq.ml:399:52>>*/ ;
-    /*<<seq.ml:399:52>>*/ }
+   }
    function drop_while(p, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:402:2>>*/ for(;;){
-     var
-      node =
-         /*<<seq.ml:402:8>>*/  /*<<seq.ml:402:8>>*/ caml_call1
-          /*<<seq.ml:402:8>>*/ (xs$0, 0);
-     if(! node)  /*<<seq.ml:404:6>>*/ return 0 /*<<seq.ml:404:6>>*/ ;
+     var node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
+     if(! node)  /*<<seq.ml:404:6>>*/ return 0;
      var xs$1 = node[2], x = node[1];
-      /*<<seq.ml:406:9>>*/ if
-      (!  /*<<seq.ml:406:9>>*/ caml_call1 /*<<seq.ml:406:9>>*/ (p, x))
-       /*<<seq.ml:406:42>>*/ return node /*<<seq.ml:406:42>>*/ ;
+      /*<<seq.ml:406:9>>*/ if(! caml_call1(p, x))
+       /*<<seq.ml:406:42>>*/ return node;
      xs$0 = xs$1;
     }
     /*<<seq.ml:406:46>>*/ }
    function group(eq, xs, param){
-    var
-     match =
-        /*<<seq.ml:409:8>>*/  /*<<seq.ml:409:8>>*/ caml_call1
-         /*<<seq.ml:409:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:411:6>>*/ return 0 /*<<seq.ml:411:6>>*/ ;
+    var match =  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:411:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     _J_ =
-        /*<<seq.ml:413:64>>*/  /*<<seq.ml:413:64>>*/ caml_call1
-         /*<<seq.ml:413:64>>*/ (eq, x);
+     _J_ =  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
     function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
-    var
-     _L_ =
-        /*<<seq.ml:413:31>>*/  /*<<seq.ml:413:31>>*/ caml_call1
-         /*<<seq.ml:413:31>>*/ (eq, x);
+    var _L_ =  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
     function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
      /*<<seq.ml:413:6>>*/ return [0,
-            function(_N_){
-              /*<<seq.ml:28:21>>*/ return [0, x, next] /*<<seq.ml:28:21>>*/ ;
-            },
+            function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
             function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}] /*<<seq.ml:413:6>>*/ ;
     /*<<seq.ml:413:75>>*/ }
    var
@@ -2573,104 +2170,68 @@
        /*<<seq.ml:415:0>>*/ [248,
        "Stdlib.Seq.Forced_twice",
        runtime.caml_fresh_oo_id(0)],
-    to_lazy =  /*<<seq.ml:415:0>>*/ Stdlib_Lazy[6],
+    to_lazy = Stdlib_Lazy[6],
     _a_ = [0, "seq.ml", 616, 4];
    function failure(param){
-     /*<<seq.ml:441:6>>*/ throw  /*<<seq.ml:441:6>>*/ caml_maybe_attach_backtrace
-            /*<<seq.ml:441:6>>*/ (Forced_twice, 1);
+     /*<<seq.ml:441:6>>*/ throw caml_maybe_attach_backtrace(Forced_twice, 1);
     /*<<seq.ml:441:24>>*/ }
    function memoize(xs){
     function s$0(param){
-     var
-      match =
-         /*<<seq.ml:460:10>>*/  /*<<seq.ml:460:10>>*/ caml_call1
-          /*<<seq.ml:460:10>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:462:8>>*/ return 0 /*<<seq.ml:462:8>>*/ ;
+     var match =  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
+     if(! match)  /*<<seq.ml:462:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:464:8>>*/ return [0,
-             x,
-              /*<<seq.ml:464:17>>*/ memoize /*<<seq.ml:464:17>>*/ (xs$0)] /*<<seq.ml:464:8>>*/ ;
+      /*<<seq.ml:464:8>>*/ return [0, x,  /*<<seq.ml:464:17>>*/ memoize(xs$0)] /*<<seq.ml:464:8>>*/ ;
      /*<<seq.ml:464:28>>*/ }
-    var
-     s =
-        /*<<seq.ml:434:14>>*/  /*<<seq.ml:434:14>>*/ caml_call1
-         /*<<seq.ml:434:14>>*/ (to_lazy, s$0);
+    var s =  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
      /*<<seq.ml:429:4>>*/ return function(param){
      var _I_ = runtime.caml_obj_tag(s);
      if(250 === _I_) return s[1];
-     if(246 !== _I_ && 244 !== _I_)
-       /*<<seq.ml:429:4>>*/ return s /*<<seq.ml:429:4>>*/ ;
-      /*<<seq.ml:429:4>>*/ return  /*<<seq.ml:429:4>>*/ caml_call1
-              /*<<seq.ml:429:4>>*/ (CamlinternalLazy[2], s) /*<<seq.ml:429:26>>*/ ; /*<<seq.ml:429:26>>*/ } /*<<seq.ml:429:4>>*/ ;
+     if(246 !== _I_ && 244 !== _I_) return s;
+     return caml_call1(CamlinternalLazy[2], s) /*<<seq.ml:429:26>>*/ ;} /*<<seq.ml:429:4>>*/ ;
     /*<<seq.ml:465:3>>*/ }
    function once(xs){
     function f(param){
-     var
-      match =
-         /*<<seq.ml:469:10>>*/  /*<<seq.ml:469:10>>*/ caml_call1
-          /*<<seq.ml:469:10>>*/ (xs, 0);
-     if(! match)  /*<<seq.ml:471:8>>*/ return 0 /*<<seq.ml:471:8>>*/ ;
+     var match =  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
+     if(! match)  /*<<seq.ml:471:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:473:8>>*/ return [0,
-             x,
-              /*<<seq.ml:473:17>>*/ once /*<<seq.ml:473:17>>*/ (xs$0)] /*<<seq.ml:473:8>>*/ ;
+      /*<<seq.ml:473:8>>*/ return [0, x,  /*<<seq.ml:473:17>>*/ once(xs$0)] /*<<seq.ml:473:8>>*/ ;
      /*<<seq.ml:473:25>>*/ }
-    var
-     action =
-        /*<<seq.ml:448:17>>*/  /*<<seq.ml:448:17>>*/ caml_call1
-         /*<<seq.ml:448:17>>*/ (Stdlib_Atomic[1], f);
+    var action =  /*<<seq.ml:448:17>>*/ caml_call1(Stdlib_Atomic[1], f);
      /*<<seq.ml:449:4>>*/ return function(param){
      var
-      f =
-         /*<<seq.ml:453:14>>*/  /*<<seq.ml:453:14>>*/ caml_call2
-          /*<<seq.ml:453:14>>*/ (Stdlib_Atomic[5], action, failure);
-      /*<<seq.ml:454:6>>*/ return  /*<<seq.ml:454:6>>*/ caml_call1
-              /*<<seq.ml:454:6>>*/ (f, 0) /*<<seq.ml:454:9>>*/ ; /*<<seq.ml:454:9>>*/ } /*<<seq.ml:449:4>>*/ ;
+      f =  /*<<seq.ml:453:14>>*/ caml_call2(Stdlib_Atomic[5], action, failure);
+      /*<<seq.ml:454:6>>*/ return caml_call1(f, 0) /*<<seq.ml:454:9>>*/ ;} /*<<seq.ml:449:4>>*/ ;
     /*<<seq.ml:474:3>>*/ }
    function zip(xs, ys, param){
-    var
-     match =
-        /*<<seq.ml:478:8>>*/  /*<<seq.ml:478:8>>*/ caml_call1
-         /*<<seq.ml:478:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:480:6>>*/ return 0 /*<<seq.ml:480:6>>*/ ;
+    var match =  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:480:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     match$0 =
-        /*<<seq.ml:482:12>>*/  /*<<seq.ml:482:12>>*/ caml_call1
-         /*<<seq.ml:482:12>>*/ (ys, 0);
-    if(! match$0)  /*<<seq.ml:484:10>>*/ return 0 /*<<seq.ml:484:10>>*/ ;
+     match$0 =  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
+    if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:486:10>>*/ return [0,
             [0, x, y],
             function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:10>>*/ ;
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
-    var
-     match =
-        /*<<seq.ml:489:8>>*/  /*<<seq.ml:489:8>>*/ caml_call1
-         /*<<seq.ml:489:8>>*/ (xs, 0);
-    if(! match)  /*<<seq.ml:491:6>>*/ return 0 /*<<seq.ml:491:6>>*/ ;
+    var match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
+    if(! match)  /*<<seq.ml:491:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
-     match$0 =
-        /*<<seq.ml:493:12>>*/  /*<<seq.ml:493:12>>*/ caml_call1
-         /*<<seq.ml:493:12>>*/ (ys, 0);
-    if(! match$0)  /*<<seq.ml:495:10>>*/ return 0 /*<<seq.ml:495:10>>*/ ;
+     match$0 =  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
+    if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
      /*<<seq.ml:497:10>>*/ return [0,
-             /*<<seq.ml:497:16>>*/ caml_call2 /*<<seq.ml:497:16>>*/ (f, x, y),
+             /*<<seq.ml:497:16>>*/ caml_call2(f, x, y),
             function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}] /*<<seq.ml:497:10>>*/ ;
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
-    var
-     match =
-        /*<<seq.ml:500:8>>*/  /*<<seq.ml:500:8>>*/ caml_call1
-         /*<<seq.ml:500:8>>*/ (xs, 0);
+    var match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
     if(! match)
-      /*<<seq.ml:502:6>>*/ return  /*<<seq.ml:502:6>>*/ caml_call1
-              /*<<seq.ml:502:6>>*/ (ys, 0) /*<<seq.ml:504:32>>*/ ;
+      /*<<seq.ml:502:6>>*/ return caml_call1(ys, 0) /*<<seq.ml:504:32>>*/ ;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:504:6>>*/ return [0,
             x,
@@ -2678,74 +2239,49 @@
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
      /*<<seq.ml:533:2>>*/ return 0
-            <
-              /*<<seq.ml:533:5>>*/ caml_call2 /*<<seq.ml:533:5>>*/ (cmp, x, y)
+            <  /*<<seq.ml:533:5>>*/ caml_call2(cmp, x, y)
             ? [0,
               y,
               function(_D_){
-               var
-                match =
-                   /*<<seq.ml:519:8>>*/  /*<<seq.ml:519:8>>*/ caml_call1
-                    /*<<seq.ml:519:8>>*/ (ys, 0);
-               if(! match)
-                 /*<<seq.ml:521:6>>*/ return [0, x, xs] /*<<seq.ml:521:6>>*/ ;
+               var match =  /*<<seq.ml:519:8>>*/ caml_call1(ys, 0);
+               if(! match)  /*<<seq.ml:521:6>>*/ return [0, x, xs];
                var ys$0 = match[2], y = match[1];
-                /*<<seq.ml:523:6>>*/ return  /*<<seq.ml:523:6>>*/ sorted_merge1
-                        /*<<seq.ml:523:6>>*/ (cmp, x, xs, y, ys$0) /*<<seq.ml:523:6>>*/ ;
+                /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0);
               }]
             : [0,
               x,
               function(_E_){
-               var
-                match =
-                   /*<<seq.ml:526:8>>*/  /*<<seq.ml:526:8>>*/ caml_call1
-                    /*<<seq.ml:526:8>>*/ (xs, 0);
-               if(! match)
-                 /*<<seq.ml:528:6>>*/ return [0, y, ys] /*<<seq.ml:528:6>>*/ ;
+               var match =  /*<<seq.ml:526:8>>*/ caml_call1(xs, 0);
+               if(! match)  /*<<seq.ml:528:6>>*/ return [0, y, ys];
                var xs$0 = match[2], x = match[1];
-                /*<<seq.ml:530:6>>*/ return  /*<<seq.ml:530:6>>*/ sorted_merge1
-                        /*<<seq.ml:530:6>>*/ (cmp, x, xs$0, y, ys) /*<<seq.ml:530:6>>*/ ;
+                /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys);
               }] /*<<seq.ml:536:40>>*/ ;
-    /*<<seq.ml:536:40>>*/ }
+   }
    function sorted_merge(cmp, xs, ys, param){
     var
-     match =
-        /*<<seq.ml:539:8>>*/  /*<<seq.ml:539:8>>*/ caml_call1
-         /*<<seq.ml:539:8>>*/ (xs, 0),
-     match$0 =
-        /*<<seq.ml:539:14>>*/  /*<<seq.ml:539:14>>*/ caml_call1
-         /*<<seq.ml:539:14>>*/ (ys, 0);
+     match =  /*<<seq.ml:539:8>>*/ caml_call1(xs, 0),
+     match$0 =  /*<<seq.ml:539:14>>*/ caml_call1(ys, 0);
     if(match){
      if(match$0){
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
-       /*<<seq.ml:546:8>>*/ return  /*<<seq.ml:546:8>>*/ sorted_merge1
-               /*<<seq.ml:546:8>>*/ (cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
+       /*<<seq.ml:546:8>>*/ return sorted_merge1(cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
      }
      var c = match;
     }
-    else{
-     if(! match$0)  /*<<seq.ml:541:8>>*/ return 0 /*<<seq.ml:541:8>>*/ ;
-     var c = match$0;
-    }
-     /*<<seq.ml:544:8>>*/ return c /*<<seq.ml:544:8>>*/ ;
+    else{if(! match$0)  /*<<seq.ml:541:8>>*/ return 0; var c = match$0;}
+     /*<<seq.ml:544:8>>*/ return c;
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
-    var
-     match =
-        /*<<seq.ml:550:8>>*/  /*<<seq.ml:550:8>>*/ caml_call1
-         /*<<seq.ml:550:8>>*/ (xys, 0);
-    if(! match)  /*<<seq.ml:552:6>>*/ return 0 /*<<seq.ml:552:6>>*/ ;
+    var match =  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
+    if(! match)  /*<<seq.ml:552:6>>*/ return 0;
     var xys$0 = match[2], x = match[1][1];
      /*<<seq.ml:554:6>>*/ return [0,
             x,
             function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:6>>*/ ;
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
-    var
-     match =
-        /*<<seq.ml:557:8>>*/  /*<<seq.ml:557:8>>*/ caml_call1
-         /*<<seq.ml:557:8>>*/ (xys, 0);
-    if(! match)  /*<<seq.ml:559:6>>*/ return 0 /*<<seq.ml:559:6>>*/ ;
+    var match =  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
+    if(! match)  /*<<seq.ml:559:6>>*/ return 0;
     var xys$0 = match[2], y = match[1][2];
      /*<<seq.ml:561:6>>*/ return [0,
             y,
@@ -2754,22 +2290,17 @@
    function unzip(xys){
      /*<<seq.ml:564:2>>*/ return [0,
             function(_A_){ /*<<?>>*/ return map_fst(xys, _A_);},
-            function(_z_){ /*<<?>>*/ return map_snd(xys, _z_);}] /*<<seq.ml:564:2>>*/ ;
+            function(_z_){return map_snd(xys, _z_);}] /*<<seq.ml:564:2>>*/ ;
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:573:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:573:8>>*/  /*<<seq.ml:573:8>>*/ caml_call1
-          /*<<seq.ml:573:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:575:6>>*/ return 0 /*<<seq.ml:575:6>>*/ ;
+     var match =  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:575:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:577:12>>*/  /*<<seq.ml:577:12>>*/ caml_call1
-          /*<<seq.ml:577:12>>*/ (f, x);
+      match$0 =  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
      if(0 === match$0[0]){
       var y = match$0[1];
        /*<<seq.ml:579:10>>*/ return [0,
@@ -2784,17 +2315,12 @@
    function filter_map_find_right_map(f, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:584:2>>*/ for(;;){
-     var
-      match =
-         /*<<seq.ml:584:8>>*/  /*<<seq.ml:584:8>>*/ caml_call1
-          /*<<seq.ml:584:8>>*/ (xs$0, 0);
-     if(! match)  /*<<seq.ml:586:6>>*/ return 0 /*<<seq.ml:586:6>>*/ ;
+     var match =  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
+     if(! match)  /*<<seq.ml:586:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
-      match$0 =
-         /*<<seq.ml:588:12>>*/  /*<<seq.ml:588:12>>*/ caml_call1
-          /*<<seq.ml:588:12>>*/ (f, x);
+      match$0 =  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
      if(0 !== match$0[0]){
       var z = match$0[1];
        /*<<seq.ml:592:10>>*/ return [0,
@@ -2811,80 +2337,58 @@
             function(_w_){
               /*<<?>>*/ return filter_map_find_left_map(f, xs, _w_);
             },
-            function(_v_){
-              /*<<?>>*/ return filter_map_find_right_map(f, xs, _v_);
-            }] /*<<seq.ml:595:2>>*/ ;
+            function(_v_){return filter_map_find_right_map(f, xs, _v_);}] /*<<seq.ml:595:2>>*/ ;
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
-      /*<<seq.ml:599:32>>*/ return 1
-            -  /*<<seq.ml:599:36>>*/ caml_call1 /*<<seq.ml:599:36>>*/ (p, x) /*<<seq.ml:599:36>>*/ ;
+      /*<<seq.ml:599:32>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x);
      /*<<seq.ml:599:41>>*/ }
      /*<<seq.ml:599:2>>*/ return [0,
             function(_u_){ /*<<?>>*/ return filter(p, xs, _u_);},
-            function(_t_){ /*<<?>>*/ return filter(_s_, xs, _t_);}] /*<<seq.ml:599:2>>*/ ;
+            function(_t_){return filter(_s_, xs, _t_);}] /*<<seq.ml:599:2>>*/ ;
     /*<<seq.ml:599:45>>*/ }
    function peel(xss){
      /*<<seq.ml:611:2>>*/ return  /*<<seq.ml:611:8>>*/ unzip
-             /*<<seq.ml:611:8>>*/ (function(_r_){
-               /*<<?>>*/ return filter_map(uncons, xss, _r_);
-             }) /*<<seq.ml:611:31>>*/ ;
-    /*<<seq.ml:611:31>>*/ }
+            (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);}) /*<<seq.ml:611:31>>*/ ;
+   }
    function transpose(xss, param){
     var
-     match =
-        /*<<seq.ml:614:21>>*/  /*<<seq.ml:614:21>>*/ peel
-         /*<<seq.ml:614:21>>*/ (xss),
+     match =  /*<<seq.ml:614:21>>*/ peel(xss),
      tails = match[2],
      heads = match[1];
-     /*<<seq.ml:615:5>>*/ if
-     (!  /*<<seq.ml:615:5>>*/ is_empty /*<<seq.ml:615:5>>*/ (heads))
+     /*<<seq.ml:615:5>>*/ if(! is_empty(heads))
       /*<<seq.ml:620:4>>*/ return [0,
              heads,
              function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:4>>*/ ;
-     /*<<seq.ml:616:11>>*/ if
-     ( /*<<seq.ml:616:11>>*/ is_empty /*<<seq.ml:616:11>>*/ (tails))
-      /*<<seq.ml:617:4>>*/ return 0 /*<<seq.ml:617:4>>*/ ;
-     /*<<seq.ml:616:4>>*/ throw  /*<<seq.ml:616:4>>*/ caml_maybe_attach_backtrace
-            /*<<seq.ml:616:4>>*/ ([0, Assert_failure, _a_], 1);
+     /*<<seq.ml:616:11>>*/ if(is_empty(tails))  /*<<seq.ml:617:4>>*/ return 0;
+     /*<<seq.ml:616:4>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
    function _b_(remainders, xss, param){
-    var
-     match =
-        /*<<seq.ml:627:8>>*/  /*<<seq.ml:627:8>>*/ caml_call1
-         /*<<seq.ml:627:8>>*/ (xss, 0);
+    var match =  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
     if(! match)
-      /*<<seq.ml:649:6>>*/ return  /*<<seq.ml:649:6>>*/ transpose
-              /*<<seq.ml:649:6>>*/ (remainders, 0) /*<<seq.ml:649:29>>*/ ;
+      /*<<seq.ml:649:6>>*/ return transpose(remainders, 0) /*<<seq.ml:649:29>>*/ ;
     var
      xss$0 = match[2],
      xs = match[1],
-     match$0 =
-        /*<<seq.ml:629:18>>*/  /*<<seq.ml:629:18>>*/ caml_call1
-         /*<<seq.ml:629:18>>*/ (xs, 0);
+     match$0 =  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
     if(match$0){
      var
       xs$0 = match$0[2],
       x = match$0[1],
-      match$1 =
-         /*<<seq.ml:637:29>>*/  /*<<seq.ml:637:29>>*/ peel
-          /*<<seq.ml:637:29>>*/ (remainders),
+      match$1 =  /*<<seq.ml:637:29>>*/ peel(remainders),
       tails = match$1[2],
       heads = match$1[1],
       _l_ =
          /*<<seq.ml:638:40>>*/ function(_p_){
-          /*<<seq.ml:28:21>>*/ return [0, xs$0, tails] /*<<seq.ml:28:21>>*/ ;
+          /*<<seq.ml:28:21>>*/ return [0, xs$0, tails];
         };
       /*<<seq.ml:638:10>>*/ return [0,
-             function(_o_){
-               /*<<seq.ml:28:21>>*/ return [0, x, heads] /*<<seq.ml:28:21>>*/ ;
-             },
+             function(_o_){ /*<<seq.ml:28:21>>*/ return [0, x, heads];},
              function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}] /*<<seq.ml:638:10>>*/ ;
     }
     var
-     match$2 =
-        /*<<seq.ml:643:29>>*/  /*<<seq.ml:643:29>>*/ peel
-         /*<<seq.ml:643:29>>*/ (remainders),
+     match$2 =  /*<<seq.ml:643:29>>*/ peel(remainders),
      tails$0 = match$2[2],
      heads$0 = match$2[1];
      /*<<seq.ml:644:10>>*/ return [0,
@@ -2894,54 +2398,45 @@
    function map_product(f, xs, ys){
     function _f_(x){
      function _j_(y){
-       /*<<seq.ml:671:8>>*/ return  /*<<seq.ml:671:8>>*/ caml_call2
-               /*<<seq.ml:671:8>>*/ (f, x, y) /*<<seq.ml:671:13>>*/ ;
-      /*<<seq.ml:671:13>>*/ }
+       /*<<seq.ml:671:8>>*/ return caml_call2(f, x, y) /*<<seq.ml:671:13>>*/ ;
+     }
       /*<<seq.ml:670:10>>*/ return function(_k_){
        /*<<?>>*/ return map(_j_, ys, _k_);} /*<<seq.ml:670:10>>*/ ;
      /*<<seq.ml:672:10>>*/ }
     function xss(_i_){ /*<<?>>*/ return map(_f_, xs, _i_);}
-    function _e_(_h_){ /*<<?>>*/ return _b_(empty, xss, _h_);}
+    function _e_(_h_){return _b_(empty, xss, _h_);}
      /*<<seq.ml:668:9>>*/ return function(_g_){
       /*<<?>>*/ return concat(_e_, _g_);} /*<<seq.ml:668:9>>*/ ;
     /*<<seq.ml:674:4>>*/ }
    function product(xs, ys){
-     /*<<seq.ml:677:2>>*/ return  /*<<seq.ml:677:2>>*/ map_product
-             /*<<seq.ml:677:2>>*/ (function(x, y){
-               /*<<seq.ml:677:26>>*/ return [0, x, y] /*<<seq.ml:677:26>>*/ ;
+     /*<<seq.ml:677:2>>*/ return map_product
+            (function(x, y){
+               /*<<seq.ml:677:26>>*/ return [0, x, y];
               /*<<seq.ml:677:32>>*/ },
              xs,
              ys) /*<<seq.ml:677:39>>*/ ;
-    /*<<seq.ml:677:39>>*/ }
+   }
    function of_dispenser(it){
     function c(param){
-     var
-      match =
-         /*<<seq.ml:681:10>>*/  /*<<seq.ml:681:10>>*/ caml_call1
-          /*<<seq.ml:681:10>>*/ (it, 0);
-     if(! match)  /*<<seq.ml:683:8>>*/ return 0 /*<<seq.ml:683:8>>*/ ;
+     var match =  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
+     if(! match)  /*<<seq.ml:683:8>>*/ return 0;
      var x = match[1];
-      /*<<seq.ml:685:8>>*/ return [0, x, c] /*<<seq.ml:685:8>>*/ ;
+      /*<<seq.ml:685:8>>*/ return [0, x, c];
      /*<<seq.ml:685:19>>*/ }
-     /*<<seq.ml:687:2>>*/ return c /*<<seq.ml:687:2>>*/ ;
+     /*<<seq.ml:687:2>>*/ return c;
     /*<<seq.ml:687:3>>*/ }
    function to_dispenser(xs){
     var s =  /*<<seq.ml:690:10>>*/ [0, xs];
      /*<<seq.ml:691:2>>*/ return function(param){
-     var
-      match =
-         /*<<seq.ml:692:10>>*/  /*<<seq.ml:692:10>>*/ caml_call1
-          /*<<seq.ml:692:10>>*/ (s[1], 0);
-     if(! match)  /*<<seq.ml:694:8>>*/ return 0 /*<<seq.ml:694:8>>*/ ;
+     var match =  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
+     if(! match)  /*<<seq.ml:694:8>>*/ return 0;
      var xs = match[2], x = match[1];
      s[1] = xs;
-      /*<<seq.ml:697:8>>*/ return [0, x] /*<<seq.ml:697:8>>*/ ; /*<<seq.ml:697:14>>*/ } /*<<seq.ml:691:2>>*/ ;
+      /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ } /*<<seq.ml:691:2>>*/ ;
     /*<<seq.ml:697:14>>*/ }
    function ints(i, param){
     var _c_ =  /*<<seq.ml:702:2>>*/ i + 1 | 0;
-     /*<<seq.ml:702:2>>*/ return [0,
-            i,
-            function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:2>>*/ ;
+    return [0, i, function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:2>>*/ ;
     /*<<seq.ml:702:24>>*/ }
    var
     Stdlib_Seq =
@@ -3015,7 +2510,7 @@
 (function
   (globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -3032,100 +2527,87 @@
     Stdlib = global_data.Stdlib,
     cst_option_is_None = "option is None";
    function some(v){
-     /*<<option.ml:19:13>>*/ return [0, v] /*<<option.ml:19:13>>*/ ;
+     /*<<option.ml:19:13>>*/ return [0, v];
     /*<<option.ml:19:19>>*/ }
    function value(o, default$0){
      /*<<option.ml:20:23>>*/ if(! o)
-      /*<<option.ml:20:58>>*/ return default$0 /*<<option.ml:20:58>>*/ ;
+      /*<<option.ml:20:58>>*/ return default$0;
     var v = o[1];
-     /*<<option.ml:20:46>>*/ return v /*<<option.ml:20:46>>*/ ;
+     /*<<option.ml:20:46>>*/ return v;
     /*<<option.ml:20:65>>*/ }
    function get(param){
      /*<<option.ml:21:10>>*/ if(! param)
-      /*<<option.ml:21:41>>*/ return  /*<<option.ml:21:41>>*/ caml_call1
-              /*<<option.ml:21:41>>*/ (Stdlib[1], cst_option_is_None) /*<<option.ml:21:69>>*/ ;
+      /*<<option.ml:21:41>>*/ return caml_call1(Stdlib[1], cst_option_is_None) /*<<option.ml:21:69>>*/ ;
     var v = param[1];
-     /*<<option.ml:21:29>>*/ return v /*<<option.ml:21:29>>*/ ;
+     /*<<option.ml:21:29>>*/ return v;
     /*<<option.ml:21:69>>*/ }
    function bind(o, f){
-     /*<<option.ml:22:15>>*/ if(! o)
-      /*<<option.ml:22:36>>*/ return 0 /*<<option.ml:22:36>>*/ ;
+     /*<<option.ml:22:15>>*/ if(! o)  /*<<option.ml:22:36>>*/ return 0;
     var v = o[1];
-     /*<<option.ml:22:53>>*/ return  /*<<option.ml:22:53>>*/ caml_call1
-             /*<<option.ml:22:53>>*/ (f, v) /*<<option.ml:22:56>>*/ ;
-    /*<<option.ml:22:56>>*/ }
+     /*<<option.ml:22:53>>*/ return caml_call1(f, v) /*<<option.ml:22:56>>*/ ;
+   }
    function join(param){
-     /*<<option.ml:23:11>>*/ if(! param)
-      /*<<option.ml:23:42>>*/ return 0 /*<<option.ml:23:42>>*/ ;
+     /*<<option.ml:23:11>>*/ if(! param)  /*<<option.ml:23:42>>*/ return 0;
     var o = param[1];
-     /*<<option.ml:23:30>>*/ return o /*<<option.ml:23:30>>*/ ;
+     /*<<option.ml:23:30>>*/ return o;
     /*<<option.ml:23:46>>*/ }
    function map(f, o){
-     /*<<option.ml:24:14>>*/ if(! o)
-      /*<<option.ml:24:35>>*/ return 0 /*<<option.ml:24:35>>*/ ;
+     /*<<option.ml:24:14>>*/ if(! o)  /*<<option.ml:24:35>>*/ return 0;
     var v = o[1];
      /*<<option.ml:24:52>>*/ return [0,
-             /*<<option.ml:24:57>>*/ caml_call1 /*<<option.ml:24:57>>*/ (f, v)] /*<<option.ml:24:52>>*/ ;
+             /*<<option.ml:24:57>>*/ caml_call1(f, v)] /*<<option.ml:24:52>>*/ ;
     /*<<option.ml:24:62>>*/ }
    function fold(none, some, param){
-     /*<<option.ml:25:9>>*/ if(! param)
-      /*<<option.ml:25:59>>*/ return none /*<<option.ml:25:59>>*/ ;
+     /*<<option.ml:25:9>>*/ if(! param)  /*<<option.ml:25:59>>*/ return none;
     var v = param[1];
-     /*<<option.ml:25:42>>*/ return  /*<<option.ml:25:42>>*/ caml_call1
-             /*<<option.ml:25:42>>*/ (some, v) /*<<option.ml:25:63>>*/ ;
-    /*<<option.ml:25:63>>*/ }
+     /*<<option.ml:25:42>>*/ return caml_call1(some, v) /*<<option.ml:25:63>>*/ ;
+   }
    function iter(f, param){
-     /*<<option.ml:26:9>>*/ if(! param)
-      /*<<option.ml:26:46>>*/ return 0 /*<<option.ml:26:46>>*/ ;
+     /*<<option.ml:26:9>>*/ if(! param)  /*<<option.ml:26:46>>*/ return 0;
     var v = param[1];
-     /*<<option.ml:26:32>>*/ return  /*<<option.ml:26:32>>*/ caml_call1
-             /*<<option.ml:26:32>>*/ (f, v) /*<<option.ml:26:48>>*/ ;
-    /*<<option.ml:26:48>>*/ }
+     /*<<option.ml:26:32>>*/ return caml_call1(f, v) /*<<option.ml:26:48>>*/ ;
+   }
    function is_none(param){
      /*<<option.ml:27:14>>*/ return param ? 0 : 1 /*<<option.ml:27:53>>*/ ;
-    /*<<option.ml:27:53>>*/ }
+   }
    function is_some(param){
      /*<<option.ml:28:14>>*/ return param ? 1 : 0 /*<<option.ml:28:53>>*/ ;
-    /*<<option.ml:28:53>>*/ }
+   }
    function equal(eq, o0, o1){
      /*<<option.ml:30:21>>*/ if(o0){
      if(o1){
       var v1 = o1[1], v0 = o0[1];
-       /*<<option.ml:31:22>>*/ return  /*<<option.ml:31:22>>*/ caml_call2
-               /*<<option.ml:31:22>>*/ (eq, v0, v1) /*<<option.ml:33:12>>*/ ;
+       /*<<option.ml:31:22>>*/ return caml_call2(eq, v0, v1) /*<<option.ml:33:12>>*/ ;
      }
     }
-    else if(! o1)  /*<<option.ml:32:16>>*/ return 1 /*<<option.ml:32:16>>*/ ;
-     /*<<option.ml:33:7>>*/ return 0 /*<<option.ml:33:7>>*/ ;
+    else if(! o1)  /*<<option.ml:32:16>>*/ return 1;
+     /*<<option.ml:33:7>>*/ return 0;
     /*<<option.ml:33:12>>*/ }
    function compare(cmp, o0, o1){
      /*<<option.ml:35:24>>*/ if(! o0)
      return o1 ? -1 : 0 /*<<option.ml:39:19>>*/ ;
     var v0 = o0[1];
-    if(! o1)  /*<<option.ml:39:18>>*/ return 1 /*<<option.ml:39:18>>*/ ;
+    if(! o1)  /*<<option.ml:39:18>>*/ return 1;
     var v1 = o1[1];
-     /*<<option.ml:36:22>>*/ return  /*<<option.ml:36:22>>*/ caml_call2
-             /*<<option.ml:36:22>>*/ (cmp, v0, v1) /*<<option.ml:39:19>>*/ ;
-    /*<<option.ml:39:19>>*/ }
+     /*<<option.ml:36:22>>*/ return caml_call2(cmp, v0, v1) /*<<option.ml:39:19>>*/ ;
+   }
    function to_result(none, param){
      /*<<option.ml:41:14>>*/ if(! param)
-      /*<<option.ml:41:39>>*/ return [1, none] /*<<option.ml:41:39>>*/ ;
+      /*<<option.ml:41:39>>*/ return [1, none];
     var v = param[1];
-     /*<<option.ml:41:62>>*/ return [0, v] /*<<option.ml:41:62>>*/ ;
+     /*<<option.ml:41:62>>*/ return [0, v];
     /*<<option.ml:41:66>>*/ }
    function to_list(param){
-     /*<<option.ml:42:14>>*/ if(! param)
-      /*<<option.ml:42:31>>*/ return 0 /*<<option.ml:42:31>>*/ ;
+     /*<<option.ml:42:14>>*/ if(! param)  /*<<option.ml:42:31>>*/ return 0;
     var v = param[1];
-     /*<<option.ml:42:46>>*/ return [0, v, 0] /*<<option.ml:42:46>>*/ ;
+     /*<<option.ml:42:46>>*/ return [0, v, 0];
     /*<<option.ml:42:49>>*/ }
    function to_seq(param){
      /*<<option.ml:43:13>>*/ if(! param)
-      /*<<option.ml:43:30>>*/ return Stdlib_Seq[20] /*<<option.ml:43:30>>*/ ;
+      /*<<option.ml:43:30>>*/ return Stdlib_Seq[20];
     var v = param[1];
-     /*<<option.ml:43:52>>*/ return  /*<<option.ml:43:52>>*/ caml_call1
-             /*<<option.ml:43:52>>*/ (Stdlib_Seq[21], v) /*<<option.ml:43:64>>*/ ;
-    /*<<option.ml:43:64>>*/ }
+     /*<<option.ml:43:52>>*/ return caml_call1(Stdlib_Seq[21], v) /*<<option.ml:43:64>>*/ ;
+   }
    var
     Stdlib_Option =
       [0,
@@ -3155,7 +2637,7 @@
 (function
   (globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -3173,142 +2655,125 @@
     cst_result_is_Error = "result is Error _",
     cst_result_is_Ok = "result is Ok _";
    function ok(v){
-     /*<<result.ml:18:11>>*/ return [0, v] /*<<result.ml:18:11>>*/ ;
+     /*<<result.ml:18:11>>*/ return [0, v];
     /*<<result.ml:18:15>>*/ }
    function error(e){
-     /*<<result.ml:19:14>>*/ return [1, e] /*<<result.ml:19:14>>*/ ;
+     /*<<result.ml:19:14>>*/ return [1, e];
     /*<<result.ml:19:21>>*/ }
    function value(r, default$0){
      /*<<result.ml:20:23>>*/ if(0 !== r[0])
-      /*<<result.ml:20:59>>*/ return default$0 /*<<result.ml:20:59>>*/ ;
+      /*<<result.ml:20:59>>*/ return default$0;
     var v = r[1];
-     /*<<result.ml:20:44>>*/ return v /*<<result.ml:20:44>>*/ ;
+     /*<<result.ml:20:44>>*/ return v;
     /*<<result.ml:20:66>>*/ }
    function get_ok(param){
      /*<<result.ml:21:13>>*/ if(0 !== param[0])
-      /*<<result.ml:21:45>>*/ return  /*<<result.ml:21:45>>*/ caml_call1
-              /*<<result.ml:21:45>>*/ (Stdlib[1], cst_result_is_Error) /*<<result.ml:21:76>>*/ ;
+      /*<<result.ml:21:45>>*/ return caml_call1
+             (Stdlib[1], cst_result_is_Error) /*<<result.ml:21:76>>*/ ;
     var v = param[1];
-     /*<<result.ml:21:30>>*/ return v /*<<result.ml:21:30>>*/ ;
+     /*<<result.ml:21:30>>*/ return v;
     /*<<result.ml:21:76>>*/ }
    function get_error(param){
      /*<<result.ml:22:16>>*/ if(0 === param[0])
-      /*<<result.ml:22:48>>*/ return  /*<<result.ml:22:48>>*/ caml_call1
-              /*<<result.ml:22:48>>*/ (Stdlib[1], cst_result_is_Ok) /*<<result.ml:22:76>>*/ ;
+      /*<<result.ml:22:48>>*/ return caml_call1(Stdlib[1], cst_result_is_Ok) /*<<result.ml:22:76>>*/ ;
     var e = param[1];
-     /*<<result.ml:22:36>>*/ return e /*<<result.ml:22:36>>*/ ;
+     /*<<result.ml:22:36>>*/ return e;
     /*<<result.ml:22:76>>*/ }
    function bind(r, f){
-     /*<<result.ml:23:15>>*/ if(0 !== r[0])
-      /*<<result.ml:23:58>>*/ return r /*<<result.ml:23:58>>*/ ;
+     /*<<result.ml:23:15>>*/ if(0 !== r[0])  /*<<result.ml:23:58>>*/ return r;
     var v = r[1];
-     /*<<result.ml:23:36>>*/ return  /*<<result.ml:23:36>>*/ caml_call1
-             /*<<result.ml:23:36>>*/ (f, v) /*<<result.ml:23:59>>*/ ;
-    /*<<result.ml:23:59>>*/ }
+     /*<<result.ml:23:36>>*/ return caml_call1(f, v) /*<<result.ml:23:59>>*/ ;
+   }
    function join(e){
-     /*<<result.ml:24:11>>*/ if(0 !== e[0])
-      /*<<result.ml:24:48>>*/ return e /*<<result.ml:24:48>>*/ ;
+     /*<<result.ml:24:11>>*/ if(0 !== e[0])  /*<<result.ml:24:48>>*/ return e;
     var r = e[1];
-     /*<<result.ml:24:28>>*/ return r /*<<result.ml:24:28>>*/ ;
+     /*<<result.ml:24:28>>*/ return r;
     /*<<result.ml:24:49>>*/ }
    function map(f, e){
-     /*<<result.ml:25:8>>*/ if(0 !== e[0])
-      /*<<result.ml:25:56>>*/ return e /*<<result.ml:25:56>>*/ ;
+     /*<<result.ml:25:8>>*/ if(0 !== e[0])  /*<<result.ml:25:56>>*/ return e;
     var v = e[1];
      /*<<result.ml:25:29>>*/ return [0,
-             /*<<result.ml:25:32>>*/ caml_call1 /*<<result.ml:25:32>>*/ (f, v)] /*<<result.ml:25:29>>*/ ;
+             /*<<result.ml:25:32>>*/ caml_call1(f, v)] /*<<result.ml:25:29>>*/ ;
     /*<<result.ml:25:57>>*/ }
    function map_error(f, v){
-     /*<<result.ml:26:14>>*/ if(0 === v[0])
-      /*<<result.ml:26:65>>*/ return v /*<<result.ml:26:65>>*/ ;
+     /*<<result.ml:26:14>>*/ if(0 === v[0])  /*<<result.ml:26:65>>*/ return v;
     var e = v[1];
      /*<<result.ml:26:38>>*/ return [1,
-             /*<<result.ml:26:44>>*/ caml_call1 /*<<result.ml:26:44>>*/ (f, e)] /*<<result.ml:26:38>>*/ ;
+             /*<<result.ml:26:44>>*/ caml_call1(f, e)] /*<<result.ml:26:38>>*/ ;
     /*<<result.ml:26:66>>*/ }
    function fold(ok, error, param){
      /*<<result.ml:27:9>>*/ if(0 === param[0]){
      var v = param[1];
-      /*<<result.ml:27:39>>*/ return  /*<<result.ml:27:39>>*/ caml_call1
-              /*<<result.ml:27:39>>*/ (ok, v) /*<<result.ml:27:64>>*/ ;
+      /*<<result.ml:27:39>>*/ return caml_call1(ok, v) /*<<result.ml:27:64>>*/ ;
     }
     var e = param[1];
-     /*<<result.ml:27:57>>*/ return  /*<<result.ml:27:57>>*/ caml_call1
-             /*<<result.ml:27:57>>*/ (error, e) /*<<result.ml:27:64>>*/ ;
-    /*<<result.ml:27:64>>*/ }
+     /*<<result.ml:27:57>>*/ return caml_call1(error, e) /*<<result.ml:27:64>>*/ ;
+   }
    function iter(f, param){
      /*<<result.ml:28:9>>*/ if(0 !== param[0])
-      /*<<result.ml:28:47>>*/ return 0 /*<<result.ml:28:47>>*/ ;
+      /*<<result.ml:28:47>>*/ return 0;
     var v = param[1];
-     /*<<result.ml:28:30>>*/ return  /*<<result.ml:28:30>>*/ caml_call1
-             /*<<result.ml:28:30>>*/ (f, v) /*<<result.ml:28:49>>*/ ;
-    /*<<result.ml:28:49>>*/ }
+     /*<<result.ml:28:30>>*/ return caml_call1(f, v) /*<<result.ml:28:49>>*/ ;
+   }
    function iter_error(f, param){
      /*<<result.ml:29:15>>*/ if(0 === param[0])
-      /*<<result.ml:29:53>>*/ return 0 /*<<result.ml:29:53>>*/ ;
+      /*<<result.ml:29:53>>*/ return 0;
     var e = param[1];
-     /*<<result.ml:29:39>>*/ return  /*<<result.ml:29:39>>*/ caml_call1
-             /*<<result.ml:29:39>>*/ (f, e) /*<<result.ml:29:55>>*/ ;
-    /*<<result.ml:29:55>>*/ }
+     /*<<result.ml:29:39>>*/ return caml_call1(f, e) /*<<result.ml:29:55>>*/ ;
+   }
    function is_ok(param){
      /*<<result.ml:30:12>>*/ return 0 === param[0] ? 1 : 0 /*<<result.ml:30:52>>*/ ;
-    /*<<result.ml:30:52>>*/ }
+   }
    function is_error(param){
      /*<<result.ml:31:15>>*/ return 0 === param[0] ? 0 : 1 /*<<result.ml:31:55>>*/ ;
-    /*<<result.ml:31:55>>*/ }
+   }
    function equal(ok, error, r0, r1){
      /*<<result.ml:33:29>>*/ if(0 === r0[0]){
      var v0 = r0[1];
      if(0 === r1[0]){
       var v1 = r1[1];
-       /*<<result.ml:34:18>>*/ return  /*<<result.ml:34:18>>*/ caml_call2
-               /*<<result.ml:34:18>>*/ (ok, v0, v1) /*<<result.ml:36:15>>*/ ;
+       /*<<result.ml:34:18>>*/ return caml_call2(ok, v0, v1) /*<<result.ml:36:15>>*/ ;
      }
     }
     else{
      var e0 = r0[1];
      if(0 !== r1[0]){
       var e1 = r1[1];
-       /*<<result.ml:35:24>>*/ return  /*<<result.ml:35:24>>*/ caml_call2
-               /*<<result.ml:35:24>>*/ (error, e0, e1) /*<<result.ml:36:15>>*/ ;
+       /*<<result.ml:35:24>>*/ return caml_call2(error, e0, e1) /*<<result.ml:36:15>>*/ ;
      }
     }
-     /*<<result.ml:36:10>>*/ return 0 /*<<result.ml:36:10>>*/ ;
+     /*<<result.ml:36:10>>*/ return 0;
     /*<<result.ml:36:15>>*/ }
    function compare(ok, error, r0, r1){
      /*<<result.ml:38:31>>*/ if(0 === r0[0]){
      var v0 = r0[1];
-     if(0 !== r1[0])
-       /*<<result.ml:41:19>>*/ return -1 /*<<result.ml:41:19>>*/ ;
+     if(0 !== r1[0])  /*<<result.ml:41:19>>*/ return -1;
      var v1 = r1[1];
-      /*<<result.ml:39:18>>*/ return  /*<<result.ml:39:18>>*/ caml_call2
-              /*<<result.ml:39:18>>*/ (ok, v0, v1) /*<<result.ml:42:20>>*/ ;
+      /*<<result.ml:39:18>>*/ return caml_call2(ok, v0, v1) /*<<result.ml:42:20>>*/ ;
     }
     var e0 = r0[1];
-    if(0 === r1[0])
-      /*<<result.ml:42:19>>*/ return 1 /*<<result.ml:42:19>>*/ ;
+    if(0 === r1[0])  /*<<result.ml:42:19>>*/ return 1;
     var e1 = r1[1];
-     /*<<result.ml:40:24>>*/ return  /*<<result.ml:40:24>>*/ caml_call2
-             /*<<result.ml:40:24>>*/ (error, e0, e1) /*<<result.ml:42:20>>*/ ;
-    /*<<result.ml:42:20>>*/ }
+     /*<<result.ml:40:24>>*/ return caml_call2(error, e0, e1) /*<<result.ml:42:20>>*/ ;
+   }
    function to_option(param){
      /*<<result.ml:44:16>>*/ if(0 !== param[0])
-      /*<<result.ml:44:53>>*/ return 0 /*<<result.ml:44:53>>*/ ;
+      /*<<result.ml:44:53>>*/ return 0;
     var v = param[1];
-     /*<<result.ml:44:33>>*/ return [0, v] /*<<result.ml:44:33>>*/ ;
+     /*<<result.ml:44:33>>*/ return [0, v];
     /*<<result.ml:44:57>>*/ }
    function to_list(param){
      /*<<result.ml:45:14>>*/ if(0 !== param[0])
-      /*<<result.ml:45:48>>*/ return 0 /*<<result.ml:45:48>>*/ ;
+      /*<<result.ml:45:48>>*/ return 0;
     var v = param[1];
-     /*<<result.ml:45:31>>*/ return [0, v, 0] /*<<result.ml:45:31>>*/ ;
+     /*<<result.ml:45:31>>*/ return [0, v, 0];
     /*<<result.ml:45:50>>*/ }
    function to_seq(param){
      /*<<result.ml:46:13>>*/ if(0 !== param[0])
-      /*<<result.ml:46:56>>*/ return Stdlib_Seq[20] /*<<result.ml:46:56>>*/ ;
+      /*<<result.ml:46:56>>*/ return Stdlib_Seq[20];
     var v = param[1];
-     /*<<result.ml:46:30>>*/ return  /*<<result.ml:46:30>>*/ caml_call1
-             /*<<result.ml:46:30>>*/ (Stdlib_Seq[21], v) /*<<result.ml:46:65>>*/ ;
-    /*<<result.ml:46:65>>*/ }
+     /*<<result.ml:46:30>>*/ return caml_call1(Stdlib_Seq[21], v) /*<<result.ml:46:65>>*/ ;
+   }
    var
     Stdlib_Result =
       [0,
@@ -3339,42 +2804,38 @@
 //# unitInfo: Provides: Stdlib__Bool
 (function(globalThis){
    "use strict";
-   var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_hash =  /*<<?>>*/ runtime.caml_hash;
-   function equal(_d_, _c_){ /*<<?>>*/ return _d_ === _c_ ? 1 : 0;}
+   var runtime = globalThis.jsoo_runtime, caml_hash = runtime.caml_hash;
+   function equal(_d_, _c_){return _d_ === _c_ ? 1 : 0;}
    var
     compare = runtime.caml_int_compare,
     cst_true = "true",
     cst_false = "false";
    function to_float(param){
      /*<<bool.ml:24:15>>*/ return param ? 1. : 0. /*<<bool.ml:24:48>>*/ ;
-    /*<<bool.ml:24:48>>*/ }
+   }
    function to_string(param){
      /*<<bool.ml:33:16>>*/ return param ? cst_true : cst_false /*<<bool.ml:33:58>>*/ ;
-    /*<<bool.ml:33:58>>*/ }
+   }
    function seeded_hash(seed, x){
-     /*<<bool.ml:37:25>>*/ return  /*<<bool.ml:37:25>>*/ caml_hash
-             /*<<bool.ml:37:25>>*/ (10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
-    /*<<bool.ml:37:56>>*/ }
+     /*<<bool.ml:37:25>>*/ return caml_hash(10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
+   }
    function hash(x){
-     /*<<bool.ml:38:13>>*/ return  /*<<bool.ml:38:13>>*/ caml_hash
-             /*<<bool.ml:38:13>>*/ (10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
-    /*<<bool.ml:38:41>>*/ }
+     /*<<bool.ml:38:13>>*/ return caml_hash(10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
+   }
    var
     Stdlib_Bool =
       [0,
        function(_b_){ /*<<?>>*/ return 1 - _b_;},
        equal,
        compare,
-       function(_a_){ /*<<?>>*/ return _a_;},
+       function(_a_){return _a_;},
        to_float,
        to_string,
        seeded_hash,
        hash];
    runtime.caml_register_global(4, Stdlib_Bool, "Stdlib__Bool");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Char
@@ -3383,11 +2844,11 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_hash =  /*<<?>>*/ runtime.caml_hash,
-    caml_string_of_bytes =  /*<<?>>*/ runtime.caml_string_of_bytes;
+    runtime = globalThis.jsoo_runtime,
+    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_hash = runtime.caml_hash,
+    caml_string_of_bytes = runtime.caml_string_of_bytes;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -3405,57 +2866,47 @@
     cst_r = "\\r";
    function chr(n){
      /*<<char.ml:22:2>>*/ if(0 <= n && 255 >= n)
-      /*<<char.ml:22:55>>*/ return n /*<<char.ml:22:55>>*/ ;
-     /*<<char.ml:22:27>>*/ return  /*<<char.ml:22:27>>*/ caml_call1
-             /*<<char.ml:22:27>>*/ (Stdlib[1], cst_Char_chr) /*<<char.ml:22:67>>*/ ;
-    /*<<char.ml:22:67>>*/ }
+      /*<<char.ml:22:55>>*/ return n;
+     /*<<char.ml:22:27>>*/ return caml_call1(Stdlib[1], cst_Char_chr) /*<<char.ml:22:67>>*/ ;
+   }
    function escaped(c){
     a:
     {
      if(40 <= c){
-      if(92 === c)  /*<<char.ml:31:12>>*/ return cst /*<<char.ml:31:12>>*/ ;
+      if(92 === c)  /*<<char.ml:31:12>>*/ return cst;
       if(127 > c) break a;
      }
      else{
-      if(32 <= c){
-       if(39 <= c)  /*<<char.ml:30:12>>*/ return cst$0 /*<<char.ml:30:12>>*/ ;
-       break a;
-      }
+      if(32 <= c){if(39 <= c)  /*<<char.ml:30:12>>*/ return cst$0; break a;}
       if(14 > c)
        switch(c){
          case 8:
-           /*<<char.ml:35:12>>*/ return cst_b /*<<char.ml:35:12>>*/ ;
+           /*<<char.ml:35:12>>*/ return cst_b;
          case 9:
-           /*<<char.ml:33:12>>*/ return cst_t /*<<char.ml:33:12>>*/ ;
+           /*<<char.ml:33:12>>*/ return cst_t;
          case 10:
-           /*<<char.ml:32:12>>*/ return cst_n /*<<char.ml:32:12>>*/ ;
+           /*<<char.ml:32:12>>*/ return cst_n;
          case 13:
-           /*<<char.ml:34:12>>*/ return cst_r /*<<char.ml:34:12>>*/ ;
+           /*<<char.ml:34:12>>*/ return cst_r;
        }
      }
-     var
-      s =
-         /*<<char.ml:42:14>>*/  /*<<char.ml:42:14>>*/ caml_create_bytes
-          /*<<char.ml:42:14>>*/ (4);
+     var s =  /*<<char.ml:42:14>>*/ caml_create_bytes(4);
      caml_bytes_unsafe_set(s, 0, 92);
      caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
      caml_bytes_unsafe_set(s, 2, 48 + ((c / 10 | 0) % 10 | 0) | 0);
      caml_bytes_unsafe_set(s, 3, 48 + (c % 10 | 0) | 0);
      return caml_string_of_bytes(s) /*<<char.ml:47:24>>*/ ;
     }
-    var
-     s$0 =
-        /*<<char.ml:37:14>>*/  /*<<char.ml:37:14>>*/ caml_create_bytes
-         /*<<char.ml:37:14>>*/ (1);
+    var s$0 =  /*<<char.ml:37:14>>*/ caml_create_bytes(1);
     caml_bytes_unsafe_set(s$0, 0, c);
     return caml_string_of_bytes(s$0) /*<<char.ml:47:24>>*/ ;
-    /*<<char.ml:47:24>>*/ }
+   }
    function lowercase_ascii(c){
      /*<<char.ml:49:22>>*/ return 25 < c - 65 >>> 0 ? c : c + 32 | 0 /*<<char.ml:51:10>>*/ ;
-    /*<<char.ml:51:10>>*/ }
+   }
    function uppercase_ascii(c){
      /*<<char.ml:53:22>>*/ return 25 < c - 97 >>> 0 ? c : c - 32 | 0 /*<<char.ml:55:10>>*/ ;
-    /*<<char.ml:55:10>>*/ }
+   }
    function compare(c1, c2){
      /*<<char.ml:59:20>>*/ return c1 - c2 | 0;
     /*<<char.ml:59:37>>*/ }
@@ -3463,13 +2914,11 @@
      /*<<char.ml:60:28>>*/ return 0 === (c1 - c2 | 0) ? 1 : 0;
     /*<<char.ml:60:45>>*/ }
    function seeded_hash(seed, x){
-     /*<<char.ml:64:25>>*/ return  /*<<char.ml:64:25>>*/ caml_hash
-             /*<<char.ml:64:25>>*/ (10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
-    /*<<char.ml:64:56>>*/ }
+     /*<<char.ml:64:25>>*/ return caml_hash(10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
+   }
    function hash(x){
-     /*<<char.ml:65:13>>*/ return  /*<<char.ml:65:13>>*/ caml_hash
-             /*<<char.ml:65:13>>*/ (10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
-    /*<<char.ml:65:41>>*/ }
+     /*<<char.ml:65:13>>*/ return caml_hash(10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
+   }
    var
     Stdlib_Char =
       [0,
@@ -3492,11 +2941,10 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_uchar_ml =  /*<<?>>*/ "uchar.ml",
-    caml_format_int =  /*<<?>>*/ runtime.caml_format_int,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    cst_uchar_ml = "uchar.ml",
+    caml_format_int = runtime.caml_format_int,
+    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
             ? f(a0)
@@ -3522,12 +2970,12 @@
      /*<<uchar.ml:34:2>>*/ return u === 55295
             ? hi_bound
             : u === 1114111 ? caml_call1(Stdlib[1], err_no_succ) : u + 1 | 0 /*<<uchar.ml:36:7>>*/ ;
-    /*<<uchar.ml:36:7>>*/ }
+   }
    function pred(u){
      /*<<uchar.ml:39:2>>*/ return u === 57344
             ? lo_bound
             : u === 0 ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0 /*<<uchar.ml:41:7>>*/ ;
-    /*<<uchar.ml:41:7>>*/ }
+   }
    function is_valid(i){
     var _n_ = 0 <= i ? 1 : 0, _o_ = _n_ ? i <= 55295 ? 1 : 0 : _n_;
     if(_o_)
@@ -3537,50 +2985,40 @@
     return _p_;
     /*<<uchar.ml:43:75>>*/ }
    function of_int(i){
-     /*<<uchar.ml:44:15>>*/ if
-     ( /*<<uchar.ml:44:18>>*/ is_valid /*<<uchar.ml:44:18>>*/ (i))
-      /*<<uchar.ml:44:34>>*/ return i /*<<uchar.ml:44:34>>*/ ;
+     /*<<uchar.ml:44:15>>*/ if( /*<<uchar.ml:44:18>>*/ is_valid(i))
+      /*<<uchar.ml:44:34>>*/ return i;
     var
      _m_ =
-        /*<<uchar.ml:20:19>>*/  /*<<uchar.ml:20:19>>*/ caml_call2
-         /*<<uchar.ml:20:19>>*/ (Stdlib[28],
-          /*<<uchar.ml:20:19>>*/ caml_format_int
-           /*<<uchar.ml:20:19>>*/ ("%X", i),
-         cst_is_not_an_Unicode_scalar_v);
-     /*<<uchar.ml:44:53>>*/ return  /*<<uchar.ml:44:53>>*/ caml_call1
-             /*<<uchar.ml:44:53>>*/ (Stdlib[1], _m_) /*<<uchar.ml:44:67>>*/ ;
-    /*<<uchar.ml:44:67>>*/ }
+        /*<<uchar.ml:20:19>>*/ caml_call2
+        (Stdlib[28], caml_format_int("%X", i), cst_is_not_an_Unicode_scalar_v);
+     /*<<uchar.ml:44:53>>*/ return caml_call1(Stdlib[1], _m_) /*<<uchar.ml:44:67>>*/ ;
+   }
    function is_char(u){
      /*<<uchar.ml:48:16>>*/ return u < 256 ? 1 : 0;
     /*<<uchar.ml:48:23>>*/ }
    function of_char(c){
-     /*<<uchar.ml:49:16>>*/ return c /*<<uchar.ml:49:16>>*/ ;
+     /*<<uchar.ml:49:16>>*/ return c;
     /*<<uchar.ml:49:27>>*/ }
    function to_char(u){
-     /*<<uchar.ml:51:2>>*/ if(255 >= u)
-      /*<<uchar.ml:52:2>>*/ return u /*<<uchar.ml:52:2>>*/ ;
+     /*<<uchar.ml:51:2>>*/ if(255 >= u)  /*<<uchar.ml:52:2>>*/ return u;
     var
      _k_ =
-        /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
-         /*<<uchar.ml:21:30>>*/ (Stdlib[28],
-          /*<<uchar.ml:21:30>>*/ caml_format_int
-           /*<<uchar.ml:21:30>>*/ ("%04X", u),
+        /*<<uchar.ml:21:30>>*/ caml_call2
+        (Stdlib[28],
+         caml_format_int("%04X", u),
          cst_is_not_a_latin1_character),
-     _l_ =
-        /*<<uchar.ml:21:30>>*/  /*<<uchar.ml:21:30>>*/ caml_call2
-         /*<<uchar.ml:21:30>>*/ (Stdlib[28], cst_U, _k_);
-     /*<<uchar.ml:51:30>>*/ return  /*<<uchar.ml:51:30>>*/ caml_call1
-             /*<<uchar.ml:51:30>>*/ (Stdlib[1], _l_) /*<<uchar.ml:52:19>>*/ ;
-    /*<<uchar.ml:52:19>>*/ }
+     _l_ = caml_call2(Stdlib[28], cst_U, _k_);
+     /*<<uchar.ml:51:30>>*/ return caml_call1(Stdlib[1], _l_) /*<<uchar.ml:52:19>>*/ ;
+   }
    function unsafe_to_char(_j_){ /*<<?>>*/ return _j_;}
-   function equal(_i_, _h_){ /*<<?>>*/ return _i_ === _h_ ? 1 : 0;}
+   function equal(_i_, _h_){return _i_ === _h_ ? 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_;}
+   function hash(_g_){return _g_;}
    function utf_decode_is_valid(d){
      /*<<uchar.ml:73:37>>*/ return 1 === (d >>> 27 | 0) ? 1 : 0;
     /*<<uchar.ml:73:58>>*/ }
@@ -3598,29 +3036,25 @@
     /*<<uchar.ml:77: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:80:18>>*/ ([0, Assert_failure, _b_], 1);
-     /*<<uchar.ml:81:9>>*/ if(127 >= u)
-      /*<<uchar.ml:81:24>>*/ return 1 /*<<uchar.ml:81:24>>*/ ;
-     /*<<uchar.ml:82:9>>*/ if(2047 >= u)
-      /*<<uchar.ml:82:24>>*/ return 2 /*<<uchar.ml:82:24>>*/ ;
-     /*<<uchar.ml:83:9>>*/ if(65535 >= u)
-      /*<<uchar.ml:83:24>>*/ return 3 /*<<uchar.ml:83:24>>*/ ;
+      /*<<uchar.ml:80:18>>*/ throw 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:7>>*/ ([0, Assert_failure, _a_], 1);
-     /*<<uchar.ml:84:26>>*/ return 4 /*<<uchar.ml:84:26>>*/ ;
+      /*<<uchar.ml:85:7>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _a_], 1);
+     /*<<uchar.ml:84:26>>*/ return 4;
     /*<<uchar.ml:85: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:88:18>>*/ ([0, Assert_failure, _d_], 1);
-     /*<<uchar.ml:89:9>>*/ if(65535 >= u)
-      /*<<uchar.ml:89:24>>*/ return 2 /*<<uchar.ml:89:24>>*/ ;
+      /*<<uchar.ml:88:18>>*/ throw 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:91:7>>*/ ([0, Assert_failure, _c_], 1);
-     /*<<uchar.ml:90:26>>*/ return 4 /*<<uchar.ml:90:26>>*/ ;
+      /*<<uchar.ml:91:7>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _c_], 1);
+     /*<<uchar.ml:90:26>>*/ return 4;
     /*<<uchar.ml:91:19>>*/ }
    var
     Stdlib_Uchar =
@@ -3634,7 +3068,7 @@
        is_valid,
        of_int,
        function(_f_){ /*<<?>>*/ return _f_;},
-       function(_e_){ /*<<?>>*/ return _e_;},
+       function(_e_){return _e_;},
        is_char,
        of_char,
        to_char,
@@ -3651,7 +3085,7 @@
        utf_16_byte_length];
    runtime.caml_register_global(13, Stdlib_Uchar, "Stdlib__Uchar");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__List
@@ -3660,12 +3094,11 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_List_map2$1 =  /*<<?>>*/ "List.map2",
-    cst_List_nth$1 =  /*<<?>>*/ "List.nth",
-    caml_compare =  /*<<?>>*/ runtime.caml_compare,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    cst_List_map2$1 = "List.map2",
+    cst_List_nth$1 = "List.nth",
+    caml_compare = runtime.caml_compare,
+    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
             ? f(a0)
@@ -3692,41 +3125,36 @@
    function length(l$0){
     var len = 0, param = l$0;
      /*<<list.ml:21:19>>*/ for(;;){
-     if(! param)  /*<<list.ml:22:10>>*/ return len /*<<list.ml:22:10>>*/ ;
+     if(! param)  /*<<list.ml:22:10>>*/ return len;
      var l = param[2], len$0 =  /*<<list.ml:23:12>>*/ len + 1 | 0;
      len = len$0;
      param = l;
     }
     /*<<list.ml:25:29>>*/ }
    function cons(a, l){
-     /*<<list.ml:27:15>>*/ return [0, a, l] /*<<list.ml:27:15>>*/ ;
+     /*<<list.ml:27:15>>*/ return [0, a, l];
     /*<<list.ml:27:19>>*/ }
    function hd(param){
      /*<<list.ml:29:9>>*/ if(! param)
-      /*<<list.ml:30:10>>*/ return  /*<<list.ml:30:10>>*/ caml_call1
-              /*<<list.ml:30:10>>*/ (Stdlib[2], cst_hd) /*<<list.ml:31:13>>*/ ;
+      /*<<list.ml:30:10>>*/ return caml_call1(Stdlib[2], cst_hd) /*<<list.ml:31:13>>*/ ;
     var a = param[1];
-     /*<<list.ml:31:12>>*/ return a /*<<list.ml:31:12>>*/ ;
+     /*<<list.ml:31:12>>*/ return a;
     /*<<list.ml:31:13>>*/ }
    function tl(param){
      /*<<list.ml:33:9>>*/ if(! param)
-      /*<<list.ml:34:10>>*/ return  /*<<list.ml:34:10>>*/ caml_call1
-              /*<<list.ml:34:10>>*/ (Stdlib[2], cst_tl) /*<<list.ml:35:13>>*/ ;
+      /*<<list.ml:34:10>>*/ return caml_call1(Stdlib[2], cst_tl) /*<<list.ml:35:13>>*/ ;
     var l = param[2];
-     /*<<list.ml:35:12>>*/ return l /*<<list.ml:35:12>>*/ ;
+     /*<<list.ml:35:12>>*/ return l;
     /*<<list.ml:35:13>>*/ }
    function nth(l, n){
      /*<<list.ml:38:2>>*/ if(0 > n)
-      /*<<list.ml:38:16>>*/ return  /*<<list.ml:38:16>>*/ caml_call1
-              /*<<list.ml:38:16>>*/ (Stdlib[1], cst_List_nth) /*<<list.ml:43:16>>*/ ;
+      /*<<list.ml:38:16>>*/ return caml_call1(Stdlib[1], cst_List_nth) /*<<list.ml:43:16>>*/ ;
     var l$0 = l, n$0 = n;
      /*<<list.ml:40:4>>*/ for(;;){
      if(! l$0)
-       /*<<list.ml:41:12>>*/ return  /*<<list.ml:41:12>>*/ caml_call1
-               /*<<list.ml:41:12>>*/ (Stdlib[2], cst_nth) /*<<list.ml:43:16>>*/ ;
+       /*<<list.ml:41:12>>*/ return caml_call1(Stdlib[2], cst_nth) /*<<list.ml:43:16>>*/ ;
      var l$1 = l$0[2], a = l$0[1];
-      /*<<list.ml:42:14>>*/ if(0 === n$0)
-       /*<<list.ml:42:28>>*/ return a /*<<list.ml:42:28>>*/ ;
+      /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
      var n$1 =  /*<<list.ml:42:35>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
@@ -3734,14 +3162,13 @@
     /*<<list.ml:43:16>>*/ }
    function nth_opt(l, n){
      /*<<list.ml:46:2>>*/ if(0 > n)
-      /*<<list.ml:46:16>>*/ return  /*<<list.ml:46:16>>*/ caml_call1
-              /*<<list.ml:46:16>>*/ (Stdlib[1], cst_List_nth$0) /*<<list.ml:51:16>>*/ ;
+      /*<<list.ml:46:16>>*/ return caml_call1(Stdlib[1], cst_List_nth$0) /*<<list.ml:51:16>>*/ ;
     var l$0 = l, n$0 = n;
      /*<<list.ml:48:4>>*/ for(;;){
-     if(! l$0)  /*<<list.ml:49:12>>*/ return 0 /*<<list.ml:49:12>>*/ ;
+     if(! l$0)  /*<<list.ml:49:12>>*/ return 0;
      var l$1 = l$0[2], a = l$0[1];
       /*<<list.ml:50:14>>*/ if(0 === n$0)
-       /*<<list.ml:50:28>>*/ return [0, a] /*<<list.ml:50:28>>*/ ;
+       /*<<list.ml:50:28>>*/ return [0, a];
      var n$1 =  /*<<list.ml:50:40>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
@@ -3763,7 +3190,7 @@
    function rev_append(l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:56:2>>*/ for(;;){
-     if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0 /*<<list.ml:57:10>>*/ ;
+     if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
      var
       l1$1 = l1$0[2],
       a = l1$0[1],
@@ -3773,26 +3200,20 @@
     }
     /*<<list.ml:58:36>>*/ }
    function rev(l){
-     /*<<list.ml:60:12>>*/ return  /*<<list.ml:60:12>>*/ rev_append
-             /*<<list.ml:60:12>>*/ (l, 0) /*<<list.ml:60:27>>*/ ;
-    /*<<list.ml:60:27>>*/ }
+     /*<<list.ml:60:12>>*/ return rev_append(l, 0) /*<<list.ml:60:27>>*/ ;
+   }
    function init(len, f){
      /*<<list.ml:71:2>>*/ if(0 > len)
-      /*<<list.ml:71:18>>*/ return  /*<<list.ml:71:18>>*/ caml_call1
-              /*<<list.ml:71:18>>*/ (Stdlib[1], cst_List_init) /*<<list.ml:72:20>>*/ ;
+      /*<<list.ml:71:18>>*/ return caml_call1(Stdlib[1], cst_List_init) /*<<list.ml:72:20>>*/ ;
     var last = len - 1 | 0, i$1 = 0;
-    if(last < 0)  /*<<list.ml:63:19>>*/ return 0 /*<<list.ml:63:19>>*/ ;
+    if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
     if(0 === last)
       /*<<list.ml:64:24>>*/ return [0,
-              /*<<list.ml:64:25>>*/ caml_call1 /*<<list.ml:64:25>>*/ (f, i$1),
+              /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
              0] /*<<list.ml:64:24>>*/ ;
     var
-     r1 =
-        /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1
-         /*<<list.ml:66:13>>*/ (f, i$1),
-     r2 =
-        /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1
-         /*<<list.ml:67:13>>*/ (f, 1),
+     r1 =  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
+     r2 =  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
      block =  /*<<list.ml:68:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
@@ -3803,12 +3224,8 @@
      else{
       if(i !== last){
        var
-        r1$0 =
-           /*<<list.ml:66:13>>*/  /*<<list.ml:66:13>>*/ caml_call1
-            /*<<list.ml:66:13>>*/ (f, i),
-        r2$0 =
-           /*<<list.ml:67:13>>*/  /*<<list.ml:67:13>>*/ caml_call1
-            /*<<list.ml:67:13>>*/ (f, i + 1 | 0),
+        r1$0 =  /*<<list.ml:66:13>>*/ caml_call1(f, i),
+        r2$0 =  /*<<list.ml:67:13>>*/ caml_call1(f, i + 1 | 0),
         dst$0 =  /*<<list.ml:68:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$0, dst$0];
        var i$0 = i + 2 | 0;
@@ -3817,44 +3234,28 @@
        i = i$0;
        continue;
       }
-      dst[1 + offset] =
-       [0,  /*<<list.ml:64:25>>*/ caml_call1 /*<<list.ml:64:25>>*/ (f, i), 0];
+      dst[1 + offset] = [0,  /*<<list.ml:64:25>>*/ caml_call1(f, i), 0];
      }
-      /*<<list.ml:68:4>>*/ return [0, r1, block] /*<<list.ml:68:4>>*/ ;
+      /*<<list.ml:68:4>>*/ return [0, r1, block];
     }
     /*<<list.ml:72:20>>*/ }
    function flatten(param){
-     /*<<list.ml:74:18>>*/ if(! param)
-      /*<<list.ml:75:10>>*/ return 0 /*<<list.ml:75:10>>*/ ;
-    var
-     r = param[2],
-     l = param[1],
-     _I_ =
-        /*<<list.ml:76:16>>*/  /*<<list.ml:76:16>>*/ flatten
-         /*<<list.ml:76:16>>*/ (r);
-     /*<<list.ml:76:16>>*/ return  /*<<list.ml:76:16>>*/ caml_call2
-             /*<<list.ml:76:16>>*/ (Stdlib[37], l, _I_) /*<<list.ml:76:25>>*/ ;
-    /*<<list.ml:76:25>>*/ }
+     /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
+    var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
+    return caml_call2(Stdlib[37], l, _I_) /*<<list.ml:76:25>>*/ ;
+   }
    function map(f, param){
-     /*<<list.ml:80:28>>*/ if(! param)
-      /*<<list.ml:81:10>>*/ return 0 /*<<list.ml:81:10>>*/ ;
+     /*<<list.ml:80:28>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
     var match = param[2], a1 = param[1];
     if(! match){
-     var
-      r1$0 =
-         /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1
-          /*<<list.ml:83:15>>*/ (f, a1);
-      /*<<list.ml:84:6>>*/ return [0, r1$0, 0] /*<<list.ml:84:6>>*/ ;
+     var r1$0 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1);
+      /*<<list.ml:84:6>>*/ return [0, r1$0, 0];
     }
     var
      l = match[2],
      a2 = match[1],
-     r1 =
-        /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1
-         /*<<list.ml:86:15>>*/ (f, a1),
-     r2 =
-        /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1
-         /*<<list.ml:87:15>>*/ (f, a2),
+     r1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
+     r2 =  /*<<list.ml:87:15>>*/ caml_call1(f, a2),
      block =  /*<<list.ml:88:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
@@ -3866,12 +3267,8 @@
        var
         l$0 = match$0[2],
         a2$0 = match$0[1],
-        r1$1 =
-           /*<<list.ml:86:15>>*/  /*<<list.ml:86:15>>*/ caml_call1
-            /*<<list.ml:86:15>>*/ (f, a1$0),
-        r2$0 =
-           /*<<list.ml:87:15>>*/  /*<<list.ml:87:15>>*/ caml_call1
-            /*<<list.ml:87:15>>*/ (f, a2$0),
+        r1$1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1$0),
+        r2$0 =  /*<<list.ml:87:15>>*/ caml_call1(f, a2$0),
         dst$0 =  /*<<list.ml:88:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        dst = dst$0;
@@ -3879,37 +3276,27 @@
        param$0 = l$0;
        continue;
       }
-      var
-       r1$2 =
-          /*<<list.ml:83:15>>*/  /*<<list.ml:83:15>>*/ caml_call1
-           /*<<list.ml:83:15>>*/ (f, a1$0);
+      var r1$2 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:88:6>>*/ return [0, r1, block] /*<<list.ml:88:6>>*/ ;
+      /*<<list.ml:88:6>>*/ return [0, r1, block];
     }
     /*<<list.ml:88:21>>*/ }
    function mapi(f, l$1){
     var i$1 = 0;
-    if(! l$1)  /*<<list.ml:91:10>>*/ return 0 /*<<list.ml:91:10>>*/ ;
+    if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
     var match = l$1[2], a1 = l$1[1];
     if(! match){
-     var
-      r1$0 =
-         /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2
-          /*<<list.ml:93:15>>*/ (f, i$1, a1);
-      /*<<list.ml:94:6>>*/ return [0, r1$0, 0] /*<<list.ml:94:6>>*/ ;
+     var r1$0 =  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
+      /*<<list.ml:94:6>>*/ return [0, r1$0, 0];
     }
     var
      l = match[2],
      a2 = match[1],
-     r1 =
-        /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2
-         /*<<list.ml:96:15>>*/ (f, i$1, a1),
-     r2 =
-        /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2
-         /*<<list.ml:97:15>>*/ (f, 1, a2),
+     r1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
+     r2 =  /*<<list.ml:97:15>>*/ caml_call2(f, 1, a2),
      block =  /*<<list.ml:98:10>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
@@ -3922,12 +3309,8 @@
        var
         l$0 = match$0[2],
         a2$0 = match$0[1],
-        r1$1 =
-           /*<<list.ml:96:15>>*/  /*<<list.ml:96:15>>*/ caml_call2
-            /*<<list.ml:96:15>>*/ (f, i, a1$0),
-        r2$0 =
-           /*<<list.ml:97:15>>*/  /*<<list.ml:97:15>>*/ caml_call2
-            /*<<list.ml:97:15>>*/ (f, i + 1 | 0, a2$0),
+        r1$1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i, a1$0),
+        r2$0 =  /*<<list.ml:97:15>>*/ caml_call2(f, i + 1 | 0, a2$0),
         dst$0 =  /*<<list.ml:98:10>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        var i$0 = i + 2 | 0;
@@ -3937,27 +3320,24 @@
        param = l$0;
        continue;
       }
-      var
-       r1$2 =
-          /*<<list.ml:93:15>>*/  /*<<list.ml:93:15>>*/ caml_call2
-           /*<<list.ml:93:15>>*/ (f, i, a1$0);
+      var r1$2 =  /*<<list.ml:93:15>>*/ caml_call2(f, i, a1$0);
       dst[1 + offset] = [0, r1$2, 0];
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:98:6>>*/ return [0, r1, block] /*<<list.ml:98:6>>*/ ;
+      /*<<list.ml:98:6>>*/ return [0, r1, block];
     }
     /*<<list.ml:100:25>>*/ }
    function rev_map(f, l){
     var accu = 0, param = l;
      /*<<list.ml:103:17>>*/ for(;;){
-     if(! param)  /*<<list.ml:104:12>>*/ return accu /*<<list.ml:104:12>>*/ ;
+     if(! param)  /*<<list.ml:104:12>>*/ return accu;
      var
       l$0 = param[2],
       a = param[1],
       accu$0 =
          /*<<list.ml:105:21>>*/ [0,
-          /*<<list.ml:105:22>>*/ caml_call1 /*<<list.ml:105:22>>*/ (f, a),
+          /*<<list.ml:105:22>>*/ caml_call1(f, a),
          accu];
      accu = accu$0;
      param = l$0;
@@ -3966,20 +3346,18 @@
    function iter(f, param){
     var param$0 = param;
      /*<<list.ml:110:13>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:111:10>>*/ return 0 /*<<list.ml:111:10>>*/ ;
+     if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
      var l = param$0[2], a = param$0[1];
-      /*<<list.ml:112:12>>*/  /*<<list.ml:112:12>>*/ caml_call1
-       /*<<list.ml:112:12>>*/ (f, a);
+      /*<<list.ml:112:12>>*/ caml_call1(f, a);
      param$0 = l;
     }
     /*<<list.ml:112:25>>*/ }
    function iteri(f, l$0){
     var i = 0, param = l$0;
      /*<<list.ml:114:14>>*/ for(;;){
-     if(! param)  /*<<list.ml:115:10>>*/ return 0 /*<<list.ml:115:10>>*/ ;
+     if(! param)  /*<<list.ml:115:10>>*/ return 0;
      var l = param[2], a = param[1];
-      /*<<list.ml:116:12>>*/  /*<<list.ml:116:12>>*/ caml_call2
-       /*<<list.ml:116:12>>*/ (f, i, a);
+      /*<<list.ml:116:12>>*/ caml_call2(f, i, a);
      var i$0 = i + 1 | 0;
      i = i$0;
      param = l;
@@ -3988,27 +3366,20 @@
    function fold_left(f, accu, l){
     var accu$0 = accu, l$0 = l;
      /*<<list.ml:121:2>>*/ for(;;){
-     if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0 /*<<list.ml:122:10>>*/ ;
+     if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
      var
       l$1 = l$0[2],
       a = l$0[1],
-      accu$1 =
-         /*<<list.ml:123:24>>*/  /*<<list.ml:123:24>>*/ caml_call2
-          /*<<list.ml:123:24>>*/ (f, accu$0, a);
+      accu$1 =  /*<<list.ml:123:24>>*/ caml_call2(f, accu$0, a);
      accu$0 = accu$1;
      l$0 = l$1;
     }
     /*<<list.ml:123:36>>*/ }
    function fold_right(f, l, accu){
-     /*<<list.ml:126:2>>*/ if(! l)
-      /*<<list.ml:127:10>>*/ return accu /*<<list.ml:127:10>>*/ ;
+     /*<<list.ml:126:2>>*/ if(! l)  /*<<list.ml:127:10>>*/ return accu;
     var l$0 = l[2], a = l[1];
-     /*<<list.ml:128:16>>*/ return  /*<<list.ml:128:16>>*/ caml_call2
-             /*<<list.ml:128:16>>*/ (f,
-             a,
-              /*<<list.ml:128:16>>*/ fold_right
-               /*<<list.ml:128:16>>*/ (f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
-    /*<<list.ml:128:37>>*/ }
+     /*<<list.ml:128:16>>*/ return caml_call2(f, a, fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
+   }
    function map2(f, l1, l2){
      /*<<list.ml:131:2>>*/ if(l1){
      var _G_ = l1[2], a1 = l1[1];
@@ -4022,12 +3393,8 @@
          b1 = l2[1],
          l1$0 = _G_[2],
          a2 = _G_[1],
-         r1 =
-            /*<<list.ml:137:15>>*/  /*<<list.ml:137:15>>*/ caml_call2
-             /*<<list.ml:137:15>>*/ (f, a1, b1),
-         r2 =
-            /*<<list.ml:138:15>>*/  /*<<list.ml:138:15>>*/ caml_call2
-             /*<<list.ml:138:15>>*/ (f, a2, b2),
+         r1 =  /*<<list.ml:137:15>>*/ caml_call2(f, a1, b1),
+         r2 =  /*<<list.ml:138:15>>*/ caml_call2(f, a2, b2),
          block =  /*<<list.ml:139:10>>*/ [0, r2, 24029],
          dst = block,
          offset = 1,
@@ -4048,12 +3415,8 @@
                b1$1 = l2$1[1],
                l1$2 = _H_[2],
                a2$0 = _H_[1],
-               r1$1 =
-                  /*<<list.ml:137:15>>*/  /*<<list.ml:137:15>>*/ caml_call2
-                   /*<<list.ml:137:15>>*/ (f, a1$0, b1$1),
-               r2$0 =
-                  /*<<list.ml:138:15>>*/  /*<<list.ml:138:15>>*/ caml_call2
-                   /*<<list.ml:138:15>>*/ (f, a2$0, b2$0),
+               r1$1 =  /*<<list.ml:137:15>>*/ caml_call2(f, a1$0, b1$1),
+               r2$0 =  /*<<list.ml:138:15>>*/ caml_call2(f, a2$0, b2$0),
                dst$0 =  /*<<list.ml:139:10>>*/ [0, r2$0, 24029];
               dst[1 + offset] = [0, r1$1, dst$0];
               dst = dst$0;
@@ -4067,9 +3430,7 @@
            else if(l2$1 && ! l2$1[2]){
             var
              b1$2 = l2$1[1],
-             r1$2 =
-                /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
-                 /*<<list.ml:134:15>>*/ (f, a1$0, b1$2);
+             r1$2 =  /*<<list.ml:134:15>>*/ caml_call2(f, a1$0, b1$2);
             dst[1 + offset] = [0, r1$2, 0];
             break a;
            }
@@ -4077,7 +3438,7 @@
           else if(! l2$1){dst[1 + offset] = 0; break a;}
           dst[1 + offset] = caml_call1(Stdlib[1], cst_List_map2$0);
          }
-          /*<<list.ml:139:6>>*/ return [0, r1, block] /*<<list.ml:139:6>>*/ ;
+          /*<<list.ml:139:6>>*/ return [0, r1, block];
         }
        }
       }
@@ -4085,16 +3446,13 @@
      else if(l2 && ! l2[2]){
       var
        b1$0 = l2[1],
-       r1$0 =
-          /*<<list.ml:134:15>>*/  /*<<list.ml:134:15>>*/ caml_call2
-           /*<<list.ml:134:15>>*/ (f, a1, b1$0);
-       /*<<list.ml:135:6>>*/ return [0, r1$0, 0] /*<<list.ml:135:6>>*/ ;
+       r1$0 =  /*<<list.ml:134:15>>*/ caml_call2(f, a1, b1$0);
+       /*<<list.ml:135:6>>*/ return [0, r1$0, 0];
      }
     }
-    else if(! l2)  /*<<list.ml:132:16>>*/ return 0 /*<<list.ml:132:16>>*/ ;
-     /*<<list.ml:140:14>>*/ return  /*<<list.ml:140:14>>*/ caml_call1
-             /*<<list.ml:140:14>>*/ (Stdlib[1], cst_List_map2) /*<<list.ml:140:37>>*/ ;
-    /*<<list.ml:140:37>>*/ }
+    else if(! l2)  /*<<list.ml:132:16>>*/ return 0;
+     /*<<list.ml:140:14>>*/ return caml_call1(Stdlib[1], cst_List_map2) /*<<list.ml:140:37>>*/ ;
+   }
    function rev_map2(f, l1, l2){
     var accu = 0, l1$0 = l1, l2$0 = l2;
      /*<<list.ml:144:4>>*/ for(;;){
@@ -4107,8 +3465,7 @@
         a1 = l1$0[1],
         accu$0 =
            /*<<list.ml:146:34>>*/ [0,
-            /*<<list.ml:146:35>>*/ caml_call2
-             /*<<list.ml:146:35>>*/ (f, a1, a2),
+            /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2),
            accu];
        accu = accu$0;
        l1$0 = l1$1;
@@ -4116,30 +3473,26 @@
        continue;
       }
      }
-     else if(! l2$0)
-       /*<<list.ml:145:18>>*/ return accu /*<<list.ml:145:18>>*/ ;
-      /*<<list.ml:147:16>>*/ return  /*<<list.ml:147:16>>*/ caml_call1
-              /*<<list.ml:147:16>>*/ (Stdlib[1], cst_List_rev_map2) /*<<list.ml:149:18>>*/ ;
+     else if(! l2$0)  /*<<list.ml:145:18>>*/ return accu;
+      /*<<list.ml:147:16>>*/ return caml_call1(Stdlib[1], cst_List_rev_map2) /*<<list.ml:149:18>>*/ ;
     }
-    /*<<list.ml:149:18>>*/ }
+   }
    function iter2(f, l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:153:2>>*/ for(;;){
      if(l1$0){
       if(l2$0){
        var l2$1 = l2$0[2], a2 = l2$0[1], l1$1 = l1$0[2], a1 = l1$0[1];
-        /*<<list.ml:155:24>>*/  /*<<list.ml:155:24>>*/ caml_call2
-         /*<<list.ml:155:24>>*/ (f, a1, a2);
+        /*<<list.ml:155:24>>*/ caml_call2(f, a1, a2);
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:154:16>>*/ return 0 /*<<list.ml:154:16>>*/ ;
-      /*<<list.ml:156:14>>*/ return  /*<<list.ml:156:14>>*/ caml_call1
-              /*<<list.ml:156:14>>*/ (Stdlib[1], cst_List_iter2) /*<<list.ml:156:38>>*/ ;
+     else if(! l2$0)  /*<<list.ml:154:16>>*/ return 0;
+      /*<<list.ml:156:14>>*/ return caml_call1(Stdlib[1], cst_List_iter2) /*<<list.ml:156:38>>*/ ;
     }
-    /*<<list.ml:156:38>>*/ }
+   }
    function fold_left2(f, accu, l1, l2){
     var accu$0 = accu, l1$0 = l1, l2$0 = l2;
      /*<<list.ml:159:2>>*/ for(;;){
@@ -4150,64 +3503,49 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-        accu$1 =
-           /*<<list.ml:161:37>>*/  /*<<list.ml:161:37>>*/ caml_call3
-            /*<<list.ml:161:37>>*/ (f, accu$0, a1, a2);
+        accu$1 =  /*<<list.ml:161:37>>*/ caml_call3(f, accu$0, a1, a2);
        accu$0 = accu$1;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)
-       /*<<list.ml:160:16>>*/ return accu$0 /*<<list.ml:160:16>>*/ ;
-      /*<<list.ml:162:14>>*/ return  /*<<list.ml:162:14>>*/ caml_call1
-              /*<<list.ml:162:14>>*/ (Stdlib[1], cst_List_fold_left2) /*<<list.ml:162:43>>*/ ;
+     else if(! l2$0)  /*<<list.ml:160:16>>*/ return accu$0;
+      /*<<list.ml:162:14>>*/ return caml_call1(Stdlib[1], cst_List_fold_left2) /*<<list.ml:162:43>>*/ ;
     }
-    /*<<list.ml:162:43>>*/ }
+   }
    function fold_right2(f, l1, l2, accu){
      /*<<list.ml:165:2>>*/ if(l1){
      if(l2){
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
-       /*<<list.ml:167:32>>*/ return  /*<<list.ml:167:32>>*/ caml_call3
-               /*<<list.ml:167:32>>*/ (f,
-               a1,
-               a2,
-                /*<<list.ml:167:32>>*/ fold_right2
-                 /*<<list.ml:167:32>>*/ (f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
-     }
-    }
-    else if(! l2)  /*<<list.ml:166:16>>*/ return accu /*<<list.ml:166:16>>*/ ;
-     /*<<list.ml:168:14>>*/ return  /*<<list.ml:168:14>>*/ caml_call1
-             /*<<list.ml:168:14>>*/ (Stdlib[1], cst_List_fold_right2) /*<<list.ml:168:44>>*/ ;
-    /*<<list.ml:168:44>>*/ }
+       /*<<list.ml:167:32>>*/ return caml_call3
+              (f, a1, a2, fold_right2(f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
+     }
+    }
+    else if(! l2)  /*<<list.ml:166:16>>*/ return accu;
+     /*<<list.ml:168:14>>*/ return caml_call1(Stdlib[1], cst_List_fold_right2) /*<<list.ml:168:44>>*/ ;
+   }
    function for_all(p, param){
     var param$0 = param;
      /*<<list.ml:170:16>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:171:10>>*/ return 1 /*<<list.ml:171:10>>*/ ;
+     if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
      var
       l = param$0[2],
       a = param$0[1],
-      _F_ =
-         /*<<list.ml:172:12>>*/  /*<<list.ml:172:12>>*/ caml_call1
-          /*<<list.ml:172:12>>*/ (p, a);
-      /*<<list.ml:172:12>>*/ if(! _F_)
-       /*<<list.ml:172:12>>*/ return _F_ /*<<list.ml:172:12>>*/ ;
+      _F_ =  /*<<list.ml:172:12>>*/ caml_call1(p, a);
+     if(! _F_) return _F_;
      param$0 = l;
     }
     /*<<list.ml:172:30>>*/ }
    function exists(p, param){
     var param$0 = param;
      /*<<list.ml:174:15>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:175:10>>*/ return 0 /*<<list.ml:175:10>>*/ ;
+     if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
      var
       l = param$0[2],
       a = param$0[1],
-      _E_ =
-         /*<<list.ml:176:12>>*/  /*<<list.ml:176:12>>*/ caml_call1
-          /*<<list.ml:176:12>>*/ (p, a);
-      /*<<list.ml:176:12>>*/ if(_E_)
-       /*<<list.ml:176:12>>*/ return _E_ /*<<list.ml:176:12>>*/ ;
+      _E_ =  /*<<list.ml:176:12>>*/ caml_call1(p, a);
+     if(_E_) return _E_;
      param$0 = l;
     }
     /*<<list.ml:176:29>>*/ }
@@ -4221,21 +3559,17 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-        _D_ =
-           /*<<list.ml:181:24>>*/  /*<<list.ml:181:24>>*/ caml_call2
-            /*<<list.ml:181:24>>*/ (p, a1, a2);
-        /*<<list.ml:181:24>>*/ if(! _D_)
-         /*<<list.ml:181:24>>*/ return _D_ /*<<list.ml:181:24>>*/ ;
+        _D_ =  /*<<list.ml:181:24>>*/ caml_call2(p, a1, a2);
+       if(! _D_) return _D_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:180:16>>*/ return 1 /*<<list.ml:180:16>>*/ ;
-      /*<<list.ml:182:14>>*/ return  /*<<list.ml:182:14>>*/ caml_call1
-              /*<<list.ml:182:14>>*/ (Stdlib[1], cst_List_for_all2) /*<<list.ml:182:41>>*/ ;
+     else if(! l2$0)  /*<<list.ml:180:16>>*/ return 1;
+      /*<<list.ml:182:14>>*/ return caml_call1(Stdlib[1], cst_List_for_all2) /*<<list.ml:182:41>>*/ ;
     }
-    /*<<list.ml:182:41>>*/ }
+   }
    function exists2(p, l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:185:2>>*/ for(;;){
@@ -4246,34 +3580,25 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-        _C_ =
-           /*<<list.ml:187:24>>*/  /*<<list.ml:187:24>>*/ caml_call2
-            /*<<list.ml:187:24>>*/ (p, a1, a2);
-        /*<<list.ml:187:24>>*/ if(_C_)
-         /*<<list.ml:187:24>>*/ return _C_ /*<<list.ml:187:24>>*/ ;
+        _C_ =  /*<<list.ml:187:24>>*/ caml_call2(p, a1, a2);
+       if(_C_) return _C_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:186:16>>*/ return 0 /*<<list.ml:186:16>>*/ ;
-      /*<<list.ml:188:14>>*/ return  /*<<list.ml:188:14>>*/ caml_call1
-              /*<<list.ml:188:14>>*/ (Stdlib[1], cst_List_exists2) /*<<list.ml:188:40>>*/ ;
+     else if(! l2$0)  /*<<list.ml:186:16>>*/ return 0;
+      /*<<list.ml:188:14>>*/ return caml_call1(Stdlib[1], cst_List_exists2) /*<<list.ml:188:40>>*/ ;
     }
-    /*<<list.ml:188:40>>*/ }
+   }
    function mem(x, param){
     var param$0 = param;
      /*<<list.ml:190:12>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:191:10>>*/ return 0 /*<<list.ml:191:10>>*/ ;
+     if(! param$0)  /*<<list.ml:191:10>>*/ return 0;
      var
       l = param$0[2],
       a = param$0[1],
-      _B_ =
-        0
-         ===
-           /*<<list.ml:192:12>>*/ caml_compare /*<<list.ml:192:12>>*/ (a, x)
-         ? 1
-         : 0;
+      _B_ = 0 ===  /*<<list.ml:192:12>>*/ caml_compare(a, x) ? 1 : 0;
      if(_B_) return _B_;
      param$0 = l;
     }
@@ -4281,7 +3606,7 @@
    function memq(x, param){
     var param$0 = param;
      /*<<list.ml:194:13>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:195:10>>*/ return 0 /*<<list.ml:195:10>>*/ ;
+     if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
      var l = param$0[2], a = param$0[1], _A_ = a === x ? 1 : 0;
      if(_A_) return _A_;
      param$0 = l;
@@ -4291,25 +3616,20 @@
     var param$0 = param;
      /*<<list.ml:198:14>>*/ for(;;){
      if(! param$0)
-       /*<<list.ml:199:10>>*/ throw  /*<<list.ml:199:10>>*/ caml_maybe_attach_backtrace
-              /*<<list.ml:199:10>>*/ (Stdlib[8], 1);
+       /*<<list.ml:199:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-      /*<<list.ml:200:19>>*/ if
-      (0
-       ===  /*<<list.ml:200:19>>*/ caml_compare /*<<list.ml:200:19>>*/ (a, x))
-       /*<<list.ml:200:40>>*/ return b /*<<list.ml:200:40>>*/ ;
+      /*<<list.ml:200:19>>*/ if(0 === caml_compare(a, x))
+       /*<<list.ml:200:40>>*/ return b;
      param$0 = l;
     }
     /*<<list.ml:200:56>>*/ }
    function assoc_opt(x, param){
     var param$0 = param;
      /*<<list.ml:202:18>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:203:10>>*/ return 0 /*<<list.ml:203:10>>*/ ;
+     if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-      /*<<list.ml:204:19>>*/ if
-      (0
-       ===  /*<<list.ml:204:19>>*/ caml_compare /*<<list.ml:204:19>>*/ (a, x))
-       /*<<list.ml:204:40>>*/ return [0, b] /*<<list.ml:204:40>>*/ ;
+      /*<<list.ml:204:19>>*/ if(0 === caml_compare(a, x))
+       /*<<list.ml:204:40>>*/ return [0, b];
      param$0 = l;
     }
     /*<<list.ml:204:65>>*/ }
@@ -4317,36 +3637,29 @@
     var param$0 = param;
      /*<<list.ml:206:13>>*/ for(;;){
      if(! param$0)
-       /*<<list.ml:207:10>>*/ throw  /*<<list.ml:207:10>>*/ caml_maybe_attach_backtrace
-              /*<<list.ml:207:10>>*/ (Stdlib[8], 1);
+       /*<<list.ml:207:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-     if(a === x)  /*<<list.ml:208:31>>*/ return b /*<<list.ml:208:31>>*/ ;
+     if(a === x)  /*<<list.ml:208:31>>*/ return b;
      param$0 = l;
     }
     /*<<list.ml:208:46>>*/ }
    function assq_opt(x, param){
     var param$0 = param;
      /*<<list.ml:210:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:211:10>>*/ return 0 /*<<list.ml:211:10>>*/ ;
+     if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-     if(a === x)
-       /*<<list.ml:212:31>>*/ return [0, b] /*<<list.ml:212:31>>*/ ;
+     if(a === x)  /*<<list.ml:212:31>>*/ return [0, b];
      param$0 = l;
     }
     /*<<list.ml:212:55>>*/ }
    function mem_assoc(x, param){
     var param$0 = param;
      /*<<list.ml:214:18>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:215:10>>*/ return 0 /*<<list.ml:215:10>>*/ ;
+     if(! param$0)  /*<<list.ml:215:10>>*/ return 0;
      var
       l = param$0[2],
       a = param$0[1][1],
-      _z_ =
-        0
-         ===
-           /*<<list.ml:216:19>>*/ caml_compare /*<<list.ml:216:19>>*/ (a, x)
-         ? 1
-         : 0;
+      _z_ = 0 ===  /*<<list.ml:216:19>>*/ caml_compare(a, x) ? 1 : 0;
      if(_z_) return _z_;
      param$0 = l;
     }
@@ -4354,70 +3667,54 @@
    function mem_assq(x, param){
     var param$0 = param;
      /*<<list.ml:218:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:219:10>>*/ return 0 /*<<list.ml:219:10>>*/ ;
+     if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
      var l = param$0[2], a = param$0[1][1], _y_ = a === x ? 1 : 0;
      if(_y_) return _y_;
      param$0 = l;
     }
     /*<<list.ml:220:41>>*/ }
    function remove_assoc(x, param){
-     /*<<list.ml:222:21>>*/ if(! param)
-      /*<<list.ml:223:10>>*/ return 0 /*<<list.ml:223:10>>*/ ;
+     /*<<list.ml:222:21>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
     var l = param[2], pair = param[1], a = pair[1];
-     /*<<list.ml:225:9>>*/ return 0
-            ===
-              /*<<list.ml:225:9>>*/ caml_compare /*<<list.ml:225:9>>*/ (a, x)
+     /*<<list.ml:225:9>>*/ return 0 === caml_compare(a, x)
             ? l
-            : [0,
-              pair,
-               /*<<list.ml:225:45>>*/ remove_assoc
-                /*<<list.ml:225:45>>*/ (x, l)] /*<<list.ml:225:61>>*/ ;
-    /*<<list.ml:225:61>>*/ }
+            : [0, pair,  /*<<list.ml:225:45>>*/ remove_assoc(x, l)] /*<<list.ml:225:61>>*/ ;
+   }
    function remove_assq(x, param){
-     /*<<list.ml:227:20>>*/ if(! param)
-      /*<<list.ml:228:10>>*/ return 0 /*<<list.ml:228:10>>*/ ;
+     /*<<list.ml:227:20>>*/ if(! param)  /*<<list.ml:228:10>>*/ return 0;
     var l = param[2], pair = param[1], a = pair[1];
-    return a === x
-            ? l
-            : [0,
-              pair,
-               /*<<list.ml:229:57>>*/ remove_assq
-                /*<<list.ml:229:57>>*/ (x, l)] /*<<list.ml:229:72>>*/ ;
-    /*<<list.ml:229:72>>*/ }
+    return a === x ? l : [0, pair,  /*<<list.ml:229:57>>*/ remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
+   }
    function find(p, param){
     var param$0 = param;
      /*<<list.ml:231:13>>*/ for(;;){
      if(! param$0)
-       /*<<list.ml:232:10>>*/ throw  /*<<list.ml:232:10>>*/ caml_maybe_attach_backtrace
-              /*<<list.ml:232:10>>*/ (Stdlib[8], 1);
+       /*<<list.ml:232:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:233:17>>*/ if
-      ( /*<<list.ml:233:17>>*/ caml_call1 /*<<list.ml:233:17>>*/ (p, x))
-       /*<<list.ml:233:26>>*/ return x /*<<list.ml:233:26>>*/ ;
+      /*<<list.ml:233:17>>*/ if(caml_call1(p, x))
+       /*<<list.ml:233:26>>*/ return x;
      param$0 = l;
     }
     /*<<list.ml:233:41>>*/ }
    function find_opt(p, param){
     var param$0 = param;
      /*<<list.ml:235:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:236:10>>*/ return 0 /*<<list.ml:236:10>>*/ ;
+     if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:237:17>>*/ if
-      ( /*<<list.ml:237:17>>*/ caml_call1 /*<<list.ml:237:17>>*/ (p, x))
-       /*<<list.ml:237:26>>*/ return [0, x] /*<<list.ml:237:26>>*/ ;
+      /*<<list.ml:237:17>>*/ if(caml_call1(p, x))
+       /*<<list.ml:237:26>>*/ return [0, x];
      param$0 = l;
     }
     /*<<list.ml:237:50>>*/ }
    function find_index(p){
     var i =  /*<<list.ml:243:2>>*/ 0;
-     /*<<list.ml:243:2>>*/ return function(param$0){
+    return function(param$0){
      var i$0 = i, param = param$0;
       /*<<list.ml:240:14>>*/ for(;;){
-      if(! param)  /*<<list.ml:241:10>>*/ return 0 /*<<list.ml:241:10>>*/ ;
+      if(! param)  /*<<list.ml:241:10>>*/ return 0;
       var l = param[2], a = param[1];
-       /*<<list.ml:242:17>>*/ if
-       ( /*<<list.ml:242:17>>*/ caml_call1 /*<<list.ml:242:17>>*/ (p, a))
-        /*<<list.ml:242:26>>*/ return [0, i$0] /*<<list.ml:242:26>>*/ ;
+       /*<<list.ml:242:17>>*/ if(caml_call1(p, a))
+        /*<<list.ml:242:26>>*/ return [0, i$0];
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
       param = l;
@@ -4426,31 +3723,26 @@
    function find_map(f, param){
     var param$0 = param;
      /*<<list.ml:245:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:246:10>>*/ return 0 /*<<list.ml:246:10>>*/ ;
+     if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
      var
       l = param$0[2],
       x = param$0[1],
-      result =
-         /*<<list.ml:248:17>>*/  /*<<list.ml:248:17>>*/ caml_call1
-          /*<<list.ml:248:17>>*/ (f, x);
-     if(result)  /*<<list.ml:249:29>>*/ return result /*<<list.ml:249:29>>*/ ;
+      result =  /*<<list.ml:248:17>>*/ caml_call1(f, x);
+     if(result)  /*<<list.ml:249:29>>*/ return result;
      param$0 = l;
     }
     /*<<list.ml:251:8>>*/ }
    function find_mapi(f){
     var i =  /*<<list.ml:261:2>>*/ 0;
-     /*<<list.ml:261:2>>*/ return function(param$0){
+    return function(param$0){
      var i$0 = i, param = param$0;
       /*<<list.ml:254:14>>*/ for(;;){
-      if(! param)  /*<<list.ml:255:10>>*/ return 0 /*<<list.ml:255:10>>*/ ;
+      if(! param)  /*<<list.ml:255:10>>*/ return 0;
       var
        l = param[2],
        x = param[1],
-       result =
-          /*<<list.ml:257:17>>*/  /*<<list.ml:257:17>>*/ caml_call2
-           /*<<list.ml:257:17>>*/ (f, i$0, x);
-      if(result)
-        /*<<list.ml:258:29>>*/ return result /*<<list.ml:258:29>>*/ ;
+       result =  /*<<list.ml:257:17>>*/ caml_call2(f, i$0, x);
+      if(result)  /*<<list.ml:258:29>>*/ return result;
       var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
       param = l;
@@ -4459,10 +3751,9 @@
    function find_all(p, param){
     var param$0 = param;
      /*<<list.ml:263:33>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:264:10>>*/ return 0 /*<<list.ml:264:10>>*/ ;
+     if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:265:17>>*/ if
-      ( /*<<list.ml:265:17>>*/ caml_call1 /*<<list.ml:265:17>>*/ (p, x)){
+      /*<<list.ml:265:17>>*/ if(caml_call1(p, x)){
       var
        block =  /*<<list.ml:265:26>>*/ [0, x, 24029],
        dst = block,
@@ -4471,11 +3762,10 @@
        /*<<list.ml:263:33>>*/ for(;;){
        if(! param$1){
         dst[1 + offset] = 0;
-         /*<<list.ml:265:31>>*/ return block /*<<list.ml:265:31>>*/ ;
+         /*<<list.ml:265:31>>*/ return block;
        }
        var l$0 = param$1[2], x$0 = param$1[1];
-        /*<<list.ml:265:17>>*/ if
-        ( /*<<list.ml:265:17>>*/ caml_call1 /*<<list.ml:265:17>>*/ (p, x$0)){
+        /*<<list.ml:265:17>>*/ if(caml_call1(p, x$0)){
         var dst$0 =  /*<<list.ml:265:26>>*/ [0, x$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
@@ -4493,11 +3783,9 @@
    function filteri(p, l$1){
     var i = 0, param = l$1;
      /*<<list.ml:269:32>>*/ for(;;){
-     if(! param)  /*<<list.ml:270:10>>*/ return 0 /*<<list.ml:270:10>>*/ ;
+     if(! param)  /*<<list.ml:270:10>>*/ return 0;
      var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
-      /*<<list.ml:273:9>>*/ if
-      ( /*<<list.ml:273:9>>*/ caml_call2 /*<<list.ml:273:9>>*/ (p, i, x))
-      break;
+      /*<<list.ml:273:9>>*/ if(caml_call2(p, i, x)) break;
      i = i$0;
      param = l;
     }
@@ -4508,16 +3796,12 @@
      i$1 = i$0,
      param$0 = l;
      /*<<list.ml:269:32>>*/ for(;;){
-     if(! param$0){
-      dst[1 + offset] = 0;
-       /*<<list.ml:273:25>>*/ return block /*<<list.ml:273:25>>*/ ;
-     }
+     if(! param$0){dst[1 + offset] = 0;  /*<<list.ml:273:25>>*/ return block;}
      var
       l$0 = param$0[2],
       x$0 = param$0[1],
       i$2 =  /*<<list.ml:272:6>>*/ i$1 + 1 | 0;
-      /*<<list.ml:273:9>>*/ if
-      ( /*<<list.ml:273:9>>*/ caml_call2 /*<<list.ml:273:9>>*/ (p, i$1, x$0)){
+      /*<<list.ml:273:9>>*/ if(caml_call2(p, i$1, x$0)){
       var dst$0 =  /*<<list.ml:273:20>>*/ [0, x$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -4531,13 +3815,11 @@
    function filter_map(f, param){
     var param$0 = param;
      /*<<list.ml:277:35>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:278:10>>*/ return 0 /*<<list.ml:278:10>>*/ ;
+     if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
      var
       l = param$0[2],
       x = param$0[1],
-      match =
-         /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1
-          /*<<list.ml:280:12>>*/ (f, x);
+      match =  /*<<list.ml:280:12>>*/ caml_call1(f, x);
      if(match){
       var
        v = match[1],
@@ -4548,14 +3830,12 @@
        /*<<list.ml:277:35>>*/ for(;;){
        if(! param$1){
         dst[1 + offset] = 0;
-         /*<<list.ml:282:23>>*/ return block /*<<list.ml:282:23>>*/ ;
+         /*<<list.ml:282:23>>*/ return block;
        }
        var
         l$0 = param$1[2],
         x$0 = param$1[1],
-        match$0 =
-           /*<<list.ml:280:12>>*/  /*<<list.ml:280:12>>*/ caml_call1
-            /*<<list.ml:280:12>>*/ (f, x$0);
+        match$0 =  /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
        if(match$0){
         var v$0 = match$0[1], dst$0 =  /*<<list.ml:282:18>>*/ [0, v$0, 24029];
         dst[1 + offset] = dst$0;
@@ -4574,13 +3854,11 @@
    function concat_map(f, param){
     var param$0 = param;
      /*<<list.ml:284:35>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:285:10>>*/ return 0 /*<<list.ml:285:10>>*/ ;
+     if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
      var
       xs = param$0[2],
       x = param$0[1],
-      ys =
-         /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1
-          /*<<list.ml:286:32>>*/ (f, x);
+      ys =  /*<<list.ml:286:32>>*/ caml_call1(f, x);
      if(ys){
       var
        ys$1 = ys[2],
@@ -4602,16 +3880,11 @@
         ys$2 = ys$3;
        }
        else{
-        if(! xs$1){
-         dst[1 + offset] = 0;
-          /*<<list.ml:290:20>>*/ return block /*<<list.ml:290:20>>*/ ;
-        }
+        if(! xs$1){dst[1 + offset] = 0;  /*<<list.ml:290:20>>*/ return block;}
         var
          xs$0 = xs$1[2],
          x$0 = xs$1[1],
-         ys$0 =
-            /*<<list.ml:286:32>>*/  /*<<list.ml:286:32>>*/ caml_call1
-             /*<<list.ml:286:32>>*/ (f, x$0);
+         ys$0 =  /*<<list.ml:286:32>>*/ caml_call1(f, x$0);
         ys$2 = ys$0;
         xs$1 = xs$0;
        }
@@ -4626,13 +3899,11 @@
      if(! param)
        /*<<list.ml:294:12>>*/ return [0,
               accu$0,
-               /*<<list.ml:294:18>>*/ rev /*<<list.ml:294:18>>*/ (l_accu)] /*<<list.ml:294:12>>*/ ;
+               /*<<list.ml:294:18>>*/ rev(l_accu)] /*<<list.ml:294:12>>*/ ;
      var
       l$0 = param[2],
       x = param[1],
-      match =
-         /*<<list.ml:296:22>>*/  /*<<list.ml:296:22>>*/ caml_call2
-          /*<<list.ml:296:22>>*/ (f, accu$0, x),
+      match =  /*<<list.ml:296:22>>*/ caml_call2(f, accu$0, x),
       x$0 = match[2],
       accu$1 = match[1],
       l_accu$0 =  /*<<list.ml:297:17>>*/ [0, x$0, l_accu];
@@ -4645,17 +3916,13 @@
     var yes = 0, no = 0, param = l;
      /*<<list.ml:301:15>>*/ for(;;){
      if(! param){
-      var
-       _x_ =
-          /*<<list.ml:302:20>>*/  /*<<list.ml:302:20>>*/ rev
-           /*<<list.ml:302:20>>*/ (no);
+      var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
        /*<<list.ml:302:10>>*/ return [0,
-               /*<<list.ml:302:11>>*/ rev /*<<list.ml:302:11>>*/ (yes),
+               /*<<list.ml:302:11>>*/ rev(yes),
               _x_] /*<<list.ml:302:10>>*/ ;
      }
      var l$0 = param[2], x = param[1];
-      /*<<list.ml:303:17>>*/ if
-      ( /*<<list.ml:303:17>>*/ caml_call1 /*<<list.ml:303:17>>*/ (p, x)){
+      /*<<list.ml:303:17>>*/ if(caml_call1(p, x)){
       var yes$0 =  /*<<list.ml:303:31>>*/ [0, x, yes];
       yes = yes$0;
       param = l$0;
@@ -4671,20 +3938,15 @@
     var left = 0, right = 0, param = l;
      /*<<list.ml:307:15>>*/ for(;;){
      if(! param){
-      var
-       _w_ =
-          /*<<list.ml:308:21>>*/  /*<<list.ml:308:21>>*/ rev
-           /*<<list.ml:308:21>>*/ (right);
+      var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
        /*<<list.ml:308:10>>*/ return [0,
-               /*<<list.ml:308:11>>*/ rev /*<<list.ml:308:11>>*/ (left),
+               /*<<list.ml:308:11>>*/ rev(left),
               _w_] /*<<list.ml:308:10>>*/ ;
      }
      var
       l$0 = param[2],
       x = param[1],
-      match =
-         /*<<list.ml:310:17>>*/  /*<<list.ml:310:17>>*/ caml_call1
-          /*<<list.ml:310:17>>*/ (p, x);
+      match =  /*<<list.ml:310:17>>*/ caml_call1(p, x);
      if(0 === match[0]){
       var v = match[1], left$0 =  /*<<list.ml:311:31>>*/ [0, v, left];
       left = left$0;
@@ -4698,19 +3960,16 @@
     }
     /*<<list.ml:315:14>>*/ }
    function split(param){
-     /*<<list.ml:317:16>>*/ if(! param)
-      /*<<list.ml:318:10>>*/ return _a_ /*<<list.ml:318:10>>*/ ;
+     /*<<list.ml:317:16>>*/ if(! param)  /*<<list.ml:318:10>>*/ return _a_;
     var
      l = param[2],
      match = param[1],
      y = match[2],
      x = match[1],
-     match$0 =
-        /*<<list.ml:320:21>>*/  /*<<list.ml:320:21>>*/ split
-         /*<<list.ml:320:21>>*/ (l),
+     match$0 =  /*<<list.ml:320:21>>*/ 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:32>>*/ ;
+     /*<<list.ml:320:32>>*/ return [0, [0, x, rx], [0, y, ry]];
     /*<<list.ml:320:46>>*/ }
    function combine(l1, l2){
      /*<<list.ml:323:2>>*/ if(l1){
@@ -4718,32 +3977,20 @@
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
        /*<<list.ml:325:24>>*/ return [0,
               [0, a1, a2],
-               /*<<list.ml:325:36>>*/ combine
-                /*<<list.ml:325:36>>*/ (l1$0, l2$0)] /*<<list.ml:325:24>>*/ ;
+               /*<<list.ml:325:36>>*/ combine(l1$0, l2$0)] /*<<list.ml:325:24>>*/ ;
      }
     }
-    else if(! l2)  /*<<list.ml:324:16>>*/ return 0 /*<<list.ml:324:16>>*/ ;
-     /*<<list.ml:326:14>>*/ return  /*<<list.ml:326:14>>*/ caml_call1
-             /*<<list.ml:326:14>>*/ (Stdlib[1], cst_List_combine) /*<<list.ml:326:40>>*/ ;
-    /*<<list.ml:326:40>>*/ }
+    else if(! l2)  /*<<list.ml:324:16>>*/ return 0;
+     /*<<list.ml:326:14>>*/ return caml_call1(Stdlib[1], cst_List_combine) /*<<list.ml:326:40>>*/ ;
+   }
    function merge(cmp, l1, l2){
-     /*<<list.ml:331:2>>*/ if(! l1)
-      /*<<list.ml:332:14>>*/ return l2 /*<<list.ml:332:14>>*/ ;
-    if(! l2)  /*<<list.ml:333:14>>*/ return l1 /*<<list.ml:333:14>>*/ ;
+     /*<<list.ml:331:2>>*/ if(! l1)  /*<<list.ml:332:14>>*/ return l2;
+    if(! l2)  /*<<list.ml:333: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
-               /*<<list.ml:335:9>>*/ (cmp, h1, h2)
-            ? [0,
-              h2,
-               /*<<list.ml:337:17>>*/ merge
-                /*<<list.ml:337:17>>*/ (cmp, l1, t2)]
-            : [0,
-              h1,
-               /*<<list.ml:336:17>>*/ merge
-                /*<<list.ml:336:17>>*/ (cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
-    /*<<list.ml:337:32>>*/ }
+     /*<<list.ml:335:9>>*/ return 0 < caml_call2(cmp, h1, h2)
+            ? [0, h2,  /*<<list.ml:337:17>>*/ merge(cmp, l1, t2)]
+            : [0, h1,  /*<<list.ml:336:17>>*/ merge(cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
+   }
    function stable_sort(cmp, l){
     function sort(n, l){
       /*<<list.ml:360:4>>*/ if(2 === n){
@@ -4755,13 +4002,10 @@
          x2 = match[1],
          x1 = l[1],
          s =
-            /*<<list.ml:362:19>>*/ 0
-            <
-              /*<<list.ml:362:19>>*/ caml_call2
-               /*<<list.ml:362:19>>*/ (cmp, x1, x2)
+            /*<<list.ml:362:19>>*/ 0 < 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:363:8>>*/ ;
+         /*<<list.ml:363:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4776,47 +4020,32 @@
          x2$0 = _v_[1],
          x1$0 = l[1],
          s$0 =
-            /*<<list.ml:366:13>>*/ 0
-            <
-              /*<<list.ml:366:13>>*/ caml_call2
-               /*<<list.ml:366:13>>*/ (cmp, x1$0, x2$0)
+            /*<<list.ml:366:13>>*/ 0 < caml_call2(cmp, x1$0, x2$0)
             ? 0
-              <
-                /*<<list.ml:370:18>>*/ caml_call2
-                 /*<<list.ml:370:18>>*/ (cmp, x1$0, x3)
+              <  /*<<list.ml:370:18>>*/ caml_call2(cmp, x1$0, x3)
               ? 0
-                <
-                  /*<<list.ml:371:18>>*/ caml_call2
-                   /*<<list.ml:371:18>>*/ (cmp, x2$0, x3)
+                <  /*<<list.ml:371: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
-                 /*<<list.ml:367:15>>*/ (cmp, x2$0, x3)
+              <  /*<<list.ml:367:15>>*/ caml_call2(cmp, x2$0, x3)
               ? 0
-                <
-                  /*<<list.ml:368:20>>*/ caml_call2
-                   /*<<list.ml:368:20>>*/ (cmp, x1$0, x3)
+                <  /*<<list.ml:368: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:374:8>>*/ ;
+         /*<<list.ml:374:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =
-         /*<<list.ml:378:21>>*/  /*<<list.ml:378:21>>*/ rev_sort
-          /*<<list.ml:378:21>>*/ (n1, l),
+      match$0 =  /*<<list.ml:378:21>>*/ rev_sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =
-         /*<<list.ml:379:21>>*/  /*<<list.ml:379:21>>*/ rev_sort
-          /*<<list.ml:379:21>>*/ (n2, l2$0),
+      match$1 =  /*<<list.ml:379:21>>*/ rev_sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4826,11 +4055,7 @@
       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
-             /*<<list.ml:355:11>>*/ (cmp, h1, h2)){
+         /*<<list.ml:355:11>>*/ if(0 < caml_call2(cmp, h1, h2)){
          var accu$0 =  /*<<list.ml:356:33>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$0;
@@ -4841,15 +4066,11 @@
         accu = accu$1;
         continue;
        }
-       var
-        _u_ =
-           /*<<list.ml:353:16>>*/ rev_append /*<<list.ml:353:16>>*/ (l1, accu);
+       var _u_ =  /*<<list.ml:353:16>>*/ rev_append(l1, accu);
       }
       else
-       var
-        _u_ =
-           /*<<list.ml:352:16>>*/ rev_append /*<<list.ml:352:16>>*/ (l2, accu);
-       /*<<list.ml:380:8>>*/ return [0, _u_, tl$0] /*<<list.ml:380:8>>*/ ;
+       var _u_ =  /*<<list.ml:352:16>>*/ rev_append(l2, accu);
+       /*<<list.ml:380:8>>*/ return [0, _u_, tl$0];
      }
      /*<<list.ml:380:36>>*/ }
     function rev_sort(n, l){
@@ -4862,13 +4083,10 @@
          x2 = match[1],
          x1 = l[1],
          s =
-            /*<<list.ml:384:19>>*/ 0
-            <
-              /*<<list.ml:384:19>>*/ caml_call2
-               /*<<list.ml:384:19>>*/ (cmp, x1, x2)
+            /*<<list.ml:384:19>>*/ 0 < 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:385:8>>*/ ;
+         /*<<list.ml:385:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4883,47 +4101,32 @@
          x2$0 = _t_[1],
          x1$0 = l[1],
          s$0 =
-            /*<<list.ml:388:13>>*/ 0
-            <
-              /*<<list.ml:388:13>>*/ caml_call2
-               /*<<list.ml:388:13>>*/ (cmp, x1$0, x2$0)
+            /*<<list.ml:388:13>>*/ 0 < caml_call2(cmp, x1$0, x2$0)
             ? 0
-              <
-                /*<<list.ml:389:15>>*/ caml_call2
-                 /*<<list.ml:389:15>>*/ (cmp, x2$0, x3)
+              <  /*<<list.ml:389:15>>*/ caml_call2(cmp, x2$0, x3)
               ? [0, x1$0, [0, x2$0, [0, x3, 0]]]
               : 0
-                <
-                  /*<<list.ml:390:20>>*/ caml_call2
-                   /*<<list.ml:390:20>>*/ (cmp, x1$0, x3)
+                <  /*<<list.ml:390: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
-                 /*<<list.ml:392:18>>*/ (cmp, x1$0, x3)
+              <  /*<<list.ml:392:18>>*/ caml_call2(cmp, x1$0, x3)
               ? [0, x2$0, [0, x1$0, [0, x3, 0]]]
               : 0
-                <
-                  /*<<list.ml:393:18>>*/ caml_call2
-                   /*<<list.ml:393:18>>*/ (cmp, x2$0, x3)
+                <  /*<<list.ml:393: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:396:8>>*/ ;
+         /*<<list.ml:396:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =
-         /*<<list.ml:400:21>>*/  /*<<list.ml:400:21>>*/ sort
-          /*<<list.ml:400:21>>*/ (n1, l),
+      match$0 =  /*<<list.ml:400:21>>*/ sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =
-         /*<<list.ml:401:21>>*/  /*<<list.ml:401:21>>*/ sort
-          /*<<list.ml:401:21>>*/ (n2, l2$0),
+      match$1 =  /*<<list.ml:401:21>>*/ sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -4933,11 +4136,7 @@
       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
-             /*<<list.ml:346:11>>*/ (cmp, h1, h2)){
+         /*<<list.ml:346:11>>*/ if(0 < caml_call2(cmp, h1, h2)){
          var accu$0 =  /*<<list.ml:348:29>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$0;
@@ -4948,25 +4147,18 @@
         accu = accu$1;
         continue;
        }
-       var
-        _s_ =
-           /*<<list.ml:344:16>>*/ rev_append /*<<list.ml:344:16>>*/ (l1, accu);
+       var _s_ =  /*<<list.ml:344:16>>*/ rev_append(l1, accu);
       }
       else
-       var
-        _s_ =
-           /*<<list.ml:343:16>>*/ rev_append /*<<list.ml:343:16>>*/ (l2, accu);
-       /*<<list.ml:402:8>>*/ return [0, _s_, tl$0] /*<<list.ml:402:8>>*/ ;
+       var _s_ =  /*<<list.ml:343:16>>*/ rev_append(l2, accu);
+       /*<<list.ml:402:8>>*/ return [0, _s_, tl$0];
      }
      /*<<list.ml:402:32>>*/ }
-    var
-     len =
-        /*<<list.ml:404:12>>*/  /*<<list.ml:404:12>>*/ length
-         /*<<list.ml:404:12>>*/ (l);
+    var len =  /*<<list.ml:404:12>>*/ length(l);
      /*<<list.ml:405:2>>*/ return 2 <= len
-            ?  /*<<list.ml:405:29>>*/ sort /*<<list.ml:405:29>>*/ (len, l)[1]
+            ?  /*<<list.ml:405:29>>*/ sort(len, l)[1]
             : l /*<<list.ml:405:41>>*/ ;
-    /*<<list.ml:405:41>>*/ }
+   }
    function sort_uniq(cmp, l){
     function sort(n, l){
       /*<<list.ml:443:4>>*/ if(2 === n){
@@ -4977,14 +4169,12 @@
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-         c$0 =
-            /*<<list.ml:446:18>>*/  /*<<list.ml:446:18>>*/ caml_call2
-             /*<<list.ml:446:18>>*/ (cmp, x1, x2),
+         c$0 =  /*<<list.ml:446:18>>*/ caml_call2(cmp, x1, x2),
          s =
             /*<<list.ml:447:10>>*/ 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:449:8>>*/ ;
+         /*<<list.ml:449:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -4998,31 +4188,22 @@
          x3 = match$2[1],
          x2$0 = _m_[1],
          x1$0 = l[1],
-         c$1 =
-            /*<<list.ml:452:18>>*/  /*<<list.ml:452:18>>*/ caml_call2
-             /*<<list.ml:452:18>>*/ (cmp, x1$0, x2$0);
+         c$1 =  /*<<list.ml:452:18>>*/ caml_call2(cmp, x1$0, x2$0);
          /*<<list.ml:453:10>>*/ if(0 === c$1)
          var
-          c$2 =
-             /*<<list.ml:454:20>>*/  /*<<list.ml:454:20>>*/ caml_call2
-              /*<<list.ml:454:20>>*/ (cmp, x2$0, x3),
+          c$2 =  /*<<list.ml:454:20>>*/ caml_call2(cmp, x2$0, x3),
           _n_ =
              /*<<list.ml:455:12>>*/ 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){
-         var
-          c$3 =
-             /*<<list.ml:466:20>>*/  /*<<list.ml:466:20>>*/ caml_call2
-              /*<<list.ml:466:20>>*/ (cmp, x1$0, x3);
+         var c$3 =  /*<<list.ml:466:20>>*/ caml_call2(cmp, x1$0, x3);
           /*<<list.ml:467:12>>*/ if(0 === c$3)
           var _o_ = [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
           var
-           c$4 =
-              /*<<list.ml:470:22>>*/  /*<<list.ml:470:22>>*/ caml_call2
-               /*<<list.ml:470:22>>*/ (cmp, x2$0, x3),
+           c$4 =  /*<<list.ml:470:22>>*/ caml_call2(cmp, x2$0, x3),
            _p_ =
               /*<<list.ml:471:14>>*/ 0 === c$4
               ? [0, x2$0, [0, x1$0, 0]]
@@ -5036,17 +4217,12 @@
          var s$0 = _o_;
         }
         else{
-         var
-          c$5 =
-             /*<<list.ml:457:20>>*/  /*<<list.ml:457:20>>*/ caml_call2
-              /*<<list.ml:457:20>>*/ (cmp, x2$0, x3);
+         var c$5 =  /*<<list.ml:457:20>>*/ caml_call2(cmp, x2$0, x3);
           /*<<list.ml:458:12>>*/ if(0 === c$5)
           var _q_ = [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
           var
-           c$6 =
-              /*<<list.ml:461:22>>*/  /*<<list.ml:461:22>>*/ caml_call2
-               /*<<list.ml:461:22>>*/ (cmp, x1$0, x3),
+           c$6 =  /*<<list.ml:461:22>>*/ caml_call2(cmp, x1$0, x3),
            _r_ =
               /*<<list.ml:462:14>>*/ 0 === c$6
               ? [0, x1$0, [0, x2$0, 0]]
@@ -5059,21 +4235,17 @@
           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:475:8>>*/ ;
+         /*<<list.ml:475:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =
-         /*<<list.ml:479:21>>*/  /*<<list.ml:479:21>>*/ rev_sort
-          /*<<list.ml:479:21>>*/ (n1, l),
+      match$0 =  /*<<list.ml:479:21>>*/ rev_sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =
-         /*<<list.ml:480:21>>*/  /*<<list.ml:480:21>>*/ rev_sort
-          /*<<list.ml:480:21>>*/ (n2, l2$0),
+      match$1 =  /*<<list.ml:480:21>>*/ rev_sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -5087,9 +4259,7 @@
          h2 = l2[1],
          t1 = l1[2],
          h1 = l1[1],
-         c =
-            /*<<list.ml:436:16>>*/  /*<<list.ml:436:16>>*/ caml_call2
-             /*<<list.ml:436:16>>*/ (cmp, h1, h2);
+         c =  /*<<list.ml:436:16>>*/ caml_call2(cmp, h1, h2);
          /*<<list.ml:437:8>>*/ if(0 === c){
          var accu$0 =  /*<<list.ml:437:42>>*/ [0, h1, accu];
          l1 = t1;
@@ -5108,15 +4278,11 @@
         accu = accu$2;
         continue;
        }
-       var
-        _l_ =
-           /*<<list.ml:434:16>>*/ rev_append /*<<list.ml:434:16>>*/ (l1, accu);
+       var _l_ =  /*<<list.ml:434:16>>*/ rev_append(l1, accu);
       }
       else
-       var
-        _l_ =
-           /*<<list.ml:433:16>>*/ rev_append /*<<list.ml:433:16>>*/ (l2, accu);
-       /*<<list.ml:481:8>>*/ return [0, _l_, tl$0] /*<<list.ml:481:8>>*/ ;
+       var _l_ =  /*<<list.ml:433:16>>*/ rev_append(l2, accu);
+       /*<<list.ml:481:8>>*/ return [0, _l_, tl$0];
      }
      /*<<list.ml:481:36>>*/ }
     function rev_sort(n, l){
@@ -5128,14 +4294,12 @@
          tl = match[2],
          x2 = match[1],
          x1 = l[1],
-         c$0 =
-            /*<<list.ml:486:18>>*/  /*<<list.ml:486:18>>*/ caml_call2
-             /*<<list.ml:486:18>>*/ (cmp, x1, x2),
+         c$0 =  /*<<list.ml:486:18>>*/ caml_call2(cmp, x1, x2),
          s =
             /*<<list.ml:487:10>>*/ 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:489:8>>*/ ;
+         /*<<list.ml:489:8>>*/ return [0, s, tl];
        }
       }
      }
@@ -5149,33 +4313,24 @@
          x3 = match$2[1],
          x2$0 = _f_[1],
          x1$0 = l[1],
-         c$1 =
-            /*<<list.ml:492:18>>*/  /*<<list.ml:492:18>>*/ caml_call2
-             /*<<list.ml:492:18>>*/ (cmp, x1$0, x2$0);
+         c$1 =  /*<<list.ml:492:18>>*/ caml_call2(cmp, x1$0, x2$0);
          /*<<list.ml:493:10>>*/ if(0 === c$1)
          var
-          c$2 =
-             /*<<list.ml:494:20>>*/  /*<<list.ml:494:20>>*/ caml_call2
-              /*<<list.ml:494:20>>*/ (cmp, x2$0, x3),
+          c$2 =  /*<<list.ml:494:20>>*/ caml_call2(cmp, x2$0, x3),
           _g_ =
              /*<<list.ml:495:12>>*/ 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){
-         var
-          c$3 =
-             /*<<list.ml:497:20>>*/  /*<<list.ml:497:20>>*/ caml_call2
-              /*<<list.ml:497:20>>*/ (cmp, x2$0, x3);
+         var c$3 =  /*<<list.ml:497:20>>*/ caml_call2(cmp, x2$0, x3);
           /*<<list.ml:498: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
           var
-           c$4 =
-              /*<<list.ml:501:22>>*/  /*<<list.ml:501:22>>*/ caml_call2
-               /*<<list.ml:501:22>>*/ (cmp, x1$0, x3),
+           c$4 =  /*<<list.ml:501:22>>*/ caml_call2(cmp, x1$0, x3),
            _i_ =
               /*<<list.ml:502:14>>*/ 0 === c$4
               ? [0, x1$0, [0, x2$0, 0]]
@@ -5187,19 +4342,14 @@
          var s$0 = _h_;
         }
         else{
-         var
-          c$5 =
-             /*<<list.ml:506:20>>*/  /*<<list.ml:506:20>>*/ caml_call2
-              /*<<list.ml:506:20>>*/ (cmp, x1$0, x3);
+         var c$5 =  /*<<list.ml:506:20>>*/ caml_call2(cmp, x1$0, x3);
           /*<<list.ml:507: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
           var
-           c$6 =
-              /*<<list.ml:510:22>>*/  /*<<list.ml:510:22>>*/ caml_call2
-               /*<<list.ml:510:22>>*/ (cmp, x2$0, x3),
+           c$6 =  /*<<list.ml:510:22>>*/ caml_call2(cmp, x2$0, x3),
            _k_ =
               /*<<list.ml:511:14>>*/ 0 === c$6
               ? [0, x2$0, [0, x1$0, 0]]
@@ -5210,21 +4360,17 @@
            _j_ = _k_;
          var s$0 = _j_;
         }
-         /*<<list.ml:515:8>>*/ return [0, s$0, tl$1] /*<<list.ml:515:8>>*/ ;
+         /*<<list.ml:515:8>>*/ return [0, s$0, tl$1];
        }
       }
      }
      var
       n1 = n >> 1,
       n2 = n - n1 | 0,
-      match$0 =
-         /*<<list.ml:519:21>>*/  /*<<list.ml:519:21>>*/ sort
-          /*<<list.ml:519:21>>*/ (n1, l),
+      match$0 =  /*<<list.ml:519:21>>*/ sort(n1, l),
       l2$0 = match$0[2],
       s1 = match$0[1],
-      match$1 =
-         /*<<list.ml:520:21>>*/  /*<<list.ml:520:21>>*/ sort
-          /*<<list.ml:520:21>>*/ (n2, l2$0),
+      match$1 =  /*<<list.ml:520:21>>*/ sort(n2, l2$0),
       tl$0 = match$1[2],
       s2 = match$1[1],
       l1 = s1,
@@ -5238,9 +4384,7 @@
          h2 = l2[1],
          t1 = l1[2],
          h1 = l1[1],
-         c =
-            /*<<list.ml:425:16>>*/  /*<<list.ml:425:16>>*/ caml_call2
-             /*<<list.ml:425:16>>*/ (cmp, h1, h2);
+         c =  /*<<list.ml:425:16>>*/ caml_call2(cmp, h1, h2);
          /*<<list.ml:426:8>>*/ if(0 === c){
          var accu$0 =  /*<<list.ml:426:38>>*/ [0, h1, accu];
          l1 = t1;
@@ -5259,30 +4403,23 @@
         accu = accu$2;
         continue;
        }
-       var
-        _e_ =
-           /*<<list.ml:423:16>>*/ rev_append /*<<list.ml:423:16>>*/ (l1, accu);
+       var _e_ =  /*<<list.ml:423:16>>*/ rev_append(l1, accu);
       }
       else
-       var
-        _e_ =
-           /*<<list.ml:422:16>>*/ rev_append /*<<list.ml:422:16>>*/ (l2, accu);
-       /*<<list.ml:521:8>>*/ return [0, _e_, tl$0] /*<<list.ml:521:8>>*/ ;
+       var _e_ =  /*<<list.ml:422:16>>*/ rev_append(l2, accu);
+       /*<<list.ml:521:8>>*/ return [0, _e_, tl$0];
      }
      /*<<list.ml:521:32>>*/ }
-    var
-     len =
-        /*<<list.ml:523:12>>*/  /*<<list.ml:523:12>>*/ length
-         /*<<list.ml:523:12>>*/ (l);
+    var len =  /*<<list.ml:523:12>>*/ length(l);
      /*<<list.ml:524:2>>*/ return 2 <= len
-            ?  /*<<list.ml:524:29>>*/ sort /*<<list.ml:524:29>>*/ (len, l)[1]
+            ?  /*<<list.ml:524:29>>*/ sort(len, l)[1]
             : l /*<<list.ml:524:41>>*/ ;
-    /*<<list.ml:524:41>>*/ }
+   }
    function compare_lengths(l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:528:2>>*/ for(;;){
      if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:532:45>>*/ ;
-     if(! l2$0)  /*<<list.ml:531:13>>*/ return 1 /*<<list.ml:531:13>>*/ ;
+     if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
      var l2$1 = l2$0[2], l1$1 = l1$0[2];
      l1$0 = l1$1;
      l2$0 = l2$1;
@@ -5294,8 +4431,7 @@
      if(! l$0)
       return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1 /*<<list.ml:541:33>>*/ ;
      var l$1 = l$0[2];
-      /*<<list.ml:540:4>>*/ if(0 >= n$0)
-       /*<<list.ml:540:19>>*/ return 1 /*<<list.ml:540:19>>*/ ;
+      /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
      var n$1 =  /*<<list.ml:541:6>>*/ n$0 - 1 | 0;
      l$0 = l$1;
      n$0 = n$1;
@@ -5303,7 +4439,7 @@
     /*<<list.ml:541:33>>*/ }
    function is_empty(param){
      /*<<list.ml:543:15>>*/ return param ? 0 : 1 /*<<list.ml:545:19>>*/ ;
-    /*<<list.ml:545:19>>*/ }
+   }
    function equal(eq, l1, l2){
     var l1$0 = l1, l2$0 = l2;
      /*<<list.ml:555:2>>*/ for(;;){
@@ -5314,18 +4450,15 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-        _d_ =
-           /*<<list.ml:558:22>>*/  /*<<list.ml:558:22>>*/ caml_call2
-            /*<<list.ml:558:22>>*/ (eq, a1, a2);
-        /*<<list.ml:558:22>>*/ if(! _d_)
-         /*<<list.ml:558:22>>*/ return _d_ /*<<list.ml:558:22>>*/ ;
+        _d_ =  /*<<list.ml:558:22>>*/ caml_call2(eq, a1, a2);
+       if(! _d_) return _d_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
      }
-     else if(! l2$0)  /*<<list.ml:556:14>>*/ return 1 /*<<list.ml:556:14>>*/ ;
-      /*<<list.ml:557:27>>*/ return 0 /*<<list.ml:557:27>>*/ ;
+     else if(! l2$0)  /*<<list.ml:556:14>>*/ return 1;
+      /*<<list.ml:557:27>>*/ return 0;
     }
     /*<<list.ml:558:48>>*/ }
    function compare(cmp, l1, l2){
@@ -5333,23 +4466,19 @@
      /*<<list.ml:561:2>>*/ for(;;){
      if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:568:26>>*/ ;
      var l1$1 = l1$0[2], a1 = l1$0[1];
-     if(! l2$0)  /*<<list.ml:564:16>>*/ return 1 /*<<list.ml:564:16>>*/ ;
+     if(! l2$0)  /*<<list.ml:564:16>>*/ return 1;
      var
       l2$1 = l2$0[2],
       a2 = l2$0[1],
-      c =
-         /*<<list.ml:566:12>>*/  /*<<list.ml:566:12>>*/ caml_call2
-          /*<<list.ml:566:12>>*/ (cmp, a1, a2);
-      /*<<list.ml:567:4>>*/ if(0 !== c)
-       /*<<list.ml:567:19>>*/ return c /*<<list.ml:567:19>>*/ ;
+      c =  /*<<list.ml:566:12>>*/ caml_call2(cmp, a1, a2);
+      /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
      l1$0 = l1$1;
      l2$0 = l2$1;
     }
     /*<<list.ml:568:26>>*/ }
    function to_seq(l){
     function aux(l, param){
-      /*<<list.ml:573:21>>*/ if(! l)
-       /*<<list.ml:574:12>>*/ return 0 /*<<list.ml:574:12>>*/ ;
+      /*<<list.ml:573:21>>*/ if(! l)  /*<<list.ml:574:12>>*/ return 0;
      var tail = l[2], x = l[1];
       /*<<list.ml:575:19>>*/ return [0,
              x,
@@ -5359,19 +4488,13 @@
       /*<<?>>*/ return aux(l, _b_);} /*<<list.ml:577:2>>*/ ;
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
-    var
-     match =
-        /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1
-         /*<<list.ml:580:8>>*/ (seq, 0);
-    if(! match)  /*<<list.ml:581:15>>*/ return 0 /*<<list.ml:581:15>>*/ ;
+    var match =  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
+    if(! match)  /*<<list.ml:581:15>>*/ return 0;
     var
      seq$0 = match[2],
      x1 = match[1],
-     match$0 =
-        /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1
-         /*<<list.ml:583:18>>*/ (seq$0, 0);
-    if(! match$0)
-      /*<<list.ml:584:19>>*/ return [0, x1, 0] /*<<list.ml:584:19>>*/ ;
+     match$0 =  /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
+    if(! match$0)  /*<<list.ml:584:19>>*/ return [0, x1, 0];
     var
      seq$1 = match$0[2],
      x2 = match$0[1],
@@ -5380,17 +4503,12 @@
      offset = 1,
      seq$2 = seq$1;
      /*<<list.ml:580:2>>*/ for(;;){
-     var
-      match$1 =
-         /*<<list.ml:580:8>>*/  /*<<list.ml:580:8>>*/ caml_call1
-          /*<<list.ml:580:8>>*/ (seq$2, 0);
+     var match$1 =  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
      if(match$1){
       var
        seq$3 = match$1[2],
        x1$0 = match$1[1],
-       match$2 =
-          /*<<list.ml:583:18>>*/  /*<<list.ml:583:18>>*/ caml_call1
-           /*<<list.ml:583:18>>*/ (seq$3, 0);
+       match$2 =  /*<<list.ml:583:18>>*/ caml_call1(seq$3, 0);
       if(match$2){
        var
         seq$4 = match$2[2],
@@ -5406,7 +4524,7 @@
      }
      else
       dst[1 + offset] = 0;
-      /*<<list.ml:585:30>>*/ return [0, x1, block] /*<<list.ml:585:30>>*/ ;
+      /*<<list.ml:585:30>>*/ return [0, x1, block];
     }
     /*<<list.ml:586:9>>*/ }
    var
@@ -5485,12 +4603,10 @@
 //# unitInfo: Provides: Stdlib__Int
 (function(globalThis){
    "use strict";
-   var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_hash =  /*<<?>>*/ runtime.caml_hash;
+   var runtime = globalThis.jsoo_runtime, caml_hash = runtime.caml_hash;
    function abs(x){
      /*<<int.ml:29:12>>*/ return 0 <= x ? x : - x | 0 /*<<int.ml:29:36>>*/ ;
-    /*<<int.ml:29:36>>*/ }
+   }
    function lognot(x){
      /*<<int.ml:35:15>>*/ return x ^ -1;
     /*<<int.ml:35:28>>*/ }
@@ -5498,21 +4614,19 @@
    var compare = runtime.caml_int_compare;
    function min(x, y){
      /*<<int.ml:41:18>>*/ return x <= y ? x : y /*<<int.ml:41:41>>*/ ;
-    /*<<int.ml:41:41>>*/ }
+   }
    function max(x, y){
      /*<<int.ml:42:18>>*/ return y <= x ? x : y /*<<int.ml:42:41>>*/ ;
-    /*<<int.ml:42:41>>*/ }
+   }
    function to_string(x){
-     /*<<int.ml:52:18>>*/ return "" + x /*<<int.ml:52:18>>*/ ;
+     /*<<int.ml:52:18>>*/ return "" + x;
     /*<<int.ml:52:35>>*/ }
    function seeded_hash(seed, x){
-     /*<<int.ml:56:25>>*/ return  /*<<int.ml:56:25>>*/ caml_hash
-             /*<<int.ml:56:25>>*/ (10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
-    /*<<int.ml:56:56>>*/ }
+     /*<<int.ml:56:25>>*/ return caml_hash(10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
+   }
    function hash(x){
-     /*<<int.ml:57:13>>*/ return  /*<<int.ml:57:13>>*/ caml_hash
-             /*<<int.ml:57:13>>*/ (10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
-    /*<<int.ml:57:41>>*/ }
+     /*<<int.ml:57:13>>*/ return caml_hash(10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
+   }
    var
     Stdlib_Int =
       [0,
@@ -5541,31 +4655,30 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_bytes_ml =  /*<<?>>*/ "bytes.ml",
-    cst_index_out_of_bounds$3 =  /*<<?>>*/ "index out of bounds",
-    caml_blit_bytes =  /*<<?>>*/ runtime.caml_blit_bytes,
-    caml_bswap16 =  /*<<?>>*/ runtime.caml_bswap16,
-    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
-    caml_bytes_get16 =  /*<<?>>*/ runtime.caml_bytes_get16,
-    caml_bytes_get32 =  /*<<?>>*/ runtime.caml_bytes_get32,
-    caml_bytes_get64 =  /*<<?>>*/ runtime.caml_bytes_get64,
-    caml_bytes_of_string =  /*<<?>>*/ runtime.caml_bytes_of_string,
-    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
-    caml_bytes_set16 =  /*<<?>>*/ runtime.caml_bytes_set16,
-    caml_bytes_set32 =  /*<<?>>*/ runtime.caml_bytes_set32,
-    caml_bytes_set64 =  /*<<?>>*/ runtime.caml_bytes_set64,
-    caml_bytes_unsafe_get =  /*<<?>>*/ runtime.caml_bytes_unsafe_get,
-    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_fill_bytes =  /*<<?>>*/ runtime.caml_fill_bytes,
-    caml_int32_bswap =  /*<<?>>*/ runtime.caml_int32_bswap,
-    caml_int64_bswap =  /*<<?>>*/ runtime.caml_int64_bswap,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
-    caml_string_of_bytes =  /*<<?>>*/ runtime.caml_string_of_bytes,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst_bytes_ml = "bytes.ml",
+    cst_index_out_of_bounds$3 = "index out of bounds",
+    caml_blit_bytes = runtime.caml_blit_bytes,
+    caml_bswap16 = runtime.caml_bswap16,
+    caml_bytes_get = runtime.caml_bytes_get,
+    caml_bytes_get16 = runtime.caml_bytes_get16,
+    caml_bytes_get32 = runtime.caml_bytes_get32,
+    caml_bytes_get64 = runtime.caml_bytes_get64,
+    caml_bytes_of_string = runtime.caml_bytes_of_string,
+    caml_bytes_set = runtime.caml_bytes_set,
+    caml_bytes_set16 = runtime.caml_bytes_set16,
+    caml_bytes_set32 = runtime.caml_bytes_set32,
+    caml_bytes_set64 = runtime.caml_bytes_set64,
+    caml_bytes_unsafe_get = runtime.caml_bytes_unsafe_get,
+    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_fill_bytes = runtime.caml_fill_bytes,
+    caml_int32_bswap = runtime.caml_int32_bswap,
+    caml_int64_bswap = runtime.caml_int64_bswap,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+    caml_string_of_bytes = runtime.caml_string_of_bytes,
+    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)
@@ -5587,39 +4700,28 @@
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_Char = global_data.Stdlib__Char;
    function make(n, c){
-    var
-     s =
-        /*<<bytes.ml:42:10>>*/  /*<<bytes.ml:42:10>>*/ caml_create_bytes
-         /*<<bytes.ml:42:10>>*/ (n);
-     /*<<bytes.ml:43:2>>*/  /*<<bytes.ml:43:2>>*/ caml_fill_bytes
-      /*<<bytes.ml:43:2>>*/ (s, 0, n, c);
-     /*<<bytes.ml:43:2>>*/ return s /*<<bytes.ml:43:2>>*/ ;
+    var s =  /*<<bytes.ml:42:10>>*/ caml_create_bytes(n);
+     /*<<bytes.ml:43:2>>*/ caml_fill_bytes(s, 0, n, c);
+    return s;
     /*<<bytes.ml:44:3>>*/ }
    function init(n, f){
     var
-     s =
-        /*<<bytes.ml:47:10>>*/  /*<<bytes.ml:47:10>>*/ caml_create_bytes
-         /*<<bytes.ml:47:10>>*/ (n),
+     s =  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
      _ap_ =  /*<<bytes.ml:48:2>>*/ n - 1 | 0,
      _ao_ =  /*<<bytes.ml:47:10>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
-      caml_bytes_unsafe_set
-       (s,
-        i,
-         /*<<bytes.ml:49:19>>*/ caml_call1 /*<<bytes.ml:49:19>>*/ (f, i));
+      caml_bytes_unsafe_set(s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
       var _aq_ =  /*<<bytes.ml:48:2>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
     }
-     /*<<bytes.ml:51:2>>*/ return s /*<<bytes.ml:51:2>>*/ ;
+     /*<<bytes.ml:51:2>>*/ return s;
     /*<<bytes.ml:51:3>>*/ }
    var
-    empty =
-       /*<<bytes.ml:53:12>>*/  /*<<bytes.ml:53:12>>*/ caml_create_bytes
-        /*<<bytes.ml:53:12>>*/ (0),
+    empty =  /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
     cst_String_sub_Bytes_sub = "String.sub / Bytes.sub",
     cst_Bytes_extend = "Bytes.extend",
     cst_String_fill_Bytes_fill = "String.fill / Bytes.fill",
@@ -5639,84 +4741,68 @@
    function copy(s){
     var
      len = caml_ml_bytes_length(s),
-     r =
-        /*<<bytes.ml:57:10>>*/  /*<<bytes.ml:57:10>>*/ caml_create_bytes
-         /*<<bytes.ml:57:10>>*/ (len);
-     /*<<bytes.ml:58:2>>*/  /*<<bytes.ml:58:2>>*/ caml_blit_bytes
-      /*<<bytes.ml:58:2>>*/ (s, 0, r, 0, len);
-     /*<<bytes.ml:58:2>>*/ return r /*<<bytes.ml:58:2>>*/ ;
+     r =  /*<<bytes.ml:57:10>>*/ caml_create_bytes(len);
+     /*<<bytes.ml:58:2>>*/ caml_blit_bytes(s, 0, r, 0, len);
+    return r;
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
      /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:35>>*/ caml_string_of_bytes
-             /*<<bytes.ml:61:35>>*/ ( /*<<bytes.ml:61:35>>*/ copy
-               /*<<bytes.ml:61:35>>*/ (b)) /*<<bytes.ml:61:43>>*/ ;
-    /*<<bytes.ml:61:43>>*/ }
+            (copy(b)) /*<<bytes.ml:61:43>>*/ ;
+   }
    function of_string(s){
      /*<<bytes.ml:62:18>>*/ return  /*<<bytes.ml:61:14>>*/ copy
-             /*<<bytes.ml:61:14>>*/ (caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
-    /*<<bytes.ml:62:43>>*/ }
+            (caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
+   }
    function sub(s, ofs, len){
      /*<<bytes.ml:65:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs){
-     var
-      r =
-         /*<<bytes.ml:68:12>>*/  /*<<bytes.ml:68:12>>*/ caml_create_bytes
-          /*<<bytes.ml:68:12>>*/ (len);
-      /*<<bytes.ml:69:4>>*/  /*<<bytes.ml:69:4>>*/ caml_blit_bytes
-       /*<<bytes.ml:69:4>>*/ (s, ofs, r, 0, len);
-      /*<<bytes.ml:69:4>>*/ return r /*<<bytes.ml:69:4>>*/ ;
-    }
-     /*<<bytes.ml:66:7>>*/ return  /*<<bytes.ml:66:7>>*/ caml_call1
-             /*<<bytes.ml:66:7>>*/ (Stdlib[1], cst_String_sub_Bytes_sub) /*<<bytes.ml:71:5>>*/ ;
-    /*<<bytes.ml:71:5>>*/ }
+     var r =  /*<<bytes.ml:68:12>>*/ caml_create_bytes(len);
+      /*<<bytes.ml:69:4>>*/ caml_blit_bytes(s, ofs, r, 0, len);
+     return r;
+    }
+     /*<<bytes.ml:66:7>>*/ return caml_call1
+            (Stdlib[1], cst_String_sub_Bytes_sub) /*<<bytes.ml:71:5>>*/ ;
+   }
    function sub_string(b, ofs, len){
      /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:44>>*/ caml_string_of_bytes
-             /*<<bytes.ml:73:44>>*/ ( /*<<bytes.ml:73:44>>*/ sub
-               /*<<bytes.ml:73:44>>*/ (b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
-    /*<<bytes.ml:73:59>>*/ }
+            (sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
+   }
    function symbol(a, b){
     var c = a + b | 0, _an_ = b < 0 ? 1 : 0, match = c < 0 ? 1 : 0;
     a:
     {
      if(a < 0){if(_an_ && ! match) break a;} else if(! _an_ && match) break a;
-      /*<<bytes.ml:81:9>>*/ return c /*<<bytes.ml:81:9>>*/ ;
+      /*<<bytes.ml:81:9>>*/ return c;
     }
-     /*<<bytes.ml:80:27>>*/ return  /*<<bytes.ml:80:27>>*/ caml_call1
-             /*<<bytes.ml:80:27>>*/ (Stdlib[1], cst_Bytes_extend) /*<<bytes.ml:81:10>>*/ ;
-    /*<<bytes.ml:81:10>>*/ }
+     /*<<bytes.ml:80:27>>*/ return caml_call1(Stdlib[1], cst_Bytes_extend) /*<<bytes.ml:81:10>>*/ ;
+   }
    function extend(s, left, right){
     var
      len =
-        /*<<bytes.ml:84:12>>*/  /*<<bytes.ml:84:12>>*/ symbol
-         /*<<bytes.ml:84:12>>*/ ( /*<<bytes.ml:84:12>>*/ symbol
-           /*<<bytes.ml:84:12>>*/ (caml_ml_bytes_length(s), left),
-         right),
-     r =
-        /*<<bytes.ml:85:10>>*/  /*<<bytes.ml:85:10>>*/ caml_create_bytes
-         /*<<bytes.ml:85:10>>*/ (len);
+        /*<<bytes.ml:84:12>>*/ symbol
+        (symbol(caml_ml_bytes_length(s), left), right),
+     r =  /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
     if(0 <= left)
      var dstoff = left, srcoff = 0;
     else
      var dstoff = 0, srcoff = - left | 0;
     var
      cpylen =
-        /*<<bytes.ml:87:15>>*/  /*<<bytes.ml:87:15>>*/ caml_call2
-         /*<<bytes.ml:87:15>>*/ (Stdlib_Int[10],
+        /*<<bytes.ml:87:15>>*/ caml_call2
+        (Stdlib_Int[10],
          caml_ml_bytes_length(s) - srcoff | 0,
          len - dstoff | 0);
     if(0 < cpylen)
-      /*<<bytes.ml:88:21>>*/  /*<<bytes.ml:88:21>>*/ caml_blit_bytes
-       /*<<bytes.ml:88:21>>*/ (s, srcoff, r, dstoff, cpylen);
-     /*<<bytes.ml:88:21>>*/ return r /*<<bytes.ml:88:21>>*/ ;
+      /*<<bytes.ml:88:21>>*/ caml_blit_bytes(s, srcoff, r, dstoff, cpylen);
+    return r;
     /*<<bytes.ml:89:3>>*/ }
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<bytes.ml:94:7>>*/ return  /*<<bytes.ml:94:7>>*/ caml_fill_bytes
-              /*<<bytes.ml:94:7>>*/ (s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
-     /*<<bytes.ml:93:7>>*/ return  /*<<bytes.ml:93:7>>*/ caml_call1
-             /*<<bytes.ml:93:7>>*/ (Stdlib[1], cst_String_fill_Bytes_fill) /*<<bytes.ml:94:30>>*/ ;
-    /*<<bytes.ml:94:30>>*/ }
+      /*<<bytes.ml:94:7>>*/ return caml_fill_bytes(s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
+     /*<<bytes.ml:93:7>>*/ return caml_call1
+            (Stdlib[1], cst_String_fill_Bytes_fill) /*<<bytes.ml:94:30>>*/ ;
+   }
    function blit(s1, ofs1, s2, ofs2, len){
      /*<<bytes.ml:97:2>>*/ if
      (0 <= len
@@ -5725,11 +4811,9 @@
        &&
         (caml_ml_bytes_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
-      /*<<bytes.ml:100:7>>*/ return  /*<<bytes.ml:100:7>>*/ caml_blit_bytes
-              /*<<bytes.ml:100:7>>*/ (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
-     /*<<bytes.ml:99:7>>*/ return  /*<<bytes.ml:99:7>>*/ caml_call1
-             /*<<bytes.ml:99:7>>*/ (Stdlib[1], cst_Bytes_blit) /*<<bytes.ml:100:38>>*/ ;
-    /*<<bytes.ml:100:38>>*/ }
+      /*<<bytes.ml:100:7>>*/ return caml_blit_bytes(s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
+     /*<<bytes.ml:99:7>>*/ return caml_call1(Stdlib[1], cst_Bytes_blit) /*<<bytes.ml:100:38>>*/ ;
+   }
    function blit_string(s1, ofs1, s2, ofs2, len){
      /*<<bytes.ml:103:2>>*/ if
      (0 <= len
@@ -5738,12 +4822,11 @@
        &&
         (runtime.caml_ml_string_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
-      /*<<bytes.ml:106:7>>*/ return  /*<<bytes.ml:106:7>>*/ runtime.caml_blit_string
-              /*<<bytes.ml:106:7>>*/ (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:106:45>>*/ ;
-     /*<<bytes.ml:105:7>>*/ return  /*<<bytes.ml:105:7>>*/ caml_call1
-             /*<<bytes.ml:105:7>>*/ (Stdlib[1],
-             cst_String_blit_Bytes_blit_str) /*<<bytes.ml:106:45>>*/ ;
-    /*<<bytes.ml:106:45>>*/ }
+      /*<<bytes.ml:106:7>>*/ return runtime.caml_blit_string
+             (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:106:45>>*/ ;
+     /*<<bytes.ml:105:7>>*/ return caml_call1
+            (Stdlib[1], cst_String_blit_Bytes_blit_str) /*<<bytes.ml:106:45>>*/ ;
+   }
    function iter(f, a){
     var
      _al_ = caml_ml_bytes_length(a) - 1 | 0,
@@ -5751,9 +4834,8 @@
     if(_al_ >= 0){
      var i = _ak_;
      for(;;){
-       /*<<bytes.ml:110:31>>*/  /*<<bytes.ml:110:31>>*/ caml_call1
-        /*<<bytes.ml:110:31>>*/ (f, caml_bytes_unsafe_get(a, i));
-      var _am_ =  /*<<bytes.ml:110:31>>*/ i + 1 | 0;
+       /*<<bytes.ml:110:31>>*/ caml_call1(f, caml_bytes_unsafe_get(a, i));
+      var _am_ = i + 1 | 0;
       if(_al_ === i) break;
       i = _am_;
      }
@@ -5767,9 +4849,8 @@
     if(_ai_ >= 0){
      var i = _ah_;
      for(;;){
-       /*<<bytes.ml:114:31>>*/  /*<<bytes.ml:114:31>>*/ caml_call2
-        /*<<bytes.ml:114:31>>*/ (f, i, caml_bytes_unsafe_get(a, i));
-      var _aj_ =  /*<<bytes.ml:114:31>>*/ i + 1 | 0;
+       /*<<bytes.ml:114:31>>*/ caml_call2(f, i, caml_bytes_unsafe_get(a, i));
+      var _aj_ = i + 1 | 0;
       if(_ai_ === i) break;
       i = _aj_;
      }
@@ -5777,8 +4858,7 @@
     return 0;
     /*<<bytes.ml:114:56>>*/ }
    function concat(sep, l){
-     /*<<bytes.ml:132:11>>*/ if(! l)
-      /*<<bytes.ml:53:12>>*/ return empty /*<<bytes.ml:53:12>>*/ ;
+     /*<<bytes.ml:132:11>>*/ if(! l)  /*<<bytes.ml:53:12>>*/ return empty;
     var seplen = caml_ml_bytes_length(sep);
     a:
     {
@@ -5795,8 +4875,7 @@
         acc$0 =
           acc <= x
            ? x
-           :  /*<<bytes.ml:116:48>>*/ caml_call1
-              /*<<bytes.ml:116:48>>*/ (Stdlib[1], cst_Bytes_concat);
+           :  /*<<bytes.ml:116:48>>*/ caml_call1(Stdlib[1], cst_Bytes_concat);
        acc = acc$0;
        param = tl;
       }
@@ -5806,34 +4885,22 @@
      var _ag_ = caml_ml_bytes_length(hd) + acc | 0;
     }
     var
-     dst =
-        /*<<bytes.ml:136:12>>*/  /*<<bytes.ml:136:12>>*/ caml_create_bytes
-         /*<<bytes.ml:136:12>>*/ (_ag_),
+     dst =  /*<<bytes.ml:136:12>>*/ caml_create_bytes(_ag_),
      pos = pos$1,
      param$0 = l;
      /*<<bytes.ml:123:21>>*/ for(;;){
-     if(! param$0)
-       /*<<bytes.ml:124:10>>*/ return dst /*<<bytes.ml:124:10>>*/ ;
+     if(! param$0)  /*<<bytes.ml:124:10>>*/ return dst;
      var hd$0 = param$0[1];
      if(! param$0[2]){
-       /*<<bytes.ml:126:4>>*/  /*<<bytes.ml:126:4>>*/ caml_blit_bytes
-        /*<<bytes.ml:126:4>>*/ (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
-       /*<<bytes.ml:126:4>>*/ return dst /*<<bytes.ml:126:4>>*/ ;
+       /*<<bytes.ml:126:4>>*/ caml_blit_bytes
+       (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
+      return dst;
      }
      var tl$0 = param$0[2];
-      /*<<bytes.ml:128:4>>*/  /*<<bytes.ml:128:4>>*/ caml_blit_bytes
-       /*<<bytes.ml:128:4>>*/ (hd$0,
-       0,
-       dst,
-       pos,
-        /*<<bytes.ml:128:4>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:128:4>>*/ (hd$0));
-      /*<<bytes.ml:129:4>>*/  /*<<bytes.ml:129:4>>*/ caml_blit_bytes
-       /*<<bytes.ml:129:4>>*/ (sep,
-       0,
-       dst,
-       pos + caml_ml_bytes_length(hd$0) | 0,
-       seplen);
+      /*<<bytes.ml:128:4>>*/ caml_blit_bytes
+      (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
+      /*<<bytes.ml:129:4>>*/ caml_blit_bytes
+      (sep, 0, dst, pos + caml_ml_bytes_length(hd$0) | 0, seplen);
      var pos$0 = (pos + caml_ml_bytes_length(hd$0) | 0) + seplen | 0;
      pos = pos$0;
      param$0 = tl$0;
@@ -5842,35 +4909,26 @@
    function cat(s1, s2){
     var
      l1 = caml_ml_bytes_length(s1),
-     l2 =
-        /*<<bytes.ml:141:2>>*/  /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:141:2>>*/ (s2),
-     r =
-        /*<<bytes.ml:142:10>>*/  /*<<bytes.ml:142:10>>*/ caml_create_bytes
-         /*<<bytes.ml:142:10>>*/ (l1 + l2 | 0);
-     /*<<bytes.ml:143:2>>*/  /*<<bytes.ml:143:2>>*/ caml_blit_bytes
-      /*<<bytes.ml:143:2>>*/ (s1, 0, r, 0, l1);
-     /*<<bytes.ml:144:2>>*/  /*<<bytes.ml:144:2>>*/ caml_blit_bytes
-      /*<<bytes.ml:144:2>>*/ (s2, 0, r, l1, l2);
-     /*<<bytes.ml:144:2>>*/ return r /*<<bytes.ml:144:2>>*/ ;
+     l2 =  /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length(s2),
+     r =  /*<<bytes.ml:142:10>>*/ caml_create_bytes(l1 + l2 | 0);
+     /*<<bytes.ml:143:2>>*/ caml_blit_bytes(s1, 0, r, 0, l1);
+     /*<<bytes.ml:144:2>>*/ caml_blit_bytes(s2, 0, r, l1, l2);
+    return r;
     /*<<bytes.ml:145:3>>*/ }
    function is_space(param){
     var _af_ =  /*<<bytes.ml:151:15>>*/ param - 9 | 0;
     a:
     {
      if(4 < _af_ >>> 0){if(23 !== _af_) break a;} else if(2 === _af_) break a;
-      /*<<bytes.ml:152:41>>*/ return 1 /*<<bytes.ml:152:41>>*/ ;
+      /*<<bytes.ml:152:41>>*/ return 1;
     }
-     /*<<bytes.ml:153:9>>*/ return 0 /*<<bytes.ml:153:9>>*/ ;
+     /*<<bytes.ml:153:9>>*/ return 0;
     /*<<bytes.ml:153:14>>*/ }
    function trim(s){
     var len = caml_ml_bytes_length(s), i =  /*<<bytes.ml:157:10>>*/ [0, 0];
     for(;;){
      if(i[1] >= len) break;
-      /*<<bytes.ml:158:20>>*/ if
-      (!
-        /*<<bytes.ml:158:20>>*/ is_space
-         /*<<bytes.ml:158:20>>*/ (caml_bytes_unsafe_get(s, i[1])))
+      /*<<bytes.ml:158:20>>*/ if(! is_space(caml_bytes_unsafe_get(s, i[1])))
       break;
      i[1]++;
     }
@@ -5878,20 +4936,17 @@
     for(;;){
      if
       (i[1] <= j[1]
-       &&
-         /*<<bytes.ml:162:20>>*/ is_space
-          /*<<bytes.ml:162:20>>*/ (caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
+       &&  /*<<bytes.ml:162:20>>*/ is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
      return i[1] <= j[1]
-             ?  /*<<bytes.ml:64:8>>*/ sub
-                /*<<bytes.ml:64:8>>*/ (s, i[1], (j[1] - i[1] | 0) + 1 | 0)
+             ?  /*<<bytes.ml:64:8>>*/ sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0)
              : empty /*<<bytes.ml:168:9>>*/ ;
     }
-    /*<<bytes.ml:168:9>>*/ }
+   }
    function unsafe_escape(s){
     var
      n =  /*<<bytes.ml:184:10>>*/ [0, 0],
      ___ = caml_ml_bytes_length(s) - 1 | 0,
-     _Z_ =  /*<<bytes.ml:184:10>>*/ 0;
+     _Z_ = 0;
     if(___ >= 0){
      var i$0 = _Z_;
      for(;;){
@@ -5927,12 +4982,8 @@
       i$0 = _ae_;
      }
     }
-    if(n[1] === caml_ml_bytes_length(s))
-      /*<<bytes.ml:192:24>>*/ return s /*<<bytes.ml:192:24>>*/ ;
-    var
-     s$0 =
-        /*<<bytes.ml:194:13>>*/  /*<<bytes.ml:194:13>>*/ caml_create_bytes
-         /*<<bytes.ml:194:13>>*/ (n[1]);
+    if(n[1] === caml_ml_bytes_length(s))  /*<<bytes.ml:192:24>>*/ return s;
+    var s$0 =  /*<<bytes.ml:194:13>>*/ caml_create_bytes(n[1]);
     n[1] = 0;
     var
      _aa_ = caml_ml_bytes_length(s) - 1 | 0,
@@ -5996,29 +5047,22 @@
        caml_bytes_unsafe_set(s$0, n[1], c);
       }
       n[1]++;
-      var _ab_ =  /*<<bytes.ml:196:4>>*/ i + 1 | 0;
+      var _ab_ = i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
     }
-     /*<<bytes.ml:221:4>>*/ return s$0 /*<<bytes.ml:221:4>>*/ ;
+     /*<<bytes.ml:221:4>>*/ return s$0;
     /*<<bytes.ml:222:5>>*/ }
    function escaped(b){
-    var
-     b$0 =
-        /*<<bytes.ml:225:10>>*/  /*<<bytes.ml:225:10>>*/ copy
-         /*<<bytes.ml:225:10>>*/ (b);
-     /*<<bytes.ml:228:2>>*/ return  /*<<bytes.ml:228:2>>*/ unsafe_escape
-             /*<<bytes.ml:228:2>>*/ (b$0) /*<<bytes.ml:228:17>>*/ ;
-    /*<<bytes.ml:228:17>>*/ }
+    var b$0 =  /*<<bytes.ml:225:10>>*/ copy(b);
+     /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0) /*<<bytes.ml:228:17>>*/ ;
+   }
    function map(f, s){
     var l = caml_ml_bytes_length(s);
-     /*<<bytes.ml:232:2>>*/ if(0 === l)
-      /*<<bytes.ml:232:16>>*/ return s /*<<bytes.ml:232:16>>*/ ;
+     /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
     var
-     r =
-        /*<<bytes.ml:233:12>>*/  /*<<bytes.ml:233:12>>*/ caml_create_bytes
-         /*<<bytes.ml:233:12>>*/ (l),
+     r =  /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
      _X_ =  /*<<bytes.ml:234:4>>*/ l - 1 | 0,
      _W_ =  /*<<bytes.ml:233:12>>*/ 0;
     if(_X_ >= 0){
@@ -6027,23 +5071,19 @@
       caml_bytes_unsafe_set
        (r,
         i,
-         /*<<bytes.ml:234:41>>*/ caml_call1
-          /*<<bytes.ml:234:41>>*/ (f, caml_bytes_unsafe_get(s, i)));
+         /*<<bytes.ml:234:41>>*/ caml_call1(f, caml_bytes_unsafe_get(s, i)));
       var _Y_ =  /*<<bytes.ml:234:4>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
     }
-     /*<<bytes.ml:235:4>>*/ return r /*<<bytes.ml:235:4>>*/ ;
+     /*<<bytes.ml:235:4>>*/ return r;
     /*<<bytes.ml:236:5>>*/ }
    function mapi(f, s){
     var l = caml_ml_bytes_length(s);
-     /*<<bytes.ml:240:2>>*/ if(0 === l)
-      /*<<bytes.ml:240:16>>*/ return s /*<<bytes.ml:240:16>>*/ ;
+     /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
     var
-     r =
-        /*<<bytes.ml:241:12>>*/  /*<<bytes.ml:241:12>>*/ caml_create_bytes
-         /*<<bytes.ml:241:12>>*/ (l),
+     r =  /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
      _U_ =  /*<<bytes.ml:242:4>>*/ l - 1 | 0,
      _T_ =  /*<<bytes.ml:241:12>>*/ 0;
     if(_U_ >= 0){
@@ -6052,26 +5092,25 @@
       caml_bytes_unsafe_set
        (r,
         i,
-         /*<<bytes.ml:242:41>>*/ caml_call2
-          /*<<bytes.ml:242:41>>*/ (f, i, caml_bytes_unsafe_get(s, i)));
+         /*<<bytes.ml:242:41>>*/ caml_call2(f, i, caml_bytes_unsafe_get(s, i)));
       var _V_ =  /*<<bytes.ml:242:4>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
     }
-     /*<<bytes.ml:243:4>>*/ return r /*<<bytes.ml:243:4>>*/ ;
+     /*<<bytes.ml:243:4>>*/ return r;
     /*<<bytes.ml:244:5>>*/ }
    function fold_left(f, x, a){
     var
      r =  /*<<bytes.ml:247:10>>*/ [0, x],
      _R_ = caml_ml_bytes_length(a) - 1 | 0,
-     _Q_ =  /*<<bytes.ml:247:10>>*/ 0;
+     _Q_ = 0;
     if(_R_ >= 0){
      var i = _Q_;
      for(;;){
       r[1] =
         /*<<bytes.ml:249:9>>*/ caml_call2
-         /*<<bytes.ml:249:9>>*/ (f, r[1], caml_bytes_unsafe_get(a, i));
+        (f, r[1], caml_bytes_unsafe_get(a, i));
       var _S_ =  /*<<bytes.ml:248:2>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
@@ -6082,17 +5121,13 @@
    function fold_right(f, a, x){
     var
      r =  /*<<bytes.ml:254:10>>*/ [0, x],
-     _O_ =
-        /*<<bytes.ml:255:2>>*/  /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:255:2>>*/ (a)
-       - 1
-       | 0;
+     _O_ =  /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length(a) - 1 | 0;
     if(_O_ >= 0){
      var i = _O_;
      for(;;){
       r[1] =
         /*<<bytes.ml:256:9>>*/ caml_call2
-         /*<<bytes.ml:256:9>>*/ (f, caml_bytes_unsafe_get(a, i), r[1]);
+        (f, caml_bytes_unsafe_get(a, i), r[1]);
       var _P_ =  /*<<bytes.ml:255:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _P_;
@@ -6103,11 +5138,9 @@
    function exists(p, s){
     var n = caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:263:4>>*/ for(;;){
-     if(i === n)  /*<<bytes.ml:263:18>>*/ return 0 /*<<bytes.ml:263:18>>*/ ;
-      /*<<bytes.ml:264:12>>*/ if
-      ( /*<<bytes.ml:264:12>>*/ caml_call1
-         /*<<bytes.ml:264:12>>*/ (p, caml_bytes_unsafe_get(s, i)))
-       /*<<bytes.ml:264:36>>*/ return 1 /*<<bytes.ml:264:36>>*/ ;
+     if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
+      /*<<bytes.ml:264:12>>*/ if(caml_call1(p, caml_bytes_unsafe_get(s, i)))
+       /*<<bytes.ml:264:36>>*/ return 1;
      var i$0 =  /*<<bytes.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -6115,46 +5148,35 @@
    function for_all(p, s){
     var n = caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:271:4>>*/ for(;;){
-     if(i === n)  /*<<bytes.ml:271:18>>*/ return 1 /*<<bytes.ml:271:18>>*/ ;
-      /*<<bytes.ml:272:12>>*/ if
-      (!
-        /*<<bytes.ml:272:12>>*/ caml_call1
-         /*<<bytes.ml:272:12>>*/ (p, caml_bytes_unsafe_get(s, i)))
-       /*<<bytes.ml:273:9>>*/ return 0 /*<<bytes.ml:273:9>>*/ ;
+     if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
+      /*<<bytes.ml:272:12>>*/ if(! caml_call1(p, caml_bytes_unsafe_get(s, i)))
+       /*<<bytes.ml:273:9>>*/ return 0;
      var i$0 =  /*<<bytes.ml:272:36>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:274:8>>*/ }
    function uppercase_ascii(s){
-     /*<<bytes.ml:276:24>>*/ return  /*<<bytes.ml:276:24>>*/ map
-             /*<<bytes.ml:276:24>>*/ (Stdlib_Char[4], s) /*<<bytes.ml:276:50>>*/ ;
-    /*<<bytes.ml:276:50>>*/ }
+     /*<<bytes.ml:276:24>>*/ return map(Stdlib_Char[4], s) /*<<bytes.ml:276:50>>*/ ;
+   }
    function lowercase_ascii(s){
-     /*<<bytes.ml:277:24>>*/ return  /*<<bytes.ml:277:24>>*/ map
-             /*<<bytes.ml:277:24>>*/ (Stdlib_Char[3], s) /*<<bytes.ml:277:50>>*/ ;
-    /*<<bytes.ml:277:50>>*/ }
+     /*<<bytes.ml:277:24>>*/ return map(Stdlib_Char[3], s) /*<<bytes.ml:277:50>>*/ ;
+   }
    function apply1(f, s){
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
-      /*<<bytes.ml:280:23>>*/ return s /*<<bytes.ml:280:23>>*/ ;
-    var
-     r =
-        /*<<bytes.ml:281:12>>*/  /*<<bytes.ml:281:12>>*/ copy
-         /*<<bytes.ml:281:12>>*/ (s);
+      /*<<bytes.ml:280:23>>*/ return s;
+    var r =  /*<<bytes.ml:281:12>>*/ copy(s);
     caml_bytes_unsafe_set
      (r,
       0,
-       /*<<bytes.ml:282:19>>*/ caml_call1
-        /*<<bytes.ml:282:19>>*/ (f, caml_bytes_unsafe_get(s, 0)));
-     /*<<bytes.ml:283:4>>*/ return r /*<<bytes.ml:283:4>>*/ ;
+       /*<<bytes.ml:282:19>>*/ caml_call1(f, caml_bytes_unsafe_get(s, 0)));
+     /*<<bytes.ml:283:4>>*/ return r;
     /*<<bytes.ml:284:5>>*/ }
    function capitalize_ascii(s){
-     /*<<bytes.ml:286:25>>*/ return  /*<<bytes.ml:286:25>>*/ apply1
-             /*<<bytes.ml:286:25>>*/ (Stdlib_Char[4], s) /*<<bytes.ml:286:54>>*/ ;
-    /*<<bytes.ml:286:54>>*/ }
+     /*<<bytes.ml:286:25>>*/ return apply1(Stdlib_Char[4], s) /*<<bytes.ml:286:54>>*/ ;
+   }
    function uncapitalize_ascii(s){
-     /*<<bytes.ml:287:27>>*/ return  /*<<bytes.ml:287:27>>*/ apply1
-             /*<<bytes.ml:287:27>>*/ (Stdlib_Char[3], s) /*<<bytes.ml:287:56>>*/ ;
-    /*<<bytes.ml:287:56>>*/ }
+     /*<<bytes.ml:287:27>>*/ return apply1(Stdlib_Char[3], s) /*<<bytes.ml:287:56>>*/ ;
+   }
    function starts_with(prefix, s){
     var
      len_s = caml_ml_bytes_length(s),
@@ -6163,10 +5185,9 @@
     if(! _N_) return _N_;
     var i = 0;
      /*<<bytes.ml:294:4>>*/ for(;;){
-     if(i === len_pre)
-       /*<<bytes.ml:294:24>>*/ return 1 /*<<bytes.ml:294:24>>*/ ;
+     if(i === len_pre)  /*<<bytes.ml:294:24>>*/ return 1;
      if(caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
-       /*<<bytes.ml:295:55>>*/ return 0 /*<<bytes.ml:295:55>>*/ ;
+       /*<<bytes.ml:295:55>>*/ return 0;
      var i$0 =  /*<<bytes.ml:296:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -6180,12 +5201,11 @@
     if(! _M_) return _M_;
     var i = 0;
      /*<<bytes.ml:305:4>>*/ for(;;){
-     if(i === len_suf)
-       /*<<bytes.ml:305:24>>*/ return 1 /*<<bytes.ml:305:24>>*/ ;
+     if(i === len_suf)  /*<<bytes.ml:305:24>>*/ return 1;
      if
       (caml_bytes_unsafe_get(s, diff + i | 0)
        !== caml_bytes_unsafe_get(suffix, i))
-       /*<<bytes.ml:306:64>>*/ return 0 /*<<bytes.ml:306:64>>*/ ;
+       /*<<bytes.ml:306:64>>*/ return 0;
      var i$0 =  /*<<bytes.ml:307:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -6194,138 +5214,120 @@
     var i$0 = i;
      /*<<bytes.ml:312:2>>*/ for(;;){
      if(lim <= i$0)
-       /*<<bytes.ml:312:19>>*/ throw  /*<<bytes.ml:312:19>>*/ caml_maybe_attach_backtrace
-              /*<<bytes.ml:312:19>>*/ (Stdlib[8], 1);
+       /*<<bytes.ml:312:19>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:313:29>>*/ return i$0 /*<<bytes.ml:313:29>>*/ ;
+       /*<<bytes.ml:313:29>>*/ return i$0;
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:313:61>>*/ }
    function index(s, c){
-     /*<<bytes.ml:316:16>>*/ return  /*<<bytes.ml:316:16>>*/ index_rec
-             /*<<bytes.ml:316:16>>*/ (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:316:42>>*/ ;
-    /*<<bytes.ml:316:42>>*/ }
+     /*<<bytes.ml:316:16>>*/ return index_rec
+            (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:316:42>>*/ ;
+   }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
      /*<<bytes.ml:320:2>>*/ for(;;){
-     if(lim <= i$0)
-       /*<<bytes.ml:320:19>>*/ return 0 /*<<bytes.ml:320:19>>*/ ;
+     if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:321:29>>*/ return [0, i$0] /*<<bytes.ml:321:29>>*/ ;
+       /*<<bytes.ml:321:29>>*/ return [0, i$0];
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:321:70>>*/ }
    function index_opt(s, c){
-     /*<<bytes.ml:324:20>>*/ return  /*<<bytes.ml:324:20>>*/ index_rec_opt
-             /*<<bytes.ml:324:20>>*/ (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:324:50>>*/ ;
-    /*<<bytes.ml:324:50>>*/ }
+     /*<<bytes.ml:324:20>>*/ return index_rec_opt
+            (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:324:50>>*/ ;
+   }
    function index_from(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:330:2>>*/ return  /*<<bytes.ml:330:2>>*/ index_rec
-              /*<<bytes.ml:330:2>>*/ (s, l, i, c) /*<<bytes.ml:330:19>>*/ ;
-     /*<<bytes.ml:329:25>>*/ return  /*<<bytes.ml:329:25>>*/ caml_call1
-             /*<<bytes.ml:329:25>>*/ (Stdlib[1],
-             cst_String_index_from_Bytes_in) /*<<bytes.ml:330:19>>*/ ;
-    /*<<bytes.ml:330:19>>*/ }
+      /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c) /*<<bytes.ml:330:19>>*/ ;
+     /*<<bytes.ml:329:25>>*/ return caml_call1
+            (Stdlib[1], cst_String_index_from_Bytes_in) /*<<bytes.ml:330:19>>*/ ;
+   }
    function index_from_opt(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:338:4>>*/ return  /*<<bytes.ml:338:4>>*/ index_rec_opt
-              /*<<bytes.ml:338:4>>*/ (s, l, i, c) /*<<bytes.ml:338:25>>*/ ;
-     /*<<bytes.ml:336:4>>*/ return  /*<<bytes.ml:336:4>>*/ caml_call1
-             /*<<bytes.ml:336:4>>*/ (Stdlib[1],
-             cst_String_index_from_opt_Byte) /*<<bytes.ml:338:25>>*/ ;
-    /*<<bytes.ml:338:25>>*/ }
+      /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c) /*<<bytes.ml:338:25>>*/ ;
+     /*<<bytes.ml:336:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_index_from_opt_Byte) /*<<bytes.ml:338:25>>*/ ;
+   }
    function rindex_rec(s, i, c){
     var i$0 = i;
      /*<<bytes.ml:342:2>>*/ for(;;){
      if(0 > i$0)
-       /*<<bytes.ml:342:16>>*/ throw  /*<<bytes.ml:342:16>>*/ caml_maybe_attach_backtrace
-              /*<<bytes.ml:342:16>>*/ (Stdlib[8], 1);
+       /*<<bytes.ml:342:16>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:343:29>>*/ return i$0 /*<<bytes.ml:343:29>>*/ ;
+       /*<<bytes.ml:343:29>>*/ return i$0;
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:343:58>>*/ }
    function rindex(s, c){
-     /*<<bytes.ml:346:17>>*/ return  /*<<bytes.ml:346:17>>*/ rindex_rec
-             /*<<bytes.ml:346:17>>*/ (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:346:46>>*/ ;
-    /*<<bytes.ml:346:46>>*/ }
+     /*<<bytes.ml:346:17>>*/ return rindex_rec
+            (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:346:46>>*/ ;
+   }
    function rindex_from(s, i, c){
      /*<<bytes.ml:350:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:353:4>>*/ return  /*<<bytes.ml:353:4>>*/ rindex_rec
-              /*<<bytes.ml:353:4>>*/ (s, i, c) /*<<bytes.ml:353:20>>*/ ;
-     /*<<bytes.ml:351:4>>*/ return  /*<<bytes.ml:351:4>>*/ caml_call1
-             /*<<bytes.ml:351:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_Bytes_r) /*<<bytes.ml:353:20>>*/ ;
-    /*<<bytes.ml:353:20>>*/ }
+      /*<<bytes.ml:353:4>>*/ return rindex_rec(s, i, c) /*<<bytes.ml:353:20>>*/ ;
+     /*<<bytes.ml:351:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_rindex_from_Bytes_r) /*<<bytes.ml:353:20>>*/ ;
+   }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
      /*<<bytes.ml:357:2>>*/ for(;;){
-     if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0 /*<<bytes.ml:357:16>>*/ ;
+     if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
      if(caml_bytes_unsafe_get(s, i$0) === c)
-       /*<<bytes.ml:358:29>>*/ return [0, i$0] /*<<bytes.ml:358:29>>*/ ;
+       /*<<bytes.ml:358:29>>*/ return [0, i$0];
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:358:67>>*/ }
    function rindex_opt(s, c){
-     /*<<bytes.ml:361:21>>*/ return  /*<<bytes.ml:361:21>>*/ rindex_rec_opt
-             /*<<bytes.ml:361:21>>*/ (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:361:54>>*/ ;
-    /*<<bytes.ml:361:54>>*/ }
+     /*<<bytes.ml:361:21>>*/ return rindex_rec_opt
+            (s, caml_ml_bytes_length(s) - 1 | 0, c) /*<<bytes.ml:361:54>>*/ ;
+   }
    function rindex_from_opt(s, i, c){
      /*<<bytes.ml:365:2>>*/ if(-1 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:368:4>>*/ return  /*<<bytes.ml:368:4>>*/ rindex_rec_opt
-              /*<<bytes.ml:368:4>>*/ (s, i, c) /*<<bytes.ml:368:24>>*/ ;
-     /*<<bytes.ml:366:4>>*/ return  /*<<bytes.ml:366:4>>*/ caml_call1
-             /*<<bytes.ml:366:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_opt_Byt) /*<<bytes.ml:368:24>>*/ ;
-    /*<<bytes.ml:368:24>>*/ }
+      /*<<bytes.ml:368:4>>*/ return rindex_rec_opt(s, i, c) /*<<bytes.ml:368:24>>*/ ;
+     /*<<bytes.ml:366:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_rindex_from_opt_Byt) /*<<bytes.ml:368:24>>*/ ;
+   }
    function contains_from(s, i, c){
     var l = caml_ml_bytes_length(s);
      /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:377:4>>*/ try{
-       /*<<bytes.ml:377:15>>*/  /*<<bytes.ml:377:15>>*/ index_rec
-        /*<<bytes.ml:377:15>>*/ (s, l, i, c);
+       /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
       var _K_ =  /*<<bytes.ml:377:36>>*/ 1;
-       /*<<bytes.ml:377:36>>*/ return _K_ /*<<bytes.ml:377:36>>*/ ;
+      return _K_;
      }
      catch(_L_){
       var _J_ = caml_wrap_exception(_L_);
-      if(_J_ === Stdlib[8])
-        /*<<bytes.ml:377:59>>*/ return 0 /*<<bytes.ml:377:59>>*/ ;
+      if(_J_ === Stdlib[8])  /*<<bytes.ml:377:59>>*/ return 0;
       throw caml_maybe_attach_backtrace(_J_, 0);
      }
-     /*<<bytes.ml:375:4>>*/ return  /*<<bytes.ml:375:4>>*/ caml_call1
-             /*<<bytes.ml:375:4>>*/ (Stdlib[1],
-             cst_String_contains_from_Bytes) /*<<bytes.ml:377:64>>*/ ;
-    /*<<bytes.ml:377:64>>*/ }
+     /*<<bytes.ml:375:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_contains_from_Bytes) /*<<bytes.ml:377:64>>*/ ;
+   }
    function contains(s, c){
-     /*<<bytes.ml:381:19>>*/ return  /*<<bytes.ml:381:19>>*/ contains_from
-             /*<<bytes.ml:381:19>>*/ (s, 0, c) /*<<bytes.ml:381:38>>*/ ;
-    /*<<bytes.ml:381:38>>*/ }
+     /*<<bytes.ml:381:19>>*/ return contains_from(s, 0, c) /*<<bytes.ml:381:38>>*/ ;
+   }
    function rcontains_from(s, i, c){
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
       /*<<bytes.ml:388:4>>*/ try{
-       /*<<bytes.ml:388:15>>*/  /*<<bytes.ml:388:15>>*/ rindex_rec
-        /*<<bytes.ml:388:15>>*/ (s, i, c);
+       /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
       var _H_ =  /*<<bytes.ml:388:35>>*/ 1;
-       /*<<bytes.ml:388:35>>*/ return _H_ /*<<bytes.ml:388:35>>*/ ;
+      return _H_;
      }
      catch(_I_){
       var _G_ = caml_wrap_exception(_I_);
-      if(_G_ === Stdlib[8])
-        /*<<bytes.ml:388:58>>*/ return 0 /*<<bytes.ml:388:58>>*/ ;
+      if(_G_ === Stdlib[8])  /*<<bytes.ml:388:58>>*/ return 0;
       throw caml_maybe_attach_backtrace(_G_, 0);
      }
-     /*<<bytes.ml:386:4>>*/ return  /*<<bytes.ml:386:4>>*/ caml_call1
-             /*<<bytes.ml:386:4>>*/ (Stdlib[1],
-             cst_String_rcontains_from_Byte) /*<<bytes.ml:388:63>>*/ ;
-    /*<<bytes.ml:388:63>>*/ }
+     /*<<bytes.ml:386:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_rcontains_from_Byte) /*<<bytes.ml:388:63>>*/ ;
+   }
    var
     compare = runtime.caml_bytes_compare,
     cst_Bytes_of_seq_cannot_grow_b = "Bytes.of_seq: cannot grow bytes";
@@ -6334,13 +5336,8 @@
      r =  /*<<bytes.ml:398:10>>*/ [0, 0],
      j =
         /*<<bytes.ml:399:10>>*/ [0,
-         /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length
-          /*<<bytes.ml:399:2>>*/ (s)],
-     _C_ =
-        /*<<bytes.ml:400:2>>*/  /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:400:2>>*/ (s)
-       - 1
-       | 0;
+         /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length(s)],
+     _C_ =  /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length(s) - 1 | 0;
     if(_C_ >= 0){
      var i = _C_;
      for(;;){
@@ -6348,8 +5345,7 @@
        var _E_ = r[1];
        r[1] =
         [0,
-          /*<<bytes.ml:402:11>>*/ sub
-           /*<<bytes.ml:402:11>>*/ (s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
+          /*<<bytes.ml:402:11>>*/ sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
          _E_];
        j[1] = i;
       }
@@ -6359,250 +5355,178 @@
      }
     }
     var _D_ = r[1];
-     /*<<bytes.ml:406:2>>*/ return [0,
-             /*<<bytes.ml:406:2>>*/ sub /*<<bytes.ml:406:2>>*/ (s, 0, j[1]),
-            _D_] /*<<bytes.ml:406:2>>*/ ;
+     /*<<bytes.ml:406:2>>*/ return [0, sub(s, 0, j[1]), _D_];
     /*<<bytes.ml:406:18>>*/ }
    function to_seq(s){
     function aux(i, param){
       /*<<bytes.ml:412:4>>*/ if(i === caml_ml_bytes_length(s))
-       /*<<bytes.ml:412:25>>*/ return 0 /*<<bytes.ml:412:25>>*/ ;
-     var
-      x =
-         /*<<bytes.ml:414:14>>*/  /*<<bytes.ml:414:14>>*/ caml_bytes_get
-          /*<<bytes.ml:414:14>>*/ (s, i),
-      _A_ =  /*<<bytes.ml:414:14>>*/ i + 1 | 0;
+       /*<<bytes.ml:412:25>>*/ return 0;
+     var x =  /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i), _A_ = i + 1 | 0;
       /*<<bytes.ml:415:6>>*/ return [0,
              x,
              function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:6>>*/ ;
      /*<<bytes.ml:415:29>>*/ }
     var _y_ =  /*<<bytes.ml:417:2>>*/ 0;
-     /*<<bytes.ml:417:2>>*/ return function(_z_){
+    return function(_z_){
       /*<<?>>*/ return aux(_y_, _z_);} /*<<bytes.ml:417:2>>*/ ;
     /*<<bytes.ml:417:7>>*/ }
    function to_seqi(s){
     function aux(i, param){
       /*<<bytes.ml:421:4>>*/ if(i === caml_ml_bytes_length(s))
-       /*<<bytes.ml:421:25>>*/ return 0 /*<<bytes.ml:421:25>>*/ ;
-     var
-      x =
-         /*<<bytes.ml:423:14>>*/  /*<<bytes.ml:423:14>>*/ caml_bytes_get
-          /*<<bytes.ml:423:14>>*/ (s, i),
-      _w_ =  /*<<bytes.ml:423:14>>*/ i + 1 | 0;
+       /*<<bytes.ml:421:25>>*/ return 0;
+     var x =  /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i), _w_ = i + 1 | 0;
       /*<<bytes.ml:424:6>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:6>>*/ ;
      /*<<bytes.ml:424:33>>*/ }
     var _u_ =  /*<<bytes.ml:426:2>>*/ 0;
-     /*<<bytes.ml:426:2>>*/ return function(_v_){
+    return function(_v_){
       /*<<?>>*/ return aux(_u_, _v_);} /*<<bytes.ml:426:2>>*/ ;
     /*<<bytes.ml:426:7>>*/ }
    function of_seq(i){
     var
      n =  /*<<bytes.ml:429:10>>*/ [0, 0],
-     buf =
-        /*<<bytes.ml:430:12>>*/ [0,
-         /*<<bytes.ml:430:16>>*/ make /*<<bytes.ml:430:16>>*/ (256, 0)];
-     /*<<bytes.ml:439:2>>*/  /*<<bytes.ml:439:2>>*/ caml_call2
-      /*<<bytes.ml:439:2>>*/ (Stdlib_Seq[4],
+     buf =  /*<<bytes.ml:430:12>>*/ [0,  /*<<bytes.ml:430:16>>*/ make(256, 0)];
+     /*<<bytes.ml:439:2>>*/ caml_call2
+     (Stdlib_Seq[4],
       function(c){
         /*<<bytes.ml:441:7>>*/ if(n[1] === caml_ml_bytes_length(buf[1])){
         var
          new_len =
-            /*<<bytes.ml:433:18>>*/  /*<<bytes.ml:433:18>>*/ caml_call2
-             /*<<bytes.ml:433:18>>*/ (Stdlib_Int[10],
+            /*<<bytes.ml:433:18>>*/ caml_call2
+            (Stdlib_Int[10],
              2 * caml_ml_bytes_length(buf[1]) | 0,
              Stdlib_Sys[12]);
         if(caml_ml_bytes_length(buf[1]) === new_len)
-          /*<<bytes.ml:434:34>>*/  /*<<bytes.ml:434:34>>*/ caml_call1
-           /*<<bytes.ml:434:34>>*/ (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
-        var
-         new_buf =
-            /*<<bytes.ml:435:18>>*/  /*<<bytes.ml:435:18>>*/ make
-             /*<<bytes.ml:435:18>>*/ (new_len, 0);
-         /*<<bytes.ml:436:4>>*/  /*<<bytes.ml:436:4>>*/ blit
-          /*<<bytes.ml:436:4>>*/ (buf[1], 0, new_buf, 0, n[1]);
+          /*<<bytes.ml:434:34>>*/ caml_call1
+          (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
+        var new_buf =  /*<<bytes.ml:435:18>>*/ make(new_len, 0);
+         /*<<bytes.ml:436:4>>*/ blit(buf[1], 0, new_buf, 0, n[1]);
         buf[1] = new_buf;
        }
-        /*<<bytes.ml:442:7>>*/  /*<<bytes.ml:442:7>>*/ caml_bytes_set
-         /*<<bytes.ml:442:7>>*/ (buf[1], n[1], c);
+        /*<<bytes.ml:442:7>>*/ caml_bytes_set(buf[1], n[1], c);
        n[1]++;
        return 0;
        /*<<bytes.ml:443:13>>*/ },
       i);
-     /*<<bytes.ml:64:8>>*/ return  /*<<bytes.ml:64:8>>*/ sub
-             /*<<bytes.ml:64:8>>*/ (buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
-    /*<<bytes.ml:445:15>>*/ }
+     /*<<bytes.ml:64:8>>*/ return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
+   }
    function unsafe_get_uint16_le(b, i){
      /*<<bytes.ml:470:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:471:14>>*/ caml_bswap16
-               /*<<bytes.ml:471:14>>*/ ( /*<<bytes.ml:471:14>>*/ caml_bytes_get16
-                 /*<<bytes.ml:471:14>>*/ (b, i))
-            :  /*<<bytes.ml:472:7>>*/ caml_bytes_get16
-               /*<<bytes.ml:472:7>>*/ (b, i) /*<<bytes.ml:472:31>>*/ ;
-    /*<<bytes.ml:472:31>>*/ }
+            ?  /*<<bytes.ml:471:14>>*/ caml_bswap16(caml_bytes_get16(b, i))
+            :  /*<<bytes.ml:472:7>>*/ caml_bytes_get16(b, i) /*<<bytes.ml:472:31>>*/ ;
+   }
    function unsafe_get_uint16_be(b, i){
      /*<<bytes.ml:475:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:476:7>>*/ caml_bytes_get16
-               /*<<bytes.ml:476:7>>*/ (b, i)
-            :  /*<<bytes.ml:477:14>>*/ caml_bswap16
-               /*<<bytes.ml:477:14>>*/ ( /*<<bytes.ml:477:14>>*/ caml_bytes_get16
-                 /*<<bytes.ml:477:14>>*/ (b, i)) /*<<bytes.ml:477:40>>*/ ;
-    /*<<bytes.ml:477:40>>*/ }
+            ?  /*<<bytes.ml:476:7>>*/ caml_bytes_get16(b, i)
+            :  /*<<bytes.ml:477:14>>*/ caml_bswap16(caml_bytes_get16(b, i)) /*<<bytes.ml:477:40>>*/ ;
+   }
    function get_int8(b, i){
     var
      _s_ =  /*<<bytes.ml:480:2>>*/ Stdlib_Sys[10] - 8 | 0,
      _t_ = Stdlib_Sys[10] - 8 | 0;
-    return  /*<<bytes.ml:480:3>>*/ caml_bytes_get
-             /*<<bytes.ml:480:3>>*/ (b, i)
-           << _t_
-           >> _s_;
+    return  /*<<bytes.ml:480:3>>*/ caml_bytes_get(b, i) << _t_ >> _s_;
     /*<<bytes.ml:480:65>>*/ }
    function get_uint16_le(b, i){
      /*<<bytes.ml:483:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:483:32>>*/ caml_bswap16
-               /*<<bytes.ml:483:32>>*/ ( /*<<bytes.ml:483:32>>*/ caml_bytes_get16
-                 /*<<bytes.ml:483:32>>*/ (b, i))
-            :  /*<<bytes.ml:484:7>>*/ caml_bytes_get16
-               /*<<bytes.ml:484:7>>*/ (b, i) /*<<bytes.ml:484:24>>*/ ;
-    /*<<bytes.ml:484:24>>*/ }
+            ?  /*<<bytes.ml:483:32>>*/ caml_bswap16(caml_bytes_get16(b, i))
+            :  /*<<bytes.ml:484:7>>*/ caml_bytes_get16(b, i) /*<<bytes.ml:484:24>>*/ ;
+   }
    function get_uint16_be(b, i){
      /*<<bytes.ml:487:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:488:7>>*/ caml_bytes_get16
-               /*<<bytes.ml:488:7>>*/ (b, i)
-            :  /*<<bytes.ml:487:36>>*/ caml_bswap16
-               /*<<bytes.ml:487:36>>*/ ( /*<<bytes.ml:487:36>>*/ caml_bytes_get16
-                 /*<<bytes.ml:487:36>>*/ (b, i)) /*<<bytes.ml:488:24>>*/ ;
-    /*<<bytes.ml:488:24>>*/ }
+            ?  /*<<bytes.ml:488:7>>*/ caml_bytes_get16(b, i)
+            :  /*<<bytes.ml:487:36>>*/ caml_bswap16(caml_bytes_get16(b, i)) /*<<bytes.ml:488:24>>*/ ;
+   }
    function get_int16_ne(b, i){
     var
      _q_ =  /*<<bytes.ml:491:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _r_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16
-             /*<<bytes.ml:491:3>>*/ (b, i)
-           << _r_
-           >> _q_;
+    return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16(b, i) << _r_ >> _q_;
     /*<<bytes.ml:491:71>>*/ }
    function get_int16_le(b, i){
     var
      _o_ =  /*<<bytes.ml:494:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _p_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:494:3>>*/ get_uint16_le /*<<bytes.ml:494:3>>*/ (b, i)
-           << _p_
-           >> _o_;
+    return  /*<<bytes.ml:494:3>>*/ get_uint16_le(b, i) << _p_ >> _o_;
     /*<<bytes.ml:494:71>>*/ }
    function get_int16_be(b, i){
     var
      _m_ =  /*<<bytes.ml:497:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _n_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:497:3>>*/ get_uint16_be /*<<bytes.ml:497:3>>*/ (b, i)
-           << _n_
-           >> _m_;
+    return  /*<<bytes.ml:497:3>>*/ get_uint16_be(b, i) << _n_ >> _m_;
     /*<<bytes.ml:497:71>>*/ }
    function get_int32_le(b, i){
      /*<<bytes.ml:500:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:500:25>>*/ caml_int32_bswap
-               /*<<bytes.ml:500:25>>*/ ( /*<<bytes.ml:500:32>>*/ caml_bytes_get32
-                 /*<<bytes.ml:500:32>>*/ (b, i))
-            :  /*<<bytes.ml:501:7>>*/ caml_bytes_get32
-               /*<<bytes.ml:501:7>>*/ (b, i) /*<<bytes.ml:501:23>>*/ ;
-    /*<<bytes.ml:501:23>>*/ }
+              ( /*<<bytes.ml:500:32>>*/ caml_bytes_get32(b, i))
+            :  /*<<bytes.ml:501:7>>*/ caml_bytes_get32(b, i) /*<<bytes.ml:501:23>>*/ ;
+   }
    function get_int32_be(b, i){
      /*<<bytes.ml:504:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:505:7>>*/ caml_bytes_get32
-               /*<<bytes.ml:505:7>>*/ (b, i)
+            ?  /*<<bytes.ml:505:7>>*/ caml_bytes_get32(b, i)
             :  /*<<bytes.ml:504:29>>*/ caml_int32_bswap
-               /*<<bytes.ml:504:29>>*/ ( /*<<bytes.ml:504:36>>*/ caml_bytes_get32
-                 /*<<bytes.ml:504:36>>*/ (b, i)) /*<<bytes.ml:505:23>>*/ ;
-    /*<<bytes.ml:505:23>>*/ }
+              ( /*<<bytes.ml:504:36>>*/ caml_bytes_get32(b, i)) /*<<bytes.ml:505:23>>*/ ;
+   }
    function get_int64_le(b, i){
      /*<<bytes.ml:508:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:508:25>>*/ caml_int64_bswap
-               /*<<bytes.ml:508:25>>*/ ( /*<<bytes.ml:508:32>>*/ caml_bytes_get64
-                 /*<<bytes.ml:508:32>>*/ (b, i))
-            :  /*<<bytes.ml:509:7>>*/ caml_bytes_get64
-               /*<<bytes.ml:509:7>>*/ (b, i) /*<<bytes.ml:509:23>>*/ ;
-    /*<<bytes.ml:509:23>>*/ }
+              ( /*<<bytes.ml:508:32>>*/ caml_bytes_get64(b, i))
+            :  /*<<bytes.ml:509:7>>*/ caml_bytes_get64(b, i) /*<<bytes.ml:509:23>>*/ ;
+   }
    function get_int64_be(b, i){
      /*<<bytes.ml:512:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:513:7>>*/ caml_bytes_get64
-               /*<<bytes.ml:513:7>>*/ (b, i)
+            ?  /*<<bytes.ml:513:7>>*/ caml_bytes_get64(b, i)
             :  /*<<bytes.ml:512:29>>*/ caml_int64_bswap
-               /*<<bytes.ml:512:29>>*/ ( /*<<bytes.ml:512:36>>*/ caml_bytes_get64
-                 /*<<bytes.ml:512:36>>*/ (b, i)) /*<<bytes.ml:513:23>>*/ ;
-    /*<<bytes.ml:513:23>>*/ }
+              ( /*<<bytes.ml:512:36>>*/ caml_bytes_get64(b, i)) /*<<bytes.ml:513:23>>*/ ;
+   }
    function unsafe_set_uint16_le(b, i, x){
      /*<<bytes.ml:516:2>>*/ if(Stdlib_Sys[11]){
-      /*<<bytes.ml:517:7>>*/  /*<<bytes.ml:517:7>>*/ caml_bytes_set16
-       /*<<bytes.ml:517:7>>*/ (b, i, caml_bswap16(x));
-      /*<<bytes.ml:517:7>>*/ return /*<<bytes.ml:517:7>>*/ ;
+      /*<<bytes.ml:517:7>>*/ caml_bytes_set16(b, i, caml_bswap16(x));
+     return;
     }
-     /*<<bytes.ml:518:7>>*/  /*<<bytes.ml:518:7>>*/ caml_bytes_set16
-      /*<<bytes.ml:518:7>>*/ (b, i, x);
+     /*<<bytes.ml:518:7>>*/ caml_bytes_set16(b, i, x);
     /*<<bytes.ml:518:33>>*/ }
    function unsafe_set_uint16_be(b, i, x){
      /*<<bytes.ml:521:2>>*/ if(Stdlib_Sys[11]){
-      /*<<bytes.ml:522:7>>*/  /*<<bytes.ml:522:7>>*/ caml_bytes_set16
-       /*<<bytes.ml:522:7>>*/ (b, i, x);
-      /*<<bytes.ml:522:7>>*/ return /*<<bytes.ml:522:7>>*/ ;
+      /*<<bytes.ml:522:7>>*/ caml_bytes_set16(b, i, x);
+     return;
     }
-     /*<<bytes.ml:523:2>>*/  /*<<bytes.ml:523:2>>*/ caml_bytes_set16
-      /*<<bytes.ml:523:2>>*/ (b, i, caml_bswap16(x));
+     /*<<bytes.ml:523:2>>*/ caml_bytes_set16(b, i, caml_bswap16(x));
     /*<<bytes.ml:523:37>>*/ }
    function set_int16_le(b, i, x){
      /*<<bytes.ml:526:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:526:25>>*/ caml_bytes_set16
-               /*<<bytes.ml:526:25>>*/ (b, i, caml_bswap16(x))
-            :  /*<<bytes.ml:527:7>>*/ caml_bytes_set16
-               /*<<bytes.ml:527:7>>*/ (b, i, x) /*<<bytes.ml:527:25>>*/ ;
-    /*<<bytes.ml:527:25>>*/ }
+            ?  /*<<bytes.ml:526:25>>*/ caml_bytes_set16(b, i, caml_bswap16(x))
+            :  /*<<bytes.ml:527:7>>*/ caml_bytes_set16(b, i, x) /*<<bytes.ml:527:25>>*/ ;
+   }
    function set_int16_be(b, i, x){
      /*<<bytes.ml:530:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:531:7>>*/ caml_bytes_set16
-               /*<<bytes.ml:531:7>>*/ (b, i, x)
-            :  /*<<bytes.ml:530:29>>*/ caml_bytes_set16
-               /*<<bytes.ml:530:29>>*/ (b, i, caml_bswap16(x)) /*<<bytes.ml:531:25>>*/ ;
-    /*<<bytes.ml:531:25>>*/ }
+            ?  /*<<bytes.ml:531:7>>*/ caml_bytes_set16(b, i, x)
+            :  /*<<bytes.ml:530:29>>*/ caml_bytes_set16(b, i, caml_bswap16(x)) /*<<bytes.ml:531:25>>*/ ;
+   }
    function set_int32_le(b, i, x){
      /*<<bytes.ml:534:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:534:25>>*/ caml_bytes_set32
-               /*<<bytes.ml:534:25>>*/ (b,
-               i,
-                /*<<bytes.ml:534:42>>*/ caml_int32_bswap
-                 /*<<bytes.ml:534:42>>*/ (x))
-            :  /*<<bytes.ml:535:7>>*/ caml_bytes_set32
-               /*<<bytes.ml:535:7>>*/ (b, i, x) /*<<bytes.ml:535:25>>*/ ;
-    /*<<bytes.ml:535:25>>*/ }
+              (b, i,  /*<<bytes.ml:534:42>>*/ caml_int32_bswap(x))
+            :  /*<<bytes.ml:535:7>>*/ caml_bytes_set32(b, i, x) /*<<bytes.ml:535:25>>*/ ;
+   }
    function set_int32_be(b, i, x){
      /*<<bytes.ml:538:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:539:7>>*/ caml_bytes_set32
-               /*<<bytes.ml:539:7>>*/ (b, i, x)
+            ?  /*<<bytes.ml:539:7>>*/ caml_bytes_set32(b, i, x)
             :  /*<<bytes.ml:538:29>>*/ caml_bytes_set32
-               /*<<bytes.ml:538:29>>*/ (b,
-               i,
-                /*<<bytes.ml:538:46>>*/ caml_int32_bswap
-                 /*<<bytes.ml:538:46>>*/ (x)) /*<<bytes.ml:539:25>>*/ ;
-    /*<<bytes.ml:539:25>>*/ }
+              (b, i,  /*<<bytes.ml:538:46>>*/ caml_int32_bswap(x)) /*<<bytes.ml:539:25>>*/ ;
+   }
    function set_int64_le(b, i, x){
      /*<<bytes.ml:542:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:542:25>>*/ caml_bytes_set64
-               /*<<bytes.ml:542:25>>*/ (b,
-               i,
-                /*<<bytes.ml:542:42>>*/ caml_int64_bswap
-                 /*<<bytes.ml:542:42>>*/ (x))
-            :  /*<<bytes.ml:543:7>>*/ caml_bytes_set64
-               /*<<bytes.ml:543:7>>*/ (b, i, x) /*<<bytes.ml:543:25>>*/ ;
-    /*<<bytes.ml:543:25>>*/ }
+              (b, i,  /*<<bytes.ml:542:42>>*/ caml_int64_bswap(x))
+            :  /*<<bytes.ml:543:7>>*/ caml_bytes_set64(b, i, x) /*<<bytes.ml:543:25>>*/ ;
+   }
    function set_int64_be(b, i, x){
      /*<<bytes.ml:546:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:547:7>>*/ caml_bytes_set64
-               /*<<bytes.ml:547:7>>*/ (b, i, x)
+            ?  /*<<bytes.ml:547:7>>*/ caml_bytes_set64(b, i, x)
             :  /*<<bytes.ml:546:29>>*/ caml_bytes_set64
-               /*<<bytes.ml:546:29>>*/ (b,
-               i,
-                /*<<bytes.ml:546:46>>*/ caml_int64_bswap
-                 /*<<bytes.ml:546:46>>*/ (x)) /*<<bytes.ml:547:25>>*/ ;
-    /*<<bytes.ml:547:25>>*/ }
+              (b, i,  /*<<bytes.ml:546:46>>*/ caml_int64_bswap(x)) /*<<bytes.ml:547:25>>*/ ;
+   }
    var
     set_uint8 = caml_bytes_set,
     set_uint16_ne = caml_bytes_set16,
@@ -6618,13 +5542,9 @@
     _e_ = [0, cst_bytes_ml, 831, 9],
     _f_ = [0, cst_bytes_ml, 820, 20];
    function dec_ret(n, u){
-    var
-     _l_ =
-        /*<<bytes.ml:557:46>>*/  /*<<bytes.ml:557:46>>*/ caml_call1
-         /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[9], u);
-     /*<<bytes.ml:557:46>>*/ return  /*<<bytes.ml:557:46>>*/ caml_call2
-             /*<<bytes.ml:557:46>>*/ (Stdlib_Uchar[21], n, _l_) /*<<bytes.ml:557:69>>*/ ;
-    /*<<bytes.ml:557:69>>*/ }
+    var _l_ =  /*<<bytes.ml:557:46>>*/ caml_call1(Stdlib_Uchar[9], u);
+    return caml_call2(Stdlib_Uchar[21], n, _l_) /*<<bytes.ml:557:69>>*/ ;
+   }
    function not_in_x80_to_xBF(b){
      /*<<bytes.ml:575:35>>*/ return 2 !== (b >>> 6 | 0) ? 1 : 0;
     /*<<bytes.ml:575:50>>*/ }
@@ -6651,14 +5571,8 @@
     /*<<bytes.ml:594:18>>*/ }
    function get_utf_8_uchar(b, i){
     var
-     b0 =
-        /*<<bytes.ml:597:11>>*/  /*<<bytes.ml:597:11>>*/ caml_bytes_get
-         /*<<bytes.ml:597:11>>*/ (b, i),
-     max =
-        /*<<bytes.ml:599:2>>*/  /*<<bytes.ml:599:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:599:2>>*/ (b)
-       - 1
-       | 0;
+     b0 =  /*<<bytes.ml:597:11>>*/ caml_bytes_get(b, i),
+     max =  /*<<bytes.ml:599:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
     a:
     {
       /*<<bytes.ml:600:2>>*/ if(224 <= b0){
@@ -6668,221 +5582,143 @@
          case 0:
           var i$0 =  /*<<bytes.ml:619:6>>*/ i + 1 | 0;
           if(max < i$0)
-            /*<<bytes.ml:619:39>>*/ return  /*<<bytes.ml:619:39>>*/ caml_call1
-                    /*<<bytes.ml:619:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:619:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$4 = caml_bytes_unsafe_get(b, i$0);
-           /*<<bytes.ml:620:29>>*/ if
-           ( /*<<bytes.ml:620:29>>*/ not_in_x80_to_x9F
-              /*<<bytes.ml:620:29>>*/ (b1$4))
-            /*<<bytes.ml:620:55>>*/ return  /*<<bytes.ml:620:55>>*/ caml_call1
-                    /*<<bytes.ml:620:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
+            /*<<bytes.ml:620:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
           if(max < i$1)
-            /*<<bytes.ml:621:39>>*/ return  /*<<bytes.ml:621:39>>*/ caml_call1
-                    /*<<bytes.ml:621:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:621:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$3 = caml_bytes_unsafe_get(b, i$1);
-           /*<<bytes.ml:622:29>>*/ return  /*<<bytes.ml:622:29>>*/ not_in_x80_to_xBF
-                    /*<<bytes.ml:622:29>>*/ (b2$3)
-                  ?  /*<<bytes.ml:622:55>>*/ caml_call1
-                     /*<<bytes.ml:622:55>>*/ (dec_invalid, 2)
+           /*<<bytes.ml:622:29>>*/ return not_in_x80_to_xBF(b2$3)
+                  ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
                   :  /*<<bytes.ml:623:16>>*/ dec_ret
-                     /*<<bytes.ml:623:16>>*/ (3,
-                      /*<<bytes.ml:623:16>>*/ utf_8_uchar_3
-                       /*<<bytes.ml:623:16>>*/ (b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
+                    (3, utf_8_uchar_3(b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
          case 3:
           var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
           if(max < i$4)
-            /*<<bytes.ml:625:39>>*/ return  /*<<bytes.ml:625:39>>*/ caml_call1
-                    /*<<bytes.ml:625:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:625:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$2 = caml_bytes_unsafe_get(b, i$4);
-           /*<<bytes.ml:626:29>>*/ if
-           ( /*<<bytes.ml:626:29>>*/ not_in_x90_to_xBF
-              /*<<bytes.ml:626:29>>*/ (b1$2))
-            /*<<bytes.ml:626:55>>*/ return  /*<<bytes.ml:626:55>>*/ caml_call1
-                    /*<<bytes.ml:626:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
+            /*<<bytes.ml:626:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
           if(max < i$5)
-            /*<<bytes.ml:627:39>>*/ return  /*<<bytes.ml:627:39>>*/ caml_call1
-                    /*<<bytes.ml:627:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:627:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$1 = caml_bytes_unsafe_get(b, i$5);
-           /*<<bytes.ml:628:29>>*/ if
-           ( /*<<bytes.ml:628:29>>*/ not_in_x80_to_xBF
-              /*<<bytes.ml:628:29>>*/ (b2$1))
-            /*<<bytes.ml:628:55>>*/ return  /*<<bytes.ml:628:55>>*/ caml_call1
-                    /*<<bytes.ml:628:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
+            /*<<bytes.ml:628:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
           if(max < i$6)
-            /*<<bytes.ml:629:39>>*/ return  /*<<bytes.ml:629:39>>*/ caml_call1
-                    /*<<bytes.ml:629:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:629:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$1 = caml_bytes_unsafe_get(b, i$6);
-           /*<<bytes.ml:630:29>>*/ return  /*<<bytes.ml:630:29>>*/ not_in_x80_to_xBF
-                    /*<<bytes.ml:630:29>>*/ (b3$1)
-                  ?  /*<<bytes.ml:630:55>>*/ caml_call1
-                     /*<<bytes.ml:630:55>>*/ (dec_invalid, 3)
+           /*<<bytes.ml:630:29>>*/ return not_in_x80_to_xBF(b3$1)
+                  ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
                   :  /*<<bytes.ml:631:16>>*/ dec_ret
-                     /*<<bytes.ml:631:16>>*/ (4,
-                      /*<<bytes.ml:631:16>>*/ utf_8_uchar_4
-                       /*<<bytes.ml:631:16>>*/ (b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
+                    (4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
          case 7:
           var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
           if(max < i$10)
-            /*<<bytes.ml:641:39>>*/ return  /*<<bytes.ml:641:39>>*/ caml_call1
-                    /*<<bytes.ml:641:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:641:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$0 = caml_bytes_unsafe_get(b, i$10);
-           /*<<bytes.ml:642:29>>*/ if
-           ( /*<<bytes.ml:642:29>>*/ not_in_x80_to_x8F
-              /*<<bytes.ml:642:29>>*/ (b1$0))
-            /*<<bytes.ml:642:55>>*/ return  /*<<bytes.ml:642:55>>*/ caml_call1
-                    /*<<bytes.ml:642:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
+            /*<<bytes.ml:642:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
           if(max < i$11)
-            /*<<bytes.ml:643:39>>*/ return  /*<<bytes.ml:643:39>>*/ caml_call1
-                    /*<<bytes.ml:643:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:643:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2 = caml_bytes_unsafe_get(b, i$11);
-           /*<<bytes.ml:644:29>>*/ if
-           ( /*<<bytes.ml:644:29>>*/ not_in_x80_to_xBF
-              /*<<bytes.ml:644:29>>*/ (b2))
-            /*<<bytes.ml:644:55>>*/ return  /*<<bytes.ml:644:55>>*/ caml_call1
-                    /*<<bytes.ml:644:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
+            /*<<bytes.ml:644:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
           if(max < i$12)
-            /*<<bytes.ml:645:39>>*/ return  /*<<bytes.ml:645:39>>*/ caml_call1
-                    /*<<bytes.ml:645:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:645:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3 = caml_bytes_unsafe_get(b, i$12);
-           /*<<bytes.ml:646:29>>*/ return  /*<<bytes.ml:646:29>>*/ not_in_x80_to_xBF
-                    /*<<bytes.ml:646:29>>*/ (b3)
-                  ?  /*<<bytes.ml:646:55>>*/ caml_call1
-                     /*<<bytes.ml:646:55>>*/ (dec_invalid, 3)
+           /*<<bytes.ml:646:29>>*/ return not_in_x80_to_xBF(b3)
+                  ?  /*<<bytes.ml:646:55>>*/ caml_call1(dec_invalid, 3)
                   :  /*<<bytes.ml:647:16>>*/ dec_ret
-                     /*<<bytes.ml:647:16>>*/ (4,
-                      /*<<bytes.ml:647:16>>*/ utf_8_uchar_4
-                       /*<<bytes.ml:647:16>>*/ (b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
+                    (4, utf_8_uchar_4(b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
          case 1:
          case 2: break;
          default:
           var i$7 =  /*<<bytes.ml:633:6>>*/ i + 1 | 0;
           if(max < i$7)
-            /*<<bytes.ml:633:39>>*/ return  /*<<bytes.ml:633:39>>*/ caml_call1
-                    /*<<bytes.ml:633:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:633:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$1 = caml_bytes_unsafe_get(b, i$7);
-           /*<<bytes.ml:634:29>>*/ if
-           ( /*<<bytes.ml:634:29>>*/ not_in_x80_to_xBF
-              /*<<bytes.ml:634:29>>*/ (b1$1))
-            /*<<bytes.ml:634:55>>*/ return  /*<<bytes.ml:634:55>>*/ caml_call1
-                    /*<<bytes.ml:634:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
+            /*<<bytes.ml:634:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
           if(max < i$8)
-            /*<<bytes.ml:635:39>>*/ return  /*<<bytes.ml:635:39>>*/ caml_call1
-                    /*<<bytes.ml:635:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:635:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$0 = caml_bytes_unsafe_get(b, i$8);
-           /*<<bytes.ml:636:29>>*/ if
-           ( /*<<bytes.ml:636:29>>*/ not_in_x80_to_xBF
-              /*<<bytes.ml:636:29>>*/ (b2$0))
-            /*<<bytes.ml:636:55>>*/ return  /*<<bytes.ml:636:55>>*/ caml_call1
-                    /*<<bytes.ml:636:55>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+           /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
+            /*<<bytes.ml:636:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
           if(max < i$9)
-            /*<<bytes.ml:637:39>>*/ return  /*<<bytes.ml:637:39>>*/ caml_call1
-                    /*<<bytes.ml:637:39>>*/ (dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
+            /*<<bytes.ml:637:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$0 = caml_bytes_unsafe_get(b, i$9);
-           /*<<bytes.ml:638:29>>*/ return  /*<<bytes.ml:638:29>>*/ not_in_x80_to_xBF
-                    /*<<bytes.ml:638:29>>*/ (b3$0)
-                  ?  /*<<bytes.ml:638:55>>*/ caml_call1
-                     /*<<bytes.ml:638:55>>*/ (dec_invalid, 3)
+           /*<<bytes.ml:638:29>>*/ return not_in_x80_to_xBF(b3$0)
+                  ?  /*<<bytes.ml:638:55>>*/ caml_call1(dec_invalid, 3)
                   :  /*<<bytes.ml:639:16>>*/ dec_ret
-                     /*<<bytes.ml:639:16>>*/ (4,
-                      /*<<bytes.ml:639:16>>*/ utf_8_uchar_4
-                       /*<<bytes.ml:639:16>>*/ (b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
+                    (4, utf_8_uchar_4(b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
        }
       }
       else if(225 > b0){
        var i$13 =  /*<<bytes.ml:607:6>>*/ i + 1 | 0;
        if(max < i$13)
-         /*<<bytes.ml:607:39>>*/ return  /*<<bytes.ml:607:39>>*/ caml_call1
-                 /*<<bytes.ml:607:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+         /*<<bytes.ml:607:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var b1$5 = caml_bytes_unsafe_get(b, i$13);
-        /*<<bytes.ml:608:29>>*/ if
-        ( /*<<bytes.ml:608:29>>*/ not_in_xA0_to_xBF
-           /*<<bytes.ml:608:29>>*/ (b1$5))
-         /*<<bytes.ml:608:55>>*/ return  /*<<bytes.ml:608:55>>*/ caml_call1
-                 /*<<bytes.ml:608:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+        /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
+         /*<<bytes.ml:608:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
        if(max < i$14)
-         /*<<bytes.ml:609:39>>*/ return  /*<<bytes.ml:609:39>>*/ caml_call1
-                 /*<<bytes.ml:609:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+         /*<<bytes.ml:609:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
        var b2$4 = caml_bytes_unsafe_get(b, i$14);
-        /*<<bytes.ml:610:29>>*/ return  /*<<bytes.ml:610:29>>*/ not_in_x80_to_xBF
-                 /*<<bytes.ml:610:29>>*/ (b2$4)
-               ?  /*<<bytes.ml:610:55>>*/ caml_call1
-                  /*<<bytes.ml:610:55>>*/ (dec_invalid, 2)
+        /*<<bytes.ml:610:29>>*/ return not_in_x80_to_xBF(b2$4)
+               ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
                :  /*<<bytes.ml:611:16>>*/ dec_ret
-                  /*<<bytes.ml:611:16>>*/ (3,
-                   /*<<bytes.ml:611:16>>*/ utf_8_uchar_3
-                    /*<<bytes.ml:611:16>>*/ (b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
+                 (3, utf_8_uchar_3(b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
       }
       var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
       if(max < i$2)
-        /*<<bytes.ml:613:39>>*/ return  /*<<bytes.ml:613:39>>*/ caml_call1
-                /*<<bytes.ml:613:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+        /*<<bytes.ml:613:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1$3 = caml_bytes_unsafe_get(b, i$2);
-       /*<<bytes.ml:614:29>>*/ if
-       ( /*<<bytes.ml:614:29>>*/ not_in_x80_to_xBF
-          /*<<bytes.ml:614:29>>*/ (b1$3))
-        /*<<bytes.ml:614:55>>*/ return  /*<<bytes.ml:614:55>>*/ caml_call1
-                /*<<bytes.ml:614:55>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+       /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
+        /*<<bytes.ml:614:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
       if(max < i$3)
-        /*<<bytes.ml:615:39>>*/ return  /*<<bytes.ml:615:39>>*/ caml_call1
-                /*<<bytes.ml:615:39>>*/ (dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
+        /*<<bytes.ml:615:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
       var b2$2 = caml_bytes_unsafe_get(b, i$3);
-       /*<<bytes.ml:616:29>>*/ return  /*<<bytes.ml:616:29>>*/ not_in_x80_to_xBF
-                /*<<bytes.ml:616:29>>*/ (b2$2)
-              ?  /*<<bytes.ml:616:55>>*/ caml_call1
-                 /*<<bytes.ml:616:55>>*/ (dec_invalid, 2)
+       /*<<bytes.ml:616:29>>*/ return not_in_x80_to_xBF(b2$2)
+              ?  /*<<bytes.ml:616:55>>*/ caml_call1(dec_invalid, 2)
               :  /*<<bytes.ml:617:16>>*/ dec_ret
-                 /*<<bytes.ml:617:16>>*/ (3,
-                  /*<<bytes.ml:617:16>>*/ utf_8_uchar_3
-                   /*<<bytes.ml:617:16>>*/ (b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
+                (3, utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
      }
      if(128 > b0)
-       /*<<bytes.ml:601:24>>*/ return  /*<<bytes.ml:601:24>>*/ dec_ret
-               /*<<bytes.ml:601:24>>*/ (1, b0) /*<<bytes.ml:648:22>>*/ ;
+       /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0) /*<<bytes.ml:648:22>>*/ ;
      if(194 <= b0){
       var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
       if(max < i$15)
-        /*<<bytes.ml:603:39>>*/ return  /*<<bytes.ml:603:39>>*/ caml_call1
-                /*<<bytes.ml:603:39>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+        /*<<bytes.ml:603:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1 = caml_bytes_unsafe_get(b, i$15);
-       /*<<bytes.ml:604:29>>*/ return  /*<<bytes.ml:604:29>>*/ not_in_x80_to_xBF
-                /*<<bytes.ml:604:29>>*/ (b1)
-              ?  /*<<bytes.ml:604:55>>*/ caml_call1
-                 /*<<bytes.ml:604:55>>*/ (dec_invalid, 1)
-              :  /*<<bytes.ml:605:16>>*/ dec_ret
-                 /*<<bytes.ml:605:16>>*/ (2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
+       /*<<bytes.ml:604:29>>*/ return not_in_x80_to_xBF(b1)
+              ?  /*<<bytes.ml:604:55>>*/ caml_call1(dec_invalid, 1)
+              :  /*<<bytes.ml:605:16>>*/ dec_ret(2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
      }
     }
-     /*<<bytes.ml:648:9>>*/ return  /*<<bytes.ml:648:9>>*/ caml_call1
-             /*<<bytes.ml:648:9>>*/ (dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-    /*<<bytes.ml:648:22>>*/ }
+     /*<<bytes.ml:648:9>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
+   }
    function set_utf_8_uchar(b, i, u){
     function set(_i_, _h_, _g_){
       /*<<?>>*/ caml_bytes_unsafe_set(_i_, _h_, _g_);
     }
     var
-     max =
-        /*<<bytes.ml:652:2>>*/  /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:652:2>>*/ (b)
-       - 1
-       | 0,
-     u$0 =
-        /*<<bytes.ml:653:8>>*/  /*<<bytes.ml:653:8>>*/ caml_call1
-         /*<<bytes.ml:653:8>>*/ (Stdlib_Uchar[10], u);
+     max =  /*<<bytes.ml:652:2>>*/ caml_ml_bytes_length(b) - 1 | 0,
+     u$0 =  /*<<bytes.ml:653:8>>*/ caml_call1(Stdlib_Uchar[10], u);
      /*<<bytes.ml:654:11>>*/ if(0 > u$0)
-      /*<<bytes.ml:654:20>>*/ throw  /*<<bytes.ml:654:20>>*/ caml_maybe_attach_backtrace
-             /*<<bytes.ml:654:20>>*/ ([0, Assert_failure, _b_], 1);
+      /*<<bytes.ml:654:20>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _b_], 1);
      /*<<bytes.ml:655:11>>*/ if(127 >= u$0){
      caml_bytes_set(b, i, u$0);
-      /*<<bytes.ml:656:6>>*/ return 1 /*<<bytes.ml:656:6>>*/ ;
+      /*<<bytes.ml:656:6>>*/ return 1;
     }
      /*<<bytes.ml:658:11>>*/ if(2047 >= u$0){
      var last$1 =  /*<<bytes.ml:659:6>>*/ i + 1 | 0;
@@ -6890,8 +5726,7 @@
              ? 0
              : (caml_bytes_set
                 (b, i, 192 | u$0 >>> 6 | 0),
-                /*<<bytes.ml:662:7>>*/ set
-                 /*<<bytes.ml:662:7>>*/ (b, last$1, 128 | u$0 & 63),
+                /*<<bytes.ml:662:7>>*/ set(b, last$1, 128 | u$0 & 63),
                2) /*<<bytes.ml:679:21>>*/ ;
     }
      /*<<bytes.ml:664:11>>*/ if(65535 >= u$0){
@@ -6901,37 +5736,29 @@
              : (caml_bytes_set
                 (b, i, 224 | u$0 >>> 12 | 0),
                 /*<<bytes.ml:668:7>>*/ set
-                 /*<<bytes.ml:668:7>>*/ (b,
-                 i + 1 | 0,
-                 128 | (u$0 >>> 6 | 0) & 63),
-                /*<<bytes.ml:669:7>>*/ set
-                 /*<<bytes.ml:669:7>>*/ (b, last$0, 128 | u$0 & 63),
+                (b, i + 1 | 0, 128 | (u$0 >>> 6 | 0) & 63),
+                /*<<bytes.ml:669:7>>*/ set(b, last$0, 128 | u$0 & 63),
                3) /*<<bytes.ml:679:21>>*/ ;
     }
      /*<<bytes.ml:671:11>>*/ if(1114111 < u$0)
-      /*<<bytes.ml:679:9>>*/ throw  /*<<bytes.ml:679:9>>*/ caml_maybe_attach_backtrace
-             /*<<bytes.ml:679:9>>*/ ([0, Assert_failure, _a_], 1);
+      /*<<bytes.ml:679:9>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _a_], 1);
     var last =  /*<<bytes.ml:672:6>>*/ i + 3 | 0;
     return max < last
             ? 0
             : (caml_bytes_set
                (b, i, 240 | u$0 >>> 18 | 0),
                /*<<bytes.ml:675:7>>*/ set
-                /*<<bytes.ml:675:7>>*/ (b,
-                i + 1 | 0,
-                128 | (u$0 >>> 12 | 0) & 63),
+               (b, i + 1 | 0, 128 | (u$0 >>> 12 | 0) & 63),
                /*<<bytes.ml:676:7>>*/ set
-                /*<<bytes.ml:676:7>>*/ (b,
-                i + 2 | 0,
-                128 | (u$0 >>> 6 | 0) & 63),
-               /*<<bytes.ml:677:7>>*/ set
-                /*<<bytes.ml:677:7>>*/ (b, last, 128 | u$0 & 63),
+               (b, i + 2 | 0, 128 | (u$0 >>> 6 | 0) & 63),
+               /*<<bytes.ml:677:7>>*/ set(b, last, 128 | u$0 & 63),
               4) /*<<bytes.ml:679:21>>*/ ;
-    /*<<bytes.ml:679:21>>*/ }
+   }
    function is_valid_utf_8(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:683:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:683:20>>*/ return 1 /*<<bytes.ml:683:20>>*/ ;
+     if(max < i)  /*<<bytes.ml:683:20>>*/ return 1;
      var match = caml_bytes_unsafe_get(b, i);
      a:
      {
@@ -6946,16 +5773,16 @@
              &&
               !
                /*<<bytes.ml:710:11>>*/ not_in_x80_to_x9F
-                /*<<bytes.ml:710:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+               (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:711:11>>*/ not_in_x80_to_xBF
-                 /*<<bytes.ml:711:11>>*/ (caml_bytes_unsafe_get(b, last))){
+                (caml_bytes_unsafe_get(b, last))){
             var i$0 =  /*<<bytes.ml:713:13>>*/ last + 1 | 0;
             i = i$0;
             continue;
            }
-            /*<<bytes.ml:712:13>>*/ return 0 /*<<bytes.ml:712:13>>*/ ;
+            /*<<bytes.ml:712:13>>*/ return 0;
           case 3:
            var last$1 =  /*<<bytes.ml:715:8>>*/ i + 3 | 0;
            if
@@ -6963,20 +5790,20 @@
              &&
               !
                /*<<bytes.ml:717:11>>*/ not_in_x90_to_xBF
-                /*<<bytes.ml:717:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+               (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:718:11>>*/ not_in_x80_to_xBF
-                 /*<<bytes.ml:718:11>>*/ (caml_bytes_unsafe_get(b, i + 2 | 0))
+                (caml_bytes_unsafe_get(b, i + 2 | 0))
                &&
                 !
                  /*<<bytes.ml:719:11>>*/ not_in_x80_to_xBF
-                  /*<<bytes.ml:719:11>>*/ (caml_bytes_unsafe_get(b, last$1))){
+                 (caml_bytes_unsafe_get(b, last$1))){
             var i$2 =  /*<<bytes.ml:721:13>>*/ last$1 + 1 | 0;
             i = i$2;
             continue;
            }
-            /*<<bytes.ml:720:13>>*/ return 0 /*<<bytes.ml:720:13>>*/ ;
+            /*<<bytes.ml:720:13>>*/ return 0;
           case 7:
            var last$3 =  /*<<bytes.ml:731:8>>*/ i + 3 | 0;
            if
@@ -6984,20 +5811,20 @@
              &&
               !
                /*<<bytes.ml:733:11>>*/ not_in_x80_to_x8F
-                /*<<bytes.ml:733:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+               (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:734:11>>*/ not_in_x80_to_xBF
-                 /*<<bytes.ml:734:11>>*/ (caml_bytes_unsafe_get(b, i + 2 | 0))
+                (caml_bytes_unsafe_get(b, i + 2 | 0))
                &&
                 !
                  /*<<bytes.ml:735:11>>*/ not_in_x80_to_xBF
-                  /*<<bytes.ml:735:11>>*/ (caml_bytes_unsafe_get(b, last$3))){
+                 (caml_bytes_unsafe_get(b, last$3))){
             var i$4 =  /*<<bytes.ml:737:13>>*/ last$3 + 1 | 0;
             i = i$4;
             continue;
            }
-            /*<<bytes.ml:736:13>>*/ return 0 /*<<bytes.ml:736:13>>*/ ;
+            /*<<bytes.ml:736:13>>*/ return 0;
           case 1:
           case 2: break;
           default:
@@ -7007,20 +5834,20 @@
              &&
               !
                /*<<bytes.ml:725:11>>*/ not_in_x80_to_xBF
-                /*<<bytes.ml:725:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+               (caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:726:11>>*/ not_in_x80_to_xBF
-                 /*<<bytes.ml:726:11>>*/ (caml_bytes_unsafe_get(b, i + 2 | 0))
+                (caml_bytes_unsafe_get(b, i + 2 | 0))
                &&
                 !
                  /*<<bytes.ml:727:11>>*/ not_in_x80_to_xBF
-                  /*<<bytes.ml:727:11>>*/ (caml_bytes_unsafe_get(b, last$2))){
+                 (caml_bytes_unsafe_get(b, last$2))){
             var i$3 =  /*<<bytes.ml:729:13>>*/ last$2 + 1 | 0;
             i = i$3;
             continue;
            }
-            /*<<bytes.ml:728:13>>*/ return 0 /*<<bytes.ml:728:13>>*/ ;
+            /*<<bytes.ml:728:13>>*/ return 0;
         }
        }
        else if(225 > match){
@@ -7030,16 +5857,16 @@
           &&
            !
             /*<<bytes.ml:696:11>>*/ not_in_xA0_to_xBF
-             /*<<bytes.ml:696:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+            (caml_bytes_unsafe_get(b, i + 1 | 0))
            &&
             !
              /*<<bytes.ml:697:11>>*/ not_in_x80_to_xBF
-              /*<<bytes.ml:697:11>>*/ (caml_bytes_unsafe_get(b, last$4))){
+             (caml_bytes_unsafe_get(b, last$4))){
          var i$5 =  /*<<bytes.ml:699:13>>*/ last$4 + 1 | 0;
          i = i$5;
          continue;
         }
-         /*<<bytes.ml:698:13>>*/ return 0 /*<<bytes.ml:698:13>>*/ ;
+         /*<<bytes.ml:698:13>>*/ return 0;
        }
        var last$0 =  /*<<bytes.ml:701:8>>*/ i + 2 | 0;
        if
@@ -7047,16 +5874,16 @@
          &&
           !
            /*<<bytes.ml:703:11>>*/ not_in_x80_to_xBF
-            /*<<bytes.ml:703:11>>*/ (caml_bytes_unsafe_get(b, i + 1 | 0))
+           (caml_bytes_unsafe_get(b, i + 1 | 0))
           &&
            !
             /*<<bytes.ml:704:11>>*/ not_in_x80_to_xBF
-             /*<<bytes.ml:704:11>>*/ (caml_bytes_unsafe_get(b, last$0))){
+            (caml_bytes_unsafe_get(b, last$0))){
         var i$1 =  /*<<bytes.ml:706:13>>*/ last$0 + 1 | 0;
         i = i$1;
         continue;
        }
-        /*<<bytes.ml:705:13>>*/ return 0 /*<<bytes.ml:705:13>>*/ ;
+        /*<<bytes.ml:705:13>>*/ return 0;
       }
       if(128 > match){
        var i$7 =  /*<<bytes.ml:686:26>>*/ i + 1 | 0;
@@ -7070,236 +5897,164 @@
          &&
           !
            /*<<bytes.ml:690:11>>*/ not_in_x80_to_xBF
-            /*<<bytes.ml:690:11>>*/ (caml_bytes_unsafe_get(b, last$5))){
+           (caml_bytes_unsafe_get(b, last$5))){
         var i$6 =  /*<<bytes.ml:692:13>>*/ last$5 + 1 | 0;
         i = i$6;
         continue;
        }
-        /*<<bytes.ml:691:13>>*/ return 0 /*<<bytes.ml:691:13>>*/ ;
+        /*<<bytes.ml:691:13>>*/ return 0;
       }
      }
-      /*<<bytes.ml:738:11>>*/ return 0 /*<<bytes.ml:738:11>>*/ ;
+      /*<<bytes.ml:738:11>>*/ return 0;
     }
     /*<<bytes.ml:740:25>>*/ }
    function get_utf_16be_uchar(b, i){
-    var
-     max =
-        /*<<bytes.ml:746:2>>*/  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:746:2>>*/ (b)
-       - 1
-       | 0;
+    var max =  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
      if(i === max)
-       /*<<bytes.ml:748:18>>*/ return  /*<<bytes.ml:748:18>>*/ caml_call1
-               /*<<bytes.ml:748:18>>*/ (dec_invalid, 1) /*<<bytes.ml:759:21>>*/ ;
-     var
-      hi =
-         /*<<bytes.ml:749:8>>*/  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be
-          /*<<bytes.ml:749:8>>*/ (b, i);
+       /*<<bytes.ml:748:18>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:759:21>>*/ ;
+     var hi =  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
-        /*<<bytes.ml:751:25>>*/ return  /*<<bytes.ml:751:25>>*/ caml_call1
-                /*<<bytes.ml:751:25>>*/ (dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
+        /*<<bytes.ml:751:25>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
       var last =  /*<<bytes.ml:753:6>>*/ i + 3 | 0;
       if(max < last)
        return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:759:21>>*/ ;
-      var
-       lo =
-          /*<<bytes.ml:755:12>>*/  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be
-           /*<<bytes.ml:755:12>>*/ (b, i + 2 | 0);
+      var lo =  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
-        /*<<bytes.ml:759:10>>*/ return  /*<<bytes.ml:759:10>>*/ dec_ret
-                /*<<bytes.ml:759:10>>*/ (4, u) /*<<bytes.ml:759:21>>*/ ;
+        /*<<bytes.ml:759:10>>*/ return dec_ret(4, u) /*<<bytes.ml:759:21>>*/ ;
       }
-       /*<<bytes.ml:756:43>>*/ return  /*<<bytes.ml:756:43>>*/ caml_call1
-               /*<<bytes.ml:756:43>>*/ (dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
+       /*<<bytes.ml:756:43>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
      }
-      /*<<bytes.ml:750:39>>*/ return  /*<<bytes.ml:750:39>>*/ dec_ret
-              /*<<bytes.ml:750:39>>*/ (2, hi) /*<<bytes.ml:759:21>>*/ ;
+      /*<<bytes.ml:750:39>>*/ return dec_ret(2, hi) /*<<bytes.ml:759:21>>*/ ;
     }
-     /*<<bytes.ml:747:27>>*/ return  /*<<bytes.ml:747:27>>*/ caml_call1
-             /*<<bytes.ml:747:27>>*/ (Stdlib[1], cst_index_out_of_bounds) /*<<bytes.ml:759:21>>*/ ;
-    /*<<bytes.ml:759:21>>*/ }
+     /*<<bytes.ml:747:27>>*/ return caml_call1
+            (Stdlib[1], cst_index_out_of_bounds) /*<<bytes.ml:759:21>>*/ ;
+   }
    function set_utf_16be_uchar(b, i, u){
-    var
-     max =
-        /*<<bytes.ml:763:2>>*/  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:763:2>>*/ (b)
-       - 1
-       | 0;
+    var max =  /*<<bytes.ml:763:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:764:2>>*/ if(0 <= i && max >= i){
-     var
-      u$0 =
-         /*<<bytes.ml:765:8>>*/  /*<<bytes.ml:765:8>>*/ caml_call1
-          /*<<bytes.ml:765:8>>*/ (Stdlib_Uchar[10], u);
+     var u$0 =  /*<<bytes.ml:765:8>>*/ caml_call1(Stdlib_Uchar[10], u);
       /*<<bytes.ml:766:11>>*/ if(0 > u$0)
-       /*<<bytes.ml:766:20>>*/ throw  /*<<bytes.ml:766:20>>*/ caml_maybe_attach_backtrace
-              /*<<bytes.ml:766:20>>*/ ([0, Assert_failure, _d_], 1);
+       /*<<bytes.ml:766:20>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:768:6>>*/ i + 1 | 0;
       return max < last$0
               ? 0
-              : ( /*<<bytes.ml:769:33>>*/ unsafe_set_uint16_be
-                  /*<<bytes.ml:769:33>>*/ (b, i, u$0),
-                2) /*<<bytes.ml:777:21>>*/ ;
+              : ( /*<<bytes.ml:769:33>>*/ unsafe_set_uint16_be(b, i, u$0), 2) /*<<bytes.ml:777:21>>*/ ;
      }
       /*<<bytes.ml:770:11>>*/ if(1114111 < u$0)
-       /*<<bytes.ml:777:9>>*/ throw  /*<<bytes.ml:777:9>>*/ caml_maybe_attach_backtrace
-              /*<<bytes.ml:777:9>>*/ ([0, Assert_failure, _c_], 1);
+       /*<<bytes.ml:777:9>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _c_], 1);
      var last =  /*<<bytes.ml:771:6>>*/ i + 3 | 0;
-     if(max < last)
-       /*<<bytes.ml:772:25>>*/ return 0 /*<<bytes.ml:772:25>>*/ ;
+     if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
      var
       u$1 =  /*<<bytes.ml:773:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
-      /*<<bytes.ml:776:6>>*/  /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be
-       /*<<bytes.ml:776:6>>*/ (b, i, hi);
-      /*<<bytes.ml:776:18>>*/  /*<<bytes.ml:776:18>>*/ unsafe_set_uint16_be
-       /*<<bytes.ml:776:18>>*/ (b, i + 2 | 0, lo);
-      /*<<bytes.ml:776:18>>*/ return 4 /*<<bytes.ml:776:18>>*/ ;
-    }
-     /*<<bytes.ml:764:27>>*/ return  /*<<bytes.ml:764:27>>*/ caml_call1
-             /*<<bytes.ml:764:27>>*/ (Stdlib[1], cst_index_out_of_bounds$0) /*<<bytes.ml:777:21>>*/ ;
-    /*<<bytes.ml:777:21>>*/ }
+      /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be(b, i, hi);
+      /*<<bytes.ml:776:18>>*/ unsafe_set_uint16_be(b, i + 2 | 0, lo);
+     return 4;
+    }
+     /*<<bytes.ml:764:27>>*/ return caml_call1
+            (Stdlib[1], cst_index_out_of_bounds$0) /*<<bytes.ml:777:21>>*/ ;
+   }
    function is_valid_utf_16be(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:781:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:782:20>>*/ return 1 /*<<bytes.ml:782:20>>*/ ;
-     if(i === max)  /*<<bytes.ml:783:20>>*/ return 0 /*<<bytes.ml:783:20>>*/ ;
-     var
-      u =
-         /*<<bytes.ml:784:10>>*/  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be
-          /*<<bytes.ml:784:10>>*/ (b, i);
+     if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
+     if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
+     var u =  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
-        /*<<bytes.ml:786:27>>*/ return 0 /*<<bytes.ml:786:27>>*/ ;
+        /*<<bytes.ml:786:27>>*/ return 0;
       var last =  /*<<bytes.ml:788:8>>*/ i + 3 | 0;
-      if(max < last)
-        /*<<bytes.ml:789:27>>*/ return 0 /*<<bytes.ml:789:27>>*/ ;
-      var
-       u$0 =
-          /*<<bytes.ml:790:14>>*/  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be
-           /*<<bytes.ml:790:14>>*/ (b, i + 2 | 0);
+      if(max < last)  /*<<bytes.ml:789:27>>*/ return 0;
+      var u$0 =  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:792:17>>*/ i + 4 | 0;
        i = i$1;
        continue;
       }
-       /*<<bytes.ml:791:45>>*/ return 0 /*<<bytes.ml:791:45>>*/ ;
+       /*<<bytes.ml:791:45>>*/ return 0;
      }
      var i$0 =  /*<<bytes.ml:785:41>>*/ i + 2 | 0;
      i = i$0;
     }
     /*<<bytes.ml:794:25>>*/ }
    function get_utf_16le_uchar(b, i){
-    var
-     max =
-        /*<<bytes.ml:800:2>>*/  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:800:2>>*/ (b)
-       - 1
-       | 0;
+    var max =  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
      if(i === max)
-       /*<<bytes.ml:802:18>>*/ return  /*<<bytes.ml:802:18>>*/ caml_call1
-               /*<<bytes.ml:802:18>>*/ (dec_invalid, 1) /*<<bytes.ml:813:21>>*/ ;
-     var
-      hi =
-         /*<<bytes.ml:803:8>>*/  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le
-          /*<<bytes.ml:803:8>>*/ (b, i);
+       /*<<bytes.ml:802:18>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:813:21>>*/ ;
+     var hi =  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
-        /*<<bytes.ml:805:25>>*/ return  /*<<bytes.ml:805:25>>*/ caml_call1
-                /*<<bytes.ml:805:25>>*/ (dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
+        /*<<bytes.ml:805:25>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
       var last =  /*<<bytes.ml:807:6>>*/ i + 3 | 0;
       if(max < last)
        return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:813:21>>*/ ;
-      var
-       lo =
-          /*<<bytes.ml:809:12>>*/  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le
-           /*<<bytes.ml:809:12>>*/ (b, i + 2 | 0);
+      var lo =  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
        var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
-        /*<<bytes.ml:813:10>>*/ return  /*<<bytes.ml:813:10>>*/ dec_ret
-                /*<<bytes.ml:813:10>>*/ (4, u) /*<<bytes.ml:813:21>>*/ ;
+        /*<<bytes.ml:813:10>>*/ return dec_ret(4, u) /*<<bytes.ml:813:21>>*/ ;
       }
-       /*<<bytes.ml:810:43>>*/ return  /*<<bytes.ml:810:43>>*/ caml_call1
-               /*<<bytes.ml:810:43>>*/ (dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
+       /*<<bytes.ml:810:43>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
      }
-      /*<<bytes.ml:804:39>>*/ return  /*<<bytes.ml:804:39>>*/ dec_ret
-              /*<<bytes.ml:804:39>>*/ (2, hi) /*<<bytes.ml:813:21>>*/ ;
+      /*<<bytes.ml:804:39>>*/ return dec_ret(2, hi) /*<<bytes.ml:813:21>>*/ ;
     }
-     /*<<bytes.ml:801:27>>*/ return  /*<<bytes.ml:801:27>>*/ caml_call1
-             /*<<bytes.ml:801:27>>*/ (Stdlib[1], cst_index_out_of_bounds$1) /*<<bytes.ml:813:21>>*/ ;
-    /*<<bytes.ml:813:21>>*/ }
+     /*<<bytes.ml:801:27>>*/ return caml_call1
+            (Stdlib[1], cst_index_out_of_bounds$1) /*<<bytes.ml:813:21>>*/ ;
+   }
    function set_utf_16le_uchar(b, i, u){
-    var
-     max =
-        /*<<bytes.ml:817:2>>*/  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length
-         /*<<bytes.ml:817:2>>*/ (b)
-       - 1
-       | 0;
+    var max =  /*<<bytes.ml:817:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:818:2>>*/ if(0 <= i && max >= i){
-     var
-      u$0 =
-         /*<<bytes.ml:819:8>>*/  /*<<bytes.ml:819:8>>*/ caml_call1
-          /*<<bytes.ml:819:8>>*/ (Stdlib_Uchar[10], u);
+     var u$0 =  /*<<bytes.ml:819:8>>*/ caml_call1(Stdlib_Uchar[10], u);
       /*<<bytes.ml:820:11>>*/ if(0 > u$0)
-       /*<<bytes.ml:820:20>>*/ throw  /*<<bytes.ml:820:20>>*/ caml_maybe_attach_backtrace
-              /*<<bytes.ml:820:20>>*/ ([0, Assert_failure, _f_], 1);
+       /*<<bytes.ml:820:20>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:822:6>>*/ i + 1 | 0;
       return max < last$0
               ? 0
-              : ( /*<<bytes.ml:823:33>>*/ unsafe_set_uint16_le
-                  /*<<bytes.ml:823:33>>*/ (b, i, u$0),
-                2) /*<<bytes.ml:831:21>>*/ ;
+              : ( /*<<bytes.ml:823:33>>*/ unsafe_set_uint16_le(b, i, u$0), 2) /*<<bytes.ml:831:21>>*/ ;
      }
       /*<<bytes.ml:824:11>>*/ if(1114111 < u$0)
-       /*<<bytes.ml:831:9>>*/ throw  /*<<bytes.ml:831:9>>*/ caml_maybe_attach_backtrace
-              /*<<bytes.ml:831:9>>*/ ([0, Assert_failure, _e_], 1);
+       /*<<bytes.ml:831:9>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _e_], 1);
      var last =  /*<<bytes.ml:825:6>>*/ i + 3 | 0;
-     if(max < last)
-       /*<<bytes.ml:826:25>>*/ return 0 /*<<bytes.ml:826:25>>*/ ;
+     if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
      var
       u$1 =  /*<<bytes.ml:827:6>>*/ u$0 - 65536 | 0,
       hi = 55296 | u$1 >>> 10 | 0,
       lo = 56320 | u$1 & 1023;
-      /*<<bytes.ml:830:6>>*/  /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le
-       /*<<bytes.ml:830:6>>*/ (b, i, hi);
-      /*<<bytes.ml:830:18>>*/  /*<<bytes.ml:830:18>>*/ unsafe_set_uint16_le
-       /*<<bytes.ml:830:18>>*/ (b, i + 2 | 0, lo);
-      /*<<bytes.ml:830:18>>*/ return 4 /*<<bytes.ml:830:18>>*/ ;
-    }
-     /*<<bytes.ml:818:27>>*/ return  /*<<bytes.ml:818:27>>*/ caml_call1
-             /*<<bytes.ml:818:27>>*/ (Stdlib[1], cst_index_out_of_bounds$2) /*<<bytes.ml:831:21>>*/ ;
-    /*<<bytes.ml:831:21>>*/ }
+      /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le(b, i, hi);
+      /*<<bytes.ml:830:18>>*/ unsafe_set_uint16_le(b, i + 2 | 0, lo);
+     return 4;
+    }
+     /*<<bytes.ml:818:27>>*/ return caml_call1
+            (Stdlib[1], cst_index_out_of_bounds$2) /*<<bytes.ml:831:21>>*/ ;
+   }
    function is_valid_utf_16le(b){
     var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:835:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:836:20>>*/ return 1 /*<<bytes.ml:836:20>>*/ ;
-     if(i === max)  /*<<bytes.ml:837:20>>*/ return 0 /*<<bytes.ml:837:20>>*/ ;
-     var
-      u =
-         /*<<bytes.ml:838:10>>*/  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le
-          /*<<bytes.ml:838:10>>*/ (b, i);
+     if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
+     if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
+     var u =  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
-        /*<<bytes.ml:840:27>>*/ return 0 /*<<bytes.ml:840:27>>*/ ;
+        /*<<bytes.ml:840:27>>*/ return 0;
       var last =  /*<<bytes.ml:842:8>>*/ i + 3 | 0;
-      if(max < last)
-        /*<<bytes.ml:843:27>>*/ return 0 /*<<bytes.ml:843:27>>*/ ;
-      var
-       u$0 =
-          /*<<bytes.ml:844:14>>*/  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le
-           /*<<bytes.ml:844:14>>*/ (b, i + 2 | 0);
+      if(max < last)  /*<<bytes.ml:843:27>>*/ return 0;
+      var u$0 =  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:846:17>>*/ i + 4 | 0;
        i = i$1;
        continue;
       }
-       /*<<bytes.ml:845:45>>*/ return 0 /*<<bytes.ml:845:45>>*/ ;
+       /*<<bytes.ml:845:45>>*/ return 0;
      }
      var i$0 =  /*<<bytes.ml:839:41>>*/ i + 2 | 0;
      i = i$0;
@@ -7406,16 +6161,15 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst$0 =  /*<<?>>*/ "",
-    caml_blit_string =  /*<<?>>*/ runtime.caml_blit_string,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
-    caml_string_equal =  /*<<?>>*/ runtime.caml_string_equal,
-    caml_string_hash =  /*<<?>>*/ runtime.caml_string_hash,
-    caml_string_unsafe_get =  /*<<?>>*/ runtime.caml_string_unsafe_get,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst$0 = "",
+    caml_blit_string = runtime.caml_blit_string,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length = runtime.caml_ml_string_length,
+    caml_string_equal = runtime.caml_string_equal,
+    caml_string_hash = runtime.caml_string_hash,
+    caml_string_unsafe_get = runtime.caml_string_unsafe_get,
+    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)
@@ -7440,34 +6194,24 @@
     bts = Stdlib_Bytes[44],
     bos = Stdlib_Bytes[45];
    function make(n, c){
-     /*<<string.ml:36:2>>*/ return  /*<<string.ml:36:2>>*/ caml_call1
-             /*<<string.ml:36:2>>*/ (bts,
-              /*<<string.ml:36:2>>*/ caml_call2
-               /*<<string.ml:36:2>>*/ (Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
-    /*<<string.ml:36:19>>*/ }
+     /*<<string.ml:36:2>>*/ return caml_call1
+            (bts, caml_call2(Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
+   }
    function init(n, f){
-     /*<<string.ml:38:2>>*/ return  /*<<string.ml:38:2>>*/ caml_call1
-             /*<<string.ml:38:2>>*/ (bts,
-              /*<<string.ml:38:2>>*/ caml_call2
-               /*<<string.ml:38:2>>*/ (Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
-    /*<<string.ml:38:19>>*/ }
+     /*<<string.ml:38:2>>*/ return caml_call1
+            (bts, caml_call2(Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
+   }
    var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
-    var
-     _X_ =
-        /*<<string.ml:43:8>>*/  /*<<string.ml:43:8>>*/ caml_call1
-         /*<<string.ml:43:8>>*/ (bos, s);
-     /*<<string.ml:43:2>>*/ return  /*<<string.ml:43:2>>*/ caml_call1
-             /*<<string.ml:43:2>>*/ (bts,
-              /*<<string.ml:43:2>>*/ caml_call3
-               /*<<string.ml:43:2>>*/ (Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
-    /*<<string.ml:43:30>>*/ }
+    var _X_ =  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
+     /*<<string.ml:43:2>>*/ return caml_call1
+            (bts, caml_call3(Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
+   }
    var
     blit =  /*<<string.ml:42:8>>*/ Stdlib_Bytes[12],
     cst_String_concat = "String.concat";
    function concat(sep, l){
-     /*<<string.ml:63:11>>*/ if(! l)
-      /*<<string.ml:64:10>>*/ return cst /*<<string.ml:64:10>>*/ ;
+     /*<<string.ml:63:11>>*/ if(! l)  /*<<string.ml:64:10>>*/ return cst;
     var seplen = caml_ml_string_length(sep);
     a:
     {
@@ -7484,8 +6228,7 @@
         acc$0 =
           acc <= x
            ? x
-           :  /*<<string.ml:47:48>>*/ caml_call1
-              /*<<string.ml:47:48>>*/ (Stdlib[1], cst_String_concat);
+           :  /*<<string.ml:47:48>>*/ caml_call1(Stdlib[1], cst_String_concat);
        acc = acc$0;
        param = tl;
       }
@@ -7495,9 +6238,7 @@
      var _W_ = caml_ml_string_length(hd) + acc | 0;
     }
     var
-     dst =
-        /*<<string.ml:67:12>>*/  /*<<string.ml:67:12>>*/ runtime.caml_create_bytes
-         /*<<string.ml:67:12>>*/ (_W_),
+     dst =  /*<<string.ml:67:12>>*/ runtime.caml_create_bytes(_W_),
      pos = pos$1,
      param$0 = l;
      /*<<string.ml:54:21>>*/ for(;;){
@@ -7505,35 +6246,21 @@
       var hd$0 = param$0[1];
       if(param$0[2]){
        var tl$0 = param$0[2];
-        /*<<string.ml:59:4>>*/  /*<<string.ml:59:4>>*/ caml_blit_string
-         /*<<string.ml:59:4>>*/ (hd$0,
-         0,
-         dst,
-         pos,
-          /*<<string.ml:59:4>>*/ caml_ml_string_length
-           /*<<string.ml:59:4>>*/ (hd$0));
-        /*<<string.ml:60:4>>*/  /*<<string.ml:60:4>>*/ caml_blit_string
-         /*<<string.ml:60:4>>*/ (sep,
-         0,
-         dst,
-         pos + caml_ml_string_length(hd$0) | 0,
-         seplen);
+        /*<<string.ml:59:4>>*/ caml_blit_string
+        (hd$0, 0, dst, pos, caml_ml_string_length(hd$0));
+        /*<<string.ml:60:4>>*/ caml_blit_string
+        (sep, 0, dst, pos + caml_ml_string_length(hd$0) | 0, seplen);
        var pos$0 = (pos + caml_ml_string_length(hd$0) | 0) + seplen | 0;
        pos = pos$0;
        param$0 = tl$0;
        continue;
       }
-       /*<<string.ml:57:4>>*/  /*<<string.ml:57:4>>*/ caml_blit_string
-        /*<<string.ml:57:4>>*/ (hd$0,
-        0,
-        dst,
-        pos,
-        caml_ml_string_length(hd$0));
+       /*<<string.ml:57:4>>*/ caml_blit_string
+       (hd$0, 0, dst, pos, caml_ml_string_length(hd$0));
      }
-      /*<<string.ml:66:10>>*/ return  /*<<string.ml:66:10>>*/ caml_call1
-              /*<<string.ml:66:10>>*/ (bts, dst) /*<<string.ml:68:26>>*/ ;
+      /*<<string.ml:66:10>>*/ return caml_call1(bts, dst) /*<<string.ml:68:26>>*/ ;
     }
-    /*<<string.ml:68:26>>*/ }
+   }
    var
     cat =  /*<<string.ml:63:11>>*/ Stdlib[28],
     cst_String_index_from_Bytes_in = "String.index_from / Bytes.index_from",
@@ -7553,9 +6280,8 @@
     if(_U_ >= 0){
      var i = _T_;
      for(;;){
-       /*<<string.ml:74:31>>*/  /*<<string.ml:74:31>>*/ caml_call1
-        /*<<string.ml:74:31>>*/ (f, caml_string_unsafe_get(s, i));
-      var _V_ =  /*<<string.ml:74:31>>*/ i + 1 | 0;
+       /*<<string.ml:74:31>>*/ caml_call1(f, caml_string_unsafe_get(s, i));
+      var _V_ = i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -7569,9 +6295,8 @@
     if(_R_ >= 0){
      var i = _Q_;
      for(;;){
-       /*<<string.ml:78:31>>*/  /*<<string.ml:78:31>>*/ caml_call2
-        /*<<string.ml:78:31>>*/ (f, i, caml_string_unsafe_get(s, i));
-      var _S_ =  /*<<string.ml:78:31>>*/ i + 1 | 0;
+       /*<<string.ml:78:31>>*/ caml_call2(f, i, caml_string_unsafe_get(s, i));
+      var _S_ = i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
@@ -7579,274 +6304,200 @@
     return 0;
     /*<<string.ml:78:56>>*/ }
    function map(f, s){
-    var
-     _P_ =
-        /*<<string.ml:81:10>>*/  /*<<string.ml:81:10>>*/ caml_call1
-         /*<<string.ml:81:10>>*/ (bos, s);
-     /*<<string.ml:81:2>>*/ return  /*<<string.ml:81:2>>*/ caml_call1
-             /*<<string.ml:81:2>>*/ (bts,
-              /*<<string.ml:81:2>>*/ caml_call2
-               /*<<string.ml:81:2>>*/ (Stdlib_Bytes[17], f, _P_)) /*<<string.ml:81:24>>*/ ;
-    /*<<string.ml:81:24>>*/ }
+    var _P_ =  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
+     /*<<string.ml:81:2>>*/ return caml_call1
+            (bts, caml_call2(Stdlib_Bytes[17], f, _P_)) /*<<string.ml:81:24>>*/ ;
+   }
    function mapi(f, s){
-    var
-     _O_ =
-        /*<<string.ml:83:11>>*/  /*<<string.ml:83:11>>*/ caml_call1
-         /*<<string.ml:83:11>>*/ (bos, s);
-     /*<<string.ml:83:2>>*/ return  /*<<string.ml:83:2>>*/ caml_call1
-             /*<<string.ml:83:2>>*/ (bts,
-              /*<<string.ml:83:2>>*/ caml_call2
-               /*<<string.ml:83:2>>*/ (Stdlib_Bytes[18], f, _O_)) /*<<string.ml:83:25>>*/ ;
-    /*<<string.ml:83:25>>*/ }
+    var _O_ =  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
+     /*<<string.ml:83:2>>*/ return caml_call1
+            (bts, caml_call2(Stdlib_Bytes[18], f, _O_)) /*<<string.ml:83:25>>*/ ;
+   }
    function fold_right(f, x, a){
-    var
-     _N_ =
-        /*<<string.ml:85:17>>*/  /*<<string.ml:85:17>>*/ caml_call1
-         /*<<string.ml:85:17>>*/ (bos, x);
-     /*<<string.ml:85:2>>*/ return  /*<<string.ml:85:2>>*/ caml_call3
-             /*<<string.ml:85:2>>*/ (Stdlib_Bytes[20], f, _N_, a) /*<<string.ml:85:26>>*/ ;
-    /*<<string.ml:85:26>>*/ }
+    var _N_ =  /*<<string.ml:85:17>>*/ caml_call1(bos, x);
+     /*<<string.ml:85:2>>*/ return caml_call3(Stdlib_Bytes[20], f, _N_, a) /*<<string.ml:85:26>>*/ ;
+   }
    function fold_left(f, a, x){
-    var
-     _M_ =
-        /*<<string.ml:87:18>>*/  /*<<string.ml:87:18>>*/ caml_call1
-         /*<<string.ml:87:18>>*/ (bos, x);
-     /*<<string.ml:87:18>>*/ return  /*<<string.ml:87:18>>*/ caml_call3
-             /*<<string.ml:87:18>>*/ (Stdlib_Bytes[19], f, a, _M_) /*<<string.ml:87:25>>*/ ;
-    /*<<string.ml:87:25>>*/ }
+    var _M_ =  /*<<string.ml:87:18>>*/ caml_call1(bos, x);
+    return caml_call3(Stdlib_Bytes[19], f, a, _M_) /*<<string.ml:87:25>>*/ ;
+   }
    function exists(f, s){
-    var
-     _L_ =
-        /*<<string.ml:89:13>>*/  /*<<string.ml:89:13>>*/ caml_call1
-         /*<<string.ml:89:13>>*/ (bos, s);
-     /*<<string.ml:89:13>>*/ return  /*<<string.ml:89:13>>*/ caml_call2
-             /*<<string.ml:89:13>>*/ (Stdlib_Bytes[22], f, _L_) /*<<string.ml:89:20>>*/ ;
-    /*<<string.ml:89:20>>*/ }
+    var _L_ =  /*<<string.ml:89:13>>*/ caml_call1(bos, s);
+    return caml_call2(Stdlib_Bytes[22], f, _L_) /*<<string.ml:89:20>>*/ ;
+   }
    function for_all(f, s){
-    var
-     _K_ =
-        /*<<string.ml:91:14>>*/  /*<<string.ml:91:14>>*/ caml_call1
-         /*<<string.ml:91:14>>*/ (bos, s);
-     /*<<string.ml:91:14>>*/ return  /*<<string.ml:91:14>>*/ caml_call2
-             /*<<string.ml:91:14>>*/ (Stdlib_Bytes[21], f, _K_) /*<<string.ml:91:21>>*/ ;
-    /*<<string.ml:91:21>>*/ }
+    var _K_ =  /*<<string.ml:91:14>>*/ caml_call1(bos, s);
+    return caml_call2(Stdlib_Bytes[21], f, _K_) /*<<string.ml:91:21>>*/ ;
+   }
    function is_space(param){
     var _J_ =  /*<<string.ml:97:15>>*/ param - 9 | 0;
     a:
     {
      if(4 < _J_ >>> 0){if(23 !== _J_) break a;} else if(2 === _J_) break a;
-      /*<<string.ml:98:41>>*/ return 1 /*<<string.ml:98:41>>*/ ;
+      /*<<string.ml:98:41>>*/ return 1;
     }
-     /*<<string.ml:99:9>>*/ return 0 /*<<string.ml:99:9>>*/ ;
+     /*<<string.ml:99:9>>*/ return 0;
     /*<<string.ml:99:14>>*/ }
    function trim(s){
      /*<<string.ml:102:2>>*/ if(s === cst$0)
-      /*<<string.ml:102:17>>*/ return s /*<<string.ml:102:17>>*/ ;
+      /*<<string.ml:102:17>>*/ return s;
      /*<<string.ml:103:10>>*/ if
      (!
-       /*<<string.ml:103:10>>*/ is_space
-        /*<<string.ml:103:10>>*/ (caml_string_unsafe_get(s, 0))
+      is_space(caml_string_unsafe_get(s, 0))
       &&
        !
         /*<<string.ml:103:39>>*/ is_space
-         /*<<string.ml:103:39>>*/ (caml_string_unsafe_get
-          (s, caml_ml_string_length(s) - 1 | 0)))
-      /*<<string.ml:105:7>>*/ return s /*<<string.ml:105:7>>*/ ;
-    var
-     _I_ =
-        /*<<string.ml:104:21>>*/  /*<<string.ml:104:21>>*/ caml_call1
-         /*<<string.ml:104:21>>*/ (bos, s);
-     /*<<string.ml:104:13>>*/ return  /*<<string.ml:104:13>>*/ caml_call1
-             /*<<string.ml:104:13>>*/ (bts,
-              /*<<string.ml:104:13>>*/ caml_call1
-               /*<<string.ml:104:13>>*/ (Stdlib_Bytes[23], _I_)) /*<<string.ml:105:8>>*/ ;
-    /*<<string.ml:105:8>>*/ }
+        (caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
+      /*<<string.ml:105:7>>*/ return s;
+    var _I_ =  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
+     /*<<string.ml:104:13>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[23], _I_)) /*<<string.ml:105:8>>*/ ;
+   }
    function escaped(s){
-    var
-     b =
-        /*<<string.ml:108:10>>*/  /*<<string.ml:108:10>>*/ caml_call1
-         /*<<string.ml:108:10>>*/ (bos, s);
-     /*<<string.ml:111:6>>*/ return  /*<<string.ml:111:6>>*/ caml_call1
-             /*<<string.ml:111:6>>*/ (bts,
-              /*<<string.ml:111:6>>*/ caml_call1
-               /*<<string.ml:111:6>>*/ (Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
-    /*<<string.ml:111:25>>*/ }
+    var b =  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
+     /*<<string.ml:111:6>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
+   }
    function index_rec(s, lim, i, c){
     var i$0 = i;
      /*<<string.ml:115:2>>*/ for(;;){
      if(lim <= i$0)
-       /*<<string.ml:115:19>>*/ throw  /*<<string.ml:115:19>>*/ caml_maybe_attach_backtrace
-              /*<<string.ml:115:19>>*/ (Stdlib[8], 1);
+       /*<<string.ml:115:19>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:116:29>>*/ return i$0 /*<<string.ml:116:29>>*/ ;
+       /*<<string.ml:116:29>>*/ return i$0;
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:116:61>>*/ }
    function index(s, c){
-     /*<<string.ml:119:16>>*/ return  /*<<string.ml:119:16>>*/ index_rec
-             /*<<string.ml:119:16>>*/ (s, caml_ml_string_length(s), 0, c) /*<<string.ml:119:42>>*/ ;
-    /*<<string.ml:119:42>>*/ }
+     /*<<string.ml:119:16>>*/ return index_rec
+            (s, caml_ml_string_length(s), 0, c) /*<<string.ml:119:42>>*/ ;
+   }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
      /*<<string.ml:123:2>>*/ for(;;){
-     if(lim <= i$0)
-       /*<<string.ml:123:19>>*/ return 0 /*<<string.ml:123:19>>*/ ;
+     if(lim <= i$0)  /*<<string.ml:123:19>>*/ return 0;
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:124:29>>*/ return [0, i$0] /*<<string.ml:124:29>>*/ ;
+       /*<<string.ml:124:29>>*/ return [0, i$0];
      var i$1 = i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:124:70>>*/ }
    function index_opt(s, c){
-     /*<<string.ml:127:20>>*/ return  /*<<string.ml:127:20>>*/ index_rec_opt
-             /*<<string.ml:127:20>>*/ (s, caml_ml_string_length(s), 0, c) /*<<string.ml:127:50>>*/ ;
-    /*<<string.ml:127:50>>*/ }
+     /*<<string.ml:127:20>>*/ return index_rec_opt
+            (s, caml_ml_string_length(s), 0, c) /*<<string.ml:127:50>>*/ ;
+   }
    function index_from(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:133:4>>*/ return  /*<<string.ml:133:4>>*/ index_rec
-              /*<<string.ml:133:4>>*/ (s, l, i, c) /*<<string.ml:133:21>>*/ ;
-     /*<<string.ml:132:25>>*/ return  /*<<string.ml:132:25>>*/ caml_call1
-             /*<<string.ml:132:25>>*/ (Stdlib[1],
-             cst_String_index_from_Bytes_in) /*<<string.ml:133:21>>*/ ;
-    /*<<string.ml:133:21>>*/ }
+      /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c) /*<<string.ml:133:21>>*/ ;
+     /*<<string.ml:132:25>>*/ return caml_call1
+            (Stdlib[1], cst_String_index_from_Bytes_in) /*<<string.ml:133:21>>*/ ;
+   }
    function index_from_opt(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:141:4>>*/ return  /*<<string.ml:141:4>>*/ index_rec_opt
-              /*<<string.ml:141:4>>*/ (s, l, i, c) /*<<string.ml:141:25>>*/ ;
-     /*<<string.ml:139:4>>*/ return  /*<<string.ml:139:4>>*/ caml_call1
-             /*<<string.ml:139:4>>*/ (Stdlib[1],
-             cst_String_index_from_opt_Byte) /*<<string.ml:141:25>>*/ ;
-    /*<<string.ml:141:25>>*/ }
+      /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c) /*<<string.ml:141:25>>*/ ;
+     /*<<string.ml:139:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_index_from_opt_Byte) /*<<string.ml:141:25>>*/ ;
+   }
    function rindex_rec(s, i, c){
     var i$0 = i;
      /*<<string.ml:145:2>>*/ for(;;){
      if(0 > i$0)
-       /*<<string.ml:145:16>>*/ throw  /*<<string.ml:145:16>>*/ caml_maybe_attach_backtrace
-              /*<<string.ml:145:16>>*/ (Stdlib[8], 1);
+       /*<<string.ml:145:16>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:146:29>>*/ return i$0 /*<<string.ml:146:29>>*/ ;
+       /*<<string.ml:146:29>>*/ return i$0;
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:146:58>>*/ }
    function rindex(s, c){
-     /*<<string.ml:149:17>>*/ return  /*<<string.ml:149:17>>*/ rindex_rec
-             /*<<string.ml:149:17>>*/ (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:149:46>>*/ ;
-    /*<<string.ml:149:46>>*/ }
+     /*<<string.ml:149:17>>*/ return rindex_rec
+            (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:149:46>>*/ ;
+   }
    function rindex_from(s, i, c){
      /*<<string.ml:153:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:156:4>>*/ return  /*<<string.ml:156:4>>*/ rindex_rec
-              /*<<string.ml:156:4>>*/ (s, i, c) /*<<string.ml:156:20>>*/ ;
-     /*<<string.ml:154:4>>*/ return  /*<<string.ml:154:4>>*/ caml_call1
-             /*<<string.ml:154:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_Bytes_r) /*<<string.ml:156:20>>*/ ;
-    /*<<string.ml:156:20>>*/ }
+      /*<<string.ml:156:4>>*/ return rindex_rec(s, i, c) /*<<string.ml:156:20>>*/ ;
+     /*<<string.ml:154:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_rindex_from_Bytes_r) /*<<string.ml:156:20>>*/ ;
+   }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
      /*<<string.ml:160:2>>*/ for(;;){
-     if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0 /*<<string.ml:160:16>>*/ ;
+     if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
      if(caml_string_unsafe_get(s, i$0) === c)
-       /*<<string.ml:161:29>>*/ return [0, i$0] /*<<string.ml:161:29>>*/ ;
+       /*<<string.ml:161:29>>*/ return [0, i$0];
      var i$1 = i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:161:67>>*/ }
    function rindex_opt(s, c){
-     /*<<string.ml:164:21>>*/ return  /*<<string.ml:164:21>>*/ rindex_rec_opt
-             /*<<string.ml:164:21>>*/ (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:164:54>>*/ ;
-    /*<<string.ml:164:54>>*/ }
+     /*<<string.ml:164:21>>*/ return rindex_rec_opt
+            (s, caml_ml_string_length(s) - 1 | 0, c) /*<<string.ml:164:54>>*/ ;
+   }
    function rindex_from_opt(s, i, c){
      /*<<string.ml:168:2>>*/ if(-1 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:171:4>>*/ return  /*<<string.ml:171:4>>*/ rindex_rec_opt
-              /*<<string.ml:171:4>>*/ (s, i, c) /*<<string.ml:171:24>>*/ ;
-     /*<<string.ml:169:4>>*/ return  /*<<string.ml:169:4>>*/ caml_call1
-             /*<<string.ml:169:4>>*/ (Stdlib[1],
-             cst_String_rindex_from_opt_Byt) /*<<string.ml:171:24>>*/ ;
-    /*<<string.ml:171:24>>*/ }
+      /*<<string.ml:171:4>>*/ return rindex_rec_opt(s, i, c) /*<<string.ml:171:24>>*/ ;
+     /*<<string.ml:169:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_rindex_from_opt_Byt) /*<<string.ml:171:24>>*/ ;
+   }
    function contains_from(s, i, c){
     var l = caml_ml_string_length(s);
      /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:179:4>>*/ try{
-       /*<<string.ml:179:15>>*/  /*<<string.ml:179:15>>*/ index_rec
-        /*<<string.ml:179:15>>*/ (s, l, i, c);
+       /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
       var _G_ =  /*<<string.ml:179:36>>*/ 1;
-       /*<<string.ml:179:36>>*/ return _G_ /*<<string.ml:179:36>>*/ ;
+      return _G_;
      }
      catch(_H_){
       var _F_ = caml_wrap_exception(_H_);
-      if(_F_ === Stdlib[8])
-        /*<<string.ml:179:59>>*/ return 0 /*<<string.ml:179:59>>*/ ;
+      if(_F_ === Stdlib[8])  /*<<string.ml:179:59>>*/ return 0;
       throw caml_maybe_attach_backtrace(_F_, 0);
      }
-     /*<<string.ml:177:4>>*/ return  /*<<string.ml:177:4>>*/ caml_call1
-             /*<<string.ml:177:4>>*/ (Stdlib[1],
-             cst_String_contains_from_Bytes) /*<<string.ml:179:64>>*/ ;
-    /*<<string.ml:179:64>>*/ }
+     /*<<string.ml:177:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_contains_from_Bytes) /*<<string.ml:179:64>>*/ ;
+   }
    function contains(s, c){
-     /*<<string.ml:182:19>>*/ return  /*<<string.ml:182:19>>*/ contains_from
-             /*<<string.ml:182:19>>*/ (s, 0, c) /*<<string.ml:182:38>>*/ ;
-    /*<<string.ml:182:38>>*/ }
+     /*<<string.ml:182:19>>*/ return contains_from(s, 0, c) /*<<string.ml:182:38>>*/ ;
+   }
    function rcontains_from(s, i, c){
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
       /*<<string.ml:189:4>>*/ try{
-       /*<<string.ml:189:15>>*/  /*<<string.ml:189:15>>*/ rindex_rec
-        /*<<string.ml:189:15>>*/ (s, i, c);
+       /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
       var _D_ =  /*<<string.ml:189:35>>*/ 1;
-       /*<<string.ml:189:35>>*/ return _D_ /*<<string.ml:189:35>>*/ ;
+      return _D_;
      }
      catch(_E_){
       var _C_ = caml_wrap_exception(_E_);
-      if(_C_ === Stdlib[8])
-        /*<<string.ml:189:58>>*/ return 0 /*<<string.ml:189:58>>*/ ;
+      if(_C_ === Stdlib[8])  /*<<string.ml:189:58>>*/ return 0;
       throw caml_maybe_attach_backtrace(_C_, 0);
      }
-     /*<<string.ml:187:4>>*/ return  /*<<string.ml:187:4>>*/ caml_call1
-             /*<<string.ml:187:4>>*/ (Stdlib[1],
-             cst_String_rcontains_from_Byte) /*<<string.ml:189:63>>*/ ;
-    /*<<string.ml:189:63>>*/ }
+     /*<<string.ml:187:4>>*/ return caml_call1
+            (Stdlib[1], cst_String_rcontains_from_Byte) /*<<string.ml:189:63>>*/ ;
+   }
    function uppercase_ascii(s){
-    var
-     _B_ =
-        /*<<string.ml:192:20>>*/  /*<<string.ml:192:20>>*/ caml_call1
-         /*<<string.ml:192:20>>*/ (bos, s);
-     /*<<string.ml:192:2>>*/ return  /*<<string.ml:192:2>>*/ caml_call1
-             /*<<string.ml:192:2>>*/ (bts,
-              /*<<string.ml:192:2>>*/ caml_call1
-               /*<<string.ml:192:2>>*/ (Stdlib_Bytes[36], _B_)) /*<<string.ml:192:34>>*/ ;
-    /*<<string.ml:192:34>>*/ }
+    var _B_ =  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
+     /*<<string.ml:192:2>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[36], _B_)) /*<<string.ml:192:34>>*/ ;
+   }
    function lowercase_ascii(s){
-    var
-     _A_ =
-        /*<<string.ml:194:20>>*/  /*<<string.ml:194:20>>*/ caml_call1
-         /*<<string.ml:194:20>>*/ (bos, s);
-     /*<<string.ml:194:2>>*/ return  /*<<string.ml:194:2>>*/ caml_call1
-             /*<<string.ml:194:2>>*/ (bts,
-              /*<<string.ml:194:2>>*/ caml_call1
-               /*<<string.ml:194:2>>*/ (Stdlib_Bytes[37], _A_)) /*<<string.ml:194:34>>*/ ;
-    /*<<string.ml:194:34>>*/ }
+    var _A_ =  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
+     /*<<string.ml:194:2>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[37], _A_)) /*<<string.ml:194:34>>*/ ;
+   }
    function capitalize_ascii(s){
-    var
-     _z_ =
-        /*<<string.ml:196:21>>*/  /*<<string.ml:196:21>>*/ caml_call1
-         /*<<string.ml:196:21>>*/ (bos, s);
-     /*<<string.ml:196:2>>*/ return  /*<<string.ml:196:2>>*/ caml_call1
-             /*<<string.ml:196:2>>*/ (bts,
-              /*<<string.ml:196:2>>*/ caml_call1
-               /*<<string.ml:196:2>>*/ (Stdlib_Bytes[38], _z_)) /*<<string.ml:196:35>>*/ ;
-    /*<<string.ml:196:35>>*/ }
+    var _z_ =  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
+     /*<<string.ml:196:2>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[38], _z_)) /*<<string.ml:196:35>>*/ ;
+   }
    function uncapitalize_ascii(s){
-    var
-     _y_ =
-        /*<<string.ml:198:23>>*/  /*<<string.ml:198:23>>*/ caml_call1
-         /*<<string.ml:198:23>>*/ (bos, s);
-     /*<<string.ml:198:2>>*/ return  /*<<string.ml:198:2>>*/ caml_call1
-             /*<<string.ml:198:2>>*/ (bts,
-              /*<<string.ml:198:2>>*/ caml_call1
-               /*<<string.ml:198:2>>*/ (Stdlib_Bytes[39], _y_)) /*<<string.ml:198:37>>*/ ;
-    /*<<string.ml:198:37>>*/ }
+    var _y_ =  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
+     /*<<string.ml:198:2>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[39], _y_)) /*<<string.ml:198:37>>*/ ;
+   }
    function starts_with(prefix, s){
     var
      len_s = caml_ml_string_length(s),
@@ -7855,10 +6506,9 @@
     if(! _x_) return _x_;
     var i = 0;
      /*<<string.ml:205:4>>*/ for(;;){
-     if(i === len_pre)
-       /*<<string.ml:205:24>>*/ return 1 /*<<string.ml:205:24>>*/ ;
+     if(i === len_pre)  /*<<string.ml:205:24>>*/ return 1;
      if(caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
-       /*<<string.ml:206:55>>*/ return 0 /*<<string.ml:206:55>>*/ ;
+       /*<<string.ml:206:55>>*/ return 0;
      var i$0 =  /*<<string.ml:207:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -7872,32 +6522,25 @@
     if(! _w_) return _w_;
     var i = 0;
      /*<<string.ml:216:4>>*/ for(;;){
-     if(i === len_suf)
-       /*<<string.ml:216:24>>*/ return 1 /*<<string.ml:216:24>>*/ ;
+     if(i === len_suf)  /*<<string.ml:216:24>>*/ return 1;
      if
       (caml_string_unsafe_get(s, diff + i | 0)
        !== caml_string_unsafe_get(suffix, i))
-       /*<<string.ml:217:64>>*/ return 0 /*<<string.ml:217:64>>*/ ;
+       /*<<string.ml:217:64>>*/ return 0;
      var i$0 =  /*<<string.ml:218:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<string.ml:219:23>>*/ }
    function hash(x){
-     /*<<string.ml:222:13>>*/ return  /*<<string.ml:222:13>>*/ caml_string_hash
-             /*<<string.ml:222:13>>*/ (0, x) /*<<string.ml:222:28>>*/ ;
-    /*<<string.ml:222:28>>*/ }
+     /*<<string.ml:222:13>>*/ return caml_string_hash(0, x) /*<<string.ml:222:28>>*/ ;
+   }
    function split_on_char(sep, s){
     var
      r =  /*<<string.ml:226:10>>*/ [0, 0],
      j =
         /*<<string.ml:227:10>>*/ [0,
-         /*<<string.ml:227:2>>*/ caml_ml_string_length
-          /*<<string.ml:227:2>>*/ (s)],
-     _s_ =
-        /*<<string.ml:228:2>>*/  /*<<string.ml:228:2>>*/ caml_ml_string_length
-         /*<<string.ml:228:2>>*/ (s)
-       - 1
-       | 0;
+         /*<<string.ml:227:2>>*/ caml_ml_string_length(s)],
+     _s_ =  /*<<string.ml:228:2>>*/ caml_ml_string_length(s) - 1 | 0;
     if(_s_ >= 0){
      var i = _s_;
      for(;;){
@@ -7905,8 +6548,7 @@
        var _u_ = r[1];
        r[1] =
         [0,
-          /*<<string.ml:230:11>>*/ sub
-           /*<<string.ml:230:11>>*/ (s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
+          /*<<string.ml:230:11>>*/ sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
          _u_];
        j[1] = i;
       }
@@ -7916,161 +6558,85 @@
      }
     }
     var _t_ = r[1];
-     /*<<string.ml:234:2>>*/ return [0,
-             /*<<string.ml:234:2>>*/ sub /*<<string.ml:234:2>>*/ (s, 0, j[1]),
-            _t_] /*<<string.ml:234:2>>*/ ;
+     /*<<string.ml:234:2>>*/ return [0, sub(s, 0, j[1]), _t_];
     /*<<string.ml:234:18>>*/ }
    var compare = runtime.caml_string_compare;
    function to_seq(s){
-    var
-     _r_ =
-        /*<<string.ml:243:15>>*/  /*<<string.ml:243:15>>*/ caml_call1
-         /*<<string.ml:243:15>>*/ (bos, s);
-     /*<<string.ml:243:15>>*/ return  /*<<string.ml:243:15>>*/ caml_call1
-             /*<<string.ml:243:15>>*/ (Stdlib_Bytes[47], _r_) /*<<string.ml:243:32>>*/ ;
-    /*<<string.ml:243:32>>*/ }
+    var _r_ =  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
+    return caml_call1(Stdlib_Bytes[47], _r_) /*<<string.ml:243:32>>*/ ;
+   }
    function to_seqi(s){
-    var
-     _q_ =
-        /*<<string.ml:245:16>>*/  /*<<string.ml:245:16>>*/ caml_call1
-         /*<<string.ml:245:16>>*/ (bos, s);
-     /*<<string.ml:245:16>>*/ return  /*<<string.ml:245:16>>*/ caml_call1
-             /*<<string.ml:245:16>>*/ (Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
-    /*<<string.ml:245:34>>*/ }
+    var _q_ =  /*<<string.ml:245:16>>*/ caml_call1(bos, s);
+    return caml_call1(Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
+   }
    function of_seq(g){
-     /*<<string.ml:247:15>>*/ return  /*<<string.ml:247:15>>*/ caml_call1
-             /*<<string.ml:247:15>>*/ (bts,
-              /*<<string.ml:247:15>>*/ caml_call1
-               /*<<string.ml:247:15>>*/ (Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
-    /*<<string.ml:247:32>>*/ }
+     /*<<string.ml:247:15>>*/ return caml_call1
+            (bts, caml_call1(Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
+   }
    function get_utf_8_uchar(s, i){
-    var
-     _p_ =
-        /*<<string.ml:251:44>>*/  /*<<string.ml:251:44>>*/ caml_call1
-         /*<<string.ml:251:44>>*/ (bos, s);
-     /*<<string.ml:251:26>>*/ return  /*<<string.ml:251:26>>*/ caml_call2
-             /*<<string.ml:251:26>>*/ (Stdlib_Bytes[50], _p_, i) /*<<string.ml:251:53>>*/ ;
-    /*<<string.ml:251:53>>*/ }
+    var _p_ =  /*<<string.ml:251:44>>*/ caml_call1(bos, s);
+     /*<<string.ml:251:26>>*/ return caml_call2(Stdlib_Bytes[50], _p_, i) /*<<string.ml:251:53>>*/ ;
+   }
    function is_valid_utf_8(s){
-    var
-     _o_ =
-        /*<<string.ml:252:40>>*/  /*<<string.ml:252:40>>*/ caml_call1
-         /*<<string.ml:252:40>>*/ (bos, s);
-     /*<<string.ml:252:40>>*/ return  /*<<string.ml:252:40>>*/ caml_call1
-             /*<<string.ml:252:40>>*/ (Stdlib_Bytes[52], _o_) /*<<string.ml:252:47>>*/ ;
-    /*<<string.ml:252:47>>*/ }
+    var _o_ =  /*<<string.ml:252:40>>*/ caml_call1(bos, s);
+    return caml_call1(Stdlib_Bytes[52], _o_) /*<<string.ml:252:47>>*/ ;
+   }
    function get_utf_16be_uchar(s, i){
-    var
-     _n_ =
-        /*<<string.ml:254:50>>*/  /*<<string.ml:254:50>>*/ caml_call1
-         /*<<string.ml:254:50>>*/ (bos, s);
-     /*<<string.ml:254:29>>*/ return  /*<<string.ml:254:29>>*/ caml_call2
-             /*<<string.ml:254:29>>*/ (Stdlib_Bytes[53], _n_, i) /*<<string.ml:254:59>>*/ ;
-    /*<<string.ml:254:59>>*/ }
+    var _n_ =  /*<<string.ml:254:50>>*/ caml_call1(bos, s);
+     /*<<string.ml:254:29>>*/ return caml_call2(Stdlib_Bytes[53], _n_, i) /*<<string.ml:254:59>>*/ ;
+   }
    function is_valid_utf_16be(s){
-    var
-     _m_ =
-        /*<<string.ml:255:46>>*/  /*<<string.ml:255:46>>*/ caml_call1
-         /*<<string.ml:255:46>>*/ (bos, s);
-     /*<<string.ml:255:46>>*/ return  /*<<string.ml:255:46>>*/ caml_call1
-             /*<<string.ml:255:46>>*/ (Stdlib_Bytes[55], _m_) /*<<string.ml:255:53>>*/ ;
-    /*<<string.ml:255:53>>*/ }
+    var _m_ =  /*<<string.ml:255:46>>*/ caml_call1(bos, s);
+    return caml_call1(Stdlib_Bytes[55], _m_) /*<<string.ml:255:53>>*/ ;
+   }
    function get_utf_16le_uchar(s, i){
-    var
-     _l_ =
-        /*<<string.ml:257:50>>*/  /*<<string.ml:257:50>>*/ caml_call1
-         /*<<string.ml:257:50>>*/ (bos, s);
-     /*<<string.ml:257:29>>*/ return  /*<<string.ml:257:29>>*/ caml_call2
-             /*<<string.ml:257:29>>*/ (Stdlib_Bytes[56], _l_, i) /*<<string.ml:257:59>>*/ ;
-    /*<<string.ml:257:59>>*/ }
+    var _l_ =  /*<<string.ml:257:50>>*/ caml_call1(bos, s);
+     /*<<string.ml:257:29>>*/ return caml_call2(Stdlib_Bytes[56], _l_, i) /*<<string.ml:257:59>>*/ ;
+   }
    function is_valid_utf_16le(s){
-    var
-     _k_ =
-        /*<<string.ml:258:46>>*/  /*<<string.ml:258:46>>*/ caml_call1
-         /*<<string.ml:258:46>>*/ (bos, s);
-     /*<<string.ml:258:46>>*/ return  /*<<string.ml:258:46>>*/ caml_call1
-             /*<<string.ml:258:46>>*/ (Stdlib_Bytes[58], _k_) /*<<string.ml:258:53>>*/ ;
-    /*<<string.ml:258:53>>*/ }
+    var _k_ =  /*<<string.ml:258:46>>*/ caml_call1(bos, s);
+    return caml_call1(Stdlib_Bytes[58], _k_) /*<<string.ml:258:53>>*/ ;
+   }
    function get_int8(s, i){
-    var
-     _j_ =
-        /*<<string.ml:267:30>>*/  /*<<string.ml:267:30>>*/ caml_call1
-         /*<<string.ml:267:30>>*/ (bos, s);
-     /*<<string.ml:267:19>>*/ return  /*<<string.ml:267:19>>*/ caml_call2
-             /*<<string.ml:267:19>>*/ (Stdlib_Bytes[60], _j_, i) /*<<string.ml:267:39>>*/ ;
-    /*<<string.ml:267:39>>*/ }
+    var _j_ =  /*<<string.ml:267:30>>*/ caml_call1(bos, s);
+     /*<<string.ml:267:19>>*/ return caml_call2(Stdlib_Bytes[60], _j_, i) /*<<string.ml:267:39>>*/ ;
+   }
    function get_uint16_le(s, i){
-    var
-     _i_ =
-        /*<<string.ml:268:40>>*/  /*<<string.ml:268:40>>*/ caml_call1
-         /*<<string.ml:268:40>>*/ (bos, s);
-     /*<<string.ml:268:24>>*/ return  /*<<string.ml:268:24>>*/ caml_call2
-             /*<<string.ml:268:24>>*/ (Stdlib_Bytes[63], _i_, i) /*<<string.ml:268:49>>*/ ;
-    /*<<string.ml:268:49>>*/ }
+    var _i_ =  /*<<string.ml:268:40>>*/ caml_call1(bos, s);
+     /*<<string.ml:268:24>>*/ return caml_call2(Stdlib_Bytes[63], _i_, i) /*<<string.ml:268:49>>*/ ;
+   }
    function get_uint16_be(s, i){
-    var
-     _h_ =
-        /*<<string.ml:269:40>>*/  /*<<string.ml:269:40>>*/ caml_call1
-         /*<<string.ml:269:40>>*/ (bos, s);
-     /*<<string.ml:269:24>>*/ return  /*<<string.ml:269:24>>*/ caml_call2
-             /*<<string.ml:269:24>>*/ (Stdlib_Bytes[62], _h_, i) /*<<string.ml:269:49>>*/ ;
-    /*<<string.ml:269:49>>*/ }
+    var _h_ =  /*<<string.ml:269:40>>*/ caml_call1(bos, s);
+     /*<<string.ml:269:24>>*/ return caml_call2(Stdlib_Bytes[62], _h_, i) /*<<string.ml:269:49>>*/ ;
+   }
    function get_int16_ne(s, i){
-    var
-     _g_ =
-        /*<<string.ml:270:38>>*/  /*<<string.ml:270:38>>*/ caml_call1
-         /*<<string.ml:270:38>>*/ (bos, s);
-     /*<<string.ml:270:23>>*/ return  /*<<string.ml:270:23>>*/ caml_call2
-             /*<<string.ml:270:23>>*/ (Stdlib_Bytes[64], _g_, i) /*<<string.ml:270:47>>*/ ;
-    /*<<string.ml:270:47>>*/ }
+    var _g_ =  /*<<string.ml:270:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:270:23>>*/ return caml_call2(Stdlib_Bytes[64], _g_, i) /*<<string.ml:270:47>>*/ ;
+   }
    function get_int16_le(s, i){
-    var
-     _f_ =
-        /*<<string.ml:271:38>>*/  /*<<string.ml:271:38>>*/ caml_call1
-         /*<<string.ml:271:38>>*/ (bos, s);
-     /*<<string.ml:271:23>>*/ return  /*<<string.ml:271:23>>*/ caml_call2
-             /*<<string.ml:271:23>>*/ (Stdlib_Bytes[66], _f_, i) /*<<string.ml:271:47>>*/ ;
-    /*<<string.ml:271:47>>*/ }
+    var _f_ =  /*<<string.ml:271:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:271:23>>*/ return caml_call2(Stdlib_Bytes[66], _f_, i) /*<<string.ml:271:47>>*/ ;
+   }
    function get_int16_be(s, i){
-    var
-     _e_ =
-        /*<<string.ml:272:38>>*/  /*<<string.ml:272:38>>*/ caml_call1
-         /*<<string.ml:272:38>>*/ (bos, s);
-     /*<<string.ml:272:23>>*/ return  /*<<string.ml:272:23>>*/ caml_call2
-             /*<<string.ml:272:23>>*/ (Stdlib_Bytes[65], _e_, i) /*<<string.ml:272:47>>*/ ;
-    /*<<string.ml:272:47>>*/ }
+    var _e_ =  /*<<string.ml:272:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:272:23>>*/ return caml_call2(Stdlib_Bytes[65], _e_, i) /*<<string.ml:272:47>>*/ ;
+   }
    function get_int32_le(s, i){
-    var
-     _d_ =
-        /*<<string.ml:273:38>>*/  /*<<string.ml:273:38>>*/ caml_call1
-         /*<<string.ml:273:38>>*/ (bos, s);
-     /*<<string.ml:273:23>>*/ return  /*<<string.ml:273:23>>*/ caml_call2
-             /*<<string.ml:273:23>>*/ (Stdlib_Bytes[69], _d_, i) /*<<string.ml:273:47>>*/ ;
-    /*<<string.ml:273:47>>*/ }
+    var _d_ =  /*<<string.ml:273:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:273:23>>*/ return caml_call2(Stdlib_Bytes[69], _d_, i) /*<<string.ml:273:47>>*/ ;
+   }
    function get_int32_be(s, i){
-    var
-     _c_ =
-        /*<<string.ml:274:38>>*/  /*<<string.ml:274:38>>*/ caml_call1
-         /*<<string.ml:274:38>>*/ (bos, s);
-     /*<<string.ml:274:23>>*/ return  /*<<string.ml:274:23>>*/ caml_call2
-             /*<<string.ml:274:23>>*/ (Stdlib_Bytes[68], _c_, i) /*<<string.ml:274:47>>*/ ;
-    /*<<string.ml:274:47>>*/ }
+    var _c_ =  /*<<string.ml:274:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:274:23>>*/ return caml_call2(Stdlib_Bytes[68], _c_, i) /*<<string.ml:274:47>>*/ ;
+   }
    function get_int64_le(s, i){
-    var
-     _b_ =
-        /*<<string.ml:275:38>>*/  /*<<string.ml:275:38>>*/ caml_call1
-         /*<<string.ml:275:38>>*/ (bos, s);
-     /*<<string.ml:275:23>>*/ return  /*<<string.ml:275:23>>*/ caml_call2
-             /*<<string.ml:275:23>>*/ (Stdlib_Bytes[72], _b_, i) /*<<string.ml:275:47>>*/ ;
-    /*<<string.ml:275:47>>*/ }
+    var _b_ =  /*<<string.ml:275:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:275:23>>*/ return caml_call2(Stdlib_Bytes[72], _b_, i) /*<<string.ml:275:47>>*/ ;
+   }
    function get_int64_be(s, i){
-    var
-     _a_ =
-        /*<<string.ml:276:38>>*/  /*<<string.ml:276:38>>*/ caml_call1
-         /*<<string.ml:276:38>>*/ (bos, s);
-     /*<<string.ml:276:23>>*/ return  /*<<string.ml:276:23>>*/ caml_call2
-             /*<<string.ml:276:23>>*/ (Stdlib_Bytes[71], _a_, i) /*<<string.ml:276:47>>*/ ;
-    /*<<string.ml:276:47>>*/ }
+    var _a_ =  /*<<string.ml:276:38>>*/ caml_call1(bos, s);
+     /*<<string.ml:276:23>>*/ return caml_call2(Stdlib_Bytes[71], _a_, i) /*<<string.ml:276:47>>*/ ;
+   }
    var
     Stdlib_String =
       [0,
@@ -8146,15 +6712,15 @@
 //# unitInfo: Provides: Stdlib__Unit
 (function(globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime, cst = "()";
+   var runtime = globalThis.jsoo_runtime, cst = "()";
    function equal(_b_, param){
-     /*<<unit.ml:18:18>>*/ return 1 /*<<unit.ml:18:18>>*/ ;
+     /*<<unit.ml:18:18>>*/ return 1;
     /*<<unit.ml:18:22>>*/ }
    function compare(_a_, param){
-     /*<<unit.ml:19:20>>*/ return 0 /*<<unit.ml:19:20>>*/ ;
+     /*<<unit.ml:19:20>>*/ return 0;
     /*<<unit.ml:19:21>>*/ }
    function to_string(param){
-     /*<<unit.ml:20:19>>*/ return cst /*<<unit.ml:20:19>>*/ ;
+     /*<<unit.ml:20:19>>*/ return cst;
     /*<<unit.ml:20:23>>*/ }
    var Stdlib_Unit = [0, equal, compare, to_string];
    runtime.caml_register_global(1, Stdlib_Unit, "Stdlib__Unit");
@@ -8168,10 +6734,10 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_Marshal_from_bytes$1 =  /*<<?>>*/ "Marshal.from_bytes",
-    caml_marshal_data_size =  /*<<?>>*/ runtime.caml_marshal_data_size,
-    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length;
+    runtime = globalThis.jsoo_runtime,
+    cst_Marshal_from_bytes$1 = "Marshal.from_bytes",
+    caml_marshal_data_size = runtime.caml_marshal_data_size,
+    caml_ml_bytes_length = runtime.caml_ml_bytes_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -8186,12 +6752,11 @@
    function to_buffer(buff, ofs, len, v, flags){
      /*<<marshal.ml:34:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(buff) - len | 0) >= ofs)
-      /*<<marshal.ml:36:7>>*/ return  /*<<marshal.ml:36:7>>*/ runtime.caml_output_value_to_buffer
-              /*<<marshal.ml:36:7>>*/ (buff, ofs, len, v, flags) /*<<marshal.ml:36:44>>*/ ;
-     /*<<marshal.ml:35:7>>*/ return  /*<<marshal.ml:35:7>>*/ caml_call1
-             /*<<marshal.ml:35:7>>*/ (Stdlib[1],
-             cst_Marshal_to_buffer_substrin) /*<<marshal.ml:36:44>>*/ ;
-    /*<<marshal.ml:36:44>>*/ }
+      /*<<marshal.ml:36:7>>*/ return runtime.caml_output_value_to_buffer
+             (buff, ofs, len, v, flags) /*<<marshal.ml:36:44>>*/ ;
+     /*<<marshal.ml:35:7>>*/ return caml_call1
+            (Stdlib[1], cst_Marshal_to_buffer_substrin) /*<<marshal.ml:36:44>>*/ ;
+   }
    var
     cst_Marshal_data_size = "Marshal.data_size",
     cst_Marshal_from_bytes = cst_Marshal_from_bytes$1,
@@ -8199,40 +6764,33 @@
    function data_size(buff, ofs){
      /*<<marshal.ml:50:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs)
-      /*<<marshal.ml:52:7>>*/ return  /*<<marshal.ml:52:7>>*/ caml_marshal_data_size
-              /*<<marshal.ml:52:7>>*/ (buff, ofs) /*<<marshal.ml:52:32>>*/ ;
-     /*<<marshal.ml:51:7>>*/ return  /*<<marshal.ml:51:7>>*/ caml_call1
-             /*<<marshal.ml:51:7>>*/ (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
-    /*<<marshal.ml:52:32>>*/ }
+      /*<<marshal.ml:52:7>>*/ return caml_marshal_data_size(buff, ofs) /*<<marshal.ml:52:32>>*/ ;
+     /*<<marshal.ml:51:7>>*/ return caml_call1
+            (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
+   }
    function total_size(buff, ofs){
      /*<<marshal.ml:53:26>>*/ return 16
-           +
-             /*<<marshal.ml:53:40>>*/ data_size
-              /*<<marshal.ml:53:40>>*/ (buff, ofs)
+           +  /*<<marshal.ml:53:40>>*/ data_size(buff, ofs)
            | 0;
     /*<<marshal.ml:53:58>>*/ }
    function from_bytes(buff, ofs){
      /*<<marshal.ml:56:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs){
-     var
-      len =
-         /*<<marshal.ml:59:14>>*/  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size
-          /*<<marshal.ml:59:14>>*/ (buff, ofs);
+     var len =  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size(buff, ofs);
      return (caml_ml_bytes_length(buff) - (16 + len | 0) | 0) < ofs
              ?  /*<<marshal.ml:61:9>>*/ caml_call1
-                /*<<marshal.ml:61:9>>*/ (Stdlib[1], cst_Marshal_from_bytes$0)
+               (Stdlib[1], cst_Marshal_from_bytes$0)
              :  /*<<marshal.ml:62:9>>*/ runtime.caml_input_value_from_bytes
-                /*<<marshal.ml:62:9>>*/ (buff, ofs) /*<<marshal.ml:63:5>>*/ ;
+               (buff, ofs) /*<<marshal.ml:63:5>>*/ ;
     }
-     /*<<marshal.ml:57:7>>*/ return  /*<<marshal.ml:57:7>>*/ caml_call1
-             /*<<marshal.ml:57:7>>*/ (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
-    /*<<marshal.ml:63:5>>*/ }
+     /*<<marshal.ml:57:7>>*/ return caml_call1
+            (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
+   }
    function from_string(buff, ofs){
-     /*<<marshal.ml:68:2>>*/ return  /*<<marshal.ml:68:2>>*/ from_bytes
-             /*<<marshal.ml:68:2>>*/ ( /*<<marshal.ml:68:13>>*/ caml_call1
-               /*<<marshal.ml:68:13>>*/ (Stdlib_Bytes[45], buff),
+     /*<<marshal.ml:68:2>>*/ return from_bytes
+            ( /*<<marshal.ml:68:13>>*/ caml_call1(Stdlib_Bytes[45], buff),
              ofs) /*<<marshal.ml:68:46>>*/ ;
-    /*<<marshal.ml:68:46>>*/ }
+   }
    var
     Stdlib_Marshal =
       [0,
@@ -8255,13 +6813,12 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    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;
+    runtime = globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -8297,62 +6854,49 @@
     cst_Array_exists2 = "Array.exists2",
     cst_Array_combine = "Array.combine";
    function init(l, f){
-     /*<<array.ml:48:2>>*/ if(0 === l)
-      /*<<array.ml:48:16>>*/ return [0] /*<<array.ml:48:16>>*/ ;
+     /*<<array.ml:48:2>>*/ if(0 === l)  /*<<array.ml:48:16>>*/ return [0];
     if(0 > l)
-      /*<<array.ml:49:16>>*/ return  /*<<array.ml:49:16>>*/ caml_call1
-              /*<<array.ml:49:16>>*/ (Stdlib[1], cst_Array_init) /*<<array.ml:58:6>>*/ ;
+      /*<<array.ml:49:16>>*/ return caml_call1(Stdlib[1], cst_Array_init) /*<<array.ml:58:6>>*/ ;
     var
      res =
-        /*<<array.ml:54:13>>*/  /*<<array.ml:54:13>>*/ caml_make_vect
-         /*<<array.ml:54:13>>*/ (l,
-          /*<<array.ml:54:22>>*/ caml_call1 /*<<array.ml:54:22>>*/ (f, 0)),
+        /*<<array.ml:54:13>>*/ caml_make_vect
+        (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
      _aE_ =  /*<<array.ml:55:3>>*/ l - 1 | 0,
      _aD_ =  /*<<array.ml:54:13>>*/ 1;
     if(_aE_ >= 1){
      var i = _aD_;
      for(;;){
        /*<<array.ml:56:5>>*/ res[1 + i] =
-        /*<<array.ml:56:22>>*/ caml_call1 /*<<array.ml:56:22>>*/ (f, i);
+        /*<<array.ml:56:22>>*/ caml_call1(f, i);
       var _aF_ =  /*<<array.ml:56:5>>*/ i + 1 | 0;
       if(_aE_ === i) break;
       i = _aF_;
      }
     }
-     /*<<array.ml:58:3>>*/ return res /*<<array.ml:58:3>>*/ ;
+     /*<<array.ml:58:3>>*/ return res;
     /*<<array.ml:58:6>>*/ }
    function make_matrix(sx, sy, init){
      /*<<array.ml:62:2>>*/ if(sy < 0)
-      /*<<array.ml:62:17>>*/  /*<<array.ml:62:17>>*/ caml_call1
-       /*<<array.ml:62:17>>*/ (Stdlib[1], cst_Array_make_matrix);
-    var
-     res =
-        /*<<array.ml:63:12>>*/  /*<<array.ml:63:12>>*/ caml_make_vect
-         /*<<array.ml:63:12>>*/ (sx, [0]);
+      /*<<array.ml:62:17>>*/ caml_call1(Stdlib[1], cst_Array_make_matrix);
+    var res =  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
     if(0 < sy){
      var _aB_ = sx - 1 | 0, _aA_ =  /*<<array.ml:64:17>>*/ 0;
      if(_aB_ >= 0){
       var x = _aA_;
       for(;;){
-       res[1 + x] =
-         /*<<array.ml:66:23>>*/ caml_make_vect
-          /*<<array.ml:66:23>>*/ (sy, init);
+       res[1 + x] =  /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
        var _aC_ =  /*<<array.ml:64:17>>*/ x + 1 | 0;
        if(_aB_ === x) break;
        x = _aC_;
       }
      }
     }
-     /*<<array.ml:69:2>>*/ return res /*<<array.ml:69:2>>*/ ;
+     /*<<array.ml:69:2>>*/ return res;
     /*<<array.ml:69:5>>*/ }
    function init_matrix(sx, sy, f){
      /*<<array.ml:73:2>>*/ if(sy < 0)
-      /*<<array.ml:73:17>>*/  /*<<array.ml:73:17>>*/ caml_call1
-       /*<<array.ml:73:17>>*/ (Stdlib[1], cst_Array_init_matrix);
-    var
-     res =
-        /*<<array.ml:74:12>>*/  /*<<array.ml:74:12>>*/ caml_make_vect
-         /*<<array.ml:74:12>>*/ (sx, [0]);
+      /*<<array.ml:73:17>>*/ caml_call1(Stdlib[1], cst_Array_init_matrix);
+    var res =  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
     if(0 < sy){
      var _av_ = sx - 1 | 0, _au_ =  /*<<array.ml:76:17>>*/ 0;
      if(_av_ >= 0){
@@ -8360,17 +6904,15 @@
       for(;;){
        var
         row =
-           /*<<array.ml:78:16>>*/  /*<<array.ml:78:16>>*/ caml_make_vect
-            /*<<array.ml:78:16>>*/ (sy,
-             /*<<array.ml:78:26>>*/ caml_call2
-              /*<<array.ml:78:26>>*/ (f, x, 0)),
+           /*<<array.ml:78:16>>*/ caml_make_vect
+           (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
         _ax_ =  /*<<array.ml:79:6>>*/ sy - 1 | 0,
         _aw_ =  /*<<array.ml:78:16>>*/ 1;
        if(_ax_ >= 1){
         var y = _aw_;
         for(;;){
           /*<<array.ml:80:8>>*/ row[1 + y] =
-           /*<<array.ml:80:25>>*/ caml_call2 /*<<array.ml:80:25>>*/ (f, x, y);
+           /*<<array.ml:80:25>>*/ caml_call2(f, x, y);
          var _az_ =  /*<<array.ml:80:8>>*/ y + 1 | 0;
          if(_ax_ === y) break;
          y = _az_;
@@ -8383,42 +6925,35 @@
       }
      }
     }
-     /*<<array.ml:85:2>>*/ return res /*<<array.ml:85:2>>*/ ;
+     /*<<array.ml:85:2>>*/ return res;
     /*<<array.ml:85:5>>*/ }
    function copy(a){
     var l = a.length - 1;
      /*<<array.ml:88:22>>*/ return 0 === l
             ? [0]
-            :  /*<<array.ml:88:46>>*/ caml_array_sub
-               /*<<array.ml:88:46>>*/ (a, 0, l) /*<<array.ml:88:62>>*/ ;
-    /*<<array.ml:88:62>>*/ }
+            :  /*<<array.ml:88:46>>*/ caml_array_sub(a, 0, l) /*<<array.ml:88:62>>*/ ;
+   }
    function append(a1, a2){
     var l1 = a1.length - 1;
      /*<<array.ml:92:2>>*/ return 0 === l1
-            ?  /*<<array.ml:92:17>>*/ copy /*<<array.ml:92:17>>*/ (a2)
+            ?  /*<<array.ml:92:17>>*/ copy(a2)
             : 0
               === a2.length - 1
-              ?  /*<<array.ml:93:29>>*/ caml_array_sub
-                 /*<<array.ml:93:29>>*/ (a1, 0, l1)
-              :  /*<<array.ml:94:7>>*/ runtime.caml_array_append
-                 /*<<array.ml:94:7>>*/ (a1, a2) /*<<array.ml:94:24>>*/ ;
-    /*<<array.ml:94:24>>*/ }
+              ?  /*<<array.ml:93:29>>*/ caml_array_sub(a1, 0, l1)
+              :  /*<<array.ml:94:7>>*/ runtime.caml_array_append(a1, a2) /*<<array.ml:94:24>>*/ ;
+   }
    function sub(a, ofs, len){
      /*<<array.ml:97:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
-      /*<<array.ml:99:7>>*/ return  /*<<array.ml:99:7>>*/ caml_array_sub
-              /*<<array.ml:99:7>>*/ (a, ofs, len) /*<<array.ml:99:27>>*/ ;
-     /*<<array.ml:98:7>>*/ return  /*<<array.ml:98:7>>*/ caml_call1
-             /*<<array.ml:98:7>>*/ (Stdlib[1], cst_Array_sub) /*<<array.ml:99:27>>*/ ;
-    /*<<array.ml:99:27>>*/ }
+      /*<<array.ml:99:7>>*/ return caml_array_sub(a, ofs, len) /*<<array.ml:99:27>>*/ ;
+     /*<<array.ml:98:7>>*/ return caml_call1(Stdlib[1], cst_Array_sub) /*<<array.ml:99:27>>*/ ;
+   }
    function fill(a, ofs, len, v){
      /*<<array.ml:102:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
-      /*<<array.ml:104:7>>*/ return  /*<<array.ml:104:7>>*/ runtime.caml_array_fill
-              /*<<array.ml:104:7>>*/ (a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
-     /*<<array.ml:103:7>>*/ return  /*<<array.ml:103:7>>*/ caml_call1
-             /*<<array.ml:103:7>>*/ (Stdlib[1], cst_Array_fill) /*<<array.ml:104:30>>*/ ;
-    /*<<array.ml:104:30>>*/ }
+      /*<<array.ml:104:7>>*/ return runtime.caml_array_fill(a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
+     /*<<array.ml:103:7>>*/ return caml_call1(Stdlib[1], cst_Array_fill) /*<<array.ml:104:30>>*/ ;
+   }
    function blit(a1, ofs1, a2, ofs2, len){
      /*<<array.ml:107:2>>*/ if
      (0 <= len
@@ -8427,19 +6962,17 @@
        &&
         (a1.length - 1 - len | 0) >= ofs1
         && 0 <= ofs2 && (a2.length - 1 - len | 0) >= ofs2)
-      /*<<array.ml:110:7>>*/ return  /*<<array.ml:110:7>>*/ runtime.caml_array_blit
-              /*<<array.ml:110:7>>*/ (a1, ofs1, a2, ofs2, len) /*<<array.ml:110:38>>*/ ;
-     /*<<array.ml:109:7>>*/ return  /*<<array.ml:109:7>>*/ caml_call1
-             /*<<array.ml:109:7>>*/ (Stdlib[1], cst_Array_blit) /*<<array.ml:110:38>>*/ ;
-    /*<<array.ml:110:38>>*/ }
+      /*<<array.ml:110:7>>*/ return runtime.caml_array_blit
+             (a1, ofs1, a2, ofs2, len) /*<<array.ml:110:38>>*/ ;
+     /*<<array.ml:109:7>>*/ return caml_call1(Stdlib[1], cst_Array_blit) /*<<array.ml:110:38>>*/ ;
+   }
    function iter(f, a){
     var _as_ = a.length - 2 | 0, _ar_ =  /*<<array.ml:113:2>>*/ 0;
     if(_as_ >= 0){
      var i = _ar_;
      for(;;){
-       /*<<array.ml:113:31>>*/  /*<<array.ml:113:31>>*/ caml_call1
-        /*<<array.ml:113:31>>*/ (f, a[1 + i]);
-      var _at_ =  /*<<array.ml:113:31>>*/ i + 1 | 0;
+       /*<<array.ml:113:31>>*/ caml_call1(f, a[1 + i]);
+      var _at_ = i + 1 | 0;
       if(_as_ === i) break;
       i = _at_;
      }
@@ -8448,16 +6981,14 @@
     /*<<array.ml:113:53>>*/ }
    function iter2(f, a, b){
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
-      /*<<array.ml:117:4>>*/ return  /*<<array.ml:117:4>>*/ caml_call1
-              /*<<array.ml:117:4>>*/ (Stdlib[1],
-              cst_Array_iter2_arrays_must_ha) /*<<array.ml:119:73>>*/ ;
+      /*<<array.ml:117:4>>*/ return caml_call1
+             (Stdlib[1], cst_Array_iter2_arrays_must_ha) /*<<array.ml:119:73>>*/ ;
     var _ap_ = a.length - 2 | 0, _ao_ =  /*<<array.ml:119:4>>*/ 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
-       /*<<array.ml:119:33>>*/  /*<<array.ml:119:33>>*/ caml_call2
-        /*<<array.ml:119:33>>*/ (f, a[1 + i], b[1 + i]);
-      var _aq_ =  /*<<array.ml:119:33>>*/ i + 1 | 0;
+       /*<<array.ml:119:33>>*/ caml_call2(f, a[1 + i], b[1 + i]);
+      var _aq_ = i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
@@ -8466,27 +6997,24 @@
     /*<<array.ml:119:73>>*/ }
    function map(f, a){
     var l = a.length - 1;
-     /*<<array.ml:123:2>>*/ if(0 === l)
-      /*<<array.ml:123:16>>*/ return [0] /*<<array.ml:123:16>>*/ ;
+     /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
     var
      r =
-        /*<<array.ml:124:12>>*/  /*<<array.ml:124:12>>*/ caml_make_vect
-         /*<<array.ml:124:12>>*/ (l,
-          /*<<array.ml:124:21>>*/ caml_call1 /*<<array.ml:124:21>>*/ (f, a[1])),
+        /*<<array.ml:124:12>>*/ caml_make_vect
+        (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
      _am_ =  /*<<array.ml:125:4>>*/ l - 1 | 0,
      _al_ =  /*<<array.ml:124:12>>*/ 1;
     if(_am_ >= 1){
      var i = _al_;
      for(;;){
        /*<<array.ml:126:6>>*/ r[1 + i] =
-        /*<<array.ml:126:21>>*/ caml_call1
-         /*<<array.ml:126:21>>*/ (f, a[1 + i]);
+        /*<<array.ml:126:21>>*/ caml_call1(f, a[1 + i]);
       var _an_ =  /*<<array.ml:126:6>>*/ i + 1 | 0;
       if(_am_ === i) break;
       i = _an_;
      }
     }
-     /*<<array.ml:128:4>>*/ return r /*<<array.ml:128:4>>*/ ;
+     /*<<array.ml:128:4>>*/ return r;
     /*<<array.ml:129:5>>*/ }
    function map_inplace(f, a){
     var _aj_ = a.length - 2 | 0, _ai_ =  /*<<array.ml:132:2>>*/ 0;
@@ -8494,8 +7022,7 @@
      var i = _ai_;
      for(;;){
        /*<<array.ml:133:4>>*/ a[1 + i] =
-        /*<<array.ml:133:19>>*/ caml_call1
-         /*<<array.ml:133:19>>*/ (f, a[1 + i]);
+        /*<<array.ml:133:19>>*/ caml_call1(f, a[1 + i]);
       var _ak_ =  /*<<array.ml:133:4>>*/ i + 1 | 0;
       if(_aj_ === i) break;
       i = _ak_;
@@ -8509,8 +7036,7 @@
      var i = _af_;
      for(;;){
        /*<<array.ml:138:4>>*/ a[1 + i] =
-        /*<<array.ml:138:19>>*/ caml_call2
-         /*<<array.ml:138:19>>*/ (f, i, a[1 + i]);
+        /*<<array.ml:138:19>>*/ caml_call2(f, i, a[1 + i]);
       var _ah_ =  /*<<array.ml:138:4>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _ah_;
@@ -8521,39 +7047,34 @@
    function map2(f, a, b){
     var la = a.length - 1, lb =  /*<<array.ml:143:2>>*/ b.length - 1;
     if(la !== lb)
-      /*<<array.ml:145:4>>*/ return  /*<<array.ml:145:4>>*/ caml_call1
-              /*<<array.ml:145:4>>*/ (Stdlib[1],
-              cst_Array_map2_arrays_must_hav) /*<<array.ml:154:5>>*/ ;
-    if(0 === la)  /*<<array.ml:147:19>>*/ return [0] /*<<array.ml:147:19>>*/ ;
+      /*<<array.ml:145:4>>*/ return caml_call1
+             (Stdlib[1], cst_Array_map2_arrays_must_hav) /*<<array.ml:154:5>>*/ ;
+    if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
     var
      r =
-        /*<<array.ml:148:14>>*/  /*<<array.ml:148:14>>*/ caml_make_vect
-         /*<<array.ml:148:14>>*/ (la,
-          /*<<array.ml:148:24>>*/ caml_call2
-           /*<<array.ml:148:24>>*/ (f, a[1], b[1])),
+        /*<<array.ml:148:14>>*/ caml_make_vect
+        (la,  /*<<array.ml:148:24>>*/ caml_call2(f, a[1], b[1])),
      _ad_ =  /*<<array.ml:149:6>>*/ la - 1 | 0,
      _ac_ =  /*<<array.ml:148:14>>*/ 1;
     if(_ad_ >= 1){
      var i = _ac_;
      for(;;){
        /*<<array.ml:150:8>>*/ r[1 + i] =
-        /*<<array.ml:150:23>>*/ caml_call2
-         /*<<array.ml:150:23>>*/ (f, a[1 + i], b[1 + i]);
+        /*<<array.ml:150:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
       var _ae_ =  /*<<array.ml:150:8>>*/ i + 1 | 0;
       if(_ad_ === i) break;
       i = _ae_;
      }
     }
-     /*<<array.ml:152:6>>*/ return r /*<<array.ml:152:6>>*/ ;
+     /*<<array.ml:152:6>>*/ return r;
     /*<<array.ml:154:5>>*/ }
    function iteri(f, a){
     var _aa_ = a.length - 2 | 0, _$_ =  /*<<array.ml:157:2>>*/ 0;
     if(_aa_ >= 0){
      var i = _$_;
      for(;;){
-       /*<<array.ml:157:31>>*/  /*<<array.ml:157:31>>*/ caml_call2
-        /*<<array.ml:157:31>>*/ (f, i, a[1 + i]);
-      var _ab_ =  /*<<array.ml:157:31>>*/ i + 1 | 0;
+       /*<<array.ml:157:31>>*/ caml_call2(f, i, a[1 + i]);
+      var _ab_ = i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
@@ -8562,36 +7083,30 @@
     /*<<array.ml:157:56>>*/ }
    function mapi(f, a){
     var l = a.length - 1;
-     /*<<array.ml:161:2>>*/ if(0 === l)
-      /*<<array.ml:161:16>>*/ return [0] /*<<array.ml:161:16>>*/ ;
+     /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
     var
      r =
-        /*<<array.ml:162:12>>*/  /*<<array.ml:162:12>>*/ caml_make_vect
-         /*<<array.ml:162:12>>*/ (l,
-          /*<<array.ml:162:21>>*/ caml_call2
-           /*<<array.ml:162:21>>*/ (f, 0, a[1])),
+        /*<<array.ml:162:12>>*/ caml_make_vect
+        (l,  /*<<array.ml:162:21>>*/ caml_call2(f, 0, a[1])),
      _Z_ =  /*<<array.ml:163:4>>*/ l - 1 | 0,
      _Y_ =  /*<<array.ml:162:12>>*/ 1;
     if(_Z_ >= 1){
      var i = _Y_;
      for(;;){
        /*<<array.ml:164:6>>*/ r[1 + i] =
-        /*<<array.ml:164:21>>*/ caml_call2
-         /*<<array.ml:164:21>>*/ (f, i, a[1 + i]);
+        /*<<array.ml:164:21>>*/ caml_call2(f, i, a[1 + i]);
       var ___ =  /*<<array.ml:164:6>>*/ i + 1 | 0;
       if(_Z_ === i) break;
       i = ___;
      }
     }
-     /*<<array.ml:166:4>>*/ return r /*<<array.ml:166:4>>*/ ;
+     /*<<array.ml:166:4>>*/ return r;
     /*<<array.ml:167:5>>*/ }
    function to_list(a){
     var i$1 = a.length - 2 | 0, i = i$1, res = 0;
      /*<<array.ml:171:4>>*/ for(;;){
-     if(0 > i)  /*<<array.ml:171:18>>*/ return res /*<<array.ml:171:18>>*/ ;
-     var
-      res$0 =  /*<<array.ml:171:42>>*/ [0, a[1 + i], res],
-      i$0 =  /*<<array.ml:171:42>>*/ i - 1 | 0;
+     if(0 > i)  /*<<array.ml:171:18>>*/ return res;
+     var res$0 =  /*<<array.ml:171:42>>*/ [0, a[1 + i], res], i$0 = i - 1 | 0;
      i = i$0;
      res = res$0;
     }
@@ -8599,28 +7114,24 @@
    function list_length(accu, param){
     var accu$0 = accu, param$0 = param;
      /*<<array.ml:175:20>>*/ for(;;){
-     if(! param$0)
-       /*<<array.ml:176:10>>*/ return accu$0 /*<<array.ml:176:10>>*/ ;
+     if(! param$0)  /*<<array.ml:176:10>>*/ return accu$0;
      var t = param$0[2], accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = t;
     }
     /*<<array.ml:177:37>>*/ }
    function of_list(l){
-     /*<<array.ml:179:14>>*/ if(! l)
-      /*<<array.ml:180:10>>*/ return [0] /*<<array.ml:180:10>>*/ ;
+     /*<<array.ml:179:14>>*/ if(! l)  /*<<array.ml:180:10>>*/ return [0];
     var
      tl = l[2],
      hd = l[1],
      a =
-        /*<<array.ml:182:14>>*/  /*<<array.ml:182:14>>*/ caml_make_vect
-         /*<<array.ml:182:14>>*/ ( /*<<array.ml:182:21>>*/ list_length
-           /*<<array.ml:182:21>>*/ (0, l),
-         hd),
+        /*<<array.ml:182:14>>*/ caml_make_vect
+        ( /*<<array.ml:182:21>>*/ list_length(0, l), hd),
      i = 1,
      param = tl;
      /*<<array.ml:183:19>>*/ for(;;){
-     if(! param)  /*<<array.ml:183:6>>*/ return a /*<<array.ml:183:6>>*/ ;
+     if(! param)  /*<<array.ml:183:6>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
      var i$0 =  /*<<array.ml:183:6>>*/ i + 1 | 0;
@@ -8629,16 +7140,11 @@
     }
     /*<<array.ml:186:15>>*/ }
    function fold_left(f, x, a){
-    var
-     r =  /*<<array.ml:189:10>>*/ [0, x],
-     _W_ = a.length - 2 | 0,
-     _V_ =  /*<<array.ml:189:10>>*/ 0;
+    var r =  /*<<array.ml:189:10>>*/ [0, x], _W_ = a.length - 2 | 0, _V_ = 0;
     if(_W_ >= 0){
      var i = _V_;
      for(;;){
-      r[1] =
-        /*<<array.ml:191:9>>*/ caml_call2
-         /*<<array.ml:191:9>>*/ (f, r[1], a[1 + i]);
+      r[1] =  /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
       var _X_ =  /*<<array.ml:190:2>>*/ i + 1 | 0;
       if(_W_ === i) break;
       i = _X_;
@@ -8649,16 +7155,12 @@
    function fold_left_map(f, acc, input_array){
     var len = input_array.length - 1;
      /*<<array.ml:197:2>>*/ if(0 === len)
-      /*<<array.ml:197:18>>*/ return [0, acc, [0]] /*<<array.ml:197:18>>*/ ;
+      /*<<array.ml:197:18>>*/ return [0, acc, [0]];
     var
-     match =
-        /*<<array.ml:198:19>>*/  /*<<array.ml:198:19>>*/ caml_call2
-         /*<<array.ml:198:19>>*/ (f, acc, input_array[1]),
+     match =  /*<<array.ml:198:19>>*/ caml_call2(f, acc, input_array[1]),
      elt = match[2],
      acc$0 = match[1],
-     output_array =
-        /*<<array.ml:199:23>>*/  /*<<array.ml:199:23>>*/ caml_make_vect
-         /*<<array.ml:199:23>>*/ (len, elt),
+     output_array =  /*<<array.ml:199:23>>*/ caml_make_vect(len, elt),
      acc$1 =  /*<<array.ml:200:14>>*/ [0, acc$0],
      _T_ =  /*<<array.ml:201:4>>*/ len - 1 | 0,
      _S_ =  /*<<array.ml:200:14>>*/ 1;
@@ -8667,8 +7169,7 @@
      for(;;){
       var
        match$0 =
-          /*<<array.ml:202:22>>*/  /*<<array.ml:202:22>>*/ caml_call2
-           /*<<array.ml:202:22>>*/ (f, acc$1[1], input_array[1 + i]),
+          /*<<array.ml:202:22>>*/ caml_call2(f, acc$1[1], input_array[1 + i]),
        elt$0 = match$0[2],
        acc$2 = match$0[1];
       acc$1[1] = acc$2;
@@ -8678,7 +7179,7 @@
       i = _U_;
      }
     }
-     /*<<array.ml:206:4>>*/ return [0, acc$1[1], output_array] /*<<array.ml:206:4>>*/ ;
+     /*<<array.ml:206:4>>*/ return [0, acc$1[1], output_array];
     /*<<array.ml:207:5>>*/ }
    function fold_right(f, a, x){
     var
@@ -8687,9 +7188,7 @@
     if(_Q_ >= 0){
      var i = _Q_;
      for(;;){
-      r[1] =
-        /*<<array.ml:212:9>>*/ caml_call2
-         /*<<array.ml:212:9>>*/ (f, a[1 + i], r[1]);
+      r[1] =  /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
       var _R_ =  /*<<array.ml:211:2>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _R_;
@@ -8700,11 +7199,9 @@
    function exists(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:219:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:219:18>>*/ return 0 /*<<array.ml:219:18>>*/ ;
-      /*<<array.ml:220:12>>*/ if
-      ( /*<<array.ml:220:12>>*/ caml_call1
-         /*<<array.ml:220:12>>*/ (p, a[1 + i]))
-       /*<<array.ml:220:36>>*/ return 1 /*<<array.ml:220:36>>*/ ;
+     if(i === n)  /*<<array.ml:219:18>>*/ return 0;
+      /*<<array.ml:220:12>>*/ if(caml_call1(p, a[1 + i]))
+       /*<<array.ml:220:36>>*/ return 1;
      var i$0 =  /*<<array.ml:221:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8712,12 +7209,9 @@
    function for_all(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:227:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:227:18>>*/ return 1 /*<<array.ml:227:18>>*/ ;
-      /*<<array.ml:228:12>>*/ if
-      (!
-        /*<<array.ml:228:12>>*/ caml_call1
-         /*<<array.ml:228:12>>*/ (p, a[1 + i]))
-       /*<<array.ml:229:9>>*/ return 0 /*<<array.ml:229:9>>*/ ;
+     if(i === n)  /*<<array.ml:227:18>>*/ return 1;
+      /*<<array.ml:228:12>>*/ if(! caml_call1(p, a[1 + i]))
+       /*<<array.ml:229:9>>*/ return 0;
      var i$0 =  /*<<array.ml:228:36>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8725,16 +7219,12 @@
    function for_all2(p, l1, l2){
     var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
-      /*<<array.ml:235:19>>*/ return  /*<<array.ml:235:19>>*/ caml_call1
-              /*<<array.ml:235:19>>*/ (Stdlib[1], cst_Array_for_all2) /*<<array.ml:240:8>>*/ ;
+      /*<<array.ml:235:19>>*/ return caml_call1(Stdlib[1], cst_Array_for_all2) /*<<array.ml:240:8>>*/ ;
     var i = 0;
      /*<<array.ml:237:4>>*/ for(;;){
-     if(i === n1)  /*<<array.ml:237:19>>*/ return 1 /*<<array.ml:237:19>>*/ ;
-      /*<<array.ml:238:12>>*/ if
-      (!
-        /*<<array.ml:238:12>>*/ caml_call2
-         /*<<array.ml:238:12>>*/ (p, l1[1 + i], l2[1 + i]))
-       /*<<array.ml:239:9>>*/ return 0 /*<<array.ml:239:9>>*/ ;
+     if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
+      /*<<array.ml:238:12>>*/ if(! caml_call2(p, l1[1 + i], l2[1 + i]))
+       /*<<array.ml:239:9>>*/ return 0;
      var i$0 =  /*<<array.ml:238:55>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8742,15 +7232,12 @@
    function exists2(p, l1, l2){
     var n1 = l1.length - 1, n2 = l2.length - 1;
     if(n1 !== n2)
-      /*<<array.ml:245:19>>*/ return  /*<<array.ml:245:19>>*/ caml_call1
-              /*<<array.ml:245:19>>*/ (Stdlib[1], cst_Array_exists2) /*<<array.ml:250:8>>*/ ;
+      /*<<array.ml:245:19>>*/ return caml_call1(Stdlib[1], cst_Array_exists2) /*<<array.ml:250:8>>*/ ;
     var i = 0;
      /*<<array.ml:247:4>>*/ for(;;){
-     if(i === n1)  /*<<array.ml:247:19>>*/ return 0 /*<<array.ml:247:19>>*/ ;
-      /*<<array.ml:248:12>>*/ if
-      ( /*<<array.ml:248:12>>*/ caml_call2
-         /*<<array.ml:248:12>>*/ (p, l1[1 + i], l2[1 + i]))
-       /*<<array.ml:248:55>>*/ return 1 /*<<array.ml:248:55>>*/ ;
+     if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
+      /*<<array.ml:248:12>>*/ if(caml_call2(p, l1[1 + i], l2[1 + i]))
+       /*<<array.ml:248:55>>*/ return 1;
      var i$0 =  /*<<array.ml:249:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8758,13 +7245,9 @@
    function mem(x, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:255:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:255:18>>*/ return 0 /*<<array.ml:255:18>>*/ ;
-      /*<<array.ml:256:12>>*/ if
-      (0
-       ===
-         /*<<array.ml:256:12>>*/ runtime.caml_compare
-          /*<<array.ml:256:12>>*/ (a[1 + i], x))
-       /*<<array.ml:256:48>>*/ return 1 /*<<array.ml:256:48>>*/ ;
+     if(i === n)  /*<<array.ml:255:18>>*/ return 0;
+      /*<<array.ml:256:12>>*/ if(0 === runtime.caml_compare(a[1 + i], x))
+       /*<<array.ml:256:48>>*/ return 1;
      var i$0 =  /*<<array.ml:257:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8772,9 +7255,8 @@
    function memq(x, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:263:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:263:18>>*/ return 0 /*<<array.ml:263:18>>*/ ;
-     if(x === a[1 + i])
-       /*<<array.ml:264:39>>*/ return 1 /*<<array.ml:264:39>>*/ ;
+     if(i === n)  /*<<array.ml:263:18>>*/ return 0;
+     if(x === a[1 + i])  /*<<array.ml:264:39>>*/ return 1;
      var i$0 =  /*<<array.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8782,11 +7264,10 @@
    function find_opt(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:271:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:271:18>>*/ return 0 /*<<array.ml:271:18>>*/ ;
+     if(i === n)  /*<<array.ml:271:18>>*/ return 0;
      var x =  /*<<array.ml:273:14>>*/ a[1 + i];
-      /*<<array.ml:274:9>>*/ if
-      ( /*<<array.ml:274:9>>*/ caml_call1 /*<<array.ml:274:9>>*/ (p, x))
-       /*<<array.ml:274:18>>*/ return [0, x] /*<<array.ml:274:18>>*/ ;
+      /*<<array.ml:274:9>>*/ if(caml_call1(p, x))
+       /*<<array.ml:274:18>>*/ return [0, x];
      var i$0 =  /*<<array.ml:275:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8794,11 +7275,9 @@
    function find_index(p, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:282:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:282:18>>*/ return 0 /*<<array.ml:282:18>>*/ ;
-      /*<<array.ml:283:12>>*/ if
-      ( /*<<array.ml:283:12>>*/ caml_call1
-         /*<<array.ml:283:12>>*/ (p, a[1 + i]))
-       /*<<array.ml:283:36>>*/ return [0, i] /*<<array.ml:283:36>>*/ ;
+     if(i === n)  /*<<array.ml:282:18>>*/ return 0;
+      /*<<array.ml:283:12>>*/ if(caml_call1(p, a[1 + i]))
+       /*<<array.ml:283:36>>*/ return [0, i];
      var i$0 =  /*<<array.ml:284:9>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8806,12 +7285,9 @@
    function find_map(f, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:290:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:290:18>>*/ return 0 /*<<array.ml:290:18>>*/ ;
-     var
-      r =
-         /*<<array.ml:292:12>>*/  /*<<array.ml:292:12>>*/ caml_call1
-          /*<<array.ml:292:12>>*/ (f, a[1 + i]);
-     if(r)  /*<<array.ml:294:23>>*/ return r /*<<array.ml:294:23>>*/ ;
+     if(i === n)  /*<<array.ml:290:18>>*/ return 0;
+     var r =  /*<<array.ml:292:12>>*/ caml_call1(f, a[1 + i]);
+     if(r)  /*<<array.ml:294:23>>*/ return r;
      var i$0 =  /*<<array.ml:293:16>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -8819,32 +7295,24 @@
    function find_mapi(f, a){
     var n = a.length - 1, i = 0;
      /*<<array.ml:301:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:301:18>>*/ return 0 /*<<array.ml:301:18>>*/ ;
-     var
-      r =
-         /*<<array.ml:303:12>>*/  /*<<array.ml:303:12>>*/ caml_call2
-          /*<<array.ml:303:12>>*/ (f, i, a[1 + i]);
-     if(r)  /*<<array.ml:305:23>>*/ return r /*<<array.ml:305:23>>*/ ;
+     if(i === n)  /*<<array.ml:301:18>>*/ return 0;
+     var r =  /*<<array.ml:303:12>>*/ caml_call2(f, i, a[1 + i]);
+     if(r)  /*<<array.ml:305:23>>*/ return r;
      var i$0 =  /*<<array.ml:304:16>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:307:8>>*/ }
    function split(x){
      /*<<array.ml:310:2>>*/ if
-     ( /*<<array.ml:310:5>>*/ runtime.caml_equal
-        /*<<array.ml:310:5>>*/ (x, [0]))
-      /*<<array.ml:310:19>>*/ return [0, [0], [0]] /*<<array.ml:310:19>>*/ ;
+     ( /*<<array.ml:310:5>>*/ runtime.caml_equal(x, [0]))
+      /*<<array.ml:310:19>>*/ return [0, [0], [0]];
     var
      match = x[1],
      b0 = match[2],
      a0 = match[1],
      n =  /*<<array.ml:313:4>>*/ x.length - 1,
-     a =
-        /*<<array.ml:314:12>>*/  /*<<array.ml:314:12>>*/ caml_make_vect
-         /*<<array.ml:314:12>>*/ (n, a0),
-     b =
-        /*<<array.ml:315:12>>*/  /*<<array.ml:315:12>>*/ caml_make_vect
-         /*<<array.ml:315:12>>*/ (n, b0),
+     a =  /*<<array.ml:314:12>>*/ caml_make_vect(n, a0),
+     b =  /*<<array.ml:315:12>>*/ caml_make_vect(n, b0),
      _O_ =  /*<<array.ml:316:4>>*/ n - 1 | 0,
      _N_ =  /*<<array.ml:315:12>>*/ 1;
     if(_O_ >= 1){
@@ -8858,18 +7326,15 @@
       i = _P_;
      }
     }
-     /*<<array.ml:321:4>>*/ return [0, a, b] /*<<array.ml:321:4>>*/ ;
+     /*<<array.ml:321:4>>*/ return [0, a, b];
     /*<<array.ml:322:5>>*/ }
    function combine(a, b){
     var na = a.length - 1, nb =  /*<<array.ml:326:2>>*/ b.length - 1;
     if(na !== nb)
-      /*<<array.ml:327:19>>*/  /*<<array.ml:327:19>>*/ caml_call1
-       /*<<array.ml:327:19>>*/ (Stdlib[1], cst_Array_combine);
-    if(0 === na)  /*<<array.ml:328:17>>*/ return [0] /*<<array.ml:328:17>>*/ ;
+      /*<<array.ml:327:19>>*/ caml_call1(Stdlib[1], cst_Array_combine);
+    if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
     var
-     x =
-        /*<<array.ml:330:12>>*/  /*<<array.ml:330:12>>*/ caml_make_vect
-         /*<<array.ml:330:12>>*/ (na, [0, a[1], b[1]]),
+     x =  /*<<array.ml:330:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
      _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
      _K_ =  /*<<array.ml:330:12>>*/ 1;
     if(_L_ >= 1){
@@ -8881,7 +7346,7 @@
       i = _M_;
      }
     }
-     /*<<array.ml:334:4>>*/ return x /*<<array.ml:334:4>>*/ ;
+     /*<<array.ml:334:4>>*/ return x;
     /*<<array.ml:335:5>>*/ }
    var
     Bottom =
@@ -8900,7 +7365,7 @@
        _E_ =  /*<<array.ml:343:25>>*/ caml_check_bound(a, _D_)[1 + _D_];
       if
        ( /*<<array.ml:343:9>>*/ caml_call2
-          /*<<array.ml:343:9>>*/ (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
+         (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
         < 0)
        x[1] = i31 + 1 | 0;
       var
@@ -8909,7 +7374,7 @@
        _H_ = x[1];
       if
        ( /*<<array.ml:344:9>>*/ caml_call2
-          /*<<array.ml:344:9>>*/ (cmp, caml_check_bound(a, _H_)[1 + _H_], _G_)
+         (cmp, caml_check_bound(a, _H_)[1 + _H_], _G_)
         < 0)
        x[1] = i31 + 2 | 0;
       return x[1];
@@ -8919,17 +7384,12 @@
        _I_ = i31 + 1 | 0,
        _J_ =  /*<<array.ml:347:38>>*/ caml_check_bound(a, _I_)[1 + _I_];
        /*<<array.ml:347:22>>*/ if
-       (0
-        >
-          /*<<array.ml:347:22>>*/ caml_call2
-           /*<<array.ml:347:22>>*/ (cmp,
-           caml_check_bound(a, i31)[1 + i31],
-           _J_))
-        /*<<array.ml:348:11>>*/ return i31 + 1 | 0 /*<<array.ml:348:11>>*/ ;
-     }
-     if(i31 < l)  /*<<array.ml:349:27>>*/ return i31 /*<<array.ml:349:27>>*/ ;
-      /*<<array.ml:349:36>>*/ throw  /*<<array.ml:349:36>>*/ caml_maybe_attach_backtrace
-             /*<<array.ml:349:36>>*/ ([0, Bottom, i], 1);
+       (0 > caml_call2(cmp, caml_check_bound(a, i31)[1 + i31], _J_))
+        /*<<array.ml:348:11>>*/ return i31 + 1 | 0;
+     }
+     if(i31 < l)  /*<<array.ml:349:27>>*/ return i31;
+      /*<<array.ml:349:36>>*/ throw 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){
@@ -8939,15 +7399,9 @@
        /*<<array.ml:360:22>>*/ try{
        var i = i$6;
         /*<<array.ml:352:4>>*/ for(;;){
-        var
-         j =
-            /*<<array.ml:352:12>>*/  /*<<array.ml:352:12>>*/ maxson
-             /*<<array.ml:352:12>>*/ (l, i);
+        var j =  /*<<array.ml:352:12>>*/ maxson(l, i);
          /*<<array.ml:353:7>>*/ if
-         (0
-          >=
-            /*<<array.ml:353:7>>*/ caml_call2
-             /*<<array.ml:353:7>>*/ (cmp, caml_check_bound(a, j)[1 + j], e$1))
+         (0 >= caml_call2(cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
         var _u_ =  /*<<array.ml:354:14>>*/ caml_check_bound(a, j)[1 + j];
          /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
@@ -8977,9 +7431,7 @@
        var i$1 = i$5;
         /*<<array.ml:362:4>>*/ for(;;){
         var
-         j$0 =
-            /*<<array.ml:362:12>>*/  /*<<array.ml:362:12>>*/ maxson
-             /*<<array.ml:362:12>>*/ (i$4, i$1),
+         j$0 =  /*<<array.ml:362:12>>*/ maxson(i$4, i$1),
          _v_ =  /*<<array.ml:363:12>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<array.ml:363:4>>*/ caml_check_bound(a, i$1)[1 + i$1] = _v_;
         i$1 = j$0;
@@ -8997,15 +7449,10 @@
           /*<<array.ml:368:4>>*/ for(;;){
           var father = (i$3 - 1 | 0) / 3 | 0;
           if(i$3 === father)
-            /*<<array.ml:369:4>>*/ throw  /*<<array.ml:369:4>>*/ caml_maybe_attach_backtrace
-                   /*<<array.ml:369:4>>*/ ([0, Assert_failure, _a_], 1);
+            /*<<array.ml:369:4>>*/ throw caml_maybe_attach_backtrace
+                  ([0, Assert_failure, _a_], 1);
            /*<<array.ml:370:7>>*/ if
-           (0
-            <=
-              /*<<array.ml:370:7>>*/ caml_call2
-               /*<<array.ml:370:7>>*/ (cmp,
-               caml_check_bound(a, father)[1 + father],
-               e$0))
+           (0 <= caml_call2(cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
           var
            _w_ =
@@ -9034,7 +7481,7 @@
     }
     else
      var _A_ = _z_;
-     /*<<array.ml:384:57>>*/ return _A_ /*<<array.ml:384:57>>*/ ;
+    return _A_;
     /*<<array.ml:384:67>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
@@ -9051,20 +7498,12 @@
       s2 = s2$1,
       d = dstofs;
       /*<<array.ml:392:6>>*/ for(;;)
-       /*<<array.ml:392:9>>*/ if
-       (0
-        <
-          /*<<array.ml:392:9>>*/ caml_call2
-           /*<<array.ml:392:9>>*/ (cmp, s1, s2)){
+       /*<<array.ml:392:9>>*/ if(0 < caml_call2(cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-       var i2$0 =  /*<<array.ml:400:8>>*/ i2 + 1 | 0;
+       var i2$0 = i2 + 1 | 0;
        if(i2$0 >= src2r)
-         /*<<array.ml:106:9>>*/ return  /*<<array.ml:106:9>>*/ blit
-                 /*<<array.ml:106:9>>*/ (a,
-                 i1,
-                 dst,
-                 d + 1 | 0,
-                 src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
+         /*<<array.ml:106:9>>*/ return blit
+                (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
         s2$0 =  /*<<array.ml:403:24>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -9074,14 +7513,10 @@
       }
       else{
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-       var i1$0 =  /*<<array.ml:393:8>>*/ i1 + 1 | 0;
+       var i1$0 = i1 + 1 | 0;
        if(i1$0 >= src1r)
-         /*<<array.ml:106:9>>*/ return  /*<<array.ml:106:9>>*/ blit
-                 /*<<array.ml:106:9>>*/ (src2,
-                 i2,
-                 dst,
-                 d + 1 | 0,
-                 src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
+         /*<<array.ml:106:9>>*/ return blit
+                (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
         s1$0 =  /*<<array.ml:396:18>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -9103,12 +7538,7 @@
         if(dstofs > j[1]) break;
         var _o_ = j[1];
          /*<<array.ml:413:29>>*/ if
-         (0
-          >=
-            /*<<array.ml:413:29>>*/ caml_call2
-             /*<<array.ml:413:29>>*/ (cmp,
-             caml_check_bound(dst, _o_)[1 + _o_],
-             e))
+         (0 >= caml_call2(cmp, caml_check_bound(dst, _o_)[1 + _o_], e))
          break;
         var
          _p_ = j[1],
@@ -9128,48 +7558,31 @@
      /*<<array.ml:418:8>>*/ }
     function sortto(srcofs, dst, dstofs, len){
       /*<<array.ml:421:4>>*/ if(len <= 5)
-       /*<<array.ml:421:26>>*/ return  /*<<array.ml:421:26>>*/ isortto
-               /*<<array.ml:421:26>>*/ (srcofs, dst, dstofs, len) /*<<array.ml:427:7>>*/ ;
+       /*<<array.ml:421:26>>*/ return isortto(srcofs, dst, dstofs, len) /*<<array.ml:427:7>>*/ ;
      var l1 = len / 2 | 0, l2 = len - l1 | 0;
-      /*<<array.ml:424:6>>*/  /*<<array.ml:424:6>>*/ sortto
-       /*<<array.ml:424:6>>*/ (srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
-      /*<<array.ml:425:6>>*/  /*<<array.ml:425:6>>*/ sortto
-       /*<<array.ml:425:6>>*/ (srcofs, a, srcofs + l2 | 0, l1);
-      /*<<array.ml:425:6>>*/ return  /*<<array.ml:425:6>>*/ merge
-              /*<<array.ml:425:6>>*/ (srcofs + l2 | 0,
-              l1,
-              dst,
-              dstofs + l1 | 0,
-              l2,
-              dst,
-              dstofs) /*<<array.ml:427:7>>*/ ;
-     /*<<array.ml:427:7>>*/ }
+      /*<<array.ml:424:6>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
+      /*<<array.ml:425:6>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
+     return merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<array.ml:427:7>>*/ ;
+    }
     var l = a.length - 1;
     if(l <= 5)
-      /*<<array.ml:430:22>>*/ return  /*<<array.ml:430:22>>*/ isortto
-              /*<<array.ml:430:22>>*/ (0, a, 0, l) /*<<array.ml:437:5>>*/ ;
+      /*<<array.ml:430:22>>*/ return isortto(0, a, 0, l) /*<<array.ml:437:5>>*/ ;
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
      t =
-        /*<<array.ml:433:12>>*/  /*<<array.ml:433:12>>*/ caml_make_vect
-         /*<<array.ml:433:12>>*/ (l2, caml_check_bound(a, 0)[1]);
-     /*<<array.ml:434:4>>*/  /*<<array.ml:434:4>>*/ sortto
-      /*<<array.ml:434:4>>*/ (l1, t, 0, l2);
-     /*<<array.ml:435:4>>*/  /*<<array.ml:435:4>>*/ sortto
-      /*<<array.ml:435:4>>*/ (0, a, l2, l1);
-     /*<<array.ml:435:4>>*/ return  /*<<array.ml:435:4>>*/ merge
-             /*<<array.ml:435:4>>*/ (l2, l1, t, 0, l2, a, 0) /*<<array.ml:437:5>>*/ ;
-    /*<<array.ml:437:5>>*/ }
+        /*<<array.ml:433:12>>*/ caml_make_vect(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);
+    return merge(l2, l1, t, 0, l2, a, 0) /*<<array.ml:437:5>>*/ ;
+   }
    function shuffle(rand, a){
     var _j_ = a.length - 2 | 0;
     if(_j_ >= 1){
      var i = _j_;
      for(;;){
       var
-       j =
-          /*<<array.ml:444:12>>*/  /*<<array.ml:444:12>>*/ caml_call1
-           /*<<array.ml:444:12>>*/ (rand, i + 1 | 0),
+       j =  /*<<array.ml:444:12>>*/ caml_call1(rand, i + 1 | 0),
        v =  /*<<array.ml:445:12>>*/ 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;
@@ -9183,58 +7596,50 @@
    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:458:9>>*/ ;
-     var
-      x =  /*<<array.ml:456:14>>*/ a[1 + i],
-      _h_ =  /*<<array.ml:456:14>>*/ i + 1 | 0;
+       /*<<array.ml:458:9>>*/ return 0;
+     var x =  /*<<array.ml:456:14>>*/ a[1 + i], _h_ = i + 1 | 0;
       /*<<array.ml:457:6>>*/ return [0,
              x,
              function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:6>>*/ ;
      /*<<array.ml:458:16>>*/ }
     var _f_ =  /*<<array.ml:460:2>>*/ 0;
-     /*<<array.ml:460:2>>*/ return function(_g_){
+    return function(_g_){
       /*<<?>>*/ return aux(_f_, _g_);} /*<<array.ml:460:2>>*/ ;
     /*<<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:468:9>>*/ ;
-     var
-      x =  /*<<array.ml:466:14>>*/ a[1 + i],
-      _d_ =  /*<<array.ml:466:14>>*/ i + 1 | 0;
+       /*<<array.ml:468:9>>*/ return 0;
+     var x =  /*<<array.ml:466:14>>*/ a[1 + i], _d_ = i + 1 | 0;
       /*<<array.ml:467:6>>*/ return [0,
              [0, i, x],
              function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:6>>*/ ;
      /*<<array.ml:468:16>>*/ }
     var _b_ =  /*<<array.ml:470:2>>*/ 0;
-     /*<<array.ml:470:2>>*/ return function(_c_){
+    return function(_c_){
       /*<<?>>*/ return aux(_b_, _c_);} /*<<array.ml:470:2>>*/ ;
     /*<<array.ml:470:7>>*/ }
    function of_seq(i$2){
     var
      l =
-        /*<<array.ml:484:10>>*/  /*<<array.ml:484:10>>*/ caml_call3
-         /*<<array.ml:484:10>>*/ (Stdlib_Seq[5],
+        /*<<array.ml:484:10>>*/ caml_call3
+        (Stdlib_Seq[5],
          function(acc, x){
-           /*<<array.ml:484:38>>*/ return [0, x, acc] /*<<array.ml:484:38>>*/ ;
+           /*<<array.ml:484:38>>*/ return [0, x, acc];
           /*<<array.ml:484:44>>*/ },
          0,
          i$2);
-    if(! l)  /*<<array.ml:473:10>>*/ return [0] /*<<array.ml:473:10>>*/ ;
+    if(! l)  /*<<array.ml:473:10>>*/ return [0];
     var
      tl = l[2],
      hd = l[1],
-     len =
-        /*<<array.ml:475:16>>*/  /*<<array.ml:475:16>>*/ list_length
-         /*<<array.ml:475:16>>*/ (0, l),
-     a =
-        /*<<array.ml:476:14>>*/  /*<<array.ml:476:14>>*/ caml_make_vect
-         /*<<array.ml:476:14>>*/ (len, hd),
+     len =  /*<<array.ml:475:16>>*/ list_length(0, l),
+     a =  /*<<array.ml:476:14>>*/ caml_make_vect(len, hd),
      i$1 =  /*<<array.ml:475:16>>*/ len - 2 | 0,
      i = i$1,
      param = tl;
      /*<<array.ml:477:19>>*/ for(;;){
-     if(! param)  /*<<array.ml:477:6>>*/ return a /*<<array.ml:477:6>>*/ ;
+     if(! param)  /*<<array.ml:477:6>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:479:20>>*/ a[1 + i] = hd$0;
      var i$0 =  /*<<array.ml:477:6>>*/ i - 1 | 0;
@@ -9298,20 +7703,19 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_Float_array_blit$1 =  /*<<?>>*/ "Float.array.blit",
-    cst_float_ml =  /*<<?>>*/ "float.ml",
-    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_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,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst_Float_array_blit$1 = "Float.array.blit",
+    cst_float_ml = "float.ml",
+    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_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,
+    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)
@@ -9337,14 +7741,13 @@
     neg_infinity = Stdlib[23],
     nan = Stdlib[24],
     signaling_nan =
-       /*<<float.ml:38:20>>*/  /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
-        /*<<float.ml:38:20>>*/ (runtime.caml_int64_create_lo_mi_hi
-         (1, 0, 32752));
+       /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
+       (runtime.caml_int64_create_lo_mi_hi(1, 0, 32752));
    function is_finite(x){
-     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0 /*<<float.ml:39:27>>*/ ;
+     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0;
     /*<<float.ml:39:38>>*/ }
    function is_infinite(x){
-     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0 /*<<float.ml:40:29>>*/ ;
+     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0;
     /*<<float.ml:40:41>>*/ }
    function is_nan(x){
      /*<<float.ml:41:24>>*/ return x !== x ? 1 : 0;
@@ -9370,25 +7773,15 @@
       "Float.Array.map2: arrays must have the same length";
    function is_integer(x){
     var
-     _aX_ =
-       x
-        ===
-          /*<<float.ml:116:23>>*/ runtime.caml_trunc_float
-           /*<<float.ml:116:23>>*/ (x)
-        ? 1
-        : 0;
-    return _aX_
-            ?  /*<<float.ml:39:14>>*/ is_finite /*<<float.ml:39:14>>*/ (x)
-            : _aX_ /*<<float.ml:116:45>>*/ ;
-    /*<<float.ml:116:45>>*/ }
+     _aX_ = x ===  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x) ? 1 : 0;
+    return _aX_ ?  /*<<float.ml:39:14>>*/ is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
+   }
    function succ(x){
-     /*<<float.ml:121:13>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
-             /*<<float.ml:121:13>>*/ (x, infinity) /*<<float.ml:121:34>>*/ ;
-    /*<<float.ml:121:34>>*/ }
+     /*<<float.ml:121:13>>*/ return caml_nextafter_float(x, infinity) /*<<float.ml:121:34>>*/ ;
+   }
    function pred(x){
-     /*<<float.ml:122:13>>*/ return  /*<<float.ml:122:13>>*/ caml_nextafter_float
-             /*<<float.ml:122:13>>*/ (x, neg_infinity) /*<<float.ml:122:38>>*/ ;
-    /*<<float.ml:122:38>>*/ }
+     /*<<float.ml:122:13>>*/ return caml_nextafter_float(x, neg_infinity) /*<<float.ml:122:38>>*/ ;
+   }
    function equal(x, y){
      /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
     /*<<float.ml:136:31>>*/ }
@@ -9397,108 +7790,93 @@
     if(! (x < y)){
       /*<<float.ml:139:18>>*/ if
       (!
-        /*<<float.ml:139:18>>*/ caml_signbit_float /*<<float.ml:139:18>>*/ (y)
-       &&
-         /*<<float.ml:139:34>>*/ caml_signbit_float
-          /*<<float.ml:139:34>>*/ (x))
+       caml_signbit_float(y)
+       &&  /*<<float.ml:139:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:141:10>>*/ return x !== x ? x : y /*<<float.ml:141:32>>*/ ;
     }
      /*<<float.ml:140:7>>*/ return y !== y ? y : x /*<<float.ml:141:32>>*/ ;
-    /*<<float.ml:141:32>>*/ }
+   }
    function max(x, y){
     a:
     if(! (x < y)){
       /*<<float.ml:144:18>>*/ if
       (!
-        /*<<float.ml:144:18>>*/ caml_signbit_float /*<<float.ml:144:18>>*/ (y)
-       &&
-         /*<<float.ml:144:34>>*/ caml_signbit_float
-          /*<<float.ml:144:34>>*/ (x))
+       caml_signbit_float(y)
+       &&  /*<<float.ml:144:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:146:10>>*/ return y !== y ? y : x /*<<float.ml:146:32>>*/ ;
     }
      /*<<float.ml:145:7>>*/ return x !== x ? x : y /*<<float.ml:146:32>>*/ ;
-    /*<<float.ml:146:32>>*/ }
+   }
    function min_max(x, y){
      /*<<float.ml:149:2>>*/ if(x === x && y === y){
      a:
      if(! (x < y)){
        /*<<float.ml:150:23>>*/ if
        (!
-         /*<<float.ml:150:23>>*/ caml_signbit_float
-          /*<<float.ml:150:23>>*/ (y)
-        &&
-          /*<<float.ml:150:39>>*/ caml_signbit_float
-           /*<<float.ml:150:39>>*/ (x))
+        caml_signbit_float(y)
+        &&  /*<<float.ml:150:39>>*/ caml_signbit_float(x))
        break a;
-       /*<<float.ml:150:68>>*/ return [0, y, x] /*<<float.ml:150:68>>*/ ;
+       /*<<float.ml:150:68>>*/ return [0, y, x];
      }
-      /*<<float.ml:150:56>>*/ return [0, x, y] /*<<float.ml:150:56>>*/ ;
+      /*<<float.ml:150:56>>*/ return [0, x, y];
     }
-     /*<<float.ml:149:31>>*/ return [0, nan, nan] /*<<float.ml:149:31>>*/ ;
+     /*<<float.ml:149:31>>*/ return [0, nan, nan];
     /*<<float.ml:150:74>>*/ }
    function min_num(x, y){
     a:
     if(! (x < y)){
       /*<<float.ml:153:18>>*/ if
       (!
-        /*<<float.ml:153:18>>*/ caml_signbit_float /*<<float.ml:153:18>>*/ (y)
-       &&
-         /*<<float.ml:153:34>>*/ caml_signbit_float
-          /*<<float.ml:153:34>>*/ (x))
+       caml_signbit_float(y)
+       &&  /*<<float.ml:153:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:155:10>>*/ return y !== y ? x : y /*<<float.ml:155:32>>*/ ;
     }
      /*<<float.ml:154:7>>*/ return x !== x ? y : x /*<<float.ml:155:32>>*/ ;
-    /*<<float.ml:155:32>>*/ }
+   }
    function max_num(x, y){
     a:
     if(! (x < y)){
       /*<<float.ml:158:18>>*/ if
       (!
-        /*<<float.ml:158:18>>*/ caml_signbit_float /*<<float.ml:158:18>>*/ (y)
-       &&
-         /*<<float.ml:158:34>>*/ caml_signbit_float
-          /*<<float.ml:158:34>>*/ (x))
+       caml_signbit_float(y)
+       &&  /*<<float.ml:158:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:160:10>>*/ return x !== x ? y : x /*<<float.ml:160:32>>*/ ;
     }
      /*<<float.ml:159:7>>*/ return y !== y ? x : y /*<<float.ml:160:32>>*/ ;
-    /*<<float.ml:160:32>>*/ }
+   }
    function min_max_num(x, y){
      /*<<float.ml:163:2>>*/ if(x !== x)
-      /*<<float.ml:163:19>>*/ return [0, y, y] /*<<float.ml:163:19>>*/ ;
+      /*<<float.ml:163:19>>*/ return [0, y, y];
      /*<<float.ml:164:10>>*/ if(y !== y)
-      /*<<float.ml:164:24>>*/ return [0, x, x] /*<<float.ml:164:24>>*/ ;
+      /*<<float.ml:164:24>>*/ return [0, x, x];
     a:
     if(! (x < y)){
       /*<<float.ml:165:23>>*/ if
       (!
-        /*<<float.ml:165:23>>*/ caml_signbit_float /*<<float.ml:165:23>>*/ (y)
-       &&
-         /*<<float.ml:165:39>>*/ caml_signbit_float
-          /*<<float.ml:165:39>>*/ (x))
+       caml_signbit_float(y)
+       &&  /*<<float.ml:165:39>>*/ caml_signbit_float(x))
       break a;
-      /*<<float.ml:165:67>>*/ return [0, y, x] /*<<float.ml:165:67>>*/ ;
+      /*<<float.ml:165:67>>*/ return [0, y, x];
     }
-     /*<<float.ml:165:56>>*/ return [0, x, y] /*<<float.ml:165:56>>*/ ;
+     /*<<float.ml:165:56>>*/ return [0, x, y];
     /*<<float.ml:165:72>>*/ }
    function seeded_hash(seed, x){
-     /*<<float.ml:169:25>>*/ return  /*<<float.ml:169:25>>*/ caml_hash
-             /*<<float.ml:169:25>>*/ (10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
-    /*<<float.ml:169:56>>*/ }
+     /*<<float.ml:169:25>>*/ return caml_hash(10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
+   }
    function hash(x){
-     /*<<float.ml:170:13>>*/ return  /*<<float.ml:170:13>>*/ caml_hash
-             /*<<float.ml:170:13>>*/ (10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
-    /*<<float.ml:170:41>>*/ }
+     /*<<float.ml:170:13>>*/ return caml_hash(10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
+   }
    function unsafe_fill(a, ofs, len, v){
     var _aV_ = (ofs + len | 0) - 1 | 0;
     if(_aV_ >= ofs){
      var i = ofs;
      for(;;){
        /*<<float.ml:184:36>>*/ a[1 + i] = v;
-      var _aW_ =  /*<<float.ml:184:36>>*/ i + 1 | 0;
+      var _aW_ = i + 1 | 0;
       if(_aV_ === i) break;
       i = _aW_;
      }
@@ -9518,94 +7896,78 @@
        _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
-               /*<<float.ml:191:6>>*/ (Stdlib[1], msg)
-            : _aS_ /*<<float.ml:191:21>>*/ ;
-    /*<<float.ml:191:21>>*/ }
+    return _aS_ ?  /*<<float.ml:191:6>>*/ caml_call1(Stdlib[1], msg) : _aS_ /*<<float.ml:191:21>>*/ ;
+   }
    function make(n, v){
-    var
-     result =
-        /*<<float.ml:194:17>>*/  /*<<float.ml:194:17>>*/ caml_floatarray_create
-         /*<<float.ml:194:17>>*/ (n);
-     /*<<float.ml:195:4>>*/  /*<<float.ml:195:4>>*/ unsafe_fill
-      /*<<float.ml:195:4>>*/ (result, 0, n, v);
-     /*<<float.ml:195:4>>*/ return result /*<<float.ml:195:4>>*/ ;
+    var result =  /*<<float.ml:194:17>>*/ caml_floatarray_create(n);
+     /*<<float.ml:195:4>>*/ unsafe_fill(result, 0, n, v);
+    return result;
     /*<<float.ml:196:10>>*/ }
    function init(l, f){
      /*<<float.ml:199:4>>*/ if(0 > l)
-      /*<<float.ml:199:18>>*/ return  /*<<float.ml:199:18>>*/ caml_call1
-              /*<<float.ml:199:18>>*/ (Stdlib[1], cst_Float_Array_init) /*<<float.ml:205:9>>*/ ;
+      /*<<float.ml:199:18>>*/ return caml_call1
+             (Stdlib[1], cst_Float_Array_init) /*<<float.ml:205:9>>*/ ;
     var
-     res =
-        /*<<float.ml:201:16>>*/  /*<<float.ml:201:16>>*/ caml_floatarray_create
-         /*<<float.ml:201:16>>*/ (l),
+     res =  /*<<float.ml:201:16>>*/ caml_floatarray_create(l),
      _aP_ =  /*<<float.ml:202:6>>*/ l - 1 | 0,
      _aO_ =  /*<<float.ml:201:16>>*/ 0;
     if(_aP_ >= 0){
      var i = _aO_;
      for(;;){
        /*<<float.ml:203:8>>*/ res[1 + i] =
-        /*<<float.ml:203:25>>*/ caml_call1 /*<<float.ml:203:25>>*/ (f, i);
+        /*<<float.ml:203:25>>*/ caml_call1(f, i);
       var _aQ_ =  /*<<float.ml:203:8>>*/ i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
      }
     }
-     /*<<float.ml:205:6>>*/ return res /*<<float.ml:205:6>>*/ ;
+     /*<<float.ml:205:6>>*/ return res;
     /*<<float.ml:205: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:209:19>>*/ (Stdlib[1], cst_Float_Array_make_matrix);
+      /*<<float.ml:209:19>>*/ caml_call1
+      (Stdlib[1], cst_Float_Array_make_matrix);
     var
      res =
-        /*<<float.ml:210:14>>*/  /*<<float.ml:210:14>>*/ caml_make_vect
-         /*<<float.ml:210:14>>*/ (sx,
-          /*<<float.ml:210:28>>*/ caml_floatarray_create
-           /*<<float.ml:210:28>>*/ (0));
+        /*<<float.ml:210:14>>*/ caml_make_vect
+        (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
      var _aM_ = sx - 1 | 0, _aL_ =  /*<<float.ml:211:19>>*/ 0;
      if(_aM_ >= 0){
       var x = _aL_;
       for(;;){
         /*<<float.ml:213:8>>*/ res[1 + x] =
-         /*<<float.ml:213:31>>*/ make /*<<float.ml:213:31>>*/ (sy, v);
+         /*<<float.ml:213:31>>*/ make(sy, v);
        var _aN_ =  /*<<float.ml:213:8>>*/ x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
       }
      }
     }
-     /*<<float.ml:216:4>>*/ return res /*<<float.ml:216:4>>*/ ;
+     /*<<float.ml:216:4>>*/ return res;
     /*<<float.ml:216: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:220:19>>*/ (Stdlib[1], cst_Float_Array_init_matrix);
+      /*<<float.ml:220:19>>*/ caml_call1
+      (Stdlib[1], cst_Float_Array_init_matrix);
     var
      res =
-        /*<<float.ml:221:14>>*/  /*<<float.ml:221:14>>*/ caml_make_vect
-         /*<<float.ml:221:14>>*/ (sx,
-          /*<<float.ml:221:28>>*/ caml_floatarray_create
-           /*<<float.ml:221:28>>*/ (0));
+        /*<<float.ml:221:14>>*/ caml_make_vect
+        (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
     if(0 < sy){
      var _aG_ = sx - 1 | 0, _aF_ =  /*<<float.ml:222:19>>*/ 0;
      if(_aG_ >= 0){
       var x = _aF_;
       for(;;){
        var
-        row =
-           /*<<float.ml:224:18>>*/  /*<<float.ml:224:18>>*/ caml_floatarray_create
-            /*<<float.ml:224:18>>*/ (sy),
+        row =  /*<<float.ml:224:18>>*/ caml_floatarray_create(sy),
         _aI_ =  /*<<float.ml:225:8>>*/ sy - 1 | 0,
         _aH_ =  /*<<float.ml:224:18>>*/ 0;
        if(_aI_ >= 0){
         var y = _aH_;
         for(;;){
           /*<<float.ml:226:10>>*/ row[1 + y] =
-           /*<<float.ml:226:27>>*/ caml_call2
-            /*<<float.ml:226:27>>*/ (f, x, y);
+           /*<<float.ml:226:27>>*/ caml_call2(f, x, y);
          var _aK_ =  /*<<float.ml:226:10>>*/ y + 1 | 0;
          if(_aI_ === y) break;
          y = _aK_;
@@ -9618,20 +7980,16 @@
       }
      }
     }
-     /*<<float.ml:231:4>>*/ return res /*<<float.ml:231:4>>*/ ;
+     /*<<float.ml:231:4>>*/ return res;
     /*<<float.ml:231:7>>*/ }
    function append(a1, a2){
     var
      l1 = a1.length - 1,
      l2 =  /*<<float.ml:235:4>>*/ a2.length - 1,
-     result =
-        /*<<float.ml:236:17>>*/  /*<<float.ml:236:17>>*/ caml_floatarray_create
-         /*<<float.ml:236:17>>*/ (l1 + l2 | 0);
-     /*<<float.ml:237:4>>*/  /*<<float.ml:237:4>>*/ caml_floatarray_blit
-      /*<<float.ml:237:4>>*/ (a1, 0, result, 0, l1);
-     /*<<float.ml:238:4>>*/  /*<<float.ml:238:4>>*/ caml_floatarray_blit
-      /*<<float.ml:238:4>>*/ (a2, 0, result, l1, l2);
-     /*<<float.ml:238:4>>*/ return result /*<<float.ml:238:4>>*/ ;
+     result =  /*<<float.ml:236:17>>*/ caml_floatarray_create(l1 + l2 | 0);
+     /*<<float.ml:237:4>>*/ caml_floatarray_blit(a1, 0, result, 0, l1);
+     /*<<float.ml:238:4>>*/ caml_floatarray_blit(a2, 0, result, l1, l2);
+    return result;
     /*<<float.ml:239:10>>*/ }
    function concat(l){
     var acc = 0, param = l;
@@ -9645,85 +8003,68 @@
         acc <= x
          ? x
          :  /*<<float.ml:243:26>>*/ caml_call1
-            /*<<float.ml:243:26>>*/ (Stdlib[1], cst_Float_Array_concat);
+           (Stdlib[1], cst_Float_Array_concat);
      acc = acc$0;
      param = tl;
     }
     var
-     result =
-        /*<<float.ml:251:17>>*/  /*<<float.ml:251:17>>*/ caml_floatarray_create
-         /*<<float.ml:251:17>>*/ (acc),
+     result =  /*<<float.ml:251:17>>*/ caml_floatarray_create(acc),
      l$0 = l,
      i = 0;
      /*<<float.ml:253:6>>*/ for(;;){
      if(! l$0){
-      if(i === acc)
-        /*<<float.ml:260:4>>*/ return result /*<<float.ml:260:4>>*/ ;
-       /*<<float.ml:254:14>>*/ throw  /*<<float.ml:254:14>>*/ caml_maybe_attach_backtrace
-              /*<<float.ml:254:14>>*/ ([0, Assert_failure, _a_], 1);
+      if(i === acc)  /*<<float.ml:260:4>>*/ return result;
+       /*<<float.ml:254:14>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _a_], 1);
      }
      var
       tl$0 = l$0[2],
       hd$0 = l$0[1],
       hlen =  /*<<float.ml:256:8>>*/ hd$0.length - 1;
-      /*<<float.ml:257:8>>*/  /*<<float.ml:257:8>>*/ caml_floatarray_blit
-       /*<<float.ml:257:8>>*/ (hd$0, 0, result, i, hlen);
+      /*<<float.ml:257: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>>*/ }
    function sub(a, ofs, len){
-     /*<<float.ml:264:4>>*/  /*<<float.ml:264:4>>*/ check
-      /*<<float.ml:264:4>>*/ (a, ofs, len, cst_Float_Array_sub);
-    var
-     result =
-        /*<<float.ml:265:17>>*/  /*<<float.ml:265:17>>*/ caml_floatarray_create
-         /*<<float.ml:265:17>>*/ (len);
-     /*<<float.ml:266:4>>*/  /*<<float.ml:266:4>>*/ caml_floatarray_blit
-      /*<<float.ml:266:4>>*/ (a, ofs, result, 0, len);
-     /*<<float.ml:266:4>>*/ return result /*<<float.ml:266:4>>*/ ;
+     /*<<float.ml:264:4>>*/ check(a, ofs, len, cst_Float_Array_sub);
+    var result =  /*<<float.ml:265:17>>*/ caml_floatarray_create(len);
+     /*<<float.ml:266:4>>*/ caml_floatarray_blit(a, ofs, result, 0, len);
+    return result;
     /*<<float.ml:267:10>>*/ }
    function copy(a){
     var
      l = a.length - 1,
-     result =
-        /*<<float.ml:271:17>>*/  /*<<float.ml:271:17>>*/ caml_floatarray_create
-         /*<<float.ml:271:17>>*/ (l);
-     /*<<float.ml:272:4>>*/  /*<<float.ml:272:4>>*/ caml_floatarray_blit
-      /*<<float.ml:272:4>>*/ (a, 0, result, 0, l);
-     /*<<float.ml:272:4>>*/ return result /*<<float.ml:272:4>>*/ ;
+     result =  /*<<float.ml:271:17>>*/ caml_floatarray_create(l);
+     /*<<float.ml:272:4>>*/ caml_floatarray_blit(a, 0, result, 0, l);
+    return result;
     /*<<float.ml:273:10>>*/ }
    function fill(a, ofs, len, v){
-     /*<<float.ml:276:4>>*/  /*<<float.ml:276:4>>*/ check
-      /*<<float.ml:276:4>>*/ (a, ofs, len, cst_Float_Array_fill);
-     /*<<float.ml:276:4>>*/ return  /*<<float.ml:276:4>>*/ unsafe_fill
-             /*<<float.ml:276:4>>*/ (a, ofs, len, v) /*<<float.ml:277:27>>*/ ;
-    /*<<float.ml:277:27>>*/ }
+     /*<<float.ml:276:4>>*/ check(a, ofs, len, cst_Float_Array_fill);
+    return unsafe_fill(a, ofs, len, v) /*<<float.ml:277:27>>*/ ;
+   }
    function blit(src, sofs, dst, dofs, len){
-     /*<<float.ml:280:4>>*/  /*<<float.ml:280:4>>*/ check
-      /*<<float.ml:280:4>>*/ (src, sofs, len, cst_Float_array_blit);
-     /*<<float.ml:281:4>>*/  /*<<float.ml:281:4>>*/ check
-      /*<<float.ml:281:4>>*/ (dst, dofs, len, cst_Float_array_blit$0);
-     /*<<float.ml:282:4>>*/ return  /*<<float.ml:282:4>>*/ caml_floatarray_blit
-             /*<<float.ml:282:4>>*/ (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
-    /*<<float.ml:282:37>>*/ }
+     /*<<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 caml_floatarray_blit
+            (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
+   }
    function to_list(a){
      /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:25>>*/ caml_call2
-             /*<<float.ml:285:25>>*/ (Stdlib_List[11],
+            (Stdlib_List[11],
              a.length - 1,
              function(_aE_){ /*<<?>>*/ return a[1 + _aE_];}) /*<<float.ml:285:39>>*/ ;
-    /*<<float.ml:285:39>>*/ }
+   }
    function of_list(l){
     var
      result =
-        /*<<float.ml:288:17>>*/  /*<<float.ml:288:17>>*/ caml_floatarray_create
-         /*<<float.ml:288:17>>*/ ( /*<<float.ml:288:24>>*/ caml_call1
-           /*<<float.ml:288:24>>*/ (Stdlib_List[1], l)),
+        /*<<float.ml:288:17>>*/ caml_floatarray_create
+        ( /*<<float.ml:288: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:4>>*/ ;
+     if(! l$0)  /*<<float.ml:289:4>>*/ return result;
      var t = l$0[2], h = l$0[1];
       /*<<float.ml:292:18>>*/ result[1 + i] = h;
      var i$0 =  /*<<float.ml:289:4>>*/ i + 1 | 0;
@@ -9736,9 +8077,8 @@
     if(_aC_ >= 0){
      var i = _aB_;
      for(;;){
-       /*<<float.ml:298:33>>*/  /*<<float.ml:298:33>>*/ caml_call1
-        /*<<float.ml:298:33>>*/ (f, a[1 + i]);
-      var _aD_ =  /*<<float.ml:298:33>>*/ i + 1 | 0;
+       /*<<float.ml:298:33>>*/ caml_call1(f, a[1 + i]);
+      var _aD_ = i + 1 | 0;
       if(_aC_ === i) break;
       i = _aD_;
      }
@@ -9747,16 +8087,14 @@
     /*<<float.ml:298: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:303:6>>*/ (Stdlib[1],
-              cst_Float_Array_iter2_arrays_m) /*<<float.ml:305:75>>*/ ;
+      /*<<float.ml:303:6>>*/ return caml_call1
+             (Stdlib[1], cst_Float_Array_iter2_arrays_m) /*<<float.ml:305:75>>*/ ;
     var _az_ = a.length - 2 | 0, _ay_ =  /*<<float.ml:305:6>>*/ 0;
     if(_az_ >= 0){
      var i = _ay_;
      for(;;){
-       /*<<float.ml:305:35>>*/  /*<<float.ml:305:35>>*/ caml_call2
-        /*<<float.ml:305:35>>*/ (f, a[1 + i], b[1 + i]);
-      var _aA_ =  /*<<float.ml:305:35>>*/ i + 1 | 0;
+       /*<<float.ml:305:35>>*/ caml_call2(f, a[1 + i], b[1 + i]);
+      var _aA_ = i + 1 | 0;
       if(_az_ === i) break;
       i = _aA_;
      }
@@ -9766,23 +8104,20 @@
    function map(f, a){
     var
      l = a.length - 1,
-     r =
-        /*<<float.ml:309:12>>*/  /*<<float.ml:309:12>>*/ caml_floatarray_create
-         /*<<float.ml:309:12>>*/ (l),
+     r =  /*<<float.ml:309:12>>*/ caml_floatarray_create(l),
      _aw_ =  /*<<float.ml:310:4>>*/ l - 1 | 0,
      _av_ =  /*<<float.ml:309:12>>*/ 0;
     if(_aw_ >= 0){
      var i = _av_;
      for(;;){
        /*<<float.ml:311:6>>*/ r[1 + i] =
-        /*<<float.ml:311:21>>*/ caml_call1
-         /*<<float.ml:311:21>>*/ (f, a[1 + i]);
+        /*<<float.ml:311:21>>*/ caml_call1(f, a[1 + i]);
       var _ax_ =  /*<<float.ml:311:6>>*/ i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
      }
     }
-     /*<<float.ml:313:4>>*/ return r /*<<float.ml:313:4>>*/ ;
+     /*<<float.ml:313:4>>*/ return r;
     /*<<float.ml:313:5>>*/ }
    function map_inplace(f, a){
     var _at_ = a.length - 2 | 0, _as_ =  /*<<float.ml:317:4>>*/ 0;
@@ -9790,8 +8125,7 @@
      var i = _as_;
      for(;;){
        /*<<float.ml:318:6>>*/ a[1 + i] =
-        /*<<float.ml:318:21>>*/ caml_call1
-         /*<<float.ml:318:21>>*/ (f, a[1 + i]);
+        /*<<float.ml:318:21>>*/ caml_call1(f, a[1 + i]);
       var _au_ =  /*<<float.ml:318:6>>*/ i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
@@ -9802,36 +8136,31 @@
    function map2(f, a, b){
     var la = a.length - 1, lb =  /*<<float.ml:323:4>>*/ b.length - 1;
     if(la !== lb)
-      /*<<float.ml:325:6>>*/ return  /*<<float.ml:325:6>>*/ caml_call1
-              /*<<float.ml:325:6>>*/ (Stdlib[1],
-              cst_Float_Array_map2_arrays_mu) /*<<float.ml:332:7>>*/ ;
+      /*<<float.ml:325:6>>*/ return caml_call1
+             (Stdlib[1], cst_Float_Array_map2_arrays_mu) /*<<float.ml:332:7>>*/ ;
     var
-     r =
-        /*<<float.ml:327:14>>*/  /*<<float.ml:327:14>>*/ caml_floatarray_create
-         /*<<float.ml:327:14>>*/ (la),
+     r =  /*<<float.ml:327:14>>*/ caml_floatarray_create(la),
      _aq_ =  /*<<float.ml:328:6>>*/ la - 1 | 0,
      _ap_ =  /*<<float.ml:327:14>>*/ 0;
     if(_aq_ >= 0){
      var i = _ap_;
      for(;;){
        /*<<float.ml:329:8>>*/ r[1 + i] =
-        /*<<float.ml:329:23>>*/ caml_call2
-         /*<<float.ml:329:23>>*/ (f, a[1 + i], b[1 + i]);
+        /*<<float.ml:329:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
       var _ar_ =  /*<<float.ml:329:8>>*/ i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
      }
     }
-     /*<<float.ml:331:6>>*/ return r /*<<float.ml:331:6>>*/ ;
+     /*<<float.ml:331:6>>*/ return r;
     /*<<float.ml:332:7>>*/ }
    function iteri(f, a){
     var _an_ = a.length - 2 | 0, _am_ =  /*<<float.ml:336:4>>*/ 0;
     if(_an_ >= 0){
      var i = _am_;
      for(;;){
-       /*<<float.ml:336:33>>*/  /*<<float.ml:336:33>>*/ caml_call2
-        /*<<float.ml:336:33>>*/ (f, i, a[1 + i]);
-      var _ao_ =  /*<<float.ml:336:33>>*/ i + 1 | 0;
+       /*<<float.ml:336:33>>*/ caml_call2(f, i, a[1 + i]);
+      var _ao_ = i + 1 | 0;
       if(_an_ === i) break;
       i = _ao_;
      }
@@ -9841,23 +8170,20 @@
    function mapi(f, a){
     var
      l = a.length - 1,
-     r =
-        /*<<float.ml:340:12>>*/  /*<<float.ml:340:12>>*/ caml_floatarray_create
-         /*<<float.ml:340:12>>*/ (l),
+     r =  /*<<float.ml:340:12>>*/ caml_floatarray_create(l),
      _ak_ =  /*<<float.ml:341:4>>*/ l - 1 | 0,
      _aj_ =  /*<<float.ml:340:12>>*/ 0;
     if(_ak_ >= 0){
      var i = _aj_;
      for(;;){
        /*<<float.ml:342:6>>*/ r[1 + i] =
-        /*<<float.ml:342:21>>*/ caml_call2
-         /*<<float.ml:342:21>>*/ (f, i, a[1 + i]);
+        /*<<float.ml:342:21>>*/ caml_call2(f, i, a[1 + i]);
       var _al_ =  /*<<float.ml:342:6>>*/ i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
      }
     }
-     /*<<float.ml:344:4>>*/ return r /*<<float.ml:344:4>>*/ ;
+     /*<<float.ml:344:4>>*/ return r;
     /*<<float.ml:344:5>>*/ }
    function mapi_inplace(f, a){
     var _ah_ = a.length - 2 | 0, _ag_ =  /*<<float.ml:348:4>>*/ 0;
@@ -9865,8 +8191,7 @@
      var i = _ag_;
      for(;;){
        /*<<float.ml:349:6>>*/ a[1 + i] =
-        /*<<float.ml:349:21>>*/ caml_call2
-         /*<<float.ml:349:21>>*/ (f, i, a[1 + i]);
+        /*<<float.ml:349:21>>*/ caml_call2(f, i, a[1 + i]);
       var _ai_ =  /*<<float.ml:349:6>>*/ i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
@@ -9878,13 +8203,11 @@
     var
      r =  /*<<float.ml:354:12>>*/ [0, x],
      _ae_ = a.length - 2 | 0,
-     _ad_ =  /*<<float.ml:354:12>>*/ 0;
+     _ad_ = 0;
     if(_ae_ >= 0){
      var i = _ad_;
      for(;;){
-      r[1] =
-        /*<<float.ml:356:11>>*/ caml_call2
-         /*<<float.ml:356:11>>*/ (f, r[1], a[1 + i]);
+      r[1] =  /*<<float.ml:356:11>>*/ caml_call2(f, r[1], a[1 + i]);
       var _af_ =  /*<<float.ml:355:4>>*/ i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
@@ -9899,9 +8222,7 @@
     if(_ab_ >= 0){
      var i = _ab_;
      for(;;){
-      r[1] =
-        /*<<float.ml:364:11>>*/ caml_call2
-         /*<<float.ml:364:11>>*/ (f, a[1 + i], r[1]);
+      r[1] =  /*<<float.ml:364:11>>*/ caml_call2(f, a[1 + i], r[1]);
       var _ac_ =  /*<<float.ml:363:4>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
@@ -9912,11 +8233,9 @@
    function exists(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:372:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:372:20>>*/ return 0 /*<<float.ml:372:20>>*/ ;
-      /*<<float.ml:373:14>>*/ if
-      ( /*<<float.ml:373:14>>*/ caml_call1
-         /*<<float.ml:373:14>>*/ (p, a[1 + i]))
-       /*<<float.ml:373:38>>*/ return 1 /*<<float.ml:373:38>>*/ ;
+     if(i === n)  /*<<float.ml:372:20>>*/ return 0;
+      /*<<float.ml:373:14>>*/ if(caml_call1(p, a[1 + i]))
+       /*<<float.ml:373:38>>*/ return 1;
      var i$0 =  /*<<float.ml:374:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9924,12 +8243,9 @@
    function for_all(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:381:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:381:20>>*/ return 1 /*<<float.ml:381:20>>*/ ;
-      /*<<float.ml:382:14>>*/ if
-      (!
-        /*<<float.ml:382:14>>*/ caml_call1
-         /*<<float.ml:382:14>>*/ (p, a[1 + i]))
-       /*<<float.ml:383:11>>*/ return 0 /*<<float.ml:383:11>>*/ ;
+     if(i === n)  /*<<float.ml:381:20>>*/ return 1;
+      /*<<float.ml:382:14>>*/ if(! caml_call1(p, a[1 + i]))
+       /*<<float.ml:383:11>>*/ return 0;
      var i$0 =  /*<<float.ml:382:38>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9937,13 +8253,9 @@
    function mem(x, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:390:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:390:20>>*/ return 0 /*<<float.ml:390:20>>*/ ;
-     if
-      (0
-       ===
-         /*<<float.ml:391:22>>*/ caml_float_compare
-          /*<<float.ml:391:22>>*/ (a[1 + i], x))
-       /*<<float.ml:391:50>>*/ return 1 /*<<float.ml:391:50>>*/ ;
+     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;
      var i$0 =  /*<<float.ml:392:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9951,9 +8263,8 @@
    function mem_ieee(x, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:400:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:400:20>>*/ return 0 /*<<float.ml:400:20>>*/ ;
-     if(x === a[1 + i])
-       /*<<float.ml:401:40>>*/ return 1 /*<<float.ml:401:40>>*/ ;
+     if(i === n)  /*<<float.ml:400:20>>*/ return 0;
+     if(x === a[1 + i])  /*<<float.ml:401:40>>*/ return 1;
      var i$0 =  /*<<float.ml:402:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9961,11 +8272,10 @@
    function find_opt(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:410:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:410:20>>*/ return 0 /*<<float.ml:410:20>>*/ ;
+     if(i === n)  /*<<float.ml:410:20>>*/ return 0;
      var x =  /*<<float.ml:412:16>>*/ a[1 + i];
-      /*<<float.ml:413:11>>*/ if
-      ( /*<<float.ml:413:11>>*/ caml_call1 /*<<float.ml:413:11>>*/ (p, x))
-       /*<<float.ml:413:20>>*/ return [0, x] /*<<float.ml:413:20>>*/ ;
+      /*<<float.ml:413:11>>*/ if(caml_call1(p, x))
+       /*<<float.ml:413:20>>*/ return [0, x];
      var i$0 =  /*<<float.ml:414:13>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9973,11 +8283,9 @@
    function find_index(p, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:422:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:422:20>>*/ return 0 /*<<float.ml:422:20>>*/ ;
-      /*<<float.ml:423:14>>*/ if
-      ( /*<<float.ml:423:14>>*/ caml_call1
-         /*<<float.ml:423:14>>*/ (p, a[1 + i]))
-       /*<<float.ml:423:38>>*/ return [0, i] /*<<float.ml:423:38>>*/ ;
+     if(i === n)  /*<<float.ml:422:20>>*/ return 0;
+      /*<<float.ml:423:14>>*/ if(caml_call1(p, a[1 + i]))
+       /*<<float.ml:423:38>>*/ return [0, i];
      var i$0 =  /*<<float.ml:424:11>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9985,12 +8293,9 @@
    function find_map(f, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:431:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:431:20>>*/ return 0 /*<<float.ml:431:20>>*/ ;
-     var
-      r =
-         /*<<float.ml:433:14>>*/  /*<<float.ml:433:14>>*/ caml_call1
-          /*<<float.ml:433:14>>*/ (f, a[1 + i]);
-     if(r)  /*<<float.ml:435:25>>*/ return r /*<<float.ml:435:25>>*/ ;
+     if(i === n)  /*<<float.ml:431:20>>*/ return 0;
+     var r =  /*<<float.ml:433:14>>*/ caml_call1(f, a[1 + i]);
+     if(r)  /*<<float.ml:435:25>>*/ return r;
      var i$0 =  /*<<float.ml:434:18>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -9998,12 +8303,9 @@
    function find_mapi(f, a){
     var n = a.length - 1, i = 0;
      /*<<float.ml:443:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:443:20>>*/ return 0 /*<<float.ml:443:20>>*/ ;
-     var
-      r =
-         /*<<float.ml:445:14>>*/  /*<<float.ml:445:14>>*/ caml_call2
-          /*<<float.ml:445:14>>*/ (f, i, a[1 + i]);
-     if(r)  /*<<float.ml:447:25>>*/ return r /*<<float.ml:447:25>>*/ ;
+     if(i === n)  /*<<float.ml:443:20>>*/ return 0;
+     var r =  /*<<float.ml:445:14>>*/ caml_call2(f, i, a[1 + i]);
+     if(r)  /*<<float.ml:447:25>>*/ return r;
      var i$0 =  /*<<float.ml:446:18>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -10025,9 +8327,7 @@
        _X_ =  /*<<float.ml:458:27>>*/ caml_check_bound(a, _W_)[1 + _W_];
       if
        ( /*<<float.ml:458:11>>*/ caml_call2
-          /*<<float.ml:458:11>>*/ (cmp,
-          caml_check_bound(a, i31)[1 + i31],
-          _X_)
+         (cmp, caml_check_bound(a, i31)[1 + i31], _X_)
         < 0)
        x[1] = i31 + 1 | 0;
       var
@@ -10036,9 +8336,7 @@
        ___ = x[1];
       if
        ( /*<<float.ml:459:11>>*/ caml_call2
-          /*<<float.ml:459:11>>*/ (cmp,
-          caml_check_bound(a, ___)[1 + ___],
-          _Z_)
+         (cmp, caml_check_bound(a, ___)[1 + ___], _Z_)
         < 0)
        x[1] = i31 + 2 | 0;
       return x[1];
@@ -10048,17 +8346,12 @@
        _$_ = i31 + 1 | 0,
        _aa_ =  /*<<float.ml:462:40>>*/ caml_check_bound(a, _$_)[1 + _$_];
        /*<<float.ml:462:24>>*/ if
-       (0
-        >
-          /*<<float.ml:462:24>>*/ caml_call2
-           /*<<float.ml:462:24>>*/ (cmp,
-           caml_check_bound(a, i31)[1 + i31],
-           _aa_))
-        /*<<float.ml:463:13>>*/ return i31 + 1 | 0 /*<<float.ml:463:13>>*/ ;
-     }
-     if(i31 < l)  /*<<float.ml:464:29>>*/ return i31 /*<<float.ml:464:29>>*/ ;
-      /*<<float.ml:464:38>>*/ throw  /*<<float.ml:464:38>>*/ caml_maybe_attach_backtrace
-             /*<<float.ml:464:38>>*/ ([0, Bottom, i], 1);
+       (0 > caml_call2(cmp, caml_check_bound(a, i31)[1 + i31], _aa_))
+        /*<<float.ml:463:13>>*/ return i31 + 1 | 0;
+     }
+     if(i31 < l)  /*<<float.ml:464:29>>*/ return i31;
+      /*<<float.ml:464:38>>*/ throw caml_maybe_attach_backtrace
+            ([0, Bottom, i], 1);
      /*<<float.ml:464:54>>*/ }
     var l = a.length - 1, _Q_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
     if(_Q_ >= 0){
@@ -10068,15 +8361,9 @@
        /*<<float.ml:475:24>>*/ try{
        var i = i$6;
         /*<<float.ml:467:6>>*/ for(;;){
-        var
-         j =
-            /*<<float.ml:467:14>>*/  /*<<float.ml:467:14>>*/ maxson
-             /*<<float.ml:467:14>>*/ (l, i);
+        var j =  /*<<float.ml:467:14>>*/ maxson(l, i);
          /*<<float.ml:468:9>>*/ if
-         (0
-          >=
-            /*<<float.ml:468:9>>*/ caml_call2
-             /*<<float.ml:468:9>>*/ (cmp, caml_check_bound(a, j)[1 + j], e$1))
+         (0 >= caml_call2(cmp, caml_check_bound(a, j)[1 + j], e$1))
          break;
         var _N_ =  /*<<float.ml:469:16>>*/ caml_check_bound(a, j)[1 + j];
          /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
@@ -10106,9 +8393,7 @@
        var i$1 = i$5;
         /*<<float.ml:477:6>>*/ for(;;){
         var
-         j$0 =
-            /*<<float.ml:477:14>>*/  /*<<float.ml:477:14>>*/ maxson
-             /*<<float.ml:477:14>>*/ (i$4, i$1),
+         j$0 =  /*<<float.ml:477:14>>*/ maxson(i$4, i$1),
          _O_ =  /*<<float.ml:478:14>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<float.ml:478:6>>*/ caml_check_bound(a, i$1)[1 + i$1] = _O_;
         i$1 = j$0;
@@ -10126,15 +8411,10 @@
           /*<<float.ml:483: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:484:6>>*/ ([0, Assert_failure, _b_], 1);
+            /*<<float.ml:484:6>>*/ throw caml_maybe_attach_backtrace
+                  ([0, Assert_failure, _b_], 1);
            /*<<float.ml:485:9>>*/ if
-           (0
-            <=
-              /*<<float.ml:485:9>>*/ caml_call2
-               /*<<float.ml:485:9>>*/ (cmp,
-               caml_check_bound(a, father)[1 + father],
-               e$0))
+           (0 <= caml_call2(cmp, caml_check_bound(a, father)[1 + father], e$0))
            break;
           var
            _P_ =
@@ -10163,7 +8443,7 @@
     }
     else
      var _T_ = _S_;
-     /*<<float.ml:499:59>>*/ return _T_ /*<<float.ml:499:59>>*/ ;
+    return _T_;
     /*<<float.ml:499:69>>*/ }
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
@@ -10180,20 +8460,12 @@
       s2 = s2$1,
       d = dstofs;
       /*<<float.ml:507:8>>*/ for(;;)
-       /*<<float.ml:507:11>>*/ if
-       (0
-        <
-          /*<<float.ml:507:11>>*/ caml_call2
-           /*<<float.ml:507:11>>*/ (cmp, s1, s2)){
+       /*<<float.ml:507:11>>*/ if(0 < caml_call2(cmp, s1, s2)){
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-       var i2$0 =  /*<<float.ml:515:10>>*/ i2 + 1 | 0;
+       var i2$0 = i2 + 1 | 0;
        if(i2$0 >= src2r)
-         /*<<float.ml:279:11>>*/ return  /*<<float.ml:279:11>>*/ blit
-                 /*<<float.ml:279:11>>*/ (a,
-                 i1,
-                 dst,
-                 d + 1 | 0,
-                 src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
+         /*<<float.ml:279:11>>*/ return blit
+                (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
         s2$0 =  /*<<float.ml:518:26>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
@@ -10203,14 +8475,10 @@
       }
       else{
         /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-       var i1$0 =  /*<<float.ml:508:10>>*/ i1 + 1 | 0;
+       var i1$0 = i1 + 1 | 0;
        if(i1$0 >= src1r)
-         /*<<float.ml:279:11>>*/ return  /*<<float.ml:279:11>>*/ blit
-                 /*<<float.ml:279:11>>*/ (src2,
-                 i2,
-                 dst,
-                 d + 1 | 0,
-                 src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
+         /*<<float.ml:279:11>>*/ return blit
+                (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
         s1$0 =  /*<<float.ml:511:20>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
@@ -10232,12 +8500,7 @@
         if(dstofs > j[1]) break;
         var _H_ = j[1];
          /*<<float.ml:528:31>>*/ if
-         (0
-          >=
-            /*<<float.ml:528:31>>*/ caml_call2
-             /*<<float.ml:528:31>>*/ (cmp,
-             caml_check_bound(dst, _H_)[1 + _H_],
-             e))
+         (0 >= caml_call2(cmp, caml_check_bound(dst, _H_)[1 + _H_], e))
          break;
         var
          _I_ = j[1],
@@ -10257,48 +8520,30 @@
      /*<<float.ml:533:10>>*/ }
     function sortto(srcofs, dst, dstofs, len){
       /*<<float.ml:536:6>>*/ if(len <= 5)
-       /*<<float.ml:536:28>>*/ return  /*<<float.ml:536:28>>*/ isortto
-               /*<<float.ml:536:28>>*/ (srcofs, dst, dstofs, len) /*<<float.ml:542:9>>*/ ;
+       /*<<float.ml:536:28>>*/ return isortto(srcofs, dst, dstofs, len) /*<<float.ml:542:9>>*/ ;
      var l1 = len / 2 | 0, l2 = len - l1 | 0;
-      /*<<float.ml:539:8>>*/  /*<<float.ml:539:8>>*/ sortto
-       /*<<float.ml:539:8>>*/ (srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
-      /*<<float.ml:540:8>>*/  /*<<float.ml:540:8>>*/ sortto
-       /*<<float.ml:540:8>>*/ (srcofs, a, srcofs + l2 | 0, l1);
-      /*<<float.ml:540:8>>*/ return  /*<<float.ml:540:8>>*/ merge
-              /*<<float.ml:540:8>>*/ (srcofs + l2 | 0,
-              l1,
-              dst,
-              dstofs + l1 | 0,
-              l2,
-              dst,
-              dstofs) /*<<float.ml:542:9>>*/ ;
-     /*<<float.ml:542:9>>*/ }
+      /*<<float.ml:539:8>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
+      /*<<float.ml:540:8>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
+     return merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<float.ml:542:9>>*/ ;
+    }
     var l = a.length - 1;
     if(l <= 5)
-      /*<<float.ml:545:24>>*/ return  /*<<float.ml:545:24>>*/ isortto
-              /*<<float.ml:545:24>>*/ (0, a, 0, l) /*<<float.ml:552:7>>*/ ;
+      /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l) /*<<float.ml:552:7>>*/ ;
     var
      l1 = l / 2 | 0,
      l2 = l - l1 | 0,
-     t =
-        /*<<float.ml:548:14>>*/  /*<<float.ml:548:14>>*/ caml_floatarray_create
-         /*<<float.ml:548:14>>*/ (l2);
-     /*<<float.ml:549:6>>*/  /*<<float.ml:549:6>>*/ sortto
-      /*<<float.ml:549:6>>*/ (l1, t, 0, l2);
-     /*<<float.ml:550:6>>*/  /*<<float.ml:550:6>>*/ sortto
-      /*<<float.ml:550:6>>*/ (0, a, l2, l1);
-     /*<<float.ml:550:6>>*/ return  /*<<float.ml:550:6>>*/ merge
-             /*<<float.ml:550:6>>*/ (l2, l1, t, 0, l2, a, 0) /*<<float.ml:552:7>>*/ ;
-    /*<<float.ml:552:7>>*/ }
+     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);
+    return merge(l2, l1, t, 0, l2, a, 0) /*<<float.ml:552:7>>*/ ;
+   }
    function shuffle(rand, a){
     var _C_ = a.length - 2 | 0;
     if(_C_ >= 1){
      var i = _C_;
      for(;;){
       var
-       j =
-          /*<<float.ml:559:14>>*/  /*<<float.ml:559:14>>*/ caml_call1
-           /*<<float.ml:559:14>>*/ (rand, i + 1 | 0),
+       j =  /*<<float.ml:559:14>>*/ caml_call1(rand, i + 1 | 0),
        v =  /*<<float.ml:560:14>>*/ 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;
@@ -10312,54 +8557,46 @@
    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:572:11>>*/ ;
-     var
-      x =  /*<<float.ml:570:16>>*/ a[1 + i],
-      _A_ =  /*<<float.ml:570:16>>*/ i + 1 | 0;
+       /*<<float.ml:572:11>>*/ return 0;
+     var x =  /*<<float.ml:570:16>>*/ a[1 + i], _A_ = i + 1 | 0;
       /*<<float.ml:571:8>>*/ return [0,
              x,
              function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:8>>*/ ;
      /*<<float.ml:572:18>>*/ }
     var _y_ =  /*<<float.ml:574:4>>*/ 0;
-     /*<<float.ml:574:4>>*/ return function(_z_){
+    return function(_z_){
       /*<<?>>*/ return aux(_y_, _z_);} /*<<float.ml:574:4>>*/ ;
     /*<<float.ml:574: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:583:11>>*/ ;
-     var
-      x =  /*<<float.ml:581:16>>*/ a[1 + i],
-      _w_ =  /*<<float.ml:581:16>>*/ i + 1 | 0;
+       /*<<float.ml:583:11>>*/ return 0;
+     var x =  /*<<float.ml:581:16>>*/ a[1 + i], _w_ = i + 1 | 0;
       /*<<float.ml:582:8>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:8>>*/ ;
      /*<<float.ml:583:18>>*/ }
     var _u_ =  /*<<float.ml:585:4>>*/ 0;
-     /*<<float.ml:585:4>>*/ return function(_v_){
+    return function(_v_){
       /*<<?>>*/ return aux(_u_, _v_);} /*<<float.ml:585:4>>*/ ;
     /*<<float.ml:585:9>>*/ }
    function of_seq(i$2){
     var
      l =
-        /*<<float.ml:599:12>>*/  /*<<float.ml:599:12>>*/ caml_call3
-         /*<<float.ml:599:12>>*/ (Stdlib_Seq[5],
+        /*<<float.ml:599:12>>*/ caml_call3
+        (Stdlib_Seq[5],
          function(acc, x){
-           /*<<float.ml:599:40>>*/ return [0, x, acc] /*<<float.ml:599:40>>*/ ;
+           /*<<float.ml:599:40>>*/ return [0, x, acc];
           /*<<float.ml:599:46>>*/ },
          0,
          i$2),
-     len =
-        /*<<float.ml:589:14>>*/  /*<<float.ml:589:14>>*/ caml_call1
-         /*<<float.ml:589:14>>*/ (Stdlib_List[1], l),
-     a =
-        /*<<float.ml:590:12>>*/  /*<<float.ml:590:12>>*/ caml_floatarray_create
-         /*<<float.ml:590:12>>*/ (len),
+     len =  /*<<float.ml:589:14>>*/ caml_call1(Stdlib_List[1], l),
+     a =  /*<<float.ml:590:12>>*/ caml_floatarray_create(len),
      i$1 =  /*<<float.ml:589:14>>*/ len - 1 | 0,
      i = i$1,
      param = l;
      /*<<float.ml:591:17>>*/ for(;;){
-     if(! param)  /*<<float.ml:591:4>>*/ return a /*<<float.ml:591:4>>*/ ;
+     if(! param)  /*<<float.ml:591:4>>*/ return a;
      var tl = param[2], hd = param[1];
       /*<<float.ml:593:18>>*/ a[1 + i] = hd;
      var i$0 =  /*<<float.ml:591:4>>*/ i - 1 | 0;
@@ -10369,48 +8606,42 @@
     /*<<float.ml:600:17>>*/ }
    function map_to_array(f, a){
     var l = a.length - 1;
-     /*<<float.ml:605:4>>*/ if(0 === l)
-      /*<<float.ml:605:18>>*/ return [0] /*<<float.ml:605:18>>*/ ;
+     /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
     var
      r =
-        /*<<float.ml:606:14>>*/  /*<<float.ml:606:14>>*/ caml_make_vect
-         /*<<float.ml:606:14>>*/ (l,
-          /*<<float.ml:606:27>>*/ caml_call1 /*<<float.ml:606:27>>*/ (f, a[1])),
+        /*<<float.ml:606:14>>*/ caml_make_vect
+        (l,  /*<<float.ml:606:27>>*/ caml_call1(f, a[1])),
      _s_ =  /*<<float.ml:607:6>>*/ l - 1 | 0,
      _r_ =  /*<<float.ml:606:14>>*/ 1;
     if(_s_ >= 1){
      var i = _r_;
      for(;;){
        /*<<float.ml:608:8>>*/ r[1 + i] =
-        /*<<float.ml:608:29>>*/ caml_call1
-         /*<<float.ml:608:29>>*/ (f, a[1 + i]);
+        /*<<float.ml:608:29>>*/ caml_call1(f, a[1 + i]);
       var _t_ =  /*<<float.ml:608:8>>*/ i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
      }
     }
-     /*<<float.ml:610:6>>*/ return r /*<<float.ml:610:6>>*/ ;
+     /*<<float.ml:610:6>>*/ return r;
     /*<<float.ml:611:7>>*/ }
    function map_from_array(f, a){
     var
      l = a.length - 1,
-     r =
-        /*<<float.ml:615:12>>*/  /*<<float.ml:615:12>>*/ caml_floatarray_create
-         /*<<float.ml:615:12>>*/ (l),
+     r =  /*<<float.ml:615:12>>*/ caml_floatarray_create(l),
      _p_ =  /*<<float.ml:616:4>>*/ l - 1 | 0,
      _o_ =  /*<<float.ml:615:12>>*/ 0;
     if(_p_ >= 0){
      var i = _o_;
      for(;;){
        /*<<float.ml:617:6>>*/ r[1 + i] =
-        /*<<float.ml:617:21>>*/ caml_call1
-         /*<<float.ml:617:21>>*/ (f, a[1 + i]);
+        /*<<float.ml:617:21>>*/ caml_call1(f, a[1 + i]);
       var _q_ =  /*<<float.ml:617:6>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
      }
     }
-     /*<<float.ml:619:4>>*/ return r /*<<float.ml:619:4>>*/ ;
+     /*<<float.ml:619:4>>*/ return r;
     /*<<float.ml:619:5>>*/ }
    var
     Stdlib_Float =
@@ -10447,11 +8678,9 @@
        hash,
        [0,
         function(_n_){ /*<<?>>*/ return _n_.length - 1;},
-        function(_m_, _l_){
-          /*<<?>>*/ return caml_check_bound(_m_, _l_)[1 + _l_];
-        },
+        function(_m_, _l_){return caml_check_bound(_m_, _l_)[1 + _l_];},
         function(_k_, _j_, _i_){
-          /*<<?>>*/ caml_check_bound(_k_, _j_)[1 + _j_] = _i_;
+         caml_check_bound(_k_, _j_)[1 + _j_] = _i_;
          return 0;
         },
         make,
@@ -10495,12 +8724,10 @@
         map_to_array,
         map_from_array],
        [0,
-        function(_h_){ /*<<?>>*/ return _h_.length - 1;},
-        function(_g_, _f_){
-          /*<<?>>*/ return caml_check_bound(_g_, _f_)[1 + _f_];
-        },
+        function(_h_){return _h_.length - 1;},
+        function(_g_, _f_){return caml_check_bound(_g_, _f_)[1 + _f_];},
         function(_e_, _d_, _c_){
-          /*<<?>>*/ caml_check_bound(_e_, _d_)[1 + _d_] = _c_;
+         caml_check_bound(_e_, _d_)[1 + _d_] = _c_;
          return 0;
         },
         make,
@@ -10545,7 +8772,7 @@
         map_from_array]];
    runtime.caml_register_global(25, Stdlib_Float, "Stdlib__Float");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Int32
@@ -10554,16 +8781,15 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_greaterequal =  /*<<?>>*/ runtime.caml_greaterequal,
-    caml_hash =  /*<<?>>*/ runtime.caml_hash,
-    caml_int_compare =  /*<<?>>*/ runtime.caml_int_compare,
-    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
-    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_mul =  /*<<?>>*/ runtime.caml_mul,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
+    runtime = globalThis.jsoo_runtime,
+    caml_greaterequal = runtime.caml_greaterequal,
+    caml_hash = runtime.caml_hash,
+    caml_int_compare = runtime.caml_int_compare,
+    caml_lessequal = runtime.caml_lessequal,
+    caml_lessthan = runtime.caml_lessthan,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_mul = runtime.caml_mul,
+    caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Sys = global_data.Stdlib__Sys,
@@ -10571,19 +8797,19 @@
     zero = 0,
     one = 1;
    function succ(n){
-     /*<<int32.ml:48:13>>*/ return n + 1 | 0 /*<<int32.ml:48:13>>*/ ;
+     /*<<int32.ml:48:13>>*/ return n + 1 | 0;
     /*<<int32.ml:48:21>>*/ }
    function pred(n){
-     /*<<int32.ml:49:13>>*/ return n - 1 | 0 /*<<int32.ml:49:13>>*/ ;
+     /*<<int32.ml:49:13>>*/ return n - 1 | 0;
     /*<<int32.ml:49:21>>*/ }
    function abs(n){
      /*<<int32.ml:50:12>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
-              /*<<int32.ml:50:15>>*/ (n, 0)
+             (n, 0)
             ? n
             : - n | 0 /*<<int32.ml:50:40>>*/ ;
-    /*<<int32.ml:50:40>>*/ }
+   }
    function lognot(n){
-     /*<<int32.ml:53:15>>*/ return n ^ -1 /*<<int32.ml:53:15>>*/ ;
+     /*<<int32.ml:53:15>>*/ return n ^ -1;
     /*<<int32.ml:53:29>>*/ }
    var
     _a_ =  /*<<int32.ml:53:11>>*/ Stdlib_Sys[9],
@@ -10597,41 +8823,35 @@
      unsigned_to_int =
        function(n){
          /*<<int32.ml:60:8>>*/ if
-         ( /*<<int32.ml:60:11>>*/ caml_greaterequal
-            /*<<int32.ml:60:11>>*/ (n, 0)
-          &&
-            /*<<int32.ml:60:22>>*/ caml_lessequal
-             /*<<int32.ml:60:22>>*/ (n, max_int$0))
-          /*<<int32.ml:61:10>>*/ return [0, n] /*<<int32.ml:61:10>>*/ ;
-         /*<<int32.ml:63:10>>*/ return 0 /*<<int32.ml:63:10>>*/ ;
+         ( /*<<int32.ml:60:11>>*/ caml_greaterequal(n, 0)
+          &&  /*<<int32.ml:60:22>>*/ caml_lessequal(n, max_int$0))
+          /*<<int32.ml:61:10>>*/ return [0, n];
+         /*<<int32.ml:63:10>>*/ return 0;
         /*<<int32.ml:63:14>>*/ };
    else{
     if(64 !== _a_)
-      /*<<int32.ml:69:6>>*/ throw  /*<<int32.ml:69:6>>*/ caml_maybe_attach_backtrace
-             /*<<int32.ml:69:6>>*/ ([0, Assert_failure, _b_], 1);
+      /*<<int32.ml:69:6>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _b_], 1);
     var
      unsigned_to_int =
        function(n){
-         /*<<int32.ml:67:15>>*/ return [0, n & -1] /*<<int32.ml:67:15>>*/ ;
+         /*<<int32.ml:67:15>>*/ return [0, n & -1];
         /*<<int32.ml:67:40>>*/ };
    }
    function to_string(n){
-     /*<<int32.ml:72:18>>*/ return  /*<<int32.ml:72:18>>*/ runtime.caml_format_int
-             /*<<int32.ml:72:18>>*/ ("%d", n) /*<<int32.ml:72:31>>*/ ;
-    /*<<int32.ml:72:31>>*/ }
+     /*<<int32.ml:72:18>>*/ return runtime.caml_format_int("%d", n) /*<<int32.ml:72:31>>*/ ;
+   }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
      var
       _d_ =
          /*<<int32.ml:77:6>>*/ [0,
-          /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string
-           /*<<int32.ml:77:11>>*/ (s)];
-      /*<<int32.ml:77:6>>*/ return _d_ /*<<int32.ml:77:6>>*/ ;
+          /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
+      /*<<int32.ml:77:6>>*/ return _d_;
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
-     if(_c_[1] === Stdlib[7])
-       /*<<int32.ml:78:20>>*/ return 0 /*<<int32.ml:78:20>>*/ ;
+     if(_c_[1] === Stdlib[7])  /*<<int32.ml:78:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<int32.ml:78:24>>*/ }
@@ -10640,63 +8860,50 @@
     var
      y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
      x =  /*<<int32.ml:86:10>>*/ n + 2147483648 | 0;
-     /*<<int32.ml:82:28>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
-             /*<<int32.ml:82:28>>*/ (x, y) /*<<int32.ml:86:41>>*/ ;
-    /*<<int32.ml:86:41>>*/ }
+     /*<<int32.ml:82:28>>*/ return caml_int_compare(x, y) /*<<int32.ml:86:41>>*/ ;
+   }
    function unsigned_lt(n, m){
-     /*<<int32.ml:89:2>>*/ return  /*<<int32.ml:89:2>>*/ caml_lessthan
-             /*<<int32.ml:89:2>>*/ (n + 2147483648 | 0, m + 2147483648 | 0) /*<<int32.ml:89:31>>*/ ;
-    /*<<int32.ml:89:31>>*/ }
+     /*<<int32.ml:89:2>>*/ return caml_lessthan
+            (n + 2147483648 | 0, m + 2147483648 | 0) /*<<int32.ml:89:31>>*/ ;
+   }
    function min(x, y){
      /*<<int32.ml:91:18>>*/ return  /*<<int32.ml:91:21>>*/ caml_lessequal
-              /*<<int32.ml:91:21>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<int32.ml:91:41>>*/ ;
-    /*<<int32.ml:91:41>>*/ }
+   }
    function max(x, y){
      /*<<int32.ml:92:18>>*/ return  /*<<int32.ml:92:21>>*/ caml_greaterequal
-              /*<<int32.ml:92:21>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<int32.ml:92:41>>*/ ;
-    /*<<int32.ml:92:41>>*/ }
+   }
    function unsigned_div(n, d){
-     /*<<int32.ml:98:2>>*/ if
-     ( /*<<int32.ml:98:5>>*/ caml_lessthan /*<<int32.ml:98:5>>*/ (d, 0))
-      /*<<int32.ml:99:7>>*/ return  /*<<int32.ml:99:7>>*/ unsigned_lt
-               /*<<int32.ml:99:7>>*/ (n, d)
-             ? zero
-             : one /*<<int32.ml:103:41>>*/ ;
+     /*<<int32.ml:98:2>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
+      /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int32.ml:103:41>>*/ ;
     var
      q =
         /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
-         /*<<int32.ml:101:23>>*/ (n >>> 1 | 0, d)
+        (n >>> 1 | 0, d)
        << 1,
      r =
-        /*<<int32.ml:102:12>>*/ n
-       -  /*<<int32.ml:102:18>>*/ caml_mul /*<<int32.ml:102:18>>*/ (q, d)
+        /*<<int32.ml:102:12>>*/ n -  /*<<int32.ml:102:18>>*/ caml_mul(q, d)
        | 0;
-     /*<<int32.ml:103:7>>*/ return  /*<<int32.ml:103:7>>*/ unsigned_lt
-              /*<<int32.ml:103:7>>*/ (r, d)
-            ? q
-            : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
-    /*<<int32.ml:103:41>>*/ }
+     /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
+   }
    function unsigned_rem(n, d){
      /*<<int32.ml:106:2>>*/ return n
            -
              /*<<int32.ml:106:8>>*/ caml_mul
-              /*<<int32.ml:106:8>>*/ ( /*<<int32.ml:106:13>>*/ unsigned_div
-                /*<<int32.ml:106:13>>*/ (n, d),
-              d)
+             ( /*<<int32.ml:106:13>>*/ unsigned_div(n, d), d)
            | 0 /*<<int32.ml:106:2>>*/ ;
     /*<<int32.ml:106:34>>*/ }
    function seeded_hash(seed, x){
-     /*<<int32.ml:110:25>>*/ return  /*<<int32.ml:110:25>>*/ caml_hash
-             /*<<int32.ml:110:25>>*/ (10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
-    /*<<int32.ml:110:56>>*/ }
+     /*<<int32.ml:110:25>>*/ return caml_hash(10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
+   }
    function hash(x){
-     /*<<int32.ml:111:13>>*/ return  /*<<int32.ml:111:13>>*/ caml_hash
-             /*<<int32.ml:111:13>>*/ (10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
-    /*<<int32.ml:111:41>>*/ }
+     /*<<int32.ml:111:13>>*/ return caml_hash(10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
+   }
    var
     Stdlib_Int32 =
       [0,
@@ -10732,18 +8939,17 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_greaterequal =  /*<<?>>*/ runtime.caml_greaterequal,
-    caml_hash =  /*<<?>>*/ runtime.caml_hash,
-    caml_int64_add =  /*<<?>>*/ runtime.caml_int64_add,
-    caml_int64_compare =  /*<<?>>*/ runtime.caml_int64_compare,
-    caml_int64_mul =  /*<<?>>*/ runtime.caml_int64_mul,
-    caml_int64_sub =  /*<<?>>*/ runtime.caml_int64_sub,
-    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
-    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
+    runtime = globalThis.jsoo_runtime,
+    caml_greaterequal = runtime.caml_greaterequal,
+    caml_hash = runtime.caml_hash,
+    caml_int64_add = runtime.caml_int64_add,
+    caml_int64_compare = runtime.caml_int64_compare,
+    caml_int64_mul = runtime.caml_int64_mul,
+    caml_int64_sub = runtime.caml_int64_sub,
+    caml_lessequal = runtime.caml_lessequal,
+    caml_lessthan = runtime.caml_lessthan,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     _a_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0),
     zero = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
@@ -10756,134 +8962,105 @@
     _c_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
     _d_ = runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 65535);
    function succ(n){
-     /*<<int64.ml:46:13>>*/ return  /*<<int64.ml:46:13>>*/ caml_int64_add
-             /*<<int64.ml:46:13>>*/ (n, _a_) /*<<int64.ml:46:21>>*/ ;
-    /*<<int64.ml:46:21>>*/ }
+     /*<<int64.ml:46:13>>*/ return caml_int64_add(n, _a_) /*<<int64.ml:46:21>>*/ ;
+   }
    function pred(n){
-     /*<<int64.ml:47:13>>*/ return  /*<<int64.ml:47:13>>*/ caml_int64_sub
-             /*<<int64.ml:47:13>>*/ (n, _b_) /*<<int64.ml:47:21>>*/ ;
-    /*<<int64.ml:47:21>>*/ }
+     /*<<int64.ml:47:13>>*/ return caml_int64_sub(n, _b_) /*<<int64.ml:47:21>>*/ ;
+   }
    function abs(n){
      /*<<int64.ml:48:12>>*/ return  /*<<int64.ml:48:15>>*/ caml_greaterequal
-              /*<<int64.ml:48:15>>*/ (n, _c_)
+             (n, _c_)
             ? n
-            :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg
-               /*<<int64.ml:48:35>>*/ (n) /*<<int64.ml:48:40>>*/ ;
-    /*<<int64.ml:48:40>>*/ }
+            :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg(n) /*<<int64.ml:48:40>>*/ ;
+   }
    function lognot(n){
-     /*<<int64.ml:51:15>>*/ return  /*<<int64.ml:51:15>>*/ runtime.caml_int64_xor
-             /*<<int64.ml:51:15>>*/ (n, _d_) /*<<int64.ml:51:29>>*/ ;
-    /*<<int64.ml:51:29>>*/ }
+     /*<<int64.ml:51:15>>*/ return runtime.caml_int64_xor(n, _d_) /*<<int64.ml:51:29>>*/ ;
+   }
    var
     max_int$0 =
-       /*<<int64.ml:54:16>>*/  /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32
-        /*<<int64.ml:54:16>>*/ (Stdlib[19]),
+       /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32(Stdlib[19]),
     _e_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
    function unsigned_to_int(n){
      /*<<int64.ml:56:4>>*/ if
-     ( /*<<int64.ml:56:7>>*/ caml_greaterequal /*<<int64.ml:56:7>>*/ (n, _e_)
-      &&
-        /*<<int64.ml:56:18>>*/ caml_lessequal
-         /*<<int64.ml:56:18>>*/ (n, max_int$0))
-      /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)] /*<<int64.ml:57:6>>*/ ;
-     /*<<int64.ml:59:6>>*/ return 0 /*<<int64.ml:59:6>>*/ ;
+     ( /*<<int64.ml:56:7>>*/ caml_greaterequal(n, _e_)
+      &&  /*<<int64.ml:56:18>>*/ caml_lessequal(n, max_int$0))
+      /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)];
+     /*<<int64.ml:59:6>>*/ return 0;
     /*<<int64.ml:59:10>>*/ }
    function to_string(n){
-     /*<<int64.ml:62:18>>*/ return  /*<<int64.ml:62:18>>*/ runtime.caml_int64_format
-             /*<<int64.ml:62:18>>*/ ("%d", n) /*<<int64.ml:62:31>>*/ ;
-    /*<<int64.ml:62:31>>*/ }
+     /*<<int64.ml:62:18>>*/ return runtime.caml_int64_format("%d", n) /*<<int64.ml:62:31>>*/ ;
+   }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
      var
       _g_ =
          /*<<int64.ml:67:6>>*/ [0,
-          /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string
-           /*<<int64.ml:67:11>>*/ (s)];
-      /*<<int64.ml:67:6>>*/ return _g_ /*<<int64.ml:67:6>>*/ ;
+          /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
+      /*<<int64.ml:67:6>>*/ return _g_;
     }
     catch(_h_){
      var _f_ = caml_wrap_exception(_h_);
-     if(_f_[1] === Stdlib[7])
-       /*<<int64.ml:68:20>>*/ return 0 /*<<int64.ml:68:20>>*/ ;
+     if(_f_[1] === Stdlib[7])  /*<<int64.ml:68:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_f_, 0);
     }
     /*<<int64.ml:68:24>>*/ }
    function compare(x, y){
-     /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-             /*<<int64.ml:79:28>>*/ (x, y) /*<<int64.ml:79:46>>*/ ;
-    /*<<int64.ml:79:46>>*/ }
+     /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:79:46>>*/ ;
+   }
    var equal = runtime.caml_equal;
    function unsigned_compare(n, m){
     var
-     y =
-        /*<<int64.ml:83:26>>*/  /*<<int64.ml:83:26>>*/ caml_int64_sub
-         /*<<int64.ml:83:26>>*/ (m, min_int),
-     x =
-        /*<<int64.ml:83:10>>*/  /*<<int64.ml:83:10>>*/ caml_int64_sub
-         /*<<int64.ml:83:10>>*/ (n, min_int);
-     /*<<int64.ml:79:28>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-             /*<<int64.ml:79:28>>*/ (x, y) /*<<int64.ml:83:41>>*/ ;
-    /*<<int64.ml:83:41>>*/ }
+     y =  /*<<int64.ml:83:26>>*/ caml_int64_sub(m, min_int),
+     x =  /*<<int64.ml:83:10>>*/ caml_int64_sub(n, min_int);
+     /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:83:41>>*/ ;
+   }
    function unsigned_lt(n, m){
-     /*<<int64.ml:86:2>>*/ return  /*<<int64.ml:86:2>>*/ caml_lessthan
-             /*<<int64.ml:86:2>>*/ ( /*<<int64.ml:86:2>>*/ caml_int64_sub
-               /*<<int64.ml:86:2>>*/ (n, min_int),
-              /*<<int64.ml:86:18>>*/ caml_int64_sub
-               /*<<int64.ml:86:18>>*/ (m, min_int)) /*<<int64.ml:86:31>>*/ ;
-    /*<<int64.ml:86:31>>*/ }
+     /*<<int64.ml:86:2>>*/ return caml_lessthan
+            (caml_int64_sub(n, min_int),
+              /*<<int64.ml:86:18>>*/ caml_int64_sub(m, min_int)) /*<<int64.ml:86:31>>*/ ;
+   }
    function min(x, y){
      /*<<int64.ml:88:18>>*/ return  /*<<int64.ml:88:21>>*/ caml_lessequal
-              /*<<int64.ml:88:21>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<int64.ml:88:41>>*/ ;
-    /*<<int64.ml:88:41>>*/ }
+   }
    function max(x, y){
      /*<<int64.ml:89:18>>*/ return  /*<<int64.ml:89:21>>*/ caml_greaterequal
-              /*<<int64.ml:89:21>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<int64.ml:89:41>>*/ ;
-    /*<<int64.ml:89:41>>*/ }
+   }
    function unsigned_div(n, d){
-     /*<<int64.ml:95:2>>*/ if
-     ( /*<<int64.ml:95:5>>*/ caml_lessthan /*<<int64.ml:95:5>>*/ (d, zero))
-      /*<<int64.ml:96:7>>*/ return  /*<<int64.ml:96:7>>*/ unsigned_lt
-               /*<<int64.ml:96:7>>*/ (n, d)
-             ? zero
-             : one /*<<int64.ml:100:41>>*/ ;
+     /*<<int64.ml:95:2>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
+      /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int64.ml:100:41>>*/ ;
     var
      q =
-        /*<<int64.ml:98:12>>*/  /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
-         /*<<int64.ml:98:12>>*/ ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
-           /*<<int64.ml:98:23>>*/ ( /*<<int64.ml:98:28>>*/ runtime.caml_int64_shift_right_unsigned
-             /*<<int64.ml:98:28>>*/ (n, 1),
+        /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
+        ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
+          ( /*<<int64.ml:98:28>>*/ runtime.caml_int64_shift_right_unsigned
+            (n, 1),
            d),
          1),
      r =
-        /*<<int64.ml:99:12>>*/  /*<<int64.ml:99:12>>*/ caml_int64_sub
-         /*<<int64.ml:99:12>>*/ (n,
-          /*<<int64.ml:99:18>>*/ caml_int64_mul /*<<int64.ml:99:18>>*/ (q, d));
-     /*<<int64.ml:100:7>>*/ return  /*<<int64.ml:100:7>>*/ unsigned_lt
-              /*<<int64.ml:100:7>>*/ (r, d)
+        /*<<int64.ml:99:12>>*/ caml_int64_sub
+        (n,  /*<<int64.ml:99:18>>*/ caml_int64_mul(q, d));
+     /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
             ? q
-            :  /*<<int64.ml:46:13>>*/ caml_int64_add
-               /*<<int64.ml:46:13>>*/ (q, _a_) /*<<int64.ml:100:41>>*/ ;
-    /*<<int64.ml:100:41>>*/ }
+            :  /*<<int64.ml:46:13>>*/ caml_int64_add(q, _a_) /*<<int64.ml:100:41>>*/ ;
+   }
    function unsigned_rem(n, d){
-     /*<<int64.ml:103:2>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
-             /*<<int64.ml:103:2>>*/ (n,
+     /*<<int64.ml:103:2>>*/ return caml_int64_sub
+            (n,
               /*<<int64.ml:103:8>>*/ caml_int64_mul
-               /*<<int64.ml:103:8>>*/ ( /*<<int64.ml:103:13>>*/ unsigned_div
-                 /*<<int64.ml:103:13>>*/ (n, d),
-               d)) /*<<int64.ml:103:34>>*/ ;
-    /*<<int64.ml:103:34>>*/ }
+              ( /*<<int64.ml:103:13>>*/ unsigned_div(n, d), d)) /*<<int64.ml:103:34>>*/ ;
+   }
    function seeded_hash(seed, x){
-     /*<<int64.ml:107:25>>*/ return  /*<<int64.ml:107:25>>*/ caml_hash
-             /*<<int64.ml:107:25>>*/ (10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
-    /*<<int64.ml:107:56>>*/ }
+     /*<<int64.ml:107:25>>*/ return caml_hash(10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
+   }
    function hash(x){
-     /*<<int64.ml:108:13>>*/ return  /*<<int64.ml:108:13>>*/ caml_hash
-             /*<<int64.ml:108:13>>*/ (10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
-    /*<<int64.ml:108:41>>*/ }
+     /*<<int64.ml:108:13>>*/ return caml_hash(10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
+   }
    var
     Stdlib_Int64 =
       [0,
@@ -10919,77 +9096,68 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_greaterequal =  /*<<?>>*/ runtime.caml_greaterequal,
-    caml_hash =  /*<<?>>*/ runtime.caml_hash,
-    caml_int_compare =  /*<<?>>*/ runtime.caml_int_compare,
-    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
-    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_mul =  /*<<?>>*/ runtime.caml_mul,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
+    runtime = globalThis.jsoo_runtime,
+    caml_greaterequal = runtime.caml_greaterequal,
+    caml_hash = runtime.caml_hash,
+    caml_int_compare = runtime.caml_int_compare,
+    caml_lessequal = runtime.caml_lessequal,
+    caml_lessthan = runtime.caml_lessthan,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_mul = runtime.caml_mul,
+    caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
     Stdlib = global_data.Stdlib,
     Stdlib_Sys = global_data.Stdlib__Sys,
     zero = 0,
     one = 1;
    function succ(n){
-     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0 /*<<nativeint.ml:44:13>>*/ ;
+     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0;
     /*<<nativeint.ml:44:21>>*/ }
    function pred(n){
-     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0 /*<<nativeint.ml:45:13>>*/ ;
+     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0;
     /*<<nativeint.ml:45:21>>*/ }
    function abs(n){
      /*<<nativeint.ml:46:12>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
-              /*<<nativeint.ml:46:15>>*/ (n, 0)
+             (n, 0)
             ? n
             : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
-    /*<<nativeint.ml:46:40>>*/ }
+   }
    var
     size =  /*<<nativeint.ml:46:8>>*/ Stdlib_Sys[9],
     min_int =  /*<<nativeint.ml:48:14>>*/ 1 << (size - 1 | 0),
     max_int =  /*<<nativeint.ml:49:14>>*/ min_int - 1 | 0;
    function lognot(n){
-     /*<<nativeint.ml:50:15>>*/ return n ^ -1 /*<<nativeint.ml:50:15>>*/ ;
+     /*<<nativeint.ml:50:15>>*/ return n ^ -1;
     /*<<nativeint.ml:50:29>>*/ }
    var max_int$0 =  /*<<nativeint.ml:50:11>>*/ Stdlib[19];
    function unsigned_to_int(n){
      /*<<nativeint.ml:55:4>>*/ if
-     ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal
-        /*<<nativeint.ml:55:7>>*/ (n, 0)
-      &&
-        /*<<nativeint.ml:55:18>>*/ caml_lessequal
-         /*<<nativeint.ml:55:18>>*/ (n, max_int$0))
-      /*<<nativeint.ml:56:6>>*/ return [0, n] /*<<nativeint.ml:56:6>>*/ ;
-     /*<<nativeint.ml:58:6>>*/ return 0 /*<<nativeint.ml:58:6>>*/ ;
+     ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal(n, 0)
+      &&  /*<<nativeint.ml:55:18>>*/ caml_lessequal(n, max_int$0))
+      /*<<nativeint.ml:56:6>>*/ return [0, n];
+     /*<<nativeint.ml:58:6>>*/ return 0;
     /*<<nativeint.ml:58:10>>*/ }
    function to_string(n){
-     /*<<nativeint.ml:61:18>>*/ return  /*<<nativeint.ml:61:18>>*/ runtime.caml_format_int
-             /*<<nativeint.ml:61:18>>*/ ("%d", n) /*<<nativeint.ml:61:31>>*/ ;
-    /*<<nativeint.ml:61:31>>*/ }
+     /*<<nativeint.ml:61:18>>*/ return runtime.caml_format_int("%d", n) /*<<nativeint.ml:61:31>>*/ ;
+   }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
      var
       _b_ =
          /*<<nativeint.ml:66:6>>*/ [0,
-          /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string
-           /*<<nativeint.ml:66:11>>*/ (s)];
-      /*<<nativeint.ml:66:6>>*/ return _b_ /*<<nativeint.ml:66:6>>*/ ;
+          /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
+      /*<<nativeint.ml:66:6>>*/ return _b_;
     }
     catch(_c_){
      var _a_ = caml_wrap_exception(_c_);
-     if(_a_[1] === Stdlib[7])
-       /*<<nativeint.ml:67:20>>*/ return 0 /*<<nativeint.ml:67:20>>*/ ;
+     if(_a_[1] === Stdlib[7])  /*<<nativeint.ml:67:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_a_, 0);
     }
     /*<<nativeint.ml:67:24>>*/ }
    var compare = caml_int_compare;
    function equal(x, y){
      /*<<nativeint.ml:72:26>>*/ return 0
-            ===
-              /*<<nativeint.ml:71:28>>*/ caml_int_compare
-               /*<<nativeint.ml:71:28>>*/ (x, y)
+            ===  /*<<nativeint.ml:71:28>>*/ caml_int_compare(x, y)
             ? 1
             : 0;
     /*<<nativeint.ml:72:41>>*/ }
@@ -10997,65 +9165,52 @@
     var
      y =  /*<<nativeint.ml:75:26>>*/ m - min_int | 0,
      x =  /*<<nativeint.ml:75:10>>*/ n - min_int | 0;
-     /*<<nativeint.ml:71:28>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
-             /*<<nativeint.ml:71:28>>*/ (x, y) /*<<nativeint.ml:75:41>>*/ ;
-    /*<<nativeint.ml:75:41>>*/ }
+     /*<<nativeint.ml:71:28>>*/ return caml_int_compare(x, y) /*<<nativeint.ml:75:41>>*/ ;
+   }
    function unsigned_lt(n, m){
-     /*<<nativeint.ml:78:2>>*/ return  /*<<nativeint.ml:78:2>>*/ caml_lessthan
-             /*<<nativeint.ml:78:2>>*/ (n - min_int | 0, m - min_int | 0) /*<<nativeint.ml:78:31>>*/ ;
-    /*<<nativeint.ml:78:31>>*/ }
+     /*<<nativeint.ml:78:2>>*/ return caml_lessthan
+            (n - min_int | 0, m - min_int | 0) /*<<nativeint.ml:78:31>>*/ ;
+   }
    function min(x, y){
      /*<<nativeint.ml:80:18>>*/ return  /*<<nativeint.ml:80:21>>*/ caml_lessequal
-              /*<<nativeint.ml:80:21>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<nativeint.ml:80:41>>*/ ;
-    /*<<nativeint.ml:80:41>>*/ }
+   }
    function max(x, y){
      /*<<nativeint.ml:81:18>>*/ return  /*<<nativeint.ml:81:21>>*/ caml_greaterequal
-              /*<<nativeint.ml:81:21>>*/ (x, y)
+             (x, y)
             ? x
             : y /*<<nativeint.ml:81:41>>*/ ;
-    /*<<nativeint.ml:81:41>>*/ }
+   }
    function unsigned_div(n, d){
      /*<<nativeint.ml:87:2>>*/ if
-     ( /*<<nativeint.ml:87:5>>*/ caml_lessthan
-        /*<<nativeint.ml:87:5>>*/ (d, 0))
-      /*<<nativeint.ml:88:7>>*/ return  /*<<nativeint.ml:88:7>>*/ unsigned_lt
-               /*<<nativeint.ml:88:7>>*/ (n, d)
-             ? zero
-             : one /*<<nativeint.ml:92:41>>*/ ;
+     ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
+      /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<nativeint.ml:92:41>>*/ ;
     var
      q =
         /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
-         /*<<nativeint.ml:90:23>>*/ (n >>> 1 | 0, d)
+        (n >>> 1 | 0, d)
        << 1,
      r =
         /*<<nativeint.ml:91:12>>*/ n
-       -
-         /*<<nativeint.ml:91:18>>*/ caml_mul /*<<nativeint.ml:91:18>>*/ (q, d)
+       -  /*<<nativeint.ml:91:18>>*/ caml_mul(q, d)
        | 0;
-     /*<<nativeint.ml:92:7>>*/ return  /*<<nativeint.ml:92:7>>*/ unsigned_lt
-              /*<<nativeint.ml:92:7>>*/ (r, d)
-            ? q
-            : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
-    /*<<nativeint.ml:92:41>>*/ }
+     /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
+   }
    function unsigned_rem(n, d){
      /*<<nativeint.ml:95:2>>*/ return n
            -
              /*<<nativeint.ml:95:8>>*/ caml_mul
-              /*<<nativeint.ml:95:8>>*/ ( /*<<nativeint.ml:95:13>>*/ unsigned_div
-                /*<<nativeint.ml:95:13>>*/ (n, d),
-              d)
+             ( /*<<nativeint.ml:95:13>>*/ unsigned_div(n, d), d)
            | 0 /*<<nativeint.ml:95:2>>*/ ;
     /*<<nativeint.ml:95:34>>*/ }
    function seeded_hash(seed, x){
-     /*<<nativeint.ml:99:25>>*/ return  /*<<nativeint.ml:99:25>>*/ caml_hash
-             /*<<nativeint.ml:99:25>>*/ (10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
-    /*<<nativeint.ml:99:56>>*/ }
+     /*<<nativeint.ml:99:25>>*/ return caml_hash(10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
+   }
    function hash(x){
-     /*<<nativeint.ml:100:13>>*/ return  /*<<nativeint.ml:100:13>>*/ caml_hash
-             /*<<nativeint.ml:100:13>>*/ (10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
-    /*<<nativeint.ml:100:41>>*/ }
+     /*<<nativeint.ml:100:13>>*/ return caml_hash(10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
+   }
    var
     Stdlib_Nativeint =
       [0,
@@ -11092,12 +9247,12 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst =  /*<<?>>*/ "",
-    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
-    caml_check_bound =  /*<<?>>*/ runtime.caml_check_bound,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length;
+    runtime = globalThis.jsoo_runtime,
+    cst = "",
+    caml_bytes_get = runtime.caml_bytes_get,
+    caml_check_bound = runtime.caml_check_bound,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_ml_bytes_length = runtime.caml_ml_bytes_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -11135,8 +9290,7 @@
    function engine(tbl, state, buf){
     var
      result =
-        /*<<lexing.ml:65:15>>*/  /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine
-         /*<<lexing.ml:65:15>>*/ (tbl, state, buf),
+        /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine(tbl, state, buf),
      _n_ = 0 <= result ? 1 : 0,
      _o_ = _n_ ? buf[12] !== dummy_pos ? 1 : 0 : _n_;
     if(_o_){
@@ -11144,13 +9298,12 @@
      var _p_ = buf[12];
      buf[12] = [0, _p_[1], _p_[2], _p_[3], buf[4] + buf[6] | 0];
     }
-     /*<<lexing.ml:71:2>>*/ return result /*<<lexing.ml:71:2>>*/ ;
+     /*<<lexing.ml:71:2>>*/ return result;
     /*<<lexing.ml:71:8>>*/ }
    function new_engine(tbl, state, buf){
     var
      result =
-        /*<<lexing.ml:75:15>>*/  /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine
-         /*<<lexing.ml:75:15>>*/ (tbl, state, buf),
+        /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine(tbl, state, buf),
      _k_ = 0 <= result ? 1 : 0,
      _l_ = _k_ ? buf[12] !== dummy_pos ? 1 : 0 : _k_;
     if(_l_){
@@ -11158,31 +9311,27 @@
      var _m_ = buf[12];
      buf[12] = [0, _m_[1], _m_[2], _m_[3], buf[4] + buf[6] | 0];
     }
-     /*<<lexing.ml:81:2>>*/ return result /*<<lexing.ml:81:2>>*/ ;
+     /*<<lexing.ml:81:2>>*/ return result;
     /*<<lexing.ml:81:8>>*/ }
    function from_function(opt, read_fun){
     var
      with_positions = opt ? opt[1] : 1,
      _f_ =  /*<<lexing.ml:148:2>>*/ with_positions ? zero_pos : dummy_pos,
      _g_ = with_positions ? zero_pos : dummy_pos,
-     aux_buffer =
-        /*<<lexing.ml:148:31>>*/  /*<<lexing.ml:148:31>>*/ caml_create_bytes
-         /*<<lexing.ml:148:31>>*/ (512);
+     aux_buffer =  /*<<lexing.ml:148:31>>*/ caml_create_bytes(512);
      /*<<lexing.ml:148:2>>*/ return [0,
             function(lexbuf){
              var
               read =
-                 /*<<lexing.ml:85:4>>*/  /*<<lexing.ml:85:4>>*/ caml_call2
-                  /*<<lexing.ml:85:4>>*/ (read_fun,
-                  aux_buffer,
-                  caml_ml_bytes_length(aux_buffer)),
+                 /*<<lexing.ml:85:4>>*/ caml_call2
+                 (read_fun, aux_buffer, caml_ml_bytes_length(aux_buffer)),
               n =  /*<<lexing.ml:86:2>>*/ 0 < read ? read : (lexbuf[9] = 1, 0);
              if(caml_ml_bytes_length(lexbuf[2]) < (lexbuf[3] + n | 0)){
               if
                (((lexbuf[3] - lexbuf[5] | 0) + n | 0)
                 <= caml_ml_bytes_length(lexbuf[2]))
-                /*<<lexing.ml:100:9>>*/  /*<<lexing.ml:100:9>>*/ caml_call5
-                 /*<<lexing.ml:100:9>>*/ (Stdlib_Bytes[11],
+                /*<<lexing.ml:100:9>>*/ caml_call5
+                (Stdlib_Bytes[11],
                  lexbuf[2],
                  lexbuf[5],
                  lexbuf[2],
@@ -11191,20 +9340,17 @@
               else{
                var
                 newlen =
-                   /*<<lexing.ml:111:8>>*/  /*<<lexing.ml:111:8>>*/ caml_call2
-                    /*<<lexing.ml:111:8>>*/ (Stdlib_Int[10],
+                   /*<<lexing.ml:111:8>>*/ caml_call2
+                   (Stdlib_Int[10],
                     2 * caml_ml_bytes_length(lexbuf[2]) | 0,
                     Stdlib_Sys[12]);
                if(newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0))
-                 /*<<lexing.ml:113:11>>*/  /*<<lexing.ml:113:11>>*/ caml_call1
-                  /*<<lexing.ml:113:11>>*/ (Stdlib[2],
-                  cst_Lexing_lex_refill_cannot_g);
+                 /*<<lexing.ml:113:11>>*/ caml_call1
+                 (Stdlib[2], cst_Lexing_lex_refill_cannot_g);
                var
-                newbuf =
-                   /*<<lexing.ml:114:19>>*/  /*<<lexing.ml:114:19>>*/ caml_create_bytes
-                    /*<<lexing.ml:114:19>>*/ (newlen);
-                /*<<lexing.ml:116:6>>*/  /*<<lexing.ml:116:6>>*/ caml_call5
-                 /*<<lexing.ml:116:6>>*/ (Stdlib_Bytes[11],
+                newbuf =  /*<<lexing.ml:114:19>>*/ caml_create_bytes(newlen);
+                /*<<lexing.ml:116:6>>*/ caml_call5
+                (Stdlib_Bytes[11],
                  lexbuf[2],
                  lexbuf[5],
                  newbuf,
@@ -11232,18 +9378,12 @@
                }
               }
              }
-              /*<<lexing.ml:137:2>>*/  /*<<lexing.ml:137:2>>*/ caml_call5
-               /*<<lexing.ml:137:2>>*/ (Stdlib_Bytes[11],
-               aux_buffer,
-               0,
-               lexbuf[2],
-               lexbuf[3],
-               n);
+              /*<<lexing.ml:137:2>>*/ caml_call5
+              (Stdlib_Bytes[11], aux_buffer, 0, lexbuf[2], lexbuf[3], n);
              lexbuf[3] = lexbuf[3] + n | 0;
              return 0;
             },
-             /*<<lexing.ml:149:17>>*/ caml_create_bytes
-              /*<<lexing.ml:149:17>>*/ (1024),
+             /*<<lexing.ml:149:17>>*/ caml_create_bytes(1024),
             0,
             0,
             0,
@@ -11257,24 +9397,23 @@
     /*<<lexing.ml:160:3>>*/ }
    function from_channel(with_positions, ic){
      /*<<lexing.ml:163:2>>*/ return  /*<<lexing.ml:163:32>>*/ from_function
-             /*<<lexing.ml:163:32>>*/ (with_positions,
+            (with_positions,
              function(buf, n){
-               /*<<lexing.ml:163:46>>*/ return  /*<<lexing.ml:163:46>>*/ caml_call4
-                       /*<<lexing.ml:163:46>>*/ (Stdlib[84], ic, buf, 0, n) /*<<lexing.ml:163:62>>*/ ;
-              /*<<lexing.ml:163:62>>*/ }) /*<<lexing.ml:163:63>>*/ ;
-    /*<<lexing.ml:163:63>>*/ }
+               /*<<lexing.ml:163:46>>*/ return caml_call4
+                      (Stdlib[84], ic, buf, 0, n) /*<<lexing.ml:163:62>>*/ ;
+             }) /*<<lexing.ml:163:63>>*/ ;
+   }
    function from_string(opt, s){
     var
      with_positions = opt ? opt[1] : 1,
      _d_ =  /*<<lexing.ml:166:2>>*/ with_positions ? zero_pos : dummy_pos,
      _e_ = with_positions ? zero_pos : dummy_pos;
-     /*<<lexing.ml:166:2>>*/ return [0,
+    return [0,
             function(lexbuf){
               /*<<lexing.ml:166:33>>*/ lexbuf[9] = 1;
              return 0;
              /*<<lexing.ml:166:63>>*/ },
-             /*<<lexing.ml:167:17>>*/ caml_call1
-              /*<<lexing.ml:167:17>>*/ (Stdlib_Bytes[5], s),
+             /*<<lexing.ml:167:17>>*/ caml_call1(Stdlib_Bytes[5], s),
             runtime.caml_ml_string_length(s),
             0,
             0,
@@ -11302,40 +9441,33 @@
     /*<<lexing.ml:188:58>>*/ }
    function lexeme(lexbuf){
     var len = lexbuf[6] - lexbuf[5] | 0;
-     /*<<lexing.ml:192:2>>*/ return  /*<<lexing.ml:192:2>>*/ caml_call3
-             /*<<lexing.ml:192:2>>*/ (Stdlib_Bytes[8],
-             lexbuf[2],
-             lexbuf[5],
-             len) /*<<lexing.ml:192:61>>*/ ;
-    /*<<lexing.ml:192:61>>*/ }
+     /*<<lexing.ml:192:2>>*/ return caml_call3
+            (Stdlib_Bytes[8], lexbuf[2], lexbuf[5], len) /*<<lexing.ml:192:61>>*/ ;
+   }
    function sub_lexeme(lexbuf, i1, i2){
     var len = i2 - i1 | 0;
-     /*<<lexing.ml:196:2>>*/ return  /*<<lexing.ml:196:2>>*/ caml_call3
-             /*<<lexing.ml:196:2>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len) /*<<lexing.ml:196:43>>*/ ;
-    /*<<lexing.ml:196:43>>*/ }
+     /*<<lexing.ml:196:2>>*/ return caml_call3
+            (Stdlib_Bytes[8], lexbuf[2], i1, len) /*<<lexing.ml:196:43>>*/ ;
+   }
    function sub_lexeme_opt(lexbuf, i1, i2){
-     /*<<lexing.ml:199:2>>*/ if(0 > i1)
-      /*<<lexing.ml:202:11>>*/ return 0 /*<<lexing.ml:202:11>>*/ ;
+     /*<<lexing.ml:199:2>>*/ if(0 > i1)  /*<<lexing.ml:202:11>>*/ return 0;
     var len = i2 - i1 | 0;
      /*<<lexing.ml:201:4>>*/ return [0,
              /*<<lexing.ml:201:9>>*/ caml_call3
-              /*<<lexing.ml:201:9>>*/ (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:4>>*/ ;
+             (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:4>>*/ ;
     /*<<lexing.ml:204:5>>*/ }
    function sub_lexeme_char(lexbuf, i){
-     /*<<lexing.ml:206:31>>*/ return  /*<<lexing.ml:206:31>>*/ caml_bytes_get
-             /*<<lexing.ml:206:31>>*/ (lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
-    /*<<lexing.ml:206:60>>*/ }
+     /*<<lexing.ml:206:31>>*/ return caml_bytes_get(lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
+   }
    function sub_lexeme_char_opt(lexbuf, i){
      /*<<lexing.ml:209:2>>*/ return 0 <= i
-            ? [0,
-               /*<<lexing.ml:210:9>>*/ caml_bytes_get
-                /*<<lexing.ml:210:9>>*/ (lexbuf[2], i)]
+            ? [0,  /*<<lexing.ml:210:9>>*/ caml_bytes_get(lexbuf[2], i)]
             : 0 /*<<lexing.ml:212:8>>*/ ;
-    /*<<lexing.ml:212:8>>*/ }
+   }
    function lexeme_char(lexbuf, i){
-     /*<<lexing.ml:216:2>>*/ return  /*<<lexing.ml:216:2>>*/ caml_bytes_get
-             /*<<lexing.ml:216:2>>*/ (lexbuf[2], lexbuf[5] + i | 0) /*<<lexing.ml:216:56>>*/ ;
-    /*<<lexing.ml:216:56>>*/ }
+     /*<<lexing.ml:216:2>>*/ return caml_bytes_get
+            (lexbuf[2], lexbuf[5] + i | 0) /*<<lexing.ml:216:56>>*/ ;
+   }
    function lexeme_start(lexbuf){
      /*<<lexing.ml:218:26>>*/ return lexbuf[11][4];
     /*<<lexing.ml:218:53>>*/ }
@@ -11402,13 +9534,12 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    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;
+    runtime = globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -11439,14 +9570,10 @@
        caml_fresh_oo_id(0)],
     env =
        /*<<parsing.ml:90:2>>*/ [0,
-        /*<<parsing.ml:90:14>>*/ caml_make_vect
-         /*<<parsing.ml:90:14>>*/ (100, 0),
-        /*<<parsing.ml:91:14>>*/ caml_make_vect
-         /*<<parsing.ml:91:14>>*/ (100, 0),
-        /*<<parsing.ml:92:23>>*/ caml_make_vect
-         /*<<parsing.ml:92:23>>*/ (100, Stdlib_Lexing[1]),
-        /*<<parsing.ml:93:21>>*/ caml_make_vect
-         /*<<parsing.ml:93:21>>*/ (100, Stdlib_Lexing[1]),
+        /*<<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]),
        100,
        0,
        0,
@@ -11464,45 +9591,29 @@
     var
      oldsize = env[5],
      newsize = oldsize * 2 | 0,
-     new_s =
-        /*<<parsing.ml:110:14>>*/  /*<<parsing.ml:110:14>>*/ caml_make_vect
-         /*<<parsing.ml:110:14>>*/ (newsize, 0),
-     new_v =
-        /*<<parsing.ml:111:14>>*/  /*<<parsing.ml:111:14>>*/ caml_make_vect
-         /*<<parsing.ml:111:14>>*/ (newsize, 0),
+     new_s =  /*<<parsing.ml:110:14>>*/ caml_make_vect(newsize, 0),
+     new_v =  /*<<parsing.ml:111:14>>*/ caml_make_vect(newsize, 0),
      new_start =
-        /*<<parsing.ml:112:18>>*/  /*<<parsing.ml:112:18>>*/ caml_make_vect
-         /*<<parsing.ml:112:18>>*/ (newsize, Stdlib_Lexing[1]),
+        /*<<parsing.ml:112:18>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]),
      new_end =
-        /*<<parsing.ml:113:16>>*/  /*<<parsing.ml:113:16>>*/ caml_make_vect
-         /*<<parsing.ml:113:16>>*/ (newsize, Stdlib_Lexing[1]);
-     /*<<parsing.ml:114:4>>*/  /*<<parsing.ml:114:4>>*/ caml_call5
-      /*<<parsing.ml:114:4>>*/ (Stdlib_Array[9], env[1], 0, new_s, 0, oldsize);
+        /*<<parsing.ml:113:16>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]);
+     /*<<parsing.ml:114:4>>*/ caml_call5
+     (Stdlib_Array[9], env[1], 0, new_s, 0, oldsize);
     env[1] = new_s;
-     /*<<parsing.ml:116:4>>*/  /*<<parsing.ml:116:4>>*/ caml_call5
-      /*<<parsing.ml:116:4>>*/ (Stdlib_Array[9], env[2], 0, new_v, 0, oldsize);
+     /*<<parsing.ml:116:4>>*/ caml_call5
+     (Stdlib_Array[9], env[2], 0, new_v, 0, oldsize);
     env[2] = new_v;
-     /*<<parsing.ml:118:4>>*/  /*<<parsing.ml:118:4>>*/ caml_call5
-      /*<<parsing.ml:118:4>>*/ (Stdlib_Array[9],
-      env[3],
-      0,
-      new_start,
-      0,
-      oldsize);
+     /*<<parsing.ml:118:4>>*/ caml_call5
+     (Stdlib_Array[9], env[3], 0, new_start, 0, oldsize);
     env[3] = new_start;
-     /*<<parsing.ml:120:4>>*/  /*<<parsing.ml:120:4>>*/ caml_call5
-      /*<<parsing.ml:120:4>>*/ (Stdlib_Array[9],
-      env[4],
-      0,
-      new_end,
-      0,
-      oldsize);
+     /*<<parsing.ml:120:4>>*/ caml_call5
+     (Stdlib_Array[9], env[4], 0, new_end, 0, oldsize);
     env[4] = new_end;
     env[5] = newsize;
     /*<<parsing.ml:122:28>>*/ }
    function clear_parser(param){
-     /*<<parsing.ml:125:2>>*/  /*<<parsing.ml:125:2>>*/ caml_call4
-      /*<<parsing.ml:125:2>>*/ (Stdlib_Array[8], env[2], 0, env[5], 0);
+     /*<<parsing.ml:125:2>>*/ caml_call4
+     (Stdlib_Array[8], env[2], 0, env[5], 0);
     env[8] = 0;
     return 0;
     /*<<parsing.ml:126:25>>*/ }
@@ -11510,7 +9621,7 @@
     current_lookahead_fun =
        /*<<parsing.ml:128:28>>*/ [0,
        function(param){
-         /*<<parsing.ml:128:52>>*/ return 0 /*<<parsing.ml:128:52>>*/ ;
+         /*<<parsing.ml:128:52>>*/ return 0;
         /*<<parsing.ml:128:57>>*/ }],
     cst_syntax_error = "syntax error";
    function yyparse(tables, start, lexer, lexbuf){
@@ -11530,42 +9641,29 @@
       /*<<parsing.ml:132:4>>*/ for(;;)
       switch
        ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
-          /*<<parsing.ml:132:10>>*/ (tables, env, cmd, arg)){
+         (tables, env, cmd, arg)){
         case 0:
-         var
-          arg$0 =
-             /*<<parsing.ml:134:24>>*/  /*<<parsing.ml:134:24>>*/ caml_call1
-              /*<<parsing.ml:134:24>>*/ (lexer, lexbuf);
+         var arg$0 =  /*<<parsing.ml:134:24>>*/ caml_call1(lexer, lexbuf);
          env[9] = lexbuf[11];
          env[10] = lexbuf[12];
          cmd = 1;
          arg = arg$0;
          break;
         case 1:
-          /*<<parsing.ml:139:8>>*/ throw  /*<<parsing.ml:139:8>>*/ caml_maybe_attach_backtrace
-                 /*<<parsing.ml:139:8>>*/ (Parse_error, 1);
+          /*<<parsing.ml:139:8>>*/ throw caml_maybe_attach_backtrace
+                (Parse_error, 1);
         case 2:
-          /*<<parsing.ml:148:8>>*/  /*<<parsing.ml:148:8>>*/ grow_stacks
-           /*<<parsing.ml:148:8>>*/ (0);
-         cmd = 2;
-         arg = 0;
-         break;
+          /*<<parsing.ml:148:8>>*/ grow_stacks(0); cmd = 2; arg = 0; break;
         case 3:
-          /*<<parsing.ml:150:8>>*/  /*<<parsing.ml:150:8>>*/ grow_stacks
-           /*<<parsing.ml:150:8>>*/ (0);
-         cmd = 3;
-         arg = 0;
-         break;
+          /*<<parsing.ml:150:8>>*/ grow_stacks(0); cmd = 3; arg = 0; break;
         case 4:
          try{
           var
            _i_ = env[13],
            _j_ =
-              /*<<parsing.ml:143:39>>*/  /*<<parsing.ml:143:39>>*/ caml_call1
-               /*<<parsing.ml:143:39>>*/ (caml_check_bound(tables[1], _i_)
-                [1 + _i_],
-               env),
-           _k_ =  /*<<parsing.ml:143:39>>*/ 4,
+              /*<<parsing.ml:143:39>>*/ caml_call1
+              (caml_check_bound(tables[1], _i_)[1 + _i_], env),
+           _k_ = 4,
            value = _j_,
            action = _k_;
          }
@@ -11578,8 +9676,7 @@
          arg = value;
          break;
         default:
-          /*<<parsing.ml:152:8>>*/  /*<<parsing.ml:152:8>>*/ caml_call1
-           /*<<parsing.ml:152:8>>*/ (tables[14], cst_syntax_error);
+          /*<<parsing.ml:152:8>>*/ caml_call1(tables[14], cst_syntax_error);
          cmd = 5;
          arg = 0;
       }
@@ -11597,95 +9694,78 @@
      env[16] = init_errflag;
      if(exn[1] === YYexit){
       var v = exn[2];
-       /*<<parsing.ml:177:8>>*/ return v /*<<parsing.ml:177:8>>*/ ;
+       /*<<parsing.ml:177:8>>*/ return v;
      }
      current_lookahead_fun[1] =
       function(tok){
         /*<<parsing.ml:181:12>>*/ if
-        (!
-          /*<<parsing.ml:181:15>>*/ caml_call1
-           /*<<parsing.ml:181:15>>*/ (Stdlib_Obj[1], tok))
+        (!  /*<<parsing.ml:181:15>>*/ caml_call1(Stdlib_Obj[1], tok))
          /*<<parsing.ml:183:17>>*/ return caml_check_bound(tables[2], tok)
                  [1 + tok]
                 === curr_char
                 ? 1
-                : 0 /*<<parsing.ml:183:17>>*/ ;
-       var
-        _l_ =
-           /*<<parsing.ml:182:38>>*/  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag
-            /*<<parsing.ml:182:38>>*/ (tok);
+                : 0;
+       var _l_ =  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag(tok);
         /*<<parsing.ml:182:17>>*/ return caml_check_bound(tables[3], _l_)
                 [1 + _l_]
                === curr_char
                ? 1
-               : 0 /*<<parsing.ml:182:17>>*/ ;
+               : 0;
        /*<<parsing.ml:183:64>>*/ };
-      /*<<parsing.ml:184:8>>*/ throw  /*<<parsing.ml:184:8>>*/ caml_maybe_attach_backtrace
-             /*<<parsing.ml:184:8>>*/ (exn, 0);
+      /*<<parsing.ml:184:8>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<parsing.ml:184:17>>*/ }
    function peek_val(env, n){
     var _g_ = env[11] - n | 0;
-     /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_] /*<<parsing.ml:187:12>>*/ ;
+     /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_];
     /*<<parsing.ml:187:37>>*/ }
    function symbol_start_pos(param){
     var i$1 = env[12], i = i$1;
      /*<<parsing.ml:191:4>>*/ for(;;){
      if(0 >= i){
       var _f_ = env[11];
-       /*<<parsing.ml:191:19>>*/ return caml_check_bound(env[4], _f_)[1 + _f_] /*<<parsing.ml:191:19>>*/ ;
+       /*<<parsing.ml:191:19>>*/ return caml_check_bound(env[4], _f_)[1 + _f_];
      }
      var
       _d_ = (env[11] - i | 0) + 1 | 0,
       st =  /*<<parsing.ml:193:15>>*/ caml_check_bound(env[3], _d_)[1 + _d_],
       _e_ = (env[11] - i | 0) + 1 | 0,
       en =  /*<<parsing.ml:194:15>>*/ caml_check_bound(env[4], _e_)[1 + _e_];
-      /*<<parsing.ml:195:9>>*/ if
-      ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal
-         /*<<parsing.ml:195:9>>*/ (st, en))
-       /*<<parsing.ml:195:23>>*/ return st /*<<parsing.ml:195:23>>*/ ;
+      /*<<parsing.ml:195:9>>*/ if(runtime.caml_notequal(st, en))
+       /*<<parsing.ml:195:23>>*/ return st;
      var i$0 =  /*<<parsing.ml:195:31>>*/ i - 1 | 0;
      i = i$0;
     }
     /*<<parsing.ml:198:19>>*/ }
    function symbol_end_pos(param){
     var _c_ = env[11];
-     /*<<parsing.ml:200:24>>*/ return caml_check_bound(env[4], _c_)[1 + _c_] /*<<parsing.ml:200:24>>*/ ;
+     /*<<parsing.ml:200:24>>*/ return caml_check_bound(env[4], _c_)[1 + _c_];
     /*<<parsing.ml:200:52>>*/ }
    function rhs_start_pos(n){
     var _b_ = env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:201:22>>*/ return caml_check_bound(env[3], _b_)[1 + _b_] /*<<parsing.ml:201:22>>*/ ;
+     /*<<parsing.ml:201:22>>*/ return caml_check_bound(env[3], _b_)[1 + _b_];
     /*<<parsing.ml:201:73>>*/ }
    function rhs_end_pos(n){
     var _a_ = env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_] /*<<parsing.ml:202:20>>*/ ;
+     /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_];
     /*<<parsing.ml:202:69>>*/ }
    function symbol_start(param){
-     /*<<parsing.ml:204:22>>*/ return  /*<<parsing.ml:204:22>>*/ symbol_start_pos
-              /*<<parsing.ml:204:22>>*/ (0)
-            [4] /*<<parsing.ml:204:22>>*/ ;
+     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4];
     /*<<parsing.ml:204:52>>*/ }
    function symbol_end(param){
-     /*<<parsing.ml:205:20>>*/ return  /*<<parsing.ml:205:20>>*/ symbol_end_pos
-              /*<<parsing.ml:205:20>>*/ (0)
-            [4] /*<<parsing.ml:205:20>>*/ ;
+     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4];
     /*<<parsing.ml:205:48>>*/ }
    function rhs_start(n){
-     /*<<parsing.ml:206:18>>*/ return  /*<<parsing.ml:206:18>>*/ rhs_start_pos
-              /*<<parsing.ml:206:18>>*/ (n)
-            [4] /*<<parsing.ml:206:18>>*/ ;
+     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4];
     /*<<parsing.ml:206:44>>*/ }
    function rhs_end(n){
-     /*<<parsing.ml:207:16>>*/ return  /*<<parsing.ml:207:16>>*/ rhs_end_pos
-              /*<<parsing.ml:207:16>>*/ (n)
-            [4] /*<<parsing.ml:207:16>>*/ ;
+     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4];
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
-     /*<<parsing.ml:210:2>>*/ return  /*<<parsing.ml:210:2>>*/ caml_call1
-             /*<<parsing.ml:210:2>>*/ (current_lookahead_fun[1], tok) /*<<parsing.ml:210:40>>*/ ;
-    /*<<parsing.ml:210:40>>*/ }
+     /*<<parsing.ml:210:2>>*/ return caml_call1(current_lookahead_fun[1], tok) /*<<parsing.ml:210:40>>*/ ;
+   }
    function parse_error(param){
-     /*<<parsing.ml:212:31>>*/ return 0 /*<<parsing.ml:212:31>>*/ ;
+     /*<<parsing.ml:212:31>>*/ return 0;
     /*<<parsing.ml:212:33>>*/ }
    var
     Stdlib_Parsing =
@@ -11717,10 +9797,9 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_Set_bal$3 =  /*<<?>>*/ "Set.bal",
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    cst_Set_bal$3 = "Set.bal",
+    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
             ? f(a0)
@@ -11754,16 +9833,15 @@
       [0,
        function(Ord){
         function height(param){
-          /*<<set.ml:81:17>>*/ if(! param)
-           /*<<set.ml:82:17>>*/ return 0 /*<<set.ml:82:17>>*/ ;
+          /*<<set.ml:81:17>>*/ if(! param)  /*<<set.ml:82:17>>*/ return 0;
          var h = param[4];
-          /*<<set.ml:83:20>>*/ return h /*<<set.ml:83:20>>*/ ;
+          /*<<set.ml:83:20>>*/ return h;
          /*<<set.ml:83:21>>*/ }
         function create(l, v, r){
           /*<<set.ml:91:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
           /*<<set.ml:92:6>>*/ if(r) var h$0 = r[4], hr = h$0; else var hr = 0;
          var _Y_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-          /*<<set.ml:93:10>>*/ return [0, l, v, r, _Y_] /*<<set.ml:93:10>>*/ ;
+          /*<<set.ml:93:10>>*/ return [0, l, v, r, _Y_];
          /*<<set.ml:93:60>>*/ }
         function bal(l, v, r){
           /*<<set.ml:101:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
@@ -11773,135 +9851,83 @@
           var hr = 0;
          if((hr + 2 | 0) < hl){
           if(! l)
-            /*<<set.ml:105:19>>*/ return  /*<<set.ml:105:19>>*/ caml_call1
-                    /*<<set.ml:105:19>>*/ (Stdlib[1], cst_Set_bal$0) /*<<set.ml:128:62>>*/ ;
+            /*<<set.ml:105:19>>*/ return caml_call1(Stdlib[1], cst_Set_bal$0) /*<<set.ml:128:62>>*/ ;
           var
            lr = l[3],
            lv = l[2],
            ll = l[1],
-           _T_ =
-              /*<<set.ml:107:28>>*/  /*<<set.ml:107:28>>*/ height
-               /*<<set.ml:107:28>>*/ (lr);
-          if(_T_ <=  /*<<set.ml:107:15>>*/ height /*<<set.ml:107:15>>*/ (ll))
-            /*<<set.ml:108:27>>*/ return  /*<<set.ml:108:27>>*/ create
-                    /*<<set.ml:108:27>>*/ (ll,
-                    lv,
-                     /*<<set.ml:108:27>>*/ create
-                      /*<<set.ml:108:27>>*/ (lr, v, r)) /*<<set.ml:128:62>>*/ ;
+           _T_ =  /*<<set.ml:107:28>>*/ height(lr);
+          if(_T_ <=  /*<<set.ml:107:15>>*/ height(ll))
+            /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r)) /*<<set.ml:128:62>>*/ ;
           if(! lr)
-            /*<<set.ml:111:25>>*/ return  /*<<set.ml:111:25>>*/ caml_call1
-                    /*<<set.ml:111:25>>*/ (Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
+            /*<<set.ml:111:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
           var
            lrr = lr[3],
            lrv = lr[2],
            lrl = lr[1],
-           _U_ =
-              /*<<set.ml:113:48>>*/  /*<<set.ml:113:48>>*/ create
-               /*<<set.ml:113:48>>*/ (lrr, v, r);
-           /*<<set.ml:113:48>>*/ return  /*<<set.ml:113:48>>*/ create
-                   /*<<set.ml:113:48>>*/ ( /*<<set.ml:113:25>>*/ create
-                     /*<<set.ml:113:25>>*/ (ll, lv, lrl),
-                   lrv,
-                   _U_) /*<<set.ml:128:62>>*/ ;
+           _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
+          return create( /*<<set.ml:113:25>>*/ create(ll, lv, lrl), lrv, _U_) /*<<set.ml:128:62>>*/ ;
          }
          if((hl + 2 | 0) >= hr){
           var _X_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-           /*<<set.ml:128:12>>*/ return [0, l, v, r, _X_] /*<<set.ml:128:12>>*/ ;
+           /*<<set.ml:128:12>>*/ return [0, l, v, r, _X_];
          }
          if(! r)
-           /*<<set.ml:117:19>>*/ return  /*<<set.ml:117:19>>*/ caml_call1
-                   /*<<set.ml:117:19>>*/ (Stdlib[1], cst_Set_bal$2) /*<<set.ml:128:62>>*/ ;
+           /*<<set.ml:117:19>>*/ return caml_call1(Stdlib[1], cst_Set_bal$2) /*<<set.ml:128:62>>*/ ;
          var
           rr = r[3],
           rv = r[2],
           rl = r[1],
-          _V_ =
-             /*<<set.ml:119:28>>*/  /*<<set.ml:119:28>>*/ height
-              /*<<set.ml:119:28>>*/ (rl);
-         if(_V_ <=  /*<<set.ml:119:15>>*/ height /*<<set.ml:119:15>>*/ (rr))
-           /*<<set.ml:120:14>>*/ return  /*<<set.ml:120:14>>*/ create
-                   /*<<set.ml:120:14>>*/ ( /*<<set.ml:120:21>>*/ create
-                     /*<<set.ml:120:21>>*/ (l, v, rl),
-                   rv,
-                   rr) /*<<set.ml:128:62>>*/ ;
+          _V_ =  /*<<set.ml:119:28>>*/ height(rl);
+         if(_V_ <=  /*<<set.ml:119:15>>*/ height(rr))
+           /*<<set.ml:120:14>>*/ return create
+                  ( /*<<set.ml:120:21>>*/ create(l, v, rl), rv, rr) /*<<set.ml:128:62>>*/ ;
          if(! rl)
-           /*<<set.ml:123:25>>*/ return  /*<<set.ml:123:25>>*/ caml_call1
-                   /*<<set.ml:123:25>>*/ (Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
+           /*<<set.ml:123:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
          var
           rlr = rl[3],
           rlv = rl[2],
           rll = rl[1],
-          _W_ =
-             /*<<set.ml:125:46>>*/  /*<<set.ml:125:46>>*/ create
-              /*<<set.ml:125:46>>*/ (rlr, rv, rr);
-          /*<<set.ml:125:46>>*/ return  /*<<set.ml:125:46>>*/ create
-                  /*<<set.ml:125:46>>*/ ( /*<<set.ml:125:25>>*/ create
-                    /*<<set.ml:125:25>>*/ (l, v, rll),
-                  rlv,
-                  _W_) /*<<set.ml:128:62>>*/ ;
-         /*<<set.ml:128:62>>*/ }
+          _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
+         return create( /*<<set.ml:125:25>>*/ create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
+        }
         function add(x, t){
           /*<<set.ml:132:16>>*/ if(! t)
-           /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1] /*<<set.ml:133:21>>*/ ;
+           /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1];
          var
           r = t[3],
           v = t[2],
           l = t[1],
-          c =
-             /*<<set.ml:135:18>>*/  /*<<set.ml:135:18>>*/ caml_call2
-              /*<<set.ml:135:18>>*/ (Ord[1], x, v);
-          /*<<set.ml:136:10>>*/ if(0 === c)
-           /*<<set.ml:136:24>>*/ return t /*<<set.ml:136:24>>*/ ;
+          c =  /*<<set.ml:135:18>>*/ caml_call2(Ord[1], x, v);
+          /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
          if(0 <= c){
-          var
-           rr =
-              /*<<set.ml:141:21>>*/  /*<<set.ml:141:21>>*/ add
-               /*<<set.ml:141:21>>*/ (x, r);
-          return r === rr
-                  ? t
-                  :  /*<<set.ml:142:35>>*/ bal
-                     /*<<set.ml:142:35>>*/ (l, v, rr) /*<<set.ml:142:45>>*/ ;
+          var rr =  /*<<set.ml:141:21>>*/ add(x, r);
+          return r === rr ? t :  /*<<set.ml:142:35>>*/ bal(l, v, rr) /*<<set.ml:142:45>>*/ ;
          }
-         var
-          ll =
-             /*<<set.ml:138:21>>*/  /*<<set.ml:138:21>>*/ add
-              /*<<set.ml:138:21>>*/ (x, l);
-         return l === ll
-                 ? t
-                 :  /*<<set.ml:139:35>>*/ bal /*<<set.ml:139:35>>*/ (ll, v, r) /*<<set.ml:142:45>>*/ ;
-         /*<<set.ml:142:45>>*/ }
+         var ll =  /*<<set.ml:138:21>>*/ add(x, l);
+         return l === ll ? t :  /*<<set.ml:139:35>>*/ bal(ll, v, r) /*<<set.ml:142:45>>*/ ;
+        }
         function singleton(x){
           /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1] /*<<set.ml:144:26>>*/ ;
          /*<<set.ml:144:54>>*/ }
         function add_min_element(x, param){
           /*<<set.ml:153:28>>*/ if(! param)
-           /*<<set.ml:154:17>>*/ return  /*<<set.ml:154:17>>*/ singleton
-                   /*<<set.ml:154:17>>*/ (x) /*<<set.ml:156:37>>*/ ;
+           /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:156:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:156:8>>*/ return  /*<<set.ml:156:8>>*/ bal
-                  /*<<set.ml:156:8>>*/ ( /*<<set.ml:156:12>>*/ add_min_element
-                    /*<<set.ml:156:12>>*/ (x, l),
-                  v,
-                  r) /*<<set.ml:156:37>>*/ ;
-         /*<<set.ml:156:37>>*/ }
+          /*<<set.ml:156:8>>*/ return bal
+                 ( /*<<set.ml:156:12>>*/ add_min_element(x, l), v, r) /*<<set.ml:156:37>>*/ ;
+        }
         function add_max_element(x, param){
           /*<<set.ml:158:28>>*/ if(! param)
-           /*<<set.ml:159:17>>*/ return  /*<<set.ml:159:17>>*/ singleton
-                   /*<<set.ml:159:17>>*/ (x) /*<<set.ml:161:37>>*/ ;
+           /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:161:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:161:16>>*/ return  /*<<set.ml:161:16>>*/ bal
-                  /*<<set.ml:161:16>>*/ (l,
-                  v,
-                   /*<<set.ml:161:16>>*/ add_max_element
-                    /*<<set.ml:161:16>>*/ (x, r)) /*<<set.ml:161:37>>*/ ;
-         /*<<set.ml:161:37>>*/ }
+          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
+        }
         function join(l, v, r){
           /*<<set.ml:167:6>>*/ if(! l)
-           /*<<set.ml:168:22>>*/ return  /*<<set.ml:168:22>>*/ add_min_element
-                   /*<<set.ml:168:22>>*/ (v, r) /*<<set.ml:173:22>>*/ ;
+           /*<<set.ml:168:22>>*/ return add_min_element(v, r) /*<<set.ml:173:22>>*/ ;
          if(! r)
-           /*<<set.ml:169:22>>*/ return  /*<<set.ml:169:22>>*/ add_max_element
-                   /*<<set.ml:169:22>>*/ (v, l) /*<<set.ml:173:22>>*/ ;
+           /*<<set.ml:169:22>>*/ return add_max_element(v, l) /*<<set.ml:173:22>>*/ ;
          var
           rh = r[4],
           rr = r[3],
@@ -11912,46 +9938,32 @@
           lv = l[2],
           ll = l[1];
          return (rh + 2 | 0) < lh
-                 ?  /*<<set.ml:171:40>>*/ bal
-                    /*<<set.ml:171:40>>*/ (ll,
-                    lv,
-                     /*<<set.ml:171:40>>*/ join /*<<set.ml:171:40>>*/ (lr, v, r))
+                 ?  /*<<set.ml:171:40>>*/ bal(ll, lv, join(lr, v, r))
                  : (lh
                    + 2
                    | 0)
                    < rh
                    ?  /*<<set.ml:172:30>>*/ bal
-                      /*<<set.ml:172:30>>*/ ( /*<<set.ml:172:34>>*/ join
-                        /*<<set.ml:172:34>>*/ (l, v, rl),
-                      rv,
-                      rr)
-                   :  /*<<set.ml:173:10>>*/ create
-                      /*<<set.ml:173:10>>*/ (l, v, r) /*<<set.ml:173:22>>*/ ;
-         /*<<set.ml:173:22>>*/ }
+                     ( /*<<set.ml:172:34>>*/ join(l, v, rl), rv, rr)
+                   :  /*<<set.ml:173:10>>*/ create(l, v, r) /*<<set.ml:173:22>>*/ ;
+        }
         function min_elt(param){
          var param$0 = param;
           /*<<set.ml:177:22>>*/ for(;;){
           if(! param$0)
-            /*<<set.ml:178:17>>*/ throw  /*<<set.ml:178:17>>*/ caml_maybe_attach_backtrace
-                   /*<<set.ml:178:17>>*/ (Stdlib[8], 1);
+            /*<<set.ml:178:17>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var l = param$0[1];
-          if(! l){
-           var v = param$0[2];
-            /*<<set.ml:179:28>>*/ return v /*<<set.ml:179:28>>*/ ;
-          }
+          if(! l){var v = param$0[2];  /*<<set.ml:179:28>>*/ return v;}
           param$0 = l;
          }
          /*<<set.ml:180:28>>*/ }
         function min_elt_opt(param){
          var param$0 = param;
           /*<<set.ml:182:26>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:183:17>>*/ return 0 /*<<set.ml:183:17>>*/ ;
+          if(! param$0)  /*<<set.ml:183:17>>*/ return 0;
           var l = param$0[1];
-          if(! l){
-           var v = param$0[2];
-            /*<<set.ml:184:28>>*/ return [0, v] /*<<set.ml:184:28>>*/ ;
-          }
+          if(! l){var v = param$0[2];  /*<<set.ml:184:28>>*/ return [0, v];}
           param$0 = l;
          }
          /*<<set.ml:185:32>>*/ }
@@ -11959,11 +9971,11 @@
          var param$0 = param;
           /*<<set.ml:187:22>>*/ for(;;){
           if(! param$0)
-            /*<<set.ml:188:17>>*/ throw  /*<<set.ml:188:17>>*/ caml_maybe_attach_backtrace
-                   /*<<set.ml:188:17>>*/ (Stdlib[8], 1);
+            /*<<set.ml:188:17>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           if(! param$0[3]){
            var v = param$0[2];
-            /*<<set.ml:189:28>>*/ return v /*<<set.ml:189:28>>*/ ;
+            /*<<set.ml:189:28>>*/ return v;
           }
           var r = param$0[3];
           param$0 = r;
@@ -11972,11 +9984,10 @@
         function max_elt_opt(param){
          var param$0 = param;
           /*<<set.ml:192:26>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:193:17>>*/ return 0 /*<<set.ml:193:17>>*/ ;
+          if(! param$0)  /*<<set.ml:193:17>>*/ return 0;
           if(! param$0[3]){
            var v = param$0[2];
-            /*<<set.ml:194:28>>*/ return [0, v] /*<<set.ml:194:28>>*/ ;
+            /*<<set.ml:194:28>>*/ return [0, v];
           }
           var r = param$0[3];
           param$0 = r;
@@ -11984,86 +9995,66 @@
          /*<<set.ml:195:32>>*/ }
         function remove_min_elt(param){
           /*<<set.ml:199:29>>*/ if(! param)
-           /*<<set.ml:200:17>>*/ return  /*<<set.ml:200:17>>*/ caml_call1
-                   /*<<set.ml:200:17>>*/ (Stdlib[1], cst_Set_remove_min_elt) /*<<set.ml:202:51>>*/ ;
+           /*<<set.ml:200:17>>*/ return caml_call1
+                  (Stdlib[1], cst_Set_remove_min_elt) /*<<set.ml:202:51>>*/ ;
          var l = param[1];
          if(l){
           var r = param[3], v = param[2];
-           /*<<set.ml:202:25>>*/ return  /*<<set.ml:202:25>>*/ bal
-                   /*<<set.ml:202:25>>*/ ( /*<<set.ml:202:29>>*/ remove_min_elt
-                     /*<<set.ml:202:29>>*/ (l),
-                   v,
-                   r) /*<<set.ml:202:51>>*/ ;
+           /*<<set.ml:202:25>>*/ return bal
+                  ( /*<<set.ml:202:29>>*/ remove_min_elt(l), v, r) /*<<set.ml:202:51>>*/ ;
          }
          var r$0 = param[3];
-          /*<<set.ml:201:28>>*/ return r$0 /*<<set.ml:201:28>>*/ ;
+          /*<<set.ml:201:28>>*/ return r$0;
          /*<<set.ml:202:51>>*/ }
         function concat(t1, t2){
-          /*<<set.ml:219:6>>*/ if(! t1)
-           /*<<set.ml:220:22>>*/ return t2 /*<<set.ml:220:22>>*/ ;
-         if(! t2)  /*<<set.ml:221:22>>*/ return t1 /*<<set.ml:221:22>>*/ ;
-         var
-          _S_ =
-             /*<<set.ml:222:39>>*/  /*<<set.ml:222:39>>*/ remove_min_elt
-              /*<<set.ml:222:39>>*/ (t2);
-          /*<<set.ml:222:39>>*/ return  /*<<set.ml:222:39>>*/ join
-                  /*<<set.ml:222:39>>*/ (t1,
-                   /*<<set.ml:222:26>>*/ min_elt /*<<set.ml:222:26>>*/ (t2),
-                  _S_) /*<<set.ml:222:58>>*/ ;
-         /*<<set.ml:222:58>>*/ }
+          /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
+         if(! t2)  /*<<set.ml:221:22>>*/ return t1;
+         var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
+         return join(t1,  /*<<set.ml:222:26>>*/ min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
+        }
         function split(x, param){
-          /*<<set.ml:230:18>>*/ if(! param)
-           /*<<set.ml:232:10>>*/ return _a_ /*<<set.ml:232:10>>*/ ;
+          /*<<set.ml:230:18>>*/ if(! param)  /*<<set.ml:232:10>>*/ return _a_;
          var
           r = param[3],
           v = param[2],
           l = param[1],
-          c =
-             /*<<set.ml:234:18>>*/  /*<<set.ml:234:18>>*/ caml_call2
-              /*<<set.ml:234:18>>*/ (Ord[1], x, v);
+          c =  /*<<set.ml:234:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:235:10>>*/ if(0 === c)
-           /*<<set.ml:235:24>>*/ return [0, l, 1, r] /*<<set.ml:235:24>>*/ ;
+           /*<<set.ml:235:24>>*/ return [0, l, 1, r];
          if(0 <= c){
           var
-           match =
-              /*<<set.ml:239:33>>*/  /*<<set.ml:239:33>>*/ split
-               /*<<set.ml:239:33>>*/ (x, r),
+           match =  /*<<set.ml:239:33>>*/ split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
            /*<<set.ml:239:46>>*/ return [0,
-                   /*<<set.ml:239:47>>*/ join /*<<set.ml:239:47>>*/ (l, v, lr),
+                   /*<<set.ml:239:47>>*/ join(l, v, lr),
                   pres,
                   rr] /*<<set.ml:239:46>>*/ ;
          }
          var
-          match$0 =
-             /*<<set.ml:237:33>>*/  /*<<set.ml:237:33>>*/ split
-              /*<<set.ml:237:33>>*/ (x, l),
+          match$0 =  /*<<set.ml:237:33>>*/ split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
           /*<<set.ml:237:46>>*/ return [0,
                  ll,
                  pres$0,
-                  /*<<set.ml:237:57>>*/ join /*<<set.ml:237:57>>*/ (rl, v, r)] /*<<set.ml:237:46>>*/ ;
+                  /*<<set.ml:237:57>>*/ join(rl, v, r)] /*<<set.ml:237:46>>*/ ;
          /*<<set.ml:239:69>>*/ }
         var empty = 0;
         function is_empty(param){
           /*<<set.ml:245:19>>*/ return param ? 0 : 1 /*<<set.ml:245:54>>*/ ;
-         /*<<set.ml:245:54>>*/ }
+        }
         function mem(x, param){
          var param$0 = param;
           /*<<set.ml:247:16>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:248:17>>*/ return 0 /*<<set.ml:248:17>>*/ ;
+          if(! param$0)  /*<<set.ml:248:17>>*/ return 0;
           var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           c =
-              /*<<set.ml:250:18>>*/  /*<<set.ml:250:18>>*/ caml_call2
-               /*<<set.ml:250:18>>*/ (Ord[1], x, v),
+           c =  /*<<set.ml:250:18>>*/ caml_call2(Ord[1], x, v),
            _R_ = 0 === c ? 1 : 0;
           if(_R_) return _R_;
           var r$0 = 0 <= c ? r : l;
@@ -12071,50 +10062,28 @@
          }
          /*<<set.ml:251:49>>*/ }
         function remove(x, t){
-          /*<<set.ml:253:19>>*/ if(! t)
-           /*<<set.ml:254:17>>*/ return 0 /*<<set.ml:254:17>>*/ ;
+          /*<<set.ml:253:19>>*/ if(! t)  /*<<set.ml:254:17>>*/ return 0;
          var
           t2 = t[3],
           v = t[2],
           t1 = t[1],
-          c =
-             /*<<set.ml:256:18>>*/  /*<<set.ml:256:18>>*/ caml_call2
-              /*<<set.ml:256:18>>*/ (Ord[1], x, v);
+          c =  /*<<set.ml:256:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:257:10>>*/ if(0 === c){
-          if(! t1)  /*<<set.ml:210:22>>*/ return t2 /*<<set.ml:210:22>>*/ ;
-          if(! t2)  /*<<set.ml:211:22>>*/ return t1 /*<<set.ml:211:22>>*/ ;
-          var
-           _Q_ =
-              /*<<set.ml:212:38>>*/  /*<<set.ml:212:38>>*/ remove_min_elt
-               /*<<set.ml:212:38>>*/ (t2);
-           /*<<set.ml:212:38>>*/ return  /*<<set.ml:212:38>>*/ bal
-                   /*<<set.ml:212:38>>*/ (t1,
-                    /*<<set.ml:212:25>>*/ min_elt /*<<set.ml:212:25>>*/ (t2),
-                   _Q_) /*<<set.ml:266:29>>*/ ;
+          if(! t1)  /*<<set.ml:210:22>>*/ return t2;
+          if(! t2)  /*<<set.ml:211:22>>*/ return t1;
+          var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
+          return bal(t1,  /*<<set.ml:212:25>>*/ min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
          }
          if(0 <= c){
-          var
-           rr =
-              /*<<set.ml:264:23>>*/  /*<<set.ml:264:23>>*/ remove
-               /*<<set.ml:264:23>>*/ (x, t2);
-          return t2 === rr
-                  ? t
-                  :  /*<<set.ml:266:19>>*/ bal
-                     /*<<set.ml:266:19>>*/ (t1, v, rr) /*<<set.ml:266:29>>*/ ;
+          var rr =  /*<<set.ml:264:23>>*/ remove(x, t2);
+          return t2 === rr ? t :  /*<<set.ml:266:19>>*/ bal(t1, v, rr) /*<<set.ml:266:29>>*/ ;
          }
-         var
-          ll =
-             /*<<set.ml:260:23>>*/  /*<<set.ml:260:23>>*/ remove
-              /*<<set.ml:260:23>>*/ (x, t1);
-         return t1 === ll
-                 ? t
-                 :  /*<<set.ml:262:19>>*/ bal
-                    /*<<set.ml:262:19>>*/ (ll, v, t2) /*<<set.ml:266:29>>*/ ;
-         /*<<set.ml:266:29>>*/ }
+         var ll =  /*<<set.ml:260:23>>*/ remove(x, t1);
+         return t1 === ll ? t :  /*<<set.ml:262:19>>*/ bal(ll, v, t2) /*<<set.ml:266:29>>*/ ;
+        }
         function union(s1, s2){
-          /*<<set.ml:269:6>>*/ if(! s1)
-           /*<<set.ml:270:23>>*/ return s2 /*<<set.ml:270:23>>*/ ;
-         if(! s2)  /*<<set.ml:271:23>>*/ return s1 /*<<set.ml:271:23>>*/ ;
+          /*<<set.ml:269:6>>*/ if(! s1)  /*<<set.ml:270:23>>*/ return s2;
+         if(! s2)  /*<<set.ml:271:23>>*/ return s1;
          var
           h2 = s2[4],
           r2 = s2[3],
@@ -12126,187 +10095,111 @@
           l1 = s1[1];
          if(h2 <= h1){
           if(1 === h2)
-            /*<<set.ml:274:27>>*/ return  /*<<set.ml:274:27>>*/ add
-                    /*<<set.ml:274:27>>*/ (v2, s1) /*<<set.ml:282:15>>*/ ;
+            /*<<set.ml:274:27>>*/ return add(v2, s1) /*<<set.ml:282:15>>*/ ;
           var
-           match =
-              /*<<set.ml:275:32>>*/  /*<<set.ml:275:32>>*/ split
-               /*<<set.ml:275:32>>*/ (v1, s2),
+           match =  /*<<set.ml:275:32>>*/ split(v1, s2),
            r2$0 = match[3],
            l2$0 = match[1],
-           _O_ =
-              /*<<set.ml:276:36>>*/  /*<<set.ml:276:36>>*/ union
-               /*<<set.ml:276:36>>*/ (r1, r2$0);
-           /*<<set.ml:276:36>>*/ return  /*<<set.ml:276:36>>*/ join
-                   /*<<set.ml:276:36>>*/ ( /*<<set.ml:276:19>>*/ union
-                     /*<<set.ml:276:19>>*/ (l1, l2$0),
-                   v1,
-                   _O_) /*<<set.ml:282:15>>*/ ;
+           _O_ =  /*<<set.ml:276:36>>*/ union(r1, r2$0);
+          return join( /*<<set.ml:276:19>>*/ union(l1, l2$0), v1, _O_) /*<<set.ml:282:15>>*/ ;
          }
          if(1 === h1)
-           /*<<set.ml:279:27>>*/ return  /*<<set.ml:279:27>>*/ add
-                   /*<<set.ml:279:27>>*/ (v1, s2) /*<<set.ml:282:15>>*/ ;
+           /*<<set.ml:279:27>>*/ return add(v1, s2) /*<<set.ml:282:15>>*/ ;
          var
-          match$0 =
-             /*<<set.ml:280:32>>*/  /*<<set.ml:280:32>>*/ split
-              /*<<set.ml:280:32>>*/ (v2, s1),
+          match$0 =  /*<<set.ml:280:32>>*/ split(v2, s1),
           r1$0 = match$0[3],
           l1$0 = match$0[1],
-          _P_ =
-             /*<<set.ml:281:36>>*/  /*<<set.ml:281:36>>*/ union
-              /*<<set.ml:281:36>>*/ (r1$0, r2);
-          /*<<set.ml:281:36>>*/ return  /*<<set.ml:281:36>>*/ join
-                  /*<<set.ml:281:36>>*/ ( /*<<set.ml:281:19>>*/ union
-                    /*<<set.ml:281:19>>*/ (l1$0, l2),
-                  v2,
-                  _P_) /*<<set.ml:282:15>>*/ ;
-         /*<<set.ml:282:15>>*/ }
+          _P_ =  /*<<set.ml:281:36>>*/ union(r1$0, r2);
+         return join( /*<<set.ml:281:19>>*/ union(l1$0, l2), v2, _P_) /*<<set.ml:282:15>>*/ ;
+        }
         function inter(s1, s2){
-          /*<<set.ml:285:6>>*/ if(! s1)
-           /*<<set.ml:286:22>>*/ return 0 /*<<set.ml:286:22>>*/ ;
-         if(! s2)  /*<<set.ml:287:22>>*/ return 0 /*<<set.ml:287:22>>*/ ;
+          /*<<set.ml:285:6>>*/ if(! s1)  /*<<set.ml:286:22>>*/ return 0;
+         if(! s2)  /*<<set.ml:287:22>>*/ return 0;
          var
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
-          _L_ =
-             /*<<set.ml:289:16>>*/  /*<<set.ml:289:16>>*/ split
-              /*<<set.ml:289:16>>*/ (v1, s2),
+          _L_ =  /*<<set.ml:289:16>>*/ split(v1, s2),
           l2 = _L_[1];
          if(_L_[2]){
-          var
-           r2 = _L_[3],
-           _M_ =
-              /*<<set.ml:293:36>>*/  /*<<set.ml:293:36>>*/ inter
-               /*<<set.ml:293:36>>*/ (r1, r2);
-           /*<<set.ml:293:36>>*/ return  /*<<set.ml:293:36>>*/ join
-                   /*<<set.ml:293:36>>*/ ( /*<<set.ml:293:19>>*/ inter
-                     /*<<set.ml:293:19>>*/ (l1, l2),
-                   v1,
-                   _M_) /*<<set.ml:293:49>>*/ ;
+          var r2 = _L_[3], _M_ =  /*<<set.ml:293:36>>*/ inter(r1, r2);
+          return join( /*<<set.ml:293:19>>*/ inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
          }
-         var
-          r2$0 = _L_[3],
-          _N_ =
-             /*<<set.ml:291:35>>*/  /*<<set.ml:291:35>>*/ inter
-              /*<<set.ml:291:35>>*/ (r1, r2$0);
-          /*<<set.ml:291:35>>*/ return  /*<<set.ml:291:35>>*/ concat
-                  /*<<set.ml:291:35>>*/ ( /*<<set.ml:291:21>>*/ inter
-                    /*<<set.ml:291:21>>*/ (l1, l2),
-                  _N_) /*<<set.ml:293:49>>*/ ;
-         /*<<set.ml:293:49>>*/ }
+         var r2$0 = _L_[3], _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
+         return concat( /*<<set.ml:291:21>>*/ inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
+        }
         function split_bis(x, param){
           /*<<set.ml:303:22>>*/ if(! param)
            /*<<set.ml:305:10>>*/ return [0,
                   0,
                   function(param){
-                    /*<<set.ml:305:38>>*/ return 0 /*<<set.ml:305:38>>*/ ;
+                    /*<<set.ml:305:38>>*/ return 0;
                    /*<<set.ml:305:43>>*/ }] /*<<set.ml:305:10>>*/ ;
          var
           r = param[3],
           v = param[2],
           l = param[1],
-          c =
-             /*<<set.ml:307:18>>*/  /*<<set.ml:307:18>>*/ caml_call2
-              /*<<set.ml:307:18>>*/ (Ord[1], x, v);
-          /*<<set.ml:308:10>>*/ if(0 === c)
-           /*<<set.ml:308:24>>*/ return 0 /*<<set.ml:308:24>>*/ ;
+          c =  /*<<set.ml:307:18>>*/ caml_call2(Ord[1], x, v);
+          /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
          if(0 <= c){
-          var
-           match =
-              /*<<set.ml:314:18>>*/  /*<<set.ml:314:18>>*/ split_bis
-               /*<<set.ml:314:18>>*/ (x, r);
-          if(! match)  /*<<set.ml:315:23>>*/ return 0 /*<<set.ml:315:23>>*/ ;
+          var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
+          if(! match)  /*<<set.ml:315:23>>*/ return 0;
           var rr = match[2], lr = match[1];
            /*<<set.ml:316:35>>*/ return [0,
-                   /*<<set.ml:316:45>>*/ join /*<<set.ml:316:45>>*/ (l, v, lr),
+                   /*<<set.ml:316:45>>*/ join(l, v, lr),
                   rr] /*<<set.ml:316:35>>*/ ;
          }
-         var
-          match$0 =
-             /*<<set.ml:310:18>>*/  /*<<set.ml:310:18>>*/ split_bis
-              /*<<set.ml:310:18>>*/ (x, l);
-         if(! match$0)  /*<<set.ml:311:23>>*/ return 0 /*<<set.ml:311:23>>*/ ;
+         var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
+         if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
          var rl = match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
                    /*<<set.ml:312:60>>*/ return  /*<<set.ml:312:35>>*/ join
-                           /*<<set.ml:312:35>>*/ ( /*<<set.ml:312:65>>*/ rl
-                             /*<<set.ml:312:65>>*/ (0),
-                           v,
-                           r) /*<<set.ml:312:76>>*/ ;
-                  /*<<set.ml:312:76>>*/ }] /*<<set.ml:312:35>>*/ ;
+                          ( /*<<set.ml:312:65>>*/ rl(0), v, r) /*<<set.ml:312:76>>*/ ;
+                 }] /*<<set.ml:312:35>>*/ ;
          /*<<set.ml:316:61>>*/ }
         function disjoint(s1, s2){
          var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:319:6>>*/ for(;;){
           if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
-           if(s1$0 === s2$0)
-             /*<<set.ml:322:27>>*/ return 0 /*<<set.ml:322:27>>*/ ;
-           var
-            match =
-               /*<<set.ml:323:21>>*/  /*<<set.ml:323:21>>*/ split_bis
-                /*<<set.ml:323:21>>*/ (v1, s2$0);
-           if(! match)  /*<<set.ml:325:23>>*/ return 0 /*<<set.ml:325:23>>*/ ;
+           if(s1$0 === s2$0)  /*<<set.ml:322:27>>*/ return 0;
+           var match =  /*<<set.ml:323:21>>*/ split_bis(v1, s2$0);
+           if(! match)  /*<<set.ml:325:23>>*/ return 0;
            var
             r2 = match[2],
             l2 = match[1],
-            _K_ =
-               /*<<set.ml:324:34>>*/  /*<<set.ml:324:34>>*/ disjoint
-                /*<<set.ml:324:34>>*/ (l1, l2);
-            /*<<set.ml:324:34>>*/ if(! _K_)
-             /*<<set.ml:324:34>>*/ return _K_ /*<<set.ml:324:34>>*/ ;
-           var
-            s2$1 =
-               /*<<set.ml:324:64>>*/  /*<<set.ml:324:64>>*/ r2
-                /*<<set.ml:324:64>>*/ (0);
+            _K_ =  /*<<set.ml:324:34>>*/ disjoint(l1, l2);
+           if(! _K_) return _K_;
+           var s2$1 =  /*<<set.ml:324:64>>*/ r2(0);
            s1$0 = r1;
            s2$0 = s2$1;
            continue;
           }
-           /*<<set.ml:320:35>>*/ return 1 /*<<set.ml:320:35>>*/ ;
+           /*<<set.ml:320:35>>*/ return 1;
          }
          /*<<set.ml:325:28>>*/ }
         function diff(s1, s2){
-          /*<<set.ml:328:6>>*/ if(! s1)
-           /*<<set.ml:329:22>>*/ return 0 /*<<set.ml:329:22>>*/ ;
-         if(! s2)  /*<<set.ml:330:23>>*/ return s1 /*<<set.ml:330:23>>*/ ;
+          /*<<set.ml:328:6>>*/ if(! s1)  /*<<set.ml:329:22>>*/ return 0;
+         if(! s2)  /*<<set.ml:330:23>>*/ return s1;
          var
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1],
-          _H_ =
-             /*<<set.ml:332:16>>*/  /*<<set.ml:332:16>>*/ split
-              /*<<set.ml:332:16>>*/ (v1, s2),
+          _H_ =  /*<<set.ml:332:16>>*/ split(v1, s2),
           l2 = _H_[1];
          if(_H_[2]){
-          var
-           r2 = _H_[3],
-           _I_ =
-              /*<<set.ml:336:34>>*/  /*<<set.ml:336:34>>*/ diff
-               /*<<set.ml:336:34>>*/ (r1, r2);
-           /*<<set.ml:336:34>>*/ return  /*<<set.ml:336:34>>*/ concat
-                   /*<<set.ml:336:34>>*/ ( /*<<set.ml:336:21>>*/ diff
-                     /*<<set.ml:336:21>>*/ (l1, l2),
-                   _I_) /*<<set.ml:336:46>>*/ ;
+          var r2 = _H_[3], _I_ =  /*<<set.ml:336:34>>*/ diff(r1, r2);
+          return concat( /*<<set.ml:336:21>>*/ diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
          }
-         var
-          r2$0 = _H_[3],
-          _J_ =
-             /*<<set.ml:334:35>>*/  /*<<set.ml:334:35>>*/ diff
-              /*<<set.ml:334:35>>*/ (r1, r2$0);
-          /*<<set.ml:334:35>>*/ return  /*<<set.ml:334:35>>*/ join
-                  /*<<set.ml:334:35>>*/ ( /*<<set.ml:334:19>>*/ diff
-                    /*<<set.ml:334:19>>*/ (l1, l2),
-                  v1,
-                  _J_) /*<<set.ml:336:46>>*/ ;
-         /*<<set.ml:336:46>>*/ }
+         var r2$0 = _H_[3], _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
+         return join( /*<<set.ml:334:19>>*/ diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
+        }
         function cons_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<set.ml:341:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:342:17>>*/ return e$0 /*<<set.ml:342:17>>*/ ;
+          if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
           var
            r = s$0[3],
            v = s$0[2],
@@ -12318,17 +10211,13 @@
          /*<<set.ml:343:52>>*/ }
         function compare(s1, s2){
          var
-          e2$2 =
-             /*<<set.ml:357:37>>*/  /*<<set.ml:357:37>>*/ cons_enum
-              /*<<set.ml:357:37>>*/ (s2, 0),
-          e1$2 =
-             /*<<set.ml:357:18>>*/  /*<<set.ml:357:18>>*/ cons_enum
-              /*<<set.ml:357:18>>*/ (s1, 0),
+          e2$2 =  /*<<set.ml:357:37>>*/ cons_enum(s2, 0),
+          e1$2 =  /*<<set.ml:357:18>>*/ cons_enum(s1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<set.ml:346:8>>*/ for(;;){
           if(! e1) return e2 ? -1 : 0 /*<<set.ml:357:55>>*/ ;
-          if(! e2)  /*<<set.ml:349:20>>*/ return 1 /*<<set.ml:349:20>>*/ ;
+          if(! e2)  /*<<set.ml:349:20>>*/ return 1;
           var
            e2$0 = e2[3],
            r2 = e2[2],
@@ -12336,34 +10225,23 @@
            e1$0 = e1[3],
            r1 = e1[2],
            v1 = e1[1],
-           c =
-              /*<<set.ml:351:18>>*/  /*<<set.ml:351:18>>*/ caml_call2
-               /*<<set.ml:351:18>>*/ (Ord[1], v1, v2);
-           /*<<set.ml:352:10>>*/ if(0 !== c)
-            /*<<set.ml:353:15>>*/ return c /*<<set.ml:353:15>>*/ ;
+           c =  /*<<set.ml:351:18>>*/ caml_call2(Ord[1], v1, v2);
+           /*<<set.ml:352:10>>*/ if(0 !== c)  /*<<set.ml:353:15>>*/ return c;
           var
-           e2$1 =
-              /*<<set.ml:354:45>>*/  /*<<set.ml:354:45>>*/ cons_enum
-               /*<<set.ml:354:45>>*/ (r2, e2$0),
-           e1$1 =
-              /*<<set.ml:354:27>>*/  /*<<set.ml:354:27>>*/ cons_enum
-               /*<<set.ml:354:27>>*/ (r1, e1$0);
+           e2$1 =  /*<<set.ml:354:45>>*/ cons_enum(r2, e2$0),
+           e1$1 =  /*<<set.ml:354:27>>*/ cons_enum(r1, e1$0);
           e1 = e1$1;
           e2 = e2$1;
          }
          /*<<set.ml:357:55>>*/ }
         function equal(s1, s2){
-          /*<<set.ml:360:6>>*/ return 0
-                 ===
-                   /*<<set.ml:360:6>>*/ compare /*<<set.ml:360:6>>*/ (s1, s2)
-                 ? 1
-                 : 0;
+          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
          var s1$0 = s1, s2$0 = s2;
           /*<<set.ml:363:6>>*/ for(;;){
-          if(! s1$0)  /*<<set.ml:365:10>>*/ return 1 /*<<set.ml:365:10>>*/ ;
-          if(! s2$0)  /*<<set.ml:367:10>>*/ return 0 /*<<set.ml:367:10>>*/ ;
+          if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
+          if(! s2$0)  /*<<set.ml:367:10>>*/ return 0;
           var
            r2 = s2$0[3],
            v2 = s2$0[2],
@@ -12371,35 +10249,21 @@
            r1 = s1$0[3],
            v1 = s1$0[2],
            l1 = s1$0[1],
-           c =
-              /*<<set.ml:369:18>>*/  /*<<set.ml:369:18>>*/ caml_call2
-               /*<<set.ml:369:18>>*/ (Ord[1], v1, v2);
+           c =  /*<<set.ml:369:18>>*/ caml_call2(Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
-           var
-            _E_ =
-               /*<<set.ml:371:12>>*/  /*<<set.ml:371:12>>*/ subset
-                /*<<set.ml:371:12>>*/ (l1, l2);
-            /*<<set.ml:371:12>>*/ if(! _E_)
-             /*<<set.ml:371:12>>*/ return _E_ /*<<set.ml:371:12>>*/ ;
+           var _E_ =  /*<<set.ml:371:12>>*/ subset(l1, l2);
+           if(! _E_) return _E_;
            s1$0 = r1;
            s2$0 = r2;
           }
           else if(0 <= c){
-           var
-            _F_ =
-               /*<<set.ml:375:12>>*/  /*<<set.ml:375:12>>*/ subset
-                /*<<set.ml:375:12>>*/ ([0, 0, v1, r1, 0], r2);
-            /*<<set.ml:375:12>>*/ if(! _F_)
-             /*<<set.ml:375:12>>*/ return _F_ /*<<set.ml:375:12>>*/ ;
+           var _F_ =  /*<<set.ml:375:12>>*/ subset([0, 0, v1, r1, 0], r2);
+           if(! _F_) return _F_;
            s1$0 = l1;
           }
           else{
-           var
-            _G_ =
-               /*<<set.ml:373:12>>*/  /*<<set.ml:373:12>>*/ subset
-                /*<<set.ml:373:12>>*/ ([0, l1, v1, 0, 0], l2);
-            /*<<set.ml:373:12>>*/ if(! _G_)
-             /*<<set.ml:373:12>>*/ return _G_ /*<<set.ml:373:12>>*/ ;
+           var _G_ =  /*<<set.ml:373:12>>*/ subset([0, l1, v1, 0, 0], l2);
+           if(! _G_) return _G_;
            s1$0 = r1;
           }
          }
@@ -12407,31 +10271,24 @@
         function iter(f, param){
          var param$0 = param;
           /*<<set.ml:377:17>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:378:17>>*/ return 0 /*<<set.ml:378:17>>*/ ;
+          if(! param$0)  /*<<set.ml:378:17>>*/ return 0;
           var r = param$0[3], v = param$0[2], l = param$0[1];
-           /*<<set.ml:379:25>>*/  /*<<set.ml:379:25>>*/ iter
-            /*<<set.ml:379:25>>*/ (f, l);
-           /*<<set.ml:379:35>>*/  /*<<set.ml:379:35>>*/ caml_call1
-            /*<<set.ml:379:35>>*/ (f, v);
+           /*<<set.ml:379:25>>*/ iter(f, l);
+           /*<<set.ml:379:35>>*/ caml_call1(f, v);
           param$0 = r;
          }
          /*<<set.ml:379:48>>*/ }
         function fold(f, s, accu){
          var s$0 = s, accu$0 = accu;
           /*<<set.ml:382:6>>*/ for(;;){
-          if(! s$0)
-            /*<<set.ml:383:17>>*/ return accu$0 /*<<set.ml:383:17>>*/ ;
+          if(! s$0)  /*<<set.ml:383:17>>*/ return accu$0;
           var
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
            accu$1 =
-              /*<<set.ml:384:34>>*/  /*<<set.ml:384:34>>*/ caml_call2
-               /*<<set.ml:384:34>>*/ (f,
-               v,
-                /*<<set.ml:384:39>>*/ fold
-                 /*<<set.ml:384:39>>*/ (f, l, accu$0));
+              /*<<set.ml:384:34>>*/ caml_call2
+              (f, v,  /*<<set.ml:384:39>>*/ fold(f, l, accu$0));
           s$0 = r;
           accu$0 = accu$1;
          }
@@ -12439,134 +10296,91 @@
         function for_all(p, param){
          var param$0 = param;
           /*<<set.ml:386:20>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:387:17>>*/ return 1 /*<<set.ml:387:17>>*/ ;
+          if(! param$0)  /*<<set.ml:387:17>>*/ return 1;
           var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           _B_ =
-              /*<<set.ml:388:25>>*/  /*<<set.ml:388:25>>*/ caml_call1
-               /*<<set.ml:388:25>>*/ (p, v);
-           /*<<set.ml:388:25>>*/ if(_B_){
-           var
-            _C_ =
-               /*<<set.ml:388:32>>*/  /*<<set.ml:388:32>>*/ for_all
-                /*<<set.ml:388:32>>*/ (p, l);
-            /*<<set.ml:388:32>>*/ if(_C_){param$0 = r; continue;}
+           _B_ =  /*<<set.ml:388:25>>*/ caml_call1(p, v);
+          if(_B_){
+           var _C_ =  /*<<set.ml:388:32>>*/ for_all(p, l);
+           if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
           else
            var _D_ = _B_;
-           /*<<set.ml:388:32>>*/ return _D_ /*<<set.ml:388:32>>*/ ;
+          return _D_;
          }
          /*<<set.ml:388:58>>*/ }
         function exists(p, param){
          var param$0 = param;
           /*<<set.ml:390:19>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:391:17>>*/ return 0 /*<<set.ml:391:17>>*/ ;
+          if(! param$0)  /*<<set.ml:391:17>>*/ return 0;
           var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           _y_ =
-              /*<<set.ml:392:25>>*/  /*<<set.ml:392:25>>*/ caml_call1
-               /*<<set.ml:392:25>>*/ (p, v);
-           /*<<set.ml:392:25>>*/ if(_y_)
+           _y_ =  /*<<set.ml:392:25>>*/ caml_call1(p, v);
+          if(_y_)
            var _z_ = _y_;
           else{
-           var
-            _A_ =
-               /*<<set.ml:392:32>>*/  /*<<set.ml:392:32>>*/ exists
-                /*<<set.ml:392:32>>*/ (p, l);
-            /*<<set.ml:392:32>>*/ if(! _A_){param$0 = r; continue;}
+           var _A_ =  /*<<set.ml:392:32>>*/ exists(p, l);
+           if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-           /*<<set.ml:392:25>>*/ return _z_ /*<<set.ml:392:25>>*/ ;
+           /*<<set.ml:392:25>>*/ return _z_;
          }
          /*<<set.ml:392:56>>*/ }
         function filter(p, t){
-          /*<<set.ml:394:19>>*/ if(! t)
-           /*<<set.ml:395:17>>*/ return 0 /*<<set.ml:395:17>>*/ ;
+          /*<<set.ml:394:19>>*/ if(! t)  /*<<set.ml:395:17>>*/ return 0;
          var
           r = t[3],
           v = t[2],
           l = t[1],
-          l$0 =
-             /*<<set.ml:398:19>>*/  /*<<set.ml:398:19>>*/ filter
-              /*<<set.ml:398:19>>*/ (p, l),
-          pv =
-             /*<<set.ml:399:19>>*/  /*<<set.ml:399:19>>*/ caml_call1
-              /*<<set.ml:399:19>>*/ (p, v),
-          r$0 =
-             /*<<set.ml:400:19>>*/  /*<<set.ml:400:19>>*/ filter
-              /*<<set.ml:400:19>>*/ (p, r);
+          l$0 =  /*<<set.ml:398:19>>*/ filter(p, l),
+          pv =  /*<<set.ml:399:19>>*/ caml_call1(p, v),
+          r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
-           /*<<set.ml:403:15>>*/ return  /*<<set.ml:403:15>>*/ concat
-                   /*<<set.ml:403:15>>*/ (l$0, r$0) /*<<set.ml:403:27>>*/ ;
-         if(l === l$0 && r === r$0)
-           /*<<set.ml:402:35>>*/ return t /*<<set.ml:402:35>>*/ ;
-          /*<<set.ml:402:42>>*/ return  /*<<set.ml:402:42>>*/ join
-                  /*<<set.ml:402:42>>*/ (l$0, v, r$0) /*<<set.ml:403:27>>*/ ;
-         /*<<set.ml:403:27>>*/ }
+           /*<<set.ml:403:15>>*/ return concat(l$0, r$0) /*<<set.ml:403:27>>*/ ;
+         if(l === l$0 && r === r$0)  /*<<set.ml:402:35>>*/ return t;
+          /*<<set.ml:402:42>>*/ return join(l$0, v, r$0) /*<<set.ml:403:27>>*/ ;
+        }
         function partition(p, param){
-          /*<<set.ml:405:22>>*/ if(! param)
-           /*<<set.ml:406:17>>*/ return _b_ /*<<set.ml:406:17>>*/ ;
+          /*<<set.ml:405:22>>*/ if(! param)  /*<<set.ml:406:17>>*/ return _b_;
          var
           r = param[3],
           v = param[2],
           l = param[1],
-          match =
-             /*<<set.ml:409:25>>*/  /*<<set.ml:409:25>>*/ partition
-              /*<<set.ml:409:25>>*/ (p, l),
+          match =  /*<<set.ml:409:25>>*/ partition(p, l),
           lf = match[2],
           lt = match[1],
-          pv =
-             /*<<set.ml:410:19>>*/  /*<<set.ml:410:19>>*/ caml_call1
-              /*<<set.ml:410:19>>*/ (p, v),
-          match$0 =
-             /*<<set.ml:411:25>>*/  /*<<set.ml:411:25>>*/ partition
-              /*<<set.ml:411:25>>*/ (p, r),
+          pv =  /*<<set.ml:410:19>>*/ caml_call1(p, v),
+          match$0 =  /*<<set.ml:411:25>>*/ partition(p, r),
           rf = match$0[2],
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
-          var
-           _w_ =
-              /*<<set.ml:413:30>>*/  /*<<set.ml:413:30>>*/ concat
-               /*<<set.ml:413:30>>*/ (lf, rf);
+          var _w_ =  /*<<set.ml:413:30>>*/ concat(lf, rf);
            /*<<set.ml:413:15>>*/ return [0,
-                   /*<<set.ml:413:16>>*/ join
-                    /*<<set.ml:413:16>>*/ (lt, v, rt),
+                   /*<<set.ml:413:16>>*/ join(lt, v, rt),
                   _w_] /*<<set.ml:413:15>>*/ ;
          }
-         var
-          _x_ =
-             /*<<set.ml:414:30>>*/  /*<<set.ml:414:30>>*/ join
-              /*<<set.ml:414:30>>*/ (lf, v, rf);
+         var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
           /*<<set.ml:414:15>>*/ return [0,
-                  /*<<set.ml:414:16>>*/ concat /*<<set.ml:414:16>>*/ (lt, rt),
+                  /*<<set.ml:414:16>>*/ concat(lt, rt),
                  _x_] /*<<set.ml:414:15>>*/ ;
          /*<<set.ml:414:43>>*/ }
         function cardinal(param){
-          /*<<set.ml:416:23>>*/ if(! param)
-           /*<<set.ml:417:17>>*/ return 0 /*<<set.ml:417:17>>*/ ;
+          /*<<set.ml:416:23>>*/ if(! param)  /*<<set.ml:417:17>>*/ return 0;
          var
           r = param[3],
           l = param[1],
-          _v_ =
-             /*<<set.ml:418:39>>*/  /*<<set.ml:418:39>>*/ cardinal
-              /*<<set.ml:418:39>>*/ (r);
-         return ( /*<<set.ml:418:22>>*/ cardinal /*<<set.ml:418:22>>*/ (l) + 1
-                | 0)
-                + _v_
-                | 0;
+          _v_ =  /*<<set.ml:418:39>>*/ cardinal(r);
+         return ( /*<<set.ml:418:22>>*/ cardinal(l) + 1 | 0) + _v_ | 0;
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
          var accu$0 = accu, param$0 = param;
           /*<<set.ml:420:25>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:421:17>>*/ return accu$0 /*<<set.ml:421:17>>*/ ;
+          if(! param$0)  /*<<set.ml:421:17>>*/ return accu$0;
           var
            r = param$0[3],
            v = param$0[2],
@@ -12574,31 +10388,26 @@
            accu$1 =
               /*<<set.ml:422:38>>*/ [0,
               v,
-               /*<<set.ml:422:44>>*/ elements_aux
-                /*<<set.ml:422:44>>*/ (accu$0, r)];
+               /*<<set.ml:422:44>>*/ elements_aux(accu$0, r)];
           accu$0 = accu$1;
           param$0 = l;
          }
          /*<<set.ml:422:66>>*/ }
         function elements(s){
-          /*<<set.ml:425:6>>*/ return  /*<<set.ml:425:6>>*/ elements_aux
-                  /*<<set.ml:425:6>>*/ (0, s) /*<<set.ml:425:23>>*/ ;
-         /*<<set.ml:425:23>>*/ }
+          /*<<set.ml:425:6>>*/ return elements_aux(0, s) /*<<set.ml:425:23>>*/ ;
+        }
         function find(x, param){
          var param$0 = param;
           /*<<set.ml:431:17>>*/ for(;;){
           if(! param$0)
-            /*<<set.ml:432:17>>*/ throw  /*<<set.ml:432:17>>*/ caml_maybe_attach_backtrace
-                   /*<<set.ml:432:17>>*/ (Stdlib[8], 1);
+            /*<<set.ml:432:17>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           c =
-              /*<<set.ml:434:18>>*/  /*<<set.ml:434:18>>*/ caml_call2
-               /*<<set.ml:434:18>>*/ (Ord[1], x, v);
-           /*<<set.ml:435:10>>*/ if(0 === c)
-            /*<<set.ml:435:24>>*/ return v /*<<set.ml:435:24>>*/ ;
+           c =  /*<<set.ml:434:18>>*/ caml_call2(Ord[1], x, v);
+           /*<<set.ml:435:10>>*/ if(0 === c)  /*<<set.ml:435:24>>*/ return v;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -12607,22 +10416,15 @@
          var param$1 = param$0;
           /*<<set.ml:447:23>>*/ for(;;){
           if(! param$1)
-            /*<<set.ml:449:10>>*/ throw  /*<<set.ml:449:10>>*/ caml_maybe_attach_backtrace
-                   /*<<set.ml:449:10>>*/ (Stdlib[8], 1);
+            /*<<set.ml:449:10>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:451:13>>*/ if
-           ( /*<<set.ml:451:13>>*/ caml_call1 /*<<set.ml:451:13>>*/ (f, v0$1)){
+           /*<<set.ml:451:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, param = l$0;
             /*<<set.ml:438:27>>*/ for(;;){
-            if(! param)
-              /*<<set.ml:440:10>>*/ return v0 /*<<set.ml:440:10>>*/ ;
+            if(! param)  /*<<set.ml:440:10>>*/ return v0;
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:442:13>>*/ if
-             ( /*<<set.ml:442:13>>*/ caml_call1
-                /*<<set.ml:442:13>>*/ (f, v0$0)){
-             v0 = v0$0;
-             param = l;
-            }
+             /*<<set.ml:442:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = l;}
             else
              param = r;
            }
@@ -12634,22 +10436,14 @@
         function find_first_opt(f, param$0){
          var param$1 = param$0;
           /*<<set.ml:465:27>>*/ for(;;){
-          if(! param$1)
-            /*<<set.ml:467:10>>*/ return 0 /*<<set.ml:467:10>>*/ ;
+          if(! param$1)  /*<<set.ml:467:10>>*/ return 0;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:469:13>>*/ if
-           ( /*<<set.ml:469:13>>*/ caml_call1 /*<<set.ml:469:13>>*/ (f, v0$1)){
+           /*<<set.ml:469:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, param = l$0;
             /*<<set.ml:456:31>>*/ for(;;){
-            if(! param)
-              /*<<set.ml:458:10>>*/ return [0, v0] /*<<set.ml:458:10>>*/ ;
+            if(! param)  /*<<set.ml:458:10>>*/ return [0, v0];
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:460:13>>*/ if
-             ( /*<<set.ml:460:13>>*/ caml_call1
-                /*<<set.ml:460:13>>*/ (f, v0$0)){
-             v0 = v0$0;
-             param = l;
-            }
+             /*<<set.ml:460:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = l;}
             else
              param = r;
            }
@@ -12662,22 +10456,15 @@
          var param$1 = param$0;
           /*<<set.ml:483:22>>*/ for(;;){
           if(! param$1)
-            /*<<set.ml:485:10>>*/ throw  /*<<set.ml:485:10>>*/ caml_maybe_attach_backtrace
-                   /*<<set.ml:485:10>>*/ (Stdlib[8], 1);
+            /*<<set.ml:485:10>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:487:13>>*/ if
-           ( /*<<set.ml:487:13>>*/ caml_call1 /*<<set.ml:487:13>>*/ (f, v0$1)){
+           /*<<set.ml:487:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, param = r$0;
             /*<<set.ml:474:26>>*/ for(;;){
-            if(! param)
-              /*<<set.ml:476:10>>*/ return v0 /*<<set.ml:476:10>>*/ ;
+            if(! param)  /*<<set.ml:476:10>>*/ return v0;
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:478:13>>*/ if
-             ( /*<<set.ml:478:13>>*/ caml_call1
-                /*<<set.ml:478:13>>*/ (f, v0$0)){
-             v0 = v0$0;
-             param = r;
-            }
+             /*<<set.ml:478:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = r;}
             else
              param = l;
            }
@@ -12689,22 +10476,14 @@
         function find_last_opt(f, param$0){
          var param$1 = param$0;
           /*<<set.ml:501:26>>*/ for(;;){
-          if(! param$1)
-            /*<<set.ml:503:10>>*/ return 0 /*<<set.ml:503:10>>*/ ;
+          if(! param$1)  /*<<set.ml:503:10>>*/ return 0;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:505:13>>*/ if
-           ( /*<<set.ml:505:13>>*/ caml_call1 /*<<set.ml:505:13>>*/ (f, v0$1)){
+           /*<<set.ml:505:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, param = r$0;
             /*<<set.ml:492:30>>*/ for(;;){
-            if(! param)
-              /*<<set.ml:494:10>>*/ return [0, v0] /*<<set.ml:494:10>>*/ ;
+            if(! param)  /*<<set.ml:494:10>>*/ return [0, v0];
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:496:13>>*/ if
-             ( /*<<set.ml:496:13>>*/ caml_call1
-                /*<<set.ml:496:13>>*/ (f, v0$0)){
-             v0 = v0$0;
-             param = r;
-            }
+             /*<<set.ml:496:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = r;}
             else
              param = l;
            }
@@ -12716,17 +10495,14 @@
         function find_opt(x, param){
          var param$0 = param;
           /*<<set.ml:510:21>>*/ for(;;){
-          if(! param$0)
-            /*<<set.ml:511:17>>*/ return 0 /*<<set.ml:511:17>>*/ ;
+          if(! param$0)  /*<<set.ml:511:17>>*/ return 0;
           var
            r = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           c =
-              /*<<set.ml:513:18>>*/  /*<<set.ml:513:18>>*/ caml_call2
-               /*<<set.ml:513:18>>*/ (Ord[1], x, v);
+           c =  /*<<set.ml:513:18>>*/ caml_call2(Ord[1], x, v);
            /*<<set.ml:514:10>>*/ if(0 === c)
-            /*<<set.ml:514:24>>*/ return [0, v] /*<<set.ml:514:24>>*/ ;
+            /*<<set.ml:514:24>>*/ return [0, v];
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -12735,133 +10511,83 @@
          a:
          {
           if(0 !== l){
-           var
-            _u_ =
-               /*<<set.ml:521:35>>*/  /*<<set.ml:521:35>>*/ max_elt
-                /*<<set.ml:521:35>>*/ (l);
-            /*<<set.ml:521:23>>*/ if
-            (0
-             <=
-               /*<<set.ml:521:23>>*/ caml_call2
-                /*<<set.ml:521:23>>*/ (Ord[1], _u_, v))
-            break a;
+           var _u_ =  /*<<set.ml:521:35>>*/ max_elt(l);
+            /*<<set.ml:521:23>>*/ if(0 <= caml_call2(Ord[1], _u_, v)) break a;
           }
           if(0 !== r){
-           var
-            _t_ =
-               /*<<set.ml:522:37>>*/  /*<<set.ml:522:37>>*/ min_elt
-                /*<<set.ml:522:37>>*/ (r);
-            /*<<set.ml:522:23>>*/ if
-            (0
-             <=
-               /*<<set.ml:522:23>>*/ caml_call2
-                /*<<set.ml:522:23>>*/ (Ord[1], v, _t_))
-            break a;
+           var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
+            /*<<set.ml:522:23>>*/ if(0 <= caml_call2(Ord[1], v, _t_)) break a;
           }
-           /*<<set.ml:523:11>>*/ return  /*<<set.ml:523:11>>*/ join
-                   /*<<set.ml:523:11>>*/ (l, v, r) /*<<set.ml:524:28>>*/ ;
+           /*<<set.ml:523:11>>*/ return join(l, v, r) /*<<set.ml:524:28>>*/ ;
          }
-          /*<<set.ml:524:19>>*/ return  /*<<set.ml:524:19>>*/ union
-                  /*<<set.ml:524:19>>*/ (l,
-                   /*<<set.ml:524:19>>*/ add /*<<set.ml:524:19>>*/ (v, r)) /*<<set.ml:524:28>>*/ ;
-         /*<<set.ml:524:28>>*/ }
+          /*<<set.ml:524:19>>*/ return union(l, add(v, r)) /*<<set.ml:524:28>>*/ ;
+        }
         function map(f, t){
-          /*<<set.ml:526:16>>*/ if(! t)
-           /*<<set.ml:527:17>>*/ return 0 /*<<set.ml:527:17>>*/ ;
+          /*<<set.ml:526:16>>*/ if(! t)  /*<<set.ml:527:17>>*/ return 0;
          var
           r = t[3],
           v = t[2],
           l = t[1],
-          l$0 =
-             /*<<set.ml:530:18>>*/  /*<<set.ml:530:18>>*/ map
-              /*<<set.ml:530:18>>*/ (f, l),
-          v$0 =
-             /*<<set.ml:531:18>>*/  /*<<set.ml:531:18>>*/ caml_call1
-              /*<<set.ml:531:18>>*/ (f, v),
-          r$0 =
-             /*<<set.ml:532:18>>*/  /*<<set.ml:532:18>>*/ map
-              /*<<set.ml:532:18>>*/ (f, r);
+          l$0 =  /*<<set.ml:530:18>>*/ map(f, l),
+          v$0 =  /*<<set.ml:531:18>>*/ caml_call1(f, v),
+          r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
          if(l === l$0 && v === v$0 && r === r$0)
-           /*<<set.ml:533:47>>*/ return t /*<<set.ml:533:47>>*/ ;
-          /*<<set.ml:534:14>>*/ return  /*<<set.ml:534:14>>*/ try_join
-                  /*<<set.ml:534:14>>*/ (l$0, v$0, r$0) /*<<set.ml:534:31>>*/ ;
-         /*<<set.ml:534:31>>*/ }
+           /*<<set.ml:533:47>>*/ return t;
+          /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0) /*<<set.ml:534:31>>*/ ;
+        }
         function filter_map(f, t){
-          /*<<set.ml:542:23>>*/ if(! t)
-           /*<<set.ml:543:17>>*/ return 0 /*<<set.ml:543:17>>*/ ;
+          /*<<set.ml:542:23>>*/ if(! t)  /*<<set.ml:543:17>>*/ return 0;
          var
           r = t[3],
           v = t[2],
           l = t[1],
-          t1 =
-             /*<<set.ml:546:18>>*/  /*<<set.ml:546:18>>*/ filter_map
-              /*<<set.ml:546:18>>*/ (f, l),
-          v$0 =
-             /*<<set.ml:547:18>>*/  /*<<set.ml:547:18>>*/ caml_call1
-              /*<<set.ml:547:18>>*/ (f, v),
-          t2 =
-             /*<<set.ml:548:18>>*/  /*<<set.ml:548:18>>*/ filter_map
-              /*<<set.ml:548:18>>*/ (f, r);
+          t1 =  /*<<set.ml:546:18>>*/ filter_map(f, l),
+          v$0 =  /*<<set.ml:547:18>>*/ caml_call1(f, v),
+          t2 =  /*<<set.ml:548:18>>*/ filter_map(f, r);
           /*<<set.ml:549:9>>*/ if(v$0){
           var v$1 = v$0[1];
           if(l === t1 && v === v$1 && r === t2)
-            /*<<set.ml:551:52>>*/ return t /*<<set.ml:551:52>>*/ ;
-           /*<<set.ml:552:19>>*/ return  /*<<set.ml:552:19>>*/ try_join
-                   /*<<set.ml:552:19>>*/ (t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
+            /*<<set.ml:551:52>>*/ return t;
+           /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
          }
-         if(! t1)  /*<<set.ml:538:22>>*/ return t2 /*<<set.ml:538:22>>*/ ;
-         if(! t2)  /*<<set.ml:539:22>>*/ return t1 /*<<set.ml:539:22>>*/ ;
-         var
-          _s_ =
-             /*<<set.ml:540:43>>*/  /*<<set.ml:540:43>>*/ remove_min_elt
-              /*<<set.ml:540:43>>*/ (t2);
-          /*<<set.ml:540:43>>*/ return  /*<<set.ml:540:43>>*/ try_join
-                  /*<<set.ml:540:43>>*/ (t1,
-                   /*<<set.ml:540:30>>*/ min_elt /*<<set.ml:540:30>>*/ (t2),
-                  _s_) /*<<set.ml:555:12>>*/ ;
-         /*<<set.ml:555:12>>*/ }
+         if(! t1)  /*<<set.ml:538:22>>*/ return t2;
+         if(! t2)  /*<<set.ml:539:22>>*/ return t1;
+         var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
+         return try_join(t1,  /*<<set.ml:540:30>>*/ min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
+        }
         function of_list(l){
           /*<<set.ml:581:6>>*/ if(! l) return empty;
          var _n_ = l[2], x0 = l[1];
          if(! _n_)
-           /*<<set.ml:583:16>>*/ return  /*<<set.ml:583:16>>*/ singleton
-                   /*<<set.ml:583:16>>*/ (x0) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:583:16>>*/ return singleton(x0) /*<<set.ml:588:58>>*/ ;
          var _o_ = _n_[2], x1 = _n_[1];
          if(! _o_)
-           /*<<set.ml:584:27>>*/ return  /*<<set.ml:584:27>>*/ add
-                   /*<<set.ml:584:27>>*/ (x1,
-                    /*<<set.ml:584:27>>*/ singleton /*<<set.ml:584:27>>*/ (x0)) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:584:27>>*/ return add(x1, singleton(x0)) /*<<set.ml:588:58>>*/ ;
          var _p_ = _o_[2], x2 = _o_[1];
          if(! _p_)
-           /*<<set.ml:585:31>>*/ return  /*<<set.ml:585:31>>*/ add
-                   /*<<set.ml:585:31>>*/ (x2,
-                    /*<<set.ml:585:31>>*/ add
-                     /*<<set.ml:585:31>>*/ (x1,
-                      /*<<set.ml:585:39>>*/ singleton /*<<set.ml:585:39>>*/ (x0))) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:585:31>>*/ return add
+                  (x2, add(x1,  /*<<set.ml:585:39>>*/ singleton(x0))) /*<<set.ml:588:58>>*/ ;
          var _q_ = _p_[2], x3 = _p_[1];
          if(! _q_)
-           /*<<set.ml:586:35>>*/ return  /*<<set.ml:586:35>>*/ add
-                   /*<<set.ml:586:35>>*/ (x3,
-                    /*<<set.ml:586:35>>*/ add
-                     /*<<set.ml:586:35>>*/ (x2,
+           /*<<set.ml:586:35>>*/ return add
+                  (x3,
+                   add
+                    (x2,
                       /*<<set.ml:586:43>>*/ add
-                       /*<<set.ml:586:43>>*/ (x1,
-                        /*<<set.ml:586:51>>*/ singleton /*<<set.ml:586:51>>*/ (x0)))) /*<<set.ml:588:58>>*/ ;
+                      (x1,  /*<<set.ml:586:51>>*/ singleton(x0)))) /*<<set.ml:588:58>>*/ ;
          if(_q_[2]){
           var
-           l$0 =
-              /*<<set.ml:588:28>>*/  /*<<set.ml:588:28>>*/ caml_call2
-               /*<<set.ml:588:28>>*/ (Stdlib_List[62], Ord[1], l),
+           l$0 =  /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[62], Ord[1], l),
            sub =
              function(n, l){
                /*<<set.ml:559:8>>*/ if(3 >= n >>> 0)
                switch(n){
                  case 0:
-                   /*<<set.ml:560:18>>*/ return [0, 0, l] /*<<set.ml:560:18>>*/ ;
+                   /*<<set.ml:560:18>>*/ return [0, 0, l];
                  case 1:
                   if(l){
                    var l$3 = l[2], x0 = l[1];
-                    /*<<set.ml:561:24>>*/ return [0, [0, 0, x0, 0, 1], l$3] /*<<set.ml:561:24>>*/ ;
+                    /*<<set.ml:561:24>>*/ return [0, [0, 0, x0, 0, 1], l$3];
                   }
                   break;
                  case 2:
@@ -12871,7 +10597,7 @@
                     var l$4 = match$1[2], x1 = match$1[1], x0$0 = l[1];
                      /*<<set.ml:563:12>>*/ return [0,
                             [0, [0, 0, x0$0, 0, 1], x1, 0, 2],
-                            l$4] /*<<set.ml:563:12>>*/ ;
+                            l$4];
                    }
                   }
                   break;
@@ -12888,91 +10614,75 @@
                       x0$1 = l[1];
                       /*<<set.ml:565:12>>*/ return [0,
                              [0, [0, 0, x0$1, 0, 1], x1$0, [0, 0, x2, 0, 1], 2],
-                             l$5] /*<<set.ml:565:12>>*/ ;
+                             l$5];
                     }
                    }
                   }
                }
               var
                nl = n / 2 | 0,
-               match =
-                  /*<<set.ml:569:24>>*/  /*<<set.ml:569:24>>*/ sub
-                   /*<<set.ml:569:24>>*/ (nl, l),
+               match =  /*<<set.ml:569:24>>*/ sub(nl, l),
                l$0 = match[2],
                left = match[1];
                /*<<set.ml:570:10>>*/ if(! l$0)
-                /*<<set.ml:571:18>>*/ throw  /*<<set.ml:571:18>>*/ caml_maybe_attach_backtrace
-                       /*<<set.ml:571:18>>*/ ([0, Assert_failure, _c_], 1);
+                /*<<set.ml:571:18>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _c_], 1);
               var
                l$1 = l$0[2],
                mid = l$0[1],
-               match$0 =
-                  /*<<set.ml:573:27>>*/  /*<<set.ml:573:27>>*/ sub
-                   /*<<set.ml:573:27>>*/ ((n - nl | 0) - 1 | 0, l$1),
+               match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
                l$2 = match$0[2],
                right = match$0[1];
-               /*<<set.ml:574:12>>*/ return [0,
-                       /*<<set.ml:574:12>>*/ create
-                        /*<<set.ml:574:12>>*/ (left, mid, right),
-                      l$2] /*<<set.ml:574:12>>*/ ;
+               /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2];
               /*<<set.ml:574:36>>*/ };
-           /*<<set.ml:576:10>>*/ return  /*<<set.ml:576:10>>*/ sub
-                    /*<<set.ml:576:10>>*/ ( /*<<set.ml:576:15>>*/ caml_call1
-                      /*<<set.ml:576:15>>*/ (Stdlib_List[1], l$0),
+           /*<<set.ml:576:10>>*/ return sub
+                   ( /*<<set.ml:576:15>>*/ caml_call1(Stdlib_List[1], l$0),
                     l$0)
                   [1] /*<<set.ml:576:10>>*/ ;
          }
          var x4 = _q_[1];
-          /*<<set.ml:587:39>>*/ return  /*<<set.ml:587:39>>*/ add
-                  /*<<set.ml:587:39>>*/ (x4,
-                   /*<<set.ml:587:39>>*/ add
-                    /*<<set.ml:587:39>>*/ (x3,
+          /*<<set.ml:587:39>>*/ return add
+                 (x4,
+                  add
+                   (x3,
                      /*<<set.ml:587:47>>*/ add
-                      /*<<set.ml:587:47>>*/ (x2,
+                     (x2,
                        /*<<set.ml:587:55>>*/ add
-                        /*<<set.ml:587:55>>*/ (x1,
-                         /*<<set.ml:587:63>>*/ singleton /*<<set.ml:587:63>>*/ (x0))))) /*<<set.ml:588:58>>*/ ;
-         /*<<set.ml:588:58>>*/ }
+                       (x1,  /*<<set.ml:587:63>>*/ singleton(x0))))) /*<<set.ml:588:58>>*/ ;
+        }
         function add_seq(i, m){
-          /*<<set.ml:591:6>>*/ return  /*<<set.ml:591:6>>*/ caml_call3
-                  /*<<set.ml:591:6>>*/ (Stdlib_Seq[5],
+          /*<<set.ml:591:6>>*/ return caml_call3
+                 (Stdlib_Seq[5],
                   function(s, x){
-                    /*<<set.ml:591:32>>*/ return  /*<<set.ml:591:32>>*/ add
-                            /*<<set.ml:591:32>>*/ (x, s) /*<<set.ml:591:39>>*/ ;
-                   /*<<set.ml:591:39>>*/ },
+                    /*<<set.ml:591:32>>*/ return add(x, s) /*<<set.ml:591:39>>*/ ;
+                  },
                   m,
                   i) /*<<set.ml:591:44>>*/ ;
-         /*<<set.ml:591:44>>*/ }
+        }
         function of_seq(i){
           /*<<set.ml:593:19>>*/ return  /*<<set.ml:590:16>>*/ add_seq
-                  /*<<set.ml:590:16>>*/ (i, empty) /*<<set.ml:593:34>>*/ ;
-         /*<<set.ml:593:34>>*/ }
+                 (i, empty) /*<<set.ml:593:34>>*/ ;
+        }
         function seq_of_enum(c, param){
-          /*<<set.ml:595:32>>*/ if(! c)
-           /*<<set.ml:596:15>>*/ return 0 /*<<set.ml:596:15>>*/ ;
+          /*<<set.ml:595:32>>*/ if(! c)  /*<<set.ml:596:15>>*/ return 0;
          var
           rest = c[3],
           t = c[2],
           x = c[1],
-          _l_ =
-             /*<<set.ml:597:55>>*/  /*<<set.ml:597:55>>*/ cons_enum
-              /*<<set.ml:597:55>>*/ (t, rest);
+          _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
           /*<<set.ml:597:29>>*/ return [0,
                  x,
                  function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}] /*<<set.ml:597:29>>*/ ;
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
-         var
-          _j_ =
-             /*<<set.ml:599:32>>*/  /*<<set.ml:599:32>>*/ cons_enum
-              /*<<set.ml:599:32>>*/ (c, 0);
-          /*<<set.ml:599:32>>*/ return function(_k_){
+         var _j_ =  /*<<set.ml:599:32>>*/ cons_enum(c, 0);
+         return function(_k_){
            /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:32>>*/ ;
          /*<<set.ml:599:49>>*/ }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<set.ml:602:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:603:17>>*/ return e$0 /*<<set.ml:603:17>>*/ ;
+          if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
           var
            r = s$0[3],
            v = s$0[2],
@@ -12983,25 +10693,19 @@
          }
          /*<<set.ml:604:52>>*/ }
         function rev_seq_of_enum(c, param){
-          /*<<set.ml:606:36>>*/ if(! c)
-           /*<<set.ml:607:15>>*/ return 0 /*<<set.ml:607:15>>*/ ;
+          /*<<set.ml:606:36>>*/ if(! c)  /*<<set.ml:607:15>>*/ return 0;
          var
           rest = c[3],
           t = c[2],
           x = c[1],
-          _h_ =
-             /*<<set.ml:608:59>>*/  /*<<set.ml:608:59>>*/ snoc_enum
-              /*<<set.ml:608:59>>*/ (t, rest);
+          _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
           /*<<set.ml:608:29>>*/ return [0,
                  x,
                  function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}] /*<<set.ml:608:29>>*/ ;
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
-         var
-          _f_ =
-             /*<<set.ml:610:40>>*/  /*<<set.ml:610:40>>*/ snoc_enum
-              /*<<set.ml:610:40>>*/ (c, 0);
-          /*<<set.ml:610:40>>*/ return function(_g_){
+         var _f_ =  /*<<set.ml:610:40>>*/ snoc_enum(c, 0);
+         return function(_g_){
            /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);} /*<<set.ml:610:40>>*/ ;
          /*<<set.ml:610:57>>*/ }
         function to_seq_from(low, s){
@@ -13016,9 +10720,7 @@
              r = s$0[3],
              v = s$0[2],
              l = s$0[1],
-             n =
-                /*<<set.ml:616:24>>*/  /*<<set.ml:616:24>>*/ caml_call2
-                 /*<<set.ml:616:24>>*/ (Ord[1], v, low);
+             n =  /*<<set.ml:616:24>>*/ caml_call2(Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
              var c$0 =  /*<<set.ml:619:31>>*/ [0, v, r, c];
@@ -13092,10 +10794,9 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_Map_bal$3 =  /*<<?>>*/ "Map.bal",
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    cst_Map_bal$3 = "Map.bal",
+    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
             ? f(a0)
@@ -13129,21 +10830,16 @@
       [0,
        function(Ord){
         function height(param){
-          /*<<map.ml:81:17>>*/ if(! param)
-           /*<<map.ml:82:17>>*/ return 0 /*<<map.ml:82:17>>*/ ;
+          /*<<map.ml:81:17>>*/ if(! param)  /*<<map.ml:82:17>>*/ return 0;
          var h = param[5];
-          /*<<map.ml:83:20>>*/ return h /*<<map.ml:83:20>>*/ ;
+          /*<<map.ml:83:20>>*/ return h;
          /*<<map.ml:83:21>>*/ }
         function create(l, x, d, r){
          var
-          hl =
-             /*<<map.ml:86:15>>*/  /*<<map.ml:86:15>>*/ height
-              /*<<map.ml:86:15>>*/ (l),
-          hr =
-             /*<<map.ml:86:33>>*/  /*<<map.ml:86:33>>*/ height
-              /*<<map.ml:86:33>>*/ (r),
+          hl =  /*<<map.ml:86:15>>*/ height(l),
+          hr =  /*<<map.ml:86:33>>*/ height(r),
           _K_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-          /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_] /*<<map.ml:87:10>>*/ ;
+          /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_];
          /*<<map.ml:87:65>>*/ }
         function singleton(x, d){
           /*<<map.ml:89:24>>*/ return [0, 0, x, d, 0, 1] /*<<map.ml:89:28>>*/ ;
@@ -13153,134 +10849,92 @@
           /*<<map.ml:93:6>>*/ if(r) var h$0 = r[5], hr = h$0; else var hr = 0;
          if((hr + 2 | 0) < hl){
           if(! l)
-            /*<<map.ml:96:19>>*/ return  /*<<map.ml:96:19>>*/ caml_call1
-                    /*<<map.ml:96:19>>*/ (Stdlib[1], cst_Map_bal$0) /*<<map.ml:119:67>>*/ ;
+            /*<<map.ml:96:19>>*/ return caml_call1(Stdlib[1], cst_Map_bal$0) /*<<map.ml:119:67>>*/ ;
           var
            lr = l[4],
            ld = l[3],
            lv = l[2],
            ll = l[1],
-           _F_ =
-              /*<<map.ml:98:28>>*/  /*<<map.ml:98:28>>*/ height
-               /*<<map.ml:98:28>>*/ (lr);
-          if(_F_ <=  /*<<map.ml:98:15>>*/ height /*<<map.ml:98:15>>*/ (ll))
-            /*<<map.ml:99:30>>*/ return  /*<<map.ml:99:30>>*/ create
-                    /*<<map.ml:99:30>>*/ (ll,
-                    lv,
-                    ld,
-                     /*<<map.ml:99:30>>*/ create
-                      /*<<map.ml:99:30>>*/ (lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
+           _F_ =  /*<<map.ml:98:28>>*/ height(lr);
+          if(_F_ <=  /*<<map.ml:98:15>>*/ height(ll))
+            /*<<map.ml:99:30>>*/ return create
+                   (ll, lv, ld, create(lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
           if(! lr)
-            /*<<map.ml:102:25>>*/ return  /*<<map.ml:102:25>>*/ caml_call1
-                    /*<<map.ml:102:25>>*/ (Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
+            /*<<map.ml:102:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
           var
            lrr = lr[4],
            lrd = lr[3],
            lrv = lr[2],
            lrl = lr[1],
-           _G_ =
-              /*<<map.ml:104:55>>*/  /*<<map.ml:104:55>>*/ create
-               /*<<map.ml:104:55>>*/ (lrr, x, d, r);
-           /*<<map.ml:104:55>>*/ return  /*<<map.ml:104:55>>*/ create
-                   /*<<map.ml:104:55>>*/ ( /*<<map.ml:104:25>>*/ create
-                     /*<<map.ml:104:25>>*/ (ll, lv, ld, lrl),
+           _G_ =  /*<<map.ml:104:55>>*/ create(lrr, x, d, r);
+          return create
+                  ( /*<<map.ml:104:25>>*/ create(ll, lv, ld, lrl),
                    lrv,
                    lrd,
                    _G_) /*<<map.ml:119:67>>*/ ;
          }
          if((hl + 2 | 0) >= hr){
           var _J_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-           /*<<map.ml:119:12>>*/ return [0, l, x, d, r, _J_] /*<<map.ml:119:12>>*/ ;
+           /*<<map.ml:119:12>>*/ return [0, l, x, d, r, _J_];
          }
          if(! r)
-           /*<<map.ml:108:19>>*/ return  /*<<map.ml:108:19>>*/ caml_call1
-                   /*<<map.ml:108:19>>*/ (Stdlib[1], cst_Map_bal$2) /*<<map.ml:119:67>>*/ ;
+           /*<<map.ml:108:19>>*/ return caml_call1(Stdlib[1], cst_Map_bal$2) /*<<map.ml:119:67>>*/ ;
          var
           rr = r[4],
           rd = r[3],
           rv = r[2],
           rl = r[1],
-          _H_ =
-             /*<<map.ml:110:28>>*/  /*<<map.ml:110:28>>*/ height
-              /*<<map.ml:110:28>>*/ (rl);
-         if(_H_ <=  /*<<map.ml:110:15>>*/ height /*<<map.ml:110:15>>*/ (rr))
-           /*<<map.ml:111:14>>*/ return  /*<<map.ml:111:14>>*/ create
-                   /*<<map.ml:111:14>>*/ ( /*<<map.ml:111:21>>*/ create
-                     /*<<map.ml:111:21>>*/ (l, x, d, rl),
-                   rv,
-                   rd,
-                   rr) /*<<map.ml:119:67>>*/ ;
+          _H_ =  /*<<map.ml:110:28>>*/ height(rl);
+         if(_H_ <=  /*<<map.ml:110:15>>*/ height(rr))
+           /*<<map.ml:111:14>>*/ return create
+                  ( /*<<map.ml:111:21>>*/ create(l, x, d, rl), rv, rd, rr) /*<<map.ml:119:67>>*/ ;
          if(! rl)
-           /*<<map.ml:114:25>>*/ return  /*<<map.ml:114:25>>*/ caml_call1
-                   /*<<map.ml:114:25>>*/ (Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
+           /*<<map.ml:114:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
          var
           rlr = rl[4],
           rld = rl[3],
           rlv = rl[2],
           rll = rl[1],
-          _I_ =
-             /*<<map.ml:116:52>>*/  /*<<map.ml:116:52>>*/ create
-              /*<<map.ml:116:52>>*/ (rlr, rv, rd, rr);
-          /*<<map.ml:116:52>>*/ return  /*<<map.ml:116:52>>*/ create
-                  /*<<map.ml:116:52>>*/ ( /*<<map.ml:116:25>>*/ create
-                    /*<<map.ml:116:25>>*/ (l, x, d, rll),
-                  rlv,
-                  rld,
-                  _I_) /*<<map.ml:119:67>>*/ ;
-         /*<<map.ml:119:67>>*/ }
+          _I_ =  /*<<map.ml:116:52>>*/ create(rlr, rv, rd, rr);
+         return create
+                 ( /*<<map.ml:116:25>>*/ create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
+        }
         var empty =  /*<<map.ml:91:12>>*/ 0;
         function is_empty(param){
           /*<<map.ml:123:19>>*/ return param ? 0 : 1 /*<<map.ml:123:54>>*/ ;
-         /*<<map.ml:123:54>>*/ }
+        }
         function add(x, data, m){
           /*<<map.ml:125:16>>*/ if(! m)
-           /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1] /*<<map.ml:127:14>>*/ ;
+           /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1];
          var
           h = m[5],
           r = m[4],
           d = m[3],
           v = m[2],
           l = m[1],
-          c =
-             /*<<map.ml:129:18>>*/  /*<<map.ml:129:18>>*/ caml_call2
-              /*<<map.ml:129:18>>*/ (Ord[1], x, v);
+          c =  /*<<map.ml:129:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:130:10>>*/ if(0 === c)
           return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:137:47>>*/ ;
          if(0 <= c){
-          var
-           rr =
-              /*<<map.ml:136:21>>*/  /*<<map.ml:136:21>>*/ add
-               /*<<map.ml:136:21>>*/ (x, data, r);
-          return r === rr
-                  ? m
-                  :  /*<<map.ml:137:35>>*/ bal
-                     /*<<map.ml:137:35>>*/ (l, v, d, rr) /*<<map.ml:137:47>>*/ ;
+          var rr =  /*<<map.ml:136:21>>*/ add(x, data, r);
+          return r === rr ? m :  /*<<map.ml:137:35>>*/ bal(l, v, d, rr) /*<<map.ml:137:47>>*/ ;
          }
-         var
-          ll =
-             /*<<map.ml:133:21>>*/  /*<<map.ml:133:21>>*/ add
-              /*<<map.ml:133:21>>*/ (x, data, l);
-         return l === ll
-                 ? m
-                 :  /*<<map.ml:134:35>>*/ bal
-                    /*<<map.ml:134:35>>*/ (ll, v, d, r) /*<<map.ml:137:47>>*/ ;
-         /*<<map.ml:137:47>>*/ }
+         var ll =  /*<<map.ml:133:21>>*/ add(x, data, l);
+         return l === ll ? m :  /*<<map.ml:134:35>>*/ bal(ll, v, d, r) /*<<map.ml:137:47>>*/ ;
+        }
         function find(x, param){
          var param$0 = param;
           /*<<map.ml:139:17>>*/ for(;;){
           if(! param$0)
-            /*<<map.ml:141:10>>*/ throw  /*<<map.ml:141:10>>*/ caml_maybe_attach_backtrace
-                   /*<<map.ml:141:10>>*/ (Stdlib[8], 1);
+            /*<<map.ml:141:10>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           c =
-              /*<<map.ml:143:18>>*/  /*<<map.ml:143:18>>*/ caml_call2
-               /*<<map.ml:143:18>>*/ (Ord[1], x, v);
-           /*<<map.ml:144:10>>*/ if(0 === c)
-            /*<<map.ml:144:24>>*/ return d /*<<map.ml:144:24>>*/ ;
+           c =  /*<<map.ml:143:18>>*/ caml_call2(Ord[1], x, v);
+           /*<<map.ml:144:10>>*/ if(0 === c)  /*<<map.ml:144:24>>*/ return d;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -13289,23 +10943,19 @@
          var param$1 = param$0;
           /*<<map.ml:156:23>>*/ for(;;){
           if(! param$1)
-            /*<<map.ml:158:10>>*/ throw  /*<<map.ml:158:10>>*/ caml_maybe_attach_backtrace
-                   /*<<map.ml:158:10>>*/ (Stdlib[8], 1);
+            /*<<map.ml:158:10>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:160:13>>*/ if
-           ( /*<<map.ml:160:13>>*/ caml_call1 /*<<map.ml:160:13>>*/ (f, v0$1)){
+           /*<<map.ml:160:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
             /*<<map.ml:147:27>>*/ for(;;){
-            if(! param)
-              /*<<map.ml:149:10>>*/ return [0, v0, d0] /*<<map.ml:149:10>>*/ ;
+            if(! param)  /*<<map.ml:149:10>>*/ return [0, v0, d0];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:151:13>>*/ if
-             ( /*<<map.ml:151:13>>*/ caml_call1
-                /*<<map.ml:151:13>>*/ (f, v0$0)){
+             /*<<map.ml:151:13>>*/ if(caml_call1(f, v0$0)){
              v0 = v0$0;
              d0 = d0$0;
              param = l;
@@ -13321,23 +10971,18 @@
         function find_first_opt(f, param$0){
          var param$1 = param$0;
           /*<<map.ml:174:27>>*/ for(;;){
-          if(! param$1)
-            /*<<map.ml:176:10>>*/ return 0 /*<<map.ml:176:10>>*/ ;
+          if(! param$1)  /*<<map.ml:176:10>>*/ return 0;
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:178:13>>*/ if
-           ( /*<<map.ml:178:13>>*/ caml_call1 /*<<map.ml:178:13>>*/ (f, v0$1)){
+           /*<<map.ml:178:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
             /*<<map.ml:165:31>>*/ for(;;){
-            if(! param)
-              /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]] /*<<map.ml:167:10>>*/ ;
+            if(! param)  /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:169:13>>*/ if
-             ( /*<<map.ml:169:13>>*/ caml_call1
-                /*<<map.ml:169:13>>*/ (f, v0$0)){
+             /*<<map.ml:169:13>>*/ if(caml_call1(f, v0$0)){
              v0 = v0$0;
              d0 = d0$0;
              param = l;
@@ -13354,23 +10999,19 @@
          var param$1 = param$0;
           /*<<map.ml:192:22>>*/ for(;;){
           if(! param$1)
-            /*<<map.ml:194:10>>*/ throw  /*<<map.ml:194:10>>*/ caml_maybe_attach_backtrace
-                   /*<<map.ml:194:10>>*/ (Stdlib[8], 1);
+            /*<<map.ml:194:10>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:196:13>>*/ if
-           ( /*<<map.ml:196:13>>*/ caml_call1 /*<<map.ml:196:13>>*/ (f, v0$1)){
+           /*<<map.ml:196:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
             /*<<map.ml:183:26>>*/ for(;;){
-            if(! param)
-              /*<<map.ml:185:10>>*/ return [0, v0, d0] /*<<map.ml:185:10>>*/ ;
+            if(! param)  /*<<map.ml:185:10>>*/ return [0, v0, d0];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:187:13>>*/ if
-             ( /*<<map.ml:187:13>>*/ caml_call1
-                /*<<map.ml:187:13>>*/ (f, v0$0)){
+             /*<<map.ml:187:13>>*/ if(caml_call1(f, v0$0)){
              v0 = v0$0;
              d0 = d0$0;
              param = r;
@@ -13386,23 +11027,18 @@
         function find_last_opt(f, param$0){
          var param$1 = param$0;
           /*<<map.ml:210:26>>*/ for(;;){
-          if(! param$1)
-            /*<<map.ml:212:10>>*/ return 0 /*<<map.ml:212:10>>*/ ;
+          if(! param$1)  /*<<map.ml:212:10>>*/ return 0;
           var
            r$0 = param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:214:13>>*/ if
-           ( /*<<map.ml:214:13>>*/ caml_call1 /*<<map.ml:214:13>>*/ (f, v0$1)){
+           /*<<map.ml:214:13>>*/ if(caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
             /*<<map.ml:201:30>>*/ for(;;){
-            if(! param)
-              /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]] /*<<map.ml:203:10>>*/ ;
+            if(! param)  /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:205:13>>*/ if
-             ( /*<<map.ml:205:13>>*/ caml_call1
-                /*<<map.ml:205:13>>*/ (f, v0$0)){
+             /*<<map.ml:205:13>>*/ if(caml_call1(f, v0$0)){
              v0 = v0$0;
              d0 = d0$0;
              param = r;
@@ -13418,18 +11054,15 @@
         function find_opt(x, param){
          var param$0 = param;
           /*<<map.ml:219:21>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:221:10>>*/ return 0 /*<<map.ml:221:10>>*/ ;
+          if(! param$0)  /*<<map.ml:221:10>>*/ return 0;
           var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           c =
-              /*<<map.ml:223:18>>*/  /*<<map.ml:223:18>>*/ caml_call2
-               /*<<map.ml:223:18>>*/ (Ord[1], x, v);
+           c =  /*<<map.ml:223:18>>*/ caml_call2(Ord[1], x, v);
            /*<<map.ml:224:10>>*/ if(0 === c)
-            /*<<map.ml:224:24>>*/ return [0, d] /*<<map.ml:224:24>>*/ ;
+            /*<<map.ml:224:24>>*/ return [0, d];
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
          }
@@ -13437,15 +11070,12 @@
         function mem(x, param){
          var param$0 = param;
           /*<<map.ml:227:16>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:229:10>>*/ return 0 /*<<map.ml:229:10>>*/ ;
+          if(! param$0)  /*<<map.ml:229:10>>*/ return 0;
           var
            r = param$0[4],
            v = param$0[2],
            l = param$0[1],
-           c =
-              /*<<map.ml:231:18>>*/  /*<<map.ml:231:18>>*/ caml_call2
-               /*<<map.ml:231:18>>*/ (Ord[1], x, v),
+           c =  /*<<map.ml:231:18>>*/ caml_call2(Ord[1], x, v),
            _E_ = 0 === c ? 1 : 0;
           if(_E_) return _E_;
           var r$0 = 0 <= c ? r : l;
@@ -13456,12 +11086,12 @@
          var param$0 = param;
           /*<<map.ml:234:26>>*/ for(;;){
           if(! param$0)
-            /*<<map.ml:235:17>>*/ throw  /*<<map.ml:235:17>>*/ caml_maybe_attach_backtrace
-                   /*<<map.ml:235:17>>*/ (Stdlib[8], 1);
+            /*<<map.ml:235:17>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var l = param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:236:32>>*/ return [0, v, d] /*<<map.ml:236:32>>*/ ;
+            /*<<map.ml:236:32>>*/ return [0, v, d];
           }
           param$0 = l;
          }
@@ -13469,12 +11099,11 @@
         function min_binding_opt(param){
          var param$0 = param;
           /*<<map.ml:239:30>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:240:17>>*/ return 0 /*<<map.ml:240:17>>*/ ;
+          if(! param$0)  /*<<map.ml:240:17>>*/ return 0;
           var l = param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:241:32>>*/ return [0, [0, v, d]] /*<<map.ml:241:32>>*/ ;
+            /*<<map.ml:241:32>>*/ return [0, [0, v, d]];
           }
           param$0 = l;
          }
@@ -13483,11 +11112,11 @@
          var param$0 = param;
           /*<<map.ml:244:26>>*/ for(;;){
           if(! param$0)
-            /*<<map.ml:245:17>>*/ throw  /*<<map.ml:245:17>>*/ caml_maybe_attach_backtrace
-                   /*<<map.ml:245:17>>*/ (Stdlib[8], 1);
+            /*<<map.ml:245:17>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:246:32>>*/ return [0, v, d] /*<<map.ml:246:32>>*/ ;
+            /*<<map.ml:246:32>>*/ return [0, v, d];
           }
           var r = param$0[4];
           param$0 = r;
@@ -13496,11 +11125,10 @@
         function max_binding_opt(param){
          var param$0 = param;
           /*<<map.ml:249:30>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:250:17>>*/ return 0 /*<<map.ml:250:17>>*/ ;
+          if(! param$0)  /*<<map.ml:250:17>>*/ return 0;
           if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
-            /*<<map.ml:251:32>>*/ return [0, [0, v, d]] /*<<map.ml:251:32>>*/ ;
+            /*<<map.ml:251:32>>*/ return [0, [0, v, d]];
           }
           var r = param$0[4];
           param$0 = r;
@@ -13508,81 +11136,49 @@
          /*<<map.ml:252:37>>*/ }
         function remove_min_binding(param){
           /*<<map.ml:254:33>>*/ if(! param)
-           /*<<map.ml:255:17>>*/ return  /*<<map.ml:255:17>>*/ caml_call1
-                   /*<<map.ml:255:17>>*/ (Stdlib[1], cst_Map_remove_min_elt) /*<<map.ml:257:61>>*/ ;
+           /*<<map.ml:255:17>>*/ return caml_call1
+                  (Stdlib[1], cst_Map_remove_min_elt) /*<<map.ml:257:61>>*/ ;
          var l = param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
-           /*<<map.ml:257:29>>*/ return  /*<<map.ml:257:29>>*/ bal
-                   /*<<map.ml:257:29>>*/ ( /*<<map.ml:257:33>>*/ remove_min_binding
-                     /*<<map.ml:257:33>>*/ (l),
-                   v,
-                   d,
-                   r) /*<<map.ml:257:61>>*/ ;
+           /*<<map.ml:257:29>>*/ return bal
+                  ( /*<<map.ml:257:33>>*/ remove_min_binding(l), v, d, r) /*<<map.ml:257:61>>*/ ;
          }
          var r$0 = param[4];
-          /*<<map.ml:256:29>>*/ return r$0 /*<<map.ml:256:29>>*/ ;
+          /*<<map.ml:256:29>>*/ return r$0;
          /*<<map.ml:257:61>>*/ }
         function _d_(t1, t2){
-          /*<<map.ml:260:6>>*/ if(! t1)
-           /*<<map.ml:261:22>>*/ return t2 /*<<map.ml:261:22>>*/ ;
-         if(! t2)  /*<<map.ml:262:22>>*/ return t1 /*<<map.ml:262:22>>*/ ;
+          /*<<map.ml:260:6>>*/ if(! t1)  /*<<map.ml:261:22>>*/ return t2;
+         if(! t2)  /*<<map.ml:262:22>>*/ return t1;
          var
-          match =
-             /*<<map.ml:264:23>>*/  /*<<map.ml:264:23>>*/ min_binding
-              /*<<map.ml:264:23>>*/ (t2),
+          match =  /*<<map.ml:264:23>>*/ min_binding(t2),
           d = match[2],
           x = match[1];
-          /*<<map.ml:265:21>>*/ return  /*<<map.ml:265:21>>*/ bal
-                  /*<<map.ml:265:21>>*/ (t1,
-                  x,
-                  d,
-                   /*<<map.ml:265:21>>*/ remove_min_binding
-                    /*<<map.ml:265:21>>*/ (t2)) /*<<map.ml:265:44>>*/ ;
-         /*<<map.ml:265:44>>*/ }
+          /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
+        }
         function remove(x, m){
-          /*<<map.ml:267:19>>*/ if(! m)
-           /*<<map.ml:269:10>>*/ return 0 /*<<map.ml:269:10>>*/ ;
+          /*<<map.ml:267:19>>*/ if(! m)  /*<<map.ml:269:10>>*/ return 0;
          var
           r = m[4],
           d = m[3],
           v = m[2],
           l = m[1],
-          c =
-             /*<<map.ml:271:18>>*/  /*<<map.ml:271:18>>*/ caml_call2
-              /*<<map.ml:271:18>>*/ (Ord[1], x, v);
+          c =  /*<<map.ml:271:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
-           /*<<map.ml:272:24>>*/ return  /*<<map.ml:272:24>>*/ _d_
-                   /*<<map.ml:272:24>>*/ (l, r) /*<<map.ml:276:70>>*/ ;
+           /*<<map.ml:272:24>>*/ return _d_(l, r) /*<<map.ml:276:70>>*/ ;
          if(0 <= c){
-          var
-           rr =
-              /*<<map.ml:276:21>>*/  /*<<map.ml:276:21>>*/ remove
-               /*<<map.ml:276:21>>*/ (x, r);
-          return r === rr
-                  ? m
-                  :  /*<<map.ml:276:58>>*/ bal
-                     /*<<map.ml:276:58>>*/ (l, v, d, rr) /*<<map.ml:276:70>>*/ ;
+          var rr =  /*<<map.ml:276:21>>*/ remove(x, r);
+          return r === rr ? m :  /*<<map.ml:276:58>>*/ bal(l, v, d, rr) /*<<map.ml:276:70>>*/ ;
          }
-         var
-          ll =
-             /*<<map.ml:274:21>>*/  /*<<map.ml:274:21>>*/ remove
-              /*<<map.ml:274:21>>*/ (x, l);
-         return l === ll
-                 ? m
-                 :  /*<<map.ml:274:58>>*/ bal
-                    /*<<map.ml:274:58>>*/ (ll, v, d, r) /*<<map.ml:276:70>>*/ ;
-         /*<<map.ml:276:70>>*/ }
+         var ll =  /*<<map.ml:274:21>>*/ remove(x, l);
+         return l === ll ? m :  /*<<map.ml:274:58>>*/ bal(ll, v, d, r) /*<<map.ml:276:70>>*/ ;
+        }
         function update(x, f, m){
           /*<<map.ml:278:19>>*/ if(! m){
-          var
-           match$0 =
-              /*<<map.ml:280:22>>*/  /*<<map.ml:280:22>>*/ caml_call1
-               /*<<map.ml:280:22>>*/ (f, 0);
-          if(! match$0)
-            /*<<map.ml:281:20>>*/ return 0 /*<<map.ml:281:20>>*/ ;
+          var match$0 =  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
+          if(! match$0)  /*<<map.ml:281:20>>*/ return 0;
           var data$0 = match$0[1];
-           /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1] /*<<map.ml:282:29>>*/ ;
+           /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1];
          }
          var
           h = m[5],
@@ -13590,119 +11186,78 @@
           d = m[3],
           v = m[2],
           l = m[1],
-          c =
-             /*<<map.ml:285:18>>*/  /*<<map.ml:285:18>>*/ caml_call2
-              /*<<map.ml:285:18>>*/ (Ord[1], x, v);
+          c =  /*<<map.ml:285:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:286:10>>*/ if(0 === c){
-          var
-           match =
-              /*<<map.ml:287:18>>*/  /*<<map.ml:287:18>>*/ caml_call1
-               /*<<map.ml:287:18>>*/ (f, [0, d]);
+          var match =  /*<<map.ml:287:18>>*/ caml_call1(f, [0, d]);
           if(! match)
-            /*<<map.ml:288:22>>*/ return  /*<<map.ml:288:22>>*/ _d_
-                    /*<<map.ml:288:22>>*/ (l, r) /*<<map.ml:296:47>>*/ ;
+            /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:296:47>>*/ ;
           var data = match[1];
-          return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:296:47>>*/ ;
+          return d === data ? m : [0, l, x, data, r, h];
          }
          if(0 <= c){
-          var
-           rr =
-              /*<<map.ml:295:21>>*/  /*<<map.ml:295:21>>*/ update
-               /*<<map.ml:295:21>>*/ (x, f, r);
-          return r === rr
-                  ? m
-                  :  /*<<map.ml:296:35>>*/ bal
-                     /*<<map.ml:296:35>>*/ (l, v, d, rr) /*<<map.ml:296:47>>*/ ;
+          var rr =  /*<<map.ml:295:21>>*/ update(x, f, r);
+          return r === rr ? m :  /*<<map.ml:296:35>>*/ bal(l, v, d, rr) /*<<map.ml:296:47>>*/ ;
          }
-         var
-          ll =
-             /*<<map.ml:292:21>>*/  /*<<map.ml:292:21>>*/ update
-              /*<<map.ml:292:21>>*/ (x, f, l);
-         return l === ll
-                 ? m
-                 :  /*<<map.ml:293:35>>*/ bal
-                    /*<<map.ml:293:35>>*/ (ll, v, d, r) /*<<map.ml:296:47>>*/ ;
-         /*<<map.ml:296:47>>*/ }
+         var ll =  /*<<map.ml:292:21>>*/ update(x, f, l);
+         return l === ll ? m :  /*<<map.ml:293:35>>*/ bal(ll, v, d, r) /*<<map.ml:296:47>>*/ ;
+        }
         function add_to_list(x, data, m){
          function add(param){
            /*<<map.ml:299:16>>*/ if(! param)
-            /*<<map.ml:299:33>>*/ return [0, [0, data, 0]] /*<<map.ml:299:33>>*/ ;
+            /*<<map.ml:299:33>>*/ return [0, [0, data, 0]];
           var l = param[1];
-           /*<<map.ml:299:57>>*/ return [0, [0, data, l]] /*<<map.ml:299:57>>*/ ;
+           /*<<map.ml:299:57>>*/ return [0, [0, data, l]];
           /*<<map.ml:299:73>>*/ }
-          /*<<map.ml:300:6>>*/ return  /*<<map.ml:300:6>>*/ update
-                  /*<<map.ml:300:6>>*/ (x, add, m) /*<<map.ml:300:20>>*/ ;
-         /*<<map.ml:300:20>>*/ }
+          /*<<map.ml:300:6>>*/ return update(x, add, m) /*<<map.ml:300:20>>*/ ;
+        }
         function iter(f, param){
          var param$0 = param;
           /*<<map.ml:302:17>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:303:17>>*/ return 0 /*<<map.ml:303:17>>*/ ;
+          if(! param$0)  /*<<map.ml:303:17>>*/ return 0;
           var r = param$0[4], d = param$0[3], v = param$0[2], l = param$0[1];
-           /*<<map.ml:305:10>>*/  /*<<map.ml:305:10>>*/ iter
-            /*<<map.ml:305:10>>*/ (f, l);
-           /*<<map.ml:305:20>>*/  /*<<map.ml:305:20>>*/ caml_call2
-            /*<<map.ml:305:20>>*/ (f, v, d);
+           /*<<map.ml:305:10>>*/ iter(f, l);
+           /*<<map.ml:305:20>>*/ caml_call2(f, v, d);
           param$0 = r;
          }
          /*<<map.ml:305:35>>*/ }
         function map(f, param){
-          /*<<map.ml:307:16>>*/ if(! param)
-           /*<<map.ml:309:10>>*/ return 0 /*<<map.ml:309:10>>*/ ;
+          /*<<map.ml:307:16>>*/ if(! param)  /*<<map.ml:309:10>>*/ return 0;
          var
           h = param[5],
           r = param[4],
           d = param[3],
           v = param[2],
           l = param[1],
-          l$0 =
-             /*<<map.ml:311:19>>*/  /*<<map.ml:311:19>>*/ map
-              /*<<map.ml:311:19>>*/ (f, l),
-          d$0 =
-             /*<<map.ml:312:19>>*/  /*<<map.ml:312:19>>*/ caml_call1
-              /*<<map.ml:312:19>>*/ (f, d),
-          r$0 =
-             /*<<map.ml:313:19>>*/  /*<<map.ml:313:19>>*/ map
-              /*<<map.ml:313:19>>*/ (f, r);
-          /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:314:14>>*/ ;
+          l$0 =  /*<<map.ml:311:19>>*/ map(f, l),
+          d$0 =  /*<<map.ml:312:19>>*/ caml_call1(f, d),
+          r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
+          /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h];
          /*<<map.ml:314:38>>*/ }
         function mapi(f, param){
-          /*<<map.ml:316:17>>*/ if(! param)
-           /*<<map.ml:318:10>>*/ return 0 /*<<map.ml:318:10>>*/ ;
+          /*<<map.ml:316:17>>*/ if(! param)  /*<<map.ml:318:10>>*/ return 0;
          var
           h = param[5],
           r = param[4],
           d = param[3],
           v = param[2],
           l = param[1],
-          l$0 =
-             /*<<map.ml:320:19>>*/  /*<<map.ml:320:19>>*/ mapi
-              /*<<map.ml:320:19>>*/ (f, l),
-          d$0 =
-             /*<<map.ml:321:19>>*/  /*<<map.ml:321:19>>*/ caml_call2
-              /*<<map.ml:321:19>>*/ (f, v, d),
-          r$0 =
-             /*<<map.ml:322:19>>*/  /*<<map.ml:322:19>>*/ mapi
-              /*<<map.ml:322:19>>*/ (f, r);
-          /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h] /*<<map.ml:323:14>>*/ ;
+          l$0 =  /*<<map.ml:320:19>>*/ mapi(f, l),
+          d$0 =  /*<<map.ml:321:19>>*/ caml_call2(f, v, d),
+          r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
+          /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h];
          /*<<map.ml:323:38>>*/ }
         function fold(f, m, accu){
          var m$0 = m, accu$0 = accu;
           /*<<map.ml:326:6>>*/ for(;;){
-          if(! m$0)
-            /*<<map.ml:327:17>>*/ return accu$0 /*<<map.ml:327:17>>*/ ;
+          if(! m$0)  /*<<map.ml:327:17>>*/ return accu$0;
           var
            r = m$0[4],
            d = m$0[3],
            v = m$0[2],
            l = m$0[1],
            accu$1 =
-              /*<<map.ml:329:19>>*/  /*<<map.ml:329:19>>*/ caml_call3
-               /*<<map.ml:329:19>>*/ (f,
-               v,
-               d,
-                /*<<map.ml:329:26>>*/ fold
-                 /*<<map.ml:329:26>>*/ (f, l, accu$0));
+              /*<<map.ml:329:19>>*/ caml_call3
+              (f, v, d,  /*<<map.ml:329:26>>*/ fold(f, l, accu$0));
           m$0 = r;
           accu$0 = accu$1;
          }
@@ -13710,86 +11265,61 @@
         function for_all(p, param){
          var param$0 = param;
           /*<<map.ml:331:20>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:332:17>>*/ return 1 /*<<map.ml:332:17>>*/ ;
+          if(! param$0)  /*<<map.ml:332:17>>*/ return 1;
           var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           _B_ =
-              /*<<map.ml:333:29>>*/  /*<<map.ml:333:29>>*/ caml_call2
-               /*<<map.ml:333:29>>*/ (p, v, d);
-           /*<<map.ml:333:29>>*/ if(_B_){
-           var
-            _C_ =
-               /*<<map.ml:333:38>>*/  /*<<map.ml:333:38>>*/ for_all
-                /*<<map.ml:333:38>>*/ (p, l);
-            /*<<map.ml:333:38>>*/ if(_C_){param$0 = r; continue;}
+           _B_ =  /*<<map.ml:333:29>>*/ caml_call2(p, v, d);
+          if(_B_){
+           var _C_ =  /*<<map.ml:333:38>>*/ for_all(p, l);
+           if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
           else
            var _D_ = _B_;
-           /*<<map.ml:333:38>>*/ return _D_ /*<<map.ml:333:38>>*/ ;
+          return _D_;
          }
          /*<<map.ml:333:64>>*/ }
         function exists(p, param){
          var param$0 = param;
           /*<<map.ml:335:19>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:336:17>>*/ return 0 /*<<map.ml:336:17>>*/ ;
+          if(! param$0)  /*<<map.ml:336:17>>*/ return 0;
           var
            r = param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
-           _y_ =
-              /*<<map.ml:337:29>>*/  /*<<map.ml:337:29>>*/ caml_call2
-               /*<<map.ml:337:29>>*/ (p, v, d);
-           /*<<map.ml:337:29>>*/ if(_y_)
+           _y_ =  /*<<map.ml:337:29>>*/ caml_call2(p, v, d);
+          if(_y_)
            var _z_ = _y_;
           else{
-           var
-            _A_ =
-               /*<<map.ml:337:38>>*/  /*<<map.ml:337:38>>*/ exists
-                /*<<map.ml:337:38>>*/ (p, l);
-            /*<<map.ml:337:38>>*/ if(! _A_){param$0 = r; continue;}
+           var _A_ =  /*<<map.ml:337:38>>*/ exists(p, l);
+           if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-           /*<<map.ml:337:29>>*/ return _z_ /*<<map.ml:337:29>>*/ ;
+           /*<<map.ml:337:29>>*/ return _z_;
          }
          /*<<map.ml:337:62>>*/ }
         function add_min_binding(k, x, param){
           /*<<map.ml:347:28>>*/ if(! param)
-           /*<<map.ml:348:17>>*/ return  /*<<map.ml:348:17>>*/ singleton
-                   /*<<map.ml:348:17>>*/ (k, x) /*<<map.ml:350:41>>*/ ;
+           /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:350:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:350:8>>*/ return  /*<<map.ml:350:8>>*/ bal
-                  /*<<map.ml:350:8>>*/ ( /*<<map.ml:350:12>>*/ add_min_binding
-                    /*<<map.ml:350:12>>*/ (k, x, l),
-                  v,
-                  d,
-                  r) /*<<map.ml:350:41>>*/ ;
-         /*<<map.ml:350:41>>*/ }
+          /*<<map.ml:350:8>>*/ return bal
+                 ( /*<<map.ml:350:12>>*/ add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:41>>*/ ;
+        }
         function add_max_binding(k, x, param){
           /*<<map.ml:352:28>>*/ if(! param)
-           /*<<map.ml:353:17>>*/ return  /*<<map.ml:353:17>>*/ singleton
-                   /*<<map.ml:353:17>>*/ (k, x) /*<<map.ml:355:41>>*/ ;
+           /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:355:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:355:18>>*/ return  /*<<map.ml:355:18>>*/ bal
-                  /*<<map.ml:355:18>>*/ (l,
-                  v,
-                  d,
-                   /*<<map.ml:355:18>>*/ add_max_binding
-                    /*<<map.ml:355:18>>*/ (k, x, r)) /*<<map.ml:355:41>>*/ ;
-         /*<<map.ml:355:41>>*/ }
+          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
+        }
         function join(l, v, d, r){
           /*<<map.ml:361:6>>*/ if(! l)
-           /*<<map.ml:362:22>>*/ return  /*<<map.ml:362:22>>*/ add_min_binding
-                   /*<<map.ml:362:22>>*/ (v, d, r) /*<<map.ml:368:24>>*/ ;
+           /*<<map.ml:362:22>>*/ return add_min_binding(v, d, r) /*<<map.ml:368:24>>*/ ;
          if(! r)
-           /*<<map.ml:363:22>>*/ return  /*<<map.ml:363:22>>*/ add_max_binding
-                   /*<<map.ml:363:22>>*/ (v, d, l) /*<<map.ml:368:24>>*/ ;
+           /*<<map.ml:363:22>>*/ return add_max_binding(v, d, l) /*<<map.ml:368:24>>*/ ;
          var
           rh = r[5],
           rr = r[4],
@@ -13802,143 +11332,94 @@
           lv = l[2],
           ll = l[1];
          return (rh + 2 | 0) < lh
-                 ?  /*<<map.ml:366:43>>*/ bal
-                    /*<<map.ml:366:43>>*/ (ll,
-                    lv,
-                    ld,
-                     /*<<map.ml:366:43>>*/ join
-                      /*<<map.ml:366:43>>*/ (lr, v, d, r))
+                 ?  /*<<map.ml:366:43>>*/ bal(ll, lv, ld, join(lr, v, d, r))
                  : (lh
                    + 2
                    | 0)
                    < rh
                    ?  /*<<map.ml:367:30>>*/ bal
-                      /*<<map.ml:367:30>>*/ ( /*<<map.ml:367:34>>*/ join
-                        /*<<map.ml:367:34>>*/ (l, v, d, rl),
-                      rv,
-                      rd,
-                      rr)
-                   :  /*<<map.ml:368:10>>*/ create
-                      /*<<map.ml:368:10>>*/ (l, v, d, r) /*<<map.ml:368:24>>*/ ;
-         /*<<map.ml:368:24>>*/ }
+                     ( /*<<map.ml:367:34>>*/ join(l, v, d, rl), rv, rd, rr)
+                   :  /*<<map.ml:368:10>>*/ create(l, v, d, r) /*<<map.ml:368:24>>*/ ;
+        }
         function concat(t1, t2){
-          /*<<map.ml:375:6>>*/ if(! t1)
-           /*<<map.ml:376:22>>*/ return t2 /*<<map.ml:376:22>>*/ ;
-         if(! t2)  /*<<map.ml:377:22>>*/ return t1 /*<<map.ml:377:22>>*/ ;
+          /*<<map.ml:375:6>>*/ if(! t1)  /*<<map.ml:376:22>>*/ return t2;
+         if(! t2)  /*<<map.ml:377:22>>*/ return t1;
          var
-          match =
-             /*<<map.ml:379:23>>*/  /*<<map.ml:379:23>>*/ min_binding
-              /*<<map.ml:379:23>>*/ (t2),
+          match =  /*<<map.ml:379:23>>*/ min_binding(t2),
           d = match[2],
           x = match[1];
-          /*<<map.ml:380:22>>*/ return  /*<<map.ml:380:22>>*/ join
-                  /*<<map.ml:380:22>>*/ (t1,
-                  x,
-                  d,
-                   /*<<map.ml:380:22>>*/ remove_min_binding
-                    /*<<map.ml:380:22>>*/ (t2)) /*<<map.ml:380:45>>*/ ;
-         /*<<map.ml:380:45>>*/ }
+          /*<<map.ml:380:22>>*/ return join(t1, x, d, remove_min_binding(t2)) /*<<map.ml:380:45>>*/ ;
+        }
         function concat_or_join(t1, v, d, t2){
           /*<<map.ml:383:6>>*/ if(! d)
-           /*<<map.ml:385:16>>*/ return  /*<<map.ml:385:16>>*/ concat
-                   /*<<map.ml:385:16>>*/ (t1, t2) /*<<map.ml:385:28>>*/ ;
+           /*<<map.ml:385:16>>*/ return concat(t1, t2) /*<<map.ml:385:28>>*/ ;
          var d$0 = d[1];
-          /*<<map.ml:384:18>>*/ return  /*<<map.ml:384:18>>*/ join
-                  /*<<map.ml:384:18>>*/ (t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
-         /*<<map.ml:385:28>>*/ }
+          /*<<map.ml:384:18>>*/ return join(t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
+        }
         function split(x, param){
-          /*<<map.ml:387:18>>*/ if(! param)
-           /*<<map.ml:389:10>>*/ return _a_ /*<<map.ml:389:10>>*/ ;
+          /*<<map.ml:387:18>>*/ if(! param)  /*<<map.ml:389:10>>*/ return _a_;
          var
           r = param[4],
           d = param[3],
           v = param[2],
           l = param[1],
-          c =
-             /*<<map.ml:391:18>>*/  /*<<map.ml:391:18>>*/ caml_call2
-              /*<<map.ml:391:18>>*/ (Ord[1], x, v);
+          c =  /*<<map.ml:391:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:392:10>>*/ if(0 === c)
-           /*<<map.ml:392:24>>*/ return [0, l, [0, d], r] /*<<map.ml:392:24>>*/ ;
+           /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
          if(0 <= c){
           var
-           match =
-              /*<<map.ml:396:33>>*/  /*<<map.ml:396:33>>*/ split
-               /*<<map.ml:396:33>>*/ (x, r),
+           match =  /*<<map.ml:396:33>>*/ split(x, r),
            rr = match[3],
            pres = match[2],
            lr = match[1];
            /*<<map.ml:396:46>>*/ return [0,
-                   /*<<map.ml:396:47>>*/ join
-                    /*<<map.ml:396:47>>*/ (l, v, d, lr),
+                   /*<<map.ml:396:47>>*/ join(l, v, d, lr),
                   pres,
                   rr] /*<<map.ml:396:46>>*/ ;
          }
          var
-          match$0 =
-             /*<<map.ml:394:33>>*/  /*<<map.ml:394:33>>*/ split
-              /*<<map.ml:394:33>>*/ (x, l),
+          match$0 =  /*<<map.ml:394:33>>*/ split(x, l),
           rl = match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
           /*<<map.ml:394:46>>*/ return [0,
                  ll,
                  pres$0,
-                  /*<<map.ml:394:57>>*/ join
-                   /*<<map.ml:394:57>>*/ (rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
+                  /*<<map.ml:394:57>>*/ join(rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
          /*<<map.ml:396:71>>*/ }
         function merge(f, s1, s2){
           /*<<map.ml:399:6>>*/ if(s1){
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
-          if( /*<<map.ml:401:60>>*/ height /*<<map.ml:401:60>>*/ (s2) <= h1){
+          if( /*<<map.ml:401:60>>*/ height(s2) <= h1){
            var
-            match =
-               /*<<map.ml:402:29>>*/  /*<<map.ml:402:29>>*/ split
-                /*<<map.ml:402:29>>*/ (v1, s2),
+            match =  /*<<map.ml:402:29>>*/ split(v1, s2),
             r2 = match[3],
             d2 = match[2],
             l2 = match[1],
-            _u_ =
-               /*<<map.ml:403:64>>*/  /*<<map.ml:403:64>>*/ merge
-                /*<<map.ml:403:64>>*/ (f, r1, r2),
-            _v_ =
-               /*<<map.ml:403:44>>*/  /*<<map.ml:403:44>>*/ caml_call3
-                /*<<map.ml:403:44>>*/ (f, v1, [0, d1], d2);
-            /*<<map.ml:403:64>>*/ return  /*<<map.ml:403:64>>*/ concat_or_join
-                    /*<<map.ml:403:64>>*/ ( /*<<map.ml:403:25>>*/ merge
-                      /*<<map.ml:403:25>>*/ (f, l1, l2),
-                    v1,
-                    _v_,
-                    _u_) /*<<map.ml:408:22>>*/ ;
+            _u_ =  /*<<map.ml:403:64>>*/ merge(f, r1, r2),
+            _v_ =  /*<<map.ml:403:44>>*/ caml_call3(f, v1, [0, d1], d2);
+            /*<<map.ml:403:64>>*/ return concat_or_join
+                   ( /*<<map.ml:403:25>>*/ merge(f, l1, l2), v1, _v_, _u_) /*<<map.ml:408:22>>*/ ;
           }
          }
-         else if(! s2)  /*<<map.ml:400:26>>*/ return 0 /*<<map.ml:400:26>>*/ ;
+         else if(! s2)  /*<<map.ml:400:26>>*/ return 0;
          if(! s2)
-           /*<<map.ml:408:10>>*/ throw  /*<<map.ml:408:10>>*/ caml_maybe_attach_backtrace
-                  /*<<map.ml:408:10>>*/ ([0, Assert_failure, _b_], 1);
+           /*<<map.ml:408:10>>*/ throw caml_maybe_attach_backtrace
+                 ([0, Assert_failure, _b_], 1);
          var
           r2$0 = s2[4],
           d2$0 = s2[3],
           v2 = s2[2],
           l2$0 = s2[1],
-          match$0 =
-             /*<<map.ml:405:29>>*/  /*<<map.ml:405:29>>*/ split
-              /*<<map.ml:405:29>>*/ (v2, s1),
+          match$0 =  /*<<map.ml:405:29>>*/ split(v2, s1),
           r1$0 = match$0[3],
           d1$0 = match$0[2],
           l1$0 = match$0[1],
-          _w_ =
-             /*<<map.ml:406:64>>*/  /*<<map.ml:406:64>>*/ merge
-              /*<<map.ml:406:64>>*/ (f, r1$0, r2$0),
-          _x_ =
-             /*<<map.ml:406:44>>*/  /*<<map.ml:406:44>>*/ caml_call3
-              /*<<map.ml:406:44>>*/ (f, v2, d1$0, [0, d2$0]);
-          /*<<map.ml:406:64>>*/ return  /*<<map.ml:406:64>>*/ concat_or_join
-                  /*<<map.ml:406:64>>*/ ( /*<<map.ml:406:25>>*/ merge
-                    /*<<map.ml:406:25>>*/ (f, l1$0, l2$0),
-                  v2,
-                  _x_,
-                  _w_) /*<<map.ml:408:22>>*/ ;
-         /*<<map.ml:408:22>>*/ }
+          _w_ =  /*<<map.ml:406:64>>*/ merge(f, r1$0, r2$0),
+          _x_ =  /*<<map.ml:406:44>>*/ caml_call3(f, v2, d1$0, [0, d2$0]);
+          /*<<map.ml:406:64>>*/ return concat_or_join
+                 ( /*<<map.ml:406:25>>*/ merge(f, l1$0, l2$0), v2, _x_, _w_) /*<<map.ml:408:22>>*/ ;
+        }
         function union(f, s1, s2){
           /*<<map.ml:411:6>>*/ if(s1){
           if(s2){
@@ -13955,151 +11436,102 @@
             l1 = s1[1];
            if(h2 <= h1){
             var
-             match =
-                /*<<map.ml:416:31>>*/  /*<<map.ml:416:31>>*/ split
-                 /*<<map.ml:416:31>>*/ (v1, s2),
+             match =  /*<<map.ml:416:31>>*/ split(v1, s2),
              r2$0 = match[3],
              d2$0 = match[2],
              l2$0 = match[1],
-             l =
-                /*<<map.ml:417:20>>*/  /*<<map.ml:417:20>>*/ union
-                 /*<<map.ml:417:20>>*/ (f, l1, l2$0),
-             r =
-                /*<<map.ml:417:42>>*/  /*<<map.ml:417:42>>*/ union
-                 /*<<map.ml:417:42>>*/ (f, r1, r2$0);
+             l =  /*<<map.ml:417:20>>*/ union(f, l1, l2$0),
+             r =  /*<<map.ml:417:42>>*/ union(f, r1, r2$0);
              /*<<map.ml:418:12>>*/ if(! d2$0)
-              /*<<map.ml:419:22>>*/ return  /*<<map.ml:419:22>>*/ join
-                      /*<<map.ml:419:22>>*/ (l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
+              /*<<map.ml:419:22>>*/ return join(l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
             var d2$1 = d2$0[1];
-             /*<<map.ml:420:25>>*/ return  /*<<map.ml:420:25>>*/ concat_or_join
-                     /*<<map.ml:420:25>>*/ (l,
+             /*<<map.ml:420:25>>*/ return concat_or_join
+                    (l,
                      v1,
-                      /*<<map.ml:420:45>>*/ caml_call3
-                       /*<<map.ml:420:45>>*/ (f, v1, d1, d2$1),
+                      /*<<map.ml:420:45>>*/ caml_call3(f, v1, d1, d2$1),
                      r) /*<<map.ml:426:59>>*/ ;
            }
            var
-            match$0 =
-               /*<<map.ml:422:31>>*/  /*<<map.ml:422:31>>*/ split
-                /*<<map.ml:422:31>>*/ (v2, s1),
+            match$0 =  /*<<map.ml:422:31>>*/ split(v2, s1),
             r1$0 = match$0[3],
             d1$0 = match$0[2],
             l1$0 = match$0[1],
-            l$0 =
-               /*<<map.ml:423:20>>*/  /*<<map.ml:423:20>>*/ union
-                /*<<map.ml:423:20>>*/ (f, l1$0, l2),
-            r$0 =
-               /*<<map.ml:423:42>>*/  /*<<map.ml:423:42>>*/ union
-                /*<<map.ml:423:42>>*/ (f, r1$0, r2);
+            l$0 =  /*<<map.ml:423:20>>*/ union(f, l1$0, l2),
+            r$0 =  /*<<map.ml:423:42>>*/ union(f, r1$0, r2);
             /*<<map.ml:424:12>>*/ if(! d1$0)
-             /*<<map.ml:425:22>>*/ return  /*<<map.ml:425:22>>*/ join
-                     /*<<map.ml:425:22>>*/ (l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
+             /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
            var d1$1 = d1$0[1];
-            /*<<map.ml:426:25>>*/ return  /*<<map.ml:426:25>>*/ concat_or_join
-                    /*<<map.ml:426:25>>*/ (l$0,
+            /*<<map.ml:426:25>>*/ return concat_or_join
+                   (l$0,
                     v2,
-                     /*<<map.ml:426:45>>*/ caml_call3
-                      /*<<map.ml:426:45>>*/ (f, v2, d1$1, d2),
+                     /*<<map.ml:426:45>>*/ caml_call3(f, v2, d1$1, d2),
                     r$0) /*<<map.ml:426:59>>*/ ;
           }
           var s = s1;
          }
          else
           var s = s2;
-          /*<<map.ml:412:35>>*/ return s /*<<map.ml:412:35>>*/ ;
+          /*<<map.ml:412:35>>*/ return s;
          /*<<map.ml:426:59>>*/ }
         function filter(p, m){
-          /*<<map.ml:428:19>>*/ if(! m)
-           /*<<map.ml:429:17>>*/ return 0 /*<<map.ml:429:17>>*/ ;
+          /*<<map.ml:428:19>>*/ if(! m)  /*<<map.ml:429:17>>*/ return 0;
          var
           r = m[4],
           d = m[3],
           v = m[2],
           l = m[1],
-          l$0 =
-             /*<<map.ml:432:19>>*/  /*<<map.ml:432:19>>*/ filter
-              /*<<map.ml:432:19>>*/ (p, l),
-          pvd =
-             /*<<map.ml:433:20>>*/  /*<<map.ml:433:20>>*/ caml_call2
-              /*<<map.ml:433:20>>*/ (p, v, d),
-          r$0 =
-             /*<<map.ml:434:19>>*/  /*<<map.ml:434:19>>*/ filter
-              /*<<map.ml:434:19>>*/ (p, r);
+          l$0 =  /*<<map.ml:432:19>>*/ filter(p, l),
+          pvd =  /*<<map.ml:433:20>>*/ caml_call2(p, v, d),
+          r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
-           /*<<map.ml:436:15>>*/ return  /*<<map.ml:436:15>>*/ concat
-                   /*<<map.ml:436:15>>*/ (l$0, r$0) /*<<map.ml:436:27>>*/ ;
-         if(l === l$0 && r === r$0)
-           /*<<map.ml:435:45>>*/ return m /*<<map.ml:435:45>>*/ ;
-          /*<<map.ml:435:52>>*/ return  /*<<map.ml:435:52>>*/ join
-                  /*<<map.ml:435:52>>*/ (l$0, v, d, r$0) /*<<map.ml:436:27>>*/ ;
-         /*<<map.ml:436:27>>*/ }
+           /*<<map.ml:436:15>>*/ return concat(l$0, r$0) /*<<map.ml:436:27>>*/ ;
+         if(l === l$0 && r === r$0)  /*<<map.ml:435:45>>*/ return m;
+          /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0) /*<<map.ml:436:27>>*/ ;
+        }
         function filter_map(f, param){
-          /*<<map.ml:438:23>>*/ if(! param)
-           /*<<map.ml:439:17>>*/ return 0 /*<<map.ml:439:17>>*/ ;
+          /*<<map.ml:438:23>>*/ if(! param)  /*<<map.ml:439:17>>*/ return 0;
          var
           r = param[4],
           d = param[3],
           v = param[2],
           l = param[1],
-          l$0 =
-             /*<<map.ml:442:19>>*/  /*<<map.ml:442:19>>*/ filter_map
-              /*<<map.ml:442:19>>*/ (f, l),
-          fvd =
-             /*<<map.ml:443:20>>*/  /*<<map.ml:443:20>>*/ caml_call2
-              /*<<map.ml:443:20>>*/ (f, v, d),
-          r$0 =
-             /*<<map.ml:444:19>>*/  /*<<map.ml:444:19>>*/ filter_map
-              /*<<map.ml:444:19>>*/ (f, r);
+          l$0 =  /*<<map.ml:442:19>>*/ filter_map(f, l),
+          fvd =  /*<<map.ml:443:20>>*/ caml_call2(f, v, d),
+          r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
-           /*<<map.ml:447:22>>*/ return  /*<<map.ml:447:22>>*/ concat
-                   /*<<map.ml:447:22>>*/ (l$0, r$0) /*<<map.ml:448:13>>*/ ;
+           /*<<map.ml:447:22>>*/ return concat(l$0, r$0) /*<<map.ml:448:13>>*/ ;
          var d$0 = fvd[1];
-          /*<<map.ml:446:25>>*/ return  /*<<map.ml:446:25>>*/ join
-                  /*<<map.ml:446:25>>*/ (l$0, v, d$0, r$0) /*<<map.ml:448:13>>*/ ;
-         /*<<map.ml:448:13>>*/ }
+          /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0) /*<<map.ml:448:13>>*/ ;
+        }
         function partition(p, param){
-          /*<<map.ml:450:22>>*/ if(! param)
-           /*<<map.ml:451:17>>*/ return _c_ /*<<map.ml:451:17>>*/ ;
+          /*<<map.ml:450:22>>*/ if(! param)  /*<<map.ml:451:17>>*/ return _c_;
          var
           r = param[4],
           d = param[3],
           v = param[2],
           l = param[1],
-          match =
-             /*<<map.ml:454:25>>*/  /*<<map.ml:454:25>>*/ partition
-              /*<<map.ml:454:25>>*/ (p, l),
+          match =  /*<<map.ml:454:25>>*/ partition(p, l),
           lf = match[2],
           lt = match[1],
-          pvd =
-             /*<<map.ml:455:20>>*/  /*<<map.ml:455:20>>*/ caml_call2
-              /*<<map.ml:455:20>>*/ (p, v, d),
-          match$0 =
-             /*<<map.ml:456:25>>*/  /*<<map.ml:456:25>>*/ partition
-              /*<<map.ml:456:25>>*/ (p, r),
+          pvd =  /*<<map.ml:455:20>>*/ caml_call2(p, v, d),
+          match$0 =  /*<<map.ml:456:25>>*/ partition(p, r),
           rf = match$0[2],
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
-          var
-           _s_ =
-              /*<<map.ml:458:32>>*/  /*<<map.ml:458:32>>*/ concat
-               /*<<map.ml:458:32>>*/ (lf, rf);
+          var _s_ =  /*<<map.ml:458:32>>*/ concat(lf, rf);
            /*<<map.ml:458:15>>*/ return [0,
-                   /*<<map.ml:458:16>>*/ join
-                    /*<<map.ml:458:16>>*/ (lt, v, d, rt),
+                   /*<<map.ml:458:16>>*/ join(lt, v, d, rt),
                   _s_] /*<<map.ml:458:15>>*/ ;
          }
-         var
-          _t_ =
-             /*<<map.ml:459:30>>*/  /*<<map.ml:459:30>>*/ join
-              /*<<map.ml:459:30>>*/ (lf, v, d, rf);
+         var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
           /*<<map.ml:459:15>>*/ return [0,
-                  /*<<map.ml:459:16>>*/ concat /*<<map.ml:459:16>>*/ (lt, rt),
+                  /*<<map.ml:459:16>>*/ concat(lt, rt),
                  _t_] /*<<map.ml:459:15>>*/ ;
          /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
          var m$0 = m, e$0 = e;
           /*<<map.ml:464:6>>*/ for(;;){
-          if(! m$0)  /*<<map.ml:465:17>>*/ return e$0 /*<<map.ml:465:17>>*/ ;
+          if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
           var
            r = m$0[4],
            d = m$0[3],
@@ -14112,17 +11544,13 @@
          /*<<map.ml:466:59>>*/ }
         function compare(cmp, m1, m2){
          var
-          e2$2 =
-             /*<<map.ml:480:40>>*/  /*<<map.ml:480:40>>*/ cons_enum
-              /*<<map.ml:480:40>>*/ (m2, 0),
-          e1$2 =
-             /*<<map.ml:480:21>>*/  /*<<map.ml:480:21>>*/ cons_enum
-              /*<<map.ml:480:21>>*/ (m1, 0),
+          e2$2 =  /*<<map.ml:480:40>>*/ cons_enum(m2, 0),
+          e1$2 =  /*<<map.ml:480:21>>*/ cons_enum(m1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:470:10>>*/ for(;;){
           if(! e1) return e2 ? -1 : 0 /*<<map.ml:480:58>>*/ ;
-          if(! e2)  /*<<map.ml:473:22>>*/ return 1 /*<<map.ml:473:22>>*/ ;
+          if(! e2)  /*<<map.ml:473:22>>*/ return 1;
           var
            e2$0 = e2[4],
            r2 = e2[3],
@@ -14132,41 +11560,27 @@
            r1 = e1[3],
            d1 = e1[2],
            v1 = e1[1],
-           c =
-              /*<<map.ml:475:20>>*/  /*<<map.ml:475:20>>*/ caml_call2
-               /*<<map.ml:475:20>>*/ (Ord[1], v1, v2);
-           /*<<map.ml:476:12>>*/ if(0 !== c)
-            /*<<map.ml:476:27>>*/ return c /*<<map.ml:476:27>>*/ ;
-          var
-           c$0 =
-              /*<<map.ml:477:20>>*/  /*<<map.ml:477:20>>*/ caml_call2
-               /*<<map.ml:477:20>>*/ (cmp, d1, d2);
+           c =  /*<<map.ml:475:20>>*/ caml_call2(Ord[1], v1, v2);
+           /*<<map.ml:476:12>>*/ if(0 !== c)  /*<<map.ml:476:27>>*/ return c;
+          var c$0 =  /*<<map.ml:477:20>>*/ caml_call2(cmp, d1, d2);
            /*<<map.ml:478:12>>*/ if(0 !== c$0)
-            /*<<map.ml:478:27>>*/ return c$0 /*<<map.ml:478:27>>*/ ;
+            /*<<map.ml:478:27>>*/ return c$0;
           var
-           e2$1 =
-              /*<<map.ml:479:42>>*/  /*<<map.ml:479:42>>*/ cons_enum
-               /*<<map.ml:479:42>>*/ (r2, e2$0),
-           e1$1 =
-              /*<<map.ml:479:24>>*/  /*<<map.ml:479:24>>*/ cons_enum
-               /*<<map.ml:479:24>>*/ (r1, e1$0);
+           e2$1 =  /*<<map.ml:479:42>>*/ cons_enum(r2, e2$0),
+           e1$1 =  /*<<map.ml:479:24>>*/ cons_enum(r1, e1$0);
           e1 = e1$1;
           e2 = e2$1;
          }
          /*<<map.ml:480:58>>*/ }
         function equal(cmp, m1, m2){
          var
-          e2$2 =
-             /*<<map.ml:491:38>>*/  /*<<map.ml:491:38>>*/ cons_enum
-              /*<<map.ml:491:38>>*/ (m2, 0),
-          e1$2 =
-             /*<<map.ml:491:19>>*/  /*<<map.ml:491:19>>*/ cons_enum
-              /*<<map.ml:491:19>>*/ (m1, 0),
+          e2$2 =  /*<<map.ml:491:38>>*/ cons_enum(m2, 0),
+          e1$2 =  /*<<map.ml:491:19>>*/ cons_enum(m1, 0),
           e1 = e1$2,
           e2 = e2$2;
           /*<<map.ml:484:10>>*/ for(;;){
           if(! e1) return e2 ? 0 : 1 /*<<map.ml:491:56>>*/ ;
-          if(! e2)  /*<<map.ml:487:22>>*/ return 0 /*<<map.ml:487:22>>*/ ;
+          if(! e2)  /*<<map.ml:487:22>>*/ return 0;
           var
            e2$0 = e2[4],
            r2 = e2[3],
@@ -14177,25 +11591,13 @@
            d1 = e1[2],
            v1 = e1[1],
            _p_ =
-             0
-              ===
-                /*<<map.ml:489:12>>*/ caml_call2
-                 /*<<map.ml:489:12>>*/ (Ord[1], v1, v2)
-              ? 1
-              : 0;
+             0 ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2) ? 1 : 0;
           if(_p_){
-           var
-            _q_ =
-               /*<<map.ml:489:37>>*/  /*<<map.ml:489:37>>*/ caml_call2
-                /*<<map.ml:489:37>>*/ (cmp, d1, d2);
-            /*<<map.ml:489:37>>*/ if(_q_){
+           var _q_ =  /*<<map.ml:489:37>>*/ caml_call2(cmp, d1, d2);
+           if(_q_){
             var
-             e2$1 =
-                /*<<map.ml:490:40>>*/  /*<<map.ml:490:40>>*/ cons_enum
-                 /*<<map.ml:490:40>>*/ (r2, e2$0),
-             e1$1 =
-                /*<<map.ml:490:22>>*/  /*<<map.ml:490:22>>*/ cons_enum
-                 /*<<map.ml:490:22>>*/ (r1, e1$0);
+             e2$1 =  /*<<map.ml:490:40>>*/ cons_enum(r2, e2$0),
+             e1$1 =  /*<<map.ml:490:22>>*/ cons_enum(r1, e1$0);
             e1 = e1$1;
             e2 = e2$1;
             continue;
@@ -14204,28 +11606,21 @@
           }
           else
            var _r_ = _p_;
-           /*<<map.ml:489:37>>*/ return _r_ /*<<map.ml:489:37>>*/ ;
+           /*<<map.ml:489:37>>*/ return _r_;
          }
          /*<<map.ml:491:56>>*/ }
         function cardinal(param){
-          /*<<map.ml:493:23>>*/ if(! param)
-           /*<<map.ml:494:17>>*/ return 0 /*<<map.ml:494:17>>*/ ;
+          /*<<map.ml:493:23>>*/ if(! param)  /*<<map.ml:494:17>>*/ return 0;
          var
           r = param[4],
           l = param[1],
-          _o_ =
-             /*<<map.ml:495:40>>*/  /*<<map.ml:495:40>>*/ cardinal
-              /*<<map.ml:495:40>>*/ (r);
-         return ( /*<<map.ml:495:23>>*/ cardinal /*<<map.ml:495:23>>*/ (l) + 1
-                | 0)
-                + _o_
-                | 0;
+          _o_ =  /*<<map.ml:495:40>>*/ cardinal(r);
+         return ( /*<<map.ml:495:23>>*/ cardinal(l) + 1 | 0) + _o_ | 0;
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
          var accu$0 = accu, param$0 = param;
           /*<<map.ml:497:25>>*/ for(;;){
-          if(! param$0)
-            /*<<map.ml:498:17>>*/ return accu$0 /*<<map.ml:498:17>>*/ ;
+          if(! param$0)  /*<<map.ml:498:17>>*/ return accu$0;
           var
            r = param$0[4],
            d = param$0[3],
@@ -14234,69 +11629,58 @@
            accu$1 =
               /*<<map.ml:499:42>>*/ [0,
               [0, v, d],
-               /*<<map.ml:499:53>>*/ bindings_aux
-                /*<<map.ml:499:53>>*/ (accu$0, r)];
+               /*<<map.ml:499:53>>*/ bindings_aux(accu$0, r)];
           accu$0 = accu$1;
           param$0 = l;
          }
          /*<<map.ml:499:75>>*/ }
         function bindings(s){
-          /*<<map.ml:502:6>>*/ return  /*<<map.ml:502:6>>*/ bindings_aux
-                  /*<<map.ml:502:6>>*/ (0, s) /*<<map.ml:502:23>>*/ ;
-         /*<<map.ml:502:23>>*/ }
+          /*<<map.ml:502:6>>*/ return bindings_aux(0, s) /*<<map.ml:502:23>>*/ ;
+        }
         function of_list(bs){
-          /*<<map.ml:509:21>>*/ return  /*<<map.ml:509:21>>*/ caml_call3
-                  /*<<map.ml:509:21>>*/ (Stdlib_List[26],
+          /*<<map.ml:509:21>>*/ return caml_call3
+                 (Stdlib_List[26],
                   function(m, param){
                    var v = param[2], k = param[1];
-                    /*<<map.ml:509:53>>*/ return  /*<<map.ml:509:53>>*/ add
-                            /*<<map.ml:509:53>>*/ (k, v, m) /*<<map.ml:509:63>>*/ ;
-                   /*<<map.ml:509:63>>*/ },
+                    /*<<map.ml:509:53>>*/ return add(k, v, m) /*<<map.ml:509:63>>*/ ;
+                  },
                   empty,
                   bs) /*<<map.ml:509:72>>*/ ;
-         /*<<map.ml:509:72>>*/ }
+        }
         function add_seq(i, m){
-          /*<<map.ml:512:6>>*/ return  /*<<map.ml:512:6>>*/ caml_call3
-                  /*<<map.ml:512:6>>*/ (Stdlib_Seq[5],
+          /*<<map.ml:512:6>>*/ return caml_call3
+                 (Stdlib_Seq[5],
                   function(m, param){
                    var v = param[2], k = param[1];
-                    /*<<map.ml:512:36>>*/ return  /*<<map.ml:512:36>>*/ add
-                            /*<<map.ml:512:36>>*/ (k, v, m) /*<<map.ml:512:46>>*/ ;
-                   /*<<map.ml:512:46>>*/ },
+                    /*<<map.ml:512:36>>*/ return add(k, v, m) /*<<map.ml:512:46>>*/ ;
+                  },
                   m,
                   i) /*<<map.ml:512:50>>*/ ;
-         /*<<map.ml:512:50>>*/ }
+        }
         function of_seq(i){
-          /*<<map.ml:514:19>>*/ return  /*<<map.ml:91:12>>*/ add_seq
-                  /*<<map.ml:91:12>>*/ (i, empty) /*<<map.ml:514:34>>*/ ;
-         /*<<map.ml:514:34>>*/ }
+          /*<<map.ml:514:19>>*/ return  /*<<map.ml:91:12>>*/ add_seq(i, empty) /*<<map.ml:514:34>>*/ ;
+        }
         function seq_of_enum(c, param){
-          /*<<map.ml:516:32>>*/ if(! c)
-           /*<<map.ml:517:15>>*/ return 0 /*<<map.ml:517:15>>*/ ;
+          /*<<map.ml:516:32>>*/ if(! c)  /*<<map.ml:517:15>>*/ return 0;
          var
           rest = c[4],
           t = c[3],
           v = c[2],
           k = c[1],
-          _m_ =
-             /*<<map.ml:518:59>>*/  /*<<map.ml:518:59>>*/ cons_enum
-              /*<<map.ml:518:59>>*/ (t, rest);
+          _m_ =  /*<<map.ml:518:59>>*/ cons_enum(t, rest);
           /*<<map.ml:518:29>>*/ return [0,
                  [0, k, v],
                  function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}] /*<<map.ml:518:29>>*/ ;
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
-         var
-          _k_ =
-             /*<<map.ml:521:19>>*/  /*<<map.ml:521:19>>*/ cons_enum
-              /*<<map.ml:521:19>>*/ (m, 0);
-          /*<<map.ml:521:19>>*/ return function(_l_){
+         var _k_ =  /*<<map.ml:521:19>>*/ cons_enum(m, 0);
+         return function(_l_){
            /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:19>>*/ ;
          /*<<map.ml:521:36>>*/ }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<map.ml:524:6>>*/ for(;;){
-          if(! s$0)  /*<<map.ml:525:17>>*/ return e$0 /*<<map.ml:525:17>>*/ ;
+          if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
           var
            r = s$0[4],
            d = s$0[3],
@@ -14308,26 +11692,20 @@
          }
          /*<<map.ml:526:58>>*/ }
         function rev_seq_of_enum(c, param){
-          /*<<map.ml:528:36>>*/ if(! c)
-           /*<<map.ml:529:15>>*/ return 0 /*<<map.ml:529:15>>*/ ;
+          /*<<map.ml:528:36>>*/ if(! c)  /*<<map.ml:529:15>>*/ return 0;
          var
           rest = c[4],
           t = c[3],
           v = c[2],
           k = c[1],
-          _i_ =
-             /*<<map.ml:531:44>>*/  /*<<map.ml:531:44>>*/ snoc_enum
-              /*<<map.ml:531:44>>*/ (t, rest);
+          _i_ =  /*<<map.ml:531:44>>*/ snoc_enum(t, rest);
           /*<<map.ml:531:10>>*/ return [0,
                  [0, k, v],
                  function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}] /*<<map.ml:531:10>>*/ ;
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
-         var
-          _g_ =
-             /*<<map.ml:534:23>>*/  /*<<map.ml:534:23>>*/ snoc_enum
-              /*<<map.ml:534:23>>*/ (c, 0);
-          /*<<map.ml:534:23>>*/ return function(_h_){
+         var _g_ =  /*<<map.ml:534:23>>*/ snoc_enum(c, 0);
+         return function(_h_){
            /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);} /*<<map.ml:534:23>>*/ ;
          /*<<map.ml:534:40>>*/ }
         function to_seq_from(low, m){
@@ -14343,9 +11721,7 @@
              d = m$0[3],
              v = m$0[2],
              l = m$0[1],
-             n =
-                /*<<map.ml:540:24>>*/  /*<<map.ml:540:24>>*/ caml_call2
-                 /*<<map.ml:540:24>>*/ (Ord[1], v, low);
+             n =  /*<<map.ml:540:24>>*/ caml_call2(Ord[1], v, low);
             if(0 === n) break b;
             if(0 <= n){
              var c$0 =  /*<<map.ml:543:31>>*/ [0, v, d, r, c];
@@ -14419,9 +11795,8 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -14446,7 +11821,7 @@
        "Stdlib.Stack.Empty",
        runtime.caml_fresh_oo_id(0)];
    function create(param){
-     /*<<stack.ml:20:16>>*/ return [0, 0, 0] /*<<stack.ml:20:16>>*/ ;
+     /*<<stack.ml:20:16>>*/ return [0, 0, 0];
     /*<<stack.ml:20:36>>*/ }
    function clear(s){
      /*<<stack.ml:22:14>>*/ s[1] = 0;
@@ -14454,7 +11829,7 @@
     return 0;
     /*<<stack.ml:22:35>>*/ }
    function copy(s){
-     /*<<stack.ml:24:13>>*/ return [0, s[1], s[2]] /*<<stack.ml:24:13>>*/ ;
+     /*<<stack.ml:24:13>>*/ return [0, s[1], s[2]];
     /*<<stack.ml:24:38>>*/ }
    function push(x, s){
      /*<<stack.ml:26:15>>*/ s[1] = [0, x, s[1]];
@@ -14464,26 +11839,24 @@
    function pop(s){
     var match = s[1];
     if(! match)
-      /*<<stack.ml:31:14>>*/ throw  /*<<stack.ml:31:14>>*/ caml_maybe_attach_backtrace
-             /*<<stack.ml:31:14>>*/ (Empty, 1);
+      /*<<stack.ml:31:14>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var tl = match[2], hd = match[1];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
-     /*<<stack.ml:30:45>>*/ return hd /*<<stack.ml:30:45>>*/ ;
+     /*<<stack.ml:30:45>>*/ return hd;
     /*<<stack.ml:31:25>>*/ }
    function pop_opt(s){
     var match = s[1];
-    if(! match)  /*<<stack.ml:36:14>>*/ return 0 /*<<stack.ml:36:14>>*/ ;
+    if(! match)  /*<<stack.ml:36:14>>*/ return 0;
     var tl = match[2], hd = match[1];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
-     /*<<stack.ml:35:45>>*/ return [0, hd] /*<<stack.ml:35:45>>*/ ;
+     /*<<stack.ml:35:45>>*/ return [0, hd];
     /*<<stack.ml:36:18>>*/ }
    function drop(s){
     var match = s[1];
     if(! match)
-      /*<<stack.ml:41:10>>*/ throw  /*<<stack.ml:41:10>>*/ caml_maybe_attach_backtrace
-             /*<<stack.ml:41:10>>*/ (Empty, 1);
+      /*<<stack.ml:41:10>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var tl = match[2];
     s[1] = tl;
     s[2] = s[2] - 1 | 0;
@@ -14492,16 +11865,15 @@
    function top(s){
     var match = s[1];
     if(! match)
-      /*<<stack.ml:46:13>>*/ throw  /*<<stack.ml:46:13>>*/ caml_maybe_attach_backtrace
-             /*<<stack.ml:46:13>>*/ (Empty, 1);
+      /*<<stack.ml:46:13>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var hd = match[1];
-     /*<<stack.ml:45:13>>*/ return hd /*<<stack.ml:45:13>>*/ ;
+     /*<<stack.ml:45:13>>*/ return hd;
     /*<<stack.ml:46:24>>*/ }
    function top_opt(s){
     var match = s[1];
-    if(! match)  /*<<stack.ml:51:13>>*/ return 0 /*<<stack.ml:51:13>>*/ ;
+    if(! match)  /*<<stack.ml:51:13>>*/ return 0;
     var hd = match[1];
-     /*<<stack.ml:50:13>>*/ return [0, hd] /*<<stack.ml:50:13>>*/ ;
+     /*<<stack.ml:50:13>>*/ return [0, hd];
     /*<<stack.ml:51:17>>*/ }
    function is_empty(s){
      /*<<stack.ml:53:17>>*/ return 0 === s[1] ? 1 : 0;
@@ -14511,30 +11883,26 @@
     /*<<stack.ml:55:20>>*/ }
    function iter(f, s){
      /*<<stack.ml:57:15>>*/ return caml_call2(Stdlib_List[18], f, s[1]) /*<<stack.ml:57:30>>*/ ;
-    /*<<stack.ml:57:30>>*/ }
+   }
    function fold(f, acc, s){
      /*<<stack.ml:59:19>>*/ return caml_call3(Stdlib_List[26], f, acc, s[1]) /*<<stack.ml:59:43>>*/ ;
-    /*<<stack.ml:59:43>>*/ }
+   }
    function to_seq(s){
      /*<<stack.ml:63:15>>*/ return caml_call1(Stdlib_List[64], s[1]) /*<<stack.ml:63:30>>*/ ;
-    /*<<stack.ml:63:30>>*/ }
+   }
    function add_seq(q, i){
-     /*<<stack.ml:65:18>>*/ return  /*<<stack.ml:65:18>>*/ caml_call2
-             /*<<stack.ml:65:18>>*/ (Stdlib_Seq[4],
+     /*<<stack.ml:65:18>>*/ return caml_call2
+            (Stdlib_Seq[4],
              function(x){
                /*<<stack.ml:65:37>>*/ return  /*<<stack.ml:63:11>>*/ push
-                       /*<<stack.ml:63:11>>*/ (x, q) /*<<stack.ml:65:45>>*/ ;
-              /*<<stack.ml:65:45>>*/ },
+                      (x, q) /*<<stack.ml:65:45>>*/ ;
+             },
              i) /*<<stack.ml:65:48>>*/ ;
-    /*<<stack.ml:65:48>>*/ }
+   }
    function of_seq(g){
-    var
-     s =
-        /*<<stack.ml:68:10>>*/  /*<<stack.ml:68:10>>*/ create
-         /*<<stack.ml:68:10>>*/ (0);
-     /*<<stack.ml:69:2>>*/  /*<<stack.ml:69:2>>*/ add_seq
-      /*<<stack.ml:69:2>>*/ (s, g);
-     /*<<stack.ml:69:2>>*/ return s /*<<stack.ml:69:2>>*/ ;
+    var s =  /*<<stack.ml:68:10>>*/ create(0);
+     /*<<stack.ml:69:2>>*/ add_seq(s, g);
+    return s;
     /*<<stack.ml:70:3>>*/ }
    var
     Stdlib_Stack =
@@ -14567,9 +11935,8 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -14588,7 +11955,7 @@
        "Stdlib.Queue.Empty",
        runtime.caml_fresh_oo_id(0)];
    function create(param){
-     /*<<queue.ml:29:16>>*/ return [0, 0, 0, 0] /*<<queue.ml:29:16>>*/ ;
+     /*<<queue.ml:29:16>>*/ return [0, 0, 0, 0];
     /*<<queue.ml:33:1>>*/ }
    function clear(q){
      /*<<queue.ml:36:2>>*/ q[1] = 0;
@@ -14603,50 +11970,46 @@
     return match
             ? (q[1] = q[1] + 1 | 0, match[2] = cell, q[3] = cell, 0)
             : (q[1] = 1, q[2] = cell, q[3] = cell, 0) /*<<queue.ml:53:18>>*/ ;
-    /*<<queue.ml:53:18>>*/ }
+   }
    function peek(q){
     var match = q[2];
     if(! match)
-      /*<<queue.ml:60:11>>*/ throw  /*<<queue.ml:60:11>>*/ caml_maybe_attach_backtrace
-             /*<<queue.ml:60:11>>*/ (Empty, 1);
+      /*<<queue.ml:60:11>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var content = match[1];
-     /*<<queue.ml:61:24>>*/ return content /*<<queue.ml:61:24>>*/ ;
+     /*<<queue.ml:61:24>>*/ return content;
     /*<<queue.ml:61:31>>*/ }
    function peek_opt(q){
     var match = q[2];
-    if(! match)  /*<<queue.ml:65:11>>*/ return 0 /*<<queue.ml:65:11>>*/ ;
+    if(! match)  /*<<queue.ml:65:11>>*/ return 0;
     var content = match[1];
-     /*<<queue.ml:66:24>>*/ return [0, content] /*<<queue.ml:66:24>>*/ ;
+     /*<<queue.ml:66:24>>*/ return [0, content];
     /*<<queue.ml:66:36>>*/ }
    function take(q){
     var _f_ = q[2];
     if(! _f_)
-      /*<<queue.ml:73:11>>*/ throw  /*<<queue.ml:73:11>>*/ caml_maybe_attach_backtrace
-             /*<<queue.ml:73:11>>*/ (Empty, 1);
+      /*<<queue.ml:73:11>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var content = _f_[1];
     if(_f_[2]){
      var next = _f_[2];
      q[1] = q[1] - 1 | 0;
      q[2] = next;
-      /*<<queue.ml:80:4>>*/ return content /*<<queue.ml:80:4>>*/ ;
+      /*<<queue.ml:80:4>>*/ return content;
     }
-     /*<<queue.ml:75:4>>*/  /*<<queue.ml:75:4>>*/ clear
-      /*<<queue.ml:75:4>>*/ (q);
-     /*<<queue.ml:75:4>>*/ return content /*<<queue.ml:75:4>>*/ ;
+     /*<<queue.ml:75:4>>*/ clear(q);
+    return content;
     /*<<queue.ml:80:11>>*/ }
    function take_opt(q){
     var _e_ = q[2];
-    if(! _e_)  /*<<queue.ml:84:11>>*/ return 0 /*<<queue.ml:84:11>>*/ ;
+    if(! _e_)  /*<<queue.ml:84:11>>*/ return 0;
     var content = _e_[1];
     if(_e_[2]){
      var next = _e_[2];
      q[1] = q[1] - 1 | 0;
      q[2] = next;
-      /*<<queue.ml:91:4>>*/ return [0, content] /*<<queue.ml:91:4>>*/ ;
+      /*<<queue.ml:91:4>>*/ return [0, content];
     }
-     /*<<queue.ml:86:4>>*/  /*<<queue.ml:86:4>>*/ clear
-      /*<<queue.ml:86:4>>*/ (q);
-     /*<<queue.ml:87:4>>*/ return [0, content] /*<<queue.ml:87:4>>*/ ;
+     /*<<queue.ml:86:4>>*/ clear(q);
+     /*<<queue.ml:87:4>>*/ return [0, content];
     /*<<queue.ml:91:16>>*/ }
    function copy(q){
     var
@@ -14655,10 +12018,7 @@
      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:99:33>>*/ ;
-     }
+     if(! cell){q_res[3] = prev;  /*<<queue.ml:99:33>>*/ return q_res;}
      var
       content = cell[1],
       next = cell[2],
@@ -14680,23 +12040,20 @@
    function iter(f, q){
     var cell$0 = q[2], cell = cell$0;
      /*<<queue.ml:118:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:119:13>>*/ return 0 /*<<queue.ml:119:13>>*/ ;
+     if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
      var content = cell[1], next = cell[2];
-      /*<<queue.ml:121:6>>*/  /*<<queue.ml:121:6>>*/ caml_call1
-       /*<<queue.ml:121:6>>*/ (f, content);
+      /*<<queue.ml:121:6>>*/ caml_call1(f, content);
      cell = next;
     }
     /*<<queue.ml:124:27>>*/ }
    function fold(f, accu$1, q){
     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:129:13>>*/ ;
+     if(! cell)  /*<<queue.ml:129:13>>*/ return accu;
      var
       content = cell[1],
       next = cell[2],
-      accu$0 =
-         /*<<queue.ml:131:17>>*/  /*<<queue.ml:131:17>>*/ caml_call2
-          /*<<queue.ml:131:17>>*/ (f, accu, content);
+      accu$0 =  /*<<queue.ml:131:17>>*/ caml_call2(f, accu, content);
      accu = accu$0;
      cell = next;
     }
@@ -14711,18 +12068,17 @@
               = q2[1] + q1[1] | 0,
               match[2] = q1[2],
               q2[3] = q1[3],
-               /*<<queue.ml:148:6>>*/ clear /*<<queue.ml:148:6>>*/ (q1))
+               /*<<queue.ml:148:6>>*/ clear(q1))
             : (q2
                [1]
               = q1[1],
               q2[2] = q1[2],
               q2[3] = q1[3],
-               /*<<queue.ml:143:6>>*/ clear /*<<queue.ml:143:6>>*/ (q1)) /*<<queue.ml:148:14>>*/ ;
-    /*<<queue.ml:148:14>>*/ }
+               /*<<queue.ml:143:6>>*/ clear(q1)) /*<<queue.ml:148:14>>*/ ;
+   }
    function to_seq(q){
     function aux(c, param){
-      /*<<queue.ml:153:21>>*/ if(! c)
-       /*<<queue.ml:154:13>>*/ return 0 /*<<queue.ml:154:13>>*/ ;
+      /*<<queue.ml:153:21>>*/ if(! c)  /*<<queue.ml:154:13>>*/ return 0;
      var x = c[1], next = c[2];
       /*<<queue.ml:155:35>>*/ return [0,
              x,
@@ -14733,22 +12089,18 @@
       /*<<?>>*/ return aux(_a_, _b_);} /*<<queue.ml:153:2>>*/ ;
     /*<<queue.ml:157:13>>*/ }
    function add_seq(q, i){
-     /*<<queue.ml:159:18>>*/ return  /*<<queue.ml:159:18>>*/ caml_call2
-             /*<<queue.ml:159:18>>*/ (Stdlib_Seq[4],
+     /*<<queue.ml:159:18>>*/ return caml_call2
+            (Stdlib_Seq[4],
              function(x){
                /*<<queue.ml:159:37>>*/ return  /*<<queue.ml:152:11>>*/ add
-                       /*<<queue.ml:152:11>>*/ (x, q) /*<<queue.ml:159:45>>*/ ;
-              /*<<queue.ml:159:45>>*/ },
+                      (x, q) /*<<queue.ml:159:45>>*/ ;
+             },
              i) /*<<queue.ml:159:48>>*/ ;
-    /*<<queue.ml:159:48>>*/ }
+   }
    function of_seq(g){
-    var
-     q =
-        /*<<queue.ml:162:10>>*/  /*<<queue.ml:162:10>>*/ create
-         /*<<queue.ml:162:10>>*/ (0);
-     /*<<queue.ml:163:2>>*/  /*<<queue.ml:163:2>>*/ add_seq
-      /*<<queue.ml:163:2>>*/ (q, g);
-     /*<<queue.ml:163:2>>*/ return q /*<<queue.ml:163:2>>*/ ;
+    var q =  /*<<queue.ml:162:10>>*/ create(0);
+     /*<<queue.ml:163:2>>*/ add_seq(q, g);
+    return q;
     /*<<queue.ml:164:3>>*/ }
    var
     Stdlib_Queue =
@@ -14784,24 +12136,23 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_blit_string =  /*<<?>>*/ runtime.caml_blit_string,
-    caml_bswap16 =  /*<<?>>*/ runtime.caml_bswap16,
-    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
-    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
-    caml_bytes_set16 =  /*<<?>>*/ runtime.caml_bytes_set16,
-    caml_bytes_set32 =  /*<<?>>*/ runtime.caml_bytes_set32,
-    caml_bytes_set64 =  /*<<?>>*/ runtime.caml_bytes_set64,
-    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_int32_bswap =  /*<<?>>*/ runtime.caml_int32_bswap,
-    caml_int64_bswap =  /*<<?>>*/ runtime.caml_int64_bswap,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
-    caml_string_get =  /*<<?>>*/ runtime.caml_string_get,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    caml_blit_string = runtime.caml_blit_string,
+    caml_bswap16 = runtime.caml_bswap16,
+    caml_bytes_get = runtime.caml_bytes_get,
+    caml_bytes_set = runtime.caml_bytes_set,
+    caml_bytes_set16 = runtime.caml_bytes_set16,
+    caml_bytes_set32 = runtime.caml_bytes_set32,
+    caml_bytes_set64 = runtime.caml_bytes_set64,
+    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_int32_bswap = runtime.caml_int32_bswap,
+    caml_int64_bswap = runtime.caml_int64_bswap,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+    caml_ml_string_length = runtime.caml_ml_string_length,
+    caml_string_get = runtime.caml_string_get,
+    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)
@@ -14844,27 +12195,24 @@
     var
      n$0 = 1 <= n ? n : 1,
      n$1 = Stdlib_Sys[12] < n$0 ? Stdlib_Sys[12] : n$0,
-     s =
-        /*<<buffer.ml:43:9>>*/  /*<<buffer.ml:43:9>>*/ caml_create_bytes
-         /*<<buffer.ml:43:9>>*/ (n$1);
-     /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s] /*<<buffer.ml:44:1>>*/ ;
+     s =  /*<<buffer.ml:43:9>>*/ caml_create_bytes(n$1);
+     /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s];
     /*<<buffer.ml:44:71>>*/ }
    function contents(b){
      /*<<buffer.ml:46:17>>*/ return caml_call3
             (Stdlib_Bytes[8], b[1][1], 0, b[2]) /*<<buffer.ml:46:61>>*/ ;
-    /*<<buffer.ml:46:61>>*/ }
+   }
    function to_bytes(b){
      /*<<buffer.ml:47:17>>*/ return caml_call3
             (Stdlib_Bytes[7], b[1][1], 0, b[2]) /*<<buffer.ml:47:54>>*/ ;
-    /*<<buffer.ml:47:54>>*/ }
+   }
    function sub(b, ofs, len){
      /*<<buffer.ml:50:2>>*/ if
      (0 <= ofs && 0 <= len && (b[2] - len | 0) >= ofs)
-      /*<<buffer.ml:52:7>>*/ return  /*<<buffer.ml:52:7>>*/ caml_call3
-              /*<<buffer.ml:52:7>>*/ (Stdlib_Bytes[8], b[1][1], ofs, len) /*<<buffer.ml:52:46>>*/ ;
-     /*<<buffer.ml:51:7>>*/ return  /*<<buffer.ml:51:7>>*/ caml_call1
-             /*<<buffer.ml:51:7>>*/ (Stdlib[1], cst_Buffer_sub) /*<<buffer.ml:52:46>>*/ ;
-    /*<<buffer.ml:52:46>>*/ }
+      /*<<buffer.ml:52:7>>*/ return caml_call3
+             (Stdlib_Bytes[8], b[1][1], ofs, len) /*<<buffer.ml:52:46>>*/ ;
+     /*<<buffer.ml:51:7>>*/ return caml_call1(Stdlib[1], cst_Buffer_sub) /*<<buffer.ml:52:46>>*/ ;
+   }
    function blit(src, srcoff, dst, dstoff, len){
      /*<<buffer.ml:56:2>>*/ if
      (0 <= len
@@ -14873,16 +12221,10 @@
        &&
         (src[2] - len | 0) >= srcoff
         && 0 <= dstoff && (caml_ml_bytes_length(dst) - len | 0) >= dstoff)
-      /*<<buffer.ml:60:4>>*/ return  /*<<buffer.ml:60:4>>*/ caml_call5
-              /*<<buffer.ml:60:4>>*/ (Stdlib_Bytes[11],
-              src[1][1],
-              srcoff,
-              dst,
-              dstoff,
-              len) /*<<buffer.ml:60:53>>*/ ;
-     /*<<buffer.ml:58:7>>*/ return  /*<<buffer.ml:58:7>>*/ caml_call1
-             /*<<buffer.ml:58:7>>*/ (Stdlib[1], cst_Buffer_blit) /*<<buffer.ml:60:53>>*/ ;
-    /*<<buffer.ml:60:53>>*/ }
+      /*<<buffer.ml:60:4>>*/ return caml_call5
+             (Stdlib_Bytes[11], src[1][1], srcoff, dst, dstoff, len) /*<<buffer.ml:60:53>>*/ ;
+     /*<<buffer.ml:58:7>>*/ return caml_call1(Stdlib[1], cst_Buffer_blit) /*<<buffer.ml:60:53>>*/ ;
+   }
    function nth(b, ofs){
     var
      position = b[2],
@@ -14892,9 +12234,8 @@
      /*<<buffer.ml:66:2>>*/ if
      (0 <= ofs && position > ofs && length >= position)
      return runtime.caml_bytes_unsafe_get(buffer, ofs) /*<<buffer.ml:68:34>>*/ ;
-     /*<<buffer.ml:67:3>>*/ return  /*<<buffer.ml:67:3>>*/ caml_call1
-             /*<<buffer.ml:67:3>>*/ (Stdlib[1], cst_Buffer_nth) /*<<buffer.ml:68:34>>*/ ;
-    /*<<buffer.ml:68:34>>*/ }
+     /*<<buffer.ml:67:3>>*/ return caml_call1(Stdlib[1], cst_Buffer_nth) /*<<buffer.ml:68:34>>*/ ;
+   }
    function length(b){
      /*<<buffer.ml:71:15>>*/ return b[2];
     /*<<buffer.ml:71:25>>*/ }
@@ -14921,19 +12262,11 @@
      if((old_pos + more | 0) <= Stdlib_Sys[12])
       new_len[1] = Stdlib_Sys[12];
      else
-       /*<<buffer.ml:94:9>>*/  /*<<buffer.ml:94:9>>*/ caml_call1
-        /*<<buffer.ml:94:9>>*/ (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
-    var
-     new_buffer =
-        /*<<buffer.ml:96:19>>*/  /*<<buffer.ml:96:19>>*/ caml_create_bytes
-         /*<<buffer.ml:96:19>>*/ (new_len[1]);
-     /*<<buffer.ml:99:2>>*/  /*<<buffer.ml:99:2>>*/ caml_call5
-      /*<<buffer.ml:99:2>>*/ (Stdlib_Bytes[11],
-      b[1][1],
-      0,
-      new_buffer,
-      0,
-      b[2]);
+       /*<<buffer.ml:94:9>>*/ caml_call1
+       (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
+    var new_buffer =  /*<<buffer.ml:96:19>>*/ caml_create_bytes(new_len[1]);
+     /*<<buffer.ml:99:2>>*/ caml_call5
+     (Stdlib_Bytes[11], b[1][1], 0, new_buffer, 0, b[2]);
     b[1] = [0, new_buffer, new_len[1]];
     /*<<buffer.ml:100:55>>*/ }
    function add_char(b, c){
@@ -14943,10 +12276,8 @@
      length = match[2],
      buffer = match[1];
     if(length <= pos){
-      /*<<buffer.ml:116:4>>*/  /*<<buffer.ml:116:4>>*/ resize
-       /*<<buffer.ml:116:4>>*/ (b, 1);
-      /*<<buffer.ml:117:4>>*/  /*<<buffer.ml:117:4>>*/ caml_bytes_set
-       /*<<buffer.ml:117:4>>*/ (b[1][1], b[2], c);
+      /*<<buffer.ml:116:4>>*/ resize(b, 1);
+      /*<<buffer.ml:117:4>>*/ caml_bytes_set(b[1][1], b[2], c);
     }
     else
      caml_bytes_unsafe_set(buffer, pos, c);
@@ -14964,45 +12295,39 @@
      /*<<buffer.ml:126:2>>*/ for(;;){
      var pos = b[2];
      if(b[1][2] <= pos)
-       /*<<buffer.ml:127:32>>*/  /*<<buffer.ml:127:32>>*/ resize
-        /*<<buffer.ml:127:32>>*/ (b, uchar_utf_8_byte_length_max);
+       /*<<buffer.ml:127:32>>*/ resize(b, uchar_utf_8_byte_length_max);
      var
       n =
-         /*<<buffer.ml:128:10>>*/  /*<<buffer.ml:128:10>>*/ caml_call3
-          /*<<buffer.ml:128:10>>*/ (Stdlib_Bytes[51], b[1][1], pos, u);
+         /*<<buffer.ml:128:10>>*/ caml_call3
+         (Stdlib_Bytes[51], b[1][1], pos, u);
       /*<<buffer.ml:129:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
-      /*<<buffer.ml:130:8>>*/  /*<<buffer.ml:130:8>>*/ resize
-       /*<<buffer.ml:130:8>>*/ (b, uchar_utf_8_byte_length_max);
+      /*<<buffer.ml:130:8>>*/ resize(b, uchar_utf_8_byte_length_max);
     }
     /*<<buffer.ml:131:30>>*/ }
    function add_utf_16be_uchar(b, u){
      /*<<buffer.ml:134:2>>*/ for(;;){
      var pos = b[2];
      if(b[1][2] <= pos)
-       /*<<buffer.ml:135:32>>*/  /*<<buffer.ml:135:32>>*/ resize
-        /*<<buffer.ml:135:32>>*/ (b, uchar_utf_16_byte_length_max);
+       /*<<buffer.ml:135:32>>*/ resize(b, uchar_utf_16_byte_length_max);
      var
       n =
-         /*<<buffer.ml:136:10>>*/  /*<<buffer.ml:136:10>>*/ caml_call3
-          /*<<buffer.ml:136:10>>*/ (Stdlib_Bytes[54], b[1][1], pos, u);
+         /*<<buffer.ml:136:10>>*/ caml_call3
+         (Stdlib_Bytes[54], b[1][1], pos, u);
       /*<<buffer.ml:137:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
-      /*<<buffer.ml:138:8>>*/  /*<<buffer.ml:138:8>>*/ resize
-       /*<<buffer.ml:138:8>>*/ (b, uchar_utf_16_byte_length_max);
+      /*<<buffer.ml:138:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:139:30>>*/ }
    function add_utf_16le_uchar(b, u){
      /*<<buffer.ml:142:2>>*/ for(;;){
      var pos = b[2];
      if(b[1][2] <= pos)
-       /*<<buffer.ml:143:32>>*/  /*<<buffer.ml:143:32>>*/ resize
-        /*<<buffer.ml:143:32>>*/ (b, uchar_utf_16_byte_length_max);
+       /*<<buffer.ml:143:32>>*/ resize(b, uchar_utf_16_byte_length_max);
      var
       n =
-         /*<<buffer.ml:144:10>>*/  /*<<buffer.ml:144:10>>*/ caml_call3
-          /*<<buffer.ml:144:10>>*/ (Stdlib_Bytes[57], b[1][1], pos, u);
+         /*<<buffer.ml:144:10>>*/ caml_call3
+         (Stdlib_Bytes[57], b[1][1], pos, u);
       /*<<buffer.ml:145:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
-      /*<<buffer.ml:146:8>>*/  /*<<buffer.ml:146:8>>*/ resize
-       /*<<buffer.ml:146:8>>*/ (b, uchar_utf_16_byte_length_max);
+      /*<<buffer.ml:146:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:147:30>>*/ }
    function add_substring(b, s, offset, len){
@@ -15014,8 +12339,8 @@
       _u_ = len < 0 ? 1 : 0,
       _t_ = _u_ || ((caml_ml_string_length(s) - len | 0) < offset ? 1 : 0);
     if(_t_)
-      /*<<buffer.ml:151:7>>*/  /*<<buffer.ml:151:7>>*/ caml_call1
-       /*<<buffer.ml:151:7>>*/ (Stdlib[1], cst_Buffer_add_substring_add_s);
+      /*<<buffer.ml:151:7>>*/ caml_call1
+      (Stdlib[1], cst_Buffer_add_substring_add_s);
     var
      position = b[2],
      match =  /*<<buffer.ml:153:2>>*/ b[1],
@@ -15023,30 +12348,23 @@
      buffer = match[1],
      new_position = position + len | 0;
     if(length < new_position){
-      /*<<buffer.ml:156:4>>*/  /*<<buffer.ml:156:4>>*/ resize
-       /*<<buffer.ml:156:4>>*/ (b, len);
-      /*<<buffer.ml:157:4>>*/  /*<<buffer.ml:157:4>>*/ caml_call5
-       /*<<buffer.ml:157:4>>*/ (Stdlib_Bytes[12],
-       s,
-       offset,
-       b[1][1],
-       b[2],
-       len);
+      /*<<buffer.ml:156:4>>*/ resize(b, len);
+      /*<<buffer.ml:157:4>>*/ caml_call5
+      (Stdlib_Bytes[12], s, offset, b[1][1], b[2], len);
     }
     else
-      /*<<buffer.ml:159:4>>*/  /*<<buffer.ml:159:4>>*/ caml_blit_string
-       /*<<buffer.ml:159:4>>*/ (s, offset, buffer, position, len);
+      /*<<buffer.ml:159:4>>*/ caml_blit_string
+      (s, offset, buffer, position, len);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
-     /*<<buffer.ml:163:2>>*/ return  /*<<buffer.ml:163:2>>*/ add_substring
-             /*<<buffer.ml:163:2>>*/ (b,
-              /*<<buffer.ml:163:18>>*/ caml_call1
-               /*<<buffer.ml:163:18>>*/ (Stdlib_Bytes[44], s),
+     /*<<buffer.ml:163:2>>*/ return add_substring
+            (b,
+              /*<<buffer.ml:163:18>>*/ caml_call1(Stdlib_Bytes[44], s),
              offset,
              len) /*<<buffer.ml:163:55>>*/ ;
-    /*<<buffer.ml:163:55>>*/ }
+   }
    function add_string(b, s){
     var
      len = caml_ml_string_length(s),
@@ -15056,37 +12374,31 @@
      buffer = match[1],
      new_position = position + len | 0;
     if(length < new_position){
-      /*<<buffer.ml:171:4>>*/  /*<<buffer.ml:171:4>>*/ resize
-       /*<<buffer.ml:171:4>>*/ (b, len);
-      /*<<buffer.ml:172:4>>*/  /*<<buffer.ml:172:4>>*/ caml_call5
-       /*<<buffer.ml:172:4>>*/ (Stdlib_Bytes[12], s, 0, b[1][1], b[2], len);
+      /*<<buffer.ml:171:4>>*/ resize(b, len);
+      /*<<buffer.ml:172:4>>*/ caml_call5
+      (Stdlib_Bytes[12], s, 0, b[1][1], b[2], len);
     }
     else
-      /*<<buffer.ml:174:4>>*/  /*<<buffer.ml:174:4>>*/ caml_blit_string
-       /*<<buffer.ml:174:4>>*/ (s, 0, buffer, position, len);
+      /*<<buffer.ml:174:4>>*/ caml_blit_string(s, 0, buffer, position, len);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
      /*<<buffer.ml:177:20>>*/ return  /*<<buffer.ml:177:33>>*/ add_string
-             /*<<buffer.ml:177:33>>*/ (b,
-              /*<<buffer.ml:177:33>>*/ caml_call1
-               /*<<buffer.ml:177:33>>*/ (Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
-    /*<<buffer.ml:177:59>>*/ }
+            (b, caml_call1(Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
+   }
    function add_buffer(b, bs){
      /*<<buffer.ml:180:2>>*/ return  /*<<buffer.ml:177:14>>*/ add_subbytes
-             /*<<buffer.ml:177:14>>*/ (b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
-    /*<<buffer.ml:180:46>>*/ }
+            (b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
+   }
    function add_channel(b, ic, to_read$1){
     var
      _q_ = to_read$1 < 0 ? 1 : 0,
      _r_ = _q_ || (Stdlib_Sys[12] < to_read$1 ? 1 : 0);
     if(_r_)
-      /*<<buffer.ml:207:4>>*/  /*<<buffer.ml:207:4>>*/ caml_call1
-       /*<<buffer.ml:207:4>>*/ (Stdlib[1], cst_Buffer_add_channel);
+      /*<<buffer.ml:207:4>>*/ caml_call1(Stdlib[1], cst_Buffer_add_channel);
     if(b[1][2] < (b[2] + to_read$1 | 0))
-      /*<<buffer.ml:200:44>>*/  /*<<buffer.ml:200:44>>*/ resize
-       /*<<buffer.ml:200:44>>*/ (b, to_read$1);
+      /*<<buffer.ml:200:44>>*/ resize(b, to_read$1);
     var
      ofs$1 = b[2],
      buf = b[1][1],
@@ -15097,8 +12409,8 @@
      if(0 !== to_read){
       var
        r =
-          /*<<buffer.ml:187:14>>*/  /*<<buffer.ml:187:14>>*/ caml_call4
-           /*<<buffer.ml:187:14>>*/ (Stdlib[84], ic, buf, ofs, to_read);
+          /*<<buffer.ml:187:14>>*/ caml_call4
+          (Stdlib[84], ic, buf, ofs, to_read);
        /*<<buffer.ml:188:6>>*/ if(0 !== r){
        var
         already_read$0 = already_read + r | 0,
@@ -15112,34 +12424,27 @@
      }
      b[2] = b[2] + already_read | 0;
      if(already_read < to_read$1)
-       /*<<buffer.ml:211:18>>*/ throw  /*<<buffer.ml:211:18>>*/ caml_maybe_attach_backtrace
-              /*<<buffer.ml:211:18>>*/ (Stdlib[12], 1);
-      /*<<buffer.ml:212:2>>*/ return 0 /*<<buffer.ml:212:2>>*/ ;
+       /*<<buffer.ml:211:18>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[12], 1);
+      /*<<buffer.ml:212:2>>*/ return 0;
     }
     /*<<buffer.ml:212:4>>*/ }
    function output_buffer(oc, b){
      /*<<buffer.ml:215:2>>*/ return caml_call4
             (Stdlib[68], oc, b[1][1], 0, b[2]) /*<<buffer.ml:215:39>>*/ ;
-    /*<<buffer.ml:215:39>>*/ }
+   }
    function add_substitute(b, f, s){
     var lim$1 = caml_ml_string_length(s), previous = 32, i$4 = 0;
      /*<<buffer.ml:263:4>>*/ for(;;){
      if(i$4 >= lim$1){
       var _o_ = 92 === previous ? 1 : 0;
-      return _o_
-              ?  /*<<buffer.ml:283:28>>*/ add_char
-                 /*<<buffer.ml:283:28>>*/ (b, previous)
-              : _o_ /*<<buffer.ml:284:13>>*/ ;
+      return _o_ ?  /*<<buffer.ml:283:28>>*/ add_char(b, previous) : _o_ /*<<buffer.ml:284:13>>*/ ;
      }
-     var
-      previous$0 =
-         /*<<buffer.ml:264:12>>*/  /*<<buffer.ml:264:12>>*/ caml_string_get
-          /*<<buffer.ml:264:12>>*/ (s, i$4);
+     var previous$0 =  /*<<buffer.ml:264:12>>*/ caml_string_get(s, i$4);
      if(36 === previous$0)
       if(92 === previous){
-        /*<<buffer.ml:266:9>>*/  /*<<buffer.ml:266:9>>*/ add_char
-         /*<<buffer.ml:266:9>>*/ (b, previous$0);
-       var i$5 =  /*<<buffer.ml:266:9>>*/ i$4 + 1 | 0;
+        /*<<buffer.ml:266:9>>*/ add_char(b, previous$0);
+       var i$5 = i$4 + 1 | 0;
        previous = 32;
        i$4 = i$5;
       }
@@ -15147,12 +12452,9 @@
        var start =  /*<<buffer.ml:269:9>>*/ i$4 + 1 | 0;
         /*<<buffer.ml:270:9>>*/ try{
         if(lim$1 <= start)
-          /*<<buffer.ml:245:23>>*/ throw  /*<<buffer.ml:245:23>>*/ caml_maybe_attach_backtrace
-                 /*<<buffer.ml:245:23>>*/ (Stdlib[8], 1);
-        var
-         opening =
-            /*<<buffer.ml:246:8>>*/  /*<<buffer.ml:246:8>>*/ caml_string_get
-             /*<<buffer.ml:246:8>>*/ (s, start);
+          /*<<buffer.ml:245:23>>*/ throw caml_maybe_attach_backtrace
+                (Stdlib[8], 1);
+        var opening =  /*<<buffer.ml:246:8>>*/ caml_string_get(s, start);
         a:
         {
          if(40 !== opening && 123 !== opening){
@@ -15166,10 +12468,7 @@
              var i$2 = start;
               /*<<buffer.ml:237:4>>*/ for(;;){
               if(lim$0 <= i$2) break c;
-              var
-               match =
-                  /*<<buffer.ml:238:10>>*/  /*<<buffer.ml:238:10>>*/ caml_string_get
-                   /*<<buffer.ml:238:10>>*/ (s, i$2);
+              var match =  /*<<buffer.ml:238:10>>*/ caml_string_get(s, i$2);
               if(91 <= match){
                if(97 <= match){
                 if(123 <= match) break d;
@@ -15191,16 +12490,13 @@
            var stop$0 = lim$0;
           }
           if(stop$0 === start)
-            /*<<buffer.ml:255:26>>*/ throw  /*<<buffer.ml:255:26>>*/ caml_maybe_attach_backtrace
-                   /*<<buffer.ml:255:26>>*/ (Stdlib[8], 1);
+            /*<<buffer.ml:255:26>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
           var
            val =
              [0,
                /*<<buffer.ml:256:5>>*/ caml_call3
-                /*<<buffer.ml:256:5>>*/ (Stdlib_String[16],
-                s,
-                start,
-                stop$0 - start | 0),
+               (Stdlib_String[16], s, start, stop$0 - start | 0),
               stop$0];
           break a;
          }
@@ -15209,27 +12505,18 @@
           var closing = 41;
          else{
           if(123 !== opening)
-            /*<<buffer.ml:220:9>>*/ throw  /*<<buffer.ml:220:9>>*/ caml_maybe_attach_backtrace
-                   /*<<buffer.ml:220:9>>*/ ([0, Assert_failure, _a_], 1);
+            /*<<buffer.ml:220:9>>*/ throw caml_maybe_attach_backtrace
+                  ([0, Assert_failure, _a_], 1);
           var closing = 125;
          }
          var lim = caml_ml_string_length(s), k = k$2, stop = new_start;
           /*<<buffer.ml:228:4>>*/ for(;;){
           if(lim <= stop)
-            /*<<buffer.ml:228:21>>*/ throw  /*<<buffer.ml:228:21>>*/ caml_maybe_attach_backtrace
-                   /*<<buffer.ml:228:21>>*/ (Stdlib[8], 1);
-          if
-           ( /*<<buffer.ml:229:7>>*/ caml_string_get
-              /*<<buffer.ml:229:7>>*/ (s, stop)
-            === opening){
-           var i = stop + 1 | 0, k$0 = k + 1 | 0;
-           k = k$0;
-           stop = i;
-          }
+            /*<<buffer.ml:228:21>>*/ throw caml_maybe_attach_backtrace
+                  (Stdlib[8], 1);
+          if( /*<<buffer.ml:229:7>>*/ caml_string_get(s, stop) === opening){var i = stop + 1 | 0, k$0 = k + 1 | 0; k = k$0; stop = i;}
           else if
-           ( /*<<buffer.ml:230:7>>*/ caml_string_get
-              /*<<buffer.ml:230:7>>*/ (s, stop)
-            === closing){
+           ( /*<<buffer.ml:230:7>>*/ caml_string_get(s, stop) === closing){
            if(0 === k) break;
            var i$0 = stop + 1 | 0, k$1 = k - 1 | 0;
            k = k$1;
@@ -15241,38 +12528,28 @@
           val =
             [0,
               /*<<buffer.ml:251:5>>*/ caml_call3
-               /*<<buffer.ml:251:5>>*/ (Stdlib_String[16],
-               s,
-               new_start,
-               (stop - start | 0) - 1 | 0),
+              (Stdlib_String[16], s, new_start, (stop - start | 0) - 1 | 0),
              stop + 1 | 0];
         }
        }
        catch(_p_){
         var _n_ = caml_wrap_exception(_p_);
         if(_n_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_n_, 0);
-         /*<<buffer.ml:275:11>>*/  /*<<buffer.ml:275:11>>*/ add_char
-          /*<<buffer.ml:275:11>>*/ (b, 36);
+         /*<<buffer.ml:275:11>>*/ add_char(b, 36);
         previous = 32;
         i$4 = start;
         continue;
        }
        var next_i = val[2], ident = val[1];
-        /*<<buffer.ml:272:11>>*/  /*<<buffer.ml:272:11>>*/ add_string
-         /*<<buffer.ml:272:11>>*/ (b,
-          /*<<buffer.ml:272:24>>*/ caml_call1
-           /*<<buffer.ml:272:24>>*/ (f, ident));
+        /*<<buffer.ml:272:11>>*/ add_string
+        (b,  /*<<buffer.ml:272:24>>*/ caml_call1(f, ident));
        previous = 32;
        i$4 = next_i;
       }
      else{
-      if(92 === previous)
-        /*<<buffer.ml:279:33>>*/  /*<<buffer.ml:279:33>>*/ add_char
-         /*<<buffer.ml:279:33>>*/ (b, previous);
-      if(92 !== previous$0)
-        /*<<buffer.ml:280:33>>*/  /*<<buffer.ml:280:33>>*/ add_char
-         /*<<buffer.ml:280:33>>*/ (b, previous$0);
-      var i$6 =  /*<<buffer.ml:280:33>>*/ i$4 + 1 | 0;
+      if(92 === previous)  /*<<buffer.ml:279:33>>*/ add_char(b, previous);
+      if(92 !== previous$0)  /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
+      var i$6 = i$4 + 1 | 0;
       previous = previous$0;
       i$4 = i$6;
      }
@@ -15280,57 +12557,48 @@
     /*<<buffer.ml:284:13>>*/ }
    function truncate(b, len){
      /*<<buffer.ml:287:4>>*/ if(0 <= len && b[2] >= len){b[2] = len; return 0;}
-     /*<<buffer.ml:288:6>>*/ return  /*<<buffer.ml:288:6>>*/ caml_call1
-             /*<<buffer.ml:288:6>>*/ (Stdlib[1], cst_Buffer_truncate) /*<<buffer.ml:290:23>>*/ ;
-    /*<<buffer.ml:290:23>>*/ }
+     /*<<buffer.ml:288:6>>*/ return caml_call1(Stdlib[1], cst_Buffer_truncate) /*<<buffer.ml:290:23>>*/ ;
+   }
    function to_seq(b){
     function aux(i, param){
       /*<<buffer.ml:297:4>>*/ if(b[2] <= i)
-       /*<<buffer.ml:297:28>>*/ return 0 /*<<buffer.ml:297:28>>*/ ;
+       /*<<buffer.ml:297:28>>*/ return 0;
      var
-      x =
-         /*<<buffer.ml:299:14>>*/  /*<<buffer.ml:299:14>>*/ caml_bytes_get
-          /*<<buffer.ml:299:14>>*/ (b[1][1], i),
-      _l_ =  /*<<buffer.ml:299:14>>*/ i + 1 | 0;
+      x =  /*<<buffer.ml:299:14>>*/ caml_bytes_get(b[1][1], i),
+      _l_ = i + 1 | 0;
       /*<<buffer.ml:300:6>>*/ return [0,
              x,
              function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:6>>*/ ;
      /*<<buffer.ml:300:29>>*/ }
     var _j_ =  /*<<buffer.ml:302:2>>*/ 0;
-     /*<<buffer.ml:302:2>>*/ return function(_k_){
+    return function(_k_){
       /*<<?>>*/ return aux(_j_, _k_);} /*<<buffer.ml:302:2>>*/ ;
     /*<<buffer.ml:302:7>>*/ }
    function to_seqi(b){
     function aux(i, param){
       /*<<buffer.ml:307:4>>*/ if(b[2] <= i)
-       /*<<buffer.ml:307:28>>*/ return 0 /*<<buffer.ml:307:28>>*/ ;
+       /*<<buffer.ml:307:28>>*/ return 0;
      var
-      x =
-         /*<<buffer.ml:309:14>>*/  /*<<buffer.ml:309:14>>*/ caml_bytes_get
-          /*<<buffer.ml:309:14>>*/ (b[1][1], i),
-      _h_ =  /*<<buffer.ml:309:14>>*/ i + 1 | 0;
+      x =  /*<<buffer.ml:309:14>>*/ caml_bytes_get(b[1][1], i),
+      _h_ = i + 1 | 0;
       /*<<buffer.ml:310:6>>*/ return [0,
              [0, i, x],
              function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:6>>*/ ;
      /*<<buffer.ml:310:33>>*/ }
     var _f_ =  /*<<buffer.ml:312:2>>*/ 0;
-     /*<<buffer.ml:312:2>>*/ return function(_g_){
+    return function(_g_){
       /*<<?>>*/ return aux(_f_, _g_);} /*<<buffer.ml:312:2>>*/ ;
     /*<<buffer.ml:312:7>>*/ }
    function add_seq(b, seq){
-     /*<<buffer.ml:314:20>>*/ return  /*<<buffer.ml:314:20>>*/ caml_call2
-             /*<<buffer.ml:314:20>>*/ (Stdlib_Seq[4],
+     /*<<buffer.ml:314:20>>*/ return caml_call2
+            (Stdlib_Seq[4],
              function(_e_){ /*<<?>>*/ return add_char(b, _e_);},
              seq) /*<<buffer.ml:314:45>>*/ ;
-    /*<<buffer.ml:314:45>>*/ }
+   }
    function of_seq(i){
-    var
-     b =
-        /*<<buffer.ml:317:10>>*/  /*<<buffer.ml:317:10>>*/ create
-         /*<<buffer.ml:317:10>>*/ (32);
-     /*<<buffer.ml:318:2>>*/  /*<<buffer.ml:318:2>>*/ add_seq
-      /*<<buffer.ml:318:2>>*/ (b, i);
-     /*<<buffer.ml:318:2>>*/ return b /*<<buffer.ml:318:2>>*/ ;
+    var b =  /*<<buffer.ml:317:10>>*/ create(32);
+     /*<<buffer.ml:318:2>>*/ add_seq(b, i);
+    return b;
     /*<<buffer.ml:319:3>>*/ }
    function add_int8(b, x){
     var
@@ -15340,10 +12608,8 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:340:2>>*/ position + 1 | 0;
     if(length < new_position){
-      /*<<buffer.ml:342:4>>*/  /*<<buffer.ml:342:4>>*/ resize
-       /*<<buffer.ml:342:4>>*/ (b, 1);
-      /*<<buffer.ml:343:4>>*/  /*<<buffer.ml:343:4>>*/ caml_bytes_set
-       /*<<buffer.ml:343:4>>*/ (b[1][1], b[2], x);
+      /*<<buffer.ml:342:4>>*/ resize(b, 1);
+      /*<<buffer.ml:343:4>>*/ caml_bytes_set(b[1][1], b[2], x);
     }
     else
      caml_bytes_unsafe_set(buffer, position, x);
@@ -15358,14 +12624,11 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:351:2>>*/ position + 2 | 0;
     if(length < new_position){
-      /*<<buffer.ml:353:4>>*/  /*<<buffer.ml:353:4>>*/ resize
-       /*<<buffer.ml:353:4>>*/ (b, 2);
-      /*<<buffer.ml:354:4>>*/  /*<<buffer.ml:354:4>>*/ caml_bytes_set16
-       /*<<buffer.ml:354:4>>*/ (b[1][1], b[2], x);
+      /*<<buffer.ml:353:4>>*/ resize(b, 2);
+      /*<<buffer.ml:354:4>>*/ caml_bytes_set16(b[1][1], b[2], x);
     }
     else
-      /*<<buffer.ml:356:4>>*/  /*<<buffer.ml:356:4>>*/ caml_bytes_set16
-       /*<<buffer.ml:356:4>>*/ (buffer, position, x);
+      /*<<buffer.ml:356:4>>*/ caml_bytes_set16(buffer, position, x);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:357:28>>*/ }
@@ -15377,14 +12640,11 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:362:2>>*/ position + 4 | 0;
     if(length < new_position){
-      /*<<buffer.ml:364:4>>*/  /*<<buffer.ml:364:4>>*/ resize
-       /*<<buffer.ml:364:4>>*/ (b, 4);
-      /*<<buffer.ml:365:4>>*/  /*<<buffer.ml:365:4>>*/ caml_bytes_set32
-       /*<<buffer.ml:365:4>>*/ (b[1][1], b[2], x);
+      /*<<buffer.ml:364:4>>*/ resize(b, 4);
+      /*<<buffer.ml:365:4>>*/ caml_bytes_set32(b[1][1], b[2], x);
     }
     else
-      /*<<buffer.ml:367:4>>*/  /*<<buffer.ml:367:4>>*/ caml_bytes_set32
-       /*<<buffer.ml:367:4>>*/ (buffer, position, x);
+      /*<<buffer.ml:367:4>>*/ caml_bytes_set32(buffer, position, x);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:368:28>>*/ }
@@ -15396,67 +12656,42 @@
      buffer = match[1],
      new_position =  /*<<buffer.ml:373:2>>*/ position + 8 | 0;
     if(length < new_position){
-      /*<<buffer.ml:375:4>>*/  /*<<buffer.ml:375:4>>*/ resize
-       /*<<buffer.ml:375:4>>*/ (b, 8);
-      /*<<buffer.ml:376:4>>*/  /*<<buffer.ml:376:4>>*/ caml_bytes_set64
-       /*<<buffer.ml:376:4>>*/ (b[1][1], b[2], x);
+      /*<<buffer.ml:375:4>>*/ resize(b, 8);
+      /*<<buffer.ml:376:4>>*/ caml_bytes_set64(b[1][1], b[2], x);
     }
     else
-      /*<<buffer.ml:378:4>>*/  /*<<buffer.ml:378:4>>*/ caml_bytes_set64
-       /*<<buffer.ml:378:4>>*/ (buffer, position, x);
+      /*<<buffer.ml:378:4>>*/ caml_bytes_set64(buffer, position, x);
     b[2] = new_position;
     return 0;
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
     var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
-     /*<<buffer.ml:370:17>>*/ return  /*<<buffer.ml:370:17>>*/ add_int16_ne
-             /*<<buffer.ml:370:17>>*/ (b, _d_) /*<<buffer.ml:382:57>>*/ ;
-    /*<<buffer.ml:382:57>>*/ }
+     /*<<buffer.ml:370:17>>*/ return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
+   }
    function add_int16_be(b, x){
     var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
-     /*<<buffer.ml:385:41>>*/ return  /*<<buffer.ml:385:41>>*/ add_int16_ne
-             /*<<buffer.ml:385:41>>*/ (b, x$0) /*<<buffer.ml:385:57>>*/ ;
-    /*<<buffer.ml:385:57>>*/ }
+     /*<<buffer.ml:385:41>>*/ return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
+   }
    function add_int32_le(b, x){
     var
-     _c_ =
-       Stdlib_Sys[11]
-        ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap
-           /*<<buffer.ml:388:41>>*/ (x)
-        : x;
-     /*<<buffer.ml:388:41>>*/ return  /*<<buffer.ml:388:41>>*/ add_int32_ne
-             /*<<buffer.ml:388:41>>*/ (b, _c_) /*<<buffer.ml:388:57>>*/ ;
-    /*<<buffer.ml:388:57>>*/ }
+     _c_ = Stdlib_Sys[11] ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap(x) : x;
+    return add_int32_ne(b, _c_) /*<<buffer.ml:388:57>>*/ ;
+   }
    function add_int32_be(b, x){
     var
-     x$0 =
-       Stdlib_Sys[11]
-        ? x
-        :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap
-           /*<<buffer.ml:391:48>>*/ (x);
-     /*<<buffer.ml:391:48>>*/ return  /*<<buffer.ml:391:48>>*/ add_int32_ne
-             /*<<buffer.ml:391:48>>*/ (b, x$0) /*<<buffer.ml:391:57>>*/ ;
-    /*<<buffer.ml:391:57>>*/ }
+     x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap(x);
+    return add_int32_ne(b, x$0) /*<<buffer.ml:391:57>>*/ ;
+   }
    function add_int64_le(b, x){
     var
-     _b_ =
-       Stdlib_Sys[11]
-        ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap
-           /*<<buffer.ml:394:41>>*/ (x)
-        : x;
-     /*<<buffer.ml:394:41>>*/ return  /*<<buffer.ml:394:41>>*/ add_int64_ne
-             /*<<buffer.ml:394:41>>*/ (b, _b_) /*<<buffer.ml:394:57>>*/ ;
-    /*<<buffer.ml:394:57>>*/ }
+     _b_ = Stdlib_Sys[11] ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap(x) : x;
+    return add_int64_ne(b, _b_) /*<<buffer.ml:394:57>>*/ ;
+   }
    function add_int64_be(b, x){
     var
-     x$0 =
-       Stdlib_Sys[11]
-        ? x
-        :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap
-           /*<<buffer.ml:397:48>>*/ (x);
-     /*<<buffer.ml:397:48>>*/ return  /*<<buffer.ml:397:48>>*/ add_int64_ne
-             /*<<buffer.ml:397:48>>*/ (b, x$0) /*<<buffer.ml:397:57>>*/ ;
-    /*<<buffer.ml:397:57>>*/ }
+     x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap(x);
+    return add_int64_ne(b, x$0) /*<<buffer.ml:397:57>>*/ ;
+   }
    var
     Stdlib_Buffer =
       [0,
@@ -15509,36 +12744,26 @@
 (function(globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_mutex_lock =  /*<<?>>*/ runtime.caml_ml_mutex_lock,
-    caml_ml_mutex_unlock =  /*<<?>>*/ runtime.caml_ml_mutex_unlock,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_mutex_lock = runtime.caml_ml_mutex_lock,
+    caml_ml_mutex_unlock = runtime.caml_ml_mutex_unlock,
+    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 protect(m, f){
-     /*<<mutex.ml:27:2>>*/  /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock
-      /*<<mutex.ml:27:2>>*/ (m);
-     /*<<mutex.ml:27:2>>*/ try{
-     var
-      x =
-         /*<<mutex.ml:28:8>>*/  /*<<mutex.ml:28:8>>*/ caml_call1
-          /*<<mutex.ml:28:8>>*/ (f, 0);
-    }
+     /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock(m);
+    try{var x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);}
     catch(e$0){
      var e = caml_wrap_exception(e$0);
-      /*<<mutex.ml:33:4>>*/  /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock
-       /*<<mutex.ml:33:4>>*/ (m);
-      /*<<mutex.ml:34:4>>*/ throw  /*<<mutex.ml:34:4>>*/ caml_maybe_attach_backtrace
-             /*<<mutex.ml:34:4>>*/ (e, 0);
-    }
-     /*<<mutex.ml:30:4>>*/  /*<<mutex.ml:30:4>>*/ caml_ml_mutex_unlock
-      /*<<mutex.ml:30:4>>*/ (m);
-     /*<<mutex.ml:30:4>>*/ return x /*<<mutex.ml:30:4>>*/ ;
+      /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock(m);
+      /*<<mutex.ml:34:4>>*/ throw caml_maybe_attach_backtrace(e, 0);
+    }
+     /*<<mutex.ml:30:4>>*/ caml_ml_mutex_unlock(m);
+    return x;
     /*<<mutex.ml:34:13>>*/ }
    var
     Stdlib_Mutex =
@@ -15557,7 +12782,7 @@
 (function(globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     Stdlib_Condition =
       [0,
        runtime.caml_ml_condition_new,
@@ -15566,7 +12791,7 @@
        runtime.caml_ml_condition_broadcast];
    runtime.caml_register_global(0, Stdlib_Condition, "Stdlib__Condition");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Semaphore
@@ -15575,9 +12800,8 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace;
+    runtime = globalThis.jsoo_runtime,
+    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
             ? f(a0)
@@ -15598,54 +12822,40 @@
     cst_Semaphore_Counting_release = "Semaphore.Counting.release: overflow";
    function make(v){
      /*<<semaphore.ml:29:2>>*/ if(v < 0)
-      /*<<semaphore.ml:29:16>>*/  /*<<semaphore.ml:29:16>>*/ caml_call1
-       /*<<semaphore.ml:29:16>>*/ (Stdlib[1], cst_Semaphore_Counting_init_wr);
-    var
-     _c_ =
-        /*<<semaphore.ml:30:39>>*/  /*<<semaphore.ml:30:39>>*/ caml_call1
-         /*<<semaphore.ml:30:39>>*/ (Stdlib_Condition[1], 0);
+      /*<<semaphore.ml:29:16>>*/ caml_call1
+      (Stdlib[1], cst_Semaphore_Counting_init_wr);
+    var _c_ =  /*<<semaphore.ml:30:39>>*/ caml_call1(Stdlib_Condition[1], 0);
      /*<<semaphore.ml:30:2>>*/ return [0,
-             /*<<semaphore.ml:30:10>>*/ caml_call1
-              /*<<semaphore.ml:30:10>>*/ (Stdlib_Mutex[1], 0),
+             /*<<semaphore.ml:30:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
             v,
             _c_] /*<<semaphore.ml:30:2>>*/ ;
     /*<<semaphore.ml:30:59>>*/ }
    function release(s){
-     /*<<semaphore.ml:33:2>>*/  /*<<semaphore.ml:33:2>>*/ caml_call1
-      /*<<semaphore.ml:33:2>>*/ (Stdlib_Mutex[2], s[1]);
+     /*<<semaphore.ml:33:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
     if(s[2] < Stdlib[19]){
      s[2] = s[2] + 1 | 0;
-      /*<<semaphore.ml:36:4>>*/  /*<<semaphore.ml:36:4>>*/ caml_call1
-       /*<<semaphore.ml:36:4>>*/ (Stdlib_Condition[3], s[3]);
+      /*<<semaphore.ml:36:4>>*/ caml_call1(Stdlib_Condition[3], s[3]);
      return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:41:5>>*/ ;
     }
-     /*<<semaphore.ml:39:4>>*/  /*<<semaphore.ml:39:4>>*/ caml_call1
-      /*<<semaphore.ml:39:4>>*/ (Stdlib_Mutex[4], s[1]);
-     /*<<semaphore.ml:40:4>>*/ throw  /*<<semaphore.ml:40:4>>*/ caml_maybe_attach_backtrace
-            /*<<semaphore.ml:40:4>>*/ ([0,
-             Stdlib[11],
-             cst_Semaphore_Counting_release],
-            1);
+     /*<<semaphore.ml:39:4>>*/ caml_call1(Stdlib_Mutex[4], s[1]);
+     /*<<semaphore.ml:40:4>>*/ throw caml_maybe_attach_backtrace
+           ([0, Stdlib[11], cst_Semaphore_Counting_release], 1);
     /*<<semaphore.ml:41:5>>*/ }
    function acquire(s){
-     /*<<semaphore.ml:44:2>>*/  /*<<semaphore.ml:44:2>>*/ caml_call1
-      /*<<semaphore.ml:44:2>>*/ (Stdlib_Mutex[2], s[1]);
+     /*<<semaphore.ml:44:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:45:19>>*/ for(;;){
      if(0 !== s[2]){
       s[2] = s[2] - 1 | 0;
       return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:47:20>>*/ ;
      }
-      /*<<semaphore.ml:45:19>>*/  /*<<semaphore.ml:45:19>>*/ caml_call2
-       /*<<semaphore.ml:45:19>>*/ (Stdlib_Condition[2], s[3], s[1]);
+      /*<<semaphore.ml:45:19>>*/ caml_call2(Stdlib_Condition[2], s[3], s[1]);
     }
     /*<<semaphore.ml:47:20>>*/ }
    function try_acquire(s){
-     /*<<semaphore.ml:50:2>>*/  /*<<semaphore.ml:50:2>>*/ caml_call1
-      /*<<semaphore.ml:50:2>>*/ (Stdlib_Mutex[2], s[1]);
+     /*<<semaphore.ml:50:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
     var ret = 0 === s[2] ? 0 : (s[2] = s[2] - 1 | 0, 1);
-     /*<<semaphore.ml:52:2>>*/  /*<<semaphore.ml:52:2>>*/ caml_call1
-      /*<<semaphore.ml:52:2>>*/ (Stdlib_Mutex[4], s[1]);
-     /*<<semaphore.ml:52:2>>*/ return ret /*<<semaphore.ml:52:2>>*/ ;
+     /*<<semaphore.ml:52:2>>*/ caml_call1(Stdlib_Mutex[4], s[1]);
+    return ret;
     /*<<semaphore.ml:53:5>>*/ }
    function get_value(s){
      /*<<semaphore.ml:55:18>>*/ return s[2];
@@ -15660,43 +12870,34 @@
        get_value];
    function make$0(b){
     var
-     _a_ =
-        /*<<semaphore.ml:66:14>>*/  /*<<semaphore.ml:66:14>>*/ caml_call1
-         /*<<semaphore.ml:66:14>>*/ (Stdlib_Condition[1], 0),
+     _a_ =  /*<<semaphore.ml:66:14>>*/ caml_call1(Stdlib_Condition[1], 0),
      _b_ = b ? 1 : 0;
      /*<<semaphore.ml:64:2>>*/ return [0,
-             /*<<semaphore.ml:64:10>>*/ caml_call1
-              /*<<semaphore.ml:64:10>>*/ (Stdlib_Mutex[1], 0),
+             /*<<semaphore.ml:64:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
             _b_,
             _a_] /*<<semaphore.ml:64:2>>*/ ;
     /*<<semaphore.ml:66:34>>*/ }
    function release$0(s){
-     /*<<semaphore.ml:69:2>>*/  /*<<semaphore.ml:69:2>>*/ caml_call1
-      /*<<semaphore.ml:69:2>>*/ (Stdlib_Mutex[2], s[1]);
+     /*<<semaphore.ml:69:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
     s[2] = 1;
-     /*<<semaphore.ml:71:2>>*/  /*<<semaphore.ml:71:2>>*/ caml_call1
-      /*<<semaphore.ml:71:2>>*/ (Stdlib_Condition[3], s[3]);
+     /*<<semaphore.ml:71:2>>*/ caml_call1(Stdlib_Condition[3], s[3]);
     return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:72:20>>*/ ;
-    /*<<semaphore.ml:72:20>>*/ }
+   }
    function acquire$0(s){
-     /*<<semaphore.ml:75:2>>*/  /*<<semaphore.ml:75:2>>*/ caml_call1
-      /*<<semaphore.ml:75:2>>*/ (Stdlib_Mutex[2], s[1]);
+     /*<<semaphore.ml:75:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:76:19>>*/ for(;;){
      if(0 !== s[2]){
       s[2] = 0;
       return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:78:20>>*/ ;
      }
-      /*<<semaphore.ml:76:19>>*/  /*<<semaphore.ml:76:19>>*/ caml_call2
-       /*<<semaphore.ml:76:19>>*/ (Stdlib_Condition[2], s[3], s[1]);
+      /*<<semaphore.ml:76:19>>*/ caml_call2(Stdlib_Condition[2], s[3], s[1]);
     }
     /*<<semaphore.ml:78:20>>*/ }
    function try_acquire$0(s){
-     /*<<semaphore.ml:81:2>>*/  /*<<semaphore.ml:81:2>>*/ caml_call1
-      /*<<semaphore.ml:81:2>>*/ (Stdlib_Mutex[2], s[1]);
+     /*<<semaphore.ml:81:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
     var ret = 0 === s[2] ? 0 : (s[2] = 0, 1);
-     /*<<semaphore.ml:83:2>>*/  /*<<semaphore.ml:83:2>>*/ caml_call1
-      /*<<semaphore.ml:83:2>>*/ (Stdlib_Mutex[4], s[1]);
-     /*<<semaphore.ml:83:2>>*/ return ret /*<<semaphore.ml:83:2>>*/ ;
+     /*<<semaphore.ml:83:2>>*/ caml_call1(Stdlib_Mutex[4], s[1]);
+    return ret;
     /*<<semaphore.ml:84:5>>*/ }
    var
     Binary =
@@ -15717,14 +12918,13 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    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;
+    runtime = globalThis.jsoo_runtime,
+    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;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -15756,33 +12956,22 @@
     Stdlib_List = global_data.Stdlib__List,
     Assert_failure = global_data.Assert_failure;
    function cpu_relax(param){
-     /*<<domain.ml:47:19>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
-             /*<<domain.ml:47:19>>*/ (0) /*<<domain.ml:47:35>>*/ ;
-    /*<<domain.ml:47:35>>*/ }
+     /*<<domain.ml:47:19>>*/ return runtime.caml_ml_domain_cpu_relax(0) /*<<domain.ml:47:35>>*/ ;
+   }
    var none =  /*<<domain.ml:72:24>>*/ [0, 0];
    function create_dls(param){
-    var
-     st =
-        /*<<domain.ml:89:13>>*/  /*<<domain.ml:89:13>>*/ caml_make_vect
-         /*<<domain.ml:89:13>>*/ (8, none);
-     /*<<domain.ml:90:4>>*/  /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set
-      /*<<domain.ml:90:4>>*/ (st);
+    var st =  /*<<domain.ml:89:13>>*/ caml_make_vect(8, none);
+     /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set(st);
     /*<<domain.ml:90:20>>*/ }
-    /*<<domain.ml:92:10>>*/  /*<<domain.ml:92:10>>*/ create_dls
-     /*<<domain.ml:92:10>>*/ (0);
+    /*<<domain.ml:92:10>>*/ create_dls(0);
    var
-    key_counter =
-       /*<<domain.ml:96:20>>*/  /*<<domain.ml:96:20>>*/ caml_call1
-        /*<<domain.ml:96:20>>*/ (Stdlib_Atomic[1], 0),
-    parent_keys =
-       /*<<domain.ml:101:20>>*/  /*<<domain.ml:101:20>>*/ caml_call1
-        /*<<domain.ml:101:20>>*/ (Stdlib_Atomic[1], 0),
+    key_counter =  /*<<domain.ml:96:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
+    parent_keys =  /*<<domain.ml:101:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
     _a_ = [0, "domain.ml", 184, 13];
    function new_key(split_from_parent, init_orphan){
     var
      idx =
-        /*<<domain.ml:109:14>>*/  /*<<domain.ml:109:14>>*/ caml_call2
-         /*<<domain.ml:109:14>>*/ (Stdlib_Atomic[7], key_counter, 1),
+        /*<<domain.ml:109:14>>*/ caml_call2(Stdlib_Atomic[7], key_counter, 1),
      k =  /*<<domain.ml:110:12>>*/ [0, idx, init_orphan];
      /*<<domain.ml:111:4>>*/ if(split_from_parent){
      var
@@ -15790,106 +12979,81 @@
       ki =  /*<<domain.ml:113:35>>*/ [0, k, split];
       /*<<domain.ml:104:4>>*/ for(;;){
       var
-       l =
-          /*<<domain.ml:104:12>>*/  /*<<domain.ml:104:12>>*/ caml_call1
-           /*<<domain.ml:104:12>>*/ (Stdlib_Atomic[3], parent_keys);
+       l =  /*<<domain.ml:104:12>>*/ caml_call1(Stdlib_Atomic[3], parent_keys);
       if
        (!
         (1
         -
           /*<<domain.ml:105:11>>*/ caml_call3
-           /*<<domain.ml:105:11>>*/ (Stdlib_Atomic[6],
-           parent_keys,
-           l,
-           [0, ki, l])))
+          (Stdlib_Atomic[6], parent_keys, l, [0, ki, l])))
        break;
      }
     }
-     /*<<domain.ml:115:4>>*/ return k /*<<domain.ml:115:4>>*/ ;
+     /*<<domain.ml:115:4>>*/ return k;
     /*<<domain.ml:115:5>>*/ }
    function maybe_grow(idx){
      /*<<domain.ml:120:4>>*/ for(;;){
      var
       st = caml_domain_dls_get(0),
       sz =  /*<<domain.ml:121:4>>*/ st.length - 1;
-     if(idx < sz)
-       /*<<domain.ml:122:21>>*/ return st /*<<domain.ml:122:21>>*/ ;
+     if(idx < sz)  /*<<domain.ml:122:21>>*/ return st;
      var new_sz = sz;
       /*<<domain.ml:125:8>>*/ for(;;){
       if(idx < new_sz) break;
       var s = 2 * new_sz | 0;
       new_sz = s;
      }
-     var
-      new_st =
-         /*<<domain.ml:128:19>>*/  /*<<domain.ml:128:19>>*/ caml_make_vect
-          /*<<domain.ml:128:19>>*/ (new_sz, none);
-      /*<<domain.ml:129:6>>*/  /*<<domain.ml:129:6>>*/ caml_call5
-       /*<<domain.ml:129:6>>*/ (Stdlib_Array[9], st, 0, new_st, 0, sz);
+     var new_st =  /*<<domain.ml:128:19>>*/ caml_make_vect(new_sz, none);
+      /*<<domain.ml:129:6>>*/ caml_call5
+      (Stdlib_Array[9], st, 0, new_st, 0, sz);
       /*<<domain.ml:136:9>>*/ if
-      ( /*<<domain.ml:136:9>>*/ runtime.caml_domain_dls_compare_and_set
-         /*<<domain.ml:136:9>>*/ (st, new_st))
-       /*<<domain.ml:137:11>>*/ return new_st /*<<domain.ml:137:11>>*/ ;
+      (runtime.caml_domain_dls_compare_and_set(st, new_st))
+       /*<<domain.ml:137:11>>*/ return new_st;
     }
     /*<<domain.ml:139:7>>*/ }
    function set(param, x){
-    var
-     idx = param[1],
-     st =
-        /*<<domain.ml:142:13>>*/  /*<<domain.ml:142:13>>*/ maybe_grow
-         /*<<domain.ml:142:13>>*/ (idx);
+    var idx = param[1], st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
-     /*<<domain.ml:146:4>>*/ return 0 /*<<domain.ml:146:4>>*/ ;
+    return 0;
     /*<<domain.ml:146:52>>*/ }
    function get(param){
     var
      init = param[2],
      idx = param[1],
-     st =
-        /*<<domain.ml:159:13>>*/  /*<<domain.ml:159:13>>*/ maybe_grow
-         /*<<domain.ml:159:13>>*/ (idx),
+     st =  /*<<domain.ml:159:13>>*/ maybe_grow(idx),
      oldval =  /*<<domain.ml:160:14>>*/ caml_check_bound(st, idx)[1 + idx];
      /*<<domain.ml:161:7>>*/ if(oldval !== none)
-      /*<<domain.ml:75:25>>*/ return oldval /*<<domain.ml:75:25>>*/ ;
-    var
-     new_obj =
-        /*<<domain.ml:164:18>>*/  /*<<domain.ml:164:18>>*/ caml_call1
-         /*<<domain.ml:164:18>>*/ (init, 0),
-     st$0 =
-        /*<<domain.ml:175:6>>*/  /*<<domain.ml:175:6>>*/ caml_domain_dls_get
-         /*<<domain.ml:175:6>>*/ (0),
+      /*<<domain.ml:75:25>>*/ return oldval;
+    var
+     new_obj =  /*<<domain.ml:164:18>>*/ caml_call1(init, 0),
+     st$0 =  /*<<domain.ml:175:6>>*/ caml_domain_dls_get(0),
      curval =  /*<<domain.ml:152:17>>*/ caml_check_bound(st$0, idx)[1 + idx],
      _e_ = curval === oldval ? (st$0[1 + idx] = new_obj, 1) : 0;
-     /*<<domain.ml:176:9>>*/ if(_e_)
-      /*<<domain.ml:177:11>>*/ return new_obj /*<<domain.ml:177:11>>*/ ;
+     /*<<domain.ml:176:9>>*/ if(_e_)  /*<<domain.ml:177:11>>*/ return new_obj;
     var
      updated_obj =
         /*<<domain.ml:181:26>>*/ caml_check_bound(st$0, idx)[1 + idx];
      /*<<domain.ml:182:11>>*/ if(updated_obj !== none)
-      /*<<domain.ml:75:25>>*/ return updated_obj /*<<domain.ml:75:25>>*/ ;
-     /*<<domain.ml:184:13>>*/ throw  /*<<domain.ml:184:13>>*/ caml_maybe_attach_backtrace
-            /*<<domain.ml:184:13>>*/ ([0, Assert_failure, _a_], 1);
+      /*<<domain.ml:75:25>>*/ return updated_obj;
+     /*<<domain.ml:184:13>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _a_], 1);
     /*<<domain.ml:186:7>>*/ }
    function get_id(param){
     var domain = param[1];
-     /*<<domain.ml:201:27>>*/ return domain /*<<domain.ml:201:27>>*/ ;
+     /*<<domain.ml:201:27>>*/ return domain;
     /*<<domain.ml:201:33>>*/ }
    function self(param){
-     /*<<domain.ml:203:14>>*/ return  /*<<domain.ml:203:14>>*/ caml_ml_domain_id
-             /*<<domain.ml:203:14>>*/ (0) /*<<domain.ml:203:25>>*/ ;
-    /*<<domain.ml:203:25>>*/ }
+     /*<<domain.ml:203:14>>*/ return caml_ml_domain_id(0) /*<<domain.ml:203:25>>*/ ;
+   }
    function is_main_domain(param){
      /*<<domain.ml:205:24>>*/ return 0
-            ===
-              /*<<domain.ml:203:14>>*/ caml_ml_domain_id
-               /*<<domain.ml:203:14>>*/ (0)
+            ===  /*<<domain.ml:203:14>>*/ caml_ml_domain_id(0)
             ? 1
             : 0;
     /*<<domain.ml:205:44>>*/ }
    var
     first_domain_spawned =
-       /*<<domain.ml:210:27>>*/  /*<<domain.ml:210:27>>*/ caml_call1
-        /*<<domain.ml:210:27>>*/ (Stdlib_Atomic[1], 0),
+       /*<<domain.ml:210:27>>*/ caml_call1(Stdlib_Atomic[1], 0),
     first_spawn_function =
        /*<<domain.ml:212:27>>*/ [0,
        function(param){ /*<<domain.ml:212:44>>*/ }],
@@ -15897,156 +13061,114 @@
    function before_first_spawn(f){
      /*<<domain.ml:215:2>>*/ if
      ( /*<<domain.ml:215:5>>*/ caml_call1
-        /*<<domain.ml:215:5>>*/ (Stdlib_Atomic[3], first_domain_spawned))
-      /*<<domain.ml:216:4>>*/ throw  /*<<domain.ml:216:4>>*/ caml_maybe_attach_backtrace
-             /*<<domain.ml:216:4>>*/ ([0,
-              Stdlib[6],
-              cst_first_domain_already_spawn],
-             1);
+       (Stdlib_Atomic[3], first_domain_spawned))
+      /*<<domain.ml:216:4>>*/ throw 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
-       /*<<domain.ml:219:19>>*/ (old_f, 0);
-      /*<<domain.ml:219:19>>*/ return  /*<<domain.ml:219:19>>*/ caml_call1
-              /*<<domain.ml:219:19>>*/ (f, 0) /*<<domain.ml:219:33>>*/ ;
-     /*<<domain.ml:219:33>>*/ }
+      /*<<domain.ml:219:19>>*/ caml_call1(old_f, 0);
+     return caml_call1(f, 0) /*<<domain.ml:219:33>>*/ ;
+    }
     first_spawn_function[1] = new_f;
     return 0;
     /*<<domain.ml:221:5>>*/ }
    var
     at_exit_key =
-       /*<<domain.ml:231:18>>*/  /*<<domain.ml:231:18>>*/ new_key
-        /*<<domain.ml:231:18>>*/ (0,
+       /*<<domain.ml:231:18>>*/ new_key
+       (0,
         function(param){
           /*<<domain.ml:231:41>>*/ return function(param){
-           /*<<domain.ml:231:52>>*/ return 0 /*<<domain.ml:231:52>>*/ ; /*<<domain.ml:231:54>>*/ } /*<<domain.ml:231:41>>*/ ;
+           /*<<domain.ml:231:52>>*/ return 0; /*<<domain.ml:231:54>>*/ } /*<<domain.ml:231:41>>*/ ;
          /*<<domain.ml:231:55>>*/ });
    function at_exit(f){
-    var
-     old_exit =
-        /*<<domain.ml:234:32>>*/  /*<<domain.ml:234:32>>*/ get
-         /*<<domain.ml:234:32>>*/ (at_exit_key);
+    var old_exit =  /*<<domain.ml:234:32>>*/ get(at_exit_key);
     function new_exit(param){
-      /*<<domain.ml:236:4>>*/  /*<<domain.ml:236:4>>*/ caml_call1
-       /*<<domain.ml:236:4>>*/ (f, 0);
-      /*<<domain.ml:236:4>>*/ return  /*<<domain.ml:236:4>>*/ caml_call1
-              /*<<domain.ml:236:4>>*/ (old_exit, 0) /*<<domain.ml:236:21>>*/ ;
-     /*<<domain.ml:236:21>>*/ }
-     /*<<domain.ml:238:2>>*/ return  /*<<domain.ml:238:2>>*/ set
-             /*<<domain.ml:238:2>>*/ (at_exit_key, new_exit) /*<<domain.ml:238:30>>*/ ;
-    /*<<domain.ml:238:30>>*/ }
+      /*<<domain.ml:236:4>>*/ caml_call1(f, 0);
+     return caml_call1(old_exit, 0) /*<<domain.ml:236:21>>*/ ;
+    }
+     /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit) /*<<domain.ml:238:30>>*/ ;
+   }
    function do_at_exit(param){
-    var
-     f =
-        /*<<domain.ml:241:25>>*/  /*<<domain.ml:241:25>>*/ get
-         /*<<domain.ml:241:25>>*/ (at_exit_key);
-     /*<<domain.ml:242:2>>*/ return  /*<<domain.ml:242:2>>*/ caml_call1
-             /*<<domain.ml:242:2>>*/ (f, 0) /*<<domain.ml:242:6>>*/ ;
-    /*<<domain.ml:242:6>>*/ }
+    var f =  /*<<domain.ml:241:25>>*/ get(at_exit_key);
+     /*<<domain.ml:242:2>>*/ return caml_call1(f, 0) /*<<domain.ml:242:6>>*/ ;
+   }
    Stdlib[104][1] = do_at_exit;
    function spawn(f){
      /*<<domain.ml:249:2>>*/ if
      (1
       -
         /*<<domain.ml:224:9>>*/ caml_call1
-         /*<<domain.ml:224:9>>*/ (Stdlib_Atomic[3], first_domain_spawned)){
-      /*<<domain.ml:225:4>>*/  /*<<domain.ml:225:4>>*/ caml_call2
-       /*<<domain.ml:225:4>>*/ (Stdlib_Atomic[4], first_domain_spawned, 1);
-      /*<<domain.ml:226:4>>*/  /*<<domain.ml:226:4>>*/ caml_call1
-       /*<<domain.ml:226:4>>*/ (first_spawn_function[1], 0);
+        (Stdlib_Atomic[3], first_domain_spawned)){
+      /*<<domain.ml:225:4>>*/ caml_call2
+      (Stdlib_Atomic[4], first_domain_spawned, 1);
+      /*<<domain.ml:226:4>>*/ caml_call1(first_spawn_function[1], 0);
      first_spawn_function[1] =
       function(param){
-        /*<<domain.ml:228:39>>*/ return 0 /*<<domain.ml:228:39>>*/ ;
+        /*<<domain.ml:228:39>>*/ return 0;
        /*<<domain.ml:228:41>>*/ };
     }
     var
-     _b_ =
-        /*<<domain.ml:193:6>>*/  /*<<domain.ml:193:6>>*/ caml_call1
-         /*<<domain.ml:193:6>>*/ (Stdlib_Atomic[3], parent_keys),
+     _b_ =  /*<<domain.ml:193:6>>*/ caml_call1(Stdlib_Atomic[3], parent_keys),
      pk =
-        /*<<domain.ml:193:6>>*/  /*<<domain.ml:193:6>>*/ caml_call2
-         /*<<domain.ml:193:6>>*/ (Stdlib_List[20],
+       caml_call2
+        (Stdlib_List[20],
          function(param){
           var split = param[2], k = param[1];
            /*<<domain.ml:192:30>>*/ return [0,
                   k,
                    /*<<domain.ml:192:37>>*/ caml_call1
-                    /*<<domain.ml:192:37>>*/ (split,
-                     /*<<domain.ml:192:44>>*/ get /*<<domain.ml:192:44>>*/ (k))] /*<<domain.ml:192:30>>*/ ;
+                   (split,  /*<<domain.ml:192:44>>*/ get(k))] /*<<domain.ml:192:30>>*/ ;
           /*<<domain.ml:192:54>>*/ },
          _b_),
-     _c_ =
-        /*<<domain.ml:256:17>>*/  /*<<domain.ml:256:17>>*/ caml_call1
-         /*<<domain.ml:256:17>>*/ (Stdlib_Condition[1], 0),
+     _c_ =  /*<<domain.ml:256:17>>*/ caml_call1(Stdlib_Condition[1], 0),
      term_sync =
         /*<<domain.ml:254:8>>*/ [0,
         0,
-         /*<<domain.ml:255:16>>*/ caml_call1
-          /*<<domain.ml:255:16>>*/ (Stdlib_Mutex[1], 0),
+         /*<<domain.ml:255:16>>*/ caml_call1(Stdlib_Mutex[1], 0),
         _c_];
     function body(param){
       /*<<domain.ml:260:4>>*/ try{
-       /*<<domain.ml:261:6>>*/  /*<<domain.ml:261:6>>*/ create_dls
-        /*<<domain.ml:261:6>>*/ (0);
-       /*<<domain.ml:196:4>>*/  /*<<domain.ml:196:4>>*/ caml_call2
-        /*<<domain.ml:196:4>>*/ (Stdlib_List[18],
+       /*<<domain.ml:261:6>>*/ create_dls(0);
+       /*<<domain.ml:196:4>>*/ caml_call2
+       (Stdlib_List[18],
         function(param){
          var v = param[2], k = param[1];
-          /*<<domain.ml:196:34>>*/ return  /*<<domain.ml:196:34>>*/ set
-                  /*<<domain.ml:196:34>>*/ (k, v) /*<<domain.ml:196:42>>*/ ;
-         /*<<domain.ml:196:42>>*/ },
+          /*<<domain.ml:196:34>>*/ return set(k, v) /*<<domain.ml:196:42>>*/ ;
+        },
         pk);
-      var
-       res =
-          /*<<domain.ml:263:16>>*/  /*<<domain.ml:263:16>>*/ caml_call1
-           /*<<domain.ml:263:16>>*/ (f, 0);
+      var res =  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
-       /*<<domain.ml:278:8>>*/ try{
-        /*<<domain.ml:278:13>>*/  /*<<domain.ml:278:13>>*/ do_at_exit
-         /*<<domain.ml:278:13>>*/ (0);
-      }
+       /*<<domain.ml:278:8>>*/ try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}
       catch(_d_){}
-       /*<<domain.ml:279:8>>*/ throw  /*<<domain.ml:279:8>>*/ caml_maybe_attach_backtrace
-              /*<<domain.ml:279:8>>*/ (exn, 0);
+       /*<<domain.ml:279:8>>*/ throw caml_maybe_attach_backtrace(exn, 0);
      }
-      /*<<domain.ml:272:8>>*/  /*<<domain.ml:272:8>>*/ do_at_exit
-       /*<<domain.ml:272:8>>*/ (0);
-      /*<<domain.ml:272:8>>*/ return res /*<<domain.ml:272:8>>*/ ;
+      /*<<domain.ml:272:8>>*/ do_at_exit(0);
+     return res;
      /*<<domain.ml:279:17>>*/ }
     var
      domain =
-        /*<<domain.ml:281:15>>*/  /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn
-         /*<<domain.ml:281:15>>*/ (body, term_sync);
-     /*<<domain.ml:282:2>>*/ return [0, domain, term_sync] /*<<domain.ml:282:2>>*/ ;
+        /*<<domain.ml:281:15>>*/ runtime.caml_domain_spawn(body, term_sync);
+     /*<<domain.ml:282:2>>*/ return [0, domain, term_sync];
     /*<<domain.ml:282:24>>*/ }
    function join(param){
     var term_sync = param[2];
     function loop(param){
       /*<<domain.ml:287:4>>*/ for(;;){
       var match = term_sync[1];
-      if(match){
-       var res = match[1];
-        /*<<domain.ml:292:8>>*/ return res /*<<domain.ml:292:8>>*/ ;
-      }
-       /*<<domain.ml:289:8>>*/  /*<<domain.ml:289:8>>*/ caml_call2
-        /*<<domain.ml:289:8>>*/ (Stdlib_Condition[2],
-        term_sync[3],
-        term_sync[2]);
+      if(match){var res = match[1];  /*<<domain.ml:292:8>>*/ return res;}
+       /*<<domain.ml:289:8>>*/ caml_call2
+       (Stdlib_Condition[2], term_sync[3], term_sync[2]);
      }
      /*<<domain.ml:292:11>>*/ }
     var
      match =
-        /*<<domain.ml:294:8>>*/  /*<<domain.ml:294:8>>*/ caml_call2
-         /*<<domain.ml:294:8>>*/ (Stdlib_Mutex[5], term_sync[2], loop);
-    if(0 === match[0]){
-     var x = match[1];
-      /*<<domain.ml:295:12>>*/ return x /*<<domain.ml:295:12>>*/ ;
-    }
+        /*<<domain.ml:294:8>>*/ caml_call2
+        (Stdlib_Mutex[5], term_sync[2], loop);
+    if(0 === match[0]){var x = match[1];  /*<<domain.ml:295:12>>*/ return x;}
     var ex = match[1];
-     /*<<domain.ml:296:16>>*/ throw  /*<<domain.ml:296:16>>*/ caml_maybe_attach_backtrace
-            /*<<domain.ml:296:16>>*/ (ex, 1);
+     /*<<domain.ml:296:16>>*/ throw caml_maybe_attach_backtrace(ex, 1);
     /*<<domain.ml:296:24>>*/ }
    var
     recommended_domain_count = runtime.caml_recommended_domain_count,
@@ -16073,44 +13195,43 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst$43 =  /*<<?>>*/ "",
-    cst_and =  /*<<?>>*/ " and ",
-    cst_Li$3 =  /*<<?>>*/ "%Li",
-    cst_i$3 =  /*<<?>>*/ "%i",
-    cst_li$3 =  /*<<?>>*/ "%li",
-    cst_ni$3 =  /*<<?>>*/ "%ni",
-    cst_u$0 =  /*<<?>>*/ "%u",
-    cst$42 =  /*<<?>>*/ "' '",
-    cst$41 =  /*<<?>>*/ "'#'",
-    cst$39 =  /*<<?>>*/ "'*'",
-    cst$40 =  /*<<?>>*/ "'+'",
-    cst$44 =  /*<<?>>*/ ", ",
-    cst_0$3 =  /*<<?>>*/ "0",
-    cst_at_character_number =  /*<<?>>*/ ": at character number ",
-    cst$38 =  /*<<?>>*/ "@[",
-    cst$37 =  /*<<?>>*/ "@{",
+    runtime = globalThis.jsoo_runtime,
+    cst$43 = "",
+    cst_and = " and ",
+    cst_Li$3 = "%Li",
+    cst_i$3 = "%i",
+    cst_li$3 = "%li",
+    cst_ni$3 = "%ni",
+    cst_u$0 = "%u",
+    cst$42 = "' '",
+    cst$41 = "'#'",
+    cst$39 = "'*'",
+    cst$40 = "'+'",
+    cst$44 = ", ",
+    cst_0$3 = "0",
+    cst_at_character_number = ": at character number ",
+    cst$38 = "@[",
+    cst$37 = "@{",
     cst_bad_input_format_type_mism =
-       /*<<?>>*/ "bad input: format type mismatch between ",
+      "bad input: format type mismatch between ",
     cst_bad_input_format_type_mism$0 =
-       /*<<?>>*/ "bad input: format type mismatch between %S and %S",
-    cst_camlinternalFormat_ml =  /*<<?>>*/ "camlinternalFormat.ml",
-    cst_invalid_format =  /*<<?>>*/ "invalid format ",
-    cst_precision$3 =  /*<<?>>*/ "precision",
-    caml_blit_string =  /*<<?>>*/ runtime.caml_blit_string,
-    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_format_float =  /*<<?>>*/ runtime.caml_format_float,
-    caml_format_int =  /*<<?>>*/ runtime.caml_format_int,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
-    caml_notequal =  /*<<?>>*/ runtime.caml_notequal,
-    caml_string_get =  /*<<?>>*/ runtime.caml_string_get,
-    caml_string_unsafe_get =  /*<<?>>*/ runtime.caml_string_unsafe_get,
-    caml_trampoline =  /*<<?>>*/ runtime.caml_trampoline,
-    caml_trampoline_return =  /*<<?>>*/ runtime.caml_trampoline_return,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+      "bad input: format type mismatch between %S and %S",
+    cst_camlinternalFormat_ml = "camlinternalFormat.ml",
+    cst_invalid_format = "invalid format ",
+    cst_precision$3 = "precision",
+    caml_blit_string = runtime.caml_blit_string,
+    caml_bytes_set = runtime.caml_bytes_set,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_format_float = runtime.caml_format_float,
+    caml_format_int = runtime.caml_format_int,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length = runtime.caml_ml_string_length,
+    caml_notequal = runtime.caml_notequal,
+    caml_string_get = runtime.caml_string_get,
+    caml_string_unsafe_get = runtime.caml_string_unsafe_get,
+    caml_trampoline = runtime.caml_trampoline,
+    caml_trampoline_return = runtime.caml_trampoline_return,
+    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)
@@ -16220,102 +13341,92 @@
     _p_ = [0, cst_camlinternalFormat_ml, 826, 22],
     _q_ = [0, cst_camlinternalFormat_ml, 831, 30];
    function create_char_set(param){
-     /*<<camlinternalFormat.ml:24:25>>*/ return  /*<<camlinternalFormat.ml:24:25>>*/ caml_call2
-             /*<<camlinternalFormat.ml:24:25>>*/ (Stdlib_Bytes[1], 32, 0) /*<<camlinternalFormat.ml:24:45>>*/ ;
-    /*<<camlinternalFormat.ml:24:45>>*/ }
+     /*<<camlinternalFormat.ml:24:25>>*/ return caml_call2
+            (Stdlib_Bytes[1], 32, 0) /*<<camlinternalFormat.ml:24:45>>*/ ;
+   }
    function add_in_char_set(char_set, c){
     var
      str_ind = c >>> 3 | 0,
      mask = 1 << (c & 7),
      _cU_ =
-        /*<<camlinternalFormat.ml:31:30>>*/  /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
-         /*<<camlinternalFormat.ml:31:30>>*/ (char_set, str_ind)
+        /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
+        (char_set, str_ind)
        | mask;
-     /*<<camlinternalFormat.ml:30:2>>*/ return  /*<<camlinternalFormat.ml:30:2>>*/ caml_bytes_set
-             /*<<camlinternalFormat.ml:30:2>>*/ (char_set,
+     /*<<camlinternalFormat.ml:30:2>>*/ return caml_bytes_set
+            (char_set,
              str_ind,
-              /*<<camlinternalFormat.ml:31:4>>*/ caml_call1
-               /*<<camlinternalFormat.ml:31:4>>*/ (Stdlib[29], _cU_)) /*<<camlinternalFormat.ml:31:69>>*/ ;
-    /*<<camlinternalFormat.ml:31:69>>*/ }
+              /*<<camlinternalFormat.ml:31:4>>*/ caml_call1(Stdlib[29], _cU_)) /*<<camlinternalFormat.ml:31:69>>*/ ;
+   }
    function freeze_char_set(char_set){
-     /*<<camlinternalFormat.ml:34:2>>*/ return  /*<<camlinternalFormat.ml:34:2>>*/ caml_call1
-             /*<<camlinternalFormat.ml:34:2>>*/ (Stdlib_Bytes[6], char_set) /*<<camlinternalFormat.ml:34:26>>*/ ;
-    /*<<camlinternalFormat.ml:34:26>>*/ }
+     /*<<camlinternalFormat.ml:34:2>>*/ return caml_call1
+            (Stdlib_Bytes[6], char_set) /*<<camlinternalFormat.ml:34:26>>*/ ;
+   }
    function rev_char_set(char_set){
     var
-     char_set$0 =
-        /*<<camlinternalFormat.ml:38:18>>*/  /*<<camlinternalFormat.ml:38:18>>*/ create_char_set
-         /*<<camlinternalFormat.ml:38:18>>*/ (0),
+     char_set$0 =  /*<<camlinternalFormat.ml:38:18>>*/ create_char_set(0),
      i = 0;
     for(;;){
      var
       _cS_ =
-         /*<<camlinternalFormat.ml:41:32>>*/  /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get
-          /*<<camlinternalFormat.ml:41:32>>*/ (char_set, i)
+         /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get(char_set, i)
         ^ 255;
-      /*<<camlinternalFormat.ml:40:4>>*/  /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
-       /*<<camlinternalFormat.ml:40:4>>*/ (char_set$0,
+      /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
+      (char_set$0,
        i,
-        /*<<camlinternalFormat.ml:41:6>>*/ caml_call1
-         /*<<camlinternalFormat.ml:41:6>>*/ (Stdlib[29], _cS_));
+        /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _cS_));
      var _cT_ =  /*<<camlinternalFormat.ml:40:4>>*/ i + 1 | 0;
      if(31 === i)
-       /*<<camlinternalFormat.ml:43:2>>*/ return  /*<<camlinternalFormat.ml:43:2>>*/ caml_call1
-               /*<<camlinternalFormat.ml:43:2>>*/ (Stdlib_Bytes[44],
-               char_set$0) /*<<camlinternalFormat.ml:43:34>>*/ ;
+       /*<<camlinternalFormat.ml:43:2>>*/ return caml_call1
+              (Stdlib_Bytes[44], char_set$0) /*<<camlinternalFormat.ml:43:34>>*/ ;
      i = _cT_;
     }
-    /*<<camlinternalFormat.ml:43:34>>*/ }
+   }
    function is_in_char_set(char_set, c){
     var str_ind = c >>> 3 | 0, mask = 1 << (c & 7);
     return 0
             !==
              ( /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
-               /*<<camlinternalFormat.ml:49:15>>*/ (char_set, str_ind)
+              (char_set, str_ind)
              & mask)
             ? 1
             : 0;
     /*<<camlinternalFormat.ml:49:60>>*/ }
    function pad_of_pad_opt(pad_opt){
      /*<<camlinternalFormat.ml:62:29>>*/ if(! pad_opt)
-      /*<<camlinternalFormat.ml:63:12>>*/ return 0 /*<<camlinternalFormat.ml:63:12>>*/ ;
+      /*<<camlinternalFormat.ml:63:12>>*/ return 0;
     var width = pad_opt[1];
-     /*<<camlinternalFormat.ml:64:18>>*/ return [0, 1, width] /*<<camlinternalFormat.ml:64:18>>*/ ;
+     /*<<camlinternalFormat.ml:64:18>>*/ return [0, 1, width];
     /*<<camlinternalFormat.ml:64:44>>*/ }
    function param_format_of_ignored_format(ign, fmt){
      /*<<camlinternalFormat.ml:76:15>>*/ if(typeof ign === "number")
      switch(ign){
        case 0:
-         /*<<camlinternalFormat.ml:78:4>>*/ return [0, [0, fmt]] /*<<camlinternalFormat.ml:78:4>>*/ ;
+         /*<<camlinternalFormat.ml:78:4>>*/ return [0, [0, fmt]];
        case 1:
-         /*<<camlinternalFormat.ml:80:4>>*/ return [0, [1, fmt]] /*<<camlinternalFormat.ml:80:4>>*/ ;
+         /*<<camlinternalFormat.ml:80:4>>*/ return [0, [1, fmt]];
        case 2:
-         /*<<camlinternalFormat.ml:108:4>>*/ return [0, [19, fmt]] /*<<camlinternalFormat.ml:108:4>>*/ ;
-       default:
-         /*<<camlinternalFormat.ml:114:4>>*/ return [0, [22, fmt]] /*<<camlinternalFormat.ml:114:4>>*/ ;
+         /*<<camlinternalFormat.ml:108:4>>*/ return [0, [19, fmt]];
+       default:  /*<<camlinternalFormat.ml:114:4>>*/ return [0, [22, fmt]];
      }
     switch(ign[0]){
       case 0:
        var pad_opt = ign[1];
         /*<<camlinternalFormat.ml:82:4>>*/ return [0,
                [2,
-                 /*<<camlinternalFormat.ml:82:30>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:82:30>>*/ (pad_opt),
+                 /*<<camlinternalFormat.ml:82:30>>*/ pad_of_pad_opt(pad_opt),
                 fmt]] /*<<camlinternalFormat.ml:82:4>>*/ ;
       case 1:
        var pad_opt$0 = ign[1];
         /*<<camlinternalFormat.ml:84:4>>*/ return [0,
                [3,
-                 /*<<camlinternalFormat.ml:84:35>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:84:35>>*/ (pad_opt$0),
+                 /*<<camlinternalFormat.ml:84:35>>*/ pad_of_pad_opt(pad_opt$0),
                 fmt]] /*<<camlinternalFormat.ml:84:4>>*/ ;
       case 2:
        var pad_opt$1 = ign[2], iconv = ign[1];
         /*<<camlinternalFormat.ml:86:4>>*/ return [0,
                [4,
                 iconv,
-                 /*<<camlinternalFormat.ml:86:34>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:86:34>>*/ (pad_opt$1),
+                 /*<<camlinternalFormat.ml:86:34>>*/ pad_of_pad_opt(pad_opt$1),
                 0,
                 fmt]] /*<<camlinternalFormat.ml:86:4>>*/ ;
       case 3:
@@ -16323,8 +13434,7 @@
         /*<<camlinternalFormat.ml:88:4>>*/ return [0,
                [5,
                 iconv$0,
-                 /*<<camlinternalFormat.ml:89:21>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:89:21>>*/ (pad_opt$2),
+                 /*<<camlinternalFormat.ml:89:21>>*/ pad_of_pad_opt(pad_opt$2),
                 0,
                 fmt]] /*<<camlinternalFormat.ml:88:4>>*/ ;
       case 4:
@@ -16332,8 +13442,7 @@
         /*<<camlinternalFormat.ml:91:4>>*/ return [0,
                [6,
                 iconv$1,
-                 /*<<camlinternalFormat.ml:92:25>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:92:25>>*/ (pad_opt$3),
+                 /*<<camlinternalFormat.ml:92:25>>*/ pad_of_pad_opt(pad_opt$3),
                 0,
                 fmt]] /*<<camlinternalFormat.ml:91:4>>*/ ;
       case 5:
@@ -16341,8 +13450,7 @@
         /*<<camlinternalFormat.ml:94:4>>*/ return [0,
                [7,
                 iconv$2,
-                 /*<<camlinternalFormat.ml:95:21>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:95:21>>*/ (pad_opt$4),
+                 /*<<camlinternalFormat.ml:95:21>>*/ pad_of_pad_opt(pad_opt$4),
                 0,
                 fmt]] /*<<camlinternalFormat.ml:94:4>>*/ ;
       case 6:
@@ -16354,8 +13462,7 @@
         /*<<camlinternalFormat.ml:97:4>>*/ return [0,
                [8,
                 _a_,
-                 /*<<camlinternalFormat.ml:99:14>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:99:14>>*/ (pad_opt$5),
+                 /*<<camlinternalFormat.ml:99:14>>*/ pad_of_pad_opt(pad_opt$5),
                 _cR_,
                 fmt]] /*<<camlinternalFormat.ml:97:4>>*/ ;
       case 7:
@@ -16363,33 +13470,32 @@
         /*<<camlinternalFormat.ml:101:4>>*/ return [0,
                [9,
                  /*<<camlinternalFormat.ml:101:28>>*/ pad_of_pad_opt
-                  /*<<camlinternalFormat.ml:101:28>>*/ (pad_opt$6),
+                 (pad_opt$6),
                 fmt]] /*<<camlinternalFormat.ml:101:4>>*/ ;
       case 8:
        var fmtty = ign[2], pad_opt$7 = ign[1];
         /*<<camlinternalFormat.ml:103:4>>*/ return [0,
-               [13, pad_opt$7, fmtty, fmt]] /*<<camlinternalFormat.ml:103:4>>*/ ;
+               [13, pad_opt$7, fmtty, fmt]];
       case 9:
        var fmtty$0 = ign[2], pad_opt$8 = ign[1];
         /*<<camlinternalFormat.ml:105:4>>*/ return [0,
-               [14, pad_opt$8, fmtty$0, fmt]] /*<<camlinternalFormat.ml:105:4>>*/ ;
+               [14, pad_opt$8, fmtty$0, fmt]];
       case 10:
        var char_set = ign[2], width_opt = ign[1];
         /*<<camlinternalFormat.ml:110:4>>*/ return [0,
-               [20, width_opt, char_set, fmt]] /*<<camlinternalFormat.ml:110:4>>*/ ;
+               [20, width_opt, char_set, fmt]];
       default:
        var counter = ign[1];
-        /*<<camlinternalFormat.ml:112:4>>*/ return [0, [21, counter, fmt]] /*<<camlinternalFormat.ml:112:4>>*/ ;
+        /*<<camlinternalFormat.ml:112:4>>*/ return [0, [21, counter, fmt]];
     }
     /*<<camlinternalFormat.ml:114:41>>*/ }
    function default_float_precision(fconv){
      /*<<camlinternalFormat.ml:221:2>>*/ return 5 === fconv[2] ? 12 : -6 /*<<camlinternalFormat.ml:227:17>>*/ ;
-    /*<<camlinternalFormat.ml:227:17>>*/ }
+   }
    function buffer_create(init_size){
      /*<<camlinternalFormat.ml:256:30>>*/ return [0,
             0,
-             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes
-              /*<<camlinternalFormat.ml:256:49>>*/ (init_size)] /*<<camlinternalFormat.ml:256:30>>*/ ;
+             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)] /*<<camlinternalFormat.ml:256:30>>*/ ;
     /*<<camlinternalFormat.ml:256:73>>*/ }
    function buffer_check_size(buf, overhead){
     var
@@ -16398,250 +13504,198 @@
     if(len < min_len){
      var
       new_len =
-         /*<<camlinternalFormat.ml:263:18>>*/  /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
-          /*<<camlinternalFormat.ml:263:18>>*/ (Stdlib_Int[11],
-          len * 2 | 0,
-          min_len),
+         /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
+         (Stdlib_Int[11], len * 2 | 0, min_len),
       new_str =
-         /*<<camlinternalFormat.ml:264:18>>*/  /*<<camlinternalFormat.ml:264:18>>*/ caml_create_bytes
-          /*<<camlinternalFormat.ml:264:18>>*/ (new_len);
-      /*<<camlinternalFormat.ml:265:4>>*/  /*<<camlinternalFormat.ml:265:4>>*/ caml_call5
-       /*<<camlinternalFormat.ml:265:4>>*/ (Stdlib_Bytes[11],
-       buf[2],
-       0,
-       new_str,
-       0,
-       len);
+         /*<<camlinternalFormat.ml:264:18>>*/ caml_create_bytes(new_len);
+      /*<<camlinternalFormat.ml:265:4>>*/ caml_call5
+      (Stdlib_Bytes[11], buf[2], 0, new_str, 0, len);
      buf[2] = new_str;
     }
     /*<<camlinternalFormat.ml:267:3>>*/ }
    function buffer_add_char(buf, c){
-     /*<<camlinternalFormat.ml:271:2>>*/  /*<<camlinternalFormat.ml:271:2>>*/ buffer_check_size
-      /*<<camlinternalFormat.ml:271:2>>*/ (buf, 1);
-     /*<<camlinternalFormat.ml:272:2>>*/  /*<<camlinternalFormat.ml:272:2>>*/ caml_bytes_set
-      /*<<camlinternalFormat.ml:272:2>>*/ (buf[2], buf[1], c);
+     /*<<camlinternalFormat.ml:271:2>>*/ buffer_check_size(buf, 1);
+     /*<<camlinternalFormat.ml:272:2>>*/ caml_bytes_set(buf[2], buf[1], c);
     buf[1] = buf[1] + 1 | 0;
     /*<<camlinternalFormat.ml:273:24>>*/ }
    function buffer_add_string(buf, s){
     var str_len = caml_ml_string_length(s);
-     /*<<camlinternalFormat.ml:278:2>>*/  /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size
-      /*<<camlinternalFormat.ml:278:2>>*/ (buf, str_len);
-     /*<<camlinternalFormat.ml:279:2>>*/  /*<<camlinternalFormat.ml:279:2>>*/ caml_call5
-      /*<<camlinternalFormat.ml:279:2>>*/ (Stdlib_String[6],
-      s,
-      0,
-      buf[2],
-      buf[1],
-      str_len);
+     /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size(buf, str_len);
+     /*<<camlinternalFormat.ml:279:2>>*/ caml_call5
+     (Stdlib_String[6], s, 0, buf[2], buf[1], str_len);
     buf[1] = buf[1] + str_len | 0;
     /*<<camlinternalFormat.ml:280:30>>*/ }
    function buffer_contents(buf){
      /*<<camlinternalFormat.ml:284:2>>*/ return caml_call3
             (Stdlib_Bytes[8], buf[2], 0, buf[1]) /*<<camlinternalFormat.ml:284:38>>*/ ;
-    /*<<camlinternalFormat.ml:284:38>>*/ }
+   }
    function char_of_iconv(iconv){
      /*<<camlinternalFormat.ml:289:26>>*/ switch(iconv){
       case 6:
       case 7:
-        /*<<camlinternalFormat.ml:291:38>>*/ return 120 /*<<camlinternalFormat.ml:291:38>>*/ ;
+        /*<<camlinternalFormat.ml:291:38>>*/ return 120;
       case 8:
       case 9:
-        /*<<camlinternalFormat.ml:291:62>>*/ return 88 /*<<camlinternalFormat.ml:291:62>>*/ ;
+        /*<<camlinternalFormat.ml:291:62>>*/ return 88;
       case 10:
       case 11:
-        /*<<camlinternalFormat.ml:292:14>>*/ return 111 /*<<camlinternalFormat.ml:292:14>>*/ ;
+        /*<<camlinternalFormat.ml:292:14>>*/ return 111;
       case 12:
       case 15:
-        /*<<camlinternalFormat.ml:292:38>>*/ return 117 /*<<camlinternalFormat.ml:292:38>>*/ ;
+        /*<<camlinternalFormat.ml:292:38>>*/ return 117;
       case 0:
       case 1:
       case 2:
       case 13:
-        /*<<camlinternalFormat.ml:290:40>>*/ return 100 /*<<camlinternalFormat.ml:290:40>>*/ ;
-      default:
-        /*<<camlinternalFormat.ml:291:14>>*/ return 105 /*<<camlinternalFormat.ml:291:14>>*/ ;
+        /*<<camlinternalFormat.ml:290:40>>*/ return 100;
+      default:  /*<<camlinternalFormat.ml:291:14>>*/ return 105;
     }
     /*<<camlinternalFormat.ml:292:41>>*/ }
    function char_of_fconv(opt, fconv){
     var cF = opt ? opt[1] : 70;
     switch(fconv[2]){
       case 0:
-        /*<<camlinternalFormat.ml:297:15>>*/ return 102 /*<<camlinternalFormat.ml:297:15>>*/ ;
+        /*<<camlinternalFormat.ml:297:15>>*/ return 102;
       case 1:
-        /*<<camlinternalFormat.ml:297:32>>*/ return 101 /*<<camlinternalFormat.ml:297:32>>*/ ;
+        /*<<camlinternalFormat.ml:297:32>>*/ return 101;
       case 2:
-        /*<<camlinternalFormat.ml:298:15>>*/ return 69 /*<<camlinternalFormat.ml:298:15>>*/ ;
+        /*<<camlinternalFormat.ml:298:15>>*/ return 69;
       case 3:
-        /*<<camlinternalFormat.ml:298:32>>*/ return 103 /*<<camlinternalFormat.ml:298:32>>*/ ;
+        /*<<camlinternalFormat.ml:298:32>>*/ return 103;
       case 4:
-        /*<<camlinternalFormat.ml:299:15>>*/ return 71 /*<<camlinternalFormat.ml:299:15>>*/ ;
+        /*<<camlinternalFormat.ml:299:15>>*/ return 71;
       case 5:
-        /*<<camlinternalFormat.ml:299:32>>*/ return cF /*<<camlinternalFormat.ml:299:32>>*/ ;
+        /*<<camlinternalFormat.ml:299:32>>*/ return cF;
       case 6:
-        /*<<camlinternalFormat.ml:300:15>>*/ return 104 /*<<camlinternalFormat.ml:300:15>>*/ ;
+        /*<<camlinternalFormat.ml:300:15>>*/ return 104;
       case 7:
-        /*<<camlinternalFormat.ml:300:32>>*/ return 72 /*<<camlinternalFormat.ml:300:32>>*/ ;
-      default:
-        /*<<camlinternalFormat.ml:301:16>>*/ return 70 /*<<camlinternalFormat.ml:301:16>>*/ ;
+        /*<<camlinternalFormat.ml:300:32>>*/ return 72;
+      default:  /*<<camlinternalFormat.ml:301:16>>*/ return 70;
     }
     /*<<camlinternalFormat.ml:301:19>>*/ }
    function bprint_padty(buf, padty){
      /*<<camlinternalFormat.ml:374:29>>*/ switch(padty){
       case 0:
-        /*<<camlinternalFormat.ml:375:13>>*/ return  /*<<camlinternalFormat.ml:375:13>>*/ buffer_add_char
-                /*<<camlinternalFormat.ml:375:13>>*/ (buf, 45) /*<<camlinternalFormat.ml:377:36>>*/ ;
+        /*<<camlinternalFormat.ml:375:13>>*/ return buffer_add_char(buf, 45) /*<<camlinternalFormat.ml:377:36>>*/ ;
       case 1:
-        /*<<camlinternalFormat.ml:376:13>>*/ return /*<<camlinternalFormat.ml:376:13>>*/ ;
+        /*<<camlinternalFormat.ml:376:13>>*/ return;
       default:
-        /*<<camlinternalFormat.ml:377:13>>*/ return  /*<<camlinternalFormat.ml:377:13>>*/ buffer_add_char
-                /*<<camlinternalFormat.ml:377:13>>*/ (buf, 48) /*<<camlinternalFormat.ml:377:36>>*/ ;
+        /*<<camlinternalFormat.ml:377:13>>*/ return buffer_add_char(buf, 48) /*<<camlinternalFormat.ml:377:36>>*/ ;
     }
-    /*<<camlinternalFormat.ml:377:36>>*/ }
+   }
    function bprint_ignored_flag(buf, ign_flag){
      /*<<camlinternalFormat.ml:381:2>>*/ return ign_flag
-            ?  /*<<camlinternalFormat.ml:381:19>>*/ buffer_add_char
-               /*<<camlinternalFormat.ml:381:19>>*/ (buf, 95)
+            ?  /*<<camlinternalFormat.ml:381:19>>*/ buffer_add_char(buf, 95)
             : ign_flag /*<<camlinternalFormat.ml:381:42>>*/ ;
-    /*<<camlinternalFormat.ml:381:42>>*/ }
+   }
    function bprint_pad_opt(buf, pad_opt){
      /*<<camlinternalFormat.ml:385:33>>*/ if(! pad_opt)
-      /*<<camlinternalFormat.ml:386:12>>*/ return /*<<camlinternalFormat.ml:386:12>>*/ ;
+      /*<<camlinternalFormat.ml:386:12>>*/ return;
     var width = pad_opt[1];
-     /*<<camlinternalFormat.ml:387:40>>*/ return  /*<<camlinternalFormat.ml:387:40>>*/ buffer_add_string
-             /*<<camlinternalFormat.ml:387:40>>*/ (buf,
-              /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
-               /*<<camlinternalFormat.ml:387:40>>*/ (Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
-    /*<<camlinternalFormat.ml:387:61>>*/ }
+     /*<<camlinternalFormat.ml:387:40>>*/ return buffer_add_string
+            (buf, caml_call1(Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
+   }
    function bprint_padding(buf, pad){
      /*<<camlinternalFormat.ml:393:15>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:394:18>>*/ return /*<<camlinternalFormat.ml:394:18>>*/ ;
+      /*<<camlinternalFormat.ml:394:18>>*/ return;
     if(0 === pad[0]){
      var n = pad[2], padty = pad[1];
-      /*<<camlinternalFormat.ml:396:4>>*/  /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty
-       /*<<camlinternalFormat.ml:396:4>>*/ (buf, padty);
-      /*<<camlinternalFormat.ml:397:26>>*/ return  /*<<camlinternalFormat.ml:397:26>>*/ buffer_add_string
-              /*<<camlinternalFormat.ml:397:26>>*/ (buf,
-               /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
-                /*<<camlinternalFormat.ml:397:26>>*/ (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
+      /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty(buf, padty);
+      /*<<camlinternalFormat.ml:397:26>>*/ return buffer_add_string
+             (buf, caml_call1(Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
     }
     var padty$0 = pad[1];
-     /*<<camlinternalFormat.ml:399:4>>*/  /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty
-      /*<<camlinternalFormat.ml:399:4>>*/ (buf, padty$0);
-     /*<<camlinternalFormat.ml:399:4>>*/ return  /*<<camlinternalFormat.ml:399:4>>*/ buffer_add_char
-             /*<<camlinternalFormat.ml:399:4>>*/ (buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
-    /*<<camlinternalFormat.ml:400:27>>*/ }
+     /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty(buf, padty$0);
+    return buffer_add_char(buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
+   }
    function bprint_precision(buf, prec){
      /*<<camlinternalFormat.ml:404:18>>*/ if(typeof prec !== "number"){
      var n = prec[1];
-      /*<<camlinternalFormat.ml:407:4>>*/  /*<<camlinternalFormat.ml:407:4>>*/ buffer_add_char
-       /*<<camlinternalFormat.ml:407:4>>*/ (buf, 46);
-      /*<<camlinternalFormat.ml:408:26>>*/ return  /*<<camlinternalFormat.ml:408:26>>*/ buffer_add_string
-              /*<<camlinternalFormat.ml:408:26>>*/ (buf,
-               /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
-                /*<<camlinternalFormat.ml:408:26>>*/ (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
+      /*<<camlinternalFormat.ml:407:4>>*/ buffer_add_char(buf, 46);
+      /*<<camlinternalFormat.ml:408:26>>*/ return buffer_add_string
+             (buf, caml_call1(Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
     }
     if(prec)
-      /*<<camlinternalFormat.ml:410:4>>*/ return  /*<<camlinternalFormat.ml:410:4>>*/ buffer_add_string
-              /*<<camlinternalFormat.ml:410:4>>*/ (buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
-    /*<<camlinternalFormat.ml:410:30>>*/ }
+      /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
+   }
    function bprint_iconv_flag(buf, iconv){
      /*<<camlinternalFormat.ml:415:34>>*/ switch(iconv){
       case 1:
       case 4:
-        /*<<camlinternalFormat.ml:416:23>>*/ return  /*<<camlinternalFormat.ml:416:23>>*/ buffer_add_char
-                /*<<camlinternalFormat.ml:416:23>>*/ (buf, 43) /*<<camlinternalFormat.ml:420:55>>*/ ;
+        /*<<camlinternalFormat.ml:416:23>>*/ return buffer_add_char(buf, 43) /*<<camlinternalFormat.ml:420:55>>*/ ;
       case 2:
       case 5:
-        /*<<camlinternalFormat.ml:417:23>>*/ return  /*<<camlinternalFormat.ml:417:23>>*/ buffer_add_char
-                /*<<camlinternalFormat.ml:417:23>>*/ (buf, 32) /*<<camlinternalFormat.ml:420:55>>*/ ;
+        /*<<camlinternalFormat.ml:417:23>>*/ return buffer_add_char(buf, 32) /*<<camlinternalFormat.ml:420:55>>*/ ;
       case 7:
       case 9:
       case 11:
       case 13:
       case 14:
       case 15:
-        /*<<camlinternalFormat.ml:419:6>>*/ return  /*<<camlinternalFormat.ml:419:6>>*/ buffer_add_char
-                /*<<camlinternalFormat.ml:419:6>>*/ (buf, 35) /*<<camlinternalFormat.ml:420:55>>*/ ;
-      default:
-        /*<<camlinternalFormat.ml:420:53>>*/ return /*<<camlinternalFormat.ml:420:53>>*/ ;
+        /*<<camlinternalFormat.ml:419:6>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:420:55>>*/ ;
+      default:  /*<<camlinternalFormat.ml:420:53>>*/ return;
     }
     /*<<camlinternalFormat.ml:420:55>>*/ }
    function bprint_altint_fmt(buf, ign_flag, iconv, pad, prec, c){
-     /*<<camlinternalFormat.ml:433:2>>*/  /*<<camlinternalFormat.ml:433:2>>*/ buffer_add_char
-      /*<<camlinternalFormat.ml:433:2>>*/ (buf, 37);
-     /*<<camlinternalFormat.ml:434:2>>*/  /*<<camlinternalFormat.ml:434:2>>*/ bprint_ignored_flag
-      /*<<camlinternalFormat.ml:434:2>>*/ (buf, ign_flag);
-     /*<<camlinternalFormat.ml:435:2>>*/  /*<<camlinternalFormat.ml:435:2>>*/ bprint_iconv_flag
-      /*<<camlinternalFormat.ml:435:2>>*/ (buf, iconv);
-     /*<<camlinternalFormat.ml:436:2>>*/  /*<<camlinternalFormat.ml:436:2>>*/ bprint_padding
-      /*<<camlinternalFormat.ml:436:2>>*/ (buf, pad);
-     /*<<camlinternalFormat.ml:437:2>>*/  /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision
-      /*<<camlinternalFormat.ml:437:2>>*/ (buf, prec);
-     /*<<camlinternalFormat.ml:438:2>>*/  /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char
-      /*<<camlinternalFormat.ml:438:2>>*/ (buf, c);
-     /*<<camlinternalFormat.ml:439:22>>*/ return  /*<<camlinternalFormat.ml:439:22>>*/ buffer_add_char
-             /*<<camlinternalFormat.ml:439:22>>*/ (buf,
-              /*<<camlinternalFormat.ml:439:22>>*/ char_of_iconv
-               /*<<camlinternalFormat.ml:439:22>>*/ (iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
-    /*<<camlinternalFormat.ml:439:43>>*/ }
+     /*<<camlinternalFormat.ml:433:2>>*/ buffer_add_char(buf, 37);
+     /*<<camlinternalFormat.ml:434:2>>*/ bprint_ignored_flag(buf, ign_flag);
+     /*<<camlinternalFormat.ml:435:2>>*/ bprint_iconv_flag(buf, iconv);
+     /*<<camlinternalFormat.ml:436:2>>*/ bprint_padding(buf, pad);
+     /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision(buf, prec);
+     /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char(buf, c);
+     /*<<camlinternalFormat.ml:439:22>>*/ return buffer_add_char
+            (buf, char_of_iconv(iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
+   }
    function bprint_fconv_flag(buf, fconv){
      /*<<camlinternalFormat.ml:445:2>>*/ switch(fconv[1]){
       case 0: break;
       case 1:
-        /*<<camlinternalFormat.ml:446:20>>*/  /*<<camlinternalFormat.ml:446:20>>*/ buffer_add_char
-         /*<<camlinternalFormat.ml:446:20>>*/ (buf, 43);
-       break;
-      default:
-        /*<<camlinternalFormat.ml:447:20>>*/  /*<<camlinternalFormat.ml:447:20>>*/ buffer_add_char
-         /*<<camlinternalFormat.ml:447:20>>*/ (buf, 32);
+        /*<<camlinternalFormat.ml:446:20>>*/ buffer_add_char(buf, 43); break;
+      default:  /*<<camlinternalFormat.ml:447:20>>*/ buffer_add_char(buf, 32);
     }
     if(8 <= fconv[2])
-      /*<<camlinternalFormat.ml:450:16>>*/ return  /*<<camlinternalFormat.ml:450:16>>*/ buffer_add_char
-              /*<<camlinternalFormat.ml:450:16>>*/ (buf, 35) /*<<camlinternalFormat.ml:452:37>>*/ ;
-    /*<<camlinternalFormat.ml:452:37>>*/ }
+      /*<<camlinternalFormat.ml:450:16>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:452:37>>*/ ;
+   }
    function string_of_formatting_lit(formatting_lit){
      /*<<camlinternalFormat.ml:465:46>>*/ if
      (typeof formatting_lit === "number")
      switch(formatting_lit){
        case 0:
-         /*<<camlinternalFormat.ml:466:28>>*/ return cst$0 /*<<camlinternalFormat.ml:466:28>>*/ ;
+         /*<<camlinternalFormat.ml:466:28>>*/ return cst$0;
        case 1:
-         /*<<camlinternalFormat.ml:467:28>>*/ return cst$1 /*<<camlinternalFormat.ml:467:28>>*/ ;
+         /*<<camlinternalFormat.ml:467:28>>*/ return cst$1;
        case 2:
-         /*<<camlinternalFormat.ml:469:28>>*/ return cst$2 /*<<camlinternalFormat.ml:469:28>>*/ ;
+         /*<<camlinternalFormat.ml:469:28>>*/ return cst$2;
        case 3:
-         /*<<camlinternalFormat.ml:470:28>>*/ return cst$3 /*<<camlinternalFormat.ml:470:28>>*/ ;
+         /*<<camlinternalFormat.ml:470:28>>*/ return cst$3;
        case 4:
-         /*<<camlinternalFormat.ml:471:28>>*/ return cst$4 /*<<camlinternalFormat.ml:471:28>>*/ ;
+         /*<<camlinternalFormat.ml:471:28>>*/ return cst$4;
        case 5:
-         /*<<camlinternalFormat.ml:473:28>>*/ return cst$5 /*<<camlinternalFormat.ml:473:28>>*/ ;
-       default:
-         /*<<camlinternalFormat.ml:474:28>>*/ return cst$6 /*<<camlinternalFormat.ml:474:28>>*/ ;
+         /*<<camlinternalFormat.ml:473:28>>*/ return cst$5;
+       default:  /*<<camlinternalFormat.ml:474:28>>*/ return cst$6;
      }
     switch(formatting_lit[0]){
       case 0:
        var str = formatting_lit[1];
-        /*<<camlinternalFormat.ml:468:28>>*/ return str /*<<camlinternalFormat.ml:468:28>>*/ ;
+        /*<<camlinternalFormat.ml:468:28>>*/ return str;
       case 1:
        var str$0 = formatting_lit[1];
-        /*<<camlinternalFormat.ml:472:28>>*/ return str$0 /*<<camlinternalFormat.ml:472:28>>*/ ;
+        /*<<camlinternalFormat.ml:472:28>>*/ return str$0;
       default:
        var
         c = formatting_lit[1],
         _cQ_ =
-           /*<<camlinternalFormat.ml:475:26>>*/  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
-            /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib_String[1], 1, c);
-        /*<<camlinternalFormat.ml:475:26>>*/ return  /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
-                /*<<camlinternalFormat.ml:475:26>>*/ (Stdlib[28], cst$7, _cQ_) /*<<camlinternalFormat.ml:475:43>>*/ ;
+           /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
+           (Stdlib_String[1], 1, c);
+       return caml_call2(Stdlib[28], cst$7, _cQ_) /*<<camlinternalFormat.ml:475:43>>*/ ;
     }
-    /*<<camlinternalFormat.ml:475:43>>*/ }
+   }
    function bprint_char_literal(buf, chr){
      /*<<camlinternalFormat.ml:480:34>>*/ return 37 === chr
             ?  /*<<camlinternalFormat.ml:481:11>>*/ buffer_add_string
-               /*<<camlinternalFormat.ml:481:11>>*/ (buf, cst$8)
-            :  /*<<camlinternalFormat.ml:482:9>>*/ buffer_add_char
-               /*<<camlinternalFormat.ml:482:9>>*/ (buf, chr) /*<<camlinternalFormat.ml:482:32>>*/ ;
-    /*<<camlinternalFormat.ml:482:32>>*/ }
+              (buf, cst$8)
+            :  /*<<camlinternalFormat.ml:482:9>>*/ buffer_add_char(buf, chr) /*<<camlinternalFormat.ml:482:32>>*/ ;
+   }
    function bprint_string_literal(buf, str){
     var
      _cO_ = caml_ml_string_length(str) - 1 | 0,
@@ -16649,10 +13703,8 @@
     if(_cO_ >= 0){
      var i = _cN_;
      for(;;){
-       /*<<camlinternalFormat.ml:487:4>>*/  /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
-        /*<<camlinternalFormat.ml:487:4>>*/ (buf,
-         /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get
-          /*<<camlinternalFormat.ml:487:28>>*/ (str, i));
+       /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
+       (buf,  /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get(str, i));
       var _cP_ =  /*<<camlinternalFormat.ml:487:4>>*/ i + 1 | 0;
       if(_cO_ === i) break;
       i = _cP_;
@@ -16663,174 +13715,139 @@
     var fmtty$0 = fmtty;
      /*<<camlinternalFormat.ml:496:17>>*/ for(;;){
      if(typeof fmtty$0 === "number")
-       /*<<camlinternalFormat.ml:521:20>>*/ return /*<<camlinternalFormat.ml:521:20>>*/ ;
+       /*<<camlinternalFormat.ml:521:20>>*/ return;
      switch(fmtty$0[0]){
        case 0:
         var fmtty$1 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:497:25>>*/  /*<<camlinternalFormat.ml:497:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:497:25>>*/ (buf, cst_c);
+         /*<<camlinternalFormat.ml:497:25>>*/ buffer_add_string(buf, cst_c);
         fmtty$0 = fmtty$1;
         break;
        case 1:
         var fmtty$2 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:498:25>>*/  /*<<camlinternalFormat.ml:498:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:498:25>>*/ (buf, cst_s);
+         /*<<camlinternalFormat.ml:498:25>>*/ buffer_add_string(buf, cst_s);
         fmtty$0 = fmtty$2;
         break;
        case 2:
         var fmtty$3 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:499:25>>*/  /*<<camlinternalFormat.ml:499:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:499:25>>*/ (buf, cst_i);
+         /*<<camlinternalFormat.ml:499:25>>*/ buffer_add_string(buf, cst_i);
         fmtty$0 = fmtty$3;
         break;
        case 3:
         var fmtty$4 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:500:25>>*/  /*<<camlinternalFormat.ml:500:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:500:25>>*/ (buf, cst_li);
+         /*<<camlinternalFormat.ml:500:25>>*/ buffer_add_string(buf, cst_li);
         fmtty$0 = fmtty$4;
         break;
        case 4:
         var fmtty$5 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:501:25>>*/  /*<<camlinternalFormat.ml:501:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:501:25>>*/ (buf, cst_ni);
+         /*<<camlinternalFormat.ml:501:25>>*/ buffer_add_string(buf, cst_ni);
         fmtty$0 = fmtty$5;
         break;
        case 5:
         var fmtty$6 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:502:25>>*/  /*<<camlinternalFormat.ml:502:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:502:25>>*/ (buf, cst_Li);
+         /*<<camlinternalFormat.ml:502:25>>*/ buffer_add_string(buf, cst_Li);
         fmtty$0 = fmtty$6;
         break;
        case 6:
         var fmtty$7 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:503:25>>*/  /*<<camlinternalFormat.ml:503:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:503:25>>*/ (buf, cst_f);
+         /*<<camlinternalFormat.ml:503:25>>*/ buffer_add_string(buf, cst_f);
         fmtty$0 = fmtty$7;
         break;
        case 7:
         var fmtty$8 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:504:25>>*/  /*<<camlinternalFormat.ml:504:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:504:25>>*/ (buf, cst_B);
+         /*<<camlinternalFormat.ml:504:25>>*/ buffer_add_string(buf, cst_B);
         fmtty$0 = fmtty$8;
         break;
        case 8:
         var fmtty$9 = fmtty$0[2], sub_fmtty = fmtty$0[1];
-         /*<<camlinternalFormat.ml:515:4>>*/  /*<<camlinternalFormat.ml:515:4>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:515:4>>*/ (buf, cst$9);
-         /*<<camlinternalFormat.ml:515:32>>*/  /*<<camlinternalFormat.ml:515:32>>*/ bprint_fmtty
-          /*<<camlinternalFormat.ml:515:32>>*/ (buf, sub_fmtty);
-         /*<<camlinternalFormat.ml:516:4>>*/  /*<<camlinternalFormat.ml:516:4>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:516:4>>*/ (buf, cst$10);
+         /*<<camlinternalFormat.ml:515:4>>*/ buffer_add_string(buf, cst$9);
+         /*<<camlinternalFormat.ml:515:32>>*/ bprint_fmtty(buf, sub_fmtty);
+         /*<<camlinternalFormat.ml:516:4>>*/ buffer_add_string(buf, cst$10);
         fmtty$0 = fmtty$9;
         break;
        case 9:
         var fmtty$10 = fmtty$0[3], sub_fmtty$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:518:4>>*/  /*<<camlinternalFormat.ml:518:4>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:518:4>>*/ (buf, cst$11);
-         /*<<camlinternalFormat.ml:518:32>>*/  /*<<camlinternalFormat.ml:518:32>>*/ bprint_fmtty
-          /*<<camlinternalFormat.ml:518:32>>*/ (buf, sub_fmtty$0);
-         /*<<camlinternalFormat.ml:519:4>>*/  /*<<camlinternalFormat.ml:519:4>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:519:4>>*/ (buf, cst$12);
+         /*<<camlinternalFormat.ml:518:4>>*/ buffer_add_string(buf, cst$11);
+         /*<<camlinternalFormat.ml:518:32>>*/ bprint_fmtty(buf, sub_fmtty$0);
+         /*<<camlinternalFormat.ml:519:4>>*/ buffer_add_string(buf, cst$12);
         fmtty$0 = fmtty$10;
         break;
        case 10:
         var fmtty$11 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:505:25>>*/  /*<<camlinternalFormat.ml:505:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:505:25>>*/ (buf, cst_a);
+         /*<<camlinternalFormat.ml:505:25>>*/ buffer_add_string(buf, cst_a);
         fmtty$0 = fmtty$11;
         break;
        case 11:
         var fmtty$12 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:506:25>>*/  /*<<camlinternalFormat.ml:506:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:506:25>>*/ (buf, cst_t);
+         /*<<camlinternalFormat.ml:506:25>>*/ buffer_add_string(buf, cst_t);
         fmtty$0 = fmtty$12;
         break;
        case 12:
         var fmtty$13 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:507:25>>*/  /*<<camlinternalFormat.ml:507:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:507:25>>*/ (buf, cst$13);
+         /*<<camlinternalFormat.ml:507:25>>*/ buffer_add_string(buf, cst$13);
         fmtty$0 = fmtty$13;
         break;
        case 13:
         var fmtty$14 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:508:25>>*/  /*<<camlinternalFormat.ml:508:25>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:508:25>>*/ (buf, cst_r);
+         /*<<camlinternalFormat.ml:508:25>>*/ buffer_add_string(buf, cst_r);
         fmtty$0 = fmtty$14;
         break;
        default:
         var fmtty$15 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:511:4>>*/  /*<<camlinternalFormat.ml:511:4>>*/ buffer_add_string
-          /*<<camlinternalFormat.ml:511:4>>*/ (buf, cst_r$0);
+         /*<<camlinternalFormat.ml:511:4>>*/ buffer_add_string(buf, cst_r$0);
         fmtty$0 = fmtty$15;
      }
     }
     /*<<camlinternalFormat.ml:521:22>>*/ }
    function int_of_custom_arity(param){
      /*<<camlinternalFormat.ml:525:8>>*/ if(! param)
-      /*<<camlinternalFormat.ml:528:19>>*/ return 0 /*<<camlinternalFormat.ml:528:19>>*/ ;
+      /*<<camlinternalFormat.ml:528:19>>*/ return 0;
     var x = param[1];
-    return 1
-           +
-             /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity
-              /*<<camlinternalFormat.ml:529:25>>*/ (x)
+    return 1 +  /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity(x)
            | 0;
     /*<<camlinternalFormat.ml:529:46>>*/ }
    function string_of_fmt(fmt){
-    var
-     buf =
-        /*<<camlinternalFormat.ml:644:12>>*/  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create
-         /*<<camlinternalFormat.ml:644:12>>*/ (16);
+    var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
     function fmtiter(fmt, ign_flag){
      var fmt$0 = fmt, ign_flag$0 = ign_flag;
       /*<<camlinternalFormat.ml:535:22>>*/ for(;;){
       if(typeof fmt$0 === "number")
-        /*<<camlinternalFormat.ml:636:23>>*/ return /*<<camlinternalFormat.ml:636:23>>*/ ;
+        /*<<camlinternalFormat.ml:636:23>>*/ return;
       switch(fmt$0[0]){
         case 0:
          var rest = fmt$0[1];
-          /*<<camlinternalFormat.ml:562:6>>*/  /*<<camlinternalFormat.ml:562:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:562:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:562:31>>*/  /*<<camlinternalFormat.ml:562:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:562:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:563:6>>*/  /*<<camlinternalFormat.ml:563:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:563:6>>*/ (buf, 99);
+          /*<<camlinternalFormat.ml:562:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:562:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:563:6>>*/ buffer_add_char(buf, 99);
          fmt$0 = rest;
          ign_flag$0 = 0;
          break;
         case 1:
          var rest$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:565:6>>*/  /*<<camlinternalFormat.ml:565:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:565:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:565:31>>*/  /*<<camlinternalFormat.ml:565:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:565:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:566:6>>*/  /*<<camlinternalFormat.ml:566:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:566:6>>*/ (buf, 67);
+          /*<<camlinternalFormat.ml:565:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:565:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:566:6>>*/ buffer_add_char(buf, 67);
          fmt$0 = rest$0;
          ign_flag$0 = 0;
          break;
         case 2:
          var rest$1 = fmt$0[2], pad = fmt$0[1];
-          /*<<camlinternalFormat.ml:537:6>>*/  /*<<camlinternalFormat.ml:537:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:537:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:537:31>>*/  /*<<camlinternalFormat.ml:537:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:537:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:538:6>>*/  /*<<camlinternalFormat.ml:538:6>>*/ bprint_padding
-           /*<<camlinternalFormat.ml:538:6>>*/ (buf, pad);
-          /*<<camlinternalFormat.ml:538:30>>*/  /*<<camlinternalFormat.ml:538:30>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:538:30>>*/ (buf, 115);
+          /*<<camlinternalFormat.ml:537:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:537:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:538:6>>*/ bprint_padding(buf, pad);
+          /*<<camlinternalFormat.ml:538:30>>*/ buffer_add_char(buf, 115);
          fmt$0 = rest$1;
          ign_flag$0 = 0;
          break;
         case 3:
          var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:541:6>>*/  /*<<camlinternalFormat.ml:541:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:541:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:541:31>>*/  /*<<camlinternalFormat.ml:541:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:541:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:542:6>>*/  /*<<camlinternalFormat.ml:542:6>>*/ bprint_padding
-           /*<<camlinternalFormat.ml:542:6>>*/ (buf, pad$0);
-          /*<<camlinternalFormat.ml:542:30>>*/  /*<<camlinternalFormat.ml:542:30>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:542:30>>*/ (buf, 83);
+          /*<<camlinternalFormat.ml:541:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:541:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:542:6>>*/ bprint_padding(buf, pad$0);
+          /*<<camlinternalFormat.ml:542:30>>*/ buffer_add_char(buf, 83);
          fmt$0 = rest$2;
          ign_flag$0 = 0;
          break;
@@ -16840,20 +13857,14 @@
           prec = fmt$0[3],
           pad$1 = fmt$0[2],
           iconv = fmt$0[1];
-          /*<<camlinternalFormat.ml:424:2>>*/  /*<<camlinternalFormat.ml:424:2>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:424:2>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:425:2>>*/  /*<<camlinternalFormat.ml:425:2>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:425:2>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:426:2>>*/  /*<<camlinternalFormat.ml:426:2>>*/ bprint_iconv_flag
-           /*<<camlinternalFormat.ml:426:2>>*/ (buf, iconv);
-          /*<<camlinternalFormat.ml:427:2>>*/  /*<<camlinternalFormat.ml:427:2>>*/ bprint_padding
-           /*<<camlinternalFormat.ml:427:2>>*/ (buf, pad$1);
-          /*<<camlinternalFormat.ml:428:2>>*/  /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision
-           /*<<camlinternalFormat.ml:428:2>>*/ (buf, prec);
-          /*<<camlinternalFormat.ml:429:22>>*/  /*<<camlinternalFormat.ml:429:22>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:429:22>>*/ (buf,
-            /*<<camlinternalFormat.ml:429:22>>*/ char_of_iconv
-             /*<<camlinternalFormat.ml:429:22>>*/ (iconv));
+          /*<<camlinternalFormat.ml:424:2>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:425:2>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:426:2>>*/ bprint_iconv_flag(buf, iconv);
+          /*<<camlinternalFormat.ml:427:2>>*/ bprint_padding(buf, pad$1);
+          /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision(buf, prec);
+          /*<<camlinternalFormat.ml:429:22>>*/ buffer_add_char
+          (buf, char_of_iconv(iconv));
          fmt$0 = rest$3;
          ign_flag$0 = 0;
          break;
@@ -16863,13 +13874,8 @@
           prec$0 = fmt$0[3],
           pad$2 = fmt$0[2],
           iconv$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:549:6>>*/  /*<<camlinternalFormat.ml:549:6>>*/ bprint_altint_fmt
-           /*<<camlinternalFormat.ml:549:6>>*/ (buf,
-           ign_flag$0,
-           iconv$0,
-           pad$2,
-           prec$0,
-           108);
+          /*<<camlinternalFormat.ml:549:6>>*/ bprint_altint_fmt
+          (buf, ign_flag$0, iconv$0, pad$2, prec$0, 108);
          fmt$0 = rest$4;
          ign_flag$0 = 0;
          break;
@@ -16879,13 +13885,8 @@
           prec$1 = fmt$0[3],
           pad$3 = fmt$0[2],
           iconv$1 = fmt$0[1];
-          /*<<camlinternalFormat.ml:552:6>>*/  /*<<camlinternalFormat.ml:552:6>>*/ bprint_altint_fmt
-           /*<<camlinternalFormat.ml:552:6>>*/ (buf,
-           ign_flag$0,
-           iconv$1,
-           pad$3,
-           prec$1,
-           110);
+          /*<<camlinternalFormat.ml:552:6>>*/ bprint_altint_fmt
+          (buf, ign_flag$0, iconv$1, pad$3, prec$1, 110);
          fmt$0 = rest$5;
          ign_flag$0 = 0;
          break;
@@ -16895,13 +13896,8 @@
           prec$2 = fmt$0[3],
           pad$4 = fmt$0[2],
           iconv$2 = fmt$0[1];
-          /*<<camlinternalFormat.ml:555:6>>*/  /*<<camlinternalFormat.ml:555:6>>*/ bprint_altint_fmt
-           /*<<camlinternalFormat.ml:555:6>>*/ (buf,
-           ign_flag$0,
-           iconv$2,
-           pad$4,
-           prec$2,
-           76);
+          /*<<camlinternalFormat.ml:555:6>>*/ bprint_altint_fmt
+          (buf, ign_flag$0, iconv$2, pad$4, prec$2, 76);
          fmt$0 = rest$6;
          ign_flag$0 = 0;
          break;
@@ -16911,190 +13907,149 @@
           prec$3 = fmt$0[3],
           pad$5 = fmt$0[2],
           fconv = fmt$0[1];
-          /*<<camlinternalFormat.ml:456:2>>*/  /*<<camlinternalFormat.ml:456:2>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:456:2>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:457:2>>*/  /*<<camlinternalFormat.ml:457:2>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:457:2>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:458:2>>*/  /*<<camlinternalFormat.ml:458:2>>*/ bprint_fconv_flag
-           /*<<camlinternalFormat.ml:458:2>>*/ (buf, fconv);
-          /*<<camlinternalFormat.ml:459:2>>*/  /*<<camlinternalFormat.ml:459:2>>*/ bprint_padding
-           /*<<camlinternalFormat.ml:459:2>>*/ (buf, pad$5);
-          /*<<camlinternalFormat.ml:460:2>>*/  /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision
-           /*<<camlinternalFormat.ml:460:2>>*/ (buf, prec$3);
-          /*<<camlinternalFormat.ml:461:22>>*/  /*<<camlinternalFormat.ml:461:22>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:461:22>>*/ (buf,
-            /*<<camlinternalFormat.ml:461:22>>*/ char_of_fconv
-             /*<<camlinternalFormat.ml:461:22>>*/ (0, fconv));
+          /*<<camlinternalFormat.ml:456:2>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:457:2>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:458:2>>*/ bprint_fconv_flag(buf, fconv);
+          /*<<camlinternalFormat.ml:459:2>>*/ bprint_padding(buf, pad$5);
+          /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision(buf, prec$3);
+          /*<<camlinternalFormat.ml:461:22>>*/ buffer_add_char
+          (buf, char_of_fconv(0, fconv));
          fmt$0 = rest$7;
          ign_flag$0 = 0;
          break;
         case 9:
          var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
-          /*<<camlinternalFormat.ml:568:6>>*/  /*<<camlinternalFormat.ml:568:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:568:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:568:31>>*/  /*<<camlinternalFormat.ml:568:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:568:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:569:6>>*/  /*<<camlinternalFormat.ml:569:6>>*/ bprint_padding
-           /*<<camlinternalFormat.ml:569:6>>*/ (buf, pad$6);
-          /*<<camlinternalFormat.ml:569:30>>*/  /*<<camlinternalFormat.ml:569:30>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:569:30>>*/ (buf, 66);
+          /*<<camlinternalFormat.ml:568:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:568:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:569:6>>*/ bprint_padding(buf, pad$6);
+          /*<<camlinternalFormat.ml:569:30>>*/ buffer_add_char(buf, 66);
          fmt$0 = rest$8;
          ign_flag$0 = 0;
          break;
         case 10:
          var rest$9 = fmt$0[1];
-          /*<<camlinternalFormat.ml:587:6>>*/  /*<<camlinternalFormat.ml:587:6>>*/ buffer_add_string
-           /*<<camlinternalFormat.ml:587:6>>*/ (buf, cst$14);
+          /*<<camlinternalFormat.ml:587:6>>*/ buffer_add_string(buf, cst$14);
          fmt$0 = rest$9;
          break;
         case 11:
          var rest$10 = fmt$0[2], str = fmt$0[1];
-          /*<<camlinternalFormat.ml:591:6>>*/  /*<<camlinternalFormat.ml:591:6>>*/ bprint_string_literal
-           /*<<camlinternalFormat.ml:591:6>>*/ (buf, str);
+          /*<<camlinternalFormat.ml:591:6>>*/ bprint_string_literal(buf, str);
          fmt$0 = rest$10;
          break;
         case 12:
          var rest$11 = fmt$0[2], chr = fmt$0[1];
-          /*<<camlinternalFormat.ml:594:6>>*/  /*<<camlinternalFormat.ml:594:6>>*/ bprint_char_literal
-           /*<<camlinternalFormat.ml:594:6>>*/ (buf, chr);
+          /*<<camlinternalFormat.ml:594:6>>*/ bprint_char_literal(buf, chr);
          fmt$0 = rest$11;
          break;
         case 13:
          var rest$12 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
-          /*<<camlinternalFormat.ml:598:6>>*/  /*<<camlinternalFormat.ml:598:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:598:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:598:31>>*/  /*<<camlinternalFormat.ml:598:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:598:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:599:6>>*/  /*<<camlinternalFormat.ml:599:6>>*/ bprint_pad_opt
-           /*<<camlinternalFormat.ml:599:6>>*/ (buf, pad_opt);
-          /*<<camlinternalFormat.ml:599:34>>*/  /*<<camlinternalFormat.ml:599:34>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:599:34>>*/ (buf, 123);
-          /*<<camlinternalFormat.ml:600:6>>*/  /*<<camlinternalFormat.ml:600:6>>*/ bprint_fmtty
-           /*<<camlinternalFormat.ml:600:6>>*/ (buf, fmtty);
-          /*<<camlinternalFormat.ml:600:30>>*/  /*<<camlinternalFormat.ml:600:30>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:600:30>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:600:55>>*/  /*<<camlinternalFormat.ml:600:55>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:600:55>>*/ (buf, 125);
+          /*<<camlinternalFormat.ml:598:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:598:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:599:6>>*/ bprint_pad_opt(buf, pad_opt);
+          /*<<camlinternalFormat.ml:599:34>>*/ buffer_add_char(buf, 123);
+          /*<<camlinternalFormat.ml:600:6>>*/ bprint_fmtty(buf, fmtty);
+          /*<<camlinternalFormat.ml:600:30>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:600:55>>*/ buffer_add_char(buf, 125);
          fmt$0 = rest$12;
          ign_flag$0 = 0;
          break;
         case 14:
          var rest$13 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
-          /*<<camlinternalFormat.ml:603:6>>*/  /*<<camlinternalFormat.ml:603:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:603:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:603:31>>*/  /*<<camlinternalFormat.ml:603:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:603:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:604:6>>*/  /*<<camlinternalFormat.ml:604:6>>*/ bprint_pad_opt
-           /*<<camlinternalFormat.ml:604:6>>*/ (buf, pad_opt$0);
-          /*<<camlinternalFormat.ml:604:34>>*/  /*<<camlinternalFormat.ml:604:34>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:604:34>>*/ (buf, 40);
-          /*<<camlinternalFormat.ml:605:6>>*/  /*<<camlinternalFormat.ml:605:6>>*/ bprint_fmtty
-           /*<<camlinternalFormat.ml:605:6>>*/ (buf, fmtty$0);
-          /*<<camlinternalFormat.ml:605:30>>*/  /*<<camlinternalFormat.ml:605:30>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:605:30>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:605:55>>*/  /*<<camlinternalFormat.ml:605:55>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:605:55>>*/ (buf, 41);
+          /*<<camlinternalFormat.ml:603:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:603:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:604:6>>*/ bprint_pad_opt(buf, pad_opt$0);
+          /*<<camlinternalFormat.ml:604:34>>*/ buffer_add_char(buf, 40);
+          /*<<camlinternalFormat.ml:605:6>>*/ bprint_fmtty(buf, fmtty$0);
+          /*<<camlinternalFormat.ml:605:30>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:605:55>>*/ buffer_add_char(buf, 41);
          fmt$0 = rest$13;
          ign_flag$0 = 0;
          break;
         case 15:
          var rest$14 = fmt$0[1];
-          /*<<camlinternalFormat.ml:572:6>>*/  /*<<camlinternalFormat.ml:572:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:572:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:572:31>>*/  /*<<camlinternalFormat.ml:572:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:572:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:573:6>>*/  /*<<camlinternalFormat.ml:573:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:573:6>>*/ (buf, 97);
+          /*<<camlinternalFormat.ml:572:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:572:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:573:6>>*/ buffer_add_char(buf, 97);
          fmt$0 = rest$14;
          ign_flag$0 = 0;
          break;
         case 16:
          var rest$15 = fmt$0[1];
-          /*<<camlinternalFormat.ml:575:6>>*/  /*<<camlinternalFormat.ml:575:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:575:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:575:31>>*/  /*<<camlinternalFormat.ml:575:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:575:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:576:6>>*/  /*<<camlinternalFormat.ml:576:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:576:6>>*/ (buf, 116);
+          /*<<camlinternalFormat.ml:575:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:575:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:576:6>>*/ buffer_add_char(buf, 116);
          fmt$0 = rest$15;
          ign_flag$0 = 0;
          break;
         case 17:
          var rest$16 = fmt$0[2], fmting_lit = fmt$0[1];
-          /*<<camlinternalFormat.ml:625:6>>*/  /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
-           /*<<camlinternalFormat.ml:625:6>>*/ (buf,
+          /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
+          (buf,
             /*<<camlinternalFormat.ml:625:32>>*/ string_of_formatting_lit
-             /*<<camlinternalFormat.ml:625:32>>*/ (fmting_lit));
+            (fmting_lit));
          fmt$0 = rest$16;
          break;
         case 18:
          var rest$17 = fmt$0[2], fmting_gen = fmt$0[1];
           /*<<camlinternalFormat.ml:628:6>>*/ if(0 === fmting_gen[0]){
           var str$0 = fmting_gen[1][2];
-           /*<<camlinternalFormat.ml:630:8>>*/  /*<<camlinternalFormat.ml:630:8>>*/ buffer_add_string
-            /*<<camlinternalFormat.ml:630:8>>*/ (buf, cst$15);
-           /*<<camlinternalFormat.ml:630:36>>*/  /*<<camlinternalFormat.ml:630:36>>*/ buffer_add_string
-            /*<<camlinternalFormat.ml:630:36>>*/ (buf, str$0);
+           /*<<camlinternalFormat.ml:630:8>>*/ buffer_add_string(buf, cst$15);
+           /*<<camlinternalFormat.ml:630:36>>*/ buffer_add_string(buf, str$0);
          }
          else{
           var str$1 = fmting_gen[1][2];
-           /*<<camlinternalFormat.ml:632:8>>*/  /*<<camlinternalFormat.ml:632:8>>*/ buffer_add_string
-            /*<<camlinternalFormat.ml:632:8>>*/ (buf, cst$16);
-           /*<<camlinternalFormat.ml:632:36>>*/  /*<<camlinternalFormat.ml:632:36>>*/ buffer_add_string
-            /*<<camlinternalFormat.ml:632:36>>*/ (buf, str$1);
+           /*<<camlinternalFormat.ml:632:8>>*/ buffer_add_string(buf, cst$16);
+           /*<<camlinternalFormat.ml:632:36>>*/ buffer_add_string(buf, str$1);
          }
          fmt$0 = rest$17;
          break;
         case 19:
          var rest$18 = fmt$0[1];
-          /*<<camlinternalFormat.ml:584:6>>*/  /*<<camlinternalFormat.ml:584:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:584:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:584:31>>*/  /*<<camlinternalFormat.ml:584:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:584:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:585:6>>*/  /*<<camlinternalFormat.ml:585:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:585:6>>*/ (buf, 114);
+          /*<<camlinternalFormat.ml:584:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:584:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:585:6>>*/ buffer_add_char(buf, 114);
          fmt$0 = rest$18;
          ign_flag$0 = 0;
          break;
         case 20:
          var rest$19 = fmt$0[3], char_set = fmt$0[2], width_opt = fmt$0[1];
-          /*<<camlinternalFormat.ml:609:6>>*/  /*<<camlinternalFormat.ml:609:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:609:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:609:31>>*/  /*<<camlinternalFormat.ml:609:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:609:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:610:6>>*/  /*<<camlinternalFormat.ml:610:6>>*/ bprint_pad_opt
-           /*<<camlinternalFormat.ml:610:6>>*/ (buf, width_opt);
+          /*<<camlinternalFormat.ml:609:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:609:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:610:6>>*/ bprint_pad_opt(buf, width_opt);
          var
           print_char =
             function(buf, i){
              var
               c =
-                 /*<<camlinternalFormat.ml:358:31>>*/  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
-                  /*<<camlinternalFormat.ml:358:31>>*/ (Stdlib[29], i);
+                 /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
+                 (Stdlib[29], i);
              return 37 === c
                      ? ( /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char
-                         /*<<camlinternalFormat.ml:359:13>>*/ (buf, 37),
-                        /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char
-                         /*<<camlinternalFormat.ml:359:13>>*/ (buf, 37))
+                        (buf, 37),
+                       buffer_add_char(buf, 37))
                      : 64
                        === c
                        ? ( /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char
-                           /*<<camlinternalFormat.ml:360:13>>*/ (buf, 37),
-                          /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char
-                           /*<<camlinternalFormat.ml:360:13>>*/ (buf, 64))
+                          (buf, 37),
+                         buffer_add_char(buf, 64))
                        :  /*<<camlinternalFormat.ml:361:13>>*/ buffer_add_char
-                          /*<<camlinternalFormat.ml:361:13>>*/ (buf, c) /*<<camlinternalFormat.ml:361:35>>*/ ;
-             /*<<camlinternalFormat.ml:361:35>>*/ };
-          /*<<camlinternalFormat.ml:363:2>>*/  /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:363:2>>*/ (buf, 91);
+                         (buf, c) /*<<camlinternalFormat.ml:361:35>>*/ ;
+            };
+          /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
          var
           set =
-             /*<<camlinternalFormat.ml:365:7>>*/  /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set
-               /*<<camlinternalFormat.ml:365:7>>*/ (char_set, 0)
+             /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set(char_set, 0)
              ? ( /*<<camlinternalFormat.ml:366:11>>*/ buffer_add_char
-                 /*<<camlinternalFormat.ml:366:11>>*/ (buf, 94),
-                /*<<camlinternalFormat.ml:366:36>>*/ rev_char_set
-                 /*<<camlinternalFormat.ml:366:36>>*/ (char_set))
+                (buf, 94),
+                /*<<camlinternalFormat.ml:366:36>>*/ rev_char_set(char_set))
              : char_set;
          let set$0 = set;
          var
@@ -17102,36 +14057,30 @@
             function(c){
              var
               after =
-                 /*<<camlinternalFormat.ml:316:50>>*/  /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
-                  /*<<camlinternalFormat.ml:316:50>>*/ (Stdlib_Char[1],
-                  c + 1 | 0),
+                 /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
+                 (Stdlib_Char[1], c + 1 | 0),
               before =
-                 /*<<camlinternalFormat.ml:316:32>>*/  /*<<camlinternalFormat.ml:316:32>>*/ caml_call1
-                  /*<<camlinternalFormat.ml:316:32>>*/ (Stdlib_Char[1],
-                  c - 1 | 0),
+                 /*<<camlinternalFormat.ml:316:32>>*/ caml_call1
+                 (Stdlib_Char[1], c - 1 | 0),
               _cJ_ =
-                 /*<<camlinternalFormat.ml:317:6>>*/  /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set
-                  /*<<camlinternalFormat.ml:317:6>>*/ (set$0, c);
-              /*<<camlinternalFormat.ml:317:6>>*/ if(_cJ_)
+                 /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set(set$0, c);
+             if(_cJ_)
               var
                _cK_ =
-                  /*<<camlinternalFormat.ml:318:14>>*/  /*<<camlinternalFormat.ml:318:14>>*/ is_in_char_set
-                   /*<<camlinternalFormat.ml:318:14>>*/ (set$0, before),
+                  /*<<camlinternalFormat.ml:318:14>>*/ is_in_char_set
+                  (set$0, before),
                _cL_ =
-                  /*<<camlinternalFormat.ml:318:14>>*/ _cK_
+                 _cK_
                   ?  /*<<camlinternalFormat.ml:318:43>>*/ is_in_char_set
-                     /*<<camlinternalFormat.ml:318:43>>*/ (set$0, after)
+                    (set$0, after)
                   : _cK_,
                _cM_ = 1 - _cL_;
              else
               var _cM_ = _cJ_;
-              /*<<camlinternalFormat.ml:318:43>>*/ return _cM_ /*<<camlinternalFormat.ml:318:43>>*/ ;
+             return _cM_;
              /*<<camlinternalFormat.ml:318:68>>*/ };
-          /*<<camlinternalFormat.ml:319:7>>*/ if
-          ( /*<<camlinternalFormat.ml:319:7>>*/ is_alone
-             /*<<camlinternalFormat.ml:319:7>>*/ (93))
-           /*<<camlinternalFormat.ml:319:25>>*/  /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char
-            /*<<camlinternalFormat.ml:319:25>>*/ (buf, 93);
+          /*<<camlinternalFormat.ml:319:7>>*/ if(is_alone(93))
+           /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char(buf, 93);
          a:
          b:
          {
@@ -17143,14 +14092,14 @@
              /*<<camlinternalFormat.ml:323:4>>*/ for(;;){
              if(i >= 256) break;
               /*<<camlinternalFormat.ml:324:9>>*/ if
-              ( /*<<camlinternalFormat.ml:324:9>>*/ is_in_char_set
-                 /*<<camlinternalFormat.ml:324:9>>*/ (set,
+              (is_in_char_set
+                (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
-                   /*<<camlinternalFormat.ml:324:28>>*/ (Stdlib[29], i))){
+                  (Stdlib[29], i))){
               var
                switcher =
-                  /*<<camlinternalFormat.ml:327:10>>*/  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
-                   /*<<camlinternalFormat.ml:327:10>>*/ (Stdlib[29], i)
+                  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
+                  (Stdlib[29], i)
                  - 45
                  | 0;
               if(48 < switcher >>> 0){
@@ -17163,14 +14112,14 @@
               }
               var i$1 =  /*<<camlinternalFormat.ml:330:11>>*/ i + 1 | 0;
                /*<<camlinternalFormat.ml:332:7>>*/ if
-               ( /*<<camlinternalFormat.ml:332:7>>*/ is_in_char_set
-                  /*<<camlinternalFormat.ml:332:7>>*/ (set,
+               (is_in_char_set
+                 (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
-                    /*<<camlinternalFormat.ml:332:26>>*/ (Stdlib[29], i$1))){
+                   (Stdlib[29], i$1))){
                var
                 switcher$0 =
-                   /*<<camlinternalFormat.ml:333:12>>*/  /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
-                    /*<<camlinternalFormat.ml:333:12>>*/ (Stdlib[29], i$1)
+                   /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
+                   (Stdlib[29], i$1)
                   - 45
                   | 0;
                if(48 < switcher$0 >>> 0){
@@ -17181,22 +14130,20 @@
                  &&
                   !
                    /*<<camlinternalFormat.ml:337:27>>*/ is_in_char_set
-                    /*<<camlinternalFormat.ml:337:27>>*/ (set,
+                   (set,
                      /*<<camlinternalFormat.ml:337:47>>*/ caml_call1
-                      /*<<camlinternalFormat.ml:337:47>>*/ (Stdlib[29],
-                      i$1 + 1 | 0))){
-                 /*<<camlinternalFormat.ml:338:8>>*/  /*<<camlinternalFormat.ml:338:8>>*/ print_char
-                  /*<<camlinternalFormat.ml:338:8>>*/ (buf, i$1 - 1 | 0);
-                var i$5 =  /*<<camlinternalFormat.ml:338:8>>*/ i$1 + 1 | 0;
+                     (Stdlib[29], i$1 + 1 | 0))){
+                 /*<<camlinternalFormat.ml:338:8>>*/ print_char
+                 (buf, i$1 - 1 | 0);
+                var i$5 = i$1 + 1 | 0;
                 i = i$5;
                 continue;
                }
                 /*<<camlinternalFormat.ml:340:19>>*/ if
-                ( /*<<camlinternalFormat.ml:340:19>>*/ is_in_char_set
-                   /*<<camlinternalFormat.ml:340:19>>*/ (set,
+                (is_in_char_set
+                  (set,
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
-                     /*<<camlinternalFormat.ml:340:39>>*/ (Stdlib[29],
-                     i$1 + 1 | 0))){
+                    (Stdlib[29], i$1 + 1 | 0))){
                 var
                  j =  /*<<camlinternalFormat.ml:345:8>>*/ i$1 + 2 | 0,
                  i$3 = i$1 - 1 | 0,
@@ -17205,37 +14152,34 @@
                  if(256 === j$0) break;
                   /*<<camlinternalFormat.ml:351:22>>*/ if
                   (!
-                    /*<<camlinternalFormat.ml:351:22>>*/ is_in_char_set
-                     /*<<camlinternalFormat.ml:351:22>>*/ (set,
+                   is_in_char_set
+                    (set,
                       /*<<camlinternalFormat.ml:351:42>>*/ caml_call1
-                       /*<<camlinternalFormat.ml:351:42>>*/ (Stdlib[29], j$0)))
+                      (Stdlib[29], j$0)))
                   break;
                  var j$1 =  /*<<camlinternalFormat.ml:357:6>>*/ j$0 + 1 | 0;
                  j$0 = j$1;
                 }
-                 /*<<camlinternalFormat.ml:352:6>>*/  /*<<camlinternalFormat.ml:352:6>>*/ print_char
-                  /*<<camlinternalFormat.ml:352:6>>*/ (buf, i$3);
-                 /*<<camlinternalFormat.ml:353:6>>*/  /*<<camlinternalFormat.ml:353:6>>*/ print_char
-                  /*<<camlinternalFormat.ml:353:6>>*/ (buf, 45);
-                 /*<<camlinternalFormat.ml:354:6>>*/  /*<<camlinternalFormat.ml:354:6>>*/ print_char
-                  /*<<camlinternalFormat.ml:354:6>>*/ (buf, j$0 - 1 | 0);
+                 /*<<camlinternalFormat.ml:352:6>>*/ print_char(buf, i$3);
+                 /*<<camlinternalFormat.ml:353:6>>*/ print_char(buf, 45);
+                 /*<<camlinternalFormat.ml:354:6>>*/ print_char
+                 (buf, j$0 - 1 | 0);
                 if(j$0 >= 256) break b;
                 var i$7 =  /*<<camlinternalFormat.ml:355:22>>*/ j$0 + 1 | 0;
                 i = i$7;
                }
                else{
-                 /*<<camlinternalFormat.ml:341:8>>*/  /*<<camlinternalFormat.ml:341:8>>*/ print_char
-                  /*<<camlinternalFormat.ml:341:8>>*/ (buf, i$1 - 1 | 0);
-                 /*<<camlinternalFormat.ml:342:8>>*/  /*<<camlinternalFormat.ml:342:8>>*/ print_char
-                  /*<<camlinternalFormat.ml:342:8>>*/ (buf, i$1);
-                var i$4 =  /*<<camlinternalFormat.ml:342:8>>*/ i$1 + 2 | 0;
+                 /*<<camlinternalFormat.ml:341:8>>*/ print_char
+                 (buf, i$1 - 1 | 0);
+                 /*<<camlinternalFormat.ml:342:8>>*/ print_char(buf, i$1);
+                var i$4 = i$1 + 2 | 0;
                 i = i$4;
                }
               }
               else{
-                /*<<camlinternalFormat.ml:347:6>>*/  /*<<camlinternalFormat.ml:347:6>>*/ print_char
-                 /*<<camlinternalFormat.ml:347:6>>*/ (buf, i$1 - 1 | 0);
-               var i$6 =  /*<<camlinternalFormat.ml:347:6>>*/ i$1 + 1 | 0;
+                /*<<camlinternalFormat.ml:347:6>>*/ print_char
+                (buf, i$1 - 1 | 0);
+               var i$6 = i$1 + 1 | 0;
                i = i$6;
               }
              }
@@ -17246,32 +14190,24 @@
             }
             break a;
            }
-            /*<<camlinternalFormat.ml:328:16>>*/  /*<<camlinternalFormat.ml:328:16>>*/ print_char
-             /*<<camlinternalFormat.ml:328:16>>*/ (buf, 255);
+            /*<<camlinternalFormat.ml:328:16>>*/ print_char(buf, 255);
            break a;
           }
-           /*<<camlinternalFormat.ml:335:8>>*/  /*<<camlinternalFormat.ml:335:8>>*/ print_char
-            /*<<camlinternalFormat.ml:335:8>>*/ (buf, 254);
-           /*<<camlinternalFormat.ml:335:8>>*/  /*<<camlinternalFormat.ml:335:8>>*/ print_char
-            /*<<camlinternalFormat.ml:335:8>>*/ (buf, 255);
+           /*<<camlinternalFormat.ml:335:8>>*/ print_char(buf, 254);
+          print_char(buf, 255);
           break a;
          }
-          /*<<camlinternalFormat.ml:321:7>>*/ if
-          ( /*<<camlinternalFormat.ml:321:7>>*/ is_alone
-             /*<<camlinternalFormat.ml:321:7>>*/ (45))
-           /*<<camlinternalFormat.ml:321:25>>*/  /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char
-            /*<<camlinternalFormat.ml:321:25>>*/ (buf, 45);
-          /*<<camlinternalFormat.ml:364:2>>*/  /*<<camlinternalFormat.ml:364:2>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:364:2>>*/ (buf, 93);
+          /*<<camlinternalFormat.ml:321:7>>*/ if(is_alone(45))
+           /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char(buf, 45);
+          /*<<camlinternalFormat.ml:364:2>>*/ buffer_add_char(buf, 93);
          fmt$0 = rest$19;
          ign_flag$0 = 0;
          break;
         case 21:
          var rest$20 = fmt$0[2], counter = fmt$0[1];
-          /*<<camlinternalFormat.ml:613:6>>*/  /*<<camlinternalFormat.ml:613:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:613:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:613:31>>*/  /*<<camlinternalFormat.ml:613:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:613:31>>*/ (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:613:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:613:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
          switch(counter){
            case 0:
             var _cF_ = 108; break;
@@ -17279,19 +14215,17 @@
             var _cF_ = 110; break;
            default: var _cF_ = 78;
          }
-          /*<<camlinternalFormat.ml:614:6>>*/  /*<<camlinternalFormat.ml:614:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:614:6>>*/ (buf, _cF_);
+          /*<<camlinternalFormat.ml:614:6>>*/ buffer_add_char(buf, _cF_);
          fmt$0 = rest$20;
          ign_flag$0 = 0;
          break;
         case 22:
          var rest$21 = fmt$0[1];
-          /*<<camlinternalFormat.ml:617:6>>*/  /*<<camlinternalFormat.ml:617:6>>*/ buffer_add_char
-           /*<<camlinternalFormat.ml:617:6>>*/ (buf, 37);
-          /*<<camlinternalFormat.ml:617:31>>*/  /*<<camlinternalFormat.ml:617:31>>*/ bprint_ignored_flag
-           /*<<camlinternalFormat.ml:617:31>>*/ (buf, ign_flag$0);
-          /*<<camlinternalFormat.ml:618:6>>*/  /*<<camlinternalFormat.ml:618:6>>*/ bprint_string_literal
-           /*<<camlinternalFormat.ml:618:6>>*/ (buf, cst_0c);
+          /*<<camlinternalFormat.ml:617:6>>*/ buffer_add_char(buf, 37);
+          /*<<camlinternalFormat.ml:617:31>>*/ bprint_ignored_flag
+          (buf, ign_flag$0);
+          /*<<camlinternalFormat.ml:618:6>>*/ bprint_string_literal
+          (buf, cst_0c);
          fmt$0 = rest$21;
          ign_flag$0 = 0;
          break;
@@ -17301,7 +14235,7 @@
           ign = fmt$0[1],
           fmt$1 =
              /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
-               /*<<camlinternalFormat.ml:621:34>>*/ (ign, rest$22)
+              (ign, rest$22)
              [1];
          fmt$0 = fmt$1;
          ign_flag$0 = 1;
@@ -17311,19 +14245,16 @@
           rest$23 = fmt$0[3],
           arity = fmt$0[1],
           _cH_ =
-             /*<<camlinternalFormat.ml:578:20>>*/  /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity
-              /*<<camlinternalFormat.ml:578:20>>*/ (arity),
+             /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity(arity),
           _cG_ = 1;
          if(_cH_ >= 1){
           var i$8 = _cG_;
           for(;;){
-            /*<<camlinternalFormat.ml:579:8>>*/  /*<<camlinternalFormat.ml:579:8>>*/ buffer_add_char
-             /*<<camlinternalFormat.ml:579:8>>*/ (buf, 37);
-            /*<<camlinternalFormat.ml:579:33>>*/  /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
-             /*<<camlinternalFormat.ml:579:33>>*/ (buf, ign_flag$0);
-            /*<<camlinternalFormat.ml:580:8>>*/  /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char
-             /*<<camlinternalFormat.ml:580:8>>*/ (buf, 63);
-           var _cI_ =  /*<<camlinternalFormat.ml:580:8>>*/ i$8 + 1 | 0;
+            /*<<camlinternalFormat.ml:579:8>>*/ buffer_add_char(buf, 37);
+            /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
+            (buf, ign_flag$0);
+            /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char(buf, 63);
+           var _cI_ = i$8 + 1 | 0;
            if(_cH_ === i$8) break;
            i$8 = _cI_;
           }
@@ -17333,93 +14264,76 @@
       }
      }
      /*<<camlinternalFormat.ml:636:25>>*/ }
-     /*<<camlinternalFormat.ml:638:5>>*/  /*<<camlinternalFormat.ml:638:5>>*/ fmtiter
-      /*<<camlinternalFormat.ml:638:5>>*/ (fmt, 0);
-     /*<<camlinternalFormat.ml:645:2>>*/ return  /*<<camlinternalFormat.ml:645:2>>*/ buffer_contents
-             /*<<camlinternalFormat.ml:645:2>>*/ (buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
-    /*<<camlinternalFormat.ml:646:21>>*/ }
+     /*<<camlinternalFormat.ml:638:5>>*/ fmtiter(fmt, 0);
+     /*<<camlinternalFormat.ml:645:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
+   }
    function symm(param){
      /*<<camlinternalFormat.ml:657:8>>*/ if(typeof param === "number")
-      /*<<camlinternalFormat.ml:680:20>>*/ return 0 /*<<camlinternalFormat.ml:680:20>>*/ ;
+      /*<<camlinternalFormat.ml:680:20>>*/ return 0;
     switch(param[0]){
       case 0:
        var rest = param[1];
         /*<<camlinternalFormat.ml:663:20>>*/ return [0,
-                /*<<camlinternalFormat.ml:663:28>>*/ symm
-                 /*<<camlinternalFormat.ml:663:28>>*/ (rest)] /*<<camlinternalFormat.ml:663:20>>*/ ;
+                /*<<camlinternalFormat.ml:663:28>>*/ symm(rest)] /*<<camlinternalFormat.ml:663:20>>*/ ;
       case 1:
        var rest$0 = param[1];
         /*<<camlinternalFormat.ml:670:22>>*/ return [1,
-                /*<<camlinternalFormat.ml:670:32>>*/ symm
-                 /*<<camlinternalFormat.ml:670:32>>*/ (rest$0)] /*<<camlinternalFormat.ml:670:22>>*/ ;
+                /*<<camlinternalFormat.ml:670:32>>*/ symm(rest$0)] /*<<camlinternalFormat.ml:670:22>>*/ ;
       case 2:
        var rest$1 = param[1];
         /*<<camlinternalFormat.ml:664:19>>*/ return [2,
-                /*<<camlinternalFormat.ml:664:26>>*/ symm
-                 /*<<camlinternalFormat.ml:664:26>>*/ (rest$1)] /*<<camlinternalFormat.ml:664:19>>*/ ;
+                /*<<camlinternalFormat.ml:664:26>>*/ symm(rest$1)] /*<<camlinternalFormat.ml:664:19>>*/ ;
       case 3:
        var rest$2 = param[1];
         /*<<camlinternalFormat.ml:665:21>>*/ return [3,
-                /*<<camlinternalFormat.ml:665:30>>*/ symm
-                 /*<<camlinternalFormat.ml:665:30>>*/ (rest$2)] /*<<camlinternalFormat.ml:665:21>>*/ ;
+                /*<<camlinternalFormat.ml:665:30>>*/ symm(rest$2)] /*<<camlinternalFormat.ml:665:21>>*/ ;
       case 4:
        var rest$3 = param[1];
         /*<<camlinternalFormat.ml:667:25>>*/ return [4,
-                /*<<camlinternalFormat.ml:667:38>>*/ symm
-                 /*<<camlinternalFormat.ml:667:38>>*/ (rest$3)] /*<<camlinternalFormat.ml:667:25>>*/ ;
+                /*<<camlinternalFormat.ml:667:38>>*/ symm(rest$3)] /*<<camlinternalFormat.ml:667:25>>*/ ;
       case 5:
        var rest$4 = param[1];
         /*<<camlinternalFormat.ml:666:21>>*/ return [5,
-                /*<<camlinternalFormat.ml:666:30>>*/ symm
-                 /*<<camlinternalFormat.ml:666:30>>*/ (rest$4)] /*<<camlinternalFormat.ml:666:21>>*/ ;
+                /*<<camlinternalFormat.ml:666:30>>*/ symm(rest$4)] /*<<camlinternalFormat.ml:666:21>>*/ ;
       case 6:
        var rest$5 = param[1];
         /*<<camlinternalFormat.ml:668:21>>*/ return [6,
-                /*<<camlinternalFormat.ml:668:30>>*/ symm
-                 /*<<camlinternalFormat.ml:668:30>>*/ (rest$5)] /*<<camlinternalFormat.ml:668:21>>*/ ;
+                /*<<camlinternalFormat.ml:668:30>>*/ symm(rest$5)] /*<<camlinternalFormat.ml:668:21>>*/ ;
       case 7:
        var rest$6 = param[1];
         /*<<camlinternalFormat.ml:669:20>>*/ return [7,
-                /*<<camlinternalFormat.ml:669:28>>*/ symm
-                 /*<<camlinternalFormat.ml:669:28>>*/ (rest$6)] /*<<camlinternalFormat.ml:669:20>>*/ ;
+                /*<<camlinternalFormat.ml:669:28>>*/ symm(rest$6)] /*<<camlinternalFormat.ml:669:20>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
         /*<<camlinternalFormat.ml:677:4>>*/ return [8,
                ty,
-                /*<<camlinternalFormat.ml:677:23>>*/ symm
-                 /*<<camlinternalFormat.ml:677:23>>*/ (rest$7)] /*<<camlinternalFormat.ml:677:4>>*/ ;
+                /*<<camlinternalFormat.ml:677:23>>*/ symm(rest$7)] /*<<camlinternalFormat.ml:677:4>>*/ ;
       case 9:
        var rest$8 = param[3], ty2 = param[2], ty1 = param[1];
         /*<<camlinternalFormat.ml:679:4>>*/ return [9,
                ty2,
                ty1,
-                /*<<camlinternalFormat.ml:679:31>>*/ symm
-                 /*<<camlinternalFormat.ml:679:31>>*/ (rest$8)] /*<<camlinternalFormat.ml:679:4>>*/ ;
+                /*<<camlinternalFormat.ml:679:31>>*/ symm(rest$8)] /*<<camlinternalFormat.ml:679:4>>*/ ;
       case 10:
        var rest$9 = param[1];
         /*<<camlinternalFormat.ml:672:21>>*/ return [10,
-                /*<<camlinternalFormat.ml:672:30>>*/ symm
-                 /*<<camlinternalFormat.ml:672:30>>*/ (rest$9)] /*<<camlinternalFormat.ml:672:21>>*/ ;
+                /*<<camlinternalFormat.ml:672:30>>*/ symm(rest$9)] /*<<camlinternalFormat.ml:672:21>>*/ ;
       case 11:
        var rest$10 = param[1];
         /*<<camlinternalFormat.ml:671:21>>*/ return [11,
-                /*<<camlinternalFormat.ml:671:30>>*/ symm
-                 /*<<camlinternalFormat.ml:671:30>>*/ (rest$10)] /*<<camlinternalFormat.ml:671:21>>*/ ;
+                /*<<camlinternalFormat.ml:671:30>>*/ symm(rest$10)] /*<<camlinternalFormat.ml:671:21>>*/ ;
       case 12:
        var rest$11 = param[1];
         /*<<camlinternalFormat.ml:673:19>>*/ return [12,
-                /*<<camlinternalFormat.ml:673:26>>*/ symm
-                 /*<<camlinternalFormat.ml:673:26>>*/ (rest$11)] /*<<camlinternalFormat.ml:673:19>>*/ ;
+                /*<<camlinternalFormat.ml:673:26>>*/ symm(rest$11)] /*<<camlinternalFormat.ml:673:19>>*/ ;
       case 13:
        var rest$12 = param[1];
         /*<<camlinternalFormat.ml:674:22>>*/ return [13,
-                /*<<camlinternalFormat.ml:674:32>>*/ symm
-                 /*<<camlinternalFormat.ml:674:32>>*/ (rest$12)] /*<<camlinternalFormat.ml:674:22>>*/ ;
+                /*<<camlinternalFormat.ml:674:32>>*/ symm(rest$12)] /*<<camlinternalFormat.ml:674:22>>*/ ;
       default:
        var rest$13 = param[1];
         /*<<camlinternalFormat.ml:675:30>>*/ return [14,
-                /*<<camlinternalFormat.ml:675:48>>*/ symm
-                 /*<<camlinternalFormat.ml:675:48>>*/ (rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
+                /*<<camlinternalFormat.ml:675:48>>*/ symm(rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
     }
     /*<<camlinternalFormat.ml:680:32>>*/ }
    function fmtty_rel_det(param){
@@ -17433,144 +14347,126 @@
       case 0:
        var
         rest = param[1],
-        match =
-           /*<<camlinternalFormat.ml:696:25>>*/  /*<<camlinternalFormat.ml:696:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:696:25>>*/ (rest),
+        match =  /*<<camlinternalFormat.ml:696:25>>*/ fmtty_rel_det(rest),
         de = match[4],
         af = match[2];
         /*<<camlinternalFormat.ml:697:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:698:17>>*/  /*<<camlinternalFormat.ml:698:28>>*/ af
-                  /*<<camlinternalFormat.ml:698:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:698:43>>*/ },
                ,
                de] /*<<camlinternalFormat.ml:697:4>>*/ ;
       case 1:
        var
         rest$0 = param[1],
-        match$0 =
-           /*<<camlinternalFormat.ml:701:25>>*/  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:701:25>>*/ (rest$0),
+        match$0 =  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det(rest$0),
         de$0 = match$0[4],
         af$0 = match$0[2];
         /*<<camlinternalFormat.ml:702:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:703:17>>*/  /*<<camlinternalFormat.ml:703:28>>*/ af$0
-                  /*<<camlinternalFormat.ml:703:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:703:43>>*/ },
                ,
                de$0] /*<<camlinternalFormat.ml:702:4>>*/ ;
       case 2:
        var
         rest$1 = param[1],
-        match$1 =
-           /*<<camlinternalFormat.ml:706:25>>*/  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:706:25>>*/ (rest$1),
+        match$1 =  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det(rest$1),
         de$1 = match$1[4],
         af$1 = match$1[2];
         /*<<camlinternalFormat.ml:707:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:708:17>>*/  /*<<camlinternalFormat.ml:708:28>>*/ af$1
-                  /*<<camlinternalFormat.ml:708:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:708:43>>*/ },
                ,
                de$1] /*<<camlinternalFormat.ml:707:4>>*/ ;
       case 3:
        var
         rest$2 = param[1],
-        match$2 =
-           /*<<camlinternalFormat.ml:711:25>>*/  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:711:25>>*/ (rest$2),
+        match$2 =  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det(rest$2),
         de$2 = match$2[4],
         af$2 = match$2[2];
         /*<<camlinternalFormat.ml:712:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:713:17>>*/  /*<<camlinternalFormat.ml:713:28>>*/ af$2
-                  /*<<camlinternalFormat.ml:713:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:713:43>>*/ },
                ,
                de$2] /*<<camlinternalFormat.ml:712:4>>*/ ;
       case 4:
        var
         rest$3 = param[1],
-        match$3 =
-           /*<<camlinternalFormat.ml:721:25>>*/  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:721:25>>*/ (rest$3),
+        match$3 =  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det(rest$3),
         de$3 = match$3[4],
         af$3 = match$3[2];
         /*<<camlinternalFormat.ml:722:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:723:17>>*/  /*<<camlinternalFormat.ml:723:28>>*/ af$3
-                  /*<<camlinternalFormat.ml:723:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:723:43>>*/ },
                ,
                de$3] /*<<camlinternalFormat.ml:722:4>>*/ ;
       case 5:
        var
         rest$4 = param[1],
-        match$4 =
-           /*<<camlinternalFormat.ml:716:25>>*/  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:716:25>>*/ (rest$4),
+        match$4 =  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det(rest$4),
         de$4 = match$4[4],
         af$4 = match$4[2];
         /*<<camlinternalFormat.ml:717:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:718:17>>*/  /*<<camlinternalFormat.ml:718:28>>*/ af$4
-                  /*<<camlinternalFormat.ml:718:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:718:43>>*/ },
                ,
                de$4] /*<<camlinternalFormat.ml:717:4>>*/ ;
       case 6:
        var
         rest$5 = param[1],
-        match$5 =
-           /*<<camlinternalFormat.ml:726:25>>*/  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:726:25>>*/ (rest$5),
+        match$5 =  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det(rest$5),
         de$5 = match$5[4],
         af$5 = match$5[2];
         /*<<camlinternalFormat.ml:727:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:728:17>>*/  /*<<camlinternalFormat.ml:728:28>>*/ af$5
-                  /*<<camlinternalFormat.ml:728:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:728:43>>*/ },
                ,
                de$5] /*<<camlinternalFormat.ml:727:4>>*/ ;
       case 7:
        var
         rest$6 = param[1],
-        match$6 =
-           /*<<camlinternalFormat.ml:731:25>>*/  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:731:25>>*/ (rest$6),
+        match$6 =  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det(rest$6),
         de$6 = match$6[4],
         af$6 = match$6[2];
         /*<<camlinternalFormat.ml:732:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:733:17>>*/  /*<<camlinternalFormat.ml:733:28>>*/ af$6
-                  /*<<camlinternalFormat.ml:733:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:733:43>>*/ },
                ,
                de$6] /*<<camlinternalFormat.ml:732:4>>*/ ;
       case 8:
        var
         rest$7 = param[2],
-        match$7 =
-           /*<<camlinternalFormat.ml:764:25>>*/  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:764:25>>*/ (rest$7),
+        match$7 =  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det(rest$7),
         de$7 = match$7[4],
         af$7 = match$7[2];
         /*<<camlinternalFormat.ml:765:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:766:17>>*/  /*<<camlinternalFormat.ml:766:28>>*/ af$7
-                  /*<<camlinternalFormat.ml:766:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:766:43>>*/ },
                ,
                de$7] /*<<camlinternalFormat.ml:765:4>>*/ ;
@@ -17579,49 +14475,39 @@
         rest$8 = param[3],
         ty2 = param[2],
         ty1 = param[1],
-        match$8 =
-           /*<<camlinternalFormat.ml:769:25>>*/  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:769:25>>*/ (rest$8),
+        match$8 =  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det(rest$8),
         de$8 = match$8[4],
         af$8 = match$8[2],
         ty =
-           /*<<camlinternalFormat.ml:770:13>>*/  /*<<camlinternalFormat.ml:770:13>>*/ trans
-            /*<<camlinternalFormat.ml:770:13>>*/ ( /*<<camlinternalFormat.ml:770:19>>*/ symm
-              /*<<camlinternalFormat.ml:770:19>>*/ (ty1),
-            ty2),
-        match$9 =
-           /*<<camlinternalFormat.ml:771:25>>*/  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:771:25>>*/ (ty),
+           /*<<camlinternalFormat.ml:770:13>>*/ trans
+           ( /*<<camlinternalFormat.ml:770:19>>*/ symm(ty1), ty2),
+        match$9 =  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det(ty),
         jd = match$9[4],
         ga = match$9[2];
         /*<<camlinternalFormat.ml:772:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:773:17>>*/  /*<<camlinternalFormat.ml:773:28>>*/ ga
-                  /*<<camlinternalFormat.ml:773:28>>*/ (0);
-                 /*<<camlinternalFormat.ml:773:50>>*/  /*<<camlinternalFormat.ml:773:50>>*/ af$8
-                  /*<<camlinternalFormat.ml:773:50>>*/ (0);
+                 (0);
+                 /*<<camlinternalFormat.ml:773:50>>*/ af$8(0);
                 /*<<camlinternalFormat.ml:773:65>>*/ },
                ,
                function(param){
                  /*<<camlinternalFormat.ml:775:17>>*/  /*<<camlinternalFormat.ml:775:28>>*/ jd
-                  /*<<camlinternalFormat.ml:775:28>>*/ (0);
-                 /*<<camlinternalFormat.ml:775:50>>*/  /*<<camlinternalFormat.ml:775:50>>*/ de$8
-                  /*<<camlinternalFormat.ml:775:50>>*/ (0);
+                 (0);
+                 /*<<camlinternalFormat.ml:775:50>>*/ de$8(0);
                 /*<<camlinternalFormat.ml:775:65>>*/ }] /*<<camlinternalFormat.ml:772:4>>*/ ;
       case 10:
        var
         rest$9 = param[1],
-        match$10 =
-           /*<<camlinternalFormat.ml:742:25>>*/  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:742:25>>*/ (rest$9),
+        match$10 =  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det(rest$9),
         de$9 = match$10[4],
         af$9 = match$10[2];
         /*<<camlinternalFormat.ml:743:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:744:17>>*/  /*<<camlinternalFormat.ml:744:28>>*/ af$9
-                  /*<<camlinternalFormat.ml:744:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:744:43>>*/ },
                ,
                de$9] /*<<camlinternalFormat.ml:743:4>>*/ ;
@@ -17629,15 +14515,14 @@
        var
         rest$10 = param[1],
         match$11 =
-           /*<<camlinternalFormat.ml:737:25>>*/  /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:737:25>>*/ (rest$10),
+           /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det(rest$10),
         de$10 = match$11[4],
         af$10 = match$11[2];
         /*<<camlinternalFormat.ml:738:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:739:17>>*/  /*<<camlinternalFormat.ml:739:28>>*/ af$10
-                  /*<<camlinternalFormat.ml:739:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:739:43>>*/ },
                ,
                de$10] /*<<camlinternalFormat.ml:738:4>>*/ ;
@@ -17645,15 +14530,14 @@
        var
         rest$11 = param[1],
         match$12 =
-           /*<<camlinternalFormat.ml:747:25>>*/  /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:747:25>>*/ (rest$11),
+           /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det(rest$11),
         de$11 = match$12[4],
         af$11 = match$12[2];
         /*<<camlinternalFormat.ml:748:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:749:17>>*/  /*<<camlinternalFormat.ml:749:28>>*/ af$11
-                  /*<<camlinternalFormat.ml:749:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:749:43>>*/ },
                ,
                de$11] /*<<camlinternalFormat.ml:748:4>>*/ ;
@@ -17661,39 +14545,37 @@
        var
         rest$12 = param[1],
         match$13 =
-           /*<<camlinternalFormat.ml:752:25>>*/  /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:752:25>>*/ (rest$12),
+           /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det(rest$12),
         de$12 = match$13[4],
         af$12 = match$13[2];
         /*<<camlinternalFormat.ml:753:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:754:17>>*/  /*<<camlinternalFormat.ml:754:28>>*/ af$12
-                  /*<<camlinternalFormat.ml:754:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:754:43>>*/ },
                ,
                function(param){
                  /*<<camlinternalFormat.ml:756:17>>*/  /*<<camlinternalFormat.ml:756:28>>*/ de$12
-                  /*<<camlinternalFormat.ml:756:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:756:43>>*/ }] /*<<camlinternalFormat.ml:753:4>>*/ ;
       default:
        var
         rest$13 = param[1],
         match$14 =
-           /*<<camlinternalFormat.ml:758:25>>*/  /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det
-            /*<<camlinternalFormat.ml:758:25>>*/ (rest$13),
+           /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det(rest$13),
         de$13 = match$14[4],
         af$13 = match$14[2];
         /*<<camlinternalFormat.ml:759:4>>*/ return [0,
                ,
                function(param){
                  /*<<camlinternalFormat.ml:760:17>>*/  /*<<camlinternalFormat.ml:760:28>>*/ af$13
-                  /*<<camlinternalFormat.ml:760:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:760:43>>*/ },
                ,
                function(param){
                  /*<<camlinternalFormat.ml:762:17>>*/  /*<<camlinternalFormat.ml:762:28>>*/ de$13
-                  /*<<camlinternalFormat.ml:762:28>>*/ (0);
+                 (0);
                 /*<<camlinternalFormat.ml:762:43>>*/ }] /*<<camlinternalFormat.ml:759:4>>*/ ;
     }
     /*<<camlinternalFormat.ml:775:66>>*/ }
@@ -17721,8 +14603,7 @@
                   case 0:
                    var rest2 = ty2[1];
                     /*<<camlinternalFormat.ml:804:36>>*/ return [0,
-                            /*<<camlinternalFormat.ml:804:44>>*/ trans
-                             /*<<camlinternalFormat.ml:804:44>>*/ (rest1, rest2)] /*<<camlinternalFormat.ml:804:36>>*/ ;
+                            /*<<camlinternalFormat.ml:804:44>>*/ trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:36>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17747,7 +14628,7 @@
                    var rest2$0 = ty2[1];
                     /*<<camlinternalFormat.ml:805:40>>*/ return [1,
                             /*<<camlinternalFormat.ml:805:50>>*/ trans
-                             /*<<camlinternalFormat.ml:805:50>>*/ (rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:40>>*/ ;
+                            (rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:40>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17772,7 +14653,7 @@
                    var rest2$1 = ty2[1];
                     /*<<camlinternalFormat.ml:807:34>>*/ return [2,
                             /*<<camlinternalFormat.ml:807:41>>*/ trans
-                             /*<<camlinternalFormat.ml:807:41>>*/ (rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:34>>*/ ;
+                            (rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:34>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17797,7 +14678,7 @@
                    var rest2$2 = ty2[1];
                     /*<<camlinternalFormat.ml:808:38>>*/ return [3,
                             /*<<camlinternalFormat.ml:808:47>>*/ trans
-                             /*<<camlinternalFormat.ml:808:47>>*/ (rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:38>>*/ ;
+                            (rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17822,7 +14703,7 @@
                    var rest2$3 = ty2[1];
                     /*<<camlinternalFormat.ml:810:46>>*/ return [4,
                             /*<<camlinternalFormat.ml:810:59>>*/ trans
-                             /*<<camlinternalFormat.ml:810:59>>*/ (rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:46>>*/ ;
+                            (rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:46>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17847,7 +14728,7 @@
                    var rest2$4 = ty2[1];
                     /*<<camlinternalFormat.ml:809:38>>*/ return [5,
                             /*<<camlinternalFormat.ml:809:47>>*/ trans
-                             /*<<camlinternalFormat.ml:809:47>>*/ (rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:38>>*/ ;
+                            (rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17872,7 +14753,7 @@
                    var rest2$5 = ty2[1];
                     /*<<camlinternalFormat.ml:811:38>>*/ return [6,
                             /*<<camlinternalFormat.ml:811:47>>*/ trans
-                             /*<<camlinternalFormat.ml:811:47>>*/ (rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:38>>*/ ;
+                            (rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:38>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17897,7 +14778,7 @@
                    var rest2$6 = ty2[1];
                     /*<<camlinternalFormat.ml:806:36>>*/ return [7,
                             /*<<camlinternalFormat.ml:806:44>>*/ trans
-                             /*<<camlinternalFormat.ml:806:44>>*/ (rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:36>>*/ ;
+                            (rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:36>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -17923,11 +14804,10 @@
                     rest2$7 = ty2[2],
                     ty2$0 = ty2[1],
                     _cE_ =
-                       /*<<camlinternalFormat.ml:835:34>>*/  /*<<camlinternalFormat.ml:835:34>>*/ trans
-                        /*<<camlinternalFormat.ml:835:34>>*/ (rest1$7, rest2$7);
+                       /*<<camlinternalFormat.ml:835:34>>*/ trans
+                       (rest1$7, rest2$7);
                     /*<<camlinternalFormat.ml:835:4>>*/ return [8,
-                            /*<<camlinternalFormat.ml:835:19>>*/ trans
-                             /*<<camlinternalFormat.ml:835:19>>*/ (ty1$0, ty2$0),
+                            /*<<camlinternalFormat.ml:835:19>>*/ trans(ty1$0, ty2$0),
                            _cE_] /*<<camlinternalFormat.ml:835:4>>*/ ;
                   case 10:
                    break a;
@@ -17940,11 +14820,8 @@
                   case 14:
                    break e;
                 }
-                /*<<camlinternalFormat.ml:836:26>>*/ throw  /*<<camlinternalFormat.ml:836:26>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:836:26>>*/ ([0,
-                        Assert_failure,
-                        _k_],
-                       1);
+                /*<<camlinternalFormat.ml:836:26>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _k_], 1);
               case 9:
                var rest1$8 = ty1[3], ty12 = ty1[2], ty11 = ty1[1];
                if(typeof ty2 !== "number")
@@ -17957,24 +14834,19 @@
                     ty22 = ty2[2],
                     ty21 = ty2[1],
                     ty =
-                       /*<<camlinternalFormat.ml:841:13>>*/  /*<<camlinternalFormat.ml:841:13>>*/ trans
-                        /*<<camlinternalFormat.ml:841:13>>*/ ( /*<<camlinternalFormat.ml:841:19>>*/ symm
-                          /*<<camlinternalFormat.ml:841:19>>*/ (ty12),
-                        ty21),
+                       /*<<camlinternalFormat.ml:841:13>>*/ trans
+                       ( /*<<camlinternalFormat.ml:841:19>>*/ symm(ty12), ty21),
                     match =
-                       /*<<camlinternalFormat.ml:842:23>>*/  /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det
-                        /*<<camlinternalFormat.ml:842:23>>*/ (ty),
+                       /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det(ty),
                     f4 = match[4],
                     f2 = match[2];
-                    /*<<camlinternalFormat.ml:843:15>>*/  /*<<camlinternalFormat.ml:843:15>>*/ f2
-                     /*<<camlinternalFormat.ml:843:15>>*/ (0);
-                    /*<<camlinternalFormat.ml:844:15>>*/  /*<<camlinternalFormat.ml:844:15>>*/ f4
-                     /*<<camlinternalFormat.ml:844:15>>*/ (0);
+                    /*<<camlinternalFormat.ml:843:15>>*/ f2(0);
+                    /*<<camlinternalFormat.ml:844:15>>*/ f4(0);
                     /*<<camlinternalFormat.ml:845:4>>*/ return [9,
                            ty11,
                            ty22,
                             /*<<camlinternalFormat.ml:845:33>>*/ trans
-                             /*<<camlinternalFormat.ml:845:33>>*/ (rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:4>>*/ ;
+                            (rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:4>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -17986,24 +14858,18 @@
                   case 14:
                    break e;
                 }
-                /*<<camlinternalFormat.ml:846:28>>*/ throw  /*<<camlinternalFormat.ml:846:28>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:846:28>>*/ ([0,
-                        Assert_failure,
-                        _l_],
-                       1);
+                /*<<camlinternalFormat.ml:846:28>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _l_], 1);
               case 10:
                var rest1$9 = ty1[1];
                if(typeof ty2 !== "number" && 10 === ty2[0]){
                 var rest2$9 = ty2[1];
                  /*<<camlinternalFormat.ml:813:38>>*/ return [10,
                          /*<<camlinternalFormat.ml:813:47>>*/ trans
-                          /*<<camlinternalFormat.ml:813:47>>*/ (rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:38>>*/ ;
+                         (rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:38>>*/ ;
                }
-                /*<<camlinternalFormat.ml:814:21>>*/ throw  /*<<camlinternalFormat.ml:814:21>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:814:21>>*/ ([0,
-                        Assert_failure,
-                        _m_],
-                       1);
+                /*<<camlinternalFormat.ml:814:21>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _m_], 1);
               case 11:
                var rest1$10 = ty1[1];
                if(typeof ty2 !== "number")
@@ -18014,13 +14880,10 @@
                    var rest2$10 = ty2[1];
                     /*<<camlinternalFormat.ml:817:38>>*/ return [11,
                             /*<<camlinternalFormat.ml:817:47>>*/ trans
-                             /*<<camlinternalFormat.ml:817:47>>*/ (rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:38>>*/ ;
+                            (rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:38>>*/ ;
                 }
-                /*<<camlinternalFormat.ml:818:21>>*/ throw  /*<<camlinternalFormat.ml:818:21>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:818:21>>*/ ([0,
-                        Assert_failure,
-                        _n_],
-                       1);
+                /*<<camlinternalFormat.ml:818:21>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _n_], 1);
               case 12:
                var rest1$11 = ty1[1];
                if(typeof ty2 !== "number")
@@ -18033,13 +14896,10 @@
                    var rest2$11 = ty2[1];
                     /*<<camlinternalFormat.ml:821:34>>*/ return [12,
                             /*<<camlinternalFormat.ml:821:41>>*/ trans
-                             /*<<camlinternalFormat.ml:821:41>>*/ (rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:34>>*/ ;
+                            (rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:34>>*/ ;
                 }
-                /*<<camlinternalFormat.ml:822:19>>*/ throw  /*<<camlinternalFormat.ml:822:19>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:822:19>>*/ ([0,
-                        Assert_failure,
-                        _o_],
-                       1);
+                /*<<camlinternalFormat.ml:822:19>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _o_], 1);
               case 13:
                var rest1$12 = ty1[1];
                if(typeof ty2 !== "number")
@@ -18054,13 +14914,10 @@
                    var rest2$12 = ty2[1];
                     /*<<camlinternalFormat.ml:825:40>>*/ return [13,
                             /*<<camlinternalFormat.ml:825:50>>*/ trans
-                             /*<<camlinternalFormat.ml:825:50>>*/ (rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:40>>*/ ;
+                            (rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:40>>*/ ;
                 }
-                /*<<camlinternalFormat.ml:826:22>>*/ throw  /*<<camlinternalFormat.ml:826:22>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:826:22>>*/ ([0,
-                        Assert_failure,
-                        _p_],
-                       1);
+                /*<<camlinternalFormat.ml:826:22>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _p_], 1);
               default:
                var rest1$13 = ty1[1];
                if(typeof ty2 !== "number")
@@ -18077,22 +14934,16 @@
                    var rest2$13 = ty2[1];
                     /*<<camlinternalFormat.ml:830:4>>*/ return [14,
                             /*<<camlinternalFormat.ml:830:22>>*/ trans
-                             /*<<camlinternalFormat.ml:830:22>>*/ (rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:4>>*/ ;
+                            (rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:4>>*/ ;
                 }
-                /*<<camlinternalFormat.ml:831:30>>*/ throw  /*<<camlinternalFormat.ml:831:30>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalFormat.ml:831:30>>*/ ([0,
-                        Assert_failure,
-                        _q_],
-                       1);
+                /*<<camlinternalFormat.ml:831:30>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Assert_failure, _q_], 1);
             }
-             /*<<camlinternalFormat.ml:851:23>>*/ throw  /*<<camlinternalFormat.ml:851:23>>*/ caml_maybe_attach_backtrace
-                    /*<<camlinternalFormat.ml:851:23>>*/ ([0,
-                     Assert_failure,
-                     _j_],
-                    1);
+             /*<<camlinternalFormat.ml:851:23>>*/ throw caml_maybe_attach_backtrace
+                   ([0, Assert_failure, _j_], 1);
            }
            if(typeof ty2 === "number")
-             /*<<camlinternalFormat.ml:849:34>>*/ return 0 /*<<camlinternalFormat.ml:849:34>>*/ ;
+             /*<<camlinternalFormat.ml:849:34>>*/ return 0;
            switch(ty2[0]){
              case 10:
               break a;
@@ -18108,146 +14959,122 @@
               break f;
              case 9: break;
              default:
-               /*<<camlinternalFormat.ml:850:23>>*/ throw  /*<<camlinternalFormat.ml:850:23>>*/ caml_maybe_attach_backtrace
-                      /*<<camlinternalFormat.ml:850:23>>*/ ([0,
-                       Assert_failure,
-                       _b_],
-                      1);
+               /*<<camlinternalFormat.ml:850:23>>*/ throw caml_maybe_attach_backtrace
+                     ([0, Assert_failure, _b_], 1);
            }
           }
-           /*<<camlinternalFormat.ml:847:28>>*/ throw  /*<<camlinternalFormat.ml:847:28>>*/ caml_maybe_attach_backtrace
-                  /*<<camlinternalFormat.ml:847:28>>*/ ([0,
-                   Assert_failure,
-                   _d_],
-                  1);
+           /*<<camlinternalFormat.ml:847:28>>*/ throw caml_maybe_attach_backtrace
+                 ([0, Assert_failure, _d_], 1);
          }
-          /*<<camlinternalFormat.ml:837:26>>*/ throw  /*<<camlinternalFormat.ml:837:26>>*/ caml_maybe_attach_backtrace
-                 /*<<camlinternalFormat.ml:837:26>>*/ ([0,
-                  Assert_failure,
-                  _c_],
-                 1);
+          /*<<camlinternalFormat.ml:837:26>>*/ throw caml_maybe_attach_backtrace
+                ([0, Assert_failure, _c_], 1);
         }
-         /*<<camlinternalFormat.ml:832:30>>*/ throw  /*<<camlinternalFormat.ml:832:30>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:832:30>>*/ ([0, Assert_failure, _i_],
-                1);
+         /*<<camlinternalFormat.ml:832:30>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _i_], 1);
        }
-        /*<<camlinternalFormat.ml:827:22>>*/ throw  /*<<camlinternalFormat.ml:827:22>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:827:22>>*/ ([0, Assert_failure, _h_],
-               1);
+        /*<<camlinternalFormat.ml:827:22>>*/ throw caml_maybe_attach_backtrace
+              ([0, Assert_failure, _h_], 1);
       }
-       /*<<camlinternalFormat.ml:823:19>>*/ throw  /*<<camlinternalFormat.ml:823:19>>*/ caml_maybe_attach_backtrace
-              /*<<camlinternalFormat.ml:823:19>>*/ ([0, Assert_failure, _g_],
-              1);
+       /*<<camlinternalFormat.ml:823:19>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _g_], 1);
      }
-      /*<<camlinternalFormat.ml:819:21>>*/ throw  /*<<camlinternalFormat.ml:819:21>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalFormat.ml:819:21>>*/ ([0, Assert_failure, _f_],
-             1);
+      /*<<camlinternalFormat.ml:819:21>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _f_], 1);
     }
-     /*<<camlinternalFormat.ml:815:21>>*/ throw  /*<<camlinternalFormat.ml:815:21>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalFormat.ml:815:21>>*/ ([0, Assert_failure, _e_], 1);
+     /*<<camlinternalFormat.ml:815:21>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _e_], 1);
     /*<<camlinternalFormat.ml:851:35>>*/ }
    function fmtty_of_fmt(fmtty){
     var fmtty$0 = fmtty;
      /*<<camlinternalFormat.ml:863:13>>*/ for(;;){
      if(typeof fmtty$0 === "number")
-       /*<<camlinternalFormat.ml:916:34>>*/ return 0 /*<<camlinternalFormat.ml:916:34>>*/ ;
+       /*<<camlinternalFormat.ml:916:34>>*/ return 0;
      switch(fmtty$0[0]){
        case 0:
         var rest = fmtty$0[1];
          /*<<camlinternalFormat.ml:890:34>>*/ return [0,
-                 /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:890:42>>*/ (rest)] /*<<camlinternalFormat.ml:890:34>>*/ ;
+                 /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:34>>*/ ;
        case 1:
         var rest$0 = fmtty$0[1];
          /*<<camlinternalFormat.ml:891:34>>*/ return [0,
-                 /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:891:42>>*/ (rest$0)] /*<<camlinternalFormat.ml:891:34>>*/ ;
+                 /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:34>>*/ ;
        case 2:
         var rest$1 = fmtty$0[2], pad = fmtty$0[1];
-         /*<<camlinternalFormat.ml:865:31>>*/ return  /*<<camlinternalFormat.ml:865:31>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:865:31>>*/ (pad,
+         /*<<camlinternalFormat.ml:865:31>>*/ return fmtty_of_padding_fmtty
+                (pad,
                  [1,
-                   /*<<camlinternalFormat.ml:865:42>>*/ fmtty_of_fmt
-                    /*<<camlinternalFormat.ml:865:42>>*/ (rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
+                   /*<<camlinternalFormat.ml:865:42>>*/ fmtty_of_fmt(rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 3:
         var rest$2 = fmtty$0[2], pad$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:867:31>>*/ return  /*<<camlinternalFormat.ml:867:31>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:867:31>>*/ (pad$0,
+         /*<<camlinternalFormat.ml:867:31>>*/ return fmtty_of_padding_fmtty
+                (pad$0,
                  [1,
-                   /*<<camlinternalFormat.ml:867:42>>*/ fmtty_of_fmt
-                    /*<<camlinternalFormat.ml:867:42>>*/ (rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
+                   /*<<camlinternalFormat.ml:867:42>>*/ fmtty_of_fmt(rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 4:
         var
          rest$3 = fmtty$0[4],
          prec = fmtty$0[3],
          pad$1 = fmtty$0[2],
-         ty_rest =
-            /*<<camlinternalFormat.ml:870:18>>*/  /*<<camlinternalFormat.ml:870:18>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:870:18>>*/ (rest$3),
+         ty_rest =  /*<<camlinternalFormat.ml:870:18>>*/ fmtty_of_fmt(rest$3),
          prec_ty =
-            /*<<camlinternalFormat.ml:871:18>>*/  /*<<camlinternalFormat.ml:871:18>>*/ fmtty_of_precision_fmtty
-             /*<<camlinternalFormat.ml:871:18>>*/ (prec, [2, ty_rest]);
-         /*<<camlinternalFormat.ml:872:4>>*/ return  /*<<camlinternalFormat.ml:872:4>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:872:4>>*/ (pad$1, prec_ty) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:871:18>>*/ fmtty_of_precision_fmtty
+            (prec, [2, ty_rest]);
+         /*<<camlinternalFormat.ml:872:4>>*/ return fmtty_of_padding_fmtty
+                (pad$1, prec_ty) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 5:
         var
          rest$4 = fmtty$0[4],
          prec$0 = fmtty$0[3],
          pad$2 = fmtty$0[2],
          ty_rest$0 =
-            /*<<camlinternalFormat.ml:874:18>>*/  /*<<camlinternalFormat.ml:874:18>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:874:18>>*/ (rest$4),
+            /*<<camlinternalFormat.ml:874:18>>*/ fmtty_of_fmt(rest$4),
          prec_ty$0 =
-            /*<<camlinternalFormat.ml:875:18>>*/  /*<<camlinternalFormat.ml:875:18>>*/ fmtty_of_precision_fmtty
-             /*<<camlinternalFormat.ml:875:18>>*/ (prec$0, [3, ty_rest$0]);
-         /*<<camlinternalFormat.ml:876:4>>*/ return  /*<<camlinternalFormat.ml:876:4>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:876:4>>*/ (pad$2, prec_ty$0) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:875:18>>*/ fmtty_of_precision_fmtty
+            (prec$0, [3, ty_rest$0]);
+         /*<<camlinternalFormat.ml:876:4>>*/ return fmtty_of_padding_fmtty
+                (pad$2, prec_ty$0) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 6:
         var
          rest$5 = fmtty$0[4],
          prec$1 = fmtty$0[3],
          pad$3 = fmtty$0[2],
          ty_rest$1 =
-            /*<<camlinternalFormat.ml:878:18>>*/  /*<<camlinternalFormat.ml:878:18>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:878:18>>*/ (rest$5),
+            /*<<camlinternalFormat.ml:878:18>>*/ fmtty_of_fmt(rest$5),
          prec_ty$1 =
-            /*<<camlinternalFormat.ml:879:18>>*/  /*<<camlinternalFormat.ml:879:18>>*/ fmtty_of_precision_fmtty
-             /*<<camlinternalFormat.ml:879:18>>*/ (prec$1, [4, ty_rest$1]);
-         /*<<camlinternalFormat.ml:880:4>>*/ return  /*<<camlinternalFormat.ml:880:4>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:880:4>>*/ (pad$3, prec_ty$1) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:879:18>>*/ fmtty_of_precision_fmtty
+            (prec$1, [4, ty_rest$1]);
+         /*<<camlinternalFormat.ml:880:4>>*/ return fmtty_of_padding_fmtty
+                (pad$3, prec_ty$1) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 7:
         var
          rest$6 = fmtty$0[4],
          prec$2 = fmtty$0[3],
          pad$4 = fmtty$0[2],
          ty_rest$2 =
-            /*<<camlinternalFormat.ml:882:18>>*/  /*<<camlinternalFormat.ml:882:18>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:882:18>>*/ (rest$6),
+            /*<<camlinternalFormat.ml:882:18>>*/ fmtty_of_fmt(rest$6),
          prec_ty$2 =
-            /*<<camlinternalFormat.ml:883:18>>*/  /*<<camlinternalFormat.ml:883:18>>*/ fmtty_of_precision_fmtty
-             /*<<camlinternalFormat.ml:883:18>>*/ (prec$2, [5, ty_rest$2]);
-         /*<<camlinternalFormat.ml:884:4>>*/ return  /*<<camlinternalFormat.ml:884:4>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:884:4>>*/ (pad$4, prec_ty$2) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:883:18>>*/ fmtty_of_precision_fmtty
+            (prec$2, [5, ty_rest$2]);
+         /*<<camlinternalFormat.ml:884:4>>*/ return fmtty_of_padding_fmtty
+                (pad$4, prec_ty$2) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 8:
         var
          rest$7 = fmtty$0[4],
          prec$3 = fmtty$0[3],
          pad$5 = fmtty$0[2],
          ty_rest$3 =
-            /*<<camlinternalFormat.ml:886:18>>*/  /*<<camlinternalFormat.ml:886:18>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:886:18>>*/ (rest$7),
+            /*<<camlinternalFormat.ml:886:18>>*/ fmtty_of_fmt(rest$7),
          prec_ty$3 =
-            /*<<camlinternalFormat.ml:887:18>>*/  /*<<camlinternalFormat.ml:887:18>>*/ fmtty_of_precision_fmtty
-             /*<<camlinternalFormat.ml:887:18>>*/ (prec$3, [6, ty_rest$3]);
-         /*<<camlinternalFormat.ml:888:4>>*/ return  /*<<camlinternalFormat.ml:888:4>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:888:4>>*/ (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
+            /*<<camlinternalFormat.ml:887:18>>*/ fmtty_of_precision_fmtty
+            (prec$3, [6, ty_rest$3]);
+         /*<<camlinternalFormat.ml:888:4>>*/ return fmtty_of_padding_fmtty
+                (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 9:
         var rest$8 = fmtty$0[2], pad$6 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:893:33>>*/ return  /*<<camlinternalFormat.ml:893:33>>*/ fmtty_of_padding_fmtty
-                 /*<<camlinternalFormat.ml:893:33>>*/ (pad$6,
+         /*<<camlinternalFormat.ml:893:33>>*/ return fmtty_of_padding_fmtty
+                (pad$6,
                  [7,
-                   /*<<camlinternalFormat.ml:893:42>>*/ fmtty_of_fmt
-                    /*<<camlinternalFormat.ml:893:42>>*/ (rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
+                   /*<<camlinternalFormat.ml:893:42>>*/ fmtty_of_fmt(rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 10:
         var fmtty$1 = fmtty$0[1]; fmtty$0 = fmtty$1; break;
        case 11:
@@ -18258,71 +15085,54 @@
         var rest$9 = fmtty$0[3], ty = fmtty$0[2];
          /*<<camlinternalFormat.ml:900:4>>*/ return [8,
                 ty,
-                 /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:900:23>>*/ (rest$9)] /*<<camlinternalFormat.ml:900:4>>*/ ;
+                 /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:4>>*/ ;
        case 14:
         var rest$10 = fmtty$0[3], ty$0 = fmtty$0[2];
          /*<<camlinternalFormat.ml:902:4>>*/ return [9,
                 ty$0,
                 ty$0,
-                 /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:902:29>>*/ (rest$10)] /*<<camlinternalFormat.ml:902:4>>*/ ;
+                 /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:4>>*/ ;
        case 15:
         var rest$11 = fmtty$0[1];
          /*<<camlinternalFormat.ml:894:34>>*/ return [10,
-                 /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:894:43>>*/ (rest$11)] /*<<camlinternalFormat.ml:894:34>>*/ ;
+                 /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:34>>*/ ;
        case 16:
         var rest$12 = fmtty$0[1];
          /*<<camlinternalFormat.ml:895:34>>*/ return [11,
-                 /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:895:43>>*/ (rest$12)] /*<<camlinternalFormat.ml:895:34>>*/ ;
+                 /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:34>>*/ ;
        case 17:
         var fmtty$4 = fmtty$0[2]; fmtty$0 = fmtty$4; break;
        case 18:
         var
          rest$13 = fmtty$0[2],
          formatting_gen = fmtty$0[1],
-         _cB_ =
-            /*<<camlinternalFormat.ml:914:54>>*/  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:914:54>>*/ (rest$13);
+         _cB_ =  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt(rest$13);
         if(0 === formatting_gen[0])
          var
           fmt = formatting_gen[1][1],
-          _cC_ =
-             /*<<camlinternalFormat.ml:857:34>>*/ fmtty_of_fmt
-              /*<<camlinternalFormat.ml:857:34>>*/ (fmt);
+          _cC_ =  /*<<camlinternalFormat.ml:857:34>>*/ fmtty_of_fmt(fmt);
         else
          var
           fmt$0 = formatting_gen[1][1],
-          _cC_ =
-             /*<<camlinternalFormat.ml:858:34>>*/ fmtty_of_fmt
-              /*<<camlinternalFormat.ml:858:34>>*/ (fmt$0);
-         /*<<camlinternalFormat.ml:914:54>>*/ return  /*<<camlinternalFormat.ml:914:54>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:914:54>>*/ (CamlinternalFormatBasics
-                  [1],
-                 _cC_,
-                 _cB_) /*<<camlinternalFormat.ml:916:46>>*/ ;
+          _cC_ =  /*<<camlinternalFormat.ml:858:34>>*/ fmtty_of_fmt(fmt$0);
+         /*<<camlinternalFormat.ml:914:54>>*/ return caml_call2
+                (CamlinternalFormatBasics[1], _cC_, _cB_) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 19:
         var rest$14 = fmtty$0[1];
          /*<<camlinternalFormat.ml:897:34>>*/ return [13,
-                 /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:897:44>>*/ (rest$14)] /*<<camlinternalFormat.ml:897:34>>*/ ;
+                 /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:34>>*/ ;
        case 20:
         var rest$15 = fmtty$0[3];
          /*<<camlinternalFormat.ml:908:34>>*/ return [1,
-                 /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:908:44>>*/ (rest$15)] /*<<camlinternalFormat.ml:908:34>>*/ ;
+                 /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:34>>*/ ;
        case 21:
         var rest$16 = fmtty$0[2];
          /*<<camlinternalFormat.ml:909:34>>*/ return [2,
-                 /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:909:41>>*/ (rest$16)] /*<<camlinternalFormat.ml:909:34>>*/ ;
+                 /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:34>>*/ ;
        case 22:
         var rest$17 = fmtty$0[1];
          /*<<camlinternalFormat.ml:910:34>>*/ return [0,
-                 /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt
-                  /*<<camlinternalFormat.ml:910:42>>*/ (rest$17)] /*<<camlinternalFormat.ml:910:34>>*/ ;
+                 /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:34>>*/ ;
        case 23:
         var fmtty$5 = fmtty$0[2], ign = fmtty$0[1];
         if(typeof ign === "number")
@@ -18333,8 +15143,7 @@
             fmtty$0 = fmtty$5; break;
            case 2:
              /*<<camlinternalFormat.ml:944:39>>*/ return [14,
-                     /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt
-                      /*<<camlinternalFormat.ml:944:57>>*/ (fmtty$5)] /*<<camlinternalFormat.ml:944:39>>*/ ;
+                     /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:39>>*/ ;
            default: fmtty$0 = fmtty$5;
          }
         else
@@ -18361,13 +15170,8 @@
             var
              fmtty$6 = ign[2],
              _cD_ =
-                /*<<camlinternalFormat.ml:943:58>>*/  /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt
-                 /*<<camlinternalFormat.ml:943:58>>*/ (fmtty$5);
-             /*<<camlinternalFormat.ml:943:58>>*/ return  /*<<camlinternalFormat.ml:943:58>>*/ caml_call2
-                     /*<<camlinternalFormat.ml:943:58>>*/ (CamlinternalFormatBasics
-                      [1],
-                     fmtty$6,
-                     _cD_) /*<<camlinternalFormat.ml:916:46>>*/ ;
+                /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt(fmtty$5);
+            return caml_call2(CamlinternalFormatBasics[1], fmtty$6, _cD_) /*<<camlinternalFormat.ml:916:46>>*/ ;
            case 10:
             fmtty$0 = fmtty$5; break;
            default: fmtty$0 = fmtty$5;
@@ -18375,31 +15179,29 @@
         break;
        default:
         var rest$18 = fmtty$0[3], arity = fmtty$0[1];
-         /*<<camlinternalFormat.ml:896:56>>*/ return  /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_custom
-                 /*<<camlinternalFormat.ml:896:56>>*/ (arity,
-                  /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_fmt
-                   /*<<camlinternalFormat.ml:896:56>>*/ (rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
+         /*<<camlinternalFormat.ml:896:56>>*/ return fmtty_of_custom
+                (arity, fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
      }
     }
-    /*<<camlinternalFormat.ml:916:46>>*/ }
+   }
    function fmtty_of_custom(arity, fmtty){
      /*<<camlinternalFormat.ml:921:19>>*/ if(! arity)
-      /*<<camlinternalFormat.ml:922:19>>*/ return fmtty /*<<camlinternalFormat.ml:922:19>>*/ ;
+      /*<<camlinternalFormat.ml:922:19>>*/ return fmtty;
     var arity$0 = arity[1];
      /*<<camlinternalFormat.ml:923:25>>*/ return [12,
              /*<<camlinternalFormat.ml:923:32>>*/ fmtty_of_custom
-              /*<<camlinternalFormat.ml:923:32>>*/ (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:25>>*/ ;
+             (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:25>>*/ ;
     /*<<camlinternalFormat.ml:923:61>>*/ }
    function fmtty_of_padding_fmtty(pad, fmtty){
      /*<<camlinternalFormat.ml:952:19>>*/ return typeof pad === "number"
             ? fmtty
             : 0 === pad[0] ? fmtty : [2, fmtty] /*<<camlinternalFormat.ml:955:35>>*/ ;
-    /*<<camlinternalFormat.ml:955:35>>*/ }
+   }
    function fmtty_of_precision_fmtty(prec, fmtty){
      /*<<camlinternalFormat.ml:960:20>>*/ return typeof prec === "number"
             ? prec ? [2, fmtty] : fmtty
             : fmtty /*<<camlinternalFormat.ml:963:37>>*/ ;
-    /*<<camlinternalFormat.ml:963:37>>*/ }
+   }
    var
     Type_mismatch =
        /*<<camlinternalFormat.ml:969:0>>*/ [248,
@@ -18643,53 +15445,49 @@
        cst_bad_input_format_type_mism$0];
    function type_padding(pad, fmtty){
      /*<<camlinternalFormat.ml:977:17>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:978:21>>*/ return [0, 0, fmtty] /*<<camlinternalFormat.ml:978:21>>*/ ;
+      /*<<camlinternalFormat.ml:978:21>>*/ return [0, 0, fmtty];
     if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
-      /*<<camlinternalFormat.ml:979:33>>*/ return [0, [0, padty, w], fmtty] /*<<camlinternalFormat.ml:979:33>>*/ ;
+      /*<<camlinternalFormat.ml:979:33>>*/ return [0, [0, padty, w], fmtty];
     }
     if(typeof fmtty !== "number" && 2 === fmtty[0]){
      var rest = fmtty[1], padty$0 = pad[1];
-      /*<<camlinternalFormat.ml:980:38>>*/ return [0, [1, padty$0], rest] /*<<camlinternalFormat.ml:980:38>>*/ ;
+      /*<<camlinternalFormat.ml:980:38>>*/ return [0, [1, padty$0], rest];
     }
-     /*<<camlinternalFormat.ml:981:9>>*/ throw  /*<<camlinternalFormat.ml:981:9>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalFormat.ml:981:9>>*/ (Type_mismatch, 1);
+     /*<<camlinternalFormat.ml:981:9>>*/ throw caml_maybe_attach_backtrace
+           (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:981:28>>*/ }
    function type_padprec(pad, prec, fmtty){
     var
-     match =
-        /*<<camlinternalFormat.ml:989:34>>*/  /*<<camlinternalFormat.ml:989:34>>*/ type_padding
-         /*<<camlinternalFormat.ml:989:34>>*/ (pad, fmtty);
+     match =  /*<<camlinternalFormat.ml:989:34>>*/ type_padding(pad, fmtty);
     if(typeof prec !== "number"){
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
-      /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1] /*<<camlinternalFormat.ml:993:4>>*/ ;
+      /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1];
     }
     if(! prec){
      var rest$0 = match[2], pad$1 = match[1];
-      /*<<camlinternalFormat.ml:991:4>>*/ return [0, pad$1, 0, rest$0] /*<<camlinternalFormat.ml:991:4>>*/ ;
+      /*<<camlinternalFormat.ml:991:4>>*/ return [0, pad$1, 0, rest$0];
     }
     var match$0 = match[2];
     if(typeof match$0 !== "number" && 2 === match$0[0]){
      var rest = match$0[1], pad$0 = match[1];
-      /*<<camlinternalFormat.ml:995:4>>*/ return [0, pad$0, 1, rest] /*<<camlinternalFormat.ml:995:4>>*/ ;
+      /*<<camlinternalFormat.ml:995:4>>*/ return [0, pad$0, 1, rest];
     }
-     /*<<camlinternalFormat.ml:996:35>>*/ throw  /*<<camlinternalFormat.ml:996:35>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalFormat.ml:996:35>>*/ (Type_mismatch, 1);
+     /*<<camlinternalFormat.ml:996:35>>*/ throw caml_maybe_attach_backtrace
+           (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:996:54>>*/ }
    function type_format(fmt, fmtty){
     var
-     _cA_ =
-        /*<<camlinternalFormat.ml:1008:25>>*/  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen
-         /*<<camlinternalFormat.ml:1008:25>>*/ (fmt, fmtty);
+     _cA_ =  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen(fmt, fmtty);
     if(typeof _cA_[2] !== "number")
-      /*<<camlinternalFormat.ml:1010:9>>*/ throw  /*<<camlinternalFormat.ml:1010:9>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalFormat.ml:1010:9>>*/ (Type_mismatch, 1);
+      /*<<camlinternalFormat.ml:1010:9>>*/ throw caml_maybe_attach_backtrace
+            (Type_mismatch, 1);
     var fmt$0 = _cA_[1];
-     /*<<camlinternalFormat.ml:1009:42>>*/ return fmt$0 /*<<camlinternalFormat.ml:1009:42>>*/ ;
+     /*<<camlinternalFormat.ml:1009:42>>*/ return fmt$0;
     /*<<camlinternalFormat.ml:1010:28>>*/ }
    function type_format_gen(fmt, fmtty0){
      /*<<camlinternalFormat.ml:1018:19>>*/ if(typeof fmt === "number")
-      /*<<camlinternalFormat.ml:1133:33>>*/ return [0, 0, fmtty0] /*<<camlinternalFormat.ml:1133:33>>*/ ;
+      /*<<camlinternalFormat.ml:1133:33>>*/ return [0, 0, fmtty0];
     switch(fmt[0]){
       case 0:
        if(typeof fmtty0 !== "number" && 0 === fmtty0[0]){
@@ -18697,11 +15495,11 @@
          fmtty_rest = fmtty0[1],
          fmt_rest = fmt[1],
          match =
-            /*<<camlinternalFormat.ml:1020:39>>*/  /*<<camlinternalFormat.ml:1020:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1020:39>>*/ (fmt_rest, fmtty_rest),
+            /*<<camlinternalFormat.ml:1020:39>>*/ type_format_gen
+            (fmt_rest, fmtty_rest),
          fmtty = match[2],
          fmt$0 = match[1];
-         /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty] /*<<camlinternalFormat.ml:1021:4>>*/ ;
+         /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty];
        }
        break;
       case 1:
@@ -18710,11 +15508,11 @@
          fmtty_rest$0 = fmtty0[1],
          fmt_rest$0 = fmt[1],
          match$0 =
-            /*<<camlinternalFormat.ml:1023:39>>*/  /*<<camlinternalFormat.ml:1023:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1023:39>>*/ (fmt_rest$0, fmtty_rest$0),
+            /*<<camlinternalFormat.ml:1023:39>>*/ type_format_gen
+            (fmt_rest$0, fmtty_rest$0),
          fmtty$0 = match$0[2],
          fmt$1 = match$0[1];
-         /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0] /*<<camlinternalFormat.ml:1024:4>>*/ ;
+         /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0];
        }
        break;
       case 2:
@@ -18722,47 +15520,45 @@
         fmt_rest$1 = fmt[2],
         pad = fmt[1],
         match$1 =
-           /*<<camlinternalFormat.ml:1026:10>>*/  /*<<camlinternalFormat.ml:1026:10>>*/ type_padding
-            /*<<camlinternalFormat.ml:1026:10>>*/ (pad, fmtty0),
+           /*<<camlinternalFormat.ml:1026:10>>*/ type_padding(pad, fmtty0),
         pad$0 = match$1[1],
         match$2 = match$1[2];
        if(typeof match$2 !== "number" && 1 === match$2[0]){
         var
          fmtty_rest$1 = match$2[1],
          match$3 =
-            /*<<camlinternalFormat.ml:1028:41>>*/  /*<<camlinternalFormat.ml:1028:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1028:41>>*/ (fmt_rest$1, fmtty_rest$1),
+            /*<<camlinternalFormat.ml:1028:41>>*/ type_format_gen
+            (fmt_rest$1, fmtty_rest$1),
          fmtty$1 = match$3[2],
          fmt$2 = match$3[1];
          /*<<camlinternalFormat.ml:1029:6>>*/ return [0,
                 [2, pad$0, fmt$2],
-                fmtty$1] /*<<camlinternalFormat.ml:1029:6>>*/ ;
+                fmtty$1];
        }
-        /*<<camlinternalFormat.ml:1030:34>>*/ throw  /*<<camlinternalFormat.ml:1030:34>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1030:34>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1030:34>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 3:
        var
         fmt_rest$2 = fmt[2],
         pad$1 = fmt[1],
         match$4 =
-           /*<<camlinternalFormat.ml:1033:10>>*/  /*<<camlinternalFormat.ml:1033:10>>*/ type_padding
-            /*<<camlinternalFormat.ml:1033:10>>*/ (pad$1, fmtty0),
+           /*<<camlinternalFormat.ml:1033:10>>*/ type_padding(pad$1, fmtty0),
         pad$2 = match$4[1],
         match$5 = match$4[2];
        if(typeof match$5 !== "number" && 1 === match$5[0]){
         var
          fmtty_rest$2 = match$5[1],
          match$6 =
-            /*<<camlinternalFormat.ml:1035:41>>*/  /*<<camlinternalFormat.ml:1035:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1035:41>>*/ (fmt_rest$2, fmtty_rest$2),
+            /*<<camlinternalFormat.ml:1035:41>>*/ type_format_gen
+            (fmt_rest$2, fmtty_rest$2),
          fmtty$2 = match$6[2],
          fmt$3 = match$6[1];
          /*<<camlinternalFormat.ml:1036:6>>*/ return [0,
                 [3, pad$2, fmt$3],
-                fmtty$2] /*<<camlinternalFormat.ml:1036:6>>*/ ;
+                fmtty$2];
        }
-        /*<<camlinternalFormat.ml:1037:34>>*/ throw  /*<<camlinternalFormat.ml:1037:34>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1037:34>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1037:34>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 4:
        var
         fmt_rest$3 = fmt[4],
@@ -18770,8 +15566,8 @@
         pad$3 = fmt[2],
         iconv = fmt[1],
         match$7 =
-           /*<<camlinternalFormat.ml:1040:10>>*/  /*<<camlinternalFormat.ml:1040:10>>*/ type_padprec
-            /*<<camlinternalFormat.ml:1040:10>>*/ (pad$3, prec, fmtty0),
+           /*<<camlinternalFormat.ml:1040:10>>*/ type_padprec
+           (pad$3, prec, fmtty0),
         pad$4 = match$7[1],
         match$8 = match$7[3];
        if(typeof match$8 !== "number" && 2 === match$8[0]){
@@ -18779,16 +15575,16 @@
          fmtty_rest$3 = match$8[1],
          prec$0 = match$7[2],
          match$9 =
-            /*<<camlinternalFormat.ml:1042:41>>*/  /*<<camlinternalFormat.ml:1042:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1042:41>>*/ (fmt_rest$3, fmtty_rest$3),
+            /*<<camlinternalFormat.ml:1042:41>>*/ type_format_gen
+            (fmt_rest$3, fmtty_rest$3),
          fmtty$3 = match$9[2],
          fmt$4 = match$9[1];
          /*<<camlinternalFormat.ml:1043:6>>*/ return [0,
                 [4, iconv, pad$4, prec$0, fmt$4],
-                fmtty$3] /*<<camlinternalFormat.ml:1043:6>>*/ ;
+                fmtty$3];
        }
-        /*<<camlinternalFormat.ml:1044:37>>*/ throw  /*<<camlinternalFormat.ml:1044:37>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1044:37>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1044:37>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 5:
        var
         fmt_rest$4 = fmt[4],
@@ -18796,8 +15592,8 @@
         pad$5 = fmt[2],
         iconv$0 = fmt[1],
         match$10 =
-           /*<<camlinternalFormat.ml:1047:10>>*/  /*<<camlinternalFormat.ml:1047:10>>*/ type_padprec
-            /*<<camlinternalFormat.ml:1047:10>>*/ (pad$5, prec$1, fmtty0),
+           /*<<camlinternalFormat.ml:1047:10>>*/ type_padprec
+           (pad$5, prec$1, fmtty0),
         pad$6 = match$10[1],
         match$11 = match$10[3];
        if(typeof match$11 !== "number" && 3 === match$11[0]){
@@ -18805,16 +15601,16 @@
          fmtty_rest$4 = match$11[1],
          prec$2 = match$10[2],
          match$12 =
-            /*<<camlinternalFormat.ml:1049:41>>*/  /*<<camlinternalFormat.ml:1049:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1049:41>>*/ (fmt_rest$4, fmtty_rest$4),
+            /*<<camlinternalFormat.ml:1049:41>>*/ type_format_gen
+            (fmt_rest$4, fmtty_rest$4),
          fmtty$4 = match$12[2],
          fmt$5 = match$12[1];
          /*<<camlinternalFormat.ml:1050:6>>*/ return [0,
                 [5, iconv$0, pad$6, prec$2, fmt$5],
-                fmtty$4] /*<<camlinternalFormat.ml:1050:6>>*/ ;
+                fmtty$4];
        }
-        /*<<camlinternalFormat.ml:1051:37>>*/ throw  /*<<camlinternalFormat.ml:1051:37>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1051:37>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1051:37>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 6:
        var
         fmt_rest$5 = fmt[4],
@@ -18822,8 +15618,8 @@
         pad$7 = fmt[2],
         iconv$1 = fmt[1],
         match$13 =
-           /*<<camlinternalFormat.ml:1054:10>>*/  /*<<camlinternalFormat.ml:1054:10>>*/ type_padprec
-            /*<<camlinternalFormat.ml:1054:10>>*/ (pad$7, prec$3, fmtty0),
+           /*<<camlinternalFormat.ml:1054:10>>*/ type_padprec
+           (pad$7, prec$3, fmtty0),
         pad$8 = match$13[1],
         match$14 = match$13[3];
        if(typeof match$14 !== "number" && 4 === match$14[0]){
@@ -18831,16 +15627,16 @@
          fmtty_rest$5 = match$14[1],
          prec$4 = match$13[2],
          match$15 =
-            /*<<camlinternalFormat.ml:1056:41>>*/  /*<<camlinternalFormat.ml:1056:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1056:41>>*/ (fmt_rest$5, fmtty_rest$5),
+            /*<<camlinternalFormat.ml:1056:41>>*/ type_format_gen
+            (fmt_rest$5, fmtty_rest$5),
          fmtty$5 = match$15[2],
          fmt$6 = match$15[1];
          /*<<camlinternalFormat.ml:1057:6>>*/ return [0,
                 [6, iconv$1, pad$8, prec$4, fmt$6],
-                fmtty$5] /*<<camlinternalFormat.ml:1057:6>>*/ ;
+                fmtty$5];
        }
-        /*<<camlinternalFormat.ml:1058:37>>*/ throw  /*<<camlinternalFormat.ml:1058:37>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1058:37>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1058:37>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 7:
        var
         fmt_rest$6 = fmt[4],
@@ -18848,8 +15644,8 @@
         pad$9 = fmt[2],
         iconv$2 = fmt[1],
         match$16 =
-           /*<<camlinternalFormat.ml:1061:10>>*/  /*<<camlinternalFormat.ml:1061:10>>*/ type_padprec
-            /*<<camlinternalFormat.ml:1061:10>>*/ (pad$9, prec$5, fmtty0),
+           /*<<camlinternalFormat.ml:1061:10>>*/ type_padprec
+           (pad$9, prec$5, fmtty0),
         pad$10 = match$16[1],
         match$17 = match$16[3];
        if(typeof match$17 !== "number" && 5 === match$17[0]){
@@ -18857,16 +15653,16 @@
          fmtty_rest$6 = match$17[1],
          prec$6 = match$16[2],
          match$18 =
-            /*<<camlinternalFormat.ml:1063:41>>*/  /*<<camlinternalFormat.ml:1063:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1063:41>>*/ (fmt_rest$6, fmtty_rest$6),
+            /*<<camlinternalFormat.ml:1063:41>>*/ type_format_gen
+            (fmt_rest$6, fmtty_rest$6),
          fmtty$6 = match$18[2],
          fmt$7 = match$18[1];
          /*<<camlinternalFormat.ml:1064:6>>*/ return [0,
                 [7, iconv$2, pad$10, prec$6, fmt$7],
-                fmtty$6] /*<<camlinternalFormat.ml:1064:6>>*/ ;
+                fmtty$6];
        }
-        /*<<camlinternalFormat.ml:1065:37>>*/ throw  /*<<camlinternalFormat.ml:1065:37>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1065:37>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1065:37>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 8:
        var
         fmt_rest$7 = fmt[4],
@@ -18874,8 +15670,8 @@
         pad$11 = fmt[2],
         fconv = fmt[1],
         match$19 =
-           /*<<camlinternalFormat.ml:1068:10>>*/  /*<<camlinternalFormat.ml:1068:10>>*/ type_padprec
-            /*<<camlinternalFormat.ml:1068:10>>*/ (pad$11, prec$7, fmtty0),
+           /*<<camlinternalFormat.ml:1068:10>>*/ type_padprec
+           (pad$11, prec$7, fmtty0),
         pad$12 = match$19[1],
         match$20 = match$19[3];
        if(typeof match$20 !== "number" && 6 === match$20[0]){
@@ -18883,72 +15679,71 @@
          fmtty_rest$7 = match$20[1],
          prec$8 = match$19[2],
          match$21 =
-            /*<<camlinternalFormat.ml:1070:41>>*/  /*<<camlinternalFormat.ml:1070:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1070:41>>*/ (fmt_rest$7, fmtty_rest$7),
+            /*<<camlinternalFormat.ml:1070:41>>*/ type_format_gen
+            (fmt_rest$7, fmtty_rest$7),
          fmtty$7 = match$21[2],
          fmt$8 = match$21[1];
          /*<<camlinternalFormat.ml:1071:6>>*/ return [0,
                 [8, fconv, pad$12, prec$8, fmt$8],
-                fmtty$7] /*<<camlinternalFormat.ml:1071:6>>*/ ;
+                fmtty$7];
        }
-        /*<<camlinternalFormat.ml:1072:37>>*/ throw  /*<<camlinternalFormat.ml:1072:37>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1072:37>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1072:37>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 9:
        var
         fmt_rest$8 = fmt[2],
         pad$13 = fmt[1],
         match$22 =
-           /*<<camlinternalFormat.ml:1075:10>>*/  /*<<camlinternalFormat.ml:1075:10>>*/ type_padding
-            /*<<camlinternalFormat.ml:1075:10>>*/ (pad$13, fmtty0),
+           /*<<camlinternalFormat.ml:1075:10>>*/ type_padding(pad$13, fmtty0),
         pad$14 = match$22[1],
         match$23 = match$22[2];
        if(typeof match$23 !== "number" && 7 === match$23[0]){
         var
          fmtty_rest$8 = match$23[1],
          match$24 =
-            /*<<camlinternalFormat.ml:1077:41>>*/  /*<<camlinternalFormat.ml:1077:41>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1077:41>>*/ (fmt_rest$8, fmtty_rest$8),
+            /*<<camlinternalFormat.ml:1077:41>>*/ type_format_gen
+            (fmt_rest$8, fmtty_rest$8),
          fmtty$8 = match$24[2],
          fmt$9 = match$24[1];
          /*<<camlinternalFormat.ml:1078:6>>*/ return [0,
                 [9, pad$14, fmt$9],
-                fmtty$8] /*<<camlinternalFormat.ml:1078:6>>*/ ;
+                fmtty$8];
        }
-        /*<<camlinternalFormat.ml:1079:34>>*/ throw  /*<<camlinternalFormat.ml:1079:34>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:1079:34>>*/ (Type_mismatch, 1);
+        /*<<camlinternalFormat.ml:1079:34>>*/ throw caml_maybe_attach_backtrace
+              (Type_mismatch, 1);
       case 10:
        var
         fmt_rest$9 = fmt[1],
         match$25 =
-           /*<<camlinternalFormat.ml:1082:39>>*/  /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
-            /*<<camlinternalFormat.ml:1082:39>>*/ (fmt_rest$9, fmtty0),
+           /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
+           (fmt_rest$9, fmtty0),
         fmtty$9 = match$25[2],
         fmt$10 = match$25[1];
-        /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9] /*<<camlinternalFormat.ml:1083:4>>*/ ;
+        /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9];
       case 11:
        var
         fmt_rest$10 = fmt[2],
         str = fmt[1],
         match$26 =
-           /*<<camlinternalFormat.ml:1086:39>>*/  /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
-            /*<<camlinternalFormat.ml:1086:39>>*/ (fmt_rest$10, fmtty0),
+           /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
+           (fmt_rest$10, fmtty0),
         fmtty$10 = match$26[2],
         fmt$11 = match$26[1];
         /*<<camlinternalFormat.ml:1087:4>>*/ return [0,
                [11, str, fmt$11],
-               fmtty$10] /*<<camlinternalFormat.ml:1087:4>>*/ ;
+               fmtty$10];
       case 12:
        var
         fmt_rest$11 = fmt[2],
         chr = fmt[1],
         match$27 =
-           /*<<camlinternalFormat.ml:1089:39>>*/  /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
-            /*<<camlinternalFormat.ml:1089:39>>*/ (fmt_rest$11, fmtty0),
+           /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
+           (fmt_rest$11, fmtty0),
         fmtty$11 = match$27[2],
         fmt$12 = match$27[1];
         /*<<camlinternalFormat.ml:1090:4>>*/ return [0,
                [12, chr, fmt$12],
-               fmtty$11] /*<<camlinternalFormat.ml:1090:4>>*/ ;
+               fmtty$11];
       case 13:
        if(typeof fmtty0 !== "number" && 8 === fmtty0[0]){
         var
@@ -18958,20 +15753,18 @@
          sub_fmtty$0 = fmt[2],
          pad_opt = fmt[1];
          /*<<camlinternalFormat.ml:1094:7>>*/ if
-         ( /*<<camlinternalFormat.ml:1094:7>>*/ caml_notequal
-            /*<<camlinternalFormat.ml:1094:7>>*/ ([0, sub_fmtty$0],
-            [0, sub_fmtty]))
-          /*<<camlinternalFormat.ml:1094:56>>*/ throw  /*<<camlinternalFormat.ml:1094:56>>*/ caml_maybe_attach_backtrace
-                 /*<<camlinternalFormat.ml:1094:56>>*/ (Type_mismatch, 1);
+         (caml_notequal([0, sub_fmtty$0], [0, sub_fmtty]))
+          /*<<camlinternalFormat.ml:1094:56>>*/ throw caml_maybe_attach_backtrace
+                (Type_mismatch, 1);
         var
          match$28 =
-            /*<<camlinternalFormat.ml:1095:39>>*/  /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1095:39>>*/ (fmt_rest$12, fmtty_rest$9),
+            /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
+            (fmt_rest$12, fmtty_rest$9),
          fmtty$12 = match$28[2],
          fmt$13 = match$28[1];
          /*<<camlinternalFormat.ml:1096:4>>*/ return [0,
                 [13, pad_opt, sub_fmtty, fmt$13],
-                fmtty$12] /*<<camlinternalFormat.ml:1096:4>>*/ ;
+                fmtty$12];
        }
        break;
       case 14:
@@ -18985,32 +15778,26 @@
          _cy_ =
             /*<<camlinternalFormat.ml:1099:42>>*/ [0,
              /*<<camlinternalFormat.ml:1099:52>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1099:52>>*/ (CamlinternalFormatBasics
-               [2],
-              sub_fmtty1)];
+             (CamlinternalFormatBasics[2], sub_fmtty1)];
          /*<<camlinternalFormat.ml:1099:7>>*/ if
-         ( /*<<camlinternalFormat.ml:1099:7>>*/ caml_notequal
-            /*<<camlinternalFormat.ml:1099:7>>*/ ([0,
+         (caml_notequal
+           ([0,
               /*<<camlinternalFormat.ml:1099:17>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1099:17>>*/ (CamlinternalFormatBasics
-                [2],
-               sub_fmtty$1)],
+              (CamlinternalFormatBasics[2], sub_fmtty$1)],
             _cy_))
-          /*<<camlinternalFormat.ml:1100:6>>*/ throw  /*<<camlinternalFormat.ml:1100:6>>*/ caml_maybe_attach_backtrace
-                 /*<<camlinternalFormat.ml:1100:6>>*/ (Type_mismatch, 1);
+          /*<<camlinternalFormat.ml:1100:6>>*/ throw caml_maybe_attach_backtrace
+                (Type_mismatch, 1);
         var
          match$29 =
-            /*<<camlinternalFormat.ml:1102:6>>*/  /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1102:6>>*/ (fmt_rest$13,
+            /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
+            (fmt_rest$13,
               /*<<camlinternalFormat.ml:1102:31>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1102:31>>*/ (CamlinternalFormatBasics
-                [2],
-               fmtty_rest$10)),
+              (CamlinternalFormatBasics[2], fmtty_rest$10)),
          fmtty$13 = match$29[2],
          fmt$14 = match$29[1];
          /*<<camlinternalFormat.ml:1104:4>>*/ return [0,
                 [14, pad_opt$0, sub_fmtty1, fmt$14],
-                fmtty$13] /*<<camlinternalFormat.ml:1104:4>>*/ ;
+                fmtty$13];
        }
        break;
       case 15:
@@ -19019,14 +15806,13 @@
          fmtty_rest$11 = fmtty0[1],
          fmt_rest$14 = fmt[1],
          match$30 =
-            /*<<camlinternalFormat.ml:1107:39>>*/  /*<<camlinternalFormat.ml:1107:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1107:39>>*/ (fmt_rest$14,
-             fmtty_rest$11),
+            /*<<camlinternalFormat.ml:1107:39>>*/ type_format_gen
+            (fmt_rest$14, fmtty_rest$11),
          fmtty$14 = match$30[2],
          fmt$15 = match$30[1];
          /*<<camlinternalFormat.ml:1108:4>>*/ return [0,
                 [15, fmt$15],
-                fmtty$14] /*<<camlinternalFormat.ml:1108:4>>*/ ;
+                fmtty$14];
        }
        break;
       case 16:
@@ -19035,14 +15821,13 @@
          fmtty_rest$12 = fmtty0[1],
          fmt_rest$15 = fmt[1],
          match$31 =
-            /*<<camlinternalFormat.ml:1110:39>>*/  /*<<camlinternalFormat.ml:1110:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1110:39>>*/ (fmt_rest$15,
-             fmtty_rest$12),
+            /*<<camlinternalFormat.ml:1110:39>>*/ type_format_gen
+            (fmt_rest$15, fmtty_rest$12),
          fmtty$15 = match$31[2],
          fmt$16 = match$31[1];
          /*<<camlinternalFormat.ml:1111:4>>*/ return [0,
                 [16, fmt$16],
-                fmtty$15] /*<<camlinternalFormat.ml:1111:4>>*/ ;
+                fmtty$15];
        }
        break;
       case 17:
@@ -19050,13 +15835,13 @@
         fmt_rest$16 = fmt[2],
         formatting_lit = fmt[1],
         match$32 =
-           /*<<camlinternalFormat.ml:1115:39>>*/  /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
-            /*<<camlinternalFormat.ml:1115:39>>*/ (fmt_rest$16, fmtty0),
+           /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
+           (fmt_rest$16, fmtty0),
         fmtty$16 = match$32[2],
         fmt$17 = match$32[1];
         /*<<camlinternalFormat.ml:1116:4>>*/ return [0,
                [17, formatting_lit, fmt$17],
-               fmtty$16] /*<<camlinternalFormat.ml:1116:4>>*/ ;
+               fmtty$16];
       case 18:
        var fmt_rest$17 = fmt[2], formatting_gen = fmt[1];
        if(0 === formatting_gen[0]){
@@ -19065,50 +15850,49 @@
          str$0 = match$36[2],
          fmt1 = match$36[1],
          match$37 =
-            /*<<camlinternalFormat.ml:1144:39>>*/  /*<<camlinternalFormat.ml:1144:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1144:39>>*/ (fmt1, fmtty0),
+            /*<<camlinternalFormat.ml:1144:39>>*/ type_format_gen
+            (fmt1, fmtty0),
          fmtty2 = match$37[2],
          fmt2 = match$37[1],
          match$38 =
-            /*<<camlinternalFormat.ml:1145:39>>*/  /*<<camlinternalFormat.ml:1145:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1145:39>>*/ (fmt_rest$17, fmtty2),
+            /*<<camlinternalFormat.ml:1145:39>>*/ type_format_gen
+            (fmt_rest$17, fmtty2),
          fmtty3 = match$38[2],
          fmt3 = match$38[1];
          /*<<camlinternalFormat.ml:1146:4>>*/ return [0,
                 [18, [0, [0, fmt2, str$0]], fmt3],
-                fmtty3] /*<<camlinternalFormat.ml:1146:4>>*/ ;
+                fmtty3];
        }
        var
         match$39 = formatting_gen[1],
         str$1 = match$39[2],
         fmt1$0 = match$39[1],
         match$40 =
-           /*<<camlinternalFormat.ml:1148:39>>*/  /*<<camlinternalFormat.ml:1148:39>>*/ type_format_gen
-            /*<<camlinternalFormat.ml:1148:39>>*/ (fmt1$0, fmtty0),
+           /*<<camlinternalFormat.ml:1148:39>>*/ type_format_gen
+           (fmt1$0, fmtty0),
         fmtty2$0 = match$40[2],
         fmt2$0 = match$40[1],
         match$41 =
-           /*<<camlinternalFormat.ml:1149:39>>*/  /*<<camlinternalFormat.ml:1149:39>>*/ type_format_gen
-            /*<<camlinternalFormat.ml:1149:39>>*/ (fmt_rest$17, fmtty2$0),
+           /*<<camlinternalFormat.ml:1149:39>>*/ type_format_gen
+           (fmt_rest$17, fmtty2$0),
         fmtty3$0 = match$41[2],
         fmt3$0 = match$41[1];
         /*<<camlinternalFormat.ml:1150:4>>*/ return [0,
                [18, [1, [0, fmt2$0, str$1]], fmt3$0],
-               fmtty3$0] /*<<camlinternalFormat.ml:1150:4>>*/ ;
+               fmtty3$0];
       case 19:
        if(typeof fmtty0 !== "number" && 13 === fmtty0[0]){
         var
          fmtty_rest$13 = fmtty0[1],
          fmt_rest$18 = fmt[1],
          match$33 =
-            /*<<camlinternalFormat.ml:1122:39>>*/  /*<<camlinternalFormat.ml:1122:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1122:39>>*/ (fmt_rest$18,
-             fmtty_rest$13),
+            /*<<camlinternalFormat.ml:1122:39>>*/ type_format_gen
+            (fmt_rest$18, fmtty_rest$13),
          fmtty$17 = match$33[2],
          fmt$18 = match$33[1];
          /*<<camlinternalFormat.ml:1123:4>>*/ return [0,
                 [19, fmt$18],
-                fmtty$17] /*<<camlinternalFormat.ml:1123:4>>*/ ;
+                fmtty$17];
        }
        break;
       case 20:
@@ -19119,14 +15903,13 @@
          char_set = fmt[2],
          width_opt = fmt[1],
          match$34 =
-            /*<<camlinternalFormat.ml:1125:39>>*/  /*<<camlinternalFormat.ml:1125:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1125:39>>*/ (fmt_rest$19,
-             fmtty_rest$14),
+            /*<<camlinternalFormat.ml:1125:39>>*/ type_format_gen
+            (fmt_rest$19, fmtty_rest$14),
          fmtty$18 = match$34[2],
          fmt$19 = match$34[1];
          /*<<camlinternalFormat.ml:1126:4>>*/ return [0,
                 [20, width_opt, char_set, fmt$19],
-                fmtty$18] /*<<camlinternalFormat.ml:1126:4>>*/ ;
+                fmtty$18];
        }
        break;
       case 21:
@@ -19136,14 +15919,13 @@
          fmt_rest$20 = fmt[2],
          counter = fmt[1],
          match$35 =
-            /*<<camlinternalFormat.ml:1128:39>>*/  /*<<camlinternalFormat.ml:1128:39>>*/ type_format_gen
-             /*<<camlinternalFormat.ml:1128:39>>*/ (fmt_rest$20,
-             fmtty_rest$15),
+            /*<<camlinternalFormat.ml:1128:39>>*/ type_format_gen
+            (fmt_rest$20, fmtty_rest$15),
          fmtty$19 = match$35[2],
          fmt$20 = match$35[1];
          /*<<camlinternalFormat.ml:1129:4>>*/ return [0,
                 [21, counter, fmt$20],
-                fmtty$19] /*<<camlinternalFormat.ml:1129:4>>*/ ;
+                fmtty$19];
        }
        break;
       case 23:
@@ -19151,107 +15933,100 @@
        if(typeof ign !== "number")
         switch(ign[0]){
           case 0:
-            /*<<camlinternalFormat.ml:1161:42>>*/ return  /*<<camlinternalFormat.ml:1161:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1161:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1161:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 1:
-            /*<<camlinternalFormat.ml:1162:42>>*/ return  /*<<camlinternalFormat.ml:1162:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1162:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1162:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 2:
-            /*<<camlinternalFormat.ml:1163:42>>*/ return  /*<<camlinternalFormat.ml:1163:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1163:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1163:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 3:
-            /*<<camlinternalFormat.ml:1164:42>>*/ return  /*<<camlinternalFormat.ml:1164:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1164:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1164:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 4:
-            /*<<camlinternalFormat.ml:1165:42>>*/ return  /*<<camlinternalFormat.ml:1165:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1165:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1165:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 5:
-            /*<<camlinternalFormat.ml:1166:42>>*/ return  /*<<camlinternalFormat.ml:1166:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1166:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1166:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 6:
-            /*<<camlinternalFormat.ml:1167:42>>*/ return  /*<<camlinternalFormat.ml:1167:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1167:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1167:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 7:
-            /*<<camlinternalFormat.ml:1168:42>>*/ return  /*<<camlinternalFormat.ml:1168:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1168:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1168:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 8:
            var sub_fmtty$2 = ign[2], pad_opt$1 = ign[1];
-            /*<<camlinternalFormat.ml:1173:4>>*/ return  /*<<camlinternalFormat.ml:1173:4>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1173:4>>*/ ([8,
-                     pad_opt$1,
-                     sub_fmtty$2],
-                    rest,
-                    fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1173:4>>*/ return type_ignored_param_one
+                   ([8, pad_opt$1, sub_fmtty$2], rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 9:
            var
             sub_fmtty$3 = ign[2],
             pad_opt$2 = ign[1],
             _cz_ =
-               /*<<camlinternalFormat.ml:1176:6>>*/  /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
-                /*<<camlinternalFormat.ml:1176:6>>*/ (sub_fmtty$3,
-                rest,
-                fmtty0),
+               /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
+               (sub_fmtty$3, rest, fmtty0),
             match$43 = _cz_[2],
             fmtty$21 = match$43[2],
             fmt$22 = match$43[1],
             sub_fmtty$4 = _cz_[1];
             /*<<camlinternalFormat.ml:1177:4>>*/ return [0,
                    [23, [9, pad_opt$2, sub_fmtty$4], fmt$22],
-                   fmtty$21] /*<<camlinternalFormat.ml:1177:4>>*/ ;
+                   fmtty$21];
           case 10:
-            /*<<camlinternalFormat.ml:1169:42>>*/ return  /*<<camlinternalFormat.ml:1169:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1169:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1169:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           default:
-            /*<<camlinternalFormat.ml:1170:42>>*/ return  /*<<camlinternalFormat.ml:1170:42>>*/ type_ignored_param_one
-                    /*<<camlinternalFormat.ml:1170:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+            /*<<camlinternalFormat.ml:1170:42>>*/ return type_ignored_param_one
+                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
         }
        switch(ign){
          case 0:
-           /*<<camlinternalFormat.ml:1159:42>>*/ return  /*<<camlinternalFormat.ml:1159:42>>*/ type_ignored_param_one
-                   /*<<camlinternalFormat.ml:1159:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+           /*<<camlinternalFormat.ml:1159:42>>*/ return type_ignored_param_one
+                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 1:
-           /*<<camlinternalFormat.ml:1160:42>>*/ return  /*<<camlinternalFormat.ml:1160:42>>*/ type_ignored_param_one
-                   /*<<camlinternalFormat.ml:1160:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+           /*<<camlinternalFormat.ml:1160:42>>*/ return type_ignored_param_one
+                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 2:
           if(typeof fmtty0 !== "number" && 14 === fmtty0[0]){
            var
             fmtty_rest$16 = fmtty0[1],
             match$42 =
-               /*<<camlinternalFormat.ml:1183:41>>*/  /*<<camlinternalFormat.ml:1183:41>>*/ type_format_gen
-                /*<<camlinternalFormat.ml:1183:41>>*/ (rest, fmtty_rest$16),
+               /*<<camlinternalFormat.ml:1183:41>>*/ type_format_gen
+               (rest, fmtty_rest$16),
             fmtty$20 = match$42[2],
             fmt$21 = match$42[1];
             /*<<camlinternalFormat.ml:1184:6>>*/ return [0,
                    [23, 2, fmt$21],
-                   fmtty$20] /*<<camlinternalFormat.ml:1184:6>>*/ ;
+                   fmtty$20];
           }
-           /*<<camlinternalFormat.ml:1185:11>>*/ throw  /*<<camlinternalFormat.ml:1185:11>>*/ caml_maybe_attach_backtrace
-                  /*<<camlinternalFormat.ml:1185:11>>*/ (Type_mismatch, 1);
+           /*<<camlinternalFormat.ml:1185:11>>*/ throw caml_maybe_attach_backtrace
+                 (Type_mismatch, 1);
          default:
-           /*<<camlinternalFormat.ml:1171:42>>*/ return  /*<<camlinternalFormat.ml:1171:42>>*/ type_ignored_param_one
-                   /*<<camlinternalFormat.ml:1171:42>>*/ (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
+           /*<<camlinternalFormat.ml:1171:42>>*/ return type_ignored_param_one
+                  (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
        }
     }
-     /*<<camlinternalFormat.ml:1135:9>>*/ throw  /*<<camlinternalFormat.ml:1135:9>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalFormat.ml:1135:9>>*/ (Type_mismatch, 1);
+     /*<<camlinternalFormat.ml:1135:9>>*/ throw caml_maybe_attach_backtrace
+           (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1135:28>>*/ }
    function type_ignored_param_one(ign, fmt, fmtty){
     var
      match =
-        /*<<camlinternalFormat.ml:1194:37>>*/  /*<<camlinternalFormat.ml:1194:37>>*/ type_format_gen
-         /*<<camlinternalFormat.ml:1194:37>>*/ (fmt, fmtty),
+        /*<<camlinternalFormat.ml:1194:37>>*/ type_format_gen(fmt, fmtty),
      fmtty$0 = match[2],
      fmt$0 = match[1];
      /*<<camlinternalFormat.ml:1195:2>>*/ return [0,
             [23, ign, fmt$0],
-            fmtty$0] /*<<camlinternalFormat.ml:1195:2>>*/ ;
+            fmtty$0];
     /*<<camlinternalFormat.ml:1195:51>>*/ }
    function type_ignored_format_substituti(sub_fmtty, fmt, fmtty){
      /*<<camlinternalFormat.ml:1202:27>>*/ if(typeof sub_fmtty === "number")
       /*<<camlinternalFormat.ml:1276:4>>*/ return [0,
              0,
               /*<<camlinternalFormat.ml:1276:33>>*/ type_format_gen
-               /*<<camlinternalFormat.ml:1276:33>>*/ (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:4>>*/ ;
+              (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:4>>*/ ;
     switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
@@ -19259,15 +16034,13 @@
          fmtty_rest = fmtty[1],
          sub_fmtty_rest = sub_fmtty[1],
          match =
-            /*<<camlinternalFormat.ml:1205:6>>*/  /*<<camlinternalFormat.ml:1205:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1205:6>>*/ (sub_fmtty_rest,
-             fmt,
-             fmtty_rest),
+            /*<<camlinternalFormat.ml:1205:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest, fmt, fmtty_rest),
          fmt$0 = match[2],
          sub_fmtty_rest$0 = match[1];
          /*<<camlinternalFormat.ml:1206:4>>*/ return [0,
                 [0, sub_fmtty_rest$0],
-                fmt$0] /*<<camlinternalFormat.ml:1206:4>>*/ ;
+                fmt$0];
        }
        break;
       case 1:
@@ -19276,15 +16049,13 @@
          fmtty_rest$0 = fmtty[1],
          sub_fmtty_rest$1 = sub_fmtty[1],
          match$0 =
-            /*<<camlinternalFormat.ml:1209:6>>*/  /*<<camlinternalFormat.ml:1209:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1209:6>>*/ (sub_fmtty_rest$1,
-             fmt,
-             fmtty_rest$0),
+            /*<<camlinternalFormat.ml:1209:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$1, fmt, fmtty_rest$0),
          fmt$1 = match$0[2],
          sub_fmtty_rest$2 = match$0[1];
          /*<<camlinternalFormat.ml:1210:4>>*/ return [0,
                 [1, sub_fmtty_rest$2],
-                fmt$1] /*<<camlinternalFormat.ml:1210:4>>*/ ;
+                fmt$1];
        }
        break;
       case 2:
@@ -19293,15 +16064,13 @@
          fmtty_rest$1 = fmtty[1],
          sub_fmtty_rest$3 = sub_fmtty[1],
          match$1 =
-            /*<<camlinternalFormat.ml:1213:6>>*/  /*<<camlinternalFormat.ml:1213:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1213:6>>*/ (sub_fmtty_rest$3,
-             fmt,
-             fmtty_rest$1),
+            /*<<camlinternalFormat.ml:1213:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$3, fmt, fmtty_rest$1),
          fmt$2 = match$1[2],
          sub_fmtty_rest$4 = match$1[1];
          /*<<camlinternalFormat.ml:1214:4>>*/ return [0,
                 [2, sub_fmtty_rest$4],
-                fmt$2] /*<<camlinternalFormat.ml:1214:4>>*/ ;
+                fmt$2];
        }
        break;
       case 3:
@@ -19310,15 +16079,13 @@
          fmtty_rest$2 = fmtty[1],
          sub_fmtty_rest$5 = sub_fmtty[1],
          match$2 =
-            /*<<camlinternalFormat.ml:1217:6>>*/  /*<<camlinternalFormat.ml:1217:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1217:6>>*/ (sub_fmtty_rest$5,
-             fmt,
-             fmtty_rest$2),
+            /*<<camlinternalFormat.ml:1217:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$5, fmt, fmtty_rest$2),
          fmt$3 = match$2[2],
          sub_fmtty_rest$6 = match$2[1];
          /*<<camlinternalFormat.ml:1218:4>>*/ return [0,
                 [3, sub_fmtty_rest$6],
-                fmt$3] /*<<camlinternalFormat.ml:1218:4>>*/ ;
+                fmt$3];
        }
        break;
       case 4:
@@ -19327,15 +16094,13 @@
          fmtty_rest$3 = fmtty[1],
          sub_fmtty_rest$7 = sub_fmtty[1],
          match$3 =
-            /*<<camlinternalFormat.ml:1221:6>>*/  /*<<camlinternalFormat.ml:1221:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1221:6>>*/ (sub_fmtty_rest$7,
-             fmt,
-             fmtty_rest$3),
+            /*<<camlinternalFormat.ml:1221:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$7, fmt, fmtty_rest$3),
          fmt$4 = match$3[2],
          sub_fmtty_rest$8 = match$3[1];
          /*<<camlinternalFormat.ml:1222:4>>*/ return [0,
                 [4, sub_fmtty_rest$8],
-                fmt$4] /*<<camlinternalFormat.ml:1222:4>>*/ ;
+                fmt$4];
        }
        break;
       case 5:
@@ -19344,15 +16109,13 @@
          fmtty_rest$4 = fmtty[1],
          sub_fmtty_rest$9 = sub_fmtty[1],
          match$4 =
-            /*<<camlinternalFormat.ml:1225:6>>*/  /*<<camlinternalFormat.ml:1225:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1225:6>>*/ (sub_fmtty_rest$9,
-             fmt,
-             fmtty_rest$4),
+            /*<<camlinternalFormat.ml:1225:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$9, fmt, fmtty_rest$4),
          fmt$5 = match$4[2],
          sub_fmtty_rest$10 = match$4[1];
          /*<<camlinternalFormat.ml:1226:4>>*/ return [0,
                 [5, sub_fmtty_rest$10],
-                fmt$5] /*<<camlinternalFormat.ml:1226:4>>*/ ;
+                fmt$5];
        }
        break;
       case 6:
@@ -19361,15 +16124,13 @@
          fmtty_rest$5 = fmtty[1],
          sub_fmtty_rest$11 = sub_fmtty[1],
          match$5 =
-            /*<<camlinternalFormat.ml:1229:6>>*/  /*<<camlinternalFormat.ml:1229:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1229:6>>*/ (sub_fmtty_rest$11,
-             fmt,
-             fmtty_rest$5),
+            /*<<camlinternalFormat.ml:1229:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$11, fmt, fmtty_rest$5),
          fmt$6 = match$5[2],
          sub_fmtty_rest$12 = match$5[1];
          /*<<camlinternalFormat.ml:1230:4>>*/ return [0,
                 [6, sub_fmtty_rest$12],
-                fmt$6] /*<<camlinternalFormat.ml:1230:4>>*/ ;
+                fmt$6];
        }
        break;
       case 7:
@@ -19378,15 +16139,13 @@
          fmtty_rest$6 = fmtty[1],
          sub_fmtty_rest$13 = sub_fmtty[1],
          match$6 =
-            /*<<camlinternalFormat.ml:1233:6>>*/  /*<<camlinternalFormat.ml:1233:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1233:6>>*/ (sub_fmtty_rest$13,
-             fmt,
-             fmtty_rest$6),
+            /*<<camlinternalFormat.ml:1233:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$13, fmt, fmtty_rest$6),
          fmt$7 = match$6[2],
          sub_fmtty_rest$14 = match$6[1];
          /*<<camlinternalFormat.ml:1234:4>>*/ return [0,
                 [7, sub_fmtty_rest$14],
-                fmt$7] /*<<camlinternalFormat.ml:1234:4>>*/ ;
+                fmt$7];
        }
        break;
       case 8:
@@ -19397,22 +16156,18 @@
          sub_fmtty_rest$15 = sub_fmtty[2],
          sub2_fmtty$0 = sub_fmtty[1];
          /*<<camlinternalFormat.ml:1254:7>>*/ if
-         ( /*<<camlinternalFormat.ml:1254:7>>*/ caml_notequal
-            /*<<camlinternalFormat.ml:1254:7>>*/ ([0, sub2_fmtty$0],
-            [0, sub2_fmtty]))
-          /*<<camlinternalFormat.ml:1254:58>>*/ throw  /*<<camlinternalFormat.ml:1254:58>>*/ caml_maybe_attach_backtrace
-                 /*<<camlinternalFormat.ml:1254:58>>*/ (Type_mismatch, 1);
+         (caml_notequal([0, sub2_fmtty$0], [0, sub2_fmtty]))
+          /*<<camlinternalFormat.ml:1254:58>>*/ throw caml_maybe_attach_backtrace
+                (Type_mismatch, 1);
         var
          match$7 =
-            /*<<camlinternalFormat.ml:1256:6>>*/  /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1256:6>>*/ (sub_fmtty_rest$15,
-             fmt,
-             fmtty_rest$7),
+            /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$15, fmt, fmtty_rest$7),
          fmt$8 = match$7[2],
          sub_fmtty_rest$16 = match$7[1];
          /*<<camlinternalFormat.ml:1257:4>>*/ return [0,
                 [8, sub2_fmtty, sub_fmtty_rest$16],
-                fmt$8] /*<<camlinternalFormat.ml:1257:4>>*/ ;
+                fmt$8];
        }
        break;
       case 9:
@@ -19427,58 +16182,44 @@
          _cw_ =
             /*<<camlinternalFormat.ml:1261:43>>*/ [0,
              /*<<camlinternalFormat.ml:1261:53>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1261:53>>*/ (CamlinternalFormatBasics
-               [2],
-              sub1_fmtty)];
+             (CamlinternalFormatBasics[2], sub1_fmtty)];
          /*<<camlinternalFormat.ml:1261:7>>*/ if
-         ( /*<<camlinternalFormat.ml:1261:7>>*/ caml_notequal
-            /*<<camlinternalFormat.ml:1261:7>>*/ ([0,
+         (caml_notequal
+           ([0,
               /*<<camlinternalFormat.ml:1261:17>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1261:17>>*/ (CamlinternalFormatBasics
-                [2],
-               sub1_fmtty$0)],
+              (CamlinternalFormatBasics[2], sub1_fmtty$0)],
             _cw_))
-          /*<<camlinternalFormat.ml:1262:9>>*/ throw  /*<<camlinternalFormat.ml:1262:9>>*/ caml_maybe_attach_backtrace
-                 /*<<camlinternalFormat.ml:1262:9>>*/ (Type_mismatch, 1);
+          /*<<camlinternalFormat.ml:1262:9>>*/ throw caml_maybe_attach_backtrace
+                (Type_mismatch, 1);
         var
          _cx_ =
             /*<<camlinternalFormat.ml:1263:43>>*/ [0,
              /*<<camlinternalFormat.ml:1263:53>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1263:53>>*/ (CamlinternalFormatBasics
-               [2],
-              sub2_fmtty$1)];
+             (CamlinternalFormatBasics[2], sub2_fmtty$1)];
          /*<<camlinternalFormat.ml:1263:7>>*/ if
-         ( /*<<camlinternalFormat.ml:1263:7>>*/ caml_notequal
-            /*<<camlinternalFormat.ml:1263:7>>*/ ([0,
+         (caml_notequal
+           ([0,
               /*<<camlinternalFormat.ml:1263:17>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1263:17>>*/ (CamlinternalFormatBasics
-                [2],
-               sub2_fmtty$2)],
+              (CamlinternalFormatBasics[2], sub2_fmtty$2)],
             _cx_))
-          /*<<camlinternalFormat.ml:1264:9>>*/ throw  /*<<camlinternalFormat.ml:1264:9>>*/ caml_maybe_attach_backtrace
-                 /*<<camlinternalFormat.ml:1264:9>>*/ (Type_mismatch, 1);
+          /*<<camlinternalFormat.ml:1264:9>>*/ throw caml_maybe_attach_backtrace
+                (Type_mismatch, 1);
         var
          sub_fmtty$0 =
-            /*<<camlinternalFormat.ml:1265:21>>*/  /*<<camlinternalFormat.ml:1265:21>>*/ trans
-             /*<<camlinternalFormat.ml:1265:21>>*/ ( /*<<camlinternalFormat.ml:1265:27>>*/ symm
-               /*<<camlinternalFormat.ml:1265:27>>*/ (sub1_fmtty),
+            /*<<camlinternalFormat.ml:1265:21>>*/ trans
+            ( /*<<camlinternalFormat.ml:1265:27>>*/ symm(sub1_fmtty),
              sub2_fmtty$1),
          match$8 =
-            /*<<camlinternalFormat.ml:1266:23>>*/  /*<<camlinternalFormat.ml:1266:23>>*/ fmtty_rel_det
-             /*<<camlinternalFormat.ml:1266:23>>*/ (sub_fmtty$0),
+            /*<<camlinternalFormat.ml:1266:23>>*/ fmtty_rel_det(sub_fmtty$0),
          f4 = match$8[4],
          f2 = match$8[2];
-         /*<<camlinternalFormat.ml:1267:15>>*/  /*<<camlinternalFormat.ml:1267:15>>*/ f2
-          /*<<camlinternalFormat.ml:1267:15>>*/ (0);
-         /*<<camlinternalFormat.ml:1268:15>>*/  /*<<camlinternalFormat.ml:1268:15>>*/ f4
-          /*<<camlinternalFormat.ml:1268:15>>*/ (0);
+         /*<<camlinternalFormat.ml:1267:15>>*/ f2(0);
+         /*<<camlinternalFormat.ml:1268:15>>*/ f4(0);
         var
          match$9 =
-            /*<<camlinternalFormat.ml:1270:6>>*/  /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1270:6>>*/ ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1270:39>>*/ (CamlinternalFormatBasics
-                [2],
-               sub_fmtty_rest$17),
+            /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
+            ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
+              (CamlinternalFormatBasics[2], sub_fmtty_rest$17),
              fmt,
              fmtty_rest$8),
          fmt$9 = match$9[2],
@@ -19488,7 +16229,7 @@
                  sub1_fmtty,
                  sub2_fmtty$1,
                   /*<<camlinternalFormat.ml:1273:36>>*/ symm
-                   /*<<camlinternalFormat.ml:1273:36>>*/ (sub_fmtty_rest$18)],
+                  (sub_fmtty_rest$18)],
                 fmt$9] /*<<camlinternalFormat.ml:1272:4>>*/ ;
        }
        break;
@@ -19498,15 +16239,13 @@
          fmtty_rest$9 = fmtty[1],
          sub_fmtty_rest$19 = sub_fmtty[1],
          match$10 =
-            /*<<camlinternalFormat.ml:1237:6>>*/  /*<<camlinternalFormat.ml:1237:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1237:6>>*/ (sub_fmtty_rest$19,
-             fmt,
-             fmtty_rest$9),
+            /*<<camlinternalFormat.ml:1237:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$19, fmt, fmtty_rest$9),
          fmt$10 = match$10[2],
          sub_fmtty_rest$20 = match$10[1];
          /*<<camlinternalFormat.ml:1238:4>>*/ return [0,
                 [10, sub_fmtty_rest$20],
-                fmt$10] /*<<camlinternalFormat.ml:1238:4>>*/ ;
+                fmt$10];
        }
        break;
       case 11:
@@ -19515,15 +16254,13 @@
          fmtty_rest$10 = fmtty[1],
          sub_fmtty_rest$21 = sub_fmtty[1],
          match$11 =
-            /*<<camlinternalFormat.ml:1241:6>>*/  /*<<camlinternalFormat.ml:1241:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1241:6>>*/ (sub_fmtty_rest$21,
-             fmt,
-             fmtty_rest$10),
+            /*<<camlinternalFormat.ml:1241:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$21, fmt, fmtty_rest$10),
          fmt$11 = match$11[2],
          sub_fmtty_rest$22 = match$11[1];
          /*<<camlinternalFormat.ml:1242:4>>*/ return [0,
                 [11, sub_fmtty_rest$22],
-                fmt$11] /*<<camlinternalFormat.ml:1242:4>>*/ ;
+                fmt$11];
        }
        break;
       case 13:
@@ -19532,15 +16269,13 @@
          fmtty_rest$11 = fmtty[1],
          sub_fmtty_rest$23 = sub_fmtty[1],
          match$12 =
-            /*<<camlinternalFormat.ml:1245:6>>*/  /*<<camlinternalFormat.ml:1245:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1245:6>>*/ (sub_fmtty_rest$23,
-             fmt,
-             fmtty_rest$11),
+            /*<<camlinternalFormat.ml:1245:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$23, fmt, fmtty_rest$11),
          fmt$12 = match$12[2],
          sub_fmtty_rest$24 = match$12[1];
          /*<<camlinternalFormat.ml:1246:4>>*/ return [0,
                 [13, sub_fmtty_rest$24],
-                fmt$12] /*<<camlinternalFormat.ml:1246:4>>*/ ;
+                fmt$12];
        }
        break;
       case 14:
@@ -19549,94 +16284,63 @@
          fmtty_rest$12 = fmtty[1],
          sub_fmtty_rest$25 = sub_fmtty[1],
          match$13 =
-            /*<<camlinternalFormat.ml:1249:6>>*/  /*<<camlinternalFormat.ml:1249:6>>*/ type_ignored_format_substituti
-             /*<<camlinternalFormat.ml:1249:6>>*/ (sub_fmtty_rest$25,
-             fmt,
-             fmtty_rest$12),
+            /*<<camlinternalFormat.ml:1249:6>>*/ type_ignored_format_substituti
+            (sub_fmtty_rest$25, fmt, fmtty_rest$12),
          fmt$13 = match$13[2],
          sub_fmtty_rest$26 = match$13[1];
          /*<<camlinternalFormat.ml:1250:4>>*/ return [0,
                 [14, sub_fmtty_rest$26],
-                fmt$13] /*<<camlinternalFormat.ml:1250:4>>*/ ;
+                fmt$13];
        }
        break;
     }
-     /*<<camlinternalFormat.ml:1277:9>>*/ throw  /*<<camlinternalFormat.ml:1277:9>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalFormat.ml:1277:9>>*/ (Type_mismatch, 1);
+     /*<<camlinternalFormat.ml:1277:9>>*/ throw caml_maybe_attach_backtrace
+           (Type_mismatch, 1);
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
-    var
-     _cv_ =
-        /*<<camlinternalFormat.ml:1312:29>>*/  /*<<camlinternalFormat.ml:1312:29>>*/ symm
-         /*<<camlinternalFormat.ml:1312:29>>*/ (fmtty);
-     /*<<camlinternalFormat.ml:1312:18>>*/ return  /*<<camlinternalFormat.ml:1312:18>>*/ type_format
-             /*<<camlinternalFormat.ml:1312:18>>*/ (fmt,
-              /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1312:18>>*/ (CamlinternalFormatBasics
-                [2],
-               _cv_)) /*<<camlinternalFormat.ml:1312:42>>*/ ;
-    /*<<camlinternalFormat.ml:1312:42>>*/ }
+    var _cv_ =  /*<<camlinternalFormat.ml:1312:29>>*/ symm(fmtty);
+     /*<<camlinternalFormat.ml:1312:18>>*/ return type_format
+            (fmt, caml_call1(CamlinternalFormatBasics[2], _cv_)) /*<<camlinternalFormat.ml:1312:42>>*/ ;
+   }
    function fix_padding(padty, width, str){
     var
      len = caml_ml_string_length(str),
      padty$0 =  /*<<camlinternalFormat.ml:1320:2>>*/ 0 <= width ? padty : 0,
      width$0 =
-        /*<<camlinternalFormat.ml:1321:4>>*/  /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1
-         /*<<camlinternalFormat.ml:1321:4>>*/ (Stdlib[18], width);
-    if(width$0 <= len)
-      /*<<camlinternalFormat.ml:1332:23>>*/ return str /*<<camlinternalFormat.ml:1332:23>>*/ ;
+        /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1(Stdlib[18], width);
+    if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
     var
      _cu_ = 2 === padty$0 ? 48 : 32,
      res =
-        /*<<camlinternalFormat.ml:1333:14>>*/  /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
-         /*<<camlinternalFormat.ml:1333:14>>*/ (Stdlib_Bytes[1],
-         width$0,
-         _cu_);
+        /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
+        (Stdlib_Bytes[1], width$0, _cu_);
      /*<<camlinternalFormat.ml:1334:4>>*/ switch(padty$0){
       case 0:
-        /*<<camlinternalFormat.ml:1335:15>>*/  /*<<camlinternalFormat.ml:1335:15>>*/ caml_call5
-         /*<<camlinternalFormat.ml:1335:15>>*/ (Stdlib_String[6],
-         str,
-         0,
-         res,
-         0,
-         len);
+        /*<<camlinternalFormat.ml:1335:15>>*/ caml_call5
+        (Stdlib_String[6], str, 0, res, 0, len);
        break;
       case 1:
-        /*<<camlinternalFormat.ml:1336:15>>*/  /*<<camlinternalFormat.ml:1336:15>>*/ caml_call5
-         /*<<camlinternalFormat.ml:1336:15>>*/ (Stdlib_String[6],
-         str,
-         0,
-         res,
-         width$0 - len | 0,
-         len);
+        /*<<camlinternalFormat.ml:1336:15>>*/ caml_call5
+        (Stdlib_String[6], str, 0, res, width$0 - len | 0, len);
        break;
       default:
        a:
        if(0 < len){
          /*<<camlinternalFormat.ml:1337:29>>*/ if
-         (43
-          !==
-            /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get
-             /*<<camlinternalFormat.ml:1337:29>>*/ (str, 0)
+         (43 !== caml_string_get(str, 0)
           &&
            45
-           !==
-             /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get
-              /*<<camlinternalFormat.ml:1337:46>>*/ (str, 0)
+           !==  /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get(str, 0)
            &&
             32
-            !==
-              /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get
-               /*<<camlinternalFormat.ml:1337:63>>*/ (str, 0))
+            !==  /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get(str, 0))
          break a;
-         /*<<camlinternalFormat.ml:1338:6>>*/  /*<<camlinternalFormat.ml:1338:6>>*/ caml_bytes_set
-          /*<<camlinternalFormat.ml:1338:6>>*/ (res,
+         /*<<camlinternalFormat.ml:1338:6>>*/ caml_bytes_set
+         (res,
           0,
-           /*<<camlinternalFormat.ml:1338:22>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:1338:22>>*/ (str, 0));
-         /*<<camlinternalFormat.ml:1339:6>>*/  /*<<camlinternalFormat.ml:1339:6>>*/ caml_call5
-          /*<<camlinternalFormat.ml:1339:6>>*/ (Stdlib_String[6],
+           /*<<camlinternalFormat.ml:1338:22>>*/ caml_string_get(str, 0));
+         /*<<camlinternalFormat.ml:1339:6>>*/ caml_call5
+         (Stdlib_String[6],
           str,
           1,
           res,
@@ -19649,27 +16353,19 @@
         (1 < len
          &&
           48
-          ===
-            /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get
-             /*<<camlinternalFormat.ml:1340:28>>*/ (str, 0)){
+          ===  /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0)){
          /*<<camlinternalFormat.ml:1340:46>>*/ if
-         (120
-          !==
-            /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get
-             /*<<camlinternalFormat.ml:1340:46>>*/ (str, 1)
+         (120 !== caml_string_get(str, 1)
           &&
            88
-           !==
-             /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get
-              /*<<camlinternalFormat.ml:1340:63>>*/ (str, 1))
+           !==  /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get(str, 1))
          break a;
-         /*<<camlinternalFormat.ml:1341:6>>*/  /*<<camlinternalFormat.ml:1341:6>>*/ caml_bytes_set
-          /*<<camlinternalFormat.ml:1341:6>>*/ (res,
+         /*<<camlinternalFormat.ml:1341:6>>*/ caml_bytes_set
+         (res,
           1,
-           /*<<camlinternalFormat.ml:1341:22>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:1341:22>>*/ (str, 1));
-         /*<<camlinternalFormat.ml:1342:6>>*/  /*<<camlinternalFormat.ml:1342:6>>*/ caml_call5
-          /*<<camlinternalFormat.ml:1342:6>>*/ (Stdlib_String[6],
+           /*<<camlinternalFormat.ml:1341:22>>*/ caml_string_get(str, 1));
+         /*<<camlinternalFormat.ml:1342:6>>*/ caml_call5
+         (Stdlib_String[6],
           str,
           2,
           res,
@@ -19677,28 +16373,18 @@
           len - 2 | 0);
         break;
        }
-        /*<<camlinternalFormat.ml:1344:6>>*/  /*<<camlinternalFormat.ml:1344:6>>*/ caml_call5
-         /*<<camlinternalFormat.ml:1344:6>>*/ (Stdlib_String[6],
-         str,
-         0,
-         res,
-         width$0 - len | 0,
-         len);
+        /*<<camlinternalFormat.ml:1344:6>>*/ caml_call5
+        (Stdlib_String[6], str, 0, res, width$0 - len | 0, len);
     }
-     /*<<camlinternalFormat.ml:1346:4>>*/ return  /*<<camlinternalFormat.ml:1346:4>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1346:4>>*/ (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1346:30>>*/ ;
-    /*<<camlinternalFormat.ml:1346:30>>*/ }
+     /*<<camlinternalFormat.ml:1346:4>>*/ return caml_call1
+            (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1346:30>>*/ ;
+   }
    function fix_int_precision(prec, str){
     var
      prec$0 =
-        /*<<camlinternalFormat.ml:1350:13>>*/  /*<<camlinternalFormat.ml:1350:13>>*/ caml_call1
-         /*<<camlinternalFormat.ml:1350:13>>*/ (Stdlib[18], prec),
-     len =
-        /*<<camlinternalFormat.ml:1351:2>>*/  /*<<camlinternalFormat.ml:1351:2>>*/ caml_ml_string_length
-         /*<<camlinternalFormat.ml:1351:2>>*/ (str),
-     c =
-        /*<<camlinternalFormat.ml:1352:8>>*/  /*<<camlinternalFormat.ml:1352:8>>*/ caml_string_get
-         /*<<camlinternalFormat.ml:1352:8>>*/ (str, 0);
+        /*<<camlinternalFormat.ml:1350:13>>*/ caml_call1(Stdlib[18], prec),
+     len =  /*<<camlinternalFormat.ml:1351:2>>*/ caml_ml_string_length(str),
+     c =  /*<<camlinternalFormat.ml:1352:8>>*/ caml_string_get(str, 0);
     a:
     {
      b:
@@ -19711,37 +16397,28 @@
            c:
            if(len < (prec$0 + 2 | 0) && 1 < len){
              /*<<camlinternalFormat.ml:1358:43>>*/ if
-             (120
-              !==
-                /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:1358:43>>*/ (str, 1)
+             (120 !== caml_string_get(str, 1)
               &&
                88
                !==
-                 /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get
-                  /*<<camlinternalFormat.ml:1358:60>>*/ (str, 1))
+                 /*<<camlinternalFormat.ml:1358:60>>*/ caml_string_get(str, 1))
              break c;
             var
              res$1 =
-                /*<<camlinternalFormat.ml:1359:14>>*/  /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1359:14>>*/ (Stdlib_Bytes[1],
-                 prec$0 + 2 | 0,
-                 48);
-             /*<<camlinternalFormat.ml:1360:4>>*/  /*<<camlinternalFormat.ml:1360:4>>*/ caml_bytes_set
-              /*<<camlinternalFormat.ml:1360:4>>*/ (res$1,
+                /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
+                (Stdlib_Bytes[1], prec$0 + 2 | 0, 48);
+             /*<<camlinternalFormat.ml:1360:4>>*/ caml_bytes_set
+             (res$1,
               1,
-               /*<<camlinternalFormat.ml:1360:20>>*/ caml_string_get
-                /*<<camlinternalFormat.ml:1360:20>>*/ (str, 1));
-             /*<<camlinternalFormat.ml:1361:4>>*/  /*<<camlinternalFormat.ml:1361:4>>*/ caml_call5
-              /*<<camlinternalFormat.ml:1361:4>>*/ (Stdlib_String[6],
+               /*<<camlinternalFormat.ml:1360:20>>*/ caml_string_get(str, 1));
+             /*<<camlinternalFormat.ml:1361:4>>*/ caml_call5
+             (Stdlib_String[6],
               str,
               2,
               res$1,
               (prec$0 - len | 0) + 4 | 0,
               len - 2 | 0);
-             /*<<camlinternalFormat.ml:1361:4>>*/ return  /*<<camlinternalFormat.ml:1361:4>>*/ caml_call1
-                     /*<<camlinternalFormat.ml:1361:4>>*/ (Stdlib_Bytes[44],
-                     res$1) /*<<camlinternalFormat.ml:1368:7>>*/ ;
+            return caml_call1(Stdlib_Bytes[44], res$1) /*<<camlinternalFormat.ml:1368:7>>*/ ;
            }
            break b;
           case 0:
@@ -19756,93 +16433,68 @@
        if(len >= (prec$0 + 1 | 0)) break a;
        var
         res$0 =
-           /*<<camlinternalFormat.ml:1354:14>>*/  /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
-            /*<<camlinternalFormat.ml:1354:14>>*/ (Stdlib_Bytes[1],
-            prec$0 + 1 | 0,
-            48);
-        /*<<camlinternalFormat.ml:1355:4>>*/  /*<<camlinternalFormat.ml:1355:4>>*/ caml_bytes_set
-         /*<<camlinternalFormat.ml:1355:4>>*/ (res$0, 0, c);
-        /*<<camlinternalFormat.ml:1356:4>>*/  /*<<camlinternalFormat.ml:1356:4>>*/ caml_call5
-         /*<<camlinternalFormat.ml:1356:4>>*/ (Stdlib_String[6],
+           /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
+           (Stdlib_Bytes[1], prec$0 + 1 | 0, 48);
+        /*<<camlinternalFormat.ml:1355:4>>*/ caml_bytes_set(res$0, 0, c);
+        /*<<camlinternalFormat.ml:1356:4>>*/ caml_call5
+        (Stdlib_String[6],
          str,
          1,
          res$0,
          (prec$0 - len | 0) + 2 | 0,
          len - 1 | 0);
-        /*<<camlinternalFormat.ml:1356:4>>*/ return  /*<<camlinternalFormat.ml:1356:4>>*/ caml_call1
-                /*<<camlinternalFormat.ml:1356:4>>*/ (Stdlib_Bytes[44], res$0) /*<<camlinternalFormat.ml:1368:7>>*/ ;
+       return caml_call1(Stdlib_Bytes[44], res$0) /*<<camlinternalFormat.ml:1368:7>>*/ ;
       }
       if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
      }
      if(len < prec$0){
       var
        res =
-          /*<<camlinternalFormat.ml:1364:14>>*/  /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1364:14>>*/ (Stdlib_Bytes[1], prec$0, 48);
-       /*<<camlinternalFormat.ml:1365:4>>*/  /*<<camlinternalFormat.ml:1365:4>>*/ caml_call5
-        /*<<camlinternalFormat.ml:1365:4>>*/ (Stdlib_String[6],
-        str,
-        0,
-        res,
-        prec$0 - len | 0,
-        len);
-       /*<<camlinternalFormat.ml:1365:4>>*/ return  /*<<camlinternalFormat.ml:1365:4>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1365:4>>*/ (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1368:7>>*/ ;
+          /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
+          (Stdlib_Bytes[1], prec$0, 48);
+       /*<<camlinternalFormat.ml:1365:4>>*/ caml_call5
+       (Stdlib_String[6], str, 0, res, prec$0 - len | 0, len);
+      return caml_call1(Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1368:7>>*/ ;
      }
     }
-     /*<<camlinternalFormat.ml:1368:4>>*/ return str /*<<camlinternalFormat.ml:1368:4>>*/ ;
+     /*<<camlinternalFormat.ml:1368:4>>*/ return str;
     /*<<camlinternalFormat.ml:1368:7>>*/ }
    function string_to_caml_string(str){
     var
      str$0 =
-        /*<<camlinternalFormat.ml:1372:12>>*/  /*<<camlinternalFormat.ml:1372:12>>*/ caml_call1
-         /*<<camlinternalFormat.ml:1372:12>>*/ (Stdlib_String[25], str),
-     l =
-        /*<<camlinternalFormat.ml:1373:2>>*/  /*<<camlinternalFormat.ml:1373:2>>*/ caml_ml_string_length
-         /*<<camlinternalFormat.ml:1373:2>>*/ (str$0),
+        /*<<camlinternalFormat.ml:1372:12>>*/ caml_call1
+        (Stdlib_String[25], str),
+     l =  /*<<camlinternalFormat.ml:1373:2>>*/ caml_ml_string_length(str$0),
      res =
-        /*<<camlinternalFormat.ml:1374:12>>*/  /*<<camlinternalFormat.ml:1374:12>>*/ caml_call2
-         /*<<camlinternalFormat.ml:1374:12>>*/ (Stdlib_Bytes[1],
-         l + 2 | 0,
-         34);
-     /*<<camlinternalFormat.ml:1375:2>>*/  /*<<camlinternalFormat.ml:1375:2>>*/ caml_blit_string
-      /*<<camlinternalFormat.ml:1375:2>>*/ (str$0, 0, res, 1, l);
-     /*<<camlinternalFormat.ml:1375:2>>*/ return  /*<<camlinternalFormat.ml:1375:2>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1375:2>>*/ (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1376:28>>*/ ;
-    /*<<camlinternalFormat.ml:1376:28>>*/ }
+        /*<<camlinternalFormat.ml:1374:12>>*/ caml_call2
+        (Stdlib_Bytes[1], l + 2 | 0, 34);
+     /*<<camlinternalFormat.ml:1375:2>>*/ caml_blit_string
+     (str$0, 0, res, 1, l);
+    return caml_call1(Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1376:28>>*/ ;
+   }
    function format_of_fconv(fconv, prec){
     var
      prec$0 =
-        /*<<camlinternalFormat.ml:1414:15>>*/  /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1
-         /*<<camlinternalFormat.ml:1414:15>>*/ (Stdlib[18], prec),
-     symb =
-        /*<<camlinternalFormat.ml:1415:15>>*/  /*<<camlinternalFormat.ml:1415:15>>*/ char_of_fconv
-         /*<<camlinternalFormat.ml:1415:15>>*/ (_r_, fconv),
-     buf =
-        /*<<camlinternalFormat.ml:1416:14>>*/  /*<<camlinternalFormat.ml:1416:14>>*/ buffer_create
-         /*<<camlinternalFormat.ml:1416:14>>*/ (16);
-     /*<<camlinternalFormat.ml:1417:4>>*/  /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char
-      /*<<camlinternalFormat.ml:1417:4>>*/ (buf, 37);
-     /*<<camlinternalFormat.ml:1418:4>>*/  /*<<camlinternalFormat.ml:1418:4>>*/ bprint_fconv_flag
-      /*<<camlinternalFormat.ml:1418:4>>*/ (buf, fconv);
-     /*<<camlinternalFormat.ml:1419:4>>*/  /*<<camlinternalFormat.ml:1419:4>>*/ buffer_add_char
-      /*<<camlinternalFormat.ml:1419:4>>*/ (buf, 46);
-     /*<<camlinternalFormat.ml:1420:4>>*/  /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
-      /*<<camlinternalFormat.ml:1420:4>>*/ (buf,
+        /*<<camlinternalFormat.ml:1414:15>>*/ caml_call1(Stdlib[18], prec),
+     symb =  /*<<camlinternalFormat.ml:1415:15>>*/ char_of_fconv(_r_, fconv),
+     buf =  /*<<camlinternalFormat.ml:1416:14>>*/ buffer_create(16);
+     /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char(buf, 37);
+     /*<<camlinternalFormat.ml:1418:4>>*/ bprint_fconv_flag(buf, fconv);
+     /*<<camlinternalFormat.ml:1419:4>>*/ buffer_add_char(buf, 46);
+     /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
+     (buf,
        /*<<camlinternalFormat.ml:1420:26>>*/ caml_call1
-        /*<<camlinternalFormat.ml:1420:26>>*/ (Stdlib_Int[12], prec$0));
-     /*<<camlinternalFormat.ml:1421:4>>*/  /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char
-      /*<<camlinternalFormat.ml:1421:4>>*/ (buf, symb);
-     /*<<camlinternalFormat.ml:1421:4>>*/ return  /*<<camlinternalFormat.ml:1421:4>>*/ buffer_contents
-             /*<<camlinternalFormat.ml:1421:4>>*/ (buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
-    /*<<camlinternalFormat.ml:1422:23>>*/ }
+       (Stdlib_Int[12], prec$0));
+     /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char(buf, symb);
+    return buffer_contents(buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
+   }
    function transform_int_alt(iconv, s){
      /*<<camlinternalFormat.ml:1425:2>>*/ if(13 > iconv)
-      /*<<camlinternalFormat.ml:1447:9>>*/ return s /*<<camlinternalFormat.ml:1447:9>>*/ ;
+      /*<<camlinternalFormat.ml:1447:9>>*/ return s;
     var
      n =  /*<<camlinternalFormat.ml:1428:14>>*/ [0, 0],
      _cp_ = caml_ml_string_length(s) - 1 | 0,
-     _co_ =  /*<<camlinternalFormat.ml:1428:14>>*/ 0;
+     _co_ = 0;
     if(_cp_ >= 0){
      var i$0 = _co_;
      for(;;){
@@ -19855,14 +16507,11 @@
     var
      digits = n[1],
      buf =
-        /*<<camlinternalFormat.ml:1436:14>>*/  /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
-         /*<<camlinternalFormat.ml:1436:14>>*/ (caml_ml_string_length(s)
-         + ((digits - 1 | 0) / 3 | 0)
-         | 0),
+        /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
+        (caml_ml_string_length(s) + ((digits - 1 | 0) / 3 | 0) | 0),
      pos =  /*<<camlinternalFormat.ml:1437:14>>*/ [0, 0];
     function put(c){
-      /*<<camlinternalFormat.ml:1438:16>>*/  /*<<camlinternalFormat.ml:1438:16>>*/ caml_bytes_set
-       /*<<camlinternalFormat.ml:1438:16>>*/ (buf, pos[1], c);
+      /*<<camlinternalFormat.ml:1438:16>>*/ caml_bytes_set(buf, pos[1], c);
      pos[1]++;
      /*<<camlinternalFormat.ml:1438:46>>*/ }
     var
@@ -19870,32 +16519,29 @@
         /*<<camlinternalFormat.ml:1439:15>>*/ [0,
         ((digits - 1 | 0) % 3 | 0) + 1 | 0],
      _cr_ = caml_ml_string_length(s) - 1 | 0,
-     _cq_ =  /*<<camlinternalFormat.ml:1439:15>>*/ 0;
+     _cq_ = 0;
     if(_cr_ >= 0){
      var i = _cq_;
      for(;;){
       var c = caml_string_unsafe_get(s, i);
       if(9 < c - 48 >>> 0)
-        /*<<camlinternalFormat.ml:1444:13>>*/  /*<<camlinternalFormat.ml:1444:13>>*/ put
-         /*<<camlinternalFormat.ml:1444:13>>*/ (c);
+        /*<<camlinternalFormat.ml:1444:13>>*/ put(c);
       else{
        if(0 === left[1]){
-         /*<<camlinternalFormat.ml:1443:29>>*/  /*<<camlinternalFormat.ml:1443:29>>*/ put
-          /*<<camlinternalFormat.ml:1443:29>>*/ (95);
+         /*<<camlinternalFormat.ml:1443:29>>*/ put(95);
         left[1] = 3;
        }
        left[1]--;
-        /*<<camlinternalFormat.ml:1443:61>>*/  /*<<camlinternalFormat.ml:1443:61>>*/ put
-         /*<<camlinternalFormat.ml:1443:61>>*/ (c);
+        /*<<camlinternalFormat.ml:1443:61>>*/ put(c);
       }
       var _cs_ =  /*<<camlinternalFormat.ml:1440:4>>*/ i + 1 | 0;
       if(_cr_ === i) break;
       i = _cs_;
      }
     }
-     /*<<camlinternalFormat.ml:1446:4>>*/ return  /*<<camlinternalFormat.ml:1446:4>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1446:4>>*/ (Stdlib_Bytes[44], buf) /*<<camlinternalFormat.ml:1447:10>>*/ ;
-    /*<<camlinternalFormat.ml:1447:10>>*/ }
+     /*<<camlinternalFormat.ml:1446:4>>*/ return caml_call1
+            (Stdlib_Bytes[44], buf) /*<<camlinternalFormat.ml:1447:10>>*/ ;
+   }
    function convert_int(iconv, n){
      /*<<camlinternalFormat.ml:1451:2>>*/ switch(iconv){
       case 1:
@@ -19926,11 +16572,9 @@
        var _cn_ = cst_i$0; break;
       default: var _cn_ = cst_u;
     }
-     /*<<camlinternalFormat.ml:1451:26>>*/ return  /*<<camlinternalFormat.ml:1451:26>>*/ transform_int_alt
-             /*<<camlinternalFormat.ml:1451:26>>*/ (iconv,
-              /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1451:26>>*/ (_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
-    /*<<camlinternalFormat.ml:1451:64>>*/ }
+     /*<<camlinternalFormat.ml:1451:26>>*/ return transform_int_alt
+            (iconv, caml_format_int(_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
+   }
    function convert_int32(iconv, n){
      /*<<camlinternalFormat.ml:1453:2>>*/ switch(iconv){
       case 1:
@@ -19961,11 +16605,9 @@
        var _cm_ = cst_li$0; break;
       default: var _cm_ = cst_lu;
     }
-     /*<<camlinternalFormat.ml:1453:26>>*/ return  /*<<camlinternalFormat.ml:1453:26>>*/ transform_int_alt
-             /*<<camlinternalFormat.ml:1453:26>>*/ (iconv,
-              /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1453:26>>*/ (_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
-    /*<<camlinternalFormat.ml:1453:67>>*/ }
+     /*<<camlinternalFormat.ml:1453:26>>*/ return transform_int_alt
+            (iconv, caml_format_int(_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
+   }
    function convert_nativeint(iconv, n){
      /*<<camlinternalFormat.ml:1455:2>>*/ switch(iconv){
       case 1:
@@ -19996,11 +16638,9 @@
        var _cl_ = cst_ni$0; break;
       default: var _cl_ = cst_nu;
     }
-     /*<<camlinternalFormat.ml:1455:26>>*/ return  /*<<camlinternalFormat.ml:1455:26>>*/ transform_int_alt
-             /*<<camlinternalFormat.ml:1455:26>>*/ (iconv,
-              /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1455:26>>*/ (_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
-    /*<<camlinternalFormat.ml:1455:71>>*/ }
+     /*<<camlinternalFormat.ml:1455:26>>*/ return transform_int_alt
+            (iconv, caml_format_int(_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
+   }
    function convert_int64(iconv, n){
      /*<<camlinternalFormat.ml:1457:2>>*/ switch(iconv){
       case 1:
@@ -20031,11 +16671,9 @@
        var _ck_ = cst_Li$0; break;
       default: var _ck_ = cst_Lu;
     }
-     /*<<camlinternalFormat.ml:1457:26>>*/ return  /*<<camlinternalFormat.ml:1457:26>>*/ transform_int_alt
-             /*<<camlinternalFormat.ml:1457:26>>*/ (iconv,
-              /*<<camlinternalFormat.ml:1457:26>>*/ runtime.caml_int64_format
-               /*<<camlinternalFormat.ml:1457:26>>*/ (_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
-    /*<<camlinternalFormat.ml:1457:67>>*/ }
+     /*<<camlinternalFormat.ml:1457:26>>*/ return transform_int_alt
+            (iconv, runtime.caml_int64_format(_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
+   }
    function convert_float(fconv, prec, x){
     function hex(param){
       /*<<camlinternalFormat.ml:1463:4>>*/ switch(fconv[1]){
@@ -20045,25 +16683,24 @@
         var sign = 43; break;
        default: var sign = 32;
      }
-      /*<<camlinternalFormat.ml:1468:4>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
-              /*<<camlinternalFormat.ml:1468:4>>*/ (x, prec, sign) /*<<camlinternalFormat.ml:1468:34>>*/ ;
-     /*<<camlinternalFormat.ml:1468:34>>*/ }
+      /*<<camlinternalFormat.ml:1468:4>>*/ return runtime.caml_hexstring_of_float
+             (x, prec, sign) /*<<camlinternalFormat.ml:1468:34>>*/ ;
+    }
     function caml_special_val(str){
      var
       match =
-         /*<<camlinternalFormat.ml:1477:35>>*/  /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float
-          /*<<camlinternalFormat.ml:1477:35>>*/ (x);
+         /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float(x);
      return 3 === match
              ? x < 0. ? cst_neg_infinity : cst_infinity
              : 4 <= match ? cst_nan : str /*<<camlinternalFormat.ml:1480:21>>*/ ;
-     /*<<camlinternalFormat.ml:1480:21>>*/ }
+    }
     switch(fconv[2]){
       case 5:
        var
         str =
-           /*<<camlinternalFormat.ml:1486:14>>*/  /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
-            /*<<camlinternalFormat.ml:1486:14>>*/ ( /*<<camlinternalFormat.ml:1486:27>>*/ format_of_fconv
-              /*<<camlinternalFormat.ml:1486:27>>*/ (fconv, prec),
+           /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
+           ( /*<<camlinternalFormat.ml:1486:27>>*/ format_of_fconv
+             (fconv, prec),
             x),
         len = caml_ml_string_length(str),
         i = 0;
@@ -20073,8 +16710,7 @@
         else{
          var
           _cg_ =
-             /*<<camlinternalFormat.ml:1473:14>>*/  /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get
-              /*<<camlinternalFormat.ml:1473:14>>*/ (str, i)
+             /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get(str, i)
             - 46
             | 0;
          a:
@@ -20094,134 +16730,99 @@
             /*<<camlinternalFormat.ml:1476:7>>*/ _ch_
             ? str
             :  /*<<camlinternalFormat.ml:1476:32>>*/ caml_call2
-               /*<<camlinternalFormat.ml:1476:32>>*/ (Stdlib[28], str, cst$17);
-         /*<<camlinternalFormat.ml:1487:21>>*/ return  /*<<camlinternalFormat.ml:1487:21>>*/ caml_special_val
-                 /*<<camlinternalFormat.ml:1487:21>>*/ (_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+              (Stdlib[28], str, cst$17);
+         /*<<camlinternalFormat.ml:1487:21>>*/ return caml_special_val(_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
        }
       case 6:
-        /*<<camlinternalFormat.ml:1482:15>>*/ return  /*<<camlinternalFormat.ml:1482:15>>*/ hex
-                /*<<camlinternalFormat.ml:1482:15>>*/ (0) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+        /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 7:
-       var
-        _cj_ =
-           /*<<camlinternalFormat.ml:1483:38>>*/  /*<<camlinternalFormat.ml:1483:38>>*/ hex
-            /*<<camlinternalFormat.ml:1483:38>>*/ (0);
-        /*<<camlinternalFormat.ml:1483:38>>*/ return  /*<<camlinternalFormat.ml:1483:38>>*/ caml_call1
-                /*<<camlinternalFormat.ml:1483:38>>*/ (Stdlib_String[26],
-                _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+       var _cj_ =  /*<<camlinternalFormat.ml:1483:38>>*/ hex(0);
+       return caml_call1(Stdlib_String[26], _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 8:
-        /*<<camlinternalFormat.ml:1484:33>>*/ return  /*<<camlinternalFormat.ml:1484:33>>*/ caml_special_val
-                /*<<camlinternalFormat.ml:1484:33>>*/ ( /*<<camlinternalFormat.ml:1484:33>>*/ hex
-                  /*<<camlinternalFormat.ml:1484:33>>*/ (0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+        /*<<camlinternalFormat.ml:1484:33>>*/ return caml_special_val(hex(0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       default:
-        /*<<camlinternalFormat.ml:1489:4>>*/ return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
-                /*<<camlinternalFormat.ml:1489:4>>*/ ( /*<<camlinternalFormat.ml:1489:17>>*/ format_of_fconv
-                  /*<<camlinternalFormat.ml:1489:17>>*/ (fconv, prec),
+        /*<<camlinternalFormat.ml:1489:4>>*/ return caml_format_float
+               ( /*<<camlinternalFormat.ml:1489:17>>*/ format_of_fconv
+                 (fconv, prec),
                 x) /*<<camlinternalFormat.ml:1489:47>>*/ ;
     }
-    /*<<camlinternalFormat.ml:1489:47>>*/ }
+   }
    function string_of_fmtty(fmtty){
-    var
-     buf =
-        /*<<camlinternalFormat.ml:1501:12>>*/  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create
-         /*<<camlinternalFormat.ml:1501:12>>*/ (16);
-     /*<<camlinternalFormat.ml:1502:2>>*/  /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty
-      /*<<camlinternalFormat.ml:1502:2>>*/ (buf, fmtty);
-     /*<<camlinternalFormat.ml:1502:2>>*/ return  /*<<camlinternalFormat.ml:1502:2>>*/ buffer_contents
-             /*<<camlinternalFormat.ml:1502:2>>*/ (buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
-    /*<<camlinternalFormat.ml:1503:21>>*/ }
+    var buf =  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create(16);
+     /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty(buf, fmtty);
+    return buffer_contents(buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
+   }
    function make_printf$0(counter, k, acc, fmt){
     var k$0 = k, acc$0 = acc, fmt$0 = fmt;
      /*<<camlinternalFormat.ml:1518:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
-       /*<<camlinternalFormat.ml:1605:4>>*/ return  /*<<camlinternalFormat.ml:1605:4>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1605:4>>*/ (k$0, acc$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+       /*<<camlinternalFormat.ml:1605:4>>*/ return caml_call1(k$0, acc$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1521:20>>*/ [5, acc$0, c];
-          /*<<camlinternalFormat.ml:1522:6>>*/ return  /*<<camlinternalFormat.ml:1522:6>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1522:6>>*/ (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ; /*<<camlinternalFormat.ml:1522:32>>*/ } /*<<camlinternalFormat.ml:1520:4>>*/ ;
+          /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
+                 (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ;} /*<<camlinternalFormat.ml:1520:4>>*/ ;
        case 1:
         var rest$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1524:4>>*/ return function(c){
          var
           str =
-             /*<<camlinternalFormat.ml:1493:12>>*/  /*<<camlinternalFormat.ml:1493:12>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1493:12>>*/ (Stdlib_Char[2], c),
-          l =
-             /*<<camlinternalFormat.ml:1494:2>>*/  /*<<camlinternalFormat.ml:1494:2>>*/ caml_ml_string_length
-              /*<<camlinternalFormat.ml:1494:2>>*/ (str),
+             /*<<camlinternalFormat.ml:1493:12>>*/ caml_call1
+             (Stdlib_Char[2], c),
+          l =  /*<<camlinternalFormat.ml:1494:2>>*/ caml_ml_string_length(str),
           res =
-             /*<<camlinternalFormat.ml:1495:12>>*/  /*<<camlinternalFormat.ml:1495:12>>*/ caml_call2
-              /*<<camlinternalFormat.ml:1495:12>>*/ (Stdlib_Bytes[1],
-              l + 2 | 0,
-              39);
-          /*<<camlinternalFormat.ml:1496:2>>*/  /*<<camlinternalFormat.ml:1496:2>>*/ caml_blit_string
-           /*<<camlinternalFormat.ml:1496:2>>*/ (str, 0, res, 1, l);
+             /*<<camlinternalFormat.ml:1495:12>>*/ caml_call2
+             (Stdlib_Bytes[1], l + 2 | 0, 39);
+          /*<<camlinternalFormat.ml:1496:2>>*/ caml_blit_string
+          (str, 0, res, 1, l);
          var
           new_acc =
              /*<<camlinternalFormat.ml:1525:20>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1496:2>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1496:2>>*/ (Stdlib_Bytes[44], res)];
-          /*<<camlinternalFormat.ml:1526:6>>*/ return  /*<<camlinternalFormat.ml:1526:6>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1526:6>>*/ (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ; /*<<camlinternalFormat.ml:1526:32>>*/ } /*<<camlinternalFormat.ml:1524:4>>*/ ;
+              (Stdlib_Bytes[44], res)];
+          /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
+                 (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ;} /*<<camlinternalFormat.ml:1524:4>>*/ ;
        case 2:
         var rest$1 = fmt$0[2], pad = fmt$0[1];
-         /*<<camlinternalFormat.ml:1528:32>>*/ return  /*<<camlinternalFormat.ml:1528:32>>*/ make_padding
-                 /*<<camlinternalFormat.ml:1528:32>>*/ (k$0,
+         /*<<camlinternalFormat.ml:1528:32>>*/ return make_padding
+                (k$0,
                  acc$0,
                  rest$1,
                  pad,
                  function(str){
-                   /*<<camlinternalFormat.ml:1528:44>>*/ return str /*<<camlinternalFormat.ml:1528:44>>*/ ;
+                   /*<<camlinternalFormat.ml:1528:44>>*/ return str;
                   /*<<camlinternalFormat.ml:1528:47>>*/ }) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 3:
         var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1530:4>>*/ return  /*<<camlinternalFormat.ml:1530:4>>*/ make_padding
-                 /*<<camlinternalFormat.ml:1530:4>>*/ (k$0,
-                 acc$0,
-                 rest$2,
-                 pad$0,
-                 string_to_caml_string) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1530:4>>*/ return make_padding
+                (k$0, acc$0, rest$2, pad$0, string_to_caml_string) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 4:
         var
          rest$3 = fmt$0[4],
          prec = fmt$0[3],
          pad$1 = fmt$0[2],
          iconv = fmt$0[1];
-         /*<<camlinternalFormat.ml:1532:4>>*/ return  /*<<camlinternalFormat.ml:1532:4>>*/ make_int_padding_precision
-                 /*<<camlinternalFormat.ml:1532:4>>*/ (k$0,
-                 acc$0,
-                 rest$3,
-                 pad$1,
-                 prec,
-                 convert_int,
-                 iconv) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1532:4>>*/ return make_int_padding_precision
+                (k$0, acc$0, rest$3, pad$1, prec, convert_int, iconv) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 5:
         var
          rest$4 = fmt$0[4],
          prec$0 = fmt$0[3],
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1534:4>>*/ return  /*<<camlinternalFormat.ml:1534:4>>*/ make_int_padding_precision
-                 /*<<camlinternalFormat.ml:1534:4>>*/ (k$0,
-                 acc$0,
-                 rest$4,
-                 pad$2,
-                 prec$0,
-                 convert_int32,
-                 iconv$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1534:4>>*/ return make_int_padding_precision
+                (k$0, acc$0, rest$4, pad$2, prec$0, convert_int32, iconv$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 6:
         var
          rest$5 = fmt$0[4],
          prec$1 = fmt$0[3],
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1536:4>>*/ return  /*<<camlinternalFormat.ml:1536:4>>*/ make_int_padding_precision
-                 /*<<camlinternalFormat.ml:1536:4>>*/ (k$0,
+         /*<<camlinternalFormat.ml:1536:4>>*/ return make_int_padding_precision
+                (k$0,
                  acc$0,
                  rest$5,
                  pad$3,
@@ -20234,14 +16835,8 @@
          prec$2 = fmt$0[3],
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1538:4>>*/ return  /*<<camlinternalFormat.ml:1538:4>>*/ make_int_padding_precision
-                 /*<<camlinternalFormat.ml:1538:4>>*/ (k$0,
-                 acc$0,
-                 rest$6,
-                 pad$4,
-                 prec$2,
-                 convert_int64,
-                 iconv$2) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1538:4>>*/ return make_int_padding_precision
+                (k$0, acc$0, rest$6, pad$4, prec$2, convert_int64, iconv$2) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 8:
         var
          rest$7 = fmt$0[4],
@@ -20255,37 +16850,30 @@
                    (p, x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1746:16>>*/  /*<<camlinternalFormat.ml:1746:16>>*/ convert_float
-                         /*<<camlinternalFormat.ml:1746:16>>*/ (fconv, p, x);
-                     /*<<camlinternalFormat.ml:1747:6>>*/ return  /*<<camlinternalFormat.ml:1747:6>>*/ make_printf
-                             /*<<camlinternalFormat.ml:1747:6>>*/ (k$0,
-                             [4, acc$0, str],
-                             rest$7) /*<<camlinternalFormat.ml:1747:52>>*/ ;
-                    /*<<camlinternalFormat.ml:1747:52>>*/ }
+                        /*<<camlinternalFormat.ml:1746:16>>*/ convert_float
+                        (fconv, p, x);
+                     /*<<camlinternalFormat.ml:1747:6>>*/ return make_printf
+                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1747:52>>*/ ;
+                   }
                   : function
                    (x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1738:16>>*/  /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
-                         /*<<camlinternalFormat.ml:1738:16>>*/ (fconv,
+                        /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
+                        (fconv,
                           /*<<camlinternalFormat.ml:1738:36>>*/ default_float_precision
-                           /*<<camlinternalFormat.ml:1738:36>>*/ (fconv),
+                          (fconv),
                          x);
-                     /*<<camlinternalFormat.ml:1739:6>>*/ return  /*<<camlinternalFormat.ml:1739:6>>*/ make_printf
-                             /*<<camlinternalFormat.ml:1739:6>>*/ (k$0,
-                             [4, acc$0, str],
-                             rest$7) /*<<camlinternalFormat.ml:1739:52>>*/ ;
-                    /*<<camlinternalFormat.ml:1739:52>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
+                     /*<<camlinternalFormat.ml:1739:6>>*/ return make_printf
+                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1739:52>>*/ ;
+                   } /*<<camlinternalFormat.ml:1605:9>>*/ ;
          var p = prec$3[1];
           /*<<camlinternalFormat.ml:1741:4>>*/ return function(x){
           var
            str =
-              /*<<camlinternalFormat.ml:1742:16>>*/  /*<<camlinternalFormat.ml:1742:16>>*/ convert_float
-               /*<<camlinternalFormat.ml:1742:16>>*/ (fconv, p, x);
-           /*<<camlinternalFormat.ml:1743:6>>*/ return  /*<<camlinternalFormat.ml:1743:6>>*/ make_printf
-                   /*<<camlinternalFormat.ml:1743:6>>*/ (k$0,
-                   [4, acc$0, str],
-                   rest$7) /*<<camlinternalFormat.ml:1743:52>>*/ ; /*<<camlinternalFormat.ml:1743:52>>*/ } /*<<camlinternalFormat.ml:1741:4>>*/ ;
+              /*<<camlinternalFormat.ml:1742:16>>*/ convert_float(fconv, p, x);
+           /*<<camlinternalFormat.ml:1743:6>>*/ return make_printf
+                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1743:52>>*/ ;} /*<<camlinternalFormat.ml:1741:4>>*/ ;
         }
         if(0 === pad$5[0]){
          var w = pad$5[2], padty = pad$5[1];
@@ -20295,46 +16883,40 @@
                    (p, x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1759:16>>*/  /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
-                         /*<<camlinternalFormat.ml:1759:16>>*/ (padty,
+                        /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
+                        (padty,
                          w,
                           /*<<camlinternalFormat.ml:1759:36>>*/ convert_float
-                           /*<<camlinternalFormat.ml:1759:36>>*/ (fconv, p, x));
-                     /*<<camlinternalFormat.ml:1760:6>>*/ return  /*<<camlinternalFormat.ml:1760:6>>*/ make_printf
-                             /*<<camlinternalFormat.ml:1760:6>>*/ (k$0,
-                             [4, acc$0, str],
-                             rest$7) /*<<camlinternalFormat.ml:1760:52>>*/ ;
-                    /*<<camlinternalFormat.ml:1760:52>>*/ }
+                          (fconv, p, x));
+                     /*<<camlinternalFormat.ml:1760:6>>*/ return make_printf
+                            (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1760:52>>*/ ;
+                   }
                   : function
                    (x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1750:16>>*/  /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
-                         /*<<camlinternalFormat.ml:1750:16>>*/ (fconv,
+                        /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
+                        (fconv,
                           /*<<camlinternalFormat.ml:1750:36>>*/ default_float_precision
-                           /*<<camlinternalFormat.ml:1750:36>>*/ (fconv),
+                          (fconv),
                          x),
                      str$0 =
-                        /*<<camlinternalFormat.ml:1751:17>>*/  /*<<camlinternalFormat.ml:1751:17>>*/ fix_padding
-                         /*<<camlinternalFormat.ml:1751:17>>*/ (padty, w, str);
-                     /*<<camlinternalFormat.ml:1752:6>>*/ return  /*<<camlinternalFormat.ml:1752:6>>*/ make_printf
-                             /*<<camlinternalFormat.ml:1752:6>>*/ (k$0,
-                             [4, acc$0, str$0],
-                             rest$7) /*<<camlinternalFormat.ml:1752:53>>*/ ;
-                    /*<<camlinternalFormat.ml:1752:53>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
+                        /*<<camlinternalFormat.ml:1751:17>>*/ fix_padding
+                        (padty, w, str);
+                     /*<<camlinternalFormat.ml:1752:6>>*/ return make_printf
+                            (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1752:53>>*/ ;
+                   } /*<<camlinternalFormat.ml:1605:9>>*/ ;
          var p$0 = prec$3[1];
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
           var
            str =
-              /*<<camlinternalFormat.ml:1755:16>>*/  /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
-               /*<<camlinternalFormat.ml:1755:16>>*/ (padty,
+              /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
+              (padty,
                w,
                 /*<<camlinternalFormat.ml:1755:36>>*/ convert_float
-                 /*<<camlinternalFormat.ml:1755:36>>*/ (fconv, p$0, x));
-           /*<<camlinternalFormat.ml:1756:6>>*/ return  /*<<camlinternalFormat.ml:1756:6>>*/ make_printf
-                   /*<<camlinternalFormat.ml:1756:6>>*/ (k$0,
-                   [4, acc$0, str],
-                   rest$7) /*<<camlinternalFormat.ml:1756:52>>*/ ; /*<<camlinternalFormat.ml:1756:52>>*/ } /*<<camlinternalFormat.ml:1754:4>>*/ ;
+                (fconv, p$0, x));
+           /*<<camlinternalFormat.ml:1756:6>>*/ return make_printf
+                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1756:52>>*/ ;} /*<<camlinternalFormat.ml:1754:4>>*/ ;
         }
         var padty$0 = pad$5[1];
         if(typeof prec$3 === "number")
@@ -20343,54 +16925,44 @@
                   (w, p, x){
                    var
                     str =
-                       /*<<camlinternalFormat.ml:1772:16>>*/  /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
-                        /*<<camlinternalFormat.ml:1772:16>>*/ (padty$0,
+                       /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
+                       (padty$0,
                         w,
                          /*<<camlinternalFormat.ml:1772:36>>*/ convert_float
-                          /*<<camlinternalFormat.ml:1772:36>>*/ (fconv, p, x));
-                    /*<<camlinternalFormat.ml:1773:6>>*/ return  /*<<camlinternalFormat.ml:1773:6>>*/ make_printf
-                            /*<<camlinternalFormat.ml:1773:6>>*/ (k$0,
-                            [4, acc$0, str],
-                            rest$7) /*<<camlinternalFormat.ml:1773:52>>*/ ;
-                   /*<<camlinternalFormat.ml:1773:52>>*/ }
+                         (fconv, p, x));
+                    /*<<camlinternalFormat.ml:1773:6>>*/ return make_printf
+                           (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1773:52>>*/ ;
+                  }
                  : function
                   (w, x){
                    var
                     str =
-                       /*<<camlinternalFormat.ml:1763:16>>*/  /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
-                        /*<<camlinternalFormat.ml:1763:16>>*/ (fconv,
+                       /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
+                       (fconv,
                          /*<<camlinternalFormat.ml:1763:36>>*/ default_float_precision
-                          /*<<camlinternalFormat.ml:1763:36>>*/ (fconv),
+                         (fconv),
                         x),
                     str$0 =
-                       /*<<camlinternalFormat.ml:1764:17>>*/  /*<<camlinternalFormat.ml:1764:17>>*/ fix_padding
-                        /*<<camlinternalFormat.ml:1764:17>>*/ (padty$0, w, str);
-                    /*<<camlinternalFormat.ml:1765:6>>*/ return  /*<<camlinternalFormat.ml:1765:6>>*/ make_printf
-                            /*<<camlinternalFormat.ml:1765:6>>*/ (k$0,
-                            [4, acc$0, str$0],
-                            rest$7) /*<<camlinternalFormat.ml:1765:53>>*/ ;
-                   /*<<camlinternalFormat.ml:1765:53>>*/ } /*<<camlinternalFormat.ml:1605:9>>*/ ;
+                       /*<<camlinternalFormat.ml:1764:17>>*/ fix_padding
+                       (padty$0, w, str);
+                    /*<<camlinternalFormat.ml:1765:6>>*/ return make_printf
+                           (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1765:53>>*/ ;
+                  } /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var p$1 = prec$3[1];
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
          var
           str =
-             /*<<camlinternalFormat.ml:1768:16>>*/  /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
-              /*<<camlinternalFormat.ml:1768:16>>*/ (padty$0,
+             /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
+             (padty$0,
               w,
                /*<<camlinternalFormat.ml:1768:36>>*/ convert_float
-                /*<<camlinternalFormat.ml:1768:36>>*/ (fconv, p$1, x));
-          /*<<camlinternalFormat.ml:1769:6>>*/ return  /*<<camlinternalFormat.ml:1769:6>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1769:6>>*/ (k$0,
-                  [4, acc$0, str],
-                  rest$7) /*<<camlinternalFormat.ml:1769:52>>*/ ; /*<<camlinternalFormat.ml:1769:52>>*/ } /*<<camlinternalFormat.ml:1767:4>>*/ ;
+               (fconv, p$1, x));
+          /*<<camlinternalFormat.ml:1769:6>>*/ return make_printf
+                 (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1769:52>>*/ ;} /*<<camlinternalFormat.ml:1767:4>>*/ ;
        case 9:
         var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
-         /*<<camlinternalFormat.ml:1542:4>>*/ return  /*<<camlinternalFormat.ml:1542:4>>*/ make_padding
-                 /*<<camlinternalFormat.ml:1542:4>>*/ (k$0,
-                 acc$0,
-                 rest$8,
-                 pad$6,
-                 Stdlib[30]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1542:4>>*/ return make_padding
+                (k$0, acc$0, rest$8, pad$6, Stdlib[30]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 10:
         var
          rest$9 = fmt$0[1],
@@ -20419,48 +16991,37 @@
          rest$12 = fmt$0[3],
          sub_fmtty = fmt$0[2],
          ty =
-            /*<<camlinternalFormat.ml:1568:13>>*/  /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty
-             /*<<camlinternalFormat.ml:1568:13>>*/ (sub_fmtty);
+            /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
          /*<<camlinternalFormat.ml:1569:4>>*/ return function(str){
           /*<<camlinternalFormat.ml:1570:6>>*/ return  /*<<camlinternalFormat.ml:1569:4>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1569:4>>*/ (k$0,
-                  [4, acc$0, ty],
-                  rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ; /*<<camlinternalFormat.ml:1571:52>>*/ } /*<<camlinternalFormat.ml:1569:4>>*/ ;
+                 (k$0, [4, acc$0, ty], rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ;} /*<<camlinternalFormat.ml:1569:4>>*/ ;
        case 14:
         var rest$13 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1573:4>>*/ return function(param){
          var
           fmt = param[1],
-          _cf_ =
-             /*<<camlinternalFormat.ml:1574:18>>*/  /*<<camlinternalFormat.ml:1574:18>>*/ recast
-              /*<<camlinternalFormat.ml:1574:18>>*/ (fmt, fmtty);
-          /*<<camlinternalFormat.ml:1574:6>>*/ return  /*<<camlinternalFormat.ml:1574:6>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1574:6>>*/ (k$0,
+          _cf_ =  /*<<camlinternalFormat.ml:1574:18>>*/ recast(fmt, fmtty);
+          /*<<camlinternalFormat.ml:1574:6>>*/ return make_printf
+                 (k$0,
                   acc$0,
-                   /*<<camlinternalFormat.ml:1574:6>>*/ caml_call2
-                    /*<<camlinternalFormat.ml:1574:6>>*/ (CamlinternalFormatBasics
-                     [3],
-                    _cf_,
-                    rest$13)) /*<<camlinternalFormat.ml:1574:42>>*/ ; /*<<camlinternalFormat.ml:1574:42>>*/ } /*<<camlinternalFormat.ml:1573:4>>*/ ;
+                  caml_call2(CamlinternalFormatBasics[3], _cf_, rest$13)) /*<<camlinternalFormat.ml:1574:42>>*/ ;} /*<<camlinternalFormat.ml:1573:4>>*/ ;
        case 15:
         var rest$14 = fmt$0[1];
          /*<<camlinternalFormat.ml:1544:4>>*/ return function(f, x){
           /*<<camlinternalFormat.ml:1544:15>>*/ return  /*<<camlinternalFormat.ml:1544:4>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1544:4>>*/ (k$0,
+                 (k$0,
                   [6,
                    acc$0,
                    function(o){
                      /*<<camlinternalFormat.ml:1544:55>>*/ return caml_call2
                             (f, o, x) /*<<camlinternalFormat.ml:1544:60>>*/ ;
-                    /*<<camlinternalFormat.ml:1544:60>>*/ }],
-                  rest$14) /*<<camlinternalFormat.ml:1544:67>>*/ ; /*<<camlinternalFormat.ml:1544:67>>*/ } /*<<camlinternalFormat.ml:1544:4>>*/ ;
+                   }],
+                  rest$14) /*<<camlinternalFormat.ml:1544:67>>*/ ;} /*<<camlinternalFormat.ml:1544:4>>*/ ;
        case 16:
         var rest$15 = fmt$0[1];
          /*<<camlinternalFormat.ml:1546:4>>*/ return function(f){
           /*<<camlinternalFormat.ml:1546:13>>*/ return  /*<<camlinternalFormat.ml:1546:4>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1546:4>>*/ (k$0,
-                  [6, acc$0, f],
-                  rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ; /*<<camlinternalFormat.ml:1546:52>>*/ } /*<<camlinternalFormat.ml:1546:4>>*/ ;
+                 (k$0, [6, acc$0, f], rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ;} /*<<camlinternalFormat.ml:1546:4>>*/ ;
        case 17:
         var
          rest$16 = fmt$0[2],
@@ -20478,10 +17039,8 @@
           k$1 =
             function(kacc){
               /*<<camlinternalFormat.ml:1597:6>>*/ return  /*<<camlinternalFormat.ml:1596:4>>*/ make_printf
-                      /*<<camlinternalFormat.ml:1596:4>>*/ (k,
-                      [1, acc, [0, kacc]],
-                      rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
-             /*<<camlinternalFormat.ml:1597:70>>*/ };
+                     (k, [1, acc, [0, kacc]], rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
+            };
          k$0 = k$1;
          acc$0 = 0;
          fmt$0 = fmt$1;
@@ -20493,19 +17052,16 @@
           k$2 =
             function(kacc){
               /*<<camlinternalFormat.ml:1601:6>>*/ return  /*<<camlinternalFormat.ml:1600:4>>*/ make_printf
-                      /*<<camlinternalFormat.ml:1600:4>>*/ (k,
-                      [1, acc, [1, kacc]],
-                      rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
-             /*<<camlinternalFormat.ml:1601:70>>*/ };
+                     (k, [1, acc, [1, kacc]], rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
+            };
          k$0 = k$2;
          acc$0 = 0;
          fmt$0 = fmt$2;
         }
         break;
        case 19:
-         /*<<camlinternalFormat.ml:1558:4>>*/ throw  /*<<camlinternalFormat.ml:1558:4>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:1558:4>>*/ ([0, Assert_failure, _s_],
-                1);
+         /*<<camlinternalFormat.ml:1558:4>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _s_], 1);
        case 20:
         var
          rest$19 = fmt$0[3],
@@ -20515,7 +17071,7 @@
             cst_Printf_bad_conversion];
          /*<<camlinternalFormat.ml:1578:4>>*/ return function(param){
           /*<<camlinternalFormat.ml:1578:13>>*/ return  /*<<camlinternalFormat.ml:1578:4>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1578:4>>*/ (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ; /*<<camlinternalFormat.ml:1578:39>>*/ } /*<<camlinternalFormat.ml:1578:4>>*/ ;
+                 (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ;} /*<<camlinternalFormat.ml:1578:4>>*/ ;
        case 21:
         var rest$20 = fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
@@ -20524,51 +17080,38 @@
              /*<<camlinternalFormat.ml:1584:20>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
-               /*<<camlinternalFormat.ml:1584:42>>*/ (cst_u$0, n)];
-          /*<<camlinternalFormat.ml:1585:6>>*/ return  /*<<camlinternalFormat.ml:1585:6>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1585:6>>*/ (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ; /*<<camlinternalFormat.ml:1585:32>>*/ } /*<<camlinternalFormat.ml:1583:4>>*/ ;
+              (cst_u$0, n)];
+          /*<<camlinternalFormat.ml:1585:6>>*/ return make_printf
+                 (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ;} /*<<camlinternalFormat.ml:1583:4>>*/ ;
        case 22:
         var rest$21 = fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1588:20>>*/ [5, acc$0, c];
-          /*<<camlinternalFormat.ml:1589:6>>*/ return  /*<<camlinternalFormat.ml:1589:6>>*/ make_printf
-                  /*<<camlinternalFormat.ml:1589:6>>*/ (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ; /*<<camlinternalFormat.ml:1589:32>>*/ } /*<<camlinternalFormat.ml:1587:4>>*/ ;
+          /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
+                 (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ;} /*<<camlinternalFormat.ml:1587:4>>*/ ;
        case 23:
         var rest$22 = fmt$0[2], ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1591:4>>*/ if(counter >= 50)
-          /*<<camlinternalFormat.ml:1591:4>>*/ return  /*<<camlinternalFormat.ml:1591:4>>*/ caml_trampoline_return
-                  /*<<camlinternalFormat.ml:1591:4>>*/ (make_ignored_param$0,
-                  [0, k$0, acc$0, ign, rest$22]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         return caml_trampoline_return
+                 (make_ignored_param$0, [0, k$0, acc$0, ign, rest$22]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$1 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1591:4>>*/ return  /*<<camlinternalFormat.ml:1591:4>>*/ make_ignored_param$0
-                 /*<<camlinternalFormat.ml:1591:4>>*/ (counter$1,
-                 k$0,
-                 acc$0,
-                 ign,
-                 rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1591:4>>*/ return make_ignored_param$0
+                (counter$1, k$0, acc$0, ign, rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        default:
         var
          rest$23 = fmt$0[3],
          f = fmt$0[2],
          arity = fmt$0[1],
-         _ce_ =
-            /*<<camlinternalFormat.ml:1548:33>>*/  /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1548:33>>*/ (f, 0);
-         /*<<camlinternalFormat.ml:1548:33>>*/ if(counter >= 50)
-          /*<<camlinternalFormat.ml:1548:33>>*/ return  /*<<camlinternalFormat.ml:1548:33>>*/ caml_trampoline_return
-                  /*<<camlinternalFormat.ml:1548:33>>*/ (make_custom$0,
-                  [0, k$0, acc$0, rest$23, arity, _ce_]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         _ce_ =  /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1(f, 0);
+        if(counter >= 50)
+         return caml_trampoline_return
+                 (make_custom$0, [0, k$0, acc$0, rest$23, arity, _ce_]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1548:33>>*/ return  /*<<camlinternalFormat.ml:1548:33>>*/ make_custom$0
-                 /*<<camlinternalFormat.ml:1548:33>>*/ (counter$0,
-                 k$0,
-                 acc$0,
-                 rest$23,
-                 arity,
-                 _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+         /*<<camlinternalFormat.ml:1548:33>>*/ return make_custom$0
+                (counter$0, k$0, acc$0, rest$23, arity, _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
      }
     }
-    /*<<camlinternalFormat.ml:1605:9>>*/ }
+   }
    function make_printf(k, acc, fmt){
      /*<<?>>*/ return caml_trampoline(make_printf$0(0, k, acc, fmt));
    }
@@ -20577,160 +17120,103 @@
      switch(ign){
        case 0:
          /*<<camlinternalFormat.ml:1614:39>>*/ if(counter >= 50)
-          /*<<camlinternalFormat.ml:1614:39>>*/ return  /*<<camlinternalFormat.ml:1614:39>>*/ caml_trampoline_return
-                  /*<<camlinternalFormat.ml:1614:39>>*/ (make_invalid_arg,
-                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1614:39>>*/ return  /*<<camlinternalFormat.ml:1614:39>>*/ make_invalid_arg
-                 /*<<camlinternalFormat.ml:1614:39>>*/ (counter$0,
-                 k,
-                 acc,
-                 fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         /*<<camlinternalFormat.ml:1614:39>>*/ return make_invalid_arg
+                (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 1:
          /*<<camlinternalFormat.ml:1615:39>>*/ if(counter >= 50)
-          /*<<camlinternalFormat.ml:1615:39>>*/ return  /*<<camlinternalFormat.ml:1615:39>>*/ caml_trampoline_return
-                  /*<<camlinternalFormat.ml:1615:39>>*/ (make_invalid_arg,
-                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$1 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1615:39>>*/ return  /*<<camlinternalFormat.ml:1615:39>>*/ make_invalid_arg
-                 /*<<camlinternalFormat.ml:1615:39>>*/ (counter$1,
-                 k,
-                 acc,
-                 fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         /*<<camlinternalFormat.ml:1615:39>>*/ return make_invalid_arg
+                (counter$1, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 2:
-         /*<<camlinternalFormat.ml:1626:39>>*/ throw  /*<<camlinternalFormat.ml:1626:39>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:1626:39>>*/ ([0,
-                 Assert_failure,
-                 _t_],
-                1);
+         /*<<camlinternalFormat.ml:1626:39>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _t_], 1);
        default:
          /*<<camlinternalFormat.ml:1629:39>>*/ if(counter >= 50)
-          /*<<camlinternalFormat.ml:1629:39>>*/ return  /*<<camlinternalFormat.ml:1629:39>>*/ caml_trampoline_return
-                  /*<<camlinternalFormat.ml:1629:39>>*/ (make_invalid_arg,
-                  [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$2 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1629:39>>*/ return  /*<<camlinternalFormat.ml:1629:39>>*/ make_invalid_arg
-                 /*<<camlinternalFormat.ml:1629:39>>*/ (counter$2,
-                 k,
-                 acc,
-                 fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+         /*<<camlinternalFormat.ml:1629:39>>*/ return make_invalid_arg
+                (counter$2, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
      }
     switch(ign[0]){
       case 0:
         /*<<camlinternalFormat.ml:1616:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1616:39>>*/ return  /*<<camlinternalFormat.ml:1616:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1616:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$3 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1616:39>>*/ return  /*<<camlinternalFormat.ml:1616:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1616:39>>*/ (counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1616:39>>*/ return make_invalid_arg
+               (counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 1:
         /*<<camlinternalFormat.ml:1617:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1617:39>>*/ return  /*<<camlinternalFormat.ml:1617:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1617:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$4 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1617:39>>*/ return  /*<<camlinternalFormat.ml:1617:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1617:39>>*/ (counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1617:39>>*/ return make_invalid_arg
+               (counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 2:
         /*<<camlinternalFormat.ml:1618:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1618:39>>*/ return  /*<<camlinternalFormat.ml:1618:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1618:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$5 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1618:39>>*/ return  /*<<camlinternalFormat.ml:1618:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1618:39>>*/ (counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1618:39>>*/ return make_invalid_arg
+               (counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 3:
         /*<<camlinternalFormat.ml:1619:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1619:39>>*/ return  /*<<camlinternalFormat.ml:1619:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1619:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$6 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1619:39>>*/ return  /*<<camlinternalFormat.ml:1619:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1619:39>>*/ (counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1619:39>>*/ return make_invalid_arg
+               (counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 4:
         /*<<camlinternalFormat.ml:1620:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1620:39>>*/ return  /*<<camlinternalFormat.ml:1620:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1620:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$7 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1620:39>>*/ return  /*<<camlinternalFormat.ml:1620:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1620:39>>*/ (counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1620:39>>*/ return make_invalid_arg
+               (counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 5:
         /*<<camlinternalFormat.ml:1621:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1621:39>>*/ return  /*<<camlinternalFormat.ml:1621:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1621:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$8 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1621:39>>*/ return  /*<<camlinternalFormat.ml:1621:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1621:39>>*/ (counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1621:39>>*/ return make_invalid_arg
+               (counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 6:
         /*<<camlinternalFormat.ml:1622:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1622:39>>*/ return  /*<<camlinternalFormat.ml:1622:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1622:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$9 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1622:39>>*/ return  /*<<camlinternalFormat.ml:1622:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1622:39>>*/ (counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1622:39>>*/ return make_invalid_arg
+               (counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 7:
         /*<<camlinternalFormat.ml:1623:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1623:39>>*/ return  /*<<camlinternalFormat.ml:1623:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1623:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$10 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1623:39>>*/ return  /*<<camlinternalFormat.ml:1623:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1623:39>>*/ (counter$10,
-                k,
-                acc,
-                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1623:39>>*/ return make_invalid_arg
+               (counter$10, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 8:
         /*<<camlinternalFormat.ml:1624:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1624:39>>*/ return  /*<<camlinternalFormat.ml:1624:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1624:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$11 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1624:39>>*/ return  /*<<camlinternalFormat.ml:1624:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1624:39>>*/ (counter$11,
-                k,
-                acc,
-                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1624:39>>*/ return make_invalid_arg
+               (counter$11, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 9:
        var fmtty = ign[2];
         /*<<camlinternalFormat.ml:1625:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1625:39>>*/ return  /*<<camlinternalFormat.ml:1625:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1625:39>>*/ (make_from_fmtty$0,
-                 [0, k, acc, fmtty, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return
+                (make_from_fmtty$0, [0, k, acc, fmtty, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$14 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1625:39>>*/ return  /*<<camlinternalFormat.ml:1625:39>>*/ make_from_fmtty$0
-                /*<<camlinternalFormat.ml:1625:39>>*/ (counter$14,
-                k,
-                acc,
-                fmtty,
-                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1625:39>>*/ return make_from_fmtty$0
+               (counter$14, k, acc, fmtty, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 10:
         /*<<camlinternalFormat.ml:1627:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1627:39>>*/ return  /*<<camlinternalFormat.ml:1627:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1627:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$12 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1627:39>>*/ return  /*<<camlinternalFormat.ml:1627:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1627:39>>*/ (counter$12,
-                k,
-                acc,
-                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1627:39>>*/ return make_invalid_arg
+               (counter$12, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       default:
         /*<<camlinternalFormat.ml:1628:39>>*/ if(counter >= 50)
-         /*<<camlinternalFormat.ml:1628:39>>*/ return  /*<<camlinternalFormat.ml:1628:39>>*/ caml_trampoline_return
-                 /*<<camlinternalFormat.ml:1628:39>>*/ (make_invalid_arg,
-                 [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$13 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1628:39>>*/ return  /*<<camlinternalFormat.ml:1628:39>>*/ make_invalid_arg
-                /*<<camlinternalFormat.ml:1628:39>>*/ (counter$13,
-                k,
-                acc,
-                fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        /*<<camlinternalFormat.ml:1628:39>>*/ return make_invalid_arg
+               (counter$13, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
     }
-    /*<<camlinternalFormat.ml:1629:65>>*/ }
+   }
    function make_ignored_param(k, acc, ign, fmt){
      /*<<?>>*/ return caml_trampoline
             (make_ignored_param$0(0, k, acc, ign, fmt));
@@ -20742,103 +17228,90 @@
         var rest = fmtty[1];
          /*<<camlinternalFormat.ml:1638:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1638:40>>*/ return  /*<<camlinternalFormat.ml:1638:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1638:31>>*/ (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ; /*<<camlinternalFormat.ml:1638:70>>*/ } /*<<camlinternalFormat.ml:1638:31>>*/ ;
+                 (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ;} /*<<camlinternalFormat.ml:1638:31>>*/ ;
        case 1:
         var rest$0 = fmtty[1];
          /*<<camlinternalFormat.ml:1639:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1639:40>>*/ return  /*<<camlinternalFormat.ml:1639:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1639:31>>*/ (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ; /*<<camlinternalFormat.ml:1639:70>>*/ } /*<<camlinternalFormat.ml:1639:31>>*/ ;
+                 (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ;} /*<<camlinternalFormat.ml:1639:31>>*/ ;
        case 2:
         var rest$1 = fmtty[1];
          /*<<camlinternalFormat.ml:1640:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1640:40>>*/ return  /*<<camlinternalFormat.ml:1640:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1640:31>>*/ (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ; /*<<camlinternalFormat.ml:1640:70>>*/ } /*<<camlinternalFormat.ml:1640:31>>*/ ;
+                 (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ;} /*<<camlinternalFormat.ml:1640:31>>*/ ;
        case 3:
         var rest$2 = fmtty[1];
          /*<<camlinternalFormat.ml:1641:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1641:40>>*/ return  /*<<camlinternalFormat.ml:1641:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1641:31>>*/ (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ; /*<<camlinternalFormat.ml:1641:70>>*/ } /*<<camlinternalFormat.ml:1641:31>>*/ ;
+                 (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ;} /*<<camlinternalFormat.ml:1641:31>>*/ ;
        case 4:
         var rest$3 = fmtty[1];
          /*<<camlinternalFormat.ml:1642:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1642:40>>*/ return  /*<<camlinternalFormat.ml:1642:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1642:31>>*/ (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ; /*<<camlinternalFormat.ml:1642:70>>*/ } /*<<camlinternalFormat.ml:1642:31>>*/ ;
+                 (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ;} /*<<camlinternalFormat.ml:1642:31>>*/ ;
        case 5:
         var rest$4 = fmtty[1];
          /*<<camlinternalFormat.ml:1643:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1643:40>>*/ return  /*<<camlinternalFormat.ml:1643:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1643:31>>*/ (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ; /*<<camlinternalFormat.ml:1643:70>>*/ } /*<<camlinternalFormat.ml:1643:31>>*/ ;
+                 (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ;} /*<<camlinternalFormat.ml:1643:31>>*/ ;
        case 6:
         var rest$5 = fmtty[1];
          /*<<camlinternalFormat.ml:1644:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1644:40>>*/ return  /*<<camlinternalFormat.ml:1644:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1644:31>>*/ (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ; /*<<camlinternalFormat.ml:1644:70>>*/ } /*<<camlinternalFormat.ml:1644:31>>*/ ;
+                 (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ;} /*<<camlinternalFormat.ml:1644:31>>*/ ;
        case 7:
         var rest$6 = fmtty[1];
          /*<<camlinternalFormat.ml:1645:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1645:40>>*/ return  /*<<camlinternalFormat.ml:1645:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1645:31>>*/ (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ; /*<<camlinternalFormat.ml:1645:70>>*/ } /*<<camlinternalFormat.ml:1645:31>>*/ ;
+                 (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ;} /*<<camlinternalFormat.ml:1645:31>>*/ ;
        case 8:
         var rest$7 = fmtty[2];
          /*<<camlinternalFormat.ml:1651:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1651:40>>*/ return  /*<<camlinternalFormat.ml:1651:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1651:31>>*/ (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ; /*<<camlinternalFormat.ml:1651:70>>*/ } /*<<camlinternalFormat.ml:1651:31>>*/ ;
+                 (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ;} /*<<camlinternalFormat.ml:1651:31>>*/ ;
        case 9:
         var
          rest$8 = fmtty[3],
          ty2 = fmtty[2],
          ty1 = fmtty[1],
          ty =
-            /*<<camlinternalFormat.ml:1654:13>>*/  /*<<camlinternalFormat.ml:1654:13>>*/ trans
-             /*<<camlinternalFormat.ml:1654:13>>*/ ( /*<<camlinternalFormat.ml:1654:19>>*/ symm
-               /*<<camlinternalFormat.ml:1654:19>>*/ (ty1),
-             ty2);
+            /*<<camlinternalFormat.ml:1654:13>>*/ trans
+            ( /*<<camlinternalFormat.ml:1654:19>>*/ symm(ty1), ty2);
          /*<<camlinternalFormat.ml:1655:4>>*/ return function(param){
           /*<<camlinternalFormat.ml:1655:13>>*/ return make_from_fmtty
                  (k,
                   acc,
                    /*<<camlinternalFormat.ml:1655:35>>*/ caml_call2
-                    /*<<camlinternalFormat.ml:1655:35>>*/ (CamlinternalFormatBasics
-                     [1],
-                    ty,
-                    rest$8),
-                  fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ; /*<<camlinternalFormat.ml:1655:61>>*/ } /*<<camlinternalFormat.ml:1655:4>>*/ ;
+                   (CamlinternalFormatBasics[1], ty, rest$8),
+                  fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;} /*<<camlinternalFormat.ml:1655:4>>*/ ;
        case 10:
         var rest$9 = fmtty[1];
          /*<<camlinternalFormat.ml:1646:31>>*/ return function(_cc_, param){
           /*<<camlinternalFormat.ml:1646:42>>*/ return  /*<<camlinternalFormat.ml:1646:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1646:31>>*/ (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ; /*<<camlinternalFormat.ml:1646:72>>*/ } /*<<camlinternalFormat.ml:1646:31>>*/ ;
+                 (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ;} /*<<camlinternalFormat.ml:1646:31>>*/ ;
        case 11:
         var rest$10 = fmtty[1];
          /*<<camlinternalFormat.ml:1647:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1647:40>>*/ return  /*<<camlinternalFormat.ml:1647:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1647:31>>*/ (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ; /*<<camlinternalFormat.ml:1647:70>>*/ } /*<<camlinternalFormat.ml:1647:31>>*/ ;
+                 (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ;} /*<<camlinternalFormat.ml:1647:31>>*/ ;
        case 12:
         var rest$11 = fmtty[1];
          /*<<camlinternalFormat.ml:1648:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1648:40>>*/ return  /*<<camlinternalFormat.ml:1648:31>>*/ make_from_fmtty
-                  /*<<camlinternalFormat.ml:1648:31>>*/ (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ; /*<<camlinternalFormat.ml:1648:70>>*/ } /*<<camlinternalFormat.ml:1648:31>>*/ ;
+                 (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ;} /*<<camlinternalFormat.ml:1648:31>>*/ ;
        case 13:
-         /*<<camlinternalFormat.ml:1649:31>>*/ throw  /*<<camlinternalFormat.ml:1649:31>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:1649:31>>*/ ([0,
-                 Assert_failure,
-                 _u_],
-                1);
+         /*<<camlinternalFormat.ml:1649:31>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _u_], 1);
        default:
-         /*<<camlinternalFormat.ml:1650:31>>*/ throw  /*<<camlinternalFormat.ml:1650:31>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:1650:31>>*/ ([0,
-                 Assert_failure,
-                 _v_],
-                1);
+         /*<<camlinternalFormat.ml:1650:31>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _v_], 1);
      }
      /*<<camlinternalFormat.ml:1652:31>>*/ if(counter >= 50)
-      /*<<camlinternalFormat.ml:1652:31>>*/ return  /*<<camlinternalFormat.ml:1652:31>>*/ caml_trampoline_return
-              /*<<camlinternalFormat.ml:1652:31>>*/ (make_invalid_arg,
-              [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1655:61>>*/ ;
+     return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1655:61>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1652:31>>*/ return  /*<<camlinternalFormat.ml:1652:31>>*/ make_invalid_arg
-             /*<<camlinternalFormat.ml:1652:31>>*/ (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
-    /*<<camlinternalFormat.ml:1655:61>>*/ }
+     /*<<camlinternalFormat.ml:1652:31>>*/ return make_invalid_arg
+            (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
+   }
    function make_from_fmtty(k, acc, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
             (make_from_fmtty$0(0, k, acc, fmtty, fmt));
@@ -20850,13 +17323,11 @@
         acc,
         cst_Printf_bad_conversion$0];
      /*<<camlinternalFormat.ml:1663:2>>*/ if(counter >= 50)
-      /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ caml_trampoline_return
-              /*<<camlinternalFormat.ml:1663:2>>*/ (make_printf$0,
-              [0, k, _cb_, fmt]) /*<<camlinternalFormat.ml:1663:72>>*/ ;
+     return caml_trampoline_return(make_printf$0, [0, k, _cb_, fmt]) /*<<camlinternalFormat.ml:1663:72>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1663:2>>*/ return  /*<<camlinternalFormat.ml:1663:2>>*/ make_printf$0
-             /*<<camlinternalFormat.ml:1663:2>>*/ (counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
-    /*<<camlinternalFormat.ml:1663:72>>*/ }
+     /*<<camlinternalFormat.ml:1663:2>>*/ return make_printf$0
+            (counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
+   }
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:1672:4>>*/ return function(x){
@@ -20864,10 +17335,9 @@
        new_acc =
           /*<<camlinternalFormat.ml:1673:20>>*/ [4,
           acc,
-           /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1
-            /*<<camlinternalFormat.ml:1673:42>>*/ (trans, x)];
-       /*<<camlinternalFormat.ml:1674:6>>*/ return  /*<<camlinternalFormat.ml:1674:6>>*/ make_printf
-               /*<<camlinternalFormat.ml:1674:6>>*/ (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ; /*<<camlinternalFormat.ml:1674:31>>*/ } /*<<camlinternalFormat.ml:1672:4>>*/ ;
+           /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
+       /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
+              (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ;} /*<<camlinternalFormat.ml:1672:4>>*/ ;
     if(0 === pad[0]){
      var width = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
@@ -20876,12 +17346,11 @@
           /*<<camlinternalFormat.ml:1677:20>>*/ [4,
           acc,
            /*<<camlinternalFormat.ml:1677:42>>*/ fix_padding
-            /*<<camlinternalFormat.ml:1677:42>>*/ (padty,
+           (padty,
             width,
-             /*<<camlinternalFormat.ml:1677:66>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1677:66>>*/ (trans, x))];
-       /*<<camlinternalFormat.ml:1678:6>>*/ return  /*<<camlinternalFormat.ml:1678:6>>*/ make_printf
-               /*<<camlinternalFormat.ml:1678:6>>*/ (k, new_acc, fmt) /*<<camlinternalFormat.ml:1678:31>>*/ ; /*<<camlinternalFormat.ml:1678:31>>*/ } /*<<camlinternalFormat.ml:1676:4>>*/ ;
+             /*<<camlinternalFormat.ml:1677:66>>*/ caml_call1(trans, x))];
+       /*<<camlinternalFormat.ml:1678:6>>*/ return make_printf
+              (k, new_acc, fmt) /*<<camlinternalFormat.ml:1678:31>>*/ ;} /*<<camlinternalFormat.ml:1676:4>>*/ ;
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
@@ -20890,12 +17359,10 @@
          /*<<camlinternalFormat.ml:1681:20>>*/ [4,
          acc,
           /*<<camlinternalFormat.ml:1681:42>>*/ fix_padding
-           /*<<camlinternalFormat.ml:1681:42>>*/ (padty$0,
+          (padty$0,
            w,
-            /*<<camlinternalFormat.ml:1681:62>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1681:62>>*/ (trans, x))];
-      /*<<camlinternalFormat.ml:1682:6>>*/ return  /*<<camlinternalFormat.ml:1682:6>>*/ make_printf
-              /*<<camlinternalFormat.ml:1682:6>>*/ (k, new_acc, fmt) /*<<camlinternalFormat.ml:1682:31>>*/ ; /*<<camlinternalFormat.ml:1682:31>>*/ } /*<<camlinternalFormat.ml:1680:4>>*/ ;
+            /*<<camlinternalFormat.ml:1681:62>>*/ caml_call1(trans, x))];
+      /*<<camlinternalFormat.ml:1682:6>>*/ return make_printf(k, new_acc, fmt) /*<<camlinternalFormat.ml:1682:31>>*/ ;} /*<<camlinternalFormat.ml:1680:4>>*/ ;
     /*<<camlinternalFormat.ml:1682:31>>*/ }
    function make_int_padding_precision(k, acc, fmt, pad, prec, trans, iconv){
      /*<<camlinternalFormat.ml:1691:40>>*/ if(typeof pad === "number"){
@@ -20905,36 +17372,31 @@
                (p, x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1702:16>>*/  /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
-                     /*<<camlinternalFormat.ml:1702:16>>*/ (p,
+                    /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
+                    (p,
                       /*<<camlinternalFormat.ml:1702:36>>*/ caml_call2
-                       /*<<camlinternalFormat.ml:1702:36>>*/ (trans, iconv, x));
-                 /*<<camlinternalFormat.ml:1703:6>>*/ return  /*<<camlinternalFormat.ml:1703:6>>*/ make_printf
-                         /*<<camlinternalFormat.ml:1703:6>>*/ (k,
-                         [4, acc, str],
-                         fmt) /*<<camlinternalFormat.ml:1703:52>>*/ ;
-                /*<<camlinternalFormat.ml:1703:52>>*/ }
+                      (trans, iconv, x));
+                 /*<<camlinternalFormat.ml:1703:6>>*/ return make_printf
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1703:52>>*/ ;
+               }
               : function
                (x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1694:16>>*/  /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
-                     /*<<camlinternalFormat.ml:1694:16>>*/ (trans, iconv, x);
-                 /*<<camlinternalFormat.ml:1695:6>>*/ return  /*<<camlinternalFormat.ml:1695:6>>*/ make_printf
-                         /*<<camlinternalFormat.ml:1695:6>>*/ (k,
-                         [4, acc, str],
-                         fmt) /*<<camlinternalFormat.ml:1695:52>>*/ ;
-                /*<<camlinternalFormat.ml:1695:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
+                    /*<<camlinternalFormat.ml:1694:16>>*/ caml_call2
+                    (trans, iconv, x);
+                 /*<<camlinternalFormat.ml:1695:6>>*/ return make_printf
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1695:52>>*/ ;
+               } /*<<camlinternalFormat.ml:1727:52>>*/ ;
      var p = prec[1];
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
       var
        str =
-          /*<<camlinternalFormat.ml:1698:16>>*/  /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
-           /*<<camlinternalFormat.ml:1698:16>>*/ (p,
-            /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2
-             /*<<camlinternalFormat.ml:1698:36>>*/ (trans, iconv, x));
-       /*<<camlinternalFormat.ml:1699:6>>*/ return  /*<<camlinternalFormat.ml:1699:6>>*/ make_printf
-               /*<<camlinternalFormat.ml:1699:6>>*/ (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1699:52>>*/ ; /*<<camlinternalFormat.ml:1699:52>>*/ } /*<<camlinternalFormat.ml:1697:4>>*/ ;
+          /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
+          (p,
+            /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2(trans, iconv, x));
+       /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
+              (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1699:52>>*/ ;} /*<<camlinternalFormat.ml:1697:4>>*/ ;
     }
     if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
@@ -20944,45 +17406,41 @@
                (p, x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1714:16>>*/  /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
-                     /*<<camlinternalFormat.ml:1714:16>>*/ (padty,
+                    /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
+                    (padty,
                      w,
                       /*<<camlinternalFormat.ml:1714:36>>*/ fix_int_precision
-                       /*<<camlinternalFormat.ml:1714:36>>*/ (p,
+                      (p,
                         /*<<camlinternalFormat.ml:1714:57>>*/ caml_call2
-                         /*<<camlinternalFormat.ml:1714:57>>*/ (trans, iconv, x)));
-                 /*<<camlinternalFormat.ml:1715:6>>*/ return  /*<<camlinternalFormat.ml:1715:6>>*/ make_printf
-                         /*<<camlinternalFormat.ml:1715:6>>*/ (k,
-                         [4, acc, str],
-                         fmt) /*<<camlinternalFormat.ml:1715:52>>*/ ;
-                /*<<camlinternalFormat.ml:1715:52>>*/ }
+                        (trans, iconv, x)));
+                 /*<<camlinternalFormat.ml:1715:6>>*/ return make_printf
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1715:52>>*/ ;
+               }
               : function
                (x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1706:16>>*/  /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
-                     /*<<camlinternalFormat.ml:1706:16>>*/ (padty,
+                    /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
+                    (padty,
                      w,
                       /*<<camlinternalFormat.ml:1706:36>>*/ caml_call2
-                       /*<<camlinternalFormat.ml:1706:36>>*/ (trans, iconv, x));
-                 /*<<camlinternalFormat.ml:1707:6>>*/ return  /*<<camlinternalFormat.ml:1707:6>>*/ make_printf
-                         /*<<camlinternalFormat.ml:1707:6>>*/ (k,
-                         [4, acc, str],
-                         fmt) /*<<camlinternalFormat.ml:1707:52>>*/ ;
-                /*<<camlinternalFormat.ml:1707:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
+                      (trans, iconv, x));
+                 /*<<camlinternalFormat.ml:1707:6>>*/ return make_printf
+                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1707:52>>*/ ;
+               } /*<<camlinternalFormat.ml:1727:52>>*/ ;
      var p$0 = prec[1];
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
       var
        str =
-          /*<<camlinternalFormat.ml:1710:16>>*/  /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
-           /*<<camlinternalFormat.ml:1710:16>>*/ (padty,
+          /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
+          (padty,
            w,
             /*<<camlinternalFormat.ml:1710:36>>*/ fix_int_precision
-             /*<<camlinternalFormat.ml:1710:36>>*/ (p$0,
+            (p$0,
               /*<<camlinternalFormat.ml:1710:57>>*/ caml_call2
-               /*<<camlinternalFormat.ml:1710:57>>*/ (trans, iconv, x)));
-       /*<<camlinternalFormat.ml:1711:6>>*/ return  /*<<camlinternalFormat.ml:1711:6>>*/ make_printf
-               /*<<camlinternalFormat.ml:1711:6>>*/ (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1711:52>>*/ ; /*<<camlinternalFormat.ml:1711:52>>*/ } /*<<camlinternalFormat.ml:1709:4>>*/ ;
+              (trans, iconv, x)));
+       /*<<camlinternalFormat.ml:1711:6>>*/ return make_printf
+              (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1711:52>>*/ ;} /*<<camlinternalFormat.ml:1709:4>>*/ ;
     }
     var padty$0 = pad[1];
     if(typeof prec === "number")
@@ -20991,67 +17449,55 @@
               (w, p, x){
                var
                 str =
-                   /*<<camlinternalFormat.ml:1726:16>>*/  /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
-                    /*<<camlinternalFormat.ml:1726:16>>*/ (padty$0,
+                   /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
+                   (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1726:36>>*/ fix_int_precision
-                      /*<<camlinternalFormat.ml:1726:36>>*/ (p,
+                     (p,
                        /*<<camlinternalFormat.ml:1726:57>>*/ caml_call2
-                        /*<<camlinternalFormat.ml:1726:57>>*/ (trans, iconv, x)));
-                /*<<camlinternalFormat.ml:1727:6>>*/ return  /*<<camlinternalFormat.ml:1727:6>>*/ make_printf
-                        /*<<camlinternalFormat.ml:1727:6>>*/ (k,
-                        [4, acc, str],
-                        fmt) /*<<camlinternalFormat.ml:1727:52>>*/ ;
-               /*<<camlinternalFormat.ml:1727:52>>*/ }
+                       (trans, iconv, x)));
+                /*<<camlinternalFormat.ml:1727:6>>*/ return make_printf
+                       (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1727:52>>*/ ;
+              }
              : function
               (w, x){
                var
                 str =
-                   /*<<camlinternalFormat.ml:1718:16>>*/  /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
-                    /*<<camlinternalFormat.ml:1718:16>>*/ (padty$0,
+                   /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
+                   (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1718:36>>*/ caml_call2
-                      /*<<camlinternalFormat.ml:1718:36>>*/ (trans, iconv, x));
-                /*<<camlinternalFormat.ml:1719:6>>*/ return  /*<<camlinternalFormat.ml:1719:6>>*/ make_printf
-                        /*<<camlinternalFormat.ml:1719:6>>*/ (k,
-                        [4, acc, str],
-                        fmt) /*<<camlinternalFormat.ml:1719:52>>*/ ;
-               /*<<camlinternalFormat.ml:1719:52>>*/ } /*<<camlinternalFormat.ml:1727:52>>*/ ;
+                     (trans, iconv, x));
+                /*<<camlinternalFormat.ml:1719:6>>*/ return make_printf
+                       (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1719:52>>*/ ;
+              } /*<<camlinternalFormat.ml:1727:52>>*/ ;
     var p$1 = prec[1];
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
      var
       str =
-         /*<<camlinternalFormat.ml:1722:16>>*/  /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
-          /*<<camlinternalFormat.ml:1722:16>>*/ (padty$0,
+         /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
+         (padty$0,
           w,
            /*<<camlinternalFormat.ml:1722:36>>*/ fix_int_precision
-            /*<<camlinternalFormat.ml:1722:36>>*/ (p$1,
-             /*<<camlinternalFormat.ml:1722:57>>*/ caml_call2
-              /*<<camlinternalFormat.ml:1722:57>>*/ (trans, iconv, x)));
-      /*<<camlinternalFormat.ml:1723:6>>*/ return  /*<<camlinternalFormat.ml:1723:6>>*/ make_printf
-              /*<<camlinternalFormat.ml:1723:6>>*/ (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1723:52>>*/ ; /*<<camlinternalFormat.ml:1723:52>>*/ } /*<<camlinternalFormat.ml:1721:4>>*/ ;
+           (p$1,
+             /*<<camlinternalFormat.ml:1722:57>>*/ caml_call2(trans, iconv, x)));
+      /*<<camlinternalFormat.ml:1723:6>>*/ return make_printf
+             (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1723:52>>*/ ;} /*<<camlinternalFormat.ml:1721:4>>*/ ;
     /*<<camlinternalFormat.ml:1727:52>>*/ }
    function make_custom$0(counter, k, acc, rest, arity, f){
      /*<<camlinternalFormat.ml:1778:28>>*/ if(arity){
      var arity$0 = arity[1];
       /*<<camlinternalFormat.ml:1781:4>>*/ return function(x){
        /*<<camlinternalFormat.ml:1782:6>>*/ return  /*<<camlinternalFormat.ml:1782:35>>*/ make_custom
-               /*<<camlinternalFormat.ml:1782:35>>*/ (k,
-               acc,
-               rest,
-               arity$0,
-                /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1782:35>>*/ (f, x)) /*<<camlinternalFormat.ml:1782:40>>*/ ; /*<<camlinternalFormat.ml:1782:40>>*/ } /*<<camlinternalFormat.ml:1781:4>>*/ ;
+              (k, acc, rest, arity$0, caml_call1(f, x)) /*<<camlinternalFormat.ml:1782:40>>*/ ;} /*<<camlinternalFormat.ml:1781:4>>*/ ;
     }
     var _ca_ =  /*<<camlinternalFormat.ml:1779:33>>*/ [4, acc, f];
      /*<<camlinternalFormat.ml:1779:19>>*/ if(counter >= 50)
-      /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ caml_trampoline_return
-              /*<<camlinternalFormat.ml:1779:19>>*/ (make_printf$0,
-              [0, k, _ca_, rest]) /*<<camlinternalFormat.ml:1782:40>>*/ ;
+     return caml_trampoline_return(make_printf$0, [0, k, _ca_, rest]) /*<<camlinternalFormat.ml:1782:40>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1779:19>>*/ return  /*<<camlinternalFormat.ml:1779:19>>*/ make_printf$0
-             /*<<camlinternalFormat.ml:1779:19>>*/ (counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
-    /*<<camlinternalFormat.ml:1782:40>>*/ }
+     /*<<camlinternalFormat.ml:1779:19>>*/ return make_printf$0
+            (counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
+   }
    function make_custom(k, acc, rest, arity, f){
      /*<<?>>*/ return caml_trampoline
             (make_custom$0(0, k, acc, rest, arity, f));
@@ -21060,158 +17506,132 @@
     var k$0 = k, fmt$0 = fmt;
      /*<<camlinternalFormat.ml:1788:17>>*/ for(;;){
      if(typeof fmt$0 === "number")
-       /*<<camlinternalFormat.ml:1858:8>>*/ return  /*<<camlinternalFormat.ml:1858:8>>*/ caml_call1
-               /*<<camlinternalFormat.ml:1858:8>>*/ (k$0, o) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+       /*<<camlinternalFormat.ml:1858:8>>*/ return caml_call1(k$0, o) /*<<camlinternalFormat.ml:1858:11>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var
          rest = fmt$0[1],
-         x =
-            /*<<camlinternalFormat.ml:1790:14>>*/  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1790:14>>*/ (k$0, o, rest);
-         /*<<camlinternalFormat.ml:1790:14>>*/ return function(_b$_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1790:14>>*/ ;
+         x =  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf(k$0, o, rest);
+        return function(_b$_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1790:14>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
          x$0 =
-            /*<<camlinternalFormat.ml:1792:14>>*/  /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1792:14>>*/ (k$0, o, rest$0);
-         /*<<camlinternalFormat.ml:1792:14>>*/ return function(_b__){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$0 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1792:14>>*/ ;
+            /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf(k$0, o, rest$0);
+        return function(_b__){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1792:14>>*/ ;
        case 2:
         var _bM_ = fmt$0[1];
         if(typeof _bM_ === "number"){
          var
           rest$1 = fmt$0[2],
           x$1 =
-             /*<<camlinternalFormat.ml:1794:14>>*/  /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
-              /*<<camlinternalFormat.ml:1794:14>>*/ (k$0, o, rest$1);
-          /*<<camlinternalFormat.ml:1794:14>>*/ return function(_b9_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$1 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1794:14>>*/ ;
+             /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
+             (k$0, o, rest$1);
+         return function(_b9_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1794:14>>*/ ;
         }
         if(0 === _bM_[0]){
          var
           rest$2 = fmt$0[2],
           x$2 =
-             /*<<camlinternalFormat.ml:1796:14>>*/  /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
-              /*<<camlinternalFormat.ml:1796:14>>*/ (k$0, o, rest$2);
-          /*<<camlinternalFormat.ml:1796:14>>*/ return function(_b8_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$2 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1796:14>>*/ ;
+             /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
+             (k$0, o, rest$2);
+         return function(_b8_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1796:14>>*/ ;
         }
         var
          rest$3 = fmt$0[2],
          x$3 =
-            /*<<camlinternalFormat.ml:1798:21>>*/  /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1798:21>>*/ (k$0, o, rest$3),
+            /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf(k$0, o, rest$3),
          x$4 =
             /*<<camlinternalFormat.ml:1798:14>>*/ function(_b7_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$3 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
            };
          /*<<camlinternalFormat.ml:1798:14>>*/ return function(_b6_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$4 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1798:14>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1798:14>>*/ ;
        case 3:
         var _bN_ = fmt$0[1];
         if(typeof _bN_ === "number"){
          var
           rest$4 = fmt$0[2],
           x$5 =
-             /*<<camlinternalFormat.ml:1800:14>>*/  /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
-              /*<<camlinternalFormat.ml:1800:14>>*/ (k$0, o, rest$4);
-          /*<<camlinternalFormat.ml:1800:14>>*/ return function(_b5_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$5 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1800:14>>*/ ;
+             /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
+             (k$0, o, rest$4);
+         return function(_b5_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1800:14>>*/ ;
         }
         if(0 === _bN_[0]){
          var
           rest$5 = fmt$0[2],
           x$6 =
-             /*<<camlinternalFormat.ml:1802:14>>*/  /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
-              /*<<camlinternalFormat.ml:1802:14>>*/ (k$0, o, rest$5);
-          /*<<camlinternalFormat.ml:1802:14>>*/ return function(_b4_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$6 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1802:14>>*/ ;
+             /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
+             (k$0, o, rest$5);
+         return function(_b4_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1802:14>>*/ ;
         }
         var
          rest$6 = fmt$0[2],
          x$7 =
-            /*<<camlinternalFormat.ml:1804:21>>*/  /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1804:21>>*/ (k$0, o, rest$6),
+            /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf(k$0, o, rest$6),
          x$8 =
             /*<<camlinternalFormat.ml:1804:14>>*/ function(_b3_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$7 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
            };
          /*<<camlinternalFormat.ml:1804:14>>*/ return function(_b2_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1804:14>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;} /*<<camlinternalFormat.ml:1804:14>>*/ ;
        case 4:
         var rest$7 = fmt$0[4], prec = fmt$0[3], pad = fmt$0[2];
-         /*<<camlinternalFormat.ml:1806:8>>*/ return  /*<<camlinternalFormat.ml:1806:8>>*/ fn_of_padding_precision
-                 /*<<camlinternalFormat.ml:1806:8>>*/ (k$0,
-                 o,
-                 rest$7,
-                 pad,
-                 prec) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1806:8>>*/ return fn_of_padding_precision
+                (k$0, o, rest$7, pad, prec) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 5:
         var rest$8 = fmt$0[4], prec$0 = fmt$0[3], pad$0 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1808:8>>*/ return  /*<<camlinternalFormat.ml:1808:8>>*/ fn_of_padding_precision
-                 /*<<camlinternalFormat.ml:1808:8>>*/ (k$0,
-                 o,
-                 rest$8,
-                 pad$0,
-                 prec$0) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1808:8>>*/ return fn_of_padding_precision
+                (k$0, o, rest$8, pad$0, prec$0) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 6:
         var rest$9 = fmt$0[4], prec$1 = fmt$0[3], pad$1 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1810:8>>*/ return  /*<<camlinternalFormat.ml:1810:8>>*/ fn_of_padding_precision
-                 /*<<camlinternalFormat.ml:1810:8>>*/ (k$0,
-                 o,
-                 rest$9,
-                 pad$1,
-                 prec$1) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1810:8>>*/ return fn_of_padding_precision
+                (k$0, o, rest$9, pad$1, prec$1) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 7:
         var rest$10 = fmt$0[4], prec$2 = fmt$0[3], pad$2 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1812:8>>*/ return  /*<<camlinternalFormat.ml:1812:8>>*/ fn_of_padding_precision
-                 /*<<camlinternalFormat.ml:1812:8>>*/ (k$0,
-                 o,
-                 rest$10,
-                 pad$2,
-                 prec$2) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1812:8>>*/ return fn_of_padding_precision
+                (k$0, o, rest$10, pad$2, prec$2) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 8:
         var rest$11 = fmt$0[4], prec$3 = fmt$0[3], pad$3 = fmt$0[2];
-         /*<<camlinternalFormat.ml:1814:8>>*/ return  /*<<camlinternalFormat.ml:1814:8>>*/ fn_of_padding_precision
-                 /*<<camlinternalFormat.ml:1814:8>>*/ (k$0,
-                 o,
-                 rest$11,
-                 pad$3,
-                 prec$3) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1814:8>>*/ return fn_of_padding_precision
+                (k$0, o, rest$11, pad$3, prec$3) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 9:
         var _bO_ = fmt$0[1];
         if(typeof _bO_ === "number"){
          var
           rest$12 = fmt$0[2],
           x$9 =
-             /*<<camlinternalFormat.ml:1816:14>>*/  /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
-              /*<<camlinternalFormat.ml:1816:14>>*/ (k$0, o, rest$12);
-          /*<<camlinternalFormat.ml:1816:14>>*/ return function(_b1_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$9 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1816:14>>*/ ;
+             /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
+             (k$0, o, rest$12);
+         return function(_b1_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1816:14>>*/ ;
         }
         if(0 === _bO_[0]){
          var
           rest$13 = fmt$0[2],
           x$10 =
-             /*<<camlinternalFormat.ml:1818:14>>*/  /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
-              /*<<camlinternalFormat.ml:1818:14>>*/ (k$0, o, rest$13);
-          /*<<camlinternalFormat.ml:1818:14>>*/ return function(_b0_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$10 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1818:14>>*/ ;
+             /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
+             (k$0, o, rest$13);
+         return function(_b0_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;} /*<<camlinternalFormat.ml:1818:14>>*/ ;
         }
         var
          rest$14 = fmt$0[2],
          x$11 =
-            /*<<camlinternalFormat.ml:1820:21>>*/  /*<<camlinternalFormat.ml:1820:21>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1820:21>>*/ (k$0, o, rest$14),
+            /*<<camlinternalFormat.ml:1820:21>>*/ make_iprintf
+            (k$0, o, rest$14),
          x$12 =
             /*<<camlinternalFormat.ml:1820:14>>*/ function(_bZ_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$11 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;
            };
          /*<<camlinternalFormat.ml:1820:14>>*/ return function(_bY_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1820:14>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;} /*<<camlinternalFormat.ml:1820:14>>*/ ;
        case 10:
         var rest$15 = fmt$0[1]; fmt$0 = rest$15; break;
        case 11:
@@ -21222,46 +17642,40 @@
         var
          rest$18 = fmt$0[3],
          x$13 =
-            /*<<camlinternalFormat.ml:1838:14>>*/  /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1838:14>>*/ (k$0, o, rest$18);
-         /*<<camlinternalFormat.ml:1838:14>>*/ return function(_bX_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$13 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1838:14>>*/ ;
+            /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
+            (k$0, o, rest$18);
+        return function(_bX_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1838:14>>*/ ;
        case 14:
         var rest$19 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
          var
           fmt = param[1],
-          _bW_ =
-             /*<<camlinternalFormat.ml:1842:24>>*/  /*<<camlinternalFormat.ml:1842:24>>*/ recast
-              /*<<camlinternalFormat.ml:1842:24>>*/ (fmt, fmtty);
-          /*<<camlinternalFormat.ml:1842:12>>*/ return  /*<<camlinternalFormat.ml:1842:12>>*/ make_iprintf
-                  /*<<camlinternalFormat.ml:1842:12>>*/ (k$0,
+          _bW_ =  /*<<camlinternalFormat.ml:1842:24>>*/ recast(fmt, fmtty);
+          /*<<camlinternalFormat.ml:1842:12>>*/ return make_iprintf
+                 (k$0,
                   o,
-                   /*<<camlinternalFormat.ml:1842:12>>*/ caml_call2
-                    /*<<camlinternalFormat.ml:1842:12>>*/ (CamlinternalFormatBasics
-                     [3],
-                    _bW_,
-                    rest$19)) /*<<camlinternalFormat.ml:1842:48>>*/ ; /*<<camlinternalFormat.ml:1842:48>>*/ } /*<<camlinternalFormat.ml:1840:8>>*/ ;
+                  caml_call2(CamlinternalFormatBasics[3], _bW_, rest$19)) /*<<camlinternalFormat.ml:1842:48>>*/ ;} /*<<camlinternalFormat.ml:1840:8>>*/ ;
        case 15:
         var
          rest$20 = fmt$0[1],
          x$14 =
-            /*<<camlinternalFormat.ml:1822:21>>*/  /*<<camlinternalFormat.ml:1822:21>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1822:21>>*/ (k$0, o, rest$20),
+            /*<<camlinternalFormat.ml:1822:21>>*/ make_iprintf
+            (k$0, o, rest$20),
          x$15 =
             /*<<camlinternalFormat.ml:1822:14>>*/ function(_bV_){
-             /*<<camlinternalFormat.ml:1784:16>>*/ return x$14 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+             /*<<camlinternalFormat.ml:1784:16>>*/ return x$14;
            };
          /*<<camlinternalFormat.ml:1822:14>>*/ return function(_bU_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$15 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1822:14>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;} /*<<camlinternalFormat.ml:1822:14>>*/ ;
        case 16:
         var
          rest$21 = fmt$0[1],
          x$16 =
-            /*<<camlinternalFormat.ml:1824:14>>*/  /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1824:14>>*/ (k$0, o, rest$21);
-         /*<<camlinternalFormat.ml:1824:14>>*/ return function(_bT_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$16 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1824:14>>*/ ;
+            /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
+            (k$0, o, rest$21);
+        return function(_bT_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$16;} /*<<camlinternalFormat.ml:1824:14>>*/ ;
        case 17:
         var rest$22 = fmt$0[2]; fmt$0 = rest$22; break;
        case 18:
@@ -21274,7 +17688,7 @@
             function(koc){
               /*<<camlinternalFormat.ml:1854:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1854:56>>*/ ;
-             /*<<camlinternalFormat.ml:1854:56>>*/ };
+            };
          k$0 = k$1;
          fmt$0 = fmt$1;
         }
@@ -21286,65 +17700,59 @@
             function(koc){
               /*<<camlinternalFormat.ml:1856:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1856:56>>*/ ;
-             /*<<camlinternalFormat.ml:1856:56>>*/ };
+            };
          k$0 = k$2;
          fmt$0 = fmt$2;
         }
         break;
        case 19:
-         /*<<camlinternalFormat.ml:1830:8>>*/ throw  /*<<camlinternalFormat.ml:1830:8>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:1830:8>>*/ ([0, Assert_failure, _w_],
-                1);
+         /*<<camlinternalFormat.ml:1830:8>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _w_], 1);
        case 20:
         var
          rest$25 = fmt$0[3],
          x$17 =
-            /*<<camlinternalFormat.ml:1844:14>>*/  /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1844:14>>*/ (k$0, o, rest$25);
-         /*<<camlinternalFormat.ml:1844:14>>*/ return function(_bS_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$17 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1844:14>>*/ ;
+            /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
+            (k$0, o, rest$25);
+        return function(_bS_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;} /*<<camlinternalFormat.ml:1844:14>>*/ ;
        case 21:
         var
          rest$26 = fmt$0[2],
          x$18 =
-            /*<<camlinternalFormat.ml:1846:14>>*/  /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1846:14>>*/ (k$0, o, rest$26);
-         /*<<camlinternalFormat.ml:1846:14>>*/ return function(_bR_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$18 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1846:14>>*/ ;
+            /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
+            (k$0, o, rest$26);
+        return function(_bR_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;} /*<<camlinternalFormat.ml:1846:14>>*/ ;
        case 22:
         var
          rest$27 = fmt$0[1],
          x$19 =
-            /*<<camlinternalFormat.ml:1848:14>>*/  /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
-             /*<<camlinternalFormat.ml:1848:14>>*/ (k$0, o, rest$27);
-         /*<<camlinternalFormat.ml:1848:14>>*/ return function(_bQ_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$19 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1848:14>>*/ ;
+            /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
+            (k$0, o, rest$27);
+        return function(_bQ_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$19;} /*<<camlinternalFormat.ml:1848:14>>*/ ;
        case 23:
         var rest$28 = fmt$0[2], ign = fmt$0[1];
-         /*<<camlinternalFormat.ml:1850:8>>*/ return  /*<<camlinternalFormat.ml:1850:8>>*/ make_ignored_param
-                 /*<<camlinternalFormat.ml:1850:8>>*/ (function(param){
+         /*<<camlinternalFormat.ml:1850:8>>*/ return make_ignored_param
+                (function(param){
                    /*<<camlinternalFormat.ml:1850:37>>*/ return caml_call1
                           (k$0, o) /*<<camlinternalFormat.ml:1850:40>>*/ ;
-                  /*<<camlinternalFormat.ml:1850:40>>*/ },
+                 },
                  0,
                  ign,
                  rest$28) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        default:
         var rest$29 = fmt$0[3], arity = fmt$0[1];
          /*<<camlinternalFormat.ml:1826:8>>*/ if(counter >= 50)
-          /*<<camlinternalFormat.ml:1826:8>>*/ return  /*<<camlinternalFormat.ml:1826:8>>*/ caml_trampoline_return
-                  /*<<camlinternalFormat.ml:1826:8>>*/ (fn_of_custom_arity$0,
-                  [0, k$0, o, rest$29, arity]) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         return caml_trampoline_return
+                 (fn_of_custom_arity$0, [0, k$0, o, rest$29, arity]) /*<<camlinternalFormat.ml:1858:11>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1826:8>>*/ return  /*<<camlinternalFormat.ml:1826:8>>*/ fn_of_custom_arity$0
-                 /*<<camlinternalFormat.ml:1826:8>>*/ (counter$0,
-                 k$0,
-                 o,
-                 rest$29,
-                 arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+         /*<<camlinternalFormat.ml:1826:8>>*/ return fn_of_custom_arity$0
+                (counter$0, k$0, o, rest$29, arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
      }
     }
-    /*<<camlinternalFormat.ml:1858:11>>*/ }
+   }
    function make_iprintf(k, o, fmt){
      /*<<?>>*/ return caml_trampoline(make_iprintf$0(0, k, o, fmt));
    }
@@ -21352,115 +17760,90 @@
      /*<<camlinternalFormat.ml:1863:26>>*/ if(typeof pad === "number"){
      if(typeof prec !== "number"){
       var
-       x$2 =
-          /*<<camlinternalFormat.ml:1867:14>>*/  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf
-           /*<<camlinternalFormat.ml:1867:14>>*/ (k, o, fmt);
-       /*<<camlinternalFormat.ml:1867:14>>*/ return function(_bL_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$2 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1867:14>>*/ ;
+       x$2 =  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf(k, o, fmt);
+      return function(_bL_){
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1867:14>>*/ ;
      }
      if(prec){
       var
-       x =
-          /*<<camlinternalFormat.ml:1869:21>>*/  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf
-           /*<<camlinternalFormat.ml:1869:21>>*/ (k, o, fmt),
+       x =  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf(k, o, fmt),
        x$0 =
           /*<<camlinternalFormat.ml:1869:14>>*/ function(_bK_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x;
          };
        /*<<camlinternalFormat.ml:1869:14>>*/ return function(_bJ_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$0 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1869:14>>*/ ;
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1869:14>>*/ ;
      }
-     var
-      x$1 =
-         /*<<camlinternalFormat.ml:1865:14>>*/  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf
-          /*<<camlinternalFormat.ml:1865:14>>*/ (k, o, fmt);
-      /*<<camlinternalFormat.ml:1865:14>>*/ return function(_bI_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$1 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1865:14>>*/ ;
+     var x$1 =  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf(k, o, fmt);
+     return function(_bI_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1865:14>>*/ ;
     }
     if(0 === pad[0]){
      if(typeof prec !== "number"){
       var
-       x$6 =
-          /*<<camlinternalFormat.ml:1873:14>>*/  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf
-           /*<<camlinternalFormat.ml:1873:14>>*/ (k, o, fmt);
-       /*<<camlinternalFormat.ml:1873:14>>*/ return function(_bH_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$6 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1873:14>>*/ ;
+       x$6 =  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf(k, o, fmt);
+      return function(_bH_){
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1873:14>>*/ ;
      }
      if(prec){
       var
-       x$3 =
-          /*<<camlinternalFormat.ml:1875:21>>*/  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf
-           /*<<camlinternalFormat.ml:1875:21>>*/ (k, o, fmt),
+       x$3 =  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf(k, o, fmt),
        x$4 =
           /*<<camlinternalFormat.ml:1875:14>>*/ function(_bG_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$3 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
          };
        /*<<camlinternalFormat.ml:1875:14>>*/ return function(_bF_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$4 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1875:14>>*/ ;
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1875:14>>*/ ;
      }
-     var
-      x$5 =
-         /*<<camlinternalFormat.ml:1871:14>>*/  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf
-          /*<<camlinternalFormat.ml:1871:14>>*/ (k, o, fmt);
-      /*<<camlinternalFormat.ml:1871:14>>*/ return function(_bE_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$5 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1871:14>>*/ ;
+     var x$5 =  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf(k, o, fmt);
+     return function(_bE_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1871:14>>*/ ;
     }
     if(typeof prec !== "number"){
      var
-      x$12 =
-         /*<<camlinternalFormat.ml:1879:21>>*/  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf
-          /*<<camlinternalFormat.ml:1879:21>>*/ (k, o, fmt),
+      x$12 =  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf(k, o, fmt),
       x$13 =
          /*<<camlinternalFormat.ml:1879:14>>*/ function(_bD_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;
         };
       /*<<camlinternalFormat.ml:1879:14>>*/ return function(_bC_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$13 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1879:14>>*/ ;
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1879:14>>*/ ;
     }
     if(prec){
      var
-      x$7 =
-         /*<<camlinternalFormat.ml:1881:28>>*/  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf
-          /*<<camlinternalFormat.ml:1881:28>>*/ (k, o, fmt),
+      x$7 =  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf(k, o, fmt),
       x$8 =
          /*<<camlinternalFormat.ml:1881:21>>*/ function(_bB_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$7 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
         },
       x$9 =
          /*<<camlinternalFormat.ml:1881:14>>*/ function(_bA_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;
         };
       /*<<camlinternalFormat.ml:1881:14>>*/ return function(_bz_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$9 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1881:14>>*/ ;
-    }
-    var
-     x$10 =
-        /*<<camlinternalFormat.ml:1877:21>>*/  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf
-         /*<<camlinternalFormat.ml:1877:21>>*/ (k, o, fmt);
-    function x$11(_by_){
-      /*<<camlinternalFormat.ml:1784:16>>*/ return x$10 /*<<camlinternalFormat.ml:1784:16>>*/ ;
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1881:14>>*/ ;
     }
+    var x$10 =  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf(k, o, fmt);
+    function x$11(_by_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;}
      /*<<camlinternalFormat.ml:1877:14>>*/ return function(_bx_){
-      /*<<camlinternalFormat.ml:1784:16>>*/ return x$11 /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1877:14>>*/ ;
+      /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;} /*<<camlinternalFormat.ml:1877:14>>*/ ;
     /*<<camlinternalFormat.ml:1881:52>>*/ }
    function fn_of_custom_arity$0(counter, k, o, fmt, param){
      /*<<camlinternalFormat.ml:1882:4>>*/ if(param){
      var
       arity = param[1],
       x =
-         /*<<camlinternalFormat.ml:1889:14>>*/  /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
-          /*<<camlinternalFormat.ml:1889:14>>*/ (k, o, fmt, arity);
-      /*<<camlinternalFormat.ml:1889:14>>*/ return function(_bw_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x /*<<camlinternalFormat.ml:1784:16>>*/ ;} /*<<camlinternalFormat.ml:1889:14>>*/ ;
+         /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
+         (k, o, fmt, arity);
+     return function(_bw_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1889:14>>*/ ;
     }
      /*<<camlinternalFormat.ml:1887:8>>*/ if(counter >= 50)
-      /*<<camlinternalFormat.ml:1887:8>>*/ return  /*<<camlinternalFormat.ml:1887:8>>*/ caml_trampoline_return
-              /*<<camlinternalFormat.ml:1887:8>>*/ (make_iprintf$0,
-              [0, k, o, fmt]) /*<<camlinternalFormat.ml:1889:48>>*/ ;
+     return caml_trampoline_return(make_iprintf$0, [0, k, o, fmt]) /*<<camlinternalFormat.ml:1889:48>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1887:8>>*/ return  /*<<camlinternalFormat.ml:1887:8>>*/ make_iprintf$0
-             /*<<camlinternalFormat.ml:1887:8>>*/ (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
-    /*<<camlinternalFormat.ml:1889:48>>*/ }
+     /*<<camlinternalFormat.ml:1887:8>>*/ return make_iprintf$0
+            (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
+   }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
             (fn_of_custom_arity$0(0, k, o, fmt, param));
@@ -21469,278 +17852,205 @@
     var acc$0 = acc;
      /*<<camlinternalFormat.ml:1897:27>>*/ for(;;){
      if(typeof acc$0 === "number")
-       /*<<camlinternalFormat.ml:1912:32>>*/ return 0 /*<<camlinternalFormat.ml:1912:32>>*/ ;
+       /*<<camlinternalFormat.ml:1912:32>>*/ return 0;
      switch(acc$0[0]){
        case 0:
         var
          fmting_lit = acc$0[2],
          p = acc$0[1],
          s =
-            /*<<camlinternalFormat.ml:1899:12>>*/  /*<<camlinternalFormat.ml:1899:12>>*/ string_of_formatting_lit
-             /*<<camlinternalFormat.ml:1899:12>>*/ (fmting_lit);
-         /*<<camlinternalFormat.ml:1900:4>>*/  /*<<camlinternalFormat.ml:1900:4>>*/ output_acc
-          /*<<camlinternalFormat.ml:1900:4>>*/ (o, p);
-         /*<<camlinternalFormat.ml:1900:4>>*/ return  /*<<camlinternalFormat.ml:1900:4>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1900:4>>*/ (Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+            /*<<camlinternalFormat.ml:1899:12>>*/ string_of_formatting_lit
+            (fmting_lit);
+         /*<<camlinternalFormat.ml:1900:4>>*/ output_acc(o, p);
+        return caml_call2(Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
-          /*<<camlinternalFormat.ml:1902:4>>*/  /*<<camlinternalFormat.ml:1902:4>>*/ output_acc
-           /*<<camlinternalFormat.ml:1902:4>>*/ (o, p$0);
-          /*<<camlinternalFormat.ml:1902:20>>*/  /*<<camlinternalFormat.ml:1902:20>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1902:20>>*/ (Stdlib[66], o, cst$18);
+          /*<<camlinternalFormat.ml:1902:4>>*/ output_acc(o, p$0);
+          /*<<camlinternalFormat.ml:1902:20>>*/ caml_call2
+          (Stdlib[66], o, cst$18);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
-          /*<<camlinternalFormat.ml:1904:4>>*/  /*<<camlinternalFormat.ml:1904:4>>*/ output_acc
-           /*<<camlinternalFormat.ml:1904:4>>*/ (o, p$0);
-          /*<<camlinternalFormat.ml:1904:20>>*/  /*<<camlinternalFormat.ml:1904:20>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1904:20>>*/ (Stdlib[66], o, cst$19);
+          /*<<camlinternalFormat.ml:1904:4>>*/ output_acc(o, p$0);
+          /*<<camlinternalFormat.ml:1904:20>>*/ caml_call2
+          (Stdlib[66], o, cst$19);
          acc$0 = acc$2;
         }
         break;
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
-         /*<<camlinternalFormat.ml:1909:32>>*/  /*<<camlinternalFormat.ml:1909:32>>*/ output_acc
-          /*<<camlinternalFormat.ml:1909:32>>*/ (o, p$3);
-         /*<<camlinternalFormat.ml:1909:32>>*/ return  /*<<camlinternalFormat.ml:1909:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1909:32>>*/ (f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1909:32>>*/ output_acc(o, p$3);
+        return caml_call1(f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 7:
         var p$4 = acc$0[1];
-         /*<<camlinternalFormat.ml:1910:32>>*/  /*<<camlinternalFormat.ml:1910:32>>*/ output_acc
-          /*<<camlinternalFormat.ml:1910:32>>*/ (o, p$4);
-         /*<<camlinternalFormat.ml:1910:32>>*/ return  /*<<camlinternalFormat.ml:1910:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1910:32>>*/ (Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1910:32>>*/ output_acc(o, p$4);
+        return caml_call1(Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 8:
         var msg = acc$0[2], p$5 = acc$0[1];
-         /*<<camlinternalFormat.ml:1911:32>>*/  /*<<camlinternalFormat.ml:1911:32>>*/ output_acc
-          /*<<camlinternalFormat.ml:1911:32>>*/ (o, p$5);
-         /*<<camlinternalFormat.ml:1911:32>>*/ return  /*<<camlinternalFormat.ml:1911:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1911:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1911:32>>*/ output_acc(o, p$5);
+        return caml_call1(Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
-         /*<<camlinternalFormat.ml:1906:32>>*/  /*<<camlinternalFormat.ml:1906:32>>*/ output_acc
-          /*<<camlinternalFormat.ml:1906:32>>*/ (o, p$1);
-         /*<<camlinternalFormat.ml:1906:32>>*/ return  /*<<camlinternalFormat.ml:1906:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1906:32>>*/ (Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1906:32>>*/ output_acc(o, p$1);
+        return caml_call2(Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
-         /*<<camlinternalFormat.ml:1908:32>>*/  /*<<camlinternalFormat.ml:1908:32>>*/ output_acc
-          /*<<camlinternalFormat.ml:1908:32>>*/ (o, p$2);
-         /*<<camlinternalFormat.ml:1908:32>>*/ return  /*<<camlinternalFormat.ml:1908:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1908:32>>*/ (Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1908:32>>*/ output_acc(o, p$2);
+        return caml_call2(Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
      }
     }
-    /*<<camlinternalFormat.ml:1912:34>>*/ }
+   }
    function bufput_acc(b, acc){
     var acc$0 = acc;
      /*<<camlinternalFormat.ml:1917:27>>*/ for(;;){
      if(typeof acc$0 === "number")
-       /*<<camlinternalFormat.ml:1932:32>>*/ return 0 /*<<camlinternalFormat.ml:1932:32>>*/ ;
+       /*<<camlinternalFormat.ml:1932:32>>*/ return 0;
      switch(acc$0[0]){
        case 0:
         var
          fmting_lit = acc$0[2],
          p = acc$0[1],
          s =
-            /*<<camlinternalFormat.ml:1919:12>>*/  /*<<camlinternalFormat.ml:1919:12>>*/ string_of_formatting_lit
-             /*<<camlinternalFormat.ml:1919:12>>*/ (fmting_lit);
-         /*<<camlinternalFormat.ml:1920:4>>*/  /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc
-          /*<<camlinternalFormat.ml:1920:4>>*/ (b, p);
-         /*<<camlinternalFormat.ml:1920:4>>*/ return  /*<<camlinternalFormat.ml:1920:4>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1920:4>>*/ (Stdlib_Buffer[16],
-                 b,
-                 s) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+            /*<<camlinternalFormat.ml:1919:12>>*/ string_of_formatting_lit
+            (fmting_lit);
+         /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc(b, p);
+        return caml_call2(Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
-          /*<<camlinternalFormat.ml:1922:4>>*/  /*<<camlinternalFormat.ml:1922:4>>*/ bufput_acc
-           /*<<camlinternalFormat.ml:1922:4>>*/ (b, p$0);
-          /*<<camlinternalFormat.ml:1922:20>>*/  /*<<camlinternalFormat.ml:1922:20>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1922:20>>*/ (Stdlib_Buffer[16],
-           b,
-           cst$20);
+          /*<<camlinternalFormat.ml:1922:4>>*/ bufput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1922:20>>*/ caml_call2
+          (Stdlib_Buffer[16], b, cst$20);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
-          /*<<camlinternalFormat.ml:1924:4>>*/  /*<<camlinternalFormat.ml:1924:4>>*/ bufput_acc
-           /*<<camlinternalFormat.ml:1924:4>>*/ (b, p$0);
-          /*<<camlinternalFormat.ml:1924:20>>*/  /*<<camlinternalFormat.ml:1924:20>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1924:20>>*/ (Stdlib_Buffer[16],
-           b,
-           cst$21);
+          /*<<camlinternalFormat.ml:1924:4>>*/ bufput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1924:20>>*/ caml_call2
+          (Stdlib_Buffer[16], b, cst$21);
          acc$0 = acc$2;
         }
         break;
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
-         /*<<camlinternalFormat.ml:1929:32>>*/  /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc
-          /*<<camlinternalFormat.ml:1929:32>>*/ (b, p$3);
-         /*<<camlinternalFormat.ml:1929:32>>*/ return  /*<<camlinternalFormat.ml:1929:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1929:32>>*/ (f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc(b, p$3);
+        return caml_call1(f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
-         /*<<camlinternalFormat.ml:1931:32>>*/  /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc
-          /*<<camlinternalFormat.ml:1931:32>>*/ (b, p$4);
-         /*<<camlinternalFormat.ml:1931:32>>*/ return  /*<<camlinternalFormat.ml:1931:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1931:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc(b, p$4);
+        return caml_call1(Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
-         /*<<camlinternalFormat.ml:1926:32>>*/  /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc
-          /*<<camlinternalFormat.ml:1926:32>>*/ (b, p$1);
-         /*<<camlinternalFormat.ml:1926:32>>*/ return  /*<<camlinternalFormat.ml:1926:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1926:32>>*/ (Stdlib_Buffer[16],
-                 b,
-                 s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc(b, p$1);
+        return caml_call2(Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
-         /*<<camlinternalFormat.ml:1928:32>>*/  /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc
-          /*<<camlinternalFormat.ml:1928:32>>*/ (b, p$2);
-         /*<<camlinternalFormat.ml:1928:32>>*/ return  /*<<camlinternalFormat.ml:1928:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1928:32>>*/ (Stdlib_Buffer[12],
-                 b,
-                 c) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc(b, p$2);
+        return caml_call2(Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1932:34>>*/ ;
      }
     }
-    /*<<camlinternalFormat.ml:1932:34>>*/ }
+   }
    function strput_acc(b, acc){
     var acc$0 = acc;
      /*<<camlinternalFormat.ml:1938:27>>*/ for(;;){
      if(typeof acc$0 === "number")
-       /*<<camlinternalFormat.ml:1953:32>>*/ return 0 /*<<camlinternalFormat.ml:1953:32>>*/ ;
+       /*<<camlinternalFormat.ml:1953:32>>*/ return 0;
      switch(acc$0[0]){
        case 0:
         var
          fmting_lit = acc$0[2],
          p = acc$0[1],
          s =
-            /*<<camlinternalFormat.ml:1940:12>>*/  /*<<camlinternalFormat.ml:1940:12>>*/ string_of_formatting_lit
-             /*<<camlinternalFormat.ml:1940:12>>*/ (fmting_lit);
-         /*<<camlinternalFormat.ml:1941:4>>*/  /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc
-          /*<<camlinternalFormat.ml:1941:4>>*/ (b, p);
-         /*<<camlinternalFormat.ml:1941:4>>*/ return  /*<<camlinternalFormat.ml:1941:4>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1941:4>>*/ (Stdlib_Buffer[16],
-                 b,
-                 s) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+            /*<<camlinternalFormat.ml:1940:12>>*/ string_of_formatting_lit
+            (fmting_lit);
+         /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc(b, p);
+        return caml_call2(Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
-          /*<<camlinternalFormat.ml:1943:4>>*/  /*<<camlinternalFormat.ml:1943:4>>*/ strput_acc
-           /*<<camlinternalFormat.ml:1943:4>>*/ (b, p$0);
-          /*<<camlinternalFormat.ml:1943:20>>*/  /*<<camlinternalFormat.ml:1943:20>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1943:20>>*/ (Stdlib_Buffer[16],
-           b,
-           cst$22);
+          /*<<camlinternalFormat.ml:1943:4>>*/ strput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1943:20>>*/ caml_call2
+          (Stdlib_Buffer[16], b, cst$22);
          acc$0 = acc$1;
         }
         else{
          var acc$2 = match[1];
-          /*<<camlinternalFormat.ml:1945:4>>*/  /*<<camlinternalFormat.ml:1945:4>>*/ strput_acc
-           /*<<camlinternalFormat.ml:1945:4>>*/ (b, p$0);
-          /*<<camlinternalFormat.ml:1945:20>>*/  /*<<camlinternalFormat.ml:1945:20>>*/ caml_call2
-           /*<<camlinternalFormat.ml:1945:20>>*/ (Stdlib_Buffer[16],
-           b,
-           cst$23);
+          /*<<camlinternalFormat.ml:1945:4>>*/ strput_acc(b, p$0);
+          /*<<camlinternalFormat.ml:1945:20>>*/ caml_call2
+          (Stdlib_Buffer[16], b, cst$23);
          acc$0 = acc$2;
         }
         break;
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
-         /*<<camlinternalFormat.ml:1950:32>>*/  /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc
-          /*<<camlinternalFormat.ml:1950:32>>*/ (b, p$3);
-        var
-         _bv_ =
-            /*<<camlinternalFormat.ml:1950:68>>*/  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1
-             /*<<camlinternalFormat.ml:1950:68>>*/ (f, 0);
-         /*<<camlinternalFormat.ml:1950:68>>*/ return  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1950:68>>*/ (Stdlib_Buffer[16],
-                 b,
-                 _bv_) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc(b, p$3);
+        var _bv_ =  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1(f, 0);
+        return caml_call2(Stdlib_Buffer[16], b, _bv_) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
-         /*<<camlinternalFormat.ml:1952:32>>*/  /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc
-          /*<<camlinternalFormat.ml:1952:32>>*/ (b, p$4);
-         /*<<camlinternalFormat.ml:1952:32>>*/ return  /*<<camlinternalFormat.ml:1952:32>>*/ caml_call1
-                 /*<<camlinternalFormat.ml:1952:32>>*/ (Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc(b, p$4);
+        return caml_call1(Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
-         /*<<camlinternalFormat.ml:1947:32>>*/  /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc
-          /*<<camlinternalFormat.ml:1947:32>>*/ (b, p$1);
-         /*<<camlinternalFormat.ml:1947:32>>*/ return  /*<<camlinternalFormat.ml:1947:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1947:32>>*/ (Stdlib_Buffer[16],
-                 b,
-                 s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc(b, p$1);
+        return caml_call2(Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
-         /*<<camlinternalFormat.ml:1949:32>>*/  /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc
-          /*<<camlinternalFormat.ml:1949:32>>*/ (b, p$2);
-         /*<<camlinternalFormat.ml:1949:32>>*/ return  /*<<camlinternalFormat.ml:1949:32>>*/ caml_call2
-                 /*<<camlinternalFormat.ml:1949:32>>*/ (Stdlib_Buffer[12],
-                 b,
-                 c) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc(b, p$2);
+        return caml_call2(Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1953:34>>*/ ;
      }
     }
-    /*<<camlinternalFormat.ml:1953:34>>*/ }
+   }
    function failwith_message(param){
     var
      fmt = param[1],
      buf =
-        /*<<camlinternalFormat.ml:1960:12>>*/  /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
-         /*<<camlinternalFormat.ml:1960:12>>*/ (Stdlib_Buffer[1], 256);
+        /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
+        (Stdlib_Buffer[1], 256);
     function k(acc){
-      /*<<camlinternalFormat.ml:1961:14>>*/  /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc
-       /*<<camlinternalFormat.ml:1961:14>>*/ (buf, acc);
+      /*<<camlinternalFormat.ml:1961:14>>*/ strput_acc(buf, acc);
      var
       _bu_ =
-         /*<<camlinternalFormat.ml:1961:43>>*/  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
-          /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib_Buffer[2], buf);
-      /*<<camlinternalFormat.ml:1961:43>>*/ return  /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1961:43>>*/ (Stdlib[2], _bu_) /*<<camlinternalFormat.ml:1961:64>>*/ ;
-     /*<<camlinternalFormat.ml:1961:64>>*/ }
-     /*<<camlinternalFormat.ml:1962:2>>*/ return  /*<<camlinternalFormat.ml:1962:2>>*/ make_printf
-             /*<<camlinternalFormat.ml:1962:2>>*/ (k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
-    /*<<camlinternalFormat.ml:1962:30>>*/ }
+         /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
+         (Stdlib_Buffer[2], buf);
+     return caml_call1(Stdlib[2], _bu_) /*<<camlinternalFormat.ml:1961:64>>*/ ;
+    }
+     /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
+   }
    function open_box_of_string(str){
      /*<<camlinternalFormat.ml:1969:2>>*/ if(str === cst$43)
-      /*<<camlinternalFormat.ml:1969:19>>*/ return _x_ /*<<camlinternalFormat.ml:1969:19>>*/ ;
+      /*<<camlinternalFormat.ml:1969:19>>*/ return _x_;
     var len = caml_ml_string_length(str);
     function invalid_box(param){
       /*<<camlinternalFormat.ml:1971:25>>*/ return  /*<<camlinternalFormat.ml:1971:4>>*/ caml_call1
-              /*<<camlinternalFormat.ml:1971:4>>*/ ( /*<<camlinternalFormat.ml:1971:4>>*/ failwith_message
-                /*<<camlinternalFormat.ml:1971:4>>*/ (_y_),
-              str) /*<<camlinternalFormat.ml:1971:74>>*/ ;
-     /*<<camlinternalFormat.ml:1971:74>>*/ }
+             (failwith_message(_y_), str) /*<<camlinternalFormat.ml:1971:74>>*/ ;
+    }
     function parse_spaces(i){
      var i$0 = i;
       /*<<camlinternalFormat.ml:1973:6>>*/ for(;;){
-      if(i$0 === len)
-        /*<<camlinternalFormat.ml:1973:22>>*/ return i$0 /*<<camlinternalFormat.ml:1973:22>>*/ ;
+      if(i$0 === len)  /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
       var
        match =
-          /*<<camlinternalFormat.ml:1974:14>>*/  /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:1974:14>>*/ (str, i$0);
+          /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
       if(9 !== match && 32 !== match)
-        /*<<camlinternalFormat.ml:1976:15>>*/ return i$0 /*<<camlinternalFormat.ml:1976:15>>*/ ;
+        /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
       var i$1 =  /*<<camlinternalFormat.ml:1975:24>>*/ i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<camlinternalFormat.ml:1976:16>>*/ }
-    var
-     wstart =
-        /*<<camlinternalFormat.ml:1987:17>>*/  /*<<camlinternalFormat.ml:1987:17>>*/ parse_spaces
-         /*<<camlinternalFormat.ml:1987:17>>*/ (0);
+    var wstart =  /*<<camlinternalFormat.ml:1987:17>>*/ parse_spaces(0);
     a:
     b:
     {
@@ -21750,8 +18060,7 @@
       if
        (25
         <
-          /*<<camlinternalFormat.ml:1979:14>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:1979:14>>*/ (str, wend)
+          /*<<camlinternalFormat.ml:1979:14>>*/ caml_string_get(str, wend)
          - 97
          >>> 0)
        break;
@@ -21762,14 +18071,9 @@
     }
     var
      box_name =
-        /*<<camlinternalFormat.ml:1989:19>>*/  /*<<camlinternalFormat.ml:1989:19>>*/ caml_call3
-         /*<<camlinternalFormat.ml:1989:19>>*/ (Stdlib_String[16],
-         str,
-         wstart,
-         wend - wstart | 0),
-     nstart =
-        /*<<camlinternalFormat.ml:1990:17>>*/  /*<<camlinternalFormat.ml:1990:17>>*/ parse_spaces
-         /*<<camlinternalFormat.ml:1990:17>>*/ (wend);
+        /*<<camlinternalFormat.ml:1989:19>>*/ caml_call3
+        (Stdlib_String[16], str, wstart, wend - wstart | 0),
+     nstart =  /*<<camlinternalFormat.ml:1990:17>>*/ parse_spaces(wend);
     a:
     b:
     {
@@ -21778,8 +18082,7 @@
       if(nend === len) break b;
       var
        match =
-          /*<<camlinternalFormat.ml:1984:14>>*/  /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:1984:14>>*/ (str, nend);
+          /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get(str, nend);
       if(48 <= match){if(58 <= match) break;} else if(45 !== match) break;
       var j$0 =  /*<<camlinternalFormat.ml:1985:30>>*/ nend + 1 | 0;
       nend = j$0;
@@ -21792,29 +18095,18 @@
       /*<<camlinternalFormat.ml:1994:8>>*/ try{
       var
        _bs_ =
-          /*<<camlinternalFormat.ml:1994:12>>*/  /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
-           /*<<camlinternalFormat.ml:1994:12>>*/ ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
-             /*<<camlinternalFormat.ml:1994:26>>*/ (Stdlib_String[16],
-             str,
-             nstart,
-             nend - nstart | 0)),
+          /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
+          ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
+            (Stdlib_String[16], str, nstart, nend - nstart | 0)),
        indent = _bs_;
      }
      catch(_bt_){
       var _br_ = caml_wrap_exception(_bt_);
       if(_br_[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(_br_, 0);
-      var
-       indent =
-          /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box
-           /*<<camlinternalFormat.ml:1995:26>>*/ (0);
+      var indent =  /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box(0);
      }
-    var
-     exp_end =
-        /*<<camlinternalFormat.ml:1996:18>>*/  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces
-         /*<<camlinternalFormat.ml:1996:18>>*/ (nend);
-    if(exp_end !== len)
-      /*<<camlinternalFormat.ml:1997:27>>*/  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box
-       /*<<camlinternalFormat.ml:1997:27>>*/ (0);
+    var exp_end =  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces(nend);
+    if(exp_end !== len)  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
     a:
     {
      if(box_name !== cst$43 && box_name !== "b"){
@@ -21822,10 +18114,7 @@
       if(box_name === "hov"){var box_type = 3; break a;}
       if(box_name === "hv"){var box_type = 2; break a;}
       if(box_name !== "v"){
-       var
-        box_type =
-           /*<<camlinternalFormat.ml:2004:20>>*/ invalid_box
-            /*<<camlinternalFormat.ml:2004:20>>*/ (0);
+       var box_type =  /*<<camlinternalFormat.ml:2004:20>>*/ invalid_box(0);
        break a;
       }
       var box_type = 1;
@@ -21833,17 +18122,17 @@
      }
      var box_type = 4;
     }
-     /*<<camlinternalFormat.ml:2005:4>>*/ return [0, indent, box_type] /*<<camlinternalFormat.ml:2005:4>>*/ ;
+     /*<<camlinternalFormat.ml:2005:4>>*/ return [0, indent, box_type];
     /*<<camlinternalFormat.ml:2005:22>>*/ }
    function make_padding_fmt_ebb(pad, fmt){
      /*<<camlinternalFormat.ml:2015:15>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:2016:26>>*/ return [0, 0, fmt] /*<<camlinternalFormat.ml:2016:26>>*/ ;
+      /*<<camlinternalFormat.ml:2016:26>>*/ return [0, 0, fmt];
     if(0 === pad[0]){
      var w = pad[2], s = pad[1];
-      /*<<camlinternalFormat.ml:2017:26>>*/ return [0, [0, s, w], fmt] /*<<camlinternalFormat.ml:2017:26>>*/ ;
+      /*<<camlinternalFormat.ml:2017:26>>*/ return [0, [0, s, w], fmt];
     }
     var s$0 = pad[1];
-     /*<<camlinternalFormat.ml:2018:26>>*/ return [0, [1, s$0], fmt] /*<<camlinternalFormat.ml:2018:26>>*/ ;
+     /*<<camlinternalFormat.ml:2018:26>>*/ return [0, [1, s$0], fmt];
     /*<<camlinternalFormat.ml:2018:62>>*/ }
    function make_padprec_fmt_ebb(pad, prec, fmt){
      /*<<camlinternalFormat.ml:2038:2>>*/ if(typeof prec === "number")
@@ -21852,13 +18141,13 @@
      var p = prec[1], match = [0, [0, p]];
     var prec$0 = match[1];
      /*<<camlinternalFormat.ml:2039:2>>*/ if(typeof pad === "number")
-      /*<<camlinternalFormat.ml:2040:26>>*/ return [0, 0, prec$0, fmt] /*<<camlinternalFormat.ml:2040:26>>*/ ;
+      /*<<camlinternalFormat.ml:2040:26>>*/ return [0, 0, prec$0, fmt];
      /*<<camlinternalFormat.ml:2039:2>>*/ if(0 === pad[0]){
      var w = pad[2], s = pad[1];
-      /*<<camlinternalFormat.ml:2041:26>>*/ return [0, [0, s, w], prec$0, fmt] /*<<camlinternalFormat.ml:2041:26>>*/ ;
+      /*<<camlinternalFormat.ml:2041:26>>*/ return [0, [0, s, w], prec$0, fmt];
     }
     var s$0 = pad[1];
-     /*<<camlinternalFormat.ml:2042:26>>*/ return [0, [1, s$0], prec$0, fmt] /*<<camlinternalFormat.ml:2042:26>>*/ ;
+     /*<<camlinternalFormat.ml:2042:26>>*/ return [0, [1, s$0], prec$0, fmt];
     /*<<camlinternalFormat.ml:2042:69>>*/ }
    function fmt_ebb_of_string(legacy_behavior, str){
      /*<<?>>*/ if(legacy_behavior)
@@ -21866,43 +18155,28 @@
     else
      var legacy_behavior$0 = 1;
     function invalid_format_message(str_ind, msg){
-      /*<<camlinternalFormat.ml:2084:4>>*/ return  /*<<camlinternalFormat.ml:2084:4>>*/ caml_call3
-              /*<<camlinternalFormat.ml:2084:4>>*/ ( /*<<camlinternalFormat.ml:2084:4>>*/ failwith_message
-                /*<<camlinternalFormat.ml:2084:4>>*/ (_z_),
-              str,
-              str_ind,
-              msg) /*<<camlinternalFormat.ml:2086:21>>*/ ;
-     /*<<camlinternalFormat.ml:2086:21>>*/ }
+      /*<<camlinternalFormat.ml:2084:4>>*/ return caml_call3
+             (failwith_message(_z_), str, str_ind, msg) /*<<camlinternalFormat.ml:2086:21>>*/ ;
+    }
     function invalid_format_without(str_ind, c, s){
-      /*<<camlinternalFormat.ml:2104:4>>*/ return  /*<<camlinternalFormat.ml:2104:4>>*/ caml_call4
-              /*<<camlinternalFormat.ml:2104:4>>*/ ( /*<<camlinternalFormat.ml:2104:4>>*/ failwith_message
-                /*<<camlinternalFormat.ml:2104:4>>*/ (_A_),
-              str,
-              str_ind,
-              c,
-              s) /*<<camlinternalFormat.ml:2106:21>>*/ ;
-     /*<<camlinternalFormat.ml:2106:21>>*/ }
+      /*<<camlinternalFormat.ml:2104:4>>*/ return caml_call4
+             (failwith_message(_A_), str, str_ind, c, s) /*<<camlinternalFormat.ml:2106:21>>*/ ;
+    }
     function expected_character(str_ind, expected, read){
-      /*<<camlinternalFormat.ml:2112:4>>*/ return  /*<<camlinternalFormat.ml:2112:4>>*/ caml_call4
-              /*<<camlinternalFormat.ml:2112:4>>*/ ( /*<<camlinternalFormat.ml:2112:4>>*/ failwith_message
-                /*<<camlinternalFormat.ml:2112:4>>*/ (_B_),
-              str,
-              str_ind,
-              expected,
-              read) /*<<camlinternalFormat.ml:2114:31>>*/ ;
-     /*<<camlinternalFormat.ml:2114:31>>*/ }
+      /*<<camlinternalFormat.ml:2112:4>>*/ return caml_call4
+             (failwith_message(_B_), str, str_ind, expected, read) /*<<camlinternalFormat.ml:2114:31>>*/ ;
+    }
     function parse(lit_start, end_ind){
      a:
      {
       var str_ind = lit_start;
        /*<<camlinternalFormat.ml:2124:4>>*/ for(;;){
        if(str_ind === end_ind)
-         /*<<camlinternalFormat.ml:2124:30>>*/ return  /*<<camlinternalFormat.ml:2124:30>>*/ add_literal
-                 /*<<camlinternalFormat.ml:2124:30>>*/ (lit_start, str_ind, 0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
+         /*<<camlinternalFormat.ml:2124:30>>*/ return add_literal
+                (lit_start, str_ind, 0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
        var
         match =
-           /*<<camlinternalFormat.ml:2125:12>>*/  /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:2125:12>>*/ (str, str_ind);
+           /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get(str, str_ind);
        if(37 === match) break;
        if(64 === match) break a;
        var str_ind$1 = str_ind + 1 | 0;
@@ -21910,30 +18184,21 @@
       }
       var str_ind$2 = str_ind + 1 | 0;
       if(str_ind$2 === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-         cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        (end_ind, cst_unexpected_end_of_format);
       var
        match$1 =
          95
           ===
             /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
-             /*<<camlinternalFormat.ml:2142:10>>*/ (str, str_ind$2)
+            (str, str_ind$2)
           ?  /*<<camlinternalFormat.ml:2143:15>>*/ parse_flags
-             /*<<camlinternalFormat.ml:2143:15>>*/ (str_ind,
-             str_ind$2 + 1 | 0,
-             end_ind,
-             1)
+            (str_ind, str_ind$2 + 1 | 0, end_ind, 1)
           :  /*<<camlinternalFormat.ml:2144:13>>*/ parse_flags
-             /*<<camlinternalFormat.ml:2144:13>>*/ (str_ind,
-             str_ind$2,
-             end_ind,
-             0),
+            (str_ind, str_ind$2, end_ind, 0),
        fmt_rest = match$1[1];
-       /*<<camlinternalFormat.ml:2128:8>>*/ return  /*<<camlinternalFormat.ml:2128:8>>*/ add_literal
-               /*<<camlinternalFormat.ml:2128:8>>*/ (lit_start,
-               str_ind,
-               fmt_rest) /*<<camlinternalFormat.ml:2119:62>>*/ ;
+       /*<<camlinternalFormat.ml:2128:8>>*/ return add_literal
+              (lit_start, str_ind, fmt_rest) /*<<camlinternalFormat.ml:2119:62>>*/ ;
      }
      var str_ind$0 = str_ind + 1 | 0;
      a:
@@ -21942,28 +18207,25 @@
      else{
       var
        c =
-          /*<<camlinternalFormat.ml:2593:12>>*/  /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2593:12>>*/ (str, str_ind$0);
+          /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
+          (str, str_ind$0);
       if(65 <= c){
        if(94 <= c){
-        var switcher =  /*<<camlinternalFormat.ml:2593:12>>*/ c - 123 | 0;
+        var switcher = c - 123 | 0;
         if(2 >= switcher >>> 0)
          switch(switcher){
            case 0:
             var
              match$0 =
                 /*<<camlinternalFormat.ml:2600:8>>*/ parse_tag
-                 /*<<camlinternalFormat.ml:2600:8>>*/ (1,
-                 str_ind$0 + 1 | 0,
-                 end_ind);
+                (1, str_ind$0 + 1 | 0, end_ind);
             break a;
            case 1: break;
            default:
             var
              fmt_rest$2 =
                 /*<<camlinternalFormat.ml:2602:31>>*/ parse
-                  /*<<camlinternalFormat.ml:2602:31>>*/ (str_ind$0 + 1 | 0,
-                  end_ind)
+                 (str_ind$0 + 1 | 0, end_ind)
                 [1],
              match$0 = [0, [17, 1, fmt_rest$2]];
             break a;
@@ -21975,17 +18237,14 @@
            var
             match$0 =
                /*<<camlinternalFormat.ml:2595:8>>*/ parse_tag
-                /*<<camlinternalFormat.ml:2595:8>>*/ (0,
-                str_ind$0 + 1 | 0,
-                end_ind);
+               (0, str_ind$0 + 1 | 0, end_ind);
            break a;
           case 1: break;
           default:
            var
             fmt_rest$3 =
                /*<<camlinternalFormat.ml:2597:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2597:31>>*/ (str_ind$0 + 1 | 0,
-                 end_ind)
+                (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 0, fmt_rest$3]];
            break a;
@@ -21996,8 +18255,7 @@
         var
          fmt_rest$4 =
             /*<<camlinternalFormat.ml:2616:31>>*/ parse
-              /*<<camlinternalFormat.ml:2616:31>>*/ (str_ind$0 + 1 | 0,
-              end_ind)
+             (str_ind$0 + 1 | 0, end_ind)
             [1],
          match$0 = [0, [17, 3, fmt_rest$4]];
         break a;
@@ -22008,8 +18266,7 @@
            var
             fmt_rest$5 =
                /*<<camlinternalFormat.ml:2608:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2608:31>>*/ (str_ind$0 + 1 | 0,
-                 end_ind)
+                (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, _O_, fmt_rest$5]];
            break a;
@@ -22020,21 +18277,18 @@
               37
               ===
                 /*<<camlinternalFormat.ml:2626:42>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:2626:42>>*/ (str,
-                 str_ind$0 + 1 | 0)){
+                (str, str_ind$0 + 1 | 0)){
             var
              fmt_rest$6 =
                 /*<<camlinternalFormat.ml:2627:31>>*/ parse
-                  /*<<camlinternalFormat.ml:2627:31>>*/ (str_ind$0 + 2 | 0,
-                  end_ind)
+                 (str_ind$0 + 2 | 0, end_ind)
                 [1],
              match$0 = [0, [17, 6, fmt_rest$6]];
             break a;
            }
            var
             fmt_rest$7 =
-               /*<<camlinternalFormat.ml:2630:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2630:31>>*/ (str_ind$0, end_ind)
+               /*<<camlinternalFormat.ml:2630:31>>*/ parse(str_ind$0, end_ind)
                [1],
             match$0 = [0, [12, 64, fmt_rest$7]];
            break a;
@@ -22042,8 +18296,7 @@
            var
             fmt_rest$8 =
                /*<<camlinternalFormat.ml:2605:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2605:31>>*/ (str_ind$0 + 1 | 0,
-                 end_ind)
+                (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, _P_, fmt_rest$8]];
            break a;
@@ -22051,8 +18304,7 @@
            var
             fmt_rest$9 =
                /*<<camlinternalFormat.ml:2619:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2619:31>>*/ (str_ind$0 + 1 | 0,
-                 end_ind)
+                (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 4, fmt_rest$9]];
            break a;
@@ -22068,54 +18320,53 @@
                 (60
                   !==
                     /*<<camlinternalFormat.ml:2666:32>>*/ caml_string_get
-                     /*<<camlinternalFormat.ml:2666:32>>*/ (str, str_ind$3)
+                    (str, str_ind$3)
                   ? 1
                   : 0);
             if(_bh_)
-              /*<<camlinternalFormat.ml:2666:58>>*/ throw  /*<<camlinternalFormat.ml:2666:58>>*/ caml_maybe_attach_backtrace
-                     /*<<camlinternalFormat.ml:2666:58>>*/ (Stdlib[8], 1);
+              /*<<camlinternalFormat.ml:2666:58>>*/ throw caml_maybe_attach_backtrace
+                    (Stdlib[8], 1);
             var
              str_ind_1 =
-                /*<<camlinternalFormat.ml:2667:24>>*/  /*<<camlinternalFormat.ml:2667:24>>*/ parse_spaces
-                 /*<<camlinternalFormat.ml:2667:24>>*/ (str_ind$3 + 1 | 0,
-                 end_ind),
+                /*<<camlinternalFormat.ml:2667:24>>*/ parse_spaces
+                (str_ind$3 + 1 | 0, end_ind),
              match$2 =
-                /*<<camlinternalFormat.ml:2668:14>>*/  /*<<camlinternalFormat.ml:2668:14>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:2668:14>>*/ (str, str_ind_1);
+                /*<<camlinternalFormat.ml:2668:14>>*/ caml_string_get
+                (str, str_ind_1);
             c:
             {
              if(48 <= match$2){
               if(58 > match$2) break c;
              }
              else if(45 === match$2) break c;
-              /*<<camlinternalFormat.ml:2684:15>>*/ throw  /*<<camlinternalFormat.ml:2684:15>>*/ caml_maybe_attach_backtrace
-                     /*<<camlinternalFormat.ml:2684:15>>*/ (Stdlib[8], 1);
+              /*<<camlinternalFormat.ml:2684:15>>*/ throw caml_maybe_attach_backtrace
+                    (Stdlib[8], 1);
             }
             var
              match$3 =
-                /*<<camlinternalFormat.ml:2670:33>>*/  /*<<camlinternalFormat.ml:2670:33>>*/ parse_integer
-                 /*<<camlinternalFormat.ml:2670:33>>*/ (str_ind_1, end_ind),
+                /*<<camlinternalFormat.ml:2670:33>>*/ parse_integer
+                (str_ind_1, end_ind),
              width = match$3[2],
              str_ind_2 = match$3[1],
              str_ind_3 =
-                /*<<camlinternalFormat.ml:2671:28>>*/  /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
-                 /*<<camlinternalFormat.ml:2671:28>>*/ (str_ind_2, end_ind),
+                /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
+                (str_ind_2, end_ind),
              switcher$0 =
-                /*<<camlinternalFormat.ml:2672:18>>*/  /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:2672:18>>*/ (str, str_ind_3)
+                /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
+                (str, str_ind_3)
                - 45
                | 0;
             if(12 < switcher$0 >>> 0){
              if(17 === switcher$0){
               var
                s =
-                  /*<<camlinternalFormat.ml:2674:24>>*/  /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
-                   /*<<camlinternalFormat.ml:2674:24>>*/ (Stdlib_String[16],
+                  /*<<camlinternalFormat.ml:2674:24>>*/ caml_call3
+                  (Stdlib_String[16],
                    str,
                    str_ind$3 - 2 | 0,
                    (str_ind_3 - str_ind$3 | 0) + 3 | 0),
                _bi_ =  /*<<camlinternalFormat.ml:2675:31>>*/ [0, s, width, 0],
-               _bj_ =  /*<<camlinternalFormat.ml:2675:31>>*/ str_ind_3 + 1 | 0,
+               _bj_ = str_ind_3 + 1 | 0,
                formatting_lit$0 = _bi_,
                next_ind = _bj_;
               break b;
@@ -22124,36 +18375,36 @@
             else if(1 < switcher$0 - 1 >>> 0){
              var
               match$4 =
-                 /*<<camlinternalFormat.ml:2677:40>>*/  /*<<camlinternalFormat.ml:2677:40>>*/ parse_integer
-                  /*<<camlinternalFormat.ml:2677:40>>*/ (str_ind_3, end_ind),
+                 /*<<camlinternalFormat.ml:2677:40>>*/ parse_integer
+                 (str_ind_3, end_ind),
               offset = match$4[2],
               str_ind_4 = match$4[1],
               str_ind_5 =
-                 /*<<camlinternalFormat.ml:2678:32>>*/  /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
-                  /*<<camlinternalFormat.ml:2678:32>>*/ (str_ind_4, end_ind);
+                 /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
+                 (str_ind_4, end_ind);
              if
               (62
                !==
                  /*<<camlinternalFormat.ml:2679:19>>*/ caml_string_get
-                  /*<<camlinternalFormat.ml:2679:19>>*/ (str, str_ind_5))
-               /*<<camlinternalFormat.ml:2679:47>>*/ throw  /*<<camlinternalFormat.ml:2679:47>>*/ caml_maybe_attach_backtrace
-                      /*<<camlinternalFormat.ml:2679:47>>*/ (Stdlib[8], 1);
+                 (str, str_ind_5))
+               /*<<camlinternalFormat.ml:2679:47>>*/ throw caml_maybe_attach_backtrace
+                     (Stdlib[8], 1);
              var
               s$0 =
-                 /*<<camlinternalFormat.ml:2680:24>>*/  /*<<camlinternalFormat.ml:2680:24>>*/ caml_call3
-                  /*<<camlinternalFormat.ml:2680:24>>*/ (Stdlib_String[16],
+                 /*<<camlinternalFormat.ml:2680:24>>*/ caml_call3
+                 (Stdlib_String[16],
                   str,
                   str_ind$3 - 2 | 0,
                   (str_ind_5 - str_ind$3 | 0) + 3 | 0),
               _bk_ =
                  /*<<camlinternalFormat.ml:2681:31>>*/ [0, s$0, width, offset],
-              _bl_ =  /*<<camlinternalFormat.ml:2681:31>>*/ str_ind_5 + 1 | 0,
+              _bl_ = str_ind_5 + 1 | 0,
               formatting_lit$0 = _bk_,
               next_ind = _bl_;
              break b;
             }
-             /*<<camlinternalFormat.ml:2682:21>>*/ throw  /*<<camlinternalFormat.ml:2682:21>>*/ caml_maybe_attach_backtrace
-                    /*<<camlinternalFormat.ml:2682:21>>*/ (Stdlib[8], 1);
+             /*<<camlinternalFormat.ml:2682:21>>*/ throw caml_maybe_attach_backtrace
+                   (Stdlib[8], 1);
            }
            catch(_bq_){
             var _bf_ = caml_wrap_exception(_bq_);
@@ -22163,8 +18414,7 @@
            }
            var
             fmt_rest$12 =
-               /*<<camlinternalFormat.ml:2688:27>>*/ parse
-                 /*<<camlinternalFormat.ml:2688:27>>*/ (next_ind, end_ind)
+               /*<<camlinternalFormat.ml:2688:27>>*/ parse(next_ind, end_ind)
                [1],
             match$0 = [0, [17, formatting_lit$0, fmt_rest$12]];
            break a;
@@ -22173,11 +18423,11 @@
             /*<<camlinternalFormat.ml:2694:4>>*/ try{
             var
              str_ind_1$0 =
-                /*<<camlinternalFormat.ml:2696:24>>*/  /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
-                 /*<<camlinternalFormat.ml:2696:24>>*/ (str_ind$4, end_ind),
+                /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
+                (str_ind$4, end_ind),
              match$6 =
-                /*<<camlinternalFormat.ml:2697:14>>*/  /*<<camlinternalFormat.ml:2697:14>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:2697:14>>*/ (str, str_ind_1$0);
+                /*<<camlinternalFormat.ml:2697:14>>*/ caml_string_get
+                (str, str_ind_1$0);
             b:
             {
              c:
@@ -22191,24 +18441,24 @@
              }
              var
               match$7 =
-                 /*<<camlinternalFormat.ml:2699:32>>*/  /*<<camlinternalFormat.ml:2699:32>>*/ parse_integer
-                  /*<<camlinternalFormat.ml:2699:32>>*/ (str_ind_1$0, end_ind),
+                 /*<<camlinternalFormat.ml:2699:32>>*/ parse_integer
+                 (str_ind_1$0, end_ind),
               size = match$7[2],
               str_ind_2$0 = match$7[1],
               str_ind_3$0 =
-                 /*<<camlinternalFormat.ml:2700:26>>*/  /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
-                  /*<<camlinternalFormat.ml:2700:26>>*/ (str_ind_2$0, end_ind);
+                 /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
+                 (str_ind_2$0, end_ind);
              if
               (62
                !==
                  /*<<camlinternalFormat.ml:2701:13>>*/ caml_string_get
-                  /*<<camlinternalFormat.ml:2701:13>>*/ (str, str_ind_3$0))
-               /*<<camlinternalFormat.ml:2701:41>>*/ throw  /*<<camlinternalFormat.ml:2701:41>>*/ caml_maybe_attach_backtrace
-                      /*<<camlinternalFormat.ml:2701:41>>*/ (Stdlib[8], 1);
+                 (str, str_ind_3$0))
+               /*<<camlinternalFormat.ml:2701:41>>*/ throw caml_maybe_attach_backtrace
+                     (Stdlib[8], 1);
              var
               s$1 =
-                 /*<<camlinternalFormat.ml:2702:18>>*/  /*<<camlinternalFormat.ml:2702:18>>*/ caml_call3
-                  /*<<camlinternalFormat.ml:2702:18>>*/ (Stdlib_String[16],
+                 /*<<camlinternalFormat.ml:2702:18>>*/ caml_call3
+                 (Stdlib_String[16],
                   str,
                   str_ind$4 - 2 | 0,
                   (str_ind_3$0 - str_ind$4 | 0) + 3 | 0),
@@ -22229,14 +18479,14 @@
              next_ind$0 = match$5[1],
              fmt_rest$13 =
                 /*<<camlinternalFormat.ml:2709:29>>*/ parse
-                  /*<<camlinternalFormat.ml:2709:29>>*/ (next_ind$0, end_ind)
+                 (next_ind$0, end_ind)
                 [1],
              _be_ = [0, [17, formatting_lit$1, fmt_rest$13]];
            else
             var
              fmt_rest$14 =
                 /*<<camlinternalFormat.ml:2712:29>>*/ parse
-                  /*<<camlinternalFormat.ml:2712:29>>*/ (str_ind$4, end_ind)
+                 (str_ind$4, end_ind)
                 [1],
              _be_ = [0, [17, _Q_, fmt_rest$14]];
            var match$0 = _be_;
@@ -22245,8 +18495,7 @@
            var
             fmt_rest$10 =
                /*<<camlinternalFormat.ml:2613:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2613:31>>*/ (str_ind$0 + 1 | 0,
-                 end_ind)
+                (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 2, fmt_rest$10]];
            break a;
@@ -22254,8 +18503,7 @@
            var
             fmt_rest$11 =
                /*<<camlinternalFormat.ml:2624:31>>*/ parse
-                 /*<<camlinternalFormat.ml:2624:31>>*/ (str_ind$0 + 1 | 0,
-                 end_ind)
+                (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 5, fmt_rest$11]];
            break a;
@@ -22264,16 +18512,14 @@
       var
        fmt_rest$1 =
           /*<<camlinternalFormat.ml:2633:31>>*/ parse
-            /*<<camlinternalFormat.ml:2633:31>>*/ (str_ind$0 + 1 | 0, end_ind)
+           (str_ind$0 + 1 | 0, end_ind)
           [1],
        match$0 = [0, [17, [2, c], fmt_rest$1]];
      }
      var fmt_rest$0 = match$0[1];
-      /*<<camlinternalFormat.ml:2131:8>>*/ return  /*<<camlinternalFormat.ml:2131:8>>*/ add_literal
-              /*<<camlinternalFormat.ml:2131:8>>*/ (lit_start,
-              str_ind,
-              fmt_rest$0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
-     /*<<camlinternalFormat.ml:2119:62>>*/ }
+      /*<<camlinternalFormat.ml:2131:8>>*/ return add_literal
+             (lit_start, str_ind, fmt_rest$0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
+    }
     function parse_flags(pct_ind, str_ind, end_ind, ign){
      var
       zero =  /*<<camlinternalFormat.ml:2149:15>>*/ [0, 0],
@@ -22286,14 +18532,9 @@
       if(_bc_){
        var
         _bd_ =
-           /*<<camlinternalFormat.ml:2157:22>>*/  /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:2157:22>>*/ (str, str_ind);
-        /*<<camlinternalFormat.ml:2155:8>>*/  /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
-         /*<<camlinternalFormat.ml:2155:8>>*/ ( /*<<camlinternalFormat.ml:2155:8>>*/ failwith_message
-           /*<<camlinternalFormat.ml:2155:8>>*/ (_C_),
-         str,
-         str_ind,
-         _bd_);
+           /*<<camlinternalFormat.ml:2157:22>>*/ caml_string_get(str, str_ind);
+        /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
+        (failwith_message(_C_), str, str_ind, _bd_);
       }
       flag[1] = 1;
       /*<<camlinternalFormat.ml:2158:19>>*/ }
@@ -22304,55 +18545,39 @@
       c:
        /*<<camlinternalFormat.ml:2161:6>>*/ for(;;){
        if(str_ind$0 === end_ind)
-         /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-          /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-          cst_unexpected_end_of_format);
+         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+         (end_ind, cst_unexpected_end_of_format);
        var
         switcher =
-           /*<<camlinternalFormat.ml:2162:18>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:2162:18>>*/ (str, str_ind$0)
+           /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
+           (str, str_ind$0)
           - 32
           | 0;
        if(16 < switcher >>> 0) break b;
        switch(switcher){
          case 0:
-           /*<<camlinternalFormat.ml:2167:15>>*/  /*<<camlinternalFormat.ml:2167:15>>*/ set_flag
-            /*<<camlinternalFormat.ml:2167:15>>*/ (str_ind$0, space);
-          var
-           str_ind$1 =
-              /*<<camlinternalFormat.ml:2167:15>>*/ str_ind$0 + 1 | 0;
+           /*<<camlinternalFormat.ml:2167:15>>*/ set_flag(str_ind$0, space);
+          var str_ind$1 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$1;
           break;
          case 3:
-           /*<<camlinternalFormat.ml:2166:15>>*/  /*<<camlinternalFormat.ml:2166:15>>*/ set_flag
-            /*<<camlinternalFormat.ml:2166:15>>*/ (str_ind$0, hash);
-          var
-           str_ind$2 =
-              /*<<camlinternalFormat.ml:2166:15>>*/ str_ind$0 + 1 | 0;
+           /*<<camlinternalFormat.ml:2166:15>>*/ set_flag(str_ind$0, hash);
+          var str_ind$2 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$2;
           break;
          case 11:
-           /*<<camlinternalFormat.ml:2165:15>>*/  /*<<camlinternalFormat.ml:2165:15>>*/ set_flag
-            /*<<camlinternalFormat.ml:2165:15>>*/ (str_ind$0, plus);
-          var
-           str_ind$3 =
-              /*<<camlinternalFormat.ml:2165:15>>*/ str_ind$0 + 1 | 0;
+           /*<<camlinternalFormat.ml:2165:15>>*/ set_flag(str_ind$0, plus);
+          var str_ind$3 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$3;
           break;
          case 13:
-           /*<<camlinternalFormat.ml:2164:15>>*/  /*<<camlinternalFormat.ml:2164:15>>*/ set_flag
-            /*<<camlinternalFormat.ml:2164:15>>*/ (str_ind$0, minus);
-          var
-           str_ind$4 =
-              /*<<camlinternalFormat.ml:2164:15>>*/ str_ind$0 + 1 | 0;
+           /*<<camlinternalFormat.ml:2164:15>>*/ set_flag(str_ind$0, minus);
+          var str_ind$4 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$4;
           break;
          case 16:
-           /*<<camlinternalFormat.ml:2163:15>>*/  /*<<camlinternalFormat.ml:2163:15>>*/ set_flag
-            /*<<camlinternalFormat.ml:2163:15>>*/ (str_ind$0, zero);
-          var
-           str_ind$5 =
-              /*<<camlinternalFormat.ml:2163:15>>*/ str_ind$0 + 1 | 0;
+           /*<<camlinternalFormat.ml:2163:15>>*/ set_flag(str_ind$0, zero);
+          var str_ind$5 = str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$5;
           break;
          default: break c;
@@ -22367,9 +18592,8 @@
       minus$0 = minus[1],
       zero$0 = zero[1];
      if(str_ind$0 === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-        cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+       (end_ind, cst_unexpected_end_of_format);
      var
       padty =
         zero$0
@@ -22377,25 +18601,21 @@
            ? legacy_behavior$0
              ? 0
              :  /*<<camlinternalFormat.ml:2187:13>>*/ incompatible_flag
-                /*<<camlinternalFormat.ml:2187:13>>*/ (pct_ind,
-                str_ind$0,
-                45,
-                cst_0)
+               (pct_ind, str_ind$0, 45, cst_0)
            : 2
          : minus$0 ? 0 : 1,
       match =
-         /*<<camlinternalFormat.ml:2188:10>>*/  /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get
-          /*<<camlinternalFormat.ml:2188:10>>*/ (str, str_ind$0);
+         /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get(str, str_ind$0);
      if(48 <= match){
       if(58 > match){
        var
         match$0 =
-           /*<<camlinternalFormat.ml:2190:27>>*/  /*<<camlinternalFormat.ml:2190:27>>*/ parse_positive
-            /*<<camlinternalFormat.ml:2190:27>>*/ (str_ind$0, end_ind, 0),
+           /*<<camlinternalFormat.ml:2190:27>>*/ parse_positive
+           (str_ind$0, end_ind, 0),
         width = match$0[2],
         new_ind = match$0[1];
-        /*<<camlinternalFormat.ml:2192:8>>*/ return  /*<<camlinternalFormat.ml:2192:8>>*/ parse_after_padding
-                /*<<camlinternalFormat.ml:2192:8>>*/ (pct_ind,
+        /*<<camlinternalFormat.ml:2192:8>>*/ return parse_after_padding
+               (pct_ind,
                 new_ind,
                 end_ind,
                 minus$0,
@@ -22407,8 +18627,8 @@
       }
      }
      else if(42 === match)
-       /*<<camlinternalFormat.ml:2195:12>>*/ return  /*<<camlinternalFormat.ml:2195:12>>*/ parse_after_padding
-               /*<<camlinternalFormat.ml:2195:12>>*/ (pct_ind,
+       /*<<camlinternalFormat.ml:2195:12>>*/ return parse_after_padding
+              (pct_ind,
                str_ind$0 + 1 | 0,
                end_ind,
                minus$0,
@@ -22420,12 +18640,10 @@
      switch(padty){
        case 0:
         if(1 - legacy_behavior$0)
-          /*<<camlinternalFormat.ml:2200:10>>*/  /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
-           /*<<camlinternalFormat.ml:2200:10>>*/ (str_ind$0 - 1 | 0,
-           45,
-           cst_padding);
-         /*<<camlinternalFormat.ml:2200:10>>*/ return  /*<<camlinternalFormat.ml:2200:10>>*/ parse_after_padding
-                 /*<<camlinternalFormat.ml:2200:10>>*/ (pct_ind,
+          /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
+          (str_ind$0 - 1 | 0, 45, cst_padding);
+        return parse_after_padding
+                (pct_ind,
                  str_ind$0,
                  end_ind,
                  minus$0,
@@ -22435,8 +18653,8 @@
                  ign,
                  0) /*<<camlinternalFormat.ml:2173:22>>*/ ;
        case 1:
-         /*<<camlinternalFormat.ml:2210:8>>*/ return  /*<<camlinternalFormat.ml:2210:8>>*/ parse_after_padding
-                 /*<<camlinternalFormat.ml:2210:8>>*/ (pct_ind,
+         /*<<camlinternalFormat.ml:2210:8>>*/ return parse_after_padding
+                (pct_ind,
                  str_ind$0,
                  end_ind,
                  minus$0,
@@ -22446,8 +18664,8 @@
                  ign,
                  0) /*<<camlinternalFormat.ml:2173:22>>*/ ;
        default:
-         /*<<camlinternalFormat.ml:2207:8>>*/ return  /*<<camlinternalFormat.ml:2207:8>>*/ parse_after_padding
-                 /*<<camlinternalFormat.ml:2207:8>>*/ (pct_ind,
+         /*<<camlinternalFormat.ml:2207:8>>*/ return parse_after_padding
+                (pct_ind,
                  str_ind$0,
                  end_ind,
                  minus$0,
@@ -22457,20 +18675,18 @@
                  ign,
                  _D_) /*<<camlinternalFormat.ml:2173:22>>*/ ;
      }
-     /*<<camlinternalFormat.ml:2173:22>>*/ }
+    }
     function parse_after_padding
     (pct_ind, str_ind, end_ind, minus, plus, hash, space, ign, pad){
       /*<<camlinternalFormat.ml:2219:4>>*/ if(str_ind === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-        cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+       (end_ind, cst_unexpected_end_of_format);
      var
       symb =
-         /*<<camlinternalFormat.ml:2220:10>>*/  /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get
-          /*<<camlinternalFormat.ml:2220:10>>*/ (str, str_ind);
+         /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get(str, str_ind);
      if(46 !== symb)
-       /*<<camlinternalFormat.ml:2225:6>>*/ return  /*<<camlinternalFormat.ml:2225:6>>*/ parse_conversion
-               /*<<camlinternalFormat.ml:2225:6>>*/ (pct_ind,
+       /*<<camlinternalFormat.ml:2225:6>>*/ return parse_conversion
+              (pct_ind,
                str_ind + 1 | 0,
                end_ind,
                plus,
@@ -22483,18 +18699,17 @@
                symb) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      var str_ind$0 = str_ind + 1 | 0;
      if(str_ind$0 === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-        cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+       (end_ind, cst_unexpected_end_of_format);
      function parse_literal(minus, str_ind){
       var
        match =
-          /*<<camlinternalFormat.ml:2235:26>>*/  /*<<camlinternalFormat.ml:2235:26>>*/ parse_positive
-           /*<<camlinternalFormat.ml:2235:26>>*/ (str_ind, end_ind, 0),
+          /*<<camlinternalFormat.ml:2235:26>>*/ parse_positive
+          (str_ind, end_ind, 0),
        prec = match[2],
        new_ind = match[1];
-       /*<<camlinternalFormat.ml:2237:12>>*/ return  /*<<camlinternalFormat.ml:2237:12>>*/ parse_after_precision
-               /*<<camlinternalFormat.ml:2237:12>>*/ (pct_ind,
+       /*<<camlinternalFormat.ml:2237:12>>*/ return parse_after_precision
+              (pct_ind,
                new_ind,
                end_ind,
                minus,
@@ -22504,21 +18719,20 @@
                ign,
                pad,
                [0, prec]) /*<<camlinternalFormat.ml:2237:32>>*/ ;
-      /*<<camlinternalFormat.ml:2237:32>>*/ }
+     }
      var
       symb$0 =
-         /*<<camlinternalFormat.ml:2238:10>>*/  /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get
-          /*<<camlinternalFormat.ml:2238:10>>*/ (str, str_ind$0);
+         /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get(str, str_ind$0);
      if(48 <= symb$0){
       if(58 > symb$0)
-        /*<<camlinternalFormat.ml:2239:20>>*/ return  /*<<camlinternalFormat.ml:2239:20>>*/ parse_literal
-                /*<<camlinternalFormat.ml:2239:20>>*/ (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
+        /*<<camlinternalFormat.ml:2239:20>>*/ return parse_literal
+               (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      }
      else if(42 <= symb$0)
       switch(symb$0 - 42 | 0){
         case 0:
-          /*<<camlinternalFormat.ml:2251:6>>*/ return  /*<<camlinternalFormat.ml:2251:6>>*/ parse_after_precision
-                  /*<<camlinternalFormat.ml:2251:6>>*/ (pct_ind,
+          /*<<camlinternalFormat.ml:2251:6>>*/ return parse_after_precision
+                 (pct_ind,
                   str_ind$0 + 1 | 0,
                   end_ind,
                   minus,
@@ -22534,14 +18748,13 @@
           var
            _ba_ =  /*<<camlinternalFormat.ml:2249:6>>*/ str_ind$0 + 1 | 0,
            minus$0 = minus || (45 === symb$0 ? 1 : 0);
-           /*<<camlinternalFormat.ml:2249:6>>*/ return  /*<<camlinternalFormat.ml:2249:6>>*/ parse_literal
-                   /*<<camlinternalFormat.ml:2249:6>>*/ (minus$0, _ba_) /*<<camlinternalFormat.ml:2226:29>>*/ ;
+          return parse_literal(minus$0, _ba_) /*<<camlinternalFormat.ml:2226:29>>*/ ;
          }
          break;
       }
      return legacy_behavior$0
              ?  /*<<camlinternalFormat.ml:2258:8>>*/ parse_after_precision
-                /*<<camlinternalFormat.ml:2258:8>>*/ (pct_ind,
+               (pct_ind,
                 str_ind$0,
                 end_ind,
                 minus,
@@ -22552,19 +18765,16 @@
                 pad,
                 _E_)
              :  /*<<camlinternalFormat.ml:2261:8>>*/ invalid_format_without
-                /*<<camlinternalFormat.ml:2261:8>>*/ (str_ind$0 - 1 | 0,
-                46,
-                cst_precision) /*<<camlinternalFormat.ml:2226:29>>*/ ;
-     /*<<camlinternalFormat.ml:2226:29>>*/ }
+               (str_ind$0 - 1 | 0, 46, cst_precision) /*<<camlinternalFormat.ml:2226:29>>*/ ;
+    }
     function parse_after_precision
     (pct_ind, str_ind, end_ind, minus, plus, hash, space, ign, pad, prec){
       /*<<camlinternalFormat.ml:2268:4>>*/ if(str_ind === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-        cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+       (end_ind, cst_unexpected_end_of_format);
      function parse_conv(padprec){
        /*<<camlinternalFormat.ml:2270:6>>*/ return  /*<<camlinternalFormat.ml:2271:21>>*/ parse_conversion
-               /*<<camlinternalFormat.ml:2271:21>>*/ (pct_ind,
+              (pct_ind,
                str_ind + 1 | 0,
                end_ind,
                plus,
@@ -22574,30 +18784,23 @@
                pad,
                prec,
                padprec,
-                /*<<camlinternalFormat.ml:2271:21>>*/ caml_string_get
-                 /*<<camlinternalFormat.ml:2271:21>>*/ (str, str_ind)) /*<<camlinternalFormat.ml:2271:34>>*/ ;
-      /*<<camlinternalFormat.ml:2271:34>>*/ }
+               caml_string_get(str, str_ind)) /*<<camlinternalFormat.ml:2271:34>>*/ ;
+     }
      if(typeof pad !== "number")
-       /*<<camlinternalFormat.ml:2287:13>>*/ return  /*<<camlinternalFormat.ml:2287:13>>*/ parse_conv
-               /*<<camlinternalFormat.ml:2287:13>>*/ (pad) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2287:13>>*/ return parse_conv(pad) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(typeof prec === "number" && ! prec)
-       /*<<camlinternalFormat.ml:2281:29>>*/ return  /*<<camlinternalFormat.ml:2281:29>>*/ parse_conv
-               /*<<camlinternalFormat.ml:2281:29>>*/ (0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2281:29>>*/ return parse_conv(0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(minus){
       if(typeof prec === "number")
-        /*<<camlinternalFormat.ml:2285:33>>*/ return  /*<<camlinternalFormat.ml:2285:33>>*/ parse_conv
-                /*<<camlinternalFormat.ml:2285:33>>*/ (_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+        /*<<camlinternalFormat.ml:2285:33>>*/ return parse_conv(_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
       var n = prec[1];
-       /*<<camlinternalFormat.ml:2283:46>>*/ return  /*<<camlinternalFormat.ml:2283:46>>*/ parse_conv
-               /*<<camlinternalFormat.ml:2283:46>>*/ ([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2283:46>>*/ return parse_conv([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      }
      if(typeof prec === "number")
-       /*<<camlinternalFormat.ml:2284:34>>*/ return  /*<<camlinternalFormat.ml:2284:34>>*/ parse_conv
-               /*<<camlinternalFormat.ml:2284:34>>*/ (_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2284:34>>*/ return parse_conv(_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      var n$0 = prec[1];
-      /*<<camlinternalFormat.ml:2282:47>>*/ return  /*<<camlinternalFormat.ml:2282:47>>*/ parse_conv
-              /*<<camlinternalFormat.ml:2282:47>>*/ ([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
-     /*<<camlinternalFormat.ml:2287:27>>*/ }
+      /*<<camlinternalFormat.ml:2282:47>>*/ return parse_conv([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+    }
     function parse_conversion
     (pct_ind,
      str_ind,
@@ -22619,7 +18822,7 @@
       prec_used =  /*<<camlinternalFormat.ml:2297:48>>*/ [0, 0];
      function get_plus(param){
        /*<<camlinternalFormat.ml:2300:25>>*/ plus_used[1] = 1;
-       /*<<camlinternalFormat.ml:2300:4>>*/ return plus /*<<camlinternalFormat.ml:2300:4>>*/ ;
+       /*<<camlinternalFormat.ml:2300:4>>*/ return plus;
       /*<<camlinternalFormat.ml:2300:49>>*/ }
      function get_hash(param){
        /*<<camlinternalFormat.ml:2301:24>>*/ hash_used[1] = 1;
@@ -22647,64 +18850,46 @@
       /*<<camlinternalFormat.ml:2306:52>>*/ }
      function get_int_pad(param){
       var
-       pad =
-          /*<<camlinternalFormat.ml:2320:13>>*/  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad
-           /*<<camlinternalFormat.ml:2320:13>>*/ (0),
-       match =
-          /*<<camlinternalFormat.ml:2320:25>>*/  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec
-           /*<<camlinternalFormat.ml:2320:25>>*/ (0);
+       pad =  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad(0),
+       match =  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec(0);
       if(typeof match === "number" && ! match)
-        /*<<camlinternalFormat.ml:2321:32>>*/ return pad /*<<camlinternalFormat.ml:2321:32>>*/ ;
+        /*<<camlinternalFormat.ml:2321:32>>*/ return pad;
       if(typeof pad === "number")
-        /*<<camlinternalFormat.ml:2322:32>>*/ return 0 /*<<camlinternalFormat.ml:2322:32>>*/ ;
+        /*<<camlinternalFormat.ml:2322:32>>*/ return 0;
       if(0 !== pad[0])
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _H_
                  :  /*<<camlinternalFormat.ml:2328:16>>*/ incompatible_flag
-                    /*<<camlinternalFormat.ml:2328:16>>*/ (pct_ind,
-                    str_ind,
-                    48,
-                    cst_precision$1)
+                   (pct_ind, str_ind, 48, cst_precision$1)
                : pad /*<<camlinternalFormat.ml:2330:41>>*/ ;
-      if(2 > pad[1])
-        /*<<camlinternalFormat.ml:2329:38>>*/ return pad /*<<camlinternalFormat.ml:2329:38>>*/ ;
+      if(2 > pad[1])  /*<<camlinternalFormat.ml:2329:38>>*/ return pad;
       var n = pad[2];
        /*<<camlinternalFormat.ml:2324:11>>*/ return legacy_behavior$0
               ? [0, 1, n]
               :  /*<<camlinternalFormat.ml:2325:16>>*/ incompatible_flag
-                 /*<<camlinternalFormat.ml:2325:16>>*/ (pct_ind,
-                 str_ind,
-                 48,
-                 cst_precision$0) /*<<camlinternalFormat.ml:2330:41>>*/ ;
-      /*<<camlinternalFormat.ml:2330:41>>*/ }
+                (pct_ind, str_ind, 48, cst_precision$0) /*<<camlinternalFormat.ml:2330:41>>*/ ;
+     }
      function check_no_0(symb, pad){
        /*<<camlinternalFormat.ml:2334:6>>*/ if(typeof pad === "number")
-        /*<<camlinternalFormat.ml:2335:22>>*/ return pad /*<<camlinternalFormat.ml:2335:22>>*/ ;
+        /*<<camlinternalFormat.ml:2335:22>>*/ return pad;
       if(0 !== pad[0])
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _I_
                  :  /*<<camlinternalFormat.ml:2343:13>>*/ incompatible_flag
-                    /*<<camlinternalFormat.ml:2343:13>>*/ (pct_ind,
-                    str_ind,
-                    symb,
-                    cst_0$1)
+                   (pct_ind, str_ind, symb, cst_0$1)
                : pad /*<<camlinternalFormat.ml:2343:55>>*/ ;
-      if(2 > pad[1])
-        /*<<camlinternalFormat.ml:2336:43>>*/ return pad /*<<camlinternalFormat.ml:2336:43>>*/ ;
+      if(2 > pad[1])  /*<<camlinternalFormat.ml:2336:43>>*/ return pad;
       var width = pad[2];
        /*<<camlinternalFormat.ml:2339:8>>*/ return legacy_behavior$0
               ? [0, 1, width]
               :  /*<<camlinternalFormat.ml:2340:13>>*/ incompatible_flag
-                 /*<<camlinternalFormat.ml:2340:13>>*/ (pct_ind,
-                 str_ind,
-                 symb,
-                 cst_0$0) /*<<camlinternalFormat.ml:2343:55>>*/ ;
-      /*<<camlinternalFormat.ml:2343:55>>*/ }
+                (pct_ind, str_ind, symb, cst_0$0) /*<<camlinternalFormat.ml:2343:55>>*/ ;
+     }
      function opt_of_pad(c, pad){
        /*<<camlinternalFormat.ml:2349:64>>*/ if(typeof pad === "number")
-        /*<<camlinternalFormat.ml:2350:22>>*/ return 0 /*<<camlinternalFormat.ml:2350:22>>*/ ;
+        /*<<camlinternalFormat.ml:2350:22>>*/ return 0;
       if(0 === pad[0])
        switch(pad[1]){
          case 0:
@@ -22712,41 +18897,28 @@
            /*<<camlinternalFormat.ml:2356:8>>*/ return legacy_behavior$0
                   ? [0, width]
                   :  /*<<camlinternalFormat.ml:2357:13>>*/ incompatible_flag
-                     /*<<camlinternalFormat.ml:2357:13>>*/ (pct_ind,
-                     str_ind,
-                     c,
-                     cst$24) /*<<camlinternalFormat.ml:2358:66>>*/ ;
+                    (pct_ind, str_ind, c, cst$24) /*<<camlinternalFormat.ml:2358:66>>*/ ;
          case 1:
           var width$0 = pad[2];
-           /*<<camlinternalFormat.ml:2351:38>>*/ return [0, width$0] /*<<camlinternalFormat.ml:2351:38>>*/ ;
+           /*<<camlinternalFormat.ml:2351:38>>*/ return [0, width$0];
          default:
           var width$1 = pad[2];
            /*<<camlinternalFormat.ml:2353:8>>*/ return legacy_behavior$0
                   ? [0, width$1]
                   :  /*<<camlinternalFormat.ml:2354:13>>*/ incompatible_flag
-                     /*<<camlinternalFormat.ml:2354:13>>*/ (pct_ind,
-                     str_ind,
-                     c,
-                     cst_0$2) /*<<camlinternalFormat.ml:2358:66>>*/ ;
+                    (pct_ind, str_ind, c, cst_0$2) /*<<camlinternalFormat.ml:2358:66>>*/ ;
        }
-       /*<<camlinternalFormat.ml:2358:25>>*/ return  /*<<camlinternalFormat.ml:2358:25>>*/ incompatible_flag
-               /*<<camlinternalFormat.ml:2358:25>>*/ (pct_ind,
-               str_ind,
-               c,
-               cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
-      /*<<camlinternalFormat.ml:2358:66>>*/ }
+       /*<<camlinternalFormat.ml:2358:25>>*/ return incompatible_flag
+              (pct_ind, str_ind, c, cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
+     }
      function get_pad_opt(c){
        /*<<camlinternalFormat.ml:2360:24>>*/ return  /*<<camlinternalFormat.ml:2360:37>>*/ opt_of_pad
-               /*<<camlinternalFormat.ml:2360:37>>*/ (c,
-                /*<<camlinternalFormat.ml:2360:37>>*/ get_pad
-                 /*<<camlinternalFormat.ml:2360:37>>*/ (0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
-      /*<<camlinternalFormat.ml:2360:49>>*/ }
+              (c, get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
+     }
      function get_padprec_opt(c){
        /*<<camlinternalFormat.ml:2361:28>>*/ return  /*<<camlinternalFormat.ml:2361:41>>*/ opt_of_pad
-               /*<<camlinternalFormat.ml:2361:41>>*/ (c,
-                /*<<camlinternalFormat.ml:2361:41>>*/ get_padprec
-                 /*<<camlinternalFormat.ml:2361:41>>*/ (0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
-      /*<<camlinternalFormat.ml:2361:57>>*/ }
+              (c, get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
+     }
      a:
      {
        /*<<camlinternalFormat.ml:2372:4>>*/ if(124 > symb)
@@ -22754,36 +18926,27 @@
          case 33:
           var
            fmt_rest$5 =
-              /*<<camlinternalFormat.ml:2515:29>>*/ parse
-                /*<<camlinternalFormat.ml:2515:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2515:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result = [0, [10, fmt_rest$5]];
           break a;
          case 40:
           var
            sub_end =
-              /*<<camlinternalFormat.ml:2531:20>>*/  /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
-               /*<<camlinternalFormat.ml:2531:20>>*/ (str_ind, end_ind, 41),
+              /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
+              (str_ind, end_ind, 41),
            fmt_rest$7 =
               /*<<camlinternalFormat.ml:2532:29>>*/ parse
-                /*<<camlinternalFormat.ml:2532:29>>*/ (sub_end + 2 | 0,
-                end_ind)
+               (sub_end + 2 | 0, end_ind)
               [1],
            sub_fmt =
-              /*<<camlinternalFormat.ml:2533:28>>*/ parse
-                /*<<camlinternalFormat.ml:2533:28>>*/ (str_ind, sub_end)
-              [1],
+              /*<<camlinternalFormat.ml:2533:28>>*/ parse(str_ind, sub_end)[1],
            sub_fmtty =
-              /*<<camlinternalFormat.ml:2534:22>>*/  /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt
-               /*<<camlinternalFormat.ml:2534:22>>*/ (sub_fmt);
-           /*<<camlinternalFormat.ml:2535:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2535:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2535:9>>*/ (0))
+              /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt(sub_fmt);
+           /*<<camlinternalFormat.ml:2535:9>>*/ if(get_ign(0))
            var
             ignored$2 =
                /*<<camlinternalFormat.ml:2536:22>>*/ [9,
-                /*<<camlinternalFormat.ml:2536:44>>*/ get_pad_opt
-                 /*<<camlinternalFormat.ml:2536:44>>*/ (95),
+                /*<<camlinternalFormat.ml:2536:44>>*/ get_pad_opt(95),
                sub_fmtty],
             _aJ_ = [0, [23, ignored$2, fmt_rest$7]];
           else
@@ -22791,8 +18954,7 @@
             _aJ_ =
               [0,
                [14,
-                 /*<<camlinternalFormat.ml:2539:31>>*/ get_pad_opt
-                  /*<<camlinternalFormat.ml:2539:31>>*/ (40),
+                 /*<<camlinternalFormat.ml:2539:31>>*/ get_pad_opt(40),
                 sub_fmtty,
                 fmt_rest$7]];
           var fmt_result = _aJ_;
@@ -22800,18 +18962,14 @@
          case 44:
           var
            fmt_result =
-              /*<<camlinternalFormat.ml:2374:6>>*/ parse
-               /*<<camlinternalFormat.ml:2374:6>>*/ (str_ind, end_ind);
+              /*<<camlinternalFormat.ml:2374:6>>*/ parse(str_ind, end_ind);
           break a;
          case 67:
           var
            fmt_rest$10 =
-              /*<<camlinternalFormat.ml:2396:29>>*/ parse
-                /*<<camlinternalFormat.ml:2396:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2396:29>>*/ parse(str_ind, end_ind)[1],
            _aL_ =
-              /*<<camlinternalFormat.ml:2397:9>>*/  /*<<camlinternalFormat.ml:2397:9>>*/ get_ign
-                /*<<camlinternalFormat.ml:2397:9>>*/ (0)
+              /*<<camlinternalFormat.ml:2397:9>>*/ get_ign(0)
               ? [0, [23, 1, fmt_rest$10]]
               : [0, [1, fmt_rest$10]],
            fmt_result = _aL_;
@@ -22819,13 +18977,9 @@
          case 78:
           var
            fmt_rest$14 =
-              /*<<camlinternalFormat.ml:2431:29>>*/ parse
-                /*<<camlinternalFormat.ml:2431:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2431:29>>*/ parse(str_ind, end_ind)[1],
            counter$0 = 2;
-           /*<<camlinternalFormat.ml:2433:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2433:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2433:9>>*/ (0))
+           /*<<camlinternalFormat.ml:2433:9>>*/ if(get_ign(0))
            var
             ignored$6 =  /*<<camlinternalFormat.ml:2434:22>>*/ [11, counter$0],
             _aR_ = [0, [23, ignored$6, fmt_rest$14]];
@@ -22836,28 +18990,21 @@
          case 83:
           var
            pad$6 =
-              /*<<camlinternalFormat.ml:2410:16>>*/  /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
-               /*<<camlinternalFormat.ml:2410:16>>*/ (symb,
-                /*<<camlinternalFormat.ml:2410:32>>*/ get_padprec
-                 /*<<camlinternalFormat.ml:2410:32>>*/ (0)),
+              /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
+              (symb,  /*<<camlinternalFormat.ml:2410:32>>*/ get_padprec(0)),
            fmt_rest$15 =
-              /*<<camlinternalFormat.ml:2411:29>>*/ parse
-                /*<<camlinternalFormat.ml:2411:29>>*/ (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2412:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2412:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2412:9>>*/ (0))
+              /*<<camlinternalFormat.ml:2411:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2412:9>>*/ if(get_ign(0))
            var
             ignored$7 =
                /*<<camlinternalFormat.ml:2413:22>>*/ [1,
-                /*<<camlinternalFormat.ml:2413:42>>*/ get_padprec_opt
-                 /*<<camlinternalFormat.ml:2413:42>>*/ (95)],
+                /*<<camlinternalFormat.ml:2413:42>>*/ get_padprec_opt(95)],
             _aS_ = [0, [23, ignored$7, fmt_rest$15]];
           else
            var
             match$5 =
-               /*<<camlinternalFormat.ml:2417:10>>*/  /*<<camlinternalFormat.ml:2417:10>>*/ make_padding_fmt_ebb
-                /*<<camlinternalFormat.ml:2417:10>>*/ (pad$6, fmt_rest$15),
+               /*<<camlinternalFormat.ml:2417:10>>*/ make_padding_fmt_ebb
+               (pad$6, fmt_rest$15),
             fmt_rest$16 = match$5[2],
             pad$7 = match$5[1],
             _aS_ = [0, [3, pad$7, fmt_rest$16]];
@@ -22865,22 +19012,20 @@
           break a;
          case 91:
           if(str_ind === end_ind)
-            /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-             /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-             cst_unexpected_end_of_format);
+            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+            (end_ind, cst_unexpected_end_of_format);
           var
            char_set =
-              /*<<camlinternalFormat.ml:2719:19>>*/  /*<<camlinternalFormat.ml:2719:19>>*/ create_char_set
-               /*<<camlinternalFormat.ml:2719:19>>*/ (0),
+              /*<<camlinternalFormat.ml:2719:19>>*/ create_char_set(0),
            add_range =
              function(c$0, c){
                /*<<camlinternalFormat.ml:2724:6>>*/ if(c >= c$0){
                var i = c$0;
                for(;;){
-                 /*<<camlinternalFormat.ml:2725:8>>*/  /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
-                  /*<<camlinternalFormat.ml:2725:8>>*/ (char_set,
+                 /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
+                 (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
-                    /*<<camlinternalFormat.ml:2725:33>>*/ (Stdlib[29], i));
+                   (Stdlib[29], i));
                 var _a$_ =  /*<<camlinternalFormat.ml:2725:8>>*/ i + 1 | 0;
                 if(c === i) break;
                 i = _a$_;
@@ -22889,42 +19034,34 @@
               /*<<camlinternalFormat.ml:2726:10>>*/ },
            fail_single_percent =
              function(str_ind){
-               /*<<camlinternalFormat.ml:2730:6>>*/ return  /*<<camlinternalFormat.ml:2730:6>>*/ caml_call2
-                       /*<<camlinternalFormat.ml:2730:6>>*/ ( /*<<camlinternalFormat.ml:2730:6>>*/ failwith_message
-                         /*<<camlinternalFormat.ml:2730:6>>*/ (_R_),
-                       str,
-                       str_ind) /*<<camlinternalFormat.ml:2732:54>>*/ ;
-              /*<<camlinternalFormat.ml:2732:54>>*/ },
+               /*<<camlinternalFormat.ml:2730:6>>*/ return caml_call2
+                      (failwith_message(_R_), str, str_ind) /*<<camlinternalFormat.ml:2732:54>>*/ ;
+             },
            parse_char_set_content =
              function(counter, str_ind, end_ind){
               var str_ind$0 = str_ind;
                /*<<camlinternalFormat.ml:2743:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
-                 /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                  /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-                  cst_unexpected_end_of_format);
+                 /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                 (end_ind, cst_unexpected_end_of_format);
                var
                 c =
-                   /*<<camlinternalFormat.ml:2744:12>>*/  /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
-                    /*<<camlinternalFormat.ml:2744:12>>*/ (str, str_ind$0);
+                   /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
+                   (str, str_ind$0);
                if(45 !== c){
                 if(93 === c)
                   /*<<camlinternalFormat.ml:2746:8>>*/ return str_ind$0 + 1
-                        | 0 /*<<camlinternalFormat.ml:2746:8>>*/ ;
+                        | 0;
                 var _a__ = str_ind$0 + 1 | 0;
                  /*<<camlinternalFormat.ml:2751:8>>*/ if(counter >= 50)
-                  /*<<camlinternalFormat.ml:2751:8>>*/ return  /*<<camlinternalFormat.ml:2751:8>>*/ caml_trampoline_return
-                          /*<<camlinternalFormat.ml:2751:8>>*/ (parse_char_set_after_char$0,
-                          [0, _a__, end_ind, c]) /*<<camlinternalFormat.ml:2751:57>>*/ ;
+                 return caml_trampoline_return
+                         (parse_char_set_after_char$0, [0, _a__, end_ind, c]) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                 var counter$0 = counter + 1 | 0;
-                 /*<<camlinternalFormat.ml:2751:8>>*/ return  /*<<camlinternalFormat.ml:2751:8>>*/ parse_char_set_after_char$0
-                         /*<<camlinternalFormat.ml:2751:8>>*/ (counter$0,
-                         _a__,
-                         end_ind,
-                         c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
+                 /*<<camlinternalFormat.ml:2751:8>>*/ return parse_char_set_after_char$0
+                        (counter$0, _a__, end_ind, c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                }
-                /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                 /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, 45);
+                /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                (char_set, 45);
                var str_ind$1 = str_ind$0 + 1 | 0;
                str_ind$0 = str_ind$1;
               }
@@ -22934,102 +19071,86 @@
               var str_ind$0 = str_ind, c$0 = c;
                /*<<camlinternalFormat.ml:2755:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
-                 /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                  /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-                  cst_unexpected_end_of_format);
+                 /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                 (end_ind, cst_unexpected_end_of_format);
                var
                 c$1 =
-                   /*<<camlinternalFormat.ml:2756:12>>*/  /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
-                    /*<<camlinternalFormat.ml:2756:12>>*/ (str, str_ind$0);
+                   /*<<camlinternalFormat.ml:2756:12>>*/ caml_string_get
+                   (str, str_ind$0);
                a:
                {
                 if(46 <= c$1){
                  if(64 !== c$1){
                   if(93 !== c$1) break a;
-                   /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                    /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$0);
+                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                   (char_set, c$0);
                    /*<<camlinternalFormat.ml:2758:8>>*/ return str_ind$0 + 1
-                         | 0 /*<<camlinternalFormat.ml:2758:8>>*/ ;
+                         | 0;
                  }
                 }
                 else if(37 !== c$1){
                  if(45 > c$1) break a;
                  var str_ind$2 = str_ind$0 + 1 | 0;
                  if(str_ind$2 === end_ind)
-                   /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                    /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-                    cst_unexpected_end_of_format);
+                   /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                   (end_ind, cst_unexpected_end_of_format);
                  var
                   c$2 =
-                     /*<<camlinternalFormat.ml:2776:12>>*/  /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
-                      /*<<camlinternalFormat.ml:2776:12>>*/ (str, str_ind$2);
+                     /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
+                     (str, str_ind$2);
                  if(37 === c$2){
                   if((str_ind$2 + 1 | 0) === end_ind)
-                    /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-                     /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-                     cst_unexpected_end_of_format);
+                    /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+                    (end_ind, cst_unexpected_end_of_format);
                   var
                    c$3 =
-                      /*<<camlinternalFormat.ml:2783:20>>*/  /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
-                       /*<<camlinternalFormat.ml:2783:20>>*/ (str,
-                       str_ind$2 + 1 | 0);
+                      /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
+                      (str, str_ind$2 + 1 | 0);
                   if(37 !== c$3 && 64 !== c$3)
-                    /*<<camlinternalFormat.ml:2787:17>>*/ return  /*<<camlinternalFormat.ml:2787:17>>*/ fail_single_percent
-                            /*<<camlinternalFormat.ml:2787:17>>*/ (str_ind$2) /*<<camlinternalFormat.ml:2771:58>>*/ ;
-                   /*<<camlinternalFormat.ml:2785:12>>*/  /*<<camlinternalFormat.ml:2785:12>>*/ add_range
-                    /*<<camlinternalFormat.ml:2785:12>>*/ (c$0, c$3);
+                    /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
+                           (str_ind$2) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                   /*<<camlinternalFormat.ml:2785:12>>*/ add_range(c$0, c$3);
                   var _a8_ = str_ind$2 + 2 | 0;
-                   /*<<camlinternalFormat.ml:2785:12>>*/ if(counter >= 50)
-                    /*<<camlinternalFormat.ml:2785:12>>*/ return  /*<<camlinternalFormat.ml:2785:12>>*/ caml_trampoline_return
-                            /*<<camlinternalFormat.ml:2785:12>>*/ (parse_char_set_content,
-                            [0, _a8_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  if(counter >= 50)
+                   return caml_trampoline_return
+                           (parse_char_set_content, [0, _a8_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                   var counter$1 = counter + 1 | 0;
-                   /*<<camlinternalFormat.ml:2785:12>>*/ return  /*<<camlinternalFormat.ml:2785:12>>*/ parse_char_set_content
-                           /*<<camlinternalFormat.ml:2785:12>>*/ (counter$1,
-                           _a8_,
-                           end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                   /*<<camlinternalFormat.ml:2785:12>>*/ return parse_char_set_content
+                          (counter$1, _a8_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  }
                  if(93 === c$2){
-                   /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                    /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$0);
-                   /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                    /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, 45);
+                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                   (char_set, c$0);
+                  add_in_char_set(char_set, 45);
                    /*<<camlinternalFormat.ml:2779:8>>*/ return str_ind$2 + 1
-                         | 0 /*<<camlinternalFormat.ml:2779:8>>*/ ;
+                         | 0;
                  }
-                  /*<<camlinternalFormat.ml:2790:8>>*/  /*<<camlinternalFormat.ml:2790:8>>*/ add_range
-                   /*<<camlinternalFormat.ml:2790:8>>*/ (c$0, c$2);
+                  /*<<camlinternalFormat.ml:2790:8>>*/ add_range(c$0, c$2);
                  var _a9_ = str_ind$2 + 1 | 0;
-                  /*<<camlinternalFormat.ml:2790:8>>*/ if(counter >= 50)
-                   /*<<camlinternalFormat.ml:2790:8>>*/ return  /*<<camlinternalFormat.ml:2790:8>>*/ caml_trampoline_return
-                           /*<<camlinternalFormat.ml:2790:8>>*/ (parse_char_set_content,
-                           [0, _a9_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                 if(counter >= 50)
+                  return caml_trampoline_return
+                          (parse_char_set_content, [0, _a9_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$0 = counter + 1 | 0;
-                  /*<<camlinternalFormat.ml:2790:8>>*/ return  /*<<camlinternalFormat.ml:2790:8>>*/ parse_char_set_content
-                          /*<<camlinternalFormat.ml:2790:8>>*/ (counter$0,
-                          _a9_,
-                          end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  /*<<camlinternalFormat.ml:2790:8>>*/ return parse_char_set_content
+                         (counter$0, _a9_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                 if(37 === c$0){
-                  /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                   /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$1);
+                  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                  (char_set, c$1);
                  var _a7_ = str_ind$0 + 1 | 0;
                   /*<<camlinternalFormat.ml:2763:8>>*/ if(counter >= 50)
-                   /*<<camlinternalFormat.ml:2763:8>>*/ return  /*<<camlinternalFormat.ml:2763:8>>*/ caml_trampoline_return
-                           /*<<camlinternalFormat.ml:2763:8>>*/ (parse_char_set_content,
-                           [0, _a7_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  return caml_trampoline_return
+                          (parse_char_set_content, [0, _a7_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$2 = counter + 1 | 0;
-                  /*<<camlinternalFormat.ml:2763:8>>*/ return  /*<<camlinternalFormat.ml:2763:8>>*/ parse_char_set_content
-                          /*<<camlinternalFormat.ml:2763:8>>*/ (counter$2,
-                          _a7_,
-                          end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  /*<<camlinternalFormat.ml:2763:8>>*/ return parse_char_set_content
+                         (counter$2, _a7_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                }
                if(37 === c$0)
-                 /*<<camlinternalFormat.ml:2766:24>>*/  /*<<camlinternalFormat.ml:2766:24>>*/ fail_single_percent
-                  /*<<camlinternalFormat.ml:2766:24>>*/ (str_ind$0);
-                /*<<camlinternalFormat.ml:2721:6>>*/  /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
-                 /*<<camlinternalFormat.ml:2721:6>>*/ (char_set, c$0);
+                 /*<<camlinternalFormat.ml:2766:24>>*/ fail_single_percent
+                 (str_ind$0);
+                /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
+                (char_set, c$0);
                var str_ind$1 = str_ind$0 + 1 | 0;
                str_ind$0 = str_ind$1;
                c$0 = c$1;
@@ -23041,14 +19162,13 @@
                       (parse_char_set_after_char$0(0, str_ind, end_ind, c));
              };
           if(str_ind === end_ind)
-            /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-             /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-             cst_unexpected_end_of_format);
+            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+            (end_ind, cst_unexpected_end_of_format);
           if
            (94
             ===
               /*<<camlinternalFormat.ml:2795:12>>*/ caml_string_get
-               /*<<camlinternalFormat.ml:2795:12>>*/ (str, str_ind))
+              (str, str_ind))
            var
             str_ind$0 = str_ind + 1 | 0,
             reverse = 1,
@@ -23056,38 +19176,30 @@
           else
            var reverse = 0, str_ind$1 = str_ind;
           if(str_ind$1 === end_ind)
-            /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-             /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-             cst_unexpected_end_of_format);
+            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+            (end_ind, cst_unexpected_end_of_format);
           var
            c =
-              /*<<camlinternalFormat.ml:2738:14>>*/  /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
-               /*<<camlinternalFormat.ml:2738:14>>*/ (str, str_ind$1),
+              /*<<camlinternalFormat.ml:2738:14>>*/ caml_string_get
+              (str, str_ind$1),
            next_ind =
-              /*<<camlinternalFormat.ml:2739:6>>*/  /*<<camlinternalFormat.ml:2739:6>>*/ parse_char_set_after_char
-               /*<<camlinternalFormat.ml:2739:6>>*/ (str_ind$1 + 1 | 0,
-               end_ind,
-               c),
+              /*<<camlinternalFormat.ml:2739:6>>*/ parse_char_set_after_char
+              (str_ind$1 + 1 | 0, end_ind, c),
            char_set$0 =
-              /*<<camlinternalFormat.ml:2799:19>>*/  /*<<camlinternalFormat.ml:2799:19>>*/ freeze_char_set
-               /*<<camlinternalFormat.ml:2799:19>>*/ (char_set),
+              /*<<camlinternalFormat.ml:2799:19>>*/ freeze_char_set(char_set),
            char_set$1 =
               /*<<camlinternalFormat.ml:2800:4>>*/ reverse
               ?  /*<<camlinternalFormat.ml:2800:31>>*/ rev_char_set
-                 /*<<camlinternalFormat.ml:2800:31>>*/ (char_set$0)
+                (char_set$0)
               : char_set$0,
            fmt_rest$19 =
-              /*<<camlinternalFormat.ml:2542:29>>*/ parse
-                /*<<camlinternalFormat.ml:2542:29>>*/ (next_ind, end_ind)
+              /*<<camlinternalFormat.ml:2542:29>>*/ parse(next_ind, end_ind)
               [1];
-           /*<<camlinternalFormat.ml:2543:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2543:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2543:9>>*/ (0))
+           /*<<camlinternalFormat.ml:2543:9>>*/ if(get_ign(0))
            var
             ignored$9 =
                /*<<camlinternalFormat.ml:2544:22>>*/ [10,
-                /*<<camlinternalFormat.ml:2544:45>>*/ get_pad_opt
-                 /*<<camlinternalFormat.ml:2544:45>>*/ (95),
+                /*<<camlinternalFormat.ml:2544:45>>*/ get_pad_opt(95),
                char_set$1],
             _aX_ = [0, [23, ignored$9, fmt_rest$19]];
           else
@@ -23095,8 +19207,7 @@
             _aX_ =
               [0,
                [20,
-                 /*<<camlinternalFormat.ml:2547:32>>*/ get_pad_opt
-                  /*<<camlinternalFormat.ml:2547:32>>*/ (91),
+                 /*<<camlinternalFormat.ml:2547:32>>*/ get_pad_opt(91),
                 char_set$1,
                 fmt_rest$19]];
           var fmt_result = _aX_;
@@ -23104,9 +19215,7 @@
          case 97:
           var
            fmt_rest$20 =
-              /*<<camlinternalFormat.ml:2505:29>>*/ parse
-                /*<<camlinternalFormat.ml:2505:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2505:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result = [0, [15, fmt_rest$20]];
           break a;
          case 99:
@@ -23114,23 +19223,18 @@
            char_format =
              function(fmt_rest){
                /*<<camlinternalFormat.ml:2377:8>>*/ return  /*<<camlinternalFormat.ml:2377:11>>*/ get_ign
-                        /*<<camlinternalFormat.ml:2377:11>>*/ (0)
+                       (0)
                       ? [0, [23, 0, fmt_rest]]
                       : [0, [0, fmt_rest]] /*<<camlinternalFormat.ml:2379:36>>*/ ;
-              /*<<camlinternalFormat.ml:2379:36>>*/ },
+             },
            fmt_rest$21 =
-              /*<<camlinternalFormat.ml:2386:29>>*/ parse
-                /*<<camlinternalFormat.ml:2386:29>>*/ (str_ind, end_ind)
-              [1],
-           match$7 =
-              /*<<camlinternalFormat.ml:2387:18>>*/  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt
-               /*<<camlinternalFormat.ml:2387:18>>*/ (99);
+              /*<<camlinternalFormat.ml:2386:29>>*/ parse(str_ind, end_ind)[1],
+           match$7 =  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt(99);
           if(match$7){
            if(0 === match$7[1])
             var
              _aY_ =
-                /*<<camlinternalFormat.ml:2382:11>>*/  /*<<camlinternalFormat.ml:2382:11>>*/ get_ign
-                  /*<<camlinternalFormat.ml:2382:11>>*/ (0)
+                /*<<camlinternalFormat.ml:2382:11>>*/ get_ign(0)
                 ? [0, [23, 3, fmt_rest$21]]
                 : [0, [22, fmt_rest$21]],
              _aZ_ = _aY_;
@@ -23139,28 +19243,23 @@
              _aZ_ =
                legacy_behavior$0
                 ?  /*<<camlinternalFormat.ml:2393:47>>*/ char_format
-                   /*<<camlinternalFormat.ml:2393:47>>*/ (fmt_rest$21)
+                  (fmt_rest$21)
                 :  /*<<camlinternalFormat.ml:2098:4>>*/ invalid_format_message
-                   /*<<camlinternalFormat.ml:2098:4>>*/ (str_ind,
-                   cst_non_zero_widths_are_unsupp);
+                  (str_ind, cst_non_zero_widths_are_unsupp);
            var _a0_ = _aZ_;
           }
           else
            var
             _a0_ =
-               /*<<camlinternalFormat.ml:2388:18>>*/ char_format
-                /*<<camlinternalFormat.ml:2388:18>>*/ (fmt_rest$21);
+               /*<<camlinternalFormat.ml:2388:18>>*/ char_format(fmt_rest$21);
           var fmt_result = _a0_;
           break a;
          case 114:
           var
            fmt_rest$22 =
-              /*<<camlinternalFormat.ml:2511:29>>*/ parse
-                /*<<camlinternalFormat.ml:2511:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2511:29>>*/ parse(str_ind, end_ind)[1],
            _a1_ =
-              /*<<camlinternalFormat.ml:2512:9>>*/  /*<<camlinternalFormat.ml:2512:9>>*/ get_ign
-                /*<<camlinternalFormat.ml:2512:9>>*/ (0)
+              /*<<camlinternalFormat.ml:2512:9>>*/ get_ign(0)
               ? [0, [23, 2, fmt_rest$22]]
               : [0, [19, fmt_rest$22]],
            fmt_result = _a1_;
@@ -23168,28 +19267,21 @@
          case 115:
           var
            pad$9 =
-              /*<<camlinternalFormat.ml:2400:16>>*/  /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
-               /*<<camlinternalFormat.ml:2400:16>>*/ (symb,
-                /*<<camlinternalFormat.ml:2400:32>>*/ get_padprec
-                 /*<<camlinternalFormat.ml:2400:32>>*/ (0)),
+              /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
+              (symb,  /*<<camlinternalFormat.ml:2400:32>>*/ get_padprec(0)),
            fmt_rest$23 =
-              /*<<camlinternalFormat.ml:2401:29>>*/ parse
-                /*<<camlinternalFormat.ml:2401:29>>*/ (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2402:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2402:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2402:9>>*/ (0))
+              /*<<camlinternalFormat.ml:2401:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2402:9>>*/ if(get_ign(0))
            var
             ignored$10 =
                /*<<camlinternalFormat.ml:2403:22>>*/ [0,
-                /*<<camlinternalFormat.ml:2403:37>>*/ get_padprec_opt
-                 /*<<camlinternalFormat.ml:2403:37>>*/ (95)],
+                /*<<camlinternalFormat.ml:2403:37>>*/ get_padprec_opt(95)],
             _a2_ = [0, [23, ignored$10, fmt_rest$23]];
           else
            var
             match$8 =
-               /*<<camlinternalFormat.ml:2407:10>>*/  /*<<camlinternalFormat.ml:2407:10>>*/ make_padding_fmt_ebb
-                /*<<camlinternalFormat.ml:2407:10>>*/ (pad$9, fmt_rest$23),
+               /*<<camlinternalFormat.ml:2407:10>>*/ make_padding_fmt_ebb
+               (pad$9, fmt_rest$23),
             fmt_rest$24 = match$8[2],
             pad$10 = match$8[1],
             _a2_ = [0, [2, pad$10, fmt_rest$24]];
@@ -23198,36 +19290,28 @@
          case 116:
           var
            fmt_rest$25 =
-              /*<<camlinternalFormat.ml:2508:29>>*/ parse
-                /*<<camlinternalFormat.ml:2508:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2508:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result = [0, [16, fmt_rest$25]];
           break a;
          case 123:
           var
            sub_end$0 =
-              /*<<camlinternalFormat.ml:2521:20>>*/  /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
-               /*<<camlinternalFormat.ml:2521:20>>*/ (str_ind, end_ind, 125),
+              /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
+              (str_ind, end_ind, 125),
            sub_fmt$0 =
-              /*<<camlinternalFormat.ml:2522:28>>*/ parse
-                /*<<camlinternalFormat.ml:2522:28>>*/ (str_ind, sub_end$0)
+              /*<<camlinternalFormat.ml:2522:28>>*/ parse(str_ind, sub_end$0)
               [1],
            fmt_rest$26 =
               /*<<camlinternalFormat.ml:2523:29>>*/ parse
-                /*<<camlinternalFormat.ml:2523:29>>*/ (sub_end$0 + 2 | 0,
-                end_ind)
+               (sub_end$0 + 2 | 0, end_ind)
               [1],
            sub_fmtty$0 =
-              /*<<camlinternalFormat.ml:2524:22>>*/  /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt
-               /*<<camlinternalFormat.ml:2524:22>>*/ (sub_fmt$0);
-           /*<<camlinternalFormat.ml:2525:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2525:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2525:9>>*/ (0))
+              /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt(sub_fmt$0);
+           /*<<camlinternalFormat.ml:2525:9>>*/ if(get_ign(0))
            var
             ignored$11 =
                /*<<camlinternalFormat.ml:2526:22>>*/ [8,
-                /*<<camlinternalFormat.ml:2526:42>>*/ get_pad_opt
-                 /*<<camlinternalFormat.ml:2526:42>>*/ (95),
+                /*<<camlinternalFormat.ml:2526:42>>*/ get_pad_opt(95),
                sub_fmtty$0],
             _a3_ = [0, [23, ignored$11, fmt_rest$26]];
           else
@@ -23235,8 +19319,7 @@
             _a3_ =
               [0,
                [13,
-                 /*<<camlinternalFormat.ml:2529:29>>*/ get_pad_opt
-                  /*<<camlinternalFormat.ml:2529:29>>*/ (123),
+                 /*<<camlinternalFormat.ml:2529:29>>*/ get_pad_opt(123),
                 sub_fmtty$0,
                 fmt_rest$26]];
           var fmt_result = _a3_;
@@ -23245,28 +19328,21 @@
          case 98:
           var
            pad$3 =
-              /*<<camlinternalFormat.ml:2495:16>>*/  /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
-               /*<<camlinternalFormat.ml:2495:16>>*/ (symb,
-                /*<<camlinternalFormat.ml:2495:32>>*/ get_padprec
-                 /*<<camlinternalFormat.ml:2495:32>>*/ (0)),
+              /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
+              (symb,  /*<<camlinternalFormat.ml:2495:32>>*/ get_padprec(0)),
            fmt_rest$8 =
-              /*<<camlinternalFormat.ml:2496:29>>*/ parse
-                /*<<camlinternalFormat.ml:2496:29>>*/ (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2497:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2497:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2497:9>>*/ (0))
+              /*<<camlinternalFormat.ml:2496:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2497:9>>*/ if(get_ign(0))
            var
             ignored$3 =
                /*<<camlinternalFormat.ml:2498:22>>*/ [7,
-                /*<<camlinternalFormat.ml:2498:35>>*/ get_padprec_opt
-                 /*<<camlinternalFormat.ml:2498:35>>*/ (95)],
+                /*<<camlinternalFormat.ml:2498:35>>*/ get_padprec_opt(95)],
             _aK_ = [0, [23, ignored$3, fmt_rest$8]];
           else
            var
             match$3 =
-               /*<<camlinternalFormat.ml:2502:10>>*/  /*<<camlinternalFormat.ml:2502:10>>*/ make_padding_fmt_ebb
-                /*<<camlinternalFormat.ml:2502:10>>*/ (pad$3, fmt_rest$8),
+               /*<<camlinternalFormat.ml:2502:10>>*/ make_padding_fmt_ebb
+               (pad$3, fmt_rest$8),
             fmt_rest$9 = match$3[2],
             pad$4 = match$3[1],
             _aK_ = [0, [9, pad$4, fmt_rest$9]];
@@ -23276,9 +19352,7 @@
          case 64:
           var
            fmt_rest$6 =
-              /*<<camlinternalFormat.ml:2518:29>>*/ parse
-                /*<<camlinternalFormat.ml:2518:29>>*/ (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2518:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result = [0, [12, symb, fmt_rest$6]];
           break a;
          case 76:
@@ -23287,8 +19361,8 @@
           if(str_ind !== end_ind){
            var
             symb$0 =
-               /*<<camlinternalFormat.ml:2438:63>>*/  /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
-                /*<<camlinternalFormat.ml:2438:63>>*/ (str, str_ind),
+               /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
+               (str, str_ind),
             _a4_ =  /*<<camlinternalFormat.ml:2892:25>>*/ symb$0 - 88 | 0;
            b:
            {
@@ -23308,9 +19382,7 @@
           }
           var
            fmt_rest$13 =
-              /*<<camlinternalFormat.ml:2439:29>>*/ parse
-                /*<<camlinternalFormat.ml:2439:29>>*/ (str_ind, end_ind)
-              [1];
+              /*<<camlinternalFormat.ml:2439:29>>*/ parse(str_ind, end_ind)[1];
           b:
           {
            if(108 <= symb){
@@ -23323,15 +19395,10 @@
              }
            }
            else if(76 === symb){var counter = 2; break b;}
-            /*<<camlinternalFormat.ml:2899:34>>*/ throw  /*<<camlinternalFormat.ml:2899:34>>*/ caml_maybe_attach_backtrace
-                   /*<<camlinternalFormat.ml:2899:34>>*/ ([0,
-                    Assert_failure,
-                    _V_],
-                   1);
+            /*<<camlinternalFormat.ml:2899:34>>*/ throw caml_maybe_attach_backtrace
+                  ([0, Assert_failure, _V_], 1);
           }
-           /*<<camlinternalFormat.ml:2441:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2441:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2441:9>>*/ (0))
+           /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
            var
             ignored$5 =  /*<<camlinternalFormat.ml:2442:22>>*/ [11, counter],
             _aP_ = [0, [23, ignored$5, fmt_rest$13]];
@@ -23347,11 +19414,7 @@
           var
            fmt_result =
               /*<<camlinternalFormat.ml:2549:6>>*/ caml_call3
-               /*<<camlinternalFormat.ml:2549:6>>*/ ( /*<<camlinternalFormat.ml:2549:6>>*/ failwith_message
-                 /*<<camlinternalFormat.ml:2549:6>>*/ (_M_),
-               str,
-               pct_ind,
-               symb);
+              (failwith_message(_M_), str, pct_ind, symb);
           break a;
          case 88:
          case 100:
@@ -23360,44 +19423,31 @@
          case 117:
          case 120:
           var
-           _aT_ =
-              /*<<camlinternalFormat.ml:2421:8>>*/  /*<<camlinternalFormat.ml:2421:8>>*/ get_space
-               /*<<camlinternalFormat.ml:2421:8>>*/ (0),
-           _aU_ =
-              /*<<camlinternalFormat.ml:2420:65>>*/  /*<<camlinternalFormat.ml:2420:65>>*/ get_hash
-               /*<<camlinternalFormat.ml:2420:65>>*/ (0),
+           _aT_ =  /*<<camlinternalFormat.ml:2421:8>>*/ get_space(0),
+           _aU_ =  /*<<camlinternalFormat.ml:2420:65>>*/ get_hash(0),
            iconv$2 =
-              /*<<camlinternalFormat.ml:2420:18>>*/  /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
-               /*<<camlinternalFormat.ml:2420:18>>*/ (pct_ind,
+              /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
+              (pct_ind,
                str_ind,
-                /*<<camlinternalFormat.ml:2420:51>>*/ get_plus
-                 /*<<camlinternalFormat.ml:2420:51>>*/ (0),
+                /*<<camlinternalFormat.ml:2420:51>>*/ get_plus(0),
                _aU_,
                _aT_,
                symb),
            fmt_rest$17 =
-              /*<<camlinternalFormat.ml:2422:29>>*/ parse
-                /*<<camlinternalFormat.ml:2422:29>>*/ (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2423:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2423:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2423:9>>*/ (0))
+              /*<<camlinternalFormat.ml:2422:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2423:9>>*/ if(get_ign(0))
            var
             ignored$8 =
                /*<<camlinternalFormat.ml:2424:22>>*/ [2,
                iconv$2,
-                /*<<camlinternalFormat.ml:2424:42>>*/ get_pad_opt
-                 /*<<camlinternalFormat.ml:2424:42>>*/ (95)],
+                /*<<camlinternalFormat.ml:2424:42>>*/ get_pad_opt(95)],
             _aV_ = [0, [23, ignored$8, fmt_rest$17]];
           else
            var
-            _aW_ =
-               /*<<camlinternalFormat.ml:2428:48>>*/  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec
-                /*<<camlinternalFormat.ml:2428:48>>*/ (0),
+            _aW_ =  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec(0),
             match$6 =
-               /*<<camlinternalFormat.ml:2428:10>>*/  /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
-                /*<<camlinternalFormat.ml:2428:10>>*/ ( /*<<camlinternalFormat.ml:2428:31>>*/ get_int_pad
-                  /*<<camlinternalFormat.ml:2428:31>>*/ (0),
+               /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
+               ( /*<<camlinternalFormat.ml:2428:31>>*/ get_int_pad(0),
                 _aW_,
                 fmt_rest$17),
             fmt_rest$18 = match$6[3],
@@ -23415,25 +19465,16 @@
          case 103:
          case 104:
           var
-           space$1 =
-              /*<<camlinternalFormat.ml:2485:38>>*/  /*<<camlinternalFormat.ml:2485:38>>*/ get_space
-               /*<<camlinternalFormat.ml:2485:38>>*/ (0),
-           hash$1 =
-              /*<<camlinternalFormat.ml:2485:24>>*/  /*<<camlinternalFormat.ml:2485:24>>*/ get_hash
-               /*<<camlinternalFormat.ml:2485:24>>*/ (0),
-           plus$2 =
-              /*<<camlinternalFormat.ml:2485:10>>*/  /*<<camlinternalFormat.ml:2485:10>>*/ get_plus
-               /*<<camlinternalFormat.ml:2485:10>>*/ (0),
+           space$1 =  /*<<camlinternalFormat.ml:2485:38>>*/ get_space(0),
+           hash$1 =  /*<<camlinternalFormat.ml:2485:24>>*/ get_hash(0),
+           plus$2 =  /*<<camlinternalFormat.ml:2485:10>>*/ get_plus(0),
            flag =
              plus$2
               ? space$1
                 ? legacy_behavior$0
                   ? 1
                   :  /*<<camlinternalFormat.ml:2946:11>>*/ incompatible_flag
-                     /*<<camlinternalFormat.ml:2946:11>>*/ (pct_ind,
-                     str_ind,
-                     32,
-                     cst$36)
+                    (pct_ind, str_ind, 32, cst$36)
                 : 1
               : space$1 ? 2 : 0;
           b:
@@ -23472,54 +19513,37 @@
             if(70 === symb){var kind = 8; break b;}
            }
            else if(70 === symb){var kind = 5; break b;}
-            /*<<camlinternalFormat.ml:2957:11>>*/ throw  /*<<camlinternalFormat.ml:2957:11>>*/ caml_maybe_attach_backtrace
-                   /*<<camlinternalFormat.ml:2957:11>>*/ ([0,
-                    Assert_failure,
-                    _X_],
-                   1);
+            /*<<camlinternalFormat.ml:2957:11>>*/ throw caml_maybe_attach_backtrace
+                  ([0, Assert_failure, _X_], 1);
           }
           var
            fconv =  /*<<camlinternalFormat.ml:2958:4>>*/ [0, flag, kind],
            fmt_rest$11 =
-              /*<<camlinternalFormat.ml:2486:29>>*/ parse
-                /*<<camlinternalFormat.ml:2486:29>>*/ (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2487:9>>*/ if
-           ( /*<<camlinternalFormat.ml:2487:9>>*/ get_ign
-              /*<<camlinternalFormat.ml:2487:9>>*/ (0)){
-           var
-            match =
-               /*<<camlinternalFormat.ml:2366:32>>*/  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec
-                /*<<camlinternalFormat.ml:2366:32>>*/ (0);
+              /*<<camlinternalFormat.ml:2486:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2487:9>>*/ if(get_ign(0)){
+           var match =  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec(0);
            if(typeof match === "number")
             var
              _aM_ =
                match
                 ?  /*<<camlinternalFormat.ml:2369:30>>*/ incompatible_flag
-                   /*<<camlinternalFormat.ml:2369:30>>*/ (pct_ind,
-                   str_ind,
-                   95,
-                   cst$26)
+                  (pct_ind, str_ind, 95, cst$26)
                 : 0;
            else
             var ndec = match[1], _aM_ = [0, ndec];
            var
             ignored$4 =
                /*<<camlinternalFormat.ml:2488:22>>*/ [6,
-                /*<<camlinternalFormat.ml:2488:37>>*/ get_pad_opt
-                 /*<<camlinternalFormat.ml:2488:37>>*/ (95),
+                /*<<camlinternalFormat.ml:2488:37>>*/ get_pad_opt(95),
                _aM_],
             _aN_ = [0, [23, ignored$4, fmt_rest$11]];
           }
           else
            var
-            _aO_ =
-               /*<<camlinternalFormat.ml:2492:44>>*/  /*<<camlinternalFormat.ml:2492:44>>*/ get_prec
-                /*<<camlinternalFormat.ml:2492:44>>*/ (0),
+            _aO_ =  /*<<camlinternalFormat.ml:2492:44>>*/ get_prec(0),
             match$4 =
-               /*<<camlinternalFormat.ml:2492:10>>*/  /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
-                /*<<camlinternalFormat.ml:2492:10>>*/ ( /*<<camlinternalFormat.ml:2492:31>>*/ get_pad
-                  /*<<camlinternalFormat.ml:2492:31>>*/ (0),
+               /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
+               ( /*<<camlinternalFormat.ml:2492:31>>*/ get_pad(0),
                 _aO_,
                 fmt_rest$11),
             fmt_rest$12 = match$4[3],
@@ -23536,47 +19560,35 @@
           case 0:
            var
             _at_ =
-               /*<<camlinternalFormat.ml:2449:25>>*/  /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
-                /*<<camlinternalFormat.ml:2449:25>>*/ (str, str_ind),
-            _au_ =
-               /*<<camlinternalFormat.ml:2449:10>>*/  /*<<camlinternalFormat.ml:2449:10>>*/ get_space
-                /*<<camlinternalFormat.ml:2449:10>>*/ (0),
-            _av_ =
-               /*<<camlinternalFormat.ml:2448:61>>*/  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash
-                /*<<camlinternalFormat.ml:2448:61>>*/ (0),
+               /*<<camlinternalFormat.ml:2449:25>>*/ caml_string_get
+               (str, str_ind),
+            _au_ =  /*<<camlinternalFormat.ml:2449:10>>*/ get_space(0),
+            _av_ =  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash(0),
             iconv =
-               /*<<camlinternalFormat.ml:2448:8>>*/  /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
-                /*<<camlinternalFormat.ml:2448:8>>*/ (pct_ind,
+               /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
+               (pct_ind,
                 str_ind + 1 | 0,
-                 /*<<camlinternalFormat.ml:2448:47>>*/ get_plus
-                  /*<<camlinternalFormat.ml:2448:47>>*/ (0),
+                 /*<<camlinternalFormat.ml:2448:47>>*/ get_plus(0),
                 _av_,
                 _au_,
                 _at_),
             fmt_rest =
                /*<<camlinternalFormat.ml:2450:29>>*/ parse
-                 /*<<camlinternalFormat.ml:2450:29>>*/ (str_ind + 1 | 0,
-                 end_ind)
+                (str_ind + 1 | 0, end_ind)
                [1];
-            /*<<camlinternalFormat.ml:2451:9>>*/ if
-            ( /*<<camlinternalFormat.ml:2451:9>>*/ get_ign
-               /*<<camlinternalFormat.ml:2451:9>>*/ (0))
+            /*<<camlinternalFormat.ml:2451:9>>*/ if(get_ign(0))
             var
              ignored =
                 /*<<camlinternalFormat.ml:2452:22>>*/ [3,
                 iconv,
-                 /*<<camlinternalFormat.ml:2452:44>>*/ get_pad_opt
-                  /*<<camlinternalFormat.ml:2452:44>>*/ (95)],
+                 /*<<camlinternalFormat.ml:2452:44>>*/ get_pad_opt(95)],
              _aw_ = [0, [23, ignored, fmt_rest]];
            else
             var
-             _ay_ =
-                /*<<camlinternalFormat.ml:2456:48>>*/  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec
-                 /*<<camlinternalFormat.ml:2456:48>>*/ (0),
+             _ay_ =  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec(0),
              match$0 =
-                /*<<camlinternalFormat.ml:2456:10>>*/  /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
-                 /*<<camlinternalFormat.ml:2456:10>>*/ ( /*<<camlinternalFormat.ml:2456:31>>*/ get_int_pad
-                   /*<<camlinternalFormat.ml:2456:31>>*/ (0),
+                /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
+                ( /*<<camlinternalFormat.ml:2456:31>>*/ get_int_pad(0),
                  _ay_,
                  fmt_rest),
              fmt_rest$0 = match$0[3],
@@ -23590,47 +19602,35 @@
           default:
            var
             _az_ =
-               /*<<camlinternalFormat.ml:2461:39>>*/  /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
-                /*<<camlinternalFormat.ml:2461:39>>*/ (str, str_ind),
-            _aA_ =
-               /*<<camlinternalFormat.ml:2461:24>>*/  /*<<camlinternalFormat.ml:2461:24>>*/ get_space
-                /*<<camlinternalFormat.ml:2461:24>>*/ (0),
-            _aB_ =
-               /*<<camlinternalFormat.ml:2461:10>>*/  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash
-                /*<<camlinternalFormat.ml:2461:10>>*/ (0),
+               /*<<camlinternalFormat.ml:2461:39>>*/ caml_string_get
+               (str, str_ind),
+            _aA_ =  /*<<camlinternalFormat.ml:2461:24>>*/ get_space(0),
+            _aB_ =  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash(0),
             iconv$0 =
-               /*<<camlinternalFormat.ml:2460:8>>*/  /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
-                /*<<camlinternalFormat.ml:2460:8>>*/ (pct_ind,
+               /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
+               (pct_ind,
                 str_ind + 1 | 0,
-                 /*<<camlinternalFormat.ml:2460:47>>*/ get_plus
-                  /*<<camlinternalFormat.ml:2460:47>>*/ (0),
+                 /*<<camlinternalFormat.ml:2460:47>>*/ get_plus(0),
                 _aB_,
                 _aA_,
                 _az_),
             fmt_rest$1 =
                /*<<camlinternalFormat.ml:2462:29>>*/ parse
-                 /*<<camlinternalFormat.ml:2462:29>>*/ (str_ind + 1 | 0,
-                 end_ind)
+                (str_ind + 1 | 0, end_ind)
                [1];
-            /*<<camlinternalFormat.ml:2463:9>>*/ if
-            ( /*<<camlinternalFormat.ml:2463:9>>*/ get_ign
-               /*<<camlinternalFormat.ml:2463:9>>*/ (0))
+            /*<<camlinternalFormat.ml:2463:9>>*/ if(get_ign(0))
             var
              ignored$0 =
                 /*<<camlinternalFormat.ml:2464:22>>*/ [4,
                 iconv$0,
-                 /*<<camlinternalFormat.ml:2464:48>>*/ get_pad_opt
-                  /*<<camlinternalFormat.ml:2464:48>>*/ (95)],
+                 /*<<camlinternalFormat.ml:2464:48>>*/ get_pad_opt(95)],
              _aC_ = [0, [23, ignored$0, fmt_rest$1]];
            else
             var
-             _aD_ =
-                /*<<camlinternalFormat.ml:2468:48>>*/  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec
-                 /*<<camlinternalFormat.ml:2468:48>>*/ (0),
+             _aD_ =  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec(0),
              match$1 =
-                /*<<camlinternalFormat.ml:2468:10>>*/  /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
-                 /*<<camlinternalFormat.ml:2468:10>>*/ ( /*<<camlinternalFormat.ml:2468:31>>*/ get_int_pad
-                   /*<<camlinternalFormat.ml:2468:31>>*/ (0),
+                /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
+                ( /*<<camlinternalFormat.ml:2468:31>>*/ get_int_pad(0),
                  _aD_,
                  fmt_rest$1),
              fmt_rest$2 = match$1[3],
@@ -23646,46 +19646,34 @@
       else if(76 === symb){
        var
         _aE_ =
-           /*<<camlinternalFormat.ml:2473:25>>*/  /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:2473:25>>*/ (str, str_ind),
-        _aF_ =
-           /*<<camlinternalFormat.ml:2473:10>>*/  /*<<camlinternalFormat.ml:2473:10>>*/ get_space
-            /*<<camlinternalFormat.ml:2473:10>>*/ (0),
-        _aG_ =
-           /*<<camlinternalFormat.ml:2472:61>>*/  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash
-            /*<<camlinternalFormat.ml:2472:61>>*/ (0),
+           /*<<camlinternalFormat.ml:2473:25>>*/ caml_string_get(str, str_ind),
+        _aF_ =  /*<<camlinternalFormat.ml:2473:10>>*/ get_space(0),
+        _aG_ =  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash(0),
         iconv$1 =
-           /*<<camlinternalFormat.ml:2472:8>>*/  /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
-            /*<<camlinternalFormat.ml:2472:8>>*/ (pct_ind,
+           /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
+           (pct_ind,
             str_ind + 1 | 0,
-             /*<<camlinternalFormat.ml:2472:47>>*/ get_plus
-              /*<<camlinternalFormat.ml:2472:47>>*/ (0),
+             /*<<camlinternalFormat.ml:2472:47>>*/ get_plus(0),
             _aG_,
             _aF_,
             _aE_),
         fmt_rest$3 =
            /*<<camlinternalFormat.ml:2474:29>>*/ parse
-             /*<<camlinternalFormat.ml:2474:29>>*/ (str_ind + 1 | 0, end_ind)
+            (str_ind + 1 | 0, end_ind)
            [1];
-        /*<<camlinternalFormat.ml:2475:9>>*/ if
-        ( /*<<camlinternalFormat.ml:2475:9>>*/ get_ign
-           /*<<camlinternalFormat.ml:2475:9>>*/ (0))
+        /*<<camlinternalFormat.ml:2475:9>>*/ if(get_ign(0))
         var
          ignored$1 =
             /*<<camlinternalFormat.ml:2476:22>>*/ [5,
             iconv$1,
-             /*<<camlinternalFormat.ml:2476:44>>*/ get_pad_opt
-              /*<<camlinternalFormat.ml:2476:44>>*/ (95)],
+             /*<<camlinternalFormat.ml:2476:44>>*/ get_pad_opt(95)],
          _aH_ = [0, [23, ignored$1, fmt_rest$3]];
        else
         var
-         _aI_ =
-            /*<<camlinternalFormat.ml:2480:48>>*/  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec
-             /*<<camlinternalFormat.ml:2480:48>>*/ (0),
+         _aI_ =  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec(0),
          match$2 =
-            /*<<camlinternalFormat.ml:2480:10>>*/  /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
-             /*<<camlinternalFormat.ml:2480:10>>*/ ( /*<<camlinternalFormat.ml:2480:31>>*/ get_int_pad
-               /*<<camlinternalFormat.ml:2480:31>>*/ (0),
+            /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
+            ( /*<<camlinternalFormat.ml:2480:31>>*/ get_int_pad(0),
              _aI_,
              fmt_rest$3),
          fmt_rest$4 = match$2[3],
@@ -23698,57 +19686,47 @@
       var
        fmt_result =
           /*<<camlinternalFormat.ml:2554:6>>*/ caml_call3
-           /*<<camlinternalFormat.ml:2554:6>>*/ ( /*<<camlinternalFormat.ml:2554:6>>*/ failwith_message
-             /*<<camlinternalFormat.ml:2554:6>>*/ (_J_),
-           str,
-           str_ind - 1 | 0,
-           symb);
+          (failwith_message(_J_), str, str_ind - 1 | 0, symb);
      }
      if(1 - legacy_behavior$0){
       var _ak_ = 1 - plus_used[1], plus$0 = _ak_ ? plus : _ak_;
       if(plus$0)
-        /*<<camlinternalFormat.ml:2564:6>>*/  /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
-         /*<<camlinternalFormat.ml:2564:6>>*/ (pct_ind, str_ind, symb, cst$27);
+        /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
+        (pct_ind, str_ind, symb, cst$27);
       var _al_ = 1 - hash_used[1], hash$0 = _al_ ? hash : _al_;
       if(hash$0)
-        /*<<camlinternalFormat.ml:2566:6>>*/  /*<<camlinternalFormat.ml:2566:6>>*/ incompatible_flag
-         /*<<camlinternalFormat.ml:2566:6>>*/ (pct_ind, str_ind, symb, cst$28);
+        /*<<camlinternalFormat.ml:2566:6>>*/ incompatible_flag
+        (pct_ind, str_ind, symb, cst$28);
       var _am_ = 1 - space_used[1], space$0 = _am_ ? space : _am_;
       if(space$0)
-        /*<<camlinternalFormat.ml:2568:6>>*/  /*<<camlinternalFormat.ml:2568:6>>*/ incompatible_flag
-         /*<<camlinternalFormat.ml:2568:6>>*/ (pct_ind, str_ind, symb, cst$29);
+        /*<<camlinternalFormat.ml:2568:6>>*/ incompatible_flag
+        (pct_ind, str_ind, symb, cst$29);
       var
        _an_ = 1 - pad_used[1],
        _ao_ =
          _an_
           ?  /*<<camlinternalFormat.ml:2569:25>>*/ caml_notequal
-             /*<<camlinternalFormat.ml:2569:25>>*/ ([0, pad], _K_)
+            ([0, pad], _K_)
           : _an_;
-       /*<<camlinternalFormat.ml:2569:25>>*/ if(_ao_)
-        /*<<camlinternalFormat.ml:2570:6>>*/  /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
-         /*<<camlinternalFormat.ml:2570:6>>*/ (pct_ind,
-         str_ind,
-         symb,
-         cst_padding$0);
+      if(_ao_)
+        /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
+        (pct_ind, str_ind, symb, cst_padding$0);
       var
        _ap_ = 1 - prec_used[1],
        _aq_ =
          _ap_
           ?  /*<<camlinternalFormat.ml:2571:25>>*/ caml_notequal
-             /*<<camlinternalFormat.ml:2571:25>>*/ ([0, prec], _L_)
+            ([0, prec], _L_)
           : _ap_;
-       /*<<camlinternalFormat.ml:2571:25>>*/ if(_aq_){
+      if(_aq_){
        var _ar_ = ign ? 95 : symb;
-        /*<<camlinternalFormat.ml:2572:6>>*/  /*<<camlinternalFormat.ml:2572:6>>*/ incompatible_flag
-         /*<<camlinternalFormat.ml:2572:6>>*/ (pct_ind,
-         str_ind,
-         _ar_,
-         cst_precision$2);
+        /*<<camlinternalFormat.ml:2572:6>>*/ incompatible_flag
+        (pct_ind, str_ind, _ar_, cst_precision$2);
       }
       var plus$1 = ign ? plus : ign;
       if(plus$1)
-        /*<<camlinternalFormat.ml:2574:24>>*/  /*<<camlinternalFormat.ml:2574:24>>*/ incompatible_flag
-         /*<<camlinternalFormat.ml:2574:24>>*/ (pct_ind, str_ind, 95, cst$30);
+        /*<<camlinternalFormat.ml:2574:24>>*/ incompatible_flag
+        (pct_ind, str_ind, 95, cst$30);
      }
      var _as_ = 1 - ign_used[1], ign$0 = _as_ ? ign : _as_;
      a:
@@ -23761,48 +19739,37 @@
        else if(33 !== symb && 37 > symb) break b;
        if(legacy_behavior$0) break a;
       }
-       /*<<camlinternalFormat.ml:2584:10>>*/  /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
-        /*<<camlinternalFormat.ml:2584:10>>*/ (pct_ind, str_ind, symb, cst$31);
+       /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
+       (pct_ind, str_ind, symb, cst$31);
      }
-      /*<<camlinternalFormat.ml:2584:10>>*/ return fmt_result /*<<camlinternalFormat.ml:2584:10>>*/ ;
+     return fmt_result;
     }
     function parse_tag(is_open_tag, str_ind, end_ind){
       /*<<camlinternalFormat.ml:2639:4>>*/ try{
       if(str_ind === end_ind)
-        /*<<camlinternalFormat.ml:2640:32>>*/ throw  /*<<camlinternalFormat.ml:2640:32>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:2640:32>>*/ (Stdlib[8], 1);
+        /*<<camlinternalFormat.ml:2640:32>>*/ throw caml_maybe_attach_backtrace
+              (Stdlib[8], 1);
       if
        (60
         !==
-          /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2641:12>>*/ (str, str_ind))
-        /*<<camlinternalFormat.ml:2653:8>>*/ throw  /*<<camlinternalFormat.ml:2653:8>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:2653:8>>*/ (Stdlib[8], 1);
+          /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
+        /*<<camlinternalFormat.ml:2653:8>>*/ throw caml_maybe_attach_backtrace
+              (Stdlib[8], 1);
       var
        ind =
-          /*<<camlinternalFormat.ml:2643:18>>*/  /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
-           /*<<camlinternalFormat.ml:2643:18>>*/ (Stdlib_String[32],
-           str,
-           str_ind + 1 | 0,
-           62);
+          /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
+          (Stdlib_String[32], str, str_ind + 1 | 0, 62);
       if(end_ind <= ind)
-        /*<<camlinternalFormat.ml:2644:31>>*/ throw  /*<<camlinternalFormat.ml:2644:31>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalFormat.ml:2644:31>>*/ (Stdlib[8], 1);
+        /*<<camlinternalFormat.ml:2644:31>>*/ throw caml_maybe_attach_backtrace
+              (Stdlib[8], 1);
       var
        sub_str =
-          /*<<camlinternalFormat.ml:2645:22>>*/  /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
-           /*<<camlinternalFormat.ml:2645:22>>*/ (Stdlib_String[16],
-           str,
-           str_ind,
-           (ind - str_ind | 0) + 1 | 0),
+          /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
+          (Stdlib_String[16], str, str_ind, (ind - str_ind | 0) + 1 | 0),
        fmt_rest$0 =
-          /*<<camlinternalFormat.ml:2646:31>>*/ parse
-            /*<<camlinternalFormat.ml:2646:31>>*/ (ind + 1 | 0, end_ind)
-          [1],
+          /*<<camlinternalFormat.ml:2646:31>>*/ parse(ind + 1 | 0, end_ind)[1],
        sub_fmt =
-          /*<<camlinternalFormat.ml:2647:30>>*/ parse
-            /*<<camlinternalFormat.ml:2647:30>>*/ (str_ind, ind + 1 | 0)
-          [1],
+          /*<<camlinternalFormat.ml:2647:30>>*/ parse(str_ind, ind + 1 | 0)[1],
        sub_format$0 =
           /*<<camlinternalFormat.ml:2648:25>>*/ [0, sub_fmt, sub_str],
        formatting$0 =
@@ -23812,37 +19779,31 @@
        _ai_ =
           /*<<camlinternalFormat.ml:2651:8>>*/ [0,
           [18, formatting$0, fmt_rest$0]];
-       /*<<camlinternalFormat.ml:2651:8>>*/ return _ai_ /*<<camlinternalFormat.ml:2651:8>>*/ ;
+      return _ai_;
      }
      catch(_aj_){
       var _ah_ = caml_wrap_exception(_aj_);
       if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
       var
        fmt_rest =
-          /*<<camlinternalFormat.ml:2655:29>>*/ parse
-            /*<<camlinternalFormat.ml:2655:29>>*/ (str_ind, end_ind)
-          [1],
+          /*<<camlinternalFormat.ml:2655:29>>*/ parse(str_ind, end_ind)[1],
        formatting =
           /*<<camlinternalFormat.ml:2657:6>>*/ is_open_tag
           ? [0, sub_format]
           : [1, sub_format];
        /*<<camlinternalFormat.ml:2659:6>>*/ return [0,
-              [18, formatting, fmt_rest]] /*<<camlinternalFormat.ml:2659:6>>*/ ;
+              [18, formatting, fmt_rest]];
      }
      /*<<camlinternalFormat.ml:2659:53>>*/ }
     function parse_spaces(str_ind, end_ind){
      var str_ind$0 = str_ind;
       /*<<camlinternalFormat.ml:2804:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-         cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        (end_ind, cst_unexpected_end_of_format);
        /*<<camlinternalFormat.ml:2805:7>>*/ if
-       (32
-        !==
-          /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2805:7>>*/ (str, str_ind$0))
-        /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0 /*<<camlinternalFormat.ml:2805:72>>*/ ;
+       (32 !== caml_string_get(str, str_ind$0))
+        /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0;
       var str_ind$1 = str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
      }
@@ -23851,69 +19812,57 @@
      var str_ind$0 = str_ind, acc$0 = acc;
       /*<<camlinternalFormat.ml:2810:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-         cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        (end_ind, cst_unexpected_end_of_format);
       var
        c =
-          /*<<camlinternalFormat.ml:2811:10>>*/  /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2811:10>>*/ (str, str_ind$0);
+          /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
+          (str, str_ind$0);
       if(9 < c - 48 >>> 0)
-        /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0] /*<<camlinternalFormat.ml:2820:11>>*/ ;
+        /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0];
       var new_acc = (acc$0 * 10 | 0) + (c - 48 | 0) | 0;
       if(Stdlib_Sys[12] < new_acc){
        var _ag_ =  /*<<camlinternalFormat.ml:2815:8>>*/ Stdlib_Sys[12];
-        /*<<camlinternalFormat.ml:2815:8>>*/ return  /*<<camlinternalFormat.ml:2815:8>>*/ caml_call3
-                /*<<camlinternalFormat.ml:2815:8>>*/ ( /*<<camlinternalFormat.ml:2815:8>>*/ failwith_message
-                  /*<<camlinternalFormat.ml:2815:8>>*/ (_S_),
-                str,
-                new_acc,
-                _ag_) /*<<camlinternalFormat.ml:2820:23>>*/ ;
+       return caml_call3(failwith_message(_S_), str, new_acc, _ag_) /*<<camlinternalFormat.ml:2820:23>>*/ ;
       }
       var str_ind$1 = str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
       acc$0 = new_acc;
      }
-     /*<<camlinternalFormat.ml:2820:23>>*/ }
+    }
     function parse_integer(str_ind, end_ind){
       /*<<camlinternalFormat.ml:2825:4>>*/ if(str_ind === end_ind)
-       /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-        /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-        cst_unexpected_end_of_format);
+       /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+       (end_ind, cst_unexpected_end_of_format);
      var
       match =
-         /*<<camlinternalFormat.ml:2826:10>>*/  /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get
-          /*<<camlinternalFormat.ml:2826:10>>*/ (str, str_ind);
+         /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get(str, str_ind);
      if(48 <= match){
       if(58 > match)
-        /*<<camlinternalFormat.ml:2827:20>>*/ return  /*<<camlinternalFormat.ml:2827:20>>*/ parse_positive
-                /*<<camlinternalFormat.ml:2827:20>>*/ (str_ind, end_ind, 0) /*<<camlinternalFormat.ml:2837:23>>*/ ;
+        /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
+               (str_ind, end_ind, 0) /*<<camlinternalFormat.ml:2837:23>>*/ ;
      }
      else if(45 === match){
       if((str_ind + 1 | 0) === end_ind)
-        /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-         /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-         cst_unexpected_end_of_format);
+        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+        (end_ind, cst_unexpected_end_of_format);
       var
        c =
-          /*<<camlinternalFormat.ml:2830:12>>*/  /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2830:12>>*/ (str, str_ind + 1 | 0);
+          /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
+          (str, str_ind + 1 | 0);
       if(9 < c - 48 >>> 0)
-        /*<<camlinternalFormat.ml:2835:8>>*/ return  /*<<camlinternalFormat.ml:2835:8>>*/ expected_character
-                /*<<camlinternalFormat.ml:2835:8>>*/ (str_ind + 1 | 0,
-                cst_digit,
-                c) /*<<camlinternalFormat.ml:2837:23>>*/ ;
+        /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
+               (str_ind + 1 | 0, cst_digit, c) /*<<camlinternalFormat.ml:2837:23>>*/ ;
       var
        match$0 =
-          /*<<camlinternalFormat.ml:2832:26>>*/  /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
-           /*<<camlinternalFormat.ml:2832:26>>*/ (str_ind + 1 | 0, end_ind, 0),
+          /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
+          (str_ind + 1 | 0, end_ind, 0),
        n = match$0[2],
        next_ind = match$0[1];
-       /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0] /*<<camlinternalFormat.ml:2833:8>>*/ ;
+       /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0];
      }
-      /*<<camlinternalFormat.ml:2837:11>>*/ throw  /*<<camlinternalFormat.ml:2837:11>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalFormat.ml:2837:11>>*/ ([0, Assert_failure, _T_],
-             1);
+      /*<<camlinternalFormat.ml:2837:11>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _T_], 1);
      /*<<camlinternalFormat.ml:2837:23>>*/ }
     function add_literal(lit_start, str_ind, fmt){
      var size = str_ind - lit_start | 0;
@@ -23924,45 +19873,37 @@
                ? [0,
                  [12,
                    /*<<camlinternalFormat.ml:2845:37>>*/ caml_string_get
-                    /*<<camlinternalFormat.ml:2845:37>>*/ (str, lit_start),
+                   (str, lit_start),
                   fmt]]
                : [0,
                  [11,
                    /*<<camlinternalFormat.ml:2846:39>>*/ caml_call3
-                    /*<<camlinternalFormat.ml:2846:39>>*/ (Stdlib_String[16],
-                    str,
-                    lit_start,
-                    size),
+                   (Stdlib_String[16], str, lit_start, size),
                   fmt]] /*<<camlinternalFormat.ml:2846:75>>*/ ;
-     /*<<camlinternalFormat.ml:2846:75>>*/ }
+    }
     function search_subformat_end(str_ind, end_ind, c){
      var str_ind$0 = str_ind;
       /*<<camlinternalFormat.ml:2851:4>>*/ for(;;){
       if(str_ind$0 === end_ind)
-        /*<<camlinternalFormat.ml:2852:6>>*/  /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
-         /*<<camlinternalFormat.ml:2852:6>>*/ ( /*<<camlinternalFormat.ml:2852:6>>*/ failwith_message
-           /*<<camlinternalFormat.ml:2852:6>>*/ (_U_),
-         str,
-         c,
-         end_ind);
+        /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
+        (failwith_message(_U_), str, c, end_ind);
       if
        (37
         ===
           /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2855:10>>*/ (str, str_ind$0)){
+          (str, str_ind$0)){
        if((str_ind$0 + 1 | 0) === end_ind)
-         /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-          /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-          cst_unexpected_end_of_format);
+         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+         (end_ind, cst_unexpected_end_of_format);
        if
         ( /*<<camlinternalFormat.ml:2858:9>>*/ caml_string_get
-           /*<<camlinternalFormat.ml:2858:9>>*/ (str, str_ind$0 + 1 | 0)
+          (str, str_ind$0 + 1 | 0)
          === c)
-         /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0 /*<<camlinternalFormat.ml:2858:62>>*/ ;
+         /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0;
        var
         match =
-           /*<<camlinternalFormat.ml:2859:20>>*/  /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
-            /*<<camlinternalFormat.ml:2859:20>>*/ (str, str_ind$0 + 1 | 0);
+           /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
+           (str, str_ind$0 + 1 | 0);
        if(95 <= match){
         if(123 <= match){
          if(126 > match)
@@ -23970,52 +19911,40 @@
             case 0:
              var
               sub_end =
-                 /*<<camlinternalFormat.ml:2874:24>>*/  /*<<camlinternalFormat.ml:2874:24>>*/ search_subformat_end
-                  /*<<camlinternalFormat.ml:2874:24>>*/ (str_ind$0 + 2 | 0,
-                  end_ind,
-                  125),
-              str_ind$2 =
-                 /*<<camlinternalFormat.ml:2874:24>>*/ sub_end + 2 | 0;
+                 /*<<camlinternalFormat.ml:2874:24>>*/ search_subformat_end
+                 (str_ind$0 + 2 | 0, end_ind, 125),
+              str_ind$2 = sub_end + 2 | 0;
              str_ind$0 = str_ind$2;
              continue;
             case 1: break;
             default:
-              /*<<camlinternalFormat.ml:2882:10>>*/ return  /*<<camlinternalFormat.ml:2882:10>>*/ expected_character
-                      /*<<camlinternalFormat.ml:2882:10>>*/ (str_ind$0 + 1 | 0,
-                      cst_character,
-                      125) /*<<camlinternalFormat.ml:2889:55>>*/ ;
+              /*<<camlinternalFormat.ml:2882:10>>*/ return expected_character
+                     (str_ind$0 + 1 | 0, cst_character, 125) /*<<camlinternalFormat.ml:2889:55>>*/ ;
           }
         }
         else if(96 > match){
          if((str_ind$0 + 2 | 0) === end_ind)
-           /*<<camlinternalFormat.ml:2092:4>>*/  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
-            /*<<camlinternalFormat.ml:2092:4>>*/ (end_ind,
-            cst_unexpected_end_of_format);
+           /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
+           (end_ind, cst_unexpected_end_of_format);
          var
           match$0 =
-             /*<<camlinternalFormat.ml:2863:22>>*/  /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
-              /*<<camlinternalFormat.ml:2863:22>>*/ (str, str_ind$0 + 2 | 0);
+             /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
+             (str, str_ind$0 + 2 | 0);
          if(40 === match$0){
           var
            sub_end$0 =
-              /*<<camlinternalFormat.ml:2868:26>>*/  /*<<camlinternalFormat.ml:2868:26>>*/ search_subformat_end
-               /*<<camlinternalFormat.ml:2868:26>>*/ (str_ind$0 + 3 | 0,
-               end_ind,
-               41),
-           str_ind$3 =
-              /*<<camlinternalFormat.ml:2868:26>>*/ sub_end$0 + 2 | 0;
+              /*<<camlinternalFormat.ml:2868:26>>*/ search_subformat_end
+              (str_ind$0 + 3 | 0, end_ind, 41),
+           str_ind$3 = sub_end$0 + 2 | 0;
           str_ind$0 = str_ind$3;
           continue;
          }
          if(123 === match$0){
           var
            sub_end$1 =
-              /*<<camlinternalFormat.ml:2865:26>>*/  /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
-               /*<<camlinternalFormat.ml:2865:26>>*/ (str_ind$0 + 3 | 0,
-               end_ind,
-               125),
-           str_ind$4 =
-              /*<<camlinternalFormat.ml:2865:26>>*/ sub_end$1 + 2 | 0;
+              /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
+              (str_ind$0 + 3 | 0, end_ind, 125),
+           str_ind$4 = sub_end$1 + 2 | 0;
           str_ind$0 = str_ind$4;
           continue;
          }
@@ -24028,26 +19957,22 @@
         if(40 === match){
          var
           sub_end$2 =
-             /*<<camlinternalFormat.ml:2878:24>>*/  /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
-              /*<<camlinternalFormat.ml:2878:24>>*/ (str_ind$0 + 2 | 0,
-              end_ind,
-              41),
-          str_ind$6 =  /*<<camlinternalFormat.ml:2878:24>>*/ sub_end$2 + 2 | 0;
+             /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
+             (str_ind$0 + 2 | 0, end_ind, 41),
+          str_ind$6 = sub_end$2 + 2 | 0;
          str_ind$0 = str_ind$6;
          continue;
         }
         if(41 === match)
-          /*<<camlinternalFormat.ml:2885:10>>*/ return  /*<<camlinternalFormat.ml:2885:10>>*/ expected_character
-                  /*<<camlinternalFormat.ml:2885:10>>*/ (str_ind$0 + 1 | 0,
-                  cst_character$0,
-                  41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
+          /*<<camlinternalFormat.ml:2885:10>>*/ return expected_character
+                 (str_ind$0 + 1 | 0, cst_character$0, 41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
        }
        var str_ind$1 = str_ind$0 + 2 | 0;
        str_ind$0 = str_ind$1;
       }
       else{var str_ind$7 = str_ind$0 + 1 | 0; str_ind$0 = str_ind$7;}
      }
-     /*<<camlinternalFormat.ml:2889:55>>*/ }
+    }
     function compute_int_conv(pct_ind, str_ind, plus, hash, space, symb){
      var plus$0 = plus, hash$0 = hash, space$0 = space;
       /*<<camlinternalFormat.ml:2903:4>>*/ for(;;){
@@ -24056,37 +19981,33 @@
        if(plus$0){
         if(! hash$0){
          if(space$0) break a;
-         if(100 === symb)
-           /*<<camlinternalFormat.ml:2906:34>>*/ return 1 /*<<camlinternalFormat.ml:2906:34>>*/ ;
-         if(105 === symb)
-           /*<<camlinternalFormat.ml:2906:71>>*/ return 4 /*<<camlinternalFormat.ml:2906:71>>*/ ;
+         if(100 === symb)  /*<<camlinternalFormat.ml:2906:34>>*/ return 1;
+         if(105 === symb)  /*<<camlinternalFormat.ml:2906:71>>*/ return 4;
          break a;
         }
        }
        else{
         if(! hash$0){
          if(space$0){
-          if(100 === symb)
-            /*<<camlinternalFormat.ml:2905:34>>*/ return 2 /*<<camlinternalFormat.ml:2905:34>>*/ ;
-          if(105 === symb)
-            /*<<camlinternalFormat.ml:2905:71>>*/ return 5 /*<<camlinternalFormat.ml:2905:71>>*/ ;
+          if(100 === symb)  /*<<camlinternalFormat.ml:2905:34>>*/ return 2;
+          if(105 === symb)  /*<<camlinternalFormat.ml:2905:71>>*/ return 5;
           break a;
          }
          var switcher$1 = symb - 88 | 0;
          if(32 < switcher$1 >>> 0) break a;
          switch(switcher$1){
            case 0:
-             /*<<camlinternalFormat.ml:2907:71>>*/ return 8 /*<<camlinternalFormat.ml:2907:71>>*/ ;
+             /*<<camlinternalFormat.ml:2907:71>>*/ return 8;
            case 12:
-             /*<<camlinternalFormat.ml:2904:34>>*/ return 0 /*<<camlinternalFormat.ml:2904:34>>*/ ;
+             /*<<camlinternalFormat.ml:2904:34>>*/ return 0;
            case 17:
-             /*<<camlinternalFormat.ml:2904:71>>*/ return 3 /*<<camlinternalFormat.ml:2904:71>>*/ ;
+             /*<<camlinternalFormat.ml:2904:71>>*/ return 3;
            case 23:
-             /*<<camlinternalFormat.ml:2909:34>>*/ return 10 /*<<camlinternalFormat.ml:2909:34>>*/ ;
+             /*<<camlinternalFormat.ml:2909:34>>*/ return 10;
            case 29:
-             /*<<camlinternalFormat.ml:2911:34>>*/ return 12 /*<<camlinternalFormat.ml:2911:34>>*/ ;
+             /*<<camlinternalFormat.ml:2911:34>>*/ return 12;
            case 32:
-             /*<<camlinternalFormat.ml:2907:34>>*/ return 6 /*<<camlinternalFormat.ml:2907:34>>*/ ;
+             /*<<camlinternalFormat.ml:2907:34>>*/ return 6;
            default: break a;
          }
         }
@@ -24095,17 +20016,17 @@
          if(32 >= switcher$0 >>> 0)
           switch(switcher$0){
             case 0:
-              /*<<camlinternalFormat.ml:2908:71>>*/ return 9 /*<<camlinternalFormat.ml:2908:71>>*/ ;
+              /*<<camlinternalFormat.ml:2908:71>>*/ return 9;
             case 12:
-              /*<<camlinternalFormat.ml:2912:34>>*/ return 13 /*<<camlinternalFormat.ml:2912:34>>*/ ;
+              /*<<camlinternalFormat.ml:2912:34>>*/ return 13;
             case 17:
-              /*<<camlinternalFormat.ml:2913:34>>*/ return 14 /*<<camlinternalFormat.ml:2913:34>>*/ ;
+              /*<<camlinternalFormat.ml:2913:34>>*/ return 14;
             case 23:
-              /*<<camlinternalFormat.ml:2910:34>>*/ return 11 /*<<camlinternalFormat.ml:2910:34>>*/ ;
+              /*<<camlinternalFormat.ml:2910:34>>*/ return 11;
             case 29:
-              /*<<camlinternalFormat.ml:2914:34>>*/ return 15 /*<<camlinternalFormat.ml:2914:34>>*/ ;
+              /*<<camlinternalFormat.ml:2914:34>>*/ return 15;
             case 32:
-              /*<<camlinternalFormat.ml:2908:34>>*/ return 7 /*<<camlinternalFormat.ml:2908:34>>*/ ;
+              /*<<camlinternalFormat.ml:2908:34>>*/ return 7;
           }
         }
        }
@@ -24114,25 +20035,22 @@
         switch(switcher){
           case 0:
            if(legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2916:46>>*/ return 9 /*<<camlinternalFormat.ml:2916:46>>*/ ;
+             /*<<camlinternalFormat.ml:2916:46>>*/ return 9;
            break;
           case 23:
            if(legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2917:46>>*/ return 11 /*<<camlinternalFormat.ml:2917:46>>*/ ;
+             /*<<camlinternalFormat.ml:2917:46>>*/ return 11;
            break;
           case 32:
            if(legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2915:46>>*/ return 7 /*<<camlinternalFormat.ml:2915:46>>*/ ;
+             /*<<camlinternalFormat.ml:2915:46>>*/ return 7;
            break;
           case 12:
           case 17:
           case 29:
            if(! legacy_behavior$0)
-             /*<<camlinternalFormat.ml:2921:11>>*/ return  /*<<camlinternalFormat.ml:2921:11>>*/ incompatible_flag
-                     /*<<camlinternalFormat.ml:2921:11>>*/ (pct_ind,
-                     str_ind,
-                     symb,
-                     cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+             /*<<camlinternalFormat.ml:2921:11>>*/ return incompatible_flag
+                    (pct_ind, str_ind, symb, cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
            hash$0 = 0;
            continue;
         }
@@ -24140,117 +20058,78 @@
       if(plus$0)
        if(space$0){
         if(! legacy_behavior$0)
-          /*<<camlinternalFormat.ml:2926:11>>*/ return  /*<<camlinternalFormat.ml:2926:11>>*/ incompatible_flag
-                  /*<<camlinternalFormat.ml:2926:11>>*/ (pct_ind,
-                  str_ind,
-                  32,
-                  cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+          /*<<camlinternalFormat.ml:2926:11>>*/ return incompatible_flag
+                 (pct_ind, str_ind, 32, cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         space$0 = 0;
        }
        else{
         if(! legacy_behavior$0)
-          /*<<camlinternalFormat.ml:2934:11>>*/ return  /*<<camlinternalFormat.ml:2934:11>>*/ incompatible_flag
-                  /*<<camlinternalFormat.ml:2934:11>>*/ (pct_ind,
-                  str_ind,
-                  symb,
-                  cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+          /*<<camlinternalFormat.ml:2934:11>>*/ return incompatible_flag
+                 (pct_ind, str_ind, symb, cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         plus$0 = 0;
        }
       else{
        if(! space$0)
-         /*<<camlinternalFormat.ml:2935:28>>*/ throw  /*<<camlinternalFormat.ml:2935:28>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalFormat.ml:2935:28>>*/ ([0,
-                 Assert_failure,
-                 _W_],
-                1);
+         /*<<camlinternalFormat.ml:2935:28>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _W_], 1);
        if(! legacy_behavior$0)
-         /*<<camlinternalFormat.ml:2930:11>>*/ return  /*<<camlinternalFormat.ml:2930:11>>*/ incompatible_flag
-                 /*<<camlinternalFormat.ml:2930:11>>*/ (pct_ind,
-                 str_ind,
-                 symb,
-                 cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
+         /*<<camlinternalFormat.ml:2930:11>>*/ return incompatible_flag
+                (pct_ind, str_ind, symb, cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
        space$0 = 0;
       }
      }
-     /*<<camlinternalFormat.ml:2935:40>>*/ }
+    }
     function incompatible_flag(pct_ind, str_ind, symb, option){
      var
       subfmt =
-         /*<<camlinternalFormat.ml:2963:19>>*/  /*<<camlinternalFormat.ml:2963:19>>*/ caml_call3
-          /*<<camlinternalFormat.ml:2963:19>>*/ (Stdlib_String[16],
-          str,
-          pct_ind,
-          str_ind - pct_ind | 0);
-      /*<<camlinternalFormat.ml:2964:6>>*/ return  /*<<camlinternalFormat.ml:2964:6>>*/ caml_call5
-              /*<<camlinternalFormat.ml:2964:6>>*/ ( /*<<camlinternalFormat.ml:2964:6>>*/ failwith_message
-                /*<<camlinternalFormat.ml:2964:6>>*/ (_Y_),
-              str,
-              pct_ind,
-              option,
-              symb,
-              subfmt) /*<<camlinternalFormat.ml:2967:38>>*/ ;
-     /*<<camlinternalFormat.ml:2967:38>>*/ }
+         /*<<camlinternalFormat.ml:2963:19>>*/ caml_call3
+         (Stdlib_String[16], str, pct_ind, str_ind - pct_ind | 0);
+      /*<<camlinternalFormat.ml:2964:6>>*/ return caml_call5
+             (failwith_message(_Y_), str, pct_ind, option, symb, subfmt) /*<<camlinternalFormat.ml:2967:38>>*/ ;
+    }
     return parse(0, caml_ml_string_length(str));
    }
    function format_of_string_fmtty(str, fmtty){
     var
-     fmt =
-        /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string
-          /*<<camlinternalFormat.ml:2977:20>>*/ (0, str)
-        [1];
+     fmt =  /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2978:2>>*/ try{
      var
       _ae_ =
          /*<<camlinternalFormat.ml:2978:6>>*/ [0,
-          /*<<camlinternalFormat.ml:2978:14>>*/ type_format
-           /*<<camlinternalFormat.ml:2978:14>>*/ (fmt, fmtty),
+          /*<<camlinternalFormat.ml:2978:14>>*/ type_format(fmt, fmtty),
          str];
-      /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_ /*<<camlinternalFormat.ml:2978:6>>*/ ;
+      /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_;
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
      if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
-     var
-      _ad_ =
-         /*<<camlinternalFormat.ml:2982:10>>*/  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty
-          /*<<camlinternalFormat.ml:2982:10>>*/ (fmtty);
-      /*<<camlinternalFormat.ml:2982:10>>*/ return  /*<<camlinternalFormat.ml:2982:10>>*/ caml_call2
-              /*<<camlinternalFormat.ml:2982:10>>*/ ( /*<<camlinternalFormat.ml:2982:10>>*/ failwith_message
-                /*<<camlinternalFormat.ml:2982:10>>*/ (_Z_),
-              str,
-              _ad_) /*<<camlinternalFormat.ml:2982:33>>*/ ;
+     var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
+     return caml_call2(failwith_message(_Z_), str, _ad_) /*<<camlinternalFormat.ml:2982:33>>*/ ;
     }
-    /*<<camlinternalFormat.ml:2982:33>>*/ }
+   }
    function format_of_string_format(str, param){
     var
      str$0 = param[2],
      fmt = param[1],
      fmt$0 =
-        /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string
-          /*<<camlinternalFormat.ml:2987:20>>*/ (0, str)
-        [1];
+        /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2988:2>>*/ try{
      var
       _aa_ =
          /*<<camlinternalFormat.ml:2988:6>>*/ [0,
           /*<<camlinternalFormat.ml:2988:14>>*/ type_format
-           /*<<camlinternalFormat.ml:2988:14>>*/ (fmt$0,
-            /*<<camlinternalFormat.ml:2988:30>>*/ fmtty_of_fmt
-             /*<<camlinternalFormat.ml:2988:30>>*/ (fmt)),
+          (fmt$0,  /*<<camlinternalFormat.ml:2988:30>>*/ fmtty_of_fmt(fmt)),
          str];
-      /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_ /*<<camlinternalFormat.ml:2988:6>>*/ ;
+      /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_;
     }
     catch(_ab_){
      var _$_ = caml_wrap_exception(_ab_);
      if(_$_ === Type_mismatch)
-       /*<<camlinternalFormat.ml:2990:4>>*/ return  /*<<camlinternalFormat.ml:2990:4>>*/ caml_call2
-               /*<<camlinternalFormat.ml:2990:4>>*/ ( /*<<camlinternalFormat.ml:2990:4>>*/ failwith_message
-                 /*<<camlinternalFormat.ml:2990:4>>*/ (___),
-               str,
-               str$0) /*<<camlinternalFormat.ml:2991:66>>*/ ;
+       /*<<camlinternalFormat.ml:2990:4>>*/ return caml_call2
+              (failwith_message(___), str, str$0) /*<<camlinternalFormat.ml:2991:66>>*/ ;
      throw caml_maybe_attach_backtrace(_$_, 0);
     }
-    /*<<camlinternalFormat.ml:2991:66>>*/ }
+   }
    var
     CamlinternalFormat =
       [0,
@@ -24287,7 +20166,7 @@
 (function
   (globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -24310,89 +20189,73 @@
     Stdlib = global_data.Stdlib;
    function kfprintf(k, o, param){
     var fmt = param[1];
-     /*<<printf.ml:20:2>>*/ return  /*<<printf.ml:20:2>>*/ caml_call3
-             /*<<printf.ml:20:2>>*/ (CamlinternalFormat[7],
+     /*<<printf.ml:20:2>>*/ return caml_call3
+            (CamlinternalFormat[7],
              function(acc){
-               /*<<printf.ml:20:26>>*/  /*<<printf.ml:20:26>>*/ caml_call2
-                /*<<printf.ml:20:26>>*/ (CamlinternalFormat[9], o, acc);
+               /*<<printf.ml:20:26>>*/ caml_call2
+               (CamlinternalFormat[9], o, acc);
               return caml_call1(k, o) /*<<printf.ml:20:47>>*/ ;
-              /*<<printf.ml:20:47>>*/ },
+             },
              0,
              fmt) /*<<printf.ml:20:63>>*/ ;
-    /*<<printf.ml:20:63>>*/ }
+   }
    function kbprintf(k, b, param){
     var fmt = param[1];
-     /*<<printf.ml:22:2>>*/ return  /*<<printf.ml:22:2>>*/ caml_call3
-             /*<<printf.ml:22:2>>*/ (CamlinternalFormat[7],
+     /*<<printf.ml:22:2>>*/ return caml_call3
+            (CamlinternalFormat[7],
              function(acc){
-               /*<<printf.ml:22:26>>*/  /*<<printf.ml:22:26>>*/ caml_call2
-                /*<<printf.ml:22:26>>*/ (CamlinternalFormat[10], b, acc);
+               /*<<printf.ml:22:26>>*/ caml_call2
+               (CamlinternalFormat[10], b, acc);
               return caml_call1(k, b) /*<<printf.ml:22:47>>*/ ;
-              /*<<printf.ml:22:47>>*/ },
+             },
              0,
              fmt) /*<<printf.ml:22:63>>*/ ;
-    /*<<printf.ml:22:63>>*/ }
+   }
    function ikfprintf(k, oc, param){
     var fmt = param[1];
-     /*<<printf.ml:24:2>>*/ return  /*<<printf.ml:24:2>>*/ caml_call3
-             /*<<printf.ml:24:2>>*/ (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:23>>*/ ;
-    /*<<printf.ml:24:23>>*/ }
+     /*<<printf.ml:24:2>>*/ return caml_call3
+            (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:23>>*/ ;
+   }
    function fprintf(oc, fmt){
-     /*<<printf.ml:27:21>>*/ return  /*<<printf.ml:27:21>>*/ kfprintf
-             /*<<printf.ml:27:21>>*/ (function(_d_){ /*<<?>>*/ return 0;},
-             oc,
-             fmt) /*<<printf.ml:27:43>>*/ ;
-    /*<<printf.ml:27:43>>*/ }
+     /*<<printf.ml:27:21>>*/ return kfprintf
+            (function(_d_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:27:43>>*/ ;
+   }
    function bprintf(b, fmt){
-     /*<<printf.ml:28:20>>*/ return  /*<<printf.ml:28:20>>*/ kbprintf
-             /*<<printf.ml:28:20>>*/ (function(_c_){ /*<<?>>*/ return 0;},
-             b,
-             fmt) /*<<printf.ml:28:41>>*/ ;
-    /*<<printf.ml:28:41>>*/ }
+     /*<<printf.ml:28:20>>*/ return kbprintf
+            (function(_c_){ /*<<?>>*/ return 0;}, b, fmt) /*<<printf.ml:28:41>>*/ ;
+   }
    function ifprintf(oc, fmt){
-     /*<<printf.ml:29:22>>*/ return  /*<<printf.ml:29:22>>*/ ikfprintf
-             /*<<printf.ml:29:22>>*/ (function(_b_){ /*<<?>>*/ return 0;},
-             oc,
-             fmt) /*<<printf.ml:29:45>>*/ ;
-    /*<<printf.ml:29:45>>*/ }
+     /*<<printf.ml:29:22>>*/ return ikfprintf
+            (function(_b_){ /*<<?>>*/ return 0;}, oc, fmt) /*<<printf.ml:29:45>>*/ ;
+   }
    function ibprintf(b, fmt){
-     /*<<printf.ml:30:21>>*/ return  /*<<printf.ml:30:21>>*/ ikfprintf
-             /*<<printf.ml:30:21>>*/ (function(_a_){ /*<<?>>*/ return 0;},
-             b,
-             fmt) /*<<printf.ml:30:43>>*/ ;
-    /*<<printf.ml:30:43>>*/ }
+     /*<<printf.ml:30:21>>*/ return ikfprintf
+            (function(_a_){ /*<<?>>*/ return 0;}, b, fmt) /*<<printf.ml:30:43>>*/ ;
+   }
    function printf(fmt){
-     /*<<printf.ml:31:17>>*/ return  /*<<printf.ml:31:17>>*/ fprintf
-             /*<<printf.ml:31:17>>*/ (Stdlib[39], fmt) /*<<printf.ml:31:35>>*/ ;
-    /*<<printf.ml:31:35>>*/ }
+     /*<<printf.ml:31:17>>*/ return fprintf(Stdlib[39], fmt) /*<<printf.ml:31:35>>*/ ;
+   }
    function eprintf(fmt){
-     /*<<printf.ml:32:18>>*/ return  /*<<printf.ml:32:18>>*/ fprintf
-             /*<<printf.ml:32:18>>*/ (Stdlib[40], fmt) /*<<printf.ml:32:36>>*/ ;
-    /*<<printf.ml:32:36>>*/ }
+     /*<<printf.ml:32:18>>*/ return fprintf(Stdlib[40], fmt) /*<<printf.ml:32:36>>*/ ;
+   }
    function ksprintf(k, param){
     var fmt = param[1];
     function k$0(acc){
-     var
-      buf =
-         /*<<printf.ml:36:14>>*/  /*<<printf.ml:36:14>>*/ caml_call1
-          /*<<printf.ml:36:14>>*/ (Stdlib_Buffer[1], 64);
-      /*<<printf.ml:37:4>>*/  /*<<printf.ml:37:4>>*/ caml_call2
-       /*<<printf.ml:37:4>>*/ (CamlinternalFormat[11], buf, acc);
-      /*<<printf.ml:38:6>>*/ return  /*<<printf.ml:38:6>>*/ caml_call1
-              /*<<printf.ml:38:6>>*/ (k,
-               /*<<printf.ml:38:6>>*/ caml_call1
-                /*<<printf.ml:38:6>>*/ (Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
-     /*<<printf.ml:38:27>>*/ }
-     /*<<printf.ml:39:2>>*/ return  /*<<printf.ml:39:2>>*/ caml_call3
-             /*<<printf.ml:39:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:31>>*/ ;
-    /*<<printf.ml:39:31>>*/ }
+     var buf =  /*<<printf.ml:36:14>>*/ caml_call1(Stdlib_Buffer[1], 64);
+      /*<<printf.ml:37:4>>*/ caml_call2(CamlinternalFormat[11], buf, acc);
+      /*<<printf.ml:38:6>>*/ return caml_call1
+             (k, caml_call1(Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
+    }
+     /*<<printf.ml:39:2>>*/ return caml_call3
+            (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:31>>*/ ;
+   }
    function sprintf(fmt){
-     /*<<printf.ml:41:18>>*/ return  /*<<printf.ml:41:18>>*/ ksprintf
-             /*<<printf.ml:41:18>>*/ (function(s){
-               /*<<printf.ml:41:37>>*/ return s /*<<printf.ml:41:37>>*/ ;
+     /*<<printf.ml:41:18>>*/ return ksprintf
+            (function(s){
+               /*<<printf.ml:41:37>>*/ return s;
               /*<<printf.ml:41:38>>*/ },
              fmt) /*<<printf.ml:41:43>>*/ ;
-    /*<<printf.ml:41:43>>*/ }
+   }
    var
     Stdlib_Printf =
       [0,
@@ -24420,18 +20283,17 @@
   (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",
-    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;
+    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",
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -24578,93 +20440,68 @@
     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
-             /*<<dynarray.ml:128:4>>*/ (Stdlib_Printf[10],
-             Stdlib[1],
-             _c_,
-             f,
-             n) /*<<dynarray.ml:130:9>>*/ ;
-    /*<<dynarray.ml:130:9>>*/ }
+     /*<<dynarray.ml:128:4>>*/ return 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
-             /*<<dynarray.ml:133:4>>*/ (Stdlib_Printf[10],
-             Stdlib[1],
-             _d_,
-             f,
-             n) /*<<dynarray.ml:135:9>>*/ ;
-    /*<<dynarray.ml:135:9>>*/ }
+     /*<<dynarray.ml:133:4>>*/ return 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
-             /*<<dynarray.ml:152:4>>*/ (Stdlib_Printf[10],
+     /*<<dynarray.ml:152:4>>*/ return caml_call5
+            (Stdlib_Printf[10],
              Stdlib[1],
              _f_,
              invalid_state_description,
              i,
              length) /*<<dynarray.ml:155:14>>*/ ;
-    /*<<dynarray.ml:155:14>>*/ }
+   }
    function unexpected_empty_element(f, i, length){
      /*<<dynarray.ml:172:4>>*/ return i < length
-            ?  /*<<dynarray.ml:173:6>>*/ missing_element
-               /*<<dynarray.ml:173:6>>*/ (i, length)
+            ?  /*<<dynarray.ml:173:6>>*/ missing_element(i, length)
             : 0
               === length
               ?  /*<<dynarray.ml:119:6>>*/ caml_call4
-                 /*<<dynarray.ml:119:6>>*/ (Stdlib_Printf[10],
-                 Stdlib[1],
-                 _a_,
-                 f,
-                 i)
+                (Stdlib_Printf[10], Stdlib[1], _a_, f, i)
               :  /*<<dynarray.ml:123:6>>*/ caml_call5
-                 /*<<dynarray.ml:123:6>>*/ (Stdlib_Printf[10],
-                 Stdlib[1],
-                 _b_,
-                 f,
-                 i,
-                 length - 1 | 0) /*<<dynarray.ml:175:38>>*/ ;
-    /*<<dynarray.ml:175:38>>*/ }
+                (Stdlib_Printf[10], Stdlib[1], _b_, f, i, length - 1 | 0) /*<<dynarray.ml:175:38>>*/ ;
+   }
    function check_same_length(f, a, expected){
     var length_a = a[1], _W_ = expected !== length_a ? 1 : 0;
     return _W_
             ?  /*<<dynarray.ml:164:4>>*/ caml_call5
-               /*<<dynarray.ml:164:4>>*/ (Stdlib_Printf[10],
-               Stdlib[1],
-               _h_,
-               f,
-               expected,
-               length_a)
+              (Stdlib_Printf[10], Stdlib[1], _h_, f, expected, length_a)
             : _W_ /*<<dynarray.ml:190:41>>*/ ;
-    /*<<dynarray.ml:190:41>>*/ }
+   }
    function check_valid_length(length, arr){
     var capacity = arr.length - 1, _V_ = capacity < length ? 1 : 0;
     return _V_
             ?  /*<<dynarray.ml:158:4>>*/ caml_call5
-               /*<<dynarray.ml:158:4>>*/ (Stdlib_Printf[10],
+              (Stdlib_Printf[10],
                Stdlib[1],
                _g_,
                invalid_state_description,
                length,
                capacity)
             : _V_ /*<<dynarray.ml:199:42>>*/ ;
-    /*<<dynarray.ml:199:42>>*/ }
+   }
    function unsafe_get(arr, i, length){
     var match = arr[1 + i];
     if(! match)
-      /*<<dynarray.ml:207:13>>*/ return  /*<<dynarray.ml:207:13>>*/ missing_element
-              /*<<dynarray.ml:207:13>>*/ (i, length) /*<<dynarray.ml:208:17>>*/ ;
+      /*<<dynarray.ml:207:13>>*/ return missing_element(i, length) /*<<dynarray.ml:208:17>>*/ ;
     var v = match[1];
-     /*<<dynarray.ml:208:16>>*/ return v /*<<dynarray.ml:208:16>>*/ ;
+     /*<<dynarray.ml:208:16>>*/ return v;
     /*<<dynarray.ml:208:17>>*/ }
    function create(param){
-     /*<<dynarray.ml:213:16>>*/ return [0, 0, [0]] /*<<dynarray.ml:213:16>>*/ ;
+     /*<<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>>*/  /*<<dynarray.ml:219:16>>*/ negative_length_requested
-       /*<<dynarray.ml:219:16>>*/ (cst_make, n);
+      /*<<dynarray.ml:219:16>>*/ negative_length_requested(cst_make, n);
      /*<<dynarray.ml:220:2>>*/ return [0,
             n,
              /*<<dynarray.ml:222:10>>*/ caml_call2
-              /*<<dynarray.ml:222:10>>*/ (Stdlib_Array[1],
+             (Stdlib_Array[1],
               n,
               function(param){
                 /*<<dynarray.ml:222:33>>*/ return [0, x] /*<<dynarray.ml:222:38>>*/ ;
@@ -24672,29 +20509,27 @@
     /*<<dynarray.ml:223:3>>*/ }
    function init(n, f){
      /*<<dynarray.ml:226:2>>*/ if(n < 0)
-      /*<<dynarray.ml:226:16>>*/  /*<<dynarray.ml:226:16>>*/ negative_length_requested
-       /*<<dynarray.ml:226:16>>*/ (cst_init, n);
+      /*<<dynarray.ml:226:16>>*/ negative_length_requested(cst_init, n);
      /*<<dynarray.ml:227:2>>*/ return [0,
             n,
              /*<<dynarray.ml:229:10>>*/ caml_call2
-              /*<<dynarray.ml:229:10>>*/ (Stdlib_Array[1],
+             (Stdlib_Array[1],
               n,
               function(i){
                 /*<<dynarray.ml:229:33>>*/ return [0,
-                        /*<<dynarray.ml:229:43>>*/ caml_call1
-                         /*<<dynarray.ml:229:43>>*/ (f, i)] /*<<dynarray.ml:229:38>>*/ ;
+                        /*<<dynarray.ml:229:43>>*/ caml_call1(f, i)] /*<<dynarray.ml:229:38>>*/ ;
                /*<<dynarray.ml:229:47>>*/ })] /*<<dynarray.ml:227:2>>*/ ;
     /*<<dynarray.ml:230:3>>*/ }
    function get(a, i){
     var match =  /*<<dynarray.ml:238:8>>*/ caml_check_bound(a[2], i)[1 + i];
     return match ? match[1] : unexpected_empty_element(cst_get, i, a[1]) /*<<dynarray.ml:241:62>>*/ ;
-    /*<<dynarray.ml:241:62>>*/ }
+   }
    function set(a, i, x){
     var match =  /*<<dynarray.ml:246:8>>*/ 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>>*/ ;
-    /*<<dynarray.ml:249:62>>*/ }
+   }
    function length(a){
      /*<<dynarray.ml:251:15>>*/ return a[1];
     /*<<dynarray.ml:251:23>>*/ }
@@ -24703,70 +20538,57 @@
     /*<<dynarray.ml:253:31>>*/ }
    function copy(param){
     var length = param[1], arr = param[2];
-     /*<<dynarray.ml:256:2>>*/  /*<<dynarray.ml:256:2>>*/ check_valid_length
-      /*<<dynarray.ml:256:2>>*/ (length, arr);
+     /*<<dynarray.ml:256:2>>*/ check_valid_length(length, arr);
      /*<<dynarray.ml:259:2>>*/ return [0,
             length,
              /*<<dynarray.ml:261:10>>*/ caml_call2
-              /*<<dynarray.ml:261:10>>*/ (Stdlib_Array[1],
+             (Stdlib_Array[1],
               length,
               function(i){
-               var
-                v =
-                   /*<<dynarray.ml:262:14>>*/  /*<<dynarray.ml:262:14>>*/ unsafe_get
-                    /*<<dynarray.ml:262:14>>*/ (arr, i, length);
-                /*<<dynarray.ml:263:11>>*/ return [0, v] /*<<dynarray.ml:263:11>>*/ ;
+               var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
+                /*<<dynarray.ml:263:11>>*/ return [0, v];
                /*<<dynarray.ml:263:14>>*/ })] /*<<dynarray.ml:259:2>>*/ ;
     /*<<dynarray.ml:265:3>>*/ }
    function get_last(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:269:2>>*/  /*<<dynarray.ml:269:2>>*/ check_valid_length
-      /*<<dynarray.ml:269:2>>*/ (length, arr);
+     /*<<dynarray.ml:269:2>>*/ check_valid_length(length, arr);
     if(0 === length)
-      /*<<dynarray.ml:178:4>>*/  /*<<dynarray.ml:178:4>>*/ caml_call3
-       /*<<dynarray.ml:178:4>>*/ (Stdlib_Printf[10], Stdlib[1], _i_, f);
-     /*<<dynarray.ml:271:21>>*/ return  /*<<dynarray.ml:271:21>>*/ unsafe_get
-             /*<<dynarray.ml:271:21>>*/ (arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
-    /*<<dynarray.ml:273:40>>*/ }
+      /*<<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){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:277:2>>*/  /*<<dynarray.ml:277:2>>*/ check_valid_length
-      /*<<dynarray.ml:277:2>>*/ (length, arr);
+     /*<<dynarray.ml:277:2>>*/ check_valid_length(length, arr);
     return 0 === length
             ? 0
             : [0,
                /*<<dynarray.ml:282:9>>*/ unsafe_get
-                /*<<dynarray.ml:282:9>>*/ (arr, length - 1 | 0, length)] /*<<dynarray.ml:282:49>>*/ ;
-    /*<<dynarray.ml:282:49>>*/ }
+               (arr, length - 1 | 0, length)] /*<<dynarray.ml:282:49>>*/ ;
+   }
    function pop_last(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:288:2>>*/  /*<<dynarray.ml:288:2>>*/ check_valid_length
-      /*<<dynarray.ml:288:2>>*/ (length, arr);
+     /*<<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
-             /*<<dynarray.ml:290:21>>*/ (Stdlib[8], 1);
+      /*<<dynarray.ml:290:21>>*/ throw caml_maybe_attach_backtrace
+            (Stdlib[8], 1);
     var
      last =  /*<<dynarray.ml:291:2>>*/ length - 1 | 0,
      match = arr[1 + last];
     return match
             ? (arr[1 + last] = 0, a[1] = last, match[1])
-            :  /*<<dynarray.ml:295:6>>*/ missing_element
-               /*<<dynarray.ml:295:6>>*/ (last, length) /*<<dynarray.ml:299:9>>*/ ;
-    /*<<dynarray.ml:299:9>>*/ }
+            :  /*<<dynarray.ml:295:6>>*/ missing_element(last, length) /*<<dynarray.ml:299:9>>*/ ;
+   }
    function pop_last_opt(a){
      /*<<dynarray.ml:302:2>>*/ try{
-     var
-      x =
-         /*<<dynarray.ml:302:8>>*/  /*<<dynarray.ml:302:8>>*/ pop_last
-          /*<<dynarray.ml:302:8>>*/ (a);
+     var x =  /*<<dynarray.ml:302:8>>*/ pop_last(a);
     }
     catch(_U_){
      var _T_ = caml_wrap_exception(_U_);
-     if(_T_ === Stdlib[8])
-       /*<<dynarray.ml:303:27>>*/ return 0 /*<<dynarray.ml:303:27>>*/ ;
+     if(_T_ === Stdlib[8])  /*<<dynarray.ml:303:27>>*/ return 0;
      throw caml_maybe_attach_backtrace(_T_, 0);
     }
-     /*<<dynarray.ml:304:9>>*/ return [0, x] /*<<dynarray.ml:304:9>>*/ ;
+     /*<<dynarray.ml:304:9>>*/ return [0, x];
     /*<<dynarray.ml:304:15>>*/ }
    function remove_last(a){
     var
@@ -24776,12 +20598,11 @@
        _R_
         ? (a[1] = last, caml_check_bound(a[2], last)[1 + last] = 0, 0)
         : _R_;
-     /*<<dynarray.ml:310:4>>*/ return _S_ /*<<dynarray.ml:310:4>>*/ ;
+     /*<<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>>*/  /*<<dynarray.ml:314:16>>*/ negative_length_requested
-       /*<<dynarray.ml:314:16>>*/ (cst_truncate, n);
+      /*<<dynarray.ml:314:16>>*/ negative_length_requested(cst_truncate, n);
     var length = a[1], arr = a[2];
     return length <= n
             ? 0
@@ -24789,30 +20610,23 @@
                [1]
               = n,
                /*<<dynarray.ml:319:4>>*/ caml_call4
-                /*<<dynarray.ml:319:4>>*/ (Stdlib_Array[8],
-                arr,
-                n,
-                length - n | 0,
-                0)) /*<<dynarray.ml:320:5>>*/ ;
-    /*<<dynarray.ml:320:5>>*/ }
+               (Stdlib_Array[8], arr, n, length - n | 0, 0)) /*<<dynarray.ml:320:5>>*/ ;
+   }
    function clear(a){
-     /*<<dynarray.ml:322:14>>*/ return  /*<<dynarray.ml:322:14>>*/ truncate
-             /*<<dynarray.ml:322:14>>*/ (a, 0) /*<<dynarray.ml:322:26>>*/ ;
-    /*<<dynarray.ml:322:26>>*/ }
+     /*<<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){
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:349:2>>*/ arr.length - 1;
      /*<<dynarray.ml:350:2>>*/ if(0 > capacity_request)
-      /*<<dynarray.ml:351:4>>*/ return  /*<<dynarray.ml:351:4>>*/ negative_capacity_requested
-              /*<<dynarray.ml:351:4>>*/ (cst_ensure_capacity,
-              capacity_request) /*<<dynarray.ml:382:5>>*/ ;
-    if(capacity_request <= cur_capacity)
-      /*<<dynarray.ml:356:4>>*/ return 0 /*<<dynarray.ml:356:4>>*/ ;
+      /*<<dynarray.ml:351:4>>*/ return negative_capacity_requested
+             (cst_ensure_capacity, capacity_request) /*<<dynarray.ml:382:5>>*/ ;
+    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
-       /*<<dynarray.ml:138:4>>*/ (Stdlib_Printf[10],
+      /*<<dynarray.ml:138:4>>*/ caml_call5
+      (Stdlib_Printf[10],
        Stdlib[1],
        _e_,
        f$0,
@@ -24824,66 +20638,52 @@
         ? cur_capacity + (cur_capacity / 2 | 0) | 0
         : cur_capacity * 2 | 0,
      _O_ = Stdlib_Sys[13],
-     _P_ =
-        /*<<dynarray.ml:345:6>>*/  /*<<dynarray.ml:345:6>>*/ caml_call2
-         /*<<dynarray.ml:345:6>>*/ (Stdlib[17], 8, n),
-     _Q_ =
-        /*<<dynarray.ml:345:2>>*/  /*<<dynarray.ml:345:2>>*/ caml_call2
-         /*<<dynarray.ml:345:2>>*/ (Stdlib[16], _P_, _O_),
+     _P_ =  /*<<dynarray.ml:345:6>>*/ caml_call2(Stdlib[17], 8, n),
+     _Q_ =  /*<<dynarray.ml:345:2>>*/ caml_call2(Stdlib[16], _P_, _O_),
      new_capacity =
-        /*<<dynarray.ml:375:6>>*/  /*<<dynarray.ml:375:6>>*/ caml_call2
-         /*<<dynarray.ml:375:6>>*/ (Stdlib[17], _Q_, capacity_request),
-     new_arr =
-        /*<<dynarray.ml:376:18>>*/  /*<<dynarray.ml:376:18>>*/ caml_make_vect
-         /*<<dynarray.ml:376:18>>*/ (new_capacity, 0);
-     /*<<dynarray.ml:377:4>>*/  /*<<dynarray.ml:377:4>>*/ caml_call5
-      /*<<dynarray.ml:377:4>>*/ (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
+        /*<<dynarray.ml:375:6>>*/ caml_call2
+        (Stdlib[17], _Q_, capacity_request),
+     new_arr =  /*<<dynarray.ml:376:18>>*/ caml_make_vect(new_capacity, 0);
+     /*<<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
-             /*<<dynarray.ml:380:4>>*/ ([0, Assert_failure, _k_], 1);
+      /*<<dynarray.ml:380:4>>*/ throw 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
-            /*<<dynarray.ml:381:4>>*/ ([0, Assert_failure, _j_], 1);
+     /*<<dynarray.ml:381:4>>*/ throw 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  /*<<dynarray.ml:385:21>>*/ ensure_capacity
-             /*<<dynarray.ml:385:21>>*/ (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
-    /*<<dynarray.ml:385:55>>*/ }
+            (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
+   }
    function fit_capacity(a){
     var _N_ = a[1];
-    return  /*<<dynarray.ml:388:5>>*/ capacity /*<<dynarray.ml:388:5>>*/ (a)
-            === _N_
+    return  /*<<dynarray.ml:388:5>>*/ capacity(a) === _N_
             ? 0
             : (a
                [2]
               =
                 /*<<dynarray.ml:390:16>>*/ caml_call3
-                 /*<<dynarray.ml:390:16>>*/ (Stdlib_Array[6], a[2], 0, a[1]),
+                (Stdlib_Array[6], a[2], 0, a[1]),
               0) /*<<dynarray.ml:390:42>>*/ ;
-    /*<<dynarray.ml:390:42>>*/ }
+   }
    function set_capacity(a, n){
      /*<<dynarray.ml:393:2>>*/ if(n < 0)
-      /*<<dynarray.ml:394:4>>*/  /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
-       /*<<dynarray.ml:394:4>>*/ (cst_set_capacity, n);
+      /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
+      (cst_set_capacity, n);
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:396:2>>*/ arr.length - 1;
     if(n < cur_capacity){
-     a[1] =
-       /*<<dynarray.ml:398:16>>*/ caml_call2
-        /*<<dynarray.ml:398:16>>*/ (Stdlib[16], a[1], n);
-     a[2] =
-       /*<<dynarray.ml:399:13>>*/ caml_call3
-        /*<<dynarray.ml:399:13>>*/ (Stdlib_Array[6], arr, 0, n);
+     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_){
-     var
-      new_arr =
-         /*<<dynarray.ml:402:18>>*/  /*<<dynarray.ml:402:18>>*/ caml_make_vect
-          /*<<dynarray.ml:402:18>>*/ (n, 0);
-      /*<<dynarray.ml:403:4>>*/  /*<<dynarray.ml:403:4>>*/ caml_call5
-       /*<<dynarray.ml:403:4>>*/ (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
+     var new_arr =  /*<<dynarray.ml:402:18>>*/ caml_make_vect(n, 0);
+      /*<<dynarray.ml:403:4>>*/ caml_call5
+      (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
      a[2] = new_arr;
      var _M_ = 0;
     }
@@ -24901,62 +20701,49 @@
     return arr.length - 1 <= length
             ? 0
             : (a[1] = length + 1 | 0, arr[1 + length] = elem, 1) /*<<dynarray.ml:435:5>>*/ ;
-    /*<<dynarray.ml:435:5>>*/ }
+   }
    function add_last(a, x){
     var elem =  /*<<dynarray.ml:438:18>>*/ [0, x];
-     /*<<dynarray.ml:439:5>>*/ if
-     ( /*<<dynarray.ml:439:5>>*/ add_last_if_room
-        /*<<dynarray.ml:439:5>>*/ (a, elem))
-      /*<<dynarray.ml:439:34>>*/ return 0 /*<<dynarray.ml:439:34>>*/ ;
+     /*<<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>>*/  /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity
-       /*<<dynarray.ml:443:6>>*/ (a, 1);
-     var
-      _K_ =
-         /*<<dynarray.ml:444:13>>*/ 1
-        -
-          /*<<dynarray.ml:444:13>>*/ add_last_if_room
-           /*<<dynarray.ml:444:13>>*/ (a, elem);
-     if(! _K_)
-       /*<<dynarray.ml:444:13>>*/ return _K_ /*<<dynarray.ml:444:13>>*/ ;
+     ensure_extra_capacity(a, 1);
+     var _K_ =  /*<<dynarray.ml:444:13>>*/ 1 - add_last_if_room(a, elem);
+     if(! _K_) return _K_;
     }
     /*<<dynarray.ml:447:5>>*/ }
    function append_list(a, li){
     var li$0 = li;
      /*<<dynarray.ml:450:2>>*/ for(;;){
-     if(! li$0)
-       /*<<dynarray.ml:451:10>>*/ return 0 /*<<dynarray.ml:451:10>>*/ ;
+     if(! li$0)  /*<<dynarray.ml:451:10>>*/ return 0;
      var xs = li$0[2], x = li$0[1];
-      /*<<dynarray.ml:452:15>>*/  /*<<dynarray.ml:452:15>>*/ add_last
-       /*<<dynarray.ml:452:15>>*/ (a, x);
+      /*<<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
-             /*<<dynarray.ml:455:2>>*/ (iter,
+     /*<<dynarray.ml:455:2>>*/ return caml_call2
+            (iter,
              function(x){
-               /*<<dynarray.ml:455:17>>*/ return  /*<<dynarray.ml:455:17>>*/ add_last
-                       /*<<dynarray.ml:455:17>>*/ (a, x) /*<<dynarray.ml:455:29>>*/ ;
-              /*<<dynarray.ml:455:29>>*/ },
+               /*<<dynarray.ml:455:17>>*/ return add_last(a, x) /*<<dynarray.ml:455:29>>*/ ;
+             },
              b) /*<<dynarray.ml:455:32>>*/ ;
-    /*<<dynarray.ml:455:32>>*/ }
+   }
    function append_seq(a, seq){
-     /*<<dynarray.ml:458:2>>*/ return  /*<<dynarray.ml:458:2>>*/ caml_call2
-             /*<<dynarray.ml:458:2>>*/ (Stdlib_Seq[4],
+     /*<<dynarray.ml:458:2>>*/ return caml_call2
+            (Stdlib_Seq[4],
              function(x){
-               /*<<dynarray.ml:458:21>>*/ return  /*<<dynarray.ml:458:21>>*/ add_last
-                       /*<<dynarray.ml:458:21>>*/ (a, x) /*<<dynarray.ml:458:33>>*/ ;
-              /*<<dynarray.ml:458:33>>*/ },
+               /*<<dynarray.ml:458:21>>*/ return add_last(a, x) /*<<dynarray.ml:458:33>>*/ ;
+             },
              seq) /*<<dynarray.ml:458:38>>*/ ;
-    /*<<dynarray.ml:458:38>>*/ }
+   }
    function append_array_if_room(a, b){
     var
      length_a = a[1],
      arr = a[2],
      length_b =  /*<<dynarray.ml:464:2>>*/ b.length - 1;
     if(arr.length - 1 < (length_a + length_b | 0))
-      /*<<dynarray.ml:465:49>>*/ return 0 /*<<dynarray.ml:465:49>>*/ ;
+      /*<<dynarray.ml:465:49>>*/ return 0;
     a[1] = length_a + length_b | 0;
     var
      _I_ =  /*<<dynarray.ml:464:2>>*/ length_b - 1 | 0,
@@ -24971,167 +20758,126 @@
       i = _J_;
      }
     }
-     /*<<dynarray.ml:499:4>>*/ return 1 /*<<dynarray.ml:499:4>>*/ ;
+     /*<<dynarray.ml:499:4>>*/ return 1;
     /*<<dynarray.ml:500:5>>*/ }
    function append_array(a, b){
      /*<<dynarray.ml:503:2>>*/ if
-     ( /*<<dynarray.ml:503:5>>*/ append_array_if_room
-        /*<<dynarray.ml:503:5>>*/ (a, b))
-      /*<<dynarray.ml:503:35>>*/ return 0 /*<<dynarray.ml:503:35>>*/ ;
+     ( /*<<dynarray.ml:503:5>>*/ append_array_if_room(a, b))
+      /*<<dynarray.ml:503:35>>*/ return 0;
      /*<<dynarray.ml:507:6>>*/ for(;;){
-      /*<<dynarray.ml:507:6>>*/  /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity
-       /*<<dynarray.ml:507:6>>*/ (a, b.length - 1);
-     var
-      _G_ =
-         /*<<dynarray.ml:508:13>>*/ 1
-        -
-          /*<<dynarray.ml:508:13>>*/ append_array_if_room
-           /*<<dynarray.ml:508:13>>*/ (a, b);
-     if(! _G_)
-       /*<<dynarray.ml:508:13>>*/ return _G_ /*<<dynarray.ml:508:13>>*/ ;
+     ensure_extra_capacity(a, b.length - 1);
+     var _G_ =  /*<<dynarray.ml:508:13>>*/ 1 - append_array_if_room(a, b);
+     if(! _G_) return _G_;
     }
     /*<<dynarray.ml:510:31>>*/ }
    function append_if_room(a, b, length_b){
     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 /*<<dynarray.ml:522:51>>*/ ;
+      /*<<dynarray.ml:522:51>>*/ return 0;
     a[1] = length_a + length_b | 0;
     var arr_b = b[2];
-     /*<<dynarray.ml:526:4>>*/  /*<<dynarray.ml:526:4>>*/ check_valid_length
-      /*<<dynarray.ml:526:4>>*/ (length_b, arr_b);
-    var _E_ = length_b - 1 | 0, _D_ =  /*<<dynarray.ml:526:4>>*/ 0;
+     /*<<dynarray.ml:526:4>>*/ check_valid_length(length_b, arr_b);
+    var _E_ = length_b - 1 | 0, _D_ = 0;
     if(_E_ >= 0){
      var i = _D_;
      for(;;){
-      var
-       x =
-          /*<<dynarray.ml:528:14>>*/  /*<<dynarray.ml:528:14>>*/ unsafe_get
-           /*<<dynarray.ml:528:14>>*/ (arr_b, i, length_b);
+      var x =  /*<<dynarray.ml:528:14>>*/ unsafe_get(arr_b, i, length_b);
       arr_a[1 + (length_a + i | 0)] = [0, x];
       var _F_ =  /*<<dynarray.ml:526:4>>*/ i + 1 | 0;
       if(_E_ === i) break;
       i = _F_;
      }
     }
-     /*<<dynarray.ml:531:4>>*/  /*<<dynarray.ml:531:4>>*/ check_same_length
-      /*<<dynarray.ml:531:4>>*/ (cst_append, b, length_b);
-     /*<<dynarray.ml:531:4>>*/ return 1 /*<<dynarray.ml:531:4>>*/ ;
+     /*<<dynarray.ml:531:4>>*/ check_same_length(cst_append, b, length_b);
+    return 1;
     /*<<dynarray.ml:533:5>>*/ }
    function append(a, b){
     var length_b = b[1];
-     /*<<dynarray.ml:537:5>>*/ if
-     ( /*<<dynarray.ml:537:5>>*/ append_if_room
-        /*<<dynarray.ml:537:5>>*/ (a, b, length_b))
-      /*<<dynarray.ml:537:39>>*/ return 0 /*<<dynarray.ml:537:39>>*/ ;
+     /*<<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>>*/  /*<<dynarray.ml:541:6>>*/ ensure_extra_capacity
-       /*<<dynarray.ml:541:6>>*/ (a, length_b);
-      /*<<dynarray.ml:548:6>>*/  /*<<dynarray.ml:548:6>>*/ check_same_length
-       /*<<dynarray.ml:548:6>>*/ (cst_append$0, b, length_b);
-     var
-      _C_ =
-         /*<<dynarray.ml:549:13>>*/ 1
-        -
-          /*<<dynarray.ml:549:13>>*/ append_if_room
-           /*<<dynarray.ml:549:13>>*/ (a, b, length_b);
-     if(! _C_)
-       /*<<dynarray.ml:549:13>>*/ return _C_ /*<<dynarray.ml:549:13>>*/ ;
+     ensure_extra_capacity(a, length_b);
+      /*<<dynarray.ml:548:6>>*/ check_same_length(cst_append$0, b, length_b);
+     var _C_ =  /*<<dynarray.ml:549:13>>*/ 1 - append_if_room(a, b, length_b);
+     if(! _C_) return _C_;
     }
     /*<<dynarray.ml:552:5>>*/ }
    function iter(f, k, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:596:2>>*/  /*<<dynarray.ml:596:2>>*/ check_valid_length
-      /*<<dynarray.ml:596:2>>*/ (length, arr);
-    var _A_ = length - 1 | 0, _z_ =  /*<<dynarray.ml:596:2>>*/ 0;
+     /*<<dynarray.ml:596:2>>*/ check_valid_length(length, arr);
+    var _A_ = length - 1 | 0, _z_ = 0;
     if(_A_ >= 0){
      var i = _z_;
      for(;;){
-       /*<<dynarray.ml:598:4>>*/  /*<<dynarray.ml:598:4>>*/ caml_call1
-        /*<<dynarray.ml:598:4>>*/ (k,
-         /*<<dynarray.ml:598:6>>*/ unsafe_get
-          /*<<dynarray.ml:598:6>>*/ (arr, i, length));
+       /*<<dynarray.ml:598:4>>*/ caml_call1
+       (k,  /*<<dynarray.ml:598:6>>*/ unsafe_get(arr, i, length));
       var _B_ =  /*<<dynarray.ml:598:4>>*/ i + 1 | 0;
       if(_A_ === i) break;
       i = _B_;
      }
     }
-     /*<<dynarray.ml:600:2>>*/ return  /*<<dynarray.ml:600:2>>*/ check_same_length
-             /*<<dynarray.ml:600:2>>*/ (f, a, length) /*<<dynarray.ml:600:31>>*/ ;
-    /*<<dynarray.ml:600:31>>*/ }
+     /*<<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  /*<<dynarray.ml:603:2>>*/ iter
-             /*<<dynarray.ml:603:2>>*/ (cst_iter, k, a) /*<<dynarray.ml:603:18>>*/ ;
-    /*<<dynarray.ml:603:18>>*/ }
+     /*<<dynarray.ml:603:2>>*/ return iter(cst_iter, k, a) /*<<dynarray.ml:603:18>>*/ ;
+   }
    function iteri(k, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:607:2>>*/  /*<<dynarray.ml:607:2>>*/ check_valid_length
-      /*<<dynarray.ml:607:2>>*/ (length, arr);
-    var _x_ = length - 1 | 0, _w_ =  /*<<dynarray.ml:607:2>>*/ 0;
+     /*<<dynarray.ml:607:2>>*/ check_valid_length(length, arr);
+    var _x_ = length - 1 | 0, _w_ = 0;
     if(_x_ >= 0){
      var i = _w_;
      for(;;){
-       /*<<dynarray.ml:609:4>>*/  /*<<dynarray.ml:609:4>>*/ caml_call2
-        /*<<dynarray.ml:609:4>>*/ (k,
-        i,
-         /*<<dynarray.ml:609:8>>*/ unsafe_get
-          /*<<dynarray.ml:609:8>>*/ (arr, i, length));
+       /*<<dynarray.ml:609:4>>*/ caml_call2
+       (k, i,  /*<<dynarray.ml:609:8>>*/ unsafe_get(arr, i, length));
       var _y_ =  /*<<dynarray.ml:609:4>>*/ i + 1 | 0;
       if(_x_ === i) break;
       i = _y_;
      }
     }
-     /*<<dynarray.ml:611:2>>*/ return  /*<<dynarray.ml:611:2>>*/ check_same_length
-             /*<<dynarray.ml:611:2>>*/ (cst_iteri, a, length) /*<<dynarray.ml:611:37>>*/ ;
-    /*<<dynarray.ml:611:37>>*/ }
+     /*<<dynarray.ml:611:2>>*/ return check_same_length(cst_iteri, a, length) /*<<dynarray.ml:611:37>>*/ ;
+   }
    function map(f, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:615:2>>*/  /*<<dynarray.ml:615:2>>*/ check_valid_length
-      /*<<dynarray.ml:615:2>>*/ (length, arr);
+     /*<<dynarray.ml:615:2>>*/ check_valid_length(length, arr);
     var
      res =
         /*<<dynarray.ml:616:12>>*/ [0,
         length,
          /*<<dynarray.ml:618:10>>*/ caml_call2
-          /*<<dynarray.ml:618:10>>*/ (Stdlib_Array[1],
+         (Stdlib_Array[1],
           length,
           function(i){
             /*<<dynarray.ml:619:6>>*/ return [0,
                     /*<<dynarray.ml:619:16>>*/ caml_call1
-                     /*<<dynarray.ml:619:16>>*/ (f,
-                      /*<<dynarray.ml:619:18>>*/ unsafe_get
-                       /*<<dynarray.ml:619:18>>*/ (arr, i, length))] /*<<dynarray.ml:619:11>>*/ ;
+                    (f,  /*<<dynarray.ml:619:18>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:619:11>>*/ ;
            /*<<dynarray.ml:619:46>>*/ })];
-     /*<<dynarray.ml:621:2>>*/  /*<<dynarray.ml:621:2>>*/ check_same_length
-      /*<<dynarray.ml:621:2>>*/ (cst_map, a, length);
-     /*<<dynarray.ml:621:2>>*/ return res /*<<dynarray.ml:621:2>>*/ ;
+     /*<<dynarray.ml:621:2>>*/ check_same_length(cst_map, a, length);
+    return res;
     /*<<dynarray.ml:622:5>>*/ }
    function mapi(f, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:627:2>>*/  /*<<dynarray.ml:627:2>>*/ check_valid_length
-      /*<<dynarray.ml:627:2>>*/ (length, arr);
+     /*<<dynarray.ml:627:2>>*/ check_valid_length(length, arr);
     var
      res =
         /*<<dynarray.ml:628:12>>*/ [0,
         length,
          /*<<dynarray.ml:630:10>>*/ caml_call2
-          /*<<dynarray.ml:630:10>>*/ (Stdlib_Array[1],
+         (Stdlib_Array[1],
           length,
           function(i){
             /*<<dynarray.ml:631:6>>*/ return [0,
                     /*<<dynarray.ml:631:16>>*/ caml_call2
-                     /*<<dynarray.ml:631:16>>*/ (f,
+                    (f,
                      i,
-                      /*<<dynarray.ml:631:20>>*/ unsafe_get
-                       /*<<dynarray.ml:631:20>>*/ (arr, i, length))] /*<<dynarray.ml:631:11>>*/ ;
+                      /*<<dynarray.ml:631:20>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:631:11>>*/ ;
            /*<<dynarray.ml:631:48>>*/ })];
-     /*<<dynarray.ml:633:2>>*/  /*<<dynarray.ml:633:2>>*/ check_same_length
-      /*<<dynarray.ml:633:2>>*/ (cst_mapi, a, length);
-     /*<<dynarray.ml:633:2>>*/ return res /*<<dynarray.ml:633:2>>*/ ;
+     /*<<dynarray.ml:633:2>>*/ check_same_length(cst_mapi, a, length);
+    return res;
     /*<<dynarray.ml:634:5>>*/ }
    function fold_left(f, acc, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:638:2>>*/  /*<<dynarray.ml:638:2>>*/ check_valid_length
-      /*<<dynarray.ml:638:2>>*/ (length, arr);
+     /*<<dynarray.ml:638:2>>*/ check_valid_length(length, arr);
     var
      r =  /*<<dynarray.ml:639:10>>*/ [0, acc],
      _u_ =  /*<<dynarray.ml:640:2>>*/ length - 1 | 0,
@@ -25139,52 +20885,36 @@
     if(_u_ >= 0){
      var i = _t_;
      for(;;){
-      var
-       v =
-          /*<<dynarray.ml:641:12>>*/  /*<<dynarray.ml:641:12>>*/ unsafe_get
-           /*<<dynarray.ml:641:12>>*/ (arr, i, length);
-      r[1] =
-        /*<<dynarray.ml:642:9>>*/ caml_call2
-         /*<<dynarray.ml:642:9>>*/ (f, r[1], v);
+      var v =  /*<<dynarray.ml:641:12>>*/ unsafe_get(arr, i, length);
+      r[1] =  /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
       var _v_ =  /*<<dynarray.ml:640:2>>*/ i + 1 | 0;
       if(_u_ === i) break;
       i = _v_;
      }
     }
-     /*<<dynarray.ml:644:2>>*/  /*<<dynarray.ml:644:2>>*/ check_same_length
-      /*<<dynarray.ml:644:2>>*/ (cst_fold_left, a, length);
+     /*<<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){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:649:2>>*/  /*<<dynarray.ml:649:2>>*/ check_valid_length
-      /*<<dynarray.ml:649:2>>*/ (length, arr);
-    var
-     r =  /*<<dynarray.ml:650:10>>*/ [0, acc],
-     _r_ =  /*<<dynarray.ml:650:10>>*/ length - 1 | 0;
+     /*<<dynarray.ml:649:2>>*/ check_valid_length(length, arr);
+    var r =  /*<<dynarray.ml:650:10>>*/ [0, acc], _r_ = length - 1 | 0;
     if(_r_ >= 0){
      var i = _r_;
      for(;;){
-      var
-       v =
-          /*<<dynarray.ml:652:12>>*/  /*<<dynarray.ml:652:12>>*/ unsafe_get
-           /*<<dynarray.ml:652:12>>*/ (arr, i, length);
-      r[1] =
-        /*<<dynarray.ml:653:9>>*/ caml_call2
-         /*<<dynarray.ml:653:9>>*/ (f, v, r[1]);
+      var v =  /*<<dynarray.ml:652:12>>*/ unsafe_get(arr, i, length);
+      r[1] =  /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
       var _s_ =  /*<<dynarray.ml:650:10>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _s_;
      }
     }
-     /*<<dynarray.ml:655:2>>*/  /*<<dynarray.ml:655:2>>*/ check_same_length
-      /*<<dynarray.ml:655:2>>*/ (cst_fold_right, a, length);
+     /*<<dynarray.ml:655:2>>*/ check_same_length(cst_fold_right, a, length);
     return r[1];
     /*<<dynarray.ml:656:4>>*/ }
    function exists(p, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:660:2>>*/  /*<<dynarray.ml:660:2>>*/ check_valid_length
-      /*<<dynarray.ml:660:2>>*/ (length, arr);
+     /*<<dynarray.ml:660:2>>*/ check_valid_length(length, arr);
     var i = 0;
      /*<<dynarray.ml:662:4>>*/ for(;;){
      if(i === length)
@@ -25192,10 +20922,8 @@
      else{
       var
        _q_ =
-          /*<<dynarray.ml:664:6>>*/  /*<<dynarray.ml:664:6>>*/ caml_call1
-           /*<<dynarray.ml:664:6>>*/ (p,
-            /*<<dynarray.ml:664:8>>*/ unsafe_get
-             /*<<dynarray.ml:664:8>>*/ (arr, i, length));
+          /*<<dynarray.ml:664:6>>*/ caml_call1
+          (p,  /*<<dynarray.ml:664:8>>*/ unsafe_get(arr, i, length));
        /*<<dynarray.ml:664:6>>*/ if(! _q_){
        var i$0 = i + 1 | 0;
        i = i$0;
@@ -25203,15 +20931,13 @@
       }
       var res = _q_;
      }
-      /*<<dynarray.ml:668:2>>*/  /*<<dynarray.ml:668:2>>*/ check_same_length
-       /*<<dynarray.ml:668:2>>*/ (cst_exists, a, length);
-      /*<<dynarray.ml:668:2>>*/ return res /*<<dynarray.ml:668:2>>*/ ;
+      /*<<dynarray.ml:668:2>>*/ check_same_length(cst_exists, a, length);
+     return res;
     }
     /*<<dynarray.ml:669:5>>*/ }
    function for_all(p, a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:673:2>>*/  /*<<dynarray.ml:673:2>>*/ check_valid_length
-      /*<<dynarray.ml:673:2>>*/ (length, arr);
+     /*<<dynarray.ml:673:2>>*/ check_valid_length(length, arr);
     var i = 0;
      /*<<dynarray.ml:675:4>>*/ for(;;){
      if(i === length)
@@ -25219,10 +20945,8 @@
      else{
       var
        _p_ =
-          /*<<dynarray.ml:677:6>>*/  /*<<dynarray.ml:677:6>>*/ caml_call1
-           /*<<dynarray.ml:677:6>>*/ (p,
-            /*<<dynarray.ml:677:8>>*/ unsafe_get
-             /*<<dynarray.ml:677:8>>*/ (arr, i, length));
+          /*<<dynarray.ml:677:6>>*/ caml_call1
+          (p,  /*<<dynarray.ml:677:8>>*/ unsafe_get(arr, i, length));
        /*<<dynarray.ml:677:6>>*/ if(_p_){
        var i$0 = i + 1 | 0;
        i = i$0;
@@ -25230,58 +20954,40 @@
       }
       var res = _p_;
      }
-      /*<<dynarray.ml:681:2>>*/  /*<<dynarray.ml:681:2>>*/ check_same_length
-       /*<<dynarray.ml:681:2>>*/ (cst_for_all, a, length);
-      /*<<dynarray.ml:681:2>>*/ return res /*<<dynarray.ml:681:2>>*/ ;
+      /*<<dynarray.ml:681:2>>*/ check_same_length(cst_for_all, a, length);
+     return res;
     }
     /*<<dynarray.ml:682:5>>*/ }
    function filter(f, a){
-    var
-     b =
-        /*<<dynarray.ml:685:10>>*/  /*<<dynarray.ml:685:10>>*/ create
-         /*<<dynarray.ml:685:10>>*/ (0);
-     /*<<dynarray.ml:686:2>>*/  /*<<dynarray.ml:686:2>>*/ iter
-      /*<<dynarray.ml:686:2>>*/ (cst_filter,
+    var b =  /*<<dynarray.ml:685:10>>*/ create(0);
+     /*<<dynarray.ml:686:2>>*/ iter
+     (cst_filter,
       function(x){
-       var
-        _o_ =
-           /*<<dynarray.ml:686:30>>*/  /*<<dynarray.ml:686:30>>*/ caml_call1
-            /*<<dynarray.ml:686:30>>*/ (f, x);
-        /*<<dynarray.ml:686:30>>*/ return _o_
-               ?  /*<<dynarray.ml:686:39>>*/ add_last
-                  /*<<dynarray.ml:686:39>>*/ (b, x)
-               : _o_ /*<<dynarray.ml:686:51>>*/ ;
-       /*<<dynarray.ml:686:51>>*/ },
+       var _o_ =  /*<<dynarray.ml:686:30>>*/ caml_call1(f, x);
+       return _o_ ?  /*<<dynarray.ml:686:39>>*/ add_last(b, x) : _o_ /*<<dynarray.ml:686:51>>*/ ;
+      },
       a);
-     /*<<dynarray.ml:686:2>>*/ return b /*<<dynarray.ml:686:2>>*/ ;
+     /*<<dynarray.ml:686:2>>*/ return b;
     /*<<dynarray.ml:687:3>>*/ }
    function filter_map(f, a){
-    var
-     b =
-        /*<<dynarray.ml:690:10>>*/  /*<<dynarray.ml:690:10>>*/ create
-         /*<<dynarray.ml:690:10>>*/ (0);
-     /*<<dynarray.ml:691:2>>*/  /*<<dynarray.ml:691:2>>*/ iter
-      /*<<dynarray.ml:691:2>>*/ (cst_filter_map,
+    var b =  /*<<dynarray.ml:690:10>>*/ create(0);
+     /*<<dynarray.ml:691:2>>*/ iter
+     (cst_filter_map,
       function(x){
-       var
-        match =
-           /*<<dynarray.ml:692:10>>*/  /*<<dynarray.ml:692:10>>*/ caml_call1
-            /*<<dynarray.ml:692:10>>*/ (f, x);
-       if(! match)
-         /*<<dynarray.ml:693:14>>*/ return 0 /*<<dynarray.ml:693:14>>*/ ;
+       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  /*<<dynarray.ml:694:16>>*/ add_last
-                /*<<dynarray.ml:694:16>>*/ (b, y) /*<<dynarray.ml:694:28>>*/ ;
-       /*<<dynarray.ml:694:28>>*/ },
+        /*<<dynarray.ml:694:16>>*/ return add_last(b, y) /*<<dynarray.ml:694:28>>*/ ;
+      },
       a);
-     /*<<dynarray.ml:691:2>>*/ return b /*<<dynarray.ml:691:2>>*/ ;
+     /*<<dynarray.ml:691:2>>*/ return b;
     /*<<dynarray.ml:696:3>>*/ }
    function of_array(a){
     var length = a.length - 1;
      /*<<dynarray.ml:708:2>>*/ return [0,
             length,
              /*<<dynarray.ml:710:10>>*/ caml_call2
-              /*<<dynarray.ml:710:10>>*/ (Stdlib_Array[1],
+             (Stdlib_Array[1],
               length,
               function(i){
                 /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]] /*<<dynarray.ml:710:43>>*/ ;
@@ -25289,151 +20995,105 @@
     /*<<dynarray.ml:711:3>>*/ }
    function to_array(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:715:2>>*/  /*<<dynarray.ml:715:2>>*/ check_valid_length
-      /*<<dynarray.ml:715:2>>*/ (length, arr);
+     /*<<dynarray.ml:715:2>>*/ check_valid_length(length, arr);
     var
      res =
-        /*<<dynarray.ml:716:12>>*/  /*<<dynarray.ml:716:12>>*/ caml_call2
-         /*<<dynarray.ml:716:12>>*/ (Stdlib_Array[1],
+        /*<<dynarray.ml:716:12>>*/ caml_call2
+        (Stdlib_Array[1],
          length,
          function(i){
            /*<<dynarray.ml:717:4>>*/ return  /*<<dynarray.ml:715:2>>*/ unsafe_get
-                   /*<<dynarray.ml:715:2>>*/ (arr, i, length) /*<<dynarray.ml:717:29>>*/ ;
-          /*<<dynarray.ml:717:29>>*/ });
-     /*<<dynarray.ml:719:2>>*/  /*<<dynarray.ml:719:2>>*/ check_same_length
-      /*<<dynarray.ml:719:2>>*/ (cst_to_array, a, length);
-     /*<<dynarray.ml:719:2>>*/ return res /*<<dynarray.ml:719:2>>*/ ;
+                  (arr, i, length) /*<<dynarray.ml:717:29>>*/ ;
+         });
+     /*<<dynarray.ml:719:2>>*/ check_same_length(cst_to_array, a, length);
+    return res;
     /*<<dynarray.ml:720:5>>*/ }
    function of_list(li){
-    var
-     a =
-        /*<<dynarray.ml:723:10>>*/  /*<<dynarray.ml:723:10>>*/ create
-         /*<<dynarray.ml:723:10>>*/ (0);
-     /*<<dynarray.ml:724:2>>*/  /*<<dynarray.ml:724:2>>*/ caml_call2
-      /*<<dynarray.ml:724:2>>*/ (Stdlib_List[18],
+    var a =  /*<<dynarray.ml:723:10>>*/ create(0);
+     /*<<dynarray.ml:724:2>>*/ caml_call2
+     (Stdlib_List[18],
       function(x){
-        /*<<dynarray.ml:724:22>>*/ return  /*<<dynarray.ml:724:22>>*/ add_last
-                /*<<dynarray.ml:724:22>>*/ (a, x) /*<<dynarray.ml:724:34>>*/ ;
-       /*<<dynarray.ml:724:34>>*/ },
+        /*<<dynarray.ml:724:22>>*/ return add_last(a, x) /*<<dynarray.ml:724:34>>*/ ;
+      },
       li);
-     /*<<dynarray.ml:724:2>>*/ return a /*<<dynarray.ml:724:2>>*/ ;
+     /*<<dynarray.ml:724:2>>*/ return a;
     /*<<dynarray.ml:725:3>>*/ }
    function to_list(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:729:2>>*/  /*<<dynarray.ml:729:2>>*/ check_valid_length
-      /*<<dynarray.ml:729:2>>*/ (length, arr);
-    var
-     l =  /*<<dynarray.ml:730:10>>*/ [0, 0],
-     _l_ =  /*<<dynarray.ml:730:10>>*/ length - 1 | 0;
+     /*<<dynarray.ml:729:2>>*/ check_valid_length(length, arr);
+    var l =  /*<<dynarray.ml:730:10>>*/ [0, 0], _l_ = length - 1 | 0;
     if(_l_ >= 0){
      var i = _l_;
      for(;;){
       var _m_ = l[1];
-      l[1] =
-       [0,
-         /*<<dynarray.ml:732:9>>*/ unsafe_get
-          /*<<dynarray.ml:732:9>>*/ (arr, i, length),
-        _m_];
+      l[1] = [0,  /*<<dynarray.ml:732:9>>*/ unsafe_get(arr, i, length), _m_];
       var _n_ =  /*<<dynarray.ml:730:10>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _n_;
      }
     }
-     /*<<dynarray.ml:734:2>>*/  /*<<dynarray.ml:734:2>>*/ check_same_length
-      /*<<dynarray.ml:734:2>>*/ (cst_to_list, a, length);
+     /*<<dynarray.ml:734:2>>*/ check_same_length(cst_to_list, a, length);
     return l[1];
     /*<<dynarray.ml:735:4>>*/ }
    function of_seq(seq){
-    var
-     init =
-        /*<<dynarray.ml:738:13>>*/  /*<<dynarray.ml:738:13>>*/ create
-         /*<<dynarray.ml:738:13>>*/ (0);
-     /*<<dynarray.ml:739:2>>*/  /*<<dynarray.ml:739:2>>*/ append_seq
-      /*<<dynarray.ml:739:2>>*/ (init, seq);
-     /*<<dynarray.ml:739:2>>*/ return init /*<<dynarray.ml:739:2>>*/ ;
+    var init =  /*<<dynarray.ml:738:13>>*/ create(0);
+     /*<<dynarray.ml:739:2>>*/ append_seq(init, seq);
+    return init;
     /*<<dynarray.ml:740:6>>*/ }
    function to_seq(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:744:2>>*/  /*<<dynarray.ml:744:2>>*/ check_valid_length
-      /*<<dynarray.ml:744:2>>*/ (length, arr);
+     /*<<dynarray.ml:744:2>>*/ check_valid_length(length, arr);
     function aux(i){
       /*<<dynarray.ml:745:18>>*/ return function(param){
-       /*<<dynarray.ml:746:4>>*/  /*<<dynarray.ml:746:4>>*/ check_same_length
-        /*<<dynarray.ml:746:4>>*/ (cst_to_seq, a, length);
-      if(length <= i)
-        /*<<dynarray.ml:747:24>>*/ return 0 /*<<dynarray.ml:747:24>>*/ ;
-      var
-       v =
-          /*<<dynarray.ml:749:14>>*/  /*<<dynarray.ml:749:14>>*/ unsafe_get
-           /*<<dynarray.ml:749:14>>*/ (arr, i, length);
+       /*<<dynarray.ml:746:4>>*/ check_same_length(cst_to_seq, a, length);
+      if(length <= i)  /*<<dynarray.ml:747:24>>*/ return 0;
+      var v =  /*<<dynarray.ml:749:14>>*/ unsafe_get(arr, i, length);
        /*<<dynarray.ml:750:6>>*/ return [0,
               v,
-               /*<<dynarray.ml:750:19>>*/ aux
-                /*<<dynarray.ml:750:19>>*/ (i + 1 | 0)] /*<<dynarray.ml:750:6>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
+               /*<<dynarray.ml:750:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:750:6>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
      /*<<dynarray.ml:751:7>>*/ }
-     /*<<dynarray.ml:753:2>>*/ return  /*<<dynarray.ml:753:2>>*/ aux
-             /*<<dynarray.ml:753:2>>*/ (0) /*<<dynarray.ml:753:7>>*/ ;
-    /*<<dynarray.ml:753: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:757:26>>*/ ;
-      var
-       v =
-          /*<<dynarray.ml:759:14>>*/  /*<<dynarray.ml:759:14>>*/ get
-           /*<<dynarray.ml:759:14>>*/ (a, i);
+        /*<<dynarray.ml:757:26>>*/ return 0;
+      var v =  /*<<dynarray.ml:759:14>>*/ get(a, i);
        /*<<dynarray.ml:760:6>>*/ return [0,
               v,
-               /*<<dynarray.ml:760:19>>*/ aux
-                /*<<dynarray.ml:760:19>>*/ (i + 1 | 0)] /*<<dynarray.ml:760:6>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
+               /*<<dynarray.ml:760:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:760:6>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
      /*<<dynarray.ml:761:7>>*/ }
-     /*<<dynarray.ml:763:2>>*/ return  /*<<dynarray.ml:763:2>>*/ aux
-             /*<<dynarray.ml:763:2>>*/ (0) /*<<dynarray.ml:763:7>>*/ ;
-    /*<<dynarray.ml:763:7>>*/ }
+     /*<<dynarray.ml:763:2>>*/ return aux(0) /*<<dynarray.ml:763:7>>*/ ;
+   }
    function to_seq_rev(a){
     var length = a[1], arr = a[2];
-     /*<<dynarray.ml:767:2>>*/  /*<<dynarray.ml:767:2>>*/ check_valid_length
-      /*<<dynarray.ml:767:2>>*/ (length, arr);
+     /*<<dynarray.ml:767:2>>*/ check_valid_length(length, arr);
     function aux(i){
       /*<<dynarray.ml:768:18>>*/ return function(param){
-       /*<<dynarray.ml:769:4>>*/  /*<<dynarray.ml:769:4>>*/ check_same_length
-        /*<<dynarray.ml:769:4>>*/ (cst_to_seq_rev, a, length);
-      if(0 > i)
-        /*<<dynarray.ml:770:18>>*/ return 0 /*<<dynarray.ml:770:18>>*/ ;
-      var
-       v =
-          /*<<dynarray.ml:772:14>>*/  /*<<dynarray.ml:772:14>>*/ unsafe_get
-           /*<<dynarray.ml:772:14>>*/ (arr, i, length);
+       /*<<dynarray.ml:769:4>>*/ check_same_length(cst_to_seq_rev, a, length);
+      if(0 > i)  /*<<dynarray.ml:770:18>>*/ return 0;
+      var v =  /*<<dynarray.ml:772:14>>*/ unsafe_get(arr, i, length);
        /*<<dynarray.ml:773:6>>*/ return [0,
               v,
-               /*<<dynarray.ml:773:19>>*/ aux
-                /*<<dynarray.ml:773:19>>*/ (i - 1 | 0)] /*<<dynarray.ml:773:6>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
+               /*<<dynarray.ml:773:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:773:6>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
      /*<<dynarray.ml:774:7>>*/ }
-     /*<<dynarray.ml:776:2>>*/ return  /*<<dynarray.ml:776:2>>*/ aux
-             /*<<dynarray.ml:776:2>>*/ (length - 1 | 0) /*<<dynarray.ml:776:18>>*/ ;
-    /*<<dynarray.ml:776:18>>*/ }
+     /*<<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 /*<<dynarray.ml:780:18>>*/ ;
+        /*<<dynarray.ml:780:18>>*/ return 0;
       if(a[1] <= i)
-        /*<<dynarray.ml:784:6>>*/ return  /*<<dynarray.ml:784:6>>*/  /*<<dynarray.ml:784:6>>*/ aux
-                 /*<<dynarray.ml:784:6>>*/ (a[1] - 1 | 0)
-                /*<<dynarray.ml:784:6>>*/ (0) /*<<dynarray.ml:788:7>>*/ ;
-      var
-       v =
-          /*<<dynarray.ml:786:14>>*/  /*<<dynarray.ml:786:14>>*/ get
-           /*<<dynarray.ml:786:14>>*/ (a, i);
+        /*<<dynarray.ml:784:6>>*/ return aux(a[1] - 1 | 0)(0) /*<<dynarray.ml:788:7>>*/ ;
+      var v =  /*<<dynarray.ml:786:14>>*/ get(a, i);
        /*<<dynarray.ml:787:6>>*/ return [0,
               v,
-               /*<<dynarray.ml:787:19>>*/ aux
-                /*<<dynarray.ml:787:19>>*/ (i - 1 | 0)] /*<<dynarray.ml:787:6>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
+               /*<<dynarray.ml:787:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:787:6>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
      /*<<dynarray.ml:788:7>>*/ }
-     /*<<dynarray.ml:790:7>>*/ return  /*<<dynarray.ml:790:7>>*/ aux
-             /*<<dynarray.ml:790:7>>*/ (a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
-    /*<<dynarray.ml:790:20>>*/ }
+     /*<<dynarray.ml:790:7>>*/ return aux(a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
+   }
    var
     Stdlib_Dynarray =
       [0,
@@ -25494,26 +21154,24 @@
   (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;
+    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)
@@ -25585,49 +21243,37 @@
     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
-              /*<<arg.ml:65:10>>*/ (Stdlib[8], 1);
+       /*<<arg.ml:65:10>>*/ throw 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 /*<<arg.ml:66:26>>*/ (y1, x))
-       /*<<arg.ml:66:36>>*/ return y2 /*<<arg.ml:66:36>>*/ ;
+      /*<<arg.ml:66:26>>*/ if(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:78:10>>*/ ;
+     /*<<arg.ml:77:2>>*/ if(! l)  /*<<arg.ml:78:10>>*/ return cst_none;
     var
      t = l[2],
      h = l[1],
-     _az_ =
-        /*<<arg.ml:79:53>>*/  /*<<arg.ml:79:53>>*/ caml_call2
-         /*<<arg.ml:79:53>>*/ (Stdlib[28], prefix, h),
+     _az_ =  /*<<arg.ml:79:53>>*/ caml_call2(Stdlib[28], prefix, h),
      _aA_ =
-        /*<<arg.ml:79:12>>*/  /*<<arg.ml:79:12>>*/ caml_call3
-         /*<<arg.ml:79:12>>*/ (Stdlib_List[26],
+        /*<<arg.ml:79:12>>*/ caml_call3
+        (Stdlib_List[26],
          function(x, y){
-          var
-           _aB_ =
-              /*<<arg.ml:79:44>>*/  /*<<arg.ml:79:44>>*/ caml_call2
-               /*<<arg.ml:79:44>>*/ (Stdlib[28], sep, y);
-           /*<<arg.ml:79:44>>*/ return  /*<<arg.ml:79:44>>*/ caml_call2
-                   /*<<arg.ml:79:44>>*/ (Stdlib[28], x, _aB_) /*<<arg.ml:79:51>>*/ ;
-          /*<<arg.ml:79:51>>*/ },
+          var _aB_ =  /*<<arg.ml:79:44>>*/ caml_call2(Stdlib[28], sep, y);
+          return caml_call2(Stdlib[28], x, _aB_) /*<<arg.ml:79:51>>*/ ;
+         },
          _az_,
          t);
-     /*<<arg.ml:79:12>>*/ return  /*<<arg.ml:79:12>>*/ caml_call2
-             /*<<arg.ml:79:12>>*/ (Stdlib[28], _aA_, suffix) /*<<arg.ml:79:77>>*/ ;
-    /*<<arg.ml:79:77>>*/ }
+     /*<<arg.ml:79:12>>*/ return 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
-            /*<<arg.ml:91:21>>*/ ([0, Stop, _c_], 1);
+     /*<<arg.ml:91:21>>*/ throw 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>>*/  /*<<arg.ml:95:15>>*/ assoc3
-       /*<<arg.ml:95:15>>*/ (cst_help$2, speclist);
+      /*<<arg.ml:95:15>>*/ assoc3(cst_help$2, speclist);
      var _aw_ =  /*<<arg.ml:95:42>>*/ 0, add1 = _aw_;
     }
     catch(_ay_){
@@ -25640,8 +21286,7 @@
          0];
     }
     try{
-      /*<<arg.ml:99:15>>*/  /*<<arg.ml:99:15>>*/ assoc3
-       /*<<arg.ml:99:15>>*/ (cst_help$1, speclist);
+      /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
      var _av_ =  /*<<arg.ml:99:43>>*/ 0, add2 = _av_;
     }
     catch(_ax_){
@@ -25653,71 +21298,42 @@
          [0, cst_help$0, [0, help_action], cst_Display_this_list_of_optio$0],
          0];
     }
-    var
-     _au_ =
-        /*<<arg.ml:103:13>>*/  /*<<arg.ml:103:13>>*/ caml_call2
-         /*<<arg.ml:103:13>>*/ (Stdlib[37], add1, add2);
-     /*<<arg.ml:103:13>>*/ return  /*<<arg.ml:103:13>>*/ caml_call2
-             /*<<arg.ml:103:13>>*/ (Stdlib[37], speclist, _au_) /*<<arg.ml:103:26>>*/ ;
-    /*<<arg.ml:103:26>>*/ }
+    var _au_ =  /*<<arg.ml:103:13>>*/ caml_call2(Stdlib[37], add1, add2);
+    return 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
-      /*<<arg.ml:107:2>>*/ (Stdlib_Printf[5], buf, _d_, errmsg);
-    var
-     _ap_ =
-        /*<<arg.ml:108:29>>*/  /*<<arg.ml:108:29>>*/ add_help
-         /*<<arg.ml:108:29>>*/ (speclist);
-     /*<<arg.ml:108:29>>*/ return  /*<<arg.ml:108:29>>*/ caml_call2
-             /*<<arg.ml:108:29>>*/ (Stdlib_List[18],
+     /*<<arg.ml:107:2>>*/ caml_call3(Stdlib_Printf[5], buf, _d_, errmsg);
+    var _ap_ =  /*<<arg.ml:108:29>>*/ add_help(speclist);
+    return 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
-                     /*<<arg.ml:83:2>>*/ (doc)
-                  ? 1
-                  : 0;
+                 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
-                        /*<<arg.ml:88:8>>*/ (Stdlib_Printf[5], buf, _a_, key, doc) /*<<arg.ml:88:8>>*/ ;
+                /*<<arg.ml:88:8>>*/ return caml_call4
+                       (Stdlib_Printf[5], buf, _a_, key, doc);
               var
                l = spec[1],
-               _ar_ =
-                  /*<<arg.ml:86:38>>*/  /*<<arg.ml:86:38>>*/ make_symlist
-                   /*<<arg.ml:86:38>>*/ (cst$1, cst$0, cst, l);
-               /*<<arg.ml:86:8>>*/ return  /*<<arg.ml:86:8>>*/ caml_call5
-                       /*<<arg.ml:86:8>>*/ (Stdlib_Printf[5],
-                       buf,
-                       _b_,
-                       key,
-                       _ar_,
-                       doc) /*<<arg.ml:86:8>>*/ ;
+               _ar_ =  /*<<arg.ml:86:38>>*/ make_symlist(cst$1, cst$0, cst, l);
+               /*<<arg.ml:86:8>>*/ return caml_call5
+                      (Stdlib_Printf[5], buf, _b_, key, _ar_, doc);
              },
              _ap_) /*<<arg.ml:108:48>>*/ ;
-    /*<<arg.ml:108:48>>*/ }
+   }
    function usage_string(speclist, errmsg){
-    var
-     b =
-        /*<<arg.ml:112:10>>*/  /*<<arg.ml:112:10>>*/ caml_call1
-         /*<<arg.ml:112:10>>*/ (Stdlib_Buffer[1], 200);
-     /*<<arg.ml:113:2>>*/  /*<<arg.ml:113:2>>*/ usage_b
-      /*<<arg.ml:113:2>>*/ (b, speclist, errmsg);
-     /*<<arg.ml:113:2>>*/ return  /*<<arg.ml:113:2>>*/ caml_call1
-             /*<<arg.ml:113:2>>*/ (Stdlib_Buffer[2], b) /*<<arg.ml:114:19>>*/ ;
-    /*<<arg.ml:114:19>>*/ }
+    var b =  /*<<arg.ml:112:10>>*/ caml_call1(Stdlib_Buffer[1], 200);
+     /*<<arg.ml:113:2>>*/ usage_b(b, speclist, errmsg);
+    return caml_call1(Stdlib_Buffer[2], b) /*<<arg.ml:114:19>>*/ ;
+   }
    function usage(speclist, errmsg){
-    var
-     _ao_ =
-        /*<<arg.ml:118:15>>*/  /*<<arg.ml:118:15>>*/ usage_string
-         /*<<arg.ml:118:15>>*/ (speclist, errmsg);
-     /*<<arg.ml:118:15>>*/ return  /*<<arg.ml:118:15>>*/ caml_call2
-             /*<<arg.ml:118:15>>*/ (Stdlib_Printf[3], _e_, _ao_) /*<<arg.ml:118:45>>*/ ;
-    /*<<arg.ml:118:45>>*/ }
+    var _ao_ =  /*<<arg.ml:118:15>>*/ usage_string(speclist, errmsg);
+    return caml_call2(Stdlib_Printf[3], _e_, _ao_) /*<<arg.ml:118:45>>*/ ;
+   }
    var
     current =  /*<<arg.ml:121:14>>*/ [0, 0],
     _f_ =
@@ -25764,14 +21380,12 @@
      var
       _am_ =
          /*<<arg.ml:128:6>>*/ [0,
-          /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string
-           /*<<arg.ml:128:11>>*/ (x)];
-      /*<<arg.ml:128:6>>*/ return _am_ /*<<arg.ml:128:6>>*/ ;
+          /*<<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 /*<<arg.ml:129:20>>*/ ;
+     if(_al_[1] === Stdlib[7])  /*<<arg.ml:129:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_al_, 0);
     }
     /*<<arg.ml:129:24>>*/ }
@@ -25780,14 +21394,12 @@
      var
       _aj_ =
          /*<<arg.ml:132:6>>*/ [0,
-          /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string
-           /*<<arg.ml:132:11>>*/ (x)];
-      /*<<arg.ml:132:6>>*/ return _aj_ /*<<arg.ml:132:6>>*/ ;
+          /*<<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 /*<<arg.ml:133:20>>*/ ;
+     if(_ai_[1] === Stdlib[7])  /*<<arg.ml:133:20>>*/ return 0;
      throw caml_maybe_attach_backtrace(_ai_, 0);
     }
     /*<<arg.ml:133:24>>*/ }
@@ -25796,9 +21408,7 @@
     var initpos = current[1];
     function convert_error(error){
      var
-      b =
-         /*<<arg.ml:143:12>>*/  /*<<arg.ml:143:12>>*/ caml_call1
-          /*<<arg.ml:143:12>>*/ (Stdlib_Buffer[1], 200),
+      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]
@@ -25807,46 +21417,35 @@
        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
-           /*<<arg.ml:150:10>>*/ (Stdlib_Printf[5], b, _f_, progname, s);
+          /*<<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
-          /*<<arg.ml:154:10>>*/ (Stdlib_Printf[5],
-          b,
-          _i_,
-          progname,
-          arg,
-          opt,
-          expected);
+         /*<<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
-          /*<<arg.ml:152:10>>*/ (Stdlib_Printf[5], b, _j_, progname, s$0);
+         /*<<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
-          /*<<arg.ml:157:10>>*/ (Stdlib_Printf[5], b, _k_, progname, s$1);
+         /*<<arg.ml:157:10>>*/ caml_call4
+         (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
-      /*<<arg.ml:159:4>>*/  /*<<arg.ml:159:4>>*/ usage_b
-       /*<<arg.ml:159:4>>*/ (b, speclist[1], errmsg);
+      /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
       /*<<arg.ml:160:7>>*/ if
       (!
-        /*<<arg.ml:160:7>>*/ caml_equal /*<<arg.ml:160:7>>*/ (error, _g_)
-       &&
-        !
-         /*<<arg.ml:160:34>>*/ caml_equal /*<<arg.ml:160:34>>*/ (error, _h_))
+       caml_equal(error, _g_)
+       && !  /*<<arg.ml:160:34>>*/ caml_equal(error, _h_))
        /*<<arg.ml:162:9>>*/ return [0,
               Bad,
-               /*<<arg.ml:162:13>>*/ caml_call1
-                /*<<arg.ml:162:13>>*/ (Stdlib_Buffer[2], b)] /*<<arg.ml:162:9>>*/ ;
+               /*<<arg.ml:162:13>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:162:9>>*/ ;
       /*<<arg.ml:161:9>>*/ return [0,
              Help,
-              /*<<arg.ml:161:14>>*/ caml_call1
-               /*<<arg.ml:161:14>>*/ (Stdlib_Buffer[2], b)] /*<<arg.ml:161:9>>*/ ;
+              /*<<arg.ml:161:14>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:161:9>>*/ ;
      /*<<arg.ml:162:32>>*/ }
      /*<<arg.ml:164:2>>*/ current[1]++;
     for(;;){
@@ -25855,15 +21454,11 @@
       var
        _V_ = current[1],
        s =  /*<<arg.ml:167:14>>*/ caml_check_bound(argv[1], _V_)[1 + _V_];
-       /*<<arg.ml:168:9>>*/ if
-       ( /*<<arg.ml:168:9>>*/ caml_call2
-          /*<<arg.ml:168:9>>*/ (Stdlib_String[11], cst$3, s)){
+       /*<<arg.ml:168:9>>*/ if(caml_call2(Stdlib_String[11], cst$3, s)){
        try{
         var
          follow$1 = 0,
-         _Z_ =
-            /*<<arg.ml:170:14>>*/  /*<<arg.ml:170:14>>*/ assoc3
-             /*<<arg.ml:170:14>>*/ (s, speclist[1]),
+         _Z_ =  /*<<arg.ml:170:14>>*/ assoc3(s, speclist[1]),
          follow$0 = follow$1,
          action = _Z_;
        }
@@ -25872,33 +21467,23 @@
         if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
          /*<<arg.ml:172:10>>*/ try{
          var
-          i =
-             /*<<arg.ml:71:10>>*/  /*<<arg.ml:71:10>>*/ caml_call2
-              /*<<arg.ml:71:10>>*/ (Stdlib_String[36], s, 61),
-          len =
-             /*<<arg.ml:72:2>>*/  /*<<arg.ml:72:2>>*/ caml_ml_string_length
-              /*<<arg.ml:72:2>>*/ (s),
+          i =  /*<<arg.ml:71:10>>*/ caml_call2(Stdlib_String[36], s, 61),
+          len =  /*<<arg.ml:72:2>>*/ caml_ml_string_length(s),
           arg =
-             /*<<arg.ml:73:20>>*/  /*<<arg.ml:73:20>>*/ caml_call3
-              /*<<arg.ml:73:20>>*/ (Stdlib_String[16],
-              s,
-              i + 1 | 0,
-              len - (i + 1 | 0) | 0),
+             /*<<arg.ml:73:20>>*/ caml_call3
+             (Stdlib_String[16], s, i + 1 | 0, len - (i + 1 | 0) | 0),
           keyword =
-             /*<<arg.ml:73:2>>*/  /*<<arg.ml:73:2>>*/ caml_call3
-              /*<<arg.ml:73:2>>*/ (Stdlib_String[16], s, 0, i),
+             /*<<arg.ml:73:2>>*/ caml_call3(Stdlib_String[16], s, 0, i),
           follow =  /*<<arg.ml:174:38>>*/ [0, arg],
-          _Y_ =
-             /*<<arg.ml:174:12>>*/  /*<<arg.ml:174:12>>*/ assoc3
-              /*<<arg.ml:174:12>>*/ (keyword, speclist[1]),
+          _Y_ =  /*<<arg.ml:174:12>>*/ assoc3(keyword, speclist[1]),
           follow$0 = follow,
           action = _Y_;
         }
         catch(_ah_){
          var _X_ = caml_wrap_exception(_ah_);
          if(_X_ === Stdlib[8])
-           /*<<arg.ml:175:28>>*/ throw  /*<<arg.ml:175:28>>*/ caml_maybe_attach_backtrace
-                  /*<<arg.ml:175:28>>*/ ([0, Stop, [0, s]], 1);
+           /*<<arg.ml:175:28>>*/ throw caml_maybe_attach_backtrace
+                 ([0, Stop, [0, s]], 1);
          throw caml_maybe_attach_backtrace(_X_, 0);
         }
        }
@@ -25907,52 +21492,42 @@
         no_arg =
           function(param){
             /*<<arg.ml:178:10>>*/ if(! follow$2)
-             /*<<arg.ml:179:20>>*/ return /*<<arg.ml:179:20>>*/ ;
+             /*<<arg.ml:179:20>>*/ return;
            var arg = follow$2[1];
-            /*<<arg.ml:180:24>>*/ throw  /*<<arg.ml:180:24>>*/ caml_maybe_attach_backtrace
-                   /*<<arg.ml:180:24>>*/ ([0,
-                    Stop,
-                    [1, s$0, arg, cst_no_argument]],
-                   1);
+            /*<<arg.ml:180:24>>*/ throw caml_maybe_attach_backtrace
+                  ([0, Stop, [1, s$0, arg, cst_no_argument]], 1);
            /*<<arg.ml:180:68>>*/ },
         get_arg =
           function(param){
             /*<<arg.ml:182:10>>*/ if(follow$2){
             var arg = follow$2[1];
-             /*<<arg.ml:186:24>>*/ return arg /*<<arg.ml:186:24>>*/ ;
+             /*<<arg.ml:186:24>>*/ return arg;
            }
            if((current[1] + 1 | 0) >= argv[1].length - 1)
-             /*<<arg.ml:185:19>>*/ throw  /*<<arg.ml:185:19>>*/ caml_maybe_attach_backtrace
-                    /*<<arg.ml:185:19>>*/ ([0, Stop, [2, s$0]], 1);
+             /*<<arg.ml:185:19>>*/ throw caml_maybe_attach_backtrace
+                   ([0, Stop, [2, s$0]], 1);
            var _af_ = current[1] + 1 | 0;
             /*<<arg.ml:184:58>>*/ return caml_check_bound(argv[1], _af_)
-                   [1 + _af_] /*<<arg.ml:184:58>>*/ ;
+                   [1 + _af_];
            /*<<arg.ml:186:27>>*/ },
         consume_arg =
           function(param){
             /*<<arg.ml:189:10>>*/ return follow$2 ? 0 : (current[1]++, 0) /*<<arg.ml:191:24>>*/ ;
-           /*<<arg.ml:191:24>>*/ },
+          },
         treat_action =
           function(param){
             /*<<arg.ml:193:31>>*/ switch(param[0]){
              case 0:
               var f = param[1];
-               /*<<arg.ml:194:20>>*/  /*<<arg.ml:194:20>>*/ no_arg$0
-                /*<<arg.ml:194:20>>*/ (0);
-               /*<<arg.ml:194:20>>*/ return  /*<<arg.ml:194:20>>*/ caml_call1
-                       /*<<arg.ml:194:20>>*/ (f, 0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:194:20>>*/ no_arg$0(0);
+              return caml_call1(f, 0) /*<<arg.ml:276:54>>*/ ;
              case 1:
-              var
-               f$0 = param[1],
-               arg =
-                  /*<<arg.ml:196:22>>*/  /*<<arg.ml:196:22>>*/ get_arg$0
-                   /*<<arg.ml:196:22>>*/ (0);
+              var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
                /*<<arg.ml:124:2>>*/ try{
                var
                 _$_ =
                    /*<<arg.ml:124:6>>*/ [0,
-                    /*<<arg.ml:124:11>>*/ caml_call1
-                     /*<<arg.ml:124:11>>*/ (Stdlib[32], arg)],
+                    /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
                 match = _$_;
               }
               catch(_ae_){
@@ -25962,223 +21537,146 @@
                var match = 0;
               }
               if(! match)
-                /*<<arg.ml:198:22>>*/ throw  /*<<arg.ml:198:22>>*/ caml_maybe_attach_backtrace
-                       /*<<arg.ml:198:22>>*/ ([0,
-                        Stop,
-                        [1, s$0, arg, cst_a_boolean]],
-                       1);
+                /*<<arg.ml:198:22>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stop, [1, s$0, arg, cst_a_boolean]], 1);
               var s = match[1];
-               /*<<arg.ml:199:24>>*/  /*<<arg.ml:199:24>>*/ caml_call1
-                /*<<arg.ml:199:24>>*/ (f$0, s);
-               /*<<arg.ml:201:12>>*/ return  /*<<arg.ml:201:12>>*/ consume_arg$0
-                       /*<<arg.ml:201:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:199:24>>*/ caml_call1(f$0, s);
+               /*<<arg.ml:201:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 2:
               var r = param[1];
-               /*<<arg.ml:202:19>>*/  /*<<arg.ml:202:19>>*/ no_arg$0
-                /*<<arg.ml:202:19>>*/ (0);
+               /*<<arg.ml:202:19>>*/ no_arg$0(0);
               r[1] = 1;
               return 0;
              case 3:
               var r$0 = param[1];
-               /*<<arg.ml:203:21>>*/  /*<<arg.ml:203:21>>*/ no_arg$0
-                /*<<arg.ml:203:21>>*/ (0);
+               /*<<arg.ml:203:21>>*/ no_arg$0(0);
               r$0[1] = 0;
               return 0;
              case 4:
-              var
-               f$1 = param[1],
-               arg$0 =
-                  /*<<arg.ml:205:22>>*/  /*<<arg.ml:205:22>>*/ get_arg$0
-                   /*<<arg.ml:205:22>>*/ (0);
-               /*<<arg.ml:206:12>>*/  /*<<arg.ml:206:12>>*/ caml_call1
-                /*<<arg.ml:206:12>>*/ (f$1, arg$0);
-               /*<<arg.ml:206:12>>*/ return  /*<<arg.ml:206:12>>*/ consume_arg$0
-                       /*<<arg.ml:206:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+              var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
+               /*<<arg.ml:206:12>>*/ caml_call1(f$1, arg$0);
+              return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 5:
               var r$1 = param[1];
-              r$1[1] =
-                /*<<arg.ml:218:17>>*/ get_arg$0 /*<<arg.ml:218:17>>*/ (0);
-               /*<<arg.ml:219:12>>*/ return  /*<<arg.ml:219:12>>*/ consume_arg$0
-                       /*<<arg.ml:219:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+              r$1[1] =  /*<<arg.ml:218:17>>*/ get_arg$0(0);
+               /*<<arg.ml:219:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 6:
               var
                f$2 = param[1],
-               arg$1 =
-                  /*<<arg.ml:221:22>>*/  /*<<arg.ml:221:22>>*/ get_arg$0
-                   /*<<arg.ml:221:22>>*/ (0),
-               match$0 =
-                  /*<<arg.ml:222:24>>*/  /*<<arg.ml:222:24>>*/ int_of_string_opt
-                   /*<<arg.ml:222:24>>*/ (arg$1);
+               arg$1 =  /*<<arg.ml:221:22>>*/ get_arg$0(0),
+               match$0 =  /*<<arg.ml:222:24>>*/ int_of_string_opt(arg$1);
               if(! match$0)
-                /*<<arg.ml:223:22>>*/ throw  /*<<arg.ml:223:22>>*/ caml_maybe_attach_backtrace
-                       /*<<arg.ml:223:22>>*/ ([0,
-                        Stop,
-                        [1, s$0, arg$1, cst_an_integer]],
-                       1);
+                /*<<arg.ml:223:22>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stop, [1, s$0, arg$1, cst_an_integer]], 1);
               var x = match$0[1];
-               /*<<arg.ml:224:24>>*/  /*<<arg.ml:224:24>>*/ caml_call1
-                /*<<arg.ml:224:24>>*/ (f$2, x);
-               /*<<arg.ml:226:12>>*/ return  /*<<arg.ml:226:12>>*/ consume_arg$0
-                       /*<<arg.ml:226:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:224:24>>*/ caml_call1(f$2, x);
+               /*<<arg.ml:226:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 7:
               var
                r$2 = param[1],
-               arg$2 =
-                  /*<<arg.ml:228:22>>*/  /*<<arg.ml:228:22>>*/ get_arg$0
-                   /*<<arg.ml:228:22>>*/ (0),
-               match$1 =
-                  /*<<arg.ml:229:24>>*/  /*<<arg.ml:229:24>>*/ int_of_string_opt
-                   /*<<arg.ml:229:24>>*/ (arg$2);
+               arg$2 =  /*<<arg.ml:228:22>>*/ get_arg$0(0),
+               match$1 =  /*<<arg.ml:229:24>>*/ int_of_string_opt(arg$2);
               if(! match$1)
-                /*<<arg.ml:230:22>>*/ throw  /*<<arg.ml:230:22>>*/ caml_maybe_attach_backtrace
-                       /*<<arg.ml:230:22>>*/ ([0,
-                        Stop,
-                        [1, s$0, arg$2, cst_an_integer$0]],
-                       1);
+                /*<<arg.ml:230:22>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stop, [1, s$0, arg$2, cst_an_integer$0]], 1);
               var x$0 = match$1[1];
               r$2[1] = x$0;
-               /*<<arg.ml:233:12>>*/ return  /*<<arg.ml:233:12>>*/ consume_arg$0
-                       /*<<arg.ml:233:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:233:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 8:
               var
                f$3 = param[1],
-               arg$3 =
-                  /*<<arg.ml:235:22>>*/  /*<<arg.ml:235:22>>*/ get_arg$0
-                   /*<<arg.ml:235:22>>*/ (0),
-               match$2 =
-                  /*<<arg.ml:236:24>>*/  /*<<arg.ml:236:24>>*/ float_of_string_opt
-                   /*<<arg.ml:236:24>>*/ (arg$3);
+               arg$3 =  /*<<arg.ml:235:22>>*/ get_arg$0(0),
+               match$2 =  /*<<arg.ml:236:24>>*/ float_of_string_opt(arg$3);
               if(! match$2)
-                /*<<arg.ml:237:22>>*/ throw  /*<<arg.ml:237:22>>*/ caml_maybe_attach_backtrace
-                       /*<<arg.ml:237:22>>*/ ([0,
-                        Stop,
-                        [1, s$0, arg$3, cst_a_float]],
-                       1);
+                /*<<arg.ml:237:22>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stop, [1, s$0, arg$3, cst_a_float]], 1);
               var x$1 = match$2[1];
-               /*<<arg.ml:238:24>>*/  /*<<arg.ml:238:24>>*/ caml_call1
-                /*<<arg.ml:238:24>>*/ (f$3, x$1);
-               /*<<arg.ml:240:12>>*/ return  /*<<arg.ml:240:12>>*/ consume_arg$0
-                       /*<<arg.ml:240:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:238:24>>*/ caml_call1(f$3, x$1);
+               /*<<arg.ml:240:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 9:
               var
                r$3 = param[1],
-               arg$4 =
-                  /*<<arg.ml:242:22>>*/  /*<<arg.ml:242:22>>*/ get_arg$0
-                   /*<<arg.ml:242:22>>*/ (0),
-               match$3 =
-                  /*<<arg.ml:243:24>>*/  /*<<arg.ml:243:24>>*/ float_of_string_opt
-                   /*<<arg.ml:243:24>>*/ (arg$4);
+               arg$4 =  /*<<arg.ml:242:22>>*/ get_arg$0(0),
+               match$3 =  /*<<arg.ml:243:24>>*/ float_of_string_opt(arg$4);
               if(! match$3)
-                /*<<arg.ml:244:22>>*/ throw  /*<<arg.ml:244:22>>*/ caml_maybe_attach_backtrace
-                       /*<<arg.ml:244:22>>*/ ([0,
-                        Stop,
-                        [1, s$0, arg$4, cst_a_float$0]],
-                       1);
+                /*<<arg.ml:244:22>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stop, [1, s$0, arg$4, cst_a_float$0]], 1);
               var x$2 = match$3[1];
               r$3[1] = x$2;
-               /*<<arg.ml:247:12>>*/ return  /*<<arg.ml:247:12>>*/ consume_arg$0
-                       /*<<arg.ml:247:12>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:247:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 10:
               var specs = param[1];
-               /*<<arg.ml:249:12>>*/  /*<<arg.ml:249:12>>*/ no_arg$0
-                /*<<arg.ml:249:12>>*/ (0);
-               /*<<arg.ml:249:12>>*/ return  /*<<arg.ml:249:12>>*/ caml_call2
-                       /*<<arg.ml:249:12>>*/ (Stdlib_List[18],
-                       treat_action$0,
-                       specs) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:249:12>>*/ no_arg$0(0);
+              return caml_call2(Stdlib_List[18], treat_action$0, specs) /*<<arg.ml:276:54>>*/ ;
              case 11:
               var
                f$4 = param[2],
                symb = param[1],
-               arg$5 =
-                  /*<<arg.ml:209:22>>*/  /*<<arg.ml:209:22>>*/ get_arg$0
-                   /*<<arg.ml:209:22>>*/ (0);
+               arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
                /*<<arg.ml:210:15>>*/ if
-               ( /*<<arg.ml:210:15>>*/ caml_call2
-                  /*<<arg.ml:210:15>>*/ (Stdlib_List[37], arg$5, symb)){
-                /*<<arg.ml:211:14>>*/  /*<<arg.ml:211:14>>*/ caml_call1
-                 /*<<arg.ml:211:14>>*/ (f$4, arg$5);
-                /*<<arg.ml:211:14>>*/ return  /*<<arg.ml:211:14>>*/ consume_arg$0
-                        /*<<arg.ml:211:14>>*/ (0) /*<<arg.ml:276:54>>*/ ;
+               (caml_call2(Stdlib_List[37], arg$5, symb)){
+                /*<<arg.ml:211:14>>*/ caml_call1(f$4, arg$5);
+               return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
               }
               var
                _aa_ =
-                  /*<<arg.ml:215:44>>*/  /*<<arg.ml:215:44>>*/ make_symlist
-                   /*<<arg.ml:215:44>>*/ (cst$6, cst$5, cst$4, symb);
-               /*<<arg.ml:213:21>>*/ throw  /*<<arg.ml:213:21>>*/ caml_maybe_attach_backtrace
-                      /*<<arg.ml:213:21>>*/ ([0,
+                  /*<<arg.ml:215:44>>*/ make_symlist
+                  (cst$6, cst$5, cst$4, symb);
+               /*<<arg.ml:213:21>>*/ throw caml_maybe_attach_backtrace
+                     ([0,
                        Stop,
                        [1,
                         s$0,
                         arg$5,
                          /*<<arg.ml:214:42>>*/ caml_call2
-                          /*<<arg.ml:214:42>>*/ (Stdlib[28], cst_one_of, _aa_)]],
+                         (Stdlib[28], cst_one_of, _aa_)]],
                       1);
              case 12:
               var f$5 = param[1];
-               /*<<arg.ml:252:12>>*/  /*<<arg.ml:252:12>>*/ no_arg$0
-                /*<<arg.ml:252:12>>*/ (0);
+               /*<<arg.ml:252:12>>*/ no_arg$0(0);
                /*<<arg.ml:255:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0)) return 0;
                var _ab_ = current[1] + 1 | 0;
-                /*<<arg.ml:254:14>>*/  /*<<arg.ml:254:14>>*/ caml_call1
-                 /*<<arg.ml:254:14>>*/ (f$5,
-                 caml_check_bound(argv[1], _ab_)[1 + _ab_]);
-                /*<<arg.ml:255:14>>*/  /*<<arg.ml:255:14>>*/ consume_arg$0
-                 /*<<arg.ml:255:14>>*/ (0);
+                /*<<arg.ml:254:14>>*/ caml_call1
+                (f$5, caml_check_bound(argv[1], _ab_)[1 + _ab_]);
+                /*<<arg.ml:255:14>>*/ consume_arg$0(0);
               }
               break;
              case 13:
               var f$6 = param[1];
-               /*<<arg.ml:258:12>>*/  /*<<arg.ml:258:12>>*/ no_arg$0
-                /*<<arg.ml:258:12>>*/ (0);
+               /*<<arg.ml:258:12>>*/ no_arg$0(0);
               var acc =  /*<<arg.ml:259:22>>*/ [0, 0];
                /*<<arg.ml:262:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
-                 /*<<arg.ml:264:14>>*/ return  /*<<arg.ml:264:14>>*/ caml_call1
-                         /*<<arg.ml:264:14>>*/ (f$6,
-                          /*<<arg.ml:264:14>>*/ caml_call1
-                           /*<<arg.ml:264:14>>*/ (Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
+                 /*<<arg.ml:264:14>>*/ return caml_call1
+                        (f$6, caml_call1(Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
                var _ad_ = current[1] + 1 | 0, _ac_ = acc[1];
                acc[1] = [0, caml_check_bound(argv[1], _ad_)[1 + _ad_], _ac_];
-                /*<<arg.ml:262:14>>*/  /*<<arg.ml:262:14>>*/ consume_arg$0
-                 /*<<arg.ml:262:14>>*/ (0);
+                /*<<arg.ml:262:14>>*/ consume_arg$0(0);
               }
               break;
              default:
               var f$7 = param[1];
               if(1 - allow_expand)
-                /*<<arg.ml:267:14>>*/ throw  /*<<arg.ml:267:14>>*/ caml_maybe_attach_backtrace
-                       /*<<arg.ml:267:14>>*/ ([0,
-                        Stdlib[6],
-                        cst_Arg_Expand_is_is_only_allo],
-                       1);
+                /*<<arg.ml:267:14>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stdlib[6], cst_Arg_Expand_is_is_only_allo], 1);
               var
-               arg$6 =
-                  /*<<arg.ml:269:22>>*/  /*<<arg.ml:269:22>>*/ get_arg$0
-                   /*<<arg.ml:269:22>>*/ (0),
-               newarg =
-                  /*<<arg.ml:270:25>>*/  /*<<arg.ml:270:25>>*/ caml_call1
-                   /*<<arg.ml:270:25>>*/ (f$7, arg$6);
-               /*<<arg.ml:271:12>>*/  /*<<arg.ml:271:12>>*/ consume_arg$0
-                /*<<arg.ml:271:12>>*/ (0);
+               arg$6 =  /*<<arg.ml:269:22>>*/ get_arg$0(0),
+               newarg =  /*<<arg.ml:270:25>>*/ caml_call1(f$7, arg$6);
+               /*<<arg.ml:271:12>>*/ consume_arg$0(0);
               var
                before =
-                  /*<<arg.ml:272:25>>*/  /*<<arg.ml:272:25>>*/ caml_call3
-                   /*<<arg.ml:272:25>>*/ (Stdlib_Array[6],
-                   argv[1],
-                   0,
-                   current[1] + 1 | 0),
+                  /*<<arg.ml:272:25>>*/ caml_call3
+                  (Stdlib_Array[6], argv[1], 0, current[1] + 1 | 0),
                after =
-                  /*<<arg.ml:274:14>>*/  /*<<arg.ml:274:14>>*/ caml_call3
-                   /*<<arg.ml:274:14>>*/ (Stdlib_Array[6],
+                  /*<<arg.ml:274:14>>*/ caml_call3
+                  (Stdlib_Array[6],
                    argv[1],
                    current[1] + 1 | 0,
                    (argv[1].length - 1 - current[1] | 0) - 1 | 0);
               argv[1] =
                 /*<<arg.ml:276:19>>*/ caml_call1
-                 /*<<arg.ml:276:19>>*/ (Stdlib_Array[5],
-                 [0, before, [0, newarg, [0, after, 0]]]);
+                (Stdlib_Array[5], [0, before, [0, newarg, [0, after, 0]]]);
               return 0;
            }
            /*<<arg.ml:276:54>>*/ };
@@ -26187,111 +21685,81 @@
         get_arg$0 = get_arg,
         consume_arg$0 = consume_arg,
         treat_action$0 = treat_action;
-        /*<<arg.ml:278:8>>*/  /*<<arg.ml:278:8>>*/ treat_action
-         /*<<arg.ml:278:8>>*/ (action);
+        /*<<arg.ml:278:8>>*/ treat_action(action);
       }
       else
-        /*<<arg.ml:279:11>>*/  /*<<arg.ml:279:11>>*/ caml_call1
-         /*<<arg.ml:279:11>>*/ (anonfun, s);
+        /*<<arg.ml:279:11>>*/ caml_call1(anonfun, s);
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
       if(exn[1] === Bad){
        var m = exn[2];
-        /*<<arg.ml:280:26>>*/ throw  /*<<arg.ml:280:26>>*/ caml_maybe_attach_backtrace
-               /*<<arg.ml:280:26>>*/ ( /*<<arg.ml:280:26>>*/ convert_error
-                 /*<<arg.ml:280:26>>*/ ([3, m]),
-               1);
+        /*<<arg.ml:280:26>>*/ throw caml_maybe_attach_backtrace
+              (convert_error([3, m]), 1);
       }
       if(exn[1] !== Stop) throw caml_maybe_attach_backtrace(exn, 0);
       var e = exn[2];
-       /*<<arg.ml:281:27>>*/ throw  /*<<arg.ml:281:27>>*/ caml_maybe_attach_backtrace
-              /*<<arg.ml:281:27>>*/ ( /*<<arg.ml:281:27>>*/ convert_error
-                /*<<arg.ml:281:27>>*/ (e),
-              1);
+       /*<<arg.ml:281:27>>*/ throw caml_maybe_attach_backtrace
+             (convert_error(e), 1);
      }
      current[1]++;
     }
    }
    function parse_and_expand_argv_dynamic
    (current, argv, speclist, anonfun, errmsg){
-     /*<<arg.ml:287:2>>*/ return  /*<<arg.ml:287:2>>*/ parse_and_expand_argv_dynamic_
-             /*<<arg.ml:287:2>>*/ (1,
-             current,
-             argv,
-             speclist,
-             anonfun,
-             errmsg) /*<<arg.ml:287:77>>*/ ;
-    /*<<arg.ml:287:77>>*/ }
+     /*<<arg.ml:287:2>>*/ return parse_and_expand_argv_dynamic_
+            (1, current, argv, speclist, anonfun, errmsg) /*<<arg.ml:287:77>>*/ ;
+   }
    function parse_argv_dynamic(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
-     /*<<arg.ml:290:2>>*/ return  /*<<arg.ml:290:2>>*/ parse_and_expand_argv_dynamic_
-             /*<<arg.ml:290:2>>*/ (0,
-             current$0,
-             [0, argv],
-             speclist,
-             anonfun,
-             errmsg) /*<<arg.ml:291:10>>*/ ;
-    /*<<arg.ml:291:10>>*/ }
+     /*<<arg.ml:290:2>>*/ return parse_and_expand_argv_dynamic_
+            (0, current$0, [0, argv], speclist, anonfun, errmsg) /*<<arg.ml:291:10>>*/ ;
+   }
    function parse_argv(opt, argv, speclist, anonfun, errmsg){
     var current$0 = opt ? opt[1] : current;
-     /*<<arg.ml:295:2>>*/ return  /*<<arg.ml:295:2>>*/ parse_argv_dynamic
-             /*<<arg.ml:295:2>>*/ ([0, current$0],
-             argv,
-             [0, speclist],
-             anonfun,
-             errmsg) /*<<arg.ml:295:72>>*/ ;
-    /*<<arg.ml:295:72>>*/ }
+     /*<<arg.ml:295:2>>*/ return parse_argv_dynamic
+            ([0, current$0], argv, [0, speclist], anonfun, errmsg) /*<<arg.ml:295:72>>*/ ;
+   }
    function parse(l, f, msg){
      /*<<arg.ml:299:2>>*/ try{
      var
-      _U_ =
-         /*<<arg.ml:300:4>>*/  /*<<arg.ml:300:4>>*/ parse_argv
-          /*<<arg.ml:300:4>>*/ (0, caml_sys_argv(0), l, f, msg);
-      /*<<arg.ml:300:4>>*/ return _U_ /*<<arg.ml:300:4>>*/ ;
+      _U_ =  /*<<arg.ml:300:4>>*/ parse_argv(0, caml_sys_argv(0), l, f, msg);
+     return _U_;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] === Bad){
       var msg$0 = exn[2];
-       /*<<arg.ml:302:15>>*/  /*<<arg.ml:302:15>>*/ caml_call2
-        /*<<arg.ml:302:15>>*/ (Stdlib_Printf[3], _l_, msg$0);
-       /*<<arg.ml:302:15>>*/ return  /*<<arg.ml:302:15>>*/ caml_call1
-               /*<<arg.ml:302:15>>*/ (Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
+       /*<<arg.ml:302:15>>*/ caml_call2(Stdlib_Printf[3], _l_, msg$0);
+      return caml_call1(Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
-      /*<<arg.ml:303:16>>*/  /*<<arg.ml:303:16>>*/ caml_call2
-       /*<<arg.ml:303:16>>*/ (Stdlib_Printf[2], _m_, msg$1);
-      /*<<arg.ml:303:16>>*/ return  /*<<arg.ml:303:16>>*/ caml_call1
-              /*<<arg.ml:303:16>>*/ (Stdlib[99], 0) /*<<arg.ml:303:39>>*/ ;
+      /*<<arg.ml:303:16>>*/ caml_call2(Stdlib_Printf[2], _m_, msg$1);
+     return caml_call1(Stdlib[99], 0) /*<<arg.ml:303:39>>*/ ;
     }
-    /*<<arg.ml:303:39>>*/ }
+   }
    function parse_dynamic(l, f, msg){
      /*<<arg.ml:307:2>>*/ try{
      var
       _T_ =
-         /*<<arg.ml:308:4>>*/  /*<<arg.ml:308:4>>*/ parse_argv_dynamic
-          /*<<arg.ml:308:4>>*/ (0, caml_sys_argv(0), l, f, msg);
-      /*<<arg.ml:308:4>>*/ return _T_ /*<<arg.ml:308:4>>*/ ;
+         /*<<arg.ml:308:4>>*/ parse_argv_dynamic
+         (0, caml_sys_argv(0), l, f, msg);
+     return _T_;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] === Bad){
       var msg$0 = exn[2];
-       /*<<arg.ml:310:15>>*/  /*<<arg.ml:310:15>>*/ caml_call2
-        /*<<arg.ml:310:15>>*/ (Stdlib_Printf[3], _n_, msg$0);
-       /*<<arg.ml:310:15>>*/ return  /*<<arg.ml:310:15>>*/ caml_call1
-               /*<<arg.ml:310:15>>*/ (Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
+       /*<<arg.ml:310:15>>*/ caml_call2(Stdlib_Printf[3], _n_, msg$0);
+      return caml_call1(Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
-      /*<<arg.ml:311:16>>*/  /*<<arg.ml:311:16>>*/ caml_call2
-       /*<<arg.ml:311:16>>*/ (Stdlib_Printf[2], _o_, msg$1);
-      /*<<arg.ml:311:16>>*/ return  /*<<arg.ml:311:16>>*/ caml_call1
-              /*<<arg.ml:311:16>>*/ (Stdlib[99], 0) /*<<arg.ml:311:39>>*/ ;
+      /*<<arg.ml:311:16>>*/ caml_call2(Stdlib_Printf[2], _o_, msg$1);
+     return caml_call1(Stdlib[99], 0) /*<<arg.ml:311:39>>*/ ;
     }
-    /*<<arg.ml:311:39>>*/ }
+   }
    function parse_expand(l, f, msg){
      /*<<arg.ml:314:2>>*/ try{
      var
@@ -26299,211 +21767,159 @@
       spec =  /*<<arg.ml:316:15>>*/ [0, l],
       current$0 =  /*<<arg.ml:317:18>>*/ [0, current[1]],
       _S_ =
-         /*<<arg.ml:318:4>>*/  /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
-          /*<<arg.ml:318:4>>*/ (current$0, argv, spec, f, msg);
-      /*<<arg.ml:318:4>>*/ return _S_ /*<<arg.ml:318:4>>*/ ;
+         /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
+         (current$0, argv, spec, f, msg);
+     return _S_;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] === Bad){
       var msg$0 = exn[2];
-       /*<<arg.ml:320:15>>*/  /*<<arg.ml:320:15>>*/ caml_call2
-        /*<<arg.ml:320:15>>*/ (Stdlib_Printf[3], _p_, msg$0);
-       /*<<arg.ml:320:15>>*/ return  /*<<arg.ml:320:15>>*/ caml_call1
-               /*<<arg.ml:320:15>>*/ (Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
+       /*<<arg.ml:320:15>>*/ caml_call2(Stdlib_Printf[3], _p_, msg$0);
+      return caml_call1(Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
-      /*<<arg.ml:321:16>>*/  /*<<arg.ml:321:16>>*/ caml_call2
-       /*<<arg.ml:321:16>>*/ (Stdlib_Printf[2], _q_, msg$1);
-      /*<<arg.ml:321:16>>*/ return  /*<<arg.ml:321:16>>*/ caml_call1
-              /*<<arg.ml:321:16>>*/ (Stdlib[99], 0) /*<<arg.ml:321:39>>*/ ;
+      /*<<arg.ml:321:16>>*/ caml_call2(Stdlib_Printf[2], _q_, msg$1);
+     return caml_call1(Stdlib[99], 0) /*<<arg.ml:321:39>>*/ ;
     }
-    /*<<arg.ml:321:39>>*/ }
+   }
    function second_word(s){
     var len = caml_ml_string_length(s);
     function loop(n){
      var n$0 = n;
       /*<<arg.ml:327:4>>*/ for(;;){
-      if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len /*<<arg.ml:326:2>>*/ ;
-       /*<<arg.ml:328:12>>*/ if
-       (32
-        !==
-          /*<<arg.ml:328:12>>*/ caml_string_get /*<<arg.ml:328:12>>*/ (s, n$0))
-        /*<<arg.ml:329:9>>*/ return n$0 /*<<arg.ml:329:9>>*/ ;
+      if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len;
+       /*<<arg.ml:328:12>>*/ if(32 !== caml_string_get(s, n$0))
+        /*<<arg.ml:329:9>>*/ return n$0;
       var n$1 =  /*<<arg.ml:328:29>>*/ n$0 + 1 | 0;
       n$0 = n$1;
      }
      /*<<arg.ml:329:10>>*/ }
      /*<<arg.ml:331:2>>*/ try{
-     var
-      n$0 =
-         /*<<arg.ml:331:8>>*/  /*<<arg.ml:331:8>>*/ caml_call2
-          /*<<arg.ml:331:8>>*/ (Stdlib_String[36], s, 9);
+     var n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);
     }
     catch(_Q_){
      var _O_ = caml_wrap_exception(_Q_);
      if(_O_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_O_, 0);
       /*<<arg.ml:334:6>>*/ try{
-      var
-       n =
-          /*<<arg.ml:334:18>>*/  /*<<arg.ml:334:18>>*/ caml_call2
-           /*<<arg.ml:334:18>>*/ (Stdlib_String[36], s, 32);
+      var n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);
      }
      catch(_R_){
       var _P_ = caml_wrap_exception(_R_);
-      if(_P_ === Stdlib[8])
-        /*<<arg.ml:336:31>>*/ return len /*<<arg.ml:336:31>>*/ ;
+      if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
       throw caml_maybe_attach_backtrace(_P_, 0);
      }
-      /*<<arg.ml:334:18>>*/ return  /*<<arg.ml:334:18>>*/ loop
-              /*<<arg.ml:334:18>>*/ (n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
+      /*<<arg.ml:334:18>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     }
-     /*<<arg.ml:331:8>>*/ return  /*<<arg.ml:331:8>>*/ loop
-             /*<<arg.ml:331:8>>*/ (n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
-    /*<<arg.ml:337:9>>*/ }
+     /*<<arg.ml:331:8>>*/ return loop(n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
+   }
    function max_arg_len(cur, param){
     var doc = param[3], spec = param[2], kwd = param[1];
      /*<<arg.ml:341:2>>*/ if(11 === spec[0])
      return caml_call2(Stdlib_Int[11], cur, caml_ml_string_length(kwd)) /*<<arg.ml:343:58>>*/ ;
     var
      _N_ =
-       caml_ml_string_length(kwd)
-       +  /*<<arg.ml:343:42>>*/ second_word /*<<arg.ml:343:42>>*/ (doc)
+       caml_ml_string_length(kwd) +  /*<<arg.ml:343:42>>*/ second_word(doc)
        | 0;
     return caml_call2(Stdlib_Int[11], cur, _N_) /*<<arg.ml:343:58>>*/ ;
-    /*<<arg.ml:343:58>>*/ }
+   }
    function replace_leading_tab(s){
     var seen =  /*<<arg.ml:347:13>>*/ [0, 0];
-     /*<<arg.ml:348:2>>*/ return  /*<<arg.ml:348:2>>*/ caml_call2
-             /*<<arg.ml:348:2>>*/ (Stdlib_String[18],
+     /*<<arg.ml:348:2>>*/ return caml_call2
+            (Stdlib_String[18],
              function(c){
                /*<<arg.ml:348:13>>*/ if(9 === c && ! seen[1]){
                seen[1] = 1;
-                /*<<arg.ml:348:60>>*/ return 32 /*<<arg.ml:348:60>>*/ ;
+                /*<<arg.ml:348:60>>*/ return 32;
               }
-               /*<<arg.ml:348:71>>*/ return c /*<<arg.ml:348:71>>*/ ;
+               /*<<arg.ml:348:71>>*/ return c;
               /*<<arg.ml:348:73>>*/ },
              s) /*<<arg.ml:348:75>>*/ ;
-    /*<<arg.ml:348:75>>*/ }
+   }
    function align(opt, speclist){
     var
      limit = opt ? opt[1] : Stdlib[19],
-     completed =
-        /*<<arg.ml:374:18>>*/  /*<<arg.ml:374:18>>*/ add_help
-         /*<<arg.ml:374:18>>*/ (speclist),
+     completed =  /*<<arg.ml:374:18>>*/ add_help(speclist),
      len =
-        /*<<arg.ml:375:12>>*/  /*<<arg.ml:375:12>>*/ caml_call3
-         /*<<arg.ml:375:12>>*/ (Stdlib_List[26], max_arg_len, 0, completed),
-     len$0 =
-        /*<<arg.ml:376:12>>*/  /*<<arg.ml:376:12>>*/ caml_call2
-         /*<<arg.ml:376:12>>*/ (Stdlib_Int[10], len, limit);
-     /*<<arg.ml:377:2>>*/ return  /*<<arg.ml:377:2>>*/ caml_call2
-             /*<<arg.ml:377:2>>*/ (Stdlib_List[20],
+        /*<<arg.ml:375:12>>*/ caml_call3
+        (Stdlib_List[26], max_arg_len, 0, completed),
+     len$0 =  /*<<arg.ml:376:12>>*/ caml_call2(Stdlib_Int[10], len, limit);
+     /*<<arg.ml:377:2>>*/ return caml_call2
+            (Stdlib_List[20],
              function(ksd){
               var kwd = ksd[1], spec = ksd[2];
-              if(ksd[3] === cst$8)
-                /*<<arg.ml:355:6>>*/ return ksd /*<<arg.ml:355:6>>*/ ;
+              if(ksd[3] === cst$8)  /*<<arg.ml:355:6>>*/ return ksd;
               if(11 === spec[0]){
                var
                 msg$0 = ksd[3],
-                cutcol$0 =
-                   /*<<arg.ml:357:19>>*/  /*<<arg.ml:357:19>>*/ second_word
-                    /*<<arg.ml:357:19>>*/ (msg$0),
+                cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
                 _K_ =
-                   /*<<arg.ml:358:32>>*/  /*<<arg.ml:358:32>>*/ caml_call2
-                    /*<<arg.ml:358:32>>*/ (Stdlib_Int[11],
-                    0,
-                    len$0 - cutcol$0 | 0)
+                   /*<<arg.ml:358:32>>*/ caml_call2
+                   (Stdlib_Int[11], 0, len$0 - cutcol$0 | 0)
                   + 3
                   | 0,
                 spaces$0 =
-                   /*<<arg.ml:358:19>>*/  /*<<arg.ml:358:19>>*/ caml_call2
-                    /*<<arg.ml:358:19>>*/ (Stdlib_String[1], _K_, 32),
-                _L_ =
-                   /*<<arg.ml:359:34>>*/  /*<<arg.ml:359:34>>*/ replace_leading_tab
-                    /*<<arg.ml:359:34>>*/ (msg$0),
+                   /*<<arg.ml:358:19>>*/ caml_call2(Stdlib_String[1], _K_, 32),
+                _L_ =  /*<<arg.ml:359:34>>*/ replace_leading_tab(msg$0),
                 _M_ =
-                   /*<<arg.ml:359:25>>*/  /*<<arg.ml:359:25>>*/ caml_call2
-                    /*<<arg.ml:359:25>>*/ (Stdlib[28], spaces$0, _L_);
+                   /*<<arg.ml:359:25>>*/ caml_call2(Stdlib[28], spaces$0, _L_);
                 /*<<arg.ml:359:6>>*/ return [0,
                        kwd,
                        spec,
-                        /*<<arg.ml:359:18>>*/ caml_call2
-                         /*<<arg.ml:359:18>>*/ (Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:6>>*/ ;
+                        /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:6>>*/ ;
               }
               var
                msg = ksd[3],
                spec$0 = ksd[2],
-               cutcol =
-                  /*<<arg.ml:361:19>>*/  /*<<arg.ml:361:19>>*/ second_word
-                   /*<<arg.ml:361:19>>*/ (msg),
-               kwd_len =
-                  /*<<arg.ml:362:6>>*/  /*<<arg.ml:362:6>>*/ caml_ml_string_length
-                   /*<<arg.ml:362:6>>*/ (kwd),
+               cutcol =  /*<<arg.ml:361:19>>*/ second_word(msg),
+               kwd_len =  /*<<arg.ml:362:6>>*/ caml_ml_string_length(kwd),
                diff = (len$0 - kwd_len | 0) - cutcol | 0;
                /*<<arg.ml:364:6>>*/ if(0 >= diff)
                 /*<<arg.ml:365:8>>*/ return [0,
                        kwd,
                        spec$0,
-                        /*<<arg.ml:365:20>>*/ replace_leading_tab
-                         /*<<arg.ml:365:20>>*/ (msg)] /*<<arg.ml:365:8>>*/ ;
+                        /*<<arg.ml:365:20>>*/ replace_leading_tab(msg)] /*<<arg.ml:365:8>>*/ ;
               var
                spaces =
-                  /*<<arg.ml:367:21>>*/  /*<<arg.ml:367:21>>*/ caml_call2
-                   /*<<arg.ml:367:21>>*/ (Stdlib_String[1], diff, 32),
-               _I_ =
-                  /*<<arg.ml:368:32>>*/  /*<<arg.ml:368:32>>*/ replace_leading_tab
-                   /*<<arg.ml:368:32>>*/ (msg),
+                  /*<<arg.ml:367:21>>*/ caml_call2(Stdlib_String[1], diff, 32),
+               _I_ =  /*<<arg.ml:368:32>>*/ replace_leading_tab(msg),
                prefix =
-                  /*<<arg.ml:368:21>>*/  /*<<arg.ml:368:21>>*/ caml_call3
-                   /*<<arg.ml:368:21>>*/ (Stdlib_String[16], _I_, 0, cutcol),
+                  /*<<arg.ml:368:21>>*/ caml_call3
+                  (Stdlib_String[16], _I_, 0, cutcol),
                suffix =
-                  /*<<arg.ml:369:21>>*/  /*<<arg.ml:369:21>>*/ caml_call3
-                   /*<<arg.ml:369:21>>*/ (Stdlib_String[16],
+                  /*<<arg.ml:369:21>>*/ caml_call3
+                  (Stdlib_String[16],
                    msg,
                    cutcol,
                    caml_ml_string_length(msg) - cutcol | 0),
                _J_ =
-                  /*<<arg.ml:370:29>>*/  /*<<arg.ml:370:29>>*/ caml_call2
-                   /*<<arg.ml:370:29>>*/ (Stdlib[28], spaces, suffix);
+                  /*<<arg.ml:370:29>>*/ caml_call2(Stdlib[28], spaces, suffix);
                /*<<arg.ml:370:8>>*/ return [0,
                       kwd,
                       spec$0,
-                       /*<<arg.ml:370:20>>*/ caml_call2
-                        /*<<arg.ml:370:20>>*/ (Stdlib[28], prefix, _J_)] /*<<arg.ml:370:8>>*/ ;
+                       /*<<arg.ml:370:20>>*/ caml_call2(Stdlib[28], prefix, _J_)] /*<<arg.ml:370:8>>*/ ;
              },
              completed) /*<<arg.ml:377:38>>*/ ;
-    /*<<arg.ml:377:38>>*/ }
+   }
    function read_aux(trim, sep, file){
     var
-     ic =
-        /*<<arg.ml:387:11>>*/  /*<<arg.ml:387:11>>*/ caml_call1
-         /*<<arg.ml:387:11>>*/ (Stdlib[80], file),
-     buf =
-        /*<<arg.ml:388:12>>*/  /*<<arg.ml:388:12>>*/ caml_call1
-         /*<<arg.ml:388:12>>*/ (Stdlib_Buffer[1], 200),
+     ic =  /*<<arg.ml:387:11>>*/ caml_call1(Stdlib[80], file),
+     buf =  /*<<arg.ml:388:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
      words =  /*<<arg.ml:389:14>>*/ [0, 0];
     function stash(param){
-     var
-      word =
-         /*<<arg.ml:391:15>>*/  /*<<arg.ml:391:15>>*/ caml_call1
-          /*<<arg.ml:391:15>>*/ (Stdlib_Buffer[2], buf);
+     var word =  /*<<arg.ml:391:15>>*/ caml_call1(Stdlib_Buffer[2], buf);
       /*<<arg.ml:392:4>>*/ if(trim){
       var len = caml_ml_string_length(word);
       a:
       {
         /*<<arg.ml:381:2>>*/ if
         (0 < len
-         &&
-          13
-          ===
-            /*<<arg.ml:381:16>>*/ caml_string_get
-             /*<<arg.ml:381:16>>*/ (word, len - 1 | 0)){
+         && 13 ===  /*<<arg.ml:381:16>>*/ caml_string_get(word, len - 1 | 0)){
         var
          _H_ =
             /*<<arg.ml:382:4>>*/ caml_call3
-             /*<<arg.ml:382:4>>*/ (Stdlib_String[16], word, 0, len - 1 | 0);
+            (Stdlib_String[16], word, 0, len - 1 | 0);
         break a;
        }
        var _H_ = word;
@@ -26513,43 +21929,27 @@
      else
       var word$0 = word;
      words[1] = [0, word$0, words[1]];
-      /*<<arg.ml:390:2>>*/ return  /*<<arg.ml:390:2>>*/ caml_call1
-              /*<<arg.ml:390:2>>*/ (Stdlib_Buffer[8], buf) /*<<arg.ml:394:20>>*/ ;
-     /*<<arg.ml:394:20>>*/ }
+      /*<<arg.ml:390:2>>*/ return caml_call1(Stdlib_Buffer[8], buf) /*<<arg.ml:394:20>>*/ ;
+    }
      /*<<arg.ml:396:2>>*/ try{
      for(;;){
-      var
-       c =
-          /*<<arg.ml:398:16>>*/  /*<<arg.ml:398:16>>*/ caml_call1
-           /*<<arg.ml:398:16>>*/ (Stdlib[82], ic);
+      var c =  /*<<arg.ml:398:16>>*/ caml_call1(Stdlib[82], ic);
       if(c === sep)
-        /*<<arg.ml:399:24>>*/  /*<<arg.ml:399:24>>*/ stash
-         /*<<arg.ml:399:24>>*/ (0);
+        /*<<arg.ml:399:24>>*/ stash(0);
       else
-        /*<<arg.ml:399:38>>*/  /*<<arg.ml:399:38>>*/ caml_call2
-         /*<<arg.ml:399:38>>*/ (Stdlib_Buffer[12], buf, c);
+        /*<<arg.ml:399:38>>*/ caml_call2(Stdlib_Buffer[12], buf, c);
      }
     }
     catch(_G_){
      var _E_ = caml_wrap_exception(_G_);
      if(_E_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_E_, 0);
-     if
-      (0
-       <
-         /*<<arg.ml:403:5>>*/ caml_call1
-          /*<<arg.ml:403:5>>*/ (Stdlib_Buffer[7], buf))
-       /*<<arg.ml:403:32>>*/  /*<<arg.ml:403:32>>*/ stash
-        /*<<arg.ml:403:32>>*/ (0);
-      /*<<arg.ml:404:2>>*/  /*<<arg.ml:404:2>>*/ caml_call1
-       /*<<arg.ml:404:2>>*/ (Stdlib[93], ic);
-     var
-      _F_ =
-         /*<<arg.ml:405:16>>*/  /*<<arg.ml:405:16>>*/ caml_call1
-          /*<<arg.ml:405:16>>*/ (Stdlib_List[10], words[1]);
-      /*<<arg.ml:405:16>>*/ return  /*<<arg.ml:405:16>>*/ caml_call1
-              /*<<arg.ml:405:16>>*/ (Stdlib_Array[11], _F_) /*<<arg.ml:405:33>>*/ ;
+     if(0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
+       /*<<arg.ml:403:32>>*/ stash(0);
+      /*<<arg.ml:404:2>>*/ caml_call1(Stdlib[93], ic);
+     var _F_ =  /*<<arg.ml:405:16>>*/ caml_call1(Stdlib_List[10], words[1]);
+     return caml_call1(Stdlib_Array[11], _F_) /*<<arg.ml:405:33>>*/ ;
     }
-    /*<<arg.ml:405:33>>*/ }
+   }
    var _r_ =  /*<<arg.ml:386:13>>*/ 10, _s_ = 1;
    function read_arg(_D_){ /*<<?>>*/ return read_aux(_s_, _r_, _D_);}
    var
@@ -26558,20 +21958,16 @@
     _v_ = [0, [2, 0, [0, 0]], "%s%c"];
    function read_arg0(_C_){ /*<<?>>*/ return read_aux(_u_, _t_, _C_);}
    function write_aux(sep, file, args){
-    var
-     oc =
-        /*<<arg.ml:412:11>>*/  /*<<arg.ml:412:11>>*/ caml_call1
-         /*<<arg.ml:412:11>>*/ (Stdlib[61], file);
-     /*<<arg.ml:413:2>>*/  /*<<arg.ml:413:2>>*/ caml_call2
-      /*<<arg.ml:413:2>>*/ (Stdlib_Array[12],
+    var oc =  /*<<arg.ml:412:11>>*/ caml_call1(Stdlib[61], file);
+     /*<<arg.ml:413:2>>*/ caml_call2
+     (Stdlib_Array[12],
       function(s){
         /*<<arg.ml:413:23>>*/ return caml_call4
                (Stdlib_Printf[1], oc, _v_, s, sep) /*<<arg.ml:413:46>>*/ ;
-       /*<<arg.ml:413:46>>*/ },
+      },
       args);
-     /*<<arg.ml:413:2>>*/ return  /*<<arg.ml:413:2>>*/ caml_call1
-             /*<<arg.ml:413:2>>*/ (Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
-    /*<<arg.ml:414:14>>*/ }
+     /*<<arg.ml:413:2>>*/ return caml_call1(Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
+   }
    var _w_ =  /*<<arg.ml:411:14>>*/ 10;
    function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
    var _x_ =  /*<<arg.ml:416:16>>*/ 0;
@@ -26597,7 +21993,7 @@
        write_arg0];
    runtime.caml_register_global(55, Stdlib_Arg, "Stdlib__Arg");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Printexc
@@ -26606,23 +22002,21 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst$4 =  /*<<?>>*/ "",
-    cst_s =  /*<<?>>*/ "%s\n",
+    runtime = globalThis.jsoo_runtime,
+    cst$4 = "",
+    cst_s = "%s\n",
     cst_Program_not_linked_with_g_$0 =
-       /*<<?>>*/ "(Program not linked with -g, cannot print stack backtrace)\n",
-    cst_characters =  /*<<?>>*/ ", characters ",
-    cst_Fatal_error_exception =  /*<<?>>*/ "Fatal error: exception ",
-    cst_Fatal_error_exception_s =  /*<<?>>*/ "Fatal error: exception %s\n",
-    cst_Uncaught_exception =  /*<<?>>*/ "Uncaught exception: ",
-    cst_Uncaught_exception_s =  /*<<?>>*/ "Uncaught exception: %s\n",
-    caml_check_bound =  /*<<?>>*/ runtime.caml_check_bound,
-    caml_get_exception_raw_backtra =
-       /*<<?>>*/ runtime.caml_get_exception_raw_backtrace,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_obj_tag =  /*<<?>>*/ runtime.caml_obj_tag,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+      "(Program not linked with -g, cannot print stack backtrace)\n",
+    cst_characters = ", characters ",
+    cst_Fatal_error_exception = "Fatal error: exception ",
+    cst_Fatal_error_exception_s = "Fatal error: exception %s\n",
+    cst_Uncaught_exception = "Uncaught exception: ",
+    cst_Uncaught_exception_s = "Uncaught exception: %s\n",
+    caml_check_bound = runtime.caml_check_bound,
+    caml_get_exception_raw_backtra = runtime.caml_get_exception_raw_backtrace,
+    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)
@@ -26677,9 +22071,7 @@
     Stdlib = global_data.Stdlib,
     Stdlib_Buffer = global_data.Stdlib__Buffer,
     Stdlib_Obj = global_data.Stdlib__Obj,
-    printers =
-       /*<<printexc.ml:20:15>>*/  /*<<printexc.ml:20:15>>*/ caml_call1
-        /*<<printexc.ml:20:15>>*/ (Stdlib_Atomic[1], 0),
+    printers =  /*<<printexc.ml:20:15>>*/ caml_call1(Stdlib_Atomic[1], 0),
     _a_ = [0, [3, 0, 0], "%S"],
     _b_ = [0, [4, 0, 0, 0, 0], "%d"],
     _c_ = [0, [11, ", ", [2, 0, [2, 0, 0]]], ", %s%s"],
@@ -26731,83 +22123,55 @@
     cst_Program_not_linked_with_g_ = cst_Program_not_linked_with_g_$0;
    function field(x, i){
     var f =  /*<<printexc.ml:25:10>>*/ x[1 + i];
-     /*<<printexc.ml:26:9>>*/ if
-     (!
-       /*<<printexc.ml:26:9>>*/ caml_call1
-        /*<<printexc.ml:26:9>>*/ (Stdlib_Obj[1], f))
-      /*<<printexc.ml:27:4>>*/ return  /*<<printexc.ml:27:4>>*/ caml_call2
-              /*<<printexc.ml:27:4>>*/ (Stdlib_Printf[4], _b_, f) /*<<printexc.ml:33:7>>*/ ;
+     /*<<printexc.ml:26:9>>*/ if(! caml_call1(Stdlib_Obj[1], f))
+      /*<<printexc.ml:27:4>>*/ return caml_call2(Stdlib_Printf[4], _b_, f) /*<<printexc.ml:33:7>>*/ ;
     var _ah_ =  /*<<printexc.ml:28:7>>*/ Stdlib_Obj[15];
-    if
-     ( /*<<printexc.ml:28:10>>*/ caml_obj_tag /*<<printexc.ml:28:10>>*/ (f)
-      === _ah_)
-      /*<<printexc.ml:29:4>>*/ return  /*<<printexc.ml:29:4>>*/ caml_call2
-              /*<<printexc.ml:29:4>>*/ (Stdlib_Printf[4], _a_, f) /*<<printexc.ml:33:7>>*/ ;
+    if( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
+      /*<<printexc.ml:29:4>>*/ return caml_call2(Stdlib_Printf[4], _a_, f) /*<<printexc.ml:33:7>>*/ ;
     var _ai_ =  /*<<printexc.ml:30:7>>*/ Stdlib_Obj[16];
-    return  /*<<printexc.ml:30:10>>*/ caml_obj_tag
-              /*<<printexc.ml:30:10>>*/ (f)
-            === _ai_
-            ?  /*<<printexc.ml:31:4>>*/ caml_call1
-               /*<<printexc.ml:31:4>>*/ (Stdlib[35], f)
+    return  /*<<printexc.ml:30:10>>*/ caml_obj_tag(f) === _ai_
+            ?  /*<<printexc.ml:31:4>>*/ caml_call1(Stdlib[35], f)
             : cst /*<<printexc.ml:33:7>>*/ ;
-    /*<<printexc.ml:33:7>>*/ }
+   }
    function other_fields(x, i){
      /*<<printexc.ml:36:2>>*/ if(x.length - 1 <= i)
-      /*<<printexc.ml:36:26>>*/ return cst$0 /*<<printexc.ml:36:26>>*/ ;
-    var
-     _af_ =
-        /*<<printexc.ml:37:36>>*/  /*<<printexc.ml:37:36>>*/ other_fields
-         /*<<printexc.ml:37:36>>*/ (x, i + 1 | 0),
-     _ag_ =
-        /*<<printexc.ml:37:24>>*/  /*<<printexc.ml:37:24>>*/ field
-         /*<<printexc.ml:37:24>>*/ (x, i);
-     /*<<printexc.ml:37:36>>*/ return  /*<<printexc.ml:37:36>>*/ caml_call3
-             /*<<printexc.ml:37:36>>*/ (Stdlib_Printf[4], _c_, _ag_, _af_) /*<<printexc.ml:37:58>>*/ ;
-    /*<<printexc.ml:37:58>>*/ }
+      /*<<printexc.ml:36:26>>*/ return cst$0;
+    var
+     _af_ =  /*<<printexc.ml:37:36>>*/ other_fields(x, i + 1 | 0),
+     _ag_ =  /*<<printexc.ml:37:24>>*/ field(x, i);
+     /*<<printexc.ml:37:36>>*/ return caml_call3
+            (Stdlib_Printf[4], _c_, _ag_, _af_) /*<<printexc.ml:37:58>>*/ ;
+   }
    function use_printers(x){
     var
-     param =
-        /*<<printexc.ml:53:7>>*/ caml_call1
-         /*<<printexc.ml:53:7>>*/ (Stdlib_Atomic[3], printers);
+     param =  /*<<printexc.ml:53:7>>*/ caml_call1(Stdlib_Atomic[3], printers);
      /*<<printexc.ml:47:17>>*/ for(;;){
-     if(! param)
-       /*<<printexc.ml:52:12>>*/ return 0 /*<<printexc.ml:52:12>>*/ ;
+     if(! param)  /*<<printexc.ml:52:12>>*/ return 0;
      var tl = param[2], hd = param[1];
      a:
      {
        /*<<printexc.ml:49:8>>*/ try{
-       var
-        val =
-           /*<<printexc.ml:49:15>>*/  /*<<printexc.ml:49:15>>*/ caml_call1
-            /*<<printexc.ml:49:15>>*/ (hd, x);
+       var val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);
       }
       catch(_ae_){break a;}
-      if(val){
-       var s = val[1];
-        /*<<printexc.ml:51:21>>*/ return [0, s] /*<<printexc.ml:51:21>>*/ ;
-      }
+      if(val){var s = val[1];  /*<<printexc.ml:51:21>>*/ return [0, s];}
      }
      param = tl;
     }
     /*<<printexc.ml:53:28>>*/ }
    function string_of_extension_constructo(t){
      /*<<printexc.ml:64:2>>*/ if
-     (0
-      ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag /*<<printexc.ml:56:5>>*/ (t)){
+     (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
      var
       constructor =  /*<<printexc.ml:60:17>>*/ t[1][1],
       match = t.length - 1;
      if(2 < match >>> 0)
       var
-       _aa_ =
-          /*<<printexc.ml:44:38>>*/  /*<<printexc.ml:44:38>>*/ other_fields
-           /*<<printexc.ml:44:38>>*/ (t, 2),
-       _ab_ =
-          /*<<printexc.ml:44:26>>*/  /*<<printexc.ml:44:26>>*/ field
-           /*<<printexc.ml:44:26>>*/ (t, 1),
+       _aa_ =  /*<<printexc.ml:44:38>>*/ other_fields(t, 2),
+       _ab_ =  /*<<printexc.ml:44:26>>*/ field(t, 1),
        _ad_ =
           /*<<printexc.ml:44:38>>*/ caml_call3
-           /*<<printexc.ml:44:38>>*/ (Stdlib_Printf[4], _d_, _ab_, _aa_);
+          (Stdlib_Printf[4], _d_, _ab_, _aa_);
      else
       switch(match){
         case 0:
@@ -26816,12 +22180,8 @@
          var _ad_ = cst$2; break;
         default:
          var
-          _ac_ =
-             /*<<printexc.ml:43:24>>*/  /*<<printexc.ml:43:24>>*/ field
-              /*<<printexc.ml:43:24>>*/ (t, 1),
-          _ad_ =
-             /*<<printexc.ml:43:24>>*/ caml_call2
-              /*<<printexc.ml:43:24>>*/ (Stdlib_Printf[4], _e_, _ac_);
+          _ac_ =  /*<<printexc.ml:43:24>>*/ field(t, 1),
+          _ad_ = caml_call2(Stdlib_Printf[4], _e_, _ac_);
       }
      var match$0 = [0, constructor, [0, _ad_]];
     }
@@ -26829,20 +22189,18 @@
      var match$0 = [0, t[1], 0];
     var fields_opt = match$0[2], constructor$0 = match$0[1];
      /*<<printexc.ml:65:2>>*/ if(! fields_opt)
-      /*<<printexc.ml:66:12>>*/ return constructor$0 /*<<printexc.ml:66:12>>*/ ;
+      /*<<printexc.ml:66:12>>*/ return constructor$0;
     var f = fields_opt[1];
-     /*<<printexc.ml:67:14>>*/ return  /*<<printexc.ml:67:14>>*/ caml_call2
-             /*<<printexc.ml:67:14>>*/ (Stdlib[28], constructor$0, f) /*<<printexc.ml:67:29>>*/ ;
-    /*<<printexc.ml:67:29>>*/ }
+     /*<<printexc.ml:67:14>>*/ return caml_call2(Stdlib[28], constructor$0, f) /*<<printexc.ml:67:29>>*/ ;
+   }
    function to_string_default(x){
      /*<<printexc.ml:69:24>>*/ if(x === Stdlib[9])
-      /*<<printexc.ml:70:21>>*/ return cst_Out_of_memory /*<<printexc.ml:70:21>>*/ ;
-    if(x === Stdlib[10])
-      /*<<printexc.ml:71:22>>*/ return cst_Stack_overflow /*<<printexc.ml:71:22>>*/ ;
+      /*<<printexc.ml:70:21>>*/ return cst_Out_of_memory;
+    if(x === Stdlib[10])  /*<<printexc.ml:71:22>>*/ return cst_Stack_overflow;
     if(x[1] === Stdlib[4]){
      var match = x[2], char$0 = match[3], line = match[2], file = match[1];
-      /*<<printexc.ml:73:6>>*/ return  /*<<printexc.ml:73:6>>*/ caml_call6
-              /*<<printexc.ml:73:6>>*/ (Stdlib_Printf[4],
+      /*<<printexc.ml:73:6>>*/ return caml_call6
+             (Stdlib_Printf[4],
               locfmt,
               file,
               line,
@@ -26856,8 +22214,8 @@
       char$1 = match$0[3],
       line$0 = match$0[2],
       file$0 = match$0[1];
-      /*<<printexc.ml:75:6>>*/ return  /*<<printexc.ml:75:6>>*/ caml_call6
-              /*<<printexc.ml:75:6>>*/ (Stdlib_Printf[4],
+      /*<<printexc.ml:75:6>>*/ return caml_call6
+             (Stdlib_Printf[4],
               locfmt,
               file$0,
               line$0,
@@ -26866,152 +22224,110 @@
               cst_Assertion_failed) /*<<printexc.ml:79:50>>*/ ;
     }
     if(x[1] !== Stdlib[15])
-      /*<<printexc.ml:79:6>>*/ return  /*<<printexc.ml:79:6>>*/ string_of_extension_constructo
-              /*<<printexc.ml:79:6>>*/ (x) /*<<printexc.ml:79:50>>*/ ;
+      /*<<printexc.ml:79:6>>*/ return string_of_extension_constructo(x) /*<<printexc.ml:79:50>>*/ ;
     var
      match$1 = x[2],
      char$2 = match$1[3],
      line$1 = match$1[2],
      file$1 = match$1[1];
-     /*<<printexc.ml:77:6>>*/ return  /*<<printexc.ml:77:6>>*/ caml_call6
-             /*<<printexc.ml:77:6>>*/ (Stdlib_Printf[4],
+     /*<<printexc.ml:77:6>>*/ return caml_call6
+            (Stdlib_Printf[4],
              locfmt,
              file$1,
              line$1,
              char$2,
              char$2 + 6 | 0,
              cst_Undefined_recursive_module) /*<<printexc.ml:79:50>>*/ ;
-    /*<<printexc.ml:79:50>>*/ }
+   }
    function to_string(e){
-    var
-     match =
-        /*<<printexc.ml:82:8>>*/  /*<<printexc.ml:82:8>>*/ use_printers
-         /*<<printexc.ml:82:8>>*/ (e);
+    var match =  /*<<printexc.ml:82:8>>*/ use_printers(e);
     if(! match)
-      /*<<printexc.ml:84:12>>*/ return  /*<<printexc.ml:84:12>>*/ to_string_default
-              /*<<printexc.ml:84:12>>*/ (e) /*<<printexc.ml:84:31>>*/ ;
+      /*<<printexc.ml:84:12>>*/ return to_string_default(e) /*<<printexc.ml:84:31>>*/ ;
     var s = match[1];
-     /*<<printexc.ml:83:14>>*/ return s /*<<printexc.ml:83:14>>*/ ;
+     /*<<printexc.ml:83:14>>*/ return s;
     /*<<printexc.ml:84:31>>*/ }
    function print(fct, arg){
      /*<<printexc.ml:87:2>>*/ try{
-     var
-      _$_ =
-         /*<<printexc.ml:88:4>>*/  /*<<printexc.ml:88:4>>*/ caml_call1
-          /*<<printexc.ml:88:4>>*/ (fct, arg);
-      /*<<printexc.ml:88:4>>*/ return _$_ /*<<printexc.ml:88:4>>*/ ;
+     var _$_ =  /*<<printexc.ml:88:4>>*/ caml_call1(fct, arg);
+     return _$_;
     }
     catch(x$0){
      var
       x = caml_wrap_exception(x$0),
-      ___ =
-         /*<<printexc.ml:90:39>>*/  /*<<printexc.ml:90:39>>*/ to_string
-          /*<<printexc.ml:90:39>>*/ (x);
-      /*<<printexc.ml:90:4>>*/  /*<<printexc.ml:90:4>>*/ caml_call2
-       /*<<printexc.ml:90:4>>*/ (Stdlib_Printf[3], _f_, ___);
-      /*<<printexc.ml:91:4>>*/  /*<<printexc.ml:91:4>>*/ caml_call1
-       /*<<printexc.ml:91:4>>*/ (Stdlib[63], Stdlib[40]);
-      /*<<printexc.ml:92:4>>*/ throw  /*<<printexc.ml:92:4>>*/ caml_maybe_attach_backtrace
-             /*<<printexc.ml:92:4>>*/ (x, 0);
+      ___ =  /*<<printexc.ml:90:39>>*/ to_string(x);
+      /*<<printexc.ml:90:4>>*/ caml_call2(Stdlib_Printf[3], _f_, ___);
+      /*<<printexc.ml:91:4>>*/ caml_call1(Stdlib[63], Stdlib[40]);
+      /*<<printexc.ml:92:4>>*/ throw caml_maybe_attach_backtrace(x, 0);
     }
     /*<<printexc.ml:92:11>>*/ }
    function catch$0(fct, arg){
      /*<<printexc.ml:95:2>>*/ try{
-     var
-      _Z_ =
-         /*<<printexc.ml:96:4>>*/  /*<<printexc.ml:96:4>>*/ caml_call1
-          /*<<printexc.ml:96:4>>*/ (fct, arg);
-      /*<<printexc.ml:96:4>>*/ return _Z_ /*<<printexc.ml:96:4>>*/ ;
+     var _Z_ =  /*<<printexc.ml:96:4>>*/ caml_call1(fct, arg);
+     return _Z_;
     }
     catch(x$0){
      var x = caml_wrap_exception(x$0);
-      /*<<printexc.ml:98:4>>*/  /*<<printexc.ml:98:4>>*/ caml_call1
-       /*<<printexc.ml:98:4>>*/ (Stdlib[63], Stdlib[39]);
-     var
-      _Y_ =
-         /*<<printexc.ml:99:39>>*/  /*<<printexc.ml:99:39>>*/ to_string
-          /*<<printexc.ml:99:39>>*/ (x);
-      /*<<printexc.ml:99:4>>*/  /*<<printexc.ml:99:4>>*/ caml_call2
-       /*<<printexc.ml:99:4>>*/ (Stdlib_Printf[3], _g_, _Y_);
-      /*<<printexc.ml:99:4>>*/ return  /*<<printexc.ml:99:4>>*/ caml_call1
-              /*<<printexc.ml:99:4>>*/ (Stdlib[99], 2) /*<<printexc.ml:100:10>>*/ ;
-    }
-    /*<<printexc.ml:100:10>>*/ }
+      /*<<printexc.ml:98:4>>*/ caml_call1(Stdlib[63], Stdlib[39]);
+     var _Y_ =  /*<<printexc.ml:99:39>>*/ to_string(x);
+      /*<<printexc.ml:99:4>>*/ caml_call2(Stdlib_Printf[3], _g_, _Y_);
+     return caml_call1(Stdlib[99], 2) /*<<printexc.ml:100:10>>*/ ;
+    }
+   }
    function raw_backtrace_entries(bt){
-     /*<<printexc.ml:106:31>>*/ return bt /*<<printexc.ml:106:31>>*/ ;
+     /*<<printexc.ml:106:31>>*/ return bt;
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
      /*<<printexc.ml:138:2>>*/ return [0,
-             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace
-              /*<<printexc.ml:138:11>>*/ (bt)] /*<<printexc.ml:138:6>>*/ ;
+             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)] /*<<printexc.ml:138:6>>*/ ;
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
       /*<<printexc.ml:143:4>>*/ return is_raise
              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<printexc.ml:146:75>>*/ ;
-     /*<<printexc.ml:146:75>>*/ }
+    }
      /*<<printexc.ml:148:2>>*/ if(0 === slot[0]){
      var
       lines =
         slot[3] === slot[6]
          ?  /*<<printexc.ml:157:10>>*/ caml_call2
-            /*<<printexc.ml:157:10>>*/ (Stdlib_Printf[4], _h_, slot[3])
+           (Stdlib_Printf[4], _h_, slot[3])
          :  /*<<printexc.ml:159:10>>*/ caml_call3
-            /*<<printexc.ml:159:10>>*/ (Stdlib_Printf[4],
-            _j_,
-            slot[3],
-            slot[6]),
+           (Stdlib_Printf[4], _j_, slot[3], slot[6]),
       _R_ = slot[7],
       _S_ = slot[4],
       _T_ = slot[8] ? cst_inlined : cst$3,
       _U_ = slot[2],
       _V_ = slot[9],
-      _W_ =
-         /*<<printexc.ml:162:14>>*/  /*<<printexc.ml:162:14>>*/ info
-          /*<<printexc.ml:162:14>>*/ (slot[1]);
+      _W_ =  /*<<printexc.ml:162:14>>*/ info(slot[1]);
       /*<<printexc.ml:161:6>>*/ return [0,
               /*<<printexc.ml:161:11>>*/ caml_call8
-               /*<<printexc.ml:161:11>>*/ (Stdlib_Printf[4],
-               _i_,
-               _W_,
-               _V_,
-               _U_,
-               _T_,
-               lines,
-               _S_,
-               _R_)] /*<<printexc.ml:161:6>>*/ ;
-    }
-    if(slot[1])
-      /*<<printexc.ml:151:50>>*/ return 0 /*<<printexc.ml:151:50>>*/ ;
-    var
-     _X_ =
-        /*<<printexc.ml:153:44>>*/  /*<<printexc.ml:153:44>>*/ info
-         /*<<printexc.ml:153:44>>*/ (0);
+              (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)] /*<<printexc.ml:161:6>>*/ ;
+    }
+    if(slot[1])  /*<<printexc.ml:151:50>>*/ return 0;
+    var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
      /*<<printexc.ml:153:8>>*/ return [0,
-             /*<<printexc.ml:153:13>>*/ caml_call2
-              /*<<printexc.ml:153:13>>*/ (Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:8>>*/ ;
+             /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:8>>*/ ;
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
     var
      backtrace =
-        /*<<printexc.ml:179:36>>*/  /*<<printexc.ml:179:36>>*/ convert_raw_backtrace
-         /*<<printexc.ml:179:36>>*/ (raw_backtrace);
+        /*<<printexc.ml:179:36>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
-      /*<<printexc.ml:169:6>>*/ return  /*<<printexc.ml:169:6>>*/ caml_call2
-              /*<<printexc.ml:169:6>>*/ (Stdlib_Printf[1], outchan, _m_) /*<<printexc.ml:179:73>>*/ ;
+      /*<<printexc.ml:169:6>>*/ return caml_call2
+             (Stdlib_Printf[1], outchan, _m_) /*<<printexc.ml:179:73>>*/ ;
     var a = backtrace[1], _P_ = a.length - 2 | 0, _O_ = 0;
     if(_P_ >= 0){
      var i = _O_;
      for(;;){
       var
        match =
-          /*<<printexc.ml:173:14>>*/  /*<<printexc.ml:173:14>>*/ format_backtrace_slot
-           /*<<printexc.ml:173:14>>*/ (i, caml_check_bound(a, i)[1 + i]);
+          /*<<printexc.ml:173:14>>*/ format_backtrace_slot
+          (i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
-        /*<<printexc.ml:175:24>>*/  /*<<printexc.ml:175:24>>*/ caml_call3
-         /*<<printexc.ml:175:24>>*/ (Stdlib_Printf[1], outchan, _l_, str);
+        /*<<printexc.ml:175:24>>*/ caml_call3
+        (Stdlib_Printf[1], outchan, _l_, str);
       }
       var _Q_ =  /*<<printexc.ml:172:6>>*/ i + 1 | 0;
       if(_P_ === i) break;
@@ -27022,68 +22338,58 @@
     /*<<printexc.ml:179:73>>*/ }
    function print_backtrace(outchan){
      /*<<printexc.ml:183:2>>*/ return  /*<<printexc.ml:183:30>>*/ print_raw_backtrace
-             /*<<printexc.ml:183:30>>*/ (outchan,
-              /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra
-               /*<<printexc.ml:183:30>>*/ (0)) /*<<printexc.ml:183:52>>*/ ;
-    /*<<printexc.ml:183:52>>*/ }
+            (outchan, caml_get_exception_raw_backtra(0)) /*<<printexc.ml:183:52>>*/ ;
+   }
    function raw_backtrace_to_string(raw_backtrace){
     var
      backtrace =
-        /*<<printexc.ml:199:22>>*/  /*<<printexc.ml:199:22>>*/ convert_raw_backtrace
-         /*<<printexc.ml:199:22>>*/ (raw_backtrace);
+        /*<<printexc.ml:199:22>>*/ convert_raw_backtrace(raw_backtrace);
     if(! backtrace)
-      /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_ /*<<printexc.ml:188:5>>*/ ;
+      /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_;
     var
      a = backtrace[1],
-     b =
-        /*<<printexc.ml:190:14>>*/  /*<<printexc.ml:190:14>>*/ caml_call1
-         /*<<printexc.ml:190:14>>*/ (Stdlib_Buffer[1], 1024),
+     b =  /*<<printexc.ml:190:14>>*/ caml_call1(Stdlib_Buffer[1], 1024),
      _M_ = a.length - 2 | 0,
-     _L_ =  /*<<printexc.ml:190:14>>*/ 0;
+     _L_ = 0;
     if(_M_ >= 0){
      var i = _L_;
      for(;;){
       var
        match =
-          /*<<printexc.ml:192:14>>*/  /*<<printexc.ml:192:14>>*/ format_backtrace_slot
-           /*<<printexc.ml:192:14>>*/ (i, caml_check_bound(a, i)[1 + i]);
+          /*<<printexc.ml:192:14>>*/ format_backtrace_slot
+          (i, caml_check_bound(a, i)[1 + i]);
       if(match){
        var str = match[1];
-        /*<<printexc.ml:194:24>>*/  /*<<printexc.ml:194:24>>*/ caml_call3
-         /*<<printexc.ml:194:24>>*/ (Stdlib_Printf[5], b, _n_, str);
+        /*<<printexc.ml:194:24>>*/ caml_call3(Stdlib_Printf[5], b, _n_, str);
       }
       var _N_ =  /*<<printexc.ml:191:6>>*/ i + 1 | 0;
       if(_M_ === i) break;
       i = _N_;
      }
     }
-     /*<<printexc.ml:196:6>>*/ return  /*<<printexc.ml:196:6>>*/ caml_call1
-             /*<<printexc.ml:196:6>>*/ (Stdlib_Buffer[2], b) /*<<printexc.ml:199:59>>*/ ;
-    /*<<printexc.ml:199:59>>*/ }
+     /*<<printexc.ml:196:6>>*/ return caml_call1(Stdlib_Buffer[2], b) /*<<printexc.ml:199:59>>*/ ;
+   }
    function backtrace_slot_is_raise(param){
      /*<<printexc.ml:201:30>>*/ return 0 === param[0] ? param[1] : param[1] /*<<printexc.ml:203:36>>*/ ;
-    /*<<printexc.ml:203:36>>*/ }
+   }
    function backtrace_slot_is_inline(param){
      /*<<printexc.ml:205:31>>*/ return 0 === param[0] ? param[8] : 0 /*<<printexc.ml:207:31>>*/ ;
-    /*<<printexc.ml:207:31>>*/ }
+   }
    function backtrace_slot_location(param){
      /*<<printexc.ml:218:30>>*/ return 0 === param[0]
             ? [0,
               [0, param[2], param[3], param[4], param[5], param[6], param[7]]]
             : 0 /*<<printexc.ml:228:5>>*/ ;
-    /*<<printexc.ml:228:5>>*/ }
+   }
    function backtrace_slot_defname(param){
      /*<<printexc.ml:230:29>>*/ if(0 === param[0] && param[9] !== cst$4)
-      /*<<printexc.ml:233:24>>*/ return [0, param[9]] /*<<printexc.ml:233:24>>*/ ;
-     /*<<printexc.ml:232:39>>*/ return 0 /*<<printexc.ml:232:39>>*/ ;
+      /*<<printexc.ml:233:24>>*/ return [0, param[9]];
+     /*<<printexc.ml:232:39>>*/ return 0;
     /*<<printexc.ml:233:38>>*/ }
    function backtrace_slots(raw_backtrace){
     var
-     match =
-        /*<<printexc.ml:242:8>>*/  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace
-         /*<<printexc.ml:242:8>>*/ (raw_backtrace);
-    if(! match)
-      /*<<printexc.ml:243:14>>*/ return 0 /*<<printexc.ml:243:14>>*/ ;
+     match =  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace(raw_backtrace);
+    if(! match)  /*<<printexc.ml:243:14>>*/ return 0;
     var backtrace = match[1], i$1 = backtrace.length - 2 | 0, i = i$1;
      /*<<printexc.ml:248:30>>*/ for(;;){
      if(-1 === i)
@@ -27099,58 +22405,44 @@
      }
       /*<<printexc.ml:251:9>>*/ return _K_ ? [0, backtrace] : 0 /*<<printexc.ml:253:15>>*/ ;
     }
-    /*<<printexc.ml:253:15>>*/ }
+   }
    function backtrace_slots_of_raw_entry(entry){
      /*<<printexc.ml:256:2>>*/ return  /*<<printexc.ml:256:18>>*/ backtrace_slots
-             /*<<printexc.ml:256:18>>*/ ([0, entry]) /*<<printexc.ml:256:29>>*/ ;
-    /*<<printexc.ml:256:29>>*/ }
+            ([0, entry]) /*<<printexc.ml:256:29>>*/ ;
+   }
    function raw_backtrace_length(bt){
      /*<<printexc.ml:267:30>>*/ return bt.length - 1;
     /*<<printexc.ml:267:45>>*/ }
    function get_backtrace(param){
      /*<<printexc.ml:278:23>>*/ return  /*<<printexc.ml:278:47>>*/ raw_backtrace_to_string
-             /*<<printexc.ml:278:47>>*/ ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra
-               /*<<printexc.ml:278:47>>*/ (0)) /*<<printexc.ml:278:69>>*/ ;
-    /*<<printexc.ml:278:69>>*/ }
+            (caml_get_exception_raw_backtra(0)) /*<<printexc.ml:278:69>>*/ ;
+   }
    function register_printer(fn){
      /*<<printexc.ml:284:2>>*/ for(;;){
      var
       old_printers =
-         /*<<printexc.ml:284:21>>*/  /*<<printexc.ml:284:21>>*/ caml_call1
-          /*<<printexc.ml:284:21>>*/ (Stdlib_Atomic[3], printers),
+         /*<<printexc.ml:284:21>>*/ caml_call1(Stdlib_Atomic[3], printers),
       new_printers =  /*<<printexc.ml:285:21>>*/ [0, fn, old_printers],
       success =
-         /*<<printexc.ml:286:16>>*/  /*<<printexc.ml:286:16>>*/ caml_call3
-          /*<<printexc.ml:286:16>>*/ (Stdlib_Atomic[6],
-          printers,
-          old_printers,
-          new_printers),
+         /*<<printexc.ml:286:16>>*/ caml_call3
+         (Stdlib_Atomic[6], printers, old_printers, new_printers),
       _I_ =  /*<<printexc.ml:287:2>>*/ 1 - success;
-     if(! _I_)
-       /*<<printexc.ml:287:2>>*/ return _I_ /*<<printexc.ml:287:2>>*/ ;
+     if(! _I_) return _I_;
     }
     /*<<printexc.ml:287:41>>*/ }
    function exn_slot(x){
      /*<<printexc.ml:292:2>>*/ return 0
-            ===
-              /*<<printexc.ml:293:5>>*/ caml_obj_tag
-               /*<<printexc.ml:293:5>>*/ (x)
+            ===  /*<<printexc.ml:293:5>>*/ caml_obj_tag(x)
             ? x[1]
             : x /*<<printexc.ml:293:44>>*/ ;
-    /*<<printexc.ml:293:44>>*/ }
+   }
    function exn_slot_id(x){
-    var
-     slot =
-        /*<<printexc.ml:296:13>>*/  /*<<printexc.ml:296:13>>*/ exn_slot
-         /*<<printexc.ml:296:13>>*/ (x);
-     /*<<printexc.ml:297:11>>*/ return slot[2] /*<<printexc.ml:297:11>>*/ ;
+    var slot =  /*<<printexc.ml:296:13>>*/ exn_slot(x);
+     /*<<printexc.ml:297:11>>*/ return slot[2];
     /*<<printexc.ml:297:36>>*/ }
    function exn_slot_name(x){
-    var
-     slot =
-        /*<<printexc.ml:300:13>>*/  /*<<printexc.ml:300:13>>*/ exn_slot
-         /*<<printexc.ml:300:13>>*/ (x);
-     /*<<printexc.ml:301:11>>*/ return slot[1] /*<<printexc.ml:301:11>>*/ ;
+    var slot =  /*<<printexc.ml:300:13>>*/ exn_slot(x);
+     /*<<printexc.ml:301:11>>*/ return slot[1];
     /*<<printexc.ml:301:39>>*/ }
    var
     errors =
@@ -27166,30 +22458,19 @@
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
        cst_Fatal_error_exception_s];
    function default_uncaught_exception_han(exn, raw_backtrace){
+    var _F_ =  /*<<printexc.ml:323:40>>*/ to_string(exn);
+     /*<<printexc.ml:323:2>>*/ caml_call2(Stdlib_Printf[3], _o_, _F_);
+     /*<<printexc.ml:324:2>>*/ print_raw_backtrace(Stdlib[40], raw_backtrace);
     var
-     _F_ =
-        /*<<printexc.ml:323:40>>*/  /*<<printexc.ml:323:40>>*/ to_string
-         /*<<printexc.ml:323:40>>*/ (exn);
-     /*<<printexc.ml:323:2>>*/  /*<<printexc.ml:323:2>>*/ caml_call2
-      /*<<printexc.ml:323:2>>*/ (Stdlib_Printf[3], _o_, _F_);
-     /*<<printexc.ml:324:2>>*/  /*<<printexc.ml:324:2>>*/ print_raw_backtrace
-      /*<<printexc.ml:324:2>>*/ (Stdlib[40], raw_backtrace);
-    var
-     status =
-        /*<<printexc.ml:325:15>>*/  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status
-         /*<<printexc.ml:325:15>>*/ (0);
+     status =  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status(0);
     if(status < 0){
      var
-      _G_ =
-         /*<<printexc.ml:327:26>>*/  /*<<printexc.ml:327:26>>*/ caml_call1
-          /*<<printexc.ml:327:26>>*/ (Stdlib[18], status),
+      _G_ =  /*<<printexc.ml:327:26>>*/ caml_call1(Stdlib[18], status),
       _H_ =  /*<<printexc.ml:327:18>>*/ caml_check_bound(errors, _G_)[1 + _G_];
-      /*<<printexc.ml:327:4>>*/  /*<<printexc.ml:327:4>>*/ caml_call1
-       /*<<printexc.ml:327:4>>*/ (Stdlib[53], _H_);
+      /*<<printexc.ml:327:4>>*/ caml_call1(Stdlib[53], _H_);
     }
-     /*<<printexc.ml:327:4>>*/ return  /*<<printexc.ml:327:4>>*/ caml_call1
-             /*<<printexc.ml:327:4>>*/ (Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
-    /*<<printexc.ml:328:14>>*/ }
+    return caml_call1(Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
+   }
    var
     uncaught_exception_handler =
        /*<<printexc.ml:330:33>>*/ [0, default_uncaught_exception_han];
@@ -27218,47 +22499,33 @@
        raw_backtrace =
          debugger_in_use
           ? empty_backtrace
-          :  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra
-             /*<<printexc.ml:338:4>>*/ (0);
+          :  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0);
        /*<<printexc.ml:352:4>>*/ try{
-        /*<<printexc.ml:352:9>>*/  /*<<printexc.ml:352:9>>*/ caml_call1
-         /*<<printexc.ml:352:9>>*/ (Stdlib[103], 0);
+        /*<<printexc.ml:352:9>>*/ caml_call1(Stdlib[103], 0);
       }
       catch(_E_){}
        /*<<printexc.ml:353:4>>*/ try{
        var
         _A_ =
-           /*<<printexc.ml:354:6>>*/  /*<<printexc.ml:354:6>>*/ caml_call2
-            /*<<printexc.ml:354:6>>*/ (uncaught_exception_handler[1],
-            exn$0,
-            raw_backtrace),
+           /*<<printexc.ml:354:6>>*/ caml_call2
+           (uncaught_exception_handler[1], exn$0, raw_backtrace),
         _z_ = _A_;
       }
       catch(exn$1){
        var
         exn = caml_wrap_exception(exn$1),
         raw_backtrace$0 =
-           /*<<printexc.ml:338:4>>*/  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra
-            /*<<printexc.ml:338:4>>*/ (0),
-        _x_ =
-           /*<<printexc.ml:357:44>>*/  /*<<printexc.ml:357:44>>*/ to_string
-            /*<<printexc.ml:357:44>>*/ (exn$0);
-        /*<<printexc.ml:357:6>>*/  /*<<printexc.ml:357:6>>*/ caml_call2
-         /*<<printexc.ml:357:6>>*/ (Stdlib_Printf[3], _p_, _x_);
-        /*<<printexc.ml:358:6>>*/  /*<<printexc.ml:358:6>>*/ print_raw_backtrace
-         /*<<printexc.ml:358:6>>*/ (Stdlib[40], raw_backtrace);
+           /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0),
+        _x_ =  /*<<printexc.ml:357:44>>*/ to_string(exn$0);
+        /*<<printexc.ml:357:6>>*/ caml_call2(Stdlib_Printf[3], _p_, _x_);
+        /*<<printexc.ml:358:6>>*/ print_raw_backtrace
+        (Stdlib[40], raw_backtrace);
+       var _y_ =  /*<<printexc.ml:360:8>>*/ to_string(exn);
+        /*<<printexc.ml:359:6>>*/ caml_call2(Stdlib_Printf[3], _q_, _y_);
+        /*<<printexc.ml:361:6>>*/ print_raw_backtrace
+        (Stdlib[40], raw_backtrace$0);
        var
-        _y_ =
-           /*<<printexc.ml:360:8>>*/  /*<<printexc.ml:360:8>>*/ to_string
-            /*<<printexc.ml:360:8>>*/ (exn);
-        /*<<printexc.ml:359:6>>*/  /*<<printexc.ml:359:6>>*/ caml_call2
-         /*<<printexc.ml:359:6>>*/ (Stdlib_Printf[3], _q_, _y_);
-        /*<<printexc.ml:361:6>>*/  /*<<printexc.ml:361:6>>*/ print_raw_backtrace
-         /*<<printexc.ml:361:6>>*/ (Stdlib[40], raw_backtrace$0);
-       var
-        _z_ =
-           /*<<printexc.ml:362:6>>*/ caml_call1
-            /*<<printexc.ml:362:6>>*/ (Stdlib[63], Stdlib[40]);
+        _z_ =  /*<<printexc.ml:362:6>>*/ caml_call1(Stdlib[63], Stdlib[40]);
       }
       var _B_ = _z_;
      }
@@ -27268,17 +22535,14 @@
       var
        _B_ =
           /*<<printexc.ml:365:8>>*/ caml_call1
-           /*<<printexc.ml:365:8>>*/ (Stdlib[53],
-           cst_Fatal_error_out_of_memory_);
+          (Stdlib[53], cst_Fatal_error_out_of_memory_);
      }
-      /*<<printexc.ml:372:4>>*/ return _B_ /*<<printexc.ml:372:4>>*/ ;
-    }
-    catch(_C_){ /*<<printexc.ml:375:4>>*/ return 0 /*<<printexc.ml:375:4>>*/ ;
+      /*<<printexc.ml:372:4>>*/ return _B_;
     }
+    catch(_C_){ /*<<printexc.ml:375:4>>*/ return 0;}
     /*<<printexc.ml:375:6>>*/ }
-    /*<<printexc.ml:381:2>>*/  /*<<printexc.ml:381:2>>*/ runtime.caml_register_named_value
-     /*<<printexc.ml:381:2>>*/ ("Printexc.handle_uncaught_exception",
-     handle_uncaught_exception);
+    /*<<printexc.ml:381:2>>*/ runtime.caml_register_named_value
+    ("Printexc.handle_uncaught_exception", handle_uncaught_exception);
    var
     Stdlib_Printexc =
       [0,
@@ -27307,21 +22571,15 @@
         backtrace_slot_defname,
         format_backtrace_slot],
        raw_backtrace_length,
-       function(_u_, _t_){
-         /*<<?>>*/ return runtime.caml_raw_backtrace_slot(_u_, _t_);
-       },
-       function(_s_){
-         /*<<?>>*/ return runtime.caml_convert_raw_backtrace_slot(_s_);
-       },
-       function(_r_){
-         /*<<?>>*/ return runtime.caml_raw_backtrace_next_slot(_r_);
-       },
+       function(_u_, _t_){return runtime.caml_raw_backtrace_slot(_u_, _t_);},
+       function(_s_){return runtime.caml_convert_raw_backtrace_slot(_s_);},
+       function(_r_){return runtime.caml_raw_backtrace_next_slot(_r_);},
        exn_slot_id,
        exn_slot_name,
        string_of_extension_constructo];
    runtime.caml_register_global(43, Stdlib_Printexc, "Stdlib__Printexc");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Fun
@@ -27330,11 +22588,10 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_restore_raw_backtrace =  /*<<?>>*/ runtime.caml_restore_raw_backtrace,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
+    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)
@@ -27350,20 +22607,17 @@
     Stdlib_Printexc = global_data.Stdlib__Printexc,
     Stdlib = global_data.Stdlib;
    function const$0(c, param){
-     /*<<fun.ml:17:16>>*/ return c /*<<fun.ml:17:16>>*/ ;
+     /*<<fun.ml:17:16>>*/ return c;
     /*<<fun.ml:17:17>>*/ }
    function compose(f, g, x){
      /*<<fun.ml:18:20>>*/ return  /*<<fun.ml:18:22>>*/ caml_call1
-             /*<<fun.ml:18:22>>*/ (f,
-              /*<<fun.ml:18:22>>*/ caml_call1 /*<<fun.ml:18:22>>*/ (g, x)) /*<<fun.ml:18:27>>*/ ;
-    /*<<fun.ml:18:27>>*/ }
+            (f, caml_call1(g, x)) /*<<fun.ml:18:27>>*/ ;
+   }
    function flip(f, x, y){
-     /*<<fun.ml:19:17>>*/ return  /*<<fun.ml:19:17>>*/ caml_call2
-             /*<<fun.ml:19:17>>*/ (f, y, x) /*<<fun.ml:19:22>>*/ ;
-    /*<<fun.ml:19:22>>*/ }
+     /*<<fun.ml:19:17>>*/ return caml_call2(f, y, x) /*<<fun.ml:19:22>>*/ ;
+   }
    function negate(p, v){
-     /*<<fun.ml:20:17>>*/ return 1
-           -  /*<<fun.ml:20:21>>*/ caml_call1 /*<<fun.ml:20:21>>*/ (p, v) /*<<fun.ml:20:21>>*/ ;
+     /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v);
     /*<<fun.ml:20:26>>*/ }
    var
     Finally_raised =
@@ -27371,61 +22625,47 @@
        "Stdlib.Fun.Finally_raised",
        runtime.caml_fresh_oo_id(0)],
     cst_Fun_Finally_raised = "Fun.Finally_raised: ";
-    /*<<fun.ml:24:9>>*/  /*<<fun.ml:24:9>>*/ caml_call1
-     /*<<fun.ml:24:9>>*/ (Stdlib_Printexc[9],
+    /*<<fun.ml:24:9>>*/ caml_call1
+    (Stdlib_Printexc[9],
      function(param){
        /*<<fun.ml:24:38>>*/ if(param[1] !== Finally_raised)
-        /*<<fun.ml:26:7>>*/ return 0 /*<<fun.ml:26:7>>*/ ;
+        /*<<fun.ml:26:7>>*/ return 0;
       var
        exn = param[2],
-       _a_ =
-          /*<<fun.ml:25:55>>*/  /*<<fun.ml:25:55>>*/ caml_call1
-           /*<<fun.ml:25:55>>*/ (Stdlib_Printexc[1], exn);
+       _a_ =  /*<<fun.ml:25:55>>*/ caml_call1(Stdlib_Printexc[1], exn);
        /*<<fun.ml:25:24>>*/ return [0,
                /*<<fun.ml:25:29>>*/ caml_call2
-                /*<<fun.ml:25:29>>*/ (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:24>>*/ ;
+               (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:24>>*/ ;
       /*<<fun.ml:26:11>>*/ });
    var dummy = 0;
    function protect(finally$0, work){
     function finally_no_exn(param){
       /*<<fun.ml:30:4>>*/ try{
-       /*<<fun.ml:30:8>>*/  /*<<fun.ml:30:8>>*/ caml_call1
-        /*<<fun.ml:30:8>>*/ (finally$0, 0);
-       /*<<fun.ml:30:8>>*/ return /*<<fun.ml:30:8>>*/ ;
+       /*<<fun.ml:30:8>>*/ caml_call1(finally$0, 0);
+      return;
      }
      catch(e$0){
       var
        e = caml_wrap_exception(e$0),
-       bt =
-          /*<<fun.ml:31:15>>*/  /*<<fun.ml:31:15>>*/ caml_call1
-           /*<<fun.ml:31:15>>*/ (Stdlib_Printexc[12], 0),
+       bt =  /*<<fun.ml:31:15>>*/ caml_call1(Stdlib_Printexc[12], 0),
        exn =  /*<<fun.ml:32:36>>*/ [0, Finally_raised, e];
       caml_restore_raw_backtrace(exn, bt);
-       /*<<fun.ml:32:6>>*/ throw  /*<<fun.ml:32:6>>*/ caml_maybe_attach_backtrace
-              /*<<fun.ml:32:6>>*/ (exn, 0);
+       /*<<fun.ml:32:6>>*/ throw caml_maybe_attach_backtrace(exn, 0);
      }
      /*<<fun.ml:32:57>>*/ }
      /*<<fun.ml:34:2>>*/ try{
-     var
-      result =
-         /*<<fun.ml:34:8>>*/  /*<<fun.ml:34:8>>*/ caml_call1
-          /*<<fun.ml:34:8>>*/ (work, 0);
+     var result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
     }
     catch(work_exn$0){
      var
       work_exn = caml_wrap_exception(work_exn$0),
-      work_bt =
-         /*<<fun.ml:37:20>>*/  /*<<fun.ml:37:20>>*/ caml_call1
-          /*<<fun.ml:37:20>>*/ (Stdlib_Printexc[12], 0);
-      /*<<fun.ml:38:6>>*/  /*<<fun.ml:38:6>>*/ finally_no_exn
-       /*<<fun.ml:38:6>>*/ (0);
+      work_bt =  /*<<fun.ml:37:20>>*/ caml_call1(Stdlib_Printexc[12], 0);
+      /*<<fun.ml:38:6>>*/ finally_no_exn(0);
      caml_restore_raw_backtrace(work_exn, work_bt);
-      /*<<fun.ml:39:6>>*/ throw  /*<<fun.ml:39:6>>*/ caml_maybe_attach_backtrace
-             /*<<fun.ml:39:6>>*/ (work_exn, 0);
+      /*<<fun.ml:39:6>>*/ throw caml_maybe_attach_backtrace(work_exn, 0);
     }
-     /*<<fun.ml:35:14>>*/  /*<<fun.ml:35:14>>*/ finally_no_exn
-      /*<<fun.ml:35:14>>*/ (0);
-     /*<<fun.ml:35:14>>*/ return result /*<<fun.ml:35:14>>*/ ;
+     /*<<fun.ml:35:14>>*/ finally_no_exn(0);
+    return result;
     /*<<fun.ml:39:52>>*/ }
    var
     Stdlib_Fun = [0, const$0, compose, flip, negate, protect, Finally_raised];
@@ -27440,9 +22680,9 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst =  /*<<?>>*/ "\n",
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length;
+    runtime = globalThis.jsoo_runtime,
+    cst = "\n",
+    caml_ml_string_length = runtime.caml_ml_string_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -27542,114 +22782,73 @@
        [11, "heap_chunks: ", [4, 0, 0, 0, [12, 10, 0]]],
        "heap_chunks: %d\n"];
    function eventlog_pause(param){
-     /*<<gc.ml:65:24>>*/ return 0 /*<<gc.ml:65:24>>*/ ;
+     /*<<gc.ml:65:24>>*/ return 0;
     /*<<gc.ml:65:26>>*/ }
-   function eventlog_resume(param){
-     /*<<gc.ml:66:25>>*/ return 0 /*<<gc.ml:66:25>>*/ ;
+   function eventlog_resume(param){ /*<<gc.ml:66:25>>*/ return 0;
     /*<<gc.ml:66:27>>*/ }
    function print_stat(c){
-    var
-     st =
-        /*<<gc.ml:71:11>>*/  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat
-         /*<<gc.ml:71:11>>*/ (0);
-     /*<<gc.ml:72:2>>*/  /*<<gc.ml:72:2>>*/ caml_call3
-      /*<<gc.ml:72:2>>*/ (Stdlib_Printf[1], c, _a_, st[4]);
-     /*<<gc.ml:73:2>>*/  /*<<gc.ml:73:2>>*/ caml_call3
-      /*<<gc.ml:73:2>>*/ (Stdlib_Printf[1], c, _b_, st[5]);
-     /*<<gc.ml:74:2>>*/  /*<<gc.ml:74:2>>*/ caml_call3
-      /*<<gc.ml:74:2>>*/ (Stdlib_Printf[1], c, _c_, st[14]);
-     /*<<gc.ml:75:2>>*/  /*<<gc.ml:75:2>>*/ caml_call3
-      /*<<gc.ml:75:2>>*/ (Stdlib_Printf[1], c, _d_, st[17]);
-     /*<<gc.ml:76:2>>*/  /*<<gc.ml:76:2>>*/ caml_call2
-      /*<<gc.ml:76:2>>*/ (Stdlib_Printf[1], c, _e_);
+    var st =  /*<<gc.ml:71:11>>*/ runtime.caml_gc_stat(0);
+     /*<<gc.ml:72:2>>*/ caml_call3(Stdlib_Printf[1], c, _a_, st[4]);
+     /*<<gc.ml:73:2>>*/ caml_call3(Stdlib_Printf[1], c, _b_, st[5]);
+     /*<<gc.ml:74:2>>*/ caml_call3(Stdlib_Printf[1], c, _c_, st[14]);
+     /*<<gc.ml:75:2>>*/ caml_call3(Stdlib_Printf[1], c, _d_, st[17]);
+     /*<<gc.ml:76:2>>*/ caml_call2(Stdlib_Printf[1], c, _e_);
     var
      l1 =
-        /*<<gc.ml:77:25>>*/  /*<<gc.ml:77:25>>*/ caml_ml_string_length
-         /*<<gc.ml:77:25>>*/ ( /*<<gc.ml:77:25>>*/ caml_call2
-           /*<<gc.ml:77:25>>*/ (Stdlib_Printf[4], _f_, st[1]));
-     /*<<gc.ml:78:2>>*/  /*<<gc.ml:78:2>>*/ caml_call4
-      /*<<gc.ml:78:2>>*/ (Stdlib_Printf[1], c, _g_, l1, st[1]);
-     /*<<gc.ml:79:2>>*/  /*<<gc.ml:79:2>>*/ caml_call4
-      /*<<gc.ml:79:2>>*/ (Stdlib_Printf[1], c, _h_, l1, st[2]);
-     /*<<gc.ml:80:2>>*/  /*<<gc.ml:80:2>>*/ caml_call4
-      /*<<gc.ml:80:2>>*/ (Stdlib_Printf[1], c, _i_, l1, st[3]);
-     /*<<gc.ml:81:2>>*/  /*<<gc.ml:81:2>>*/ caml_call2
-      /*<<gc.ml:81:2>>*/ (Stdlib_Printf[1], c, _j_);
+        /*<<gc.ml:77:25>>*/ caml_ml_string_length
+        (caml_call2(Stdlib_Printf[4], _f_, st[1]));
+     /*<<gc.ml:78:2>>*/ caml_call4(Stdlib_Printf[1], c, _g_, l1, st[1]);
+     /*<<gc.ml:79:2>>*/ caml_call4(Stdlib_Printf[1], c, _h_, l1, st[2]);
+     /*<<gc.ml:80:2>>*/ caml_call4(Stdlib_Printf[1], c, _i_, l1, st[3]);
+     /*<<gc.ml:81:2>>*/ caml_call2(Stdlib_Printf[1], c, _j_);
     var
      l2 =
-        /*<<gc.ml:82:25>>*/  /*<<gc.ml:82:25>>*/ caml_ml_string_length
-         /*<<gc.ml:82:25>>*/ ( /*<<gc.ml:82:25>>*/ caml_call2
-           /*<<gc.ml:82:25>>*/ (Stdlib_Printf[4], _k_, st[15]));
-     /*<<gc.ml:83:2>>*/  /*<<gc.ml:83:2>>*/ caml_call4
-      /*<<gc.ml:83:2>>*/ (Stdlib_Printf[1], c, _l_, l2, st[15]);
-     /*<<gc.ml:84:2>>*/  /*<<gc.ml:84:2>>*/ caml_call4
-      /*<<gc.ml:84:2>>*/ (Stdlib_Printf[1], c, _m_, l2, st[6]);
-     /*<<gc.ml:85:2>>*/  /*<<gc.ml:85:2>>*/ caml_call4
-      /*<<gc.ml:85:2>>*/ (Stdlib_Printf[1], c, _n_, l2, st[8]);
-     /*<<gc.ml:86:2>>*/  /*<<gc.ml:86:2>>*/ caml_call4
-      /*<<gc.ml:86:2>>*/ (Stdlib_Printf[1], c, _o_, l2, st[10]);
-     /*<<gc.ml:87:2>>*/  /*<<gc.ml:87:2>>*/ caml_call4
-      /*<<gc.ml:87:2>>*/ (Stdlib_Printf[1], c, _p_, l2, st[12]);
-     /*<<gc.ml:88:2>>*/  /*<<gc.ml:88:2>>*/ caml_call4
-      /*<<gc.ml:88:2>>*/ (Stdlib_Printf[1], c, _q_, l2, st[13]);
-     /*<<gc.ml:89:2>>*/  /*<<gc.ml:89:2>>*/ caml_call2
-      /*<<gc.ml:89:2>>*/ (Stdlib_Printf[1], c, _r_);
-     /*<<gc.ml:90:2>>*/  /*<<gc.ml:90:2>>*/ caml_call3
-      /*<<gc.ml:90:2>>*/ (Stdlib_Printf[1], c, _s_, st[9]);
-     /*<<gc.ml:91:2>>*/  /*<<gc.ml:91:2>>*/ caml_call3
-      /*<<gc.ml:91:2>>*/ (Stdlib_Printf[1], c, _t_, st[11]);
+        /*<<gc.ml:82:25>>*/ caml_ml_string_length
+        (caml_call2(Stdlib_Printf[4], _k_, st[15]));
+     /*<<gc.ml:83:2>>*/ caml_call4(Stdlib_Printf[1], c, _l_, l2, st[15]);
+     /*<<gc.ml:84:2>>*/ caml_call4(Stdlib_Printf[1], c, _m_, l2, st[6]);
+     /*<<gc.ml:85:2>>*/ caml_call4(Stdlib_Printf[1], c, _n_, l2, st[8]);
+     /*<<gc.ml:86:2>>*/ caml_call4(Stdlib_Printf[1], c, _o_, l2, st[10]);
+     /*<<gc.ml:87:2>>*/ caml_call4(Stdlib_Printf[1], c, _p_, l2, st[12]);
+     /*<<gc.ml:88:2>>*/ caml_call4(Stdlib_Printf[1], c, _q_, l2, st[13]);
+     /*<<gc.ml:89:2>>*/ caml_call2(Stdlib_Printf[1], c, _r_);
+     /*<<gc.ml:90:2>>*/ caml_call3(Stdlib_Printf[1], c, _s_, st[9]);
+     /*<<gc.ml:91:2>>*/ caml_call3(Stdlib_Printf[1], c, _t_, st[11]);
     return caml_call3(Stdlib_Printf[1], c, _u_, st[7]) /*<<gc.ml:92:46>>*/ ;
-    /*<<gc.ml:92:46>>*/ }
+   }
    function allocated_bytes(param){
     var
-     match =
-        /*<<gc.ml:96:22>>*/  /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters
-         /*<<gc.ml:96:22>>*/ (0),
+     match =  /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters(0),
      ma = match[3],
      pro = match[2],
      mi = match[1];
-     /*<<gc.ml:97:2>>*/ return (mi + ma - pro) * (Stdlib_Sys[9] / 8 | 0) /*<<gc.ml:97:2>>*/ ;
+     /*<<gc.ml:97:2>>*/ return (mi + ma - pro) * (Stdlib_Sys[9] / 8 | 0);
     /*<<gc.ml:97:55>>*/ }
    function delete_alarm(a){
-     /*<<gc.ml:115:21>>*/ return  /*<<gc.ml:115:21>>*/ caml_call2
-             /*<<gc.ml:115:21>>*/ (Stdlib_Atomic[4], a, 0) /*<<gc.ml:115:39>>*/ ;
-    /*<<gc.ml:115:39>>*/ }
+     /*<<gc.ml:115:21>>*/ return caml_call2(Stdlib_Atomic[4], a, 0) /*<<gc.ml:115:39>>*/ ;
+   }
    function create_alarm(f){
-    var
-     _y_ =
-        /*<<gc.ml:118:24>>*/  /*<<gc.ml:118:24>>*/ caml_call1
-         /*<<gc.ml:118:24>>*/ (Stdlib_Atomic[1], 1);
-     /*<<gc.ml:119:2>>*/  /*<<gc.ml:119:2>>*/ caml_call1
-      /*<<gc.ml:119:2>>*/ (Stdlib_Domain[6],
+    var _y_ =  /*<<gc.ml:118:24>>*/ caml_call1(Stdlib_Atomic[1], 1);
+     /*<<gc.ml:119:2>>*/ caml_call1
+     (Stdlib_Domain[6],
       function(param){
-        /*<<gc.ml:119:28>>*/ return  /*<<gc.ml:115:17>>*/ delete_alarm
-                /*<<gc.ml:115:17>>*/ (_y_) /*<<gc.ml:119:52>>*/ ;
-       /*<<gc.ml:119:52>>*/ });
+        /*<<gc.ml:119:28>>*/ return  /*<<gc.ml:115:17>>*/ delete_alarm(_y_) /*<<gc.ml:119:52>>*/ ;
+      });
     return _y_;
     /*<<gc.ml:121:13>>*/ }
    var
     null_tracker =
        /*<<gc.ml:142:23>>*/ [0,
-       function(param){
-         /*<<gc.ml:143:30>>*/ return 0 /*<<gc.ml:143:30>>*/ ;
-        /*<<gc.ml:143:34>>*/ },
-       function(param){
-         /*<<gc.ml:144:30>>*/ return 0 /*<<gc.ml:144:30>>*/ ;
-        /*<<gc.ml:144:34>>*/ },
-       function(param){
-         /*<<gc.ml:145:26>>*/ return 0 /*<<gc.ml:145:26>>*/ ;
-        /*<<gc.ml:145:30>>*/ },
-       function(param){
-         /*<<gc.ml:146:32>>*/ return 0 /*<<gc.ml:146:32>>*/ ;
-        /*<<gc.ml:146:34>>*/ },
-       function(param){
-         /*<<gc.ml:147:32>>*/ return 0 /*<<gc.ml:147:32>>*/ ;
-        /*<<gc.ml:147:34>>*/ }];
+       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 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:158:6>>*/ (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:50>>*/ ;
-    /*<<gc.ml:158:50>>*/ }
+     /*<<gc.ml:158:6>>*/ return runtime.caml_memprof_start
+            (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:50>>*/ ;
+   }
    var
     Stdlib_Gc =
       [0,
@@ -27659,7 +22858,7 @@
          /*<<?>>*/ return runtime.caml_final_register(_x_, _w_);
        },
        runtime.caml_final_register_called_without_value,
-       function(_v_){ /*<<?>>*/ return runtime.caml_final_release(_v_);},
+       function(_v_){return runtime.caml_final_release(_v_);},
        create_alarm,
        delete_alarm,
        eventlog_pause,
@@ -27671,7 +22870,7 @@
         runtime.caml_memprof_discard]];
    runtime.caml_register_global(27, Stdlib_Gc, "Stdlib__Gc");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__In_channel
@@ -27680,14 +22879,13 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_ba_dim_1 =  /*<<?>>*/ runtime.caml_ba_dim_1,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_bytes_length =  /*<<?>>*/ runtime.caml_ml_bytes_length,
-    caml_ml_input_bigarray =  /*<<?>>*/ runtime.caml_ml_input_bigarray,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    caml_ba_dim_1 = runtime.caml_ba_dim_1,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_bytes_length = runtime.caml_ml_bytes_length,
+    caml_ml_input_bigarray = runtime.caml_ml_input_bigarray,
+    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)
@@ -27724,36 +22922,30 @@
     open_text = Stdlib[79],
     open_gen = Stdlib[81];
    function with_open(openfun, s, f){
-    var
-     ic =
-        /*<<in_channel.ml:35:11>>*/  /*<<in_channel.ml:35:11>>*/ caml_call1
-         /*<<in_channel.ml:35:11>>*/ (openfun, s);
-     /*<<in_channel.ml:37:4>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call2
-             /*<<in_channel.ml:37:4>>*/ (Stdlib_Fun[5],
+    var ic =  /*<<in_channel.ml:35:11>>*/ caml_call1(openfun, s);
+     /*<<in_channel.ml:37:4>>*/ return caml_call2
+            (Stdlib_Fun[5],
              function(param){
                /*<<in_channel.ml:36:34>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call1
-                       /*<<in_channel.ml:37:4>>*/ (Stdlib[94], ic) /*<<in_channel.ml:36:58>>*/ ;
-              /*<<in_channel.ml:36:58>>*/ },
+                      (Stdlib[94], ic) /*<<in_channel.ml:36:58>>*/ ;
+             },
              function(param){
                /*<<in_channel.ml:37:15>>*/ return  /*<<in_channel.ml:36:2>>*/ caml_call1
-                       /*<<in_channel.ml:36:2>>*/ (f, ic) /*<<in_channel.ml:37:19>>*/ ;
-              /*<<in_channel.ml:37:19>>*/ }) /*<<in_channel.ml:37:20>>*/ ;
-    /*<<in_channel.ml:37:20>>*/ }
+                      (f, ic) /*<<in_channel.ml:37:19>>*/ ;
+             }) /*<<in_channel.ml:37:20>>*/ ;
+   }
    function with_open_bin(s, f){
-     /*<<in_channel.ml:40:2>>*/ return  /*<<in_channel.ml:40:2>>*/ with_open
-             /*<<in_channel.ml:40:2>>*/ (Stdlib[80], s, f) /*<<in_channel.ml:40:34>>*/ ;
-    /*<<in_channel.ml:40:34>>*/ }
+     /*<<in_channel.ml:40:2>>*/ return with_open(Stdlib[80], s, f) /*<<in_channel.ml:40:34>>*/ ;
+   }
    function with_open_text(s, f){
-     /*<<in_channel.ml:43:2>>*/ return  /*<<in_channel.ml:43:2>>*/ with_open
-             /*<<in_channel.ml:43:2>>*/ (Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
-    /*<<in_channel.ml:43:30>>*/ }
+     /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
+   }
    function with_open_gen(flags, perm, s, f){
-     /*<<in_channel.ml:46:2>>*/ return  /*<<in_channel.ml:46:2>>*/ with_open
-             /*<<in_channel.ml:46:2>>*/ ( /*<<in_channel.ml:46:12>>*/ caml_call2
-               /*<<in_channel.ml:46:12>>*/ (Stdlib[81], flags, perm),
+     /*<<in_channel.ml:46:2>>*/ return with_open
+            ( /*<<in_channel.ml:46:12>>*/ caml_call2(Stdlib[81], flags, perm),
              s,
              f) /*<<in_channel.ml:46:47>>*/ ;
-    /*<<in_channel.ml:46:47>>*/ }
+   }
    var
     seek = Stdlib[96][4],
     pos = Stdlib[96][5],
@@ -27762,48 +22954,36 @@
     close_noerr = Stdlib[94];
    function input_char(ic){
      /*<<in_channel.ml:55:2>>*/ try{
-     var
-      c =
-         /*<<in_channel.ml:55:8>>*/  /*<<in_channel.ml:55:8>>*/ caml_call1
-          /*<<in_channel.ml:55:8>>*/ (Stdlib[82], ic);
+     var c =  /*<<in_channel.ml:55:8>>*/ caml_call1(Stdlib[82], ic);
     }
     catch(_x_){
      var _w_ = caml_wrap_exception(_x_);
-     if(_w_ === Stdlib[12])
-       /*<<in_channel.ml:57:29>>*/ return 0 /*<<in_channel.ml:57:29>>*/ ;
+     if(_w_ === Stdlib[12])  /*<<in_channel.ml:57:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_w_, 0);
     }
-     /*<<in_channel.ml:56:9>>*/ return [0, c] /*<<in_channel.ml:56:9>>*/ ;
+     /*<<in_channel.ml:56:9>>*/ return [0, c];
     /*<<in_channel.ml:57:33>>*/ }
    function input_byte(ic){
      /*<<in_channel.ml:60:2>>*/ try{
-     var
-      n =
-         /*<<in_channel.ml:60:8>>*/  /*<<in_channel.ml:60:8>>*/ caml_call1
-          /*<<in_channel.ml:60:8>>*/ (Stdlib[87], ic);
+     var n =  /*<<in_channel.ml:60:8>>*/ caml_call1(Stdlib[87], ic);
     }
     catch(_v_){
      var _u_ = caml_wrap_exception(_v_);
-     if(_u_ === Stdlib[12])
-       /*<<in_channel.ml:62:29>>*/ return 0 /*<<in_channel.ml:62:29>>*/ ;
+     if(_u_ === Stdlib[12])  /*<<in_channel.ml:62:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_u_, 0);
     }
-     /*<<in_channel.ml:61:9>>*/ return [0, n] /*<<in_channel.ml:61:9>>*/ ;
+     /*<<in_channel.ml:61:9>>*/ return [0, n];
     /*<<in_channel.ml:62:33>>*/ }
    function input_line(ic){
      /*<<in_channel.ml:65:2>>*/ try{
-     var
-      s =
-         /*<<in_channel.ml:65:8>>*/  /*<<in_channel.ml:65:8>>*/ caml_call1
-          /*<<in_channel.ml:65:8>>*/ (Stdlib[83], ic);
+     var s =  /*<<in_channel.ml:65:8>>*/ caml_call1(Stdlib[83], ic);
     }
     catch(_t_){
      var _s_ = caml_wrap_exception(_t_);
-     if(_s_ === Stdlib[12])
-       /*<<in_channel.ml:67:29>>*/ return 0 /*<<in_channel.ml:67:29>>*/ ;
+     if(_s_ === Stdlib[12])  /*<<in_channel.ml:67:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_s_, 0);
     }
-     /*<<in_channel.ml:66:9>>*/ return [0, s] /*<<in_channel.ml:66:9>>*/ ;
+     /*<<in_channel.ml:66:9>>*/ return [0, s];
     /*<<in_channel.ml:67:33>>*/ }
    var
     input =  /*<<in_channel.ml:64:15>>*/ Stdlib[84],
@@ -27818,27 +22998,20 @@
      (0 <= ofs
       &&
        0 <= len
-       &&
-        ( /*<<in_channel.ml:76:33>>*/ caml_ba_dim_1
-          /*<<in_channel.ml:76:33>>*/ (buf)
-        - len
-        | 0)
-        >= ofs)
-      /*<<in_channel.ml:78:7>>*/ return  /*<<in_channel.ml:78:7>>*/ caml_ml_input_bigarray
-              /*<<in_channel.ml:78:7>>*/ (ic, buf, ofs, len) /*<<in_channel.ml:78:43>>*/ ;
-     /*<<in_channel.ml:77:7>>*/ return  /*<<in_channel.ml:77:7>>*/ caml_call1
-             /*<<in_channel.ml:77:7>>*/ (Stdlib[1], cst_input_bigarray) /*<<in_channel.ml:78:43>>*/ ;
-    /*<<in_channel.ml:78:43>>*/ }
+       && ( /*<<in_channel.ml:76:33>>*/ caml_ba_dim_1(buf) - len | 0) >= ofs)
+      /*<<in_channel.ml:78:7>>*/ return caml_ml_input_bigarray
+             (ic, buf, ofs, len) /*<<in_channel.ml:78:43>>*/ ;
+     /*<<in_channel.ml:77:7>>*/ return caml_call1
+            (Stdlib[1], cst_input_bigarray) /*<<in_channel.ml:78:43>>*/ ;
+   }
    function really_input(ic, buf, pos, len){
      /*<<in_channel.ml:81:2>>*/ try{
-      /*<<in_channel.ml:81:8>>*/  /*<<in_channel.ml:81:8>>*/ caml_call4
-       /*<<in_channel.ml:81:8>>*/ (Stdlib[85], ic, buf, pos, len);
-      /*<<in_channel.ml:82:10>>*/ return _a_ /*<<in_channel.ml:82:10>>*/ ;
+      /*<<in_channel.ml:81:8>>*/ caml_call4(Stdlib[85], ic, buf, pos, len);
+      /*<<in_channel.ml:82:10>>*/ return _a_;
     }
     catch(_r_){
      var _q_ = caml_wrap_exception(_r_);
-     if(_q_ === Stdlib[12])
-       /*<<in_channel.ml:83:29>>*/ return 0 /*<<in_channel.ml:83:29>>*/ ;
+     if(_q_ === Stdlib[12])  /*<<in_channel.ml:83:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_q_, 0);
     }
     /*<<in_channel.ml:83:33>>*/ }
@@ -27848,43 +23021,34 @@
       &&
        0 <= len$1
        &&
-        ( /*<<in_channel.ml:94:33>>*/ caml_ba_dim_1
-          /*<<in_channel.ml:94:33>>*/ (buf)
-        - len$1
-        | 0)
-        >= ofs$1){
+        ( /*<<in_channel.ml:94:33>>*/ caml_ba_dim_1(buf) - len$1 | 0) >= ofs$1){
      var ofs = ofs$1, len = len$1;
       /*<<in_channel.ml:86:2>>*/ for(;;){
-      if(0 >= len)
-        /*<<in_channel.ml:86:19>>*/ return _b_ /*<<in_channel.ml:86:19>>*/ ;
+      if(0 >= len)  /*<<in_channel.ml:86:19>>*/ return _b_;
       var
        r =
-          /*<<in_channel.ml:87:12>>*/  /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
-           /*<<in_channel.ml:87:12>>*/ (ic, buf, ofs, len);
+          /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
+          (ic, buf, ofs, len);
        /*<<in_channel.ml:88:4>>*/ if(0 === r)
-        /*<<in_channel.ml:89:9>>*/ return 0 /*<<in_channel.ml:89:9>>*/ ;
+        /*<<in_channel.ml:89:9>>*/ return 0;
       var len$0 = len - r | 0, ofs$0 = ofs + r | 0;
       ofs = ofs$0;
       len = len$0;
      }
     }
-     /*<<in_channel.ml:95:7>>*/ return  /*<<in_channel.ml:95:7>>*/ caml_call1
-             /*<<in_channel.ml:95:7>>*/ (Stdlib[1], cst_really_input_bigarray) /*<<in_channel.ml:96:50>>*/ ;
-    /*<<in_channel.ml:96:50>>*/ }
+     /*<<in_channel.ml:95:7>>*/ return caml_call1
+            (Stdlib[1], cst_really_input_bigarray) /*<<in_channel.ml:96:50>>*/ ;
+   }
    function really_input_string(ic, len){
      /*<<in_channel.ml:99:2>>*/ try{
-     var
-      s =
-         /*<<in_channel.ml:99:8>>*/  /*<<in_channel.ml:99:8>>*/ caml_call2
-          /*<<in_channel.ml:99:8>>*/ (Stdlib[86], ic, len);
+     var s =  /*<<in_channel.ml:99:8>>*/ caml_call2(Stdlib[86], ic, len);
     }
     catch(_p_){
      var _o_ = caml_wrap_exception(_p_);
-     if(_o_ === Stdlib[12])
-       /*<<in_channel.ml:101:29>>*/ return 0 /*<<in_channel.ml:101:29>>*/ ;
+     if(_o_ === Stdlib[12])  /*<<in_channel.ml:101:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_o_, 0);
     }
-     /*<<in_channel.ml:100:9>>*/ return [0, s] /*<<in_channel.ml:100:9>>*/ ;
+     /*<<in_channel.ml:100:9>>*/ return [0, s];
     /*<<in_channel.ml:101:33>>*/ }
    function read_upto(ic, buf, ofs, len){
     var ofs$0 = ofs, len$0 = len;
@@ -27892,8 +23056,8 @@
      if(0 !== len$0){
       var
        r =
-          /*<<in_channel.ml:109:14>>*/  /*<<in_channel.ml:109:14>>*/ caml_call4
-           /*<<in_channel.ml:109:14>>*/ (Stdlib[84], ic, buf, ofs$0, len$0);
+          /*<<in_channel.ml:109:14>>*/ caml_call4
+          (Stdlib[84], ic, buf, ofs$0, len$0);
        /*<<in_channel.ml:110:6>>*/ if(0 !== r){
        var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
        ofs$0 = ofs$1;
@@ -27901,13 +23065,12 @@
        continue;
       }
      }
-      /*<<in_channel.ml:116:2>>*/ return ofs$0 - ofs | 0 /*<<in_channel.ml:116:2>>*/ ;
+      /*<<in_channel.ml:116:2>>*/ return ofs$0 - ofs | 0;
     }
     /*<<in_channel.ml:116:20>>*/ }
    function ensure(buf, ofs, n){
     var len = caml_ml_bytes_length(buf);
-    if((ofs + n | 0) <= len)
-      /*<<in_channel.ml:132:25>>*/ return buf /*<<in_channel.ml:132:25>>*/ ;
+    if((ofs + n | 0) <= len)  /*<<in_channel.ml:132:25>>*/ return buf;
     var new_len =  /*<<in_channel.ml:134:18>>*/ [0, len];
     for(;;){
      if(new_len[1] >= (ofs + n | 0)) break;
@@ -27922,27 +23085,18 @@
           < Stdlib_Sys[12]
           ? Stdlib_Sys[12]
           :  /*<<in_channel.ml:145:8>>*/ caml_call1
-             /*<<in_channel.ml:145:8>>*/ (Stdlib[2],
-             cst_In_channel_input_all_chann),
-     new_buf =
-        /*<<in_channel.ml:148:18>>*/  /*<<in_channel.ml:148:18>>*/ caml_create_bytes
-         /*<<in_channel.ml:148:18>>*/ (new_len$1);
-     /*<<in_channel.ml:149:4>>*/  /*<<in_channel.ml:149:4>>*/ caml_call5
-      /*<<in_channel.ml:149:4>>*/ (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
-     /*<<in_channel.ml:149:4>>*/ return new_buf /*<<in_channel.ml:149:4>>*/ ;
+            (Stdlib[2], cst_In_channel_input_all_chann),
+     new_buf =  /*<<in_channel.ml:148:18>>*/ caml_create_bytes(new_len$1);
+     /*<<in_channel.ml:149:4>>*/ caml_call5
+     (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
+    return new_buf;
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
     var chunk_size =  /*<<in_channel.ml:154:2>>*/ 65536;
      /*<<in_channel.ml:155:2>>*/ try{
      var
-      _k_ =
-         /*<<in_channel.ml:157:36>>*/  /*<<in_channel.ml:157:36>>*/ caml_call1
-          /*<<in_channel.ml:157:36>>*/ (Stdlib[91], ic),
-      _l_ =
-         /*<<in_channel.ml:157:6>>*/  /*<<in_channel.ml:157:6>>*/ caml_call1
-          /*<<in_channel.ml:157:6>>*/ (Stdlib[92], ic)
-        - _k_
-        | 0,
+      _k_ =  /*<<in_channel.ml:157:36>>*/ caml_call1(Stdlib[91], ic),
+      _l_ =  /*<<in_channel.ml:157:6>>*/ caml_call1(Stdlib[92], ic) - _k_ | 0,
       initial_size = _l_;
     }
     catch(_n_){
@@ -27957,69 +23111,44 @@
         : chunk_size,
      initial_size$1 =
        initial_size$0 <= Stdlib_Sys[12] ? initial_size$0 : Stdlib_Sys[12],
-     buf =
-        /*<<in_channel.ml:168:12>>*/  /*<<in_channel.ml:168:12>>*/ caml_create_bytes
-         /*<<in_channel.ml:168:12>>*/ (initial_size$1),
+     buf =  /*<<in_channel.ml:168:12>>*/ caml_create_bytes(initial_size$1),
      nread =
-        /*<<in_channel.ml:169:14>>*/  /*<<in_channel.ml:169:14>>*/ read_upto
-         /*<<in_channel.ml:169:14>>*/ (ic, buf, 0, initial_size$1);
+        /*<<in_channel.ml:169:14>>*/ read_upto(ic, buf, 0, initial_size$1);
     if(nread < initial_size$1)
-      /*<<in_channel.ml:171:4>>*/ return  /*<<in_channel.ml:171:4>>*/ caml_call3
-              /*<<in_channel.ml:171:4>>*/ (Stdlib_Bytes[8], buf, 0, nread) /*<<in_channel.ml:193:5>>*/ ;
+      /*<<in_channel.ml:171:4>>*/ return caml_call3
+             (Stdlib_Bytes[8], buf, 0, nread) /*<<in_channel.ml:193:5>>*/ ;
      /*<<in_channel.ml:172:7>>*/ try{
-     var
-      c =
-         /*<<in_channel.ml:173:10>>*/  /*<<in_channel.ml:173:10>>*/ caml_call1
-          /*<<in_channel.ml:173:10>>*/ (Stdlib[82], ic);
+     var c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);
     }
     catch(_m_){
      var _j_ = caml_wrap_exception(_m_);
      if(_j_ === Stdlib[12])
-       /*<<in_channel.ml:176:8>>*/ return  /*<<in_channel.ml:176:8>>*/ caml_call1
-               /*<<in_channel.ml:176:8>>*/ (Stdlib_Bytes[44], buf) /*<<in_channel.ml:193:5>>*/ ;
+       /*<<in_channel.ml:176:8>>*/ return caml_call1(Stdlib_Bytes[44], buf) /*<<in_channel.ml:193:5>>*/ ;
      throw caml_maybe_attach_backtrace(_j_, 0);
     }
-    var
-     buf$2 =
-        /*<<in_channel.ml:190:18>>*/  /*<<in_channel.ml:190:18>>*/ ensure
-         /*<<in_channel.ml:190:18>>*/ (buf, nread, 65537);
-     /*<<in_channel.ml:191:8>>*/  /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set
-      /*<<in_channel.ml:191:8>>*/ (buf$2, nread, c);
-    var
-     ofs$1 =  /*<<in_channel.ml:191:8>>*/ nread + 1 | 0,
-     buf$0 = buf$2,
-     ofs = ofs$1;
+    var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
+     /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set(buf$2, nread, c);
+    var ofs$1 = nread + 1 | 0, buf$0 = buf$2, ofs = ofs$1;
      /*<<in_channel.ml:180:10>>*/ for(;;){
      var
-      buf$1 =
-         /*<<in_channel.ml:180:20>>*/  /*<<in_channel.ml:180:20>>*/ ensure
-          /*<<in_channel.ml:180:20>>*/ (buf$0, ofs, chunk_size),
+      buf$1 =  /*<<in_channel.ml:180:20>>*/ ensure(buf$0, ofs, chunk_size),
       rem = caml_ml_bytes_length(buf$1) - ofs | 0,
-      r =
-         /*<<in_channel.ml:184:18>>*/  /*<<in_channel.ml:184:18>>*/ read_upto
-          /*<<in_channel.ml:184:18>>*/ (ic, buf$1, ofs, rem);
+      r =  /*<<in_channel.ml:184:18>>*/ read_upto(ic, buf$1, ofs, rem);
      if(r < rem)
-       /*<<in_channel.ml:180:20>>*/ return  /*<<in_channel.ml:180:20>>*/ caml_call3
-               /*<<in_channel.ml:180:20>>*/ (Stdlib_Bytes[8],
-               buf$1,
-               0,
-               ofs + r | 0) /*<<in_channel.ml:193:5>>*/ ;
+       /*<<in_channel.ml:180:20>>*/ return caml_call3
+              (Stdlib_Bytes[8], buf$1, 0, ofs + r | 0) /*<<in_channel.ml:193:5>>*/ ;
      var ofs$0 = ofs + rem | 0;
      buf$0 = buf$1;
      ofs = ofs$0;
     }
-    /*<<in_channel.ml:193:5>>*/ }
+   }
    function input_lines(ic){
      /*<<in_channel.ml:196:2>>*/ try{
-     var
-      line =
-         /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ caml_call1
-          /*<<in_channel.ml:196:8>>*/ (Stdlib[83], ic);
+     var line =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
     }
     catch(_h_){
      var _e_ = caml_wrap_exception(_h_);
-     if(_e_ === Stdlib[12])
-       /*<<in_channel.ml:198:29>>*/ return 0 /*<<in_channel.ml:198:29>>*/ ;
+     if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
      throw caml_maybe_attach_backtrace(_e_, 0);
     }
     var
@@ -28027,17 +23156,13 @@
      dst = block,
      offset = 1;
      /*<<in_channel.ml:196:2>>*/ for(;;){
-      /*<<in_channel.ml:196:2>>*/ try{
-      var
-       line$0 =
-          /*<<in_channel.ml:196:8>>*/  /*<<in_channel.ml:196:8>>*/ caml_call1
-           /*<<in_channel.ml:196:8>>*/ (Stdlib[83], ic);
+     try{var line$0 =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
      }
      catch(_g_){
       var _f_ = caml_wrap_exception(_g_);
       if(_f_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_f_, 0);
       dst[1 + offset] = 0;
-       /*<<in_channel.ml:197:20>>*/ return block /*<<in_channel.ml:197:20>>*/ ;
+       /*<<in_channel.ml:197:20>>*/ return block;
      }
      var dst$0 =  /*<<in_channel.ml:197:12>>*/ [0, line$0, 24029];
      dst[1 + offset] = dst$0;
@@ -28048,22 +23173,13 @@
    function fold_lines(f, accu, ic){
     var accu$0 = accu;
      /*<<in_channel.ml:201:2>>*/ for(;;){
-      /*<<in_channel.ml:201:2>>*/ try{
-      var
-       line =
-          /*<<in_channel.ml:201:8>>*/  /*<<in_channel.ml:201:8>>*/ caml_call1
-           /*<<in_channel.ml:201:8>>*/ (Stdlib[83], ic);
-     }
+     try{var line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);}
      catch(_d_){
       var _c_ = caml_wrap_exception(_d_);
-      if(_c_ === Stdlib[12])
-        /*<<in_channel.ml:203:29>>*/ return accu$0 /*<<in_channel.ml:203:29>>*/ ;
+      if(_c_ === Stdlib[12])  /*<<in_channel.ml:203:29>>*/ return accu$0;
       throw caml_maybe_attach_backtrace(_c_, 0);
      }
-     var
-      accu$1 =
-         /*<<in_channel.ml:202:25>>*/  /*<<in_channel.ml:202:25>>*/ caml_call2
-          /*<<in_channel.ml:202:25>>*/ (f, accu$0, line);
+     var accu$1 =  /*<<in_channel.ml:202:25>>*/ caml_call2(f, accu$0, line);
      accu$0 = accu$1;
     }
     /*<<in_channel.ml:203:33>>*/ }
@@ -28107,7 +23223,7 @@
 (function
   (globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime;
+   var runtime = globalThis.jsoo_runtime;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -28128,36 +23244,30 @@
     open_text = Stdlib[60],
     open_gen = Stdlib[62];
    function with_open(openfun, s, f){
-    var
-     oc =
-        /*<<out_channel.ml:36:11>>*/  /*<<out_channel.ml:36:11>>*/ caml_call1
-         /*<<out_channel.ml:36:11>>*/ (openfun, s);
-     /*<<out_channel.ml:38:4>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call2
-             /*<<out_channel.ml:38:4>>*/ (Stdlib_Fun[5],
+    var oc =  /*<<out_channel.ml:36:11>>*/ caml_call1(openfun, s);
+     /*<<out_channel.ml:38:4>>*/ return caml_call2
+            (Stdlib_Fun[5],
              function(param){
                /*<<out_channel.ml:37:34>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call1
-                       /*<<out_channel.ml:38:4>>*/ (Stdlib[77], oc) /*<<out_channel.ml:37:59>>*/ ;
-              /*<<out_channel.ml:37:59>>*/ },
+                      (Stdlib[77], oc) /*<<out_channel.ml:37:59>>*/ ;
+             },
              function(param){
                /*<<out_channel.ml:38:15>>*/ return  /*<<out_channel.ml:37:2>>*/ caml_call1
-                       /*<<out_channel.ml:37:2>>*/ (f, oc) /*<<out_channel.ml:38:19>>*/ ;
-              /*<<out_channel.ml:38:19>>*/ }) /*<<out_channel.ml:38:20>>*/ ;
-    /*<<out_channel.ml:38:20>>*/ }
+                      (f, oc) /*<<out_channel.ml:38:19>>*/ ;
+             }) /*<<out_channel.ml:38:20>>*/ ;
+   }
    function with_open_bin(s, f){
-     /*<<out_channel.ml:41:2>>*/ return  /*<<out_channel.ml:41:2>>*/ with_open
-             /*<<out_channel.ml:41:2>>*/ (Stdlib[61], s, f) /*<<out_channel.ml:41:35>>*/ ;
-    /*<<out_channel.ml:41:35>>*/ }
+     /*<<out_channel.ml:41:2>>*/ return with_open(Stdlib[61], s, f) /*<<out_channel.ml:41:35>>*/ ;
+   }
    function with_open_text(s, f){
-     /*<<out_channel.ml:44:2>>*/ return  /*<<out_channel.ml:44:2>>*/ with_open
-             /*<<out_channel.ml:44:2>>*/ (Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
-    /*<<out_channel.ml:44:31>>*/ }
+     /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
+   }
    function with_open_gen(flags, perm, s, f){
-     /*<<out_channel.ml:47:2>>*/ return  /*<<out_channel.ml:47:2>>*/ with_open
-             /*<<out_channel.ml:47:2>>*/ ( /*<<out_channel.ml:47:12>>*/ caml_call2
-               /*<<out_channel.ml:47:12>>*/ (Stdlib[62], flags, perm),
+     /*<<out_channel.ml:47:2>>*/ return with_open
+            ( /*<<out_channel.ml:47:12>>*/ caml_call2(Stdlib[62], flags, perm),
              s,
              f) /*<<out_channel.ml:47:48>>*/ ;
-    /*<<out_channel.ml:47:48>>*/ }
+   }
    var
     seek = Stdlib[96][1],
     pos = Stdlib[96][2],
@@ -28179,16 +23289,13 @@
       &&
        0 <= len
        &&
-        ( /*<<out_channel.ml:67:33>>*/ runtime.caml_ba_dim_1
-          /*<<out_channel.ml:67:33>>*/ (buf)
-        - len
-        | 0)
+        ( /*<<out_channel.ml:67:33>>*/ runtime.caml_ba_dim_1(buf) - len | 0)
         >= ofs)
-      /*<<out_channel.ml:69:7>>*/ return  /*<<out_channel.ml:69:7>>*/ runtime.caml_ml_output_bigarray
-              /*<<out_channel.ml:69:7>>*/ (oc, buf, ofs, len) /*<<out_channel.ml:69:44>>*/ ;
-     /*<<out_channel.ml:68:7>>*/ return  /*<<out_channel.ml:68:7>>*/ caml_call1
-             /*<<out_channel.ml:68:7>>*/ (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
-    /*<<out_channel.ml:69:44>>*/ }
+      /*<<out_channel.ml:69:7>>*/ return runtime.caml_ml_output_bigarray
+             (oc, buf, ofs, len) /*<<out_channel.ml:69:44>>*/ ;
+     /*<<out_channel.ml:68:7>>*/ return caml_call1
+            (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
+   }
    var
     set_binary_mode =  /*<<out_channel.ml:66:20>>*/ Stdlib[78],
     Stdlib_Out_channel =
@@ -28231,22 +23338,21 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst =  /*<<?>>*/ "",
-    cst_Digest_of_hex$1 =  /*<<?>>*/ "Digest.of_hex",
-    cst_Digest_substring$1 =  /*<<?>>*/ "Digest.substring",
-    cst_Digest_to_hex$1 =  /*<<?>>*/ "Digest.to_hex",
-    caml_blake2_final =  /*<<?>>*/ runtime.caml_blake2_final,
-    caml_blake2_string =  /*<<?>>*/ runtime.caml_blake2_string,
-    caml_blake2_update =  /*<<?>>*/ runtime.caml_blake2_update,
-    caml_bytes_unsafe_set =  /*<<?>>*/ runtime.caml_bytes_unsafe_set,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_md5_chan =  /*<<?>>*/ runtime.caml_md5_chan,
-    caml_md5_string =  /*<<?>>*/ runtime.caml_md5_string,
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length,
-    caml_string_get =  /*<<?>>*/ runtime.caml_string_get;
+    runtime = globalThis.jsoo_runtime,
+    cst = "",
+    cst_Digest_of_hex$1 = "Digest.of_hex",
+    cst_Digest_substring$1 = "Digest.substring",
+    cst_Digest_to_hex$1 = "Digest.to_hex",
+    caml_blake2_final = runtime.caml_blake2_final,
+    caml_blake2_string = runtime.caml_blake2_string,
+    caml_blake2_update = runtime.caml_blake2_update,
+    caml_bytes_unsafe_set = runtime.caml_bytes_unsafe_set,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_md5_chan = runtime.caml_md5_chan,
+    caml_md5_string = runtime.caml_md5_string,
+    caml_ml_string_length = runtime.caml_ml_string_length,
+    caml_string_get = runtime.caml_string_get;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -28279,40 +23385,29 @@
     function char_hex(n){
      var _l_ = 10 <= n ? (97 + n | 0) - 10 | 0 : 48 + n | 0;
      return caml_call1(Stdlib_Char[1], _l_) /*<<digest.ml:21:52>>*/ ;
-     /*<<digest.ml:21:52>>*/ }
+    }
     var
-     len =
-        /*<<digest.ml:22:2>>*/  /*<<digest.ml:22:2>>*/ caml_ml_string_length
-         /*<<digest.ml:22:2>>*/ (d),
-     result =
-        /*<<digest.ml:23:15>>*/  /*<<digest.ml:23:15>>*/ caml_create_bytes
-         /*<<digest.ml:23:15>>*/ (len * 2 | 0),
+     len =  /*<<digest.ml:22:2>>*/ caml_ml_string_length(d),
+     result =  /*<<digest.ml:23:15>>*/ caml_create_bytes(len * 2 | 0),
      _j_ =  /*<<digest.ml:24:2>>*/ len - 1 | 0,
      _i_ =  /*<<digest.ml:23:15>>*/ 0;
     if(_j_ >= 0){
      var i = _i_;
      for(;;){
-      var
-       x =
-          /*<<digest.ml:25:22>>*/  /*<<digest.ml:25:22>>*/ caml_string_get
-           /*<<digest.ml:25:22>>*/ (d, i);
+      var x =  /*<<digest.ml:25:22>>*/ caml_string_get(d, i);
       caml_bytes_unsafe_set
-       (result,
-        i * 2 | 0,
-         /*<<digest.ml:26:34>>*/ char_hex
-          /*<<digest.ml:26:34>>*/ (x >>> 4 | 0));
+       (result, i * 2 | 0,  /*<<digest.ml:26:34>>*/ char_hex(x >>> 4 | 0));
       caml_bytes_unsafe_set
        (result,
         (i * 2 | 0) + 1 | 0,
-         /*<<digest.ml:27:36>>*/ char_hex /*<<digest.ml:27:36>>*/ (x & 15));
+         /*<<digest.ml:27:36>>*/ char_hex(x & 15));
       var _k_ =  /*<<digest.ml:24:2>>*/ i + 1 | 0;
       if(_j_ === i) break;
       i = _k_;
      }
     }
-     /*<<digest.ml:29:2>>*/ return  /*<<digest.ml:29:2>>*/ caml_call1
-             /*<<digest.ml:29:2>>*/ (Stdlib_Bytes[44], result) /*<<digest.ml:29:31>>*/ ;
-    /*<<digest.ml:29:31>>*/ }
+     /*<<digest.ml:29:2>>*/ return caml_call1(Stdlib_Bytes[44], result) /*<<digest.ml:29:31>>*/ ;
+   }
    function string_of_hex(s){
     function digit(c){
       /*<<digest.ml:33:4>>*/ if(65 <= c){
@@ -28322,52 +23417,43 @@
       else if(71 > c) return (c - 65 | 0) + 10 | 0;
      }
      else if(9 >= c - 48 >>> 0) return c - 48 | 0;
-      /*<<digest.ml:37:11>>*/ return  /*<<digest.ml:37:11>>*/ caml_call1
-              /*<<digest.ml:37:11>>*/ (Stdlib[1], cst_Digest_of_hex) /*<<digest.ml:37:38>>*/ ;
-     /*<<digest.ml:37:38>>*/ }
-     /*<<digest.ml:39:36>>*/ return  /*<<digest.ml:39:36>>*/ caml_call2
-             /*<<digest.ml:39:36>>*/ (Stdlib_String[2],
+      /*<<digest.ml:37:11>>*/ return caml_call1(Stdlib[1], cst_Digest_of_hex) /*<<digest.ml:37:38>>*/ ;
+    }
+     /*<<digest.ml:39:36>>*/ return caml_call2
+            (Stdlib_String[2],
              caml_ml_string_length(s) / 2 | 0,
              function(i){
               var
                i$0 = 2 * i | 0,
                _g_ =
-                  /*<<digest.ml:38:35>>*/  /*<<digest.ml:38:35>>*/ digit
-                   /*<<digest.ml:38:35>>*/ ( /*<<digest.ml:38:41>>*/ caml_string_get
-                     /*<<digest.ml:38:41>>*/ (s, i$0 + 1 | 0)),
+                  /*<<digest.ml:38:35>>*/ digit
+                  ( /*<<digest.ml:38:41>>*/ caml_string_get(s, i$0 + 1 | 0)),
                _h_ =
                  ( /*<<digest.ml:38:15>>*/ digit
-                   /*<<digest.ml:38:15>>*/ ( /*<<digest.ml:38:21>>*/ caml_string_get
-                     /*<<digest.ml:38:21>>*/ (s, i$0))
+                  ( /*<<digest.ml:38:21>>*/ caml_string_get(s, i$0))
                  << 4)
                  + _g_
                  | 0;
-               /*<<digest.ml:39:55>>*/ return  /*<<digest.ml:39:55>>*/ caml_call1
-                       /*<<digest.ml:39:55>>*/ (Stdlib_Char[1], _h_) /*<<digest.ml:39:69>>*/ ;
-              /*<<digest.ml:39:69>>*/ }) /*<<digest.ml:39:70>>*/ ;
-    /*<<digest.ml:39:70>>*/ }
+               /*<<digest.ml:39:55>>*/ return caml_call1(Stdlib_Char[1], _h_) /*<<digest.ml:39:69>>*/ ;
+             }) /*<<digest.ml:39:70>>*/ ;
+   }
    function BLAKE2(X){
     var _a_ = X[1] < 1 ? 1 : 0, _b_ = _a_ || (64 < X[1] ? 1 : 0);
     if(_b_)
-      /*<<digest.ml:68:9>>*/  /*<<digest.ml:68:9>>*/ caml_call1
-       /*<<digest.ml:68:9>>*/ (Stdlib[1], cst_Digest_BLAKE2_wrong_hash_s);
+      /*<<digest.ml:68:9>>*/ caml_call1
+      (Stdlib[1], cst_Digest_BLAKE2_wrong_hash_s);
     var
      hash_length = X[1],
      compare = Stdlib_String[10],
      equal = Stdlib_String[9];
     function string(str){
-      /*<<digest.ml:85:4>>*/ return  /*<<digest.ml:85:4>>*/ caml_blake2_string
-              /*<<digest.ml:85:4>>*/ (hash_length,
-              cst,
-              str,
-              0,
-              caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
-     /*<<digest.ml:85:58>>*/ }
+      /*<<digest.ml:85:4>>*/ return caml_blake2_string
+             (hash_length, cst, str, 0, caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
+    }
     function bytes(b){
       /*<<digest.ml:88:4>>*/ return  /*<<digest.ml:88:11>>*/ string
-              /*<<digest.ml:88:11>>*/ ( /*<<digest.ml:88:11>>*/ caml_call1
-                /*<<digest.ml:88:11>>*/ (Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
-     /*<<digest.ml:88:37>>*/ }
+             (caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
+    }
     function substring(str, ofs, len){
      var _d_ = ofs < 0 ? 1 : 0;
      if(_d_)
@@ -28377,47 +23463,40 @@
        _f_ = len < 0 ? 1 : 0,
        _e_ = _f_ || ((caml_ml_string_length(str) - len | 0) < ofs ? 1 : 0);
      if(_e_)
-       /*<<digest.ml:92:9>>*/  /*<<digest.ml:92:9>>*/ caml_call1
-        /*<<digest.ml:92:9>>*/ (Stdlib[1], cst_Digest_substring);
-      /*<<digest.ml:93:4>>*/ return  /*<<digest.ml:93:4>>*/ caml_blake2_string
-              /*<<digest.ml:93:4>>*/ (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
-     /*<<digest.ml:93:44>>*/ }
+       /*<<digest.ml:92:9>>*/ caml_call1(Stdlib[1], cst_Digest_substring);
+      /*<<digest.ml:93:4>>*/ return caml_blake2_string
+             (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
+    }
     function subbytes(b, ofs, len){
-      /*<<digest.ml:96:4>>*/ return  /*<<digest.ml:96:4>>*/ substring
-              /*<<digest.ml:96:4>>*/ ( /*<<digest.ml:96:14>>*/ caml_call1
-                /*<<digest.ml:96:14>>*/ (Stdlib_Bytes[44], b),
+      /*<<digest.ml:96:4>>*/ return substring
+             ( /*<<digest.ml:96:14>>*/ caml_call1(Stdlib_Bytes[44], b),
               ofs,
               len) /*<<digest.ml:96:48>>*/ ;
-     /*<<digest.ml:96:48>>*/ }
+    }
     function channel(ic, toread){
      var
       buf_size =  /*<<digest.ml:99:4>>*/ 4096,
-      buf =
-         /*<<digest.ml:100:14>>*/  /*<<digest.ml:100:14>>*/ caml_create_bytes
-          /*<<digest.ml:100:14>>*/ (4096),
+      buf =  /*<<digest.ml:100:14>>*/ caml_create_bytes(4096),
       ctx =
-         /*<<digest.ml:82:18>>*/  /*<<digest.ml:82:18>>*/ runtime.caml_blake2_create
-          /*<<digest.ml:82:18>>*/ (hash_length, cst);
+         /*<<digest.ml:82:18>>*/ runtime.caml_blake2_create(hash_length, cst);
       /*<<digest.ml:102:4>>*/ if(0 <= toread){
       var toread$0 = toread;
        /*<<digest.ml:111:8>>*/ for(;;){
        if(0 === toread$0)
-         /*<<digest.ml:111:27>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
-                 /*<<digest.ml:111:27>>*/ (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
+         /*<<digest.ml:111:27>>*/ return caml_blake2_final(ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
        var
         _c_ =
-           /*<<digest.ml:112:44>>*/  /*<<digest.ml:112:44>>*/ caml_call2
-            /*<<digest.ml:112:44>>*/ (Stdlib_Int[10], buf_size, toread$0),
+           /*<<digest.ml:112:44>>*/ caml_call2
+           (Stdlib_Int[10], buf_size, toread$0),
         n =
-           /*<<digest.ml:112:18>>*/  /*<<digest.ml:112:18>>*/ caml_call4
-            /*<<digest.ml:112:18>>*/ (Stdlib_In_channel[16], ic, buf, 0, _c_);
+           /*<<digest.ml:112:18>>*/ caml_call4
+           (Stdlib_In_channel[16], ic, buf, 0, _c_);
         /*<<digest.ml:113:10>>*/ if(0 === n)
-         /*<<digest.ml:114:15>>*/ throw  /*<<digest.ml:114:15>>*/ caml_maybe_attach_backtrace
-                /*<<digest.ml:114:15>>*/ (Stdlib[12], 1);
-        /*<<digest.ml:116:12>>*/  /*<<digest.ml:116:12>>*/ caml_blake2_update
-         /*<<digest.ml:116:12>>*/ (ctx,
-          /*<<digest.ml:116:23>>*/ caml_call1
-           /*<<digest.ml:116:23>>*/ (Stdlib_Bytes[44], buf),
+         /*<<digest.ml:114:15>>*/ throw caml_maybe_attach_backtrace
+               (Stdlib[12], 1);
+        /*<<digest.ml:116:12>>*/ caml_blake2_update
+        (ctx,
+          /*<<digest.ml:116:23>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,
          n);
        var toread$1 = toread$0 - n | 0;
@@ -28428,55 +23507,43 @@
        /*<<digest.ml:104:8>>*/ for(;;){
        var
         n$0 =
-           /*<<digest.ml:104:16>>*/  /*<<digest.ml:104:16>>*/ caml_call4
-            /*<<digest.ml:104:16>>*/ (Stdlib_In_channel[16],
-            ic,
-            buf,
-            0,
-            buf_size);
+           /*<<digest.ml:104:16>>*/ caml_call4
+           (Stdlib_In_channel[16], ic, buf, 0, buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
-         /*<<digest.ml:106:13>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
-                 /*<<digest.ml:106:13>>*/ (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
-        /*<<digest.ml:107:14>>*/  /*<<digest.ml:107:14>>*/ caml_blake2_update
-         /*<<digest.ml:107:14>>*/ (ctx,
-          /*<<digest.ml:107:25>>*/ caml_call1
-           /*<<digest.ml:107:25>>*/ (Stdlib_Bytes[44], buf),
+         /*<<digest.ml:106:13>>*/ return caml_blake2_final(ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
+        /*<<digest.ml:107:14>>*/ caml_blake2_update
+        (ctx,
+          /*<<digest.ml:107:25>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,
          n$0);
       }
      /*<<digest.ml:121:7>>*/ }
     function file(filename){
       /*<<digest.ml:124:4>>*/ return  /*<<digest.ml:124:38>>*/ caml_call2
-              /*<<digest.ml:124:38>>*/ (Stdlib_In_channel[5],
+             (Stdlib_In_channel[5],
               filename,
               function(ic){
-                /*<<digest.ml:124:49>>*/ return  /*<<digest.ml:124:49>>*/ channel
-                        /*<<digest.ml:124:49>>*/ (ic, -1) /*<<digest.ml:124:64>>*/ ;
-               /*<<digest.ml:124:64>>*/ }) /*<<digest.ml:124:65>>*/ ;
-     /*<<digest.ml:124:65>>*/ }
+                /*<<digest.ml:124:49>>*/ return channel(ic, -1) /*<<digest.ml:124:64>>*/ ;
+              }) /*<<digest.ml:124:65>>*/ ;
+    }
     function output(chan, digest){
-      /*<<digest.ml:126:27>>*/ return  /*<<digest.ml:126:27>>*/ caml_call2
-              /*<<digest.ml:126:27>>*/ (Stdlib[66], chan, digest) /*<<digest.ml:126:52>>*/ ;
-     /*<<digest.ml:126:52>>*/ }
+      /*<<digest.ml:126:27>>*/ return caml_call2(Stdlib[66], chan, digest) /*<<digest.ml:126:52>>*/ ;
+    }
     function input(chan){
       /*<<digest.ml:128:19>>*/ return  /*<<digest.ml:126:13>>*/ caml_call2
-              /*<<digest.ml:126:13>>*/ (Stdlib[86], chan, hash_length) /*<<digest.ml:128:55>>*/ ;
-     /*<<digest.ml:128:55>>*/ }
+             (Stdlib[86], chan, hash_length) /*<<digest.ml:128:55>>*/ ;
+    }
     function to_hex(d){
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
-       /*<<digest.ml:131:43>>*/  /*<<digest.ml:131:43>>*/ caml_call1
-        /*<<digest.ml:131:43>>*/ (Stdlib[1], cst_Digest_to_hex);
-      /*<<digest.ml:131:43>>*/ return  /*<<digest.ml:131:43>>*/ hex_of_string
-              /*<<digest.ml:131:43>>*/ (d) /*<<digest.ml:132:19>>*/ ;
-     /*<<digest.ml:132:19>>*/ }
+       /*<<digest.ml:131:43>>*/ caml_call1(Stdlib[1], cst_Digest_to_hex);
+     return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
+    }
     function of_hex(s){
       /*<<digest.ml:135:4>>*/ if
       (caml_ml_string_length(s) !== (hash_length * 2 | 0))
-       /*<<digest.ml:135:47>>*/  /*<<digest.ml:135:47>>*/ caml_call1
-        /*<<digest.ml:135:47>>*/ (Stdlib[1], cst_Digest_of_hex$0);
-      /*<<digest.ml:135:47>>*/ return  /*<<digest.ml:135:47>>*/ string_of_hex
-              /*<<digest.ml:135:47>>*/ (s) /*<<digest.ml:136:19>>*/ ;
-     /*<<digest.ml:136:19>>*/ }
+       /*<<digest.ml:135:47>>*/ caml_call1(Stdlib[1], cst_Digest_of_hex$0);
+     return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
+    }
      /*<<digest.ml:62:55>>*/ return [0,
             hash_length,
             compare,
@@ -28490,7 +23557,7 @@
             output,
             input,
             to_hex,
-            of_hex] /*<<digest.ml:62:55>>*/ ;
+            of_hex];
    }
    var
     BLAKE128 = BLAKE2([0, 16]),
@@ -28502,60 +23569,50 @@
     cst_Digest_to_hex$0 = cst_Digest_to_hex$1,
     cst_Digest_from_hex = "Digest.from_hex";
    function string(str){
-     /*<<digest.ml:159:4>>*/ return  /*<<digest.ml:159:4>>*/ caml_md5_string
-             /*<<digest.ml:159:4>>*/ (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
-    /*<<digest.ml:159:43>>*/ }
+     /*<<digest.ml:159:4>>*/ return caml_md5_string
+            (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
+   }
    function bytes(b){
      /*<<digest.ml:161:16>>*/ return  /*<<digest.ml:161:23>>*/ string
-             /*<<digest.ml:161:23>>*/ ( /*<<digest.ml:161:23>>*/ caml_call1
-               /*<<digest.ml:161:23>>*/ (Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
-    /*<<digest.ml:161:49>>*/ }
+            (caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
+   }
    function substring(str, ofs, len){
      /*<<digest.ml:164:4>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(str) - len | 0) >= ofs)
-      /*<<digest.ml:166:9>>*/ return  /*<<digest.ml:166:9>>*/ caml_md5_string
-              /*<<digest.ml:166:9>>*/ (str, ofs, len) /*<<digest.ml:166:34>>*/ ;
-     /*<<digest.ml:165:9>>*/ return  /*<<digest.ml:165:9>>*/ caml_call1
-             /*<<digest.ml:165:9>>*/ (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
-    /*<<digest.ml:166:34>>*/ }
+      /*<<digest.ml:166:9>>*/ return caml_md5_string(str, ofs, len) /*<<digest.ml:166:34>>*/ ;
+     /*<<digest.ml:165:9>>*/ return caml_call1
+            (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
+   }
    function subbytes(b, ofs, len){
-     /*<<digest.ml:168:27>>*/ return  /*<<digest.ml:168:27>>*/ substring
-             /*<<digest.ml:168:27>>*/ ( /*<<digest.ml:168:37>>*/ caml_call1
-               /*<<digest.ml:168:37>>*/ (Stdlib_Bytes[44], b),
+     /*<<digest.ml:168:27>>*/ return substring
+            ( /*<<digest.ml:168:37>>*/ caml_call1(Stdlib_Bytes[44], b),
              ofs,
              len) /*<<digest.ml:168:71>>*/ ;
-    /*<<digest.ml:168:71>>*/ }
+   }
    function file(filename){
      /*<<digest.ml:171:4>>*/ return  /*<<digest.ml:171:38>>*/ caml_call2
-             /*<<digest.ml:171:38>>*/ (Stdlib_In_channel[5],
+            (Stdlib_In_channel[5],
              filename,
              function(ic){
-               /*<<digest.ml:171:49>>*/ return  /*<<digest.ml:171:49>>*/ caml_md5_chan
-                       /*<<digest.ml:171:49>>*/ (ic, -1) /*<<digest.ml:171:64>>*/ ;
-              /*<<digest.ml:171:64>>*/ }) /*<<digest.ml:171:65>>*/ ;
-    /*<<digest.ml:171:65>>*/ }
+               /*<<digest.ml:171:49>>*/ return caml_md5_chan(ic, -1) /*<<digest.ml:171:64>>*/ ;
+             }) /*<<digest.ml:171:65>>*/ ;
+   }
    function output(chan, digest){
-     /*<<digest.ml:173:27>>*/ return  /*<<digest.ml:173:27>>*/ caml_call2
-             /*<<digest.ml:173:27>>*/ (Stdlib[66], chan, digest) /*<<digest.ml:173:52>>*/ ;
-    /*<<digest.ml:173:52>>*/ }
+     /*<<digest.ml:173:27>>*/ return caml_call2(Stdlib[66], chan, digest) /*<<digest.ml:173:52>>*/ ;
+   }
    function input(chan){
-     /*<<digest.ml:175:19>>*/ return  /*<<digest.ml:175:19>>*/ caml_call2
-             /*<<digest.ml:175:19>>*/ (Stdlib[86], chan, 16) /*<<digest.ml:175:46>>*/ ;
-    /*<<digest.ml:175:46>>*/ }
+     /*<<digest.ml:175:19>>*/ return caml_call2(Stdlib[86], chan, 16) /*<<digest.ml:175:46>>*/ ;
+   }
    function to_hex(d){
      /*<<digest.ml:178:4>>*/ if(16 !== caml_ml_string_length(d))
-      /*<<digest.ml:178:34>>*/  /*<<digest.ml:178:34>>*/ caml_call1
-       /*<<digest.ml:178:34>>*/ (Stdlib[1], cst_Digest_to_hex$0);
-     /*<<digest.ml:178:34>>*/ return  /*<<digest.ml:178:34>>*/ hex_of_string
-             /*<<digest.ml:178:34>>*/ (d) /*<<digest.ml:179:19>>*/ ;
-    /*<<digest.ml:179:19>>*/ }
+      /*<<digest.ml:178:34>>*/ caml_call1(Stdlib[1], cst_Digest_to_hex$0);
+    return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
+   }
    function of_hex(s){
      /*<<digest.ml:182:4>>*/ if(32 !== caml_ml_string_length(s))
-      /*<<digest.ml:182:34>>*/  /*<<digest.ml:182:34>>*/ caml_call1
-       /*<<digest.ml:182:34>>*/ (Stdlib[1], cst_Digest_from_hex);
-     /*<<digest.ml:182:34>>*/ return  /*<<digest.ml:182:34>>*/ string_of_hex
-             /*<<digest.ml:182:34>>*/ (s) /*<<digest.ml:183:19>>*/ ;
-    /*<<digest.ml:183:19>>*/ }
+      /*<<digest.ml:182:34>>*/ caml_call1(Stdlib[1], cst_Digest_from_hex);
+    return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
+   }
    var
     Stdlib_Digest =
       [0,
@@ -28600,24 +23657,24 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     cst_Bigarray_Array3_of_array_n$1 =
-       /*<<?>>*/ "Bigarray.Array3.of_array: non-cubic data",
-    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,
-    caml_ba_dim_2 =  /*<<?>>*/ runtime.caml_ba_dim_2,
-    caml_ba_kind =  /*<<?>>*/ runtime.caml_ba_kind,
-    caml_ba_num_dims =  /*<<?>>*/ runtime.caml_ba_num_dims,
-    caml_ba_reshape =  /*<<?>>*/ runtime.caml_ba_reshape,
-    caml_ba_set_1 =  /*<<?>>*/ runtime.caml_ba_set_1,
-    caml_ba_set_2 =  /*<<?>>*/ runtime.caml_ba_set_2,
-    caml_ba_set_3 =  /*<<?>>*/ runtime.caml_ba_set_3,
-    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;
+      "Bigarray.Array3.of_array: non-cubic data",
+    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,
+    caml_ba_dim_2 = runtime.caml_ba_dim_2,
+    caml_ba_kind = runtime.caml_ba_kind,
+    caml_ba_num_dims = runtime.caml_ba_num_dims,
+    caml_ba_reshape = runtime.caml_ba_reshape,
+    caml_ba_set_1 = runtime.caml_ba_set_1,
+    caml_ba_set_2 = runtime.caml_ba_set_2,
+    caml_ba_set_3 = runtime.caml_ba_set_3,
+    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
             ? f(a0)
@@ -28642,32 +23699,32 @@
    function kind_size_in_bytes(param){
      /*<<bigarray.ml:76:4>>*/ switch(param){
       case 0:
-        /*<<bigarray.ml:78:15>>*/ return 4 /*<<bigarray.ml:78:15>>*/ ;
+        /*<<bigarray.ml:78:15>>*/ return 4;
       case 1:
-        /*<<bigarray.ml:79:15>>*/ return 8 /*<<bigarray.ml:79:15>>*/ ;
+        /*<<bigarray.ml:79:15>>*/ return 8;
       case 2:
-        /*<<bigarray.ml:80:19>>*/ return 1 /*<<bigarray.ml:80:19>>*/ ;
+        /*<<bigarray.ml:80:19>>*/ return 1;
       case 3:
-        /*<<bigarray.ml:81:21>>*/ return 1 /*<<bigarray.ml:81:21>>*/ ;
+        /*<<bigarray.ml:81:21>>*/ return 1;
       case 4:
-        /*<<bigarray.ml:82:20>>*/ return 2 /*<<bigarray.ml:82:20>>*/ ;
+        /*<<bigarray.ml:82:20>>*/ return 2;
       case 5:
-        /*<<bigarray.ml:83:22>>*/ return 2 /*<<bigarray.ml:83:22>>*/ ;
+        /*<<bigarray.ml:83:22>>*/ return 2;
       case 6:
-        /*<<bigarray.ml:84:13>>*/ return 4 /*<<bigarray.ml:84:13>>*/ ;
+        /*<<bigarray.ml:84:13>>*/ return 4;
       case 7:
-        /*<<bigarray.ml:85:13>>*/ return 8 /*<<bigarray.ml:85:13>>*/ ;
+        /*<<bigarray.ml:85:13>>*/ return 8;
       case 8:
        return Stdlib_Sys[9] / 8 | 0;
       case 9:
        return Stdlib_Sys[9] / 8 | 0;
       case 10:
-        /*<<bigarray.ml:88:17>>*/ return 8 /*<<bigarray.ml:88:17>>*/ ;
+        /*<<bigarray.ml:88:17>>*/ return 8;
       case 11:
-        /*<<bigarray.ml:89:17>>*/ return 16 /*<<bigarray.ml:89:17>>*/ ;
+        /*<<bigarray.ml:89:17>>*/ return 16;
       case 12:
-        /*<<bigarray.ml:90:12>>*/ return 1 /*<<bigarray.ml:90:12>>*/ ;
-      default:  /*<<bigarray.ml:77:15>>*/ return 2 /*<<bigarray.ml:77:15>>*/ ;
+        /*<<bigarray.ml:90:12>>*/ return 1;
+      default:  /*<<bigarray.ml:77:15>>*/ return 2;
     }
     /*<<bigarray.ml:90:13>>*/ }
    var
@@ -28681,12 +23738,9 @@
     cst_Bigarray_array3_of_genarra = "Bigarray.array3_of_genarray";
    function cloop(arr, idx, f, col, max){
      /*<<bigarray.ml:108:4>>*/ if(col === idx.length - 1){
-      /*<<bigarray.ml:108:35>>*/  /*<<bigarray.ml:108:35>>*/ caml_ba_set_generic
-       /*<<bigarray.ml:108:35>>*/ (arr,
-       idx,
-        /*<<bigarray.ml:108:47>>*/ caml_call1
-         /*<<bigarray.ml:108:47>>*/ (f, idx));
-      /*<<bigarray.ml:108:35>>*/ return /*<<bigarray.ml:108:35>>*/ ;
+      /*<<bigarray.ml:108:35>>*/ caml_ba_set_generic
+      (arr, idx,  /*<<bigarray.ml:108:47>>*/ caml_call1(f, idx));
+      /*<<bigarray.ml:108:35>>*/ return;
     }
     var
      _am_ =
@@ -28696,9 +23750,8 @@
      var j = _al_;
      for(;;){
        /*<<bigarray.ml:110:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
-       /*<<bigarray.ml:111:11>>*/  /*<<bigarray.ml:111:11>>*/ cloop
-        /*<<bigarray.ml:111:11>>*/ (arr, idx, f, col + 1 | 0, max);
-      var _an_ =  /*<<bigarray.ml:111:11>>*/ j + 1 | 0;
+       /*<<bigarray.ml:111:11>>*/ cloop(arr, idx, f, col + 1 | 0, max);
+      var _an_ = j + 1 | 0;
       if(_am_ === j) break;
       j = _an_;
      }
@@ -28706,12 +23759,9 @@
     /*<<bigarray.ml:112:13>>*/ }
    function floop(arr, idx, f, col, max){
      /*<<bigarray.ml:114:4>>*/ if(0 > col){
-      /*<<bigarray.ml:114:20>>*/  /*<<bigarray.ml:114:20>>*/ caml_ba_set_generic
-       /*<<bigarray.ml:114:20>>*/ (arr,
-       idx,
-        /*<<bigarray.ml:114:32>>*/ caml_call1
-         /*<<bigarray.ml:114:32>>*/ (f, idx));
-      /*<<bigarray.ml:114:20>>*/ return /*<<bigarray.ml:114:20>>*/ ;
+      /*<<bigarray.ml:114:20>>*/ caml_ba_set_generic
+      (arr, idx,  /*<<bigarray.ml:114:32>>*/ caml_call1(f, idx));
+      /*<<bigarray.ml:114:20>>*/ return;
     }
     var
      _aj_ =  /*<<bigarray.ml:115:22>>*/ caml_check_bound(max, col)[1 + col],
@@ -28720,9 +23770,8 @@
      var j = _ai_;
      for(;;){
        /*<<bigarray.ml:116:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
-       /*<<bigarray.ml:117:11>>*/  /*<<bigarray.ml:117:11>>*/ floop
-        /*<<bigarray.ml:117:11>>*/ (arr, idx, f, col - 1 | 0, max);
-      var _ak_ =  /*<<bigarray.ml:117:11>>*/ j + 1 | 0;
+       /*<<bigarray.ml:117:11>>*/ floop(arr, idx, f, col - 1 | 0, max);
+      var _ak_ = j + 1 | 0;
       if(_aj_ === j) break;
       j = _ak_;
      }
@@ -28730,75 +23779,58 @@
     /*<<bigarray.ml:118:13>>*/ }
    function init(kind, layout, dims, f){
     var
-     arr =
-        /*<<bigarray.ml:120:14>>*/  /*<<bigarray.ml:120:14>>*/ caml_ba_create
-         /*<<bigarray.ml:120:14>>*/ (kind, layout, dims),
+     arr =  /*<<bigarray.ml:120:14>>*/ caml_ba_create(kind, layout, dims),
      dlen =  /*<<bigarray.ml:121:4>>*/ dims.length - 1;
      /*<<bigarray.ml:122:4>>*/ return layout
             ? ( /*<<bigarray.ml:124:24>>*/ floop
-                /*<<bigarray.ml:124:24>>*/ (arr,
-                 /*<<bigarray.ml:124:34>>*/ caml_make_vect
-                  /*<<bigarray.ml:124:34>>*/ (dlen, 1),
+               (arr,
+                 /*<<bigarray.ml:124:34>>*/ caml_make_vect(dlen, 1),
                 f,
                 dlen - 1 | 0,
                 dims),
               arr)
             : ( /*<<bigarray.ml:123:18>>*/ cloop
-                /*<<bigarray.ml:123:18>>*/ (arr,
-                 /*<<bigarray.ml:123:28>>*/ caml_make_vect
-                  /*<<bigarray.ml:123:28>>*/ (dlen, 0),
+               (arr,
+                 /*<<bigarray.ml:123:28>>*/ caml_make_vect(dlen, 0),
                 f,
                 0,
                 dims),
               arr) /*<<bigarray.ml:124:77>>*/ ;
-    /*<<bigarray.ml:124:77>>*/ }
+   }
    function dims(a){
     var
-     n =
-        /*<<bigarray.ml:129:12>>*/  /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims
-         /*<<bigarray.ml:129:12>>*/ (a),
-     d =
-        /*<<bigarray.ml:130:12>>*/  /*<<bigarray.ml:130:12>>*/ caml_make_vect
-         /*<<bigarray.ml:130:12>>*/ (n, 0),
+     n =  /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims(a),
+     d =  /*<<bigarray.ml:130:12>>*/ caml_make_vect(n, 0),
      _af_ =  /*<<bigarray.ml:131:4>>*/ n - 1 | 0,
      _ae_ =  /*<<bigarray.ml:130:12>>*/ 0;
     if(_af_ >= 0){
      var i = _ae_;
      for(;;){
-      var
-       _ag_ =
-          /*<<bigarray.ml:131:33>>*/  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim
-           /*<<bigarray.ml:131:33>>*/ (a, i);
+      var _ag_ =  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim(a, i);
        /*<<bigarray.ml:131:24>>*/ caml_check_bound(d, i)[1 + i] = _ag_;
-      var _ah_ =  /*<<bigarray.ml:131:24>>*/ i + 1 | 0;
+      var _ah_ = i + 1 | 0;
       if(_af_ === i) break;
       i = _ah_;
      }
     }
-     /*<<bigarray.ml:132:4>>*/ return d /*<<bigarray.ml:132:4>>*/ ;
+     /*<<bigarray.ml:132:4>>*/ return d;
     /*<<bigarray.ml:132:5>>*/ }
    function size_in_bytes(arr){
     var
-     _ac_ =
-        /*<<bigarray.ml:140:63>>*/  /*<<bigarray.ml:140:63>>*/ dims
-         /*<<bigarray.ml:140:63>>*/ (arr),
+     _ac_ =  /*<<bigarray.ml:140:63>>*/ dims(arr),
      _ad_ =
-        /*<<bigarray.ml:140:38>>*/  /*<<bigarray.ml:140:38>>*/ caml_call3
-         /*<<bigarray.ml:140:38>>*/ (Stdlib_Array[18], caml_mul, 1, _ac_);
-     /*<<bigarray.ml:140:4>>*/ return  /*<<bigarray.ml:140:4>>*/ caml_mul
-             /*<<bigarray.ml:140:4>>*/ ( /*<<bigarray.ml:140:4>>*/ kind_size_in_bytes
-               /*<<bigarray.ml:140:4>>*/ ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind
-                 /*<<bigarray.ml:140:24>>*/ (arr)),
+        /*<<bigarray.ml:140:38>>*/ caml_call3
+        (Stdlib_Array[18], caml_mul, 1, _ac_);
+     /*<<bigarray.ml:140:4>>*/ return caml_mul
+            (kind_size_in_bytes( /*<<bigarray.ml:140:24>>*/ caml_ba_kind(arr)),
              _ad_) /*<<bigarray.ml:140:74>>*/ ;
-    /*<<bigarray.ml:140:74>>*/ }
+   }
    function create(kind, layout){
-     /*<<bigarray.ml:161:4>>*/ return  /*<<bigarray.ml:161:4>>*/ caml_ba_create
-             /*<<bigarray.ml:161:4>>*/ (kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
-    /*<<bigarray.ml:161:36>>*/ }
+     /*<<bigarray.ml:161:4>>*/ return caml_ba_create(kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
+   }
    function get(arr){
-     /*<<bigarray.ml:162:16>>*/ return  /*<<bigarray.ml:162:16>>*/ runtime.caml_ba_get_generic
-             /*<<bigarray.ml:162:16>>*/ (arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
-    /*<<bigarray.ml:162:37>>*/ }
+     /*<<bigarray.ml:162:16>>*/ return runtime.caml_ba_get_generic(arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
+   }
    function set(arr){
     var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
      /*<<bigarray.ml:163:33>>*/ return function(_ab_){
@@ -28806,135 +23838,98 @@
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
      /*<<bigarray.ml:170:26>>*/ return  /*<<bigarray.ml:170:45>>*/ kind_size_in_bytes
-             /*<<bigarray.ml:170:45>>*/ ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind
-               /*<<bigarray.ml:170:45>>*/ (arr)) /*<<bigarray.ml:170:55>>*/ ;
-    /*<<bigarray.ml:170:55>>*/ }
+            (caml_ba_kind(arr)) /*<<bigarray.ml:170:55>>*/ ;
+   }
    function of_value(kind, layout, v){
-    var
-     a =
-        /*<<bigarray.ml:176:12>>*/  /*<<bigarray.ml:176:12>>*/ create
-         /*<<bigarray.ml:176:12>>*/ (kind, layout);
-     /*<<bigarray.ml:177:4>>*/  /*<<bigarray.ml:177:4>>*/  /*<<bigarray.ml:177:4>>*/ set
-       /*<<bigarray.ml:177:4>>*/ (a)
-      /*<<bigarray.ml:177:4>>*/ (v);
-     /*<<bigarray.ml:177:4>>*/ return a /*<<bigarray.ml:177:4>>*/ ;
+    var a =  /*<<bigarray.ml:176:12>>*/ create(kind, layout);
+     /*<<bigarray.ml:177:4>>*/ set(a)(v);
+    return a;
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
-     /*<<bigarray.ml:185:4>>*/ return  /*<<bigarray.ml:185:4>>*/ caml_ba_create
-             /*<<bigarray.ml:185:4>>*/ (kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
-    /*<<bigarray.ml:185:39>>*/ }
+     /*<<bigarray.ml:185:4>>*/ return caml_ba_create(kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
+   }
    function size_in_bytes$1(arr){
-    var
-     _$_ =
-        /*<<bigarray.ml:199:38>>*/  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1
-         /*<<bigarray.ml:199:38>>*/ (arr);
-     /*<<bigarray.ml:199:4>>*/ return  /*<<bigarray.ml:199:4>>*/ caml_mul
-             /*<<bigarray.ml:199:4>>*/ ( /*<<bigarray.ml:199:4>>*/ kind_size_in_bytes
-               /*<<bigarray.ml:199:4>>*/ ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind
-                 /*<<bigarray.ml:199:24>>*/ (arr)),
+    var _$_ =  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1(arr);
+     /*<<bigarray.ml:199:4>>*/ return caml_mul
+            (kind_size_in_bytes( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
              _$_) /*<<bigarray.ml:199:47>>*/ ;
-    /*<<bigarray.ml:199:47>>*/ }
+   }
    function slice(a, n){
      /*<<bigarray.ml:203:4>>*/ return  /*<<bigarray.ml:203:10>>*/ runtime.caml_ba_layout
-              /*<<bigarray.ml:203:10>>*/ (a)
-            ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice
-               /*<<bigarray.ml:205:25>>*/ (a, [0, n])
-            :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice
-               /*<<bigarray.ml:204:19>>*/ (a, [0, n]) /*<<bigarray.ml:205:76>>*/ ;
-    /*<<bigarray.ml:205:76>>*/ }
+             (a)
+            ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice(a, [0, n])
+            :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice(a, [0, n]) /*<<bigarray.ml:205:76>>*/ ;
+   }
    function init$0(kind, layout, dim, f){
-    var
-     arr =
-        /*<<bigarray.ml:213:14>>*/  /*<<bigarray.ml:213:14>>*/ create$0
-         /*<<bigarray.ml:213:14>>*/ (kind, layout, dim);
+    var arr =  /*<<bigarray.ml:213:14>>*/ create$0(kind, layout, dim);
      /*<<bigarray.ml:214:4>>*/ if(layout){
      var _Z_ =  /*<<bigarray.ml:211:4>>*/ 1;
      if(dim >= 1){
       var i$0 = _Z_;
       for(;;){
-        /*<<bigarray.ml:211:24>>*/  /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
-         /*<<bigarray.ml:211:24>>*/ (arr,
-         i$0,
-          /*<<bigarray.ml:211:41>>*/ caml_call1
-           /*<<bigarray.ml:211:41>>*/ (f, i$0));
+        /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
+        (arr, i$0,  /*<<bigarray.ml:211:41>>*/ caml_call1(f, i$0));
        var ___ =  /*<<bigarray.ml:211:24>>*/ i$0 + 1 | 0;
        if(dim === i$0) break;
        i$0 = ___;
       }
      }
-      /*<<bigarray.ml:216:24>>*/ return arr /*<<bigarray.ml:216:24>>*/ ;
+      /*<<bigarray.ml:216:24>>*/ return arr;
     }
     var _X_ = dim - 1 | 0, _W_ =  /*<<bigarray.ml:209:4>>*/ 0;
     if(_X_ >= 0){
      var i = _W_;
      for(;;){
-       /*<<bigarray.ml:209:29>>*/  /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
-        /*<<bigarray.ml:209:29>>*/ (arr,
-        i,
-         /*<<bigarray.ml:209:46>>*/ caml_call1
-          /*<<bigarray.ml:209:46>>*/ (f, i));
+       /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
+       (arr, i,  /*<<bigarray.ml:209:46>>*/ caml_call1(f, i));
       var _Y_ =  /*<<bigarray.ml:209:29>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
     }
-     /*<<bigarray.ml:215:18>>*/ return arr /*<<bigarray.ml:215:18>>*/ ;
+     /*<<bigarray.ml:215:18>>*/ return arr;
     /*<<bigarray.ml:216:51>>*/ }
    function of_array(kind, layout, data){
     var
-     ba =
-        /*<<bigarray.ml:218:13>>*/  /*<<bigarray.ml:218:13>>*/ create$0
-         /*<<bigarray.ml:218:13>>*/ (kind, layout, data.length - 1),
+     ba =  /*<<bigarray.ml:218:13>>*/ create$0(kind, layout, data.length - 1),
      ofs =  /*<<bigarray.ml:219:4>>*/ layout ? 1 : 0,
      _U_ = data.length - 2 | 0,
      _T_ = 0;
     if(_U_ >= 0){
      var i = _T_;
      for(;;){
-       /*<<bigarray.ml:224:42>>*/  /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
-        /*<<bigarray.ml:224:42>>*/ (ba,
-        i + ofs | 0,
-        caml_check_bound(data, i)[1 + i]);
-      var _V_ =  /*<<bigarray.ml:224:42>>*/ i + 1 | 0;
+       /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
+       (ba, i + ofs | 0, caml_check_bound(data, i)[1 + i]);
+      var _V_ = i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
     }
-     /*<<bigarray.ml:225:4>>*/ return ba /*<<bigarray.ml:225:4>>*/ ;
+     /*<<bigarray.ml:225:4>>*/ return ba;
     /*<<bigarray.ml:225:6>>*/ }
    function create$1(kind, layout, dim1, dim2){
-     /*<<bigarray.ml:231:4>>*/ return  /*<<bigarray.ml:231:4>>*/ caml_ba_create
-             /*<<bigarray.ml:231:4>>*/ (kind, layout, [0, dim1, dim2]) /*<<bigarray.ml:231:46>>*/ ;
-    /*<<bigarray.ml:231:46>>*/ }
+     /*<<bigarray.ml:231:4>>*/ return caml_ba_create
+            (kind, layout, [0, dim1, dim2]) /*<<bigarray.ml:231:46>>*/ ;
+   }
    function size_in_bytes$2(arr){
     var
-     _R_ =
-        /*<<bigarray.ml:247:51>>*/  /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2
-         /*<<bigarray.ml:247:51>>*/ (arr),
-     _S_ =
-        /*<<bigarray.ml:247:38>>*/  /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1
-         /*<<bigarray.ml:247:38>>*/ (arr);
+     _R_ =  /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2(arr),
+     _S_ =  /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1(arr);
     return caml_mul
             ( /*<<bigarray.ml:247:4>>*/ caml_mul
-               /*<<bigarray.ml:247:4>>*/ ( /*<<bigarray.ml:247:4>>*/ kind_size_in_bytes
-                 /*<<bigarray.ml:247:4>>*/ ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind
-                   /*<<bigarray.ml:247:24>>*/ (arr)),
+              (kind_size_in_bytes
+                ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind(arr)),
                _S_),
              _R_) /*<<bigarray.ml:247:61>>*/ ;
-    /*<<bigarray.ml:247:61>>*/ }
+   }
    function slice_left(a, n){
-     /*<<bigarray.ml:254:23>>*/ return  /*<<bigarray.ml:254:23>>*/ caml_ba_slice
-             /*<<bigarray.ml:254:23>>*/ (a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
-    /*<<bigarray.ml:254:50>>*/ }
+     /*<<bigarray.ml:254:23>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
+   }
    function slice_right(a, n){
-     /*<<bigarray.ml:255:24>>*/ return  /*<<bigarray.ml:255:24>>*/ caml_ba_slice
-             /*<<bigarray.ml:255:24>>*/ (a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
-    /*<<bigarray.ml:255:52>>*/ }
+     /*<<bigarray.ml:255:24>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
+   }
    function init$1(kind, layout, dim1, dim2, f){
-    var
-     arr =
-        /*<<bigarray.ml:271:14>>*/  /*<<bigarray.ml:271:14>>*/ create$1
-         /*<<bigarray.ml:271:14>>*/ (kind, layout, dim1, dim2);
+    var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
      /*<<bigarray.ml:272:4>>*/ if(layout){
      var _N_ =  /*<<bigarray.ml:265:4>>*/ 1;
      if(dim2 >= 1){
@@ -28944,12 +23939,8 @@
        if(dim1 >= 1){
         var i$0 = _O_;
         for(;;){
-          /*<<bigarray.ml:267:8>>*/  /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
-           /*<<bigarray.ml:267:8>>*/ (arr,
-           i$0,
-           j$0,
-            /*<<bigarray.ml:267:27>>*/ caml_call2
-             /*<<bigarray.ml:267:27>>*/ (f, i$0, j$0));
+          /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
+          (arr, i$0, j$0,  /*<<bigarray.ml:267:27>>*/ caml_call2(f, i$0, j$0));
          var _Q_ =  /*<<bigarray.ml:267:8>>*/ i$0 + 1 | 0;
          if(dim1 === i$0) break;
          i$0 = _Q_;
@@ -28960,7 +23951,7 @@
        j$0 = _P_;
       }
      }
-      /*<<bigarray.ml:274:24>>*/ return arr /*<<bigarray.ml:274:24>>*/ ;
+      /*<<bigarray.ml:274:24>>*/ return arr;
     }
     var _I_ = dim1 - 1 | 0, _H_ =  /*<<bigarray.ml:259:4>>*/ 0;
     if(_I_ >= 0){
@@ -28970,12 +23961,8 @@
       if(_K_ >= 0){
        var j = _J_;
        for(;;){
-         /*<<bigarray.ml:261:8>>*/  /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
-          /*<<bigarray.ml:261:8>>*/ (arr,
-          i,
-          j,
-           /*<<bigarray.ml:261:27>>*/ caml_call2
-            /*<<bigarray.ml:261:27>>*/ (f, i, j));
+         /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
+         (arr, i, j,  /*<<bigarray.ml:261:27>>*/ caml_call2(f, i, j));
         var _M_ =  /*<<bigarray.ml:261:8>>*/ j + 1 | 0;
         if(_K_ === j) break;
         j = _M_;
@@ -28986,7 +23973,7 @@
       i = _L_;
      }
     }
-     /*<<bigarray.ml:273:18>>*/ return arr /*<<bigarray.ml:273:18>>*/ ;
+     /*<<bigarray.ml:273:18>>*/ return arr;
     /*<<bigarray.ml:274:57>>*/ }
    function of_array$0(kind, layout, data){
     var
@@ -28995,9 +23982,7 @@
         /*<<bigarray.ml:277:4>>*/ 0 === dim1
         ? 0
         : caml_check_bound(data, 0)[1].length - 1,
-     ba =
-        /*<<bigarray.ml:278:13>>*/  /*<<bigarray.ml:278:13>>*/ create$1
-         /*<<bigarray.ml:278:13>>*/ (kind, layout, dim1, dim2),
+     ba =  /*<<bigarray.ml:278:13>>*/ create$1(kind, layout, dim1, dim2),
      ofs =  /*<<bigarray.ml:279:4>>*/ layout ? 1 : 0,
      _C_ =  /*<<bigarray.ml:284:4>>*/ dim1 - 1 | 0,
      _B_ = 0;
@@ -29006,20 +23991,17 @@
      for(;;){
       var row =  /*<<bigarray.ml:285:16>>*/ caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
-        /*<<bigarray.ml:287:8>>*/  /*<<bigarray.ml:287:8>>*/ caml_call1
-         /*<<bigarray.ml:287:8>>*/ (Stdlib[1], cst_Bigarray_Array2_of_array_n);
+        /*<<bigarray.ml:287:8>>*/ caml_call1
+        (Stdlib[1], cst_Bigarray_Array2_of_array_n);
       var
        _E_ =  /*<<bigarray.ml:277:32>>*/ dim2 - 1 | 0,
        _D_ =  /*<<bigarray.ml:287:8>>*/ 0;
       if(_E_ >= 0){
        var j = _D_;
        for(;;){
-         /*<<bigarray.ml:289:8>>*/  /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
-          /*<<bigarray.ml:289:8>>*/ (ba,
-          i + ofs | 0,
-          j + ofs | 0,
-          caml_check_bound(row, j)[1 + j]);
-        var _G_ =  /*<<bigarray.ml:289:8>>*/ j + 1 | 0;
+         /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
+         (ba, i + ofs | 0, j + ofs | 0, caml_check_bound(row, j)[1 + j]);
+        var _G_ = j + 1 | 0;
         if(_E_ === j) break;
         j = _G_;
        }
@@ -29029,54 +24011,42 @@
       i = _F_;
      }
     }
-     /*<<bigarray.ml:292:4>>*/ return ba /*<<bigarray.ml:292:4>>*/ ;
+     /*<<bigarray.ml:292:4>>*/ return ba;
     /*<<bigarray.ml:292:6>>*/ }
    function create$2(kind, layout, dim1, dim2, dim3){
-     /*<<bigarray.ml:298:4>>*/ return  /*<<bigarray.ml:298:4>>*/ caml_ba_create
-             /*<<bigarray.ml:298:4>>*/ (kind, layout, [0, dim1, dim2, dim3]) /*<<bigarray.ml:298:52>>*/ ;
-    /*<<bigarray.ml:298:52>>*/ }
+     /*<<bigarray.ml:298:4>>*/ return caml_ba_create
+            (kind, layout, [0, dim1, dim2, dim3]) /*<<bigarray.ml:298:52>>*/ ;
+   }
    function size_in_bytes$3(arr){
     var
-     _y_ =
-        /*<<bigarray.ml:316:64>>*/  /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3
-         /*<<bigarray.ml:316:64>>*/ (arr),
-     _z_ =
-        /*<<bigarray.ml:316:51>>*/  /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2
-         /*<<bigarray.ml:316:51>>*/ (arr),
-     _A_ =
-        /*<<bigarray.ml:316:38>>*/  /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1
-         /*<<bigarray.ml:316:38>>*/ (arr);
+     _y_ =  /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3(arr),
+     _z_ =  /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2(arr),
+     _A_ =  /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1(arr);
     return caml_mul
             (caml_mul
               ( /*<<bigarray.ml:316:4>>*/ caml_mul
-                 /*<<bigarray.ml:316:4>>*/ ( /*<<bigarray.ml:316:4>>*/ kind_size_in_bytes
-                   /*<<bigarray.ml:316:4>>*/ ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind
-                     /*<<bigarray.ml:316:24>>*/ (arr)),
+                (kind_size_in_bytes
+                  ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind(arr)),
                  _A_),
                _z_),
              _y_) /*<<bigarray.ml:316:74>>*/ ;
-    /*<<bigarray.ml:316:74>>*/ }
+   }
    function slice_left_1(a, n, m){
-     /*<<bigarray.ml:323:27>>*/ return  /*<<bigarray.ml:323:27>>*/ caml_ba_slice
-             /*<<bigarray.ml:323:27>>*/ (a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
-    /*<<bigarray.ml:323:57>>*/ }
+     /*<<bigarray.ml:323:27>>*/ return caml_ba_slice(a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
+   }
    function slice_right_1(a, n, m){
-     /*<<bigarray.ml:324:28>>*/ return  /*<<bigarray.ml:324:28>>*/ caml_ba_slice
-             /*<<bigarray.ml:324:28>>*/ (a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
-    /*<<bigarray.ml:324:59>>*/ }
+     /*<<bigarray.ml:324:28>>*/ return caml_ba_slice(a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
+   }
    function slice_left_2(a, n){
-     /*<<bigarray.ml:325:25>>*/ return  /*<<bigarray.ml:325:25>>*/ caml_ba_slice
-             /*<<bigarray.ml:325:25>>*/ (a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
-    /*<<bigarray.ml:325:52>>*/ }
+     /*<<bigarray.ml:325:25>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
+   }
    function slice_right_2(a, n){
-     /*<<bigarray.ml:326:26>>*/ return  /*<<bigarray.ml:326:26>>*/ caml_ba_slice
-             /*<<bigarray.ml:326:26>>*/ (a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
-    /*<<bigarray.ml:326:54>>*/ }
+     /*<<bigarray.ml:326:26>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
+   }
    function init$2(kind, layout, dim1, dim2, dim3, f){
     var
      arr =
-        /*<<bigarray.ml:346:14>>*/  /*<<bigarray.ml:346:14>>*/ create$2
-         /*<<bigarray.ml:346:14>>*/ (kind, layout, dim1, dim2, dim3);
+        /*<<bigarray.ml:346:14>>*/ create$2(kind, layout, dim1, dim2, dim3);
      /*<<bigarray.ml:347:4>>*/ if(layout){
      var _s_ =  /*<<bigarray.ml:338:4>>*/ 1;
      if(dim3 >= 1){
@@ -29090,13 +24060,12 @@
          if(dim1 >= 1){
           var i$0 = _v_;
           for(;;){
-            /*<<bigarray.ml:341:10>>*/  /*<<bigarray.ml:341:10>>*/ caml_ba_set_3
-             /*<<bigarray.ml:341:10>>*/ (arr,
+            /*<<bigarray.ml:341:10>>*/ caml_ba_set_3
+            (arr,
              i$0,
              j$0,
              k$0,
-              /*<<bigarray.ml:341:31>>*/ caml_call3
-               /*<<bigarray.ml:341:31>>*/ (f, i$0, j$0, k$0));
+              /*<<bigarray.ml:341:31>>*/ caml_call3(f, i$0, j$0, k$0));
            var _x_ =  /*<<bigarray.ml:341:10>>*/ i$0 + 1 | 0;
            if(dim1 === i$0) break;
            i$0 = _x_;
@@ -29112,7 +24081,7 @@
        k$0 = _u_;
       }
      }
-      /*<<bigarray.ml:349:24>>*/ return arr /*<<bigarray.ml:349:24>>*/ ;
+      /*<<bigarray.ml:349:24>>*/ return arr;
     }
     var _k_ = dim1 - 1 | 0, _j_ =  /*<<bigarray.ml:330:4>>*/ 0;
     if(_k_ >= 0){
@@ -29126,13 +24095,8 @@
         if(_p_ >= 0){
          var k = _o_;
          for(;;){
-           /*<<bigarray.ml:333:10>>*/  /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
-            /*<<bigarray.ml:333:10>>*/ (arr,
-            i,
-            j,
-            k,
-             /*<<bigarray.ml:333:31>>*/ caml_call3
-              /*<<bigarray.ml:333:31>>*/ (f, i, j, k));
+           /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
+           (arr, i, j, k,  /*<<bigarray.ml:333:31>>*/ caml_call3(f, i, j, k));
           var _r_ =  /*<<bigarray.ml:333:10>>*/ k + 1 | 0;
           if(_p_ === k) break;
           k = _r_;
@@ -29148,7 +24112,7 @@
       i = _n_;
      }
     }
-     /*<<bigarray.ml:348:18>>*/ return arr /*<<bigarray.ml:348:18>>*/ ;
+     /*<<bigarray.ml:348:18>>*/ return arr;
     /*<<bigarray.ml:349:62>>*/ }
    function of_array$1(kind, layout, data){
     var
@@ -29161,9 +24125,7 @@
         /*<<bigarray.ml:353:4>>*/ 0 === dim2
         ? 0
         : caml_check_bound(caml_check_bound(data, 0)[1], 0)[1].length - 1,
-     ba =
-        /*<<bigarray.ml:354:13>>*/  /*<<bigarray.ml:354:13>>*/ create$2
-         /*<<bigarray.ml:354:13>>*/ (kind, layout, dim1, dim2, dim3),
+     ba =  /*<<bigarray.ml:354:13>>*/ create$2(kind, layout, dim1, dim2, dim3),
      ofs =  /*<<bigarray.ml:355:4>>*/ layout ? 1 : 0,
      _b_ =  /*<<bigarray.ml:360:4>>*/ dim1 - 1 | 0,
      _a_ = 0;
@@ -29172,8 +24134,8 @@
      for(;;){
       var row =  /*<<bigarray.ml:361:16>>*/ caml_check_bound(data, i)[1 + i];
       if(row.length - 1 !== dim2)
-        /*<<bigarray.ml:363:8>>*/  /*<<bigarray.ml:363:8>>*/ caml_call1
-         /*<<bigarray.ml:363:8>>*/ (Stdlib[1], cst_Bigarray_Array3_of_array_n);
+        /*<<bigarray.ml:363:8>>*/ caml_call1
+        (Stdlib[1], cst_Bigarray_Array3_of_array_n);
       var
        _d_ =  /*<<bigarray.ml:352:32>>*/ dim2 - 1 | 0,
        _c_ =  /*<<bigarray.ml:363:8>>*/ 0;
@@ -29182,22 +24144,21 @@
        for(;;){
         var col =  /*<<bigarray.ml:365:18>>*/ caml_check_bound(row, j)[1 + j];
         if(col.length - 1 !== dim3)
-          /*<<bigarray.ml:367:10>>*/  /*<<bigarray.ml:367:10>>*/ caml_call1
-           /*<<bigarray.ml:367:10>>*/ (Stdlib[1],
-           cst_Bigarray_Array3_of_array_n$0);
+          /*<<bigarray.ml:367:10>>*/ caml_call1
+          (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
         var
          _g_ =  /*<<bigarray.ml:353:32>>*/ dim3 - 1 | 0,
          _f_ =  /*<<bigarray.ml:367:10>>*/ 0;
         if(_g_ >= 0){
          var k = _f_;
          for(;;){
-           /*<<bigarray.ml:369:10>>*/  /*<<bigarray.ml:369:10>>*/ caml_ba_set_3
-            /*<<bigarray.ml:369:10>>*/ (ba,
+           /*<<bigarray.ml:369:10>>*/ caml_ba_set_3
+           (ba,
             i + ofs | 0,
             j + ofs | 0,
             k + ofs | 0,
             caml_check_bound(col, k)[1 + k]);
-          var _i_ =  /*<<bigarray.ml:369:10>>*/ k + 1 | 0;
+          var _i_ = k + 1 | 0;
           if(_g_ === k) break;
           k = _i_;
          }
@@ -29212,64 +24173,49 @@
       i = _e_;
      }
     }
-     /*<<bigarray.ml:373:4>>*/ return ba /*<<bigarray.ml:373:4>>*/ ;
+     /*<<bigarray.ml:373:4>>*/ return ba;
     /*<<bigarray.ml:373:6>>*/ }
    function array0_of_genarray(a){
      /*<<bigarray.ml:385:2>>*/ return 0
-            ===
-              /*<<bigarray.ml:385:5>>*/ caml_ba_num_dims
-               /*<<bigarray.ml:385:5>>*/ (a)
+            ===  /*<<bigarray.ml:385:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:386:7>>*/ caml_call1
-               /*<<bigarray.ml:386:7>>*/ (Stdlib[1],
-               cst_Bigarray_array0_of_genarra) /*<<bigarray.ml:386:48>>*/ ;
-    /*<<bigarray.ml:386:48>>*/ }
+              (Stdlib[1], cst_Bigarray_array0_of_genarra) /*<<bigarray.ml:386:48>>*/ ;
+   }
    function array1_of_genarray(a){
      /*<<bigarray.ml:388:2>>*/ return 1
-            ===
-              /*<<bigarray.ml:388:5>>*/ caml_ba_num_dims
-               /*<<bigarray.ml:388:5>>*/ (a)
+            ===  /*<<bigarray.ml:388:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:389:7>>*/ caml_call1
-               /*<<bigarray.ml:389:7>>*/ (Stdlib[1],
-               cst_Bigarray_array1_of_genarra) /*<<bigarray.ml:389:48>>*/ ;
-    /*<<bigarray.ml:389:48>>*/ }
+              (Stdlib[1], cst_Bigarray_array1_of_genarra) /*<<bigarray.ml:389:48>>*/ ;
+   }
    function array2_of_genarray(a){
      /*<<bigarray.ml:391:2>>*/ return 2
-            ===
-              /*<<bigarray.ml:391:5>>*/ caml_ba_num_dims
-               /*<<bigarray.ml:391:5>>*/ (a)
+            ===  /*<<bigarray.ml:391:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:392:7>>*/ caml_call1
-               /*<<bigarray.ml:392:7>>*/ (Stdlib[1],
-               cst_Bigarray_array2_of_genarra) /*<<bigarray.ml:392:48>>*/ ;
-    /*<<bigarray.ml:392:48>>*/ }
+              (Stdlib[1], cst_Bigarray_array2_of_genarra) /*<<bigarray.ml:392:48>>*/ ;
+   }
    function array3_of_genarray(a){
      /*<<bigarray.ml:394:2>>*/ return 3
-            ===
-              /*<<bigarray.ml:394:5>>*/ caml_ba_num_dims
-               /*<<bigarray.ml:394:5>>*/ (a)
+            ===  /*<<bigarray.ml:394:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:395:7>>*/ caml_call1
-               /*<<bigarray.ml:395:7>>*/ (Stdlib[1],
-               cst_Bigarray_array3_of_genarra) /*<<bigarray.ml:395:48>>*/ ;
-    /*<<bigarray.ml:395:48>>*/ }
+              (Stdlib[1], cst_Bigarray_array3_of_genarra) /*<<bigarray.ml:395:48>>*/ ;
+   }
    function reshape_0(a){
-     /*<<bigarray.ml:400:18>>*/ return  /*<<bigarray.ml:400:18>>*/ caml_ba_reshape
-             /*<<bigarray.ml:400:18>>*/ (a, [0]) /*<<bigarray.ml:400:32>>*/ ;
-    /*<<bigarray.ml:400:32>>*/ }
+     /*<<bigarray.ml:400:18>>*/ return caml_ba_reshape(a, [0]) /*<<bigarray.ml:400:32>>*/ ;
+   }
    function reshape_1(a, dim1){
-     /*<<bigarray.ml:401:23>>*/ return  /*<<bigarray.ml:401:23>>*/ caml_ba_reshape
-             /*<<bigarray.ml:401:23>>*/ (a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
-    /*<<bigarray.ml:401:41>>*/ }
+     /*<<bigarray.ml:401:23>>*/ return caml_ba_reshape(a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
+   }
    function reshape_2(a, dim1, dim2){
-     /*<<bigarray.ml:402:28>>*/ return  /*<<bigarray.ml:402:28>>*/ caml_ba_reshape
-             /*<<bigarray.ml:402:28>>*/ (a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
-    /*<<bigarray.ml:402:51>>*/ }
+     /*<<bigarray.ml:402:28>>*/ return caml_ba_reshape(a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
+   }
    function reshape_3(a, dim1, dim2, dim3){
-     /*<<bigarray.ml:403:33>>*/ return  /*<<bigarray.ml:403:33>>*/ caml_ba_reshape
-             /*<<bigarray.ml:403:33>>*/ (a, [0, dim1, dim2, dim3]) /*<<bigarray.ml:403:61>>*/ ;
-    /*<<bigarray.ml:403:61>>*/ }
+     /*<<bigarray.ml:403:33>>*/ return caml_ba_reshape
+            (a, [0, dim1, dim2, dim3]) /*<<bigarray.ml:403:61>>*/ ;
+   }
    var
     Stdlib_Bigarray =
       [0,
@@ -29344,24 +24290,23 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_ba_blit =  /*<<?>>*/ runtime.caml_ba_blit,
-    caml_ba_set_1 =  /*<<?>>*/ runtime.caml_ba_set_1,
-    caml_bytes_set =  /*<<?>>*/ runtime.caml_bytes_set,
-    caml_create_bytes =  /*<<?>>*/ runtime.caml_create_bytes,
-    caml_greaterthan =  /*<<?>>*/ runtime.caml_greaterthan,
-    caml_int64_add =  /*<<?>>*/ runtime.caml_int64_add,
-    caml_int64_of_int32 =  /*<<?>>*/ runtime.caml_int64_of_int32,
-    caml_int64_shift_right_unsigne =
-       /*<<?>>*/ runtime.caml_int64_shift_right_unsigned,
-    caml_int64_sub =  /*<<?>>*/ runtime.caml_int64_sub,
-    caml_int64_to_int32 =  /*<<?>>*/ runtime.caml_int64_to_int32,
-    caml_lessequal =  /*<<?>>*/ runtime.caml_lessequal,
-    caml_lessthan =  /*<<?>>*/ runtime.caml_lessthan,
-    caml_lxm_next =  /*<<?>>*/ runtime.caml_lxm_next,
-    caml_mod =  /*<<?>>*/ runtime.caml_mod,
-    caml_notequal =  /*<<?>>*/ runtime.caml_notequal,
-    caml_sys_random_seed =  /*<<?>>*/ runtime.caml_sys_random_seed;
+    runtime = globalThis.jsoo_runtime,
+    caml_ba_blit = runtime.caml_ba_blit,
+    caml_ba_set_1 = runtime.caml_ba_set_1,
+    caml_bytes_set = runtime.caml_bytes_set,
+    caml_create_bytes = runtime.caml_create_bytes,
+    caml_greaterthan = runtime.caml_greaterthan,
+    caml_int64_add = runtime.caml_int64_add,
+    caml_int64_of_int32 = runtime.caml_int64_of_int32,
+    caml_int64_shift_right_unsigne = runtime.caml_int64_shift_right_unsigned,
+    caml_int64_sub = runtime.caml_int64_sub,
+    caml_int64_to_int32 = runtime.caml_int64_to_int32,
+    caml_lessequal = runtime.caml_lessequal,
+    caml_lessthan = runtime.caml_lessthan,
+    caml_lxm_next = runtime.caml_lxm_next,
+    caml_mod = runtime.caml_mod,
+    caml_notequal = runtime.caml_notequal,
+    caml_sys_random_seed = runtime.caml_sys_random_seed;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -29401,54 +24346,30 @@
     _d_ = runtime.caml_int64_create_lo_mi_hi(2, 0, 0),
     _e_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0);
    function create(param){
-     /*<<random.ml:31:4>>*/ return  /*<<random.ml:31:4>>*/ caml_call3
-             /*<<random.ml:31:4>>*/ (Stdlib_Bigarray[20][1], 7, 0, 4) /*<<random.ml:31:34>>*/ ;
-    /*<<random.ml:31:34>>*/ }
+     /*<<random.ml:31:4>>*/ return caml_call3(Stdlib_Bigarray[20][1], 7, 0, 4) /*<<random.ml:31:34>>*/ ;
+   }
    function set(s, i1, i2, i3, i4){
-     /*<<random.ml:34:4>>*/  /*<<random.ml:34:4>>*/ caml_ba_set_1
-      /*<<random.ml:34:4>>*/ (s,
-      0,
-       /*<<random.ml:34:26>>*/ runtime.caml_int64_or
-        /*<<random.ml:34:26>>*/ (i1, _a_));
-     /*<<random.ml:35:4>>*/  /*<<random.ml:35:4>>*/ caml_ba_set_1
-      /*<<random.ml:35:4>>*/ (s, 1, i2);
-    var
-     i3$0 =
-        /*<<random.ml:36:30>>*/  /*<<random.ml:36:30>>*/ caml_notequal
-          /*<<random.ml:36:30>>*/ (i3, _b_)
-        ? i3
-        : _e_;
-     /*<<random.ml:36:4>>*/  /*<<random.ml:36:4>>*/ caml_ba_set_1
-      /*<<random.ml:36:4>>*/ (s, 2, i3$0);
-    var
-     i4$0 =
-        /*<<random.ml:37:30>>*/  /*<<random.ml:37:30>>*/ caml_notequal
-          /*<<random.ml:37:30>>*/ (i4, _c_)
-        ? i4
-        : _d_;
-     /*<<random.ml:37:4>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
-             /*<<random.ml:37:4>>*/ (s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
-    /*<<random.ml:37:55>>*/ }
+     /*<<random.ml:34:4>>*/ caml_ba_set_1
+     (s, 0,  /*<<random.ml:34:26>>*/ runtime.caml_int64_or(i1, _a_));
+     /*<<random.ml:35:4>>*/ caml_ba_set_1(s, 1, i2);
+    var i3$0 =  /*<<random.ml:36:30>>*/ caml_notequal(i3, _b_) ? i3 : _e_;
+     /*<<random.ml:36:4>>*/ caml_ba_set_1(s, 2, i3$0);
+    var i4$0 =  /*<<random.ml:37:30>>*/ caml_notequal(i4, _c_) ? i4 : _d_;
+     /*<<random.ml:37:4>>*/ return caml_ba_set_1(s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
+   }
    function mk(i1, i2, i3, i4){
-    var
-     s =
-        /*<<random.ml:40:12>>*/  /*<<random.ml:40:12>>*/ create
-         /*<<random.ml:40:12>>*/ (0);
-     /*<<random.ml:41:4>>*/  /*<<random.ml:41:4>>*/ set
-      /*<<random.ml:41:4>>*/ (s, i1, i2, i3, i4);
-     /*<<random.ml:41:4>>*/ return s /*<<random.ml:41:4>>*/ ;
+    var s =  /*<<random.ml:40:12>>*/ create(0);
+     /*<<random.ml:41:4>>*/ set(s, i1, i2, i3, i4);
+    return s;
     /*<<random.ml:41:24>>*/ }
    var
     serialization_prefix_len = 5,
     cst_Random_State_of_binary_str =
       "Random.State.of_binary_string: expected a format compatible with OCaml ";
    function to_binary_string(s){
-    var
-     buf =
-        /*<<random.ml:63:14>>*/  /*<<random.ml:63:14>>*/ caml_create_bytes
-         /*<<random.ml:63:14>>*/ (37);
-     /*<<random.ml:64:4>>*/  /*<<random.ml:64:4>>*/ caml_call5
-      /*<<random.ml:64:4>>*/ (Stdlib_Bytes[12],
+    var buf =  /*<<random.ml:63:14>>*/ caml_create_bytes(37);
+     /*<<random.ml:64:4>>*/ caml_call5
+     (Stdlib_Bytes[12],
       serialization_prefix,
       0,
       buf,
@@ -29456,22 +24377,15 @@
       serialization_prefix_len);
     var i = 0;
     for(;;){
-     var
-      _y_ =
-         /*<<random.ml:66:47>>*/  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1
-          /*<<random.ml:66:47>>*/ (s, i);
-      /*<<random.ml:66:6>>*/  /*<<random.ml:66:6>>*/ caml_call3
-       /*<<random.ml:66:6>>*/ (Stdlib_Bytes[86],
-       buf,
-       5 + (i * 8 | 0) | 0,
-       _y_);
-     var _z_ =  /*<<random.ml:66:6>>*/ i + 1 | 0;
+     var _y_ =  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1(s, i);
+      /*<<random.ml:66:6>>*/ caml_call3
+      (Stdlib_Bytes[86], buf, 5 + (i * 8 | 0) | 0, _y_);
+     var _z_ = i + 1 | 0;
      if(3 === i)
-       /*<<random.ml:68:4>>*/ return  /*<<random.ml:68:4>>*/ caml_call1
-               /*<<random.ml:68:4>>*/ (Stdlib_Bytes[44], buf) /*<<random.ml:68:30>>*/ ;
+       /*<<random.ml:68:4>>*/ return caml_call1(Stdlib_Bytes[44], buf) /*<<random.ml:68:30>>*/ ;
      i = _z_;
     }
-    /*<<random.ml:68:30>>*/ }
+   }
    function of_binary_string(buf){
     var
      _v_ = runtime.caml_ml_string_length(buf) !== 37 ? 1 : 0,
@@ -29481,50 +24395,30 @@
         1
         -
           /*<<random.ml:74:14>>*/ caml_call2
-           /*<<random.ml:74:14>>*/ (Stdlib_String[11],
-           serialization_prefix,
-           buf);
+          (Stdlib_String[11], serialization_prefix, buf);
     if(_w_){
      var
       _x_ =
-         /*<<random.ml:77:8>>*/  /*<<random.ml:77:8>>*/ caml_call2
-          /*<<random.ml:77:8>>*/ (Stdlib[28],
-          cst_Random_State_of_binary_str,
-          Stdlib_Sys[46]);
-      /*<<random.ml:76:6>>*/  /*<<random.ml:76:6>>*/ caml_call1
-       /*<<random.ml:76:6>>*/ (Stdlib[2], _x_);
-    }
-    var
-     i1 =
-        /*<<random.ml:79:13>>*/  /*<<random.ml:79:13>>*/ caml_call2
-         /*<<random.ml:79:13>>*/ (Stdlib_String[64], buf, 5),
-     i2 =
-        /*<<random.ml:80:13>>*/  /*<<random.ml:80:13>>*/ caml_call2
-         /*<<random.ml:80:13>>*/ (Stdlib_String[64], buf, 13),
-     i3 =
-        /*<<random.ml:81:13>>*/  /*<<random.ml:81:13>>*/ caml_call2
-         /*<<random.ml:81:13>>*/ (Stdlib_String[64], buf, 21),
-     i4 =
-        /*<<random.ml:82:13>>*/  /*<<random.ml:82:13>>*/ caml_call2
-         /*<<random.ml:82:13>>*/ (Stdlib_String[64], buf, 29);
-     /*<<random.ml:83:4>>*/ return  /*<<random.ml:83:4>>*/ mk
-             /*<<random.ml:83:4>>*/ (i1, i2, i3, i4) /*<<random.ml:83:18>>*/ ;
-    /*<<random.ml:83:18>>*/ }
-   function copy(src){
+         /*<<random.ml:77:8>>*/ caml_call2
+         (Stdlib[28], cst_Random_State_of_binary_str, Stdlib_Sys[46]);
+      /*<<random.ml:76:6>>*/ caml_call1(Stdlib[2], _x_);
+    }
     var
-     dst =
-        /*<<random.ml:89:13>>*/  /*<<random.ml:89:13>>*/ create
-         /*<<random.ml:89:13>>*/ (0);
-     /*<<random.ml:86:4>>*/  /*<<random.ml:86:4>>*/ caml_ba_blit
-      /*<<random.ml:86:4>>*/ (src, dst);
-     /*<<random.ml:89:25>>*/ return dst /*<<random.ml:89:25>>*/ ;
+     i1 =  /*<<random.ml:79:13>>*/ caml_call2(Stdlib_String[64], buf, 5),
+     i2 =  /*<<random.ml:80:13>>*/ caml_call2(Stdlib_String[64], buf, 13),
+     i3 =  /*<<random.ml:81:13>>*/ caml_call2(Stdlib_String[64], buf, 21),
+     i4 =  /*<<random.ml:82:13>>*/ caml_call2(Stdlib_String[64], buf, 29);
+     /*<<random.ml:83:4>>*/ return mk(i1, i2, i3, i4) /*<<random.ml:83:18>>*/ ;
+   }
+   function copy(src){
+    var dst =  /*<<random.ml:89:13>>*/ create(0);
+     /*<<random.ml:86:4>>*/ caml_ba_blit(src, dst);
+     /*<<random.ml:89:25>>*/ return dst;
     /*<<random.ml:89:40>>*/ }
    function reinit(s, seed){
     var
      n = seed.length - 1,
-     b =
-        /*<<random.ml:98:12>>*/  /*<<random.ml:98:12>>*/ caml_create_bytes
-         /*<<random.ml:98:12>>*/ ((n * 8 | 0) + 1 | 0),
+     b =  /*<<random.ml:98:12>>*/ caml_create_bytes((n * 8 | 0) + 1 | 0),
      _p_ =  /*<<random.ml:99:4>>*/ n - 1 | 0,
      _o_ =  /*<<random.ml:98:12>>*/ 0;
     if(_p_ >= 0){
@@ -29532,58 +24426,38 @@
      for(;;){
       var
        _t_ =
-          /*<<random.ml:100:35>>*/  /*<<random.ml:100:35>>*/ caml_int64_of_int32
-           /*<<random.ml:100:35>>*/ (runtime.caml_check_bound(seed, i)[1 + i]);
-       /*<<random.ml:100:6>>*/  /*<<random.ml:100:6>>*/ caml_call3
-        /*<<random.ml:100:6>>*/ (Stdlib_Bytes[86], b, i * 8 | 0, _t_);
-      var _u_ =  /*<<random.ml:100:6>>*/ i + 1 | 0;
+          /*<<random.ml:100:35>>*/ caml_int64_of_int32
+          (runtime.caml_check_bound(seed, i)[1 + i]);
+       /*<<random.ml:100:6>>*/ caml_call3(Stdlib_Bytes[86], b, i * 8 | 0, _t_);
+      var _u_ = i + 1 | 0;
       if(_p_ === i) break;
       i = _u_;
      }
     }
-     /*<<random.ml:102:4>>*/  /*<<random.ml:102:4>>*/ caml_bytes_set
-      /*<<random.ml:102:4>>*/ (b, n * 8 | 0, 1);
-    var
-     d1 =
-        /*<<random.ml:103:13>>*/  /*<<random.ml:103:13>>*/ caml_call1
-         /*<<random.ml:103:13>>*/ (Stdlib_Digest[4], b);
-     /*<<random.ml:104:4>>*/  /*<<random.ml:104:4>>*/ caml_bytes_set
-      /*<<random.ml:104:4>>*/ (b, n * 8 | 0, 2);
-    var
-     d2 =
-        /*<<random.ml:105:13>>*/  /*<<random.ml:105:13>>*/ caml_call1
-         /*<<random.ml:105:13>>*/ (Stdlib_Digest[4], b),
-     _q_ =
-        /*<<random.ml:109:10>>*/  /*<<random.ml:109:10>>*/ caml_call2
-         /*<<random.ml:109:10>>*/ (Stdlib_String[64], d2, 8),
-     _r_ =
-        /*<<random.ml:108:10>>*/  /*<<random.ml:108:10>>*/ caml_call2
-         /*<<random.ml:108:10>>*/ (Stdlib_String[64], d2, 0),
-     _s_ =
-        /*<<random.ml:107:10>>*/  /*<<random.ml:107:10>>*/ caml_call2
-         /*<<random.ml:107:10>>*/ (Stdlib_String[64], d1, 8);
-     /*<<random.ml:109:10>>*/ return  /*<<random.ml:109:10>>*/ set
-             /*<<random.ml:109:10>>*/ (s,
-              /*<<random.ml:106:10>>*/ caml_call2
-               /*<<random.ml:106:10>>*/ (Stdlib_String[64], d1, 0),
+     /*<<random.ml:102:4>>*/ caml_bytes_set(b, n * 8 | 0, 1);
+    var d1 =  /*<<random.ml:103:13>>*/ caml_call1(Stdlib_Digest[4], b);
+     /*<<random.ml:104:4>>*/ caml_bytes_set(b, n * 8 | 0, 2);
+    var
+     d2 =  /*<<random.ml:105:13>>*/ caml_call1(Stdlib_Digest[4], b),
+     _q_ =  /*<<random.ml:109:10>>*/ caml_call2(Stdlib_String[64], d2, 8),
+     _r_ =  /*<<random.ml:108:10>>*/ caml_call2(Stdlib_String[64], d2, 0),
+     _s_ =  /*<<random.ml:107:10>>*/ caml_call2(Stdlib_String[64], d1, 8);
+     /*<<random.ml:109:10>>*/ return set
+            (s,
+              /*<<random.ml:106:10>>*/ caml_call2(Stdlib_String[64], d1, 0),
              _s_,
              _r_,
              _q_) /*<<random.ml:109:36>>*/ ;
-    /*<<random.ml:109:36>>*/ }
+   }
    function make(seed){
-    var
-     s =
-        /*<<random.ml:112:12>>*/  /*<<random.ml:112:12>>*/ create
-         /*<<random.ml:112:12>>*/ (0);
-     /*<<random.ml:112:24>>*/  /*<<random.ml:112:24>>*/ reinit
-      /*<<random.ml:112:24>>*/ (s, seed);
-     /*<<random.ml:112:24>>*/ return s /*<<random.ml:112:24>>*/ ;
+    var s =  /*<<random.ml:112:12>>*/ create(0);
+     /*<<random.ml:112:24>>*/ reinit(s, seed);
+    return s;
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
      /*<<random.ml:115:4>>*/ return  /*<<random.ml:115:9>>*/ make
-             /*<<random.ml:115:9>>*/ ( /*<<random.ml:115:9>>*/ caml_sys_random_seed
-               /*<<random.ml:115:9>>*/ (0)) /*<<random.ml:115:25>>*/ ;
-    /*<<random.ml:115:25>>*/ }
+            (caml_sys_random_seed(0)) /*<<random.ml:115:25>>*/ ;
+   }
    var
     max_int31 = 1073741823,
     max_int32 = 2147483647,
@@ -29594,140 +24468,105 @@
     cst_Random_int32_in_range = "Random.int32_in_range";
    function bits(s){
      /*<<random.ml:129:4>>*/ return  /*<<random.ml:129:17>>*/ caml_int64_to_int32
-             /*<<random.ml:129:17>>*/ ( /*<<random.ml:129:17>>*/ caml_lxm_next
-               /*<<random.ml:129:17>>*/ (s))
+            (caml_lxm_next(s))
            & 1073741823;
     /*<<random.ml:129:40>>*/ }
    function int_aux(s, n, mask){
      /*<<random.ml:138:4>>*/ for(;;){
      var
       r =
-         /*<<random.ml:138:25>>*/ caml_int64_to_int32
-          /*<<random.ml:138:25>>*/ ( /*<<random.ml:138:25>>*/ caml_lxm_next
-            /*<<random.ml:138:25>>*/ (s))
-        & mask,
+         /*<<random.ml:138:25>>*/ caml_int64_to_int32(caml_lxm_next(s)) & mask,
       v = caml_mod(r, n);
      if(((mask - n | 0) + 1 | 0) >= (r - v | 0))
-       /*<<random.ml:148:55>>*/ return v /*<<random.ml:148:55>>*/ ;
+       /*<<random.ml:148:55>>*/ return v;
     }
     /*<<random.ml:148:56>>*/ }
    function int$0(s, bound){
      /*<<random.ml:154:4>>*/ if(1073741823 >= bound && 0 < bound)
      return int_aux(s, bound, max_int31) /*<<random.ml:156:34>>*/ ;
-     /*<<random.ml:155:9>>*/ return  /*<<random.ml:155:9>>*/ caml_call1
-             /*<<random.ml:155:9>>*/ (Stdlib[1], cst_Random_int) /*<<random.ml:156:34>>*/ ;
-    /*<<random.ml:156:34>>*/ }
+     /*<<random.ml:155:9>>*/ return caml_call1(Stdlib[1], cst_Random_int) /*<<random.ml:156:34>>*/ ;
+   }
    function full_int(s, bound){
      /*<<random.ml:161:4>>*/ if(0 >= bound)
-      /*<<random.ml:162:6>>*/ return  /*<<random.ml:162:6>>*/ caml_call1
-              /*<<random.ml:162:6>>*/ (Stdlib[1], cst_Random_full_int) /*<<random.ml:173:22>>*/ ;
+      /*<<random.ml:162:6>>*/ return caml_call1
+             (Stdlib[1], cst_Random_full_int) /*<<random.ml:173:22>>*/ ;
     var
      _n_ =
        bound <= 1073741823
         ? max_int31
         : bound <= 2147483647 ? max_int32 : Stdlib[19];
-     /*<<random.ml:153:10>>*/ return  /*<<random.ml:153:10>>*/ int_aux
-             /*<<random.ml:153:10>>*/ (s, bound, _n_) /*<<random.ml:173:22>>*/ ;
-    /*<<random.ml:173:22>>*/ }
+     /*<<random.ml:153:10>>*/ return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
+   }
    function int_in_range_aux(s, min, max, mask, nbits){
     var span = (max - min | 0) + 1 | 0;
     if(span <= mask && 0 < span)
-     return min
-            +
-              /*<<random.ml:198:12>>*/ int_aux
-               /*<<random.ml:198:12>>*/ (s, span, mask)
-            | 0;
+     return min +  /*<<random.ml:198:12>>*/ int_aux(s, span, mask) | 0;
      /*<<random.ml:184:4>>*/ for(;;){
      var
       drop = Stdlib_Sys[10] - nbits | 0,
       r =
-         /*<<random.ml:186:27>>*/ caml_int64_to_int32
-          /*<<random.ml:186:27>>*/ ( /*<<random.ml:186:27>>*/ caml_lxm_next
-            /*<<random.ml:186:27>>*/ (s))
+         /*<<random.ml:186:27>>*/ caml_int64_to_int32(caml_lxm_next(s))
         << drop
         >> drop;
-     if(r >= min && max >= r)
-       /*<<random.ml:187:74>>*/ return r /*<<random.ml:187:74>>*/ ;
+     if(r >= min && max >= r)  /*<<random.ml:187:74>>*/ return r;
     }
     /*<<random.ml:201:43>>*/ }
    function int_in_range(s, min, max){
      /*<<random.ml:206:4>>*/ if(max < min)
-      /*<<random.ml:207:6>>*/  /*<<random.ml:207:6>>*/ caml_call1
-       /*<<random.ml:207:6>>*/ (Stdlib[1], cst_Random_int_in_range);
+      /*<<random.ml:207:6>>*/ caml_call1(Stdlib[1], cst_Random_int_in_range);
     if(-1073741824 <= min && max <= 1073741823)
-      /*<<random.ml:215:6>>*/ return  /*<<random.ml:215:6>>*/ int_in_range_aux
-              /*<<random.ml:215:6>>*/ (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
+      /*<<random.ml:215:6>>*/ return int_in_range_aux
+             (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
     if(-2147483648 <= min && max <= 2147483647)
-      /*<<random.ml:217:6>>*/ return  /*<<random.ml:217:6>>*/ int_in_range_aux
-              /*<<random.ml:217:6>>*/ (s, min, max, max_int32, 32) /*<<random.ml:219:68>>*/ ;
-     /*<<random.ml:219:6>>*/ return  /*<<random.ml:219:6>>*/ int_in_range_aux
-             /*<<random.ml:219:6>>*/ (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
-    /*<<random.ml:219:68>>*/ }
+      /*<<random.ml:217:6>>*/ return int_in_range_aux
+             (s, min, max, max_int32, 32) /*<<random.ml:219:68>>*/ ;
+     /*<<random.ml:219:6>>*/ return int_in_range_aux
+            (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
+   }
    function bits32(s){
-     /*<<random.ml:223:4>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
-             /*<<random.ml:223:4>>*/ ( /*<<random.ml:223:19>>*/ caml_lxm_next
-               /*<<random.ml:223:19>>*/ (s)) /*<<random.ml:223:27>>*/ ;
-    /*<<random.ml:223:27>>*/ }
+     /*<<random.ml:223:4>>*/ return caml_int64_to_int32
+            ( /*<<random.ml:223:19>>*/ caml_lxm_next(s)) /*<<random.ml:223:27>>*/ ;
+   }
    function int32aux(s, n){
      /*<<random.ml:227:4>>*/ for(;;){
      var
       r =
-         /*<<random.ml:227:12>>*/  /*<<random.ml:227:38>>*/ bits32
-          /*<<random.ml:227:38>>*/ (s)
-        >>> 1
+         /*<<random.ml:227:12>>*/  /*<<random.ml:227:38>>*/ bits32(s) >>> 1
         | 0,
-      v =
-         /*<<random.ml:228:12>>*/  /*<<random.ml:228:12>>*/ caml_mod
-          /*<<random.ml:228:12>>*/ (r, n);
+      v =  /*<<random.ml:228:12>>*/ caml_mod(r, n);
       /*<<random.ml:230:14>>*/ if
-      (!
-        /*<<random.ml:230:14>>*/ caml_greaterthan
-         /*<<random.ml:230:14>>*/ (r - v | 0,
-         (Stdlib_Int32[9] - n | 0) + 1 | 0))
-       /*<<random.ml:232:9>>*/ return v /*<<random.ml:232:9>>*/ ;
+      (! caml_greaterthan(r - v | 0, (Stdlib_Int32[9] - n | 0) + 1 | 0))
+       /*<<random.ml:232:9>>*/ return v;
     }
     /*<<random.ml:232:10>>*/ }
    function int32(s, bound){
      /*<<random.ml:235:4>>*/ return  /*<<random.ml:235:7>>*/ caml_lessequal
-              /*<<random.ml:235:7>>*/ (bound, 0)
-            ?  /*<<random.ml:236:9>>*/ caml_call1
-               /*<<random.ml:236:9>>*/ (Stdlib[1], cst_Random_int32)
-            :  /*<<random.ml:237:9>>*/ int32aux
-               /*<<random.ml:237:9>>*/ (s, bound) /*<<random.ml:237:25>>*/ ;
-    /*<<random.ml:237:25>>*/ }
+             (bound, 0)
+            ?  /*<<random.ml:236:9>>*/ caml_call1(Stdlib[1], cst_Random_int32)
+            :  /*<<random.ml:237:9>>*/ int32aux(s, bound) /*<<random.ml:237:25>>*/ ;
+   }
    function int32_in_range(s, min, max){
      /*<<random.ml:246:4>>*/ if
-     ( /*<<random.ml:246:7>>*/ caml_greaterthan
-        /*<<random.ml:246:7>>*/ (min, max))
-      /*<<random.ml:247:6>>*/ return  /*<<random.ml:247:6>>*/ caml_call1
-              /*<<random.ml:247:6>>*/ (Stdlib[1], cst_Random_int32_in_range) /*<<random.ml:254:39>>*/ ;
+     ( /*<<random.ml:246:7>>*/ caml_greaterthan(min, max))
+      /*<<random.ml:247:6>>*/ return caml_call1
+             (Stdlib[1], cst_Random_int32_in_range) /*<<random.ml:254:39>>*/ ;
     var
      span =
-        /*<<random.ml:249:17>>*/  /*<<random.ml:249:17>>*/ caml_call1
-         /*<<random.ml:249:17>>*/ (Stdlib_Int32[6], max - min | 0);
-     /*<<random.ml:251:9>>*/ if
-     (!
-       /*<<random.ml:251:9>>*/ caml_lessequal
-        /*<<random.ml:251:9>>*/ (span, Stdlib_Int32[1]))
+        /*<<random.ml:249:17>>*/ caml_call1(Stdlib_Int32[6], max - min | 0);
+     /*<<random.ml:251:9>>*/ if(! caml_lessequal(span, Stdlib_Int32[1]))
       /*<<random.ml:254:8>>*/ return min
-            +
-              /*<<random.ml:254:22>>*/ int32aux
-               /*<<random.ml:254:22>>*/ (s, span)
+            +  /*<<random.ml:254:22>>*/ int32aux(s, span)
             | 0 /*<<random.ml:254:8>>*/ ;
      /*<<random.ml:242:4>>*/ for(;;){
      var
       r =
-         /*<<random.ml:242:12>>*/  /*<<random.ml:242:12>>*/ caml_int64_to_int32
-          /*<<random.ml:242:12>>*/ ( /*<<random.ml:242:27>>*/ caml_lxm_next
-            /*<<random.ml:242:27>>*/ (s));
+         /*<<random.ml:242:12>>*/ caml_int64_to_int32
+         ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
       /*<<random.ml:243:7>>*/ if
       (!
-        /*<<random.ml:243:7>>*/ caml_lessthan /*<<random.ml:243:7>>*/ (r, min)
-       &&
-        !
-         /*<<random.ml:243:18>>*/ caml_greaterthan
-          /*<<random.ml:243:18>>*/ (r, max))
-       /*<<random.ml:243:67>>*/ return r /*<<random.ml:243:67>>*/ ;
+       caml_lessthan(r, min)
+       && !  /*<<random.ml:243:18>>*/ caml_greaterthan(r, max))
+       /*<<random.ml:243:67>>*/ return r;
     }
     /*<<random.ml:254:39>>*/ }
    var
@@ -29740,66 +24579,43 @@
      /*<<random.ml:262:4>>*/ for(;;){
      var
       r =
-         /*<<random.ml:262:12>>*/  /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
-          /*<<random.ml:262:12>>*/ ( /*<<random.ml:258:4>>*/ caml_lxm_next
-            /*<<random.ml:258:4>>*/ (s),
-          1),
-      v =
-         /*<<random.ml:263:12>>*/  /*<<random.ml:263:12>>*/ runtime.caml_int64_mod
-          /*<<random.ml:263:12>>*/ (r, n);
+         /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
+         ( /*<<random.ml:258:4>>*/ caml_lxm_next(s), 1),
+      v =  /*<<random.ml:263:12>>*/ runtime.caml_int64_mod(r, n);
       /*<<random.ml:265:14>>*/ if
       (!
-        /*<<random.ml:265:14>>*/ caml_greaterthan
-         /*<<random.ml:265:14>>*/ ( /*<<random.ml:265:14>>*/ caml_int64_sub
-           /*<<random.ml:265:14>>*/ (r, v),
+       caml_greaterthan
+        (caml_int64_sub(r, v),
           /*<<random.ml:265:24>>*/ caml_int64_add
-           /*<<random.ml:265:24>>*/ ( /*<<random.ml:265:28>>*/ caml_int64_sub
-             /*<<random.ml:265:28>>*/ (Stdlib_Int64[9], n),
-           _f_)))
-       /*<<random.ml:267:9>>*/ return v /*<<random.ml:267:9>>*/ ;
+          ( /*<<random.ml:265:28>>*/ caml_int64_sub(Stdlib_Int64[9], n), _f_)))
+       /*<<random.ml:267:9>>*/ return v;
     }
     /*<<random.ml:267:10>>*/ }
    function int64(s, bound){
      /*<<random.ml:270:4>>*/ return  /*<<random.ml:270:7>>*/ caml_lessequal
-              /*<<random.ml:270:7>>*/ (bound, _g_)
-            ?  /*<<random.ml:271:9>>*/ caml_call1
-               /*<<random.ml:271:9>>*/ (Stdlib[1], cst_Random_int64)
-            :  /*<<random.ml:272:9>>*/ int64aux
-               /*<<random.ml:272:9>>*/ (s, bound) /*<<random.ml:272:25>>*/ ;
-    /*<<random.ml:272:25>>*/ }
+             (bound, _g_)
+            ?  /*<<random.ml:271:9>>*/ caml_call1(Stdlib[1], cst_Random_int64)
+            :  /*<<random.ml:272:9>>*/ int64aux(s, bound) /*<<random.ml:272:25>>*/ ;
+   }
    function int64_in_range(s, min, max){
      /*<<random.ml:281:4>>*/ if
-     ( /*<<random.ml:281:7>>*/ caml_greaterthan
-        /*<<random.ml:281:7>>*/ (min, max))
-      /*<<random.ml:282:6>>*/ return  /*<<random.ml:282:6>>*/ caml_call1
-              /*<<random.ml:282:6>>*/ (Stdlib[1], cst_Random_int64_in_range) /*<<random.ml:289:39>>*/ ;
+     ( /*<<random.ml:281:7>>*/ caml_greaterthan(min, max))
+      /*<<random.ml:282:6>>*/ return caml_call1
+             (Stdlib[1], cst_Random_int64_in_range) /*<<random.ml:289:39>>*/ ;
     var
      span =
-        /*<<random.ml:284:17>>*/  /*<<random.ml:284:17>>*/ caml_call1
-         /*<<random.ml:284:17>>*/ (Stdlib_Int64[6],
-          /*<<random.ml:284:28>>*/ caml_int64_sub
-           /*<<random.ml:284:28>>*/ (max, min));
-     /*<<random.ml:286:9>>*/ if
-     (!
-       /*<<random.ml:286:9>>*/ caml_lessequal
-        /*<<random.ml:286:9>>*/ (span, Stdlib_Int64[1]))
-      /*<<random.ml:289:8>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
-              /*<<random.ml:289:8>>*/ (min,
-               /*<<random.ml:289:22>>*/ int64aux
-                /*<<random.ml:289:22>>*/ (s, span)) /*<<random.ml:289:39>>*/ ;
+        /*<<random.ml:284:17>>*/ caml_call1
+        (Stdlib_Int64[6],  /*<<random.ml:284:28>>*/ caml_int64_sub(max, min));
+     /*<<random.ml:286:9>>*/ if(! caml_lessequal(span, Stdlib_Int64[1]))
+      /*<<random.ml:289:8>>*/ return caml_int64_add
+             (min,  /*<<random.ml:289:22>>*/ int64aux(s, span)) /*<<random.ml:289:39>>*/ ;
      /*<<random.ml:277:4>>*/ for(;;){
-     var
-      r =
-         /*<<random.ml:277:12>>*/  /*<<random.ml:277:12>>*/ caml_lxm_next
-          /*<<random.ml:277:12>>*/ (s);
+     var r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
       /*<<random.ml:278:7>>*/ if
       (!
-        /*<<random.ml:278:7>>*/ caml_lessthan /*<<random.ml:278:7>>*/ (r, min)
-       &&
-        !
-         /*<<random.ml:278:18>>*/ caml_greaterthan
-          /*<<random.ml:278:18>>*/ (r, max))
-       /*<<random.ml:278:67>>*/ return r /*<<random.ml:278:67>>*/ ;
+       caml_lessthan(r, min)
+       && !  /*<<random.ml:278:18>>*/ caml_greaterthan(r, max))
+       /*<<random.ml:278:67>>*/ return r;
     }
     /*<<random.ml:289:39>>*/ }
    var
@@ -29813,220 +24629,185 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s){
-          /*<<random.ml:294:18>>*/ return  /*<<random.ml:294:37>>*/ bits32
-                  /*<<random.ml:294:37>>*/ (s) /*<<random.ml:294:47>>*/ ;
-         /*<<random.ml:294:47>>*/ }
+          /*<<random.ml:294:18>>*/ return  /*<<random.ml:294:37>>*/ bits32(s) /*<<random.ml:294:47>>*/ ;
+        }
        : function
         (s){
-          /*<<random.ml:295:18>>*/ return  /*<<random.ml:295:18>>*/ caml_int64_to_int32
-                  /*<<random.ml:295:18>>*/ ( /*<<random.ml:258:4>>*/ caml_lxm_next
-                    /*<<random.ml:258:4>>*/ (s)) /*<<random.ml:295:47>>*/ ;
-         /*<<random.ml:295:47>>*/ },
+          /*<<random.ml:295:18>>*/ return caml_int64_to_int32
+                 ( /*<<random.ml:258:4>>*/ caml_lxm_next(s)) /*<<random.ml:295:47>>*/ ;
+        },
     nativeint =
       32 === Stdlib_Nativeint[9]
        ? function
         (s, bound){
           /*<<random.ml:300:24>>*/ return  /*<<random.ml:300:43>>*/ int32
-                  /*<<random.ml:300:43>>*/ (s, bound) /*<<random.ml:300:79>>*/ ;
-         /*<<random.ml:300:79>>*/ }
+                 (s, bound) /*<<random.ml:300:79>>*/ ;
+        }
        : function
         (s, bound){
-          /*<<random.ml:301:24>>*/ return  /*<<random.ml:301:24>>*/ caml_int64_to_int32
-                  /*<<random.ml:301:24>>*/ ( /*<<random.ml:301:43>>*/ int64
-                    /*<<random.ml:301:43>>*/ (s,
-                     /*<<random.ml:301:52>>*/ caml_int64_of_int32
-                      /*<<random.ml:301:52>>*/ (bound))) /*<<random.ml:301:79>>*/ ;
-         /*<<random.ml:301:79>>*/ },
+          /*<<random.ml:301:24>>*/ return caml_int64_to_int32
+                 ( /*<<random.ml:301:43>>*/ int64
+                   (s,  /*<<random.ml:301:52>>*/ caml_int64_of_int32(bound))) /*<<random.ml:301:79>>*/ ;
+        },
     nativeint_in_range =
       32 === Stdlib_Nativeint[9]
        ? function
         (s, min, max){
           /*<<random.ml:307:6>>*/ return  /*<<random.ml:307:25>>*/ int32_in_range
-                  /*<<random.ml:307:25>>*/ (s, min, max) /*<<random.ml:308:68>>*/ ;
-         /*<<random.ml:308:68>>*/ }
+                 (s, min, max) /*<<random.ml:308:68>>*/ ;
+        }
        : function
         (s, min, max){
-          /*<<random.ml:310:6>>*/ return  /*<<random.ml:310:6>>*/ caml_int64_to_int32
-                  /*<<random.ml:310:6>>*/ ( /*<<random.ml:310:25>>*/ int64_in_range
-                    /*<<random.ml:310:25>>*/ (s,
-                     /*<<random.ml:311:13>>*/ caml_int64_of_int32
-                      /*<<random.ml:311:13>>*/ (min),
-                     /*<<random.ml:311:43>>*/ caml_int64_of_int32
-                      /*<<random.ml:311:43>>*/ (max))) /*<<random.ml:311:68>>*/ ;
-         /*<<random.ml:311:68>>*/ };
+          /*<<random.ml:310:6>>*/ return caml_int64_to_int32
+                 ( /*<<random.ml:310:25>>*/ int64_in_range
+                   (s,
+                     /*<<random.ml:311:13>>*/ caml_int64_of_int32(min),
+                     /*<<random.ml:311:43>>*/ caml_int64_of_int32(max))) /*<<random.ml:311:68>>*/ ;
+        };
    function float$0(s, bound){
      /*<<random.ml:321:22>>*/ for(;;){
      var
-      b =
-         /*<<random.ml:316:12>>*/  /*<<random.ml:316:12>>*/ caml_lxm_next
-          /*<<random.ml:316:12>>*/ (s),
-      n =
-         /*<<random.ml:317:12>>*/  /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne
-          /*<<random.ml:317:12>>*/ (b, 11);
-      /*<<random.ml:318:7>>*/ if
-      ( /*<<random.ml:318:7>>*/ caml_notequal /*<<random.ml:318:7>>*/ (n, _h_))
+      b =  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
+      n =  /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne(b, 11);
+      /*<<random.ml:318:7>>*/ if(caml_notequal(n, _h_))
        /*<<random.ml:321:22>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
-               /*<<random.ml:318:20>>*/ (n)
+              (n)
              * 1.1102230246251565e-16
              * bound /*<<random.ml:321:22>>*/ ;
     }
     /*<<random.ml:321:41>>*/ }
    function bool(s){
-     /*<<random.ml:324:15>>*/ return  /*<<random.ml:324:15>>*/ caml_lessthan
-             /*<<random.ml:324:15>>*/ ( /*<<random.ml:324:15>>*/ caml_lxm_next
-               /*<<random.ml:324:15>>*/ (s),
-             _i_) /*<<random.ml:324:26>>*/ ;
-    /*<<random.ml:324:26>>*/ }
+     /*<<random.ml:324:15>>*/ return caml_lessthan(caml_lxm_next(s), _i_) /*<<random.ml:324:26>>*/ ;
+   }
    function split(s){
     var
-     i1 =
-        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
-         /*<<random.ml:258:4>>*/ (s),
-     i2 =
-        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
-         /*<<random.ml:258:4>>*/ (s),
-     i3 =
-        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
-         /*<<random.ml:258:4>>*/ (s),
-     i4 =
-        /*<<random.ml:258:4>>*/  /*<<random.ml:258:4>>*/ caml_lxm_next
-         /*<<random.ml:258:4>>*/ (s);
-     /*<<random.ml:330:4>>*/ return  /*<<random.ml:330:4>>*/ mk
-             /*<<random.ml:330:4>>*/ (i1, i2, i3, i4) /*<<random.ml:330:18>>*/ ;
-    /*<<random.ml:330:18>>*/ }
+     i1 =  /*<<random.ml:258:4>>*/ caml_lxm_next(s),
+     i2 = caml_lxm_next(s),
+     i3 = caml_lxm_next(s),
+     i4 = caml_lxm_next(s);
+     /*<<random.ml:330:4>>*/ return mk(i1, i2, i3, i4) /*<<random.ml:330:18>>*/ ;
+   }
    function mk_default(param){
-     /*<<random.ml:335:2>>*/ return  /*<<random.ml:335:2>>*/ mk
-             /*<<random.ml:335:2>>*/ (_m_, _l_, _k_, _j_) /*<<random.ml:338:31>>*/ ;
-    /*<<random.ml:338:31>>*/ }
+     /*<<random.ml:335:2>>*/ return mk(_m_, _l_, _k_, _j_) /*<<random.ml:338:31>>*/ ;
+   }
    var
     random_key =
-       /*<<random.ml:341:2>>*/  /*<<random.ml:341:2>>*/ caml_call2
-        /*<<random.ml:341:2>>*/ (Stdlib_Domain[10][1], [0, split], mk_default);
+       /*<<random.ml:341:2>>*/ caml_call2
+       (Stdlib_Domain[10][1], [0, split], mk_default);
    function bits$0(param){
      /*<<random.ml:343:14>>*/ return  /*<<random.ml:343:25>>*/ bits
-             /*<<random.ml:343:25>>*/ ( /*<<random.ml:343:25>>*/ caml_call1
-               /*<<random.ml:343:25>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
-    /*<<random.ml:343:52>>*/ }
+            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
+   }
    function int$1(bound){
-     /*<<random.ml:344:16>>*/ return  /*<<random.ml:344:16>>*/ int$0
-             /*<<random.ml:344:16>>*/ ( /*<<random.ml:344:26>>*/ caml_call1
-               /*<<random.ml:344:26>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:344:16>>*/ return int$0
+            ( /*<<random.ml:344:26>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:344:59>>*/ ;
-    /*<<random.ml:344:59>>*/ }
+   }
    function full_int$0(bound){
-     /*<<random.ml:345:21>>*/ return  /*<<random.ml:345:21>>*/ full_int
-             /*<<random.ml:345:21>>*/ ( /*<<random.ml:345:36>>*/ caml_call1
-               /*<<random.ml:345:36>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:345:21>>*/ return full_int
+            ( /*<<random.ml:345:36>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:345:69>>*/ ;
-    /*<<random.ml:345:69>>*/ }
+   }
    function int_in_range$0(min, max){
-     /*<<random.ml:347:2>>*/ return  /*<<random.ml:347:2>>*/ int_in_range
-             /*<<random.ml:347:2>>*/ ( /*<<random.ml:347:21>>*/ caml_call1
-               /*<<random.ml:347:21>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:347:2>>*/ return int_in_range
+            ( /*<<random.ml:347:21>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:347:58>>*/ ;
-    /*<<random.ml:347:58>>*/ }
+   }
    function int32$0(bound){
-     /*<<random.ml:348:18>>*/ return  /*<<random.ml:348:18>>*/ int32
-             /*<<random.ml:348:18>>*/ ( /*<<random.ml:348:30>>*/ caml_call1
-               /*<<random.ml:348:30>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:348:18>>*/ return int32
+            ( /*<<random.ml:348:30>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:348:63>>*/ ;
-    /*<<random.ml:348:63>>*/ }
+   }
    function int32_in_range$0(min, max){
-     /*<<random.ml:350:2>>*/ return  /*<<random.ml:350:2>>*/ int32_in_range
-             /*<<random.ml:350:2>>*/ ( /*<<random.ml:350:23>>*/ caml_call1
-               /*<<random.ml:350:23>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:350:2>>*/ return int32_in_range
+            ( /*<<random.ml:350:23>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:350:60>>*/ ;
-    /*<<random.ml:350:60>>*/ }
+   }
    function nativeint$0(bound){
-     /*<<random.ml:351:22>>*/ return  /*<<random.ml:351:22>>*/ nativeint
-             /*<<random.ml:351:22>>*/ ( /*<<random.ml:351:38>>*/ caml_call1
-               /*<<random.ml:351:38>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:351:22>>*/ return nativeint
+            ( /*<<random.ml:351:38>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:351:71>>*/ ;
-    /*<<random.ml:351:71>>*/ }
+   }
    function nativeint_in_range$0(min, max){
-     /*<<random.ml:353:2>>*/ return  /*<<random.ml:353:2>>*/ nativeint_in_range
-             /*<<random.ml:353:2>>*/ ( /*<<random.ml:353:27>>*/ caml_call1
-               /*<<random.ml:353:27>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:353:2>>*/ return nativeint_in_range
+            ( /*<<random.ml:353:27>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:353:64>>*/ ;
-    /*<<random.ml:353:64>>*/ }
+   }
    function int64$0(bound){
-     /*<<random.ml:354:18>>*/ return  /*<<random.ml:354:18>>*/ int64
-             /*<<random.ml:354:18>>*/ ( /*<<random.ml:354:30>>*/ caml_call1
-               /*<<random.ml:354:30>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:354:18>>*/ return int64
+            ( /*<<random.ml:354:30>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:354:63>>*/ ;
-    /*<<random.ml:354:63>>*/ }
+   }
    function int64_in_range$0(min, max){
-     /*<<random.ml:356:2>>*/ return  /*<<random.ml:356:2>>*/ int64_in_range
-             /*<<random.ml:356:2>>*/ ( /*<<random.ml:356:23>>*/ caml_call1
-               /*<<random.ml:356:23>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:356:2>>*/ return int64_in_range
+            ( /*<<random.ml:356:23>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:356:60>>*/ ;
-    /*<<random.ml:356:60>>*/ }
+   }
    function float$1(scale){
-     /*<<random.ml:357:18>>*/ return  /*<<random.ml:357:18>>*/ float$0
-             /*<<random.ml:357:18>>*/ ( /*<<random.ml:357:30>>*/ caml_call1
-               /*<<random.ml:357:30>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:357:18>>*/ return float$0
+            ( /*<<random.ml:357:30>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              scale) /*<<random.ml:357:63>>*/ ;
-    /*<<random.ml:357:63>>*/ }
+   }
    function bool$0(param){
      /*<<random.ml:358:14>>*/ return  /*<<random.ml:358:25>>*/ bool
-             /*<<random.ml:358:25>>*/ ( /*<<random.ml:358:25>>*/ caml_call1
-               /*<<random.ml:358:25>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
-    /*<<random.ml:358:52>>*/ }
+            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
+   }
    function bits32$0(param){
      /*<<random.ml:359:16>>*/ return  /*<<random.ml:359:29>>*/ bits32
-             /*<<random.ml:359:29>>*/ ( /*<<random.ml:359:29>>*/ caml_call1
-               /*<<random.ml:359:29>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
-    /*<<random.ml:359:56>>*/ }
+            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
+   }
    function bits64$0(param){
     var
      s =
-        /*<<random.ml:360:29>>*/  /*<<random.ml:360:29>>*/ caml_call1
-         /*<<random.ml:360:29>>*/ (Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:258:4>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next
-             /*<<random.ml:258:4>>*/ (s) /*<<random.ml:360:56>>*/ ;
-    /*<<random.ml:360:56>>*/ }
+        /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
+     /*<<random.ml:258:4>>*/ return caml_lxm_next(s) /*<<random.ml:360:56>>*/ ;
+   }
    function nativebits$0(param){
      /*<<random.ml:361:20>>*/ return  /*<<random.ml:361:37>>*/ nativebits
-             /*<<random.ml:361:37>>*/ ( /*<<random.ml:361:37>>*/ caml_call1
-               /*<<random.ml:361:37>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
-    /*<<random.ml:361:64>>*/ }
+            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
+   }
    function full_init(seed){
-     /*<<random.ml:363:21>>*/ return  /*<<random.ml:363:21>>*/ reinit
-             /*<<random.ml:363:21>>*/ ( /*<<random.ml:363:34>>*/ caml_call1
-               /*<<random.ml:363:34>>*/ (Stdlib_Domain[10][2], random_key),
+     /*<<random.ml:363:21>>*/ return reinit
+            ( /*<<random.ml:363:34>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key),
              seed) /*<<random.ml:363:66>>*/ ;
-    /*<<random.ml:363:66>>*/ }
+   }
    function init(seed){
      /*<<random.ml:364:16>>*/ return  /*<<random.ml:364:26>>*/ full_init
-             /*<<random.ml:364:26>>*/ ([0, seed]) /*<<random.ml:364:36>>*/ ;
-    /*<<random.ml:364:36>>*/ }
+            ([0, seed]) /*<<random.ml:364:36>>*/ ;
+   }
    function self_init(param){
      /*<<random.ml:365:19>>*/ return  /*<<random.ml:365:29>>*/ full_init
-             /*<<random.ml:365:29>>*/ ( /*<<random.ml:365:29>>*/ caml_sys_random_seed
-               /*<<random.ml:365:29>>*/ (0)) /*<<random.ml:365:44>>*/ ;
-    /*<<random.ml:365:44>>*/ }
+            (caml_sys_random_seed(0)) /*<<random.ml:365:44>>*/ ;
+   }
    function split$0(param){
      /*<<random.ml:369:15>>*/ return  /*<<random.ml:369:27>>*/ split
-             /*<<random.ml:369:27>>*/ ( /*<<random.ml:369:27>>*/ caml_call1
-               /*<<random.ml:369:27>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
-    /*<<random.ml:369:54>>*/ }
+            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
+   }
    function get_state(param){
      /*<<random.ml:373:19>>*/ return  /*<<random.ml:373:30>>*/ copy
-             /*<<random.ml:373:30>>*/ ( /*<<random.ml:373:30>>*/ caml_call1
-               /*<<random.ml:373:30>>*/ (Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
-    /*<<random.ml:373:57>>*/ }
+            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
+   }
    function set_state(src){
     var
      dst =
-        /*<<random.ml:374:31>>*/  /*<<random.ml:374:31>>*/ caml_call1
-         /*<<random.ml:374:31>>*/ (Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:86:4>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
-             /*<<random.ml:86:4>>*/ (src, dst) /*<<random.ml:374:60>>*/ ;
-    /*<<random.ml:374:60>>*/ }
+        /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
+     /*<<random.ml:86:4>>*/ return caml_ba_blit(src, dst) /*<<random.ml:374:60>>*/ ;
+   }
    var
     Stdlib_Random =
       [0,
@@ -30084,15 +24865,14 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    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;
+    runtime = globalThis.jsoo_runtime,
+    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;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -30139,9 +24919,7 @@
     cst_Hashtbl_unsupported_hash_t = "Hashtbl: unsupported hash table format";
    try{
     var
-     _f_ =
-        /*<<hashtbl.ml:51:8>>*/  /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv
-         /*<<hashtbl.ml:51:8>>*/ ("OCAMLRUNPARAM"),
+     _f_ =  /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv("OCAMLRUNPARAM"),
      params = _f_;
    }
    catch(_al_){
@@ -30149,9 +24927,7 @@
     if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
      /*<<hashtbl.ml:52:4>>*/ try{
      var
-      _e_ =
-         /*<<hashtbl.ml:52:8>>*/  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv
-          /*<<hashtbl.ml:52:8>>*/ ("CAMLRUNPARAM"),
+      _e_ =  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv("CAMLRUNPARAM"),
       _c_ = _e_;
     }
     catch(_am_){
@@ -30163,32 +24939,27 @@
    }
    var
     randomized_default =
-       /*<<hashtbl.ml:53:2>>*/  /*<<hashtbl.ml:53:2>>*/ caml_call2
-        /*<<hashtbl.ml:53:2>>*/ (Stdlib_String[15], params, 82),
+       /*<<hashtbl.ml:53:2>>*/ caml_call2(Stdlib_String[15], params, 82),
     randomized =
-       /*<<hashtbl.ml:55:17>>*/  /*<<hashtbl.ml:55:17>>*/ caml_call1
-        /*<<hashtbl.ml:55:17>>*/ (Stdlib_Atomic[1], randomized_default);
+       /*<<hashtbl.ml:55:17>>*/ caml_call1
+       (Stdlib_Atomic[1], randomized_default);
    function randomize(param){
-     /*<<hashtbl.ml:57:19>>*/ return  /*<<hashtbl.ml:57:19>>*/ caml_call2
-             /*<<hashtbl.ml:57:19>>*/ (Stdlib_Atomic[4], randomized, 1) /*<<hashtbl.ml:57:45>>*/ ;
-    /*<<hashtbl.ml:57:45>>*/ }
+     /*<<hashtbl.ml:57:19>>*/ return caml_call2
+            (Stdlib_Atomic[4], randomized, 1) /*<<hashtbl.ml:57:45>>*/ ;
+   }
    function is_randomized(param){
      /*<<hashtbl.ml:58:23>>*/ return  /*<<hashtbl.ml:57:14>>*/ caml_call1
-             /*<<hashtbl.ml:57:14>>*/ (Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
-    /*<<hashtbl.ml:58:44>>*/ }
+            (Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
+   }
    var
     prng_key =
-       /*<<hashtbl.ml:60:15>>*/  /*<<hashtbl.ml:60:15>>*/ caml_call2
-        /*<<hashtbl.ml:60:15>>*/ (Stdlib_Domain[10][1],
-        0,
-        Stdlib_Random[19][2]);
+       /*<<hashtbl.ml:60:15>>*/ caml_call2
+       (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function power_2_above(x, n){
     var x$0 = x;
      /*<<hashtbl.ml:69:2>>*/ for(;;){
-     if(n <= x$0)
-       /*<<hashtbl.ml:69:17>>*/ return x$0 /*<<hashtbl.ml:69:17>>*/ ;
-     if(Stdlib_Sys[13] < (x$0 * 2 | 0))
-       /*<<hashtbl.ml:70:44>>*/ return x$0 /*<<hashtbl.ml:70:44>>*/ ;
+     if(n <= x$0)  /*<<hashtbl.ml:69:17>>*/ return x$0;
+     if(Stdlib_Sys[13] < (x$0 * 2 | 0))  /*<<hashtbl.ml:70:44>>*/ return x$0;
      var x$1 = x$0 * 2 | 0;
      x$0 = x$1;
     }
@@ -30198,25 +24969,18 @@
      random =
        opt
         ? opt[1]
-        :  /*<<hashtbl.ml:73:22>>*/ caml_call1
-           /*<<hashtbl.ml:73:22>>*/ (Stdlib_Atomic[3], randomized),
-     s =
-        /*<<hashtbl.ml:74:10>>*/  /*<<hashtbl.ml:74:10>>*/ power_2_above
-         /*<<hashtbl.ml:74:10>>*/ (16, initial_size);
+        :  /*<<hashtbl.ml:73:22>>*/ caml_call1(Stdlib_Atomic[3], randomized),
+     s =  /*<<hashtbl.ml:74:10>>*/ power_2_above(16, initial_size);
      /*<<hashtbl.ml:75:2>>*/ if(random)
      var
       _ak_ =
-         /*<<hashtbl.ml:76:37>>*/  /*<<hashtbl.ml:76:37>>*/ caml_call1
-          /*<<hashtbl.ml:76:37>>*/ (Stdlib_Domain[10][2], prng_key),
-      seed =
-         /*<<hashtbl.ml:76:19>>*/ caml_call1
-          /*<<hashtbl.ml:76:19>>*/ (Stdlib_Random[19][4], _ak_);
+         /*<<hashtbl.ml:76:37>>*/ caml_call1(Stdlib_Domain[10][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
-              /*<<hashtbl.ml:78:52>>*/ (s, 0),
+             /*<<hashtbl.ml:78:52>>*/ caml_make_vect(s, 0),
             seed,
             s] /*<<hashtbl.ml:78:2>>*/ ;
     /*<<hashtbl.ml:78:72>>*/ }
@@ -30227,36 +24991,24 @@
                [1]
               = 0,
                /*<<hashtbl.ml:83:4>>*/ caml_call4
-                /*<<hashtbl.ml:83:4>>*/ (Stdlib_Array[8],
-                h[2],
-                0,
-                h[2].length - 1,
-                0))
+               (Stdlib_Array[8], h[2], 0, h[2].length - 1, 0))
             : _aj_ /*<<hashtbl.ml:84:5>>*/ ;
-    /*<<hashtbl.ml:84:5>>*/ }
+   }
    function reset(h){
     var len = h[2].length - 1;
     if
      (4 <= h.length - 1
-      &&
-       len
-       !==
-         /*<<hashtbl.ml:89:13>>*/ caml_call1
-          /*<<hashtbl.ml:89:13>>*/ (Stdlib[18], h[4])){
+      && 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>>*/ ( /*<<hashtbl.ml:93:25>>*/ caml_call1
-          /*<<hashtbl.ml:93:25>>*/ (Stdlib[18], h[4]),
-        0);
+       ( /*<<hashtbl.ml:93:25>>*/ caml_call1(Stdlib[18], h[4]), 0);
      return 0;
     }
-     /*<<hashtbl.ml:90:4>>*/ return  /*<<hashtbl.ml:90:4>>*/ clear
-             /*<<hashtbl.ml:90:4>>*/ (h) /*<<hashtbl.ml:94:5>>*/ ;
-    /*<<hashtbl.ml:94:5>>*/ }
+     /*<<hashtbl.ml:90:4>>*/ return clear(h) /*<<hashtbl.ml:94:5>>*/ ;
+   }
    function copy_bucketlist(param){
-     /*<<hashtbl.ml:96:22>>*/ if(! param)
-      /*<<hashtbl.ml:97:13>>*/ return 0 /*<<hashtbl.ml:97:13>>*/ ;
+     /*<<hashtbl.ml:96:22>>*/ if(! param)  /*<<hashtbl.ml:97:13>>*/ return 0;
     var
      key = param[1],
      data = param[2],
@@ -30265,8 +25017,7 @@
      prec = prec$1,
      param$0 = next;
      /*<<hashtbl.ml:99:19>>*/ for(;;){
-     if(! param$0)
-       /*<<hashtbl.ml:110:6>>*/ return prec$1 /*<<hashtbl.ml:110:6>>*/ ;
+     if(! param$0)  /*<<hashtbl.ml:110:6>>*/ return prec$1;
      var
       key$0 = param$0[1],
       data$0 = param$0[2],
@@ -30282,9 +25033,9 @@
      _ag_ = h[4],
      _ah_ = h[3],
      _ai_ =
-        /*<<hashtbl.ml:113:29>>*/  /*<<hashtbl.ml:113:29>>*/ caml_call2
-         /*<<hashtbl.ml:113:29>>*/ (Stdlib_Array[14], copy_bucketlist, h[2]);
-     /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_] /*<<hashtbl.ml:113:13>>*/ ;
+        /*<<hashtbl.ml:113:29>>*/ caml_call2
+        (Stdlib_Array[14], copy_bucketlist, h[2]);
+     /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_];
     /*<<hashtbl.ml:113:63>>*/ }
    function length(h){
      /*<<hashtbl.ml:115:15>>*/ return h[1];
@@ -30292,9 +25043,7 @@
    function insert_all_buckets(indexfun, inplace, odata, ndata){
     var
      nsize = ndata.length - 1,
-     ndata_tail =
-        /*<<hashtbl.ml:119:19>>*/  /*<<hashtbl.ml:119:19>>*/ caml_make_vect
-         /*<<hashtbl.ml:119:19>>*/ (nsize, 0),
+     ndata_tail =  /*<<hashtbl.ml:119:19>>*/ caml_make_vect(nsize, 0),
      _aa_ = odata.length - 2 | 0,
      _$_ =  /*<<hashtbl.ml:135:2>>*/ 0;
     if(_aa_ >= 0){
@@ -30311,9 +25060,7 @@
         data = cell[2],
         next = cell[3],
         cell$0 =  /*<<hashtbl.ml:123:8>>*/ inplace ? cell : [0, key, data, 0],
-        nidx =
-           /*<<hashtbl.ml:127:19>>*/  /*<<hashtbl.ml:127:19>>*/ caml_call1
-            /*<<hashtbl.ml:127:19>>*/ (indexfun, key),
+        nidx =  /*<<hashtbl.ml:127:19>>*/ caml_call1(indexfun, key),
         match =
            /*<<hashtbl.ml:128:20>>*/ caml_check_bound(ndata_tail, nidx)
            [1 + nidx];
@@ -30358,31 +25105,19 @@
      ___ = nsize < Stdlib_Sys[13] ? 1 : 0;
     if(! ___) return ___;
     var
-     ndata =
-        /*<<hashtbl.ml:150:16>>*/  /*<<hashtbl.ml:150:16>>*/ caml_make_vect
-         /*<<hashtbl.ml:150:16>>*/ (nsize, 0),
-     inplace =
-        /*<<hashtbl.ml:151:22>>*/ 1
-       -
-         /*<<hashtbl.ml:151:22>>*/ ongoing_traversal
-          /*<<hashtbl.ml:151:22>>*/ (h);
+     ndata =  /*<<hashtbl.ml:150:16>>*/ caml_make_vect(nsize, 0),
+     inplace =  /*<<hashtbl.ml:151:22>>*/ 1 - ongoing_traversal(h);
     h[2] = ndata;
-     /*<<hashtbl.ml:153:4>>*/ return  /*<<hashtbl.ml:153:4>>*/ insert_all_buckets
-             /*<<hashtbl.ml:153:4>>*/ ( /*<<hashtbl.ml:153:23>>*/ caml_call1
-               /*<<hashtbl.ml:153:23>>*/ (indexfun, h),
+     /*<<hashtbl.ml:153:4>>*/ return insert_all_buckets
+            ( /*<<hashtbl.ml:153:23>>*/ caml_call1(indexfun, h),
              inplace,
              odata,
              ndata) /*<<hashtbl.ml:154:5>>*/ ;
-    /*<<hashtbl.ml:154:5>>*/ }
+   }
    function iter(f, h){
-    var
-     old_trav =
-        /*<<hashtbl.ml:162:17>>*/  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal
-         /*<<hashtbl.ml:162:17>>*/ (h);
-    if(1 - old_trav)
-      /*<<hashtbl.ml:163:23>>*/  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal
-       /*<<hashtbl.ml:163:23>>*/ (h);
-     /*<<hashtbl.ml:163:23>>*/ try{
+    var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
+    if(1 - old_trav)  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
+    try{
      var d = h[2], _W_ = d.length - 2 | 0, _V_ = 0;
      if(_W_ >= 0){
       var i = _V_;
@@ -30391,8 +25126,7 @@
         /*<<hashtbl.ml:157:22>>*/ for(;;){
         if(! param) break;
         var key = param[1], data = param[2], next = param[3];
-         /*<<hashtbl.ml:161:8>>*/  /*<<hashtbl.ml:161:8>>*/ caml_call2
-          /*<<hashtbl.ml:161:8>>*/ (f, key, data);
+         /*<<hashtbl.ml:161:8>>*/ caml_call2(f, key, data);
         param = next;
        }
        var _Z_ =  /*<<hashtbl.ml:167:6>>*/ i + 1 | 0;
@@ -30402,33 +25136,21 @@
      }
      var
       _X_ = 1 - old_trav,
-      _Y_ =
-        _X_
-         ?  /*<<hashtbl.ml:169:25>>*/ flip_ongoing_traversal
-            /*<<hashtbl.ml:169:25>>*/ (h)
-         : _X_;
-      /*<<hashtbl.ml:169:25>>*/ return _Y_ /*<<hashtbl.ml:169:25>>*/ ;
+      _Y_ = _X_ ?  /*<<hashtbl.ml:169:25>>*/ flip_ongoing_traversal(h) : _X_;
+     return _Y_;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:170:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
-      /*<<hashtbl.ml:171:4>>*/  /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal
-       /*<<hashtbl.ml:171:4>>*/ (h);
-      /*<<hashtbl.ml:172:4>>*/ throw  /*<<hashtbl.ml:172:4>>*/ caml_maybe_attach_backtrace
-             /*<<hashtbl.ml:172:4>>*/ (exn, 0);
+      /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:172:4>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<hashtbl.ml:172:13>>*/ }
    function filter_map_inplace(f, h){
-    var
-     d = h[2],
-     old_trav =
-        /*<<hashtbl.ml:196:17>>*/  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal
-         /*<<hashtbl.ml:196:17>>*/ (h);
-    if(1 - old_trav)
-      /*<<hashtbl.ml:197:23>>*/  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal
-       /*<<hashtbl.ml:197:23>>*/ (h);
-     /*<<hashtbl.ml:197:23>>*/ try{
+    var d = h[2], old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
+    if(1 - old_trav)  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
+    try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
      if(_R_ >= 0){
       var i = _Q_;
@@ -30443,9 +25165,7 @@
          key = slot[1],
          data = slot[2],
          next = slot[3],
-         match =
-            /*<<hashtbl.ml:181:18>>*/  /*<<hashtbl.ml:181:18>>*/ caml_call2
-             /*<<hashtbl.ml:181:18>>*/ (f, key, data);
+         match =  /*<<hashtbl.ml:181:18>>*/ caml_call2(f, key, data);
         if(match){
          var data$0 = match[1];
           /*<<hashtbl.ml:186:10>>*/ if(prec)
@@ -30469,37 +25189,26 @@
      }
      var
       _S_ = 1 - old_trav,
-      _T_ =
-        _S_
-         ?  /*<<hashtbl.ml:202:25>>*/ flip_ongoing_traversal
-            /*<<hashtbl.ml:202:25>>*/ (h)
-         : _S_;
-      /*<<hashtbl.ml:202:25>>*/ return _T_ /*<<hashtbl.ml:202:25>>*/ ;
+      _T_ = _S_ ?  /*<<hashtbl.ml:202:25>>*/ flip_ongoing_traversal(h) : _S_;
+     return _T_;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:203:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
-      /*<<hashtbl.ml:204:4>>*/  /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal
-       /*<<hashtbl.ml:204:4>>*/ (h);
-      /*<<hashtbl.ml:205:4>>*/ throw  /*<<hashtbl.ml:205:4>>*/ caml_maybe_attach_backtrace
-             /*<<hashtbl.ml:205:4>>*/ (exn, 0);
+      /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:205:4>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<hashtbl.ml:205:13>>*/ }
    function fold(f, h, init){
-    var
-     old_trav =
-        /*<<hashtbl.ml:214:17>>*/  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal
-         /*<<hashtbl.ml:214:17>>*/ (h);
-    if(1 - old_trav)
-      /*<<hashtbl.ml:215:23>>*/  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal
-       /*<<hashtbl.ml:215:23>>*/ (h);
-     /*<<hashtbl.ml:215:23>>*/ try{
+    var old_trav =  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal(h);
+    if(1 - old_trav)  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
+    try{
      var
       d = h[2],
       accu$1 =  /*<<hashtbl.ml:218:15>>*/ [0, init],
       _N_ = d.length - 2 | 0,
-      _M_ =  /*<<hashtbl.ml:218:15>>*/ 0;
+      _M_ = 0;
      if(_N_ >= 0){
       var i = _M_;
       for(;;){
@@ -30514,9 +25223,7 @@
          key = b[1],
          data = b[2],
          next = b[3],
-         accu$0 =
-            /*<<hashtbl.ml:213:23>>*/  /*<<hashtbl.ml:213:23>>*/ caml_call3
-             /*<<hashtbl.ml:213:23>>*/ (f, key, data, accu);
+         accu$0 =  /*<<hashtbl.ml:213:23>>*/ caml_call3(f, key, data, accu);
         b = next;
         accu = accu$0;
        }
@@ -30526,9 +25233,7 @@
        i = _P_;
       }
      }
-     if(1 - old_trav)
-       /*<<hashtbl.ml:222:25>>*/  /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal
-        /*<<hashtbl.ml:222:25>>*/ (h);
+     if(1 - old_trav)  /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal(h);
      var _O_ = accu$1[1];
      return _O_;
     }
@@ -30536,17 +25241,14 @@
      var exn = caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:224:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
-      /*<<hashtbl.ml:225:4>>*/  /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal
-       /*<<hashtbl.ml:225:4>>*/ (h);
-      /*<<hashtbl.ml:226:4>>*/ throw  /*<<hashtbl.ml:226:4>>*/ caml_maybe_attach_backtrace
-             /*<<hashtbl.ml:226:4>>*/ (exn, 0);
+      /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:226:4>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<hashtbl.ml:226:13>>*/ }
    function bucket_length(accu, param){
     var accu$0 = accu, param$0 = param;
      /*<<hashtbl.ml:235:22>>*/ for(;;){
-     if(! param$0)
-       /*<<hashtbl.ml:236:13>>*/ return accu$0 /*<<hashtbl.ml:236:13>>*/ ;
+     if(! param$0)  /*<<hashtbl.ml:236:13>>*/ return accu$0;
      var
       next = param$0[3],
       accu$1 =  /*<<hashtbl.ml:237:18>>*/ accu$0 + 1 | 0;
@@ -30557,34 +25259,25 @@
    function stats(h){
     var
      mbl =
-        /*<<hashtbl.ml:241:4>>*/  /*<<hashtbl.ml:241:4>>*/ caml_call3
-         /*<<hashtbl.ml:241:4>>*/ (Stdlib_Array[18],
+        /*<<hashtbl.ml:241:4>>*/ caml_call3
+        (Stdlib_Array[18],
          function(m, b){
-          var
-           _L_ =
-              /*<<hashtbl.ml:241:42>>*/  /*<<hashtbl.ml:241:42>>*/ bucket_length
-               /*<<hashtbl.ml:241:42>>*/ (0, b);
-           /*<<hashtbl.ml:241:42>>*/ return  /*<<hashtbl.ml:241:42>>*/ caml_call2
-                   /*<<hashtbl.ml:241:42>>*/ (Stdlib_Int[11], m, _L_) /*<<hashtbl.ml:241:61>>*/ ;
-          /*<<hashtbl.ml:241:61>>*/ },
+          var _L_ =  /*<<hashtbl.ml:241:42>>*/ bucket_length(0, b);
+          return caml_call2(Stdlib_Int[11], m, _L_) /*<<hashtbl.ml:241:61>>*/ ;
+         },
          0,
          h[2]),
-     histo =
-        /*<<hashtbl.ml:242:14>>*/  /*<<hashtbl.ml:242:14>>*/ caml_make_vect
-         /*<<hashtbl.ml:242:14>>*/ (mbl + 1 | 0, 0);
-     /*<<hashtbl.ml:243:2>>*/  /*<<hashtbl.ml:243:2>>*/ caml_call2
-      /*<<hashtbl.ml:243:2>>*/ (Stdlib_Array[12],
+     histo =  /*<<hashtbl.ml:242:14>>*/ caml_make_vect(mbl + 1 | 0, 0);
+     /*<<hashtbl.ml:243:2>>*/ caml_call2
+     (Stdlib_Array[12],
       function(b){
-       var
-        l =
-           /*<<hashtbl.ml:245:14>>*/  /*<<hashtbl.ml:245:14>>*/ bucket_length
-            /*<<hashtbl.ml:245:14>>*/ (0, b);
+       var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
         caml_check_bound(histo, l)[1 + l] + 1 | 0;
-        /*<<hashtbl.ml:246:6>>*/ return 0 /*<<hashtbl.ml:246:6>>*/ ;
+       return 0;
        /*<<hashtbl.ml:246:32>>*/ },
       h[2]);
-     /*<<hashtbl.ml:248:2>>*/ return [0, h[1], h[2].length - 1, mbl, histo] /*<<hashtbl.ml:248:2>>*/ ;
+     /*<<hashtbl.ml:248:2>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
     /*<<hashtbl.ml:251:30>>*/ }
    function to_seq(tbl){
     var tbl_data = tbl[2];
@@ -30597,52 +25290,37 @@
                [0, key, data],
                function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}] /*<<hashtbl.ml:266:8>>*/ ;
       }
-      if(i$0 === tbl_data.length - 1)
-        /*<<hashtbl.ml:263:13>>*/ return 0 /*<<hashtbl.ml:263:13>>*/ ;
+      if(i$0 === tbl_data.length - 1)  /*<<hashtbl.ml:263:13>>*/ return 0;
       var
        buck$1 =
           /*<<hashtbl.ml:264:22>>*/ caml_check_bound(tbl_data, i$0)[1 + i$0],
-       i$1 =  /*<<hashtbl.ml:264:22>>*/ i$0 + 1 | 0;
+       i$1 = i$0 + 1 | 0;
       i$0 = i$1;
       buck$0 = buck$1;
      }
      /*<<hashtbl.ml:266:42>>*/ }
     var _H_ =  /*<<hashtbl.ml:268:2>>*/ 0, _I_ = 0;
-     /*<<hashtbl.ml:268:2>>*/ return function(_J_){
+    return function(_J_){
       /*<<?>>*/ return aux(_I_, _H_, _J_);} /*<<hashtbl.ml:268:2>>*/ ;
     /*<<hashtbl.ml:268:13>>*/ }
    function to_seq_keys(m){
-    var
-     _F_ =
-        /*<<hashtbl.ml:270:32>>*/  /*<<hashtbl.ml:270:32>>*/ to_seq
-         /*<<hashtbl.ml:270:32>>*/ (m);
-     /*<<hashtbl.ml:270:32>>*/ return  /*<<hashtbl.ml:270:32>>*/ caml_call2
-             /*<<hashtbl.ml:270:32>>*/ (Stdlib_Seq[29],
-             function(_G_){ /*<<?>>*/ return _G_[1];},
-             _F_) /*<<hashtbl.ml:270:42>>*/ ;
-    /*<<hashtbl.ml:270:42>>*/ }
+    var _F_ =  /*<<hashtbl.ml:270:32>>*/ to_seq(m);
+    return caml_call2
+            (Stdlib_Seq[29], function(_G_){ /*<<?>>*/ return _G_[1];}, _F_) /*<<hashtbl.ml:270:42>>*/ ;
+   }
    function to_seq_values(m){
-    var
-     _D_ =
-        /*<<hashtbl.ml:272:34>>*/  /*<<hashtbl.ml:272:34>>*/ to_seq
-         /*<<hashtbl.ml:272:34>>*/ (m);
-     /*<<hashtbl.ml:272:34>>*/ return  /*<<hashtbl.ml:272:34>>*/ caml_call2
-             /*<<hashtbl.ml:272:34>>*/ (Stdlib_Seq[29],
-             function(_E_){ /*<<?>>*/ return _E_[2];},
-             _D_) /*<<hashtbl.ml:272:44>>*/ ;
-    /*<<hashtbl.ml:272:44>>*/ }
+    var _D_ =  /*<<hashtbl.ml:272:34>>*/ to_seq(m);
+    return caml_call2
+            (Stdlib_Seq[29], function(_E_){ /*<<?>>*/ return _E_[2];}, _D_) /*<<hashtbl.ml:272:44>>*/ ;
+   }
    function MakeSeeded(H){
     function key_index(h, key){
      var _C_ = h[2].length - 2 | 0;
-      /*<<hashtbl.ml:357:6>>*/ return  /*<<hashtbl.ml:357:6>>*/ caml_call2
-              /*<<hashtbl.ml:357:6>>*/ (H[2], h[3], key)
-            & _C_ /*<<hashtbl.ml:357:6>>*/ ;
+      /*<<hashtbl.ml:357:6>>*/ return caml_call2(H[2], h[3], key) & _C_;
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
      var
-      i =
-         /*<<hashtbl.ml:360:14>>*/  /*<<hashtbl.ml:360:14>>*/ key_index
-          /*<<hashtbl.ml:360:14>>*/ (h, key),
+      i =  /*<<hashtbl.ml:360:14>>*/ key_index(h, key),
       bucket =
          /*<<hashtbl.ml:361:23>>*/ [0,
          key,
@@ -30651,26 +25329,18 @@
       /*<<hashtbl.ml:362:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _B_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-     return _B_
-             ?  /*<<hashtbl.ml:364:49>>*/ resize
-                /*<<hashtbl.ml:364:49>>*/ (key_index, h)
-             : _B_ /*<<hashtbl.ml:364:67>>*/ ;
-     /*<<hashtbl.ml:364:67>>*/ }
+     return _B_ ?  /*<<hashtbl.ml:364:49>>*/ resize(key_index, h) : _B_ /*<<hashtbl.ml:364:67>>*/ ;
+    }
     function remove(h, key){
      var
-      i =
-         /*<<hashtbl.ml:380:14>>*/  /*<<hashtbl.ml:380:14>>*/ key_index
-          /*<<hashtbl.ml:380:14>>*/ (h, key),
+      i =  /*<<hashtbl.ml:380:14>>*/ key_index(h, key),
       c =  /*<<hashtbl.ml:381:34>>*/ caml_check_bound(h[2], i)[1 + i],
       prec$0 = 0,
       prec = c;
       /*<<hashtbl.ml:366:26>>*/ for(;;){
-      if(! prec)
-        /*<<hashtbl.ml:368:10>>*/ return 0 /*<<hashtbl.ml:368:10>>*/ ;
+      if(! prec)  /*<<hashtbl.ml:368:10>>*/ return 0;
       var k = prec[1], next = prec[3];
-       /*<<hashtbl.ml:370:13>>*/ if
-       ( /*<<hashtbl.ml:370:13>>*/ caml_call2
-          /*<<hashtbl.ml:370:13>>*/ (H[1], k, key)){
+       /*<<hashtbl.ml:370:13>>*/ if(caml_call2(H[1], k, key)){
        h[1] = h[1] - 1 | 0;
        return prec$0
                ? (prec$0[3] = next, 0)
@@ -30679,103 +25349,73 @@
       prec$0 = prec;
       prec = next;
      }
-     /*<<hashtbl.ml:381:44>>*/ }
+    }
     function find(h, key){
      var
-      _A_ =
-         /*<<hashtbl.ml:390:20>>*/  /*<<hashtbl.ml:390:20>>*/ key_index
-          /*<<hashtbl.ml:390:20>>*/ (h, key),
+      _A_ =  /*<<hashtbl.ml:390:20>>*/ key_index(h, key),
       match =  /*<<hashtbl.ml:390:12>>*/ caml_check_bound(h[2], _A_)[1 + _A_];
      if(! match)
-       /*<<hashtbl.ml:391:17>>*/ throw  /*<<hashtbl.ml:391:17>>*/ caml_maybe_attach_backtrace
-              /*<<hashtbl.ml:391:17>>*/ (Stdlib[8], 1);
+       /*<<hashtbl.ml:391:17>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
      var k1 = match[1], d1 = match[2], next1 = match[3];
-      /*<<hashtbl.ml:393:13>>*/ if
-      ( /*<<hashtbl.ml:393:13>>*/ caml_call2
-         /*<<hashtbl.ml:393:13>>*/ (H[1], key, k1))
-       /*<<hashtbl.ml:393:33>>*/ return d1 /*<<hashtbl.ml:393:33>>*/ ;
+      /*<<hashtbl.ml:393:13>>*/ if(caml_call2(H[1], key, k1))
+       /*<<hashtbl.ml:393:33>>*/ return d1;
      if(! next1)
-       /*<<hashtbl.ml:395:21>>*/ throw  /*<<hashtbl.ml:395:21>>*/ caml_maybe_attach_backtrace
-              /*<<hashtbl.ml:395:21>>*/ (Stdlib[8], 1);
+       /*<<hashtbl.ml:395:21>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-      /*<<hashtbl.ml:397:17>>*/ if
-      ( /*<<hashtbl.ml:397:17>>*/ caml_call2
-         /*<<hashtbl.ml:397:17>>*/ (H[1], key, k2))
-       /*<<hashtbl.ml:397:37>>*/ return d2 /*<<hashtbl.ml:397:37>>*/ ;
+      /*<<hashtbl.ml:397:17>>*/ if(caml_call2(H[1], key, k2))
+       /*<<hashtbl.ml:397:37>>*/ return d2;
      if(! next2)
-       /*<<hashtbl.ml:399:25>>*/ throw  /*<<hashtbl.ml:399:25>>*/ caml_maybe_attach_backtrace
-              /*<<hashtbl.ml:399:25>>*/ (Stdlib[8], 1);
+       /*<<hashtbl.ml:399:25>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-      /*<<hashtbl.ml:401:21>>*/ if
-      ( /*<<hashtbl.ml:401:21>>*/ caml_call2
-         /*<<hashtbl.ml:401:21>>*/ (H[1], key, k3))
-       /*<<hashtbl.ml:401:41>>*/ return d3 /*<<hashtbl.ml:401:41>>*/ ;
+      /*<<hashtbl.ml:401:21>>*/ if(caml_call2(H[1], key, k3))
+       /*<<hashtbl.ml:401:41>>*/ return d3;
      var param = next3;
       /*<<hashtbl.ml:383:21>>*/ for(;;){
       if(! param)
-        /*<<hashtbl.ml:385:10>>*/ throw  /*<<hashtbl.ml:385:10>>*/ caml_maybe_attach_backtrace
-               /*<<hashtbl.ml:385:10>>*/ (Stdlib[8], 1);
+        /*<<hashtbl.ml:385:10>>*/ throw caml_maybe_attach_backtrace
+              (Stdlib[8], 1);
       var k = param[1], data = param[2], next = param[3];
-       /*<<hashtbl.ml:387:13>>*/ if
-       ( /*<<hashtbl.ml:387:13>>*/ caml_call2
-          /*<<hashtbl.ml:387:13>>*/ (H[1], key, k))
-        /*<<hashtbl.ml:387:32>>*/ return data /*<<hashtbl.ml:387:32>>*/ ;
+       /*<<hashtbl.ml:387:13>>*/ if(caml_call2(H[1], key, k))
+        /*<<hashtbl.ml:387:32>>*/ return data;
       param = next;
      }
      /*<<hashtbl.ml:401:67>>*/ }
     function find_opt(h, key){
      var
-      _z_ =
-         /*<<hashtbl.ml:410:20>>*/  /*<<hashtbl.ml:410:20>>*/ key_index
-          /*<<hashtbl.ml:410:20>>*/ (h, key),
+      _z_ =  /*<<hashtbl.ml:410:20>>*/ key_index(h, key),
       match =  /*<<hashtbl.ml:410:12>>*/ caml_check_bound(h[2], _z_)[1 + _z_];
-     if(! match)
-       /*<<hashtbl.ml:411:17>>*/ return 0 /*<<hashtbl.ml:411:17>>*/ ;
+     if(! match)  /*<<hashtbl.ml:411:17>>*/ return 0;
      var k1 = match[1], d1 = match[2], next1 = match[3];
-      /*<<hashtbl.ml:413:13>>*/ if
-      ( /*<<hashtbl.ml:413:13>>*/ caml_call2
-         /*<<hashtbl.ml:413:13>>*/ (H[1], key, k1))
-       /*<<hashtbl.ml:413:33>>*/ return [0, d1] /*<<hashtbl.ml:413:33>>*/ ;
-     if(! next1)
-       /*<<hashtbl.ml:415:21>>*/ return 0 /*<<hashtbl.ml:415:21>>*/ ;
+      /*<<hashtbl.ml:413:13>>*/ if(caml_call2(H[1], key, k1))
+       /*<<hashtbl.ml:413:33>>*/ return [0, d1];
+     if(! next1)  /*<<hashtbl.ml:415:21>>*/ return 0;
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-      /*<<hashtbl.ml:417:17>>*/ if
-      ( /*<<hashtbl.ml:417:17>>*/ caml_call2
-         /*<<hashtbl.ml:417:17>>*/ (H[1], key, k2))
-       /*<<hashtbl.ml:417:37>>*/ return [0, d2] /*<<hashtbl.ml:417:37>>*/ ;
-     if(! next2)
-       /*<<hashtbl.ml:419:25>>*/ return 0 /*<<hashtbl.ml:419:25>>*/ ;
+      /*<<hashtbl.ml:417:17>>*/ if(caml_call2(H[1], key, k2))
+       /*<<hashtbl.ml:417:37>>*/ return [0, d2];
+     if(! next2)  /*<<hashtbl.ml:419:25>>*/ return 0;
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-      /*<<hashtbl.ml:421:21>>*/ if
-      ( /*<<hashtbl.ml:421:21>>*/ caml_call2
-         /*<<hashtbl.ml:421:21>>*/ (H[1], key, k3))
-       /*<<hashtbl.ml:421:41>>*/ return [0, d3] /*<<hashtbl.ml:421:41>>*/ ;
+      /*<<hashtbl.ml:421:21>>*/ if(caml_call2(H[1], key, k3))
+       /*<<hashtbl.ml:421:41>>*/ return [0, d3];
      var param = next3;
       /*<<hashtbl.ml:403:25>>*/ for(;;){
-      if(! param)
-        /*<<hashtbl.ml:405:10>>*/ return 0 /*<<hashtbl.ml:405:10>>*/ ;
+      if(! param)  /*<<hashtbl.ml:405:10>>*/ return 0;
       var k = param[1], data = param[2], next = param[3];
-       /*<<hashtbl.ml:407:13>>*/ if
-       ( /*<<hashtbl.ml:407:13>>*/ caml_call2
-          /*<<hashtbl.ml:407:13>>*/ (H[1], key, k))
-        /*<<hashtbl.ml:407:32>>*/ return [0, data] /*<<hashtbl.ml:407:32>>*/ ;
+       /*<<hashtbl.ml:407:13>>*/ if(caml_call2(H[1], key, k))
+        /*<<hashtbl.ml:407:32>>*/ return [0, data];
       param = next;
      }
      /*<<hashtbl.ml:421:76>>*/ }
     function find_all(h, key){
      var
-      _y_ =
-         /*<<hashtbl.ml:431:29>>*/  /*<<hashtbl.ml:431:29>>*/ key_index
-          /*<<hashtbl.ml:431:29>>*/ (h, key),
+      _y_ =  /*<<hashtbl.ml:431:29>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _y_)[1 + _y_];
       /*<<hashtbl.ml:424:47>>*/ for(;;){
-      if(! param)
-        /*<<hashtbl.ml:426:10>>*/ return 0 /*<<hashtbl.ml:426:10>>*/ ;
+      if(! param)  /*<<hashtbl.ml:426:10>>*/ return 0;
       var k = param[1], d = param[2], next = param[3];
-       /*<<hashtbl.ml:428:13>>*/ if
-       ( /*<<hashtbl.ml:428:13>>*/ caml_call2
-          /*<<hashtbl.ml:428:13>>*/ (H[1], k, key))
-       break;
+       /*<<hashtbl.ml:428:13>>*/ if(caml_call2(H[1], k, key)) break;
       param = next;
      }
      var
@@ -30786,12 +25426,10 @@
       /*<<hashtbl.ml:424:47>>*/ for(;;){
       if(! param$0){
        dst[1 + offset] = 0;
-        /*<<hashtbl.ml:429:20>>*/ return block /*<<hashtbl.ml:429:20>>*/ ;
+        /*<<hashtbl.ml:429:20>>*/ return block;
       }
       var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
-       /*<<hashtbl.ml:428:13>>*/ if
-       ( /*<<hashtbl.ml:428:13>>*/ caml_call2
-          /*<<hashtbl.ml:428:13>>*/ (H[1], k$0, key)){
+       /*<<hashtbl.ml:428:13>>*/ if(caml_call2(H[1], k$0, key)){
        var dst$0 =  /*<<hashtbl.ml:429:15>>*/ [0, d$0, 24029];
        dst[1 + offset] = dst$0;
        dst = dst$0;
@@ -30804,21 +25442,13 @@
      /*<<hashtbl.ml:431:45>>*/ }
     function replace(h, key, data){
      var
-      i =
-         /*<<hashtbl.ml:442:14>>*/  /*<<hashtbl.ml:442:14>>*/ key_index
-          /*<<hashtbl.ml:442:14>>*/ (h, key),
+      i =  /*<<hashtbl.ml:442:14>>*/ key_index(h, key),
       l =  /*<<hashtbl.ml:443:14>>*/ caml_check_bound(h[2], i)[1 + i],
       slot = l;
       /*<<hashtbl.ml:433:27>>*/ for(;;){
       if(slot){
        var k = slot[1], next = slot[3];
-        /*<<hashtbl.ml:437:13>>*/ if
-        (!
-          /*<<hashtbl.ml:437:13>>*/ caml_call2
-           /*<<hashtbl.ml:437:13>>*/ (H[1], k, key)){
-        slot = next;
-        continue;
-       }
+        /*<<hashtbl.ml:437:13>>*/ if(! caml_call2(H[1], k, key)){slot = next; continue;}
        slot[1] = key;
        slot[2] = data;
        var _v_ = 0;
@@ -30830,63 +25460,50 @@
        h[1] = h[1] + 1 | 0;
        var _w_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
        if(_w_)
-         /*<<hashtbl.ml:447:51>>*/ return  /*<<hashtbl.ml:447:51>>*/ resize
-                 /*<<hashtbl.ml:447:51>>*/ (key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
+         /*<<hashtbl.ml:447:51>>*/ return resize(key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
        var _x_ = _w_;
       }
       else
        var _x_ = _v_;
       return _x_;
      }
-     /*<<hashtbl.ml:448:9>>*/ }
+    }
     function mem(h, key){
      var
-      _u_ =
-         /*<<hashtbl.ml:457:32>>*/  /*<<hashtbl.ml:457:32>>*/ key_index
-          /*<<hashtbl.ml:457:32>>*/ (h, key),
+      _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
       param = caml_check_bound(h[2], _u_)[1 + _u_];
       /*<<hashtbl.ml:450:26>>*/ for(;;){
-      if(! param)
-        /*<<hashtbl.ml:452:10>>*/ return 0 /*<<hashtbl.ml:452:10>>*/ ;
+      if(! param)  /*<<hashtbl.ml:452:10>>*/ return 0;
       var
        k = param[1],
        next = param[3],
-       _t_ =
-          /*<<hashtbl.ml:454:10>>*/  /*<<hashtbl.ml:454:10>>*/ caml_call2
-           /*<<hashtbl.ml:454:10>>*/ (H[1], k, key);
-       /*<<hashtbl.ml:454:10>>*/ if(_t_)
-        /*<<hashtbl.ml:454:10>>*/ return _t_ /*<<hashtbl.ml:454:10>>*/ ;
+       _t_ =  /*<<hashtbl.ml:454:10>>*/ caml_call2(H[1], k, key);
+      if(_t_) return _t_;
       param = next;
      }
      /*<<hashtbl.ml:457:48>>*/ }
     function add_seq(tbl, i){
-      /*<<hashtbl.ml:460:6>>*/ return  /*<<hashtbl.ml:460:6>>*/ caml_call2
-              /*<<hashtbl.ml:460:6>>*/ (Stdlib_Seq[4],
+      /*<<hashtbl.ml:460:6>>*/ return caml_call2
+             (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<hashtbl.ml:460:29>>*/ return  /*<<hashtbl.ml:460:29>>*/ add
-                        /*<<hashtbl.ml:460:29>>*/ (tbl, k, v) /*<<hashtbl.ml:460:41>>*/ ;
-               /*<<hashtbl.ml:460:41>>*/ },
+                /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v) /*<<hashtbl.ml:460:41>>*/ ;
+              },
               i) /*<<hashtbl.ml:460:43>>*/ ;
-     /*<<hashtbl.ml:460:43>>*/ }
+    }
     function replace_seq(tbl, i){
-      /*<<hashtbl.ml:463:6>>*/ return  /*<<hashtbl.ml:463:6>>*/ caml_call2
-              /*<<hashtbl.ml:463:6>>*/ (Stdlib_Seq[4],
+      /*<<hashtbl.ml:463:6>>*/ return caml_call2
+             (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<hashtbl.ml:463:29>>*/ return  /*<<hashtbl.ml:463:29>>*/ replace
-                        /*<<hashtbl.ml:463:29>>*/ (tbl, k, v) /*<<hashtbl.ml:463:45>>*/ ;
-               /*<<hashtbl.ml:463:45>>*/ },
+                /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:463:45>>*/ ;
+              },
               i) /*<<hashtbl.ml:463:47>>*/ ;
-     /*<<hashtbl.ml:463:47>>*/ }
+    }
     function of_seq(i){
-     var
-      tbl =
-         /*<<hashtbl.ml:466:16>>*/  /*<<hashtbl.ml:466:16>>*/ create
-          /*<<hashtbl.ml:466:16>>*/ (0, 16);
-      /*<<hashtbl.ml:467:6>>*/  /*<<hashtbl.ml:467:6>>*/ replace_seq
-       /*<<hashtbl.ml:467:6>>*/ (tbl, i);
-      /*<<hashtbl.ml:467:6>>*/ return tbl /*<<hashtbl.ml:467:6>>*/ ;
+     var tbl =  /*<<hashtbl.ml:466:16>>*/ create(0, 16);
+      /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
+     return tbl;
      /*<<hashtbl.ml:468:9>>*/ }
      /*<<hashtbl.ml:347:2>>*/ return [0,
             create,
@@ -30910,14 +25527,13 @@
             to_seq_values,
             add_seq,
             replace_seq,
-            of_seq] /*<<hashtbl.ml:347:2>>*/ ;
+            of_seq];
    }
    function Make(H){
     var equal = H[1];
     function seeded_hash(seed, x){
-      /*<<hashtbl.ml:485:41>>*/ return  /*<<hashtbl.ml:485:41>>*/ caml_call1
-              /*<<hashtbl.ml:485:41>>*/ (H[2], x) /*<<hashtbl.ml:485:49>>*/ ;
-     /*<<hashtbl.ml:485:49>>*/ }
+      /*<<hashtbl.ml:485:41>>*/ return caml_call1(H[2], x) /*<<hashtbl.ml:485:49>>*/ ;
+    }
     var
      include = MakeSeeded([0, equal, seeded_hash]),
      _s_ = include[1],
@@ -30942,17 +25558,12 @@
      add_seq = include[20],
      replace_seq = include[21];
     function create(sz){
-      /*<<hashtbl.ml:487:20>>*/ return  /*<<hashtbl.ml:487:20>>*/ caml_call2
-              /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, sz) /*<<hashtbl.ml:487:43>>*/ ;
-     /*<<hashtbl.ml:487:43>>*/ }
+      /*<<hashtbl.ml:487:20>>*/ return caml_call2(_s_, _d_, sz) /*<<hashtbl.ml:487:43>>*/ ;
+    }
     function of_seq(i){
-     var
-      tbl =
-         /*<<hashtbl.ml:487:20>>*/  /*<<hashtbl.ml:487:20>>*/ caml_call2
-          /*<<hashtbl.ml:487:20>>*/ (_s_, _d_, 16);
-      /*<<hashtbl.ml:490:6>>*/  /*<<hashtbl.ml:490:6>>*/ caml_call2
-       /*<<hashtbl.ml:490:6>>*/ (replace_seq, tbl, i);
-      /*<<hashtbl.ml:490:6>>*/ return tbl /*<<hashtbl.ml:490:6>>*/ ;
+     var tbl =  /*<<hashtbl.ml:487:20>>*/ caml_call2(_s_, _d_, 16);
+      /*<<hashtbl.ml:490:6>>*/ caml_call2(replace_seq, tbl, i);
+     return tbl;
      /*<<hashtbl.ml:491:9>>*/ }
      /*<<hashtbl.ml:481:2>>*/ return [0,
             create,
@@ -30976,34 +25587,28 @@
             to_seq_values,
             add_seq,
             replace_seq,
-            of_seq] /*<<hashtbl.ml:481:2>>*/ ;
+            of_seq];
    }
    function hash(x){
-     /*<<hashtbl.ml:501:13>>*/ return  /*<<hashtbl.ml:501:13>>*/ caml_hash
-             /*<<hashtbl.ml:501:13>>*/ (10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
-    /*<<hashtbl.ml:501:41>>*/ }
+     /*<<hashtbl.ml:501:13>>*/ return caml_hash(10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
+   }
    function hash_param(n1, n2, x){
-     /*<<hashtbl.ml:502:25>>*/ return  /*<<hashtbl.ml:502:25>>*/ caml_hash
-             /*<<hashtbl.ml:502:25>>*/ (n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
-    /*<<hashtbl.ml:502:52>>*/ }
+     /*<<hashtbl.ml:502:25>>*/ return caml_hash(n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
+   }
    function seeded_hash(seed, x){
-     /*<<hashtbl.ml:503:25>>*/ return  /*<<hashtbl.ml:503:25>>*/ caml_hash
-             /*<<hashtbl.ml:503:25>>*/ (10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
-    /*<<hashtbl.ml:503:56>>*/ }
+     /*<<hashtbl.ml:503:25>>*/ return caml_hash(10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
+   }
    function key_index(h, key){
      /*<<hashtbl.ml:506:2>>*/ return 4 <= h.length - 1
             ?  /*<<hashtbl.ml:507:7>>*/ caml_hash
-               /*<<hashtbl.ml:507:7>>*/ (10, 100, h[3], key)
+              (10, 100, h[3], key)
              & (h[2].length - 2 | 0)
             :  /*<<hashtbl.ml:508:7>>*/ caml_call1
-               /*<<hashtbl.ml:508:7>>*/ (Stdlib[1],
-               cst_Hashtbl_unsupported_hash_t) /*<<hashtbl.ml:508:59>>*/ ;
-    /*<<hashtbl.ml:508:59>>*/ }
+              (Stdlib[1], cst_Hashtbl_unsupported_hash_t) /*<<hashtbl.ml:508:59>>*/ ;
+   }
    function add(h, key, data){
     var
-     i =
-        /*<<hashtbl.ml:511:10>>*/  /*<<hashtbl.ml:511:10>>*/ key_index
-         /*<<hashtbl.ml:511:10>>*/ (h, key),
+     i =  /*<<hashtbl.ml:511:10>>*/ key_index(h, key),
      bucket =
         /*<<hashtbl.ml:512:19>>*/ [0,
         key,
@@ -31012,27 +25617,18 @@
      /*<<hashtbl.ml:513:2>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
     h[1] = h[1] + 1 | 0;
     var _r_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-    return _r_
-            ?  /*<<hashtbl.ml:515:45>>*/ resize
-               /*<<hashtbl.ml:515:45>>*/ (key_index, h)
-            : _r_ /*<<hashtbl.ml:515:63>>*/ ;
-    /*<<hashtbl.ml:515:63>>*/ }
+    return _r_ ?  /*<<hashtbl.ml:515:45>>*/ resize(key_index, h) : _r_ /*<<hashtbl.ml:515:63>>*/ ;
+   }
    function remove(h, key){
     var
-     i =
-        /*<<hashtbl.ml:531:10>>*/  /*<<hashtbl.ml:531:10>>*/ key_index
-         /*<<hashtbl.ml:531:10>>*/ (h, key),
+     i =  /*<<hashtbl.ml:531:10>>*/ key_index(h, key),
      c =  /*<<hashtbl.ml:532:30>>*/ caml_check_bound(h[2], i)[1 + i],
      prec$0 = 0,
      prec = c;
      /*<<hashtbl.ml:517:22>>*/ for(;;){
-     if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0 /*<<hashtbl.ml:519:6>>*/ ;
+     if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
      var k = prec[1], next = prec[3];
-      /*<<hashtbl.ml:521:9>>*/ if
-      (0
-       ===
-         /*<<hashtbl.ml:521:9>>*/ caml_compare
-          /*<<hashtbl.ml:521:9>>*/ (k, key)){
+      /*<<hashtbl.ml:521:9>>*/ if(0 === caml_compare(k, key)){
       h[1] = h[1] - 1 | 0;
       return prec$0
               ? (prec$0[3] = next, 0)
@@ -31041,119 +25637,73 @@
      prec$0 = prec;
      prec = next;
     }
-    /*<<hashtbl.ml:532:40>>*/ }
+   }
    function find(h, key){
     var
-     _q_ =
-        /*<<hashtbl.ml:541:16>>*/  /*<<hashtbl.ml:541:16>>*/ key_index
-         /*<<hashtbl.ml:541:16>>*/ (h, key),
+     _q_ =  /*<<hashtbl.ml:541:16>>*/ key_index(h, key),
      match =  /*<<hashtbl.ml:541:8>>*/ caml_check_bound(h[2], _q_)[1 + _q_];
     if(! match)
-      /*<<hashtbl.ml:542:13>>*/ throw  /*<<hashtbl.ml:542:13>>*/ caml_maybe_attach_backtrace
-             /*<<hashtbl.ml:542:13>>*/ (Stdlib[8], 1);
+      /*<<hashtbl.ml:542:13>>*/ throw caml_maybe_attach_backtrace
+            (Stdlib[8], 1);
     var k1 = match[1], d1 = match[2], next1 = match[3];
-     /*<<hashtbl.ml:544:9>>*/ if
-     (0
-      ===
-        /*<<hashtbl.ml:544:9>>*/ caml_compare
-         /*<<hashtbl.ml:544:9>>*/ (key, k1))
-      /*<<hashtbl.ml:544:33>>*/ return d1 /*<<hashtbl.ml:544:33>>*/ ;
+     /*<<hashtbl.ml:544:9>>*/ if(0 === caml_compare(key, k1))
+      /*<<hashtbl.ml:544:33>>*/ return d1;
     if(! next1)
-      /*<<hashtbl.ml:546:17>>*/ throw  /*<<hashtbl.ml:546:17>>*/ caml_maybe_attach_backtrace
-             /*<<hashtbl.ml:546:17>>*/ (Stdlib[8], 1);
+      /*<<hashtbl.ml:546:17>>*/ throw caml_maybe_attach_backtrace
+            (Stdlib[8], 1);
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-     /*<<hashtbl.ml:548:13>>*/ if
-     (0
-      ===
-        /*<<hashtbl.ml:548:13>>*/ caml_compare
-         /*<<hashtbl.ml:548:13>>*/ (key, k2))
-      /*<<hashtbl.ml:548:37>>*/ return d2 /*<<hashtbl.ml:548:37>>*/ ;
+     /*<<hashtbl.ml:548:13>>*/ if(0 === caml_compare(key, k2))
+      /*<<hashtbl.ml:548:37>>*/ return d2;
     if(! next2)
-      /*<<hashtbl.ml:550:21>>*/ throw  /*<<hashtbl.ml:550:21>>*/ caml_maybe_attach_backtrace
-             /*<<hashtbl.ml:550:21>>*/ (Stdlib[8], 1);
+      /*<<hashtbl.ml:550:21>>*/ throw caml_maybe_attach_backtrace
+            (Stdlib[8], 1);
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-     /*<<hashtbl.ml:552:17>>*/ if
-     (0
-      ===
-        /*<<hashtbl.ml:552:17>>*/ caml_compare
-         /*<<hashtbl.ml:552:17>>*/ (key, k3))
-      /*<<hashtbl.ml:552:41>>*/ return d3 /*<<hashtbl.ml:552:41>>*/ ;
+     /*<<hashtbl.ml:552:17>>*/ if(0 === caml_compare(key, k3))
+      /*<<hashtbl.ml:552:41>>*/ return d3;
     var param = next3;
      /*<<hashtbl.ml:534:17>>*/ for(;;){
      if(! param)
-       /*<<hashtbl.ml:536:6>>*/ throw  /*<<hashtbl.ml:536:6>>*/ caml_maybe_attach_backtrace
-              /*<<hashtbl.ml:536:6>>*/ (Stdlib[8], 1);
+       /*<<hashtbl.ml:536:6>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[8], 1);
      var k = param[1], data = param[2], next = param[3];
-      /*<<hashtbl.ml:538:9>>*/ if
-      (0
-       ===
-         /*<<hashtbl.ml:538:9>>*/ caml_compare
-          /*<<hashtbl.ml:538:9>>*/ (key, k))
-       /*<<hashtbl.ml:538:32>>*/ return data /*<<hashtbl.ml:538:32>>*/ ;
+      /*<<hashtbl.ml:538:9>>*/ if(0 === caml_compare(key, k))
+       /*<<hashtbl.ml:538:32>>*/ return data;
      param = next;
     }
     /*<<hashtbl.ml:552:67>>*/ }
    function find_opt(h, key){
     var
-     _p_ =
-        /*<<hashtbl.ml:561:16>>*/  /*<<hashtbl.ml:561:16>>*/ key_index
-         /*<<hashtbl.ml:561:16>>*/ (h, key),
+     _p_ =  /*<<hashtbl.ml:561:16>>*/ key_index(h, key),
      match =  /*<<hashtbl.ml:561:8>>*/ caml_check_bound(h[2], _p_)[1 + _p_];
-    if(! match)
-      /*<<hashtbl.ml:562:13>>*/ return 0 /*<<hashtbl.ml:562:13>>*/ ;
+    if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
     var k1 = match[1], d1 = match[2], next1 = match[3];
-     /*<<hashtbl.ml:564:9>>*/ if
-     (0
-      ===
-        /*<<hashtbl.ml:564:9>>*/ caml_compare
-         /*<<hashtbl.ml:564:9>>*/ (key, k1))
-      /*<<hashtbl.ml:564:33>>*/ return [0, d1] /*<<hashtbl.ml:564:33>>*/ ;
-    if(! next1)
-      /*<<hashtbl.ml:566:17>>*/ return 0 /*<<hashtbl.ml:566:17>>*/ ;
+     /*<<hashtbl.ml:564:9>>*/ if(0 === caml_compare(key, k1))
+      /*<<hashtbl.ml:564:33>>*/ return [0, d1];
+    if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-     /*<<hashtbl.ml:568:13>>*/ if
-     (0
-      ===
-        /*<<hashtbl.ml:568:13>>*/ caml_compare
-         /*<<hashtbl.ml:568:13>>*/ (key, k2))
-      /*<<hashtbl.ml:568:37>>*/ return [0, d2] /*<<hashtbl.ml:568:37>>*/ ;
-    if(! next2)
-      /*<<hashtbl.ml:570:21>>*/ return 0 /*<<hashtbl.ml:570:21>>*/ ;
+     /*<<hashtbl.ml:568:13>>*/ if(0 === caml_compare(key, k2))
+      /*<<hashtbl.ml:568:37>>*/ return [0, d2];
+    if(! next2)  /*<<hashtbl.ml:570:21>>*/ return 0;
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-     /*<<hashtbl.ml:572:17>>*/ if
-     (0
-      ===
-        /*<<hashtbl.ml:572:17>>*/ caml_compare
-         /*<<hashtbl.ml:572:17>>*/ (key, k3))
-      /*<<hashtbl.ml:572:41>>*/ return [0, d3] /*<<hashtbl.ml:572:41>>*/ ;
+     /*<<hashtbl.ml:572:17>>*/ if(0 === caml_compare(key, k3))
+      /*<<hashtbl.ml:572:41>>*/ return [0, d3];
     var param = next3;
      /*<<hashtbl.ml:554:21>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0 /*<<hashtbl.ml:556:6>>*/ ;
+     if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
-      /*<<hashtbl.ml:558:9>>*/ if
-      (0
-       ===
-         /*<<hashtbl.ml:558:9>>*/ caml_compare
-          /*<<hashtbl.ml:558:9>>*/ (key, k))
-       /*<<hashtbl.ml:558:32>>*/ return [0, data] /*<<hashtbl.ml:558:32>>*/ ;
+      /*<<hashtbl.ml:558:9>>*/ if(0 === caml_compare(key, k))
+       /*<<hashtbl.ml:558:32>>*/ return [0, data];
      param = next;
     }
     /*<<hashtbl.ml:572:76>>*/ }
    function find_all(h, key){
     var
-     _o_ =
-        /*<<hashtbl.ml:582:25>>*/  /*<<hashtbl.ml:582:25>>*/ key_index
-         /*<<hashtbl.ml:582:25>>*/ (h, key),
+     _o_ =  /*<<hashtbl.ml:582:25>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _o_)[1 + _o_];
      /*<<hashtbl.ml:575:43>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0 /*<<hashtbl.ml:577:6>>*/ ;
+     if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
-      /*<<hashtbl.ml:579:9>>*/ if
-      (0
-       ===
-         /*<<hashtbl.ml:579:9>>*/ caml_compare
-          /*<<hashtbl.ml:579:9>>*/ (k, key))
-      break;
+      /*<<hashtbl.ml:579:9>>*/ if(0 === caml_compare(k, key)) break;
      param = next;
     }
     var
@@ -31164,14 +25714,10 @@
      /*<<hashtbl.ml:575:43>>*/ for(;;){
      if(! param$0){
       dst[1 + offset] = 0;
-       /*<<hashtbl.ml:580:19>>*/ return block /*<<hashtbl.ml:580:19>>*/ ;
+       /*<<hashtbl.ml:580:19>>*/ return block;
      }
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
-      /*<<hashtbl.ml:579:9>>*/ if
-      (0
-       ===
-         /*<<hashtbl.ml:579:9>>*/ caml_compare
-          /*<<hashtbl.ml:579:9>>*/ (k$0, key)){
+      /*<<hashtbl.ml:579:9>>*/ if(0 === caml_compare(k$0, key)){
       var dst$0 =  /*<<hashtbl.ml:580:11>>*/ [0, data$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -31184,22 +25730,13 @@
     /*<<hashtbl.ml:582:41>>*/ }
    function replace(h, key, data){
     var
-     i =
-        /*<<hashtbl.ml:593:10>>*/  /*<<hashtbl.ml:593:10>>*/ key_index
-         /*<<hashtbl.ml:593:10>>*/ (h, key),
+     i =  /*<<hashtbl.ml:593:10>>*/ key_index(h, key),
      l =  /*<<hashtbl.ml:594:10>>*/ caml_check_bound(h[2], i)[1 + i],
      slot = l;
      /*<<hashtbl.ml:584:23>>*/ for(;;){
      if(slot){
       var k = slot[1], next = slot[3];
-       /*<<hashtbl.ml:588:9>>*/ if
-       (0
-        !==
-          /*<<hashtbl.ml:588:9>>*/ caml_compare
-           /*<<hashtbl.ml:588:9>>*/ (k, key)){
-       slot = next;
-       continue;
-      }
+       /*<<hashtbl.ml:588:9>>*/ if(0 !== caml_compare(k, key)){slot = next; continue;}
       slot[1] = key;
       slot[2] = data;
       var _l_ = 0;
@@ -31211,84 +25748,63 @@
       h[1] = h[1] + 1 | 0;
       var _m_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
       if(_m_)
-        /*<<hashtbl.ml:598:47>>*/ return  /*<<hashtbl.ml:598:47>>*/ resize
-                /*<<hashtbl.ml:598:47>>*/ (key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
+        /*<<hashtbl.ml:598:47>>*/ return resize(key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
       var _n_ = _m_;
      }
      else
       var _n_ = _l_;
      return _n_;
     }
-    /*<<hashtbl.ml:599:5>>*/ }
+   }
    function mem(h, key){
     var
-     _k_ =
-        /*<<hashtbl.ml:608:28>>*/  /*<<hashtbl.ml:608:28>>*/ key_index
-         /*<<hashtbl.ml:608:28>>*/ (h, key),
+     _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
      param = caml_check_bound(h[2], _k_)[1 + _k_];
      /*<<hashtbl.ml:601:22>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0 /*<<hashtbl.ml:603:6>>*/ ;
+     if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0;
      var
       k = param[1],
       next = param[3],
-      _j_ =
-        0
-         ===
-           /*<<hashtbl.ml:605:6>>*/ caml_compare
-            /*<<hashtbl.ml:605:6>>*/ (k, key)
-         ? 1
-         : 0;
+      _j_ = 0 ===  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key) ? 1 : 0;
      if(_j_) return _j_;
      param = next;
     }
     /*<<hashtbl.ml:608:44>>*/ }
    function add_seq(tbl, i){
-     /*<<hashtbl.ml:611:2>>*/ return  /*<<hashtbl.ml:611:2>>*/ caml_call2
-             /*<<hashtbl.ml:611:2>>*/ (Stdlib_Seq[4],
+     /*<<hashtbl.ml:611:2>>*/ return caml_call2
+            (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
-               /*<<hashtbl.ml:611:25>>*/ return  /*<<hashtbl.ml:611:25>>*/ add
-                       /*<<hashtbl.ml:611:25>>*/ (tbl, k, v) /*<<hashtbl.ml:611:37>>*/ ;
-              /*<<hashtbl.ml:611:37>>*/ },
+               /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v) /*<<hashtbl.ml:611:37>>*/ ;
+             },
              i) /*<<hashtbl.ml:611:39>>*/ ;
-    /*<<hashtbl.ml:611:39>>*/ }
+   }
    function replace_seq(tbl, i){
-     /*<<hashtbl.ml:614:2>>*/ return  /*<<hashtbl.ml:614:2>>*/ caml_call2
-             /*<<hashtbl.ml:614:2>>*/ (Stdlib_Seq[4],
+     /*<<hashtbl.ml:614:2>>*/ return caml_call2
+            (Stdlib_Seq[4],
              function(param){
               var v = param[2], k = param[1];
-               /*<<hashtbl.ml:614:25>>*/ return  /*<<hashtbl.ml:614:25>>*/ replace
-                       /*<<hashtbl.ml:614:25>>*/ (tbl, k, v) /*<<hashtbl.ml:614:41>>*/ ;
-              /*<<hashtbl.ml:614:41>>*/ },
+               /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:614:41>>*/ ;
+             },
              i) /*<<hashtbl.ml:614:43>>*/ ;
-    /*<<hashtbl.ml:614:43>>*/ }
+   }
    function of_seq(i){
-    var
-     tbl =
-        /*<<hashtbl.ml:617:12>>*/  /*<<hashtbl.ml:617:12>>*/ create
-         /*<<hashtbl.ml:617:12>>*/ (0, 16);
-     /*<<hashtbl.ml:618:2>>*/  /*<<hashtbl.ml:618:2>>*/ replace_seq
-      /*<<hashtbl.ml:618:2>>*/ (tbl, i);
-     /*<<hashtbl.ml:618:2>>*/ return tbl /*<<hashtbl.ml:618:2>>*/ ;
+    var tbl =  /*<<hashtbl.ml:617:12>>*/ create(0, 16);
+     /*<<hashtbl.ml:618:2>>*/ replace_seq(tbl, i);
+    return tbl;
     /*<<hashtbl.ml:619:5>>*/ }
    function rebuild(opt, h){
     var
      random =
        opt
         ? opt[1]
-        :  /*<<hashtbl.ml:621:23>>*/ caml_call1
-           /*<<hashtbl.ml:621:23>>*/ (Stdlib_Atomic[3], randomized),
-     s =
-        /*<<hashtbl.ml:622:10>>*/  /*<<hashtbl.ml:622:10>>*/ power_2_above
-         /*<<hashtbl.ml:622:10>>*/ (16, h[2].length - 1);
+        :  /*<<hashtbl.ml:621:23>>*/ caml_call1(Stdlib_Atomic[3], randomized),
+     s =  /*<<hashtbl.ml:622:10>>*/ power_2_above(16, h[2].length - 1);
      /*<<hashtbl.ml:623:2>>*/ if(random)
      var
       _g_ =
-         /*<<hashtbl.ml:624:37>>*/  /*<<hashtbl.ml:624:37>>*/ caml_call1
-          /*<<hashtbl.ml:624:37>>*/ (Stdlib_Domain[10][2], prng_key),
-      seed =
-         /*<<hashtbl.ml:624:19>>*/ caml_call1
-          /*<<hashtbl.ml:624:19>>*/ (Stdlib_Random[19][4], _g_);
+         /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[10][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;
     var
@@ -31296,18 +25812,12 @@
      h$0 =
         /*<<hashtbl.ml:627:11>>*/ [0,
         h[1],
-         /*<<hashtbl.ml:629:11>>*/ caml_make_vect
-          /*<<hashtbl.ml:629:11>>*/ (s, 0),
+         /*<<hashtbl.ml:629:11>>*/ caml_make_vect(s, 0),
         seed,
         _h_];
-     /*<<hashtbl.ml:633:2>>*/  /*<<hashtbl.ml:633:2>>*/ insert_all_buckets
-      /*<<hashtbl.ml:633:2>>*/ (function(_i_){
-        /*<<?>>*/ return key_index(h$0, _i_);
-      },
-      0,
-      h[2],
-      h$0[2]);
-     /*<<hashtbl.ml:633:2>>*/ return h$0 /*<<hashtbl.ml:633:2>>*/ ;
+     /*<<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;
     /*<<hashtbl.ml:634:4>>*/ }
    var
     Stdlib_Hashtbl =
@@ -31354,12 +25864,11 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    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;
+    runtime = globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -31404,123 +25913,89 @@
     var
      _J_ = 0 <= l ? 1 : 0,
      _K_ = _J_ ? l <= Stdlib_Obj[23][15] ? 1 : 0 : _J_;
-    if(1 - _K_)
-      /*<<weak.ml:29:4>>*/  /*<<weak.ml:29:4>>*/ caml_call1
-       /*<<weak.ml:29:4>>*/ (Stdlib[1], cst_Weak_create);
-     /*<<weak.ml:30:2>>*/ return  /*<<weak.ml:30:2>>*/ runtime.caml_weak_create
-             /*<<weak.ml:30:2>>*/ (l) /*<<weak.ml:30:10>>*/ ;
-    /*<<weak.ml:30:10>>*/ }
+    if(1 - _K_)  /*<<weak.ml:29:4>>*/ caml_call1(Stdlib[1], cst_Weak_create);
+     /*<<weak.ml:30:2>>*/ return runtime.caml_weak_create(l) /*<<weak.ml:30:10>>*/ ;
+   }
    function length(x){
      /*<<weak.ml:33:15>>*/ return x.length - 3 | 0;
     /*<<weak.ml:33:55>>*/ }
    function raise_if_invalid_offset(e, o, msg){
     var
      _G_ = 0 <= o ? 1 : 0,
-     _H_ =
-       _G_
-        ? o <  /*<<weak.ml:36:24>>*/ length /*<<weak.ml:36:24>>*/ (e) ? 1 : 0
-        : _G_,
+     _H_ = _G_ ? o <  /*<<weak.ml:36:24>>*/ length(e) ? 1 : 0 : _G_,
      _I_ = 1 - _H_;
-    return _I_
-            ?  /*<<weak.ml:37:4>>*/ caml_call1
-               /*<<weak.ml:37:4>>*/ (Stdlib[1], msg)
-            : _I_ /*<<weak.ml:37:20>>*/ ;
-    /*<<weak.ml:37:20>>*/ }
+    return _I_ ?  /*<<weak.ml:37:4>>*/ caml_call1(Stdlib[1], msg) : _I_ /*<<weak.ml:37:20>>*/ ;
+   }
    function set(e, o, x){
-     /*<<weak.ml:42:2>>*/  /*<<weak.ml:42:2>>*/ raise_if_invalid_offset
-      /*<<weak.ml:42:2>>*/ (e, o, cst_Weak_set);
+     /*<<weak.ml:42:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_set);
     if(! x)
-      /*<<weak.ml:44:12>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
-              /*<<weak.ml:44:12>>*/ (e, o) /*<<weak.ml:45:24>>*/ ;
+      /*<<weak.ml:44:12>>*/ return runtime.caml_ephe_unset_key(e, o) /*<<weak.ml:45:24>>*/ ;
     var x$0 = x[1];
-     /*<<weak.ml:45:14>>*/ return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key
-             /*<<weak.ml:45:14>>*/ (e, o, x$0) /*<<weak.ml:45:24>>*/ ;
-    /*<<weak.ml:45:24>>*/ }
+     /*<<weak.ml:45:14>>*/ return runtime.caml_ephe_set_key(e, o, x$0) /*<<weak.ml:45:24>>*/ ;
+   }
    function get(e, o){
-     /*<<weak.ml:49:2>>*/  /*<<weak.ml:49:2>>*/ raise_if_invalid_offset
-      /*<<weak.ml:49:2>>*/ (e, o, cst_Weak_get);
-     /*<<weak.ml:50:2>>*/ return  /*<<weak.ml:50:2>>*/ runtime.caml_ephe_get_key
-             /*<<weak.ml:50:2>>*/ (e, o) /*<<weak.ml:50:9>>*/ ;
-    /*<<weak.ml:50:9>>*/ }
+     /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
+     /*<<weak.ml:50:2>>*/ return runtime.caml_ephe_get_key(e, o) /*<<weak.ml:50:9>>*/ ;
+   }
    function get_copy(e, o){
-     /*<<weak.ml:54:2>>*/  /*<<weak.ml:54:2>>*/ raise_if_invalid_offset
-      /*<<weak.ml:54:2>>*/ (e, o, cst_Weak_get_copy);
-     /*<<weak.ml:55:2>>*/ return  /*<<weak.ml:55:2>>*/ runtime.caml_ephe_get_key_copy
-             /*<<weak.ml:55:2>>*/ (e, o) /*<<weak.ml:55:14>>*/ ;
-    /*<<weak.ml:55:14>>*/ }
+     /*<<weak.ml:54:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get_copy);
+     /*<<weak.ml:55:2>>*/ return runtime.caml_ephe_get_key_copy(e, o) /*<<weak.ml:55:14>>*/ ;
+   }
    function check(e, o){
-     /*<<weak.ml:59:2>>*/  /*<<weak.ml:59:2>>*/ raise_if_invalid_offset
-      /*<<weak.ml:59:2>>*/ (e, o, cst_Weak_check);
-     /*<<weak.ml:60:2>>*/ return  /*<<weak.ml:60:2>>*/ runtime.caml_ephe_check_key
-             /*<<weak.ml:60:2>>*/ (e, o) /*<<weak.ml:60:11>>*/ ;
-    /*<<weak.ml:60:11>>*/ }
+     /*<<weak.ml:59:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_check);
+     /*<<weak.ml:60:2>>*/ return runtime.caml_ephe_check_key(e, o) /*<<weak.ml:60:11>>*/ ;
+   }
    function blit(e1, o1, e2, o2, l){
      /*<<weak.ml:66:2>>*/ if
      (0 <= l
       &&
        0 <= o1
        &&
-        ( /*<<weak.ml:66:29>>*/ length /*<<weak.ml:66:29>>*/ (e1) - l | 0)
-        >= o1
-        &&
-         0 <= o2
-         &&
-          ( /*<<weak.ml:67:23>>*/ length /*<<weak.ml:67:23>>*/ (e2) - l | 0)
-          >= o2){
+        ( /*<<weak.ml:66:29>>*/ length(e1) - l | 0) >= o1
+        && 0 <= o2 && ( /*<<weak.ml:67:23>>*/ length(e2) - l | 0) >= o2){
      var
       _E_ = 0 !== l ? 1 : 0,
       _F_ =
         _E_
          ?  /*<<weak.ml:69:22>>*/ runtime.caml_ephe_blit_key
-            /*<<weak.ml:69:22>>*/ (e1, o1, e2, o2, l)
+           (e1, o1, e2, o2, l)
          : _E_;
-      /*<<weak.ml:69:22>>*/ return _F_ /*<<weak.ml:69:22>>*/ ;
+     return _F_;
     }
-     /*<<weak.ml:68:7>>*/ return  /*<<weak.ml:68:7>>*/ caml_call1
-             /*<<weak.ml:68:7>>*/ (Stdlib[1], cst_Weak_blit) /*<<weak.ml:69:40>>*/ ;
-    /*<<weak.ml:69:40>>*/ }
+     /*<<weak.ml:68:7>>*/ return caml_call1(Stdlib[1], cst_Weak_blit) /*<<weak.ml:69:40>>*/ ;
+   }
    function fill(ar, ofs, len, x){
      /*<<weak.ml:72:2>>*/ if
      (0 <= ofs
-      &&
-       0 <= len
-       &&
-        ( /*<<weak.ml:72:33>>*/ length /*<<weak.ml:72:33>>*/ (ar) - len | 0)
-        >= ofs){
+      && 0 <= len && ( /*<<weak.ml:72:33>>*/ length(ar) - len | 0) >= ofs){
      var _C_ = (ofs + len | 0) - 1 | 0;
      if(_C_ >= ofs){
       var i = ofs;
       for(;;){
-        /*<<weak.ml:76:6>>*/  /*<<weak.ml:76:6>>*/ set
-         /*<<weak.ml:76:6>>*/ (ar, i, x);
-       var _D_ =  /*<<weak.ml:76:6>>*/ i + 1 | 0;
+        /*<<weak.ml:76:6>>*/ set(ar, i, x);
+       var _D_ = i + 1 | 0;
        if(_C_ === i) break;
        i = _D_;
       }
      }
      return 0;
     }
-     /*<<weak.ml:73:7>>*/ throw  /*<<weak.ml:73:7>>*/ caml_maybe_attach_backtrace
-            /*<<weak.ml:73:7>>*/ ([0, Stdlib[6], cst_Weak_fill], 1);
+     /*<<weak.ml:73:7>>*/ throw caml_maybe_attach_backtrace
+           ([0, Stdlib[6], cst_Weak_fill], 1);
     /*<<weak.ml:78:5>>*/ }
    function Make(H){
-    var
-     emptybucket =
-        /*<<weak.ml:105:20>>*/  /*<<weak.ml:105:20>>*/ create
-         /*<<weak.ml:105:20>>*/ (0);
+    var emptybucket =  /*<<weak.ml:105:20>>*/ create(0);
     function get_index(t, h){
       /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1) /*<<weak.ml:117:65>>*/ ;
-     /*<<weak.ml:117:65>>*/ }
+    }
     var limit =  /*<<weak.ml:117:16>>*/ 7;
     function create$0(sz){
      var
       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
-               /*<<weak.ml:126:14>>*/ (sz$1, emptybucket),
-              /*<<weak.ml:127:15>>*/ caml_make_vect
-               /*<<weak.ml:127:15>>*/ (sz$1, [0]),
+              /*<<weak.ml:126:14>>*/ caml_make_vect(sz$1, emptybucket),
+              /*<<weak.ml:127:15>>*/ caml_make_vect(sz$1, [0]),
              limit,
              0,
              0] /*<<weak.ml:125:4>>*/ ;
@@ -31532,7 +26007,7 @@
       for(;;){
         /*<<weak.ml:135:6>>*/ caml_check_bound(t[1], i)[1 + i] = emptybucket;
         /*<<weak.ml:136:6>>*/ caml_check_bound(t[2], i)[1 + i] = [0];
-       var _B_ =  /*<<weak.ml:136:6>>*/ i + 1 | 0;
+       var _B_ = i + 1 | 0;
        if(_A_ === i) break;
        i = _B_;
       }
@@ -31543,25 +26018,18 @@
      /*<<weak.ml:139:19>>*/ }
     function fold(f, t, init){
      var i = 0;
-      /*<<weak.ml:149:4>>*/ return  /*<<weak.ml:149:4>>*/ caml_call3
-              /*<<weak.ml:149:4>>*/ (Stdlib_Array[20],
+      /*<<weak.ml:149:4>>*/ return caml_call3
+             (Stdlib_Array[20],
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
-                if
-                 ( /*<<weak.ml:144:14>>*/ length /*<<weak.ml:144:14>>*/ (b)
-                  <= i$0)
-                  /*<<weak.ml:144:28>>*/ return accu /*<<weak.ml:144:28>>*/ ;
-                var
-                 match =
-                    /*<<weak.ml:145:12>>*/  /*<<weak.ml:145:12>>*/ get
-                     /*<<weak.ml:145:12>>*/ (b, i$0);
+                if( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
+                  /*<<weak.ml:144:28>>*/ return accu;
+                var match =  /*<<weak.ml:145:12>>*/ get(b, i$0);
                 if(match){
                  var
                   v = match[1],
-                  accu$0 =
-                     /*<<weak.ml:146:38>>*/  /*<<weak.ml:146:38>>*/ caml_call2
-                      /*<<weak.ml:146:38>>*/ (f, v, accu),
+                  accu$0 =  /*<<weak.ml:146:38>>*/ caml_call2(f, v, accu),
                   i$1 = i$0 + 1 | 0;
                  i$0 = i$1;
                  accu = accu$0;
@@ -31571,26 +26039,20 @@
               },
               t[1],
               init) /*<<weak.ml:149:49>>*/ ;
-     /*<<weak.ml:149:49>>*/ }
+    }
     function iter(f, t){
      var i = 0;
-      /*<<weak.ml:159:15>>*/ return  /*<<weak.ml:159:15>>*/ caml_call2
-              /*<<weak.ml:159:15>>*/ (Stdlib_Array[12],
+      /*<<weak.ml:159:15>>*/ return caml_call2
+             (Stdlib_Array[12],
               function(b){
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
-                if
-                 ( /*<<weak.ml:154:14>>*/ length /*<<weak.ml:154:14>>*/ (b)
-                  <= i$0)
-                  /*<<weak.ml:154:28>>*/ return 0 /*<<weak.ml:154:28>>*/ ;
-                var
-                 match =
-                    /*<<weak.ml:155:12>>*/  /*<<weak.ml:155:12>>*/ get
-                     /*<<weak.ml:155:12>>*/ (b, i$0);
+                if( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
+                  /*<<weak.ml:154:28>>*/ return 0;
+                var match =  /*<<weak.ml:155:12>>*/ get(b, i$0);
                 if(match){
                  var v = match[1];
-                  /*<<weak.ml:156:18>>*/  /*<<weak.ml:156:18>>*/ caml_call1
-                   /*<<weak.ml:156:18>>*/ (f, v);
+                  /*<<weak.ml:156:18>>*/ caml_call1(f, v);
                  var i$1 = i$0 + 1 | 0;
                  i$0 = i$1;
                 }
@@ -31598,18 +26060,14 @@
                }
               },
               t[1]) /*<<weak.ml:159:38>>*/ ;
-     /*<<weak.ml:159:38>>*/ }
+    }
     function count_bucket(i, b, accu){
      var i$0 = i, accu$0 = accu;
       /*<<weak.ml:173:4>>*/ for(;;){
-      if( /*<<weak.ml:173:12>>*/ length /*<<weak.ml:173:12>>*/ (b) <= i$0)
-        /*<<weak.ml:173:26>>*/ return accu$0 /*<<weak.ml:173:26>>*/ ;
+      if( /*<<weak.ml:173:12>>*/ length(b) <= i$0)
+        /*<<weak.ml:173:26>>*/ return accu$0;
       var
-       _y_ =
-          /*<<weak.ml:174:37>>*/  /*<<weak.ml:174:37>>*/ check
-            /*<<weak.ml:174:37>>*/ (b, i$0)
-          ? 1
-          : 0,
+       _y_ =  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
        accu$1 = accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -31618,59 +26076,48 @@
      /*<<weak.ml:174:62>>*/ }
     function count(t){
      var _v_ = 0;
-      /*<<weak.ml:178:4>>*/ return  /*<<weak.ml:178:4>>*/ caml_call3
-              /*<<weak.ml:178:4>>*/ (Stdlib_Array[20],
+      /*<<weak.ml:178:4>>*/ return caml_call3
+             (Stdlib_Array[20],
               function(_w_, _x_){
                 /*<<?>>*/ return count_bucket(_v_, _w_, _x_);
               },
               t[1],
               0) /*<<weak.ml:178:47>>*/ ;
-     /*<<weak.ml:178:47>>*/ }
+    }
     function add_aux(t, setter, d, h, index){
      var
       bucket$0 =
          /*<<weak.ml:238:17>>*/ caml_check_bound(t[1], index)[1 + index],
       hashes =
          /*<<weak.ml:239:17>>*/ caml_check_bound(t[2], index)[1 + index],
-      sz =
-         /*<<weak.ml:240:13>>*/  /*<<weak.ml:240:13>>*/ length
-          /*<<weak.ml:240:13>>*/ (bucket$0),
+      sz =  /*<<weak.ml:240:13>>*/ length(bucket$0),
       i$3 = 0;
       /*<<weak.ml:242:6>>*/ for(;;){
       if(sz <= i$3) break;
-       /*<<weak.ml:260:18>>*/ if
-       (!
-         /*<<weak.ml:260:18>>*/ check /*<<weak.ml:260:18>>*/ (bucket$0, i$3)){
-        /*<<weak.ml:263:8>>*/  /*<<weak.ml:263:8>>*/ caml_call3
-         /*<<weak.ml:263:8>>*/ (setter, bucket$0, i$3, d);
+       /*<<weak.ml:260:18>>*/ if(! check(bucket$0, i$3)){
+        /*<<weak.ml:263:8>>*/ caml_call3(setter, bucket$0, i$3, d);
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
-        /*<<weak.ml:264:8>>*/ return 0 /*<<weak.ml:264:8>>*/ ;
+       return 0;
       }
       var i$5 =  /*<<weak.ml:260:38>>*/ i$3 + 1 | 0;
       i$3 = i$5;
      }
      var
       newsz =
-         /*<<weak.ml:244:10>>*/  /*<<weak.ml:244:10>>*/ caml_call2
-          /*<<weak.ml:244:10>>*/ (Stdlib_Int[10],
+         /*<<weak.ml:244:10>>*/ caml_call2
+         (Stdlib_Int[10],
           ((3 * sz | 0) / 2 | 0) + 3 | 0,
           Stdlib_Sys[13] - 2 | 0);
      if(newsz <= sz)
-       /*<<weak.ml:246:28>>*/  /*<<weak.ml:246:28>>*/ caml_call1
-        /*<<weak.ml:246:28>>*/ (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
-     var
-      newbucket$0 =
-         /*<<weak.ml:247:24>>*/  /*<<weak.ml:247:24>>*/ create
-          /*<<weak.ml:247:24>>*/ (newsz),
-      newhashes =
-         /*<<weak.ml:248:24>>*/  /*<<weak.ml:248:24>>*/ caml_make_vect
-          /*<<weak.ml:248:24>>*/ (newsz, 0);
-      /*<<weak.ml:249:8>>*/  /*<<weak.ml:249:8>>*/ blit
-       /*<<weak.ml:249:8>>*/ (bucket$0, 0, newbucket$0, 0, sz);
-      /*<<weak.ml:250:8>>*/  /*<<weak.ml:250:8>>*/ caml_call5
-       /*<<weak.ml:250:8>>*/ (Stdlib_Array[9], hashes, 0, newhashes, 0, sz);
-      /*<<weak.ml:251:8>>*/  /*<<weak.ml:251:8>>*/ caml_call3
-       /*<<weak.ml:251:8>>*/ (setter, newbucket$0, sz, d);
+       /*<<weak.ml:246:28>>*/ caml_call1
+       (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
+     var
+      newbucket$0 =  /*<<weak.ml:247:24>>*/ create(newsz),
+      newhashes =  /*<<weak.ml:248:24>>*/ caml_make_vect(newsz, 0);
+      /*<<weak.ml:249:8>>*/ blit(bucket$0, 0, newbucket$0, 0, sz);
+      /*<<weak.ml:250:8>>*/ caml_call5
+      (Stdlib_Array[9], hashes, 0, newhashes, 0, sz);
+      /*<<weak.ml:251:8>>*/ caml_call3(setter, newbucket$0, sz, d);
       /*<<weak.ml:252:8>>*/ caml_check_bound(newhashes, sz)[1 + sz] = h;
       /*<<weak.ml:253:8>>*/ caml_check_bound(t[1], index)[1 + index] = newbucket$0;
       /*<<weak.ml:254:8>>*/ caml_check_bound(t[2], index)[1 + index] = newhashes;
@@ -31684,34 +26131,26 @@
         bucket =  /*<<weak.ml:185:17>>*/ caml_check_bound(t[1], _h_)[1 + _h_],
         _i_ =  /*<<weak.ml:186:4>>*/ t[5],
         hbucket =  /*<<weak.ml:186:18>>*/ caml_check_bound(t[2], _i_)[1 + _i_],
-        len =
-           /*<<weak.ml:187:14>>*/  /*<<weak.ml:187:14>>*/ length
-            /*<<weak.ml:187:14>>*/ (bucket),
+        len =  /*<<weak.ml:187:14>>*/ length(bucket),
         prev_len = (((len - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0,
-        live =
-           /*<<weak.ml:189:15>>*/  /*<<weak.ml:189:15>>*/ count_bucket
-            /*<<weak.ml:189:15>>*/ (0, bucket, 0);
+        live =  /*<<weak.ml:189:15>>*/ count_bucket(0, bucket, 0);
        if(live <= prev_len){
         var
-         j$2 =
-            /*<<weak.ml:201:14>>*/  /*<<weak.ml:201:14>>*/ length
-             /*<<weak.ml:201:14>>*/ (bucket)
-           - 1
-           | 0,
+         j$2 =  /*<<weak.ml:201:14>>*/ length(bucket) - 1 | 0,
          i$0 = 0,
          j = j$2;
          /*<<weak.ml:192:8>>*/ for(;;){
          if(prev_len > j) break;
-          /*<<weak.ml:193:13>>*/ if
-          ( /*<<weak.ml:193:13>>*/ check /*<<weak.ml:193:13>>*/ (bucket, i$0)){var i$1 = i$0 + 1 | 0; i$0 = i$1;}
-         else if
-          ( /*<<weak.ml:194:18>>*/ check /*<<weak.ml:194:18>>*/ (bucket, j)){
-           /*<<weak.ml:195:12>>*/  /*<<weak.ml:195:12>>*/ blit
-            /*<<weak.ml:195:12>>*/ (bucket, j, bucket, i$0, 1);
+          /*<<weak.ml:193:13>>*/ if(check(bucket, i$0)){
+          var i$1 = i$0 + 1 | 0;
+          i$0 = i$1;
+         }
+         else if( /*<<weak.ml:194:18>>*/ check(bucket, j)){
+           /*<<weak.ml:195:12>>*/ blit(bucket, j, bucket, i$0, 1);
           var
            _j_ =  /*<<weak.ml:196:27>>*/ caml_check_bound(hbucket, j)[1 + j];
            /*<<weak.ml:196:12>>*/ caml_check_bound(hbucket, i$0)[1 + i$0] = _j_;
-          var j$0 =  /*<<weak.ml:196:12>>*/ j - 1 | 0, i$2 = i$0 + 1 | 0;
+          var j$0 = j - 1 | 0, i$2 = i$0 + 1 | 0;
           i$0 = i$2;
           j = j$0;
          }
@@ -31724,18 +26163,14 @@
           /*<<weak.ml:204:8>>*/ caml_check_bound(t[2], _l_)[1 + _l_] = [0];
         }
         else{
-         var
-          newbucket =
-             /*<<weak.ml:206:24>>*/  /*<<weak.ml:206:24>>*/ create
-              /*<<weak.ml:206:24>>*/ (prev_len);
-          /*<<weak.ml:207:8>>*/  /*<<weak.ml:207:8>>*/ blit
-           /*<<weak.ml:207:8>>*/ (bucket, 0, newbucket, 0, prev_len);
+         var newbucket =  /*<<weak.ml:206:24>>*/ create(prev_len);
+          /*<<weak.ml:207:8>>*/ blit(bucket, 0, newbucket, 0, prev_len);
          var _o_ = t[5];
           /*<<weak.ml:208:8>>*/ caml_check_bound(t[1], _o_)[1 + _o_] = newbucket;
          var
           _p_ =
-             /*<<weak.ml:209:30>>*/  /*<<weak.ml:209:30>>*/ caml_call3
-              /*<<weak.ml:209:30>>*/ (Stdlib_Array[6], hbucket, 0, prev_len),
+             /*<<weak.ml:209:30>>*/ caml_call3
+             (Stdlib_Array[6], hbucket, 0, prev_len),
           _q_ = t[5];
           /*<<weak.ml:209:8>>*/ caml_check_bound(t[2], _q_)[1 + _q_] = _p_;
         }
@@ -31755,40 +26190,28 @@
      var
       oldlen = t[1].length - 1,
       newlen =
-         /*<<weak.ml:181:18>>*/  /*<<weak.ml:181:18>>*/ caml_call2
-          /*<<weak.ml:181:18>>*/ (Stdlib_Int[10],
-          ((3 * oldlen | 0) / 2 | 0) + 3 | 0,
-          Stdlib_Sys[13]);
+         /*<<weak.ml:181:18>>*/ caml_call2
+         (Stdlib_Int[10], ((3 * oldlen | 0) / 2 | 0) + 3 | 0, Stdlib_Sys[13]);
      if(oldlen < newlen){
-      var
-       newt =
-          /*<<weak.ml:220:17>>*/  /*<<weak.ml:220:17>>*/ create$0
-           /*<<weak.ml:220:17>>*/ (newlen),
-       i = 0;
-       /*<<weak.ml:169:16>>*/  /*<<weak.ml:169:16>>*/ caml_call2
-        /*<<weak.ml:169:16>>*/ (Stdlib_Array[13],
+      var newt =  /*<<weak.ml:220:17>>*/ create$0(newlen), i = 0;
+       /*<<weak.ml:169:16>>*/ caml_call2
+       (Stdlib_Array[13],
         function(j, ob){
          var oi = i;
           /*<<weak.ml:164:6>>*/ for(;;){
-          if( /*<<weak.ml:164:14>>*/ length /*<<weak.ml:164:14>>*/ (ob) <= oi)
-            /*<<weak.ml:164:28>>*/ return 0 /*<<weak.ml:164:28>>*/ ;
-          if( /*<<weak.ml:165:12>>*/ check /*<<weak.ml:165:12>>*/ (ob, oi)){
+          if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
+            /*<<weak.ml:164:28>>*/ return 0;
+          if( /*<<weak.ml:165:12>>*/ check(ob, oi)){
            var oh =  /*<<weak.ml:166:20>>*/ caml_check_bound(t[2], j)[1 + j];
            let oi$0 = oi;
            var
             setter =
               function(nb, ni, param){
-                /*<<weak.ml:222:29>>*/ return  /*<<weak.ml:222:29>>*/ blit
-                        /*<<weak.ml:222:29>>*/ (ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
-               /*<<weak.ml:222:47>>*/ },
+                /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
+              },
             h =  /*<<weak.ml:223:16>>*/ caml_check_bound(oh, oi)[1 + oi];
-            /*<<weak.ml:224:35>>*/  /*<<weak.ml:224:35>>*/ add_aux
-             /*<<weak.ml:224:35>>*/ (newt,
-             setter,
-             0,
-             h,
-              /*<<weak.ml:224:35>>*/ get_index
-               /*<<weak.ml:224:35>>*/ (newt, h));
+            /*<<weak.ml:224:35>>*/ add_aux
+            (newt, setter, 0, h, get_index(newt, h));
            var i$0 = oi + 1 | 0;
            oi = i$0;
           }
@@ -31808,49 +26231,29 @@
      return 0;
      /*<<weak.ml:267:10>>*/ }
     function add(t, d){
-     var
-      h =
-         /*<<weak.ml:271:12>>*/  /*<<weak.ml:271:12>>*/ caml_call1
-          /*<<weak.ml:271:12>>*/ (H[2], d);
-      /*<<weak.ml:272:29>>*/ return  /*<<weak.ml:272:29>>*/ add_aux
-              /*<<weak.ml:272:29>>*/ (t,
-              set,
-              [0, d],
-              h,
-               /*<<weak.ml:272:29>>*/ get_index /*<<weak.ml:272:29>>*/ (t, h)) /*<<weak.ml:272:44>>*/ ;
-     /*<<weak.ml:272:44>>*/ }
+     var h =  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
+      /*<<weak.ml:272:29>>*/ return add_aux
+             (t, set, [0, d], h, get_index(t, h)) /*<<weak.ml:272:44>>*/ ;
+    }
     function find_aux(t, d, found, notfound){
      var
-      h =
-         /*<<weak.ml:278:12>>*/  /*<<weak.ml:278:12>>*/ caml_call1
-          /*<<weak.ml:278:12>>*/ (H[2], d),
-      index =
-         /*<<weak.ml:279:16>>*/  /*<<weak.ml:279:16>>*/ get_index
-          /*<<weak.ml:279:16>>*/ (t, h),
+      h =  /*<<weak.ml:278:12>>*/ caml_call1(H[2], d),
+      index =  /*<<weak.ml:279:16>>*/ get_index(t, h),
       bucket =
          /*<<weak.ml:280:17>>*/ caml_check_bound(t[1], index)[1 + index],
       hashes =
          /*<<weak.ml:281:17>>*/ caml_check_bound(t[2], index)[1 + index],
-      sz =
-         /*<<weak.ml:282:13>>*/  /*<<weak.ml:282:13>>*/ length
-          /*<<weak.ml:282:13>>*/ (bucket),
+      sz =  /*<<weak.ml:282:13>>*/ length(bucket),
       i = 0;
       /*<<weak.ml:284:6>>*/ for(;;){
       if(sz <= i)
-        /*<<weak.ml:279:16>>*/ return  /*<<weak.ml:279:16>>*/ caml_call2
-                /*<<weak.ml:279:16>>*/ (notfound, h, index) /*<<weak.ml:291:10>>*/ ;
+        /*<<weak.ml:279:16>>*/ return caml_call2(notfound, h, index) /*<<weak.ml:291:10>>*/ ;
       if(h === caml_check_bound(hashes, i)[1 + i]){
-       var
-        opt =
-           /*<<weak.ml:286:14>>*/  /*<<weak.ml:286:14>>*/ get
-            /*<<weak.ml:286:14>>*/ (bucket, i);
+       var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
        if(opt){
         var v = opt[1];
-         /*<<weak.ml:287:29>>*/ if
-         ( /*<<weak.ml:287:29>>*/ caml_call2
-            /*<<weak.ml:287:29>>*/ (H[1], v, d))
-          /*<<weak.ml:287:44>>*/ return  /*<<weak.ml:287:44>>*/ caml_call4
-                  /*<<weak.ml:287:44>>*/ (found, bucket, i, opt, v) /*<<weak.ml:291:10>>*/ ;
+         /*<<weak.ml:287:29>>*/ if(caml_call2(H[1], v, d))
+          /*<<weak.ml:287:44>>*/ return caml_call4(found, bucket, i, opt, v) /*<<weak.ml:291:10>>*/ ;
        }
        var i$0 =  /*<<weak.ml:288:15>>*/ i + 1 | 0;
        i = i$0;
@@ -31860,95 +26263,80 @@
      /*<<weak.ml:291:10>>*/ }
     function find_opt(t, d){
       /*<<weak.ml:293:21>>*/ return  /*<<weak.ml:294:34>>*/ find_aux
-              /*<<weak.ml:294:34>>*/ (t,
+             (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:293:54>>*/ return o /*<<weak.ml:293:54>>*/ ;
+                /*<<weak.ml:293:54>>*/ return o;
                /*<<weak.ml:293:55>>*/ },
               function(h, i){
-                /*<<weak.ml:294:48>>*/ return 0 /*<<weak.ml:294:48>>*/ ;
+                /*<<weak.ml:294:48>>*/ return 0;
                /*<<weak.ml:294:52>>*/ }) /*<<weak.ml:294:53>>*/ ;
-     /*<<weak.ml:294:53>>*/ }
+    }
     function merge(t, d){
       /*<<weak.ml:296:21>>*/ return  /*<<weak.ml:297:34>>*/ find_aux
-              /*<<weak.ml:297:34>>*/ (t,
+             (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:296:54>>*/ return v /*<<weak.ml:296:54>>*/ ;
+                /*<<weak.ml:296:54>>*/ return v;
                /*<<weak.ml:296:55>>*/ },
               function(h, i){
-                /*<<weak.ml:298:40>>*/  /*<<weak.ml:298:40>>*/ add_aux
-                 /*<<weak.ml:298:40>>*/ (t, set, [0, d], h, i);
-                /*<<weak.ml:296:21>>*/ return d /*<<weak.ml:296:21>>*/ ;
+                /*<<weak.ml:298:40>>*/ add_aux(t, set, [0, d], h, i);
+                /*<<weak.ml:296:21>>*/ return d;
                /*<<weak.ml:298:69>>*/ }) /*<<weak.ml:298:70>>*/ ;
-     /*<<weak.ml:298:70>>*/ }
+    }
     function find(t, d){
       /*<<weak.ml:300:21>>*/ return  /*<<weak.ml:301:34>>*/ find_aux
-              /*<<weak.ml:301:34>>*/ (t,
+             (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:300:54>>*/ return v /*<<weak.ml:300:54>>*/ ;
+                /*<<weak.ml:300:54>>*/ return v;
                /*<<weak.ml:300:55>>*/ },
               function(h, i){
-                /*<<weak.ml:301:48>>*/ throw  /*<<weak.ml:301:48>>*/ caml_maybe_attach_backtrace
-                       /*<<weak.ml:301:48>>*/ (Stdlib[8], 1);
+                /*<<weak.ml:301:48>>*/ throw caml_maybe_attach_backtrace
+                      (Stdlib[8], 1);
                /*<<weak.ml:301:63>>*/ }) /*<<weak.ml:301:64>>*/ ;
-     /*<<weak.ml:301:64>>*/ }
+    }
     function remove(t, d){
       /*<<weak.ml:303:21>>*/ return  /*<<weak.ml:304:34>>*/ find_aux
-              /*<<weak.ml:304:34>>*/ (t,
+             (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:303:54>>*/ return  /*<<weak.ml:303:54>>*/ set
-                        /*<<weak.ml:303:54>>*/ (b, i, 0) /*<<weak.ml:303:66>>*/ ;
-               /*<<weak.ml:303:66>>*/ },
+                /*<<weak.ml:303:54>>*/ return set(b, i, 0) /*<<weak.ml:303:66>>*/ ;
+              },
               function(h, i){
-                /*<<weak.ml:304:48>>*/ return 0 /*<<weak.ml:304:48>>*/ ;
+                /*<<weak.ml:304:48>>*/ return 0;
                /*<<weak.ml:304:50>>*/ }) /*<<weak.ml:304:51>>*/ ;
-     /*<<weak.ml:304:51>>*/ }
+    }
     function mem(t, d){
       /*<<weak.ml:306:21>>*/ return  /*<<weak.ml:307:34>>*/ find_aux
-              /*<<weak.ml:307:34>>*/ (t,
+             (t,
               d,
               function(b, i, o, v){
-                /*<<weak.ml:306:54>>*/ return 1 /*<<weak.ml:306:54>>*/ ;
+                /*<<weak.ml:306:54>>*/ return 1;
                /*<<weak.ml:306:58>>*/ },
               function(h, i){
-                /*<<weak.ml:307:48>>*/ return 0 /*<<weak.ml:307:48>>*/ ;
+                /*<<weak.ml:307:48>>*/ return 0;
                /*<<weak.ml:307:53>>*/ }) /*<<weak.ml:307:54>>*/ ;
-     /*<<weak.ml:307:54>>*/ }
+    }
     function find_all(t, d){
      var
-      h =
-         /*<<weak.ml:310:12>>*/  /*<<weak.ml:310:12>>*/ caml_call1
-          /*<<weak.ml:310:12>>*/ (H[2], d),
-      index =
-         /*<<weak.ml:311:16>>*/  /*<<weak.ml:311:16>>*/ get_index
-          /*<<weak.ml:311:16>>*/ (t, h),
+      h =  /*<<weak.ml:310:12>>*/ caml_call1(H[2], d),
+      index =  /*<<weak.ml:311:16>>*/ get_index(t, h),
       bucket =
          /*<<weak.ml:312:17>>*/ caml_check_bound(t[1], index)[1 + index],
       hashes =
          /*<<weak.ml:313:17>>*/ caml_check_bound(t[2], index)[1 + index],
-      sz =
-         /*<<weak.ml:314:13>>*/  /*<<weak.ml:314:13>>*/ length
-          /*<<weak.ml:314:13>>*/ (bucket),
+      sz =  /*<<weak.ml:314:13>>*/ length(bucket),
       i = 0,
       accu = 0;
       /*<<weak.ml:316:6>>*/ for(;;){
-      if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu /*<<weak.ml:316:22>>*/ ;
+      if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
       if(h === caml_check_bound(hashes, i)[1 + i]){
-       var
-        match =
-           /*<<weak.ml:318:14>>*/  /*<<weak.ml:318:14>>*/ get
-            /*<<weak.ml:318:14>>*/ (bucket, i);
+       var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
        if(match){
         var v = match[1];
-         /*<<weak.ml:319:22>>*/ if
-         ( /*<<weak.ml:319:22>>*/ caml_call2
-            /*<<weak.ml:319:22>>*/ (H[1], v, d)){
-         var
-          accu$0 =  /*<<weak.ml:319:50>>*/ [0, v, accu],
-          i$0 =  /*<<weak.ml:319:50>>*/ i + 1 | 0;
+         /*<<weak.ml:319:22>>*/ if(caml_call2(H[1], v, d)){
+         var accu$0 =  /*<<weak.ml:319:50>>*/ [0, v, accu], i$0 = i + 1 | 0;
          i = i$0;
          accu = accu$0;
          continue;
@@ -31964,16 +26352,13 @@
      var
       len = t[1].length - 1,
       lens =
-         /*<<weak.ml:327:15>>*/  /*<<weak.ml:327:15>>*/ caml_call2
-          /*<<weak.ml:327:15>>*/ (Stdlib_Array[14], length, t[1]);
-      /*<<weak.ml:328:4>>*/  /*<<weak.ml:328:4>>*/ caml_call2
-       /*<<weak.ml:328:4>>*/ (Stdlib_Array[35],
-       runtime.caml_int_compare,
-       lens);
+         /*<<weak.ml:327:15>>*/ caml_call2(Stdlib_Array[14], length, t[1]);
+      /*<<weak.ml:328:4>>*/ caml_call2
+      (Stdlib_Array[35], runtime.caml_int_compare, lens);
      var
       totlen =
-         /*<<weak.ml:329:17>>*/  /*<<weak.ml:329:17>>*/ caml_call3
-          /*<<weak.ml:329:17>>*/ (Stdlib_Array[18],
+         /*<<weak.ml:329:17>>*/ caml_call3
+         (Stdlib_Array[18],
           function(_g_, _f_){ /*<<?>>*/ return _g_ + _f_ | 0;},
           0,
           lens),
@@ -31984,7 +26369,7 @@
       _e_ =  /*<<weak.ml:330:27>>*/ caml_check_bound(lens, 0)[1];
       /*<<weak.ml:330:4>>*/ return [0,
              len,
-              /*<<weak.ml:330:10>>*/ count /*<<weak.ml:330:10>>*/ (t),
+              /*<<weak.ml:330:10>>*/ count(t),
              totlen,
              _e_,
              _d_,
@@ -32003,7 +26388,7 @@
             iter,
             fold,
             count,
-            stats] /*<<weak.ml:101:66>>*/ ;
+            stats];
    }
    var
     Stdlib_Weak =
@@ -32019,12 +26404,11 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst$16 =  /*<<?>>*/ "",
-    cst$15 =  /*<<?>>*/ ">",
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_ml_string_length =  /*<<?>>*/ runtime.caml_ml_string_length;
+    runtime = globalThis.jsoo_runtime,
+    cst$16 = "",
+    cst$15 = ">",
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_ml_string_length = runtime.caml_ml_string_length;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -32077,9 +26461,7 @@
     Stdlib_Stack = global_data.Stdlib__Stack,
     Stdlib_Int = global_data.Stdlib__Int,
     Stdlib_Bytes = global_data.Stdlib__Bytes;
-   function id(x){
-     /*<<format.ml:23:11>>*/ return x /*<<format.ml:23:11>>*/ ;
-    /*<<format.ml:23:12>>*/ }
+   function id(x){ /*<<format.ml:23:11>>*/ return x; /*<<format.ml:23:12>>*/ }
    var
     zero = 0,
     unknown = -1,
@@ -32090,7 +26472,7 @@
    function pp_enqueue(state, token){
      /*<<format.ml:219:2>>*/ state[13] = state[13] + token[3] | 0;
     return caml_call2(Stdlib_Queue[3], token, state[28]) /*<<format.ml:220:32>>*/ ;
-    /*<<format.ml:220:32>>*/ }
+   }
    var
     pp_infinity =  /*<<format.ml:223:19>>*/ 1000000010,
     _b_ = [0, cst$16],
@@ -32102,111 +26484,87 @@
    function pp_output_string(state, s){
      /*<<format.ml:251:31>>*/ return caml_call3
             (state[17], s, 0, caml_ml_string_length(s)) /*<<format.ml:251:72>>*/ ;
-    /*<<format.ml:251:72>>*/ }
+   }
    function pp_output_newline(state){
-     /*<<format.ml:252:30>>*/ return  /*<<format.ml:252:30>>*/ caml_call1
-             /*<<format.ml:252:30>>*/ (state[19], 0) /*<<format.ml:252:53>>*/ ;
-    /*<<format.ml:252:53>>*/ }
+     /*<<format.ml:252:30>>*/ return caml_call1(state[19], 0) /*<<format.ml:252:53>>*/ ;
+   }
    function format_pp_text(state, size, text){
      /*<<format.ml:258:2>>*/ state[9] = state[9] - size | 0;
-     /*<<format.ml:259:2>>*/  /*<<format.ml:259:2>>*/ pp_output_string
-      /*<<format.ml:259:2>>*/ (state, text);
+     /*<<format.ml:259:2>>*/ pp_output_string(state, text);
     state[11] = 0;
     /*<<format.ml:260:31>>*/ }
    function format_string(state, s){
     var _a__ =  /*<<format.ml:264:5>>*/ s !== cst$16 ? 1 : 0;
-     /*<<format.ml:264:5>>*/ return _a__
+    return _a__
             ?  /*<<format.ml:264:18>>*/ format_pp_text
-               /*<<format.ml:264:18>>*/ (state, caml_ml_string_length(s), s)
+              (state, caml_ml_string_length(s), s)
             : _a__ /*<<format.ml:264:58>>*/ ;
-    /*<<format.ml:264:58>>*/ }
+   }
    function break_new_line(state, param, width){
     var after = param[3], offset = param[2], before = param[1];
-     /*<<format.ml:268:2>>*/  /*<<format.ml:268:2>>*/ format_string
-      /*<<format.ml:268:2>>*/ (state, before);
-     /*<<format.ml:269:2>>*/  /*<<format.ml:269:2>>*/ pp_output_newline
-      /*<<format.ml:269:2>>*/ (state);
+     /*<<format.ml:268:2>>*/ format_string(state, before);
+     /*<<format.ml:269:2>>*/ pp_output_newline(state);
     state[11] = 1;
     var
      indent = (state[6] - width | 0) + offset | 0,
      real_indent =
-        /*<<format.ml:273:20>>*/  /*<<format.ml:273:20>>*/ caml_call2
-         /*<<format.ml:273:20>>*/ (Stdlib_Int[10], state[8], indent);
+        /*<<format.ml:273: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:254:31>>*/ (state[21], n);
-     /*<<format.ml:276:2>>*/ return  /*<<format.ml:276:2>>*/ format_string
-             /*<<format.ml:276:2>>*/ (state, after) /*<<format.ml:277:27>>*/ ;
-    /*<<format.ml:277:27>>*/ }
+     /*<<format.ml:254:31>>*/ caml_call1(state[21], n);
+     /*<<format.ml:276:2>>*/ return format_string(state, after) /*<<format.ml:277:27>>*/ ;
+   }
    function break_same_line(state, param){
     var after = param[3], width = param[2], before = param[1];
-     /*<<format.ml:285:2>>*/  /*<<format.ml:285:2>>*/ format_string
-      /*<<format.ml:285:2>>*/ (state, before);
+     /*<<format.ml:285:2>>*/ format_string(state, before);
     state[9] = state[9] - width | 0;
-     /*<<format.ml:253:31>>*/  /*<<format.ml:253:31>>*/ caml_call1
-      /*<<format.ml:253:31>>*/ (state[20], width);
-     /*<<format.ml:287:2>>*/ return  /*<<format.ml:287:2>>*/ format_string
-             /*<<format.ml:287:2>>*/ (state, after) /*<<format.ml:288:27>>*/ ;
-    /*<<format.ml:288:27>>*/ }
+     /*<<format.ml:253:31>>*/ caml_call1(state[20], width);
+     /*<<format.ml:287:2>>*/ return format_string(state, after) /*<<format.ml:288:27>>*/ ;
+   }
    function format_pp_token(state, size$0, param){
      /*<<format.ml:320:20>>*/ if(typeof param === "number")
      switch(param){
        case 0:
         var
          match$3 =
-            /*<<format.ml:348:16>>*/  /*<<format.ml:348:16>>*/ caml_call1
-             /*<<format.ml:348:16>>*/ (Stdlib_Stack[8], state[3]);
-        if(! match$3)
-          /*<<format.ml:349:14>>*/ return /*<<format.ml:349:14>>*/ ;
+            /*<<format.ml:348:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
+        if(! match$3)  /*<<format.ml:349:14>>*/ return;
         var
          tabs = match$3[1][1],
          add_tab =
             /*<<format.ml:351:6>>*/ function(n, ls){
              /*<<format.ml:351:22>>*/ if(! ls)
-              /*<<format.ml:352:16>>*/ return [0, n, 0] /*<<format.ml:352:16>>*/ ;
+              /*<<format.ml:352: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:353:29>>*/ (n, x)
+             /*<<format.ml:353:29>>*/ return runtime.caml_lessthan(n, x)
                     ? [0, n, ls]
-                    : [0,
-                      x,
-                       /*<<format.ml:353:58>>*/ add_tab
-                        /*<<format.ml:353:58>>*/ (n, l)] /*<<format.ml:353:69>>*/ ;
-            /*<<format.ml:353:69>>*/ };
+                    : [0, x,  /*<<format.ml:353:58>>*/ add_tab(n, l)] /*<<format.ml:353:69>>*/ ;
+           };
         tabs[1] =
-          /*<<format.ml:354:14>>*/ add_tab
-           /*<<format.ml:354:14>>*/ (state[6] - state[9] | 0, tabs[1]);
+          /*<<format.ml:354:14>>*/ add_tab(state[6] - state[9] | 0, tabs[1]);
         return;
        case 1:
-         /*<<format.ml:339:4>>*/  /*<<format.ml:339:4>>*/ caml_call1
-          /*<<format.ml:339:4>>*/ (Stdlib_Stack[5], state[2]);
-         /*<<format.ml:339:4>>*/ return /*<<format.ml:339:4>>*/ ;
+         /*<<format.ml:339:4>>*/ caml_call1(Stdlib_Stack[5], state[2]);
+        return;
        case 2:
-         /*<<format.ml:345:4>>*/  /*<<format.ml:345:4>>*/ caml_call1
-          /*<<format.ml:345:4>>*/ (Stdlib_Stack[5], state[3]);
-         /*<<format.ml:345:4>>*/ return /*<<format.ml:345:4>>*/ ;
+         /*<<format.ml:345:4>>*/ caml_call1(Stdlib_Stack[5], state[3]);
+        return;
        case 3:
         var
          match$4 =
-            /*<<format.ml:378:16>>*/  /*<<format.ml:378:16>>*/ caml_call1
-             /*<<format.ml:378:16>>*/ (Stdlib_Stack[8], state[2]);
+            /*<<format.ml:378:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
         if(! match$4)
-          /*<<format.ml:379:14>>*/ return  /*<<format.ml:379:14>>*/ pp_output_newline
-                  /*<<format.ml:379:14>>*/ (state) /*<<format.ml:424:8>>*/ ;
+          /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:424:8>>*/ ;
         var width$0 = match$4[1][2];
-         /*<<format.ml:281:29>>*/ return  /*<<format.ml:281:29>>*/ break_new_line
-                 /*<<format.ml:281:29>>*/ (state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
+         /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
        case 4:
         var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
         if(! _a8_) return _a8_;
         var
          match$1 =
-            /*<<format.ml:306:8>>*/  /*<<format.ml:306:8>>*/ caml_call1
-             /*<<format.ml:306:8>>*/ (Stdlib_Queue[6], state[28]);
-        if(! match$1)
-          /*<<format.ml:307:12>>*/ return /*<<format.ml:307:12>>*/ ;
+            /*<<format.ml:306:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
+        if(! match$1)  /*<<format.ml:307: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;
@@ -32214,23 +26572,17 @@
        default:
         var
          match$5 =
-            /*<<format.ml:419:17>>*/  /*<<format.ml:419:17>>*/ caml_call1
-             /*<<format.ml:419:17>>*/ (Stdlib_Stack[5], state[5]);
-        if(! match$5)
-          /*<<format.ml:420:15>>*/ return /*<<format.ml:420:15>>*/ ;
+            /*<<format.ml:419:17>>*/ caml_call1(Stdlib_Stack[5], state[5]);
+        if(! match$5)  /*<<format.ml:420:15>>*/ return;
         var
          tag_name = match$5[1],
-         marker =
-            /*<<format.ml:422:20>>*/  /*<<format.ml:422:20>>*/ caml_call1
-             /*<<format.ml:422:20>>*/ (state[25], tag_name);
-         /*<<format.ml:423:7>>*/ return  /*<<format.ml:423:7>>*/ pp_output_string
-                 /*<<format.ml:423:7>>*/ (state, marker) /*<<format.ml:424:8>>*/ ;
+         marker =  /*<<format.ml:422:20>>*/ caml_call1(state[25], tag_name);
+         /*<<format.ml:423:7>>*/ return pp_output_string(state, marker) /*<<format.ml:424:8>>*/ ;
      }
     switch(param[0]){
       case 0:
        var s = param[1];
-        /*<<format.ml:323:4>>*/ return  /*<<format.ml:323:4>>*/ format_pp_text
-                /*<<format.ml:323:4>>*/ (state, size$0, s) /*<<format.ml:424:8>>*/ ;
+        /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s) /*<<format.ml:424:8>>*/ ;
       case 1:
        var
         breaks = param[2],
@@ -32238,39 +26590,34 @@
         off =  /*<<format.ml:388:4>>*/ breaks[2],
         before = breaks[1],
         match$6 =
-           /*<<format.ml:389:16>>*/  /*<<format.ml:389:16>>*/ caml_call1
-            /*<<format.ml:389:16>>*/ (Stdlib_Stack[8], state[2]);
-       if(! match$6)
-         /*<<format.ml:390:14>>*/ return /*<<format.ml:390:14>>*/ ;
+           /*<<format.ml:389:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
+       if(! match$6)  /*<<format.ml:390: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){
          case 0:
-           /*<<format.ml:409:19>>*/ return  /*<<format.ml:409:19>>*/ break_same_line
-                   /*<<format.ml:409:19>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:409:19>>*/ return break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          case 1:
-           /*<<format.ml:408:19>>*/ return  /*<<format.ml:408:19>>*/ break_new_line
-                   /*<<format.ml:408:19>>*/ (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:408:19>>*/ return break_new_line
+                  (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 2:
-           /*<<format.ml:406:20>>*/ return  /*<<format.ml:406:20>>*/ break_new_line
-                   /*<<format.ml:406:20>>*/ (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:406:20>>*/ return break_new_line
+                  (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 3:
           return state[9] < (size$0 + caml_ml_string_length(before) | 0)
                   ?  /*<<format.ml:395:13>>*/ break_new_line
-                     /*<<format.ml:395:13>>*/ (state, breaks, width$1)
-                  :  /*<<format.ml:396:13>>*/ break_same_line
-                     /*<<format.ml:396:13>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
+                    (state, breaks, width$1)
+                  :  /*<<format.ml:396:13>>*/ break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          case 4:
           return state[11]
-                  ?  /*<<format.ml:399:37>>*/ break_same_line
-                     /*<<format.ml:399:37>>*/ (state, fits)
+                  ?  /*<<format.ml:399:37>>*/ break_same_line(state, fits)
                   : state
                      [9]
                     < (size$0 + caml_ml_string_length(before) | 0)
                     ?  /*<<format.ml:401:15>>*/ break_new_line
-                       /*<<format.ml:401:15>>*/ (state, breaks, width$1)
+                      (state, breaks, width$1)
                     : ((state
                        [6]
                       - width$1
@@ -32279,12 +26626,10 @@
                       | 0)
                       < state[10]
                       ?  /*<<format.ml:404:13>>*/ break_new_line
-                         /*<<format.ml:404:13>>*/ (state, breaks, width$1)
-                      :  /*<<format.ml:405:13>>*/ break_same_line
-                         /*<<format.ml:405:13>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
+                        (state, breaks, width$1)
+                      :  /*<<format.ml:405:13>>*/ break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          default:
-           /*<<format.ml:407:19>>*/ return  /*<<format.ml:407:19>>*/ break_same_line
-                   /*<<format.ml:407:19>>*/ (state, fits) /*<<format.ml:424:8>>*/ ;
+           /*<<format.ml:407:19>>*/ return break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
        }
       case 2:
        var
@@ -32292,10 +26637,8 @@
         n = param[1],
         insertion_point = state[6] - state[9] | 0,
         match$8 =
-           /*<<format.ml:359:16>>*/  /*<<format.ml:359:16>>*/ caml_call1
-            /*<<format.ml:359:16>>*/ (Stdlib_Stack[8], state[3]);
-       if(! match$8)
-         /*<<format.ml:360:14>>*/ return /*<<format.ml:360:14>>*/ ;
+           /*<<format.ml:359:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
+       if(! match$8)  /*<<format.ml:360:14>>*/ return;
        var
         tabs$0 = match$8[1][1],
         match$9 =  /*<<format.ml:362:6>>*/ tabs$0[1];
@@ -32318,12 +26661,9 @@
        var offset = tab - insertion_point | 0;
         /*<<format.ml:372:6>>*/ return 0 <= offset
                ?  /*<<format.ml:373:33>>*/ break_same_line
-                  /*<<format.ml:373:33>>*/ (state,
-                  [0, cst$0, offset + n | 0, cst])
+                 (state, [0, cst$0, offset + n | 0, cst])
                :  /*<<format.ml:374:32>>*/ break_new_line
-                  /*<<format.ml:374:32>>*/ (state,
-                  [0, cst$2, tab + off$0 | 0, cst$1],
-                  state[6]) /*<<format.ml:424:8>>*/ ;
+                 (state, [0, cst$2, tab + off$0 | 0, cst$1], state[6]) /*<<format.ml:424:8>>*/ ;
       case 3:
        var
         ty = param[2],
@@ -32332,48 +26672,38 @@
        if(state[8] < insertion_point$0){
         var
          match =
-            /*<<format.ml:295:8>>*/  /*<<format.ml:295:8>>*/ caml_call1
-             /*<<format.ml:295:8>>*/ (Stdlib_Stack[8], state[2]);
+            /*<<format.ml:295: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>>*/  /*<<format.ml:281:29>>*/ break_new_line
-            /*<<format.ml:281:29>>*/ (state, _a_, width);
+           /*<<format.ml:281:29>>*/ break_new_line(state, _a_, width);
         }
         else
-          /*<<format.ml:296:12>>*/  /*<<format.ml:296:12>>*/ pp_output_newline
-           /*<<format.ml:296:12>>*/ (state);
+          /*<<format.ml:296:12>>*/ pp_output_newline(state);
        }
        var
         width$2 = state[9] - off$1 | 0,
         box_type$1 =
            /*<<format.ml:331:4>>*/ 1 === ty ? 1 : state[9] < size$0 ? ty : 5;
-        /*<<format.ml:336:4>>*/ return  /*<<format.ml:336:4>>*/ caml_call2
-                /*<<format.ml:336:4>>*/ (Stdlib_Stack[3],
-                [0, box_type$1, width$2],
-                state[2]) /*<<format.ml:424:8>>*/ ;
+        /*<<format.ml:336:4>>*/ return caml_call2
+               (Stdlib_Stack[3], [0, box_type$1, width$2], state[2]) /*<<format.ml:424:8>>*/ ;
       case 4:
        var tbox = param[1];
-        /*<<format.ml:342:4>>*/ return  /*<<format.ml:342:4>>*/ caml_call2
-                /*<<format.ml:342:4>>*/ (Stdlib_Stack[3], tbox, state[3]) /*<<format.ml:424:8>>*/ ;
+        /*<<format.ml:342:4>>*/ return caml_call2
+               (Stdlib_Stack[3], tbox, state[3]) /*<<format.ml:424:8>>*/ ;
       default:
        var
         tag_name$0 = param[1],
-        marker$0 =
-           /*<<format.ml:414:18>>*/  /*<<format.ml:414:18>>*/ caml_call1
-            /*<<format.ml:414:18>>*/ (state[24], tag_name$0);
-        /*<<format.ml:415:5>>*/  /*<<format.ml:415:5>>*/ pp_output_string
-         /*<<format.ml:415:5>>*/ (state, marker$0);
+        marker$0 =  /*<<format.ml:414:18>>*/ caml_call1(state[24], tag_name$0);
+        /*<<format.ml:415:5>>*/ pp_output_string(state, marker$0);
        return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]) /*<<format.ml:424:8>>*/ ;
     }
-    /*<<format.ml:424:8>>*/ }
+   }
    function advance_left(state){
      /*<<format.ml:431:2>>*/ for(;;){
      var
-      match =
-         /*<<format.ml:431:8>>*/  /*<<format.ml:431:8>>*/ caml_call1
-          /*<<format.ml:431:8>>*/ (Stdlib_Queue[9], state[28]);
-     if(! match)  /*<<format.ml:432:12>>*/ return 0 /*<<format.ml:432:12>>*/ ;
+      match =  /*<<format.ml:431:8>>*/ caml_call1(Stdlib_Queue[9], state[28]);
+     if(! match)  /*<<format.ml:432:12>>*/ return 0;
      var
       match$0 = match[1],
       size = match$0[1],
@@ -32383,48 +26713,38 @@
       _a6_ = 0 <= size ? 1 : 0,
       _a7_ =
          /*<<format.ml:435:7>>*/ _a6_ || (state[9] <= pending_count ? 1 : 0);
-     if(! _a7_)  /*<<format.ml:435:7>>*/ return _a7_ /*<<format.ml:435:7>>*/ ;
-      /*<<format.ml:436:6>>*/  /*<<format.ml:436:6>>*/ caml_call1
-       /*<<format.ml:436:6>>*/ (Stdlib_Queue[5], state[28]);
+     if(! _a7_) return _a7_;
+      /*<<format.ml:436:6>>*/ caml_call1(Stdlib_Queue[5], state[28]);
      var size$0 =  /*<<format.ml:437:20>>*/ 0 <= size ? size : pp_infinity;
-      /*<<format.ml:438:6>>*/  /*<<format.ml:438:6>>*/ format_pp_token
-       /*<<format.ml:438:6>>*/ (state, size$0, token);
+      /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
      state[12] = length + state[12] | 0;
     }
     /*<<format.ml:441:7>>*/ }
    function enqueue_advance(state, tok){
-     /*<<format.ml:445:32>>*/  /*<<format.ml:445:32>>*/ pp_enqueue
-      /*<<format.ml:445:32>>*/ (state, tok);
-     /*<<format.ml:445:32>>*/ return  /*<<format.ml:445:32>>*/ advance_left
-             /*<<format.ml:445:32>>*/ (state) /*<<format.ml:445:72>>*/ ;
-    /*<<format.ml:445:72>>*/ }
+     /*<<format.ml:445:32>>*/ pp_enqueue(state, tok);
+    return advance_left(state) /*<<format.ml:445:72>>*/ ;
+   }
    function enqueue_string_as(state, size, s){
      /*<<format.ml:450:2>>*/ return  /*<<format.ml:450:24>>*/ enqueue_advance
-             /*<<format.ml:450:24>>*/ (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
-    /*<<format.ml:450:78>>*/ }
+            (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
+   }
    function initialize_scan_stack(stack){
-     /*<<format.ml:462:2>>*/  /*<<format.ml:462:2>>*/ caml_call1
-      /*<<format.ml:462:2>>*/ (Stdlib_Stack[9], stack);
+     /*<<format.ml:462:2>>*/ caml_call1(Stdlib_Stack[9], stack);
     var queue_elem =  /*<<format.ml:463:19>>*/ [0, unknown, _b_, 0];
-     /*<<format.ml:464:2>>*/ return  /*<<format.ml:464:2>>*/ caml_call2
-             /*<<format.ml:464:2>>*/ (Stdlib_Stack[3],
-             [0, -1, queue_elem],
-             stack) /*<<format.ml:464:50>>*/ ;
-    /*<<format.ml:464:50>>*/ }
+     /*<<format.ml:464:2>>*/ return caml_call2
+            (Stdlib_Stack[3], [0, -1, queue_elem], stack) /*<<format.ml:464:50>>*/ ;
+   }
    function set_size(state, ty){
     var
-     match =
-        /*<<format.ml:476:8>>*/  /*<<format.ml:476:8>>*/ caml_call1
-         /*<<format.ml:476:8>>*/ (Stdlib_Stack[8], state[1]);
-    if(! match)  /*<<format.ml:477:12>>*/ return /*<<format.ml:477:12>>*/ ;
+     match =  /*<<format.ml:476:8>>*/ caml_call1(Stdlib_Stack[8], state[1]);
+    if(! match)  /*<<format.ml:477:12>>*/ return;
     var
      match$0 = match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
      size =  /*<<format.ml:479:4>>*/ queue_elem[1];
     if(left_total < state[12])
-      /*<<format.ml:461:26>>*/ return  /*<<format.ml:461:26>>*/ initialize_scan_stack
-              /*<<format.ml:461:26>>*/ (state[1]) /*<<format.ml:497:10>>*/ ;
+      /*<<format.ml:461:26>>*/ return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
     var _a5_ = queue_elem[2];
     if(typeof _a5_ !== "number")
      switch(_a5_[0]){
@@ -32432,56 +26752,46 @@
         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:493:10>>*/ (Stdlib_Stack[5], state[1]);
+          /*<<format.ml:493:10>>*/ caml_call1(Stdlib_Stack[5], state[1]);
         }
-         /*<<format.ml:493:10>>*/ return /*<<format.ml:493:10>>*/ ;
+        return;
        case 1:
        case 2:
         if(ty){
          var x = state[13] + size | 0;
          queue_elem[1] = x;
-          /*<<format.ml:488:10>>*/  /*<<format.ml:488:10>>*/ caml_call1
-           /*<<format.ml:488:10>>*/ (Stdlib_Stack[5], state[1]);
+          /*<<format.ml:488:10>>*/ caml_call1(Stdlib_Stack[5], state[1]);
         }
-         /*<<format.ml:488:10>>*/ return /*<<format.ml:488:10>>*/ ;
+        return;
      }
     /*<<format.ml:497:10>>*/ }
    function scan_push(state, b, token){
-     /*<<format.ml:503:2>>*/  /*<<format.ml:503:2>>*/ pp_enqueue
-      /*<<format.ml:503:2>>*/ (state, token);
-    if(b)
-      /*<<format.ml:504:12>>*/  /*<<format.ml:504:12>>*/ set_size
-       /*<<format.ml:504:12>>*/ (state, 1);
+     /*<<format.ml:503:2>>*/ pp_enqueue(state, token);
+    if(b)  /*<<format.ml:504:12>>*/ set_size(state, 1);
     var elem =  /*<<format.ml:505:13>>*/ [0, state[13], token];
-     /*<<format.ml:506:2>>*/ return  /*<<format.ml:506:2>>*/ caml_call2
-             /*<<format.ml:506:2>>*/ (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
-    /*<<format.ml:506:37>>*/ }
+     /*<<format.ml:506:2>>*/ return caml_call2
+            (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
+   }
    function pp_open_box_gen(state, indent, br_ty){
      /*<<format.ml:513:2>>*/ state[14] = state[14] + 1 | 0;
     if(state[14] < state[15]){
      var
       size = - state[13] | 0,
       elem =  /*<<format.ml:516:15>>*/ [0, size, [3, indent, br_ty], 0];
-      /*<<format.ml:517:4>>*/ return  /*<<format.ml:517:4>>*/ scan_push
-              /*<<format.ml:517:4>>*/ (state, 0, elem) /*<<format.ml:519:45>>*/ ;
+      /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem) /*<<format.ml:519:45>>*/ ;
     }
     var _a4_ = state[14] === state[15] ? 1 : 0;
     if(! _a4_) return _a4_;
     var s = state[16], x = caml_ml_string_length(s);
-     /*<<format.ml:454:2>>*/ return  /*<<format.ml:454:2>>*/ enqueue_string_as
-             /*<<format.ml:454:2>>*/ (state, x, s) /*<<format.ml:519:45>>*/ ;
-    /*<<format.ml:519:45>>*/ }
+     /*<<format.ml:454:2>>*/ return enqueue_string_as(state, x, s) /*<<format.ml:519:45>>*/ ;
+   }
    function pp_close_box(state, param){
     var _a2_ = 1 < state[14] ? 1 : 0;
     if(_a2_){
      if(state[14] < state[15]){
-       /*<<format.ml:531:6>>*/  /*<<format.ml:531:6>>*/ pp_enqueue
-        /*<<format.ml:531:6>>*/ (state, [0, zero, 1, 0]);
-       /*<<format.ml:532:6>>*/  /*<<format.ml:532:6>>*/ set_size
-        /*<<format.ml:532:6>>*/ (state, 1);
-       /*<<format.ml:532:27>>*/  /*<<format.ml:532:27>>*/ set_size
-        /*<<format.ml:532:27>>*/ (state, 0);
+       /*<<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);
      }
      state[14] = state[14] - 1 | 0;
      var _a3_ = 0;
@@ -32492,37 +26802,30 @@
     /*<<format.ml:535: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:542:4>>*/ (Stdlib_Stack[3], tag_name, state[4]);
-      /*<<format.ml:543:4>>*/  /*<<format.ml:543:4>>*/ caml_call1
-       /*<<format.ml:543:4>>*/ (state[26], tag_name);
+      /*<<format.ml:542:4>>*/ caml_call2(Stdlib_Stack[3], tag_name, state[4]);
+      /*<<format.ml:543:4>>*/ caml_call1(state[26], tag_name);
     }
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
     var token =  /*<<format.ml:546:16>>*/ [5, tag_name];
-     /*<<format.ml:547:21>>*/ return  /*<<format.ml:547:21>>*/ pp_enqueue
-             /*<<format.ml:547:21>>*/ (state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
-    /*<<format.ml:547:60>>*/ }
+     /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
+   }
    function pp_close_stag(state, param){
      /*<<format.ml:552:2>>*/ if(state[23])
-      /*<<format.ml:553:4>>*/  /*<<format.ml:553:4>>*/ pp_enqueue
-       /*<<format.ml:553:4>>*/ (state, [0, zero, 5, 0]);
+      /*<<format.ml:553:4>>*/ pp_enqueue(state, [0, zero, 5, 0]);
     var _aZ_ = state[22];
     if(_aZ_){
      var
-      match =
-         /*<<format.ml:555:10>>*/  /*<<format.ml:555:10>>*/ caml_call1
-          /*<<format.ml:555:10>>*/ (Stdlib_Stack[5], state[4]);
+      match =  /*<<format.ml:555: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:558:6>>*/ (state[27], tag_name) /*<<format.ml:558:39>>*/ ;
+       /*<<format.ml:558:6>>*/ return caml_call1(state[27], tag_name) /*<<format.ml:558:39>>*/ ;
      }
      var _a0_ = 0;
     }
     else
      var _a0_ = _aZ_;
-     /*<<format.ml:556:14>>*/ return _a0_ /*<<format.ml:556:14>>*/ ;
+     /*<<format.ml:556:14>>*/ return _a0_;
     /*<<format.ml:558:39>>*/ }
    function pp_set_print_tags(state, b){
      /*<<format.ml:560:32>>*/ state[22] = b;
@@ -32539,17 +26842,15 @@
      /*<<format.ml:563:32>>*/ return state[23];
     /*<<format.ml:563:50>>*/ }
    function pp_set_tags(state, b){
-     /*<<format.ml:565:2>>*/  /*<<format.ml:565:2>>*/ pp_set_print_tags
-      /*<<format.ml:565:2>>*/ (state, b);
-     /*<<format.ml:565:2>>*/ return  /*<<format.ml:565:2>>*/ pp_set_mark_tags
-             /*<<format.ml:565:2>>*/ (state, b) /*<<format.ml:565:53>>*/ ;
-    /*<<format.ml:565:53>>*/ }
+     /*<<format.ml:565:2>>*/ pp_set_print_tags(state, b);
+    return pp_set_mark_tags(state, b) /*<<format.ml:565:53>>*/ ;
+   }
    function pp_get_formatter_stag_function(state, param){
      /*<<format.ml:569:47>>*/ return [0,
             state[24],
             state[25],
             state[26],
-            state[27]] /*<<format.ml:569:47>>*/ ;
+            state[27]];
     /*<<format.ml:574:1>>*/ }
    function pp_set_formatter_stag_function(state, param){
     var pct = param[4], pot = param[3], mct = param[2], mot = param[1];
@@ -32563,145 +26864,106 @@
      /*<<format.ml:591:2>>*/ state[12] = 1;
     state[13] = 1;
     caml_call1(Stdlib_Queue[11], state[28]);
-     /*<<format.ml:592:2>>*/  /*<<format.ml:592:2>>*/ initialize_scan_stack
-      /*<<format.ml:592:2>>*/ (state[1]);
-     /*<<format.ml:593:2>>*/  /*<<format.ml:593:2>>*/ caml_call1
-      /*<<format.ml:593:2>>*/ (Stdlib_Stack[9], state[2]);
-     /*<<format.ml:594:2>>*/  /*<<format.ml:594:2>>*/ caml_call1
-      /*<<format.ml:594:2>>*/ (Stdlib_Stack[9], state[3]);
-     /*<<format.ml:595:2>>*/  /*<<format.ml:595:2>>*/ caml_call1
-      /*<<format.ml:595:2>>*/ (Stdlib_Stack[9], state[4]);
-     /*<<format.ml:596:2>>*/  /*<<format.ml:596:2>>*/ caml_call1
-      /*<<format.ml:596:2>>*/ (Stdlib_Stack[9], state[5]);
+     /*<<format.ml:592:2>>*/ initialize_scan_stack(state[1]);
+     /*<<format.ml:593:2>>*/ caml_call1(Stdlib_Stack[9], state[2]);
+     /*<<format.ml:594:2>>*/ caml_call1(Stdlib_Stack[9], state[3]);
+     /*<<format.ml:595:2>>*/ caml_call1(Stdlib_Stack[9], state[4]);
+     /*<<format.ml:596:2>>*/ caml_call1(Stdlib_Stack[9], state[5]);
     state[10] = 0;
     state[14] = 0;
     state[9] = state[6];
-     /*<<format.ml:523:28>>*/ return  /*<<format.ml:523:28>>*/ pp_open_box_gen
-             /*<<format.ml:523:28>>*/ (state, 0, 3) /*<<format.ml:600:23>>*/ ;
-    /*<<format.ml:600:23>>*/ }
+     /*<<format.ml:523:28>>*/ return pp_open_box_gen(state, 0, 3) /*<<format.ml:600:23>>*/ ;
+   }
    function pp_flush_queue(state, end_with_newline){
      /*<<format.ml:608:2>>*/  /*<<format.ml:603:13>>*/ caml_call2
-      /*<<format.ml:603:13>>*/ (Stdlib_Stack[13],
+     (Stdlib_Stack[13],
       function(param){
-        /*<<format.ml:603:23>>*/ return  /*<<format.ml:603:23>>*/ pp_close_stag
-                /*<<format.ml:603:23>>*/ (state, 0) /*<<format.ml:603:45>>*/ ;
-       /*<<format.ml:603:45>>*/ },
+        /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0) /*<<format.ml:603:45>>*/ ;
+      },
       state[4]);
      /*<<format.ml:610:4>>*/ for(;;){
      if(1 >= state[14]){
       state[13] = pp_infinity;
-       /*<<format.ml:613:2>>*/  /*<<format.ml:613:2>>*/ advance_left
-        /*<<format.ml:613:2>>*/ (state);
-      if(end_with_newline)
-        /*<<format.ml:614:27>>*/  /*<<format.ml:614:27>>*/ pp_output_newline
-         /*<<format.ml:614:27>>*/ (state);
-       /*<<format.ml:614:27>>*/ return  /*<<format.ml:614:27>>*/ pp_rinit
-               /*<<format.ml:614:27>>*/ (state) /*<<format.ml:615:16>>*/ ;
+       /*<<format.ml:613:2>>*/ advance_left(state);
+      if(end_with_newline)  /*<<format.ml:614:27>>*/ pp_output_newline(state);
+      return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
      }
-      /*<<format.ml:610:4>>*/  /*<<format.ml:610:4>>*/ pp_close_box
-       /*<<format.ml:610:4>>*/ (state, 0);
+      /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
     }
     /*<<format.ml:615:16>>*/ }
    function pp_print_as_size(state, size, s){
     var _aY_ = state[14] < state[15] ? 1 : 0;
     return _aY_
-            ?  /*<<format.ml:626:7>>*/ enqueue_string_as
-               /*<<format.ml:626:7>>*/ (state, size, s)
+            ?  /*<<format.ml:626:7>>*/ enqueue_string_as(state, size, s)
             : _aY_ /*<<format.ml:626:37>>*/ ;
-    /*<<format.ml:626:37>>*/ }
+   }
    function pp_print_as(state, isize, s){
-     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
-             /*<<format.ml:630:2>>*/ (state, isize, s) /*<<format.ml:630:46>>*/ ;
-    /*<<format.ml:630:46>>*/ }
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:630:46>>*/ ;
+   }
    function pp_print_string(state, s){
     var isize = caml_ml_string_length(s);
-     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
-             /*<<format.ml:630:2>>*/ (state, isize, s) /*<<format.ml:634:39>>*/ ;
-    /*<<format.ml:634:39>>*/ }
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:634:39>>*/ ;
+   }
    function pp_print_bytes(state, s){
     var
-     s$0 =
-        /*<<format.ml:637:37>>*/  /*<<format.ml:637:37>>*/ caml_call1
-         /*<<format.ml:637:37>>*/ (Stdlib_Bytes[6], s),
+     s$0 =  /*<<format.ml:637:37>>*/ caml_call1(Stdlib_Bytes[6], s),
      isize = runtime.caml_ml_bytes_length(s);
-     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
-             /*<<format.ml:630:2>>*/ (state, isize, s$0) /*<<format.ml:637:56>>*/ ;
-    /*<<format.ml:637:56>>*/ }
+     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s$0) /*<<format.ml:637:56>>*/ ;
+   }
    function pp_print_int(state, i){
      /*<<format.ml:640:27>>*/ return  /*<<format.ml:640:49>>*/ pp_print_string
-             /*<<format.ml:640:49>>*/ (state,
-              /*<<format.ml:640:49>>*/ caml_call1
-               /*<<format.ml:640:49>>*/ (Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
-    /*<<format.ml:640:66>>*/ }
+            (state, caml_call1(Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
+   }
    function pp_print_float(state, f){
      /*<<format.ml:643:29>>*/ return  /*<<format.ml:643:51>>*/ pp_print_string
-             /*<<format.ml:643:51>>*/ (state,
-              /*<<format.ml:643:51>>*/ caml_call1
-               /*<<format.ml:643:51>>*/ (Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
-    /*<<format.ml:643:70>>*/ }
+            (state, caml_call1(Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
+   }
    function pp_print_bool(state, b){
      /*<<format.ml:646:28>>*/ return  /*<<format.ml:646:50>>*/ pp_print_string
-             /*<<format.ml:646:50>>*/ (state,
-              /*<<format.ml:646:50>>*/ caml_call1
-               /*<<format.ml:646:50>>*/ (Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
-    /*<<format.ml:646:68>>*/ }
+            (state, caml_call1(Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
+   }
    function pp_print_char(state, c){
-    var
-     s =
-        /*<<format.ml:650:22>>*/  /*<<format.ml:650:22>>*/ caml_call2
-         /*<<format.ml:650:22>>*/ (Stdlib_String[1], 1, c);
-     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
-             /*<<format.ml:630:2>>*/ (state, 1, s) /*<<format.ml:650:39>>*/ ;
-    /*<<format.ml:650:39>>*/ }
-   function pp_print_nothing(state, param){
-     /*<<format.ml:652:33>>*/ return 0 /*<<format.ml:652:33>>*/ ;
+    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>>*/ }
    function pp_open_hbox(state, param){
-     /*<<format.ml:656:28>>*/ return  /*<<format.ml:656:28>>*/ pp_open_box_gen
-             /*<<format.ml:656:28>>*/ (state, 0, 0) /*<<format.ml:656:59>>*/ ;
-    /*<<format.ml:656:59>>*/ }
+     /*<<format.ml:656:28>>*/ return pp_open_box_gen(state, 0, 0) /*<<format.ml:656:59>>*/ ;
+   }
    function pp_open_vbox(state, indent){
-     /*<<format.ml:657:32>>*/ return  /*<<format.ml:657:32>>*/ pp_open_box_gen
-             /*<<format.ml:657:32>>*/ (state, indent, 1) /*<<format.ml:657:68>>*/ ;
-    /*<<format.ml:657:68>>*/ }
+     /*<<format.ml:657:32>>*/ return pp_open_box_gen(state, indent, 1) /*<<format.ml:657:68>>*/ ;
+   }
    function pp_open_hvbox(state, indent){
-     /*<<format.ml:659:33>>*/ return  /*<<format.ml:659:33>>*/ pp_open_box_gen
-             /*<<format.ml:659:33>>*/ (state, indent, 2) /*<<format.ml:659:70>>*/ ;
-    /*<<format.ml:659:70>>*/ }
+     /*<<format.ml:659:33>>*/ return pp_open_box_gen(state, indent, 2) /*<<format.ml:659:70>>*/ ;
+   }
    function pp_open_hovbox(state, indent){
-     /*<<format.ml:660:34>>*/ return  /*<<format.ml:660:34>>*/ pp_open_box_gen
-             /*<<format.ml:660:34>>*/ (state, indent, 3) /*<<format.ml:660:72>>*/ ;
-    /*<<format.ml:660:72>>*/ }
+     /*<<format.ml:660:34>>*/ return pp_open_box_gen(state, indent, 3) /*<<format.ml:660:72>>*/ ;
+   }
    function pp_open_box(state, indent){
-     /*<<format.ml:661:31>>*/ return  /*<<format.ml:661:31>>*/ pp_open_box_gen
-             /*<<format.ml:661:31>>*/ (state, indent, 4) /*<<format.ml:661:66>>*/ ;
-    /*<<format.ml:661:66>>*/ }
+     /*<<format.ml:661:31>>*/ return pp_open_box_gen(state, indent, 4) /*<<format.ml:661:66>>*/ ;
+   }
    function pp_print_newline(state, param){
-     /*<<format.ml:673:2>>*/  /*<<format.ml:673:2>>*/ pp_flush_queue
-      /*<<format.ml:673:2>>*/ (state, 1);
-     /*<<format.ml:673:2>>*/ return  /*<<format.ml:673:2>>*/ caml_call1
-             /*<<format.ml:673:2>>*/ (state[18], 0) /*<<format.ml:673:68>>*/ ;
-    /*<<format.ml:673:68>>*/ }
+     /*<<format.ml:673:2>>*/ pp_flush_queue(state, 1);
+    return caml_call1(state[18], 0) /*<<format.ml:673:68>>*/ ;
+   }
    function pp_print_flush(state, param){
-     /*<<format.ml:675:2>>*/  /*<<format.ml:675:2>>*/ pp_flush_queue
-      /*<<format.ml:675:2>>*/ (state, 0);
-     /*<<format.ml:675:2>>*/ return  /*<<format.ml:675:2>>*/ caml_call1
-             /*<<format.ml:675:2>>*/ (state[18], 0) /*<<format.ml:675:69>>*/ ;
-    /*<<format.ml:675:69>>*/ }
+     /*<<format.ml:675:2>>*/ pp_flush_queue(state, 0);
+    return caml_call1(state[18], 0) /*<<format.ml:675:69>>*/ ;
+   }
    function pp_force_newline(state, param){
     var _aX_ = state[14] < state[15] ? 1 : 0;
     return _aX_
             ?  /*<<format.ml:681:26>>*/ enqueue_advance
-               /*<<format.ml:681:26>>*/ (state, [0, zero, 3, 0])
+              (state, [0, zero, 3, 0])
             : _aX_ /*<<format.ml:681:78>>*/ ;
-    /*<<format.ml:681:78>>*/ }
+   }
    function pp_print_if_newline(state, param){
     var _aW_ = state[14] < state[15] ? 1 : 0;
     return _aW_
-            ?  /*<<format.ml:688:6>>*/ enqueue_advance
-               /*<<format.ml:688:6>>*/ (state, [0, zero, 4, 0])
+            ?  /*<<format.ml:688:6>>*/ enqueue_advance(state, [0, zero, 4, 0])
             : _aW_ /*<<format.ml:688:61>>*/ ;
-    /*<<format.ml:688:61>>*/ }
+   }
    function pp_print_custom_break(state, fits, breaks){
     var
      after = fits[3],
@@ -32714,44 +26976,35 @@
      token =  /*<<format.ml:697:25>>*/ [1, fits, breaks],
      length =
        (caml_ml_string_length(before) + width | 0)
-       +
-         /*<<format.ml:698:4>>*/ caml_ml_string_length
-          /*<<format.ml:698:4>>*/ (after)
+       +  /*<<format.ml:698:4>>*/ caml_ml_string_length(after)
        | 0,
      elem =  /*<<format.ml:699:15>>*/ [0, size, token, length];
-     /*<<format.ml:700:4>>*/ return  /*<<format.ml:700:4>>*/ scan_push
-             /*<<format.ml:700:4>>*/ (state, 1, elem) /*<<format.ml:700:29>>*/ ;
-    /*<<format.ml:700:29>>*/ }
+     /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:700:29>>*/ ;
+   }
    function pp_print_break(state, width, offset){
      /*<<format.ml:707:2>>*/ return  /*<<format.ml:708:34>>*/ pp_print_custom_break
-             /*<<format.ml:708:34>>*/ (state,
-             [0, cst$6, width, cst$5],
-             [0, cst$4, offset, cst$3]) /*<<format.ml:708:50>>*/ ;
-    /*<<format.ml:708:50>>*/ }
+            (state, [0, cst$6, width, cst$5], [0, cst$4, offset, cst$3]) /*<<format.ml:708:50>>*/ ;
+   }
    function pp_print_space(state, param){
-     /*<<format.ml:716:30>>*/ return  /*<<format.ml:716:30>>*/ pp_print_break
-             /*<<format.ml:716:30>>*/ (state, 1, 0) /*<<format.ml:716:54>>*/ ;
-    /*<<format.ml:716:54>>*/ }
+     /*<<format.ml:716:30>>*/ return pp_print_break(state, 1, 0) /*<<format.ml:716:54>>*/ ;
+   }
    function pp_print_cut(state, param){
-     /*<<format.ml:717:28>>*/ return  /*<<format.ml:717:28>>*/ pp_print_break
-             /*<<format.ml:717:28>>*/ (state, 0, 0) /*<<format.ml:717:52>>*/ ;
-    /*<<format.ml:717:52>>*/ }
+     /*<<format.ml:717:28>>*/ return pp_print_break(state, 0, 0) /*<<format.ml:717:52>>*/ ;
+   }
    function pp_open_tbox(state, param){
      /*<<format.ml:722:2>>*/ state[14] = state[14] + 1 | 0;
     var _aU_ = state[14] < state[15] ? 1 : 0;
     if(! _aU_) return _aU_;
     var elem =  /*<<format.ml:725:15>>*/ [0, zero, [4, [0, [0, 0]]], 0];
-     /*<<format.ml:726:4>>*/ return  /*<<format.ml:726:4>>*/ enqueue_advance
-             /*<<format.ml:726:4>>*/ (state, elem) /*<<format.ml:726:30>>*/ ;
-    /*<<format.ml:726:30>>*/ }
+     /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:726:30>>*/ ;
+   }
    function pp_close_tbox(state, param){
     var _aR_ = 1 < state[14] ? 1 : 0;
     if(_aR_){
      var _aS_ = state[14] < state[15] ? 1 : 0;
      if(_aS_){
       var elem =  /*<<format.ml:734:16>>*/ [0, zero, 2, 0];
-       /*<<format.ml:735:5>>*/  /*<<format.ml:735:5>>*/ enqueue_advance
-        /*<<format.ml:735:5>>*/ (state, elem);
+       /*<<format.ml:735:5>>*/ enqueue_advance(state, elem);
       state[14] = state[14] - 1 | 0;
       var _aT_ = 0;
      }
@@ -32768,20 +27021,17 @@
     var
      size = - state[13] | 0,
      elem =  /*<<format.ml:744:15>>*/ [0, size, [2, width, offset], width];
-     /*<<format.ml:745:4>>*/ return  /*<<format.ml:745:4>>*/ scan_push
-             /*<<format.ml:745:4>>*/ (state, 1, elem) /*<<format.ml:745:29>>*/ ;
-    /*<<format.ml:745:29>>*/ }
+     /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:745:29>>*/ ;
+   }
    function pp_print_tab(state, param){
-     /*<<format.ml:748:28>>*/ return  /*<<format.ml:748:28>>*/ pp_print_tbreak
-             /*<<format.ml:748:28>>*/ (state, 0, 0) /*<<format.ml:748:53>>*/ ;
-    /*<<format.ml:748:53>>*/ }
+     /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0) /*<<format.ml:748:53>>*/ ;
+   }
    function pp_set_tab(state, param){
     var _aP_ = state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
     var elem =  /*<<format.ml:752:15>>*/ [0, zero, 0, 0];
-     /*<<format.ml:753:4>>*/ return  /*<<format.ml:753:4>>*/ enqueue_advance
-             /*<<format.ml:753:4>>*/ (state, elem) /*<<format.ml:753:30>>*/ ;
-    /*<<format.ml:753:30>>*/ }
+     /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:753:30>>*/ ;
+   }
    function pp_set_max_boxes(state, n){
     var _aN_ = 1 < n ? 1 : 0, _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
     return _aO_;
@@ -32801,116 +27051,85 @@
     /*<<format.ml:772:53>>*/ }
    function pp_limit(n){
      /*<<format.ml:777:2>>*/ return n < 1000000010 ? n : 1000000009 /*<<format.ml:777:49>>*/ ;
-    /*<<format.ml:777:49>>*/ }
+   }
    function pp_set_max_indent(state, n$0){
     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_;
-    var
-     n =
-        /*<<format.ml:783:12>>*/  /*<<format.ml:783:12>>*/ pp_limit
-         /*<<format.ml:783:12>>*/ (n$1);
+    var n =  /*<<format.ml:783:12>>*/ pp_limit(n$1);
     state[7] = n;
     state[8] = state[6] - state[7] | 0;
-     /*<<format.ml:786:4>>*/ return  /*<<format.ml:786:4>>*/ pp_rinit
-             /*<<format.ml:786:4>>*/ (state) /*<<format.ml:794:53>>*/ ;
-    /*<<format.ml:794:53>>*/ }
+     /*<<format.ml:786:4>>*/ return pp_rinit(state) /*<<format.ml:794:53>>*/ ;
+   }
    function pp_get_max_indent(state, param){
      /*<<format.ml:797:33>>*/ return state[8];
     /*<<format.ml:797:52>>*/ }
    function pp_set_margin(state, n){
     var _aJ_ = 1 <= n ? 1 : 0;
     if(! _aJ_) return _aJ_;
-    var
-     n$0 =
-        /*<<format.ml:801:12>>*/  /*<<format.ml:801:12>>*/ pp_limit
-         /*<<format.ml:801:12>>*/ (n);
+    var n$0 =  /*<<format.ml:801:12>>*/ pp_limit(n);
     state[6] = n$0;
     if(state[8] <= state[6])
      var new_max_indent = state[8];
     else
      var
       _aK_ =
-         /*<<format.ml:810:15>>*/  /*<<format.ml:810:15>>*/ caml_call2
-          /*<<format.ml:810:15>>*/ (Stdlib_Int[11],
-          state[6] - state[7] | 0,
-          state[6] / 2 | 0),
+         /*<<format.ml:810:15>>*/ caml_call2
+         (Stdlib_Int[11], state[6] - state[7] | 0, state[6] / 2 | 0),
       new_max_indent =
-         /*<<format.ml:810:7>>*/ caml_call2
-          /*<<format.ml:810:7>>*/ (Stdlib_Int[11], _aK_, 1);
-     /*<<format.ml:813:4>>*/ return  /*<<format.ml:813:4>>*/ pp_set_max_indent
-             /*<<format.ml:813:4>>*/ (state, new_max_indent) /*<<format.ml:813:42>>*/ ;
-    /*<<format.ml:813:42>>*/ }
+         /*<<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>>*/ ;
+   }
    function validate_geometry(param){
     var margin = param[2], max_indent = param[1];
      /*<<format.ml:820:2>>*/ return 2 <= max_indent
             ? margin <= max_indent ? _c_ : 1000000010 <= margin ? _d_ : _e_
             : _f_ /*<<format.ml:826:12>>*/ ;
-    /*<<format.ml:826:12>>*/ }
+   }
    function check_geometry(geometry){
      /*<<format.ml:829:2>>*/ return 0
-            ===
-              /*<<format.ml:829:8>>*/ validate_geometry
-                /*<<format.ml:829:8>>*/ (geometry)
-              [0]
+            ===  /*<<format.ml:829:8>>*/ validate_geometry(geometry)[0]
             ? 1
             : 0 /*<<format.ml:831:20>>*/ ;
-    /*<<format.ml:831:20>>*/ }
+   }
    function pp_get_margin(state, param){
      /*<<format.ml:833:29>>*/ return state[6];
     /*<<format.ml:833:44>>*/ }
    function pp_set_full_geometry(state, param){
     var margin = param[2], max_indent = param[1];
-     /*<<format.ml:836:2>>*/  /*<<format.ml:836:2>>*/ pp_set_margin
-      /*<<format.ml:836:2>>*/ (state, margin);
-     /*<<format.ml:837:2>>*/  /*<<format.ml:837:2>>*/ pp_set_max_indent
-      /*<<format.ml:837:2>>*/ (state, max_indent);
-     /*<<format.ml:837:2>>*/ return 0 /*<<format.ml:837:2>>*/ ;
+     /*<<format.ml:836:2>>*/ pp_set_margin(state, margin);
+     /*<<format.ml:837:2>>*/ pp_set_max_indent(state, max_indent);
+    return 0;
     /*<<format.ml:838:4>>*/ }
    function pp_set_geometry(state, max_indent, margin){
     var
      geometry =  /*<<format.ml:841:17>>*/ [0, max_indent, margin],
-     match =
-        /*<<format.ml:842:8>>*/  /*<<format.ml:842:8>>*/ validate_geometry
-         /*<<format.ml:842:8>>*/ (geometry);
+     match =  /*<<format.ml:842:8>>*/ validate_geometry(geometry);
     if(0 === match[0])
-      /*<<format.ml:846:4>>*/ return  /*<<format.ml:846:4>>*/ pp_set_full_geometry
-              /*<<format.ml:846:4>>*/ (state, geometry) /*<<format.ml:846:39>>*/ ;
+      /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry) /*<<format.ml:846:39>>*/ ;
     var
      msg = match[1],
      _aI_ =
-        /*<<format.ml:844:28>>*/  /*<<format.ml:844:28>>*/ caml_call2
-         /*<<format.ml:844:28>>*/ (Stdlib[28],
-         cst_Format_pp_set_geometry,
-         msg);
-     /*<<format.ml:844:4>>*/ throw  /*<<format.ml:844:4>>*/ caml_maybe_attach_backtrace
-            /*<<format.ml:844:4>>*/ ([0, Stdlib[6], _aI_], 1);
+        /*<<format.ml:844:28>>*/ caml_call2
+        (Stdlib[28], cst_Format_pp_set_geometry, msg);
+     /*<<format.ml:844:4>>*/ throw caml_maybe_attach_backtrace
+           ([0, Stdlib[6], _aI_], 1);
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
     var geometry =  /*<<format.ml:849:17>>*/ [0, max_indent, margin];
-    return 0
-            ===
-              /*<<format.ml:850:8>>*/ validate_geometry
-                /*<<format.ml:850:8>>*/ (geometry)
-              [0]
-            ?  /*<<format.ml:854:4>>*/ pp_set_full_geometry
-               /*<<format.ml:854:4>>*/ (state, geometry)
+    return 0 ===  /*<<format.ml:850:8>>*/ validate_geometry(geometry)[0]
+            ?  /*<<format.ml:854:4>>*/ pp_set_full_geometry(state, geometry)
             : 0 /*<<format.ml:854:39>>*/ ;
-    /*<<format.ml:854:39>>*/ }
+   }
    function pp_get_geometry(state, param){
-     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]] /*<<format.ml:857:2>>*/ ;
+     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]];
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
-    var
-     geometry =
-        /*<<format.ml:860:17>>*/  /*<<format.ml:860:17>>*/ pp_get_geometry
-         /*<<format.ml:860:17>>*/ (state, 0);
-     /*<<format.ml:861:29>>*/ return  /*<<format.ml:861:29>>*/ pp_set_full_geometry
-             /*<<format.ml:861:29>>*/ (state,
-              /*<<format.ml:861:29>>*/ caml_call1
-               /*<<format.ml:861:29>>*/ (update, geometry)) /*<<format.ml:861:46>>*/ ;
-    /*<<format.ml:861:46>>*/ }
+    var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
+     /*<<format.ml:861:29>>*/ return pp_set_full_geometry
+            (state, caml_call1(update, geometry)) /*<<format.ml:861: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;
@@ -32926,7 +27145,7 @@
             state[18],
             state[19],
             state[20],
-            state[21]] /*<<format.ml:877:46>>*/ ;
+            state[21]];
     /*<<format.ml:883:1>>*/ }
    function pp_set_formatter_output_functi(state, f, g){
      /*<<format.ml:888:2>>*/ state[17] = f;
@@ -32934,16 +27153,14 @@
     return 0;
     /*<<format.ml:888:51>>*/ }
    function pp_get_formatter_output_functi(state, param){
-     /*<<format.ml:891:2>>*/ return [0, state[17], state[18]] /*<<format.ml:891:2>>*/ ;
+     /*<<format.ml:891:2>>*/ return [0, state[17], state[18]];
     /*<<format.ml:891:43>>*/ }
    function display_newline(state, param){
-     /*<<format.ml:895:31>>*/ return  /*<<format.ml:895:31>>*/ caml_call3
-             /*<<format.ml:895:31>>*/ (state[17], cst$7, 0, 1) /*<<format.ml:895:60>>*/ ;
-    /*<<format.ml:895:60>>*/ }
+     /*<<format.ml:895:31>>*/ return caml_call3(state[17], cst$7, 0, 1) /*<<format.ml:895:60>>*/ ;
+   }
    var
     blank_line =
-       /*<<format.ml:898:17>>*/  /*<<format.ml:898:17>>*/ caml_call2
-        /*<<format.ml:898:17>>*/ (Stdlib_String[1], 80, 32),
+       /*<<format.ml:898:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
     _g_ = [3, 0, 3];
    function display_blanks(state, n){
     var n$0 = n;
@@ -32951,85 +27168,63 @@
      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:901:18>>*/ (state[17], blank_line, 0, n$0) /*<<format.ml:905:5>>*/ ;
-      /*<<format.ml:903:4>>*/  /*<<format.ml:903:4>>*/ caml_call3
-       /*<<format.ml:903:4>>*/ (state[17], blank_line, 0, 80);
-     var n$1 =  /*<<format.ml:903:4>>*/ n$0 - 80 | 0;
+       /*<<format.ml:901:18>>*/ return caml_call3
+              (state[17], blank_line, 0, n$0) /*<<format.ml:905:5>>*/ ;
+      /*<<format.ml:903:4>>*/ caml_call3(state[17], blank_line, 0, 80);
+     var n$1 = n$0 - 80 | 0;
      n$0 = n$1;
     }
     /*<<format.ml:905:5>>*/ }
    function pp_set_formatter_out_channel(state, oc){
      /*<<format.ml:914:2>>*/ state[17] =
-      /*<<format.ml:914:25>>*/ caml_call1
-       /*<<format.ml:914:25>>*/ (Stdlib[69], oc);
+      /*<<format.ml:914:25>>*/ caml_call1(Stdlib[69], oc);
     state[18] =
      function(param){
        /*<<format.ml:915:35>>*/ return  /*<<format.ml:915:2>>*/ caml_call1
-               /*<<format.ml:915:2>>*/ (Stdlib[63], oc) /*<<format.ml:915:43>>*/ ;
-      /*<<format.ml:915:43>>*/ };
+              (Stdlib[63], oc) /*<<format.ml:915: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_);};
+    state[20] = function(_aF_){return display_blanks(state, _aF_);};
+    state[21] = function(_aE_){return display_blanks(state, _aE_);};
     return 0;
     /*<<format.ml:918: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:928:9>>*/ ;
+      /*<<format.ml:928:9>>*/ return cst$10;
     var
      s = param[2],
-     _aD_ =
-        /*<<format.ml:927:26>>*/  /*<<format.ml:927:26>>*/ caml_call2
-         /*<<format.ml:927:26>>*/ (Stdlib[28], s, cst$8);
-     /*<<format.ml:927:26>>*/ return  /*<<format.ml:927:26>>*/ caml_call2
-             /*<<format.ml:927:26>>*/ (Stdlib[28], cst$9, _aD_) /*<<format.ml:928:11>>*/ ;
-    /*<<format.ml:928:11>>*/ }
+     _aD_ =  /*<<format.ml:927:26>>*/ caml_call2(Stdlib[28], s, cst$8);
+    return caml_call2(Stdlib[28], cst$9, _aD_) /*<<format.ml:928: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:931:9>>*/ ;
+      /*<<format.ml:931:9>>*/ return cst$13;
     var
      s = param[2],
-     _aC_ =
-        /*<<format.ml:930:27>>*/  /*<<format.ml:930:27>>*/ caml_call2
-         /*<<format.ml:930:27>>*/ (Stdlib[28], s, cst$11);
-     /*<<format.ml:930:27>>*/ return  /*<<format.ml:930:27>>*/ caml_call2
-             /*<<format.ml:930:27>>*/ (Stdlib[28], cst$12, _aC_) /*<<format.ml:931:11>>*/ ;
-    /*<<format.ml:931:11>>*/ }
+     _aC_ =  /*<<format.ml:930:27>>*/ caml_call2(Stdlib[28], s, cst$11);
+    return caml_call2(Stdlib[28], cst$12, _aC_) /*<<format.ml:931:11>>*/ ;
+   }
    function default_pp_print_open_tag(_aB_){ /*<<?>>*/ return 0;}
-   function default_pp_print_close_tag(_aA_){ /*<<?>>*/ return 0;}
+   function default_pp_print_close_tag(_aA_){return 0;}
    function pp_make_formatter(f, g, h, i, j){
     var
-     pp_queue =
-        /*<<format.ml:940:17>>*/  /*<<format.ml:940:17>>*/ caml_call1
-         /*<<format.ml:940:17>>*/ (Stdlib_Queue[2], 0),
+     pp_queue =  /*<<format.ml:940:17>>*/ caml_call1(Stdlib_Queue[2], 0),
      sys_tok =  /*<<format.ml:942:4>>*/ [0, unknown, _g_, 0];
-     /*<<format.ml:943:2>>*/  /*<<format.ml:943:2>>*/ caml_call2
-      /*<<format.ml:943:2>>*/ (Stdlib_Queue[3], sys_tok, pp_queue);
-    var
-     scan_stack =
-        /*<<format.ml:944:19>>*/  /*<<format.ml:944:19>>*/ caml_call1
-         /*<<format.ml:944:19>>*/ (Stdlib_Stack[2], 0);
-     /*<<format.ml:945:2>>*/  /*<<format.ml:945:2>>*/ initialize_scan_stack
-      /*<<format.ml:945:2>>*/ (scan_stack);
-     /*<<format.ml:946:2>>*/  /*<<format.ml:946:2>>*/ caml_call2
-      /*<<format.ml:946:2>>*/ (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
-    var
-     pp_margin =  /*<<format.ml:946:2>>*/ 78,
+     /*<<format.ml:943:2>>*/ caml_call2(Stdlib_Queue[3], sys_tok, pp_queue);
+    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>>*/ caml_call2
+     (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
+    var
+     pp_margin = 78,
      _aw_ = Stdlib[19],
-     _ax_ =
-        /*<<format.ml:954:20>>*/  /*<<format.ml:954:20>>*/ caml_call1
-         /*<<format.ml:954:20>>*/ (Stdlib_Stack[2], 0),
-     _ay_ =
-        /*<<format.ml:953:19>>*/  /*<<format.ml:953:19>>*/ caml_call1
-         /*<<format.ml:953:19>>*/ (Stdlib_Stack[2], 0),
-     _az_ =
-        /*<<format.ml:952:20>>*/  /*<<format.ml:952:20>>*/ caml_call1
-         /*<<format.ml:952:20>>*/ (Stdlib_Stack[2], 0);
+     _ax_ =  /*<<format.ml:954:20>>*/ caml_call1(Stdlib_Stack[2], 0),
+     _ay_ =  /*<<format.ml:953:19>>*/ caml_call1(Stdlib_Stack[2], 0),
+     _az_ =  /*<<format.ml:952:20>>*/ caml_call1(Stdlib_Stack[2], 0);
      /*<<format.ml:949:2>>*/ return [0,
             scan_stack,
-             /*<<format.ml:951:22>>*/ caml_call1
-              /*<<format.ml:951:22>>*/ (Stdlib_Stack[2], 0),
+             /*<<format.ml:951:22>>*/ caml_call1(Stdlib_Stack[2], 0),
             _az_,
             _ay_,
             _ax_,
@@ -33059,273 +27254,220 @@
    }
    function formatter_of_out_functions(out_funs){
      /*<<format.ml:983:2>>*/ return  /*<<format.ml:938:22>>*/ pp_make_formatter
-             /*<<format.ml:938:22>>*/ (out_funs[1],
-             out_funs[2],
-             out_funs[3],
-             out_funs[4],
-             out_funs[5]) /*<<format.ml:988:23>>*/ ;
-    /*<<format.ml:988:23>>*/ }
+            (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]) /*<<format.ml:988:23>>*/ ;
+   }
    function make_formatter(output, flush){
     var
      ppf =
-        /*<<format.ml:994:12>>*/  /*<<format.ml:994:12>>*/ pp_make_formatter
-         /*<<format.ml:994:12>>*/ (output,
+        /*<<format.ml:994:12>>*/ pp_make_formatter
+        (output,
          flush,
          function(_av_){ /*<<?>>*/ return 0;},
-         function(_au_){ /*<<?>>*/ return 0;},
-         function(_at_){ /*<<?>>*/ return 0;});
-    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:2>>*/ ;
+         function(_au_){return 0;},
+         function(_at_){return 0;});
+    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>>*/ }
    function formatter_of_out_channel(oc){
      /*<<format.ml:1003:2>>*/ return  /*<<format.ml:1003:39>>*/ make_formatter
-             /*<<format.ml:1003:39>>*/ ( /*<<format.ml:1003:17>>*/ caml_call1
-               /*<<format.ml:1003:17>>*/ (Stdlib[69], oc),
+            ( /*<<format.ml:1003:17>>*/ caml_call1(Stdlib[69], oc),
              function(param){
                /*<<format.ml:1003:50>>*/ return  /*<<format.ml:1003:2>>*/ caml_call1
-                       /*<<format.ml:1003:2>>*/ (Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
-              /*<<format.ml:1003:58>>*/ }) /*<<format.ml:1003:59>>*/ ;
-    /*<<format.ml:1003:59>>*/ }
+                      (Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
+             }) /*<<format.ml:1003:59>>*/ ;
+   }
    function formatter_of_buffer(b){
      /*<<format.ml:1008:2>>*/ return  /*<<format.ml:1008:42>>*/ make_formatter
-             /*<<format.ml:1008:42>>*/ ( /*<<format.ml:1008:17>>*/ caml_call1
-               /*<<format.ml:1008:17>>*/ (Stdlib_Buffer[18], b),
+            ( /*<<format.ml:1008:17>>*/ caml_call1(Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
-    /*<<format.ml:1008:48>>*/ }
+   }
    var pp_buffer_size =  /*<<format.ml:1007:24>>*/ 512;
    function pp_make_buffer(param){
      /*<<format.ml:1015:24>>*/ return  /*<<format.ml:1007:24>>*/ caml_call1
-             /*<<format.ml:1007:24>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
-    /*<<format.ml:1015:52>>*/ }
+            (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
+   }
    var
-    stdbuf =
-       /*<<format.ml:1018:13>>*/  /*<<format.ml:1018:13>>*/ pp_make_buffer
-        /*<<format.ml:1018:13>>*/ (0),
+    stdbuf =  /*<<format.ml:1018:13>>*/ pp_make_buffer(0),
     std_formatter =
-       /*<<format.ml:1022:20>>*/  /*<<format.ml:1022:20>>*/ formatter_of_out_channel
-        /*<<format.ml:1022:20>>*/ (Stdlib[39]),
+       /*<<format.ml:1022:20>>*/ formatter_of_out_channel(Stdlib[39]),
     err_formatter =
-       /*<<format.ml:1023:20>>*/  /*<<format.ml:1023:20>>*/ formatter_of_out_channel
-        /*<<format.ml:1023:20>>*/ (Stdlib[40]),
-    str_formatter =
-       /*<<format.ml:1024:20>>*/  /*<<format.ml:1024:20>>*/ formatter_of_buffer
-        /*<<format.ml:1024:20>>*/ (stdbuf),
+       /*<<format.ml:1023:20>>*/ formatter_of_out_channel(Stdlib[40]),
+    str_formatter =  /*<<format.ml:1024:20>>*/ formatter_of_buffer(stdbuf),
     stdbuf_key =
-       /*<<format.ml:1029:17>>*/  /*<<format.ml:1029:17>>*/ caml_call2
-        /*<<format.ml:1029:17>>*/ (Stdlib_Domain[10][1], 0, pp_make_buffer);
-    /*<<format.ml:1030:8>>*/  /*<<format.ml:1030:8>>*/ caml_call2
-     /*<<format.ml:1030:8>>*/ (Stdlib_Domain[10][3], stdbuf_key, stdbuf);
+       /*<<format.ml:1029:17>>*/ caml_call2
+       (Stdlib_Domain[10][1], 0, pp_make_buffer);
+    /*<<format.ml:1030:8>>*/ caml_call2
+    (Stdlib_Domain[10][3], stdbuf_key, stdbuf);
    var
     str_formatter_key =
-       /*<<format.ml:1032:24>>*/  /*<<format.ml:1032:24>>*/ caml_call2
-        /*<<format.ml:1032:24>>*/ (Stdlib_Domain[10][1],
+       /*<<format.ml:1032:24>>*/ caml_call2
+       (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1033:2>>*/ return  /*<<format.ml:1033:22>>*/ formatter_of_buffer
-                  /*<<format.ml:1033:22>>*/ ( /*<<format.ml:1033:22>>*/ caml_call1
-                    /*<<format.ml:1033:22>>*/ (Stdlib_Domain[10][2],
-                    stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
-         /*<<format.ml:1033:42>>*/ });
-    /*<<format.ml:1034:8>>*/  /*<<format.ml:1034:8>>*/ caml_call2
-     /*<<format.ml:1034:8>>*/ (Stdlib_Domain[10][3],
-     str_formatter_key,
-     str_formatter);
+                 (caml_call1(Stdlib_Domain[10][2], stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
+        });
+    /*<<format.ml:1034:8>>*/ caml_call2
+    (Stdlib_Domain[10][3], str_formatter_key, str_formatter);
    function buffered_out_string(key, str, ofs, len){
     var
-     _ao_ =
-        /*<<format.ml:1037:23>>*/  /*<<format.ml:1037:23>>*/ caml_call1
-         /*<<format.ml:1037:23>>*/ (Stdlib_Domain[10][2], key);
-     /*<<format.ml:1037:2>>*/ return  /*<<format.ml:1037:2>>*/ caml_call4
-             /*<<format.ml:1037:2>>*/ (Stdlib_Buffer[18], _ao_, str, ofs, len) /*<<format.ml:1037:55>>*/ ;
-    /*<<format.ml:1037:55>>*/ }
+     _ao_ =  /*<<format.ml:1037:23>>*/ caml_call1(Stdlib_Domain[10][2], key);
+     /*<<format.ml:1037:2>>*/ return caml_call4
+            (Stdlib_Buffer[18], _ao_, str, ofs, len) /*<<format.ml:1037:55>>*/ ;
+   }
    function buffered_out_flush(oc, key, param){
     var
-     buf =
-        /*<<format.ml:1040:12>>*/  /*<<format.ml:1040:12>>*/ caml_call1
-         /*<<format.ml:1040:12>>*/ (Stdlib_Domain[10][2], key),
-     len =
-        /*<<format.ml:1041:12>>*/  /*<<format.ml:1041:12>>*/ caml_call1
-         /*<<format.ml:1041:12>>*/ (Stdlib_Buffer[7], buf),
-     str =
-        /*<<format.ml:1042:12>>*/  /*<<format.ml:1042:12>>*/ caml_call1
-         /*<<format.ml:1042:12>>*/ (Stdlib_Buffer[2], buf);
-     /*<<format.ml:1043:2>>*/  /*<<format.ml:1043:2>>*/ caml_call4
-      /*<<format.ml:1043:2>>*/ (Stdlib[69], oc, str, 0, len);
-     /*<<format.ml:1044:2>>*/  /*<<format.ml:1044:2>>*/ caml_call1
-      /*<<format.ml:1044:2>>*/ (Stdlib[63], oc);
-     /*<<format.ml:1044:2>>*/ return  /*<<format.ml:1044:2>>*/ caml_call1
-             /*<<format.ml:1044:2>>*/ (Stdlib_Buffer[8], buf) /*<<format.ml:1045:18>>*/ ;
-    /*<<format.ml:1045:18>>*/ }
+     buf =  /*<<format.ml:1040:12>>*/ caml_call1(Stdlib_Domain[10][2], key),
+     len =  /*<<format.ml:1041:12>>*/ caml_call1(Stdlib_Buffer[7], buf),
+     str =  /*<<format.ml:1042:12>>*/ caml_call1(Stdlib_Buffer[2], buf);
+     /*<<format.ml:1043:2>>*/ caml_call4(Stdlib[69], oc, str, 0, len);
+     /*<<format.ml:1044:2>>*/ caml_call1(Stdlib[63], oc);
+    return caml_call1(Stdlib_Buffer[8], buf) /*<<format.ml:1045:18>>*/ ;
+   }
    var
     std_buf_key =
-       /*<<format.ml:1047:18>>*/  /*<<format.ml:1047:18>>*/ caml_call2
-        /*<<format.ml:1047:18>>*/ (Stdlib_Domain[10][1],
+       /*<<format.ml:1047:18>>*/ caml_call2
+       (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1047:48>>*/ return  /*<<format.ml:1039:23>>*/ caml_call1
-                  /*<<format.ml:1039:23>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1047:76>>*/ ;
-         /*<<format.ml:1047:76>>*/ }),
+                 (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1047:76>>*/ ;
+        }),
     err_buf_key =
-       /*<<format.ml:1048:18>>*/  /*<<format.ml:1048:18>>*/ caml_call2
-        /*<<format.ml:1048:18>>*/ (Stdlib_Domain[10][1],
+       /*<<format.ml:1048:18>>*/ caml_call2
+       (Stdlib_Domain[10][1],
         0,
         function(param){
           /*<<format.ml:1048:48>>*/ return  /*<<format.ml:1047:18>>*/ caml_call1
-                  /*<<format.ml:1047:18>>*/ (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1048:76>>*/ ;
-         /*<<format.ml:1048:76>>*/ }),
+                 (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1048:76>>*/ ;
+        }),
     std_formatter_key =
-       /*<<format.ml:1050:24>>*/  /*<<format.ml:1050:24>>*/ caml_call2
-        /*<<format.ml:1050:24>>*/ (Stdlib_Domain[10][1],
+       /*<<format.ml:1050:24>>*/ caml_call2
+       (Stdlib_Domain[10][1],
         0,
         function(param){
          var
           _ac_ = Stdlib[39],
           ppf =
-             /*<<format.ml:1052:4>>*/  /*<<format.ml:1052:4>>*/ pp_make_formatter
-              /*<<format.ml:1052:4>>*/ (function(_al_, _am_, _an_){
+             /*<<format.ml:1052:4>>*/ pp_make_formatter
+             (function(_al_, _am_, _an_){
                 /*<<?>>*/ return buffered_out_string
                        (std_buf_key, _al_, _am_, _an_);
               },
               function(_ak_){
-                /*<<?>>*/ return buffered_out_flush(_ac_, std_buf_key, _ak_);
+               return buffered_out_flush(_ac_, std_buf_key, _ak_);
               },
-              function(_aj_){ /*<<?>>*/ return 0;},
-              function(_ai_){ /*<<?>>*/ return 0;},
-              function(_ah_){ /*<<?>>*/ return 0;});
-         ppf[19] =
-          function(_ag_){ /*<<?>>*/ return display_newline(ppf, _ag_);};
-         ppf[20] =
-          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:1058:2>>*/ (Stdlib_Domain[6],
+              function(_aj_){return 0;},
+              function(_ai_){return 0;},
+              function(_ah_){return 0;});
+         ppf[19] = function(_ag_){return display_newline(ppf, _ag_);};
+         ppf[20] = function(_af_){return display_blanks(ppf, _af_);};
+         ppf[21] = function(_ae_){return display_blanks(ppf, _ae_);};
+          /*<<format.ml:1058:2>>*/ caml_call1
+          (Stdlib_Domain[6],
            function(_ad_){ /*<<?>>*/ return pp_print_flush(ppf, _ad_);});
-          /*<<format.ml:1058:2>>*/ return ppf /*<<format.ml:1058:2>>*/ ;
+          /*<<format.ml:1058:2>>*/ return ppf;
          /*<<format.ml:1059:5>>*/ });
-    /*<<format.ml:1060:8>>*/  /*<<format.ml:1060:8>>*/ caml_call2
-     /*<<format.ml:1060:8>>*/ (Stdlib_Domain[10][3],
-     std_formatter_key,
-     std_formatter);
+    /*<<format.ml:1060:8>>*/ caml_call2
+    (Stdlib_Domain[10][3], std_formatter_key, std_formatter);
    var
     err_formatter_key =
-       /*<<format.ml:1062:24>>*/  /*<<format.ml:1062:24>>*/ caml_call2
-        /*<<format.ml:1062:24>>*/ (Stdlib_Domain[10][1],
+       /*<<format.ml:1062:24>>*/ caml_call2
+       (Stdlib_Domain[10][1],
         0,
         function(param){
          var
           _S_ = Stdlib[40],
           ppf =
-             /*<<format.ml:1064:4>>*/  /*<<format.ml:1064:4>>*/ pp_make_formatter
-              /*<<format.ml:1064:4>>*/ (function(_$_, _aa_, _ab_){
+             /*<<format.ml:1064:4>>*/ pp_make_formatter
+             (function(_$_, _aa_, _ab_){
                 /*<<?>>*/ return buffered_out_string
                        (err_buf_key, _$_, _aa_, _ab_);
               },
-              function(___){
-                /*<<?>>*/ return buffered_out_flush(_S_, err_buf_key, ___);
-              },
-              function(_Z_){ /*<<?>>*/ return 0;},
-              function(_Y_){ /*<<?>>*/ return 0;},
-              function(_X_){ /*<<?>>*/ return 0;});
-         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:1070:2>>*/ (Stdlib_Domain[6],
+              function(___){return buffered_out_flush(_S_, err_buf_key, ___);},
+              function(_Z_){return 0;},
+              function(_Y_){return 0;},
+              function(_X_){return 0;});
+         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>>*/ caml_call1
+          (Stdlib_Domain[6],
            function(_T_){ /*<<?>>*/ return pp_print_flush(ppf, _T_);});
-          /*<<format.ml:1070:2>>*/ return ppf /*<<format.ml:1070:2>>*/ ;
+          /*<<format.ml:1070:2>>*/ return ppf;
          /*<<format.ml:1071:5>>*/ });
-    /*<<format.ml:1072:8>>*/  /*<<format.ml:1072:8>>*/ caml_call2
-     /*<<format.ml:1072:8>>*/ (Stdlib_Domain[10][3],
-     err_formatter_key,
-     err_formatter);
+    /*<<format.ml:1072:8>>*/ caml_call2
+    (Stdlib_Domain[10][3], err_formatter_key, err_formatter);
    function get_std_formatter(param){
      /*<<format.ml:1074:27>>*/ return  /*<<format.ml:1072:8>>*/ caml_call1
-             /*<<format.ml:1072:8>>*/ (Stdlib_Domain[10][2],
-             std_formatter_key) /*<<format.ml:1074:52>>*/ ;
-    /*<<format.ml:1074:52>>*/ }
+            (Stdlib_Domain[10][2], std_formatter_key) /*<<format.ml:1074:52>>*/ ;
+   }
    function get_err_formatter(param){
      /*<<format.ml:1075:27>>*/ return  /*<<format.ml:1074:22>>*/ caml_call1
-             /*<<format.ml:1074:22>>*/ (Stdlib_Domain[10][2],
-             err_formatter_key) /*<<format.ml:1075:52>>*/ ;
-    /*<<format.ml:1075:52>>*/ }
+            (Stdlib_Domain[10][2], err_formatter_key) /*<<format.ml:1075:52>>*/ ;
+   }
    function get_str_formatter(param){
      /*<<format.ml:1076:27>>*/ return  /*<<format.ml:1075:22>>*/ caml_call1
-             /*<<format.ml:1075:22>>*/ (Stdlib_Domain[10][2],
-             str_formatter_key) /*<<format.ml:1076:52>>*/ ;
-    /*<<format.ml:1076:52>>*/ }
+            (Stdlib_Domain[10][2], str_formatter_key) /*<<format.ml:1076:52>>*/ ;
+   }
    function get_stdbuf(param){
      /*<<format.ml:1077:20>>*/ return  /*<<format.ml:1076:22>>*/ caml_call1
-             /*<<format.ml:1076:22>>*/ (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
-    /*<<format.ml:1077:38>>*/ }
+            (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
+   }
    function flush_buffer_formatter(buf, ppf){
-     /*<<format.ml:1084:2>>*/  /*<<format.ml:1084:2>>*/ pp_flush_queue
-      /*<<format.ml:1084:2>>*/ (ppf, 0);
-    var
-     s =
-        /*<<format.ml:1085:10>>*/  /*<<format.ml:1085:10>>*/ caml_call1
-         /*<<format.ml:1085:10>>*/ (Stdlib_Buffer[2], buf);
-     /*<<format.ml:1086:2>>*/  /*<<format.ml:1086:2>>*/ caml_call1
-      /*<<format.ml:1086:2>>*/ (Stdlib_Buffer[9], buf);
-     /*<<format.ml:1086:2>>*/ return s /*<<format.ml:1086:2>>*/ ;
+     /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
+    var s =  /*<<format.ml:1085:10>>*/ caml_call1(Stdlib_Buffer[2], buf);
+     /*<<format.ml:1086:2>>*/ caml_call1(Stdlib_Buffer[9], buf);
+    return s;
     /*<<format.ml:1087:3>>*/ }
    function flush_str_formatter(param){
     var
      stdbuf =
-        /*<<format.ml:1091:15>>*/  /*<<format.ml:1091:15>>*/ caml_call1
-         /*<<format.ml:1091:15>>*/ (Stdlib_Domain[10][2], stdbuf_key),
+        /*<<format.ml:1091:15>>*/ caml_call1(Stdlib_Domain[10][2], stdbuf_key),
      str_formatter =
-        /*<<format.ml:1092:22>>*/  /*<<format.ml:1092:22>>*/ caml_call1
-         /*<<format.ml:1092:22>>*/ (Stdlib_Domain[10][2], str_formatter_key);
-     /*<<format.ml:1093:2>>*/ return  /*<<format.ml:1093:2>>*/ flush_buffer_formatter
-             /*<<format.ml:1093:2>>*/ (stdbuf, str_formatter) /*<<format.ml:1093:45>>*/ ;
-    /*<<format.ml:1093:45>>*/ }
+        /*<<format.ml:1092:22>>*/ caml_call1
+        (Stdlib_Domain[10][2], str_formatter_key);
+     /*<<format.ml:1093:2>>*/ return flush_buffer_formatter
+            (stdbuf, str_formatter) /*<<format.ml:1093:45>>*/ ;
+   }
    function make_synchronized_formatter(output, flush){
      /*<<format.ml:1096:2>>*/ return  /*<<format.ml:1096:14>>*/ caml_call2
-             /*<<format.ml:1096:14>>*/ (Stdlib_Domain[10][1],
+            (Stdlib_Domain[10][1],
              0,
              function(param){
               var
                buf =
-                  /*<<format.ml:1097:14>>*/  /*<<format.ml:1097:14>>*/ caml_call1
-                   /*<<format.ml:1097:14>>*/ (Stdlib_Buffer[1],
-                   pp_buffer_size),
+                  /*<<format.ml:1097:14>>*/ caml_call1
+                  (Stdlib_Buffer[1], pp_buffer_size),
                output$0 =
-                  /*<<format.ml:1098:18>>*/  /*<<format.ml:1098:18>>*/ caml_call1
-                   /*<<format.ml:1098:18>>*/ (Stdlib_Buffer[18], buf);
+                  /*<<format.ml:1098:18>>*/ caml_call1(Stdlib_Buffer[18], buf);
               function flush$0(param){
                var
                 _R_ =
-                   /*<<format.ml:1100:37>>*/  /*<<format.ml:1100:37>>*/ caml_call1
-                    /*<<format.ml:1100:37>>*/ (Stdlib_Buffer[7], buf);
-                /*<<format.ml:1100:6>>*/  /*<<format.ml:1100:6>>*/ caml_call3
-                 /*<<format.ml:1100:6>>*/ (output,
-                  /*<<format.ml:1100:13>>*/ caml_call1
-                   /*<<format.ml:1100:13>>*/ (Stdlib_Buffer[2], buf),
+                   /*<<format.ml:1100:37>>*/ caml_call1(Stdlib_Buffer[7], buf);
+                /*<<format.ml:1100:6>>*/ caml_call3
+                (output,
+                  /*<<format.ml:1100:13>>*/ caml_call1(Stdlib_Buffer[2], buf),
                  0,
                  _R_);
-                /*<<format.ml:1101:6>>*/  /*<<format.ml:1101:6>>*/ caml_call1
-                 /*<<format.ml:1101:6>>*/ (Stdlib_Buffer[8], buf);
-                /*<<format.ml:1101:6>>*/ return  /*<<format.ml:1101:6>>*/ caml_call1
-                        /*<<format.ml:1101:6>>*/ (flush, 0) /*<<format.ml:1102:14>>*/ ;
-               /*<<format.ml:1102:14>>*/ }
-               /*<<format.ml:1104:4>>*/ return  /*<<format.ml:1104:4>>*/ make_formatter
-                       /*<<format.ml:1104:4>>*/ (output$0, flush$0) /*<<format.ml:1104:33>>*/ ;
-              /*<<format.ml:1104:33>>*/ }) /*<<format.ml:1104:34>>*/ ;
-    /*<<format.ml:1104:34>>*/ }
+                /*<<format.ml:1101:6>>*/ caml_call1(Stdlib_Buffer[8], buf);
+               return caml_call1(flush, 0) /*<<format.ml:1102:14>>*/ ;
+              }
+               /*<<format.ml:1104:4>>*/ return make_formatter
+                      (output$0, flush$0) /*<<format.ml:1104:33>>*/ ;
+             }) /*<<format.ml:1104:34>>*/ ;
+   }
    function synchronized_formatter_of_out_(oc){
      /*<<format.ml:1107:2>>*/ return  /*<<format.ml:1107:52>>*/ make_synchronized_formatter
-             /*<<format.ml:1107:52>>*/ ( /*<<format.ml:1107:30>>*/ caml_call1
-               /*<<format.ml:1107:30>>*/ (Stdlib[69], oc),
+            ( /*<<format.ml:1107:30>>*/ caml_call1(Stdlib[69], oc),
              function(param){
                /*<<format.ml:1107:63>>*/ return  /*<<format.ml:1107:2>>*/ caml_call1
-                       /*<<format.ml:1107:2>>*/ (Stdlib[63], oc) /*<<format.ml:1107:71>>*/ ;
-              /*<<format.ml:1107:71>>*/ }) /*<<format.ml:1107:72>>*/ ;
-    /*<<format.ml:1107:72>>*/ }
-   function make_symbolic_output_buffer(param){
-     /*<<format.ml:1134:2>>*/ return [0, 0] /*<<format.ml:1134:2>>*/ ;
+                      (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>>*/ }
    function clear_symbolic_output_buffer(sob){
      /*<<format.ml:1137:2>>*/ sob[1] = 0;
@@ -33333,15 +27475,11 @@
     /*<<format.ml:1137: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:1140:39>>*/ }
+   }
    function flush_symbolic_output_buffer(sob){
-    var
-     items =
-        /*<<format.ml:1143:14>>*/  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer
-         /*<<format.ml:1143:14>>*/ (sob);
-     /*<<format.ml:1144:2>>*/  /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer
-      /*<<format.ml:1144:2>>*/ (sob);
-     /*<<format.ml:1144:2>>*/ return items /*<<format.ml:1144:2>>*/ ;
+    var items =  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer(sob);
+     /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer(sob);
+    return items;
     /*<<format.ml:1145:7>>*/ }
    function add_symbolic_output_item(sob, item){
      /*<<format.ml:1148:2>>*/ sob[1] = [0, item, sob[1]];
@@ -33349,401 +27487,350 @@
     /*<<format.ml:1148:70>>*/ }
    function formatter_of_symbolic_output_b(sob){
     function f(s, i, n){
-      /*<<format.ml:1156:33>>*/ return  /*<<format.ml:1156:33>>*/ add_symbolic_output_item
-              /*<<format.ml:1156:33>>*/ (sob,
+      /*<<format.ml:1156:33>>*/ return add_symbolic_output_item
+             (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
-                 /*<<format.ml:1156:48>>*/ (Stdlib_String[16], s, i, n)]) /*<<format.ml:1156:33>>*/ ;
+                (Stdlib_String[16], s, i, n)]) /*<<format.ml:1156:33>>*/ ;
     }
     function g(_Q_){
-      /*<<format.ml:1152:4>>*/ return  /*<<format.ml:1152:4>>*/ add_symbolic_output_item
-              /*<<format.ml:1152:4>>*/ (sob, 0) /*<<format.ml:1152:4>>*/ ;
+      /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0);
     }
     function h(_P_){
-      /*<<format.ml:1154:4>>*/ return  /*<<format.ml:1154:4>>*/ add_symbolic_output_item
-              /*<<format.ml:1154:4>>*/ (sob, 1) /*<<format.ml:1154:4>>*/ ;
+      /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1);
     }
     function i(n){
-      /*<<format.ml:1158:33>>*/ return  /*<<format.ml:1158:33>>*/ add_symbolic_output_item
-              /*<<format.ml:1158:33>>*/ (sob, [1, n]) /*<<format.ml:1158:33>>*/ ;
+      /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]);
     }
     function j(n){
-      /*<<format.ml:1160:33>>*/ return  /*<<format.ml:1160:33>>*/ add_symbolic_output_item
-              /*<<format.ml:1160:33>>*/ (sob, [2, n]) /*<<format.ml:1160:33>>*/ ;
+      /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]);
     }
-     /*<<format.ml:1167:2>>*/ return  /*<<format.ml:1167:2>>*/ pp_make_formatter
-             /*<<format.ml:1167:2>>*/ (f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
-    /*<<format.ml:1167:29>>*/ }
+     /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
+   }
    function open_hbox(v){
-     /*<<format.ml:1176:18>>*/ return  /*<<format.ml:1176:18>>*/ pp_open_hbox
-             /*<<format.ml:1176:18>>*/ ( /*<<format.ml:1176:31>>*/ caml_call1
-               /*<<format.ml:1176:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1176:18>>*/ return pp_open_hbox
+            ( /*<<format.ml:1176:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1176:60>>*/ ;
-    /*<<format.ml:1176:60>>*/ }
+   }
    function open_vbox(v){
-     /*<<format.ml:1177:18>>*/ return  /*<<format.ml:1177:18>>*/ pp_open_vbox
-             /*<<format.ml:1177:18>>*/ ( /*<<format.ml:1177:31>>*/ caml_call1
-               /*<<format.ml:1177:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1177:18>>*/ return pp_open_vbox
+            ( /*<<format.ml:1177:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1177:60>>*/ ;
-    /*<<format.ml:1177:60>>*/ }
+   }
    function open_hvbox(v){
-     /*<<format.ml:1178:19>>*/ return  /*<<format.ml:1178:19>>*/ pp_open_hvbox
-             /*<<format.ml:1178:19>>*/ ( /*<<format.ml:1178:33>>*/ caml_call1
-               /*<<format.ml:1178:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1178:19>>*/ return pp_open_hvbox
+            ( /*<<format.ml:1178:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1178:62>>*/ ;
-    /*<<format.ml:1178:62>>*/ }
+   }
    function open_hovbox(v){
-     /*<<format.ml:1179:20>>*/ return  /*<<format.ml:1179:20>>*/ pp_open_hovbox
-             /*<<format.ml:1179:20>>*/ ( /*<<format.ml:1179:35>>*/ caml_call1
-               /*<<format.ml:1179:35>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1179:20>>*/ return pp_open_hovbox
+            ( /*<<format.ml:1179:35>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1179:64>>*/ ;
-    /*<<format.ml:1179:64>>*/ }
+   }
    function open_box(v){
-     /*<<format.ml:1180:17>>*/ return  /*<<format.ml:1180:17>>*/ pp_open_box
-             /*<<format.ml:1180:17>>*/ ( /*<<format.ml:1180:29>>*/ caml_call1
-               /*<<format.ml:1180:29>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1180:17>>*/ return pp_open_box
+            ( /*<<format.ml:1180:29>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1180:58>>*/ ;
-    /*<<format.ml:1180:58>>*/ }
+   }
    function close_box(v){
-     /*<<format.ml:1181:18>>*/ return  /*<<format.ml:1181:18>>*/ pp_close_box
-             /*<<format.ml:1181:18>>*/ ( /*<<format.ml:1181:31>>*/ caml_call1
-               /*<<format.ml:1181:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1181:18>>*/ return pp_close_box
+            ( /*<<format.ml:1181:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1181:60>>*/ ;
-    /*<<format.ml:1181:60>>*/ }
+   }
    function open_stag(v){
-     /*<<format.ml:1182:18>>*/ return  /*<<format.ml:1182:18>>*/ pp_open_stag
-             /*<<format.ml:1182:18>>*/ ( /*<<format.ml:1182:31>>*/ caml_call1
-               /*<<format.ml:1182:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1182:18>>*/ return pp_open_stag
+            ( /*<<format.ml:1182:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1182:60>>*/ ;
-    /*<<format.ml:1182:60>>*/ }
+   }
    function close_stag(v){
-     /*<<format.ml:1183:19>>*/ return  /*<<format.ml:1183:19>>*/ pp_close_stag
-             /*<<format.ml:1183:19>>*/ ( /*<<format.ml:1183:33>>*/ caml_call1
-               /*<<format.ml:1183:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1183:19>>*/ return pp_close_stag
+            ( /*<<format.ml:1183:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1183:62>>*/ ;
-    /*<<format.ml:1183:62>>*/ }
+   }
    function print_as(isize, w){
     var
      state =
-        /*<<format.ml:1184:31>>*/  /*<<format.ml:1184:31>>*/ caml_call1
-         /*<<format.ml:1184:31>>*/ (Stdlib_Domain[10][2], std_formatter_key);
-     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:2>>*/ pp_print_as_size
-             /*<<format.ml:630:2>>*/ (state, isize, w) /*<<format.ml:1184:62>>*/ ;
-    /*<<format.ml:1184:62>>*/ }
+        /*<<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>>*/ ;
+   }
    function print_string(v){
-     /*<<format.ml:1185:21>>*/ return  /*<<format.ml:1185:21>>*/ pp_print_string
-             /*<<format.ml:1185:21>>*/ ( /*<<format.ml:1185:37>>*/ caml_call1
-               /*<<format.ml:1185:37>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1185:21>>*/ return pp_print_string
+            ( /*<<format.ml:1185:37>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1185:66>>*/ ;
-    /*<<format.ml:1185:66>>*/ }
+   }
    function print_bytes(v){
-     /*<<format.ml:1186:20>>*/ return  /*<<format.ml:1186:20>>*/ pp_print_bytes
-             /*<<format.ml:1186:20>>*/ ( /*<<format.ml:1186:35>>*/ caml_call1
-               /*<<format.ml:1186:35>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1186:20>>*/ return pp_print_bytes
+            ( /*<<format.ml:1186:35>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1186:64>>*/ ;
-    /*<<format.ml:1186:64>>*/ }
+   }
    function print_int(v){
-     /*<<format.ml:1187:18>>*/ return  /*<<format.ml:1187:18>>*/ pp_print_int
-             /*<<format.ml:1187:18>>*/ ( /*<<format.ml:1187:31>>*/ caml_call1
-               /*<<format.ml:1187:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1187:18>>*/ return pp_print_int
+            ( /*<<format.ml:1187:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1187:60>>*/ ;
-    /*<<format.ml:1187:60>>*/ }
+   }
    function print_float(v){
-     /*<<format.ml:1188:20>>*/ return  /*<<format.ml:1188:20>>*/ pp_print_float
-             /*<<format.ml:1188:20>>*/ ( /*<<format.ml:1188:35>>*/ caml_call1
-               /*<<format.ml:1188:35>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1188:20>>*/ return pp_print_float
+            ( /*<<format.ml:1188:35>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1188:64>>*/ ;
-    /*<<format.ml:1188:64>>*/ }
+   }
    function print_char(v){
-     /*<<format.ml:1189:19>>*/ return  /*<<format.ml:1189:19>>*/ pp_print_char
-             /*<<format.ml:1189:19>>*/ ( /*<<format.ml:1189:33>>*/ caml_call1
-               /*<<format.ml:1189:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1189:19>>*/ return pp_print_char
+            ( /*<<format.ml:1189:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1189:62>>*/ ;
-    /*<<format.ml:1189:62>>*/ }
+   }
    function print_bool(v){
-     /*<<format.ml:1190:19>>*/ return  /*<<format.ml:1190:19>>*/ pp_print_bool
-             /*<<format.ml:1190:19>>*/ ( /*<<format.ml:1190:33>>*/ caml_call1
-               /*<<format.ml:1190:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1190:19>>*/ return pp_print_bool
+            ( /*<<format.ml:1190:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1190:62>>*/ ;
-    /*<<format.ml:1190:62>>*/ }
+   }
    function print_break(v, w){
-     /*<<format.ml:1191:22>>*/ return  /*<<format.ml:1191:22>>*/ pp_print_break
-             /*<<format.ml:1191:22>>*/ ( /*<<format.ml:1191:37>>*/ caml_call1
-               /*<<format.ml:1191:37>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1191:22>>*/ return pp_print_break
+            ( /*<<format.ml:1191:37>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1191:68>>*/ ;
-    /*<<format.ml:1191:68>>*/ }
+   }
    function print_cut(v){
-     /*<<format.ml:1192:18>>*/ return  /*<<format.ml:1192:18>>*/ pp_print_cut
-             /*<<format.ml:1192:18>>*/ ( /*<<format.ml:1192:31>>*/ caml_call1
-               /*<<format.ml:1192:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1192:18>>*/ return pp_print_cut
+            ( /*<<format.ml:1192:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1192:60>>*/ ;
-    /*<<format.ml:1192:60>>*/ }
+   }
    function print_space(v){
-     /*<<format.ml:1193:20>>*/ return  /*<<format.ml:1193:20>>*/ pp_print_space
-             /*<<format.ml:1193:20>>*/ ( /*<<format.ml:1193:35>>*/ caml_call1
-               /*<<format.ml:1193:35>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1193:20>>*/ return pp_print_space
+            ( /*<<format.ml:1193:35>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1193:64>>*/ ;
-    /*<<format.ml:1193:64>>*/ }
+   }
    function force_newline(v){
-     /*<<format.ml:1194:22>>*/ return  /*<<format.ml:1194:22>>*/ pp_force_newline
-             /*<<format.ml:1194:22>>*/ ( /*<<format.ml:1194:39>>*/ caml_call1
-               /*<<format.ml:1194:39>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1194:22>>*/ return pp_force_newline
+            ( /*<<format.ml:1194:39>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1194:68>>*/ ;
-    /*<<format.ml:1194:68>>*/ }
+   }
    function print_flush(v){
-     /*<<format.ml:1195:20>>*/ return  /*<<format.ml:1195:20>>*/ pp_print_flush
-             /*<<format.ml:1195:20>>*/ ( /*<<format.ml:1195:35>>*/ caml_call1
-               /*<<format.ml:1195:35>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1195:20>>*/ return pp_print_flush
+            ( /*<<format.ml:1195:35>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1195:64>>*/ ;
-    /*<<format.ml:1195:64>>*/ }
+   }
    function print_newline(v){
-     /*<<format.ml:1196:22>>*/ return  /*<<format.ml:1196:22>>*/ pp_print_newline
-             /*<<format.ml:1196:22>>*/ ( /*<<format.ml:1196:39>>*/ caml_call1
-               /*<<format.ml:1196:39>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1196:22>>*/ return pp_print_newline
+            ( /*<<format.ml:1196:39>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1196:68>>*/ ;
-    /*<<format.ml:1196:68>>*/ }
+   }
    function print_if_newline(v){
-     /*<<format.ml:1197:25>>*/ return  /*<<format.ml:1197:25>>*/ pp_print_if_newline
-             /*<<format.ml:1197:25>>*/ ( /*<<format.ml:1197:45>>*/ caml_call1
-               /*<<format.ml:1197:45>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1197:25>>*/ return pp_print_if_newline
+            ( /*<<format.ml:1197:45>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1197:74>>*/ ;
-    /*<<format.ml:1197:74>>*/ }
+   }
    function open_tbox(v){
-     /*<<format.ml:1199:18>>*/ return  /*<<format.ml:1199:18>>*/ pp_open_tbox
-             /*<<format.ml:1199:18>>*/ ( /*<<format.ml:1199:31>>*/ caml_call1
-               /*<<format.ml:1199:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1199:18>>*/ return pp_open_tbox
+            ( /*<<format.ml:1199:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1199:60>>*/ ;
-    /*<<format.ml:1199:60>>*/ }
+   }
    function close_tbox(v){
-     /*<<format.ml:1200:19>>*/ return  /*<<format.ml:1200:19>>*/ pp_close_tbox
-             /*<<format.ml:1200:19>>*/ ( /*<<format.ml:1200:33>>*/ caml_call1
-               /*<<format.ml:1200:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1200:19>>*/ return pp_close_tbox
+            ( /*<<format.ml:1200:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1200:62>>*/ ;
-    /*<<format.ml:1200:62>>*/ }
+   }
    function print_tbreak(v, w){
-     /*<<format.ml:1201:23>>*/ return  /*<<format.ml:1201:23>>*/ pp_print_tbreak
-             /*<<format.ml:1201:23>>*/ ( /*<<format.ml:1201:39>>*/ caml_call1
-               /*<<format.ml:1201:39>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1201:23>>*/ return pp_print_tbreak
+            ( /*<<format.ml:1201:39>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1201:70>>*/ ;
-    /*<<format.ml:1201:70>>*/ }
+   }
    function set_tab(v){
-     /*<<format.ml:1203:16>>*/ return  /*<<format.ml:1203:16>>*/ pp_set_tab
-             /*<<format.ml:1203:16>>*/ ( /*<<format.ml:1203:27>>*/ caml_call1
-               /*<<format.ml:1203:27>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1203:16>>*/ return pp_set_tab
+            ( /*<<format.ml:1203:27>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1203:56>>*/ ;
-    /*<<format.ml:1203:56>>*/ }
+   }
    function print_tab(v){
-     /*<<format.ml:1204:18>>*/ return  /*<<format.ml:1204:18>>*/ pp_print_tab
-             /*<<format.ml:1204:18>>*/ ( /*<<format.ml:1204:31>>*/ caml_call1
-               /*<<format.ml:1204:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1204:18>>*/ return pp_print_tab
+            ( /*<<format.ml:1204:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1204:60>>*/ ;
-    /*<<format.ml:1204:60>>*/ }
+   }
    function set_margin(v){
-     /*<<format.ml:1206:19>>*/ return  /*<<format.ml:1206:19>>*/ pp_set_margin
-             /*<<format.ml:1206:19>>*/ ( /*<<format.ml:1206:33>>*/ caml_call1
-               /*<<format.ml:1206:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1206:19>>*/ return pp_set_margin
+            ( /*<<format.ml:1206:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1206:62>>*/ ;
-    /*<<format.ml:1206:62>>*/ }
+   }
    function get_margin(v){
     var
      state =
-        /*<<format.ml:1207:33>>*/  /*<<format.ml:1207:33>>*/ caml_call1
-         /*<<format.ml:1207:33>>*/ (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1207:33>>*/ caml_call1
+        (Stdlib_Domain[10][2], std_formatter_key);
     return state[6];
     /*<<format.ml:1207:62>>*/ }
    function set_max_indent(v){
-     /*<<format.ml:1209:23>>*/ return  /*<<format.ml:1209:23>>*/ pp_set_max_indent
-             /*<<format.ml:1209:23>>*/ ( /*<<format.ml:1209:41>>*/ caml_call1
-               /*<<format.ml:1209:41>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1209:23>>*/ return pp_set_max_indent
+            ( /*<<format.ml:1209:41>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1209:70>>*/ ;
-    /*<<format.ml:1209:70>>*/ }
+   }
    function get_max_indent(v){
     var
      state =
-        /*<<format.ml:1210:41>>*/  /*<<format.ml:1210:41>>*/ caml_call1
-         /*<<format.ml:1210:41>>*/ (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1210:41>>*/ caml_call1
+        (Stdlib_Domain[10][2], std_formatter_key);
     return state[8];
     /*<<format.ml:1210:70>>*/ }
    function set_geometry(max_indent, margin){
-     /*<<format.ml:1213:2>>*/ return  /*<<format.ml:1213:2>>*/ pp_set_geometry
-             /*<<format.ml:1213:2>>*/ ( /*<<format.ml:1213:18>>*/ caml_call1
-               /*<<format.ml:1213:18>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1213:2>>*/ return pp_set_geometry
+            ( /*<<format.ml:1213:18>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1213:65>>*/ ;
-    /*<<format.ml:1213:65>>*/ }
+   }
    function safe_set_geometry(max_indent, margin){
-     /*<<format.ml:1215:2>>*/ return  /*<<format.ml:1215:2>>*/ pp_safe_set_geometry
-             /*<<format.ml:1215:2>>*/ ( /*<<format.ml:1215:23>>*/ caml_call1
-               /*<<format.ml:1215:23>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1215:2>>*/ return pp_safe_set_geometry
+            ( /*<<format.ml:1215:23>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1215:70>>*/ ;
-    /*<<format.ml:1215:70>>*/ }
+   }
    function get_geometry(v){
-     /*<<format.ml:1216:21>>*/ return  /*<<format.ml:1216:21>>*/ pp_get_geometry
-             /*<<format.ml:1216:21>>*/ ( /*<<format.ml:1216:37>>*/ caml_call1
-               /*<<format.ml:1216:37>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1216:21>>*/ return pp_get_geometry
+            ( /*<<format.ml:1216:37>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1216:66>>*/ ;
-    /*<<format.ml:1216:66>>*/ }
+   }
    function update_geometry(v){
-     /*<<format.ml:1217:24>>*/ return  /*<<format.ml:1217:24>>*/ pp_update_geometry
-             /*<<format.ml:1217:24>>*/ ( /*<<format.ml:1217:43>>*/ caml_call1
-               /*<<format.ml:1217:43>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1217:24>>*/ return pp_update_geometry
+            ( /*<<format.ml:1217:43>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1217:72>>*/ ;
-    /*<<format.ml:1217:72>>*/ }
+   }
    function set_max_boxes(v){
-     /*<<format.ml:1219:22>>*/ return  /*<<format.ml:1219:22>>*/ pp_set_max_boxes
-             /*<<format.ml:1219:22>>*/ ( /*<<format.ml:1219:39>>*/ caml_call1
-               /*<<format.ml:1219:39>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1219:22>>*/ return pp_set_max_boxes
+            ( /*<<format.ml:1219:39>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1219:68>>*/ ;
-    /*<<format.ml:1219:68>>*/ }
+   }
    function get_max_boxes(v){
     var
      state =
-        /*<<format.ml:1220:39>>*/  /*<<format.ml:1220:39>>*/ caml_call1
-         /*<<format.ml:1220:39>>*/ (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1220:39>>*/ caml_call1
+        (Stdlib_Domain[10][2], std_formatter_key);
     return state[15];
     /*<<format.ml:1220:68>>*/ }
    function over_max_boxes(v){
-     /*<<format.ml:1221:23>>*/ return  /*<<format.ml:1221:23>>*/ pp_over_max_boxes
-             /*<<format.ml:1221:23>>*/ ( /*<<format.ml:1221:41>>*/ caml_call1
-               /*<<format.ml:1221:41>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1221:23>>*/ return pp_over_max_boxes
+            ( /*<<format.ml:1221:41>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1221:70>>*/ ;
-    /*<<format.ml:1221:70>>*/ }
+   }
    function set_ellipsis_text(v){
-     /*<<format.ml:1223:26>>*/ return  /*<<format.ml:1223:26>>*/ pp_set_ellipsis_text
-             /*<<format.ml:1223:26>>*/ ( /*<<format.ml:1223:47>>*/ caml_call1
-               /*<<format.ml:1223:47>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1223:26>>*/ return pp_set_ellipsis_text
+            ( /*<<format.ml:1223:47>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1223:76>>*/ ;
-    /*<<format.ml:1223:76>>*/ }
+   }
    function get_ellipsis_text(v){
     var
      state =
-        /*<<format.ml:1224:47>>*/  /*<<format.ml:1224:47>>*/ caml_call1
-         /*<<format.ml:1224:47>>*/ (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1224:47>>*/ caml_call1
+        (Stdlib_Domain[10][2], std_formatter_key);
     return state[16];
     /*<<format.ml:1224:76>>*/ }
    function set_formatter_out_channel(v){
-     /*<<format.ml:1227:2>>*/ return  /*<<format.ml:1227:2>>*/ pp_set_formatter_out_channel
-             /*<<format.ml:1227:2>>*/ ( /*<<format.ml:1227:31>>*/ caml_call1
-               /*<<format.ml:1227:31>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1227:2>>*/ return pp_set_formatter_out_channel
+            ( /*<<format.ml:1227:31>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1227:60>>*/ ;
-    /*<<format.ml:1227:60>>*/ }
+   }
    function set_formatter_out_functions(v){
-     /*<<format.ml:1230:2>>*/ return  /*<<format.ml:1230:2>>*/ pp_set_formatter_out_functions
-             /*<<format.ml:1230:2>>*/ ( /*<<format.ml:1230:33>>*/ caml_call1
-               /*<<format.ml:1230:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1230:2>>*/ return pp_set_formatter_out_functions
+            ( /*<<format.ml:1230:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1230:62>>*/ ;
-    /*<<format.ml:1230:62>>*/ }
+   }
    function get_formatter_out_functions(v){
-     /*<<format.ml:1232:2>>*/ return  /*<<format.ml:1232:2>>*/ pp_get_formatter_out_functions
-             /*<<format.ml:1232:2>>*/ ( /*<<format.ml:1232:33>>*/ caml_call1
-               /*<<format.ml:1232:33>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1232:2>>*/ return pp_get_formatter_out_functions
+            ( /*<<format.ml:1232:33>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1232:62>>*/ ;
-    /*<<format.ml:1232:62>>*/ }
+   }
    function set_formatter_output_functions(v, w){
-     /*<<format.ml:1235:2>>*/ return  /*<<format.ml:1235:2>>*/ pp_set_formatter_output_functi
-             /*<<format.ml:1235:2>>*/ ( /*<<format.ml:1235:36>>*/ caml_call1
-               /*<<format.ml:1235:36>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1235:2>>*/ return pp_set_formatter_output_functi
+            ( /*<<format.ml:1235:36>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1235:67>>*/ ;
-    /*<<format.ml:1235:67>>*/ }
+   }
    function get_formatter_output_functions(v){
-     /*<<format.ml:1237:2>>*/ return  /*<<format.ml:1237:2>>*/ pp_get_formatter_output_functi
-             /*<<format.ml:1237:2>>*/ ( /*<<format.ml:1237:36>>*/ caml_call1
-               /*<<format.ml:1237:36>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1237:2>>*/ return pp_get_formatter_output_functi
+            ( /*<<format.ml:1237:36>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1237:65>>*/ ;
-    /*<<format.ml:1237:65>>*/ }
+   }
    function set_formatter_stag_functions(v){
-     /*<<format.ml:1240:2>>*/ return  /*<<format.ml:1240:2>>*/ pp_set_formatter_stag_function
-             /*<<format.ml:1240:2>>*/ ( /*<<format.ml:1240:34>>*/ caml_call1
-               /*<<format.ml:1240:34>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1240:2>>*/ return pp_set_formatter_stag_function
+            ( /*<<format.ml:1240:34>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1240:63>>*/ ;
-    /*<<format.ml:1240:63>>*/ }
+   }
    function get_formatter_stag_functions(v){
-     /*<<format.ml:1242:2>>*/ return  /*<<format.ml:1242:2>>*/ pp_get_formatter_stag_function
-             /*<<format.ml:1242:2>>*/ ( /*<<format.ml:1242:34>>*/ caml_call1
-               /*<<format.ml:1242:34>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1242:2>>*/ return pp_get_formatter_stag_function
+            ( /*<<format.ml:1242:34>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1242:63>>*/ ;
-    /*<<format.ml:1242:63>>*/ }
+   }
    function set_print_tags(v){
-     /*<<format.ml:1244:2>>*/ return  /*<<format.ml:1244:2>>*/ pp_set_print_tags
-             /*<<format.ml:1244:2>>*/ ( /*<<format.ml:1244:20>>*/ caml_call1
-               /*<<format.ml:1244:20>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1244:2>>*/ return pp_set_print_tags
+            ( /*<<format.ml:1244:20>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1244:49>>*/ ;
-    /*<<format.ml:1244:49>>*/ }
+   }
    function get_print_tags(v){
     var
      state =
-        /*<<format.ml:1246:20>>*/  /*<<format.ml:1246:20>>*/ caml_call1
-         /*<<format.ml:1246:20>>*/ (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1246:20>>*/ caml_call1
+        (Stdlib_Domain[10][2], std_formatter_key);
     return state[22];
     /*<<format.ml:1246:49>>*/ }
    function set_mark_tags(v){
-     /*<<format.ml:1248:2>>*/ return  /*<<format.ml:1248:2>>*/ pp_set_mark_tags
-             /*<<format.ml:1248:2>>*/ ( /*<<format.ml:1248:19>>*/ caml_call1
-               /*<<format.ml:1248:19>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1248:2>>*/ return pp_set_mark_tags
+            ( /*<<format.ml:1248:19>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1248:48>>*/ ;
-    /*<<format.ml:1248:48>>*/ }
+   }
    function get_mark_tags(v){
     var
      state =
-        /*<<format.ml:1250:19>>*/  /*<<format.ml:1250:19>>*/ caml_call1
-         /*<<format.ml:1250:19>>*/ (Stdlib_Domain[10][2], std_formatter_key);
+        /*<<format.ml:1250:19>>*/ caml_call1
+        (Stdlib_Domain[10][2], std_formatter_key);
     return state[23];
     /*<<format.ml:1250:48>>*/ }
    function set_tags(v){
-     /*<<format.ml:1252:2>>*/ return  /*<<format.ml:1252:2>>*/ pp_set_tags
-             /*<<format.ml:1252:2>>*/ ( /*<<format.ml:1252:14>>*/ caml_call1
-               /*<<format.ml:1252:14>>*/ (Stdlib_Domain[10][2],
-               std_formatter_key),
+     /*<<format.ml:1252:2>>*/ return pp_set_tags
+            ( /*<<format.ml:1252:14>>*/ caml_call1
+              (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1252:43>>*/ ;
-    /*<<format.ml:1252:43>>*/ }
+   }
    function pp_print_iter(opt, iter, pp_v, ppf, v){
     var
      pp_sep = opt ? opt[1] : pp_print_cut,
@@ -33752,54 +27839,36 @@
       /*<<format.ml:1260:4>>*/ if(is_first[1])
       is_first[1] = 0;
      else
-       /*<<format.ml:1260:45>>*/  /*<<format.ml:1260:45>>*/ caml_call2
-        /*<<format.ml:1260:45>>*/ (pp_sep, ppf, 0);
-      /*<<format.ml:1260:45>>*/ return  /*<<format.ml:1260:45>>*/ caml_call2
-              /*<<format.ml:1260:45>>*/ (pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
-     /*<<format.ml:1261:14>>*/ }
-     /*<<format.ml:1263:2>>*/ return  /*<<format.ml:1263:2>>*/ caml_call2
-             /*<<format.ml:1263:2>>*/ (iter, pp_v$0, v) /*<<format.ml:1263:13>>*/ ;
-    /*<<format.ml:1263:13>>*/ }
+       /*<<format.ml:1260:45>>*/ caml_call2(pp_sep, ppf, 0);
+     return caml_call2(pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
+    }
+     /*<<format.ml:1263:2>>*/ return caml_call2(iter, pp_v$0, v) /*<<format.ml:1263:13>>*/ ;
+   }
    function pp_print_list(opt, pp_v, ppf, v){
     var pp_sep = opt ? opt[1] : pp_print_cut;
-     /*<<format.ml:1267:2>>*/ return  /*<<format.ml:1267:2>>*/ pp_print_iter
-             /*<<format.ml:1267:2>>*/ ([0, pp_sep],
-             Stdlib_List[18],
-             pp_v,
-             ppf,
-             v) /*<<format.ml:1267:44>>*/ ;
-    /*<<format.ml:1267:44>>*/ }
+     /*<<format.ml:1267:2>>*/ return pp_print_iter
+            ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v) /*<<format.ml:1267:44>>*/ ;
+   }
    function pp_print_array(opt, pp_v, ppf, v){
     var pp_sep = opt ? opt[1] : pp_print_cut;
-     /*<<format.ml:1271:2>>*/ return  /*<<format.ml:1271:2>>*/ pp_print_iter
-             /*<<format.ml:1271:2>>*/ ([0, pp_sep],
-             Stdlib_Array[12],
-             pp_v,
-             ppf,
-             v) /*<<format.ml:1271:45>>*/ ;
-    /*<<format.ml:1271:45>>*/ }
+     /*<<format.ml:1271:2>>*/ return pp_print_iter
+            ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v) /*<<format.ml:1271:45>>*/ ;
+   }
    function pp_print_seq(opt, pp_v, ppf, seq){
     var pp_sep = opt ? opt[1] : pp_print_cut;
-     /*<<format.ml:1275:2>>*/ return  /*<<format.ml:1275:2>>*/ pp_print_iter
-             /*<<format.ml:1275:2>>*/ ([0, pp_sep],
-             Stdlib_Seq[4],
-             pp_v,
-             ppf,
-             seq) /*<<format.ml:1275:45>>*/ ;
-    /*<<format.ml:1275:45>>*/ }
+     /*<<format.ml:1275:2>>*/ return pp_print_iter
+            ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq) /*<<format.ml:1275:45>>*/ ;
+   }
    function pp_print_text(ppf, s){
     var
      len = caml_ml_string_length(s),
      left =  /*<<format.ml:1280:13>>*/ [0, 0],
      right =  /*<<format.ml:1281:14>>*/ [0, 0];
     function flush(param){
-      /*<<format.ml:1283:4>>*/  /*<<format.ml:1283:4>>*/ pp_print_string
-       /*<<format.ml:1283:4>>*/ (ppf,
+      /*<<format.ml:1283:4>>*/ pp_print_string
+      (ppf,
         /*<<format.ml:1283:24>>*/ caml_call3
-         /*<<format.ml:1283:24>>*/ (Stdlib_String[16],
-         s,
-         left[1],
-         right[1] - left[1] | 0));
+        (Stdlib_String[16], s, left[1], right[1] - left[1] | 0));
      right[1]++;
      left[1] = right[1];
      return 0;
@@ -33807,25 +27876,17 @@
     for(;;){
      if(right[1] === len){
       var _O_ = left[1] !== len ? 1 : 0;
-      return _O_
-              ?  /*<<format.ml:1297:23>>*/ flush /*<<format.ml:1297:23>>*/ (0)
-              : _O_ /*<<format.ml:1297:31>>*/ ;
+      return _O_ ?  /*<<format.ml:1297:23>>*/ flush(0) : _O_ /*<<format.ml:1297:31>>*/ ;
      }
      var
-      match =
-         /*<<format.ml:1287:10>>*/  /*<<format.ml:1287:10>>*/ runtime.caml_string_get
-          /*<<format.ml:1287:10>>*/ (s, right[1]);
+      match =  /*<<format.ml:1287:10>>*/ runtime.caml_string_get(s, right[1]);
      if(10 === match){
-       /*<<format.ml:1289:8>>*/  /*<<format.ml:1289:8>>*/ flush
-        /*<<format.ml:1289:8>>*/ (0);
-       /*<<format.ml:1290:8>>*/  /*<<format.ml:1290:8>>*/ pp_force_newline
-        /*<<format.ml:1290:8>>*/ (ppf, 0);
+       /*<<format.ml:1289:8>>*/ flush(0);
+       /*<<format.ml:1290:8>>*/ pp_force_newline(ppf, 0);
      }
      else if(32 === match){
-       /*<<format.ml:1292:8>>*/  /*<<format.ml:1292:8>>*/ flush
-        /*<<format.ml:1292:8>>*/ (0);
-       /*<<format.ml:1292:18>>*/  /*<<format.ml:1292:18>>*/ pp_print_space
-        /*<<format.ml:1292:18>>*/ (ppf, 0);
+       /*<<format.ml:1292:8>>*/ flush(0);
+       /*<<format.ml:1292:18>>*/ pp_print_space(ppf, 0);
      }
      else
       right[1]++;
@@ -33838,103 +27899,74 @@
         ? opt[1]
         : function
          (_N_, param){
-           /*<<format.ml:1299:41>>*/ return 0 /*<<format.ml:1299:41>>*/ ;
+           /*<<format.ml:1299:41>>*/ return 0;
           /*<<format.ml:1299:43>>*/ };
     if(! param)
-      /*<<format.ml:1300:10>>*/ return  /*<<format.ml:1300:10>>*/ caml_call2
-              /*<<format.ml:1300:10>>*/ (none, ppf, 0) /*<<format.ml:1301:22>>*/ ;
+      /*<<format.ml:1300:10>>*/ return caml_call2(none, ppf, 0) /*<<format.ml:1301:22>>*/ ;
     var v = param[1];
-     /*<<format.ml:1301:12>>*/ return  /*<<format.ml:1301:12>>*/ caml_call2
-             /*<<format.ml:1301:12>>*/ (pp_v, ppf, v) /*<<format.ml:1301:22>>*/ ;
-    /*<<format.ml:1301:22>>*/ }
+     /*<<format.ml:1301:12>>*/ return caml_call2(pp_v, ppf, v) /*<<format.ml:1301:22>>*/ ;
+   }
    function pp_print_result(ok, error, ppf, param){
      /*<<format.ml:1303:20>>*/ if(0 === param[0]){
      var v = param[1];
-      /*<<format.ml:1304:10>>*/ return  /*<<format.ml:1304:10>>*/ caml_call2
-              /*<<format.ml:1304:10>>*/ (ok, ppf, v) /*<<format.ml:1305:24>>*/ ;
+      /*<<format.ml:1304:10>>*/ return caml_call2(ok, ppf, v) /*<<format.ml:1305:24>>*/ ;
     }
     var e = param[1];
-     /*<<format.ml:1305:13>>*/ return  /*<<format.ml:1305:13>>*/ caml_call2
-             /*<<format.ml:1305:13>>*/ (error, ppf, e) /*<<format.ml:1305:24>>*/ ;
-    /*<<format.ml:1305:24>>*/ }
+     /*<<format.ml:1305:13>>*/ return caml_call2(error, ppf, e) /*<<format.ml:1305:24>>*/ ;
+   }
    function pp_print_either(left, right, ppf, param){
      /*<<format.ml:1307:20>>*/ if(0 === param[0]){
      var l = param[1];
-      /*<<format.ml:1308:19>>*/ return  /*<<format.ml:1308:19>>*/ caml_call2
-              /*<<format.ml:1308:19>>*/ (left, ppf, l) /*<<format.ml:1309:31>>*/ ;
+      /*<<format.ml:1308:19>>*/ return caml_call2(left, ppf, l) /*<<format.ml:1309:31>>*/ ;
     }
     var r = param[1];
-     /*<<format.ml:1309:20>>*/ return  /*<<format.ml:1309:20>>*/ caml_call2
-             /*<<format.ml:1309:20>>*/ (right, ppf, r) /*<<format.ml:1309:31>>*/ ;
-    /*<<format.ml:1309:31>>*/ }
+     /*<<format.ml:1309:20>>*/ return caml_call2(right, ppf, r) /*<<format.ml:1309:31>>*/ ;
+   }
    function compute_tag(output, tag_acc){
     var
-     buf =
-        /*<<format.ml:1314:12>>*/  /*<<format.ml:1314:12>>*/ caml_call1
-         /*<<format.ml:1314:12>>*/ (Stdlib_Buffer[1], 16),
-     ppf =
-        /*<<format.ml:1315:12>>*/  /*<<format.ml:1315:12>>*/ formatter_of_buffer
-         /*<<format.ml:1315:12>>*/ (buf);
-     /*<<format.ml:1316:2>>*/  /*<<format.ml:1316:2>>*/ caml_call2
-      /*<<format.ml:1316:2>>*/ (output, ppf, tag_acc);
-     /*<<format.ml:1317:2>>*/  /*<<format.ml:1317:2>>*/ pp_print_flush
-      /*<<format.ml:1317:2>>*/ (ppf, 0);
-    var
-     len =
-        /*<<format.ml:1318:12>>*/  /*<<format.ml:1318:12>>*/ caml_call1
-         /*<<format.ml:1318:12>>*/ (Stdlib_Buffer[7], buf);
+     buf =  /*<<format.ml:1314:12>>*/ caml_call1(Stdlib_Buffer[1], 16),
+     ppf =  /*<<format.ml:1315:12>>*/ formatter_of_buffer(buf);
+     /*<<format.ml:1316:2>>*/ caml_call2(output, ppf, tag_acc);
+     /*<<format.ml:1317:2>>*/ pp_print_flush(ppf, 0);
+    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:1320:7>>*/ (Stdlib_Buffer[4],
-               buf,
-               1,
-               len - 2 | 0)
-            :  /*<<format.ml:1319:18>>*/ caml_call1
-               /*<<format.ml:1319:18>>*/ (Stdlib_Buffer[2], buf) /*<<format.ml:1320:33>>*/ ;
-    /*<<format.ml:1320:33>>*/ }
+              (Stdlib_Buffer[4], buf, 1, len - 2 | 0)
+            :  /*<<format.ml:1319:18>>*/ caml_call1(Stdlib_Buffer[2], buf) /*<<format.ml:1320:33>>*/ ;
+   }
    function output_formatting_lit(ppf, fmting_lit){
      /*<<format.ml:1333:43>>*/ if(typeof fmting_lit === "number")
      switch(fmting_lit){
        case 0:
-         /*<<format.ml:1334:33>>*/ return  /*<<format.ml:1334:33>>*/ pp_close_box
-                 /*<<format.ml:1334:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1334:33>>*/ return pp_close_box(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 1:
-         /*<<format.ml:1335:33>>*/ return  /*<<format.ml:1335:33>>*/ pp_close_stag
-                 /*<<format.ml:1335:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1335:33>>*/ return pp_close_stag(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 2:
-         /*<<format.ml:1337:33>>*/ return  /*<<format.ml:1337:33>>*/ pp_print_flush
-                 /*<<format.ml:1337:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1337:33>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 3:
-         /*<<format.ml:1338:33>>*/ return  /*<<format.ml:1338:33>>*/ pp_force_newline
-                 /*<<format.ml:1338:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1338:33>>*/ return pp_force_newline(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 4:
-         /*<<format.ml:1339:33>>*/ return  /*<<format.ml:1339:33>>*/ pp_print_newline
-                 /*<<format.ml:1339:33>>*/ (ppf, 0) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1339:33>>*/ return pp_print_newline(ppf, 0) /*<<format.ml:1343:75>>*/ ;
        case 5:
-         /*<<format.ml:1341:33>>*/ return  /*<<format.ml:1341:33>>*/ pp_print_char
-                 /*<<format.ml:1341:33>>*/ (ppf, 64) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1341:33>>*/ return pp_print_char(ppf, 64) /*<<format.ml:1343:75>>*/ ;
        default:
-         /*<<format.ml:1342:33>>*/ return  /*<<format.ml:1342:33>>*/ pp_print_char
-                 /*<<format.ml:1342:33>>*/ (ppf, 37) /*<<format.ml:1343:75>>*/ ;
+         /*<<format.ml:1342:33>>*/ return pp_print_char(ppf, 37) /*<<format.ml:1343:75>>*/ ;
      }
     switch(fmting_lit[0]){
       case 0:
        var offset = fmting_lit[3], width = fmting_lit[2];
-        /*<<format.ml:1336:33>>*/ return  /*<<format.ml:1336:33>>*/ pp_print_break
-                /*<<format.ml:1336:33>>*/ (ppf, width, offset) /*<<format.ml:1343:75>>*/ ;
+        /*<<format.ml:1336:33>>*/ return pp_print_break(ppf, width, offset) /*<<format.ml:1343:75>>*/ ;
       case 1:
-        /*<<format.ml:1340:33>>*/ return 0 /*<<format.ml:1340:33>>*/ ;
+        /*<<format.ml:1340:33>>*/ return 0;
       default:
        var c = fmting_lit[1];
-        /*<<format.ml:1343:33>>*/  /*<<format.ml:1343:33>>*/ pp_print_char
-         /*<<format.ml:1343:33>>*/ (ppf, 64);
-        /*<<format.ml:1343:33>>*/ return  /*<<format.ml:1343:33>>*/ pp_print_char
-                /*<<format.ml:1343:33>>*/ (ppf, c) /*<<format.ml:1343:75>>*/ ;
+        /*<<format.ml:1343:33>>*/ pp_print_char(ppf, 64);
+       return pp_print_char(ppf, c) /*<<format.ml:1343:75>>*/ ;
     }
-    /*<<format.ml:1343:75>>*/ }
+   }
    function output_acc(ppf, acc){
      /*<<format.ml:1349:29>>*/ if(typeof acc === "number")
-      /*<<format.ml:1375:32>>*/ return 0 /*<<format.ml:1375:32>>*/ ;
+      /*<<format.ml:1375:32>>*/ return 0;
     a:
     {
      b:
@@ -33944,37 +27976,29 @@
        switch(acc[0]){
          case 0:
           var f = acc[2], p = acc[1];
-           /*<<format.ml:1359:4>>*/  /*<<format.ml:1359:4>>*/ output_acc
-            /*<<format.ml:1359:4>>*/ (ppf, p);
-           /*<<format.ml:1359:4>>*/ return  /*<<format.ml:1359:4>>*/ output_formatting_lit
-                   /*<<format.ml:1359:4>>*/ (ppf, f) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1359:4>>*/ output_acc(ppf, p);
+          return output_formatting_lit(ppf, f) /*<<format.ml:1375:34>>*/ ;
          case 1:
           var match = acc[2], p$0 = acc[1];
           if(0 === match[0]){
            var acc$0 = match[1];
-            /*<<format.ml:1362:4>>*/  /*<<format.ml:1362:4>>*/ output_acc
-             /*<<format.ml:1362:4>>*/ (ppf, p$0);
-            /*<<format.ml:1363:21>>*/ return  /*<<format.ml:1363:21>>*/ pp_open_stag
-                    /*<<format.ml:1363:21>>*/ (ppf,
+            /*<<format.ml:1362:4>>*/ output_acc(ppf, p$0);
+            /*<<format.ml:1363:21>>*/ return pp_open_stag
+                   (ppf,
                     [0,
                      String_tag,
-                      /*<<format.ml:1363:33>>*/ compute_tag
-                       /*<<format.ml:1363:33>>*/ (output_acc, acc$0)]) /*<<format.ml:1375:34>>*/ ;
+                      /*<<format.ml:1363:33>>*/ compute_tag(output_acc, acc$0)]) /*<<format.ml:1375:34>>*/ ;
           }
           var acc$1 = match[1];
-           /*<<format.ml:1365:4>>*/  /*<<format.ml:1365:4>>*/ output_acc
-            /*<<format.ml:1365:4>>*/ (ppf, p$0);
+           /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
           var
-           _E_ =
-              /*<<format.ml:1366:43>>*/  /*<<format.ml:1366:43>>*/ compute_tag
-               /*<<format.ml:1366:43>>*/ (output_acc, acc$1),
+           _E_ =  /*<<format.ml:1366:43>>*/ compute_tag(output_acc, acc$1),
            match$0 =
-              /*<<format.ml:1366:24>>*/  /*<<format.ml:1366:24>>*/ caml_call1
-               /*<<format.ml:1366:24>>*/ (CamlinternalFormat[20], _E_),
+              /*<<format.ml:1366:24>>*/ caml_call1
+              (CamlinternalFormat[20], _E_),
            bty = match$0[2],
            indent = match$0[1];
-           /*<<format.ml:1367:4>>*/ return  /*<<format.ml:1367:4>>*/ pp_open_box_gen
-                   /*<<format.ml:1367:4>>*/ (ppf, indent, bty) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1367:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1375:34>>*/ ;
          case 2:
           var _F_ = acc[1];
           if(typeof _F_ !== "number" && 0 === _F_[0]){
@@ -34021,49 +28045,33 @@
           break c;
          case 6:
           var f$0 = acc[2], p$5 = acc[1];
-           /*<<format.ml:1372:32>>*/  /*<<format.ml:1372:32>>*/ output_acc
-            /*<<format.ml:1372:32>>*/ (ppf, p$5);
-           /*<<format.ml:1372:32>>*/ return  /*<<format.ml:1372:32>>*/ caml_call1
-                   /*<<format.ml:1372:32>>*/ (f$0, ppf) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1372:32>>*/ output_acc(ppf, p$5);
+          return caml_call1(f$0, ppf) /*<<format.ml:1375:34>>*/ ;
          case 7:
           var p$6 = acc[1];
-           /*<<format.ml:1373:32>>*/  /*<<format.ml:1373:32>>*/ output_acc
-            /*<<format.ml:1373:32>>*/ (ppf, p$6);
-           /*<<format.ml:1373:32>>*/ return  /*<<format.ml:1373:32>>*/ pp_print_flush
-                   /*<<format.ml:1373:32>>*/ (ppf, 0) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1373:32>>*/ output_acc(ppf, p$6);
+          return pp_print_flush(ppf, 0) /*<<format.ml:1375:34>>*/ ;
          default:
           var msg = acc[2], p$7 = acc[1];
-           /*<<format.ml:1374:32>>*/  /*<<format.ml:1374:32>>*/ output_acc
-            /*<<format.ml:1374:32>>*/ (ppf, p$7);
-           /*<<format.ml:1374:32>>*/ return  /*<<format.ml:1374:32>>*/ caml_call1
-                   /*<<format.ml:1374:32>>*/ (Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1374:32>>*/ output_acc(ppf, p$7);
+          return caml_call1(Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
        }
-        /*<<format.ml:1356:4>>*/  /*<<format.ml:1356:4>>*/ output_acc
-         /*<<format.ml:1356:4>>*/ (ppf, p$4);
-        /*<<format.ml:1357:44>>*/ return  /*<<format.ml:1357:44>>*/ pp_print_as_size
-                /*<<format.ml:1357:44>>*/ (ppf,
-                size$0,
-                 /*<<format.ml:1357:44>>*/ caml_call2
-                  /*<<format.ml:1357:44>>*/ (Stdlib_String[1], 1, c$0)) /*<<format.ml:1375:34>>*/ ;
+        /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
+        /*<<format.ml:1357:44>>*/ return pp_print_as_size
+               (ppf, size$0, caml_call2(Stdlib_String[1], 1, c$0)) /*<<format.ml:1375:34>>*/ ;
       }
-       /*<<format.ml:1371:32>>*/  /*<<format.ml:1371:32>>*/ output_acc
-        /*<<format.ml:1371:32>>*/ (ppf, p$3);
-       /*<<format.ml:1371:32>>*/ return  /*<<format.ml:1371:32>>*/ pp_print_char
-               /*<<format.ml:1371:32>>*/ (ppf, c) /*<<format.ml:1375:34>>*/ ;
-     }
-      /*<<format.ml:1352:4>>*/  /*<<format.ml:1352:4>>*/ output_acc
-       /*<<format.ml:1352:4>>*/ (ppf, p$2);
-      /*<<format.ml:1352:4>>*/ return  /*<<format.ml:1352:4>>*/ pp_print_as_size
-              /*<<format.ml:1352:4>>*/ (ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
-    }
-     /*<<format.ml:1369:32>>*/  /*<<format.ml:1369:32>>*/ output_acc
-      /*<<format.ml:1369:32>>*/ (ppf, p$1);
-     /*<<format.ml:1369:32>>*/ return  /*<<format.ml:1369:32>>*/ pp_print_string
-             /*<<format.ml:1369:32>>*/ (ppf, s) /*<<format.ml:1375:34>>*/ ;
-    /*<<format.ml:1375:34>>*/ }
+       /*<<format.ml:1371:32>>*/ output_acc(ppf, p$3);
+      return pp_print_char(ppf, c) /*<<format.ml:1375:34>>*/ ;
+     }
+      /*<<format.ml:1352:4>>*/ output_acc(ppf, p$2);
+     return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
+    }
+     /*<<format.ml:1369:32>>*/ output_acc(ppf, p$1);
+    return pp_print_string(ppf, s) /*<<format.ml:1375:34>>*/ ;
+   }
    function strput_acc(ppf, acc){
      /*<<format.ml:1381:29>>*/ if(typeof acc === "number")
-      /*<<format.ml:1410:32>>*/ return 0 /*<<format.ml:1410:32>>*/ ;
+      /*<<format.ml:1410:32>>*/ return 0;
     a:
     {
      b:
@@ -34073,37 +28081,29 @@
        switch(acc[0]){
          case 0:
           var f = acc[2], p = acc[1];
-           /*<<format.ml:1394:4>>*/  /*<<format.ml:1394:4>>*/ strput_acc
-            /*<<format.ml:1394:4>>*/ (ppf, p);
-           /*<<format.ml:1394:4>>*/ return  /*<<format.ml:1394:4>>*/ output_formatting_lit
-                   /*<<format.ml:1394:4>>*/ (ppf, f) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1394:4>>*/ strput_acc(ppf, p);
+          return output_formatting_lit(ppf, f) /*<<format.ml:1410:34>>*/ ;
          case 1:
           var match = acc[2], p$0 = acc[1];
           if(0 === match[0]){
            var acc$0 = match[1];
-            /*<<format.ml:1397:4>>*/  /*<<format.ml:1397:4>>*/ strput_acc
-             /*<<format.ml:1397:4>>*/ (ppf, p$0);
-            /*<<format.ml:1398:21>>*/ return  /*<<format.ml:1398:21>>*/ pp_open_stag
-                    /*<<format.ml:1398:21>>*/ (ppf,
+            /*<<format.ml:1397:4>>*/ strput_acc(ppf, p$0);
+            /*<<format.ml:1398:21>>*/ return pp_open_stag
+                   (ppf,
                     [0,
                      String_tag,
-                      /*<<format.ml:1398:33>>*/ compute_tag
-                       /*<<format.ml:1398:33>>*/ (strput_acc, acc$0)]) /*<<format.ml:1410:34>>*/ ;
+                      /*<<format.ml:1398:33>>*/ compute_tag(strput_acc, acc$0)]) /*<<format.ml:1410:34>>*/ ;
           }
           var acc$1 = match[1];
-           /*<<format.ml:1400:4>>*/  /*<<format.ml:1400:4>>*/ strput_acc
-            /*<<format.ml:1400:4>>*/ (ppf, p$0);
+           /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
           var
-           _v_ =
-              /*<<format.ml:1401:43>>*/  /*<<format.ml:1401:43>>*/ compute_tag
-               /*<<format.ml:1401:43>>*/ (strput_acc, acc$1),
+           _v_ =  /*<<format.ml:1401:43>>*/ compute_tag(strput_acc, acc$1),
            match$0 =
-              /*<<format.ml:1401:24>>*/  /*<<format.ml:1401:24>>*/ caml_call1
-               /*<<format.ml:1401:24>>*/ (CamlinternalFormat[20], _v_),
+              /*<<format.ml:1401:24>>*/ caml_call1
+              (CamlinternalFormat[20], _v_),
            bty = match$0[2],
            indent = match$0[1];
-           /*<<format.ml:1402:4>>*/ return  /*<<format.ml:1402:4>>*/ pp_open_box_gen
-                   /*<<format.ml:1402:4>>*/ (ppf, indent, bty) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1402:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1410:34>>*/ ;
          case 2:
           var _w_ = acc[1];
           if(typeof _w_ !== "number" && 0 === _w_[0]){
@@ -34154,83 +28154,61 @@
            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>>*/  /*<<format.ml:1391:4>>*/ strput_acc
-              /*<<format.ml:1391:4>>*/ (ppf, p$6);
-             /*<<format.ml:1392:44>>*/ return  /*<<format.ml:1392:44>>*/ pp_print_as_size
-                     /*<<format.ml:1392:44>>*/ (ppf,
-                     size$1,
-                      /*<<format.ml:1392:44>>*/ caml_call1
-                       /*<<format.ml:1392:44>>*/ (f$1, 0)) /*<<format.ml:1410:34>>*/ ;
+             /*<<format.ml:1391:4>>*/ strput_acc(ppf, p$6);
+             /*<<format.ml:1392:44>>*/ return pp_print_as_size
+                    (ppf, size$1, caml_call1(f$1, 0)) /*<<format.ml:1410:34>>*/ ;
            }
           }
           var f$0 = acc[2];
-           /*<<format.ml:1407:32>>*/  /*<<format.ml:1407:32>>*/ strput_acc
-            /*<<format.ml:1407:32>>*/ (ppf, p$5);
-           /*<<format.ml:1407:70>>*/ return  /*<<format.ml:1407:70>>*/ pp_print_string
-                   /*<<format.ml:1407:70>>*/ (ppf,
-                    /*<<format.ml:1407:70>>*/ caml_call1
-                     /*<<format.ml:1407:70>>*/ (f$0, 0)) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1407:32>>*/ strput_acc(ppf, p$5);
+           /*<<format.ml:1407:70>>*/ return pp_print_string
+                  (ppf, caml_call1(f$0, 0)) /*<<format.ml:1410:34>>*/ ;
          case 7:
           var p$7 = acc[1];
-           /*<<format.ml:1408:32>>*/  /*<<format.ml:1408:32>>*/ strput_acc
-            /*<<format.ml:1408:32>>*/ (ppf, p$7);
-           /*<<format.ml:1408:32>>*/ return  /*<<format.ml:1408:32>>*/ pp_print_flush
-                   /*<<format.ml:1408:32>>*/ (ppf, 0) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1408:32>>*/ strput_acc(ppf, p$7);
+          return pp_print_flush(ppf, 0) /*<<format.ml:1410:34>>*/ ;
          default:
           var msg = acc[2], p$8 = acc[1];
-           /*<<format.ml:1409:32>>*/  /*<<format.ml:1409:32>>*/ strput_acc
-            /*<<format.ml:1409:32>>*/ (ppf, p$8);
-           /*<<format.ml:1409:32>>*/ return  /*<<format.ml:1409:32>>*/ caml_call1
-                   /*<<format.ml:1409:32>>*/ (Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1409:32>>*/ strput_acc(ppf, p$8);
+          return caml_call1(Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
        }
-        /*<<format.ml:1388:4>>*/  /*<<format.ml:1388:4>>*/ strput_acc
-         /*<<format.ml:1388:4>>*/ (ppf, p$4);
-        /*<<format.ml:1389:44>>*/ return  /*<<format.ml:1389:44>>*/ pp_print_as_size
-                /*<<format.ml:1389:44>>*/ (ppf,
-                size$0,
-                 /*<<format.ml:1389:44>>*/ caml_call2
-                  /*<<format.ml:1389:44>>*/ (Stdlib_String[1], 1, c$0)) /*<<format.ml:1410:34>>*/ ;
+        /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
+        /*<<format.ml:1389:44>>*/ return pp_print_as_size
+               (ppf, size$0, caml_call2(Stdlib_String[1], 1, c$0)) /*<<format.ml:1410:34>>*/ ;
       }
-       /*<<format.ml:1406:32>>*/  /*<<format.ml:1406:32>>*/ strput_acc
-        /*<<format.ml:1406:32>>*/ (ppf, p$3);
-       /*<<format.ml:1406:32>>*/ return  /*<<format.ml:1406:32>>*/ pp_print_char
-               /*<<format.ml:1406:32>>*/ (ppf, c) /*<<format.ml:1410:34>>*/ ;
-     }
-      /*<<format.ml:1384:4>>*/  /*<<format.ml:1384:4>>*/ strput_acc
-       /*<<format.ml:1384:4>>*/ (ppf, p$2);
-      /*<<format.ml:1384:4>>*/ return  /*<<format.ml:1384:4>>*/ pp_print_as_size
-              /*<<format.ml:1384:4>>*/ (ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
-    }
-     /*<<format.ml:1404:32>>*/  /*<<format.ml:1404:32>>*/ strput_acc
-      /*<<format.ml:1404:32>>*/ (ppf, p$1);
-     /*<<format.ml:1404:32>>*/ return  /*<<format.ml:1404:32>>*/ pp_print_string
-             /*<<format.ml:1404:32>>*/ (ppf, s) /*<<format.ml:1410:34>>*/ ;
-    /*<<format.ml:1410:34>>*/ }
+       /*<<format.ml:1406:32>>*/ strput_acc(ppf, p$3);
+      return pp_print_char(ppf, c) /*<<format.ml:1410:34>>*/ ;
+     }
+      /*<<format.ml:1384:4>>*/ strput_acc(ppf, p$2);
+     return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
+    }
+     /*<<format.ml:1404:32>>*/ strput_acc(ppf, p$1);
+    return pp_print_string(ppf, s) /*<<format.ml:1410:34>>*/ ;
+   }
    function kfprintf(k, ppf, param){
     var fmt = param[1];
-     /*<<format.ml:1419:2>>*/ return  /*<<format.ml:1419:2>>*/ caml_call3
-             /*<<format.ml:1419:2>>*/ (CamlinternalFormat[7],
+     /*<<format.ml:1419:2>>*/ return caml_call3
+            (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1420:16>>*/  /*<<format.ml:1420:16>>*/ output_acc
-                /*<<format.ml:1420:16>>*/ (ppf, acc);
+               /*<<format.ml:1420:16>>*/ output_acc(ppf, acc);
               return caml_call1(k, ppf) /*<<format.ml:1420:41>>*/ ;
-              /*<<format.ml:1420:41>>*/ },
+             },
              0,
              fmt) /*<<format.ml:1421:18>>*/ ;
-    /*<<format.ml:1421:18>>*/ }
+   }
    function ikfprintf(k, ppf, param){
     var fmt = param[1];
-     /*<<format.ml:1424:2>>*/ return  /*<<format.ml:1424:2>>*/ caml_call3
-             /*<<format.ml:1424:2>>*/ (CamlinternalFormat[8], k, ppf, fmt) /*<<format.ml:1424:24>>*/ ;
-    /*<<format.ml:1424:24>>*/ }
+     /*<<format.ml:1424:2>>*/ return caml_call3
+            (CamlinternalFormat[8], k, ppf, fmt) /*<<format.ml:1424:24>>*/ ;
+   }
    function ifprintf(ppf, param){
     var fmt = param[1];
-     /*<<format.ml:1427:2>>*/ return  /*<<format.ml:1427:2>>*/ caml_call3
-             /*<<format.ml:1427:2>>*/ (CamlinternalFormat[8],
+     /*<<format.ml:1427:2>>*/ return caml_call3
+            (CamlinternalFormat[8],
              function(_u_){ /*<<?>>*/ return 0;},
              0,
              fmt) /*<<format.ml:1427:28>>*/ ;
-    /*<<format.ml:1427:28>>*/ }
+   }
    function fprintf(ppf){
     function _r_(_t_){ /*<<?>>*/ return 0;}
      /*<<format.ml:1429:18>>*/ return function(_s_){
@@ -34238,156 +28216,134 @@
     /*<<format.ml:1429:37>>*/ }
    function printf(param){
     var fmt = param[1];
-     /*<<format.ml:1432:2>>*/ return  /*<<format.ml:1432:2>>*/ caml_call3
-             /*<<format.ml:1432:2>>*/ (CamlinternalFormat[7],
+     /*<<format.ml:1432:2>>*/ return caml_call3
+            (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1433:16>>*/ return  /*<<format.ml:1433:16>>*/ output_acc
-                       /*<<format.ml:1433:16>>*/ ( /*<<format.ml:1433:27>>*/ caml_call1
-                         /*<<format.ml:1433:27>>*/ (Stdlib_Domain[10][2],
-                         std_formatter_key),
+               /*<<format.ml:1433:16>>*/ return output_acc
+                      ( /*<<format.ml:1433:27>>*/ caml_call1
+                        (Stdlib_Domain[10][2], std_formatter_key),
                        acc) /*<<format.ml:1433:58>>*/ ;
-              /*<<format.ml:1433:58>>*/ },
+             },
              0,
              fmt) /*<<format.ml:1434:18>>*/ ;
-    /*<<format.ml:1434:18>>*/ }
+   }
    function eprintf(param){
     var fmt = param[1];
-     /*<<format.ml:1437:2>>*/ return  /*<<format.ml:1437:2>>*/ caml_call3
-             /*<<format.ml:1437:2>>*/ (CamlinternalFormat[7],
+     /*<<format.ml:1437:2>>*/ return caml_call3
+            (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1438:16>>*/ return  /*<<format.ml:1438:16>>*/ output_acc
-                       /*<<format.ml:1438:16>>*/ ( /*<<format.ml:1438:27>>*/ caml_call1
-                         /*<<format.ml:1438:27>>*/ (Stdlib_Domain[10][2],
-                         err_formatter_key),
+               /*<<format.ml:1438:16>>*/ return output_acc
+                      ( /*<<format.ml:1438:27>>*/ caml_call1
+                        (Stdlib_Domain[10][2], err_formatter_key),
                        acc) /*<<format.ml:1438:58>>*/ ;
-              /*<<format.ml:1438:58>>*/ },
+             },
              0,
              fmt) /*<<format.ml:1439:18>>*/ ;
-    /*<<format.ml:1439:18>>*/ }
+   }
    function kdprintf(k, param){
     var fmt = param[1];
-     /*<<format.ml:1442:2>>*/ return  /*<<format.ml:1442:2>>*/ caml_call3
-             /*<<format.ml:1442:2>>*/ (CamlinternalFormat[7],
+     /*<<format.ml:1442:2>>*/ return caml_call3
+            (CamlinternalFormat[7],
              function(acc){
                /*<<format.ml:1443:16>>*/ return  /*<<format.ml:1443:18>>*/ caml_call1
-                       /*<<format.ml:1443:18>>*/ (k,
+                      (k,
                        function(ppf){
                          /*<<format.ml:1443:30>>*/ return  /*<<format.ml:1443:16>>*/ output_acc
-                                 /*<<format.ml:1443:16>>*/ (ppf, acc) /*<<format.ml:1443:48>>*/ ;
-                        /*<<format.ml:1443:48>>*/ }) /*<<format.ml:1443:49>>*/ ;
-              /*<<format.ml:1443:49>>*/ },
+                                (ppf, acc) /*<<format.ml:1443:48>>*/ ;
+                       }) /*<<format.ml:1443:49>>*/ ;
+             },
              0,
              fmt) /*<<format.ml:1444:18>>*/ ;
-    /*<<format.ml:1444:18>>*/ }
+   }
    function dprintf(fmt){
-     /*<<format.ml:1446:18>>*/ return  /*<<format.ml:1446:18>>*/ kdprintf
-             /*<<format.ml:1446:18>>*/ (function(i){
-               /*<<format.ml:1446:37>>*/ return i /*<<format.ml:1446:37>>*/ ;
+     /*<<format.ml:1446:18>>*/ return kdprintf
+            (function(i){
+               /*<<format.ml:1446:37>>*/ return i;
               /*<<format.ml:1446:38>>*/ },
              fmt) /*<<format.ml:1446:43>>*/ ;
-    /*<<format.ml:1446:43>>*/ }
+   }
    function ksprintf(k, param){
     var
      fmt = param[1],
-     b =
-        /*<<format.ml:1449:10>>*/  /*<<format.ml:1449:10>>*/ pp_make_buffer
-         /*<<format.ml:1449:10>>*/ (0),
-     ppf =
-        /*<<format.ml:1450:12>>*/  /*<<format.ml:1450:12>>*/ formatter_of_buffer
-         /*<<format.ml:1450:12>>*/ (b);
+     b =  /*<<format.ml:1449:10>>*/ pp_make_buffer(0),
+     ppf =  /*<<format.ml:1450:12>>*/ formatter_of_buffer(b);
     function k$0(acc){
-      /*<<format.ml:1452:4>>*/  /*<<format.ml:1452:4>>*/ strput_acc
-       /*<<format.ml:1452:4>>*/ (ppf, acc);
-      /*<<format.ml:1453:6>>*/ return  /*<<format.ml:1453:6>>*/ caml_call1
-              /*<<format.ml:1453:6>>*/ (k,
-               /*<<format.ml:1453:6>>*/ flush_buffer_formatter
-                /*<<format.ml:1453:6>>*/ (b, ppf)) /*<<format.ml:1453:36>>*/ ;
-     /*<<format.ml:1453:36>>*/ }
-     /*<<format.ml:1454:2>>*/ return  /*<<format.ml:1454:2>>*/ caml_call3
-             /*<<format.ml:1454:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:30>>*/ ;
-    /*<<format.ml:1454:30>>*/ }
+      /*<<format.ml:1452:4>>*/ strput_acc(ppf, acc);
+      /*<<format.ml:1453:6>>*/ return caml_call1
+             (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
+    }
+     /*<<format.ml:1454:2>>*/ return caml_call3
+            (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:30>>*/ ;
+   }
    function sprintf(fmt){
-     /*<<format.ml:1457:18>>*/ return  /*<<format.ml:1457:18>>*/ ksprintf
-             /*<<format.ml:1457:18>>*/ (id, fmt) /*<<format.ml:1457:33>>*/ ;
-    /*<<format.ml:1457:33>>*/ }
+     /*<<format.ml:1457:18>>*/ return ksprintf(id, fmt) /*<<format.ml:1457:33>>*/ ;
+   }
    function kasprintf(k, param){
     var
      fmt = param[1],
-     b =
-        /*<<format.ml:1460:10>>*/  /*<<format.ml:1460:10>>*/ pp_make_buffer
-         /*<<format.ml:1460:10>>*/ (0),
-     ppf =
-        /*<<format.ml:1461:12>>*/  /*<<format.ml:1461:12>>*/ formatter_of_buffer
-         /*<<format.ml:1461:12>>*/ (b);
+     b =  /*<<format.ml:1460:10>>*/ pp_make_buffer(0),
+     ppf =  /*<<format.ml:1461:12>>*/ formatter_of_buffer(b);
     function k$0(acc){
-      /*<<format.ml:1463:4>>*/  /*<<format.ml:1463:4>>*/ output_acc
-       /*<<format.ml:1463:4>>*/ (ppf, acc);
-      /*<<format.ml:1464:6>>*/ return  /*<<format.ml:1464:6>>*/ caml_call1
-              /*<<format.ml:1464:6>>*/ (k,
-               /*<<format.ml:1464:6>>*/ flush_buffer_formatter
-                /*<<format.ml:1464:6>>*/ (b, ppf)) /*<<format.ml:1464:36>>*/ ;
-     /*<<format.ml:1464:36>>*/ }
-     /*<<format.ml:1465:2>>*/ return  /*<<format.ml:1465:2>>*/ caml_call3
-             /*<<format.ml:1465:2>>*/ (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:30>>*/ ;
-    /*<<format.ml:1465:30>>*/ }
+      /*<<format.ml:1463:4>>*/ output_acc(ppf, acc);
+      /*<<format.ml:1464:6>>*/ return caml_call1
+             (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
+    }
+     /*<<format.ml:1465:2>>*/ return caml_call3
+            (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:30>>*/ ;
+   }
    function asprintf(fmt){
-     /*<<format.ml:1468:19>>*/ return  /*<<format.ml:1468:19>>*/ kasprintf
-             /*<<format.ml:1468:19>>*/ (id, fmt) /*<<format.ml:1468:35>>*/ ;
-    /*<<format.ml:1468:35>>*/ }
+     /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt) /*<<format.ml:1468:35>>*/ ;
+   }
    function flush_standard_formatters(param){
-     /*<<format.ml:1473:2>>*/  /*<<format.ml:1473:2>>*/ pp_print_flush
-      /*<<format.ml:1473:2>>*/ ( /*<<format.ml:1473:17>>*/ caml_call1
-        /*<<format.ml:1473:17>>*/ (Stdlib_Domain[10][2], std_formatter_key),
+     /*<<format.ml:1473:2>>*/ pp_print_flush
+     ( /*<<format.ml:1473:17>>*/ caml_call1
+       (Stdlib_Domain[10][2], std_formatter_key),
       0);
-     /*<<format.ml:1473:2>>*/ return  /*<<format.ml:1473:2>>*/ pp_print_flush
-             /*<<format.ml:1473:2>>*/ ( /*<<format.ml:1474:17>>*/ caml_call1
-               /*<<format.ml:1474:17>>*/ (Stdlib_Domain[10][2],
-               err_formatter_key),
+     /*<<format.ml:1473:2>>*/ return pp_print_flush
+            ( /*<<format.ml:1474:17>>*/ caml_call1
+              (Stdlib_Domain[10][2], err_formatter_key),
              0) /*<<format.ml:1474:47>>*/ ;
-    /*<<format.ml:1474:47>>*/ }
-    /*<<format.ml:1476:9>>*/  /*<<format.ml:1476:9>>*/ caml_call1
-     /*<<format.ml:1476:9>>*/ (Stdlib[100], flush_standard_formatters);
-    /*<<format.ml:1478:9>>*/  /*<<format.ml:1478:9>>*/ caml_call1
-     /*<<format.ml:1478:9>>*/ (Stdlib_Domain[5],
+   }
+    /*<<format.ml:1476:9>>*/ caml_call1
+    (Stdlib[100], flush_standard_formatters);
+    /*<<format.ml:1478:9>>*/ caml_call1
+    (Stdlib_Domain[5],
      function(param){
-       /*<<format.ml:1479:2>>*/  /*<<format.ml:1479:2>>*/ flush_standard_formatters
-        /*<<format.ml:1479:2>>*/ (0);
+       /*<<format.ml:1479:2>>*/ flush_standard_formatters(0);
       var
        fs =
-          /*<<format.ml:1480:11>>*/  /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
-           /*<<format.ml:1480:11>>*/ (std_formatter, 0),
+          /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
+          (std_formatter, 0),
        _h_ = Stdlib[39];
-       /*<<format.ml:1481:2>>*/  /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
-        /*<<format.ml:1481:2>>*/ (std_formatter,
+       /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
+       (std_formatter,
         [0,
          function(_o_, _p_, _q_){
            /*<<?>>*/ return buffered_out_string(std_buf_key, _o_, _p_, _q_);
          },
-         function(_n_){
-           /*<<?>>*/ return buffered_out_flush(_h_, std_buf_key, _n_);
-         },
+         function(_n_){return buffered_out_flush(_h_, std_buf_key, _n_);},
          fs[3],
          fs[4],
          fs[5]]);
       var
        fs$0 =
-          /*<<format.ml:1485:11>>*/  /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
-           /*<<format.ml:1485:11>>*/ (err_formatter, 0),
+          /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
+          (err_formatter, 0),
        _i_ = Stdlib[40];
-       /*<<format.ml:1487:4>>*/ return  /*<<format.ml:1487:4>>*/ pp_set_formatter_out_functions
-               /*<<format.ml:1487:4>>*/ (err_formatter,
+       /*<<format.ml:1487:4>>*/ return pp_set_formatter_out_functions
+              (err_formatter,
                [0,
                 function(_k_, _l_, _m_){
                   /*<<?>>*/ return buffered_out_string
                          (err_buf_key, _k_, _l_, _m_);
                 },
                 function(_j_){
-                  /*<<?>>*/ return buffered_out_flush(_i_, err_buf_key, _j_);
+                 return buffered_out_flush(_i_, err_buf_key, _j_);
                 },
                 fs$0[3],
                 fs$0[4],
                 fs$0[5]]) /*<<format.ml:1488:71>>*/ ;
-      /*<<format.ml:1488:71>>*/ });
+     });
    var
     Stdlib_Format =
       [0,
@@ -34552,22 +28508,21 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst$5 =  /*<<?>>*/ '"',
-    cst$6 =  /*<<?>>*/ "-",
-    cst_character =  /*<<?>>*/ "character ",
-    cst_scanf_ml =  /*<<?>>*/ "scanf.ml",
-    cst_scanf_bad_conversion$3 =  /*<<?>>*/ 'scanf: bad conversion "%*"',
-    cst_scanning_of =  /*<<?>>*/ "scanning of ",
-    caml_bytes_get =  /*<<?>>*/ runtime.caml_bytes_get,
-    caml_int_of_string =  /*<<?>>*/ runtime.caml_int_of_string,
-    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_trampoline =  /*<<?>>*/ runtime.caml_trampoline,
-    caml_trampoline_return =  /*<<?>>*/ runtime.caml_trampoline_return,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst$5 = '"',
+    cst$6 = "-",
+    cst_character = "character ",
+    cst_scanf_ml = "scanf.ml",
+    cst_scanf_bad_conversion$3 = 'scanf: bad conversion "%*"',
+    cst_scanning_of = "scanning of ",
+    caml_bytes_get = runtime.caml_bytes_get,
+    caml_int_of_string = runtime.caml_int_of_string,
+    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_trampoline = runtime.caml_trampoline,
+    caml_trampoline_return = runtime.caml_trampoline_return,
+    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)
@@ -34619,15 +28574,12 @@
     cst_unnamed_Stdlib_input_chann = "unnamed Stdlib input channel";
    function next_char(ib){
      /*<<scanf.ml:165:4>>*/ try{
-     var
-      c =
-         /*<<scanf.ml:166:14>>*/  /*<<scanf.ml:166:14>>*/ caml_call1
-          /*<<scanf.ml:166:14>>*/ (ib[7], 0);
+     var c =  /*<<scanf.ml:166:14>>*/ caml_call1(ib[7], 0);
      ib[2] = c;
      ib[3] = 1;
      ib[4] = ib[4] + 1 | 0;
      if(10 === c) ib[5] = ib[5] + 1 | 0;
-      /*<<scanf.ml:171:6>>*/ return c /*<<scanf.ml:171:6>>*/ ;
+      /*<<scanf.ml:171:6>>*/ return c;
     }
     catch(_aY_){
      var _aX_ = caml_wrap_exception(_aY_);
@@ -34635,27 +28587,22 @@
      ib[2] = null_char;
      ib[3] = 0;
      ib[1] = 1;
-      /*<<scanf.ml:177:6>>*/ return null_char /*<<scanf.ml:177:6>>*/ ;
+      /*<<scanf.ml:177:6>>*/ return null_char;
     }
     /*<<scanf.ml:177:7>>*/ }
    function peek_char(ib){
      /*<<scanf.ml:181:4>>*/ return ib[3]
             ? ib[2]
-            :  /*<<scanf.ml:183:9>>*/ next_char /*<<scanf.ml:183:9>>*/ (ib) /*<<scanf.ml:183:21>>*/ ;
-    /*<<scanf.ml:183:21>>*/ }
+            :  /*<<scanf.ml:183:9>>*/ next_char(ib) /*<<scanf.ml:183:21>>*/ ;
+   }
    function checked_peek_char(ib){
-    var
-     c =
-        /*<<scanf.ml:192:12>>*/  /*<<scanf.ml:192:12>>*/ peek_char
-         /*<<scanf.ml:192:12>>*/ (ib);
+    var c =  /*<<scanf.ml:192:12>>*/ peek_char(ib);
     if(ib[1])
-      /*<<scanf.ml:193:22>>*/ throw  /*<<scanf.ml:193:22>>*/ caml_maybe_attach_backtrace
-             /*<<scanf.ml:193:22>>*/ (Stdlib[12], 1);
-     /*<<scanf.ml:194:4>>*/ return c /*<<scanf.ml:194:4>>*/ ;
+      /*<<scanf.ml:193:22>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
+     /*<<scanf.ml:194:4>>*/ return c;
     /*<<scanf.ml:194:5>>*/ }
    function end_of_input(ib){
-     /*<<scanf.ml:198:4>>*/  /*<<scanf.ml:198:11>>*/ peek_char
-      /*<<scanf.ml:198:11>>*/ (ib);
+     /*<<scanf.ml:198:4>>*/  /*<<scanf.ml:198:11>>*/ peek_char(ib);
     return ib[1];
     /*<<scanf.ml:199:13>>*/ }
    function beginning_of_input(ib){
@@ -34666,13 +28613,13 @@
     if(typeof match === "number")
      return 0 === match ? cst_unnamed_function : cst_unnamed_character_string /*<<scanf.ml:211:47>>*/ ;
     if(0 === match[0])
-      /*<<scanf.ml:208:26>>*/ return cst_unnamed_Stdlib_input_chann /*<<scanf.ml:208:26>>*/ ;
+      /*<<scanf.ml:208:26>>*/ return cst_unnamed_Stdlib_input_chann;
     var fname = match[1];
-     /*<<scanf.ml:209:32>>*/ return fname /*<<scanf.ml:209:32>>*/ ;
+     /*<<scanf.ml:209:32>>*/ return fname;
     /*<<scanf.ml:211:47>>*/ }
    function char_count(ib){
      /*<<scanf.ml:215:4>>*/ return ib[3] ? ib[4] - 1 | 0 : ib[4] /*<<scanf.ml:217:25>>*/ ;
-    /*<<scanf.ml:217:25>>*/ }
+   }
    function invalidate_current_char(ib){
      /*<<scanf.ml:224:35>>*/ ib[3] = 0;
     return 0;
@@ -34680,26 +28627,20 @@
    function token_string(ib){
     var
      token_buffer = ib[8],
-     tok =
-        /*<<scanf.ml:228:14>>*/  /*<<scanf.ml:228:14>>*/ caml_call1
-         /*<<scanf.ml:228:14>>*/ (Stdlib_Buffer[2], token_buffer);
-     /*<<scanf.ml:229:4>>*/  /*<<scanf.ml:229:4>>*/ caml_call1
-      /*<<scanf.ml:229:4>>*/ (Stdlib_Buffer[8], token_buffer);
+     tok =  /*<<scanf.ml:228:14>>*/ caml_call1(Stdlib_Buffer[2], token_buffer);
+     /*<<scanf.ml:229:4>>*/ caml_call1(Stdlib_Buffer[8], token_buffer);
     ib[6] = ib[6] + 1 | 0;
-     /*<<scanf.ml:231:4>>*/ return tok /*<<scanf.ml:231:4>>*/ ;
+     /*<<scanf.ml:231:4>>*/ return tok;
     /*<<scanf.ml:231:7>>*/ }
    function ignore_char(width, ib){
     var width$0 = width - 1 | 0;
-     /*<<scanf.ml:237:4>>*/  /*<<scanf.ml:237:4>>*/ invalidate_current_char
-      /*<<scanf.ml:237:4>>*/ (ib);
-     /*<<scanf.ml:237:4>>*/ return width$0 /*<<scanf.ml:237:4>>*/ ;
+     /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
+    return width$0;
     /*<<scanf.ml:241:53>>*/ }
    function store_char(width, ib, c){
-     /*<<scanf.ml:244:4>>*/  /*<<scanf.ml:244:4>>*/ caml_call2
-      /*<<scanf.ml:244:4>>*/ (Stdlib_Buffer[12], ib[8], c);
-     /*<<scanf.ml:244:4>>*/ return  /*<<scanf.ml:244:4>>*/ ignore_char
-             /*<<scanf.ml:244:4>>*/ (width, ib) /*<<scanf.ml:245:24>>*/ ;
-    /*<<scanf.ml:245:24>>*/ }
+     /*<<scanf.ml:244:4>>*/ caml_call2(Stdlib_Buffer[12], ib[8], c);
+    return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
+   }
    var default_token_buffer_size =  /*<<scanf.ml:243:17>>*/ 1024;
    function create(iname, next){
      /*<<scanf.ml:250:26>>*/ return [0,
@@ -34711,112 +28652,82 @@
             0,
             next,
              /*<<scanf.ml:258:22>>*/ caml_call1
-              /*<<scanf.ml:258:22>>*/ (Stdlib_Buffer[1],
-              default_token_buffer_size),
+             (Stdlib_Buffer[1], default_token_buffer_size),
             iname] /*<<scanf.ml:250:26>>*/ ;
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
     var
      i =  /*<<scanf.ml:264:12>>*/ [0, 0],
-     len =
-        /*<<scanf.ml:265:4>>*/  /*<<scanf.ml:265:4>>*/ caml_ml_string_length
-         /*<<scanf.ml:265:4>>*/ (s);
+     len =  /*<<scanf.ml:265:4>>*/ caml_ml_string_length(s);
     function next(param){
       /*<<scanf.ml:267:6>>*/ if(len <= i[1])
-       /*<<scanf.ml:267:24>>*/ throw  /*<<scanf.ml:267:24>>*/ caml_maybe_attach_backtrace
-              /*<<scanf.ml:267:24>>*/ (Stdlib[12], 1);
-     var
-      c =
-         /*<<scanf.ml:268:14>>*/  /*<<scanf.ml:268:14>>*/ caml_string_get
-          /*<<scanf.ml:268:14>>*/ (s, i[1]);
+       /*<<scanf.ml:267:24>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[12], 1);
+     var c =  /*<<scanf.ml:268:14>>*/ caml_string_get(s, i[1]);
       /*<<scanf.ml:269:6>>*/ i[1]++;
-      /*<<scanf.ml:270:6>>*/ return c /*<<scanf.ml:270:6>>*/ ;
+      /*<<scanf.ml:270:6>>*/ return c;
      /*<<scanf.ml:270:7>>*/ }
-     /*<<scanf.ml:271:4>>*/ return  /*<<scanf.ml:271:4>>*/ create
-             /*<<scanf.ml:271:4>>*/ (1, next) /*<<scanf.ml:271:27>>*/ ;
-    /*<<scanf.ml:271:27>>*/ }
+     /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
+   }
    var _a_ =  /*<<scanf.ml:263:18>>*/ 0;
    function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
    var len =  /*<<scanf.ml:274:22>>*/ 1024;
    function scan_close_at_end(ic){
-     /*<<scanf.ml:320:29>>*/  /*<<scanf.ml:320:29>>*/ caml_call1
-      /*<<scanf.ml:320:29>>*/ (Stdlib[93], ic);
-     /*<<scanf.ml:320:49>>*/ throw  /*<<scanf.ml:320:49>>*/ caml_maybe_attach_backtrace
-            /*<<scanf.ml:320:49>>*/ (Stdlib[12], 1);
+     /*<<scanf.ml:320:29>>*/ caml_call1(Stdlib[93], ic);
+     /*<<scanf.ml:320:49>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
     /*<<scanf.ml:320:66>>*/ }
    function scan_raise_at_end(ic){
-     /*<<scanf.ml:324:30>>*/ throw  /*<<scanf.ml:324:30>>*/ caml_maybe_attach_backtrace
-            /*<<scanf.ml:324:30>>*/ (Stdlib[12], 1);
+     /*<<scanf.ml:324:30>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
     /*<<scanf.ml:324:47>>*/ }
    function from_ic(scan_close_ic, iname, ic){
     var
-     buf =
-        /*<<scanf.ml:328:14>>*/  /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes
-         /*<<scanf.ml:328:14>>*/ (1024),
+     buf =  /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes(1024),
      i =  /*<<scanf.ml:329:12>>*/ [0, 0],
      lim =  /*<<scanf.ml:330:14>>*/ [0, 0],
      eof =  /*<<scanf.ml:331:14>>*/ [0, 0];
     function next(param){
       /*<<scanf.ml:333:6>>*/ if(i[1] < lim[1]){
-      var
-       c =
-          /*<<scanf.ml:333:38>>*/  /*<<scanf.ml:333:38>>*/ caml_bytes_get
-           /*<<scanf.ml:333:38>>*/ (buf, i[1]);
+      var c =  /*<<scanf.ml:333:38>>*/ caml_bytes_get(buf, i[1]);
        /*<<scanf.ml:333:58>>*/ i[1]++;
-       /*<<scanf.ml:333:66>>*/ return c /*<<scanf.ml:333:66>>*/ ;
+       /*<<scanf.ml:333:66>>*/ return c;
      }
      if(eof[1])
-       /*<<scanf.ml:334:19>>*/ throw  /*<<scanf.ml:334:19>>*/ caml_maybe_attach_backtrace
-              /*<<scanf.ml:334:19>>*/ (Stdlib[12], 1);
-     lim[1] =
-       /*<<scanf.ml:335:15>>*/ caml_call4
-        /*<<scanf.ml:335:15>>*/ (Stdlib[84], ic, buf, 0, len);
+       /*<<scanf.ml:334:19>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[12], 1);
+     lim[1] =  /*<<scanf.ml:335:15>>*/ caml_call4(Stdlib[84], ic, buf, 0, len);
      return 0 === lim[1]
              ? (eof[1] = 1, caml_call1(scan_close_ic, ic))
-             : (i
-                [1]
-               = 1,
-                /*<<scanf.ml:338:10>>*/ caml_bytes_get
-                 /*<<scanf.ml:338:10>>*/ (buf, 0)) /*<<scanf.ml:340:9>>*/ ;
-     /*<<scanf.ml:340:9>>*/ }
-     /*<<scanf.ml:341:4>>*/ return  /*<<scanf.ml:341:4>>*/ create
-             /*<<scanf.ml:341:4>>*/ (iname, next) /*<<scanf.ml:341:21>>*/ ;
-    /*<<scanf.ml:341:21>>*/ }
+             : (i[1] = 1,  /*<<scanf.ml:338:10>>*/ caml_bytes_get(buf, 0)) /*<<scanf.ml:340:9>>*/ ;
+    }
+     /*<<scanf.ml:341:4>>*/ return create(iname, next) /*<<scanf.ml:341:21>>*/ ;
+   }
    var
     stdin =
-       /*<<scanf.ml:363:4>>*/  /*<<scanf.ml:363:4>>*/ from_ic
-        /*<<scanf.ml:363:4>>*/ (scan_raise_at_end,
-        [1, cst, Stdlib[38]],
-        Stdlib[38]);
+       /*<<scanf.ml:363:4>>*/ from_ic
+       (scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
    function open_in_file(open_in, fname){
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
-      /*<<scanf.ml:363:4>>*/ return stdin /*<<scanf.ml:363:4>>*/ ;
-    var
-     ic =
-        /*<<scanf.ml:370:15>>*/  /*<<scanf.ml:370:15>>*/ caml_call1
-         /*<<scanf.ml:370:15>>*/ (open_in, fname);
+      /*<<scanf.ml:363:4>>*/ return stdin;
+    var ic =  /*<<scanf.ml:370:15>>*/ caml_call1(open_in, fname);
     return from_ic(scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
-    /*<<scanf.ml:371:53>>*/ }
+   }
    var _b_ =  /*<<scanf.ml:366:19>>*/ Stdlib[79];
    function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
    var _c_ =  /*<<scanf.ml:374:16>>*/ Stdlib[80];
    function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
    function from_channel(ic){
      /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic) /*<<scanf.ml:381:45>>*/ ;
-    /*<<scanf.ml:381:45>>*/ }
+   }
    function close_in(ib){
     var match = ib[9];
-    if(typeof match === "number")
-      /*<<scanf.ml:389:37>>*/ return 0 /*<<scanf.ml:389:37>>*/ ;
+    if(typeof match === "number")  /*<<scanf.ml:389:37>>*/ return 0;
     if(0 === match[0]){
      var ic = match[1];
-      /*<<scanf.ml:387:6>>*/ return  /*<<scanf.ml:387:6>>*/ caml_call1
-              /*<<scanf.ml:387:6>>*/ (Stdlib[93], ic) /*<<scanf.ml:389:39>>*/ ;
+      /*<<scanf.ml:387:6>>*/ return caml_call1(Stdlib[93], ic) /*<<scanf.ml:389:39>>*/ ;
     }
     var ic$0 = match[2];
-     /*<<scanf.ml:388:32>>*/ return  /*<<scanf.ml:388:32>>*/ caml_call1
-             /*<<scanf.ml:388:32>>*/ (Stdlib[93], ic$0) /*<<scanf.ml:389:39>>*/ ;
-    /*<<scanf.ml:389:39>>*/ }
+     /*<<scanf.ml:388:32>>*/ return caml_call1(Stdlib[93], ic$0) /*<<scanf.ml:389:39>>*/ ;
+   }
    var
     Scan_failure =
        /*<<scanf.ml:403:0>>*/ [248,
@@ -34907,56 +28818,43 @@
     cst_in_format = ' in format "',
     _t_ = [0, [3, 0, [10, 0]], "%S%!"];
    function bad_input(s){
-     /*<<scanf.ml:405:18>>*/ throw  /*<<scanf.ml:405:18>>*/ caml_maybe_attach_backtrace
-            /*<<scanf.ml:405:18>>*/ ([0, Scan_failure, s], 1);
+     /*<<scanf.ml:405:18>>*/ throw caml_maybe_attach_backtrace
+           ([0, Scan_failure, s], 1);
     /*<<scanf.ml:405:40>>*/ }
    function bad_input_escape(c){
      /*<<scanf.ml:408:2>>*/ return  /*<<scanf.ml:408:12>>*/ bad_input
-             /*<<scanf.ml:408:12>>*/ ( /*<<scanf.ml:408:12>>*/ caml_call2
-               /*<<scanf.ml:408:12>>*/ (Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
-    /*<<scanf.ml:408:60>>*/ }
+            (caml_call2(Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
+   }
    function bad_token_length(message){
      /*<<scanf.ml:412:2>>*/ return  /*<<scanf.ml:413:4>>*/ bad_input
-             /*<<scanf.ml:413:4>>*/ ( /*<<scanf.ml:413:4>>*/ caml_call2
-               /*<<scanf.ml:413:4>>*/ (Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
-    /*<<scanf.ml:416:15>>*/ }
+            (caml_call2(Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
+   }
    function bad_hex_float(param){
-     /*<<scanf.ml:432:2>>*/ return  /*<<scanf.ml:432:2>>*/ bad_input
-             /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
-    /*<<scanf.ml:432:55>>*/ }
+     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
+   }
    function character_mismatch(c, ci){
      /*<<scanf.ml:440:2>>*/ return  /*<<scanf.ml:440:12>>*/ bad_input
-             /*<<scanf.ml:440:12>>*/ ( /*<<scanf.ml:436:2>>*/ caml_call3
-               /*<<scanf.ml:436:2>>*/ (Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
-    /*<<scanf.ml:440:41>>*/ }
+            ( /*<<scanf.ml:436:2>>*/ caml_call3(Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
+   }
    function check_char(ib, c$0){
      /*<<scanf.ml:468:2>>*/ if(10 === c$0){
-     var
-      ci =
-         /*<<scanf.ml:479:11>>*/  /*<<scanf.ml:479:11>>*/ checked_peek_char
-          /*<<scanf.ml:479:11>>*/ (ib);
+     var ci =  /*<<scanf.ml:479:11>>*/ checked_peek_char(ib);
       /*<<scanf.ml:480:2>>*/ return 10 === ci
-             ?  /*<<scanf.ml:481:12>>*/ invalidate_current_char
-                /*<<scanf.ml:481:12>>*/ (ib)
+             ?  /*<<scanf.ml:481:12>>*/ invalidate_current_char(ib)
              : 13
                === ci
                ? ( /*<<scanf.ml:482:12>>*/ invalidate_current_char
-                   /*<<scanf.ml:482:12>>*/ (ib),
-                  /*<<scanf.ml:482:12>>*/ check_this_char
-                   /*<<scanf.ml:482:12>>*/ (ib, 10))
-               :  /*<<scanf.ml:483:9>>*/ character_mismatch
-                  /*<<scanf.ml:483:9>>*/ (10, ci) /*<<scanf.ml:471:29>>*/ ;
+                  (ib),
+                 check_this_char(ib, 10))
+               :  /*<<scanf.ml:483:9>>*/ character_mismatch(10, ci) /*<<scanf.ml:471:29>>*/ ;
     }
     if(32 !== c$0)
-      /*<<scanf.ml:471:9>>*/ return  /*<<scanf.ml:471:9>>*/ check_this_char
-              /*<<scanf.ml:471:9>>*/ (ib, c$0) /*<<scanf.ml:471:29>>*/ ;
+      /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0) /*<<scanf.ml:471:29>>*/ ;
      /*<<scanf.ml:444:2>>*/ for(;;){
      var
-      c =
-         /*<<scanf.ml:444:10>>*/  /*<<scanf.ml:444:10>>*/ peek_char
-          /*<<scanf.ml:444:10>>*/ (ib),
+      c =  /*<<scanf.ml:444:10>>*/ peek_char(ib),
       _aS_ =  /*<<scanf.ml:445:9>>*/ 1 - ib[1];
-     if(! _aS_)  /*<<scanf.ml:445:9>>*/ return _aS_ /*<<scanf.ml:445:9>>*/ ;
+     if(! _aS_) return _aS_;
      var _aT_ =  /*<<scanf.ml:445:32>>*/ c - 9 | 0;
      a:
      {
@@ -34964,231 +28862,149 @@
        if(23 === _aT_) break a;
       }
       else if(1 < _aT_ - 2 >>> 0) break a;
-       /*<<scanf.ml:449:11>>*/ return 0 /*<<scanf.ml:449:11>>*/ ;
+       /*<<scanf.ml:449:11>>*/ return 0;
      }
-      /*<<scanf.ml:448:6>>*/  /*<<scanf.ml:448:6>>*/ invalidate_current_char
-       /*<<scanf.ml:448:6>>*/ (ib);
+      /*<<scanf.ml:448:6>>*/ invalidate_current_char(ib);
     }
     /*<<scanf.ml:471:29>>*/ }
    function check_this_char(ib, c){
-    var
-     ci =
-        /*<<scanf.ml:474:11>>*/  /*<<scanf.ml:474:11>>*/ checked_peek_char
-         /*<<scanf.ml:474:11>>*/ (ib);
+    var ci =  /*<<scanf.ml:474:11>>*/ checked_peek_char(ib);
     return ci === c
-            ?  /*<<scanf.ml:475:17>>*/ invalidate_current_char
-               /*<<scanf.ml:475:17>>*/ (ib)
-            :  /*<<scanf.ml:476:2>>*/ character_mismatch
-               /*<<scanf.ml:476:2>>*/ (c, ci) /*<<scanf.ml:476:25>>*/ ;
-    /*<<scanf.ml:476:25>>*/ }
+            ?  /*<<scanf.ml:475:17>>*/ invalidate_current_char(ib)
+            :  /*<<scanf.ml:476:2>>*/ character_mismatch(c, ci) /*<<scanf.ml:476:25>>*/ ;
+   }
    function token_char(ib){
-     /*<<scanf.ml:488:20>>*/ return  /*<<scanf.ml:488:20>>*/ caml_string_get
-             /*<<scanf.ml:488:20>>*/ ( /*<<scanf.ml:488:20>>*/ token_string
-               /*<<scanf.ml:488:20>>*/ (ib),
-             0) /*<<scanf.ml:488:43>>*/ ;
-    /*<<scanf.ml:488:43>>*/ }
+     /*<<scanf.ml:488:20>>*/ return caml_string_get(token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
+   }
    function token_bool(ib){
-    var
-     s =
-        /*<<scanf.ml:493:8>>*/  /*<<scanf.ml:493:8>>*/ token_string
-         /*<<scanf.ml:493:8>>*/ (ib);
+    var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
     return s !== "false"
             ? s
               !== "true"
               ?  /*<<scanf.ml:496:19>>*/ bad_input
-                 /*<<scanf.ml:496:19>>*/ ( /*<<scanf.ml:496:19>>*/ caml_call2
-                   /*<<scanf.ml:496:19>>*/ (Stdlib_Printf[4], _h_, s))
+                (caml_call2(Stdlib_Printf[4], _h_, s))
               : 1
             : 0 /*<<scanf.ml:496:60>>*/ ;
-    /*<<scanf.ml:496:60>>*/ }
+   }
    function integer_conversion_of_char(param){
     var switcher =  /*<<scanf.ml:509:33>>*/ param - 88 | 0;
     if(32 >= switcher >>> 0)
      switch(switcher){
        case 10:
-         /*<<scanf.ml:510:11>>*/ return 0 /*<<scanf.ml:510:11>>*/ ;
+         /*<<scanf.ml:510:11>>*/ return 0;
        case 12:
-         /*<<scanf.ml:511:11>>*/ return 1 /*<<scanf.ml:511:11>>*/ ;
+         /*<<scanf.ml:511:11>>*/ return 1;
        case 17:
-         /*<<scanf.ml:512:11>>*/ return 2 /*<<scanf.ml:512:11>>*/ ;
+         /*<<scanf.ml:512:11>>*/ return 2;
        case 23:
-         /*<<scanf.ml:513:11>>*/ return 3 /*<<scanf.ml:513:11>>*/ ;
+         /*<<scanf.ml:513:11>>*/ return 3;
        case 29:
-         /*<<scanf.ml:514:11>>*/ return 4 /*<<scanf.ml:514:11>>*/ ;
+         /*<<scanf.ml:514:11>>*/ return 4;
        case 0:
        case 32:
-         /*<<scanf.ml:515:17>>*/ return 5 /*<<scanf.ml:515:17>>*/ ;
+         /*<<scanf.ml:515:17>>*/ return 5;
      }
-     /*<<scanf.ml:516:9>>*/ throw  /*<<scanf.ml:516:9>>*/ caml_maybe_attach_backtrace
-            /*<<scanf.ml:516:9>>*/ ([0, Assert_failure, _i_], 1);
+     /*<<scanf.ml:516:9>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _i_], 1);
     /*<<scanf.ml:516:21>>*/ }
    function token_int_literal(conv, ib){
      /*<<scanf.ml:523:2>>*/ switch(conv){
       case 0:
        var
-        _aO_ =
-           /*<<scanf.ml:529:29>>*/  /*<<scanf.ml:529:29>>*/ token_string
-            /*<<scanf.ml:529:29>>*/ (ib),
-        tok =
-           /*<<scanf.ml:529:22>>*/ caml_call2
-            /*<<scanf.ml:529:22>>*/ (Stdlib[28], cst_0b, _aO_);
+        _aO_ =  /*<<scanf.ml:529:29>>*/ token_string(ib),
+        tok =  /*<<scanf.ml:529:22>>*/ caml_call2(Stdlib[28], cst_0b, _aO_);
        break;
       case 3:
        var
-        _aP_ =
-           /*<<scanf.ml:527:29>>*/  /*<<scanf.ml:527:29>>*/ token_string
-            /*<<scanf.ml:527:29>>*/ (ib),
-        tok =
-           /*<<scanf.ml:527:22>>*/ caml_call2
-            /*<<scanf.ml:527:22>>*/ (Stdlib[28], cst_0o, _aP_);
+        _aP_ =  /*<<scanf.ml:527:29>>*/ token_string(ib),
+        tok =  /*<<scanf.ml:527:22>>*/ caml_call2(Stdlib[28], cst_0o, _aP_);
        break;
       case 4:
        var
-        _aQ_ =
-           /*<<scanf.ml:526:29>>*/  /*<<scanf.ml:526:29>>*/ token_string
-            /*<<scanf.ml:526:29>>*/ (ib),
-        tok =
-           /*<<scanf.ml:526:22>>*/ caml_call2
-            /*<<scanf.ml:526:22>>*/ (Stdlib[28], cst_0u, _aQ_);
+        _aQ_ =  /*<<scanf.ml:526:29>>*/ token_string(ib),
+        tok =  /*<<scanf.ml:526:22>>*/ caml_call2(Stdlib[28], cst_0u, _aQ_);
        break;
       case 5:
        var
-        _aR_ =
-           /*<<scanf.ml:528:29>>*/  /*<<scanf.ml:528:29>>*/ token_string
-            /*<<scanf.ml:528:29>>*/ (ib),
-        tok =
-           /*<<scanf.ml:528:22>>*/ caml_call2
-            /*<<scanf.ml:528:22>>*/ (Stdlib[28], cst_0x, _aR_);
+        _aR_ =  /*<<scanf.ml:528:29>>*/ token_string(ib),
+        tok =  /*<<scanf.ml:528:22>>*/ caml_call2(Stdlib[28], cst_0x, _aR_);
        break;
-      default:
-       var
-        tok =
-           /*<<scanf.ml:525:37>>*/ token_string /*<<scanf.ml:525:37>>*/ (ib);
+      default: var tok =  /*<<scanf.ml:525:37>>*/ token_string(ib);
     }
-    var
-     l =
-        /*<<scanf.ml:530:2>>*/  /*<<scanf.ml:530:2>>*/ caml_ml_string_length
-         /*<<scanf.ml:530:2>>*/ (tok);
+    var l =  /*<<scanf.ml:530:2>>*/ caml_ml_string_length(tok);
      /*<<scanf.ml:531:2>>*/ if
-     (0 !== l
-      &&
-       43
-       ===
-         /*<<scanf.ml:531:14>>*/ caml_string_get
-          /*<<scanf.ml:531:14>>*/ (tok, 0))
-      /*<<scanf.ml:531:43>>*/ return  /*<<scanf.ml:531:43>>*/ caml_call3
-              /*<<scanf.ml:531:43>>*/ (Stdlib_String[16], tok, 1, l - 1 | 0) /*<<scanf.ml:531:67>>*/ ;
-     /*<<scanf.ml:531:34>>*/ return tok /*<<scanf.ml:531:34>>*/ ;
+     (0 !== l && 43 ===  /*<<scanf.ml:531:14>>*/ caml_string_get(tok, 0))
+      /*<<scanf.ml:531:43>>*/ return caml_call3
+             (Stdlib_String[16], tok, 1, l - 1 | 0) /*<<scanf.ml:531:67>>*/ ;
+     /*<<scanf.ml:531:34>>*/ return tok;
     /*<<scanf.ml:531:67>>*/ }
    function token_float(ib){
-     /*<<scanf.ml:539:21>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
-             /*<<scanf.ml:539:21>>*/ ( /*<<scanf.ml:539:37>>*/ token_string
-               /*<<scanf.ml:539:37>>*/ (ib)) /*<<scanf.ml:539:56>>*/ ;
-    /*<<scanf.ml:539:56>>*/ }
+     /*<<scanf.ml:539:21>>*/ return runtime.caml_float_of_string
+            ( /*<<scanf.ml:539:37>>*/ token_string(ib)) /*<<scanf.ml:539:56>>*/ ;
+   }
    function scan_decimal_digit_star(width, ib){
     var width$0 = width;
      /*<<scanf.ml:575:2>>*/ for(;;){
-     if(0 === width$0)
-       /*<<scanf.ml:575:20>>*/ return width$0 /*<<scanf.ml:575:20>>*/ ;
-     var
-      c =
-         /*<<scanf.ml:576:10>>*/  /*<<scanf.ml:576:10>>*/ peek_char
-          /*<<scanf.ml:576:10>>*/ (ib);
+     if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
+     var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
       /*<<scanf.ml:577:5>>*/ if(ib[1])
-       /*<<scanf.ml:577:26>>*/ return width$0 /*<<scanf.ml:577:26>>*/ ;
+       /*<<scanf.ml:577:26>>*/ return width$0;
      if(58 <= c){
       if(95 === c){
-       var
-        width$1 =
-           /*<<scanf.ml:583:16>>*/  /*<<scanf.ml:583:16>>*/ ignore_char
-            /*<<scanf.ml:583:16>>*/ (width$0, ib);
+       var width$1 =  /*<<scanf.ml:583:16>>*/ ignore_char(width$0, ib);
        width$0 = width$1;
        continue;
       }
      }
      else if(48 <= c){
-      var
-       width$2 =
-          /*<<scanf.ml:580:16>>*/  /*<<scanf.ml:580:16>>*/ store_char
-           /*<<scanf.ml:580:16>>*/ (width$0, ib, c);
+      var width$2 =  /*<<scanf.ml:580:16>>*/ store_char(width$0, ib, c);
       width$0 = width$2;
       continue;
      }
-      /*<<scanf.ml:585:9>>*/ return width$0 /*<<scanf.ml:585:9>>*/ ;
+      /*<<scanf.ml:585:9>>*/ return width$0;
     }
     /*<<scanf.ml:585:14>>*/ }
    function scan_decimal_digit_plus(width, ib){
      /*<<scanf.ml:589:2>>*/ if(0 === width)
-      /*<<scanf.ml:589:20>>*/ return  /*<<scanf.ml:589:20>>*/ bad_token_length
-              /*<<scanf.ml:589:20>>*/ (cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
-    var
-     c =
-        /*<<scanf.ml:590:10>>*/  /*<<scanf.ml:590:10>>*/ checked_peek_char
-         /*<<scanf.ml:590:10>>*/ (ib);
+      /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
+    var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
     if(9 < c - 48 >>> 0)
-      /*<<scanf.ml:596:14>>*/ return  /*<<scanf.ml:596:14>>*/ bad_input
-              /*<<scanf.ml:596:14>>*/ ( /*<<scanf.ml:596:14>>*/ caml_call2
-                /*<<scanf.ml:596:14>>*/ (Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
-    var
-     width$0 =
-        /*<<scanf.ml:593:16>>*/  /*<<scanf.ml:593:16>>*/ store_char
-         /*<<scanf.ml:593:16>>*/ (width, ib, c);
-     /*<<scanf.ml:594:4>>*/ return  /*<<scanf.ml:594:4>>*/ scan_decimal_digit_star
-             /*<<scanf.ml:594:4>>*/ (width$0, ib) /*<<scanf.ml:596:70>>*/ ;
-    /*<<scanf.ml:596:70>>*/ }
+      /*<<scanf.ml:596:14>>*/ return bad_input
+             (caml_call2(Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
+    var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
+     /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib) /*<<scanf.ml:596:70>>*/ ;
+   }
    function scan_digit_plus(basis, digitp, width$2, ib){
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
-      /*<<scanf.ml:620:20>>*/ return  /*<<scanf.ml:620:20>>*/ bad_token_length
-              /*<<scanf.ml:620:20>>*/ (cst_digits) /*<<scanf.ml:626:77>>*/ ;
-    var
-     c$0 =
-        /*<<scanf.ml:621:10>>*/  /*<<scanf.ml:621:10>>*/ checked_peek_char
-         /*<<scanf.ml:621:10>>*/ (ib);
-     /*<<scanf.ml:622:5>>*/ if
-     (!
-       /*<<scanf.ml:622:5>>*/ caml_call1 /*<<scanf.ml:622:5>>*/ (digitp, c$0))
-      /*<<scanf.ml:626:14>>*/ return  /*<<scanf.ml:626:14>>*/ bad_input
-              /*<<scanf.ml:626:14>>*/ ( /*<<scanf.ml:626:14>>*/ caml_call3
-                /*<<scanf.ml:626:14>>*/ (Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
+      /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits) /*<<scanf.ml:626:77>>*/ ;
+    var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
+     /*<<scanf.ml:622:5>>*/ if(! caml_call1(digitp, c$0))
+      /*<<scanf.ml:626:14>>*/ return bad_input
+             (caml_call3(Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
     var
-     width$3 =
-        /*<<scanf.ml:623:16>>*/  /*<<scanf.ml:623:16>>*/ store_char
-         /*<<scanf.ml:623:16>>*/ (width$2, ib, c$0),
+     width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
-     if(0 === width)
-       /*<<scanf.ml:603:22>>*/ return width /*<<scanf.ml:603:22>>*/ ;
-     var
-      c =
-         /*<<scanf.ml:604:12>>*/  /*<<scanf.ml:604:12>>*/ peek_char
-          /*<<scanf.ml:604:12>>*/ (ib);
-      /*<<scanf.ml:605:7>>*/ if(ib[1])
-       /*<<scanf.ml:605:28>>*/ return width /*<<scanf.ml:605:28>>*/ ;
-      /*<<scanf.ml:607:13>>*/ if
-      ( /*<<scanf.ml:607:13>>*/ caml_call1 /*<<scanf.ml:607:13>>*/ (digitp, c)){
-      var
-       width$0 =
-          /*<<scanf.ml:608:18>>*/  /*<<scanf.ml:608:18>>*/ store_char
-           /*<<scanf.ml:608:18>>*/ (width, ib, c);
+     if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
+     var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
+      /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
+      /*<<scanf.ml:607:13>>*/ if(caml_call1(digitp, c)){
+      var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
       width = width$0;
      }
      else{
-      if(95 !== c)
-        /*<<scanf.ml:613:11>>*/ return width /*<<scanf.ml:613:11>>*/ ;
-      var
-       width$1 =
-          /*<<scanf.ml:611:18>>*/  /*<<scanf.ml:611:18>>*/ ignore_char
-           /*<<scanf.ml:611:18>>*/ (width, ib);
+      if(95 !== c)  /*<<scanf.ml:613:11>>*/ return width;
+      var width$1 =  /*<<scanf.ml:611:18>>*/ ignore_char(width, ib);
       width = width$1;
      }
     }
     /*<<scanf.ml:626:77>>*/ }
    function is_binary_digit(param){
      /*<<scanf.ml:629:22>>*/ return 1 < param - 48 >>> 0 ? 0 : 1 /*<<scanf.ml:631:14>>*/ ;
-    /*<<scanf.ml:631:14>>*/ }
+   }
    function is_octal_digit(param){
      /*<<scanf.ml:636:21>>*/ return 7 < param - 48 >>> 0 ? 0 : 1 /*<<scanf.ml:638:14>>*/ ;
-    /*<<scanf.ml:638:14>>*/ }
+   }
    function is_hexa_digit(param){
     var _aN_ =  /*<<scanf.ml:643:20>>*/ param - 48 | 0;
     a:
@@ -35197,66 +29013,47 @@
       if(5 < _aN_ - 49 >>> 0) break a;
      }
      else if(6 >= _aN_ - 10 >>> 0) break a;
-      /*<<scanf.ml:644:44>>*/ return 1 /*<<scanf.ml:644:44>>*/ ;
+      /*<<scanf.ml:644:44>>*/ return 1;
     }
-     /*<<scanf.ml:645:9>>*/ return 0 /*<<scanf.ml:645:9>>*/ ;
+     /*<<scanf.ml:645:9>>*/ return 0;
     /*<<scanf.ml:645:14>>*/ }
    function scan_sign(width, ib){
     var
-     c =
-        /*<<scanf.ml:654:10>>*/  /*<<scanf.ml:654:10>>*/ checked_peek_char
-         /*<<scanf.ml:654:10>>*/ (ib),
-     switcher =  /*<<scanf.ml:654:10>>*/ c - 43 | 0;
+     c =  /*<<scanf.ml:654:10>>*/ checked_peek_char(ib),
+     switcher = c - 43 | 0;
     if(2 >= switcher >>> 0)
      switch(switcher){
        case 0:
-         /*<<scanf.ml:656:11>>*/ return  /*<<scanf.ml:656:11>>*/ store_char
-                 /*<<scanf.ml:656:11>>*/ (width, ib, c) /*<<scanf.ml:658:14>>*/ ;
+         /*<<scanf.ml:656:11>>*/ return store_char(width, ib, c) /*<<scanf.ml:658:14>>*/ ;
        case 1: break;
        default:
-         /*<<scanf.ml:657:11>>*/ return  /*<<scanf.ml:657:11>>*/ store_char
-                 /*<<scanf.ml:657:11>>*/ (width, ib, c) /*<<scanf.ml:658:14>>*/ ;
+         /*<<scanf.ml:657:11>>*/ return store_char(width, ib, c) /*<<scanf.ml:658:14>>*/ ;
      }
-     /*<<scanf.ml:658:9>>*/ return width /*<<scanf.ml:658:9>>*/ ;
+     /*<<scanf.ml:658:9>>*/ return width;
     /*<<scanf.ml:658:14>>*/ }
    function scan_optionally_signed_decimal(width, ib){
-    var
-     width$0 =
-        /*<<scanf.ml:662:14>>*/  /*<<scanf.ml:662:14>>*/ scan_sign
-         /*<<scanf.ml:662:14>>*/ (width, ib);
-     /*<<scanf.ml:663:2>>*/ return  /*<<scanf.ml:663:2>>*/ scan_decimal_digit_plus
-             /*<<scanf.ml:663:2>>*/ (width$0, ib) /*<<scanf.ml:663:36>>*/ ;
-    /*<<scanf.ml:663:36>>*/ }
+    var width$0 =  /*<<scanf.ml:662:14>>*/ scan_sign(width, ib);
+     /*<<scanf.ml:663:2>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:663:36>>*/ ;
+   }
    function scan_int_conversion(conv, width$1, ib){
      /*<<scanf.ml:691:2>>*/ switch(conv){
       case 0:
        return scan_digit_plus(cst_binary, is_binary_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 1:
-        /*<<scanf.ml:693:20>>*/ return  /*<<scanf.ml:693:20>>*/ scan_optionally_signed_decimal
-                /*<<scanf.ml:693:20>>*/ (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+        /*<<scanf.ml:693:20>>*/ return scan_optionally_signed_decimal
+               (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 2:
        var
-        width$0 =
-           /*<<scanf.ml:686:14>>*/  /*<<scanf.ml:686:14>>*/ scan_sign
-            /*<<scanf.ml:686:14>>*/ (width$1, ib),
-        c =
-           /*<<scanf.ml:671:8>>*/  /*<<scanf.ml:671:8>>*/ checked_peek_char
-            /*<<scanf.ml:671:8>>*/ (ib);
+        width$0 =  /*<<scanf.ml:686:14>>*/ scan_sign(width$1, ib),
+        c =  /*<<scanf.ml:671:8>>*/ checked_peek_char(ib);
        if(48 !== c)
-         /*<<scanf.ml:682:9>>*/ return  /*<<scanf.ml:682:9>>*/ scan_decimal_digit_plus
-                 /*<<scanf.ml:682:9>>*/ (width$0, ib) /*<<scanf.ml:697:49>>*/ ;
-       var
-        width =
-           /*<<scanf.ml:673:16>>*/  /*<<scanf.ml:673:16>>*/ store_char
-            /*<<scanf.ml:673:16>>*/ (width$0, ib, c);
+         /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:697:49>>*/ ;
+       var width =  /*<<scanf.ml:673:16>>*/ store_char(width$0, ib, c);
         /*<<scanf.ml:674:4>>*/ if(0 === width)
-         /*<<scanf.ml:674:22>>*/ return width /*<<scanf.ml:674:22>>*/ ;
-       var
-        c$0 =
-           /*<<scanf.ml:675:12>>*/  /*<<scanf.ml:675:12>>*/ peek_char
-            /*<<scanf.ml:675:12>>*/ (ib);
+         /*<<scanf.ml:674:22>>*/ return width;
+       var c$0 =  /*<<scanf.ml:675:12>>*/ peek_char(ib);
         /*<<scanf.ml:676:7>>*/ if(ib[1])
-         /*<<scanf.ml:676:28>>*/ return width /*<<scanf.ml:676:28>>*/ ;
+         /*<<scanf.ml:676:28>>*/ return width;
        a:
        {
         if(99 <= c$0){
@@ -35264,8 +29061,7 @@
           return scan_digit_plus
                   (cst_octal,
                    is_octal_digit,
-                    /*<<scanf.ml:679:28>>*/ store_char
-                     /*<<scanf.ml:679:28>>*/ (width, ib, c$0),
+                    /*<<scanf.ml:679:28>>*/ store_char(width, ib, c$0),
                    ib) /*<<scanf.ml:697:49>>*/ ;
          if(120 === c$0) break a;
         }
@@ -35275,113 +29071,81 @@
           return scan_digit_plus
                   (cst_binary,
                    is_binary_digit,
-                    /*<<scanf.ml:680:29>>*/ store_char
-                     /*<<scanf.ml:680:29>>*/ (width, ib, c$0),
+                    /*<<scanf.ml:680:29>>*/ store_char(width, ib, c$0),
                    ib) /*<<scanf.ml:697:49>>*/ ;
         }
-         /*<<scanf.ml:681:11>>*/ return  /*<<scanf.ml:681:11>>*/ scan_decimal_digit_star
-                 /*<<scanf.ml:681:11>>*/ (width, ib) /*<<scanf.ml:697:49>>*/ ;
+         /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib) /*<<scanf.ml:697:49>>*/ ;
        }
        return scan_digit_plus
                (cst_hexadecimal,
                 is_hexa_digit,
-                 /*<<scanf.ml:678:40>>*/ store_char
-                  /*<<scanf.ml:678:40>>*/ (width, ib, c$0),
+                 /*<<scanf.ml:678:40>>*/ store_char(width, ib, c$0),
                 ib) /*<<scanf.ml:697:49>>*/ ;
       case 3:
-       return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+       return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib);
       case 4:
-        /*<<scanf.ml:696:20>>*/ return  /*<<scanf.ml:696:20>>*/ scan_decimal_digit_plus
-                /*<<scanf.ml:696:20>>*/ (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+        /*<<scanf.ml:696:20>>*/ return scan_decimal_digit_plus(width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       default:
-       return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+       return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib);
     }
-    /*<<scanf.ml:697:49>>*/ }
+   }
    function scan_fractional_part(width, ib){
      /*<<scanf.ml:704:2>>*/ if(0 === width)
-      /*<<scanf.ml:704:20>>*/ return width /*<<scanf.ml:704:20>>*/ ;
-    var
-     c =
-        /*<<scanf.ml:705:10>>*/  /*<<scanf.ml:705:10>>*/ peek_char
-         /*<<scanf.ml:705:10>>*/ (ib);
+      /*<<scanf.ml:704:20>>*/ return width;
+    var c =  /*<<scanf.ml:705:10>>*/ peek_char(ib);
      /*<<scanf.ml:706:5>>*/ return ib[1]
             ? width
             : 9
               < c - 48 >>> 0
               ? width
               :  /*<<scanf.ml:709:4>>*/ scan_decimal_digit_star
-                 /*<<scanf.ml:709:4>>*/ ( /*<<scanf.ml:709:28>>*/ store_char
-                   /*<<scanf.ml:709:28>>*/ (width, ib, c),
-                 ib) /*<<scanf.ml:710:14>>*/ ;
-    /*<<scanf.ml:710:14>>*/ }
+                ( /*<<scanf.ml:709:28>>*/ store_char(width, ib, c), ib) /*<<scanf.ml:710:14>>*/ ;
+   }
    function scan_exponent_part(width, ib){
      /*<<scanf.ml:715:2>>*/ if(0 === width)
-      /*<<scanf.ml:715:20>>*/ return width /*<<scanf.ml:715:20>>*/ ;
-    var
-     c =
-        /*<<scanf.ml:716:10>>*/  /*<<scanf.ml:716:10>>*/ peek_char
-         /*<<scanf.ml:716:10>>*/ (ib);
-     /*<<scanf.ml:717:5>>*/ if(ib[1])
-      /*<<scanf.ml:717:26>>*/ return width /*<<scanf.ml:717:26>>*/ ;
-    if(69 !== c && 101 !== c)
-      /*<<scanf.ml:721:9>>*/ return width /*<<scanf.ml:721:9>>*/ ;
-     /*<<scanf.ml:720:4>>*/ return  /*<<scanf.ml:720:4>>*/ scan_optionally_signed_decimal
-             /*<<scanf.ml:720:4>>*/ ( /*<<scanf.ml:720:39>>*/ store_char
-               /*<<scanf.ml:720:39>>*/ (width, ib, c),
-             ib) /*<<scanf.ml:721:14>>*/ ;
-    /*<<scanf.ml:721:14>>*/ }
+      /*<<scanf.ml:715:20>>*/ return width;
+    var c =  /*<<scanf.ml:716:10>>*/ peek_char(ib);
+     /*<<scanf.ml:717:5>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
+    if(69 !== c && 101 !== c)  /*<<scanf.ml:721:9>>*/ return width;
+     /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
+            ( /*<<scanf.ml:720:39>>*/ store_char(width, ib, c), ib) /*<<scanf.ml:721:14>>*/ ;
+   }
    function scan_float(width$1, precision, ib){
     var
-     width =
-        /*<<scanf.ml:729:14>>*/  /*<<scanf.ml:729:14>>*/ scan_sign
-         /*<<scanf.ml:729:14>>*/ (width$1, ib),
-     width$0 =
-        /*<<scanf.ml:730:2>>*/  /*<<scanf.ml:730:2>>*/ scan_decimal_digit_star
-         /*<<scanf.ml:730:2>>*/ (width, ib);
+     width =  /*<<scanf.ml:729:14>>*/ scan_sign(width$1, ib),
+     width$0 =  /*<<scanf.ml:730:2>>*/ scan_decimal_digit_star(width, ib);
      /*<<scanf.ml:766:2>>*/ if(0 === width$0)
-      /*<<scanf.ml:766:20>>*/ return [0, width$0, precision] /*<<scanf.ml:766:20>>*/ ;
-    var
-     c =
-        /*<<scanf.ml:767:10>>*/  /*<<scanf.ml:767:10>>*/ peek_char
-         /*<<scanf.ml:767:10>>*/ (ib);
+      /*<<scanf.ml:766:20>>*/ return [0, width$0, precision];
+    var c =  /*<<scanf.ml:767:10>>*/ peek_char(ib);
      /*<<scanf.ml:768:5>>*/ if(ib[1])
-      /*<<scanf.ml:768:26>>*/ return [0, width$0, precision] /*<<scanf.ml:768:26>>*/ ;
+      /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
     if(46 !== c)
       /*<<scanf.ml:776:4>>*/ return [0,
-              /*<<scanf.ml:776:4>>*/ scan_exponent_part
-               /*<<scanf.ml:776:4>>*/ (width$0, ib),
-             precision] /*<<scanf.ml:776:4>>*/ ;
+             scan_exponent_part(width$0, ib),
+             precision];
     var
-     width$2 =
-        /*<<scanf.ml:771:16>>*/  /*<<scanf.ml:771:16>>*/ store_char
-         /*<<scanf.ml:771:16>>*/ (width$0, ib, c),
+     width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
      precision$0 =
-        /*<<scanf.ml:772:20>>*/  /*<<scanf.ml:772:20>>*/ caml_call2
-         /*<<scanf.ml:772:20>>*/ (Stdlib_Int[10], width$2, precision),
+        /*<<scanf.ml:772:20>>*/ caml_call2(Stdlib_Int[10], width$2, precision),
      width$3 =
        width$2
        -
         (precision$0
-        -
-          /*<<scanf.ml:773:37>>*/ scan_fractional_part
-           /*<<scanf.ml:773:37>>*/ (precision$0, ib)
+        -  /*<<scanf.ml:773:37>>*/ scan_fractional_part(precision$0, ib)
         | 0)
        | 0;
      /*<<scanf.ml:774:4>>*/ return [0,
-             /*<<scanf.ml:774:4>>*/ scan_exponent_part
-              /*<<scanf.ml:774:4>>*/ (width$3, ib),
-            precision$0] /*<<scanf.ml:774:4>>*/ ;
+            scan_exponent_part(width$3, ib),
+            precision$0];
     /*<<scanf.ml:776:42>>*/ }
    function check_case_insensitive_string(width, ib, error, str){
     function lowercase(c){
       /*<<scanf.ml:781:4>>*/ return 25 < c - 65 >>> 0
              ? c
              : caml_call1(Stdlib[29], (c - 65 | 0) + 97 | 0) /*<<scanf.ml:784:12>>*/ ;
-     /*<<scanf.ml:784:12>>*/ }
+    }
     var
-     len =
-        /*<<scanf.ml:785:2>>*/  /*<<scanf.ml:785:2>>*/ caml_ml_string_length
-         /*<<scanf.ml:785:2>>*/ (str),
+     len =  /*<<scanf.ml:785:2>>*/ caml_ml_string_length(str),
      width$0 =  /*<<scanf.ml:786:14>>*/ [0, width],
      _aK_ =  /*<<scanf.ml:787:2>>*/ len - 1 | 0,
      _aJ_ =  /*<<scanf.ml:786:14>>*/ 0;
@@ -35389,23 +29153,14 @@
      var i = _aJ_;
      for(;;){
       var
-       c =
-          /*<<scanf.ml:788:12>>*/  /*<<scanf.ml:788:12>>*/ peek_char
-           /*<<scanf.ml:788:12>>*/ (ib),
+       c =  /*<<scanf.ml:788:12>>*/ peek_char(ib),
        _aL_ =
-          /*<<scanf.ml:789:22>>*/  /*<<scanf.ml:789:22>>*/ lowercase
-           /*<<scanf.ml:789:22>>*/ ( /*<<scanf.ml:789:32>>*/ caml_string_get
-             /*<<scanf.ml:789:32>>*/ (str, i));
-      if
-       ( /*<<scanf.ml:789:7>>*/ lowercase /*<<scanf.ml:789:7>>*/ (c) !== _aL_)
-        /*<<scanf.ml:789:45>>*/  /*<<scanf.ml:789:45>>*/ caml_call1
-         /*<<scanf.ml:789:45>>*/ (error, 0);
-      if(0 === width$0[1])
-        /*<<scanf.ml:790:23>>*/  /*<<scanf.ml:790:23>>*/ caml_call1
-         /*<<scanf.ml:790:23>>*/ (error, 0);
-      width$0[1] =
-        /*<<scanf.ml:791:13>>*/ store_char
-         /*<<scanf.ml:791:13>>*/ (width$0[1], ib, c);
+          /*<<scanf.ml:789:22>>*/ lowercase
+          ( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
+      if( /*<<scanf.ml:789:7>>*/ lowercase(c) !== _aL_)
+        /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
+      if(0 === width$0[1])  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
+      width$0[1] =  /*<<scanf.ml:791:13>>*/ store_char(width$0[1], ib, c);
       var _aM_ =  /*<<scanf.ml:787:2>>*/ i + 1 | 0;
       if(_aK_ === i) break;
       i = _aM_;
@@ -35416,79 +29171,48 @@
    function scan_hex_float(width, precision, ib){
     var
      _aw_ = 0 === width ? 1 : 0,
-     _ax_ =
-       _aw_
-       ||  /*<<scanf.ml:797:18>>*/ end_of_input /*<<scanf.ml:797:18>>*/ (ib);
-     /*<<scanf.ml:797:18>>*/ if(_ax_)
-      /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-       /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+     _ax_ = _aw_ ||  /*<<scanf.ml:797:18>>*/ end_of_input(ib);
+    if(_ax_)
+      /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
     var
-     width$0 =
-        /*<<scanf.ml:798:14>>*/  /*<<scanf.ml:798:14>>*/ scan_sign
-         /*<<scanf.ml:798:14>>*/ (width, ib),
+     width$0 =  /*<<scanf.ml:798:14>>*/ scan_sign(width, ib),
      _ay_ = 0 === width$0 ? 1 : 0,
-     _az_ =
-       _ay_
-       ||  /*<<scanf.ml:799:18>>*/ end_of_input /*<<scanf.ml:799:18>>*/ (ib);
-     /*<<scanf.ml:799:18>>*/ if(_az_)
-      /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-       /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
-    var
-     c =
-        /*<<scanf.ml:800:8>>*/  /*<<scanf.ml:800:8>>*/ peek_char
-         /*<<scanf.ml:800:8>>*/ (ib);
+     _az_ = _ay_ ||  /*<<scanf.ml:799:18>>*/ end_of_input(ib);
+    if(_az_)
+      /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+    var c =  /*<<scanf.ml:800:8>>*/ peek_char(ib);
     a:
     {
      if(78 <= c){
-      var switcher =  /*<<scanf.ml:800:8>>*/ c - 79 | 0;
+      var switcher = c - 79 | 0;
       if(30 < switcher >>> 0){
        if(32 <= switcher) break a;
        var
-        width$1 =
-           /*<<scanf.ml:830:16>>*/  /*<<scanf.ml:830:16>>*/ store_char
-            /*<<scanf.ml:830:16>>*/ (width$0, ib, c),
+        width$1 =  /*<<scanf.ml:830:16>>*/ store_char(width$0, ib, c),
         _aA_ = 0 === width$1 ? 1 : 0,
-        _aB_ =
-          _aA_
-          ||
-            /*<<scanf.ml:831:20>>*/ end_of_input /*<<scanf.ml:831:20>>*/ (ib);
-        /*<<scanf.ml:831:20>>*/ if(_aB_)
-         /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-          /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
-        /*<<scanf.ml:831:50>>*/ return  /*<<scanf.ml:831:50>>*/ check_case_insensitive_string
-                /*<<scanf.ml:831:50>>*/ (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
+        _aB_ = _aA_ ||  /*<<scanf.ml:831:20>>*/ end_of_input(ib);
+       if(_aB_)
+         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+        /*<<scanf.ml:831:50>>*/ return check_case_insensitive_string
+               (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
       }
       if(26 !== switcher) break a;
      }
      else{
       if(48 === c){
        var
-        width$3 =
-           /*<<scanf.ml:802:16>>*/  /*<<scanf.ml:802:16>>*/ store_char
-            /*<<scanf.ml:802:16>>*/ (width$0, ib, c),
+        width$3 =  /*<<scanf.ml:802:16>>*/ store_char(width$0, ib, c),
         _aE_ = 0 === width$3 ? 1 : 0,
-        _aF_ =
-          _aE_
-          ||
-            /*<<scanf.ml:803:20>>*/ end_of_input /*<<scanf.ml:803:20>>*/ (ib);
-        /*<<scanf.ml:803:20>>*/ if(_aF_)
-         /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-          /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
+        _aF_ = _aE_ ||  /*<<scanf.ml:803:20>>*/ end_of_input(ib);
+       if(_aF_)
+         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
        var
         width$4 =
-           /*<<scanf.ml:804:16>>*/  /*<<scanf.ml:804:16>>*/ check_case_insensitive_string
-            /*<<scanf.ml:804:16>>*/ (width$3, ib, bad_hex_float, cst_x);
+           /*<<scanf.ml:804:16>>*/ check_case_insensitive_string
+           (width$3, ib, bad_hex_float, cst_x);
         /*<<scanf.ml:805:4>>*/ if
-        (0 !== width$4
-         &&
-          !
-           /*<<scanf.ml:805:20>>*/ end_of_input /*<<scanf.ml:805:20>>*/ (ib)){
-        var
-         _aG_ =
-            /*<<scanf.ml:806:24>>*/  /*<<scanf.ml:806:24>>*/ peek_char
-             /*<<scanf.ml:806:24>>*/ (ib)
-           - 46
-           | 0;
+        (0 !== width$4 && !  /*<<scanf.ml:805:20>>*/ end_of_input(ib)){
+        var _aG_ =  /*<<scanf.ml:806:24>>*/ peek_char(ib) - 46 | 0;
         b:
         {
          c:
@@ -35505,40 +29229,22 @@
          var width$5 = width$4;
         }
          /*<<scanf.ml:809:6>>*/ if
-         (0 !== width$5
-          &&
-           !
-            /*<<scanf.ml:809:22>>*/ end_of_input /*<<scanf.ml:809:22>>*/ (ib)){
-         var
-          c$0 =
-             /*<<scanf.ml:810:26>>*/  /*<<scanf.ml:810:26>>*/ peek_char
-              /*<<scanf.ml:810:26>>*/ (ib);
+         (0 !== width$5 && !  /*<<scanf.ml:809:22>>*/ end_of_input(ib)){
+         var c$0 =  /*<<scanf.ml:810:26>>*/ peek_char(ib);
          if(46 === c$0){
-          var
-           width$6 =
-              /*<<scanf.ml:812:24>>*/  /*<<scanf.ml:812:24>>*/ store_char
-               /*<<scanf.ml:812:24>>*/ (width$5, ib, c$0);
+          var width$6 =  /*<<scanf.ml:812:24>>*/ store_char(width$5, ib, c$0);
           b:
           {
             /*<<scanf.ml:813:12>>*/ if
-            (0 !== width$6
-             &&
-              !
-               /*<<scanf.ml:813:28>>*/ end_of_input
-                /*<<scanf.ml:813:28>>*/ (ib)){
-            var
-             match =
-                /*<<scanf.ml:814:20>>*/  /*<<scanf.ml:814:20>>*/ peek_char
-                 /*<<scanf.ml:814:20>>*/ (ib);
+            (0 !== width$6 && !  /*<<scanf.ml:813:28>>*/ end_of_input(ib)){
+            var match =  /*<<scanf.ml:814:20>>*/ peek_char(ib);
             c:
             {
              if(80 !== match && 112 !== match){
               var
                precision$0 =
-                  /*<<scanf.ml:817:32>>*/  /*<<scanf.ml:817:32>>*/ caml_call2
-                   /*<<scanf.ml:817:32>>*/ (Stdlib_Int[10],
-                   width$6,
-                   precision),
+                  /*<<scanf.ml:817:32>>*/ caml_call2
+                  (Stdlib_Int[10], width$6, precision),
                width$10 =
                  width$6
                  -
@@ -35562,223 +29268,139 @@
          else
           var width$8 = width$5;
           /*<<scanf.ml:821:8>>*/ if
-          (0 !== width$8
-           &&
-            !
-             /*<<scanf.ml:821:24>>*/ end_of_input /*<<scanf.ml:821:24>>*/ (ib)){
-          var
-           c$1 =
-              /*<<scanf.ml:822:16>>*/  /*<<scanf.ml:822:16>>*/ peek_char
-               /*<<scanf.ml:822:16>>*/ (ib);
+          (0 !== width$8 && !  /*<<scanf.ml:821:24>>*/ end_of_input(ib)){
+          var c$1 =  /*<<scanf.ml:822:16>>*/ peek_char(ib);
           if(80 !== c$1 && 112 !== c$1)
-            /*<<scanf.ml:827:17>>*/ return width$8 /*<<scanf.ml:827:17>>*/ ;
+            /*<<scanf.ml:827:17>>*/ return width$8;
           var
-           width$9 =
-              /*<<scanf.ml:824:24>>*/  /*<<scanf.ml:824:24>>*/ store_char
-               /*<<scanf.ml:824:24>>*/ (width$8, ib, c$1),
+           width$9 =  /*<<scanf.ml:824:24>>*/ store_char(width$8, ib, c$1),
            _aH_ = 0 === width$9 ? 1 : 0,
-           _aI_ =
-             _aH_
-             ||
-               /*<<scanf.ml:825:28>>*/ end_of_input
-                /*<<scanf.ml:825:28>>*/ (ib);
-           /*<<scanf.ml:825:28>>*/ if(_aI_)
-            /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-             /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
-           /*<<scanf.ml:825:58>>*/ return  /*<<scanf.ml:825:58>>*/ scan_optionally_signed_decimal
-                   /*<<scanf.ml:825:58>>*/ (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
+           _aI_ = _aH_ ||  /*<<scanf.ml:825:28>>*/ end_of_input(ib);
+          if(_aI_)
+            /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+           /*<<scanf.ml:825:58>>*/ return scan_optionally_signed_decimal
+                  (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
          }
-          /*<<scanf.ml:821:54>>*/ return width$8 /*<<scanf.ml:821:54>>*/ ;
+          /*<<scanf.ml:821:54>>*/ return width$8;
         }
-         /*<<scanf.ml:809:52>>*/ return width$5 /*<<scanf.ml:809:52>>*/ ;
+         /*<<scanf.ml:809:52>>*/ return width$5;
        }
-        /*<<scanf.ml:805:50>>*/ return width$4 /*<<scanf.ml:805:50>>*/ ;
+        /*<<scanf.ml:805:50>>*/ return width$4;
       }
       if(73 !== c) break a;
      }
      var
-      width$2 =
-         /*<<scanf.ml:834:16>>*/  /*<<scanf.ml:834:16>>*/ store_char
-          /*<<scanf.ml:834:16>>*/ (width$0, ib, c),
+      width$2 =  /*<<scanf.ml:834:16>>*/ store_char(width$0, ib, c),
       _aC_ = 0 === width$2 ? 1 : 0,
-      _aD_ =
-        _aC_
-        ||  /*<<scanf.ml:835:20>>*/ end_of_input /*<<scanf.ml:835:20>>*/ (ib);
-      /*<<scanf.ml:835:20>>*/ if(_aD_)
-       /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-        /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
-      /*<<scanf.ml:835:50>>*/ return  /*<<scanf.ml:835:50>>*/ check_case_insensitive_string
-              /*<<scanf.ml:835:50>>*/ (width$2,
-              ib,
-              bad_hex_float,
-              cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
-    }
-     /*<<scanf.ml:432:2>>*/ return  /*<<scanf.ml:432:2>>*/ bad_input
-             /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
-    /*<<scanf.ml:837:25>>*/ }
+      _aD_ = _aC_ ||  /*<<scanf.ml:835:20>>*/ end_of_input(ib);
+     if(_aD_)
+       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+      /*<<scanf.ml:835:50>>*/ return check_case_insensitive_string
+             (width$2, ib, bad_hex_float, cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
+    }
+     /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
+   }
    function scan_caml_float_rest(width, precision, ib){
     var
      _as_ = 0 === width ? 1 : 0,
-     _at_ =
-       _as_
-       ||  /*<<scanf.ml:841:18>>*/ end_of_input /*<<scanf.ml:841:18>>*/ (ib);
-     /*<<scanf.ml:841:18>>*/ if(_at_)
-      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+     _at_ = _as_ ||  /*<<scanf.ml:841:18>>*/ end_of_input(ib);
+    if(_at_)
+      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
-     width$0 =
-        /*<<scanf.ml:842:14>>*/  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star
-         /*<<scanf.ml:842:14>>*/ (width, ib),
+     width$0 =  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star(width, ib),
      _au_ = 0 === width$0 ? 1 : 0,
-     _av_ =
-       _au_
-       ||  /*<<scanf.ml:843:18>>*/ end_of_input /*<<scanf.ml:843:18>>*/ (ib);
-     /*<<scanf.ml:843:18>>*/ if(_av_)
-      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
-    var
-     c =
-        /*<<scanf.ml:844:10>>*/  /*<<scanf.ml:844:10>>*/ peek_char
-         /*<<scanf.ml:844:10>>*/ (ib),
-     switcher =  /*<<scanf.ml:844:10>>*/ c - 69 | 0;
+     _av_ = _au_ ||  /*<<scanf.ml:843:18>>*/ end_of_input(ib);
+    if(_av_)
+      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+    var c =  /*<<scanf.ml:844:10>>*/ peek_char(ib), switcher = c - 69 | 0;
     if(32 < switcher >>> 0){
      if(-23 === switcher){
       var
-       width$1 =
-          /*<<scanf.ml:847:16>>*/  /*<<scanf.ml:847:16>>*/ store_char
-           /*<<scanf.ml:847:16>>*/ (width$0, ib, c),
+       width$1 =  /*<<scanf.ml:847:16>>*/ store_char(width$0, ib, c),
        precision$0 =
-          /*<<scanf.ml:850:20>>*/  /*<<scanf.ml:850:20>>*/ caml_call2
-           /*<<scanf.ml:850:20>>*/ (Stdlib_Int[10], width$1, precision),
+          /*<<scanf.ml:850:20>>*/ caml_call2
+          (Stdlib_Int[10], width$1, precision),
        width_precision =
-          /*<<scanf.ml:853:26>>*/  /*<<scanf.ml:853:26>>*/ scan_fractional_part
-           /*<<scanf.ml:853:26>>*/ (precision$0, ib),
+          /*<<scanf.ml:853:26>>*/ scan_fractional_part(precision$0, ib),
        frac_width = precision$0 - width_precision | 0,
        width$2 = width$1 - frac_width | 0;
-       /*<<scanf.ml:859:4>>*/ return  /*<<scanf.ml:859:4>>*/ scan_exponent_part
-               /*<<scanf.ml:859:4>>*/ (width$2, ib) /*<<scanf.ml:862:21>>*/ ;
+       /*<<scanf.ml:859:4>>*/ return scan_exponent_part(width$2, ib) /*<<scanf.ml:862:21>>*/ ;
      }
     }
     else if(30 < switcher - 1 >>> 0)
-      /*<<scanf.ml:861:4>>*/ return  /*<<scanf.ml:861:4>>*/ scan_exponent_part
-              /*<<scanf.ml:861:4>>*/ (width$0, ib) /*<<scanf.ml:862:21>>*/ ;
-     /*<<scanf.ml:428:2>>*/ return  /*<<scanf.ml:428:2>>*/ bad_input
-             /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:862:21>>*/ ;
-    /*<<scanf.ml:862:21>>*/ }
+      /*<<scanf.ml:861:4>>*/ return scan_exponent_part(width$0, ib) /*<<scanf.ml:862:21>>*/ ;
+     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:862:21>>*/ ;
+   }
    function scan_caml_float(width, precision, ib){
     var
      _ae_ = 0 === width ? 1 : 0,
-     _af_ =
-       _ae_
-       ||  /*<<scanf.ml:866:18>>*/ end_of_input /*<<scanf.ml:866:18>>*/ (ib);
-     /*<<scanf.ml:866:18>>*/ if(_af_)
-      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+     _af_ = _ae_ ||  /*<<scanf.ml:866:18>>*/ end_of_input(ib);
+    if(_af_)
+      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
-     width$0 =
-        /*<<scanf.ml:867:14>>*/  /*<<scanf.ml:867:14>>*/ scan_sign
-         /*<<scanf.ml:867:14>>*/ (width, ib),
+     width$0 =  /*<<scanf.ml:867:14>>*/ scan_sign(width, ib),
      _ag_ = 0 === width$0 ? 1 : 0,
-     _ah_ =
-       _ag_
-       ||  /*<<scanf.ml:868:18>>*/ end_of_input /*<<scanf.ml:868:18>>*/ (ib);
-     /*<<scanf.ml:868:18>>*/ if(_ah_)
-      /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-       /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
-    var
-     c =
-        /*<<scanf.ml:869:8>>*/  /*<<scanf.ml:869:8>>*/ peek_char
-         /*<<scanf.ml:869:8>>*/ (ib);
+     _ah_ = _ag_ ||  /*<<scanf.ml:868:18>>*/ end_of_input(ib);
+    if(_ah_)
+      /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+    var c =  /*<<scanf.ml:869:8>>*/ peek_char(ib);
     if(49 <= c){
      if(58 > c){
       var
-       width$1 =
-          /*<<scanf.ml:903:16>>*/  /*<<scanf.ml:903:16>>*/ store_char
-           /*<<scanf.ml:903:16>>*/ (width$0, ib, c),
+       width$1 =  /*<<scanf.ml:903:16>>*/ store_char(width$0, ib, c),
        _ai_ = 0 === width$1 ? 1 : 0,
-       _aj_ =
-         _ai_
-         ||  /*<<scanf.ml:904:20>>*/ end_of_input /*<<scanf.ml:904:20>>*/ (ib);
-       /*<<scanf.ml:904:20>>*/ if(_aj_)
-        /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-         /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
-       /*<<scanf.ml:904:50>>*/ return  /*<<scanf.ml:904:50>>*/ scan_caml_float_rest
-               /*<<scanf.ml:904:50>>*/ (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
+       _aj_ = _ai_ ||  /*<<scanf.ml:904:20>>*/ end_of_input(ib);
+      if(_aj_)
+        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+       /*<<scanf.ml:904:50>>*/ return scan_caml_float_rest
+              (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      }
     }
     else if(48 <= c){
      var
-      width$2 =
-         /*<<scanf.ml:871:16>>*/  /*<<scanf.ml:871:16>>*/ store_char
-          /*<<scanf.ml:871:16>>*/ (width$0, ib, c),
+      width$2 =  /*<<scanf.ml:871:16>>*/ store_char(width$0, ib, c),
       _ak_ = 0 === width$2 ? 1 : 0,
-      _al_ =
-        _ak_
-        ||  /*<<scanf.ml:872:20>>*/ end_of_input /*<<scanf.ml:872:20>>*/ (ib);
-      /*<<scanf.ml:872:20>>*/ if(_al_)
-       /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-        /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
-     var
-      c$0 =
-         /*<<scanf.ml:873:10>>*/  /*<<scanf.ml:873:10>>*/ peek_char
-          /*<<scanf.ml:873:10>>*/ (ib);
+      _al_ = _ak_ ||  /*<<scanf.ml:872:20>>*/ end_of_input(ib);
+     if(_al_)
+       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+     var c$0 =  /*<<scanf.ml:873:10>>*/ peek_char(ib);
      if(88 !== c$0 && 120 !== c$0)
-       /*<<scanf.ml:900:6>>*/ return  /*<<scanf.ml:900:6>>*/ scan_caml_float_rest
-               /*<<scanf.ml:900:6>>*/ (width$2, precision, ib) /*<<scanf.ml:910:21>>*/ ;
+       /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
+              (width$2, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      var
-      width$3 =
-         /*<<scanf.ml:875:18>>*/  /*<<scanf.ml:875:18>>*/ store_char
-          /*<<scanf.ml:875:18>>*/ (width$2, ib, c$0),
+      width$3 =  /*<<scanf.ml:875:18>>*/ store_char(width$2, ib, c$0),
       _am_ = 0 === width$3 ? 1 : 0,
-      _an_ =
-        _am_
-        ||  /*<<scanf.ml:876:22>>*/ end_of_input /*<<scanf.ml:876:22>>*/ (ib);
-      /*<<scanf.ml:876:22>>*/ if(_an_)
-       /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-        /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+      _an_ = _am_ ||  /*<<scanf.ml:876:22>>*/ end_of_input(ib);
+     if(_an_)
+       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
       width$10 = scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$3, ib),
       _ao_ = 0 === width$10 ? 1 : 0,
-      _ap_ =
-        _ao_
-        ||  /*<<scanf.ml:878:22>>*/ end_of_input /*<<scanf.ml:878:22>>*/ (ib);
-      /*<<scanf.ml:878:22>>*/ if(_ap_)
-       /*<<scanf.ml:428:2>>*/  /*<<scanf.ml:428:2>>*/ bad_input
-        /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+      _ap_ = _ao_ ||  /*<<scanf.ml:878:22>>*/ end_of_input(ib);
+     if(_ap_)
+       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
-      c$1 =
-         /*<<scanf.ml:879:24>>*/  /*<<scanf.ml:879:24>>*/ peek_char
-          /*<<scanf.ml:879:24>>*/ (ib),
-      switcher =  /*<<scanf.ml:879:24>>*/ c$1 - 80 | 0;
+      c$1 =  /*<<scanf.ml:879:24>>*/ peek_char(ib),
+      switcher = c$1 - 80 | 0;
      a:
      {
       b:
       {
        if(32 < switcher >>> 0){
         if(-34 === switcher){
-         var
-          width$4 =
-             /*<<scanf.ml:881:22>>*/  /*<<scanf.ml:881:22>>*/ store_char
-              /*<<scanf.ml:881:22>>*/ (width$10, ib, c$1);
+         var width$4 =  /*<<scanf.ml:881:22>>*/ store_char(width$10, ib, c$1);
          c:
          {
            /*<<scanf.ml:882:10>>*/ if
-           (0 !== width$4
-            &&
-             !
-              /*<<scanf.ml:882:26>>*/ end_of_input
-               /*<<scanf.ml:882:26>>*/ (ib)){
-           var
-            match =
-               /*<<scanf.ml:883:18>>*/  /*<<scanf.ml:883:18>>*/ peek_char
-                /*<<scanf.ml:883:18>>*/ (ib);
+           (0 !== width$4 && !  /*<<scanf.ml:882:26>>*/ end_of_input(ib)){
+           var match =  /*<<scanf.ml:883:18>>*/ peek_char(ib);
            d:
            {
             if(80 !== match && 112 !== match){
              var
               precision$0 =
-                 /*<<scanf.ml:886:30>>*/  /*<<scanf.ml:886:30>>*/ caml_call2
-                  /*<<scanf.ml:886:30>>*/ (Stdlib_Int[10], width$4, precision),
+                 /*<<scanf.ml:886:30>>*/ caml_call2
+                 (Stdlib_Int[10], width$4, precision),
               width$9 =
                 width$4
                 -
@@ -35804,51 +29426,35 @@
        else if(30 < switcher - 1 >>> 0){var width$6 = width$10; break b;}
        var
         width$7 =
-           /*<<scanf.ml:428:2>>*/ bad_input
-            /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo);
+           /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
        break a;
       }
       var width$7 = width$6;
      }
       /*<<scanf.ml:891:6>>*/ if
-      (0 !== width$7
-       && !  /*<<scanf.ml:891:22>>*/ end_of_input /*<<scanf.ml:891:22>>*/ (ib)){
+      (0 !== width$7 && !  /*<<scanf.ml:891:22>>*/ end_of_input(ib)){
+      var c$2 =  /*<<scanf.ml:892:14>>*/ peek_char(ib);
+      if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$7;
       var
-       c$2 =
-          /*<<scanf.ml:892:14>>*/  /*<<scanf.ml:892:14>>*/ peek_char
-           /*<<scanf.ml:892:14>>*/ (ib);
-      if(80 !== c$2 && 112 !== c$2)
-        /*<<scanf.ml:897:15>>*/ return width$7 /*<<scanf.ml:897:15>>*/ ;
-      var
-       width$8 =
-          /*<<scanf.ml:894:22>>*/  /*<<scanf.ml:894:22>>*/ store_char
-           /*<<scanf.ml:894:22>>*/ (width$7, ib, c$2),
+       width$8 =  /*<<scanf.ml:894:22>>*/ store_char(width$7, ib, c$2),
        _aq_ = 0 === width$8 ? 1 : 0,
-       _ar_ =
-         _aq_
-         ||  /*<<scanf.ml:895:26>>*/ end_of_input /*<<scanf.ml:895:26>>*/ (ib);
-       /*<<scanf.ml:895:26>>*/ if(_ar_)
-        /*<<scanf.ml:432:2>>*/  /*<<scanf.ml:432:2>>*/ bad_input
-         /*<<scanf.ml:432:2>>*/ (cst_not_a_valid_float_in_hexad);
-       /*<<scanf.ml:895:56>>*/ return  /*<<scanf.ml:895:56>>*/ scan_optionally_signed_decimal
-               /*<<scanf.ml:895:56>>*/ (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
-     }
-      /*<<scanf.ml:891:52>>*/ return width$7 /*<<scanf.ml:891:52>>*/ ;
-    }
-     /*<<scanf.ml:428:2>>*/ return  /*<<scanf.ml:428:2>>*/ bad_input
-             /*<<scanf.ml:428:2>>*/ (cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:910:21>>*/ ;
-    /*<<scanf.ml:910:21>>*/ }
+       _ar_ = _aq_ ||  /*<<scanf.ml:895:26>>*/ end_of_input(ib);
+      if(_ar_)
+        /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
+       /*<<scanf.ml:895:56>>*/ return scan_optionally_signed_decimal
+              (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
+     }
+      /*<<scanf.ml:891:52>>*/ return width$7;
+    }
+     /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:910:21>>*/ ;
+   }
    function scan_string(stp, width, ib){
     var width$0 = width;
      /*<<scanf.ml:921:4>>*/ for(;;){
-     if(0 === width$0)
-       /*<<scanf.ml:921:22>>*/ return width$0 /*<<scanf.ml:921:22>>*/ ;
-     var
-      c =
-         /*<<scanf.ml:922:12>>*/  /*<<scanf.ml:922:12>>*/ peek_char
-          /*<<scanf.ml:922:12>>*/ (ib);
+     if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
+     var c =  /*<<scanf.ml:922:12>>*/ peek_char(ib);
       /*<<scanf.ml:923:7>>*/ if(ib[1])
-       /*<<scanf.ml:923:28>>*/ return width$0 /*<<scanf.ml:923:28>>*/ ;
+       /*<<scanf.ml:923:28>>*/ return width$0;
      if(! stp){
       var _ad_ =  /*<<scanf.ml:928:8>>*/ c - 9 | 0;
       a:
@@ -35857,25 +29463,18 @@
         if(23 === _ad_) break a;
        }
        else if(1 < _ad_ - 2 >>> 0) break a;
-       var
-        width$2 =
-           /*<<scanf.ml:930:20>>*/  /*<<scanf.ml:930:20>>*/ store_char
-            /*<<scanf.ml:930:20>>*/ (width$0, ib, c);
+       var width$2 =  /*<<scanf.ml:930:20>>*/ store_char(width$0, ib, c);
        width$0 = width$2;
        continue;
       }
-       /*<<scanf.ml:929:38>>*/ return width$0 /*<<scanf.ml:929:38>>*/ ;
+       /*<<scanf.ml:929:38>>*/ return width$0;
      }
      var c$0 = stp[1];
      if(c === c$0){
-       /*<<scanf.ml:237:4>>*/  /*<<scanf.ml:237:4>>*/ invalidate_current_char
-        /*<<scanf.ml:237:4>>*/ (ib);
-       /*<<scanf.ml:237:4>>*/ return width$0 /*<<scanf.ml:237:4>>*/ ;
+       /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
+      return width$0;
      }
-     var
-      width$1 =
-         /*<<scanf.ml:926:23>>*/  /*<<scanf.ml:926:23>>*/ store_char
-          /*<<scanf.ml:926:23>>*/ (width$0, ib, c);
+     var width$1 =  /*<<scanf.ml:926:23>>*/ store_char(width$0, ib, c);
      width$0 = width$1;
     }
     /*<<scanf.ml:931:12>>*/ }
@@ -35883,21 +29482,16 @@
      /*<<scanf.ml:969:2>>*/ return 97 <= c
             ? c - 87 | 0
             : 65 <= c ? c - 55 | 0 : c - 48 | 0 /*<<scanf.ml:979:23>>*/ ;
-    /*<<scanf.ml:979:23>>*/ }
+   }
    function check_next_char(message, width, ib){
      /*<<scanf.ml:995:2>>*/ if(0 === width)
-      /*<<scanf.ml:995:20>>*/ return  /*<<scanf.ml:995:20>>*/ bad_token_length
-              /*<<scanf.ml:995:20>>*/ (message) /*<<scanf.ml:998:3>>*/ ;
-    var
-     c =
-        /*<<scanf.ml:996:10>>*/  /*<<scanf.ml:996:10>>*/ peek_char
-         /*<<scanf.ml:996:10>>*/ (ib);
+      /*<<scanf.ml:995:20>>*/ return bad_token_length(message) /*<<scanf.ml:998:3>>*/ ;
+    var c =  /*<<scanf.ml:996:10>>*/ peek_char(ib);
      /*<<scanf.ml:997:5>>*/ return ib[1]
             ?  /*<<scanf.ml:421:4>>*/ bad_input
-               /*<<scanf.ml:421:4>>*/ ( /*<<scanf.ml:421:4>>*/ caml_call2
-                 /*<<scanf.ml:421:4>>*/ (Stdlib_Printf[4], _f_, message))
+              (caml_call2(Stdlib_Printf[4], _f_, message))
             : c /*<<scanf.ml:998:3>>*/ ;
-    /*<<scanf.ml:998:3>>*/ }
+   }
    function scan_backslash_char(width, ib){
     var c0 = check_next_char(cst_a_Char, width, ib);
     a:
@@ -35908,21 +29502,13 @@
        var
         get_digit$0 =
           function(param){
-           var
-            c =
-               /*<<scanf.ml:1010:14>>*/  /*<<scanf.ml:1010:14>>*/ next_char
-                /*<<scanf.ml:1010:14>>*/ (ib);
+           var c =  /*<<scanf.ml:1010:14>>*/ next_char(ib);
            return 9 < c - 48 >>> 0
-                   ?  /*<<scanf.ml:1013:13>>*/ bad_input_escape
-                      /*<<scanf.ml:1013:13>>*/ (c)
+                   ?  /*<<scanf.ml:1013:13>>*/ bad_input_escape(c)
                    : c /*<<scanf.ml:1013:31>>*/ ;
-           /*<<scanf.ml:1013:31>>*/ },
-        c1$0 =
-           /*<<scanf.ml:1015:13>>*/  /*<<scanf.ml:1015:13>>*/ get_digit$0
-            /*<<scanf.ml:1015:13>>*/ (0),
-        c2$0 =
-           /*<<scanf.ml:1016:13>>*/  /*<<scanf.ml:1016:13>>*/ get_digit$0
-            /*<<scanf.ml:1016:13>>*/ (0),
+          },
+        c1$0 =  /*<<scanf.ml:1015:13>>*/ get_digit$0(0),
+        c2$0 =  /*<<scanf.ml:1016:13>>*/ get_digit$0(0),
         c =
           ((100 * (c0 - 48 | 0) | 0) + (10 * (c1$0 - 48 | 0) | 0) | 0)
           + (c2$0 - 48 | 0)
@@ -35930,20 +29516,15 @@
        b:
        {
          /*<<scanf.ml:959:2>>*/ if(0 <= c && 255 >= c){
-         var
-          _ab_ =
-             /*<<scanf.ml:963:2>>*/ caml_call1
-              /*<<scanf.ml:963:2>>*/ (Stdlib[29], c);
+         var _ab_ =  /*<<scanf.ml:963:2>>*/ caml_call1(Stdlib[29], c);
          break b;
         }
         var
          _ab_ =
             /*<<scanf.ml:961:6>>*/ bad_input
-             /*<<scanf.ml:961:6>>*/ ( /*<<scanf.ml:961:6>>*/ caml_call4
-               /*<<scanf.ml:961:6>>*/ (Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
+            (caml_call4(Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
        }
-        /*<<scanf.ml:1017:39>>*/ return  /*<<scanf.ml:1017:39>>*/ store_char
-                /*<<scanf.ml:1017:39>>*/ (width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
+        /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
       }
       var switcher =  /*<<scanf.ml:1005:8>>*/ c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
@@ -35953,55 +29534,37 @@
           get_digit =
             function(param){
              var
-              c =
-                 /*<<scanf.ml:1020:14>>*/  /*<<scanf.ml:1020:14>>*/ next_char
-                  /*<<scanf.ml:1020:14>>*/ (ib),
-              _ac_ =  /*<<scanf.ml:1020:14>>*/ c - 48 | 0;
+              c =  /*<<scanf.ml:1020:14>>*/ next_char(ib),
+              _ac_ = c - 48 | 0;
              a:
              {
               if(22 < _ac_ >>> 0){
                if(5 < _ac_ - 49 >>> 0) break a;
               }
               else if(6 >= _ac_ - 10 >>> 0) break a;
-               /*<<scanf.ml:1022:53>>*/ return c /*<<scanf.ml:1022:53>>*/ ;
+               /*<<scanf.ml:1022:53>>*/ return c;
              }
-              /*<<scanf.ml:1023:13>>*/ return  /*<<scanf.ml:1023:13>>*/ bad_input_escape
-                      /*<<scanf.ml:1023:13>>*/ (c) /*<<scanf.ml:1023:31>>*/ ;
-             /*<<scanf.ml:1023:31>>*/ },
-          c1 =
-             /*<<scanf.ml:1024:13>>*/  /*<<scanf.ml:1024:13>>*/ get_digit
-              /*<<scanf.ml:1024:13>>*/ (0),
-          c2 =
-             /*<<scanf.ml:1025:13>>*/  /*<<scanf.ml:1025:13>>*/ get_digit
-              /*<<scanf.ml:1025:13>>*/ (0),
-          ___ =
-             /*<<scanf.ml:985:9>>*/  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char
-              /*<<scanf.ml:985:9>>*/ (c2),
+              /*<<scanf.ml:1023:13>>*/ return bad_input_escape(c) /*<<scanf.ml:1023:31>>*/ ;
+            },
+          c1 =  /*<<scanf.ml:1024:13>>*/ get_digit(0),
+          c2 =  /*<<scanf.ml:1025:13>>*/ get_digit(0),
+          ___ =  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char(c2),
           c$0 =
-            (16
-            *
-              /*<<scanf.ml:984:9>>*/ hexadecimal_value_of_char
-               /*<<scanf.ml:984:9>>*/ (c1)
-            | 0)
+            (16 *  /*<<scanf.ml:984:9>>*/ hexadecimal_value_of_char(c1) | 0)
             + ___
             | 0;
          b:
          {
            /*<<scanf.ml:986:2>>*/ if(0 <= c$0 && 255 >= c$0){
-           var
-            _aa_ =
-               /*<<scanf.ml:989:2>>*/ caml_call1
-                /*<<scanf.ml:989:2>>*/ (Stdlib[29], c$0);
+           var _aa_ =  /*<<scanf.ml:989:2>>*/ caml_call1(Stdlib[29], c$0);
            break b;
           }
           var
            _aa_ =
               /*<<scanf.ml:988:6>>*/ bad_input
-               /*<<scanf.ml:988:6>>*/ ( /*<<scanf.ml:988:6>>*/ caml_call3
-                 /*<<scanf.ml:988:6>>*/ (Stdlib_Printf[4], _m_, c1, c2));
+              (caml_call3(Stdlib_Printf[4], _m_, c1, c2));
          }
-          /*<<scanf.ml:1026:39>>*/ return  /*<<scanf.ml:1026:39>>*/ store_char
-                  /*<<scanf.ml:1026:39>>*/ (width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
+          /*<<scanf.ml:1026:39>>*/ return store_char(width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
         case 0:
         case 6:
         case 18:
@@ -36027,74 +29590,48 @@
       else if(98 === c0){var _$_ = 8; break b;}
       var _$_ = c0;
      }
-      /*<<scanf.ml:1007:33>>*/ return  /*<<scanf.ml:1007:33>>*/ store_char
-              /*<<scanf.ml:1007:33>>*/ (width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
+      /*<<scanf.ml:1007:33>>*/ return store_char(width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
     }
-     /*<<scanf.ml:1028:4>>*/ return  /*<<scanf.ml:1028:4>>*/ bad_input_escape
-             /*<<scanf.ml:1028:4>>*/ (c0) /*<<scanf.ml:1028:22>>*/ ;
-    /*<<scanf.ml:1028:22>>*/ }
+     /*<<scanf.ml:1028:4>>*/ return bad_input_escape(c0) /*<<scanf.ml:1028:22>>*/ ;
+   }
    function scan_caml_string(width, ib){
     function find_stop$0(counter, width){
      var width$0 = width;
       /*<<scanf.ml:1063:4>>*/ for(;;){
       var c = check_next_char(cst_a_String, width$0, ib);
       if(34 === c)
-        /*<<scanf.ml:1057:2>>*/ return  /*<<scanf.ml:1057:2>>*/ ignore_char
-                /*<<scanf.ml:1057:2>>*/ (width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
+        /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
       if(92 === c){
        var
-        width$1 =
-           /*<<scanf.ml:1065:29>>*/  /*<<scanf.ml:1065:29>>*/ ignore_char
-            /*<<scanf.ml:1065:29>>*/ (width$0, ib),
+        width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
         match = check_next_char(cst_a_String, width$1, ib);
        if(10 === match){
-        var
-         _Y_ =
-            /*<<scanf.ml:1071:26>>*/  /*<<scanf.ml:1071:26>>*/ ignore_char
-             /*<<scanf.ml:1071:26>>*/ (width$1, ib);
-         /*<<scanf.ml:1071:26>>*/ if(counter >= 50)
-          /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ caml_trampoline_return
-                  /*<<scanf.ml:1071:26>>*/ (skip_spaces, [0, _Y_]) /*<<scanf.ml:1066:53>>*/ ;
+        var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
+        if(counter >= 50)
+         return caml_trampoline_return(skip_spaces, [0, _Y_]) /*<<scanf.ml:1066:53>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1071:26>>*/ return  /*<<scanf.ml:1071:26>>*/ skip_spaces
-                 /*<<scanf.ml:1071:26>>*/ (counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
+         /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
        }
        if(13 === match){
-        var
-         width$3 =
-            /*<<scanf.ml:1070:27>>*/  /*<<scanf.ml:1070:27>>*/ ignore_char
-             /*<<scanf.ml:1070:27>>*/ (width$1, ib);
+        var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
         if(10 === check_next_char(cst_a_String, width$3, ib)){
-         var
-          _Z_ =
-             /*<<scanf.ml:1076:26>>*/  /*<<scanf.ml:1076:26>>*/ ignore_char
-              /*<<scanf.ml:1076:26>>*/ (width$3, ib);
-          /*<<scanf.ml:1076:26>>*/ if(counter >= 50)
-           /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ caml_trampoline_return
-                   /*<<scanf.ml:1076:26>>*/ (skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
+         var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
+         if(counter >= 50)
+          return caml_trampoline_return(skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
          var counter$1 = counter + 1 | 0;
-          /*<<scanf.ml:1076:26>>*/ return  /*<<scanf.ml:1076:26>>*/ skip_spaces
-                  /*<<scanf.ml:1076:26>>*/ (counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
+          /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
         }
-        var
-         width$5 =
-            /*<<scanf.ml:1077:21>>*/  /*<<scanf.ml:1077:21>>*/ store_char
-             /*<<scanf.ml:1077:21>>*/ (width$3, ib, 13);
+        var width$5 =  /*<<scanf.ml:1077:21>>*/ store_char(width$3, ib, 13);
         width$0 = width$5;
        }
        else{
         var
-         width$4 =
-            /*<<scanf.ml:1072:21>>*/  /*<<scanf.ml:1072:21>>*/ scan_backslash_char
-             /*<<scanf.ml:1072:21>>*/ (width$1, ib);
+         width$4 =  /*<<scanf.ml:1072:21>>*/ scan_backslash_char(width$1, ib);
         width$0 = width$4;
        }
       }
       else{
-       var
-        width$2 =
-           /*<<scanf.ml:1066:21>>*/  /*<<scanf.ml:1066:21>>*/ store_char
-            /*<<scanf.ml:1066:21>>*/ (width$0, ib, c);
+       var width$2 =  /*<<scanf.ml:1066:21>>*/ store_char(width$0, ib, c);
        width$0 = width$2;
       }
      }
@@ -36107,127 +29644,92 @@
       /*<<scanf.ml:1080:4>>*/ for(;;){
       if(32 !== check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
-         /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ caml_trampoline_return
-                 /*<<scanf.ml:1082:11>>*/ (find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
+        return caml_trampoline_return(find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<scanf.ml:1082:11>>*/ return  /*<<scanf.ml:1082:11>>*/ find_stop$0
-                /*<<scanf.ml:1082:11>>*/ (counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
+        /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
       }
-      var
-       width$1 =
-          /*<<scanf.ml:1081:25>>*/  /*<<scanf.ml:1081:25>>*/ ignore_char
-           /*<<scanf.ml:1081:25>>*/ (width$0, ib);
+      var width$1 =  /*<<scanf.ml:1081:25>>*/ ignore_char(width$0, ib);
       width$0 = width$1;
      }
      /*<<scanf.ml:1082:26>>*/ }
-    var
-     c =
-        /*<<scanf.ml:1058:10>>*/  /*<<scanf.ml:1058:10>>*/ checked_peek_char
-         /*<<scanf.ml:1058:10>>*/ (ib);
+    var c =  /*<<scanf.ml:1058:10>>*/ checked_peek_char(ib);
     return 34 === c
-            ?  /*<<scanf.ml:1059:24>>*/ find_stop
-               /*<<scanf.ml:1059:24>>*/ ( /*<<scanf.ml:1059:24>>*/ ignore_char
-                 /*<<scanf.ml:1059:24>>*/ (width, ib))
-            :  /*<<scanf.ml:1060:11>>*/ character_mismatch
-               /*<<scanf.ml:1060:11>>*/ (34, c) /*<<scanf.ml:1084:18>>*/ ;
-    /*<<scanf.ml:1084:18>>*/ }
+            ?  /*<<scanf.ml:1059:24>>*/ find_stop(ignore_char(width, ib))
+            :  /*<<scanf.ml:1060:11>>*/ character_mismatch(34, c) /*<<scanf.ml:1084:18>>*/ ;
+   }
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
      var i$0 = i;
       /*<<scanf.ml:1104:4>>*/ for(;;){
-      var
-       c =
-          /*<<scanf.ml:1104:12>>*/  /*<<scanf.ml:1104:12>>*/ peek_char
-           /*<<scanf.ml:1104:12>>*/ (ib),
-       _U_ = 0 < i$0 ? 1 : 0;
+      var c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib), _U_ = 0 < i$0 ? 1 : 0;
       if(_U_){
        var _V_ =  /*<<scanf.ml:1105:20>>*/ 1 - ib[1];
        if(_V_)
         var
          _W_ =
-            /*<<scanf.ml:1106:7>>*/  /*<<scanf.ml:1106:7>>*/ caml_call2
-             /*<<scanf.ml:1106:7>>*/ (CamlinternalFormat[1], char_set, c),
-         _X_ =  /*<<scanf.ml:1106:7>>*/ _W_ ? c !== stp ? 1 : 0 : _W_;
+            /*<<scanf.ml:1106:7>>*/ caml_call2
+            (CamlinternalFormat[1], char_set, c),
+         _X_ = _W_ ? c !== stp ? 1 : 0 : _W_;
        else
         var _X_ = _V_;
       }
       else
        var _X_ = _U_;
       if(! _X_) return _X_;
-       /*<<scanf.ml:1108:14>>*/  /*<<scanf.ml:1108:14>>*/ store_char
-        /*<<scanf.ml:1108:14>>*/ (Stdlib[19], ib, c);
+       /*<<scanf.ml:1108:14>>*/ store_char(Stdlib[19], ib, c);
       var i$1 = i$0 - 1 | 0;
       i$0 = i$1;
      }
      /*<<scanf.ml:1109:28>>*/ }
     if(! scan_indic)
-      /*<<scanf.ml:1111:12>>*/ return  /*<<scanf.ml:1111:12>>*/ scan_chars
-              /*<<scanf.ml:1111:12>>*/ (width, -1) /*<<scanf.ml:1118:34>>*/ ;
+      /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1) /*<<scanf.ml:1118:34>>*/ ;
     var c = scan_indic[1];
-     /*<<scanf.ml:1113:4>>*/  /*<<scanf.ml:1113:4>>*/ scan_chars
-      /*<<scanf.ml:1113:4>>*/ (width, c);
+     /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
     var _T_ =  /*<<scanf.ml:1114:11>>*/ 1 - ib[1];
-    if(! _T_)  /*<<scanf.ml:1114:11>>*/ return _T_ /*<<scanf.ml:1114:11>>*/ ;
-    var
-     ci =
-        /*<<scanf.ml:1115:15>>*/  /*<<scanf.ml:1115:15>>*/ peek_char
-         /*<<scanf.ml:1115:15>>*/ (ib);
+    if(! _T_) return _T_;
+    var ci =  /*<<scanf.ml:1115:15>>*/ peek_char(ib);
     return c === ci
-            ?  /*<<scanf.ml:1117:11>>*/ invalidate_current_char
-               /*<<scanf.ml:1117:11>>*/ (ib)
-            :  /*<<scanf.ml:1118:11>>*/ character_mismatch
-               /*<<scanf.ml:1118:11>>*/ (c, ci) /*<<scanf.ml:1118:34>>*/ ;
-    /*<<scanf.ml:1118:34>>*/ }
+            ?  /*<<scanf.ml:1117:11>>*/ invalidate_current_char(ib)
+            :  /*<<scanf.ml:1118:11>>*/ character_mismatch(c, ci) /*<<scanf.ml:1118:34>>*/ ;
+   }
    function scanf_bad_input(ib, x){
      /*<<scanf.ml:1122:20>>*/ if(x[1] === Scan_failure)
      var s = x[2];
     else{
      if(x[1] !== Stdlib[7])
-       /*<<scanf.ml:1126:9>>*/ throw  /*<<scanf.ml:1126:9>>*/ caml_maybe_attach_backtrace
-              /*<<scanf.ml:1126:9>>*/ (x, 1);
+       /*<<scanf.ml:1126:9>>*/ throw caml_maybe_attach_backtrace(x, 1);
      var s = x[2];
     }
-    var
-     i =
-        /*<<scanf.ml:1124:12>>*/  /*<<scanf.ml:1124:12>>*/ char_count
-         /*<<scanf.ml:1124:12>>*/ (ib);
-     /*<<scanf.ml:1125:14>>*/ return  /*<<scanf.ml:1125:14>>*/ bad_input
-             /*<<scanf.ml:1125:14>>*/ ( /*<<scanf.ml:1125:14>>*/ caml_call3
-               /*<<scanf.ml:1125:14>>*/ (Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
-    /*<<scanf.ml:1126:16>>*/ }
+    var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
+     /*<<scanf.ml:1125:14>>*/ return bad_input
+            (caml_call3(Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
+   }
    function width_of_pad_opt(pad_opt){
      /*<<scanf.ml:1138:31>>*/ if(! pad_opt)
-      /*<<scanf.ml:1139:12>>*/ return Stdlib[19] /*<<scanf.ml:1139:12>>*/ ;
+      /*<<scanf.ml:1139:12>>*/ return Stdlib[19];
     var width = pad_opt[1];
-     /*<<scanf.ml:1140:18>>*/ return width /*<<scanf.ml:1140:18>>*/ ;
+     /*<<scanf.ml:1140:18>>*/ return width;
     /*<<scanf.ml:1140:23>>*/ }
    function stopper_of_formatting_lit(fmting){
      /*<<scanf.ml:1144:2>>*/ if(6 === fmting)
-      /*<<scanf.ml:1144:35>>*/ return _p_ /*<<scanf.ml:1144:35>>*/ ;
+      /*<<scanf.ml:1144:35>>*/ return _p_;
     var
      str =
-        /*<<scanf.ml:1145:14>>*/  /*<<scanf.ml:1145:14>>*/ caml_call1
-         /*<<scanf.ml:1145:14>>*/ (CamlinternalFormat[17], fmting),
-     stp =
-        /*<<scanf.ml:1146:14>>*/  /*<<scanf.ml:1146:14>>*/ caml_string_get
-         /*<<scanf.ml:1146:14>>*/ (str, 1),
+        /*<<scanf.ml:1145:14>>*/ caml_call1(CamlinternalFormat[17], fmting),
+     stp =  /*<<scanf.ml:1146:14>>*/ caml_string_get(str, 1),
      sub_str =
-        /*<<scanf.ml:1147:18>>*/  /*<<scanf.ml:1147:18>>*/ caml_call3
-         /*<<scanf.ml:1147:18>>*/ (Stdlib_String[16],
+        /*<<scanf.ml:1147:18>>*/ caml_call3
+        (Stdlib_String[16],
          str,
          2,
-          /*<<scanf.ml:1147:4>>*/ caml_ml_string_length
-           /*<<scanf.ml:1147:4>>*/ (str)
-         - 2
-         | 0);
-     /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str] /*<<scanf.ml:1148:4>>*/ ;
+          /*<<scanf.ml:1147:4>>*/ caml_ml_string_length(str) - 2 | 0);
+     /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str];
     /*<<scanf.ml:1148:16>>*/ }
    function take_format_readers$0(counter, k, fmt){
     var fmt$0 = fmt;
      /*<<scanf.ml:1161:13>>*/ for(;;){
      if(typeof fmt$0 === "number")
-       /*<<scanf.ml:1198:40>>*/ return  /*<<scanf.ml:1198:40>>*/ caml_call1
-               /*<<scanf.ml:1198:40>>*/ (k, 0) /*<<scanf.ml:1198:45>>*/ ;
+       /*<<scanf.ml:1198:40>>*/ return caml_call1(k, 0) /*<<scanf.ml:1198:45>>*/ ;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1]; fmt$0 = rest; break;
@@ -36262,18 +29764,16 @@
          rest$13 = fmt$0[3],
          fmtty = fmt$0[2],
          _Q_ =
-            /*<<scanf.ml:1195:44>>*/  /*<<scanf.ml:1195:44>>*/ caml_call1
-             /*<<scanf.ml:1195:44>>*/ (CamlinternalFormat[21], fmtty),
+            /*<<scanf.ml:1195:44>>*/ caml_call1(CamlinternalFormat[21], fmtty),
          _R_ =
-            /*<<scanf.ml:1195:33>>*/  /*<<scanf.ml:1195:33>>*/ caml_call1
-             /*<<scanf.ml:1195:33>>*/ (CamlinternalFormatBasics[2], _Q_);
+            /*<<scanf.ml:1195:33>>*/ caml_call1
+            (CamlinternalFormatBasics[2], _Q_);
          /*<<scanf.ml:1195:5>>*/ if(counter >= 50)
-          /*<<scanf.ml:1195:5>>*/ return  /*<<scanf.ml:1195:5>>*/ caml_trampoline_return
-                  /*<<scanf.ml:1195:5>>*/ (take_fmtty_format_readers$0,
-                  [0, k, _R_, rest$13]) /*<<scanf.ml:1198:45>>*/ ;
+         return caml_trampoline_return
+                 (take_fmtty_format_readers$0, [0, k, _R_, rest$13]) /*<<scanf.ml:1198:45>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1195:5>>*/ return  /*<<scanf.ml:1195:5>>*/ take_fmtty_format_readers$0
-                 /*<<scanf.ml:1195:5>>*/ (counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
+         /*<<scanf.ml:1195:5>>*/ return take_fmtty_format_readers$0
+                (counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
        case 15:
         var rest$14 = fmt$0[1]; fmt$0 = rest$14; break;
        case 16:
@@ -36287,10 +29787,8 @@
           rest$17 = fmt$0[2],
           fmt$1 = _S_[1][1],
           fmt$2 =
-             /*<<scanf.ml:1189:28>>*/  /*<<scanf.ml:1189:28>>*/ caml_call2
-              /*<<scanf.ml:1189:28>>*/ (CamlinternalFormatBasics[3],
-              fmt$1,
-              rest$17);
+             /*<<scanf.ml:1189:28>>*/ caml_call2
+             (CamlinternalFormatBasics[3], fmt$1, rest$17);
          fmt$0 = fmt$2;
         }
         else{
@@ -36298,10 +29796,8 @@
           rest$18 = fmt$0[2],
           fmt$3 = _S_[1][1],
           fmt$4 =
-             /*<<scanf.ml:1191:28>>*/  /*<<scanf.ml:1191:28>>*/ caml_call2
-              /*<<scanf.ml:1191:28>>*/ (CamlinternalFormatBasics[3],
-              fmt$3,
-              rest$18);
+             /*<<scanf.ml:1191:28>>*/ caml_call2
+             (CamlinternalFormatBasics[3], fmt$3, rest$18);
          fmt$0 = fmt$4;
         }
         break;
@@ -36310,10 +29806,9 @@
          /*<<scanf.ml:1163:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1164:31>>*/ return  /*<<scanf.ml:1164:33>>*/ caml_call1
-                   /*<<scanf.ml:1164:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1164:62>>*/ ;
-          /*<<scanf.ml:1164:62>>*/ }
-          /*<<scanf.ml:1165:6>>*/ return  /*<<scanf.ml:1165:6>>*/ take_format_readers
-                  /*<<scanf.ml:1165:6>>*/ (new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ; /*<<scanf.ml:1165:40>>*/ } /*<<scanf.ml:1163:4>>*/ ;
+                  (k, [0, reader, readers_rest]) /*<<scanf.ml:1164:62>>*/ ;
+         }
+          /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ;} /*<<scanf.ml:1163:4>>*/ ;
        case 20:
         var rest$19 = fmt$0[3]; fmt$0 = rest$19; break;
        case 21:
@@ -36332,10 +29827,10 @@
              /*<<scanf.ml:1236:4>>*/ return function(reader){
              function new_k(readers_rest){
                /*<<scanf.ml:1237:31>>*/ return  /*<<scanf.ml:1237:33>>*/ caml_call1
-                       /*<<scanf.ml:1237:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1237:62>>*/ ;
-              /*<<scanf.ml:1237:62>>*/ }
-              /*<<scanf.ml:1238:6>>*/ return  /*<<scanf.ml:1238:6>>*/ take_format_readers
-                      /*<<scanf.ml:1238:6>>*/ (new_k, rest$22) /*<<scanf.ml:1238:35>>*/ ; /*<<scanf.ml:1238:35>>*/ } /*<<scanf.ml:1236:4>>*/ ;
+                      (k, [0, reader, readers_rest]) /*<<scanf.ml:1237:62>>*/ ;
+             }
+              /*<<scanf.ml:1238:6>>*/ return take_format_readers
+                     (new_k, rest$22) /*<<scanf.ml:1238:35>>*/ ;} /*<<scanf.ml:1236:4>>*/ ;
            default: fmt$0 = rest$22;
          }
         else
@@ -36361,12 +29856,11 @@
            case 9:
             var fmtty$0 = ign[2];
              /*<<scanf.ml:1250:39>>*/ if(counter >= 50)
-              /*<<scanf.ml:1250:39>>*/ return  /*<<scanf.ml:1250:39>>*/ caml_trampoline_return
-                      /*<<scanf.ml:1250:39>>*/ (take_fmtty_format_readers$0,
-                      [0, k, fmtty$0, rest$22]) /*<<scanf.ml:1198:45>>*/ ;
+             return caml_trampoline_return
+                     (take_fmtty_format_readers$0, [0, k, fmtty$0, rest$22]) /*<<scanf.ml:1198:45>>*/ ;
             var counter$1 = counter + 1 | 0;
-             /*<<scanf.ml:1250:39>>*/ return  /*<<scanf.ml:1250:39>>*/ take_fmtty_format_readers$0
-                     /*<<scanf.ml:1250:39>>*/ (counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
+             /*<<scanf.ml:1250:39>>*/ return take_fmtty_format_readers$0
+                    (counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
            case 10:
             fmt$0 = rest$22; break;
            default: fmt$0 = rest$22;
@@ -36375,7 +29869,7 @@
        default: var rest$23 = fmt$0[3]; fmt$0 = rest$23;
      }
     }
-    /*<<scanf.ml:1198:45>>*/ }
+   }
    function take_format_readers(k, fmt){
      /*<<?>>*/ return caml_trampoline(take_format_readers$0(0, k, fmt));
    }
@@ -36384,11 +29878,10 @@
      /*<<scanf.ml:1204:19>>*/ for(;;){
      if(typeof fmtty$0 === "number"){
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
-        /*<<scanf.ml:1225:35>>*/ return  /*<<scanf.ml:1225:35>>*/ caml_trampoline_return
-                /*<<scanf.ml:1225:35>>*/ (take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
+       return caml_trampoline_return(take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
       var counter$0 = counter + 1 | 0;
-       /*<<scanf.ml:1225:35>>*/ return  /*<<scanf.ml:1225:35>>*/ take_format_readers$0
-               /*<<scanf.ml:1225:35>>*/ (counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
+       /*<<scanf.ml:1225:35>>*/ return take_format_readers$0
+              (counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
      }
      switch(fmtty$0[0]){
        case 0:
@@ -36415,14 +29908,13 @@
          ty2 = fmtty$0[2],
          ty1 = fmtty$0[1],
          _P_ =
-            /*<<scanf.ml:1227:19>>*/  /*<<scanf.ml:1227:19>>*/ caml_call1
-             /*<<scanf.ml:1227:19>>*/ (CamlinternalFormat[21], ty1),
+            /*<<scanf.ml:1227:19>>*/ caml_call1(CamlinternalFormat[21], ty1),
          ty =
-            /*<<scanf.ml:1227:13>>*/  /*<<scanf.ml:1227:13>>*/ caml_call2
-             /*<<scanf.ml:1227:13>>*/ (CamlinternalFormat[22], _P_, ty2),
+            /*<<scanf.ml:1227:13>>*/ caml_call2
+            (CamlinternalFormat[22], _P_, ty2),
          fmtty$10 =
-            /*<<scanf.ml:1228:32>>*/  /*<<scanf.ml:1228:32>>*/ caml_call2
-             /*<<scanf.ml:1228:32>>*/ (CamlinternalFormatBasics[1], ty, rest);
+            /*<<scanf.ml:1228:32>>*/ caml_call2
+            (CamlinternalFormatBasics[1], ty, rest);
         fmtty$0 = fmtty$10;
         break;
        case 10:
@@ -36436,19 +29928,19 @@
          /*<<scanf.ml:1206:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1207:31>>*/ return  /*<<scanf.ml:1207:33>>*/ caml_call1
-                   /*<<scanf.ml:1207:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1207:62>>*/ ;
-          /*<<scanf.ml:1207:62>>*/ }
-          /*<<scanf.ml:1208:6>>*/ return  /*<<scanf.ml:1208:6>>*/ take_fmtty_format_readers
-                  /*<<scanf.ml:1208:6>>*/ (new_k, fmt_rest, fmt) /*<<scanf.ml:1208:50>>*/ ; /*<<scanf.ml:1208:50>>*/ } /*<<scanf.ml:1206:4>>*/ ;
+                  (k, [0, reader, readers_rest]) /*<<scanf.ml:1207:62>>*/ ;
+         }
+          /*<<scanf.ml:1208:6>>*/ return take_fmtty_format_readers
+                 (new_k, fmt_rest, fmt) /*<<scanf.ml:1208:50>>*/ ;} /*<<scanf.ml:1206:4>>*/ ;
        default:
         var fmt_rest$0 = fmtty$0[1];
          /*<<scanf.ml:1210:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1211:31>>*/ return  /*<<scanf.ml:1211:33>>*/ caml_call1
-                   /*<<scanf.ml:1211:33>>*/ (k, [0, reader, readers_rest]) /*<<scanf.ml:1211:62>>*/ ;
-          /*<<scanf.ml:1211:62>>*/ }
-          /*<<scanf.ml:1212:6>>*/ return  /*<<scanf.ml:1212:6>>*/ take_fmtty_format_readers
-                  /*<<scanf.ml:1212:6>>*/ (new_k, fmt_rest$0, fmt) /*<<scanf.ml:1212:50>>*/ ; /*<<scanf.ml:1212:50>>*/ } /*<<scanf.ml:1210:4>>*/ ;
+                  (k, [0, reader, readers_rest]) /*<<scanf.ml:1211:62>>*/ ;
+         }
+          /*<<scanf.ml:1212:6>>*/ return take_fmtty_format_readers
+                 (new_k, fmt_rest$0, fmt) /*<<scanf.ml:1212:50>>*/ ;} /*<<scanf.ml:1210:4>>*/ ;
      }
     }
     /*<<scanf.ml:1228:58>>*/ }
@@ -36459,24 +29951,15 @@
    function make_scanf(ib, fmt, readers){
     var fmt$0 = fmt;
      /*<<scanf.ml:1266:22>>*/ for(;;){
-     if(typeof fmt$0 === "number")
-       /*<<scanf.ml:1418:4>>*/ return 0 /*<<scanf.ml:1418:4>>*/ ;
+     if(typeof fmt$0 === "number")  /*<<scanf.ml:1418:4>>*/ return 0;
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
-         /*<<scanf.ml:939:31>>*/  /*<<scanf.ml:939:31>>*/ store_char
-          /*<<scanf.ml:939:31>>*/ (0,
-          ib,
-           /*<<scanf.ml:939:31>>*/ checked_peek_char
-            /*<<scanf.ml:939:31>>*/ (ib));
-        var
-         c$0 =
-            /*<<scanf.ml:1269:12>>*/  /*<<scanf.ml:1269:12>>*/ token_char
-             /*<<scanf.ml:1269:12>>*/ (ib);
+         /*<<scanf.ml:939:31>>*/ store_char(0, ib, checked_peek_char(ib));
+        var c$0 =  /*<<scanf.ml:1269:12>>*/ token_char(ib);
          /*<<scanf.ml:1270:4>>*/ return [0,
                 c$0,
-                 /*<<scanf.ml:1270:13>>*/ make_scanf
-                  /*<<scanf.ml:1270:13>>*/ (ib, rest, readers)] /*<<scanf.ml:1270:4>>*/ ;
+                 /*<<scanf.ml:1270:13>>*/ make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:4>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
@@ -36484,43 +29967,28 @@
            function(width){
             var c = check_next_char(cst_a_Char, width, ib);
             return 39 === c
-                    ?  /*<<scanf.ml:1034:2>>*/ ignore_char
-                       /*<<scanf.ml:1034:2>>*/ (width, ib)
-                    :  /*<<scanf.ml:1049:11>>*/ character_mismatch
-                       /*<<scanf.ml:1049:11>>*/ (39, c) /*<<scanf.ml:1049:36>>*/ ;
-            /*<<scanf.ml:1049:36>>*/ },
-         c =
-            /*<<scanf.ml:1035:10>>*/  /*<<scanf.ml:1035:10>>*/ checked_peek_char
-             /*<<scanf.ml:1035:10>>*/ (ib),
+                    ?  /*<<scanf.ml:1034:2>>*/ ignore_char(width, ib)
+                    :  /*<<scanf.ml:1049:11>>*/ character_mismatch(39, c) /*<<scanf.ml:1049:36>>*/ ;
+           },
+         c =  /*<<scanf.ml:1035:10>>*/ checked_peek_char(ib),
          width$0 =  /*<<scanf.ml:1272:4>>*/ 0;
         if(39 === c){
          var
-          width =
-             /*<<scanf.ml:1036:24>>*/  /*<<scanf.ml:1036:24>>*/ ignore_char
-              /*<<scanf.ml:1036:24>>*/ (width$0, ib),
+          width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
           c$3 = check_next_char(cst_a_Char, width, ib);
          if(92 === c$3)
-           /*<<scanf.ml:1042:16>>*/  /*<<scanf.ml:1042:16>>*/ find_stop
-            /*<<scanf.ml:1042:16>>*/ ( /*<<scanf.ml:1042:16>>*/ scan_backslash_char
-              /*<<scanf.ml:1042:16>>*/ ( /*<<scanf.ml:1042:37>>*/ ignore_char
-                /*<<scanf.ml:1042:37>>*/ (width, ib),
-              ib));
+           /*<<scanf.ml:1042:16>>*/ find_stop
+           (scan_backslash_char
+             ( /*<<scanf.ml:1042:37>>*/ ignore_char(width, ib), ib));
          else
-           /*<<scanf.ml:1044:16>>*/  /*<<scanf.ml:1044:16>>*/ find_stop
-            /*<<scanf.ml:1044:16>>*/ ( /*<<scanf.ml:1044:16>>*/ store_char
-              /*<<scanf.ml:1044:16>>*/ (width, ib, c$3));
+           /*<<scanf.ml:1044:16>>*/ find_stop(store_char(width, ib, c$3));
         }
         else
-          /*<<scanf.ml:1037:11>>*/  /*<<scanf.ml:1037:11>>*/ character_mismatch
-           /*<<scanf.ml:1037:11>>*/ (39, c);
-        var
-         c$1 =
-            /*<<scanf.ml:1273:12>>*/  /*<<scanf.ml:1273:12>>*/ token_char
-             /*<<scanf.ml:1273:12>>*/ (ib);
+          /*<<scanf.ml:1037:11>>*/ character_mismatch(39, c);
+        var c$1 =  /*<<scanf.ml:1273:12>>*/ token_char(ib);
          /*<<scanf.ml:1274:4>>*/ return [0,
                 c$1,
-                 /*<<scanf.ml:1274:13>>*/ make_scanf
-                  /*<<scanf.ml:1274:13>>*/ (ib, rest$0, readers)] /*<<scanf.ml:1274:4>>*/ ;
+                 /*<<scanf.ml:1274:13>>*/ make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:4>>*/ ;
        case 2:
         var pad = fmt$0[1], match = fmt$0[2];
         if(typeof match !== "number")
@@ -36530,24 +29998,17 @@
              rest$2 = match[2],
              fmting_lit = match[1],
              match$0 =
-                /*<<scanf.ml:1277:19>>*/  /*<<scanf.ml:1277:19>>*/ stopper_of_formatting_lit
-                 /*<<scanf.ml:1277:19>>*/ (fmting_lit),
+                /*<<scanf.ml:1277:19>>*/ stopper_of_formatting_lit(fmting_lit),
              str = match$0[2],
              stp = match$0[1],
              scan$0 =
                function(width, param, ib){
-                 /*<<scanf.ml:1278:26>>*/ return  /*<<scanf.ml:1278:26>>*/ scan_string
-                         /*<<scanf.ml:1278:26>>*/ ([0, stp], width, ib) /*<<scanf.ml:1278:57>>*/ ;
-                /*<<scanf.ml:1278:57>>*/ },
+                 /*<<scanf.ml:1278:26>>*/ return scan_string
+                        ([0, stp], width, ib) /*<<scanf.ml:1278:57>>*/ ;
+               },
              str_rest =  /*<<scanf.ml:1279:19>>*/ [11, str, rest$2];
-             /*<<scanf.ml:1280:4>>*/ return  /*<<scanf.ml:1280:4>>*/ pad_prec_scanf
-                     /*<<scanf.ml:1280:4>>*/ (ib,
-                     str_rest,
-                     readers,
-                     pad,
-                     0,
-                     scan$0,
-                     token_string) /*<<scanf.ml:1418:7>>*/ ;
+             /*<<scanf.ml:1280:4>>*/ return pad_prec_scanf
+                    (ib, str_rest, readers, pad, 0, scan$0, token_string) /*<<scanf.ml:1418:7>>*/ ;
            case 18:
             var _D_ = match[1];
             if(0 === _D_[0]){
@@ -36556,15 +30017,12 @@
               fmt$1 = _D_[1][1],
               scan$1 =
                  /*<<scanf.ml:1282:4>>*/ function(width, param, ib){
-                  /*<<scanf.ml:1282:26>>*/ return  /*<<scanf.ml:1282:26>>*/ scan_string
-                          /*<<scanf.ml:1282:26>>*/ (_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
-                 /*<<scanf.ml:1282:57>>*/ };
-              /*<<scanf.ml:1283:4>>*/ return  /*<<scanf.ml:1283:4>>*/ pad_prec_scanf
-                      /*<<scanf.ml:1283:4>>*/ (ib,
+                  /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
+                };
+              /*<<scanf.ml:1283:4>>*/ return pad_prec_scanf
+                     (ib,
                        /*<<scanf.ml:1283:22>>*/ caml_call2
-                        /*<<scanf.ml:1283:22>>*/ (CamlinternalFormatBasics[3],
-                        fmt$1,
-                        rest$3),
+                       (CamlinternalFormatBasics[3], fmt$1, rest$3),
                       readers,
                       pad,
                       0,
@@ -36576,15 +30034,12 @@
              fmt$2 = _D_[1][1],
              scan$2 =
                 /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
-                 /*<<scanf.ml:1286:26>>*/ return  /*<<scanf.ml:1286:26>>*/ scan_string
-                         /*<<scanf.ml:1286:26>>*/ (_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
-                /*<<scanf.ml:1286:57>>*/ };
-             /*<<scanf.ml:1287:4>>*/ return  /*<<scanf.ml:1287:4>>*/ pad_prec_scanf
-                     /*<<scanf.ml:1287:4>>*/ (ib,
+                 /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
+               };
+             /*<<scanf.ml:1287:4>>*/ return pad_prec_scanf
+                    (ib,
                       /*<<scanf.ml:1287:22>>*/ caml_call2
-                       /*<<scanf.ml:1287:22>>*/ (CamlinternalFormatBasics[3],
-                       fmt$2,
-                       rest$4),
+                      (CamlinternalFormatBasics[3], fmt$2, rest$4),
                      readers,
                      pad,
                      0,
@@ -36595,34 +30050,20 @@
          rest$1 = fmt$0[2],
          scan =
             /*<<scanf.ml:1290:4>>*/ function(width, param, ib){
-             /*<<scanf.ml:1290:26>>*/ return  /*<<scanf.ml:1290:26>>*/ scan_string
-                     /*<<scanf.ml:1290:26>>*/ (0, width, ib) /*<<scanf.ml:1290:51>>*/ ;
-            /*<<scanf.ml:1290:51>>*/ };
-         /*<<scanf.ml:1291:4>>*/ return  /*<<scanf.ml:1291:4>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1291:4>>*/ (ib,
-                 rest$1,
-                 readers,
-                 pad,
-                 0,
-                 scan,
-                 token_string) /*<<scanf.ml:1418:7>>*/ ;
+             /*<<scanf.ml:1290:26>>*/ return scan_string(0, width, ib) /*<<scanf.ml:1290:51>>*/ ;
+           };
+         /*<<scanf.ml:1291:4>>*/ return pad_prec_scanf
+                (ib, rest$1, readers, pad, 0, scan, token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 3:
         var
          rest$5 = fmt$0[2],
          pad$0 = fmt$0[1],
          scan$3 =
             /*<<scanf.ml:1294:4>>*/ function(width, param, ib){
-             /*<<scanf.ml:1294:26>>*/ return  /*<<scanf.ml:1294:26>>*/ scan_caml_string
-                     /*<<scanf.ml:1294:26>>*/ (width, ib) /*<<scanf.ml:1294:51>>*/ ;
-            /*<<scanf.ml:1294:51>>*/ };
-         /*<<scanf.ml:1295:4>>*/ return  /*<<scanf.ml:1295:4>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1295:4>>*/ (ib,
-                 rest$5,
-                 readers,
-                 pad$0,
-                 0,
-                 scan$3,
-                 token_string) /*<<scanf.ml:1418:7>>*/ ;
+             /*<<scanf.ml:1294:26>>*/ return scan_caml_string(width, ib) /*<<scanf.ml:1294:51>>*/ ;
+           };
+         /*<<scanf.ml:1295:4>>*/ return pad_prec_scanf
+                (ib, rest$5, readers, pad$0, 0, scan$3, token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 4:
         var
          rest$6 = fmt$0[4],
@@ -36630,25 +30071,24 @@
          pad$1 = fmt$0[2],
          iconv = fmt$0[1],
          conv =
-            /*<<scanf.ml:1297:12>>*/  /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
-             /*<<scanf.ml:1297:12>>*/ ( /*<<scanf.ml:1297:39>>*/ caml_call1
-               /*<<scanf.ml:1297:39>>*/ (CamlinternalFormat[16], iconv)),
+            /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
+            ( /*<<scanf.ml:1297:39>>*/ caml_call1
+              (CamlinternalFormat[16], iconv)),
          scan$4 =
            function(width, param, ib){
-             /*<<scanf.ml:1298:26>>*/ return  /*<<scanf.ml:1298:26>>*/ scan_int_conversion
-                     /*<<scanf.ml:1298:26>>*/ (conv, width, ib) /*<<scanf.ml:1298:56>>*/ ;
-            /*<<scanf.ml:1298:56>>*/ };
-         /*<<scanf.ml:1299:49>>*/ return  /*<<scanf.ml:1299:49>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1299:49>>*/ (ib,
+             /*<<scanf.ml:1298:26>>*/ return scan_int_conversion
+                    (conv, width, ib) /*<<scanf.ml:1298:56>>*/ ;
+           };
+         /*<<scanf.ml:1299:49>>*/ return pad_prec_scanf
+                (ib,
                  rest$6,
                  readers,
                  pad$1,
                  prec,
                  scan$4,
                  function(ib){
-                   /*<<scanf.ml:537:24>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
-                           /*<<scanf.ml:537:24>>*/ ( /*<<scanf.ml:537:38>>*/ token_int_literal
-                             /*<<scanf.ml:537:38>>*/ (conv, ib)) /*<<scanf.ml:537:24>>*/ ;
+                   /*<<scanf.ml:537:24>>*/ return caml_int_of_string
+                          ( /*<<scanf.ml:537:38>>*/ token_int_literal(conv, ib)) /*<<scanf.ml:537:24>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 5:
         var
@@ -36657,25 +30097,24 @@
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1],
          conv$0 =
-            /*<<scanf.ml:1301:12>>*/  /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
-             /*<<scanf.ml:1301:12>>*/ ( /*<<scanf.ml:1301:39>>*/ caml_call1
-               /*<<scanf.ml:1301:39>>*/ (CamlinternalFormat[16], iconv$0)),
+            /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
+            ( /*<<scanf.ml:1301:39>>*/ caml_call1
+              (CamlinternalFormat[16], iconv$0)),
          scan$5 =
            function(width, param, ib){
-             /*<<scanf.ml:1302:26>>*/ return  /*<<scanf.ml:1302:26>>*/ scan_int_conversion
-                     /*<<scanf.ml:1302:26>>*/ (conv$0, width, ib) /*<<scanf.ml:1302:56>>*/ ;
-            /*<<scanf.ml:1302:56>>*/ };
-         /*<<scanf.ml:1303:49>>*/ return  /*<<scanf.ml:1303:49>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1303:49>>*/ (ib,
+             /*<<scanf.ml:1302:26>>*/ return scan_int_conversion
+                    (conv$0, width, ib) /*<<scanf.ml:1302:56>>*/ ;
+           };
+         /*<<scanf.ml:1303:49>>*/ return pad_prec_scanf
+                (ib,
                  rest$7,
                  readers,
                  pad$2,
                  prec$0,
                  scan$5,
                  function(ib){
-                   /*<<scanf.ml:558:26>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
-                           /*<<scanf.ml:558:26>>*/ ( /*<<scanf.ml:558:42>>*/ token_int_literal
-                             /*<<scanf.ml:558:42>>*/ (conv$0, ib)) /*<<scanf.ml:558:26>>*/ ;
+                   /*<<scanf.ml:558:26>>*/ return caml_int_of_string
+                          ( /*<<scanf.ml:558:42>>*/ token_int_literal(conv$0, ib)) /*<<scanf.ml:558:26>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 6:
         var
@@ -36684,25 +30123,24 @@
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1],
          conv$1 =
-            /*<<scanf.ml:1305:12>>*/  /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
-             /*<<scanf.ml:1305:12>>*/ ( /*<<scanf.ml:1305:39>>*/ caml_call1
-               /*<<scanf.ml:1305:39>>*/ (CamlinternalFormat[16], iconv$1)),
+            /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
+            ( /*<<scanf.ml:1305:39>>*/ caml_call1
+              (CamlinternalFormat[16], iconv$1)),
          scan$6 =
            function(width, param, ib){
-             /*<<scanf.ml:1306:26>>*/ return  /*<<scanf.ml:1306:26>>*/ scan_int_conversion
-                     /*<<scanf.ml:1306:26>>*/ (conv$1, width, ib) /*<<scanf.ml:1306:56>>*/ ;
-            /*<<scanf.ml:1306:56>>*/ };
-         /*<<scanf.ml:1307:49>>*/ return  /*<<scanf.ml:1307:49>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1307:49>>*/ (ib,
+             /*<<scanf.ml:1306:26>>*/ return scan_int_conversion
+                    (conv$1, width, ib) /*<<scanf.ml:1306:56>>*/ ;
+           };
+         /*<<scanf.ml:1307:49>>*/ return pad_prec_scanf
+                (ib,
                  rest$8,
                  readers,
                  pad$3,
                  prec$1,
                  scan$6,
                  function(ib){
-                   /*<<scanf.ml:557:30>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
-                           /*<<scanf.ml:557:30>>*/ ( /*<<scanf.ml:557:50>>*/ token_int_literal
-                             /*<<scanf.ml:557:50>>*/ (conv$1, ib)) /*<<scanf.ml:557:30>>*/ ;
+                   /*<<scanf.ml:557:30>>*/ return caml_int_of_string
+                          ( /*<<scanf.ml:557:50>>*/ token_int_literal(conv$1, ib)) /*<<scanf.ml:557:30>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 7:
         var
@@ -36711,33 +30149,32 @@
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1],
          conv$2 =
-            /*<<scanf.ml:1309:12>>*/  /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
-             /*<<scanf.ml:1309:12>>*/ ( /*<<scanf.ml:1309:39>>*/ caml_call1
-               /*<<scanf.ml:1309:39>>*/ (CamlinternalFormat[16], iconv$2)),
+            /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
+            ( /*<<scanf.ml:1309:39>>*/ caml_call1
+              (CamlinternalFormat[16], iconv$2)),
          scan$7 =
            function(width, param, ib){
-             /*<<scanf.ml:1310:26>>*/ return  /*<<scanf.ml:1310:26>>*/ scan_int_conversion
-                     /*<<scanf.ml:1310:26>>*/ (conv$2, width, ib) /*<<scanf.ml:1310:56>>*/ ;
-            /*<<scanf.ml:1310:56>>*/ };
-         /*<<scanf.ml:1311:49>>*/ return  /*<<scanf.ml:1311:49>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1311:49>>*/ (ib,
+             /*<<scanf.ml:1310:26>>*/ return scan_int_conversion
+                    (conv$2, width, ib) /*<<scanf.ml:1310:56>>*/ ;
+           };
+         /*<<scanf.ml:1311:49>>*/ return pad_prec_scanf
+                (ib,
                  rest$9,
                  readers,
                  pad$4,
                  prec$2,
                  scan$7,
                  function(ib){
-                   /*<<scanf.ml:559:26>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
-                           /*<<scanf.ml:559:26>>*/ ( /*<<scanf.ml:559:42>>*/ token_int_literal
-                             /*<<scanf.ml:559:42>>*/ (conv$2, ib)) /*<<scanf.ml:559:26>>*/ ;
+                   /*<<scanf.ml:559:26>>*/ return runtime.caml_int64_of_string
+                          ( /*<<scanf.ml:559:42>>*/ token_int_literal(conv$2, ib)) /*<<scanf.ml:559:26>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 8:
         switch(fmt$0[1][2]){
           case 5:
           case 8:
            var rest$11 = fmt$0[4], prec$4 = fmt$0[3], pad$6 = fmt$0[2];
-            /*<<scanf.ml:1313:4>>*/ return  /*<<scanf.ml:1313:4>>*/ pad_prec_scanf
-                    /*<<scanf.ml:1313:4>>*/ (ib,
+            /*<<scanf.ml:1313:4>>*/ return pad_prec_scanf
+                   (ib,
                     rest$11,
                     readers,
                     pad$6,
@@ -36747,8 +30184,8 @@
           case 6:
           case 7:
            var rest$12 = fmt$0[4], prec$5 = fmt$0[3], pad$7 = fmt$0[2];
-            /*<<scanf.ml:1318:4>>*/ return  /*<<scanf.ml:1318:4>>*/ pad_prec_scanf
-                    /*<<scanf.ml:1318:4>>*/ (ib,
+            /*<<scanf.ml:1318:4>>*/ return pad_prec_scanf
+                   (ib,
                     rest$12,
                     readers,
                     pad$7,
@@ -36757,8 +30194,8 @@
                     token_float) /*<<scanf.ml:1418:7>>*/ ;
           default:
            var rest$10 = fmt$0[4], prec$3 = fmt$0[3], pad$5 = fmt$0[2];
-            /*<<scanf.ml:1316:4>>*/ return  /*<<scanf.ml:1316:4>>*/ pad_prec_scanf
-                    /*<<scanf.ml:1316:4>>*/ (ib,
+            /*<<scanf.ml:1316:4>>*/ return pad_prec_scanf
+                   (ib,
                     rest$10,
                     readers,
                     pad$5,
@@ -36773,9 +30210,7 @@
          scan$8 =
             /*<<scanf.ml:1320:4>>*/ function(_O_, param, ib){
             var
-             c =
-                /*<<scanf.ml:1089:10>>*/  /*<<scanf.ml:1089:10>>*/ checked_peek_char
-                 /*<<scanf.ml:1089:10>>*/ (ib),
+             c =  /*<<scanf.ml:1089:10>>*/ checked_peek_char(ib),
              m =
                 /*<<scanf.ml:1090:2>>*/ 102 === c
                 ? 5
@@ -36783,106 +30218,81 @@
                   === c
                   ? 4
                   :  /*<<scanf.ml:1095:6>>*/ bad_input
-                     /*<<scanf.ml:1095:6>>*/ ( /*<<scanf.ml:1096:8>>*/ caml_call2
-                       /*<<scanf.ml:1096:8>>*/ (Stdlib_Printf[4], _n_, c));
-             /*<<scanf.ml:1097:2>>*/ return  /*<<scanf.ml:1097:2>>*/ scan_string
-                     /*<<scanf.ml:1097:2>>*/ (0, m, ib) /*<<scanf.ml:1320:34>>*/ ;
-            /*<<scanf.ml:1320:34>>*/ };
-         /*<<scanf.ml:1321:4>>*/ return  /*<<scanf.ml:1321:4>>*/ pad_prec_scanf
-                 /*<<scanf.ml:1321:4>>*/ (ib,
-                 rest$13,
-                 readers,
-                 pad$8,
-                 0,
-                 scan$8,
-                 token_bool) /*<<scanf.ml:1418:7>>*/ ;
+                    ( /*<<scanf.ml:1096:8>>*/ caml_call2
+                      (Stdlib_Printf[4], _n_, c));
+             /*<<scanf.ml:1097:2>>*/ return scan_string(0, m, ib) /*<<scanf.ml:1320:34>>*/ ;
+           };
+         /*<<scanf.ml:1321:4>>*/ return pad_prec_scanf
+                (ib, rest$13, readers, pad$8, 0, scan$8, token_bool) /*<<scanf.ml:1418:7>>*/ ;
        case 10:
         var rest$14 = fmt$0[1];
-         /*<<scanf.ml:1337:7>>*/ if
-         (!
-           /*<<scanf.ml:1337:7>>*/ end_of_input /*<<scanf.ml:1337:7>>*/ (ib))
-          /*<<scanf.ml:1338:9>>*/ return  /*<<scanf.ml:1338:9>>*/ bad_input
-                  /*<<scanf.ml:1338:9>>*/ (cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1337:7>>*/ if(! end_of_input(ib))
+          /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
         fmt$0 = rest$14;
         break;
        case 11:
         var rest$15 = fmt$0[2], str$0 = fmt$0[1];
-         /*<<scanf.ml:1341:4>>*/  /*<<scanf.ml:1341:4>>*/ caml_call2
-          /*<<scanf.ml:1341:4>>*/ (Stdlib_String[30],
+         /*<<scanf.ml:1341:4>>*/ caml_call2
+         (Stdlib_String[30],
           function(_N_){ /*<<?>>*/ return check_char(ib, _N_);},
           str$0);
         fmt$0 = rest$15;
         break;
        case 12:
         var rest$16 = fmt$0[2], chr = fmt$0[1];
-         /*<<scanf.ml:1344:4>>*/  /*<<scanf.ml:1344:4>>*/ check_char
-          /*<<scanf.ml:1344:4>>*/ (ib, chr);
+         /*<<scanf.ml:1344:4>>*/ check_char(ib, chr);
         fmt$0 = rest$16;
         break;
        case 13:
         var rest$17 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
-         /*<<scanf.ml:1348:12>>*/  /*<<scanf.ml:1348:12>>*/ scan_caml_string
-          /*<<scanf.ml:1348:12>>*/ ( /*<<scanf.ml:1348:29>>*/ width_of_pad_opt
-            /*<<scanf.ml:1348:29>>*/ (pad_opt),
-          ib);
-        var
-         s =
-            /*<<scanf.ml:1349:12>>*/  /*<<scanf.ml:1349:12>>*/ token_string
-             /*<<scanf.ml:1349:12>>*/ (ib);
+         /*<<scanf.ml:1348:12>>*/ scan_caml_string
+         ( /*<<scanf.ml:1348:29>>*/ width_of_pad_opt(pad_opt), ib);
+        var s =  /*<<scanf.ml:1349:12>>*/ token_string(ib);
          /*<<scanf.ml:1350:4>>*/ try{
          var
           _E_ =
-             /*<<scanf.ml:1351:10>>*/  /*<<scanf.ml:1351:10>>*/ caml_call2
-              /*<<scanf.ml:1351:10>>*/ (CamlinternalFormat[14], s, fmtty),
+             /*<<scanf.ml:1351:10>>*/ caml_call2
+             (CamlinternalFormat[14], s, fmtty),
           fmt$3 = _E_;
         }
         catch(exn$0){
          var exn = caml_wrap_exception(exn$0);
          if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
-         var
-          msg = exn[2],
-          fmt$3 =
-             /*<<scanf.ml:1352:26>>*/ bad_input /*<<scanf.ml:1352:26>>*/ (msg);
+         var msg = exn[2], fmt$3 =  /*<<scanf.ml:1352:26>>*/ bad_input(msg);
         }
          /*<<scanf.ml:1354:4>>*/ return [0,
                 fmt$3,
-                 /*<<scanf.ml:1354:15>>*/ make_scanf
-                  /*<<scanf.ml:1354:15>>*/ (ib, rest$17, readers)] /*<<scanf.ml:1354:4>>*/ ;
+                 /*<<scanf.ml:1354:15>>*/ make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:4>>*/ ;
        case 14:
         var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
-         /*<<scanf.ml:1356:12>>*/  /*<<scanf.ml:1356:12>>*/ scan_caml_string
-          /*<<scanf.ml:1356:12>>*/ ( /*<<scanf.ml:1356:29>>*/ width_of_pad_opt
-            /*<<scanf.ml:1356:29>>*/ (pad_opt$0),
-          ib);
-        var
-         s$0 =
-            /*<<scanf.ml:1357:12>>*/  /*<<scanf.ml:1357:12>>*/ token_string
-             /*<<scanf.ml:1357:12>>*/ (ib);
+         /*<<scanf.ml:1356:12>>*/ scan_caml_string
+         ( /*<<scanf.ml:1356:29>>*/ width_of_pad_opt(pad_opt$0), ib);
+        var s$0 =  /*<<scanf.ml:1357:12>>*/ token_string(ib);
         try{
          var
           fmt$6 =
              /*<<scanf.ml:1360:26>>*/ caml_call2
-               /*<<scanf.ml:1360:26>>*/ (CamlinternalFormat[13], 0, s$0)
+              (CamlinternalFormat[13], 0, s$0)
              [1],
           fmt$7 =
              /*<<scanf.ml:1361:27>>*/ caml_call2
-               /*<<scanf.ml:1361:27>>*/ (CamlinternalFormat[13], 0, s$0)
+              (CamlinternalFormat[13], 0, s$0)
              [1],
           _G_ =
-             /*<<scanf.ml:1375:36>>*/  /*<<scanf.ml:1375:36>>*/ caml_call1
-              /*<<scanf.ml:1375:36>>*/ (CamlinternalFormat[21], fmtty$0),
+             /*<<scanf.ml:1375:36>>*/ caml_call1
+             (CamlinternalFormat[21], fmtty$0),
           _H_ =
-             /*<<scanf.ml:1375:25>>*/  /*<<scanf.ml:1375:25>>*/ caml_call1
-              /*<<scanf.ml:1375:25>>*/ (CamlinternalFormatBasics[2], _G_),
+             /*<<scanf.ml:1375:25>>*/ caml_call1
+             (CamlinternalFormatBasics[2], _G_),
           fmt$8 =
-             /*<<scanf.ml:1375:8>>*/  /*<<scanf.ml:1375:8>>*/ caml_call2
-              /*<<scanf.ml:1375:8>>*/ (CamlinternalFormat[12], fmt$7, _H_),
+             /*<<scanf.ml:1375:8>>*/ caml_call2
+             (CamlinternalFormat[12], fmt$7, _H_),
           _I_ =
-             /*<<scanf.ml:1374:24>>*/  /*<<scanf.ml:1374:24>>*/ caml_call1
-              /*<<scanf.ml:1374:24>>*/ (CamlinternalFormatBasics[2], fmtty$0),
+             /*<<scanf.ml:1374:24>>*/ caml_call1
+             (CamlinternalFormatBasics[2], fmtty$0),
           _J_ =
-             /*<<scanf.ml:1374:8>>*/  /*<<scanf.ml:1374:8>>*/ caml_call2
-              /*<<scanf.ml:1374:8>>*/ (CamlinternalFormat[12], fmt$6, _I_),
+             /*<<scanf.ml:1374:8>>*/ caml_call2
+             (CamlinternalFormat[12], fmt$6, _I_),
           fmt$5 = fmt$8,
           fmt$4 = _J_;
         }
@@ -36899,29 +30309,25 @@
          /*<<scanf.ml:1378:4>>*/ return [0,
                 [0, fmt$4, s$0],
                  /*<<scanf.ml:1379:10>>*/ make_scanf
-                  /*<<scanf.ml:1379:10>>*/ (ib,
+                 (ib,
                    /*<<scanf.ml:1379:24>>*/ caml_call2
-                    /*<<scanf.ml:1379:24>>*/ (CamlinternalFormatBasics[3],
-                    fmt$5,
-                    rest$18),
+                   (CamlinternalFormatBasics[3], fmt$5, rest$18),
                   readers)] /*<<scanf.ml:1378:4>>*/ ;
        case 15:
-         /*<<scanf.ml:1323:4>>*/ return  /*<<scanf.ml:1323:4>>*/ caml_call1
-                 /*<<scanf.ml:1323:4>>*/ (Stdlib[1],
-                 cst_scanf_bad_conversion_a) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1323:4>>*/ return caml_call1
+                (Stdlib[1], cst_scanf_bad_conversion_a) /*<<scanf.ml:1418:7>>*/ ;
        case 16:
-         /*<<scanf.ml:1325:4>>*/ return  /*<<scanf.ml:1325:4>>*/ caml_call1
-                 /*<<scanf.ml:1325:4>>*/ (Stdlib[1],
-                 cst_scanf_bad_conversion_t) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1325:4>>*/ return caml_call1
+                (Stdlib[1], cst_scanf_bad_conversion_t) /*<<scanf.ml:1418:7>>*/ ;
        case 17:
         var
          rest$19 = fmt$0[2],
          formatting_lit = fmt$0[1],
          _K_ =
-            /*<<scanf.ml:1401:32>>*/  /*<<scanf.ml:1401:32>>*/ caml_call1
-             /*<<scanf.ml:1401:32>>*/ (CamlinternalFormat[17], formatting_lit);
-         /*<<scanf.ml:1401:4>>*/  /*<<scanf.ml:1401:4>>*/ caml_call2
-          /*<<scanf.ml:1401:4>>*/ (Stdlib_String[30],
+            /*<<scanf.ml:1401:32>>*/ caml_call1
+            (CamlinternalFormat[17], formatting_lit);
+         /*<<scanf.ml:1401:4>>*/ caml_call2
+         (Stdlib_String[30],
           function(_M_){ /*<<?>>*/ return check_char(ib, _M_);},
           _K_);
         fmt$0 = rest$19;
@@ -36930,49 +30336,38 @@
         var _L_ = fmt$0[1];
         if(0 === _L_[0]){
          var rest$20 = fmt$0[2], fmt$9 = _L_[1][1];
-          /*<<scanf.ml:1404:4>>*/  /*<<scanf.ml:1404:4>>*/ check_char
-           /*<<scanf.ml:1404:4>>*/ (ib, 64);
-          /*<<scanf.ml:1404:23>>*/  /*<<scanf.ml:1404:23>>*/ check_char
-           /*<<scanf.ml:1404:23>>*/ (ib, 123);
+          /*<<scanf.ml:1404:4>>*/ check_char(ib, 64);
+          /*<<scanf.ml:1404:23>>*/ check_char(ib, 123);
          var
           fmt$10 =
-             /*<<scanf.ml:1405:18>>*/  /*<<scanf.ml:1405:18>>*/ caml_call2
-              /*<<scanf.ml:1405:18>>*/ (CamlinternalFormatBasics[3],
-              fmt$9,
-              rest$20);
+             /*<<scanf.ml:1405:18>>*/ caml_call2
+             (CamlinternalFormatBasics[3], fmt$9, rest$20);
          fmt$0 = fmt$10;
         }
         else{
          var rest$21 = fmt$0[2], fmt$11 = _L_[1][1];
-          /*<<scanf.ml:1407:4>>*/  /*<<scanf.ml:1407:4>>*/ check_char
-           /*<<scanf.ml:1407:4>>*/ (ib, 64);
-          /*<<scanf.ml:1407:23>>*/  /*<<scanf.ml:1407:23>>*/ check_char
-           /*<<scanf.ml:1407:23>>*/ (ib, 91);
+          /*<<scanf.ml:1407:4>>*/ check_char(ib, 64);
+          /*<<scanf.ml:1407:23>>*/ check_char(ib, 91);
          var
           fmt$12 =
-             /*<<scanf.ml:1408:18>>*/  /*<<scanf.ml:1408:18>>*/ caml_call2
-              /*<<scanf.ml:1408:18>>*/ (CamlinternalFormatBasics[3],
-              fmt$11,
-              rest$21);
+             /*<<scanf.ml:1408:18>>*/ caml_call2
+             (CamlinternalFormatBasics[3], fmt$11, rest$21);
          fmt$0 = fmt$12;
         }
         break;
        case 19:
         var fmt_rest = fmt$0[1];
          /*<<scanf.ml:1329:4>>*/ if(! readers)
-          /*<<scanf.ml:1334:8>>*/ return  /*<<scanf.ml:1334:8>>*/ caml_call1
-                  /*<<scanf.ml:1334:8>>*/ (Stdlib[1],
-                  cst_scanf_missing_reader) /*<<scanf.ml:1418:7>>*/ ;
+          /*<<scanf.ml:1334:8>>*/ return caml_call1
+                 (Stdlib[1], cst_scanf_missing_reader) /*<<scanf.ml:1418:7>>*/ ;
         var
          readers_rest = readers[2],
          reader = readers[1],
-         x =
-            /*<<scanf.ml:1331:16>>*/  /*<<scanf.ml:1331:16>>*/ caml_call1
-             /*<<scanf.ml:1331:16>>*/ (reader, ib);
+         x =  /*<<scanf.ml:1331:16>>*/ caml_call1(reader, ib);
          /*<<scanf.ml:1332:8>>*/ return [0,
                 x,
                  /*<<scanf.ml:1332:17>>*/ make_scanf
-                  /*<<scanf.ml:1332:17>>*/ (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:8>>*/ ;
+                 (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:8>>*/ ;
        case 20:
         var width_opt = fmt$0[1], match$1 = fmt$0[3];
         if(typeof match$1 !== "number" && 17 === match$1[0]){
@@ -36981,164 +30376,116 @@
           fmting_lit$0 = match$1[1],
           char_set$0 = fmt$0[2],
           match$2 =
-             /*<<scanf.ml:1382:19>>*/  /*<<scanf.ml:1382:19>>*/ stopper_of_formatting_lit
-              /*<<scanf.ml:1382:19>>*/ (fmting_lit$0),
+             /*<<scanf.ml:1382:19>>*/ stopper_of_formatting_lit(fmting_lit$0),
           str$1 = match$2[2],
           stp$0 = match$2[1],
-          width$2 =
-             /*<<scanf.ml:1383:16>>*/  /*<<scanf.ml:1383:16>>*/ width_of_pad_opt
-              /*<<scanf.ml:1383:16>>*/ (width_opt);
-          /*<<scanf.ml:1384:4>>*/  /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
-           /*<<scanf.ml:1384:4>>*/ (char_set$0, [0, stp$0], width$2, ib);
+          width$2 =  /*<<scanf.ml:1383:16>>*/ width_of_pad_opt(width_opt);
+          /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
+          (char_set$0, [0, stp$0], width$2, ib);
          var
-          s$2 =
-             /*<<scanf.ml:1385:12>>*/  /*<<scanf.ml:1385:12>>*/ token_string
-              /*<<scanf.ml:1385:12>>*/ (ib),
+          s$2 =  /*<<scanf.ml:1385:12>>*/ token_string(ib),
           str_rest$0 =  /*<<scanf.ml:1386:19>>*/ [11, str$1, rest$23];
           /*<<scanf.ml:1387:4>>*/ return [0,
                  s$2,
-                  /*<<scanf.ml:1387:13>>*/ make_scanf
-                   /*<<scanf.ml:1387:13>>*/ (ib, str_rest$0, readers)] /*<<scanf.ml:1387:4>>*/ ;
+                  /*<<scanf.ml:1387:13>>*/ make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:4>>*/ ;
         }
         var
          rest$22 = fmt$0[3],
          char_set = fmt$0[2],
-         width$1 =
-            /*<<scanf.ml:1389:16>>*/  /*<<scanf.ml:1389:16>>*/ width_of_pad_opt
-             /*<<scanf.ml:1389:16>>*/ (width_opt);
-         /*<<scanf.ml:1390:4>>*/  /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
-          /*<<scanf.ml:1390:4>>*/ (char_set, 0, width$1, ib);
-        var
-         s$1 =
-            /*<<scanf.ml:1391:12>>*/  /*<<scanf.ml:1391:12>>*/ token_string
-             /*<<scanf.ml:1391:12>>*/ (ib);
+         width$1 =  /*<<scanf.ml:1389:16>>*/ width_of_pad_opt(width_opt);
+         /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
+         (char_set, 0, width$1, ib);
+        var s$1 =  /*<<scanf.ml:1391:12>>*/ token_string(ib);
          /*<<scanf.ml:1392:4>>*/ return [0,
                 s$1,
-                 /*<<scanf.ml:1392:13>>*/ make_scanf
-                  /*<<scanf.ml:1392:13>>*/ (ib, rest$22, readers)] /*<<scanf.ml:1392:4>>*/ ;
+                 /*<<scanf.ml:1392:13>>*/ make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:4>>*/ ;
        case 21:
         var rest$24 = fmt$0[2], counter = fmt$0[1];
         switch(counter){
           case 0:
            var count = ib[5]; break;
           case 1:
-           var
-            count =
-               /*<<scanf.ml:1133:20>>*/ char_count
-                /*<<scanf.ml:1133:20>>*/ (ib);
-           break;
+           var count =  /*<<scanf.ml:1133:20>>*/ char_count(ib); break;
           default: var count = ib[6];
         }
          /*<<scanf.ml:1395:4>>*/ return [0,
                 count,
-                 /*<<scanf.ml:1395:17>>*/ make_scanf
-                  /*<<scanf.ml:1395:17>>*/ (ib, rest$24, readers)] /*<<scanf.ml:1395:4>>*/ ;
+                 /*<<scanf.ml:1395:17>>*/ make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:4>>*/ ;
        case 22:
         var
          rest$25 = fmt$0[1],
-         c$2 =
-            /*<<scanf.ml:1397:12>>*/  /*<<scanf.ml:1397:12>>*/ checked_peek_char
-             /*<<scanf.ml:1397:12>>*/ (ib);
+         c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
          /*<<scanf.ml:1398:4>>*/ return [0,
                 c$2,
-                 /*<<scanf.ml:1398:13>>*/ make_scanf
-                  /*<<scanf.ml:1398:13>>*/ (ib, rest$25, readers)] /*<<scanf.ml:1398:4>>*/ ;
+                 /*<<scanf.ml:1398:13>>*/ make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:4>>*/ ;
        case 23:
         var
          rest$26 = fmt$0[2],
          ign = fmt$0[1],
          fmt$13 =
             /*<<scanf.ml:1411:32>>*/ caml_call2
-              /*<<scanf.ml:1411:32>>*/ (CamlinternalFormat[6], ign, rest$26)
+             (CamlinternalFormat[6], ign, rest$26)
             [1],
-         match$3 =
-            /*<<scanf.ml:1412:16>>*/  /*<<scanf.ml:1412:16>>*/ make_scanf
-             /*<<scanf.ml:1412:16>>*/ (ib, fmt$13, readers);
+         match$3 =  /*<<scanf.ml:1412:16>>*/ make_scanf(ib, fmt$13, readers);
         if(! match$3)
-          /*<<scanf.ml:1414:13>>*/ throw  /*<<scanf.ml:1414:13>>*/ caml_maybe_attach_backtrace
-                 /*<<scanf.ml:1414:13>>*/ ([0, Assert_failure, _s_], 1);
+          /*<<scanf.ml:1414:13>>*/ throw caml_maybe_attach_backtrace
+                ([0, Assert_failure, _s_], 1);
         var arg_rest = match$3[2];
-         /*<<scanf.ml:1413:28>>*/ return arg_rest /*<<scanf.ml:1413:28>>*/ ;
+         /*<<scanf.ml:1413:28>>*/ return arg_rest;
        default:
-         /*<<scanf.ml:1327:4>>*/ return  /*<<scanf.ml:1327:4>>*/ caml_call1
-                 /*<<scanf.ml:1327:4>>*/ (Stdlib[1],
-                 cst_scanf_bad_conversion_custo) /*<<scanf.ml:1418:7>>*/ ;
+         /*<<scanf.ml:1327:4>>*/ return caml_call1
+                (Stdlib[1], cst_scanf_bad_conversion_custo) /*<<scanf.ml:1418:7>>*/ ;
      }
     }
-    /*<<scanf.ml:1418:7>>*/ }
+   }
    function pad_prec_scanf(ib, fmt, readers, pad, prec, scan, token){
      /*<<scanf.ml:1429:42>>*/ if(typeof pad === "number"){
      if(typeof prec !== "number"){
       var p = prec[1];
-       /*<<scanf.ml:1435:12>>*/  /*<<scanf.ml:1435:12>>*/ caml_call3
-        /*<<scanf.ml:1435:12>>*/ (scan, Stdlib[19], p, ib);
-      var
-       x$0 =
-          /*<<scanf.ml:1436:12>>*/  /*<<scanf.ml:1436:12>>*/ caml_call1
-           /*<<scanf.ml:1436:12>>*/ (token, ib);
+       /*<<scanf.ml:1435:12>>*/ caml_call3(scan, Stdlib[19], p, ib);
+      var x$0 =  /*<<scanf.ml:1436:12>>*/ caml_call1(token, ib);
        /*<<scanf.ml:1437:4>>*/ return [0,
               x$0,
-               /*<<scanf.ml:1437:13>>*/ make_scanf
-                /*<<scanf.ml:1437:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1437:4>>*/ ;
+               /*<<scanf.ml:1437:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:4>>*/ ;
      }
      if(prec)
-       /*<<scanf.ml:1453:4>>*/ return  /*<<scanf.ml:1453:4>>*/ caml_call1
-               /*<<scanf.ml:1453:4>>*/ (Stdlib[1], cst_scanf_bad_conversion) /*<<scanf.ml:1453:46>>*/ ;
-      /*<<scanf.ml:1431:12>>*/  /*<<scanf.ml:1431:12>>*/ caml_call3
-       /*<<scanf.ml:1431:12>>*/ (scan, Stdlib[19], Stdlib[19], ib);
-     var
-      x =
-         /*<<scanf.ml:1432:12>>*/  /*<<scanf.ml:1432:12>>*/ caml_call1
-          /*<<scanf.ml:1432:12>>*/ (token, ib);
+       /*<<scanf.ml:1453:4>>*/ return caml_call1
+              (Stdlib[1], cst_scanf_bad_conversion) /*<<scanf.ml:1453:46>>*/ ;
+      /*<<scanf.ml:1431:12>>*/ caml_call3(scan, Stdlib[19], Stdlib[19], ib);
+     var x =  /*<<scanf.ml:1432:12>>*/ caml_call1(token, ib);
       /*<<scanf.ml:1433:4>>*/ return [0,
              x,
-              /*<<scanf.ml:1433:13>>*/ make_scanf
-               /*<<scanf.ml:1433:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1433:4>>*/ ;
+              /*<<scanf.ml:1433:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:4>>*/ ;
     }
     if(0 !== pad[0])
-      /*<<scanf.ml:1451:4>>*/ return  /*<<scanf.ml:1451:4>>*/ caml_call1
-              /*<<scanf.ml:1451:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$2) /*<<scanf.ml:1453:46>>*/ ;
+      /*<<scanf.ml:1451:4>>*/ return caml_call1
+             (Stdlib[1], cst_scanf_bad_conversion$2) /*<<scanf.ml:1453:46>>*/ ;
     if(! pad[1])
-      /*<<scanf.ml:1447:4>>*/ return  /*<<scanf.ml:1447:4>>*/ caml_call1
-              /*<<scanf.ml:1447:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$1) /*<<scanf.ml:1453:46>>*/ ;
+      /*<<scanf.ml:1447:4>>*/ return caml_call1
+             (Stdlib[1], cst_scanf_bad_conversion$1) /*<<scanf.ml:1453:46>>*/ ;
     var w = pad[2];
     if(typeof prec !== "number"){
      var p$0 = prec[1];
-      /*<<scanf.ml:1443:12>>*/  /*<<scanf.ml:1443:12>>*/ caml_call3
-       /*<<scanf.ml:1443:12>>*/ (scan, w, p$0, ib);
-     var
-      x$2 =
-         /*<<scanf.ml:1444:12>>*/  /*<<scanf.ml:1444:12>>*/ caml_call1
-          /*<<scanf.ml:1444:12>>*/ (token, ib);
+      /*<<scanf.ml:1443:12>>*/ caml_call3(scan, w, p$0, ib);
+     var x$2 =  /*<<scanf.ml:1444:12>>*/ caml_call1(token, ib);
       /*<<scanf.ml:1445:4>>*/ return [0,
              x$2,
-              /*<<scanf.ml:1445:13>>*/ make_scanf
-               /*<<scanf.ml:1445:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1445:4>>*/ ;
+              /*<<scanf.ml:1445:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:4>>*/ ;
     }
     if(prec)
-      /*<<scanf.ml:1449:4>>*/ return  /*<<scanf.ml:1449:4>>*/ caml_call1
-              /*<<scanf.ml:1449:4>>*/ (Stdlib[1], cst_scanf_bad_conversion$0) /*<<scanf.ml:1453:46>>*/ ;
-     /*<<scanf.ml:1439:12>>*/  /*<<scanf.ml:1439:12>>*/ caml_call3
-      /*<<scanf.ml:1439:12>>*/ (scan, w, Stdlib[19], ib);
-    var
-     x$1 =
-        /*<<scanf.ml:1440:12>>*/  /*<<scanf.ml:1440:12>>*/ caml_call1
-         /*<<scanf.ml:1440:12>>*/ (token, ib);
+      /*<<scanf.ml:1449:4>>*/ return caml_call1
+             (Stdlib[1], cst_scanf_bad_conversion$0) /*<<scanf.ml:1453:46>>*/ ;
+     /*<<scanf.ml:1439:12>>*/ caml_call3(scan, w, Stdlib[19], ib);
+    var x$1 =  /*<<scanf.ml:1440:12>>*/ caml_call1(token, ib);
      /*<<scanf.ml:1441:4>>*/ return [0,
             x$1,
-             /*<<scanf.ml:1441:13>>*/ make_scanf
-              /*<<scanf.ml:1441:13>>*/ (ib, fmt, readers)] /*<<scanf.ml:1441:4>>*/ ;
+             /*<<scanf.ml:1441:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:4>>*/ ;
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
     var str = param[2], fmt = param[1];
     function k(readers, f$1){
       /*<<scanf.ml:1465:4>>*/ caml_call1(Stdlib_Buffer[9], ib[8]);
-      /*<<scanf.ml:1465:4>>*/ try{
-      var
-       args$1 =
-          /*<<scanf.ml:1466:10>>*/  /*<<scanf.ml:1466:10>>*/ make_scanf
-           /*<<scanf.ml:1466:10>>*/ (ib, fmt, readers);
-     }
+     try{var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);}
      catch(exc$0){
       var exc = caml_wrap_exception(exc$0);
       if
@@ -37146,159 +30493,116 @@
        if(exc[1] !== Stdlib[6]) throw caml_maybe_attach_backtrace(exc, 0);
        var
         msg = exc[2],
-        _z_ =
-           /*<<scanf.ml:1470:45>>*/  /*<<scanf.ml:1470:45>>*/ caml_call1
-            /*<<scanf.ml:1470:45>>*/ (Stdlib_String[25], str),
-        _A_ =
-           /*<<scanf.ml:1470:45>>*/  /*<<scanf.ml:1470:45>>*/ caml_call2
-            /*<<scanf.ml:1470:45>>*/ (Stdlib[28], _z_, cst$0),
+        _z_ =  /*<<scanf.ml:1470:45>>*/ caml_call1(Stdlib_String[25], str),
+        _A_ = caml_call2(Stdlib[28], _z_, cst$0),
         _B_ =
-           /*<<scanf.ml:1470:27>>*/  /*<<scanf.ml:1470:27>>*/ caml_call2
-            /*<<scanf.ml:1470:27>>*/ (Stdlib[28], cst_in_format, _A_),
-        _C_ =
-           /*<<scanf.ml:1470:20>>*/  /*<<scanf.ml:1470:20>>*/ caml_call2
-            /*<<scanf.ml:1470:20>>*/ (Stdlib[28], msg, _B_);
-        /*<<scanf.ml:1470:20>>*/ return  /*<<scanf.ml:1470:20>>*/ caml_call1
-                /*<<scanf.ml:1470:20>>*/ (Stdlib[1], _C_) /*<<scanf.ml:1472:25>>*/ ;
+           /*<<scanf.ml:1470:27>>*/ caml_call2(Stdlib[28], cst_in_format, _A_),
+        _C_ =  /*<<scanf.ml:1470:20>>*/ caml_call2(Stdlib[28], msg, _B_);
+       return caml_call1(Stdlib[1], _C_) /*<<scanf.ml:1472:25>>*/ ;
       }
-       /*<<scanf.ml:1468:8>>*/ return  /*<<scanf.ml:1468:8>>*/ caml_call2
-               /*<<scanf.ml:1468:8>>*/ (ef, ib, exc) /*<<scanf.ml:1472:25>>*/ ;
+       /*<<scanf.ml:1468:8>>*/ return caml_call2(ef, ib, exc) /*<<scanf.ml:1472:25>>*/ ;
      }
      var f = f$1, args = args$1;
       /*<<scanf.ml:1460:18>>*/ for(;;){
       if(! args)
-        /*<<scanf.ml:1472:11>>*/ return  /*<<scanf.ml:1472:11>>*/ caml_call1
-                /*<<scanf.ml:1472:11>>*/ (af, f) /*<<scanf.ml:1472:25>>*/ ;
+        /*<<scanf.ml:1472:11>>*/ return caml_call1(af, f) /*<<scanf.ml:1472:25>>*/ ;
       var
        args$0 = args[2],
        x = args[1],
-       f$0 =
-          /*<<scanf.ml:1461:27>>*/  /*<<scanf.ml:1461:27>>*/ caml_call1
-           /*<<scanf.ml:1461:27>>*/ (f, x);
+       f$0 =  /*<<scanf.ml:1461:27>>*/ caml_call1(f, x);
       f = f$0;
       args = args$0;
      }
      /*<<scanf.ml:1472:25>>*/ }
-     /*<<scanf.ml:1474:2>>*/ return  /*<<scanf.ml:1474:2>>*/ take_format_readers
-             /*<<scanf.ml:1474:2>>*/ (k, fmt) /*<<scanf.ml:1474:27>>*/ ;
-    /*<<scanf.ml:1474:27>>*/ }
+     /*<<scanf.ml:1474:2>>*/ return take_format_readers(k, fmt) /*<<scanf.ml:1474:27>>*/ ;
+   }
    function kscanf(ib, ef, fmt){
-     /*<<scanf.ml:1477:2>>*/ return  /*<<scanf.ml:1477:2>>*/ kscanf_gen
-             /*<<scanf.ml:1477:2>>*/ (ib,
+     /*<<scanf.ml:1477:2>>*/ return kscanf_gen
+            (ib,
              ef,
              function(x){
-               /*<<scanf.ml:1477:29>>*/ return x /*<<scanf.ml:1477:29>>*/ ;
+               /*<<scanf.ml:1477:29>>*/ return x;
               /*<<scanf.ml:1477:30>>*/ },
              fmt) /*<<scanf.ml:1477:35>>*/ ;
-    /*<<scanf.ml:1477:35>>*/ }
+   }
    function kscanf_opt(ib, fmt){
-     /*<<scanf.ml:1480:2>>*/ return  /*<<scanf.ml:1480:2>>*/ kscanf_gen
-             /*<<scanf.ml:1480:2>>*/ (ib,
+     /*<<scanf.ml:1480:2>>*/ return kscanf_gen
+            (ib,
              function(_y_, param){
-               /*<<scanf.ml:1480:28>>*/ return 0 /*<<scanf.ml:1480:28>>*/ ;
+               /*<<scanf.ml:1480:28>>*/ return 0;
               /*<<scanf.ml:1480:32>>*/ },
              function(x){
-               /*<<scanf.ml:1480:44>>*/ return [0, x] /*<<scanf.ml:1480:44>>*/ ;
+               /*<<scanf.ml:1480:44>>*/ return [0, x];
               /*<<scanf.ml:1480:50>>*/ },
              fmt) /*<<scanf.ml:1480:55>>*/ ;
-    /*<<scanf.ml:1480:55>>*/ }
+   }
    function bscanf(ib, fmt){
-     /*<<scanf.ml:1485:20>>*/ return  /*<<scanf.ml:1485:20>>*/ kscanf
-             /*<<scanf.ml:1485:20>>*/ (ib, scanf_bad_input, fmt) /*<<scanf.ml:1485:50>>*/ ;
-    /*<<scanf.ml:1485:50>>*/ }
+     /*<<scanf.ml:1485:20>>*/ return kscanf(ib, scanf_bad_input, fmt) /*<<scanf.ml:1485:50>>*/ ;
+   }
    function bscanf_opt(ib, fmt){
-     /*<<scanf.ml:1486:24>>*/ return  /*<<scanf.ml:1486:24>>*/ kscanf_opt
-             /*<<scanf.ml:1486:24>>*/ (ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
-    /*<<scanf.ml:1486:41>>*/ }
+     /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
+   }
    function ksscanf(s, ef, fmt){
-     /*<<scanf.ml:1488:23>>*/ return  /*<<scanf.ml:1488:23>>*/ kscanf
-             /*<<scanf.ml:1488:23>>*/ ( /*<<scanf.ml:1488:31>>*/ from_string
-               /*<<scanf.ml:1488:31>>*/ (s),
-             ef,
-             fmt) /*<<scanf.ml:1488:62>>*/ ;
-    /*<<scanf.ml:1488:62>>*/ }
+     /*<<scanf.ml:1488:23>>*/ return kscanf
+            ( /*<<scanf.ml:1488:31>>*/ from_string(s), ef, fmt) /*<<scanf.ml:1488:62>>*/ ;
+   }
    function sscanf(s, fmt){
-     /*<<scanf.ml:1489:19>>*/ return  /*<<scanf.ml:1489:19>>*/ kscanf
-             /*<<scanf.ml:1489:19>>*/ ( /*<<scanf.ml:1489:27>>*/ from_string
-               /*<<scanf.ml:1489:27>>*/ (s),
-             scanf_bad_input,
-             fmt) /*<<scanf.ml:1489:71>>*/ ;
-    /*<<scanf.ml:1489:71>>*/ }
+     /*<<scanf.ml:1489:19>>*/ return kscanf
+            ( /*<<scanf.ml:1489:27>>*/ from_string(s), scanf_bad_input, fmt) /*<<scanf.ml:1489:71>>*/ ;
+   }
    function sscanf_opt(s, fmt){
-     /*<<scanf.ml:1490:23>>*/ return  /*<<scanf.ml:1490:23>>*/ kscanf_opt
-             /*<<scanf.ml:1490:23>>*/ ( /*<<scanf.ml:1490:34>>*/ from_string
-               /*<<scanf.ml:1490:34>>*/ (s),
-             fmt) /*<<scanf.ml:1490:62>>*/ ;
-    /*<<scanf.ml:1490:62>>*/ }
+     /*<<scanf.ml:1490:23>>*/ return kscanf_opt
+            ( /*<<scanf.ml:1490:34>>*/ from_string(s), fmt) /*<<scanf.ml:1490:62>>*/ ;
+   }
    function scanf(fmt){
-     /*<<scanf.ml:1492:16>>*/ return  /*<<scanf.ml:1492:16>>*/ kscanf
-             /*<<scanf.ml:1492:16>>*/ (stdin, scanf_bad_input, fmt) /*<<scanf.ml:1492:57>>*/ ;
-    /*<<scanf.ml:1492:57>>*/ }
+     /*<<scanf.ml:1492:16>>*/ return kscanf(stdin, scanf_bad_input, fmt) /*<<scanf.ml:1492:57>>*/ ;
+   }
    function scanf_opt(fmt){
-     /*<<scanf.ml:1493:20>>*/ return  /*<<scanf.ml:1493:20>>*/ kscanf_opt
-             /*<<scanf.ml:1493:20>>*/ (stdin, fmt) /*<<scanf.ml:1493:49>>*/ ;
-    /*<<scanf.ml:1493:49>>*/ }
+     /*<<scanf.ml:1493:20>>*/ return kscanf_opt(stdin, fmt) /*<<scanf.ml:1493:49>>*/ ;
+   }
    function bscanf_format(ib, format, f){
      /*<<scanf.ml:1502:4>>*/  /*<<scanf.ml:1502:12>>*/ scan_caml_string
-      /*<<scanf.ml:1502:12>>*/ (Stdlib[19], ib);
-    var
-     str =
-        /*<<scanf.ml:1503:14>>*/  /*<<scanf.ml:1503:14>>*/ token_string
-         /*<<scanf.ml:1503:14>>*/ (ib);
+     (Stdlib[19], ib);
+    var str =  /*<<scanf.ml:1503:14>>*/ token_string(ib);
      /*<<scanf.ml:1504:4>>*/ try{
      var
       _x_ =
-         /*<<scanf.ml:1505:10>>*/  /*<<scanf.ml:1505:10>>*/ caml_call2
-          /*<<scanf.ml:1505:10>>*/ (CamlinternalFormat[15], str, format),
+         /*<<scanf.ml:1505:10>>*/ caml_call2
+         (CamlinternalFormat[15], str, format),
       fmt = _x_;
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
-     var
-      msg = exn[2],
-      fmt =  /*<<scanf.ml:1506:26>>*/ bad_input /*<<scanf.ml:1506:26>>*/ (msg);
+     var msg = exn[2], fmt =  /*<<scanf.ml:1506:26>>*/ bad_input(msg);
     }
-     /*<<scanf.ml:1507:4>>*/ return  /*<<scanf.ml:1507:4>>*/ caml_call1
-             /*<<scanf.ml:1507:4>>*/ (f, fmt) /*<<scanf.ml:1507:10>>*/ ;
-    /*<<scanf.ml:1507:10>>*/ }
+     /*<<scanf.ml:1507:4>>*/ return caml_call1(f, fmt) /*<<scanf.ml:1507:10>>*/ ;
+   }
    function sscanf_format(s, format, f){
-     /*<<scanf.ml:1513:20>>*/ return  /*<<scanf.ml:1513:20>>*/ bscanf_format
-             /*<<scanf.ml:1513:20>>*/ ( /*<<scanf.ml:1513:34>>*/ from_string
-               /*<<scanf.ml:1513:34>>*/ (s),
-             format,
-             f) /*<<scanf.ml:1513:67>>*/ ;
-    /*<<scanf.ml:1513:67>>*/ }
+     /*<<scanf.ml:1513:20>>*/ return bscanf_format
+            ( /*<<scanf.ml:1513:34>>*/ from_string(s), format, f) /*<<scanf.ml:1513:67>>*/ ;
+   }
    function format_from_string(s, fmt){
     var
-     _v_ =
-        /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call1
-         /*<<scanf.ml:1517:24>>*/ (Stdlib_String[25], s),
-     _w_ =
-        /*<<scanf.ml:1517:24>>*/  /*<<scanf.ml:1517:24>>*/ caml_call2
-         /*<<scanf.ml:1517:24>>*/ (Stdlib[28], _v_, cst$1);
-     /*<<scanf.ml:1517:53>>*/ return  /*<<scanf.ml:1517:53>>*/ sscanf_format
-             /*<<scanf.ml:1517:53>>*/ ( /*<<scanf.ml:1517:16>>*/ caml_call2
-               /*<<scanf.ml:1517:16>>*/ (Stdlib[28], cst$2, _w_),
+     _v_ =  /*<<scanf.ml:1517:24>>*/ caml_call1(Stdlib_String[25], s),
+     _w_ = caml_call2(Stdlib[28], _v_, cst$1);
+     /*<<scanf.ml:1517:53>>*/ return sscanf_format
+            ( /*<<scanf.ml:1517:16>>*/ caml_call2(Stdlib[28], cst$2, _w_),
              fmt,
              function(x){
-               /*<<scanf.ml:1517:63>>*/ return x /*<<scanf.ml:1517:63>>*/ ;
+               /*<<scanf.ml:1517:63>>*/ return x;
               /*<<scanf.ml:1517:64>>*/ }) /*<<scanf.ml:1517:65>>*/ ;
-    /*<<scanf.ml:1517:65>>*/ }
+   }
    function unescaped(s){
-    var
-     _u_ =
-        /*<<scanf.ml:1521:17>>*/  /*<<scanf.ml:1521:17>>*/ caml_call2
-         /*<<scanf.ml:1521:17>>*/ (Stdlib[28], s, cst$3);
-     /*<<scanf.ml:1521:34>>*/ return  /*<<scanf.ml:1521:34>>*/ caml_call1
-             /*<<scanf.ml:1521:34>>*/ ( /*<<scanf.ml:1521:34>>*/ sscanf
-               /*<<scanf.ml:1521:34>>*/ ( /*<<scanf.ml:1521:9>>*/ caml_call2
-                 /*<<scanf.ml:1521:9>>*/ (Stdlib[28], cst$4, _u_),
+    var _u_ =  /*<<scanf.ml:1521:17>>*/ caml_call2(Stdlib[28], s, cst$3);
+     /*<<scanf.ml:1521:34>>*/ return caml_call1
+            (sscanf
+              ( /*<<scanf.ml:1521:9>>*/ caml_call2(Stdlib[28], cst$4, _u_),
                _t_),
              function(x){
-               /*<<scanf.ml:1521:44>>*/ return x /*<<scanf.ml:1521:44>>*/ ;
+               /*<<scanf.ml:1521:44>>*/ return x;
               /*<<scanf.ml:1521:45>>*/ }) /*<<scanf.ml:1521:46>>*/ ;
-    /*<<scanf.ml:1521:46>>*/ }
+   }
    var
     Stdlib_Scanf =
       [0,
@@ -37339,8 +30643,8 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_register_named_value =  /*<<?>>*/ runtime.caml_register_named_value,
+    runtime = globalThis.jsoo_runtime,
+    caml_register_named_value = runtime.caml_register_named_value,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
     register = caml_register_named_value;
@@ -37348,14 +30652,11 @@
     var
      _a_ = Stdlib_Obj[10],
      slot =
-        /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag
-          /*<<callback.ml:26:16>>*/ (exn)
-        === _a_
+        /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag(exn) === _a_
         ? exn
         : exn[1];
-     /*<<callback.ml:27:2>>*/ return  /*<<callback.ml:27:2>>*/ caml_register_named_value
-             /*<<callback.ml:27:2>>*/ (name, slot) /*<<callback.ml:27:32>>*/ ;
-    /*<<callback.ml:27:32>>*/ }
+     /*<<callback.ml:27:2>>*/ return caml_register_named_value(name, slot) /*<<callback.ml:27:32>>*/ ;
+   }
    var Stdlib_Callback = [0, register, register_exception];
    runtime.caml_register_global(1, Stdlib_Callback, "Stdlib__Callback");
    return;
@@ -37368,18 +30669,17 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst_camlinternalOO_ml =  /*<<?>>*/ "camlinternalOO.ml",
-    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,
-    caml_string_compare =  /*<<?>>*/ runtime.caml_string_compare,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst_camlinternalOO_ml = "camlinternalOO.ml",
+    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,
+    caml_string_compare = runtime.caml_string_compare,
+    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)
@@ -37410,26 +30710,20 @@
     Stdlib_List = global_data.Stdlib__List,
     Stdlib_Map = global_data.Stdlib__Map;
    function copy(o){
-    var
-     o$0 =
-        /*<<camlinternalOO.ml:23:19>>*/  /*<<camlinternalOO.ml:23:19>>*/ o.slice
-         /*<<camlinternalOO.ml:23:19>>*/ ();
-     /*<<camlinternalOO.ml:24:2>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
-             /*<<camlinternalOO.ml:24:2>>*/ (o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
-    /*<<camlinternalOO.ml:24:10>>*/ }
+    var o$0 =  /*<<camlinternalOO.ml:23:19>>*/ o.slice();
+     /*<<camlinternalOO.ml:24:2>>*/ return caml_set_oo_id(o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
+   }
    var params =  /*<<camlinternalOO.ml:36:13>>*/ [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
     var
      accu =  /*<<camlinternalOO.ml:69:13>>*/ [0, 0],
      _al_ = runtime.caml_ml_string_length(s) - 1 | 0,
-     _ak_ =  /*<<camlinternalOO.ml:69:13>>*/ 0;
+     _ak_ = 0;
     if(_al_ >= 0){
      var i = _ak_;
      for(;;){
       var
-       _am_ =
-          /*<<camlinternalOO.ml:71:36>>*/  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get
-           /*<<camlinternalOO.ml:71:36>>*/ (s, i);
+       _am_ =  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get(s, i);
       accu[1] = (223 * accu[1] | 0) + _am_ | 0;
       var _an_ =  /*<<camlinternalOO.ml:70:2>>*/ i + 1 | 0;
       if(_al_ === i) break;
@@ -37438,7 +30732,7 @@
     }
     accu[1] = accu[1] & 2147483647;
     var tag = 1073741823 < accu[1] ? accu[1] + 2147483648 | 0 : accu[1];
-     /*<<camlinternalOO.ml:78:2>>*/ return tag /*<<camlinternalOO.ml:78:2>>*/ ;
+     /*<<camlinternalOO.ml:78:2>>*/ return tag;
     /*<<camlinternalOO.ml:78:15>>*/ }
    var
     compare = caml_string_compare,
@@ -37458,39 +30752,35 @@
        Vars[1],
        0],
     table_count =  /*<<camlinternalOO.ml:116:18>>*/ [0, 0],
-    dummy_met =
-       /*<<camlinternalOO.ml:119:31>>*/  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block
-        /*<<camlinternalOO.ml:119:31>>*/ (0, 0),
+    dummy_met =  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block(0, 0),
     initial_object_size =  /*<<camlinternalOO.ml:36:13>>*/ 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
             ?  /*<<camlinternalOO.ml:125:2>>*/ fit_size
-               /*<<camlinternalOO.ml:125:2>>*/ ((n + 1 | 0) / 2 | 0)
+              ((n + 1 | 0) / 2 | 0)
              * 2
              | 0
             : n /*<<camlinternalOO.ml:125:24>>*/ ;
-    /*<<camlinternalOO.ml:125:24>>*/ }
+   }
    function new_table(pub_labels){
      /*<<camlinternalOO.ml:128:2>>*/ table_count[1]++;
     var
      len = pub_labels.length - 1,
      methods =
-        /*<<camlinternalOO.ml:130:16>>*/  /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
-         /*<<camlinternalOO.ml:130:16>>*/ ((len * 2 | 0) + 2 | 0, dummy_met);
+        /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
+        ((len * 2 | 0) + 2 | 0, dummy_met);
      /*<<camlinternalOO.ml:131:2>>*/ caml_check_bound(methods, 0)[1] = len;
     var
      _ad_ = Stdlib_Sys[9],
      _ae_ =
        ( /*<<camlinternalOO.ml:132:28>>*/ runtime.caml_mul
-         /*<<camlinternalOO.ml:132:28>>*/ ( /*<<camlinternalOO.ml:132:28>>*/ fit_size
-           /*<<camlinternalOO.ml:132:28>>*/ (len),
-         _ad_)
+        (fit_size(len), _ad_)
        / 8
        | 0)
        - 1
        | 0;
      /*<<camlinternalOO.ml:132:2>>*/ caml_check_bound(methods, 1)[2] = _ae_;
-    var _ag_ = len - 1 | 0, _af_ =  /*<<camlinternalOO.ml:132:2>>*/ 0;
+    var _ag_ = len - 1 | 0, _af_ = 0;
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
@@ -37502,7 +30792,7 @@
        /*<<camlinternalOO.ml:133:26>>*/ caml_check_bound(methods, _ai_)
        [1 + _ai_]
       = _ah_;
-      var _aj_ =  /*<<camlinternalOO.ml:133:26>>*/ i + 1 | 0;
+      var _aj_ = i + 1 | 0;
       if(_ag_ === i) break;
       i = _aj_;
      }
@@ -37515,22 +30805,16 @@
             0,
             0,
             Vars[1],
-            0] /*<<camlinternalOO.ml:134:2>>*/ ;
+            0];
     /*<<camlinternalOO.ml:141:32>>*/ }
    function resize(array, new_size){
     var old_size = array[2].length - 1, _ab_ = old_size < new_size ? 1 : 0;
     if(_ab_){
      var
       new_buck =
-         /*<<camlinternalOO.ml:146:19>>*/  /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect
-          /*<<camlinternalOO.ml:146:19>>*/ (new_size, dummy_met);
-      /*<<camlinternalOO.ml:147:4>>*/  /*<<camlinternalOO.ml:147:4>>*/ caml_call5
-       /*<<camlinternalOO.ml:147:4>>*/ (Stdlib_Array[9],
-       array[2],
-       0,
-       new_buck,
-       0,
-       old_size);
+         /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect(new_size, dummy_met);
+      /*<<camlinternalOO.ml:147:4>>*/ caml_call5
+      (Stdlib_Array[9], array[2], 0, new_buck, 0, old_size);
      array[2] = new_buck;
      var _ac_ = 0;
     }
@@ -37550,64 +30834,59 @@
     _g_ = [0, cst_camlinternalOO_ml, 437, 17];
    function new_method(table){
     var index = table[2].length - 1;
-     /*<<camlinternalOO.ml:165:2>>*/  /*<<camlinternalOO.ml:165:2>>*/ resize
-      /*<<camlinternalOO.ml:165:2>>*/ (table, index + 1 | 0);
-     /*<<camlinternalOO.ml:165:2>>*/ return index /*<<camlinternalOO.ml:165:2>>*/ ;
+     /*<<camlinternalOO.ml:165:2>>*/ resize(table, index + 1 | 0);
+    return index;
     /*<<camlinternalOO.ml:166:7>>*/ }
    function get_method_label(table, name){
      /*<<camlinternalOO.ml:169:2>>*/ try{
      var
       _$_ =
-         /*<<camlinternalOO.ml:170:4>>*/  /*<<camlinternalOO.ml:170:4>>*/ caml_call2
-          /*<<camlinternalOO.ml:170:4>>*/ (Meths[17], name, table[3]);
-      /*<<camlinternalOO.ml:170:4>>*/ return _$_ /*<<camlinternalOO.ml:170:4>>*/ ;
+         /*<<camlinternalOO.ml:170:4>>*/ caml_call2(Meths[17], name, table[3]);
+     return _$_;
     }
     catch(_aa_){
      var ___ = caml_wrap_exception(_aa_);
      if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
-     var
-      label =
-         /*<<camlinternalOO.ml:172:16>>*/  /*<<camlinternalOO.ml:172:16>>*/ new_method
-          /*<<camlinternalOO.ml:172:16>>*/ (table);
+     var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
      table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
-        /*<<camlinternalOO.ml:173:29>>*/ (Meths[2], name, label, table[3]);
+       (Meths[2], name, label, table[3]);
      table[4] =
        /*<<camlinternalOO.ml:174:30>>*/ caml_call3
-        /*<<camlinternalOO.ml:174:30>>*/ (Labs[2], label, 1, table[4]);
-      /*<<camlinternalOO.ml:175:4>>*/ return label /*<<camlinternalOO.ml:175:4>>*/ ;
+       (Labs[2], label, 1, table[4]);
+      /*<<camlinternalOO.ml:175:4>>*/ return label;
     }
     /*<<camlinternalOO.ml:175:9>>*/ }
    function get_method_labels(table, names){
-     /*<<camlinternalOO.ml:178:2>>*/ return  /*<<camlinternalOO.ml:178:2>>*/ caml_call2
-             /*<<camlinternalOO.ml:178:2>>*/ (Stdlib_Array[14],
+     /*<<camlinternalOO.ml:178:2>>*/ return caml_call2
+            (Stdlib_Array[14],
              function(_Z_){ /*<<?>>*/ return get_method_label(table, _Z_);},
              names) /*<<camlinternalOO.ml:178:42>>*/ ;
-    /*<<camlinternalOO.ml:178:42>>*/ }
+   }
    function set_method(table, label, element){
      /*<<camlinternalOO.ml:181:2>>*/ method_count[1]++;
-     /*<<camlinternalOO.ml:182:5>>*/ return  /*<<camlinternalOO.ml:182:5>>*/ caml_call2
-              /*<<camlinternalOO.ml:182:5>>*/ (Labs[17], label, table[4])
+     /*<<camlinternalOO.ml:182:5>>*/ return caml_call2
+             (Labs[17], label, table[4])
             ? ( /*<<camlinternalOO.ml:152:2>>*/ resize
-                /*<<camlinternalOO.ml:152:2>>*/ (table, label + 1 | 0),
+               (table, label + 1 | 0),
               caml_check_bound(table[2], label)[1 + label] = element,
               0)
             : (table[6] = [0, [0, label, element], table[6]], 0) /*<<camlinternalOO.ml:185:64>>*/ ;
-    /*<<camlinternalOO.ml:185:64>>*/ }
+   }
    function get_method(table, label){
      /*<<camlinternalOO.ml:188:2>>*/ try{
      var
       _X_ =
-         /*<<camlinternalOO.ml:188:6>>*/  /*<<camlinternalOO.ml:188:6>>*/ caml_call2
-          /*<<camlinternalOO.ml:188:6>>*/ (Stdlib_List[49], label, table[6]);
-      /*<<camlinternalOO.ml:188:6>>*/ return _X_ /*<<camlinternalOO.ml:188:6>>*/ ;
+         /*<<camlinternalOO.ml:188:6>>*/ caml_call2
+         (Stdlib_List[49], label, table[6]);
+     return _X_;
     }
     catch(_Y_){
      var _W_ = caml_wrap_exception(_Y_);
      if(_W_ === Stdlib[8])
        /*<<camlinternalOO.ml:189:20>>*/ return caml_check_bound
                (table[2], label)
-              [1 + label] /*<<camlinternalOO.ml:189:20>>*/ ;
+              [1 + label];
      throw caml_maybe_attach_backtrace(_W_, 0);
     }
     /*<<camlinternalOO.ml:189:41>>*/ }
@@ -37615,27 +30894,21 @@
      /*<<camlinternalOO.ml:192:2>>*/ return 0 === arr
             ? 0
             :  /*<<camlinternalOO.ml:192:37>>*/ caml_call1
-               /*<<camlinternalOO.ml:192:37>>*/ (Stdlib_Array[10], arr) /*<<camlinternalOO.ml:192:54>>*/ ;
-    /*<<camlinternalOO.ml:192:54>>*/ }
+              (Stdlib_Array[10], arr) /*<<camlinternalOO.ml:192:54>>*/ ;
+   }
    function narrow(table, vars, virt_meths, concr_meths){
     var
-     vars$0 =
-        /*<<camlinternalOO.ml:195:13>>*/  /*<<camlinternalOO.ml:195:13>>*/ to_list
-         /*<<camlinternalOO.ml:195:13>>*/ (vars),
-     virt_meths$0 =
-        /*<<camlinternalOO.ml:196:19>>*/  /*<<camlinternalOO.ml:196:19>>*/ to_list
-         /*<<camlinternalOO.ml:196:19>>*/ (virt_meths),
-     concr_meths$0 =
-        /*<<camlinternalOO.ml:197:20>>*/  /*<<camlinternalOO.ml:197:20>>*/ to_list
-         /*<<camlinternalOO.ml:197:20>>*/ (concr_meths),
+     vars$0 =  /*<<camlinternalOO.ml:195:13>>*/ to_list(vars),
+     virt_meths$0 =  /*<<camlinternalOO.ml:196:19>>*/ to_list(virt_meths),
+     concr_meths$0 =  /*<<camlinternalOO.ml:197:20>>*/ to_list(concr_meths),
      virt_meth_labs =
-        /*<<camlinternalOO.ml:198:23>>*/  /*<<camlinternalOO.ml:198:23>>*/ caml_call2
-         /*<<camlinternalOO.ml:198:23>>*/ (Stdlib_List[20],
+        /*<<camlinternalOO.ml:198:23>>*/ caml_call2
+        (Stdlib_List[20],
          function(_V_){ /*<<?>>*/ return get_method_label(table, _V_);},
          virt_meths$0),
      concr_meth_labs =
-        /*<<camlinternalOO.ml:199:24>>*/  /*<<camlinternalOO.ml:199:24>>*/ caml_call2
-         /*<<camlinternalOO.ml:199:24>>*/ (Stdlib_List[20],
+        /*<<camlinternalOO.ml:199:24>>*/ caml_call2
+        (Stdlib_List[20],
          function(_U_){ /*<<?>>*/ return get_method_label(table, _U_);},
          concr_meths$0);
     table[5] =
@@ -37644,36 +30917,31 @@
       table[5]];
     table[7] =
       /*<<camlinternalOO.ml:205:4>>*/ caml_call3
-       /*<<camlinternalOO.ml:205:4>>*/ (Vars[24],
+      (Vars[24],
        function(lab, info, tvars){
          /*<<camlinternalOO.ml:207:8>>*/ return  /*<<camlinternalOO.ml:207:11>>*/ caml_call2
-                  /*<<camlinternalOO.ml:207:11>>*/ (Stdlib_List[37],
-                  lab,
-                  vars$0)
+                 (Stdlib_List[37], lab, vars$0)
                 ?  /*<<camlinternalOO.ml:207:34>>*/ caml_call3
-                   /*<<camlinternalOO.ml:207:34>>*/ (Vars[2],
-                   lab,
-                   info,
-                   tvars)
+                  (Vars[2], lab, info, tvars)
                 : tvars /*<<camlinternalOO.ml:207:68>>*/ ;
-        /*<<camlinternalOO.ml:207:68>>*/ },
+       },
        table[7],
        Vars[1]);
     var
      by_name =  /*<<camlinternalOO.ml:209:16>>*/ [0, Meths[1]],
      by_label =  /*<<camlinternalOO.ml:210:17>>*/ [0, Labs[1]];
-     /*<<camlinternalOO.ml:211:2>>*/  /*<<camlinternalOO.ml:211:2>>*/ caml_call3
-      /*<<camlinternalOO.ml:211:2>>*/ (Stdlib_List[28],
+     /*<<camlinternalOO.ml:211:2>>*/ caml_call3
+     (Stdlib_List[28],
       function(met, label){
         /*<<camlinternalOO.ml:213:7>>*/ by_name[1] =
          /*<<camlinternalOO.ml:213:18>>*/ caml_call3
-          /*<<camlinternalOO.ml:213:18>>*/ (Meths[2], met, label, by_name[1]);
+         (Meths[2], met, label, by_name[1]);
        var _P_ = by_label[1];
        try{
         var
          _S_ =
-            /*<<camlinternalOO.ml:216:17>>*/  /*<<camlinternalOO.ml:216:17>>*/ caml_call2
-             /*<<camlinternalOO.ml:216:17>>*/ (Labs[17], label, table[4]),
+            /*<<camlinternalOO.ml:216:17>>*/ caml_call2
+            (Labs[17], label, table[4]),
          _R_ = _S_;
        }
        catch(_T_){
@@ -37682,21 +30950,20 @@
         var _R_ = 1;
        }
        by_label[1] =
-         /*<<camlinternalOO.ml:215:10>>*/ caml_call3
-          /*<<camlinternalOO.ml:215:10>>*/ (Labs[2], label, _R_, _P_);
+         /*<<camlinternalOO.ml:215:10>>*/ caml_call3(Labs[2], label, _R_, _P_);
        return 0;
        /*<<camlinternalOO.ml:217:21>>*/ },
       concr_meths$0,
       concr_meth_labs);
-     /*<<camlinternalOO.ml:219:2>>*/  /*<<camlinternalOO.ml:219:2>>*/ caml_call3
-      /*<<camlinternalOO.ml:219:2>>*/ (Stdlib_List[28],
+     /*<<camlinternalOO.ml:219:2>>*/ caml_call3
+     (Stdlib_List[28],
       function(met, label){
         /*<<camlinternalOO.ml:221:7>>*/ by_name[1] =
          /*<<camlinternalOO.ml:221:18>>*/ caml_call3
-          /*<<camlinternalOO.ml:221:18>>*/ (Meths[2], met, label, by_name[1]);
+         (Meths[2], met, label, by_name[1]);
        by_label[1] =
          /*<<camlinternalOO.ml:222:19>>*/ caml_call3
-          /*<<camlinternalOO.ml:222:19>>*/ (Labs[2], label, 0, by_label[1]);
+         (Labs[2], label, 0, by_label[1]);
        return 0;
        /*<<camlinternalOO.ml:222:49>>*/ },
       virt_meths$0,
@@ -37705,16 +30972,14 @@
     table[4] = by_label[1];
     table[6] =
       /*<<camlinternalOO.ml:227:5>>*/ caml_call3
-       /*<<camlinternalOO.ml:227:5>>*/ (Stdlib_List[27],
+      (Stdlib_List[27],
        function(met, hm){
         var lab = met[1];
-         /*<<camlinternalOO.ml:229:13>>*/ return  /*<<camlinternalOO.ml:229:13>>*/ caml_call2
-                  /*<<camlinternalOO.ml:229:13>>*/ (Stdlib_List[37],
-                  lab,
-                  virt_meth_labs)
+         /*<<camlinternalOO.ml:229:13>>*/ return caml_call2
+                 (Stdlib_List[37], lab, virt_meth_labs)
                 ? hm
                 : [0, met, hm] /*<<camlinternalOO.ml:229:62>>*/ ;
-        /*<<camlinternalOO.ml:229:62>>*/ },
+       },
        table[6],
        0);
     return 0;
@@ -37722,8 +30987,7 @@
    function widen(table){
     var
      match =
-        /*<<camlinternalOO.ml:235:4>>*/  /*<<camlinternalOO.ml:235:4>>*/ caml_call1
-         /*<<camlinternalOO.ml:235:4>>*/ (Stdlib_List[6], table[5]),
+        /*<<camlinternalOO.ml:235:4>>*/ caml_call1(Stdlib_List[6], table[5]),
      vars = match[6],
      virt_meths = match[5],
      saved_vars = match[4],
@@ -37731,35 +30995,31 @@
      by_label = match[2],
      by_name = match[1];
     table[5] =
-      /*<<camlinternalOO.ml:237:27>>*/ caml_call1
-       /*<<camlinternalOO.ml:237:27>>*/ (Stdlib_List[7], table[5]);
+      /*<<camlinternalOO.ml:237:27>>*/ caml_call1(Stdlib_List[7], table[5]);
     table[7] =
       /*<<camlinternalOO.ml:239:5>>*/ caml_call3
-       /*<<camlinternalOO.ml:239:5>>*/ (Stdlib_List[26],
+      (Stdlib_List[26],
        function(s, v){
         var
          _O_ =
-            /*<<camlinternalOO.ml:240:30>>*/  /*<<camlinternalOO.ml:240:30>>*/ caml_call2
-             /*<<camlinternalOO.ml:240:30>>*/ (Vars[17], v, table[7]);
-         /*<<camlinternalOO.ml:240:19>>*/ return  /*<<camlinternalOO.ml:240:19>>*/ caml_call3
-                 /*<<camlinternalOO.ml:240:19>>*/ (Vars[2], v, _O_, s) /*<<camlinternalOO.ml:240:56>>*/ ;
-        /*<<camlinternalOO.ml:240:56>>*/ },
+            /*<<camlinternalOO.ml:240:30>>*/ caml_call2(Vars[17], v, table[7]);
+         /*<<camlinternalOO.ml:240:19>>*/ return caml_call3
+                (Vars[2], v, _O_, s) /*<<camlinternalOO.ml:240:56>>*/ ;
+       },
        saved_vars,
        vars);
     table[3] = by_name;
     table[4] = by_label;
     table[6] =
       /*<<camlinternalOO.ml:245:5>>*/ caml_call3
-       /*<<camlinternalOO.ml:245:5>>*/ (Stdlib_List[27],
+      (Stdlib_List[27],
        function(met, hm){
         var lab = met[1];
-         /*<<camlinternalOO.ml:247:13>>*/ return  /*<<camlinternalOO.ml:247:13>>*/ caml_call2
-                  /*<<camlinternalOO.ml:247:13>>*/ (Stdlib_List[37],
-                  lab,
-                  virt_meths)
+         /*<<camlinternalOO.ml:247:13>>*/ return caml_call2
+                 (Stdlib_List[37], lab, virt_meths)
                 ? hm
                 : [0, met, hm] /*<<camlinternalOO.ml:247:58>>*/ ;
-        /*<<camlinternalOO.ml:247:58>>*/ },
+       },
        table[6],
        saved_hidden_meths);
     return 0;
@@ -37768,9 +31028,8 @@
      /*<<camlinternalOO.ml:257:2>>*/ try{
      var
       _M_ =
-         /*<<camlinternalOO.ml:257:6>>*/  /*<<camlinternalOO.ml:257:6>>*/ caml_call2
-          /*<<camlinternalOO.ml:257:6>>*/ (Vars[17], name, table[7]);
-      /*<<camlinternalOO.ml:257:6>>*/ return _M_ /*<<camlinternalOO.ml:257:6>>*/ ;
+         /*<<camlinternalOO.ml:257:6>>*/ caml_call2(Vars[17], name, table[7]);
+     return _M_;
     }
     catch(_N_){
      var _L_ = caml_wrap_exception(_N_);
@@ -37780,26 +31039,23 @@
       /*<<camlinternalOO.ml:260:7>>*/ if(name !== "")
       table[7] =
         /*<<camlinternalOO.ml:260:37>>*/ caml_call3
-         /*<<camlinternalOO.ml:260:37>>*/ (Vars[2], name, index, table[7]);
-      /*<<camlinternalOO.ml:261:4>>*/ return index /*<<camlinternalOO.ml:261:4>>*/ ;
+        (Vars[2], name, index, table[7]);
+      /*<<camlinternalOO.ml:261:4>>*/ return index;
     }
     /*<<camlinternalOO.ml:261:9>>*/ }
    function to_array(arr){
      /*<<camlinternalOO.ml:264:2>>*/ return  /*<<camlinternalOO.ml:264:5>>*/ runtime.caml_equal
-              /*<<camlinternalOO.ml:264:5>>*/ (arr, 0)
+             (arr, 0)
             ? [0]
             : arr /*<<camlinternalOO.ml:264:41>>*/ ;
-    /*<<camlinternalOO.ml:264:41>>*/ }
+   }
    function new_methods_variables(table, meths, vals){
     var
-     meths$0 =
-        /*<<camlinternalOO.ml:267:14>>*/  /*<<camlinternalOO.ml:267:14>>*/ to_array
-         /*<<camlinternalOO.ml:267:14>>*/ (meths),
+     meths$0 =  /*<<camlinternalOO.ml:267:14>>*/ to_array(meths),
      nmeths =  /*<<camlinternalOO.ml:268:2>>*/ meths$0.length - 1,
      nvals = vals.length - 1,
      res =
-        /*<<camlinternalOO.ml:269:12>>*/  /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect
-         /*<<camlinternalOO.ml:269:12>>*/ (nmeths + nvals | 0, 0),
+        /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect(nmeths + nvals | 0, 0),
      _D_ =  /*<<camlinternalOO.ml:270:2>>*/ nmeths - 1 | 0,
      _C_ =  /*<<camlinternalOO.ml:269:12>>*/ 0;
     if(_D_ >= 0){
@@ -37807,11 +31063,10 @@
      for(;;){
       var
        _J_ =
-          /*<<camlinternalOO.ml:271:15>>*/  /*<<camlinternalOO.ml:271:15>>*/ get_method_label
-           /*<<camlinternalOO.ml:271:15>>*/ (table,
-           caml_check_bound(meths$0, i$0)[1 + i$0]);
+          /*<<camlinternalOO.ml:271:15>>*/ get_method_label
+          (table, caml_check_bound(meths$0, i$0)[1 + i$0]);
        /*<<camlinternalOO.ml:271:4>>*/ caml_check_bound(res, i$0)[1 + i$0] = _J_;
-      var _K_ =  /*<<camlinternalOO.ml:271:4>>*/ i$0 + 1 | 0;
+      var _K_ = i$0 + 1 | 0;
       if(_D_ === i$0) break;
       i$0 = _K_;
      }
@@ -37823,233 +31078,193 @@
       var
        _H_ = i + nmeths | 0,
        _G_ =
-          /*<<camlinternalOO.ml:274:22>>*/  /*<<camlinternalOO.ml:274:22>>*/ new_variable
-           /*<<camlinternalOO.ml:274:22>>*/ (table,
-           caml_check_bound(vals, i)[1 + i]);
+          /*<<camlinternalOO.ml:274:22>>*/ new_variable
+          (table, caml_check_bound(vals, i)[1 + i]);
        /*<<camlinternalOO.ml:274:4>>*/ caml_check_bound(res, _H_)[1 + _H_] = _G_;
-      var _I_ =  /*<<camlinternalOO.ml:274:4>>*/ i + 1 | 0;
+      var _I_ = i + 1 | 0;
       if(_F_ === i) break;
       i = _I_;
      }
     }
-     /*<<camlinternalOO.ml:276:2>>*/ return res /*<<camlinternalOO.ml:276:2>>*/ ;
+     /*<<camlinternalOO.ml:276:2>>*/ return res;
     /*<<camlinternalOO.ml:276:5>>*/ }
    function get_variable(table, name){
      /*<<camlinternalOO.ml:279:2>>*/ try{
      var
       _A_ =
-         /*<<camlinternalOO.ml:279:6>>*/  /*<<camlinternalOO.ml:279:6>>*/ caml_call2
-          /*<<camlinternalOO.ml:279:6>>*/ (Vars[17], name, table[7]);
-      /*<<camlinternalOO.ml:279:6>>*/ return _A_ /*<<camlinternalOO.ml:279:6>>*/ ;
+         /*<<camlinternalOO.ml:279:6>>*/ caml_call2(Vars[17], name, table[7]);
+     return _A_;
     }
     catch(_B_){
      var _z_ = caml_wrap_exception(_B_);
      if(_z_ === Stdlib[8])
-       /*<<camlinternalOO.ml:279:50>>*/ throw  /*<<camlinternalOO.ml:279:50>>*/ caml_maybe_attach_backtrace
-              /*<<camlinternalOO.ml:279:50>>*/ ([0, Assert_failure, _a_], 1);
+       /*<<camlinternalOO.ml:279:50>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _a_], 1);
      throw caml_maybe_attach_backtrace(_z_, 0);
     }
     /*<<camlinternalOO.ml:279:62>>*/ }
    function get_variables(table, names){
-     /*<<camlinternalOO.ml:282:2>>*/ return  /*<<camlinternalOO.ml:282:2>>*/ caml_call2
-             /*<<camlinternalOO.ml:282:2>>*/ (Stdlib_Array[14],
+     /*<<camlinternalOO.ml:282:2>>*/ return caml_call2
+            (Stdlib_Array[14],
              function(_y_){ /*<<?>>*/ return get_variable(table, _y_);},
              names) /*<<camlinternalOO.ml:282:38>>*/ ;
-    /*<<camlinternalOO.ml:282:38>>*/ }
+   }
    function add_initializer(table, f){
      /*<<camlinternalOO.ml:285:2>>*/ table[8] = [0, f, table[8]];
     return 0;
     /*<<camlinternalOO.ml:285:45>>*/ }
    function create_table(public_methods){
      /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
-      /*<<camlinternalOO.ml:299:50>>*/ return  /*<<camlinternalOO.ml:299:50>>*/ new_table
-              /*<<camlinternalOO.ml:299:50>>*/ ([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
+      /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
     var
      tags =
-        /*<<camlinternalOO.ml:301:13>>*/  /*<<camlinternalOO.ml:301:13>>*/ caml_call2
-         /*<<camlinternalOO.ml:301:13>>*/ (Stdlib_Array[14],
-         public_method_label,
-         public_methods),
-     table =
-        /*<<camlinternalOO.ml:302:14>>*/  /*<<camlinternalOO.ml:302:14>>*/ new_table
-         /*<<camlinternalOO.ml:302:14>>*/ (tags);
-     /*<<camlinternalOO.ml:303:2>>*/  /*<<camlinternalOO.ml:303:2>>*/ caml_call2
-      /*<<camlinternalOO.ml:303:2>>*/ (Stdlib_Array[13],
+        /*<<camlinternalOO.ml:301:13>>*/ caml_call2
+        (Stdlib_Array[14], public_method_label, public_methods),
+     table =  /*<<camlinternalOO.ml:302:14>>*/ new_table(tags);
+     /*<<camlinternalOO.ml:303:2>>*/ caml_call2
+     (Stdlib_Array[13],
       function(i, met){
        var lab = (i * 2 | 0) + 2 | 0;
        table[3] =
          /*<<camlinternalOO.ml:306:32>>*/ caml_call3
-          /*<<camlinternalOO.ml:306:32>>*/ (Meths[2], met, lab, table[3]);
+         (Meths[2], met, lab, table[3]);
        table[4] =
          /*<<camlinternalOO.ml:307:32>>*/ caml_call3
-          /*<<camlinternalOO.ml:307:32>>*/ (Labs[2], lab, 1, table[4]);
+         (Labs[2], lab, 1, table[4]);
        return 0;
        /*<<camlinternalOO.ml:307:72>>*/ },
       public_methods);
-     /*<<camlinternalOO.ml:303:2>>*/ return table /*<<camlinternalOO.ml:303:2>>*/ ;
+     /*<<camlinternalOO.ml:303:2>>*/ return table;
     /*<<camlinternalOO.ml:309:7>>*/ }
    function init_class(table){
      /*<<camlinternalOO.ml:312:2>>*/ inst_var_count[1] =
      (inst_var_count[1] + table[1] | 0) - 1 | 0;
     table[8] =
-      /*<<camlinternalOO.ml:313:24>>*/ caml_call1
-       /*<<camlinternalOO.ml:313:24>>*/ (Stdlib_List[10], table[8]);
+      /*<<camlinternalOO.ml:313:24>>*/ caml_call1(Stdlib_List[10], table[8]);
     var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
-     /*<<camlinternalOO.ml:143:11>>*/ return  /*<<camlinternalOO.ml:143:11>>*/ resize
-             /*<<camlinternalOO.ml:143:11>>*/ (table,
+     /*<<camlinternalOO.ml:143:11>>*/ return resize
+            (table,
              3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0) /*<<camlinternalOO.ml:314:69>>*/ ;
-    /*<<camlinternalOO.ml:314:69>>*/ }
+   }
    function inherits(cla, vals, virt_meths, concr_meths, param, top){
     var env = param[4], super$0 = param[2];
-     /*<<camlinternalOO.ml:317:2>>*/  /*<<camlinternalOO.ml:317:2>>*/ narrow
-      /*<<camlinternalOO.ml:317:2>>*/ (cla, vals, virt_meths, concr_meths);
+     /*<<camlinternalOO.ml:317:2>>*/ narrow
+     (cla, vals, virt_meths, concr_meths);
     var
      init =
        top
-        ?  /*<<camlinternalOO.ml:319:16>>*/ caml_call2
-           /*<<camlinternalOO.ml:319:16>>*/ (super$0, cla, env)
-        :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1
-           /*<<camlinternalOO.ml:319:44>>*/ (super$0, cla);
-     /*<<camlinternalOO.ml:320:2>>*/  /*<<camlinternalOO.ml:320:2>>*/ widen
-      /*<<camlinternalOO.ml:320:2>>*/ (cla);
-    var
-     _s_ =
-        /*<<camlinternalOO.ml:326:7>>*/  /*<<camlinternalOO.ml:326:7>>*/ to_array
-         /*<<camlinternalOO.ml:326:7>>*/ (concr_meths),
+        ?  /*<<camlinternalOO.ml:319:16>>*/ caml_call2(super$0, cla, env)
+        :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1(super$0, cla);
+     /*<<camlinternalOO.ml:320:2>>*/ widen(cla);
+    var
+     _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
      _t_ =
         /*<<camlinternalOO.ml:324:5>>*/ [0,
-         /*<<camlinternalOO.ml:324:5>>*/ caml_call2
-          /*<<camlinternalOO.ml:324:5>>*/ (Stdlib_Array[14],
+        caml_call2
+         (Stdlib_Array[14],
           function(nm){
             /*<<camlinternalOO.ml:325:18>>*/ return  /*<<camlinternalOO.ml:325:43>>*/ get_method
-                    /*<<camlinternalOO.ml:325:43>>*/ (cla,
-                     /*<<camlinternalOO.ml:325:43>>*/ get_method_label
-                      /*<<camlinternalOO.ml:325:43>>*/ (cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
-           /*<<camlinternalOO.ml:325:79>>*/ },
+                   (cla, get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
+          },
           _s_),
         0],
-     _u_ =
-        /*<<camlinternalOO.ml:323:45>>*/  /*<<camlinternalOO.ml:323:45>>*/ to_array
-         /*<<camlinternalOO.ml:323:45>>*/ (vals),
+     _u_ =  /*<<camlinternalOO.ml:323:45>>*/ to_array(vals),
      _v_ =
         /*<<camlinternalOO.ml:322:4>>*/ [0,
         [0, init],
         [0,
           /*<<camlinternalOO.ml:323:16>>*/ caml_call2
-           /*<<camlinternalOO.ml:323:16>>*/ (Stdlib_Array[14],
+          (Stdlib_Array[14],
            function(_w_){ /*<<?>>*/ return get_variable(cla, _w_);},
            _u_),
          _t_]];
-     /*<<camlinternalOO.ml:322:4>>*/ return  /*<<camlinternalOO.ml:322:4>>*/ caml_call1
-             /*<<camlinternalOO.ml:322:4>>*/ (Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:326:31>>*/ ;
-    /*<<camlinternalOO.ml:326:31>>*/ }
+     /*<<camlinternalOO.ml:322:4>>*/ return caml_call1(Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:326:31>>*/ ;
+   }
    function make_class(pub_meths, class_init){
     var
-     table =
-        /*<<camlinternalOO.ml:329:14>>*/  /*<<camlinternalOO.ml:329:14>>*/ create_table
-         /*<<camlinternalOO.ml:329:14>>*/ (pub_meths),
+     table =  /*<<camlinternalOO.ml:329:14>>*/ create_table(pub_meths),
      env_init =
-        /*<<camlinternalOO.ml:330:17>>*/  /*<<camlinternalOO.ml:330:17>>*/ caml_call1
-         /*<<camlinternalOO.ml:330:17>>*/ (class_init, table);
-     /*<<camlinternalOO.ml:331:2>>*/  /*<<camlinternalOO.ml:331:2>>*/ init_class
-      /*<<camlinternalOO.ml:331:2>>*/ (table);
+        /*<<camlinternalOO.ml:330:17>>*/ caml_call1(class_init, table);
+     /*<<camlinternalOO.ml:331:2>>*/ init_class(table);
      /*<<camlinternalOO.ml:332:2>>*/ return [0,
-             /*<<camlinternalOO.ml:332:3>>*/ caml_call1
-              /*<<camlinternalOO.ml:332:3>>*/ (env_init, 0),
+             /*<<camlinternalOO.ml:332:3>>*/ caml_call1(env_init, 0),
             class_init,
             env_init,
             0] /*<<camlinternalOO.ml:332:2>>*/ ;
     /*<<camlinternalOO.ml:332:59>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
     var
-     table =
-        /*<<camlinternalOO.ml:338:14>>*/  /*<<camlinternalOO.ml:338:14>>*/ create_table
-         /*<<camlinternalOO.ml:338:14>>*/ (pub_meths),
+     table =  /*<<camlinternalOO.ml:338:14>>*/ create_table(pub_meths),
      env_init =
-        /*<<camlinternalOO.ml:339:17>>*/  /*<<camlinternalOO.ml:339:17>>*/ caml_call1
-         /*<<camlinternalOO.ml:339:17>>*/ (class_init, table);
-     /*<<camlinternalOO.ml:340:2>>*/  /*<<camlinternalOO.ml:340:2>>*/ init_class
-      /*<<camlinternalOO.ml:340:2>>*/ (table);
+        /*<<camlinternalOO.ml:339:17>>*/ caml_call1(class_init, table);
+     /*<<camlinternalOO.ml:340:2>>*/ init_class(table);
     init_table[2] = class_init;
     init_table[1] = env_init;
     return 0;
     /*<<camlinternalOO.ml:342:33>>*/ }
    function dummy_class(loc){
     function undef(param){
-      /*<<camlinternalOO.ml:345:23>>*/ throw  /*<<camlinternalOO.ml:345:23>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalOO.ml:345:23>>*/ ([0, Stdlib[15], loc], 1);
+      /*<<camlinternalOO.ml:345:23>>*/ throw 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:2>>*/ ;
+     /*<<camlinternalOO.ml:346:2>>*/ return [0, undef, undef, undef, 0];
     /*<<camlinternalOO.ml:346:45>>*/ }
    function create_object(table){
     var
      obj =
-        /*<<camlinternalOO.ml:352:12>>*/  /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
-         /*<<camlinternalOO.ml:352:12>>*/ (Stdlib_Obj[10], table[1]);
+        /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
+        (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:354:2>>*/ obj[1] = table[2];
-     /*<<camlinternalOO.ml:355:10>>*/ return  /*<<camlinternalOO.ml:355:10>>*/ caml_set_oo_id
-             /*<<camlinternalOO.ml:355:10>>*/ (obj) /*<<camlinternalOO.ml:355:22>>*/ ;
-    /*<<camlinternalOO.ml:355:22>>*/ }
+     /*<<camlinternalOO.ml:355:10>>*/ return caml_set_oo_id(obj) /*<<camlinternalOO.ml:355:22>>*/ ;
+   }
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
-      /*<<camlinternalOO.ml:358:35>>*/ return obj_0 /*<<camlinternalOO.ml:358:35>>*/ ;
+      /*<<camlinternalOO.ml:358:35>>*/ return obj_0;
     var
      obj =
-        /*<<camlinternalOO.ml:360:14>>*/  /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
-         /*<<camlinternalOO.ml:360:14>>*/ (Stdlib_Obj[10], table[1]);
+        /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
+        (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:362:4>>*/ obj[1] = table[2];
-     /*<<camlinternalOO.ml:363:12>>*/ return  /*<<camlinternalOO.ml:363:12>>*/ caml_set_oo_id
-             /*<<camlinternalOO.ml:363:12>>*/ (obj) /*<<camlinternalOO.ml:364:5>>*/ ;
-    /*<<camlinternalOO.ml:364:5>>*/ }
+     /*<<camlinternalOO.ml:363:12>>*/ return caml_set_oo_id(obj) /*<<camlinternalOO.ml:364:5>>*/ ;
+   }
    function iter_f(obj, param){
     var param$0 = param;
      /*<<camlinternalOO.ml:366:15>>*/ for(;;){
-     if(! param$0)
-       /*<<camlinternalOO.ml:368:12>>*/ return 0 /*<<camlinternalOO.ml:368:12>>*/ ;
+     if(! param$0)  /*<<camlinternalOO.ml:368:12>>*/ return 0;
      var l = param$0[2], f = param$0[1];
-      /*<<camlinternalOO.ml:369:12>>*/  /*<<camlinternalOO.ml:369:12>>*/ caml_call1
-       /*<<camlinternalOO.ml:369:12>>*/ (f, obj);
+      /*<<camlinternalOO.ml:369:12>>*/ caml_call1(f, obj);
      param$0 = l;
     }
     /*<<camlinternalOO.ml:369:31>>*/ }
    function run_initializers(obj, table){
     var inits = table[8], _r_ = 0 !== inits ? 1 : 0;
-    return _r_
-            ?  /*<<camlinternalOO.ml:374:4>>*/ iter_f
-               /*<<camlinternalOO.ml:374:4>>*/ (obj, inits)
-            : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
-    /*<<camlinternalOO.ml:374:20>>*/ }
+    return _r_ ?  /*<<camlinternalOO.ml:374:4>>*/ iter_f(obj, inits) : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
+   }
    function run_initializers_opt(obj_0, obj, table){
      /*<<camlinternalOO.ml:377:2>>*/ if(obj_0)
-      /*<<camlinternalOO.ml:377:35>>*/ return obj /*<<camlinternalOO.ml:377:35>>*/ ;
+      /*<<camlinternalOO.ml:377:35>>*/ return obj;
     var inits = table[8];
-    if(0 !== inits)
-      /*<<camlinternalOO.ml:379:24>>*/  /*<<camlinternalOO.ml:379:24>>*/ iter_f
-       /*<<camlinternalOO.ml:379:24>>*/ (obj, inits);
-     /*<<camlinternalOO.ml:379:24>>*/ return obj /*<<camlinternalOO.ml:379:24>>*/ ;
+    if(0 !== inits)  /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
+    return obj;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
-     /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
-      /*<<camlinternalOO.ml:384:35>>*/ return obj_0 /*<<camlinternalOO.ml:384:35>>*/ ;
-    var
-     obj =
-        /*<<camlinternalOO.ml:385:14>>*/  /*<<camlinternalOO.ml:385:14>>*/ create_object
-         /*<<camlinternalOO.ml:385:14>>*/ (table);
-     /*<<camlinternalOO.ml:386:4>>*/  /*<<camlinternalOO.ml:386:4>>*/ run_initializers
-      /*<<camlinternalOO.ml:386:4>>*/ (obj, table);
-     /*<<camlinternalOO.ml:386:4>>*/ return obj /*<<camlinternalOO.ml:386:4>>*/ ;
+     /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
+      /*<<camlinternalOO.ml:384:35>>*/ return obj_0;
+    var obj =  /*<<camlinternalOO.ml:385:14>>*/ create_object(table);
+     /*<<camlinternalOO.ml:386:4>>*/ run_initializers(obj, table);
+    return obj;
     /*<<camlinternalOO.ml:388:5>>*/ }
    function get_data(param){
      /*<<camlinternalOO.ml:415:15>>*/ if(param)
-      /*<<camlinternalOO.ml:417:19>>*/ return param[2] /*<<camlinternalOO.ml:417:19>>*/ ;
-     /*<<camlinternalOO.ml:416:13>>*/ throw  /*<<camlinternalOO.ml:416:13>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalOO.ml:416:13>>*/ ([0, Assert_failure, _e_], 1);
+      /*<<camlinternalOO.ml:417:19>>*/ return param[2];
+     /*<<camlinternalOO.ml:416:13>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _e_], 1);
     /*<<camlinternalOO.ml:417:30>>*/ }
    function build_path(n, keys, tables){
     var
      res =  /*<<camlinternalOO.ml:423:17>>*/ [0, 0, 0, 0],
      r =  /*<<camlinternalOO.ml:424:10>>*/ [0, res],
-     _o_ =  /*<<camlinternalOO.ml:424:10>>*/ 0;
+     _o_ = 0;
     if(n >= 0){
      var i = _o_;
      for(;;){
@@ -38062,65 +31277,53 @@
     }
     var v = r[1];
     if(! tables)
-      /*<<camlinternalOO.ml:407:13>>*/ throw  /*<<camlinternalOO.ml:407:13>>*/ caml_maybe_attach_backtrace
-             /*<<camlinternalOO.ml:407:13>>*/ ([0, Assert_failure, _b_], 1);
+      /*<<camlinternalOO.ml:407:13>>*/ throw caml_maybe_attach_backtrace
+            ([0, Assert_failure, _b_], 1);
     tables[2] = v;
-     /*<<camlinternalOO.ml:428:2>>*/ return res /*<<camlinternalOO.ml:428:2>>*/ ;
+     /*<<camlinternalOO.ml:428:2>>*/ return res;
     /*<<camlinternalOO.ml:429:5>>*/ }
    function lookup_tables(root, keys){
-    var
-     root_data =
-        /*<<camlinternalOO.ml:451:8>>*/  /*<<camlinternalOO.ml:451:8>>*/ get_data
-         /*<<camlinternalOO.ml:451:8>>*/ (root);
+    var root_data =  /*<<camlinternalOO.ml:451:8>>*/ get_data(root);
     if(! root_data)
-      /*<<camlinternalOO.ml:455:4>>*/ return  /*<<camlinternalOO.ml:455:4>>*/ build_path
-              /*<<camlinternalOO.ml:455:4>>*/ (keys.length - 2 | 0,
-              keys,
-              root) /*<<camlinternalOO.ml:455:48>>*/ ;
+      /*<<camlinternalOO.ml:455:4>>*/ return build_path
+             (keys.length - 2 | 0, keys, root) /*<<camlinternalOO.ml:455:48>>*/ ;
     var i$1 = keys.length - 2 | 0, i = i$1, tables$0 = root_data;
      /*<<camlinternalOO.ml:432:2>>*/ for(;;){
-     if(0 > i)
-       /*<<camlinternalOO.ml:432:16>>*/ return tables$0 /*<<camlinternalOO.ml:432:16>>*/ ;
+     if(0 > i)  /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
      var
       key =  /*<<camlinternalOO.ml:433:12>>*/ caml_check_bound(keys, i)[1 + i],
       tables$1 = tables$0;
       /*<<camlinternalOO.ml:435:4>>*/ for(;;){
       if(! tables$1)
-        /*<<camlinternalOO.ml:413:13>>*/ throw  /*<<camlinternalOO.ml:413:13>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalOO.ml:413:13>>*/ ([0, Assert_failure, _d_], 1);
+        /*<<camlinternalOO.ml:413:13>>*/ throw caml_maybe_attach_backtrace
+              ([0, Assert_failure, _d_], 1);
       if(tables$1[1] === key) break;
       if(! tables$1)
-        /*<<camlinternalOO.ml:419:13>>*/ throw  /*<<camlinternalOO.ml:419:13>>*/ caml_maybe_attach_backtrace
-               /*<<camlinternalOO.ml:419:13>>*/ ([0, Assert_failure, _f_], 1);
+        /*<<camlinternalOO.ml:419:13>>*/ throw caml_maybe_attach_backtrace
+              ([0, Assert_failure, _f_], 1);
       var tables =  /*<<camlinternalOO.ml:420:19>>*/ tables$1[3];
       if(! tables){
        var next =  /*<<camlinternalOO.ml:444:35>>*/ [0, key, 0, 0];
        if(! tables$1)
-         /*<<camlinternalOO.ml:410:13>>*/ throw  /*<<camlinternalOO.ml:410:13>>*/ caml_maybe_attach_backtrace
-                /*<<camlinternalOO.ml:410:13>>*/ ([0, Assert_failure, _c_], 1);
+         /*<<camlinternalOO.ml:410:13>>*/ throw caml_maybe_attach_backtrace
+               ([0, Assert_failure, _c_], 1);
        tables$1[3] = next;
-        /*<<camlinternalOO.ml:445:10>>*/ return  /*<<camlinternalOO.ml:445:10>>*/ build_path
-                /*<<camlinternalOO.ml:445:10>>*/ (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
+        /*<<camlinternalOO.ml:445:10>>*/ return build_path
+               (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
       }
       tables$1 = tables;
      }
-     var
-      tables_data =
-         /*<<camlinternalOO.ml:436:12>>*/  /*<<camlinternalOO.ml:436:12>>*/ get_data
-          /*<<camlinternalOO.ml:436:12>>*/ (tables$1);
+     var tables_data =  /*<<camlinternalOO.ml:436:12>>*/ get_data(tables$1);
      if(! tables_data)
-       /*<<camlinternalOO.ml:437:17>>*/ throw  /*<<camlinternalOO.ml:437:17>>*/ caml_maybe_attach_backtrace
-              /*<<camlinternalOO.ml:437:17>>*/ ([0, Assert_failure, _g_], 1);
+       /*<<camlinternalOO.ml:437:17>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _g_], 1);
      var i$0 = i - 1 | 0;
      i = i$0;
      tables$0 = tables_data;
     }
     /*<<camlinternalOO.ml:455:48>>*/ }
    function new_cache(table){
-    var
-     n =
-        /*<<camlinternalOO.ml:507:10>>*/  /*<<camlinternalOO.ml:507:10>>*/ new_method
-         /*<<camlinternalOO.ml:507:10>>*/ (table);
+    var n =  /*<<camlinternalOO.ml:507:10>>*/ new_method(table);
     a:
     {
      if(0 !== (n % 2 | 0)){
@@ -38128,10 +31331,7 @@
       if
        ((2 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _n_) | 0)
         >= n){
-       var
-        n$0 =
-           /*<<camlinternalOO.ml:510:16>>*/ new_method
-            /*<<camlinternalOO.ml:510:16>>*/ (table);
+       var n$0 =  /*<<camlinternalOO.ml:510:16>>*/ new_method(table);
        break a;
       }
      }
@@ -38139,7 +31339,7 @@
     }
      /*<<camlinternalOO.ml:512:2>>*/ caml_check_bound(table[2], n$0)[1 + n$0]
     = 0;
-     /*<<camlinternalOO.ml:512:2>>*/ return n$0 /*<<camlinternalOO.ml:512:2>>*/ ;
+    return n$0;
     /*<<camlinternalOO.ml:513:3>>*/ }
    function set_methods(table, methods){
     var
@@ -38158,18 +31358,13 @@
          var _m_ = i[1];
           /*<<camlinternalOO.ml:543:34>>*/ return caml_check_bound
                   (methods, _m_)
-                 [1 + _m_] /*<<camlinternalOO.ml:543:34>>*/ ;
+                 [1 + _m_];
          /*<<camlinternalOO.ml:543:42>>*/ },
-      clo =
-         /*<<camlinternalOO.ml:544:8>>*/  /*<<camlinternalOO.ml:544:8>>*/ next
-          /*<<camlinternalOO.ml:544:8>>*/ (0);
+      clo =  /*<<camlinternalOO.ml:544:8>>*/ next(0);
      if(typeof clo === "number")
       switch(clo){
         case 0:
-         var
-          x =
-             /*<<camlinternalOO.ml:545:28>>*/  /*<<camlinternalOO.ml:545:28>>*/ next
-              /*<<camlinternalOO.ml:545:28>>*/ (0);
+         var x =  /*<<camlinternalOO.ml:545:28>>*/ next(0);
          let x$20 = x;
          var
           clo$0 =
@@ -38178,10 +31373,7 @@
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
-         var
-          n =
-             /*<<camlinternalOO.ml:546:24>>*/  /*<<camlinternalOO.ml:546:24>>*/ next
-              /*<<camlinternalOO.ml:546:24>>*/ (0);
+         var n =  /*<<camlinternalOO.ml:546:24>>*/ next(0);
          let n$38 = n;
          var
           clo$0 =
@@ -38191,12 +31383,8 @@
          break;
         case 2:
          var
-          e =
-             /*<<camlinternalOO.ml:547:24>>*/  /*<<camlinternalOO.ml:547:24>>*/ next
-              /*<<camlinternalOO.ml:547:24>>*/ (0),
-          n$0 =
-             /*<<camlinternalOO.ml:547:42>>*/  /*<<camlinternalOO.ml:547:42>>*/ next
-              /*<<camlinternalOO.ml:547:42>>*/ (0);
+          e =  /*<<camlinternalOO.ml:547:24>>*/ next(0),
+          n$0 =  /*<<camlinternalOO.ml:547:42>>*/ next(0);
          let e$10 = e, n$37 = n$0;
          var
           clo$0 =
@@ -38205,23 +31393,17 @@
              /*<<camlinternalOO.ml:463:65>>*/ };
          break;
         case 3:
-         var
-          n$1 =
-             /*<<camlinternalOO.ml:548:24>>*/  /*<<camlinternalOO.ml:548:24>>*/ next
-              /*<<camlinternalOO.ml:548:24>>*/ (0);
+         var n$1 =  /*<<camlinternalOO.ml:548:24>>*/ next(0);
          let n$36 = n$1;
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:464:34>>*/ return  /*<<camlinternalOO.ml:464:34>>*/ caml_call1
-                      /*<<camlinternalOO.ml:464:34>>*/ (obj[1][1 + n$36], obj) /*<<camlinternalOO.ml:464:48>>*/ ;
-             /*<<camlinternalOO.ml:464:48>>*/ };
+              /*<<camlinternalOO.ml:464:34>>*/ return caml_call1
+                     (obj[1][1 + n$36], obj) /*<<camlinternalOO.ml:464:48>>*/ ;
+            };
          break;
         case 4:
-         var
-          n$2 =
-             /*<<camlinternalOO.ml:549:24>>*/  /*<<camlinternalOO.ml:549:24>>*/ next
-              /*<<camlinternalOO.ml:549:24>>*/ (0);
+         var n$2 =  /*<<camlinternalOO.ml:549:24>>*/ next(0);
          let n$35 = n$2;
          var
           clo$0 =
@@ -38232,384 +31414,260 @@
          break;
         case 5:
          var
-          f =
-             /*<<camlinternalOO.ml:550:24>>*/  /*<<camlinternalOO.ml:550:24>>*/ next
-              /*<<camlinternalOO.ml:550:24>>*/ (0),
-          x$0 =
-             /*<<camlinternalOO.ml:550:42>>*/  /*<<camlinternalOO.ml:550:42>>*/ next
-              /*<<camlinternalOO.ml:550:42>>*/ (0);
+          f =  /*<<camlinternalOO.ml:550:24>>*/ next(0),
+          x$0 =  /*<<camlinternalOO.ml:550:42>>*/ next(0);
          let f$20 = f, x$19 = x$0;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:466:37>>*/ return  /*<<camlinternalOO.ml:466:20>>*/ caml_call1
-                      /*<<camlinternalOO.ml:466:20>>*/ (f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
-             /*<<camlinternalOO.ml:466:40>>*/ };
+                     (f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
+            };
          break;
         case 6:
          var
-          f$0 =
-             /*<<camlinternalOO.ml:551:24>>*/  /*<<camlinternalOO.ml:551:24>>*/ next
-              /*<<camlinternalOO.ml:551:24>>*/ (0),
-          n$3 =
-             /*<<camlinternalOO.ml:551:42>>*/  /*<<camlinternalOO.ml:551:42>>*/ next
-              /*<<camlinternalOO.ml:551:42>>*/ (0);
+          f$0 =  /*<<camlinternalOO.ml:551:24>>*/ next(0),
+          n$3 =  /*<<camlinternalOO.ml:551:42>>*/ next(0);
          let f$19 = f$0, n$34 = n$3;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:467:36>>*/ return caml_call1
                      (f$19, obj[1 + n$34]) /*<<camlinternalOO.ml:467:62>>*/ ;
-             /*<<camlinternalOO.ml:467:62>>*/ };
+            };
          break;
         case 7:
          var
-          f$1 =
-             /*<<camlinternalOO.ml:553:14>>*/  /*<<camlinternalOO.ml:553:14>>*/ next
-              /*<<camlinternalOO.ml:553:14>>*/ (0),
-          e$0 =
-             /*<<camlinternalOO.ml:553:33>>*/  /*<<camlinternalOO.ml:553:33>>*/ next
-              /*<<camlinternalOO.ml:553:33>>*/ (0),
-          n$4 =
-             /*<<camlinternalOO.ml:553:51>>*/  /*<<camlinternalOO.ml:553:51>>*/ next
-              /*<<camlinternalOO.ml:553:51>>*/ (0);
+          f$1 =  /*<<camlinternalOO.ml:553:14>>*/ next(0),
+          e$0 =  /*<<camlinternalOO.ml:553:33>>*/ next(0),
+          n$4 =  /*<<camlinternalOO.ml:553:51>>*/ next(0);
          let f$18 = f$1, e$9 = e$0, n$33 = n$4;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:470:4>>*/ return caml_call1
                      (f$18, obj[1 + e$9][1 + n$33]) /*<<camlinternalOO.ml:470:69>>*/ ;
-             /*<<camlinternalOO.ml:470:69>>*/ };
+            };
          break;
         case 8:
          var
-          f$2 =
-             /*<<camlinternalOO.ml:555:24>>*/  /*<<camlinternalOO.ml:555:24>>*/ next
-              /*<<camlinternalOO.ml:555:24>>*/ (0),
-          n$5 =
-             /*<<camlinternalOO.ml:555:42>>*/  /*<<camlinternalOO.ml:555:42>>*/ next
-              /*<<camlinternalOO.ml:555:42>>*/ (0);
+          f$2 =  /*<<camlinternalOO.ml:555:24>>*/ next(0),
+          n$5 =  /*<<camlinternalOO.ml:555:42>>*/ next(0);
          let f$17 = f$2, n$32 = n$5;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:38>>*/ caml_call1
-                      /*<<camlinternalOO.ml:471:38>>*/ (f$17,
-                       /*<<camlinternalOO.ml:471:38>>*/ caml_call1
-                        /*<<camlinternalOO.ml:471:38>>*/ (obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
-             /*<<camlinternalOO.ml:471:54>>*/ };
+                     (f$17, caml_call1(obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
+            };
          break;
         case 9:
          var
-          f$3 =
-             /*<<camlinternalOO.ml:557:14>>*/  /*<<camlinternalOO.ml:557:14>>*/ next
-              /*<<camlinternalOO.ml:557:14>>*/ (0),
-          x$1 =
-             /*<<camlinternalOO.ml:557:32>>*/  /*<<camlinternalOO.ml:557:32>>*/ next
-              /*<<camlinternalOO.ml:557:32>>*/ (0),
-          y =
-             /*<<camlinternalOO.ml:557:50>>*/  /*<<camlinternalOO.ml:557:50>>*/ next
-              /*<<camlinternalOO.ml:557:50>>*/ (0);
+          f$3 =  /*<<camlinternalOO.ml:557:14>>*/ next(0),
+          x$1 =  /*<<camlinternalOO.ml:557:32>>*/ next(0),
+          y =  /*<<camlinternalOO.ml:557:50>>*/ next(0);
          let f$16 = f$3, x$18 = x$1, y$0 = y;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:472:45>>*/ return  /*<<camlinternalOO.ml:472:28>>*/ caml_call2
-                      /*<<camlinternalOO.ml:472:28>>*/ (f$16, x$18, y$0) /*<<camlinternalOO.ml:472:50>>*/ ;
-             /*<<camlinternalOO.ml:472:50>>*/ };
+                     (f$16, x$18, y$0) /*<<camlinternalOO.ml:472:50>>*/ ;
+            };
          break;
         case 10:
          var
-          f$4 =
-             /*<<camlinternalOO.ml:560:14>>*/  /*<<camlinternalOO.ml:560:14>>*/ next
-              /*<<camlinternalOO.ml:560:14>>*/ (0),
-          x$2 =
-             /*<<camlinternalOO.ml:560:32>>*/  /*<<camlinternalOO.ml:560:32>>*/ next
-              /*<<camlinternalOO.ml:560:32>>*/ (0),
-          n$6 =
-             /*<<camlinternalOO.ml:560:50>>*/  /*<<camlinternalOO.ml:560:50>>*/ next
-              /*<<camlinternalOO.ml:560:50>>*/ (0);
+          f$4 =  /*<<camlinternalOO.ml:560:14>>*/ next(0),
+          x$2 =  /*<<camlinternalOO.ml:560:32>>*/ next(0),
+          n$6 =  /*<<camlinternalOO.ml:560:50>>*/ next(0);
          let f$15 = f$4, x$17 = x$2, n$31 = n$6;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:473:44>>*/ return caml_call2
                      (f$15, x$17, obj[1 + n$31]) /*<<camlinternalOO.ml:473:72>>*/ ;
-             /*<<camlinternalOO.ml:473:72>>*/ };
+            };
          break;
         case 11:
          var
-          f$5 =
-             /*<<camlinternalOO.ml:563:14>>*/  /*<<camlinternalOO.ml:563:14>>*/ next
-              /*<<camlinternalOO.ml:563:14>>*/ (0),
-          x$3 =
-             /*<<camlinternalOO.ml:563:32>>*/  /*<<camlinternalOO.ml:563:32>>*/ next
-              /*<<camlinternalOO.ml:563:32>>*/ (0),
-          e$1 =
-             /*<<camlinternalOO.ml:563:50>>*/  /*<<camlinternalOO.ml:563:50>>*/ next
-              /*<<camlinternalOO.ml:563:50>>*/ (0),
-          n$7 =
-             /*<<camlinternalOO.ml:563:69>>*/  /*<<camlinternalOO.ml:563:69>>*/ next
-              /*<<camlinternalOO.ml:563:69>>*/ (0);
+          f$5 =  /*<<camlinternalOO.ml:563:14>>*/ next(0),
+          x$3 =  /*<<camlinternalOO.ml:563:32>>*/ next(0),
+          e$1 =  /*<<camlinternalOO.ml:563:50>>*/ next(0),
+          n$7 =  /*<<camlinternalOO.ml:563:69>>*/ next(0);
          let f$14 = f$5, x$16 = x$3, e$8 = e$1, n$30 = n$7;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:479:4>>*/ return caml_call2
                      (f$14, x$16, obj[1 + e$8][1 + n$30]) /*<<camlinternalOO.ml:479:71>>*/ ;
-             /*<<camlinternalOO.ml:479:71>>*/ };
+            };
          break;
         case 12:
          var
-          f$6 =
-             /*<<camlinternalOO.ml:566:14>>*/  /*<<camlinternalOO.ml:566:14>>*/ next
-              /*<<camlinternalOO.ml:566:14>>*/ (0),
-          x$4 =
-             /*<<camlinternalOO.ml:566:32>>*/  /*<<camlinternalOO.ml:566:32>>*/ next
-              /*<<camlinternalOO.ml:566:32>>*/ (0),
-          n$8 =
-             /*<<camlinternalOO.ml:566:50>>*/  /*<<camlinternalOO.ml:566:50>>*/ next
-              /*<<camlinternalOO.ml:566:50>>*/ (0);
+          f$6 =  /*<<camlinternalOO.ml:566:14>>*/ next(0),
+          x$4 =  /*<<camlinternalOO.ml:566:32>>*/ next(0),
+          n$8 =  /*<<camlinternalOO.ml:566:50>>*/ next(0);
          let f$13 = f$6, x$15 = x$4, n$29 = n$8;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:474:43>>*/ return  /*<<camlinternalOO.ml:474:47>>*/ caml_call2
-                      /*<<camlinternalOO.ml:474:47>>*/ (f$13,
-                      x$15,
-                       /*<<camlinternalOO.ml:474:47>>*/ caml_call1
-                        /*<<camlinternalOO.ml:474:47>>*/ (obj[1][1 + n$29], obj)) /*<<camlinternalOO.ml:474:63>>*/ ;
-             /*<<camlinternalOO.ml:474:63>>*/ };
+                     (f$13, x$15, caml_call1(obj[1][1 + n$29], obj)) /*<<camlinternalOO.ml:474:63>>*/ ;
+            };
          break;
         case 13:
          var
-          f$7 =
-             /*<<camlinternalOO.ml:569:14>>*/  /*<<camlinternalOO.ml:569:14>>*/ next
-              /*<<camlinternalOO.ml:569:14>>*/ (0),
-          n$9 =
-             /*<<camlinternalOO.ml:569:32>>*/  /*<<camlinternalOO.ml:569:32>>*/ next
-              /*<<camlinternalOO.ml:569:32>>*/ (0),
-          x$5 =
-             /*<<camlinternalOO.ml:569:50>>*/  /*<<camlinternalOO.ml:569:50>>*/ next
-              /*<<camlinternalOO.ml:569:50>>*/ (0);
+          f$7 =  /*<<camlinternalOO.ml:569:14>>*/ next(0),
+          n$9 =  /*<<camlinternalOO.ml:569:32>>*/ next(0),
+          x$5 =  /*<<camlinternalOO.ml:569:50>>*/ next(0);
          let f$12 = f$7, n$28 = n$9, x$14 = x$5;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:475:42>>*/ return  /*<<camlinternalOO.ml:475:26>>*/ caml_call2
-                      /*<<camlinternalOO.ml:475:26>>*/ (f$12,
-                      obj[1 + n$28],
-                      x$14) /*<<camlinternalOO.ml:475:70>>*/ ;
-             /*<<camlinternalOO.ml:475:70>>*/ };
+                     (f$12, obj[1 + n$28], x$14) /*<<camlinternalOO.ml:475:70>>*/ ;
+            };
          break;
         case 14:
          var
-          f$8 =
-             /*<<camlinternalOO.ml:572:14>>*/  /*<<camlinternalOO.ml:572:14>>*/ next
-              /*<<camlinternalOO.ml:572:14>>*/ (0),
-          e$2 =
-             /*<<camlinternalOO.ml:572:32>>*/  /*<<camlinternalOO.ml:572:32>>*/ next
-              /*<<camlinternalOO.ml:572:32>>*/ (0),
-          n$10 =
-             /*<<camlinternalOO.ml:572:51>>*/  /*<<camlinternalOO.ml:572:51>>*/ next
-              /*<<camlinternalOO.ml:572:51>>*/ (0),
-          x$6 =
-             /*<<camlinternalOO.ml:572:69>>*/  /*<<camlinternalOO.ml:572:69>>*/ next
-              /*<<camlinternalOO.ml:572:69>>*/ (0);
+          f$8 =  /*<<camlinternalOO.ml:572:14>>*/ next(0),
+          e$2 =  /*<<camlinternalOO.ml:572:32>>*/ next(0),
+          n$10 =  /*<<camlinternalOO.ml:572:51>>*/ next(0),
+          x$6 =  /*<<camlinternalOO.ml:572:69>>*/ next(0);
          let f$11 = f$8, e$7 = e$2, n$27 = n$10, x$13 = x$6;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:482:4>>*/ return  /*<<camlinternalOO.ml:481:2>>*/ caml_call2
-                      /*<<camlinternalOO.ml:481:2>>*/ (f$11,
-                      obj[1 + e$7][1 + n$27],
-                      x$13) /*<<camlinternalOO.ml:482:71>>*/ ;
-             /*<<camlinternalOO.ml:482:71>>*/ };
+                     (f$11, obj[1 + e$7][1 + n$27], x$13) /*<<camlinternalOO.ml:482:71>>*/ ;
+            };
          break;
         case 15:
          var
-          f$9 =
-             /*<<camlinternalOO.ml:575:14>>*/  /*<<camlinternalOO.ml:575:14>>*/ next
-              /*<<camlinternalOO.ml:575:14>>*/ (0),
-          n$11 =
-             /*<<camlinternalOO.ml:575:32>>*/  /*<<camlinternalOO.ml:575:32>>*/ next
-              /*<<camlinternalOO.ml:575:32>>*/ (0),
-          x$7 =
-             /*<<camlinternalOO.ml:575:50>>*/  /*<<camlinternalOO.ml:575:50>>*/ next
-              /*<<camlinternalOO.ml:575:50>>*/ (0);
+          f$9 =  /*<<camlinternalOO.ml:575:14>>*/ next(0),
+          n$11 =  /*<<camlinternalOO.ml:575:32>>*/ next(0),
+          x$7 =  /*<<camlinternalOO.ml:575:50>>*/ next(0);
          let f$10 = f$9, n$26 = n$11, x$12 = x$7;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:476:43>>*/ return  /*<<camlinternalOO.ml:476:27>>*/ caml_call2
-                      /*<<camlinternalOO.ml:476:27>>*/ (f$10,
+                     (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
-                        /*<<camlinternalOO.ml:476:45>>*/ (obj[1][1 + n$26], obj),
+                       (obj[1][1 + n$26], obj),
                       x$12) /*<<camlinternalOO.ml:476:63>>*/ ;
-             /*<<camlinternalOO.ml:476:63>>*/ };
+            };
          break;
         case 16:
          var
-          n$12 =
-             /*<<camlinternalOO.ml:578:14>>*/  /*<<camlinternalOO.ml:578:14>>*/ next
-              /*<<camlinternalOO.ml:578:14>>*/ (0),
-          x$8 =
-             /*<<camlinternalOO.ml:578:32>>*/  /*<<camlinternalOO.ml:578:32>>*/ next
-              /*<<camlinternalOO.ml:578:32>>*/ (0);
+          n$12 =  /*<<camlinternalOO.ml:578:14>>*/ next(0),
+          x$8 =  /*<<camlinternalOO.ml:578:32>>*/ next(0);
          let n$25 = n$12, x$11 = x$8;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:483:41>>*/ return  /*<<camlinternalOO.ml:483:25>>*/ caml_call2
-                      /*<<camlinternalOO.ml:483:25>>*/ (obj[1][1 + n$25],
-                      obj,
-                      x$11) /*<<camlinternalOO.ml:483:68>>*/ ;
-             /*<<camlinternalOO.ml:483:68>>*/ };
+                     (obj[1][1 + n$25], obj, x$11) /*<<camlinternalOO.ml:483:68>>*/ ;
+            };
          break;
         case 17:
          var
-          n$13 =
-             /*<<camlinternalOO.ml:580:14>>*/  /*<<camlinternalOO.ml:580:14>>*/ next
-              /*<<camlinternalOO.ml:580:14>>*/ (0),
-          m =
-             /*<<camlinternalOO.ml:580:32>>*/  /*<<camlinternalOO.ml:580:32>>*/ next
-              /*<<camlinternalOO.ml:580:32>>*/ (0);
+          n$13 =  /*<<camlinternalOO.ml:580:14>>*/ next(0),
+          m =  /*<<camlinternalOO.ml:580:32>>*/ next(0);
          let n$24 = n$13, m$12 = m;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:485:18>>*/ return caml_call2
                      (obj[1][1 + n$24], obj, obj[1 + m$12]) /*<<camlinternalOO.ml:485:68>>*/ ;
-             /*<<camlinternalOO.ml:485:68>>*/ };
+            };
          break;
         case 18:
          var
-          n$14 =
-             /*<<camlinternalOO.ml:582:14>>*/  /*<<camlinternalOO.ml:582:14>>*/ next
-              /*<<camlinternalOO.ml:582:14>>*/ (0),
-          e$3 =
-             /*<<camlinternalOO.ml:582:32>>*/  /*<<camlinternalOO.ml:582:32>>*/ next
-              /*<<camlinternalOO.ml:582:32>>*/ (0),
-          m$0 =
-             /*<<camlinternalOO.ml:582:50>>*/  /*<<camlinternalOO.ml:582:50>>*/ next
-              /*<<camlinternalOO.ml:582:50>>*/ (0);
+          n$14 =  /*<<camlinternalOO.ml:582:14>>*/ next(0),
+          e$3 =  /*<<camlinternalOO.ml:582:32>>*/ next(0),
+          m$0 =  /*<<camlinternalOO.ml:582:50>>*/ next(0);
          let n$23 = n$14, e$6 = e$3, m$11 = m$0;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:487:18>>*/ return caml_call2
                      (obj[1][1 + n$23], obj, obj[1 + e$6][1 + m$11]) /*<<camlinternalOO.ml:488:69>>*/ ;
-             /*<<camlinternalOO.ml:488:69>>*/ };
+            };
          break;
         case 19:
          var
-          n$15 =
-             /*<<camlinternalOO.ml:585:14>>*/  /*<<camlinternalOO.ml:585:14>>*/ next
-              /*<<camlinternalOO.ml:585:14>>*/ (0),
-          m$1 =
-             /*<<camlinternalOO.ml:585:32>>*/  /*<<camlinternalOO.ml:585:32>>*/ next
-              /*<<camlinternalOO.ml:585:32>>*/ (0);
+          n$15 =  /*<<camlinternalOO.ml:585:14>>*/ next(0),
+          m$1 =  /*<<camlinternalOO.ml:585:32>>*/ next(0);
          let n$22 = n$15, m$10 = m$1;
          var
           clo$0 =
             function(obj){
              var
               _l_ =
-                 /*<<camlinternalOO.ml:490:44>>*/  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
-                  /*<<camlinternalOO.ml:490:44>>*/ (obj[1][1 + m$10], obj);
-              /*<<camlinternalOO.ml:490:44>>*/ return  /*<<camlinternalOO.ml:490:44>>*/ caml_call2
-                      /*<<camlinternalOO.ml:490:44>>*/ (obj[1][1 + n$22],
-                      obj,
-                      _l_) /*<<camlinternalOO.ml:490:60>>*/ ;
-             /*<<camlinternalOO.ml:490:60>>*/ };
+                 /*<<camlinternalOO.ml:490:44>>*/ caml_call1
+                 (obj[1][1 + m$10], obj);
+             return caml_call2(obj[1][1 + n$22], obj, _l_) /*<<camlinternalOO.ml:490:60>>*/ ;
+            };
          break;
         case 20:
          var
-          m$2 =
-             /*<<camlinternalOO.ml:587:14>>*/  /*<<camlinternalOO.ml:587:14>>*/ next
-              /*<<camlinternalOO.ml:587:14>>*/ (0),
-          x$9 =
-             /*<<camlinternalOO.ml:587:32>>*/  /*<<camlinternalOO.ml:587:32>>*/ next
-              /*<<camlinternalOO.ml:587:32>>*/ (0);
-          /*<<camlinternalOO.ml:587:57>>*/  /*<<camlinternalOO.ml:587:57>>*/ new_cache
-           /*<<camlinternalOO.ml:587:57>>*/ (table);
+          m$2 =  /*<<camlinternalOO.ml:587:14>>*/ next(0),
+          x$9 =  /*<<camlinternalOO.ml:587:32>>*/ next(0);
+          /*<<camlinternalOO.ml:587:57>>*/ new_cache(table);
          let m$9 = m$2, x$10 = x$9;
          var
           clo$0 =
             function(obj){
               /*<<camlinternalOO.ml:492:18>>*/ return  /*<<camlinternalOO.ml:492:2>>*/ caml_call1
-                      /*<<camlinternalOO.ml:492:2>>*/ (caml_get_public_method
-                       (x$10, m$9, 0),
-                      x$10) /*<<camlinternalOO.ml:492:58>>*/ ;
-             /*<<camlinternalOO.ml:492:58>>*/ };
+                     (caml_get_public_method(x$10, m$9, 0), x$10) /*<<camlinternalOO.ml:492:58>>*/ ;
+            };
          break;
         case 21:
          var
-          m$3 =
-             /*<<camlinternalOO.ml:589:14>>*/  /*<<camlinternalOO.ml:589:14>>*/ next
-              /*<<camlinternalOO.ml:589:14>>*/ (0),
-          n$16 =
-             /*<<camlinternalOO.ml:589:32>>*/  /*<<camlinternalOO.ml:589:32>>*/ next
-              /*<<camlinternalOO.ml:589:32>>*/ (0);
-          /*<<camlinternalOO.ml:589:56>>*/  /*<<camlinternalOO.ml:589:56>>*/ new_cache
-           /*<<camlinternalOO.ml:589:56>>*/ (table);
+          m$3 =  /*<<camlinternalOO.ml:589:14>>*/ next(0),
+          n$16 =  /*<<camlinternalOO.ml:589:32>>*/ next(0);
+          /*<<camlinternalOO.ml:589:56>>*/ new_cache(table);
          let m$8 = m$3, n$21 = n$16;
          var
           clo$0 =
             function(obj){
              var _k_ = obj[1 + n$21];
              return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_) /*<<camlinternalOO.ml:496:32>>*/ ;
-             /*<<camlinternalOO.ml:496:32>>*/ };
+            };
          break;
         case 22:
          var
-          m$4 =
-             /*<<camlinternalOO.ml:591:14>>*/  /*<<camlinternalOO.ml:591:14>>*/ next
-              /*<<camlinternalOO.ml:591:14>>*/ (0),
-          e$4 =
-             /*<<camlinternalOO.ml:591:32>>*/  /*<<camlinternalOO.ml:591:32>>*/ next
-              /*<<camlinternalOO.ml:591:32>>*/ (0),
-          n$17 =
-             /*<<camlinternalOO.ml:591:50>>*/  /*<<camlinternalOO.ml:591:50>>*/ next
-              /*<<camlinternalOO.ml:591:50>>*/ (0);
-          /*<<camlinternalOO.ml:592:21>>*/  /*<<camlinternalOO.ml:592:21>>*/ new_cache
-           /*<<camlinternalOO.ml:592:21>>*/ (table);
+          m$4 =  /*<<camlinternalOO.ml:591:14>>*/ next(0),
+          e$4 =  /*<<camlinternalOO.ml:591:32>>*/ next(0),
+          n$17 =  /*<<camlinternalOO.ml:591:50>>*/ next(0);
+          /*<<camlinternalOO.ml:592:21>>*/ new_cache(table);
          let m$7 = m$4, e$5 = e$4, n$20 = n$17;
          var
           clo$0 =
             function(obj){
              var _j_ = obj[1 + e$5][1 + n$20];
              return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_) /*<<camlinternalOO.ml:502:34>>*/ ;
-             /*<<camlinternalOO.ml:502:34>>*/ };
+            };
          break;
         default:
          var
-          m$5 =
-             /*<<camlinternalOO.ml:594:14>>*/  /*<<camlinternalOO.ml:594:14>>*/ next
-              /*<<camlinternalOO.ml:594:14>>*/ (0),
-          n$18 =
-             /*<<camlinternalOO.ml:594:32>>*/  /*<<camlinternalOO.ml:594:32>>*/ next
-              /*<<camlinternalOO.ml:594:32>>*/ (0);
-          /*<<camlinternalOO.ml:594:57>>*/  /*<<camlinternalOO.ml:594:57>>*/ new_cache
-           /*<<camlinternalOO.ml:594:57>>*/ (table);
+          m$5 =  /*<<camlinternalOO.ml:594:14>>*/ next(0),
+          n$18 =  /*<<camlinternalOO.ml:594:32>>*/ next(0);
+          /*<<camlinternalOO.ml:594:57>>*/ new_cache(table);
          let m$6 = m$5, n$19 = n$18;
          var
           clo$0 =
             function(obj){
              var
               _i_ =
-                 /*<<camlinternalOO.ml:505:14>>*/  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
-                  /*<<camlinternalOO.ml:505:14>>*/ (obj[1][1 + n$19], obj);
-              /*<<camlinternalOO.ml:505:14>>*/ return  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
-                      /*<<camlinternalOO.ml:505:14>>*/ (caml_get_public_method
-                       (_i_, m$6, 0),
-                      _i_) /*<<camlinternalOO.ml:505:59>>*/ ;
-             /*<<camlinternalOO.ml:505:59>>*/ };
+                 /*<<camlinternalOO.ml:505:14>>*/ caml_call1
+                 (obj[1][1 + n$19], obj);
+             return caml_call1(caml_get_public_method(_i_, m$6, 0), _i_) /*<<camlinternalOO.ml:505:59>>*/ ;
+            };
       }
      else
       var clo$0 = clo;
-      /*<<camlinternalOO.ml:601:4>>*/  /*<<camlinternalOO.ml:601:4>>*/ set_method
-       /*<<camlinternalOO.ml:601:4>>*/ (table, label, clo$0);
+      /*<<camlinternalOO.ml:601:4>>*/ set_method(table, label, clo$0);
      i[1]++;
     }
     /*<<camlinternalOO.ml:603:6>>*/ }
@@ -38617,7 +31675,7 @@
      /*<<camlinternalOO.ml:611:2>>*/ return [0,
             table_count[1],
             method_count[1],
-            inst_var_count[1]] /*<<camlinternalOO.ml:611:2>>*/ ;
+            inst_var_count[1]];
     /*<<camlinternalOO.ml:612:59>>*/ }
    var
     CamlinternalOO =
@@ -38663,7 +31721,7 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     CamlinternalOO = global_data.CamlinternalOO,
     copy = CamlinternalOO[22],
@@ -38672,7 +31730,7 @@
     Stdlib_Oo = [0, copy, new_method, public_method_label];
    runtime.caml_register_global(1, Stdlib_Oo, "Stdlib__Oo");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: CamlinternalMod
@@ -38681,12 +31739,11 @@
   (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;
+    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)
@@ -38707,8 +31764,7 @@
     var
      length = comps$0.length - 1,
      modu =
-        /*<<camlinternalMod.ml:53:13>>*/  /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block
-         /*<<camlinternalMod.ml:53:13>>*/ (0, length),
+        /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block(0, length),
      _h_ =  /*<<camlinternalMod.ml:54:2>>*/ length - 1 | 0,
      _g_ =  /*<<camlinternalMod.ml:53:13>>*/ 0;
     if(_h_ >= 0){
@@ -38726,11 +31782,10 @@
              function(x){
               var fn =  /*<<camlinternalMod.ml:28:38>>*/ modu[1 + i$1];
               if(fn$0 === fn)
-                /*<<camlinternalMod.ml:30:11>>*/ throw  /*<<camlinternalMod.ml:30:11>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalMod.ml:30:11>>*/ ([0, Stdlib[15], loc], 1);
-               /*<<camlinternalMod.ml:32:11>>*/ return  /*<<camlinternalMod.ml:32:11>>*/ caml_call1
-                       /*<<camlinternalMod.ml:32:11>>*/ (fn, x) /*<<camlinternalMod.ml:32:16>>*/ ;
-              /*<<camlinternalMod.ml:32:16>>*/ };
+                /*<<camlinternalMod.ml:30:11>>*/ throw caml_maybe_attach_backtrace
+                      ([0, Stdlib[15], loc], 1);
+               /*<<camlinternalMod.ml:32:11>>*/ return caml_call1(fn, x) /*<<camlinternalMod.ml:32:16>>*/ ;
+             };
           let fn$0 = fn;
           var init = fn;
           break;
@@ -38743,14 +31798,13 @@
              function(param){
               var l =  /*<<camlinternalMod.ml:37:28>>*/ modu[1 + i$0];
               if(l$0 === l)
-                /*<<camlinternalMod.ml:39:13>>*/ throw  /*<<camlinternalMod.ml:39:13>>*/ caml_maybe_attach_backtrace
-                       /*<<camlinternalMod.ml:39:13>>*/ ([0, Stdlib[15], loc], 1);
+                /*<<camlinternalMod.ml:39:13>>*/ throw 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>>*/ ;
-               /*<<camlinternalMod.ml:41:13>>*/ return  /*<<camlinternalMod.ml:41:13>>*/ caml_call1
-                       /*<<camlinternalMod.ml:41:13>>*/ (CamlinternalLazy[2], l) /*<<camlinternalMod.ml:41:13>>*/ ;
+                /*<<camlinternalMod.ml:41:13>>*/ return l;
+              return caml_call1(CamlinternalLazy[2], l);
              }]);
           var init = l;
           break;
@@ -38758,14 +31812,12 @@
           var
            init =
               /*<<camlinternalMod.ml:44:16>>*/ caml_call1
-               /*<<camlinternalMod.ml:44:16>>*/ (CamlinternalOO[21], loc);
+              (CamlinternalOO[21], loc);
        }
       else if(0 === shape[0])
        var
         comps = shape[1],
-        init =
-           /*<<camlinternalMod.ml:46:16>>*/ init_mod_block
-            /*<<camlinternalMod.ml:46:16>>*/ (loc, comps);
+        init =  /*<<camlinternalMod.ml:46:16>>*/ init_mod_block(loc, comps);
       else
        var v = shape[1], init = v;
        /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
@@ -38774,25 +31826,20 @@
       i = _i_;
      }
     }
-     /*<<camlinternalMod.ml:57:2>>*/ return modu /*<<camlinternalMod.ml:57:2>>*/ ;
+     /*<<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  /*<<camlinternalMod.ml:62:5>>*/ init_mod_block
-              /*<<camlinternalMod.ml:62:5>>*/ (loc, comps) /*<<camlinternalMod.ml:63:58>>*/ ;
+      /*<<camlinternalMod.ml:62:5>>*/ return init_mod_block(loc, comps) /*<<camlinternalMod.ml:63:58>>*/ ;
     }
-     /*<<camlinternalMod.ml:63:9>>*/ return  /*<<camlinternalMod.ml:63:9>>*/ caml_call1
-             /*<<camlinternalMod.ml:63:9>>*/ (Stdlib[2],
-             cst_CamlinternalMod_init_mod_n) /*<<camlinternalMod.ml:63:58>>*/ ;
-    /*<<camlinternalMod.ml:63:58>>*/ }
+     /*<<camlinternalMod.ml:63:9>>*/ return 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
-         /*<<camlinternalMod.ml:81:10>>*/ (n)
+     (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
       && comps$0.length - 1 <= n.length - 1){
      var
       _e_ = comps$0.length - 2 | 0,
@@ -38809,29 +31856,25 @@
        if(typeof shape === "number"){
         if(2 === shape){
           /*<<camlinternalMod.ml:72:13>>*/ if
-          (0
-           ===
-             /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag
-              /*<<camlinternalMod.ml:72:13>>*/ (n$0)
-           && 4 === n$0.length - 1){
+          (0 === caml_obj_tag(n$0) && 4 === n$0.length - 1){
           var cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i], j = 0;
           for(;;){
             /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
-           var _c_ =  /*<<camlinternalMod.ml:75:7>>*/ j + 1 | 0;
+           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
-                 /*<<camlinternalMod.ml:72:5>>*/ ([0, Assert_failure, _a_], 1);
+          /*<<camlinternalMod.ml:72:5>>*/ throw 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>>*/  /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
-          /*<<camlinternalMod.ml:78:5>>*/ (comps, modu[1 + i], n$0);
+         /*<<camlinternalMod.ml:78:5>>*/ update_mod_block
+         (comps, modu[1 + i], n$0);
        }
        var _f_ =  /*<<camlinternalMod.ml:83:4>>*/ i + 1 | 0;
        if(_e_ === i) break;
@@ -38840,20 +31883,18 @@
      }
      return 0;
     }
-     /*<<camlinternalMod.ml:81:2>>*/ throw  /*<<camlinternalMod.ml:81:2>>*/ caml_maybe_attach_backtrace
-            /*<<camlinternalMod.ml:81:2>>*/ ([0, Assert_failure, _b_], 1);
+     /*<<camlinternalMod.ml:81:2>>*/ throw 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  /*<<camlinternalMod.ml:89:5>>*/ update_mod_block
-              /*<<camlinternalMod.ml:89:5>>*/ (comps, o, n) /*<<camlinternalMod.ml:90:60>>*/ ;
+      /*<<camlinternalMod.ml:89:5>>*/ return update_mod_block(comps, o, n) /*<<camlinternalMod.ml:90:60>>*/ ;
     }
-     /*<<camlinternalMod.ml:90:9>>*/ return  /*<<camlinternalMod.ml:90:9>>*/ caml_call1
-             /*<<camlinternalMod.ml:90:9>>*/ (Stdlib[2],
-             cst_CamlinternalMod_update_mod) /*<<camlinternalMod.ml:90:60>>*/ ;
-    /*<<camlinternalMod.ml:90:60>>*/ }
+     /*<<camlinternalMod.ml:90:9>>*/ return 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;
@@ -38866,12 +31907,11 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    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;
+    runtime = globalThis.jsoo_runtime,
+    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){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -38913,8 +31953,7 @@
       random =
         opt
          ? opt[1]
-         :  /*<<ephemeron.ml:107:26>>*/ caml_call1
-            /*<<ephemeron.ml:107:26>>*/ (Stdlib_Hashtbl[17], 0);
+         :  /*<<ephemeron.ml:107:26>>*/ caml_call1(Stdlib_Hashtbl[17], 0);
      a:
      b:
      {
@@ -38938,15 +31977,13 @@
       }
       var
        seed =
-          /*<<ephemeron.ml:109:32>>*/ caml_call1
-           /*<<ephemeron.ml:109:32>>*/ (Stdlib_Random[19][4], _as_);
+          /*<<ephemeron.ml:109:32>>*/ caml_call1(Stdlib_Random[19][4], _as_);
      }
      else
       var seed = 0;
       /*<<ephemeron.ml:110:6>>*/ return [0,
              0,
-              /*<<ephemeron.ml:110:56>>*/ caml_make_vect
-               /*<<ephemeron.ml:110:56>>*/ (x, 0),
+              /*<<ephemeron.ml:110:56>>*/ caml_make_vect(x, 0),
              seed,
              x] /*<<ephemeron.ml:110:6>>*/ ;
      /*<<ephemeron.ml:110:76>>*/ }
@@ -38960,7 +31997,7 @@
       var i = _ao_;
       for(;;){
         /*<<ephemeron.ml:116:8>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-       var _aq_ =  /*<<ephemeron.ml:116:8>>*/ i + 1 | 0;
+       var _aq_ = i + 1 | 0;
        if(_ap_ === i) break;
        i = _aq_;
       }
@@ -38970,24 +32007,19 @@
     function reset(h){
      var len = h[2].length - 1;
      return len === h[4]
-             ?  /*<<ephemeron.ml:122:8>>*/ clear
-                /*<<ephemeron.ml:122:8>>*/ (h)
+             ?  /*<<ephemeron.ml:122:8>>*/ clear(h)
              : (h
                 [1]
                = 0,
-               h[2] =
-                 /*<<ephemeron.ml:125:18>>*/ caml_make_vect
-                  /*<<ephemeron.ml:125:18>>*/ (h[4], 0),
+               h[2] =  /*<<ephemeron.ml:125:18>>*/ caml_make_vect(h[4], 0),
                0) /*<<ephemeron.ml:126:9>>*/ ;
-     /*<<ephemeron.ml:126:9>>*/ }
+    }
     function copy(h){
      var
       _al_ = h[4],
       _am_ = h[3],
-      _an_ =
-         /*<<ephemeron.ml:128:33>>*/  /*<<ephemeron.ml:128:33>>*/ caml_call1
-          /*<<ephemeron.ml:128:33>>*/ (Stdlib_Array[7], h[2]);
-      /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_] /*<<ephemeron.ml:128:17>>*/ ;
+      _an_ =  /*<<ephemeron.ml:128:33>>*/ caml_call1(Stdlib_Array[7], h[2]);
+      /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_];
      /*<<ephemeron.ml:128:52>>*/ }
     function key_index(h, hkey){
       /*<<ephemeron.ml:131:6>>*/ return hkey & (h[2].length - 2 | 0);
@@ -38996,18 +32028,14 @@
      function do_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:134:26>>*/ for(;;){
-       if(! param$0)
-         /*<<ephemeron.ml:136:12>>*/ return 0 /*<<ephemeron.ml:136:12>>*/ ;
+       if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
        var hkey = param$0[1], rest = param$0[3], c = param$0[2];
-        /*<<ephemeron.ml:137:36>>*/ if
-        ( /*<<ephemeron.ml:137:36>>*/ caml_call1
-           /*<<ephemeron.ml:137:36>>*/ (H[6], c)){
+        /*<<ephemeron.ml:137:36>>*/ if(caml_call1(H[6], c)){
         var rest$0 = param$0[3], c$0 = param$0[2];
          /*<<ephemeron.ml:141:12>>*/ return [0,
                 hkey,
                 c$0,
-                 /*<<ephemeron.ml:141:26>>*/ do_bucket
-                  /*<<ephemeron.ml:141:26>>*/ (rest$0)] /*<<ephemeron.ml:141:12>>*/ ;
+                 /*<<ephemeron.ml:141:26>>*/ do_bucket(rest$0)] /*<<ephemeron.ml:141:12>>*/ ;
        }
        h[1] = h[1] - 1 | 0;
        param$0 = rest;
@@ -39018,8 +32046,7 @@
       var i = _ai_;
       for(;;){
         /*<<ephemeron.ml:145:8>>*/ d[1 + i] =
-         /*<<ephemeron.ml:145:17>>*/ do_bucket
-          /*<<ephemeron.ml:145:17>>*/ (caml_check_bound(d, i)[1 + i]);
+         /*<<ephemeron.ml:145:17>>*/ do_bucket(caml_check_bound(d, i)[1 + i]);
        var _ak_ =  /*<<ephemeron.ml:145:8>>*/ i + 1 | 0;
        if(_aj_ === i) break;
        i = _ak_;
@@ -39032,29 +32059,21 @@
       odata = h[2],
       osize =  /*<<ephemeron.ml:170:6>>*/ odata.length - 1,
       nsize = osize * 2 | 0;
-      /*<<ephemeron.ml:172:6>>*/  /*<<ephemeron.ml:172:6>>*/ clean
-       /*<<ephemeron.ml:172:6>>*/ (h);
+      /*<<ephemeron.ml:172:6>>*/ clean(h);
      var
       _ac_ = nsize < Stdlib_Sys[13] ? 1 : 0,
       _ad_ = _ac_ ? (osize >>> 1 | 0) <= h[1] ? 1 : 0 : _ac_;
      if(_ad_){
-      var
-       ndata =
-          /*<<ephemeron.ml:174:20>>*/  /*<<ephemeron.ml:174:20>>*/ caml_make_vect
-           /*<<ephemeron.ml:174:20>>*/ (nsize, 0);
+      var ndata =  /*<<ephemeron.ml:174:20>>*/ caml_make_vect(nsize, 0);
       h[2] = ndata;
       var
        insert_bucket =
          function(param){
            /*<<ephemeron.ml:176:32>>*/ if(! param)
-            /*<<ephemeron.ml:177:21>>*/ return /*<<ephemeron.ml:177:21>>*/ ;
+            /*<<ephemeron.ml:177:21>>*/ return;
           var rest = param[3], data = param[2], hkey = param[1];
-           /*<<ephemeron.ml:179:14>>*/  /*<<ephemeron.ml:179:14>>*/ insert_bucket
-            /*<<ephemeron.ml:179:14>>*/ (rest);
-          var
-           nidx =
-              /*<<ephemeron.ml:180:25>>*/  /*<<ephemeron.ml:180:25>>*/ key_index
-               /*<<ephemeron.ml:180:25>>*/ (h, hkey);
+           /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
+          var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
            /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
            [0, hkey, data, caml_check_bound(ndata, nidx)[1 + nidx]];
           /*<<ephemeron.ml:181:60>>*/ },
@@ -39063,9 +32082,9 @@
       if(_af_ >= 0){
        var i = _ae_;
        for(;;){
-         /*<<ephemeron.ml:183:10>>*/  /*<<ephemeron.ml:183:10>>*/ insert_bucket
-          /*<<ephemeron.ml:183:10>>*/ (caml_check_bound(odata, i)[1 + i]);
-        var _ah_ =  /*<<ephemeron.ml:183:10>>*/ i + 1 | 0;
+         /*<<ephemeron.ml:183:10>>*/ insert_bucket
+         (caml_check_bound(odata, i)[1 + i]);
+        var _ah_ = i + 1 | 0;
         if(_af_ === i) break;
         i = _ah_;
        }
@@ -39078,15 +32097,9 @@
      /*<<ephemeron.ml:185:9>>*/ }
     function add(h, key, info){
      var
-      hkey =
-         /*<<ephemeron.ml:188:17>>*/  /*<<ephemeron.ml:188:17>>*/ caml_call2
-          /*<<ephemeron.ml:188:17>>*/ (H[2], h[3], key),
-      i =
-         /*<<ephemeron.ml:189:14>>*/  /*<<ephemeron.ml:189:14>>*/ key_index
-          /*<<ephemeron.ml:189:14>>*/ (h, hkey),
-      container =
-         /*<<ephemeron.ml:190:22>>*/  /*<<ephemeron.ml:190:22>>*/ caml_call2
-          /*<<ephemeron.ml:190:22>>*/ (H[1], key, info),
+      hkey =  /*<<ephemeron.ml:188:17>>*/ caml_call2(H[2], h[3], key),
+      i =  /*<<ephemeron.ml:189:14>>*/ key_index(h, hkey),
+      container =  /*<<ephemeron.ml:190:22>>*/ caml_call2(H[1], key, info),
       bucket =
          /*<<ephemeron.ml:191:19>>*/ [0,
          hkey,
@@ -39095,83 +32108,57 @@
       /*<<ephemeron.ml:192:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      h[1] = h[1] + 1 | 0;
      var _ab_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-     return _ab_
-             ?  /*<<ephemeron.ml:194:49>>*/ resize
-                /*<<ephemeron.ml:194:49>>*/ (h)
-             : _ab_ /*<<ephemeron.ml:194:57>>*/ ;
-     /*<<ephemeron.ml:194:57>>*/ }
+     return _ab_ ?  /*<<ephemeron.ml:194:49>>*/ resize(h) : _ab_ /*<<ephemeron.ml:194:57>>*/ ;
+    }
     function remove(h, key){
-     var
-      hkey =
-         /*<<ephemeron.ml:197:17>>*/  /*<<ephemeron.ml:197:17>>*/ caml_call2
-          /*<<ephemeron.ml:197:17>>*/ (H[2], h[3], key);
+     var hkey =  /*<<ephemeron.ml:197:17>>*/ caml_call2(H[2], h[3], key);
      function remove_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:198:30>>*/ for(;;){
-       if(! param$0)
-         /*<<ephemeron.ml:199:19>>*/ return 0 /*<<ephemeron.ml:199:19>>*/ ;
+       if(! param$0)  /*<<ephemeron.ml:199:19>>*/ return 0;
        var hk = param$0[1], next = param$0[3], c = param$0[2];
        if(hkey !== hk){
         var next$0 = param$0[3], c$0 = param$0[2];
          /*<<ephemeron.ml:210:29>>*/ return [0,
                 hk,
                 c$0,
-                 /*<<ephemeron.ml:210:41>>*/ remove_bucket
-                  /*<<ephemeron.ml:210:41>>*/ (next$0)] /*<<ephemeron.ml:210:29>>*/ ;
+                 /*<<ephemeron.ml:210:41>>*/ remove_bucket(next$0)] /*<<ephemeron.ml:210:29>>*/ ;
        }
-       switch
-        ( /*<<ephemeron.ml:201:24>>*/ caml_call2
-           /*<<ephemeron.ml:201:24>>*/ (H[3], c, key)){
+       switch( /*<<ephemeron.ml:201:24>>*/ caml_call2(H[3], c, key)){
          case 0:
-          h[1] = h[1] - 1 | 0;
-           /*<<ephemeron.ml:202:45>>*/ return next /*<<ephemeron.ml:202:45>>*/ ;
+          h[1] = h[1] - 1 | 0;  /*<<ephemeron.ml:202:45>>*/ return next;
          case 1:
            /*<<ephemeron.ml:203:24>>*/ return [0,
                   hk,
                   c,
-                   /*<<ephemeron.ml:203:36>>*/ remove_bucket
-                    /*<<ephemeron.ml:203:36>>*/ (next)] /*<<ephemeron.ml:203:24>>*/ ;
+                   /*<<ephemeron.ml:203:36>>*/ remove_bucket(next)] /*<<ephemeron.ml:203:24>>*/ ;
          default: h[1] = h[1] - 1 | 0; param$0 = next;
        }
       }
       /*<<ephemeron.ml:210:60>>*/ }
      var
-      i =
-         /*<<ephemeron.ml:211:14>>*/  /*<<ephemeron.ml:211:14>>*/ key_index
-          /*<<ephemeron.ml:211:14>>*/ (h, hkey),
+      i =  /*<<ephemeron.ml:211:14>>*/ key_index(h, hkey),
       _aa_ =
-         /*<<ephemeron.ml:212:20>>*/  /*<<ephemeron.ml:212:20>>*/ remove_bucket
-          /*<<ephemeron.ml:212:20>>*/ (caml_check_bound(h[2], i)[1 + i]);
+         /*<<ephemeron.ml:212:20>>*/ remove_bucket
+         (caml_check_bound(h[2], i)[1 + i]);
       /*<<ephemeron.ml:212:6>>*/ caml_check_bound(h[2], i)[1 + i] = _aa_;
-      /*<<ephemeron.ml:212:6>>*/ return 0 /*<<ephemeron.ml:212:6>>*/ ;
+     return 0;
      /*<<ephemeron.ml:212:44>>*/ }
     function find(h, key){
      var
-      hkey =
-         /*<<ephemeron.ml:239:17>>*/  /*<<ephemeron.ml:239:17>>*/ caml_call2
-          /*<<ephemeron.ml:239:17>>*/ (H[2], h[3], key),
-      _$_ =
-         /*<<ephemeron.ml:241:33>>*/  /*<<ephemeron.ml:241:33>>*/ key_index
-          /*<<ephemeron.ml:241:33>>*/ (h, hkey),
+      hkey =  /*<<ephemeron.ml:239:17>>*/ caml_call2(H[2], h[3], key),
+      _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _$_)[1 + _$_];
       /*<<ephemeron.ml:218:21>>*/ for(;;){
       if(! param)
-        /*<<ephemeron.ml:220:10>>*/ throw  /*<<ephemeron.ml:220:10>>*/ caml_maybe_attach_backtrace
-               /*<<ephemeron.ml:220:10>>*/ (Stdlib[8], 1);
+        /*<<ephemeron.ml:220:10>>*/ throw caml_maybe_attach_backtrace
+              (Stdlib[8], 1);
       var hk = param[1], rest = param[3], c = param[2];
       if(hkey === hk)
-       switch
-        ( /*<<ephemeron.ml:222:22>>*/ caml_call2
-           /*<<ephemeron.ml:222:22>>*/ (H[3], c, key)){
+       switch( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
          case 0:
-          var
-           match =
-              /*<<ephemeron.ml:224:26>>*/  /*<<ephemeron.ml:224:26>>*/ caml_call1
-               /*<<ephemeron.ml:224:26>>*/ (H[4], c);
-          if(match){
-           var d = match[1];
-            /*<<ephemeron.ml:229:26>>*/ return d /*<<ephemeron.ml:229:26>>*/ ;
-          }
+          var match =  /*<<ephemeron.ml:224:26>>*/ caml_call1(H[4], c);
+          if(match){var d = match[1];  /*<<ephemeron.ml:229:26>>*/ return d;}
           param = rest;
           break;
          case 1:
@@ -39183,28 +32170,17 @@
      /*<<ephemeron.ml:241:51>>*/ }
     function find_opt(h, key){
      var
-      hkey =
-         /*<<ephemeron.ml:264:17>>*/  /*<<ephemeron.ml:264:17>>*/ caml_call2
-          /*<<ephemeron.ml:264:17>>*/ (H[2], h[3], key),
-      ___ =
-         /*<<ephemeron.ml:266:37>>*/  /*<<ephemeron.ml:266:37>>*/ key_index
-          /*<<ephemeron.ml:266:37>>*/ (h, hkey),
+      hkey =  /*<<ephemeron.ml:264:17>>*/ caml_call2(H[2], h[3], key),
+      ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], ___)[1 + ___];
       /*<<ephemeron.ml:243:25>>*/ for(;;){
-      if(! param)
-        /*<<ephemeron.ml:245:10>>*/ return 0 /*<<ephemeron.ml:245:10>>*/ ;
+      if(! param)  /*<<ephemeron.ml:245:10>>*/ return 0;
       var hk = param[1], rest = param[3], c = param[2];
       if(hkey === hk)
-       switch
-        ( /*<<ephemeron.ml:247:22>>*/ caml_call2
-           /*<<ephemeron.ml:247:22>>*/ (H[3], c, key)){
+       switch( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
          case 0:
-          var
-           d =
-              /*<<ephemeron.ml:249:26>>*/  /*<<ephemeron.ml:249:26>>*/ caml_call1
-               /*<<ephemeron.ml:249:26>>*/ (H[4], c);
-          if(d)
-            /*<<ephemeron.ml:254:31>>*/ return d /*<<ephemeron.ml:254:31>>*/ ;
+          var d =  /*<<ephemeron.ml:249:26>>*/ caml_call1(H[4], c);
+          if(d)  /*<<ephemeron.ml:254:31>>*/ return d;
           param = rest;
           break;
          case 1:
@@ -39215,31 +32191,21 @@
      }
      /*<<ephemeron.ml:266:55>>*/ }
     function find_all(h, key){
-     var
-      hkey =
-         /*<<ephemeron.ml:269:17>>*/  /*<<ephemeron.ml:269:17>>*/ caml_call2
-          /*<<ephemeron.ml:269:17>>*/ (H[2], h[3], key);
+     var hkey =  /*<<ephemeron.ml:269:17>>*/ caml_call2(H[2], h[3], key);
      function find_in_bucket(param){
       var param$0 = param;
        /*<<ephemeron.ml:270:31>>*/ for(;;){
-       if(! param$0)
-         /*<<ephemeron.ml:271:17>>*/ return 0 /*<<ephemeron.ml:271:17>>*/ ;
+       if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
        var hk = param$0[1], rest = param$0[3], c = param$0[2];
        if(hkey === hk)
-        switch
-         ( /*<<ephemeron.ml:273:22>>*/ caml_call2
-            /*<<ephemeron.ml:273:22>>*/ (H[3], c, key)){
+        switch( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
           case 0:
-           var
-            match =
-               /*<<ephemeron.ml:274:33>>*/  /*<<ephemeron.ml:274:33>>*/ caml_call1
-                /*<<ephemeron.ml:274:33>>*/ (H[4], c);
+           var match =  /*<<ephemeron.ml:274:33>>*/ caml_call1(H[4], c);
            if(match){
             var d = match[1];
              /*<<ephemeron.ml:277:26>>*/ return [0,
                     d,
-                     /*<<ephemeron.ml:277:29>>*/ find_in_bucket
-                      /*<<ephemeron.ml:277:29>>*/ (rest)] /*<<ephemeron.ml:277:26>>*/ ;
+                     /*<<ephemeron.ml:277:29>>*/ find_in_bucket(rest)] /*<<ephemeron.ml:277:26>>*/ ;
            }
            param$0 = rest;
            break;
@@ -39250,40 +32216,26 @@
        else{var rest$0 = param$0[3]; param$0 = rest$0;}
       }
       /*<<ephemeron.ml:284:29>>*/ }
-     var
-      _Z_ =
-         /*<<ephemeron.ml:285:29>>*/  /*<<ephemeron.ml:285:29>>*/ key_index
-          /*<<ephemeron.ml:285:29>>*/ (h, hkey);
-      /*<<ephemeron.ml:285:21>>*/ return  /*<<ephemeron.ml:285:21>>*/ find_in_bucket
-              /*<<ephemeron.ml:285:21>>*/ (caml_check_bound(h[2], _Z_)
-               [1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
-     /*<<ephemeron.ml:285:46>>*/ }
+     var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
+      /*<<ephemeron.ml:285:21>>*/ return find_in_bucket
+             (caml_check_bound(h[2], _Z_)[1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
+    }
     function replace(h, key, info){
      var
-      hkey =
-         /*<<ephemeron.ml:289:17>>*/  /*<<ephemeron.ml:289:17>>*/ caml_call2
-          /*<<ephemeron.ml:289:17>>*/ (H[2], h[3], key),
-      i =
-         /*<<ephemeron.ml:299:14>>*/  /*<<ephemeron.ml:299:14>>*/ key_index
-          /*<<ephemeron.ml:299:14>>*/ (h, hkey),
+      hkey =  /*<<ephemeron.ml:289:17>>*/ caml_call2(H[2], h[3], key),
+      i =  /*<<ephemeron.ml:299:14>>*/ key_index(h, hkey),
       l =  /*<<ephemeron.ml:300:14>>*/ caml_check_bound(h[2], i)[1 + i];
       /*<<ephemeron.ml:301:6>>*/ try{
       var param = l;
        /*<<ephemeron.ml:290:31>>*/ for(;;){
        if(! param)
-         /*<<ephemeron.ml:291:19>>*/ throw  /*<<ephemeron.ml:291:19>>*/ caml_maybe_attach_backtrace
-                /*<<ephemeron.ml:291:19>>*/ (Stdlib[8], 1);
+         /*<<ephemeron.ml:291:19>>*/ throw caml_maybe_attach_backtrace
+               (Stdlib[8], 1);
        var hk = param[1], next = param[3], c = param[2];
        if(hkey === hk){
-        if
-         (!
-           /*<<ephemeron.ml:293:24>>*/ caml_call2
-            /*<<ephemeron.ml:293:24>>*/ (H[3], c, key)){
-         var
-          _V_ =
-             /*<<ephemeron.ml:290:6>>*/  /*<<ephemeron.ml:290:6>>*/ caml_call3
-              /*<<ephemeron.ml:290:6>>*/ (H[5], c, key, info);
-          /*<<ephemeron.ml:302:8>>*/ return _V_ /*<<ephemeron.ml:302:8>>*/ ;
+        if(!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
+         var _V_ =  /*<<ephemeron.ml:290:6>>*/ caml_call3(H[5], c, key, info);
+          /*<<ephemeron.ml:302:8>>*/ return _V_;
         }
         param = next;
        }
@@ -39294,37 +32246,24 @@
       var _W_ = caml_wrap_exception(_Y_);
       if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
       var
-       container =
-          /*<<ephemeron.ml:304:24>>*/  /*<<ephemeron.ml:304:24>>*/ caml_call2
-           /*<<ephemeron.ml:304:24>>*/ (H[1], key, info);
+       container =  /*<<ephemeron.ml:304:24>>*/ caml_call2(H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
       h[1] = h[1] + 1 | 0;
       var _X_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
-      return _X_
-              ?  /*<<ephemeron.ml:307:51>>*/ resize
-                 /*<<ephemeron.ml:307:51>>*/ (h)
-              : _X_ /*<<ephemeron.ml:307:59>>*/ ;
+      return _X_ ?  /*<<ephemeron.ml:307:51>>*/ resize(h) : _X_ /*<<ephemeron.ml:307:59>>*/ ;
      }
-     /*<<ephemeron.ml:307:59>>*/ }
+    }
     function mem(h, key){
      var
-      hkey =
-         /*<<ephemeron.ml:310:17>>*/  /*<<ephemeron.ml:310:17>>*/ caml_call2
-          /*<<ephemeron.ml:310:17>>*/ (H[2], h[3], key),
-      _U_ =
-         /*<<ephemeron.ml:320:28>>*/  /*<<ephemeron.ml:320:28>>*/ key_index
-          /*<<ephemeron.ml:320:28>>*/ (h, hkey),
+      hkey =  /*<<ephemeron.ml:310:17>>*/ caml_call2(H[2], h[3], key),
+      _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
       param = caml_check_bound(h[2], _U_)[1 + _U_];
       /*<<ephemeron.ml:311:30>>*/ for(;;){
-      if(! param)
-        /*<<ephemeron.ml:313:10>>*/ return 0 /*<<ephemeron.ml:313:10>>*/ ;
+      if(! param)  /*<<ephemeron.ml:313:10>>*/ return 0;
       var hk = param[1], rest = param[3], c = param[2];
       if(hk === hkey){
-       if
-        (!
-          /*<<ephemeron.ml:315:22>>*/ caml_call2
-           /*<<ephemeron.ml:315:22>>*/ (H[3], c, key))
-         /*<<ephemeron.ml:316:21>>*/ return 1 /*<<ephemeron.ml:316:21>>*/ ;
+       if(!  /*<<ephemeron.ml:315:22>>*/ caml_call2(H[3], c, key))
+         /*<<ephemeron.ml:316:21>>*/ return 1;
        param = rest;
       }
       else{var rest$0 = param[3]; param = rest$0;}
@@ -39336,8 +32275,7 @@
     function bucket_length(accu, param){
      var accu$0 = accu, param$0 = param;
       /*<<ephemeron.ml:324:26>>*/ for(;;){
-      if(! param$0)
-        /*<<ephemeron.ml:325:17>>*/ return accu$0 /*<<ephemeron.ml:325:17>>*/ ;
+      if(! param$0)  /*<<ephemeron.ml:325:17>>*/ return accu$0;
       var
        rest = param$0[3],
        accu$1 =  /*<<ephemeron.ml:326:28>>*/ accu$0 + 1 | 0;
@@ -39348,44 +32286,32 @@
     function stats(h){
      var
       mbl =
-         /*<<ephemeron.ml:330:8>>*/  /*<<ephemeron.ml:330:8>>*/ caml_call3
-          /*<<ephemeron.ml:330:8>>*/ (Stdlib_Array[18],
+         /*<<ephemeron.ml:330:8>>*/ caml_call3
+         (Stdlib_Array[18],
           function(m, b){
-           var
-            _T_ =
-               /*<<ephemeron.ml:330:46>>*/  /*<<ephemeron.ml:330:46>>*/ bucket_length
-                /*<<ephemeron.ml:330:46>>*/ (0, b);
-            /*<<ephemeron.ml:330:46>>*/ return  /*<<ephemeron.ml:330:46>>*/ caml_call2
-                    /*<<ephemeron.ml:330:46>>*/ (Stdlib_Int[11], m, _T_) /*<<ephemeron.ml:330:65>>*/ ;
-           /*<<ephemeron.ml:330:65>>*/ },
+           var _T_ =  /*<<ephemeron.ml:330:46>>*/ bucket_length(0, b);
+           return caml_call2(Stdlib_Int[11], m, _T_) /*<<ephemeron.ml:330:65>>*/ ;
+          },
           0,
           h[2]),
-      histo =
-         /*<<ephemeron.ml:331:18>>*/  /*<<ephemeron.ml:331:18>>*/ caml_make_vect
-          /*<<ephemeron.ml:331:18>>*/ (mbl + 1 | 0, 0);
-      /*<<ephemeron.ml:332:6>>*/  /*<<ephemeron.ml:332:6>>*/ caml_call2
-       /*<<ephemeron.ml:332:6>>*/ (Stdlib_Array[12],
+      histo =  /*<<ephemeron.ml:331:18>>*/ caml_make_vect(mbl + 1 | 0, 0);
+      /*<<ephemeron.ml:332:6>>*/ caml_call2
+      (Stdlib_Array[12],
        function(b){
-        var
-         l =
-            /*<<ephemeron.ml:334:19>>*/  /*<<ephemeron.ml:334:19>>*/ bucket_length
-             /*<<ephemeron.ml:334:19>>*/ (0, b);
+        var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
-         /*<<ephemeron.ml:335:11>>*/ return 0 /*<<ephemeron.ml:335:11>>*/ ;
+        return 0;
         /*<<ephemeron.ml:335:37>>*/ },
        h[2]);
-      /*<<ephemeron.ml:337:6>>*/ return [0, h[1], h[2].length - 1, mbl, histo] /*<<ephemeron.ml:337:6>>*/ ;
+      /*<<ephemeron.ml:337:6>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
      /*<<ephemeron.ml:340:34>>*/ }
     function bucket_length_alive(accu, param){
      var accu$0 = accu, param$0 = param;
       /*<<ephemeron.ml:342:32>>*/ for(;;){
-      if(! param$0)
-        /*<<ephemeron.ml:343:17>>*/ return accu$0 /*<<ephemeron.ml:343:17>>*/ ;
+      if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
       var rest = param$0[3], c = param$0[2];
-       /*<<ephemeron.ml:344:30>>*/ if
-       ( /*<<ephemeron.ml:344:30>>*/ caml_call1
-          /*<<ephemeron.ml:344:30>>*/ (H[6], c)){
+       /*<<ephemeron.ml:344:30>>*/ if(caml_call1(H[6], c)){
        var accu$1 = accu$0 + 1 | 0;
        accu$0 = accu$1;
        param$0 = rest;
@@ -39397,68 +32323,53 @@
      var
       size =  /*<<ephemeron.ml:349:17>>*/ [0, 0],
       mbl =
-         /*<<ephemeron.ml:351:8>>*/  /*<<ephemeron.ml:351:8>>*/ caml_call3
-          /*<<ephemeron.ml:351:8>>*/ (Stdlib_Array[18],
+         /*<<ephemeron.ml:351:8>>*/ caml_call3
+         (Stdlib_Array[18],
           function(m, b){
-           var
-            _S_ =
-               /*<<ephemeron.ml:352:32>>*/  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive
-                /*<<ephemeron.ml:352:32>>*/ (0, b);
-            /*<<ephemeron.ml:352:32>>*/ return  /*<<ephemeron.ml:352:32>>*/ caml_call2
-                    /*<<ephemeron.ml:352:32>>*/ (Stdlib_Int[11], m, _S_) /*<<ephemeron.ml:352:57>>*/ ;
-           /*<<ephemeron.ml:352:57>>*/ },
+           var _S_ =  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive(0, b);
+           return caml_call2(Stdlib_Int[11], m, _S_) /*<<ephemeron.ml:352:57>>*/ ;
+          },
           0,
           h[2]),
-      histo =
-         /*<<ephemeron.ml:354:18>>*/  /*<<ephemeron.ml:354:18>>*/ caml_make_vect
-          /*<<ephemeron.ml:354:18>>*/ (mbl + 1 | 0, 0);
-      /*<<ephemeron.ml:355:6>>*/  /*<<ephemeron.ml:355:6>>*/ caml_call2
-       /*<<ephemeron.ml:355:6>>*/ (Stdlib_Array[12],
+      histo =  /*<<ephemeron.ml:354:18>>*/ caml_make_vect(mbl + 1 | 0, 0);
+      /*<<ephemeron.ml:355:6>>*/ caml_call2
+      (Stdlib_Array[12],
        function(b){
-        var
-         l =
-            /*<<ephemeron.ml:357:19>>*/  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive
-             /*<<ephemeron.ml:357:19>>*/ (0, b);
+        var l =  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive(0, b);
         size[1] = size[1] + l | 0;
          /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
          caml_check_bound(histo, l)[1 + l] + 1 | 0;
-         /*<<ephemeron.ml:359:11>>*/ return 0 /*<<ephemeron.ml:359:11>>*/ ;
+        return 0;
         /*<<ephemeron.ml:359:37>>*/ },
        h[2]);
       /*<<ephemeron.ml:361:6>>*/ return [0,
              size[1],
              h[2].length - 1,
              mbl,
-             histo] /*<<ephemeron.ml:361:6>>*/ ;
+             histo];
      /*<<ephemeron.ml:364:34>>*/ }
     function add_seq(tbl, i){
-      /*<<ephemeron.ml:367:6>>*/ return  /*<<ephemeron.ml:367:6>>*/ caml_call2
-              /*<<ephemeron.ml:367:6>>*/ (Stdlib_Seq[4],
+      /*<<ephemeron.ml:367:6>>*/ return caml_call2
+             (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<ephemeron.ml:367:29>>*/ return  /*<<ephemeron.ml:367:29>>*/ add
-                        /*<<ephemeron.ml:367:29>>*/ (tbl, k, v) /*<<ephemeron.ml:367:41>>*/ ;
-               /*<<ephemeron.ml:367:41>>*/ },
+                /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v) /*<<ephemeron.ml:367:41>>*/ ;
+              },
               i) /*<<ephemeron.ml:367:43>>*/ ;
-     /*<<ephemeron.ml:367:43>>*/ }
+    }
     function replace_seq(tbl, i){
-      /*<<ephemeron.ml:370:6>>*/ return  /*<<ephemeron.ml:370:6>>*/ caml_call2
-              /*<<ephemeron.ml:370:6>>*/ (Stdlib_Seq[4],
+      /*<<ephemeron.ml:370:6>>*/ return caml_call2
+             (Stdlib_Seq[4],
               function(param){
                var v = param[2], k = param[1];
-                /*<<ephemeron.ml:370:29>>*/ return  /*<<ephemeron.ml:370:29>>*/ replace
-                        /*<<ephemeron.ml:370:29>>*/ (tbl, k, v) /*<<ephemeron.ml:370:45>>*/ ;
-               /*<<ephemeron.ml:370:45>>*/ },
+                /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v) /*<<ephemeron.ml:370:45>>*/ ;
+              },
               i) /*<<ephemeron.ml:370:47>>*/ ;
-     /*<<ephemeron.ml:370:47>>*/ }
+    }
     function of_seq(i){
-     var
-      tbl =
-         /*<<ephemeron.ml:373:16>>*/  /*<<ephemeron.ml:373:16>>*/ create
-          /*<<ephemeron.ml:373:16>>*/ (0, 16);
-      /*<<ephemeron.ml:374:6>>*/  /*<<ephemeron.ml:374:6>>*/ replace_seq
-       /*<<ephemeron.ml:374:6>>*/ (tbl, i);
-      /*<<ephemeron.ml:374:6>>*/ return tbl /*<<ephemeron.ml:374:6>>*/ ;
+     var tbl =  /*<<ephemeron.ml:373:16>>*/ create(0, 16);
+      /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
+     return tbl;
      /*<<ephemeron.ml:375:9>>*/ }
      /*<<ephemeron.ml:82:4>>*/ return [0,
             create,
@@ -39478,111 +32389,74 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive] /*<<ephemeron.ml:82:4>>*/ ;
+            stats_alive];
    }
    function create(param){
-     /*<<ephemeron.ml:394:30>>*/ return  /*<<ephemeron.ml:394:30>>*/ caml_call1
-             /*<<ephemeron.ml:394:30>>*/ (Stdlib_Obj[23][1], 1) /*<<ephemeron.ml:394:45>>*/ ;
-    /*<<ephemeron.ml:394:45>>*/ }
+     /*<<ephemeron.ml:394:30>>*/ return caml_call1(Stdlib_Obj[23][1], 1) /*<<ephemeron.ml:394:45>>*/ ;
+   }
    function get_key(t){
-    var
-     x =
-        /*<<ephemeron.ml:396:50>>*/  /*<<ephemeron.ml:396:50>>*/ caml_call2
-         /*<<ephemeron.ml:396:50>>*/ (Stdlib_Obj[23][3], t, 0);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:396:50>>*/ caml_call2(Stdlib_Obj[23][3], t, 0);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:396:70>>*/ }
    function set_key(t, k){
-     /*<<ephemeron.ml:397:44>>*/ return  /*<<ephemeron.ml:397:44>>*/ caml_call3
-             /*<<ephemeron.ml:397:44>>*/ (Stdlib_Obj[23][5], t, 0, k) /*<<ephemeron.ml:397:75>>*/ ;
-    /*<<ephemeron.ml:397:75>>*/ }
+     /*<<ephemeron.ml:397:44>>*/ return caml_call3(Stdlib_Obj[23][5], t, 0, k) /*<<ephemeron.ml:397:75>>*/ ;
+   }
    function check_key(t){
-     /*<<ephemeron.ml:398:39>>*/ return  /*<<ephemeron.ml:398:39>>*/ caml_call2
-             /*<<ephemeron.ml:398:39>>*/ (Stdlib_Obj[23][7], t, 0) /*<<ephemeron.ml:398:59>>*/ ;
-    /*<<ephemeron.ml:398:59>>*/ }
+     /*<<ephemeron.ml:398:39>>*/ return caml_call2(Stdlib_Obj[23][7], t, 0) /*<<ephemeron.ml:398:59>>*/ ;
+   }
    function get_data(t){
-    var
-     x =
-        /*<<ephemeron.ml:400:51>>*/  /*<<ephemeron.ml:400:51>>*/ caml_call1
-         /*<<ephemeron.ml:400:51>>*/ (Stdlib_Obj[23][9], t);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:400:51>>*/ caml_call1(Stdlib_Obj[23][9], t);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:400:70>>*/ }
    function set_data(t, d){
-     /*<<ephemeron.ml:401:45>>*/ return  /*<<ephemeron.ml:401:45>>*/ caml_call2
-             /*<<ephemeron.ml:401:45>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:401:75>>*/ ;
-    /*<<ephemeron.ml:401:75>>*/ }
+     /*<<ephemeron.ml:401:45>>*/ return caml_call2(Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:401:75>>*/ ;
+   }
    function make(key, data){
-    var
-     eph =
-        /*<<ephemeron.ml:405:14>>*/  /*<<ephemeron.ml:405:14>>*/ create
-         /*<<ephemeron.ml:405:14>>*/ (0);
-     /*<<ephemeron.ml:406:4>>*/  /*<<ephemeron.ml:406:4>>*/ set_data
-      /*<<ephemeron.ml:406:4>>*/ (eph, data);
-     /*<<ephemeron.ml:407:4>>*/  /*<<ephemeron.ml:407:4>>*/ set_key
-      /*<<ephemeron.ml:407:4>>*/ (eph, key);
-     /*<<ephemeron.ml:407:4>>*/ return eph /*<<ephemeron.ml:407:4>>*/ ;
+    var eph =  /*<<ephemeron.ml:405:14>>*/ create(0);
+     /*<<ephemeron.ml:406:4>>*/ set_data(eph, data);
+     /*<<ephemeron.ml:407:4>>*/ set_key(eph, key);
+    return eph;
     /*<<ephemeron.ml:408:7>>*/ }
    function query(eph, key){
-    var
-     match =
-        /*<<ephemeron.ml:411:10>>*/  /*<<ephemeron.ml:411:10>>*/ get_key
-         /*<<ephemeron.ml:411:10>>*/ (eph);
-    if(! match)
-      /*<<ephemeron.ml:412:14>>*/ return 0 /*<<ephemeron.ml:412:14>>*/ ;
+    var match =  /*<<ephemeron.ml:411:10>>*/ get_key(eph);
+    if(! match)  /*<<ephemeron.ml:412:14>>*/ return 0;
     var k = match[1];
-    return k === key
-            ?  /*<<ephemeron.ml:413:30>>*/ get_data
-               /*<<ephemeron.ml:413:30>>*/ (eph)
-            : 0 /*<<ephemeron.ml:414:20>>*/ ;
-    /*<<ephemeron.ml:414:20>>*/ }
+    return k === key ?  /*<<ephemeron.ml:413:30>>*/ get_data(eph) : 0 /*<<ephemeron.ml:414:20>>*/ ;
+   }
    function MakeSeeded$0(H){
     function create$0(k, d){
-     var
-      c =
-         /*<<ephemeron.ml:421:16>>*/  /*<<ephemeron.ml:421:16>>*/ create
-          /*<<ephemeron.ml:421:16>>*/ (0);
-      /*<<ephemeron.ml:422:8>>*/  /*<<ephemeron.ml:422:8>>*/ set_data
-       /*<<ephemeron.ml:422:8>>*/ (c, d);
-      /*<<ephemeron.ml:423:8>>*/  /*<<ephemeron.ml:423:8>>*/ set_key
-       /*<<ephemeron.ml:423:8>>*/ (c, k);
-      /*<<ephemeron.ml:423:8>>*/ return c /*<<ephemeron.ml:423:8>>*/ ;
+     var c =  /*<<ephemeron.ml:421:16>>*/ create(0);
+      /*<<ephemeron.ml:422:8>>*/ set_data(c, d);
+      /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
+     return c;
      /*<<ephemeron.ml:424:9>>*/ }
     var seeded_hash = H[2];
     function equal(c, k){
-     var
-      match =
-         /*<<ephemeron.ml:429:14>>*/  /*<<ephemeron.ml:429:14>>*/ get_key
-          /*<<ephemeron.ml:429:14>>*/ (c);
-     if(! match)
-       /*<<ephemeron.ml:430:18>>*/ return 2 /*<<ephemeron.ml:430:18>>*/ ;
+     var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
+     if(! match)  /*<<ephemeron.ml:430:18>>*/ return 2;
      var k$0 = match[1];
-      /*<<ephemeron.ml:432:15>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
-               /*<<ephemeron.ml:432:15>>*/ (H[1], k, k$0)
-             ? 0
-             : 1 /*<<ephemeron.ml:432:76>>*/ ;
-     /*<<ephemeron.ml:432:76>>*/ }
+      /*<<ephemeron.ml:432:15>>*/ return caml_call2(H[1], k, k$0) ? 0 : 1 /*<<ephemeron.ml:432:76>>*/ ;
+    }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:435:8>>*/  /*<<ephemeron.ml:402:40>>*/ caml_call1
-       /*<<ephemeron.ml:402:40>>*/ (Stdlib_Obj[23][12], c);
-      /*<<ephemeron.ml:436:8>>*/  /*<<ephemeron.ml:436:8>>*/ set_key
-       /*<<ephemeron.ml:436:8>>*/ (c, k);
-      /*<<ephemeron.ml:436:8>>*/ return  /*<<ephemeron.ml:436:8>>*/ set_data
-              /*<<ephemeron.ml:436:8>>*/ (c, d) /*<<ephemeron.ml:437:20>>*/ ;
-     /*<<ephemeron.ml:437:20>>*/ }
-     /*<<ephemeron.ml:417:28>>*/ return  /*<<ephemeron.ml:417:28>>*/ MakeSeeded
-             /*<<ephemeron.ml:417:28>>*/ ([0,
+      (Stdlib_Obj[23][12], c);
+      /*<<ephemeron.ml:436:8>>*/ set_key(c, k);
+     return set_data(c, d) /*<<ephemeron.ml:437:20>>*/ ;
+    }
+     /*<<ephemeron.ml:417:28>>*/ return MakeSeeded
+            ([0,
               create$0,
               seeded_hash,
               equal,
               get_data,
               set_key_data,
-              check_key]) /*<<ephemeron.ml:417:28>>*/ ;
+              check_key]);
    }
    function Make(H){
     var equal = H[1];
     function seeded_hash(seed, x){
-      /*<<ephemeron.ml:446:41>>*/ return  /*<<ephemeron.ml:446:41>>*/ caml_call1
-              /*<<ephemeron.ml:446:41>>*/ (H[2], x) /*<<ephemeron.ml:446:49>>*/ ;
-     /*<<ephemeron.ml:446:49>>*/ }
+      /*<<ephemeron.ml:446:41>>*/ return caml_call1(H[2], x) /*<<ephemeron.ml:446:49>>*/ ;
+    }
     var
      include = MakeSeeded$0([0, equal, seeded_hash]),
      _R_ = include[1],
@@ -39603,17 +32477,12 @@
      clean = include[17],
      stats_alive = include[18];
     function create(sz){
-      /*<<ephemeron.ml:448:20>>*/ return  /*<<ephemeron.ml:448:20>>*/ caml_call2
-              /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, sz) /*<<ephemeron.ml:448:43>>*/ ;
-     /*<<ephemeron.ml:448:43>>*/ }
+      /*<<ephemeron.ml:448:20>>*/ return caml_call2(_R_, _a_, sz) /*<<ephemeron.ml:448:43>>*/ ;
+    }
     function of_seq(i){
-     var
-      tbl =
-         /*<<ephemeron.ml:448:20>>*/  /*<<ephemeron.ml:448:20>>*/ caml_call2
-          /*<<ephemeron.ml:448:20>>*/ (_R_, _a_, 16);
-      /*<<ephemeron.ml:451:6>>*/  /*<<ephemeron.ml:451:6>>*/ caml_call2
-       /*<<ephemeron.ml:451:6>>*/ (replace_seq, tbl, i);
-      /*<<ephemeron.ml:451:6>>*/ return tbl /*<<ephemeron.ml:451:6>>*/ ;
+     var tbl =  /*<<ephemeron.ml:448:20>>*/ caml_call2(_R_, _a_, 16);
+      /*<<ephemeron.ml:451:6>>*/ caml_call2(replace_seq, tbl, i);
+     return tbl;
      /*<<ephemeron.ml:452:9>>*/ }
      /*<<ephemeron.ml:442:2>>*/ return [0,
             create,
@@ -39633,43 +32502,31 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive] /*<<ephemeron.ml:442:2>>*/ ;
+            stats_alive];
    }
    function make$0(param){
-     /*<<ephemeron.ml:459:18>>*/ return [0, 0] /*<<ephemeron.ml:459:18>>*/ ;
+     /*<<ephemeron.ml:459:18>>*/ return [0, 0];
     /*<<ephemeron.ml:459:24>>*/ }
    function add(b, k, d){
     var _Q_ = b[1];
-    b[1] =
-     [0,
-       /*<<ephemeron.ml:460:25>>*/ make /*<<ephemeron.ml:460:25>>*/ (k, d),
-      _Q_];
+    b[1] = [0,  /*<<ephemeron.ml:460:25>>*/ make(k, d), _Q_];
     return 0;
     /*<<ephemeron.ml:460:42>>*/ }
    function test_key(k, e){
-    var
-     match =
-        /*<<ephemeron.ml:463:12>>*/  /*<<ephemeron.ml:463:12>>*/ get_key
-         /*<<ephemeron.ml:463:12>>*/ (e);
+    var match =  /*<<ephemeron.ml:463:12>>*/ get_key(e);
     if(match){
      var x = match[1];
-     if(x === k)
-       /*<<ephemeron.ml:464:30>>*/ return 1 /*<<ephemeron.ml:464:30>>*/ ;
+     if(x === k)  /*<<ephemeron.ml:464:30>>*/ return 1;
     }
-     /*<<ephemeron.ml:465:13>>*/ return 0 /*<<ephemeron.ml:465:13>>*/ ;
+     /*<<ephemeron.ml:465:13>>*/ return 0;
     /*<<ephemeron.ml:465:18>>*/ }
    function remove(b, k){
     var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:469:8>>*/ for(;;){
-     if(! l)
-       /*<<ephemeron.ml:470:16>>*/ return 0 /*<<ephemeron.ml:470:16>>*/ ;
+     if(! l)  /*<<ephemeron.ml:470:16>>*/ return 0;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:471:22>>*/ if
-      ( /*<<ephemeron.ml:471:22>>*/ test_key
-         /*<<ephemeron.ml:471:22>>*/ (k, h)){
-      b[1] =
-        /*<<ephemeron.ml:471:43>>*/ caml_call2
-         /*<<ephemeron.ml:471:43>>*/ (Stdlib_List[13], acc, t);
+      /*<<ephemeron.ml:471:22>>*/ if(test_key(k, h)){
+      b[1] =  /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
      var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:472:27>>*/ [0, h, acc];
@@ -39680,189 +32537,130 @@
    function find(b, k){
     var
      match =
-        /*<<ephemeron.ml:477:12>>*/  /*<<ephemeron.ml:477:12>>*/ caml_call2
-         /*<<ephemeron.ml:477:12>>*/ (Stdlib_List[40],
+        /*<<ephemeron.ml:477:12>>*/ caml_call2
+        (Stdlib_List[40],
          function(_P_){ /*<<?>>*/ return test_key(k, _P_);},
          b[1]);
-    if(! match)
-      /*<<ephemeron.ml:479:16>>*/ return 0 /*<<ephemeron.ml:479:16>>*/ ;
+    if(! match)  /*<<ephemeron.ml:479:16>>*/ return 0;
     var e = match[1];
-     /*<<ephemeron.ml:478:18>>*/ return  /*<<ephemeron.ml:478:18>>*/ get_data
-             /*<<ephemeron.ml:478:18>>*/ (e) /*<<ephemeron.ml:479:20>>*/ ;
-    /*<<ephemeron.ml:479:20>>*/ }
+     /*<<ephemeron.ml:478:18>>*/ return get_data(e) /*<<ephemeron.ml:479:20>>*/ ;
+   }
    function length(b){
      /*<<ephemeron.ml:481:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:481:33>>*/ ;
-    /*<<ephemeron.ml:481:33>>*/ }
+   }
    function clear(b){
      /*<<ephemeron.ml:482:18>>*/ b[1] = 0;
     return 0;
     /*<<ephemeron.ml:482:25>>*/ }
    function create$0(param){
-     /*<<ephemeron.ml:491:35>>*/ return  /*<<ephemeron.ml:491:35>>*/ caml_call1
-             /*<<ephemeron.ml:491:35>>*/ (Stdlib_Obj[23][1], 2) /*<<ephemeron.ml:491:50>>*/ ;
-    /*<<ephemeron.ml:491:50>>*/ }
+     /*<<ephemeron.ml:491:35>>*/ return caml_call1(Stdlib_Obj[23][1], 2) /*<<ephemeron.ml:491:50>>*/ ;
+   }
    function get_key1(t){
-    var
-     x =
-        /*<<ephemeron.ml:493:57>>*/  /*<<ephemeron.ml:493:57>>*/ caml_call2
-         /*<<ephemeron.ml:493:57>>*/ (Stdlib_Obj[23][3], t, 0);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:493:57>>*/ caml_call2(Stdlib_Obj[23][3], t, 0);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:493:77>>*/ }
    function set_key1(t, k){
-     /*<<ephemeron.ml:495:4>>*/ return  /*<<ephemeron.ml:495:4>>*/ caml_call3
-             /*<<ephemeron.ml:495:4>>*/ (Stdlib_Obj[23][5], t, 0, k) /*<<ephemeron.ml:495:35>>*/ ;
-    /*<<ephemeron.ml:495:35>>*/ }
+     /*<<ephemeron.ml:495:4>>*/ return caml_call3(Stdlib_Obj[23][5], t, 0, k) /*<<ephemeron.ml:495:35>>*/ ;
+   }
    function get_key2(t){
-    var
-     x =
-        /*<<ephemeron.ml:498:57>>*/  /*<<ephemeron.ml:498:57>>*/ caml_call2
-         /*<<ephemeron.ml:498:57>>*/ (Stdlib_Obj[23][3], t, 1);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:498:57>>*/ caml_call2(Stdlib_Obj[23][3], t, 1);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:498:77>>*/ }
    function set_key2(t, k){
-     /*<<ephemeron.ml:500:4>>*/ return  /*<<ephemeron.ml:500:4>>*/ caml_call3
-             /*<<ephemeron.ml:500:4>>*/ (Stdlib_Obj[23][5], t, 1, k) /*<<ephemeron.ml:500:35>>*/ ;
-    /*<<ephemeron.ml:500:35>>*/ }
+     /*<<ephemeron.ml:500:4>>*/ return caml_call3(Stdlib_Obj[23][5], t, 1, k) /*<<ephemeron.ml:500:35>>*/ ;
+   }
    function get_data$0(t){
-    var
-     x =
-        /*<<ephemeron.ml:503:56>>*/  /*<<ephemeron.ml:503:56>>*/ caml_call1
-         /*<<ephemeron.ml:503:56>>*/ (Stdlib_Obj[23][9], t);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:503:56>>*/ caml_call1(Stdlib_Obj[23][9], t);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:503:75>>*/ }
    function set_data$0(t, d){
-     /*<<ephemeron.ml:505:4>>*/ return  /*<<ephemeron.ml:505:4>>*/ caml_call2
-             /*<<ephemeron.ml:505:4>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:505:34>>*/ ;
-    /*<<ephemeron.ml:505:34>>*/ }
+     /*<<ephemeron.ml:505:4>>*/ return caml_call2(Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:505:34>>*/ ;
+   }
    function make$1(key1, key2, data){
-    var
-     eph =
-        /*<<ephemeron.ml:509:14>>*/  /*<<ephemeron.ml:509:14>>*/ create$0
-         /*<<ephemeron.ml:509:14>>*/ (0);
-     /*<<ephemeron.ml:510:4>>*/  /*<<ephemeron.ml:510:4>>*/ set_data$0
-      /*<<ephemeron.ml:510:4>>*/ (eph, data);
-     /*<<ephemeron.ml:511:4>>*/  /*<<ephemeron.ml:511:4>>*/ set_key1
-      /*<<ephemeron.ml:511:4>>*/ (eph, key1);
-     /*<<ephemeron.ml:512:4>>*/  /*<<ephemeron.ml:512:4>>*/ set_key2
-      /*<<ephemeron.ml:512:4>>*/ (eph, key2);
-     /*<<ephemeron.ml:514:4>>*/ return eph /*<<ephemeron.ml:514:4>>*/ ;
+    var eph =  /*<<ephemeron.ml:509:14>>*/ create$0(0);
+     /*<<ephemeron.ml:510:4>>*/ set_data$0(eph, data);
+     /*<<ephemeron.ml:511:4>>*/ set_key1(eph, key1);
+     /*<<ephemeron.ml:512:4>>*/ set_key2(eph, key2);
+     /*<<ephemeron.ml:514:4>>*/ return eph;
     /*<<ephemeron.ml:514:7>>*/ }
    function query$0(eph, key1, key2){
-    var
-     match =
-        /*<<ephemeron.ml:517:10>>*/  /*<<ephemeron.ml:517:10>>*/ get_key1
-         /*<<ephemeron.ml:517:10>>*/ (eph);
-    if(! match)
-      /*<<ephemeron.ml:518:14>>*/ return 0 /*<<ephemeron.ml:518:14>>*/ ;
+    var match =  /*<<ephemeron.ml:517:10>>*/ get_key1(eph);
+    if(! match)  /*<<ephemeron.ml:518:14>>*/ return 0;
     var k = match[1];
-    if(k !== key1)
-      /*<<ephemeron.ml:525:16>>*/ return 0 /*<<ephemeron.ml:525:16>>*/ ;
-    var
-     match$0 =
-        /*<<ephemeron.ml:520:20>>*/  /*<<ephemeron.ml:520:20>>*/ get_key2
-         /*<<ephemeron.ml:520:20>>*/ (eph);
-    if(! match$0)
-      /*<<ephemeron.ml:521:18>>*/ return 0 /*<<ephemeron.ml:521:18>>*/ ;
+    if(k !== key1)  /*<<ephemeron.ml:525:16>>*/ return 0;
+    var match$0 =  /*<<ephemeron.ml:520:20>>*/ get_key2(eph);
+    if(! match$0)  /*<<ephemeron.ml:521:18>>*/ return 0;
     var k$0 = match$0[1];
-    return k$0 === key2
-            ?  /*<<ephemeron.ml:522:35>>*/ get_data$0
-               /*<<ephemeron.ml:522:35>>*/ (eph)
-            : 0 /*<<ephemeron.ml:525:20>>*/ ;
-    /*<<ephemeron.ml:525:20>>*/ }
+    return k$0 === key2 ?  /*<<ephemeron.ml:522:35>>*/ get_data$0(eph) : 0 /*<<ephemeron.ml:525:20>>*/ ;
+   }
    function MakeSeeded$1(H1, H2){
     function create(param, d){
      var
       k2 = param[2],
       k1 = param[1],
-      c =
-         /*<<ephemeron.ml:534:16>>*/  /*<<ephemeron.ml:534:16>>*/ create$0
-          /*<<ephemeron.ml:534:16>>*/ (0);
-      /*<<ephemeron.ml:535:8>>*/  /*<<ephemeron.ml:535:8>>*/ set_data$0
-       /*<<ephemeron.ml:535:8>>*/ (c, d);
-      /*<<ephemeron.ml:536:8>>*/  /*<<ephemeron.ml:536:8>>*/ set_key1
-       /*<<ephemeron.ml:536:8>>*/ (c, k1);
-      /*<<ephemeron.ml:536:23>>*/  /*<<ephemeron.ml:536:23>>*/ set_key2
-       /*<<ephemeron.ml:536:23>>*/ (c, k2);
-      /*<<ephemeron.ml:536:23>>*/ return c /*<<ephemeron.ml:536:23>>*/ ;
+      c =  /*<<ephemeron.ml:534:16>>*/ create$0(0);
+      /*<<ephemeron.ml:535:8>>*/ set_data$0(c, d);
+      /*<<ephemeron.ml:536:8>>*/ set_key1(c, k1);
+      /*<<ephemeron.ml:536:23>>*/ set_key2(c, k2);
+     return c;
      /*<<ephemeron.ml:537:9>>*/ }
     function seeded_hash(seed, param){
      var
       k2 = param[2],
       k1 = param[1],
       _O_ =
-         /*<<ephemeron.ml:539:33>>*/  /*<<ephemeron.ml:539:33>>*/ caml_call2
-          /*<<ephemeron.ml:539:33>>*/ (H2[2], seed, k2)
-        * 65599
-        | 0;
-      /*<<ephemeron.ml:539:8>>*/ return  /*<<ephemeron.ml:539:8>>*/ caml_call2
-              /*<<ephemeron.ml:539:8>>*/ (H1[2], seed, k1)
-            + _O_
-            | 0 /*<<ephemeron.ml:539:8>>*/ ;
+         /*<<ephemeron.ml:539:33>>*/ caml_call2(H2[2], seed, k2) * 65599 | 0;
+      /*<<ephemeron.ml:539:8>>*/ return caml_call2(H1[2], seed, k1) + _O_ | 0;
      /*<<ephemeron.ml:539:63>>*/ }
     function equal(c, param){
      var
       k2 = param[2],
       k1 = param[1],
-      match =
-         /*<<ephemeron.ml:541:14>>*/  /*<<ephemeron.ml:541:14>>*/ get_key1
-          /*<<ephemeron.ml:541:14>>*/ (c),
-      match$0 =
-         /*<<ephemeron.ml:541:26>>*/  /*<<ephemeron.ml:541:26>>*/ get_key2
-          /*<<ephemeron.ml:541:26>>*/ (c);
+      match =  /*<<ephemeron.ml:541:14>>*/ get_key1(c),
+      match$0 =  /*<<ephemeron.ml:541:26>>*/ get_key2(c);
      if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
        /*<<ephemeron.ml:544:15>>*/ if
-       ( /*<<ephemeron.ml:544:15>>*/ caml_call2
-          /*<<ephemeron.ml:544:15>>*/ (H1[1], k1, k1$0)
-        &&
-          /*<<ephemeron.ml:544:34>>*/ caml_call2
-           /*<<ephemeron.ml:544:34>>*/ (H2[1], k2, k2$0))
-        /*<<ephemeron.ml:545:17>>*/ return 0 /*<<ephemeron.ml:545:17>>*/ ;
-       /*<<ephemeron.ml:545:41>>*/ return 1 /*<<ephemeron.ml:545:41>>*/ ;
-     }
-      /*<<ephemeron.ml:542:32>>*/ return 2 /*<<ephemeron.ml:542:32>>*/ ;
+       (caml_call2(H1[1], k1, k1$0)
+        &&  /*<<ephemeron.ml:544:34>>*/ caml_call2(H2[1], k2, k2$0))
+        /*<<ephemeron.ml:545:17>>*/ return 0;
+       /*<<ephemeron.ml:545:41>>*/ return 1;
+     }
+      /*<<ephemeron.ml:542:32>>*/ return 2;
      /*<<ephemeron.ml:545:60>>*/ }
     function set_key_data(c, param, d){
      var k2 = param[2], k1 = param[1];
-      /*<<ephemeron.ml:506:45>>*/  /*<<ephemeron.ml:506:45>>*/ caml_call1
-       /*<<ephemeron.ml:506:45>>*/ (Stdlib_Obj[23][12], c);
-      /*<<ephemeron.ml:549:8>>*/  /*<<ephemeron.ml:549:8>>*/ set_key1
-       /*<<ephemeron.ml:549:8>>*/ (c, k1);
-      /*<<ephemeron.ml:549:23>>*/  /*<<ephemeron.ml:549:23>>*/ set_key2
-       /*<<ephemeron.ml:549:23>>*/ (c, k2);
-      /*<<ephemeron.ml:549:23>>*/ return  /*<<ephemeron.ml:549:23>>*/ set_data$0
-              /*<<ephemeron.ml:549:23>>*/ (c, d) /*<<ephemeron.ml:550:20>>*/ ;
-     /*<<ephemeron.ml:550:20>>*/ }
+      /*<<ephemeron.ml:506:45>>*/ caml_call1(Stdlib_Obj[23][12], c);
+      /*<<ephemeron.ml:549:8>>*/ set_key1(c, k1);
+      /*<<ephemeron.ml:549:23>>*/ set_key2(c, k2);
+     return set_data$0(c, d) /*<<ephemeron.ml:550:20>>*/ ;
+    }
     function check_key(c){
      var
-      _N_ =
-         /*<<ephemeron.ml:496:45>>*/  /*<<ephemeron.ml:496:45>>*/ caml_call2
-          /*<<ephemeron.ml:496:45>>*/ (Stdlib_Obj[23][7], c, 0);
+      _N_ =  /*<<ephemeron.ml:496:45>>*/ caml_call2(Stdlib_Obj[23][7], c, 0);
       /*<<ephemeron.ml:551:24>>*/ return _N_
              ?  /*<<ephemeron.ml:501:45>>*/ caml_call2
-                /*<<ephemeron.ml:501:45>>*/ (Stdlib_Obj[23][7], c, 1)
+               (Stdlib_Obj[23][7], c, 1)
              : _N_ /*<<ephemeron.ml:551:52>>*/ ;
-     /*<<ephemeron.ml:551:52>>*/ }
-     /*<<ephemeron.ml:530:28>>*/ return  /*<<ephemeron.ml:530:28>>*/ MakeSeeded
-             /*<<ephemeron.ml:530:28>>*/ ([0,
+    }
+     /*<<ephemeron.ml:530:28>>*/ return MakeSeeded
+            ([0,
               create,
               seeded_hash,
               equal,
               get_data$0,
               set_key_data,
-              check_key]) /*<<ephemeron.ml:530:28>>*/ ;
+              check_key]);
    }
    function Make$0(H1, H2){
     var equal = H2[1];
     function seeded_hash(seed, x){
-      /*<<ephemeron.ml:566:43>>*/ return  /*<<ephemeron.ml:566:43>>*/ caml_call1
-              /*<<ephemeron.ml:566:43>>*/ (H2[2], x) /*<<ephemeron.ml:566:52>>*/ ;
-     /*<<ephemeron.ml:566:52>>*/ }
+      /*<<ephemeron.ml:566:43>>*/ return caml_call1(H2[2], x) /*<<ephemeron.ml:566:52>>*/ ;
+    }
     var equal$0 = H1[1];
     function seeded_hash$0(seed, x){
-      /*<<ephemeron.ml:561:43>>*/ return  /*<<ephemeron.ml:561:43>>*/ caml_call1
-              /*<<ephemeron.ml:561:43>>*/ (H1[2], x) /*<<ephemeron.ml:561:52>>*/ ;
-     /*<<ephemeron.ml:561:52>>*/ }
+      /*<<ephemeron.ml:561:43>>*/ return caml_call1(H1[2], x) /*<<ephemeron.ml:561:52>>*/ ;
+    }
     var
      include =
        MakeSeeded$1([0, equal$0, seeded_hash$0], [0, equal, seeded_hash]),
@@ -39884,17 +32682,12 @@
      clean = include[17],
      stats_alive = include[18];
     function create(sz){
-      /*<<ephemeron.ml:568:20>>*/ return  /*<<ephemeron.ml:568:20>>*/ caml_call2
-              /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, sz) /*<<ephemeron.ml:568:43>>*/ ;
-     /*<<ephemeron.ml:568:43>>*/ }
+      /*<<ephemeron.ml:568:20>>*/ return caml_call2(_M_, _b_, sz) /*<<ephemeron.ml:568:43>>*/ ;
+    }
     function of_seq(i){
-     var
-      tbl =
-         /*<<ephemeron.ml:568:20>>*/  /*<<ephemeron.ml:568:20>>*/ caml_call2
-          /*<<ephemeron.ml:568:20>>*/ (_M_, _b_, 16);
-      /*<<ephemeron.ml:571:6>>*/  /*<<ephemeron.ml:571:6>>*/ caml_call2
-       /*<<ephemeron.ml:571:6>>*/ (replace_seq, tbl, i);
-      /*<<ephemeron.ml:571:6>>*/ return tbl /*<<ephemeron.ml:571:6>>*/ ;
+     var tbl =  /*<<ephemeron.ml:568:20>>*/ caml_call2(_M_, _b_, 16);
+      /*<<ephemeron.ml:571:6>>*/ caml_call2(replace_seq, tbl, i);
+     return tbl;
      /*<<ephemeron.ml:572:9>>*/ }
      /*<<ephemeron.ml:556:2>>*/ return [0,
             create,
@@ -39914,47 +32707,33 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive] /*<<ephemeron.ml:556:2>>*/ ;
+            stats_alive];
    }
    function make$2(param){
-     /*<<ephemeron.ml:579:18>>*/ return [0, 0] /*<<ephemeron.ml:579:18>>*/ ;
+     /*<<ephemeron.ml:579:18>>*/ return [0, 0];
     /*<<ephemeron.ml:579:24>>*/ }
    function add$0(b, k1, k2, d){
     var _L_ = b[1];
-    b[1] =
-     [0,
-       /*<<ephemeron.ml:580:29>>*/ make$1
-        /*<<ephemeron.ml:580:29>>*/ (k1, k2, d),
-      _L_];
+    b[1] = [0,  /*<<ephemeron.ml:580:29>>*/ make$1(k1, k2, d), _L_];
     return 0;
     /*<<ephemeron.ml:580:50>>*/ }
    function test_keys(k1, k2, e){
     var
-     match =
-        /*<<ephemeron.ml:583:12>>*/  /*<<ephemeron.ml:583:12>>*/ get_key1
-         /*<<ephemeron.ml:583:12>>*/ (e),
-     match$0 =
-        /*<<ephemeron.ml:583:24>>*/  /*<<ephemeron.ml:583:24>>*/ get_key2
-         /*<<ephemeron.ml:583:24>>*/ (e);
+     match =  /*<<ephemeron.ml:583:12>>*/ get_key1(e),
+     match$0 =  /*<<ephemeron.ml:583:24>>*/ get_key2(e);
     if(match && match$0){
      var x2 = match$0[1], x1 = match[1];
-     if(x1 === k1 && x2 === k2)
-       /*<<ephemeron.ml:584:54>>*/ return 1 /*<<ephemeron.ml:584:54>>*/ ;
+     if(x1 === k1 && x2 === k2)  /*<<ephemeron.ml:584:54>>*/ return 1;
     }
-     /*<<ephemeron.ml:585:13>>*/ return 0 /*<<ephemeron.ml:585:13>>*/ ;
+     /*<<ephemeron.ml:585:13>>*/ return 0;
     /*<<ephemeron.ml:585:18>>*/ }
    function remove$0(b, k1, k2){
     var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:589:8>>*/ for(;;){
-     if(! l)
-       /*<<ephemeron.ml:590:16>>*/ return 0 /*<<ephemeron.ml:590:16>>*/ ;
+     if(! l)  /*<<ephemeron.ml:590:16>>*/ return 0;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:591:22>>*/ if
-      ( /*<<ephemeron.ml:591:22>>*/ test_keys
-         /*<<ephemeron.ml:591:22>>*/ (k1, k2, h)){
-      b[1] =
-        /*<<ephemeron.ml:591:48>>*/ caml_call2
-         /*<<ephemeron.ml:591:48>>*/ (Stdlib_List[13], acc, t);
+      /*<<ephemeron.ml:591:22>>*/ if(test_keys(k1, k2, h)){
+      b[1] =  /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
      var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:592:27>>*/ [0, h, acc];
@@ -39965,144 +32744,113 @@
    function find$0(b, k1, k2){
     var
      match =
-        /*<<ephemeron.ml:597:12>>*/  /*<<ephemeron.ml:597:12>>*/ caml_call2
-         /*<<ephemeron.ml:597:12>>*/ (Stdlib_List[40],
+        /*<<ephemeron.ml:597:12>>*/ caml_call2
+        (Stdlib_List[40],
          function(_K_){ /*<<?>>*/ return test_keys(k1, k2, _K_);},
          b[1]);
-    if(! match)
-      /*<<ephemeron.ml:599:16>>*/ return 0 /*<<ephemeron.ml:599:16>>*/ ;
+    if(! match)  /*<<ephemeron.ml:599:16>>*/ return 0;
     var e = match[1];
-     /*<<ephemeron.ml:598:18>>*/ return  /*<<ephemeron.ml:598:18>>*/ get_data$0
-             /*<<ephemeron.ml:598:18>>*/ (e) /*<<ephemeron.ml:599:20>>*/ ;
-    /*<<ephemeron.ml:599:20>>*/ }
+     /*<<ephemeron.ml:598:18>>*/ return get_data$0(e) /*<<ephemeron.ml:599:20>>*/ ;
+   }
    function length$0(b){
      /*<<ephemeron.ml:601:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:601:33>>*/ ;
-    /*<<ephemeron.ml:601:33>>*/ }
+   }
    function clear$0(b){
      /*<<ephemeron.ml:602:18>>*/ b[1] = 0;
     return 0;
     /*<<ephemeron.ml:602:25>>*/ }
    function create$1(n){
-     /*<<ephemeron.ml:611:29>>*/ return  /*<<ephemeron.ml:611:29>>*/ caml_call1
-             /*<<ephemeron.ml:611:29>>*/ (Stdlib_Obj[23][1], n) /*<<ephemeron.ml:611:44>>*/ ;
-    /*<<ephemeron.ml:611:44>>*/ }
+     /*<<ephemeron.ml:611:29>>*/ return caml_call1(Stdlib_Obj[23][1], n) /*<<ephemeron.ml:611:44>>*/ ;
+   }
    function length$1(k){
-     /*<<ephemeron.ml:612:35>>*/ return  /*<<ephemeron.ml:612:35>>*/ caml_call1
-             /*<<ephemeron.ml:612:35>>*/ (Stdlib_Obj[23][2], k) /*<<ephemeron.ml:612:50>>*/ ;
-    /*<<ephemeron.ml:612:50>>*/ }
+     /*<<ephemeron.ml:612:35>>*/ return caml_call1(Stdlib_Obj[23][2], k) /*<<ephemeron.ml:612:50>>*/ ;
+   }
    function get_key$0(t, n){
-    var
-     x =
-        /*<<ephemeron.ml:614:58>>*/  /*<<ephemeron.ml:614:58>>*/ caml_call2
-         /*<<ephemeron.ml:614:58>>*/ (Stdlib_Obj[23][3], t, n);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:614:58>>*/ caml_call2(Stdlib_Obj[23][3], t, n);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:614:78>>*/ }
    function set_key$0(t, n, k){
-     /*<<ephemeron.ml:616:4>>*/ return  /*<<ephemeron.ml:616:4>>*/ caml_call3
-             /*<<ephemeron.ml:616:4>>*/ (Stdlib_Obj[23][5], t, n, k) /*<<ephemeron.ml:616:35>>*/ ;
-    /*<<ephemeron.ml:616:35>>*/ }
+     /*<<ephemeron.ml:616:4>>*/ return caml_call3(Stdlib_Obj[23][5], t, n, k) /*<<ephemeron.ml:616:35>>*/ ;
+   }
    function get_data$1(t){
-    var
-     x =
-        /*<<ephemeron.ml:619:51>>*/  /*<<ephemeron.ml:619:51>>*/ caml_call1
-         /*<<ephemeron.ml:619:51>>*/ (Stdlib_Obj[23][9], t);
-     /*<<ephemeron.ml:388:51>>*/ return x /*<<ephemeron.ml:388:51>>*/ ;
+    var x =  /*<<ephemeron.ml:619:51>>*/ caml_call1(Stdlib_Obj[23][9], t);
+     /*<<ephemeron.ml:388:51>>*/ return x;
     /*<<ephemeron.ml:619:70>>*/ }
    function set_data$1(t, d){
-     /*<<ephemeron.ml:620:45>>*/ return  /*<<ephemeron.ml:620:45>>*/ caml_call2
-             /*<<ephemeron.ml:620:45>>*/ (Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:620:75>>*/ ;
-    /*<<ephemeron.ml:620:75>>*/ }
+     /*<<ephemeron.ml:620:45>>*/ return caml_call2(Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:620:75>>*/ ;
+   }
    function make$3(keys, data){
-    var
-     l = keys.length - 1,
-     eph =
-        /*<<ephemeron.ml:625:14>>*/  /*<<ephemeron.ml:625:14>>*/ create$1
-         /*<<ephemeron.ml:625:14>>*/ (l);
-     /*<<ephemeron.ml:626:4>>*/  /*<<ephemeron.ml:626:4>>*/ set_data$1
-      /*<<ephemeron.ml:626:4>>*/ (eph, data);
-    var _I_ = l - 1 | 0, _H_ =  /*<<ephemeron.ml:626:4>>*/ 0;
+    var l = keys.length - 1, eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
+     /*<<ephemeron.ml:626:4>>*/ set_data$1(eph, data);
+    var _I_ = l - 1 | 0, _H_ = 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-       /*<<ephemeron.ml:627:26>>*/  /*<<ephemeron.ml:627:26>>*/ set_key$0
-        /*<<ephemeron.ml:627:26>>*/ (eph, i, caml_check_bound(keys, i)[1 + i]);
-      var _J_ =  /*<<ephemeron.ml:627:26>>*/ i + 1 | 0;
+       /*<<ephemeron.ml:627:26>>*/ set_key$0
+       (eph, i, caml_check_bound(keys, i)[1 + i]);
+      var _J_ = i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
     }
-     /*<<ephemeron.ml:628:4>>*/ return eph /*<<ephemeron.ml:628:4>>*/ ;
+     /*<<ephemeron.ml:628:4>>*/ return eph;
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
-    var
-     l =
-        /*<<ephemeron.ml:631:12>>*/  /*<<ephemeron.ml:631:12>>*/ length$1
-         /*<<ephemeron.ml:631:12>>*/ (eph);
+    var l =  /*<<ephemeron.ml:631:12>>*/ length$1(eph);
      /*<<ephemeron.ml:632:4>>*/ try{
      if(l !== keys.length - 1)
-       /*<<ephemeron.ml:633:37>>*/ throw  /*<<ephemeron.ml:633:37>>*/ caml_maybe_attach_backtrace
-              /*<<ephemeron.ml:633:37>>*/ (Stdlib[3], 1);
+       /*<<ephemeron.ml:633:37>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[3], 1);
      var
       _D_ =  /*<<ephemeron.ml:631:12>>*/ l - 1 | 0,
       _C_ =  /*<<ephemeron.ml:634:6>>*/ 0;
      if(_D_ >= 0){
       var i = _C_;
       for(;;){
-       var
-        match =
-           /*<<ephemeron.ml:635:14>>*/  /*<<ephemeron.ml:635:14>>*/ get_key$0
-            /*<<ephemeron.ml:635:14>>*/ (eph, i);
+       var match =  /*<<ephemeron.ml:635:14>>*/ get_key$0(eph, i);
        if(! match)
-         /*<<ephemeron.ml:636:18>>*/ throw  /*<<ephemeron.ml:636:18>>*/ caml_maybe_attach_backtrace
-                /*<<ephemeron.ml:636:18>>*/ (Stdlib[3], 1);
+         /*<<ephemeron.ml:636:18>>*/ throw caml_maybe_attach_backtrace
+               (Stdlib[3], 1);
        var k = match[1];
        if(k !== caml_check_bound(keys, i)[1 + i])
-         /*<<ephemeron.ml:638:20>>*/ throw  /*<<ephemeron.ml:638:20>>*/ caml_maybe_attach_backtrace
-                /*<<ephemeron.ml:638:20>>*/ (Stdlib[3], 1);
+         /*<<ephemeron.ml:638:20>>*/ throw caml_maybe_attach_backtrace
+               (Stdlib[3], 1);
        var _F_ =  /*<<ephemeron.ml:634:6>>*/ i + 1 | 0;
        if(_D_ === i) break;
        i = _F_;
       }
      }
-     var
-      _E_ =
-         /*<<ephemeron.ml:640:6>>*/  /*<<ephemeron.ml:640:6>>*/ get_data$1
-          /*<<ephemeron.ml:640:6>>*/ (eph);
-      /*<<ephemeron.ml:640:6>>*/ return _E_ /*<<ephemeron.ml:640:6>>*/ ;
+     var _E_ =  /*<<ephemeron.ml:640:6>>*/ get_data$1(eph);
+     return _E_;
     }
     catch(_G_){
      var _B_ = caml_wrap_exception(_G_);
-     if(_B_ === Stdlib[3])
-       /*<<ephemeron.ml:641:17>>*/ return 0 /*<<ephemeron.ml:641:17>>*/ ;
+     if(_B_ === Stdlib[3])  /*<<ephemeron.ml:641:17>>*/ return 0;
      throw caml_maybe_attach_backtrace(_B_, 0);
     }
     /*<<ephemeron.ml:641:21>>*/ }
    function MakeSeeded$2(H){
     function create(k, d){
-     var
-      c =
-         /*<<ephemeron.ml:648:16>>*/  /*<<ephemeron.ml:648:16>>*/ create$1
-          /*<<ephemeron.ml:648:16>>*/ (k.length - 1);
-      /*<<ephemeron.ml:649:8>>*/  /*<<ephemeron.ml:649:8>>*/ set_data$1
-       /*<<ephemeron.ml:649:8>>*/ (c, d);
-     var _z_ = k.length - 2 | 0, _y_ =  /*<<ephemeron.ml:649:8>>*/ 0;
+     var c =  /*<<ephemeron.ml:648:16>>*/ create$1(k.length - 1);
+      /*<<ephemeron.ml:649:8>>*/ set_data$1(c, d);
+     var _z_ = k.length - 2 | 0, _y_ = 0;
      if(_z_ >= 0){
       var i = _y_;
       for(;;){
-        /*<<ephemeron.ml:651:10>>*/  /*<<ephemeron.ml:651:10>>*/ set_key$0
-         /*<<ephemeron.ml:651:10>>*/ (c, i, caml_check_bound(k, i)[1 + i]);
-       var _A_ =  /*<<ephemeron.ml:651:10>>*/ i + 1 | 0;
+        /*<<ephemeron.ml:651:10>>*/ set_key$0
+        (c, i, caml_check_bound(k, i)[1 + i]);
+       var _A_ = i + 1 | 0;
        if(_z_ === i) break;
        i = _A_;
       }
      }
-      /*<<ephemeron.ml:653:8>>*/ return c /*<<ephemeron.ml:653:8>>*/ ;
+      /*<<ephemeron.ml:653:8>>*/ return c;
      /*<<ephemeron.ml:653:9>>*/ }
     function seeded_hash(seed, k){
      var
       h =  /*<<ephemeron.ml:655:16>>*/ [0, 0],
       _u_ = k.length - 2 | 0,
-      _t_ =  /*<<ephemeron.ml:655:16>>*/ 0;
+      _t_ = 0;
      if(_u_ >= 0){
       var i = _t_;
       for(;;){
@@ -40110,10 +32858,7 @@
         _v_ = h[1],
         _w_ =  /*<<ephemeron.ml:657:34>>*/ caml_check_bound(k, i)[1 + i];
        h[1] =
-        ( /*<<ephemeron.ml:657:15>>*/ caml_call2
-          /*<<ephemeron.ml:657:15>>*/ (H[2], seed, _w_)
-        * 65599
-        | 0)
+        ( /*<<ephemeron.ml:657:15>>*/ caml_call2(H[2], seed, _w_) * 65599 | 0)
         + _v_
         | 0;
        var _x_ =  /*<<ephemeron.ml:656:8>>*/ i + 1 | 0;
@@ -40124,69 +32869,47 @@
      return h[1];
      /*<<ephemeron.ml:659:10>>*/ }
     function equal(c, k){
-     var
-      len = k.length - 1,
-      len$0 =
-         /*<<ephemeron.ml:662:19>>*/  /*<<ephemeron.ml:662:19>>*/ length$1
-          /*<<ephemeron.ml:662:19>>*/ (c);
-     if(len !== len$0)
-       /*<<ephemeron.ml:663:28>>*/ return 1 /*<<ephemeron.ml:663:28>>*/ ;
+     var len = k.length - 1, len$0 =  /*<<ephemeron.ml:662:19>>*/ length$1(c);
+     if(len !== len$0)  /*<<ephemeron.ml:663:28>>*/ return 1;
      var i$1 =  /*<<ephemeron.ml:675:10>>*/ len - 1 | 0, i = i$1;
       /*<<ephemeron.ml:666:12>>*/ for(;;){
-      if(0 > i)
-        /*<<ephemeron.ml:666:26>>*/ return 0 /*<<ephemeron.ml:666:26>>*/ ;
-      var
-       match =
-          /*<<ephemeron.ml:668:20>>*/  /*<<ephemeron.ml:668:20>>*/ get_key$0
-           /*<<ephemeron.ml:668:20>>*/ (c, i);
-      if(! match)
-        /*<<ephemeron.ml:669:24>>*/ return 2 /*<<ephemeron.ml:669:24>>*/ ;
+      if(0 > i)  /*<<ephemeron.ml:666:26>>*/ return 0;
+      var match =  /*<<ephemeron.ml:668:20>>*/ get_key$0(c, i);
+      if(! match)  /*<<ephemeron.ml:669:24>>*/ return 2;
       var
        ki = match[1],
        _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
-       /*<<ephemeron.ml:671:21>>*/ if
-       (!
-         /*<<ephemeron.ml:671:21>>*/ caml_call2
-          /*<<ephemeron.ml:671:21>>*/ (H[1], _s_, ki))
-        /*<<ephemeron.ml:673:23>>*/ return 1 /*<<ephemeron.ml:673:23>>*/ ;
+       /*<<ephemeron.ml:671:21>>*/ if(! caml_call2(H[1], _s_, ki))
+        /*<<ephemeron.ml:673:23>>*/ return 1;
       var i$0 =  /*<<ephemeron.ml:672:23>>*/ i - 1 | 0;
       i = i$0;
      }
      /*<<ephemeron.ml:675:33>>*/ }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:678:8>>*/  /*<<ephemeron.ml:621:40>>*/ caml_call1
-       /*<<ephemeron.ml:621:40>>*/ (Stdlib_Obj[23][12], c);
+      (Stdlib_Obj[23][12], c);
      var _q_ = k.length - 2 | 0, _p_ =  /*<<ephemeron.ml:678:8>>*/ 0;
      if(_q_ >= 0){
       var i = _p_;
       for(;;){
-        /*<<ephemeron.ml:680:10>>*/  /*<<ephemeron.ml:680:10>>*/ set_key$0
-         /*<<ephemeron.ml:680:10>>*/ (c, i, caml_check_bound(k, i)[1 + i]);
-       var _r_ =  /*<<ephemeron.ml:680:10>>*/ i + 1 | 0;
+        /*<<ephemeron.ml:680:10>>*/ set_key$0
+        (c, i, caml_check_bound(k, i)[1 + i]);
+       var _r_ = i + 1 | 0;
        if(_q_ === i) break;
        i = _r_;
       }
      }
-      /*<<ephemeron.ml:682:8>>*/ return  /*<<ephemeron.ml:682:8>>*/ set_data$1
-              /*<<ephemeron.ml:682:8>>*/ (c, d) /*<<ephemeron.ml:682:20>>*/ ;
-     /*<<ephemeron.ml:682:20>>*/ }
+      /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d) /*<<ephemeron.ml:682:20>>*/ ;
+    }
     function check_key(c){
-     var
-      i$1 =
-         /*<<ephemeron.ml:686:17>>*/  /*<<ephemeron.ml:686:17>>*/ length$1
-          /*<<ephemeron.ml:686:17>>*/ (c)
-        - 1
-        | 0,
-      i = i$1;
+     var i$1 =  /*<<ephemeron.ml:686:17>>*/ length$1(c) - 1 | 0, i = i$1;
       /*<<ephemeron.ml:685:10>>*/ for(;;){
       var _n_ = i < 0 ? 1 : 0;
       if(_n_)
        var _o_ = _n_;
       else{
        var
-        _m_ =
-           /*<<ephemeron.ml:617:47>>*/  /*<<ephemeron.ml:617:47>>*/ caml_call2
-            /*<<ephemeron.ml:617:47>>*/ (Stdlib_Obj[23][7], c, i);
+        _m_ =  /*<<ephemeron.ml:617:47>>*/ caml_call2(Stdlib_Obj[23][7], c, i);
         /*<<ephemeron.ml:685:20>>*/ if(_m_){
         var i$0 = i - 1 | 0;
         i = i$0;
@@ -40197,21 +32920,20 @@
       return _o_;
      }
      /*<<ephemeron.ml:686:30>>*/ }
-     /*<<ephemeron.ml:644:28>>*/ return  /*<<ephemeron.ml:644:28>>*/ MakeSeeded
-             /*<<ephemeron.ml:644:28>>*/ ([0,
+     /*<<ephemeron.ml:644:28>>*/ return MakeSeeded
+            ([0,
               create,
               seeded_hash,
               equal,
               get_data$1,
               set_key_data,
-              check_key]) /*<<ephemeron.ml:644:28>>*/ ;
+              check_key]);
    }
    function Make$1(H){
     var equal = H[1];
     function seeded_hash(seed, x){
-      /*<<ephemeron.ml:694:41>>*/ return  /*<<ephemeron.ml:694:41>>*/ caml_call1
-              /*<<ephemeron.ml:694:41>>*/ (H[2], x) /*<<ephemeron.ml:694:49>>*/ ;
-     /*<<ephemeron.ml:694:49>>*/ }
+      /*<<ephemeron.ml:694:41>>*/ return caml_call1(H[2], x) /*<<ephemeron.ml:694:49>>*/ ;
+    }
     var
      include = MakeSeeded$2([0, equal, seeded_hash]),
      _l_ = include[1],
@@ -40232,17 +32954,12 @@
      clean = include[17],
      stats_alive = include[18];
     function create(sz){
-      /*<<ephemeron.ml:696:20>>*/ return  /*<<ephemeron.ml:696:20>>*/ caml_call2
-              /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, sz) /*<<ephemeron.ml:696:43>>*/ ;
-     /*<<ephemeron.ml:696:43>>*/ }
+      /*<<ephemeron.ml:696:20>>*/ return caml_call2(_l_, _c_, sz) /*<<ephemeron.ml:696:43>>*/ ;
+    }
     function of_seq(i){
-     var
-      tbl =
-         /*<<ephemeron.ml:696:20>>*/  /*<<ephemeron.ml:696:20>>*/ caml_call2
-          /*<<ephemeron.ml:696:20>>*/ (_l_, _c_, 16);
-      /*<<ephemeron.ml:699:6>>*/  /*<<ephemeron.ml:699:6>>*/ caml_call2
-       /*<<ephemeron.ml:699:6>>*/ (replace_seq, tbl, i);
-      /*<<ephemeron.ml:699:6>>*/ return tbl /*<<ephemeron.ml:699:6>>*/ ;
+     var tbl =  /*<<ephemeron.ml:696:20>>*/ caml_call2(_l_, _c_, 16);
+      /*<<ephemeron.ml:699:6>>*/ caml_call2(replace_seq, tbl, i);
+     return tbl;
      /*<<ephemeron.ml:700:9>>*/ }
      /*<<ephemeron.ml:690:2>>*/ return [0,
             create,
@@ -40262,34 +32979,26 @@
             replace_seq,
             of_seq,
             clean,
-            stats_alive] /*<<ephemeron.ml:690:2>>*/ ;
+            stats_alive];
    }
    function make$4(param){
-     /*<<ephemeron.ml:707:18>>*/ return [0, 0] /*<<ephemeron.ml:707:18>>*/ ;
+     /*<<ephemeron.ml:707:18>>*/ return [0, 0];
     /*<<ephemeron.ml:707:24>>*/ }
    function add$1(b, k, d){
     var _k_ = b[1];
-    b[1] =
-     [0,
-       /*<<ephemeron.ml:708:25>>*/ make$3 /*<<ephemeron.ml:708:25>>*/ (k, d),
-      _k_];
+    b[1] = [0,  /*<<ephemeron.ml:708:25>>*/ make$3(k, d), _k_];
     return 0;
     /*<<ephemeron.ml:708:42>>*/ }
    function test_keys$0(k, e){
      /*<<ephemeron.ml:711:6>>*/ try{
-     if
-      ( /*<<ephemeron.ml:712:11>>*/ length$1 /*<<ephemeron.ml:712:11>>*/ (e)
-       !== k.length - 1)
-       /*<<ephemeron.ml:712:43>>*/ throw  /*<<ephemeron.ml:712:43>>*/ caml_maybe_attach_backtrace
-              /*<<ephemeron.ml:712:43>>*/ (Stdlib[3], 1);
+     if( /*<<ephemeron.ml:712:11>>*/ length$1(e) !== k.length - 1)
+       /*<<ephemeron.ml:712:43>>*/ throw caml_maybe_attach_backtrace
+             (Stdlib[3], 1);
      var _g_ = k.length - 2 | 0, _f_ =  /*<<ephemeron.ml:713:8>>*/ 0;
      if(_g_ >= 0){
       var i = _f_;
       for(;;){
-       var
-        match =
-           /*<<ephemeron.ml:714:16>>*/  /*<<ephemeron.ml:714:16>>*/ get_key$0
-            /*<<ephemeron.ml:714:16>>*/ (e, i);
+       var match =  /*<<ephemeron.ml:714:16>>*/ get_key$0(e, i);
        if(match){
         var x = match[1];
         if(x === caml_check_bound(k, i)[1 + i]){
@@ -40299,32 +33008,26 @@
          continue;
         }
        }
-        /*<<ephemeron.ml:716:17>>*/ throw  /*<<ephemeron.ml:716:17>>*/ caml_maybe_attach_backtrace
-               /*<<ephemeron.ml:716:17>>*/ (Stdlib[3], 1);
+        /*<<ephemeron.ml:716:17>>*/ throw caml_maybe_attach_backtrace
+              (Stdlib[3], 1);
       }
      }
      var _h_ =  /*<<ephemeron.ml:718:8>>*/ 1;
-      /*<<ephemeron.ml:718:8>>*/ return _h_ /*<<ephemeron.ml:718:8>>*/ ;
+     return _h_;
     }
     catch(_j_){
      var _e_ = caml_wrap_exception(_j_);
-     if(_e_ === Stdlib[3])
-       /*<<ephemeron.ml:719:19>>*/ return 0 /*<<ephemeron.ml:719:19>>*/ ;
+     if(_e_ === Stdlib[3])  /*<<ephemeron.ml:719:19>>*/ return 0;
      throw caml_maybe_attach_backtrace(_e_, 0);
     }
     /*<<ephemeron.ml:719:24>>*/ }
    function remove$1(b, k){
     var l$0 = b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:723:8>>*/ for(;;){
-     if(! l)
-       /*<<ephemeron.ml:724:16>>*/ return 0 /*<<ephemeron.ml:724:16>>*/ ;
+     if(! l)  /*<<ephemeron.ml:724:16>>*/ return 0;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:725:22>>*/ if
-      ( /*<<ephemeron.ml:725:22>>*/ test_keys$0
-         /*<<ephemeron.ml:725:22>>*/ (k, h)){
-      b[1] =
-        /*<<ephemeron.ml:725:44>>*/ caml_call2
-         /*<<ephemeron.ml:725:44>>*/ (Stdlib_List[13], acc, t);
+      /*<<ephemeron.ml:725:22>>*/ if(test_keys$0(k, h)){
+      b[1] =  /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
       return 0;
      }
      var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:726:27>>*/ [0, h, acc];
@@ -40335,19 +33038,17 @@
    function find$1(b, k){
     var
      match =
-        /*<<ephemeron.ml:731:12>>*/  /*<<ephemeron.ml:731:12>>*/ caml_call2
-         /*<<ephemeron.ml:731:12>>*/ (Stdlib_List[40],
+        /*<<ephemeron.ml:731:12>>*/ caml_call2
+        (Stdlib_List[40],
          function(_d_){ /*<<?>>*/ return test_keys$0(k, _d_);},
          b[1]);
-    if(! match)
-      /*<<ephemeron.ml:733:16>>*/ return 0 /*<<ephemeron.ml:733:16>>*/ ;
+    if(! match)  /*<<ephemeron.ml:733:16>>*/ return 0;
     var e = match[1];
-     /*<<ephemeron.ml:732:18>>*/ return  /*<<ephemeron.ml:732:18>>*/ get_data$1
-             /*<<ephemeron.ml:732:18>>*/ (e) /*<<ephemeron.ml:733:20>>*/ ;
-    /*<<ephemeron.ml:733:20>>*/ }
+     /*<<ephemeron.ml:732:18>>*/ return get_data$1(e) /*<<ephemeron.ml:733:20>>*/ ;
+   }
    function length$2(b){
      /*<<ephemeron.ml:735:19>>*/ return caml_call1(Stdlib_List[1], b[1]) /*<<ephemeron.ml:735:33>>*/ ;
-    /*<<ephemeron.ml:735:33>>*/ }
+   }
    function clear$1(b){
      /*<<ephemeron.ml:736:18>>*/ b[1] = 0;
     return 0;
@@ -40384,29 +33085,28 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    cst$19 =  /*<<?>>*/ "",
-    cst$23 =  /*<<?>>*/ " ",
-    cst_2$1 =  /*<<?>>*/ " 2>",
-    cst_2_1$1 =  /*<<?>>*/ " 2>&1",
-    cst$22 =  /*<<?>>*/ " <",
-    cst$21 =  /*<<?>>*/ " >",
-    cst$20 =  /*<<?>>*/ '"',
-    cst$24 =  /*<<?>>*/ ".",
-    cst$25 =  /*<<?>>*/ "..",
-    cst$28 =  /*<<?>>*/ "../",
-    cst$27 =  /*<<?>>*/ "./",
-    cst$26 =  /*<<?>>*/ "/",
-    cst_dev_null =  /*<<?>>*/ "/dev/null",
-    caml_equal =  /*<<?>>*/ runtime.caml_equal,
-    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_getenv =  /*<<?>>*/ runtime.caml_sys_getenv,
-    caml_trampoline =  /*<<?>>*/ runtime.caml_trampoline,
-    caml_trampoline_return =  /*<<?>>*/ runtime.caml_trampoline_return,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception;
+    runtime = globalThis.jsoo_runtime,
+    cst$19 = "",
+    cst$23 = " ",
+    cst_2$1 = " 2>",
+    cst_2_1$1 = " 2>&1",
+    cst$22 = " <",
+    cst$21 = " >",
+    cst$20 = '"',
+    cst$24 = ".",
+    cst$25 = "..",
+    cst$28 = "../",
+    cst$27 = "./",
+    cst$26 = "/",
+    cst_dev_null = "/dev/null",
+    caml_equal = runtime.caml_equal,
+    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_getenv = runtime.caml_sys_getenv,
+    caml_trampoline = runtime.caml_trampoline,
+    caml_trampoline_return = runtime.caml_trampoline_return,
+    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)
@@ -40472,127 +33172,89 @@
     Stdlib_Sys = global_data.Stdlib__Sys;
    function generic_basename(is_dir_sep, current_dir_name, name){
      /*<<filename.ml:37:2>>*/ if(name === cst$19)
-      /*<<filename.ml:47:7>>*/ return current_dir_name /*<<filename.ml:47:7>>*/ ;
+      /*<<filename.ml:47:7>>*/ return current_dir_name;
     var n$3 = caml_ml_string_length(name) - 1 | 0, n = n$3;
      /*<<filename.ml:38:4>>*/ for(;;){
      if(0 > n)
-       /*<<filename.ml:38:18>>*/ return  /*<<filename.ml:38:18>>*/ caml_call3
-               /*<<filename.ml:38:18>>*/ (Stdlib_String[16], name, 0, 1) /*<<filename.ml:48:40>>*/ ;
-      /*<<filename.ml:39:12>>*/ if
-      (!
-        /*<<filename.ml:39:12>>*/ caml_call2
-         /*<<filename.ml:39:12>>*/ (is_dir_sep, name, n))
-      break;
+       /*<<filename.ml:38:18>>*/ return caml_call3
+              (Stdlib_String[16], name, 0, 1) /*<<filename.ml:48:40>>*/ ;
+      /*<<filename.ml:39:12>>*/ if(! caml_call2(is_dir_sep, name, n)) break;
      var n$0 =  /*<<filename.ml:39:35>>*/ n - 1 | 0;
      n = n$0;
     }
     var p =  /*<<filename.ml:40:9>>*/ n + 1 | 0, n$1 = n;
      /*<<filename.ml:42:4>>*/ for(;;){
      if(0 > n$1)
-       /*<<filename.ml:42:18>>*/ return  /*<<filename.ml:42:18>>*/ caml_call3
-               /*<<filename.ml:42:18>>*/ (Stdlib_String[16], name, 0, p) /*<<filename.ml:48:40>>*/ ;
-      /*<<filename.ml:43:12>>*/ if
-      ( /*<<filename.ml:43:12>>*/ caml_call2
-         /*<<filename.ml:43:12>>*/ (is_dir_sep, name, n$1))
-       /*<<filename.ml:37:2>>*/ return  /*<<filename.ml:37:2>>*/ caml_call3
-               /*<<filename.ml:37:2>>*/ (Stdlib_String[16],
-               name,
-               n$1 + 1 | 0,
-               (p - n$1 | 0) - 1 | 0) /*<<filename.ml:48:40>>*/ ;
+       /*<<filename.ml:42:18>>*/ return caml_call3
+              (Stdlib_String[16], name, 0, p) /*<<filename.ml:48:40>>*/ ;
+      /*<<filename.ml:43:12>>*/ if(caml_call2(is_dir_sep, name, n$1))
+       /*<<filename.ml:37:2>>*/ return caml_call3
+              (Stdlib_String[16], name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0) /*<<filename.ml:48:40>>*/ ;
      var n$2 = n$1 - 1 | 0;
      n$1 = n$2;
     }
-    /*<<filename.ml:48:40>>*/ }
+   }
    function generic_dirname(is_dir_sep, current_dir_name, name){
      /*<<filename.ml:55:2>>*/ if(name === cst$19)
-      /*<<filename.ml:69:7>>*/ return current_dir_name /*<<filename.ml:69:7>>*/ ;
+      /*<<filename.ml:69:7>>*/ return current_dir_name;
     var n$5 = caml_ml_string_length(name) - 1 | 0, n = n$5;
      /*<<filename.ml:56:4>>*/ for(;;){
      if(0 > n)
-       /*<<filename.ml:56:18>>*/ return  /*<<filename.ml:56:18>>*/ caml_call3
-               /*<<filename.ml:56:18>>*/ (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
-      /*<<filename.ml:57:12>>*/ if
-      (!
-        /*<<filename.ml:57:12>>*/ caml_call2
-         /*<<filename.ml:57:12>>*/ (is_dir_sep, name, n))
-      break;
+       /*<<filename.ml:56:18>>*/ return caml_call3
+              (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
+      /*<<filename.ml:57:12>>*/ if(! caml_call2(is_dir_sep, name, n)) break;
      var n$0 =  /*<<filename.ml:57:35>>*/ n - 1 | 0;
      n = n$0;
     }
     var n$1 = n;
      /*<<filename.ml:60:4>>*/ for(;;){
      if(0 > n$1) return current_dir_name;
-      /*<<filename.ml:61:12>>*/ if
-      ( /*<<filename.ml:61:12>>*/ caml_call2
-         /*<<filename.ml:61:12>>*/ (is_dir_sep, name, n$1))
-      break;
+      /*<<filename.ml:61:12>>*/ if(caml_call2(is_dir_sep, name, n$1)) break;
      var n$2 =  /*<<filename.ml:62:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
     }
     var n$3 = n$1;
      /*<<filename.ml:64:4>>*/ for(;;){
      if(0 > n$3)
-       /*<<filename.ml:64:18>>*/ return  /*<<filename.ml:64:18>>*/ caml_call3
-               /*<<filename.ml:64:18>>*/ (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
-      /*<<filename.ml:65:12>>*/ if
-      (!
-        /*<<filename.ml:65:12>>*/ caml_call2
-         /*<<filename.ml:65:12>>*/ (is_dir_sep, name, n$3))
-       /*<<filename.ml:66:9>>*/ return  /*<<filename.ml:66:9>>*/ caml_call3
-               /*<<filename.ml:66:9>>*/ (Stdlib_String[16],
-               name,
-               0,
-               n$3 + 1 | 0) /*<<filename.ml:70:44>>*/ ;
+       /*<<filename.ml:64:18>>*/ return caml_call3
+              (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
+      /*<<filename.ml:65:12>>*/ if(! caml_call2(is_dir_sep, name, n$3))
+       /*<<filename.ml:66:9>>*/ return caml_call3
+              (Stdlib_String[16], name, 0, n$3 + 1 | 0) /*<<filename.ml:70:44>>*/ ;
      var n$4 =  /*<<filename.ml:65:35>>*/ n$3 - 1 | 0;
      n$3 = n$4;
     }
     /*<<filename.ml:70:44>>*/ }
    function is_dir_sep(s, i){
-     /*<<filename.ml:96:23>>*/ return 47
-            ===
-              /*<<filename.ml:96:23>>*/ caml_string_get
-               /*<<filename.ml:96:23>>*/ (s, i)
-            ? 1
-            : 0;
+     /*<<filename.ml:96:23>>*/ return 47 === caml_string_get(s, i) ? 1 : 0;
     /*<<filename.ml:96:34>>*/ }
    function is_relative(n){
     var
      _aH_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _aI_ =
        _aH_
-       ||
-        (47
-          !==
-            /*<<filename.ml:97:45>>*/ caml_string_get
-             /*<<filename.ml:97:45>>*/ (n, 0)
-          ? 1
-          : 0);
+       || (47 !==  /*<<filename.ml:97:45>>*/ caml_string_get(n, 0) ? 1 : 0);
     return _aI_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
-    var
-     _aC_ =
-        /*<<filename.ml:99:4>>*/  /*<<filename.ml:99:4>>*/ is_relative
-         /*<<filename.ml:99:4>>*/ (n);
-     /*<<filename.ml:99:4>>*/ if(_aC_){
+    var _aC_ =  /*<<filename.ml:99:4>>*/ is_relative(n);
+    if(_aC_){
      var
       _aD_ = caml_ml_string_length(n) < 2 ? 1 : 0,
       _aE_ =
         _aD_
         ||
-         ( /*<<filename.ml:100:31>>*/ caml_call3
-             /*<<filename.ml:100:31>>*/ (Stdlib_String[16], n, 0, 2)
+         ( /*<<filename.ml:100:31>>*/ caml_call3(Stdlib_String[16], n, 0, 2)
            !== cst$27
            ? 1
            : 0);
-      /*<<filename.ml:100:31>>*/ if(_aE_)
+     if(_aE_)
       var
        _aF_ = caml_ml_string_length(n) < 3 ? 1 : 0,
        _aG_ =
          _aF_
          ||
-          ( /*<<filename.ml:101:31>>*/ caml_call3
-              /*<<filename.ml:101:31>>*/ (Stdlib_String[16], n, 0, 3)
+          ( /*<<filename.ml:101:31>>*/ caml_call3(Stdlib_String[16], n, 0, 3)
             !== cst$28
             ? 1
             : 0);
@@ -40601,34 +33263,27 @@
     }
     else
      var _aG_ = _aC_;
-     /*<<filename.ml:101:31>>*/ return _aG_ /*<<filename.ml:101:31>>*/ ;
+    return _aG_;
     /*<<filename.ml:101:57>>*/ }
    function check_suffix(name, suff){
-     /*<<filename.ml:103:4>>*/ return  /*<<filename.ml:103:4>>*/ caml_call2
-             /*<<filename.ml:103:4>>*/ (Stdlib_String[12], suff, name) /*<<filename.ml:103:38>>*/ ;
-    /*<<filename.ml:103:38>>*/ }
+     /*<<filename.ml:103:4>>*/ return caml_call2
+            (Stdlib_String[12], suff, name) /*<<filename.ml:103:38>>*/ ;
+   }
    function chop_suffix_opt(suffix, filename){
     var
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
-    if(len_s > len_f)
-      /*<<filename.ml:114:6>>*/ return 0 /*<<filename.ml:114:6>>*/ ;
+    if(len_s > len_f)  /*<<filename.ml:114:6>>*/ return 0;
     var
      r =
-        /*<<filename.ml:108:14>>*/  /*<<filename.ml:108:14>>*/ caml_call3
-         /*<<filename.ml:108:14>>*/ (Stdlib_String[16],
-         filename,
-         len_f - len_s | 0,
-         len_s);
+        /*<<filename.ml:108:14>>*/ caml_call3
+        (Stdlib_String[16], filename, len_f - len_s | 0, len_s);
      /*<<filename.ml:109:9>>*/ return r === suffix
             ? [0,
                /*<<filename.ml:110:13>>*/ caml_call3
-                /*<<filename.ml:110:13>>*/ (Stdlib_String[16],
-                filename,
-                0,
-                len_f - len_s | 0)]
+               (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
             : 0 /*<<filename.ml:114:10>>*/ ;
-    /*<<filename.ml:114:10>>*/ }
+   }
    var
     dummy = 0,
     _h_ = [0, 7, 0],
@@ -40646,9 +33301,7 @@
     cst_tmp = "/tmp";
    try{
     var
-     _j_ =
-        /*<<filename.ml:117:8>>*/  /*<<filename.ml:117:8>>*/ caml_sys_getenv
-         /*<<filename.ml:117:8>>*/ ("TMPDIR"),
+     _j_ =  /*<<filename.ml:117:8>>*/ caml_sys_getenv("TMPDIR"),
      temp_dir_name = _j_;
    }
    catch(_aB_){
@@ -40659,55 +33312,35 @@
    function quote(s){
     var
      l = caml_ml_string_length(s),
-     b =
-        /*<<filename.ml:18:10>>*/  /*<<filename.ml:18:10>>*/ caml_call1
-         /*<<filename.ml:18:10>>*/ (Stdlib_Buffer[1], l + 20 | 0);
-     /*<<filename.ml:19:2>>*/  /*<<filename.ml:19:2>>*/ caml_call2
-      /*<<filename.ml:19:2>>*/ (Stdlib_Buffer[12], b, 39);
-    var _ay_ = l - 1 | 0, _ax_ =  /*<<filename.ml:19:2>>*/ 0;
+     b =  /*<<filename.ml:18:10>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
+     /*<<filename.ml:19:2>>*/ caml_call2(Stdlib_Buffer[12], b, 39);
+    var _ay_ = l - 1 | 0, _ax_ = 0;
     if(_ay_ >= 0){
      var i = _ax_;
      for(;;){
-       /*<<filename.ml:21:7>>*/ if
-       (39
-        ===
-          /*<<filename.ml:21:7>>*/ caml_string_get
-           /*<<filename.ml:21:7>>*/ (s, i))
-        /*<<filename.ml:22:9>>*/  /*<<filename.ml:22:9>>*/ caml_call2
-         /*<<filename.ml:22:9>>*/ (Stdlib_Buffer[16], b, quotequote);
+       /*<<filename.ml:21:7>>*/ if(39 === caml_string_get(s, i))
+        /*<<filename.ml:22:9>>*/ caml_call2(Stdlib_Buffer[16], b, quotequote);
       else{
-       var
-        _aA_ =
-           /*<<filename.ml:23:28>>*/  /*<<filename.ml:23:28>>*/ caml_string_get
-            /*<<filename.ml:23:28>>*/ (s, i);
-        /*<<filename.ml:23:9>>*/  /*<<filename.ml:23:9>>*/ caml_call2
-         /*<<filename.ml:23:9>>*/ (Stdlib_Buffer[12], b, _aA_);
+       var _aA_ =  /*<<filename.ml:23:28>>*/ caml_string_get(s, i);
+        /*<<filename.ml:23:9>>*/ caml_call2(Stdlib_Buffer[12], b, _aA_);
       }
-      var _az_ =  /*<<filename.ml:23:9>>*/ i + 1 | 0;
+      var _az_ = i + 1 | 0;
       if(_ay_ === i) break;
       i = _az_;
      }
     }
-     /*<<filename.ml:25:2>>*/  /*<<filename.ml:25:2>>*/ caml_call2
-      /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[12], b, 39);
-     /*<<filename.ml:25:2>>*/ return  /*<<filename.ml:25:2>>*/ caml_call1
-             /*<<filename.ml:25:2>>*/ (Stdlib_Buffer[2], b) /*<<filename.ml:25:2>>*/ ;
+     /*<<filename.ml:25:2>>*/ caml_call2(Stdlib_Buffer[12], b, 39);
+    return caml_call1(Stdlib_Buffer[2], b);
    }
    function quote_command(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:120:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:123:51>>*/ if
-      ( /*<<filename.ml:123:51>>*/ caml_equal
-         /*<<filename.ml:123:51>>*/ (stderr, stdout))
+      /*<<filename.ml:123:51>>*/ if(caml_equal(stderr, stdout))
       var _am_ = cst_2_1;
      else
       var
-       _aw_ =
-          /*<<filename.ml:125:61>>*/  /*<<filename.ml:125:61>>*/ quote
-           /*<<filename.ml:125:61>>*/ (f),
-       _am_ =
-          /*<<filename.ml:125:53>>*/ caml_call2
-           /*<<filename.ml:125:53>>*/ (Stdlib[28], cst_2, _aw_);
+       _aw_ =  /*<<filename.ml:125:61>>*/ quote(f),
+       _am_ =  /*<<filename.ml:125:53>>*/ caml_call2(Stdlib[28], cst_2, _aw_);
      var _an_ = _am_;
     }
     else
@@ -40715,47 +33348,32 @@
     if(stdout)
      var
       f$0 = stdout[1],
-      _ao_ =
-         /*<<filename.ml:122:55>>*/  /*<<filename.ml:122:55>>*/ quote
-          /*<<filename.ml:122:55>>*/ (f$0),
-      _ap_ =
-         /*<<filename.ml:122:48>>*/ caml_call2
-          /*<<filename.ml:122:48>>*/ (Stdlib[28], cst, _ao_);
+      _ao_ =  /*<<filename.ml:122:55>>*/ quote(f$0),
+      _ap_ =  /*<<filename.ml:122:48>>*/ caml_call2(Stdlib[28], cst, _ao_);
     else
      var _ap_ = cst$3;
-    var
-     _aq_ =
-        /*<<filename.ml:122:6>>*/  /*<<filename.ml:122:6>>*/ caml_call2
-         /*<<filename.ml:122:6>>*/ (Stdlib[28], _ap_, _an_);
+    var _aq_ =  /*<<filename.ml:122:6>>*/ caml_call2(Stdlib[28], _ap_, _an_);
     if(stdin)
      var
       f$1 = stdin[1],
-      _ar_ =
-         /*<<filename.ml:121:55>>*/  /*<<filename.ml:121:55>>*/ quote
-          /*<<filename.ml:121:55>>*/ (f$1),
-      _as_ =
-         /*<<filename.ml:121:48>>*/ caml_call2
-          /*<<filename.ml:121:48>>*/ (Stdlib[28], cst$0, _ar_);
+      _ar_ =  /*<<filename.ml:121:55>>*/ quote(f$1),
+      _as_ =  /*<<filename.ml:121:48>>*/ caml_call2(Stdlib[28], cst$0, _ar_);
     else
      var _as_ = cst$2;
     var
-     _at_ =
-        /*<<filename.ml:121:6>>*/  /*<<filename.ml:121:6>>*/ caml_call2
-         /*<<filename.ml:121:6>>*/ (Stdlib[28], _as_, _aq_),
+     _at_ =  /*<<filename.ml:121:6>>*/ caml_call2(Stdlib[28], _as_, _aq_),
      _au_ =
-        /*<<filename.ml:120:22>>*/  /*<<filename.ml:120:22>>*/ caml_call2
-         /*<<filename.ml:120:22>>*/ (Stdlib_List[20], quote, [0, cmd, args]),
+        /*<<filename.ml:120:22>>*/ caml_call2
+        (Stdlib_List[20], quote, [0, cmd, args]),
      _av_ =
-        /*<<filename.ml:120:4>>*/  /*<<filename.ml:120:4>>*/ caml_call2
-         /*<<filename.ml:120:4>>*/ (Stdlib_String[7], cst$1, _au_);
-     /*<<filename.ml:121:6>>*/ return  /*<<filename.ml:121:6>>*/ caml_call2
-             /*<<filename.ml:121:6>>*/ (Stdlib[28], _av_, _at_) /*<<filename.ml:125:69>>*/ ;
-    /*<<filename.ml:125:69>>*/ }
+        /*<<filename.ml:120:4>>*/ caml_call2(Stdlib_String[7], cst$1, _au_);
+     /*<<filename.ml:121:6>>*/ return caml_call2(Stdlib[28], _av_, _at_) /*<<filename.ml:125:69>>*/ ;
+   }
    function basename(_al_){
      /*<<?>>*/ return generic_basename(is_dir_sep, current_dir_name, _al_);
    }
    function dirname(_ak_){
-     /*<<?>>*/ return generic_dirname(is_dir_sep, current_dir_name, _ak_);
+    return generic_dirname(is_dir_sep, current_dir_name, _ak_);
    }
    var
     Unix =
@@ -40776,9 +33394,7 @@
        dirname];
    function is_dir_sep$0(s, i){
     var
-     c =
-        /*<<filename.ml:135:31>>*/  /*<<filename.ml:135:31>>*/ caml_string_get
-         /*<<filename.ml:135:31>>*/ (s, i),
+     c =  /*<<filename.ml:135:31>>*/ caml_string_get(s, i),
      _ah_ = 47 === c ? 1 : 0;
     if(_ah_)
      var _ai_ = _ah_;
@@ -40791,37 +33407,19 @@
      _ab_ = caml_ml_string_length(n) < 1 ? 1 : 0,
      _ac_ =
        _ab_
-       ||
-        (47
-          !==
-            /*<<filename.ml:137:28>>*/ caml_string_get
-             /*<<filename.ml:137:28>>*/ (n, 0)
-          ? 1
-          : 0);
+       || (47 !==  /*<<filename.ml:137:28>>*/ caml_string_get(n, 0) ? 1 : 0);
     if(_ac_){
      var
       _ad_ = caml_ml_string_length(n) < 1 ? 1 : 0,
       _ae_ =
         _ad_
-        ||
-         (92
-           !==
-             /*<<filename.ml:138:31>>*/ caml_string_get
-              /*<<filename.ml:138:31>>*/ (n, 0)
-           ? 1
-           : 0);
+        || (92 !==  /*<<filename.ml:138:31>>*/ caml_string_get(n, 0) ? 1 : 0);
      if(_ae_)
       var
        _af_ = caml_ml_string_length(n) < 2 ? 1 : 0,
        _ag_ =
          _af_
-         ||
-          (58
-            !==
-              /*<<filename.ml:139:31>>*/ caml_string_get
-               /*<<filename.ml:139:31>>*/ (n, 1)
-            ? 1
-            : 0);
+         || (58 !==  /*<<filename.ml:139:31>>*/ caml_string_get(n, 1) ? 1 : 0);
      else
       var _ag_ = _ae_;
     }
@@ -40830,51 +33428,45 @@
     return _ag_;
     /*<<filename.ml:139:44>>*/ }
    function is_implicit$0(n){
-    var
-     _U_ =
-        /*<<filename.ml:141:4>>*/  /*<<filename.ml:141:4>>*/ is_relative$0
-         /*<<filename.ml:141:4>>*/ (n);
-     /*<<filename.ml:141:4>>*/ if(_U_){
+    var _U_ =  /*<<filename.ml:141:4>>*/ is_relative$0(n);
+    if(_U_){
      var
       _V_ = caml_ml_string_length(n) < 2 ? 1 : 0,
       _W_ =
         _V_
         ||
-         ( /*<<filename.ml:142:31>>*/ caml_call3
-             /*<<filename.ml:142:31>>*/ (Stdlib_String[16], n, 0, 2)
+         ( /*<<filename.ml:142:31>>*/ caml_call3(Stdlib_String[16], n, 0, 2)
            !== cst$27
            ? 1
            : 0);
-      /*<<filename.ml:142:31>>*/ if(_W_){
+     if(_W_){
       var
        _X_ = caml_ml_string_length(n) < 2 ? 1 : 0,
        _Y_ =
          _X_
          ||
-          ( /*<<filename.ml:143:31>>*/ caml_call3
-              /*<<filename.ml:143:31>>*/ (Stdlib_String[16], n, 0, 2)
+          ( /*<<filename.ml:143:31>>*/ caml_call3(Stdlib_String[16], n, 0, 2)
             !== ".\\"
             ? 1
             : 0);
-       /*<<filename.ml:143:31>>*/ if(_Y_){
+      if(_Y_){
        var
         _Z_ = caml_ml_string_length(n) < 3 ? 1 : 0,
         ___ =
           _Z_
           ||
-           ( /*<<filename.ml:144:31>>*/ caml_call3
-               /*<<filename.ml:144:31>>*/ (Stdlib_String[16], n, 0, 3)
+           ( /*<<filename.ml:144:31>>*/ caml_call3(Stdlib_String[16], n, 0, 3)
              !== cst$28
              ? 1
              : 0);
-        /*<<filename.ml:144:31>>*/ if(___)
+       if(___)
         var
          _$_ = caml_ml_string_length(n) < 3 ? 1 : 0,
          _aa_ =
            _$_
            ||
             ( /*<<filename.ml:145:31>>*/ caml_call3
-                /*<<filename.ml:145:31>>*/ (Stdlib_String[16], n, 0, 3)
+               (Stdlib_String[16], n, 0, 3)
               !== "..\\"
               ? 1
               : 0);
@@ -40889,7 +33481,7 @@
     }
     else
      var _aa_ = _U_;
-     /*<<filename.ml:145:31>>*/ return _aa_ /*<<filename.ml:145:31>>*/ ;
+    return _aa_;
     /*<<filename.ml:145:58>>*/ }
    function check_suffix$0(name, suff){
     var
@@ -40897,56 +33489,39 @@
     if(_R_)
      var
       s =
-         /*<<filename.ml:148:12>>*/  /*<<filename.ml:148:12>>*/ caml_call3
-          /*<<filename.ml:148:12>>*/ (Stdlib_String[16],
+         /*<<filename.ml:148:12>>*/ caml_call3
+         (Stdlib_String[16],
           name,
           caml_ml_string_length(name) - caml_ml_string_length(suff) | 0,
           caml_ml_string_length(suff)),
-      _S_ =
-         /*<<filename.ml:150:31>>*/  /*<<filename.ml:150:31>>*/ caml_call1
-          /*<<filename.ml:150:31>>*/ (Stdlib_String[27], suff),
+      _S_ =  /*<<filename.ml:150:31>>*/ caml_call1(Stdlib_String[27], suff),
       _T_ =
-         /*<<filename.ml:150:4>>*/ caml_call1
-           /*<<filename.ml:150:4>>*/ (Stdlib_String[27], s)
-         === _S_
+         /*<<filename.ml:150:4>>*/ caml_call1(Stdlib_String[27], s) === _S_
          ? 1
          : 0;
     else
      var _T_ = _R_;
-     /*<<filename.ml:150:4>>*/ return _T_ /*<<filename.ml:150:4>>*/ ;
+    return _T_;
     /*<<filename.ml:150:59>>*/ }
    function chop_suffix_opt$0(suffix, filename){
     var
      len_s = caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
-    if(len_s > len_f)
-      /*<<filename.ml:161:6>>*/ return 0 /*<<filename.ml:161:6>>*/ ;
+    if(len_s > len_f)  /*<<filename.ml:161:6>>*/ return 0;
     var
      r =
-        /*<<filename.ml:155:14>>*/  /*<<filename.ml:155:14>>*/ caml_call3
-         /*<<filename.ml:155:14>>*/ (Stdlib_String[16],
-         filename,
-         len_f - len_s | 0,
-         len_s),
-     _Q_ =
-        /*<<filename.ml:156:36>>*/  /*<<filename.ml:156:36>>*/ caml_call1
-         /*<<filename.ml:156:36>>*/ (Stdlib_String[27], suffix);
-     /*<<filename.ml:156:9>>*/ return  /*<<filename.ml:156:9>>*/ caml_call1
-              /*<<filename.ml:156:9>>*/ (Stdlib_String[27], r)
-            === _Q_
+        /*<<filename.ml:155:14>>*/ caml_call3
+        (Stdlib_String[16], filename, len_f - len_s | 0, len_s),
+     _Q_ =  /*<<filename.ml:156:36>>*/ caml_call1(Stdlib_String[27], suffix);
+     /*<<filename.ml:156:9>>*/ return caml_call1(Stdlib_String[27], r) === _Q_
             ? [0,
                /*<<filename.ml:157:13>>*/ caml_call3
-                /*<<filename.ml:157:13>>*/ (Stdlib_String[16],
-                filename,
-                0,
-                len_f - len_s | 0)]
+               (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
             : 0 /*<<filename.ml:161:10>>*/ ;
-    /*<<filename.ml:161:10>>*/ }
+   }
    try{
     var
-     _i_ =
-        /*<<filename.ml:165:8>>*/  /*<<filename.ml:165:8>>*/ caml_sys_getenv
-         /*<<filename.ml:165:8>>*/ ("TEMP"),
+     _i_ =  /*<<filename.ml:165:8>>*/ caml_sys_getenv("TEMP"),
      temp_dir_name$0 = _i_;
    }
    catch(_P_){
@@ -40957,42 +33532,30 @@
    function quote$0(s){
     var
      l = caml_ml_string_length(s),
-     b =
-        /*<<filename.ml:168:12>>*/  /*<<filename.ml:168:12>>*/ caml_call1
-         /*<<filename.ml:168:12>>*/ (Stdlib_Buffer[1], l + 20 | 0);
-     /*<<filename.ml:169:4>>*/  /*<<filename.ml:169:4>>*/ caml_call2
-      /*<<filename.ml:169:4>>*/ (Stdlib_Buffer[12], b, 34);
+     b =  /*<<filename.ml:168:12>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
+     /*<<filename.ml:169:4>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
      var i$0 = i;
       /*<<filename.ml:171:6>>*/ for(;;){
       if(i$0 === l)
-        /*<<filename.ml:171:20>>*/ return  /*<<filename.ml:171:20>>*/ caml_call2
-                /*<<filename.ml:171:20>>*/ (Stdlib_Buffer[12], b, 34) /*<<filename.ml:175:48>>*/ ;
-      var
-       c =
-          /*<<filename.ml:172:12>>*/  /*<<filename.ml:172:12>>*/ caml_string_get
-           /*<<filename.ml:172:12>>*/ (s, i$0);
+        /*<<filename.ml:171:20>>*/ return caml_call2(Stdlib_Buffer[12], b, 34) /*<<filename.ml:175:48>>*/ ;
+      var c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
       if(34 === c){
        var _N_ = 0;
         /*<<filename.ml:173:16>>*/ if(counter >= 50)
-         /*<<filename.ml:173:16>>*/ return  /*<<filename.ml:173:16>>*/ caml_trampoline_return
-                 /*<<filename.ml:173:16>>*/ (loop_bs, [0, _N_, i$0]) /*<<filename.ml:175:48>>*/ ;
+        return caml_trampoline_return(loop_bs, [0, _N_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:173:16>>*/ return  /*<<filename.ml:173:16>>*/ loop_bs
-                /*<<filename.ml:173:16>>*/ (counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
+        /*<<filename.ml:173:16>>*/ return loop_bs(counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
       if(92 === c){
        var _O_ = 0;
         /*<<filename.ml:174:16>>*/ if(counter >= 50)
-         /*<<filename.ml:174:16>>*/ return  /*<<filename.ml:174:16>>*/ caml_trampoline_return
-                 /*<<filename.ml:174:16>>*/ (loop_bs, [0, _O_, i$0]) /*<<filename.ml:175:48>>*/ ;
+        return caml_trampoline_return(loop_bs, [0, _O_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:174:16>>*/ return  /*<<filename.ml:174:16>>*/ loop_bs
-                /*<<filename.ml:174:16>>*/ (counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
+        /*<<filename.ml:174:16>>*/ return loop_bs(counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
-       /*<<filename.ml:175:16>>*/  /*<<filename.ml:175:16>>*/ caml_call2
-        /*<<filename.ml:175:16>>*/ (Stdlib_Buffer[12], b, c);
-      var i$1 =  /*<<filename.ml:175:16>>*/ i$0 + 1 | 0;
+       /*<<filename.ml:175:16>>*/ caml_call2(Stdlib_Buffer[12], b, c);
+      var i$1 = i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<filename.ml:175:48>>*/ }
@@ -41001,37 +33564,25 @@
      var n$0 = n, i$0 = i;
       /*<<filename.ml:177:6>>*/ for(;;){
       if(i$0 === l){
-        /*<<filename.ml:178:8>>*/  /*<<filename.ml:178:8>>*/ caml_call2
-         /*<<filename.ml:178:8>>*/ (Stdlib_Buffer[12], b, 34);
-        /*<<filename.ml:178:8>>*/ return  /*<<filename.ml:178:8>>*/ add_bs
-                /*<<filename.ml:178:8>>*/ (n$0) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:178:8>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
+       return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
       }
-      var
-       match =
-          /*<<filename.ml:181:14>>*/  /*<<filename.ml:181:14>>*/ caml_string_get
-           /*<<filename.ml:181:14>>*/ (s, i$0);
+      var match =  /*<<filename.ml:181:14>>*/ caml_string_get(s, i$0);
       if(34 === match){
-        /*<<filename.ml:182:18>>*/  /*<<filename.ml:182:18>>*/ add_bs
-         /*<<filename.ml:182:18>>*/ ((2 * n$0 | 0) + 1 | 0);
-        /*<<filename.ml:182:34>>*/  /*<<filename.ml:182:34>>*/ caml_call2
-         /*<<filename.ml:182:34>>*/ (Stdlib_Buffer[12], b, 34);
-       var _M_ =  /*<<filename.ml:182:34>>*/ i$0 + 1 | 0;
-        /*<<filename.ml:182:34>>*/ if(counter >= 50)
-         /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ caml_trampoline_return
-                 /*<<filename.ml:182:34>>*/ (loop$0, [0, _M_]) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
+        /*<<filename.ml:182:34>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
+       var _M_ = i$0 + 1 | 0;
+       if(counter >= 50)
+        return caml_trampoline_return(loop$0, [0, _M_]) /*<<filename.ml:185:9>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:182:34>>*/ return  /*<<filename.ml:182:34>>*/ loop$0
-                /*<<filename.ml:182:34>>*/ (counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:182:34>>*/ return loop$0(counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
       }
       if(92 !== match){
-        /*<<filename.ml:184:18>>*/  /*<<filename.ml:184:18>>*/ add_bs
-         /*<<filename.ml:184:18>>*/ (n$0);
-        /*<<filename.ml:184:18>>*/ if(counter >= 50)
-         /*<<filename.ml:184:18>>*/ return  /*<<filename.ml:184:18>>*/ caml_trampoline_return
-                 /*<<filename.ml:184:18>>*/ (loop$0, [0, i$0]) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:184:18>>*/ add_bs(n$0);
+       if(counter >= 50)
+        return caml_trampoline_return(loop$0, [0, i$0]) /*<<filename.ml:185:9>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:184:18>>*/ return  /*<<filename.ml:184:18>>*/ loop$0
-                /*<<filename.ml:184:18>>*/ (counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
       }
       var i$1 =  /*<<filename.ml:183:18>>*/ i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
@@ -41043,61 +33594,46 @@
      if(n >= 1){
       var j = _K_;
       for(;;){
-        /*<<filename.ml:186:38>>*/  /*<<filename.ml:186:38>>*/ caml_call2
-         /*<<filename.ml:186:38>>*/ (Stdlib_Buffer[12], b, 92);
-       var _L_ =  /*<<filename.ml:186:38>>*/ j + 1 | 0;
+        /*<<filename.ml:186:38>>*/ caml_call2(Stdlib_Buffer[12], b, 92);
+       var _L_ = j + 1 | 0;
        if(n === j) break;
        j = _L_;
       }
      }
      /*<<filename.ml:186:66>>*/ }
-     /*<<filename.ml:188:4>>*/  /*<<filename.ml:188:4>>*/ loop
-      /*<<filename.ml:188:4>>*/ (0);
-     /*<<filename.ml:188:4>>*/ return  /*<<filename.ml:188:4>>*/ caml_call1
-             /*<<filename.ml:188:4>>*/ (Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
-    /*<<filename.ml:189:21>>*/ }
+     /*<<filename.ml:188:4>>*/ loop(0);
+    return caml_call1(Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
+   }
    function quote_cmd_filename(f){
      /*<<filename.ml:222:4>>*/ if
      (!
        /*<<filename.ml:222:7>>*/ caml_call2
-        /*<<filename.ml:222:7>>*/ (Stdlib_String[23],
+       (Stdlib_String[23],
         function(param){
           /*<<filename.ml:222:21>>*/ if(34 !== param && 37 !== param)
-           /*<<filename.ml:222:57>>*/ return 0 /*<<filename.ml:222:57>>*/ ;
-          /*<<filename.ml:222:45>>*/ return 1 /*<<filename.ml:222:45>>*/ ;
+           /*<<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
-               /*<<filename.ml:224:12>>*/ (Stdlib_String[15], f, 32)
+      /*<<filename.ml:224:12>>*/ return caml_call2(Stdlib_String[15], f, 32)
              ?  /*<<filename.ml:225:23>>*/ caml_call2
-                /*<<filename.ml:225:23>>*/ (Stdlib_String[7],
-                cst$7,
-                [0, cst$6, [0, f, _c_]])
+               (Stdlib_String[7], cst$7, [0, cst$6, [0, f, _c_]])
              : f /*<<filename.ml:227:7>>*/ ;
     var
      _J_ =
-        /*<<filename.ml:223:15>>*/  /*<<filename.ml:223:15>>*/ caml_call2
-         /*<<filename.ml:223:15>>*/ (Stdlib[28],
-         cst_Filename_quote_command_bad,
-         f);
-     /*<<filename.ml:223:15>>*/ return  /*<<filename.ml:223:15>>*/ caml_call1
-             /*<<filename.ml:223:15>>*/ (Stdlib[2], _J_) /*<<filename.ml:227:7>>*/ ;
-    /*<<filename.ml:227:7>>*/ }
+        /*<<filename.ml:223:15>>*/ caml_call2
+        (Stdlib[28], cst_Filename_quote_command_bad, f);
+    return caml_call1(Stdlib[2], _J_) /*<<filename.ml:227:7>>*/ ;
+   }
    function quote_command$0(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:232:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:240:43>>*/ if
-      ( /*<<filename.ml:240:43>>*/ caml_equal
-         /*<<filename.ml:240:43>>*/ (stderr, stdout))
+      /*<<filename.ml:240:43>>*/ if(caml_equal(stderr, stdout))
       var _w_ = cst_2_1$0;
      else
       var
-       _H_ =
-          /*<<filename.ml:242:53>>*/  /*<<filename.ml:242:53>>*/ quote_cmd_filename
-           /*<<filename.ml:242:53>>*/ (f),
-       _w_ =
-          /*<<filename.ml:242:45>>*/ caml_call2
-           /*<<filename.ml:242:45>>*/ (Stdlib[28], cst_2$0, _H_);
+       _H_ =  /*<<filename.ml:242:53>>*/ quote_cmd_filename(f),
+       _w_ =  /*<<filename.ml:242:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
      var _x_ = _w_;
     }
     else
@@ -41106,39 +33642,27 @@
     if(stdout)
      var
       f$0 = stdout[1],
-      _z_ =
-         /*<<filename.ml:238:55>>*/  /*<<filename.ml:238:55>>*/ quote_cmd_filename
-          /*<<filename.ml:238:55>>*/ (f$0),
-      _A_ =
-         /*<<filename.ml:238:48>>*/ caml_call2
-          /*<<filename.ml:238:48>>*/ (Stdlib[28], cst$8, _z_);
+      _z_ =  /*<<filename.ml:238:55>>*/ quote_cmd_filename(f$0),
+      _A_ =  /*<<filename.ml:238:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
     else
      var _A_ = cst$15;
     var _B_ =  /*<<filename.ml:238:6>>*/ [0, _A_, _y_];
     if(stdin)
      var
       f$1 = stdin[1],
-      _C_ =
-         /*<<filename.ml:237:55>>*/  /*<<filename.ml:237:55>>*/ quote_cmd_filename
-          /*<<filename.ml:237:55>>*/ (f$1),
-      _D_ =
-         /*<<filename.ml:237:48>>*/ caml_call2
-          /*<<filename.ml:237:48>>*/ (Stdlib[28], cst$9, _C_);
+      _C_ =  /*<<filename.ml:237:55>>*/ quote_cmd_filename(f$1),
+      _D_ =  /*<<filename.ml:237:48>>*/ caml_call2(Stdlib[28], cst$9, _C_);
     else
      var _D_ = cst$14;
     var
      _E_ =
-        /*<<filename.ml:236:35>>*/  /*<<filename.ml:236:35>>*/ caml_call2
-         /*<<filename.ml:236:35>>*/ (Stdlib_List[20], quote$0, args),
-     s =
-        /*<<filename.ml:236:16>>*/  /*<<filename.ml:236:16>>*/ caml_call2
-         /*<<filename.ml:236:16>>*/ (Stdlib_String[7], cst$10, _E_),
+        /*<<filename.ml:236:35>>*/ caml_call2(Stdlib_List[20], quote$0, args),
+     s =  /*<<filename.ml:236:16>>*/ caml_call2(Stdlib_String[7], cst$10, _E_),
      b =
-        /*<<filename.ml:211:12>>*/  /*<<filename.ml:211:12>>*/ caml_call1
-         /*<<filename.ml:211:12>>*/ (Stdlib_Buffer[1],
-         caml_ml_string_length(s) + 20 | 0);
-     /*<<filename.ml:212:4>>*/  /*<<filename.ml:212:4>>*/ caml_call2
-      /*<<filename.ml:212:4>>*/ (Stdlib_String[30],
+        /*<<filename.ml:211:12>>*/ caml_call1
+        (Stdlib_Buffer[1], caml_ml_string_length(s) + 20 | 0);
+     /*<<filename.ml:212:4>>*/ caml_call2
+     (Stdlib_String[30],
       function(c){
        a:
        {
@@ -41158,47 +33682,31 @@
           switch(c - 33 | 0){case 2:case 3:case 6: break a;
           }
          }
-         /*<<filename.ml:216:12>>*/  /*<<filename.ml:216:12>>*/ caml_call2
-          /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, 94);
-         /*<<filename.ml:216:12>>*/ return  /*<<filename.ml:216:12>>*/ caml_call2
-                 /*<<filename.ml:216:12>>*/ (Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
+         /*<<filename.ml:216:12>>*/ caml_call2(Stdlib_Buffer[12], b, 94);
+        return caml_call2(Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
        }
-        /*<<filename.ml:218:12>>*/ return  /*<<filename.ml:218:12>>*/ caml_call2
-                /*<<filename.ml:218:12>>*/ (Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
-       /*<<filename.ml:218:31>>*/ },
+        /*<<filename.ml:218:12>>*/ return caml_call2(Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
+      },
       s);
     var
      _F_ =
         /*<<filename.ml:235:6>>*/ [0,
         cst$11,
         [0,
-          /*<<filename.ml:212:4>>*/ caml_call1
-           /*<<filename.ml:212:4>>*/ (Stdlib_Buffer[2], b),
+          /*<<filename.ml:212:4>>*/ caml_call1(Stdlib_Buffer[2], b),
          [0, _D_, _B_]]],
      _G_ =
         /*<<filename.ml:232:21>>*/ [0,
         cst$12,
-        [0,
-          /*<<filename.ml:234:6>>*/ quote_cmd_filename
-           /*<<filename.ml:234:6>>*/ (cmd),
-         _F_]];
-     /*<<filename.ml:232:21>>*/ return  /*<<filename.ml:232:21>>*/ caml_call2
-             /*<<filename.ml:232:21>>*/ (Stdlib_String[7], cst$13, _G_) /*<<filename.ml:244:5>>*/ ;
-    /*<<filename.ml:244:5>>*/ }
+        [0,  /*<<filename.ml:234:6>>*/ quote_cmd_filename(cmd), _F_]];
+     /*<<filename.ml:232:21>>*/ return caml_call2
+            (Stdlib_String[7], cst$13, _G_) /*<<filename.ml:244:5>>*/ ;
+   }
    function drive_and_path(s){
     var
-     _s_ =
-       2
-        <=
-          /*<<filename.ml:250:4>>*/ caml_ml_string_length
-           /*<<filename.ml:250:4>>*/ (s)
-        ? 1
-        : 0;
+     _s_ = 2 <=  /*<<filename.ml:250:4>>*/ caml_ml_string_length(s) ? 1 : 0;
     if(_s_){
-     var
-      param =
-         /*<<filename.ml:250:38>>*/  /*<<filename.ml:250:38>>*/ caml_string_get
-          /*<<filename.ml:250:38>>*/ (s, 0);
+     var param =  /*<<filename.ml:250:38>>*/ caml_string_get(s, 0);
      a:
      {
       b:
@@ -41215,54 +33723,36 @@
      var
       _u_ =
          /*<<filename.ml:250:28>>*/ _t_
-         ? 58
-           ===
-             /*<<filename.ml:250:47>>*/ caml_string_get
-              /*<<filename.ml:250:47>>*/ (s, 1)
-           ? 1
-           : 0
+         ? 58 ===  /*<<filename.ml:250: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:254:9>>*/ ;
+      /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
     var
      _v_ =
-        /*<<filename.ml:253:28>>*/  /*<<filename.ml:253:28>>*/ caml_call3
-         /*<<filename.ml:253:28>>*/ (Stdlib_String[16],
-         s,
-         2,
-         caml_ml_string_length(s) - 2 | 0);
+        /*<<filename.ml:253: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
-              /*<<filename.ml:253:10>>*/ (Stdlib_String[16], s, 0, 2),
+             /*<<filename.ml:253:10>>*/ caml_call3(Stdlib_String[16], s, 0, 2),
             _v_] /*<<filename.ml:253:9>>*/ ;
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
     var
-     match =
-        /*<<filename.ml:256:24>>*/  /*<<filename.ml:256:24>>*/ drive_and_path
-         /*<<filename.ml:256:24>>*/ (s),
+     match =  /*<<filename.ml:256:24>>*/ drive_and_path(s),
      path = match[2],
      drive = match[1],
      dir =
-        /*<<filename.ml:257:14>>*/  /*<<filename.ml:257:14>>*/ generic_dirname
-         /*<<filename.ml:257:14>>*/ (is_dir_sep$0, current_dir_name$0, path);
-     /*<<filename.ml:258:4>>*/ return  /*<<filename.ml:258:4>>*/ caml_call2
-             /*<<filename.ml:258:4>>*/ (Stdlib[28], drive, dir) /*<<filename.ml:258:15>>*/ ;
-    /*<<filename.ml:258:15>>*/ }
+        /*<<filename.ml:257:14>>*/ generic_dirname
+        (is_dir_sep$0, current_dir_name$0, path);
+     /*<<filename.ml:258:4>>*/ return caml_call2(Stdlib[28], drive, dir) /*<<filename.ml:258:15>>*/ ;
+   }
    function basename$0(s){
-    var
-     path =
-        /*<<filename.ml:260:25>>*/ drive_and_path
-          /*<<filename.ml:260:25>>*/ (s)
-        [2];
-     /*<<filename.ml:261:4>>*/ return  /*<<filename.ml:261:4>>*/ generic_basename
-             /*<<filename.ml:261:4>>*/ (is_dir_sep$0,
-             current_dir_name$0,
-             path) /*<<filename.ml:261:53>>*/ ;
-    /*<<filename.ml:261:53>>*/ }
+    var path =  /*<<filename.ml:260:25>>*/ drive_and_path(s)[2];
+     /*<<filename.ml:261:4>>*/ return generic_basename
+            (is_dir_sep$0, current_dir_name$0, path) /*<<filename.ml:261:53>>*/ ;
+   }
    var
     Win32 =
        /*<<filename.ml:130:25>>*/ [0,
@@ -41284,7 +33774,7 @@
      /*<<?>>*/ return generic_basename(is_dir_sep$0, current_dir_name$1, _r_);
    }
    function dirname$1(_q_){
-     /*<<?>>*/ return generic_dirname(is_dir_sep$0, current_dir_name$1, _q_);
+    return generic_dirname(is_dir_sep$0, current_dir_name$1, _q_);
    }
    var
     Cygwin =
@@ -41323,106 +33813,73 @@
     var l = caml_ml_string_length(dirname);
      /*<<filename.ml:291:2>>*/ if
      (0 !== l
-      &&
-       !
-        /*<<filename.ml:291:14>>*/ is_dir_sep$1
-         /*<<filename.ml:291:14>>*/ (dirname, l - 1 | 0)){
+      && !  /*<<filename.ml:291:14>>*/ is_dir_sep$1(dirname, l - 1 | 0)){
      var
       _p_ =
-         /*<<filename.ml:293:17>>*/  /*<<filename.ml:293:17>>*/ caml_call2
-          /*<<filename.ml:293:17>>*/ (Stdlib[28], dir_sep$2, filename);
-      /*<<filename.ml:293:17>>*/ return  /*<<filename.ml:293:17>>*/ caml_call2
-              /*<<filename.ml:293:17>>*/ (Stdlib[28], dirname, _p_) /*<<filename.ml:293:35>>*/ ;
-    }
-     /*<<filename.ml:292:7>>*/ return  /*<<filename.ml:292:7>>*/ caml_call2
-             /*<<filename.ml:292:7>>*/ (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
-    /*<<filename.ml:293:35>>*/ }
+         /*<<filename.ml:293:17>>*/ caml_call2
+         (Stdlib[28], dir_sep$2, filename);
+     return caml_call2(Stdlib[28], dirname, _p_) /*<<filename.ml:293:35>>*/ ;
+    }
+     /*<<filename.ml:292:7>>*/ return caml_call2
+            (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
+   }
    function chop_suffix(name, suff){
      /*<<filename.ml:296:2>>*/ return  /*<<filename.ml:296:5>>*/ check_suffix$1
-              /*<<filename.ml:296:5>>*/ (name, suff)
+             (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:298:7>>*/ (Stdlib[1], cst_Filename_chop_suffix) /*<<filename.ml:298:41>>*/ ;
-    /*<<filename.ml:298:41>>*/ }
+              (Stdlib[1], cst_Filename_chop_suffix) /*<<filename.ml:298:41>>*/ ;
+   }
    function extension_len(name){
     var i$3 = caml_ml_string_length(name) - 1 | 0, i0 = i$3;
      /*<<filename.ml:307:4>>*/ for(;;){
-     if
-      (0 <= i0
-       &&
-        !
-         /*<<filename.ml:307:16>>*/ is_dir_sep$1
-          /*<<filename.ml:307:16>>*/ (name, i0)){
-       /*<<filename.ml:308:12>>*/ if
-       (46
-        ===
-          /*<<filename.ml:308:12>>*/ caml_string_get
-           /*<<filename.ml:308:12>>*/ (name, i0))
-       break;
+     if(0 <= i0 && !  /*<<filename.ml:307:16>>*/ is_dir_sep$1(name, i0)){
+       /*<<filename.ml:308:12>>*/ if(46 === caml_string_get(name, i0)) break;
       var i$2 =  /*<<filename.ml:309:9>>*/ i0 - 1 | 0;
       i0 = i$2;
       continue;
      }
-      /*<<filename.ml:307:39>>*/ return 0 /*<<filename.ml:307:39>>*/ ;
+      /*<<filename.ml:307:39>>*/ return 0;
     }
     var i$1 =  /*<<filename.ml:308:32>>*/ i0 - 1 | 0, i = i$1;
      /*<<filename.ml:302:4>>*/ for(;;){
-     if
-      (0 <= i
-       &&
-        !
-         /*<<filename.ml:302:16>>*/ is_dir_sep$1
-          /*<<filename.ml:302:16>>*/ (name, i)){
-       /*<<filename.ml:303:12>>*/ if
-       (46
-        !==
-          /*<<filename.ml:303:12>>*/ caml_string_get
-           /*<<filename.ml:303:12>>*/ (name, i))
+     if(0 <= i && !  /*<<filename.ml:302:16>>*/ is_dir_sep$1(name, i)){
+       /*<<filename.ml:303:12>>*/ if(46 !== caml_string_get(name, i))
        return caml_ml_string_length(name) - i0 | 0;
       var i$0 =  /*<<filename.ml:303:32>>*/ i - 1 | 0;
       i = i$0;
       continue;
      }
-      /*<<filename.ml:302:39>>*/ return 0 /*<<filename.ml:302:39>>*/ ;
+      /*<<filename.ml:302:39>>*/ return 0;
     }
     /*<<filename.ml:311:37>>*/ }
    function extension(name){
-    var
-     l =
-        /*<<filename.ml:314:10>>*/  /*<<filename.ml:314:10>>*/ extension_len
-         /*<<filename.ml:314:10>>*/ (name);
+    var l =  /*<<filename.ml:314:10>>*/ extension_len(name);
      /*<<filename.ml:315:2>>*/ return 0 === l
             ? cst$18
             :  /*<<filename.ml:315:24>>*/ caml_call3
-               /*<<filename.ml:315:24>>*/ (Stdlib_String[16],
+              (Stdlib_String[16],
                name,
                caml_ml_string_length(name) - l | 0,
                l) /*<<filename.ml:315:66>>*/ ;
-    /*<<filename.ml:315:66>>*/ }
+   }
    function chop_extension(name){
-    var
-     l =
-        /*<<filename.ml:318:10>>*/  /*<<filename.ml:318:10>>*/ extension_len
-         /*<<filename.ml:318:10>>*/ (name);
+    var l =  /*<<filename.ml:318:10>>*/ extension_len(name);
      /*<<filename.ml:319:2>>*/ return 0 === l
             ?  /*<<filename.ml:319:16>>*/ caml_call1
-               /*<<filename.ml:319:16>>*/ (Stdlib[1],
-               cst_Filename_chop_extension)
+              (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:320:49>>*/ }
+   }
    function remove_extension(name){
-    var
-     l =
-        /*<<filename.ml:323:10>>*/  /*<<filename.ml:323:10>>*/ extension_len
-         /*<<filename.ml:323:10>>*/ (name);
+    var l =  /*<<filename.ml:323:10>>*/ extension_len(name);
      /*<<filename.ml:324:2>>*/ return 0 === l
             ? name
             : caml_call3
@@ -41430,76 +33887,60 @@
                name,
                0,
                caml_ml_string_length(name) - l | 0) /*<<filename.ml:324:68>>*/ ;
-    /*<<filename.ml:324:68>>*/ }
+   }
    var
     prng_key =
-       /*<<filename.ml:330:2>>*/  /*<<filename.ml:330:2>>*/ caml_call2
-        /*<<filename.ml:330:2>>*/ (Stdlib_Domain[10][1],
-        0,
-        Stdlib_Random[19][2]);
+       /*<<filename.ml:330:2>>*/ caml_call2
+       (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function temp_file_name(temp_dir, prefix, suffix){
     var
      random_state =
-        /*<<filename.ml:333:21>>*/  /*<<filename.ml:333:21>>*/ caml_call1
-         /*<<filename.ml:333:21>>*/ (Stdlib_Domain[10][2], prng_key),
+        /*<<filename.ml:333:21>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
      rnd =
-        /*<<filename.ml:334:12>>*/  /*<<filename.ml:334:12>>*/ caml_call1
-         /*<<filename.ml:334:12>>*/ (Stdlib_Random[19][4], random_state)
+        /*<<filename.ml:334:12>>*/ caml_call1
+        (Stdlib_Random[19][4], random_state)
        & 16777215;
-     /*<<filename.ml:335:18>>*/ return  /*<<filename.ml:335:18>>*/ concat
-             /*<<filename.ml:335:18>>*/ (temp_dir,
-              /*<<filename.ml:335:18>>*/ caml_call4
-               /*<<filename.ml:335:18>>*/ (Stdlib_Printf[4],
-               _f_,
-               prefix,
-               rnd,
-               suffix)) /*<<filename.ml:335:63>>*/ ;
-    /*<<filename.ml:335:63>>*/ }
+     /*<<filename.ml:335:18>>*/ return concat
+            (temp_dir, caml_call4(Stdlib_Printf[4], _f_, prefix, rnd, suffix)) /*<<filename.ml:335:63>>*/ ;
+   }
    var
     current_temp_dir_name =
-       /*<<filename.ml:338:2>>*/  /*<<filename.ml:338:2>>*/ caml_call2
-        /*<<filename.ml:338:2>>*/ (Stdlib_Domain[10][1],
+       /*<<filename.ml:338:2>>*/ caml_call2
+       (Stdlib_Domain[10][1],
         [0, function(_o_){ /*<<?>>*/ return _o_;}],
         function(param){
           /*<<filename.ml:338:58>>*/ return temp_dir_name$1 /*<<filename.ml:332:19>>*/ ;
          /*<<filename.ml:338:71>>*/ });
    function set_temp_dir_name(s){
-     /*<<filename.ml:340:26>>*/ return  /*<<filename.ml:340:26>>*/ caml_call2
-             /*<<filename.ml:340:26>>*/ (Stdlib_Domain[10][3],
-             current_temp_dir_name,
-             s) /*<<filename.ml:340:64>>*/ ;
-    /*<<filename.ml:340:64>>*/ }
+     /*<<filename.ml:340:26>>*/ return caml_call2
+            (Stdlib_Domain[10][3], current_temp_dir_name, s) /*<<filename.ml:340:64>>*/ ;
+   }
    function get_temp_dir_name(param){
      /*<<filename.ml:341:27>>*/ return  /*<<filename.ml:340:22>>*/ caml_call1
-             /*<<filename.ml:340:22>>*/ (Stdlib_Domain[10][2],
-             current_temp_dir_name) /*<<filename.ml:341:63>>*/ ;
-    /*<<filename.ml:341:63>>*/ }
+            (Stdlib_Domain[10][2], current_temp_dir_name) /*<<filename.ml:341:63>>*/ ;
+   }
    function temp_file(opt, prefix, suffix){
     var
      temp_dir =
        opt
         ? opt[1]
         :  /*<<filename.ml:343:27>>*/ caml_call1
-           /*<<filename.ml:343:27>>*/ (Stdlib_Domain[10][2],
-           current_temp_dir_name),
+          (Stdlib_Domain[10][2], current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:345:4>>*/ for(;;){
      var
       name =
-         /*<<filename.ml:345:15>>*/  /*<<filename.ml:345:15>>*/ temp_file_name
-          /*<<filename.ml:345:15>>*/ (temp_dir, prefix, suffix);
+         /*<<filename.ml:345:15>>*/ 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:6>>*/ ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open
-          /*<<filename.ml:347:16>>*/ (name, _g_, 384));
-       /*<<filename.ml:347:6>>*/ return name /*<<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;
      }
      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:350:28>>*/ (e, 0);
+        /*<<filename.ml:350:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:350:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
@@ -41513,32 +33954,26 @@
        opt
         ? opt[1]
         :  /*<<filename.ml:354:17>>*/ caml_call1
-           /*<<filename.ml:354:17>>*/ (Stdlib_Domain[10][2],
-           current_temp_dir_name),
+          (Stdlib_Domain[10][2], current_temp_dir_name),
      counter = 0;
      /*<<filename.ml:357:4>>*/ for(;;){
      var
       name =
-         /*<<filename.ml:357:15>>*/  /*<<filename.ml:357:15>>*/ temp_file_name
-          /*<<filename.ml:357:15>>*/ (temp_dir, prefix, suffix);
+         /*<<filename.ml:357:15>>*/ temp_file_name(temp_dir, prefix, suffix);
       /*<<filename.ml:358:4>>*/ try{
       var
        _n_ =
           /*<<filename.ml:359:6>>*/ [0,
           name,
            /*<<filename.ml:360:7>>*/ caml_call3
-            /*<<filename.ml:360:7>>*/ (Stdlib[62],
-            [0, 1, [0, 3, [0, 5, mode]]],
-            perms,
-            name)];
-       /*<<filename.ml:359:6>>*/ return _n_ /*<<filename.ml:359:6>>*/ ;
+           (Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
+       /*<<filename.ml:359: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:362:28>>*/ (e, 0);
+        /*<<filename.ml:362:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:362:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
@@ -41550,26 +33985,22 @@
        _k_
         ? _k_[1]
         :  /*<<filename.ml:365:26>>*/ caml_call1
-           /*<<filename.ml:365:26>>*/ (Stdlib_Domain[10][2],
-           current_temp_dir_name),
+          (Stdlib_Domain[10][2], current_temp_dir_name),
      perms = opt ? opt[1] : 448,
      counter = 0;
      /*<<filename.ml:368:4>>*/ for(;;){
      var
       name =
-         /*<<filename.ml:368:15>>*/  /*<<filename.ml:368:15>>*/ temp_file_name
-          /*<<filename.ml:368:15>>*/ (temp_dir, prefix, suffix);
+         /*<<filename.ml:368:15>>*/ 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:370:6>>*/ (name, perms);
-       /*<<filename.ml:370:6>>*/ return name /*<<filename.ml:370:6>>*/ ;
+       /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir(name, perms);
+      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:373:28>>*/ (e, 0);
+        /*<<filename.ml:373:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:373:41>>*/ counter + 1 | 0;
       counter = counter$0;
      }
@@ -41611,141 +34042,106 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     zero = [254, 0., 0.],
     one = [254, 1., 0.],
     i = [254, 0., 1.],
     _a_ = [254, 0., 0.];
    function add(x, y){
-     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]] /*<<complex.ml:24:14>>*/ ;
+     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]];
     /*<<complex.ml:24:54>>*/ }
    function sub(x, y){
-     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]] /*<<complex.ml:26:14>>*/ ;
+     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]];
     /*<<complex.ml:26:54>>*/ }
    function neg(x){
-     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]] /*<<complex.ml:28:12>>*/ ;
+     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]];
     /*<<complex.ml:28:42>>*/ }
    function conj(x){
-     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]] /*<<complex.ml:30:13>>*/ ;
+     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]];
     /*<<complex.ml:30:40>>*/ }
    function mul(x, y){
      /*<<complex.ml:32:14>>*/ return [254,
             x[1] * y[1] - x[2] * y[2],
-            x[1] * y[2] + x[2] * y[1]] /*<<complex.ml:32:14>>*/ ;
+            x[1] * y[2] + x[2] * y[1]];
     /*<<complex.ml:33:51>>*/ }
    function div(x, y){
      /*<<complex.ml:36:2>>*/ if
-     ( /*<<complex.ml:36:23>>*/ Math.abs /*<<complex.ml:36:23>>*/ (y[2])
-      <=  /*<<complex.ml:36:5>>*/ Math.abs /*<<complex.ml:36:5>>*/ (y[1])){
+     ( /*<<complex.ml:36:23>>*/ Math.abs(y[2])
+      <=  /*<<complex.ml:36:5>>*/ Math.abs(y[1])){
      var
       r =  /*<<complex.ml:37:12>>*/ y[2] / y[1],
       d =  /*<<complex.ml:38:12>>*/ y[1] + r * y[2];
       /*<<complex.ml:39:4>>*/ return [254,
              (x[1] + r * x[2]) / d,
-             (x[2] - r * x[1]) / d] /*<<complex.ml:39:4>>*/ ;
+             (x[2] - r * x[1]) / d];
     }
     var
      r$0 =  /*<<complex.ml:42:12>>*/ y[1] / y[2],
      d$0 =  /*<<complex.ml:43:12>>*/ y[2] + r$0 * y[1];
      /*<<complex.ml:44:4>>*/ return [254,
             (r$0 * x[1] + x[2]) / d$0,
-            (r$0 * x[2] - x[1]) / d$0] /*<<complex.ml:44:4>>*/ ;
+            (r$0 * x[2] - x[1]) / d$0];
     /*<<complex.ml:45:37>>*/ }
    function inv(x){
-     /*<<complex.ml:47:12>>*/ return  /*<<complex.ml:47:12>>*/ div
-             /*<<complex.ml:47:12>>*/ (one, x) /*<<complex.ml:47:21>>*/ ;
-    /*<<complex.ml:47:21>>*/ }
+     /*<<complex.ml:47:12>>*/ return div(one, x) /*<<complex.ml:47:21>>*/ ;
+   }
    function norm2(x){
-     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2] /*<<complex.ml:49:14>>*/ ;
+     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2];
     /*<<complex.ml:49:42>>*/ }
    function norm(x){
-     /*<<complex.ml:51:13>>*/ return  /*<<complex.ml:51:13>>*/ runtime.caml_hypot_float
-             /*<<complex.ml:51:13>>*/ (x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
-    /*<<complex.ml:51:34>>*/ }
+     /*<<complex.ml:51:13>>*/ return runtime.caml_hypot_float(x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
+   }
    function arg(x){
-     /*<<complex.ml:53:12>>*/ return  /*<<complex.ml:53:12>>*/ Math.atan2
-             /*<<complex.ml:53:12>>*/ (x[2], x[1]) /*<<complex.ml:53:27>>*/ ;
-    /*<<complex.ml:53:27>>*/ }
+     /*<<complex.ml:53:12>>*/ return Math.atan2(x[2], x[1]) /*<<complex.ml:53:27>>*/ ;
+   }
    function polar(n, a){
      /*<<complex.ml:55:16>>*/ return [254,
-             /*<<complex.ml:55:23>>*/ Math.cos /*<<complex.ml:55:23>>*/ (a)
-            * n,
-             /*<<complex.ml:55:40>>*/ Math.sin /*<<complex.ml:55:40>>*/ (a)
-            * n] /*<<complex.ml:55:16>>*/ ;
+             /*<<complex.ml:55:23>>*/ Math.cos(a) * n,
+             /*<<complex.ml:55:40>>*/ Math.sin(a) * n] /*<<complex.ml:55:16>>*/ ;
     /*<<complex.ml:55:52>>*/ }
    function sqrt(x){
      /*<<complex.ml:58:2>>*/ if(x[1] === 0. && x[2] === 0.)
-      /*<<complex.ml:58:35>>*/ return _a_ /*<<complex.ml:58:35>>*/ ;
+      /*<<complex.ml:58:35>>*/ return _a_;
     var
-     r =
-        /*<<complex.ml:60:12>>*/  /*<<complex.ml:60:12>>*/ Math.abs
-         /*<<complex.ml:60:12>>*/ (x[1]),
-     i =
-        /*<<complex.ml:60:35>>*/  /*<<complex.ml:60:35>>*/ Math.abs
-         /*<<complex.ml:60:35>>*/ (x[2]);
+     r =  /*<<complex.ml:60:12>>*/ Math.abs(x[1]),
+     i =  /*<<complex.ml:60:35>>*/ Math.abs(x[2]);
     if(i <= r)
      var
       q =  /*<<complex.ml:63:16>>*/ i / r,
       w =
-         /*<<complex.ml:64:8>>*/ Math.sqrt /*<<complex.ml:64:8>>*/ (r)
+         /*<<complex.ml:64:8>>*/ Math.sqrt(r)
         *
           /*<<complex.ml:64:19>>*/ Math.sqrt
-           /*<<complex.ml:64:19>>*/ (0.5
-           *
-            (1.
-            +
-              /*<<complex.ml:64:39>>*/ Math.sqrt
-               /*<<complex.ml:64:39>>*/ (1. + q * q)));
+          (0.5 * (1. +  /*<<complex.ml:64:39>>*/ Math.sqrt(1. + q * q)));
     else
      var
       q$0 =  /*<<complex.ml:66:16>>*/ r / i,
       w =
-         /*<<complex.ml:67:8>>*/ Math.sqrt /*<<complex.ml:67:8>>*/ (i)
+         /*<<complex.ml:67:8>>*/ Math.sqrt(i)
         *
           /*<<complex.ml:67:19>>*/ Math.sqrt
-           /*<<complex.ml:67:19>>*/ (0.5
-           *
-            (q$0
-            +
-              /*<<complex.ml:67:37>>*/ Math.sqrt
-               /*<<complex.ml:67:37>>*/ (1. + q$0 * q$0)));
-    if(0. <= x[1])
-      /*<<complex.ml:70:9>>*/ return [254, w, 0.5 * x[2] / w] /*<<complex.ml:70:9>>*/ ;
+          (0.5 * (q$0 +  /*<<complex.ml:67:37>>*/ Math.sqrt(1. + q$0 * q$0)));
+    if(0. <= x[1])  /*<<complex.ml:70:9>>*/ return [254, w, 0.5 * x[2] / w];
     var w$0 = 0. <= x[2] ? w : - w;
-     /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0] /*<<complex.ml:71:9>>*/ ;
+     /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0];
     /*<<complex.ml:72:5>>*/ }
    function exp(x){
-    var
-     e =
-        /*<<complex.ml:75:10>>*/  /*<<complex.ml:75:10>>*/ Math.exp
-         /*<<complex.ml:75:10>>*/ (x[1]);
+    var e =  /*<<complex.ml:75:10>>*/ Math.exp(x[1]);
      /*<<complex.ml:75:22>>*/ return [254,
-            e
-            *
-              /*<<complex.ml:75:34>>*/ Math.cos
-               /*<<complex.ml:75:34>>*/ (x[2]),
-            e
-            *
-              /*<<complex.ml:75:54>>*/ Math.sin
-               /*<<complex.ml:75:54>>*/ (x[2])] /*<<complex.ml:75:22>>*/ ;
+            e *  /*<<complex.ml:75:34>>*/ Math.cos(x[2]),
+            e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])] /*<<complex.ml:75:22>>*/ ;
     /*<<complex.ml:75:64>>*/ }
    function log(x){
-    var
-     _b_ =
-        /*<<complex.ml:77:38>>*/  /*<<complex.ml:77:38>>*/ Math.atan2
-         /*<<complex.ml:77:38>>*/ (x[2], x[1]);
+    var _b_ =  /*<<complex.ml:77:38>>*/ Math.atan2(x[2], x[1]);
      /*<<complex.ml:77:12>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log
-              /*<<complex.ml:77:19>>*/ ( /*<<complex.ml:77:23>>*/ norm
-                /*<<complex.ml:77:23>>*/ (x)),
+             ( /*<<complex.ml:77:23>>*/ norm(x)),
             _b_] /*<<complex.ml:77:12>>*/ ;
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
      /*<<complex.ml:79:14>>*/ return  /*<<complex.ml:79:18>>*/ exp
-             /*<<complex.ml:79:18>>*/ ( /*<<complex.ml:79:18>>*/ mul
-               /*<<complex.ml:79:18>>*/ (y,
-                /*<<complex.ml:79:25>>*/ log /*<<complex.ml:79:25>>*/ (x))) /*<<complex.ml:79:33>>*/ ;
-    /*<<complex.ml:79:33>>*/ }
+            (mul(y,  /*<<complex.ml:79:25>>*/ log(x))) /*<<complex.ml:79:33>>*/ ;
+   }
    var
     Stdlib_Complex =
       [0,
@@ -41778,7 +34174,7 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Array = global_data.Stdlib__Array,
     init = Stdlib_Array[1],
@@ -41869,7 +34265,7 @@
        Floatarray];
    runtime.caml_register_global(1, Stdlib_ArrayLabels, "Stdlib__ArrayLabels");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__ListLabels
@@ -41878,7 +34274,7 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_List = global_data.Stdlib__List,
     length = Stdlib_List[1],
@@ -42015,7 +34411,7 @@
        of_seq];
    runtime.caml_register_global(1, Stdlib_ListLabels, "Stdlib__ListLabels");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__BytesLabels
@@ -42024,7 +34420,7 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Bytes = global_data.Stdlib__Bytes,
     make = Stdlib_Bytes[1],
@@ -42205,7 +34601,7 @@
        unsafe_escape];
    runtime.caml_register_global(1, Stdlib_BytesLabels, "Stdlib__BytesLabels");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__StringLabels
@@ -42214,7 +34610,7 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_String = global_data.Stdlib__String,
     make = Stdlib_String[1],
@@ -42350,7 +34746,7 @@
    runtime.caml_register_global
     (1, Stdlib_StringLabels, "Stdlib__StringLabels");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__MoreLabels
@@ -42359,7 +34755,7 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
+    runtime = globalThis.jsoo_runtime,
     global_data = runtime.caml_get_global_data(),
     Stdlib_Set = global_data.Stdlib__Set,
     Stdlib_Map = global_data.Stdlib__Map,
@@ -42367,16 +34763,16 @@
     Stdlib_MoreLabels = [0, Stdlib_Hashtbl, Stdlib_Map, Stdlib_Set];
    runtime.caml_register_global(3, Stdlib_MoreLabels, "Stdlib__MoreLabels");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__StdLabels
 (function(globalThis){
    "use strict";
-   var runtime =  /*<<?>>*/ globalThis.jsoo_runtime, Stdlib_StdLabels = [0];
+   var runtime = globalThis.jsoo_runtime, Stdlib_StdLabels = [0];
    runtime.caml_register_global(0, Stdlib_StdLabels, "Stdlib__StdLabels");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Effect
@@ -42386,16 +34782,14 @@
   (globalThis){
    "use strict";
    var
-    runtime =  /*<<?>>*/ globalThis.jsoo_runtime,
-    caml_alloc_stack =  /*<<?>>*/ runtime.caml_alloc_stack,
-    caml_continuation_use_noexc =
-       /*<<?>>*/ runtime.caml_continuation_use_noexc,
-    caml_fresh_oo_id =  /*<<?>>*/ runtime.caml_fresh_oo_id,
-    caml_maybe_attach_backtrace =
-       /*<<?>>*/ runtime.caml_maybe_attach_backtrace,
-    caml_restore_raw_backtrace =  /*<<?>>*/ runtime.caml_restore_raw_backtrace,
-    caml_wrap_exception =  /*<<?>>*/ runtime.caml_wrap_exception,
-    jsoo_effect_not_supported =  /*<<?>>*/ runtime.jsoo_effect_not_supported;
+    runtime = globalThis.jsoo_runtime,
+    caml_alloc_stack = runtime.caml_alloc_stack,
+    caml_continuation_use_noexc = runtime.caml_continuation_use_noexc,
+    caml_fresh_oo_id = runtime.caml_fresh_oo_id,
+    caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
+    caml_restore_raw_backtrace = runtime.caml_restore_raw_backtrace,
+    caml_wrap_exception = runtime.caml_wrap_exception,
+    jsoo_effect_not_supported = runtime.jsoo_effect_not_supported;
    function caml_call1(f, a0){
     return (f.l >= 0 ? f.l : f.l = f.length) === 1
             ? f(a0)
@@ -42426,117 +34820,84 @@
        "Stdlib.Effect.Unhandled(%s)"];
    function printer(param){
      /*<<effect.ml:22:16>>*/ if(param[1] !== Unhandled)
-      /*<<effect.ml:28:11>>*/ return 0 /*<<effect.ml:28:11>>*/ ;
+      /*<<effect.ml:28:11>>*/ return 0;
     var
      x = param[2],
-     _i_ =
-        /*<<effect.ml:25:12>>*/  /*<<effect.ml:25:12>>*/ caml_call1
-         /*<<effect.ml:25:12>>*/ (Stdlib_Printexc[26], x),
-     msg =
-        /*<<effect.ml:24:18>>*/  /*<<effect.ml:24:18>>*/ caml_call2
-         /*<<effect.ml:24:18>>*/ (Stdlib_Printf[4], _a_, _i_);
-     /*<<effect.ml:27:8>>*/ return [0, msg] /*<<effect.ml:27:8>>*/ ;
+     _i_ =  /*<<effect.ml:25:12>>*/ caml_call1(Stdlib_Printexc[26], x),
+     msg =  /*<<effect.ml:24:18>>*/ caml_call2(Stdlib_Printf[4], _a_, _i_);
+     /*<<effect.ml:27:8>>*/ return [0, msg];
     /*<<effect.ml:28:15>>*/ }
-    /*<<effect.ml:30:2>>*/  /*<<effect.ml:30:2>>*/ caml_call1
-     /*<<effect.ml:30:2>>*/ (Stdlib_Printexc[9], printer);
+    /*<<effect.ml:30:2>>*/ caml_call1(Stdlib_Printexc[9], printer);
    var
     Should_not_see_this =
        /*<<effect.ml:33:12>>*/ [248,
        "Stdlib.Effect.Should_not_see_this__",
        caml_fresh_oo_id(0)];
-    /*<<effect.ml:34:8>>*/  /*<<effect.ml:34:8>>*/ caml_call2
-     /*<<effect.ml:34:8>>*/ (Stdlib_Callback[2],
+    /*<<effect.ml:34:8>>*/ caml_call2
+    (Stdlib_Callback[2],
      "Effect.Unhandled",
      [0, Unhandled, Should_not_see_this]);
-    /*<<effect.ml:36:8>>*/  /*<<effect.ml:36:8>>*/ caml_call2
-     /*<<effect.ml:36:8>>*/ (Stdlib_Callback[2],
+    /*<<effect.ml:36:8>>*/ caml_call2
+    (Stdlib_Callback[2],
      "Effect.Continuation_already_resumed",
      Continuation_already_resumed);
    function continue$0(k, v){
-    var
-     _h_ =
-        /*<<effect.ml:62:11>>*/  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc
-         /*<<effect.ml:62:11>>*/ (k);
+    var _h_ =  /*<<effect.ml:62:11>>*/ caml_continuation_use_noexc(k);
     function _g_(x){
-      /*<<effect.ml:62:41>>*/ return x /*<<effect.ml:62:41>>*/ ;
+      /*<<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:62:11>>*/ () /*<<effect.ml:62:65>>*/ ;
-    /*<<effect.ml:62:65>>*/ }
+     /*<<effect.ml:62:11>>*/ return jsoo_effect_not_supported() /*<<effect.ml:62:65>>*/ ;
+   }
    function discontinue(k, e){
-    var
-     _f_ =
-        /*<<effect.ml:65:11>>*/  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc
-         /*<<effect.ml:65:11>>*/ (k);
+    var _f_ =  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc(k);
     function _e_(e){
-      /*<<effect.ml:65:41>>*/ throw  /*<<effect.ml:65:41>>*/ caml_maybe_attach_backtrace
-             /*<<effect.ml:65:41>>*/ (e, 1);
+      /*<<effect.ml:65:41>>*/ throw 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:65:11>>*/ () /*<<effect.ml:65:71>>*/ ;
-    /*<<effect.ml:65:71>>*/ }
+     /*<<effect.ml:65:11>>*/ return jsoo_effect_not_supported() /*<<effect.ml:65:71>>*/ ;
+   }
    function discontinue_with_backtrace(k, e, bt){
-    var
-     _d_ =
-        /*<<effect.ml:68:11>>*/  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc
-         /*<<effect.ml:68:11>>*/ (k);
+    var _d_ =  /*<<effect.ml:68: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:68:41>>*/ (e, 0);
+     throw 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:68:11>>*/ () /*<<effect.ml:69:27>>*/ ;
-    /*<<effect.ml:69:27>>*/ }
+     /*<<effect.ml:68:11>>*/ return jsoo_effect_not_supported() /*<<effect.ml:69:27>>*/ ;
+   }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-     var
-      match =
-         /*<<effect.ml:81:12>>*/  /*<<effect.ml:81:12>>*/ caml_call1
-          /*<<effect.ml:81:12>>*/ (handler[3], eff);
+     var match =  /*<<effect.ml:81:12>>*/ caml_call1(handler[3], eff);
      if(! match)
-       /*<<effect.ml:85:16>>*/ return  /*<<effect.ml:85:16>>*/ jsoo_effect_not_supported
-               /*<<effect.ml:85:16>>*/ () /*<<effect.ml:85:42>>*/ ;
+       /*<<effect.ml:85:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:85:42>>*/ ;
      var f = match[1];
      k[2] = last_fiber;
-      /*<<effect.ml:84:10>>*/ return  /*<<effect.ml:84:10>>*/ caml_call1
-              /*<<effect.ml:84:10>>*/ (f, k) /*<<effect.ml:85:42>>*/ ;
-     /*<<effect.ml:85:42>>*/ }
+      /*<<effect.ml:84:10>>*/ return caml_call1(f, k) /*<<effect.ml:85:42>>*/ ;
+    }
     var
      s =
-        /*<<effect.ml:87:12>>*/  /*<<effect.ml:87:12>>*/ caml_alloc_stack
-         /*<<effect.ml:87:12>>*/ (handler[1], handler[2], effc);
-     /*<<effect.ml:88:4>>*/ return  /*<<effect.ml:88:4>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:88:4>>*/ () /*<<effect.ml:88:23>>*/ ;
-    /*<<effect.ml:88:23>>*/ }
+        /*<<effect.ml:87:12>>*/ caml_alloc_stack(handler[1], handler[2], effc);
+     /*<<effect.ml:88:4>>*/ return jsoo_effect_not_supported() /*<<effect.ml:88:23>>*/ ;
+   }
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
-     var
-      match =
-         /*<<effect.ml:95:12>>*/  /*<<effect.ml:95:12>>*/ caml_call1
-          /*<<effect.ml:95:12>>*/ (handler[1], eff);
+     var match =  /*<<effect.ml:95:12>>*/ caml_call1(handler[1], eff);
      if(! match)
-       /*<<effect.ml:99:16>>*/ return  /*<<effect.ml:99:16>>*/ jsoo_effect_not_supported
-               /*<<effect.ml:99:16>>*/ () /*<<effect.ml:99:42>>*/ ;
+       /*<<effect.ml:99:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:99:42>>*/ ;
      var f = match[1];
      k[2] = last_fiber;
-      /*<<effect.ml:98:10>>*/ return  /*<<effect.ml:98:10>>*/ caml_call1
-              /*<<effect.ml:98:10>>*/ (f, k) /*<<effect.ml:99:42>>*/ ;
-     /*<<effect.ml:99:42>>*/ }
+      /*<<effect.ml:98:10>>*/ return caml_call1(f, k) /*<<effect.ml:99:42>>*/ ;
+    }
     var
      s =
-        /*<<effect.ml:101:12>>*/  /*<<effect.ml:101:12>>*/ caml_alloc_stack
-         /*<<effect.ml:101:12>>*/ (function(x){
-           /*<<effect.ml:101:34>>*/ return x /*<<effect.ml:101:34>>*/ ;
+        /*<<effect.ml:101:12>>*/ caml_alloc_stack
+        (function(x){
+           /*<<effect.ml:101:34>>*/ return x;
           /*<<effect.ml:101:35>>*/ },
          function(e){
-           /*<<effect.ml:101:47>>*/ throw  /*<<effect.ml:101:47>>*/ caml_maybe_attach_backtrace
-                  /*<<effect.ml:101:47>>*/ (e, 1);
+           /*<<effect.ml:101:47>>*/ throw caml_maybe_attach_backtrace(e, 1);
           /*<<effect.ml:101:54>>*/ },
          effc);
-     /*<<effect.ml:102:4>>*/ return  /*<<effect.ml:102:4>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:102:4>>*/ () /*<<effect.ml:102:23>>*/ ;
-    /*<<effect.ml:102:23>>*/ }
+     /*<<effect.ml:102:4>>*/ return jsoo_effect_not_supported() /*<<effect.ml:102:23>>*/ ;
+   }
    var
     Deep =
        /*<<effect.ml:46:14>>*/ [0,
@@ -42555,90 +34916,74 @@
      E =  /*<<effect.ml:125:18>>*/ [248, cst_E, caml_fresh_oo_id(0)];
     function f$0(param){
       /*<<effect.ml:126:16>>*/ return  /*<<effect.ml:126:18>>*/ caml_call1
-              /*<<effect.ml:126:18>>*/ (f,
-               /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported
-                /*<<effect.ml:126:18>>*/ ()) /*<<effect.ml:126:45>>*/ ;
-     /*<<effect.ml:126:45>>*/ }
+             (f, jsoo_effect_not_supported()) /*<<effect.ml:126:45>>*/ ;
+    }
     function error(param){
-      /*<<effect.ml:127:18>>*/ return  /*<<effect.ml:127:18>>*/ caml_call1
-              /*<<effect.ml:127:18>>*/ (Stdlib[2], cst_impossible) /*<<effect.ml:127:39>>*/ ;
-     /*<<effect.ml:127:39>>*/ }
+      /*<<effect.ml:127:18>>*/ return caml_call1(Stdlib[2], cst_impossible) /*<<effect.ml:127:39>>*/ ;
+    }
     function effc(eff, k, last_fiber){
       /*<<effect.ml:129:6>>*/ if(eff !== Initial_setup)
-       /*<<effect.ml:133:13>>*/ return  /*<<effect.ml:133:13>>*/ error
-               /*<<effect.ml:133:13>>*/ (0) /*<<effect.ml:133:21>>*/ ;
+       /*<<effect.ml:133:13>>*/ return error(0) /*<<effect.ml:133:21>>*/ ;
      k[2] = last_fiber;
       /*<<effect.ml:132:10>>*/ throw [0, E, k];
      /*<<effect.ml:133:21>>*/ }
-    var
-     s =
-        /*<<effect.ml:135:12>>*/  /*<<effect.ml:135:12>>*/ caml_alloc_stack
-         /*<<effect.ml:135:12>>*/ (error, error, effc);
+    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:136:10>>*/ ();
+      /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported();
      var _b_ = 0;
     }
     catch(exn$0){
      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:137:23>>*/ ;
+      /*<<effect.ml:137:23>>*/ return k;
     }
-     /*<<effect.ml:138:11>>*/ return  /*<<effect.ml:138:11>>*/ error
-             /*<<effect.ml:138:11>>*/ (0) /*<<effect.ml:138:19>>*/ ;
-    /*<<effect.ml:138:19>>*/ }
+     /*<<effect.ml:138:11>>*/ return error(0) /*<<effect.ml:138:19>>*/ ;
+   }
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
-     var
-      match =
-         /*<<effect.ml:157:12>>*/  /*<<effect.ml:157:12>>*/ caml_call1
-          /*<<effect.ml:157:12>>*/ (handler[3], eff);
+     var match =  /*<<effect.ml:157:12>>*/ caml_call1(handler[3], eff);
      if(! match)
-       /*<<effect.ml:161:16>>*/ return  /*<<effect.ml:161:16>>*/ jsoo_effect_not_supported
-               /*<<effect.ml:161:16>>*/ () /*<<effect.ml:161:42>>*/ ;
+       /*<<effect.ml:161:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:161:42>>*/ ;
      var f = match[1];
      k[2] = last_fiber;
-      /*<<effect.ml:160:10>>*/ return  /*<<effect.ml:160:10>>*/ caml_call1
-              /*<<effect.ml:160:10>>*/ (f, k) /*<<effect.ml:161:42>>*/ ;
-     /*<<effect.ml:161:42>>*/ }
+      /*<<effect.ml:160:10>>*/ return caml_call1(f, k) /*<<effect.ml:161:42>>*/ ;
+    }
     var
      stack =
-        /*<<effect.ml:164:16>>*/  /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
-         /*<<effect.ml:164:16>>*/ (k, handler[1], handler[2], effc);
-     /*<<effect.ml:165:4>>*/ return  /*<<effect.ml:165:4>>*/ jsoo_effect_not_supported
-             /*<<effect.ml:165:4>>*/ () /*<<effect.ml:165:40>>*/ ;
-    /*<<effect.ml:165:40>>*/ }
+        /*<<effect.ml:164:16>>*/ runtime.caml_continuation_use_and_update_handler_noexc
+        (k, handler[1], handler[2], effc);
+     /*<<effect.ml:165:4>>*/ return jsoo_effect_not_supported() /*<<effect.ml:165:40>>*/ ;
+   }
    function continue_with(k, v, handler){
-     /*<<effect.ml:168:4>>*/ return  /*<<effect.ml:168:4>>*/ continue_gen
-             /*<<effect.ml:168:4>>*/ (k,
+     /*<<effect.ml:168:4>>*/ return continue_gen
+            (k,
              function(x){
-               /*<<effect.ml:168:29>>*/ return x /*<<effect.ml:168:29>>*/ ;
+               /*<<effect.ml:168:29>>*/ return x;
               /*<<effect.ml:168:30>>*/ },
              v,
              handler) /*<<effect.ml:168:41>>*/ ;
-    /*<<effect.ml:168:41>>*/ }
+   }
    function discontinue_with(k, v, handler){
-     /*<<effect.ml:171:4>>*/ return  /*<<effect.ml:171:4>>*/ continue_gen
-             /*<<effect.ml:171:4>>*/ (k,
+     /*<<effect.ml:171:4>>*/ return continue_gen
+            (k,
              function(e){
-               /*<<effect.ml:171:29>>*/ throw  /*<<effect.ml:171:29>>*/ caml_maybe_attach_backtrace
-                      /*<<effect.ml:171:29>>*/ (e, 1);
+               /*<<effect.ml:171:29>>*/ throw caml_maybe_attach_backtrace
+                     (e, 1);
               /*<<effect.ml:171:36>>*/ },
              v,
              handler) /*<<effect.ml:171:47>>*/ ;
-    /*<<effect.ml:171:47>>*/ }
+   }
    function discontinue_with_backtrace$0(k, v, bt, handler){
-     /*<<effect.ml:174:4>>*/ return  /*<<effect.ml:174:4>>*/ continue_gen
-             /*<<effect.ml:174:4>>*/ (k,
+     /*<<effect.ml:174: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:174:29>>*/ (e, 0);
+              throw caml_maybe_attach_backtrace(e, 0);
               /*<<effect.ml:174:63>>*/ },
              v,
              handler) /*<<effect.ml:174:74>>*/ ;
-    /*<<effect.ml:174:74>>*/ }
+   }
    var
     Stdlib_Effect =
       [0,
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index 261bd71fb0..d9c6e5d0d5 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -1,6 +1,8 @@
 sourcemap for test.bc.js
+/my/sourceRoot#d.ml:1:0 -> 7:   var <>runtime = globalThis.jsoo_runtime;
 /my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }
-/my/sourceRoot#b.ml:1:10 -> 33:   function f(x){return x - 1 | 0<>; }
 /my/sourceRoot#b.ml:1:15 -> 35:   function f(x){return x - 1 | 0; <>}
+/my/sourceRoot#b.ml:1:15 -> 7:   var <>Testlib_B = [0, f];
+/my/sourceRoot#b.ml:1:15 -> 19:   var Testlib_B = <>[0, f];

From 2155f99b8981369ef3c3993db8ad92a39330cbe5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 15:00:35 +0200
Subject: [PATCH 14/35] Add an `Event` instruction

This is simpler than to associate a location to all instructions.
Also, this avoid the issue of locations getting lost because an
instruction gets optimized away.
---
 compiler/lib/code.ml                          |     3 +
 compiler/lib/code.mli                         |     1 +
 compiler/lib/deadcode.ml                      |    21 +-
 compiler/lib/duplicate.ml                     |     1 +
 compiler/lib/effects.ml                       |    12 +-
 compiler/lib/eval.ml                          |     7 +-
 compiler/lib/flow.ml                          |     4 +-
 compiler/lib/freevars.ml                      |     3 +-
 compiler/lib/generate.ml                      |    71 +-
 compiler/lib/generate.mli                     |     6 -
 compiler/lib/global_deadcode.ml               |    14 +-
 compiler/lib/global_flow.ml                   |     2 +-
 compiler/lib/inline.ml                        |    16 +-
 compiler/lib/parse_bytecode.ml                |   111 +-
 compiler/lib/parse_bytecode.mli               |     5 +-
 compiler/lib/partial_cps_analysis.ml          |     2 +-
 compiler/lib/phisimpl.ml                      |     2 +-
 compiler/lib/pure_fun.ml                      |     2 +-
 compiler/lib/specialize_js.ml                 |    24 +
 compiler/lib/structure.ml                     |    13 +-
 compiler/lib/subst.ml                         |     1 +
 .../tests-compiler/effects_continuations.ml   |    97 +-
 compiler/tests-compiler/gh747.ml              |   293 +-
 compiler/tests-full/stdlib.cma.expected.js    | 10449 +++++++++-------
 compiler/tests-sourcemap/dump.reference       |     2 +-
 25 files changed, 6161 insertions(+), 5001 deletions(-)

diff --git a/compiler/lib/code.ml b/compiler/lib/code.ml
index ee704a6a5c..c6cf80a249 100644
--- a/compiler/lib/code.ml
+++ b/compiler/lib/code.ml
@@ -446,6 +446,7 @@ type instr =
   | Set_field of Var.t * int * field_type * Var.t
   | Offset_ref of Var.t * int
   | Array_set of Var.t * Var.t * Var.t
+  | Event of Parse_info.t
 
 type last =
   | Return of Var.t
@@ -604,6 +605,7 @@ module Print = struct
     | Offset_ref (x, i) -> Format.fprintf f "%a[0] += %d" Var.print x i
     | Array_set (x, y, z) ->
         Format.fprintf f "%a[%a] = %a" Var.print x Var.print y Var.print z
+    | Event loc -> Format.fprintf f "event %s" (Parse_info.to_string loc)
 
   let last f (l, _loc) =
     match l with
@@ -905,6 +907,7 @@ let invariant { blocks; start; _ } =
       | Set_field (_, _i, _, _) -> ()
       | Offset_ref (_x, _i) -> ()
       | Array_set (_x, _y, _z) -> ()
+      | Event _ -> ()
     in
     let check_last (l, _loc) =
       match l with
diff --git a/compiler/lib/code.mli b/compiler/lib/code.mli
index 699aa220fb..b2137b8ac0 100644
--- a/compiler/lib/code.mli
+++ b/compiler/lib/code.mli
@@ -229,6 +229,7 @@ type instr =
   | Set_field of Var.t * int * field_type * Var.t
   | Offset_ref of Var.t * int
   | Array_set of Var.t * Var.t * Var.t
+  | Event of Parse_info.t
 
 type last =
   | Return of Var.t
diff --git a/compiler/lib/deadcode.ml b/compiler/lib/deadcode.ml
index 23a7efc0e5..3cbc7ec68a 100644
--- a/compiler/lib/deadcode.ml
+++ b/compiler/lib/deadcode.ml
@@ -90,7 +90,7 @@ and mark_reachable st pc =
     List.iter block.body ~f:(fun (i, _loc) ->
         match i with
         | Let (_, e) -> if not (pure_expr st.pure_funs e) then mark_expr st e
-        | Assign _ -> ()
+        | Event _ | Assign _ -> ()
         | Set_field (x, _, _, y) -> (
             match st.defs.(Var.idx x) with
             | [ Expr (Block _) ] when st.live.(Var.idx x) = 0 ->
@@ -125,7 +125,7 @@ let live_instr st i =
   match i with
   | Let (x, e) -> st.live.(Var.idx x) > 0 || not (pure_expr st.pure_funs e)
   | Assign (x, _) | Set_field (x, _, _, _) -> st.live.(Var.idx x) > 0
-  | Offset_ref _ | Array_set _ -> true
+  | Event _ | Offset_ref _ | Array_set _ -> true
 
 let rec filter_args st pl al =
   match pl, al with
@@ -201,7 +201,8 @@ let f ({ blocks; _ } as p : Code.program) =
           match i with
           | Let (x, e) -> add_def defs x (Expr e)
           | Assign (x, y) -> add_def defs x (Var y)
-          | Set_field (_, _, _, _) | Array_set (_, _, _) | Offset_ref (_, _) -> ());
+          | Event _ | Set_field (_, _, _, _) | Array_set (_, _, _) | Offset_ref (_, _) ->
+              ());
       match fst block.branch with
       | Return _ | Raise _ | Stop -> ()
       | Branch cont -> add_cont_dep blocks defs cont
@@ -228,10 +229,16 @@ let f ({ blocks; _ } as p : Code.program) =
             pc
             { params = List.filter block.params ~f:(fun x -> st.live.(Var.idx x) > 0)
             ; body =
-                List.filter_map block.body ~f:(fun (i, loc) ->
-                    if live_instr st i
-                    then Some (filter_closure all_blocks st i, loc)
-                    else None)
+                List.fold_left block.body ~init:[] ~f:(fun acc (i, loc) ->
+                    match i, acc with
+                    | Event _, (Event _, _) :: prev ->
+                        (* Avoid consecutive events (keep just the last one) *)
+                        (i, loc) :: prev
+                    | _ ->
+                        if live_instr st i
+                        then (filter_closure all_blocks st i, loc) :: acc
+                        else acc)
+                |> List.rev
             ; branch = filter_live_last all_blocks st block.branch
             }
             blocks)
diff --git a/compiler/lib/duplicate.ml b/compiler/lib/duplicate.ml
index 9ea4aefb59..37c80fb469 100644
--- a/compiler/lib/duplicate.ml
+++ b/compiler/lib/duplicate.ml
@@ -44,6 +44,7 @@ let instr s i =
   | Set_field (x, n, typ, y) -> Set_field (s x, n, typ, s y)
   | Offset_ref (x, n) -> Offset_ref (s x, n)
   | Array_set (x, y, z) -> Array_set (s x, s y, s z)
+  | Event _ -> i
 
 let instrs s l = List.map l ~f:(fun (i, loc) -> instr s i, loc)
 
diff --git a/compiler/lib/effects.ml b/compiler/lib/effects.ml
index 5cbaf29ac9..73b3adf00d 100644
--- a/compiler/lib/effects.ml
+++ b/compiler/lib/effects.ml
@@ -593,7 +593,7 @@ let cps_block ~st ~k pc block =
             in
             let instrs, branch = f ~k:k' in
             body_prefix, constr_cont @ instrs, branch)
-    | Some (_, ((Set_field _ | Offset_ref _ | Array_set _ | Assign _), _)), _
+    | Some (_, ((Event _ | Set_field _ | Offset_ref _ | Array_set _ | Assign _), _)), _
     | Some _, ((Raise _ | Stop | Cond _ | Switch _ | Pushtrap _ | Poptrap _), _)
     | None, _ -> None
   in
@@ -901,10 +901,18 @@ let remove_empty_blocks ~live_vars (p : Code.program) : Code.program =
       | None -> cont
   in
   let resolve cont = resolve_rec Addr.Set.empty cont in
+  let empty_body b =
+    List.for_all
+      ~f:(fun (i, _) ->
+        match i with
+        | Event _ -> true
+        | _ -> false)
+      b
+  in
   Addr.Map.iter
     (fun pc block ->
       match block with
-      | { params; body = []; branch = Branch cont, _; _ } ->
+      | { params; body; branch = Branch cont, _; _ } when empty_body body ->
           let args =
             List.fold_left
               ~f:(fun args x -> Var.Set.add x args)
diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml
index 113fe6432b..2d28851245 100644
--- a/compiler/lib/eval.ml
+++ b/compiler/lib/eval.ml
@@ -456,8 +456,11 @@ let rec do_not_raise pc visited blocks =
     let b = Addr.Map.find pc blocks in
     List.iter b.body ~f:(fun (i, _loc) ->
         match i with
-        | Array_set (_, _, _) | Offset_ref (_, _) | Set_field (_, _, _, _) | Assign _ ->
-            ()
+        | Event _
+        | Array_set (_, _, _)
+        | Offset_ref (_, _)
+        | Set_field (_, _, _, _)
+        | Assign _ -> ()
         | Let (_, e) -> (
             match e with
             | Block (_, _, _, _) | Field (_, _, _) | Constant _ | Closure _ -> ()
diff --git a/compiler/lib/flow.ml b/compiler/lib/flow.ml
index d93b97389d..f18ea68093 100644
--- a/compiler/lib/flow.ml
+++ b/compiler/lib/flow.ml
@@ -122,7 +122,7 @@ let program_deps { blocks; _ } =
           | Assign (x, y) ->
               add_dep deps x y;
               add_assign_def vars defs x y
-          | Set_field _ | Array_set _ | Offset_ref _ -> ());
+          | Event _ | Set_field _ | Array_set _ | Offset_ref _ -> ());
       match fst block.branch with
       | Return _ | Raise _ | Stop -> ()
       | Branch cont | Poptrap cont -> cont_deps blocks vars deps defs cont
@@ -256,7 +256,7 @@ let program_escape defs known_origins { blocks; _ } =
       List.iter block.body ~f:(fun (i, _loc) ->
           match i with
           | Let (x, e) -> expr_escape st x e
-          | Assign _ -> ()
+          | Event _ | Assign _ -> ()
           | Set_field (x, _, _, y) | Array_set (x, _, y) ->
               Var.Set.iter
                 (fun y -> Var.ISet.add possibly_mutable y)
diff --git a/compiler/lib/freevars.ml b/compiler/lib/freevars.ml
index 89fbf4da95..6ee8441135 100644
--- a/compiler/lib/freevars.ml
+++ b/compiler/lib/freevars.ml
@@ -55,6 +55,7 @@ let iter_instr_free_vars f i =
       f y;
       f z
   | Assign (_, y) -> f y
+  | Event _ -> ()
 
 let iter_last_free_var f l =
   match l with
@@ -79,7 +80,7 @@ let iter_block_free_vars f block =
 let iter_instr_bound_vars f i =
   match i with
   | Let (x, _) -> f x
-  | Set_field _ | Offset_ref _ | Array_set _ | Assign _ -> ()
+  | Event _ | Set_field _ | Offset_ref _ | Array_set _ | Assign _ -> ()
 
 let iter_last_bound_vars f l =
   match l with
diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 3cb5b4588b..36dbb5397d 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -345,14 +345,11 @@ let bool e = J.ECond (e, one, zero)
 
 (****)
 
-let source_location debug ?force (pc : Code.loc) =
-  match Parse_bytecode.Debug.find_loc debug ?force pc with
+let source_location ctx position pc =
+  match Parse_bytecode.Debug.find_loc ctx.Ctx.debug ~position pc with
   | Some pi -> J.Pi pi
   | None -> J.N
 
-let source_location_ctx ctx ?force (pc : Code.loc) =
-  source_location ctx.Ctx.debug ?force pc
-
 (****)
 
 let float_const f = J.ENum (J.Num.of_float f)
@@ -1101,14 +1098,14 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
       let (px, cx), queue = access_queue queue x in
       (Mlvalue.Block.field cx n, or_p px mutable_p, queue), []
   | Closure (args, ((pc, _) as cont)) ->
-      let loc = source_location_ctx ctx ~force:After (After pc) in
+      let loc = source_location ctx After pc in
       let fv = Addr.Map.find pc ctx.freevars in
       let clo = compile_closure ctx cont in
       let clo =
         match clo with
         | (st, x) :: rem ->
             let loc =
-              match x, source_location_ctx ctx (Before pc) with
+              match x, source_location ctx Before pc with
               | (J.U | J.N), (J.U | J.N) -> J.U
               | x, (J.U | J.N) -> x
               | (J.U | J.N), x -> x
@@ -1371,18 +1368,16 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
       in
       res, []
 
-and translate_instr ctx expr_queue instr =
-  let instr, pc = instr in
+and translate_instr ctx expr_queue loc instr =
+  let instr, _ = instr in
   match instr with
   | Assign (x, y) ->
-      let loc = source_location_ctx ctx pc in
       let (_py, cy), expr_queue = access_queue expr_queue y in
       flush_queue
         expr_queue
         mutator_p
         [ J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V x), cy)), loc ]
   | Let (x, e) -> (
-      let loc = source_location_ctx ctx pc in
       let (ce, prop, expr_queue), instrs = translate_expr ctx expr_queue loc x e 0 in
       let keep_name x =
         match Code.Var.get_name x with
@@ -1408,7 +1403,6 @@ and translate_instr ctx expr_queue instr =
             prop
             (instrs @ [ J.variable_declaration [ J.V x, (ce, loc) ], loc ]))
   | Set_field (x, n, _, y) ->
-      let loc = source_location_ctx ctx pc in
       let (_px, cx), expr_queue = access_queue expr_queue x in
       let (_py, cy), expr_queue = access_queue expr_queue y in
       flush_queue
@@ -1416,7 +1410,6 @@ and translate_instr ctx expr_queue instr =
         mutator_p
         [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Block.field cx n, cy)), loc ]
   | Offset_ref (x, n) ->
-      let loc = source_location_ctx ctx pc in
       (* FIX: may overflow.. *)
       let (_px, cx), expr_queue = access_queue expr_queue x in
       let expr = Mlvalue.Block.field cx 0 in
@@ -1429,7 +1422,6 @@ and translate_instr ctx expr_queue instr =
       in
       flush_queue expr_queue mutator_p [ J.Expression_statement expr', loc ]
   | Array_set (x, y, z) ->
-      let loc = source_location_ctx ctx pc in
       let (_px, cx), expr_queue = access_queue expr_queue x in
       let (_py, cy), expr_queue = access_queue expr_queue y in
       let (_pz, cz), expr_queue = access_queue expr_queue z in
@@ -1437,12 +1429,13 @@ and translate_instr ctx expr_queue instr =
         expr_queue
         mutator_p
         [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Array.field cx cy, cz)), loc ]
+  | Event _ -> [], expr_queue
 
-and translate_instrs_rev (ctx : Ctx.t) expr_queue instrs acc_rev muts_map : _ * _ =
+and translate_instrs_rev (ctx : Ctx.t) loc expr_queue instrs acc_rev muts_map =
   match instrs with
-  | [] -> acc_rev, expr_queue
+  | [] -> loc, acc_rev, expr_queue
   | (Let (_, Closure _), _) :: _ ->
-      let names, pcs, all, rem = collect_closures instrs in
+      let names, pcs, all, rem, loc = collect_closures loc instrs in
       let fvs =
         List.fold_left pcs ~init:Code.Var.Set.empty ~f:(fun acc pc ->
             Code.Var.Set.union acc (Addr.Map.find pc ctx.freevars))
@@ -1519,13 +1512,13 @@ and translate_instrs_rev (ctx : Ctx.t) expr_queue instrs acc_rev muts_map : _ *
         List.fold_left
           all
           ~init:([], [], expr_queue)
-          ~f:(fun (mut_rec, st_rev, expr_queue) i ->
+          ~f:(fun (mut_rec, st_rev, expr_queue) (i, loc) ->
             let x' =
               match i with
               | Let (x', _), _ -> x'
               | _ -> assert false
             in
-            let l, expr_queue = translate_instr ctx expr_queue i in
+            let l, expr_queue = translate_instr ctx expr_queue loc i in
             if Code.Var.Set.mem x' fvs
             then
               let mut_rec =
@@ -1547,17 +1540,19 @@ and translate_instrs_rev (ctx : Ctx.t) expr_queue instrs acc_rev muts_map : _ *
       let acc_rev = vd Let bind_fvs_muts @ acc_rev in
       let acc_rev = funs_rev @ acc_rev in
       let acc_rev = vd Let bind_fvs_rec @ acc_rev in
-      translate_instrs_rev ctx expr_queue rem acc_rev muts_map
+      translate_instrs_rev ctx loc expr_queue rem acc_rev muts_map
+  | (Event loc, _) :: rem ->
+      translate_instrs_rev ctx (J.Pi loc) expr_queue rem acc_rev muts_map
   | instr :: rem ->
-      let st, expr_queue = translate_instr ctx expr_queue instr in
+      let st, expr_queue = translate_instr ctx expr_queue loc instr in
       let acc_rev = List.rev_append st acc_rev in
-      translate_instrs_rev ctx expr_queue rem acc_rev muts_map
+      translate_instrs_rev ctx loc expr_queue rem acc_rev muts_map
 
 and translate_instrs (ctx : Ctx.t) expr_queue instrs =
-  let st_rev, expr_queue =
-    translate_instrs_rev (ctx : Ctx.t) expr_queue instrs [] Var.Map.empty
+  let loc, st_rev, expr_queue =
+    translate_instrs_rev (ctx : Ctx.t) J.N expr_queue instrs [] Var.Map.empty
   in
-  List.rev st_rev, expr_queue
+  loc, List.rev st_rev, expr_queue
 
 (* Compile loops. *)
 and compile_block st queue (pc : Addr.t) scope_stack ~fall_through =
@@ -1591,7 +1586,7 @@ and compile_block st queue (pc : Addr.t) scope_stack ~fall_through =
           if debug () then Format.eprintf "}@]@,";
           let for_loop =
             ( J.For_statement (J.Left None, None, None, Js_simpl.block body)
-            , source_location_ctx st.ctx (Code.location_of_pc pc) )
+            , source_location st.ctx Before pc )
           in
           let label = if !lab_used then Some lab else None in
           let for_loop =
@@ -1613,7 +1608,7 @@ and compile_block_no_loop st queue (pc : Addr.t) ~fall_through scope_stack =
   if debug () then Format.eprintf "Compiling block %d@;" pc;
   st.visited_blocks := Addr.Set.add pc !(st.visited_blocks);
   let block = Addr.Map.find pc st.ctx.blocks in
-  let seq, queue = translate_instrs st.ctx queue block.body in
+  let loc, seq, queue = translate_instrs st.ctx queue block.body in
   let nbbranch =
     match fst block.branch with
     | Switch (_, a) ->
@@ -1635,7 +1630,7 @@ and compile_block_no_loop st queue (pc : Addr.t) ~fall_through scope_stack =
   in
   let rec loop ~scope_stack ~fall_through l =
     match l with
-    | [] -> compile_conditional st queue ~fall_through block.branch scope_stack
+    | [] -> compile_conditional st queue ~fall_through loc block.branch scope_stack
     | x :: xs -> (
         let l = J.Label.fresh () in
         let used = ref false in
@@ -1679,8 +1674,7 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
         in
         ( never1 && never2
         , Js_simpl.if_statement
-            ~function_end:(fun () ->
-              source_location_ctx st.ctx ~force:After (After st.pc))
+            ~function_end:(fun () -> source_location st.ctx After st.pc)
             e'
             loc
             (Js_simpl.block iftrue)
@@ -1744,8 +1738,8 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
   let never, code = loop cx scope_stack dtree in
   never, binds @ code
 
-and compile_conditional st queue ~fall_through last scope_stack : _ * _ =
-  let last, pc = last in
+and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
+  let last, _ = last in
   (if debug ()
    then
      match last with
@@ -1756,7 +1750,6 @@ and compile_conditional st queue ~fall_through last scope_stack : _ * _ =
      | Stop -> Format.eprintf "stop;@;"
      | Cond (x, _, _) -> Format.eprintf "@[<hv 2>cond(%a){@;" Code.Var.print x
      | Switch (x, _) -> Format.eprintf "@[<hv 2>switch(%a){@;" Code.Var.print x);
-  let loc = source_location_ctx st.ctx pc in
   let res =
     match last with
     | Return x ->
@@ -1769,7 +1762,7 @@ and compile_conditional st queue ~fall_through last scope_stack : _ * _ =
           | ECall _ -> (
               (* We usually don't have a good locations for tail
                  calls, so use the end of the function instead *)
-              match source_location_ctx st.ctx ~force:After (After st.pc) with
+              match source_location st.ctx After st.pc with
               | J.N -> loc
               | loc -> loc)
           | _ -> loc
@@ -1940,12 +1933,14 @@ and compile_closure ctx (pc, args) =
   if debug () then Format.eprintf "}@]@;";
   res
 
-and collect_closures l =
+and collect_closures loc l =
   match l with
+  | (Event loc, _) :: ((Let (_, Closure _), _) :: _ as rem) ->
+      collect_closures (J.Pi loc) rem
   | ((Let (x, Closure (_, (pc, _))), _loc) as i) :: rem ->
-      let names', pcs', i', rem' = collect_closures rem in
-      x :: names', pc :: pcs', i :: i', rem'
-  | _ -> [], [], [], l
+      let names', pcs', i', rem', loc' = collect_closures loc rem in
+      x :: names', pc :: pcs', (i, loc) :: i', rem', loc'
+  | _ -> [], [], [], l, loc
 
 let generate_shared_value ctx =
   let strings =
diff --git a/compiler/lib/generate.mli b/compiler/lib/generate.mli
index 60c98959fb..453cc2f445 100644
--- a/compiler/lib/generate.mli
+++ b/compiler/lib/generate.mli
@@ -30,9 +30,3 @@ val f :
   -> Javascript.program
 
 val init : unit -> unit
-
-val source_location :
-     Parse_bytecode.Debug.t
-  -> ?force:Parse_bytecode.Debug.force
-  -> Code.loc
-  -> Javascript.location
diff --git a/compiler/lib/global_deadcode.ml b/compiler/lib/global_deadcode.ml
index 80136bc6f4..85252e38f1 100644
--- a/compiler/lib/global_deadcode.ml
+++ b/compiler/lib/global_deadcode.ml
@@ -116,7 +116,8 @@ let definitions prog =
           match i with
           | Let (x, e) -> set_def x (Expr e)
           | Assign (x, _) -> set_def x Param
-          | Set_field (_, _, _, _) | Offset_ref (_, _) | Array_set (_, _, _) -> ())
+          | Event _ | Set_field (_, _, _, _) | Offset_ref (_, _) | Array_set (_, _, _) ->
+              ())
         block.body)
     prog.blocks;
   defs
@@ -214,7 +215,7 @@ let usages prog (global_info : Global_flow.info) scoped_live_vars :
         | Let (x, e) -> add_expr_uses scope x e
         (* For assignment, propagate liveness from new to old variable like a block parameter *)
         | Assign (x, y) -> add_use (Propagate { scope = []; src = x }) x y
-        | Set_field (_, _, _, _) | Offset_ref (_, _) | Array_set (_, _, _) -> ())
+        | Event _ | Set_field (_, _, _, _) | Offset_ref (_, _) | Array_set (_, _, _) -> ())
       block.body;
     (* Add uses from block branch *)
     match fst block.branch with
@@ -336,7 +337,7 @@ let liveness prog pure_funs (global_info : Global_flow.info) =
         add_top scope z
     | Offset_ref (x, _) -> add_live_field scope x 0
     (* Assignment can be ignored. Liveness of old variable is just propagated to new variable. See [usages]. *)
-    | Assign (_, _) -> ()
+    | Event _ | Assign (_, _) -> ()
   in
   let live_block scope block =
     List.iter ~f:(fun (i, _) -> live_instruction scope i) block.body;
@@ -467,8 +468,11 @@ let zero prog sentinal live_table =
             Let (x, Apply { ap with args })
         | Field (_, _, _) | Closure (_, _) | Constant _ | Prim (_, _) | Special _ -> instr
         )
-    | Assign (_, _) | Set_field (_, _, _, _) | Offset_ref (_, _) | Array_set (_, _, _) ->
-        instr
+    | Event _
+    | Assign (_, _)
+    | Set_field (_, _, _, _)
+    | Offset_ref (_, _)
+    | Array_set (_, _, _) -> instr
   in
   let zero_block block =
     (* Analyze block instructions *)
diff --git a/compiler/lib/global_flow.ml b/compiler/lib/global_flow.ml
index 66ce9fe395..9e6a536315 100644
--- a/compiler/lib/global_flow.ml
+++ b/compiler/lib/global_flow.ml
@@ -254,7 +254,7 @@ let program_deps st { start; blocks; _ } =
           | Set_field (x, _, _, y) | Array_set (x, _, y) ->
               possibly_mutable st x;
               do_escape st Escape y
-          | Offset_ref _ -> ());
+          | Event _ | Offset_ref _ -> ());
       match fst block.branch with
       | Return _ | Stop -> ()
       | Raise (x, _) -> do_escape st Escape x
diff --git a/compiler/lib/inline.ml b/compiler/lib/inline.ml
index e6707e50d5..fbcf564151 100644
--- a/compiler/lib/inline.ml
+++ b/compiler/lib/inline.ml
@@ -34,7 +34,13 @@ type closure_info =
   }
 
 let block_size { branch; body; _ } =
-  List.length body
+  List.fold_left
+    ~f:(fun n (i, _) ->
+      match i with
+      | Event _ -> n
+      | _ -> n + 1)
+    ~init:0
+    body
   +
   match fst branch with
   | Cond _ -> 2
@@ -303,7 +309,13 @@ let inline ~first_class_primitives live_vars closures name pc (outer, p) =
         | Let (x, Closure (l, (pc, []))), loc when first_class_primitives -> (
             let block = Addr.Map.find pc p.blocks in
             match block with
-            | { body = [ (Let (y, Prim (Extern prim, args)), _loc) ]
+            | { body =
+                  ( [ (Let (y, Prim (Extern prim, args)), _loc) ]
+                  | [ (Event _, _); (Let (y, Prim (Extern prim, args)), _loc) ]
+                  | [ (Event _, _)
+                    ; (Let (y, Prim (Extern prim, args)), _loc)
+                    ; (Event _, _)
+                    ] )
               ; branch = Return y', _
               ; params = []
               } ->
diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index c3e5ff5eb9..606af195d9 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -39,10 +39,9 @@ let new_closure_repr = Ocaml_version.compare Ocaml_version.current [ 4; 12 ] >=
 module Debug : sig
   type t
 
-  type force =
+  type position =
     | Before
     | After
-    | No
 
   val names : t -> bool
 
@@ -58,10 +57,15 @@ module Debug : sig
 
   val find_rec : t -> Code.Addr.t -> (int * Ident.t) list
 
-  val find_loc : t -> ?force:force -> Code.loc -> Parse_info.t option
+  val find_loc : t -> position:position -> Code.Addr.t -> Parse_info.t option
 
-  val find_loc' :
-    t -> int -> (string option * Location.t * Instruct.debug_event_kind) option
+  val find_loc' : t -> int -> (string option * Instruct.debug_event) option
+
+  val event_location :
+       position:position
+    -> source:string option
+    -> event:Instruct.debug_event
+    -> Parse_info.t
 
   val find_source : t -> string -> string option
 
@@ -121,10 +125,9 @@ end = struct
     ; include_cmis : bool
     }
 
-  type force =
+  type position =
     | Before
     | After
-    | No
 
   let names t = t.names
 
@@ -303,34 +306,23 @@ end = struct
     loc.loc_start.pos_cnum = -1 || loc.loc_end.pos_cnum = -1
 
   let find_loc' { events_by_pc; _ } pc =
-    try
-      let { event; source } = Int_table.find events_by_pc pc in
-      let loc = event.ev_loc in
-      Some (source, loc, event.ev_kind)
-    with Not_found -> None
-
-  let find_loc { events_by_pc; _ } ?(force = No) x =
-    match x with
-    | Code.No -> None
-    | Code.Before pc | Code.After pc -> (
-        try
-          let { event; source } = Int_table.find events_by_pc pc in
-          let loc = event.ev_loc in
-          if dummy_location loc
-          then None
-          else
-            let pos =
-              match force with
-              | After -> loc.Location.loc_end
-              | Before -> loc.Location.loc_start
-              | No -> (
-                  match x with
-                  | Code.Before _ -> loc.Location.loc_start
-                  | Code.After _ -> loc.Location.loc_end
-                  | _ -> assert false)
-            in
-            Some (Parse_info.t_of_position ~src:source pos)
-        with Not_found -> None)
+    match Int_table.find events_by_pc pc with
+    | exception Not_found -> None
+    | { event; source } ->
+        if dummy_location event.ev_loc then None else Some (source, event)
+
+  let event_location ~position ~source ~event =
+    let pos =
+      match position with
+      | After -> event.ev_loc.Location.loc_end
+      | Before -> event.ev_loc.Location.loc_start
+    in
+    Parse_info.t_of_position ~src:source pos
+
+  let find_loc t ~position pc =
+    match find_loc' t pc with
+    | None -> None
+    | Some (source, event) -> Some (event_location ~position ~source ~event)
 
   let rec propagate l1 l2 =
     match l1, l2 with
@@ -875,7 +867,7 @@ type compile_info =
 let string_of_addr debug_data addr =
   match Debug.find_loc' debug_data addr with
   | None -> None
-  | Some (src, loc, kind) ->
+  | Some (src, { ev_loc = loc; ev_kind = kind; _ }) ->
       let pos (p : Lexing.position) =
         Printf.sprintf "%d:%d" p.pos_lnum (p.pos_cnum - p.pos_bol)
       in
@@ -975,6 +967,42 @@ and compile infos pc state instrs =
      match string_of_addr infos.debug pc with
      | None -> ()
      | Some s -> Format.eprintf "@@@@ %s @@@@@." s);
+
+  let instrs =
+    let push_event position source event instrs =
+      match instrs with
+      | (Event _, _) :: instrs | instrs ->
+          (Event (Debug.event_location ~position ~source ~event), noloc) :: instrs
+    in
+    match Debug.find_loc' infos.debug pc with
+    | None -> instrs
+    | Some (source, event) -> (
+        match event, instrs with
+        | { ev_kind = Event_pseudo; ev_info = Event_other; _ }, _ ->
+            (* Ignore allocation events (not very interesting) *)
+            if debug_parser () then Format.eprintf "Ignored allocation event@.";
+            instrs
+        | ( { ev_kind = Event_pseudo | Event_after _; _ }
+          , ((Let (_, (Apply _ | Prim _)), _) as i) :: rem ) ->
+            if debug_parser () then Format.eprintf "Added event across call@.";
+            push_event After source event (i :: push_event Before source event rem)
+        | { ev_kind = Event_pseudo; ev_info = Event_function; _ }, [] ->
+            (* At beginning of function *)
+            if debug_parser () then Format.eprintf "Added event at function start@.";
+            push_event Before source event instrs
+        | { ev_kind = Event_after _ | Event_pseudo; _ }, _ ->
+            if debug_parser () then Format.eprintf "Ignored useless event@.";
+            (* Not interesting:
+               - before a throw instruction, but we already have an event
+                 for the exception
+               - omitted else clause
+            *)
+            instrs
+        | _, _ ->
+            if debug_parser () then Format.eprintf "added event@.";
+            push_event Before source event instrs)
+  in
+
   if pc = infos.limit
   then
     if (* stop if we reach end_of_code (ie when compiling cmo) *)
@@ -1015,7 +1043,8 @@ and compile infos pc state instrs =
             | _ -> assert false
           in
           match Debug.find_loc' infos.debug (pc + offset) with
-          | Some (_, _, (Event_pseudo | Event_after _)) -> Code.Before (pc + offset)
+          | Some (_, { ev_kind = Event_pseudo | Event_after _; _ }) ->
+              Code.Before (pc + offset)
           | Some _ | None -> if Debug.mem infos.debug pc then Code.Before pc else noloc)
       (* bytegen.ml insert a pseudo event after the following instruction *)
       | MAKEBLOCK | MAKEBLOCK1 | MAKEBLOCK2 | MAKEBLOCK3 | MAKEFLOATBLOCK | GETFLOATFIELD
@@ -1027,16 +1056,16 @@ and compile infos pc state instrs =
             | _ -> assert false
           in
           match Debug.find_loc' infos.debug (pc + offset) with
-          | Some (_, _, Event_pseudo) -> Code.Before (pc + offset)
+          | Some (_, { ev_kind = Event_pseudo; _ }) -> Code.Before (pc + offset)
           | Some _ | _ -> if Debug.mem infos.debug pc then Code.Before pc else noloc)
       | RAISE | RAISE_NOTRACE | RERAISE -> (
           match Debug.find_loc' infos.debug pc with
-          | Some (_, _, _) -> Code.Before pc
+          | Some _ -> Code.Before pc
           | None -> noloc)
       | _ -> (
           match Debug.find_loc' infos.debug pc with
-          | Some (_, _, Event_after _) -> Code.Before pc
-          | Some (_, _, (Event_pseudo | Event_before)) -> Code.Before pc
+          | Some (_, { ev_kind = Event_after _; _ }) -> Code.Before pc
+          | Some (_, { ev_kind = Event_pseudo | Event_before; _ }) -> Code.Before pc
           | None -> noloc)
     in
 
diff --git a/compiler/lib/parse_bytecode.mli b/compiler/lib/parse_bytecode.mli
index 627f65fdd0..4289537eb7 100644
--- a/compiler/lib/parse_bytecode.mli
+++ b/compiler/lib/parse_bytecode.mli
@@ -23,14 +23,13 @@ open Stdlib
 module Debug : sig
   type t
 
-  type force =
+  type position =
     | Before
     | After
-    | No
 
   val create : include_cmis:bool -> bool -> t
 
-  val find_loc : t -> ?force:force -> Code.loc -> Parse_info.t option
+  val find_loc : t -> position:position -> Code.Addr.t -> Parse_info.t option
 
   val is_empty : t -> bool
 
diff --git a/compiler/lib/partial_cps_analysis.ml b/compiler/lib/partial_cps_analysis.ml
index e2424fac1e..28da3c6767 100644
--- a/compiler/lib/partial_cps_analysis.ml
+++ b/compiler/lib/partial_cps_analysis.ml
@@ -89,7 +89,7 @@ let block_deps ~info ~vars ~tail_deps ~deps ~blocks ~fun_name pc =
               add_dep deps f x)
       | Let (x, Closure _) -> add_var vars x
       | Let (_, (Prim _ | Block _ | Constant _ | Field _ | Special _))
-      | Assign _ | Set_field _ | Offset_ref _ | Array_set _ -> ())
+      | Event _ | Assign _ | Set_field _ | Offset_ref _ | Array_set _ -> ())
 
 let program_deps ~info ~vars ~tail_deps ~deps p =
   fold_closures
diff --git a/compiler/lib/phisimpl.ml b/compiler/lib/phisimpl.ml
index 285bfec8df..bccff572e6 100644
--- a/compiler/lib/phisimpl.ml
+++ b/compiler/lib/phisimpl.ml
@@ -71,7 +71,7 @@ let program_deps { blocks; _ } =
           | Assign (x, y) ->
               add_dep deps x y;
               add_def vars defs x y
-          | Set_field _ | Array_set _ | Offset_ref _ -> ());
+          | Event _ | Set_field _ | Array_set _ | Offset_ref _ -> ());
       match fst block.branch with
       | Return _ | Raise _ | Stop -> ()
       | Branch cont -> cont_deps blocks vars deps defs cont
diff --git a/compiler/lib/pure_fun.ml b/compiler/lib/pure_fun.ml
index fbb5bb9fb0..39d7d7873c 100644
--- a/compiler/lib/pure_fun.ml
+++ b/compiler/lib/pure_fun.ml
@@ -35,7 +35,7 @@ let pure_expr pure_funs e =
 let pure_instr pure_funs i =
   match i with
   | Let (_, e) -> pure_expr pure_funs e
-  | Assign _ -> true
+  | Event _ | Assign _ -> true
   | Set_field _ | Offset_ref _ | Array_set _ -> false
 
 (****)
diff --git a/compiler/lib/specialize_js.ml b/compiler/lib/specialize_js.ml
index 3e75f1a1f8..3f67eb3fed 100644
--- a/compiler/lib/specialize_js.ml
+++ b/compiler/lib/specialize_js.ml
@@ -185,6 +185,30 @@ let specialize_instrs ~target info l =
         , _ )
       ; (Let (res, Prim (Extern "caml_string_of_bytes", [ Pv bytes''' ])), _)
       ]
+    | [ (Event _, _)
+      ; ((Let (alen, Prim (Extern "caml_ml_string_length", [ Pv a ])), _) as len1)
+      ; ((Let (blen, Prim (Extern "caml_ml_string_length", [ Pv b ])), _) as len2)
+      ; (Event _, _)
+      ; ((Let (len, Prim (Extern "%int_add", [ Pv alen'; Pv blen' ])), _) as len3)
+      ; (Event _, _)
+      ; (Let (bytes, Prim (Extern "caml_create_bytes", [ Pv len' ])), _)
+      ; (Event _, _)
+      ; ( Let
+            ( u1
+            , Prim
+                ( Extern "caml_blit_string"
+                , [ Pv a'; Pc (Int zero1); Pv bytes'; Pc (Int zero2); Pv alen'' ] ) )
+        , _ )
+      ; (Event _, _)
+      ; ( Let
+            ( u2
+            , Prim
+                ( Extern "caml_blit_string"
+                , [ Pv b'; Pc (Int zero3); Pv bytes''; Pv alen'''; Pv blen'' ] ) )
+        , _ )
+      ; (Event _, _)
+      ; (Let (res, Prim (Extern "caml_string_of_bytes", [ Pv bytes''' ])), _)
+      ]
       when Targetint.is_zero zero1
            && Targetint.is_zero zero2
            && Targetint.is_zero zero3
diff --git a/compiler/lib/structure.ml b/compiler/lib/structure.ml
index 5632cb7219..24181b0aad 100644
--- a/compiler/lib/structure.ml
+++ b/compiler/lib/structure.ml
@@ -47,13 +47,21 @@ let is_merge_node' block_order preds pc =
   in
   n > 1
 
+let empty_body body =
+  List.for_all
+    ~f:(fun (i, _) ->
+      match i with
+      | Event _ -> true
+      | _ -> false)
+    body
+
 let rec leave_try_body block_order preds blocks pc =
   if is_merge_node' block_order preds pc
   then false
   else
     match Addr.Map.find pc blocks with
-    | { body = []; branch = (Return _ | Stop), _; _ } -> false
-    | { body = []; branch = Branch (pc', _), _; _ } ->
+    | { body; branch = (Return _ | Stop), _; _ } when empty_body body -> false
+    | { body; branch = Branch (pc', _), _; _ } when empty_body body ->
         leave_try_body block_order preds blocks pc'
     | _ -> true
 
@@ -198,6 +206,7 @@ let rec measure blocks g pc limit =
           match x with
           (* A closure is never small *)
           | Let (_, Closure _), _ -> -1
+          | Event _, _ -> acc
           | _ -> acc - 1)
     in
     if limit < 0
diff --git a/compiler/lib/subst.ml b/compiler/lib/subst.ml
index bd1e41f411..a5bd5c6816 100644
--- a/compiler/lib/subst.ml
+++ b/compiler/lib/subst.ml
@@ -47,6 +47,7 @@ let instr s i =
   | Set_field (x, n, typ, y) -> Set_field (s x, n, typ, s y)
   | Offset_ref (x, n) -> Offset_ref (s x, n)
   | Array_set (x, y, z) -> Array_set (s x, s y, s z)
+  | Event _ -> i
 
 let instrs s l = List.map l ~f:(fun (i, loc) -> instr s i, loc)
 
diff --git a/compiler/tests-compiler/effects_continuations.ml b/compiler/tests-compiler/effects_continuations.ml
index 0da72bd5ee..9d54a2e23b 100644
--- a/compiler/tests-compiler/effects_continuations.ml
+++ b/compiler/tests-compiler/effects_continuations.ml
@@ -103,61 +103,65 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
     {|
 
     function exceptions(s, cont){
-     try{var _t_ = runtime.caml_int_of_string(s), n = _t_;}
-     catch(_x_){
-      var _p_ = caml_wrap_exception(_x_);
-      if(_p_[1] !== Stdlib[7]){
+     try{var _w_ = runtime.caml_int_of_string(s), n = _w_;}
+     catch(_A_){
+      var _s_ = caml_wrap_exception(_A_);
+      if(_s_[1] !== Stdlib[7]){
        var raise$1 = caml_pop_trap();
-       return raise$1(caml_maybe_attach_backtrace(_p_, 0));
+       return raise$1(caml_maybe_attach_backtrace(_s_, 0));
       }
       var n = 0;
      }
      try{
       if(caml_string_equal(s, cst$0))
        throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-      var _s_ = 7, m = _s_;
+      var _v_ = 7, m = _v_;
      }
-     catch(_w_){
-      var _q_ = caml_wrap_exception(_w_);
-      if(_q_ !== Stdlib[8]){
+     catch(_z_){
+      var _t_ = caml_wrap_exception(_z_);
+      if(_t_ !== Stdlib[8]){
        var raise$0 = caml_pop_trap();
-       return raise$0(caml_maybe_attach_backtrace(_q_, 0));
+       return raise$0(caml_maybe_attach_backtrace(_t_, 0));
       }
       var m = 0;
      }
      runtime.caml_push_trap
-      (function(_v_){
-        if(_v_ === Stdlib[8]) return cont(0);
+      (function(_y_){
+        if(_y_ === Stdlib[8]) return cont(0);
         var raise = caml_pop_trap();
-        return raise(caml_maybe_attach_backtrace(_v_, 0));
+        return raise(caml_maybe_attach_backtrace(_y_, 0));
        });
      if(! caml_string_equal(s, cst))
       return caml_cps_call2
               (Stdlib[79],
                cst_toto,
-               function(_u_){caml_pop_trap(); return cont([0, [0, _u_, n, m]]);});
-     var _r_ = Stdlib[8], raise = caml_pop_trap();
-     return raise(caml_maybe_attach_backtrace(_r_, 1));
+               function(_x_){caml_pop_trap(); return cont([0, [0, _x_, n, m]]);});
+     var _u_ = Stdlib[8], raise = caml_pop_trap();
+     return raise(caml_maybe_attach_backtrace(_u_, 1));
     }
     //end
     function cond1(b, cont){
-     function _o_(ic){return cont([0, ic, 7]);}
+     function _p_(ic){return cont([0, ic, 7]);}
      return b
-             ? caml_cps_call2(Stdlib[79], cst_toto$0, _o_)
-             : caml_cps_call2(Stdlib[79], cst_titi, _o_);
+             ? caml_cps_call2
+               (Stdlib[79], cst_toto$0, function(_q_){return _p_(_q_);})
+             : caml_cps_call2
+               (Stdlib[79], cst_titi, function(_r_){return _p_(_r_);});
     }
     //end
     function cond2(b, cont){
-     function _m_(_n_){return cont(7);}
+     function _m_(){return cont(7);}
      return b
-             ? caml_cps_call2(Stdlib_Printf[3], _a_, _m_)
-             : caml_cps_call2(Stdlib_Printf[3], _b_, _m_);
+             ? caml_cps_call2(Stdlib_Printf[3], _a_, function(_n_){return _m_();})
+             : caml_cps_call2(Stdlib_Printf[3], _b_, function(_o_){return _m_();});
     }
     //end
     function cond3(b, cont){
      var x = [0, 0];
-     function _k_(_l_){return cont(x[1]);}
-     return b ? (x[1] = 1, _k_(0)) : caml_cps_call2(Stdlib_Printf[3], _c_, _k_);
+     function _k_(){return cont(x[1]);}
+     return b
+             ? (x[1] = 1, _k_())
+             : caml_cps_call2(Stdlib_Printf[3], _c_, function(_l_){return _k_();});
     }
     //end
     function loop1(b, cont){
@@ -165,17 +169,20 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
              (Stdlib[79],
               cst_static_examples_ml,
               function(ic){
-               function _i_(_j_){
+               function _i_(){
                 return caml_cps_call2
                         (Stdlib[83],
                          ic,
                          function(line){
                           return b
-                                  ? caml_cps_call2(Stdlib[53], line, _i_)
-                                  : caml_cps_exact_call1(_i_, 0);
+                                  ? caml_cps_call2
+                                    (Stdlib[53],
+                                     line,
+                                     function(_j_){return caml_cps_exact_call0(_i_);})
+                                  : caml_cps_exact_call0(_i_);
                          });
                }
-               return _i_(0);
+               return _i_();
               });
     }
     //end
@@ -184,15 +191,23 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
              (Stdlib[79],
               cst_static_examples_ml$0,
               function(ic){
-               function _g_(_h_){
-                return caml_cps_call2
-                        (Stdlib[83],
-                         ic,
-                         function(line){
-                          return caml_cps_call2(Stdlib[53], line, _g_);
-                         });
-               }
-               return caml_cps_call2(Stdlib_Printf[3], _d_, _g_);
+               return caml_cps_call2
+                       (Stdlib_Printf[3],
+                        _d_,
+                        function(_f_){
+                         function _g_(){
+                          return caml_cps_call2
+                                  (Stdlib[83],
+                                   ic,
+                                   function(line){
+                                    return caml_cps_call2
+                                            (Stdlib[53],
+                                             line,
+                                             function(_h_){return caml_cps_exact_call0(_g_);});
+                                   });
+                         }
+                         return _g_();
+                        });
               });
     }
     //end
@@ -201,12 +216,8 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
              (list_rev,
               _e_,
               function(l){
-               function _f_(x){
-                if(! x) return cont(l);
-                var r = x[2];
-                return caml_cps_exact_call1(_f_, r);
-               }
-               return _f_(l);
+               var x = l;
+               for(;;){if(! x) return cont(l); var r = x[2]; x = r;}
               });
     }
     //end |}]
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 23467138cf..c5b2efffcb 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -84,8 +84,8 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      29:    var
      30:     _a_ =  /*<<test.ml:7:47>>*/ caml_call1(Stdlib_Random[5], 30),
      31:     unicodeLength =
-     32:        /*<<test.ml:7:34>>*/ runtime.caml_ml_string_length
-     33:        (caml_call2(Stdlib_String[1], _a_, 105)),
+     32:        /*<<test.ml:7:67>>*/ runtime.caml_ml_string_length
+     33:        ( /*<<test.ml:7:34>>*/ caml_call2(Stdlib_String[1], _a_, 105)),
      34:     _b_ =  /*<<test.ml:8:56>>*/ caml_call1(Stdlib[33], unicodeLength),
      35:     _c_ =
      36:        /*<<test.ml:8:14>>*/ caml_call2
@@ -98,7 +98,7 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      43:     _e_ =  /*<<test.ml:9:14>>*/ caml_call2(Stdlib_String[1], 1, 201),
      44:     _f_ =  /*<<test.ml:9:13>>*/ caml_call2(Stdlib[28], _e_, _d_);
      45:     /*<<test.ml:9:0>>*/ caml_call1(Stdlib[46], _f_);
-     46:    var Test = [0, greeting$0, unicodeLength];
+     46:    var Test =  /*<<test.ml:9:62>>*/ [0, greeting$0, unicodeLength];
      47:    runtime.caml_register_global(8, Test, "Test");
      48:    return;
      49:    /*<<?>>*/ }
@@ -249,144 +249,151 @@ end
      29:     Stdlib_Printf = global_data.Stdlib__Printf,
      30:     executable_name =
      31:        /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name(0),
-     32:     os_type =  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config(0)[1],
-     33:     backend_type = [0, caml_string_of_jsbytes("js_of_ocaml")],
-     34:     unix = runtime.caml_sys_const_ostype_unix(0),
-     35:     win32 = runtime.caml_sys_const_ostype_win32(0),
-     36:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
-     37:     max_array_length = runtime.caml_sys_const_max_wosize(0),
-     38:     max_floatarray_length = max_array_length / 2 | 0,
-     39:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
-     40:     Unhandled =
-     41:        /*<<test.ml:28:12>>*/ [248,
-     42:        caml_string_of_jsbytes("Test.Unhandled"),
-     43:        runtime.caml_fresh_oo_id(0)],
-     44:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
-     45:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
-     46:     cst_Raised_by_primitive_operat =
-     47:       caml_string_of_jsbytes("Raised by primitive operation at"),
-     48:     cst_Called_from = caml_string_of_jsbytes("Called from"),
-     49:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
-     50:     _a_ =
-     51:       [0,
-     52:        [2,
-     53:         0,
-     54:         [12,
-     55:          32,
-     56:          [2,
-     57:           0,
-     58:           [11,
-     59:            caml_string_of_jsbytes(' in file "'),
-     60:            [2,
-     61:             0,
-     62:             [12,
-     63:              34,
-     64:              [2,
-     65:               0,
-     66:               [11,
-     67:                caml_string_of_jsbytes(", line "),
-     68:                [4,
-     69:                 0,
-     70:                 0,
-     71:                 0,
-     72:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
-     73:        caml_string_of_jsbytes
-     74:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
-     75:     _b_ =
-     76:       [0,
-     77:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
-     78:        caml_string_of_jsbytes("%s unknown location")],
-     79:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
-     80:     _d_ =
-     81:       [0,
-     82:        [11,
-     83:         caml_string_of_jsbytes
-     84:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
-     85:         0],
-     86:        caml_string_of_jsbytes
-     87:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
-     88:    function format_backtrace_slot(pos, slot){
-     89:     function info(is_raise){
-     90:       /*<<test.ml:46:4>>*/ return is_raise
-     91:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     92:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
-     93:     }
-     94:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     95:      var
-     96:       _h_ = slot[5],
-     97:       _i_ = slot[4],
-     98:       _j_ = slot[3],
-     99:       _k_ = slot[6] ? cst_inlined : cst,
-    100:       _l_ = slot[2],
-    101:       _m_ = slot[7],
-    102:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
-    103:       /*<<test.ml:58:6>>*/ return [0,
-    104:               /*<<test.ml:58:11>>*/ caml_call8
-    105:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)] /*<<test.ml:58:6>>*/ ;
-    106:     }
-    107:     if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
-    108:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
-    109:      /*<<test.ml:56:8>>*/ return [0,
-    110:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:8>>*/ ;
-    111:     /*<<test.ml:61:52>>*/ }
-    112:    function print_exception_backtrace(outchan, backtrace){
-    113:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    114:       /*<<test.ml:66:6>>*/ return caml_call2(Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
-    115:     var a = backtrace[1], _f_ = a.length - 2 | 0, _e_ = 0;
-    116:     if(_f_ >= 0){
-    117:      var i = _e_;
-    118:      for(;;){
-    119:       var
-    120:        match =
-    121:           /*<<test.ml:70:14>>*/ format_backtrace_slot
-    122:           (i, runtime.caml_check_bound(a, i)[1 + i]);
-    123:       if(match){
-    124:        var str = match[1];
-    125:         /*<<test.ml:72:24>>*/ caml_call3(Stdlib_Printf[1], outchan, _c_, str);
-    126:       }
-    127:       var _g_ =  /*<<test.ml:69:6>>*/ i + 1 | 0;
-    128:       if(_f_ === i) break;
-    129:       i = _g_;
-    130:      }
-    131:     }
-    132:     return 0;
-    133:     /*<<test.ml:73:10>>*/ }
-    134:    function compare(left, right, e1, e2){
-    135:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    136:      var v1 = e1[1];
-    137:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
-    138:      var v2 = e2[1];
-    139:       /*<<test.ml:78:24>>*/ return caml_call2(left, v1, v2) /*<<test.ml:81:24>>*/ ;
-    140:     }
-    141:     var v1$0 = e1[1];
-    142:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
-    143:     var v2$0 = e2[1];
-    144:      /*<<test.ml:79:26>>*/ return caml_call2(right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
-    145:    }
-    146:    var
-    147:     Either =  /*<<test.ml:75:16>>*/ [0, compare],
-    148:     Test =
-    149:       [0,
-    150:        executable_name,
-    151:        os_type,
-    152:        backend_type,
-    153:        0,
-    154:        32,
-    155:        32,
-    156:        unix,
-    157:        win32,
-    158:        cygwin,
-    159:        max_array_length,
-    160:        max_floatarray_length,
-    161:        max_string_length,
-    162:        Unhandled,
-    163:        format_backtrace_slot,
-    164:        print_exception_backtrace,
-    165:        Either];
-    166:    runtime.caml_register_global(12, Test, "Test");
-    167:    return;
-    168:    /*<<?>>*/ }
-    169:   (globalThis));
-    170:
-    171: //# sourceMappingURL=test.map
+     32:     os_type =
+     33:        /*<<test.ml:15:34>>*/  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config
+     34:         (0)
+     35:        [1],
+     36:     backend_type =
+     37:        /*<<test.ml:15:34>>*/ [0, caml_string_of_jsbytes("js_of_ocaml")],
+     38:     unix = runtime.caml_sys_const_ostype_unix(0),
+     39:     win32 = runtime.caml_sys_const_ostype_win32(0),
+     40:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
+     41:     max_array_length = runtime.caml_sys_const_max_wosize(0),
+     42:     max_floatarray_length = max_array_length / 2 | 0,
+     43:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
+     44:     Unhandled =
+     45:       [248,
+     46:        caml_string_of_jsbytes("Test.Unhandled"),
+     47:        runtime.caml_fresh_oo_id(0)],
+     48:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
+     49:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
+     50:     cst_Raised_by_primitive_operat =
+     51:       caml_string_of_jsbytes("Raised by primitive operation at"),
+     52:     cst_Called_from = caml_string_of_jsbytes("Called from"),
+     53:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
+     54:     _a_ =
+     55:       [0,
+     56:        [2,
+     57:         0,
+     58:         [12,
+     59:          32,
+     60:          [2,
+     61:           0,
+     62:           [11,
+     63:            caml_string_of_jsbytes(' in file "'),
+     64:            [2,
+     65:             0,
+     66:             [12,
+     67:              34,
+     68:              [2,
+     69:               0,
+     70:               [11,
+     71:                caml_string_of_jsbytes(", line "),
+     72:                [4,
+     73:                 0,
+     74:                 0,
+     75:                 0,
+     76:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
+     77:        caml_string_of_jsbytes
+     78:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
+     79:     _b_ =
+     80:       [0,
+     81:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
+     82:        caml_string_of_jsbytes("%s unknown location")],
+     83:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
+     84:     _d_ =
+     85:       [0,
+     86:        [11,
+     87:         caml_string_of_jsbytes
+     88:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
+     89:         0],
+     90:        caml_string_of_jsbytes
+     91:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
+     92:    function format_backtrace_slot(pos, slot){
+     93:     function info(is_raise){
+     94:       /*<<test.ml:46:4>>*/ return is_raise
+     95:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
+     96:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
+     97:     }
+     98:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
+     99:      var
+    100:       _h_ =  /*<<test.ml:58:6>>*/ slot[5],
+    101:       _i_ = slot[4],
+    102:       _j_ = slot[3],
+    103:       _k_ = slot[6] ? cst_inlined : cst,
+    104:       _l_ = slot[2],
+    105:       _m_ = slot[7],
+    106:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
+    107:       /*<<test.ml:61:52>>*/ return [0,
+    108:               /*<<test.ml:58:11>>*/ caml_call8
+    109:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)] /*<<test.ml:61:52>>*/ ;
+    110:     }
+    111:      /*<<test.ml:53:6>>*/ if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    112:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
+    113:      /*<<test.ml:56:64>>*/ return [0,
+    114:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:64>>*/ ;
+    115:     /*<<test.ml:61:52>>*/ }
+    116:    function print_exception_backtrace(outchan, backtrace){
+    117:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    118:       /*<<test.ml:66:6>>*/ return caml_call2(Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
+    119:     var
+    120:      a = backtrace[1],
+    121:      _f_ =  /*<<test.ml:69:6>>*/ a.length - 2 | 0,
+    122:      _e_ = 0;
+    123:     if(_f_ >= 0){
+    124:      var i = _e_;
+    125:      for(;;){
+    126:       var
+    127:        match =
+    128:           /*<<test.ml:70:14>>*/ format_backtrace_slot
+    129:           (i,  /*<<test.ml:70:38>>*/ runtime.caml_check_bound(a, i)[1 + i]);
+    130:        /*<<test.ml:70:43>>*/ if(match){
+    131:        var str = match[1];
+    132:         /*<<test.ml:72:24>>*/ caml_call3(Stdlib_Printf[1], outchan, _c_, str);
+    133:       }
+    134:       var _g_ = i + 1 | 0;
+    135:       if(_f_ === i) break;
+    136:       i = _g_;
+    137:      }
+    138:     }
+    139:     return 0;
+    140:     /*<<test.ml:73:10>>*/ }
+    141:    function compare(left, right, e1, e2){
+    142:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    143:      var v1 = e1[1];
+    144:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    145:      var v2 = e2[1];
+    146:       /*<<test.ml:78:24>>*/ return caml_call2(left, v1, v2) /*<<test.ml:81:24>>*/ ;
+    147:     }
+    148:     var v1$0 = e1[1];
+    149:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    150:     var v2$0 = e2[1];
+    151:      /*<<test.ml:79:26>>*/ return caml_call2(right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
+    152:    }
+    153:    var
+    154:     Either =  /*<<test.ml:15:34>>*/ [0, compare],
+    155:     Test =
+    156:       [0,
+    157:        executable_name,
+    158:        os_type,
+    159:        backend_type,
+    160:        0,
+    161:        32,
+    162:        32,
+    163:        unix,
+    164:        win32,
+    165:        cygwin,
+    166:        max_array_length,
+    167:        max_floatarray_length,
+    168:        max_string_length,
+    169:        Unhandled,
+    170:        format_backtrace_slot,
+    171:        print_exception_backtrace,
+    172:        Either];
+    173:    runtime.caml_register_global(12, Test, "Test");
+    174:    return;
+    175:    /*<<?>>*/ }
+    176:   (globalThis));
+    177:
+    178: //# sourceMappingURL=test.map
     |}]
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 6b0776548e..ddfa13f391 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -10,67 +10,67 @@
     switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormatBasics.ml:533:4>>*/ return [0,
-                /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:533:28>>*/ return [0,
+                /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:28>>*/ ;
       case 1:
        var rest$0 = param[1];
-        /*<<camlinternalFormatBasics.ml:535:4>>*/ return [1,
-                /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:535:30>>*/ return [1,
+                /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:30>>*/ ;
       case 2:
        var rest$1 = param[1];
-        /*<<camlinternalFormatBasics.ml:537:4>>*/ return [2,
-                /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:537:27>>*/ return [2,
+                /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:27>>*/ ;
       case 3:
        var rest$2 = param[1];
-        /*<<camlinternalFormatBasics.ml:539:4>>*/ return [3,
-                /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:539:29>>*/ return [3,
+                /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:29>>*/ ;
       case 4:
        var rest$3 = param[1];
-        /*<<camlinternalFormatBasics.ml:543:4>>*/ return [4,
-                /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:543:33>>*/ return [4,
+                /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:33>>*/ ;
       case 5:
        var rest$4 = param[1];
-        /*<<camlinternalFormatBasics.ml:541:4>>*/ return [5,
-                /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:541:29>>*/ return [5,
+                /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:29>>*/ ;
       case 6:
        var rest$5 = param[1];
-        /*<<camlinternalFormatBasics.ml:545:4>>*/ return [6,
-                /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:545:29>>*/ return [6,
+                /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:29>>*/ ;
       case 7:
        var rest$6 = param[1];
-        /*<<camlinternalFormatBasics.ml:547:4>>*/ return [7,
-                /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:547:28>>*/ return [7,
+                /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:28>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
-        /*<<camlinternalFormatBasics.ml:549:4>>*/ return [8,
+        /*<<camlinternalFormatBasics.ml:549:37>>*/ return [8,
                ty,
-                /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:37>>*/ ;
       case 9:
        var rest$8 = param[3], ty1 = param[1];
-        /*<<camlinternalFormatBasics.ml:551:4>>*/ return [9,
+        /*<<camlinternalFormatBasics.ml:551:45>>*/ return [9,
                ty1,
                ty1,
-                /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:4>>*/ ;
+                /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:45>>*/ ;
       case 10:
        var rest$9 = param[1];
-        /*<<camlinternalFormatBasics.ml:553:4>>*/ return [10,
-                /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:553:29>>*/ return [10,
+                /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:29>>*/ ;
       case 11:
        var rest$10 = param[1];
-        /*<<camlinternalFormatBasics.ml:555:4>>*/ return [11,
-                /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:555:29>>*/ return [11,
+                /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:29>>*/ ;
       case 12:
        var rest$11 = param[1];
-        /*<<camlinternalFormatBasics.ml:557:4>>*/ return [12,
-                /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:557:27>>*/ return [12,
+                /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:27>>*/ ;
       case 13:
        var rest$12 = param[1];
-        /*<<camlinternalFormatBasics.ml:559:4>>*/ return [13,
-                /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:559:30>>*/ return [13,
+                /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:30>>*/ ;
       default:
        var rest$13 = param[1];
-        /*<<camlinternalFormatBasics.ml:561:4>>*/ return [14,
-                /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:4>>*/ ;
+        /*<<camlinternalFormatBasics.ml:561:38>>*/ return [14,
+                /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:38>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:562:32>>*/ }
    function concat_fmtty(fmtty1, fmtty2){
@@ -79,82 +79,82 @@
     switch(fmtty1[0]){
       case 0:
        var rest = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:592:4>>*/ return [0,
+        /*<<camlinternalFormatBasics.ml:592:38>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:592:12>>*/ concat_fmtty
-                (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:4>>*/ ;
+                (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:38>>*/ ;
       case 1:
        var rest$0 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:594:4>>*/ return [1,
+        /*<<camlinternalFormatBasics.ml:594:40>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:594:14>>*/ concat_fmtty
-                (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:4>>*/ ;
+                (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:40>>*/ ;
       case 2:
        var rest$1 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:596:4>>*/ return [2,
+        /*<<camlinternalFormatBasics.ml:596:37>>*/ return [2,
                 /*<<camlinternalFormatBasics.ml:596:11>>*/ concat_fmtty
-                (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:4>>*/ ;
+                (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:37>>*/ ;
       case 3:
        var rest$2 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:598:4>>*/ return [3,
+        /*<<camlinternalFormatBasics.ml:598:39>>*/ return [3,
                 /*<<camlinternalFormatBasics.ml:598:13>>*/ concat_fmtty
-                (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:4>>*/ ;
+                (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:39>>*/ ;
       case 4:
        var rest$3 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:600:4>>*/ return [4,
+        /*<<camlinternalFormatBasics.ml:600:43>>*/ return [4,
                 /*<<camlinternalFormatBasics.ml:600:17>>*/ concat_fmtty
-                (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:4>>*/ ;
+                (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:43>>*/ ;
       case 5:
        var rest$4 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:602:4>>*/ return [5,
+        /*<<camlinternalFormatBasics.ml:602:39>>*/ return [5,
                 /*<<camlinternalFormatBasics.ml:602:13>>*/ concat_fmtty
-                (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:4>>*/ ;
+                (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:39>>*/ ;
       case 6:
        var rest$5 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:604:4>>*/ return [6,
+        /*<<camlinternalFormatBasics.ml:604:39>>*/ return [6,
                 /*<<camlinternalFormatBasics.ml:604:13>>*/ concat_fmtty
-                (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:4>>*/ ;
+                (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:39>>*/ ;
       case 7:
        var rest$6 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:606:4>>*/ return [7,
+        /*<<camlinternalFormatBasics.ml:606:38>>*/ return [7,
                 /*<<camlinternalFormatBasics.ml:606:12>>*/ concat_fmtty
-                (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:4>>*/ ;
+                (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:38>>*/ ;
       case 8:
        var rest$7 = fmtty1[2], ty = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:618:4>>*/ return [8,
+        /*<<camlinternalFormatBasics.ml:618:47>>*/ return [8,
                ty,
                 /*<<camlinternalFormatBasics.ml:618:23>>*/ concat_fmtty
-                (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:4>>*/ ;
+                (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:47>>*/ ;
       case 9:
        var rest$8 = fmtty1[3], ty2 = fmtty1[2], ty1 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:620:4>>*/ return [9,
+        /*<<camlinternalFormatBasics.ml:620:55>>*/ return [9,
                ty1,
                ty2,
                 /*<<camlinternalFormatBasics.ml:620:31>>*/ concat_fmtty
-                (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:4>>*/ ;
+                (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:55>>*/ ;
       case 10:
        var rest$9 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:608:4>>*/ return [10,
+        /*<<camlinternalFormatBasics.ml:608:39>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:608:13>>*/ concat_fmtty
-                (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:4>>*/ ;
+                (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:39>>*/ ;
       case 11:
        var rest$10 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:610:4>>*/ return [11,
+        /*<<camlinternalFormatBasics.ml:610:39>>*/ return [11,
                 /*<<camlinternalFormatBasics.ml:610:13>>*/ concat_fmtty
-                (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:4>>*/ ;
+                (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:39>>*/ ;
       case 12:
        var rest$11 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:612:4>>*/ return [12,
+        /*<<camlinternalFormatBasics.ml:612:37>>*/ return [12,
                 /*<<camlinternalFormatBasics.ml:612:11>>*/ concat_fmtty
-                (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:4>>*/ ;
+                (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:37>>*/ ;
       case 13:
        var rest$12 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:614:4>>*/ return [13,
+        /*<<camlinternalFormatBasics.ml:614:40>>*/ return [13,
                 /*<<camlinternalFormatBasics.ml:614:14>>*/ concat_fmtty
-                (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:4>>*/ ;
+                (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:40>>*/ ;
       default:
        var rest$13 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:616:4>>*/ return [14,
+        /*<<camlinternalFormatBasics.ml:616:48>>*/ return [14,
                 /*<<camlinternalFormatBasics.ml:616:22>>*/ concat_fmtty
-                (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:4>>*/ ;
+                (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:48>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:621:26>>*/ }
    function concat_fmt(fmt1, fmt2){
@@ -163,177 +163,177 @@
     switch(fmt1[0]){
       case 0:
        var rest = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:649:4>>*/ return [0,
+        /*<<camlinternalFormatBasics.ml:649:31>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:649:9>>*/ concat_fmt
-                (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:4>>*/ ;
+                (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:31>>*/ ;
       case 1:
        var rest$0 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:651:4>>*/ return [1,
+        /*<<camlinternalFormatBasics.ml:651:36>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:651:14>>*/ concat_fmt
-                (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:4>>*/ ;
+                (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:36>>*/ ;
       case 2:
        var rest$1 = fmt1[2], pad = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:633:4>>*/ return [2,
+        /*<<camlinternalFormatBasics.ml:633:37>>*/ return [2,
                pad,
                 /*<<camlinternalFormatBasics.ml:633:17>>*/ concat_fmt
-                (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:4>>*/ ;
+                (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:37>>*/ ;
       case 3:
        var rest$2 = fmt1[2], pad$0 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:635:4>>*/ return [3,
+        /*<<camlinternalFormatBasics.ml:635:42>>*/ return [3,
                pad$0,
                 /*<<camlinternalFormatBasics.ml:635:22>>*/ concat_fmt
-                (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:4>>*/ ;
+                (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:42>>*/ ;
       case 4:
        var rest$3 = fmt1[4], prec = fmt1[3], pad$1 = fmt1[2], iconv = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:638:4>>*/ return [4,
+        /*<<camlinternalFormatBasics.ml:638:47>>*/ return [4,
                iconv,
                pad$1,
                prec,
                 /*<<camlinternalFormatBasics.ml:638:27>>*/ concat_fmt
-                (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:4>>*/ ;
+                (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:47>>*/ ;
       case 5:
        var
         rest$4 = fmt1[4],
         prec$0 = fmt1[3],
         pad$2 = fmt1[2],
         iconv$0 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:640:4>>*/ return [5,
+        /*<<camlinternalFormatBasics.ml:640:49>>*/ return [5,
                iconv$0,
                pad$2,
                prec$0,
                 /*<<camlinternalFormatBasics.ml:640:29>>*/ concat_fmt
-                (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:4>>*/ ;
+                (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:49>>*/ ;
       case 6:
        var
         rest$5 = fmt1[4],
         prec$1 = fmt1[3],
         pad$3 = fmt1[2],
         iconv$1 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:642:4>>*/ return [6,
+        /*<<camlinternalFormatBasics.ml:642:53>>*/ return [6,
                iconv$1,
                pad$3,
                prec$1,
                 /*<<camlinternalFormatBasics.ml:642:33>>*/ concat_fmt
-                (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:4>>*/ ;
+                (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:53>>*/ ;
       case 7:
        var
         rest$6 = fmt1[4],
         prec$2 = fmt1[3],
         pad$4 = fmt1[2],
         iconv$2 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:644:4>>*/ return [7,
+        /*<<camlinternalFormatBasics.ml:644:49>>*/ return [7,
                iconv$2,
                pad$4,
                prec$2,
                 /*<<camlinternalFormatBasics.ml:644:29>>*/ concat_fmt
-                (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:4>>*/ ;
+                (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:49>>*/ ;
       case 8:
        var
         rest$7 = fmt1[4],
         prec$3 = fmt1[3],
         pad$5 = fmt1[2],
         fconv = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:646:4>>*/ return [8,
+        /*<<camlinternalFormatBasics.ml:646:49>>*/ return [8,
                fconv,
                pad$5,
                prec$3,
                 /*<<camlinternalFormatBasics.ml:646:29>>*/ concat_fmt
-                (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:4>>*/ ;
+                (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:49>>*/ ;
       case 9:
        var rest$8 = fmt1[2], pad$6 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:653:4>>*/ return [9,
+        /*<<camlinternalFormatBasics.ml:653:35>>*/ return [9,
                pad$6,
                 /*<<camlinternalFormatBasics.ml:653:15>>*/ concat_fmt
-                (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:4>>*/ ;
+                (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:35>>*/ ;
       case 10:
        var rest$9 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:663:4>>*/ return [10,
+        /*<<camlinternalFormatBasics.ml:663:32>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:663:10>>*/ concat_fmt
-                (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:4>>*/ ;
+                (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:32>>*/ ;
       case 11:
        var rest$10 = fmt1[2], str = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:666:4>>*/ return [11,
+        /*<<camlinternalFormatBasics.ml:666:45>>*/ return [11,
                str,
                 /*<<camlinternalFormatBasics.ml:666:25>>*/ concat_fmt
-                (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:4>>*/ ;
+                (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:45>>*/ ;
       case 12:
        var rest$11 = fmt1[2], chr = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:668:4>>*/ return [12,
+        /*<<camlinternalFormatBasics.ml:668:45>>*/ return [12,
                chr,
                 /*<<camlinternalFormatBasics.ml:668:25>>*/ concat_fmt
-                (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:4>>*/ ;
+                (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:45>>*/ ;
       case 13:
        var rest$12 = fmt1[3], fmtty = fmt1[2], pad$7 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:671:4>>*/ return [13,
+        /*<<camlinternalFormatBasics.ml:671:50>>*/ return [13,
                pad$7,
                fmtty,
                 /*<<camlinternalFormatBasics.ml:671:30>>*/ concat_fmt
-                (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:4>>*/ ;
+                (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:50>>*/ ;
       case 14:
        var rest$13 = fmt1[3], fmtty$0 = fmt1[2], pad$8 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:673:4>>*/ return [14,
+        /*<<camlinternalFormatBasics.ml:673:50>>*/ return [14,
                pad$8,
                fmtty$0,
                 /*<<camlinternalFormatBasics.ml:673:30>>*/ concat_fmt
-                (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:4>>*/ ;
+                (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:50>>*/ ;
       case 15:
        var rest$14 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:655:4>>*/ return [15,
+        /*<<camlinternalFormatBasics.ml:655:32>>*/ return [15,
                 /*<<camlinternalFormatBasics.ml:655:10>>*/ concat_fmt
-                (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:4>>*/ ;
+                (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:32>>*/ ;
       case 16:
        var rest$15 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:657:4>>*/ return [16,
+        /*<<camlinternalFormatBasics.ml:657:32>>*/ return [16,
                 /*<<camlinternalFormatBasics.ml:657:10>>*/ concat_fmt
-                (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:4>>*/ ;
+                (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:32>>*/ ;
       case 17:
        var rest$16 = fmt1[2], fmting_lit = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:685:4>>*/ return [17,
+        /*<<camlinternalFormatBasics.ml:685:52>>*/ return [17,
                fmting_lit,
                 /*<<camlinternalFormatBasics.ml:685:32>>*/ concat_fmt
-                (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:4>>*/ ;
+                (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:52>>*/ ;
       case 18:
        var rest$17 = fmt1[2], fmting_gen = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:687:4>>*/ return [18,
+        /*<<camlinternalFormatBasics.ml:687:52>>*/ return [18,
                fmting_gen,
                 /*<<camlinternalFormatBasics.ml:687:32>>*/ concat_fmt
-                (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:4>>*/ ;
+                (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:52>>*/ ;
       case 19:
        var rest$18 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:661:4>>*/ return [19,
+        /*<<camlinternalFormatBasics.ml:661:33>>*/ return [19,
                 /*<<camlinternalFormatBasics.ml:661:11>>*/ concat_fmt
-                (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:4>>*/ ;
+                (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:33>>*/ ;
       case 20:
        var rest$19 = fmt1[3], char_set = fmt1[2], width_opt = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:676:4>>*/ return [20,
+        /*<<camlinternalFormatBasics.ml:676:60>>*/ return [20,
                width_opt,
                char_set,
                 /*<<camlinternalFormatBasics.ml:676:40>>*/ concat_fmt
-                (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:4>>*/ ;
+                (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:60>>*/ ;
       case 21:
        var rest$20 = fmt1[2], counter = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:678:4>>*/ return [21,
+        /*<<camlinternalFormatBasics.ml:678:51>>*/ return [21,
                counter,
                 /*<<camlinternalFormatBasics.ml:678:31>>*/ concat_fmt
-                (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:4>>*/ ;
+                (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:51>>*/ ;
       case 22:
        var rest$21 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:680:4>>*/ return [22,
+        /*<<camlinternalFormatBasics.ml:680:41>>*/ return [22,
                 /*<<camlinternalFormatBasics.ml:680:19>>*/ concat_fmt
-                (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:4>>*/ ;
+                (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:41>>*/ ;
       case 23:
        var rest$22 = fmt1[2], ign = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:682:4>>*/ return [23,
+        /*<<camlinternalFormatBasics.ml:682:44>>*/ return [23,
                ign,
                 /*<<camlinternalFormatBasics.ml:682:24>>*/ concat_fmt
-                (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:4>>*/ ;
+                (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:44>>*/ ;
       default:
        var rest$23 = fmt1[3], f = fmt1[2], arity = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:659:4>>*/ return [24,
+        /*<<camlinternalFormatBasics.ml:659:42>>*/ return [24,
                arity,
                f,
                 /*<<camlinternalFormatBasics.ml:659:22>>*/ concat_fmt
-                (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:4>>*/ ;
+                (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:42>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:690:8>>*/ }
    var CamlinternalFormatBasics = [0, concat_fmtty, erase_rel, concat_fmt];
@@ -413,7 +413,7 @@
     /*<<stdlib.ml:30:45>>*/ }
    var
     Exit =
-       /*<<stdlib.ml:32:0>>*/ [248,
+       /*<<stdlib.ml:24:44>>*/ [248,
        "Stdlib.Exit",
        runtime.caml_fresh_oo_id(0)];
    function min(x, y){
@@ -453,7 +453,7 @@
     epsilon_float =
        /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 15536)),
-    symbol_concat = caml_string_concat,
+    symbol_concat =  /*<<stdlib.ml:190:42>>*/ caml_string_concat,
     cst_char_of_int = "char_of_int",
     cst_true = cst_true$0,
     cst_false = cst_false$0,
@@ -482,15 +482,15 @@
             : _b_ /*<<stdlib.ml:263:13>>*/ ;
    }
    function string_of_int(n){
-     /*<<stdlib.ml:266:2>>*/ return "" + n;
-    /*<<stdlib.ml:266:19>>*/ }
+     /*<<stdlib.ml:266:2>>*/ return "" + n /*<<stdlib.ml:266:19>>*/ ;
+   }
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
      var
       _w_ =
-         /*<<stdlib.ml:272:6>>*/ [0,
+         /*<<stdlib.ml:272:28>>*/ [0,
           /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
-      /*<<stdlib.ml:272:6>>*/ return _w_;
+     return _w_;
     }
     catch(_x_){
      var _v_ = caml_wrap_exception(_x_);
@@ -499,30 +499,33 @@
     }
     /*<<stdlib.ml:273:24>>*/ }
    function valid_float_lexem(s1){
-    var l = caml_ml_string_length(s1), i = 0;
+    var l =  /*<<stdlib.ml:278:2>>*/ caml_ml_string_length(s1), i = 0;
      /*<<stdlib.ml:280:4>>*/ for(;;){
      if(l <= i) return s1 + ".";
      var match =  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get(s1, i);
      a:
      {
-      if(48 <= match){if(58 > match) break a;} else if(45 === match) break a;
-       /*<<stdlib.ml:279:2>>*/ return s1;
+       /*<<stdlib.ml:281:24>>*/ if(48 <= match){
+       if(58 > match) break a;
+      }
+      else if(45 === match) break a;
+       /*<<stdlib.ml:283:11>>*/ return s1;
      }
      var i$0 =  /*<<stdlib.ml:282:26>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<stdlib.ml:285:8>>*/ }
    function string_of_float(f){
-     /*<<stdlib.ml:287:24>>*/ return  /*<<stdlib.ml:287:42>>*/ valid_float_lexem
-            (runtime.caml_format_float("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
+     /*<<stdlib.ml:287:24>>*/ return  /*<<stdlib.ml:287:66>>*/ valid_float_lexem
+            ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
    }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
      var
       _t_ =
-         /*<<stdlib.ml:293:6>>*/ [0,
+         /*<<stdlib.ml:293:30>>*/ [0,
           /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
-      /*<<stdlib.ml:293:6>>*/ return _t_;
+     return _t_;
     }
     catch(_u_){
      var _s_ = caml_wrap_exception(_u_);
@@ -539,7 +542,7 @@
     var
      tl = match[2],
      h3 = match[1],
-     block =  /*<<stdlib.ml:303:40>>*/ [0, h3, 24029],
+     block =  /*<<stdlib.ml:303:28>>*/ [0, h3, 24029],
      dst = block,
      offset = 1,
      l1$0 = tl;
@@ -552,23 +555,23 @@
         var
          tl$0 = match$0[2],
          h3$0 = match$0[1],
-         dst$0 =  /*<<stdlib.ml:303:40>>*/ [0, h3$0, 24029];
+         dst$0 =  /*<<stdlib.ml:303:28>>*/ [0, h3$0, 24029];
         dst[1 + offset] = [0, h1$0, [0, h2$0, dst$0]];
         dst = dst$0;
         offset = 1;
         l1$0 = tl$0;
         continue;
        }
-       dst[1 + offset] = [0, h1$0, [0, h2$0, l2]];
+        /*<<stdlib.ml:302:22>>*/ dst[1 + offset] = [0, h1$0, [0, h2$0, l2]];
       }
       else
-       dst[1 + offset] = [0, h1$0, l2];
+        /*<<stdlib.ml:301:16>>*/ dst[1 + offset] = [0, h1$0, l2];
      }
      else
-      dst[1 + offset] = l2;
-      /*<<stdlib.ml:303:28>>*/ return [0, h1, [0, h2, block]];
+       /*<<stdlib.ml:300:10>>*/ dst[1 + offset] = l2;
+      /*<<stdlib.ml:303:55>>*/ return [0, h1, [0, h2, block]];
     }
-    /*<<stdlib.ml:303:55>>*/ }
+   }
    var
     stdin =  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in(0),
     stdout =  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out(1),
@@ -587,7 +590,7 @@
         /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
         ( /*<<stdlib.ml:331:29>>*/ caml_sys_open(name, mode, perm));
      /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name(c, name);
-    return c;
+     /*<<stdlib.ml:332:29>>*/ return c;
     /*<<stdlib.ml:333:3>>*/ }
    function open_out(name){
      /*<<stdlib.ml:336:2>>*/ return open_out_gen(_c_, 438, name) /*<<stdlib.ml:336:74>>*/ ;
@@ -601,7 +604,7 @@
      /*<<stdlib.ml:347:17>>*/ for(;;){
      if(! param$0)  /*<<stdlib.ml:348:12>>*/ return 0;
      var l = param$0[2], a = param$0[1];
-      /*<<stdlib.ml:350:8>>*/ try{ /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);}
+     try{ /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);}
      catch(_p_){
       var _o_ = caml_wrap_exception(_p_);
       if(_o_[1] !== Sys_error) throw caml_maybe_attach_backtrace(_o_, 0);
@@ -620,13 +623,15 @@
    function output(oc, s, ofs, len){
      /*<<stdlib.ml:372:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:374:7>>*/ return caml_ml_output_bytes(oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
+      /*<<stdlib.ml:374:33>>*/ return  /*<<stdlib.ml:374:7>>*/ caml_ml_output_bytes
+             (oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
      /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output) /*<<stdlib.ml:374:33>>*/ ;
    }
    function output_substring(oc, s, ofs, len){
      /*<<stdlib.ml:377:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:379:7>>*/ return caml_ml_output(oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
+      /*<<stdlib.ml:379:40>>*/ return  /*<<stdlib.ml:379:7>>*/ caml_ml_output
+             (oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
      /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
    }
    function output_value(chan, v){
@@ -634,12 +639,13 @@
    }
    function close_out(oc){
      /*<<stdlib.ml:392:19>>*/ caml_ml_flush(oc);
-     /*<<stdlib.ml:392:29>>*/ return caml_ml_close_channel(oc) /*<<stdlib.ml:392:49>>*/ ;
+     /*<<stdlib.ml:392:49>>*/ return  /*<<stdlib.ml:392:29>>*/ caml_ml_close_channel
+            (oc) /*<<stdlib.ml:392:49>>*/ ;
    }
    function close_out_noerr(oc){
      /*<<stdlib.ml:394:2>>*/ try{ /*<<stdlib.ml:394:7>>*/ caml_ml_flush(oc);}
     catch(_n_){}
-     /*<<stdlib.ml:395:2>>*/ try{
+    try{
      var _l_ =  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel(oc);
      return _l_;
     }
@@ -651,7 +657,7 @@
         /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
         ( /*<<stdlib.ml:405:28>>*/ caml_sys_open(name, mode, perm));
      /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name(c, name);
-    return c;
+     /*<<stdlib.ml:406:28>>*/ return c;
     /*<<stdlib.ml:407:3>>*/ }
    function open_in(name){
      /*<<stdlib.ml:410:2>>*/ return open_in_gen(_e_, 0, name) /*<<stdlib.ml:410:45>>*/ ;
@@ -662,7 +668,8 @@
    function input(ic, s, ofs, len){
      /*<<stdlib.ml:421:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:423:7>>*/ return caml_ml_input(ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
+      /*<<stdlib.ml:423:32>>*/ return  /*<<stdlib.ml:423:7>>*/ caml_ml_input
+             (ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
      /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input) /*<<stdlib.ml:423:32>>*/ ;
    }
    function unsafe_really_input(ic, s, ofs, len){
@@ -673,7 +680,9 @@
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
        /*<<stdlib.ml:429:9>>*/ throw caml_maybe_attach_backtrace
              (End_of_file, 1);
-     var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
+     var
+      len$1 =  /*<<stdlib.ml:430:9>>*/ len$0 - r | 0,
+      ofs$1 = ofs$0 + r | 0;
      ofs$0 = ofs$1;
      len$0 = len$1;
     }
@@ -687,7 +696,7 @@
    function really_input_string(ic, len){
     var s =  /*<<stdlib.ml:439:10>>*/ caml_create_bytes(len);
      /*<<stdlib.ml:440:2>>*/ really_input(ic, s, 0, len);
-    return caml_string_of_bytes(s) /*<<stdlib.ml:441:26>>*/ ;
+     /*<<stdlib.ml:440:25>>*/ return caml_string_of_bytes(s) /*<<stdlib.ml:441:26>>*/ ;
    }
    function input_line(chan){
     function build_result(buf, pos, param){
@@ -700,7 +709,7 @@
        len =  /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length(hd);
        /*<<stdlib.ml:450:6>>*/ runtime.caml_blit_bytes
        (hd, 0, buf, pos$0 - len | 0, len);
-      var pos$1 = pos$0 - len | 0;
+      var pos$1 =  /*<<stdlib.ml:450:41>>*/ pos$0 - len | 0;
       pos$0 = pos$1;
       param$0 = tl;
      }
@@ -709,21 +718,21 @@
      /*<<stdlib.ml:453:4>>*/ for(;;){
      var n =  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line(chan);
       /*<<stdlib.ml:454:4>>*/ if(0 === n){
-      if(! accu)
+       /*<<stdlib.ml:454:18>>*/ if(! accu)
         /*<<stdlib.ml:456:14>>*/ throw caml_maybe_attach_backtrace
               (End_of_file, 1);
       var
        _k_ =
-          /*<<stdlib.ml:457:14>>*/ build_result
+          /*<<stdlib.ml:457:45>>*/ build_result
           ( /*<<stdlib.ml:457:27>>*/ caml_create_bytes(len), len, accu);
      }
      else{
-      if(0 >= n){
+       /*<<stdlib.ml:458:13>>*/ if(0 >= n){
        var beg =  /*<<stdlib.ml:467:16>>*/ caml_create_bytes(- n | 0);
         /*<<stdlib.ml:468:12>>*/ caml_ml_input(chan, beg, 0, - n | 0);
        var
-        len$1 = len - n | 0,
-        accu$0 =  /*<<stdlib.ml:469:11>>*/ [0, beg, accu];
+        len$1 =  /*<<stdlib.ml:469:6>>*/ len - n | 0,
+        accu$0 = [0, beg, accu];
        accu = accu$0;
        len = len$1;
        continue;
@@ -731,18 +740,18 @@
       var res =  /*<<stdlib.ml:459:16>>*/ caml_create_bytes(n - 1 | 0);
        /*<<stdlib.ml:460:13>>*/ caml_ml_input(chan, res, 0, n - 1 | 0);
        /*<<stdlib.ml:461:13>>*/ caml_ml_input_char(chan);
-      if(accu)
+       /*<<stdlib.ml:462:6>>*/ if(accu)
        var
-        len$0 = (len + n | 0) - 1 | 0,
+        len$0 =  /*<<stdlib.ml:464:14>>*/ (len + n | 0) - 1 | 0,
         _k_ =
-           /*<<stdlib.ml:465:50>>*/ build_result
+           /*<<stdlib.ml:465:45>>*/ build_result
            ( /*<<stdlib.ml:465:27>>*/ caml_create_bytes(len$0),
             len$0,
             [0, res, accu]);
       else
        var _k_ = res;
      }
-      /*<<stdlib.ml:471:28>>*/ return caml_string_of_bytes(_k_) /*<<stdlib.ml:471:39>>*/ ;
+      /*<<stdlib.ml:471:39>>*/ return caml_string_of_bytes(_k_);
     }
    }
    function close_in_noerr(ic){
@@ -762,21 +771,23 @@
      /*<<stdlib.ml:488:20>>*/ return output_bytes(stdout, s) /*<<stdlib.ml:488:41>>*/ ;
    }
    function print_int(i){
-     /*<<stdlib.ml:489:18>>*/ return  /*<<stdlib.ml:489:39>>*/ output_string
-            (stdout, "" + i) /*<<stdlib.ml:489:56>>*/ ;
+     /*<<stdlib.ml:489:18>>*/ return  /*<<stdlib.ml:489:56>>*/ output_string
+            (stdout, "" + i);
    }
    function print_float(f){
-     /*<<stdlib.ml:490:20>>*/ return  /*<<stdlib.ml:490:41>>*/ output_string
-            (stdout, string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
+     /*<<stdlib.ml:490:20>>*/ return  /*<<stdlib.ml:490:60>>*/ output_string
+            (stdout,  /*<<stdlib.ml:490:41>>*/ string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
    }
    function print_endline(s){
      /*<<stdlib.ml:492:2>>*/ output_string(stdout, s);
      /*<<stdlib.ml:492:26>>*/ caml_ml_output_char(stdout, 10);
-     /*<<stdlib.ml:492:51>>*/ return caml_ml_flush(stdout) /*<<stdlib.ml:492:63>>*/ ;
+     /*<<stdlib.ml:492:63>>*/ return  /*<<stdlib.ml:492:51>>*/ caml_ml_flush
+            (stdout) /*<<stdlib.ml:492:63>>*/ ;
    }
    function print_newline(param){
      /*<<stdlib.ml:493:23>>*/ caml_ml_output_char(stdout, 10);
-     /*<<stdlib.ml:493:48>>*/ return caml_ml_flush(stdout) /*<<stdlib.ml:493:60>>*/ ;
+     /*<<stdlib.ml:493:60>>*/ return  /*<<stdlib.ml:493:48>>*/ caml_ml_flush
+            (stdout) /*<<stdlib.ml:493:60>>*/ ;
    }
    function prerr_char(c){
      /*<<stdlib.ml:497:19>>*/ return caml_ml_output_char(stderr, c) /*<<stdlib.ml:497:39>>*/ ;
@@ -788,96 +799,102 @@
      /*<<stdlib.ml:499:20>>*/ return output_bytes(stderr, s) /*<<stdlib.ml:499:41>>*/ ;
    }
    function prerr_int(i){
-     /*<<stdlib.ml:500:18>>*/ return  /*<<stdlib.ml:500:39>>*/ output_string
-            (stderr, "" + i) /*<<stdlib.ml:500:56>>*/ ;
+     /*<<stdlib.ml:500:18>>*/ return  /*<<stdlib.ml:500:56>>*/ output_string
+            (stderr, "" + i);
    }
    function prerr_float(f){
-     /*<<stdlib.ml:501:20>>*/ return  /*<<stdlib.ml:501:41>>*/ output_string
-            (stderr, string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
+     /*<<stdlib.ml:501:20>>*/ return  /*<<stdlib.ml:501:60>>*/ output_string
+            (stderr,  /*<<stdlib.ml:501:41>>*/ string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
    }
    function prerr_endline(s){
      /*<<stdlib.ml:503:2>>*/ output_string(stderr, s);
      /*<<stdlib.ml:503:26>>*/ caml_ml_output_char(stderr, 10);
-     /*<<stdlib.ml:503:51>>*/ return caml_ml_flush(stderr) /*<<stdlib.ml:503:63>>*/ ;
+     /*<<stdlib.ml:503:63>>*/ return  /*<<stdlib.ml:503:51>>*/ caml_ml_flush
+            (stderr) /*<<stdlib.ml:503:63>>*/ ;
    }
    function prerr_newline(param){
      /*<<stdlib.ml:504:23>>*/ caml_ml_output_char(stderr, 10);
-     /*<<stdlib.ml:504:48>>*/ return caml_ml_flush(stderr) /*<<stdlib.ml:504:60>>*/ ;
+     /*<<stdlib.ml:504:60>>*/ return  /*<<stdlib.ml:504:48>>*/ caml_ml_flush
+            (stderr) /*<<stdlib.ml:504:60>>*/ ;
    }
    function read_line(param){
      /*<<stdlib.ml:508:19>>*/ caml_ml_flush(stdout);
-     /*<<stdlib.ml:314:12>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
+     /*<<stdlib.ml:508:31>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
    }
    function read_int(param){
      /*<<stdlib.ml:509:18>>*/ return caml_int_of_string
             ( /*<<stdlib.ml:509:31>>*/ read_line(0)) /*<<stdlib.ml:509:44>>*/ ;
    }
    function read_int_opt(param){
-     /*<<stdlib.ml:510:22>>*/ return  /*<<stdlib.ml:510:39>>*/ int_of_string_opt
-            (read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
+     /*<<stdlib.ml:510:22>>*/ return  /*<<stdlib.ml:510:52>>*/ int_of_string_opt
+            ( /*<<stdlib.ml:510:39>>*/ read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
    }
    function read_float(param){
      /*<<stdlib.ml:511:20>>*/ return caml_float_of_string
             ( /*<<stdlib.ml:511:35>>*/ read_line(0)) /*<<stdlib.ml:511:48>>*/ ;
    }
    function read_float_opt(param){
-     /*<<stdlib.ml:512:24>>*/ return  /*<<stdlib.ml:512:43>>*/ float_of_string_opt
-            (read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
+     /*<<stdlib.ml:512:24>>*/ return  /*<<stdlib.ml:512:56>>*/ float_of_string_opt
+            ( /*<<stdlib.ml:512:43>>*/ read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
    }
    function string_of_format(param){
-    var str = param[2];
+    var str =  /*<<stdlib.ml:538:21>>*/ param[2];
      /*<<stdlib.ml:538:44>>*/ return str;
     /*<<stdlib.ml:538:47>>*/ }
    function symbol$0(_h_, param){
     var
-     str2 = param[2],
+     str2 =  /*<<stdlib.ml:544:11>>*/ param[2],
      fmt2 = param[1],
      str1 = _h_[2],
      fmt1 = _h_[1],
      s2 = "%," + str2;
-     /*<<stdlib.ml:545:2>>*/ return [0,
+     /*<<stdlib.ml:545:55>>*/ return [0,
              /*<<stdlib.ml:545:10>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt1, fmt2),
-            str1 + s2] /*<<stdlib.ml:545:2>>*/ ;
+            str1 + s2] /*<<stdlib.ml:545:55>>*/ ;
     /*<<stdlib.ml:546:29>>*/ }
-   var exit_function =  /*<<stdlib.ml:559:20>>*/ [0, flush_all];
+   var exit_function =  /*<<stdlib.ml:316:34>>*/ [0, flush_all];
    function at_exit(f){
      /*<<stdlib.ml:563:2>>*/ for(;;){
      var
-      f_yet_to_run =  /*<<stdlib.ml:563:21>>*/ [0, 1],
+      f_yet_to_run = [0, 1],
       old_exit =  /*<<stdlib.ml:564:2>>*/ caml_atomic_load(exit_function);
      let f_yet_to_run$0 = f_yet_to_run, old_exit$0 = old_exit;
      var
       new_exit =
-        function(param){
+         /*<<stdlib.ml:565:2>>*/ function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
            /*<<stdlib.ml:566:59>>*/ caml_call1(f, 0);
          return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
         },
-      success = caml_atomic_cas(exit_function, old_exit, new_exit),
+      success =
+         /*<<stdlib.ml:569:2>>*/ caml_atomic_cas
+         (exit_function, old_exit, new_exit),
       _g_ =  /*<<stdlib.ml:570:2>>*/ 1 - success;
      if(! _g_) return _g_;
     }
     /*<<stdlib.ml:570:31>>*/ }
    var
     do_domain_local_at_exit =
-       /*<<stdlib.ml:572:30>>*/ [0,
+       /*<<stdlib.ml:316:34>>*/ [0,
        function(param){
          /*<<stdlib.ml:572:45>>*/ return 0;
         /*<<stdlib.ml:572:47>>*/ }];
    function do_at_exit(param){
      /*<<stdlib.ml:575:2>>*/ caml_call1(do_domain_local_at_exit[1], 0);
-    return caml_call1(caml_atomic_load(exit_function), 0) /*<<stdlib.ml:576:31>>*/ ;
+     /*<<stdlib.ml:575:31>>*/ return caml_call1
+            (caml_atomic_load(exit_function), 0) /*<<stdlib.ml:576:31>>*/ ;
    }
    function exit(retcode){
      /*<<stdlib.ml:579:2>>*/ do_at_exit(0);
-     /*<<stdlib.ml:580:2>>*/ return runtime.caml_sys_exit(retcode) /*<<stdlib.ml:580:18>>*/ ;
+     /*<<stdlib.ml:580:18>>*/ return  /*<<stdlib.ml:580:2>>*/ runtime.caml_sys_exit
+            (retcode) /*<<stdlib.ml:580:18>>*/ ;
    }
     /*<<stdlib.ml:582:8>>*/ runtime.caml_register_named_value
     ("Pervasives.do_at_exit", do_at_exit);
    var
     Stdlib =
-      [0,
+       /*<<stdlib.ml:582:63>>*/ [0,
        invalid_arg,
        failwith,
        Exit,
@@ -1034,25 +1051,25 @@
    function map_left(f, e){
      /*<<either.ml:37:13>>*/ if(0 !== e[0])  /*<<either.ml:39:18>>*/ return e;
     var v = e[1];
-     /*<<either.ml:38:12>>*/ return [0,
-             /*<<either.ml:38:17>>*/ caml_call1(f, v)] /*<<either.ml:38:12>>*/ ;
+     /*<<either.ml:38:22>>*/ return [0,
+             /*<<either.ml:38:17>>*/ caml_call1(f, v)] /*<<either.ml:38:22>>*/ ;
     /*<<either.ml:39:19>>*/ }
    function map_right(f, e){
      /*<<either.ml:41:14>>*/ if(0 === e[0])  /*<<either.ml:42:17>>*/ return e;
     var v = e[1];
-     /*<<either.ml:43:13>>*/ return [1,
-             /*<<either.ml:43:19>>*/ caml_call1(f, v)] /*<<either.ml:43:13>>*/ ;
-    /*<<either.ml:43:24>>*/ }
+     /*<<either.ml:43:24>>*/ return [1,
+             /*<<either.ml:43:19>>*/ caml_call1(f, v)] /*<<either.ml:43:24>>*/ ;
+   }
    function map(left, right, param){
      /*<<either.ml:45:8>>*/ if(0 === param[0]){
      var v = param[1];
-      /*<<either.ml:46:12>>*/ return [0,
-              /*<<either.ml:46:17>>*/ caml_call1(left, v)] /*<<either.ml:46:12>>*/ ;
+      /*<<either.ml:46:25>>*/ return [0,
+              /*<<either.ml:46:17>>*/ caml_call1(left, v)] /*<<either.ml:46:25>>*/ ;
     }
     var v$0 = param[1];
-     /*<<either.ml:47:13>>*/ return [1,
-             /*<<either.ml:47:19>>*/ caml_call1(right, v$0)] /*<<either.ml:47:13>>*/ ;
-    /*<<either.ml:47:28>>*/ }
+     /*<<either.ml:47:28>>*/ return [1,
+             /*<<either.ml:47:19>>*/ caml_call1(right, v$0)] /*<<either.ml:47:28>>*/ ;
+   }
    function fold(left, right, param){
      /*<<either.ml:49:9>>*/ if(0 === param[0]){
      var v = param[1];
@@ -1127,8 +1144,11 @@
     Stdlib = global_data.Stdlib,
     executable_name =
        /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name(0),
-    os_type =  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config(0)[1],
-    backend_type = [0, "js_of_ocaml"],
+    os_type =
+       /*<<sys.ml.in:37:34>>*/  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config
+        (0)
+       [1],
+    backend_type =  /*<<sys.ml.in:37:34>>*/ [0, "js_of_ocaml"],
     unix = runtime.caml_sys_const_ostype_unix(0),
     win32 = runtime.caml_sys_const_ostype_win32(0),
     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
@@ -1139,9 +1159,9 @@
      /*<<sys.ml.in:60:2>>*/ try{
      var
       _d_ =
-         /*<<sys.ml.in:60:6>>*/ [0,
+         /*<<sys.ml.in:60:21>>*/ [0,
           /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
-      /*<<sys.ml.in:60:6>>*/ return _d_;
+     return _d_;
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
@@ -1149,21 +1169,21 @@
      throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<sys.ml.in:61:24>>*/ }
-   var interactive =  /*<<sys.ml.in:72:18>>*/ [0, 0];
+   var interactive =  /*<<sys.ml.in:37:34>>*/ [0, 0];
    function set_signal(sig_num, sig_beh){
-     /*<<sys.ml.in:82:33>>*/ return 0 /*<<sys.ml.in:82:39>>*/ ;
-    /*<<sys.ml.in:82:63>>*/ }
+     /*<<sys.ml.in:82:33>>*/ return 0 /*<<sys.ml.in:82:63>>*/ ;
+   }
    var
     Break =
-       /*<<sys.ml.in:113:0>>*/ [248,
+       /*<<sys.ml.in:37:34>>*/ [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];}
+   function Make(_b_, _a_){ /*<<?>>*/ return [0, 1];}
    var
-    Immediate64 =  /*<<sys.ml.in:155:21>>*/ [0, Make],
+    Immediate64 =  /*<<sys.ml.in:37:34>>*/ [0, Make],
     Stdlib_Sys =
       [0,
        executable_name,
@@ -1245,45 +1265,47 @@
      /*<<obj.ml:26:34>>*/ return 1 - (typeof a === "number" ? 1 : 0);
     /*<<obj.ml:26:48>>*/ }
    function double_field(x, i){
-     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i];
-    /*<<obj.ml:35:77>>*/ }
+     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i] /*<<obj.ml:35:77>>*/ ;
+   }
    function set_double_field(x, i, v){
      /*<<obj.ml:37:2>>*/ caml_check_bound(x, i)[1 + i] = v;
-    return 0;
-    /*<<obj.ml:37:41>>*/ }
+     /*<<obj.ml:37:41>>*/ return 0;
+   }
    var
     cst_Obj_extension_constructor = cst_Obj_extension_constructor$1,
     cst_Obj_extension_constructor$0 = cst_Obj_extension_constructor$1;
    function of_val(x){
     a:
     {
-      /*<<obj.ml:77:9>>*/ if
-      (is_block(x)
+      /*<<obj.ml:77:21>>*/ if
+      ( /*<<obj.ml:77:9>>*/ is_block(x)
        &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot = x[1]; break a;}
      var slot = x;
     }
     a:
     {
-      /*<<obj.ml:81:9>>*/ if
-      (is_block(slot) &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
+      /*<<obj.ml:81:24>>*/ if
+      ( /*<<obj.ml:81:9>>*/ is_block(slot)
+       &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
      var
       name =
          /*<<obj.ml:82:11>>*/ caml_call1
          (Stdlib[1], cst_Obj_extension_constructor$0);
     }
-    return  /*<<obj.ml:84:9>>*/ caml_obj_tag(name) === 252
+     /*<<obj.ml:84:19>>*/ return  /*<<obj.ml:84:9>>*/ caml_obj_tag(name)
+            === 252
             ? slot
             :  /*<<obj.ml:85:11>>*/ caml_call1
               (Stdlib[1], cst_Obj_extension_constructor) /*<<obj.ml:85:50>>*/ ;
    }
    function name(slot){
-     /*<<obj.ml:88:5>>*/ return slot[1] /*<<obj.ml:88:9>>*/ ;
-    /*<<obj.ml:88:30>>*/ }
+     /*<<obj.ml:88:5>>*/ return slot[1] /*<<obj.ml:88:30>>*/ ;
+   }
    function id(slot){
-     /*<<obj.ml:91:5>>*/ return slot[2] /*<<obj.ml:91:9>>*/ ;
-    /*<<obj.ml:91:30>>*/ }
+     /*<<obj.ml:91:5>>*/ return slot[2] /*<<obj.ml:91:30>>*/ ;
+   }
    var
-    Extension_constructor =  /*<<obj.ml:72:0>>*/ [0, of_val, name, id],
+    Extension_constructor = [0, of_val, name, id],
     max_ephe_length = Stdlib_Sys[13] - 2 | 0,
     cst_Obj_Ephemeron_create = "Obj.Ephemeron.create",
     cst_Obj_Ephemeron_get_key = "Obj.Ephemeron.get_key",
@@ -1293,17 +1315,20 @@
     cst_Obj_Ephemeron_check_key = "Obj.Ephemeron.check_key",
     cst_Obj_Ephemeron_blit_key = "Obj.Ephemeron.blit_key";
    function create(l){
-    var _f_ = 0 <= l ? 1 : 0, _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
+    var
+     _f_ =  /*<<obj.ml:105:4>>*/ 0 <= l ? 1 : 0,
+     _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
     if(1 - _g_)
       /*<<obj.ml:106:6>>*/ caml_call1(Stdlib[1], cst_Obj_Ephemeron_create);
-     /*<<obj.ml:107:4>>*/ return runtime.caml_ephe_create(l) /*<<obj.ml:107:12>>*/ ;
+     /*<<obj.ml:107:12>>*/ return  /*<<obj.ml:107:4>>*/ runtime.caml_ephe_create
+            (l) /*<<obj.ml:107:12>>*/ ;
    }
    function length(x){
      /*<<obj.ml:109:17>>*/ return x.length - 3 | 0;
     /*<<obj.ml:109:49>>*/ }
    function raise_if_invalid_offset(e, o, msg){
     var
-     _c_ = 0 <= o ? 1 : 0,
+     _c_ =  /*<<obj.ml:112:4>>*/ 0 <= o ? 1 : 0,
      _d_ = _c_ ? o <  /*<<obj.ml:112:26>>*/ length(e) ? 1 : 0 : _c_,
      _e_ = 1 - _d_;
     return _e_ ?  /*<<obj.ml:113:6>>*/ caml_call1(Stdlib[1], msg) : _e_ /*<<obj.ml:113:21>>*/ ;
@@ -1311,27 +1336,32 @@
    function get_key(e, o){
      /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key);
-     /*<<obj.ml:118:4>>*/ return runtime.caml_ephe_get_key(e, o) /*<<obj.ml:118:15>>*/ ;
+     /*<<obj.ml:118:15>>*/ return  /*<<obj.ml:118:4>>*/ runtime.caml_ephe_get_key
+            (e, o) /*<<obj.ml:118:15>>*/ ;
    }
    function get_key_copy(e, o){
      /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key_copy);
-     /*<<obj.ml:123:4>>*/ return runtime.caml_ephe_get_key_copy(e, o) /*<<obj.ml:123:20>>*/ ;
+     /*<<obj.ml:123:20>>*/ return  /*<<obj.ml:123:4>>*/ runtime.caml_ephe_get_key_copy
+            (e, o) /*<<obj.ml:123:20>>*/ ;
    }
    function set_key(e, o, x){
      /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_set_key);
-     /*<<obj.ml:128:4>>*/ return runtime.caml_ephe_set_key(e, o, x) /*<<obj.ml:128:17>>*/ ;
+     /*<<obj.ml:128:17>>*/ return  /*<<obj.ml:128:4>>*/ runtime.caml_ephe_set_key
+            (e, o, x) /*<<obj.ml:128:17>>*/ ;
    }
    function unset_key(e, o){
      /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_unset_key);
-     /*<<obj.ml:133:4>>*/ return runtime.caml_ephe_unset_key(e, o) /*<<obj.ml:133:17>>*/ ;
+     /*<<obj.ml:133:17>>*/ return  /*<<obj.ml:133:4>>*/ runtime.caml_ephe_unset_key
+            (e, o) /*<<obj.ml:133:17>>*/ ;
    }
    function check_key(e, o){
      /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_check_key);
-     /*<<obj.ml:138:4>>*/ return runtime.caml_ephe_check_key(e, o) /*<<obj.ml:138:17>>*/ ;
+     /*<<obj.ml:138:17>>*/ return  /*<<obj.ml:138:4>>*/ runtime.caml_ephe_check_key
+            (e, o) /*<<obj.ml:138:17>>*/ ;
    }
    function blit_key(e1, o1, e2, o2, l){
      /*<<obj.ml:144:4>>*/ if
@@ -1342,7 +1372,7 @@
         ( /*<<obj.ml:144:31>>*/ length(e1) - l | 0) >= o1
         && 0 <= o2 && ( /*<<obj.ml:145:25>>*/ length(e2) - l | 0) >= o2){
      var
-      _a_ = 0 !== l ? 1 : 0,
+      _a_ =  /*<<obj.ml:147:9>>*/ 0 !== l ? 1 : 0,
       _b_ =
         _a_
          ?  /*<<obj.ml:147:24>>*/ runtime.caml_ephe_blit_key
@@ -1416,20 +1446,17 @@
     cst_Id = "Id",
     _a_ = [0, 0];
    function make(param){
-    var
-     Id =  /*<<type.ml:32:43>>*/ [248, cst_Id, runtime.caml_fresh_oo_id(0)];
-     /*<<type.ml:32:12>>*/ return [0, Id];
+    var Id =  /*<<type.ml:32:4>>*/ [248, cst_Id, runtime.caml_fresh_oo_id(0)];
+    return [0, Id];
     /*<<type.ml:32:57>>*/ }
    function uid(A){
     var _b_ =  /*<<type.ml:35:33>>*/ caml_call1(Stdlib_Obj[22][1], A[1]);
-    return caml_call1(Stdlib_Obj[22][3], _b_) /*<<type.ml:35:72>>*/ ;
+     /*<<type.ml:35:72>>*/ return caml_call1(Stdlib_Obj[22][3], _b_);
    }
    function provably_equal(A, B){
      /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0 /*<<type.ml:40:50>>*/ ;
    }
-   var
-    Id =  /*<<type.ml:22:12>>*/ [0, make, uid, provably_equal],
-    Stdlib_Type = [0, Id];
+   var Id = [0, make, uid, provably_equal], Stdlib_Type = [0, Id];
    runtime.caml_register_global(3, Stdlib_Type, "Stdlib__Type");
    return;
    /*<<?>>*/ }
@@ -1457,7 +1484,7 @@
    var
     Stdlib_Atomic =
       [0,
-       function(_a_){ /*<<atomic.ml:17:0>>*/ return [0, _a_];},
+       function(_a_){ /*<<?>>*/ return [0, _a_];},
        runtime.caml_atomic_make_contended,
        runtime.caml_atomic_load,
        set,
@@ -1468,7 +1495,7 @@
        decr];
    runtime.caml_register_global(0, Stdlib_Atomic, "Stdlib__Atomic");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: CamlinternalLazy
@@ -1490,9 +1517,7 @@
     global_data = runtime.caml_get_global_data(),
     Stdlib_Obj = global_data.Stdlib__Obj,
     Undefined =
-       /*<<camlinternalLazy.ml:20:0>>*/ [248,
-       "CamlinternalLazy.Undefined",
-       runtime.caml_fresh_oo_id(0)];
+      [248, "CamlinternalLazy.Undefined", runtime.caml_fresh_oo_id(0)];
    function force_gen_lazy_block(only_val, blk){
      /*<<camlinternalLazy.ml:72:2>>*/ if
      (0
@@ -1501,14 +1526,14 @@
         (blk))
       /*<<camlinternalLazy.ml:75:9>>*/ throw caml_maybe_attach_backtrace
             (Undefined, 1);
-    if(only_val){
+     /*<<camlinternalLazy.ml:73:11>>*/ if(only_val){
      var closure$0 =  /*<<camlinternalLazy.ml:61:25>>*/ blk[1];
       /*<<camlinternalLazy.ml:62:2>>*/ blk[1] = 0;
      var
       result$0 =  /*<<camlinternalLazy.ml:63:15>>*/ caml_call1(closure$0, 0);
       /*<<camlinternalLazy.ml:64:2>>*/ blk[1] = result$0;
       /*<<camlinternalLazy.ml:65:2>>*/ caml_lazy_update_to_forward(blk);
-     return result$0;
+      /*<<camlinternalLazy.ml:65:21>>*/ return result$0;
     }
     var closure =  /*<<camlinternalLazy.ml:46:25>>*/ blk[1];
      /*<<camlinternalLazy.ml:47:2>>*/ blk[1] = 0;
@@ -1526,7 +1551,8 @@
               (e, 0);
        /*<<camlinternalLazy.ml:54:50>>*/ };
       /*<<camlinternalLazy.ml:55:4>>*/ runtime.caml_lazy_reset_to_lazy(blk);
-      /*<<camlinternalLazy.ml:56:4>>*/ throw caml_maybe_attach_backtrace(e, 0);
+      /*<<camlinternalLazy.ml:55:19>>*/ throw caml_maybe_attach_backtrace
+            (e, 0);
     }
     /*<<camlinternalLazy.ml:75:24>>*/ }
    function force_lazy_block(blk){
@@ -1534,12 +1560,12 @@
    }
    function force_gen(only_val, lzv){
     var t =  /*<<camlinternalLazy.ml:99:10>>*/ runtime.caml_obj_tag(lzv);
-    if(t === Stdlib_Obj[12])
-      /*<<camlinternalLazy.ml:101:13>>*/ return lzv[1];
-    if(t === Stdlib_Obj[6])
+     /*<<camlinternalLazy.ml:100:2>>*/ if(t === Stdlib_Obj[12])
+      /*<<camlinternalLazy.ml:101:28>>*/ return lzv[1];
+     /*<<camlinternalLazy.ml:103:7>>*/ if(t === Stdlib_Obj[6])
       /*<<camlinternalLazy.ml:103:35>>*/ throw caml_maybe_attach_backtrace
             (Undefined, 1);
-    return t !== Stdlib_Obj[8]
+     /*<<camlinternalLazy.ml:104:7>>*/ return t !== Stdlib_Obj[8]
             ? lzv
             :  /*<<camlinternalLazy.ml:105:7>>*/ force_gen_lazy_block
               (only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
@@ -1577,19 +1603,23 @@
    function from_fun(f){
     var x =  /*<<lazy.ml:59:10>>*/ runtime.caml_obj_block(Stdlib_Obj[8], 1);
      /*<<lazy.ml:60:2>>*/ x[1] = f;
-    return x;
+     /*<<lazy.ml:60:32>>*/ return x;
     /*<<lazy.ml:61:22>>*/ }
    function from_val(v){
     var t =  /*<<lazy.ml:64:10>>*/ caml_obj_tag(v);
-    if
+     /*<<lazy.ml:65:2>>*/ if
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
       /*<<lazy.ml:69:5>>*/ return v;
-     /*<<lazy.ml:66:52>>*/ return runtime.caml_lazy_make_forward(v) /*<<lazy.ml:70:5>>*/ ;
+     /*<<lazy.ml:68:5>>*/ return  /*<<lazy.ml:66:52>>*/ runtime.caml_lazy_make_forward
+            (v) /*<<lazy.ml:70:5>>*/ ;
    }
    function is_val(l){
     var _i_ =  /*<<lazy.ml:72:26>>*/ Stdlib_Obj[8];
-    return caml_obj_tag(l) !== _i_ ? 1 : 0;
+     /*<<lazy.ml:72:46>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag(l)
+            !== _i_
+            ? 1
+            : 0 /*<<lazy.ml:72:46>>*/ ;
     /*<<lazy.ml:72:62>>*/ }
    function map(f, x){
      /*<<lazy.ml:75:2>>*/ return [246,
@@ -1602,12 +1632,12 @@
               if(246 !== _g_ && 244 !== _g_){var _h_ = x; break a;}
               var _h_ = caml_call1(CamlinternalLazy[2], x);
              }
-              /*<<lazy.ml:75:10>>*/ return caml_call1(f, _h_);
-            }] /*<<lazy.ml:75:7>>*/ ;
+             return caml_call1(f, _h_);
+            }];
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
      /*<<lazy.ml:78:2>>*/ if(!  /*<<lazy.ml:78:5>>*/ is_val(x))
-      /*<<lazy.ml:80:12>>*/ return [246,
+      /*<<lazy.ml:80:7>>*/ return [246,
              function(_c_){
               var _d_ = caml_obj_tag(x);
               a:
@@ -1617,9 +1647,9 @@
                if(246 !== _d_ && 244 !== _d_){var _e_ = x; break a;}
                var _e_ = caml_call1(CamlinternalLazy[2], x);
               }
-               /*<<lazy.ml:80:15>>*/ return caml_call1(f, _e_);
-             }] /*<<lazy.ml:80:12>>*/ ;
-    var _a_ = caml_obj_tag(x);
+              return caml_call1(f, _e_);
+             }];
+    var _a_ =  /*<<lazy.ml:79:7>>*/ caml_obj_tag(x);
     a:
     if(250 === _a_)
      var _b_ = x[1];
@@ -1627,7 +1657,8 @@
      if(246 !== _a_ && 244 !== _a_){var _b_ = x; break a;}
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
-     /*<<lazy.ml:79:16>>*/ return from_val(caml_call1(f, _b_)) /*<<lazy.ml:80:25>>*/ ;
+     /*<<lazy.ml:79:29>>*/ return from_val
+            ( /*<<lazy.ml:79:16>>*/ caml_call1(f, _b_)) /*<<lazy.ml:80:25>>*/ ;
    }
    var
     Stdlib_Lazy =
@@ -1681,35 +1712,35 @@
     /*<<seq.ml:28:35>>*/ }
    function append(seq1, seq2, param){
     var match =  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
-    if(! match)
+     /*<<seq.ml:31:14>>*/ if(! match)
       /*<<seq.ml:32:11>>*/ return caml_call1(seq2, 0) /*<<seq.ml:33:48>>*/ ;
     var next = match[2], x = match[1];
-     /*<<seq.ml:33:22>>*/ return [0,
+     /*<<seq.ml:33:47>>*/ return [0,
             x,
-            function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}] /*<<seq.ml:33:22>>*/ ;
+            function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}] /*<<seq.ml:33:47>>*/ ;
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
     var match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
-    if(! match)  /*<<seq.ml:36:11>>*/ return 0;
+     /*<<seq.ml:35:34>>*/ if(! match)  /*<<seq.ml:36:11>>*/ return 0;
     var next = match[2], x = match[1];
-     /*<<seq.ml:37:22>>*/ return [0,
+     /*<<seq.ml:37:31>>*/ return [0,
              /*<<seq.ml:37:28>>*/ caml_call1(f, x),
-            function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:22>>*/ ;
+            function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:31>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
     var seq$0 = seq;
      /*<<seq.ml:39:30>>*/ for(;;){
      var match =  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
-     if(! match)  /*<<seq.ml:40:11>>*/ return 0;
+      /*<<seq.ml:39:41>>*/ if(! match)  /*<<seq.ml:40:11>>*/ return 0;
      var
       next = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
-     if(match$0){
+      /*<<seq.ml:42:15>>*/ if(match$0){
       var y = match$0[1];
-       /*<<seq.ml:44:20>>*/ return [0,
+       /*<<seq.ml:44:46>>*/ return [0,
               y,
-              function(_as_){ /*<<?>>*/ return filter_map(f, next, _as_);}] /*<<seq.ml:44:20>>*/ ;
+              function(_as_){ /*<<?>>*/ return filter_map(f, next, _as_);}] /*<<seq.ml:44:46>>*/ ;
      }
      seq$0 = next;
     }
@@ -1718,27 +1749,27 @@
     var seq$0 = seq;
      /*<<seq.ml:46:26>>*/ for(;;){
      var match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
-     if(! match)  /*<<seq.ml:47:11>>*/ return 0;
+      /*<<seq.ml:46:37>>*/ if(! match)  /*<<seq.ml:47:11>>*/ return 0;
      var next = match[2], x = match[1];
-      /*<<seq.ml:49:9>>*/ if(caml_call1(f, x))
-       /*<<seq.ml:50:11>>*/ return [0,
+      /*<<seq.ml:49:12>>*/ if( /*<<seq.ml:49:9>>*/ caml_call1(f, x))
+       /*<<seq.ml:50:33>>*/ return [0,
               x,
-              function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}] /*<<seq.ml:50:11>>*/ ;
+              function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}] /*<<seq.ml:50:33>>*/ ;
      seq$0 = next;
     }
     /*<<seq.ml:51:27>>*/ }
    function concat(seq, param){
     var match =  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
-    if(! match)  /*<<seq.ml:54:11>>*/ return 0;
+     /*<<seq.ml:53:36>>*/ if(! match)  /*<<seq.ml:54:11>>*/ return 0;
     var next = match[2], x = match[1];
-     /*<<seq.ml:56:5>>*/ return append
+     /*<<seq.ml:56:27>>*/ return append
             (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0) /*<<seq.ml:56:30>>*/ ;
    }
    function flat_map(f, seq, param){
     var match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
-    if(! match)  /*<<seq.ml:59:11>>*/ return 0;
+     /*<<seq.ml:58:40>>*/ if(! match)  /*<<seq.ml:59:11>>*/ return 0;
     var next = match[2], x = match[1];
-     /*<<seq.ml:61:4>>*/ return append
+     /*<<seq.ml:61:16>>*/ return append
             ( /*<<seq.ml:61:11>>*/ caml_call1(f, x),
              function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
              0) /*<<seq.ml:61:37>>*/ ;
@@ -1747,7 +1778,7 @@
     var acc$0 = acc, seq$0 = seq;
      /*<<seq.ml:66:2>>*/ for(;;){
      var match =  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
-     if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
+      /*<<seq.ml:66:14>>*/ if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
      var
       next = match[2],
       x = match[1],
@@ -1760,7 +1791,7 @@
     var seq$0 = seq;
      /*<<seq.ml:73:2>>*/ for(;;){
      var match =  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
-     if(! match)  /*<<seq.ml:74:13>>*/ return 0;
+      /*<<seq.ml:73:14>>*/ if(! match)  /*<<seq.ml:74:13>>*/ return 0;
      var next = match[2], x = match[1];
       /*<<seq.ml:76:8>>*/ caml_call1(f, x);
      seq$0 = next;
@@ -1768,18 +1799,18 @@
     /*<<seq.ml:77:19>>*/ }
    function unfold(f, u, param){
     var match =  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
-    if(! match)  /*<<seq.ml:81:12>>*/ return 0;
+     /*<<seq.ml:80:11>>*/ if(! match)  /*<<seq.ml:81:12>>*/ return 0;
     var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
-     /*<<seq.ml:82:20>>*/ return [0,
+     /*<<seq.ml:82:40>>*/ return [0,
             x,
-            function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:20>>*/ ;
+            function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:40>>*/ ;
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
      /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0) ? 0 : 1 /*<<seq.ml:89:11>>*/ ;
    }
    function uncons(xs){
     var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:96:6>>*/ return 0;
+     /*<<seq.ml:92:12>>*/ if(! match)  /*<<seq.ml:96:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
      /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
     /*<<seq.ml:96:10>>*/ }
@@ -1787,7 +1818,7 @@
     var accu = 0, xs = xs$1;
      /*<<seq.ml:101:2>>*/ for(;;){
      var match =  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
-     if(! match)  /*<<seq.ml:103:6>>*/ return accu;
+      /*<<seq.ml:101:12>>*/ if(! match)  /*<<seq.ml:103:6>>*/ return accu;
      var xs$0 = match[2], accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
      accu = accu$0;
      xs = xs$0;
@@ -1797,10 +1828,10 @@
     var i = 0, xs = xs$1;
      /*<<seq.ml:111:2>>*/ for(;;){
      var match =  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
-     if(! match)  /*<<seq.ml:113:6>>*/ return 0;
+      /*<<seq.ml:111:12>>*/ if(! match)  /*<<seq.ml:113:6>>*/ return 0;
      var xs$0 = match[2], x = match[1];
       /*<<seq.ml:115:6>>*/ caml_call2(f, i, x);
-     var i$0 = i + 1 | 0;
+     var i$0 =  /*<<seq.ml:115:11>>*/ i + 1 | 0;
      i = i$0;
      xs = xs$0;
     }
@@ -1809,7 +1840,7 @@
     var accu = accu$1, i = 0, xs = xs$1;
      /*<<seq.ml:122:2>>*/ for(;;){
      var match =  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
-     if(! match)  /*<<seq.ml:124:6>>*/ return accu;
+      /*<<seq.ml:122:12>>*/ if(! match)  /*<<seq.ml:124:6>>*/ return accu;
      var
       xs$0 = match[2],
       x = match[1],
@@ -1824,12 +1855,12 @@
     var xs$0 = xs;
      /*<<seq.ml:133:2>>*/ for(;;){
      var match =  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:135:6>>*/ return 1;
+      /*<<seq.ml:133:12>>*/ if(! match)  /*<<seq.ml:135:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
       _an_ =  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
-     if(! _an_) return _an_;
+      /*<<seq.ml:137:9>>*/ if(! _an_) return _an_;
      xs$0 = xs$1;
     }
     /*<<seq.ml:137:25>>*/ }
@@ -1837,12 +1868,12 @@
     var xs$0 = xs;
      /*<<seq.ml:140:2>>*/ for(;;){
      var match =  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:142:6>>*/ return 0;
+      /*<<seq.ml:140:12>>*/ if(! match)  /*<<seq.ml:142:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       _am_ =  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
-     if(_am_) return _am_;
+      /*<<seq.ml:144:9>>*/ if(_am_) return _am_;
      xs$0 = xs$1;
     }
     /*<<seq.ml:144:24>>*/ }
@@ -1850,9 +1881,9 @@
     var xs$0 = xs;
      /*<<seq.ml:147:2>>*/ for(;;){
      var match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:149:6>>*/ return 0;
+      /*<<seq.ml:147:12>>*/ if(! match)  /*<<seq.ml:149:6>>*/ return 0;
      var xs$1 = match[2], x = match[1];
-      /*<<seq.ml:151:9>>*/ if(caml_call1(p, x))
+      /*<<seq.ml:151:12>>*/ if( /*<<seq.ml:151:9>>*/ caml_call1(p, x))
        /*<<seq.ml:151:18>>*/ return [0, x];
      xs$0 = xs$1;
     }
@@ -1861,11 +1892,11 @@
     var i = 0, xs$0 = xs;
      /*<<seq.ml:154:21>>*/ for(;;){
      var match =  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:156:8>>*/ return 0;
+      /*<<seq.ml:154:31>>*/ if(! match)  /*<<seq.ml:156:8>>*/ return 0;
      var xs$1 = match[2], x = match[1];
-      /*<<seq.ml:158:11>>*/ if(caml_call1(p, x))
+      /*<<seq.ml:158:14>>*/ if( /*<<seq.ml:158:11>>*/ caml_call1(p, x))
        /*<<seq.ml:158:20>>*/ return [0, i];
-     var i$0 = i + 1 | 0;
+     var i$0 =  /*<<seq.ml:158:32>>*/ i + 1 | 0;
      i = i$0;
      xs$0 = xs$1;
     }
@@ -1874,12 +1905,12 @@
     var xs$0 = xs;
      /*<<seq.ml:162:2>>*/ for(;;){
      var match =  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:164:6>>*/ return 0;
+      /*<<seq.ml:162:12>>*/ if(! match)  /*<<seq.ml:164:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       result =  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
-     if(result)  /*<<seq.ml:170:10>>*/ return result;
+      /*<<seq.ml:166:15>>*/ if(result)  /*<<seq.ml:170:10>>*/ return result;
      xs$0 = xs$1;
     }
     /*<<seq.ml:170:16>>*/ }
@@ -1887,13 +1918,13 @@
     var i = 0, xs$0 = xs;
      /*<<seq.ml:173:21>>*/ for(;;){
      var match =  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:175:8>>*/ return 0;
+      /*<<seq.ml:173:31>>*/ if(! match)  /*<<seq.ml:175:8>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       result =  /*<<seq.ml:177:14>>*/ caml_call2(f, i, x);
-     if(result)  /*<<seq.ml:181:12>>*/ return result;
-     var i$0 = i + 1 | 0;
+      /*<<seq.ml:177:19>>*/ if(result)  /*<<seq.ml:181:12>>*/ return result;
+     var i$0 =  /*<<seq.ml:179:12>>*/ i + 1 | 0;
      i = i$0;
      xs$0 = xs$1;
     }
@@ -1902,12 +1933,12 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:192:2>>*/ for(;;){
      var match =  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:194:6>>*/ return 0;
+      /*<<seq.ml:192:12>>*/ if(! match)  /*<<seq.ml:194:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:196:12>>*/ caml_call1(ys$0, 0);
-     if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
+      /*<<seq.ml:196:16>>*/ if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
      var ys$1 = match$0[2], y = match$0[1];
       /*<<seq.ml:200:10>>*/ caml_call2(f, x, y);
      xs$0 = xs$1;
@@ -1918,12 +1949,13 @@
     var accu$0 = accu, xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:204:2>>*/ for(;;){
      var match =  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
+      /*<<seq.ml:204:12>>*/ if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
-     if(! match$0)  /*<<seq.ml:210:10>>*/ return accu$0;
+      /*<<seq.ml:208:16>>*/ if(! match$0)
+       /*<<seq.ml:210:10>>*/ return accu$0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
@@ -1937,17 +1969,17 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:216:2>>*/ for(;;){
      var match =  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:218:6>>*/ return 1;
+      /*<<seq.ml:216:12>>*/ if(! match)  /*<<seq.ml:218:6>>*/ return 1;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
-     if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
+      /*<<seq.ml:220:16>>*/ if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
      var
       ys$1 = match$0[2],
       y = match$0[1],
       _al_ =  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
-     if(! _al_) return _al_;
+      /*<<seq.ml:224:15>>*/ if(! _al_) return _al_;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -1956,17 +1988,17 @@
     var xs$0 = xs, ys$0 = ys;
      /*<<seq.ml:227:2>>*/ for(;;){
      var match =  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:229:6>>*/ return 0;
+      /*<<seq.ml:227:12>>*/ if(! match)  /*<<seq.ml:229:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
-     if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
+      /*<<seq.ml:231:16>>*/ if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
      var
       ys$1 = match$0[2],
       y = match$0[1],
       _ak_ =  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
-     if(_ak_) return _ak_;
+      /*<<seq.ml:235:15>>*/ if(_ak_) return _ak_;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
@@ -1977,7 +2009,7 @@
      var
       match =  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
       match$0 =  /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
-     if(match){
+      /*<<seq.ml:238:18>>*/ if(match){
       if(match$0){
        var
         ys$1 = match$0[2],
@@ -1985,7 +2017,7 @@
         xs$1 = match[2],
         x = match[1],
         _aj_ =  /*<<seq.ml:242:6>>*/ caml_call2(eq, x, y);
-       if(! _aj_) return _aj_;
+        /*<<seq.ml:242:12>>*/ if(! _aj_) return _aj_;
        xs$0 = xs$1;
        ys$0 = ys$1;
        continue;
@@ -2001,7 +2033,8 @@
      var
       match =  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
       match$0 =  /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
-     if(! match) return match$0 ? -1 : 0 /*<<seq.ml:257:8>>*/ ;
+      /*<<seq.ml:248:18>>*/ if(! match)
+      return match$0 ? -1 : 0 /*<<seq.ml:257:8>>*/ ;
      var xs$1 = match[2], x = match[1];
      if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
      var
@@ -2015,94 +2048,95 @@
     /*<<seq.ml:257:8>>*/ }
    function init_aux(f, i, j, param){
      /*<<seq.ml:264:2>>*/ if(i >= j)  /*<<seq.ml:268:4>>*/ return 0;
-    var _ah_ = i + 1 | 0;
-     /*<<seq.ml:264:16>>*/ return [0,
+    var _ah_ =  /*<<seq.ml:264:16>>*/ i + 1 | 0;
+     /*<<seq.ml:265:13>>*/ return [0,
              /*<<seq.ml:265:10>>*/ caml_call1(f, i),
-            function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}] /*<<seq.ml:264:16>>*/ ;
+            function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}] /*<<seq.ml:265:13>>*/ ;
     /*<<seq.ml:268:7>>*/ }
    function init(n, f){
      /*<<seq.ml:271:2>>*/ if(0 > n)
       /*<<seq.ml:272:4>>*/ return caml_call1(Stdlib[1], cst_Seq_init) /*<<seq.ml:274:18>>*/ ;
-    var _af_ = 0;
-     /*<<seq.ml:274:4>>*/ return function(_ag_){
+    var _af_ =  /*<<seq.ml:274:4>>*/ 0;
+    return function(_ag_){
       /*<<?>>*/ return init_aux(f, _af_, n, _ag_);} /*<<seq.ml:274:4>>*/ ;
     /*<<seq.ml:274:18>>*/ }
    function repeat(x, param){
      /*<<seq.ml:277:2>>*/ return [0,
             x,
-            function(_ae_){ /*<<?>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:2>>*/ ;
+            function(_ae_){ /*<<?>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:19>>*/ ;
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
      /*<<seq.ml:280:2>>*/ return [0,
              /*<<seq.ml:280:8>>*/ caml_call1(f, 0),
-            function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:2>>*/ ;
+            function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:11>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
-     /*<<seq.ml:287:2>>*/ return append
+     /*<<seq.ml:287:2>>*/ return  /*<<seq.ml:287:31>>*/ append
             (xs,
              function(_ac_){ /*<<?>>*/ return cycle_nonempty(xs, _ac_);},
              0) /*<<seq.ml:287:34>>*/ ;
    }
    function cycle(xs, param){
     var match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:297:6>>*/ return 0;
+     /*<<seq.ml:295:12>>*/ if(! match)  /*<<seq.ml:297:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
     function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
-     /*<<seq.ml:299:6>>*/ return [0,
+     /*<<seq.ml:299:45>>*/ return [0,
             x,
-            function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}] /*<<seq.ml:299:6>>*/ ;
+            function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}] /*<<seq.ml:299:45>>*/ ;
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
     var y =  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
-     /*<<seq.ml:307:2>>*/ return [0,
+     /*<<seq.ml:307:23>>*/ return [0,
             y,
-            function(___){ /*<<?>>*/ return iterate1(f, y, ___);}] /*<<seq.ml:307:2>>*/ ;
+            function(___){ /*<<?>>*/ return iterate1(f, y, ___);}] /*<<seq.ml:307:23>>*/ ;
     /*<<seq.ml:307:24>>*/ }
    function iterate(f, x){
     function next(_Z_){ /*<<?>>*/ return iterate1(f, x, _Z_);}
-     /*<<seq.ml:319:9>>*/ return function(_Y_){
-      /*<<seq.ml:28:21>>*/ return [0, x, next];} /*<<seq.ml:319:9>>*/ ;
-    /*<<seq.ml:319:23>>*/ }
+     /*<<seq.ml:319:23>>*/ return function(_Y_){
+      /*<<seq.ml:28:21>>*/ return [0, x, next];} /*<<seq.ml:319:23>>*/ ;
+   }
    function mapi_aux(f, i, xs, param){
     var match =  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:326:6>>*/ return 0;
+     /*<<seq.ml:324:12>>*/ if(! match)  /*<<seq.ml:326:6>>*/ return 0;
     var xs$0 = match[2], x = match[1], _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
-    return [0,
+     /*<<seq.ml:328:17>>*/ return [0,
              /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
-            function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}] /*<<seq.ml:328:6>>*/ ;
+            function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}] /*<<seq.ml:328:17>>*/ ;
     /*<<seq.ml:328:39>>*/ }
    function mapi(f, xs){
-    var _U_ = 0;
-     /*<<seq.ml:331:2>>*/ return function(_V_){
+    var _U_ =  /*<<seq.ml:331:2>>*/ 0;
+    return function(_V_){
       /*<<?>>*/ return mapi_aux(f, _U_, xs, _V_);} /*<<seq.ml:331:2>>*/ ;
     /*<<seq.ml:331:17>>*/ }
    function tail_scan(f, s, xs, param){
     var match =  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:342:6>>*/ return 0;
+     /*<<seq.ml:340:12>>*/ if(! match)  /*<<seq.ml:342:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
      s$0 =  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
-     /*<<seq.ml:345:6>>*/ return [0,
+     /*<<seq.ml:345:31>>*/ return [0,
             s$0,
-            function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}] /*<<seq.ml:345:6>>*/ ;
+            function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}] /*<<seq.ml:345:31>>*/ ;
     /*<<seq.ml:345:32>>*/ }
    function scan(f, s, xs){
     function next(_S_){ /*<<?>>*/ return tail_scan(f, s, xs, _S_);}
-     /*<<seq.ml:348:9>>*/ return function(_R_){
-      /*<<seq.ml:28:21>>*/ return [0, s, next];} /*<<seq.ml:348:9>>*/ ;
-    /*<<seq.ml:348:27>>*/ }
+     /*<<seq.ml:348:27>>*/ return function(_R_){
+      /*<<seq.ml:28:21>>*/ return [0, s, next];} /*<<seq.ml:348:27>>*/ ;
+   }
    function take_aux(n, xs){
      /*<<seq.ml:354:2>>*/ return 0 === n
             ? empty
             : function
              (param){
               var match =  /*<<seq.ml:358:12>>*/ caml_call1(xs, 0);
-              if(! match)  /*<<seq.ml:360:10>>*/ return 0;
+               /*<<seq.ml:358:16>>*/ if(! match)
+                /*<<seq.ml:360:10>>*/ return 0;
               var xs$0 = match[2], x = match[1];
-               /*<<seq.ml:362:10>>*/ return [0,
+               /*<<seq.ml:362:36>>*/ return [0,
                       x,
-                       /*<<seq.ml:362:19>>*/ take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:10>>*/ ;
+                       /*<<seq.ml:362:19>>*/ take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:36>>*/ ;
               /*<<seq.ml:362:37>>*/ };
    }
    function take(n, xs){
@@ -2120,7 +2154,8 @@
                 var n$0 = n, xs$0 = xs;
                  /*<<seq.ml:373:2>>*/ for(;;){
                  var match =  /*<<seq.ml:373:8>>*/ caml_call1(xs$0, 0);
-                 if(! match)  /*<<seq.ml:375:6>>*/ return 0;
+                  /*<<seq.ml:373:12>>*/ if(! match)
+                   /*<<seq.ml:375:6>>*/ return 0;
                  var xs$1 = match[2], n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
                    /*<<seq.ml:379:8>>*/ return caml_call1(xs$1, 0) /*<<seq.ml:392:21>>*/ ;
@@ -2132,9 +2167,9 @@
    }
    function take_while(p, xs, param){
     var match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:397:6>>*/ return 0;
+     /*<<seq.ml:395:12>>*/ if(! match)  /*<<seq.ml:397:6>>*/ return 0;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:399:9>>*/ return caml_call1(p, x)
+     /*<<seq.ml:399:12>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
             ? [0,
               x,
               function(_Q_){ /*<<?>>*/ return take_while(p, xs$0, _Q_);}]
@@ -2144,16 +2179,16 @@
     var xs$0 = xs;
      /*<<seq.ml:402:2>>*/ for(;;){
      var node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
-     if(! node)  /*<<seq.ml:404:6>>*/ return 0;
+      /*<<seq.ml:402:12>>*/ if(! node)  /*<<seq.ml:404:6>>*/ return 0;
      var xs$1 = node[2], x = node[1];
-      /*<<seq.ml:406:9>>*/ if(! caml_call1(p, x))
+      /*<<seq.ml:406:12>>*/ if(!  /*<<seq.ml:406:9>>*/ caml_call1(p, x))
        /*<<seq.ml:406:42>>*/ return node;
      xs$0 = xs$1;
     }
     /*<<seq.ml:406:46>>*/ }
    function group(eq, xs, param){
     var match =  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:411:6>>*/ return 0;
+     /*<<seq.ml:409:12>>*/ if(! match)  /*<<seq.ml:411:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
@@ -2161,15 +2196,13 @@
     function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
     var _L_ =  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
     function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
-     /*<<seq.ml:413:6>>*/ return [0,
+     /*<<seq.ml:413:41>>*/ return [0,
             function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
-            function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}] /*<<seq.ml:413:6>>*/ ;
+            function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}] /*<<seq.ml:413:41>>*/ ;
     /*<<seq.ml:413:75>>*/ }
    var
     Forced_twice =
-       /*<<seq.ml:415:0>>*/ [248,
-       "Stdlib.Seq.Forced_twice",
-       runtime.caml_fresh_oo_id(0)],
+      [248, "Stdlib.Seq.Forced_twice", runtime.caml_fresh_oo_id(0)],
     to_lazy = Stdlib_Lazy[6],
     _a_ = [0, "seq.ml", 616, 4];
    function failure(param){
@@ -2178,13 +2211,15 @@
    function memoize(xs){
     function s$0(param){
      var match =  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
-     if(! match)  /*<<seq.ml:462:8>>*/ return 0;
+      /*<<seq.ml:460:14>>*/ if(! match)  /*<<seq.ml:462:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:464:8>>*/ return [0, x,  /*<<seq.ml:464:17>>*/ memoize(xs$0)] /*<<seq.ml:464:8>>*/ ;
+      /*<<seq.ml:464:27>>*/ return [0,
+             x,
+              /*<<seq.ml:464:17>>*/ memoize(xs$0)] /*<<seq.ml:464:27>>*/ ;
      /*<<seq.ml:464:28>>*/ }
     var s =  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
      /*<<seq.ml:429:4>>*/ return function(param){
-     var _I_ = runtime.caml_obj_tag(s);
+     var _I_ =  /*<<seq.ml:429:14>>*/ runtime.caml_obj_tag(s);
      if(250 === _I_) return s[1];
      if(246 !== _I_ && 244 !== _I_) return s;
      return caml_call1(CamlinternalLazy[2], s) /*<<seq.ml:429:26>>*/ ;} /*<<seq.ml:429:4>>*/ ;
@@ -2192,9 +2227,9 @@
    function once(xs){
     function f(param){
      var match =  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
-     if(! match)  /*<<seq.ml:471:8>>*/ return 0;
+      /*<<seq.ml:469:14>>*/ if(! match)  /*<<seq.ml:471:8>>*/ return 0;
      var xs$0 = match[2], x = match[1];
-      /*<<seq.ml:473:8>>*/ return [0, x,  /*<<seq.ml:473:17>>*/ once(xs$0)] /*<<seq.ml:473:8>>*/ ;
+      /*<<seq.ml:473:24>>*/ return [0, x,  /*<<seq.ml:473:17>>*/ once(xs$0)] /*<<seq.ml:473:24>>*/ ;
      /*<<seq.ml:473:25>>*/ }
     var action =  /*<<seq.ml:448:17>>*/ caml_call1(Stdlib_Atomic[1], f);
      /*<<seq.ml:449:4>>*/ return function(param){
@@ -2204,38 +2239,38 @@
     /*<<seq.ml:474:3>>*/ }
    function zip(xs, ys, param){
     var match =  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:480:6>>*/ return 0;
+     /*<<seq.ml:478:12>>*/ if(! match)  /*<<seq.ml:480:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
      match$0 =  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
-    if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
+     /*<<seq.ml:482:16>>*/ if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
-     /*<<seq.ml:486:10>>*/ return [0,
+     /*<<seq.ml:486:33>>*/ return [0,
             [0, x, y],
-            function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:10>>*/ ;
+            function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:33>>*/ ;
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
     var match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
-    if(! match)  /*<<seq.ml:491:6>>*/ return 0;
+     /*<<seq.ml:489:12>>*/ if(! match)  /*<<seq.ml:491:6>>*/ return 0;
     var
      xs$0 = match[2],
      x = match[1],
      match$0 =  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
-    if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
+     /*<<seq.ml:493:16>>*/ if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
     var ys$0 = match$0[2], y = match$0[1];
-     /*<<seq.ml:497:10>>*/ return [0,
+     /*<<seq.ml:497:21>>*/ return [0,
              /*<<seq.ml:497:16>>*/ caml_call2(f, x, y),
-            function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}] /*<<seq.ml:497:10>>*/ ;
+            function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}] /*<<seq.ml:497:21>>*/ ;
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
     var match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
-    if(! match)
+     /*<<seq.ml:500:12>>*/ if(! match)
       /*<<seq.ml:502:6>>*/ return caml_call1(ys, 0) /*<<seq.ml:504:32>>*/ ;
     var xs$0 = match[2], x = match[1];
-     /*<<seq.ml:504:6>>*/ return [0,
+     /*<<seq.ml:504:31>>*/ return [0,
             x,
-            function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}] /*<<seq.ml:504:6>>*/ ;
+            function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}] /*<<seq.ml:504:31>>*/ ;
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
      /*<<seq.ml:533:2>>*/ return 0
@@ -2244,7 +2279,8 @@
               y,
               function(_D_){
                var match =  /*<<seq.ml:519:8>>*/ caml_call1(ys, 0);
-               if(! match)  /*<<seq.ml:521:6>>*/ return [0, x, xs];
+                /*<<seq.ml:519:12>>*/ if(! match)
+                 /*<<seq.ml:521:6>>*/ return [0, x, xs];
                var ys$0 = match[2], y = match[1];
                 /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0);
               }]
@@ -2252,7 +2288,8 @@
               x,
               function(_E_){
                var match =  /*<<seq.ml:526:8>>*/ caml_call1(xs, 0);
-               if(! match)  /*<<seq.ml:528:6>>*/ return [0, y, ys];
+                /*<<seq.ml:526:12>>*/ if(! match)
+                 /*<<seq.ml:528:6>>*/ return [0, y, ys];
                var xs$0 = match[2], x = match[1];
                 /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys);
               }] /*<<seq.ml:536:40>>*/ ;
@@ -2261,7 +2298,7 @@
     var
      match =  /*<<seq.ml:539:8>>*/ caml_call1(xs, 0),
      match$0 =  /*<<seq.ml:539:14>>*/ caml_call1(ys, 0);
-    if(match){
+     /*<<seq.ml:539:18>>*/ if(match){
      if(match$0){
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
        /*<<seq.ml:546:8>>*/ return sorted_merge1(cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
@@ -2273,41 +2310,41 @@
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
     var match =  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
-    if(! match)  /*<<seq.ml:552:6>>*/ return 0;
+     /*<<seq.ml:550:13>>*/ if(! match)  /*<<seq.ml:552:6>>*/ return 0;
     var xys$0 = match[2], x = match[1][1];
-     /*<<seq.ml:554:6>>*/ return [0,
+     /*<<seq.ml:554:26>>*/ return [0,
             x,
-            function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:6>>*/ ;
+            function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:26>>*/ ;
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
     var match =  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
-    if(! match)  /*<<seq.ml:559:6>>*/ return 0;
+     /*<<seq.ml:557:13>>*/ if(! match)  /*<<seq.ml:559:6>>*/ return 0;
     var xys$0 = match[2], y = match[1][2];
-     /*<<seq.ml:561:6>>*/ return [0,
+     /*<<seq.ml:561:26>>*/ return [0,
             y,
-            function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:6>>*/ ;
+            function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:26>>*/ ;
     /*<<seq.ml:561:27>>*/ }
    function unzip(xys){
      /*<<seq.ml:564:2>>*/ return [0,
             function(_A_){ /*<<?>>*/ return map_fst(xys, _A_);},
-            function(_z_){return map_snd(xys, _z_);}] /*<<seq.ml:564:2>>*/ ;
+            function(_z_){return map_snd(xys, _z_);}] /*<<seq.ml:564:13>>*/ ;
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
     var xs$0 = xs;
      /*<<seq.ml:573:2>>*/ for(;;){
      var match =  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:575:6>>*/ return 0;
+      /*<<seq.ml:573:12>>*/ if(! match)  /*<<seq.ml:575:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
-     if(0 === match$0[0]){
+      /*<<seq.ml:577:15>>*/ if(0 === match$0[0]){
       var y = match$0[1];
-       /*<<seq.ml:579:10>>*/ return [0,
+       /*<<seq.ml:579:48>>*/ return [0,
               y,
               function(_y_){
                 /*<<?>>*/ return filter_map_find_left_map(f, xs$1, _y_);
-              }] /*<<seq.ml:579:10>>*/ ;
+              }] /*<<seq.ml:579:48>>*/ ;
      }
      xs$0 = xs$1;
     }
@@ -2316,18 +2353,18 @@
     var xs$0 = xs;
      /*<<seq.ml:584:2>>*/ for(;;){
      var match =  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
-     if(! match)  /*<<seq.ml:586:6>>*/ return 0;
+      /*<<seq.ml:584:12>>*/ if(! match)  /*<<seq.ml:586:6>>*/ return 0;
      var
       xs$1 = match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
-     if(0 !== match$0[0]){
+      /*<<seq.ml:588:15>>*/ if(0 !== match$0[0]){
       var z = match$0[1];
-       /*<<seq.ml:592:10>>*/ return [0,
+       /*<<seq.ml:592:49>>*/ return [0,
               z,
               function(_x_){
                 /*<<?>>*/ return filter_map_find_right_map(f, xs$1, _x_);
-              }] /*<<seq.ml:592:10>>*/ ;
+              }] /*<<seq.ml:592:49>>*/ ;
      }
      xs$0 = xs$1;
     }
@@ -2337,77 +2374,77 @@
             function(_w_){
               /*<<?>>*/ return filter_map_find_left_map(f, xs, _w_);
             },
-            function(_v_){return filter_map_find_right_map(f, xs, _v_);}] /*<<seq.ml:595:2>>*/ ;
+            function(_v_){return filter_map_find_right_map(f, xs, _v_);}] /*<<seq.ml:595:31>>*/ ;
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
-      /*<<seq.ml:599:32>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x);
-     /*<<seq.ml:599:41>>*/ }
-     /*<<seq.ml:599:2>>*/ return [0,
+      /*<<seq.ml:599:32>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x) /*<<seq.ml:599:41>>*/ ;
+    }
+     /*<<seq.ml:599:13>>*/ return [0,
             function(_u_){ /*<<?>>*/ return filter(p, xs, _u_);},
-            function(_t_){return filter(_s_, xs, _t_);}] /*<<seq.ml:599:2>>*/ ;
+            function(_t_){return filter(_s_, xs, _t_);}] /*<<seq.ml:599:13>>*/ ;
     /*<<seq.ml:599:45>>*/ }
    function peel(xss){
-     /*<<seq.ml:611:2>>*/ return  /*<<seq.ml:611:8>>*/ unzip
+     /*<<seq.ml:611:2>>*/ return  /*<<seq.ml:611:31>>*/ unzip
             (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);}) /*<<seq.ml:611:31>>*/ ;
    }
    function transpose(xss, param){
     var
      match =  /*<<seq.ml:614:21>>*/ peel(xss),
-     tails = match[2],
+     tails =  /*<<seq.ml:614:29>>*/ match[2],
      heads = match[1];
-     /*<<seq.ml:615:5>>*/ if(! is_empty(heads))
-      /*<<seq.ml:620:4>>*/ return [0,
+     /*<<seq.ml:615:19>>*/ if(!  /*<<seq.ml:615:5>>*/ is_empty(heads))
+      /*<<seq.ml:620:32>>*/ return [0,
              heads,
-             function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:4>>*/ ;
-     /*<<seq.ml:616:11>>*/ if(is_empty(tails))  /*<<seq.ml:617:4>>*/ return 0;
-     /*<<seq.ml:616:4>>*/ throw caml_maybe_attach_backtrace
-           ([0, Assert_failure, _a_], 1);
+             function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:32>>*/ ;
+     /*<<seq.ml:616:27>>*/ if( /*<<seq.ml:616:11>>*/ is_empty(tails))
+      /*<<seq.ml:617:4>>*/ return 0;
+    throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
    function _b_(remainders, xss, param){
     var match =  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
-    if(! match)
+     /*<<seq.ml:627:13>>*/ if(! match)
       /*<<seq.ml:649:6>>*/ return transpose(remainders, 0) /*<<seq.ml:649:29>>*/ ;
     var
      xss$0 = match[2],
      xs = match[1],
      match$0 =  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
-    if(match$0){
+     /*<<seq.ml:629:22>>*/ if(match$0){
      var
       xs$0 = match$0[2],
       x = match$0[1],
       match$1 =  /*<<seq.ml:637:29>>*/ peel(remainders),
-      tails = match$1[2],
+      tails =  /*<<seq.ml:637:44>>*/ match$1[2],
       heads = match$1[1],
       _l_ =
          /*<<seq.ml:638:40>>*/ function(_p_){
           /*<<seq.ml:28:21>>*/ return [0, xs$0, tails];
         };
-      /*<<seq.ml:638:10>>*/ return [0,
+      /*<<seq.ml:638:28>>*/ return [0,
              function(_o_){ /*<<seq.ml:28:21>>*/ return [0, x, heads];},
-             function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}] /*<<seq.ml:638:10>>*/ ;
+             function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}] /*<<seq.ml:638:28>>*/ ;
     }
     var
      match$2 =  /*<<seq.ml:643:29>>*/ peel(remainders),
-     tails$0 = match$2[2],
+     tails$0 =  /*<<seq.ml:643:44>>*/ match$2[2],
      heads$0 = match$2[1];
-     /*<<seq.ml:644:10>>*/ return [0,
+     /*<<seq.ml:644:42>>*/ return [0,
             heads$0,
-            function(_m_){ /*<<?>>*/ return _b_(tails$0, xss$0, _m_);}] /*<<seq.ml:644:10>>*/ ;
+            function(_m_){ /*<<?>>*/ return _b_(tails$0, xss$0, _m_);}] /*<<seq.ml:644:42>>*/ ;
     /*<<seq.ml:649:29>>*/ }
    function map_product(f, xs, ys){
     function _f_(x){
      function _j_(y){
        /*<<seq.ml:671:8>>*/ return caml_call2(f, x, y) /*<<seq.ml:671:13>>*/ ;
      }
-      /*<<seq.ml:670:10>>*/ return function(_k_){
-       /*<<?>>*/ return map(_j_, ys, _k_);} /*<<seq.ml:670:10>>*/ ;
+      /*<<seq.ml:670:6>>*/ return function(_k_){
+       /*<<?>>*/ return map(_j_, ys, _k_);} /*<<seq.ml:670:6>>*/ ;
      /*<<seq.ml:672:10>>*/ }
     function xss(_i_){ /*<<?>>*/ return map(_f_, xs, _i_);}
     function _e_(_h_){return _b_(empty, xss, _h_);}
-     /*<<seq.ml:668:9>>*/ return function(_g_){
-      /*<<?>>*/ return concat(_e_, _g_);} /*<<seq.ml:668:9>>*/ ;
-    /*<<seq.ml:674:4>>*/ }
+     /*<<seq.ml:674:4>>*/ return function(_g_){
+      /*<<?>>*/ return concat(_e_, _g_);} /*<<seq.ml:674:4>>*/ ;
+   }
    function product(xs, ys){
      /*<<seq.ml:677:2>>*/ return map_product
             (function(x, y){
@@ -2419,24 +2456,26 @@
    function of_dispenser(it){
     function c(param){
      var match =  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
-     if(! match)  /*<<seq.ml:683:8>>*/ return 0;
+      /*<<seq.ml:681:14>>*/ if(! match)  /*<<seq.ml:683:8>>*/ return 0;
      var x = match[1];
       /*<<seq.ml:685:8>>*/ return [0, x, c];
      /*<<seq.ml:685:19>>*/ }
      /*<<seq.ml:687:2>>*/ return c;
     /*<<seq.ml:687:3>>*/ }
    function to_dispenser(xs){
-    var s =  /*<<seq.ml:690:10>>*/ [0, xs];
+    var s =  /*<<seq.ml:690:2>>*/ [0, xs];
      /*<<seq.ml:691:2>>*/ return function(param){
      var match =  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
-     if(! match)  /*<<seq.ml:694:8>>*/ return 0;
+      /*<<seq.ml:692:16>>*/ if(! match)  /*<<seq.ml:694:8>>*/ return 0;
      var xs = match[2], x = match[1];
-     s[1] = xs;
+      /*<<seq.ml:696:8>>*/ s[1] = xs;
       /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ } /*<<seq.ml:691:2>>*/ ;
     /*<<seq.ml:697:14>>*/ }
    function ints(i, param){
     var _c_ =  /*<<seq.ml:702:2>>*/ i + 1 | 0;
-    return [0, i, function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:2>>*/ ;
+     /*<<seq.ml:702:23>>*/ return [0,
+            i,
+            function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:23>>*/ ;
     /*<<seq.ml:702:24>>*/ }
    var
     Stdlib_Seq =
@@ -2554,9 +2593,9 @@
    function map(f, o){
      /*<<option.ml:24:14>>*/ if(! o)  /*<<option.ml:24:35>>*/ return 0;
     var v = o[1];
-     /*<<option.ml:24:52>>*/ return [0,
-             /*<<option.ml:24:57>>*/ caml_call1(f, v)] /*<<option.ml:24:52>>*/ ;
-    /*<<option.ml:24:62>>*/ }
+     /*<<option.ml:24:62>>*/ return [0,
+             /*<<option.ml:24:57>>*/ caml_call1(f, v)] /*<<option.ml:24:62>>*/ ;
+   }
    function fold(none, some, param){
      /*<<option.ml:25:9>>*/ if(! param)  /*<<option.ml:25:59>>*/ return none;
     var v = param[1];
@@ -2692,14 +2731,14 @@
    function map(f, e){
      /*<<result.ml:25:8>>*/ if(0 !== e[0])  /*<<result.ml:25:56>>*/ return e;
     var v = e[1];
-     /*<<result.ml:25:29>>*/ return [0,
-             /*<<result.ml:25:32>>*/ caml_call1(f, v)] /*<<result.ml:25:29>>*/ ;
+     /*<<result.ml:25:37>>*/ return [0,
+             /*<<result.ml:25:32>>*/ caml_call1(f, v)] /*<<result.ml:25:37>>*/ ;
     /*<<result.ml:25:57>>*/ }
    function map_error(f, v){
      /*<<result.ml:26:14>>*/ if(0 === v[0])  /*<<result.ml:26:65>>*/ return v;
     var e = v[1];
-     /*<<result.ml:26:38>>*/ return [1,
-             /*<<result.ml:26:44>>*/ caml_call1(f, e)] /*<<result.ml:26:38>>*/ ;
+     /*<<result.ml:26:49>>*/ return [1,
+             /*<<result.ml:26:44>>*/ caml_call1(f, e)] /*<<result.ml:26:49>>*/ ;
     /*<<result.ml:26:66>>*/ }
    function fold(ok, error, param){
      /*<<result.ml:27:9>>*/ if(0 === param[0]){
@@ -2872,7 +2911,7 @@
    function escaped(c){
     a:
     {
-     if(40 <= c){
+      /*<<char.ml:29:14>>*/ if(40 <= c){
       if(92 === c)  /*<<char.ml:31:12>>*/ return cst;
       if(127 > c) break a;
      }
@@ -2891,15 +2930,16 @@
        }
      }
      var s =  /*<<char.ml:42:14>>*/ caml_create_bytes(4);
-     caml_bytes_unsafe_set(s, 0, 92);
-     caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
-     caml_bytes_unsafe_set(s, 2, 48 + ((c / 10 | 0) % 10 | 0) | 0);
-     caml_bytes_unsafe_set(s, 3, 48 + (c % 10 | 0) | 0);
-     return caml_string_of_bytes(s) /*<<char.ml:47:24>>*/ ;
+      /*<<char.ml:43:6>>*/ caml_bytes_unsafe_set(s, 0, 92);
+      /*<<char.ml:44:6>>*/ caml_bytes_unsafe_set(s, 1, 48 + (c / 100 | 0) | 0);
+      /*<<char.ml:45:6>>*/ caml_bytes_unsafe_set
+      (s, 2, 48 + ((c / 10 | 0) % 10 | 0) | 0);
+      /*<<char.ml:46:6>>*/ caml_bytes_unsafe_set(s, 3, 48 + (c % 10 | 0) | 0);
+      /*<<char.ml:47:6>>*/ return caml_string_of_bytes(s) /*<<char.ml:47:24>>*/ ;
     }
     var s$0 =  /*<<char.ml:37:14>>*/ caml_create_bytes(1);
-    caml_bytes_unsafe_set(s$0, 0, c);
-    return caml_string_of_bytes(s$0) /*<<char.ml:47:24>>*/ ;
+     /*<<char.ml:38:6>>*/ caml_bytes_unsafe_set(s$0, 0, c);
+     /*<<char.ml:39:6>>*/ return caml_string_of_bytes(s$0) /*<<char.ml:47:24>>*/ ;
    }
    function lowercase_ascii(c){
      /*<<char.ml:49:22>>*/ return 25 < c - 65 >>> 0 ? c : c + 32 | 0 /*<<char.ml:51:10>>*/ ;
@@ -2911,7 +2951,7 @@
      /*<<char.ml:59:20>>*/ return c1 - c2 | 0;
     /*<<char.ml:59:37>>*/ }
    function equal(c1, c2){
-     /*<<char.ml:60:28>>*/ return 0 === (c1 - c2 | 0) ? 1 : 0;
+     /*<<char.ml:60:28>>*/ return 0 === (c1 - c2 | 0) ? 1 : 0 /*<<char.ml:60:41>>*/ ;
     /*<<char.ml:60:45>>*/ }
    function seeded_hash(seed, x){
      /*<<char.ml:64:25>>*/ return caml_hash(10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
@@ -2969,15 +3009,23 @@
    function succ(u){
      /*<<uchar.ml:34:2>>*/ return u === 55295
             ? hi_bound
-            : u === 1114111 ? caml_call1(Stdlib[1], err_no_succ) : u + 1 | 0 /*<<uchar.ml:36:7>>*/ ;
+            : u
+              === 1114111
+              ?  /*<<uchar.ml:35:18>>*/ caml_call1(Stdlib[1], err_no_succ)
+              : u + 1 | 0 /*<<uchar.ml:36:7>>*/ ;
    }
    function pred(u){
      /*<<uchar.ml:39:2>>*/ return u === 57344
             ? lo_bound
-            : u === 0 ? caml_call1(Stdlib[1], err_no_pred) : u - 1 | 0 /*<<uchar.ml:41:7>>*/ ;
+            : u
+              === 0
+              ?  /*<<uchar.ml:40:18>>*/ caml_call1(Stdlib[1], err_no_pred)
+              : u - 1 | 0 /*<<uchar.ml:41:7>>*/ ;
    }
    function is_valid(i){
-    var _n_ = 0 <= i ? 1 : 0, _o_ = _n_ ? i <= 55295 ? 1 : 0 : _n_;
+    var
+     _n_ =  /*<<uchar.ml:43:17>>*/ 0 <= i ? 1 : 0,
+     _o_ = _n_ ? i <= 55295 ? 1 : 0 : _n_;
     if(_o_)
      var _p_ = _o_;
     else
@@ -2989,9 +3037,11 @@
       /*<<uchar.ml:44:34>>*/ return i;
     var
      _m_ =
-        /*<<uchar.ml:20:19>>*/ caml_call2
-        (Stdlib[28], caml_format_int("%X", i), cst_is_not_an_Unicode_scalar_v);
-     /*<<uchar.ml:44:53>>*/ return caml_call1(Stdlib[1], _m_) /*<<uchar.ml:44:67>>*/ ;
+        /*<<uchar.ml:20:36>>*/ caml_call2
+        (Stdlib[28],
+          /*<<uchar.ml:20:19>>*/ caml_format_int("%X", i),
+         cst_is_not_an_Unicode_scalar_v);
+     /*<<uchar.ml:44:67>>*/ return caml_call1(Stdlib[1], _m_);
    }
    function is_char(u){
      /*<<uchar.ml:48:16>>*/ return u < 256 ? 1 : 0;
@@ -3007,8 +3057,8 @@
         (Stdlib[28],
          caml_format_int("%04X", u),
          cst_is_not_a_latin1_character),
-     _l_ = caml_call2(Stdlib[28], cst_U, _k_);
-     /*<<uchar.ml:51:30>>*/ return caml_call1(Stdlib[1], _l_) /*<<uchar.ml:52:19>>*/ ;
+     _l_ =  /*<<uchar.ml:21:80>>*/ caml_call2(Stdlib[28], cst_U, _k_);
+     /*<<uchar.ml:51:48>>*/ return caml_call1(Stdlib[1], _l_) /*<<uchar.ml:52:19>>*/ ;
    }
    function unsafe_to_char(_j_){ /*<<?>>*/ return _j_;}
    function equal(_i_, _h_){return _i_ === _h_ ? 1 : 0;}
@@ -3175,7 +3225,7 @@
     }
     /*<<list.ml:51:16>>*/ }
    var
-    append =  /*<<list.ml:45:12>>*/ Stdlib[37],
+    append = Stdlib[37],
     cst_List_init = "List.init",
     cst_List_map2 = cst_List_map2$1,
     cst_List_map2$0 = cst_List_map2$1,
@@ -3194,7 +3244,7 @@
      var
       l1$1 = l1$0[2],
       a = l1$0[1],
-      l2$1 =  /*<<list.ml:58:27>>*/ [0, a, l2$0];
+      l2$1 =  /*<<list.ml:58:14>>*/ [0, a, l2$0];
      l1$0 = l1$1;
      l2$0 = l2$1;
     }
@@ -3205,28 +3255,28 @@
    function init(len, f){
      /*<<list.ml:71:2>>*/ if(0 > len)
       /*<<list.ml:71:18>>*/ return caml_call1(Stdlib[1], cst_List_init) /*<<list.ml:72:20>>*/ ;
-    var last = len - 1 | 0, i$1 = 0;
-    if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
-    if(0 === last)
-      /*<<list.ml:64:24>>*/ return [0,
+    var last =  /*<<list.ml:72:2>>*/ len - 1 | 0, i$1 = 0;
+     /*<<list.ml:63:2>>*/ if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
+     /*<<list.ml:64:7>>*/ if(0 === last)
+      /*<<list.ml:64:28>>*/ return [0,
               /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
-             0] /*<<list.ml:64:24>>*/ ;
+             0] /*<<list.ml:64:28>>*/ ;
     var
      r1 =  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
      r2 =  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
-     block =  /*<<list.ml:68:10>>*/ [0, r2, 24029],
+     block =  /*<<list.ml:68:4>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
      i = 2;
      /*<<list.ml:63:2>>*/ for(;;){
      if(last < i)
-      dst[1 + offset] = 0;
+       /*<<list.ml:63:19>>*/ dst[1 + offset] = 0;
      else{
-      if(i !== last){
+       /*<<list.ml:64:7>>*/ if(i !== last){
        var
         r1$0 =  /*<<list.ml:66:13>>*/ caml_call1(f, i),
         r2$0 =  /*<<list.ml:67:13>>*/ caml_call1(f, i + 1 | 0),
-        dst$0 =  /*<<list.ml:68:10>>*/ [0, r2$0, 24029];
+        dst$0 =  /*<<list.ml:68:4>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$0, dst$0];
        var i$0 = i + 2 | 0;
        dst = dst$0;
@@ -3234,15 +3284,16 @@
        i = i$0;
        continue;
       }
-      dst[1 + offset] = [0,  /*<<list.ml:64:25>>*/ caml_call1(f, i), 0];
+       /*<<list.ml:64:28>>*/ dst[1 + offset] =
+       [0,  /*<<list.ml:64:25>>*/ caml_call1(f, i), 0];
      }
-      /*<<list.ml:68:4>>*/ return [0, r1, block];
+      /*<<list.ml:68:33>>*/ return [0, r1, block];
     }
     /*<<list.ml:72:20>>*/ }
    function flatten(param){
      /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
     var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
-    return caml_call2(Stdlib[37], l, _I_) /*<<list.ml:76:25>>*/ ;
+     /*<<list.ml:76:25>>*/ return caml_call2(Stdlib[37], l, _I_);
    }
    function map(f, param){
      /*<<list.ml:80:28>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
@@ -3256,7 +3307,7 @@
      a2 = match[1],
      r1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
      r2 =  /*<<list.ml:87:15>>*/ caml_call1(f, a2),
-     block =  /*<<list.ml:88:10>>*/ [0, r2, 24029],
+     block =  /*<<list.ml:88:6>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
      param$0 = l;
@@ -3269,7 +3320,7 @@
         a2$0 = match$0[1],
         r1$1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1$0),
         r2$0 =  /*<<list.ml:87:15>>*/ caml_call1(f, a2$0),
-        dst$0 =  /*<<list.ml:88:10>>*/ [0, r2$0, 24029];
+        dst$0 =  /*<<list.ml:88:6>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        dst = dst$0;
        offset = 1;
@@ -3277,16 +3328,16 @@
        continue;
       }
       var r1$2 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1$0);
-      dst[1 + offset] = [0, r1$2, 0];
+       /*<<list.ml:84:6>>*/ dst[1 + offset] = [0, r1$2, 0];
      }
      else
-      dst[1 + offset] = 0;
-      /*<<list.ml:88:6>>*/ return [0, r1, block];
+       /*<<list.ml:81:10>>*/ dst[1 + offset] = 0;
+      /*<<list.ml:88:21>>*/ return [0, r1, block];
     }
-    /*<<list.ml:88:21>>*/ }
+   }
    function mapi(f, l$1){
-    var i$1 = 0;
-    if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
+    var i$1 =  /*<<list.ml:100:15>>*/ 0;
+     /*<<list.ml:90:29>>*/ if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
     var match = l$1[2], a1 = l$1[1];
     if(! match){
      var r1$0 =  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
@@ -3297,7 +3348,7 @@
      a2 = match[1],
      r1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
      r2 =  /*<<list.ml:97:15>>*/ caml_call2(f, 1, a2),
-     block =  /*<<list.ml:98:10>>*/ [0, r2, 24029],
+     block =  /*<<list.ml:98:6>>*/ [0, r2, 24029],
      dst = block,
      offset = 1,
      i = 2,
@@ -3311,7 +3362,7 @@
         a2$0 = match$0[1],
         r1$1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i, a1$0),
         r2$0 =  /*<<list.ml:97:15>>*/ caml_call2(f, i + 1 | 0, a2$0),
-        dst$0 =  /*<<list.ml:98:10>>*/ [0, r2$0, 24029];
+        dst$0 =  /*<<list.ml:98:6>>*/ [0, r2$0, 24029];
        dst[1 + offset] = [0, r1$1, dst$0];
        var i$0 = i + 2 | 0;
        dst = dst$0;
@@ -3321,11 +3372,11 @@
        continue;
       }
       var r1$2 =  /*<<list.ml:93:15>>*/ caml_call2(f, i, a1$0);
-      dst[1 + offset] = [0, r1$2, 0];
+       /*<<list.ml:94:6>>*/ dst[1 + offset] = [0, r1$2, 0];
      }
      else
-      dst[1 + offset] = 0;
-      /*<<list.ml:98:6>>*/ return [0, r1, block];
+       /*<<list.ml:91:10>>*/ dst[1 + offset] = 0;
+      /*<<list.ml:98:28>>*/ return [0, r1, block];
     }
     /*<<list.ml:100:25>>*/ }
    function rev_map(f, l){
@@ -3336,7 +3387,7 @@
       l$0 = param[2],
       a = param[1],
       accu$0 =
-         /*<<list.ml:105:21>>*/ [0,
+         /*<<list.ml:105:25>>*/ [0,
           /*<<list.ml:105:22>>*/ caml_call1(f, a),
          accu];
      accu = accu$0;
@@ -3358,7 +3409,7 @@
      if(! param)  /*<<list.ml:115:10>>*/ return 0;
      var l = param[2], a = param[1];
       /*<<list.ml:116:12>>*/ caml_call2(f, i, a);
-     var i$0 = i + 1 | 0;
+     var i$0 =  /*<<list.ml:116:17>>*/ i + 1 | 0;
      i = i$0;
      param = l;
     }
@@ -3378,7 +3429,8 @@
    function fold_right(f, l, accu){
      /*<<list.ml:126:2>>*/ if(! l)  /*<<list.ml:127:10>>*/ return accu;
     var l$0 = l[2], a = l[1];
-     /*<<list.ml:128:16>>*/ return caml_call2(f, a, fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
+     /*<<list.ml:128:37>>*/ return caml_call2
+            (f, a,  /*<<list.ml:128:16>>*/ fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
    }
    function map2(f, l1, l2){
      /*<<list.ml:131:2>>*/ if(l1){
@@ -3395,7 +3447,7 @@
          a2 = _G_[1],
          r1 =  /*<<list.ml:137:15>>*/ caml_call2(f, a1, b1),
          r2 =  /*<<list.ml:138:15>>*/ caml_call2(f, a2, b2),
-         block =  /*<<list.ml:139:10>>*/ [0, r2, 24029],
+         block =  /*<<list.ml:139:6>>*/ [0, r2, 24029],
          dst = block,
          offset = 1,
          l1$1 = l1$0,
@@ -3417,7 +3469,7 @@
                a2$0 = _H_[1],
                r1$1 =  /*<<list.ml:137:15>>*/ caml_call2(f, a1$0, b1$1),
                r2$0 =  /*<<list.ml:138:15>>*/ caml_call2(f, a2$0, b2$0),
-               dst$0 =  /*<<list.ml:139:10>>*/ [0, r2$0, 24029];
+               dst$0 =  /*<<list.ml:139:6>>*/ [0, r2$0, 24029];
               dst[1 + offset] = [0, r1$1, dst$0];
               dst = dst$0;
               offset = 1;
@@ -3431,14 +3483,18 @@
             var
              b1$2 = l2$1[1],
              r1$2 =  /*<<list.ml:134:15>>*/ caml_call2(f, a1$0, b1$2);
-            dst[1 + offset] = [0, r1$2, 0];
+             /*<<list.ml:135:6>>*/ dst[1 + offset] = [0, r1$2, 0];
             break a;
            }
           }
-          else if(! l2$1){dst[1 + offset] = 0; break a;}
-          dst[1 + offset] = caml_call1(Stdlib[1], cst_List_map2$0);
+          else if(! l2$1){
+            /*<<list.ml:132:16>>*/ dst[1 + offset] = 0;
+           break a;
+          }
+           /*<<list.ml:140:14>>*/ dst[1 + offset] =
+           caml_call1(Stdlib[1], cst_List_map2$0);
          }
-          /*<<list.ml:139:6>>*/ return [0, r1, block];
+          /*<<list.ml:139:26>>*/ return [0, r1, block];
         }
        }
       }
@@ -3464,7 +3520,7 @@
         l1$1 = l1$0[2],
         a1 = l1$0[1],
         accu$0 =
-           /*<<list.ml:146:34>>*/ [0,
+           /*<<list.ml:146:42>>*/ [0,
             /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2),
            accu];
        accu = accu$0;
@@ -3518,8 +3574,11 @@
      /*<<list.ml:165:2>>*/ if(l1){
      if(l2){
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
-       /*<<list.ml:167:32>>*/ return caml_call3
-              (f, a1, a2, fold_right2(f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
+       /*<<list.ml:167:58>>*/ return caml_call3
+              (f,
+               a1,
+               a2,
+                /*<<list.ml:167:32>>*/ fold_right2(f, l1$0, l2$0, accu)) /*<<list.ml:168:44>>*/ ;
      }
     }
     else if(! l2)  /*<<list.ml:166:16>>*/ return accu;
@@ -3533,7 +3592,7 @@
       l = param$0[2],
       a = param$0[1],
       _F_ =  /*<<list.ml:172:12>>*/ caml_call1(p, a);
-     if(! _F_) return _F_;
+      /*<<list.ml:172:15>>*/ if(! _F_) return _F_;
      param$0 = l;
     }
     /*<<list.ml:172:30>>*/ }
@@ -3545,7 +3604,7 @@
       l = param$0[2],
       a = param$0[1],
       _E_ =  /*<<list.ml:176:12>>*/ caml_call1(p, a);
-     if(_E_) return _E_;
+      /*<<list.ml:176:15>>*/ if(_E_) return _E_;
      param$0 = l;
     }
     /*<<list.ml:176:29>>*/ }
@@ -3560,7 +3619,7 @@
         l1$1 = l1$0[2],
         a1 = l1$0[1],
         _D_ =  /*<<list.ml:181:24>>*/ caml_call2(p, a1, a2);
-       if(! _D_) return _D_;
+        /*<<list.ml:181:31>>*/ if(! _D_) return _D_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
@@ -3581,7 +3640,7 @@
         l1$1 = l1$0[2],
         a1 = l1$0[1],
         _C_ =  /*<<list.ml:187:24>>*/ caml_call2(p, a1, a2);
-       if(_C_) return _C_;
+        /*<<list.ml:187:31>>*/ if(_C_) return _C_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
@@ -3598,8 +3657,12 @@
      var
       l = param$0[2],
       a = param$0[1],
-      _B_ = 0 ===  /*<<list.ml:192:12>>*/ caml_compare(a, x) ? 1 : 0;
-     if(_B_) return _B_;
+      _B_ =
+         /*<<list.ml:192:23>>*/ 0
+         ===  /*<<list.ml:192:12>>*/ caml_compare(a, x)
+         ? 1
+         : 0;
+      /*<<list.ml:192:23>>*/ if(_B_) return _B_;
      param$0 = l;
     }
     /*<<list.ml:192:38>>*/ }
@@ -3607,7 +3670,10 @@
     var param$0 = param;
      /*<<list.ml:194:13>>*/ for(;;){
      if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
-     var l = param$0[2], a = param$0[1], _A_ = a === x ? 1 : 0;
+     var
+      l = param$0[2],
+      a = param$0[1],
+      _A_ =  /*<<list.ml:196:12>>*/ a === x ? 1 : 0;
      if(_A_) return _A_;
      param$0 = l;
     }
@@ -3618,7 +3684,8 @@
      if(! param$0)
        /*<<list.ml:199:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-      /*<<list.ml:200:19>>*/ if(0 === caml_compare(a, x))
+      /*<<list.ml:200:30>>*/ if
+      (0 ===  /*<<list.ml:200:19>>*/ caml_compare(a, x))
        /*<<list.ml:200:40>>*/ return b;
      param$0 = l;
     }
@@ -3628,7 +3695,8 @@
      /*<<list.ml:202:18>>*/ for(;;){
      if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-      /*<<list.ml:204:19>>*/ if(0 === caml_compare(a, x))
+      /*<<list.ml:204:30>>*/ if
+      (0 ===  /*<<list.ml:204:19>>*/ caml_compare(a, x))
        /*<<list.ml:204:40>>*/ return [0, b];
      param$0 = l;
     }
@@ -3639,7 +3707,7 @@
      if(! param$0)
        /*<<list.ml:207:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-     if(a === x)  /*<<list.ml:208:31>>*/ return b;
+      /*<<list.ml:208:16>>*/ if(a === x)  /*<<list.ml:208:31>>*/ return b;
      param$0 = l;
     }
     /*<<list.ml:208:46>>*/ }
@@ -3648,7 +3716,8 @@
      /*<<list.ml:210:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
      var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
-     if(a === x)  /*<<list.ml:212:31>>*/ return [0, b];
+      /*<<list.ml:212:16>>*/ if(a === x)
+       /*<<list.ml:212:31>>*/ return [0, b];
      param$0 = l;
     }
     /*<<list.ml:212:55>>*/ }
@@ -3659,8 +3728,12 @@
      var
       l = param$0[2],
       a = param$0[1][1],
-      _z_ = 0 ===  /*<<list.ml:216:19>>*/ caml_compare(a, x) ? 1 : 0;
-     if(_z_) return _z_;
+      _z_ =
+         /*<<list.ml:216:30>>*/ 0
+         ===  /*<<list.ml:216:19>>*/ caml_compare(a, x)
+         ? 1
+         : 0;
+      /*<<list.ml:216:30>>*/ if(_z_) return _z_;
      param$0 = l;
     }
     /*<<list.ml:216:51>>*/ }
@@ -3668,7 +3741,10 @@
     var param$0 = param;
      /*<<list.ml:218:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
-     var l = param$0[2], a = param$0[1][1], _y_ = a === x ? 1 : 0;
+     var
+      l = param$0[2],
+      a = param$0[1][1],
+      _y_ =  /*<<list.ml:220:19>>*/ a === x ? 1 : 0;
      if(_y_) return _y_;
      param$0 = l;
     }
@@ -3676,14 +3752,17 @@
    function remove_assoc(x, param){
      /*<<list.ml:222:21>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
     var l = param[2], pair = param[1], a = pair[1];
-     /*<<list.ml:225:9>>*/ return 0 === caml_compare(a, x)
+     /*<<list.ml:225:20>>*/ return 0
+            ===  /*<<list.ml:225:9>>*/ caml_compare(a, x)
             ? l
             : [0, pair,  /*<<list.ml:225:45>>*/ remove_assoc(x, l)] /*<<list.ml:225:61>>*/ ;
    }
    function remove_assq(x, param){
      /*<<list.ml:227:20>>*/ if(! param)  /*<<list.ml:228:10>>*/ return 0;
     var l = param[2], pair = param[1], a = pair[1];
-    return a === x ? l : [0, pair,  /*<<list.ml:229:57>>*/ remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
+     /*<<list.ml:229:27>>*/ return a === x
+            ? l
+            : [0, pair,  /*<<list.ml:229:57>>*/ remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
    }
    function find(p, param){
     var param$0 = param;
@@ -3691,7 +3770,7 @@
      if(! param$0)
        /*<<list.ml:232:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:233:17>>*/ if(caml_call1(p, x))
+      /*<<list.ml:233:20>>*/ if( /*<<list.ml:233:17>>*/ caml_call1(p, x))
        /*<<list.ml:233:26>>*/ return x;
      param$0 = l;
     }
@@ -3701,7 +3780,7 @@
      /*<<list.ml:235:17>>*/ for(;;){
      if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:237:17>>*/ if(caml_call1(p, x))
+      /*<<list.ml:237:20>>*/ if( /*<<list.ml:237:17>>*/ caml_call1(p, x))
        /*<<list.ml:237:26>>*/ return [0, x];
      param$0 = l;
     }
@@ -3713,9 +3792,9 @@
       /*<<list.ml:240:14>>*/ for(;;){
       if(! param)  /*<<list.ml:241:10>>*/ return 0;
       var l = param[2], a = param[1];
-       /*<<list.ml:242:17>>*/ if(caml_call1(p, a))
+       /*<<list.ml:242:20>>*/ if( /*<<list.ml:242:17>>*/ caml_call1(p, a))
         /*<<list.ml:242:26>>*/ return [0, i$0];
-      var i$1 = i$0 + 1 | 0;
+      var i$1 =  /*<<list.ml:242:38>>*/ i$0 + 1 | 0;
       i$0 = i$1;
       param = l;
      }} /*<<list.ml:243:2>>*/ ;
@@ -3728,7 +3807,7 @@
       l = param$0[2],
       x = param$0[1],
       result =  /*<<list.ml:248:17>>*/ caml_call1(f, x);
-     if(result)  /*<<list.ml:249:29>>*/ return result;
+      /*<<list.ml:248:20>>*/ if(result)  /*<<list.ml:249:29>>*/ return result;
      param$0 = l;
     }
     /*<<list.ml:251:8>>*/ }
@@ -3742,8 +3821,9 @@
        l = param[2],
        x = param[1],
        result =  /*<<list.ml:257:17>>*/ caml_call2(f, i$0, x);
-      if(result)  /*<<list.ml:258:29>>*/ return result;
-      var i$1 = i$0 + 1 | 0;
+       /*<<list.ml:257:22>>*/ if(result)
+        /*<<list.ml:258:29>>*/ return result;
+      var i$1 =  /*<<list.ml:259:17>>*/ i$0 + 1 | 0;
       i$0 = i$1;
       param = l;
      }} /*<<list.ml:261:2>>*/ ;
@@ -3753,7 +3833,7 @@
      /*<<list.ml:263:33>>*/ for(;;){
      if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
      var l = param$0[2], x = param$0[1];
-      /*<<list.ml:265:17>>*/ if(caml_call1(p, x)){
+      /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
       var
        block =  /*<<list.ml:265:26>>*/ [0, x, 24029],
        dst = block,
@@ -3761,11 +3841,11 @@
        param$1 = l;
        /*<<list.ml:263:33>>*/ for(;;){
        if(! param$1){
-        dst[1 + offset] = 0;
-         /*<<list.ml:265:31>>*/ return block;
+         /*<<list.ml:264:10>>*/ dst[1 + offset] = 0;
+         /*<<list.ml:265:43>>*/ return block;
        }
        var l$0 = param$1[2], x$0 = param$1[1];
-        /*<<list.ml:265:17>>*/ if(caml_call1(p, x$0)){
+        /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x$0)){
         var dst$0 =  /*<<list.ml:265:26>>*/ [0, x$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
@@ -3785,7 +3865,8 @@
      /*<<list.ml:269:32>>*/ for(;;){
      if(! param)  /*<<list.ml:270:10>>*/ return 0;
      var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
-      /*<<list.ml:273:9>>*/ if(caml_call2(p, i, x)) break;
+      /*<<list.ml:273:14>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i, x))
+      break;
      i = i$0;
      param = l;
     }
@@ -3796,12 +3877,16 @@
      i$1 = i$0,
      param$0 = l;
      /*<<list.ml:269:32>>*/ for(;;){
-     if(! param$0){dst[1 + offset] = 0;  /*<<list.ml:273:25>>*/ return block;}
+     if(! param$0){
+       /*<<list.ml:270:10>>*/ dst[1 + offset] = 0;
+       /*<<list.ml:273:39>>*/ return block;
+     }
      var
       l$0 = param$0[2],
       x$0 = param$0[1],
       i$2 =  /*<<list.ml:272:6>>*/ i$1 + 1 | 0;
-      /*<<list.ml:273:9>>*/ if(caml_call2(p, i$1, x$0)){
+      /*<<list.ml:273:14>>*/ if
+      ( /*<<list.ml:273:9>>*/ caml_call2(p, i$1, x$0)){
       var dst$0 =  /*<<list.ml:273:20>>*/ [0, x$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -3820,7 +3905,7 @@
       l = param$0[2],
       x = param$0[1],
       match =  /*<<list.ml:280:12>>*/ caml_call1(f, x);
-     if(match){
+      /*<<list.ml:280:15>>*/ if(match){
       var
        v = match[1],
        block =  /*<<list.ml:282:18>>*/ [0, v, 24029],
@@ -3829,14 +3914,14 @@
        param$1 = l;
        /*<<list.ml:277:35>>*/ for(;;){
        if(! param$1){
-        dst[1 + offset] = 0;
-         /*<<list.ml:282:23>>*/ return block;
+         /*<<list.ml:278:10>>*/ dst[1 + offset] = 0;
+         /*<<list.ml:282:37>>*/ return block;
        }
        var
         l$0 = param$1[2],
         x$0 = param$1[1],
         match$0 =  /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
-       if(match$0){
+        /*<<list.ml:280:15>>*/ if(match$0){
         var v$0 = match$0[1], dst$0 =  /*<<list.ml:282:18>>*/ [0, v$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
@@ -3859,7 +3944,7 @@
       xs = param$0[2],
       x = param$0[1],
       ys =  /*<<list.ml:286:32>>*/ caml_call1(f, x);
-     if(ys){
+      /*<<list.ml:288:2>>*/ if(ys){
       var
        ys$1 = ys[2],
        y = ys[1],
@@ -3880,7 +3965,10 @@
         ys$2 = ys$3;
        }
        else{
-        if(! xs$1){dst[1 + offset] = 0;  /*<<list.ml:290:20>>*/ return block;}
+         /*<<list.ml:284:35>>*/ if(! xs$1){
+          /*<<list.ml:285:10>>*/ dst[1 + offset] = 0;
+          /*<<list.ml:290:46>>*/ return block;
+        }
         var
          xs$0 = xs$1[2],
          x$0 = xs$1[1],
@@ -3897,16 +3985,16 @@
     var accu$0 = accu, l_accu = 0, param = l;
      /*<<list.ml:293:14>>*/ for(;;){
      if(! param)
-       /*<<list.ml:294:12>>*/ return [0,
+       /*<<list.ml:294:28>>*/ return [0,
               accu$0,
-               /*<<list.ml:294:18>>*/ rev(l_accu)] /*<<list.ml:294:12>>*/ ;
+               /*<<list.ml:294:18>>*/ rev(l_accu)] /*<<list.ml:294:28>>*/ ;
      var
       l$0 = param[2],
       x = param[1],
       match =  /*<<list.ml:296:22>>*/ caml_call2(f, accu$0, x),
-      x$0 = match[2],
+      x$0 =  /*<<list.ml:296:30>>*/ match[2],
       accu$1 = match[1],
-      l_accu$0 =  /*<<list.ml:297:17>>*/ [0, x$0, l_accu];
+      l_accu$0 =  /*<<list.ml:297:8>>*/ [0, x$0, l_accu];
      accu$0 = accu$1;
      l_accu = l_accu$0;
      param = l$0;
@@ -3917,18 +4005,18 @@
      /*<<list.ml:301:15>>*/ for(;;){
      if(! param){
       var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
-       /*<<list.ml:302:10>>*/ return [0,
+       /*<<list.ml:302:18>>*/ return [0,
                /*<<list.ml:302:11>>*/ rev(yes),
-              _x_] /*<<list.ml:302:10>>*/ ;
+              _x_] /*<<list.ml:302:18>>*/ ;
      }
      var l$0 = param[2], x = param[1];
-      /*<<list.ml:303:17>>*/ if(caml_call1(p, x)){
-      var yes$0 =  /*<<list.ml:303:31>>*/ [0, x, yes];
+      /*<<list.ml:303:20>>*/ if( /*<<list.ml:303:17>>*/ caml_call1(p, x)){
+      var yes$0 =  /*<<list.ml:303:26>>*/ [0, x, yes];
       yes = yes$0;
       param = l$0;
      }
      else{
-      var no$0 =  /*<<list.ml:303:61>>*/ [0, x, no];
+      var no$0 =  /*<<list.ml:303:52>>*/ [0, x, no];
       no = no$0;
       param = l$0;
      }
@@ -3939,21 +4027,21 @@
      /*<<list.ml:307:15>>*/ for(;;){
      if(! param){
       var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
-       /*<<list.ml:308:10>>*/ return [0,
+       /*<<list.ml:308:19>>*/ return [0,
                /*<<list.ml:308:11>>*/ rev(left),
-              _w_] /*<<list.ml:308:10>>*/ ;
+              _w_] /*<<list.ml:308:19>>*/ ;
      }
      var
       l$0 = param[2],
       x = param[1],
       match =  /*<<list.ml:310:17>>*/ caml_call1(p, x);
-     if(0 === match[0]){
-      var v = match[1], left$0 =  /*<<list.ml:311:31>>*/ [0, v, left];
+      /*<<list.ml:310:20>>*/ if(0 === match[0]){
+      var v = match[1], left$0 =  /*<<list.ml:311:26>>*/ [0, v, left];
       left = left$0;
       param = l$0;
      }
      else{
-      var v$0 = match[1], right$0 =  /*<<list.ml:312:37>>*/ [0, v$0, right];
+      var v$0 = match[1], right$0 =  /*<<list.ml:312:27>>*/ [0, v$0, right];
       right = right$0;
       param = l$0;
      }
@@ -3967,7 +4055,7 @@
      y = match[2],
      x = match[1],
      match$0 =  /*<<list.ml:320:21>>*/ split(l),
-     ry = match$0[2],
+     ry =  /*<<list.ml:320:28>>*/ match$0[2],
      rx = match$0[1];
      /*<<list.ml:320:32>>*/ return [0, [0, x, rx], [0, y, ry]];
     /*<<list.ml:320:46>>*/ }
@@ -3975,9 +4063,9 @@
      /*<<list.ml:323: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,
+       /*<<list.ml:325:49>>*/ return [0,
               [0, a1, a2],
-               /*<<list.ml:325:36>>*/ combine(l1$0, l2$0)] /*<<list.ml:325:24>>*/ ;
+               /*<<list.ml:325:36>>*/ combine(l1$0, l2$0)] /*<<list.ml:325:49>>*/ ;
      }
     }
     else if(! l2)  /*<<list.ml:324:16>>*/ return 0;
@@ -3987,7 +4075,8 @@
      /*<<list.ml:331:2>>*/ if(! l1)  /*<<list.ml:332:14>>*/ return l2;
     if(! l2)  /*<<list.ml:333:14>>*/ return l1;
     var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-     /*<<list.ml:335:9>>*/ return 0 < caml_call2(cmp, h1, h2)
+     /*<<list.ml:335:18>>*/ return 0
+            <  /*<<list.ml:335:9>>*/ caml_call2(cmp, h1, h2)
             ? [0, h2,  /*<<list.ml:337:17>>*/ merge(cmp, l1, t2)]
             : [0, h1,  /*<<list.ml:336:17>>*/ merge(cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
    }
@@ -4002,7 +4091,8 @@
          x2 = match[1],
          x1 = l[1],
          s =
-            /*<<list.ml:362:19>>*/ 0 < caml_call2(cmp, x1, x2)
+            /*<<list.ml:362:28>>*/ 0
+            <  /*<<list.ml:362:19>>*/ caml_call2(cmp, x1, x2)
             ? [0, x2, [0, x1, 0]]
             : [0, x1, [0, x2, 0]];
          /*<<list.ml:363:8>>*/ return [0, s, tl];
@@ -4020,7 +4110,8 @@
          x2$0 = _v_[1],
          x1$0 = l[1],
          s$0 =
-            /*<<list.ml:366:13>>*/ 0 < caml_call2(cmp, x1$0, x2$0)
+            /*<<list.ml:366:22>>*/ 0
+            <  /*<<list.ml:366:13>>*/ caml_call2(cmp, x1$0, x2$0)
             ? 0
               <  /*<<list.ml:370:18>>*/ caml_call2(cmp, x1$0, x3)
               ? 0
@@ -4040,13 +4131,13 @@
       }
      }
      var
-      n1 = n >> 1,
-      n2 = n - n1 | 0,
+      n1 =  /*<<list.ml:376:8>>*/ n >> 1,
+      n2 =  /*<<list.ml:377:8>>*/ n - n1 | 0,
       match$0 =  /*<<list.ml:378:21>>*/ rev_sort(n1, l),
-      l2$0 = match$0[2],
+      l2$0 =  /*<<list.ml:378:34>>*/ match$0[2],
       s1 = match$0[1],
       match$1 =  /*<<list.ml:379:21>>*/ rev_sort(n2, l2$0),
-      tl$0 = match$1[2],
+      tl$0 =  /*<<list.ml:379:35>>*/ match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
@@ -4055,13 +4146,14 @@
       if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-         /*<<list.ml:355:11>>*/ if(0 < caml_call2(cmp, h1, h2)){
-         var accu$0 =  /*<<list.ml:356:33>>*/ [0, h1, accu];
+         /*<<list.ml:355:20>>*/ if
+         (0 <  /*<<list.ml:355:11>>*/ caml_call2(cmp, h1, h2)){
+         var accu$0 =  /*<<list.ml:356:13>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$0;
          continue;
         }
-        var accu$1 =  /*<<list.ml:357:33>>*/ [0, h2, accu];
+        var accu$1 =  /*<<list.ml:357:13>>*/ [0, h2, accu];
         l2 = t2;
         accu = accu$1;
         continue;
@@ -4070,7 +4162,7 @@
       }
       else
        var _u_ =  /*<<list.ml:352:16>>*/ rev_append(l2, accu);
-       /*<<list.ml:380:8>>*/ return [0, _u_, tl$0];
+       /*<<list.ml:380:31>>*/ return [0, _u_, tl$0];
      }
      /*<<list.ml:380:36>>*/ }
     function rev_sort(n, l){
@@ -4083,7 +4175,8 @@
          x2 = match[1],
          x1 = l[1],
          s =
-            /*<<list.ml:384:19>>*/ 0 < caml_call2(cmp, x1, x2)
+            /*<<list.ml:384:28>>*/ 0
+            <  /*<<list.ml:384:19>>*/ caml_call2(cmp, x1, x2)
             ? [0, x1, [0, x2, 0]]
             : [0, x2, [0, x1, 0]];
          /*<<list.ml:385:8>>*/ return [0, s, tl];
@@ -4101,7 +4194,8 @@
          x2$0 = _t_[1],
          x1$0 = l[1],
          s$0 =
-            /*<<list.ml:388:13>>*/ 0 < caml_call2(cmp, x1$0, x2$0)
+            /*<<list.ml:388:22>>*/ 0
+            <  /*<<list.ml:388:13>>*/ caml_call2(cmp, x1$0, x2$0)
             ? 0
               <  /*<<list.ml:389:15>>*/ caml_call2(cmp, x2$0, x3)
               ? [0, x1$0, [0, x2$0, [0, x3, 0]]]
@@ -4121,13 +4215,13 @@
       }
      }
      var
-      n1 = n >> 1,
-      n2 = n - n1 | 0,
+      n1 =  /*<<list.ml:398:8>>*/ n >> 1,
+      n2 =  /*<<list.ml:399:8>>*/ n - n1 | 0,
       match$0 =  /*<<list.ml:400:21>>*/ sort(n1, l),
-      l2$0 = match$0[2],
+      l2$0 =  /*<<list.ml:400:30>>*/ match$0[2],
       s1 = match$0[1],
       match$1 =  /*<<list.ml:401:21>>*/ sort(n2, l2$0),
-      tl$0 = match$1[2],
+      tl$0 =  /*<<list.ml:401:31>>*/ match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
@@ -4136,13 +4230,14 @@
       if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-         /*<<list.ml:346:11>>*/ if(0 < caml_call2(cmp, h1, h2)){
-         var accu$0 =  /*<<list.ml:348:29>>*/ [0, h2, accu];
+         /*<<list.ml:346:20>>*/ if
+         (0 <  /*<<list.ml:346:11>>*/ caml_call2(cmp, h1, h2)){
+         var accu$0 =  /*<<list.ml:348:13>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$0;
          continue;
         }
-        var accu$1 =  /*<<list.ml:347:29>>*/ [0, h1, accu];
+        var accu$1 =  /*<<list.ml:347:13>>*/ [0, h1, accu];
         l1 = t1;
         accu = accu$1;
         continue;
@@ -4151,7 +4246,7 @@
       }
       else
        var _s_ =  /*<<list.ml:343:16>>*/ rev_append(l2, accu);
-       /*<<list.ml:402:8>>*/ return [0, _s_, tl$0];
+       /*<<list.ml:402:27>>*/ return [0, _s_, tl$0];
      }
      /*<<list.ml:402:32>>*/ }
     var len =  /*<<list.ml:404:12>>*/ length(l);
@@ -4240,13 +4335,13 @@
       }
      }
      var
-      n1 = n >> 1,
-      n2 = n - n1 | 0,
+      n1 =  /*<<list.ml:477:8>>*/ n >> 1,
+      n2 =  /*<<list.ml:478:8>>*/ n - n1 | 0,
       match$0 =  /*<<list.ml:479:21>>*/ rev_sort(n1, l),
-      l2$0 = match$0[2],
+      l2$0 =  /*<<list.ml:479:34>>*/ match$0[2],
       s1 = match$0[1],
       match$1 =  /*<<list.ml:480:21>>*/ rev_sort(n2, l2$0),
-      tl$0 = match$1[2],
+      tl$0 =  /*<<list.ml:480:35>>*/ match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
@@ -4261,19 +4356,19 @@
          h1 = l1[1],
          c =  /*<<list.ml:436:16>>*/ caml_call2(cmp, h1, h2);
          /*<<list.ml:437:8>>*/ if(0 === c){
-         var accu$0 =  /*<<list.ml:437:42>>*/ [0, h1, accu];
+         var accu$0 =  /*<<list.ml:437:22>>*/ [0, h1, accu];
          l1 = t1;
          l2 = t2;
          accu = accu$0;
          continue;
         }
-        if(0 < c){
-         var accu$1 =  /*<<list.ml:439:33>>*/ [0, h1, accu];
+         /*<<list.ml:438:13>>*/ if(0 < c){
+         var accu$1 =  /*<<list.ml:439:13>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$1;
          continue;
         }
-        var accu$2 =  /*<<list.ml:440:33>>*/ [0, h2, accu];
+        var accu$2 =  /*<<list.ml:440:13>>*/ [0, h2, accu];
         l2 = t2;
         accu = accu$2;
         continue;
@@ -4282,7 +4377,7 @@
       }
       else
        var _l_ =  /*<<list.ml:433:16>>*/ rev_append(l2, accu);
-       /*<<list.ml:481:8>>*/ return [0, _l_, tl$0];
+       /*<<list.ml:481:31>>*/ return [0, _l_, tl$0];
      }
      /*<<list.ml:481:36>>*/ }
     function rev_sort(n, l){
@@ -4365,13 +4460,13 @@
       }
      }
      var
-      n1 = n >> 1,
-      n2 = n - n1 | 0,
+      n1 =  /*<<list.ml:517:8>>*/ n >> 1,
+      n2 =  /*<<list.ml:518:8>>*/ n - n1 | 0,
       match$0 =  /*<<list.ml:519:21>>*/ sort(n1, l),
-      l2$0 = match$0[2],
+      l2$0 =  /*<<list.ml:519:30>>*/ match$0[2],
       s1 = match$0[1],
       match$1 =  /*<<list.ml:520:21>>*/ sort(n2, l2$0),
-      tl$0 = match$1[2],
+      tl$0 =  /*<<list.ml:520:31>>*/ match$1[2],
       s2 = match$1[1],
       l1 = s1,
       l2 = s2,
@@ -4386,19 +4481,19 @@
          h1 = l1[1],
          c =  /*<<list.ml:425:16>>*/ caml_call2(cmp, h1, h2);
          /*<<list.ml:426:8>>*/ if(0 === c){
-         var accu$0 =  /*<<list.ml:426:38>>*/ [0, h1, accu];
+         var accu$0 =  /*<<list.ml:426:22>>*/ [0, h1, accu];
          l1 = t1;
          l2 = t2;
          accu = accu$0;
          continue;
         }
-        if(0 <= c){
-         var accu$1 =  /*<<list.ml:429:29>>*/ [0, h2, accu];
+         /*<<list.ml:427:13>>*/ if(0 <= c){
+         var accu$1 =  /*<<list.ml:429:13>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$1;
          continue;
         }
-        var accu$2 =  /*<<list.ml:428:29>>*/ [0, h1, accu];
+        var accu$2 =  /*<<list.ml:428:13>>*/ [0, h1, accu];
         l1 = t1;
         accu = accu$2;
         continue;
@@ -4407,7 +4502,7 @@
       }
       else
        var _e_ =  /*<<list.ml:422:16>>*/ rev_append(l2, accu);
-       /*<<list.ml:521:8>>*/ return [0, _e_, tl$0];
+       /*<<list.ml:521:27>>*/ return [0, _e_, tl$0];
      }
      /*<<list.ml:521:32>>*/ }
     var len =  /*<<list.ml:523:12>>*/ length(l);
@@ -4429,7 +4524,7 @@
     var l$0 = l, n$0 = n;
      /*<<list.ml:535:2>>*/ for(;;){
      if(! l$0)
-      return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1 /*<<list.ml:541:33>>*/ ;
+       /*<<list.ml:537:4>>*/ return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1 /*<<list.ml:541:33>>*/ ;
      var l$1 = l$0[2];
       /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
      var n$1 =  /*<<list.ml:541:6>>*/ n$0 - 1 | 0;
@@ -4451,7 +4546,7 @@
         l1$1 = l1$0[2],
         a1 = l1$0[1],
         _d_ =  /*<<list.ml:558:22>>*/ caml_call2(eq, a1, a2);
-       if(! _d_) return _d_;
+        /*<<list.ml:558:30>>*/ if(! _d_) return _d_;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
@@ -4480,51 +4575,52 @@
     function aux(l, param){
       /*<<list.ml:573:21>>*/ if(! l)  /*<<list.ml:574:12>>*/ return 0;
      var tail = l[2], x = l[1];
-      /*<<list.ml:575:19>>*/ return [0,
+      /*<<list.ml:575:40>>*/ return [0,
              x,
-             function(_c_){ /*<<?>>*/ return aux(tail, _c_);}] /*<<list.ml:575:19>>*/ ;
+             function(_c_){ /*<<?>>*/ return aux(tail, _c_);}] /*<<list.ml:575:40>>*/ ;
      /*<<list.ml:575:41>>*/ }
      /*<<list.ml:577:2>>*/ return function(_b_){
       /*<<?>>*/ return aux(l, _b_);} /*<<list.ml:577:2>>*/ ;
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
     var match =  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
-    if(! match)  /*<<list.ml:581:15>>*/ return 0;
+     /*<<list.ml:580:14>>*/ if(! match)  /*<<list.ml:581:15>>*/ return 0;
     var
      seq$0 = match[2],
      x1 = match[1],
      match$0 =  /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
-    if(! match$0)  /*<<list.ml:584:19>>*/ return [0, x1, 0];
+     /*<<list.ml:583:24>>*/ if(! match$0)
+      /*<<list.ml:584:19>>*/ return [0, x1, 0];
     var
      seq$1 = match$0[2],
      x2 = match$0[1],
-     block =  /*<<list.ml:585:36>>*/ [0, x2, 24029],
+     block =  /*<<list.ml:585:30>>*/ [0, x2, 24029],
      dst = block,
      offset = 1,
      seq$2 = seq$1;
      /*<<list.ml:580:2>>*/ for(;;){
      var match$1 =  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
-     if(match$1){
+      /*<<list.ml:580:14>>*/ if(match$1){
       var
        seq$3 = match$1[2],
        x1$0 = match$1[1],
        match$2 =  /*<<list.ml:583:18>>*/ caml_call1(seq$3, 0);
-      if(match$2){
+       /*<<list.ml:583:24>>*/ if(match$2){
        var
         seq$4 = match$2[2],
         x2$0 = match$2[1],
-        dst$0 =  /*<<list.ml:585:36>>*/ [0, x2$0, 24029];
+        dst$0 =  /*<<list.ml:585:30>>*/ [0, x2$0, 24029];
        dst[1 + offset] = [0, x1$0, dst$0];
        dst = dst$0;
        offset = 1;
        seq$2 = seq$4;
        continue;
       }
-      dst[1 + offset] = [0, x1$0, 0];
+       /*<<list.ml:584:19>>*/ dst[1 + offset] = [0, x1$0, 0];
      }
      else
-      dst[1 + offset] = 0;
-      /*<<list.ml:585:30>>*/ return [0, x1, block];
+       /*<<list.ml:581:15>>*/ dst[1 + offset] = 0;
+      /*<<list.ml:585:52>>*/ return [0, x1, block];
     }
     /*<<list.ml:586:9>>*/ }
    var
@@ -4619,8 +4715,8 @@
      /*<<int.ml:42:18>>*/ return y <= x ? x : y /*<<int.ml:42:41>>*/ ;
    }
    function to_string(x){
-     /*<<int.ml:52:18>>*/ return "" + x;
-    /*<<int.ml:52:35>>*/ }
+     /*<<int.ml:52:18>>*/ return "" + x /*<<int.ml:52:35>>*/ ;
+   }
    function seeded_hash(seed, x){
      /*<<int.ml:56:25>>*/ return caml_hash(10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
    }
@@ -4702,18 +4798,19 @@
    function make(n, c){
     var s =  /*<<bytes.ml:42:10>>*/ caml_create_bytes(n);
      /*<<bytes.ml:43:2>>*/ caml_fill_bytes(s, 0, n, c);
-    return s;
+     /*<<bytes.ml:43:21>>*/ return s;
     /*<<bytes.ml:44:3>>*/ }
    function init(n, f){
     var
      s =  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
      _ap_ =  /*<<bytes.ml:48:2>>*/ n - 1 | 0,
-     _ao_ =  /*<<bytes.ml:47:10>>*/ 0;
-    if(_ap_ >= 0){
+     _ao_ =  /*<<bytes.ml:47:18>>*/ 0;
+     /*<<bytes.ml:48:2>>*/ if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
-      caml_bytes_unsafe_set(s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
-      var _aq_ =  /*<<bytes.ml:48:2>>*/ i + 1 | 0;
+       /*<<bytes.ml:49:24>>*/ caml_bytes_unsafe_set
+       (s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
+      var _aq_ =  /*<<bytes.ml:49:24>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
@@ -4740,35 +4837,37 @@
       "String.rcontains_from / Bytes.rcontains_from";
    function copy(s){
     var
-     len = caml_ml_bytes_length(s),
+     len =  /*<<bytes.ml:56:2>>*/ caml_ml_bytes_length(s),
      r =  /*<<bytes.ml:57:10>>*/ caml_create_bytes(len);
      /*<<bytes.ml:58:2>>*/ caml_blit_bytes(s, 0, r, 0, len);
-    return r;
+     /*<<bytes.ml:58:25>>*/ return r;
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
-     /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:35>>*/ caml_string_of_bytes
-            (copy(b)) /*<<bytes.ml:61:43>>*/ ;
+     /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:43>>*/ caml_string_of_bytes
+            ( /*<<bytes.ml:61:35>>*/ copy(b)) /*<<bytes.ml:61:43>>*/ ;
    }
    function of_string(s){
-     /*<<bytes.ml:62:18>>*/ return  /*<<bytes.ml:61:14>>*/ copy
-            (caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
+     /*<<bytes.ml:62:18>>*/ return copy(caml_bytes_of_string(s)) /*<<bytes.ml:62:43>>*/ ;
    }
    function sub(s, ofs, len){
      /*<<bytes.ml:65:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs){
      var r =  /*<<bytes.ml:68:12>>*/ caml_create_bytes(len);
       /*<<bytes.ml:69:4>>*/ caml_blit_bytes(s, ofs, r, 0, len);
-     return r;
+      /*<<bytes.ml:69:29>>*/ return r;
     }
      /*<<bytes.ml:66:7>>*/ return caml_call1
             (Stdlib[1], cst_String_sub_Bytes_sub) /*<<bytes.ml:71:5>>*/ ;
    }
    function sub_string(b, ofs, len){
-     /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:44>>*/ caml_string_of_bytes
-            (sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
+     /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:59>>*/ caml_string_of_bytes
+            ( /*<<bytes.ml:73:44>>*/ sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
    }
    function symbol(a, b){
-    var c = a + b | 0, _an_ = b < 0 ? 1 : 0, match = c < 0 ? 1 : 0;
+    var
+     c =  /*<<bytes.ml:77:2>>*/ a + b | 0,
+     _an_ =  /*<<bytes.ml:78:2>>*/ b < 0 ? 1 : 0,
+     match = c < 0 ? 1 : 0;
     a:
     {
      if(a < 0){if(_an_ && ! match) break a;} else if(! _an_ && match) break a;
@@ -4780,9 +4879,9 @@
     var
      len =
         /*<<bytes.ml:84:12>>*/ symbol
-        (symbol(caml_ml_bytes_length(s), left), right),
+        (symbol( /*<<bytes.ml:84:2>>*/ caml_ml_bytes_length(s), left), right),
      r =  /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
-    if(0 <= left)
+     /*<<bytes.ml:86:2>>*/ if(0 <= left)
      var dstoff = left, srcoff = 0;
     else
      var dstoff = 0, srcoff = - left | 0;
@@ -4790,16 +4889,17 @@
      cpylen =
         /*<<bytes.ml:87:15>>*/ caml_call2
         (Stdlib_Int[10],
-         caml_ml_bytes_length(s) - srcoff | 0,
+          /*<<bytes.ml:87:2>>*/ caml_ml_bytes_length(s) - srcoff | 0,
          len - dstoff | 0);
-    if(0 < cpylen)
+     /*<<bytes.ml:88:2>>*/ if(0 < cpylen)
       /*<<bytes.ml:88:21>>*/ caml_blit_bytes(s, srcoff, r, dstoff, cpylen);
     return r;
     /*<<bytes.ml:89:3>>*/ }
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<bytes.ml:94:7>>*/ return caml_fill_bytes(s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
+      /*<<bytes.ml:94:30>>*/ return  /*<<bytes.ml:94:7>>*/ caml_fill_bytes
+             (s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
      /*<<bytes.ml:93:7>>*/ return caml_call1
             (Stdlib[1], cst_String_fill_Bytes_fill) /*<<bytes.ml:94:30>>*/ ;
    }
@@ -4811,7 +4911,8 @@
        &&
         (caml_ml_bytes_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
-      /*<<bytes.ml:100:7>>*/ return caml_blit_bytes(s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
+      /*<<bytes.ml:100:38>>*/ return  /*<<bytes.ml:100:7>>*/ caml_blit_bytes
+             (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
      /*<<bytes.ml:99:7>>*/ return caml_call1(Stdlib[1], cst_Bytes_blit) /*<<bytes.ml:100:38>>*/ ;
    }
    function blit_string(s1, ofs1, s2, ofs2, len){
@@ -4822,20 +4923,20 @@
        &&
         (runtime.caml_ml_string_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
-      /*<<bytes.ml:106:7>>*/ return runtime.caml_blit_string
+      /*<<bytes.ml:106:45>>*/ return  /*<<bytes.ml:106:7>>*/ runtime.caml_blit_string
              (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:106:45>>*/ ;
      /*<<bytes.ml:105:7>>*/ return caml_call1
             (Stdlib[1], cst_String_blit_Bytes_blit_str) /*<<bytes.ml:106:45>>*/ ;
    }
    function iter(f, a){
     var
-     _al_ = caml_ml_bytes_length(a) - 1 | 0,
-     _ak_ =  /*<<bytes.ml:110:2>>*/ 0;
+     _al_ =  /*<<bytes.ml:110:2>>*/ caml_ml_bytes_length(a) - 1 | 0,
+     _ak_ = 0;
     if(_al_ >= 0){
      var i = _ak_;
      for(;;){
        /*<<bytes.ml:110:31>>*/ caml_call1(f, caml_bytes_unsafe_get(a, i));
-      var _am_ = i + 1 | 0;
+      var _am_ =  /*<<bytes.ml:110:48>>*/ i + 1 | 0;
       if(_al_ === i) break;
       i = _am_;
      }
@@ -4844,13 +4945,13 @@
     /*<<bytes.ml:110:53>>*/ }
    function iteri(f, a){
     var
-     _ai_ = caml_ml_bytes_length(a) - 1 | 0,
-     _ah_ =  /*<<bytes.ml:114:2>>*/ 0;
+     _ai_ =  /*<<bytes.ml:114:2>>*/ caml_ml_bytes_length(a) - 1 | 0,
+     _ah_ = 0;
     if(_ai_ >= 0){
      var i = _ah_;
      for(;;){
        /*<<bytes.ml:114:31>>*/ caml_call2(f, i, caml_bytes_unsafe_get(a, i));
-      var _aj_ = i + 1 | 0;
+      var _aj_ =  /*<<bytes.ml:114:51>>*/ i + 1 | 0;
       if(_ai_ === i) break;
       i = _aj_;
      }
@@ -4858,22 +4959,25 @@
     return 0;
     /*<<bytes.ml:114:56>>*/ }
    function concat(sep, l){
-     /*<<bytes.ml:132:11>>*/ if(! l)  /*<<bytes.ml:53:12>>*/ return empty;
-    var seplen = caml_ml_bytes_length(sep);
+     /*<<bytes.ml:132:11>>*/ if(! l)  /*<<bytes.ml:133:10>>*/ return empty;
+    var seplen =  /*<<bytes.ml:134:9>>*/ caml_ml_bytes_length(sep);
     a:
     {
      b:
      {
-      var acc = 0, param = l, pos$1 = 0;
+      var acc = 0, param = l, pos$1 =  /*<<bytes.ml:135:10>>*/ 0;
        /*<<bytes.ml:118:20>>*/ for(;;){
        if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
        var
         tl = param[2],
-        x = (caml_ml_bytes_length(hd) + seplen | 0) + acc | 0,
+        x =
+           /*<<bytes.ml:121:16>>*/ (caml_ml_bytes_length(hd) + seplen | 0)
+          + acc
+          | 0,
         acc$0 =
-          acc <= x
+           /*<<bytes.ml:116:26>>*/ acc <= x
            ? x
            :  /*<<bytes.ml:116:48>>*/ caml_call1(Stdlib[1], cst_Bytes_concat);
        acc = acc$0;
@@ -4882,7 +4986,7 @@
       var _ag_ = acc;
       break a;
      }
-     var _ag_ = caml_ml_bytes_length(hd) + acc | 0;
+     var _ag_ =  /*<<bytes.ml:120:16>>*/ caml_ml_bytes_length(hd) + acc | 0;
     }
     var
      dst =  /*<<bytes.ml:136:12>>*/ caml_create_bytes(_ag_),
@@ -4894,26 +4998,34 @@
      if(! param$0[2]){
        /*<<bytes.ml:126:4>>*/ caml_blit_bytes
        (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
-      return dst;
+       /*<<bytes.ml:126:40>>*/ return dst;
      }
      var tl$0 = param$0[2];
       /*<<bytes.ml:128:4>>*/ caml_blit_bytes
       (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
       /*<<bytes.ml:129:4>>*/ caml_blit_bytes
-      (sep, 0, dst, pos + caml_ml_bytes_length(hd$0) | 0, seplen);
-     var pos$0 = (pos + caml_ml_bytes_length(hd$0) | 0) + seplen | 0;
+      (sep,
+       0,
+       dst,
+       pos +  /*<<bytes.ml:128:40>>*/ caml_ml_bytes_length(hd$0) | 0,
+       seplen);
+     var
+      pos$0 =
+         /*<<bytes.ml:129:50>>*/ (pos + caml_ml_bytes_length(hd$0) | 0)
+        + seplen
+        | 0;
      pos = pos$0;
      param$0 = tl$0;
     }
     /*<<bytes.ml:137:26>>*/ }
    function cat(s1, s2){
     var
-     l1 = caml_ml_bytes_length(s1),
+     l1 =  /*<<bytes.ml:140:2>>*/ caml_ml_bytes_length(s1),
      l2 =  /*<<bytes.ml:141:2>>*/ caml_ml_bytes_length(s2),
      r =  /*<<bytes.ml:142:10>>*/ caml_create_bytes(l1 + l2 | 0);
      /*<<bytes.ml:143:2>>*/ caml_blit_bytes(s1, 0, r, 0, l1);
      /*<<bytes.ml:144:2>>*/ caml_blit_bytes(s2, 0, r, l1, l2);
-    return r;
+     /*<<bytes.ml:144:26>>*/ return r;
     /*<<bytes.ml:145:3>>*/ }
    function is_space(param){
     var _af_ =  /*<<bytes.ml:151:15>>*/ param - 9 | 0;
@@ -4925,32 +5037,35 @@
      /*<<bytes.ml:153:9>>*/ return 0;
     /*<<bytes.ml:153:14>>*/ }
    function trim(s){
-    var len = caml_ml_bytes_length(s), i =  /*<<bytes.ml:157:10>>*/ [0, 0];
+    var
+     len =  /*<<bytes.ml:156:2>>*/ caml_ml_bytes_length(s),
+     i =  /*<<bytes.ml:157:2>>*/ [0, 0];
     for(;;){
      if(i[1] >= len) break;
-      /*<<bytes.ml:158:20>>*/ if(! is_space(caml_bytes_unsafe_get(s, i[1])))
+      /*<<bytes.ml:158:46>>*/ if
+      (!  /*<<bytes.ml:158:20>>*/ is_space(caml_bytes_unsafe_get(s, i[1])))
       break;
-     i[1]++;
+      /*<<bytes.ml:159:4>>*/ i[1]++;
     }
-    var j =  /*<<bytes.ml:161:10>>*/ [0, len - 1 | 0];
+    var j =  /*<<bytes.ml:161:2>>*/ [0, len - 1 | 0];
     for(;;){
      if
       (i[1] <= j[1]
-       &&  /*<<bytes.ml:162:20>>*/ is_space(caml_bytes_unsafe_get(s, j[1]))){j[1]--; continue;}
-     return i[1] <= j[1]
-             ?  /*<<bytes.ml:64:8>>*/ sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0)
+       &&  /*<<bytes.ml:162:20>>*/ is_space(caml_bytes_unsafe_get(s, j[1]))){ /*<<bytes.ml:163:4>>*/ j[1]--; continue;}
+      /*<<bytes.ml:165:2>>*/ return i[1] <= j[1]
+             ?  /*<<bytes.ml:166:4>>*/ sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0)
              : empty /*<<bytes.ml:168:9>>*/ ;
     }
    }
    function unsafe_escape(s){
     var
-     n =  /*<<bytes.ml:184:10>>*/ [0, 0],
-     ___ = caml_ml_bytes_length(s) - 1 | 0,
-     _Z_ = 0;
-    if(___ >= 0){
+     n =  /*<<bytes.ml:184:2>>*/ [0, 0],
+     ___ =  /*<<bytes.ml:185:2>>*/ caml_ml_bytes_length(s) - 1 | 0,
+     _Z_ =  /*<<bytes.ml:184:2>>*/ 0;
+     /*<<bytes.ml:185:2>>*/ if(___ >= 0){
      var i$0 = _Z_;
      for(;;){
-      var match = caml_bytes_unsafe_get(s, i$0);
+      var match =  /*<<bytes.ml:186:4>>*/ caml_bytes_unsafe_get(s, i$0);
       a:
       {
        b:
@@ -4977,21 +5092,22 @@
        var _ad_ = 2;
       }
       n[1] = n[1] + _ad_ | 0;
-      var _ae_ =  /*<<bytes.ml:185:2>>*/ i$0 + 1 | 0;
+      var _ae_ = i$0 + 1 | 0;
       if(___ === i$0) break;
       i$0 = _ae_;
      }
     }
-    if(n[1] === caml_ml_bytes_length(s))  /*<<bytes.ml:192:24>>*/ return s;
+     /*<<bytes.ml:192:2>>*/ if(n[1] === caml_ml_bytes_length(s))
+      /*<<bytes.ml:192:24>>*/ return s;
     var s$0 =  /*<<bytes.ml:194:13>>*/ caml_create_bytes(n[1]);
-    n[1] = 0;
+     /*<<bytes.ml:195:4>>*/ n[1] = 0;
     var
-     _aa_ = caml_ml_bytes_length(s) - 1 | 0,
-     _$_ =  /*<<bytes.ml:196:4>>*/ 0;
+     _aa_ =  /*<<bytes.ml:196:4>>*/ caml_ml_bytes_length(s) - 1 | 0,
+     _$_ = 0;
     if(_aa_ >= 0){
      var i = _$_;
      for(;;){
-      var c = caml_bytes_unsafe_get(s, i);
+      var c =  /*<<bytes.ml:197:6>>*/ caml_bytes_unsafe_get(s, i);
       a:
       {
        b:
@@ -5006,47 +5122,50 @@
            if(14 <= c) break c;
            switch(c){
              case 8:
-              caml_bytes_unsafe_set(s$0, n[1], 92);
-              n[1]++;
-              caml_bytes_unsafe_set(s$0, n[1], 98);
+               /*<<bytes.ml:207:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
+               /*<<bytes.ml:207:33>>*/ n[1]++;
+               /*<<bytes.ml:207:41>>*/ caml_bytes_unsafe_set(s$0, n[1], 98);
               break a;
              case 9:
-              caml_bytes_unsafe_set(s$0, n[1], 92);
-              n[1]++;
-              caml_bytes_unsafe_set(s$0, n[1], 116);
+               /*<<bytes.ml:203:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
+               /*<<bytes.ml:203:33>>*/ n[1]++;
+               /*<<bytes.ml:203:41>>*/ caml_bytes_unsafe_set(s$0, n[1], 116);
               break a;
              case 10:
-              caml_bytes_unsafe_set(s$0, n[1], 92);
-              n[1]++;
-              caml_bytes_unsafe_set(s$0, n[1], 110);
+               /*<<bytes.ml:201:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
+               /*<<bytes.ml:201:33>>*/ n[1]++;
+               /*<<bytes.ml:201:41>>*/ caml_bytes_unsafe_set(s$0, n[1], 110);
               break a;
              case 13:
-              caml_bytes_unsafe_set(s$0, n[1], 92);
-              n[1]++;
-              caml_bytes_unsafe_set(s$0, n[1], 114);
+               /*<<bytes.ml:205:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
+               /*<<bytes.ml:205:33>>*/ n[1]++;
+               /*<<bytes.ml:205:41>>*/ caml_bytes_unsafe_set(s$0, n[1], 114);
               break a;
              default: break c;
            }
           }
           if(34 > c) break b;
          }
-         caml_bytes_unsafe_set(s$0, n[1], 92);
-         n[1]++;
-         caml_bytes_unsafe_set(s$0, n[1], c);
+          /*<<bytes.ml:199:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
+          /*<<bytes.ml:199:33>>*/ n[1]++;
+          /*<<bytes.ml:199:41>>*/ caml_bytes_unsafe_set(s$0, n[1], c);
          break a;
         }
-        caml_bytes_unsafe_set(s$0, n[1], 92);
-        n[1]++;
-        caml_bytes_unsafe_set(s$0, n[1], 48 + (c / 100 | 0) | 0);
-        n[1]++;
-        caml_bytes_unsafe_set(s$0, n[1], 48 + ((c / 10 | 0) % 10 | 0) | 0);
-        n[1]++;
-        caml_bytes_unsafe_set(s$0, n[1], 48 + (c % 10 | 0) | 0);
+         /*<<bytes.ml:211:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
+         /*<<bytes.ml:212:10>>*/ n[1]++;
+         /*<<bytes.ml:213:10>>*/ caml_bytes_unsafe_set
+         (s$0, n[1], 48 + (c / 100 | 0) | 0);
+         /*<<bytes.ml:214:10>>*/ n[1]++;
+         /*<<bytes.ml:215:10>>*/ caml_bytes_unsafe_set
+         (s$0, n[1], 48 + ((c / 10 | 0) % 10 | 0) | 0);
+         /*<<bytes.ml:216:10>>*/ n[1]++;
+         /*<<bytes.ml:217:10>>*/ caml_bytes_unsafe_set
+         (s$0, n[1], 48 + (c % 10 | 0) | 0);
         break a;
        }
-       caml_bytes_unsafe_set(s$0, n[1], c);
+        /*<<bytes.ml:208:29>>*/ caml_bytes_unsafe_set(s$0, n[1], c);
       }
-      n[1]++;
+       /*<<bytes.ml:219:6>>*/ n[1]++;
       var _ab_ = i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
@@ -5059,20 +5178,21 @@
      /*<<bytes.ml:228:2>>*/ return unsafe_escape(b$0) /*<<bytes.ml:228:17>>*/ ;
    }
    function map(f, s){
-    var l = caml_ml_bytes_length(s);
+    var l =  /*<<bytes.ml:231:2>>*/ caml_ml_bytes_length(s);
      /*<<bytes.ml:232:2>>*/ if(0 === l)  /*<<bytes.ml:232:16>>*/ return s;
     var
      r =  /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
      _X_ =  /*<<bytes.ml:234:4>>*/ l - 1 | 0,
-     _W_ =  /*<<bytes.ml:233:12>>*/ 0;
-    if(_X_ >= 0){
+     _W_ =  /*<<bytes.ml:233:20>>*/ 0;
+     /*<<bytes.ml:234:4>>*/ if(_X_ >= 0){
      var i = _W_;
      for(;;){
-      caml_bytes_unsafe_set
+       /*<<bytes.ml:234:61>>*/ caml_bytes_unsafe_set
        (r,
         i,
-         /*<<bytes.ml:234:41>>*/ caml_call1(f, caml_bytes_unsafe_get(s, i)));
-      var _Y_ =  /*<<bytes.ml:234:4>>*/ i + 1 | 0;
+         /*<<bytes.ml:234:41>>*/ caml_call1
+         (f,  /*<<bytes.ml:234:26>>*/ caml_bytes_unsafe_get(s, i)));
+      var _Y_ =  /*<<bytes.ml:234:61>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
@@ -5080,20 +5200,21 @@
      /*<<bytes.ml:235:4>>*/ return r;
     /*<<bytes.ml:236:5>>*/ }
    function mapi(f, s){
-    var l = caml_ml_bytes_length(s);
+    var l =  /*<<bytes.ml:239:2>>*/ caml_ml_bytes_length(s);
      /*<<bytes.ml:240:2>>*/ if(0 === l)  /*<<bytes.ml:240:16>>*/ return s;
     var
      r =  /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
      _U_ =  /*<<bytes.ml:242:4>>*/ l - 1 | 0,
-     _T_ =  /*<<bytes.ml:241:12>>*/ 0;
-    if(_U_ >= 0){
+     _T_ =  /*<<bytes.ml:241:20>>*/ 0;
+     /*<<bytes.ml:242:4>>*/ if(_U_ >= 0){
      var i = _T_;
      for(;;){
-      caml_bytes_unsafe_set
+       /*<<bytes.ml:242:63>>*/ caml_bytes_unsafe_set
        (r,
         i,
-         /*<<bytes.ml:242:41>>*/ caml_call2(f, i, caml_bytes_unsafe_get(s, i)));
-      var _V_ =  /*<<bytes.ml:242:4>>*/ i + 1 | 0;
+         /*<<bytes.ml:242:41>>*/ caml_call2
+         (f, i,  /*<<bytes.ml:242:26>>*/ caml_bytes_unsafe_get(s, i)));
+      var _V_ =  /*<<bytes.ml:242:63>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -5102,54 +5223,59 @@
     /*<<bytes.ml:244:5>>*/ }
    function fold_left(f, x, a){
     var
-     r =  /*<<bytes.ml:247:10>>*/ [0, x],
-     _R_ = caml_ml_bytes_length(a) - 1 | 0,
-     _Q_ = 0;
-    if(_R_ >= 0){
+     r =  /*<<bytes.ml:247:2>>*/ [0, x],
+     _R_ =  /*<<bytes.ml:248:2>>*/ caml_ml_bytes_length(a) - 1 | 0,
+     _Q_ =  /*<<bytes.ml:247:2>>*/ 0;
+     /*<<bytes.ml:248:2>>*/ if(_R_ >= 0){
      var i = _Q_;
      for(;;){
-      r[1] =
+       /*<<bytes.ml:249:30>>*/ r[1] =
         /*<<bytes.ml:249:9>>*/ caml_call2
-        (f, r[1], caml_bytes_unsafe_get(a, i));
-      var _S_ =  /*<<bytes.ml:248:2>>*/ i + 1 | 0;
+        (f, r[1],  /*<<bytes.ml:249:4>>*/ caml_bytes_unsafe_get(a, i));
+      var _S_ =  /*<<bytes.ml:249:30>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
     }
-    return r[1];
+     /*<<bytes.ml:251:2>>*/ return r[1];
     /*<<bytes.ml:251:4>>*/ }
    function fold_right(f, a, x){
     var
-     r =  /*<<bytes.ml:254:10>>*/ [0, x],
+     r =  /*<<bytes.ml:254:2>>*/ [0, x],
      _O_ =  /*<<bytes.ml:255:2>>*/ caml_ml_bytes_length(a) - 1 | 0;
     if(_O_ >= 0){
      var i = _O_;
      for(;;){
-      r[1] =
+       /*<<bytes.ml:256:30>>*/ r[1] =
         /*<<bytes.ml:256:9>>*/ caml_call2
-        (f, caml_bytes_unsafe_get(a, i), r[1]);
-      var _P_ =  /*<<bytes.ml:255:2>>*/ i - 1 | 0;
+        (f,  /*<<bytes.ml:256:4>>*/ caml_bytes_unsafe_get(a, i), r[1]);
+      var _P_ =  /*<<bytes.ml:256:30>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _P_;
      }
     }
-    return r[1];
+     /*<<bytes.ml:258:2>>*/ return r[1];
     /*<<bytes.ml:258:4>>*/ }
    function exists(p, s){
-    var n = caml_ml_bytes_length(s), i = 0;
+    var n =  /*<<bytes.ml:261:2>>*/ caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:263:4>>*/ for(;;){
      if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
-      /*<<bytes.ml:264:12>>*/ if(caml_call1(p, caml_bytes_unsafe_get(s, i)))
+      /*<<bytes.ml:264:30>>*/ if
+      ( /*<<bytes.ml:264:12>>*/ caml_call1
+        (p,  /*<<bytes.ml:264:9>>*/ caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:264:36>>*/ return 1;
      var i$0 =  /*<<bytes.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<bytes.ml:266:8>>*/ }
    function for_all(p, s){
-    var n = caml_ml_bytes_length(s), i = 0;
+    var n =  /*<<bytes.ml:269:2>>*/ caml_ml_bytes_length(s), i = 0;
      /*<<bytes.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
-      /*<<bytes.ml:272:12>>*/ if(! caml_call1(p, caml_bytes_unsafe_get(s, i)))
+      /*<<bytes.ml:272:30>>*/ if
+      (!
+        /*<<bytes.ml:272:12>>*/ caml_call1
+        (p,  /*<<bytes.ml:272:9>>*/ caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:273:9>>*/ return 0;
      var i$0 =  /*<<bytes.ml:272:36>>*/ i + 1 | 0;
      i = i$0;
@@ -5165,10 +5291,11 @@
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
       /*<<bytes.ml:280:23>>*/ return s;
     var r =  /*<<bytes.ml:281:12>>*/ copy(s);
-    caml_bytes_unsafe_set
+     /*<<bytes.ml:282:38>>*/ caml_bytes_unsafe_set
      (r,
       0,
-       /*<<bytes.ml:282:19>>*/ caml_call1(f, caml_bytes_unsafe_get(s, 0)));
+       /*<<bytes.ml:282:19>>*/ caml_call1
+       (f,  /*<<bytes.ml:282:4>>*/ caml_bytes_unsafe_get(s, 0)));
      /*<<bytes.ml:283:4>>*/ return r;
     /*<<bytes.ml:284:5>>*/ }
    function capitalize_ascii(s){
@@ -5179,14 +5306,15 @@
    }
    function starts_with(prefix, s){
     var
-     len_s = caml_ml_bytes_length(s),
+     len_s =  /*<<bytes.ml:291:2>>*/ caml_ml_bytes_length(s),
      len_pre = caml_ml_bytes_length(prefix),
-     _N_ = len_pre <= len_s ? 1 : 0;
+     _N_ =  /*<<bytes.ml:297:5>>*/ len_pre <= len_s ? 1 : 0;
     if(! _N_) return _N_;
     var i = 0;
      /*<<bytes.ml:294:4>>*/ for(;;){
      if(i === len_pre)  /*<<bytes.ml:294:24>>*/ return 1;
-     if(caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
+      /*<<bytes.ml:295:9>>*/ if
+      (caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
        /*<<bytes.ml:295:55>>*/ return 0;
      var i$0 =  /*<<bytes.ml:296:9>>*/ i + 1 | 0;
      i = i$0;
@@ -5194,15 +5322,15 @@
     /*<<bytes.ml:297:30>>*/ }
    function ends_with(suffix, s){
     var
-     len_s = caml_ml_bytes_length(s),
+     len_s =  /*<<bytes.ml:301:2>>*/ caml_ml_bytes_length(s),
      len_suf = caml_ml_bytes_length(suffix),
-     diff = len_s - len_suf | 0,
-     _M_ = 0 <= diff ? 1 : 0;
+     diff =  /*<<bytes.ml:303:2>>*/ len_s - len_suf | 0,
+     _M_ =  /*<<bytes.ml:308:5>>*/ 0 <= diff ? 1 : 0;
     if(! _M_) return _M_;
     var i = 0;
      /*<<bytes.ml:305:4>>*/ for(;;){
      if(i === len_suf)  /*<<bytes.ml:305:24>>*/ return 1;
-     if
+      /*<<bytes.ml:306:9>>*/ if
       (caml_bytes_unsafe_get(s, diff + i | 0)
        !== caml_bytes_unsafe_get(suffix, i))
        /*<<bytes.ml:306:64>>*/ return 0;
@@ -5215,9 +5343,9 @@
      /*<<bytes.ml:312:2>>*/ for(;;){
      if(lim <= i$0)
        /*<<bytes.ml:312:19>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-     if(caml_bytes_unsafe_get(s, i$0) === c)
+      /*<<bytes.ml:313:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:313:29>>*/ return i$0;
-     var i$1 = i$0 + 1 | 0;
+     var i$1 =  /*<<bytes.ml:313:36>>*/ i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:313:61>>*/ }
@@ -5229,9 +5357,9 @@
     var i$0 = i;
      /*<<bytes.ml:320:2>>*/ for(;;){
      if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
-     if(caml_bytes_unsafe_get(s, i$0) === c)
+      /*<<bytes.ml:321:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:321:29>>*/ return [0, i$0];
-     var i$1 = i$0 + 1 | 0;
+     var i$1 =  /*<<bytes.ml:321:41>>*/ i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:321:70>>*/ }
@@ -5240,14 +5368,14 @@
             (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:324:50>>*/ ;
    }
    function index_from(s, i, c){
-    var l = caml_ml_bytes_length(s);
+    var l =  /*<<bytes.ml:328:2>>*/ caml_ml_bytes_length(s);
      /*<<bytes.ml:329:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:330:2>>*/ return index_rec(s, l, i, c) /*<<bytes.ml:330:19>>*/ ;
      /*<<bytes.ml:329:25>>*/ return caml_call1
             (Stdlib[1], cst_String_index_from_Bytes_in) /*<<bytes.ml:330:19>>*/ ;
    }
    function index_from_opt(s, i, c){
-    var l = caml_ml_bytes_length(s);
+    var l =  /*<<bytes.ml:334:2>>*/ caml_ml_bytes_length(s);
      /*<<bytes.ml:335:2>>*/ if(0 <= i && l >= i)
       /*<<bytes.ml:338:4>>*/ return index_rec_opt(s, l, i, c) /*<<bytes.ml:338:25>>*/ ;
      /*<<bytes.ml:336:4>>*/ return caml_call1
@@ -5258,9 +5386,9 @@
      /*<<bytes.ml:342:2>>*/ for(;;){
      if(0 > i$0)
        /*<<bytes.ml:342:16>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-     if(caml_bytes_unsafe_get(s, i$0) === c)
+      /*<<bytes.ml:343:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:343:29>>*/ return i$0;
-     var i$1 = i$0 - 1 | 0;
+     var i$1 =  /*<<bytes.ml:343:36>>*/ i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:343:58>>*/ }
@@ -5278,9 +5406,9 @@
     var i$0 = i;
      /*<<bytes.ml:357:2>>*/ for(;;){
      if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
-     if(caml_bytes_unsafe_get(s, i$0) === c)
+      /*<<bytes.ml:358:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:358:29>>*/ return [0, i$0];
-     var i$1 = i$0 - 1 | 0;
+     var i$1 =  /*<<bytes.ml:358:41>>*/ i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<bytes.ml:358:67>>*/ }
@@ -5295,9 +5423,9 @@
             (Stdlib[1], cst_String_rindex_from_opt_Byt) /*<<bytes.ml:368:24>>*/ ;
    }
    function contains_from(s, i, c){
-    var l = caml_ml_bytes_length(s);
+    var l =  /*<<bytes.ml:373:2>>*/ caml_ml_bytes_length(s);
      /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
-      /*<<bytes.ml:377:4>>*/ try{
+     try{
        /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
       var _K_ =  /*<<bytes.ml:377:36>>*/ 1;
       return _K_;
@@ -5315,7 +5443,7 @@
    }
    function rcontains_from(s, i, c){
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
-      /*<<bytes.ml:388:4>>*/ try{
+     try{
        /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
       var _H_ =  /*<<bytes.ml:388:35>>*/ 1;
       return _H_;
@@ -5329,42 +5457,44 @@
             (Stdlib[1], cst_String_rcontains_from_Byte) /*<<bytes.ml:388:63>>*/ ;
    }
    var
-    compare = runtime.caml_bytes_compare,
+    compare =  /*<<bytes.ml:53:20>>*/ runtime.caml_bytes_compare,
     cst_Bytes_of_seq_cannot_grow_b = "Bytes.of_seq: cannot grow bytes";
    function split_on_char(sep, s){
     var
-     r =  /*<<bytes.ml:398:10>>*/ [0, 0],
-     j =
-        /*<<bytes.ml:399:10>>*/ [0,
-         /*<<bytes.ml:399:2>>*/ caml_ml_bytes_length(s)],
+     r =  /*<<bytes.ml:398:2>>*/ [0, 0],
+     j =  /*<<bytes.ml:399:2>>*/ [0, caml_ml_bytes_length(s)],
      _C_ =  /*<<bytes.ml:400:2>>*/ caml_ml_bytes_length(s) - 1 | 0;
     if(_C_ >= 0){
      var i = _C_;
      for(;;){
-      if(caml_bytes_unsafe_get(s, i) === sep){
-       var _E_ = r[1];
-       r[1] =
+       /*<<bytes.ml:401:4>>*/ if(caml_bytes_unsafe_get(s, i) === sep){
+       var _E_ =  /*<<bytes.ml:401:33>>*/ r[1];
+        /*<<bytes.ml:402:37>>*/ r[1] =
         [0,
           /*<<bytes.ml:402:11>>*/ sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
          _E_];
-       j[1] = i;
+        /*<<bytes.ml:403:6>>*/ j[1] = i;
       }
-      var _F_ =  /*<<bytes.ml:400:2>>*/ i - 1 | 0;
+      var _F_ = i - 1 | 0;
       if(0 === i) break;
       i = _F_;
      }
     }
-    var _D_ = r[1];
-     /*<<bytes.ml:406:2>>*/ return [0, sub(s, 0, j[1]), _D_];
+    var _D_ =  /*<<bytes.ml:406:2>>*/ r[1];
+     /*<<bytes.ml:406:12>>*/ return [0,
+             /*<<bytes.ml:406:2>>*/ sub(s, 0, j[1]),
+            _D_] /*<<bytes.ml:406:12>>*/ ;
     /*<<bytes.ml:406:18>>*/ }
    function to_seq(s){
     function aux(i, param){
       /*<<bytes.ml:412:4>>*/ if(i === caml_ml_bytes_length(s))
        /*<<bytes.ml:412:25>>*/ return 0;
-     var x =  /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i), _A_ = i + 1 | 0;
-      /*<<bytes.ml:415:6>>*/ return [0,
+     var
+      x =  /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i),
+      _A_ =  /*<<bytes.ml:415:6>>*/ i + 1 | 0;
+      /*<<bytes.ml:415:28>>*/ return [0,
              x,
-             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:6>>*/ ;
+             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:28>>*/ ;
      /*<<bytes.ml:415:29>>*/ }
     var _y_ =  /*<<bytes.ml:417:2>>*/ 0;
     return function(_z_){
@@ -5374,10 +5504,12 @@
     function aux(i, param){
       /*<<bytes.ml:421:4>>*/ if(i === caml_ml_bytes_length(s))
        /*<<bytes.ml:421:25>>*/ return 0;
-     var x =  /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i), _w_ = i + 1 | 0;
-      /*<<bytes.ml:424:6>>*/ return [0,
+     var
+      x =  /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i),
+      _w_ =  /*<<bytes.ml:424:6>>*/ i + 1 | 0;
+      /*<<bytes.ml:424:32>>*/ return [0,
              [0, i, x],
-             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:6>>*/ ;
+             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:32>>*/ ;
      /*<<bytes.ml:424:33>>*/ }
     var _u_ =  /*<<bytes.ml:426:2>>*/ 0;
     return function(_v_){
@@ -5385,8 +5517,8 @@
     /*<<bytes.ml:426:7>>*/ }
    function of_seq(i){
     var
-     n =  /*<<bytes.ml:429:10>>*/ [0, 0],
-     buf =  /*<<bytes.ml:430:12>>*/ [0,  /*<<bytes.ml:430:16>>*/ make(256, 0)];
+     n =  /*<<bytes.ml:429:2>>*/ [0, 0],
+     buf =  /*<<bytes.ml:430:33>>*/ [0,  /*<<bytes.ml:430:16>>*/ make(256, 0)];
      /*<<bytes.ml:439:2>>*/ caml_call2
      (Stdlib_Seq[4],
       function(c){
@@ -5395,65 +5527,81 @@
          new_len =
             /*<<bytes.ml:433:18>>*/ caml_call2
             (Stdlib_Int[10],
-             2 * caml_ml_bytes_length(buf[1]) | 0,
+             2 *  /*<<bytes.ml:433:4>>*/ caml_ml_bytes_length(buf[1]) | 0,
              Stdlib_Sys[12]);
-        if(caml_ml_bytes_length(buf[1]) === new_len)
+         /*<<bytes.ml:434:4>>*/ if(caml_ml_bytes_length(buf[1]) === new_len)
           /*<<bytes.ml:434:34>>*/ caml_call1
           (Stdlib[2], cst_Bytes_of_seq_cannot_grow_b);
         var new_buf =  /*<<bytes.ml:435:18>>*/ make(new_len, 0);
          /*<<bytes.ml:436:4>>*/ blit(buf[1], 0, new_buf, 0, n[1]);
-        buf[1] = new_buf;
+         /*<<bytes.ml:436:28>>*/ buf[1] = new_buf;
        }
         /*<<bytes.ml:442:7>>*/ caml_bytes_set(buf[1], n[1], c);
-       n[1]++;
+        /*<<bytes.ml:442:20>>*/ n[1]++;
        return 0;
        /*<<bytes.ml:443:13>>*/ },
       i);
-     /*<<bytes.ml:64:8>>*/ return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
+     /*<<bytes.ml:444:5>>*/ return sub(buf[1], 0, n[1]) /*<<bytes.ml:445:15>>*/ ;
    }
    function unsafe_get_uint16_le(b, i){
      /*<<bytes.ml:470:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:471:14>>*/ caml_bswap16(caml_bytes_get16(b, i))
+            ?  /*<<bytes.ml:471:40>>*/ caml_bswap16
+              ( /*<<bytes.ml:471:14>>*/ caml_bytes_get16(b, i))
             :  /*<<bytes.ml:472:7>>*/ caml_bytes_get16(b, i) /*<<bytes.ml:472:31>>*/ ;
    }
    function unsafe_get_uint16_be(b, i){
      /*<<bytes.ml:475:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:476:7>>*/ caml_bytes_get16(b, i)
-            :  /*<<bytes.ml:477:14>>*/ caml_bswap16(caml_bytes_get16(b, i)) /*<<bytes.ml:477:40>>*/ ;
+            :  /*<<bytes.ml:477:40>>*/ caml_bswap16
+              ( /*<<bytes.ml:477:14>>*/ caml_bytes_get16(b, i)) /*<<bytes.ml:477:40>>*/ ;
    }
    function get_int8(b, i){
     var
      _s_ =  /*<<bytes.ml:480:2>>*/ Stdlib_Sys[10] - 8 | 0,
      _t_ = Stdlib_Sys[10] - 8 | 0;
-    return  /*<<bytes.ml:480:3>>*/ caml_bytes_get(b, i) << _t_ >> _s_;
+     /*<<bytes.ml:480:18>>*/ return  /*<<bytes.ml:480:3>>*/ caml_bytes_get
+            (b, i)
+           << _t_
+           >> _s_ /*<<bytes.ml:480:18>>*/ ;
     /*<<bytes.ml:480:65>>*/ }
    function get_uint16_le(b, i){
      /*<<bytes.ml:483:2>>*/ return Stdlib_Sys[11]
-            ?  /*<<bytes.ml:483:32>>*/ caml_bswap16(caml_bytes_get16(b, i))
+            ?  /*<<bytes.ml:483:51>>*/ caml_bswap16
+              ( /*<<bytes.ml:483:32>>*/ caml_bytes_get16(b, i))
             :  /*<<bytes.ml:484:7>>*/ caml_bytes_get16(b, i) /*<<bytes.ml:484:24>>*/ ;
    }
    function get_uint16_be(b, i){
      /*<<bytes.ml:487:2>>*/ return Stdlib_Sys[11]
             ?  /*<<bytes.ml:488:7>>*/ caml_bytes_get16(b, i)
-            :  /*<<bytes.ml:487:36>>*/ caml_bswap16(caml_bytes_get16(b, i)) /*<<bytes.ml:488:24>>*/ ;
+            :  /*<<bytes.ml:487:55>>*/ caml_bswap16
+              ( /*<<bytes.ml:487:36>>*/ caml_bytes_get16(b, i)) /*<<bytes.ml:488:24>>*/ ;
    }
    function get_int16_ne(b, i){
     var
      _q_ =  /*<<bytes.ml:491:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _r_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16(b, i) << _r_ >> _q_;
+     /*<<bytes.ml:491:22>>*/ return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16
+            (b, i)
+           << _r_
+           >> _q_ /*<<bytes.ml:491:22>>*/ ;
     /*<<bytes.ml:491:71>>*/ }
    function get_int16_le(b, i){
     var
      _o_ =  /*<<bytes.ml:494:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _p_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:494:3>>*/ get_uint16_le(b, i) << _p_ >> _o_;
+     /*<<bytes.ml:494:22>>*/ return  /*<<bytes.ml:494:3>>*/ get_uint16_le
+            (b, i)
+           << _p_
+           >> _o_ /*<<bytes.ml:494:22>>*/ ;
     /*<<bytes.ml:494:71>>*/ }
    function get_int16_be(b, i){
     var
      _m_ =  /*<<bytes.ml:497:2>>*/ Stdlib_Sys[10] - 16 | 0,
      _n_ = Stdlib_Sys[10] - 16 | 0;
-    return  /*<<bytes.ml:497:3>>*/ get_uint16_be(b, i) << _n_ >> _m_;
+     /*<<bytes.ml:497:22>>*/ return  /*<<bytes.ml:497:3>>*/ get_uint16_be
+            (b, i)
+           << _n_
+           >> _m_ /*<<bytes.ml:497:22>>*/ ;
     /*<<bytes.ml:497:71>>*/ }
    function get_int32_le(b, i){
      /*<<bytes.ml:500:2>>*/ return Stdlib_Sys[11]
@@ -5482,14 +5630,14 @@
    function unsafe_set_uint16_le(b, i, x){
      /*<<bytes.ml:516:2>>*/ if(Stdlib_Sys[11]){
       /*<<bytes.ml:517:7>>*/ caml_bytes_set16(b, i, caml_bswap16(x));
-     return;
+      /*<<bytes.ml:517:42>>*/ return;
     }
      /*<<bytes.ml:518:7>>*/ caml_bytes_set16(b, i, x);
     /*<<bytes.ml:518:33>>*/ }
    function unsafe_set_uint16_be(b, i, x){
      /*<<bytes.ml:521:2>>*/ if(Stdlib_Sys[11]){
       /*<<bytes.ml:522:7>>*/ caml_bytes_set16(b, i, x);
-     return;
+      /*<<bytes.ml:522:33>>*/ return;
     }
      /*<<bytes.ml:523:2>>*/ caml_bytes_set16(b, i, caml_bswap16(x));
     /*<<bytes.ml:523:37>>*/ }
@@ -5528,7 +5676,7 @@
               (b, i,  /*<<bytes.ml:546:46>>*/ caml_int64_bswap(x)) /*<<bytes.ml:547:25>>*/ ;
    }
    var
-    set_uint8 = caml_bytes_set,
+    set_uint8 =  /*<<bytes.ml:53:20>>*/ caml_bytes_set,
     set_uint16_ne = caml_bytes_set16,
     dec_invalid = Stdlib_Uchar[22],
     _a_ = [0, cst_bytes_ml, 679, 9],
@@ -5543,7 +5691,7 @@
     _f_ = [0, cst_bytes_ml, 820, 20];
    function dec_ret(n, u){
     var _l_ =  /*<<bytes.ml:557:46>>*/ caml_call1(Stdlib_Uchar[9], u);
-    return caml_call2(Stdlib_Uchar[21], n, _l_) /*<<bytes.ml:557:69>>*/ ;
+     /*<<bytes.ml:557:69>>*/ return caml_call2(Stdlib_Uchar[21], n, _l_);
    }
    function not_in_x80_to_xBF(b){
      /*<<bytes.ml:575:35>>*/ return 2 !== (b >>> 6 | 0) ? 1 : 0;
@@ -5555,7 +5703,9 @@
      /*<<bytes.ml:577:35>>*/ return 4 !== (b >>> 5 | 0) ? 1 : 0;
     /*<<bytes.ml:577:51>>*/ }
    function not_in_x90_to_xBF(b){
-    var _j_ = b < 144 ? 1 : 0, _k_ = _j_ || (191 < b ? 1 : 0);
+    var
+     _j_ =  /*<<bytes.ml:578:35>>*/ b < 144 ? 1 : 0,
+     _k_ = _j_ || (191 < b ? 1 : 0);
     return _k_;
     /*<<bytes.ml:578:55>>*/ }
    function not_in_x80_to_x8F(b){
@@ -5581,127 +5731,146 @@
        switch(b0 - 237 | 0){
          case 0:
           var i$0 =  /*<<bytes.ml:619:6>>*/ i + 1 | 0;
-          if(max < i$0)
+           /*<<bytes.ml:619:23>>*/ if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$4 = caml_bytes_unsafe_get(b, i$0);
-           /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
+           /*<<bytes.ml:620:49>>*/ if
+           ( /*<<bytes.ml:620:29>>*/ not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
-          if(max < i$1)
+           /*<<bytes.ml:621:23>>*/ if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$3 = caml_bytes_unsafe_get(b, i$1);
-           /*<<bytes.ml:622:29>>*/ return not_in_x80_to_xBF(b2$3)
+           /*<<bytes.ml:622:49>>*/ return  /*<<bytes.ml:622:29>>*/ not_in_x80_to_xBF
+                   (b2$3)
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
-                  :  /*<<bytes.ml:623:16>>*/ dec_ret
-                    (3, utf_8_uchar_3(b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:623:40>>*/ dec_ret
+                    (3,  /*<<bytes.ml:623:16>>*/ utf_8_uchar_3(b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
          case 3:
           var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
-          if(max < i$4)
+           /*<<bytes.ml:625:23>>*/ if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$2 = caml_bytes_unsafe_get(b, i$4);
-           /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
+           /*<<bytes.ml:626:49>>*/ if
+           ( /*<<bytes.ml:626:29>>*/ not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
-          if(max < i$5)
+           /*<<bytes.ml:627:23>>*/ if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$1 = caml_bytes_unsafe_get(b, i$5);
-           /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
+           /*<<bytes.ml:628:49>>*/ if
+           ( /*<<bytes.ml:628:29>>*/ not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
-          if(max < i$6)
+           /*<<bytes.ml:629:23>>*/ if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$1 = caml_bytes_unsafe_get(b, i$6);
-           /*<<bytes.ml:630:29>>*/ return not_in_x80_to_xBF(b3$1)
+           /*<<bytes.ml:630:49>>*/ return  /*<<bytes.ml:630:29>>*/ not_in_x80_to_xBF
+                   (b3$1)
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
-                  :  /*<<bytes.ml:631:16>>*/ dec_ret
-                    (4, utf_8_uchar_4(b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:631:43>>*/ dec_ret
+                    (4,
+                      /*<<bytes.ml:631:16>>*/ utf_8_uchar_4(b0, b1$2, b2$1, b3$1)) /*<<bytes.ml:648:22>>*/ ;
          case 7:
           var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
-          if(max < i$10)
+           /*<<bytes.ml:641:23>>*/ if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$0 = caml_bytes_unsafe_get(b, i$10);
-           /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
+           /*<<bytes.ml:642:49>>*/ if
+           ( /*<<bytes.ml:642:29>>*/ not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
-          if(max < i$11)
+           /*<<bytes.ml:643:23>>*/ if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2 = caml_bytes_unsafe_get(b, i$11);
-           /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
+           /*<<bytes.ml:644:49>>*/ if
+           ( /*<<bytes.ml:644:29>>*/ not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
-          if(max < i$12)
+           /*<<bytes.ml:645:23>>*/ if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3 = caml_bytes_unsafe_get(b, i$12);
-           /*<<bytes.ml:646:29>>*/ return not_in_x80_to_xBF(b3)
+           /*<<bytes.ml:646:49>>*/ return  /*<<bytes.ml:646:29>>*/ not_in_x80_to_xBF
+                   (b3)
                   ?  /*<<bytes.ml:646:55>>*/ caml_call1(dec_invalid, 3)
-                  :  /*<<bytes.ml:647:16>>*/ dec_ret
-                    (4, utf_8_uchar_4(b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:647:43>>*/ dec_ret
+                    (4,
+                      /*<<bytes.ml:647:16>>*/ utf_8_uchar_4(b0, b1$0, b2, b3)) /*<<bytes.ml:648:22>>*/ ;
          case 1:
          case 2: break;
          default:
           var i$7 =  /*<<bytes.ml:633:6>>*/ i + 1 | 0;
-          if(max < i$7)
+           /*<<bytes.ml:633:23>>*/ if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$1 = caml_bytes_unsafe_get(b, i$7);
-           /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
+           /*<<bytes.ml:634:49>>*/ if
+           ( /*<<bytes.ml:634:29>>*/ not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
-          if(max < i$8)
+           /*<<bytes.ml:635:23>>*/ if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$0 = caml_bytes_unsafe_get(b, i$8);
-           /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
+           /*<<bytes.ml:636:49>>*/ if
+           ( /*<<bytes.ml:636:29>>*/ not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
-          if(max < i$9)
+           /*<<bytes.ml:637:23>>*/ if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$0 = caml_bytes_unsafe_get(b, i$9);
-           /*<<bytes.ml:638:29>>*/ return not_in_x80_to_xBF(b3$0)
+           /*<<bytes.ml:638:49>>*/ return  /*<<bytes.ml:638:29>>*/ not_in_x80_to_xBF
+                   (b3$0)
                   ?  /*<<bytes.ml:638:55>>*/ caml_call1(dec_invalid, 3)
-                  :  /*<<bytes.ml:639:16>>*/ dec_ret
-                    (4, utf_8_uchar_4(b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
+                  :  /*<<bytes.ml:639:43>>*/ dec_ret
+                    (4,
+                      /*<<bytes.ml:639:16>>*/ utf_8_uchar_4(b0, b1$1, b2$0, b3$0)) /*<<bytes.ml:648:22>>*/ ;
        }
       }
       else if(225 > b0){
        var i$13 =  /*<<bytes.ml:607:6>>*/ i + 1 | 0;
-       if(max < i$13)
+        /*<<bytes.ml:607:23>>*/ if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var b1$5 = caml_bytes_unsafe_get(b, i$13);
-        /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
+        /*<<bytes.ml:608:49>>*/ if
+        ( /*<<bytes.ml:608:29>>*/ not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
-       if(max < i$14)
+        /*<<bytes.ml:609:23>>*/ if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
        var b2$4 = caml_bytes_unsafe_get(b, i$14);
-        /*<<bytes.ml:610:29>>*/ return not_in_x80_to_xBF(b2$4)
+        /*<<bytes.ml:610:49>>*/ return  /*<<bytes.ml:610:29>>*/ not_in_x80_to_xBF
+                (b2$4)
                ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
-               :  /*<<bytes.ml:611:16>>*/ dec_ret
-                 (3, utf_8_uchar_3(b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
+               :  /*<<bytes.ml:611:40>>*/ dec_ret
+                 (3,  /*<<bytes.ml:611:16>>*/ utf_8_uchar_3(b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
       }
       var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
-      if(max < i$2)
+       /*<<bytes.ml:613:23>>*/ if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1$3 = caml_bytes_unsafe_get(b, i$2);
-       /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
+       /*<<bytes.ml:614:49>>*/ if
+       ( /*<<bytes.ml:614:29>>*/ not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
-      if(max < i$3)
+       /*<<bytes.ml:615:23>>*/ if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
       var b2$2 = caml_bytes_unsafe_get(b, i$3);
-       /*<<bytes.ml:616:29>>*/ return not_in_x80_to_xBF(b2$2)
+       /*<<bytes.ml:616:49>>*/ return  /*<<bytes.ml:616:29>>*/ not_in_x80_to_xBF
+               (b2$2)
               ?  /*<<bytes.ml:616:55>>*/ caml_call1(dec_invalid, 2)
-              :  /*<<bytes.ml:617:16>>*/ dec_ret
-                (3, utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
+              :  /*<<bytes.ml:617:40>>*/ dec_ret
+                (3,  /*<<bytes.ml:617:16>>*/ utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
      }
      if(128 > b0)
        /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0) /*<<bytes.ml:648:22>>*/ ;
      if(194 <= b0){
       var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
-      if(max < i$15)
+       /*<<bytes.ml:603:23>>*/ if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1 = caml_bytes_unsafe_get(b, i$15);
-       /*<<bytes.ml:604:29>>*/ return not_in_x80_to_xBF(b1)
+       /*<<bytes.ml:604:49>>*/ return  /*<<bytes.ml:604:29>>*/ not_in_x80_to_xBF
+               (b1)
               ?  /*<<bytes.ml:604:55>>*/ caml_call1(dec_invalid, 1)
-              :  /*<<bytes.ml:605:16>>*/ dec_ret(2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
+              :  /*<<bytes.ml:605:37>>*/ dec_ret(2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
      }
     }
      /*<<bytes.ml:648:9>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
@@ -5718,11 +5887,11 @@
             ([0, Assert_failure, _b_], 1);
      /*<<bytes.ml:655:11>>*/ if(127 >= u$0){
      caml_bytes_set(b, i, u$0);
-      /*<<bytes.ml:656:6>>*/ return 1;
+      /*<<bytes.ml:656:21>>*/ return 1;
     }
      /*<<bytes.ml:658:11>>*/ if(2047 >= u$0){
      var last$1 =  /*<<bytes.ml:659:6>>*/ i + 1 | 0;
-     return max < last$1
+      /*<<bytes.ml:660:6>>*/ return max < last$1
              ? 0
              : (caml_bytes_set
                 (b, i, 192 | u$0 >>> 6 | 0),
@@ -5731,7 +5900,7 @@
     }
      /*<<bytes.ml:664:11>>*/ if(65535 >= u$0){
      var last$0 =  /*<<bytes.ml:665:6>>*/ i + 2 | 0;
-     return max < last$0
+      /*<<bytes.ml:666:6>>*/ return max < last$0
              ? 0
              : (caml_bytes_set
                 (b, i, 224 | u$0 >>> 12 | 0),
@@ -5744,7 +5913,7 @@
       /*<<bytes.ml:679:9>>*/ throw caml_maybe_attach_backtrace
             ([0, Assert_failure, _a_], 1);
     var last =  /*<<bytes.ml:672:6>>*/ i + 3 | 0;
-    return max < last
+     /*<<bytes.ml:673:6>>*/ return max < last
             ? 0
             : (caml_bytes_set
                (b, i, 240 | u$0 >>> 18 | 0),
@@ -5756,19 +5925,19 @@
               4) /*<<bytes.ml:679:21>>*/ ;
    }
    function is_valid_utf_8(b){
-    var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
+    var max =  /*<<bytes.ml:740:2>>*/ caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:683:4>>*/ for(;;){
      if(max < i)  /*<<bytes.ml:683:20>>*/ return 1;
      var match = caml_bytes_unsafe_get(b, i);
      a:
      {
-      if(224 <= match){
+       /*<<bytes.ml:685:35>>*/ if(224 <= match){
        if(237 <= match){
         if(245 <= match) break a;
         switch(match - 237 | 0){
           case 0:
            var last =  /*<<bytes.ml:708:8>>*/ i + 2 | 0;
-           if
+            /*<<bytes.ml:709:8>>*/ if
             (max >= last
              &&
               !
@@ -5785,7 +5954,7 @@
             /*<<bytes.ml:712:13>>*/ return 0;
           case 3:
            var last$1 =  /*<<bytes.ml:715:8>>*/ i + 3 | 0;
-           if
+            /*<<bytes.ml:716:8>>*/ if
             (max >= last$1
              &&
               !
@@ -5806,7 +5975,7 @@
             /*<<bytes.ml:720:13>>*/ return 0;
           case 7:
            var last$3 =  /*<<bytes.ml:731:8>>*/ i + 3 | 0;
-           if
+            /*<<bytes.ml:732:8>>*/ if
             (max >= last$3
              &&
               !
@@ -5829,7 +5998,7 @@
           case 2: break;
           default:
            var last$2 =  /*<<bytes.ml:723:8>>*/ i + 3 | 0;
-           if
+            /*<<bytes.ml:724:8>>*/ if
             (max >= last$2
              &&
               !
@@ -5852,7 +6021,7 @@
        }
        else if(225 > match){
         var last$4 =  /*<<bytes.ml:694:8>>*/ i + 2 | 0;
-        if
+         /*<<bytes.ml:695:8>>*/ if
          (max >= last$4
           &&
            !
@@ -5869,7 +6038,7 @@
          /*<<bytes.ml:698:13>>*/ return 0;
        }
        var last$0 =  /*<<bytes.ml:701:8>>*/ i + 2 | 0;
-       if
+        /*<<bytes.ml:702:8>>*/ if
         (max >= last$0
          &&
           !
@@ -5892,7 +6061,7 @@
       }
       if(194 <= match){
        var last$5 =  /*<<bytes.ml:688:8>>*/ i + 1 | 0;
-       if
+        /*<<bytes.ml:689:8>>*/ if
         (max >= last$5
          &&
           !
@@ -5911,18 +6080,21 @@
    function get_utf_16be_uchar(b, i){
     var max =  /*<<bytes.ml:746:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:747:2>>*/ if(0 <= i && max >= i){
-     if(i === max)
+      /*<<bytes.ml:748:2>>*/ if(i === max)
        /*<<bytes.ml:748:18>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:759:21>>*/ ;
      var hi =  /*<<bytes.ml:749:8>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:750:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:751:11>>*/ if(56319 < hi)
         /*<<bytes.ml:751:25>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
       var last =  /*<<bytes.ml:753:6>>*/ i + 3 | 0;
-      if(max < last)
-       return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:759:21>>*/ ;
+       /*<<bytes.ml:754:6>>*/ if(max < last)
+        /*<<bytes.ml:754:25>>*/ return caml_call1
+               (dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:759:21>>*/ ;
       var lo =  /*<<bytes.ml:755:12>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:756:15>>*/ if(56320 <= lo && 57343 >= lo){
-       var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
+       var
+        u =
+           /*<<bytes.ml:758:10>>*/ ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:759:10>>*/ return dec_ret(4, u) /*<<bytes.ml:759:21>>*/ ;
       }
        /*<<bytes.ml:756:43>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:759:21>>*/ ;
@@ -5941,7 +6113,7 @@
              ([0, Assert_failure, _d_], 1);
       /*<<bytes.ml:767:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:768:6>>*/ i + 1 | 0;
-      return max < last$0
+       /*<<bytes.ml:769:6>>*/ return max < last$0
               ? 0
               : ( /*<<bytes.ml:769:33>>*/ unsafe_set_uint16_be(b, i, u$0), 2) /*<<bytes.ml:777:21>>*/ ;
      }
@@ -5949,29 +6121,30 @@
        /*<<bytes.ml:777:9>>*/ throw caml_maybe_attach_backtrace
              ([0, Assert_failure, _c_], 1);
      var last =  /*<<bytes.ml:771:6>>*/ i + 3 | 0;
-     if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
+      /*<<bytes.ml:772:6>>*/ if(max < last)  /*<<bytes.ml:772:25>>*/ return 0;
      var
       u$1 =  /*<<bytes.ml:773:6>>*/ u$0 - 65536 | 0,
-      hi = 55296 | u$1 >>> 10 | 0,
-      lo = 56320 | u$1 & 1023;
+      hi =  /*<<bytes.ml:774:6>>*/ 55296 | u$1 >>> 10 | 0,
+      lo =  /*<<bytes.ml:775:6>>*/ 56320 | u$1 & 1023;
       /*<<bytes.ml:776:6>>*/ unsafe_set_uint16_be(b, i, hi);
       /*<<bytes.ml:776:18>>*/ unsafe_set_uint16_be(b, i + 2 | 0, lo);
-     return 4;
+      /*<<bytes.ml:776:34>>*/ return 4;
     }
      /*<<bytes.ml:764:27>>*/ return caml_call1
             (Stdlib[1], cst_index_out_of_bounds$0) /*<<bytes.ml:777:21>>*/ ;
    }
    function is_valid_utf_16be(b){
-    var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
+    var max =  /*<<bytes.ml:794:2>>*/ caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:781:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
-     if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
+      /*<<bytes.ml:782:4>>*/ if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
+      /*<<bytes.ml:783:4>>*/ if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
      var u =  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be(b, i);
       /*<<bytes.ml:785:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:786:13>>*/ if(56319 < u)
         /*<<bytes.ml:786:27>>*/ return 0;
       var last =  /*<<bytes.ml:788:8>>*/ i + 3 | 0;
-      if(max < last)  /*<<bytes.ml:789:27>>*/ return 0;
+       /*<<bytes.ml:789:8>>*/ if(max < last)
+        /*<<bytes.ml:789:27>>*/ return 0;
       var u$0 =  /*<<bytes.ml:790:14>>*/ unsafe_get_uint16_be(b, i + 2 | 0);
        /*<<bytes.ml:791:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:792:17>>*/ i + 4 | 0;
@@ -5987,18 +6160,21 @@
    function get_utf_16le_uchar(b, i){
     var max =  /*<<bytes.ml:800:2>>*/ caml_ml_bytes_length(b) - 1 | 0;
      /*<<bytes.ml:801:2>>*/ if(0 <= i && max >= i){
-     if(i === max)
+      /*<<bytes.ml:802:2>>*/ if(i === max)
        /*<<bytes.ml:802:18>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:813:21>>*/ ;
      var hi =  /*<<bytes.ml:803:8>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:804:11>>*/ if(55296 <= hi && 57343 >= hi){
        /*<<bytes.ml:805:11>>*/ if(56319 < hi)
         /*<<bytes.ml:805:25>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
       var last =  /*<<bytes.ml:807:6>>*/ i + 3 | 0;
-      if(max < last)
-       return caml_call1(dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:813:21>>*/ ;
+       /*<<bytes.ml:808:6>>*/ if(max < last)
+        /*<<bytes.ml:808:25>>*/ return caml_call1
+               (dec_invalid, (max - i | 0) + 1 | 0) /*<<bytes.ml:813:21>>*/ ;
       var lo =  /*<<bytes.ml:809:12>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:810:15>>*/ if(56320 <= lo && 57343 >= lo){
-       var u = ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
+       var
+        u =
+           /*<<bytes.ml:812:10>>*/ ((hi & 1023) << 10 | lo & 1023) + 65536 | 0;
         /*<<bytes.ml:813:10>>*/ return dec_ret(4, u) /*<<bytes.ml:813:21>>*/ ;
       }
        /*<<bytes.ml:810:43>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:813:21>>*/ ;
@@ -6017,7 +6193,7 @@
              ([0, Assert_failure, _f_], 1);
       /*<<bytes.ml:821:11>>*/ if(65535 >= u$0){
       var last$0 =  /*<<bytes.ml:822:6>>*/ i + 1 | 0;
-      return max < last$0
+       /*<<bytes.ml:823:6>>*/ return max < last$0
               ? 0
               : ( /*<<bytes.ml:823:33>>*/ unsafe_set_uint16_le(b, i, u$0), 2) /*<<bytes.ml:831:21>>*/ ;
      }
@@ -6025,29 +6201,30 @@
        /*<<bytes.ml:831:9>>*/ throw caml_maybe_attach_backtrace
              ([0, Assert_failure, _e_], 1);
      var last =  /*<<bytes.ml:825:6>>*/ i + 3 | 0;
-     if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
+      /*<<bytes.ml:826:6>>*/ if(max < last)  /*<<bytes.ml:826:25>>*/ return 0;
      var
       u$1 =  /*<<bytes.ml:827:6>>*/ u$0 - 65536 | 0,
-      hi = 55296 | u$1 >>> 10 | 0,
-      lo = 56320 | u$1 & 1023;
+      hi =  /*<<bytes.ml:828:6>>*/ 55296 | u$1 >>> 10 | 0,
+      lo =  /*<<bytes.ml:829:6>>*/ 56320 | u$1 & 1023;
       /*<<bytes.ml:830:6>>*/ unsafe_set_uint16_le(b, i, hi);
       /*<<bytes.ml:830:18>>*/ unsafe_set_uint16_le(b, i + 2 | 0, lo);
-     return 4;
+      /*<<bytes.ml:830:34>>*/ return 4;
     }
      /*<<bytes.ml:818:27>>*/ return caml_call1
             (Stdlib[1], cst_index_out_of_bounds$2) /*<<bytes.ml:831:21>>*/ ;
    }
    function is_valid_utf_16le(b){
-    var max = caml_ml_bytes_length(b) - 1 | 0, i = 0;
+    var max =  /*<<bytes.ml:848:2>>*/ caml_ml_bytes_length(b) - 1 | 0, i = 0;
      /*<<bytes.ml:835:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
-     if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
+      /*<<bytes.ml:836:4>>*/ if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
+      /*<<bytes.ml:837:4>>*/ if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
      var u =  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le(b, i);
       /*<<bytes.ml:839:13>>*/ if(55296 <= u && 57343 >= u){
        /*<<bytes.ml:840:13>>*/ if(56319 < u)
         /*<<bytes.ml:840:27>>*/ return 0;
       var last =  /*<<bytes.ml:842:8>>*/ i + 3 | 0;
-      if(max < last)  /*<<bytes.ml:843:27>>*/ return 0;
+       /*<<bytes.ml:843:8>>*/ if(max < last)
+        /*<<bytes.ml:843:27>>*/ return 0;
       var u$0 =  /*<<bytes.ml:844:14>>*/ unsafe_get_uint16_le(b, i + 2 | 0);
        /*<<bytes.ml:845:17>>*/ if(56320 <= u$0 && 57343 >= u$0){
        var i$1 =  /*<<bytes.ml:846:17>>*/ i + 4 | 0;
@@ -6062,7 +6239,7 @@
     /*<<bytes.ml:848:25>>*/ }
    var
     Stdlib_Bytes =
-      [0,
+       /*<<bytes.ml:53:20>>*/ [0,
        make,
        init,
        empty,
@@ -6194,39 +6371,42 @@
     bts = Stdlib_Bytes[44],
     bos = Stdlib_Bytes[45];
    function make(n, c){
-     /*<<string.ml:36:2>>*/ return caml_call1
-            (bts, caml_call2(Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
+     /*<<string.ml:36:2>>*/ return  /*<<string.ml:36:12>>*/ caml_call1
+            (bts,  /*<<string.ml:36:2>>*/ caml_call2(Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
    }
    function init(n, f){
-     /*<<string.ml:38:2>>*/ return caml_call1
-            (bts, caml_call2(Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
+     /*<<string.ml:38:2>>*/ return  /*<<string.ml:38:12>>*/ caml_call1
+            (bts,  /*<<string.ml:38:2>>*/ caml_call2(Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
    }
    var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
     var _X_ =  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
-     /*<<string.ml:43:2>>*/ return caml_call1
-            (bts, caml_call3(Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
+     /*<<string.ml:43:23>>*/ return caml_call1
+            (bts,
+              /*<<string.ml:43:2>>*/ caml_call3
+              (Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
    }
-   var
-    blit =  /*<<string.ml:42:8>>*/ Stdlib_Bytes[12],
-    cst_String_concat = "String.concat";
+   var blit = Stdlib_Bytes[12], cst_String_concat = "String.concat";
    function concat(sep, l){
      /*<<string.ml:63:11>>*/ if(! l)  /*<<string.ml:64:10>>*/ return cst;
-    var seplen = caml_ml_string_length(sep);
+    var seplen =  /*<<string.ml:65:9>>*/ caml_ml_string_length(sep);
     a:
     {
      b:
      {
-      var acc = 0, param = l, pos$1 = 0;
+      var acc = 0, param = l, pos$1 =  /*<<string.ml:65:36>>*/ 0;
        /*<<string.ml:49:20>>*/ for(;;){
        if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
        var
         tl = param[2],
-        x = (caml_ml_string_length(hd) + seplen | 0) + acc | 0,
+        x =
+           /*<<string.ml:52:16>>*/ (caml_ml_string_length(hd) + seplen | 0)
+          + acc
+          | 0,
         acc$0 =
-          acc <= x
+           /*<<string.ml:47:26>>*/ acc <= x
            ? x
            :  /*<<string.ml:47:48>>*/ caml_call1(Stdlib[1], cst_String_concat);
        acc = acc$0;
@@ -6235,7 +6415,7 @@
       var _W_ = acc;
       break a;
      }
-     var _W_ = caml_ml_string_length(hd) + acc | 0;
+     var _W_ =  /*<<string.ml:51:16>>*/ caml_ml_string_length(hd) + acc | 0;
     }
     var
      dst =  /*<<string.ml:67:12>>*/ runtime.caml_create_bytes(_W_),
@@ -6249,8 +6429,16 @@
         /*<<string.ml:59:4>>*/ caml_blit_string
         (hd$0, 0, dst, pos, caml_ml_string_length(hd$0));
         /*<<string.ml:60:4>>*/ caml_blit_string
-        (sep, 0, dst, pos + caml_ml_string_length(hd$0) | 0, seplen);
-       var pos$0 = (pos + caml_ml_string_length(hd$0) | 0) + seplen | 0;
+        (sep,
+         0,
+         dst,
+         pos +  /*<<string.ml:59:40>>*/ caml_ml_string_length(hd$0) | 0,
+         seplen);
+       var
+        pos$0 =
+           /*<<string.ml:60:50>>*/ (pos + caml_ml_string_length(hd$0) | 0)
+          + seplen
+          | 0;
        pos = pos$0;
        param$0 = tl$0;
        continue;
@@ -6258,11 +6446,11 @@
        /*<<string.ml:57:4>>*/ caml_blit_string
        (hd$0, 0, dst, pos, caml_ml_string_length(hd$0));
      }
-      /*<<string.ml:66:10>>*/ return caml_call1(bts, dst) /*<<string.ml:68:26>>*/ ;
+      /*<<string.ml:68:26>>*/ return caml_call1(bts, dst);
     }
    }
    var
-    cat =  /*<<string.ml:63:11>>*/ Stdlib[28],
+    cat = Stdlib[28],
     cst_String_index_from_Bytes_in = "String.index_from / Bytes.index_from",
     cst_String_index_from_opt_Byte =
       "String.index_from_opt / Bytes.index_from_opt",
@@ -6275,13 +6463,13 @@
       "String.rcontains_from / Bytes.rcontains_from";
    function iter(f, s){
     var
-     _U_ = caml_ml_string_length(s) - 1 | 0,
-     _T_ =  /*<<string.ml:74:2>>*/ 0;
+     _U_ =  /*<<string.ml:74:2>>*/ caml_ml_string_length(s) - 1 | 0,
+     _T_ = 0;
     if(_U_ >= 0){
      var i = _T_;
      for(;;){
        /*<<string.ml:74:31>>*/ caml_call1(f, caml_string_unsafe_get(s, i));
-      var _V_ = i + 1 | 0;
+      var _V_ =  /*<<string.ml:74:49>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -6290,13 +6478,13 @@
     /*<<string.ml:74:54>>*/ }
    function iteri(f, s){
     var
-     _R_ = caml_ml_string_length(s) - 1 | 0,
-     _Q_ =  /*<<string.ml:78:2>>*/ 0;
+     _R_ =  /*<<string.ml:78:2>>*/ caml_ml_string_length(s) - 1 | 0,
+     _Q_ = 0;
     if(_R_ >= 0){
      var i = _Q_;
      for(;;){
        /*<<string.ml:78:31>>*/ caml_call2(f, i, caml_string_unsafe_get(s, i));
-      var _S_ = i + 1 | 0;
+      var _S_ =  /*<<string.ml:78:51>>*/ i + 1 | 0;
       if(_R_ === i) break;
       i = _S_;
      }
@@ -6305,29 +6493,31 @@
     /*<<string.ml:78:56>>*/ }
    function map(f, s){
     var _P_ =  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
-     /*<<string.ml:81:2>>*/ return caml_call1
-            (bts, caml_call2(Stdlib_Bytes[17], f, _P_)) /*<<string.ml:81:24>>*/ ;
+     /*<<string.ml:81:17>>*/ return caml_call1
+            (bts,
+              /*<<string.ml:81:2>>*/ caml_call2(Stdlib_Bytes[17], f, _P_)) /*<<string.ml:81:24>>*/ ;
    }
    function mapi(f, s){
     var _O_ =  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
-     /*<<string.ml:83:2>>*/ return caml_call1
-            (bts, caml_call2(Stdlib_Bytes[18], f, _O_)) /*<<string.ml:83:25>>*/ ;
+     /*<<string.ml:83:18>>*/ return caml_call1
+            (bts,
+              /*<<string.ml:83:2>>*/ caml_call2(Stdlib_Bytes[18], f, _O_)) /*<<string.ml:83:25>>*/ ;
    }
    function fold_right(f, x, a){
     var _N_ =  /*<<string.ml:85:17>>*/ caml_call1(bos, x);
-     /*<<string.ml:85:2>>*/ return caml_call3(Stdlib_Bytes[20], f, _N_, a) /*<<string.ml:85:26>>*/ ;
+     /*<<string.ml:85:24>>*/ return caml_call3(Stdlib_Bytes[20], f, _N_, a) /*<<string.ml:85:26>>*/ ;
    }
    function fold_left(f, a, x){
     var _M_ =  /*<<string.ml:87:18>>*/ caml_call1(bos, x);
-    return caml_call3(Stdlib_Bytes[19], f, a, _M_) /*<<string.ml:87:25>>*/ ;
+     /*<<string.ml:87:25>>*/ return caml_call3(Stdlib_Bytes[19], f, a, _M_);
    }
    function exists(f, s){
     var _L_ =  /*<<string.ml:89:13>>*/ caml_call1(bos, s);
-    return caml_call2(Stdlib_Bytes[22], f, _L_) /*<<string.ml:89:20>>*/ ;
+     /*<<string.ml:89:20>>*/ return caml_call2(Stdlib_Bytes[22], f, _L_);
    }
    function for_all(f, s){
     var _K_ =  /*<<string.ml:91:14>>*/ caml_call1(bos, s);
-    return caml_call2(Stdlib_Bytes[21], f, _K_) /*<<string.ml:91:21>>*/ ;
+     /*<<string.ml:91:21>>*/ return caml_call2(Stdlib_Bytes[21], f, _K_);
    }
    function is_space(param){
     var _J_ =  /*<<string.ml:97:15>>*/ param - 9 | 0;
@@ -6341,22 +6531,23 @@
    function trim(s){
      /*<<string.ml:102:2>>*/ if(s === cst$0)
       /*<<string.ml:102:17>>*/ return s;
-     /*<<string.ml:103:10>>*/ if
+     /*<<string.ml:103:35>>*/ if
      (!
-      is_space(caml_string_unsafe_get(s, 0))
+       /*<<string.ml:103:10>>*/ is_space
+       ( /*<<string.ml:103:7>>*/ caml_string_unsafe_get(s, 0))
       &&
        !
         /*<<string.ml:103:39>>*/ is_space
         (caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
       /*<<string.ml:105:7>>*/ return s;
     var _I_ =  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
-     /*<<string.ml:104:13>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[23], _I_)) /*<<string.ml:105:8>>*/ ;
+     /*<<string.ml:104:29>>*/ return caml_call1
+            (bts,  /*<<string.ml:104:13>>*/ caml_call1(Stdlib_Bytes[23], _I_)) /*<<string.ml:105:8>>*/ ;
    }
    function escaped(s){
     var b =  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
-     /*<<string.ml:111:6>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
+     /*<<string.ml:111:25>>*/ return caml_call1
+            (bts,  /*<<string.ml:111:6>>*/ caml_call1(Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
    }
    function index_rec(s, lim, i, c){
     var i$0 = i;
@@ -6364,9 +6555,9 @@
      if(lim <= i$0)
        /*<<string.ml:115:19>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
-     if(caml_string_unsafe_get(s, i$0) === c)
+      /*<<string.ml:116:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:116:29>>*/ return i$0;
-     var i$1 = i$0 + 1 | 0;
+     var i$1 =  /*<<string.ml:116:36>>*/ i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:116:61>>*/ }
@@ -6378,9 +6569,9 @@
     var i$0 = i;
      /*<<string.ml:123:2>>*/ for(;;){
      if(lim <= i$0)  /*<<string.ml:123:19>>*/ return 0;
-     if(caml_string_unsafe_get(s, i$0) === c)
+      /*<<string.ml:124:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:124:29>>*/ return [0, i$0];
-     var i$1 = i$0 + 1 | 0;
+     var i$1 =  /*<<string.ml:124:41>>*/ i$0 + 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:124:70>>*/ }
@@ -6389,14 +6580,14 @@
             (s, caml_ml_string_length(s), 0, c) /*<<string.ml:127:50>>*/ ;
    }
    function index_from(s, i, c){
-    var l = caml_ml_string_length(s);
+    var l =  /*<<string.ml:131:2>>*/ caml_ml_string_length(s);
      /*<<string.ml:132:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:133:4>>*/ return index_rec(s, l, i, c) /*<<string.ml:133:21>>*/ ;
      /*<<string.ml:132:25>>*/ return caml_call1
             (Stdlib[1], cst_String_index_from_Bytes_in) /*<<string.ml:133:21>>*/ ;
    }
    function index_from_opt(s, i, c){
-    var l = caml_ml_string_length(s);
+    var l =  /*<<string.ml:137:2>>*/ caml_ml_string_length(s);
      /*<<string.ml:138:2>>*/ if(0 <= i && l >= i)
       /*<<string.ml:141:4>>*/ return index_rec_opt(s, l, i, c) /*<<string.ml:141:25>>*/ ;
      /*<<string.ml:139:4>>*/ return caml_call1
@@ -6408,9 +6599,9 @@
      if(0 > i$0)
        /*<<string.ml:145:16>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
-     if(caml_string_unsafe_get(s, i$0) === c)
+      /*<<string.ml:146:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:146:29>>*/ return i$0;
-     var i$1 = i$0 - 1 | 0;
+     var i$1 =  /*<<string.ml:146:36>>*/ i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:146:58>>*/ }
@@ -6428,9 +6619,9 @@
     var i$0 = i;
      /*<<string.ml:160:2>>*/ for(;;){
      if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
-     if(caml_string_unsafe_get(s, i$0) === c)
+      /*<<string.ml:161:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:161:29>>*/ return [0, i$0];
-     var i$1 = i$0 - 1 | 0;
+     var i$1 =  /*<<string.ml:161:41>>*/ i$0 - 1 | 0;
      i$0 = i$1;
     }
     /*<<string.ml:161:67>>*/ }
@@ -6445,9 +6636,9 @@
             (Stdlib[1], cst_String_rindex_from_opt_Byt) /*<<string.ml:171:24>>*/ ;
    }
    function contains_from(s, i, c){
-    var l = caml_ml_string_length(s);
+    var l =  /*<<string.ml:175:2>>*/ caml_ml_string_length(s);
      /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
-      /*<<string.ml:179:4>>*/ try{
+     try{
        /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
       var _G_ =  /*<<string.ml:179:36>>*/ 1;
       return _G_;
@@ -6465,7 +6656,7 @@
    }
    function rcontains_from(s, i, c){
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
-      /*<<string.ml:189:4>>*/ try{
+     try{
        /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
       var _D_ =  /*<<string.ml:189:35>>*/ 1;
       return _D_;
@@ -6480,34 +6671,35 @@
    }
    function uppercase_ascii(s){
     var _B_ =  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
-     /*<<string.ml:192:2>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[36], _B_)) /*<<string.ml:192:34>>*/ ;
+     /*<<string.ml:192:27>>*/ return caml_call1
+            (bts,  /*<<string.ml:192:2>>*/ caml_call1(Stdlib_Bytes[36], _B_)) /*<<string.ml:192:34>>*/ ;
    }
    function lowercase_ascii(s){
     var _A_ =  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
-     /*<<string.ml:194:2>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[37], _A_)) /*<<string.ml:194:34>>*/ ;
+     /*<<string.ml:194:27>>*/ return caml_call1
+            (bts,  /*<<string.ml:194:2>>*/ caml_call1(Stdlib_Bytes[37], _A_)) /*<<string.ml:194:34>>*/ ;
    }
    function capitalize_ascii(s){
     var _z_ =  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
-     /*<<string.ml:196:2>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[38], _z_)) /*<<string.ml:196:35>>*/ ;
+     /*<<string.ml:196:28>>*/ return caml_call1
+            (bts,  /*<<string.ml:196:2>>*/ caml_call1(Stdlib_Bytes[38], _z_)) /*<<string.ml:196:35>>*/ ;
    }
    function uncapitalize_ascii(s){
     var _y_ =  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
-     /*<<string.ml:198:2>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[39], _y_)) /*<<string.ml:198:37>>*/ ;
+     /*<<string.ml:198:30>>*/ return caml_call1
+            (bts,  /*<<string.ml:198:2>>*/ caml_call1(Stdlib_Bytes[39], _y_)) /*<<string.ml:198:37>>*/ ;
    }
    function starts_with(prefix, s){
     var
-     len_s = caml_ml_string_length(s),
+     len_s =  /*<<string.ml:202:2>>*/ caml_ml_string_length(s),
      len_pre = caml_ml_string_length(prefix),
-     _x_ = len_pre <= len_s ? 1 : 0;
+     _x_ =  /*<<string.ml:208:5>>*/ len_pre <= len_s ? 1 : 0;
     if(! _x_) return _x_;
     var i = 0;
      /*<<string.ml:205:4>>*/ for(;;){
      if(i === len_pre)  /*<<string.ml:205:24>>*/ return 1;
-     if(caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
+      /*<<string.ml:206:9>>*/ if
+      (caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
        /*<<string.ml:206:55>>*/ return 0;
      var i$0 =  /*<<string.ml:207:9>>*/ i + 1 | 0;
      i = i$0;
@@ -6515,15 +6707,15 @@
     /*<<string.ml:208:30>>*/ }
    function ends_with(suffix, s){
     var
-     len_s = caml_ml_string_length(s),
+     len_s =  /*<<string.ml:212:2>>*/ caml_ml_string_length(s),
      len_suf = caml_ml_string_length(suffix),
-     diff = len_s - len_suf | 0,
-     _w_ = 0 <= diff ? 1 : 0;
+     diff =  /*<<string.ml:214:2>>*/ len_s - len_suf | 0,
+     _w_ =  /*<<string.ml:219:5>>*/ 0 <= diff ? 1 : 0;
     if(! _w_) return _w_;
     var i = 0;
      /*<<string.ml:216:4>>*/ for(;;){
      if(i === len_suf)  /*<<string.ml:216:24>>*/ return 1;
-     if
+      /*<<string.ml:217:9>>*/ if
       (caml_string_unsafe_get(s, diff + i | 0)
        !== caml_string_unsafe_get(suffix, i))
        /*<<string.ml:217:64>>*/ return 0;
@@ -6536,106 +6728,106 @@
    }
    function split_on_char(sep, s){
     var
-     r =  /*<<string.ml:226:10>>*/ [0, 0],
-     j =
-        /*<<string.ml:227:10>>*/ [0,
-         /*<<string.ml:227:2>>*/ caml_ml_string_length(s)],
+     r =  /*<<string.ml:226:2>>*/ [0, 0],
+     j =  /*<<string.ml:227:2>>*/ [0, caml_ml_string_length(s)],
      _s_ =  /*<<string.ml:228:2>>*/ caml_ml_string_length(s) - 1 | 0;
     if(_s_ >= 0){
      var i = _s_;
      for(;;){
-      if(caml_string_unsafe_get(s, i) === sep){
-       var _u_ = r[1];
-       r[1] =
+       /*<<string.ml:229:4>>*/ if(caml_string_unsafe_get(s, i) === sep){
+       var _u_ =  /*<<string.ml:229:33>>*/ r[1];
+        /*<<string.ml:230:37>>*/ r[1] =
         [0,
           /*<<string.ml:230:11>>*/ sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
          _u_];
-       j[1] = i;
+        /*<<string.ml:231:6>>*/ j[1] = i;
       }
-      var _v_ =  /*<<string.ml:228:2>>*/ i - 1 | 0;
+      var _v_ = i - 1 | 0;
       if(0 === i) break;
       i = _v_;
      }
     }
-    var _t_ = r[1];
-     /*<<string.ml:234:2>>*/ return [0, sub(s, 0, j[1]), _t_];
+    var _t_ =  /*<<string.ml:234:2>>*/ r[1];
+     /*<<string.ml:234:12>>*/ return [0,
+             /*<<string.ml:234:2>>*/ sub(s, 0, j[1]),
+            _t_] /*<<string.ml:234:12>>*/ ;
     /*<<string.ml:234:18>>*/ }
    var compare = runtime.caml_string_compare;
    function to_seq(s){
     var _r_ =  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
-    return caml_call1(Stdlib_Bytes[47], _r_) /*<<string.ml:243:32>>*/ ;
+     /*<<string.ml:243:20>>*/ return caml_call1(Stdlib_Bytes[47], _r_) /*<<string.ml:243:32>>*/ ;
    }
    function to_seqi(s){
     var _q_ =  /*<<string.ml:245:16>>*/ caml_call1(bos, s);
-    return caml_call1(Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
+     /*<<string.ml:245:21>>*/ return caml_call1(Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
    }
    function of_seq(g){
-     /*<<string.ml:247:15>>*/ return caml_call1
-            (bts, caml_call1(Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
+     /*<<string.ml:247:15>>*/ return  /*<<string.ml:247:25>>*/ caml_call1
+            (bts,  /*<<string.ml:247:15>>*/ caml_call1(Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
    }
    function get_utf_8_uchar(s, i){
     var _p_ =  /*<<string.ml:251:44>>*/ caml_call1(bos, s);
-     /*<<string.ml:251:26>>*/ return caml_call2(Stdlib_Bytes[50], _p_, i) /*<<string.ml:251:53>>*/ ;
+     /*<<string.ml:251:51>>*/ return caml_call2(Stdlib_Bytes[50], _p_, i) /*<<string.ml:251:53>>*/ ;
    }
    function is_valid_utf_8(s){
     var _o_ =  /*<<string.ml:252:40>>*/ caml_call1(bos, s);
-    return caml_call1(Stdlib_Bytes[52], _o_) /*<<string.ml:252:47>>*/ ;
+     /*<<string.ml:252:47>>*/ return caml_call1(Stdlib_Bytes[52], _o_);
    }
    function get_utf_16be_uchar(s, i){
     var _n_ =  /*<<string.ml:254:50>>*/ caml_call1(bos, s);
-     /*<<string.ml:254:29>>*/ return caml_call2(Stdlib_Bytes[53], _n_, i) /*<<string.ml:254:59>>*/ ;
+     /*<<string.ml:254:57>>*/ return caml_call2(Stdlib_Bytes[53], _n_, i) /*<<string.ml:254:59>>*/ ;
    }
    function is_valid_utf_16be(s){
     var _m_ =  /*<<string.ml:255:46>>*/ caml_call1(bos, s);
-    return caml_call1(Stdlib_Bytes[55], _m_) /*<<string.ml:255:53>>*/ ;
+     /*<<string.ml:255:53>>*/ return caml_call1(Stdlib_Bytes[55], _m_);
    }
    function get_utf_16le_uchar(s, i){
     var _l_ =  /*<<string.ml:257:50>>*/ caml_call1(bos, s);
-     /*<<string.ml:257:29>>*/ return caml_call2(Stdlib_Bytes[56], _l_, i) /*<<string.ml:257:59>>*/ ;
+     /*<<string.ml:257:57>>*/ return caml_call2(Stdlib_Bytes[56], _l_, i) /*<<string.ml:257:59>>*/ ;
    }
    function is_valid_utf_16le(s){
     var _k_ =  /*<<string.ml:258:46>>*/ caml_call1(bos, s);
-    return caml_call1(Stdlib_Bytes[58], _k_) /*<<string.ml:258:53>>*/ ;
+     /*<<string.ml:258:53>>*/ return caml_call1(Stdlib_Bytes[58], _k_);
    }
    function get_int8(s, i){
     var _j_ =  /*<<string.ml:267:30>>*/ caml_call1(bos, s);
-     /*<<string.ml:267:19>>*/ return caml_call2(Stdlib_Bytes[60], _j_, i) /*<<string.ml:267:39>>*/ ;
+     /*<<string.ml:267:37>>*/ return caml_call2(Stdlib_Bytes[60], _j_, i) /*<<string.ml:267:39>>*/ ;
    }
    function get_uint16_le(s, i){
     var _i_ =  /*<<string.ml:268:40>>*/ caml_call1(bos, s);
-     /*<<string.ml:268:24>>*/ return caml_call2(Stdlib_Bytes[63], _i_, i) /*<<string.ml:268:49>>*/ ;
+     /*<<string.ml:268:47>>*/ return caml_call2(Stdlib_Bytes[63], _i_, i) /*<<string.ml:268:49>>*/ ;
    }
    function get_uint16_be(s, i){
     var _h_ =  /*<<string.ml:269:40>>*/ caml_call1(bos, s);
-     /*<<string.ml:269:24>>*/ return caml_call2(Stdlib_Bytes[62], _h_, i) /*<<string.ml:269:49>>*/ ;
+     /*<<string.ml:269:47>>*/ return caml_call2(Stdlib_Bytes[62], _h_, i) /*<<string.ml:269:49>>*/ ;
    }
    function get_int16_ne(s, i){
     var _g_ =  /*<<string.ml:270:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:270:23>>*/ return caml_call2(Stdlib_Bytes[64], _g_, i) /*<<string.ml:270:47>>*/ ;
+     /*<<string.ml:270:45>>*/ return caml_call2(Stdlib_Bytes[64], _g_, i) /*<<string.ml:270:47>>*/ ;
    }
    function get_int16_le(s, i){
     var _f_ =  /*<<string.ml:271:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:271:23>>*/ return caml_call2(Stdlib_Bytes[66], _f_, i) /*<<string.ml:271:47>>*/ ;
+     /*<<string.ml:271:45>>*/ return caml_call2(Stdlib_Bytes[66], _f_, i) /*<<string.ml:271:47>>*/ ;
    }
    function get_int16_be(s, i){
     var _e_ =  /*<<string.ml:272:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:272:23>>*/ return caml_call2(Stdlib_Bytes[65], _e_, i) /*<<string.ml:272:47>>*/ ;
+     /*<<string.ml:272:45>>*/ return caml_call2(Stdlib_Bytes[65], _e_, i) /*<<string.ml:272:47>>*/ ;
    }
    function get_int32_le(s, i){
     var _d_ =  /*<<string.ml:273:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:273:23>>*/ return caml_call2(Stdlib_Bytes[69], _d_, i) /*<<string.ml:273:47>>*/ ;
+     /*<<string.ml:273:45>>*/ return caml_call2(Stdlib_Bytes[69], _d_, i) /*<<string.ml:273:47>>*/ ;
    }
    function get_int32_be(s, i){
     var _c_ =  /*<<string.ml:274:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:274:23>>*/ return caml_call2(Stdlib_Bytes[68], _c_, i) /*<<string.ml:274:47>>*/ ;
+     /*<<string.ml:274:45>>*/ return caml_call2(Stdlib_Bytes[68], _c_, i) /*<<string.ml:274:47>>*/ ;
    }
    function get_int64_le(s, i){
     var _b_ =  /*<<string.ml:275:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:275:23>>*/ return caml_call2(Stdlib_Bytes[72], _b_, i) /*<<string.ml:275:47>>*/ ;
+     /*<<string.ml:275:45>>*/ return caml_call2(Stdlib_Bytes[72], _b_, i) /*<<string.ml:275:47>>*/ ;
    }
    function get_int64_be(s, i){
     var _a_ =  /*<<string.ml:276:38>>*/ caml_call1(bos, s);
-     /*<<string.ml:276:23>>*/ return caml_call2(Stdlib_Bytes[71], _a_, i) /*<<string.ml:276:47>>*/ ;
+     /*<<string.ml:276:45>>*/ return caml_call2(Stdlib_Bytes[71], _a_, i) /*<<string.ml:276:47>>*/ ;
    }
    var
     Stdlib_String =
@@ -6752,7 +6944,7 @@
    function to_buffer(buff, ofs, len, v, flags){
      /*<<marshal.ml:34:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(buff) - len | 0) >= ofs)
-      /*<<marshal.ml:36:7>>*/ return runtime.caml_output_value_to_buffer
+      /*<<marshal.ml:36:44>>*/ return  /*<<marshal.ml:36:7>>*/ runtime.caml_output_value_to_buffer
              (buff, ofs, len, v, flags) /*<<marshal.ml:36:44>>*/ ;
      /*<<marshal.ml:35:7>>*/ return caml_call1
             (Stdlib[1], cst_Marshal_to_buffer_substrin) /*<<marshal.ml:36:44>>*/ ;
@@ -6764,20 +6956,24 @@
    function data_size(buff, ofs){
      /*<<marshal.ml:50:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs)
-      /*<<marshal.ml:52:7>>*/ return caml_marshal_data_size(buff, ofs) /*<<marshal.ml:52:32>>*/ ;
+      /*<<marshal.ml:52:32>>*/ return  /*<<marshal.ml:52:7>>*/ caml_marshal_data_size
+             (buff, ofs) /*<<marshal.ml:52:32>>*/ ;
      /*<<marshal.ml:51:7>>*/ return caml_call1
             (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
    }
    function total_size(buff, ofs){
      /*<<marshal.ml:53:26>>*/ return 16
            +  /*<<marshal.ml:53:40>>*/ data_size(buff, ofs)
-           | 0;
-    /*<<marshal.ml:53:58>>*/ }
+           | 0 /*<<marshal.ml:53:58>>*/ ;
+   }
    function from_bytes(buff, ofs){
      /*<<marshal.ml:56:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs){
      var len =  /*<<marshal.ml:59:14>>*/ caml_marshal_data_size(buff, ofs);
-     return (caml_ml_bytes_length(buff) - (16 + len | 0) | 0) < ofs
+      /*<<marshal.ml:60:4>>*/ return (caml_ml_bytes_length(buff)
+             - (16 + len | 0)
+             | 0)
+             < ofs
              ?  /*<<marshal.ml:61:9>>*/ caml_call1
                (Stdlib[1], cst_Marshal_from_bytes$0)
              :  /*<<marshal.ml:62:9>>*/ runtime.caml_input_value_from_bytes
@@ -6787,7 +6983,7 @@
             (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
    }
    function from_string(buff, ofs){
-     /*<<marshal.ml:68:2>>*/ return from_bytes
+     /*<<marshal.ml:68:2>>*/ return  /*<<marshal.ml:68:42>>*/ from_bytes
             ( /*<<marshal.ml:68:13>>*/ caml_call1(Stdlib_Bytes[45], buff),
              ofs) /*<<marshal.ml:68:46>>*/ ;
    }
@@ -6839,7 +7035,7 @@
     Stdlib_Seq = global_data.Stdlib__Seq,
     Assert_failure = global_data.Assert_failure,
     Stdlib = global_data.Stdlib,
-    Floatarray =  /*<<array.ml:37:20>>*/ [0],
+    Floatarray = [0],
     cst_Array_init = "Array.init",
     cst_Array_make_matrix = "Array.make_matrix",
     cst_Array_init_matrix = "Array.init_matrix",
@@ -6855,20 +7051,20 @@
     cst_Array_combine = "Array.combine";
    function init(l, f){
      /*<<array.ml:48:2>>*/ if(0 === l)  /*<<array.ml:48:16>>*/ return [0];
-    if(0 > l)
+     /*<<array.ml:49:2>>*/ if(0 > l)
       /*<<array.ml:49:16>>*/ return caml_call1(Stdlib[1], cst_Array_init) /*<<array.ml:58:6>>*/ ;
     var
      res =
         /*<<array.ml:54:13>>*/ caml_make_vect
         (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
      _aE_ =  /*<<array.ml:55:3>>*/ l - 1 | 0,
-     _aD_ =  /*<<array.ml:54:13>>*/ 1;
-    if(_aE_ >= 1){
+     _aD_ =  /*<<array.ml:54:27>>*/ 1;
+     /*<<array.ml:55:3>>*/ if(_aE_ >= 1){
      var i = _aD_;
      for(;;){
        /*<<array.ml:56:5>>*/ res[1 + i] =
         /*<<array.ml:56:22>>*/ caml_call1(f, i);
-      var _aF_ =  /*<<array.ml:56:5>>*/ i + 1 | 0;
+      var _aF_ =  /*<<array.ml:56:27>>*/ i + 1 | 0;
       if(_aE_ === i) break;
       i = _aF_;
      }
@@ -6879,13 +7075,14 @@
      /*<<array.ml:62:2>>*/ if(sy < 0)
       /*<<array.ml:62:17>>*/ caml_call1(Stdlib[1], cst_Array_make_matrix);
     var res =  /*<<array.ml:63:12>>*/ caml_make_vect(sx, [0]);
-    if(0 < sy){
-     var _aB_ = sx - 1 | 0, _aA_ =  /*<<array.ml:64:17>>*/ 0;
+     /*<<array.ml:64:2>>*/ if(0 < sy){
+     var _aB_ =  /*<<array.ml:64:17>>*/ sx - 1 | 0, _aA_ = 0;
      if(_aB_ >= 0){
       var x = _aA_;
       for(;;){
-       res[1 + x] =  /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
-       var _aC_ =  /*<<array.ml:64:17>>*/ x + 1 | 0;
+        /*<<array.ml:66:39>>*/ res[1 + x] =
+         /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
+       var _aC_ =  /*<<array.ml:66:39>>*/ x + 1 | 0;
        if(_aB_ === x) break;
        x = _aC_;
       }
@@ -6897,8 +7094,8 @@
      /*<<array.ml:73:2>>*/ if(sy < 0)
       /*<<array.ml:73:17>>*/ caml_call1(Stdlib[1], cst_Array_init_matrix);
     var res =  /*<<array.ml:74:12>>*/ caml_make_vect(sx, [0]);
-    if(0 < sy){
-     var _av_ = sx - 1 | 0, _au_ =  /*<<array.ml:76:17>>*/ 0;
+     /*<<array.ml:76:2>>*/ if(0 < sy){
+     var _av_ =  /*<<array.ml:76:17>>*/ sx - 1 | 0, _au_ = 0;
      if(_av_ >= 0){
       var x = _au_;
       for(;;){
@@ -6907,19 +7104,19 @@
            /*<<array.ml:78:16>>*/ caml_make_vect
            (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
         _ax_ =  /*<<array.ml:79:6>>*/ sy - 1 | 0,
-        _aw_ =  /*<<array.ml:78:16>>*/ 1;
-       if(_ax_ >= 1){
+        _aw_ =  /*<<array.ml:78:33>>*/ 1;
+        /*<<array.ml:79:6>>*/ if(_ax_ >= 1){
         var y = _aw_;
         for(;;){
           /*<<array.ml:80:8>>*/ row[1 + y] =
            /*<<array.ml:80:25>>*/ caml_call2(f, x, y);
-         var _az_ =  /*<<array.ml:80:8>>*/ y + 1 | 0;
+         var _az_ =  /*<<array.ml:80:32>>*/ y + 1 | 0;
          if(_ax_ === y) break;
          y = _az_;
         }
        }
-       res[1 + x] = row;
-       var _ay_ =  /*<<array.ml:76:17>>*/ x + 1 | 0;
+        /*<<array.ml:82:6>>*/ res[1 + x] = row;
+       var _ay_ = x + 1 | 0;
        if(_av_ === x) break;
        x = _ay_;
       }
@@ -6928,13 +7125,13 @@
      /*<<array.ml:85:2>>*/ return res;
     /*<<array.ml:85:5>>*/ }
    function copy(a){
-    var l = a.length - 1;
+    var l =  /*<<array.ml:88:2>>*/ a.length - 1;
      /*<<array.ml:88:22>>*/ return 0 === l
             ? [0]
             :  /*<<array.ml:88:46>>*/ caml_array_sub(a, 0, l) /*<<array.ml:88:62>>*/ ;
    }
    function append(a1, a2){
-    var l1 = a1.length - 1;
+    var l1 =  /*<<array.ml:91:2>>*/ a1.length - 1;
      /*<<array.ml:92:2>>*/ return 0 === l1
             ?  /*<<array.ml:92:17>>*/ copy(a2)
             : 0
@@ -6945,13 +7142,15 @@
    function sub(a, ofs, len){
      /*<<array.ml:97:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
-      /*<<array.ml:99:7>>*/ return caml_array_sub(a, ofs, len) /*<<array.ml:99:27>>*/ ;
+      /*<<array.ml:99:27>>*/ return  /*<<array.ml:99:7>>*/ caml_array_sub
+             (a, ofs, len) /*<<array.ml:99:27>>*/ ;
      /*<<array.ml:98:7>>*/ return caml_call1(Stdlib[1], cst_Array_sub) /*<<array.ml:99:27>>*/ ;
    }
    function fill(a, ofs, len, v){
      /*<<array.ml:102:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
-      /*<<array.ml:104:7>>*/ return runtime.caml_array_fill(a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
+      /*<<array.ml:104:30>>*/ return  /*<<array.ml:104:7>>*/ runtime.caml_array_fill
+             (a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
      /*<<array.ml:103:7>>*/ return caml_call1(Stdlib[1], cst_Array_fill) /*<<array.ml:104:30>>*/ ;
    }
    function blit(a1, ofs1, a2, ofs2, len){
@@ -6962,17 +7161,17 @@
        &&
         (a1.length - 1 - len | 0) >= ofs1
         && 0 <= ofs2 && (a2.length - 1 - len | 0) >= ofs2)
-      /*<<array.ml:110:7>>*/ return runtime.caml_array_blit
+      /*<<array.ml:110:38>>*/ return  /*<<array.ml:110:7>>*/ runtime.caml_array_blit
              (a1, ofs1, a2, ofs2, len) /*<<array.ml:110:38>>*/ ;
      /*<<array.ml:109:7>>*/ return caml_call1(Stdlib[1], cst_Array_blit) /*<<array.ml:110:38>>*/ ;
    }
    function iter(f, a){
-    var _as_ = a.length - 2 | 0, _ar_ =  /*<<array.ml:113:2>>*/ 0;
+    var _as_ =  /*<<array.ml:113:2>>*/ a.length - 2 | 0, _ar_ = 0;
     if(_as_ >= 0){
      var i = _ar_;
      for(;;){
        /*<<array.ml:113:31>>*/ caml_call1(f, a[1 + i]);
-      var _at_ = i + 1 | 0;
+      var _at_ =  /*<<array.ml:113:48>>*/ i + 1 | 0;
       if(_as_ === i) break;
       i = _at_;
      }
@@ -6983,12 +7182,12 @@
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
       /*<<array.ml:117:4>>*/ return caml_call1
              (Stdlib[1], cst_Array_iter2_arrays_must_ha) /*<<array.ml:119:73>>*/ ;
-    var _ap_ = a.length - 2 | 0, _ao_ =  /*<<array.ml:119:4>>*/ 0;
+    var _ap_ =  /*<<array.ml:119:4>>*/ a.length - 2 | 0, _ao_ = 0;
     if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
        /*<<array.ml:119:33>>*/ caml_call2(f, a[1 + i], b[1 + i]);
-      var _aq_ = i + 1 | 0;
+      var _aq_ =  /*<<array.ml:119:68>>*/ i + 1 | 0;
       if(_ap_ === i) break;
       i = _aq_;
      }
@@ -6996,20 +7195,20 @@
     return 0;
     /*<<array.ml:119:73>>*/ }
    function map(f, a){
-    var l = a.length - 1;
+    var l =  /*<<array.ml:122:2>>*/ a.length - 1;
      /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
     var
      r =
         /*<<array.ml:124:12>>*/ caml_make_vect
         (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
      _am_ =  /*<<array.ml:125:4>>*/ l - 1 | 0,
-     _al_ =  /*<<array.ml:124:12>>*/ 1;
-    if(_am_ >= 1){
+     _al_ =  /*<<array.ml:124:40>>*/ 1;
+     /*<<array.ml:125:4>>*/ if(_am_ >= 1){
      var i = _al_;
      for(;;){
        /*<<array.ml:126:6>>*/ r[1 + i] =
         /*<<array.ml:126:21>>*/ caml_call1(f, a[1 + i]);
-      var _an_ =  /*<<array.ml:126:6>>*/ i + 1 | 0;
+      var _an_ =  /*<<array.ml:126:40>>*/ i + 1 | 0;
       if(_am_ === i) break;
       i = _an_;
      }
@@ -7017,13 +7216,13 @@
      /*<<array.ml:128:4>>*/ return r;
     /*<<array.ml:129:5>>*/ }
    function map_inplace(f, a){
-    var _aj_ = a.length - 2 | 0, _ai_ =  /*<<array.ml:132:2>>*/ 0;
+    var _aj_ =  /*<<array.ml:132:2>>*/ a.length - 2 | 0, _ai_ = 0;
     if(_aj_ >= 0){
      var i = _ai_;
      for(;;){
        /*<<array.ml:133:4>>*/ a[1 + i] =
         /*<<array.ml:133:19>>*/ caml_call1(f, a[1 + i]);
-      var _ak_ =  /*<<array.ml:133:4>>*/ i + 1 | 0;
+      var _ak_ =  /*<<array.ml:133:39>>*/ i + 1 | 0;
       if(_aj_ === i) break;
       i = _ak_;
      }
@@ -7031,13 +7230,13 @@
     return 0;
     /*<<array.ml:134:6>>*/ }
    function mapi_inplace(f, a){
-    var _ag_ = a.length - 2 | 0, _af_ =  /*<<array.ml:137:2>>*/ 0;
+    var _ag_ =  /*<<array.ml:137:2>>*/ a.length - 2 | 0, _af_ = 0;
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
        /*<<array.ml:138:4>>*/ a[1 + i] =
         /*<<array.ml:138:19>>*/ caml_call2(f, i, a[1 + i]);
-      var _ah_ =  /*<<array.ml:138:4>>*/ i + 1 | 0;
+      var _ah_ =  /*<<array.ml:138:41>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _ah_;
      }
@@ -7045,23 +7244,25 @@
     return 0;
     /*<<array.ml:139:6>>*/ }
    function map2(f, a, b){
-    var la = a.length - 1, lb =  /*<<array.ml:143:2>>*/ b.length - 1;
-    if(la !== lb)
+    var
+     la =  /*<<array.ml:142:2>>*/ a.length - 1,
+     lb =  /*<<array.ml:143:2>>*/ b.length - 1;
+     /*<<array.ml:144:2>>*/ if(la !== lb)
       /*<<array.ml:145:4>>*/ return caml_call1
              (Stdlib[1], cst_Array_map2_arrays_must_hav) /*<<array.ml:154:5>>*/ ;
-    if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
+     /*<<array.ml:146:7>>*/ if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
     var
      r =
         /*<<array.ml:148:14>>*/ caml_make_vect
         (la,  /*<<array.ml:148:24>>*/ caml_call2(f, a[1], b[1])),
      _ad_ =  /*<<array.ml:149:6>>*/ la - 1 | 0,
-     _ac_ =  /*<<array.ml:148:14>>*/ 1;
-    if(_ad_ >= 1){
+     _ac_ =  /*<<array.ml:148:61>>*/ 1;
+     /*<<array.ml:149:6>>*/ if(_ad_ >= 1){
      var i = _ac_;
      for(;;){
        /*<<array.ml:150:8>>*/ r[1 + i] =
         /*<<array.ml:150:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
-      var _ae_ =  /*<<array.ml:150:8>>*/ i + 1 | 0;
+      var _ae_ =  /*<<array.ml:150:60>>*/ i + 1 | 0;
       if(_ad_ === i) break;
       i = _ae_;
      }
@@ -7069,12 +7270,12 @@
      /*<<array.ml:152:6>>*/ return r;
     /*<<array.ml:154:5>>*/ }
    function iteri(f, a){
-    var _aa_ = a.length - 2 | 0, _$_ =  /*<<array.ml:157:2>>*/ 0;
+    var _aa_ =  /*<<array.ml:157:2>>*/ a.length - 2 | 0, _$_ = 0;
     if(_aa_ >= 0){
      var i = _$_;
      for(;;){
        /*<<array.ml:157:31>>*/ caml_call2(f, i, a[1 + i]);
-      var _ab_ = i + 1 | 0;
+      var _ab_ =  /*<<array.ml:157:51>>*/ i + 1 | 0;
       if(_aa_ === i) break;
       i = _ab_;
      }
@@ -7082,20 +7283,20 @@
     return 0;
     /*<<array.ml:157:56>>*/ }
    function mapi(f, a){
-    var l = a.length - 1;
+    var l =  /*<<array.ml:160:2>>*/ a.length - 1;
      /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
     var
      r =
         /*<<array.ml:162:12>>*/ caml_make_vect
         (l,  /*<<array.ml:162:21>>*/ caml_call2(f, 0, a[1])),
      _Z_ =  /*<<array.ml:163:4>>*/ l - 1 | 0,
-     _Y_ =  /*<<array.ml:162:12>>*/ 1;
-    if(_Z_ >= 1){
+     _Y_ =  /*<<array.ml:162:43>>*/ 1;
+     /*<<array.ml:163:4>>*/ if(_Z_ >= 1){
      var i = _Y_;
      for(;;){
        /*<<array.ml:164:6>>*/ r[1 + i] =
         /*<<array.ml:164:21>>*/ caml_call2(f, i, a[1 + i]);
-      var ___ =  /*<<array.ml:164:6>>*/ i + 1 | 0;
+      var ___ =  /*<<array.ml:164:43>>*/ i + 1 | 0;
       if(_Z_ === i) break;
       i = ___;
      }
@@ -7103,10 +7304,10 @@
      /*<<array.ml:166:4>>*/ return r;
     /*<<array.ml:167:5>>*/ }
    function to_list(a){
-    var i$1 = a.length - 2 | 0, i = i$1, res = 0;
+    var i$1 =  /*<<array.ml:172:2>>*/ a.length - 2 | 0, i = i$1, res = 0;
      /*<<array.ml:171:4>>*/ for(;;){
      if(0 > i)  /*<<array.ml:171:18>>*/ return res;
-     var res$0 =  /*<<array.ml:171:42>>*/ [0, a[1 + i], res], i$0 = i - 1 | 0;
+     var res$0 =  /*<<array.ml:171:57>>*/ [0, a[1 + i], res], i$0 = i - 1 | 0;
      i = i$0;
      res = res$0;
     }
@@ -7131,50 +7332,54 @@
      i = 1,
      param = tl;
      /*<<array.ml:183:19>>*/ for(;;){
-     if(! param)  /*<<array.ml:183:6>>*/ return a;
+     if(! param)  /*<<array.ml:184:16>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
-     var i$0 =  /*<<array.ml:183:6>>*/ i + 1 | 0;
+     var i$0 =  /*<<array.ml:185:37>>*/ i + 1 | 0;
      i = i$0;
      param = tl$0;
     }
     /*<<array.ml:186:15>>*/ }
    function fold_left(f, x, a){
-    var r =  /*<<array.ml:189:10>>*/ [0, x], _W_ = a.length - 2 | 0, _V_ = 0;
-    if(_W_ >= 0){
+    var
+     r =  /*<<array.ml:189:2>>*/ [0, x],
+     _W_ =  /*<<array.ml:190:2>>*/ a.length - 2 | 0,
+     _V_ =  /*<<array.ml:189:2>>*/ 0;
+     /*<<array.ml:190:2>>*/ if(_W_ >= 0){
      var i = _V_;
      for(;;){
-      r[1] =  /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
-      var _X_ =  /*<<array.ml:190:2>>*/ i + 1 | 0;
+       /*<<array.ml:191:30>>*/ r[1] =
+        /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
+      var _X_ =  /*<<array.ml:191:30>>*/ i + 1 | 0;
       if(_W_ === i) break;
       i = _X_;
      }
     }
-    return r[1];
+     /*<<array.ml:193:2>>*/ return r[1];
     /*<<array.ml:193:4>>*/ }
    function fold_left_map(f, acc, input_array){
-    var len = input_array.length - 1;
+    var len =  /*<<array.ml:196:2>>*/ input_array.length - 1;
      /*<<array.ml:197:2>>*/ if(0 === len)
       /*<<array.ml:197:18>>*/ return [0, acc, [0]];
     var
      match =  /*<<array.ml:198:19>>*/ caml_call2(f, acc, input_array[1]),
-     elt = match[2],
+     elt =  /*<<array.ml:198:51>>*/ match[2],
      acc$0 = match[1],
      output_array =  /*<<array.ml:199:23>>*/ caml_make_vect(len, elt),
-     acc$1 =  /*<<array.ml:200:14>>*/ [0, acc$0],
+     acc$1 =  /*<<array.ml:200:4>>*/ [0, acc$0],
      _T_ =  /*<<array.ml:201:4>>*/ len - 1 | 0,
-     _S_ =  /*<<array.ml:200:14>>*/ 1;
-    if(_T_ >= 1){
+     _S_ =  /*<<array.ml:200:4>>*/ 1;
+     /*<<array.ml:201:4>>*/ if(_T_ >= 1){
      var i = _S_;
      for(;;){
       var
        match$0 =
           /*<<array.ml:202:22>>*/ caml_call2(f, acc$1[1], input_array[1 + i]),
-       elt$0 = match$0[2],
+       elt$0 =  /*<<array.ml:202:55>>*/ match$0[2],
        acc$2 = match$0[1];
-      acc$1[1] = acc$2;
+       /*<<array.ml:203:6>>*/ acc$1[1] = acc$2;
        /*<<array.ml:204:6>>*/ output_array[1 + i] = elt$0;
-      var _U_ =  /*<<array.ml:201:4>>*/ i + 1 | 0;
+      var _U_ =  /*<<array.ml:204:35>>*/ i + 1 | 0;
       if(_T_ === i) break;
       i = _U_;
      }
@@ -7183,121 +7388,129 @@
     /*<<array.ml:207:5>>*/ }
    function fold_right(f, a, x){
     var
-     r =  /*<<array.ml:210:10>>*/ [0, x],
+     r =  /*<<array.ml:210:2>>*/ [0, x],
      _Q_ =  /*<<array.ml:211:2>>*/ a.length - 2 | 0;
     if(_Q_ >= 0){
      var i = _Q_;
      for(;;){
-      r[1] =  /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
-      var _R_ =  /*<<array.ml:211:2>>*/ i - 1 | 0;
+       /*<<array.ml:212:30>>*/ r[1] =
+        /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
+      var _R_ =  /*<<array.ml:212:30>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _R_;
      }
     }
-    return r[1];
+     /*<<array.ml:214:2>>*/ return r[1];
     /*<<array.ml:214:4>>*/ }
    function exists(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:217:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:219:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:219:18>>*/ return 0;
-      /*<<array.ml:220:12>>*/ if(caml_call1(p, a[1 + i]))
+      /*<<array.ml:220:30>>*/ if
+      ( /*<<array.ml:220:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:220:36>>*/ return 1;
      var i$0 =  /*<<array.ml:221:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:222:8>>*/ }
    function for_all(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:225:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:227:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:227:18>>*/ return 1;
-      /*<<array.ml:228:12>>*/ if(! caml_call1(p, a[1 + i]))
+      /*<<array.ml:228:30>>*/ if
+      (!  /*<<array.ml:228:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:229:9>>*/ return 0;
      var i$0 =  /*<<array.ml:228:36>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:230:8>>*/ }
    function for_all2(p, l1, l2){
-    var n1 = l1.length - 1, n2 = l2.length - 1;
-    if(n1 !== n2)
+    var n1 =  /*<<array.ml:233:2>>*/ l1.length - 1, n2 = l2.length - 1;
+     /*<<array.ml:235:2>>*/ if(n1 !== n2)
       /*<<array.ml:235:19>>*/ return caml_call1(Stdlib[1], cst_Array_for_all2) /*<<array.ml:240:8>>*/ ;
     var i = 0;
      /*<<array.ml:237:4>>*/ for(;;){
      if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
-      /*<<array.ml:238:12>>*/ if(! caml_call2(p, l1[1 + i], l2[1 + i]))
+      /*<<array.ml:238:49>>*/ if
+      (!  /*<<array.ml:238:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:239:9>>*/ return 0;
      var i$0 =  /*<<array.ml:238:55>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:240:8>>*/ }
    function exists2(p, l1, l2){
-    var n1 = l1.length - 1, n2 = l2.length - 1;
-    if(n1 !== n2)
+    var n1 =  /*<<array.ml:243:2>>*/ l1.length - 1, n2 = l2.length - 1;
+     /*<<array.ml:245:2>>*/ if(n1 !== n2)
       /*<<array.ml:245:19>>*/ return caml_call1(Stdlib[1], cst_Array_exists2) /*<<array.ml:250:8>>*/ ;
     var i = 0;
      /*<<array.ml:247:4>>*/ for(;;){
      if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
-      /*<<array.ml:248:12>>*/ if(caml_call2(p, l1[1 + i], l2[1 + i]))
+      /*<<array.ml:248:49>>*/ if
+      ( /*<<array.ml:248:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:248:55>>*/ return 1;
      var i$0 =  /*<<array.ml:249:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:250:8>>*/ }
    function mem(x, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:253:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:255:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:255:18>>*/ return 0;
-      /*<<array.ml:256:12>>*/ if(0 === runtime.caml_compare(a[1 + i], x))
+      /*<<array.ml:256:38>>*/ if
+      (0 ===  /*<<array.ml:256:12>>*/ runtime.caml_compare(a[1 + i], x))
        /*<<array.ml:256:48>>*/ return 1;
      var i$0 =  /*<<array.ml:257:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:258:8>>*/ }
    function memq(x, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:261:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:263:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:263:18>>*/ return 0;
-     if(x === a[1 + i])  /*<<array.ml:264:39>>*/ return 1;
+      /*<<array.ml:264:33>>*/ if(x === a[1 + i])
+       /*<<array.ml:264:39>>*/ return 1;
      var i$0 =  /*<<array.ml:265:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:266:8>>*/ }
    function find_opt(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:269:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:271:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:271:18>>*/ return 0;
      var x =  /*<<array.ml:273:14>>*/ a[1 + i];
-      /*<<array.ml:274:9>>*/ if(caml_call1(p, x))
+      /*<<array.ml:274:12>>*/ if( /*<<array.ml:274:9>>*/ caml_call1(p, x))
        /*<<array.ml:274:18>>*/ return [0, x];
      var i$0 =  /*<<array.ml:275:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:277:8>>*/ }
    function find_index(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:280:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:282:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:282:18>>*/ return 0;
-      /*<<array.ml:283:12>>*/ if(caml_call1(p, a[1 + i]))
+      /*<<array.ml:283:30>>*/ if
+      ( /*<<array.ml:283:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:283:36>>*/ return [0, i];
      var i$0 =  /*<<array.ml:284:9>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:285:8>>*/ }
    function find_map(f, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:288:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:290:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:290:18>>*/ return 0;
      var r =  /*<<array.ml:292:12>>*/ caml_call1(f, a[1 + i]);
-     if(r)  /*<<array.ml:294:23>>*/ return r;
+      /*<<array.ml:292:30>>*/ if(r)  /*<<array.ml:294:23>>*/ return r;
      var i$0 =  /*<<array.ml:293:16>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<array.ml:296:8>>*/ }
    function find_mapi(f, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<array.ml:299:2>>*/ a.length - 1, i = 0;
      /*<<array.ml:301:4>>*/ for(;;){
      if(i === n)  /*<<array.ml:301:18>>*/ return 0;
      var r =  /*<<array.ml:303:12>>*/ caml_call2(f, i, a[1 + i]);
-     if(r)  /*<<array.ml:305:23>>*/ return r;
+      /*<<array.ml:303:32>>*/ if(r)  /*<<array.ml:305:23>>*/ return r;
      var i$0 =  /*<<array.ml:304:16>>*/ i + 1 | 0;
      i = i$0;
     }
@@ -7307,21 +7520,24 @@
      ( /*<<array.ml:310:5>>*/ runtime.caml_equal(x, [0]))
       /*<<array.ml:310:19>>*/ return [0, [0], [0]];
     var
-     match = x[1],
+     match =  /*<<array.ml:311:7>>*/ x[1],
      b0 = match[2],
      a0 = match[1],
      n =  /*<<array.ml:313:4>>*/ x.length - 1,
      a =  /*<<array.ml:314:12>>*/ caml_make_vect(n, a0),
      b =  /*<<array.ml:315:12>>*/ caml_make_vect(n, b0),
      _O_ =  /*<<array.ml:316:4>>*/ n - 1 | 0,
-     _N_ =  /*<<array.ml:315:12>>*/ 1;
-    if(_O_ >= 1){
+     _N_ =  /*<<array.ml:315:23>>*/ 1;
+     /*<<array.ml:316:4>>*/ if(_O_ >= 1){
      var i = _N_;
      for(;;){
-      var match$0 = x[1 + i], bi = match$0[2], ai = match$0[1];
+      var
+       match$0 =  /*<<array.ml:317:6>>*/ 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;
-      var _P_ =  /*<<array.ml:316:4>>*/ i + 1 | 0;
+      var _P_ =  /*<<array.ml:319:23>>*/ i + 1 | 0;
       if(_O_ === i) break;
       i = _P_;
      }
@@ -7329,19 +7545,21 @@
      /*<<array.ml:321:4>>*/ return [0, a, b];
     /*<<array.ml:322:5>>*/ }
    function combine(a, b){
-    var na = a.length - 1, nb =  /*<<array.ml:326:2>>*/ b.length - 1;
-    if(na !== nb)
+    var
+     na =  /*<<array.ml:325:2>>*/ a.length - 1,
+     nb =  /*<<array.ml:326:2>>*/ b.length - 1;
+     /*<<array.ml:327:2>>*/ if(na !== nb)
       /*<<array.ml:327:19>>*/ caml_call1(Stdlib[1], cst_Array_combine);
     if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
     var
      x =  /*<<array.ml:330:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
      _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
-     _K_ =  /*<<array.ml:330:12>>*/ 1;
-    if(_L_ >= 1){
+     _K_ =  /*<<array.ml:330:54>>*/ 1;
+     /*<<array.ml:331:4>>*/ if(_L_ >= 1){
      var i = _K_;
      for(;;){
-      x[1 + i] = [0, a[1 + i], b[1 + i]];
-      var _M_ =  /*<<array.ml:331:4>>*/ i + 1 | 0;
+       /*<<array.ml:332:36>>*/ x[1 + i] = [0, a[1 + i], b[1 + i]];
+      var _M_ = i + 1 | 0;
       if(_L_ === i) break;
       i = _M_;
      }
@@ -7349,59 +7567,70 @@
      /*<<array.ml:334:4>>*/ return x;
     /*<<array.ml:335:5>>*/ }
    var
-    Bottom =
-       /*<<array.ml:337:0>>*/ [248,
-       "Stdlib.Array.Bottom",
-       runtime.caml_fresh_oo_id(0)],
+    Bottom = [248, "Stdlib.Array.Bottom", runtime.caml_fresh_oo_id(0)],
     _a_ = [0, "array.ml", 369, 4];
    function sort(cmp, a){
     function maxson(l, i){
      var
-      i31 = ((i + i | 0) + i | 0) + 1 | 0,
-      x =  /*<<array.ml:341:12>>*/ [0, i31];
-     if((i31 + 2 | 0) < l){
+      i31 =  /*<<array.ml:340:4>>*/ ((i + i | 0) + i | 0) + 1 | 0,
+      x =  /*<<array.ml:341:4>>*/ [0, i31];
+      /*<<array.ml:342:4>>*/ if((i31 + 2 | 0) < l){
       var
        _D_ =  /*<<array.ml:342:22>>*/ i31 + 1 | 0,
        _E_ =  /*<<array.ml:343:25>>*/ caml_check_bound(a, _D_)[1 + _D_];
-      if
+       /*<<array.ml:343:40>>*/ if
        ( /*<<array.ml:343:9>>*/ caml_call2
-         (cmp, caml_check_bound(a, i31)[1 + i31], _E_)
+         (cmp,
+           /*<<array.ml:343:13>>*/ caml_check_bound(a, i31)[1 + i31],
+          _E_)
         < 0)
-       x[1] = i31 + 1 | 0;
+        /*<<array.ml:343:50>>*/ x[1] = i31 + 1 | 0;
       var
        _F_ =  /*<<array.ml:344:6>>*/ i31 + 2 | 0,
        _G_ =  /*<<array.ml:344:24>>*/ caml_check_bound(a, _F_)[1 + _F_],
-       _H_ = x[1];
+       _H_ =  /*<<array.ml:344:39>>*/ x[1];
       if
        ( /*<<array.ml:344:9>>*/ caml_call2
-         (cmp, caml_check_bound(a, _H_)[1 + _H_], _G_)
+         (cmp,
+           /*<<array.ml:344:13>>*/ caml_check_bound(a, _H_)[1 + _H_],
+          _G_)
         < 0)
-       x[1] = i31 + 2 | 0;
-      return x[1];
+        /*<<array.ml:344:49>>*/ x[1] = i31 + 2 | 0;
+       /*<<array.ml:345:6>>*/ return x[1];
      }
-     if((i31 + 1 | 0) < l){
+      /*<<array.ml:347:6>>*/ if((i31 + 1 | 0) < l){
       var
        _I_ = i31 + 1 | 0,
        _J_ =  /*<<array.ml:347:38>>*/ caml_check_bound(a, _I_)[1 + _I_];
-       /*<<array.ml:347:22>>*/ if
-       (0 > caml_call2(cmp, caml_check_bound(a, i31)[1 + i31], _J_))
+       /*<<array.ml:347:53>>*/ if
+       (0
+        >
+          /*<<array.ml:347:22>>*/ caml_call2
+          (cmp,
+            /*<<array.ml:347:26>>*/ caml_check_bound(a, i31)[1 + i31],
+           _J_))
         /*<<array.ml:348:11>>*/ return i31 + 1 | 0;
      }
-     if(i31 < l)  /*<<array.ml:349:27>>*/ return i31;
+      /*<<array.ml:349:11>>*/ if(i31 < l)  /*<<array.ml:349:27>>*/ return i31;
       /*<<array.ml:349:36>>*/ throw 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;
+    var
+     l =  /*<<array.ml:377:2>>*/ a.length - 1,
+     _x_ =  /*<<array.ml:378:2>>*/ ((l + 1 | 0) / 3 | 0) - 1 | 0;
     if(_x_ >= 0){
      var i$6 = _x_;
      for(;;){
       var e$1 =  /*<<array.ml:378:50>>*/ caml_check_bound(a, i$6)[1 + i$6];
-       /*<<array.ml:360:22>>*/ try{
+      try{
        var i = i$6;
         /*<<array.ml:352:4>>*/ for(;;){
         var j =  /*<<array.ml:352:12>>*/ maxson(l, i);
-         /*<<array.ml:353:7>>*/ if
-         (0 >= caml_call2(cmp, caml_check_bound(a, j)[1 + j], e$1))
+         /*<<array.ml:353:22>>*/ if
+         (0
+          >=
+            /*<<array.ml:353:7>>*/ caml_call2
+            (cmp,  /*<<array.ml:353:11>>*/ caml_check_bound(a, j)[1 + j], e$1))
          break;
         var _u_ =  /*<<array.ml:354:14>>*/ caml_check_bound(a, j)[1 + j];
          /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
@@ -7415,7 +7644,7 @@
        var i$0 = exn[2];
         /*<<array.ml:360:61>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
-      var _C_ =  /*<<array.ml:378:38>>*/ i$6 - 1 | 0;
+      var _C_ =  /*<<array.ml:378:59>>*/ i$6 - 1 | 0;
       if(0 === i$6) break;
       i$6 = _C_;
      }
@@ -7425,9 +7654,10 @@
      var i$4 = _y_;
      for(;;){
       var e$0 =  /*<<array.ml:380:12>>*/ caml_check_bound(a, i$4)[1 + i$4];
-       /*<<array.ml:381:4>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
-      var i$5 = 0;
-       /*<<array.ml:366:19>>*/ try{
+       /*<<array.ml:381:4>>*/ a[1 + i$4] =
+        /*<<array.ml:381:12>>*/ caml_check_bound(a, 0)[1];
+      var i$5 =  /*<<array.ml:381:21>>*/ 0;
+      try{
        var i$1 = i$5;
         /*<<array.ml:362:4>>*/ for(;;){
         var
@@ -7448,17 +7678,22 @@
          var i$3 = i$2;
           /*<<array.ml:368:4>>*/ for(;;){
           var father = (i$3 - 1 | 0) / 3 | 0;
-          if(i$3 === father)
-            /*<<array.ml:369:4>>*/ throw caml_maybe_attach_backtrace
-                  ([0, Assert_failure, _a_], 1);
-           /*<<array.ml:370:7>>*/ if
-           (0 <= caml_call2(cmp, caml_check_bound(a, father)[1 + father], e$0))
+           /*<<array.ml:369:4>>*/ if(i$3 === father)
+           throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
+           /*<<array.ml:370:27>>*/ if
+           (0
+            <=
+              /*<<array.ml:370:7>>*/ caml_call2
+              (cmp,
+                /*<<array.ml:370:11>>*/ caml_check_bound(a, father)
+                [1 + father],
+               e$0))
            break;
           var
            _w_ =
               /*<<array.ml:371:14>>*/ caml_check_bound(a, father)[1 + father];
            /*<<array.ml:371:6>>*/ caml_check_bound(a, i$3)[1 + i$3] = _w_;
-          if(0 >= father) break b;
+           /*<<array.ml:371:28>>*/ if(0 >= father) break b;
           i$3 = father;
          }
           /*<<array.ml:373:13>>*/ caml_check_bound(a, i$3)[1 + i$3] = e$0;
@@ -7466,16 +7701,17 @@
         }
          /*<<array.ml:372:49>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
-       var _B_ =  /*<<array.ml:379:2>>*/ i$4 - 1 | 0;
+       var _B_ =  /*<<array.ml:382:28>>*/ i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _B_;
       }
      }
     }
-    var _z_ = 1 < l ? 1 : 0;
+    var _z_ =  /*<<array.ml:384:2>>*/ 1 < l ? 1 : 0;
     if(_z_){
      var e =  /*<<array.ml:384:25>>*/ caml_check_bound(a, 1)[2];
-      /*<<array.ml:384:38>>*/ a[2] = caml_check_bound(a, 0)[1];
+      /*<<array.ml:384:38>>*/ a[2] =
+       /*<<array.ml:384:46>>*/ caml_check_bound(a, 0)[1];
       /*<<array.ml:384:57>>*/ a[1] = e;
      var _A_ = 0;
     }
@@ -7486,7 +7722,7 @@
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
      var
-      src1r = src1ofs + src1len | 0,
+      src1r =  /*<<array.ml:390:4>>*/ src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
       s2$1 =
          /*<<array.ml:407:44>>*/ caml_check_bound(src2, src2ofs)[1 + src2ofs],
@@ -7498,11 +7734,12 @@
       s2 = s2$1,
       d = dstofs;
       /*<<array.ml:392:6>>*/ for(;;)
-       /*<<array.ml:392:9>>*/ if(0 < caml_call2(cmp, s1, s2)){
+       /*<<array.ml:392:18>>*/ if
+       (0 <  /*<<array.ml:392:9>>*/ caml_call2(cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-       var i2$0 = i2 + 1 | 0;
-       if(i2$0 >= src2r)
-         /*<<array.ml:106:9>>*/ return blit
+       var i2$0 =  /*<<array.ml:400:20>>*/ i2 + 1 | 0;
+        /*<<array.ml:402:8>>*/ if(i2$0 >= src2r)
+         /*<<array.ml:405:10>>*/ return blit
                 (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
@@ -7513,9 +7750,9 @@
       }
       else{
         /*<<array.ml:393:8>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-       var i1$0 = i1 + 1 | 0;
-       if(i1$0 >= src1r)
-         /*<<array.ml:106:9>>*/ return blit
+       var i1$0 =  /*<<array.ml:393:20>>*/ i1 + 1 | 0;
+        /*<<array.ml:395:8>>*/ if(i1$0 >= src1r)
+         /*<<array.ml:398:10>>*/ return blit
                 (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<array.ml:407:70>>*/ ;
        var
         d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
@@ -7526,30 +7763,35 @@
       }
      /*<<array.ml:407:70>>*/ }
     function isortto(srcofs, dst, dstofs, len){
-     var _m_ = len - 1 | 0, _l_ =  /*<<array.ml:410:4>>*/ 0;
+     var _m_ =  /*<<array.ml:410:4>>*/ len - 1 | 0, _l_ = 0;
      if(_m_ >= 0){
       var i = _l_;
       for(;;){
        var
-        _n_ = srcofs + i | 0,
+        _n_ =  /*<<array.ml:411:6>>*/ srcofs + i | 0,
         e =  /*<<array.ml:411:14>>*/ caml_check_bound(a, _n_)[1 + _n_],
-        j =  /*<<array.ml:412:14>>*/ [0, (dstofs + i | 0) - 1 | 0];
+        j =  /*<<array.ml:412:6>>*/ [0, (dstofs + i | 0) - 1 | 0];
        for(;;){
         if(dstofs > j[1]) break;
         var _o_ = j[1];
-         /*<<array.ml:413:29>>*/ if
-         (0 >= caml_call2(cmp, caml_check_bound(dst, _o_)[1 + _o_], e))
+         /*<<array.ml:413:47>>*/ if
+         (0
+          >=
+            /*<<array.ml:413:29>>*/ caml_call2
+            (cmp,
+              /*<<array.ml:413:33>>*/ caml_check_bound(dst, _o_)[1 + _o_],
+             e))
          break;
         var
-         _p_ = j[1],
+         _p_ =  /*<<array.ml:414:8>>*/ j[1],
          _q_ =  /*<<array.ml:414:25>>*/ caml_check_bound(dst, _p_)[1 + _p_],
-         _r_ = j[1] + 1 | 0;
+         _r_ =  /*<<array.ml:414:37>>*/ j[1] + 1 | 0;
          /*<<array.ml:414:8>>*/ caml_check_bound(dst, _r_)[1 + _r_] = _q_;
-        j[1]--;
+         /*<<array.ml:414:37>>*/ j[1]--;
        }
-       var _s_ = j[1] + 1 | 0;
-        /*<<array.ml:417:6>>*/ caml_check_bound(dst, _s_)[1 + _s_] = e;
-       var _t_ =  /*<<array.ml:410:4>>*/ i + 1 | 0;
+       var _s_ =  /*<<array.ml:417:6>>*/ j[1] + 1 | 0;
+       caml_check_bound(dst, _s_)[1 + _s_] = e;
+       var _t_ =  /*<<array.ml:417:24>>*/ i + 1 | 0;
        if(_m_ === i) break;
        i = _t_;
       }
@@ -7559,34 +7801,39 @@
     function sortto(srcofs, dst, dstofs, len){
       /*<<array.ml:421:4>>*/ if(len <= 5)
        /*<<array.ml:421:26>>*/ return isortto(srcofs, dst, dstofs, len) /*<<array.ml:427:7>>*/ ;
-     var l1 = len / 2 | 0, l2 = len - l1 | 0;
+     var
+      l1 =  /*<<array.ml:421:61>>*/ len / 2 | 0,
+      l2 =  /*<<array.ml:423:6>>*/ len - l1 | 0;
       /*<<array.ml:424:6>>*/ sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2);
       /*<<array.ml:425:6>>*/ sortto(srcofs, a, srcofs + l2 | 0, l1);
-     return merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<array.ml:427:7>>*/ ;
+      /*<<array.ml:425:38>>*/ return merge
+             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<array.ml:427:7>>*/ ;
     }
-    var l = a.length - 1;
-    if(l <= 5)
+    var l =  /*<<array.ml:429:2>>*/ a.length - 1;
+     /*<<array.ml:430:2>>*/ if(l <= 5)
       /*<<array.ml:430:22>>*/ return isortto(0, a, 0, l) /*<<array.ml:437:5>>*/ ;
     var
-     l1 = l / 2 | 0,
-     l2 = l - l1 | 0,
+     l1 =  /*<<array.ml:430:43>>*/ l / 2 | 0,
+     l2 =  /*<<array.ml:432:4>>*/ l - l1 | 0,
      t =
-        /*<<array.ml:433:12>>*/ caml_make_vect(l2, caml_check_bound(a, 0)[1]);
+        /*<<array.ml:433:12>>*/ caml_make_vect
+        (l2,  /*<<array.ml:433:20>>*/ caml_check_bound(a, 0)[1]);
      /*<<array.ml:434:4>>*/ sortto(l1, t, 0, l2);
      /*<<array.ml:435:4>>*/ sortto(0, a, l2, l1);
-    return merge(l2, l1, t, 0, l2, a, 0) /*<<array.ml:437:5>>*/ ;
+     /*<<array.ml:435:20>>*/ return merge(l2, l1, t, 0, l2, a, 0) /*<<array.ml:437:5>>*/ ;
    }
    function shuffle(rand, a){
-    var _j_ = a.length - 2 | 0;
+    var _j_ =  /*<<array.ml:443:2>>*/ a.length - 2 | 0;
     if(_j_ >= 1){
      var i = _j_;
      for(;;){
       var
        j =  /*<<array.ml:444:12>>*/ caml_call1(rand, i + 1 | 0),
        v =  /*<<array.ml:445:12>>*/ a[1 + i];
-       /*<<array.ml:446:4>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
+       /*<<array.ml:446:4>>*/ a[1 + i] =
+        /*<<array.ml:446:19>>*/ caml_check_bound(a, j)[1 + j];
        /*<<array.ml:447:4>>*/ a[1 + j] = v;
-      var _k_ = i - 1 | 0;
+      var _k_ =  /*<<array.ml:447:20>>*/ i - 1 | 0;
       if(1 === i) break;
       i = _k_;
      }
@@ -7597,10 +7844,12 @@
     function aux(i, param){
       /*<<array.ml:454:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:458:9>>*/ return 0;
-     var x =  /*<<array.ml:456:14>>*/ a[1 + i], _h_ = i + 1 | 0;
-      /*<<array.ml:457:6>>*/ return [0,
+     var
+      x =  /*<<array.ml:456:14>>*/ a[1 + i],
+      _h_ =  /*<<array.ml:457:6>>*/ i + 1 | 0;
+      /*<<array.ml:457:28>>*/ return [0,
              x,
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:6>>*/ ;
+             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:28>>*/ ;
      /*<<array.ml:458:16>>*/ }
     var _f_ =  /*<<array.ml:460:2>>*/ 0;
     return function(_g_){
@@ -7610,10 +7859,12 @@
     function aux(i, param){
       /*<<array.ml:464:4>>*/ if(i >= a.length - 1)
        /*<<array.ml:468:9>>*/ return 0;
-     var x =  /*<<array.ml:466:14>>*/ a[1 + i], _d_ = i + 1 | 0;
-      /*<<array.ml:467:6>>*/ return [0,
+     var
+      x =  /*<<array.ml:466:14>>*/ a[1 + i],
+      _d_ =  /*<<array.ml:467:6>>*/ i + 1 | 0;
+      /*<<array.ml:467:32>>*/ return [0,
              [0, i, x],
-             function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:6>>*/ ;
+             function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:32>>*/ ;
      /*<<array.ml:468:16>>*/ }
     var _b_ =  /*<<array.ml:470:2>>*/ 0;
     return function(_c_){
@@ -7629,20 +7880,20 @@
           /*<<array.ml:484:44>>*/ },
          0,
          i$2);
-    if(! l)  /*<<array.ml:473:10>>*/ return [0];
+     /*<<array.ml:472:18>>*/ if(! l)  /*<<array.ml:473:10>>*/ return [0];
     var
      tl = l[2],
      hd = l[1],
      len =  /*<<array.ml:475:16>>*/ list_length(0, l),
      a =  /*<<array.ml:476:14>>*/ caml_make_vect(len, hd),
-     i$1 =  /*<<array.ml:475:16>>*/ len - 2 | 0,
+     i$1 =  /*<<array.ml:481:6>>*/ len - 2 | 0,
      i = i$1,
      param = tl;
      /*<<array.ml:477:19>>*/ for(;;){
-     if(! param)  /*<<array.ml:477:6>>*/ return a;
+     if(! param)  /*<<array.ml:478:16>>*/ return a;
      var tl$0 = param[2], hd$0 = param[1];
       /*<<array.ml:479:20>>*/ a[1 + i] = hd$0;
-     var i$0 =  /*<<array.ml:477:6>>*/ i - 1 | 0;
+     var i$0 =  /*<<array.ml:479:37>>*/ i - 1 | 0;
      i = i$0;
      param = tl$0;
     }
@@ -7744,16 +7995,16 @@
        /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(1, 0, 32752));
    function is_finite(x){
-     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0;
+     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0 /*<<float.ml:39:33>>*/ ;
     /*<<float.ml:39:38>>*/ }
    function is_infinite(x){
-     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0;
+     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0 /*<<float.ml:40:36>>*/ ;
     /*<<float.ml:40:41>>*/ }
    function is_nan(x){
      /*<<float.ml:41:24>>*/ return x !== x ? 1 : 0;
     /*<<float.ml:41:30>>*/ }
    var
-    max_float = Stdlib[25],
+    max_float =  /*<<float.ml:38:60>>*/ Stdlib[25],
     min_float = Stdlib[26],
     epsilon = Stdlib[27],
     of_string_opt = Stdlib[36],
@@ -7773,8 +8024,12 @@
       "Float.Array.map2: arrays must have the same length";
    function is_integer(x){
     var
-     _aX_ = x ===  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x) ? 1 : 0;
-    return _aX_ ?  /*<<float.ml:39:14>>*/ is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
+     _aX_ =
+        /*<<float.ml:116:30>>*/ x
+        ===  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x)
+        ? 1
+        : 0;
+     /*<<float.ml:116:30>>*/ return _aX_ ? is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
    }
    function succ(x){
      /*<<float.ml:121:13>>*/ return caml_nextafter_float(x, infinity) /*<<float.ml:121:34>>*/ ;
@@ -7788,34 +8043,34 @@
    function min(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:139:18>>*/ if
+      /*<<float.ml:139:30>>*/ if
       (!
-       caml_signbit_float(y)
+        /*<<float.ml:139:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:139:34>>*/ caml_signbit_float(x))
       break a;
-      /*<<float.ml:141:10>>*/ return x !== x ? x : y /*<<float.ml:141:32>>*/ ;
+      /*<<float.ml:141:18>>*/ return x !== x ? x : y /*<<float.ml:141:32>>*/ ;
     }
-     /*<<float.ml:140:7>>*/ return y !== y ? y : x /*<<float.ml:141:32>>*/ ;
+     /*<<float.ml:140:15>>*/ return y !== y ? y : x /*<<float.ml:141:32>>*/ ;
    }
    function max(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:144:18>>*/ if
+      /*<<float.ml:144:30>>*/ if
       (!
-       caml_signbit_float(y)
+        /*<<float.ml:144:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:144:34>>*/ caml_signbit_float(x))
       break a;
-      /*<<float.ml:146:10>>*/ return y !== y ? y : x /*<<float.ml:146:32>>*/ ;
+      /*<<float.ml:146:18>>*/ return y !== y ? y : x /*<<float.ml:146:32>>*/ ;
     }
-     /*<<float.ml:145:7>>*/ return x !== x ? x : y /*<<float.ml:146:32>>*/ ;
+     /*<<float.ml:145:15>>*/ return x !== x ? x : y /*<<float.ml:146:32>>*/ ;
    }
    function min_max(x, y){
      /*<<float.ml:149:2>>*/ if(x === x && y === y){
      a:
      if(! (x < y)){
-       /*<<float.ml:150:23>>*/ if
+       /*<<float.ml:150:35>>*/ if
        (!
-        caml_signbit_float(y)
+         /*<<float.ml:150:23>>*/ caml_signbit_float(y)
         &&  /*<<float.ml:150:39>>*/ caml_signbit_float(x))
        break a;
        /*<<float.ml:150:68>>*/ return [0, y, x];
@@ -7827,37 +8082,37 @@
    function min_num(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:153:18>>*/ if
+      /*<<float.ml:153:30>>*/ if
       (!
-       caml_signbit_float(y)
+        /*<<float.ml:153:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:153:34>>*/ caml_signbit_float(x))
       break a;
-      /*<<float.ml:155:10>>*/ return y !== y ? x : y /*<<float.ml:155:32>>*/ ;
+      /*<<float.ml:155:18>>*/ return y !== y ? x : y /*<<float.ml:155:32>>*/ ;
     }
-     /*<<float.ml:154:7>>*/ return x !== x ? y : x /*<<float.ml:155:32>>*/ ;
+     /*<<float.ml:154:15>>*/ return x !== x ? y : x /*<<float.ml:155:32>>*/ ;
    }
    function max_num(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:158:18>>*/ if
+      /*<<float.ml:158:30>>*/ if
       (!
-       caml_signbit_float(y)
+        /*<<float.ml:158:18>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:158:34>>*/ caml_signbit_float(x))
       break a;
-      /*<<float.ml:160:10>>*/ return x !== x ? y : x /*<<float.ml:160:32>>*/ ;
+      /*<<float.ml:160:18>>*/ return x !== x ? y : x /*<<float.ml:160:32>>*/ ;
     }
-     /*<<float.ml:159:7>>*/ return y !== y ? x : y /*<<float.ml:160:32>>*/ ;
+     /*<<float.ml:159:15>>*/ return y !== y ? x : y /*<<float.ml:160:32>>*/ ;
    }
    function min_max_num(x, y){
      /*<<float.ml:163:2>>*/ if(x !== x)
       /*<<float.ml:163:19>>*/ return [0, y, y];
-     /*<<float.ml:164:10>>*/ if(y !== y)
+     /*<<float.ml:164:18>>*/ if(y !== y)
       /*<<float.ml:164:24>>*/ return [0, x, x];
     a:
     if(! (x < y)){
-      /*<<float.ml:165:23>>*/ if
+      /*<<float.ml:165:35>>*/ if
       (!
-       caml_signbit_float(y)
+        /*<<float.ml:165:23>>*/ caml_signbit_float(y)
        &&  /*<<float.ml:165:39>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:165:67>>*/ return [0, y, x];
@@ -7871,12 +8126,12 @@
      /*<<float.ml:170:13>>*/ return caml_hash(10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
    }
    function unsafe_fill(a, ofs, len, v){
-    var _aV_ = (ofs + len | 0) - 1 | 0;
+    var _aV_ =  /*<<float.ml:184:4>>*/ (ofs + len | 0) - 1 | 0;
     if(_aV_ >= ofs){
      var i = ofs;
      for(;;){
        /*<<float.ml:184:36>>*/ a[1 + i] = v;
-      var _aW_ = i + 1 | 0;
+      var _aW_ =  /*<<float.ml:184:52>>*/ i + 1 | 0;
       if(_aV_ === i) break;
       i = _aW_;
      }
@@ -7884,7 +8139,7 @@
     return 0;
     /*<<float.ml:184:57>>*/ }
    function check(a, ofs, len, msg){
-    var _aR_ = ofs < 0 ? 1 : 0;
+    var _aR_ =  /*<<float.ml:190:4>>*/ ofs < 0 ? 1 : 0;
     if(_aR_)
      var _aS_ = _aR_;
     else{
@@ -7901,7 +8156,7 @@
    function make(n, v){
     var result =  /*<<float.ml:194:17>>*/ caml_floatarray_create(n);
      /*<<float.ml:195:4>>*/ unsafe_fill(result, 0, n, v);
-    return result;
+     /*<<float.ml:195:28>>*/ return result;
     /*<<float.ml:196:10>>*/ }
    function init(l, f){
      /*<<float.ml:199:4>>*/ if(0 > l)
@@ -7910,13 +8165,13 @@
     var
      res =  /*<<float.ml:201:16>>*/ caml_floatarray_create(l),
      _aP_ =  /*<<float.ml:202:6>>*/ l - 1 | 0,
-     _aO_ =  /*<<float.ml:201:16>>*/ 0;
-    if(_aP_ >= 0){
+     _aO_ =  /*<<float.ml:201:24>>*/ 0;
+     /*<<float.ml:202:6>>*/ if(_aP_ >= 0){
      var i = _aO_;
      for(;;){
        /*<<float.ml:203:8>>*/ res[1 + i] =
         /*<<float.ml:203:25>>*/ caml_call1(f, i);
-      var _aQ_ =  /*<<float.ml:203:8>>*/ i + 1 | 0;
+      var _aQ_ =  /*<<float.ml:203:30>>*/ i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
      }
@@ -7931,14 +8186,14 @@
      res =
         /*<<float.ml:210:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
-    if(0 < sy){
-     var _aM_ = sx - 1 | 0, _aL_ =  /*<<float.ml:211:19>>*/ 0;
+     /*<<float.ml:211:4>>*/ if(0 < sy){
+     var _aM_ =  /*<<float.ml:211:19>>*/ sx - 1 | 0, _aL_ = 0;
      if(_aM_ >= 0){
       var x = _aL_;
       for(;;){
         /*<<float.ml:213:8>>*/ res[1 + x] =
          /*<<float.ml:213:31>>*/ make(sy, v);
-       var _aN_ =  /*<<float.ml:213:8>>*/ x + 1 | 0;
+       var _aN_ =  /*<<float.ml:213:42>>*/ x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
       }
@@ -7954,27 +8209,27 @@
      res =
         /*<<float.ml:221:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
-    if(0 < sy){
-     var _aG_ = sx - 1 | 0, _aF_ =  /*<<float.ml:222:19>>*/ 0;
+     /*<<float.ml:222:4>>*/ if(0 < sy){
+     var _aG_ =  /*<<float.ml:222:19>>*/ sx - 1 | 0, _aF_ = 0;
      if(_aG_ >= 0){
       var x = _aF_;
       for(;;){
        var
         row =  /*<<float.ml:224:18>>*/ caml_floatarray_create(sy),
         _aI_ =  /*<<float.ml:225:8>>*/ sy - 1 | 0,
-        _aH_ =  /*<<float.ml:224:18>>*/ 0;
-       if(_aI_ >= 0){
+        _aH_ =  /*<<float.ml:224:27>>*/ 0;
+        /*<<float.ml:225:8>>*/ if(_aI_ >= 0){
         var y = _aH_;
         for(;;){
           /*<<float.ml:226:10>>*/ row[1 + y] =
            /*<<float.ml:226:27>>*/ caml_call2(f, x, y);
-         var _aK_ =  /*<<float.ml:226:10>>*/ y + 1 | 0;
+         var _aK_ =  /*<<float.ml:226:34>>*/ y + 1 | 0;
          if(_aI_ === y) break;
          y = _aK_;
         }
        }
         /*<<float.ml:228:8>>*/ res[1 + x] = row;
-       var _aJ_ =  /*<<float.ml:222:19>>*/ x + 1 | 0;
+       var _aJ_ =  /*<<float.ml:228:34>>*/ x + 1 | 0;
        if(_aG_ === x) break;
        x = _aJ_;
       }
@@ -7984,12 +8239,12 @@
     /*<<float.ml:231:7>>*/ }
    function append(a1, a2){
     var
-     l1 = a1.length - 1,
+     l1 =  /*<<float.ml:234:4>>*/ a1.length - 1,
      l2 =  /*<<float.ml:235:4>>*/ a2.length - 1,
      result =  /*<<float.ml:236:17>>*/ caml_floatarray_create(l1 + l2 | 0);
      /*<<float.ml:237:4>>*/ caml_floatarray_blit(a1, 0, result, 0, l1);
      /*<<float.ml:238:4>>*/ caml_floatarray_blit(a2, 0, result, l1, l2);
-    return result;
+     /*<<float.ml:238:33>>*/ return result;
     /*<<float.ml:239:10>>*/ }
    function concat(l){
     var acc = 0, param = l;
@@ -7998,9 +8253,9 @@
      var
       tl = param[2],
       hd = param[1],
-      x = hd.length - 1 + acc | 0,
+      x =  /*<<float.ml:247:18>>*/ hd.length - 1 + acc | 0,
       acc$0 =
-        acc <= x
+         /*<<float.ml:243:4>>*/ acc <= x
          ? x
          :  /*<<float.ml:243:26>>*/ caml_call1
            (Stdlib[1], cst_Float_Array_concat);
@@ -8013,16 +8268,16 @@
      i = 0;
      /*<<float.ml:253:6>>*/ for(;;){
      if(! l$0){
-      if(i === acc)  /*<<float.ml:260:4>>*/ return result;
-       /*<<float.ml:254:14>>*/ throw caml_maybe_attach_backtrace
-             ([0, Assert_failure, _a_], 1);
+       /*<<float.ml:254:14>>*/ if(i === acc)
+        /*<<float.ml:260:12>>*/ return result;
+      throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
      }
      var
       tl$0 = l$0[2],
       hd$0 = l$0[1],
       hlen =  /*<<float.ml:256:8>>*/ hd$0.length - 1;
       /*<<float.ml:257:8>>*/ caml_floatarray_blit(hd$0, 0, result, i, hlen);
-     var i$0 = i + hlen | 0;
+     var i$0 =  /*<<float.ml:257:38>>*/ i + hlen | 0;
      l$0 = tl$0;
      i = i$0;
     }
@@ -8031,27 +8286,27 @@
      /*<<float.ml:264:4>>*/ check(a, ofs, len, cst_Float_Array_sub);
     var result =  /*<<float.ml:265:17>>*/ caml_floatarray_create(len);
      /*<<float.ml:266:4>>*/ caml_floatarray_blit(a, ofs, result, 0, len);
-    return result;
+     /*<<float.ml:266:34>>*/ return result;
     /*<<float.ml:267:10>>*/ }
    function copy(a){
     var
-     l = a.length - 1,
+     l =  /*<<float.ml:270:4>>*/ a.length - 1,
      result =  /*<<float.ml:271:17>>*/ caml_floatarray_create(l);
      /*<<float.ml:272:4>>*/ caml_floatarray_blit(a, 0, result, 0, l);
-    return result;
+     /*<<float.ml:272:30>>*/ return result;
     /*<<float.ml:273:10>>*/ }
    function fill(a, ofs, len, v){
      /*<<float.ml:276:4>>*/ check(a, ofs, len, cst_Float_Array_fill);
-    return unsafe_fill(a, ofs, len, v) /*<<float.ml:277:27>>*/ ;
+     /*<<float.ml:276:38>>*/ return unsafe_fill(a, ofs, len, v) /*<<float.ml:277: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 caml_floatarray_blit
+     /*<<float.ml:282:37>>*/ return  /*<<float.ml:282:4>>*/ caml_floatarray_blit
             (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
    }
    function to_list(a){
-     /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:25>>*/ caml_call2
+     /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:39>>*/ caml_call2
             (Stdlib_List[11],
              a.length - 1,
              function(_aE_){ /*<<?>>*/ return a[1 + _aE_];}) /*<<float.ml:285:39>>*/ ;
@@ -8064,21 +8319,21 @@
      i = 0,
      l$0 = l;
      /*<<float.ml:290:6>>*/ for(;;){
-     if(! l$0)  /*<<float.ml:289:4>>*/ return result;
+     if(! l$0)  /*<<float.ml:291:14>>*/ return result;
      var t = l$0[2], h = l$0[1];
       /*<<float.ml:292:18>>*/ result[1 + i] = h;
-     var i$0 =  /*<<float.ml:289:4>>*/ i + 1 | 0;
+     var i$0 =  /*<<float.ml:292:39>>*/ i + 1 | 0;
      i = i$0;
      l$0 = t;
     }
     /*<<float.ml:294:12>>*/ }
    function iter(f, a){
-    var _aC_ = a.length - 2 | 0, _aB_ =  /*<<float.ml:298:4>>*/ 0;
+    var _aC_ =  /*<<float.ml:298:4>>*/ a.length - 2 | 0, _aB_ = 0;
     if(_aC_ >= 0){
      var i = _aB_;
      for(;;){
        /*<<float.ml:298:33>>*/ caml_call1(f, a[1 + i]);
-      var _aD_ = i + 1 | 0;
+      var _aD_ =  /*<<float.ml:298:51>>*/ i + 1 | 0;
       if(_aC_ === i) break;
       i = _aD_;
      }
@@ -8089,12 +8344,12 @@
      /*<<float.ml:302:4>>*/ if(a.length - 1 !== b.length - 1)
       /*<<float.ml:303:6>>*/ return caml_call1
              (Stdlib[1], cst_Float_Array_iter2_arrays_m) /*<<float.ml:305:75>>*/ ;
-    var _az_ = a.length - 2 | 0, _ay_ =  /*<<float.ml:305:6>>*/ 0;
+    var _az_ =  /*<<float.ml:305:6>>*/ a.length - 2 | 0, _ay_ = 0;
     if(_az_ >= 0){
      var i = _ay_;
      for(;;){
        /*<<float.ml:305:35>>*/ caml_call2(f, a[1 + i], b[1 + i]);
-      var _aA_ = i + 1 | 0;
+      var _aA_ =  /*<<float.ml:305:70>>*/ i + 1 | 0;
       if(_az_ === i) break;
       i = _aA_;
      }
@@ -8103,16 +8358,16 @@
     /*<<float.ml:305:75>>*/ }
    function map(f, a){
     var
-     l = a.length - 1,
+     l =  /*<<float.ml:308:4>>*/ a.length - 1,
      r =  /*<<float.ml:309:12>>*/ caml_floatarray_create(l),
      _aw_ =  /*<<float.ml:310:4>>*/ l - 1 | 0,
-     _av_ =  /*<<float.ml:309:12>>*/ 0;
-    if(_aw_ >= 0){
+     _av_ =  /*<<float.ml:309:20>>*/ 0;
+     /*<<float.ml:310:4>>*/ if(_aw_ >= 0){
      var i = _av_;
      for(;;){
        /*<<float.ml:311:6>>*/ r[1 + i] =
         /*<<float.ml:311:21>>*/ caml_call1(f, a[1 + i]);
-      var _ax_ =  /*<<float.ml:311:6>>*/ i + 1 | 0;
+      var _ax_ =  /*<<float.ml:311:41>>*/ i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
      }
@@ -8120,13 +8375,13 @@
      /*<<float.ml:313:4>>*/ return r;
     /*<<float.ml:313:5>>*/ }
    function map_inplace(f, a){
-    var _at_ = a.length - 2 | 0, _as_ =  /*<<float.ml:317:4>>*/ 0;
+    var _at_ =  /*<<float.ml:317:4>>*/ a.length - 2 | 0, _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]);
-      var _au_ =  /*<<float.ml:318:6>>*/ i + 1 | 0;
+      var _au_ =  /*<<float.ml:318:41>>*/ i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
      }
@@ -8134,20 +8389,22 @@
     return 0;
     /*<<float.ml:319:8>>*/ }
    function map2(f, a, b){
-    var la = a.length - 1, lb =  /*<<float.ml:323:4>>*/ b.length - 1;
-    if(la !== lb)
+    var
+     la =  /*<<float.ml:322:4>>*/ a.length - 1,
+     lb =  /*<<float.ml:323:4>>*/ b.length - 1;
+     /*<<float.ml:324:4>>*/ if(la !== lb)
       /*<<float.ml:325:6>>*/ return caml_call1
              (Stdlib[1], cst_Float_Array_map2_arrays_mu) /*<<float.ml:332:7>>*/ ;
     var
      r =  /*<<float.ml:327:14>>*/ caml_floatarray_create(la),
      _aq_ =  /*<<float.ml:328:6>>*/ la - 1 | 0,
-     _ap_ =  /*<<float.ml:327:14>>*/ 0;
-    if(_aq_ >= 0){
+     _ap_ =  /*<<float.ml:327:23>>*/ 0;
+     /*<<float.ml:328:6>>*/ 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]);
-      var _ar_ =  /*<<float.ml:329:8>>*/ i + 1 | 0;
+      var _ar_ =  /*<<float.ml:329:60>>*/ i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
      }
@@ -8155,12 +8412,12 @@
      /*<<float.ml:331:6>>*/ return r;
     /*<<float.ml:332:7>>*/ }
    function iteri(f, a){
-    var _an_ = a.length - 2 | 0, _am_ =  /*<<float.ml:336:4>>*/ 0;
+    var _an_ =  /*<<float.ml:336:4>>*/ a.length - 2 | 0, _am_ = 0;
     if(_an_ >= 0){
      var i = _am_;
      for(;;){
        /*<<float.ml:336:33>>*/ caml_call2(f, i, a[1 + i]);
-      var _ao_ = i + 1 | 0;
+      var _ao_ =  /*<<float.ml:336:53>>*/ i + 1 | 0;
       if(_an_ === i) break;
       i = _ao_;
      }
@@ -8169,16 +8426,16 @@
     /*<<float.ml:336:58>>*/ }
    function mapi(f, a){
     var
-     l = a.length - 1,
+     l =  /*<<float.ml:339:4>>*/ a.length - 1,
      r =  /*<<float.ml:340:12>>*/ caml_floatarray_create(l),
      _ak_ =  /*<<float.ml:341:4>>*/ l - 1 | 0,
-     _aj_ =  /*<<float.ml:340:12>>*/ 0;
-    if(_ak_ >= 0){
+     _aj_ =  /*<<float.ml:340:20>>*/ 0;
+     /*<<float.ml:341:4>>*/ 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]);
-      var _al_ =  /*<<float.ml:342:6>>*/ i + 1 | 0;
+      var _al_ =  /*<<float.ml:342:43>>*/ i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
      }
@@ -8186,13 +8443,13 @@
      /*<<float.ml:344:4>>*/ return r;
     /*<<float.ml:344:5>>*/ }
    function mapi_inplace(f, a){
-    var _ah_ = a.length - 2 | 0, _ag_ =  /*<<float.ml:348:4>>*/ 0;
+    var _ah_ =  /*<<float.ml:348:4>>*/ a.length - 2 | 0, _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]);
-      var _ai_ =  /*<<float.ml:349:6>>*/ i + 1 | 0;
+      var _ai_ =  /*<<float.ml:349:43>>*/ i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
      }
@@ -8201,169 +8458,189 @@
     /*<<float.ml:350:8>>*/ }
    function fold_left(f, x, a){
     var
-     r =  /*<<float.ml:354:12>>*/ [0, x],
-     _ae_ = a.length - 2 | 0,
-     _ad_ = 0;
-    if(_ae_ >= 0){
+     r =  /*<<float.ml:354:4>>*/ [0, x],
+     _ae_ =  /*<<float.ml:355:4>>*/ a.length - 2 | 0,
+     _ad_ =  /*<<float.ml:354:4>>*/ 0;
+     /*<<float.ml:355:4>>*/ if(_ae_ >= 0){
      var i = _ad_;
      for(;;){
-      r[1] =  /*<<float.ml:356:11>>*/ caml_call2(f, r[1], a[1 + i]);
-      var _af_ =  /*<<float.ml:355:4>>*/ i + 1 | 0;
+       /*<<float.ml:356:32>>*/ r[1] =
+        /*<<float.ml:356:11>>*/ caml_call2(f, r[1], a[1 + i]);
+      var _af_ =  /*<<float.ml:356:32>>*/ i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
      }
     }
-    return r[1];
+     /*<<float.ml:358:4>>*/ return r[1];
     /*<<float.ml:358:6>>*/ }
    function fold_right(f, a, x){
     var
-     r =  /*<<float.ml:362:12>>*/ [0, x],
+     r =  /*<<float.ml:362:4>>*/ [0, x],
      _ab_ =  /*<<float.ml:363:4>>*/ 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]);
-      var _ac_ =  /*<<float.ml:363:4>>*/ i - 1 | 0;
+       /*<<float.ml:364:32>>*/ r[1] =
+        /*<<float.ml:364:11>>*/ caml_call2(f, a[1 + i], r[1]);
+      var _ac_ =  /*<<float.ml:364:32>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
      }
     }
-    return r[1];
+     /*<<float.ml:366:4>>*/ return r[1];
     /*<<float.ml:366:6>>*/ }
    function exists(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:370:4>>*/ a.length - 1, i = 0;
      /*<<float.ml:372:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:372:20>>*/ return 0;
-      /*<<float.ml:373:14>>*/ if(caml_call1(p, a[1 + i]))
+      /*<<float.ml:373:32>>*/ if
+      ( /*<<float.ml:373:14>>*/ caml_call1(p, a[1 + i]))
        /*<<float.ml:373:38>>*/ return 1;
      var i$0 =  /*<<float.ml:374:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:375:10>>*/ }
    function for_all(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:379:4>>*/ a.length - 1, i = 0;
      /*<<float.ml:381:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:381:20>>*/ return 1;
-      /*<<float.ml:382:14>>*/ if(! caml_call1(p, a[1 + i]))
+      /*<<float.ml:382:32>>*/ if
+      (!  /*<<float.ml:382:14>>*/ caml_call1(p, a[1 + i]))
        /*<<float.ml:383:11>>*/ return 0;
      var i$0 =  /*<<float.ml:382:38>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:384:10>>*/ }
    function mem(x, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:388:4>>*/ 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:38>>*/ if(0 === caml_float_compare(a[1 + i], x))
        /*<<float.ml:391:50>>*/ return 1;
      var i$0 =  /*<<float.ml:392:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:394:10>>*/ }
    function mem_ieee(x, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:398:4>>*/ 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:401:34>>*/ if(x === a[1 + i])
+       /*<<float.ml:401:40>>*/ return 1;
      var i$0 =  /*<<float.ml:402:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:404:10>>*/ }
    function find_opt(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:408:4>>*/ a.length - 1, i = 0;
      /*<<float.ml:410:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:410:20>>*/ return 0;
      var x =  /*<<float.ml:412:16>>*/ a[1 + i];
-      /*<<float.ml:413:11>>*/ if(caml_call1(p, x))
+      /*<<float.ml:413:14>>*/ if( /*<<float.ml:413:11>>*/ caml_call1(p, x))
        /*<<float.ml:413:20>>*/ return [0, x];
      var i$0 =  /*<<float.ml:414:13>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:416:10>>*/ }
    function find_index(p, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:420:4>>*/ a.length - 1, i = 0;
      /*<<float.ml:422:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:422:20>>*/ return 0;
-      /*<<float.ml:423:14>>*/ if(caml_call1(p, a[1 + i]))
+      /*<<float.ml:423:32>>*/ if
+      ( /*<<float.ml:423:14>>*/ caml_call1(p, a[1 + i]))
        /*<<float.ml:423:38>>*/ return [0, i];
      var i$0 =  /*<<float.ml:424:11>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:425:10>>*/ }
    function find_map(f, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:429:4>>*/ a.length - 1, i = 0;
      /*<<float.ml:431:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:431:20>>*/ return 0;
      var r =  /*<<float.ml:433:14>>*/ caml_call1(f, a[1 + i]);
-     if(r)  /*<<float.ml:435:25>>*/ return r;
+      /*<<float.ml:433:32>>*/ if(r)  /*<<float.ml:435:25>>*/ return r;
      var i$0 =  /*<<float.ml:434:18>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:437:10>>*/ }
    function find_mapi(f, a){
-    var n = a.length - 1, i = 0;
+    var n =  /*<<float.ml:441:4>>*/ a.length - 1, i = 0;
      /*<<float.ml:443:6>>*/ for(;;){
      if(i === n)  /*<<float.ml:443:20>>*/ return 0;
      var r =  /*<<float.ml:445:14>>*/ caml_call2(f, i, a[1 + i]);
-     if(r)  /*<<float.ml:447:25>>*/ return r;
+      /*<<float.ml:445:34>>*/ if(r)  /*<<float.ml:447:25>>*/ return r;
      var i$0 =  /*<<float.ml:446:18>>*/ i + 1 | 0;
      i = i$0;
     }
     /*<<float.ml:449:10>>*/ }
    var
     Bottom =
-       /*<<float.ml:452:2>>*/ [248,
+       /*<<float.ml:38:60>>*/ [248,
        "Stdlib.Float.Array.Bottom",
        runtime.caml_fresh_oo_id(0)],
     _b_ = [0, cst_float_ml, 484, 6];
    function sort(cmp, a){
     function maxson(l, i){
      var
-      i31 = ((i + i | 0) + i | 0) + 1 | 0,
-      x =  /*<<float.ml:456:14>>*/ [0, i31];
-     if((i31 + 2 | 0) < l){
+      i31 =  /*<<float.ml:455:6>>*/ ((i + i | 0) + i | 0) + 1 | 0,
+      x =  /*<<float.ml:456:6>>*/ [0, i31];
+      /*<<float.ml:457:6>>*/ if((i31 + 2 | 0) < l){
       var
        _W_ =  /*<<float.ml:457:24>>*/ i31 + 1 | 0,
        _X_ =  /*<<float.ml:458:27>>*/ caml_check_bound(a, _W_)[1 + _W_];
-      if
+       /*<<float.ml:458:42>>*/ if
        ( /*<<float.ml:458:11>>*/ caml_call2
-         (cmp, caml_check_bound(a, i31)[1 + i31], _X_)
+         (cmp,
+           /*<<float.ml:458:15>>*/ caml_check_bound(a, i31)[1 + i31],
+          _X_)
         < 0)
-       x[1] = i31 + 1 | 0;
+        /*<<float.ml:458:52>>*/ x[1] = i31 + 1 | 0;
       var
        _Y_ =  /*<<float.ml:459:8>>*/ i31 + 2 | 0,
        _Z_ =  /*<<float.ml:459:26>>*/ caml_check_bound(a, _Y_)[1 + _Y_],
-       ___ = x[1];
+       ___ =  /*<<float.ml:459:41>>*/ x[1];
       if
        ( /*<<float.ml:459:11>>*/ caml_call2
-         (cmp, caml_check_bound(a, ___)[1 + ___], _Z_)
+         (cmp,
+           /*<<float.ml:459:15>>*/ caml_check_bound(a, ___)[1 + ___],
+          _Z_)
         < 0)
-       x[1] = i31 + 2 | 0;
-      return x[1];
+        /*<<float.ml:459:51>>*/ x[1] = i31 + 2 | 0;
+       /*<<float.ml:460:8>>*/ return x[1];
      }
-     if((i31 + 1 | 0) < l){
+      /*<<float.ml:462:8>>*/ if((i31 + 1 | 0) < l){
       var
        _$_ = i31 + 1 | 0,
        _aa_ =  /*<<float.ml:462:40>>*/ caml_check_bound(a, _$_)[1 + _$_];
-       /*<<float.ml:462:24>>*/ if
-       (0 > caml_call2(cmp, caml_check_bound(a, i31)[1 + i31], _aa_))
+       /*<<float.ml:462:55>>*/ if
+       (0
+        >
+          /*<<float.ml:462:24>>*/ caml_call2
+          (cmp,
+            /*<<float.ml:462:28>>*/ caml_check_bound(a, i31)[1 + i31],
+           _aa_))
         /*<<float.ml:463:13>>*/ return i31 + 1 | 0;
      }
-     if(i31 < l)  /*<<float.ml:464:29>>*/ return i31;
+      /*<<float.ml:464:13>>*/ if(i31 < l)  /*<<float.ml:464:29>>*/ return i31;
       /*<<float.ml:464:38>>*/ throw caml_maybe_attach_backtrace
             ([0, Bottom, i], 1);
      /*<<float.ml:464:54>>*/ }
-    var l = a.length - 1, _Q_ = ((l + 1 | 0) / 3 | 0) - 1 | 0;
+    var
+     l =  /*<<float.ml:492:4>>*/ a.length - 1,
+     _Q_ =  /*<<float.ml:493:4>>*/ ((l + 1 | 0) / 3 | 0) - 1 | 0;
     if(_Q_ >= 0){
      var i$6 = _Q_;
      for(;;){
       var e$1 =  /*<<float.ml:493:52>>*/ caml_check_bound(a, i$6)[1 + i$6];
-       /*<<float.ml:475:24>>*/ try{
+      try{
        var i = i$6;
         /*<<float.ml:467:6>>*/ for(;;){
         var j =  /*<<float.ml:467:14>>*/ maxson(l, i);
-         /*<<float.ml:468:9>>*/ if
-         (0 >= caml_call2(cmp, caml_check_bound(a, j)[1 + j], e$1))
+         /*<<float.ml:468:24>>*/ if
+         (0
+          >=
+            /*<<float.ml:468:9>>*/ caml_call2
+            (cmp,  /*<<float.ml:468:13>>*/ caml_check_bound(a, j)[1 + j], e$1))
          break;
         var _N_ =  /*<<float.ml:469:16>>*/ caml_check_bound(a, j)[1 + j];
          /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
@@ -8377,7 +8654,7 @@
        var i$0 = exn[2];
         /*<<float.ml:475:63>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
-      var _V_ =  /*<<float.ml:493:40>>*/ i$6 - 1 | 0;
+      var _V_ =  /*<<float.ml:493:61>>*/ i$6 - 1 | 0;
       if(0 === i$6) break;
       i$6 = _V_;
      }
@@ -8387,9 +8664,10 @@
      var i$4 = _R_;
      for(;;){
       var e$0 =  /*<<float.ml:495:14>>*/ caml_check_bound(a, i$4)[1 + i$4];
-       /*<<float.ml:496:6>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
-      var i$5 = 0;
-       /*<<float.ml:481:21>>*/ try{
+       /*<<float.ml:496:6>>*/ a[1 + i$4] =
+        /*<<float.ml:496:14>>*/ caml_check_bound(a, 0)[1];
+      var i$5 =  /*<<float.ml:496:23>>*/ 0;
+      try{
        var i$1 = i$5;
         /*<<float.ml:477:6>>*/ for(;;){
         var
@@ -8410,17 +8688,22 @@
          var i$3 = i$2;
           /*<<float.ml:483:6>>*/ for(;;){
           var father = (i$3 - 1 | 0) / 3 | 0;
-          if(i$3 === father)
-            /*<<float.ml:484:6>>*/ throw caml_maybe_attach_backtrace
-                  ([0, Assert_failure, _b_], 1);
-           /*<<float.ml:485:9>>*/ if
-           (0 <= caml_call2(cmp, caml_check_bound(a, father)[1 + father], e$0))
+           /*<<float.ml:484:6>>*/ if(i$3 === father)
+           throw caml_maybe_attach_backtrace([0, Assert_failure, _b_], 1);
+           /*<<float.ml:485:29>>*/ if
+           (0
+            <=
+              /*<<float.ml:485:9>>*/ caml_call2
+              (cmp,
+                /*<<float.ml:485:13>>*/ caml_check_bound(a, father)
+                [1 + father],
+               e$0))
            break;
           var
            _P_ =
               /*<<float.ml:486:16>>*/ caml_check_bound(a, father)[1 + father];
            /*<<float.ml:486:8>>*/ caml_check_bound(a, i$3)[1 + i$3] = _P_;
-          if(0 >= father) break b;
+           /*<<float.ml:486:30>>*/ if(0 >= father) break b;
           i$3 = father;
          }
           /*<<float.ml:488:15>>*/ caml_check_bound(a, i$3)[1 + i$3] = e$0;
@@ -8428,16 +8711,17 @@
         }
          /*<<float.ml:487:51>>*/ caml_check_bound(a, 0)[1] = e$0;
        }
-       var _U_ =  /*<<float.ml:494:4>>*/ i$4 - 1 | 0;
+       var _U_ =  /*<<float.ml:497:30>>*/ i$4 - 1 | 0;
        if(2 === i$4) break;
        i$4 = _U_;
       }
      }
     }
-    var _S_ = 1 < l ? 1 : 0;
+    var _S_ =  /*<<float.ml:499:4>>*/ 1 < l ? 1 : 0;
     if(_S_){
      var e =  /*<<float.ml:499:27>>*/ caml_check_bound(a, 1)[2];
-      /*<<float.ml:499:40>>*/ a[2] = caml_check_bound(a, 0)[1];
+      /*<<float.ml:499:40>>*/ a[2] =
+       /*<<float.ml:499:48>>*/ caml_check_bound(a, 0)[1];
       /*<<float.ml:499:59>>*/ a[1] = e;
      var _T_ = 0;
     }
@@ -8448,7 +8732,7 @@
    function stable_sort(cmp, a){
     function merge(src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs){
      var
-      src1r = src1ofs + src1len | 0,
+      src1r =  /*<<float.ml:505:6>>*/ src1ofs + src1len | 0,
       src2r = src2ofs + src2len | 0,
       s2$1 =
          /*<<float.ml:522:46>>*/ caml_check_bound(src2, src2ofs)[1 + src2ofs],
@@ -8460,11 +8744,12 @@
       s2 = s2$1,
       d = dstofs;
       /*<<float.ml:507:8>>*/ for(;;)
-       /*<<float.ml:507:11>>*/ if(0 < caml_call2(cmp, s1, s2)){
+       /*<<float.ml:507:20>>*/ if
+       (0 <  /*<<float.ml:507:11>>*/ caml_call2(cmp, s1, s2)){
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
-       var i2$0 = i2 + 1 | 0;
-       if(i2$0 >= src2r)
-         /*<<float.ml:279:11>>*/ return blit
+       var i2$0 =  /*<<float.ml:515:22>>*/ i2 + 1 | 0;
+        /*<<float.ml:517:10>>*/ if(i2$0 >= src2r)
+         /*<<float.ml:520:12>>*/ return blit
                 (a, i1, dst, d + 1 | 0, src1r - i1 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
@@ -8475,9 +8760,9 @@
       }
       else{
         /*<<float.ml:508:10>>*/ caml_check_bound(dst, d)[1 + d] = s1;
-       var i1$0 = i1 + 1 | 0;
-       if(i1$0 >= src1r)
-         /*<<float.ml:279:11>>*/ return blit
+       var i1$0 =  /*<<float.ml:508:22>>*/ i1 + 1 | 0;
+        /*<<float.ml:510:10>>*/ if(i1$0 >= src1r)
+         /*<<float.ml:513:12>>*/ return blit
                 (src2, i2, dst, d + 1 | 0, src2r - i2 | 0) /*<<float.ml:522:72>>*/ ;
        var
         d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
@@ -8488,30 +8773,35 @@
       }
      /*<<float.ml:522:72>>*/ }
     function isortto(srcofs, dst, dstofs, len){
-     var _F_ = len - 1 | 0, _E_ =  /*<<float.ml:525:6>>*/ 0;
+     var _F_ =  /*<<float.ml:525:6>>*/ len - 1 | 0, _E_ = 0;
      if(_F_ >= 0){
       var i = _E_;
       for(;;){
        var
-        _G_ = srcofs + i | 0,
+        _G_ =  /*<<float.ml:526:8>>*/ srcofs + i | 0,
         e =  /*<<float.ml:526:16>>*/ caml_check_bound(a, _G_)[1 + _G_],
-        j =  /*<<float.ml:527:16>>*/ [0, (dstofs + i | 0) - 1 | 0];
+        j =  /*<<float.ml:527:8>>*/ [0, (dstofs + i | 0) - 1 | 0];
        for(;;){
         if(dstofs > j[1]) break;
         var _H_ = j[1];
-         /*<<float.ml:528:31>>*/ if
-         (0 >= caml_call2(cmp, caml_check_bound(dst, _H_)[1 + _H_], e))
+         /*<<float.ml:528:49>>*/ if
+         (0
+          >=
+            /*<<float.ml:528:31>>*/ caml_call2
+            (cmp,
+              /*<<float.ml:528:35>>*/ caml_check_bound(dst, _H_)[1 + _H_],
+             e))
          break;
         var
-         _I_ = j[1],
+         _I_ =  /*<<float.ml:529:10>>*/ j[1],
          _J_ =  /*<<float.ml:529:27>>*/ caml_check_bound(dst, _I_)[1 + _I_],
-         _K_ = j[1] + 1 | 0;
+         _K_ =  /*<<float.ml:529:39>>*/ j[1] + 1 | 0;
          /*<<float.ml:529:10>>*/ caml_check_bound(dst, _K_)[1 + _K_] = _J_;
-        j[1]--;
+         /*<<float.ml:529:39>>*/ j[1]--;
        }
-       var _L_ = j[1] + 1 | 0;
-        /*<<float.ml:532:8>>*/ caml_check_bound(dst, _L_)[1 + _L_] = e;
-       var _M_ =  /*<<float.ml:525:6>>*/ i + 1 | 0;
+       var _L_ =  /*<<float.ml:532:8>>*/ j[1] + 1 | 0;
+       caml_check_bound(dst, _L_)[1 + _L_] = e;
+       var _M_ =  /*<<float.ml:532:26>>*/ i + 1 | 0;
        if(_F_ === i) break;
        i = _M_;
       }
@@ -8521,33 +8811,37 @@
     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:542:9>>*/ ;
-     var l1 = len / 2 | 0, l2 = len - l1 | 0;
+     var
+      l1 =  /*<<float.ml:536:63>>*/ len / 2 | 0,
+      l2 =  /*<<float.ml:538:8>>*/ 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);
-     return merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<float.ml:542:9>>*/ ;
+      /*<<float.ml:540:40>>*/ return merge
+             (srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs) /*<<float.ml:542:9>>*/ ;
     }
-    var l = a.length - 1;
-    if(l <= 5)
+    var l =  /*<<float.ml:544:4>>*/ a.length - 1;
+     /*<<float.ml:545:4>>*/ if(l <= 5)
       /*<<float.ml:545:24>>*/ return isortto(0, a, 0, l) /*<<float.ml:552:7>>*/ ;
     var
-     l1 = l / 2 | 0,
-     l2 = l - l1 | 0,
+     l1 =  /*<<float.ml:545:45>>*/ l / 2 | 0,
+     l2 =  /*<<float.ml:547:6>>*/ l - l1 | 0,
      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);
-    return merge(l2, l1, t, 0, l2, a, 0) /*<<float.ml:552:7>>*/ ;
+     /*<<float.ml:550:22>>*/ return merge(l2, l1, t, 0, l2, a, 0) /*<<float.ml:552:7>>*/ ;
    }
    function shuffle(rand, a){
-    var _C_ = a.length - 2 | 0;
+    var _C_ =  /*<<float.ml:558:4>>*/ a.length - 2 | 0;
     if(_C_ >= 1){
      var i = _C_;
      for(;;){
       var
        j =  /*<<float.ml:559:14>>*/ caml_call1(rand, i + 1 | 0),
        v =  /*<<float.ml:560:14>>*/ a[1 + i];
-       /*<<float.ml:561:6>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
+       /*<<float.ml:561:6>>*/ a[1 + i] =
+        /*<<float.ml:561:21>>*/ caml_check_bound(a, j)[1 + j];
        /*<<float.ml:562:6>>*/ a[1 + j] = v;
-      var _D_ = i - 1 | 0;
+      var _D_ =  /*<<float.ml:562:22>>*/ i - 1 | 0;
       if(1 === i) break;
       i = _D_;
      }
@@ -8558,10 +8852,12 @@
     function aux(i, param){
       /*<<float.ml:568:6>>*/ if(i >= a.length - 1)
        /*<<float.ml:572:11>>*/ return 0;
-     var x =  /*<<float.ml:570:16>>*/ a[1 + i], _A_ = i + 1 | 0;
-      /*<<float.ml:571:8>>*/ return [0,
+     var
+      x =  /*<<float.ml:570:16>>*/ a[1 + i],
+      _A_ =  /*<<float.ml:571:8>>*/ i + 1 | 0;
+      /*<<float.ml:571:30>>*/ return [0,
              x,
-             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:8>>*/ ;
+             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:30>>*/ ;
      /*<<float.ml:572:18>>*/ }
     var _y_ =  /*<<float.ml:574:4>>*/ 0;
     return function(_z_){
@@ -8571,10 +8867,12 @@
     function aux(i, param){
       /*<<float.ml:579:6>>*/ if(i >= a.length - 1)
        /*<<float.ml:583:11>>*/ return 0;
-     var x =  /*<<float.ml:581:16>>*/ a[1 + i], _w_ = i + 1 | 0;
-      /*<<float.ml:582:8>>*/ return [0,
+     var
+      x =  /*<<float.ml:581:16>>*/ a[1 + i],
+      _w_ =  /*<<float.ml:582:8>>*/ i + 1 | 0;
+      /*<<float.ml:582:34>>*/ return [0,
              [0, i, x],
-             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:8>>*/ ;
+             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:34>>*/ ;
      /*<<float.ml:583:18>>*/ }
     var _u_ =  /*<<float.ml:585:4>>*/ 0;
     return function(_v_){
@@ -8592,33 +8890,33 @@
          i$2),
      len =  /*<<float.ml:589:14>>*/ caml_call1(Stdlib_List[1], l),
      a =  /*<<float.ml:590:12>>*/ caml_floatarray_create(len),
-     i$1 =  /*<<float.ml:589:14>>*/ len - 1 | 0,
+     i$1 =  /*<<float.ml:595:4>>*/ len - 1 | 0,
      i = i$1,
      param = l;
      /*<<float.ml:591:17>>*/ for(;;){
-     if(! param)  /*<<float.ml:591:4>>*/ return a;
+     if(! param)  /*<<float.ml:592:14>>*/ return a;
      var tl = param[2], hd = param[1];
       /*<<float.ml:593:18>>*/ a[1 + i] = hd;
-     var i$0 =  /*<<float.ml:591:4>>*/ i - 1 | 0;
+     var i$0 =  /*<<float.ml:593:35>>*/ i - 1 | 0;
      i = i$0;
      param = tl;
     }
     /*<<float.ml:600:17>>*/ }
    function map_to_array(f, a){
-    var l = a.length - 1;
+    var l =  /*<<float.ml:604:4>>*/ a.length - 1;
      /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
     var
      r =
         /*<<float.ml:606:14>>*/ caml_make_vect
         (l,  /*<<float.ml:606:27>>*/ caml_call1(f, a[1])),
      _s_ =  /*<<float.ml:607:6>>*/ l - 1 | 0,
-     _r_ =  /*<<float.ml:606:14>>*/ 1;
-    if(_s_ >= 1){
+     _r_ =  /*<<float.ml:606:47>>*/ 1;
+     /*<<float.ml:607:6>>*/ if(_s_ >= 1){
      var i = _r_;
      for(;;){
        /*<<float.ml:608:8>>*/ r[1 + i] =
         /*<<float.ml:608:29>>*/ caml_call1(f, a[1 + i]);
-      var _t_ =  /*<<float.ml:608:8>>*/ i + 1 | 0;
+      var _t_ =  /*<<float.ml:608:49>>*/ i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
      }
@@ -8627,16 +8925,16 @@
     /*<<float.ml:611:7>>*/ }
    function map_from_array(f, a){
     var
-     l = a.length - 1,
+     l =  /*<<float.ml:614:4>>*/ a.length - 1,
      r =  /*<<float.ml:615:12>>*/ caml_floatarray_create(l),
      _p_ =  /*<<float.ml:616:4>>*/ l - 1 | 0,
-     _o_ =  /*<<float.ml:615:12>>*/ 0;
-    if(_p_ >= 0){
+     _o_ =  /*<<float.ml:615:20>>*/ 0;
+     /*<<float.ml:616:4>>*/ if(_p_ >= 0){
      var i = _o_;
      for(;;){
        /*<<float.ml:617:6>>*/ r[1 + i] =
         /*<<float.ml:617:21>>*/ caml_call1(f, a[1 + i]);
-      var _q_ =  /*<<float.ml:617:6>>*/ i + 1 | 0;
+      var _q_ =  /*<<float.ml:617:47>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
      }
@@ -8645,7 +8943,7 @@
     /*<<float.ml:619:5>>*/ }
    var
     Stdlib_Float =
-      [0,
+       /*<<float.ml:38:60>>*/ [0,
        0.,
        1.,
        -1.,
@@ -8770,9 +9068,10 @@
         of_seq,
         map_to_array,
         map_from_array]];
-   runtime.caml_register_global(25, Stdlib_Float, "Stdlib__Float");
+    /*<<float.ml:38:60>>*/ runtime.caml_register_global
+    (25, Stdlib_Float, "Stdlib__Float");
    return;
-  }
+   /*<<?>>*/ }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Int32
@@ -8797,11 +9096,11 @@
     zero = 0,
     one = 1;
    function succ(n){
-     /*<<int32.ml:48:13>>*/ return n + 1 | 0;
-    /*<<int32.ml:48:21>>*/ }
+     /*<<int32.ml:48:13>>*/ return n + 1 | 0 /*<<int32.ml:48:21>>*/ ;
+   }
    function pred(n){
-     /*<<int32.ml:49:13>>*/ return n - 1 | 0;
-    /*<<int32.ml:49:21>>*/ }
+     /*<<int32.ml:49:13>>*/ return n - 1 | 0 /*<<int32.ml:49:21>>*/ ;
+   }
    function abs(n){
      /*<<int32.ml:50:12>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
              (n, 0)
@@ -8809,13 +9108,13 @@
             : - n | 0 /*<<int32.ml:50:40>>*/ ;
    }
    function lognot(n){
-     /*<<int32.ml:53:15>>*/ return n ^ -1;
-    /*<<int32.ml:53:29>>*/ }
+     /*<<int32.ml:53:15>>*/ return n ^ -1 /*<<int32.ml:53:29>>*/ ;
+   }
    var
-    _a_ =  /*<<int32.ml:53:11>>*/ Stdlib_Sys[9],
+    _a_ = Stdlib_Sys[9],
     _b_ = [0, "int32.ml", 69, 6],
     minus_one = -1,
-    min_int =  /*<<int32.ml:50:8>>*/ -2147483648,
+    min_int = -2147483648,
     max_int = 2147483647;
    if(32 === _a_)
     var
@@ -8845,9 +9144,9 @@
      /*<<int32.ml:77:2>>*/ try{
      var
       _d_ =
-         /*<<int32.ml:77:6>>*/ [0,
+         /*<<int32.ml:77:24>>*/ [0,
           /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
-      /*<<int32.ml:77:6>>*/ return _d_;
+     return _d_;
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
@@ -8860,7 +9159,8 @@
     var
      y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
      x =  /*<<int32.ml:86:10>>*/ n + 2147483648 | 0;
-     /*<<int32.ml:82:28>>*/ return caml_int_compare(x, y) /*<<int32.ml:86:41>>*/ ;
+     /*<<int32.ml:82:46>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
+            (x, y) /*<<int32.ml:86:41>>*/ ;
    }
    function unsigned_lt(n, m){
      /*<<int32.ml:89:2>>*/ return caml_lessthan
@@ -8880,7 +9180,9 @@
    }
    function unsigned_div(n, d){
      /*<<int32.ml:98:2>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
-      /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int32.ml:103:41>>*/ ;
+      /*<<int32.ml:99:22>>*/ return  /*<<int32.ml:99:7>>*/ unsigned_lt(n, d)
+             ? zero
+             : one /*<<int32.ml:103:41>>*/ ;
     var
      q =
         /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
@@ -8889,15 +9191,17 @@
      r =
         /*<<int32.ml:102:12>>*/ n -  /*<<int32.ml:102:18>>*/ caml_mul(q, d)
        | 0;
-     /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
+     /*<<int32.ml:103:22>>*/ return  /*<<int32.ml:103:7>>*/ unsigned_lt(r, d)
+            ? q
+            : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
    }
    function unsigned_rem(n, d){
      /*<<int32.ml:106:2>>*/ return n
            -
              /*<<int32.ml:106:8>>*/ caml_mul
              ( /*<<int32.ml:106:13>>*/ unsigned_div(n, d), d)
-           | 0 /*<<int32.ml:106:2>>*/ ;
-    /*<<int32.ml:106:34>>*/ }
+           | 0 /*<<int32.ml:106:34>>*/ ;
+   }
    function seeded_hash(seed, x){
      /*<<int32.ml:110:25>>*/ return caml_hash(10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
    }
@@ -8994,9 +9298,9 @@
      /*<<int64.ml:67:2>>*/ try{
      var
       _g_ =
-         /*<<int64.ml:67:6>>*/ [0,
+         /*<<int64.ml:67:24>>*/ [0,
           /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
-      /*<<int64.ml:67:6>>*/ return _g_;
+     return _g_;
     }
     catch(_h_){
      var _f_ = caml_wrap_exception(_h_);
@@ -9007,12 +9311,13 @@
    function compare(x, y){
      /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:79:46>>*/ ;
    }
-   var equal = runtime.caml_equal;
+   var equal =  /*<<int64.ml:55:2>>*/ runtime.caml_equal;
    function unsigned_compare(n, m){
     var
      y =  /*<<int64.ml:83:26>>*/ caml_int64_sub(m, min_int),
      x =  /*<<int64.ml:83:10>>*/ caml_int64_sub(n, min_int);
-     /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:83:41>>*/ ;
+     /*<<int64.ml:79:46>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
+            (x, y) /*<<int64.ml:83:41>>*/ ;
    }
    function unsigned_lt(n, m){
      /*<<int64.ml:86:2>>*/ return caml_lessthan
@@ -9033,7 +9338,9 @@
    }
    function unsigned_div(n, d){
      /*<<int64.ml:95:2>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
-      /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int64.ml:100:41>>*/ ;
+      /*<<int64.ml:96:22>>*/ return  /*<<int64.ml:96:7>>*/ unsigned_lt(n, d)
+             ? zero
+             : one /*<<int64.ml:100:41>>*/ ;
     var
      q =
         /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
@@ -9045,7 +9352,7 @@
      r =
         /*<<int64.ml:99:12>>*/ caml_int64_sub
         (n,  /*<<int64.ml:99:18>>*/ caml_int64_mul(q, d));
-     /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
+     /*<<int64.ml:100:22>>*/ return  /*<<int64.ml:100:7>>*/ unsigned_lt(r, d)
             ? q
             :  /*<<int64.ml:46:13>>*/ caml_int64_add(q, _a_) /*<<int64.ml:100:41>>*/ ;
    }
@@ -9063,7 +9370,7 @@
    }
    var
     Stdlib_Int64 =
-      [0,
+       /*<<int64.ml:55:2>>*/ [0,
        zero,
        one,
        minus_one,
@@ -9111,11 +9418,11 @@
     zero = 0,
     one = 1;
    function succ(n){
-     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0;
-    /*<<nativeint.ml:44:21>>*/ }
+     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0 /*<<nativeint.ml:44:21>>*/ ;
+   }
    function pred(n){
-     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0;
-    /*<<nativeint.ml:45:21>>*/ }
+     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0 /*<<nativeint.ml:45:21>>*/ ;
+   }
    function abs(n){
      /*<<nativeint.ml:46:12>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
              (n, 0)
@@ -9123,13 +9430,13 @@
             : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
    }
    var
-    size =  /*<<nativeint.ml:46:8>>*/ Stdlib_Sys[9],
+    size = Stdlib_Sys[9],
     min_int =  /*<<nativeint.ml:48:14>>*/ 1 << (size - 1 | 0),
     max_int =  /*<<nativeint.ml:49:14>>*/ min_int - 1 | 0;
    function lognot(n){
-     /*<<nativeint.ml:50:15>>*/ return n ^ -1;
-    /*<<nativeint.ml:50:29>>*/ }
-   var max_int$0 =  /*<<nativeint.ml:50:11>>*/ Stdlib[19];
+     /*<<nativeint.ml:50:15>>*/ return n ^ -1 /*<<nativeint.ml:50:29>>*/ ;
+   }
+   var max_int$0 =  /*<<nativeint.ml:49:28>>*/ Stdlib[19];
    function unsigned_to_int(n){
      /*<<nativeint.ml:55:4>>*/ if
      ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal(n, 0)
@@ -9144,9 +9451,9 @@
      /*<<nativeint.ml:66:2>>*/ try{
      var
       _b_ =
-         /*<<nativeint.ml:66:6>>*/ [0,
+         /*<<nativeint.ml:66:24>>*/ [0,
           /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
-      /*<<nativeint.ml:66:6>>*/ return _b_;
+     return _b_;
     }
     catch(_c_){
      var _a_ = caml_wrap_exception(_c_);
@@ -9154,18 +9461,19 @@
      throw caml_maybe_attach_backtrace(_a_, 0);
     }
     /*<<nativeint.ml:67:24>>*/ }
-   var compare = caml_int_compare;
+   var compare =  /*<<nativeint.ml:54:2>>*/ caml_int_compare;
    function equal(x, y){
      /*<<nativeint.ml:72:26>>*/ return 0
             ===  /*<<nativeint.ml:71:28>>*/ caml_int_compare(x, y)
             ? 1
-            : 0;
+            : 0 /*<<nativeint.ml:72:37>>*/ ;
     /*<<nativeint.ml:72:41>>*/ }
    function unsigned_compare(n, m){
     var
      y =  /*<<nativeint.ml:75:26>>*/ m - min_int | 0,
      x =  /*<<nativeint.ml:75:10>>*/ n - min_int | 0;
-     /*<<nativeint.ml:71:28>>*/ return caml_int_compare(x, y) /*<<nativeint.ml:75:41>>*/ ;
+     /*<<nativeint.ml:71:46>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
+            (x, y) /*<<nativeint.ml:75:41>>*/ ;
    }
    function unsigned_lt(n, m){
      /*<<nativeint.ml:78:2>>*/ return caml_lessthan
@@ -9186,7 +9494,10 @@
    function unsigned_div(n, d){
      /*<<nativeint.ml:87:2>>*/ if
      ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
-      /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<nativeint.ml:92:41>>*/ ;
+      /*<<nativeint.ml:88:22>>*/ return  /*<<nativeint.ml:88:7>>*/ unsigned_lt
+              (n, d)
+             ? zero
+             : one /*<<nativeint.ml:92:41>>*/ ;
     var
      q =
         /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
@@ -9196,15 +9507,18 @@
         /*<<nativeint.ml:91:12>>*/ n
        -  /*<<nativeint.ml:91:18>>*/ caml_mul(q, d)
        | 0;
-     /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
+     /*<<nativeint.ml:92:22>>*/ return  /*<<nativeint.ml:92:7>>*/ unsigned_lt
+             (r, d)
+            ? q
+            : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
    }
    function unsigned_rem(n, d){
      /*<<nativeint.ml:95:2>>*/ return n
            -
              /*<<nativeint.ml:95:8>>*/ caml_mul
              ( /*<<nativeint.ml:95:13>>*/ unsigned_div(n, d), d)
-           | 0 /*<<nativeint.ml:95:2>>*/ ;
-    /*<<nativeint.ml:95:34>>*/ }
+           | 0 /*<<nativeint.ml:95:34>>*/ ;
+   }
    function seeded_hash(seed, x){
      /*<<nativeint.ml:99:25>>*/ return caml_hash(10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
    }
@@ -9213,7 +9527,7 @@
    }
    var
     Stdlib_Nativeint =
-      [0,
+       /*<<nativeint.ml:54:2>>*/ [0,
        zero,
        one,
        -1,
@@ -9291,11 +9605,11 @@
     var
      result =
         /*<<lexing.ml:65:15>>*/ runtime.caml_lex_engine(tbl, state, buf),
-     _n_ = 0 <= result ? 1 : 0,
+     _n_ =  /*<<lexing.ml:66:2>>*/ 0 <= result ? 1 : 0,
      _o_ = _n_ ? buf[12] !== dummy_pos ? 1 : 0 : _n_;
     if(_o_){
-     buf[11] = buf[12];
-     var _p_ = buf[12];
+      /*<<lexing.ml:66:53>>*/ buf[11] = buf[12];
+     var _p_ =  /*<<lexing.ml:68:4>>*/ buf[12];
      buf[12] = [0, _p_[1], _p_[2], _p_[3], buf[4] + buf[6] | 0];
     }
      /*<<lexing.ml:71:2>>*/ return result;
@@ -9304,30 +9618,33 @@
     var
      result =
         /*<<lexing.ml:75:15>>*/ runtime.caml_new_lex_engine(tbl, state, buf),
-     _k_ = 0 <= result ? 1 : 0,
+     _k_ =  /*<<lexing.ml:76:2>>*/ 0 <= result ? 1 : 0,
      _l_ = _k_ ? buf[12] !== dummy_pos ? 1 : 0 : _k_;
     if(_l_){
-     buf[11] = buf[12];
-     var _m_ = buf[12];
+      /*<<lexing.ml:76:53>>*/ buf[11] = buf[12];
+     var _m_ =  /*<<lexing.ml:78:4>>*/ buf[12];
      buf[12] = [0, _m_[1], _m_[2], _m_[3], buf[4] + buf[6] | 0];
     }
      /*<<lexing.ml:81:2>>*/ return result;
     /*<<lexing.ml:81:8>>*/ }
    function from_function(opt, read_fun){
     var
-     with_positions = opt ? opt[1] : 1,
+     with_positions =  /*<<lexing.ml:147:18>>*/ opt ? opt[1] : 1,
      _f_ =  /*<<lexing.ml:148:2>>*/ with_positions ? zero_pos : dummy_pos,
      _g_ = with_positions ? zero_pos : dummy_pos,
      aux_buffer =  /*<<lexing.ml:148:31>>*/ caml_create_bytes(512);
-     /*<<lexing.ml:148:2>>*/ return [0,
+     /*<<lexing.ml:148:49>>*/ return [0,
             function(lexbuf){
              var
               read =
                  /*<<lexing.ml:85:4>>*/ caml_call2
-                 (read_fun, aux_buffer, caml_ml_bytes_length(aux_buffer)),
+                 (read_fun,
+                  aux_buffer,
+                   /*<<lexing.ml:84:2>>*/ caml_ml_bytes_length(aux_buffer)),
               n =  /*<<lexing.ml:86:2>>*/ 0 < read ? read : (lexbuf[9] = 1, 0);
-             if(caml_ml_bytes_length(lexbuf[2]) < (lexbuf[3] + n | 0)){
-              if
+              /*<<lexing.ml:96:2>>*/ if
+              (caml_ml_bytes_length(lexbuf[2]) < (lexbuf[3] + n | 0)){
+               /*<<lexing.ml:96:69>>*/ if
                (((lexbuf[3] - lexbuf[5] | 0) + n | 0)
                 <= caml_ml_bytes_length(lexbuf[2]))
                 /*<<lexing.ml:100:9>>*/ caml_call5
@@ -9342,9 +9659,12 @@
                 newlen =
                    /*<<lexing.ml:111:8>>*/ caml_call2
                    (Stdlib_Int[10],
-                    2 * caml_ml_bytes_length(lexbuf[2]) | 0,
+                    2
+                    *  /*<<lexing.ml:106:13>>*/ caml_ml_bytes_length(lexbuf[2])
+                    | 0,
                     Stdlib_Sys[12]);
-               if(newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0))
+                /*<<lexing.ml:112:6>>*/ if
+                (newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0))
                  /*<<lexing.ml:113:11>>*/ caml_call1
                  (Stdlib[2], cst_Lexing_lex_refill_cannot_g);
                var
@@ -9356,23 +9676,26 @@
                  newbuf,
                  0,
                  lexbuf[3] - lexbuf[5] | 0);
-               lexbuf[2] = newbuf;
+                /*<<lexing.ml:118:64>>*/ lexbuf[2] = newbuf;
               }
-              var s = lexbuf[5];
-              lexbuf[4] = lexbuf[4] + s | 0;
-              lexbuf[6] = lexbuf[6] - s | 0;
-              lexbuf[5] = 0;
-              lexbuf[7] = lexbuf[7] - s | 0;
-              lexbuf[3] = lexbuf[3] - s | 0;
-              var t = lexbuf[10], _i_ = t.length - 2 | 0, _h_ = 0;
-              if(_i_ >= 0){
+              var s =  /*<<lexing.ml:123:4>>*/ lexbuf[5];
+               /*<<lexing.ml:124:4>>*/ lexbuf[4] = lexbuf[4] + s | 0;
+               /*<<lexing.ml:125:4>>*/ lexbuf[6] = lexbuf[6] - s | 0;
+               /*<<lexing.ml:126:4>>*/ lexbuf[5] = 0;
+               /*<<lexing.ml:127:4>>*/ lexbuf[7] = lexbuf[7] - s | 0;
+               /*<<lexing.ml:128:4>>*/ lexbuf[3] = lexbuf[3] - s | 0;
+              var
+               t =  /*<<lexing.ml:129:4>>*/ lexbuf[10],
+               _i_ =  /*<<lexing.ml:130:4>>*/ t.length - 2 | 0,
+               _h_ =  /*<<lexing.ml:129:4>>*/ 0;
+               /*<<lexing.ml:130:4>>*/ if(_i_ >= 0){
                var i = _h_;
                for(;;){
                 var
                  v =  /*<<lexing.ml:131:14>>*/ caml_check_bound(t, i)[1 + i];
-                if(0 <= v)
+                 /*<<lexing.ml:132:6>>*/ if(0 <= v)
                   /*<<lexing.ml:133:8>>*/ caml_check_bound(t, i)[1 + i] = v - s | 0;
-                var _j_ =  /*<<lexing.ml:130:4>>*/ i + 1 | 0;
+                var _j_ = i + 1 | 0;
                 if(_i_ === i) break;
                 i = _j_;
                }
@@ -9380,7 +9703,7 @@
              }
               /*<<lexing.ml:137:2>>*/ caml_call5
               (Stdlib_Bytes[11], aux_buffer, 0, lexbuf[2], lexbuf[3], n);
-             lexbuf[3] = lexbuf[3] + n | 0;
+              /*<<lexing.ml:137:67>>*/ lexbuf[3] = lexbuf[3] + n | 0;
              return 0;
             },
              /*<<lexing.ml:149:17>>*/ caml_create_bytes(1024),
@@ -9393,10 +9716,10 @@
             0,
             [0],
             _g_,
-            _f_] /*<<lexing.ml:148:2>>*/ ;
+            _f_] /*<<lexing.ml:148:49>>*/ ;
     /*<<lexing.ml:160:3>>*/ }
    function from_channel(with_positions, ic){
-     /*<<lexing.ml:163:2>>*/ return  /*<<lexing.ml:163:32>>*/ from_function
+     /*<<lexing.ml:163:2>>*/ return from_function
             (with_positions,
              function(buf, n){
                /*<<lexing.ml:163:46>>*/ return caml_call4
@@ -9405,10 +9728,10 @@
    }
    function from_string(opt, s){
     var
-     with_positions = opt ? opt[1] : 1,
+     with_positions =  /*<<lexing.ml:165:16>>*/ opt ? opt[1] : 1,
      _d_ =  /*<<lexing.ml:166:2>>*/ with_positions ? zero_pos : dummy_pos,
      _e_ = with_positions ? zero_pos : dummy_pos;
-    return [0,
+     /*<<lexing.ml:167:34>>*/ return [0,
             function(lexbuf){
               /*<<lexing.ml:166:33>>*/ lexbuf[9] = 1;
              return 0;
@@ -9423,16 +9746,16 @@
             1,
             [0],
             _e_,
-            _d_] /*<<lexing.ml:166:2>>*/ ;
+            _d_] /*<<lexing.ml:167:34>>*/ ;
     /*<<lexing.ml:179:3>>*/ }
    function set_position(lexbuf, position){
      /*<<lexing.ml:182:2>>*/ lexbuf[12] =
      [0, lexbuf[12][1], position[2], position[3], position[4]];
-    lexbuf[4] = position[4];
+     /*<<lexing.ml:183:2>>*/ lexbuf[4] = position[4];
     return 0;
     /*<<lexing.ml:183:41>>*/ }
    function set_filename(lexbuf, fname){
-    var _c_ = lexbuf[12];
+    var _c_ =  /*<<lexing.ml:186:2>>*/ lexbuf[12];
     lexbuf[12] = [0, fname, _c_[2], _c_[3], _c_[4]];
     return 0;
     /*<<lexing.ml:186:65>>*/ }
@@ -9440,21 +9763,21 @@
      /*<<lexing.ml:188:28>>*/ return lexbuf[12] !== dummy_pos ? 1 : 0;
     /*<<lexing.ml:188:58>>*/ }
    function lexeme(lexbuf){
-    var len = lexbuf[6] - lexbuf[5] | 0;
+    var len =  /*<<lexing.ml:191:2>>*/ lexbuf[6] - lexbuf[5] | 0;
      /*<<lexing.ml:192:2>>*/ return caml_call3
             (Stdlib_Bytes[8], lexbuf[2], lexbuf[5], len) /*<<lexing.ml:192:61>>*/ ;
    }
    function sub_lexeme(lexbuf, i1, i2){
-    var len = i2 - i1 | 0;
+    var len =  /*<<lexing.ml:195:2>>*/ i2 - i1 | 0;
      /*<<lexing.ml:196:2>>*/ return caml_call3
             (Stdlib_Bytes[8], lexbuf[2], i1, len) /*<<lexing.ml:196:43>>*/ ;
    }
    function sub_lexeme_opt(lexbuf, i1, i2){
      /*<<lexing.ml:199:2>>*/ if(0 > i1)  /*<<lexing.ml:202:11>>*/ return 0;
-    var len = i2 - i1 | 0;
-     /*<<lexing.ml:201:4>>*/ return [0,
+    var len =  /*<<lexing.ml:199:18>>*/ i2 - i1 | 0;
+     /*<<lexing.ml:201:52>>*/ return [0,
              /*<<lexing.ml:201:9>>*/ caml_call3
-             (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:4>>*/ ;
+             (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:52>>*/ ;
     /*<<lexing.ml:204:5>>*/ }
    function sub_lexeme_char(lexbuf, i){
      /*<<lexing.ml:206:31>>*/ return caml_bytes_get(lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
@@ -9482,8 +9805,8 @@
     /*<<lexing.ml:222:43>>*/ }
    function new_line(lexbuf){
     var
-     lcp = lexbuf[12],
-     _a_ = lcp !== dummy_pos ? 1 : 0,
+     lcp =  /*<<lexing.ml:225:2>>*/ lexbuf[12],
+     _a_ =  /*<<lexing.ml:226:2>>*/ lcp !== dummy_pos ? 1 : 0,
      _b_ =
        _a_
         ? (lexbuf[12] = [0, lcp[1], lcp[2] + 1 | 0, lcp[4], lcp[4]], 0)
@@ -9492,11 +9815,12 @@
     /*<<lexing.ml:231:7>>*/ }
    function flush_input(lb){
      /*<<lexing.ml:238:2>>*/ lb[6] = 0;
-    lb[4] = 0;
-    var lcp = lb[12];
-    if(lcp !== dummy_pos)
-     lb[12] = [0, lcp[1], zero_pos[2], zero_pos[3], zero_pos[4]];
-    lb[3] = 0;
+     /*<<lexing.ml:239:2>>*/ lb[4] = 0;
+    var lcp =  /*<<lexing.ml:240:2>>*/ lb[12];
+     /*<<lexing.ml:241:2>>*/ if(lcp !== dummy_pos)
+      /*<<lexing.ml:242:4>>*/ lb[12] =
+      [0, lcp[1], zero_pos[2], zero_pos[3], zero_pos[4]];
+     /*<<lexing.ml:243:2>>*/ lb[3] = 0;
     return 0;
     /*<<lexing.ml:243:25>>*/ }
    var
@@ -9560,16 +9884,10 @@
     Stdlib_Obj = global_data.Stdlib__Obj,
     Stdlib_Array = global_data.Stdlib__Array,
     Stdlib_Lexing = global_data.Stdlib__Lexing,
-    YYexit =
-       /*<<parsing.ml:59:0>>*/ [248,
-       "Stdlib.Parsing.YYexit",
-       caml_fresh_oo_id(0)],
-    Parse_error =
-       /*<<parsing.ml:60:0>>*/ [248,
-       "Stdlib.Parsing.Parse_error",
-       caml_fresh_oo_id(0)],
+    YYexit = [248, "Stdlib.Parsing.YYexit", caml_fresh_oo_id(0)],
+    Parse_error = [248, "Stdlib.Parsing.Parse_error", caml_fresh_oo_id(0)],
     env =
-       /*<<parsing.ml:90:2>>*/ [0,
+       /*<<parsing.ml:90:30>>*/ [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]),
@@ -9589,8 +9907,8 @@
     dummy = 0;
    function grow_stacks(param){
     var
-     oldsize = env[5],
-     newsize = oldsize * 2 | 0,
+     oldsize =  /*<<parsing.ml:108:2>>*/ env[5],
+     newsize =  /*<<parsing.ml:109:2>>*/ oldsize * 2 | 0,
      new_s =  /*<<parsing.ml:110:14>>*/ caml_make_vect(newsize, 0),
      new_v =  /*<<parsing.ml:111:14>>*/ caml_make_vect(newsize, 0),
      new_start =
@@ -9599,53 +9917,53 @@
         /*<<parsing.ml:113:16>>*/ caml_make_vect(newsize, Stdlib_Lexing[1]);
      /*<<parsing.ml:114:4>>*/ caml_call5
      (Stdlib_Array[9], env[1], 0, new_s, 0, oldsize);
-    env[1] = new_s;
+     /*<<parsing.ml:114:44>>*/ env[1] = new_s;
      /*<<parsing.ml:116:4>>*/ caml_call5
      (Stdlib_Array[9], env[2], 0, new_v, 0, oldsize);
-    env[2] = new_v;
+     /*<<parsing.ml:116:44>>*/ env[2] = new_v;
      /*<<parsing.ml:118:4>>*/ caml_call5
      (Stdlib_Array[9], env[3], 0, new_start, 0, oldsize);
-    env[3] = new_start;
+     /*<<parsing.ml:118:57>>*/ env[3] = new_start;
      /*<<parsing.ml:120:4>>*/ caml_call5
      (Stdlib_Array[9], env[4], 0, new_end, 0, oldsize);
-    env[4] = new_end;
-    env[5] = newsize;
+     /*<<parsing.ml:120:53>>*/ env[4] = new_end;
+     /*<<parsing.ml:122:4>>*/ env[5] = newsize;
     /*<<parsing.ml:122:28>>*/ }
    function clear_parser(param){
      /*<<parsing.ml:125:2>>*/ caml_call4
      (Stdlib_Array[8], env[2], 0, env[5], 0);
-    env[8] = 0;
+     /*<<parsing.ml:125:54>>*/ env[8] = 0;
     return 0;
     /*<<parsing.ml:126:25>>*/ }
    var
     current_lookahead_fun =
-       /*<<parsing.ml:128:28>>*/ [0,
+       /*<<parsing.ml:90:30>>*/ [0,
        function(param){
          /*<<parsing.ml:128:52>>*/ return 0;
         /*<<parsing.ml:128:57>>*/ }],
     cst_syntax_error = "syntax error";
    function yyparse(tables, start, lexer, lexbuf){
     var
-     init_asp = env[11],
+     init_asp =  /*<<parsing.ml:154:2>>*/ env[11],
      init_sp = env[14],
      init_stackbase = env[6],
      init_state = env[15],
      init_curr_char = env[7],
      init_lval = env[8],
      init_errflag = env[16];
-    env[6] = env[14] + 1 | 0;
-    env[7] = start;
-    env[10] = lexbuf[12];
-     /*<<parsing.ml:164:2>>*/ try{
+     /*<<parsing.ml:161:2>>*/ env[6] = env[14] + 1 | 0;
+     /*<<parsing.ml:162:2>>*/ env[7] = start;
+     /*<<parsing.ml:163:2>>*/ env[10] = lexbuf[12];
+    try{
      var cmd = 0, arg = 0;
       /*<<parsing.ml:132:4>>*/ for(;;)
-      switch
+       /*<<parsing.ml:132:41>>*/ switch
        ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
          (tables, env, cmd, arg)){
         case 0:
          var arg$0 =  /*<<parsing.ml:134:24>>*/ caml_call1(lexer, lexbuf);
-         env[9] = lexbuf[11];
-         env[10] = lexbuf[12];
+          /*<<parsing.ml:135:8>>*/ env[9] = lexbuf[11];
+          /*<<parsing.ml:136:8>>*/ env[10] = lexbuf[12];
          cmd = 1;
          arg = arg$0;
          break;
@@ -9663,7 +9981,7 @@
            _j_ =
               /*<<parsing.ml:143:39>>*/ caml_call1
               (caml_check_bound(tables[1], _i_)[1 + _i_], env),
-           _k_ = 4,
+           _k_ =  /*<<parsing.ml:143:75>>*/ 4,
            value = _j_,
            action = _k_;
          }
@@ -9685,81 +10003,94 @@
      var
       exn = caml_wrap_exception(exn$0),
       curr_char =  /*<<parsing.ml:167:4>>*/ env[7];
-     env[11] = init_asp;
-     env[14] = init_sp;
-     env[6] = init_stackbase;
-     env[15] = init_state;
-     env[7] = init_curr_char;
-     env[8] = init_lval;
-     env[16] = init_errflag;
-     if(exn[1] === YYexit){
+      /*<<parsing.ml:168:4>>*/ env[11] = init_asp;
+      /*<<parsing.ml:169:4>>*/ env[14] = init_sp;
+      /*<<parsing.ml:170:4>>*/ env[6] = init_stackbase;
+      /*<<parsing.ml:171:4>>*/ env[15] = init_state;
+      /*<<parsing.ml:172:4>>*/ env[7] = init_curr_char;
+      /*<<parsing.ml:173:4>>*/ env[8] = init_lval;
+      /*<<parsing.ml:174:4>>*/ env[16] = init_errflag;
+      /*<<parsing.ml:175:4>>*/ if(exn[1] === YYexit){
       var v = exn[2];
        /*<<parsing.ml:177:8>>*/ return v;
      }
-     current_lookahead_fun[1] =
+      /*<<parsing.ml:179:8>>*/ current_lookahead_fun[1] =
       function(tok){
         /*<<parsing.ml:181:12>>*/ if
         (!  /*<<parsing.ml:181:15>>*/ caml_call1(Stdlib_Obj[1], tok))
-         /*<<parsing.ml:183:17>>*/ return caml_check_bound(tables[2], tok)
+         /*<<parsing.ml:183:52>>*/ return  /*<<parsing.ml:183:17>>*/ caml_check_bound
+                  (tables[2], tok)
                  [1 + tok]
                 === curr_char
                 ? 1
-                : 0;
+                : 0 /*<<parsing.ml:183:52>>*/ ;
        var _l_ =  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag(tok);
-        /*<<parsing.ml:182:17>>*/ return caml_check_bound(tables[3], _l_)
+        /*<<parsing.ml:182:50>>*/ return  /*<<parsing.ml:182:17>>*/ caml_check_bound
+                 (tables[3], _l_)
                 [1 + _l_]
                === curr_char
                ? 1
-               : 0;
+               : 0 /*<<parsing.ml:182:50>>*/ ;
        /*<<parsing.ml:183:64>>*/ };
       /*<<parsing.ml:184:8>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<parsing.ml:184:17>>*/ }
    function peek_val(env, n){
-    var _g_ = env[11] - n | 0;
-     /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_];
-    /*<<parsing.ml:187:37>>*/ }
+    var _g_ =  /*<<parsing.ml:187:2>>*/ env[11] - n | 0;
+     /*<<parsing.ml:187:37>>*/ return  /*<<parsing.ml:187:12>>*/ caml_check_bound
+             (env[2], _g_)
+            [1 + _g_] /*<<parsing.ml:187:37>>*/ ;
+   }
    function symbol_start_pos(param){
-    var i$1 = env[12], i = i$1;
+    var i$1 =  /*<<parsing.ml:198:2>>*/ env[12], i = i$1;
      /*<<parsing.ml:191:4>>*/ for(;;){
      if(0 >= i){
-      var _f_ = env[11];
-       /*<<parsing.ml:191:19>>*/ return caml_check_bound(env[4], _f_)[1 + _f_];
+      var _f_ =  /*<<parsing.ml:191:19>>*/ env[11];
+       /*<<parsing.ml:191:47>>*/ return  /*<<parsing.ml:191:19>>*/ caml_check_bound
+               (env[4], _f_)
+              [1 + _f_] /*<<parsing.ml:191:47>>*/ ;
      }
      var
-      _d_ = (env[11] - i | 0) + 1 | 0,
+      _d_ =  /*<<parsing.ml:192:9>>*/ (env[11] - i | 0) + 1 | 0,
       st =  /*<<parsing.ml:193:15>>*/ caml_check_bound(env[3], _d_)[1 + _d_],
-      _e_ = (env[11] - i | 0) + 1 | 0,
+      _e_ =  /*<<parsing.ml:194:6>>*/ (env[11] - i | 0) + 1 | 0,
       en =  /*<<parsing.ml:194:15>>*/ caml_check_bound(env[4], _e_)[1 + _e_];
-      /*<<parsing.ml:195:9>>*/ if(runtime.caml_notequal(st, en))
+      /*<<parsing.ml:195:17>>*/ if
+      ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal(st, en))
        /*<<parsing.ml:195:23>>*/ return st;
      var i$0 =  /*<<parsing.ml:195:31>>*/ i - 1 | 0;
      i = i$0;
     }
     /*<<parsing.ml:198:19>>*/ }
    function symbol_end_pos(param){
-    var _c_ = env[11];
-     /*<<parsing.ml:200:24>>*/ return caml_check_bound(env[4], _c_)[1 + _c_];
-    /*<<parsing.ml:200:52>>*/ }
+    var _c_ =  /*<<parsing.ml:200:24>>*/ env[11];
+     /*<<parsing.ml:200:52>>*/ return  /*<<parsing.ml:200:24>>*/ caml_check_bound
+             (env[4], _c_)
+            [1 + _c_] /*<<parsing.ml:200:52>>*/ ;
+   }
    function rhs_start_pos(n){
-    var _b_ = env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:201:22>>*/ return caml_check_bound(env[3], _b_)[1 + _b_];
-    /*<<parsing.ml:201:73>>*/ }
+    var _b_ =  /*<<parsing.ml:201:22>>*/ env[11] - (env[12] - n | 0) | 0;
+     /*<<parsing.ml:201:73>>*/ return  /*<<parsing.ml:201:22>>*/ caml_check_bound
+             (env[3], _b_)
+            [1 + _b_] /*<<parsing.ml:201:73>>*/ ;
+   }
    function rhs_end_pos(n){
-    var _a_ = env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:202:20>>*/ return caml_check_bound(env[4], _a_)[1 + _a_];
-    /*<<parsing.ml:202:69>>*/ }
+    var _a_ =  /*<<parsing.ml:202:20>>*/ env[11] - (env[12] - n | 0) | 0;
+     /*<<parsing.ml:202:69>>*/ return  /*<<parsing.ml:202:20>>*/ caml_check_bound
+             (env[4], _a_)
+            [1 + _a_] /*<<parsing.ml:202:69>>*/ ;
+   }
    function symbol_start(param){
-     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4];
+     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4] /*<<parsing.ml:204:43>>*/ ;
     /*<<parsing.ml:204:52>>*/ }
    function symbol_end(param){
-     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4];
+     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4] /*<<parsing.ml:205:39>>*/ ;
     /*<<parsing.ml:205:48>>*/ }
    function rhs_start(n){
-     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4];
+     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4] /*<<parsing.ml:206:35>>*/ ;
     /*<<parsing.ml:206:44>>*/ }
    function rhs_end(n){
-     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4];
+     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4] /*<<parsing.ml:207:31>>*/ ;
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
      /*<<parsing.ml:210:2>>*/ return caml_call1(current_lookahead_fun[1], tok) /*<<parsing.ml:210:40>>*/ ;
@@ -9769,7 +10100,7 @@
     /*<<parsing.ml:212:33>>*/ }
    var
     Stdlib_Parsing =
-      [0,
+       /*<<parsing.ml:90:30>>*/ [0,
        symbol_start,
        symbol_end,
        rhs_start,
@@ -9840,8 +10171,8 @@
         function create(l, v, r){
           /*<<set.ml:91:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
           /*<<set.ml:92:6>>*/ if(r) var h$0 = r[4], hr = h$0; else var hr = 0;
-         var _Y_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-          /*<<set.ml:93:10>>*/ return [0, l, v, r, _Y_];
+         var _Y_ =  /*<<set.ml:93:6>>*/ hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
+         return [0, l, v, r, _Y_];
          /*<<set.ml:93:60>>*/ }
         function bal(l, v, r){
           /*<<set.ml:101:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
@@ -9849,79 +10180,86 @@
           var h$0 = r[4], hr = h$0;
          else
           var hr = 0;
-         if((hr + 2 | 0) < hl){
-          if(! l)
+          /*<<set.ml:103:6>>*/ if((hr + 2 | 0) < hl){
+           /*<<set.ml:103:26>>*/ if(! l)
             /*<<set.ml:105:19>>*/ return caml_call1(Stdlib[1], cst_Set_bal$0) /*<<set.ml:128:62>>*/ ;
           var
            lr = l[3],
            lv = l[2],
            ll = l[1],
            _T_ =  /*<<set.ml:107:28>>*/ height(lr);
-          if(_T_ <=  /*<<set.ml:107:15>>*/ height(ll))
-            /*<<set.ml:108:27>>*/ return create(ll, lv, create(lr, v, r)) /*<<set.ml:128:62>>*/ ;
-          if(! lr)
+           /*<<set.ml:107:24>>*/ if(_T_ <=  /*<<set.ml:107:15>>*/ height(ll))
+            /*<<set.ml:108:42>>*/ return create
+                   (ll, lv,  /*<<set.ml:108:27>>*/ create(lr, v, r)) /*<<set.ml:128:62>>*/ ;
+           /*<<set.ml:109:17>>*/ if(! lr)
             /*<<set.ml:111:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
           var
            lrr = lr[3],
            lrv = lr[2],
            lrl = lr[1],
            _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
-          return create( /*<<set.ml:113:25>>*/ create(ll, lv, lrl), lrv, _U_) /*<<set.ml:128:62>>*/ ;
+           /*<<set.ml:113:43>>*/ return create
+                  ( /*<<set.ml:113:25>>*/ create(ll, lv, lrl), lrv, _U_) /*<<set.ml:128:62>>*/ ;
          }
-         if((hl + 2 | 0) >= hr){
-          var _X_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-           /*<<set.ml:128:12>>*/ return [0, l, v, r, _X_];
+          /*<<set.ml:115:15>>*/ if((hl + 2 | 0) >= hr){
+          var _X_ =  /*<<set.ml:128:8>>*/ hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
+          return [0, l, v, r, _X_];
          }
-         if(! r)
+          /*<<set.ml:115:35>>*/ if(! r)
            /*<<set.ml:117:19>>*/ return caml_call1(Stdlib[1], cst_Set_bal$2) /*<<set.ml:128:62>>*/ ;
          var
           rr = r[3],
           rv = r[2],
           rl = r[1],
           _V_ =  /*<<set.ml:119:28>>*/ height(rl);
-         if(_V_ <=  /*<<set.ml:119:15>>*/ height(rr))
-           /*<<set.ml:120:14>>*/ return create
+          /*<<set.ml:119:24>>*/ if(_V_ <=  /*<<set.ml:119:15>>*/ height(rr))
+           /*<<set.ml:120:36>>*/ return create
                   ( /*<<set.ml:120:21>>*/ create(l, v, rl), rv, rr) /*<<set.ml:128:62>>*/ ;
-         if(! rl)
+          /*<<set.ml:121:17>>*/ if(! rl)
            /*<<set.ml:123:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
          var
           rlr = rl[3],
           rlv = rl[2],
           rll = rl[1],
           _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
-         return create( /*<<set.ml:125:25>>*/ create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
+          /*<<set.ml:125:41>>*/ return create
+                 ( /*<<set.ml:125:25>>*/ create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
         }
         function add(x, t){
           /*<<set.ml:132:16>>*/ if(! t)
-           /*<<set.ml:133:21>>*/ return [0, 0, x, 0, 1];
+           /*<<set.ml:133:17>>*/ return [0, 0, x, 0, 1];
          var
           r = t[3],
           v = t[2],
           l = t[1],
           c =  /*<<set.ml:135:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:136:10>>*/ if(0 === c)  /*<<set.ml:136:24>>*/ return t;
-         if(0 <= c){
+          /*<<set.ml:137:10>>*/ if(0 <= c){
           var rr =  /*<<set.ml:141:21>>*/ add(x, r);
-          return r === rr ? t :  /*<<set.ml:142:35>>*/ bal(l, v, rr) /*<<set.ml:142:45>>*/ ;
+           /*<<set.ml:142:12>>*/ return r === rr
+                  ? t
+                  :  /*<<set.ml:142:35>>*/ bal(l, v, rr) /*<<set.ml:142:45>>*/ ;
          }
          var ll =  /*<<set.ml:138:21>>*/ add(x, l);
-         return l === ll ? t :  /*<<set.ml:139:35>>*/ bal(ll, v, r) /*<<set.ml:142:45>>*/ ;
+          /*<<set.ml:139:12>>*/ return l === ll
+                 ? t
+                 :  /*<<set.ml:139:35>>*/ bal(ll, v, r) /*<<set.ml:142:45>>*/ ;
         }
         function singleton(x){
-          /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1] /*<<set.ml:144:26>>*/ ;
+          /*<<set.ml:144:22>>*/ return [0, 0, x, 0, 1];
          /*<<set.ml:144:54>>*/ }
         function add_min_element(x, param){
           /*<<set.ml:153:28>>*/ if(! param)
            /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:156:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:156:8>>*/ return bal
+          /*<<set.ml:156:33>>*/ return bal
                  ( /*<<set.ml:156:12>>*/ add_min_element(x, l), v, r) /*<<set.ml:156:37>>*/ ;
         }
         function add_max_element(x, param){
           /*<<set.ml:158:28>>*/ if(! param)
            /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:161:37>>*/ ;
          var r = param[3], v = param[2], l = param[1];
-          /*<<set.ml:161:16>>*/ return bal(l, v, add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
+         return bal(l, v,  /*<<set.ml:161:16>>*/ add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
         }
         function join(l, v, r){
           /*<<set.ml:167:6>>*/ if(! l)
@@ -9937,13 +10275,14 @@
           lr = l[3],
           lv = l[2],
           ll = l[1];
-         return (rh + 2 | 0) < lh
-                 ?  /*<<set.ml:171:40>>*/ bal(ll, lv, join(lr, v, r))
+          /*<<set.ml:171:10>>*/ return (rh + 2 | 0) < lh
+                 ?  /*<<set.ml:171:53>>*/ bal
+                   (ll, lv,  /*<<set.ml:171:40>>*/ join(lr, v, r))
                  : (lh
                    + 2
                    | 0)
                    < rh
-                   ?  /*<<set.ml:172:30>>*/ bal
+                   ?  /*<<set.ml:172:47>>*/ bal
                      ( /*<<set.ml:172:34>>*/ join(l, v, rl), rv, rr)
                    :  /*<<set.ml:173:10>>*/ create(l, v, r) /*<<set.ml:173:22>>*/ ;
         }
@@ -10000,7 +10339,7 @@
          var l = param[1];
          if(l){
           var r = param[3], v = param[2];
-           /*<<set.ml:202:25>>*/ return bal
+           /*<<set.ml:202:47>>*/ return bal
                   ( /*<<set.ml:202:29>>*/ remove_min_elt(l), v, r) /*<<set.ml:202:51>>*/ ;
          }
          var r$0 = param[3];
@@ -10010,7 +10349,8 @@
           /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
          if(! t2)  /*<<set.ml:221:22>>*/ return t1;
          var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
-         return join(t1,  /*<<set.ml:222:26>>*/ min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
+          /*<<set.ml:222:38>>*/ return join
+                 (t1,  /*<<set.ml:222:26>>*/ min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
         }
         function split(x, param){
           /*<<set.ml:230:18>>*/ if(! param)  /*<<set.ml:232:10>>*/ return _a_;
@@ -10021,26 +10361,26 @@
           c =  /*<<set.ml:234:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:235:10>>*/ if(0 === c)
            /*<<set.ml:235:24>>*/ return [0, l, 1, r];
-         if(0 <= c){
+          /*<<set.ml:236:15>>*/ if(0 <= c){
           var
            match =  /*<<set.ml:239:33>>*/ split(x, r),
-           rr = match[3],
+           rr =  /*<<set.ml:239:42>>*/ match[3],
            pres = match[2],
            lr = match[1];
-           /*<<set.ml:239:46>>*/ return [0,
+           /*<<set.ml:239:58>>*/ return [0,
                    /*<<set.ml:239:47>>*/ join(l, v, lr),
                   pres,
-                  rr] /*<<set.ml:239:46>>*/ ;
+                  rr] /*<<set.ml:239:58>>*/ ;
          }
          var
           match$0 =  /*<<set.ml:237:33>>*/ split(x, l),
-          rl = match$0[3],
+          rl =  /*<<set.ml:237:42>>*/ match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<set.ml:237:46>>*/ return [0,
+          /*<<set.ml:237:68>>*/ return [0,
                  ll,
                  pres$0,
-                  /*<<set.ml:237:57>>*/ join(rl, v, r)] /*<<set.ml:237:46>>*/ ;
+                  /*<<set.ml:237:57>>*/ join(rl, v, r)] /*<<set.ml:237:68>>*/ ;
          /*<<set.ml:239:69>>*/ }
         var empty = 0;
         function is_empty(param){
@@ -10055,7 +10395,7 @@
            v = param$0[2],
            l = param$0[1],
            c =  /*<<set.ml:250:18>>*/ caml_call2(Ord[1], x, v),
-           _R_ = 0 === c ? 1 : 0;
+           _R_ =  /*<<set.ml:251:10>>*/ 0 === c ? 1 : 0;
           if(_R_) return _R_;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
@@ -10069,17 +10409,22 @@
           t1 = t[1],
           c =  /*<<set.ml:256:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:257:10>>*/ if(0 === c){
-          if(! t1)  /*<<set.ml:210:22>>*/ return t2;
+           /*<<set.ml:209:6>>*/ if(! t1)  /*<<set.ml:210:22>>*/ return t2;
           if(! t2)  /*<<set.ml:211:22>>*/ return t1;
           var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
-          return bal(t1,  /*<<set.ml:212:25>>*/ min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
+           /*<<set.ml:212:37>>*/ return bal
+                  (t1,  /*<<set.ml:212:25>>*/ min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
          }
-         if(0 <= c){
+          /*<<set.ml:259:12>>*/ if(0 <= c){
           var rr =  /*<<set.ml:264:23>>*/ remove(x, t2);
-          return t2 === rr ? t :  /*<<set.ml:266:19>>*/ bal(t1, v, rr) /*<<set.ml:266:29>>*/ ;
+           /*<<set.ml:265:14>>*/ return t2 === rr
+                  ? t
+                  :  /*<<set.ml:266:19>>*/ bal(t1, v, rr) /*<<set.ml:266:29>>*/ ;
          }
          var ll =  /*<<set.ml:260:23>>*/ remove(x, t1);
-         return t1 === ll ? t :  /*<<set.ml:262:19>>*/ bal(ll, v, t2) /*<<set.ml:266:29>>*/ ;
+          /*<<set.ml:261:14>>*/ return t1 === ll
+                 ? t
+                 :  /*<<set.ml:262:19>>*/ bal(ll, v, t2) /*<<set.ml:266:29>>*/ ;
         }
         function union(s1, s2){
           /*<<set.ml:269:6>>*/ if(! s1)  /*<<set.ml:270:23>>*/ return s2;
@@ -10093,24 +10438,26 @@
           r1 = s1[3],
           v1 = s1[2],
           l1 = s1[1];
-         if(h2 <= h1){
-          if(1 === h2)
+          /*<<set.ml:273:10>>*/ if(h2 <= h1){
+           /*<<set.ml:274:12>>*/ if(1 === h2)
             /*<<set.ml:274:27>>*/ return add(v2, s1) /*<<set.ml:282:15>>*/ ;
           var
            match =  /*<<set.ml:275:32>>*/ split(v1, s2),
-           r2$0 = match[3],
+           r2$0 =  /*<<set.ml:275:43>>*/ match[3],
            l2$0 = match[1],
            _O_ =  /*<<set.ml:276:36>>*/ union(r1, r2$0);
-          return join( /*<<set.ml:276:19>>*/ union(l1, l2$0), v1, _O_) /*<<set.ml:282:15>>*/ ;
+           /*<<set.ml:276:32>>*/ return join
+                  ( /*<<set.ml:276:19>>*/ union(l1, l2$0), v1, _O_) /*<<set.ml:282:15>>*/ ;
          }
-         if(1 === h1)
+          /*<<set.ml:279:12>>*/ if(1 === h1)
            /*<<set.ml:279:27>>*/ return add(v1, s2) /*<<set.ml:282:15>>*/ ;
          var
           match$0 =  /*<<set.ml:280:32>>*/ split(v2, s1),
-          r1$0 = match$0[3],
+          r1$0 =  /*<<set.ml:280:43>>*/ match$0[3],
           l1$0 = match$0[1],
           _P_ =  /*<<set.ml:281:36>>*/ union(r1$0, r2);
-         return join( /*<<set.ml:281:19>>*/ union(l1$0, l2), v2, _P_) /*<<set.ml:282:15>>*/ ;
+          /*<<set.ml:281:32>>*/ return join
+                 ( /*<<set.ml:281:19>>*/ union(l1$0, l2), v2, _P_) /*<<set.ml:282:15>>*/ ;
         }
         function inter(s1, s2){
           /*<<set.ml:285:6>>*/ if(! s1)  /*<<set.ml:286:22>>*/ return 0;
@@ -10120,13 +10467,15 @@
           v1 = s1[2],
           l1 = s1[1],
           _L_ =  /*<<set.ml:289:16>>*/ split(v1, s2),
-          l2 = _L_[1];
+          l2 =  /*<<set.ml:289:27>>*/ _L_[1];
          if(_L_[2]){
           var r2 = _L_[3], _M_ =  /*<<set.ml:293:36>>*/ inter(r1, r2);
-          return join( /*<<set.ml:293:19>>*/ inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
+           /*<<set.ml:293:32>>*/ return join
+                  ( /*<<set.ml:293:19>>*/ inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
          }
          var r2$0 = _L_[3], _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
-         return concat( /*<<set.ml:291:21>>*/ inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
+          /*<<set.ml:291:34>>*/ return concat
+                 ( /*<<set.ml:291:21>>*/ inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
         }
         function split_bis(x, param){
           /*<<set.ml:303:22>>*/ if(! param)
@@ -10141,21 +10490,21 @@
           l = param[1],
           c =  /*<<set.ml:307:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:308:10>>*/ if(0 === c)  /*<<set.ml:308:24>>*/ return 0;
-         if(0 <= c){
+          /*<<set.ml:309:15>>*/ if(0 <= c){
           var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
-          if(! match)  /*<<set.ml:315:23>>*/ return 0;
+           /*<<set.ml:314:31>>*/ if(! match)  /*<<set.ml:315:23>>*/ return 0;
           var rr = match[2], lr = match[1];
-           /*<<set.ml:316:35>>*/ return [0,
+           /*<<set.ml:316:56>>*/ return [0,
                    /*<<set.ml:316:45>>*/ join(l, v, lr),
-                  rr] /*<<set.ml:316:35>>*/ ;
+                  rr] /*<<set.ml:316:56>>*/ ;
          }
          var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
-         if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
+          /*<<set.ml:310:31>>*/ if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
          var rl = match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
-                   /*<<set.ml:312:60>>*/ return  /*<<set.ml:312:35>>*/ join
+                   /*<<set.ml:312:60>>*/ return  /*<<set.ml:312:72>>*/ join
                           ( /*<<set.ml:312:65>>*/ rl(0), v, r) /*<<set.ml:312:76>>*/ ;
                  }] /*<<set.ml:312:35>>*/ ;
          /*<<set.ml:316:61>>*/ }
@@ -10164,14 +10513,15 @@
           /*<<set.ml:319:6>>*/ for(;;){
           if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
-           if(s1$0 === s2$0)  /*<<set.ml:322:27>>*/ return 0;
+            /*<<set.ml:322:10>>*/ if(s1$0 === s2$0)
+             /*<<set.ml:322:27>>*/ return 0;
            var match =  /*<<set.ml:323:21>>*/ split_bis(v1, s2$0);
-           if(! match)  /*<<set.ml:325:23>>*/ return 0;
+            /*<<set.ml:323:36>>*/ if(! match)  /*<<set.ml:325:23>>*/ return 0;
            var
             r2 = match[2],
             l2 = match[1],
             _K_ =  /*<<set.ml:324:34>>*/ disjoint(l1, l2);
-           if(! _K_) return _K_;
+            /*<<set.ml:324:48>>*/ if(! _K_) return _K_;
            var s2$1 =  /*<<set.ml:324:64>>*/ r2(0);
            s1$0 = r1;
            s2$0 = s2$1;
@@ -10188,13 +10538,15 @@
           v1 = s1[2],
           l1 = s1[1],
           _H_ =  /*<<set.ml:332:16>>*/ split(v1, s2),
-          l2 = _H_[1];
+          l2 =  /*<<set.ml:332:27>>*/ _H_[1];
          if(_H_[2]){
           var r2 = _H_[3], _I_ =  /*<<set.ml:336:34>>*/ diff(r1, r2);
-          return concat( /*<<set.ml:336:21>>*/ diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
+           /*<<set.ml:336:33>>*/ return concat
+                  ( /*<<set.ml:336:21>>*/ diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
          }
          var r2$0 = _H_[3], _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
-         return join( /*<<set.ml:334:19>>*/ diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
+          /*<<set.ml:334:31>>*/ return join
+                 ( /*<<set.ml:334:19>>*/ diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
         }
         function cons_enum(s, e){
          var s$0 = s, e$0 = e;
@@ -10204,7 +10556,7 @@
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
-           e$1 =  /*<<set.ml:343:37>>*/ [0, v, r, e$0];
+           e$1 =  /*<<set.ml:343:25>>*/ [0, v, r, e$0];
           s$0 = l;
           e$0 = e$1;
          }
@@ -10235,7 +10587,7 @@
          }
          /*<<set.ml:357:55>>*/ }
         function equal(s1, s2){
-          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0;
+          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0 /*<<set.ml:360:19>>*/ ;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
          var s1$0 = s1, s2$0 = s2;
@@ -10252,18 +10604,18 @@
            c =  /*<<set.ml:369:18>>*/ caml_call2(Ord[1], v1, v2);
            /*<<set.ml:370:10>>*/ if(0 === c){
            var _E_ =  /*<<set.ml:371:12>>*/ subset(l1, l2);
-           if(! _E_) return _E_;
+            /*<<set.ml:371:24>>*/ if(! _E_) return _E_;
            s1$0 = r1;
            s2$0 = r2;
           }
           else if(0 <= c){
            var _F_ =  /*<<set.ml:375:12>>*/ subset([0, 0, v1, r1, 0], r2);
-           if(! _F_) return _F_;
+            /*<<set.ml:375:55>>*/ if(! _F_) return _F_;
            s1$0 = l1;
           }
           else{
            var _G_ =  /*<<set.ml:373:12>>*/ subset([0, l1, v1, 0, 0], l2);
-           if(! _G_) return _G_;
+            /*<<set.ml:373:55>>*/ if(! _G_) return _G_;
            s1$0 = r1;
           }
          }
@@ -10302,9 +10654,9 @@
            v = param$0[2],
            l = param$0[1],
            _B_ =  /*<<set.ml:388:25>>*/ caml_call1(p, v);
-          if(_B_){
+           /*<<set.ml:388:28>>*/ if(_B_){
            var _C_ =  /*<<set.ml:388:32>>*/ for_all(p, l);
-           if(_C_){param$0 = r; continue;}
+            /*<<set.ml:388:43>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
           else
@@ -10321,14 +10673,14 @@
            v = param$0[2],
            l = param$0[1],
            _y_ =  /*<<set.ml:392:25>>*/ caml_call1(p, v);
-          if(_y_)
+           /*<<set.ml:392:28>>*/ if(_y_)
            var _z_ = _y_;
           else{
            var _A_ =  /*<<set.ml:392:32>>*/ exists(p, l);
-           if(! _A_){param$0 = r; continue;}
+            /*<<set.ml:392:42>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-           /*<<set.ml:392:25>>*/ return _z_;
+          return _z_;
          }
          /*<<set.ml:392:56>>*/ }
         function filter(p, t){
@@ -10342,7 +10694,8 @@
           r$0 =  /*<<set.ml:400:19>>*/ filter(p, r);
           /*<<set.ml:401:10>>*/ if(! pv)
            /*<<set.ml:403:15>>*/ return concat(l$0, r$0) /*<<set.ml:403:27>>*/ ;
-         if(l === l$0 && r === r$0)  /*<<set.ml:402:35>>*/ return t;
+          /*<<set.ml:402:12>>*/ if(l === l$0 && r === r$0)
+           /*<<set.ml:402:35>>*/ return t;
           /*<<set.ml:402:42>>*/ return join(l$0, v, r$0) /*<<set.ml:403:27>>*/ ;
         }
         function partition(p, param){
@@ -10352,22 +10705,22 @@
           v = param[2],
           l = param[1],
           match =  /*<<set.ml:409:25>>*/ partition(p, l),
-          lf = match[2],
+          lf =  /*<<set.ml:409:38>>*/ match[2],
           lt = match[1],
           pv =  /*<<set.ml:410:19>>*/ caml_call1(p, v),
           match$0 =  /*<<set.ml:411:25>>*/ partition(p, r),
-          rf = match$0[2],
+          rf =  /*<<set.ml:411:38>>*/ match$0[2],
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
           var _w_ =  /*<<set.ml:413:30>>*/ concat(lf, rf);
-           /*<<set.ml:413:15>>*/ return [0,
+           /*<<set.ml:413:28>>*/ return [0,
                    /*<<set.ml:413:16>>*/ join(lt, v, rt),
-                  _w_] /*<<set.ml:413:15>>*/ ;
+                  _w_] /*<<set.ml:413:28>>*/ ;
          }
          var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
-          /*<<set.ml:414:15>>*/ return [0,
+          /*<<set.ml:414:28>>*/ return [0,
                   /*<<set.ml:414:16>>*/ concat(lt, rt),
-                 _x_] /*<<set.ml:414:15>>*/ ;
+                 _x_] /*<<set.ml:414:28>>*/ ;
          /*<<set.ml:414:43>>*/ }
         function cardinal(param){
           /*<<set.ml:416:23>>*/ if(! param)  /*<<set.ml:417:17>>*/ return 0;
@@ -10375,7 +10728,10 @@
           r = param[3],
           l = param[1],
           _v_ =  /*<<set.ml:418:39>>*/ cardinal(r);
-         return ( /*<<set.ml:418:22>>*/ cardinal(l) + 1 | 0) + _v_ | 0;
+          /*<<set.ml:418:32>>*/ return ( /*<<set.ml:418:22>>*/ cardinal(l) + 1
+                | 0)
+                + _v_
+                | 0 /*<<set.ml:418:32>>*/ ;
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
          var accu$0 = accu, param$0 = param;
@@ -10386,7 +10742,7 @@
            v = param$0[2],
            l = param$0[1],
            accu$1 =
-              /*<<set.ml:422:38>>*/ [0,
+              /*<<set.ml:422:63>>*/ [0,
               v,
                /*<<set.ml:422:44>>*/ elements_aux(accu$0, r)];
           accu$0 = accu$1;
@@ -10408,7 +10764,7 @@
            l = param$0[1],
            c =  /*<<set.ml:434:18>>*/ caml_call2(Ord[1], x, v);
            /*<<set.ml:435:10>>*/ if(0 === c)  /*<<set.ml:435:24>>*/ return v;
-          var r$0 = 0 <= c ? r : l;
+          var r$0 =  /*<<set.ml:436:15>>*/ 0 <= c ? r : l;
           param$0 = r$0;
          }
          /*<<set.ml:436:46>>*/ }
@@ -10419,12 +10775,14 @@
             /*<<set.ml:449:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:451:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<set.ml:451:16>>*/ if
+           ( /*<<set.ml:451:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, param = l$0;
             /*<<set.ml:438:27>>*/ for(;;){
             if(! param)  /*<<set.ml:440:10>>*/ return v0;
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:442:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = l;}
+             /*<<set.ml:442:16>>*/ if
+             ( /*<<set.ml:442:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = l;}
             else
              param = r;
            }
@@ -10438,12 +10796,14 @@
           /*<<set.ml:465:27>>*/ for(;;){
           if(! param$1)  /*<<set.ml:467:10>>*/ return 0;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:469:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<set.ml:469:16>>*/ if
+           ( /*<<set.ml:469:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, param = l$0;
             /*<<set.ml:456:31>>*/ for(;;){
             if(! param)  /*<<set.ml:458:10>>*/ return [0, v0];
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:460:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = l;}
+             /*<<set.ml:460:16>>*/ if
+             ( /*<<set.ml:460:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = l;}
             else
              param = r;
            }
@@ -10459,12 +10819,14 @@
             /*<<set.ml:485:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:487:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<set.ml:487:16>>*/ if
+           ( /*<<set.ml:487:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, param = r$0;
             /*<<set.ml:474:26>>*/ for(;;){
             if(! param)  /*<<set.ml:476:10>>*/ return v0;
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:478:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = r;}
+             /*<<set.ml:478:16>>*/ if
+             ( /*<<set.ml:478:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = r;}
             else
              param = l;
            }
@@ -10478,12 +10840,14 @@
           /*<<set.ml:501:26>>*/ for(;;){
           if(! param$1)  /*<<set.ml:503:10>>*/ return 0;
           var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
-           /*<<set.ml:505:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<set.ml:505:16>>*/ if
+           ( /*<<set.ml:505:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, param = r$0;
             /*<<set.ml:492:30>>*/ for(;;){
             if(! param)  /*<<set.ml:494:10>>*/ return [0, v0];
             var r = param[3], v0$0 = param[2], l = param[1];
-             /*<<set.ml:496:13>>*/ if(caml_call1(f, v0$0)){v0 = v0$0; param = r;}
+             /*<<set.ml:496:16>>*/ if
+             ( /*<<set.ml:496:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = r;}
             else
              param = l;
            }
@@ -10503,24 +10867,28 @@
            c =  /*<<set.ml:513:18>>*/ caml_call2(Ord[1], x, v);
            /*<<set.ml:514:10>>*/ if(0 === c)
             /*<<set.ml:514:24>>*/ return [0, v];
-          var r$0 = 0 <= c ? r : l;
+          var r$0 =  /*<<set.ml:515:15>>*/ 0 <= c ? r : l;
           param$0 = r$0;
          }
          /*<<set.ml:515:50>>*/ }
         function try_join(l, v, r){
          a:
          {
-          if(0 !== l){
+           /*<<set.ml:521:6>>*/ if(0 !== l){
            var _u_ =  /*<<set.ml:521:35>>*/ max_elt(l);
-            /*<<set.ml:521:23>>*/ if(0 <= caml_call2(Ord[1], _u_, v)) break a;
+            /*<<set.ml:521:48>>*/ if
+            (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _u_, v))
+            break a;
           }
           if(0 !== r){
            var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
-            /*<<set.ml:522:23>>*/ if(0 <= caml_call2(Ord[1], v, _t_)) break a;
+            /*<<set.ml:522:48>>*/ if
+            (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _t_))
+            break a;
           }
            /*<<set.ml:523:11>>*/ return join(l, v, r) /*<<set.ml:524:28>>*/ ;
          }
-          /*<<set.ml:524:19>>*/ return union(l, add(v, r)) /*<<set.ml:524:28>>*/ ;
+         return union(l,  /*<<set.ml:524:19>>*/ add(v, r)) /*<<set.ml:524:28>>*/ ;
         }
         function map(f, t){
           /*<<set.ml:526:16>>*/ if(! t)  /*<<set.ml:527:17>>*/ return 0;
@@ -10531,7 +10899,7 @@
           l$0 =  /*<<set.ml:530:18>>*/ map(f, l),
           v$0 =  /*<<set.ml:531:18>>*/ caml_call1(f, v),
           r$0 =  /*<<set.ml:532:18>>*/ map(f, r);
-         if(l === l$0 && v === v$0 && r === r$0)
+          /*<<set.ml:533:9>>*/ if(l === l$0 && v === v$0 && r === r$0)
            /*<<set.ml:533:47>>*/ return t;
           /*<<set.ml:534:14>>*/ return try_join(l$0, v$0, r$0) /*<<set.ml:534:31>>*/ ;
         }
@@ -10546,32 +10914,36 @@
           t2 =  /*<<set.ml:548:18>>*/ filter_map(f, r);
           /*<<set.ml:549:9>>*/ if(v$0){
           var v$1 = v$0[1];
-          if(l === t1 && v === v$1 && r === t2)
+           /*<<set.ml:551:14>>*/ if(l === t1 && v === v$1 && r === t2)
             /*<<set.ml:551:52>>*/ return t;
            /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
          }
-         if(! t1)  /*<<set.ml:538:22>>*/ return t2;
+          /*<<set.ml:537:6>>*/ if(! t1)  /*<<set.ml:538:22>>*/ return t2;
          if(! t2)  /*<<set.ml:539:22>>*/ return t1;
          var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
-         return try_join(t1,  /*<<set.ml:540:30>>*/ min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
+          /*<<set.ml:540:42>>*/ return try_join
+                 (t1,  /*<<set.ml:540:30>>*/ min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
         }
         function of_list(l){
-          /*<<set.ml:581:6>>*/ if(! l) return empty;
+          /*<<set.ml:581:6>>*/ if(! l)  /*<<set.ml:582:14>>*/ return empty;
          var _n_ = l[2], x0 = l[1];
          if(! _n_)
            /*<<set.ml:583:16>>*/ return singleton(x0) /*<<set.ml:588:58>>*/ ;
          var _o_ = _n_[2], x1 = _n_[1];
          if(! _o_)
-           /*<<set.ml:584:27>>*/ return add(x1, singleton(x0)) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:584:41>>*/ return add
+                  (x1,  /*<<set.ml:584:27>>*/ singleton(x0)) /*<<set.ml:588:58>>*/ ;
          var _p_ = _o_[2], x2 = _o_[1];
          if(! _p_)
-           /*<<set.ml:585:31>>*/ return add
-                  (x2, add(x1,  /*<<set.ml:585:39>>*/ singleton(x0))) /*<<set.ml:588:58>>*/ ;
+           /*<<set.ml:585:54>>*/ return add
+                  (x2,
+                    /*<<set.ml:585:31>>*/ add
+                    (x1,  /*<<set.ml:585:39>>*/ singleton(x0))) /*<<set.ml:588:58>>*/ ;
          var _q_ = _p_[2], x3 = _p_[1];
          if(! _q_)
-           /*<<set.ml:586:35>>*/ return add
+           /*<<set.ml:586:67>>*/ return add
                   (x3,
-                   add
+                    /*<<set.ml:586:35>>*/ add
                     (x2,
                       /*<<set.ml:586:43>>*/ add
                       (x1,  /*<<set.ml:586:51>>*/ singleton(x0)))) /*<<set.ml:588:58>>*/ ;
@@ -10579,7 +10951,7 @@
           var
            l$0 =  /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[62], Ord[1], l),
            sub =
-             function(n, l){
+              /*<<set.ml:558:6>>*/ function(n, l){
                /*<<set.ml:559:8>>*/ if(3 >= n >>> 0)
                switch(n){
                  case 0:
@@ -10620,9 +10992,9 @@
                   }
                }
               var
-               nl = n / 2 | 0,
+               nl =  /*<<set.ml:568:10>>*/ n / 2 | 0,
                match =  /*<<set.ml:569:24>>*/ sub(nl, l),
-               l$0 = match[2],
+               l$0 =  /*<<set.ml:569:32>>*/ match[2],
                left = match[1];
                /*<<set.ml:570:10>>*/ if(! l$0)
                 /*<<set.ml:571:18>>*/ throw caml_maybe_attach_backtrace
@@ -10631,19 +11003,21 @@
                l$1 = l$0[2],
                mid = l$0[1],
                match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
-               l$2 = match$0[2],
+               l$2 =  /*<<set.ml:573:45>>*/ match$0[2],
                right = match$0[1];
-               /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2];
+               /*<<set.ml:574:33>>*/ return [0,
+                       /*<<set.ml:574:12>>*/ create(left, mid, right),
+                      l$2] /*<<set.ml:574:33>>*/ ;
               /*<<set.ml:574:36>>*/ };
-           /*<<set.ml:576:10>>*/ return sub
+           /*<<set.ml:576:33>>*/ return  /*<<set.ml:576:10>>*/ sub
                    ( /*<<set.ml:576:15>>*/ caml_call1(Stdlib_List[1], l$0),
                     l$0)
-                  [1] /*<<set.ml:576:10>>*/ ;
+                  [1] /*<<set.ml:576:33>>*/ ;
          }
          var x4 = _q_[1];
-          /*<<set.ml:587:39>>*/ return add
+          /*<<set.ml:587:80>>*/ return add
                  (x4,
-                  add
+                   /*<<set.ml:587:39>>*/ add
                    (x3,
                      /*<<set.ml:587:47>>*/ add
                      (x2,
@@ -10660,8 +11034,7 @@
                   i) /*<<set.ml:591:44>>*/ ;
         }
         function of_seq(i){
-          /*<<set.ml:593:19>>*/ return  /*<<set.ml:590:16>>*/ add_seq
-                 (i, empty) /*<<set.ml:593:34>>*/ ;
+          /*<<set.ml:593:19>>*/ return add_seq(i, empty) /*<<set.ml:593:34>>*/ ;
         }
         function seq_of_enum(c, param){
           /*<<set.ml:595:32>>*/ if(! c)  /*<<set.ml:596:15>>*/ return 0;
@@ -10670,15 +11043,15 @@
           t = c[2],
           x = c[1],
           _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
-          /*<<set.ml:597:29>>*/ return [0,
+          /*<<set.ml:597:73>>*/ return [0,
                  x,
-                 function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}] /*<<set.ml:597:29>>*/ ;
+                 function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}] /*<<set.ml:597:73>>*/ ;
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
          var _j_ =  /*<<set.ml:599:32>>*/ cons_enum(c, 0);
-         return function(_k_){
-           /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:32>>*/ ;
-         /*<<set.ml:599:49>>*/ }
+          /*<<set.ml:599:49>>*/ return function(_k_){
+           /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:49>>*/ ;
+        }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<set.ml:602:6>>*/ for(;;){
@@ -10687,7 +11060,7 @@
            r = s$0[3],
            v = s$0[2],
            l = s$0[1],
-           e$1 =  /*<<set.ml:604:37>>*/ [0, v, l, e$0];
+           e$1 =  /*<<set.ml:604:25>>*/ [0, v, l, e$0];
           s$0 = r;
           e$0 = e$1;
          }
@@ -10699,15 +11072,15 @@
           t = c[2],
           x = c[1],
           _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
-          /*<<set.ml:608:29>>*/ return [0,
+          /*<<set.ml:608:77>>*/ return [0,
                  x,
-                 function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}] /*<<set.ml:608:29>>*/ ;
+                 function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}] /*<<set.ml:608:77>>*/ ;
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
          var _f_ =  /*<<set.ml:610:40>>*/ snoc_enum(c, 0);
-         return function(_g_){
-           /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);} /*<<set.ml:610:40>>*/ ;
-         /*<<set.ml:610:57>>*/ }
+          /*<<set.ml:610:57>>*/ return function(_g_){
+           /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);} /*<<set.ml:610:57>>*/ ;
+        }
         function to_seq_from(low, s){
          a:
          {
@@ -10721,9 +11094,9 @@
              v = s$0[2],
              l = s$0[1],
              n =  /*<<set.ml:616:24>>*/ caml_call2(Ord[1], v, low);
-            if(0 === n) break b;
-            if(0 <= n){
-             var c$0 =  /*<<set.ml:619:31>>*/ [0, v, r, c];
+             /*<<set.ml:616:41>>*/ if(0 === n) break b;
+             /*<<set.ml:618:23>>*/ if(0 <= n){
+             var c$0 =  /*<<set.ml:619:21>>*/ [0, v, r, c];
              s$0 = l;
              c = c$0;
             }
@@ -10735,9 +11108,9 @@
           }
           var _d_ = [0, v, r, c];
          }
-          /*<<set.ml:622:19>>*/ return function(_e_){
-           /*<<?>>*/ return seq_of_enum(_d_, _e_);} /*<<set.ml:622:19>>*/ ;
-         /*<<set.ml:622:34>>*/ }
+          /*<<set.ml:622:34>>*/ return function(_e_){
+           /*<<?>>*/ return seq_of_enum(_d_, _e_);} /*<<set.ml:622:34>>*/ ;
+        }
         return [0,
                 empty,
                 add,
@@ -10838,17 +11211,17 @@
          var
           hl =  /*<<map.ml:86:15>>*/ height(l),
           hr =  /*<<map.ml:86:33>>*/ height(r),
-          _K_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-          /*<<map.ml:87:10>>*/ return [0, l, x, d, r, _K_];
+          _K_ =  /*<<map.ml:87:6>>*/ hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
+         return [0, l, x, d, r, _K_];
          /*<<map.ml:87:65>>*/ }
         function singleton(x, d){
-          /*<<map.ml:89:24>>*/ return [0, 0, x, d, 0, 1] /*<<map.ml:89:28>>*/ ;
+          /*<<map.ml:89:24>>*/ return [0, 0, x, d, 0, 1];
          /*<<map.ml:89:59>>*/ }
         function bal(l, x, d, r){
           /*<<map.ml:92:6>>*/ if(l) var h = l[5], hl = h; else var hl = 0;
           /*<<map.ml:93:6>>*/ if(r) var h$0 = r[5], hr = h$0; else var hr = 0;
-         if((hr + 2 | 0) < hl){
-          if(! l)
+          /*<<map.ml:94:6>>*/ if((hr + 2 | 0) < hl){
+           /*<<map.ml:94:26>>*/ if(! l)
             /*<<map.ml:96:19>>*/ return caml_call1(Stdlib[1], cst_Map_bal$0) /*<<map.ml:119:67>>*/ ;
           var
            lr = l[4],
@@ -10856,10 +11229,10 @@
            lv = l[2],
            ll = l[1],
            _F_ =  /*<<map.ml:98:28>>*/ height(lr);
-          if(_F_ <=  /*<<map.ml:98:15>>*/ height(ll))
-            /*<<map.ml:99:30>>*/ return create
-                   (ll, lv, ld, create(lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
-          if(! lr)
+           /*<<map.ml:98:24>>*/ if(_F_ <=  /*<<map.ml:98:15>>*/ height(ll))
+            /*<<map.ml:99:47>>*/ return create
+                   (ll, lv, ld,  /*<<map.ml:99:30>>*/ create(lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
+           /*<<map.ml:100:17>>*/ if(! lr)
             /*<<map.ml:102:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
           var
            lrr = lr[4],
@@ -10867,17 +11240,17 @@
            lrv = lr[2],
            lrl = lr[1],
            _G_ =  /*<<map.ml:104:55>>*/ create(lrr, x, d, r);
-          return create
+           /*<<map.ml:104:46>>*/ return create
                   ( /*<<map.ml:104:25>>*/ create(ll, lv, ld, lrl),
                    lrv,
                    lrd,
                    _G_) /*<<map.ml:119:67>>*/ ;
          }
-         if((hl + 2 | 0) >= hr){
-          var _J_ = hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
-           /*<<map.ml:119:12>>*/ return [0, l, x, d, r, _J_];
+          /*<<map.ml:106:15>>*/ if((hl + 2 | 0) >= hr){
+          var _J_ =  /*<<map.ml:119:8>>*/ hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
+          return [0, l, x, d, r, _J_];
          }
-         if(! r)
+          /*<<map.ml:106:35>>*/ if(! r)
            /*<<map.ml:108:19>>*/ return caml_call1(Stdlib[1], cst_Map_bal$2) /*<<map.ml:119:67>>*/ ;
          var
           rr = r[4],
@@ -10885,10 +11258,10 @@
           rv = r[2],
           rl = r[1],
           _H_ =  /*<<map.ml:110:28>>*/ height(rl);
-         if(_H_ <=  /*<<map.ml:110:15>>*/ height(rr))
-           /*<<map.ml:111:14>>*/ return create
+          /*<<map.ml:110:24>>*/ if(_H_ <=  /*<<map.ml:110:15>>*/ height(rr))
+           /*<<map.ml:111:38>>*/ return create
                   ( /*<<map.ml:111:21>>*/ create(l, x, d, rl), rv, rd, rr) /*<<map.ml:119:67>>*/ ;
-         if(! rl)
+          /*<<map.ml:112:17>>*/ if(! rl)
            /*<<map.ml:114:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
          var
           rlr = rl[4],
@@ -10896,16 +11269,16 @@
           rlv = rl[2],
           rll = rl[1],
           _I_ =  /*<<map.ml:116:52>>*/ create(rlr, rv, rd, rr);
-         return create
+          /*<<map.ml:116:43>>*/ return create
                  ( /*<<map.ml:116:25>>*/ create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
         }
-        var empty =  /*<<map.ml:91:12>>*/ 0;
+        var empty = 0;
         function is_empty(param){
           /*<<map.ml:123:19>>*/ return param ? 0 : 1 /*<<map.ml:123:54>>*/ ;
         }
         function add(x, data, m){
           /*<<map.ml:125:16>>*/ if(! m)
-           /*<<map.ml:127:14>>*/ return [0, 0, x, data, 0, 1];
+           /*<<map.ml:127:10>>*/ return [0, 0, x, data, 0, 1];
          var
           h = m[5],
           r = m[4],
@@ -10914,13 +11287,17 @@
           l = m[1],
           c =  /*<<map.ml:129:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:130:10>>*/ if(0 === c)
-          return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:137:47>>*/ ;
-         if(0 <= c){
+           /*<<map.ml:131:12>>*/ return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:137:47>>*/ ;
+          /*<<map.ml:132:15>>*/ if(0 <= c){
           var rr =  /*<<map.ml:136:21>>*/ add(x, data, r);
-          return r === rr ? m :  /*<<map.ml:137:35>>*/ bal(l, v, d, rr) /*<<map.ml:137:47>>*/ ;
+           /*<<map.ml:137:12>>*/ return r === rr
+                  ? m
+                  :  /*<<map.ml:137:35>>*/ bal(l, v, d, rr) /*<<map.ml:137:47>>*/ ;
          }
          var ll =  /*<<map.ml:133:21>>*/ add(x, data, l);
-         return l === ll ? m :  /*<<map.ml:134:35>>*/ bal(ll, v, d, r) /*<<map.ml:137:47>>*/ ;
+          /*<<map.ml:134:12>>*/ return l === ll
+                 ? m
+                 :  /*<<map.ml:134:35>>*/ bal(ll, v, d, r) /*<<map.ml:137:47>>*/ ;
         }
         function find(x, param){
          var param$0 = param;
@@ -10935,7 +11312,7 @@
            l = param$0[1],
            c =  /*<<map.ml:143:18>>*/ caml_call2(Ord[1], x, v);
            /*<<map.ml:144:10>>*/ if(0 === c)  /*<<map.ml:144:24>>*/ return d;
-          var r$0 = 0 <= c ? r : l;
+          var r$0 =  /*<<map.ml:145:15>>*/ 0 <= c ? r : l;
           param$0 = r$0;
          }
          /*<<map.ml:145:46>>*/ }
@@ -10950,16 +11327,14 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:160:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<map.ml:160:16>>*/ if
+           ( /*<<map.ml:160:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
             /*<<map.ml:147:27>>*/ for(;;){
             if(! param)  /*<<map.ml:149:10>>*/ return [0, v0, d0];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:151:13>>*/ if(caml_call1(f, v0$0)){
-             v0 = v0$0;
-             d0 = d0$0;
-             param = l;
-            }
+             /*<<map.ml:151:16>>*/ if
+             ( /*<<map.ml:151:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = l;}
             else
              param = r;
            }
@@ -10977,16 +11352,14 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:178:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<map.ml:178:16>>*/ if
+           ( /*<<map.ml:178:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = l$0;
             /*<<map.ml:165:31>>*/ for(;;){
             if(! param)  /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:169:13>>*/ if(caml_call1(f, v0$0)){
-             v0 = v0$0;
-             d0 = d0$0;
-             param = l;
-            }
+             /*<<map.ml:169:16>>*/ if
+             ( /*<<map.ml:169:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = l;}
             else
              param = r;
            }
@@ -11006,16 +11379,14 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:196:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<map.ml:196:16>>*/ if
+           ( /*<<map.ml:196:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
             /*<<map.ml:183:26>>*/ for(;;){
             if(! param)  /*<<map.ml:185:10>>*/ return [0, v0, d0];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:187:13>>*/ if(caml_call1(f, v0$0)){
-             v0 = v0$0;
-             d0 = d0$0;
-             param = r;
-            }
+             /*<<map.ml:187:16>>*/ if
+             ( /*<<map.ml:187:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = r;}
             else
              param = l;
            }
@@ -11033,16 +11404,14 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:214:13>>*/ if(caml_call1(f, v0$1)){
+           /*<<map.ml:214:16>>*/ if
+           ( /*<<map.ml:214:13>>*/ caml_call1(f, v0$1)){
            var v0 = v0$1, d0 = d0$1, param = r$0;
             /*<<map.ml:201:30>>*/ for(;;){
             if(! param)  /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]];
             var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
-             /*<<map.ml:205:13>>*/ if(caml_call1(f, v0$0)){
-             v0 = v0$0;
-             d0 = d0$0;
-             param = r;
-            }
+             /*<<map.ml:205:16>>*/ if
+             ( /*<<map.ml:205:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = r;}
             else
              param = l;
            }
@@ -11063,7 +11432,7 @@
            c =  /*<<map.ml:223:18>>*/ caml_call2(Ord[1], x, v);
            /*<<map.ml:224:10>>*/ if(0 === c)
             /*<<map.ml:224:24>>*/ return [0, d];
-          var r$0 = 0 <= c ? r : l;
+          var r$0 =  /*<<map.ml:225:15>>*/ 0 <= c ? r : l;
           param$0 = r$0;
          }
          /*<<map.ml:225:50>>*/ }
@@ -11076,7 +11445,7 @@
            v = param$0[2],
            l = param$0[1],
            c =  /*<<map.ml:231:18>>*/ caml_call2(Ord[1], x, v),
-           _E_ = 0 === c ? 1 : 0;
+           _E_ =  /*<<map.ml:232:10>>*/ 0 === c ? 1 : 0;
           if(_E_) return _E_;
           var r$0 = 0 <= c ? r : l;
           param$0 = r$0;
@@ -11141,7 +11510,7 @@
          var l = param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
-           /*<<map.ml:257:29>>*/ return bal
+           /*<<map.ml:257:55>>*/ return bal
                   ( /*<<map.ml:257:33>>*/ remove_min_binding(l), v, d, r) /*<<map.ml:257:61>>*/ ;
          }
          var r$0 = param[4];
@@ -11152,9 +11521,10 @@
          if(! t2)  /*<<map.ml:262:22>>*/ return t1;
          var
           match =  /*<<map.ml:264:23>>*/ min_binding(t2),
-          d = match[2],
+          d =  /*<<map.ml:264:37>>*/ match[2],
           x = match[1];
-          /*<<map.ml:265:21>>*/ return bal(t1, x, d, remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
+          /*<<map.ml:265:44>>*/ return bal
+                 (t1, x, d,  /*<<map.ml:265:21>>*/ remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
         }
         function remove(x, m){
           /*<<map.ml:267:19>>*/ if(! m)  /*<<map.ml:269:10>>*/ return 0;
@@ -11166,19 +11536,24 @@
           c =  /*<<map.ml:271:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:272:10>>*/ if(0 === c)
            /*<<map.ml:272:24>>*/ return _d_(l, r) /*<<map.ml:276:70>>*/ ;
-         if(0 <= c){
+          /*<<map.ml:273:15>>*/ if(0 <= c){
           var rr =  /*<<map.ml:276:21>>*/ remove(x, r);
-          return r === rr ? m :  /*<<map.ml:276:58>>*/ bal(l, v, d, rr) /*<<map.ml:276:70>>*/ ;
+           /*<<map.ml:276:35>>*/ return r === rr
+                  ? m
+                  :  /*<<map.ml:276:58>>*/ bal(l, v, d, rr) /*<<map.ml:276:70>>*/ ;
          }
          var ll =  /*<<map.ml:274:21>>*/ remove(x, l);
-         return l === ll ? m :  /*<<map.ml:274:58>>*/ bal(ll, v, d, r) /*<<map.ml:276:70>>*/ ;
+          /*<<map.ml:274:35>>*/ return l === ll
+                 ? m
+                 :  /*<<map.ml:274:58>>*/ bal(ll, v, d, r) /*<<map.ml:276:70>>*/ ;
         }
         function update(x, f, m){
           /*<<map.ml:278:19>>*/ if(! m){
           var match$0 =  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
-          if(! match$0)  /*<<map.ml:281:20>>*/ return 0;
+           /*<<map.ml:280:28>>*/ if(! match$0)
+            /*<<map.ml:281:20>>*/ return 0;
           var data$0 = match$0[1];
-           /*<<map.ml:282:29>>*/ return [0, 0, x, data$0, 0, 1];
+           /*<<map.ml:282:25>>*/ return [0, 0, x, data$0, 0, 1];
          }
          var
           h = m[5],
@@ -11189,17 +11564,21 @@
           c =  /*<<map.ml:285:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:286:10>>*/ if(0 === c){
           var match =  /*<<map.ml:287:18>>*/ caml_call1(f, [0, d]);
-          if(! match)
+           /*<<map.ml:287:28>>*/ if(! match)
             /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:296:47>>*/ ;
           var data = match[1];
-          return d === data ? m : [0, l, x, data, r, h];
+           /*<<map.ml:290:16>>*/ return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:296:47>>*/ ;
          }
-         if(0 <= c){
+          /*<<map.ml:291:19>>*/ if(0 <= c){
           var rr =  /*<<map.ml:295:21>>*/ update(x, f, r);
-          return r === rr ? m :  /*<<map.ml:296:35>>*/ bal(l, v, d, rr) /*<<map.ml:296:47>>*/ ;
+           /*<<map.ml:296:12>>*/ return r === rr
+                  ? m
+                  :  /*<<map.ml:296:35>>*/ bal(l, v, d, rr) /*<<map.ml:296:47>>*/ ;
          }
          var ll =  /*<<map.ml:292:21>>*/ update(x, f, l);
-         return l === ll ? m :  /*<<map.ml:293:35>>*/ bal(ll, v, d, r) /*<<map.ml:296:47>>*/ ;
+          /*<<map.ml:293:12>>*/ return l === ll
+                 ? m
+                 :  /*<<map.ml:293:35>>*/ bal(ll, v, d, r) /*<<map.ml:296:47>>*/ ;
         }
         function add_to_list(x, data, m){
          function add(param){
@@ -11231,7 +11610,7 @@
           l$0 =  /*<<map.ml:311:19>>*/ map(f, l),
           d$0 =  /*<<map.ml:312:19>>*/ caml_call1(f, d),
           r$0 =  /*<<map.ml:313:19>>*/ map(f, r);
-          /*<<map.ml:314:14>>*/ return [0, l$0, v, d$0, r$0, h];
+          /*<<map.ml:314:10>>*/ return [0, l$0, v, d$0, r$0, h];
          /*<<map.ml:314:38>>*/ }
         function mapi(f, param){
           /*<<map.ml:316:17>>*/ if(! param)  /*<<map.ml:318:10>>*/ return 0;
@@ -11244,7 +11623,7 @@
           l$0 =  /*<<map.ml:320:19>>*/ mapi(f, l),
           d$0 =  /*<<map.ml:321:19>>*/ caml_call2(f, v, d),
           r$0 =  /*<<map.ml:322:19>>*/ mapi(f, r);
-          /*<<map.ml:323:14>>*/ return [0, l$0, v, d$0, r$0, h];
+          /*<<map.ml:323:10>>*/ return [0, l$0, v, d$0, r$0, h];
          /*<<map.ml:323:38>>*/ }
         function fold(f, m, accu){
          var m$0 = m, accu$0 = accu;
@@ -11272,9 +11651,9 @@
            v = param$0[2],
            l = param$0[1],
            _B_ =  /*<<map.ml:333:29>>*/ caml_call2(p, v, d);
-          if(_B_){
+           /*<<map.ml:333:34>>*/ if(_B_){
            var _C_ =  /*<<map.ml:333:38>>*/ for_all(p, l);
-           if(_C_){param$0 = r; continue;}
+            /*<<map.ml:333:49>>*/ if(_C_){param$0 = r; continue;}
            var _D_ = _C_;
           }
           else
@@ -11292,28 +11671,28 @@
            v = param$0[2],
            l = param$0[1],
            _y_ =  /*<<map.ml:337:29>>*/ caml_call2(p, v, d);
-          if(_y_)
+           /*<<map.ml:337:34>>*/ if(_y_)
            var _z_ = _y_;
           else{
            var _A_ =  /*<<map.ml:337:38>>*/ exists(p, l);
-           if(! _A_){param$0 = r; continue;}
+            /*<<map.ml:337:48>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-           /*<<map.ml:337:29>>*/ return _z_;
+          return _z_;
          }
          /*<<map.ml:337:62>>*/ }
         function add_min_binding(k, x, param){
           /*<<map.ml:347:28>>*/ if(! param)
            /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:350:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:350:8>>*/ return bal
+          /*<<map.ml:350:35>>*/ return bal
                  ( /*<<map.ml:350:12>>*/ add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:41>>*/ ;
         }
         function add_max_binding(k, x, param){
           /*<<map.ml:352:28>>*/ if(! param)
            /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:355:41>>*/ ;
          var r = param[4], d = param[3], v = param[2], l = param[1];
-          /*<<map.ml:355:18>>*/ return bal(l, v, d, add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
+         return bal(l, v, d,  /*<<map.ml:355:18>>*/ add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
         }
         function join(l, v, d, r){
           /*<<map.ml:361:6>>*/ if(! l)
@@ -11331,13 +11710,14 @@
           ld = l[3],
           lv = l[2],
           ll = l[1];
-         return (rh + 2 | 0) < lh
-                 ?  /*<<map.ml:366:43>>*/ bal(ll, lv, ld, join(lr, v, d, r))
+          /*<<map.ml:366:10>>*/ return (rh + 2 | 0) < lh
+                 ?  /*<<map.ml:366:58>>*/ bal
+                   (ll, lv, ld,  /*<<map.ml:366:43>>*/ join(lr, v, d, r))
                  : (lh
                    + 2
                    | 0)
                    < rh
-                   ?  /*<<map.ml:367:30>>*/ bal
+                   ?  /*<<map.ml:367:49>>*/ bal
                      ( /*<<map.ml:367:34>>*/ join(l, v, d, rl), rv, rd, rr)
                    :  /*<<map.ml:368:10>>*/ create(l, v, d, r) /*<<map.ml:368:24>>*/ ;
         }
@@ -11346,9 +11726,10 @@
          if(! t2)  /*<<map.ml:377:22>>*/ return t1;
          var
           match =  /*<<map.ml:379:23>>*/ min_binding(t2),
-          d = match[2],
+          d =  /*<<map.ml:379:37>>*/ match[2],
           x = match[1];
-          /*<<map.ml:380:22>>*/ return join(t1, x, d, remove_min_binding(t2)) /*<<map.ml:380:45>>*/ ;
+          /*<<map.ml:380:45>>*/ return join
+                 (t1, x, d,  /*<<map.ml:380:22>>*/ remove_min_binding(t2)) /*<<map.ml:380:45>>*/ ;
         }
         function concat_or_join(t1, v, d, t2){
           /*<<map.ml:383:6>>*/ if(! d)
@@ -11366,39 +11747,39 @@
           c =  /*<<map.ml:391:18>>*/ caml_call2(Ord[1], x, v);
           /*<<map.ml:392:10>>*/ if(0 === c)
            /*<<map.ml:392:24>>*/ return [0, l, [0, d], r];
-         if(0 <= c){
+          /*<<map.ml:393:15>>*/ if(0 <= c){
           var
            match =  /*<<map.ml:396:33>>*/ split(x, r),
-           rr = match[3],
+           rr =  /*<<map.ml:396:42>>*/ match[3],
            pres = match[2],
            lr = match[1];
-           /*<<map.ml:396:46>>*/ return [0,
+           /*<<map.ml:396:60>>*/ return [0,
                    /*<<map.ml:396:47>>*/ join(l, v, d, lr),
                   pres,
-                  rr] /*<<map.ml:396:46>>*/ ;
+                  rr] /*<<map.ml:396:60>>*/ ;
          }
          var
           match$0 =  /*<<map.ml:394:33>>*/ split(x, l),
-          rl = match$0[3],
+          rl =  /*<<map.ml:394:42>>*/ match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<map.ml:394:46>>*/ return [0,
+          /*<<map.ml:394:70>>*/ return [0,
                  ll,
                  pres$0,
-                  /*<<map.ml:394:57>>*/ join(rl, v, d, r)] /*<<map.ml:394:46>>*/ ;
+                  /*<<map.ml:394:57>>*/ join(rl, v, d, r)] /*<<map.ml:394:70>>*/ ;
          /*<<map.ml:396:71>>*/ }
         function merge(f, s1, s2){
           /*<<map.ml:399:6>>*/ if(s1){
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
-          if( /*<<map.ml:401:60>>*/ height(s2) <= h1){
+           /*<<map.ml:401:69>>*/ if( /*<<map.ml:401:60>>*/ height(s2) <= h1){
            var
             match =  /*<<map.ml:402:29>>*/ split(v1, s2),
-            r2 = match[3],
+            r2 =  /*<<map.ml:402:40>>*/ match[3],
             d2 = match[2],
             l2 = match[1],
             _u_ =  /*<<map.ml:403:64>>*/ merge(f, r1, r2),
             _v_ =  /*<<map.ml:403:44>>*/ caml_call3(f, v1, [0, d1], d2);
-            /*<<map.ml:403:64>>*/ return concat_or_join
+            /*<<map.ml:403:40>>*/ return concat_or_join
                    ( /*<<map.ml:403:25>>*/ merge(f, l1, l2), v1, _v_, _u_) /*<<map.ml:408:22>>*/ ;
           }
          }
@@ -11412,12 +11793,12 @@
           v2 = s2[2],
           l2$0 = s2[1],
           match$0 =  /*<<map.ml:405:29>>*/ split(v2, s1),
-          r1$0 = match$0[3],
+          r1$0 =  /*<<map.ml:405:40>>*/ match$0[3],
           d1$0 = match$0[2],
           l1$0 = match$0[1],
           _w_ =  /*<<map.ml:406:64>>*/ merge(f, r1$0, r2$0),
           _x_ =  /*<<map.ml:406:44>>*/ caml_call3(f, v2, d1$0, [0, d2$0]);
-          /*<<map.ml:406:64>>*/ return concat_or_join
+          /*<<map.ml:406:40>>*/ return concat_or_join
                  ( /*<<map.ml:406:25>>*/ merge(f, l1$0, l2$0), v2, _x_, _w_) /*<<map.ml:408:22>>*/ ;
         }
         function union(f, s1, s2){
@@ -11434,10 +11815,10 @@
             d1 = s1[3],
             v1 = s1[2],
             l1 = s1[1];
-           if(h2 <= h1){
+            /*<<map.ml:415:10>>*/ if(h2 <= h1){
             var
              match =  /*<<map.ml:416:31>>*/ split(v1, s2),
-             r2$0 = match[3],
+             r2$0 =  /*<<map.ml:416:42>>*/ match[3],
              d2$0 = match[2],
              l2$0 = match[1],
              l =  /*<<map.ml:417:20>>*/ union(f, l1, l2$0),
@@ -11445,7 +11826,7 @@
              /*<<map.ml:418:12>>*/ if(! d2$0)
               /*<<map.ml:419:22>>*/ return join(l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
             var d2$1 = d2$0[1];
-             /*<<map.ml:420:25>>*/ return concat_or_join
+             /*<<map.ml:420:57>>*/ return concat_or_join
                     (l,
                      v1,
                       /*<<map.ml:420:45>>*/ caml_call3(f, v1, d1, d2$1),
@@ -11453,7 +11834,7 @@
            }
            var
             match$0 =  /*<<map.ml:422:31>>*/ split(v2, s1),
-            r1$0 = match$0[3],
+            r1$0 =  /*<<map.ml:422:42>>*/ match$0[3],
             d1$0 = match$0[2],
             l1$0 = match$0[1],
             l$0 =  /*<<map.ml:423:20>>*/ union(f, l1$0, l2),
@@ -11461,7 +11842,7 @@
             /*<<map.ml:424:12>>*/ if(! d1$0)
              /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
            var d1$1 = d1$0[1];
-            /*<<map.ml:426:25>>*/ return concat_or_join
+            /*<<map.ml:426:57>>*/ return concat_or_join
                    (l$0,
                     v2,
                      /*<<map.ml:426:45>>*/ caml_call3(f, v2, d1$1, d2),
@@ -11485,7 +11866,8 @@
           r$0 =  /*<<map.ml:434:19>>*/ filter(p, r);
           /*<<map.ml:435:10>>*/ if(! pvd)
            /*<<map.ml:436:15>>*/ return concat(l$0, r$0) /*<<map.ml:436:27>>*/ ;
-         if(l === l$0 && r === r$0)  /*<<map.ml:435:45>>*/ return m;
+          /*<<map.ml:435:22>>*/ if(l === l$0 && r === r$0)
+           /*<<map.ml:435:45>>*/ return m;
           /*<<map.ml:435:52>>*/ return join(l$0, v, d, r$0) /*<<map.ml:436:27>>*/ ;
         }
         function filter_map(f, param){
@@ -11511,22 +11893,22 @@
           v = param[2],
           l = param[1],
           match =  /*<<map.ml:454:25>>*/ partition(p, l),
-          lf = match[2],
+          lf =  /*<<map.ml:454:38>>*/ match[2],
           lt = match[1],
           pvd =  /*<<map.ml:455:20>>*/ caml_call2(p, v, d),
           match$0 =  /*<<map.ml:456:25>>*/ partition(p, r),
-          rf = match$0[2],
+          rf =  /*<<map.ml:456:38>>*/ match$0[2],
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
           var _s_ =  /*<<map.ml:458:32>>*/ concat(lf, rf);
-           /*<<map.ml:458:15>>*/ return [0,
+           /*<<map.ml:458:30>>*/ return [0,
                    /*<<map.ml:458:16>>*/ join(lt, v, d, rt),
-                  _s_] /*<<map.ml:458:15>>*/ ;
+                  _s_] /*<<map.ml:458:30>>*/ ;
          }
          var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
-          /*<<map.ml:459:15>>*/ return [0,
+          /*<<map.ml:459:28>>*/ return [0,
                   /*<<map.ml:459:16>>*/ concat(lt, rt),
-                 _t_] /*<<map.ml:459:15>>*/ ;
+                 _t_] /*<<map.ml:459:28>>*/ ;
          /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
          var m$0 = m, e$0 = e;
@@ -11537,7 +11919,7 @@
            d = m$0[3],
            v = m$0[2],
            l = m$0[1],
-           e$1 =  /*<<map.ml:466:41>>*/ [0, v, d, r, e$0];
+           e$1 =  /*<<map.ml:466:29>>*/ [0, v, d, r, e$0];
           m$0 = l;
           e$0 = e$1;
          }
@@ -11591,10 +11973,13 @@
            d1 = e1[2],
            v1 = e1[1],
            _p_ =
-             0 ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2) ? 1 : 0;
-          if(_p_){
+              /*<<map.ml:489:29>>*/ 0
+              ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2)
+              ? 1
+              : 0;
+           /*<<map.ml:489:29>>*/ if(_p_){
            var _q_ =  /*<<map.ml:489:37>>*/ caml_call2(cmp, d1, d2);
-           if(_q_){
+            /*<<map.ml:489:46>>*/ if(_q_){
             var
              e2$1 =  /*<<map.ml:490:40>>*/ cons_enum(r2, e2$0),
              e1$1 =  /*<<map.ml:490:22>>*/ cons_enum(r1, e1$0);
@@ -11606,7 +11991,7 @@
           }
           else
            var _r_ = _p_;
-           /*<<map.ml:489:37>>*/ return _r_;
+          return _r_;
          }
          /*<<map.ml:491:56>>*/ }
         function cardinal(param){
@@ -11615,7 +12000,10 @@
           r = param[4],
           l = param[1],
           _o_ =  /*<<map.ml:495:40>>*/ cardinal(r);
-         return ( /*<<map.ml:495:23>>*/ cardinal(l) + 1 | 0) + _o_ | 0;
+          /*<<map.ml:495:33>>*/ return ( /*<<map.ml:495:23>>*/ cardinal(l) + 1
+                | 0)
+                + _o_
+                | 0 /*<<map.ml:495:33>>*/ ;
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
          var accu$0 = accu, param$0 = param;
@@ -11627,7 +12015,7 @@
            v = param$0[2],
            l = param$0[1],
            accu$1 =
-              /*<<map.ml:499:42>>*/ [0,
+              /*<<map.ml:499:72>>*/ [0,
               [0, v, d],
                /*<<map.ml:499:53>>*/ bindings_aux(accu$0, r)];
           accu$0 = accu$1;
@@ -11641,7 +12029,7 @@
           /*<<map.ml:509:21>>*/ return caml_call3
                  (Stdlib_List[26],
                   function(m, param){
-                   var v = param[2], k = param[1];
+                   var v =  /*<<map.ml:509:36>>*/ param[2], k = param[1];
                     /*<<map.ml:509:53>>*/ return add(k, v, m) /*<<map.ml:509:63>>*/ ;
                   },
                   empty,
@@ -11651,14 +12039,14 @@
           /*<<map.ml:512:6>>*/ return caml_call3
                  (Stdlib_Seq[5],
                   function(m, param){
-                   var v = param[2], k = param[1];
+                   var v =  /*<<map.ml:512:20>>*/ param[2], k = param[1];
                     /*<<map.ml:512:36>>*/ return add(k, v, m) /*<<map.ml:512:46>>*/ ;
                   },
                   m,
                   i) /*<<map.ml:512:50>>*/ ;
         }
         function of_seq(i){
-          /*<<map.ml:514:19>>*/ return  /*<<map.ml:91:12>>*/ add_seq(i, empty) /*<<map.ml:514:34>>*/ ;
+          /*<<map.ml:514:19>>*/ return add_seq(i, empty) /*<<map.ml:514:34>>*/ ;
         }
         function seq_of_enum(c, param){
           /*<<map.ml:516:32>>*/ if(! c)  /*<<map.ml:517:15>>*/ return 0;
@@ -11668,15 +12056,15 @@
           v = c[2],
           k = c[1],
           _m_ =  /*<<map.ml:518:59>>*/ cons_enum(t, rest);
-          /*<<map.ml:518:29>>*/ return [0,
+          /*<<map.ml:518:77>>*/ return [0,
                  [0, k, v],
-                 function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}] /*<<map.ml:518:29>>*/ ;
+                 function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}] /*<<map.ml:518:77>>*/ ;
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
          var _k_ =  /*<<map.ml:521:19>>*/ cons_enum(m, 0);
-         return function(_l_){
-           /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:19>>*/ ;
-         /*<<map.ml:521:36>>*/ }
+          /*<<map.ml:521:36>>*/ return function(_l_){
+           /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:36>>*/ ;
+        }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
           /*<<map.ml:524:6>>*/ for(;;){
@@ -11686,7 +12074,7 @@
            d = s$0[3],
            v = s$0[2],
            l = s$0[1],
-           e$1 =  /*<<map.ml:526:40>>*/ [0, v, d, l, e$0];
+           e$1 =  /*<<map.ml:526:28>>*/ [0, v, d, l, e$0];
           s$0 = r;
           e$0 = e$1;
          }
@@ -11699,15 +12087,15 @@
           v = c[2],
           k = c[1],
           _i_ =  /*<<map.ml:531:44>>*/ snoc_enum(t, rest);
-          /*<<map.ml:531:10>>*/ return [0,
+          /*<<map.ml:531:62>>*/ return [0,
                  [0, k, v],
-                 function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}] /*<<map.ml:531:10>>*/ ;
+                 function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}] /*<<map.ml:531:62>>*/ ;
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
          var _g_ =  /*<<map.ml:534:23>>*/ snoc_enum(c, 0);
-         return function(_h_){
-           /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);} /*<<map.ml:534:23>>*/ ;
-         /*<<map.ml:534:40>>*/ }
+          /*<<map.ml:534:40>>*/ return function(_h_){
+           /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);} /*<<map.ml:534:40>>*/ ;
+        }
         function to_seq_from(low, m){
          a:
          {
@@ -11722,9 +12110,9 @@
              v = m$0[2],
              l = m$0[1],
              n =  /*<<map.ml:540:24>>*/ caml_call2(Ord[1], v, low);
-            if(0 === n) break b;
-            if(0 <= n){
-             var c$0 =  /*<<map.ml:543:31>>*/ [0, v, d, r, c];
+             /*<<map.ml:540:41>>*/ if(0 === n) break b;
+             /*<<map.ml:542:23>>*/ if(0 <= n){
+             var c$0 =  /*<<map.ml:543:21>>*/ [0, v, d, r, c];
              m$0 = l;
              c = c$0;
             }
@@ -11736,9 +12124,9 @@
           }
           var _e_ = [0, v, d, r, c];
          }
-          /*<<map.ml:546:19>>*/ return function(_f_){
-           /*<<?>>*/ return seq_of_enum(_e_, _f_);} /*<<map.ml:546:19>>*/ ;
-         /*<<map.ml:546:34>>*/ }
+          /*<<map.ml:546:34>>*/ return function(_f_){
+           /*<<?>>*/ return seq_of_enum(_e_, _f_);} /*<<map.ml:546:34>>*/ ;
+        }
         return [0,
                 empty,
                 add,
@@ -11816,16 +12204,13 @@
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
     Stdlib_List = global_data.Stdlib__List,
-    Empty =
-       /*<<stack.ml:18:0>>*/ [248,
-       "Stdlib.Stack.Empty",
-       runtime.caml_fresh_oo_id(0)];
+    Empty = [248, "Stdlib.Stack.Empty", runtime.caml_fresh_oo_id(0)];
    function create(param){
      /*<<stack.ml:20:16>>*/ return [0, 0, 0];
     /*<<stack.ml:20:36>>*/ }
    function clear(s){
      /*<<stack.ml:22:14>>*/ s[1] = 0;
-    s[2] = 0;
+     /*<<stack.ml:22:25>>*/ s[2] = 0;
     return 0;
     /*<<stack.ml:22:35>>*/ }
    function copy(s){
@@ -11833,44 +12218,44 @@
     /*<<stack.ml:24:38>>*/ }
    function push(x, s){
      /*<<stack.ml:26:15>>*/ s[1] = [0, x, s[1]];
-    s[2] = s[2] + 1 | 0;
+     /*<<stack.ml:26:32>>*/ s[2] = s[2] + 1 | 0;
     return 0;
     /*<<stack.ml:26:50>>*/ }
    function pop(s){
-    var match = s[1];
+    var match =  /*<<stack.ml:29:2>>*/ s[1];
     if(! match)
       /*<<stack.ml:31:14>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var tl = match[2], hd = match[1];
-    s[1] = tl;
-    s[2] = s[2] - 1 | 0;
+     /*<<stack.ml:30:14>>*/ s[1] = tl;
+     /*<<stack.ml:30:25>>*/ s[2] = s[2] - 1 | 0;
      /*<<stack.ml:30:45>>*/ return hd;
     /*<<stack.ml:31:25>>*/ }
    function pop_opt(s){
-    var match = s[1];
+    var match =  /*<<stack.ml:34:2>>*/ s[1];
     if(! match)  /*<<stack.ml:36:14>>*/ return 0;
     var tl = match[2], hd = match[1];
-    s[1] = tl;
-    s[2] = s[2] - 1 | 0;
+     /*<<stack.ml:35:14>>*/ s[1] = tl;
+     /*<<stack.ml:35:25>>*/ s[2] = s[2] - 1 | 0;
      /*<<stack.ml:35:45>>*/ return [0, hd];
     /*<<stack.ml:36:18>>*/ }
    function drop(s){
-    var match = s[1];
+    var match =  /*<<stack.ml:39:2>>*/ s[1];
     if(! match)
       /*<<stack.ml:41:10>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var tl = match[2];
-    s[1] = tl;
-    s[2] = s[2] - 1 | 0;
+     /*<<stack.ml:40:15>>*/ s[1] = tl;
+     /*<<stack.ml:40:26>>*/ s[2] = s[2] - 1 | 0;
     return 0;
     /*<<stack.ml:41:21>>*/ }
    function top(s){
-    var match = s[1];
+    var match =  /*<<stack.ml:44:2>>*/ s[1];
     if(! match)
       /*<<stack.ml:46:13>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var hd = match[1];
      /*<<stack.ml:45:13>>*/ return hd;
     /*<<stack.ml:46:24>>*/ }
    function top_opt(s){
-    var match = s[1];
+    var match =  /*<<stack.ml:49:2>>*/ s[1];
     if(! match)  /*<<stack.ml:51:13>>*/ return 0;
     var hd = match[1];
      /*<<stack.ml:50:13>>*/ return [0, hd];
@@ -11894,15 +12279,14 @@
      /*<<stack.ml:65:18>>*/ return caml_call2
             (Stdlib_Seq[4],
              function(x){
-               /*<<stack.ml:65:37>>*/ return  /*<<stack.ml:63:11>>*/ push
-                      (x, q) /*<<stack.ml:65:45>>*/ ;
+               /*<<stack.ml:65:37>>*/ return push(x, q) /*<<stack.ml:65:45>>*/ ;
              },
              i) /*<<stack.ml:65:48>>*/ ;
    }
    function of_seq(g){
     var s =  /*<<stack.ml:68:10>>*/ create(0);
      /*<<stack.ml:69:2>>*/ add_seq(s, g);
-    return s;
+     /*<<stack.ml:69:13>>*/ return s;
     /*<<stack.ml:70:3>>*/ }
    var
     Stdlib_Stack =
@@ -11950,83 +12334,83 @@
    var
     global_data = runtime.caml_get_global_data(),
     Stdlib_Seq = global_data.Stdlib__Seq,
-    Empty =
-       /*<<queue.ml:17:0>>*/ [248,
-       "Stdlib.Queue.Empty",
-       runtime.caml_fresh_oo_id(0)];
+    Empty = [248, "Stdlib.Queue.Empty", runtime.caml_fresh_oo_id(0)];
    function create(param){
      /*<<queue.ml:29:16>>*/ return [0, 0, 0, 0];
     /*<<queue.ml:33:1>>*/ }
    function clear(q){
      /*<<queue.ml:36:2>>*/ q[1] = 0;
-    q[2] = 0;
-    q[3] = 0;
+     /*<<queue.ml:37:2>>*/ q[2] = 0;
+     /*<<queue.ml:38:2>>*/ q[3] = 0;
     return 0;
     /*<<queue.ml:38:15>>*/ }
    function add(x, q){
     var
-     cell =  /*<<queue.ml:41:18>>*/ [0, x, 0],
+     cell =  /*<<queue.ml:41:2>>*/ [0, x, 0],
      match =  /*<<queue.ml:45:2>>*/ q[3];
     return match
             ? (q[1] = q[1] + 1 | 0, match[2] = cell, q[3] = cell, 0)
             : (q[1] = 1, q[2] = cell, q[3] = cell, 0) /*<<queue.ml:53:18>>*/ ;
    }
    function peek(q){
-    var match = q[2];
+    var match =  /*<<queue.ml:59:2>>*/ q[2];
     if(! match)
       /*<<queue.ml:60:11>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var content = match[1];
      /*<<queue.ml:61:24>>*/ return content;
     /*<<queue.ml:61:31>>*/ }
    function peek_opt(q){
-    var match = q[2];
+    var match =  /*<<queue.ml:64:2>>*/ q[2];
     if(! match)  /*<<queue.ml:65:11>>*/ return 0;
     var content = match[1];
      /*<<queue.ml:66:24>>*/ return [0, content];
     /*<<queue.ml:66:36>>*/ }
    function take(q){
-    var _f_ = q[2];
+    var _f_ =  /*<<queue.ml:72:2>>*/ q[2];
     if(! _f_)
       /*<<queue.ml:73:11>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
     var content = _f_[1];
     if(_f_[2]){
      var next = _f_[2];
-     q[1] = q[1] - 1 | 0;
-     q[2] = next;
+      /*<<queue.ml:78:4>>*/ q[1] = q[1] - 1 | 0;
+      /*<<queue.ml:79:4>>*/ q[2] = next;
       /*<<queue.ml:80:4>>*/ return content;
     }
      /*<<queue.ml:75:4>>*/ clear(q);
-    return content;
+     /*<<queue.ml:75:11>>*/ return content;
     /*<<queue.ml:80:11>>*/ }
    function take_opt(q){
-    var _e_ = q[2];
+    var _e_ =  /*<<queue.ml:83:2>>*/ q[2];
     if(! _e_)  /*<<queue.ml:84:11>>*/ return 0;
     var content = _e_[1];
     if(_e_[2]){
      var next = _e_[2];
-     q[1] = q[1] - 1 | 0;
-     q[2] = next;
+      /*<<queue.ml:89:4>>*/ q[1] = q[1] - 1 | 0;
+      /*<<queue.ml:90:4>>*/ q[2] = next;
       /*<<queue.ml:91:4>>*/ return [0, content];
     }
      /*<<queue.ml:86:4>>*/ clear(q);
-     /*<<queue.ml:87:4>>*/ return [0, content];
+     /*<<queue.ml:86:11>>*/ return [0, content];
     /*<<queue.ml:91:16>>*/ }
    function copy(q){
     var
-     cell$0 = q[2],
-     q_res =  /*<<queue.ml:108:16>>*/ [0, q[1], 0, 0],
+     cell$0 =  /*<<queue.ml:108:11>>*/ q[2],
+     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;}
+     if(! cell){
+       /*<<queue.ml:99:13>>*/ q_res[3] = prev;
+       /*<<queue.ml:99:33>>*/ return q_res;
+     }
      var
       content = cell[1],
       next = cell[2],
-      prev$0 =  /*<<queue.ml:101:21>>*/ [0, content, 0];
+      prev$0 =  /*<<queue.ml:101:6>>*/ [0, content, 0];
       /*<<queue.ml:102:6>>*/ if(prev)
-      prev[2] = prev$0;
+       /*<<queue.ml:104:18>>*/ prev[2] = prev$0;
      else
-      q_res[2] = prev$0;
+       /*<<queue.ml:103:15>>*/ q_res[2] = prev$0;
      prev = prev$0;
      cell = next;
     }
@@ -12038,7 +12422,7 @@
      /*<<queue.ml:114:2>>*/ return q[1];
     /*<<queue.ml:114:10>>*/ }
    function iter(f, q){
-    var cell$0 = q[2], cell = cell$0;
+    var cell$0 =  /*<<queue.ml:124:13>>*/ q[2], cell = cell$0;
      /*<<queue.ml:118:4>>*/ for(;;){
      if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
      var content = cell[1], next = cell[2];
@@ -12047,7 +12431,7 @@
     }
     /*<<queue.ml:124:27>>*/ }
    function fold(f, accu$1, q){
-    var cell$0 = q[2], accu = accu$1, cell = cell$0;
+    var cell$0 =  /*<<queue.ml:134:18>>*/ q[2], accu = accu$1, cell = cell$0;
      /*<<queue.ml:128:4>>*/ for(;;){
      if(! cell)  /*<<queue.ml:129:13>>*/ return accu;
      var
@@ -12059,9 +12443,9 @@
     }
     /*<<queue.ml:134:37>>*/ }
    function transfer(q1, q2){
-    var _d_ = 0 < q1[1] ? 1 : 0;
+    var _d_ =  /*<<queue.ml:137:2>>*/ 0 < q1[1] ? 1 : 0;
     if(! _d_) return _d_;
-    var match = q2[3];
+    var match =  /*<<queue.ml:138:4>>*/ q2[3];
     return match
             ? (q2
                [1]
@@ -12080,31 +12464,30 @@
     function aux(c, param){
       /*<<queue.ml:153:21>>*/ if(! c)  /*<<queue.ml:154:13>>*/ return 0;
      var x = c[1], next = c[2];
-      /*<<queue.ml:155:35>>*/ return [0,
+      /*<<queue.ml:155:56>>*/ return [0,
              x,
-             function(_c_){ /*<<?>>*/ return aux(next, _c_);}] /*<<queue.ml:155:35>>*/ ;
+             function(_c_){ /*<<?>>*/ return aux(next, _c_);}] /*<<queue.ml:155:56>>*/ ;
      /*<<queue.ml:155:57>>*/ }
-    var _a_ = q[2];
-     /*<<queue.ml:153:2>>*/ return function(_b_){
-      /*<<?>>*/ return aux(_a_, _b_);} /*<<queue.ml:153:2>>*/ ;
+    var _a_ =  /*<<queue.ml:157:2>>*/ q[2];
+    return function(_b_){
+      /*<<?>>*/ return aux(_a_, _b_);} /*<<queue.ml:157:2>>*/ ;
     /*<<queue.ml:157:13>>*/ }
    function add_seq(q, i){
      /*<<queue.ml:159:18>>*/ return caml_call2
             (Stdlib_Seq[4],
              function(x){
-               /*<<queue.ml:159:37>>*/ return  /*<<queue.ml:152:11>>*/ add
-                      (x, q) /*<<queue.ml:159:45>>*/ ;
+               /*<<queue.ml:159:37>>*/ return add(x, q) /*<<queue.ml:159:45>>*/ ;
              },
              i) /*<<queue.ml:159:48>>*/ ;
    }
    function of_seq(g){
     var q =  /*<<queue.ml:162:10>>*/ create(0);
      /*<<queue.ml:163:2>>*/ add_seq(q, g);
-    return q;
+     /*<<queue.ml:163:13>>*/ return q;
     /*<<queue.ml:164:3>>*/ }
    var
     Stdlib_Queue =
-      [0,
+       /*<<queue.ml:134:2>>*/ [0,
        Empty,
        create,
        add,
@@ -12193,8 +12576,8 @@
     dummy = 0;
    function create(n){
     var
-     n$0 = 1 <= n ? n : 1,
-     n$1 = Stdlib_Sys[12] < n$0 ? Stdlib_Sys[12] : n$0,
+     n$0 =  /*<<buffer.ml:41:1>>*/ 1 <= n ? n : 1,
+     n$1 =  /*<<buffer.ml:42:1>>*/ Stdlib_Sys[12] < n$0 ? Stdlib_Sys[12] : n$0,
      s =  /*<<buffer.ml:43:9>>*/ caml_create_bytes(n$1);
      /*<<buffer.ml:44:1>>*/ return [0, [0, s, n$1], 0, s];
     /*<<buffer.ml:44:71>>*/ }
@@ -12227,13 +12610,13 @@
    }
    function nth(b, ofs){
     var
-     position = b[2],
+     position =  /*<<buffer.ml:64:2>>*/ b[2],
      match =  /*<<buffer.ml:65:2>>*/ b[1],
      length = match[2],
      buffer = match[1];
      /*<<buffer.ml:66:2>>*/ if
      (0 <= ofs && position > ofs && length >= position)
-     return runtime.caml_bytes_unsafe_get(buffer, ofs) /*<<buffer.ml:68:34>>*/ ;
+      /*<<buffer.ml:68:7>>*/ return runtime.caml_bytes_unsafe_get(buffer, ofs) /*<<buffer.ml:68:34>>*/ ;
      /*<<buffer.ml:67:3>>*/ return caml_call1(Stdlib[1], cst_Buffer_nth) /*<<buffer.ml:68:34>>*/ ;
    }
    function length(b){
@@ -12245,47 +12628,47 @@
     /*<<buffer.ml:73:29>>*/ }
    function reset(b){
      /*<<buffer.ml:76:2>>*/ b[2] = 0;
-    var inner =  /*<<buffer.ml:78:4>>*/ [0, b[3], caml_ml_bytes_length(b[3])];
-    b[1] = inner;
+    var inner =  /*<<buffer.ml:77:2>>*/ [0, b[3], caml_ml_bytes_length(b[3])];
+     /*<<buffer.ml:80:2>>*/ b[1] = inner;
     return 0;
     /*<<buffer.ml:80:18>>*/ }
    function resize(b, more){
     var
-     old_pos = b[2],
-     old_len = b[1][2],
-     new_len =  /*<<buffer.ml:89:16>>*/ [0, old_len];
+     old_pos =  /*<<buffer.ml:87:2>>*/ b[2],
+     old_len =  /*<<buffer.ml:88:2>>*/ b[1][2],
+     new_len =  /*<<buffer.ml:89:2>>*/ [0, old_len];
     for(;;){
      if(new_len[1] >= (old_pos + more | 0)) break;
-     new_len[1] = 2 * new_len[1] | 0;
+      /*<<buffer.ml:90:37>>*/ new_len[1] = 2 * new_len[1] | 0;
     }
-    if(Stdlib_Sys[12] < new_len[1])
-     if((old_pos + more | 0) <= Stdlib_Sys[12])
-      new_len[1] = Stdlib_Sys[12];
+     /*<<buffer.ml:91:2>>*/ if(Stdlib_Sys[12] < new_len[1])
+      /*<<buffer.ml:91:43>>*/ if((old_pos + more | 0) <= Stdlib_Sys[12])
+       /*<<buffer.ml:93:9>>*/ new_len[1] = Stdlib_Sys[12];
      else
        /*<<buffer.ml:94:9>>*/ caml_call1
        (Stdlib[2], cst_Buffer_add_cannot_grow_buf);
     var new_buffer =  /*<<buffer.ml:96:19>>*/ caml_create_bytes(new_len[1]);
      /*<<buffer.ml:99:2>>*/ caml_call5
      (Stdlib_Bytes[11], b[1][1], 0, new_buffer, 0, b[2]);
-    b[1] = [0, new_buffer, new_len[1]];
+     /*<<buffer.ml:99:53>>*/ b[1] = [0, new_buffer, new_len[1]];
     /*<<buffer.ml:100:55>>*/ }
    function add_char(b, c){
     var
-     pos = b[2],
+     pos =  /*<<buffer.ml:113:2>>*/ b[2],
      match =  /*<<buffer.ml:114:2>>*/ b[1],
      length = match[2],
      buffer = match[1];
-    if(length <= pos){
+     /*<<buffer.ml:115:2>>*/ if(length <= pos){
       /*<<buffer.ml:116:4>>*/ resize(b, 1);
       /*<<buffer.ml:117:4>>*/ caml_bytes_set(b[1][1], b[2], c);
     }
     else
-     caml_bytes_unsafe_set(buffer, pos, c);
-    b[2] = pos + 1 | 0;
+      /*<<buffer.ml:119:4>>*/ caml_bytes_unsafe_set(buffer, pos, c);
+     /*<<buffer.ml:120:2>>*/ b[2] = pos + 1 | 0;
     return 0;
     /*<<buffer.ml:120:23>>*/ }
    var
-    uchar_utf_8_byte_length_max =  /*<<buffer.ml:112:13>>*/ 4,
+    uchar_utf_8_byte_length_max = 4,
     uchar_utf_16_byte_length_max = 4,
     cst_Buffer_add_substring_add_s = "Buffer.add_substring/add_subbytes",
     cst_Buffer_add_channel = "Buffer.add_channel",
@@ -12294,44 +12677,53 @@
    function add_utf_8_uchar(b, u){
      /*<<buffer.ml:126:2>>*/ for(;;){
      var pos = b[2];
-     if(b[1][2] <= pos)
+      /*<<buffer.ml:127:2>>*/ if(b[1][2] <= pos)
        /*<<buffer.ml:127:32>>*/ resize(b, uchar_utf_8_byte_length_max);
      var
       n =
          /*<<buffer.ml:128:10>>*/ caml_call3
          (Stdlib_Bytes[51], b[1][1], pos, u);
-      /*<<buffer.ml:129:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
+      /*<<buffer.ml:129:2>>*/ if(0 !== n){
+       /*<<buffer.ml:131:7>>*/ b[2] = pos + n | 0;
+      return 0;
+     }
       /*<<buffer.ml:130:8>>*/ resize(b, uchar_utf_8_byte_length_max);
     }
     /*<<buffer.ml:131:30>>*/ }
    function add_utf_16be_uchar(b, u){
      /*<<buffer.ml:134:2>>*/ for(;;){
      var pos = b[2];
-     if(b[1][2] <= pos)
+      /*<<buffer.ml:135:2>>*/ if(b[1][2] <= pos)
        /*<<buffer.ml:135:32>>*/ resize(b, uchar_utf_16_byte_length_max);
      var
       n =
          /*<<buffer.ml:136:10>>*/ caml_call3
          (Stdlib_Bytes[54], b[1][1], pos, u);
-      /*<<buffer.ml:137:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
+      /*<<buffer.ml:137:2>>*/ if(0 !== n){
+       /*<<buffer.ml:139:7>>*/ b[2] = pos + n | 0;
+      return 0;
+     }
       /*<<buffer.ml:138:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:139:30>>*/ }
    function add_utf_16le_uchar(b, u){
      /*<<buffer.ml:142:2>>*/ for(;;){
      var pos = b[2];
-     if(b[1][2] <= pos)
+      /*<<buffer.ml:143:2>>*/ if(b[1][2] <= pos)
        /*<<buffer.ml:143:32>>*/ resize(b, uchar_utf_16_byte_length_max);
      var
       n =
          /*<<buffer.ml:144:10>>*/ caml_call3
          (Stdlib_Bytes[57], b[1][1], pos, u);
-      /*<<buffer.ml:145:2>>*/ if(0 !== n){b[2] = pos + n | 0; return 0;}
+      /*<<buffer.ml:145:2>>*/ if(0 !== n){
+       /*<<buffer.ml:147:7>>*/ b[2] = pos + n | 0;
+      return 0;
+     }
       /*<<buffer.ml:146:8>>*/ resize(b, uchar_utf_16_byte_length_max);
     }
     /*<<buffer.ml:147:30>>*/ }
    function add_substring(b, s, offset, len){
-    var _s_ = offset < 0 ? 1 : 0;
+    var _s_ =  /*<<buffer.ml:150:2>>*/ offset < 0 ? 1 : 0;
     if(_s_)
      var _t_ = _s_;
     else
@@ -12346,8 +12738,8 @@
      match =  /*<<buffer.ml:153:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
-     new_position = position + len | 0;
-    if(length < new_position){
+     new_position =  /*<<buffer.ml:154:2>>*/ position + len | 0;
+     /*<<buffer.ml:155:2>>*/ if(length < new_position){
       /*<<buffer.ml:156:4>>*/ resize(b, len);
       /*<<buffer.ml:157:4>>*/ caml_call5
       (Stdlib_Bytes[12], s, offset, b[1][1], b[2], len);
@@ -12359,7 +12751,7 @@
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
-     /*<<buffer.ml:163:2>>*/ return add_substring
+     /*<<buffer.ml:163:2>>*/ return  /*<<buffer.ml:163:44>>*/ add_substring
             (b,
               /*<<buffer.ml:163:18>>*/ caml_call1(Stdlib_Bytes[44], s),
              offset,
@@ -12367,13 +12759,13 @@
    }
    function add_string(b, s){
     var
-     len = caml_ml_string_length(s),
+     len =  /*<<buffer.ml:166:2>>*/ caml_ml_string_length(s),
      position =  /*<<buffer.ml:167:2>>*/ b[2],
      match =  /*<<buffer.ml:168:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
-     new_position = position + len | 0;
-    if(length < new_position){
+     new_position =  /*<<buffer.ml:169:2>>*/ position + len | 0;
+     /*<<buffer.ml:170:2>>*/ if(length < new_position){
       /*<<buffer.ml:171:4>>*/ resize(b, len);
       /*<<buffer.ml:172:4>>*/ caml_call5
       (Stdlib_Bytes[12], s, 0, b[1][1], b[2], len);
@@ -12384,20 +12776,19 @@
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
-     /*<<buffer.ml:177:20>>*/ return  /*<<buffer.ml:177:33>>*/ add_string
-            (b, caml_call1(Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
+     /*<<buffer.ml:177:20>>*/ return  /*<<buffer.ml:177:59>>*/ add_string
+            (b,  /*<<buffer.ml:177:33>>*/ caml_call1(Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
    }
    function add_buffer(b, bs){
-     /*<<buffer.ml:180:2>>*/ return  /*<<buffer.ml:177:14>>*/ add_subbytes
-            (b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
+     /*<<buffer.ml:180:2>>*/ return add_subbytes(b, bs[1][1], 0, bs[2]) /*<<buffer.ml:180:46>>*/ ;
    }
    function add_channel(b, ic, to_read$1){
     var
-     _q_ = to_read$1 < 0 ? 1 : 0,
+     _q_ =  /*<<buffer.ml:206:2>>*/ to_read$1 < 0 ? 1 : 0,
      _r_ = _q_ || (Stdlib_Sys[12] < to_read$1 ? 1 : 0);
     if(_r_)
       /*<<buffer.ml:207:4>>*/ caml_call1(Stdlib[1], cst_Buffer_add_channel);
-    if(b[1][2] < (b[2] + to_read$1 | 0))
+     /*<<buffer.ml:200:2>>*/ if(b[1][2] < (b[2] + to_read$1 | 0))
       /*<<buffer.ml:200:44>>*/ resize(b, to_read$1);
     var
      ofs$1 = b[2],
@@ -12413,17 +12804,17 @@
           (Stdlib[84], ic, buf, ofs, to_read);
        /*<<buffer.ml:188:6>>*/ if(0 !== r){
        var
-        already_read$0 = already_read + r | 0,
-        ofs$0 = ofs + r | 0,
-        to_read$0 = to_read - r | 0;
+        already_read$0 =  /*<<buffer.ml:189:11>>*/ already_read + r | 0,
+        ofs$0 =  /*<<buffer.ml:191:8>>*/ ofs + r | 0,
+        to_read$0 =  /*<<buffer.ml:192:8>>*/ to_read - r | 0;
        already_read = already_read$0;
        ofs = ofs$0;
        to_read = to_read$0;
        continue;
       }
      }
-     b[2] = b[2] + already_read | 0;
-     if(already_read < to_read$1)
+      /*<<buffer.ml:202:2>>*/ b[2] = b[2] + already_read | 0;
+      /*<<buffer.ml:211:2>>*/ if(already_read < to_read$1)
        /*<<buffer.ml:211:18>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[12], 1);
       /*<<buffer.ml:212:2>>*/ return 0;
@@ -12434,31 +12825,34 @@
             (Stdlib[68], oc, b[1][1], 0, b[2]) /*<<buffer.ml:215:39>>*/ ;
    }
    function add_substitute(b, f, s){
-    var lim$1 = caml_ml_string_length(s), previous = 32, i$4 = 0;
+    var
+     lim$1 =  /*<<buffer.ml:261:2>>*/ caml_ml_string_length(s),
+     previous = 32,
+     i$4 = 0;
      /*<<buffer.ml:263:4>>*/ for(;;){
      if(i$4 >= lim$1){
-      var _o_ = 92 === previous ? 1 : 0;
+      var _o_ =  /*<<buffer.ml:283:4>>*/ 92 === previous ? 1 : 0;
       return _o_ ?  /*<<buffer.ml:283:28>>*/ add_char(b, previous) : _o_ /*<<buffer.ml:284:13>>*/ ;
      }
      var previous$0 =  /*<<buffer.ml:264:12>>*/ caml_string_get(s, i$4);
-     if(36 === previous$0)
-      if(92 === previous){
+      /*<<buffer.ml:264:17>>*/ if(36 === previous$0)
+       /*<<buffer.ml:265:28>>*/ if(92 === previous){
         /*<<buffer.ml:266:9>>*/ add_char(b, previous$0);
-       var i$5 = i$4 + 1 | 0;
+       var i$5 =  /*<<buffer.ml:266:27>>*/ i$4 + 1 | 0;
        previous = 32;
        i$4 = i$5;
       }
       else{
        var start =  /*<<buffer.ml:269:9>>*/ i$4 + 1 | 0;
-        /*<<buffer.ml:270:9>>*/ try{
-        if(lim$1 <= start)
+       try{
+         /*<<buffer.ml:245:2>>*/ if(lim$1 <= start)
           /*<<buffer.ml:245:23>>*/ throw caml_maybe_attach_backtrace
                 (Stdlib[8], 1);
         var opening =  /*<<buffer.ml:246:8>>*/ caml_string_get(s, start);
         a:
         {
-         if(40 !== opening && 123 !== opening){
-          var lim$0 = caml_ml_string_length(s);
+          /*<<buffer.ml:246:17>>*/ if(40 !== opening && 123 !== opening){
+          var lim$0 =  /*<<buffer.ml:241:2>>*/ caml_ml_string_length(s);
           b:
           {
            c:
@@ -12469,7 +12863,7 @@
               /*<<buffer.ml:237:4>>*/ for(;;){
               if(lim$0 <= i$2) break c;
               var match =  /*<<buffer.ml:238:10>>*/ caml_string_get(s, i$2);
-              if(91 <= match){
+               /*<<buffer.ml:238:15>>*/ if(91 <= match){
                if(97 <= match){
                 if(123 <= match) break d;
                }
@@ -12480,7 +12874,7 @@
                 if(65 > match) break;
                }
                else if(48 > match) break d;
-              var i$3 = i$2 + 1 | 0;
+              var i$3 =  /*<<buffer.ml:239:52>>*/ i$2 + 1 | 0;
               i$2 = i$3;
              }
             }
@@ -12489,7 +12883,7 @@
            }
            var stop$0 = lim$0;
           }
-          if(stop$0 === start)
+           /*<<buffer.ml:255:5>>*/ if(stop$0 === start)
             /*<<buffer.ml:255:26>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -12500,8 +12894,10 @@
               stop$0];
           break a;
          }
-         var new_start =  /*<<buffer.ml:249:5>>*/ start + 1 | 0, k$2 = 0;
-         if(40 === opening)
+         var
+          new_start =  /*<<buffer.ml:249:5>>*/ start + 1 | 0,
+          k$2 =  /*<<buffer.ml:250:5>>*/ 0;
+          /*<<buffer.ml:217:14>>*/ if(40 === opening)
           var closing = 41;
          else{
           if(123 !== opening)
@@ -12509,20 +12905,28 @@
                   ([0, Assert_failure, _a_], 1);
           var closing = 125;
          }
-         var lim = caml_ml_string_length(s), k = k$2, stop = new_start;
+         var
+          lim =  /*<<buffer.ml:233:2>>*/ caml_ml_string_length(s),
+          k = k$2,
+          stop = new_start;
           /*<<buffer.ml:228:4>>*/ for(;;){
           if(lim <= stop)
             /*<<buffer.ml:228:21>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          if( /*<<buffer.ml:229:7>>*/ caml_string_get(s, stop) === opening){var i = stop + 1 | 0, k$0 = k + 1 | 0; k = k$0; stop = i;}
+           /*<<buffer.ml:229:12>>*/ if
+           ( /*<<buffer.ml:229:7>>*/ caml_string_get(s, stop) === opening){
+           var i =  /*<<buffer.ml:229:28>>*/ stop + 1 | 0, k$0 = k + 1 | 0;
+           k = k$0;
+           stop = i;
+          }
           else if
            ( /*<<buffer.ml:230:7>>*/ caml_string_get(s, stop) === closing){
-           if(0 === k) break;
-           var i$0 = stop + 1 | 0, k$1 = k - 1 | 0;
+            /*<<buffer.ml:231:6>>*/ if(0 === k) break;
+           var i$0 =  /*<<buffer.ml:231:27>>*/ stop + 1 | 0, k$1 = k - 1 | 0;
            k = k$1;
            stop = i$0;
           }
-          else{var i$1 = stop + 1 | 0; stop = i$1;}
+          else{var i$1 =  /*<<buffer.ml:232:9>>*/ stop + 1 | 0; stop = i$1;}
          }
          var
           val =
@@ -12547,7 +12951,8 @@
        i$4 = next_i;
       }
      else{
-      if(92 === previous)  /*<<buffer.ml:279:33>>*/ add_char(b, previous);
+       /*<<buffer.ml:279:9>>*/ if(92 === previous)
+        /*<<buffer.ml:279:33>>*/ add_char(b, previous);
       if(92 !== previous$0)  /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
       var i$6 = i$4 + 1 | 0;
       previous = previous$0;
@@ -12556,7 +12961,10 @@
     }
     /*<<buffer.ml:284:13>>*/ }
    function truncate(b, len){
-     /*<<buffer.ml:287:4>>*/ if(0 <= len && b[2] >= len){b[2] = len; return 0;}
+     /*<<buffer.ml:287:4>>*/ if(0 <= len && b[2] >= len){
+      /*<<buffer.ml:290:6>>*/ b[2] = len;
+     return 0;
+    }
      /*<<buffer.ml:288:6>>*/ return caml_call1(Stdlib[1], cst_Buffer_truncate) /*<<buffer.ml:290:23>>*/ ;
    }
    function to_seq(b){
@@ -12565,10 +12973,10 @@
        /*<<buffer.ml:297:28>>*/ return 0;
      var
       x =  /*<<buffer.ml:299:14>>*/ caml_bytes_get(b[1][1], i),
-      _l_ = i + 1 | 0;
-      /*<<buffer.ml:300:6>>*/ return [0,
+      _l_ =  /*<<buffer.ml:300:6>>*/ i + 1 | 0;
+      /*<<buffer.ml:300:28>>*/ return [0,
              x,
-             function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:6>>*/ ;
+             function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:28>>*/ ;
      /*<<buffer.ml:300:29>>*/ }
     var _j_ =  /*<<buffer.ml:302:2>>*/ 0;
     return function(_k_){
@@ -12580,17 +12988,17 @@
        /*<<buffer.ml:307:28>>*/ return 0;
      var
       x =  /*<<buffer.ml:309:14>>*/ caml_bytes_get(b[1][1], i),
-      _h_ = i + 1 | 0;
-      /*<<buffer.ml:310:6>>*/ return [0,
+      _h_ =  /*<<buffer.ml:310:6>>*/ i + 1 | 0;
+      /*<<buffer.ml:310:32>>*/ return [0,
              [0, i, x],
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:6>>*/ ;
+             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:32>>*/ ;
      /*<<buffer.ml:310:33>>*/ }
     var _f_ =  /*<<buffer.ml:312:2>>*/ 0;
     return function(_g_){
       /*<<?>>*/ return aux(_f_, _g_);} /*<<buffer.ml:312:2>>*/ ;
     /*<<buffer.ml:312:7>>*/ }
    function add_seq(b, seq){
-     /*<<buffer.ml:314:20>>*/ return caml_call2
+     /*<<buffer.ml:314:20>>*/ return  /*<<buffer.ml:314:41>>*/ caml_call2
             (Stdlib_Seq[4],
              function(_e_){ /*<<?>>*/ return add_char(b, _e_);},
              seq) /*<<buffer.ml:314:45>>*/ ;
@@ -12598,32 +13006,32 @@
    function of_seq(i){
     var b =  /*<<buffer.ml:317:10>>*/ create(32);
      /*<<buffer.ml:318:2>>*/ add_seq(b, i);
-    return b;
+     /*<<buffer.ml:318:13>>*/ return b;
     /*<<buffer.ml:319:3>>*/ }
    function add_int8(b, x){
     var
-     position = b[2],
+     position =  /*<<buffer.ml:338:2>>*/ b[2],
      match =  /*<<buffer.ml:339:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
      new_position =  /*<<buffer.ml:340:2>>*/ position + 1 | 0;
-    if(length < new_position){
+     /*<<buffer.ml:341:2>>*/ if(length < new_position){
       /*<<buffer.ml:342:4>>*/ resize(b, 1);
       /*<<buffer.ml:343:4>>*/ caml_bytes_set(b[1][1], b[2], x);
     }
     else
-     caml_bytes_unsafe_set(buffer, position, x);
-    b[2] = new_position;
+      /*<<buffer.ml:345:4>>*/ caml_bytes_unsafe_set(buffer, position, x);
+     /*<<buffer.ml:346:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:346:28>>*/ }
    function add_int16_ne(b, x){
     var
-     position = b[2],
+     position =  /*<<buffer.ml:349:2>>*/ b[2],
      match =  /*<<buffer.ml:350:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
      new_position =  /*<<buffer.ml:351:2>>*/ position + 2 | 0;
-    if(length < new_position){
+     /*<<buffer.ml:352:2>>*/ if(length < new_position){
       /*<<buffer.ml:353:4>>*/ resize(b, 2);
       /*<<buffer.ml:354:4>>*/ caml_bytes_set16(b[1][1], b[2], x);
     }
@@ -12634,12 +13042,12 @@
     /*<<buffer.ml:357:28>>*/ }
    function add_int32_ne(b, x){
     var
-     position = b[2],
+     position =  /*<<buffer.ml:360:2>>*/ b[2],
      match =  /*<<buffer.ml:361:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
      new_position =  /*<<buffer.ml:362:2>>*/ position + 4 | 0;
-    if(length < new_position){
+     /*<<buffer.ml:363:2>>*/ if(length < new_position){
       /*<<buffer.ml:364:4>>*/ resize(b, 4);
       /*<<buffer.ml:365:4>>*/ caml_bytes_set32(b[1][1], b[2], x);
     }
@@ -12650,12 +13058,12 @@
     /*<<buffer.ml:368:28>>*/ }
    function add_int64_ne(b, x){
     var
-     position = b[2],
+     position =  /*<<buffer.ml:371:2>>*/ b[2],
      match =  /*<<buffer.ml:372:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
      new_position =  /*<<buffer.ml:373:2>>*/ position + 8 | 0;
-    if(length < new_position){
+     /*<<buffer.ml:374:2>>*/ if(length < new_position){
       /*<<buffer.ml:375:4>>*/ resize(b, 8);
       /*<<buffer.ml:376:4>>*/ caml_bytes_set64(b[1][1], b[2], x);
     }
@@ -12665,31 +13073,51 @@
     return 0;
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
-    var _d_ = Stdlib_Sys[11] ? caml_bswap16(x) : x;
-     /*<<buffer.ml:370:17>>*/ return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
+    var
+     _d_ =
+        /*<<buffer.ml:382:2>>*/ Stdlib_Sys[11]
+        ?  /*<<buffer.ml:382:41>>*/ caml_bswap16(x)
+        : x;
+    return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
    }
    function add_int16_be(b, x){
-    var x$0 = Stdlib_Sys[11] ? x : caml_bswap16(x);
-     /*<<buffer.ml:385:41>>*/ return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
+    var
+     x$0 =
+        /*<<buffer.ml:385:2>>*/ Stdlib_Sys[11]
+        ? x
+        :  /*<<buffer.ml:385:48>>*/ caml_bswap16(x);
+    return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
    }
    function add_int32_le(b, x){
     var
-     _c_ = Stdlib_Sys[11] ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap(x) : x;
+     _c_ =
+        /*<<buffer.ml:388:2>>*/ Stdlib_Sys[11]
+        ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap(x)
+        : x;
     return add_int32_ne(b, _c_) /*<<buffer.ml:388:57>>*/ ;
    }
    function add_int32_be(b, x){
     var
-     x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap(x);
+     x$0 =
+        /*<<buffer.ml:391:2>>*/ Stdlib_Sys[11]
+        ? x
+        :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap(x);
     return add_int32_ne(b, x$0) /*<<buffer.ml:391:57>>*/ ;
    }
    function add_int64_le(b, x){
     var
-     _b_ = Stdlib_Sys[11] ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap(x) : x;
+     _b_ =
+        /*<<buffer.ml:394:2>>*/ Stdlib_Sys[11]
+        ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap(x)
+        : x;
     return add_int64_ne(b, _b_) /*<<buffer.ml:394:57>>*/ ;
    }
    function add_int64_be(b, x){
     var
-     x$0 = Stdlib_Sys[11] ? x :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap(x);
+     x$0 =
+        /*<<buffer.ml:397:2>>*/ Stdlib_Sys[11]
+        ? x
+        :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap(x);
     return add_int64_ne(b, x$0) /*<<buffer.ml:397:57>>*/ ;
    }
    var
@@ -12760,10 +13188,10 @@
     catch(e$0){
      var e = caml_wrap_exception(e$0);
       /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock(m);
-      /*<<mutex.ml:34:4>>*/ throw caml_maybe_attach_backtrace(e, 0);
+      /*<<mutex.ml:33:12>>*/ throw caml_maybe_attach_backtrace(e, 0);
     }
      /*<<mutex.ml:30:4>>*/ caml_ml_mutex_unlock(m);
-    return x;
+     /*<<mutex.ml:30:12>>*/ return x;
     /*<<mutex.ml:34:13>>*/ }
    var
     Stdlib_Mutex =
@@ -12825,87 +13253,77 @@
       /*<<semaphore.ml:29:16>>*/ caml_call1
       (Stdlib[1], cst_Semaphore_Counting_init_wr);
     var _c_ =  /*<<semaphore.ml:30:39>>*/ caml_call1(Stdlib_Condition[1], 0);
-     /*<<semaphore.ml:30:2>>*/ return [0,
+     /*<<semaphore.ml:30:24>>*/ return [0,
              /*<<semaphore.ml:30:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
             v,
-            _c_] /*<<semaphore.ml:30:2>>*/ ;
+            _c_] /*<<semaphore.ml:30:24>>*/ ;
     /*<<semaphore.ml:30:59>>*/ }
    function release(s){
      /*<<semaphore.ml:33:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
-    if(s[2] < Stdlib[19]){
-     s[2] = s[2] + 1 | 0;
+     /*<<semaphore.ml:33:18>>*/ if(s[2] < Stdlib[19]){
+      /*<<semaphore.ml:34:24>>*/ s[2] = s[2] + 1 | 0;
       /*<<semaphore.ml:36:4>>*/ caml_call1(Stdlib_Condition[3], s[3]);
-     return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:41:5>>*/ ;
+      /*<<semaphore.ml:36:30>>*/ return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:41:5>>*/ ;
     }
      /*<<semaphore.ml:39:4>>*/ caml_call1(Stdlib_Mutex[4], s[1]);
-     /*<<semaphore.ml:40:4>>*/ throw caml_maybe_attach_backtrace
+     /*<<semaphore.ml:39:22>>*/ throw caml_maybe_attach_backtrace
            ([0, Stdlib[11], cst_Semaphore_Counting_release], 1);
     /*<<semaphore.ml:41:5>>*/ }
    function acquire(s){
      /*<<semaphore.ml:44:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:45:19>>*/ for(;;){
      if(0 !== s[2]){
-      s[2] = s[2] - 1 | 0;
-      return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:47:20>>*/ ;
+       /*<<semaphore.ml:46:2>>*/ s[2] = s[2] - 1 | 0;
+       /*<<semaphore.ml:47:2>>*/ return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:47:20>>*/ ;
      }
       /*<<semaphore.ml:45:19>>*/ caml_call2(Stdlib_Condition[2], s[3], s[1]);
     }
     /*<<semaphore.ml:47:20>>*/ }
    function try_acquire(s){
      /*<<semaphore.ml:50:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
-    var ret = 0 === s[2] ? 0 : (s[2] = s[2] - 1 | 0, 1);
+    var
+     ret =
+        /*<<semaphore.ml:50:18>>*/ 0 === s[2] ? 0 : (s[2] = s[2] - 1 | 0, 1);
      /*<<semaphore.ml:52:2>>*/ caml_call1(Stdlib_Mutex[4], s[1]);
-    return ret;
+     /*<<semaphore.ml:52:20>>*/ return ret;
     /*<<semaphore.ml:53:5>>*/ }
    function get_value(s){
      /*<<semaphore.ml:55:18>>*/ return s[2];
     /*<<semaphore.ml:55:21>>*/ }
-   var
-    Counting =
-       /*<<semaphore.ml:24:18>>*/ [0,
-       make,
-       release,
-       acquire,
-       try_acquire,
-       get_value];
+   var Counting = [0, make, release, acquire, try_acquire, get_value];
    function make$0(b){
     var
      _a_ =  /*<<semaphore.ml:66:14>>*/ caml_call1(Stdlib_Condition[1], 0),
-     _b_ = b ? 1 : 0;
-     /*<<semaphore.ml:64:2>>*/ return [0,
+     _b_ =  /*<<semaphore.ml:66:32>>*/ b ? 1 : 0;
+     /*<<semaphore.ml:64:24>>*/ return [0,
              /*<<semaphore.ml:64:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
             _b_,
-            _a_] /*<<semaphore.ml:64:2>>*/ ;
+            _a_] /*<<semaphore.ml:64:24>>*/ ;
     /*<<semaphore.ml:66:34>>*/ }
    function release$0(s){
      /*<<semaphore.ml:69:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
-    s[2] = 1;
+     /*<<semaphore.ml:69:18>>*/ s[2] = 1;
      /*<<semaphore.ml:71:2>>*/ caml_call1(Stdlib_Condition[3], s[3]);
-    return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:72:20>>*/ ;
+     /*<<semaphore.ml:71:28>>*/ return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:72:20>>*/ ;
    }
    function acquire$0(s){
      /*<<semaphore.ml:75:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
      /*<<semaphore.ml:76:19>>*/ for(;;){
      if(0 !== s[2]){
-      s[2] = 0;
-      return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:78:20>>*/ ;
+       /*<<semaphore.ml:77:2>>*/ s[2] = 0;
+       /*<<semaphore.ml:78:2>>*/ return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:78:20>>*/ ;
      }
       /*<<semaphore.ml:76:19>>*/ caml_call2(Stdlib_Condition[2], s[3], s[1]);
     }
     /*<<semaphore.ml:78:20>>*/ }
    function try_acquire$0(s){
      /*<<semaphore.ml:81:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
-    var ret = 0 === s[2] ? 0 : (s[2] = 0, 1);
+    var ret =  /*<<semaphore.ml:81:18>>*/ 0 === s[2] ? 0 : (s[2] = 0, 1);
      /*<<semaphore.ml:83:2>>*/ caml_call1(Stdlib_Mutex[4], s[1]);
-    return ret;
+     /*<<semaphore.ml:83:20>>*/ return ret;
     /*<<semaphore.ml:84:5>>*/ }
    var
-    Binary =
-       /*<<semaphore.ml:59:16>>*/ [0,
-       make$0,
-       release$0,
-       acquire$0,
-       try_acquire$0],
+    Binary = [0, make$0, release$0, acquire$0, try_acquire$0],
     Stdlib_Semaphore = [0, Counting, Binary];
    runtime.caml_register_global(5, Stdlib_Semaphore, "Stdlib__Semaphore");
    return;
@@ -12958,7 +13376,7 @@
    function cpu_relax(param){
      /*<<domain.ml:47:19>>*/ return runtime.caml_ml_domain_cpu_relax(0) /*<<domain.ml:47:35>>*/ ;
    }
-   var none =  /*<<domain.ml:72:24>>*/ [0, 0];
+   var none = [0, 0];
    function create_dls(param){
     var st =  /*<<domain.ml:89:13>>*/ caml_make_vect(8, none);
      /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set(st);
@@ -12972,15 +13390,15 @@
     var
      idx =
         /*<<domain.ml:109:14>>*/ caml_call2(Stdlib_Atomic[7], key_counter, 1),
-     k =  /*<<domain.ml:110:12>>*/ [0, idx, init_orphan];
+     k =  /*<<domain.ml:110:4>>*/ [0, idx, init_orphan];
      /*<<domain.ml:111:4>>*/ if(split_from_parent){
      var
       split = split_from_parent[1],
-      ki =  /*<<domain.ml:113:35>>*/ [0, k, split];
+      ki =  /*<<domain.ml:113:20>>*/ [0, k, split];
       /*<<domain.ml:104:4>>*/ for(;;){
       var
        l =  /*<<domain.ml:104:12>>*/ caml_call1(Stdlib_Atomic[3], parent_keys);
-      if
+       /*<<domain.ml:105:59>>*/ if
        (!
         (1
         -
@@ -12996,50 +13414,58 @@
      var
       st = caml_domain_dls_get(0),
       sz =  /*<<domain.ml:121:4>>*/ st.length - 1;
-     if(idx < sz)  /*<<domain.ml:122:21>>*/ return st;
+      /*<<domain.ml:122:4>>*/ if(idx < sz)
+       /*<<domain.ml:122:21>>*/ return st;
      var new_sz = sz;
       /*<<domain.ml:125:8>>*/ for(;;){
       if(idx < new_sz) break;
-      var s = 2 * new_sz | 0;
+      var s =  /*<<domain.ml:125:31>>*/ 2 * new_sz | 0;
       new_sz = s;
      }
      var new_st =  /*<<domain.ml:128:19>>*/ caml_make_vect(new_sz, none);
       /*<<domain.ml:129:6>>*/ caml_call5
       (Stdlib_Array[9], st, 0, new_st, 0, sz);
-      /*<<domain.ml:136:9>>*/ if
-      (runtime.caml_domain_dls_compare_and_set(st, new_st))
+      /*<<domain.ml:136:44>>*/ if
+      ( /*<<domain.ml:136:9>>*/ runtime.caml_domain_dls_compare_and_set
+        (st, new_st))
        /*<<domain.ml:137:11>>*/ return new_st;
     }
     /*<<domain.ml:139:7>>*/ }
    function set(param, x){
-    var idx = param[1], st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
+    var
+     idx =  /*<<domain.ml:141:10>>*/ param[1],
+     st =  /*<<domain.ml:142:13>>*/ maybe_grow(idx);
      /*<<domain.ml:146:4>>*/ caml_check_bound(st, idx)[1 + idx] = x;
-    return 0;
-    /*<<domain.ml:146:52>>*/ }
+     /*<<domain.ml:146:52>>*/ return 0;
+   }
    function get(param){
     var
-     init = param[2],
+     init =  /*<<domain.ml:158:10>>*/ param[2],
      idx = param[1],
      st =  /*<<domain.ml:159:13>>*/ maybe_grow(idx),
      oldval =  /*<<domain.ml:160:14>>*/ caml_check_bound(st, idx)[1 + idx];
-     /*<<domain.ml:161:7>>*/ if(oldval !== none)
+     /*<<domain.ml:161:26>>*/ if(oldval !== none)
       /*<<domain.ml:75:25>>*/ return oldval;
     var
      new_obj =  /*<<domain.ml:164:18>>*/ caml_call1(init, 0),
      st$0 =  /*<<domain.ml:175:6>>*/ caml_domain_dls_get(0),
      curval =  /*<<domain.ml:152:17>>*/ caml_check_bound(st$0, idx)[1 + idx],
-     _e_ = curval === oldval ? (st$0[1 + idx] = new_obj, 1) : 0;
-     /*<<domain.ml:176:9>>*/ if(_e_)  /*<<domain.ml:177:11>>*/ return new_obj;
+     _e_ =
+        /*<<domain.ml:153:4>>*/ curval === oldval
+        ? (st$0[1 + idx] = new_obj, 1)
+        : 0;
+     /*<<domain.ml:176:49>>*/ if(_e_)
+      /*<<domain.ml:177:11>>*/ return new_obj;
     var
      updated_obj =
         /*<<domain.ml:181:26>>*/ caml_check_bound(st$0, idx)[1 + idx];
-     /*<<domain.ml:182:11>>*/ if(updated_obj !== none)
+     /*<<domain.ml:182:38>>*/ if(updated_obj !== none)
       /*<<domain.ml:75:25>>*/ return updated_obj;
      /*<<domain.ml:184:13>>*/ throw caml_maybe_attach_backtrace
            ([0, Assert_failure, _a_], 1);
     /*<<domain.ml:186:7>>*/ }
    function get_id(param){
-    var domain = param[1];
+    var domain =  /*<<domain.ml:201:11>>*/ param[1];
      /*<<domain.ml:201:27>>*/ return domain;
     /*<<domain.ml:201:33>>*/ }
    function self(param){
@@ -13049,13 +13475,13 @@
      /*<<domain.ml:205:24>>*/ return 0
             ===  /*<<domain.ml:203:14>>*/ caml_ml_domain_id(0)
             ? 1
-            : 0;
+            : 0 /*<<domain.ml:205:32>>*/ ;
     /*<<domain.ml:205:44>>*/ }
    var
     first_domain_spawned =
        /*<<domain.ml:210:27>>*/ caml_call1(Stdlib_Atomic[1], 0),
     first_spawn_function =
-       /*<<domain.ml:212:27>>*/ [0,
+       /*<<domain.ml:210:44>>*/ [0,
        function(param){ /*<<domain.ml:212:44>>*/ }],
     cst_first_domain_already_spawn = "first domain already spawned";
    function before_first_spawn(f){
@@ -13064,12 +13490,12 @@
        (Stdlib_Atomic[3], first_domain_spawned))
       /*<<domain.ml:216:4>>*/ throw caml_maybe_attach_backtrace
             ([0, Stdlib[6], cst_first_domain_already_spawn], 1);
-    var old_f = first_spawn_function[1];
+    var old_f =  /*<<domain.ml:217:7>>*/ first_spawn_function[1];
     function new_f(param){
       /*<<domain.ml:219:19>>*/ caml_call1(old_f, 0);
-     return caml_call1(f, 0) /*<<domain.ml:219:33>>*/ ;
+      /*<<domain.ml:219:27>>*/ return caml_call1(f, 0) /*<<domain.ml:219:33>>*/ ;
     }
-    first_spawn_function[1] = new_f;
+     /*<<domain.ml:220:4>>*/ first_spawn_function[1] = new_f;
     return 0;
     /*<<domain.ml:221:5>>*/ }
    var
@@ -13084,7 +13510,7 @@
     var old_exit =  /*<<domain.ml:234:32>>*/ get(at_exit_key);
     function new_exit(param){
       /*<<domain.ml:236:4>>*/ caml_call1(f, 0);
-     return caml_call1(old_exit, 0) /*<<domain.ml:236:21>>*/ ;
+      /*<<domain.ml:236:8>>*/ return caml_call1(old_exit, 0) /*<<domain.ml:236:21>>*/ ;
     }
      /*<<domain.ml:238:2>>*/ return set(at_exit_key, new_exit) /*<<domain.ml:238:30>>*/ ;
    }
@@ -13092,7 +13518,7 @@
     var f =  /*<<domain.ml:241:25>>*/ get(at_exit_key);
      /*<<domain.ml:242:2>>*/ return caml_call1(f, 0) /*<<domain.ml:242:6>>*/ ;
    }
-   Stdlib[104][1] = do_at_exit;
+    /*<<domain.ml:231:56>>*/ Stdlib[104][1] = do_at_exit;
    function spawn(f){
      /*<<domain.ml:249:2>>*/ if
      (1
@@ -13102,7 +13528,7 @@
       /*<<domain.ml:225:4>>*/ caml_call2
       (Stdlib_Atomic[4], first_domain_spawned, 1);
       /*<<domain.ml:226:4>>*/ caml_call1(first_spawn_function[1], 0);
-     first_spawn_function[1] =
+      /*<<domain.ml:226:27>>*/ first_spawn_function[1] =
       function(param){
         /*<<domain.ml:228:39>>*/ return 0;
        /*<<domain.ml:228:41>>*/ };
@@ -13110,19 +13536,19 @@
     var
      _b_ =  /*<<domain.ml:193:6>>*/ caml_call1(Stdlib_Atomic[3], parent_keys),
      pk =
-       caml_call2
+        /*<<domain.ml:193:30>>*/ caml_call2
         (Stdlib_List[20],
          function(param){
-          var split = param[2], k = param[1];
-           /*<<domain.ml:192:30>>*/ return [0,
+          var split =  /*<<domain.ml:192:6>>*/ param[2], k = param[1];
+           /*<<domain.ml:192:52>>*/ return [0,
                   k,
                    /*<<domain.ml:192:37>>*/ caml_call1
-                   (split,  /*<<domain.ml:192:44>>*/ get(k))] /*<<domain.ml:192:30>>*/ ;
+                   (split,  /*<<domain.ml:192:44>>*/ get(k))] /*<<domain.ml:192:52>>*/ ;
           /*<<domain.ml:192:54>>*/ },
          _b_),
      _c_ =  /*<<domain.ml:256:17>>*/ caml_call1(Stdlib_Condition[1], 0),
      term_sync =
-        /*<<domain.ml:254:8>>*/ [0,
+        /*<<domain.ml:255:31>>*/ [0,
         0,
          /*<<domain.ml:255:16>>*/ caml_call1(Stdlib_Mutex[1], 0),
         _c_];
@@ -13132,7 +13558,7 @@
        /*<<domain.ml:196:4>>*/ caml_call2
        (Stdlib_List[18],
         function(param){
-         var v = param[2], k = param[1];
+         var v =  /*<<domain.ml:196:14>>*/ param[2], k = param[1];
           /*<<domain.ml:196:34>>*/ return set(k, v) /*<<domain.ml:196:42>>*/ ;
         },
         pk);
@@ -13140,12 +13566,11 @@
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
-       /*<<domain.ml:278:8>>*/ try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}
-      catch(_d_){}
+      try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}catch(_d_){}
        /*<<domain.ml:279:8>>*/ throw caml_maybe_attach_backtrace(exn, 0);
      }
       /*<<domain.ml:272:8>>*/ do_at_exit(0);
-     return res;
+      /*<<domain.ml:272:21>>*/ return res;
      /*<<domain.ml:279:17>>*/ }
     var
      domain =
@@ -13153,7 +13578,7 @@
      /*<<domain.ml:282:2>>*/ return [0, domain, term_sync];
     /*<<domain.ml:282:24>>*/ }
    function join(param){
-    var term_sync = param[2];
+    var term_sync =  /*<<domain.ml:284:9>>*/ param[2];
     function loop(param){
       /*<<domain.ml:287:4>>*/ for(;;){
       var match = term_sync[1];
@@ -13166,12 +13591,16 @@
      match =
         /*<<domain.ml:294:8>>*/ caml_call2
         (Stdlib_Mutex[5], term_sync[2], loop);
-    if(0 === match[0]){var x = match[1];  /*<<domain.ml:295:12>>*/ return x;}
+     /*<<domain.ml:294:40>>*/ if(0 === match[0]){
+     var x = match[1];
+      /*<<domain.ml:295:12>>*/ return x;
+    }
     var ex = match[1];
-     /*<<domain.ml:296:16>>*/ throw caml_maybe_attach_backtrace(ex, 1);
+    throw caml_maybe_attach_backtrace(ex, 1);
     /*<<domain.ml:296:24>>*/ }
    var
-    recommended_domain_count = runtime.caml_recommended_domain_count,
+    recommended_domain_count =
+       /*<<domain.ml:231:56>>*/ runtime.caml_recommended_domain_count,
     Stdlib_Domain =
       [0,
        spawn,
@@ -13346,13 +13775,13 @@
    }
    function add_in_char_set(char_set, c){
     var
-     str_ind = c >>> 3 | 0,
+     str_ind =  /*<<camlinternalFormat.ml:29:2>>*/ c >>> 3 | 0,
      mask = 1 << (c & 7),
      _cU_ =
-        /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
+        /*<<camlinternalFormat.ml:31:58>>*/  /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
         (char_set, str_ind)
        | mask;
-     /*<<camlinternalFormat.ml:30:2>>*/ return caml_bytes_set
+     /*<<camlinternalFormat.ml:31:69>>*/ return  /*<<camlinternalFormat.ml:30:2>>*/ caml_bytes_set
             (char_set,
              str_ind,
               /*<<camlinternalFormat.ml:31:4>>*/ caml_call1(Stdlib[29], _cU_)) /*<<camlinternalFormat.ml:31:69>>*/ ;
@@ -13368,13 +13797,14 @@
     for(;;){
      var
       _cS_ =
-         /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get(char_set, i)
+         /*<<camlinternalFormat.ml:41:55>>*/  /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get
+         (char_set, i)
         ^ 255;
       /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
       (char_set$0,
        i,
         /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _cS_));
-     var _cT_ =  /*<<camlinternalFormat.ml:40:4>>*/ i + 1 | 0;
+     var _cT_ =  /*<<camlinternalFormat.ml:41:67>>*/ i + 1 | 0;
      if(31 === i)
        /*<<camlinternalFormat.ml:43:2>>*/ return caml_call1
               (Stdlib_Bytes[44], char_set$0) /*<<camlinternalFormat.ml:43:34>>*/ ;
@@ -13382,14 +13812,16 @@
     }
    }
    function is_in_char_set(char_set, c){
-    var str_ind = c >>> 3 | 0, mask = 1 << (c & 7);
-    return 0
+    var
+     str_ind =  /*<<camlinternalFormat.ml:48:2>>*/ c >>> 3 | 0,
+     mask = 1 << (c & 7);
+     /*<<camlinternalFormat.ml:49:44>>*/ return 0
             !==
              ( /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
               (char_set, str_ind)
              & mask)
             ? 1
-            : 0;
+            : 0 /*<<camlinternalFormat.ml:49:44>>*/ ;
     /*<<camlinternalFormat.ml:49:60>>*/ }
    function pad_of_pad_opt(pad_opt){
      /*<<camlinternalFormat.ml:62:29>>*/ if(! pad_opt)
@@ -13411,67 +13843,67 @@
     switch(ign[0]){
       case 0:
        var pad_opt = ign[1];
-        /*<<camlinternalFormat.ml:82:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:82:52>>*/ return [0,
                [2,
                  /*<<camlinternalFormat.ml:82:30>>*/ pad_of_pad_opt(pad_opt),
-                fmt]] /*<<camlinternalFormat.ml:82:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:82:52>>*/ ;
       case 1:
        var pad_opt$0 = ign[1];
-        /*<<camlinternalFormat.ml:84:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:84:57>>*/ return [0,
                [3,
                  /*<<camlinternalFormat.ml:84:35>>*/ pad_of_pad_opt(pad_opt$0),
-                fmt]] /*<<camlinternalFormat.ml:84:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:84:57>>*/ ;
       case 2:
        var pad_opt$1 = ign[2], iconv = ign[1];
-        /*<<camlinternalFormat.ml:86:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:86:56>>*/ return [0,
                [4,
                 iconv,
                  /*<<camlinternalFormat.ml:86:34>>*/ pad_of_pad_opt(pad_opt$1),
                 0,
-                fmt]] /*<<camlinternalFormat.ml:86:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:86:56>>*/ ;
       case 3:
        var pad_opt$2 = ign[2], iconv$0 = ign[1];
-        /*<<camlinternalFormat.ml:88:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:89:43>>*/ return [0,
                [5,
                 iconv$0,
                  /*<<camlinternalFormat.ml:89:21>>*/ pad_of_pad_opt(pad_opt$2),
                 0,
-                fmt]] /*<<camlinternalFormat.ml:88:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:89:43>>*/ ;
       case 4:
        var pad_opt$3 = ign[2], iconv$1 = ign[1];
-        /*<<camlinternalFormat.ml:91:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:92:47>>*/ return [0,
                [6,
                 iconv$1,
                  /*<<camlinternalFormat.ml:92:25>>*/ pad_of_pad_opt(pad_opt$3),
                 0,
-                fmt]] /*<<camlinternalFormat.ml:91:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:92:47>>*/ ;
       case 5:
        var pad_opt$4 = ign[2], iconv$2 = ign[1];
-        /*<<camlinternalFormat.ml:94:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:95:43>>*/ return [0,
                [7,
                 iconv$2,
                  /*<<camlinternalFormat.ml:95:21>>*/ pad_of_pad_opt(pad_opt$4),
                 0,
-                fmt]] /*<<camlinternalFormat.ml:94:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:95:43>>*/ ;
       case 6:
        var prec_opt = ign[2], pad_opt$5 = ign[1];
-       if(prec_opt)
+        /*<<camlinternalFormat.ml:67:32>>*/ if(prec_opt)
         var ndec = prec_opt[1], _cR_ = [0, ndec];
        else
         var _cR_ = 0;
-        /*<<camlinternalFormat.ml:97:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:99:36>>*/ return [0,
                [8,
                 _a_,
                  /*<<camlinternalFormat.ml:99:14>>*/ pad_of_pad_opt(pad_opt$5),
                 _cR_,
-                fmt]] /*<<camlinternalFormat.ml:97:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:99:36>>*/ ;
       case 7:
        var pad_opt$6 = ign[1];
-        /*<<camlinternalFormat.ml:101:4>>*/ return [0,
+        /*<<camlinternalFormat.ml:101:50>>*/ return [0,
                [9,
                  /*<<camlinternalFormat.ml:101:28>>*/ pad_of_pad_opt
                  (pad_opt$6),
-                fmt]] /*<<camlinternalFormat.ml:101:4>>*/ ;
+                fmt]] /*<<camlinternalFormat.ml:101:50>>*/ ;
       case 8:
        var fmtty = ign[2], pad_opt$7 = ign[1];
         /*<<camlinternalFormat.ml:103:4>>*/ return [0,
@@ -13495,13 +13927,15 @@
    function buffer_create(init_size){
      /*<<camlinternalFormat.ml:256:30>>*/ return [0,
             0,
-             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)] /*<<camlinternalFormat.ml:256:30>>*/ ;
+             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)] /*<<camlinternalFormat.ml:256:71>>*/ ;
     /*<<camlinternalFormat.ml:256:73>>*/ }
    function buffer_check_size(buf, overhead){
     var
-     len = runtime.caml_ml_bytes_length(buf[2]),
-     min_len = buf[1] + overhead | 0;
-    if(len < min_len){
+     len =
+        /*<<camlinternalFormat.ml:260:2>>*/ runtime.caml_ml_bytes_length
+        (buf[2]),
+     min_len =  /*<<camlinternalFormat.ml:261:2>>*/ buf[1] + overhead | 0;
+     /*<<camlinternalFormat.ml:262:2>>*/ if(len < min_len){
      var
       new_len =
          /*<<camlinternalFormat.ml:263:18>>*/ caml_call2
@@ -13510,20 +13944,21 @@
          /*<<camlinternalFormat.ml:264:18>>*/ caml_create_bytes(new_len);
       /*<<camlinternalFormat.ml:265:4>>*/ caml_call5
       (Stdlib_Bytes[11], buf[2], 0, new_str, 0, len);
-     buf[2] = new_str;
+      /*<<camlinternalFormat.ml:265:40>>*/ buf[2] = new_str;
     }
     /*<<camlinternalFormat.ml:267:3>>*/ }
    function buffer_add_char(buf, c){
      /*<<camlinternalFormat.ml:271:2>>*/ buffer_check_size(buf, 1);
      /*<<camlinternalFormat.ml:272:2>>*/ caml_bytes_set(buf[2], buf[1], c);
-    buf[1] = buf[1] + 1 | 0;
+     /*<<camlinternalFormat.ml:272:31>>*/ buf[1] = buf[1] + 1 | 0;
     /*<<camlinternalFormat.ml:273:24>>*/ }
    function buffer_add_string(buf, s){
-    var str_len = caml_ml_string_length(s);
+    var
+     str_len =  /*<<camlinternalFormat.ml:277:2>>*/ caml_ml_string_length(s);
      /*<<camlinternalFormat.ml:278:2>>*/ buffer_check_size(buf, str_len);
      /*<<camlinternalFormat.ml:279:2>>*/ caml_call5
      (Stdlib_String[6], s, 0, buf[2], buf[1], str_len);
-    buf[1] = buf[1] + str_len | 0;
+     /*<<camlinternalFormat.ml:279:43>>*/ buf[1] = buf[1] + str_len | 0;
     /*<<camlinternalFormat.ml:280:30>>*/ }
    function buffer_contents(buf){
      /*<<camlinternalFormat.ml:284:2>>*/ return caml_call3
@@ -13552,8 +13987,8 @@
     }
     /*<<camlinternalFormat.ml:292:41>>*/ }
    function char_of_fconv(opt, fconv){
-    var cF = opt ? opt[1] : 70;
-    switch(fconv[2]){
+    var cF =  /*<<camlinternalFormat.ml:296:18>>*/ opt ? opt[1] : 70;
+     /*<<camlinternalFormat.ml:296:36>>*/ switch(fconv[2]){
       case 0:
         /*<<camlinternalFormat.ml:297:15>>*/ return 102;
       case 1:
@@ -13592,8 +14027,10 @@
      /*<<camlinternalFormat.ml:385:33>>*/ if(! pad_opt)
       /*<<camlinternalFormat.ml:386:12>>*/ return;
     var width = pad_opt[1];
-     /*<<camlinternalFormat.ml:387:40>>*/ return buffer_add_string
-            (buf, caml_call1(Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
+     /*<<camlinternalFormat.ml:387:61>>*/ return buffer_add_string
+            (buf,
+              /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
+              (Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
    }
    function bprint_padding(buf, pad){
      /*<<camlinternalFormat.ml:393:15>>*/ if(typeof pad === "number")
@@ -13601,19 +14038,23 @@
     if(0 === pad[0]){
      var n = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty(buf, padty);
-      /*<<camlinternalFormat.ml:397:26>>*/ return buffer_add_string
-             (buf, caml_call1(Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
+      /*<<camlinternalFormat.ml:397:43>>*/ return buffer_add_string
+             (buf,
+               /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
+               (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
     }
     var padty$0 = pad[1];
      /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty(buf, padty$0);
-    return buffer_add_char(buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
+     /*<<camlinternalFormat.ml:399:26>>*/ return buffer_add_char(buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
    }
    function bprint_precision(buf, prec){
      /*<<camlinternalFormat.ml:404:18>>*/ if(typeof prec !== "number"){
      var n = prec[1];
       /*<<camlinternalFormat.ml:407:4>>*/ buffer_add_char(buf, 46);
-      /*<<camlinternalFormat.ml:408:26>>*/ return buffer_add_string
-             (buf, caml_call1(Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
+      /*<<camlinternalFormat.ml:408:43>>*/ return buffer_add_string
+             (buf,
+               /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
+               (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
     }
     if(prec)
       /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
@@ -13643,8 +14084,8 @@
      /*<<camlinternalFormat.ml:436:2>>*/ bprint_padding(buf, pad);
      /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision(buf, prec);
      /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char(buf, c);
-     /*<<camlinternalFormat.ml:439:22>>*/ return buffer_add_char
-            (buf, char_of_iconv(iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
+     /*<<camlinternalFormat.ml:439:43>>*/ return buffer_add_char
+            (buf,  /*<<camlinternalFormat.ml:439:22>>*/ char_of_iconv(iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
    }
    function bprint_fconv_flag(buf, fconv){
      /*<<camlinternalFormat.ml:445:2>>*/ switch(fconv[1]){
@@ -13653,7 +14094,7 @@
         /*<<camlinternalFormat.ml:446:20>>*/ buffer_add_char(buf, 43); break;
       default:  /*<<camlinternalFormat.ml:447:20>>*/ buffer_add_char(buf, 32);
     }
-    if(8 <= fconv[2])
+     /*<<camlinternalFormat.ml:449:2>>*/ if(8 <= fconv[2])
       /*<<camlinternalFormat.ml:450:16>>*/ return buffer_add_char(buf, 35) /*<<camlinternalFormat.ml:452:37>>*/ ;
    }
    function string_of_formatting_lit(formatting_lit){
@@ -13687,7 +14128,8 @@
         _cQ_ =
            /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
            (Stdlib_String[1], 1, c);
-       return caml_call2(Stdlib[28], cst$7, _cQ_) /*<<camlinternalFormat.ml:475:43>>*/ ;
+        /*<<camlinternalFormat.ml:475:43>>*/ return caml_call2
+               (Stdlib[28], cst$7, _cQ_);
     }
    }
    function bprint_char_literal(buf, chr){
@@ -13698,14 +14140,15 @@
    }
    function bprint_string_literal(buf, str){
     var
-     _cO_ = caml_ml_string_length(str) - 1 | 0,
-     _cN_ =  /*<<camlinternalFormat.ml:486:2>>*/ 0;
+     _cO_ =
+        /*<<camlinternalFormat.ml:486:2>>*/ caml_ml_string_length(str) - 1 | 0,
+     _cN_ = 0;
     if(_cO_ >= 0){
      var i = _cN_;
      for(;;){
        /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
        (buf,  /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get(str, i));
-      var _cP_ =  /*<<camlinternalFormat.ml:487:4>>*/ i + 1 | 0;
+      var _cP_ =  /*<<camlinternalFormat.ml:487:35>>*/ i + 1 | 0;
       if(_cO_ === i) break;
       i = _cP_;
      }
@@ -13802,9 +14245,10 @@
      /*<<camlinternalFormat.ml:525:8>>*/ if(! param)
       /*<<camlinternalFormat.ml:528:19>>*/ return 0;
     var x = param[1];
-    return 1 +  /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity(x)
-           | 0;
-    /*<<camlinternalFormat.ml:529:46>>*/ }
+     /*<<camlinternalFormat.ml:529:46>>*/ return 1
+           +  /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity(x)
+           | 0 /*<<camlinternalFormat.ml:529:46>>*/ ;
+   }
    function string_of_fmt(fmt){
     var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
     function fmtiter(fmt, ign_flag){
@@ -13863,8 +14307,8 @@
           /*<<camlinternalFormat.ml:426:2>>*/ bprint_iconv_flag(buf, iconv);
           /*<<camlinternalFormat.ml:427:2>>*/ bprint_padding(buf, pad$1);
           /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision(buf, prec);
-          /*<<camlinternalFormat.ml:429:22>>*/ buffer_add_char
-          (buf, char_of_iconv(iconv));
+          /*<<camlinternalFormat.ml:429:43>>*/ buffer_add_char
+          (buf,  /*<<camlinternalFormat.ml:429:22>>*/ char_of_iconv(iconv));
          fmt$0 = rest$3;
          ign_flag$0 = 0;
          break;
@@ -13913,8 +14357,8 @@
           /*<<camlinternalFormat.ml:458:2>>*/ bprint_fconv_flag(buf, fconv);
           /*<<camlinternalFormat.ml:459:2>>*/ bprint_padding(buf, pad$5);
           /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision(buf, prec$3);
-          /*<<camlinternalFormat.ml:461:22>>*/ buffer_add_char
-          (buf, char_of_fconv(0, fconv));
+          /*<<camlinternalFormat.ml:461:43>>*/ buffer_add_char
+          (buf,  /*<<camlinternalFormat.ml:461:22>>*/ char_of_fconv(0, fconv));
          fmt$0 = rest$7;
          ign_flag$0 = 0;
          break;
@@ -14026,27 +14470,30 @@
           /*<<camlinternalFormat.ml:610:6>>*/ bprint_pad_opt(buf, width_opt);
          var
           print_char =
-            function(buf, i){
+             /*<<camlinternalFormat.ml:314:2>>*/ function(buf, i){
              var
               c =
                  /*<<camlinternalFormat.ml:358:31>>*/ caml_call1
                  (Stdlib[29], i);
-             return 37 === c
+              /*<<camlinternalFormat.ml:358:44>>*/ return 37 === c
                      ? ( /*<<camlinternalFormat.ml:359:13>>*/ buffer_add_char
                         (buf, 37),
-                       buffer_add_char(buf, 37))
+                        /*<<camlinternalFormat.ml:359:36>>*/ buffer_add_char
+                        (buf, 37))
                      : 64
                        === c
                        ? ( /*<<camlinternalFormat.ml:360:13>>*/ buffer_add_char
                           (buf, 37),
-                         buffer_add_char(buf, 64))
+                          /*<<camlinternalFormat.ml:360:36>>*/ buffer_add_char
+                          (buf, 64))
                        :  /*<<camlinternalFormat.ml:361:13>>*/ buffer_add_char
                          (buf, c) /*<<camlinternalFormat.ml:361:35>>*/ ;
             };
           /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
          var
           set =
-             /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set(char_set, 0)
+             /*<<camlinternalFormat.ml:365:37>>*/  /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set
+              (char_set, 0)
              ? ( /*<<camlinternalFormat.ml:366:11>>*/ buffer_add_char
                 (buf, 94),
                 /*<<camlinternalFormat.ml:366:36>>*/ rev_char_set(char_set))
@@ -14054,7 +14501,7 @@
          let set$0 = set;
          var
           is_alone =
-            function(c){
+             /*<<camlinternalFormat.ml:315:4>>*/ function(c){
              var
               after =
                  /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
@@ -14064,13 +14511,13 @@
                  (Stdlib_Char[1], c - 1 | 0),
               _cJ_ =
                  /*<<camlinternalFormat.ml:317:6>>*/ is_in_char_set(set$0, c);
-             if(_cJ_)
+              /*<<camlinternalFormat.ml:317:26>>*/ if(_cJ_)
               var
                _cK_ =
                   /*<<camlinternalFormat.ml:318:14>>*/ is_in_char_set
                   (set$0, before),
                _cL_ =
-                 _cK_
+                  /*<<camlinternalFormat.ml:318:39>>*/ _cK_
                   ?  /*<<camlinternalFormat.ml:318:43>>*/ is_in_char_set
                     (set$0, after)
                   : _cK_,
@@ -14079,7 +14526,8 @@
               var _cM_ = _cJ_;
              return _cM_;
              /*<<camlinternalFormat.ml:318:68>>*/ };
-          /*<<camlinternalFormat.ml:319:7>>*/ if(is_alone(93))
+          /*<<camlinternalFormat.ml:319:19>>*/ if
+          ( /*<<camlinternalFormat.ml:319:7>>*/ is_alone(93))
            /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char(buf, 93);
          a:
          b:
@@ -14091,18 +14539,18 @@
             var i = 1;
              /*<<camlinternalFormat.ml:323:4>>*/ for(;;){
              if(i >= 256) break;
-              /*<<camlinternalFormat.ml:324:9>>*/ if
-              (is_in_char_set
+              /*<<camlinternalFormat.ml:324:43>>*/ if
+              ( /*<<camlinternalFormat.ml:324:9>>*/ is_in_char_set
                 (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
                   (Stdlib[29], i))){
               var
                switcher =
-                  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
+                  /*<<camlinternalFormat.ml:327:23>>*/  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
                   (Stdlib[29], i)
                  - 45
                  | 0;
-              if(48 < switcher >>> 0){
+               /*<<camlinternalFormat.ml:327:23>>*/ if(48 < switcher >>> 0){
                if(210 <= switcher) break d;
               }
               else if(46 < switcher - 1 >>> 0){
@@ -14111,18 +14559,18 @@
                continue;
               }
               var i$1 =  /*<<camlinternalFormat.ml:330:11>>*/ i + 1 | 0;
-               /*<<camlinternalFormat.ml:332:7>>*/ if
-               (is_in_char_set
+               /*<<camlinternalFormat.ml:332:41>>*/ if
+               ( /*<<camlinternalFormat.ml:332:7>>*/ is_in_char_set
                  (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
                    (Stdlib[29], i$1))){
                var
                 switcher$0 =
-                   /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
+                   /*<<camlinternalFormat.ml:333:25>>*/  /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
                    (Stdlib[29], i$1)
                   - 45
                   | 0;
-               if(48 < switcher$0 >>> 0){
+                /*<<camlinternalFormat.ml:333:25>>*/ if(48 < switcher$0 >>> 0){
                 if(210 <= switcher$0) break c;
                }
                else if
@@ -14135,12 +14583,12 @@
                      (Stdlib[29], i$1 + 1 | 0))){
                  /*<<camlinternalFormat.ml:338:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
-                var i$5 = i$1 + 1 | 0;
+                var i$5 =  /*<<camlinternalFormat.ml:338:30>>*/ i$1 + 1 | 0;
                 i = i$5;
                 continue;
                }
-                /*<<camlinternalFormat.ml:340:19>>*/ if
-                (is_in_char_set
+                /*<<camlinternalFormat.ml:340:61>>*/ if
+                ( /*<<camlinternalFormat.ml:340:19>>*/ is_in_char_set
                   (set,
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
                     (Stdlib[29], i$1 + 1 | 0))){
@@ -14150,9 +14598,9 @@
                  j$0 = j;
                  /*<<camlinternalFormat.ml:351:4>>*/ for(;;){
                  if(256 === j$0) break;
-                  /*<<camlinternalFormat.ml:351:22>>*/ if
+                  /*<<camlinternalFormat.ml:351:58>>*/ if
                   (!
-                   is_in_char_set
+                    /*<<camlinternalFormat.ml:351:22>>*/ is_in_char_set
                     (set,
                       /*<<camlinternalFormat.ml:351:42>>*/ caml_call1
                       (Stdlib[29], j$0)))
@@ -14164,7 +14612,7 @@
                  /*<<camlinternalFormat.ml:353:6>>*/ print_char(buf, 45);
                  /*<<camlinternalFormat.ml:354:6>>*/ print_char
                  (buf, j$0 - 1 | 0);
-                if(j$0 >= 256) break b;
+                 /*<<camlinternalFormat.ml:354:28>>*/ if(j$0 >= 256) break b;
                 var i$7 =  /*<<camlinternalFormat.ml:355:22>>*/ j$0 + 1 | 0;
                 i = i$7;
                }
@@ -14172,14 +14620,14 @@
                  /*<<camlinternalFormat.ml:341:8>>*/ print_char
                  (buf, i$1 - 1 | 0);
                  /*<<camlinternalFormat.ml:342:8>>*/ print_char(buf, i$1);
-                var i$4 = i$1 + 2 | 0;
+                var i$4 =  /*<<camlinternalFormat.ml:342:24>>*/ i$1 + 2 | 0;
                 i = i$4;
                }
               }
               else{
                 /*<<camlinternalFormat.ml:347:6>>*/ print_char
                 (buf, i$1 - 1 | 0);
-               var i$6 = i$1 + 1 | 0;
+               var i$6 =  /*<<camlinternalFormat.ml:347:28>>*/ i$1 + 1 | 0;
                i = i$6;
               }
              }
@@ -14194,12 +14642,13 @@
            break a;
           }
            /*<<camlinternalFormat.ml:335:8>>*/ print_char(buf, 254);
-          print_char(buf, 255);
+           /*<<camlinternalFormat.ml:335:26>>*/ print_char(buf, 255);
           break a;
          }
-          /*<<camlinternalFormat.ml:321:7>>*/ if(is_alone(45))
+          /*<<camlinternalFormat.ml:321:19>>*/ if
+          ( /*<<camlinternalFormat.ml:321:7>>*/ is_alone(45))
            /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char(buf, 45);
-          /*<<camlinternalFormat.ml:364:2>>*/ buffer_add_char(buf, 93);
+          /*<<camlinternalFormat.ml:368:3>>*/ buffer_add_char(buf, 93);
          fmt$0 = rest$19;
          ign_flag$0 = 0;
          break;
@@ -14208,7 +14657,7 @@
           /*<<camlinternalFormat.ml:613:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:613:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
-         switch(counter){
+          /*<<camlinternalFormat.ml:305:30>>*/ switch(counter){
            case 0:
             var _cF_ = 108; break;
            case 1:
@@ -14234,7 +14683,7 @@
           rest$22 = fmt$0[2],
           ign = fmt$0[1],
           fmt$1 =
-             /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
+             /*<<camlinternalFormat.ml:621:73>>*/  /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
               (ign, rest$22)
              [1];
          fmt$0 = fmt$1;
@@ -14247,14 +14696,14 @@
           _cH_ =
              /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity(arity),
           _cG_ = 1;
-         if(_cH_ >= 1){
+          /*<<camlinternalFormat.ml:578:45>>*/ if(_cH_ >= 1){
           var i$8 = _cG_;
           for(;;){
             /*<<camlinternalFormat.ml:579:8>>*/ buffer_add_char(buf, 37);
             /*<<camlinternalFormat.ml:579:33>>*/ bprint_ignored_flag
             (buf, ign_flag$0);
             /*<<camlinternalFormat.ml:580:8>>*/ buffer_add_char(buf, 63);
-           var _cI_ = i$8 + 1 | 0;
+           var _cI_ =  /*<<camlinternalFormat.ml:580:31>>*/ i$8 + 1 | 0;
            if(_cH_ === i$8) break;
            i$8 = _cI_;
           }
@@ -14265,7 +14714,7 @@
      }
      /*<<camlinternalFormat.ml:636:25>>*/ }
      /*<<camlinternalFormat.ml:638:5>>*/ fmtiter(fmt, 0);
-     /*<<camlinternalFormat.ml:645:2>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
+     /*<<camlinternalFormat.ml:645:20>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:646:21>>*/ ;
    }
    function symm(param){
      /*<<camlinternalFormat.ml:657:8>>*/ if(typeof param === "number")
@@ -14273,67 +14722,67 @@
     switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormat.ml:663:20>>*/ return [0,
-                /*<<camlinternalFormat.ml:663:28>>*/ symm(rest)] /*<<camlinternalFormat.ml:663:20>>*/ ;
+        /*<<camlinternalFormat.ml:663:39>>*/ return [0,
+                /*<<camlinternalFormat.ml:663:28>>*/ symm(rest)] /*<<camlinternalFormat.ml:663:39>>*/ ;
       case 1:
        var rest$0 = param[1];
-        /*<<camlinternalFormat.ml:670:22>>*/ return [1,
-                /*<<camlinternalFormat.ml:670:32>>*/ symm(rest$0)] /*<<camlinternalFormat.ml:670:22>>*/ ;
+        /*<<camlinternalFormat.ml:670:43>>*/ return [1,
+                /*<<camlinternalFormat.ml:670:32>>*/ symm(rest$0)] /*<<camlinternalFormat.ml:670:43>>*/ ;
       case 2:
        var rest$1 = param[1];
-        /*<<camlinternalFormat.ml:664:19>>*/ return [2,
-                /*<<camlinternalFormat.ml:664:26>>*/ symm(rest$1)] /*<<camlinternalFormat.ml:664:19>>*/ ;
+        /*<<camlinternalFormat.ml:664:37>>*/ return [2,
+                /*<<camlinternalFormat.ml:664:26>>*/ symm(rest$1)] /*<<camlinternalFormat.ml:664:37>>*/ ;
       case 3:
        var rest$2 = param[1];
-        /*<<camlinternalFormat.ml:665:21>>*/ return [3,
-                /*<<camlinternalFormat.ml:665:30>>*/ symm(rest$2)] /*<<camlinternalFormat.ml:665:21>>*/ ;
+        /*<<camlinternalFormat.ml:665:41>>*/ return [3,
+                /*<<camlinternalFormat.ml:665:30>>*/ symm(rest$2)] /*<<camlinternalFormat.ml:665:41>>*/ ;
       case 4:
        var rest$3 = param[1];
-        /*<<camlinternalFormat.ml:667:25>>*/ return [4,
-                /*<<camlinternalFormat.ml:667:38>>*/ symm(rest$3)] /*<<camlinternalFormat.ml:667:25>>*/ ;
+        /*<<camlinternalFormat.ml:667:49>>*/ return [4,
+                /*<<camlinternalFormat.ml:667:38>>*/ symm(rest$3)] /*<<camlinternalFormat.ml:667:49>>*/ ;
       case 5:
        var rest$4 = param[1];
-        /*<<camlinternalFormat.ml:666:21>>*/ return [5,
-                /*<<camlinternalFormat.ml:666:30>>*/ symm(rest$4)] /*<<camlinternalFormat.ml:666:21>>*/ ;
+        /*<<camlinternalFormat.ml:666:41>>*/ return [5,
+                /*<<camlinternalFormat.ml:666:30>>*/ symm(rest$4)] /*<<camlinternalFormat.ml:666:41>>*/ ;
       case 6:
        var rest$5 = param[1];
-        /*<<camlinternalFormat.ml:668:21>>*/ return [6,
-                /*<<camlinternalFormat.ml:668:30>>*/ symm(rest$5)] /*<<camlinternalFormat.ml:668:21>>*/ ;
+        /*<<camlinternalFormat.ml:668:41>>*/ return [6,
+                /*<<camlinternalFormat.ml:668:30>>*/ symm(rest$5)] /*<<camlinternalFormat.ml:668:41>>*/ ;
       case 7:
        var rest$6 = param[1];
-        /*<<camlinternalFormat.ml:669:20>>*/ return [7,
-                /*<<camlinternalFormat.ml:669:28>>*/ symm(rest$6)] /*<<camlinternalFormat.ml:669:20>>*/ ;
+        /*<<camlinternalFormat.ml:669:39>>*/ return [7,
+                /*<<camlinternalFormat.ml:669:28>>*/ symm(rest$6)] /*<<camlinternalFormat.ml:669:39>>*/ ;
       case 8:
        var rest$7 = param[2], ty = param[1];
-        /*<<camlinternalFormat.ml:677:4>>*/ return [8,
+        /*<<camlinternalFormat.ml:677:32>>*/ return [8,
                ty,
-                /*<<camlinternalFormat.ml:677:23>>*/ symm(rest$7)] /*<<camlinternalFormat.ml:677:4>>*/ ;
+                /*<<camlinternalFormat.ml:677:23>>*/ symm(rest$7)] /*<<camlinternalFormat.ml:677:32>>*/ ;
       case 9:
        var rest$8 = param[3], ty2 = param[2], ty1 = param[1];
-        /*<<camlinternalFormat.ml:679:4>>*/ return [9,
+        /*<<camlinternalFormat.ml:679:40>>*/ return [9,
                ty2,
                ty1,
-                /*<<camlinternalFormat.ml:679:31>>*/ symm(rest$8)] /*<<camlinternalFormat.ml:679:4>>*/ ;
+                /*<<camlinternalFormat.ml:679:31>>*/ symm(rest$8)] /*<<camlinternalFormat.ml:679:40>>*/ ;
       case 10:
        var rest$9 = param[1];
-        /*<<camlinternalFormat.ml:672:21>>*/ return [10,
-                /*<<camlinternalFormat.ml:672:30>>*/ symm(rest$9)] /*<<camlinternalFormat.ml:672:21>>*/ ;
+        /*<<camlinternalFormat.ml:672:41>>*/ return [10,
+                /*<<camlinternalFormat.ml:672:30>>*/ symm(rest$9)] /*<<camlinternalFormat.ml:672:41>>*/ ;
       case 11:
        var rest$10 = param[1];
-        /*<<camlinternalFormat.ml:671:21>>*/ return [11,
-                /*<<camlinternalFormat.ml:671:30>>*/ symm(rest$10)] /*<<camlinternalFormat.ml:671:21>>*/ ;
+        /*<<camlinternalFormat.ml:671:41>>*/ return [11,
+                /*<<camlinternalFormat.ml:671:30>>*/ symm(rest$10)] /*<<camlinternalFormat.ml:671:41>>*/ ;
       case 12:
        var rest$11 = param[1];
-        /*<<camlinternalFormat.ml:673:19>>*/ return [12,
-                /*<<camlinternalFormat.ml:673:26>>*/ symm(rest$11)] /*<<camlinternalFormat.ml:673:19>>*/ ;
+        /*<<camlinternalFormat.ml:673:37>>*/ return [12,
+                /*<<camlinternalFormat.ml:673:26>>*/ symm(rest$11)] /*<<camlinternalFormat.ml:673:37>>*/ ;
       case 13:
        var rest$12 = param[1];
-        /*<<camlinternalFormat.ml:674:22>>*/ return [13,
-                /*<<camlinternalFormat.ml:674:32>>*/ symm(rest$12)] /*<<camlinternalFormat.ml:674:22>>*/ ;
+        /*<<camlinternalFormat.ml:674:43>>*/ return [13,
+                /*<<camlinternalFormat.ml:674:32>>*/ symm(rest$12)] /*<<camlinternalFormat.ml:674:43>>*/ ;
       default:
        var rest$13 = param[1];
-        /*<<camlinternalFormat.ml:675:30>>*/ return [14,
-                /*<<camlinternalFormat.ml:675:48>>*/ symm(rest$13)] /*<<camlinternalFormat.ml:675:30>>*/ ;
+        /*<<camlinternalFormat.ml:675:59>>*/ return [14,
+                /*<<camlinternalFormat.ml:675:48>>*/ symm(rest$13)] /*<<camlinternalFormat.ml:675:59>>*/ ;
     }
     /*<<camlinternalFormat.ml:680:32>>*/ }
    function fmtty_rel_det(param){
@@ -14348,7 +14797,7 @@
        var
         rest = param[1],
         match =  /*<<camlinternalFormat.ml:696:25>>*/ fmtty_rel_det(rest),
-        de = match[4],
+        de =  /*<<camlinternalFormat.ml:696:43>>*/ match[4],
         af = match[2];
         /*<<camlinternalFormat.ml:697:4>>*/ return [0,
                ,
@@ -14362,7 +14811,7 @@
        var
         rest$0 = param[1],
         match$0 =  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det(rest$0),
-        de$0 = match$0[4],
+        de$0 =  /*<<camlinternalFormat.ml:701:43>>*/ match$0[4],
         af$0 = match$0[2];
         /*<<camlinternalFormat.ml:702:4>>*/ return [0,
                ,
@@ -14376,7 +14825,7 @@
        var
         rest$1 = param[1],
         match$1 =  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det(rest$1),
-        de$1 = match$1[4],
+        de$1 =  /*<<camlinternalFormat.ml:706:43>>*/ match$1[4],
         af$1 = match$1[2];
         /*<<camlinternalFormat.ml:707:4>>*/ return [0,
                ,
@@ -14390,7 +14839,7 @@
        var
         rest$2 = param[1],
         match$2 =  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det(rest$2),
-        de$2 = match$2[4],
+        de$2 =  /*<<camlinternalFormat.ml:711:43>>*/ match$2[4],
         af$2 = match$2[2];
         /*<<camlinternalFormat.ml:712:4>>*/ return [0,
                ,
@@ -14404,7 +14853,7 @@
        var
         rest$3 = param[1],
         match$3 =  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det(rest$3),
-        de$3 = match$3[4],
+        de$3 =  /*<<camlinternalFormat.ml:721:43>>*/ match$3[4],
         af$3 = match$3[2];
         /*<<camlinternalFormat.ml:722:4>>*/ return [0,
                ,
@@ -14418,7 +14867,7 @@
        var
         rest$4 = param[1],
         match$4 =  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det(rest$4),
-        de$4 = match$4[4],
+        de$4 =  /*<<camlinternalFormat.ml:716:43>>*/ match$4[4],
         af$4 = match$4[2];
         /*<<camlinternalFormat.ml:717:4>>*/ return [0,
                ,
@@ -14432,7 +14881,7 @@
        var
         rest$5 = param[1],
         match$5 =  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det(rest$5),
-        de$5 = match$5[4],
+        de$5 =  /*<<camlinternalFormat.ml:726:43>>*/ match$5[4],
         af$5 = match$5[2];
         /*<<camlinternalFormat.ml:727:4>>*/ return [0,
                ,
@@ -14446,7 +14895,7 @@
        var
         rest$6 = param[1],
         match$6 =  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det(rest$6),
-        de$6 = match$6[4],
+        de$6 =  /*<<camlinternalFormat.ml:731:43>>*/ match$6[4],
         af$6 = match$6[2];
         /*<<camlinternalFormat.ml:732:4>>*/ return [0,
                ,
@@ -14460,7 +14909,7 @@
        var
         rest$7 = param[2],
         match$7 =  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det(rest$7),
-        de$7 = match$7[4],
+        de$7 =  /*<<camlinternalFormat.ml:764:43>>*/ match$7[4],
         af$7 = match$7[2];
         /*<<camlinternalFormat.ml:765:4>>*/ return [0,
                ,
@@ -14476,13 +14925,13 @@
         ty2 = param[2],
         ty1 = param[1],
         match$8 =  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det(rest$8),
-        de$8 = match$8[4],
+        de$8 =  /*<<camlinternalFormat.ml:769:43>>*/ match$8[4],
         af$8 = match$8[2],
         ty =
            /*<<camlinternalFormat.ml:770:13>>*/ trans
            ( /*<<camlinternalFormat.ml:770:19>>*/ symm(ty1), ty2),
         match$9 =  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det(ty),
-        jd = match$9[4],
+        jd =  /*<<camlinternalFormat.ml:771:41>>*/ match$9[4],
         ga = match$9[2];
         /*<<camlinternalFormat.ml:772:4>>*/ return [0,
                ,
@@ -14501,7 +14950,7 @@
        var
         rest$9 = param[1],
         match$10 =  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det(rest$9),
-        de$9 = match$10[4],
+        de$9 =  /*<<camlinternalFormat.ml:742:43>>*/ match$10[4],
         af$9 = match$10[2];
         /*<<camlinternalFormat.ml:743:4>>*/ return [0,
                ,
@@ -14516,7 +14965,7 @@
         rest$10 = param[1],
         match$11 =
            /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det(rest$10),
-        de$10 = match$11[4],
+        de$10 =  /*<<camlinternalFormat.ml:737:43>>*/ match$11[4],
         af$10 = match$11[2];
         /*<<camlinternalFormat.ml:738:4>>*/ return [0,
                ,
@@ -14531,7 +14980,7 @@
         rest$11 = param[1],
         match$12 =
            /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det(rest$11),
-        de$11 = match$12[4],
+        de$11 =  /*<<camlinternalFormat.ml:747:43>>*/ match$12[4],
         af$11 = match$12[2];
         /*<<camlinternalFormat.ml:748:4>>*/ return [0,
                ,
@@ -14546,7 +14995,7 @@
         rest$12 = param[1],
         match$13 =
            /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det(rest$12),
-        de$12 = match$13[4],
+        de$12 =  /*<<camlinternalFormat.ml:752:43>>*/ match$13[4],
         af$12 = match$13[2];
         /*<<camlinternalFormat.ml:753:4>>*/ return [0,
                ,
@@ -14564,7 +15013,7 @@
         rest$13 = param[1],
         match$14 =
            /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det(rest$13),
-        de$13 = match$14[4],
+        de$13 =  /*<<camlinternalFormat.ml:758:43>>*/ match$14[4],
         af$13 = match$14[2];
         /*<<camlinternalFormat.ml:759:4>>*/ return [0,
                ,
@@ -14594,7 +15043,7 @@
          {
           g:
           {
-           if(typeof ty1 !== "number"){
+            /*<<camlinternalFormat.ml:803:17>>*/ if(typeof ty1 !== "number"){
             switch(ty1[0]){
               case 0:
                var rest1 = ty1[1];
@@ -14602,8 +15051,8 @@
                 switch(ty2[0]){
                   case 0:
                    var rest2 = ty2[1];
-                    /*<<camlinternalFormat.ml:804:36>>*/ return [0,
-                            /*<<camlinternalFormat.ml:804:44>>*/ trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:36>>*/ ;
+                    /*<<camlinternalFormat.ml:804:63>>*/ return [0,
+                            /*<<camlinternalFormat.ml:804:44>>*/ trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:63>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14626,9 +15075,9 @@
                 switch(ty2[0]){
                   case 1:
                    var rest2$0 = ty2[1];
-                    /*<<camlinternalFormat.ml:805:40>>*/ return [1,
+                    /*<<camlinternalFormat.ml:805:69>>*/ return [1,
                             /*<<camlinternalFormat.ml:805:50>>*/ trans
-                            (rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:40>>*/ ;
+                            (rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:69>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14651,9 +15100,9 @@
                 switch(ty2[0]){
                   case 2:
                    var rest2$1 = ty2[1];
-                    /*<<camlinternalFormat.ml:807:34>>*/ return [2,
+                    /*<<camlinternalFormat.ml:807:60>>*/ return [2,
                             /*<<camlinternalFormat.ml:807:41>>*/ trans
-                            (rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:34>>*/ ;
+                            (rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:60>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14676,9 +15125,9 @@
                 switch(ty2[0]){
                   case 3:
                    var rest2$2 = ty2[1];
-                    /*<<camlinternalFormat.ml:808:38>>*/ return [3,
+                    /*<<camlinternalFormat.ml:808:66>>*/ return [3,
                             /*<<camlinternalFormat.ml:808:47>>*/ trans
-                            (rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:38>>*/ ;
+                            (rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:66>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14701,9 +15150,9 @@
                 switch(ty2[0]){
                   case 4:
                    var rest2$3 = ty2[1];
-                    /*<<camlinternalFormat.ml:810:46>>*/ return [4,
+                    /*<<camlinternalFormat.ml:810:78>>*/ return [4,
                             /*<<camlinternalFormat.ml:810:59>>*/ trans
-                            (rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:46>>*/ ;
+                            (rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:78>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14726,9 +15175,9 @@
                 switch(ty2[0]){
                   case 5:
                    var rest2$4 = ty2[1];
-                    /*<<camlinternalFormat.ml:809:38>>*/ return [5,
+                    /*<<camlinternalFormat.ml:809:66>>*/ return [5,
                             /*<<camlinternalFormat.ml:809:47>>*/ trans
-                            (rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:38>>*/ ;
+                            (rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:66>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14751,9 +15200,9 @@
                 switch(ty2[0]){
                   case 6:
                    var rest2$5 = ty2[1];
-                    /*<<camlinternalFormat.ml:811:38>>*/ return [6,
+                    /*<<camlinternalFormat.ml:811:66>>*/ return [6,
                             /*<<camlinternalFormat.ml:811:47>>*/ trans
-                            (rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:38>>*/ ;
+                            (rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:66>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14776,9 +15225,9 @@
                 switch(ty2[0]){
                   case 7:
                    var rest2$6 = ty2[1];
-                    /*<<camlinternalFormat.ml:806:36>>*/ return [7,
+                    /*<<camlinternalFormat.ml:806:63>>*/ return [7,
                             /*<<camlinternalFormat.ml:806:44>>*/ trans
-                            (rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:36>>*/ ;
+                            (rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:63>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -14806,9 +15255,9 @@
                     _cE_ =
                        /*<<camlinternalFormat.ml:835:34>>*/ trans
                        (rest1$7, rest2$7);
-                    /*<<camlinternalFormat.ml:835:4>>*/ return [8,
+                    /*<<camlinternalFormat.ml:835:32>>*/ return [8,
                             /*<<camlinternalFormat.ml:835:19>>*/ trans(ty1$0, ty2$0),
-                           _cE_] /*<<camlinternalFormat.ml:835:4>>*/ ;
+                           _cE_] /*<<camlinternalFormat.ml:835:32>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -14838,15 +15287,15 @@
                        ( /*<<camlinternalFormat.ml:841:19>>*/ symm(ty12), ty21),
                     match =
                        /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det(ty),
-                    f4 = match[4],
+                    f4 =  /*<<camlinternalFormat.ml:842:39>>*/ match[4],
                     f2 = match[2];
                     /*<<camlinternalFormat.ml:843:15>>*/ f2(0);
                     /*<<camlinternalFormat.ml:844:15>>*/ f4(0);
-                    /*<<camlinternalFormat.ml:845:4>>*/ return [9,
+                    /*<<camlinternalFormat.ml:845:50>>*/ return [9,
                            ty11,
                            ty22,
                             /*<<camlinternalFormat.ml:845:33>>*/ trans
-                            (rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:4>>*/ ;
+                            (rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:50>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -14864,9 +15313,9 @@
                var rest1$9 = ty1[1];
                if(typeof ty2 !== "number" && 10 === ty2[0]){
                 var rest2$9 = ty2[1];
-                 /*<<camlinternalFormat.ml:813:38>>*/ return [10,
+                 /*<<camlinternalFormat.ml:813:66>>*/ return [10,
                          /*<<camlinternalFormat.ml:813:47>>*/ trans
-                         (rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:38>>*/ ;
+                         (rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:66>>*/ ;
                }
                 /*<<camlinternalFormat.ml:814:21>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _m_], 1);
@@ -14878,9 +15327,9 @@
                    break a;
                   case 11:
                    var rest2$10 = ty2[1];
-                    /*<<camlinternalFormat.ml:817:38>>*/ return [11,
+                    /*<<camlinternalFormat.ml:817:66>>*/ return [11,
                             /*<<camlinternalFormat.ml:817:47>>*/ trans
-                            (rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:38>>*/ ;
+                            (rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:66>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:818:21>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _n_], 1);
@@ -14894,9 +15343,9 @@
                    break b;
                   case 12:
                    var rest2$11 = ty2[1];
-                    /*<<camlinternalFormat.ml:821:34>>*/ return [12,
+                    /*<<camlinternalFormat.ml:821:60>>*/ return [12,
                             /*<<camlinternalFormat.ml:821:41>>*/ trans
-                            (rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:34>>*/ ;
+                            (rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:60>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:822:19>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _o_], 1);
@@ -14912,9 +15361,9 @@
                    break c;
                   case 13:
                    var rest2$12 = ty2[1];
-                    /*<<camlinternalFormat.ml:825:40>>*/ return [13,
+                    /*<<camlinternalFormat.ml:825:69>>*/ return [13,
                             /*<<camlinternalFormat.ml:825:50>>*/ trans
-                            (rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:40>>*/ ;
+                            (rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:69>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:826:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _p_], 1);
@@ -14932,9 +15381,9 @@
                    break d;
                   case 14:
                    var rest2$13 = ty2[1];
-                    /*<<camlinternalFormat.ml:830:4>>*/ return [14,
+                    /*<<camlinternalFormat.ml:830:41>>*/ return [14,
                             /*<<camlinternalFormat.ml:830:22>>*/ trans
-                            (rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:4>>*/ ;
+                            (rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:41>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:831:30>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _q_], 1);
@@ -14992,21 +15441,21 @@
      switch(fmtty$0[0]){
        case 0:
         var rest = fmtty$0[1];
-         /*<<camlinternalFormat.ml:890:34>>*/ return [0,
-                 /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:34>>*/ ;
+         /*<<camlinternalFormat.ml:890:61>>*/ return [0,
+                 /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:61>>*/ ;
        case 1:
         var rest$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:891:34>>*/ return [0,
-                 /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:34>>*/ ;
+         /*<<camlinternalFormat.ml:891:61>>*/ return [0,
+                 /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:61>>*/ ;
        case 2:
         var rest$1 = fmtty$0[2], pad = fmtty$0[1];
-         /*<<camlinternalFormat.ml:865:31>>*/ return fmtty_of_padding_fmtty
+         /*<<camlinternalFormat.ml:865:61>>*/ return fmtty_of_padding_fmtty
                 (pad,
                  [1,
                    /*<<camlinternalFormat.ml:865:42>>*/ fmtty_of_fmt(rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 3:
         var rest$2 = fmtty$0[2], pad$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:867:31>>*/ return fmtty_of_padding_fmtty
+         /*<<camlinternalFormat.ml:867:61>>*/ return fmtty_of_padding_fmtty
                 (pad$0,
                  [1,
                    /*<<camlinternalFormat.ml:867:42>>*/ fmtty_of_fmt(rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
@@ -15071,7 +15520,7 @@
                 (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 9:
         var rest$8 = fmtty$0[2], pad$6 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:893:33>>*/ return fmtty_of_padding_fmtty
+         /*<<camlinternalFormat.ml:893:61>>*/ return fmtty_of_padding_fmtty
                 (pad$6,
                  [7,
                    /*<<camlinternalFormat.ml:893:42>>*/ fmtty_of_fmt(rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
@@ -15083,23 +15532,23 @@
         var fmtty$3 = fmtty$0[2]; fmtty$0 = fmtty$3; break;
        case 13:
         var rest$9 = fmtty$0[3], ty = fmtty$0[2];
-         /*<<camlinternalFormat.ml:900:4>>*/ return [8,
+         /*<<camlinternalFormat.ml:900:40>>*/ return [8,
                 ty,
-                 /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:4>>*/ ;
+                 /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:40>>*/ ;
        case 14:
         var rest$10 = fmtty$0[3], ty$0 = fmtty$0[2];
-         /*<<camlinternalFormat.ml:902:4>>*/ return [9,
+         /*<<camlinternalFormat.ml:902:46>>*/ return [9,
                 ty$0,
                 ty$0,
-                 /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:4>>*/ ;
+                 /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:46>>*/ ;
        case 15:
         var rest$11 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:894:34>>*/ return [10,
-                 /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:34>>*/ ;
+         /*<<camlinternalFormat.ml:894:62>>*/ return [10,
+                 /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:62>>*/ ;
        case 16:
         var rest$12 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:895:34>>*/ return [11,
-                 /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:34>>*/ ;
+         /*<<camlinternalFormat.ml:895:62>>*/ return [11,
+                 /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:62>>*/ ;
        case 17:
         var fmtty$4 = fmtty$0[2]; fmtty$0 = fmtty$4; break;
        case 18:
@@ -15107,7 +15556,7 @@
          rest$13 = fmtty$0[2],
          formatting_gen = fmtty$0[1],
          _cB_ =  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt(rest$13);
-        if(0 === formatting_gen[0])
+         /*<<camlinternalFormat.ml:856:22>>*/ if(0 === formatting_gen[0])
          var
           fmt = formatting_gen[1][1],
           _cC_ =  /*<<camlinternalFormat.ml:857:34>>*/ fmtty_of_fmt(fmt);
@@ -15115,35 +15564,35 @@
          var
           fmt$0 = formatting_gen[1][1],
           _cC_ =  /*<<camlinternalFormat.ml:858:34>>*/ fmtty_of_fmt(fmt$0);
-         /*<<camlinternalFormat.ml:914:54>>*/ return caml_call2
+         /*<<camlinternalFormat.ml:914:53>>*/ return caml_call2
                 (CamlinternalFormatBasics[1], _cC_, _cB_) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 19:
         var rest$14 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:897:34>>*/ return [13,
-                 /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:34>>*/ ;
+         /*<<camlinternalFormat.ml:897:63>>*/ return [13,
+                 /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:63>>*/ ;
        case 20:
         var rest$15 = fmtty$0[3];
-         /*<<camlinternalFormat.ml:908:34>>*/ return [1,
-                 /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:34>>*/ ;
+         /*<<camlinternalFormat.ml:908:63>>*/ return [1,
+                 /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:63>>*/ ;
        case 21:
         var rest$16 = fmtty$0[2];
-         /*<<camlinternalFormat.ml:909:34>>*/ return [2,
-                 /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:34>>*/ ;
+         /*<<camlinternalFormat.ml:909:60>>*/ return [2,
+                 /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:60>>*/ ;
        case 22:
         var rest$17 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:910:34>>*/ return [0,
-                 /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:34>>*/ ;
+         /*<<camlinternalFormat.ml:910:61>>*/ return [0,
+                 /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:61>>*/ ;
        case 23:
         var fmtty$5 = fmtty$0[2], ign = fmtty$0[1];
-        if(typeof ign === "number")
+         /*<<camlinternalFormat.ml:931:15>>*/ if(typeof ign === "number")
          switch(ign){
            case 0:
             fmtty$0 = fmtty$5; break;
            case 1:
             fmtty$0 = fmtty$5; break;
            case 2:
-             /*<<camlinternalFormat.ml:944:39>>*/ return [14,
-                     /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:39>>*/ ;
+             /*<<camlinternalFormat.ml:944:75>>*/ return [14,
+                     /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:75>>*/ ;
            default: fmtty$0 = fmtty$5;
          }
         else
@@ -15171,7 +15620,8 @@
              fmtty$6 = ign[2],
              _cD_ =
                 /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt(fmtty$5);
-            return caml_call2(CamlinternalFormatBasics[1], fmtty$6, _cD_) /*<<camlinternalFormat.ml:916:46>>*/ ;
+             /*<<camlinternalFormat.ml:943:76>>*/ return caml_call2
+                    (CamlinternalFormatBasics[1], fmtty$6, _cD_) /*<<camlinternalFormat.ml:916:46>>*/ ;
            case 10:
             fmtty$0 = fmtty$5; break;
            default: fmtty$0 = fmtty$5;
@@ -15179,8 +15629,9 @@
         break;
        default:
         var rest$18 = fmtty$0[3], arity = fmtty$0[1];
-         /*<<camlinternalFormat.ml:896:56>>*/ return fmtty_of_custom
-                (arity, fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
+         /*<<camlinternalFormat.ml:896:75>>*/ return fmtty_of_custom
+                (arity,
+                  /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
      }
     }
    }
@@ -15188,10 +15639,10 @@
      /*<<camlinternalFormat.ml:921:19>>*/ if(! arity)
       /*<<camlinternalFormat.ml:922:19>>*/ return fmtty;
     var arity$0 = arity[1];
-     /*<<camlinternalFormat.ml:923:25>>*/ return [12,
+     /*<<camlinternalFormat.ml:923:61>>*/ return [12,
              /*<<camlinternalFormat.ml:923:32>>*/ fmtty_of_custom
-             (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:25>>*/ ;
-    /*<<camlinternalFormat.ml:923:61>>*/ }
+             (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:61>>*/ ;
+   }
    function fmtty_of_padding_fmtty(pad, fmtty){
      /*<<camlinternalFormat.ml:952:19>>*/ return typeof pad === "number"
             ? fmtty
@@ -15204,9 +15655,7 @@
    }
    var
     Type_mismatch =
-       /*<<camlinternalFormat.ml:969:0>>*/ [248,
-       "CamlinternalFormat.Type_mismatch",
-       runtime.caml_fresh_oo_id(0)],
+      [248, "CamlinternalFormat.Type_mismatch", runtime.caml_fresh_oo_id(0)],
     cst_d = "%d",
     cst_d$0 = "%+d",
     cst_d$1 = "% d",
@@ -15460,7 +15909,7 @@
    function type_padprec(pad, prec, fmtty){
     var
      match =  /*<<camlinternalFormat.ml:989:34>>*/ type_padding(pad, fmtty);
-    if(typeof prec !== "number"){
+     /*<<camlinternalFormat.ml:989:56>>*/ if(typeof prec !== "number"){
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
       /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1];
     }
@@ -15479,7 +15928,7 @@
    function type_format(fmt, fmtty){
     var
      _cA_ =  /*<<camlinternalFormat.ml:1008:25>>*/ type_format_gen(fmt, fmtty);
-    if(typeof _cA_[2] !== "number")
+     /*<<camlinternalFormat.ml:1008:50>>*/ if(typeof _cA_[2] !== "number")
       /*<<camlinternalFormat.ml:1010:9>>*/ throw caml_maybe_attach_backtrace
             (Type_mismatch, 1);
     var fmt$0 = _cA_[1];
@@ -15497,7 +15946,7 @@
          match =
             /*<<camlinternalFormat.ml:1020:39>>*/ type_format_gen
             (fmt_rest, fmtty_rest),
-         fmtty = match[2],
+         fmtty =  /*<<camlinternalFormat.ml:1020:74>>*/ match[2],
          fmt$0 = match[1];
          /*<<camlinternalFormat.ml:1021:4>>*/ return [0, [0, fmt$0], fmtty];
        }
@@ -15510,7 +15959,7 @@
          match$0 =
             /*<<camlinternalFormat.ml:1023:39>>*/ type_format_gen
             (fmt_rest$0, fmtty_rest$0),
-         fmtty$0 = match$0[2],
+         fmtty$0 =  /*<<camlinternalFormat.ml:1023:74>>*/ match$0[2],
          fmt$1 = match$0[1];
          /*<<camlinternalFormat.ml:1024:4>>*/ return [0, [1, fmt$1], fmtty$0];
        }
@@ -15521,7 +15970,7 @@
         pad = fmt[1],
         match$1 =
            /*<<camlinternalFormat.ml:1026:10>>*/ type_padding(pad, fmtty0),
-        pad$0 = match$1[1],
+        pad$0 =  /*<<camlinternalFormat.ml:1026:32>>*/ match$1[1],
         match$2 = match$1[2];
        if(typeof match$2 !== "number" && 1 === match$2[0]){
         var
@@ -15529,7 +15978,7 @@
          match$3 =
             /*<<camlinternalFormat.ml:1028:41>>*/ type_format_gen
             (fmt_rest$1, fmtty_rest$1),
-         fmtty$1 = match$3[2],
+         fmtty$1 =  /*<<camlinternalFormat.ml:1028:76>>*/ match$3[2],
          fmt$2 = match$3[1];
          /*<<camlinternalFormat.ml:1029:6>>*/ return [0,
                 [2, pad$0, fmt$2],
@@ -15543,7 +15992,7 @@
         pad$1 = fmt[1],
         match$4 =
            /*<<camlinternalFormat.ml:1033:10>>*/ type_padding(pad$1, fmtty0),
-        pad$2 = match$4[1],
+        pad$2 =  /*<<camlinternalFormat.ml:1033:32>>*/ match$4[1],
         match$5 = match$4[2];
        if(typeof match$5 !== "number" && 1 === match$5[0]){
         var
@@ -15551,7 +16000,7 @@
          match$6 =
             /*<<camlinternalFormat.ml:1035:41>>*/ type_format_gen
             (fmt_rest$2, fmtty_rest$2),
-         fmtty$2 = match$6[2],
+         fmtty$2 =  /*<<camlinternalFormat.ml:1035:76>>*/ match$6[2],
          fmt$3 = match$6[1];
          /*<<camlinternalFormat.ml:1036:6>>*/ return [0,
                 [3, pad$2, fmt$3],
@@ -15568,7 +16017,7 @@
         match$7 =
            /*<<camlinternalFormat.ml:1040:10>>*/ type_padprec
            (pad$3, prec, fmtty0),
-        pad$4 = match$7[1],
+        pad$4 =  /*<<camlinternalFormat.ml:1040:37>>*/ match$7[1],
         match$8 = match$7[3];
        if(typeof match$8 !== "number" && 2 === match$8[0]){
         var
@@ -15577,7 +16026,7 @@
          match$9 =
             /*<<camlinternalFormat.ml:1042:41>>*/ type_format_gen
             (fmt_rest$3, fmtty_rest$3),
-         fmtty$3 = match$9[2],
+         fmtty$3 =  /*<<camlinternalFormat.ml:1042:76>>*/ match$9[2],
          fmt$4 = match$9[1];
          /*<<camlinternalFormat.ml:1043:6>>*/ return [0,
                 [4, iconv, pad$4, prec$0, fmt$4],
@@ -15594,7 +16043,7 @@
         match$10 =
            /*<<camlinternalFormat.ml:1047:10>>*/ type_padprec
            (pad$5, prec$1, fmtty0),
-        pad$6 = match$10[1],
+        pad$6 =  /*<<camlinternalFormat.ml:1047:37>>*/ match$10[1],
         match$11 = match$10[3];
        if(typeof match$11 !== "number" && 3 === match$11[0]){
         var
@@ -15603,7 +16052,7 @@
          match$12 =
             /*<<camlinternalFormat.ml:1049:41>>*/ type_format_gen
             (fmt_rest$4, fmtty_rest$4),
-         fmtty$4 = match$12[2],
+         fmtty$4 =  /*<<camlinternalFormat.ml:1049:76>>*/ match$12[2],
          fmt$5 = match$12[1];
          /*<<camlinternalFormat.ml:1050:6>>*/ return [0,
                 [5, iconv$0, pad$6, prec$2, fmt$5],
@@ -15620,7 +16069,7 @@
         match$13 =
            /*<<camlinternalFormat.ml:1054:10>>*/ type_padprec
            (pad$7, prec$3, fmtty0),
-        pad$8 = match$13[1],
+        pad$8 =  /*<<camlinternalFormat.ml:1054:37>>*/ match$13[1],
         match$14 = match$13[3];
        if(typeof match$14 !== "number" && 4 === match$14[0]){
         var
@@ -15629,7 +16078,7 @@
          match$15 =
             /*<<camlinternalFormat.ml:1056:41>>*/ type_format_gen
             (fmt_rest$5, fmtty_rest$5),
-         fmtty$5 = match$15[2],
+         fmtty$5 =  /*<<camlinternalFormat.ml:1056:76>>*/ match$15[2],
          fmt$6 = match$15[1];
          /*<<camlinternalFormat.ml:1057:6>>*/ return [0,
                 [6, iconv$1, pad$8, prec$4, fmt$6],
@@ -15646,7 +16095,7 @@
         match$16 =
            /*<<camlinternalFormat.ml:1061:10>>*/ type_padprec
            (pad$9, prec$5, fmtty0),
-        pad$10 = match$16[1],
+        pad$10 =  /*<<camlinternalFormat.ml:1061:37>>*/ match$16[1],
         match$17 = match$16[3];
        if(typeof match$17 !== "number" && 5 === match$17[0]){
         var
@@ -15655,7 +16104,7 @@
          match$18 =
             /*<<camlinternalFormat.ml:1063:41>>*/ type_format_gen
             (fmt_rest$6, fmtty_rest$6),
-         fmtty$6 = match$18[2],
+         fmtty$6 =  /*<<camlinternalFormat.ml:1063:76>>*/ match$18[2],
          fmt$7 = match$18[1];
          /*<<camlinternalFormat.ml:1064:6>>*/ return [0,
                 [7, iconv$2, pad$10, prec$6, fmt$7],
@@ -15672,7 +16121,7 @@
         match$19 =
            /*<<camlinternalFormat.ml:1068:10>>*/ type_padprec
            (pad$11, prec$7, fmtty0),
-        pad$12 = match$19[1],
+        pad$12 =  /*<<camlinternalFormat.ml:1068:37>>*/ match$19[1],
         match$20 = match$19[3];
        if(typeof match$20 !== "number" && 6 === match$20[0]){
         var
@@ -15681,7 +16130,7 @@
          match$21 =
             /*<<camlinternalFormat.ml:1070:41>>*/ type_format_gen
             (fmt_rest$7, fmtty_rest$7),
-         fmtty$7 = match$21[2],
+         fmtty$7 =  /*<<camlinternalFormat.ml:1070:76>>*/ match$21[2],
          fmt$8 = match$21[1];
          /*<<camlinternalFormat.ml:1071:6>>*/ return [0,
                 [8, fconv, pad$12, prec$8, fmt$8],
@@ -15695,7 +16144,7 @@
         pad$13 = fmt[1],
         match$22 =
            /*<<camlinternalFormat.ml:1075:10>>*/ type_padding(pad$13, fmtty0),
-        pad$14 = match$22[1],
+        pad$14 =  /*<<camlinternalFormat.ml:1075:32>>*/ match$22[1],
         match$23 = match$22[2];
        if(typeof match$23 !== "number" && 7 === match$23[0]){
         var
@@ -15703,7 +16152,7 @@
          match$24 =
             /*<<camlinternalFormat.ml:1077:41>>*/ type_format_gen
             (fmt_rest$8, fmtty_rest$8),
-         fmtty$8 = match$24[2],
+         fmtty$8 =  /*<<camlinternalFormat.ml:1077:76>>*/ match$24[2],
          fmt$9 = match$24[1];
          /*<<camlinternalFormat.ml:1078:6>>*/ return [0,
                 [9, pad$14, fmt$9],
@@ -15717,7 +16166,7 @@
         match$25 =
            /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
            (fmt_rest$9, fmtty0),
-        fmtty$9 = match$25[2],
+        fmtty$9 =  /*<<camlinternalFormat.ml:1082:74>>*/ match$25[2],
         fmt$10 = match$25[1];
         /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9];
       case 11:
@@ -15727,7 +16176,7 @@
         match$26 =
            /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
            (fmt_rest$10, fmtty0),
-        fmtty$10 = match$26[2],
+        fmtty$10 =  /*<<camlinternalFormat.ml:1086:74>>*/ match$26[2],
         fmt$11 = match$26[1];
         /*<<camlinternalFormat.ml:1087:4>>*/ return [0,
                [11, str, fmt$11],
@@ -15739,7 +16188,7 @@
         match$27 =
            /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
            (fmt_rest$11, fmtty0),
-        fmtty$11 = match$27[2],
+        fmtty$11 =  /*<<camlinternalFormat.ml:1089:74>>*/ match$27[2],
         fmt$12 = match$27[1];
         /*<<camlinternalFormat.ml:1090:4>>*/ return [0,
                [12, chr, fmt$12],
@@ -15752,15 +16201,16 @@
          fmt_rest$12 = fmt[3],
          sub_fmtty$0 = fmt[2],
          pad_opt = fmt[1];
-         /*<<camlinternalFormat.ml:1094:7>>*/ if
-         (caml_notequal([0, sub_fmtty$0], [0, sub_fmtty]))
+         /*<<camlinternalFormat.ml:1094:50>>*/ if
+         ( /*<<camlinternalFormat.ml:1094:7>>*/ caml_notequal
+           ([0, sub_fmtty$0], [0, sub_fmtty]))
           /*<<camlinternalFormat.ml:1094:56>>*/ throw caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
          match$28 =
             /*<<camlinternalFormat.ml:1095:39>>*/ type_format_gen
             (fmt_rest$12, fmtty_rest$9),
-         fmtty$12 = match$28[2],
+         fmtty$12 =  /*<<camlinternalFormat.ml:1095:74>>*/ match$28[2],
          fmt$13 = match$28[1];
          /*<<camlinternalFormat.ml:1096:4>>*/ return [0,
                 [13, pad_opt, sub_fmtty, fmt$13],
@@ -15776,11 +16226,11 @@
          sub_fmtty$1 = fmt[2],
          pad_opt$0 = fmt[1],
          _cy_ =
-            /*<<camlinternalFormat.ml:1099:42>>*/ [0,
+            /*<<camlinternalFormat.ml:1099:74>>*/ [0,
              /*<<camlinternalFormat.ml:1099:52>>*/ caml_call1
              (CamlinternalFormatBasics[2], sub_fmtty1)];
-         /*<<camlinternalFormat.ml:1099:7>>*/ if
-         (caml_notequal
+         /*<<camlinternalFormat.ml:1099:74>>*/ if
+         ( /*<<camlinternalFormat.ml:1099:7>>*/ caml_notequal
            ([0,
               /*<<camlinternalFormat.ml:1099:17>>*/ caml_call1
               (CamlinternalFormatBasics[2], sub_fmtty$1)],
@@ -15793,7 +16243,7 @@
             (fmt_rest$13,
               /*<<camlinternalFormat.ml:1102:31>>*/ caml_call1
               (CamlinternalFormatBasics[2], fmtty_rest$10)),
-         fmtty$13 = match$29[2],
+         fmtty$13 =  /*<<camlinternalFormat.ml:1102:53>>*/ match$29[2],
          fmt$14 = match$29[1];
          /*<<camlinternalFormat.ml:1104:4>>*/ return [0,
                 [14, pad_opt$0, sub_fmtty1, fmt$14],
@@ -15808,7 +16258,7 @@
          match$30 =
             /*<<camlinternalFormat.ml:1107:39>>*/ type_format_gen
             (fmt_rest$14, fmtty_rest$11),
-         fmtty$14 = match$30[2],
+         fmtty$14 =  /*<<camlinternalFormat.ml:1107:74>>*/ match$30[2],
          fmt$15 = match$30[1];
          /*<<camlinternalFormat.ml:1108:4>>*/ return [0,
                 [15, fmt$15],
@@ -15823,7 +16273,7 @@
          match$31 =
             /*<<camlinternalFormat.ml:1110:39>>*/ type_format_gen
             (fmt_rest$15, fmtty_rest$12),
-         fmtty$15 = match$31[2],
+         fmtty$15 =  /*<<camlinternalFormat.ml:1110:74>>*/ match$31[2],
          fmt$16 = match$31[1];
          /*<<camlinternalFormat.ml:1111:4>>*/ return [0,
                 [16, fmt$16],
@@ -15837,14 +16287,14 @@
         match$32 =
            /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
            (fmt_rest$16, fmtty0),
-        fmtty$16 = match$32[2],
+        fmtty$16 =  /*<<camlinternalFormat.ml:1115:74>>*/ match$32[2],
         fmt$17 = match$32[1];
         /*<<camlinternalFormat.ml:1116:4>>*/ return [0,
                [17, formatting_lit, fmt$17],
                fmtty$16];
       case 18:
        var fmt_rest$17 = fmt[2], formatting_gen = fmt[1];
-       if(0 === formatting_gen[0]){
+        /*<<camlinternalFormat.ml:1142:34>>*/ if(0 === formatting_gen[0]){
         var
          match$36 = formatting_gen[1],
          str$0 = match$36[2],
@@ -15852,12 +16302,12 @@
          match$37 =
             /*<<camlinternalFormat.ml:1144:39>>*/ type_format_gen
             (fmt1, fmtty0),
-         fmtty2 = match$37[2],
+         fmtty2 =  /*<<camlinternalFormat.ml:1144:66>>*/ match$37[2],
          fmt2 = match$37[1],
          match$38 =
             /*<<camlinternalFormat.ml:1145:39>>*/ type_format_gen
             (fmt_rest$17, fmtty2),
-         fmtty3 = match$38[2],
+         fmtty3 =  /*<<camlinternalFormat.ml:1145:66>>*/ match$38[2],
          fmt3 = match$38[1];
          /*<<camlinternalFormat.ml:1146:4>>*/ return [0,
                 [18, [0, [0, fmt2, str$0]], fmt3],
@@ -15870,12 +16320,12 @@
         match$40 =
            /*<<camlinternalFormat.ml:1148:39>>*/ type_format_gen
            (fmt1$0, fmtty0),
-        fmtty2$0 = match$40[2],
+        fmtty2$0 =  /*<<camlinternalFormat.ml:1148:66>>*/ match$40[2],
         fmt2$0 = match$40[1],
         match$41 =
            /*<<camlinternalFormat.ml:1149:39>>*/ type_format_gen
            (fmt_rest$17, fmtty2$0),
-        fmtty3$0 = match$41[2],
+        fmtty3$0 =  /*<<camlinternalFormat.ml:1149:66>>*/ match$41[2],
         fmt3$0 = match$41[1];
         /*<<camlinternalFormat.ml:1150:4>>*/ return [0,
                [18, [1, [0, fmt2$0, str$1]], fmt3$0],
@@ -15888,7 +16338,7 @@
          match$33 =
             /*<<camlinternalFormat.ml:1122:39>>*/ type_format_gen
             (fmt_rest$18, fmtty_rest$13),
-         fmtty$17 = match$33[2],
+         fmtty$17 =  /*<<camlinternalFormat.ml:1122:74>>*/ match$33[2],
          fmt$18 = match$33[1];
          /*<<camlinternalFormat.ml:1123:4>>*/ return [0,
                 [19, fmt$18],
@@ -15905,7 +16355,7 @@
          match$34 =
             /*<<camlinternalFormat.ml:1125:39>>*/ type_format_gen
             (fmt_rest$19, fmtty_rest$14),
-         fmtty$18 = match$34[2],
+         fmtty$18 =  /*<<camlinternalFormat.ml:1125:74>>*/ match$34[2],
          fmt$19 = match$34[1];
          /*<<camlinternalFormat.ml:1126:4>>*/ return [0,
                 [20, width_opt, char_set, fmt$19],
@@ -15921,7 +16371,7 @@
          match$35 =
             /*<<camlinternalFormat.ml:1128:39>>*/ type_format_gen
             (fmt_rest$20, fmtty_rest$15),
-         fmtty$19 = match$35[2],
+         fmtty$19 =  /*<<camlinternalFormat.ml:1128:74>>*/ match$35[2],
          fmt$20 = match$35[1];
          /*<<camlinternalFormat.ml:1129:4>>*/ return [0,
                 [21, counter, fmt$20],
@@ -15930,7 +16380,7 @@
        break;
       case 23:
        var rest = fmt[2], ign = fmt[1];
-       if(typeof ign !== "number")
+        /*<<camlinternalFormat.ml:1158:21>>*/ if(typeof ign !== "number")
         switch(ign[0]){
           case 0:
             /*<<camlinternalFormat.ml:1161:42>>*/ return type_ignored_param_one
@@ -15967,7 +16417,7 @@
             _cz_ =
                /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
                (sub_fmtty$3, rest, fmtty0),
-            match$43 = _cz_[2],
+            match$43 =  /*<<camlinternalFormat.ml:1176:58>>*/ _cz_[2],
             fmtty$21 = match$43[2],
             fmt$22 = match$43[1],
             sub_fmtty$4 = _cz_[1];
@@ -15989,13 +16439,14 @@
            /*<<camlinternalFormat.ml:1160:42>>*/ return type_ignored_param_one
                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
          case 2:
-          if(typeof fmtty0 !== "number" && 14 === fmtty0[0]){
+           /*<<camlinternalFormat.ml:1180:22>>*/ if
+           (typeof fmtty0 !== "number" && 14 === fmtty0[0]){
            var
             fmtty_rest$16 = fmtty0[1],
             match$42 =
                /*<<camlinternalFormat.ml:1183:41>>*/ type_format_gen
                (rest, fmtty_rest$16),
-            fmtty$20 = match$42[2],
+            fmtty$20 =  /*<<camlinternalFormat.ml:1183:71>>*/ match$42[2],
             fmt$21 = match$42[1];
             /*<<camlinternalFormat.ml:1184:6>>*/ return [0,
                    [23, 2, fmt$21],
@@ -16015,7 +16466,7 @@
     var
      match =
         /*<<camlinternalFormat.ml:1194:37>>*/ type_format_gen(fmt, fmtty),
-     fmtty$0 = match[2],
+     fmtty$0 =  /*<<camlinternalFormat.ml:1194:62>>*/ match[2],
      fmt$0 = match[1];
      /*<<camlinternalFormat.ml:1195:2>>*/ return [0,
             [23, ign, fmt$0],
@@ -16023,10 +16474,10 @@
     /*<<camlinternalFormat.ml:1195:51>>*/ }
    function type_ignored_format_substituti(sub_fmtty, fmt, fmtty){
      /*<<camlinternalFormat.ml:1202:27>>*/ if(typeof sub_fmtty === "number")
-      /*<<camlinternalFormat.ml:1276:4>>*/ return [0,
+      /*<<camlinternalFormat.ml:1276:58>>*/ return [0,
              0,
               /*<<camlinternalFormat.ml:1276:33>>*/ type_format_gen
-              (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:4>>*/ ;
+              (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:58>>*/ ;
     switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
@@ -16036,7 +16487,7 @@
          match =
             /*<<camlinternalFormat.ml:1205:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest, fmt, fmtty_rest),
-         fmt$0 = match[2],
+         fmt$0 =  /*<<camlinternalFormat.ml:1205:68>>*/ match[2],
          sub_fmtty_rest$0 = match[1];
          /*<<camlinternalFormat.ml:1206:4>>*/ return [0,
                 [0, sub_fmtty_rest$0],
@@ -16051,7 +16502,7 @@
          match$0 =
             /*<<camlinternalFormat.ml:1209:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$1, fmt, fmtty_rest$0),
-         fmt$1 = match$0[2],
+         fmt$1 =  /*<<camlinternalFormat.ml:1209:68>>*/ match$0[2],
          sub_fmtty_rest$2 = match$0[1];
          /*<<camlinternalFormat.ml:1210:4>>*/ return [0,
                 [1, sub_fmtty_rest$2],
@@ -16066,7 +16517,7 @@
          match$1 =
             /*<<camlinternalFormat.ml:1213:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$3, fmt, fmtty_rest$1),
-         fmt$2 = match$1[2],
+         fmt$2 =  /*<<camlinternalFormat.ml:1213:68>>*/ match$1[2],
          sub_fmtty_rest$4 = match$1[1];
          /*<<camlinternalFormat.ml:1214:4>>*/ return [0,
                 [2, sub_fmtty_rest$4],
@@ -16081,7 +16532,7 @@
          match$2 =
             /*<<camlinternalFormat.ml:1217:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$5, fmt, fmtty_rest$2),
-         fmt$3 = match$2[2],
+         fmt$3 =  /*<<camlinternalFormat.ml:1217:68>>*/ match$2[2],
          sub_fmtty_rest$6 = match$2[1];
          /*<<camlinternalFormat.ml:1218:4>>*/ return [0,
                 [3, sub_fmtty_rest$6],
@@ -16096,7 +16547,7 @@
          match$3 =
             /*<<camlinternalFormat.ml:1221:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$7, fmt, fmtty_rest$3),
-         fmt$4 = match$3[2],
+         fmt$4 =  /*<<camlinternalFormat.ml:1221:68>>*/ match$3[2],
          sub_fmtty_rest$8 = match$3[1];
          /*<<camlinternalFormat.ml:1222:4>>*/ return [0,
                 [4, sub_fmtty_rest$8],
@@ -16111,7 +16562,7 @@
          match$4 =
             /*<<camlinternalFormat.ml:1225:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$9, fmt, fmtty_rest$4),
-         fmt$5 = match$4[2],
+         fmt$5 =  /*<<camlinternalFormat.ml:1225:68>>*/ match$4[2],
          sub_fmtty_rest$10 = match$4[1];
          /*<<camlinternalFormat.ml:1226:4>>*/ return [0,
                 [5, sub_fmtty_rest$10],
@@ -16126,7 +16577,7 @@
          match$5 =
             /*<<camlinternalFormat.ml:1229:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$11, fmt, fmtty_rest$5),
-         fmt$6 = match$5[2],
+         fmt$6 =  /*<<camlinternalFormat.ml:1229:68>>*/ match$5[2],
          sub_fmtty_rest$12 = match$5[1];
          /*<<camlinternalFormat.ml:1230:4>>*/ return [0,
                 [6, sub_fmtty_rest$12],
@@ -16141,7 +16592,7 @@
          match$6 =
             /*<<camlinternalFormat.ml:1233:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$13, fmt, fmtty_rest$6),
-         fmt$7 = match$6[2],
+         fmt$7 =  /*<<camlinternalFormat.ml:1233:68>>*/ match$6[2],
          sub_fmtty_rest$14 = match$6[1];
          /*<<camlinternalFormat.ml:1234:4>>*/ return [0,
                 [7, sub_fmtty_rest$14],
@@ -16155,15 +16606,16 @@
          sub2_fmtty = fmtty[1],
          sub_fmtty_rest$15 = sub_fmtty[2],
          sub2_fmtty$0 = sub_fmtty[1];
-         /*<<camlinternalFormat.ml:1254:7>>*/ if
-         (caml_notequal([0, sub2_fmtty$0], [0, sub2_fmtty]))
+         /*<<camlinternalFormat.ml:1254:52>>*/ if
+         ( /*<<camlinternalFormat.ml:1254:7>>*/ caml_notequal
+           ([0, sub2_fmtty$0], [0, sub2_fmtty]))
           /*<<camlinternalFormat.ml:1254:58>>*/ throw caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
          match$7 =
             /*<<camlinternalFormat.ml:1256:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$15, fmt, fmtty_rest$7),
-         fmt$8 = match$7[2],
+         fmt$8 =  /*<<camlinternalFormat.ml:1256:68>>*/ match$7[2],
          sub_fmtty_rest$16 = match$7[1];
          /*<<camlinternalFormat.ml:1257:4>>*/ return [0,
                 [8, sub2_fmtty, sub_fmtty_rest$16],
@@ -16180,11 +16632,11 @@
          sub2_fmtty$2 = sub_fmtty[2],
          sub1_fmtty$0 = sub_fmtty[1],
          _cw_ =
-            /*<<camlinternalFormat.ml:1261:43>>*/ [0,
+            /*<<camlinternalFormat.ml:1261:76>>*/ [0,
              /*<<camlinternalFormat.ml:1261:53>>*/ caml_call1
              (CamlinternalFormatBasics[2], sub1_fmtty)];
-         /*<<camlinternalFormat.ml:1261:7>>*/ if
-         (caml_notequal
+         /*<<camlinternalFormat.ml:1261:76>>*/ if
+         ( /*<<camlinternalFormat.ml:1261:7>>*/ caml_notequal
            ([0,
               /*<<camlinternalFormat.ml:1261:17>>*/ caml_call1
               (CamlinternalFormatBasics[2], sub1_fmtty$0)],
@@ -16193,11 +16645,11 @@
                 (Type_mismatch, 1);
         var
          _cx_ =
-            /*<<camlinternalFormat.ml:1263:43>>*/ [0,
+            /*<<camlinternalFormat.ml:1263:76>>*/ [0,
              /*<<camlinternalFormat.ml:1263:53>>*/ caml_call1
              (CamlinternalFormatBasics[2], sub2_fmtty$1)];
-         /*<<camlinternalFormat.ml:1263:7>>*/ if
-         (caml_notequal
+         /*<<camlinternalFormat.ml:1263:76>>*/ if
+         ( /*<<camlinternalFormat.ml:1263:7>>*/ caml_notequal
            ([0,
               /*<<camlinternalFormat.ml:1263:17>>*/ caml_call1
               (CamlinternalFormatBasics[2], sub2_fmtty$2)],
@@ -16211,7 +16663,7 @@
              sub2_fmtty$1),
          match$8 =
             /*<<camlinternalFormat.ml:1266:23>>*/ fmtty_rel_det(sub_fmtty$0),
-         f4 = match$8[4],
+         f4 =  /*<<camlinternalFormat.ml:1266:47>>*/ match$8[4],
          f2 = match$8[2];
          /*<<camlinternalFormat.ml:1267:15>>*/ f2(0);
          /*<<camlinternalFormat.ml:1268:15>>*/ f4(0);
@@ -16222,15 +16674,15 @@
               (CamlinternalFormatBasics[2], sub_fmtty_rest$17),
              fmt,
              fmtty_rest$8),
-         fmt$9 = match$9[2],
+         fmt$9 =  /*<<camlinternalFormat.ml:1270:80>>*/ match$9[2],
          sub_fmtty_rest$18 = match$9[1];
-         /*<<camlinternalFormat.ml:1272:4>>*/ return [0,
+         /*<<camlinternalFormat.ml:1273:56>>*/ return [0,
                 [9,
                  sub1_fmtty,
                  sub2_fmtty$1,
                   /*<<camlinternalFormat.ml:1273:36>>*/ symm
                   (sub_fmtty_rest$18)],
-                fmt$9] /*<<camlinternalFormat.ml:1272:4>>*/ ;
+                fmt$9] /*<<camlinternalFormat.ml:1273:56>>*/ ;
        }
        break;
       case 10:
@@ -16241,7 +16693,7 @@
          match$10 =
             /*<<camlinternalFormat.ml:1237:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$19, fmt, fmtty_rest$9),
-         fmt$10 = match$10[2],
+         fmt$10 =  /*<<camlinternalFormat.ml:1237:68>>*/ match$10[2],
          sub_fmtty_rest$20 = match$10[1];
          /*<<camlinternalFormat.ml:1238:4>>*/ return [0,
                 [10, sub_fmtty_rest$20],
@@ -16256,7 +16708,7 @@
          match$11 =
             /*<<camlinternalFormat.ml:1241:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$21, fmt, fmtty_rest$10),
-         fmt$11 = match$11[2],
+         fmt$11 =  /*<<camlinternalFormat.ml:1241:68>>*/ match$11[2],
          sub_fmtty_rest$22 = match$11[1];
          /*<<camlinternalFormat.ml:1242:4>>*/ return [0,
                 [11, sub_fmtty_rest$22],
@@ -16271,7 +16723,7 @@
          match$12 =
             /*<<camlinternalFormat.ml:1245:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$23, fmt, fmtty_rest$11),
-         fmt$12 = match$12[2],
+         fmt$12 =  /*<<camlinternalFormat.ml:1245:68>>*/ match$12[2],
          sub_fmtty_rest$24 = match$12[1];
          /*<<camlinternalFormat.ml:1246:4>>*/ return [0,
                 [13, sub_fmtty_rest$24],
@@ -16286,7 +16738,7 @@
          match$13 =
             /*<<camlinternalFormat.ml:1249:6>>*/ type_ignored_format_substituti
             (sub_fmtty_rest$25, fmt, fmtty_rest$12),
-         fmt$13 = match$13[2],
+         fmt$13 =  /*<<camlinternalFormat.ml:1249:68>>*/ match$13[2],
          sub_fmtty_rest$26 = match$13[1];
          /*<<camlinternalFormat.ml:1250:4>>*/ return [0,
                 [14, sub_fmtty_rest$26],
@@ -16299,18 +16751,21 @@
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
     var _cv_ =  /*<<camlinternalFormat.ml:1312:29>>*/ symm(fmtty);
-     /*<<camlinternalFormat.ml:1312:18>>*/ return type_format
-            (fmt, caml_call1(CamlinternalFormatBasics[2], _cv_)) /*<<camlinternalFormat.ml:1312:42>>*/ ;
+     /*<<camlinternalFormat.ml:1312:42>>*/ return type_format
+            (fmt,
+              /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
+              (CamlinternalFormatBasics[2], _cv_)) /*<<camlinternalFormat.ml:1312:42>>*/ ;
    }
    function fix_padding(padty, width, str){
     var
-     len = caml_ml_string_length(str),
+     len =  /*<<camlinternalFormat.ml:1319:2>>*/ caml_ml_string_length(str),
      padty$0 =  /*<<camlinternalFormat.ml:1320:2>>*/ 0 <= width ? padty : 0,
      width$0 =
         /*<<camlinternalFormat.ml:1321:4>>*/ caml_call1(Stdlib[18], width);
-    if(width$0 <= len)  /*<<camlinternalFormat.ml:1332:23>>*/ return str;
+     /*<<camlinternalFormat.ml:1332:2>>*/ if(width$0 <= len)
+      /*<<camlinternalFormat.ml:1332:23>>*/ return str;
     var
-     _cu_ = 2 === padty$0 ? 48 : 32,
+     _cu_ =  /*<<camlinternalFormat.ml:1333:4>>*/ 2 === padty$0 ? 48 : 32,
      res =
         /*<<camlinternalFormat.ml:1333:14>>*/ caml_call2
         (Stdlib_Bytes[1], width$0, _cu_);
@@ -16326,8 +16781,9 @@
       default:
        a:
        if(0 < len){
-         /*<<camlinternalFormat.ml:1337:29>>*/ if
-         (43 !== caml_string_get(str, 0)
+         /*<<camlinternalFormat.ml:1337:36>>*/ if
+         (43
+          !==  /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get(str, 0)
           &&
            45
            !==  /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get(str, 0)
@@ -16354,8 +16810,9 @@
          &&
           48
           ===  /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0)){
-         /*<<camlinternalFormat.ml:1340:46>>*/ if
-         (120 !== caml_string_get(str, 1)
+         /*<<camlinternalFormat.ml:1340:53>>*/ if
+         (120
+          !==  /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get(str, 1)
           &&
            88
            !==  /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get(str, 1))
@@ -16389,15 +16846,17 @@
     {
      b:
      {
-      if(58 > c){
+       /*<<camlinternalFormat.ml:1352:15>>*/ if(58 > c){
        if(32 !== c){
         if(43 > c) break a;
         switch(c - 43 | 0){
           case 5:
            c:
            if(len < (prec$0 + 2 | 0) && 1 < len){
-             /*<<camlinternalFormat.ml:1358:43>>*/ if
-             (120 !== caml_string_get(str, 1)
+             /*<<camlinternalFormat.ml:1358:50>>*/ if
+             (120
+              !==
+                /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get(str, 1)
               &&
                88
                !==
@@ -16418,7 +16877,8 @@
               res$1,
               (prec$0 - len | 0) + 4 | 0,
               len - 2 | 0);
-            return caml_call1(Stdlib_Bytes[44], res$1) /*<<camlinternalFormat.ml:1368:7>>*/ ;
+             /*<<camlinternalFormat.ml:1361:52>>*/ return caml_call1
+                    (Stdlib_Bytes[44], res$1) /*<<camlinternalFormat.ml:1368:7>>*/ ;
            }
            break b;
           case 0:
@@ -16430,7 +16890,8 @@
           default: break b;
         }
        }
-       if(len >= (prec$0 + 1 | 0)) break a;
+        /*<<camlinternalFormat.ml:1353:32>>*/ if(len >= (prec$0 + 1 | 0))
+        break a;
        var
         res$0 =
            /*<<camlinternalFormat.ml:1354:14>>*/ caml_call2
@@ -16443,18 +16904,20 @@
          res$0,
          (prec$0 - len | 0) + 2 | 0,
          len - 1 | 0);
-       return caml_call1(Stdlib_Bytes[44], res$0) /*<<camlinternalFormat.ml:1368:7>>*/ ;
+        /*<<camlinternalFormat.ml:1356:52>>*/ return caml_call1
+               (Stdlib_Bytes[44], res$0) /*<<camlinternalFormat.ml:1368:7>>*/ ;
       }
       if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
      }
-     if(len < prec$0){
+      /*<<camlinternalFormat.ml:1363:46>>*/ if(len < prec$0){
       var
        res =
           /*<<camlinternalFormat.ml:1364:14>>*/ caml_call2
           (Stdlib_Bytes[1], prec$0, 48);
        /*<<camlinternalFormat.ml:1365:4>>*/ caml_call5
        (Stdlib_String[6], str, 0, res, prec$0 - len | 0, len);
-      return caml_call1(Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1368:7>>*/ ;
+       /*<<camlinternalFormat.ml:1365:42>>*/ return caml_call1
+              (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1368:7>>*/ ;
      }
     }
      /*<<camlinternalFormat.ml:1368:4>>*/ return str;
@@ -16470,7 +16933,8 @@
         (Stdlib_Bytes[1], l + 2 | 0, 34);
      /*<<camlinternalFormat.ml:1375:2>>*/ caml_blit_string
      (str$0, 0, res, 1, l);
-    return caml_call1(Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1376:28>>*/ ;
+     /*<<camlinternalFormat.ml:1375:34>>*/ return caml_call1
+            (Stdlib_Bytes[44], res) /*<<camlinternalFormat.ml:1376:28>>*/ ;
    }
    function format_of_fconv(fconv, prec){
     var
@@ -16486,55 +16950,62 @@
        /*<<camlinternalFormat.ml:1420:26>>*/ caml_call1
        (Stdlib_Int[12], prec$0));
      /*<<camlinternalFormat.ml:1421:4>>*/ buffer_add_char(buf, symb);
-    return buffer_contents(buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
+     /*<<camlinternalFormat.ml:1421:28>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1422:23>>*/ ;
    }
    function transform_int_alt(iconv, s){
      /*<<camlinternalFormat.ml:1425:2>>*/ if(13 > iconv)
       /*<<camlinternalFormat.ml:1447:9>>*/ return s;
     var
-     n =  /*<<camlinternalFormat.ml:1428:14>>*/ [0, 0],
-     _cp_ = caml_ml_string_length(s) - 1 | 0,
-     _co_ = 0;
-    if(_cp_ >= 0){
+     n =  /*<<camlinternalFormat.ml:1427:4>>*/ [0, 0],
+     _cp_ =
+        /*<<camlinternalFormat.ml:1429:6>>*/ caml_ml_string_length(s) - 1 | 0,
+     _co_ =  /*<<camlinternalFormat.ml:1427:4>>*/ 0;
+     /*<<camlinternalFormat.ml:1429:6>>*/ if(_cp_ >= 0){
      var i$0 = _co_;
      for(;;){
-      if(9 >= caml_string_unsafe_get(s, i$0) - 48 >>> 0) n[1]++;
-      var _ct_ =  /*<<camlinternalFormat.ml:1429:6>>*/ i$0 + 1 | 0;
+       /*<<camlinternalFormat.ml:1430:8>>*/ if
+       (9 >= caml_string_unsafe_get(s, i$0) - 48 >>> 0)
+        /*<<camlinternalFormat.ml:1431:22>>*/ n[1]++;
+      var _ct_ = i$0 + 1 | 0;
       if(_cp_ === i$0) break;
       i$0 = _ct_;
      }
     }
     var
-     digits = n[1],
+     digits =  /*<<camlinternalFormat.ml:1434:6>>*/ n[1],
      buf =
         /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
-        (caml_ml_string_length(s) + ((digits - 1 | 0) / 3 | 0) | 0),
-     pos =  /*<<camlinternalFormat.ml:1437:14>>*/ [0, 0];
+        ( /*<<camlinternalFormat.ml:1436:4>>*/ caml_ml_string_length(s)
+         + ((digits - 1 | 0) / 3 | 0)
+         | 0),
+     pos =  /*<<camlinternalFormat.ml:1437:4>>*/ [0, 0];
     function put(c){
       /*<<camlinternalFormat.ml:1438:16>>*/ caml_bytes_set(buf, pos[1], c);
-     pos[1]++;
+      /*<<camlinternalFormat.ml:1438:36>>*/ pos[1]++;
      /*<<camlinternalFormat.ml:1438:46>>*/ }
     var
      left =
-        /*<<camlinternalFormat.ml:1439:15>>*/ [0,
+        /*<<camlinternalFormat.ml:1439:4>>*/ [0,
         ((digits - 1 | 0) % 3 | 0) + 1 | 0],
-     _cr_ = caml_ml_string_length(s) - 1 | 0,
-     _cq_ = 0;
-    if(_cr_ >= 0){
+     _cr_ =
+        /*<<camlinternalFormat.ml:1440:4>>*/ caml_ml_string_length(s) - 1 | 0,
+     _cq_ =  /*<<camlinternalFormat.ml:1439:4>>*/ 0;
+     /*<<camlinternalFormat.ml:1440:4>>*/ if(_cr_ >= 0){
      var i = _cq_;
      for(;;){
-      var c = caml_string_unsafe_get(s, i);
+      var
+       c =  /*<<camlinternalFormat.ml:1441:6>>*/ caml_string_unsafe_get(s, i);
       if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:1444:13>>*/ put(c);
       else{
-       if(0 === left[1]){
+        /*<<camlinternalFormat.ml:1443:10>>*/ if(0 === left[1]){
          /*<<camlinternalFormat.ml:1443:29>>*/ put(95);
-        left[1] = 3;
+         /*<<camlinternalFormat.ml:1443:36>>*/ left[1] = 3;
        }
-       left[1]--;
+        /*<<camlinternalFormat.ml:1443:50>>*/ left[1]--;
         /*<<camlinternalFormat.ml:1443:61>>*/ put(c);
       }
-      var _cs_ =  /*<<camlinternalFormat.ml:1440:4>>*/ i + 1 | 0;
+      var _cs_ = i + 1 | 0;
       if(_cr_ === i) break;
       i = _cs_;
      }
@@ -16572,8 +17043,9 @@
        var _cn_ = cst_i$0; break;
       default: var _cn_ = cst_u;
     }
-     /*<<camlinternalFormat.ml:1451:26>>*/ return transform_int_alt
-            (iconv, caml_format_int(_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
+     /*<<camlinternalFormat.ml:1451:64>>*/ return transform_int_alt
+            (iconv,
+              /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int(_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
    }
    function convert_int32(iconv, n){
      /*<<camlinternalFormat.ml:1453:2>>*/ switch(iconv){
@@ -16605,8 +17077,9 @@
        var _cm_ = cst_li$0; break;
       default: var _cm_ = cst_lu;
     }
-     /*<<camlinternalFormat.ml:1453:26>>*/ return transform_int_alt
-            (iconv, caml_format_int(_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
+     /*<<camlinternalFormat.ml:1453:67>>*/ return transform_int_alt
+            (iconv,
+              /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int(_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
    }
    function convert_nativeint(iconv, n){
      /*<<camlinternalFormat.ml:1455:2>>*/ switch(iconv){
@@ -16638,8 +17111,9 @@
        var _cl_ = cst_ni$0; break;
       default: var _cl_ = cst_nu;
     }
-     /*<<camlinternalFormat.ml:1455:26>>*/ return transform_int_alt
-            (iconv, caml_format_int(_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
+     /*<<camlinternalFormat.ml:1455:71>>*/ return transform_int_alt
+            (iconv,
+              /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int(_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
    }
    function convert_int64(iconv, n){
      /*<<camlinternalFormat.ml:1457:2>>*/ switch(iconv){
@@ -16671,8 +17145,10 @@
        var _ck_ = cst_Li$0; break;
       default: var _ck_ = cst_Lu;
     }
-     /*<<camlinternalFormat.ml:1457:26>>*/ return transform_int_alt
-            (iconv, runtime.caml_int64_format(_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
+     /*<<camlinternalFormat.ml:1457:67>>*/ return transform_int_alt
+            (iconv,
+              /*<<camlinternalFormat.ml:1457:26>>*/ runtime.caml_int64_format
+              (_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
    }
    function convert_float(fconv, prec, x){
     function hex(param){
@@ -16683,18 +17159,18 @@
         var sign = 43; break;
        default: var sign = 32;
      }
-      /*<<camlinternalFormat.ml:1468:4>>*/ return runtime.caml_hexstring_of_float
+      /*<<camlinternalFormat.ml:1468:34>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
              (x, prec, sign) /*<<camlinternalFormat.ml:1468:34>>*/ ;
     }
     function caml_special_val(str){
      var
       match =
          /*<<camlinternalFormat.ml:1477:35>>*/ runtime.caml_classify_float(x);
-     return 3 === match
+      /*<<camlinternalFormat.ml:1477:51>>*/ return 3 === match
              ? x < 0. ? cst_neg_infinity : cst_infinity
              : 4 <= match ? cst_nan : str /*<<camlinternalFormat.ml:1480:21>>*/ ;
     }
-    switch(fconv[2]){
+     /*<<camlinternalFormat.ml:1481:2>>*/ switch(fconv[2]){
       case 5:
        var
         str =
@@ -16702,7 +17178,7 @@
            ( /*<<camlinternalFormat.ml:1486:27>>*/ format_of_fconv
              (fconv, prec),
             x),
-        len = caml_ml_string_length(str),
+        len =  /*<<camlinternalFormat.ml:1470:4>>*/ caml_ml_string_length(str),
         i = 0;
         /*<<camlinternalFormat.ml:1472:6>>*/ for(;;){
         if(i === len)
@@ -16710,12 +17186,13 @@
         else{
          var
           _cg_ =
-             /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get(str, i)
+             /*<<camlinternalFormat.ml:1473:21>>*/  /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get
+             (str, i)
             - 46
             | 0;
          a:
          {
-          if(23 < _cg_ >>> 0){
+           /*<<camlinternalFormat.ml:1473:21>>*/ if(23 < _cg_ >>> 0){
            if(55 === _cg_) break a;
           }
           else if(21 < _cg_ - 1 >>> 0) break a;
@@ -16727,21 +17204,23 @@
         }
         var
          _ci_ =
-            /*<<camlinternalFormat.ml:1476:7>>*/ _ch_
+            /*<<camlinternalFormat.ml:1476:17>>*/ _ch_
             ? str
             :  /*<<camlinternalFormat.ml:1476:32>>*/ caml_call2
               (Stdlib[28], str, cst$17);
-         /*<<camlinternalFormat.ml:1487:21>>*/ return caml_special_val(_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+         /*<<camlinternalFormat.ml:1487:44>>*/ return caml_special_val(_ci_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
        }
       case 6:
         /*<<camlinternalFormat.ml:1482:15>>*/ return hex(0) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 7:
        var _cj_ =  /*<<camlinternalFormat.ml:1483:38>>*/ hex(0);
-       return caml_call1(Stdlib_String[26], _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+        /*<<camlinternalFormat.ml:1483:46>>*/ return caml_call1
+               (Stdlib_String[26], _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 8:
-        /*<<camlinternalFormat.ml:1484:33>>*/ return caml_special_val(hex(0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
+        /*<<camlinternalFormat.ml:1484:41>>*/ return caml_special_val
+               ( /*<<camlinternalFormat.ml:1484:33>>*/ hex(0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       default:
-        /*<<camlinternalFormat.ml:1489:4>>*/ return caml_format_float
+       return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
                ( /*<<camlinternalFormat.ml:1489:17>>*/ format_of_fconv
                  (fconv, prec),
                 x) /*<<camlinternalFormat.ml:1489:47>>*/ ;
@@ -16750,7 +17229,7 @@
    function string_of_fmtty(fmtty){
     var buf =  /*<<camlinternalFormat.ml:1501:12>>*/ buffer_create(16);
      /*<<camlinternalFormat.ml:1502:2>>*/ bprint_fmtty(buf, fmtty);
-    return buffer_contents(buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
+     /*<<camlinternalFormat.ml:1502:24>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
    }
    function make_printf$0(counter, k, acc, fmt){
     var k$0 = k, acc$0 = acc, fmt$0 = fmt;
@@ -16761,7 +17240,7 @@
        case 0:
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
-         var new_acc =  /*<<camlinternalFormat.ml:1521:20>>*/ [5, acc$0, c];
+         var new_acc =  /*<<camlinternalFormat.ml:1521:6>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
                  (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ;} /*<<camlinternalFormat.ml:1520:4>>*/ ;
        case 1:
@@ -16779,15 +17258,15 @@
           (str, 0, res, 1, l);
          var
           new_acc =
-             /*<<camlinternalFormat.ml:1525:20>>*/ [4,
+             /*<<camlinternalFormat.ml:1525:60>>*/ [4,
              acc$0,
-              /*<<camlinternalFormat.ml:1496:2>>*/ caml_call1
+              /*<<camlinternalFormat.ml:1496:34>>*/ caml_call1
               (Stdlib_Bytes[44], res)];
           /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
                  (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ;} /*<<camlinternalFormat.ml:1524:4>>*/ ;
        case 2:
         var rest$1 = fmt$0[2], pad = fmt$0[1];
-         /*<<camlinternalFormat.ml:1528:32>>*/ return make_padding
+         /*<<camlinternalFormat.ml:1528:4>>*/ return make_padding
                 (k$0,
                  acc$0,
                  rest$1,
@@ -16843,7 +17322,7 @@
          prec$3 = fmt$0[3],
          pad$5 = fmt$0[2],
          fconv = fmt$0[1];
-        if(typeof pad$5 === "number"){
+         /*<<camlinternalFormat.ml:1735:34>>*/ if(typeof pad$5 === "number"){
          if(typeof prec$3 === "number")
           return prec$3
                   ? function
@@ -16966,7 +17445,7 @@
        case 10:
         var
          rest$9 = fmt$0[1],
-         acc$1 =  /*<<camlinternalFormat.ml:1560:18>>*/ [7, acc$0];
+         acc$1 =  /*<<camlinternalFormat.ml:1560:4>>*/ [7, acc$0];
         acc$0 = acc$1;
         fmt$0 = rest$9;
         break;
@@ -16974,7 +17453,7 @@
         var
          rest$10 = fmt$0[2],
          str = fmt$0[1],
-         acc$2 =  /*<<camlinternalFormat.ml:1563:18>>*/ [2, acc$0, str];
+         acc$2 =  /*<<camlinternalFormat.ml:1563:4>>*/ [2, acc$0, str];
         acc$0 = acc$2;
         fmt$0 = rest$10;
         break;
@@ -16982,7 +17461,7 @@
         var
          rest$11 = fmt$0[2],
          chr = fmt$0[1],
-         acc$3 =  /*<<camlinternalFormat.ml:1565:18>>*/ [3, acc$0, chr];
+         acc$3 =  /*<<camlinternalFormat.ml:1565:4>>*/ [3, acc$0, chr];
         acc$0 = acc$3;
         fmt$0 = rest$11;
         break;
@@ -16993,7 +17472,7 @@
          ty =
             /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
          /*<<camlinternalFormat.ml:1569:4>>*/ return function(str){
-          /*<<camlinternalFormat.ml:1570:6>>*/ return  /*<<camlinternalFormat.ml:1569:4>>*/ make_printf
+          /*<<camlinternalFormat.ml:1570:6>>*/ return  /*<<camlinternalFormat.ml:1571:6>>*/ make_printf
                  (k$0, [4, acc$0, ty], rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ;} /*<<camlinternalFormat.ml:1569:4>>*/ ;
        case 14:
         var rest$13 = fmt$0[3], fmtty = fmt$0[2];
@@ -17001,14 +17480,15 @@
          var
           fmt = param[1],
           _cf_ =  /*<<camlinternalFormat.ml:1574:18>>*/ recast(fmt, fmtty);
-          /*<<camlinternalFormat.ml:1574:6>>*/ return make_printf
+          /*<<camlinternalFormat.ml:1574:42>>*/ return make_printf
                  (k$0,
                   acc$0,
-                  caml_call2(CamlinternalFormatBasics[3], _cf_, rest$13)) /*<<camlinternalFormat.ml:1574:42>>*/ ;} /*<<camlinternalFormat.ml:1573:4>>*/ ;
+                   /*<<camlinternalFormat.ml:1574:6>>*/ caml_call2
+                   (CamlinternalFormatBasics[3], _cf_, rest$13)) /*<<camlinternalFormat.ml:1574:42>>*/ ;} /*<<camlinternalFormat.ml:1573:4>>*/ ;
        case 15:
         var rest$14 = fmt$0[1];
          /*<<camlinternalFormat.ml:1544:4>>*/ return function(f, x){
-          /*<<camlinternalFormat.ml:1544:15>>*/ return  /*<<camlinternalFormat.ml:1544:4>>*/ make_printf
+          /*<<camlinternalFormat.ml:1544:15>>*/ return make_printf
                  (k$0,
                   [6,
                    acc$0,
@@ -17020,13 +17500,13 @@
        case 16:
         var rest$15 = fmt$0[1];
          /*<<camlinternalFormat.ml:1546:4>>*/ return function(f){
-          /*<<camlinternalFormat.ml:1546:13>>*/ return  /*<<camlinternalFormat.ml:1546:4>>*/ make_printf
+          /*<<camlinternalFormat.ml:1546:13>>*/ return make_printf
                  (k$0, [6, acc$0, f], rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ;} /*<<camlinternalFormat.ml:1546:4>>*/ ;
        case 17:
         var
          rest$16 = fmt$0[2],
          fmting_lit = fmt$0[1],
-         acc$4 =  /*<<camlinternalFormat.ml:1594:18>>*/ [0, acc$0, fmting_lit];
+         acc$4 =  /*<<camlinternalFormat.ml:1594:4>>*/ [0, acc$0, fmting_lit];
         acc$0 = acc$4;
         fmt$0 = rest$16;
         break;
@@ -17037,8 +17517,8 @@
          let acc = acc$0, k = k$0, rest = rest$17;
          var
           k$1 =
-            function(kacc){
-              /*<<camlinternalFormat.ml:1597:6>>*/ return  /*<<camlinternalFormat.ml:1596:4>>*/ make_printf
+             /*<<camlinternalFormat.ml:1596:4>>*/ function(kacc){
+              /*<<camlinternalFormat.ml:1597:6>>*/ return make_printf
                      (k, [1, acc, [0, kacc]], rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
             };
          k$0 = k$1;
@@ -17050,8 +17530,8 @@
          let acc = acc$0, k = k$0, rest = rest$18;
          var
           k$2 =
-            function(kacc){
-              /*<<camlinternalFormat.ml:1601:6>>*/ return  /*<<camlinternalFormat.ml:1600:4>>*/ make_printf
+             /*<<camlinternalFormat.ml:1600:4>>*/ function(kacc){
+              /*<<camlinternalFormat.ml:1601:6>>*/ return make_printf
                      (k, [1, acc, [1, kacc]], rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
             };
          k$0 = k$2;
@@ -17066,18 +17546,18 @@
         var
          rest$19 = fmt$0[3],
          new_acc =
-            /*<<camlinternalFormat.ml:1577:18>>*/ [8,
+            /*<<camlinternalFormat.ml:1577:4>>*/ [8,
             acc$0,
             cst_Printf_bad_conversion];
          /*<<camlinternalFormat.ml:1578:4>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1578:13>>*/ return  /*<<camlinternalFormat.ml:1578:4>>*/ make_printf
+          /*<<camlinternalFormat.ml:1578:13>>*/ return make_printf
                  (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ;} /*<<camlinternalFormat.ml:1578:4>>*/ ;
        case 21:
         var rest$20 = fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
          var
           new_acc =
-             /*<<camlinternalFormat.ml:1584:20>>*/ [4,
+             /*<<camlinternalFormat.ml:1584:59>>*/ [4,
              acc$0,
               /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
               (cst_u$0, n)];
@@ -17086,7 +17566,7 @@
        case 22:
         var rest$21 = fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
-         var new_acc =  /*<<camlinternalFormat.ml:1588:20>>*/ [5, acc$0, c];
+         var new_acc =  /*<<camlinternalFormat.ml:1588:6>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
                  (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ;} /*<<camlinternalFormat.ml:1587:4>>*/ ;
        case 23:
@@ -17095,20 +17575,18 @@
          return caml_trampoline_return
                  (make_ignored_param$0, [0, k$0, acc$0, ign, rest$22]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$1 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1591:4>>*/ return make_ignored_param$0
-                (counter$1, k$0, acc$0, ign, rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+        return make_ignored_param$0(counter$1, k$0, acc$0, ign, rest$22);
        default:
         var
          rest$23 = fmt$0[3],
          f = fmt$0[2],
          arity = fmt$0[1],
          _ce_ =  /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1(f, 0);
-        if(counter >= 50)
+         /*<<camlinternalFormat.ml:1548:39>>*/ if(counter >= 50)
          return caml_trampoline_return
                  (make_custom$0, [0, k$0, acc$0, rest$23, arity, _ce_]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1548:33>>*/ return make_custom$0
-                (counter$0, k$0, acc$0, rest$23, arity, _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
+        return make_custom$0(counter$0, k$0, acc$0, rest$23, arity, _ce_);
      }
     }
    }
@@ -17122,14 +17600,12 @@
          /*<<camlinternalFormat.ml:1614:39>>*/ if(counter >= 50)
          return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1614:39>>*/ return make_invalid_arg
-                (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return make_invalid_arg(counter$0, k, acc, fmt);
        case 1:
          /*<<camlinternalFormat.ml:1615:39>>*/ if(counter >= 50)
          return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$1 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1615:39>>*/ return make_invalid_arg
-                (counter$1, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return make_invalid_arg(counter$1, k, acc, fmt);
        case 2:
          /*<<camlinternalFormat.ml:1626:39>>*/ throw caml_maybe_attach_backtrace
                ([0, Assert_failure, _t_], 1);
@@ -17137,84 +17613,71 @@
          /*<<camlinternalFormat.ml:1629:39>>*/ if(counter >= 50)
          return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
         var counter$2 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1629:39>>*/ return make_invalid_arg
-                (counter$2, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+        return make_invalid_arg(counter$2, k, acc, fmt);
      }
     switch(ign[0]){
       case 0:
         /*<<camlinternalFormat.ml:1616:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$3 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1616:39>>*/ return make_invalid_arg
-               (counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$3, k, acc, fmt);
       case 1:
         /*<<camlinternalFormat.ml:1617:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$4 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1617:39>>*/ return make_invalid_arg
-               (counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$4, k, acc, fmt);
       case 2:
         /*<<camlinternalFormat.ml:1618:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$5 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1618:39>>*/ return make_invalid_arg
-               (counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$5, k, acc, fmt);
       case 3:
         /*<<camlinternalFormat.ml:1619:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$6 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1619:39>>*/ return make_invalid_arg
-               (counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$6, k, acc, fmt);
       case 4:
         /*<<camlinternalFormat.ml:1620:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$7 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1620:39>>*/ return make_invalid_arg
-               (counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$7, k, acc, fmt);
       case 5:
         /*<<camlinternalFormat.ml:1621:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$8 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1621:39>>*/ return make_invalid_arg
-               (counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$8, k, acc, fmt);
       case 6:
         /*<<camlinternalFormat.ml:1622:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$9 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1622:39>>*/ return make_invalid_arg
-               (counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$9, k, acc, fmt);
       case 7:
         /*<<camlinternalFormat.ml:1623:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$10 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1623:39>>*/ return make_invalid_arg
-               (counter$10, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$10, k, acc, fmt);
       case 8:
         /*<<camlinternalFormat.ml:1624:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$11 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1624:39>>*/ return make_invalid_arg
-               (counter$11, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$11, k, acc, fmt);
       case 9:
        var fmtty = ign[2];
         /*<<camlinternalFormat.ml:1625:39>>*/ if(counter >= 50)
         return caml_trampoline_return
                 (make_from_fmtty$0, [0, k, acc, fmtty, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$14 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1625:39>>*/ return make_from_fmtty$0
-               (counter$14, k, acc, fmtty, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_from_fmtty$0(counter$14, k, acc, fmtty, fmt);
       case 10:
         /*<<camlinternalFormat.ml:1627:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$12 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1627:39>>*/ return make_invalid_arg
-               (counter$12, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$12, k, acc, fmt);
       default:
         /*<<camlinternalFormat.ml:1628:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        var counter$13 = counter + 1 | 0;
-        /*<<camlinternalFormat.ml:1628:39>>*/ return make_invalid_arg
-               (counter$13, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
+       return make_invalid_arg(counter$13, k, acc, fmt);
     }
    }
    function make_ignored_param(k, acc, ign, fmt){
@@ -17227,47 +17690,47 @@
        case 0:
         var rest = fmtty[1];
          /*<<camlinternalFormat.ml:1638:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1638:40>>*/ return  /*<<camlinternalFormat.ml:1638:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1638:40>>*/ return make_from_fmtty
                  (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ;} /*<<camlinternalFormat.ml:1638:31>>*/ ;
        case 1:
         var rest$0 = fmtty[1];
          /*<<camlinternalFormat.ml:1639:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1639:40>>*/ return  /*<<camlinternalFormat.ml:1639:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1639:40>>*/ return make_from_fmtty
                  (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ;} /*<<camlinternalFormat.ml:1639:31>>*/ ;
        case 2:
         var rest$1 = fmtty[1];
          /*<<camlinternalFormat.ml:1640:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1640:40>>*/ return  /*<<camlinternalFormat.ml:1640:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1640:40>>*/ return make_from_fmtty
                  (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ;} /*<<camlinternalFormat.ml:1640:31>>*/ ;
        case 3:
         var rest$2 = fmtty[1];
          /*<<camlinternalFormat.ml:1641:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1641:40>>*/ return  /*<<camlinternalFormat.ml:1641:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1641:40>>*/ return make_from_fmtty
                  (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ;} /*<<camlinternalFormat.ml:1641:31>>*/ ;
        case 4:
         var rest$3 = fmtty[1];
          /*<<camlinternalFormat.ml:1642:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1642:40>>*/ return  /*<<camlinternalFormat.ml:1642:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1642:40>>*/ return make_from_fmtty
                  (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ;} /*<<camlinternalFormat.ml:1642:31>>*/ ;
        case 5:
         var rest$4 = fmtty[1];
          /*<<camlinternalFormat.ml:1643:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1643:40>>*/ return  /*<<camlinternalFormat.ml:1643:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1643:40>>*/ return make_from_fmtty
                  (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ;} /*<<camlinternalFormat.ml:1643:31>>*/ ;
        case 6:
         var rest$5 = fmtty[1];
          /*<<camlinternalFormat.ml:1644:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1644:40>>*/ return  /*<<camlinternalFormat.ml:1644:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1644:40>>*/ return make_from_fmtty
                  (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ;} /*<<camlinternalFormat.ml:1644:31>>*/ ;
        case 7:
         var rest$6 = fmtty[1];
          /*<<camlinternalFormat.ml:1645:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1645:40>>*/ return  /*<<camlinternalFormat.ml:1645:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1645:40>>*/ return make_from_fmtty
                  (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ;} /*<<camlinternalFormat.ml:1645:31>>*/ ;
        case 8:
         var rest$7 = fmtty[2];
          /*<<camlinternalFormat.ml:1651:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1651:40>>*/ return  /*<<camlinternalFormat.ml:1651:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1651:40>>*/ return make_from_fmtty
                  (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ;} /*<<camlinternalFormat.ml:1651:31>>*/ ;
        case 9:
         var
@@ -17278,7 +17741,7 @@
             /*<<camlinternalFormat.ml:1654:13>>*/ trans
             ( /*<<camlinternalFormat.ml:1654:19>>*/ symm(ty1), ty2);
          /*<<camlinternalFormat.ml:1655:4>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1655:13>>*/ return make_from_fmtty
+          /*<<camlinternalFormat.ml:1655:13>>*/ return  /*<<camlinternalFormat.ml:1655:57>>*/ make_from_fmtty
                  (k,
                   acc,
                    /*<<camlinternalFormat.ml:1655:35>>*/ caml_call2
@@ -17287,17 +17750,17 @@
        case 10:
         var rest$9 = fmtty[1];
          /*<<camlinternalFormat.ml:1646:31>>*/ return function(_cc_, param){
-          /*<<camlinternalFormat.ml:1646:42>>*/ return  /*<<camlinternalFormat.ml:1646:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1646:42>>*/ return make_from_fmtty
                  (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ;} /*<<camlinternalFormat.ml:1646:31>>*/ ;
        case 11:
         var rest$10 = fmtty[1];
          /*<<camlinternalFormat.ml:1647:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1647:40>>*/ return  /*<<camlinternalFormat.ml:1647:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1647:40>>*/ return make_from_fmtty
                  (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ;} /*<<camlinternalFormat.ml:1647:31>>*/ ;
        case 12:
         var rest$11 = fmtty[1];
          /*<<camlinternalFormat.ml:1648:31>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1648:40>>*/ return  /*<<camlinternalFormat.ml:1648:31>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1648:40>>*/ return make_from_fmtty
                  (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ;} /*<<camlinternalFormat.ml:1648:31>>*/ ;
        case 13:
          /*<<camlinternalFormat.ml:1649:31>>*/ throw caml_maybe_attach_backtrace
@@ -17309,8 +17772,7 @@
      /*<<camlinternalFormat.ml:1652:31>>*/ if(counter >= 50)
      return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1655:61>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1652:31>>*/ return make_invalid_arg
-            (counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
+    return make_invalid_arg(counter$0, k, acc, fmt);
    }
    function make_from_fmtty(k, acc, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
@@ -17319,21 +17781,20 @@
    function make_invalid_arg(counter, k, acc, fmt){
     var
      _cb_ =
-        /*<<camlinternalFormat.ml:1663:16>>*/ [8,
+        /*<<camlinternalFormat.ml:1663:2>>*/ [8,
         acc,
         cst_Printf_bad_conversion$0];
-     /*<<camlinternalFormat.ml:1663:2>>*/ if(counter >= 50)
+    if(counter >= 50)
      return caml_trampoline_return(make_printf$0, [0, k, _cb_, fmt]) /*<<camlinternalFormat.ml:1663:72>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1663:2>>*/ return make_printf$0
-            (counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
+    return make_printf$0(counter$0, k, _cb_, fmt);
    }
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:1672:4>>*/ return function(x){
       var
        new_acc =
-          /*<<camlinternalFormat.ml:1673:20>>*/ [4,
+          /*<<camlinternalFormat.ml:1673:49>>*/ [4,
           acc,
            /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
@@ -17343,7 +17804,7 @@
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
       var
        new_acc =
-          /*<<camlinternalFormat.ml:1677:20>>*/ [4,
+          /*<<camlinternalFormat.ml:1677:75>>*/ [4,
           acc,
            /*<<camlinternalFormat.ml:1677:42>>*/ fix_padding
            (padty,
@@ -17356,7 +17817,7 @@
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
      var
       new_acc =
-         /*<<camlinternalFormat.ml:1681:20>>*/ [4,
+         /*<<camlinternalFormat.ml:1681:71>>*/ [4,
          acc,
           /*<<camlinternalFormat.ml:1681:42>>*/ fix_padding
           (padty$0,
@@ -17488,15 +17949,18 @@
      /*<<camlinternalFormat.ml:1778:28>>*/ if(arity){
      var arity$0 = arity[1];
       /*<<camlinternalFormat.ml:1781:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1782:6>>*/ return  /*<<camlinternalFormat.ml:1782:35>>*/ make_custom
-              (k, acc, rest, arity$0, caml_call1(f, x)) /*<<camlinternalFormat.ml:1782:40>>*/ ;} /*<<camlinternalFormat.ml:1781:4>>*/ ;
-    }
-    var _ca_ =  /*<<camlinternalFormat.ml:1779:33>>*/ [4, acc, f];
-     /*<<camlinternalFormat.ml:1779:19>>*/ if(counter >= 50)
+       /*<<camlinternalFormat.ml:1782:6>>*/ return  /*<<camlinternalFormat.ml:1782:40>>*/ make_custom
+              (k,
+               acc,
+               rest,
+               arity$0,
+                /*<<camlinternalFormat.ml:1782:35>>*/ caml_call1(f, x)) /*<<camlinternalFormat.ml:1782:40>>*/ ;} /*<<camlinternalFormat.ml:1781:4>>*/ ;
+    }
+    var _ca_ =  /*<<camlinternalFormat.ml:1779:19>>*/ [4, acc, f];
+    if(counter >= 50)
      return caml_trampoline_return(make_printf$0, [0, k, _ca_, rest]) /*<<camlinternalFormat.ml:1782:40>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1779:19>>*/ return make_printf$0
-            (counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
+    return make_printf$0(counter$0, k, _ca_, rest);
    }
    function make_custom(k, acc, rest, arity, f){
      /*<<?>>*/ return caml_trampoline
@@ -17512,15 +17976,15 @@
         var
          rest = fmt$0[1],
          x =  /*<<camlinternalFormat.ml:1790:14>>*/ make_iprintf(k$0, o, rest);
-        return function(_b$_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1790:14>>*/ ;
+         /*<<camlinternalFormat.ml:1790:37>>*/ return function(_b$_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1790:37>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
          x$0 =
             /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf(k$0, o, rest$0);
-        return function(_b__){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1792:14>>*/ ;
+         /*<<camlinternalFormat.ml:1792:37>>*/ return function(_b__){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1792:37>>*/ ;
        case 2:
         var _bM_ = fmt$0[1];
         if(typeof _bM_ === "number"){
@@ -17529,8 +17993,8 @@
           x$1 =
              /*<<camlinternalFormat.ml:1794:14>>*/ make_iprintf
              (k$0, o, rest$1);
-         return function(_b9_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1794:14>>*/ ;
+          /*<<camlinternalFormat.ml:1794:37>>*/ return function(_b9_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1794:37>>*/ ;
         }
         if(0 === _bM_[0]){
          var
@@ -17538,8 +18002,8 @@
           x$2 =
              /*<<camlinternalFormat.ml:1796:14>>*/ make_iprintf
              (k$0, o, rest$2);
-         return function(_b8_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1796:14>>*/ ;
+          /*<<camlinternalFormat.ml:1796:37>>*/ return function(_b8_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1796:37>>*/ ;
         }
         var
          rest$3 = fmt$0[2],
@@ -17549,8 +18013,8 @@
             /*<<camlinternalFormat.ml:1798:14>>*/ function(_b7_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
            };
-         /*<<camlinternalFormat.ml:1798:14>>*/ return function(_b6_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1798:14>>*/ ;
+         /*<<camlinternalFormat.ml:1798:45>>*/ return function(_b6_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1798:45>>*/ ;
        case 3:
         var _bN_ = fmt$0[1];
         if(typeof _bN_ === "number"){
@@ -17559,8 +18023,8 @@
           x$5 =
              /*<<camlinternalFormat.ml:1800:14>>*/ make_iprintf
              (k$0, o, rest$4);
-         return function(_b5_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1800:14>>*/ ;
+          /*<<camlinternalFormat.ml:1800:37>>*/ return function(_b5_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1800:37>>*/ ;
         }
         if(0 === _bN_[0]){
          var
@@ -17568,8 +18032,8 @@
           x$6 =
              /*<<camlinternalFormat.ml:1802:14>>*/ make_iprintf
              (k$0, o, rest$5);
-         return function(_b4_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1802:14>>*/ ;
+          /*<<camlinternalFormat.ml:1802:37>>*/ return function(_b4_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1802:37>>*/ ;
         }
         var
          rest$6 = fmt$0[2],
@@ -17579,8 +18043,8 @@
             /*<<camlinternalFormat.ml:1804:14>>*/ function(_b3_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$7;
            };
-         /*<<camlinternalFormat.ml:1804:14>>*/ return function(_b2_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;} /*<<camlinternalFormat.ml:1804:14>>*/ ;
+         /*<<camlinternalFormat.ml:1804:45>>*/ return function(_b2_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;} /*<<camlinternalFormat.ml:1804:45>>*/ ;
        case 4:
         var rest$7 = fmt$0[4], prec = fmt$0[3], pad = fmt$0[2];
          /*<<camlinternalFormat.ml:1806:8>>*/ return fn_of_padding_precision
@@ -17609,8 +18073,8 @@
           x$9 =
              /*<<camlinternalFormat.ml:1816:14>>*/ make_iprintf
              (k$0, o, rest$12);
-         return function(_b1_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1816:14>>*/ ;
+          /*<<camlinternalFormat.ml:1816:37>>*/ return function(_b1_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1816:37>>*/ ;
         }
         if(0 === _bO_[0]){
          var
@@ -17618,8 +18082,8 @@
           x$10 =
              /*<<camlinternalFormat.ml:1818:14>>*/ make_iprintf
              (k$0, o, rest$13);
-         return function(_b0_){
-           /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;} /*<<camlinternalFormat.ml:1818:14>>*/ ;
+          /*<<camlinternalFormat.ml:1818:37>>*/ return function(_b0_){
+           /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;} /*<<camlinternalFormat.ml:1818:37>>*/ ;
         }
         var
          rest$14 = fmt$0[2],
@@ -17630,8 +18094,8 @@
             /*<<camlinternalFormat.ml:1820:14>>*/ function(_bZ_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;
            };
-         /*<<camlinternalFormat.ml:1820:14>>*/ return function(_bY_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;} /*<<camlinternalFormat.ml:1820:14>>*/ ;
+         /*<<camlinternalFormat.ml:1820:45>>*/ return function(_bY_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;} /*<<camlinternalFormat.ml:1820:45>>*/ ;
        case 10:
         var rest$15 = fmt$0[1]; fmt$0 = rest$15; break;
        case 11:
@@ -17644,18 +18108,19 @@
          x$13 =
             /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
             (k$0, o, rest$18);
-        return function(_bX_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1838:14>>*/ ;
+         /*<<camlinternalFormat.ml:1838:37>>*/ return function(_bX_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1838:37>>*/ ;
        case 14:
         var rest$19 = fmt$0[3], fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
          var
           fmt = param[1],
           _bW_ =  /*<<camlinternalFormat.ml:1842:24>>*/ recast(fmt, fmtty);
-          /*<<camlinternalFormat.ml:1842:12>>*/ return make_iprintf
+          /*<<camlinternalFormat.ml:1842:48>>*/ return make_iprintf
                  (k$0,
                   o,
-                  caml_call2(CamlinternalFormatBasics[3], _bW_, rest$19)) /*<<camlinternalFormat.ml:1842:48>>*/ ;} /*<<camlinternalFormat.ml:1840:8>>*/ ;
+                   /*<<camlinternalFormat.ml:1842:12>>*/ caml_call2
+                   (CamlinternalFormatBasics[3], _bW_, rest$19)) /*<<camlinternalFormat.ml:1842:48>>*/ ;} /*<<camlinternalFormat.ml:1840:8>>*/ ;
        case 15:
         var
          rest$20 = fmt$0[1],
@@ -17666,16 +18131,16 @@
             /*<<camlinternalFormat.ml:1822:14>>*/ function(_bV_){
              /*<<camlinternalFormat.ml:1784:16>>*/ return x$14;
            };
-         /*<<camlinternalFormat.ml:1822:14>>*/ return function(_bU_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;} /*<<camlinternalFormat.ml:1822:14>>*/ ;
+         /*<<camlinternalFormat.ml:1822:45>>*/ return function(_bU_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;} /*<<camlinternalFormat.ml:1822:45>>*/ ;
        case 16:
         var
          rest$21 = fmt$0[1],
          x$16 =
             /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
             (k$0, o, rest$21);
-        return function(_bT_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$16;} /*<<camlinternalFormat.ml:1824:14>>*/ ;
+         /*<<camlinternalFormat.ml:1824:37>>*/ return function(_bT_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$16;} /*<<camlinternalFormat.ml:1824:37>>*/ ;
        case 17:
         var rest$22 = fmt$0[2]; fmt$0 = rest$22; break;
        case 18:
@@ -17685,7 +18150,7 @@
          let k = k$0, rest = rest$23;
          var
           k$1 =
-            function(koc){
+             /*<<camlinternalFormat.ml:1854:8>>*/ function(koc){
               /*<<camlinternalFormat.ml:1854:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1854:56>>*/ ;
             };
@@ -17697,7 +18162,7 @@
          let k = k$0, rest = rest$24;
          var
           k$2 =
-            function(koc){
+             /*<<camlinternalFormat.ml:1856:8>>*/ function(koc){
               /*<<camlinternalFormat.ml:1856:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1856:56>>*/ ;
             };
@@ -17714,24 +18179,24 @@
          x$17 =
             /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
             (k$0, o, rest$25);
-        return function(_bS_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;} /*<<camlinternalFormat.ml:1844:14>>*/ ;
+         /*<<camlinternalFormat.ml:1844:37>>*/ return function(_bS_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;} /*<<camlinternalFormat.ml:1844:37>>*/ ;
        case 21:
         var
          rest$26 = fmt$0[2],
          x$18 =
             /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
             (k$0, o, rest$26);
-        return function(_bR_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;} /*<<camlinternalFormat.ml:1846:14>>*/ ;
+         /*<<camlinternalFormat.ml:1846:37>>*/ return function(_bR_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;} /*<<camlinternalFormat.ml:1846:37>>*/ ;
        case 22:
         var
          rest$27 = fmt$0[1],
          x$19 =
             /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
             (k$0, o, rest$27);
-        return function(_bQ_){
-          /*<<camlinternalFormat.ml:1784:16>>*/ return x$19;} /*<<camlinternalFormat.ml:1848:14>>*/ ;
+         /*<<camlinternalFormat.ml:1848:37>>*/ return function(_bQ_){
+          /*<<camlinternalFormat.ml:1784:16>>*/ return x$19;} /*<<camlinternalFormat.ml:1848:37>>*/ ;
        case 23:
         var rest$28 = fmt$0[2], ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1850:8>>*/ return make_ignored_param
@@ -17748,8 +18213,7 @@
          return caml_trampoline_return
                  (fn_of_custom_arity$0, [0, k$0, o, rest$29, arity]) /*<<camlinternalFormat.ml:1858:11>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<camlinternalFormat.ml:1826:8>>*/ return fn_of_custom_arity$0
-                (counter$0, k$0, o, rest$29, arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
+        return fn_of_custom_arity$0(counter$0, k$0, o, rest$29, arity);
      }
     }
    }
@@ -17761,8 +18225,8 @@
      if(typeof prec !== "number"){
       var
        x$2 =  /*<<camlinternalFormat.ml:1867:14>>*/ make_iprintf(k, o, fmt);
-      return function(_bL_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1867:14>>*/ ;
+       /*<<camlinternalFormat.ml:1867:36>>*/ return function(_bL_){
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1867:36>>*/ ;
      }
      if(prec){
       var
@@ -17771,19 +18235,19 @@
           /*<<camlinternalFormat.ml:1869:14>>*/ function(_bK_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x;
          };
-       /*<<camlinternalFormat.ml:1869:14>>*/ return function(_bJ_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1869:14>>*/ ;
+       /*<<camlinternalFormat.ml:1869:44>>*/ return function(_bJ_){
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1869:44>>*/ ;
      }
      var x$1 =  /*<<camlinternalFormat.ml:1865:14>>*/ make_iprintf(k, o, fmt);
-     return function(_bI_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1865:14>>*/ ;
+      /*<<camlinternalFormat.ml:1865:36>>*/ return function(_bI_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1865:36>>*/ ;
     }
     if(0 === pad[0]){
      if(typeof prec !== "number"){
       var
        x$6 =  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf(k, o, fmt);
-      return function(_bH_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1873:14>>*/ ;
+       /*<<camlinternalFormat.ml:1873:36>>*/ return function(_bH_){
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1873:36>>*/ ;
      }
      if(prec){
       var
@@ -17792,12 +18256,12 @@
           /*<<camlinternalFormat.ml:1875:14>>*/ function(_bG_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$3;
          };
-       /*<<camlinternalFormat.ml:1875:14>>*/ return function(_bF_){
-        /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1875:14>>*/ ;
+       /*<<camlinternalFormat.ml:1875:44>>*/ return function(_bF_){
+        /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1875:44>>*/ ;
      }
      var x$5 =  /*<<camlinternalFormat.ml:1871:14>>*/ make_iprintf(k, o, fmt);
-     return function(_bE_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1871:14>>*/ ;
+      /*<<camlinternalFormat.ml:1871:36>>*/ return function(_bE_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1871:36>>*/ ;
     }
     if(typeof prec !== "number"){
      var
@@ -17806,8 +18270,8 @@
          /*<<camlinternalFormat.ml:1879:14>>*/ function(_bD_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;
         };
-      /*<<camlinternalFormat.ml:1879:14>>*/ return function(_bC_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1879:14>>*/ ;
+      /*<<camlinternalFormat.ml:1879:44>>*/ return function(_bC_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1879:44>>*/ ;
     }
     if(prec){
      var
@@ -17820,13 +18284,13 @@
          /*<<camlinternalFormat.ml:1881:14>>*/ function(_bA_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;
         };
-      /*<<camlinternalFormat.ml:1881:14>>*/ return function(_bz_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1881:14>>*/ ;
+      /*<<camlinternalFormat.ml:1881:52>>*/ return function(_bz_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1881:52>>*/ ;
     }
     var x$10 =  /*<<camlinternalFormat.ml:1877:21>>*/ make_iprintf(k, o, fmt);
     function x$11(_by_){ /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;}
-     /*<<camlinternalFormat.ml:1877:14>>*/ return function(_bx_){
-      /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;} /*<<camlinternalFormat.ml:1877:14>>*/ ;
+     /*<<camlinternalFormat.ml:1877:44>>*/ return function(_bx_){
+      /*<<camlinternalFormat.ml:1784:16>>*/ return x$11;} /*<<camlinternalFormat.ml:1877:44>>*/ ;
     /*<<camlinternalFormat.ml:1881:52>>*/ }
    function fn_of_custom_arity$0(counter, k, o, fmt, param){
      /*<<camlinternalFormat.ml:1882:4>>*/ if(param){
@@ -17835,14 +18299,13 @@
       x =
          /*<<camlinternalFormat.ml:1889:14>>*/ fn_of_custom_arity
          (k, o, fmt, arity);
-     return function(_bw_){
-       /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1889:14>>*/ ;
+      /*<<camlinternalFormat.ml:1889:48>>*/ return function(_bw_){
+       /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1889:48>>*/ ;
     }
      /*<<camlinternalFormat.ml:1887:8>>*/ if(counter >= 50)
      return caml_trampoline_return(make_iprintf$0, [0, k, o, fmt]) /*<<camlinternalFormat.ml:1889:48>>*/ ;
     var counter$0 = counter + 1 | 0;
-     /*<<camlinternalFormat.ml:1887:8>>*/ return make_iprintf$0
-            (counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
+    return make_iprintf$0(counter$0, k, o, fmt);
    }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
@@ -17862,7 +18325,8 @@
             /*<<camlinternalFormat.ml:1899:12>>*/ string_of_formatting_lit
             (fmting_lit);
          /*<<camlinternalFormat.ml:1900:4>>*/ output_acc(o, p);
-        return caml_call2(Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1900:18>>*/ return caml_call2
+                (Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
@@ -17883,24 +18347,28 @@
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1909:32>>*/ output_acc(o, p$3);
-        return caml_call1(f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1909:46>>*/ return caml_call1(f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 7:
         var p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1910:32>>*/ output_acc(o, p$4);
-        return caml_call1(Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1910:46>>*/ return caml_call1
+                (Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 8:
         var msg = acc$0[2], p$5 = acc$0[1];
          /*<<camlinternalFormat.ml:1911:32>>*/ output_acc(o, p$5);
-        return caml_call1(Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1911:46>>*/ return caml_call1
+                (Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1906:32>>*/ output_acc(o, p$1);
-        return caml_call2(Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1906:46>>*/ return caml_call2
+                (Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1908:32>>*/ output_acc(o, p$2);
-        return caml_call2(Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
+         /*<<camlinternalFormat.ml:1908:46>>*/ return caml_call2
+                (Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
      }
     }
    }
@@ -17918,7 +18386,8 @@
             /*<<camlinternalFormat.ml:1919:12>>*/ string_of_formatting_lit
             (fmting_lit);
          /*<<camlinternalFormat.ml:1920:4>>*/ bufput_acc(b, p);
-        return caml_call2(Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1920:18>>*/ return caml_call2
+                (Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
@@ -17939,22 +18408,25 @@
        case 6:
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc(b, p$3);
-        return caml_call1(f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1929:46>>*/ return caml_call1(f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc(b, p$4);
-        return caml_call1(Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1931:46>>*/ return caml_call1
+                (Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc(b, p$1);
-        return caml_call2(Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1926:46>>*/ return caml_call2
+                (Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc(b, p$2);
-        return caml_call2(Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1932:34>>*/ ;
+         /*<<camlinternalFormat.ml:1928:46>>*/ return caml_call2
+                (Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1932:34>>*/ ;
      }
     }
    }
@@ -17972,7 +18444,8 @@
             /*<<camlinternalFormat.ml:1940:12>>*/ string_of_formatting_lit
             (fmting_lit);
          /*<<camlinternalFormat.ml:1941:4>>*/ strput_acc(b, p);
-        return caml_call2(Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1941:18>>*/ return caml_call2
+                (Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 1:
         var match = acc$0[2], p$0 = acc$0[1];
         if(0 === match[0]){
@@ -17994,28 +18467,32 @@
         var f = acc$0[2], p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc(b, p$3);
         var _bv_ =  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1(f, 0);
-        return caml_call2(Stdlib_Buffer[16], b, _bv_) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1950:74>>*/ return caml_call2
+                (Stdlib_Buffer[16], b, _bv_) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 7:
         var acc$3 = acc$0[1]; acc$0 = acc$3; break;
        case 8:
         var msg = acc$0[2], p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc(b, p$4);
-        return caml_call1(Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1952:46>>*/ return caml_call1
+                (Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 2:
        case 4:
         var s$0 = acc$0[2], p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc(b, p$1);
-        return caml_call2(Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1947:46>>*/ return caml_call2
+                (Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        default:
         var c = acc$0[2], p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc(b, p$2);
-        return caml_call2(Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1953:34>>*/ ;
+         /*<<camlinternalFormat.ml:1949:46>>*/ return caml_call2
+                (Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1953:34>>*/ ;
      }
     }
    }
    function failwith_message(param){
     var
-     fmt = param[1],
+     fmt =  /*<<camlinternalFormat.ml:1959:21>>*/ param[1],
      buf =
         /*<<camlinternalFormat.ml:1960:12>>*/ caml_call1
         (Stdlib_Buffer[1], 256);
@@ -18025,16 +18502,17 @@
       _bu_ =
          /*<<camlinternalFormat.ml:1961:43>>*/ caml_call1
          (Stdlib_Buffer[2], buf);
-     return caml_call1(Stdlib[2], _bu_) /*<<camlinternalFormat.ml:1961:64>>*/ ;
+      /*<<camlinternalFormat.ml:1961:64>>*/ return caml_call1(Stdlib[2], _bu_);
     }
      /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
    }
    function open_box_of_string(str){
      /*<<camlinternalFormat.ml:1969:2>>*/ if(str === cst$43)
       /*<<camlinternalFormat.ml:1969:19>>*/ return _x_;
-    var len = caml_ml_string_length(str);
+    var
+     len =  /*<<camlinternalFormat.ml:1970:4>>*/ caml_ml_string_length(str);
     function invalid_box(param){
-      /*<<camlinternalFormat.ml:1971:25>>*/ return  /*<<camlinternalFormat.ml:1971:4>>*/ caml_call1
+      /*<<camlinternalFormat.ml:1971:25>>*/ return caml_call1
              (failwith_message(_y_), str) /*<<camlinternalFormat.ml:1971:74>>*/ ;
     }
     function parse_spaces(i){
@@ -18044,7 +18522,7 @@
       var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
-      if(9 !== match && 32 !== match)
+       /*<<camlinternalFormat.ml:1974:21>>*/ if(9 !== match && 32 !== match)
         /*<<camlinternalFormat.ml:1976:15>>*/ return i$0;
       var i$1 =  /*<<camlinternalFormat.ml:1975:24>>*/ i$0 + 1 | 0;
       i$0 = i$1;
@@ -18057,7 +18535,7 @@
      var wend = wstart;
       /*<<camlinternalFormat.ml:1978:6>>*/ for(;;){
       if(wend === len) break b;
-      if
+       /*<<camlinternalFormat.ml:1979:21>>*/ if
        (25
         <
           /*<<camlinternalFormat.ml:1979:14>>*/ caml_string_get(str, wend)
@@ -18083,16 +18561,19 @@
       var
        match =
           /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get(str, nend);
-      if(48 <= match){if(58 <= match) break;} else if(45 !== match) break;
+       /*<<camlinternalFormat.ml:1984:21>>*/ if(48 <= match){
+       if(58 <= match) break;
+      }
+      else if(45 !== match) break;
       var j$0 =  /*<<camlinternalFormat.ml:1985:30>>*/ nend + 1 | 0;
       nend = j$0;
      }
      break a;
     }
-    if(nstart === nend)
+     /*<<camlinternalFormat.ml:1992:4>>*/ if(nstart === nend)
      var indent = 0;
     else
-      /*<<camlinternalFormat.ml:1994:8>>*/ try{
+     try{
       var
        _bs_ =
           /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
@@ -18106,7 +18587,8 @@
       var indent =  /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box(0);
      }
     var exp_end =  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces(nend);
-    if(exp_end !== len)  /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
+     /*<<camlinternalFormat.ml:1997:4>>*/ if(exp_end !== len)
+      /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
     a:
     {
      if(box_name !== cst$43 && box_name !== "b"){
@@ -18139,10 +18621,10 @@
      var match = prec ? [0, 1] : [0, 0];
     else
      var p = prec[1], match = [0, [0, p]];
-    var prec$0 = match[1];
+    var prec$0 =  /*<<camlinternalFormat.ml:2038:70>>*/ match[1];
      /*<<camlinternalFormat.ml:2039:2>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:2040:26>>*/ return [0, 0, prec$0, fmt];
-     /*<<camlinternalFormat.ml:2039:2>>*/ if(0 === pad[0]){
+    if(0 === pad[0]){
      var w = pad[2], s = pad[1];
       /*<<camlinternalFormat.ml:2041:26>>*/ return [0, [0, s, w], prec$0, fmt];
     }
@@ -18150,7 +18632,7 @@
      /*<<camlinternalFormat.ml:2042:26>>*/ return [0, [1, s$0], prec$0, fmt];
     /*<<camlinternalFormat.ml:2042:69>>*/ }
    function fmt_ebb_of_string(legacy_behavior, str){
-     /*<<?>>*/ if(legacy_behavior)
+     /*<<camlinternalFormat.ml:2066:2>>*/ if(legacy_behavior)
      var flag = legacy_behavior[1], legacy_behavior$0 = flag;
     else
      var legacy_behavior$0 = 1;
@@ -18177,18 +18659,18 @@
        var
         match =
            /*<<camlinternalFormat.ml:2125:12>>*/ caml_string_get(str, str_ind);
-       if(37 === match) break;
+        /*<<camlinternalFormat.ml:2125:25>>*/ if(37 === match) break;
        if(64 === match) break a;
-       var str_ind$1 = str_ind + 1 | 0;
+       var str_ind$1 =  /*<<camlinternalFormat.ml:2133:8>>*/ str_ind + 1 | 0;
        str_ind = str_ind$1;
       }
-      var str_ind$2 = str_ind + 1 | 0;
-      if(str_ind$2 === end_ind)
+      var str_ind$2 =  /*<<camlinternalFormat.ml:2137:25>>*/ str_ind + 1 | 0;
+       /*<<camlinternalFormat.ml:2141:4>>*/ if(str_ind$2 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
       var
        match$1 =
-         95
+          /*<<camlinternalFormat.ml:2142:23>>*/ 95
           ===
             /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
             (str, str_ind$2)
@@ -18196,11 +18678,11 @@
             (str_ind, str_ind$2 + 1 | 0, end_ind, 1)
           :  /*<<camlinternalFormat.ml:2144:13>>*/ parse_flags
             (str_ind, str_ind$2, end_ind, 0),
-       fmt_rest = match$1[1];
+       fmt_rest =  /*<<camlinternalFormat.ml:2127:59>>*/ match$1[1];
        /*<<camlinternalFormat.ml:2128:8>>*/ return add_literal
               (lit_start, str_ind, fmt_rest) /*<<camlinternalFormat.ml:2119:62>>*/ ;
      }
-     var str_ind$0 = str_ind + 1 | 0;
+     var str_ind$0 =  /*<<camlinternalFormat.ml:2130:8>>*/ str_ind + 1 | 0;
      a:
      if(str_ind$0 === end_ind)
       var match$0 = _N_;
@@ -18209,7 +18691,7 @@
        c =
           /*<<camlinternalFormat.ml:2593:12>>*/ caml_string_get
           (str, str_ind$0);
-      if(65 <= c){
+       /*<<camlinternalFormat.ml:2593:25>>*/ if(65 <= c){
        if(94 <= c){
         var switcher = c - 123 | 0;
         if(2 >= switcher >>> 0)
@@ -18224,7 +18706,7 @@
            default:
             var
              fmt_rest$2 =
-                /*<<camlinternalFormat.ml:2602:31>>*/ parse
+                /*<<camlinternalFormat.ml:2602:58>>*/  /*<<camlinternalFormat.ml:2602:31>>*/ parse
                  (str_ind$0 + 1 | 0, end_ind)
                 [1],
              match$0 = [0, [17, 1, fmt_rest$2]];
@@ -18243,7 +18725,7 @@
           default:
            var
             fmt_rest$3 =
-               /*<<camlinternalFormat.ml:2597:31>>*/ parse
+               /*<<camlinternalFormat.ml:2597:58>>*/  /*<<camlinternalFormat.ml:2597:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 0, fmt_rest$3]];
@@ -18254,7 +18736,7 @@
        if(10 === c){
         var
          fmt_rest$4 =
-            /*<<camlinternalFormat.ml:2616:31>>*/ parse
+            /*<<camlinternalFormat.ml:2616:58>>*/  /*<<camlinternalFormat.ml:2616:31>>*/ parse
              (str_ind$0 + 1 | 0, end_ind)
             [1],
          match$0 = [0, [17, 3, fmt_rest$4]];
@@ -18265,13 +18747,13 @@
           case 0:
            var
             fmt_rest$5 =
-               /*<<camlinternalFormat.ml:2608:31>>*/ parse
+               /*<<camlinternalFormat.ml:2608:58>>*/  /*<<camlinternalFormat.ml:2608:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, _O_, fmt_rest$5]];
            break a;
           case 5:
-           if
+            /*<<camlinternalFormat.ml:2626:17>>*/ if
             ((str_ind$0 + 1 | 0) < end_ind
              &&
               37
@@ -18280,7 +18762,7 @@
                 (str, str_ind$0 + 1 | 0)){
             var
              fmt_rest$6 =
-                /*<<camlinternalFormat.ml:2627:31>>*/ parse
+                /*<<camlinternalFormat.ml:2627:58>>*/  /*<<camlinternalFormat.ml:2627:31>>*/ parse
                  (str_ind$0 + 2 | 0, end_ind)
                 [1],
              match$0 = [0, [17, 6, fmt_rest$6]];
@@ -18288,14 +18770,15 @@
            }
            var
             fmt_rest$7 =
-               /*<<camlinternalFormat.ml:2630:31>>*/ parse(str_ind$0, end_ind)
+               /*<<camlinternalFormat.ml:2630:52>>*/  /*<<camlinternalFormat.ml:2630:31>>*/ parse
+                (str_ind$0, end_ind)
                [1],
             match$0 = [0, [12, 64, fmt_rest$7]];
            break a;
           case 12:
            var
             fmt_rest$8 =
-               /*<<camlinternalFormat.ml:2605:31>>*/ parse
+               /*<<camlinternalFormat.ml:2605:58>>*/  /*<<camlinternalFormat.ml:2605:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, _P_, fmt_rest$8]];
@@ -18303,13 +18786,15 @@
           case 14:
            var
             fmt_rest$9 =
-               /*<<camlinternalFormat.ml:2619:31>>*/ parse
+               /*<<camlinternalFormat.ml:2619:58>>*/  /*<<camlinternalFormat.ml:2619:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 4, fmt_rest$9]];
            break a;
           case 27:
-           var str_ind$3 = str_ind$0 + 1 | 0;
+           var
+            str_ind$3 =
+               /*<<camlinternalFormat.ml:2611:8>>*/ str_ind$0 + 1 | 0;
            b:
            try{
             var
@@ -18335,7 +18820,7 @@
                 (str, str_ind_1);
             c:
             {
-             if(48 <= match$2){
+              /*<<camlinternalFormat.ml:2668:29>>*/ if(48 <= match$2){
               if(58 > match$2) break c;
              }
              else if(45 === match$2) break c;
@@ -18346,17 +18831,17 @@
              match$3 =
                 /*<<camlinternalFormat.ml:2670:33>>*/ parse_integer
                 (str_ind_1, end_ind),
-             width = match$3[2],
+             width =  /*<<camlinternalFormat.ml:2670:64>>*/ match$3[2],
              str_ind_2 = match$3[1],
              str_ind_3 =
                 /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
                 (str_ind_2, end_ind),
              switcher$0 =
-                /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
+                /*<<camlinternalFormat.ml:2672:33>>*/  /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
                 (str, str_ind_3)
                - 45
                | 0;
-            if(12 < switcher$0 >>> 0){
+             /*<<camlinternalFormat.ml:2672:33>>*/ if(12 < switcher$0 >>> 0){
              if(17 === switcher$0){
               var
                s =
@@ -18365,7 +18850,7 @@
                    str,
                    str_ind$3 - 2 | 0,
                    (str_ind_3 - str_ind$3 | 0) + 3 | 0),
-               _bi_ =  /*<<camlinternalFormat.ml:2675:31>>*/ [0, s, width, 0],
+               _bi_ =  /*<<camlinternalFormat.ml:2675:16>>*/ [0, s, width, 0],
                _bj_ = str_ind_3 + 1 | 0,
                formatting_lit$0 = _bi_,
                next_ind = _bj_;
@@ -18377,12 +18862,12 @@
               match$4 =
                  /*<<camlinternalFormat.ml:2677:40>>*/ parse_integer
                  (str_ind_3, end_ind),
-              offset = match$4[2],
+              offset =  /*<<camlinternalFormat.ml:2677:71>>*/ match$4[2],
               str_ind_4 = match$4[1],
               str_ind_5 =
                  /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
                  (str_ind_4, end_ind);
-             if
+              /*<<camlinternalFormat.ml:2679:34>>*/ if
               (62
                !==
                  /*<<camlinternalFormat.ml:2679:19>>*/ caml_string_get
@@ -18397,7 +18882,7 @@
                   str_ind$3 - 2 | 0,
                   (str_ind_5 - str_ind$3 | 0) + 3 | 0),
               _bk_ =
-                 /*<<camlinternalFormat.ml:2681:31>>*/ [0, s$0, width, offset],
+                 /*<<camlinternalFormat.ml:2681:16>>*/ [0, s$0, width, offset],
               _bl_ = str_ind_5 + 1 | 0,
               formatting_lit$0 = _bk_,
               next_ind = _bl_;
@@ -18414,13 +18899,16 @@
            }
            var
             fmt_rest$12 =
-               /*<<camlinternalFormat.ml:2688:27>>*/ parse(next_ind, end_ind)
+               /*<<camlinternalFormat.ml:2688:49>>*/  /*<<camlinternalFormat.ml:2688:27>>*/ parse
+                (next_ind, end_ind)
                [1],
             match$0 = [0, [17, formatting_lit$0, fmt_rest$12]];
            break a;
           case 28:
-           var str_ind$4 = str_ind$0 + 1 | 0;
-            /*<<camlinternalFormat.ml:2694:4>>*/ try{
+           var
+            str_ind$4 =
+               /*<<camlinternalFormat.ml:2622:8>>*/ str_ind$0 + 1 | 0;
+           try{
             var
              str_ind_1$0 =
                 /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
@@ -18432,7 +18920,7 @@
             {
              c:
              {
-              if(48 <= match$6){
+               /*<<camlinternalFormat.ml:2697:29>>*/ if(48 <= match$6){
                if(58 > match$6) break c;
               }
               else if(45 === match$6) break c;
@@ -18443,12 +18931,12 @@
               match$7 =
                  /*<<camlinternalFormat.ml:2699:32>>*/ parse_integer
                  (str_ind_1$0, end_ind),
-              size = match$7[2],
+              size =  /*<<camlinternalFormat.ml:2699:63>>*/ match$7[2],
               str_ind_2$0 = match$7[1],
               str_ind_3$0 =
                  /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
                  (str_ind_2$0, end_ind);
-             if
+              /*<<camlinternalFormat.ml:2701:28>>*/ if
               (62
                !==
                  /*<<camlinternalFormat.ml:2701:13>>*/ caml_string_get
@@ -18478,14 +18966,14 @@
              formatting_lit$1 = match$5[2],
              next_ind$0 = match$5[1],
              fmt_rest$13 =
-                /*<<camlinternalFormat.ml:2709:29>>*/ parse
+                /*<<camlinternalFormat.ml:2709:51>>*/  /*<<camlinternalFormat.ml:2709:29>>*/ parse
                  (next_ind$0, end_ind)
                 [1],
              _be_ = [0, [17, formatting_lit$1, fmt_rest$13]];
            else
             var
              fmt_rest$14 =
-                /*<<camlinternalFormat.ml:2712:29>>*/ parse
+                /*<<camlinternalFormat.ml:2712:50>>*/  /*<<camlinternalFormat.ml:2712:29>>*/ parse
                  (str_ind$4, end_ind)
                 [1],
              _be_ = [0, [17, _Q_, fmt_rest$14]];
@@ -18494,7 +18982,7 @@
           case 31:
            var
             fmt_rest$10 =
-               /*<<camlinternalFormat.ml:2613:31>>*/ parse
+               /*<<camlinternalFormat.ml:2613:58>>*/  /*<<camlinternalFormat.ml:2613:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 2, fmt_rest$10]];
@@ -18502,7 +18990,7 @@
           case 32:
            var
             fmt_rest$11 =
-               /*<<camlinternalFormat.ml:2624:31>>*/ parse
+               /*<<camlinternalFormat.ml:2624:58>>*/  /*<<camlinternalFormat.ml:2624:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 = [0, [17, 5, fmt_rest$11]];
@@ -18511,24 +18999,26 @@
       }
       var
        fmt_rest$1 =
-          /*<<camlinternalFormat.ml:2633:31>>*/ parse
+          /*<<camlinternalFormat.ml:2633:58>>*/  /*<<camlinternalFormat.ml:2633:31>>*/ parse
            (str_ind$0 + 1 | 0, end_ind)
           [1],
        match$0 = [0, [17, [2, c], fmt_rest$1]];
      }
-     var fmt_rest$0 = match$0[1];
+     var fmt_rest$0 =  /*<<camlinternalFormat.ml:2130:67>>*/ match$0[1];
       /*<<camlinternalFormat.ml:2131:8>>*/ return add_literal
              (lit_start, str_ind, fmt_rest$0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
     }
     function parse_flags(pct_ind, str_ind, end_ind, ign){
      var
-      zero =  /*<<camlinternalFormat.ml:2149:15>>*/ [0, 0],
-      minus =  /*<<camlinternalFormat.ml:2149:37>>*/ [0, 0],
-      plus =  /*<<camlinternalFormat.ml:2150:15>>*/ [0, 0],
-      space =  /*<<camlinternalFormat.ml:2150:37>>*/ [0, 0],
-      hash =  /*<<camlinternalFormat.ml:2151:15>>*/ [0, 0];
+      zero =  /*<<camlinternalFormat.ml:2149:4>>*/ [0, 0],
+      minus = [0, 0],
+      plus = [0, 0],
+      space = [0, 0],
+      hash = [0, 0];
      function set_flag(str_ind, flag){
-      var _bb_ = flag[1], _bc_ = _bb_ ? 1 - legacy_behavior$0 : _bb_;
+      var
+       _bb_ =  /*<<camlinternalFormat.ml:2154:6>>*/ flag[1],
+       _bc_ = _bb_ ? 1 - legacy_behavior$0 : _bb_;
       if(_bc_){
        var
         _bd_ =
@@ -18549,35 +19039,45 @@
          (end_ind, cst_unexpected_end_of_format);
        var
         switcher =
-           /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:2162:31>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
            (str, str_ind$0)
           - 32
           | 0;
-       if(16 < switcher >>> 0) break b;
+        /*<<camlinternalFormat.ml:2162:31>>*/ if(16 < switcher >>> 0) break b;
        switch(switcher){
          case 0:
            /*<<camlinternalFormat.ml:2167:15>>*/ set_flag(str_ind$0, space);
-          var str_ind$1 = str_ind$0 + 1 | 0;
+          var
+           str_ind$1 =
+              /*<<camlinternalFormat.ml:2167:37>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$1;
           break;
          case 3:
            /*<<camlinternalFormat.ml:2166:15>>*/ set_flag(str_ind$0, hash);
-          var str_ind$2 = str_ind$0 + 1 | 0;
+          var
+           str_ind$2 =
+              /*<<camlinternalFormat.ml:2166:36>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$2;
           break;
          case 11:
            /*<<camlinternalFormat.ml:2165:15>>*/ set_flag(str_ind$0, plus);
-          var str_ind$3 = str_ind$0 + 1 | 0;
+          var
+           str_ind$3 =
+              /*<<camlinternalFormat.ml:2165:36>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$3;
           break;
          case 13:
            /*<<camlinternalFormat.ml:2164:15>>*/ set_flag(str_ind$0, minus);
-          var str_ind$4 = str_ind$0 + 1 | 0;
+          var
+           str_ind$4 =
+              /*<<camlinternalFormat.ml:2164:37>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$4;
           break;
          case 16:
            /*<<camlinternalFormat.ml:2163:15>>*/ set_flag(str_ind$0, zero);
-          var str_ind$5 = str_ind$0 + 1 | 0;
+          var
+           str_ind$5 =
+              /*<<camlinternalFormat.ml:2163:36>>*/ str_ind$0 + 1 | 0;
           str_ind$0 = str_ind$5;
           break;
          default: break c;
@@ -18586,12 +19086,12 @@
       break a;
      }
      var
-      space$0 = space[1],
+      space$0 =  /*<<camlinternalFormat.ml:2169:8>>*/ space[1],
       hash$0 = hash[1],
       plus$0 = plus[1],
       minus$0 = minus[1],
       zero$0 = zero[1];
-     if(str_ind$0 === end_ind)
+      /*<<camlinternalFormat.ml:2180:4>>*/ if(str_ind$0 === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
      var
@@ -18606,15 +19106,15 @@
          : minus$0 ? 0 : 1,
       match =
          /*<<camlinternalFormat.ml:2188:10>>*/ caml_string_get(str, str_ind$0);
-     if(48 <= match){
+      /*<<camlinternalFormat.ml:2188:23>>*/ if(48 <= match){
       if(58 > match){
        var
         match$0 =
            /*<<camlinternalFormat.ml:2190:27>>*/ parse_positive
            (str_ind$0, end_ind, 0),
-        width = match$0[2],
+        width =  /*<<camlinternalFormat.ml:2190:59>>*/ match$0[2],
         new_ind = match$0[1];
-        /*<<camlinternalFormat.ml:2192:8>>*/ return parse_after_padding
+        /*<<camlinternalFormat.ml:2191:6>>*/ return parse_after_padding
                (pct_ind,
                 new_ind,
                 end_ind,
@@ -18627,7 +19127,7 @@
       }
      }
      else if(42 === match)
-       /*<<camlinternalFormat.ml:2195:12>>*/ return parse_after_padding
+       /*<<camlinternalFormat.ml:2194:6>>*/ return parse_after_padding
               (pct_ind,
                str_ind$0 + 1 | 0,
                end_ind,
@@ -18637,9 +19137,9 @@
                space$0,
                ign,
                [1, padty]) /*<<camlinternalFormat.ml:2173:22>>*/ ;
-     switch(padty){
+      /*<<camlinternalFormat.ml:2197:6>>*/ switch(padty){
        case 0:
-        if(1 - legacy_behavior$0)
+         /*<<camlinternalFormat.ml:2199:8>>*/ if(1 - legacy_behavior$0)
           /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
           (str_ind$0 - 1 | 0, 45, cst_padding);
         return parse_after_padding
@@ -18684,7 +19184,7 @@
      var
       symb =
          /*<<camlinternalFormat.ml:2220:10>>*/ caml_string_get(str, str_ind);
-     if(46 !== symb)
+      /*<<camlinternalFormat.ml:2220:23>>*/ if(46 !== symb)
        /*<<camlinternalFormat.ml:2225:6>>*/ return parse_conversion
               (pct_ind,
                str_ind + 1 | 0,
@@ -18697,8 +19197,8 @@
                0,
                pad,
                symb) /*<<camlinternalFormat.ml:2226:29>>*/ ;
-     var str_ind$0 = str_ind + 1 | 0;
-     if(str_ind$0 === end_ind)
+     var str_ind$0 =  /*<<camlinternalFormat.ml:2222:6>>*/ str_ind + 1 | 0;
+      /*<<camlinternalFormat.ml:2233:4>>*/ if(str_ind$0 === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
      function parse_literal(minus, str_ind){
@@ -18706,9 +19206,9 @@
        match =
           /*<<camlinternalFormat.ml:2235:26>>*/ parse_positive
           (str_ind, end_ind, 0),
-       prec = match[2],
+       prec =  /*<<camlinternalFormat.ml:2235:58>>*/ match[2],
        new_ind = match[1];
-       /*<<camlinternalFormat.ml:2237:12>>*/ return parse_after_precision
+       /*<<camlinternalFormat.ml:2236:6>>*/ return parse_after_precision
               (pct_ind,
                new_ind,
                end_ind,
@@ -18723,7 +19223,7 @@
      var
       symb$0 =
          /*<<camlinternalFormat.ml:2238:10>>*/ caml_string_get(str, str_ind$0);
-     if(48 <= symb$0){
+      /*<<camlinternalFormat.ml:2238:23>>*/ if(48 <= symb$0){
       if(58 > symb$0)
         /*<<camlinternalFormat.ml:2239:20>>*/ return parse_literal
                (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
@@ -18744,7 +19244,7 @@
                   1) /*<<camlinternalFormat.ml:2226:29>>*/ ;
         case 1:
         case 3:
-         if(legacy_behavior$0){
+          /*<<camlinternalFormat.ml:2240:31>>*/ if(legacy_behavior$0){
           var
            _ba_ =  /*<<camlinternalFormat.ml:2249:6>>*/ str_ind$0 + 1 | 0,
            minus$0 = minus || (45 === symb$0 ? 1 : 0);
@@ -18752,7 +19252,7 @@
          }
          break;
       }
-     return legacy_behavior$0
+      /*<<camlinternalFormat.ml:2254:6>>*/ return legacy_behavior$0
              ?  /*<<camlinternalFormat.ml:2258:8>>*/ parse_after_precision
                (pct_ind,
                 str_ind$0,
@@ -18773,7 +19273,7 @@
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
      function parse_conv(padprec){
-       /*<<camlinternalFormat.ml:2270:6>>*/ return  /*<<camlinternalFormat.ml:2271:21>>*/ parse_conversion
+       /*<<camlinternalFormat.ml:2270:6>>*/ return  /*<<camlinternalFormat.ml:2271:34>>*/ parse_conversion
               (pct_ind,
                str_ind + 1 | 0,
                end_ind,
@@ -18784,22 +19284,24 @@
                pad,
                prec,
                padprec,
-               caml_string_get(str, str_ind)) /*<<camlinternalFormat.ml:2271:34>>*/ ;
+                /*<<camlinternalFormat.ml:2271:21>>*/ caml_string_get
+                (str, str_ind)) /*<<camlinternalFormat.ml:2271:34>>*/ ;
      }
-     if(typeof pad !== "number")
+      /*<<camlinternalFormat.ml:2278:4>>*/ if(typeof pad !== "number")
        /*<<camlinternalFormat.ml:2287:13>>*/ return parse_conv(pad) /*<<camlinternalFormat.ml:2287:27>>*/ ;
-     if(typeof prec === "number" && ! prec)
+      /*<<camlinternalFormat.ml:2279:20>>*/ if
+      (typeof prec === "number" && ! prec)
        /*<<camlinternalFormat.ml:2281:29>>*/ return parse_conv(0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      if(minus){
       if(typeof prec === "number")
         /*<<camlinternalFormat.ml:2285:33>>*/ return parse_conv(_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
       var n = prec[1];
-       /*<<camlinternalFormat.ml:2283:46>>*/ return parse_conv([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+       /*<<camlinternalFormat.ml:2283:35>>*/ return parse_conv([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      }
      if(typeof prec === "number")
        /*<<camlinternalFormat.ml:2284:34>>*/ return parse_conv(_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      var n$0 = prec[1];
-      /*<<camlinternalFormat.ml:2282:47>>*/ return parse_conv([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
+      /*<<camlinternalFormat.ml:2282:36>>*/ return parse_conv([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
     }
     function parse_conversion
     (pct_ind,
@@ -18814,45 +19316,46 @@
      padprec,
      symb){
      var
-      plus_used =  /*<<camlinternalFormat.ml:2295:21>>*/ [0, 0],
-      hash_used =  /*<<camlinternalFormat.ml:2295:47>>*/ [0, 0],
-      space_used =  /*<<camlinternalFormat.ml:2296:21>>*/ [0, 0],
-      ign_used =  /*<<camlinternalFormat.ml:2296:48>>*/ [0, 0],
-      pad_used =  /*<<camlinternalFormat.ml:2297:21>>*/ [0, 0],
-      prec_used =  /*<<camlinternalFormat.ml:2297:48>>*/ [0, 0];
+      plus_used =  /*<<camlinternalFormat.ml:2295:4>>*/ [0, 0],
+      hash_used = [0, 0],
+      space_used = [0, 0],
+      ign_used = [0, 0],
+      pad_used = [0, 0],
+      prec_used = [0, 0];
      function get_plus(param){
        /*<<camlinternalFormat.ml:2300:25>>*/ plus_used[1] = 1;
-       /*<<camlinternalFormat.ml:2300:4>>*/ return plus;
+       /*<<camlinternalFormat.ml:2300:45>>*/ return plus;
       /*<<camlinternalFormat.ml:2300:49>>*/ }
      function get_hash(param){
        /*<<camlinternalFormat.ml:2301:24>>*/ hash_used[1] = 1;
-      return hash;
+       /*<<camlinternalFormat.ml:2301:43>>*/ return hash;
       /*<<camlinternalFormat.ml:2301:47>>*/ }
      function get_space(param){
        /*<<camlinternalFormat.ml:2302:25>>*/ space_used[1] = 1;
-      return space;
+       /*<<camlinternalFormat.ml:2302:45>>*/ return space;
       /*<<camlinternalFormat.ml:2302:50>>*/ }
      function get_ign(param){
        /*<<camlinternalFormat.ml:2303:25>>*/ ign_used[1] = 1;
-      return ign;
+       /*<<camlinternalFormat.ml:2303:45>>*/ return ign;
       /*<<camlinternalFormat.ml:2303:48>>*/ }
      function get_pad(param){
        /*<<camlinternalFormat.ml:2304:25>>*/ pad_used[1] = 1;
-      return pad;
+       /*<<camlinternalFormat.ml:2304:45>>*/ return pad;
       /*<<camlinternalFormat.ml:2304:48>>*/ }
      function get_prec(param){
        /*<<camlinternalFormat.ml:2305:25>>*/ prec_used[1] = 1;
-      return prec;
+       /*<<camlinternalFormat.ml:2305:45>>*/ return prec;
       /*<<camlinternalFormat.ml:2305:49>>*/ }
      function get_padprec(param){
        /*<<camlinternalFormat.ml:2306:25>>*/ pad_used[1] = 1;
-      return padprec;
+       /*<<camlinternalFormat.ml:2306:45>>*/ return padprec;
       /*<<camlinternalFormat.ml:2306:52>>*/ }
      function get_int_pad(param){
       var
        pad =  /*<<camlinternalFormat.ml:2320:13>>*/ get_pad(0),
        match =  /*<<camlinternalFormat.ml:2320:25>>*/ get_prec(0);
-      if(typeof match === "number" && ! match)
+       /*<<camlinternalFormat.ml:2320:36>>*/ if
+       (typeof match === "number" && ! match)
         /*<<camlinternalFormat.ml:2321:32>>*/ return pad;
       if(typeof pad === "number")
         /*<<camlinternalFormat.ml:2322:32>>*/ return 0;
@@ -18912,12 +19415,12 @@
               (pct_ind, str_ind, c, cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
      }
      function get_pad_opt(c){
-       /*<<camlinternalFormat.ml:2360:24>>*/ return  /*<<camlinternalFormat.ml:2360:37>>*/ opt_of_pad
-              (c, get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
+       /*<<camlinternalFormat.ml:2360:24>>*/ return  /*<<camlinternalFormat.ml:2360:49>>*/ opt_of_pad
+              (c,  /*<<camlinternalFormat.ml:2360:37>>*/ get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
      }
      function get_padprec_opt(c){
-       /*<<camlinternalFormat.ml:2361:28>>*/ return  /*<<camlinternalFormat.ml:2361:41>>*/ opt_of_pad
-              (c, get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
+       /*<<camlinternalFormat.ml:2361:28>>*/ return  /*<<camlinternalFormat.ml:2361:57>>*/ opt_of_pad
+              (c,  /*<<camlinternalFormat.ml:2361:41>>*/ get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
      }
      a:
      {
@@ -18926,7 +19429,9 @@
          case 33:
           var
            fmt_rest$5 =
-              /*<<camlinternalFormat.ml:2515:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2515:50>>*/  /*<<camlinternalFormat.ml:2515:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            fmt_result = [0, [10, fmt_rest$5]];
           break a;
          case 40:
@@ -18935,17 +19440,20 @@
               /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
               (str_ind, end_ind, 41),
            fmt_rest$7 =
-              /*<<camlinternalFormat.ml:2532:29>>*/ parse
+              /*<<camlinternalFormat.ml:2532:56>>*/  /*<<camlinternalFormat.ml:2532:29>>*/ parse
                (sub_end + 2 | 0, end_ind)
               [1],
            sub_fmt =
-              /*<<camlinternalFormat.ml:2533:28>>*/ parse(str_ind, sub_end)[1],
+              /*<<camlinternalFormat.ml:2533:49>>*/  /*<<camlinternalFormat.ml:2533:28>>*/ parse
+               (str_ind, sub_end)
+              [1],
            sub_fmtty =
               /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt(sub_fmt);
-           /*<<camlinternalFormat.ml:2535:9>>*/ if(get_ign(0))
+           /*<<camlinternalFormat.ml:2535:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2535:9>>*/ get_ign(0))
            var
             ignored$2 =
-               /*<<camlinternalFormat.ml:2536:22>>*/ [9,
+               /*<<camlinternalFormat.ml:2536:59>>*/ [9,
                 /*<<camlinternalFormat.ml:2536:44>>*/ get_pad_opt(95),
                sub_fmtty],
             _aJ_ = [0, [23, ignored$2, fmt_rest$7]];
@@ -18967,9 +19475,12 @@
          case 67:
           var
            fmt_rest$10 =
-              /*<<camlinternalFormat.ml:2396:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2396:50>>*/  /*<<camlinternalFormat.ml:2396:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            _aL_ =
-              /*<<camlinternalFormat.ml:2397:9>>*/ get_ign(0)
+              /*<<camlinternalFormat.ml:2397:19>>*/  /*<<camlinternalFormat.ml:2397:9>>*/ get_ign
+               (0)
               ? [0, [23, 1, fmt_rest$10]]
               : [0, [1, fmt_rest$10]],
            fmt_result = _aL_;
@@ -18977,11 +19488,14 @@
          case 78:
           var
            fmt_rest$14 =
-              /*<<camlinternalFormat.ml:2431:29>>*/ parse(str_ind, end_ind)[1],
-           counter$0 = 2;
-           /*<<camlinternalFormat.ml:2433:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2431:50>>*/  /*<<camlinternalFormat.ml:2431:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
+           counter$0 =  /*<<camlinternalFormat.ml:2431:50>>*/ 2;
+           /*<<camlinternalFormat.ml:2433:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2433:9>>*/ get_ign(0))
            var
-            ignored$6 =  /*<<camlinternalFormat.ml:2434:22>>*/ [11, counter$0],
+            ignored$6 =  /*<<camlinternalFormat.ml:2434:8>>*/ [11, counter$0],
             _aR_ = [0, [23, ignored$6, fmt_rest$14]];
           else
            var _aR_ = [0, [21, counter$0, fmt_rest$14]];
@@ -18993,11 +19507,14 @@
               /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
               (symb,  /*<<camlinternalFormat.ml:2410:32>>*/ get_padprec(0)),
            fmt_rest$15 =
-              /*<<camlinternalFormat.ml:2411:29>>*/ parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2412:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2411:50>>*/  /*<<camlinternalFormat.ml:2411:29>>*/ parse
+               (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2412:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2412:9>>*/ get_ign(0))
            var
             ignored$7 =
-               /*<<camlinternalFormat.ml:2413:22>>*/ [1,
+               /*<<camlinternalFormat.ml:2413:63>>*/ [1,
                 /*<<camlinternalFormat.ml:2413:42>>*/ get_padprec_opt(95)],
             _aS_ = [0, [23, ignored$7, fmt_rest$15]];
           else
@@ -19005,20 +19522,20 @@
             match$5 =
                /*<<camlinternalFormat.ml:2417:10>>*/ make_padding_fmt_ebb
                (pad$6, fmt_rest$15),
-            fmt_rest$16 = match$5[2],
+            fmt_rest$16 =  /*<<camlinternalFormat.ml:2417:43>>*/ match$5[2],
             pad$7 = match$5[1],
             _aS_ = [0, [3, pad$7, fmt_rest$16]];
           var fmt_result = _aS_;
           break a;
          case 91:
-          if(str_ind === end_ind)
+           /*<<camlinternalFormat.ml:2717:4>>*/ if(str_ind === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
           var
            char_set =
               /*<<camlinternalFormat.ml:2719:19>>*/ create_char_set(0),
            add_range =
-             function(c$0, c){
+              /*<<camlinternalFormat.ml:2723:4>>*/ function(c$0, c){
                /*<<camlinternalFormat.ml:2724:6>>*/ if(c >= c$0){
                var i = c$0;
                for(;;){
@@ -19026,19 +19543,20 @@
                  (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
                    (Stdlib[29], i));
-                var _a$_ =  /*<<camlinternalFormat.ml:2725:8>>*/ i + 1 | 0;
+                var _a$_ =  /*<<camlinternalFormat.ml:2725:48>>*/ i + 1 | 0;
                 if(c === i) break;
                 i = _a$_;
                }
               }
               /*<<camlinternalFormat.ml:2726:10>>*/ },
            fail_single_percent =
-             function(str_ind){
+              /*<<camlinternalFormat.ml:2729:4>>*/ function(str_ind){
                /*<<camlinternalFormat.ml:2730:6>>*/ return caml_call2
                       (failwith_message(_R_), str, str_ind) /*<<camlinternalFormat.ml:2732:54>>*/ ;
              },
            parse_char_set_content =
-             function(counter, str_ind, end_ind){
+              /*<<camlinternalFormat.ml:2736:4>>*/ function
+             (counter, str_ind, end_ind){
               var str_ind$0 = str_ind;
                /*<<camlinternalFormat.ml:2743:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
@@ -19048,26 +19566,31 @@
                 c =
                    /*<<camlinternalFormat.ml:2744:12>>*/ caml_string_get
                    (str, str_ind$0);
-               if(45 !== c){
+                /*<<camlinternalFormat.ml:2744:25>>*/ if(45 !== c){
                 if(93 === c)
                   /*<<camlinternalFormat.ml:2746:8>>*/ return str_ind$0 + 1
                         | 0;
-                var _a__ = str_ind$0 + 1 | 0;
-                 /*<<camlinternalFormat.ml:2751:8>>*/ if(counter >= 50)
+                var
+                 _a__ =
+                    /*<<camlinternalFormat.ml:2751:8>>*/ str_ind$0 + 1 | 0;
+                if(counter >= 50)
                  return caml_trampoline_return
                          (parse_char_set_after_char$0, [0, _a__, end_ind, c]) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                 var counter$0 = counter + 1 | 0;
-                 /*<<camlinternalFormat.ml:2751:8>>*/ return parse_char_set_after_char$0
-                        (counter$0, _a__, end_ind, c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
+                return parse_char_set_after_char$0
+                        (counter$0, _a__, end_ind, c);
                }
                 /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                 (char_set, 45);
-               var str_ind$1 = str_ind$0 + 1 | 0;
+               var
+                str_ind$1 =
+                   /*<<camlinternalFormat.ml:2748:20>>*/ str_ind$0 + 1 | 0;
                str_ind$0 = str_ind$1;
               }
               /*<<camlinternalFormat.ml:2751:57>>*/ },
            parse_char_set_after_char$0 =
-             function(counter, str_ind, end_ind, c){
+              /*<<camlinternalFormat.ml:2736:4>>*/ function
+             (counter, str_ind, end_ind, c){
               var str_ind$0 = str_ind, c$0 = c;
                /*<<camlinternalFormat.ml:2755:6>>*/ for(;;){
                if(str_ind$0 === end_ind)
@@ -19079,103 +19602,114 @@
                    (str, str_ind$0);
                a:
                {
-                if(46 <= c$1){
+                 /*<<camlinternalFormat.ml:2756:25>>*/ if(46 <= c$1){
                  if(64 !== c$1){
                   if(93 !== c$1) break a;
                    /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                    (char_set, c$0);
-                   /*<<camlinternalFormat.ml:2758:8>>*/ return str_ind$0 + 1
+                   /*<<camlinternalFormat.ml:2758:18>>*/ return str_ind$0 + 1
                          | 0;
                  }
                 }
                 else if(37 !== c$1){
                  if(45 > c$1) break a;
-                 var str_ind$2 = str_ind$0 + 1 | 0;
-                 if(str_ind$2 === end_ind)
+                 var
+                  str_ind$2 =
+                     /*<<camlinternalFormat.ml:2761:8>>*/ str_ind$0 + 1 | 0;
+                  /*<<camlinternalFormat.ml:2775:6>>*/ if
+                  (str_ind$2 === end_ind)
                    /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                    (end_ind, cst_unexpected_end_of_format);
                  var
                   c$2 =
                      /*<<camlinternalFormat.ml:2776:12>>*/ caml_string_get
                      (str, str_ind$2);
-                 if(37 === c$2){
-                  if((str_ind$2 + 1 | 0) === end_ind)
+                  /*<<camlinternalFormat.ml:2776:25>>*/ if(37 === c$2){
+                   /*<<camlinternalFormat.ml:2782:8>>*/ if
+                   ((str_ind$2 + 1 | 0) === end_ind)
                     /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                     (end_ind, cst_unexpected_end_of_format);
                   var
                    c$3 =
                       /*<<camlinternalFormat.ml:2783:20>>*/ caml_string_get
                       (str, str_ind$2 + 1 | 0);
-                  if(37 !== c$3 && 64 !== c$3)
+                   /*<<camlinternalFormat.ml:2783:37>>*/ if
+                   (37 !== c$3 && 64 !== c$3)
                     /*<<camlinternalFormat.ml:2787:17>>*/ return fail_single_percent
                            (str_ind$2) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                    /*<<camlinternalFormat.ml:2785:12>>*/ add_range(c$0, c$3);
-                  var _a8_ = str_ind$2 + 2 | 0;
+                  var
+                   _a8_ =
+                      /*<<camlinternalFormat.ml:2785:26>>*/ str_ind$2 + 2 | 0;
                   if(counter >= 50)
                    return caml_trampoline_return
                            (parse_char_set_content, [0, _a8_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                   var counter$1 = counter + 1 | 0;
-                   /*<<camlinternalFormat.ml:2785:12>>*/ return parse_char_set_content
-                          (counter$1, _a8_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                  return parse_char_set_content(counter$1, _a8_, end_ind);
                  }
                  if(93 === c$2){
                    /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                    (char_set, c$0);
                   add_in_char_set(char_set, 45);
-                   /*<<camlinternalFormat.ml:2779:8>>*/ return str_ind$2 + 1
+                   /*<<camlinternalFormat.ml:2779:20>>*/ return str_ind$2 + 1
                          | 0;
                  }
                   /*<<camlinternalFormat.ml:2790:8>>*/ add_range(c$0, c$2);
-                 var _a9_ = str_ind$2 + 1 | 0;
+                 var
+                  _a9_ =
+                     /*<<camlinternalFormat.ml:2790:22>>*/ str_ind$2 + 1 | 0;
                  if(counter >= 50)
                   return caml_trampoline_return
                           (parse_char_set_content, [0, _a9_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$0 = counter + 1 | 0;
-                  /*<<camlinternalFormat.ml:2790:8>>*/ return parse_char_set_content
-                         (counter$0, _a9_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                 return parse_char_set_content(counter$0, _a9_, end_ind);
                 }
-                if(37 === c$0){
+                 /*<<camlinternalFormat.ml:2762:31>>*/ if(37 === c$0){
                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                   (char_set, c$1);
-                 var _a7_ = str_ind$0 + 1 | 0;
-                  /*<<camlinternalFormat.ml:2763:8>>*/ if(counter >= 50)
+                 var
+                  _a7_ =
+                     /*<<camlinternalFormat.ml:2763:19>>*/ str_ind$0 + 1 | 0;
+                 if(counter >= 50)
                   return caml_trampoline_return
                           (parse_char_set_content, [0, _a7_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  var counter$2 = counter + 1 | 0;
-                  /*<<camlinternalFormat.ml:2763:8>>*/ return parse_char_set_content
-                         (counter$2, _a7_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
+                 return parse_char_set_content(counter$2, _a7_, end_ind);
                 }
                }
-               if(37 === c$0)
+                /*<<camlinternalFormat.ml:2766:8>>*/ if(37 === c$0)
                  /*<<camlinternalFormat.ml:2766:24>>*/ fail_single_percent
                  (str_ind$0);
                 /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                 (char_set, c$0);
-               var str_ind$1 = str_ind$0 + 1 | 0;
+               var
+                str_ind$1 =
+                   /*<<camlinternalFormat.ml:2770:18>>*/ str_ind$0 + 1 | 0;
                str_ind$0 = str_ind$1;
                c$0 = c$1;
               }
               /*<<camlinternalFormat.ml:2771:58>>*/ },
            parse_char_set_after_char =
-             function(str_ind, end_ind, c){
+              /*<<camlinternalFormat.ml:2736:4>>*/ function
+             (str_ind, end_ind, c){
                /*<<?>>*/ return caml_trampoline
                       (parse_char_set_after_char$0(0, str_ind, end_ind, c));
              };
-          if(str_ind === end_ind)
+           /*<<camlinternalFormat.ml:2793:4>>*/ if(str_ind === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
-          if
+           /*<<camlinternalFormat.ml:2795:25>>*/ if
            (94
             ===
               /*<<camlinternalFormat.ml:2795:12>>*/ caml_string_get
               (str, str_ind))
            var
-            str_ind$0 = str_ind + 1 | 0,
+            str_ind$0 =  /*<<camlinternalFormat.ml:2796:17>>*/ str_ind + 1 | 0,
             reverse = 1,
             str_ind$1 = str_ind$0;
           else
            var reverse = 0, str_ind$1 = str_ind;
-          if(str_ind$1 === end_ind)
+           /*<<camlinternalFormat.ml:2737:6>>*/ if(str_ind$1 === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
           var
@@ -19193,12 +19727,14 @@
                 (char_set$0)
               : char_set$0,
            fmt_rest$19 =
-              /*<<camlinternalFormat.ml:2542:29>>*/ parse(next_ind, end_ind)
+              /*<<camlinternalFormat.ml:2542:51>>*/  /*<<camlinternalFormat.ml:2542:29>>*/ parse
+               (next_ind, end_ind)
               [1];
-           /*<<camlinternalFormat.ml:2543:9>>*/ if(get_ign(0))
+           /*<<camlinternalFormat.ml:2543:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2543:9>>*/ get_ign(0))
            var
             ignored$9 =
-               /*<<camlinternalFormat.ml:2544:22>>*/ [10,
+               /*<<camlinternalFormat.ml:2544:60>>*/ [10,
                 /*<<camlinternalFormat.ml:2544:45>>*/ get_pad_opt(95),
                char_set$1],
             _aX_ = [0, [23, ignored$9, fmt_rest$19]];
@@ -19215,33 +19751,38 @@
          case 97:
           var
            fmt_rest$20 =
-              /*<<camlinternalFormat.ml:2505:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2505:50>>*/  /*<<camlinternalFormat.ml:2505:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            fmt_result = [0, [15, fmt_rest$20]];
           break a;
          case 99:
           var
            char_format =
-             function(fmt_rest){
+              /*<<camlinternalFormat.ml:2376:6>>*/ function(fmt_rest){
                /*<<camlinternalFormat.ml:2377:8>>*/ return  /*<<camlinternalFormat.ml:2377:11>>*/ get_ign
                        (0)
                       ? [0, [23, 0, fmt_rest]]
                       : [0, [0, fmt_rest]] /*<<camlinternalFormat.ml:2379:36>>*/ ;
              },
            fmt_rest$21 =
-              /*<<camlinternalFormat.ml:2386:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2386:50>>*/  /*<<camlinternalFormat.ml:2386:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            match$7 =  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt(99);
-          if(match$7){
+           /*<<camlinternalFormat.ml:2387:33>>*/ if(match$7){
            if(0 === match$7[1])
             var
              _aY_ =
-                /*<<camlinternalFormat.ml:2382:11>>*/ get_ign(0)
+                /*<<camlinternalFormat.ml:2382:21>>*/  /*<<camlinternalFormat.ml:2382:11>>*/ get_ign
+                 (0)
                 ? [0, [23, 3, fmt_rest$21]]
                 : [0, [22, fmt_rest$21]],
              _aZ_ = _aY_;
            else
             var
              _aZ_ =
-               legacy_behavior$0
+                /*<<camlinternalFormat.ml:2391:11>>*/ legacy_behavior$0
                 ?  /*<<camlinternalFormat.ml:2393:47>>*/ char_format
                   (fmt_rest$21)
                 :  /*<<camlinternalFormat.ml:2098:4>>*/ invalid_format_message
@@ -19257,9 +19798,12 @@
          case 114:
           var
            fmt_rest$22 =
-              /*<<camlinternalFormat.ml:2511:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2511:50>>*/  /*<<camlinternalFormat.ml:2511:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            _a1_ =
-              /*<<camlinternalFormat.ml:2512:9>>*/ get_ign(0)
+              /*<<camlinternalFormat.ml:2512:19>>*/  /*<<camlinternalFormat.ml:2512:9>>*/ get_ign
+               (0)
               ? [0, [23, 2, fmt_rest$22]]
               : [0, [19, fmt_rest$22]],
            fmt_result = _a1_;
@@ -19270,11 +19814,14 @@
               /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
               (symb,  /*<<camlinternalFormat.ml:2400:32>>*/ get_padprec(0)),
            fmt_rest$23 =
-              /*<<camlinternalFormat.ml:2401:29>>*/ parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2402:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2401:50>>*/  /*<<camlinternalFormat.ml:2401:29>>*/ parse
+               (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2402:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2402:9>>*/ get_ign(0))
            var
             ignored$10 =
-               /*<<camlinternalFormat.ml:2403:22>>*/ [0,
+               /*<<camlinternalFormat.ml:2403:58>>*/ [0,
                 /*<<camlinternalFormat.ml:2403:37>>*/ get_padprec_opt(95)],
             _a2_ = [0, [23, ignored$10, fmt_rest$23]];
           else
@@ -19282,7 +19829,7 @@
             match$8 =
                /*<<camlinternalFormat.ml:2407:10>>*/ make_padding_fmt_ebb
                (pad$9, fmt_rest$23),
-            fmt_rest$24 = match$8[2],
+            fmt_rest$24 =  /*<<camlinternalFormat.ml:2407:43>>*/ match$8[2],
             pad$10 = match$8[1],
             _a2_ = [0, [2, pad$10, fmt_rest$24]];
           var fmt_result = _a2_;
@@ -19290,7 +19837,9 @@
          case 116:
           var
            fmt_rest$25 =
-              /*<<camlinternalFormat.ml:2508:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2508:50>>*/  /*<<camlinternalFormat.ml:2508:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            fmt_result = [0, [16, fmt_rest$25]];
           break a;
          case 123:
@@ -19299,18 +19848,20 @@
               /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
               (str_ind, end_ind, 125),
            sub_fmt$0 =
-              /*<<camlinternalFormat.ml:2522:28>>*/ parse(str_ind, sub_end$0)
+              /*<<camlinternalFormat.ml:2522:49>>*/  /*<<camlinternalFormat.ml:2522:28>>*/ parse
+               (str_ind, sub_end$0)
               [1],
            fmt_rest$26 =
-              /*<<camlinternalFormat.ml:2523:29>>*/ parse
+              /*<<camlinternalFormat.ml:2523:56>>*/  /*<<camlinternalFormat.ml:2523:29>>*/ parse
                (sub_end$0 + 2 | 0, end_ind)
               [1],
            sub_fmtty$0 =
               /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt(sub_fmt$0);
-           /*<<camlinternalFormat.ml:2525:9>>*/ if(get_ign(0))
+           /*<<camlinternalFormat.ml:2525:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2525:9>>*/ get_ign(0))
            var
             ignored$11 =
-               /*<<camlinternalFormat.ml:2526:22>>*/ [8,
+               /*<<camlinternalFormat.ml:2526:57>>*/ [8,
                 /*<<camlinternalFormat.ml:2526:42>>*/ get_pad_opt(95),
                sub_fmtty$0],
             _a3_ = [0, [23, ignored$11, fmt_rest$26]];
@@ -19331,11 +19882,14 @@
               /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
               (symb,  /*<<camlinternalFormat.ml:2495:32>>*/ get_padprec(0)),
            fmt_rest$8 =
-              /*<<camlinternalFormat.ml:2496:29>>*/ parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2497:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2496:50>>*/  /*<<camlinternalFormat.ml:2496:29>>*/ parse
+               (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2497:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2497:9>>*/ get_ign(0))
            var
             ignored$3 =
-               /*<<camlinternalFormat.ml:2498:22>>*/ [7,
+               /*<<camlinternalFormat.ml:2498:56>>*/ [7,
                 /*<<camlinternalFormat.ml:2498:35>>*/ get_padprec_opt(95)],
             _aK_ = [0, [23, ignored$3, fmt_rest$8]];
           else
@@ -19343,7 +19897,7 @@
             match$3 =
                /*<<camlinternalFormat.ml:2502:10>>*/ make_padding_fmt_ebb
                (pad$3, fmt_rest$8),
-            fmt_rest$9 = match$3[2],
+            fmt_rest$9 =  /*<<camlinternalFormat.ml:2502:43>>*/ match$3[2],
             pad$4 = match$3[1],
             _aK_ = [0, [9, pad$4, fmt_rest$9]];
           var fmt_result = _aK_;
@@ -19352,13 +19906,15 @@
          case 64:
           var
            fmt_rest$6 =
-              /*<<camlinternalFormat.ml:2518:29>>*/ parse(str_ind, end_ind)[1],
+              /*<<camlinternalFormat.ml:2518:50>>*/  /*<<camlinternalFormat.ml:2518:29>>*/ parse
+               (str_ind, end_ind)
+              [1],
            fmt_result = [0, [12, symb, fmt_rest$6]];
           break a;
          case 76:
          case 108:
          case 110:
-          if(str_ind !== end_ind){
+           /*<<camlinternalFormat.ml:2438:27>>*/ if(str_ind !== end_ind){
            var
             symb$0 =
                /*<<camlinternalFormat.ml:2438:63>>*/ caml_string_get
@@ -19378,14 +19934,16 @@
              }
             var _aQ_ = 0;
            }
-            /*<<camlinternalFormat.ml:2438:50>>*/ if(_aQ_) break;
+            /*<<camlinternalFormat.ml:2438:77>>*/ if(_aQ_) break;
           }
           var
            fmt_rest$13 =
-              /*<<camlinternalFormat.ml:2439:29>>*/ parse(str_ind, end_ind)[1];
+              /*<<camlinternalFormat.ml:2439:50>>*/  /*<<camlinternalFormat.ml:2439:29>>*/ parse
+               (str_ind, end_ind)
+              [1];
           b:
           {
-           if(108 <= symb){
+            /*<<camlinternalFormat.ml:2897:29>>*/ if(108 <= symb){
             if(111 > symb)
              switch(symb - 108 | 0){
                case 0:
@@ -19398,9 +19956,10 @@
             /*<<camlinternalFormat.ml:2899:34>>*/ throw caml_maybe_attach_backtrace
                   ([0, Assert_failure, _V_], 1);
           }
-           /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
+           /*<<camlinternalFormat.ml:2441:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2441:9>>*/ get_ign(0))
            var
-            ignored$5 =  /*<<camlinternalFormat.ml:2442:22>>*/ [11, counter],
+            ignored$5 =  /*<<camlinternalFormat.ml:2442:8>>*/ [11, counter],
             _aP_ = [0, [23, ignored$5, fmt_rest$13]];
           else
            var _aP_ = [0, [21, counter, fmt_rest$13]];
@@ -19434,11 +19993,14 @@
                _aT_,
                symb),
            fmt_rest$17 =
-              /*<<camlinternalFormat.ml:2422:29>>*/ parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2423:9>>*/ if(get_ign(0))
+              /*<<camlinternalFormat.ml:2422:50>>*/  /*<<camlinternalFormat.ml:2422:29>>*/ parse
+               (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2423:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2423:9>>*/ get_ign(0))
            var
             ignored$8 =
-               /*<<camlinternalFormat.ml:2424:22>>*/ [2,
+               /*<<camlinternalFormat.ml:2424:57>>*/ [2,
                iconv$2,
                 /*<<camlinternalFormat.ml:2424:42>>*/ get_pad_opt(95)],
             _aV_ = [0, [23, ignored$8, fmt_rest$17]];
@@ -19450,7 +20012,7 @@
                ( /*<<camlinternalFormat.ml:2428:31>>*/ get_int_pad(0),
                 _aW_,
                 fmt_rest$17),
-            fmt_rest$18 = match$6[3],
+            fmt_rest$18 =  /*<<camlinternalFormat.ml:2428:70>>*/ match$6[3],
             prec$4 = match$6[2],
             pad$8 = match$6[1],
             _aV_ = [0, [4, iconv$2, pad$8, prec$4, fmt_rest$18]];
@@ -19469,7 +20031,7 @@
            hash$1 =  /*<<camlinternalFormat.ml:2485:24>>*/ get_hash(0),
            plus$2 =  /*<<camlinternalFormat.ml:2485:10>>*/ get_plus(0),
            flag =
-             plus$2
+              /*<<camlinternalFormat.ml:2939:4>>*/ plus$2
               ? space$1
                 ? legacy_behavior$0
                   ? 1
@@ -19519,10 +20081,14 @@
           var
            fconv =  /*<<camlinternalFormat.ml:2958:4>>*/ [0, flag, kind],
            fmt_rest$11 =
-              /*<<camlinternalFormat.ml:2486:29>>*/ parse(str_ind, end_ind)[1];
-           /*<<camlinternalFormat.ml:2487:9>>*/ if(get_ign(0)){
+              /*<<camlinternalFormat.ml:2486:50>>*/  /*<<camlinternalFormat.ml:2486:29>>*/ parse
+               (str_ind, end_ind)
+              [1];
+           /*<<camlinternalFormat.ml:2487:19>>*/ if
+           ( /*<<camlinternalFormat.ml:2487:9>>*/ get_ign(0)){
            var match =  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec(0);
-           if(typeof match === "number")
+            /*<<camlinternalFormat.ml:2366:43>>*/ if
+            (typeof match === "number")
             var
              _aM_ =
                match
@@ -19533,7 +20099,7 @@
             var ndec = match[1], _aM_ = [0, ndec];
            var
             ignored$4 =
-               /*<<camlinternalFormat.ml:2488:22>>*/ [6,
+               /*<<camlinternalFormat.ml:2488:52>>*/ [6,
                 /*<<camlinternalFormat.ml:2488:37>>*/ get_pad_opt(95),
                _aM_],
             _aN_ = [0, [23, ignored$4, fmt_rest$11]];
@@ -19546,7 +20112,7 @@
                ( /*<<camlinternalFormat.ml:2492:31>>*/ get_pad(0),
                 _aO_,
                 fmt_rest$11),
-            fmt_rest$12 = match$4[3],
+            fmt_rest$12 =  /*<<camlinternalFormat.ml:2492:66>>*/ match$4[3],
             prec$3 = match$4[2],
             pad$5 = match$4[1],
             _aN_ = [0, [8, fconv, pad$5, prec$3, fmt_rest$12]];
@@ -19573,13 +20139,14 @@
                 _au_,
                 _at_),
             fmt_rest =
-               /*<<camlinternalFormat.ml:2450:29>>*/ parse
+               /*<<camlinternalFormat.ml:2450:56>>*/  /*<<camlinternalFormat.ml:2450:29>>*/ parse
                 (str_ind + 1 | 0, end_ind)
                [1];
-            /*<<camlinternalFormat.ml:2451:9>>*/ if(get_ign(0))
+            /*<<camlinternalFormat.ml:2451:19>>*/ if
+            ( /*<<camlinternalFormat.ml:2451:9>>*/ get_ign(0))
             var
              ignored =
-                /*<<camlinternalFormat.ml:2452:22>>*/ [3,
+                /*<<camlinternalFormat.ml:2452:59>>*/ [3,
                 iconv,
                  /*<<camlinternalFormat.ml:2452:44>>*/ get_pad_opt(95)],
              _aw_ = [0, [23, ignored, fmt_rest]];
@@ -19591,7 +20158,7 @@
                 ( /*<<camlinternalFormat.ml:2456:31>>*/ get_int_pad(0),
                  _ay_,
                  fmt_rest),
-             fmt_rest$0 = match$0[3],
+             fmt_rest$0 =  /*<<camlinternalFormat.ml:2456:70>>*/ match$0[3],
              prec$0 = match$0[2],
              pad$0 = match$0[1],
              _aw_ = [0, [5, iconv, pad$0, prec$0, fmt_rest$0]];
@@ -19615,13 +20182,14 @@
                 _aA_,
                 _az_),
             fmt_rest$1 =
-               /*<<camlinternalFormat.ml:2462:29>>*/ parse
+               /*<<camlinternalFormat.ml:2462:56>>*/  /*<<camlinternalFormat.ml:2462:29>>*/ parse
                 (str_ind + 1 | 0, end_ind)
                [1];
-            /*<<camlinternalFormat.ml:2463:9>>*/ if(get_ign(0))
+            /*<<camlinternalFormat.ml:2463:19>>*/ if
+            ( /*<<camlinternalFormat.ml:2463:9>>*/ get_ign(0))
             var
              ignored$0 =
-                /*<<camlinternalFormat.ml:2464:22>>*/ [4,
+                /*<<camlinternalFormat.ml:2464:63>>*/ [4,
                 iconv$0,
                  /*<<camlinternalFormat.ml:2464:48>>*/ get_pad_opt(95)],
              _aC_ = [0, [23, ignored$0, fmt_rest$1]];
@@ -19633,7 +20201,7 @@
                 ( /*<<camlinternalFormat.ml:2468:31>>*/ get_int_pad(0),
                  _aD_,
                  fmt_rest$1),
-             fmt_rest$2 = match$1[3],
+             fmt_rest$2 =  /*<<camlinternalFormat.ml:2468:70>>*/ match$1[3],
              prec$1 = match$1[2],
              pad$1 = match$1[1],
              _aC_ = [0, [6, iconv$0, pad$1, prec$1, fmt_rest$2]];
@@ -19658,13 +20226,14 @@
             _aF_,
             _aE_),
         fmt_rest$3 =
-           /*<<camlinternalFormat.ml:2474:29>>*/ parse
+           /*<<camlinternalFormat.ml:2474:56>>*/  /*<<camlinternalFormat.ml:2474:29>>*/ parse
             (str_ind + 1 | 0, end_ind)
            [1];
-        /*<<camlinternalFormat.ml:2475:9>>*/ if(get_ign(0))
+        /*<<camlinternalFormat.ml:2475:19>>*/ if
+        ( /*<<camlinternalFormat.ml:2475:9>>*/ get_ign(0))
         var
          ignored$1 =
-            /*<<camlinternalFormat.ml:2476:22>>*/ [5,
+            /*<<camlinternalFormat.ml:2476:59>>*/ [5,
             iconv$1,
              /*<<camlinternalFormat.ml:2476:44>>*/ get_pad_opt(95)],
          _aH_ = [0, [23, ignored$1, fmt_rest$3]];
@@ -19676,7 +20245,7 @@
             ( /*<<camlinternalFormat.ml:2480:31>>*/ get_int_pad(0),
              _aI_,
              fmt_rest$3),
-         fmt_rest$4 = match$2[3],
+         fmt_rest$4 =  /*<<camlinternalFormat.ml:2480:70>>*/ match$2[3],
          prec$2 = match$2[2],
          pad$2 = match$2[1],
          _aH_ = [0, [7, iconv$1, pad$2, prec$2, fmt_rest$4]];
@@ -19688,8 +20257,10 @@
           /*<<camlinternalFormat.ml:2554:6>>*/ caml_call3
           (failwith_message(_J_), str, str_ind - 1 | 0, symb);
      }
-     if(1 - legacy_behavior$0){
-      var _ak_ = 1 - plus_used[1], plus$0 = _ak_ ? plus : _ak_;
+      /*<<camlinternalFormat.ml:2562:4>>*/ if(1 - legacy_behavior$0){
+      var
+       _ak_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - plus_used[1],
+       plus$0 = _ak_ ? plus : _ak_;
       if(plus$0)
         /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$27);
@@ -19719,9 +20290,8 @@
             ([0, prec], _L_)
           : _ap_;
       if(_aq_){
-       var _ar_ = ign ? 95 : symb;
-        /*<<camlinternalFormat.ml:2572:6>>*/ incompatible_flag
-        (pct_ind, str_ind, _ar_, cst_precision$2);
+       var _ar_ =  /*<<camlinternalFormat.ml:2572:6>>*/ ign ? 95 : symb;
+       incompatible_flag(pct_ind, str_ind, _ar_, cst_precision$2);
       }
       var plus$1 = ign ? plus : ign;
       if(plus$1)
@@ -19733,11 +20303,11 @@
      if(ign$0){
       b:
       {
-       if(38 <= symb){
+        /*<<camlinternalFormat.ml:2580:6>>*/ if(38 <= symb){
         if(44 !== symb && 64 !== symb) break b;
        }
        else if(33 !== symb && 37 > symb) break b;
-       if(legacy_behavior$0) break a;
+        /*<<camlinternalFormat.ml:2582:39>>*/ if(legacy_behavior$0) break a;
       }
        /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
        (pct_ind, str_ind, symb, cst$31);
@@ -19749,7 +20319,7 @@
       if(str_ind === end_ind)
         /*<<camlinternalFormat.ml:2640:32>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-      if
+       /*<<camlinternalFormat.ml:2641:25>>*/ if
        (60
         !==
           /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
@@ -19759,7 +20329,7 @@
        ind =
           /*<<camlinternalFormat.ml:2643:18>>*/ caml_call3
           (Stdlib_String[32], str, str_ind + 1 | 0, 62);
-      if(end_ind <= ind)
+       /*<<camlinternalFormat.ml:2644:8>>*/ if(end_ind <= ind)
         /*<<camlinternalFormat.ml:2644:31>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
       var
@@ -19767,11 +20337,15 @@
           /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
           (Stdlib_String[16], str, str_ind, (ind - str_ind | 0) + 1 | 0),
        fmt_rest$0 =
-          /*<<camlinternalFormat.ml:2646:31>>*/ parse(ind + 1 | 0, end_ind)[1],
+          /*<<camlinternalFormat.ml:2646:54>>*/  /*<<camlinternalFormat.ml:2646:31>>*/ parse
+           (ind + 1 | 0, end_ind)
+          [1],
        sub_fmt =
-          /*<<camlinternalFormat.ml:2647:30>>*/ parse(str_ind, ind + 1 | 0)[1],
+          /*<<camlinternalFormat.ml:2647:53>>*/  /*<<camlinternalFormat.ml:2647:30>>*/ parse
+           (str_ind, ind + 1 | 0)
+          [1],
        sub_format$0 =
-          /*<<camlinternalFormat.ml:2648:25>>*/ [0, sub_fmt, sub_str],
+          /*<<camlinternalFormat.ml:2648:8>>*/ [0, sub_fmt, sub_str],
        formatting$0 =
           /*<<camlinternalFormat.ml:2649:8>>*/ is_open_tag
           ? [0, sub_format$0]
@@ -19786,7 +20360,9 @@
       if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
       var
        fmt_rest =
-          /*<<camlinternalFormat.ml:2655:29>>*/ parse(str_ind, end_ind)[1],
+          /*<<camlinternalFormat.ml:2655:50>>*/  /*<<camlinternalFormat.ml:2655:29>>*/ parse
+           (str_ind, end_ind)
+          [1],
        formatting =
           /*<<camlinternalFormat.ml:2657:6>>*/ is_open_tag
           ? [0, sub_format]
@@ -19801,10 +20377,13 @@
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
-       /*<<camlinternalFormat.ml:2805:7>>*/ if
-       (32 !== caml_string_get(str, str_ind$0))
+       /*<<camlinternalFormat.ml:2805:20>>*/ if
+       (32
+        !==
+          /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get(str, str_ind$0))
         /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0;
-      var str_ind$1 = str_ind$0 + 1 | 0;
+      var
+       str_ind$1 =  /*<<camlinternalFormat.ml:2805:32>>*/ str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
      }
      /*<<camlinternalFormat.ml:2805:79>>*/ }
@@ -19818,18 +20397,21 @@
        c =
           /*<<camlinternalFormat.ml:2811:10>>*/ caml_string_get
           (str, str_ind$0);
-      if(9 < c - 48 >>> 0)
+       /*<<camlinternalFormat.ml:2811:23>>*/ if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2820:11>>*/ return [0, str_ind$0, acc$0];
-      var new_acc = (acc$0 * 10 | 0) + (c - 48 | 0) | 0;
-      if(Stdlib_Sys[12] < new_acc){
+      var
+       new_acc =
+          /*<<camlinternalFormat.ml:2813:6>>*/ (acc$0 * 10 | 0) + (c - 48 | 0)
+         | 0;
+       /*<<camlinternalFormat.ml:2814:6>>*/ if(Stdlib_Sys[12] < new_acc){
        var _ag_ =  /*<<camlinternalFormat.ml:2815:8>>*/ Stdlib_Sys[12];
        return caml_call3(failwith_message(_S_), str, new_acc, _ag_) /*<<camlinternalFormat.ml:2820:23>>*/ ;
       }
-      var str_ind$1 = str_ind$0 + 1 | 0;
+      var str_ind$1 =  /*<<camlinternalFormat.ml:2819:8>>*/ str_ind$0 + 1 | 0;
       str_ind$0 = str_ind$1;
       acc$0 = new_acc;
      }
-    }
+     /*<<camlinternalFormat.ml:2820:23>>*/ }
     function parse_integer(str_ind, end_ind){
       /*<<camlinternalFormat.ml:2825:4>>*/ if(str_ind === end_ind)
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
@@ -19837,27 +20419,27 @@
      var
       match =
          /*<<camlinternalFormat.ml:2826:10>>*/ caml_string_get(str, str_ind);
-     if(48 <= match){
+      /*<<camlinternalFormat.ml:2826:23>>*/ if(48 <= match){
       if(58 > match)
         /*<<camlinternalFormat.ml:2827:20>>*/ return parse_positive
                (str_ind, end_ind, 0) /*<<camlinternalFormat.ml:2837:23>>*/ ;
      }
      else if(45 === match){
-      if((str_ind + 1 | 0) === end_ind)
+       /*<<camlinternalFormat.ml:2828:13>>*/ if((str_ind + 1 | 0) === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
       var
        c =
           /*<<camlinternalFormat.ml:2830:12>>*/ caml_string_get
           (str, str_ind + 1 | 0);
-      if(9 < c - 48 >>> 0)
+       /*<<camlinternalFormat.ml:2830:29>>*/ if(9 < c - 48 >>> 0)
         /*<<camlinternalFormat.ml:2835:8>>*/ return expected_character
                (str_ind + 1 | 0, cst_digit, c) /*<<camlinternalFormat.ml:2837:23>>*/ ;
       var
        match$0 =
           /*<<camlinternalFormat.ml:2832:26>>*/ parse_positive
           (str_ind + 1 | 0, end_ind, 0),
-       n = match$0[2],
+       n =  /*<<camlinternalFormat.ml:2832:64>>*/ match$0[2],
        next_ind = match$0[1];
        /*<<camlinternalFormat.ml:2833:8>>*/ return [0, next_ind, - n | 0];
      }
@@ -19865,7 +20447,8 @@
             ([0, Assert_failure, _T_], 1);
      /*<<camlinternalFormat.ml:2837:23>>*/ }
     function add_literal(lit_start, str_ind, fmt){
-     var size = str_ind - lit_start | 0;
+     var
+      size =  /*<<camlinternalFormat.ml:2843:31>>*/ str_ind - lit_start | 0;
      return 0 === size
              ? [0, fmt]
              : 1
@@ -19887,15 +20470,16 @@
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
         (failwith_message(_U_), str, c, end_ind);
-      if
+       /*<<camlinternalFormat.ml:2855:23>>*/ if
        (37
         ===
           /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
           (str, str_ind$0)){
-       if((str_ind$0 + 1 | 0) === end_ind)
+        /*<<camlinternalFormat.ml:2857:6>>*/ if
+        ((str_ind$0 + 1 | 0) === end_ind)
          /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
          (end_ind, cst_unexpected_end_of_format);
-       if
+        /*<<camlinternalFormat.ml:2858:26>>*/ if
         ( /*<<camlinternalFormat.ml:2858:9>>*/ caml_string_get
           (str, str_ind$0 + 1 | 0)
          === c)
@@ -19904,7 +20488,7 @@
         match =
            /*<<camlinternalFormat.ml:2859:20>>*/ caml_string_get
            (str, str_ind$0 + 1 | 0);
-       if(95 <= match){
+        /*<<camlinternalFormat.ml:2859:37>>*/ if(95 <= match){
         if(123 <= match){
          if(126 > match)
           switch(match - 123 | 0){
@@ -19913,7 +20497,8 @@
               sub_end =
                  /*<<camlinternalFormat.ml:2874:24>>*/ search_subformat_end
                  (str_ind$0 + 2 | 0, end_ind, 125),
-              str_ind$2 = sub_end + 2 | 0;
+              str_ind$2 =
+                 /*<<camlinternalFormat.ml:2875:10>>*/ sub_end + 2 | 0;
              str_ind$0 = str_ind$2;
              continue;
             case 1: break;
@@ -19923,19 +20508,21 @@
           }
         }
         else if(96 > match){
-         if((str_ind$0 + 2 | 0) === end_ind)
+          /*<<camlinternalFormat.ml:2862:10>>*/ if
+          ((str_ind$0 + 2 | 0) === end_ind)
            /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
            (end_ind, cst_unexpected_end_of_format);
          var
           match$0 =
              /*<<camlinternalFormat.ml:2863:22>>*/ caml_string_get
              (str, str_ind$0 + 2 | 0);
-         if(40 === match$0){
+          /*<<camlinternalFormat.ml:2863:39>>*/ if(40 === match$0){
           var
            sub_end$0 =
               /*<<camlinternalFormat.ml:2868:26>>*/ search_subformat_end
               (str_ind$0 + 3 | 0, end_ind, 41),
-           str_ind$3 = sub_end$0 + 2 | 0;
+           str_ind$3 =
+              /*<<camlinternalFormat.ml:2869:12>>*/ sub_end$0 + 2 | 0;
           str_ind$0 = str_ind$3;
           continue;
          }
@@ -19944,11 +20531,13 @@
            sub_end$1 =
               /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
               (str_ind$0 + 3 | 0, end_ind, 125),
-           str_ind$4 = sub_end$1 + 2 | 0;
+           str_ind$4 =
+              /*<<camlinternalFormat.ml:2866:12>>*/ sub_end$1 + 2 | 0;
           str_ind$0 = str_ind$4;
           continue;
          }
-         var str_ind$5 = str_ind$0 + 3 | 0;
+         var
+          str_ind$5 =  /*<<camlinternalFormat.ml:2870:17>>*/ str_ind$0 + 3 | 0;
          str_ind$0 = str_ind$5;
          continue;
         }
@@ -19959,7 +20548,7 @@
           sub_end$2 =
              /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
              (str_ind$0 + 2 | 0, end_ind, 41),
-          str_ind$6 = sub_end$2 + 2 | 0;
+          str_ind$6 =  /*<<camlinternalFormat.ml:2879:10>>*/ sub_end$2 + 2 | 0;
          str_ind$0 = str_ind$6;
          continue;
         }
@@ -19967,12 +20556,17 @@
           /*<<camlinternalFormat.ml:2885:10>>*/ return expected_character
                  (str_ind$0 + 1 | 0, cst_character$0, 41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
        }
-       var str_ind$1 = str_ind$0 + 2 | 0;
+       var
+        str_ind$1 =  /*<<camlinternalFormat.ml:2887:10>>*/ str_ind$0 + 2 | 0;
        str_ind$0 = str_ind$1;
       }
-      else{var str_ind$7 = str_ind$0 + 1 | 0; str_ind$0 = str_ind$7;}
+      else{
+       var
+        str_ind$7 =  /*<<camlinternalFormat.ml:2889:11>>*/ str_ind$0 + 1 | 0;
+       str_ind$0 = str_ind$7;
+      }
      }
-    }
+     /*<<camlinternalFormat.ml:2889:55>>*/ }
     function compute_int_conv(pct_ind, str_ind, plus, hash, space, symb){
      var plus$0 = plus, hash$0 = hash, space$0 = space;
       /*<<camlinternalFormat.ml:2903:4>>*/ for(;;){
@@ -20034,21 +20628,21 @@
        if(32 >= switcher >>> 0)
         switch(switcher){
           case 0:
-           if(legacy_behavior$0)
+            /*<<camlinternalFormat.ml:2916:27>>*/ if(legacy_behavior$0)
              /*<<camlinternalFormat.ml:2916:46>>*/ return 9;
            break;
           case 23:
-           if(legacy_behavior$0)
+            /*<<camlinternalFormat.ml:2917:27>>*/ if(legacy_behavior$0)
              /*<<camlinternalFormat.ml:2917:46>>*/ return 11;
            break;
           case 32:
-           if(legacy_behavior$0)
+            /*<<camlinternalFormat.ml:2915:27>>*/ if(legacy_behavior$0)
              /*<<camlinternalFormat.ml:2915:46>>*/ return 7;
            break;
           case 12:
           case 17:
           case 29:
-           if(! legacy_behavior$0)
+            /*<<camlinternalFormat.ml:2919:6>>*/ if(! legacy_behavior$0)
              /*<<camlinternalFormat.ml:2921:11>>*/ return incompatible_flag
                     (pct_ind, str_ind, symb, cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
            hash$0 = 0;
@@ -20057,13 +20651,13 @@
       }
       if(plus$0)
        if(space$0){
-        if(! legacy_behavior$0)
+         /*<<camlinternalFormat.ml:2923:6>>*/ if(! legacy_behavior$0)
           /*<<camlinternalFormat.ml:2926:11>>*/ return incompatible_flag
                  (pct_ind, str_ind, 32, cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         space$0 = 0;
        }
        else{
-        if(! legacy_behavior$0)
+         /*<<camlinternalFormat.ml:2932:6>>*/ if(! legacy_behavior$0)
           /*<<camlinternalFormat.ml:2934:11>>*/ return incompatible_flag
                  (pct_ind, str_ind, symb, cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
         plus$0 = 0;
@@ -20072,7 +20666,7 @@
        if(! space$0)
          /*<<camlinternalFormat.ml:2935:28>>*/ throw caml_maybe_attach_backtrace
                ([0, Assert_failure, _W_], 1);
-       if(! legacy_behavior$0)
+        /*<<camlinternalFormat.ml:2928:6>>*/ if(! legacy_behavior$0)
          /*<<camlinternalFormat.ml:2930:11>>*/ return incompatible_flag
                 (pct_ind, str_ind, symb, cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
        space$0 = 0;
@@ -20087,40 +20681,47 @@
       /*<<camlinternalFormat.ml:2964:6>>*/ return caml_call5
              (failwith_message(_Y_), str, pct_ind, option, symb, subfmt) /*<<camlinternalFormat.ml:2967:38>>*/ ;
     }
-    return parse(0, caml_ml_string_length(str));
+     /*<<camlinternalFormat.ml:2969:5>>*/ return parse
+            (0, caml_ml_string_length(str));
    }
    function format_of_string_fmtty(str, fmtty){
     var
-     fmt =  /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string(0, str)[1];
-     /*<<camlinternalFormat.ml:2978:2>>*/ try{
+     fmt =
+        /*<<camlinternalFormat.ml:2977:41>>*/  /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string
+         (0, str)
+        [1];
+    try{
      var
       _ae_ =
-         /*<<camlinternalFormat.ml:2978:6>>*/ [0,
+         /*<<camlinternalFormat.ml:2978:35>>*/ [0,
           /*<<camlinternalFormat.ml:2978:14>>*/ type_format(fmt, fmtty),
          str];
-      /*<<camlinternalFormat.ml:2978:6>>*/ return _ae_;
+     return _ae_;
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
      if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
      var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
-     return caml_call2(failwith_message(_Z_), str, _ad_) /*<<camlinternalFormat.ml:2982:33>>*/ ;
+      /*<<camlinternalFormat.ml:2982:33>>*/ return caml_call2
+             (failwith_message(_Z_), str, _ad_);
     }
    }
    function format_of_string_format(str, param){
     var
-     str$0 = param[2],
+     str$0 =  /*<<camlinternalFormat.ml:2986:28>>*/ param[2],
      fmt = param[1],
      fmt$0 =
-        /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string(0, str)[1];
-     /*<<camlinternalFormat.ml:2988:2>>*/ try{
+        /*<<camlinternalFormat.ml:2987:41>>*/  /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string
+         (0, str)
+        [1];
+    try{
      var
       _aa_ =
-         /*<<camlinternalFormat.ml:2988:6>>*/ [0,
+         /*<<camlinternalFormat.ml:2988:49>>*/ [0,
           /*<<camlinternalFormat.ml:2988:14>>*/ type_format
           (fmt$0,  /*<<camlinternalFormat.ml:2988:30>>*/ fmtty_of_fmt(fmt)),
          str];
-      /*<<camlinternalFormat.ml:2988:6>>*/ return _aa_;
+     return _aa_;
     }
     catch(_ab_){
      var _$_ = caml_wrap_exception(_ab_);
@@ -20188,31 +20789,31 @@
     CamlinternalFormat = global_data.CamlinternalFormat,
     Stdlib = global_data.Stdlib;
    function kfprintf(k, o, param){
-    var fmt = param[1];
+    var fmt =  /*<<printf.ml:19:13>>*/ param[1];
      /*<<printf.ml:20:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
                /*<<printf.ml:20:26>>*/ caml_call2
                (CamlinternalFormat[9], o, acc);
-              return caml_call1(k, o) /*<<printf.ml:20:47>>*/ ;
+               /*<<printf.ml:20:42>>*/ return caml_call1(k, o) /*<<printf.ml:20:47>>*/ ;
              },
              0,
              fmt) /*<<printf.ml:20:63>>*/ ;
    }
    function kbprintf(k, b, param){
-    var fmt = param[1];
+    var fmt =  /*<<printf.ml:21:13>>*/ param[1];
      /*<<printf.ml:22:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
                /*<<printf.ml:22:26>>*/ caml_call2
                (CamlinternalFormat[10], b, acc);
-              return caml_call1(k, b) /*<<printf.ml:22:47>>*/ ;
+               /*<<printf.ml:22:42>>*/ return caml_call1(k, b) /*<<printf.ml:22:47>>*/ ;
              },
              0,
              fmt) /*<<printf.ml:22:63>>*/ ;
    }
    function ikfprintf(k, oc, param){
-    var fmt = param[1];
+    var fmt =  /*<<printf.ml:23:14>>*/ param[1];
      /*<<printf.ml:24:2>>*/ return caml_call3
             (CamlinternalFormat[8], k, oc, fmt) /*<<printf.ml:24:23>>*/ ;
    }
@@ -20239,12 +20840,12 @@
      /*<<printf.ml:32:18>>*/ return fprintf(Stdlib[40], fmt) /*<<printf.ml:32:36>>*/ ;
    }
    function ksprintf(k, param){
-    var fmt = param[1];
+    var fmt =  /*<<printf.ml:34:13>>*/ param[1];
     function k$0(acc){
      var buf =  /*<<printf.ml:36:14>>*/ caml_call1(Stdlib_Buffer[1], 64);
       /*<<printf.ml:37:4>>*/ caml_call2(CamlinternalFormat[11], buf, acc);
-      /*<<printf.ml:38:6>>*/ return caml_call1
-             (k, caml_call1(Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
+      /*<<printf.ml:38:27>>*/ return caml_call1
+             (k,  /*<<printf.ml:38:6>>*/ caml_call1(Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
     }
      /*<<printf.ml:39:2>>*/ return caml_call3
             (CamlinternalFormat[7], k$0, 0, fmt) /*<<printf.ml:39:31>>*/ ;
@@ -20467,14 +21068,18 @@
                 (Stdlib_Printf[10], Stdlib[1], _b_, f, i, length - 1 | 0) /*<<dynarray.ml:175:38>>*/ ;
    }
    function check_same_length(f, a, expected){
-    var length_a = a[1], _W_ = expected !== length_a ? 1 : 0;
+    var
+     length_a =  /*<<dynarray.ml:187:2>>*/ a[1],
+     _W_ =  /*<<dynarray.ml:188:2>>*/ 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){
-    var capacity = arr.length - 1, _V_ = capacity < length ? 1 : 0;
+    var
+     capacity =  /*<<dynarray.ml:197:2>>*/ arr.length - 1,
+     _V_ =  /*<<dynarray.ml:198:2>>*/ capacity < length ? 1 : 0;
     return _V_
             ?  /*<<dynarray.ml:158:4>>*/ caml_call5
               (Stdlib_Printf[10],
@@ -20486,7 +21091,7 @@
             : _V_ /*<<dynarray.ml:199:42>>*/ ;
    }
    function unsafe_get(arr, i, length){
-    var match = arr[1 + i];
+    var match =  /*<<dynarray.ml:206:2>>*/ arr[1 + i];
     if(! match)
       /*<<dynarray.ml:207:13>>*/ return missing_element(i, length) /*<<dynarray.ml:208:17>>*/ ;
     var v = match[1];
@@ -20498,37 +21103,41 @@
    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,
+     /*<<dynarray.ml:222:46>>*/ 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:38>>*/ ;
-               /*<<dynarray.ml:222:45>>*/ })] /*<<dynarray.ml:220:2>>*/ ;
+                /*<<dynarray.ml:222:33>>*/ return [0, x];
+               /*<<dynarray.ml:222:45>>*/ })] /*<<dynarray.ml:222:46>>*/ ;
     /*<<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,
+     /*<<dynarray.ml:229:48>>*/ 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:38>>*/ ;
-               /*<<dynarray.ml:229:47>>*/ })] /*<<dynarray.ml:227:2>>*/ ;
+                        /*<<dynarray.ml:229:43>>*/ caml_call1(f, i)] /*<<dynarray.ml:229:46>>*/ ;
+               /*<<dynarray.ml:229:47>>*/ })] /*<<dynarray.ml:229:48>>*/ ;
     /*<<dynarray.ml:230:3>>*/ }
    function get(a, i){
     var match =  /*<<dynarray.ml:238:8>>*/ caml_check_bound(a[2], i)[1 + i];
-    return match ? match[1] : unexpected_empty_element(cst_get, i, a[1]) /*<<dynarray.ml:241:62>>*/ ;
+     /*<<dynarray.ml:238:17>>*/ return match
+            ? match[1]
+            :  /*<<dynarray.ml:241:6>>*/ unexpected_empty_element
+              (cst_get, i, a[1]) /*<<dynarray.ml:241:62>>*/ ;
    }
    function set(a, i, x){
     var match =  /*<<dynarray.ml:246:8>>*/ caml_check_bound(a[2], i)[1 + i];
-    return match
+     /*<<dynarray.ml:246:17>>*/ return match
             ? (match[1] = x, 0)
-            : unexpected_empty_element(cst_set, i, a[1]) /*<<dynarray.ml:249:62>>*/ ;
+            :  /*<<dynarray.ml:249:6>>*/ unexpected_empty_element
+              (cst_set, i, a[1]) /*<<dynarray.ml:249:62>>*/ ;
    }
    function length(a){
      /*<<dynarray.ml:251:15>>*/ return a[1];
@@ -20537,44 +21146,44 @@
      /*<<dynarray.ml:253:17>>*/ return 0 === a[1] ? 1 : 0;
     /*<<dynarray.ml:253:31>>*/ }
    function copy(param){
-    var length = param[1], arr = param[2];
+    var length =  /*<<dynarray.ml:255:9>>*/ param[1], arr = param[2];
      /*<<dynarray.ml:256:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:259:2>>*/ return [0,
+     /*<<dynarray.ml:264:5>>*/ return [0,
             length,
              /*<<dynarray.ml:261:10>>*/ caml_call2
              (Stdlib_Array[1],
               length,
               function(i){
                var v =  /*<<dynarray.ml:262:14>>*/ unsafe_get(arr, i, length);
-                /*<<dynarray.ml:263:11>>*/ return [0, v];
-               /*<<dynarray.ml:263:14>>*/ })] /*<<dynarray.ml:259:2>>*/ ;
+                /*<<dynarray.ml:263:6>>*/ return [0, v];
+               /*<<dynarray.ml:263:14>>*/ })] /*<<dynarray.ml:264:5>>*/ ;
     /*<<dynarray.ml:265:3>>*/ }
    function get_last(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:268:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:269:2>>*/ check_valid_length(length, arr);
-    if(0 === length)
+     /*<<dynarray.ml:269:31>>*/ if(0 === length)
       /*<<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>>*/ ;
+    return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
    }
    function find_last(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:276:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:277:2>>*/ check_valid_length(length, arr);
-    return 0 === length
+     /*<<dynarray.ml:277:31>>*/ return 0 === length
             ? 0
             : [0,
                /*<<dynarray.ml:282:9>>*/ unsafe_get
                (arr, length - 1 | 0, length)] /*<<dynarray.ml:282:49>>*/ ;
    }
    function pop_last(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:287:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:288:2>>*/ check_valid_length(length, arr);
-    if(0 === length)
+     /*<<dynarray.ml:288:31>>*/ if(0 === length)
       /*<<dynarray.ml:290:21>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var
      last =  /*<<dynarray.ml:291:2>>*/ length - 1 | 0,
-     match = arr[1 + last];
+     match =  /*<<dynarray.ml:293:2>>*/ arr[1 + last];
     return match
             ? (arr[1 + last] = 0, a[1] = last, match[1])
             :  /*<<dynarray.ml:295:6>>*/ missing_element(last, length) /*<<dynarray.ml:299:9>>*/ ;
@@ -20592,19 +21201,23 @@
     /*<<dynarray.ml:304:15>>*/ }
    function remove_last(a){
     var
-     last =  /*<<dynarray.ml:307:13>>*/ a[1] - 1 | 0,
-     _R_ = 0 <= last ? 1 : 0,
+     last =  /*<<dynarray.ml:307:21>>*/ a[1] - 1 | 0,
+     _R_ =  /*<<dynarray.ml:308:2>>*/ 0 <= last ? 1 : 0,
      _S_ =
        _R_
-        ? (a[1] = last, caml_check_bound(a[2], last)[1 + last] = 0, 0)
+        ? (a
+           [1]
+          = last,
+           /*<<dynarray.ml:310:4>>*/ caml_check_bound(a[2], last)[1 + last] = 0,
+          0)
         : _R_;
-     /*<<dynarray.ml:310:4>>*/ return _S_;
+    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
+     /*<<dynarray.ml:316:2>>*/ return length <= n
             ? 0
             : (a
                [1]
@@ -20619,12 +21232,15 @@
      /*<<dynarray.ml:327:17>>*/ return a[2].length - 1;
     /*<<dynarray.ml:327:35>>*/ }
    function ensure_capacity(a, capacity_request){
-    var arr = a[2], cur_capacity =  /*<<dynarray.ml:349:2>>*/ arr.length - 1;
+    var
+     arr =  /*<<dynarray.ml:348:2>>*/ a[2],
+     cur_capacity =  /*<<dynarray.ml:349:2>>*/ arr.length - 1;
      /*<<dynarray.ml:350:2>>*/ if(0 > capacity_request)
       /*<<dynarray.ml:351:4>>*/ return negative_capacity_requested
              (cst_ensure_capacity, capacity_request) /*<<dynarray.ml:382:5>>*/ ;
-    if(capacity_request <= cur_capacity)  /*<<dynarray.ml:356:4>>*/ return 0;
-    if(Stdlib_Sys[13] < capacity_request)
+     /*<<dynarray.ml:352:7>>*/ if(capacity_request <= cur_capacity)
+      /*<<dynarray.ml:356:4>>*/ return 0;
+     /*<<dynarray.ml:357:7>>*/ if(Stdlib_Sys[13] < capacity_request)
       /*<<dynarray.ml:138:4>>*/ caml_call5
       (Stdlib_Printf[10],
        Stdlib[1],
@@ -20634,33 +21250,33 @@
        Stdlib_Sys[13]);
     var
      n =
-       512 < cur_capacity
+        /*<<dynarray.ml:330:2>>*/ 512 < cur_capacity
         ? cur_capacity + (cur_capacity / 2 | 0) | 0
         : cur_capacity * 2 | 0,
      _O_ = Stdlib_Sys[13],
      _P_ =  /*<<dynarray.ml:345:6>>*/ caml_call2(Stdlib[17], 8, n),
-     _Q_ =  /*<<dynarray.ml:345:2>>*/ caml_call2(Stdlib[16], _P_, _O_),
+     _Q_ =  /*<<dynarray.ml:345:16>>*/ caml_call2(Stdlib[16], _P_, _O_),
      new_capacity =
         /*<<dynarray.ml:375:6>>*/ caml_call2
         (Stdlib[17], _Q_, capacity_request),
      new_arr =  /*<<dynarray.ml:376:18>>*/ caml_make_vect(new_capacity, 0);
      /*<<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 caml_maybe_attach_backtrace
-            ([0, Assert_failure, _k_], 1);
-    if(capacity_request <= new_arr.length - 1) return 0;
-     /*<<dynarray.ml:381:4>>*/ throw caml_maybe_attach_backtrace
-           ([0, Assert_failure, _j_], 1);
+     /*<<dynarray.ml:377:39>>*/ a[2] = new_arr;
+     /*<<dynarray.ml:380:4>>*/ if(0 > capacity_request)
+     throw caml_maybe_attach_backtrace([0, Assert_failure, _k_], 1);
+     /*<<dynarray.ml:381:4>>*/ if(capacity_request <= new_arr.length - 1)
+     return 0;
+    throw 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  /*<<dynarray.ml:385:21>>*/ ensure_capacity
+     /*<<dynarray.ml:385:2>>*/ return  /*<<dynarray.ml:385:29>>*/ ensure_capacity
             (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
    }
    function fit_capacity(a){
-    var _N_ = a[1];
-    return  /*<<dynarray.ml:388:5>>*/ capacity(a) === _N_
+    var _N_ =  /*<<dynarray.ml:388:2>>*/ a[1];
+     /*<<dynarray.ml:388:15>>*/ return  /*<<dynarray.ml:388:5>>*/ capacity(a)
+            === _N_
             ? 0
             : (a
                [2]
@@ -20674,17 +21290,19 @@
       /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
       (cst_set_capacity, n);
     var arr = a[2], cur_capacity =  /*<<dynarray.ml:396:2>>*/ 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;
+     /*<<dynarray.ml:397:2>>*/ if(n < cur_capacity){
+      /*<<dynarray.ml:398:30>>*/ a[1] =
+       /*<<dynarray.ml:398:16>>*/ caml_call2(Stdlib[16], a[1], n);
+      /*<<dynarray.ml:399:30>>*/ a[2] =
+       /*<<dynarray.ml:399:13>>*/ caml_call3(Stdlib_Array[6], arr, 0, n);
+      /*<<dynarray.ml:399:30>>*/ return 0;
+    }
+    var _L_ =  /*<<dynarray.ml:401:7>>*/ cur_capacity < n ? 1 : 0;
     if(_L_){
      var new_arr =  /*<<dynarray.ml:402:18>>*/ caml_make_vect(n, 0);
       /*<<dynarray.ml:403:4>>*/ caml_call5
       (Stdlib_Array[9], arr, 0, new_arr, 0, a[1]);
-     a[2] = new_arr;
+      /*<<dynarray.ml:403:39>>*/ a[2] = new_arr;
      var _M_ = 0;
     }
     else
@@ -20693,23 +21311,27 @@
     /*<<dynarray.ml:405:5>>*/ }
    function reset(a){
      /*<<dynarray.ml:408:2>>*/ a[1] = 0;
-    a[2] = [0];
+     /*<<dynarray.ml:409:2>>*/ a[2] = [0];
     return 0;
     /*<<dynarray.ml:409:15>>*/ }
    function add_last_if_room(a, elem){
-    var length = a[1], arr = a[2];
-    return arr.length - 1 <= length
+    var length =  /*<<dynarray.ml:427:2>>*/ a[1], arr = a[2];
+     /*<<dynarray.ml:429: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){
-    var elem =  /*<<dynarray.ml:438:18>>*/ [0, x];
-     /*<<dynarray.ml:439:5>>*/ if(add_last_if_room(a, elem))
+    var elem =  /*<<dynarray.ml:438:2>>*/ [0, x];
+     /*<<dynarray.ml:439:28>>*/ if
+     ( /*<<dynarray.ml:439:5>>*/ add_last_if_room(a, elem))
       /*<<dynarray.ml:439:34>>*/ return 0;
      /*<<dynarray.ml:443:6>>*/ for(;;){
      ensure_extra_capacity(a, 1);
-     var _K_ =  /*<<dynarray.ml:444:13>>*/ 1 - add_last_if_room(a, elem);
-     if(! _K_) return _K_;
+     var
+      _K_ =
+         /*<<dynarray.ml:444:38>>*/ 1
+        -  /*<<dynarray.ml:444:13>>*/ add_last_if_room(a, elem);
+      /*<<dynarray.ml:444:38>>*/ if(! _K_) return _K_;
     }
     /*<<dynarray.ml:447:5>>*/ }
    function append_list(a, li){
@@ -20739,21 +21361,19 @@
    }
    function append_array_if_room(a, b){
     var
-     length_a = a[1],
+     length_a =  /*<<dynarray.ml:463:2>>*/ a[1],
      arr = a[2],
      length_b =  /*<<dynarray.ml:464:2>>*/ b.length - 1;
-    if(arr.length - 1 < (length_a + length_b | 0))
+     /*<<dynarray.ml:465:2>>*/ if(arr.length - 1 < (length_a + length_b | 0))
       /*<<dynarray.ml:465:49>>*/ return 0;
-    a[1] = length_a + length_b | 0;
-    var
-     _I_ =  /*<<dynarray.ml:464:2>>*/ length_b - 1 | 0,
-     _H_ =  /*<<dynarray.ml:495:4>>*/ 0;
+     /*<<dynarray.ml:466:7>>*/ a[1] = length_a + length_b | 0;
+    var _I_ =  /*<<dynarray.ml:495:4>>*/ length_b - 1 | 0, _H_ = 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
       var x =  /*<<dynarray.ml:496:14>>*/ b[1 + i];
-      arr[1 + (length_a + i | 0)] = [0, x];
-      var _J_ =  /*<<dynarray.ml:495:4>>*/ i + 1 | 0;
+       /*<<dynarray.ml:497:6>>*/ arr[1 + (length_a + i | 0)] = [0, x];
+      var _J_ = i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
@@ -20766,52 +21386,60 @@
       /*<<dynarray.ml:503:35>>*/ return 0;
      /*<<dynarray.ml:507:6>>*/ for(;;){
      ensure_extra_capacity(a, b.length - 1);
-     var _G_ =  /*<<dynarray.ml:508:13>>*/ 1 - append_array_if_room(a, b);
-     if(! _G_) return _G_;
+     var
+      _G_ =
+         /*<<dynarray.ml:508:39>>*/ 1
+        -  /*<<dynarray.ml:508:13>>*/ append_array_if_room(a, b);
+      /*<<dynarray.ml:508:39>>*/ if(! _G_) return _G_;
     }
     /*<<dynarray.ml:510:31>>*/ }
    function append_if_room(a, b, length_b){
-    var length_a = a[1], arr_a = a[2];
-    if(arr_a.length - 1 < (length_a + length_b | 0))
+    var length_a =  /*<<dynarray.ml:521:2>>*/ a[1], arr_a = a[2];
+     /*<<dynarray.ml:522: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:523:7>>*/ a[1] = length_a + length_b | 0;
+    var arr_b =  /*<<dynarray.ml:525:4>>*/ b[2];
      /*<<dynarray.ml:526:4>>*/ check_valid_length(length_b, arr_b);
-    var _E_ = length_b - 1 | 0, _D_ = 0;
+    var _E_ =  /*<<dynarray.ml:526:37>>*/ length_b - 1 | 0, _D_ = 0;
     if(_E_ >= 0){
      var i = _D_;
      for(;;){
       var x =  /*<<dynarray.ml:528:14>>*/ unsafe_get(arr_b, i, length_b);
-      arr_a[1 + (length_a + i | 0)] = [0, x];
-      var _F_ =  /*<<dynarray.ml:526:4>>*/ i + 1 | 0;
+       /*<<dynarray.ml:529:6>>*/ arr_a[1 + (length_a + i | 0)] = [0, x];
+      var _F_ = i + 1 | 0;
       if(_E_ === i) break;
       i = _F_;
      }
     }
      /*<<dynarray.ml:531:4>>*/ check_same_length(cst_append, b, length_b);
-    return 1;
+     /*<<dynarray.ml:531:49>>*/ return 1;
     /*<<dynarray.ml:533:5>>*/ }
    function append(a, b){
-    var length_b = b[1];
-     /*<<dynarray.ml:537:5>>*/ if(append_if_room(a, b, length_b))
+    var length_b =  /*<<dynarray.ml:251:15>>*/ b[1];
+     /*<<dynarray.ml:537:33>>*/ if
+     ( /*<<dynarray.ml:537:5>>*/ append_if_room(a, b, length_b))
       /*<<dynarray.ml:537:39>>*/ return 0;
      /*<<dynarray.ml:541:6>>*/ for(;;){
      ensure_extra_capacity(a, length_b);
       /*<<dynarray.ml:548:6>>*/ check_same_length(cst_append$0, b, length_b);
-     var _C_ =  /*<<dynarray.ml:549:13>>*/ 1 - append_if_room(a, b, length_b);
-     if(! _C_) return _C_;
+     var
+      _C_ =
+         /*<<dynarray.ml:549:43>>*/ 1
+        -  /*<<dynarray.ml:549:13>>*/ append_if_room(a, b, length_b);
+      /*<<dynarray.ml:549:43>>*/ if(! _C_) return _C_;
     }
     /*<<dynarray.ml:552:5>>*/ }
    function iter(f, k, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:572:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:596:2>>*/ check_valid_length(length, arr);
-    var _A_ = length - 1 | 0, _z_ = 0;
+    var _A_ =  /*<<dynarray.ml:596:31>>*/ length - 1 | 0, _z_ = 0;
     if(_A_ >= 0){
      var i = _z_;
      for(;;){
        /*<<dynarray.ml:598:4>>*/ caml_call1
        (k,  /*<<dynarray.ml:598:6>>*/ unsafe_get(arr, i, length));
-      var _B_ =  /*<<dynarray.ml:598:4>>*/ i + 1 | 0;
+      var _B_ =  /*<<dynarray.ml:598:33>>*/ i + 1 | 0;
       if(_A_ === i) break;
       i = _B_;
      }
@@ -20822,15 +21450,15 @@
      /*<<dynarray.ml:603:2>>*/ return iter(cst_iter, k, a) /*<<dynarray.ml:603:18>>*/ ;
    }
    function iteri(k, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:606:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:607:2>>*/ check_valid_length(length, arr);
-    var _x_ = length - 1 | 0, _w_ = 0;
+    var _x_ =  /*<<dynarray.ml:607:31>>*/ length - 1 | 0, _w_ = 0;
     if(_x_ >= 0){
      var i = _w_;
      for(;;){
        /*<<dynarray.ml:609:4>>*/ caml_call2
        (k, i,  /*<<dynarray.ml:609:8>>*/ unsafe_get(arr, i, length));
-      var _y_ =  /*<<dynarray.ml:609:4>>*/ i + 1 | 0;
+      var _y_ =  /*<<dynarray.ml:609:35>>*/ i + 1 | 0;
       if(_x_ === i) break;
       i = _y_;
      }
@@ -20838,11 +21466,11 @@
      /*<<dynarray.ml:611:2>>*/ return check_same_length(cst_iteri, a, length) /*<<dynarray.ml:611:37>>*/ ;
    }
    function map(f, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:614:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:615:2>>*/ check_valid_length(length, arr);
     var
      res =
-        /*<<dynarray.ml:616:12>>*/ [0,
+        /*<<dynarray.ml:619:47>>*/ [0,
         length,
          /*<<dynarray.ml:618:10>>*/ caml_call2
          (Stdlib_Array[1],
@@ -20850,17 +21478,17 @@
           function(i){
             /*<<dynarray.ml:619:6>>*/ return [0,
                     /*<<dynarray.ml:619:16>>*/ caml_call1
-                    (f,  /*<<dynarray.ml:619:18>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:619:11>>*/ ;
+                    (f,  /*<<dynarray.ml:619:18>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:619:45>>*/ ;
            /*<<dynarray.ml:619:46>>*/ })];
      /*<<dynarray.ml:621:2>>*/ check_same_length(cst_map, a, length);
-    return res;
+     /*<<dynarray.ml:621:35>>*/ return res;
     /*<<dynarray.ml:622:5>>*/ }
    function mapi(f, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:626:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:627:2>>*/ check_valid_length(length, arr);
     var
      res =
-        /*<<dynarray.ml:628:12>>*/ [0,
+        /*<<dynarray.ml:631:49>>*/ [0,
         length,
          /*<<dynarray.ml:630:10>>*/ caml_call2
          (Stdlib_Array[1],
@@ -20870,50 +21498,54 @@
                     /*<<dynarray.ml:631:16>>*/ caml_call2
                     (f,
                      i,
-                      /*<<dynarray.ml:631:20>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:631:11>>*/ ;
+                      /*<<dynarray.ml:631:20>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:631:47>>*/ ;
            /*<<dynarray.ml:631:48>>*/ })];
      /*<<dynarray.ml:633:2>>*/ check_same_length(cst_mapi, a, length);
-    return res;
+     /*<<dynarray.ml:633:36>>*/ return res;
     /*<<dynarray.ml:634:5>>*/ }
    function fold_left(f, acc, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:637:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:638:2>>*/ check_valid_length(length, arr);
     var
-     r =  /*<<dynarray.ml:639:10>>*/ [0, acc],
+     r =  /*<<dynarray.ml:638:31>>*/ [0, acc],
      _u_ =  /*<<dynarray.ml:640:2>>*/ length - 1 | 0,
-     _t_ =  /*<<dynarray.ml:639:10>>*/ 0;
-    if(_u_ >= 0){
+     _t_ =  /*<<dynarray.ml:638:31>>*/ 0;
+     /*<<dynarray.ml:640:2>>*/ if(_u_ >= 0){
      var i = _t_;
      for(;;){
       var v =  /*<<dynarray.ml:641:12>>*/ unsafe_get(arr, i, length);
-      r[1] =  /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
-      var _v_ =  /*<<dynarray.ml:640:2>>*/ i + 1 | 0;
+       /*<<dynarray.ml:642:15>>*/ r[1] =
+        /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
+      var _v_ =  /*<<dynarray.ml:642:15>>*/ 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:644:41>>*/ return r[1];
     /*<<dynarray.ml:645:4>>*/ }
    function fold_right(f, a, acc){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:648:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:649:2>>*/ check_valid_length(length, arr);
-    var r =  /*<<dynarray.ml:650:10>>*/ [0, acc], _r_ = length - 1 | 0;
+    var
+     r =  /*<<dynarray.ml:649:31>>*/ [0, acc],
+     _r_ =  /*<<dynarray.ml:651:2>>*/ length - 1 | 0;
     if(_r_ >= 0){
      var i = _r_;
      for(;;){
       var v =  /*<<dynarray.ml:652:12>>*/ unsafe_get(arr, i, length);
-      r[1] =  /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
-      var _s_ =  /*<<dynarray.ml:650:10>>*/ i - 1 | 0;
+       /*<<dynarray.ml:653:15>>*/ r[1] =
+        /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
+      var _s_ =  /*<<dynarray.ml:653:15>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _s_;
      }
     }
      /*<<dynarray.ml:655:2>>*/ check_same_length(cst_fold_right, a, length);
-    return r[1];
+     /*<<dynarray.ml:655:42>>*/ return r[1];
     /*<<dynarray.ml:656:4>>*/ }
    function exists(p, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:659:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:660:2>>*/ check_valid_length(length, arr);
     var i = 0;
      /*<<dynarray.ml:662:4>>*/ for(;;){
@@ -20924,7 +21556,7 @@
        _q_ =
           /*<<dynarray.ml:664:6>>*/ caml_call1
           (p,  /*<<dynarray.ml:664:8>>*/ unsafe_get(arr, i, length));
-       /*<<dynarray.ml:664:6>>*/ if(! _q_){
+       /*<<dynarray.ml:664:35>>*/ if(! _q_){
        var i$0 = i + 1 | 0;
        i = i$0;
        continue;
@@ -20932,11 +21564,11 @@
       var res = _q_;
      }
       /*<<dynarray.ml:668:2>>*/ check_same_length(cst_exists, a, length);
-     return res;
+      /*<<dynarray.ml:668:38>>*/ return res;
     }
     /*<<dynarray.ml:669:5>>*/ }
    function for_all(p, a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:672:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:673:2>>*/ check_valid_length(length, arr);
     var i = 0;
      /*<<dynarray.ml:675:4>>*/ for(;;){
@@ -20947,7 +21579,7 @@
        _p_ =
           /*<<dynarray.ml:677:6>>*/ caml_call1
           (p,  /*<<dynarray.ml:677:8>>*/ unsafe_get(arr, i, length));
-       /*<<dynarray.ml:677:6>>*/ if(_p_){
+       /*<<dynarray.ml:677:35>>*/ if(_p_){
        var i$0 = i + 1 | 0;
        i = i$0;
        continue;
@@ -20955,7 +21587,7 @@
       var res = _p_;
      }
       /*<<dynarray.ml:681:2>>*/ check_same_length(cst_for_all, a, length);
-     return res;
+      /*<<dynarray.ml:681:39>>*/ return res;
     }
     /*<<dynarray.ml:682:5>>*/ }
    function filter(f, a){
@@ -20964,10 +21596,12 @@
      (cst_filter,
       function(x){
        var _o_ =  /*<<dynarray.ml:686:30>>*/ caml_call1(f, x);
-       return _o_ ?  /*<<dynarray.ml:686:39>>*/ add_last(b, x) : _o_ /*<<dynarray.ml:686:51>>*/ ;
+        /*<<dynarray.ml:686:33>>*/ return _o_
+               ?  /*<<dynarray.ml:686:39>>*/ add_last(b, x)
+               : _o_ /*<<dynarray.ml:686:51>>*/ ;
       },
       a);
-     /*<<dynarray.ml:686:2>>*/ return b;
+     /*<<dynarray.ml:686:54>>*/ return b;
     /*<<dynarray.ml:687:3>>*/ }
    function filter_map(f, a){
     var b =  /*<<dynarray.ml:690:10>>*/ create(0);
@@ -20975,26 +21609,27 @@
      (cst_filter_map,
       function(x){
        var match =  /*<<dynarray.ml:692:10>>*/ caml_call1(f, x);
-       if(! match)  /*<<dynarray.ml:693:14>>*/ return 0;
+        /*<<dynarray.ml:692:13>>*/ 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:695:5>>*/ return b;
     /*<<dynarray.ml:696:3>>*/ }
    function of_array(a){
-    var length = a.length - 1;
-     /*<<dynarray.ml:708:2>>*/ return [0,
+    var length =  /*<<dynarray.ml:707:2>>*/ a.length - 1;
+     /*<<dynarray.ml:710:70>>*/ 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:43>>*/ ;
-               /*<<dynarray.ml:710:69>>*/ })] /*<<dynarray.ml:708:2>>*/ ;
+                /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]] /*<<dynarray.ml:710:68>>*/ ;
+               /*<<dynarray.ml:710:69>>*/ })] /*<<dynarray.ml:710:70>>*/ ;
     /*<<dynarray.ml:711:3>>*/ }
    function to_array(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:714:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:715:2>>*/ check_valid_length(length, arr);
     var
      res =
@@ -21002,11 +21637,10 @@
         (Stdlib_Array[1],
          length,
          function(i){
-           /*<<dynarray.ml:717:4>>*/ return  /*<<dynarray.ml:715:2>>*/ unsafe_get
-                  (arr, i, length) /*<<dynarray.ml:717:29>>*/ ;
+           /*<<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);
-    return res;
+     /*<<dynarray.ml:719:40>>*/ return res;
     /*<<dynarray.ml:720:5>>*/ }
    function of_list(li){
     var a =  /*<<dynarray.ml:723:10>>*/ create(0);
@@ -21016,41 +21650,45 @@
         /*<<dynarray.ml:724:22>>*/ return add_last(a, x) /*<<dynarray.ml:724:34>>*/ ;
       },
       li);
-     /*<<dynarray.ml:724:2>>*/ return a;
+     /*<<dynarray.ml:724:38>>*/ return a;
     /*<<dynarray.ml:725:3>>*/ }
    function to_list(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:728:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:729:2>>*/ check_valid_length(length, arr);
-    var l =  /*<<dynarray.ml:730:10>>*/ [0, 0], _l_ = length - 1 | 0;
+    var
+     l =  /*<<dynarray.ml:729:31>>*/ [0, 0],
+     _l_ =  /*<<dynarray.ml:731:2>>*/ length - 1 | 0;
     if(_l_ >= 0){
      var i = _l_;
      for(;;){
-      var _m_ = l[1];
-      l[1] = [0,  /*<<dynarray.ml:732:9>>*/ unsafe_get(arr, i, length), _m_];
-      var _n_ =  /*<<dynarray.ml:730:10>>*/ i - 1 | 0;
+      var _m_ =  /*<<dynarray.ml:732:4>>*/ l[1];
+       /*<<dynarray.ml:732:34>>*/ l[1] =
+       [0,  /*<<dynarray.ml:732:9>>*/ unsafe_get(arr, i, length), _m_];
+      var _n_ =  /*<<dynarray.ml:732:34>>*/ 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:734:39>>*/ return l[1];
     /*<<dynarray.ml:735:4>>*/ }
    function of_seq(seq){
     var init =  /*<<dynarray.ml:738:13>>*/ create(0);
      /*<<dynarray.ml:739:2>>*/ append_seq(init, seq);
-    return init;
+     /*<<dynarray.ml:739:21>>*/ return init;
     /*<<dynarray.ml:740:6>>*/ }
    function to_seq(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:743:2>>*/ 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:746:40>>*/ if(length <= i)
+        /*<<dynarray.ml:747:24>>*/ return 0;
       var v =  /*<<dynarray.ml:749:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:750:6>>*/ return [0,
+       /*<<dynarray.ml:750:30>>*/ return [0,
               v,
-               /*<<dynarray.ml:750:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:750:6>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
+               /*<<dynarray.ml:750:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:750:30>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
      /*<<dynarray.ml:751:7>>*/ }
      /*<<dynarray.ml:753:2>>*/ return aux(0) /*<<dynarray.ml:753:7>>*/ ;
    }
@@ -21060,23 +21698,24 @@
        /*<<dynarray.ml:757:4>>*/ if(a[1] <= i)
         /*<<dynarray.ml:757:26>>*/ return 0;
       var v =  /*<<dynarray.ml:759:14>>*/ get(a, i);
-       /*<<dynarray.ml:760:6>>*/ return [0,
+       /*<<dynarray.ml:760:30>>*/ return [0,
               v,
-               /*<<dynarray.ml:760:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:760:6>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
+               /*<<dynarray.ml:760:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:760:30>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
      /*<<dynarray.ml:761:7>>*/ }
      /*<<dynarray.ml:763:2>>*/ return aux(0) /*<<dynarray.ml:763:7>>*/ ;
    }
    function to_seq_rev(a){
-    var length = a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:766:2>>*/ 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:769:44>>*/ if(0 > i)
+        /*<<dynarray.ml:770:18>>*/ return 0;
       var v =  /*<<dynarray.ml:772:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:773:6>>*/ return [0,
+       /*<<dynarray.ml:773:30>>*/ return [0,
               v,
-               /*<<dynarray.ml:773:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:773:6>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
+               /*<<dynarray.ml:773:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:773:30>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
      /*<<dynarray.ml:774:7>>*/ }
      /*<<dynarray.ml:776:2>>*/ return aux(length - 1 | 0) /*<<dynarray.ml:776:18>>*/ ;
    }
@@ -21085,14 +21724,14 @@
       /*<<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:788:7>>*/ ;
+       /*<<dynarray.ml:781:25>>*/ if(a[1] <= i)
+        /*<<dynarray.ml:784:19>>*/ return aux(a[1] - 1 | 0)(0) /*<<dynarray.ml:788:7>>*/ ;
       var v =  /*<<dynarray.ml:786:14>>*/ get(a, i);
-       /*<<dynarray.ml:787:6>>*/ return [0,
+       /*<<dynarray.ml:787:30>>*/ return [0,
               v,
-               /*<<dynarray.ml:787:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:787:6>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
+               /*<<dynarray.ml:787:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:787:30>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
      /*<<dynarray.ml:788:7>>*/ }
-     /*<<dynarray.ml:790:7>>*/ return aux(a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
+     /*<<dynarray.ml:790:15>>*/ return aux(a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
    }
    var
     Stdlib_Dynarray =
@@ -21220,9 +21859,9 @@
     Stdlib_List = global_data.Stdlib__List,
     Stdlib_String = global_data.Stdlib__String,
     Stdlib_Int = global_data.Stdlib__Int,
-    Bad =  /*<<arg.ml:50:0>>*/ [248, "Stdlib.Arg.Bad", caml_fresh_oo_id(0)],
-    Help =  /*<<arg.ml:51:0>>*/ [248, "Stdlib.Arg.Help", caml_fresh_oo_id(0)],
-    Stop =  /*<<arg.ml:59:0>>*/ [248, "Stdlib.Arg.Stop", caml_fresh_oo_id(0)],
+    Bad = [248, "Stdlib.Arg.Bad", caml_fresh_oo_id(0)],
+    Help = [248, "Stdlib.Arg.Help", caml_fresh_oo_id(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"],
@@ -21245,7 +21884,7 @@
      if(! l$0)
        /*<<arg.ml:65:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var match = l$0[1], y2 = match[2], y1 = match[1];
-      /*<<arg.ml:66:26>>*/ if(caml_equal(y1, x))
+      /*<<arg.ml:66:32>>*/ if( /*<<arg.ml:66:26>>*/ caml_equal(y1, x))
        /*<<arg.ml:66:36>>*/ return y2;
      var t = l$0[2];
      l$0 = t;
@@ -21262,11 +21901,11 @@
         (Stdlib_List[26],
          function(x, y){
           var _aB_ =  /*<<arg.ml:79:44>>*/ caml_call2(Stdlib[28], sep, y);
-          return caml_call2(Stdlib[28], x, _aB_) /*<<arg.ml:79:51>>*/ ;
+           /*<<arg.ml:79:51>>*/ return caml_call2(Stdlib[28], x, _aB_);
          },
          _az_,
          t);
-     /*<<arg.ml:79:12>>*/ return caml_call2(Stdlib[28], _aA_, suffix) /*<<arg.ml:79:77>>*/ ;
+     /*<<arg.ml:79:68>>*/ return caml_call2(Stdlib[28], _aA_, suffix) /*<<arg.ml:79:77>>*/ ;
    }
    function help_action(param){
      /*<<arg.ml:91:21>>*/ throw caml_maybe_attach_backtrace([0, Stop, _c_], 1);
@@ -21299,28 +21938,28 @@
          0];
     }
     var _au_ =  /*<<arg.ml:103:13>>*/ caml_call2(Stdlib[37], add1, add2);
-    return caml_call2(Stdlib[37], speclist, _au_) /*<<arg.ml:103:26>>*/ ;
+     /*<<arg.ml:103:26>>*/ return caml_call2(Stdlib[37], speclist, _au_);
    }
    function usage_b(buf, speclist, errmsg){
      /*<<arg.ml:107:2>>*/ caml_call3(Stdlib_Printf[5], buf, _d_, errmsg);
     var _ap_ =  /*<<arg.ml:108:29>>*/ add_help(speclist);
-    return caml_call2
+     /*<<arg.ml:108:28>>*/ return caml_call2
             (Stdlib_List[18],
              function(param){
               var
-               doc = param[3],
+               doc =  /*<<arg.ml:82:15>>*/ param[3],
                spec = param[2],
                key = param[1],
                _aq_ =
-                 0 <  /*<<arg.ml:83:2>>*/ caml_ml_string_length(doc) ? 1 : 0;
+                  /*<<arg.ml:83:2>>*/ 0 < caml_ml_string_length(doc) ? 1 : 0;
               if(! _aq_) return _aq_;
-              if(11 !== spec[0])
+               /*<<arg.ml:84:4>>*/ if(11 !== spec[0])
                 /*<<arg.ml:88:8>>*/ return caml_call4
                        (Stdlib_Printf[5], buf, _a_, key, doc);
               var
                l = spec[1],
                _ar_ =  /*<<arg.ml:86:38>>*/ make_symlist(cst$1, cst$0, cst, l);
-               /*<<arg.ml:86:8>>*/ return caml_call5
+               /*<<arg.ml:86:66>>*/ return caml_call5
                       (Stdlib_Printf[5], buf, _b_, key, _ar_, doc);
              },
              _ap_) /*<<arg.ml:108:48>>*/ ;
@@ -21328,14 +21967,14 @@
    function usage_string(speclist, errmsg){
     var b =  /*<<arg.ml:112:10>>*/ caml_call1(Stdlib_Buffer[1], 200);
      /*<<arg.ml:113:2>>*/ usage_b(b, speclist, errmsg);
-    return caml_call1(Stdlib_Buffer[2], b) /*<<arg.ml:114:19>>*/ ;
+     /*<<arg.ml:113:27>>*/ return caml_call1(Stdlib_Buffer[2], b) /*<<arg.ml:114:19>>*/ ;
    }
    function usage(speclist, errmsg){
     var _ao_ =  /*<<arg.ml:118:15>>*/ usage_string(speclist, errmsg);
-    return caml_call2(Stdlib_Printf[3], _e_, _ao_) /*<<arg.ml:118:45>>*/ ;
+     /*<<arg.ml:118:45>>*/ return caml_call2(Stdlib_Printf[3], _e_, _ao_);
    }
    var
-    current =  /*<<arg.ml:121:14>>*/ [0, 0],
+    current = [0, 0],
     _f_ =
       [0,
        [2, 0, [11, ": unknown option '", [2, 0, [11, "'.\n", 0]]]],
@@ -21379,9 +22018,9 @@
      /*<<arg.ml:128:2>>*/ try{
      var
       _am_ =
-         /*<<arg.ml:128:6>>*/ [0,
+         /*<<arg.ml:128:28>>*/ [0,
           /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
-      /*<<arg.ml:128:6>>*/ return _am_;
+     return _am_;
     }
     catch(_an_){
      var _al_ = caml_wrap_exception(_an_);
@@ -21393,9 +22032,9 @@
      /*<<arg.ml:132:2>>*/ try{
      var
       _aj_ =
-         /*<<arg.ml:132:6>>*/ [0,
+         /*<<arg.ml:132:30>>*/ [0,
           /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
-      /*<<arg.ml:132:6>>*/ return _aj_;
+     return _aj_;
     }
     catch(_ak_){
      var _ai_ = caml_wrap_exception(_ak_);
@@ -21405,13 +22044,15 @@
     /*<<arg.ml:133:24>>*/ }
    function parse_and_expand_argv_dynamic_
    (allow_expand, current, argv, speclist, anonfun, errmsg){
-    var initpos = current[1];
+    var initpos =  /*<<arg.ml:137:2>>*/ current[1];
     function convert_error(error){
      var
       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]
+         /*<<arg.ml:144:4>>*/ initpos < argv[1].length - 1
+         ?  /*<<arg.ml:145:45>>*/ caml_check_bound
+            (argv[1], initpos)
+           [1 + initpos]
          : cst$2;
       /*<<arg.ml:146:4>>*/ switch(error[0]){
        case 0:
@@ -21436,25 +22077,26 @@
          (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
       /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
-      /*<<arg.ml:160:7>>*/ if
+      /*<<arg.ml:160:30>>*/ if
       (!
-       caml_equal(error, _g_)
+        /*<<arg.ml:160:7>>*/ caml_equal(error, _g_)
        && !  /*<<arg.ml:160:34>>*/ caml_equal(error, _h_))
-       /*<<arg.ml:162:9>>*/ return [0,
+       /*<<arg.ml:162:32>>*/ return [0,
               Bad,
-               /*<<arg.ml:162:13>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:162:9>>*/ ;
-      /*<<arg.ml:161:9>>*/ return [0,
+               /*<<arg.ml:162:13>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:162:32>>*/ ;
+      /*<<arg.ml:161:33>>*/ return [0,
              Help,
-              /*<<arg.ml:161:14>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:161:9>>*/ ;
+              /*<<arg.ml:161:14>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:161:33>>*/ ;
      /*<<arg.ml:162:32>>*/ }
      /*<<arg.ml:164:2>>*/ current[1]++;
     for(;;){
      if(current[1] >= argv[1].length - 1) return 0;
-      /*<<arg.ml:166:4>>*/ try{
+     try{
       var
        _V_ = current[1],
        s =  /*<<arg.ml:167:14>>*/ caml_check_bound(argv[1], _V_)[1 + _V_];
-       /*<<arg.ml:168:9>>*/ if(caml_call2(Stdlib_String[11], cst$3, s)){
+       /*<<arg.ml:168:41>>*/ if
+       ( /*<<arg.ml:168:9>>*/ caml_call2(Stdlib_String[11], cst$3, s)){
        try{
         var
          follow$1 = 0,
@@ -21465,7 +22107,7 @@
        catch(_ag_){
         var _W_ = caml_wrap_exception(_ag_);
         if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
-         /*<<arg.ml:172:10>>*/ try{
+        try{
          var
           i =  /*<<arg.ml:71:10>>*/ caml_call2(Stdlib_String[36], s, 61),
           len =  /*<<arg.ml:72:2>>*/ caml_ml_string_length(s),
@@ -21474,8 +22116,8 @@
              (Stdlib_String[16], s, i + 1 | 0, len - (i + 1 | 0) | 0),
           keyword =
              /*<<arg.ml:73:2>>*/ caml_call3(Stdlib_String[16], s, 0, i),
-          follow =  /*<<arg.ml:174:38>>*/ [0, arg],
-          _Y_ =  /*<<arg.ml:174:12>>*/ assoc3(keyword, speclist[1]),
+          follow =  /*<<arg.ml:174:12>>*/ [0, arg],
+          _Y_ = assoc3(keyword, speclist[1]),
           follow$0 = follow,
           action = _Y_;
         }
@@ -21490,7 +22132,7 @@
        let s$0 = s, follow$2 = follow$0;
        var
         no_arg =
-          function(param){
+           /*<<arg.ml:177:8>>*/ function(param){
             /*<<arg.ml:178:10>>*/ if(! follow$2)
              /*<<arg.ml:179:20>>*/ return;
            var arg = follow$2[1];
@@ -21498,35 +22140,37 @@
                   ([0, Stop, [1, s$0, arg, cst_no_argument]], 1);
            /*<<arg.ml:180:68>>*/ },
         get_arg =
-          function(param){
+           /*<<arg.ml:181:8>>*/ function(param){
             /*<<arg.ml:182:10>>*/ if(follow$2){
             var arg = follow$2[1];
              /*<<arg.ml:186:24>>*/ return arg;
            }
-           if((current[1] + 1 | 0) >= argv[1].length - 1)
+            /*<<arg.ml:184:14>>*/ if
+            ((current[1] + 1 | 0) >= argv[1].length - 1)
              /*<<arg.ml:185:19>>*/ throw caml_maybe_attach_backtrace
                    ([0, Stop, [2, s$0]], 1);
-           var _af_ = current[1] + 1 | 0;
-            /*<<arg.ml:184:58>>*/ return caml_check_bound(argv[1], _af_)
-                   [1 + _af_];
+           var _af_ =  /*<<arg.ml:184:58>>*/ current[1] + 1 | 0;
+            /*<<arg.ml:184:78>>*/ return  /*<<arg.ml:184:58>>*/ caml_check_bound
+                    (argv[1], _af_)
+                   [1 + _af_] /*<<arg.ml:184:78>>*/ ;
            /*<<arg.ml:186:27>>*/ },
         consume_arg =
-          function(param){
+           /*<<arg.ml:188:8>>*/ function(param){
             /*<<arg.ml:189:10>>*/ return follow$2 ? 0 : (current[1]++, 0) /*<<arg.ml:191:24>>*/ ;
           },
         treat_action =
-          function(param){
+           /*<<arg.ml:193:8>>*/ function(param){
             /*<<arg.ml:193:31>>*/ switch(param[0]){
              case 0:
               var f = param[1];
                /*<<arg.ml:194:20>>*/ no_arg$0(0);
-              return caml_call1(f, 0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:194:29>>*/ return caml_call1(f, 0) /*<<arg.ml:276:54>>*/ ;
              case 1:
               var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
-               /*<<arg.ml:124:2>>*/ try{
+              try{
                var
                 _$_ =
-                   /*<<arg.ml:124:6>>*/ [0,
+                   /*<<arg.ml:124:29>>*/ [0,
                     /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
                 match = _$_;
               }
@@ -21536,7 +22180,7 @@
                 throw caml_maybe_attach_backtrace(___, 0);
                var match = 0;
               }
-              if(! match)
+               /*<<arg.ml:197:46>>*/ if(! match)
                 /*<<arg.ml:198:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg, cst_a_boolean]], 1);
               var s = match[1];
@@ -21545,27 +22189,28 @@
              case 2:
               var r = param[1];
                /*<<arg.ml:202:19>>*/ no_arg$0(0);
-              r[1] = 1;
+               /*<<arg.ml:202:28>>*/ r[1] = 1;
               return 0;
              case 3:
               var r$0 = param[1];
                /*<<arg.ml:203:21>>*/ no_arg$0(0);
-              r$0[1] = 0;
+               /*<<arg.ml:203:30>>*/ r$0[1] = 0;
               return 0;
              case 4:
               var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
                /*<<arg.ml:206:12>>*/ caml_call1(f$1, arg$0);
-              return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:206:17>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 5:
               var r$1 = param[1];
-              r$1[1] =  /*<<arg.ml:218:17>>*/ get_arg$0(0);
+               /*<<arg.ml:218:27>>*/ r$1[1] =
+                /*<<arg.ml:218:17>>*/ get_arg$0(0);
                /*<<arg.ml:219:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 6:
               var
                f$2 = param[1],
                arg$1 =  /*<<arg.ml:221:22>>*/ get_arg$0(0),
                match$0 =  /*<<arg.ml:222:24>>*/ int_of_string_opt(arg$1);
-              if(! match$0)
+               /*<<arg.ml:222:45>>*/ if(! match$0)
                 /*<<arg.ml:223:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$1, cst_an_integer]], 1);
               var x = match$0[1];
@@ -21576,18 +22221,18 @@
                r$2 = param[1],
                arg$2 =  /*<<arg.ml:228:22>>*/ get_arg$0(0),
                match$1 =  /*<<arg.ml:229:24>>*/ int_of_string_opt(arg$2);
-              if(! match$1)
+               /*<<arg.ml:229:45>>*/ if(! match$1)
                 /*<<arg.ml:230:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$2, cst_an_integer$0]], 1);
               var x$0 = match$1[1];
-              r$2[1] = x$0;
+               /*<<arg.ml:231:24>>*/ r$2[1] = x$0;
                /*<<arg.ml:233:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 8:
               var
                f$3 = param[1],
                arg$3 =  /*<<arg.ml:235:22>>*/ get_arg$0(0),
                match$2 =  /*<<arg.ml:236:24>>*/ float_of_string_opt(arg$3);
-              if(! match$2)
+               /*<<arg.ml:236:47>>*/ if(! match$2)
                 /*<<arg.ml:237:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$3, cst_a_float]], 1);
               var x$1 = match$2[1];
@@ -21598,31 +22243,33 @@
                r$3 = param[1],
                arg$4 =  /*<<arg.ml:242:22>>*/ get_arg$0(0),
                match$3 =  /*<<arg.ml:243:24>>*/ float_of_string_opt(arg$4);
-              if(! match$3)
+               /*<<arg.ml:243:47>>*/ if(! match$3)
                 /*<<arg.ml:244:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$4, cst_a_float$0]], 1);
               var x$2 = match$3[1];
-              r$3[1] = x$2;
+               /*<<arg.ml:245:24>>*/ r$3[1] = x$2;
                /*<<arg.ml:247:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 10:
               var specs = param[1];
                /*<<arg.ml:249:12>>*/ no_arg$0(0);
-              return caml_call2(Stdlib_List[18], treat_action$0, specs) /*<<arg.ml:276:54>>*/ ;
+               /*<<arg.ml:249:21>>*/ return caml_call2
+                      (Stdlib_List[18], treat_action$0, specs) /*<<arg.ml:276:54>>*/ ;
              case 11:
               var
                f$4 = param[2],
                symb = param[1],
                arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
-               /*<<arg.ml:210:15>>*/ if
-               (caml_call2(Stdlib_List[37], arg$5, symb)){
+               /*<<arg.ml:210:32>>*/ if
+               ( /*<<arg.ml:210:15>>*/ caml_call2
+                 (Stdlib_List[37], arg$5, symb)){
                 /*<<arg.ml:211:14>>*/ caml_call1(f$4, arg$5);
-               return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
+                /*<<arg.ml:211:19>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
               }
               var
                _aa_ =
                   /*<<arg.ml:215:44>>*/ make_symlist
                   (cst$6, cst$5, cst$4, symb);
-               /*<<arg.ml:213:21>>*/ throw caml_maybe_attach_backtrace
+               /*<<arg.ml:215:73>>*/ throw caml_maybe_attach_backtrace
                      ([0,
                        Stop,
                        [1,
@@ -21636,28 +22283,37 @@
                /*<<arg.ml:252:12>>*/ no_arg$0(0);
                /*<<arg.ml:255:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0)) return 0;
-               var _ab_ = current[1] + 1 | 0;
-                /*<<arg.ml:254:14>>*/ caml_call1
-                (f$5, caml_check_bound(argv[1], _ab_)[1 + _ab_]);
+               var _ab_ =  /*<<arg.ml:254:14>>*/ current[1] + 1 | 0;
+               caml_call1
+                (f$5,
+                  /*<<arg.ml:254:16>>*/ caml_check_bound(argv[1], _ab_)
+                  [1 + _ab_]);
                 /*<<arg.ml:255:14>>*/ consume_arg$0(0);
               }
               break;
              case 13:
               var f$6 = param[1];
                /*<<arg.ml:258:12>>*/ no_arg$0(0);
-              var acc =  /*<<arg.ml:259:22>>*/ [0, 0];
+              var acc =  /*<<arg.ml:258:21>>*/ [0, 0];
                /*<<arg.ml:262:14>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
-                 /*<<arg.ml:264:14>>*/ return caml_call1
-                        (f$6, caml_call1(Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
-               var _ad_ = current[1] + 1 | 0, _ac_ = acc[1];
-               acc[1] = [0, caml_check_bound(argv[1], _ad_)[1 + _ad_], _ac_];
+                 /*<<arg.ml:264:29>>*/ return caml_call1
+                        (f$6,
+                          /*<<arg.ml:264:14>>*/ caml_call1(Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
+               var
+                _ad_ =  /*<<arg.ml:261:14>>*/ current[1] + 1 | 0,
+                _ac_ = acc[1];
+                /*<<arg.ml:261:41>>*/ acc[1] =
+                [0,
+                  /*<<arg.ml:261:21>>*/ caml_check_bound(argv[1], _ad_)
+                  [1 + _ad_],
+                 _ac_];
                 /*<<arg.ml:262:14>>*/ consume_arg$0(0);
               }
               break;
              default:
               var f$7 = param[1];
-              if(1 - allow_expand)
+               /*<<arg.ml:266:12>>*/ if(1 - allow_expand)
                 /*<<arg.ml:267:14>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stdlib[6], cst_Arg_Expand_is_is_only_allo], 1);
               var
@@ -21674,10 +22330,10 @@
                    argv[1],
                    current[1] + 1 | 0,
                    (argv[1].length - 1 - current[1] | 0) - 1 | 0);
-              argv[1] =
+               /*<<arg.ml:276:53>>*/ argv[1] =
                 /*<<arg.ml:276:19>>*/ caml_call1
                 (Stdlib_Array[5], [0, before, [0, newarg, [0, after, 0]]]);
-              return 0;
+               /*<<arg.ml:276:53>>*/ return 0;
            }
            /*<<arg.ml:276:54>>*/ };
        let
@@ -21694,15 +22350,15 @@
       var exn = caml_wrap_exception(exn$0);
       if(exn[1] === Bad){
        var m = exn[2];
-        /*<<arg.ml:280:26>>*/ throw caml_maybe_attach_backtrace
-              (convert_error([3, m]), 1);
+        /*<<arg.ml:280:53>>*/ throw caml_maybe_attach_backtrace
+              ( /*<<arg.ml:280:26>>*/ convert_error([3, m]), 1);
       }
       if(exn[1] !== Stop) throw caml_maybe_attach_backtrace(exn, 0);
       var e = exn[2];
-       /*<<arg.ml:281:27>>*/ throw caml_maybe_attach_backtrace
-             (convert_error(e), 1);
+       /*<<arg.ml:281:44>>*/ throw caml_maybe_attach_backtrace
+             ( /*<<arg.ml:281:27>>*/ convert_error(e), 1);
      }
-     current[1]++;
+      /*<<arg.ml:283:4>>*/ current[1]++;
     }
    }
    function parse_and_expand_argv_dynamic
@@ -21711,12 +22367,12 @@
             (1, current, argv, speclist, anonfun, errmsg) /*<<arg.ml:287:77>>*/ ;
    }
    function parse_argv_dynamic(opt, argv, speclist, anonfun, errmsg){
-    var current$0 = opt ? opt[1] : current;
+    var current$0 =  /*<<arg.ml:289:23>>*/ opt ? opt[1] : current;
      /*<<arg.ml:290:2>>*/ return parse_and_expand_argv_dynamic_
             (0, current$0, [0, argv], speclist, anonfun, errmsg) /*<<arg.ml:291:10>>*/ ;
    }
    function parse_argv(opt, argv, speclist, anonfun, errmsg){
-    var current$0 = opt ? opt[1] : current;
+    var current$0 =  /*<<arg.ml:294:15>>*/ opt ? opt[1] : current;
      /*<<arg.ml:295:2>>*/ return parse_argv_dynamic
             ([0, current$0], argv, [0, speclist], anonfun, errmsg) /*<<arg.ml:295:72>>*/ ;
    }
@@ -21731,12 +22387,12 @@
      if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:302:15>>*/ caml_call2(Stdlib_Printf[3], _l_, msg$0);
-      return caml_call1(Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
+       /*<<arg.ml:302:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:303:16>>*/ caml_call2(Stdlib_Printf[2], _m_, msg$1);
-     return caml_call1(Stdlib[99], 0) /*<<arg.ml:303:39>>*/ ;
+      /*<<arg.ml:303:31>>*/ return caml_call1(Stdlib[99], 0) /*<<arg.ml:303:39>>*/ ;
     }
    }
    function parse_dynamic(l, f, msg){
@@ -21752,20 +22408,20 @@
      if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:310:15>>*/ caml_call2(Stdlib_Printf[3], _n_, msg$0);
-      return caml_call1(Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
+       /*<<arg.ml:310:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:311:16>>*/ caml_call2(Stdlib_Printf[2], _o_, msg$1);
-     return caml_call1(Stdlib[99], 0) /*<<arg.ml:311:39>>*/ ;
+      /*<<arg.ml:311:31>>*/ return caml_call1(Stdlib[99], 0) /*<<arg.ml:311:39>>*/ ;
     }
    }
    function parse_expand(l, f, msg){
      /*<<arg.ml:314:2>>*/ try{
      var
-      argv =  /*<<arg.ml:315:15>>*/ [0, caml_sys_argv(0)],
-      spec =  /*<<arg.ml:316:15>>*/ [0, l],
-      current$0 =  /*<<arg.ml:317:18>>*/ [0, current[1]],
+      argv = [0, caml_sys_argv(0)],
+      spec =  /*<<arg.ml:316:4>>*/ [0, l],
+      current$0 =  /*<<arg.ml:317:4>>*/ [0, current[1]],
       _S_ =
          /*<<arg.ml:318:4>>*/ parse_and_expand_argv_dynamic
          (current$0, argv, spec, f, msg);
@@ -21776,61 +22432,63 @@
      if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:320:15>>*/ caml_call2(Stdlib_Printf[3], _p_, msg$0);
-      return caml_call1(Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
+       /*<<arg.ml:320:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
      }
      if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:321:16>>*/ caml_call2(Stdlib_Printf[2], _q_, msg$1);
-     return caml_call1(Stdlib[99], 0) /*<<arg.ml:321:39>>*/ ;
+      /*<<arg.ml:321:31>>*/ return caml_call1(Stdlib[99], 0) /*<<arg.ml:321:39>>*/ ;
     }
    }
    function second_word(s){
-    var len = caml_ml_string_length(s);
+    var len =  /*<<arg.ml:325:2>>*/ caml_ml_string_length(s);
     function loop(n){
      var n$0 = n;
       /*<<arg.ml:327:4>>*/ for(;;){
-      if(len <= n$0)  /*<<arg.ml:326:2>>*/ return len;
-       /*<<arg.ml:328:12>>*/ if(32 !== caml_string_get(s, n$0))
+      if(len <= n$0)  /*<<arg.ml:327:21>>*/ return len;
+       /*<<arg.ml:328:17>>*/ if
+       (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
       var n$1 =  /*<<arg.ml:328:29>>*/ n$0 + 1 | 0;
       n$0 = n$1;
      }
      /*<<arg.ml:329:10>>*/ }
-     /*<<arg.ml:331:2>>*/ try{
-     var n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);
-    }
+    try{var n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);}
     catch(_Q_){
      var _O_ = caml_wrap_exception(_Q_);
      if(_O_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_O_, 0);
-      /*<<arg.ml:334:6>>*/ try{
-      var n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);
-     }
+     try{var n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);}
      catch(_R_){
       var _P_ = caml_wrap_exception(_R_);
       if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
       throw caml_maybe_attach_backtrace(_P_, 0);
      }
-      /*<<arg.ml:334:18>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
+      /*<<arg.ml:335:13>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     }
-     /*<<arg.ml:331:8>>*/ return loop(n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
+     /*<<arg.ml:332:9>>*/ return loop(n$0 + 1 | 0) /*<<arg.ml:337:9>>*/ ;
    }
    function max_arg_len(cur, param){
-    var doc = param[3], spec = param[2], kwd = param[1];
+    var
+     doc =  /*<<arg.ml:340:16>>*/ param[3],
+     spec = param[2],
+     kwd = param[1];
      /*<<arg.ml:341:2>>*/ if(11 === spec[0])
-     return caml_call2(Stdlib_Int[11], cur, caml_ml_string_length(kwd)) /*<<arg.ml:343:58>>*/ ;
+      /*<<arg.ml:342:16>>*/ return caml_call2
+             (Stdlib_Int[11], cur, caml_ml_string_length(kwd)) /*<<arg.ml:343:58>>*/ ;
     var
      _N_ =
-       caml_ml_string_length(kwd) +  /*<<arg.ml:343:42>>*/ second_word(doc)
+        /*<<arg.ml:343:57>>*/ caml_ml_string_length(kwd)
+       +  /*<<arg.ml:343:42>>*/ second_word(doc)
        | 0;
-    return caml_call2(Stdlib_Int[11], cur, _N_) /*<<arg.ml:343:58>>*/ ;
+     /*<<arg.ml:343:57>>*/ return caml_call2(Stdlib_Int[11], cur, _N_) /*<<arg.ml:343:58>>*/ ;
    }
    function replace_leading_tab(s){
-    var seen =  /*<<arg.ml:347:13>>*/ [0, 0];
+    var seen =  /*<<arg.ml:347:2>>*/ [0, 0];
      /*<<arg.ml:348:2>>*/ return caml_call2
             (Stdlib_String[18],
              function(c){
                /*<<arg.ml:348:13>>*/ if(9 === c && ! seen[1]){
-               seen[1] = 1;
+                /*<<arg.ml:348:46>>*/ seen[1] = 1;
                 /*<<arg.ml:348:60>>*/ return 32;
               }
                /*<<arg.ml:348:71>>*/ return c;
@@ -21839,23 +22497,23 @@
    }
    function align(opt, speclist){
     var
-     limit = opt ? opt[1] : Stdlib[19],
+     limit =  /*<<arg.ml:373:10>>*/ opt ? opt[1] : Stdlib[19],
      completed =  /*<<arg.ml:374:18>>*/ add_help(speclist),
      len =
         /*<<arg.ml:375:12>>*/ caml_call3
         (Stdlib_List[26], max_arg_len, 0, completed),
      len$0 =  /*<<arg.ml:376:12>>*/ caml_call2(Stdlib_Int[10], len, limit);
-     /*<<arg.ml:377:2>>*/ return caml_call2
+     /*<<arg.ml:377:28>>*/ return caml_call2
             (Stdlib_List[20],
              function(ksd){
-              var kwd = ksd[1], spec = ksd[2];
+              var kwd =  /*<<arg.ml:351:2>>*/ ksd[1], spec = ksd[2];
               if(ksd[3] === cst$8)  /*<<arg.ml:355:6>>*/ return ksd;
               if(11 === spec[0]){
                var
                 msg$0 = ksd[3],
                 cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
                 _K_ =
-                   /*<<arg.ml:358:32>>*/ caml_call2
+                   /*<<arg.ml:358:58>>*/  /*<<arg.ml:358:32>>*/ caml_call2
                    (Stdlib_Int[11], 0, len$0 - cutcol$0 | 0)
                   + 3
                   | 0,
@@ -21864,22 +22522,22 @@
                 _L_ =  /*<<arg.ml:359:34>>*/ replace_leading_tab(msg$0),
                 _M_ =
                    /*<<arg.ml:359:25>>*/ caml_call2(Stdlib[28], spaces$0, _L_);
-                /*<<arg.ml:359:6>>*/ return [0,
+                /*<<arg.ml:359:57>>*/ return [0,
                        kwd,
                        spec,
-                        /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:6>>*/ ;
+                        /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:57>>*/ ;
               }
               var
                msg = ksd[3],
                spec$0 = ksd[2],
                cutcol =  /*<<arg.ml:361:19>>*/ second_word(msg),
                kwd_len =  /*<<arg.ml:362:6>>*/ caml_ml_string_length(kwd),
-               diff = (len$0 - kwd_len | 0) - cutcol | 0;
+               diff =  /*<<arg.ml:363:6>>*/ (len$0 - kwd_len | 0) - cutcol | 0;
                /*<<arg.ml:364:6>>*/ if(0 >= diff)
-                /*<<arg.ml:365:8>>*/ return [0,
+                /*<<arg.ml:365:43>>*/ return [0,
                        kwd,
                        spec$0,
-                        /*<<arg.ml:365:20>>*/ replace_leading_tab(msg)] /*<<arg.ml:365:8>>*/ ;
+                        /*<<arg.ml:365:20>>*/ replace_leading_tab(msg)] /*<<arg.ml:365:43>>*/ ;
               var
                spaces =
                   /*<<arg.ml:367:21>>*/ caml_call2(Stdlib_String[1], diff, 32),
@@ -21892,13 +22550,14 @@
                   (Stdlib_String[16],
                    msg,
                    cutcol,
-                   caml_ml_string_length(msg) - cutcol | 0),
+                    /*<<arg.ml:369:8>>*/ caml_ml_string_length(msg) - cutcol
+                   | 0),
                _J_ =
                   /*<<arg.ml:370:29>>*/ caml_call2(Stdlib[28], spaces, suffix);
-               /*<<arg.ml:370:8>>*/ return [0,
+               /*<<arg.ml:370:44>>*/ return [0,
                       kwd,
                       spec$0,
-                       /*<<arg.ml:370:20>>*/ caml_call2(Stdlib[28], prefix, _J_)] /*<<arg.ml:370:8>>*/ ;
+                       /*<<arg.ml:370:20>>*/ caml_call2(Stdlib[28], prefix, _J_)] /*<<arg.ml:370:44>>*/ ;
              },
              completed) /*<<arg.ml:377:38>>*/ ;
    }
@@ -21906,11 +22565,11 @@
     var
      ic =  /*<<arg.ml:387:11>>*/ caml_call1(Stdlib[80], file),
      buf =  /*<<arg.ml:388:12>>*/ caml_call1(Stdlib_Buffer[1], 200),
-     words =  /*<<arg.ml:389:14>>*/ [0, 0];
+     words =  /*<<arg.ml:389:2>>*/ [0, 0];
     function stash(param){
      var word =  /*<<arg.ml:391:15>>*/ caml_call1(Stdlib_Buffer[2], buf);
       /*<<arg.ml:392:4>>*/ if(trim){
-      var len = caml_ml_string_length(word);
+      var len =  /*<<arg.ml:380:2>>*/ caml_ml_string_length(word);
       a:
       {
         /*<<arg.ml:381:2>>*/ if
@@ -21928,13 +22587,13 @@
      }
      else
       var word$0 = word;
-     words[1] = [0, word$0, words[1]];
-      /*<<arg.ml:390:2>>*/ return caml_call1(Stdlib_Buffer[8], buf) /*<<arg.ml:394:20>>*/ ;
+      /*<<arg.ml:393:4>>*/ words[1] = [0, word$0, words[1]];
+      /*<<arg.ml:394:4>>*/ return caml_call1(Stdlib_Buffer[8], buf) /*<<arg.ml:394:20>>*/ ;
     }
-     /*<<arg.ml:396:2>>*/ try{
+    try{
      for(;;){
       var c =  /*<<arg.ml:398:16>>*/ caml_call1(Stdlib[82], ic);
-      if(c === sep)
+       /*<<arg.ml:399:8>>*/ if(c === sep)
         /*<<arg.ml:399:24>>*/ stash(0);
       else
         /*<<arg.ml:399:38>>*/ caml_call2(Stdlib_Buffer[12], buf, c);
@@ -21943,17 +22602,18 @@
     catch(_G_){
      var _E_ = caml_wrap_exception(_G_);
      if(_E_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_E_, 0);
-     if(0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
+      /*<<arg.ml:403:22>>*/ if
+      (0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
       /*<<arg.ml:404:2>>*/ caml_call1(Stdlib[93], ic);
      var _F_ =  /*<<arg.ml:405:16>>*/ caml_call1(Stdlib_List[10], words[1]);
-     return caml_call1(Stdlib_Array[11], _F_) /*<<arg.ml:405:33>>*/ ;
+      /*<<arg.ml:405:33>>*/ return caml_call1(Stdlib_Array[11], _F_);
     }
    }
-   var _r_ =  /*<<arg.ml:386:13>>*/ 10, _s_ = 1;
+   var _r_ = 10, _s_ = 1;
    function read_arg(_D_){ /*<<?>>*/ return read_aux(_s_, _r_, _D_);}
    var
-    _t_ =  /*<<arg.ml:407:15>>*/ 0,
+    _t_ =  /*<<arg.ml:407:33>>*/ 0,
     _u_ = 0,
     _v_ = [0, [2, 0, [0, 0]], "%s%c"];
    function read_arg0(_C_){ /*<<?>>*/ return read_aux(_u_, _t_, _C_);}
@@ -21966,15 +22626,15 @@
                (Stdlib_Printf[1], oc, _v_, s, sep) /*<<arg.ml:413:46>>*/ ;
       },
       args);
-     /*<<arg.ml:413:2>>*/ return caml_call1(Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
+     /*<<arg.ml:413:52>>*/ return caml_call1(Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
    }
-   var _w_ =  /*<<arg.ml:411:14>>*/ 10;
+   var _w_ =  /*<<arg.ml:409:37>>*/ 10;
    function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
-   var _x_ =  /*<<arg.ml:416:16>>*/ 0;
+   var _x_ =  /*<<arg.ml:416:30>>*/ 0;
    function write_arg0(_y_, _z_){ /*<<?>>*/ return write_aux(_x_, _y_, _z_);}
    var
     Stdlib_Arg =
-      [0,
+       /*<<arg.ml:418:33>>*/ [0,
        parse,
        parse_dynamic,
        parse_argv,
@@ -21993,7 +22653,7 @@
        write_arg0];
    runtime.caml_register_global(55, Stdlib_Arg, "Stdlib__Arg");
    return;
-  }
+   /*<<?>>*/ }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Printexc
@@ -22123,13 +22783,17 @@
     cst_Program_not_linked_with_g_ = cst_Program_not_linked_with_g_$0;
    function field(x, i){
     var f =  /*<<printexc.ml:25:10>>*/ x[1 + i];
-     /*<<printexc.ml:26:9>>*/ if(! caml_call1(Stdlib_Obj[1], f))
+     /*<<printexc.ml:26:25>>*/ if
+     (!  /*<<printexc.ml:26:9>>*/ caml_call1(Stdlib_Obj[1], f))
       /*<<printexc.ml:27:4>>*/ return caml_call2(Stdlib_Printf[4], _b_, f) /*<<printexc.ml:33:7>>*/ ;
     var _ah_ =  /*<<printexc.ml:28:7>>*/ Stdlib_Obj[15];
-    if( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
+     /*<<printexc.ml:28:19>>*/ if
+     ( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
       /*<<printexc.ml:29:4>>*/ return caml_call2(Stdlib_Printf[4], _a_, f) /*<<printexc.ml:33:7>>*/ ;
     var _ai_ =  /*<<printexc.ml:30:7>>*/ Stdlib_Obj[16];
-    return  /*<<printexc.ml:30:10>>*/ caml_obj_tag(f) === _ai_
+     /*<<printexc.ml:30:19>>*/ return  /*<<printexc.ml:30:10>>*/ caml_obj_tag
+             (f)
+            === _ai_
             ?  /*<<printexc.ml:31:4>>*/ caml_call1(Stdlib[35], f)
             : cst /*<<printexc.ml:33:7>>*/ ;
    }
@@ -22139,7 +22803,7 @@
     var
      _af_ =  /*<<printexc.ml:37:36>>*/ other_fields(x, i + 1 | 0),
      _ag_ =  /*<<printexc.ml:37:24>>*/ field(x, i);
-     /*<<printexc.ml:37:36>>*/ return caml_call3
+     /*<<printexc.ml:37:35>>*/ return caml_call3
             (Stdlib_Printf[4], _c_, _ag_, _af_) /*<<printexc.ml:37:58>>*/ ;
    }
    function use_printers(x){
@@ -22150,9 +22814,7 @@
      var tl = param[2], hd = param[1];
      a:
      {
-       /*<<printexc.ml:49:8>>*/ try{
-       var val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);
-      }
+      try{var val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);}
       catch(_ae_){break a;}
       if(val){var s = val[1];  /*<<printexc.ml:51:21>>*/ return [0, s];}
      }
@@ -22164,13 +22826,13 @@
      (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
      var
       constructor =  /*<<printexc.ml:60:17>>*/ t[1][1],
-      match = t.length - 1;
+      match =  /*<<printexc.ml:40:2>>*/ t.length - 1;
      if(2 < match >>> 0)
       var
        _aa_ =  /*<<printexc.ml:44:38>>*/ other_fields(t, 2),
        _ab_ =  /*<<printexc.ml:44:26>>*/ field(t, 1),
        _ad_ =
-          /*<<printexc.ml:44:38>>*/ caml_call3
+          /*<<printexc.ml:44:37>>*/ caml_call3
           (Stdlib_Printf[4], _d_, _ab_, _aa_);
      else
       switch(match){
@@ -22181,13 +22843,16 @@
         default:
          var
           _ac_ =  /*<<printexc.ml:43:24>>*/ field(t, 1),
-          _ad_ = caml_call2(Stdlib_Printf[4], _e_, _ac_);
+          _ad_ =
+             /*<<printexc.ml:43:35>>*/ caml_call2(Stdlib_Printf[4], _e_, _ac_);
       }
      var match$0 = [0, constructor, [0, _ad_]];
     }
     else
      var match$0 = [0, t[1], 0];
-    var fields_opt = match$0[2], constructor$0 = match$0[1];
+    var
+     fields_opt =  /*<<printexc.ml:64:58>>*/ match$0[2],
+     constructor$0 = match$0[1];
      /*<<printexc.ml:65:2>>*/ if(! fields_opt)
       /*<<printexc.ml:66:12>>*/ return constructor$0;
     var f = fields_opt[1];
@@ -22241,7 +22906,7 @@
    }
    function to_string(e){
     var match =  /*<<printexc.ml:82:8>>*/ use_printers(e);
-    if(! match)
+     /*<<printexc.ml:82:22>>*/ if(! match)
       /*<<printexc.ml:84:12>>*/ return to_string_default(e) /*<<printexc.ml:84:31>>*/ ;
     var s = match[1];
      /*<<printexc.ml:83:14>>*/ return s;
@@ -22257,7 +22922,7 @@
       ___ =  /*<<printexc.ml:90:39>>*/ to_string(x);
       /*<<printexc.ml:90:4>>*/ caml_call2(Stdlib_Printf[3], _f_, ___);
       /*<<printexc.ml:91:4>>*/ caml_call1(Stdlib[63], Stdlib[40]);
-      /*<<printexc.ml:92:4>>*/ throw caml_maybe_attach_backtrace(x, 0);
+      /*<<printexc.ml:91:16>>*/ throw caml_maybe_attach_backtrace(x, 0);
     }
     /*<<printexc.ml:92:11>>*/ }
    function catch$0(fct, arg){
@@ -22270,7 +22935,7 @@
       /*<<printexc.ml:98:4>>*/ caml_call1(Stdlib[63], Stdlib[39]);
      var _Y_ =  /*<<printexc.ml:99:39>>*/ to_string(x);
       /*<<printexc.ml:99:4>>*/ caml_call2(Stdlib_Printf[3], _g_, _Y_);
-     return caml_call1(Stdlib[99], 2) /*<<printexc.ml:100:10>>*/ ;
+      /*<<printexc.ml:99:52>>*/ return caml_call1(Stdlib[99], 2) /*<<printexc.ml:100:10>>*/ ;
     }
    }
    function raw_backtrace_entries(bt){
@@ -22278,7 +22943,7 @@
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
      /*<<printexc.ml:138:2>>*/ return [0,
-             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)] /*<<printexc.ml:138:6>>*/ ;
+             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)];
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
@@ -22289,47 +22954,51 @@
      /*<<printexc.ml:148:2>>*/ if(0 === slot[0]){
      var
       lines =
-        slot[3] === slot[6]
+         /*<<printexc.ml:155:6>>*/ slot[3] === slot[6]
          ?  /*<<printexc.ml:157:10>>*/ caml_call2
            (Stdlib_Printf[4], _h_, slot[3])
          :  /*<<printexc.ml:159:10>>*/ caml_call3
            (Stdlib_Printf[4], _j_, slot[3], slot[6]),
-      _R_ = slot[7],
+      _R_ =  /*<<printexc.ml:161:6>>*/ slot[7],
       _S_ = slot[4],
       _T_ = slot[8] ? cst_inlined : cst$3,
       _U_ = slot[2],
       _V_ = slot[9],
       _W_ =  /*<<printexc.ml:162:14>>*/ info(slot[1]);
-      /*<<printexc.ml:161:6>>*/ return [0,
+      /*<<printexc.ml:164:44>>*/ return [0,
               /*<<printexc.ml:161:11>>*/ caml_call8
-              (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)] /*<<printexc.ml:161:6>>*/ ;
+              (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)] /*<<printexc.ml:164:44>>*/ ;
     }
-    if(slot[1])  /*<<printexc.ml:151:50>>*/ return 0;
+     /*<<printexc.ml:150:6>>*/ if(slot[1])
+      /*<<printexc.ml:151:50>>*/ return 0;
     var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
-     /*<<printexc.ml:153:8>>*/ return [0,
-             /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:8>>*/ ;
+     /*<<printexc.ml:153:57>>*/ return [0,
+             /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:57>>*/ ;
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
     var
      backtrace =
         /*<<printexc.ml:179:36>>*/ convert_raw_backtrace(raw_backtrace);
-    if(! backtrace)
+     /*<<printexc.ml:167:2>>*/ if(! backtrace)
       /*<<printexc.ml:169:6>>*/ return caml_call2
              (Stdlib_Printf[1], outchan, _m_) /*<<printexc.ml:179:73>>*/ ;
-    var a = backtrace[1], _P_ = a.length - 2 | 0, _O_ = 0;
+    var
+     a = backtrace[1],
+     _P_ =  /*<<printexc.ml:172:6>>*/ a.length - 2 | 0,
+     _O_ = 0;
     if(_P_ >= 0){
      var i = _O_;
      for(;;){
       var
        match =
           /*<<printexc.ml:173:14>>*/ format_backtrace_slot
-          (i, caml_check_bound(a, i)[1 + i]);
-      if(match){
+          (i,  /*<<printexc.ml:173:38>>*/ caml_check_bound(a, i)[1 + i]);
+       /*<<printexc.ml:173:43>>*/ if(match){
        var str = match[1];
         /*<<printexc.ml:175:24>>*/ caml_call3
         (Stdlib_Printf[1], outchan, _l_, str);
       }
-      var _Q_ =  /*<<printexc.ml:172:6>>*/ i + 1 | 0;
+      var _Q_ = i + 1 | 0;
       if(_P_ === i) break;
       i = _Q_;
      }
@@ -22337,32 +23006,33 @@
     return 0;
     /*<<printexc.ml:179:73>>*/ }
    function print_backtrace(outchan){
-     /*<<printexc.ml:183:2>>*/ return  /*<<printexc.ml:183:30>>*/ print_raw_backtrace
-            (outchan, caml_get_exception_raw_backtra(0)) /*<<printexc.ml:183:52>>*/ ;
+     /*<<printexc.ml:183:2>>*/ return  /*<<printexc.ml:183:52>>*/ print_raw_backtrace
+            (outchan,
+              /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra(0)) /*<<printexc.ml:183:52>>*/ ;
    }
    function raw_backtrace_to_string(raw_backtrace){
     var
      backtrace =
         /*<<printexc.ml:199:22>>*/ convert_raw_backtrace(raw_backtrace);
-    if(! backtrace)
+     /*<<printexc.ml:186:2>>*/ if(! backtrace)
       /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_;
     var
      a = backtrace[1],
      b =  /*<<printexc.ml:190:14>>*/ caml_call1(Stdlib_Buffer[1], 1024),
-     _M_ = a.length - 2 | 0,
-     _L_ = 0;
-    if(_M_ >= 0){
+     _M_ =  /*<<printexc.ml:191:6>>*/ a.length - 2 | 0,
+     _L_ =  /*<<printexc.ml:190:32>>*/ 0;
+     /*<<printexc.ml:191:6>>*/ if(_M_ >= 0){
      var i = _L_;
      for(;;){
       var
        match =
           /*<<printexc.ml:192:14>>*/ format_backtrace_slot
-          (i, caml_check_bound(a, i)[1 + i]);
-      if(match){
+          (i,  /*<<printexc.ml:192:38>>*/ caml_check_bound(a, i)[1 + i]);
+       /*<<printexc.ml:192:43>>*/ if(match){
        var str = match[1];
         /*<<printexc.ml:194:24>>*/ caml_call3(Stdlib_Printf[5], b, _n_, str);
       }
-      var _N_ =  /*<<printexc.ml:191:6>>*/ i + 1 | 0;
+      var _N_ = i + 1 | 0;
       if(_M_ === i) break;
       i = _N_;
      }
@@ -22389,40 +23059,50 @@
    function backtrace_slots(raw_backtrace){
     var
      match =  /*<<printexc.ml:242:8>>*/ convert_raw_backtrace(raw_backtrace);
-    if(! match)  /*<<printexc.ml:243:14>>*/ return 0;
-    var backtrace = match[1], i$1 = backtrace.length - 2 | 0, i = i$1;
+     /*<<printexc.ml:242:43>>*/ if(! match)
+      /*<<printexc.ml:243:14>>*/ return 0;
+    var
+     backtrace = match[1],
+     i$1 =  /*<<printexc.ml:251:6>>*/ backtrace.length - 2 | 0,
+     i = i$1;
      /*<<printexc.ml:248:30>>*/ for(;;){
      if(-1 === i)
       var _K_ = 0;
      else{
-      var _J_ = 0 === caml_check_bound(backtrace, i)[1 + i][0] ? 1 : 0;
-       /*<<printexc.ml:250:15>>*/ if(! _J_){
+      var
+       _J_ =
+          /*<<printexc.ml:245:24>>*/ 0
+          ===
+            /*<<printexc.ml:250:27>>*/ caml_check_bound(backtrace, i)[1 + i]
+            [0]
+          ? 1
+          : 0;
+       /*<<printexc.ml:250:40>>*/ if(! _J_){
        var i$0 = i - 1 | 0;
        i = i$0;
        continue;
       }
       var _K_ = _J_;
      }
-      /*<<printexc.ml:251:9>>*/ return _K_ ? [0, backtrace] : 0 /*<<printexc.ml:253:15>>*/ ;
+      /*<<printexc.ml:251:51>>*/ return _K_ ? [0, backtrace] : 0 /*<<printexc.ml:253:15>>*/ ;
     }
    }
    function backtrace_slots_of_raw_entry(entry){
-     /*<<printexc.ml:256:2>>*/ return  /*<<printexc.ml:256:18>>*/ backtrace_slots
-            ([0, entry]) /*<<printexc.ml:256:29>>*/ ;
+     /*<<printexc.ml:256:2>>*/ return backtrace_slots([0, entry]) /*<<printexc.ml:256:29>>*/ ;
    }
    function raw_backtrace_length(bt){
      /*<<printexc.ml:267:30>>*/ return bt.length - 1;
     /*<<printexc.ml:267:45>>*/ }
    function get_backtrace(param){
-     /*<<printexc.ml:278:23>>*/ return  /*<<printexc.ml:278:47>>*/ raw_backtrace_to_string
-            (caml_get_exception_raw_backtra(0)) /*<<printexc.ml:278:69>>*/ ;
+     /*<<printexc.ml:278:23>>*/ return  /*<<printexc.ml:278:69>>*/ raw_backtrace_to_string
+            ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra(0)) /*<<printexc.ml:278:69>>*/ ;
    }
    function register_printer(fn){
      /*<<printexc.ml:284:2>>*/ for(;;){
      var
       old_printers =
          /*<<printexc.ml:284:21>>*/ caml_call1(Stdlib_Atomic[3], printers),
-      new_printers =  /*<<printexc.ml:285:21>>*/ [0, fn, old_printers],
+      new_printers =  /*<<printexc.ml:285:2>>*/ [0, fn, old_printers],
       success =
          /*<<printexc.ml:286:16>>*/ caml_call3
          (Stdlib_Atomic[6], printers, old_printers, new_printers),
@@ -22438,15 +23118,15 @@
    }
    function exn_slot_id(x){
     var slot =  /*<<printexc.ml:296:13>>*/ exn_slot(x);
-     /*<<printexc.ml:297:11>>*/ return slot[2];
+     /*<<printexc.ml:297:29>>*/ return slot[2];
     /*<<printexc.ml:297:36>>*/ }
    function exn_slot_name(x){
     var slot =  /*<<printexc.ml:300:13>>*/ exn_slot(x);
-     /*<<printexc.ml:301:11>>*/ return slot[1];
+     /*<<printexc.ml:301:29>>*/ return slot[1];
     /*<<printexc.ml:301:39>>*/ }
    var
     errors =
-      [0,
+       /*<<printexc.ml:20:29>>*/ [0,
         cst$4,
         "(Cannot print locations:\n bytecode executable program file not found)",
         "(Cannot print locations:\n bytecode executable program file appears to be corrupt)",
@@ -22463,7 +23143,7 @@
      /*<<printexc.ml:324:2>>*/ print_raw_backtrace(Stdlib[40], raw_backtrace);
     var
      status =  /*<<printexc.ml:325:15>>*/ runtime.caml_ml_debug_info_status(0);
-    if(status < 0){
+     /*<<printexc.ml:326:2>>*/ if(status < 0){
      var
       _G_ =  /*<<printexc.ml:327:26>>*/ caml_call1(Stdlib[18], status),
       _H_ =  /*<<printexc.ml:327:18>>*/ caml_check_bound(errors, _G_)[1 + _G_];
@@ -22473,13 +23153,13 @@
    }
    var
     uncaught_exception_handler =
-       /*<<printexc.ml:330:33>>*/ [0, default_uncaught_exception_han];
+       /*<<printexc.ml:20:29>>*/ [0, default_uncaught_exception_han];
    function set_uncaught_exception_handler(fn){
      /*<<printexc.ml:332:40>>*/ uncaught_exception_handler[1] = fn;
     return 0;
     /*<<printexc.ml:332:72>>*/ }
    var
-    empty_backtrace = [0],
+    empty_backtrace =  /*<<printexc.ml:20:29>>*/ [0],
     cst_Fatal_error_out_of_memory_ =
       "Fatal error: out of memory in uncaught exception handler",
     _p_ =
@@ -22494,17 +23174,14 @@
        "Fatal error in uncaught exception handler: exception %s\n"];
    function handle_uncaught_exception(exn$0, debugger_in_use){
      /*<<printexc.ml:371:2>>*/ try{
-      /*<<printexc.ml:343:2>>*/ try{
+     try{
       var
        raw_backtrace =
          debugger_in_use
           ? empty_backtrace
           :  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0);
-       /*<<printexc.ml:352:4>>*/ try{
-        /*<<printexc.ml:352:9>>*/ caml_call1(Stdlib[103], 0);
-      }
-      catch(_E_){}
-       /*<<printexc.ml:353:4>>*/ try{
+      try{ /*<<printexc.ml:352:9>>*/ caml_call1(Stdlib[103], 0);}catch(_E_){}
+      try{
        var
         _A_ =
            /*<<printexc.ml:354:6>>*/ caml_call2
@@ -22537,7 +23214,7 @@
           /*<<printexc.ml:365:8>>*/ caml_call1
           (Stdlib[53], cst_Fatal_error_out_of_memory_);
      }
-      /*<<printexc.ml:372:4>>*/ return _B_;
+     return _B_;
     }
     catch(_C_){ /*<<printexc.ml:375:4>>*/ return 0;}
     /*<<printexc.ml:375:6>>*/ }
@@ -22545,7 +23222,7 @@
     ("Printexc.handle_uncaught_exception", handle_uncaught_exception);
    var
     Stdlib_Printexc =
-      [0,
+       /*<<printexc.ml:382:29>>*/ [0,
        to_string,
        to_string_default,
        print,
@@ -22577,9 +23254,10 @@
        exn_slot_id,
        exn_slot_name,
        string_of_extension_constructo];
-   runtime.caml_register_global(43, Stdlib_Printexc, "Stdlib__Printexc");
+    /*<<printexc.ml:382:29>>*/ runtime.caml_register_global
+    (43, Stdlib_Printexc, "Stdlib__Printexc");
    return;
-  }
+   /*<<?>>*/ }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Fun
@@ -22610,20 +23288,18 @@
      /*<<fun.ml:17:16>>*/ return c;
     /*<<fun.ml:17:17>>*/ }
    function compose(f, g, x){
-     /*<<fun.ml:18:20>>*/ return  /*<<fun.ml:18:22>>*/ caml_call1
-            (f, caml_call1(g, x)) /*<<fun.ml:18:27>>*/ ;
+     /*<<fun.ml:18:20>>*/ return  /*<<fun.ml:18:27>>*/ caml_call1
+            (f,  /*<<fun.ml:18:22>>*/ caml_call1(g, x)) /*<<fun.ml:18:27>>*/ ;
    }
    function flip(f, x, y){
      /*<<fun.ml:19:17>>*/ return caml_call2(f, y, x) /*<<fun.ml:19:22>>*/ ;
    }
    function negate(p, v){
-     /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v);
-    /*<<fun.ml:20:26>>*/ }
+     /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v) /*<<fun.ml:20:26>>*/ ;
+   }
    var
     Finally_raised =
-       /*<<fun.ml:22:0>>*/ [248,
-       "Stdlib.Fun.Finally_raised",
-       runtime.caml_fresh_oo_id(0)],
+      [248, "Stdlib.Fun.Finally_raised", runtime.caml_fresh_oo_id(0)],
     cst_Fun_Finally_raised = "Fun.Finally_raised: ";
     /*<<fun.ml:24:9>>*/ caml_call1
     (Stdlib_Printexc[9],
@@ -22633,9 +23309,9 @@
       var
        exn = param[2],
        _a_ =  /*<<fun.ml:25:55>>*/ caml_call1(Stdlib_Printexc[1], exn);
-       /*<<fun.ml:25:24>>*/ return [0,
+       /*<<fun.ml:25:78>>*/ return [0,
                /*<<fun.ml:25:29>>*/ caml_call2
-               (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:24>>*/ ;
+               (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:78>>*/ ;
       /*<<fun.ml:26:11>>*/ });
    var dummy = 0;
    function protect(finally$0, work){
@@ -22648,27 +23324,32 @@
       var
        e = caml_wrap_exception(e$0),
        bt =  /*<<fun.ml:31:15>>*/ caml_call1(Stdlib_Printexc[12], 0),
-       exn =  /*<<fun.ml:32:36>>*/ [0, Finally_raised, e];
+       exn =  /*<<fun.ml:32:6>>*/ [0, Finally_raised, e];
       caml_restore_raw_backtrace(exn, bt);
-       /*<<fun.ml:32:6>>*/ throw caml_maybe_attach_backtrace(exn, 0);
+       /*<<fun.ml:32:57>>*/ throw caml_maybe_attach_backtrace(exn, 0);
      }
-     /*<<fun.ml:32:57>>*/ }
-     /*<<fun.ml:34:2>>*/ try{
-     var result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
     }
+    try{var result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);}
     catch(work_exn$0){
      var
       work_exn = caml_wrap_exception(work_exn$0),
       work_bt =  /*<<fun.ml:37:20>>*/ caml_call1(Stdlib_Printexc[12], 0);
       /*<<fun.ml:38:6>>*/ finally_no_exn(0);
-     caml_restore_raw_backtrace(work_exn, work_bt);
-      /*<<fun.ml:39:6>>*/ throw caml_maybe_attach_backtrace(work_exn, 0);
+      /*<<fun.ml:39:6>>*/ caml_restore_raw_backtrace(work_exn, work_bt);
+      /*<<fun.ml:39:52>>*/ throw caml_maybe_attach_backtrace(work_exn, 0);
     }
      /*<<fun.ml:35:14>>*/ finally_no_exn(0);
-    return result;
+     /*<<fun.ml:35:31>>*/ return result;
     /*<<fun.ml:39:52>>*/ }
    var
-    Stdlib_Fun = [0, const$0, compose, flip, negate, protect, Finally_raised];
+    Stdlib_Fun =
+       /*<<fun.ml:26:11>>*/ [0,
+       const$0,
+       compose,
+       flip,
+       negate,
+       protect,
+       Finally_raised];
    runtime.caml_register_global(4, Stdlib_Fun, "Stdlib__Fun");
    return;
    /*<<?>>*/ }
@@ -22795,16 +23476,16 @@
      /*<<gc.ml:76:2>>*/ caml_call2(Stdlib_Printf[1], c, _e_);
     var
      l1 =
-        /*<<gc.ml:77:25>>*/ caml_ml_string_length
-        (caml_call2(Stdlib_Printf[4], _f_, st[1]));
+        /*<<gc.ml:77:56>>*/ caml_ml_string_length
+        ( /*<<gc.ml:77:25>>*/ caml_call2(Stdlib_Printf[4], _f_, st[1]));
      /*<<gc.ml:78:2>>*/ caml_call4(Stdlib_Printf[1], c, _g_, l1, st[1]);
      /*<<gc.ml:79:2>>*/ caml_call4(Stdlib_Printf[1], c, _h_, l1, st[2]);
      /*<<gc.ml:80:2>>*/ caml_call4(Stdlib_Printf[1], c, _i_, l1, st[3]);
      /*<<gc.ml:81:2>>*/ caml_call2(Stdlib_Printf[1], c, _j_);
     var
      l2 =
-        /*<<gc.ml:82:25>>*/ caml_ml_string_length
-        (caml_call2(Stdlib_Printf[4], _k_, st[15]));
+        /*<<gc.ml:82:57>>*/ caml_ml_string_length
+        ( /*<<gc.ml:82:25>>*/ caml_call2(Stdlib_Printf[4], _k_, st[15]));
      /*<<gc.ml:83:2>>*/ caml_call4(Stdlib_Printf[1], c, _l_, l2, st[15]);
      /*<<gc.ml:84:2>>*/ caml_call4(Stdlib_Printf[1], c, _m_, l2, st[6]);
      /*<<gc.ml:85:2>>*/ caml_call4(Stdlib_Printf[1], c, _n_, l2, st[8]);
@@ -22814,16 +23495,16 @@
      /*<<gc.ml:89:2>>*/ caml_call2(Stdlib_Printf[1], c, _r_);
      /*<<gc.ml:90:2>>*/ caml_call3(Stdlib_Printf[1], c, _s_, st[9]);
      /*<<gc.ml:91:2>>*/ caml_call3(Stdlib_Printf[1], c, _t_, st[11]);
-    return caml_call3(Stdlib_Printf[1], c, _u_, st[7]) /*<<gc.ml:92:46>>*/ ;
+     /*<<gc.ml:91:46>>*/ return caml_call3(Stdlib_Printf[1], c, _u_, st[7]) /*<<gc.ml:92:46>>*/ ;
    }
    function allocated_bytes(param){
     var
      match =  /*<<gc.ml:96:22>>*/ runtime.caml_gc_counters(0),
-     ma = match[3],
+     ma =  /*<<gc.ml:96:33>>*/ match[3],
      pro = match[2],
      mi = match[1];
-     /*<<gc.ml:97:2>>*/ return (mi + ma - pro) * (Stdlib_Sys[9] / 8 | 0);
-    /*<<gc.ml:97:55>>*/ }
+     /*<<gc.ml:97:55>>*/ return (mi + ma - pro) * (Stdlib_Sys[9] / 8 | 0);
+   }
    function delete_alarm(a){
      /*<<gc.ml:115:21>>*/ return caml_call2(Stdlib_Atomic[4], a, 0) /*<<gc.ml:115:39>>*/ ;
    }
@@ -22832,21 +23513,21 @@
      /*<<gc.ml:119:2>>*/ caml_call1
      (Stdlib_Domain[6],
       function(param){
-        /*<<gc.ml:119:28>>*/ return  /*<<gc.ml:115:17>>*/ delete_alarm(_y_) /*<<gc.ml:119:52>>*/ ;
+        /*<<gc.ml:119:28>>*/ return delete_alarm(_y_) /*<<gc.ml:119:52>>*/ ;
       });
-    return _y_;
+     /*<<gc.ml:120:26>>*/ return _y_;
     /*<<gc.ml:121:13>>*/ }
    var
     null_tracker =
-       /*<<gc.ml:142:23>>*/ [0,
+      [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 start(sampling_rate, opt, tracker){
-    var callstack_size = opt ? opt[1] : Stdlib[19];
-     /*<<gc.ml:158:6>>*/ return runtime.caml_memprof_start
+    var callstack_size =  /*<<gc.ml:155:6>>*/ opt ? opt[1] : Stdlib[19];
+     /*<<gc.ml:158:50>>*/ return  /*<<gc.ml:158:6>>*/ runtime.caml_memprof_start
             (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:50>>*/ ;
    }
    var
@@ -22923,15 +23604,13 @@
     open_gen = Stdlib[81];
    function with_open(openfun, s, f){
     var ic =  /*<<in_channel.ml:35:11>>*/ caml_call1(openfun, s);
-     /*<<in_channel.ml:37:4>>*/ return caml_call2
+     /*<<in_channel.ml:36:2>>*/ return caml_call2
             (Stdlib_Fun[5],
              function(param){
-               /*<<in_channel.ml:36:34>>*/ return  /*<<in_channel.ml:37:4>>*/ caml_call1
-                      (Stdlib[94], ic) /*<<in_channel.ml:36:58>>*/ ;
+               /*<<in_channel.ml:36:34>>*/ return caml_call1(Stdlib[94], ic) /*<<in_channel.ml:36:58>>*/ ;
              },
              function(param){
-               /*<<in_channel.ml:37:15>>*/ return  /*<<in_channel.ml:36:2>>*/ caml_call1
-                      (f, ic) /*<<in_channel.ml:37:19>>*/ ;
+               /*<<in_channel.ml:37:15>>*/ return caml_call1(f, ic) /*<<in_channel.ml:37:19>>*/ ;
              }) /*<<in_channel.ml:37:20>>*/ ;
    }
    function with_open_bin(s, f){
@@ -22941,7 +23620,7 @@
      /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
    }
    function with_open_gen(flags, perm, s, f){
-     /*<<in_channel.ml:46:2>>*/ return with_open
+     /*<<in_channel.ml:46:2>>*/ return  /*<<in_channel.ml:46:43>>*/ with_open
             ( /*<<in_channel.ml:46:12>>*/ caml_call2(Stdlib[81], flags, perm),
              s,
              f) /*<<in_channel.ml:46:47>>*/ ;
@@ -22986,7 +23665,7 @@
      /*<<in_channel.ml:66:9>>*/ return [0, s];
     /*<<in_channel.ml:67:33>>*/ }
    var
-    input =  /*<<in_channel.ml:64:15>>*/ Stdlib[84],
+    input = Stdlib[84],
     cst_input_bigarray = "input_bigarray",
     _a_ = [0, 0],
     _b_ = [0, 0],
@@ -22999,7 +23678,7 @@
       &&
        0 <= len
        && ( /*<<in_channel.ml:76:33>>*/ caml_ba_dim_1(buf) - len | 0) >= ofs)
-      /*<<in_channel.ml:78:7>>*/ return caml_ml_input_bigarray
+      /*<<in_channel.ml:78:43>>*/ return  /*<<in_channel.ml:78:7>>*/ caml_ml_input_bigarray
              (ic, buf, ofs, len) /*<<in_channel.ml:78:43>>*/ ;
      /*<<in_channel.ml:77:7>>*/ return caml_call1
             (Stdlib[1], cst_input_bigarray) /*<<in_channel.ml:78:43>>*/ ;
@@ -23031,7 +23710,9 @@
           (ic, buf, ofs, len);
        /*<<in_channel.ml:88:4>>*/ if(0 === r)
         /*<<in_channel.ml:89:9>>*/ return 0;
-      var len$0 = len - r | 0, ofs$0 = ofs + r | 0;
+      var
+       len$0 =  /*<<in_channel.ml:90:9>>*/ len - r | 0,
+       ofs$0 = ofs + r | 0;
       ofs = ofs$0;
       len = len$0;
      }
@@ -23059,27 +23740,30 @@
           /*<<in_channel.ml:109:14>>*/ caml_call4
           (Stdlib[84], ic, buf, ofs$0, len$0);
        /*<<in_channel.ml:110:6>>*/ if(0 !== r){
-       var len$1 = len$0 - r | 0, ofs$1 = ofs$0 + r | 0;
+       var
+        len$1 =  /*<<in_channel.ml:113:8>>*/ len$0 - r | 0,
+        ofs$1 = ofs$0 + r | 0;
        ofs$0 = ofs$1;
        len$0 = len$1;
        continue;
       }
      }
-      /*<<in_channel.ml:116:2>>*/ return ofs$0 - ofs | 0;
+      /*<<in_channel.ml:116:14>>*/ return ofs$0 - ofs | 0;
     }
     /*<<in_channel.ml:116:20>>*/ }
    function ensure(buf, ofs, n){
-    var len = caml_ml_bytes_length(buf);
-    if((ofs + n | 0) <= len)  /*<<in_channel.ml:132:25>>*/ return buf;
-    var new_len =  /*<<in_channel.ml:134:18>>*/ [0, len];
+    var len =  /*<<in_channel.ml:131:2>>*/ caml_ml_bytes_length(buf);
+     /*<<in_channel.ml:132:2>>*/ if((ofs + n | 0) <= len)
+      /*<<in_channel.ml:132:25>>*/ return buf;
+    var new_len =  /*<<in_channel.ml:133:7>>*/ [0, len];
     for(;;){
      if(new_len[1] >= (ofs + n | 0)) break;
-     new_len[1] = (2 * new_len[1] | 0) + 1 | 0;
+      /*<<in_channel.ml:136:6>>*/ new_len[1] = (2 * new_len[1] | 0) + 1 | 0;
     }
     var
-     new_len$0 = new_len[1],
+     new_len$0 =  /*<<in_channel.ml:138:4>>*/ new_len[1],
      new_len$1 =
-       new_len$0 <= Stdlib_Sys[12]
+        /*<<in_channel.ml:139:4>>*/ new_len$0 <= Stdlib_Sys[12]
         ? new_len$0
         : ofs
           < Stdlib_Sys[12]
@@ -23089,14 +23773,18 @@
      new_buf =  /*<<in_channel.ml:148:18>>*/ caml_create_bytes(new_len$1);
      /*<<in_channel.ml:149:4>>*/ caml_call5
      (Stdlib_Bytes[11], buf, 0, new_buf, 0, ofs);
-    return new_buf;
+     /*<<in_channel.ml:149:34>>*/ return new_buf;
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
     var chunk_size =  /*<<in_channel.ml:154:2>>*/ 65536;
-     /*<<in_channel.ml:155:2>>*/ try{
+    try{
      var
       _k_ =  /*<<in_channel.ml:157:36>>*/ caml_call1(Stdlib[91], ic),
-      _l_ =  /*<<in_channel.ml:157:6>>*/ caml_call1(Stdlib[92], ic) - _k_ | 0,
+      _l_ =
+         /*<<in_channel.ml:157:33>>*/  /*<<in_channel.ml:157:6>>*/ caml_call1
+         (Stdlib[92], ic)
+        - _k_
+        | 0,
       initial_size = _l_;
     }
     catch(_n_){
@@ -23110,16 +23798,16 @@
         ? initial_size
         : chunk_size,
      initial_size$1 =
-       initial_size$0 <= Stdlib_Sys[12] ? initial_size$0 : Stdlib_Sys[12],
+        /*<<in_channel.ml:162:2>>*/ initial_size$0 <= Stdlib_Sys[12]
+        ? initial_size$0
+        : Stdlib_Sys[12],
      buf =  /*<<in_channel.ml:168:12>>*/ caml_create_bytes(initial_size$1),
      nread =
         /*<<in_channel.ml:169:14>>*/ read_upto(ic, buf, 0, initial_size$1);
-    if(nread < initial_size$1)
+     /*<<in_channel.ml:170:2>>*/ if(nread < initial_size$1)
       /*<<in_channel.ml:171:4>>*/ return caml_call3
              (Stdlib_Bytes[8], buf, 0, nread) /*<<in_channel.ml:193:5>>*/ ;
-     /*<<in_channel.ml:172:7>>*/ try{
-     var c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);
-    }
+    try{var c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);}
     catch(_m_){
      var _j_ = caml_wrap_exception(_m_);
      if(_j_ === Stdlib[12])
@@ -23128,20 +23816,24 @@
     }
     var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
      /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set(buf$2, nread, c);
-    var ofs$1 = nread + 1 | 0, buf$0 = buf$2, ofs = ofs$1;
+    var
+     ofs$1 =  /*<<in_channel.ml:191:29>>*/ nread + 1 | 0,
+     buf$0 = buf$2,
+     ofs = ofs$1;
      /*<<in_channel.ml:180:10>>*/ for(;;){
      var
       buf$1 =  /*<<in_channel.ml:180:20>>*/ ensure(buf$0, ofs, chunk_size),
-      rem = caml_ml_bytes_length(buf$1) - ofs | 0,
+      rem =
+         /*<<in_channel.ml:181:10>>*/ caml_ml_bytes_length(buf$1) - ofs | 0,
       r =  /*<<in_channel.ml:184:18>>*/ read_upto(ic, buf$1, ofs, rem);
-     if(r < rem)
-       /*<<in_channel.ml:180:20>>*/ return caml_call3
+      /*<<in_channel.ml:185:10>>*/ if(r < rem)
+       /*<<in_channel.ml:186:12>>*/ return caml_call3
               (Stdlib_Bytes[8], buf$1, 0, ofs + r | 0) /*<<in_channel.ml:193:5>>*/ ;
-     var ofs$0 = ofs + rem | 0;
+     var ofs$0 =  /*<<in_channel.ml:188:12>>*/ ofs + rem | 0;
      buf$0 = buf$1;
      ofs = ofs$0;
     }
-   }
+    /*<<in_channel.ml:193:5>>*/ }
    function input_lines(ic){
      /*<<in_channel.ml:196:2>>*/ try{
      var line =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
@@ -23161,8 +23853,8 @@
      catch(_g_){
       var _f_ = caml_wrap_exception(_g_);
       if(_f_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_f_, 0);
-      dst[1 + offset] = 0;
-       /*<<in_channel.ml:197:20>>*/ return block;
+       /*<<in_channel.ml:198:29>>*/ dst[1 + offset] = 0;
+       /*<<in_channel.ml:197:34>>*/ return block;
      }
      var dst$0 =  /*<<in_channel.ml:197:12>>*/ [0, line$0, 24029];
      dst[1 + offset] = dst$0;
@@ -23245,15 +23937,13 @@
     open_gen = Stdlib[62];
    function with_open(openfun, s, f){
     var oc =  /*<<out_channel.ml:36:11>>*/ caml_call1(openfun, s);
-     /*<<out_channel.ml:38:4>>*/ return caml_call2
+     /*<<out_channel.ml:37:2>>*/ return caml_call2
             (Stdlib_Fun[5],
              function(param){
-               /*<<out_channel.ml:37:34>>*/ return  /*<<out_channel.ml:38:4>>*/ caml_call1
-                      (Stdlib[77], oc) /*<<out_channel.ml:37:59>>*/ ;
+               /*<<out_channel.ml:37:34>>*/ return caml_call1(Stdlib[77], oc) /*<<out_channel.ml:37:59>>*/ ;
              },
              function(param){
-               /*<<out_channel.ml:38:15>>*/ return  /*<<out_channel.ml:37:2>>*/ caml_call1
-                      (f, oc) /*<<out_channel.ml:38:19>>*/ ;
+               /*<<out_channel.ml:38:15>>*/ return caml_call1(f, oc) /*<<out_channel.ml:38:19>>*/ ;
              }) /*<<out_channel.ml:38:20>>*/ ;
    }
    function with_open_bin(s, f){
@@ -23263,7 +23953,7 @@
      /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
    }
    function with_open_gen(flags, perm, s, f){
-     /*<<out_channel.ml:47:2>>*/ return with_open
+     /*<<out_channel.ml:47:2>>*/ return  /*<<out_channel.ml:47:44>>*/ with_open
             ( /*<<out_channel.ml:47:12>>*/ caml_call2(Stdlib[62], flags, perm),
              s,
              f) /*<<out_channel.ml:47:48>>*/ ;
@@ -23291,13 +23981,13 @@
        &&
         ( /*<<out_channel.ml:67:33>>*/ runtime.caml_ba_dim_1(buf) - len | 0)
         >= ofs)
-      /*<<out_channel.ml:69:7>>*/ return runtime.caml_ml_output_bigarray
+      /*<<out_channel.ml:69:44>>*/ return  /*<<out_channel.ml:69:7>>*/ runtime.caml_ml_output_bigarray
              (oc, buf, ofs, len) /*<<out_channel.ml:69:44>>*/ ;
      /*<<out_channel.ml:68:7>>*/ return caml_call1
             (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
    }
    var
-    set_binary_mode =  /*<<out_channel.ml:66:20>>*/ Stdlib[78],
+    set_binary_mode = Stdlib[78],
     Stdlib_Out_channel =
       [0,
        stdout,
@@ -23383,25 +24073,27 @@
     cst_Digest_of_hex$0 = cst_Digest_of_hex$1;
    function hex_of_string(d){
     function char_hex(n){
-     var _l_ = 10 <= n ? (97 + n | 0) - 10 | 0 : 48 + n | 0;
+     var
+      _l_ =
+         /*<<digest.ml:20:4>>*/ 10 <= n ? (97 + n | 0) - 10 | 0 : 48 + n | 0;
      return caml_call1(Stdlib_Char[1], _l_) /*<<digest.ml:21:52>>*/ ;
     }
     var
      len =  /*<<digest.ml:22:2>>*/ caml_ml_string_length(d),
      result =  /*<<digest.ml:23:15>>*/ caml_create_bytes(len * 2 | 0),
      _j_ =  /*<<digest.ml:24:2>>*/ len - 1 | 0,
-     _i_ =  /*<<digest.ml:23:15>>*/ 0;
-    if(_j_ >= 0){
+     _i_ =  /*<<digest.ml:23:37>>*/ 0;
+     /*<<digest.ml:24:2>>*/ if(_j_ >= 0){
      var i = _i_;
      for(;;){
       var x =  /*<<digest.ml:25:22>>*/ caml_string_get(d, i);
-      caml_bytes_unsafe_set
+       /*<<digest.ml:26:54>>*/ caml_bytes_unsafe_set
        (result, i * 2 | 0,  /*<<digest.ml:26:34>>*/ char_hex(x >>> 4 | 0));
-      caml_bytes_unsafe_set
+       /*<<digest.ml:27:60>>*/ caml_bytes_unsafe_set
        (result,
         (i * 2 | 0) + 1 | 0,
          /*<<digest.ml:27:36>>*/ char_hex(x & 15));
-      var _k_ =  /*<<digest.ml:24:2>>*/ i + 1 | 0;
+      var _k_ =  /*<<digest.ml:27:60>>*/ i + 1 | 0;
       if(_j_ === i) break;
       i = _k_;
      }
@@ -23412,29 +24104,29 @@
     function digit(c){
       /*<<digest.ml:33:4>>*/ if(65 <= c){
       if(97 <= c){
-       if(103 > c) return (c - 97 | 0) + 10 | 0;
+       if(103 > c)  /*<<digest.ml:36:18>>*/ return (c - 97 | 0) + 10 | 0;
       }
-      else if(71 > c) return (c - 65 | 0) + 10 | 0;
+      else if(71 > c)  /*<<digest.ml:35:18>>*/ return (c - 65 | 0) + 10 | 0;
      }
-     else if(9 >= c - 48 >>> 0) return c - 48 | 0;
+     else if(9 >= c - 48 >>> 0)  /*<<digest.ml:34:18>>*/ return c - 48 | 0;
       /*<<digest.ml:37:11>>*/ return caml_call1(Stdlib[1], cst_Digest_of_hex) /*<<digest.ml:37:38>>*/ ;
     }
-     /*<<digest.ml:39:36>>*/ return caml_call2
+     /*<<digest.ml:39:2>>*/ return caml_call2
             (Stdlib_String[2],
              caml_ml_string_length(s) / 2 | 0,
              function(i){
               var
-               i$0 = 2 * i | 0,
+               i$0 =  /*<<digest.ml:39:46>>*/ 2 * i | 0,
                _g_ =
                   /*<<digest.ml:38:35>>*/ digit
                   ( /*<<digest.ml:38:41>>*/ caml_string_get(s, i$0 + 1 | 0)),
                _h_ =
-                 ( /*<<digest.ml:38:15>>*/ digit
+                  /*<<digest.ml:38:26>>*/ ( /*<<digest.ml:38:15>>*/ digit
                   ( /*<<digest.ml:38:21>>*/ caml_string_get(s, i$0))
                  << 4)
                  + _g_
                  | 0;
-               /*<<digest.ml:39:55>>*/ return caml_call1(Stdlib_Char[1], _h_) /*<<digest.ml:39:69>>*/ ;
+               /*<<digest.ml:39:69>>*/ return caml_call1(Stdlib_Char[1], _h_);
              }) /*<<digest.ml:39:70>>*/ ;
    }
    function BLAKE2(X){
@@ -23451,11 +24143,11 @@
              (hash_length, cst, str, 0, caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
     }
     function bytes(b){
-      /*<<digest.ml:88:4>>*/ return  /*<<digest.ml:88:11>>*/ string
-             (caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
+      /*<<digest.ml:88:4>>*/ return  /*<<digest.ml:88:37>>*/ string
+             ( /*<<digest.ml:88:11>>*/ caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
     }
     function substring(str, ofs, len){
-     var _d_ = ofs < 0 ? 1 : 0;
+     var _d_ =  /*<<digest.ml:91:4>>*/ ofs < 0 ? 1 : 0;
      if(_d_)
       var _e_ = _d_;
      else
@@ -23464,11 +24156,11 @@
        _e_ = _f_ || ((caml_ml_string_length(str) - len | 0) < ofs ? 1 : 0);
      if(_e_)
        /*<<digest.ml:92:9>>*/ caml_call1(Stdlib[1], cst_Digest_substring);
-      /*<<digest.ml:93:4>>*/ return caml_blake2_string
+      /*<<digest.ml:93:44>>*/ return  /*<<digest.ml:93:4>>*/ caml_blake2_string
              (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
     }
     function subbytes(b, ofs, len){
-      /*<<digest.ml:96:4>>*/ return substring
+      /*<<digest.ml:96:4>>*/ return  /*<<digest.ml:96:40>>*/ substring
              ( /*<<digest.ml:96:14>>*/ caml_call1(Stdlib_Bytes[44], b),
               ofs,
               len) /*<<digest.ml:96:48>>*/ ;
@@ -23483,7 +24175,8 @@
       var toread$0 = toread;
        /*<<digest.ml:111:8>>*/ for(;;){
        if(0 === toread$0)
-         /*<<digest.ml:111:27>>*/ return caml_blake2_final(ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
+         /*<<digest.ml:111:48>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
+                (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
        var
         _c_ =
            /*<<digest.ml:112:44>>*/ caml_call2
@@ -23499,7 +24192,7 @@
           /*<<digest.ml:116:23>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,
          n);
-       var toread$1 = toread$0 - n | 0;
+       var toread$1 =  /*<<digest.ml:116:55>>*/ toread$0 - n | 0;
        toread$0 = toread$1;
       }
      }
@@ -23510,7 +24203,8 @@
            /*<<digest.ml:104:16>>*/ caml_call4
            (Stdlib_In_channel[16], ic, buf, 0, buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
-         /*<<digest.ml:106:13>>*/ return caml_blake2_final(ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
+         /*<<digest.ml:106:34>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
+                (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
         /*<<digest.ml:107:14>>*/ caml_blake2_update
         (ctx,
           /*<<digest.ml:107:25>>*/ caml_call1(Stdlib_Bytes[44], buf),
@@ -23519,7 +24213,7 @@
       }
      /*<<digest.ml:121:7>>*/ }
     function file(filename){
-      /*<<digest.ml:124:4>>*/ return  /*<<digest.ml:124:38>>*/ caml_call2
+      /*<<digest.ml:124:4>>*/ return caml_call2
              (Stdlib_In_channel[5],
               filename,
               function(ic){
@@ -23530,7 +24224,7 @@
       /*<<digest.ml:126:27>>*/ return caml_call2(Stdlib[66], chan, digest) /*<<digest.ml:126:52>>*/ ;
     }
     function input(chan){
-      /*<<digest.ml:128:19>>*/ return  /*<<digest.ml:126:13>>*/ caml_call2
+      /*<<digest.ml:128:19>>*/ return caml_call2
              (Stdlib[86], chan, hash_length) /*<<digest.ml:128:55>>*/ ;
     }
     function to_hex(d){
@@ -23544,7 +24238,7 @@
        /*<<digest.ml:135:47>>*/ caml_call1(Stdlib[1], cst_Digest_of_hex$0);
      return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
     }
-     /*<<digest.ml:62:55>>*/ return [0,
+    return [0,
             hash_length,
             compare,
             equal,
@@ -23573,24 +24267,25 @@
             (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
    }
    function bytes(b){
-     /*<<digest.ml:161:16>>*/ return  /*<<digest.ml:161:23>>*/ string
-            (caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
+     /*<<digest.ml:161:16>>*/ return  /*<<digest.ml:161:49>>*/ string
+            ( /*<<digest.ml:161:23>>*/ caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
    }
    function substring(str, ofs, len){
      /*<<digest.ml:164:4>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(str) - len | 0) >= ofs)
-      /*<<digest.ml:166:9>>*/ return caml_md5_string(str, ofs, len) /*<<digest.ml:166:34>>*/ ;
+      /*<<digest.ml:166:34>>*/ return  /*<<digest.ml:166:9>>*/ caml_md5_string
+             (str, ofs, len) /*<<digest.ml:166:34>>*/ ;
      /*<<digest.ml:165:9>>*/ return caml_call1
             (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
    }
    function subbytes(b, ofs, len){
-     /*<<digest.ml:168:27>>*/ return substring
+     /*<<digest.ml:168:27>>*/ return  /*<<digest.ml:168:63>>*/ substring
             ( /*<<digest.ml:168:37>>*/ caml_call1(Stdlib_Bytes[44], b),
              ofs,
              len) /*<<digest.ml:168:71>>*/ ;
    }
    function file(filename){
-     /*<<digest.ml:171:4>>*/ return  /*<<digest.ml:171:38>>*/ caml_call2
+     /*<<digest.ml:171:4>>*/ return caml_call2
             (Stdlib_In_channel[5],
              filename,
              function(ic){
@@ -23715,9 +24410,9 @@
       case 7:
         /*<<bigarray.ml:85:13>>*/ return 8;
       case 8:
-       return Stdlib_Sys[9] / 8 | 0;
+        /*<<bigarray.ml:86:11>>*/ return Stdlib_Sys[9] / 8 | 0;
       case 9:
-       return Stdlib_Sys[9] / 8 | 0;
+        /*<<bigarray.ml:87:17>>*/ return Stdlib_Sys[9] / 8 | 0;
       case 10:
         /*<<bigarray.ml:88:17>>*/ return 8;
       case 11:
@@ -23740,18 +24435,22 @@
      /*<<bigarray.ml:108:4>>*/ if(col === idx.length - 1){
       /*<<bigarray.ml:108:35>>*/ caml_ba_set_generic
       (arr, idx,  /*<<bigarray.ml:108:47>>*/ caml_call1(f, idx));
-      /*<<bigarray.ml:108:35>>*/ return;
+      /*<<bigarray.ml:108:54>>*/ return;
     }
     var
      _am_ =
-        /*<<bigarray.ml:109:27>>*/ caml_check_bound(max, col)[1 + col] - 1 | 0,
+        /*<<bigarray.ml:109:36>>*/  /*<<bigarray.ml:109:27>>*/ caml_check_bound
+         (max, col)
+        [1 + col]
+       - 1
+       | 0,
      _al_ =  /*<<bigarray.ml:109:9>>*/ 0;
-    if(_am_ >= 0){
+     /*<<bigarray.ml:109:36>>*/ if(_am_ >= 0){
      var j = _al_;
      for(;;){
        /*<<bigarray.ml:110:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
        /*<<bigarray.ml:111:11>>*/ cloop(arr, idx, f, col + 1 | 0, max);
-      var _an_ = j + 1 | 0;
+      var _an_ =  /*<<bigarray.ml:111:41>>*/ j + 1 | 0;
       if(_am_ === j) break;
       j = _an_;
      }
@@ -23761,17 +24460,17 @@
      /*<<bigarray.ml:114:4>>*/ if(0 > col){
       /*<<bigarray.ml:114:20>>*/ caml_ba_set_generic
       (arr, idx,  /*<<bigarray.ml:114:32>>*/ caml_call1(f, idx));
-      /*<<bigarray.ml:114:20>>*/ return;
+      /*<<bigarray.ml:114:39>>*/ return;
     }
     var
      _aj_ =  /*<<bigarray.ml:115:22>>*/ caml_check_bound(max, col)[1 + col],
      _ai_ =  /*<<bigarray.ml:115:9>>*/ 1;
-    if(_aj_ >= 1){
+     /*<<bigarray.ml:115:31>>*/ if(_aj_ >= 1){
      var j = _ai_;
      for(;;){
        /*<<bigarray.ml:116:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
        /*<<bigarray.ml:117:11>>*/ floop(arr, idx, f, col - 1 | 0, max);
-      var _ak_ = j + 1 | 0;
+      var _ak_ =  /*<<bigarray.ml:117:41>>*/ j + 1 | 0;
       if(_aj_ === j) break;
       j = _ak_;
      }
@@ -23802,13 +24501,13 @@
      n =  /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims(a),
      d =  /*<<bigarray.ml:130:12>>*/ caml_make_vect(n, 0),
      _af_ =  /*<<bigarray.ml:131:4>>*/ n - 1 | 0,
-     _ae_ =  /*<<bigarray.ml:130:12>>*/ 0;
-    if(_af_ >= 0){
+     _ae_ =  /*<<bigarray.ml:130:26>>*/ 0;
+     /*<<bigarray.ml:131:4>>*/ if(_af_ >= 0){
      var i = _ae_;
      for(;;){
       var _ag_ =  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim(a, i);
        /*<<bigarray.ml:131:24>>*/ caml_check_bound(d, i)[1 + i] = _ag_;
-      var _ah_ = i + 1 | 0;
+      var _ah_ =  /*<<bigarray.ml:131:44>>*/ i + 1 | 0;
       if(_af_ === i) break;
       i = _ah_;
      }
@@ -23821,8 +24520,9 @@
      _ad_ =
         /*<<bigarray.ml:140:38>>*/ caml_call3
         (Stdlib_Array[18], caml_mul, 1, _ac_);
-     /*<<bigarray.ml:140:4>>*/ return caml_mul
-            (kind_size_in_bytes( /*<<bigarray.ml:140:24>>*/ caml_ba_kind(arr)),
+     /*<<bigarray.ml:140:35>>*/ return caml_mul
+            ( /*<<bigarray.ml:140:4>>*/ kind_size_in_bytes
+              ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind(arr)),
              _ad_) /*<<bigarray.ml:140:74>>*/ ;
    }
    function create(kind, layout){
@@ -23833,25 +24533,26 @@
    }
    function set(arr){
     var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
-     /*<<bigarray.ml:163:33>>*/ return function(_ab_){
-      /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);} /*<<bigarray.ml:163:33>>*/ ;
+    return function(_ab_){
+      /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);} /*<<bigarray.ml:163:16>>*/ ;
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
-     /*<<bigarray.ml:170:26>>*/ return  /*<<bigarray.ml:170:45>>*/ kind_size_in_bytes
-            (caml_ba_kind(arr)) /*<<bigarray.ml:170:55>>*/ ;
+     /*<<bigarray.ml:170:26>>*/ return  /*<<bigarray.ml:170:55>>*/ kind_size_in_bytes
+            ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind(arr)) /*<<bigarray.ml:170:55>>*/ ;
    }
    function of_value(kind, layout, v){
     var a =  /*<<bigarray.ml:176:12>>*/ create(kind, layout);
      /*<<bigarray.ml:177:4>>*/ set(a)(v);
-    return a;
+     /*<<bigarray.ml:177:11>>*/ return a;
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
      /*<<bigarray.ml:185:4>>*/ return caml_ba_create(kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
    }
    function size_in_bytes$1(arr){
     var _$_ =  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1(arr);
-     /*<<bigarray.ml:199:4>>*/ return caml_mul
-            (kind_size_in_bytes( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
+     /*<<bigarray.ml:199:35>>*/ return caml_mul
+            ( /*<<bigarray.ml:199:4>>*/ kind_size_in_bytes
+              ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
              _$_) /*<<bigarray.ml:199:47>>*/ ;
    }
    function slice(a, n){
@@ -23869,38 +24570,40 @@
       for(;;){
         /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
         (arr, i$0,  /*<<bigarray.ml:211:41>>*/ caml_call1(f, i$0));
-       var ___ =  /*<<bigarray.ml:211:24>>*/ i$0 + 1 | 0;
+       var ___ =  /*<<bigarray.ml:211:46>>*/ i$0 + 1 | 0;
        if(dim === i$0) break;
        i$0 = ___;
       }
      }
-      /*<<bigarray.ml:216:24>>*/ return arr;
+      /*<<bigarray.ml:216:46>>*/ return arr;
     }
-    var _X_ = dim - 1 | 0, _W_ =  /*<<bigarray.ml:209:4>>*/ 0;
+    var _X_ =  /*<<bigarray.ml:209:4>>*/ dim - 1 | 0, _W_ = 0;
     if(_X_ >= 0){
      var i = _W_;
      for(;;){
        /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
        (arr, i,  /*<<bigarray.ml:209:46>>*/ caml_call1(f, i));
-      var _Y_ =  /*<<bigarray.ml:209:29>>*/ i + 1 | 0;
+      var _Y_ =  /*<<bigarray.ml:209:51>>*/ i + 1 | 0;
       if(_X_ === i) break;
       i = _Y_;
      }
     }
-     /*<<bigarray.ml:215:18>>*/ return arr;
+     /*<<bigarray.ml:215:34>>*/ return arr;
     /*<<bigarray.ml:216:51>>*/ }
    function of_array(kind, layout, data){
     var
      ba =  /*<<bigarray.ml:218:13>>*/ create$0(kind, layout, data.length - 1),
      ofs =  /*<<bigarray.ml:219:4>>*/ layout ? 1 : 0,
-     _U_ = data.length - 2 | 0,
+     _U_ =  /*<<bigarray.ml:224:4>>*/ data.length - 2 | 0,
      _T_ = 0;
     if(_U_ >= 0){
      var i = _T_;
      for(;;){
        /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
-       (ba, i + ofs | 0, caml_check_bound(data, i)[1 + i]);
-      var _V_ = i + 1 | 0;
+       (ba,
+        i + ofs | 0,
+         /*<<bigarray.ml:224:66>>*/ caml_check_bound(data, i)[1 + i]);
+      var _V_ =  /*<<bigarray.ml:224:74>>*/ i + 1 | 0;
       if(_U_ === i) break;
       i = _V_;
      }
@@ -23915,9 +24618,9 @@
     var
      _R_ =  /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2(arr),
      _S_ =  /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1(arr);
-    return caml_mul
-            ( /*<<bigarray.ml:247:4>>*/ caml_mul
-              (kind_size_in_bytes
+     /*<<bigarray.ml:247:35>>*/ return caml_mul
+            (caml_mul
+              ( /*<<bigarray.ml:247:4>>*/ kind_size_in_bytes
                 ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind(arr)),
                _S_),
              _R_) /*<<bigarray.ml:247:61>>*/ ;
@@ -23941,47 +24644,47 @@
         for(;;){
           /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
           (arr, i$0, j$0,  /*<<bigarray.ml:267:27>>*/ caml_call2(f, i$0, j$0));
-         var _Q_ =  /*<<bigarray.ml:267:8>>*/ i$0 + 1 | 0;
+         var _Q_ =  /*<<bigarray.ml:267:34>>*/ i$0 + 1 | 0;
          if(dim1 === i$0) break;
          i$0 = _Q_;
         }
        }
-       var _P_ =  /*<<bigarray.ml:265:4>>*/ j$0 + 1 | 0;
+       var _P_ = j$0 + 1 | 0;
        if(dim2 === j$0) break;
        j$0 = _P_;
       }
      }
-      /*<<bigarray.ml:274:24>>*/ return arr;
+      /*<<bigarray.ml:274:52>>*/ return arr;
     }
-    var _I_ = dim1 - 1 | 0, _H_ =  /*<<bigarray.ml:259:4>>*/ 0;
+    var _I_ =  /*<<bigarray.ml:259:4>>*/ dim1 - 1 | 0, _H_ = 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-      var _K_ = dim2 - 1 | 0, _J_ =  /*<<bigarray.ml:260:6>>*/ 0;
+      var _K_ =  /*<<bigarray.ml:260:6>>*/ dim2 - 1 | 0, _J_ = 0;
       if(_K_ >= 0){
        var j = _J_;
        for(;;){
          /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
          (arr, i, j,  /*<<bigarray.ml:261:27>>*/ caml_call2(f, i, j));
-        var _M_ =  /*<<bigarray.ml:261:8>>*/ j + 1 | 0;
+        var _M_ =  /*<<bigarray.ml:261:34>>*/ j + 1 | 0;
         if(_K_ === j) break;
         j = _M_;
        }
       }
-      var _L_ =  /*<<bigarray.ml:259:4>>*/ i + 1 | 0;
+      var _L_ = i + 1 | 0;
       if(_I_ === i) break;
       i = _L_;
      }
     }
-     /*<<bigarray.ml:273:18>>*/ return arr;
+     /*<<bigarray.ml:273:40>>*/ return arr;
     /*<<bigarray.ml:274:57>>*/ }
    function of_array$0(kind, layout, data){
     var
-     dim1 = data.length - 1,
+     dim1 =  /*<<bigarray.ml:276:4>>*/ data.length - 1,
      dim2 =
         /*<<bigarray.ml:277:4>>*/ 0 === dim1
         ? 0
-        : caml_check_bound(data, 0)[1].length - 1,
+        :  /*<<bigarray.ml:277:52>>*/ caml_check_bound(data, 0)[1].length - 1,
      ba =  /*<<bigarray.ml:278:13>>*/ create$1(kind, layout, dim1, dim2),
      ofs =  /*<<bigarray.ml:279:4>>*/ layout ? 1 : 0,
      _C_ =  /*<<bigarray.ml:284:4>>*/ dim1 - 1 | 0,
@@ -23990,23 +24693,24 @@
      var i = _B_;
      for(;;){
       var row =  /*<<bigarray.ml:285:16>>*/ caml_check_bound(data, i)[1 + i];
-      if(row.length - 1 !== dim2)
+       /*<<bigarray.ml:286:6>>*/ if(row.length - 1 !== dim2)
         /*<<bigarray.ml:287:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array2_of_array_n);
-      var
-       _E_ =  /*<<bigarray.ml:277:32>>*/ dim2 - 1 | 0,
-       _D_ =  /*<<bigarray.ml:287:8>>*/ 0;
+      var _E_ = dim2 - 1 | 0, _D_ = 0;
       if(_E_ >= 0){
        var j = _D_;
        for(;;){
          /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
-         (ba, i + ofs | 0, j + ofs | 0, caml_check_bound(row, j)[1 + j]);
-        var _G_ = j + 1 | 0;
+         (ba,
+          i + ofs | 0,
+          j + ofs | 0,
+           /*<<bigarray.ml:289:42>>*/ caml_check_bound(row, j)[1 + j]);
+        var _G_ =  /*<<bigarray.ml:289:49>>*/ j + 1 | 0;
         if(_E_ === j) break;
         j = _G_;
        }
       }
-      var _F_ =  /*<<bigarray.ml:284:4>>*/ i + 1 | 0;
+      var _F_ = i + 1 | 0;
       if(_C_ === i) break;
       i = _F_;
      }
@@ -24022,10 +24726,10 @@
      _y_ =  /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3(arr),
      _z_ =  /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2(arr),
      _A_ =  /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1(arr);
-    return caml_mul
+     /*<<bigarray.ml:316:35>>*/ return caml_mul
             (caml_mul
-              ( /*<<bigarray.ml:316:4>>*/ caml_mul
-                (kind_size_in_bytes
+              (caml_mul
+                ( /*<<bigarray.ml:316:4>>*/ kind_size_in_bytes
                   ( /*<<bigarray.ml:316:24>>*/ caml_ba_kind(arr)),
                  _A_),
                _z_),
@@ -24066,65 +24770,68 @@
              j$0,
              k$0,
               /*<<bigarray.ml:341:31>>*/ caml_call3(f, i$0, j$0, k$0));
-           var _x_ =  /*<<bigarray.ml:341:10>>*/ i$0 + 1 | 0;
+           var _x_ =  /*<<bigarray.ml:341:40>>*/ i$0 + 1 | 0;
            if(dim1 === i$0) break;
            i$0 = _x_;
           }
          }
-         var _w_ =  /*<<bigarray.ml:339:6>>*/ j$0 + 1 | 0;
+         var _w_ = j$0 + 1 | 0;
          if(dim2 === j$0) break;
          j$0 = _w_;
         }
        }
-       var _u_ =  /*<<bigarray.ml:338:4>>*/ k$0 + 1 | 0;
+       var _u_ = k$0 + 1 | 0;
        if(dim3 === k$0) break;
        k$0 = _u_;
       }
      }
-      /*<<bigarray.ml:349:24>>*/ return arr;
+      /*<<bigarray.ml:349:57>>*/ return arr;
     }
-    var _k_ = dim1 - 1 | 0, _j_ =  /*<<bigarray.ml:330:4>>*/ 0;
+    var _k_ =  /*<<bigarray.ml:330:4>>*/ dim1 - 1 | 0, _j_ = 0;
     if(_k_ >= 0){
      var i = _j_;
      for(;;){
-      var _m_ = dim2 - 1 | 0, _l_ =  /*<<bigarray.ml:331:6>>*/ 0;
+      var _m_ =  /*<<bigarray.ml:331:6>>*/ dim2 - 1 | 0, _l_ = 0;
       if(_m_ >= 0){
        var j = _l_;
        for(;;){
-        var _p_ = dim3 - 1 | 0, _o_ =  /*<<bigarray.ml:332:8>>*/ 0;
+        var _p_ =  /*<<bigarray.ml:332:8>>*/ dim3 - 1 | 0, _o_ = 0;
         if(_p_ >= 0){
          var k = _o_;
          for(;;){
            /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
            (arr, i, j, k,  /*<<bigarray.ml:333:31>>*/ caml_call3(f, i, j, k));
-          var _r_ =  /*<<bigarray.ml:333:10>>*/ k + 1 | 0;
+          var _r_ =  /*<<bigarray.ml:333:40>>*/ k + 1 | 0;
           if(_p_ === k) break;
           k = _r_;
          }
         }
-        var _q_ =  /*<<bigarray.ml:331:6>>*/ j + 1 | 0;
+        var _q_ = j + 1 | 0;
         if(_m_ === j) break;
         j = _q_;
        }
       }
-      var _n_ =  /*<<bigarray.ml:330:4>>*/ i + 1 | 0;
+      var _n_ = i + 1 | 0;
       if(_k_ === i) break;
       i = _n_;
      }
     }
-     /*<<bigarray.ml:348:18>>*/ return arr;
+     /*<<bigarray.ml:348:45>>*/ return arr;
     /*<<bigarray.ml:349:62>>*/ }
    function of_array$1(kind, layout, data){
     var
-     dim1 = data.length - 1,
+     dim1 =  /*<<bigarray.ml:351:4>>*/ data.length - 1,
      dim2 =
         /*<<bigarray.ml:352:4>>*/ 0 === dim1
         ? 0
-        : caml_check_bound(data, 0)[1].length - 1,
+        :  /*<<bigarray.ml:352:52>>*/ caml_check_bound(data, 0)[1].length - 1,
      dim3 =
         /*<<bigarray.ml:353:4>>*/ 0 === dim2
         ? 0
-        : caml_check_bound(caml_check_bound(data, 0)[1], 0)[1].length - 1,
+        :  /*<<bigarray.ml:353:52>>*/ caml_check_bound
+           (caml_check_bound(data, 0)[1], 0)
+          [1].length
+         - 1,
      ba =  /*<<bigarray.ml:354:13>>*/ create$2(kind, layout, dim1, dim2, dim3),
      ofs =  /*<<bigarray.ml:355:4>>*/ layout ? 1 : 0,
      _b_ =  /*<<bigarray.ml:360:4>>*/ dim1 - 1 | 0,
@@ -24133,22 +24840,18 @@
      var i = _a_;
      for(;;){
       var row =  /*<<bigarray.ml:361:16>>*/ caml_check_bound(data, i)[1 + i];
-      if(row.length - 1 !== dim2)
+       /*<<bigarray.ml:362:6>>*/ if(row.length - 1 !== dim2)
         /*<<bigarray.ml:363:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array3_of_array_n);
-      var
-       _d_ =  /*<<bigarray.ml:352:32>>*/ dim2 - 1 | 0,
-       _c_ =  /*<<bigarray.ml:363:8>>*/ 0;
+      var _d_ = dim2 - 1 | 0, _c_ = 0;
       if(_d_ >= 0){
        var j = _c_;
        for(;;){
         var col =  /*<<bigarray.ml:365:18>>*/ caml_check_bound(row, j)[1 + j];
-        if(col.length - 1 !== dim3)
+         /*<<bigarray.ml:366:8>>*/ if(col.length - 1 !== dim3)
           /*<<bigarray.ml:367:10>>*/ caml_call1
           (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
-        var
-         _g_ =  /*<<bigarray.ml:353:32>>*/ dim3 - 1 | 0,
-         _f_ =  /*<<bigarray.ml:367:10>>*/ 0;
+        var _g_ = dim3 - 1 | 0, _f_ = 0;
         if(_g_ >= 0){
          var k = _f_;
          for(;;){
@@ -24157,18 +24860,18 @@
             i + ofs | 0,
             j + ofs | 0,
             k + ofs | 0,
-            caml_check_bound(col, k)[1 + k]);
-          var _i_ = k + 1 | 0;
+             /*<<bigarray.ml:369:54>>*/ caml_check_bound(col, k)[1 + k]);
+          var _i_ =  /*<<bigarray.ml:369:61>>*/ k + 1 | 0;
           if(_g_ === k) break;
           k = _i_;
          }
         }
-        var _h_ =  /*<<bigarray.ml:363:8>>*/ j + 1 | 0;
+        var _h_ = j + 1 | 0;
         if(_d_ === j) break;
         j = _h_;
        }
       }
-      var _e_ =  /*<<bigarray.ml:360:4>>*/ i + 1 | 0;
+      var _e_ = i + 1 | 0;
       if(_b_ === i) break;
       i = _e_;
      }
@@ -24218,7 +24921,7 @@
    }
    var
     Stdlib_Bigarray =
-      [0,
+       /*<<bigarray.ml:413:2>>*/ [0,
        13,
        0,
        1,
@@ -24352,15 +25055,26 @@
      /*<<random.ml:34:4>>*/ caml_ba_set_1
      (s, 0,  /*<<random.ml:34:26>>*/ runtime.caml_int64_or(i1, _a_));
      /*<<random.ml:35:4>>*/ caml_ba_set_1(s, 1, i2);
-    var i3$0 =  /*<<random.ml:36:30>>*/ caml_notequal(i3, _b_) ? i3 : _e_;
+    var
+     i3$0 =
+        /*<<random.ml:36:38>>*/  /*<<random.ml:36:30>>*/ caml_notequal
+         (i3, _b_)
+        ? i3
+        : _e_;
      /*<<random.ml:36:4>>*/ caml_ba_set_1(s, 2, i3$0);
-    var i4$0 =  /*<<random.ml:37:30>>*/ caml_notequal(i4, _c_) ? i4 : _d_;
-     /*<<random.ml:37:4>>*/ return caml_ba_set_1(s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
+    var
+     i4$0 =
+        /*<<random.ml:37:38>>*/  /*<<random.ml:37:30>>*/ caml_notequal
+         (i4, _c_)
+        ? i4
+        : _d_;
+     /*<<random.ml:37:55>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
+            (s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
    }
    function mk(i1, i2, i3, i4){
     var s =  /*<<random.ml:40:12>>*/ create(0);
      /*<<random.ml:41:4>>*/ set(s, i1, i2, i3, i4);
-    return s;
+     /*<<random.ml:41:21>>*/ return s;
     /*<<random.ml:41:24>>*/ }
    var
     serialization_prefix_len = 5,
@@ -24380,7 +25094,7 @@
      var _y_ =  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1(s, i);
       /*<<random.ml:66:6>>*/ caml_call3
       (Stdlib_Bytes[86], buf, 5 + (i * 8 | 0) | 0, _y_);
-     var _z_ = i + 1 | 0;
+     var _z_ =  /*<<random.ml:66:63>>*/ i + 1 | 0;
      if(3 === i)
        /*<<random.ml:68:4>>*/ return caml_call1(Stdlib_Bytes[44], buf) /*<<random.ml:68:30>>*/ ;
      i = _z_;
@@ -24388,7 +25102,10 @@
    }
    function of_binary_string(buf){
     var
-     _v_ = runtime.caml_ml_string_length(buf) !== 37 ? 1 : 0,
+     _v_ =
+        /*<<random.ml:73:4>>*/ runtime.caml_ml_string_length(buf) !== 37
+        ? 1
+        : 0,
      _w_ =
        _v_
        ||
@@ -24413,23 +25130,23 @@
    function copy(src){
     var dst =  /*<<random.ml:89:13>>*/ create(0);
      /*<<random.ml:86:4>>*/ caml_ba_blit(src, dst);
-     /*<<random.ml:89:25>>*/ return dst;
+     /*<<random.ml:89:36>>*/ return dst;
     /*<<random.ml:89:40>>*/ }
    function reinit(s, seed){
     var
-     n = seed.length - 1,
+     n =  /*<<random.ml:97:4>>*/ seed.length - 1,
      b =  /*<<random.ml:98:12>>*/ caml_create_bytes((n * 8 | 0) + 1 | 0),
      _p_ =  /*<<random.ml:99:4>>*/ n - 1 | 0,
-     _o_ =  /*<<random.ml:98:12>>*/ 0;
-    if(_p_ >= 0){
+     _o_ =  /*<<random.ml:98:36>>*/ 0;
+     /*<<random.ml:99:4>>*/ if(_p_ >= 0){
      var i = _o_;
      for(;;){
       var
        _t_ =
           /*<<random.ml:100:35>>*/ caml_int64_of_int32
-          (runtime.caml_check_bound(seed, i)[1 + i]);
+          ( /*<<random.ml:100:49>>*/ runtime.caml_check_bound(seed, i)[1 + i]);
        /*<<random.ml:100:6>>*/ caml_call3(Stdlib_Bytes[86], b, i * 8 | 0, _t_);
-      var _u_ = i + 1 | 0;
+      var _u_ =  /*<<random.ml:100:58>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _u_;
      }
@@ -24442,7 +25159,7 @@
      _q_ =  /*<<random.ml:109:10>>*/ caml_call2(Stdlib_String[64], d2, 8),
      _r_ =  /*<<random.ml:108:10>>*/ caml_call2(Stdlib_String[64], d2, 0),
      _s_ =  /*<<random.ml:107:10>>*/ caml_call2(Stdlib_String[64], d1, 8);
-     /*<<random.ml:109:10>>*/ return set
+     /*<<random.ml:106:36>>*/ return set
             (s,
               /*<<random.ml:106:10>>*/ caml_call2(Stdlib_String[64], d1, 0),
              _s_,
@@ -24452,11 +25169,11 @@
    function make(seed){
     var s =  /*<<random.ml:112:12>>*/ create(0);
      /*<<random.ml:112:24>>*/ reinit(s, seed);
-    return s;
+     /*<<random.ml:112:37>>*/ return s;
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
-     /*<<random.ml:115:4>>*/ return  /*<<random.ml:115:9>>*/ make
-            (caml_sys_random_seed(0)) /*<<random.ml:115:25>>*/ ;
+     /*<<random.ml:115:4>>*/ return  /*<<random.ml:115:25>>*/ make
+            ( /*<<random.ml:115:9>>*/ caml_sys_random_seed(0)) /*<<random.ml:115:25>>*/ ;
    }
    var
     max_int31 = 1073741823,
@@ -24467,23 +25184,25 @@
     cst_Random_int32 = "Random.int32",
     cst_Random_int32_in_range = "Random.int32_in_range";
    function bits(s){
-     /*<<random.ml:129:4>>*/ return  /*<<random.ml:129:17>>*/ caml_int64_to_int32
-            (caml_lxm_next(s))
-           & 1073741823;
+     /*<<random.ml:129:4>>*/ return  /*<<random.ml:129:25>>*/ caml_int64_to_int32
+            ( /*<<random.ml:129:17>>*/ caml_lxm_next(s))
+           & 1073741823 /*<<random.ml:129:25>>*/ ;
     /*<<random.ml:129:40>>*/ }
    function int_aux(s, n, mask){
      /*<<random.ml:138:4>>*/ for(;;){
      var
       r =
-         /*<<random.ml:138:25>>*/ caml_int64_to_int32(caml_lxm_next(s)) & mask,
-      v = caml_mod(r, n);
-     if(((mask - n | 0) + 1 | 0) >= (r - v | 0))
+         /*<<random.ml:138:33>>*/ caml_int64_to_int32
+         ( /*<<random.ml:138:25>>*/ caml_lxm_next(s))
+        & mask,
+      v =  /*<<random.ml:139:4>>*/ caml_mod(r, n);
+      /*<<random.ml:148:4>>*/ if(((mask - n | 0) + 1 | 0) >= (r - v | 0))
        /*<<random.ml:148:55>>*/ return v;
     }
     /*<<random.ml:148:56>>*/ }
    function int$0(s, bound){
      /*<<random.ml:154:4>>*/ if(1073741823 >= bound && 0 < bound)
-     return int_aux(s, bound, max_int31) /*<<random.ml:156:34>>*/ ;
+      /*<<random.ml:156:9>>*/ return int_aux(s, bound, max_int31) /*<<random.ml:156:34>>*/ ;
      /*<<random.ml:155:9>>*/ return caml_call1(Stdlib[1], cst_Random_int) /*<<random.ml:156:34>>*/ ;
    }
    function full_int(s, bound){
@@ -24492,23 +25211,27 @@
              (Stdlib[1], cst_Random_full_int) /*<<random.ml:173:22>>*/ ;
     var
      _n_ =
-       bound <= 1073741823
+        /*<<random.ml:170:6>>*/ bound <= 1073741823
         ? max_int31
         : bound <= 2147483647 ? max_int32 : Stdlib[19];
-     /*<<random.ml:153:10>>*/ return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
+    return int_aux(s, bound, _n_) /*<<random.ml:173:22>>*/ ;
    }
    function int_in_range_aux(s, min, max, mask, nbits){
-    var span = (max - min | 0) + 1 | 0;
-    if(span <= mask && 0 < span)
-     return min +  /*<<random.ml:198:12>>*/ int_aux(s, span, mask) | 0;
+    var span =  /*<<random.ml:193:4>>*/ (max - min | 0) + 1 | 0;
+     /*<<random.ml:194:4>>*/ if(span <= mask && 0 < span)
+      /*<<random.ml:198:31>>*/ return min
+            +  /*<<random.ml:198:12>>*/ int_aux(s, span, mask)
+            | 0 /*<<random.ml:198:31>>*/ ;
      /*<<random.ml:184:4>>*/ for(;;){
      var
       drop = Stdlib_Sys[10] - nbits | 0,
       r =
-         /*<<random.ml:186:27>>*/ caml_int64_to_int32(caml_lxm_next(s))
+         /*<<random.ml:186:35>>*/ caml_int64_to_int32
+         ( /*<<random.ml:186:27>>*/ caml_lxm_next(s))
         << drop
         >> drop;
-     if(r >= min && max >= r)  /*<<random.ml:187:74>>*/ return r;
+      /*<<random.ml:187:4>>*/ if(r >= min && max >= r)
+       /*<<random.ml:187:74>>*/ return r;
     }
     /*<<random.ml:201:43>>*/ }
    function int_in_range(s, min, max){
@@ -24517,7 +25240,7 @@
     if(-1073741824 <= min && max <= 1073741823)
       /*<<random.ml:215:6>>*/ return int_in_range_aux
              (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
-    if(-2147483648 <= min && max <= 2147483647)
+     /*<<random.ml:216:9>>*/ if(-2147483648 <= min && max <= 2147483647)
       /*<<random.ml:217:6>>*/ return int_in_range_aux
              (s, min, max, max_int32, 32) /*<<random.ml:219:68>>*/ ;
      /*<<random.ml:219:6>>*/ return int_in_range_aux
@@ -24534,8 +25257,10 @@
          /*<<random.ml:227:12>>*/  /*<<random.ml:227:38>>*/ bits32(s) >>> 1
         | 0,
       v =  /*<<random.ml:228:12>>*/ caml_mod(r, n);
-      /*<<random.ml:230:14>>*/ if
-      (! caml_greaterthan(r - v | 0, (Stdlib_Int32[9] - n | 0) + 1 | 0))
+      /*<<random.ml:230:46>>*/ if
+      (!
+        /*<<random.ml:230:14>>*/ caml_greaterthan
+        (r - v | 0, (Stdlib_Int32[9] - n | 0) + 1 | 0))
        /*<<random.ml:232:9>>*/ return v;
     }
     /*<<random.ml:232:10>>*/ }
@@ -24553,18 +25278,19 @@
     var
      span =
         /*<<random.ml:249:17>>*/ caml_call1(Stdlib_Int32[6], max - min | 0);
-     /*<<random.ml:251:9>>*/ if(! caml_lessequal(span, Stdlib_Int32[1]))
-      /*<<random.ml:254:8>>*/ return min
+     /*<<random.ml:251:27>>*/ if
+     (!  /*<<random.ml:251:9>>*/ caml_lessequal(span, Stdlib_Int32[1]))
+      /*<<random.ml:254:39>>*/ return min
             +  /*<<random.ml:254:22>>*/ int32aux(s, span)
-            | 0 /*<<random.ml:254:8>>*/ ;
+            | 0 /*<<random.ml:254:39>>*/ ;
      /*<<random.ml:242:4>>*/ for(;;){
      var
       r =
          /*<<random.ml:242:12>>*/ caml_int64_to_int32
          ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
-      /*<<random.ml:243:7>>*/ if
+      /*<<random.ml:243:14>>*/ if
       (!
-       caml_lessthan(r, min)
+        /*<<random.ml:243:7>>*/ caml_lessthan(r, min)
        && !  /*<<random.ml:243:18>>*/ caml_greaterthan(r, max))
        /*<<random.ml:243:67>>*/ return r;
     }
@@ -24582,9 +25308,9 @@
          /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
          ( /*<<random.ml:258:4>>*/ caml_lxm_next(s), 1),
       v =  /*<<random.ml:263:12>>*/ runtime.caml_int64_mod(r, n);
-      /*<<random.ml:265:14>>*/ if
+      /*<<random.ml:265:46>>*/ if
       (!
-       caml_greaterthan
+        /*<<random.ml:265:14>>*/ caml_greaterthan
         (caml_int64_sub(r, v),
           /*<<random.ml:265:24>>*/ caml_int64_add
           ( /*<<random.ml:265:28>>*/ caml_int64_sub(Stdlib_Int64[9], n), _f_)))
@@ -24606,14 +25332,15 @@
      span =
         /*<<random.ml:284:17>>*/ caml_call1
         (Stdlib_Int64[6],  /*<<random.ml:284:28>>*/ caml_int64_sub(max, min));
-     /*<<random.ml:286:9>>*/ if(! caml_lessequal(span, Stdlib_Int64[1]))
-      /*<<random.ml:289:8>>*/ return caml_int64_add
+     /*<<random.ml:286:27>>*/ if
+     (!  /*<<random.ml:286:9>>*/ caml_lessequal(span, Stdlib_Int64[1]))
+      /*<<random.ml:289:39>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
              (min,  /*<<random.ml:289:22>>*/ int64aux(s, span)) /*<<random.ml:289:39>>*/ ;
      /*<<random.ml:277:4>>*/ for(;;){
      var r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
-      /*<<random.ml:278:7>>*/ if
+      /*<<random.ml:278:14>>*/ if
       (!
-       caml_lessthan(r, min)
+        /*<<random.ml:278:7>>*/ caml_lessthan(r, min)
        && !  /*<<random.ml:278:18>>*/ caml_greaterthan(r, max))
        /*<<random.ml:278:67>>*/ return r;
     }
@@ -24669,13 +25396,14 @@
      var
       b =  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
       n =  /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne(b, 11);
-      /*<<random.ml:318:7>>*/ if(caml_notequal(n, _h_))
-       /*<<random.ml:321:22>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
+      /*<<random.ml:318:14>>*/ if
+      ( /*<<random.ml:318:7>>*/ caml_notequal(n, _h_))
+       /*<<random.ml:321:41>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
               (n)
              * 1.1102230246251565e-16
-             * bound /*<<random.ml:321:22>>*/ ;
+             * bound /*<<random.ml:321:41>>*/ ;
     }
-    /*<<random.ml:321:41>>*/ }
+   }
    function bool(s){
      /*<<random.ml:324:15>>*/ return caml_lessthan(caml_lxm_next(s), _i_) /*<<random.ml:324:26>>*/ ;
    }
@@ -24695,122 +25423,128 @@
        /*<<random.ml:341:2>>*/ caml_call2
        (Stdlib_Domain[10][1], [0, split], mk_default);
    function bits$0(param){
-     /*<<random.ml:343:14>>*/ return  /*<<random.ml:343:25>>*/ bits
-            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
+     /*<<random.ml:343:14>>*/ return  /*<<random.ml:343:52>>*/ bits
+            ( /*<<random.ml:343:25>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
    }
    function int$1(bound){
-     /*<<random.ml:344:16>>*/ return int$0
+     /*<<random.ml:344:16>>*/ return  /*<<random.ml:344:53>>*/ int$0
             ( /*<<random.ml:344:26>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:344:59>>*/ ;
    }
    function full_int$0(bound){
-     /*<<random.ml:345:21>>*/ return full_int
+     /*<<random.ml:345:21>>*/ return  /*<<random.ml:345:63>>*/ full_int
             ( /*<<random.ml:345:36>>*/ caml_call1
               (Stdlib_Domain[10][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:2>>*/ return  /*<<random.ml:347:48>>*/ int_in_range
             ( /*<<random.ml:347:21>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:347:58>>*/ ;
    }
    function int32$0(bound){
-     /*<<random.ml:348:18>>*/ return int32
+     /*<<random.ml:348:18>>*/ return  /*<<random.ml:348:57>>*/ int32
             ( /*<<random.ml:348:30>>*/ caml_call1
               (Stdlib_Domain[10][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:2>>*/ return  /*<<random.ml:350:50>>*/ int32_in_range
             ( /*<<random.ml:350:23>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:350:60>>*/ ;
    }
    function nativeint$0(bound){
-     /*<<random.ml:351:22>>*/ return nativeint
+     /*<<random.ml:351:22>>*/ return  /*<<random.ml:351:65>>*/ nativeint
             ( /*<<random.ml:351:38>>*/ caml_call1
               (Stdlib_Domain[10][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:2>>*/ return  /*<<random.ml:353:54>>*/ nativeint_in_range
             ( /*<<random.ml:353:27>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:353:64>>*/ ;
    }
    function int64$0(bound){
-     /*<<random.ml:354:18>>*/ return int64
+     /*<<random.ml:354:18>>*/ return  /*<<random.ml:354:57>>*/ int64
             ( /*<<random.ml:354:30>>*/ caml_call1
               (Stdlib_Domain[10][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:2>>*/ return  /*<<random.ml:356:50>>*/ int64_in_range
             ( /*<<random.ml:356:23>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:356:60>>*/ ;
    }
    function float$1(scale){
-     /*<<random.ml:357:18>>*/ return float$0
+     /*<<random.ml:357:18>>*/ return  /*<<random.ml:357:57>>*/ float$0
             ( /*<<random.ml:357:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              scale) /*<<random.ml:357:63>>*/ ;
    }
    function bool$0(param){
-     /*<<random.ml:358:14>>*/ return  /*<<random.ml:358:25>>*/ bool
-            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
+     /*<<random.ml:358:14>>*/ return  /*<<random.ml:358:52>>*/ bool
+            ( /*<<random.ml:358:25>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
    }
    function bits32$0(param){
-     /*<<random.ml:359:16>>*/ return  /*<<random.ml:359:29>>*/ bits32
-            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
+     /*<<random.ml:359:16>>*/ return  /*<<random.ml:359:56>>*/ bits32
+            ( /*<<random.ml:359:29>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
    }
    function bits64$0(param){
     var
      s =
         /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:258:4>>*/ return caml_lxm_next(s) /*<<random.ml:360:56>>*/ ;
+     /*<<random.ml:258:10>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s) /*<<random.ml:360:56>>*/ ;
    }
    function nativebits$0(param){
-     /*<<random.ml:361:20>>*/ return  /*<<random.ml:361:37>>*/ nativebits
-            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
+     /*<<random.ml:361:20>>*/ return  /*<<random.ml:361:64>>*/ nativebits
+            ( /*<<random.ml:361:37>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
    }
    function full_init(seed){
-     /*<<random.ml:363:21>>*/ return reinit
+     /*<<random.ml:363:21>>*/ return  /*<<random.ml:363:61>>*/ reinit
             ( /*<<random.ml:363:34>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              seed) /*<<random.ml:363:66>>*/ ;
    }
    function init(seed){
-     /*<<random.ml:364:16>>*/ return  /*<<random.ml:364:26>>*/ full_init
-            ([0, seed]) /*<<random.ml:364:36>>*/ ;
+     /*<<random.ml:364:16>>*/ return full_init([0, seed]) /*<<random.ml:364:36>>*/ ;
    }
    function self_init(param){
-     /*<<random.ml:365:19>>*/ return  /*<<random.ml:365:29>>*/ full_init
-            (caml_sys_random_seed(0)) /*<<random.ml:365:44>>*/ ;
+     /*<<random.ml:365:19>>*/ return  /*<<random.ml:365:44>>*/ full_init
+            ( /*<<random.ml:365:29>>*/ caml_sys_random_seed(0)) /*<<random.ml:365:44>>*/ ;
    }
    function split$0(param){
-     /*<<random.ml:369:15>>*/ return  /*<<random.ml:369:27>>*/ split
-            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
+     /*<<random.ml:369:15>>*/ return  /*<<random.ml:369:54>>*/ split
+            ( /*<<random.ml:369:27>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
    }
    function get_state(param){
-     /*<<random.ml:373:19>>*/ return  /*<<random.ml:373:30>>*/ copy
-            (caml_call1(Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
+     /*<<random.ml:373:19>>*/ return  /*<<random.ml:373:57>>*/ copy
+            ( /*<<random.ml:373:30>>*/ caml_call1
+              (Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
    }
    function set_state(src){
     var
      dst =
         /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:86:4>>*/ return caml_ba_blit(src, dst) /*<<random.ml:374:60>>*/ ;
+     /*<<random.ml:86:23>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
+            (src, dst) /*<<random.ml:374:60>>*/ ;
    }
    var
     Stdlib_Random =
-      [0,
+       /*<<random.ml:341:62>>*/ [0,
        init,
        full_init,
        self_init,
@@ -24908,7 +25642,9 @@
    global_data.Assert_failure;
    var Stdlib_String = global_data.Stdlib__String;
    function ongoing_traversal(h){
-    var _an_ = h.length - 1 < 4 ? 1 : 0, _ao_ = _an_ || (h[4] < 0 ? 1 : 0);
+    var
+     _an_ =  /*<<hashtbl.ml:41:2>>*/ h.length - 1 < 4 ? 1 : 0,
+     _ao_ = _an_ || (h[4] < 0 ? 1 : 0);
     return _ao_;
     /*<<hashtbl.ml:42:23>>*/ }
    function flip_ongoing_traversal(h){
@@ -24925,7 +25661,7 @@
    catch(_al_){
     var _a_ = caml_wrap_exception(_al_);
     if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
-     /*<<hashtbl.ml:52:4>>*/ try{
+    try{
      var
       _e_ =  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv("CAMLRUNPARAM"),
       _c_ = _e_;
@@ -24948,8 +25684,7 @@
             (Stdlib_Atomic[4], randomized, 1) /*<<hashtbl.ml:57:45>>*/ ;
    }
    function is_randomized(param){
-     /*<<hashtbl.ml:58:23>>*/ return  /*<<hashtbl.ml:57:14>>*/ caml_call1
-            (Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
+     /*<<hashtbl.ml:58:23>>*/ return caml_call1(Stdlib_Atomic[3], randomized) /*<<hashtbl.ml:58:44>>*/ ;
    }
    var
     prng_key =
@@ -24959,15 +25694,16 @@
     var x$0 = x;
      /*<<hashtbl.ml:69:2>>*/ for(;;){
      if(n <= x$0)  /*<<hashtbl.ml:69:17>>*/ return x$0;
-     if(Stdlib_Sys[13] < (x$0 * 2 | 0))  /*<<hashtbl.ml:70:44>>*/ return x$0;
-     var x$1 = x$0 * 2 | 0;
+      /*<<hashtbl.ml:70:7>>*/ if(Stdlib_Sys[13] < (x$0 * 2 | 0))
+       /*<<hashtbl.ml:70:44>>*/ return x$0;
+     var x$1 =  /*<<hashtbl.ml:71:7>>*/ x$0 * 2 | 0;
      x$0 = x$1;
     }
     /*<<hashtbl.ml:71:30>>*/ }
    function create(opt, initial_size){
     var
      random =
-       opt
+        /*<<hashtbl.ml:73:11>>*/ opt
         ? opt[1]
         :  /*<<hashtbl.ml:73:22>>*/ caml_call1(Stdlib_Atomic[3], randomized),
      s =  /*<<hashtbl.ml:74:10>>*/ power_2_above(16, initial_size);
@@ -24978,14 +25714,14 @@
       seed =  /*<<hashtbl.ml:76:19>>*/ caml_call1(Stdlib_Random[19][4], _ak_);
     else
      var seed = 0;
-     /*<<hashtbl.ml:78:2>>*/ return [0,
+     /*<<hashtbl.ml:78:70>>*/ return [0,
             0,
              /*<<hashtbl.ml:78:52>>*/ caml_make_vect(s, 0),
             seed,
-            s] /*<<hashtbl.ml:78:2>>*/ ;
+            s] /*<<hashtbl.ml:78:70>>*/ ;
     /*<<hashtbl.ml:78:72>>*/ }
    function clear(h){
-    var _aj_ = 0 < h[1] ? 1 : 0;
+    var _aj_ =  /*<<hashtbl.ml:81:2>>*/ 0 < h[1] ? 1 : 0;
     return _aj_
             ? (h
                [1]
@@ -24995,15 +25731,15 @@
             : _aj_ /*<<hashtbl.ml:84:5>>*/ ;
    }
    function reset(h){
-    var len = h[2].length - 1;
-    if
+    var len =  /*<<hashtbl.ml:87:2>>*/ h[2].length - 1;
+     /*<<hashtbl.ml:88:2>>*/ if
      (4 <= h.length - 1
       && len !==  /*<<hashtbl.ml:89:13>>*/ caml_call1(Stdlib[18], h[4])){
-     h[1] = 0;
-     h[2] =
+      /*<<hashtbl.ml:91:7>>*/ h[1] = 0;
+      /*<<hashtbl.ml:93:51>>*/ h[2] =
        /*<<hashtbl.ml:93:14>>*/ caml_make_vect
        ( /*<<hashtbl.ml:93:25>>*/ caml_call1(Stdlib[18], h[4]), 0);
-     return 0;
+      /*<<hashtbl.ml:93:51>>*/ return 0;
     }
      /*<<hashtbl.ml:90:4>>*/ return clear(h) /*<<hashtbl.ml:94:5>>*/ ;
    }
@@ -25013,39 +25749,39 @@
      key = param[1],
      data = param[2],
      next = param[3],
-     prec$1 =  /*<<hashtbl.ml:109:19>>*/ [0, key, data, next],
+     prec$1 =  /*<<hashtbl.ml:109:6>>*/ [0, key, data, next],
      prec = prec$1,
      param$0 = next;
      /*<<hashtbl.ml:99:19>>*/ for(;;){
-     if(! param$0)  /*<<hashtbl.ml:110:6>>*/ return prec$1;
+     if(! param$0)  /*<<hashtbl.ml:110:17>>*/ return prec$1;
      var
       key$0 = param$0[1],
       data$0 = param$0[2],
       next$0 = param$0[3],
-      prec$0 =  /*<<hashtbl.ml:102:25>>*/ [0, key$0, data$0, next$0];
-     prec[3] = prec$0;
+      prec$0 =  /*<<hashtbl.ml:102:12>>*/ [0, key$0, data$0, next$0];
+      /*<<hashtbl.ml:105:28>>*/ prec[3] = prec$0;
      prec = prec$0;
      param$0 = next$0;
     }
     /*<<hashtbl.ml:111:7>>*/ }
    function copy(h){
     var
-     _ag_ = h[4],
+     _ag_ =  /*<<hashtbl.ml:113:13>>*/ h[4],
      _ah_ = h[3],
      _ai_ =
         /*<<hashtbl.ml:113:29>>*/ caml_call2
         (Stdlib_Array[14], copy_bucketlist, h[2]);
-     /*<<hashtbl.ml:113:13>>*/ return [0, h[1], _ai_, _ah_, _ag_];
+     /*<<hashtbl.ml:113:61>>*/ return [0, h[1], _ai_, _ah_, _ag_];
     /*<<hashtbl.ml:113:63>>*/ }
    function length(h){
      /*<<hashtbl.ml:115:15>>*/ return h[1];
     /*<<hashtbl.ml:115:21>>*/ }
    function insert_all_buckets(indexfun, inplace, odata, ndata){
     var
-     nsize = ndata.length - 1,
+     nsize =  /*<<hashtbl.ml:118:2>>*/ ndata.length - 1,
      ndata_tail =  /*<<hashtbl.ml:119:19>>*/ caml_make_vect(nsize, 0),
-     _aa_ = odata.length - 2 | 0,
-     _$_ =  /*<<hashtbl.ml:135:2>>*/ 0;
+     _aa_ =  /*<<hashtbl.ml:135:2>>*/ odata.length - 2 | 0,
+     _$_ = 0;
     if(_aa_ >= 0){
      var i$0 = _$_;
      for(;;){
@@ -25064,29 +25800,30 @@
         match =
            /*<<hashtbl.ml:128:20>>*/ caml_check_bound(ndata_tail, nidx)
            [1 + nidx];
-       if(match)
-        match[3] = cell$0;
+        /*<<hashtbl.ml:128:37>>*/ if(match)
+         /*<<hashtbl.ml:130:23>>*/ match[3] = cell$0;
        else
          /*<<hashtbl.ml:129:19>>*/ caml_check_bound(ndata, nidx)[1 + nidx] = cell$0;
         /*<<hashtbl.ml:132:8>>*/ caml_check_bound(ndata_tail, nidx)[1 + nidx]
        = cell$0;
        cell = next;
       }
-      var _af_ =  /*<<hashtbl.ml:136:4>>*/ i$0 + 1 | 0;
+      var _af_ =  /*<<hashtbl.ml:136:27>>*/ i$0 + 1 | 0;
       if(_aa_ === i$0) break;
       i$0 = _af_;
      }
     }
-    if(inplace){
-     var _ac_ = nsize - 1 | 0, _ab_ =  /*<<hashtbl.ml:139:4>>*/ 0;
+     /*<<hashtbl.ml:138:2>>*/ if(inplace){
+     var _ac_ =  /*<<hashtbl.ml:139:4>>*/ nsize - 1 | 0, _ab_ = 0;
      if(_ac_ >= 0){
       var i = _ab_;
       for(;;){
        var
         match$0 =
            /*<<hashtbl.ml:140:12>>*/ caml_check_bound(ndata_tail, i)[1 + i];
-       if(match$0) match$0[3] = 0;
-       var _ae_ =  /*<<hashtbl.ml:139:4>>*/ i + 1 | 0;
+        /*<<hashtbl.ml:140:26>>*/ if(match$0)
+         /*<<hashtbl.ml:142:21>>*/ match$0[3] = 0;
+       var _ae_ = i + 1 | 0;
        if(_ac_ === i) break;
        i = _ae_;
       }
@@ -25099,16 +25836,18 @@
     /*<<hashtbl.ml:143:8>>*/ }
    function resize(indexfun, h){
     var
-     odata = h[2],
+     odata =  /*<<hashtbl.ml:146:2>>*/ h[2],
      osize =  /*<<hashtbl.ml:147:2>>*/ odata.length - 1,
-     nsize = osize * 2 | 0,
-     ___ = nsize < Stdlib_Sys[13] ? 1 : 0;
+     nsize =  /*<<hashtbl.ml:148:2>>*/ osize * 2 | 0,
+     ___ =  /*<<hashtbl.ml:149:2>>*/ nsize < Stdlib_Sys[13] ? 1 : 0;
     if(! ___) return ___;
     var
      ndata =  /*<<hashtbl.ml:150:16>>*/ caml_make_vect(nsize, 0),
-     inplace =  /*<<hashtbl.ml:151:22>>*/ 1 - ongoing_traversal(h);
-    h[2] = ndata;
-     /*<<hashtbl.ml:153:4>>*/ return insert_all_buckets
+     inplace =
+        /*<<hashtbl.ml:151:43>>*/ 1
+       -  /*<<hashtbl.ml:151:22>>*/ ongoing_traversal(h);
+     /*<<hashtbl.ml:152:4>>*/ h[2] = ndata;
+     /*<<hashtbl.ml:153:35>>*/ return insert_all_buckets
             ( /*<<hashtbl.ml:153:23>>*/ caml_call1(indexfun, h),
              inplace,
              odata,
@@ -25116,26 +25855,27 @@
    }
    function iter(f, h){
     var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
-    if(1 - old_trav)  /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
+     /*<<hashtbl.ml:163:2>>*/ if(1 - old_trav)
+      /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
     try{
-     var d = h[2], _W_ = d.length - 2 | 0, _V_ = 0;
+     var d = h[2], _W_ =  /*<<hashtbl.ml:166:4>>*/ d.length - 2 | 0, _V_ = 0;
      if(_W_ >= 0){
       var i = _V_;
       for(;;){
-       var param = caml_check_bound(d, i)[1 + i];
+       var param =  /*<<hashtbl.ml:167:16>>*/ caml_check_bound(d, i)[1 + i];
         /*<<hashtbl.ml:157:22>>*/ for(;;){
         if(! param) break;
         var key = param[1], data = param[2], next = param[3];
          /*<<hashtbl.ml:161:8>>*/ caml_call2(f, key, data);
         param = next;
        }
-       var _Z_ =  /*<<hashtbl.ml:167:6>>*/ i + 1 | 0;
+       var _Z_ =  /*<<hashtbl.ml:167:21>>*/ i + 1 | 0;
        if(_W_ === i) break;
        i = _Z_;
       }
      }
      var
-      _X_ = 1 - old_trav,
+      _X_ =  /*<<hashtbl.ml:169:4>>*/ 1 - old_trav,
       _Y_ = _X_ ?  /*<<hashtbl.ml:169:25>>*/ flip_ongoing_traversal(h) : _X_;
      return _Y_;
     }
@@ -25144,12 +25884,15 @@
       /*<<hashtbl.ml:170:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal(h);
-      /*<<hashtbl.ml:172:4>>*/ throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<hashtbl.ml:171:28>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<hashtbl.ml:172:13>>*/ }
    function filter_map_inplace(f, h){
-    var d = h[2], old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
-    if(1 - old_trav)  /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
+    var
+     d =  /*<<hashtbl.ml:195:2>>*/ h[2],
+     old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
+     /*<<hashtbl.ml:197:2>>*/ if(1 - old_trav)
+      /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
     try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
      if(_R_ >= 0){
@@ -25166,29 +25909,29 @@
          data = slot[2],
          next = slot[3],
          match =  /*<<hashtbl.ml:181:18>>*/ caml_call2(f, key, data);
-        if(match){
+         /*<<hashtbl.ml:181:28>>*/ if(match){
          var data$0 = match[1];
           /*<<hashtbl.ml:186:10>>*/ if(prec)
-          prec[3] = slot;
+           /*<<hashtbl.ml:188:22>>*/ prec[3] = slot;
          else
            /*<<hashtbl.ml:187:21>>*/ caml_check_bound(h[2], i)[1 + i] = slot;
          slot[2] = data$0;
          prec = slot;
          slot = next;
         }
-        else{h[1] = h[1] - 1 | 0; slot = next;}
+        else{ /*<<hashtbl.ml:183:10>>*/ h[1] = h[1] - 1 | 0; slot = next;}
        }
-       if(prec)
-        prec[3] = 0;
+        /*<<hashtbl.ml:176:6>>*/ if(prec)
+         /*<<hashtbl.ml:178:18>>*/ prec[3] = 0;
        else
          /*<<hashtbl.ml:177:17>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-       var _U_ =  /*<<hashtbl.ml:200:6>>*/ i + 1 | 0;
+       var _U_ =  /*<<hashtbl.ml:200:54>>*/ i + 1 | 0;
        if(_R_ === i) break;
        i = _U_;
       }
      }
      var
-      _S_ = 1 - old_trav,
+      _S_ =  /*<<hashtbl.ml:202:4>>*/ 1 - old_trav,
       _T_ = _S_ ?  /*<<hashtbl.ml:202:25>>*/ flip_ongoing_traversal(h) : _S_;
      return _T_;
     }
@@ -25197,23 +25940,24 @@
       /*<<hashtbl.ml:203:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal(h);
-      /*<<hashtbl.ml:205:4>>*/ throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<hashtbl.ml:204:28>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<hashtbl.ml:205:13>>*/ }
    function fold(f, h, init){
     var old_trav =  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal(h);
-    if(1 - old_trav)  /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
+     /*<<hashtbl.ml:215:2>>*/ if(1 - old_trav)
+      /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
     try{
      var
       d = h[2],
-      accu$1 =  /*<<hashtbl.ml:218:15>>*/ [0, init],
-      _N_ = d.length - 2 | 0,
-      _M_ = 0;
-     if(_N_ >= 0){
+      accu$1 =  /*<<hashtbl.ml:218:4>>*/ [0, init],
+      _N_ =  /*<<hashtbl.ml:219:4>>*/ d.length - 2 | 0,
+      _M_ =  /*<<hashtbl.ml:218:4>>*/ 0;
+      /*<<hashtbl.ml:219:4>>*/ if(_N_ >= 0){
       var i = _M_;
       for(;;){
        var
-        accu$2 = accu$1[1],
+        accu$2 =  /*<<hashtbl.ml:220:6>>*/ accu$1[1],
         b$0 =  /*<<hashtbl.ml:220:24>>*/ caml_check_bound(d, i)[1 + i],
         b = b$0,
         accu = accu$2;
@@ -25227,13 +25971,14 @@
         b = next;
         accu = accu$0;
        }
-       accu$1[1] = accu;
-       var _P_ =  /*<<hashtbl.ml:219:4>>*/ i + 1 | 0;
+        /*<<hashtbl.ml:220:35>>*/ accu$1[1] = accu;
+       var _P_ = i + 1 | 0;
        if(_N_ === i) break;
        i = _P_;
       }
      }
-     if(1 - old_trav)  /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal(h);
+      /*<<hashtbl.ml:222:4>>*/ if(1 - old_trav)
+       /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal(h);
      var _O_ = accu$1[1];
      return _O_;
     }
@@ -25242,7 +25987,7 @@
       /*<<hashtbl.ml:224:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal(h);
-      /*<<hashtbl.ml:226:4>>*/ throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<hashtbl.ml:225:28>>*/ throw caml_maybe_attach_backtrace(exn, 0);
     }
     /*<<hashtbl.ml:226:13>>*/ }
    function bucket_length(accu, param){
@@ -25263,7 +26008,7 @@
         (Stdlib_Array[18],
          function(m, b){
           var _L_ =  /*<<hashtbl.ml:241:42>>*/ bucket_length(0, b);
-          return caml_call2(Stdlib_Int[11], m, _L_) /*<<hashtbl.ml:241:61>>*/ ;
+           /*<<hashtbl.ml:241:61>>*/ return caml_call2(Stdlib_Int[11], m, _L_);
          },
          0,
          h[2]),
@@ -25273,28 +26018,29 @@
       function(b){
        var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
         /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
-        caml_check_bound(histo, l)[1 + l] + 1 | 0;
-       return 0;
-       /*<<hashtbl.ml:246:32>>*/ },
+         /*<<hashtbl.ml:246:19>>*/ caml_check_bound(histo, l)[1 + l] + 1 | 0;
+        /*<<hashtbl.ml:246:32>>*/ return 0;
+      },
       h[2]);
-     /*<<hashtbl.ml:248:2>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
+     /*<<hashtbl.ml:247:10>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
     /*<<hashtbl.ml:251:30>>*/ }
    function to_seq(tbl){
-    var tbl_data = tbl[2];
+    var tbl_data =  /*<<hashtbl.ml:258:2>>*/ tbl[2];
     function aux(i, buck, param){
      var i$0 = i, buck$0 = buck;
       /*<<hashtbl.ml:260:26>>*/ for(;;){
       if(buck$0){
        var key = buck$0[1], data = buck$0[2], next = buck$0[3];
-        /*<<hashtbl.ml:266:8>>*/ return [0,
+        /*<<hashtbl.ml:266:41>>*/ return [0,
                [0, key, data],
-               function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}] /*<<hashtbl.ml:266:8>>*/ ;
+               function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}] /*<<hashtbl.ml:266:41>>*/ ;
       }
-      if(i$0 === tbl_data.length - 1)  /*<<hashtbl.ml:263:13>>*/ return 0;
+       /*<<hashtbl.ml:262:8>>*/ if(i$0 === tbl_data.length - 1)
+        /*<<hashtbl.ml:263:13>>*/ return 0;
       var
        buck$1 =
           /*<<hashtbl.ml:264:22>>*/ caml_check_bound(tbl_data, i$0)[1 + i$0],
-       i$1 = i$0 + 1 | 0;
+       i$1 =  /*<<hashtbl.ml:264:34>>*/ i$0 + 1 | 0;
       i$0 = i$1;
       buck$0 = buck$1;
      }
@@ -25305,30 +26051,32 @@
     /*<<hashtbl.ml:268:13>>*/ }
    function to_seq_keys(m){
     var _F_ =  /*<<hashtbl.ml:270:32>>*/ to_seq(m);
-    return caml_call2
+     /*<<hashtbl.ml:270:42>>*/ return caml_call2
             (Stdlib_Seq[29], function(_G_){ /*<<?>>*/ return _G_[1];}, _F_) /*<<hashtbl.ml:270:42>>*/ ;
    }
    function to_seq_values(m){
     var _D_ =  /*<<hashtbl.ml:272:34>>*/ to_seq(m);
-    return caml_call2
+     /*<<hashtbl.ml:272:44>>*/ return caml_call2
             (Stdlib_Seq[29], function(_E_){ /*<<?>>*/ return _E_[2];}, _D_) /*<<hashtbl.ml:272:44>>*/ ;
    }
    function MakeSeeded(H){
     function key_index(h, key){
-     var _C_ = h[2].length - 2 | 0;
-      /*<<hashtbl.ml:357:6>>*/ return caml_call2(H[2], h[3], key) & _C_;
+     var _C_ =  /*<<hashtbl.ml:357:6>>*/ h[2].length - 2 | 0;
+      /*<<hashtbl.ml:357:32>>*/ return  /*<<hashtbl.ml:357:6>>*/ caml_call2
+             (H[2], h[3], key)
+            & _C_ /*<<hashtbl.ml:357:32>>*/ ;
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
      var
       i =  /*<<hashtbl.ml:360:14>>*/ key_index(h, key),
       bucket =
-         /*<<hashtbl.ml:361:23>>*/ [0,
+         /*<<hashtbl.ml:361:50>>*/ [0,
          key,
          data,
-         caml_check_bound(h[2], i)[1 + i]];
+          /*<<hashtbl.ml:361:40>>*/ caml_check_bound(h[2], i)[1 + i]];
       /*<<hashtbl.ml:362:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
-     h[1] = h[1] + 1 | 0;
-     var _B_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
+      /*<<hashtbl.ml:362:26>>*/ h[1] = h[1] + 1 | 0;
+     var _B_ =  /*<<hashtbl.ml:364:6>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
      return _B_ ?  /*<<hashtbl.ml:364:49>>*/ resize(key_index, h) : _B_ /*<<hashtbl.ml:364:67>>*/ ;
     }
     function remove(h, key){
@@ -25340,11 +26088,16 @@
       /*<<hashtbl.ml:366:26>>*/ for(;;){
       if(! prec)  /*<<hashtbl.ml:368:10>>*/ return 0;
       var k = prec[1], next = prec[3];
-       /*<<hashtbl.ml:370:13>>*/ if(caml_call2(H[1], k, key)){
-       h[1] = h[1] - 1 | 0;
-       return prec$0
+       /*<<hashtbl.ml:370:26>>*/ if
+       ( /*<<hashtbl.ml:370:13>>*/ caml_call2(H[1], k, key)){
+        /*<<hashtbl.ml:371:15>>*/ h[1] = h[1] - 1 | 0;
+        /*<<hashtbl.ml:373:12>>*/ return prec$0
                ? (prec$0[3] = next, 0)
-               : (caml_check_bound(h[2], i)[1 + i] = next, 0) /*<<hashtbl.ml:381:44>>*/ ;
+               : ( /*<<hashtbl.ml:374:23>>*/ caml_check_bound
+                   (h[2], i)
+                  [1 + i]
+                 = next,
+                 0) /*<<hashtbl.ml:381:44>>*/ ;
       }
       prec$0 = prec;
       prec = next;
@@ -25354,23 +26107,26 @@
      var
       _A_ =  /*<<hashtbl.ml:390:20>>*/ key_index(h, key),
       match =  /*<<hashtbl.ml:390:12>>*/ caml_check_bound(h[2], _A_)[1 + _A_];
-     if(! match)
+      /*<<hashtbl.ml:390:36>>*/ if(! match)
        /*<<hashtbl.ml:391:17>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
      var k1 = match[1], d1 = match[2], next1 = match[3];
-      /*<<hashtbl.ml:393:13>>*/ if(caml_call2(H[1], key, k1))
+      /*<<hashtbl.ml:393:27>>*/ if
+      ( /*<<hashtbl.ml:393:13>>*/ caml_call2(H[1], key, k1))
        /*<<hashtbl.ml:393:33>>*/ return d1;
-     if(! next1)
+      /*<<hashtbl.ml:394:10>>*/ if(! next1)
        /*<<hashtbl.ml:395:21>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-      /*<<hashtbl.ml:397:17>>*/ if(caml_call2(H[1], key, k2))
+      /*<<hashtbl.ml:397:31>>*/ if
+      ( /*<<hashtbl.ml:397:17>>*/ caml_call2(H[1], key, k2))
        /*<<hashtbl.ml:397:37>>*/ return d2;
-     if(! next2)
+      /*<<hashtbl.ml:398:14>>*/ if(! next2)
        /*<<hashtbl.ml:399:25>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-      /*<<hashtbl.ml:401:21>>*/ if(caml_call2(H[1], key, k3))
+      /*<<hashtbl.ml:401:35>>*/ if
+      ( /*<<hashtbl.ml:401:21>>*/ caml_call2(H[1], key, k3))
        /*<<hashtbl.ml:401:41>>*/ return d3;
      var param = next3;
       /*<<hashtbl.ml:383:21>>*/ for(;;){
@@ -25378,7 +26134,8 @@
         /*<<hashtbl.ml:385:10>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
       var k = param[1], data = param[2], next = param[3];
-       /*<<hashtbl.ml:387:13>>*/ if(caml_call2(H[1], key, k))
+       /*<<hashtbl.ml:387:26>>*/ if
+       ( /*<<hashtbl.ml:387:13>>*/ caml_call2(H[1], key, k))
         /*<<hashtbl.ml:387:32>>*/ return data;
       param = next;
      }
@@ -25387,23 +26144,30 @@
      var
       _z_ =  /*<<hashtbl.ml:410:20>>*/ key_index(h, key),
       match =  /*<<hashtbl.ml:410:12>>*/ caml_check_bound(h[2], _z_)[1 + _z_];
-     if(! match)  /*<<hashtbl.ml:411:17>>*/ return 0;
+      /*<<hashtbl.ml:410:36>>*/ if(! match)
+       /*<<hashtbl.ml:411:17>>*/ return 0;
      var k1 = match[1], d1 = match[2], next1 = match[3];
-      /*<<hashtbl.ml:413:13>>*/ if(caml_call2(H[1], key, k1))
+      /*<<hashtbl.ml:413:27>>*/ if
+      ( /*<<hashtbl.ml:413:13>>*/ caml_call2(H[1], key, k1))
        /*<<hashtbl.ml:413:33>>*/ return [0, d1];
-     if(! next1)  /*<<hashtbl.ml:415:21>>*/ return 0;
+      /*<<hashtbl.ml:414:10>>*/ if(! next1)
+       /*<<hashtbl.ml:415:21>>*/ return 0;
      var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-      /*<<hashtbl.ml:417:17>>*/ if(caml_call2(H[1], key, k2))
+      /*<<hashtbl.ml:417:31>>*/ if
+      ( /*<<hashtbl.ml:417:17>>*/ caml_call2(H[1], key, k2))
        /*<<hashtbl.ml:417:37>>*/ return [0, d2];
-     if(! next2)  /*<<hashtbl.ml:419:25>>*/ return 0;
+      /*<<hashtbl.ml:418:14>>*/ if(! next2)
+       /*<<hashtbl.ml:419:25>>*/ return 0;
      var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-      /*<<hashtbl.ml:421:21>>*/ if(caml_call2(H[1], key, k3))
+      /*<<hashtbl.ml:421:35>>*/ if
+      ( /*<<hashtbl.ml:421:21>>*/ caml_call2(H[1], key, k3))
        /*<<hashtbl.ml:421:41>>*/ return [0, d3];
      var param = next3;
       /*<<hashtbl.ml:403:25>>*/ for(;;){
       if(! param)  /*<<hashtbl.ml:405:10>>*/ return 0;
       var k = param[1], data = param[2], next = param[3];
-       /*<<hashtbl.ml:407:13>>*/ if(caml_call2(H[1], key, k))
+       /*<<hashtbl.ml:407:26>>*/ if
+       ( /*<<hashtbl.ml:407:13>>*/ caml_call2(H[1], key, k))
         /*<<hashtbl.ml:407:32>>*/ return [0, data];
       param = next;
      }
@@ -25411,11 +26175,13 @@
     function find_all(h, key){
      var
       _y_ =  /*<<hashtbl.ml:431:29>>*/ key_index(h, key),
-      param = caml_check_bound(h[2], _y_)[1 + _y_];
+      param =  /*<<hashtbl.ml:431:21>>*/ caml_check_bound(h[2], _y_)[1 + _y_];
       /*<<hashtbl.ml:424:47>>*/ for(;;){
       if(! param)  /*<<hashtbl.ml:426:10>>*/ return 0;
       var k = param[1], d = param[2], next = param[3];
-       /*<<hashtbl.ml:428:13>>*/ if(caml_call2(H[1], k, key)) break;
+       /*<<hashtbl.ml:428:26>>*/ if
+       ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k, key))
+       break;
       param = next;
      }
      var
@@ -25425,11 +26191,12 @@
       param$0 = next;
       /*<<hashtbl.ml:424:47>>*/ for(;;){
       if(! param$0){
-       dst[1 + offset] = 0;
-        /*<<hashtbl.ml:429:20>>*/ return block;
+        /*<<hashtbl.ml:426:10>>*/ dst[1 + offset] = 0;
+        /*<<hashtbl.ml:429:39>>*/ return block;
       }
       var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
-       /*<<hashtbl.ml:428:13>>*/ if(caml_call2(H[1], k$0, key)){
+       /*<<hashtbl.ml:428:26>>*/ if
+       ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k$0, key)){
        var dst$0 =  /*<<hashtbl.ml:429:15>>*/ [0, d$0, 24029];
        dst[1 + offset] = dst$0;
        dst = dst$0;
@@ -25448,17 +26215,19 @@
       /*<<hashtbl.ml:433:27>>*/ for(;;){
       if(slot){
        var k = slot[1], next = slot[3];
-        /*<<hashtbl.ml:437:13>>*/ if(! caml_call2(H[1], k, key)){slot = next; continue;}
-       slot[1] = key;
-       slot[2] = data;
+        /*<<hashtbl.ml:437:26>>*/ if
+        (!  /*<<hashtbl.ml:437:13>>*/ caml_call2(H[1], k, key)){slot = next; continue;}
+        /*<<hashtbl.ml:438:15>>*/ slot[1] = key;
+        /*<<hashtbl.ml:438:33>>*/ slot[2] = data;
        var _v_ = 0;
       }
       else
        var _v_ = 1;
-       /*<<hashtbl.ml:444:9>>*/ if(_v_){
+       /*<<hashtbl.ml:444:34>>*/ if(_v_){
         /*<<hashtbl.ml:445:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, key, data, l];
-       h[1] = h[1] + 1 | 0;
-       var _w_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
+        /*<<hashtbl.ml:445:45>>*/ h[1] = h[1] + 1 | 0;
+       var
+        _w_ =  /*<<hashtbl.ml:447:8>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
        if(_w_)
          /*<<hashtbl.ml:447:51>>*/ return resize(key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
        var _x_ = _w_;
@@ -25471,14 +26240,14 @@
     function mem(h, key){
      var
       _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
-      param = caml_check_bound(h[2], _u_)[1 + _u_];
+      param =  /*<<hashtbl.ml:457:24>>*/ caml_check_bound(h[2], _u_)[1 + _u_];
       /*<<hashtbl.ml:450:26>>*/ for(;;){
       if(! param)  /*<<hashtbl.ml:452:10>>*/ return 0;
       var
        k = param[1],
        next = param[3],
        _t_ =  /*<<hashtbl.ml:454:10>>*/ caml_call2(H[1], k, key);
-      if(_t_) return _t_;
+       /*<<hashtbl.ml:454:23>>*/ if(_t_) return _t_;
       param = next;
      }
      /*<<hashtbl.ml:457:48>>*/ }
@@ -25486,7 +26255,7 @@
       /*<<hashtbl.ml:460:6>>*/ return caml_call2
              (Stdlib_Seq[4],
               function(param){
-               var v = param[2], k = param[1];
+               var v =  /*<<hashtbl.ml:460:15>>*/ param[2], k = param[1];
                 /*<<hashtbl.ml:460:29>>*/ return add(tbl, k, v) /*<<hashtbl.ml:460:41>>*/ ;
               },
               i) /*<<hashtbl.ml:460:43>>*/ ;
@@ -25495,7 +26264,7 @@
       /*<<hashtbl.ml:463:6>>*/ return caml_call2
              (Stdlib_Seq[4],
               function(param){
-               var v = param[2], k = param[1];
+               var v =  /*<<hashtbl.ml:463:15>>*/ param[2], k = param[1];
                 /*<<hashtbl.ml:463:29>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:463:45>>*/ ;
               },
               i) /*<<hashtbl.ml:463:47>>*/ ;
@@ -25503,9 +26272,9 @@
     function of_seq(i){
      var tbl =  /*<<hashtbl.ml:466:16>>*/ create(0, 16);
       /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
-     return tbl;
+      /*<<hashtbl.ml:467:23>>*/ return tbl;
      /*<<hashtbl.ml:468:9>>*/ }
-     /*<<hashtbl.ml:347:2>>*/ return [0,
+    return [0,
             create,
             clear,
             reset,
@@ -25563,9 +26332,9 @@
     function of_seq(i){
      var tbl =  /*<<hashtbl.ml:487:20>>*/ caml_call2(_s_, _d_, 16);
       /*<<hashtbl.ml:490:6>>*/ caml_call2(replace_seq, tbl, i);
-     return tbl;
+      /*<<hashtbl.ml:490:23>>*/ return tbl;
      /*<<hashtbl.ml:491:9>>*/ }
-     /*<<hashtbl.ml:481:2>>*/ return [0,
+    return [0,
             create,
             clear,
             reset,
@@ -25610,13 +26379,13 @@
     var
      i =  /*<<hashtbl.ml:511:10>>*/ key_index(h, key),
      bucket =
-        /*<<hashtbl.ml:512:19>>*/ [0,
+        /*<<hashtbl.ml:512:46>>*/ [0,
         key,
         data,
-        caml_check_bound(h[2], i)[1 + i]];
+         /*<<hashtbl.ml:512:36>>*/ caml_check_bound(h[2], i)[1 + i]];
      /*<<hashtbl.ml:513:2>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
-    h[1] = h[1] + 1 | 0;
-    var _r_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
+     /*<<hashtbl.ml:513:22>>*/ h[1] = h[1] + 1 | 0;
+    var _r_ =  /*<<hashtbl.ml:515:2>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
     return _r_ ?  /*<<hashtbl.ml:515:45>>*/ resize(key_index, h) : _r_ /*<<hashtbl.ml:515:63>>*/ ;
    }
    function remove(h, key){
@@ -25628,11 +26397,16 @@
      /*<<hashtbl.ml:517:22>>*/ for(;;){
      if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
      var k = prec[1], next = prec[3];
-      /*<<hashtbl.ml:521:9>>*/ if(0 === caml_compare(k, key)){
-      h[1] = h[1] - 1 | 0;
-      return prec$0
+      /*<<hashtbl.ml:521:22>>*/ if
+      (0 ===  /*<<hashtbl.ml:521:9>>*/ caml_compare(k, key)){
+       /*<<hashtbl.ml:522:11>>*/ h[1] = h[1] - 1 | 0;
+       /*<<hashtbl.ml:524:8>>*/ return prec$0
               ? (prec$0[3] = next, 0)
-              : (caml_check_bound(h[2], i)[1 + i] = next, 0) /*<<hashtbl.ml:532:40>>*/ ;
+              : ( /*<<hashtbl.ml:525:19>>*/ caml_check_bound
+                  (h[2], i)
+                 [1 + i]
+                = next,
+                0) /*<<hashtbl.ml:532:40>>*/ ;
      }
      prec$0 = prec;
      prec = next;
@@ -25642,23 +26416,26 @@
     var
      _q_ =  /*<<hashtbl.ml:541:16>>*/ key_index(h, key),
      match =  /*<<hashtbl.ml:541:8>>*/ caml_check_bound(h[2], _q_)[1 + _q_];
-    if(! match)
+     /*<<hashtbl.ml:541:32>>*/ if(! match)
       /*<<hashtbl.ml:542:13>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var k1 = match[1], d1 = match[2], next1 = match[3];
-     /*<<hashtbl.ml:544:9>>*/ if(0 === caml_compare(key, k1))
+     /*<<hashtbl.ml:544:23>>*/ if
+     (0 ===  /*<<hashtbl.ml:544:9>>*/ caml_compare(key, k1))
       /*<<hashtbl.ml:544:33>>*/ return d1;
-    if(! next1)
+     /*<<hashtbl.ml:545:6>>*/ if(! next1)
       /*<<hashtbl.ml:546:17>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-     /*<<hashtbl.ml:548:13>>*/ if(0 === caml_compare(key, k2))
+     /*<<hashtbl.ml:548:27>>*/ if
+     (0 ===  /*<<hashtbl.ml:548:13>>*/ caml_compare(key, k2))
       /*<<hashtbl.ml:548:37>>*/ return d2;
-    if(! next2)
+     /*<<hashtbl.ml:549:10>>*/ if(! next2)
       /*<<hashtbl.ml:550:21>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-     /*<<hashtbl.ml:552:17>>*/ if(0 === caml_compare(key, k3))
+     /*<<hashtbl.ml:552:31>>*/ if
+     (0 ===  /*<<hashtbl.ml:552:17>>*/ caml_compare(key, k3))
       /*<<hashtbl.ml:552:41>>*/ return d3;
     var param = next3;
      /*<<hashtbl.ml:534:17>>*/ for(;;){
@@ -25666,7 +26443,8 @@
        /*<<hashtbl.ml:536:6>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
      var k = param[1], data = param[2], next = param[3];
-      /*<<hashtbl.ml:538:9>>*/ if(0 === caml_compare(key, k))
+      /*<<hashtbl.ml:538:22>>*/ if
+      (0 ===  /*<<hashtbl.ml:538:9>>*/ caml_compare(key, k))
        /*<<hashtbl.ml:538:32>>*/ return data;
      param = next;
     }
@@ -25675,23 +26453,29 @@
     var
      _p_ =  /*<<hashtbl.ml:561:16>>*/ key_index(h, key),
      match =  /*<<hashtbl.ml:561:8>>*/ caml_check_bound(h[2], _p_)[1 + _p_];
-    if(! match)  /*<<hashtbl.ml:562:13>>*/ return 0;
+     /*<<hashtbl.ml:561:32>>*/ if(! match)
+      /*<<hashtbl.ml:562:13>>*/ return 0;
     var k1 = match[1], d1 = match[2], next1 = match[3];
-     /*<<hashtbl.ml:564:9>>*/ if(0 === caml_compare(key, k1))
+     /*<<hashtbl.ml:564:23>>*/ if
+     (0 ===  /*<<hashtbl.ml:564:9>>*/ caml_compare(key, k1))
       /*<<hashtbl.ml:564:33>>*/ return [0, d1];
-    if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
+     /*<<hashtbl.ml:565:6>>*/ if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
-     /*<<hashtbl.ml:568:13>>*/ if(0 === caml_compare(key, k2))
+     /*<<hashtbl.ml:568:27>>*/ if
+     (0 ===  /*<<hashtbl.ml:568:13>>*/ caml_compare(key, k2))
       /*<<hashtbl.ml:568:37>>*/ return [0, d2];
-    if(! next2)  /*<<hashtbl.ml:570:21>>*/ return 0;
+     /*<<hashtbl.ml:569:10>>*/ if(! next2)
+      /*<<hashtbl.ml:570:21>>*/ return 0;
     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
-     /*<<hashtbl.ml:572:17>>*/ if(0 === caml_compare(key, k3))
+     /*<<hashtbl.ml:572:31>>*/ if
+     (0 ===  /*<<hashtbl.ml:572:17>>*/ caml_compare(key, k3))
       /*<<hashtbl.ml:572:41>>*/ return [0, d3];
     var param = next3;
      /*<<hashtbl.ml:554:21>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
-      /*<<hashtbl.ml:558:9>>*/ if(0 === caml_compare(key, k))
+      /*<<hashtbl.ml:558:22>>*/ if
+      (0 ===  /*<<hashtbl.ml:558:9>>*/ caml_compare(key, k))
        /*<<hashtbl.ml:558:32>>*/ return [0, data];
      param = next;
     }
@@ -25699,11 +26483,13 @@
    function find_all(h, key){
     var
      _o_ =  /*<<hashtbl.ml:582:25>>*/ key_index(h, key),
-     param = caml_check_bound(h[2], _o_)[1 + _o_];
+     param =  /*<<hashtbl.ml:582:17>>*/ caml_check_bound(h[2], _o_)[1 + _o_];
      /*<<hashtbl.ml:575:43>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
      var k = param[1], data = param[2], next = param[3];
-      /*<<hashtbl.ml:579:9>>*/ if(0 === caml_compare(k, key)) break;
+      /*<<hashtbl.ml:579:22>>*/ if
+      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k, key))
+      break;
      param = next;
     }
     var
@@ -25713,11 +26499,12 @@
      param$0 = next;
      /*<<hashtbl.ml:575:43>>*/ for(;;){
      if(! param$0){
-      dst[1 + offset] = 0;
-       /*<<hashtbl.ml:580:19>>*/ return block;
+       /*<<hashtbl.ml:577:6>>*/ dst[1 + offset] = 0;
+       /*<<hashtbl.ml:580:38>>*/ return block;
      }
      var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
-      /*<<hashtbl.ml:579:9>>*/ if(0 === caml_compare(k$0, key)){
+      /*<<hashtbl.ml:579:22>>*/ if
+      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
       var dst$0 =  /*<<hashtbl.ml:580:11>>*/ [0, data$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -25736,17 +26523,18 @@
      /*<<hashtbl.ml:584:23>>*/ for(;;){
      if(slot){
       var k = slot[1], next = slot[3];
-       /*<<hashtbl.ml:588:9>>*/ if(0 !== caml_compare(k, key)){slot = next; continue;}
-      slot[1] = key;
-      slot[2] = data;
+       /*<<hashtbl.ml:588:22>>*/ if
+       (0 !==  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key)){slot = next; continue;}
+       /*<<hashtbl.ml:589:11>>*/ slot[1] = key;
+       /*<<hashtbl.ml:589:29>>*/ slot[2] = data;
       var _l_ = 0;
      }
      else
       var _l_ = 1;
-      /*<<hashtbl.ml:595:5>>*/ if(_l_){
+      /*<<hashtbl.ml:595:30>>*/ if(_l_){
        /*<<hashtbl.ml:596:4>>*/ caml_check_bound(h[2], i)[1 + i] = [0, key, data, l];
-      h[1] = h[1] + 1 | 0;
-      var _m_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
+       /*<<hashtbl.ml:596:41>>*/ h[1] = h[1] + 1 | 0;
+      var _m_ =  /*<<hashtbl.ml:598:4>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
       if(_m_)
         /*<<hashtbl.ml:598:47>>*/ return resize(key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
       var _n_ = _m_;
@@ -25759,14 +26547,18 @@
    function mem(h, key){
     var
      _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
-     param = caml_check_bound(h[2], _k_)[1 + _k_];
+     param =  /*<<hashtbl.ml:608:20>>*/ caml_check_bound(h[2], _k_)[1 + _k_];
      /*<<hashtbl.ml:601:22>>*/ for(;;){
      if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0;
      var
       k = param[1],
       next = param[3],
-      _j_ = 0 ===  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key) ? 1 : 0;
-     if(_j_) return _j_;
+      _j_ =
+         /*<<hashtbl.ml:605:19>>*/ 0
+         ===  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key)
+         ? 1
+         : 0;
+      /*<<hashtbl.ml:605:19>>*/ if(_j_) return _j_;
      param = next;
     }
     /*<<hashtbl.ml:608:44>>*/ }
@@ -25774,7 +26566,7 @@
      /*<<hashtbl.ml:611:2>>*/ return caml_call2
             (Stdlib_Seq[4],
              function(param){
-              var v = param[2], k = param[1];
+              var v =  /*<<hashtbl.ml:611:11>>*/ param[2], k = param[1];
                /*<<hashtbl.ml:611:25>>*/ return add(tbl, k, v) /*<<hashtbl.ml:611:37>>*/ ;
              },
              i) /*<<hashtbl.ml:611:39>>*/ ;
@@ -25783,7 +26575,7 @@
      /*<<hashtbl.ml:614:2>>*/ return caml_call2
             (Stdlib_Seq[4],
              function(param){
-              var v = param[2], k = param[1];
+              var v =  /*<<hashtbl.ml:614:11>>*/ param[2], k = param[1];
                /*<<hashtbl.ml:614:25>>*/ return replace(tbl, k, v) /*<<hashtbl.ml:614:41>>*/ ;
              },
              i) /*<<hashtbl.ml:614:43>>*/ ;
@@ -25791,12 +26583,12 @@
    function of_seq(i){
     var tbl =  /*<<hashtbl.ml:617:12>>*/ create(0, 16);
      /*<<hashtbl.ml:618:2>>*/ replace_seq(tbl, i);
-    return tbl;
+     /*<<hashtbl.ml:618:19>>*/ return tbl;
     /*<<hashtbl.ml:619:5>>*/ }
    function rebuild(opt, h){
     var
      random =
-       opt
+        /*<<hashtbl.ml:621:12>>*/ opt
         ? opt[1]
         :  /*<<hashtbl.ml:621:23>>*/ caml_call1(Stdlib_Atomic[3], randomized),
      s =  /*<<hashtbl.ml:622:10>>*/ power_2_above(16, h[2].length - 1);
@@ -25806,22 +26598,22 @@
          /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[10][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;
+     var seed =  /*<<hashtbl.ml:625:9>>*/ 4 <= h.length - 1 ? h[3] : 0;
     var
-     _h_ = 4 <= h.length - 1 ? h[4] : s,
+     _h_ =  /*<<hashtbl.ml:627:2>>*/ 4 <= h.length - 1 ? h[4] : s,
      h$0 =
-        /*<<hashtbl.ml:627:11>>*/ [0,
+        /*<<hashtbl.ml:629:29>>*/ [0,
         h[1],
          /*<<hashtbl.ml:629:11>>*/ caml_make_vect(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;
+     /*<<hashtbl.ml:633:56>>*/ return h$0;
     /*<<hashtbl.ml:634:4>>*/ }
    var
     Stdlib_Hashtbl =
-      [0,
+       /*<<hashtbl.ml:60:61>>*/ [0,
        create,
        clear,
        reset,
@@ -25911,39 +26703,44 @@
     cst_Weak_Make_hash_bucket_cann = "Weak.Make: hash bucket cannot grow more";
    function create(l){
     var
-     _J_ = 0 <= l ? 1 : 0,
+     _J_ =  /*<<weak.ml:28:2>>*/ 0 <= l ? 1 : 0,
      _K_ = _J_ ? l <= Stdlib_Obj[23][15] ? 1 : 0 : _J_;
     if(1 - _K_)  /*<<weak.ml:29:4>>*/ caml_call1(Stdlib[1], cst_Weak_create);
-     /*<<weak.ml:30:2>>*/ return runtime.caml_weak_create(l) /*<<weak.ml:30:10>>*/ ;
+     /*<<weak.ml:30:10>>*/ return  /*<<weak.ml:30:2>>*/ runtime.caml_weak_create
+            (l) /*<<weak.ml:30:10>>*/ ;
    }
    function length(x){
      /*<<weak.ml:33:15>>*/ return x.length - 3 | 0;
     /*<<weak.ml:33:55>>*/ }
    function raise_if_invalid_offset(e, o, msg){
     var
-     _G_ = 0 <= o ? 1 : 0,
+     _G_ =  /*<<weak.ml:36:2>>*/ 0 <= o ? 1 : 0,
      _H_ = _G_ ? o <  /*<<weak.ml:36:24>>*/ length(e) ? 1 : 0 : _G_,
      _I_ = 1 - _H_;
     return _I_ ?  /*<<weak.ml:37:4>>*/ caml_call1(Stdlib[1], msg) : _I_ /*<<weak.ml:37:20>>*/ ;
    }
    function set(e, o, x){
      /*<<weak.ml:42:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_set);
-    if(! x)
-      /*<<weak.ml:44:12>>*/ return runtime.caml_ephe_unset_key(e, o) /*<<weak.ml:45:24>>*/ ;
+     /*<<weak.ml:42:40>>*/ if(! x)
+      /*<<weak.ml:44:21>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
+             (e, o) /*<<weak.ml:45:24>>*/ ;
     var x$0 = x[1];
-     /*<<weak.ml:45:14>>*/ return runtime.caml_ephe_set_key(e, o, x$0) /*<<weak.ml:45:24>>*/ ;
+    return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key(e, o, x$0) /*<<weak.ml:45:24>>*/ ;
    }
    function get(e, o){
      /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
-     /*<<weak.ml:50:2>>*/ return runtime.caml_ephe_get_key(e, o) /*<<weak.ml:50:9>>*/ ;
+     /*<<weak.ml:50:9>>*/ return  /*<<weak.ml:50:2>>*/ runtime.caml_ephe_get_key
+            (e, o) /*<<weak.ml:50:9>>*/ ;
    }
    function get_copy(e, o){
      /*<<weak.ml:54:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get_copy);
-     /*<<weak.ml:55:2>>*/ return runtime.caml_ephe_get_key_copy(e, o) /*<<weak.ml:55:14>>*/ ;
+     /*<<weak.ml:55:14>>*/ return  /*<<weak.ml:55:2>>*/ runtime.caml_ephe_get_key_copy
+            (e, o) /*<<weak.ml:55:14>>*/ ;
    }
    function check(e, o){
      /*<<weak.ml:59:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_check);
-     /*<<weak.ml:60:2>>*/ return runtime.caml_ephe_check_key(e, o) /*<<weak.ml:60:11>>*/ ;
+     /*<<weak.ml:60:11>>*/ return  /*<<weak.ml:60:2>>*/ runtime.caml_ephe_check_key
+            (e, o) /*<<weak.ml:60:11>>*/ ;
    }
    function blit(e1, o1, e2, o2, l){
      /*<<weak.ml:66:2>>*/ if
@@ -25954,7 +26751,7 @@
         ( /*<<weak.ml:66:29>>*/ length(e1) - l | 0) >= o1
         && 0 <= o2 && ( /*<<weak.ml:67:23>>*/ length(e2) - l | 0) >= o2){
      var
-      _E_ = 0 !== l ? 1 : 0,
+      _E_ =  /*<<weak.ml:69:7>>*/ 0 !== l ? 1 : 0,
       _F_ =
         _E_
          ?  /*<<weak.ml:69:22>>*/ runtime.caml_ephe_blit_key
@@ -25968,12 +26765,12 @@
      /*<<weak.ml:72:2>>*/ if
      (0 <= ofs
       && 0 <= len && ( /*<<weak.ml:72:33>>*/ length(ar) - len | 0) >= ofs){
-     var _C_ = (ofs + len | 0) - 1 | 0;
+     var _C_ =  /*<<weak.ml:74:7>>*/ (ofs + len | 0) - 1 | 0;
      if(_C_ >= ofs){
       var i = ofs;
       for(;;){
         /*<<weak.ml:76:6>>*/ set(ar, i, x);
-       var _D_ = i + 1 | 0;
+       var _D_ =  /*<<weak.ml:76:16>>*/ i + 1 | 0;
        if(_C_ === i) break;
        i = _D_;
       }
@@ -25988,75 +26785,80 @@
     function get_index(t, h){
       /*<<weak.ml:117:22>>*/ return caml_mod(h & Stdlib[19], t[1].length - 1) /*<<weak.ml:117:65>>*/ ;
     }
-    var limit =  /*<<weak.ml:117:16>>*/ 7;
+    var limit =  /*<<weak.ml:105:33>>*/ 7;
     function create$0(sz){
      var
-      sz$0 = 7 <= sz ? sz : 7,
-      sz$1 = Stdlib_Sys[13] < sz$0 ? Stdlib_Sys[13] : sz$0;
-      /*<<weak.ml:125:4>>*/ return [0,
+      sz$0 =  /*<<weak.ml:123:4>>*/ 7 <= sz ? sz : 7,
+      sz$1 =
+         /*<<weak.ml:124:4>>*/ Stdlib_Sys[13] < sz$0 ? Stdlib_Sys[13] : sz$0;
+      /*<<weak.ml:126:39>>*/ return [0,
               /*<<weak.ml:126:14>>*/ caml_make_vect(sz$1, emptybucket),
               /*<<weak.ml:127:15>>*/ caml_make_vect(sz$1, [0]),
              limit,
              0,
-             0] /*<<weak.ml:125:4>>*/ ;
+             0] /*<<weak.ml:126:39>>*/ ;
      /*<<weak.ml:131:5>>*/ }
     function clear(t){
-     var _A_ = t[1].length - 2 | 0, _z_ =  /*<<weak.ml:134:4>>*/ 0;
+     var _A_ =  /*<<weak.ml:134:4>>*/ t[1].length - 2 | 0, _z_ = 0;
      if(_A_ >= 0){
       var i = _z_;
       for(;;){
         /*<<weak.ml:135:6>>*/ caml_check_bound(t[1], i)[1 + i] = emptybucket;
         /*<<weak.ml:136:6>>*/ caml_check_bound(t[2], i)[1 + i] = [0];
-       var _B_ = i + 1 | 0;
+       var _B_ =  /*<<weak.ml:136:27>>*/ i + 1 | 0;
        if(_A_ === i) break;
        i = _B_;
       }
      }
-     t[3] = limit;
-     t[4] = 0;
+      /*<<weak.ml:138:4>>*/ t[3] = limit;
+      /*<<weak.ml:139:4>>*/ t[4] = 0;
      return 0;
      /*<<weak.ml:139:19>>*/ }
     function fold(f, t, init){
-     var i = 0;
-      /*<<weak.ml:149:4>>*/ return caml_call3
+     var i =  /*<<weak.ml:149:4>>*/ 0;
+      /*<<weak.ml:149:36>>*/ return caml_call3
              (Stdlib_Array[20],
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
                 /*<<weak.ml:144:6>>*/ for(;;){
-                if( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
+                 /*<<weak.ml:144:22>>*/ if
+                 ( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
                   /*<<weak.ml:144:28>>*/ return accu;
                 var match =  /*<<weak.ml:145:12>>*/ get(b, i$0);
-                if(match){
+                 /*<<weak.ml:145:19>>*/ if(match){
                  var
                   v = match[1],
                   accu$0 =  /*<<weak.ml:146:38>>*/ caml_call2(f, v, accu),
-                  i$1 = i$0 + 1 | 0;
+                  i$1 =  /*<<weak.ml:146:48>>*/ i$0 + 1 | 0;
                  i$0 = i$1;
                  accu = accu$0;
                 }
-                else{var i$2 = i$0 + 1 | 0; i$0 = i$2;}
+                else{var i$2 =  /*<<weak.ml:147:16>>*/ i$0 + 1 | 0; i$0 = i$2;
+                }
                }
               },
               t[1],
               init) /*<<weak.ml:149:49>>*/ ;
     }
     function iter(f, t){
-     var i = 0;
-      /*<<weak.ml:159:15>>*/ return caml_call2
+     var i =  /*<<weak.ml:159:4>>*/ 0;
+      /*<<weak.ml:159:30>>*/ return caml_call2
              (Stdlib_Array[12],
               function(b){
                var i$0 = i;
                 /*<<weak.ml:154:6>>*/ for(;;){
-                if( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
+                 /*<<weak.ml:154:22>>*/ if
+                 ( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
                   /*<<weak.ml:154:28>>*/ return 0;
                 var match =  /*<<weak.ml:155:12>>*/ get(b, i$0);
-                if(match){
+                 /*<<weak.ml:155:19>>*/ if(match){
                  var v = match[1];
                   /*<<weak.ml:156:18>>*/ caml_call1(f, v);
-                 var i$1 = i$0 + 1 | 0;
+                 var i$1 =  /*<<weak.ml:156:21>>*/ i$0 + 1 | 0;
                  i$0 = i$1;
                 }
-                else{var i$2 = i$0 + 1 | 0; i$0 = i$2;}
+                else{var i$2 =  /*<<weak.ml:157:16>>*/ i$0 + 1 | 0; i$0 = i$2;
+                }
                }
               },
               t[1]) /*<<weak.ml:159:38>>*/ ;
@@ -26064,10 +26866,11 @@
     function count_bucket(i, b, accu){
      var i$0 = i, accu$0 = accu;
       /*<<weak.ml:173:4>>*/ for(;;){
-      if( /*<<weak.ml:173:12>>*/ length(b) <= i$0)
+       /*<<weak.ml:173:20>>*/ if( /*<<weak.ml:173:12>>*/ length(b) <= i$0)
         /*<<weak.ml:173:26>>*/ return accu$0;
       var
-       _y_ =  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
+       _y_ =
+          /*<<weak.ml:174:46>>*/  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
        accu$1 = accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -26075,8 +26878,8 @@
      }
      /*<<weak.ml:174:62>>*/ }
     function count(t){
-     var _v_ = 0;
-      /*<<weak.ml:178:4>>*/ return caml_call3
+     var _v_ =  /*<<weak.ml:178:4>>*/ 0;
+      /*<<weak.ml:178:37>>*/ return caml_call3
              (Stdlib_Array[20],
               function(_w_, _x_){
                 /*<<?>>*/ return count_bucket(_v_, _w_, _x_);
@@ -26094,10 +26897,11 @@
       i$3 = 0;
       /*<<weak.ml:242:6>>*/ for(;;){
       if(sz <= i$3) break;
-       /*<<weak.ml:260:18>>*/ if(! check(bucket$0, i$3)){
+       /*<<weak.ml:260:32>>*/ if
+       (!  /*<<weak.ml:260:18>>*/ check(bucket$0, i$3)){
         /*<<weak.ml:263:8>>*/ caml_call3(setter, bucket$0, i$3, d);
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
-       return 0;
+        /*<<weak.ml:264:23>>*/ return 0;
       }
       var i$5 =  /*<<weak.ml:260:38>>*/ i$3 + 1 | 0;
       i$3 = i$5;
@@ -26108,7 +26912,7 @@
          (Stdlib_Int[10],
           ((3 * sz | 0) / 2 | 0) + 3 | 0,
           Stdlib_Sys[13] - 2 | 0);
-     if(newsz <= sz)
+      /*<<weak.ml:246:8>>*/ if(newsz <= sz)
        /*<<weak.ml:246:28>>*/ caml_call1
        (Stdlib[2], cst_Weak_Make_hash_bucket_cann);
      var
@@ -26121,28 +26925,34 @@
       /*<<weak.ml:252:8>>*/ caml_check_bound(newhashes, sz)[1 + sz] = h;
       /*<<weak.ml:253:8>>*/ caml_check_bound(t[1], index)[1 + index] = newbucket$0;
       /*<<weak.ml:254:8>>*/ caml_check_bound(t[2], index)[1 + index] = newhashes;
-     var _r_ = sz <= t[3] ? 1 : 0, _s_ = _r_ ? t[3] < newsz ? 1 : 0 : _r_;
+     var
+      _r_ =  /*<<weak.ml:254:37>>*/ sz <= t[3] ? 1 : 0,
+      _s_ = _r_ ? t[3] < newsz ? 1 : 0 : _r_;
      if(_s_){
-      t[4] = t[4] + 1 | 0;
+       /*<<weak.ml:255:49>>*/ t[4] = t[4] + 1 | 0;
       var i$4 = 0;
       for(;;){
        var
-        _h_ = t[5],
+        _h_ =  /*<<weak.ml:185:4>>*/ t[5],
         bucket =  /*<<weak.ml:185:17>>*/ caml_check_bound(t[1], _h_)[1 + _h_],
         _i_ =  /*<<weak.ml:186:4>>*/ t[5],
         hbucket =  /*<<weak.ml:186:18>>*/ caml_check_bound(t[2], _i_)[1 + _i_],
         len =  /*<<weak.ml:187:14>>*/ length(bucket),
-        prev_len = (((len - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0,
+        prev_len =
+           /*<<weak.ml:182:18>>*/ (((len - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0,
         live =  /*<<weak.ml:189:15>>*/ count_bucket(0, bucket, 0);
-       if(live <= prev_len){
+        /*<<weak.ml:190:4>>*/ if(live <= prev_len){
         var
-         j$2 =  /*<<weak.ml:201:14>>*/ length(bucket) - 1 | 0,
+         j$2 =
+            /*<<weak.ml:201:27>>*/  /*<<weak.ml:201:14>>*/ length(bucket) - 1
+           | 0,
          i$0 = 0,
          j = j$2;
          /*<<weak.ml:192:8>>*/ for(;;){
          if(prev_len > j) break;
-          /*<<weak.ml:193:13>>*/ if(check(bucket, i$0)){
-          var i$1 = i$0 + 1 | 0;
+          /*<<weak.ml:193:27>>*/ if
+          ( /*<<weak.ml:193:13>>*/ check(bucket, i$0)){
+          var i$1 =  /*<<weak.ml:193:33>>*/ i$0 + 1 | 0;
           i$0 = i$1;
          }
          else if( /*<<weak.ml:194:18>>*/ check(bucket, j)){
@@ -26150,90 +26960,93 @@
           var
            _j_ =  /*<<weak.ml:196:27>>*/ caml_check_bound(hbucket, j)[1 + j];
            /*<<weak.ml:196:12>>*/ caml_check_bound(hbucket, i$0)[1 + i$0] = _j_;
-          var j$0 = j - 1 | 0, i$2 = i$0 + 1 | 0;
+          var j$0 =  /*<<weak.ml:196:38>>*/ j - 1 | 0, i$2 = i$0 + 1 | 0;
           i$0 = i$2;
           j = j$0;
          }
          else{var j$1 =  /*<<weak.ml:198:19>>*/ j - 1 | 0; j = j$1;}
         }
-        if(0 === prev_len){
-         var _k_ = t[5];
+         /*<<weak.ml:201:32>>*/ if(0 === prev_len){
+         var _k_ =  /*<<weak.ml:202:27>>*/ t[5];
           /*<<weak.ml:203:8>>*/ caml_check_bound(t[1], _k_)[1 + _k_] = emptybucket;
-         var _l_ = t[5];
+         var _l_ =  /*<<weak.ml:203:40>>*/ t[5];
           /*<<weak.ml:204:8>>*/ caml_check_bound(t[2], _l_)[1 + _l_] = [0];
         }
         else{
          var newbucket =  /*<<weak.ml:206:24>>*/ create(prev_len);
           /*<<weak.ml:207:8>>*/ blit(bucket, 0, newbucket, 0, prev_len);
-         var _o_ = t[5];
+         var _o_ =  /*<<weak.ml:207:42>>*/ t[5];
           /*<<weak.ml:208:8>>*/ caml_check_bound(t[1], _o_)[1 + _o_] = newbucket;
          var
           _p_ =
              /*<<weak.ml:209:30>>*/ caml_call3
              (Stdlib_Array[6], hbucket, 0, prev_len),
-          _q_ = t[5];
+          _q_ =  /*<<weak.ml:209:58>>*/ t[5];
           /*<<weak.ml:209:8>>*/ caml_check_bound(t[2], _q_)[1 + _q_] = _p_;
         }
         var
-         _m_ = t[3] < len ? 1 : 0,
+         _m_ =  /*<<weak.ml:211:6>>*/ t[3] < len ? 1 : 0,
          _n_ = _m_ ? prev_len <= t[3] ? 1 : 0 : _m_;
-        if(_n_) t[4] = t[4] - 1 | 0;
+        if(_n_)  /*<<weak.ml:211:51>>*/ t[4] = t[4] - 1 | 0;
        }
-       t[5] = caml_mod(t[5] + 1 | 0, t[1].length - 1);
-       var _u_ =  /*<<weak.ml:257:38>>*/ i$4 + 1 | 0;
+        /*<<weak.ml:213:4>>*/ t[5] = caml_mod(t[5] + 1 | 0, t[1].length - 1);
+       var _u_ =  /*<<weak.ml:257:58>>*/ i$4 + 1 | 0;
        if(2 === i$4) break;
        i$4 = _u_;
       }
      }
-     var _t_ = ((t[1].length - 1) / 2 | 0) < t[4] ? 1 : 0;
+     var
+      _t_ =  /*<<weak.ml:259:8>>*/ ((t[1].length - 1) / 2 | 0) < t[4] ? 1 : 0;
      if(! _t_) return _t_;
      var
-      oldlen = t[1].length - 1,
+      oldlen =  /*<<weak.ml:217:4>>*/ t[1].length - 1,
       newlen =
          /*<<weak.ml:181:18>>*/ caml_call2
          (Stdlib_Int[10], ((3 * oldlen | 0) / 2 | 0) + 3 | 0, Stdlib_Sys[13]);
-     if(oldlen < newlen){
-      var newt =  /*<<weak.ml:220:17>>*/ create$0(newlen), i = 0;
-       /*<<weak.ml:169:16>>*/ caml_call2
+      /*<<weak.ml:219:4>>*/ if(oldlen < newlen){
+      var
+       newt =  /*<<weak.ml:220:17>>*/ create$0(newlen),
+       i =  /*<<weak.ml:169:4>>*/ 0;
+       /*<<weak.ml:169:31>>*/ caml_call2
        (Stdlib_Array[13],
         function(j, ob){
          var oi = i;
           /*<<weak.ml:164:6>>*/ for(;;){
-          if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
+           /*<<weak.ml:164:22>>*/ if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
             /*<<weak.ml:164:28>>*/ return 0;
-          if( /*<<weak.ml:165:12>>*/ check(ob, oi)){
+           /*<<weak.ml:165:21>>*/ if( /*<<weak.ml:165:12>>*/ check(ob, oi)){
            var oh =  /*<<weak.ml:166:20>>*/ caml_check_bound(t[2], j)[1 + j];
            let oi$0 = oi;
            var
             setter =
-              function(nb, ni, param){
+               /*<<weak.ml:222:8>>*/ function(nb, ni, param){
                 /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
               },
             h =  /*<<weak.ml:223:16>>*/ caml_check_bound(oh, oi)[1 + oi];
-            /*<<weak.ml:224:35>>*/ add_aux
-            (newt, setter, 0, h, get_index(newt, h));
-           var i$0 = oi + 1 | 0;
+            /*<<weak.ml:224:53>>*/ add_aux
+            (newt, setter, 0, h,  /*<<weak.ml:224:35>>*/ get_index(newt, h));
+           var i$0 =  /*<<weak.ml:166:34>>*/ oi + 1 | 0;
            oi = i$0;
           }
-          else{var i$1 = oi + 1 | 0; oi = i$1;}
+          else{var i$1 =  /*<<weak.ml:167:17>>*/ oi + 1 | 0; oi = i$1;}
          }
         },
         t[1]);
-      t[1] = newt[1];
-      t[2] = newt[2];
-      t[3] = newt[3];
-      t[4] = newt[4];
-      t[5] = caml_mod(t[5], newt[1].length - 1);
+       /*<<weak.ml:226:26>>*/ t[1] = newt[1];
+       /*<<weak.ml:228:6>>*/ t[2] = newt[2];
+       /*<<weak.ml:229:6>>*/ t[3] = newt[3];
+       /*<<weak.ml:230:6>>*/ t[4] = newt[4];
+       /*<<weak.ml:231:6>>*/ t[5] = caml_mod(t[5], newt[1].length - 1);
       return 0;
      }
-     t[3] = Stdlib[19];
-     t[4] = 0;
+      /*<<weak.ml:232:13>>*/ t[3] = Stdlib[19];
+      /*<<weak.ml:234:6>>*/ t[4] = 0;
      return 0;
      /*<<weak.ml:267:10>>*/ }
     function add(t, d){
      var h =  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
-      /*<<weak.ml:272:29>>*/ return add_aux
-             (t, set, [0, d], h, get_index(t, h)) /*<<weak.ml:272:44>>*/ ;
+      /*<<weak.ml:272:44>>*/ return add_aux
+             (t, set, [0, d], h,  /*<<weak.ml:272:29>>*/ get_index(t, h)) /*<<weak.ml:272:44>>*/ ;
     }
     function find_aux(t, d, found, notfound){
      var
@@ -26247,12 +27060,14 @@
       i = 0;
       /*<<weak.ml:284:6>>*/ for(;;){
       if(sz <= i)
-        /*<<weak.ml:279:16>>*/ return caml_call2(notfound, h, index) /*<<weak.ml:291:10>>*/ ;
-      if(h === caml_check_bound(hashes, i)[1 + i]){
+        /*<<weak.ml:284:22>>*/ return caml_call2(notfound, h, index) /*<<weak.ml:291:10>>*/ ;
+       /*<<weak.ml:285:28>>*/ if
+       (h ===  /*<<weak.ml:285:18>>*/ caml_check_bound(hashes, i)[1 + i]){
        var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
-       if(opt){
+        /*<<weak.ml:286:26>>*/ if(opt){
         var v = opt[1];
-         /*<<weak.ml:287:29>>*/ if(caml_call2(H[1], v, d))
+         /*<<weak.ml:287:40>>*/ if
+         ( /*<<weak.ml:287:29>>*/ caml_call2(H[1], v, d))
           /*<<weak.ml:287:44>>*/ return caml_call4(found, bucket, i, opt, v) /*<<weak.ml:291:10>>*/ ;
        }
        var i$0 =  /*<<weak.ml:288:15>>*/ i + 1 | 0;
@@ -26262,7 +27077,7 @@
      }
      /*<<weak.ml:291:10>>*/ }
     function find_opt(t, d){
-      /*<<weak.ml:293:21>>*/ return  /*<<weak.ml:294:34>>*/ find_aux
+      /*<<weak.ml:293:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
@@ -26273,7 +27088,7 @@
                /*<<weak.ml:294:52>>*/ }) /*<<weak.ml:294:53>>*/ ;
     }
     function merge(t, d){
-      /*<<weak.ml:296:21>>*/ return  /*<<weak.ml:297:34>>*/ find_aux
+      /*<<weak.ml:296:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
@@ -26281,11 +27096,11 @@
                /*<<weak.ml:296:55>>*/ },
               function(h, i){
                 /*<<weak.ml:298:40>>*/ add_aux(t, set, [0, d], h, i);
-                /*<<weak.ml:296:21>>*/ return d;
+                /*<<weak.ml:298:66>>*/ return d;
                /*<<weak.ml:298:69>>*/ }) /*<<weak.ml:298:70>>*/ ;
     }
     function find(t, d){
-      /*<<weak.ml:300:21>>*/ return  /*<<weak.ml:301:34>>*/ find_aux
+      /*<<weak.ml:300:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
@@ -26297,7 +27112,7 @@
                /*<<weak.ml:301:63>>*/ }) /*<<weak.ml:301:64>>*/ ;
     }
     function remove(t, d){
-      /*<<weak.ml:303:21>>*/ return  /*<<weak.ml:304:34>>*/ find_aux
+      /*<<weak.ml:303:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
@@ -26308,7 +27123,7 @@
                /*<<weak.ml:304:50>>*/ }) /*<<weak.ml:304:51>>*/ ;
     }
     function mem(t, d){
-      /*<<weak.ml:306:21>>*/ return  /*<<weak.ml:307:34>>*/ find_aux
+      /*<<weak.ml:306:21>>*/ return find_aux
              (t,
               d,
               function(b, i, o, v){
@@ -26331,26 +27146,28 @@
       accu = 0;
       /*<<weak.ml:316:6>>*/ for(;;){
       if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
-      if(h === caml_check_bound(hashes, i)[1 + i]){
+       /*<<weak.ml:317:28>>*/ if
+       (h ===  /*<<weak.ml:317:18>>*/ caml_check_bound(hashes, i)[1 + i]){
        var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
-       if(match){
+        /*<<weak.ml:318:26>>*/ if(match){
         var v = match[1];
-         /*<<weak.ml:319:22>>*/ if(caml_call2(H[1], v, d)){
-         var accu$0 =  /*<<weak.ml:319:50>>*/ [0, v, accu], i$0 = i + 1 | 0;
+         /*<<weak.ml:319:33>>*/ if
+         ( /*<<weak.ml:319:22>>*/ caml_call2(H[1], v, d)){
+         var accu$0 =  /*<<weak.ml:319:37>>*/ [0, v, accu], i$0 = i + 1 | 0;
          i = i$0;
          accu = accu$0;
          continue;
         }
        }
-       var i$1 = i + 1 | 0;
+       var i$1 =  /*<<weak.ml:320:15>>*/ i + 1 | 0;
        i = i$1;
       }
-      else{var i$2 = i + 1 | 0; i = i$2;}
+      else{var i$2 =  /*<<weak.ml:321:15>>*/ i + 1 | 0; i = i$2;}
      }
      /*<<weak.ml:323:13>>*/ }
     function stats(t){
      var
-      len = t[1].length - 1,
+      len =  /*<<weak.ml:326:4>>*/ t[1].length - 1,
       lens =
          /*<<weak.ml:327:15>>*/ caml_call2(Stdlib_Array[14], length, t[1]);
       /*<<weak.ml:328:4>>*/ caml_call2
@@ -26362,20 +27179,20 @@
           function(_g_, _f_){ /*<<?>>*/ return _g_ + _f_ | 0;},
           0,
           lens),
-      _a_ =  /*<<weak.ml:329:17>>*/ len - 1 | 0,
-      _c_ = len / 2 | 0,
+      _a_ =  /*<<weak.ml:330:4>>*/ len - 1 | 0,
+      _c_ =  /*<<weak.ml:330:63>>*/ len / 2 | 0,
       _b_ =  /*<<weak.ml:330:51>>*/ caml_check_bound(lens, _a_)[1 + _a_],
       _d_ =  /*<<weak.ml:330:37>>*/ caml_check_bound(lens, _c_)[1 + _c_],
       _e_ =  /*<<weak.ml:330:27>>*/ caml_check_bound(lens, 0)[1];
-      /*<<weak.ml:330:4>>*/ return [0,
+      /*<<weak.ml:330:17>>*/ return [0,
              len,
               /*<<weak.ml:330:10>>*/ count(t),
              totlen,
              _e_,
              _d_,
-             _b_] /*<<weak.ml:330:4>>*/ ;
+             _b_] /*<<weak.ml:330:17>>*/ ;
      /*<<weak.ml:330:64>>*/ }
-     /*<<weak.ml:101:66>>*/ return [0,
+     /*<<weak.ml:105:33>>*/ return [0,
             create$0,
             clear,
             merge,
@@ -26466,15 +27283,14 @@
     zero = 0,
     unknown = -1,
     String_tag =
-       /*<<format.ml:91:13>>*/ [248,
-       "Stdlib.Format.String_tag",
-       runtime.caml_fresh_oo_id(0)];
+      [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;
-    return caml_call2(Stdlib_Queue[3], token, state[28]) /*<<format.ml:220:32>>*/ ;
+     /*<<format.ml:220:2>>*/ return caml_call2
+            (Stdlib_Queue[3], token, state[28]) /*<<format.ml:220:32>>*/ ;
    }
    var
-    pp_infinity =  /*<<format.ml:223:19>>*/ 1000000010,
+    pp_infinity = 1000000010,
     _b_ = [0, cst$16],
     _c_ = [1, "margin <= max_indent"],
     _d_ = [1, "margin >= pp_infinity"],
@@ -26491,36 +27307,42 @@
    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);
-    state[11] = 0;
+     /*<<format.ml:259:29>>*/ state[11] = 0;
     /*<<format.ml:260:31>>*/ }
    function format_string(state, s){
     var _a__ =  /*<<format.ml:264:5>>*/ s !== cst$16 ? 1 : 0;
-    return _a__
+     /*<<format.ml:264:12>>*/ return _a__
             ?  /*<<format.ml:264:18>>*/ format_pp_text
               (state, caml_ml_string_length(s), s)
             : _a__ /*<<format.ml:264:58>>*/ ;
    }
    function break_new_line(state, param, width){
-    var after = param[3], offset = param[2], before = param[1];
+    var
+     after =  /*<<format.ml:267:19>>*/ param[3],
+     offset = param[2],
+     before = param[1];
      /*<<format.ml:268:2>>*/ format_string(state, before);
      /*<<format.ml:269:2>>*/ pp_output_newline(state);
-    state[11] = 1;
+     /*<<format.ml:269:25>>*/ state[11] = 1;
     var
-     indent = (state[6] - width | 0) + offset | 0,
+     indent =  /*<<format.ml:271:2>>*/ (state[6] - width | 0) + offset | 0,
      real_indent =
         /*<<format.ml:273: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:274:2>>*/ state[10] = real_indent;
+     /*<<format.ml:275:2>>*/ state[9] = state[6] - state[10] | 0;
+    var n =  /*<<format.ml:276:2>>*/ state[10];
      /*<<format.ml:254:31>>*/ caml_call1(state[21], n);
-     /*<<format.ml:276:2>>*/ return format_string(state, after) /*<<format.ml:277:27>>*/ ;
+     /*<<format.ml:276:48>>*/ return format_string(state, after) /*<<format.ml:277:27>>*/ ;
    }
    function break_same_line(state, param){
-    var after = param[3], width = param[2], before = param[1];
+    var
+     after =  /*<<format.ml:284:20>>*/ param[3],
+     width = param[2],
+     before = param[1];
      /*<<format.ml:285:2>>*/ format_string(state, before);
-    state[9] = state[9] - width | 0;
+     /*<<format.ml:285:28>>*/ state[9] = state[9] - width | 0;
      /*<<format.ml:253:31>>*/ caml_call1(state[20], width);
-     /*<<format.ml:287:2>>*/ return format_string(state, after) /*<<format.ml:288:27>>*/ ;
+     /*<<format.ml:287:30>>*/ return format_string(state, after) /*<<format.ml:288:27>>*/ ;
    }
    function format_pp_token(state, size$0, param){
      /*<<format.ml:320:20>>*/ if(typeof param === "number")
@@ -26529,7 +27351,8 @@
         var
          match$3 =
             /*<<format.ml:348:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
-        if(! match$3)  /*<<format.ml:349:14>>*/ return;
+         /*<<format.ml:348:49>>*/ if(! match$3)
+          /*<<format.ml:349:14>>*/ return;
         var
          tabs = match$3[1][1],
          add_tab =
@@ -26537,43 +27360,50 @@
              /*<<format.ml:351:22>>*/ if(! ls)
               /*<<format.ml:352:16>>*/ return [0, n, 0];
             var l = ls[2], x = ls[1];
-             /*<<format.ml:353:29>>*/ return runtime.caml_lessthan(n, x)
+             /*<<format.ml:353:34>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
+                     (n, x)
                     ? [0, n, ls]
                     : [0, x,  /*<<format.ml:353:58>>*/ add_tab(n, l)] /*<<format.ml:353:69>>*/ ;
            };
-        tabs[1] =
+         /*<<format.ml:354:67>>*/ tabs[1] =
           /*<<format.ml:354:14>>*/ add_tab(state[6] - state[9] | 0, tabs[1]);
-        return;
+         /*<<format.ml:354:67>>*/ return;
        case 1:
          /*<<format.ml:339:4>>*/ caml_call1(Stdlib_Stack[5], state[2]);
-        return;
+         /*<<format.ml:339:39>>*/ return;
        case 2:
          /*<<format.ml:345:4>>*/ caml_call1(Stdlib_Stack[5], state[3]);
-        return;
+         /*<<format.ml:345:37>>*/ return;
        case 3:
         var
          match$4 =
             /*<<format.ml:378:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
-        if(! match$4)
+         /*<<format.ml:378:51>>*/ if(! match$4)
           /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:424:8>>*/ ;
         var width$0 = match$4[1][2];
          /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
        case 4:
-        var _a8_ = state[10] !== (state[6] - state[9] | 0) ? 1 : 0;
+        var
+         _a8_ =
+            /*<<format.ml:384:4>>*/ state[10] !== (state[6] - state[9] | 0)
+            ? 1
+            : 0;
         if(! _a8_) return _a8_;
         var
          match$1 =
             /*<<format.ml:306:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
-        if(! match$1)  /*<<format.ml:307:12>>*/ return;
+         /*<<format.ml:306:37>>*/ if(! match$1)
+          /*<<format.ml:307: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;
+         /*<<format.ml:309:4>>*/ state[12] = state[12] - length | 0;
+         /*<<format.ml:310:65>>*/ state[9] = state[9] + size | 0;
         return;
        default:
         var
          match$5 =
             /*<<format.ml:419:17>>*/ caml_call1(Stdlib_Stack[5], state[5]);
-        if(! match$5)  /*<<format.ml:420:15>>*/ return;
+         /*<<format.ml:419:50>>*/ if(! match$5)
+          /*<<format.ml:420:15>>*/ return;
         var
          tag_name = match$5[1],
          marker =  /*<<format.ml:422:20>>*/ caml_call1(state[25], tag_name);
@@ -26591,7 +27421,8 @@
         before = breaks[1],
         match$6 =
            /*<<format.ml:389:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
-       if(! match$6)  /*<<format.ml:390:14>>*/ return;
+        /*<<format.ml:389:51>>*/ if(! match$6)
+         /*<<format.ml:390:14>>*/ return;
        var
         match$7 = match$6[1],
         width$1 = match$7[2],
@@ -26606,16 +27437,20 @@
            /*<<format.ml:406:20>>*/ return break_new_line
                   (state, breaks, width$1) /*<<format.ml:424:8>>*/ ;
          case 3:
-          return state[9] < (size$0 + caml_ml_string_length(before) | 0)
+           /*<<format.ml:394:8>>*/ return state[9]
+                  < (size$0 + caml_ml_string_length(before) | 0)
                   ?  /*<<format.ml:395:13>>*/ break_new_line
                     (state, breaks, width$1)
                   :  /*<<format.ml:396:13>>*/ break_same_line(state, fits) /*<<format.ml:424:8>>*/ ;
          case 4:
-          return state[11]
+           /*<<format.ml:399:8>>*/ return state[11]
                   ?  /*<<format.ml:399:37>>*/ break_same_line(state, fits)
                   : state
                      [9]
-                    < (size$0 + caml_ml_string_length(before) | 0)
+                    <
+                     (size$0
+                     +  /*<<format.ml:400:8>>*/ caml_ml_string_length(before)
+                     | 0)
                     ?  /*<<format.ml:401:15>>*/ break_new_line
                       (state, breaks, width$1)
                     : ((state
@@ -26635,10 +27470,11 @@
        var
         off$0 = param[2],
         n = param[1],
-        insertion_point = state[6] - state[9] | 0,
+        insertion_point =  /*<<format.ml:358:4>>*/ state[6] - state[9] | 0,
         match$8 =
            /*<<format.ml:359:16>>*/ caml_call1(Stdlib_Stack[8], state[3]);
-       if(! match$8)  /*<<format.ml:360:14>>*/ return;
+        /*<<format.ml:359:49>>*/ if(! match$8)
+         /*<<format.ml:360:14>>*/ return;
        var
         tabs$0 = match$8[1][1],
         match$9 =  /*<<format.ml:362:6>>*/ tabs$0[1];
@@ -26647,7 +27483,8 @@
          /*<<format.ml:366:25>>*/ for(;;){
          if(param$0){
           var tail = param$0[2], head = param$0[1];
-          if(insertion_point > head){param$0 = tail; continue;}
+           /*<<format.ml:368:14>>*/ if(insertion_point > head){param$0 = tail; continue;
+          }
           var _a9_ = head;
          }
          else
@@ -26658,24 +27495,25 @@
        }
        else
         var tab = insertion_point;
-       var offset = tab - insertion_point | 0;
+       var offset =  /*<<format.ml:371:6>>*/ tab - insertion_point | 0;
         /*<<format.ml:372:6>>*/ return 0 <= offset
-               ?  /*<<format.ml:373:33>>*/ break_same_line
+               ?  /*<<format.ml:373:11>>*/ break_same_line
                  (state, [0, cst$0, offset + n | 0, cst])
-               :  /*<<format.ml:374:32>>*/ break_new_line
+               :  /*<<format.ml:374:11>>*/ break_new_line
                  (state, [0, cst$2, tab + off$0 | 0, cst$1], state[6]) /*<<format.ml:424:8>>*/ ;
       case 3:
        var
         ty = param[2],
         off$1 = param[1],
-        insertion_point$0 = state[6] - state[9] | 0;
-       if(state[8] < insertion_point$0){
+        insertion_point$0 =  /*<<format.ml:326:4>>*/ state[6] - state[9] | 0;
+        /*<<format.ml:327:4>>*/ if(state[8] < insertion_point$0){
         var
          match =
             /*<<format.ml:295:8>>*/ caml_call1(Stdlib_Stack[8], state[2]);
-        if(match){
+         /*<<format.ml:295:43>>*/ 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:298:4>>*/ if
+          (state[9] < width && 3 >= box_type - 1 >>> 0)
            /*<<format.ml:281:29>>*/ break_new_line(state, _a_, width);
         }
         else
@@ -26696,70 +27534,71 @@
         tag_name$0 = param[1],
         marker$0 =  /*<<format.ml:414:18>>*/ caml_call1(state[24], tag_name$0);
         /*<<format.ml:415:5>>*/ pp_output_string(state, marker$0);
-       return caml_call2(Stdlib_Stack[3], tag_name$0, state[5]) /*<<format.ml:424:8>>*/ ;
+        /*<<format.ml:415:34>>*/ return caml_call2
+               (Stdlib_Stack[3], tag_name$0, state[5]) /*<<format.ml:424:8>>*/ ;
     }
    }
    function advance_left(state){
      /*<<format.ml:431:2>>*/ for(;;){
      var
       match =  /*<<format.ml:431:8>>*/ caml_call1(Stdlib_Queue[9], state[28]);
-     if(! match)  /*<<format.ml:432:12>>*/ return 0;
+      /*<<format.ml:431:37>>*/ if(! match)  /*<<format.ml:432:12>>*/ return 0;
      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,
+      pending_count =  /*<<format.ml:434:4>>*/ state[13] - state[12] | 0,
+      _a6_ =  /*<<format.ml:42:19>>*/ 0 <= size ? 1 : 0,
       _a7_ =
-         /*<<format.ml:435:7>>*/ _a6_ || (state[9] <= pending_count ? 1 : 0);
+         /*<<format.ml:435:25>>*/ _a6_ || (state[9] <= pending_count ? 1 : 0);
      if(! _a7_) return _a7_;
       /*<<format.ml:436:6>>*/ caml_call1(Stdlib_Queue[5], state[28]);
-     var size$0 =  /*<<format.ml:437:20>>*/ 0 <= size ? size : pp_infinity;
+     var size$0 =  /*<<format.ml:437:38>>*/ 0 <= size ? size : pp_infinity;
       /*<<format.ml:438:6>>*/ format_pp_token(state, size$0, token);
-     state[12] = length + state[12] | 0;
+      /*<<format.ml:438:38>>*/ state[12] = length + state[12] | 0;
     }
     /*<<format.ml:441:7>>*/ }
    function enqueue_advance(state, tok){
      /*<<format.ml:445:32>>*/ pp_enqueue(state, tok);
-    return advance_left(state) /*<<format.ml:445:72>>*/ ;
+     /*<<format.ml:445:52>>*/ return advance_left(state) /*<<format.ml:445:72>>*/ ;
    }
    function enqueue_string_as(state, size, s){
-     /*<<format.ml:450:2>>*/ return  /*<<format.ml:450:24>>*/ enqueue_advance
+     /*<<format.ml:450:2>>*/ return  /*<<format.ml:450:76>>*/ enqueue_advance
             (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
    }
    function initialize_scan_stack(stack){
      /*<<format.ml:462:2>>*/ caml_call1(Stdlib_Stack[9], stack);
-    var queue_elem =  /*<<format.ml:463:19>>*/ [0, unknown, _b_, 0];
+    var queue_elem =  /*<<format.ml:462:19>>*/ [0, unknown, _b_, 0];
      /*<<format.ml:464:2>>*/ return caml_call2
             (Stdlib_Stack[3], [0, -1, queue_elem], stack) /*<<format.ml:464:50>>*/ ;
    }
    function set_size(state, ty){
     var
      match =  /*<<format.ml:476:8>>*/ caml_call1(Stdlib_Stack[8], state[1]);
-    if(! match)  /*<<format.ml:477:12>>*/ return;
+     /*<<format.ml:476:41>>*/ if(! match)  /*<<format.ml:477:12>>*/ return;
     var
      match$0 = match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
      size =  /*<<format.ml:479:4>>*/ queue_elem[1];
-    if(left_total < state[12])
-      /*<<format.ml:461:26>>*/ return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
-    var _a5_ = queue_elem[2];
+     /*<<format.ml:481:4>>*/ if(left_total < state[12])
+      /*<<format.ml:482:6>>*/ return initialize_scan_stack(state[1]) /*<<format.ml:497:10>>*/ ;
+    var _a5_ =  /*<<format.ml:484:6>>*/ queue_elem[2];
     if(typeof _a5_ !== "number")
      switch(_a5_[0]){
        case 3:
-        if(1 - ty){
-         var x$0 = state[13] + size | 0;
-         queue_elem[1] = x$0;
+         /*<<format.ml:491:8>>*/ if(1 - ty){
+         var x$0 =  /*<<format.ml:491:23>>*/ state[13] + size | 0;
+          /*<<format.ml:492:70>>*/ queue_elem[1] = x$0;
           /*<<format.ml:493:10>>*/ caml_call1(Stdlib_Stack[5], state[1]);
         }
         return;
        case 1:
        case 2:
-        if(ty){
-         var x = state[13] + size | 0;
-         queue_elem[1] = x;
+         /*<<format.ml:486:8>>*/ if(ty){
+         var x =  /*<<format.ml:486:19>>*/ state[13] + size | 0;
+          /*<<format.ml:487:70>>*/ queue_elem[1] = x;
           /*<<format.ml:488:10>>*/ caml_call1(Stdlib_Stack[5], state[1]);
         }
         return;
@@ -26767,28 +27606,31 @@
     /*<<format.ml:497: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);
-    var elem =  /*<<format.ml:505:13>>*/ [0, state[13], token];
+     /*<<format.ml:503:24>>*/ if(b)
+      /*<<format.ml:504:12>>*/ set_size(state, 1);
+    var elem = [0, state[13], token];
      /*<<format.ml:506:2>>*/ return caml_call2
             (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
    }
    function pp_open_box_gen(state, indent, br_ty){
      /*<<format.ml:513:2>>*/ state[14] = state[14] + 1 | 0;
-    if(state[14] < state[15]){
+     /*<<format.ml:514:2>>*/ if(state[14] < state[15]){
      var
-      size = - state[13] | 0,
-      elem =  /*<<format.ml:516:15>>*/ [0, size, [3, indent, br_ty], 0];
+      size =  /*<<format.ml:515:4>>*/ - state[13] | 0,
+      elem =  /*<<format.ml:516:4>>*/ [0, size, [3, indent, br_ty], 0];
       /*<<format.ml:517:4>>*/ return scan_push(state, 0, elem) /*<<format.ml:519:45>>*/ ;
     }
-    var _a4_ = state[14] === state[15] ? 1 : 0;
+    var _a4_ =  /*<<format.ml:518:2>>*/ state[14] === state[15] ? 1 : 0;
     if(! _a4_) return _a4_;
-    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>>*/ ;
+    var
+     s =  /*<<format.ml:519:7>>*/ state[16],
+     x =  /*<<format.ml:454:2>>*/ caml_ml_string_length(s);
+     /*<<format.ml:454:57>>*/ return enqueue_string_as(state, x, s) /*<<format.ml:519:45>>*/ ;
    }
    function pp_close_box(state, param){
-    var _a2_ = 1 < state[14] ? 1 : 0;
+    var _a2_ =  /*<<format.ml:527:2>>*/ 1 < state[14] ? 1 : 0;
     if(_a2_){
-     if(state[14] < state[15]){
+      /*<<format.ml:528:2>>*/ 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);
@@ -26807,8 +27649,8 @@
     }
     var _a1_ = state[23];
     if(! _a1_) return _a1_;
-    var token =  /*<<format.ml:546:16>>*/ [5, tag_name];
-     /*<<format.ml:547:21>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
+    var token =  /*<<format.ml:546:4>>*/ [5, tag_name];
+     /*<<format.ml:547:4>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
    }
    function pp_close_stag(state, param){
      /*<<format.ml:552:2>>*/ if(state[23])
@@ -26817,7 +27659,7 @@
     if(_aZ_){
      var
       match =  /*<<format.ml:555:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
-     if(match){
+      /*<<format.ml:555:42>>*/ if(match){
       var tag_name = match[1];
        /*<<format.ml:558:6>>*/ return caml_call1(state[27], tag_name) /*<<format.ml:558:39>>*/ ;
      }
@@ -26825,8 +27667,8 @@
     }
     else
      var _a0_ = _aZ_;
-     /*<<format.ml:556:14>>*/ return _a0_;
-    /*<<format.ml:558:39>>*/ }
+    return _a0_;
+   }
    function pp_set_print_tags(state, b){
      /*<<format.ml:560:32>>*/ state[22] = b;
     return 0;
@@ -26843,7 +27685,7 @@
     /*<<format.ml:563:50>>*/ }
    function pp_set_tags(state, b){
      /*<<format.ml:565:2>>*/ pp_set_print_tags(state, b);
-    return pp_set_mark_tags(state, b) /*<<format.ml:565:53>>*/ ;
+     /*<<format.ml:565:27>>*/ return pp_set_mark_tags(state, b) /*<<format.ml:565:53>>*/ ;
    }
    function pp_get_formatter_stag_function(state, param){
      /*<<format.ml:569:47>>*/ return [0,
@@ -26853,29 +27695,33 @@
             state[27]];
     /*<<format.ml:574: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;
-    state[25] = mct;
-    state[26] = pot;
-    state[27] = pct;
+    var
+     pct =  /*<<format.ml:577:36>>*/ param[4],
+     pot = param[3],
+     mct = param[2],
+     mot = param[1];
+     /*<<format.ml:583:2>>*/ state[24] = mot;
+     /*<<format.ml:584:2>>*/ state[25] = mct;
+     /*<<format.ml:585:2>>*/ state[26] = pot;
+     /*<<format.ml:586:2>>*/ state[27] = pct;
     return 0;
     /*<<format.ml:586:33>>*/ }
    function pp_rinit(state){
      /*<<format.ml:591:2>>*/ state[12] = 1;
-    state[13] = 1;
-    caml_call1(Stdlib_Queue[11], state[28]);
+     /*<<format.ml:224:28>>*/ state[13] = 1;
+     /*<<format.ml:225:2>>*/ caml_call1(Stdlib_Queue[11], state[28]);
      /*<<format.ml:592:2>>*/ initialize_scan_stack(state[1]);
      /*<<format.ml:593:2>>*/ caml_call1(Stdlib_Stack[9], state[2]);
      /*<<format.ml:594:2>>*/ caml_call1(Stdlib_Stack[9], state[3]);
      /*<<format.ml:595:2>>*/ caml_call1(Stdlib_Stack[9], state[4]);
      /*<<format.ml:596:2>>*/ caml_call1(Stdlib_Stack[9], state[5]);
-    state[10] = 0;
-    state[14] = 0;
-    state[9] = state[6];
+     /*<<format.ml:596:33>>*/ state[10] = 0;
+     /*<<format.ml:598:2>>*/ state[14] = 0;
+     /*<<format.ml:599:2>>*/ state[9] = state[6];
      /*<<format.ml:523:28>>*/ return pp_open_box_gen(state, 0, 3) /*<<format.ml:600:23>>*/ ;
    }
    function pp_flush_queue(state, end_with_newline){
-     /*<<format.ml:608:2>>*/  /*<<format.ml:603:13>>*/ caml_call2
+     /*<<format.ml:608:2>>*/  /*<<format.ml:603:2>>*/ caml_call2
      (Stdlib_Stack[13],
       function(param){
         /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0) /*<<format.ml:603:45>>*/ ;
@@ -26883,48 +27729,50 @@
       state[4]);
      /*<<format.ml:610:4>>*/ for(;;){
      if(1 >= state[14]){
-      state[13] = pp_infinity;
+       /*<<format.ml:612:2>>*/ 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:613:20>>*/ if(end_with_newline)
+        /*<<format.ml:614:27>>*/ pp_output_newline(state);
       return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
      }
       /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
     }
     /*<<format.ml:615:16>>*/ }
    function pp_print_as_size(state, size, s){
-    var _aY_ = state[14] < state[15] ? 1 : 0;
+    var _aY_ =  /*<<format.ml:625:2>>*/ state[14] < state[15] ? 1 : 0;
     return _aY_
             ?  /*<<format.ml:626:7>>*/ enqueue_string_as(state, size, s)
             : _aY_ /*<<format.ml:626: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:630:2>>*/ return  /*<<format.ml:630:44>>*/ pp_print_as_size
+            (state, isize, s) /*<<format.ml:630:46>>*/ ;
    }
    function pp_print_string(state, s){
-    var isize = caml_ml_string_length(s);
-     /*<<format.ml:630:2>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:634:39>>*/ ;
+    var isize =  /*<<format.ml:634:2>>*/ caml_ml_string_length(s);
+     /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:634:39>>*/ ;
    }
    function pp_print_bytes(state, s){
     var
      s$0 =  /*<<format.ml:637: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>>*/ ;
+     isize =  /*<<format.ml:637:56>>*/ runtime.caml_ml_bytes_length(s);
+     /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, s$0) /*<<format.ml:637:56>>*/ ;
    }
    function pp_print_int(state, i){
-     /*<<format.ml:640:27>>*/ return  /*<<format.ml:640:49>>*/ pp_print_string
-            (state, caml_call1(Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
+     /*<<format.ml:640:27>>*/ return  /*<<format.ml:640:66>>*/ pp_print_string
+            (state,  /*<<format.ml:640:49>>*/ caml_call1(Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
    }
    function pp_print_float(state, f){
-     /*<<format.ml:643:29>>*/ return  /*<<format.ml:643:51>>*/ pp_print_string
-            (state, caml_call1(Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
+     /*<<format.ml:643:29>>*/ return  /*<<format.ml:643:70>>*/ pp_print_string
+            (state,  /*<<format.ml:643:51>>*/ caml_call1(Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
    }
    function pp_print_bool(state, b){
-     /*<<format.ml:646:28>>*/ return  /*<<format.ml:646:50>>*/ pp_print_string
-            (state, caml_call1(Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
+     /*<<format.ml:646:28>>*/ return  /*<<format.ml:646:68>>*/ pp_print_string
+            (state,  /*<<format.ml:646:50>>*/ caml_call1(Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
    }
    function pp_print_char(state, c){
     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>>*/ ;
+     /*<<format.ml:630:44>>*/ 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>>*/ }
@@ -26945,44 +27793,43 @@
    }
    function pp_print_newline(state, param){
      /*<<format.ml:673:2>>*/ pp_flush_queue(state, 1);
-    return caml_call1(state[18], 0) /*<<format.ml:673:68>>*/ ;
+     /*<<format.ml:673:45>>*/ return caml_call1(state[18], 0) /*<<format.ml:673:68>>*/ ;
    }
    function pp_print_flush(state, param){
      /*<<format.ml:675:2>>*/ pp_flush_queue(state, 0);
-    return caml_call1(state[18], 0) /*<<format.ml:675:69>>*/ ;
+     /*<<format.ml:675:46>>*/ return caml_call1(state[18], 0) /*<<format.ml:675:69>>*/ ;
    }
    function pp_force_newline(state, param){
-    var _aX_ = state[14] < state[15] ? 1 : 0;
+    var _aX_ =  /*<<format.ml:680:2>>*/ state[14] < state[15] ? 1 : 0;
     return _aX_
-            ?  /*<<format.ml:681:26>>*/ enqueue_advance
-              (state, [0, zero, 3, 0])
+            ?  /*<<format.ml:681:4>>*/ enqueue_advance(state, [0, zero, 3, 0])
             : _aX_ /*<<format.ml:681:78>>*/ ;
    }
    function pp_print_if_newline(state, param){
-    var _aW_ = state[14] < state[15] ? 1 : 0;
+    var _aW_ =  /*<<format.ml:686:2>>*/ state[14] < state[15] ? 1 : 0;
     return _aW_
-            ?  /*<<format.ml:688:6>>*/ enqueue_advance(state, [0, zero, 4, 0])
+            ?  /*<<format.ml:687:4>>*/ enqueue_advance(state, [0, zero, 4, 0])
             : _aW_ /*<<format.ml:688:61>>*/ ;
    }
    function pp_print_custom_break(state, fits, breaks){
     var
-     after = fits[3],
+     after =  /*<<format.ml:694:2>>*/ fits[3],
      width = fits[2],
      before = fits[1],
-     _aV_ = state[14] < state[15] ? 1 : 0;
+     _aV_ =  /*<<format.ml:695:2>>*/ state[14] < state[15] ? 1 : 0;
     if(! _aV_) return _aV_;
     var
-     size = - state[13] | 0,
-     token =  /*<<format.ml:697:25>>*/ [1, fits, breaks],
+     size =  /*<<format.ml:696:4>>*/ - state[13] | 0,
+     token =  /*<<format.ml:697:4>>*/ [1, fits, breaks],
      length =
-       (caml_ml_string_length(before) + width | 0)
-       +  /*<<format.ml:698:4>>*/ caml_ml_string_length(after)
+        /*<<format.ml:698:4>>*/ (caml_ml_string_length(before) + width | 0)
+       + caml_ml_string_length(after)
        | 0,
-     elem =  /*<<format.ml:699:15>>*/ [0, size, token, length];
+     elem =  /*<<format.ml:699:4>>*/ [0, size, token, length];
      /*<<format.ml:700:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:700:29>>*/ ;
    }
    function pp_print_break(state, width, offset){
-     /*<<format.ml:707:2>>*/ return  /*<<format.ml:708:34>>*/ pp_print_custom_break
+     /*<<format.ml:707:2>>*/ return pp_print_custom_break
             (state, [0, cst$6, width, cst$5], [0, cst$4, offset, cst$3]) /*<<format.ml:708:50>>*/ ;
    }
    function pp_print_space(state, param){
@@ -26993,19 +27840,19 @@
    }
    function pp_open_tbox(state, param){
      /*<<format.ml:722:2>>*/ state[14] = state[14] + 1 | 0;
-    var _aU_ = state[14] < state[15] ? 1 : 0;
+    var _aU_ =  /*<<format.ml:723:2>>*/ state[14] < state[15] ? 1 : 0;
     if(! _aU_) return _aU_;
-    var elem =  /*<<format.ml:725:15>>*/ [0, zero, [4, [0, [0, 0]]], 0];
+    var elem =  /*<<format.ml:725:4>>*/ [0, zero, [4, [0, [0, 0]]], 0];
      /*<<format.ml:726:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:726:30>>*/ ;
    }
    function pp_close_tbox(state, param){
-    var _aR_ = 1 < state[14] ? 1 : 0;
+    var _aR_ =  /*<<format.ml:731:2>>*/ 1 < state[14] ? 1 : 0;
     if(_aR_){
-     var _aS_ = state[14] < state[15] ? 1 : 0;
+     var _aS_ =  /*<<format.ml:732:2>>*/ state[14] < state[15] ? 1 : 0;
      if(_aS_){
-      var elem =  /*<<format.ml:734:16>>*/ [0, zero, 2, 0];
+      var elem =  /*<<format.ml:734:5>>*/ [0, zero, 2, 0];
        /*<<format.ml:735:5>>*/ enqueue_advance(state, elem);
-      state[14] = state[14] - 1 | 0;
+       /*<<format.ml:735:31>>*/ state[14] = state[14] - 1 | 0;
       var _aT_ = 0;
      }
      else
@@ -27016,24 +27863,26 @@
     return _aT_;
     /*<<format.ml:737:5>>*/ }
    function pp_print_tbreak(state, width, offset){
-    var _aQ_ = state[14] < state[15] ? 1 : 0;
+    var _aQ_ =  /*<<format.ml:742:2>>*/ state[14] < state[15] ? 1 : 0;
     if(! _aQ_) return _aQ_;
     var
-     size = - state[13] | 0,
-     elem =  /*<<format.ml:744:15>>*/ [0, size, [2, width, offset], width];
+     size =  /*<<format.ml:743:4>>*/ - state[13] | 0,
+     elem =  /*<<format.ml:744:4>>*/ [0, size, [2, width, offset], width];
      /*<<format.ml:745:4>>*/ return scan_push(state, 1, elem) /*<<format.ml:745:29>>*/ ;
    }
    function pp_print_tab(state, param){
      /*<<format.ml:748:28>>*/ return pp_print_tbreak(state, 0, 0) /*<<format.ml:748:53>>*/ ;
    }
    function pp_set_tab(state, param){
-    var _aP_ = state[14] < state[15] ? 1 : 0;
+    var _aP_ =  /*<<format.ml:751:2>>*/ state[14] < state[15] ? 1 : 0;
     if(! _aP_) return _aP_;
-    var elem =  /*<<format.ml:752:15>>*/ [0, zero, 0, 0];
+    var elem =  /*<<format.ml:752:4>>*/ [0, zero, 0, 0];
      /*<<format.ml:753:4>>*/ return enqueue_advance(state, elem) /*<<format.ml:753:30>>*/ ;
    }
    function pp_set_max_boxes(state, n){
-    var _aN_ = 1 < n ? 1 : 0, _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
+    var
+     _aN_ =  /*<<format.ml:763:31>>*/ 1 < n ? 1 : 0,
+     _aO_ = _aN_ ? (state[15] = n, 0) : _aN_;
     return _aO_;
     /*<<format.ml:763:68>>*/ }
    function pp_get_max_boxes(state, param){
@@ -27053,24 +27902,26 @@
      /*<<format.ml:777:2>>*/ return n < 1000000010 ? n : 1000000009 /*<<format.ml:777:49>>*/ ;
    }
    function pp_set_max_indent(state, n$0){
-    var _aM_ = 1 < n$0 ? 1 : 0;
+    var _aM_ =  /*<<format.ml:793:2>>*/ 1 < n$0 ? 1 : 0;
     if(! _aM_) return _aM_;
-    var n$1 = state[6] - n$0 | 0, _aL_ = 1 <= n$1 ? 1 : 0;
+    var
+     n$1 =  /*<<format.ml:794:4>>*/ state[6] - n$0 | 0,
+     _aL_ =  /*<<format.ml:782:2>>*/ 1 <= n$1 ? 1 : 0;
     if(! _aL_) return _aL_;
     var n =  /*<<format.ml:783:12>>*/ pp_limit(n$1);
-    state[7] = n;
-    state[8] = state[6] - state[7] | 0;
+     /*<<format.ml:784:4>>*/ state[7] = n;
+     /*<<format.ml:785:4>>*/ state[8] = state[6] - state[7] | 0;
      /*<<format.ml:786:4>>*/ return pp_rinit(state) /*<<format.ml:794:53>>*/ ;
    }
    function pp_get_max_indent(state, param){
      /*<<format.ml:797:33>>*/ return state[8];
     /*<<format.ml:797:52>>*/ }
    function pp_set_margin(state, n){
-    var _aJ_ = 1 <= n ? 1 : 0;
+    var _aJ_ =  /*<<format.ml:800:2>>*/ 1 <= n ? 1 : 0;
     if(! _aJ_) return _aJ_;
     var n$0 =  /*<<format.ml:801:12>>*/ pp_limit(n);
-    state[6] = n$0;
-    if(state[8] <= state[6])
+     /*<<format.ml:802:4>>*/ state[6] = n$0;
+     /*<<format.ml:803:4>>*/ if(state[8] <= state[6])
      var new_max_indent = state[8];
     else
      var
@@ -27082,7 +27933,7 @@
      /*<<format.ml:813:4>>*/ return pp_set_max_indent(state, new_max_indent) /*<<format.ml:813:42>>*/ ;
    }
    function validate_geometry(param){
-    var margin = param[2], max_indent = param[1];
+    var margin =  /*<<format.ml:819:22>>*/ param[2], max_indent = param[1];
      /*<<format.ml:820:2>>*/ return 2 <= max_indent
             ? margin <= max_indent ? _c_ : 1000000010 <= margin ? _d_ : _e_
             : _f_ /*<<format.ml:826:12>>*/ ;
@@ -27097,46 +27948,52 @@
      /*<<format.ml:833:29>>*/ return state[6];
     /*<<format.ml:833:44>>*/ }
    function pp_set_full_geometry(state, param){
-    var margin = param[2], max_indent = param[1];
+    var margin =  /*<<format.ml:835:25>>*/ 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);
-    return 0;
+     /*<<format.ml:837:36>>*/ return 0;
     /*<<format.ml:838:4>>*/ }
    function pp_set_geometry(state, max_indent, margin){
     var
-     geometry =  /*<<format.ml:841:17>>*/ [0, max_indent, margin],
+     geometry =  /*<<format.ml:841:2>>*/ [0, max_indent, margin],
      match =  /*<<format.ml:842:8>>*/ validate_geometry(geometry);
-    if(0 === match[0])
+     /*<<format.ml:842:34>>*/ if(0 === match[0])
       /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry) /*<<format.ml:846:39>>*/ ;
     var
      msg = match[1],
      _aI_ =
         /*<<format.ml:844:28>>*/ caml_call2
         (Stdlib[28], cst_Format_pp_set_geometry, msg);
-     /*<<format.ml:844:4>>*/ throw caml_maybe_attach_backtrace
+     /*<<format.ml:844:62>>*/ throw caml_maybe_attach_backtrace
            ([0, Stdlib[6], _aI_], 1);
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
-    var geometry =  /*<<format.ml:849:17>>*/ [0, max_indent, margin];
-    return 0 ===  /*<<format.ml:850:8>>*/ validate_geometry(geometry)[0]
+    var geometry =  /*<<format.ml:849:2>>*/ [0, max_indent, margin];
+     /*<<format.ml:850:34>>*/ return 0
+            ===  /*<<format.ml:850:8>>*/ validate_geometry(geometry)[0]
             ?  /*<<format.ml:854:4>>*/ pp_set_full_geometry(state, geometry)
             : 0 /*<<format.ml:854:39>>*/ ;
    }
    function pp_get_geometry(state, param){
-     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]];
+     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]] /*<<format.ml:857:76>>*/ ;
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
     var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
-     /*<<format.ml:861:29>>*/ return pp_set_full_geometry
-            (state, caml_call1(update, geometry)) /*<<format.ml:861:46>>*/ ;
+     /*<<format.ml:861:46>>*/ return pp_set_full_geometry
+            (state,  /*<<format.ml:861:29>>*/ caml_call1(update, geometry)) /*<<format.ml:861: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;
-    state[18] = g;
-    state[19] = h;
-    state[20] = i;
-    state[21] = j;
+    var
+     j =  /*<<format.ml:864:35>>*/ param[5],
+     i = param[4],
+     h = param[3],
+     g = param[2],
+     f = param[1];
+     /*<<format.ml:871:2>>*/ state[17] = f;
+     /*<<format.ml:872:2>>*/ state[18] = g;
+     /*<<format.ml:873:2>>*/ state[19] = h;
+     /*<<format.ml:874:2>>*/ state[20] = i;
+     /*<<format.ml:875:2>>*/ state[21] = j;
     return 0;
     /*<<format.ml:875:26>>*/ }
    function pp_get_formatter_out_functions(state, param){
@@ -27149,7 +28006,7 @@
     /*<<format.ml:883:1>>*/ }
    function pp_set_formatter_output_functi(state, f, g){
      /*<<format.ml:888:2>>*/ state[17] = f;
-    state[18] = g;
+     /*<<format.ml:888:28>>*/ state[18] = g;
     return 0;
     /*<<format.ml:888:51>>*/ }
    function pp_get_formatter_output_functi(state, param){
@@ -27167,35 +28024,36 @@
      /*<<format.ml:900:2>>*/ for(;;){
      var _aH_ = 0 < n$0 ? 1 : 0;
      if(! _aH_) return _aH_;
-     if(80 >= n$0)
+      /*<<format.ml:901:2>>*/ if(80 >= n$0)
        /*<<format.ml:901:18>>*/ return caml_call3
               (state[17], blank_line, 0, n$0) /*<<format.ml:905:5>>*/ ;
       /*<<format.ml:903:4>>*/ caml_call3(state[17], blank_line, 0, 80);
-     var n$1 = n$0 - 80 | 0;
+     var n$1 =  /*<<format.ml:903:39>>*/ n$0 - 80 | 0;
      n$0 = n$1;
     }
     /*<<format.ml:905:5>>*/ }
    function pp_set_formatter_out_channel(state, oc){
      /*<<format.ml:914:2>>*/ state[17] =
       /*<<format.ml:914:25>>*/ caml_call1(Stdlib[69], oc);
-    state[18] =
+     /*<<format.ml:915:2>>*/ state[18] =
      function(param){
-       /*<<format.ml:915:35>>*/ return  /*<<format.ml:915:2>>*/ caml_call1
-              (Stdlib[63], oc) /*<<format.ml:915:43>>*/ ;
+       /*<<format.ml:915:35>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:915:43>>*/ ;
      };
-    state[19] =
+     /*<<format.ml:916:47>>*/ 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:917:45>>*/ state[20] =
+     function(_aF_){ /*<<?>>*/ return display_blanks(state, _aF_);};
+     /*<<format.ml:918:45>>*/ state[21] =
+     function(_aE_){ /*<<?>>*/ return display_blanks(state, _aE_);};
+     /*<<format.ml:918:45>>*/ return 0;
+   }
    function default_pp_mark_open_tag(param){
      /*<<format.ml:926:31>>*/ if(param[1] !== String_tag)
       /*<<format.ml:928:9>>*/ return cst$10;
     var
      s = param[2],
      _aD_ =  /*<<format.ml:927:26>>*/ caml_call2(Stdlib[28], s, cst$8);
-    return caml_call2(Stdlib[28], cst$9, _aD_) /*<<format.ml:928:11>>*/ ;
+     /*<<format.ml:927:33>>*/ return caml_call2(Stdlib[28], cst$9, _aD_) /*<<format.ml:928:11>>*/ ;
    }
    function default_pp_mark_close_tag(param){
      /*<<format.ml:929:32>>*/ if(param[1] !== String_tag)
@@ -27203,26 +28061,26 @@
     var
      s = param[2],
      _aC_ =  /*<<format.ml:930:27>>*/ caml_call2(Stdlib[28], s, cst$11);
-    return caml_call2(Stdlib[28], cst$12, _aC_) /*<<format.ml:931:11>>*/ ;
+     /*<<format.ml:930:34>>*/ return caml_call2(Stdlib[28], cst$12, _aC_) /*<<format.ml:931: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){
     var
      pp_queue =  /*<<format.ml:940:17>>*/ caml_call1(Stdlib_Queue[2], 0),
-     sys_tok =  /*<<format.ml:942:4>>*/ [0, unknown, _g_, 0];
+     sys_tok =  /*<<format.ml:941:2>>*/ [0, unknown, _g_, 0];
      /*<<format.ml:943:2>>*/ caml_call2(Stdlib_Queue[3], sys_tok, pp_queue);
     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>>*/ caml_call2
      (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
     var
-     pp_margin = 78,
-     _aw_ = Stdlib[19],
+     pp_margin =  /*<<format.ml:946:64>>*/ 78,
+     _aw_ =  /*<<format.ml:949:2>>*/ Stdlib[19],
      _ax_ =  /*<<format.ml:954:20>>*/ caml_call1(Stdlib_Stack[2], 0),
      _ay_ =  /*<<format.ml:953:19>>*/ caml_call1(Stdlib_Stack[2], 0),
      _az_ =  /*<<format.ml:952:20>>*/ caml_call1(Stdlib_Stack[2], 0);
-     /*<<format.ml:949:2>>*/ return [0,
+     /*<<format.ml:951:37>>*/ return [0,
             scan_stack,
              /*<<format.ml:951:22>>*/ caml_call1(Stdlib_Stack[2], 0),
             _az_,
@@ -27250,10 +28108,10 @@
             default_pp_mark_close_tag,
             default_pp_print_open_tag,
             default_pp_print_close_tag,
-            pp_queue] /*<<format.ml:949:2>>*/ ;
+            pp_queue] /*<<format.ml:951:37>>*/ ;
    }
    function formatter_of_out_functions(out_funs){
-     /*<<format.ml:983:2>>*/ return  /*<<format.ml:938:22>>*/ pp_make_formatter
+     /*<<format.ml:983:2>>*/ return pp_make_formatter
             (out_funs[1], out_funs[2], out_funs[3], out_funs[4], out_funs[5]) /*<<format.ml:988:23>>*/ ;
    }
    function make_formatter(output, flush){
@@ -27265,27 +28123,29 @@
          function(_av_){ /*<<?>>*/ return 0;},
          function(_au_){return 0;},
          function(_at_){return 0;});
-    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:995:43>>*/ ppf[19] =
+     function(_as_){ /*<<?>>*/ return display_newline(ppf, _as_);};
+     /*<<format.ml:996:41>>*/ ppf[20] =
+     function(_ar_){ /*<<?>>*/ return display_blanks(ppf, _ar_);};
+     /*<<format.ml:997:41>>*/ ppf[21] =
+     function(_aq_){ /*<<?>>*/ return display_blanks(ppf, _aq_);};
      /*<<format.ml:998:2>>*/ return ppf;
     /*<<format.ml:998:5>>*/ }
    function formatter_of_out_channel(oc){
-     /*<<format.ml:1003:2>>*/ return  /*<<format.ml:1003:39>>*/ make_formatter
+     /*<<format.ml:1003:2>>*/ return  /*<<format.ml:1003:38>>*/ make_formatter
             ( /*<<format.ml:1003:17>>*/ caml_call1(Stdlib[69], oc),
              function(param){
-               /*<<format.ml:1003:50>>*/ return  /*<<format.ml:1003:2>>*/ caml_call1
-                      (Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
+               /*<<format.ml:1003:50>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
              }) /*<<format.ml:1003:59>>*/ ;
    }
    function formatter_of_buffer(b){
-     /*<<format.ml:1008:2>>*/ return  /*<<format.ml:1008:42>>*/ make_formatter
+     /*<<format.ml:1008:2>>*/ return  /*<<format.ml:1008:41>>*/ make_formatter
             ( /*<<format.ml:1008:17>>*/ caml_call1(Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
    }
-   var pp_buffer_size =  /*<<format.ml:1007:24>>*/ 512;
+   var pp_buffer_size =  /*<<format.ml:898:35>>*/ 512;
    function pp_make_buffer(param){
-     /*<<format.ml:1015:24>>*/ return  /*<<format.ml:1007:24>>*/ caml_call1
+     /*<<format.ml:1015:24>>*/ return caml_call1
             (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1015:52>>*/ ;
    }
    var
@@ -27306,15 +28166,16 @@
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1033:2>>*/ return  /*<<format.ml:1033:22>>*/ formatter_of_buffer
-                 (caml_call1(Stdlib_Domain[10][2], stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
+          /*<<format.ml:1033:2>>*/ return  /*<<format.ml:1033:42>>*/ formatter_of_buffer
+                 ( /*<<format.ml:1033:22>>*/ caml_call1
+                   (Stdlib_Domain[10][2], stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
         });
     /*<<format.ml:1034:8>>*/ caml_call2
     (Stdlib_Domain[10][3], str_formatter_key, str_formatter);
    function buffered_out_string(key, str, ofs, len){
     var
      _ao_ =  /*<<format.ml:1037:23>>*/ caml_call1(Stdlib_Domain[10][2], key);
-     /*<<format.ml:1037:2>>*/ return caml_call4
+     /*<<format.ml:1037:43>>*/ return caml_call4
             (Stdlib_Buffer[18], _ao_, str, ofs, len) /*<<format.ml:1037:55>>*/ ;
    }
    function buffered_out_flush(oc, key, param){
@@ -27324,7 +28185,7 @@
      str =  /*<<format.ml:1042:12>>*/ caml_call1(Stdlib_Buffer[2], buf);
      /*<<format.ml:1043:2>>*/ caml_call4(Stdlib[69], oc, str, 0, len);
      /*<<format.ml:1044:2>>*/ caml_call1(Stdlib[63], oc);
-    return caml_call1(Stdlib_Buffer[8], buf) /*<<format.ml:1045:18>>*/ ;
+     /*<<format.ml:1044:17>>*/ return caml_call1(Stdlib_Buffer[8], buf) /*<<format.ml:1045:18>>*/ ;
    }
    var
     std_buf_key =
@@ -27332,7 +28193,7 @@
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1047:48>>*/ return  /*<<format.ml:1039:23>>*/ caml_call1
+          /*<<format.ml:1047:48>>*/ return caml_call1
                  (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1047:76>>*/ ;
         }),
     err_buf_key =
@@ -27340,7 +28201,7 @@
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1048:48>>*/ return  /*<<format.ml:1047:18>>*/ caml_call1
+          /*<<format.ml:1048:48>>*/ return caml_call1
                  (Stdlib_Buffer[1], pp_buffer_size) /*<<format.ml:1048:76>>*/ ;
         }),
     std_formatter_key =
@@ -27349,7 +28210,7 @@
         0,
         function(param){
          var
-          _ac_ = Stdlib[39],
+          _ac_ =  /*<<format.ml:1051:2>>*/ Stdlib[39],
           ppf =
              /*<<format.ml:1052:4>>*/ pp_make_formatter
              (function(_al_, _am_, _an_){
@@ -27362,13 +28223,16 @@
               function(_aj_){return 0;},
               function(_ai_){return 0;},
               function(_ah_){return 0;});
-         ppf[19] = function(_ag_){return display_newline(ppf, _ag_);};
-         ppf[20] = function(_af_){return display_blanks(ppf, _af_);};
-         ppf[21] = function(_ae_){return display_blanks(ppf, _ae_);};
+          /*<<format.ml:1055:43>>*/ ppf[19] =
+          function(_ag_){ /*<<?>>*/ return display_newline(ppf, _ag_);};
+          /*<<format.ml:1056:41>>*/ ppf[20] =
+          function(_af_){ /*<<?>>*/ return display_blanks(ppf, _af_);};
+          /*<<format.ml:1057:41>>*/ ppf[21] =
+          function(_ae_){ /*<<?>>*/ return display_blanks(ppf, _ae_);};
           /*<<format.ml:1058:2>>*/ caml_call1
           (Stdlib_Domain[6],
            function(_ad_){ /*<<?>>*/ return pp_print_flush(ppf, _ad_);});
-          /*<<format.ml:1058:2>>*/ return ppf;
+          /*<<format.ml:1058:37>>*/ return ppf;
          /*<<format.ml:1059:5>>*/ });
     /*<<format.ml:1060:8>>*/ caml_call2
     (Stdlib_Domain[10][3], std_formatter_key, std_formatter);
@@ -27379,7 +28243,7 @@
         0,
         function(param){
          var
-          _S_ = Stdlib[40],
+          _S_ =  /*<<format.ml:1063:2>>*/ Stdlib[40],
           ppf =
              /*<<format.ml:1064:4>>*/ pp_make_formatter
              (function(_$_, _aa_, _ab_){
@@ -27390,37 +28254,40 @@
               function(_Z_){return 0;},
               function(_Y_){return 0;},
               function(_X_){return 0;});
-         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:1067:43>>*/ ppf[19] =
+          function(_W_){ /*<<?>>*/ return display_newline(ppf, _W_);};
+          /*<<format.ml:1068:41>>*/ ppf[20] =
+          function(_V_){ /*<<?>>*/ return display_blanks(ppf, _V_);};
+          /*<<format.ml:1069:41>>*/ ppf[21] =
+          function(_U_){ /*<<?>>*/ return display_blanks(ppf, _U_);};
           /*<<format.ml:1070:2>>*/ caml_call1
           (Stdlib_Domain[6],
            function(_T_){ /*<<?>>*/ return pp_print_flush(ppf, _T_);});
-          /*<<format.ml:1070:2>>*/ return ppf;
+          /*<<format.ml:1070:37>>*/ return ppf;
          /*<<format.ml:1071:5>>*/ });
     /*<<format.ml:1072:8>>*/ caml_call2
     (Stdlib_Domain[10][3], err_formatter_key, err_formatter);
    function get_std_formatter(param){
-     /*<<format.ml:1074:27>>*/ return  /*<<format.ml:1072:8>>*/ caml_call1
+     /*<<format.ml:1074:27>>*/ return caml_call1
             (Stdlib_Domain[10][2], std_formatter_key) /*<<format.ml:1074:52>>*/ ;
    }
    function get_err_formatter(param){
-     /*<<format.ml:1075:27>>*/ return  /*<<format.ml:1074:22>>*/ caml_call1
+     /*<<format.ml:1075:27>>*/ return caml_call1
             (Stdlib_Domain[10][2], err_formatter_key) /*<<format.ml:1075:52>>*/ ;
    }
    function get_str_formatter(param){
-     /*<<format.ml:1076:27>>*/ return  /*<<format.ml:1075:22>>*/ caml_call1
+     /*<<format.ml:1076:27>>*/ return caml_call1
             (Stdlib_Domain[10][2], str_formatter_key) /*<<format.ml:1076:52>>*/ ;
    }
    function get_stdbuf(param){
-     /*<<format.ml:1077:20>>*/ return  /*<<format.ml:1076:22>>*/ caml_call1
+     /*<<format.ml:1077:20>>*/ return caml_call1
             (Stdlib_Domain[10][2], stdbuf_key) /*<<format.ml:1077:38>>*/ ;
    }
    function flush_buffer_formatter(buf, ppf){
      /*<<format.ml:1084:2>>*/ pp_flush_queue(ppf, 0);
     var s =  /*<<format.ml:1085:10>>*/ caml_call1(Stdlib_Buffer[2], buf);
      /*<<format.ml:1086:2>>*/ caml_call1(Stdlib_Buffer[9], buf);
-    return s;
+     /*<<format.ml:1086:18>>*/ return s;
     /*<<format.ml:1087:3>>*/ }
    function flush_str_formatter(param){
     var
@@ -27433,7 +28300,7 @@
             (stdbuf, str_formatter) /*<<format.ml:1093:45>>*/ ;
    }
    function make_synchronized_formatter(output, flush){
-     /*<<format.ml:1096:2>>*/ return  /*<<format.ml:1096:14>>*/ caml_call2
+     /*<<format.ml:1096:2>>*/ return caml_call2
             (Stdlib_Domain[10][1],
              0,
              function(param){
@@ -27453,18 +28320,17 @@
                  0,
                  _R_);
                 /*<<format.ml:1101:6>>*/ caml_call1(Stdlib_Buffer[8], buf);
-               return caml_call1(flush, 0) /*<<format.ml:1102:14>>*/ ;
+                /*<<format.ml:1101:22>>*/ return caml_call1(flush, 0) /*<<format.ml:1102:14>>*/ ;
               }
                /*<<format.ml:1104:4>>*/ return make_formatter
                       (output$0, flush$0) /*<<format.ml:1104:33>>*/ ;
              }) /*<<format.ml:1104:34>>*/ ;
    }
    function synchronized_formatter_of_out_(oc){
-     /*<<format.ml:1107:2>>*/ return  /*<<format.ml:1107:52>>*/ make_synchronized_formatter
+     /*<<format.ml:1107:2>>*/ return  /*<<format.ml:1107:51>>*/ make_synchronized_formatter
             ( /*<<format.ml:1107:30>>*/ caml_call1(Stdlib[69], oc),
              function(param){
-               /*<<format.ml:1107:63>>*/ return  /*<<format.ml:1107:2>>*/ caml_call1
-                      (Stdlib[63], oc) /*<<format.ml:1107:71>>*/ ;
+               /*<<format.ml:1107:63>>*/ return 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];
@@ -27479,7 +28345,7 @@
    function flush_symbolic_output_buffer(sob){
     var items =  /*<<format.ml:1143:14>>*/ get_symbolic_output_buffer(sob);
      /*<<format.ml:1144:2>>*/ clear_symbolic_output_buffer(sob);
-    return items;
+     /*<<format.ml:1144:34>>*/ return items;
     /*<<format.ml:1145:7>>*/ }
    function add_symbolic_output_item(sob, item){
      /*<<format.ml:1148:2>>*/ sob[1] = [0, item, sob[1]];
@@ -27487,11 +28353,11 @@
     /*<<format.ml:1148:70>>*/ }
    function formatter_of_symbolic_output_b(sob){
     function f(s, i, n){
-      /*<<format.ml:1156:33>>*/ return add_symbolic_output_item
+      /*<<format.ml:1156:66>>*/ return add_symbolic_output_item
              (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
-                (Stdlib_String[16], s, i, n)]) /*<<format.ml:1156:33>>*/ ;
+                (Stdlib_String[16], s, i, n)]) /*<<format.ml:1156:66>>*/ ;
     }
     function g(_Q_){
       /*<<format.ml:1152:4>>*/ return add_symbolic_output_item(sob, 0);
@@ -27500,57 +28366,57 @@
       /*<<format.ml:1154:4>>*/ return add_symbolic_output_item(sob, 1);
     }
     function i(n){
-      /*<<format.ml:1158:33>>*/ return add_symbolic_output_item(sob, [1, n]);
+      /*<<format.ml:1158:4>>*/ return add_symbolic_output_item(sob, [1, n]);
     }
     function j(n){
-      /*<<format.ml:1160:33>>*/ return add_symbolic_output_item(sob, [2, n]);
+      /*<<format.ml:1160:4>>*/ 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>>*/ ;
    }
    function open_hbox(v){
-     /*<<format.ml:1176:18>>*/ return pp_open_hbox
+     /*<<format.ml:1176:18>>*/ return  /*<<format.ml:1176:58>>*/ pp_open_hbox
             ( /*<<format.ml:1176:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1176:60>>*/ ;
    }
    function open_vbox(v){
-     /*<<format.ml:1177:18>>*/ return pp_open_vbox
+     /*<<format.ml:1177:18>>*/ return  /*<<format.ml:1177:58>>*/ pp_open_vbox
             ( /*<<format.ml:1177:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1177:60>>*/ ;
    }
    function open_hvbox(v){
-     /*<<format.ml:1178:19>>*/ return pp_open_hvbox
+     /*<<format.ml:1178:19>>*/ return  /*<<format.ml:1178:60>>*/ pp_open_hvbox
             ( /*<<format.ml:1178:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1178:62>>*/ ;
    }
    function open_hovbox(v){
-     /*<<format.ml:1179:20>>*/ return pp_open_hovbox
+     /*<<format.ml:1179:20>>*/ return  /*<<format.ml:1179:62>>*/ pp_open_hovbox
             ( /*<<format.ml:1179:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1179:64>>*/ ;
    }
    function open_box(v){
-     /*<<format.ml:1180:17>>*/ return pp_open_box
+     /*<<format.ml:1180:17>>*/ return  /*<<format.ml:1180:56>>*/ pp_open_box
             ( /*<<format.ml:1180:29>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1180:58>>*/ ;
    }
    function close_box(v){
-     /*<<format.ml:1181:18>>*/ return pp_close_box
+     /*<<format.ml:1181:18>>*/ return  /*<<format.ml:1181:58>>*/ pp_close_box
             ( /*<<format.ml:1181:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1181:60>>*/ ;
    }
    function open_stag(v){
-     /*<<format.ml:1182:18>>*/ return pp_open_stag
+     /*<<format.ml:1182:18>>*/ return  /*<<format.ml:1182:58>>*/ pp_open_stag
             ( /*<<format.ml:1182:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1182:60>>*/ ;
    }
    function close_stag(v){
-     /*<<format.ml:1183:19>>*/ return pp_close_stag
+     /*<<format.ml:1183:19>>*/ return  /*<<format.ml:1183:60>>*/ pp_close_stag
             ( /*<<format.ml:1183:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1183:62>>*/ ;
@@ -27560,120 +28426,120 @@
      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:630:44>>*/ return pp_print_as_size(state, isize, w) /*<<format.ml:1184:62>>*/ ;
    }
    function print_string(v){
-     /*<<format.ml:1185:21>>*/ return pp_print_string
+     /*<<format.ml:1185:21>>*/ return  /*<<format.ml:1185:64>>*/ pp_print_string
             ( /*<<format.ml:1185:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1185:66>>*/ ;
    }
    function print_bytes(v){
-     /*<<format.ml:1186:20>>*/ return pp_print_bytes
+     /*<<format.ml:1186:20>>*/ return  /*<<format.ml:1186:62>>*/ pp_print_bytes
             ( /*<<format.ml:1186:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1186:64>>*/ ;
    }
    function print_int(v){
-     /*<<format.ml:1187:18>>*/ return pp_print_int
+     /*<<format.ml:1187:18>>*/ return  /*<<format.ml:1187:58>>*/ pp_print_int
             ( /*<<format.ml:1187:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1187:60>>*/ ;
    }
    function print_float(v){
-     /*<<format.ml:1188:20>>*/ return pp_print_float
+     /*<<format.ml:1188:20>>*/ return  /*<<format.ml:1188:62>>*/ pp_print_float
             ( /*<<format.ml:1188:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1188:64>>*/ ;
    }
    function print_char(v){
-     /*<<format.ml:1189:19>>*/ return pp_print_char
+     /*<<format.ml:1189:19>>*/ return  /*<<format.ml:1189:60>>*/ pp_print_char
             ( /*<<format.ml:1189:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1189:62>>*/ ;
    }
    function print_bool(v){
-     /*<<format.ml:1190:19>>*/ return pp_print_bool
+     /*<<format.ml:1190:19>>*/ return  /*<<format.ml:1190:60>>*/ pp_print_bool
             ( /*<<format.ml:1190:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1190:62>>*/ ;
    }
    function print_break(v, w){
-     /*<<format.ml:1191:22>>*/ return pp_print_break
+     /*<<format.ml:1191:22>>*/ return  /*<<format.ml:1191:64>>*/ pp_print_break
             ( /*<<format.ml:1191:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1191:68>>*/ ;
    }
    function print_cut(v){
-     /*<<format.ml:1192:18>>*/ return pp_print_cut
+     /*<<format.ml:1192:18>>*/ return  /*<<format.ml:1192:58>>*/ pp_print_cut
             ( /*<<format.ml:1192:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1192:60>>*/ ;
    }
    function print_space(v){
-     /*<<format.ml:1193:20>>*/ return pp_print_space
+     /*<<format.ml:1193:20>>*/ return  /*<<format.ml:1193:62>>*/ pp_print_space
             ( /*<<format.ml:1193:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1193:64>>*/ ;
    }
    function force_newline(v){
-     /*<<format.ml:1194:22>>*/ return pp_force_newline
+     /*<<format.ml:1194:22>>*/ return  /*<<format.ml:1194:66>>*/ pp_force_newline
             ( /*<<format.ml:1194:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1194:68>>*/ ;
    }
    function print_flush(v){
-     /*<<format.ml:1195:20>>*/ return pp_print_flush
+     /*<<format.ml:1195:20>>*/ return  /*<<format.ml:1195:62>>*/ pp_print_flush
             ( /*<<format.ml:1195:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1195:64>>*/ ;
    }
    function print_newline(v){
-     /*<<format.ml:1196:22>>*/ return pp_print_newline
+     /*<<format.ml:1196:22>>*/ return  /*<<format.ml:1196:66>>*/ pp_print_newline
             ( /*<<format.ml:1196:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1196:68>>*/ ;
    }
    function print_if_newline(v){
-     /*<<format.ml:1197:25>>*/ return pp_print_if_newline
+     /*<<format.ml:1197:25>>*/ return  /*<<format.ml:1197:72>>*/ pp_print_if_newline
             ( /*<<format.ml:1197:45>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1197:74>>*/ ;
    }
    function open_tbox(v){
-     /*<<format.ml:1199:18>>*/ return pp_open_tbox
+     /*<<format.ml:1199:18>>*/ return  /*<<format.ml:1199:58>>*/ pp_open_tbox
             ( /*<<format.ml:1199:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1199:60>>*/ ;
    }
    function close_tbox(v){
-     /*<<format.ml:1200:19>>*/ return pp_close_tbox
+     /*<<format.ml:1200:19>>*/ return  /*<<format.ml:1200:60>>*/ pp_close_tbox
             ( /*<<format.ml:1200:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1200:62>>*/ ;
    }
    function print_tbreak(v, w){
-     /*<<format.ml:1201:23>>*/ return pp_print_tbreak
+     /*<<format.ml:1201:23>>*/ return  /*<<format.ml:1201:66>>*/ pp_print_tbreak
             ( /*<<format.ml:1201:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1201:70>>*/ ;
    }
    function set_tab(v){
-     /*<<format.ml:1203:16>>*/ return pp_set_tab
+     /*<<format.ml:1203:16>>*/ return  /*<<format.ml:1203:54>>*/ pp_set_tab
             ( /*<<format.ml:1203:27>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1203:56>>*/ ;
    }
    function print_tab(v){
-     /*<<format.ml:1204:18>>*/ return pp_print_tab
+     /*<<format.ml:1204:18>>*/ return  /*<<format.ml:1204:58>>*/ pp_print_tab
             ( /*<<format.ml:1204:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1204:60>>*/ ;
    }
    function set_margin(v){
-     /*<<format.ml:1206:19>>*/ return pp_set_margin
+     /*<<format.ml:1206:19>>*/ return  /*<<format.ml:1206:60>>*/ pp_set_margin
             ( /*<<format.ml:1206:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1206:62>>*/ ;
@@ -27683,10 +28549,10 @@
      state =
         /*<<format.ml:1207:33>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
-    return state[6];
+     /*<<format.ml:833:29>>*/ return state[6];
     /*<<format.ml:1207:62>>*/ }
    function set_max_indent(v){
-     /*<<format.ml:1209:23>>*/ return pp_set_max_indent
+     /*<<format.ml:1209:23>>*/ return  /*<<format.ml:1209:68>>*/ pp_set_max_indent
             ( /*<<format.ml:1209:41>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1209:70>>*/ ;
@@ -27696,36 +28562,36 @@
      state =
         /*<<format.ml:1210:41>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
-    return state[8];
+     /*<<format.ml:797:33>>*/ return state[8];
     /*<<format.ml:1210:70>>*/ }
    function set_geometry(max_indent, margin){
-     /*<<format.ml:1213:2>>*/ return pp_set_geometry
+     /*<<format.ml:1213:2>>*/ return  /*<<format.ml:1213:45>>*/ pp_set_geometry
             ( /*<<format.ml:1213:18>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1213:65>>*/ ;
    }
    function safe_set_geometry(max_indent, margin){
-     /*<<format.ml:1215:2>>*/ return pp_safe_set_geometry
+     /*<<format.ml:1215:2>>*/ return  /*<<format.ml:1215:50>>*/ pp_safe_set_geometry
             ( /*<<format.ml:1215:23>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1215:70>>*/ ;
    }
    function get_geometry(v){
-     /*<<format.ml:1216:21>>*/ return pp_get_geometry
+     /*<<format.ml:1216:21>>*/ return  /*<<format.ml:1216:64>>*/ pp_get_geometry
             ( /*<<format.ml:1216:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1216:66>>*/ ;
    }
    function update_geometry(v){
-     /*<<format.ml:1217:24>>*/ return pp_update_geometry
+     /*<<format.ml:1217:24>>*/ return  /*<<format.ml:1217:70>>*/ pp_update_geometry
             ( /*<<format.ml:1217:43>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1217:72>>*/ ;
    }
    function set_max_boxes(v){
-     /*<<format.ml:1219:22>>*/ return pp_set_max_boxes
+     /*<<format.ml:1219:22>>*/ return  /*<<format.ml:1219:66>>*/ pp_set_max_boxes
             ( /*<<format.ml:1219:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1219:68>>*/ ;
@@ -27735,16 +28601,16 @@
      state =
         /*<<format.ml:1220:39>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
-    return state[15];
+     /*<<format.ml:766:32>>*/ return state[15];
     /*<<format.ml:1220:68>>*/ }
    function over_max_boxes(v){
-     /*<<format.ml:1221:23>>*/ return pp_over_max_boxes
+     /*<<format.ml:1221:23>>*/ return  /*<<format.ml:1221:68>>*/ pp_over_max_boxes
             ( /*<<format.ml:1221:41>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1221:70>>*/ ;
    }
    function set_ellipsis_text(v){
-     /*<<format.ml:1223:26>>*/ return pp_set_ellipsis_text
+     /*<<format.ml:1223:26>>*/ return  /*<<format.ml:1223:74>>*/ pp_set_ellipsis_text
             ( /*<<format.ml:1223:47>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1223:76>>*/ ;
@@ -27754,53 +28620,53 @@
      state =
         /*<<format.ml:1224:47>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
-    return state[16];
+     /*<<format.ml:772:36>>*/ return state[16];
     /*<<format.ml:1224:76>>*/ }
    function set_formatter_out_channel(v){
-     /*<<format.ml:1227:2>>*/ return pp_set_formatter_out_channel
+     /*<<format.ml:1227:2>>*/ return  /*<<format.ml:1227:58>>*/ pp_set_formatter_out_channel
             ( /*<<format.ml:1227:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1227:60>>*/ ;
    }
    function set_formatter_out_functions(v){
-     /*<<format.ml:1230:2>>*/ return pp_set_formatter_out_functions
+     /*<<format.ml:1230:2>>*/ return  /*<<format.ml:1230:60>>*/ pp_set_formatter_out_functions
             ( /*<<format.ml:1230:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1230:62>>*/ ;
    }
    function get_formatter_out_functions(v){
-     /*<<format.ml:1232:2>>*/ return pp_get_formatter_out_functions
+     /*<<format.ml:1232:2>>*/ return  /*<<format.ml:1232:60>>*/ pp_get_formatter_out_functions
             ( /*<<format.ml:1232:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1232:62>>*/ ;
    }
    function set_formatter_output_functions(v, w){
-     /*<<format.ml:1235:2>>*/ return pp_set_formatter_output_functi
+     /*<<format.ml:1235:2>>*/ return  /*<<format.ml:1235:63>>*/ pp_set_formatter_output_functi
             ( /*<<format.ml:1235:36>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1235:67>>*/ ;
    }
    function get_formatter_output_functions(v){
-     /*<<format.ml:1237:2>>*/ return pp_get_formatter_output_functi
+     /*<<format.ml:1237:2>>*/ return  /*<<format.ml:1237:63>>*/ pp_get_formatter_output_functi
             ( /*<<format.ml:1237:36>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1237:65>>*/ ;
    }
    function set_formatter_stag_functions(v){
-     /*<<format.ml:1240:2>>*/ return pp_set_formatter_stag_function
+     /*<<format.ml:1240:2>>*/ return  /*<<format.ml:1240:61>>*/ pp_set_formatter_stag_function
             ( /*<<format.ml:1240:34>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1240:63>>*/ ;
    }
    function get_formatter_stag_functions(v){
-     /*<<format.ml:1242:2>>*/ return pp_get_formatter_stag_function
+     /*<<format.ml:1242:2>>*/ return  /*<<format.ml:1242:61>>*/ pp_get_formatter_stag_function
             ( /*<<format.ml:1242:34>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1242:63>>*/ ;
    }
    function set_print_tags(v){
-     /*<<format.ml:1244:2>>*/ return pp_set_print_tags
+     /*<<format.ml:1244:2>>*/ return  /*<<format.ml:1244:47>>*/ pp_set_print_tags
             ( /*<<format.ml:1244:20>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1244:49>>*/ ;
@@ -27810,10 +28676,10 @@
      state =
         /*<<format.ml:1246:20>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
-    return state[22];
+     /*<<format.ml:562:33>>*/ return state[22];
     /*<<format.ml:1246:49>>*/ }
    function set_mark_tags(v){
-     /*<<format.ml:1248:2>>*/ return pp_set_mark_tags
+     /*<<format.ml:1248:2>>*/ return  /*<<format.ml:1248:46>>*/ pp_set_mark_tags
             ( /*<<format.ml:1248:19>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1248:48>>*/ ;
@@ -27823,21 +28689,21 @@
      state =
         /*<<format.ml:1250:19>>*/ caml_call1
         (Stdlib_Domain[10][2], std_formatter_key);
-    return state[23];
+     /*<<format.ml:563:32>>*/ return state[23];
     /*<<format.ml:1250:48>>*/ }
    function set_tags(v){
-     /*<<format.ml:1252:2>>*/ return pp_set_tags
+     /*<<format.ml:1252:2>>*/ return  /*<<format.ml:1252:41>>*/ pp_set_tags
             ( /*<<format.ml:1252:14>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1252:43>>*/ ;
    }
    function pp_print_iter(opt, iter, pp_v, ppf, v){
     var
-     pp_sep = opt ? opt[1] : pp_print_cut,
-     is_first =  /*<<format.ml:1258:17>>*/ [0, 1];
+     pp_sep =  /*<<format.ml:1257:18>>*/ opt ? opt[1] : pp_print_cut,
+     is_first =  /*<<format.ml:1258:2>>*/ [0, 1];
     function pp_v$0(v){
       /*<<format.ml:1260:4>>*/ if(is_first[1])
-      is_first[1] = 0;
+       /*<<format.ml:1260:22>>*/ is_first[1] = 0;
      else
        /*<<format.ml:1260:45>>*/ caml_call2(pp_sep, ppf, 0);
      return caml_call2(pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
@@ -27845,42 +28711,42 @@
      /*<<format.ml:1263:2>>*/ return caml_call2(iter, pp_v$0, v) /*<<format.ml:1263:13>>*/ ;
    }
    function pp_print_list(opt, pp_v, ppf, v){
-    var pp_sep = opt ? opt[1] : pp_print_cut;
+    var pp_sep =  /*<<format.ml:1266:18>>*/ opt ? opt[1] : pp_print_cut;
      /*<<format.ml:1267:2>>*/ return pp_print_iter
             ([0, pp_sep], Stdlib_List[18], pp_v, ppf, v) /*<<format.ml:1267:44>>*/ ;
    }
    function pp_print_array(opt, pp_v, ppf, v){
-    var pp_sep = opt ? opt[1] : pp_print_cut;
+    var pp_sep =  /*<<format.ml:1270:19>>*/ opt ? opt[1] : pp_print_cut;
      /*<<format.ml:1271:2>>*/ return pp_print_iter
             ([0, pp_sep], Stdlib_Array[12], pp_v, ppf, v) /*<<format.ml:1271:45>>*/ ;
    }
    function pp_print_seq(opt, pp_v, ppf, seq){
-    var pp_sep = opt ? opt[1] : pp_print_cut;
+    var pp_sep =  /*<<format.ml:1274:17>>*/ opt ? opt[1] : pp_print_cut;
      /*<<format.ml:1275:2>>*/ return pp_print_iter
             ([0, pp_sep], Stdlib_Seq[4], pp_v, ppf, seq) /*<<format.ml:1275:45>>*/ ;
    }
    function pp_print_text(ppf, s){
     var
-     len = caml_ml_string_length(s),
-     left =  /*<<format.ml:1280:13>>*/ [0, 0],
-     right =  /*<<format.ml:1281:14>>*/ [0, 0];
+     len =  /*<<format.ml:1279:2>>*/ caml_ml_string_length(s),
+     left =  /*<<format.ml:1280:2>>*/ [0, 0],
+     right =  /*<<format.ml:1281:2>>*/ [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));
-     right[1]++;
-     left[1] = right[1];
+      /*<<format.ml:1283:61>>*/ right[1]++;
+      /*<<format.ml:1284:16>>*/ left[1] = right[1];
      return 0;
      /*<<format.ml:1284:31>>*/ }
     for(;;){
      if(right[1] === len){
-      var _O_ = left[1] !== len ? 1 : 0;
+      var _O_ =  /*<<format.ml:1297:2>>*/ left[1] !== len ? 1 : 0;
       return _O_ ?  /*<<format.ml:1297:23>>*/ flush(0) : _O_ /*<<format.ml:1297:31>>*/ ;
      }
      var
       match =  /*<<format.ml:1287:10>>*/ runtime.caml_string_get(s, right[1]);
-     if(10 === match){
+      /*<<format.ml:1287:20>>*/ if(10 === match){
        /*<<format.ml:1289:8>>*/ flush(0);
        /*<<format.ml:1290:8>>*/ pp_force_newline(ppf, 0);
      }
@@ -27889,13 +28755,13 @@
        /*<<format.ml:1292:18>>*/ pp_print_space(ppf, 0);
      }
      else
-      right[1]++;
+       /*<<format.ml:1295:13>>*/ right[1]++;
     }
     /*<<format.ml:1297:31>>*/ }
    function pp_print_option(opt, pp_v, ppf, param){
     var
      none =
-       opt
+        /*<<format.ml:1299:20>>*/ opt
         ? opt[1]
         : function
          (_N_, param){
@@ -27961,7 +28827,7 @@
       default:
        var c = fmting_lit[1];
         /*<<format.ml:1343:33>>*/ pp_print_char(ppf, 64);
-       return pp_print_char(ppf, c) /*<<format.ml:1343:75>>*/ ;
+        /*<<format.ml:1343:54>>*/ return pp_print_char(ppf, c) /*<<format.ml:1343:75>>*/ ;
     }
    }
    function output_acc(ppf, acc){
@@ -27977,13 +28843,13 @@
          case 0:
           var f = acc[2], p = acc[1];
            /*<<format.ml:1359:4>>*/ output_acc(ppf, p);
-          return output_formatting_lit(ppf, f) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1359:20>>*/ return output_formatting_lit(ppf, f) /*<<format.ml:1375:34>>*/ ;
          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:1363:62>>*/ return pp_open_stag
                    (ppf,
                     [0,
                      String_tag,
@@ -27996,7 +28862,7 @@
            match$0 =
               /*<<format.ml:1366:24>>*/ caml_call1
               (CamlinternalFormat[20], _E_),
-           bty = match$0[2],
+           bty =  /*<<format.ml:1366:72>>*/ match$0[2],
            indent = match$0[1];
            /*<<format.ml:1367:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1375:34>>*/ ;
          case 2:
@@ -28046,28 +28912,31 @@
          case 6:
           var f$0 = acc[2], p$5 = acc[1];
            /*<<format.ml:1372:32>>*/ output_acc(ppf, p$5);
-          return caml_call1(f$0, ppf) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1372:48>>*/ return caml_call1(f$0, ppf) /*<<format.ml:1375:34>>*/ ;
          case 7:
           var p$6 = acc[1];
            /*<<format.ml:1373:32>>*/ output_acc(ppf, p$6);
-          return pp_print_flush(ppf, 0) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1373:48>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1375:34>>*/ ;
          default:
           var msg = acc[2], p$7 = acc[1];
            /*<<format.ml:1374:32>>*/ output_acc(ppf, p$7);
-          return caml_call1(Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
+           /*<<format.ml:1374:48>>*/ return caml_call1(Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
        }
         /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
-        /*<<format.ml:1357:44>>*/ return pp_print_as_size
-               (ppf, size$0, caml_call2(Stdlib_String[1], 1, c$0)) /*<<format.ml:1375:34>>*/ ;
+        /*<<format.ml:1357:43>>*/ return pp_print_as_size
+               (ppf,
+                size$0,
+                 /*<<format.ml:1357:44>>*/ caml_call2
+                 (Stdlib_String[1], 1, c$0)) /*<<format.ml:1375:34>>*/ ;
       }
        /*<<format.ml:1371:32>>*/ output_acc(ppf, p$3);
-      return pp_print_char(ppf, c) /*<<format.ml:1375:34>>*/ ;
+       /*<<format.ml:1371:48>>*/ return pp_print_char(ppf, c) /*<<format.ml:1375:34>>*/ ;
      }
       /*<<format.ml:1352:4>>*/ output_acc(ppf, p$2);
-     return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
+      /*<<format.ml:1353:43>>*/ return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1375:34>>*/ ;
     }
      /*<<format.ml:1369:32>>*/ output_acc(ppf, p$1);
-    return pp_print_string(ppf, s) /*<<format.ml:1375:34>>*/ ;
+     /*<<format.ml:1369:48>>*/ return pp_print_string(ppf, s) /*<<format.ml:1375:34>>*/ ;
    }
    function strput_acc(ppf, acc){
      /*<<format.ml:1381:29>>*/ if(typeof acc === "number")
@@ -28082,13 +28951,13 @@
          case 0:
           var f = acc[2], p = acc[1];
            /*<<format.ml:1394:4>>*/ strput_acc(ppf, p);
-          return output_formatting_lit(ppf, f) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1394:20>>*/ return output_formatting_lit(ppf, f) /*<<format.ml:1410:34>>*/ ;
          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:1398:62>>*/ return pp_open_stag
                    (ppf,
                     [0,
                      String_tag,
@@ -28101,7 +28970,7 @@
            match$0 =
               /*<<format.ml:1401:24>>*/ caml_call1
               (CamlinternalFormat[20], _v_),
-           bty = match$0[2],
+           bty =  /*<<format.ml:1401:72>>*/ match$0[2],
            indent = match$0[1];
            /*<<format.ml:1402:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1410:34>>*/ ;
          case 2:
@@ -28155,54 +29024,57 @@
            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, caml_call1(f$1, 0)) /*<<format.ml:1410:34>>*/ ;
+             /*<<format.ml:1392:43>>*/ return pp_print_as_size
+                    (ppf, size$1,  /*<<format.ml:1392:44>>*/ caml_call1(f$1, 0)) /*<<format.ml:1410:34>>*/ ;
            }
           }
           var f$0 = acc[2];
            /*<<format.ml:1407:32>>*/ strput_acc(ppf, p$5);
-           /*<<format.ml:1407:70>>*/ return pp_print_string
-                  (ppf, caml_call1(f$0, 0)) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1407:76>>*/ return pp_print_string
+                  (ppf,  /*<<format.ml:1407:70>>*/ caml_call1(f$0, 0)) /*<<format.ml:1410:34>>*/ ;
          case 7:
           var p$7 = acc[1];
            /*<<format.ml:1408:32>>*/ strput_acc(ppf, p$7);
-          return pp_print_flush(ppf, 0) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1408:48>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1410:34>>*/ ;
          default:
           var msg = acc[2], p$8 = acc[1];
            /*<<format.ml:1409:32>>*/ strput_acc(ppf, p$8);
-          return caml_call1(Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
+           /*<<format.ml:1409:48>>*/ return caml_call1(Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
        }
         /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
-        /*<<format.ml:1389:44>>*/ return pp_print_as_size
-               (ppf, size$0, caml_call2(Stdlib_String[1], 1, c$0)) /*<<format.ml:1410:34>>*/ ;
+        /*<<format.ml:1389:43>>*/ return pp_print_as_size
+               (ppf,
+                size$0,
+                 /*<<format.ml:1389:44>>*/ caml_call2
+                 (Stdlib_String[1], 1, c$0)) /*<<format.ml:1410:34>>*/ ;
       }
        /*<<format.ml:1406:32>>*/ strput_acc(ppf, p$3);
-      return pp_print_char(ppf, c) /*<<format.ml:1410:34>>*/ ;
+       /*<<format.ml:1406:48>>*/ return pp_print_char(ppf, c) /*<<format.ml:1410:34>>*/ ;
      }
       /*<<format.ml:1384:4>>*/ strput_acc(ppf, p$2);
-     return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
+      /*<<format.ml:1385:43>>*/ return pp_print_as_size(ppf, size, s$0) /*<<format.ml:1410:34>>*/ ;
     }
      /*<<format.ml:1404:32>>*/ strput_acc(ppf, p$1);
-    return pp_print_string(ppf, s) /*<<format.ml:1410:34>>*/ ;
+     /*<<format.ml:1404:48>>*/ return pp_print_string(ppf, s) /*<<format.ml:1410:34>>*/ ;
    }
    function kfprintf(k, ppf, param){
-    var fmt = param[1];
+    var fmt =  /*<<format.ml:1418:13>>*/ param[1];
      /*<<format.ml:1419:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
                /*<<format.ml:1420:16>>*/ output_acc(ppf, acc);
-              return caml_call1(k, ppf) /*<<format.ml:1420:41>>*/ ;
+               /*<<format.ml:1420:34>>*/ return caml_call1(k, ppf) /*<<format.ml:1420:41>>*/ ;
              },
              0,
              fmt) /*<<format.ml:1421:18>>*/ ;
    }
    function ikfprintf(k, ppf, param){
-    var fmt = param[1];
+    var fmt =  /*<<format.ml:1423:14>>*/ param[1];
      /*<<format.ml:1424:2>>*/ return caml_call3
             (CamlinternalFormat[8], k, ppf, fmt) /*<<format.ml:1424:24>>*/ ;
    }
    function ifprintf(ppf, param){
-    var fmt = param[1];
+    var fmt =  /*<<format.ml:1426:13>>*/ param[1];
      /*<<format.ml:1427:2>>*/ return caml_call3
             (CamlinternalFormat[8],
              function(_u_){ /*<<?>>*/ return 0;},
@@ -28215,11 +29087,11 @@
       /*<<?>>*/ return kfprintf(_r_, ppf, _s_);} /*<<format.ml:1429:18>>*/ ;
     /*<<format.ml:1429:37>>*/ }
    function printf(param){
-    var fmt = param[1];
+    var fmt =  /*<<format.ml:1431:11>>*/ param[1];
      /*<<format.ml:1432:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1433:16>>*/ return output_acc
+               /*<<format.ml:1433:16>>*/ return  /*<<format.ml:1433:54>>*/ output_acc
                       ( /*<<format.ml:1433:27>>*/ caml_call1
                         (Stdlib_Domain[10][2], std_formatter_key),
                        acc) /*<<format.ml:1433:58>>*/ ;
@@ -28228,11 +29100,11 @@
              fmt) /*<<format.ml:1434:18>>*/ ;
    }
    function eprintf(param){
-    var fmt = param[1];
+    var fmt =  /*<<format.ml:1436:12>>*/ param[1];
      /*<<format.ml:1437:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1438:16>>*/ return output_acc
+               /*<<format.ml:1438:16>>*/ return  /*<<format.ml:1438:54>>*/ output_acc
                       ( /*<<format.ml:1438:27>>*/ caml_call1
                         (Stdlib_Domain[10][2], err_formatter_key),
                        acc) /*<<format.ml:1438:58>>*/ ;
@@ -28241,15 +29113,14 @@
              fmt) /*<<format.ml:1439:18>>*/ ;
    }
    function kdprintf(k, param){
-    var fmt = param[1];
+    var fmt =  /*<<format.ml:1441:13>>*/ param[1];
      /*<<format.ml:1442:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1443:16>>*/ return  /*<<format.ml:1443:18>>*/ caml_call1
+               /*<<format.ml:1443:16>>*/ return caml_call1
                       (k,
                        function(ppf){
-                         /*<<format.ml:1443:30>>*/ return  /*<<format.ml:1443:16>>*/ output_acc
-                                (ppf, acc) /*<<format.ml:1443:48>>*/ ;
+                         /*<<format.ml:1443:30>>*/ return output_acc(ppf, acc) /*<<format.ml:1443:48>>*/ ;
                        }) /*<<format.ml:1443:49>>*/ ;
              },
              0,
@@ -28264,13 +29135,13 @@
    }
    function ksprintf(k, param){
     var
-     fmt = param[1],
+     fmt =  /*<<format.ml:1448:13>>*/ param[1],
      b =  /*<<format.ml:1449:10>>*/ pp_make_buffer(0),
      ppf =  /*<<format.ml:1450:12>>*/ formatter_of_buffer(b);
     function k$0(acc){
       /*<<format.ml:1452:4>>*/ strput_acc(ppf, acc);
-      /*<<format.ml:1453:6>>*/ return caml_call1
-             (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
+      /*<<format.ml:1453:36>>*/ return caml_call1
+             (k,  /*<<format.ml:1453:6>>*/ flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
     }
      /*<<format.ml:1454:2>>*/ return caml_call3
             (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1454:30>>*/ ;
@@ -28280,13 +29151,13 @@
    }
    function kasprintf(k, param){
     var
-     fmt = param[1],
+     fmt =  /*<<format.ml:1459:14>>*/ param[1],
      b =  /*<<format.ml:1460:10>>*/ pp_make_buffer(0),
      ppf =  /*<<format.ml:1461:12>>*/ formatter_of_buffer(b);
     function k$0(acc){
       /*<<format.ml:1463:4>>*/ output_acc(ppf, acc);
-      /*<<format.ml:1464:6>>*/ return caml_call1
-             (k, flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
+      /*<<format.ml:1464:36>>*/ return caml_call1
+             (k,  /*<<format.ml:1464:6>>*/ flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
     }
      /*<<format.ml:1465:2>>*/ return caml_call3
             (CamlinternalFormat[7], k$0, 0, fmt) /*<<format.ml:1465:30>>*/ ;
@@ -28299,7 +29170,7 @@
      ( /*<<format.ml:1473:17>>*/ caml_call1
        (Stdlib_Domain[10][2], std_formatter_key),
       0);
-     /*<<format.ml:1473:2>>*/ return pp_print_flush
+     /*<<format.ml:1474:44>>*/ return pp_print_flush
             ( /*<<format.ml:1474:17>>*/ caml_call1
               (Stdlib_Domain[10][2], err_formatter_key),
              0) /*<<format.ml:1474:47>>*/ ;
@@ -28314,8 +29185,8 @@
        fs =
           /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
           (std_formatter, 0),
-       _h_ = Stdlib[39];
-       /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
+       _h_ =  /*<<format.ml:1481:2>>*/ Stdlib[39];
+      pp_set_formatter_out_functions
        (std_formatter,
         [0,
          function(_o_, _p_, _q_){
@@ -28329,8 +29200,8 @@
        fs$0 =
           /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
           (err_formatter, 0),
-       _i_ = Stdlib[40];
-       /*<<format.ml:1487:4>>*/ return pp_set_formatter_out_functions
+       _i_ =  /*<<format.ml:1486:2>>*/ Stdlib[40];
+       /*<<format.ml:1487:57>>*/ return pp_set_formatter_out_functions
               (err_formatter,
                [0,
                 function(_k_, _l_, _m_){
@@ -28346,7 +29217,7 @@
      });
    var
     Stdlib_Format =
-      [0,
+       /*<<format.ml:1489:1>>*/ [0,
        pp_open_box,
        open_box,
        pp_close_box,
@@ -28575,18 +29446,19 @@
    function next_char(ib){
      /*<<scanf.ml:165:4>>*/ try{
      var c =  /*<<scanf.ml:166:14>>*/ caml_call1(ib[7], 0);
-     ib[2] = c;
-     ib[3] = 1;
-     ib[4] = ib[4] + 1 | 0;
-     if(10 === c) ib[5] = ib[5] + 1 | 0;
-      /*<<scanf.ml:171:6>>*/ return c;
+      /*<<scanf.ml:167:6>>*/ ib[2] = c;
+      /*<<scanf.ml:168:6>>*/ ib[3] = 1;
+      /*<<scanf.ml:169:6>>*/ ib[4] = ib[4] + 1 | 0;
+      /*<<scanf.ml:170:6>>*/ if(10 === c)
+       /*<<scanf.ml:170:23>>*/ ib[5] = ib[5] + 1 | 0;
+     return c;
     }
     catch(_aY_){
      var _aX_ = caml_wrap_exception(_aY_);
      if(_aX_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_aX_, 0);
-     ib[2] = null_char;
-     ib[3] = 0;
-     ib[1] = 1;
+      /*<<scanf.ml:174:6>>*/ ib[2] = null_char;
+      /*<<scanf.ml:175:6>>*/ ib[3] = 0;
+      /*<<scanf.ml:176:6>>*/ ib[1] = 1;
       /*<<scanf.ml:177:6>>*/ return null_char;
     }
     /*<<scanf.ml:177:7>>*/ }
@@ -28597,19 +29469,19 @@
    }
    function checked_peek_char(ib){
     var c =  /*<<scanf.ml:192:12>>*/ peek_char(ib);
-    if(ib[1])
+     /*<<scanf.ml:193:4>>*/ if(ib[1])
       /*<<scanf.ml:193:22>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
      /*<<scanf.ml:194:4>>*/ return c;
     /*<<scanf.ml:194:5>>*/ }
    function end_of_input(ib){
      /*<<scanf.ml:198:4>>*/  /*<<scanf.ml:198:11>>*/ peek_char(ib);
-    return ib[1];
+     /*<<scanf.ml:199:4>>*/ return ib[1];
     /*<<scanf.ml:199:13>>*/ }
    function beginning_of_input(ib){
      /*<<scanf.ml:204:30>>*/ return 0 === ib[4] ? 1 : 0;
     /*<<scanf.ml:204:50>>*/ }
    function name_of_input(ib){
-    var match = ib[9];
+    var match =  /*<<scanf.ml:207:4>>*/ ib[9];
     if(typeof match === "number")
      return 0 === match ? cst_unnamed_function : cst_unnamed_character_string /*<<scanf.ml:211:47>>*/ ;
     if(0 === match[0])
@@ -28626,22 +29498,22 @@
     /*<<scanf.ml:224:71>>*/ }
    function token_string(ib){
     var
-     token_buffer = ib[8],
+     token_buffer =  /*<<scanf.ml:227:4>>*/ ib[8],
      tok =  /*<<scanf.ml:228:14>>*/ caml_call1(Stdlib_Buffer[2], token_buffer);
      /*<<scanf.ml:229:4>>*/ caml_call1(Stdlib_Buffer[8], token_buffer);
-    ib[6] = ib[6] + 1 | 0;
+     /*<<scanf.ml:229:29>>*/ ib[6] = ib[6] + 1 | 0;
      /*<<scanf.ml:231:4>>*/ return tok;
     /*<<scanf.ml:231:7>>*/ }
    function ignore_char(width, ib){
-    var width$0 = width - 1 | 0;
+    var width$0 =  /*<<scanf.ml:241:29>>*/ width - 1 | 0;
      /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
-    return width$0;
+     /*<<scanf.ml:237:30>>*/ return width$0;
     /*<<scanf.ml:241:53>>*/ }
    function store_char(width, ib, c){
      /*<<scanf.ml:244:4>>*/ caml_call2(Stdlib_Buffer[12], ib[8], c);
-    return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
+     /*<<scanf.ml:244:40>>*/ return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
    }
-   var default_token_buffer_size =  /*<<scanf.ml:243:17>>*/ 1024;
+   var default_token_buffer_size = 1024;
    function create(iname, next){
      /*<<scanf.ml:250:26>>*/ return [0,
             0,
@@ -28653,11 +29525,11 @@
             next,
              /*<<scanf.ml:258:22>>*/ caml_call1
              (Stdlib_Buffer[1], default_token_buffer_size),
-            iname] /*<<scanf.ml:250:26>>*/ ;
+            iname] /*<<scanf.ml:258:61>>*/ ;
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
     var
-     i =  /*<<scanf.ml:264:12>>*/ [0, 0],
+     i =  /*<<scanf.ml:264:4>>*/ [0, 0],
      len =  /*<<scanf.ml:265:4>>*/ caml_ml_string_length(s);
     function next(param){
       /*<<scanf.ml:267:6>>*/ if(len <= i[1])
@@ -28669,12 +29541,12 @@
      /*<<scanf.ml:270:7>>*/ }
      /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
    }
-   var _a_ =  /*<<scanf.ml:263:18>>*/ 0;
+   var _a_ = 0;
    function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
-   var len =  /*<<scanf.ml:274:22>>*/ 1024;
+   var len =  /*<<scanf.ml:274:42>>*/ 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/ caml_call1(Stdlib[93], ic);
-     /*<<scanf.ml:320:49>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
+     /*<<scanf.ml:320:47>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
     /*<<scanf.ml:320:66>>*/ }
    function scan_raise_at_end(ic){
      /*<<scanf.ml:324:30>>*/ throw caml_maybe_attach_backtrace(Stdlib[12], 1);
@@ -28682,21 +29554,25 @@
    function from_ic(scan_close_ic, iname, ic){
     var
      buf =  /*<<scanf.ml:328:14>>*/ runtime.caml_create_bytes(1024),
-     i =  /*<<scanf.ml:329:12>>*/ [0, 0],
-     lim =  /*<<scanf.ml:330:14>>*/ [0, 0],
-     eof =  /*<<scanf.ml:331:14>>*/ [0, 0];
+     i =  /*<<scanf.ml:329:4>>*/ [0, 0],
+     lim =  /*<<scanf.ml:330:4>>*/ [0, 0],
+     eof =  /*<<scanf.ml:331:4>>*/ [0, 0];
     function next(param){
       /*<<scanf.ml:333:6>>*/ if(i[1] < lim[1]){
       var c =  /*<<scanf.ml:333:38>>*/ caml_bytes_get(buf, i[1]);
        /*<<scanf.ml:333:58>>*/ i[1]++;
        /*<<scanf.ml:333:66>>*/ return c;
      }
-     if(eof[1])
+      /*<<scanf.ml:334:6>>*/ if(eof[1])
        /*<<scanf.ml:334:19>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[12], 1);
-     lim[1] =  /*<<scanf.ml:335:15>>*/ caml_call4(Stdlib[84], ic, buf, 0, len);
-     return 0 === lim[1]
-             ? (eof[1] = 1, caml_call1(scan_close_ic, ic))
+      /*<<scanf.ml:335:33>>*/ lim[1] =
+       /*<<scanf.ml:335:15>>*/ caml_call4(Stdlib[84], ic, buf, 0, len);
+      /*<<scanf.ml:336:8>>*/ return 0 === lim[1]
+             ? (eof
+                [1]
+               = 1,
+                /*<<scanf.ml:336:44>>*/ caml_call1(scan_close_ic, ic))
              : (i[1] = 1,  /*<<scanf.ml:338:10>>*/ caml_bytes_get(buf, 0)) /*<<scanf.ml:340:9>>*/ ;
     }
      /*<<scanf.ml:341:4>>*/ return create(iname, next) /*<<scanf.ml:341:21>>*/ ;
@@ -28707,19 +29583,19 @@
        (scan_raise_at_end, [1, cst, Stdlib[38]], Stdlib[38]);
    function open_in_file(open_in, fname){
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
-      /*<<scanf.ml:363:4>>*/ return stdin;
+      /*<<scanf.ml:368:13>>*/ return stdin;
     var ic =  /*<<scanf.ml:370:15>>*/ caml_call1(open_in, fname);
     return from_ic(scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
    }
-   var _b_ =  /*<<scanf.ml:366:19>>*/ Stdlib[79];
+   var _b_ =  /*<<scanf.ml:364:50>>*/ Stdlib[79];
    function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
-   var _c_ =  /*<<scanf.ml:374:16>>*/ Stdlib[80];
+   var _c_ =  /*<<scanf.ml:374:43>>*/ Stdlib[80];
    function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
    function from_channel(ic){
      /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic) /*<<scanf.ml:381:45>>*/ ;
    }
    function close_in(ib){
-    var match = ib[9];
+    var match =  /*<<scanf.ml:385:4>>*/ ib[9];
     if(typeof match === "number")  /*<<scanf.ml:389:37>>*/ return 0;
     if(0 === match[0]){
      var ic = match[1];
@@ -28730,7 +29606,7 @@
    }
    var
     Scan_failure =
-       /*<<scanf.ml:403:0>>*/ [248,
+       /*<<scanf.ml:375:51>>*/ [248,
        "Stdlib.Scanf.Scan_failure",
        runtime.caml_fresh_oo_id(0)],
     _d_ =
@@ -28822,18 +29698,19 @@
            ([0, Scan_failure, s], 1);
     /*<<scanf.ml:405:40>>*/ }
    function bad_input_escape(c){
-     /*<<scanf.ml:408:2>>*/ return  /*<<scanf.ml:408:12>>*/ bad_input
-            (caml_call2(Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
+     /*<<scanf.ml:408:2>>*/ return  /*<<scanf.ml:408:60>>*/ bad_input
+            ( /*<<scanf.ml:408:12>>*/ caml_call2(Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
    }
    function bad_token_length(message){
-     /*<<scanf.ml:412:2>>*/ return  /*<<scanf.ml:413:4>>*/ bad_input
-            (caml_call2(Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
+     /*<<scanf.ml:412:2>>*/ return  /*<<scanf.ml:416:15>>*/ bad_input
+            ( /*<<scanf.ml:413:4>>*/ caml_call2
+              (Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
    }
    function bad_hex_float(param){
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
    }
    function character_mismatch(c, ci){
-     /*<<scanf.ml:440:2>>*/ return  /*<<scanf.ml:440:12>>*/ bad_input
+     /*<<scanf.ml:440:2>>*/ return  /*<<scanf.ml:440:41>>*/ bad_input
             ( /*<<scanf.ml:436:2>>*/ caml_call3(Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
    }
    function check_char(ib, c$0){
@@ -28845,7 +29722,7 @@
                === ci
                ? ( /*<<scanf.ml:482:12>>*/ invalidate_current_char
                   (ib),
-                 check_this_char(ib, 10))
+                  /*<<scanf.ml:482:47>>*/ check_this_char(ib, 10))
                :  /*<<scanf.ml:483:9>>*/ character_mismatch(10, ci) /*<<scanf.ml:471:29>>*/ ;
     }
     if(32 !== c$0)
@@ -28853,7 +29730,7 @@
      /*<<scanf.ml:444:2>>*/ for(;;){
      var
       c =  /*<<scanf.ml:444:10>>*/ peek_char(ib),
-      _aS_ =  /*<<scanf.ml:445:9>>*/ 1 - ib[1];
+      _aS_ =  /*<<scanf.ml:445:26>>*/ 1 - ib[1];
      if(! _aS_) return _aS_;
      var _aT_ =  /*<<scanf.ml:445:32>>*/ c - 9 | 0;
      a:
@@ -28869,7 +29746,7 @@
     /*<<scanf.ml:471:29>>*/ }
    function check_this_char(ib, c){
     var ci =  /*<<scanf.ml:474:11>>*/ checked_peek_char(ib);
-    return ci === c
+     /*<<scanf.ml:475:2>>*/ return ci === c
             ?  /*<<scanf.ml:475:17>>*/ invalidate_current_char(ib)
             :  /*<<scanf.ml:476:2>>*/ character_mismatch(c, ci) /*<<scanf.ml:476:25>>*/ ;
    }
@@ -28878,11 +29755,11 @@
    }
    function token_bool(ib){
     var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
-    return s !== "false"
+     /*<<scanf.ml:493:25>>*/ return s !== "false"
             ? s
               !== "true"
-              ?  /*<<scanf.ml:496:19>>*/ bad_input
-                (caml_call2(Stdlib_Printf[4], _h_, s))
+              ?  /*<<scanf.ml:496:60>>*/ bad_input
+                ( /*<<scanf.ml:496:19>>*/ caml_call2(Stdlib_Printf[4], _h_, s))
               : 1
             : 0 /*<<scanf.ml:496:60>>*/ ;
    }
@@ -28947,9 +29824,9 @@
      /*<<scanf.ml:575:2>>*/ for(;;){
      if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
      var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
-      /*<<scanf.ml:577:5>>*/ if(ib[1])
+      /*<<scanf.ml:577:20>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0;
-     if(58 <= c){
+      /*<<scanf.ml:578:2>>*/ if(58 <= c){
       if(95 === c){
        var width$1 =  /*<<scanf.ml:583:16>>*/ ignore_char(width$0, ib);
        width$0 = width$1;
@@ -28968,9 +29845,9 @@
      /*<<scanf.ml:589:2>>*/ if(0 === width)
       /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
     var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
-    if(9 < c - 48 >>> 0)
-      /*<<scanf.ml:596:14>>*/ return bad_input
-             (caml_call2(Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
+     /*<<scanf.ml:591:2>>*/ if(9 < c - 48 >>> 0)
+      /*<<scanf.ml:596:70>>*/ return bad_input
+             ( /*<<scanf.ml:596:14>>*/ caml_call2(Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
     var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
      /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib) /*<<scanf.ml:596:70>>*/ ;
    }
@@ -28978,17 +29855,20 @@
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
       /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits) /*<<scanf.ml:626:77>>*/ ;
     var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
-     /*<<scanf.ml:622:5>>*/ if(! caml_call1(digitp, c$0))
-      /*<<scanf.ml:626:14>>*/ return bad_input
-             (caml_call3(Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
+     /*<<scanf.ml:622:13>>*/ if
+     (!  /*<<scanf.ml:622:5>>*/ caml_call1(digitp, c$0))
+      /*<<scanf.ml:626:77>>*/ return bad_input
+             ( /*<<scanf.ml:626:14>>*/ caml_call3
+               (Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
     var
      width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
      width = width$3;
      /*<<scanf.ml:603:4>>*/ for(;;){
      if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
      var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
-      /*<<scanf.ml:605:7>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
-      /*<<scanf.ml:607:13>>*/ if(caml_call1(digitp, c)){
+      /*<<scanf.ml:605:22>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
+      /*<<scanf.ml:607:21>>*/ if
+      ( /*<<scanf.ml:607:13>>*/ caml_call1(digitp, c)){
       var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
       width = width$0;
      }
@@ -29020,7 +29900,7 @@
    function scan_sign(width, ib){
     var
      c =  /*<<scanf.ml:654:10>>*/ checked_peek_char(ib),
-     switcher = c - 43 | 0;
+     switcher =  /*<<scanf.ml:655:2>>*/ c - 43 | 0;
     if(2 >= switcher >>> 0)
      switch(switcher){
        case 0:
@@ -29046,17 +29926,17 @@
        var
         width$0 =  /*<<scanf.ml:686:14>>*/ scan_sign(width$1, ib),
         c =  /*<<scanf.ml:671:8>>*/ checked_peek_char(ib);
-       if(48 !== c)
+        /*<<scanf.ml:671:37>>*/ if(48 !== c)
          /*<<scanf.ml:682:9>>*/ return scan_decimal_digit_plus(width$0, ib) /*<<scanf.ml:697:49>>*/ ;
        var width =  /*<<scanf.ml:673:16>>*/ store_char(width$0, ib, c);
         /*<<scanf.ml:674:4>>*/ if(0 === width)
          /*<<scanf.ml:674:22>>*/ return width;
        var c$0 =  /*<<scanf.ml:675:12>>*/ peek_char(ib);
-        /*<<scanf.ml:676:7>>*/ if(ib[1])
+        /*<<scanf.ml:676:22>>*/ if(ib[1])
          /*<<scanf.ml:676:28>>*/ return width;
        a:
        {
-        if(99 <= c$0){
+         /*<<scanf.ml:677:4>>*/ if(99 <= c$0){
          if(111 === c$0)
           return scan_digit_plus
                   (cst_octal,
@@ -29093,21 +29973,22 @@
      /*<<scanf.ml:704:2>>*/ if(0 === width)
       /*<<scanf.ml:704:20>>*/ return width;
     var c =  /*<<scanf.ml:705:10>>*/ peek_char(ib);
-     /*<<scanf.ml:706:5>>*/ return ib[1]
+     /*<<scanf.ml:706:20>>*/ return ib[1]
             ? width
             : 9
               < c - 48 >>> 0
               ? width
-              :  /*<<scanf.ml:709:4>>*/ scan_decimal_digit_star
+              :  /*<<scanf.ml:709:60>>*/ scan_decimal_digit_star
                 ( /*<<scanf.ml:709:28>>*/ store_char(width, ib, c), ib) /*<<scanf.ml:710:14>>*/ ;
    }
    function scan_exponent_part(width, ib){
      /*<<scanf.ml:715:2>>*/ if(0 === width)
       /*<<scanf.ml:715:20>>*/ return width;
     var c =  /*<<scanf.ml:716:10>>*/ peek_char(ib);
-     /*<<scanf.ml:717:5>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
-    if(69 !== c && 101 !== c)  /*<<scanf.ml:721:9>>*/ return width;
-     /*<<scanf.ml:720:4>>*/ return scan_optionally_signed_decimal
+     /*<<scanf.ml:717:20>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
+     /*<<scanf.ml:718:2>>*/ if(69 !== c && 101 !== c)
+      /*<<scanf.ml:721:9>>*/ return width;
+     /*<<scanf.ml:720:71>>*/ return scan_optionally_signed_decimal
             ( /*<<scanf.ml:720:39>>*/ store_char(width, ib, c), ib) /*<<scanf.ml:721:14>>*/ ;
    }
    function scan_float(width$1, precision, ib){
@@ -29117,39 +29998,40 @@
      /*<<scanf.ml:766:2>>*/ if(0 === width$0)
       /*<<scanf.ml:766:20>>*/ return [0, width$0, precision];
     var c =  /*<<scanf.ml:767:10>>*/ peek_char(ib);
-     /*<<scanf.ml:768:5>>*/ if(ib[1])
+     /*<<scanf.ml:768:20>>*/ if(ib[1])
       /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
-    if(46 !== c)
-      /*<<scanf.ml:776:4>>*/ return [0,
-             scan_exponent_part(width$0, ib),
-             precision];
+     /*<<scanf.ml:769:2>>*/ if(46 !== c)
+      /*<<scanf.ml:776:31>>*/ return [0,
+              /*<<scanf.ml:776:4>>*/ scan_exponent_part(width$0, ib),
+             precision] /*<<scanf.ml:776:31>>*/ ;
     var
      width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
      precision$0 =
         /*<<scanf.ml:772:20>>*/ caml_call2(Stdlib_Int[10], width$2, precision),
      width$3 =
-       width$2
+        /*<<scanf.ml:773:70>>*/ width$2
        -
         (precision$0
         -  /*<<scanf.ml:773:37>>*/ scan_fractional_part(precision$0, ib)
         | 0)
        | 0;
-     /*<<scanf.ml:774:4>>*/ return [0,
-            scan_exponent_part(width$3, ib),
-            precision$0];
+     /*<<scanf.ml:774:31>>*/ return [0,
+             /*<<scanf.ml:774:4>>*/ scan_exponent_part(width$3, ib),
+            precision$0] /*<<scanf.ml:774:31>>*/ ;
     /*<<scanf.ml:776:42>>*/ }
    function check_case_insensitive_string(width, ib, error, str){
     function lowercase(c){
       /*<<scanf.ml:781:4>>*/ return 25 < c - 65 >>> 0
              ? c
-             : caml_call1(Stdlib[29], (c - 65 | 0) + 97 | 0) /*<<scanf.ml:784:12>>*/ ;
+             :  /*<<scanf.ml:783:6>>*/ caml_call1
+               (Stdlib[29], (c - 65 | 0) + 97 | 0) /*<<scanf.ml:784:12>>*/ ;
     }
     var
      len =  /*<<scanf.ml:785:2>>*/ caml_ml_string_length(str),
-     width$0 =  /*<<scanf.ml:786:14>>*/ [0, width],
+     width$0 =  /*<<scanf.ml:786:2>>*/ [0, width],
      _aK_ =  /*<<scanf.ml:787:2>>*/ len - 1 | 0,
-     _aJ_ =  /*<<scanf.ml:786:14>>*/ 0;
-    if(_aK_ >= 0){
+     _aJ_ =  /*<<scanf.ml:786:2>>*/ 0;
+     /*<<scanf.ml:787:2>>*/ if(_aK_ >= 0){
      var i = _aJ_;
      for(;;){
       var
@@ -29157,43 +30039,45 @@
        _aL_ =
           /*<<scanf.ml:789:22>>*/ lowercase
           ( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
-      if( /*<<scanf.ml:789:7>>*/ lowercase(c) !== _aL_)
+       /*<<scanf.ml:789:18>>*/ if
+       ( /*<<scanf.ml:789:7>>*/ lowercase(c) !== _aL_)
         /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
       if(0 === width$0[1])  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
-      width$0[1] =  /*<<scanf.ml:791:13>>*/ store_char(width$0[1], ib, c);
-      var _aM_ =  /*<<scanf.ml:787:2>>*/ i + 1 | 0;
+       /*<<scanf.ml:791:44>>*/ width$0[1] =
+        /*<<scanf.ml:791:13>>*/ store_char(width$0[1], ib, c);
+      var _aM_ =  /*<<scanf.ml:791:44>>*/ i + 1 | 0;
       if(_aK_ === i) break;
       i = _aM_;
      }
     }
-    return width$0[1];
+     /*<<scanf.ml:793:2>>*/ return width$0[1];
     /*<<scanf.ml:793:8>>*/ }
    function scan_hex_float(width, precision, ib){
     var
-     _aw_ = 0 === width ? 1 : 0,
+     _aw_ =  /*<<scanf.ml:797:2>>*/ 0 === width ? 1 : 0,
      _ax_ = _aw_ ||  /*<<scanf.ml:797:18>>*/ end_of_input(ib);
     if(_ax_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
     var
      width$0 =  /*<<scanf.ml:798:14>>*/ scan_sign(width, ib),
-     _ay_ = 0 === width$0 ? 1 : 0,
+     _ay_ =  /*<<scanf.ml:799:2>>*/ 0 === width$0 ? 1 : 0,
      _az_ = _ay_ ||  /*<<scanf.ml:799:18>>*/ end_of_input(ib);
     if(_az_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
     var c =  /*<<scanf.ml:800:8>>*/ peek_char(ib);
     a:
     {
-     if(78 <= c){
+      /*<<scanf.ml:800:29>>*/ if(78 <= c){
       var switcher = c - 79 | 0;
       if(30 < switcher >>> 0){
        if(32 <= switcher) break a;
        var
         width$1 =  /*<<scanf.ml:830:16>>*/ store_char(width$0, ib, c),
-        _aA_ = 0 === width$1 ? 1 : 0,
+        _aA_ =  /*<<scanf.ml:831:4>>*/ 0 === width$1 ? 1 : 0,
         _aB_ = _aA_ ||  /*<<scanf.ml:831:20>>*/ end_of_input(ib);
        if(_aB_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-        /*<<scanf.ml:831:50>>*/ return check_case_insensitive_string
+       return check_case_insensitive_string
                (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
       }
       if(26 !== switcher) break a;
@@ -29202,7 +30086,7 @@
       if(48 === c){
        var
         width$3 =  /*<<scanf.ml:802:16>>*/ store_char(width$0, ib, c),
-        _aE_ = 0 === width$3 ? 1 : 0,
+        _aE_ =  /*<<scanf.ml:803:4>>*/ 0 === width$3 ? 1 : 0,
         _aF_ = _aE_ ||  /*<<scanf.ml:803:20>>*/ end_of_input(ib);
        if(_aF_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
@@ -29212,12 +30096,16 @@
            (width$3, ib, bad_hex_float, cst_x);
         /*<<scanf.ml:805:4>>*/ if
         (0 !== width$4 && !  /*<<scanf.ml:805:20>>*/ end_of_input(ib)){
-        var _aG_ =  /*<<scanf.ml:806:24>>*/ peek_char(ib) - 46 | 0;
+        var
+         _aG_ =
+            /*<<scanf.ml:806:45>>*/  /*<<scanf.ml:806:24>>*/ peek_char(ib)
+           - 46
+           | 0;
         b:
         {
          c:
          {
-          if(34 < _aG_ >>> 0){
+           /*<<scanf.ml:806:45>>*/ if(34 < _aG_ >>> 0){
            if(66 === _aG_) break c;
           }
           else if(32 < _aG_ - 1 >>> 0) break c;
@@ -29231,7 +30119,7 @@
          /*<<scanf.ml:809:6>>*/ if
          (0 !== width$5 && !  /*<<scanf.ml:809:22>>*/ end_of_input(ib)){
          var c$0 =  /*<<scanf.ml:810:26>>*/ peek_char(ib);
-         if(46 === c$0){
+          /*<<scanf.ml:810:47>>*/ if(46 === c$0){
           var width$6 =  /*<<scanf.ml:812:24>>*/ store_char(width$5, ib, c$0);
           b:
           {
@@ -29240,7 +30128,7 @@
             var match =  /*<<scanf.ml:814:20>>*/ peek_char(ib);
             c:
             {
-             if(80 !== match && 112 !== match){
+              /*<<scanf.ml:814:41>>*/ if(80 !== match && 112 !== match){
               var
                precision$0 =
                   /*<<scanf.ml:817:32>>*/ caml_call2
@@ -29270,16 +30158,15 @@
           /*<<scanf.ml:821:8>>*/ if
           (0 !== width$8 && !  /*<<scanf.ml:821:24>>*/ end_of_input(ib)){
           var c$1 =  /*<<scanf.ml:822:16>>*/ peek_char(ib);
-          if(80 !== c$1 && 112 !== c$1)
+           /*<<scanf.ml:822:37>>*/ if(80 !== c$1 && 112 !== c$1)
             /*<<scanf.ml:827:17>>*/ return width$8;
           var
            width$9 =  /*<<scanf.ml:824:24>>*/ store_char(width$8, ib, c$1),
-           _aH_ = 0 === width$9 ? 1 : 0,
+           _aH_ =  /*<<scanf.ml:825:12>>*/ 0 === width$9 ? 1 : 0,
            _aI_ = _aH_ ||  /*<<scanf.ml:825:28>>*/ end_of_input(ib);
           if(_aI_)
             /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-           /*<<scanf.ml:825:58>>*/ return scan_optionally_signed_decimal
-                  (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
+          return scan_optionally_signed_decimal(width$9, ib) /*<<scanf.ml:837:25>>*/ ;
          }
           /*<<scanf.ml:821:54>>*/ return width$8;
         }
@@ -29291,28 +30178,30 @@
      }
      var
       width$2 =  /*<<scanf.ml:834:16>>*/ store_char(width$0, ib, c),
-      _aC_ = 0 === width$2 ? 1 : 0,
+      _aC_ =  /*<<scanf.ml:835:4>>*/ 0 === width$2 ? 1 : 0,
       _aD_ = _aC_ ||  /*<<scanf.ml:835:20>>*/ end_of_input(ib);
      if(_aD_)
        /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-      /*<<scanf.ml:835:50>>*/ return check_case_insensitive_string
+     return check_case_insensitive_string
              (width$2, ib, bad_hex_float, cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
     }
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
    }
    function scan_caml_float_rest(width, precision, ib){
     var
-     _as_ = 0 === width ? 1 : 0,
+     _as_ =  /*<<scanf.ml:841:2>>*/ 0 === width ? 1 : 0,
      _at_ = _as_ ||  /*<<scanf.ml:841:18>>*/ end_of_input(ib);
     if(_at_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
      width$0 =  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star(width, ib),
-     _au_ = 0 === width$0 ? 1 : 0,
+     _au_ =  /*<<scanf.ml:843:2>>*/ 0 === width$0 ? 1 : 0,
      _av_ = _au_ ||  /*<<scanf.ml:843:18>>*/ end_of_input(ib);
     if(_av_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-    var c =  /*<<scanf.ml:844:10>>*/ peek_char(ib), switcher = c - 69 | 0;
+    var
+     c =  /*<<scanf.ml:844:10>>*/ peek_char(ib),
+     switcher =  /*<<scanf.ml:845:2>>*/ c - 69 | 0;
     if(32 < switcher >>> 0){
      if(-23 === switcher){
       var
@@ -29322,8 +30211,8 @@
           (Stdlib_Int[10], width$1, precision),
        width_precision =
           /*<<scanf.ml:853:26>>*/ scan_fractional_part(precision$0, ib),
-       frac_width = precision$0 - width_precision | 0,
-       width$2 = width$1 - frac_width | 0;
+       frac_width =  /*<<scanf.ml:856:4>>*/ precision$0 - width_precision | 0,
+       width$2 =  /*<<scanf.ml:858:4>>*/ width$1 - frac_width | 0;
        /*<<scanf.ml:859:4>>*/ return scan_exponent_part(width$2, ib) /*<<scanf.ml:862:21>>*/ ;
      }
     }
@@ -29333,55 +30222,54 @@
    }
    function scan_caml_float(width, precision, ib){
     var
-     _ae_ = 0 === width ? 1 : 0,
+     _ae_ =  /*<<scanf.ml:866:2>>*/ 0 === width ? 1 : 0,
      _af_ = _ae_ ||  /*<<scanf.ml:866:18>>*/ end_of_input(ib);
     if(_af_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
      width$0 =  /*<<scanf.ml:867:14>>*/ scan_sign(width, ib),
-     _ag_ = 0 === width$0 ? 1 : 0,
+     _ag_ =  /*<<scanf.ml:868:2>>*/ 0 === width$0 ? 1 : 0,
      _ah_ = _ag_ ||  /*<<scanf.ml:868:18>>*/ end_of_input(ib);
     if(_ah_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var c =  /*<<scanf.ml:869:8>>*/ peek_char(ib);
-    if(49 <= c){
+     /*<<scanf.ml:869:29>>*/ if(49 <= c){
      if(58 > c){
       var
        width$1 =  /*<<scanf.ml:903:16>>*/ store_char(width$0, ib, c),
-       _ai_ = 0 === width$1 ? 1 : 0,
+       _ai_ =  /*<<scanf.ml:904:4>>*/ 0 === width$1 ? 1 : 0,
        _aj_ = _ai_ ||  /*<<scanf.ml:904:20>>*/ end_of_input(ib);
       if(_aj_)
         /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-       /*<<scanf.ml:904:50>>*/ return scan_caml_float_rest
-              (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
+      return scan_caml_float_rest(width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      }
     }
     else if(48 <= c){
      var
       width$2 =  /*<<scanf.ml:871:16>>*/ store_char(width$0, ib, c),
-      _ak_ = 0 === width$2 ? 1 : 0,
+      _ak_ =  /*<<scanf.ml:872:4>>*/ 0 === width$2 ? 1 : 0,
       _al_ = _ak_ ||  /*<<scanf.ml:872:20>>*/ end_of_input(ib);
      if(_al_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var c$0 =  /*<<scanf.ml:873:10>>*/ peek_char(ib);
-     if(88 !== c$0 && 120 !== c$0)
+      /*<<scanf.ml:873:31>>*/ if(88 !== c$0 && 120 !== c$0)
        /*<<scanf.ml:900:6>>*/ return scan_caml_float_rest
               (width$2, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      var
       width$3 =  /*<<scanf.ml:875:18>>*/ store_char(width$2, ib, c$0),
-      _am_ = 0 === width$3 ? 1 : 0,
+      _am_ =  /*<<scanf.ml:876:6>>*/ 0 === width$3 ? 1 : 0,
       _an_ = _am_ ||  /*<<scanf.ml:876:22>>*/ end_of_input(ib);
      if(_an_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
       width$10 = scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$3, ib),
-      _ao_ = 0 === width$10 ? 1 : 0,
+      _ao_ =  /*<<scanf.ml:878:6>>*/ 0 === width$10 ? 1 : 0,
       _ap_ = _ao_ ||  /*<<scanf.ml:878:22>>*/ end_of_input(ib);
      if(_ap_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
       c$1 =  /*<<scanf.ml:879:24>>*/ peek_char(ib),
-      switcher = c$1 - 80 | 0;
+      switcher =  /*<<scanf.ml:879:45>>*/ c$1 - 80 | 0;
      a:
      {
       b:
@@ -29396,7 +30284,7 @@
            var match =  /*<<scanf.ml:883:18>>*/ peek_char(ib);
            d:
            {
-            if(80 !== match && 112 !== match){
+             /*<<scanf.ml:883:39>>*/ if(80 !== match && 112 !== match){
              var
               precision$0 =
                  /*<<scanf.ml:886:30>>*/ caml_call2
@@ -29434,15 +30322,15 @@
       /*<<scanf.ml:891:6>>*/ if
       (0 !== width$7 && !  /*<<scanf.ml:891:22>>*/ end_of_input(ib)){
       var c$2 =  /*<<scanf.ml:892:14>>*/ peek_char(ib);
-      if(80 !== c$2 && 112 !== c$2)  /*<<scanf.ml:897:15>>*/ return width$7;
+       /*<<scanf.ml:892:35>>*/ if(80 !== c$2 && 112 !== c$2)
+        /*<<scanf.ml:897:15>>*/ return width$7;
       var
        width$8 =  /*<<scanf.ml:894:22>>*/ store_char(width$7, ib, c$2),
-       _aq_ = 0 === width$8 ? 1 : 0,
+       _aq_ =  /*<<scanf.ml:895:10>>*/ 0 === width$8 ? 1 : 0,
        _ar_ = _aq_ ||  /*<<scanf.ml:895:26>>*/ end_of_input(ib);
       if(_ar_)
         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-       /*<<scanf.ml:895:56>>*/ return scan_optionally_signed_decimal
-              (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
+      return scan_optionally_signed_decimal(width$8, ib) /*<<scanf.ml:910:21>>*/ ;
      }
       /*<<scanf.ml:891:52>>*/ return width$7;
     }
@@ -29453,9 +30341,9 @@
      /*<<scanf.ml:921:4>>*/ for(;;){
      if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
      var c =  /*<<scanf.ml:922:12>>*/ peek_char(ib);
-      /*<<scanf.ml:923:7>>*/ if(ib[1])
+      /*<<scanf.ml:923:22>>*/ if(ib[1])
        /*<<scanf.ml:923:28>>*/ return width$0;
-     if(! stp){
+      /*<<scanf.ml:924:6>>*/ if(! stp){
       var _ad_ =  /*<<scanf.ml:928:8>>*/ c - 9 | 0;
       a:
       {
@@ -29470,9 +30358,9 @@
        /*<<scanf.ml:929:38>>*/ return width$0;
      }
      var c$0 = stp[1];
-     if(c === c$0){
+      /*<<scanf.ml:925:21>>*/ if(c === c$0){
        /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
-      return width$0;
+       /*<<scanf.ml:237:30>>*/ return width$0;
      }
      var width$1 =  /*<<scanf.ml:926:23>>*/ store_char(width$0, ib, c);
      width$0 = width$1;
@@ -29487,30 +30375,33 @@
      /*<<scanf.ml:995:2>>*/ if(0 === width)
       /*<<scanf.ml:995:20>>*/ return bad_token_length(message) /*<<scanf.ml:998:3>>*/ ;
     var c =  /*<<scanf.ml:996:10>>*/ peek_char(ib);
-     /*<<scanf.ml:997:5>>*/ return ib[1]
-            ?  /*<<scanf.ml:421:4>>*/ bad_input
-              (caml_call2(Stdlib_Printf[4], _f_, message))
+     /*<<scanf.ml:997:20>>*/ return ib[1]
+            ?  /*<<scanf.ml:424:15>>*/ bad_input
+              ( /*<<scanf.ml:421:4>>*/ caml_call2
+                (Stdlib_Printf[4], _f_, message))
             : c /*<<scanf.ml:998:3>>*/ ;
    }
    function scan_backslash_char(width, ib){
     var c0 = check_next_char(cst_a_Char, width, ib);
     a:
     {
-     if(40 <= c0){
+      /*<<scanf.ml:1005:41>>*/ if(40 <= c0){
       if(58 > c0){
        if(48 > c0) break a;
        var
         get_digit$0 =
-          function(param){
+           /*<<scanf.ml:1009:4>>*/ function(param){
            var c =  /*<<scanf.ml:1010:14>>*/ next_char(ib);
-           return 9 < c - 48 >>> 0
+            /*<<scanf.ml:1011:6>>*/ return 9 < c - 48 >>> 0
                    ?  /*<<scanf.ml:1013:13>>*/ bad_input_escape(c)
                    : c /*<<scanf.ml:1013:31>>*/ ;
           },
         c1$0 =  /*<<scanf.ml:1015:13>>*/ get_digit$0(0),
         c2$0 =  /*<<scanf.ml:1016:13>>*/ get_digit$0(0),
         c =
-          ((100 * (c0 - 48 | 0) | 0) + (10 * (c1$0 - 48 | 0) | 0) | 0)
+           /*<<scanf.ml:956:34>>*/ ((100 * (c0 - 48 | 0) | 0)
+          + (10 * (c1$0 - 48 | 0) | 0)
+          | 0)
           + (c2$0 - 48 | 0)
           | 0;
        b:
@@ -29521,21 +30412,22 @@
         }
         var
          _ab_ =
-            /*<<scanf.ml:961:6>>*/ bad_input
-            (caml_call4(Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
+            /*<<scanf.ml:962:60>>*/ bad_input
+            ( /*<<scanf.ml:961:6>>*/ caml_call4
+              (Stdlib_Printf[4], _l_, c0, c1$0, c2$0));
        }
-        /*<<scanf.ml:1017:39>>*/ return store_char(width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
+        /*<<scanf.ml:1017:71>>*/ return store_char(width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
       }
-      var switcher =  /*<<scanf.ml:1005:8>>*/ c0 - 92 | 0;
+      var switcher = c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
       switch(switcher){
         case 28:
          var
           get_digit =
-            function(param){
+             /*<<scanf.ml:1019:4>>*/ function(param){
              var
               c =  /*<<scanf.ml:1020:14>>*/ next_char(ib),
-              _ac_ = c - 48 | 0;
+              _ac_ =  /*<<scanf.ml:1021:6>>*/ c - 48 | 0;
              a:
              {
               if(22 < _ac_ >>> 0){
@@ -29550,7 +30442,9 @@
           c2 =  /*<<scanf.ml:1025:13>>*/ get_digit(0),
           ___ =  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char(c2),
           c$0 =
-            (16 *  /*<<scanf.ml:984:9>>*/ hexadecimal_value_of_char(c1) | 0)
+             /*<<scanf.ml:984:37>>*/ (16
+            *  /*<<scanf.ml:984:9>>*/ hexadecimal_value_of_char(c1)
+            | 0)
             + ___
             | 0;
          b:
@@ -29561,10 +30455,11 @@
           }
           var
            _aa_ =
-              /*<<scanf.ml:988:6>>*/ bad_input
-              (caml_call3(Stdlib_Printf[4], _m_, c1, c2));
+              /*<<scanf.ml:988:72>>*/ bad_input
+              ( /*<<scanf.ml:988:6>>*/ caml_call3
+                (Stdlib_Printf[4], _m_, c1, c2));
          }
-          /*<<scanf.ml:1026:39>>*/ return store_char(width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
+          /*<<scanf.ml:1026:72>>*/ return store_char(width - 2 | 0, ib, _aa_) /*<<scanf.ml:1028:22>>*/ ;
         case 0:
         case 6:
         case 18:
@@ -29576,7 +30471,7 @@
      else if(34 !== c0 && 39 > c0) break a;
      b:
      {
-      if(110 <= c0){
+       /*<<scanf.ml:942:25>>*/ if(110 <= c0){
        if(117 > c0)
         switch(c0 - 110 | 0){
           case 0:
@@ -29590,7 +30485,7 @@
       else if(98 === c0){var _$_ = 8; break b;}
       var _$_ = c0;
      }
-      /*<<scanf.ml:1007:33>>*/ return store_char(width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
+      /*<<scanf.ml:1007:55>>*/ return store_char(width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
     }
      /*<<scanf.ml:1028:4>>*/ return bad_input_escape(c0) /*<<scanf.ml:1028:22>>*/ ;
    }
@@ -29599,27 +30494,28 @@
      var width$0 = width;
       /*<<scanf.ml:1063:4>>*/ for(;;){
       var c = check_next_char(cst_a_String, width$0, ib);
-      if(34 === c)
-        /*<<scanf.ml:1057:2>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
+       /*<<scanf.ml:1063:45>>*/ if(34 === c)
+        /*<<scanf.ml:1064:14>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
       if(92 === c){
        var
         width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
         match = check_next_char(cst_a_String, width$1, ib);
-       if(10 === match){
+        /*<<scanf.ml:1069:45>>*/ if(10 === match){
         var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
-        if(counter >= 50)
+         /*<<scanf.ml:1071:57>>*/ if(counter >= 50)
          return caml_trampoline_return(skip_spaces, [0, _Y_]) /*<<scanf.ml:1066:53>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1071:26>>*/ return skip_spaces(counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
+        return skip_spaces(counter$0, _Y_);
        }
        if(13 === match){
         var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
-        if(10 === check_next_char(cst_a_String, width$3, ib)){
+         /*<<scanf.ml:1075:45>>*/ if
+         (10 === check_next_char(cst_a_String, width$3, ib)){
          var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
-         if(counter >= 50)
+          /*<<scanf.ml:1076:57>>*/ if(counter >= 50)
           return caml_trampoline_return(skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
          var counter$1 = counter + 1 | 0;
-          /*<<scanf.ml:1076:26>>*/ return skip_spaces(counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
+         return skip_spaces(counter$1, _Z_);
         }
         var width$5 =  /*<<scanf.ml:1077:21>>*/ store_char(width$3, ib, 13);
         width$0 = width$5;
@@ -29642,34 +30538,38 @@
     function skip_spaces(counter, width){
      var width$0 = width;
       /*<<scanf.ml:1080:4>>*/ for(;;){
-      if(32 !== check_next_char(cst_a_String, width$0, ib)){
+       /*<<scanf.ml:1080:45>>*/ if
+       (32 !== check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
         return caml_trampoline_return(find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<scanf.ml:1082:11>>*/ return find_stop$0(counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
+       return find_stop$0(counter$0, width$0);
       }
       var width$1 =  /*<<scanf.ml:1081:25>>*/ ignore_char(width$0, ib);
       width$0 = width$1;
      }
      /*<<scanf.ml:1082:26>>*/ }
     var c =  /*<<scanf.ml:1058:10>>*/ checked_peek_char(ib);
-    return 34 === c
-            ?  /*<<scanf.ml:1059:24>>*/ find_stop(ignore_char(width, ib))
+     /*<<scanf.ml:1058:39>>*/ return 34 === c
+            ?  /*<<scanf.ml:1059:55>>*/ find_stop
+              ( /*<<scanf.ml:1059:24>>*/ ignore_char(width, ib))
             :  /*<<scanf.ml:1060:11>>*/ character_mismatch(34, c) /*<<scanf.ml:1084:18>>*/ ;
    }
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
      var i$0 = i;
       /*<<scanf.ml:1104:4>>*/ for(;;){
-      var c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib), _U_ = 0 < i$0 ? 1 : 0;
+      var
+       c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib),
+       _U_ =  /*<<scanf.ml:1105:4>>*/ 0 < i$0 ? 1 : 0;
       if(_U_){
-       var _V_ =  /*<<scanf.ml:1105:20>>*/ 1 - ib[1];
+       var _V_ =  /*<<scanf.ml:1105:37>>*/ 1 - ib[1];
        if(_V_)
         var
          _W_ =
             /*<<scanf.ml:1106:7>>*/ caml_call2
             (CamlinternalFormat[1], char_set, c),
-         _X_ = _W_ ? c !== stp ? 1 : 0 : _W_;
+         _X_ =  /*<<scanf.ml:1106:32>>*/ _W_ ? c !== stp ? 1 : 0 : _W_;
        else
         var _X_ = _V_;
       }
@@ -29677,18 +30577,18 @@
        var _X_ = _U_;
       if(! _X_) return _X_;
        /*<<scanf.ml:1108:14>>*/ store_char(Stdlib[19], ib, c);
-      var i$1 = i$0 - 1 | 0;
+      var i$1 =  /*<<scanf.ml:1108:46>>*/ i$0 - 1 | 0;
       i$0 = i$1;
      }
      /*<<scanf.ml:1109:28>>*/ }
-    if(! scan_indic)
+     /*<<scanf.ml:1110:2>>*/ if(! scan_indic)
       /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1) /*<<scanf.ml:1118:34>>*/ ;
     var c = scan_indic[1];
      /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
-    var _T_ =  /*<<scanf.ml:1114:11>>*/ 1 - ib[1];
+    var _T_ =  /*<<scanf.ml:1114:28>>*/ 1 - ib[1];
     if(! _T_) return _T_;
     var ci =  /*<<scanf.ml:1115:15>>*/ peek_char(ib);
-    return c === ci
+     /*<<scanf.ml:1116:6>>*/ return c === ci
             ?  /*<<scanf.ml:1117:11>>*/ invalidate_current_char(ib)
             :  /*<<scanf.ml:1118:11>>*/ character_mismatch(c, ci) /*<<scanf.ml:1118:34>>*/ ;
    }
@@ -29701,8 +30601,8 @@
      var s = x[2];
     }
     var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
-     /*<<scanf.ml:1125:14>>*/ return bad_input
-            (caml_call3(Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
+     /*<<scanf.ml:1125:75>>*/ return bad_input
+            ( /*<<scanf.ml:1125:14>>*/ caml_call3(Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
    }
    function width_of_pad_opt(pad_opt){
      /*<<scanf.ml:1138:31>>*/ if(! pad_opt)
@@ -29768,12 +30668,11 @@
          _R_ =
             /*<<scanf.ml:1195:33>>*/ caml_call1
             (CamlinternalFormatBasics[2], _Q_);
-         /*<<scanf.ml:1195:5>>*/ if(counter >= 50)
+         /*<<scanf.ml:1195:57>>*/ if(counter >= 50)
          return caml_trampoline_return
                  (take_fmtty_format_readers$0, [0, k, _R_, rest$13]) /*<<scanf.ml:1198:45>>*/ ;
         var counter$0 = counter + 1 | 0;
-         /*<<scanf.ml:1195:5>>*/ return take_fmtty_format_readers$0
-                (counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
+        return take_fmtty_format_readers$0(counter$0, k, _R_, rest$13);
        case 15:
         var rest$14 = fmt$0[1]; fmt$0 = rest$14; break;
        case 16:
@@ -29805,7 +30704,7 @@
         var fmt_rest = fmt$0[1];
          /*<<scanf.ml:1163:4>>*/ return function(reader){
          function new_k(readers_rest){
-           /*<<scanf.ml:1164:31>>*/ return  /*<<scanf.ml:1164:33>>*/ caml_call1
+           /*<<scanf.ml:1164:31>>*/ return caml_call1
                   (k, [0, reader, readers_rest]) /*<<scanf.ml:1164:62>>*/ ;
          }
           /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ;} /*<<scanf.ml:1163:4>>*/ ;
@@ -29817,7 +30716,7 @@
         var rest$21 = fmt$0[1]; fmt$0 = rest$21; break;
        case 23:
         var rest$22 = fmt$0[2], ign = fmt$0[1];
-        if(typeof ign === "number")
+         /*<<scanf.ml:1234:17>>*/ if(typeof ign === "number")
          switch(ign){
            case 0:
             fmt$0 = rest$22; break;
@@ -29826,7 +30725,7 @@
            case 2:
              /*<<scanf.ml:1236:4>>*/ return function(reader){
              function new_k(readers_rest){
-               /*<<scanf.ml:1237:31>>*/ return  /*<<scanf.ml:1237:33>>*/ caml_call1
+               /*<<scanf.ml:1237:31>>*/ return caml_call1
                       (k, [0, reader, readers_rest]) /*<<scanf.ml:1237:62>>*/ ;
              }
               /*<<scanf.ml:1238:6>>*/ return take_format_readers
@@ -29859,8 +30758,7 @@
              return caml_trampoline_return
                      (take_fmtty_format_readers$0, [0, k, fmtty$0, rest$22]) /*<<scanf.ml:1198:45>>*/ ;
             var counter$1 = counter + 1 | 0;
-             /*<<scanf.ml:1250:39>>*/ return take_fmtty_format_readers$0
-                    (counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
+            return take_fmtty_format_readers$0(counter$1, k, fmtty$0, rest$22);
            case 10:
             fmt$0 = rest$22; break;
            default: fmt$0 = rest$22;
@@ -29880,8 +30778,7 @@
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
        return caml_trampoline_return(take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
       var counter$0 = counter + 1 | 0;
-       /*<<scanf.ml:1225:35>>*/ return take_format_readers$0
-              (counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
+      return take_format_readers$0(counter$0, k, fmt);
      }
      switch(fmtty$0[0]){
        case 0:
@@ -29927,7 +30824,7 @@
         var fmt_rest = fmtty$0[1];
          /*<<scanf.ml:1206:4>>*/ return function(reader){
          function new_k(readers_rest){
-           /*<<scanf.ml:1207:31>>*/ return  /*<<scanf.ml:1207:33>>*/ caml_call1
+           /*<<scanf.ml:1207:31>>*/ return caml_call1
                   (k, [0, reader, readers_rest]) /*<<scanf.ml:1207:62>>*/ ;
          }
           /*<<scanf.ml:1208:6>>*/ return take_fmtty_format_readers
@@ -29936,7 +30833,7 @@
         var fmt_rest$0 = fmtty$0[1];
          /*<<scanf.ml:1210:4>>*/ return function(reader){
          function new_k(readers_rest){
-           /*<<scanf.ml:1211:31>>*/ return  /*<<scanf.ml:1211:33>>*/ caml_call1
+           /*<<scanf.ml:1211:31>>*/ return caml_call1
                   (k, [0, reader, readers_rest]) /*<<scanf.ml:1211:62>>*/ ;
          }
           /*<<scanf.ml:1212:6>>*/ return take_fmtty_format_readers
@@ -29955,40 +30852,42 @@
      switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
-         /*<<scanf.ml:939:31>>*/ store_char(0, ib, checked_peek_char(ib));
+         /*<<scanf.ml:939:62>>*/ store_char
+         (0, ib,  /*<<scanf.ml:939:31>>*/ checked_peek_char(ib));
         var c$0 =  /*<<scanf.ml:1269:12>>*/ token_char(ib);
-         /*<<scanf.ml:1270:4>>*/ return [0,
+         /*<<scanf.ml:1270:39>>*/ return [0,
                 c$0,
-                 /*<<scanf.ml:1270:13>>*/ make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:4>>*/ ;
+                 /*<<scanf.ml:1270:13>>*/ make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:39>>*/ ;
        case 1:
         var
          rest$0 = fmt$0[1],
          find_stop =
-           function(width){
+            /*<<scanf.ml:1034:2>>*/ function(width){
             var c = check_next_char(cst_a_Char, width, ib);
-            return 39 === c
-                    ?  /*<<scanf.ml:1034:2>>*/ ignore_char(width, ib)
+             /*<<scanf.ml:1047:43>>*/ return 39 === c
+                    ?  /*<<scanf.ml:1048:14>>*/ ignore_char(width, ib)
                     :  /*<<scanf.ml:1049:11>>*/ character_mismatch(39, c) /*<<scanf.ml:1049:36>>*/ ;
            },
          c =  /*<<scanf.ml:1035:10>>*/ checked_peek_char(ib),
          width$0 =  /*<<scanf.ml:1272:4>>*/ 0;
-        if(39 === c){
+         /*<<scanf.ml:1035:39>>*/ if(39 === c){
          var
           width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
           c$3 = check_next_char(cst_a_Char, width, ib);
-         if(92 === c$3)
-           /*<<scanf.ml:1042:16>>*/ find_stop
-           (scan_backslash_char
+          /*<<scanf.ml:1040:43>>*/ if(92 === c$3)
+           /*<<scanf.ml:1042:72>>*/ find_stop
+           ( /*<<scanf.ml:1042:16>>*/ scan_backslash_char
              ( /*<<scanf.ml:1042:37>>*/ ignore_char(width, ib), ib));
          else
-           /*<<scanf.ml:1044:16>>*/ find_stop(store_char(width, ib, c$3));
+           /*<<scanf.ml:1044:48>>*/ find_stop
+           ( /*<<scanf.ml:1044:16>>*/ store_char(width, ib, c$3));
         }
         else
           /*<<scanf.ml:1037:11>>*/ character_mismatch(39, c);
         var c$1 =  /*<<scanf.ml:1273:12>>*/ token_char(ib);
-         /*<<scanf.ml:1274:4>>*/ return [0,
+         /*<<scanf.ml:1274:39>>*/ return [0,
                 c$1,
-                 /*<<scanf.ml:1274:13>>*/ make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:4>>*/ ;
+                 /*<<scanf.ml:1274:13>>*/ make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:39>>*/ ;
        case 2:
         var pad = fmt$0[1], match = fmt$0[2];
         if(typeof match !== "number")
@@ -29999,14 +30898,14 @@
              fmting_lit = match[1],
              match$0 =
                 /*<<scanf.ml:1277:19>>*/ stopper_of_formatting_lit(fmting_lit),
-             str = match$0[2],
+             str =  /*<<scanf.ml:1277:55>>*/ match$0[2],
              stp = match$0[1],
              scan$0 =
-               function(width, param, ib){
+                /*<<scanf.ml:1278:4>>*/ function(width, param, ib){
                  /*<<scanf.ml:1278:26>>*/ return scan_string
                         ([0, stp], width, ib) /*<<scanf.ml:1278:57>>*/ ;
                },
-             str_rest =  /*<<scanf.ml:1279:19>>*/ [11, str, rest$2];
+             str_rest =  /*<<scanf.ml:1279:4>>*/ [11, str, rest$2];
              /*<<scanf.ml:1280:4>>*/ return pad_prec_scanf
                     (ib, str_rest, readers, pad, 0, scan$0, token_string) /*<<scanf.ml:1418:7>>*/ ;
            case 18:
@@ -30019,7 +30918,7 @@
                  /*<<scanf.ml:1282:4>>*/ function(width, param, ib){
                   /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
                 };
-              /*<<scanf.ml:1283:4>>*/ return pad_prec_scanf
+              /*<<scanf.ml:1283:44>>*/ return pad_prec_scanf
                      (ib,
                        /*<<scanf.ml:1283:22>>*/ caml_call2
                        (CamlinternalFormatBasics[3], fmt$1, rest$3),
@@ -30036,7 +30935,7 @@
                 /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
                  /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
                };
-             /*<<scanf.ml:1287:4>>*/ return pad_prec_scanf
+             /*<<scanf.ml:1287:44>>*/ return pad_prec_scanf
                     (ib,
                       /*<<scanf.ml:1287:22>>*/ caml_call2
                       (CamlinternalFormatBasics[3], fmt$2, rest$4),
@@ -30075,11 +30974,11 @@
             ( /*<<scanf.ml:1297:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv)),
          scan$4 =
-           function(width, param, ib){
+            /*<<scanf.ml:1298:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1298:26>>*/ return scan_int_conversion
                     (conv, width, ib) /*<<scanf.ml:1298:56>>*/ ;
            };
-         /*<<scanf.ml:1299:49>>*/ return pad_prec_scanf
+         /*<<scanf.ml:1299:62>>*/ return pad_prec_scanf
                 (ib,
                  rest$6,
                  readers,
@@ -30087,8 +30986,8 @@
                  prec,
                  scan$4,
                  function(ib){
-                   /*<<scanf.ml:537:24>>*/ return caml_int_of_string
-                          ( /*<<scanf.ml:537:38>>*/ token_int_literal(conv, ib)) /*<<scanf.ml:537:24>>*/ ;
+                   /*<<scanf.ml:537:65>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
+                          ( /*<<scanf.ml:537:38>>*/ token_int_literal(conv, ib)) /*<<scanf.ml:537:65>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 5:
         var
@@ -30101,11 +31000,11 @@
             ( /*<<scanf.ml:1301:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$0)),
          scan$5 =
-           function(width, param, ib){
+            /*<<scanf.ml:1302:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1302:26>>*/ return scan_int_conversion
                     (conv$0, width, ib) /*<<scanf.ml:1302:56>>*/ ;
            };
-         /*<<scanf.ml:1303:49>>*/ return pad_prec_scanf
+         /*<<scanf.ml:1303:64>>*/ return pad_prec_scanf
                 (ib,
                  rest$7,
                  readers,
@@ -30113,8 +31012,8 @@
                  prec$0,
                  scan$5,
                  function(ib){
-                   /*<<scanf.ml:558:26>>*/ return caml_int_of_string
-                          ( /*<<scanf.ml:558:42>>*/ token_int_literal(conv$0, ib)) /*<<scanf.ml:558:26>>*/ ;
+                   /*<<scanf.ml:558:69>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
+                          ( /*<<scanf.ml:558:42>>*/ token_int_literal(conv$0, ib)) /*<<scanf.ml:558:69>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 6:
         var
@@ -30127,11 +31026,11 @@
             ( /*<<scanf.ml:1305:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$1)),
          scan$6 =
-           function(width, param, ib){
+            /*<<scanf.ml:1306:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1306:26>>*/ return scan_int_conversion
                     (conv$1, width, ib) /*<<scanf.ml:1306:56>>*/ ;
            };
-         /*<<scanf.ml:1307:49>>*/ return pad_prec_scanf
+         /*<<scanf.ml:1307:68>>*/ return pad_prec_scanf
                 (ib,
                  rest$8,
                  readers,
@@ -30139,8 +31038,8 @@
                  prec$1,
                  scan$6,
                  function(ib){
-                   /*<<scanf.ml:557:30>>*/ return caml_int_of_string
-                          ( /*<<scanf.ml:557:50>>*/ token_int_literal(conv$1, ib)) /*<<scanf.ml:557:30>>*/ ;
+                   /*<<scanf.ml:557:77>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
+                          ( /*<<scanf.ml:557:50>>*/ token_int_literal(conv$1, ib)) /*<<scanf.ml:557:77>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 7:
         var
@@ -30153,11 +31052,11 @@
             ( /*<<scanf.ml:1309:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$2)),
          scan$7 =
-           function(width, param, ib){
+            /*<<scanf.ml:1310:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1310:26>>*/ return scan_int_conversion
                     (conv$2, width, ib) /*<<scanf.ml:1310:56>>*/ ;
            };
-         /*<<scanf.ml:1311:49>>*/ return pad_prec_scanf
+         /*<<scanf.ml:1311:64>>*/ return pad_prec_scanf
                 (ib,
                  rest$9,
                  readers,
@@ -30165,8 +31064,8 @@
                  prec$2,
                  scan$7,
                  function(ib){
-                   /*<<scanf.ml:559:26>>*/ return runtime.caml_int64_of_string
-                          ( /*<<scanf.ml:559:42>>*/ token_int_literal(conv$2, ib)) /*<<scanf.ml:559:26>>*/ ;
+                   /*<<scanf.ml:559:69>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
+                          ( /*<<scanf.ml:559:42>>*/ token_int_literal(conv$2, ib)) /*<<scanf.ml:559:69>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 8:
         switch(fmt$0[1][2]){
@@ -30226,7 +31125,8 @@
                 (ib, rest$13, readers, pad$8, 0, scan$8, token_bool) /*<<scanf.ml:1418:7>>*/ ;
        case 10:
         var rest$14 = fmt$0[1];
-         /*<<scanf.ml:1337:7>>*/ if(! end_of_input(ib))
+         /*<<scanf.ml:1337:31>>*/ if
+         (!  /*<<scanf.ml:1337:7>>*/ end_of_input(ib))
           /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
         fmt$0 = rest$14;
         break;
@@ -30248,7 +31148,7 @@
          /*<<scanf.ml:1348:12>>*/ scan_caml_string
          ( /*<<scanf.ml:1348:29>>*/ width_of_pad_opt(pad_opt), ib);
         var s =  /*<<scanf.ml:1349:12>>*/ token_string(ib);
-         /*<<scanf.ml:1350:4>>*/ try{
+        try{
          var
           _E_ =
              /*<<scanf.ml:1351:10>>*/ caml_call2
@@ -30260,9 +31160,9 @@
          if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
          var msg = exn[2], fmt$3 =  /*<<scanf.ml:1352:26>>*/ bad_input(msg);
         }
-         /*<<scanf.ml:1354:4>>*/ return [0,
+         /*<<scanf.ml:1354:41>>*/ return [0,
                 fmt$3,
-                 /*<<scanf.ml:1354:15>>*/ make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:4>>*/ ;
+                 /*<<scanf.ml:1354:15>>*/ make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:41>>*/ ;
        case 14:
         var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
          /*<<scanf.ml:1356:12>>*/ scan_caml_string
@@ -30271,11 +31171,11 @@
         try{
          var
           fmt$6 =
-             /*<<scanf.ml:1360:26>>*/ caml_call2
+             /*<<scanf.ml:1360:45>>*/  /*<<scanf.ml:1360:26>>*/ caml_call2
               (CamlinternalFormat[13], 0, s$0)
              [1],
           fmt$7 =
-             /*<<scanf.ml:1361:27>>*/ caml_call2
+             /*<<scanf.ml:1361:46>>*/  /*<<scanf.ml:1361:27>>*/ caml_call2
               (CamlinternalFormat[13], 0, s$0)
              [1],
           _G_ =
@@ -30302,17 +31202,17 @@
           throw caml_maybe_attach_backtrace(exn$0, 0);
          var
           msg$0 = exn$0[2],
-          _F_ = bad_input(msg$0),
+          _F_ =  /*<<scanf.ml:1376:26>>*/ bad_input(msg$0),
           fmt$5 = _F_[2],
           fmt$4 = _F_[1];
         }
-         /*<<scanf.ml:1378:4>>*/ return [0,
+         /*<<scanf.ml:1379:54>>*/ return [0,
                 [0, fmt$4, s$0],
                  /*<<scanf.ml:1379:10>>*/ make_scanf
                  (ib,
                    /*<<scanf.ml:1379:24>>*/ caml_call2
                    (CamlinternalFormatBasics[3], fmt$5, rest$18),
-                  readers)] /*<<scanf.ml:1378:4>>*/ ;
+                  readers)] /*<<scanf.ml:1379:54>>*/ ;
        case 15:
          /*<<scanf.ml:1323:4>>*/ return caml_call1
                 (Stdlib[1], cst_scanf_bad_conversion_a) /*<<scanf.ml:1418:7>>*/ ;
@@ -30364,10 +31264,10 @@
          readers_rest = readers[2],
          reader = readers[1],
          x =  /*<<scanf.ml:1331:16>>*/ caml_call1(reader, ib);
-         /*<<scanf.ml:1332:8>>*/ return [0,
+         /*<<scanf.ml:1332:52>>*/ return [0,
                 x,
                  /*<<scanf.ml:1332:17>>*/ make_scanf
-                 (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:8>>*/ ;
+                 (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:52>>*/ ;
        case 20:
         var width_opt = fmt$0[1], match$1 = fmt$0[3];
         if(typeof match$1 !== "number" && 17 === match$1[0]){
@@ -30377,17 +31277,17 @@
           char_set$0 = fmt$0[2],
           match$2 =
              /*<<scanf.ml:1382:19>>*/ stopper_of_formatting_lit(fmting_lit$0),
-          str$1 = match$2[2],
+          str$1 =  /*<<scanf.ml:1382:55>>*/ match$2[2],
           stp$0 = match$2[1],
           width$2 =  /*<<scanf.ml:1383:16>>*/ width_of_pad_opt(width_opt);
           /*<<scanf.ml:1384:4>>*/ scan_chars_in_char_set
           (char_set$0, [0, stp$0], width$2, ib);
          var
           s$2 =  /*<<scanf.ml:1385:12>>*/ token_string(ib),
-          str_rest$0 =  /*<<scanf.ml:1386:19>>*/ [11, str$1, rest$23];
-          /*<<scanf.ml:1387:4>>*/ return [0,
+          str_rest$0 =  /*<<scanf.ml:1386:4>>*/ [11, str$1, rest$23];
+          /*<<scanf.ml:1387:43>>*/ return [0,
                  s$2,
-                  /*<<scanf.ml:1387:13>>*/ make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:4>>*/ ;
+                  /*<<scanf.ml:1387:13>>*/ make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:43>>*/ ;
         }
         var
          rest$22 = fmt$0[3],
@@ -30396,38 +31296,38 @@
          /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
          (char_set, 0, width$1, ib);
         var s$1 =  /*<<scanf.ml:1391:12>>*/ token_string(ib);
-         /*<<scanf.ml:1392:4>>*/ return [0,
+         /*<<scanf.ml:1392:39>>*/ return [0,
                 s$1,
-                 /*<<scanf.ml:1392:13>>*/ make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:4>>*/ ;
+                 /*<<scanf.ml:1392:13>>*/ make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:39>>*/ ;
        case 21:
         var rest$24 = fmt$0[2], counter = fmt$0[1];
-        switch(counter){
+         /*<<scanf.ml:1131:2>>*/ switch(counter){
           case 0:
            var count = ib[5]; break;
           case 1:
            var count =  /*<<scanf.ml:1133:20>>*/ char_count(ib); break;
           default: var count = ib[6];
         }
-         /*<<scanf.ml:1395:4>>*/ return [0,
+         /*<<scanf.ml:1395:43>>*/ return [0,
                 count,
-                 /*<<scanf.ml:1395:17>>*/ make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:4>>*/ ;
+                 /*<<scanf.ml:1395:17>>*/ make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:43>>*/ ;
        case 22:
         var
          rest$25 = fmt$0[1],
          c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
-         /*<<scanf.ml:1398:4>>*/ return [0,
+         /*<<scanf.ml:1398:39>>*/ return [0,
                 c$2,
-                 /*<<scanf.ml:1398:13>>*/ make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:4>>*/ ;
+                 /*<<scanf.ml:1398:13>>*/ make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:39>>*/ ;
        case 23:
         var
          rest$26 = fmt$0[2],
          ign = fmt$0[1],
          fmt$13 =
-            /*<<scanf.ml:1411:32>>*/ caml_call2
+            /*<<scanf.ml:1411:71>>*/  /*<<scanf.ml:1411:32>>*/ caml_call2
              (CamlinternalFormat[6], ign, rest$26)
             [1],
          match$3 =  /*<<scanf.ml:1412:16>>*/ make_scanf(ib, fmt$13, readers);
-        if(! match$3)
+         /*<<scanf.ml:1412:42>>*/ if(! match$3)
           /*<<scanf.ml:1414:13>>*/ throw caml_maybe_attach_backtrace
                 ([0, Assert_failure, _s_], 1);
         var arg_rest = match$3[2];
@@ -30444,18 +31344,18 @@
       var p = prec[1];
        /*<<scanf.ml:1435:12>>*/ caml_call3(scan, Stdlib[19], p, ib);
       var x$0 =  /*<<scanf.ml:1436:12>>*/ caml_call1(token, ib);
-       /*<<scanf.ml:1437:4>>*/ return [0,
+       /*<<scanf.ml:1437:38>>*/ return [0,
               x$0,
-               /*<<scanf.ml:1437:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:4>>*/ ;
+               /*<<scanf.ml:1437:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:38>>*/ ;
      }
      if(prec)
        /*<<scanf.ml:1453:4>>*/ return caml_call1
               (Stdlib[1], cst_scanf_bad_conversion) /*<<scanf.ml:1453:46>>*/ ;
       /*<<scanf.ml:1431:12>>*/ caml_call3(scan, Stdlib[19], Stdlib[19], ib);
      var x =  /*<<scanf.ml:1432:12>>*/ caml_call1(token, ib);
-      /*<<scanf.ml:1433:4>>*/ return [0,
+      /*<<scanf.ml:1433:38>>*/ return [0,
              x,
-              /*<<scanf.ml:1433:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:4>>*/ ;
+              /*<<scanf.ml:1433:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:38>>*/ ;
     }
     if(0 !== pad[0])
       /*<<scanf.ml:1451:4>>*/ return caml_call1
@@ -30468,23 +31368,24 @@
      var p$0 = prec[1];
       /*<<scanf.ml:1443:12>>*/ caml_call3(scan, w, p$0, ib);
      var x$2 =  /*<<scanf.ml:1444:12>>*/ caml_call1(token, ib);
-      /*<<scanf.ml:1445:4>>*/ return [0,
+      /*<<scanf.ml:1445:38>>*/ return [0,
              x$2,
-              /*<<scanf.ml:1445:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:4>>*/ ;
+              /*<<scanf.ml:1445:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:38>>*/ ;
     }
     if(prec)
       /*<<scanf.ml:1449:4>>*/ return caml_call1
              (Stdlib[1], cst_scanf_bad_conversion$0) /*<<scanf.ml:1453:46>>*/ ;
      /*<<scanf.ml:1439:12>>*/ caml_call3(scan, w, Stdlib[19], ib);
     var x$1 =  /*<<scanf.ml:1440:12>>*/ caml_call1(token, ib);
-     /*<<scanf.ml:1441:4>>*/ return [0,
+     /*<<scanf.ml:1441:38>>*/ return [0,
             x$1,
-             /*<<scanf.ml:1441:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:4>>*/ ;
+             /*<<scanf.ml:1441:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:38>>*/ ;
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
-    var str = param[2], fmt = param[1];
+    var str =  /*<<scanf.ml:1458:15>>*/ param[2], fmt = param[1];
     function k(readers, f$1){
-      /*<<scanf.ml:1465:4>>*/ caml_call1(Stdlib_Buffer[9], ib[8]);
+      /*<<scanf.ml:1465:4>>*/  /*<<scanf.ml:222:23>>*/ caml_call1
+      (Stdlib_Buffer[9], ib[8]);
      try{var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);}
      catch(exc$0){
       var exc = caml_wrap_exception(exc$0);
@@ -30498,14 +31399,13 @@
         _B_ =
            /*<<scanf.ml:1470:27>>*/ caml_call2(Stdlib[28], cst_in_format, _A_),
         _C_ =  /*<<scanf.ml:1470:20>>*/ caml_call2(Stdlib[28], msg, _B_);
-       return caml_call1(Stdlib[1], _C_) /*<<scanf.ml:1472:25>>*/ ;
+        /*<<scanf.ml:1470:71>>*/ return caml_call1(Stdlib[1], _C_) /*<<scanf.ml:1472:25>>*/ ;
       }
        /*<<scanf.ml:1468:8>>*/ return caml_call2(ef, ib, exc) /*<<scanf.ml:1472:25>>*/ ;
      }
      var f = f$1, args = args$1;
       /*<<scanf.ml:1460:18>>*/ for(;;){
-      if(! args)
-        /*<<scanf.ml:1472:11>>*/ return caml_call1(af, f) /*<<scanf.ml:1472:25>>*/ ;
+      if(! args)  /*<<scanf.ml:1472:25>>*/ return caml_call1(af, f);
       var
        args$0 = args[2],
        x = args[1],
@@ -30543,15 +31443,15 @@
      /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
    }
    function ksscanf(s, ef, fmt){
-     /*<<scanf.ml:1488:23>>*/ return kscanf
+     /*<<scanf.ml:1488:23>>*/ return  /*<<scanf.ml:1488:55>>*/ kscanf
             ( /*<<scanf.ml:1488:31>>*/ from_string(s), ef, fmt) /*<<scanf.ml:1488:62>>*/ ;
    }
    function sscanf(s, fmt){
-     /*<<scanf.ml:1489:19>>*/ return kscanf
+     /*<<scanf.ml:1489:19>>*/ return  /*<<scanf.ml:1489:51>>*/ kscanf
             ( /*<<scanf.ml:1489:27>>*/ from_string(s), scanf_bad_input, fmt) /*<<scanf.ml:1489:71>>*/ ;
    }
    function sscanf_opt(s, fmt){
-     /*<<scanf.ml:1490:23>>*/ return kscanf_opt
+     /*<<scanf.ml:1490:23>>*/ return  /*<<scanf.ml:1490:58>>*/ kscanf_opt
             ( /*<<scanf.ml:1490:34>>*/ from_string(s), fmt) /*<<scanf.ml:1490:62>>*/ ;
    }
    function scanf(fmt){
@@ -30564,7 +31464,7 @@
      /*<<scanf.ml:1502:4>>*/  /*<<scanf.ml:1502:12>>*/ scan_caml_string
      (Stdlib[19], ib);
     var str =  /*<<scanf.ml:1503:14>>*/ token_string(ib);
-     /*<<scanf.ml:1504:4>>*/ try{
+    try{
      var
       _x_ =
          /*<<scanf.ml:1505:10>>*/ caml_call2
@@ -30579,14 +31479,14 @@
      /*<<scanf.ml:1507:4>>*/ return caml_call1(f, fmt) /*<<scanf.ml:1507:10>>*/ ;
    }
    function sscanf_format(s, format, f){
-     /*<<scanf.ml:1513:20>>*/ return bscanf_format
+     /*<<scanf.ml:1513:20>>*/ return  /*<<scanf.ml:1513:58>>*/ bscanf_format
             ( /*<<scanf.ml:1513:34>>*/ from_string(s), format, f) /*<<scanf.ml:1513:67>>*/ ;
    }
    function format_from_string(s, fmt){
     var
      _v_ =  /*<<scanf.ml:1517:24>>*/ caml_call1(Stdlib_String[25], s),
      _w_ = caml_call2(Stdlib[28], _v_, cst$1);
-     /*<<scanf.ml:1517:53>>*/ return sscanf_format
+     /*<<scanf.ml:1517:48>>*/ return sscanf_format
             ( /*<<scanf.ml:1517:16>>*/ caml_call2(Stdlib[28], cst$2, _w_),
              fmt,
              function(x){
@@ -30595,7 +31495,7 @@
    }
    function unescaped(s){
     var _u_ =  /*<<scanf.ml:1521:17>>*/ caml_call2(Stdlib[28], s, cst$3);
-     /*<<scanf.ml:1521:34>>*/ return caml_call1
+     /*<<scanf.ml:1521:26>>*/ return caml_call1
             (sscanf
               ( /*<<scanf.ml:1521:9>>*/ caml_call2(Stdlib[28], cst$4, _u_),
                _t_),
@@ -30605,7 +31505,7 @@
    }
    var
     Stdlib_Scanf =
-      [0,
+       /*<<scanf.ml:1002:59>>*/ [0,
        [0,
         stdin,
         open_in,
@@ -30650,12 +31550,15 @@
     register = caml_register_named_value;
    function register_exception(name, exn){
     var
-     _a_ = Stdlib_Obj[10],
+     _a_ =  /*<<callback.ml:25:2>>*/ Stdlib_Obj[10],
      slot =
-        /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag(exn) === _a_
+        /*<<callback.ml:26:27>>*/  /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag
+         (exn)
+        === _a_
         ? exn
         : exn[1];
-     /*<<callback.ml:27:2>>*/ return caml_register_named_value(name, slot) /*<<callback.ml:27:32>>*/ ;
+     /*<<callback.ml:27:32>>*/ return  /*<<callback.ml:27:2>>*/ caml_register_named_value
+            (name, slot) /*<<callback.ml:27:32>>*/ ;
    }
    var Stdlib_Callback = [0, register, register_exception];
    runtime.caml_register_global(1, Stdlib_Callback, "Stdlib__Callback");
@@ -30711,27 +31614,35 @@
     Stdlib_Map = global_data.Stdlib__Map;
    function copy(o){
     var o$0 =  /*<<camlinternalOO.ml:23:19>>*/ o.slice();
-     /*<<camlinternalOO.ml:24:2>>*/ return caml_set_oo_id(o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
+     /*<<camlinternalOO.ml:24:10>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
+            (o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
    }
-   var params =  /*<<camlinternalOO.ml:36:13>>*/ [0, 1, 1, 1, 3, 16];
+   var params = [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
     var
-     accu =  /*<<camlinternalOO.ml:69:13>>*/ [0, 0],
-     _al_ = runtime.caml_ml_string_length(s) - 1 | 0,
-     _ak_ = 0;
-    if(_al_ >= 0){
+     accu =  /*<<camlinternalOO.ml:69:2>>*/ [0, 0],
+     _al_ =
+        /*<<camlinternalOO.ml:70:2>>*/ runtime.caml_ml_string_length(s) - 1
+       | 0,
+     _ak_ =  /*<<camlinternalOO.ml:69:2>>*/ 0;
+     /*<<camlinternalOO.ml:70:2>>*/ if(_al_ >= 0){
      var i = _ak_;
      for(;;){
       var
        _am_ =  /*<<camlinternalOO.ml:71:36>>*/ runtime.caml_string_get(s, i);
-      accu[1] = (223 * accu[1] | 0) + _am_ | 0;
-      var _an_ =  /*<<camlinternalOO.ml:70:2>>*/ i + 1 | 0;
+       /*<<camlinternalOO.ml:71:41>>*/ accu[1] =
+       (223 * accu[1] | 0) + _am_ | 0;
+      var _an_ = i + 1 | 0;
       if(_al_ === i) break;
       i = _an_;
      }
     }
-    accu[1] = accu[1] & 2147483647;
-    var tag = 1073741823 < accu[1] ? accu[1] + 2147483648 | 0 : accu[1];
+     /*<<camlinternalOO.ml:74:2>>*/ accu[1] = accu[1] & 2147483647;
+    var
+     tag =
+        /*<<camlinternalOO.ml:76:2>>*/ 1073741823 < accu[1]
+        ? accu[1] + 2147483648 | 0
+        : accu[1];
      /*<<camlinternalOO.ml:78:2>>*/ return tag;
     /*<<camlinternalOO.ml:78:15>>*/ }
    var
@@ -30741,19 +31652,10 @@
     Meths = caml_call1(Stdlib_Map[1], [0, compare$0]),
     compare$1 = runtime.caml_int_compare,
     Labs = caml_call1(Stdlib_Map[1], [0, compare$1]),
-    dummy_table =
-       /*<<camlinternalOO.ml:107:2>>*/ [0,
-       0,
-       [0, 0],
-       Meths[1],
-       Labs[1],
-       0,
-       0,
-       Vars[1],
-       0],
-    table_count =  /*<<camlinternalOO.ml:116:18>>*/ [0, 0],
+    dummy_table = [0, 0, [0, 0], Meths[1], Labs[1], 0, 0, Vars[1], 0],
+    table_count = [0, 0],
     dummy_met =  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block(0, 0),
-    initial_object_size =  /*<<camlinternalOO.ml:36:13>>*/ 2;
+    initial_object_size = 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
             ?  /*<<camlinternalOO.ml:125:2>>*/ fit_size
@@ -30765,34 +31667,34 @@
    function new_table(pub_labels){
      /*<<camlinternalOO.ml:128:2>>*/ table_count[1]++;
     var
-     len = pub_labels.length - 1,
+     len =  /*<<camlinternalOO.ml:129:2>>*/ pub_labels.length - 1,
      methods =
         /*<<camlinternalOO.ml:130:16>>*/ caml_make_vect
         ((len * 2 | 0) + 2 | 0, dummy_met);
      /*<<camlinternalOO.ml:131:2>>*/ caml_check_bound(methods, 0)[1] = len;
     var
-     _ad_ = Stdlib_Sys[9],
+     _ad_ =  /*<<camlinternalOO.ml:131:30>>*/ Stdlib_Sys[9],
      _ae_ =
-       ( /*<<camlinternalOO.ml:132:28>>*/ runtime.caml_mul
-        (fit_size(len), _ad_)
+        /*<<camlinternalOO.ml:132:40>>*/ (runtime.caml_mul
+        ( /*<<camlinternalOO.ml:132:28>>*/ fit_size(len), _ad_)
        / 8
        | 0)
        - 1
        | 0;
      /*<<camlinternalOO.ml:132:2>>*/ caml_check_bound(methods, 1)[2] = _ae_;
-    var _ag_ = len - 1 | 0, _af_ = 0;
+    var _ag_ =  /*<<camlinternalOO.ml:132:65>>*/ len - 1 | 0, _af_ = 0;
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
       var
-       _ai_ = (i * 2 | 0) + 3 | 0,
+       _ai_ =  /*<<camlinternalOO.ml:133:69>>*/ (i * 2 | 0) + 3 | 0,
        _ah_ =
           /*<<camlinternalOO.ml:133:55>>*/ caml_check_bound(pub_labels, i)
           [1 + i];
        /*<<camlinternalOO.ml:133:26>>*/ caml_check_bound(methods, _ai_)
        [1 + _ai_]
       = _ah_;
-      var _aj_ = i + 1 | 0;
+      var _aj_ =  /*<<camlinternalOO.ml:133:69>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _aj_;
      }
@@ -30808,14 +31710,16 @@
             0];
     /*<<camlinternalOO.ml:141:32>>*/ }
    function resize(array, new_size){
-    var old_size = array[2].length - 1, _ab_ = old_size < new_size ? 1 : 0;
+    var
+     old_size =  /*<<camlinternalOO.ml:144:2>>*/ array[2].length - 1,
+     _ab_ =  /*<<camlinternalOO.ml:145:2>>*/ old_size < new_size ? 1 : 0;
     if(_ab_){
      var
       new_buck =
          /*<<camlinternalOO.ml:146:19>>*/ caml_make_vect(new_size, dummy_met);
       /*<<camlinternalOO.ml:147:4>>*/ caml_call5
       (Stdlib_Array[9], array[2], 0, new_buck, 0, old_size);
-     array[2] = new_buck;
+      /*<<camlinternalOO.ml:147:50>>*/ array[2] = new_buck;
      var _ac_ = 0;
     }
     else
@@ -30823,8 +31727,8 @@
     return _ac_;
     /*<<camlinternalOO.ml:149:4>>*/ }
    var
-    method_count =  /*<<camlinternalOO.ml:157:19>>*/ [0, 0],
-    inst_var_count =  /*<<camlinternalOO.ml:158:21>>*/ [0, 0],
+    method_count =  /*<<camlinternalOO.ml:119:50>>*/ [0, 0],
+    inst_var_count = [0, 0],
     _a_ = [0, cst_camlinternalOO_ml, 279, 50],
     _b_ = [0, cst_camlinternalOO_ml, 407, 13],
     _c_ = [0, cst_camlinternalOO_ml, 410, 13],
@@ -30833,9 +31737,9 @@
     _f_ = [0, cst_camlinternalOO_ml, 419, 13],
     _g_ = [0, cst_camlinternalOO_ml, 437, 17];
    function new_method(table){
-    var index = table[2].length - 1;
+    var index =  /*<<camlinternalOO.ml:164:2>>*/ table[2].length - 1;
      /*<<camlinternalOO.ml:165:2>>*/ resize(table, index + 1 | 0);
-    return index;
+     /*<<camlinternalOO.ml:165:26>>*/ return index;
     /*<<camlinternalOO.ml:166:7>>*/ }
    function get_method_label(table, name){
      /*<<camlinternalOO.ml:169:2>>*/ try{
@@ -30848,28 +31752,31 @@
      var ___ = caml_wrap_exception(_aa_);
      if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
      var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
-     table[3] =
+      /*<<camlinternalOO.ml:173:71>>*/ table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
        (Meths[2], name, label, table[3]);
-     table[4] =
+      /*<<camlinternalOO.ml:174:72>>*/ table[4] =
        /*<<camlinternalOO.ml:174:30>>*/ caml_call3
        (Labs[2], label, 1, table[4]);
       /*<<camlinternalOO.ml:175:4>>*/ return label;
     }
     /*<<camlinternalOO.ml:175:9>>*/ }
    function get_method_labels(table, names){
-     /*<<camlinternalOO.ml:178:2>>*/ return caml_call2
+     /*<<camlinternalOO.ml:178:2>>*/ return  /*<<camlinternalOO.ml:178:36>>*/ caml_call2
             (Stdlib_Array[14],
              function(_Z_){ /*<<?>>*/ return get_method_label(table, _Z_);},
              names) /*<<camlinternalOO.ml:178:42>>*/ ;
    }
    function set_method(table, label, element){
      /*<<camlinternalOO.ml:181:2>>*/ method_count[1]++;
-     /*<<camlinternalOO.ml:182:5>>*/ return caml_call2
+     /*<<camlinternalOO.ml:182:43>>*/ return  /*<<camlinternalOO.ml:182:5>>*/ caml_call2
              (Labs[17], label, table[4])
             ? ( /*<<camlinternalOO.ml:152:2>>*/ resize
                (table, label + 1 | 0),
-              caml_check_bound(table[2], label)[1 + label] = element,
+               /*<<camlinternalOO.ml:153:2>>*/ caml_check_bound
+                (table[2], label)
+               [1 + label]
+              = element,
               0)
             : (table[6] = [0, [0, label, element], table[6]], 0) /*<<camlinternalOO.ml:185:64>>*/ ;
    }
@@ -30884,12 +31791,12 @@
     catch(_Y_){
      var _W_ = caml_wrap_exception(_Y_);
      if(_W_ === Stdlib[8])
-       /*<<camlinternalOO.ml:189:20>>*/ return caml_check_bound
+       /*<<camlinternalOO.ml:189:41>>*/ return  /*<<camlinternalOO.ml:189:20>>*/ caml_check_bound
                (table[2], label)
-              [1 + label];
+              [1 + label] /*<<camlinternalOO.ml:189:41>>*/ ;
      throw caml_maybe_attach_backtrace(_W_, 0);
     }
-    /*<<camlinternalOO.ml:189:41>>*/ }
+   }
    function to_list(arr){
      /*<<camlinternalOO.ml:192:2>>*/ return 0 === arr
             ? 0
@@ -30911,11 +31818,11 @@
         (Stdlib_List[20],
          function(_U_){ /*<<?>>*/ return get_method_label(table, _U_);},
          concr_meths$0);
-    table[5] =
+     /*<<camlinternalOO.ml:200:2>>*/ table[5] =
      [0,
       [0, table[3], table[4], table[6], table[7], virt_meth_labs, vars$0],
       table[5]];
-    table[7] =
+     /*<<camlinternalOO.ml:208:27>>*/ table[7] =
       /*<<camlinternalOO.ml:205:4>>*/ caml_call3
       (Vars[24],
        function(lab, info, tvars){
@@ -30928,15 +31835,15 @@
        table[7],
        Vars[1]);
     var
-     by_name =  /*<<camlinternalOO.ml:209:16>>*/ [0, Meths[1]],
-     by_label =  /*<<camlinternalOO.ml:210:17>>*/ [0, Labs[1]];
+     by_name =  /*<<camlinternalOO.ml:209:2>>*/ [0, Meths[1]],
+     by_label =  /*<<camlinternalOO.ml:210:2>>*/ [0, Labs[1]];
      /*<<camlinternalOO.ml:211:2>>*/ caml_call3
      (Stdlib_List[28],
       function(met, label){
         /*<<camlinternalOO.ml:213:7>>*/ by_name[1] =
          /*<<camlinternalOO.ml:213:18>>*/ caml_call3
          (Meths[2], met, label, by_name[1]);
-       var _P_ = by_label[1];
+       var _P_ =  /*<<camlinternalOO.ml:214:7>>*/ by_label[1];
        try{
         var
          _S_ =
@@ -30949,10 +31856,10 @@
         if(_Q_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_Q_, 0);
         var _R_ = 1;
        }
-       by_label[1] =
+        /*<<camlinternalOO.ml:217:21>>*/ by_label[1] =
          /*<<camlinternalOO.ml:215:10>>*/ caml_call3(Labs[2], label, _R_, _P_);
-       return 0;
-       /*<<camlinternalOO.ml:217:21>>*/ },
+        /*<<camlinternalOO.ml:217:21>>*/ return 0;
+      },
       concr_meths$0,
       concr_meth_labs);
      /*<<camlinternalOO.ml:219:2>>*/ caml_call3
@@ -30961,69 +31868,69 @@
         /*<<camlinternalOO.ml:221:7>>*/ by_name[1] =
          /*<<camlinternalOO.ml:221:18>>*/ caml_call3
          (Meths[2], met, label, by_name[1]);
-       by_label[1] =
+        /*<<camlinternalOO.ml:222:49>>*/ by_label[1] =
          /*<<camlinternalOO.ml:222:19>>*/ caml_call3
          (Labs[2], label, 0, by_label[1]);
-       return 0;
-       /*<<camlinternalOO.ml:222:49>>*/ },
+        /*<<camlinternalOO.ml:222:49>>*/ return 0;
+      },
       virt_meths$0,
       virt_meth_labs);
-    table[3] = by_name[1];
-    table[4] = by_label[1];
-    table[6] =
+     /*<<camlinternalOO.ml:223:29>>*/ table[3] = by_name[1];
+     /*<<camlinternalOO.ml:225:2>>*/ table[4] = by_label[1];
+     /*<<camlinternalOO.ml:231:9>>*/ table[6] =
       /*<<camlinternalOO.ml:227:5>>*/ caml_call3
       (Stdlib_List[27],
        function(met, hm){
-        var lab = met[1];
-         /*<<camlinternalOO.ml:229:13>>*/ return caml_call2
+        var lab =  /*<<camlinternalOO.ml:228:7>>*/ met[1];
+         /*<<camlinternalOO.ml:229:40>>*/ return  /*<<camlinternalOO.ml:229:13>>*/ caml_call2
                  (Stdlib_List[37], lab, virt_meth_labs)
                 ? hm
                 : [0, met, hm] /*<<camlinternalOO.ml:229:62>>*/ ;
        },
        table[6],
        0);
-    return 0;
-    /*<<camlinternalOO.ml:231:9>>*/ }
+     /*<<camlinternalOO.ml:231:9>>*/ return 0;
+   }
    function widen(table){
     var
      match =
         /*<<camlinternalOO.ml:235:4>>*/ caml_call1(Stdlib_List[6], table[5]),
-     vars = match[6],
+     vars =  /*<<camlinternalOO.ml:235:33>>*/ match[6],
      virt_meths = match[5],
      saved_vars = match[4],
      saved_hidden_meths = match[3],
      by_label = match[2],
      by_name = match[1];
-    table[5] =
+     /*<<camlinternalOO.ml:237:56>>*/ table[5] =
       /*<<camlinternalOO.ml:237:27>>*/ caml_call1(Stdlib_List[7], table[5]);
-    table[7] =
+     /*<<camlinternalOO.ml:241:22>>*/ table[7] =
       /*<<camlinternalOO.ml:239:5>>*/ caml_call3
       (Stdlib_List[26],
        function(s, v){
         var
          _O_ =
             /*<<camlinternalOO.ml:240:30>>*/ caml_call2(Vars[17], v, table[7]);
-         /*<<camlinternalOO.ml:240:19>>*/ return caml_call3
+         /*<<camlinternalOO.ml:240:54>>*/ return caml_call3
                 (Vars[2], v, _O_, s) /*<<camlinternalOO.ml:240:56>>*/ ;
        },
        saved_vars,
        vars);
-    table[3] = by_name;
-    table[4] = by_label;
-    table[6] =
+     /*<<camlinternalOO.ml:242:2>>*/ table[3] = by_name;
+     /*<<camlinternalOO.ml:243:2>>*/ table[4] = by_label;
+     /*<<camlinternalOO.ml:249:25>>*/ table[6] =
       /*<<camlinternalOO.ml:245:5>>*/ caml_call3
       (Stdlib_List[27],
        function(met, hm){
-        var lab = met[1];
-         /*<<camlinternalOO.ml:247:13>>*/ return caml_call2
+        var lab =  /*<<camlinternalOO.ml:246:7>>*/ met[1];
+         /*<<camlinternalOO.ml:247:36>>*/ return  /*<<camlinternalOO.ml:247:13>>*/ caml_call2
                  (Stdlib_List[37], lab, virt_meths)
                 ? hm
                 : [0, met, hm] /*<<camlinternalOO.ml:247:58>>*/ ;
        },
        table[6],
        saved_hidden_meths);
-    return 0;
-    /*<<camlinternalOO.ml:249:25>>*/ }
+     /*<<camlinternalOO.ml:249:25>>*/ return 0;
+   }
    function new_variable(table, name){
      /*<<camlinternalOO.ml:257:2>>*/ try{
      var
@@ -31034,10 +31941,10 @@
     catch(_N_){
      var _L_ = caml_wrap_exception(_N_);
      if(_L_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_L_, 0);
-     var index = table[1];
-     table[1] = index + 1 | 0;
-      /*<<camlinternalOO.ml:260:7>>*/ if(name !== "")
-      table[7] =
+     var index =  /*<<camlinternalOO.ml:252:2>>*/ table[1];
+      /*<<camlinternalOO.ml:253:2>>*/ table[1] = index + 1 | 0;
+      /*<<camlinternalOO.ml:260:17>>*/ if(name !== "")
+       /*<<camlinternalOO.ml:260:67>>*/ table[7] =
         /*<<camlinternalOO.ml:260:37>>*/ caml_call3
         (Vars[2], name, index, table[7]);
       /*<<camlinternalOO.ml:261:4>>*/ return index;
@@ -31057,31 +31964,34 @@
      res =
         /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect(nmeths + nvals | 0, 0),
      _D_ =  /*<<camlinternalOO.ml:270:2>>*/ nmeths - 1 | 0,
-     _C_ =  /*<<camlinternalOO.ml:269:12>>*/ 0;
-    if(_D_ >= 0){
+     _C_ =  /*<<camlinternalOO.ml:269:41>>*/ 0;
+     /*<<camlinternalOO.ml:270:2>>*/ if(_D_ >= 0){
      var i$0 = _C_;
      for(;;){
       var
        _J_ =
           /*<<camlinternalOO.ml:271:15>>*/ get_method_label
-          (table, caml_check_bound(meths$0, i$0)[1 + i$0]);
+          (table,
+            /*<<camlinternalOO.ml:271:38>>*/ caml_check_bound(meths$0, i$0)
+            [1 + i$0]);
        /*<<camlinternalOO.ml:271:4>>*/ caml_check_bound(res, i$0)[1 + i$0] = _J_;
-      var _K_ = i$0 + 1 | 0;
+      var _K_ =  /*<<camlinternalOO.ml:271:47>>*/ i$0 + 1 | 0;
       if(_D_ === i$0) break;
       i$0 = _K_;
      }
     }
-    var _F_ = nvals - 1 | 0, _E_ =  /*<<camlinternalOO.ml:273:2>>*/ 0;
+    var _F_ =  /*<<camlinternalOO.ml:273:2>>*/ nvals - 1 | 0, _E_ = 0;
     if(_F_ >= 0){
      var i = _E_;
      for(;;){
       var
-       _H_ = i + nmeths | 0,
+       _H_ =  /*<<camlinternalOO.ml:274:49>>*/ i + nmeths | 0,
        _G_ =
           /*<<camlinternalOO.ml:274:22>>*/ new_variable
-          (table, caml_check_bound(vals, i)[1 + i]);
+          (table,
+            /*<<camlinternalOO.ml:274:41>>*/ caml_check_bound(vals, i)[1 + i]);
        /*<<camlinternalOO.ml:274:4>>*/ caml_check_bound(res, _H_)[1 + _H_] = _G_;
-      var _I_ = i + 1 | 0;
+      var _I_ =  /*<<camlinternalOO.ml:274:49>>*/ i + 1 | 0;
       if(_F_ === i) break;
       i = _I_;
      }
@@ -31104,7 +32014,7 @@
     }
     /*<<camlinternalOO.ml:279:62>>*/ }
    function get_variables(table, names){
-     /*<<camlinternalOO.ml:282:2>>*/ return caml_call2
+     /*<<camlinternalOO.ml:282:2>>*/ return  /*<<camlinternalOO.ml:282:32>>*/ caml_call2
             (Stdlib_Array[14],
              function(_y_){ /*<<?>>*/ return get_variable(table, _y_);},
              names) /*<<camlinternalOO.ml:282:38>>*/ ;
@@ -31115,7 +32025,7 @@
     /*<<camlinternalOO.ml:285:45>>*/ }
    function create_table(public_methods){
      /*<<camlinternalOO.ml:299:2>>*/ if(0 === public_methods)
-      /*<<camlinternalOO.ml:299:50>>*/ return new_table([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
+      /*<<camlinternalOO.ml:299:40>>*/ return new_table([0]) /*<<camlinternalOO.ml:309:7>>*/ ;
     var
      tags =
         /*<<camlinternalOO.ml:301:13>>*/ caml_call2
@@ -31124,53 +32034,63 @@
      /*<<camlinternalOO.ml:303:2>>*/ caml_call2
      (Stdlib_Array[13],
       function(i, met){
-       var lab = (i * 2 | 0) + 2 | 0;
-       table[3] =
+       var lab =  /*<<camlinternalOO.ml:305:6>>*/ (i * 2 | 0) + 2 | 0;
+        /*<<camlinternalOO.ml:306:71>>*/ table[3] =
          /*<<camlinternalOO.ml:306:32>>*/ caml_call3
          (Meths[2], met, lab, table[3]);
-       table[4] =
+        /*<<camlinternalOO.ml:307:72>>*/ table[4] =
          /*<<camlinternalOO.ml:307:32>>*/ caml_call3
          (Labs[2], lab, 1, table[4]);
-       return 0;
-       /*<<camlinternalOO.ml:307:72>>*/ },
+        /*<<camlinternalOO.ml:307:72>>*/ return 0;
+      },
       public_methods);
-     /*<<camlinternalOO.ml:303:2>>*/ return table;
+     /*<<camlinternalOO.ml:308:18>>*/ return table;
     /*<<camlinternalOO.ml:309:7>>*/ }
    function init_class(table){
      /*<<camlinternalOO.ml:312:2>>*/ inst_var_count[1] =
      (inst_var_count[1] + table[1] | 0) - 1 | 0;
-    table[8] =
+     /*<<camlinternalOO.ml:313:51>>*/ table[8] =
       /*<<camlinternalOO.ml:313:24>>*/ caml_call1(Stdlib_List[10], table[8]);
     var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
-     /*<<camlinternalOO.ml:143:11>>*/ return resize
+     /*<<camlinternalOO.ml:314:47>>*/ return resize
             (table,
-             3 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _x_) | 0) /*<<camlinternalOO.ml:314:69>>*/ ;
+             3
+             +
+              caml_div
+               ( /*<<camlinternalOO.ml:314:30>>*/ 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 =  /*<<camlinternalOO.ml:316:13>>*/ param[4], super$0 = param[2];
      /*<<camlinternalOO.ml:317:2>>*/ narrow
      (cla, vals, virt_meths, concr_meths);
     var
      init =
-       top
+        /*<<camlinternalOO.ml:317:40>>*/ top
         ?  /*<<camlinternalOO.ml:319:16>>*/ caml_call2(super$0, cla, env)
         :  /*<<camlinternalOO.ml:319:44>>*/ caml_call1(super$0, cla);
      /*<<camlinternalOO.ml:320:2>>*/ widen(cla);
     var
      _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
      _t_ =
-        /*<<camlinternalOO.ml:324:5>>*/ [0,
-        caml_call2
+        /*<<camlinternalOO.ml:326:29>>*/ [0,
+         /*<<camlinternalOO.ml:324:5>>*/ caml_call2
          (Stdlib_Array[14],
           function(nm){
-            /*<<camlinternalOO.ml:325:18>>*/ return  /*<<camlinternalOO.ml:325:43>>*/ get_method
-                   (cla, get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
+            /*<<camlinternalOO.ml:325:18>>*/ return  /*<<camlinternalOO.ml:325:68>>*/ get_method
+                   (cla,
+                     /*<<camlinternalOO.ml:325:43>>*/ get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
           },
           _s_),
         0],
      _u_ =  /*<<camlinternalOO.ml:323:45>>*/ to_array(vals),
      _v_ =
-        /*<<camlinternalOO.ml:322:4>>*/ [0,
+        /*<<camlinternalOO.ml:323:60>>*/ [0,
         [0, init],
         [0,
           /*<<camlinternalOO.ml:323:16>>*/ caml_call2
@@ -31178,7 +32098,7 @@
            function(_w_){ /*<<?>>*/ return get_variable(cla, _w_);},
            _u_),
          _t_]];
-     /*<<camlinternalOO.ml:322:4>>*/ return caml_call1(Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:326:31>>*/ ;
+     /*<<camlinternalOO.ml:323:60>>*/ return caml_call1(Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:326:31>>*/ ;
    }
    function make_class(pub_meths, class_init){
     var
@@ -31186,11 +32106,11 @@
      env_init =
         /*<<camlinternalOO.ml:330:17>>*/ caml_call1(class_init, table);
      /*<<camlinternalOO.ml:331:2>>*/ init_class(table);
-     /*<<camlinternalOO.ml:332:2>>*/ return [0,
+     /*<<camlinternalOO.ml:332:24>>*/ return [0,
              /*<<camlinternalOO.ml:332:3>>*/ caml_call1(env_init, 0),
             class_init,
             env_init,
-            0] /*<<camlinternalOO.ml:332:2>>*/ ;
+            0] /*<<camlinternalOO.ml:332:24>>*/ ;
     /*<<camlinternalOO.ml:332:59>>*/ }
    function make_class_store(pub_meths, class_init, init_table){
     var
@@ -31198,8 +32118,8 @@
      env_init =
         /*<<camlinternalOO.ml:339:17>>*/ caml_call1(class_init, table);
      /*<<camlinternalOO.ml:340:2>>*/ init_class(table);
-    init_table[2] = class_init;
-    init_table[1] = env_init;
+     /*<<camlinternalOO.ml:340:18>>*/ init_table[2] = class_init;
+     /*<<camlinternalOO.ml:342:2>>*/ init_table[1] = env_init;
     return 0;
     /*<<camlinternalOO.ml:342:33>>*/ }
    function dummy_class(loc){
@@ -31215,7 +32135,8 @@
         /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:354:2>>*/ obj[1] = table[2];
-     /*<<camlinternalOO.ml:355:10>>*/ return caml_set_oo_id(obj) /*<<camlinternalOO.ml:355:22>>*/ ;
+     /*<<camlinternalOO.ml:355:22>>*/ return  /*<<camlinternalOO.ml:355:10>>*/ caml_set_oo_id
+            (obj) /*<<camlinternalOO.ml:355:22>>*/ ;
    }
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
@@ -31225,7 +32146,8 @@
         /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:362:4>>*/ obj[1] = table[2];
-     /*<<camlinternalOO.ml:363:12>>*/ return caml_set_oo_id(obj) /*<<camlinternalOO.ml:364:5>>*/ ;
+     /*<<camlinternalOO.ml:363:24>>*/ return  /*<<camlinternalOO.ml:363:12>>*/ caml_set_oo_id
+            (obj) /*<<camlinternalOO.ml:364:5>>*/ ;
    }
    function iter_f(obj, param){
     var param$0 = param;
@@ -31237,14 +32159,17 @@
     }
     /*<<camlinternalOO.ml:369:31>>*/ }
    function run_initializers(obj, table){
-    var inits = table[8], _r_ = 0 !== inits ? 1 : 0;
+    var
+     inits =  /*<<camlinternalOO.ml:372:2>>*/ table[8],
+     _r_ =  /*<<camlinternalOO.ml:373:2>>*/ 0 !== inits ? 1 : 0;
     return _r_ ?  /*<<camlinternalOO.ml:374:4>>*/ iter_f(obj, inits) : _r_ /*<<camlinternalOO.ml:374:20>>*/ ;
    }
    function run_initializers_opt(obj_0, obj, table){
      /*<<camlinternalOO.ml:377:2>>*/ if(obj_0)
       /*<<camlinternalOO.ml:377:35>>*/ return obj;
-    var inits = table[8];
-    if(0 !== inits)  /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
+    var inits =  /*<<camlinternalOO.ml:377:44>>*/ table[8];
+     /*<<camlinternalOO.ml:379:4>>*/ if(0 !== inits)
+      /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
     return obj;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
@@ -31252,7 +32177,7 @@
       /*<<camlinternalOO.ml:384:35>>*/ return obj_0;
     var obj =  /*<<camlinternalOO.ml:385:14>>*/ create_object(table);
      /*<<camlinternalOO.ml:386:4>>*/ run_initializers(obj, table);
-    return obj;
+     /*<<camlinternalOO.ml:386:30>>*/ return obj;
     /*<<camlinternalOO.ml:388:5>>*/ }
    function get_data(param){
      /*<<camlinternalOO.ml:415:15>>*/ if(param)
@@ -31262,62 +32187,69 @@
     /*<<camlinternalOO.ml:417:30>>*/ }
    function build_path(n, keys, tables){
     var
-     res =  /*<<camlinternalOO.ml:423:17>>*/ [0, 0, 0, 0],
-     r =  /*<<camlinternalOO.ml:424:10>>*/ [0, res],
+     res =  /*<<camlinternalOO.ml:423:2>>*/ [0, 0, 0, 0],
+     r =  /*<<camlinternalOO.ml:424:2>>*/ [0, res],
      _o_ = 0;
-    if(n >= 0){
+     /*<<camlinternalOO.ml:425:2>>*/ if(n >= 0){
      var i = _o_;
      for(;;){
-      var _p_ = r[1];
-      r[1] = [0, caml_check_bound(keys, i)[1 + i], _p_, 0];
-      var _q_ =  /*<<camlinternalOO.ml:425:2>>*/ i + 1 | 0;
+      var _p_ =  /*<<camlinternalOO.ml:426:4>>*/ r[1];
+       /*<<camlinternalOO.ml:426:29>>*/ r[1] =
+       [0,
+         /*<<camlinternalOO.ml:426:21>>*/ caml_check_bound(keys, i)[1 + i],
+        _p_,
+        0];
+      var _q_ =  /*<<camlinternalOO.ml:426:29>>*/ i + 1 | 0;
       if(n === i) break;
       i = _q_;
      }
     }
-    var v = r[1];
-    if(! tables)
+    var v =  /*<<camlinternalOO.ml:428:2>>*/ r[1];
+     /*<<camlinternalOO.ml:406:24>>*/ if(! tables)
       /*<<camlinternalOO.ml:407:13>>*/ throw caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
-    tables[2] = v;
-     /*<<camlinternalOO.ml:428:2>>*/ return res;
+     /*<<camlinternalOO.ml:408:19>>*/ tables[2] = v;
+     /*<<camlinternalOO.ml:428:20>>*/ return res;
     /*<<camlinternalOO.ml:429:5>>*/ }
    function lookup_tables(root, keys){
     var root_data =  /*<<camlinternalOO.ml:451:8>>*/ get_data(root);
-    if(! root_data)
+     /*<<camlinternalOO.ml:451:21>>*/ if(! root_data)
       /*<<camlinternalOO.ml:455:4>>*/ return build_path
              (keys.length - 2 | 0, keys, root) /*<<camlinternalOO.ml:455:48>>*/ ;
-    var i$1 = keys.length - 2 | 0, i = i$1, tables$0 = root_data;
+    var
+     i$1 =  /*<<camlinternalOO.ml:453:4>>*/ keys.length - 2 | 0,
+     i = i$1,
+     tables$0 = root_data;
      /*<<camlinternalOO.ml:432:2>>*/ for(;;){
      if(0 > i)  /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
      var
       key =  /*<<camlinternalOO.ml:433:12>>*/ caml_check_bound(keys, i)[1 + i],
       tables$1 = tables$0;
       /*<<camlinternalOO.ml:435:4>>*/ for(;;){
-      if(! tables$1)
+       /*<<camlinternalOO.ml:412:14>>*/ if(! tables$1)
         /*<<camlinternalOO.ml:413:13>>*/ throw caml_maybe_attach_backtrace
               ([0, Assert_failure, _d_], 1);
-      if(tables$1[1] === key) break;
-      if(! tables$1)
+       /*<<camlinternalOO.ml:435:21>>*/ if(tables$1[1] === key) break;
+       /*<<camlinternalOO.ml:418:15>>*/ if(! tables$1)
         /*<<camlinternalOO.ml:419:13>>*/ throw caml_maybe_attach_backtrace
               ([0, Assert_failure, _f_], 1);
       var tables =  /*<<camlinternalOO.ml:420:19>>*/ tables$1[3];
-      if(! tables){
-       var next =  /*<<camlinternalOO.ml:444:35>>*/ [0, key, 0, 0];
-       if(! tables$1)
+       /*<<camlinternalOO.ml:441:27>>*/ if(! tables){
+       var next =  /*<<camlinternalOO.ml:444:10>>*/ [0, key, 0, 0];
+        /*<<camlinternalOO.ml:409:24>>*/ if(! tables$1)
          /*<<camlinternalOO.ml:410:13>>*/ throw caml_maybe_attach_backtrace
                ([0, Assert_failure, _c_], 1);
-       tables$1[3] = next;
-        /*<<camlinternalOO.ml:445:10>>*/ return build_path
+        /*<<camlinternalOO.ml:411:19>>*/ tables$1[3] = next;
+        /*<<camlinternalOO.ml:445:30>>*/ return build_path
                (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
       }
       tables$1 = tables;
      }
      var tables_data =  /*<<camlinternalOO.ml:436:12>>*/ get_data(tables$1);
-     if(! tables_data)
+      /*<<camlinternalOO.ml:436:27>>*/ if(! tables_data)
        /*<<camlinternalOO.ml:437:17>>*/ throw caml_maybe_attach_backtrace
              ([0, Assert_failure, _g_], 1);
-     var i$0 = i - 1 | 0;
+     var i$0 =  /*<<camlinternalOO.ml:439:10>>*/ i - 1 | 0;
      i = i$0;
      tables$0 = tables_data;
     }
@@ -31326,10 +32258,17 @@
     var n =  /*<<camlinternalOO.ml:507:10>>*/ new_method(table);
     a:
     {
-     if(0 !== (n % 2 | 0)){
+      /*<<camlinternalOO.ml:508:2>>*/ if(0 !== (n % 2 | 0)){
       var _n_ = Stdlib_Sys[9];
-      if
-       ((2 + caml_div(caml_check_bound(table[2], 1)[2] * 16 | 0, _n_) | 0)
+       /*<<camlinternalOO.ml:509:57>>*/ if
+       ((2
+        +
+         caml_div
+          ( /*<<camlinternalOO.ml:509:40>>*/ caml_check_bound(table[2], 1)[2]
+           * 16
+           | 0,
+           _n_)
+        | 0)
         >= n){
        var n$0 =  /*<<camlinternalOO.ml:510:16>>*/ new_method(table);
        break a;
@@ -31339,29 +32278,29 @@
     }
      /*<<camlinternalOO.ml:512:2>>*/ caml_check_bound(table[2], n$0)[1 + n$0]
     = 0;
-    return n$0;
+     /*<<camlinternalOO.ml:512:34>>*/ return n$0;
     /*<<camlinternalOO.ml:513:3>>*/ }
    function set_methods(table, methods){
     var
-     len = methods.length - 1,
-     i =  /*<<camlinternalOO.ml:598:44>>*/ [0, 0];
+     len =  /*<<camlinternalOO.ml:598:2>>*/ methods.length - 1,
+     i =  /*<<camlinternalOO.ml:598:36>>*/ [0, 0];
     for(;;){
      if(i[1] >= len) return 0;
      var
-      _h_ = i[1],
+      _h_ =  /*<<camlinternalOO.ml:600:4>>*/ i[1],
       label =
          /*<<camlinternalOO.ml:600:16>>*/ caml_check_bound(methods, _h_)
          [1 + _h_],
       next =
-        function(param){
+         /*<<camlinternalOO.ml:543:2>>*/ function(param){
           /*<<camlinternalOO.ml:543:16>>*/ i[1]++;
-         var _m_ = i[1];
-          /*<<camlinternalOO.ml:543:34>>*/ return caml_check_bound
+         var _m_ =  /*<<camlinternalOO.ml:543:24>>*/ i[1];
+          /*<<camlinternalOO.ml:543:42>>*/ return  /*<<camlinternalOO.ml:543:34>>*/ caml_check_bound
                   (methods, _m_)
-                 [1 + _m_];
-         /*<<camlinternalOO.ml:543:42>>*/ },
+                 [1 + _m_] /*<<camlinternalOO.ml:543:42>>*/ ;
+        },
       clo =  /*<<camlinternalOO.ml:544:8>>*/ next(0);
-     if(typeof clo === "number")
+      /*<<camlinternalOO.ml:544:14>>*/ if(typeof clo === "number")
       switch(clo){
         case 0:
          var x =  /*<<camlinternalOO.ml:545:28>>*/ next(0);
@@ -31369,7 +32308,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:459:35>>*/ return x$20 /*<<camlinternalOO.ml:459:18>>*/ ;
+              /*<<camlinternalOO.ml:459:35>>*/ return x$20;
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
@@ -31420,8 +32359,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:466:37>>*/ return  /*<<camlinternalOO.ml:466:20>>*/ caml_call1
-                     (f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
+              /*<<camlinternalOO.ml:466:37>>*/ return caml_call1(f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
             };
          break;
         case 6:
@@ -31457,8 +32395,10 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:38>>*/ caml_call1
-                     (f$17, caml_call1(obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
+              /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:54>>*/ caml_call1
+                     (f$17,
+                       /*<<camlinternalOO.ml:471:38>>*/ caml_call1
+                       (obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
             };
          break;
         case 9:
@@ -31470,7 +32410,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:472:45>>*/ return  /*<<camlinternalOO.ml:472:28>>*/ caml_call2
+              /*<<camlinternalOO.ml:472:45>>*/ return caml_call2
                      (f$16, x$18, y$0) /*<<camlinternalOO.ml:472:50>>*/ ;
             };
          break;
@@ -31510,8 +32450,11 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:474:43>>*/ return  /*<<camlinternalOO.ml:474:47>>*/ caml_call2
-                     (f$13, x$15, caml_call1(obj[1][1 + n$29], obj)) /*<<camlinternalOO.ml:474:63>>*/ ;
+              /*<<camlinternalOO.ml:474:43>>*/ return  /*<<camlinternalOO.ml:474:63>>*/ caml_call2
+                     (f$13,
+                      x$15,
+                       /*<<camlinternalOO.ml:474:47>>*/ caml_call1
+                       (obj[1][1 + n$29], obj)) /*<<camlinternalOO.ml:474:63>>*/ ;
             };
          break;
         case 13:
@@ -31523,7 +32466,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:475:42>>*/ return  /*<<camlinternalOO.ml:475:26>>*/ caml_call2
+              /*<<camlinternalOO.ml:475:42>>*/ return caml_call2
                      (f$12, obj[1 + n$28], x$14) /*<<camlinternalOO.ml:475:70>>*/ ;
             };
          break;
@@ -31537,7 +32480,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:482:4>>*/ return  /*<<camlinternalOO.ml:481:2>>*/ caml_call2
+              /*<<camlinternalOO.ml:482:4>>*/ return caml_call2
                      (f$11, obj[1 + e$7][1 + n$27], x$13) /*<<camlinternalOO.ml:482:71>>*/ ;
             };
          break;
@@ -31550,7 +32493,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:476:43>>*/ return  /*<<camlinternalOO.ml:476:27>>*/ caml_call2
+              /*<<camlinternalOO.ml:476:43>>*/ return  /*<<camlinternalOO.ml:476:61>>*/ caml_call2
                      (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
                        (obj[1][1 + n$26], obj),
@@ -31565,7 +32508,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:483:41>>*/ return  /*<<camlinternalOO.ml:483:25>>*/ caml_call2
+              /*<<camlinternalOO.ml:483:41>>*/ return caml_call2
                      (obj[1][1 + n$25], obj, x$11) /*<<camlinternalOO.ml:483:68>>*/ ;
             };
          break;
@@ -31606,7 +32549,8 @@
               _l_ =
                  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
                  (obj[1][1 + m$10], obj);
-             return caml_call2(obj[1][1 + n$22], obj, _l_) /*<<camlinternalOO.ml:490:60>>*/ ;
+              /*<<camlinternalOO.ml:490:60>>*/ return caml_call2
+                     (obj[1][1 + n$22], obj, _l_);
             };
          break;
         case 20:
@@ -31618,7 +32562,7 @@
          var
           clo$0 =
             function(obj){
-              /*<<camlinternalOO.ml:492:18>>*/ return  /*<<camlinternalOO.ml:492:2>>*/ caml_call1
+              /*<<camlinternalOO.ml:492:18>>*/ return caml_call1
                      (caml_get_public_method(x$10, m$9, 0), x$10) /*<<camlinternalOO.ml:492:58>>*/ ;
             };
          break;
@@ -31631,7 +32575,7 @@
          var
           clo$0 =
             function(obj){
-             var _k_ = obj[1 + n$21];
+             var _k_ =  /*<<camlinternalOO.ml:495:4>>*/ obj[1 + n$21];
              return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_) /*<<camlinternalOO.ml:496:32>>*/ ;
             };
          break;
@@ -31645,7 +32589,8 @@
          var
           clo$0 =
             function(obj){
-             var _j_ = obj[1 + e$5][1 + n$20];
+             var
+              _j_ =  /*<<camlinternalOO.ml:499:4>>*/ obj[1 + e$5][1 + n$20];
              return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_) /*<<camlinternalOO.ml:502:34>>*/ ;
             };
          break;
@@ -31662,13 +32607,14 @@
               _i_ =
                  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
                  (obj[1][1 + n$19], obj);
-             return caml_call1(caml_get_public_method(_i_, m$6, 0), _i_) /*<<camlinternalOO.ml:505:59>>*/ ;
+              /*<<camlinternalOO.ml:505:30>>*/ return 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:601:30>>*/ i[1]++;
     }
     /*<<camlinternalOO.ml:603:6>>*/ }
    function stats(param){
@@ -31679,7 +32625,7 @@
     /*<<camlinternalOO.ml:612:59>>*/ }
    var
     CamlinternalOO =
-      [0,
+       /*<<camlinternalOO.ml:119:50>>*/ [0,
        public_method_label,
        new_method,
        new_variable,
@@ -31762,26 +32708,26 @@
       "CamlinternalMod.update_mod: not a module";
    function init_mod_block(loc, comps$0){
     var
-     length = comps$0.length - 1,
+     length =  /*<<camlinternalMod.ml:52:2>>*/ comps$0.length - 1,
      modu =
         /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block(0, length),
      _h_ =  /*<<camlinternalMod.ml:54:2>>*/ length - 1 | 0,
-     _g_ =  /*<<camlinternalMod.ml:53:13>>*/ 0;
-    if(_h_ >= 0){
+     _g_ =  /*<<camlinternalMod.ml:53:35>>*/ 0;
+     /*<<camlinternalMod.ml:54:2>>*/ if(_h_ >= 0){
      var i = _g_;
      for(;;){
       var
        shape =
           /*<<camlinternalMod.ml:55:30>>*/ caml_check_bound(comps$0, i)[1 + i];
-      if(typeof shape === "number")
+       /*<<camlinternalMod.ml:24:2>>*/ if(typeof shape === "number")
        switch(shape){
          case 0:
           let i$1 = i;
           var
            fn =
-             function(x){
+              /*<<camlinternalMod.ml:27:7>>*/ function(x){
               var fn =  /*<<camlinternalMod.ml:28:38>>*/ modu[1 + i$1];
-              if(fn$0 === fn)
+               /*<<camlinternalMod.ml:29:9>>*/ if(fn$0 === fn)
                 /*<<camlinternalMod.ml:30:11>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stdlib[15], loc], 1);
                /*<<camlinternalMod.ml:32:11>>*/ return caml_call1(fn, x) /*<<camlinternalMod.ml:32:16>>*/ ;
@@ -31790,20 +32736,19 @@
           var init = fn;
           break;
          case 1:
-          var l = [];
+          var l =  /*<<camlinternalMod.ml:35:7>>*/ [];
           let l$0 = l, i$0 = i;
           runtime.caml_update_dummy
            (l,
             [246,
              function(param){
               var l =  /*<<camlinternalMod.ml:37:28>>*/ modu[1 + i$0];
-              if(l$0 === l)
+               /*<<camlinternalMod.ml:38:11>>*/ if(l$0 === l)
                 /*<<camlinternalMod.ml:39:13>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stdlib[15], loc], 1);
-              var _j_ = caml_obj_tag(l);
+              var _j_ =  /*<<camlinternalMod.ml:41:13>>*/ caml_obj_tag(l);
               if(250 === _j_) return l[1];
-              if(246 !== _j_ && 244 !== _j_)
-                /*<<camlinternalMod.ml:41:13>>*/ return l;
+              if(246 !== _j_ && 244 !== _j_) return l;
               return caml_call1(CamlinternalLazy[2], l);
              }]);
           var init = l;
@@ -31821,7 +32766,7 @@
       else
        var v = shape[1], init = v;
        /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
-      var _i_ =  /*<<camlinternalMod.ml:55:4>>*/ i + 1 | 0;
+      var _i_ =  /*<<camlinternalMod.ml:55:39>>*/ i + 1 | 0;
       if(_h_ === i) break;
       i = _i_;
      }
@@ -31842,8 +32787,8 @@
      (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
       && comps$0.length - 1 <= n.length - 1){
      var
-      _e_ = comps$0.length - 2 | 0,
-      _d_ =  /*<<camlinternalMod.ml:82:2>>*/ 0;
+      _e_ =  /*<<camlinternalMod.ml:82:2>>*/ comps$0.length - 2 | 0,
+      _d_ = 0;
      if(_e_ >= 0){
       var i = _d_;
       for(;;){
@@ -31855,36 +32800,35 @@
        a:
        if(typeof shape === "number"){
         if(2 === shape){
-          /*<<camlinternalMod.ml:72:13>>*/ if
-          (0 === caml_obj_tag(n$0) && 4 === n$0.length - 1){
+          /*<<camlinternalMod.ml:72:22>>*/ if
+          (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
+           && 4 === n$0.length - 1){
           var cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i], j = 0;
           for(;;){
             /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
-           var _c_ = j + 1 | 0;
+           var _c_ =  /*<<camlinternalMod.ml:75:41>>*/ j + 1 | 0;
            if(3 === j) break;
            j = _c_;
           }
           break a;
          }
-          /*<<camlinternalMod.ml:72:5>>*/ throw caml_maybe_attach_backtrace
-                ([0, Assert_failure, _a_], 1);
+         throw 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
+         /*<<camlinternalMod.ml:78:46>>*/ update_mod_block
          (comps, modu[1 + i], n$0);
        }
-       var _f_ =  /*<<camlinternalMod.ml:83:4>>*/ i + 1 | 0;
+       var _f_ =  /*<<camlinternalMod.ml:83:50>>*/ i + 1 | 0;
        if(_e_ === i) break;
        i = _f_;
       }
      }
      return 0;
     }
-     /*<<camlinternalMod.ml:81:2>>*/ throw caml_maybe_attach_backtrace
-           ([0, Assert_failure, _b_], 1);
+    throw caml_maybe_attach_backtrace([0, Assert_failure, _b_], 1);
     /*<<camlinternalMod.ml:84:6>>*/ }
    function update_mod(shape, o, n){
      /*<<camlinternalMod.ml:87:2>>*/ if
@@ -31945,13 +32889,11 @@
     Stdlib_Random = global_data.Stdlib__Random;
    function MakeSeeded(H){
     var
-     prng =
-        /*<<ephemeron.ml:105:20>>*/ [246,
-        function(_at_){ /*<<?>>*/ return caml_call1(Stdlib_Random[19][2], 0);}];
+     prng = [246, function(_at_){return caml_call1(Stdlib_Random[19][2], 0);}];
     function create(opt, initial_size){
      var
       random =
-        opt
+         /*<<ephemeron.ml:107:15>>*/ opt
          ? opt[1]
          :  /*<<ephemeron.ml:107:26>>*/ caml_call1(Stdlib_Hashtbl[17], 0);
      a:
@@ -31960,14 +32902,14 @@
       var x = 16;
        /*<<ephemeron.ml:101:6>>*/ for(;;){
        if(initial_size <= x) break b;
-       if(Stdlib_Sys[13] < (x * 2 | 0)) break;
-       var x$0 = x * 2 | 0;
+        /*<<ephemeron.ml:102:11>>*/ if(Stdlib_Sys[13] < (x * 2 | 0)) break;
+       var x$0 =  /*<<ephemeron.ml:103:11>>*/ x * 2 | 0;
        x = x$0;
       }
       break a;
      }
       /*<<ephemeron.ml:109:6>>*/ if(random){
-      var _ar_ = runtime.caml_obj_tag(prng);
+      var _ar_ =  /*<<ephemeron.ml:109:32>>*/ runtime.caml_obj_tag(prng);
       a:
       if(250 === _ar_)
        var _as_ = prng[1];
@@ -31975,29 +32917,27 @@
        if(246 !== _ar_ && 244 !== _ar_){var _as_ = prng; break a;}
        var _as_ = caml_call1(CamlinternalLazy[2], prng);
       }
-      var
-       seed =
-          /*<<ephemeron.ml:109:32>>*/ caml_call1(Stdlib_Random[19][4], _as_);
+      var seed = caml_call1(Stdlib_Random[19][4], _as_);
      }
      else
       var seed = 0;
-      /*<<ephemeron.ml:110:6>>*/ return [0,
+      /*<<ephemeron.ml:110:74>>*/ return [0,
              0,
               /*<<ephemeron.ml:110:56>>*/ caml_make_vect(x, 0),
              seed,
-             x] /*<<ephemeron.ml:110:6>>*/ ;
+             x] /*<<ephemeron.ml:110:74>>*/ ;
      /*<<ephemeron.ml:110:76>>*/ }
     function clear(h){
       /*<<ephemeron.ml:113:6>>*/ h[1] = 0;
      var
-      len = h[2].length - 1,
+      len =  /*<<ephemeron.ml:114:6>>*/ h[2].length - 1,
       _ap_ =  /*<<ephemeron.ml:115:6>>*/ len - 1 | 0,
-      _ao_ = 0;
-     if(_ap_ >= 0){
+      _ao_ =  /*<<ephemeron.ml:114:6>>*/ 0;
+      /*<<ephemeron.ml:115:6>>*/ if(_ap_ >= 0){
       var i = _ao_;
       for(;;){
         /*<<ephemeron.ml:116:8>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
-       var _aq_ = i + 1 | 0;
+       var _aq_ =  /*<<ephemeron.ml:116:27>>*/ i + 1 | 0;
        if(_ap_ === i) break;
        i = _aq_;
       }
@@ -32005,8 +32945,8 @@
      return 0;
      /*<<ephemeron.ml:117:10>>*/ }
     function reset(h){
-     var len = h[2].length - 1;
-     return len === h[4]
+     var len =  /*<<ephemeron.ml:120:6>>*/ h[2].length - 1;
+      /*<<ephemeron.ml:121:6>>*/ return len === h[4]
              ?  /*<<ephemeron.ml:122:8>>*/ clear(h)
              : (h
                 [1]
@@ -32016,10 +32956,10 @@
     }
     function copy(h){
      var
-      _al_ = h[4],
+      _al_ =  /*<<ephemeron.ml:128:17>>*/ h[4],
       _am_ = h[3],
       _an_ =  /*<<ephemeron.ml:128:33>>*/ caml_call1(Stdlib_Array[7], h[2]);
-      /*<<ephemeron.ml:128:17>>*/ return [0, h[1], _an_, _am_, _al_];
+      /*<<ephemeron.ml:128:50>>*/ return [0, h[1], _an_, _am_, _al_];
      /*<<ephemeron.ml:128:52>>*/ }
     function key_index(h, hkey){
       /*<<ephemeron.ml:131:6>>*/ return hkey & (h[2].length - 2 | 0);
@@ -32030,24 +32970,29 @@
        /*<<ephemeron.ml:134:26>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
        var hkey = param$0[1], rest = param$0[3], c = param$0[2];
-        /*<<ephemeron.ml:137:36>>*/ if(caml_call1(H[6], c)){
+        /*<<ephemeron.ml:137:51>>*/ if
+        ( /*<<ephemeron.ml:137:36>>*/ caml_call1(H[6], c)){
         var rest$0 = param$0[3], c$0 = param$0[2];
-         /*<<ephemeron.ml:141:12>>*/ return [0,
+         /*<<ephemeron.ml:141:40>>*/ return [0,
                 hkey,
                 c$0,
-                 /*<<ephemeron.ml:141:26>>*/ do_bucket(rest$0)] /*<<ephemeron.ml:141:12>>*/ ;
+                 /*<<ephemeron.ml:141:26>>*/ do_bucket(rest$0)] /*<<ephemeron.ml:141:40>>*/ ;
        }
-       h[1] = h[1] - 1 | 0;
+        /*<<ephemeron.ml:138:12>>*/ h[1] = h[1] - 1 | 0;
        param$0 = rest;
       }
       /*<<ephemeron.ml:141:41>>*/ }
-     var d = h[2], _aj_ = d.length - 2 | 0, _ai_ = 0;
-     if(_aj_ >= 0){
+     var
+      d =  /*<<ephemeron.ml:143:6>>*/ h[2],
+      _aj_ =  /*<<ephemeron.ml:144:6>>*/ d.length - 2 | 0,
+      _ai_ =  /*<<ephemeron.ml:143:6>>*/ 0;
+      /*<<ephemeron.ml:144:6>>*/ if(_aj_ >= 0){
       var i = _ai_;
       for(;;){
         /*<<ephemeron.ml:145:8>>*/ d[1 + i] =
-         /*<<ephemeron.ml:145:17>>*/ do_bucket(caml_check_bound(d, i)[1 + i]);
-       var _ak_ =  /*<<ephemeron.ml:145:8>>*/ i + 1 | 0;
+         /*<<ephemeron.ml:145:17>>*/ do_bucket
+         ( /*<<ephemeron.ml:145:27>>*/ caml_check_bound(d, i)[1 + i]);
+       var _ak_ =  /*<<ephemeron.ml:145:32>>*/ i + 1 | 0;
        if(_aj_ === i) break;
        i = _ak_;
       }
@@ -32056,35 +33001,39 @@
      /*<<ephemeron.ml:146:10>>*/ }
     function resize(h){
      var
-      odata = h[2],
+      odata =  /*<<ephemeron.ml:169:6>>*/ h[2],
       osize =  /*<<ephemeron.ml:170:6>>*/ odata.length - 1,
-      nsize = osize * 2 | 0;
+      nsize =  /*<<ephemeron.ml:171:6>>*/ osize * 2 | 0;
       /*<<ephemeron.ml:172:6>>*/ clean(h);
      var
-      _ac_ = nsize < Stdlib_Sys[13] ? 1 : 0,
+      _ac_ =  /*<<ephemeron.ml:172:13>>*/ nsize < Stdlib_Sys[13] ? 1 : 0,
       _ad_ = _ac_ ? (osize >>> 1 | 0) <= h[1] ? 1 : 0 : _ac_;
      if(_ad_){
       var ndata =  /*<<ephemeron.ml:174:20>>*/ caml_make_vect(nsize, 0);
-      h[2] = ndata;
+       /*<<ephemeron.ml:175:8>>*/ h[2] = ndata;
       var
        insert_bucket =
-         function(param){
+          /*<<ephemeron.ml:176:8>>*/ function(param){
            /*<<ephemeron.ml:176:32>>*/ if(! param)
             /*<<ephemeron.ml:177:21>>*/ return;
           var rest = param[3], data = param[2], hkey = param[1];
            /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
           var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
            /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
-           [0, hkey, data, caml_check_bound(ndata, nidx)[1 + nidx]];
+           [0,
+            hkey,
+            data,
+             /*<<ephemeron.ml:181:47>>*/ caml_check_bound(ndata, nidx)
+             [1 + nidx]];
           /*<<ephemeron.ml:181:60>>*/ },
-       _af_ =  /*<<ephemeron.ml:170:6>>*/ osize - 1 | 0,
-       _ae_ =  /*<<ephemeron.ml:182:8>>*/ 0;
+       _af_ =  /*<<ephemeron.ml:182:8>>*/ osize - 1 | 0,
+       _ae_ = 0;
       if(_af_ >= 0){
        var i = _ae_;
        for(;;){
          /*<<ephemeron.ml:183:10>>*/ insert_bucket
-         (caml_check_bound(odata, i)[1 + i]);
-        var _ah_ = i + 1 | 0;
+         ( /*<<ephemeron.ml:183:24>>*/ caml_check_bound(odata, i)[1 + i]);
+        var _ah_ =  /*<<ephemeron.ml:183:33>>*/ i + 1 | 0;
         if(_af_ === i) break;
         i = _ah_;
        }
@@ -32101,13 +33050,14 @@
       i =  /*<<ephemeron.ml:189:14>>*/ key_index(h, hkey),
       container =  /*<<ephemeron.ml:190:22>>*/ caml_call2(H[1], key, info),
       bucket =
-         /*<<ephemeron.ml:191:19>>*/ [0,
+         /*<<ephemeron.ml:191:51>>*/ [0,
          hkey,
          container,
-         caml_check_bound(h[2], i)[1 + i]];
+          /*<<ephemeron.ml:191:41>>*/ caml_check_bound(h[2], i)[1 + i]];
       /*<<ephemeron.ml:192:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
-     h[1] = h[1] + 1 | 0;
-     var _ab_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
+      /*<<ephemeron.ml:192:26>>*/ h[1] = h[1] + 1 | 0;
+     var
+      _ab_ =  /*<<ephemeron.ml:194:6>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
      return _ab_ ?  /*<<ephemeron.ml:194:49>>*/ resize(h) : _ab_ /*<<ephemeron.ml:194:57>>*/ ;
     }
     function remove(h, key){
@@ -32117,22 +33067,25 @@
        /*<<ephemeron.ml:198:30>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:199:19>>*/ return 0;
        var hk = param$0[1], next = param$0[3], c = param$0[2];
-       if(hkey !== hk){
+        /*<<ephemeron.ml:200:33>>*/ if(hkey !== hk){
         var next$0 = param$0[3], c$0 = param$0[2];
-         /*<<ephemeron.ml:210:29>>*/ return [0,
+         /*<<ephemeron.ml:210:59>>*/ return [0,
                 hk,
                 c$0,
-                 /*<<ephemeron.ml:210:41>>*/ remove_bucket(next$0)] /*<<ephemeron.ml:210:29>>*/ ;
+                 /*<<ephemeron.ml:210:41>>*/ remove_bucket(next$0)] /*<<ephemeron.ml:210:59>>*/ ;
        }
-       switch( /*<<ephemeron.ml:201:24>>*/ caml_call2(H[3], c, key)){
+        /*<<ephemeron.ml:201:37>>*/ switch
+        ( /*<<ephemeron.ml:201:24>>*/ caml_call2(H[3], c, key)){
          case 0:
-          h[1] = h[1] - 1 | 0;  /*<<ephemeron.ml:202:45>>*/ return next;
+           /*<<ephemeron.ml:202:23>>*/ h[1] = h[1] - 1 | 0;
+           /*<<ephemeron.ml:202:45>>*/ return next;
          case 1:
-           /*<<ephemeron.ml:203:24>>*/ return [0,
+           /*<<ephemeron.ml:203:54>>*/ return [0,
                   hk,
                   c,
-                   /*<<ephemeron.ml:203:36>>*/ remove_bucket(next)] /*<<ephemeron.ml:203:24>>*/ ;
-         default: h[1] = h[1] - 1 | 0; param$0 = next;
+                   /*<<ephemeron.ml:203:36>>*/ remove_bucket(next)] /*<<ephemeron.ml:203:54>>*/ ;
+         default:
+           /*<<ephemeron.ml:207:16>>*/ h[1] = h[1] - 1 | 0; param$0 = next;
        }
       }
       /*<<ephemeron.ml:210:60>>*/ }
@@ -32140,25 +33093,30 @@
       i =  /*<<ephemeron.ml:211:14>>*/ key_index(h, hkey),
       _aa_ =
          /*<<ephemeron.ml:212:20>>*/ remove_bucket
-         (caml_check_bound(h[2], i)[1 + i]);
+         ( /*<<ephemeron.ml:212:34>>*/ caml_check_bound(h[2], i)[1 + i]);
       /*<<ephemeron.ml:212:6>>*/ caml_check_bound(h[2], i)[1 + i] = _aa_;
-     return 0;
-     /*<<ephemeron.ml:212:44>>*/ }
+      /*<<ephemeron.ml:212:44>>*/ return 0;
+    }
     function find(h, key){
      var
       hkey =  /*<<ephemeron.ml:239:17>>*/ caml_call2(H[2], h[3], key),
       _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
-      param = caml_check_bound(h[2], _$_)[1 + _$_];
+      param =
+         /*<<ephemeron.ml:241:24>>*/ caml_check_bound(h[2], _$_)[1 + _$_];
       /*<<ephemeron.ml:218:21>>*/ for(;;){
       if(! param)
         /*<<ephemeron.ml:220:10>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
       var hk = param[1], rest = param[3], c = param[2];
-      if(hkey === hk)
-       switch( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
+       /*<<ephemeron.ml:221:31>>*/ if(hkey === hk)
+        /*<<ephemeron.ml:222:35>>*/ switch
+        ( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
          case 0:
           var match =  /*<<ephemeron.ml:224:26>>*/ caml_call1(H[4], c);
-          if(match){var d = match[1];  /*<<ephemeron.ml:229:26>>*/ return d;}
+           /*<<ephemeron.ml:224:38>>*/ if(match){
+           var d = match[1];
+            /*<<ephemeron.ml:229:26>>*/ return d;
+          }
           param = rest;
           break;
          case 1:
@@ -32172,15 +33130,18 @@
      var
       hkey =  /*<<ephemeron.ml:264:17>>*/ caml_call2(H[2], h[3], key),
       ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
-      param = caml_check_bound(h[2], ___)[1 + ___];
+      param =
+         /*<<ephemeron.ml:266:28>>*/ caml_check_bound(h[2], ___)[1 + ___];
       /*<<ephemeron.ml:243:25>>*/ for(;;){
       if(! param)  /*<<ephemeron.ml:245:10>>*/ return 0;
       var hk = param[1], rest = param[3], c = param[2];
-      if(hkey === hk)
-       switch( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
+       /*<<ephemeron.ml:246:31>>*/ if(hkey === hk)
+        /*<<ephemeron.ml:247:35>>*/ switch
+        ( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
          case 0:
           var d =  /*<<ephemeron.ml:249:26>>*/ caml_call1(H[4], c);
-          if(d)  /*<<ephemeron.ml:254:31>>*/ return d;
+           /*<<ephemeron.ml:249:38>>*/ if(d)
+            /*<<ephemeron.ml:254:31>>*/ return d;
           param = rest;
           break;
          case 1:
@@ -32197,15 +33158,16 @@
        /*<<ephemeron.ml:270:31>>*/ for(;;){
        if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
        var hk = param$0[1], rest = param$0[3], c = param$0[2];
-       if(hkey === hk)
-        switch( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
+        /*<<ephemeron.ml:272:31>>*/ if(hkey === hk)
+         /*<<ephemeron.ml:273:35>>*/ switch
+         ( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
           case 0:
            var match =  /*<<ephemeron.ml:274:33>>*/ caml_call1(H[4], c);
-           if(match){
+            /*<<ephemeron.ml:274:45>>*/ if(match){
             var d = match[1];
-             /*<<ephemeron.ml:277:26>>*/ return [0,
+             /*<<ephemeron.ml:277:48>>*/ return [0,
                     d,
-                     /*<<ephemeron.ml:277:29>>*/ find_in_bucket(rest)] /*<<ephemeron.ml:277:26>>*/ ;
+                     /*<<ephemeron.ml:277:29>>*/ find_in_bucket(rest)] /*<<ephemeron.ml:277:48>>*/ ;
            }
            param$0 = rest;
            break;
@@ -32217,25 +33179,28 @@
       }
       /*<<ephemeron.ml:284:29>>*/ }
      var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
-      /*<<ephemeron.ml:285:21>>*/ return find_in_bucket
-             (caml_check_bound(h[2], _Z_)[1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
+      /*<<ephemeron.ml:285:46>>*/ return find_in_bucket
+             ( /*<<ephemeron.ml:285:21>>*/ caml_check_bound(h[2], _Z_)
+               [1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
     }
     function replace(h, key, info){
      var
       hkey =  /*<<ephemeron.ml:289:17>>*/ caml_call2(H[2], h[3], key),
       i =  /*<<ephemeron.ml:299:14>>*/ key_index(h, hkey),
       l =  /*<<ephemeron.ml:300:14>>*/ caml_check_bound(h[2], i)[1 + i];
-      /*<<ephemeron.ml:301:6>>*/ try{
+     try{
       var param = l;
        /*<<ephemeron.ml:290:31>>*/ for(;;){
        if(! param)
          /*<<ephemeron.ml:291:19>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[8], 1);
        var hk = param[1], next = param[3], c = param[2];
-       if(hkey === hk){
-        if(!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
-         var _V_ =  /*<<ephemeron.ml:290:6>>*/ caml_call3(H[5], c, key, info);
-          /*<<ephemeron.ml:302:8>>*/ return _V_;
+        /*<<ephemeron.ml:292:33>>*/ if(hkey === hk){
+         /*<<ephemeron.ml:293:37>>*/ if
+         (!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
+         var
+          _V_ =  /*<<ephemeron.ml:294:23>>*/ caml_call3(H[5], c, key, info);
+         return _V_;
         }
         param = next;
        }
@@ -32248,8 +33213,9 @@
       var
        container =  /*<<ephemeron.ml:304:24>>*/ caml_call2(H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
-      h[1] = h[1] + 1 | 0;
-      var _X_ = h[2].length - 1 << 1 < h[1] ? 1 : 0;
+       /*<<ephemeron.ml:305:46>>*/ h[1] = h[1] + 1 | 0;
+      var
+       _X_ =  /*<<ephemeron.ml:307:8>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
       return _X_ ?  /*<<ephemeron.ml:307:51>>*/ resize(h) : _X_ /*<<ephemeron.ml:307:59>>*/ ;
      }
     }
@@ -32257,12 +33223,14 @@
      var
       hkey =  /*<<ephemeron.ml:310:17>>*/ caml_call2(H[2], h[3], key),
       _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
-      param = caml_check_bound(h[2], _U_)[1 + _U_];
+      param =
+         /*<<ephemeron.ml:320:20>>*/ caml_check_bound(h[2], _U_)[1 + _U_];
       /*<<ephemeron.ml:311:30>>*/ for(;;){
       if(! param)  /*<<ephemeron.ml:313:10>>*/ return 0;
       var hk = param[1], rest = param[3], c = param[2];
-      if(hk === hkey){
-       if(!  /*<<ephemeron.ml:315:22>>*/ caml_call2(H[3], c, key))
+       /*<<ephemeron.ml:314:31>>*/ if(hk === hkey){
+        /*<<ephemeron.ml:315:35>>*/ if
+        (!  /*<<ephemeron.ml:315:22>>*/ caml_call2(H[3], c, key))
          /*<<ephemeron.ml:316:21>>*/ return 1;
        param = rest;
       }
@@ -32290,7 +33258,8 @@
          (Stdlib_Array[18],
           function(m, b){
            var _T_ =  /*<<ephemeron.ml:330:46>>*/ bucket_length(0, b);
-           return caml_call2(Stdlib_Int[11], m, _T_) /*<<ephemeron.ml:330:65>>*/ ;
+            /*<<ephemeron.ml:330:65>>*/ return caml_call2
+                   (Stdlib_Int[11], m, _T_);
           },
           0,
           h[2]),
@@ -32300,19 +33269,25 @@
        function(b){
         var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
          /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
-         caml_check_bound(histo, l)[1 + l] + 1 | 0;
-        return 0;
-        /*<<ephemeron.ml:335:37>>*/ },
+          /*<<ephemeron.ml:335:24>>*/ caml_check_bound(histo, l)[1 + l] + 1
+         | 0;
+         /*<<ephemeron.ml:335:37>>*/ return 0;
+       },
        h[2]);
-      /*<<ephemeron.ml:337:6>>*/ return [0, h[1], h[2].length - 1, mbl, histo];
+      /*<<ephemeron.ml:336:14>>*/ return [0,
+             h[1],
+             h[2].length - 1,
+             mbl,
+             histo];
      /*<<ephemeron.ml:340:34>>*/ }
     function bucket_length_alive(accu, param){
      var accu$0 = accu, param$0 = param;
       /*<<ephemeron.ml:342:32>>*/ for(;;){
       if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
       var rest = param$0[3], c = param$0[2];
-       /*<<ephemeron.ml:344:30>>*/ if(caml_call1(H[6], c)){
-       var accu$1 = accu$0 + 1 | 0;
+       /*<<ephemeron.ml:344:43>>*/ if
+       ( /*<<ephemeron.ml:344:30>>*/ caml_call1(H[6], c)){
+       var accu$1 =  /*<<ephemeron.ml:345:10>>*/ accu$0 + 1 | 0;
        accu$0 = accu$1;
        param$0 = rest;
       }
@@ -32321,13 +33296,14 @@
      /*<<ephemeron.ml:346:57>>*/ }
     function stats_alive(h){
      var
-      size =  /*<<ephemeron.ml:349:17>>*/ [0, 0],
+      size =  /*<<ephemeron.ml:349:6>>*/ [0, 0],
       mbl =
          /*<<ephemeron.ml:351:8>>*/ caml_call3
          (Stdlib_Array[18],
           function(m, b){
            var _S_ =  /*<<ephemeron.ml:352:32>>*/ bucket_length_alive(0, b);
-           return caml_call2(Stdlib_Int[11], m, _S_) /*<<ephemeron.ml:352:57>>*/ ;
+            /*<<ephemeron.ml:352:57>>*/ return caml_call2
+                   (Stdlib_Int[11], m, _S_);
           },
           0,
           h[2]),
@@ -32336,13 +33312,14 @@
       (Stdlib_Array[12],
        function(b){
         var l =  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive(0, b);
-        size[1] = size[1] + l | 0;
+         /*<<ephemeron.ml:358:11>>*/ size[1] = size[1] + l | 0;
          /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
-         caml_check_bound(histo, l)[1 + l] + 1 | 0;
-        return 0;
-        /*<<ephemeron.ml:359:37>>*/ },
+          /*<<ephemeron.ml:359:24>>*/ caml_check_bound(histo, l)[1 + l] + 1
+         | 0;
+         /*<<ephemeron.ml:359:37>>*/ return 0;
+       },
        h[2]);
-      /*<<ephemeron.ml:361:6>>*/ return [0,
+      /*<<ephemeron.ml:360:14>>*/ return [0,
              size[1],
              h[2].length - 1,
              mbl,
@@ -32352,7 +33329,7 @@
       /*<<ephemeron.ml:367:6>>*/ return caml_call2
              (Stdlib_Seq[4],
               function(param){
-               var v = param[2], k = param[1];
+               var v =  /*<<ephemeron.ml:367:15>>*/ param[2], k = param[1];
                 /*<<ephemeron.ml:367:29>>*/ return add(tbl, k, v) /*<<ephemeron.ml:367:41>>*/ ;
               },
               i) /*<<ephemeron.ml:367:43>>*/ ;
@@ -32361,7 +33338,7 @@
       /*<<ephemeron.ml:370:6>>*/ return caml_call2
              (Stdlib_Seq[4],
               function(param){
-               var v = param[2], k = param[1];
+               var v =  /*<<ephemeron.ml:370:15>>*/ param[2], k = param[1];
                 /*<<ephemeron.ml:370:29>>*/ return replace(tbl, k, v) /*<<ephemeron.ml:370:45>>*/ ;
               },
               i) /*<<ephemeron.ml:370:47>>*/ ;
@@ -32369,9 +33346,9 @@
     function of_seq(i){
      var tbl =  /*<<ephemeron.ml:373:16>>*/ create(0, 16);
       /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
-     return tbl;
+      /*<<ephemeron.ml:374:23>>*/ return tbl;
      /*<<ephemeron.ml:375:9>>*/ }
-     /*<<ephemeron.ml:82:4>>*/ return [0,
+    return [0,
             create,
             clear,
             reset,
@@ -32415,35 +33392,42 @@
     var eph =  /*<<ephemeron.ml:405:14>>*/ create(0);
      /*<<ephemeron.ml:406:4>>*/ set_data(eph, data);
      /*<<ephemeron.ml:407:4>>*/ set_key(eph, key);
-    return eph;
+     /*<<ephemeron.ml:407:19>>*/ return eph;
     /*<<ephemeron.ml:408:7>>*/ }
    function query(eph, key){
     var match =  /*<<ephemeron.ml:411:10>>*/ get_key(eph);
-    if(! match)  /*<<ephemeron.ml:412:14>>*/ return 0;
+     /*<<ephemeron.ml:411:21>>*/ if(! match)
+      /*<<ephemeron.ml:412:14>>*/ return 0;
     var k = match[1];
-    return k === key ?  /*<<ephemeron.ml:413:30>>*/ get_data(eph) : 0 /*<<ephemeron.ml:414:20>>*/ ;
+     /*<<ephemeron.ml:413:18>>*/ return k === key
+            ?  /*<<ephemeron.ml:413:30>>*/ get_data(eph)
+            : 0 /*<<ephemeron.ml:414:20>>*/ ;
    }
    function MakeSeeded$0(H){
     function create$0(k, d){
      var c =  /*<<ephemeron.ml:421:16>>*/ create(0);
       /*<<ephemeron.ml:422:8>>*/ set_data(c, d);
       /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
-     return c;
+      /*<<ephemeron.ml:423:19>>*/ return c;
      /*<<ephemeron.ml:424:9>>*/ }
     var seeded_hash = H[2];
     function equal(c, k){
      var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
-     if(! match)  /*<<ephemeron.ml:430:18>>*/ return 2;
+      /*<<ephemeron.ml:429:23>>*/ if(! match)
+       /*<<ephemeron.ml:430:18>>*/ return 2;
      var k$0 = match[1];
-      /*<<ephemeron.ml:432:15>>*/ return caml_call2(H[1], k, k$0) ? 0 : 1 /*<<ephemeron.ml:432:76>>*/ ;
+      /*<<ephemeron.ml:432:27>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
+              (H[1], k, k$0)
+             ? 0
+             : 1 /*<<ephemeron.ml:432:76>>*/ ;
     }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:435:8>>*/  /*<<ephemeron.ml:402:40>>*/ caml_call1
       (Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:436:8>>*/ set_key(c, k);
-     return set_data(c, d) /*<<ephemeron.ml:437:20>>*/ ;
+      /*<<ephemeron.ml:436:19>>*/ return set_data(c, d) /*<<ephemeron.ml:437:20>>*/ ;
     }
-     /*<<ephemeron.ml:417:28>>*/ return MakeSeeded
+    return MakeSeeded
             ([0,
               create$0,
               seeded_hash,
@@ -32482,9 +33466,9 @@
     function of_seq(i){
      var tbl =  /*<<ephemeron.ml:448:20>>*/ caml_call2(_R_, _a_, 16);
       /*<<ephemeron.ml:451:6>>*/ caml_call2(replace_seq, tbl, i);
-     return tbl;
+      /*<<ephemeron.ml:451:23>>*/ return tbl;
      /*<<ephemeron.ml:452:9>>*/ }
-     /*<<ephemeron.ml:442:2>>*/ return [0,
+    return [0,
             create,
             clear,
             reset,
@@ -32508,28 +33492,32 @@
      /*<<ephemeron.ml:459:18>>*/ return [0, 0];
     /*<<ephemeron.ml:459:24>>*/ }
    function add(b, k, d){
-    var _Q_ = b[1];
-    b[1] = [0,  /*<<ephemeron.ml:460:25>>*/ make(k, d), _Q_];
-    return 0;
+    var _Q_ =  /*<<ephemeron.ml:460:20>>*/ b[1];
+     /*<<ephemeron.ml:460:36>>*/ b[1] =
+     [0,  /*<<ephemeron.ml:460:25>>*/ make(k, d), _Q_];
+     /*<<ephemeron.ml:460:36>>*/ return 0;
     /*<<ephemeron.ml:460:42>>*/ }
    function test_key(k, e){
     var match =  /*<<ephemeron.ml:463:12>>*/ get_key(e);
-    if(match){
+     /*<<ephemeron.ml:463:21>>*/ if(match){
      var x = match[1];
-     if(x === k)  /*<<ephemeron.ml:464:30>>*/ return 1;
+      /*<<ephemeron.ml:464:20>>*/ if(x === k)
+       /*<<ephemeron.ml:464:30>>*/ return 1;
     }
      /*<<ephemeron.ml:465:13>>*/ return 0;
     /*<<ephemeron.ml:465:18>>*/ }
    function remove(b, k){
-    var l$0 = b[1], l = l$0, acc = 0;
+    var l$0 =  /*<<ephemeron.ml:474:6>>*/ b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:469:8>>*/ for(;;){
      if(! l)  /*<<ephemeron.ml:470:16>>*/ return 0;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:471:22>>*/ if(test_key(k, h)){
-      b[1] =  /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
-      return 0;
+      /*<<ephemeron.ml:471:34>>*/ if
+      ( /*<<ephemeron.ml:471:22>>*/ test_key(k, h)){
+       /*<<ephemeron.ml:471:64>>*/ b[1] =
+        /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
+       /*<<ephemeron.ml:471:64>>*/ return 0;
      }
-     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:472:27>>*/ [0, h, acc];
+     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:472:20>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
@@ -32541,7 +33529,8 @@
         (Stdlib_List[40],
          function(_P_){ /*<<?>>*/ return test_key(k, _P_);},
          b[1]);
-    if(! match)  /*<<ephemeron.ml:479:16>>*/ return 0;
+     /*<<ephemeron.ml:477:41>>*/ if(! match)
+      /*<<ephemeron.ml:479:16>>*/ return 0;
     var e = match[1];
      /*<<ephemeron.ml:478:18>>*/ return get_data(e) /*<<ephemeron.ml:479:20>>*/ ;
    }
@@ -32585,43 +33574,54 @@
     /*<<ephemeron.ml:514:7>>*/ }
    function query$0(eph, key1, key2){
     var match =  /*<<ephemeron.ml:517:10>>*/ get_key1(eph);
-    if(! match)  /*<<ephemeron.ml:518:14>>*/ return 0;
+     /*<<ephemeron.ml:517:22>>*/ if(! match)
+      /*<<ephemeron.ml:518:14>>*/ return 0;
     var k = match[1];
-    if(k !== key1)  /*<<ephemeron.ml:525:16>>*/ return 0;
+     /*<<ephemeron.ml:519:18>>*/ if(k !== key1)
+      /*<<ephemeron.ml:525:16>>*/ return 0;
     var match$0 =  /*<<ephemeron.ml:520:20>>*/ get_key2(eph);
-    if(! match$0)  /*<<ephemeron.ml:521:18>>*/ return 0;
+     /*<<ephemeron.ml:520:32>>*/ if(! match$0)
+      /*<<ephemeron.ml:521:18>>*/ return 0;
     var k$0 = match$0[1];
-    return k$0 === key2 ?  /*<<ephemeron.ml:522:35>>*/ get_data$0(eph) : 0 /*<<ephemeron.ml:525:20>>*/ ;
+     /*<<ephemeron.ml:522:22>>*/ return k$0 === key2
+            ?  /*<<ephemeron.ml:522:35>>*/ get_data$0(eph)
+            : 0 /*<<ephemeron.ml:525:20>>*/ ;
    }
    function MakeSeeded$1(H1, H2){
     function create(param, d){
      var
-      k2 = param[2],
+      k2 =  /*<<ephemeron.ml:533:17>>*/ param[2],
       k1 = param[1],
       c =  /*<<ephemeron.ml:534:16>>*/ create$0(0);
       /*<<ephemeron.ml:535:8>>*/ set_data$0(c, d);
       /*<<ephemeron.ml:536:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:536:23>>*/ set_key2(c, k2);
-     return c;
+      /*<<ephemeron.ml:536:36>>*/ return c;
      /*<<ephemeron.ml:537:9>>*/ }
     function seeded_hash(seed, param){
      var
-      k2 = param[2],
+      k2 =  /*<<ephemeron.ml:538:22>>*/ param[2],
       k1 = param[1],
       _O_ =
-         /*<<ephemeron.ml:539:33>>*/ caml_call2(H2[2], seed, k2) * 65599 | 0;
-      /*<<ephemeron.ml:539:8>>*/ return caml_call2(H1[2], seed, k1) + _O_ | 0;
+         /*<<ephemeron.ml:539:55>>*/  /*<<ephemeron.ml:539:33>>*/ caml_call2
+         (H2[2], seed, k2)
+        * 65599
+        | 0;
+      /*<<ephemeron.ml:539:30>>*/ return  /*<<ephemeron.ml:539:8>>*/ caml_call2
+             (H1[2], seed, k1)
+            + _O_
+            | 0 /*<<ephemeron.ml:539:30>>*/ ;
      /*<<ephemeron.ml:539:63>>*/ }
     function equal(c, param){
      var
-      k2 = param[2],
+      k2 =  /*<<ephemeron.ml:540:16>>*/ param[2],
       k1 = param[1],
       match =  /*<<ephemeron.ml:541:14>>*/ get_key1(c),
       match$0 =  /*<<ephemeron.ml:541:26>>*/ get_key2(c);
-     if(match && match$0){
+      /*<<ephemeron.ml:541:36>>*/ if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
-       /*<<ephemeron.ml:544:15>>*/ if
-       (caml_call2(H1[1], k1, k1$0)
+       /*<<ephemeron.ml:544:30>>*/ if
+       ( /*<<ephemeron.ml:544:15>>*/ caml_call2(H1[1], k1, k1$0)
         &&  /*<<ephemeron.ml:544:34>>*/ caml_call2(H2[1], k2, k2$0))
         /*<<ephemeron.ml:545:17>>*/ return 0;
        /*<<ephemeron.ml:545:41>>*/ return 1;
@@ -32629,21 +33629,21 @@
       /*<<ephemeron.ml:542:32>>*/ return 2;
      /*<<ephemeron.ml:545:60>>*/ }
     function set_key_data(c, param, d){
-     var k2 = param[2], k1 = param[1];
+     var k2 =  /*<<ephemeron.ml:547:23>>*/ param[2], k1 = param[1];
       /*<<ephemeron.ml:506:45>>*/ caml_call1(Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:549:8>>*/ set_key1(c, k1);
       /*<<ephemeron.ml:549:23>>*/ set_key2(c, k2);
-     return set_data$0(c, d) /*<<ephemeron.ml:550:20>>*/ ;
+      /*<<ephemeron.ml:549:36>>*/ return set_data$0(c, d) /*<<ephemeron.ml:550:20>>*/ ;
     }
     function check_key(c){
      var
       _N_ =  /*<<ephemeron.ml:496:45>>*/ caml_call2(Stdlib_Obj[23][7], c, 0);
-      /*<<ephemeron.ml:551:24>>*/ return _N_
+      /*<<ephemeron.ml:551:36>>*/ return _N_
              ?  /*<<ephemeron.ml:501:45>>*/ caml_call2
                (Stdlib_Obj[23][7], c, 1)
              : _N_ /*<<ephemeron.ml:551:52>>*/ ;
     }
-     /*<<ephemeron.ml:530:28>>*/ return MakeSeeded
+    return MakeSeeded
             ([0,
               create,
               seeded_hash,
@@ -32687,9 +33687,9 @@
     function of_seq(i){
      var tbl =  /*<<ephemeron.ml:568:20>>*/ caml_call2(_M_, _b_, 16);
       /*<<ephemeron.ml:571:6>>*/ caml_call2(replace_seq, tbl, i);
-     return tbl;
+      /*<<ephemeron.ml:571:23>>*/ return tbl;
      /*<<ephemeron.ml:572:9>>*/ }
-     /*<<ephemeron.ml:556:2>>*/ return [0,
+    return [0,
             create,
             clear,
             reset,
@@ -32713,30 +33713,34 @@
      /*<<ephemeron.ml:579:18>>*/ return [0, 0];
     /*<<ephemeron.ml:579:24>>*/ }
    function add$0(b, k1, k2, d){
-    var _L_ = b[1];
-    b[1] = [0,  /*<<ephemeron.ml:580:29>>*/ make$1(k1, k2, d), _L_];
-    return 0;
+    var _L_ =  /*<<ephemeron.ml:580:24>>*/ b[1];
+     /*<<ephemeron.ml:580:44>>*/ b[1] =
+     [0,  /*<<ephemeron.ml:580:29>>*/ make$1(k1, k2, d), _L_];
+     /*<<ephemeron.ml:580:44>>*/ return 0;
     /*<<ephemeron.ml:580:50>>*/ }
    function test_keys(k1, k2, e){
     var
      match =  /*<<ephemeron.ml:583:12>>*/ get_key1(e),
      match$0 =  /*<<ephemeron.ml:583:24>>*/ get_key2(e);
-    if(match && match$0){
+     /*<<ephemeron.ml:583:34>>*/ if(match && match$0){
      var x2 = match$0[1], x1 = match[1];
-     if(x1 === k1 && x2 === k2)  /*<<ephemeron.ml:584:54>>*/ return 1;
+      /*<<ephemeron.ml:584:30>>*/ if(x1 === k1 && x2 === k2)
+       /*<<ephemeron.ml:584:54>>*/ return 1;
     }
      /*<<ephemeron.ml:585:13>>*/ return 0;
     /*<<ephemeron.ml:585:18>>*/ }
    function remove$0(b, k1, k2){
-    var l$0 = b[1], l = l$0, acc = 0;
+    var l$0 =  /*<<ephemeron.ml:594:6>>*/ b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:589:8>>*/ for(;;){
      if(! l)  /*<<ephemeron.ml:590:16>>*/ return 0;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:591:22>>*/ if(test_keys(k1, k2, h)){
-      b[1] =  /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
-      return 0;
+      /*<<ephemeron.ml:591:39>>*/ if
+      ( /*<<ephemeron.ml:591:22>>*/ test_keys(k1, k2, h)){
+       /*<<ephemeron.ml:591:69>>*/ b[1] =
+        /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
+       /*<<ephemeron.ml:591:69>>*/ return 0;
      }
-     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:592:27>>*/ [0, h, acc];
+     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:592:20>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
@@ -32748,7 +33752,8 @@
         (Stdlib_List[40],
          function(_K_){ /*<<?>>*/ return test_keys(k1, k2, _K_);},
          b[1]);
-    if(! match)  /*<<ephemeron.ml:599:16>>*/ return 0;
+     /*<<ephemeron.ml:597:46>>*/ if(! match)
+      /*<<ephemeron.ml:599:16>>*/ return 0;
     var e = match[1];
      /*<<ephemeron.ml:598:18>>*/ return get_data$0(e) /*<<ephemeron.ml:599:20>>*/ ;
    }
@@ -32780,15 +33785,17 @@
      /*<<ephemeron.ml:620:45>>*/ return caml_call2(Stdlib_Obj[23][11], t, d) /*<<ephemeron.ml:620:75>>*/ ;
    }
    function make$3(keys, data){
-    var l = keys.length - 1, eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
+    var
+     l =  /*<<ephemeron.ml:624:4>>*/ keys.length - 1,
+     eph =  /*<<ephemeron.ml:625:14>>*/ create$1(l);
      /*<<ephemeron.ml:626:4>>*/ set_data$1(eph, data);
-    var _I_ = l - 1 | 0, _H_ = 0;
+    var _I_ =  /*<<ephemeron.ml:626:21>>*/ l - 1 | 0, _H_ = 0;
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
        /*<<ephemeron.ml:627:26>>*/ set_key$0
-       (eph, i, caml_check_bound(keys, i)[1 + i]);
-      var _J_ = i + 1 | 0;
+       (eph, i,  /*<<ephemeron.ml:627:40>>*/ caml_check_bound(keys, i)[1 + i]);
+      var _J_ =  /*<<ephemeron.ml:627:48>>*/ i + 1 | 0;
       if(_I_ === i) break;
       i = _J_;
      }
@@ -32797,25 +33804,24 @@
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
     var l =  /*<<ephemeron.ml:631:12>>*/ length$1(eph);
-     /*<<ephemeron.ml:632:4>>*/ try{
+    try{
      if(l !== keys.length - 1)
        /*<<ephemeron.ml:633:37>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[3], 1);
-     var
-      _D_ =  /*<<ephemeron.ml:631:12>>*/ l - 1 | 0,
-      _C_ =  /*<<ephemeron.ml:634:6>>*/ 0;
+     var _D_ =  /*<<ephemeron.ml:634:6>>*/ l - 1 | 0, _C_ = 0;
      if(_D_ >= 0){
       var i = _C_;
       for(;;){
        var match =  /*<<ephemeron.ml:635:14>>*/ get_key$0(eph, i);
-       if(! match)
+        /*<<ephemeron.ml:635:27>>*/ if(! match)
          /*<<ephemeron.ml:636:18>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[3], 1);
        var k = match[1];
-       if(k !== caml_check_bound(keys, i)[1 + i])
+        /*<<ephemeron.ml:637:35>>*/ if
+        (k !==  /*<<ephemeron.ml:637:27>>*/ caml_check_bound(keys, i)[1 + i])
          /*<<ephemeron.ml:638:20>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[3], 1);
-       var _F_ =  /*<<ephemeron.ml:634:6>>*/ i + 1 | 0;
+       var _F_ = i + 1 | 0;
        if(_D_ === i) break;
        i = _F_;
       }
@@ -32833,13 +33839,13 @@
     function create(k, d){
      var c =  /*<<ephemeron.ml:648:16>>*/ create$1(k.length - 1);
       /*<<ephemeron.ml:649:8>>*/ set_data$1(c, d);
-     var _z_ = k.length - 2 | 0, _y_ = 0;
+     var _z_ =  /*<<ephemeron.ml:649:20>>*/ k.length - 2 | 0, _y_ = 0;
      if(_z_ >= 0){
       var i = _y_;
       for(;;){
         /*<<ephemeron.ml:651:10>>*/ set_key$0
-        (c, i, caml_check_bound(k, i)[1 + i]);
-       var _A_ = i + 1 | 0;
+        (c, i,  /*<<ephemeron.ml:651:22>>*/ caml_check_bound(k, i)[1 + i]);
+       var _A_ =  /*<<ephemeron.ml:651:27>>*/ i + 1 | 0;
        if(_z_ === i) break;
        i = _A_;
       }
@@ -32848,38 +33854,43 @@
      /*<<ephemeron.ml:653:9>>*/ }
     function seeded_hash(seed, k){
      var
-      h =  /*<<ephemeron.ml:655:16>>*/ [0, 0],
-      _u_ = k.length - 2 | 0,
-      _t_ = 0;
-     if(_u_ >= 0){
+      h =  /*<<ephemeron.ml:655:8>>*/ [0, 0],
+      _u_ =  /*<<ephemeron.ml:656:8>>*/ k.length - 2 | 0,
+      _t_ =  /*<<ephemeron.ml:655:8>>*/ 0;
+      /*<<ephemeron.ml:656:8>>*/ if(_u_ >= 0){
       var i = _t_;
       for(;;){
        var
-        _v_ = h[1],
+        _v_ =  /*<<ephemeron.ml:657:10>>*/ h[1],
         _w_ =  /*<<ephemeron.ml:657:34>>*/ caml_check_bound(k, i)[1 + i];
-       h[1] =
+        /*<<ephemeron.ml:657:39>>*/ h[1] =
         ( /*<<ephemeron.ml:657:15>>*/ caml_call2(H[2], seed, _w_) * 65599 | 0)
         + _v_
         | 0;
-       var _x_ =  /*<<ephemeron.ml:656:8>>*/ i + 1 | 0;
+       var _x_ =  /*<<ephemeron.ml:657:39>>*/ i + 1 | 0;
        if(_u_ === i) break;
        i = _x_;
       }
      }
-     return h[1];
+      /*<<ephemeron.ml:659:8>>*/ return h[1];
      /*<<ephemeron.ml:659:10>>*/ }
     function equal(c, k){
-     var len = k.length - 1, len$0 =  /*<<ephemeron.ml:662:19>>*/ length$1(c);
-     if(len !== len$0)  /*<<ephemeron.ml:663:28>>*/ return 1;
+     var
+      len =  /*<<ephemeron.ml:661:8>>*/ k.length - 1,
+      len$0 =  /*<<ephemeron.ml:662:19>>*/ length$1(c);
+      /*<<ephemeron.ml:663:8>>*/ if(len !== len$0)
+       /*<<ephemeron.ml:663:28>>*/ return 1;
      var i$1 =  /*<<ephemeron.ml:675:10>>*/ len - 1 | 0, i = i$1;
       /*<<ephemeron.ml:666:12>>*/ for(;;){
       if(0 > i)  /*<<ephemeron.ml:666:26>>*/ return 0;
       var match =  /*<<ephemeron.ml:668:20>>*/ get_key$0(c, i);
-      if(! match)  /*<<ephemeron.ml:669:24>>*/ return 2;
+       /*<<ephemeron.ml:668:31>>*/ if(! match)
+        /*<<ephemeron.ml:669:24>>*/ return 2;
       var
        ki = match[1],
        _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
-       /*<<ephemeron.ml:671:21>>*/ if(! caml_call2(H[1], _s_, ki))
+       /*<<ephemeron.ml:671:37>>*/ if
+       (!  /*<<ephemeron.ml:671:21>>*/ caml_call2(H[1], _s_, ki))
         /*<<ephemeron.ml:673:23>>*/ return 1;
       var i$0 =  /*<<ephemeron.ml:672:23>>*/ i - 1 | 0;
       i = i$0;
@@ -32888,13 +33899,13 @@
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:678:8>>*/  /*<<ephemeron.ml:621:40>>*/ caml_call1
       (Stdlib_Obj[23][12], c);
-     var _q_ = k.length - 2 | 0, _p_ =  /*<<ephemeron.ml:678:8>>*/ 0;
+     var _q_ =  /*<<ephemeron.ml:678:20>>*/ k.length - 2 | 0, _p_ = 0;
      if(_q_ >= 0){
       var i = _p_;
       for(;;){
         /*<<ephemeron.ml:680:10>>*/ set_key$0
-        (c, i, caml_check_bound(k, i)[1 + i]);
-       var _r_ = i + 1 | 0;
+        (c, i,  /*<<ephemeron.ml:680:22>>*/ caml_check_bound(k, i)[1 + i]);
+       var _r_ =  /*<<ephemeron.ml:680:27>>*/ i + 1 | 0;
        if(_q_ === i) break;
        i = _r_;
       }
@@ -32902,7 +33913,12 @@
       /*<<ephemeron.ml:682:8>>*/ return set_data$1(c, d) /*<<ephemeron.ml:682:20>>*/ ;
     }
     function check_key(c){
-     var i$1 =  /*<<ephemeron.ml:686:17>>*/ length$1(c) - 1 | 0, i = i$1;
+     var
+      i$1 =
+         /*<<ephemeron.ml:686:25>>*/  /*<<ephemeron.ml:686:17>>*/ length$1(c)
+        - 1
+        | 0,
+      i = i$1;
       /*<<ephemeron.ml:685:10>>*/ for(;;){
       var _n_ = i < 0 ? 1 : 0;
       if(_n_)
@@ -32910,7 +33926,7 @@
       else{
        var
         _m_ =  /*<<ephemeron.ml:617:47>>*/ caml_call2(Stdlib_Obj[23][7], c, i);
-        /*<<ephemeron.ml:685:20>>*/ if(_m_){
+        /*<<ephemeron.ml:685:33>>*/ if(_m_){
         var i$0 = i - 1 | 0;
         i = i$0;
         continue;
@@ -32920,7 +33936,7 @@
       return _o_;
      }
      /*<<ephemeron.ml:686:30>>*/ }
-     /*<<ephemeron.ml:644:28>>*/ return MakeSeeded
+    return MakeSeeded
             ([0,
               create,
               seeded_hash,
@@ -32959,9 +33975,9 @@
     function of_seq(i){
      var tbl =  /*<<ephemeron.ml:696:20>>*/ caml_call2(_l_, _c_, 16);
       /*<<ephemeron.ml:699:6>>*/ caml_call2(replace_seq, tbl, i);
-     return tbl;
+      /*<<ephemeron.ml:699:23>>*/ return tbl;
      /*<<ephemeron.ml:700:9>>*/ }
-     /*<<ephemeron.ml:690:2>>*/ return [0,
+    return [0,
             create,
             clear,
             reset,
@@ -32985,28 +34001,26 @@
      /*<<ephemeron.ml:707:18>>*/ return [0, 0];
     /*<<ephemeron.ml:707:24>>*/ }
    function add$1(b, k, d){
-    var _k_ = b[1];
-    b[1] = [0,  /*<<ephemeron.ml:708:25>>*/ make$3(k, d), _k_];
-    return 0;
+    var _k_ =  /*<<ephemeron.ml:708:20>>*/ b[1];
+     /*<<ephemeron.ml:708:36>>*/ b[1] =
+     [0,  /*<<ephemeron.ml:708:25>>*/ make$3(k, d), _k_];
+     /*<<ephemeron.ml:708:36>>*/ return 0;
     /*<<ephemeron.ml:708:42>>*/ }
    function test_keys$0(k, e){
      /*<<ephemeron.ml:711:6>>*/ try{
-     if( /*<<ephemeron.ml:712:11>>*/ length$1(e) !== k.length - 1)
+      /*<<ephemeron.ml:712:19>>*/ if
+      ( /*<<ephemeron.ml:712:11>>*/ length$1(e) !== k.length - 1)
        /*<<ephemeron.ml:712:43>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[3], 1);
-     var _g_ = k.length - 2 | 0, _f_ =  /*<<ephemeron.ml:713:8>>*/ 0;
+     var _g_ =  /*<<ephemeron.ml:713:8>>*/ k.length - 2 | 0, _f_ = 0;
      if(_g_ >= 0){
       var i = _f_;
       for(;;){
        var match =  /*<<ephemeron.ml:714:16>>*/ get_key$0(e, i);
-       if(match){
+        /*<<ephemeron.ml:714:27>>*/ if(match){
         var x = match[1];
-        if(x === caml_check_bound(k, i)[1 + i]){
-         var _i_ =  /*<<ephemeron.ml:713:8>>*/ i + 1 | 0;
-         if(_g_ === i) break;
-         i = _i_;
-         continue;
-        }
+         /*<<ephemeron.ml:715:34>>*/ if
+         (x ===  /*<<ephemeron.ml:715:29>>*/ caml_check_bound(k, i)[1 + i]){var _i_ = i + 1 | 0; if(_g_ === i) break; i = _i_; continue;}
        }
         /*<<ephemeron.ml:716:17>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[3], 1);
@@ -33022,15 +34036,17 @@
     }
     /*<<ephemeron.ml:719:24>>*/ }
    function remove$1(b, k){
-    var l$0 = b[1], l = l$0, acc = 0;
+    var l$0 =  /*<<ephemeron.ml:728:6>>*/ b[1], l = l$0, acc = 0;
      /*<<ephemeron.ml:723:8>>*/ for(;;){
      if(! l)  /*<<ephemeron.ml:724:16>>*/ return 0;
      var h = l[1], t = l[2];
-      /*<<ephemeron.ml:725:22>>*/ if(test_keys$0(k, h)){
-      b[1] =  /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
-      return 0;
+      /*<<ephemeron.ml:725:35>>*/ if
+      ( /*<<ephemeron.ml:725:22>>*/ test_keys$0(k, h)){
+       /*<<ephemeron.ml:725:65>>*/ b[1] =
+        /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
+       /*<<ephemeron.ml:725:65>>*/ return 0;
      }
-     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:726:27>>*/ [0, h, acc];
+     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:726:20>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
@@ -33042,7 +34058,8 @@
         (Stdlib_List[40],
          function(_d_){ /*<<?>>*/ return test_keys$0(k, _d_);},
          b[1]);
-    if(! match)  /*<<ephemeron.ml:733:16>>*/ return 0;
+     /*<<ephemeron.ml:731:42>>*/ if(! match)
+      /*<<ephemeron.ml:733:16>>*/ return 0;
     var e = match[1];
      /*<<ephemeron.ml:732:18>>*/ return get_data$1(e) /*<<ephemeron.ml:733:20>>*/ ;
    }
@@ -33173,12 +34190,16 @@
    function generic_basename(is_dir_sep, current_dir_name, name){
      /*<<filename.ml:37:2>>*/ if(name === cst$19)
       /*<<filename.ml:47:7>>*/ return current_dir_name;
-    var n$3 = caml_ml_string_length(name) - 1 | 0, n = n$3;
+    var
+     n$3 =  /*<<filename.ml:48:7>>*/ caml_ml_string_length(name) - 1 | 0,
+     n = n$3;
      /*<<filename.ml:38:4>>*/ for(;;){
      if(0 > n)
        /*<<filename.ml:38:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:48:40>>*/ ;
-      /*<<filename.ml:39:12>>*/ if(! caml_call2(is_dir_sep, name, n)) break;
+      /*<<filename.ml:39:29>>*/ if
+      (!  /*<<filename.ml:39:12>>*/ caml_call2(is_dir_sep, name, n))
+      break;
      var n$0 =  /*<<filename.ml:39:35>>*/ n - 1 | 0;
      n = n$0;
     }
@@ -33187,29 +34208,36 @@
      if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, p) /*<<filename.ml:48:40>>*/ ;
-      /*<<filename.ml:43:12>>*/ if(caml_call2(is_dir_sep, name, n$1))
-       /*<<filename.ml:37:2>>*/ return caml_call3
+      /*<<filename.ml:43:29>>*/ if
+      ( /*<<filename.ml:43:12>>*/ caml_call2(is_dir_sep, name, n$1))
+       /*<<filename.ml:43:35>>*/ return caml_call3
               (Stdlib_String[16], name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0) /*<<filename.ml:48:40>>*/ ;
-     var n$2 = n$1 - 1 | 0;
+     var n$2 =  /*<<filename.ml:44:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
     }
-   }
+    /*<<filename.ml:48:40>>*/ }
    function generic_dirname(is_dir_sep, current_dir_name, name){
      /*<<filename.ml:55:2>>*/ if(name === cst$19)
       /*<<filename.ml:69:7>>*/ return current_dir_name;
-    var n$5 = caml_ml_string_length(name) - 1 | 0, n = n$5;
+    var
+     n$5 =  /*<<filename.ml:70:7>>*/ caml_ml_string_length(name) - 1 | 0,
+     n = n$5;
      /*<<filename.ml:56:4>>*/ for(;;){
      if(0 > n)
        /*<<filename.ml:56:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
-      /*<<filename.ml:57:12>>*/ if(! caml_call2(is_dir_sep, name, n)) break;
+      /*<<filename.ml:57:29>>*/ if
+      (!  /*<<filename.ml:57:12>>*/ caml_call2(is_dir_sep, name, n))
+      break;
      var n$0 =  /*<<filename.ml:57:35>>*/ n - 1 | 0;
      n = n$0;
     }
     var n$1 = n;
      /*<<filename.ml:60:4>>*/ for(;;){
-     if(0 > n$1) return current_dir_name;
-      /*<<filename.ml:61:12>>*/ if(caml_call2(is_dir_sep, name, n$1)) break;
+     if(0 > n$1)  /*<<filename.ml:60:18>>*/ return current_dir_name;
+      /*<<filename.ml:61:29>>*/ if
+      ( /*<<filename.ml:61:12>>*/ caml_call2(is_dir_sep, name, n$1))
+      break;
      var n$2 =  /*<<filename.ml:62:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
     }
@@ -33218,7 +34246,8 @@
      if(0 > n$3)
        /*<<filename.ml:64:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
-      /*<<filename.ml:65:12>>*/ if(! caml_call2(is_dir_sep, name, n$3))
+      /*<<filename.ml:65:29>>*/ if
+      (!  /*<<filename.ml:65:12>>*/ caml_call2(is_dir_sep, name, n$3))
        /*<<filename.ml:66:9>>*/ return caml_call3
               (Stdlib_String[16], name, 0, n$3 + 1 | 0) /*<<filename.ml:70:44>>*/ ;
      var n$4 =  /*<<filename.ml:65:35>>*/ n$3 - 1 | 0;
@@ -33226,11 +34255,11 @@
     }
     /*<<filename.ml:70:44>>*/ }
    function is_dir_sep(s, i){
-     /*<<filename.ml:96:23>>*/ return 47 === caml_string_get(s, i) ? 1 : 0;
+     /*<<filename.ml:96:23>>*/ return 47 === caml_string_get(s, i) ? 1 : 0 /*<<filename.ml:96:28>>*/ ;
     /*<<filename.ml:96:34>>*/ }
    function is_relative(n){
     var
-     _aH_ = caml_ml_string_length(n) < 1 ? 1 : 0,
+     _aH_ =  /*<<filename.ml:97:22>>*/ caml_ml_string_length(n) < 1 ? 1 : 0,
      _aI_ =
        _aH_
        || (47 !==  /*<<filename.ml:97:45>>*/ caml_string_get(n, 0) ? 1 : 0);
@@ -33238,7 +34267,7 @@
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
     var _aC_ =  /*<<filename.ml:99:4>>*/ is_relative(n);
-    if(_aC_){
+     /*<<filename.ml:99:17>>*/ if(_aC_){
      var
       _aD_ = caml_ml_string_length(n) < 2 ? 1 : 0,
       _aE_ =
@@ -33271,14 +34300,15 @@
    }
    function chop_suffix_opt(suffix, filename){
     var
-     len_s = caml_ml_string_length(suffix),
+     len_s =  /*<<filename.ml:106:4>>*/ caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
-    if(len_s > len_f)  /*<<filename.ml:114:6>>*/ return 0;
+     /*<<filename.ml:107:4>>*/ if(len_s > len_f)
+      /*<<filename.ml:114:6>>*/ return 0;
     var
      r =
         /*<<filename.ml:108:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s);
-     /*<<filename.ml:109:9>>*/ return r === suffix
+     /*<<filename.ml:109:19>>*/ return r === suffix
             ? [0,
                /*<<filename.ml:110:13>>*/ caml_call3
                (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
@@ -33311,14 +34341,15 @@
    }
    function quote(s){
     var
-     l = caml_ml_string_length(s),
+     l =  /*<<filename.ml:17:2>>*/ caml_ml_string_length(s),
      b =  /*<<filename.ml:18:10>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:19:2>>*/ caml_call2(Stdlib_Buffer[12], b, 39);
-    var _ay_ = l - 1 | 0, _ax_ = 0;
+    var _ay_ =  /*<<filename.ml:19:24>>*/ l - 1 | 0, _ax_ = 0;
     if(_ay_ >= 0){
      var i = _ax_;
      for(;;){
-       /*<<filename.ml:21:7>>*/ if(39 === caml_string_get(s, i))
+       /*<<filename.ml:21:12>>*/ if
+       (39 ===  /*<<filename.ml:21:7>>*/ caml_string_get(s, i))
         /*<<filename.ml:22:9>>*/ caml_call2(Stdlib_Buffer[16], b, quotequote);
       else{
        var _aA_ =  /*<<filename.ml:23:28>>*/ caml_string_get(s, i);
@@ -33330,12 +34361,13 @@
      }
     }
      /*<<filename.ml:25:2>>*/ caml_call2(Stdlib_Buffer[12], b, 39);
-    return caml_call1(Stdlib_Buffer[2], b);
+     /*<<filename.ml:25:24>>*/ return caml_call1(Stdlib_Buffer[2], b);
    }
    function quote_command(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:120:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:123:51>>*/ if(caml_equal(stderr, stdout))
+      /*<<filename.ml:123:66>>*/ if
+      ( /*<<filename.ml:123:51>>*/ caml_equal(stderr, stdout))
       var _am_ = cst_2_1;
      else
       var
@@ -33353,7 +34385,7 @@
     else
      var _ap_ = cst$3;
     var _aq_ =  /*<<filename.ml:122:6>>*/ caml_call2(Stdlib[28], _ap_, _an_);
-    if(stdin)
+     /*<<filename.ml:125:69>>*/ if(stdin)
      var
       f$1 = stdin[1],
       _ar_ =  /*<<filename.ml:121:55>>*/ quote(f$1),
@@ -33367,7 +34399,7 @@
         (Stdlib_List[20], quote, [0, cmd, args]),
      _av_ =
         /*<<filename.ml:120:4>>*/ caml_call2(Stdlib_String[7], cst$1, _au_);
-     /*<<filename.ml:121:6>>*/ return caml_call2(Stdlib[28], _av_, _at_) /*<<filename.ml:125:69>>*/ ;
+     /*<<filename.ml:120:52>>*/ return caml_call2(Stdlib[28], _av_, _at_) /*<<filename.ml:125:69>>*/ ;
    }
    function basename(_al_){
      /*<<?>>*/ return generic_basename(is_dir_sep, current_dir_name, _al_);
@@ -33377,7 +34409,7 @@
    }
    var
     Unix =
-       /*<<filename.ml:91:24>>*/ [0,
+       /*<<filename.ml:127:59>>*/ [0,
        null$0,
        current_dir_name,
        parent_dir_name,
@@ -33395,7 +34427,7 @@
    function is_dir_sep$0(s, i){
     var
      c =  /*<<filename.ml:135:31>>*/ caml_string_get(s, i),
-     _ah_ = 47 === c ? 1 : 0;
+     _ah_ =  /*<<filename.ml:135:40>>*/ 47 === c ? 1 : 0;
     if(_ah_)
      var _ai_ = _ah_;
     else
@@ -33404,7 +34436,7 @@
     /*<<filename.ml:135:70>>*/ }
    function is_relative$0(n){
     var
-     _ab_ = caml_ml_string_length(n) < 1 ? 1 : 0,
+     _ab_ =  /*<<filename.ml:137:4>>*/ caml_ml_string_length(n) < 1 ? 1 : 0,
      _ac_ =
        _ab_
        || (47 !==  /*<<filename.ml:137:28>>*/ caml_string_get(n, 0) ? 1 : 0);
@@ -33429,7 +34461,7 @@
     /*<<filename.ml:139:44>>*/ }
    function is_implicit$0(n){
     var _U_ =  /*<<filename.ml:141:4>>*/ is_relative$0(n);
-    if(_U_){
+     /*<<filename.ml:141:17>>*/ if(_U_){
      var
       _V_ = caml_ml_string_length(n) < 2 ? 1 : 0,
       _W_ =
@@ -33485,7 +34517,11 @@
     /*<<filename.ml:145:58>>*/ }
    function check_suffix$0(name, suff){
     var
-     _R_ = caml_ml_string_length(suff) <= caml_ml_string_length(name) ? 1 : 0;
+     _R_ =
+        /*<<filename.ml:147:3>>*/ caml_ml_string_length(suff)
+        <= caml_ml_string_length(name)
+        ? 1
+        : 0;
     if(_R_)
      var
       s =
@@ -33505,15 +34541,18 @@
     /*<<filename.ml:150:59>>*/ }
    function chop_suffix_opt$0(suffix, filename){
     var
-     len_s = caml_ml_string_length(suffix),
+     len_s =  /*<<filename.ml:153:4>>*/ caml_ml_string_length(suffix),
      len_f = caml_ml_string_length(filename);
-    if(len_s > len_f)  /*<<filename.ml:161:6>>*/ return 0;
+     /*<<filename.ml:154:4>>*/ if(len_s > len_f)
+      /*<<filename.ml:161:6>>*/ return 0;
     var
      r =
         /*<<filename.ml:155:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s),
      _Q_ =  /*<<filename.ml:156:36>>*/ caml_call1(Stdlib_String[27], suffix);
-     /*<<filename.ml:156:9>>*/ return caml_call1(Stdlib_String[27], r) === _Q_
+     /*<<filename.ml:156:65>>*/ return  /*<<filename.ml:156:9>>*/ caml_call1
+             (Stdlib_String[27], r)
+            === _Q_
             ? [0,
                /*<<filename.ml:157:13>>*/ caml_call3
                (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
@@ -33531,7 +34570,7 @@
    }
    function quote$0(s){
     var
-     l = caml_ml_string_length(s),
+     l =  /*<<filename.ml:167:4>>*/ caml_ml_string_length(s),
      b =  /*<<filename.ml:168:12>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:169:4>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
@@ -33540,22 +34579,22 @@
       if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return caml_call2(Stdlib_Buffer[12], b, 34) /*<<filename.ml:175:48>>*/ ;
       var c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
-      if(34 === c){
-       var _N_ = 0;
-        /*<<filename.ml:173:16>>*/ if(counter >= 50)
+       /*<<filename.ml:172:17>>*/ if(34 === c){
+       var _N_ =  /*<<filename.ml:173:16>>*/ 0;
+       if(counter >= 50)
         return caml_trampoline_return(loop_bs, [0, _N_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:173:16>>*/ return loop_bs(counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
+       return loop_bs(counter$1, _N_, i$0);
       }
       if(92 === c){
-       var _O_ = 0;
-        /*<<filename.ml:174:16>>*/ if(counter >= 50)
+       var _O_ =  /*<<filename.ml:174:16>>*/ 0;
+       if(counter >= 50)
         return caml_trampoline_return(loop_bs, [0, _O_, i$0]) /*<<filename.ml:175:48>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:174:16>>*/ return loop_bs(counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
+       return loop_bs(counter$0, _O_, i$0);
       }
        /*<<filename.ml:175:16>>*/ caml_call2(Stdlib_Buffer[12], b, c);
-      var i$1 = i$0 + 1 | 0;
+      var i$1 =  /*<<filename.ml:175:35>>*/ i$0 + 1 | 0;
       i$0 = i$1;
      }
      /*<<filename.ml:175:48>>*/ }
@@ -33565,24 +34604,24 @@
       /*<<filename.ml:177:6>>*/ for(;;){
       if(i$0 === l){
         /*<<filename.ml:178:8>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
-       return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
+        /*<<filename.ml:178:30>>*/ return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
       }
       var match =  /*<<filename.ml:181:14>>*/ caml_string_get(s, i$0);
-      if(34 === match){
+       /*<<filename.ml:181:19>>*/ if(34 === match){
         /*<<filename.ml:182:18>>*/ add_bs((2 * n$0 | 0) + 1 | 0);
         /*<<filename.ml:182:34>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
-       var _M_ = i$0 + 1 | 0;
+       var _M_ =  /*<<filename.ml:182:56>>*/ i$0 + 1 | 0;
        if(counter >= 50)
         return caml_trampoline_return(loop$0, [0, _M_]) /*<<filename.ml:185:9>>*/ ;
        var counter$1 = counter + 1 | 0;
-        /*<<filename.ml:182:34>>*/ return loop$0(counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
+       return loop$0(counter$1, _M_);
       }
       if(92 !== match){
         /*<<filename.ml:184:18>>*/ add_bs(n$0);
-       if(counter >= 50)
+        /*<<filename.ml:184:26>>*/ if(counter >= 50)
         return caml_trampoline_return(loop$0, [0, i$0]) /*<<filename.ml:185:9>>*/ ;
        var counter$0 = counter + 1 | 0;
-        /*<<filename.ml:184:18>>*/ return loop$0(counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
+       return loop$0(counter$0, i$0);
       }
       var i$1 =  /*<<filename.ml:183:18>>*/ i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
@@ -33595,14 +34634,14 @@
       var j = _K_;
       for(;;){
         /*<<filename.ml:186:38>>*/ caml_call2(Stdlib_Buffer[12], b, 92);
-       var _L_ = j + 1 | 0;
+       var _L_ =  /*<<filename.ml:186:60>>*/ j + 1 | 0;
        if(n === j) break;
        j = _L_;
       }
      }
      /*<<filename.ml:186:66>>*/ }
      /*<<filename.ml:188:4>>*/ loop(0);
-    return caml_call1(Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
+     /*<<filename.ml:188:10>>*/ return caml_call1(Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
    }
    function quote_cmd_filename(f){
      /*<<filename.ml:222:4>>*/ if
@@ -33615,20 +34654,22 @@
           /*<<filename.ml:222:45>>*/ return 1;
          /*<<filename.ml:222:63>>*/ },
         f))
-      /*<<filename.ml:224:12>>*/ return caml_call2(Stdlib_String[15], f, 32)
-             ?  /*<<filename.ml:225:23>>*/ caml_call2
+      /*<<filename.ml:224:33>>*/ return  /*<<filename.ml:224:12>>*/ caml_call2
+              (Stdlib_String[15], f, 32)
+             ?  /*<<filename.ml:225:6>>*/ caml_call2
                (Stdlib_String[7], cst$7, [0, cst$6, [0, f, _c_]])
              : f /*<<filename.ml:227:7>>*/ ;
     var
      _J_ =
         /*<<filename.ml:223:15>>*/ caml_call2
         (Stdlib[28], cst_Filename_quote_command_bad, f);
-    return caml_call1(Stdlib[2], _J_) /*<<filename.ml:227:7>>*/ ;
+     /*<<filename.ml:223:61>>*/ return caml_call1(Stdlib[2], _J_) /*<<filename.ml:227:7>>*/ ;
    }
    function quote_command$0(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:232:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:240:43>>*/ if(caml_equal(stderr, stdout))
+      /*<<filename.ml:240:58>>*/ if
+      ( /*<<filename.ml:240:43>>*/ caml_equal(stderr, stdout))
       var _w_ = cst_2_1$0;
      else
       var
@@ -33638,7 +34679,7 @@
     }
     else
      var _x_ = cst$16;
-    var _y_ =  /*<<filename.ml:239:6>>*/ [0, _x_, _d_];
+    var _y_ = [0, _x_, _d_];
     if(stdout)
      var
       f$0 = stdout[1],
@@ -33646,7 +34687,7 @@
       _A_ =  /*<<filename.ml:238:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
     else
      var _A_ = cst$15;
-    var _B_ =  /*<<filename.ml:238:6>>*/ [0, _A_, _y_];
+    var _B_ = [0, _A_, _y_];
     if(stdin)
      var
       f$1 = stdin[1],
@@ -33660,13 +34701,14 @@
      s =  /*<<filename.ml:236:16>>*/ caml_call2(Stdlib_String[7], cst$10, _E_),
      b =
         /*<<filename.ml:211:12>>*/ caml_call1
-        (Stdlib_Buffer[1], caml_ml_string_length(s) + 20 | 0);
+        (Stdlib_Buffer[1],
+          /*<<filename.ml:211:4>>*/ caml_ml_string_length(s) + 20 | 0);
      /*<<filename.ml:212:4>>*/ caml_call2
      (Stdlib_String[30],
       function(c){
        a:
        {
-        if(62 <= c){
+         /*<<filename.ml:214:8>>*/ if(62 <= c){
          var _I_ = c - 63 | 0;
          if(60 < _I_ >>> 0){
           if(62 <= _I_) break a;
@@ -33683,35 +34725,35 @@
           }
          }
          /*<<filename.ml:216:12>>*/ caml_call2(Stdlib_Buffer[12], b, 94);
-        return caml_call2(Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
+         /*<<filename.ml:216:33>>*/ return caml_call2(Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
        }
         /*<<filename.ml:218:12>>*/ return caml_call2(Stdlib_Buffer[12], b, c) /*<<filename.ml:218:31>>*/ ;
       },
       s);
     var
      _F_ =
-        /*<<filename.ml:235:6>>*/ [0,
+        /*<<filename.ml:236:57>>*/ [0,
         cst$11,
         [0,
-          /*<<filename.ml:212:4>>*/ caml_call1(Stdlib_Buffer[2], b),
+          /*<<filename.ml:219:7>>*/ caml_call1(Stdlib_Buffer[2], b),
          [0, _D_, _B_]]],
      _G_ =
-        /*<<filename.ml:232:21>>*/ [0,
+        /*<<filename.ml:234:28>>*/ [0,
         cst$12,
         [0,  /*<<filename.ml:234:6>>*/ quote_cmd_filename(cmd), _F_]];
-     /*<<filename.ml:232:21>>*/ return caml_call2
+     /*<<filename.ml:234:28>>*/ return caml_call2
             (Stdlib_String[7], cst$13, _G_) /*<<filename.ml:244:5>>*/ ;
    }
    function drive_and_path(s){
     var
-     _s_ = 2 <=  /*<<filename.ml:250:4>>*/ caml_ml_string_length(s) ? 1 : 0;
+     _s_ =  /*<<filename.ml:250:4>>*/ 2 <= caml_ml_string_length(s) ? 1 : 0;
     if(_s_){
      var param =  /*<<filename.ml:250:38>>*/ caml_string_get(s, 0);
      a:
      {
       b:
       {
-       if(91 <= param){
+        /*<<filename.ml:246:20>>*/ if(91 <= param){
         if(25 < param - 97 >>> 0) break b;
        }
        else if(65 > param) break b;
@@ -33722,26 +34764,29 @@
      }
      var
       _u_ =
-         /*<<filename.ml:250:28>>*/ _t_
+         /*<<filename.ml:250:43>>*/ _t_
          ? 58 ===  /*<<filename.ml:250:47>>*/ caml_string_get(s, 1) ? 1 : 0
          : _t_;
     }
     else
      var _u_ = _s_;
-     /*<<filename.ml:252:7>>*/ if(! _u_)
+     /*<<filename.ml:252:18>>*/ if(! _u_)
       /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
     var
      _v_ =
         /*<<filename.ml:253:28>>*/ caml_call3
-        (Stdlib_String[16], s, 2, caml_ml_string_length(s) - 2 | 0);
-     /*<<filename.ml:253:9>>*/ return [0,
+        (Stdlib_String[16],
+         s,
+         2,
+          /*<<filename.ml:253:9>>*/ caml_ml_string_length(s) - 2 | 0);
+     /*<<filename.ml:253:26>>*/ return [0,
              /*<<filename.ml:253:10>>*/ caml_call3(Stdlib_String[16], s, 0, 2),
-            _v_] /*<<filename.ml:253:9>>*/ ;
+            _v_] /*<<filename.ml:253:26>>*/ ;
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
     var
      match =  /*<<filename.ml:256:24>>*/ drive_and_path(s),
-     path = match[2],
+     path =  /*<<filename.ml:256:40>>*/ match[2],
      drive = match[1],
      dir =
         /*<<filename.ml:257:14>>*/ generic_dirname
@@ -33749,13 +34794,17 @@
      /*<<filename.ml:258:4>>*/ return caml_call2(Stdlib[28], drive, dir) /*<<filename.ml:258:15>>*/ ;
    }
    function basename$0(s){
-    var path =  /*<<filename.ml:260:25>>*/ drive_and_path(s)[2];
+    var
+     path =
+        /*<<filename.ml:260:41>>*/  /*<<filename.ml:260:25>>*/ drive_and_path
+         (s)
+        [2];
      /*<<filename.ml:261:4>>*/ return generic_basename
             (is_dir_sep$0, current_dir_name$0, path) /*<<filename.ml:261:53>>*/ ;
    }
    var
     Win32 =
-       /*<<filename.ml:130:25>>*/ [0,
+      [0,
        null$1,
        current_dir_name$0,
        parent_dir_name$0,
@@ -33778,7 +34827,7 @@
    }
    var
     Cygwin =
-       /*<<filename.ml:264:26>>*/ [0,
+       /*<<filename.ml:278:59>>*/ [0,
        null$2,
        current_dir_name$1,
        parent_dir_name$1,
@@ -33810,7 +34859,7 @@
     basename$2 = Sysdeps[13],
     dirname$2 = Sysdeps[14];
    function concat(dirname, filename){
-    var l = caml_ml_string_length(dirname);
+    var l =  /*<<filename.ml:290:2>>*/ caml_ml_string_length(dirname);
      /*<<filename.ml:291:2>>*/ if
      (0 !== l
       && !  /*<<filename.ml:291:14>>*/ is_dir_sep$1(dirname, l - 1 | 0)){
@@ -33818,7 +34867,7 @@
       _p_ =
          /*<<filename.ml:293:17>>*/ caml_call2
          (Stdlib[28], dir_sep$2, filename);
-     return caml_call2(Stdlib[28], dirname, _p_) /*<<filename.ml:293:35>>*/ ;
+      /*<<filename.ml:293:35>>*/ return caml_call2(Stdlib[28], dirname, _p_);
     }
      /*<<filename.ml:292:7>>*/ return caml_call2
             (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
@@ -33826,7 +34875,7 @@
    function chop_suffix(name, suff){
      /*<<filename.ml:296:2>>*/ return  /*<<filename.ml:296:5>>*/ check_suffix$1
              (name, suff)
-            ? caml_call3
+            ?  /*<<filename.ml:297:7>>*/ caml_call3
               (Stdlib_String[16],
                name,
                0,
@@ -33835,10 +34884,14 @@
               (Stdlib[1], cst_Filename_chop_suffix) /*<<filename.ml:298:41>>*/ ;
    }
    function extension_len(name){
-    var i$3 = caml_ml_string_length(name) - 1 | 0, i0 = i$3;
+    var
+     i$3 =  /*<<filename.ml:311:2>>*/ caml_ml_string_length(name) - 1 | 0,
+     i0 = i$3;
      /*<<filename.ml:307:4>>*/ for(;;){
      if(0 <= i0 && !  /*<<filename.ml:307:16>>*/ is_dir_sep$1(name, i0)){
-       /*<<filename.ml:308:12>>*/ if(46 === caml_string_get(name, i0)) break;
+       /*<<filename.ml:308:20>>*/ if
+       (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
+       break;
       var i$2 =  /*<<filename.ml:309:9>>*/ i0 - 1 | 0;
       i0 = i$2;
       continue;
@@ -33848,8 +34901,9 @@
     var i$1 =  /*<<filename.ml:308:32>>*/ i0 - 1 | 0, i = i$1;
      /*<<filename.ml:302:4>>*/ for(;;){
      if(0 <= i && !  /*<<filename.ml:302:16>>*/ is_dir_sep$1(name, i)){
-       /*<<filename.ml:303:12>>*/ if(46 !== caml_string_get(name, i))
-       return caml_ml_string_length(name) - i0 | 0;
+       /*<<filename.ml:303:20>>*/ if
+       (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
+        /*<<filename.ml:304:9>>*/ return caml_ml_string_length(name) - i0 | 0;
       var i$0 =  /*<<filename.ml:303:32>>*/ i - 1 | 0;
       i = i$0;
       continue;
@@ -33872,7 +34926,7 @@
      /*<<filename.ml:319:2>>*/ return 0 === l
             ?  /*<<filename.ml:319:16>>*/ caml_call1
               (Stdlib[1], cst_Filename_chop_extension)
-            : caml_call3
+            :  /*<<filename.ml:320:7>>*/ caml_call3
               (Stdlib_String[16],
                name,
                0,
@@ -33882,7 +34936,7 @@
     var l =  /*<<filename.ml:323:10>>*/ extension_len(name);
      /*<<filename.ml:324:2>>*/ return 0 === l
             ? name
-            : caml_call3
+            :  /*<<filename.ml:324:26>>*/ caml_call3
               (Stdlib_String[16],
                name,
                0,
@@ -33897,11 +34951,13 @@
      random_state =
         /*<<filename.ml:333:21>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
      rnd =
-        /*<<filename.ml:334:12>>*/ caml_call1
+        /*<<filename.ml:334:44>>*/  /*<<filename.ml:334:12>>*/ caml_call1
         (Stdlib_Random[19][4], random_state)
        & 16777215;
-     /*<<filename.ml:335:18>>*/ return concat
-            (temp_dir, caml_call4(Stdlib_Printf[4], _f_, prefix, rnd, suffix)) /*<<filename.ml:335:63>>*/ ;
+     /*<<filename.ml:335:63>>*/ return concat
+            (temp_dir,
+              /*<<filename.ml:335:18>>*/ caml_call4
+              (Stdlib_Printf[4], _f_, prefix, rnd, suffix)) /*<<filename.ml:335:63>>*/ ;
    }
    var
     current_temp_dir_name =
@@ -33909,20 +34965,20 @@
        (Stdlib_Domain[10][1],
         [0, function(_o_){ /*<<?>>*/ return _o_;}],
         function(param){
-          /*<<filename.ml:338:58>>*/ return temp_dir_name$1 /*<<filename.ml:332:19>>*/ ;
+          /*<<filename.ml:338:58>>*/ return temp_dir_name$1;
          /*<<filename.ml:338:71>>*/ });
    function set_temp_dir_name(s){
      /*<<filename.ml:340:26>>*/ return caml_call2
             (Stdlib_Domain[10][3], current_temp_dir_name, s) /*<<filename.ml:340:64>>*/ ;
    }
    function get_temp_dir_name(param){
-     /*<<filename.ml:341:27>>*/ return  /*<<filename.ml:340:22>>*/ caml_call1
+     /*<<filename.ml:341:27>>*/ return caml_call1
             (Stdlib_Domain[10][2], current_temp_dir_name) /*<<filename.ml:341:63>>*/ ;
    }
    function temp_file(opt, prefix, suffix){
     var
      temp_dir =
-       opt
+        /*<<filename.ml:343:14>>*/ opt
         ? opt[1]
         :  /*<<filename.ml:343:27>>*/ caml_call1
           (Stdlib_Domain[10][2], current_temp_dir_name),
@@ -33931,15 +34987,15 @@
      var
       name =
          /*<<filename.ml:345:15>>*/ temp_file_name(temp_dir, prefix, suffix);
-      /*<<filename.ml:346:4>>*/ try{
+     try{
        /*<<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;
+      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:6>>*/ if(20 <= counter)
         /*<<filename.ml:350:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:350:41>>*/ counter + 1 | 0;
       counter = counter$0;
@@ -33948,7 +35004,7 @@
     /*<<filename.ml:351:15>>*/ }
    function open_temp_file(_m_, _l_, opt, prefix, suffix){
     var
-     mode = _m_ ? _m_[1] : _h_,
+     mode =  /*<<filename.ml:353:19>>*/ _m_ ? _m_[1] : _h_,
      perms = _l_ ? _l_[1] : 384,
      temp_dir =
        opt
@@ -33960,19 +35016,19 @@
      var
       name =
          /*<<filename.ml:357:15>>*/ temp_file_name(temp_dir, prefix, suffix);
-      /*<<filename.ml:358:4>>*/ try{
+     try{
       var
        _n_ =
-          /*<<filename.ml:359:6>>*/ [0,
+          /*<<filename.ml:360:73>>*/ [0,
           name,
            /*<<filename.ml:360:7>>*/ caml_call3
            (Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
-       /*<<filename.ml:359:6>>*/ return _n_;
+      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:6>>*/ if(20 <= counter)
         /*<<filename.ml:362:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:362:41>>*/ counter + 1 | 0;
       counter = counter$0;
@@ -33982,7 +35038,7 @@
    function temp_dir(_k_, opt, prefix, suffix){
     var
      temp_dir =
-       _k_
+        /*<<filename.ml:365:13>>*/ _k_
         ? _k_[1]
         :  /*<<filename.ml:365:26>>*/ caml_call1
           (Stdlib_Domain[10][2], current_temp_dir_name),
@@ -33992,14 +35048,14 @@
      var
       name =
          /*<<filename.ml:368:15>>*/ temp_file_name(temp_dir, prefix, suffix);
-      /*<<filename.ml:369:4>>*/ try{
+     try{
        /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir(name, perms);
       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:6>>*/ if(20 <= counter)
         /*<<filename.ml:373:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:373:41>>*/ counter + 1 | 0;
       counter = counter$0;
@@ -34008,7 +35064,7 @@
     /*<<filename.ml:374:15>>*/ }
    var
     Stdlib_Filename =
-      [0,
+       /*<<filename.ml:338:72>>*/ [0,
        current_dir_name$2,
        parent_dir_name$2,
        dir_sep$2,
@@ -34048,21 +35104,21 @@
     i = [254, 0., 1.],
     _a_ = [254, 0., 0.];
    function add(x, y){
-     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]];
+     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]] /*<<complex.ml:24:33>>*/ ;
     /*<<complex.ml:24:54>>*/ }
    function sub(x, y){
-     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]];
+     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]] /*<<complex.ml:26:33>>*/ ;
     /*<<complex.ml:26:54>>*/ }
    function neg(x){
-     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]];
+     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]] /*<<complex.ml:28:26>>*/ ;
     /*<<complex.ml:28:42>>*/ }
    function conj(x){
-     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]];
+     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]] /*<<complex.ml:30:38>>*/ ;
     /*<<complex.ml:30:40>>*/ }
    function mul(x, y){
      /*<<complex.ml:32:14>>*/ return [254,
             x[1] * y[1] - x[2] * y[2],
-            x[1] * y[2] + x[2] * y[1]];
+            x[1] * y[2] + x[2] * y[1]] /*<<complex.ml:32:49>>*/ ;
     /*<<complex.ml:33:51>>*/ }
    function div(x, y){
      /*<<complex.ml:36:2>>*/ if
@@ -34071,14 +35127,14 @@
      var
       r =  /*<<complex.ml:37:12>>*/ y[2] / y[1],
       d =  /*<<complex.ml:38:12>>*/ y[1] + r * y[2];
-      /*<<complex.ml:39:4>>*/ return [254,
+      /*<<complex.ml:39:35>>*/ return [254,
              (x[1] + r * x[2]) / d,
              (x[2] - r * x[1]) / d];
     }
     var
      r$0 =  /*<<complex.ml:42:12>>*/ y[1] / y[2],
      d$0 =  /*<<complex.ml:43:12>>*/ y[2] + r$0 * y[1];
-     /*<<complex.ml:44:4>>*/ return [254,
+     /*<<complex.ml:44:35>>*/ return [254,
             (r$0 * x[1] + x[2]) / d$0,
             (r$0 * x[2] - x[1]) / d$0];
     /*<<complex.ml:45:37>>*/ }
@@ -34086,8 +35142,8 @@
      /*<<complex.ml:47:12>>*/ return div(one, x) /*<<complex.ml:47:21>>*/ ;
    }
    function norm2(x){
-     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2];
-    /*<<complex.ml:49:42>>*/ }
+     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2] /*<<complex.ml:49:42>>*/ ;
+   }
    function norm(x){
      /*<<complex.ml:51:13>>*/ return runtime.caml_hypot_float(x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
    }
@@ -34097,7 +35153,7 @@
    function polar(n, a){
      /*<<complex.ml:55:16>>*/ return [254,
              /*<<complex.ml:55:23>>*/ Math.cos(a) * n,
-             /*<<complex.ml:55:40>>*/ Math.sin(a) * n] /*<<complex.ml:55:16>>*/ ;
+             /*<<complex.ml:55:40>>*/ Math.sin(a) * n] /*<<complex.ml:55:33>>*/ ;
     /*<<complex.ml:55:52>>*/ }
    function sqrt(x){
      /*<<complex.ml:58:2>>*/ if(x[1] === 0. && x[2] === 0.)
@@ -34105,7 +35161,7 @@
     var
      r =  /*<<complex.ml:60:12>>*/ Math.abs(x[1]),
      i =  /*<<complex.ml:60:35>>*/ Math.abs(x[2]);
-    if(i <= r)
+     /*<<complex.ml:61:4>>*/ if(i <= r)
      var
       q =  /*<<complex.ml:63:16>>*/ i / r,
       w =
@@ -34121,26 +35177,28 @@
         *
           /*<<complex.ml:67:19>>*/ Math.sqrt
           (0.5 * (q$0 +  /*<<complex.ml:67:37>>*/ Math.sqrt(1. + q$0 * q$0)));
-    if(0. <= x[1])  /*<<complex.ml:70:9>>*/ return [254, w, 0.5 * x[2] / w];
-    var w$0 = 0. <= x[2] ? w : - w;
-     /*<<complex.ml:71:9>>*/ return [254, 0.5 * i / w, w$0];
+     /*<<complex.ml:69:4>>*/ if(0. <= x[1])
+      /*<<complex.ml:70:41>>*/ return [254, w, 0.5 * x[2] / w];
+    var w$0 =  /*<<complex.ml:71:9>>*/ 0. <= x[2] ? w : - w;
+     /*<<complex.ml:71:29>>*/ return [254, 0.5 * i / w, w$0];
     /*<<complex.ml:72:5>>*/ }
    function exp(x){
     var e =  /*<<complex.ml:75:10>>*/ Math.exp(x[1]);
-     /*<<complex.ml:75:22>>*/ return [254,
+     /*<<complex.ml:75:42>>*/ return [254,
             e *  /*<<complex.ml:75:34>>*/ Math.cos(x[2]),
-            e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])] /*<<complex.ml:75:22>>*/ ;
+            e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])] /*<<complex.ml:75:42>>*/ ;
     /*<<complex.ml:75:64>>*/ }
    function log(x){
     var _b_ =  /*<<complex.ml:77:38>>*/ Math.atan2(x[2], x[1]);
-     /*<<complex.ml:77:12>>*/ return [254,
+     /*<<complex.ml:77:31>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log
              ( /*<<complex.ml:77:23>>*/ norm(x)),
-            _b_] /*<<complex.ml:77:12>>*/ ;
+            _b_] /*<<complex.ml:77:31>>*/ ;
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
-     /*<<complex.ml:79:14>>*/ return  /*<<complex.ml:79:18>>*/ exp
-            (mul(y,  /*<<complex.ml:79:25>>*/ log(x))) /*<<complex.ml:79:33>>*/ ;
+     /*<<complex.ml:79:14>>*/ return  /*<<complex.ml:79:33>>*/ exp
+            ( /*<<complex.ml:79:18>>*/ mul
+              (y,  /*<<complex.ml:79:25>>*/ log(x))) /*<<complex.ml:79:33>>*/ ;
    }
    var
     Stdlib_Complex =
@@ -34806,14 +35864,9 @@
     Stdlib_Printexc = global_data.Stdlib__Printexc,
     Stdlib_Printf = global_data.Stdlib__Printf,
     Stdlib_Callback = global_data.Stdlib__Callback,
-    Unhandled =
-       /*<<effect.ml:18:12>>*/ [248,
-       "Stdlib.Effect.Unhandled",
-       caml_fresh_oo_id(0)],
+    Unhandled = [248, "Stdlib.Effect.Unhandled", caml_fresh_oo_id(0)],
     Continuation_already_resumed =
-       /*<<effect.ml:19:0>>*/ [248,
-       "Stdlib.Effect.Continuation_already_resumed",
-       caml_fresh_oo_id(0)],
+      [248, "Stdlib.Effect.Continuation_already_resumed", caml_fresh_oo_id(0)],
     _a_ =
       [0,
        [11, "Stdlib.Effect.Unhandled(", [2, 0, [12, 41, 0]]],
@@ -34830,7 +35883,7 @@
     /*<<effect.ml:30:2>>*/ caml_call1(Stdlib_Printexc[9], printer);
    var
     Should_not_see_this =
-       /*<<effect.ml:33:12>>*/ [248,
+       /*<<effect.ml:30:35>>*/ [248,
        "Stdlib.Effect.Should_not_see_this__",
        caml_fresh_oo_id(0)];
     /*<<effect.ml:34:8>>*/ caml_call2
@@ -34846,30 +35899,30 @@
     function _g_(x){
       /*<<effect.ml:62:41>>*/ return x;
      /*<<effect.ml:62:42>>*/ }
-     /*<<effect.ml:62:11>>*/ return jsoo_effect_not_supported() /*<<effect.ml:62:65>>*/ ;
+     /*<<effect.ml:62:30>>*/ return jsoo_effect_not_supported() /*<<effect.ml:62:65>>*/ ;
    }
    function discontinue(k, e){
     var _f_ =  /*<<effect.ml:65:11>>*/ caml_continuation_use_noexc(k);
     function _e_(e){
       /*<<effect.ml:65:41>>*/ throw caml_maybe_attach_backtrace(e, 1);
      /*<<effect.ml:65:48>>*/ }
-     /*<<effect.ml:65:11>>*/ return jsoo_effect_not_supported() /*<<effect.ml:65:71>>*/ ;
+     /*<<effect.ml:65:30>>*/ return jsoo_effect_not_supported() /*<<effect.ml:65:71>>*/ ;
    }
    function discontinue_with_backtrace(k, e, bt){
     var _d_ =  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc(k);
     function _c_(e){
       /*<<effect.ml:68:41>>*/ caml_restore_raw_backtrace(e, bt);
-     throw caml_maybe_attach_backtrace(e, 0);
-     /*<<effect.ml:68:75>>*/ }
-     /*<<effect.ml:68:11>>*/ return jsoo_effect_not_supported() /*<<effect.ml:69:27>>*/ ;
+      /*<<effect.ml:68:75>>*/ throw caml_maybe_attach_backtrace(e, 0);
+    }
+     /*<<effect.ml:68:30>>*/ return jsoo_effect_not_supported() /*<<effect.ml:69:27>>*/ ;
    }
    function match_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
      var match =  /*<<effect.ml:81:12>>*/ caml_call1(handler[3], eff);
-     if(! match)
+      /*<<effect.ml:81:28>>*/ if(! match)
        /*<<effect.ml:85:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:85:42>>*/ ;
      var f = match[1];
-     k[2] = last_fiber;
+      /*<<effect.ml:83:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:84:10>>*/ return caml_call1(f, k) /*<<effect.ml:85:42>>*/ ;
     }
     var
@@ -34880,10 +35933,10 @@
    function try_with(comp, arg, handler){
     function effc(eff, k, last_fiber){
      var match =  /*<<effect.ml:95:12>>*/ caml_call1(handler[1], eff);
-     if(! match)
+      /*<<effect.ml:95:28>>*/ if(! match)
        /*<<effect.ml:99:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:99:42>>*/ ;
      var f = match[1];
-     k[2] = last_fiber;
+      /*<<effect.ml:97:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:98:10>>*/ return caml_call1(f, k) /*<<effect.ml:99:42>>*/ ;
     }
     var
@@ -34900,7 +35953,7 @@
    }
    var
     Deep =
-       /*<<effect.ml:46:14>>*/ [0,
+       /*<<effect.ml:37:38>>*/ [0,
        continue$0,
        discontinue,
        discontinue_with_backtrace,
@@ -34912,11 +35965,11 @@
    function fiber(f){
     var
      Initial_setup =
-        /*<<effect.ml:124:38>>*/ [248, cst_Initial_setup, caml_fresh_oo_id(0)],
-     E =  /*<<effect.ml:125:18>>*/ [248, cst_E, caml_fresh_oo_id(0)];
+        /*<<effect.ml:124:4>>*/ [248, cst_Initial_setup, caml_fresh_oo_id(0)],
+     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, jsoo_effect_not_supported()) /*<<effect.ml:126:45>>*/ ;
+      /*<<effect.ml:126:16>>*/ return  /*<<effect.ml:126:45>>*/ caml_call1
+             (f,  /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported()) /*<<effect.ml:126:45>>*/ ;
     }
     function error(param){
       /*<<effect.ml:127:18>>*/ return caml_call1(Stdlib[2], cst_impossible) /*<<effect.ml:127:39>>*/ ;
@@ -34924,14 +35977,11 @@
     function effc(eff, k, last_fiber){
       /*<<effect.ml:129:6>>*/ if(eff !== Initial_setup)
        /*<<effect.ml:133:13>>*/ return error(0) /*<<effect.ml:133:21>>*/ ;
-     k[2] = last_fiber;
+      /*<<effect.ml:131:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:132:10>>*/ throw [0, E, k];
      /*<<effect.ml:133:21>>*/ }
     var s =  /*<<effect.ml:135:12>>*/ caml_alloc_stack(error, error, effc);
-     /*<<effect.ml:136:4>>*/ try{
-      /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported();
-     var _b_ = 0;
-    }
+    try{ /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported(); var _b_ = 0;}
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
      if(exn[1] !== E) throw caml_maybe_attach_backtrace(exn, 0);
@@ -34943,10 +35993,10 @@
    function continue_gen(k, resume_fun, v, handler){
     function effc(eff, k, last_fiber){
      var match =  /*<<effect.ml:157:12>>*/ caml_call1(handler[3], eff);
-     if(! match)
+      /*<<effect.ml:157:28>>*/ if(! match)
        /*<<effect.ml:161:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:161:42>>*/ ;
      var f = match[1];
-     k[2] = last_fiber;
+      /*<<effect.ml:159:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:160:10>>*/ return caml_call1(f, k) /*<<effect.ml:161:42>>*/ ;
     }
     var
@@ -34979,14 +36029,15 @@
             (k,
              function(e){
                /*<<effect.ml:174:29>>*/ caml_restore_raw_backtrace(e, bt);
-              throw caml_maybe_attach_backtrace(e, 0);
-              /*<<effect.ml:174:63>>*/ },
+               /*<<effect.ml:174:63>>*/ throw caml_maybe_attach_backtrace
+                     (e, 0);
+             },
              v,
              handler) /*<<effect.ml:174:74>>*/ ;
    }
    var
     Stdlib_Effect =
-      [0,
+       /*<<effect.ml:37:38>>*/ [0,
        Unhandled,
        Continuation_already_resumed,
        Deep,
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index d9c6e5d0d5..62fdaf3ab9 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -1,5 +1,5 @@
 sourcemap for test.bc.js
-/my/sourceRoot#d.ml:1:0 -> 7:   var <>runtime = globalThis.jsoo_runtime;
+/my/sourceRoot#b.ml:1:0 -> 7:   var <>runtime = globalThis.jsoo_runtime;
 /my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }

From 4fd0880d440682200c487f427273929e15ceb20b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 14:55:31 +0200
Subject: [PATCH 15/35] Parse_bytecode: clean-up

In particular, no longer track the location of variables. This may make
sense during code generation, though: the location of a statement should
be the earliest location of the effectful expressions it contains (if
there is any).
---
 compiler/lib/parse_bytecode.ml | 758 +++++++++++++++------------------
 1 file changed, 340 insertions(+), 418 deletions(-)

diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index 606af195d9..2a8c2f5530 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -69,8 +69,6 @@ module Debug : sig
 
   val find_source : t -> string -> string option
 
-  val mem : t -> int -> bool
-
   val read_event :
        paths:string list
     -> crcs:(string, string option) Hashtbl.t
@@ -300,8 +298,6 @@ end = struct
     with Not_found -> []
   [@@if ocaml_version >= (5, 2, 0)]
 
-  let mem { events_by_pc; _ } pc = Int_table.mem events_by_pc pc
-
   let dummy_location (loc : Location.t) =
     loc.loc_start.pos_cnum = -1 || loc.loc_end.pos_cnum = -1
 
@@ -563,18 +559,18 @@ let resize_globals g size =
 (* State of the VM *)
 module State = struct
   type elt =
-    | Var of Var.t * loc
+    | Var of Var.t
     | Dummy of string
     | Unset
 
   let elt_to_var e =
     match e with
-    | Var (x, loc) -> x, loc
+    | Var x -> x
     | _ -> assert false
 
   let print_elt f v =
     match v with
-    | Var (x, _) -> Format.fprintf f "%a" Var.print x
+    | Var x -> Format.fprintf f "%a" Var.print x
     | Dummy _ -> Format.fprintf f "٭"
     | Unset -> Format.fprintf f "∅"
 
@@ -589,9 +585,9 @@ module State = struct
     ; globals : globals
     }
 
-  let fresh_var state loc =
+  let fresh_var state =
     let x = Var.fresh () in
-    x, { state with accu = Var (x, loc) }
+    x, { state with accu = Var x }
 
   let globals st = st.globals
 
@@ -614,32 +610,11 @@ module State = struct
       | [] -> assert false
       | _ :: r -> st_pop (n - 1) r
 
-  let push st loc =
-    match loc with
-    | No -> { st with stack = st.accu :: st.stack }
-    | _ ->
-        { st with
-          stack =
-            (match st.accu with
-            | Dummy x -> Dummy x
-            | Unset -> Unset
-            | Var (x, _) -> Var (x, loc))
-            :: st.stack
-        }
+  let push st = { st with stack = st.accu :: st.stack }
 
   let pop n st = { st with stack = st_pop n st.stack }
 
-  let acc n st loc =
-    match loc with
-    | No -> { st with accu = List.nth st.stack n }
-    | _ ->
-        { st with
-          accu =
-            (match List.nth st.stack n with
-            | Dummy x -> Dummy x
-            | Unset -> Unset
-            | Var (x, _) -> Var (x, loc))
-        }
+  let acc n st = { st with accu = List.nth st.stack n }
 
   let env_acc n st = { st with accu = st.env.(st.env_offset + n) }
 
@@ -648,10 +623,10 @@ module State = struct
   let stack_vars st =
     List.fold_left (st.accu :: st.stack) ~init:[] ~f:(fun l e ->
         match e with
-        | Var (x, _) -> x :: l
+        | Var x -> x :: l
         | Dummy _ | Unset -> l)
 
-  let set_accu st x loc = { st with accu = Var (x, loc) }
+  let set_accu st x = { st with accu = Var x }
 
   let clear_accu st = { st with accu = Unset }
 
@@ -675,15 +650,15 @@ module State = struct
           match e with
           | Dummy x -> Dummy x :: stack
           | Unset -> Unset :: stack
-          | Var (x, l) ->
+          | Var x ->
               let y = Var.fork x in
-              Var (y, l) :: stack)
+              Var y :: stack)
     in
     let state = { state with stack } in
     match state.accu with
     | Dummy _ | Unset -> state
-    | Var (x, loc) ->
-        let y, state = fresh_var state loc in
+    | Var x ->
+        let y, state = fresh_var state in
         Var.propagate_name x y;
         state
 
@@ -724,7 +699,7 @@ module State = struct
   let rec name_rec debug i l s summary =
     match l, s with
     | [], _ -> ()
-    | (j, ident) :: lrem, Var (v, _) :: srem when i = j ->
+    | (j, ident) :: lrem, Var v :: srem when i = j ->
         (match Ocaml_compiler.find_loc_in_summary ident summary with
         | None -> ()
         | Some loc -> Var.loc v (pi_of_loc debug loc));
@@ -739,12 +714,12 @@ module State = struct
       let l, summary = Debug.find debug pc in
       name_rec debug 0 l st.stack summary
 
-  let rec make_stack i state loc =
+  let rec make_stack i state =
     if i = 0
     then [], state
     else
-      let x, state = fresh_var state loc in
-      let params, state = make_stack (pred i) (push state loc) loc in
+      let x, state = fresh_var state in
+      let params, state = make_stack (pred i) (push state) in
       if debug_parser () then if i > 1 then Format.printf ", ";
       if debug_parser () then Format.printf "%a" Var.print x;
       x :: params, state
@@ -813,12 +788,12 @@ let get_global state instrs i loc =
   | Some x ->
       (* Registered global *)
       if debug_parser () then Format.printf "(global access %a)@." Var.print x;
-      x, State.set_accu state x loc, instrs
+      x, State.set_accu state x, instrs
   | None -> (
       if i < Array.length g.constants && Constants.inlined g.constants.(i)
       then
         (* Inlined constant *)
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         let cst = g.constants.(i) in
         x, state, (Let (x, Constant cst), loc) :: instrs
       else
@@ -829,7 +804,7 @@ let get_global state instrs i loc =
                Some code is generated in a prelude to store the relevant
                module in variable [x]. *)
             g.is_const.(i) <- true;
-            let x, state = State.fresh_var state loc in
+            let x, state = State.fresh_var state in
             if debug_parser () then Format.printf "%a = CONST(%d)@." Var.print x i;
             g.vars.(i) <- Some x;
             x, state, instrs
@@ -841,7 +816,7 @@ let get_global state instrs i loc =
             match g.named_value.(i) with
             | None -> assert false
             | Some name ->
-                let x, state = State.fresh_var state loc in
+                let x, state = State.fresh_var state in
                 if debug_parser ()
                 then Format.printf "%a = get_global(%s)@." Var.print x name;
                 ( x
@@ -884,11 +859,6 @@ let string_of_addr debug_data addr =
       in
       Some (Printf.sprintf "%s:%s-%s %s" file (pos loc.loc_start) (pos loc.loc_end) kind)
 
-let ( ||| ) x y =
-  match x with
-  | No -> y
-  | _ -> x
-
 let rec compile_block blocks debug_data code pc state =
   match Addr.Map.find_opt pc !tagged_blocks with
   | Some old_state -> (
@@ -1021,87 +991,42 @@ and compile infos pc state instrs =
     let code = infos.code in
     let instr = get_instr_exn code pc in
     if debug_parser () then Format.eprintf "%08x %s@." instr.opcode instr.name;
-    let loc =
-      match instr.Instr.code with
-      | APPLY
-      | APPLY1
-      | APPLY2
-      | APPLY3
-      | C_CALL1
-      | C_CALL2
-      | C_CALL3
-      | C_CALL4
-      | C_CALL5
-      | C_CALLN
-      | PERFORM
-      | RESUME -> (
-          let offset =
-            match instr.Instr.kind with
-            | KNullaryCall -> 1
-            | KUnaryCall -> 2
-            | KBinaryCall -> 3
-            | _ -> assert false
-          in
-          match Debug.find_loc' infos.debug (pc + offset) with
-          | Some (_, { ev_kind = Event_pseudo | Event_after _; _ }) ->
-              Code.Before (pc + offset)
-          | Some _ | None -> if Debug.mem infos.debug pc then Code.Before pc else noloc)
-      (* bytegen.ml insert a pseudo event after the following instruction *)
-      | MAKEBLOCK | MAKEBLOCK1 | MAKEBLOCK2 | MAKEBLOCK3 | MAKEFLOATBLOCK | GETFLOATFIELD
-        -> (
-          let offset =
-            match instr.Instr.kind with
-            | KUnary -> 2
-            | KBinary -> 3
-            | _ -> assert false
-          in
-          match Debug.find_loc' infos.debug (pc + offset) with
-          | Some (_, { ev_kind = Event_pseudo; _ }) -> Code.Before (pc + offset)
-          | Some _ | _ -> if Debug.mem infos.debug pc then Code.Before pc else noloc)
-      | RAISE | RAISE_NOTRACE | RERAISE -> (
-          match Debug.find_loc' infos.debug pc with
-          | Some _ -> Code.Before pc
-          | None -> noloc)
-      | _ -> (
-          match Debug.find_loc' infos.debug pc with
-          | Some (_, { ev_kind = Event_after _; _ }) -> Code.Before pc
-          | Some (_, { ev_kind = Event_pseudo | Event_before; _ }) -> Code.Before pc
-          | None -> noloc)
-    in
+    (* No longer used *)
+    let loc = noloc in
 
     match instr.Instr.code with
-    | ACC0 -> compile infos (pc + 1) (State.acc 0 state loc) instrs
-    | ACC1 -> compile infos (pc + 1) (State.acc 1 state loc) instrs
-    | ACC2 -> compile infos (pc + 1) (State.acc 2 state loc) instrs
-    | ACC3 -> compile infos (pc + 1) (State.acc 3 state loc) instrs
-    | ACC4 -> compile infos (pc + 1) (State.acc 4 state loc) instrs
-    | ACC5 -> compile infos (pc + 1) (State.acc 5 state loc) instrs
-    | ACC6 -> compile infos (pc + 1) (State.acc 6 state loc) instrs
-    | ACC7 -> compile infos (pc + 1) (State.acc 7 state loc) instrs
+    | ACC0 -> compile infos (pc + 1) (State.acc 0 state) instrs
+    | ACC1 -> compile infos (pc + 1) (State.acc 1 state) instrs
+    | ACC2 -> compile infos (pc + 1) (State.acc 2 state) instrs
+    | ACC3 -> compile infos (pc + 1) (State.acc 3 state) instrs
+    | ACC4 -> compile infos (pc + 1) (State.acc 4 state) instrs
+    | ACC5 -> compile infos (pc + 1) (State.acc 5 state) instrs
+    | ACC6 -> compile infos (pc + 1) (State.acc 6 state) instrs
+    | ACC7 -> compile infos (pc + 1) (State.acc 7 state) instrs
     | ACC ->
         let n = getu code (pc + 1) in
-        compile infos (pc + 2) (State.acc n state loc) instrs
-    | PUSH -> compile infos (pc + 1) (State.push state loc) instrs
-    | PUSHACC0 -> compile infos (pc + 1) (State.acc 0 (State.push state loc) loc) instrs
-    | PUSHACC1 -> compile infos (pc + 1) (State.acc 1 (State.push state loc) loc) instrs
-    | PUSHACC2 -> compile infos (pc + 1) (State.acc 2 (State.push state loc) loc) instrs
-    | PUSHACC3 -> compile infos (pc + 1) (State.acc 3 (State.push state loc) loc) instrs
-    | PUSHACC4 -> compile infos (pc + 1) (State.acc 4 (State.push state loc) loc) instrs
-    | PUSHACC5 -> compile infos (pc + 1) (State.acc 5 (State.push state loc) loc) instrs
-    | PUSHACC6 -> compile infos (pc + 1) (State.acc 6 (State.push state loc) loc) instrs
-    | PUSHACC7 -> compile infos (pc + 1) (State.acc 7 (State.push state loc) loc) instrs
+        compile infos (pc + 2) (State.acc n state) instrs
+    | PUSH -> compile infos (pc + 1) (State.push state) instrs
+    | PUSHACC0 -> compile infos (pc + 1) (State.acc 0 (State.push state)) instrs
+    | PUSHACC1 -> compile infos (pc + 1) (State.acc 1 (State.push state)) instrs
+    | PUSHACC2 -> compile infos (pc + 1) (State.acc 2 (State.push state)) instrs
+    | PUSHACC3 -> compile infos (pc + 1) (State.acc 3 (State.push state)) instrs
+    | PUSHACC4 -> compile infos (pc + 1) (State.acc 4 (State.push state)) instrs
+    | PUSHACC5 -> compile infos (pc + 1) (State.acc 5 (State.push state)) instrs
+    | PUSHACC6 -> compile infos (pc + 1) (State.acc 6 (State.push state)) instrs
+    | PUSHACC7 -> compile infos (pc + 1) (State.acc 7 (State.push state)) instrs
     | PUSHACC ->
         let n = getu code (pc + 1) in
-        compile infos (pc + 2) (State.acc n (State.push state loc) loc) instrs
+        compile infos (pc + 2) (State.acc n (State.push state)) instrs
     | POP ->
         let n = getu code (pc + 1) in
         compile infos (pc + 2) (State.pop n state) instrs
     | ASSIGN ->
         let n = getu code (pc + 1) in
-        let accu, _ = State.accu state in
+        let accu = State.accu state in
         let state = State.assign state n in
         let stack_size = List.length state.stack in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         let instrs =
           (* If the assigned variable is used in an exception handler,
              we register that from now on the parameter [dest] should
@@ -1123,7 +1048,7 @@ and compile infos pc state instrs =
               let diff = stack_size - handler_stack_size in
               if n >= diff
               then
-                let dest, _ = State.elt_to_var (List.nth handler.stack (n - diff)) in
+                let dest = State.elt_to_var (List.nth handler.stack (n - diff)) in
                 (Assign (dest, accu), loc) :: acc
               else acc)
         in
@@ -1136,17 +1061,13 @@ and compile infos pc state instrs =
     | ENVACC ->
         let n = getu code (pc + 1) in
         compile infos (pc + 2) (State.env_acc n state) instrs
-    | PUSHENVACC1 ->
-        compile infos (pc + 1) (State.env_acc 1 (State.push state loc)) instrs
-    | PUSHENVACC2 ->
-        compile infos (pc + 1) (State.env_acc 2 (State.push state loc)) instrs
-    | PUSHENVACC3 ->
-        compile infos (pc + 1) (State.env_acc 3 (State.push state loc)) instrs
-    | PUSHENVACC4 ->
-        compile infos (pc + 1) (State.env_acc 4 (State.push state loc)) instrs
+    | PUSHENVACC1 -> compile infos (pc + 1) (State.env_acc 1 (State.push state)) instrs
+    | PUSHENVACC2 -> compile infos (pc + 1) (State.env_acc 2 (State.push state)) instrs
+    | PUSHENVACC3 -> compile infos (pc + 1) (State.env_acc 3 (State.push state)) instrs
+    | PUSHENVACC4 -> compile infos (pc + 1) (State.env_acc 4 (State.push state)) instrs
     | PUSHENVACC ->
         let n = getu code (pc + 1) in
-        compile infos (pc + 2) (State.env_acc n (State.push state loc)) instrs
+        compile infos (pc + 2) (State.env_acc n (State.push state)) instrs
     | PUSH_RETADDR ->
         compile
           infos
@@ -1162,8 +1083,8 @@ and compile infos pc state instrs =
           instrs
     | APPLY ->
         let n = getu code (pc + 1) in
-        let f, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let f = State.accu state in
+        let x, state = State.fresh_var state in
         let args, state = State.grab n state in
 
         if debug_parser ()
@@ -1171,19 +1092,18 @@ and compile infos pc state instrs =
           Format.printf "%a = %a(" Var.print x Var.print f;
           for i = 0 to n - 1 do
             if i > 0 then Format.printf ", ";
-            Format.printf "%a" Var.print (fst (List.nth args i))
+            Format.printf "%a" Var.print (List.nth args i)
           done;
           Format.printf ")@.");
         compile
           infos
           (pc + 2)
           (State.pop 3 state)
-          ((Let (x, Apply { f; args = List.map ~f:fst args; exact = false }), loc)
-          :: instrs)
+          ((Let (x, Apply { f; args; exact = false }), loc) :: instrs)
     | APPLY1 ->
-        let f, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
-        let y, _ = State.peek 0 state in
+        let f = State.accu state in
+        let x, state = State.fresh_var state in
+        let y = State.peek 0 state in
 
         if debug_parser ()
         then Format.printf "%a = %a(%a)@." Var.print x Var.print f Var.print y;
@@ -1193,10 +1113,10 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Apply { f; args = [ y ]; exact = false }), loc) :: instrs)
     | APPLY2 ->
-        let f, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
-        let y, _ = State.peek 0 state in
-        let z, _ = State.peek 1 state in
+        let f = State.accu state in
+        let x, state = State.fresh_var state in
+        let y = State.peek 0 state in
+        let z = State.peek 1 state in
 
         if debug_parser ()
         then
@@ -1216,11 +1136,11 @@ and compile infos pc state instrs =
           (State.pop 2 state)
           ((Let (x, Apply { f; args = [ y; z ]; exact = false }), loc) :: instrs)
     | APPLY3 ->
-        let f, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
-        let y, _ = State.peek 0 state in
-        let z, _ = State.peek 1 state in
-        let t, _ = State.peek 2 state in
+        let f = State.accu state in
+        let x, state = State.fresh_var state in
+        let y = State.peek 0 state in
+        let z = State.peek 1 state in
+        let t = State.peek 2 state in
 
         if debug_parser ()
         then
@@ -1243,7 +1163,7 @@ and compile infos pc state instrs =
           ((Let (x, Apply { f; args = [ y; z; t ]; exact = false }), loc) :: instrs)
     | APPTERM ->
         let n = getu code (pc + 1) in
-        let f, loc_f = State.accu state in
+        let f = State.accu state in
         let l, state = State.grab n state in
 
         if debug_parser ()
@@ -1251,40 +1171,36 @@ and compile infos pc state instrs =
           Format.printf "return %a(" Var.print f;
           for i = 0 to n - 1 do
             if i > 0 then Format.printf ", ";
-            Format.printf "%a" Var.print (fst (List.nth l i))
+            Format.printf "%a" Var.print (List.nth l i)
           done;
           Format.printf ")@.");
-        let x, state = State.fresh_var state loc in
-        let loc = snd (List.nth l (n - 1)) ||| loc_f in
-        ( (Let (x, Apply { f; args = List.map ~f:fst l; exact = false }), loc) :: instrs
+        let x, state = State.fresh_var state in
+        ( (Let (x, Apply { f; args = l; exact = false }), loc) :: instrs
         , (Return x, loc)
         , state )
     | APPTERM1 ->
-        let f, loc_f = State.accu state in
-        let x, loc_x = State.peek 0 state in
-        let loc = loc_x ||| loc_f in
+        let f = State.accu state in
+        let x = State.peek 0 state in
         if debug_parser () then Format.printf "return %a(%a)@." Var.print f Var.print x;
-        let y, state = State.fresh_var state loc in
+        let y, state = State.fresh_var state in
         ( (Let (y, Apply { f; args = [ x ]; exact = false }), loc) :: instrs
         , (Return y, loc)
         , state )
     | APPTERM2 ->
-        let f, loc_f = State.accu state in
-        let x, loc_x = State.peek 0 state in
-        let y, loc_y = State.peek 1 state in
-        let loc = loc_y ||| loc_x ||| loc_f in
+        let f = State.accu state in
+        let x = State.peek 0 state in
+        let y = State.peek 1 state in
         if debug_parser ()
         then Format.printf "return %a(%a, %a)@." Var.print f Var.print x Var.print y;
-        let z, state = State.fresh_var state loc in
+        let z, state = State.fresh_var state in
         ( (Let (z, Apply { f; args = [ x; y ]; exact = false }), loc) :: instrs
         , (Return z, loc)
         , state )
     | APPTERM3 ->
-        let f, loc_f = State.accu state in
-        let x, loc_x = State.peek 0 state in
-        let y, loc_y = State.peek 1 state in
-        let z, loc_z = State.peek 2 state in
-        let loc = loc_z ||| loc_y ||| loc_x ||| loc_f in
+        let f = State.accu state in
+        let x = State.peek 0 state in
+        let y = State.peek 1 state in
+        let z = State.peek 2 state in
         if debug_parser ()
         then
           Format.printf
@@ -1297,25 +1213,25 @@ and compile infos pc state instrs =
             y
             Var.print
             z;
-        let t, state = State.fresh_var state loc in
+        let t, state = State.fresh_var state in
         ( (Let (t, Apply { f; args = [ x; y; z ]; exact = false }), loc) :: instrs
         , (Return t, loc)
         , state )
     | RETURN ->
-        let x, loc_x = State.accu state in
+        let x = State.accu state in
 
         if debug_parser () then Format.printf "return %a@." Var.print x;
-        instrs, (Return x, loc ||| loc_x), state
+        instrs, (Return x, loc), state
     | RESTART -> assert false
     | GRAB -> assert false
     | CLOSURE ->
         let nvars = getu code (pc + 1) in
         let addr = pc + gets code (pc + 2) + 2 in
-        let state = if nvars > 0 then State.push state loc else state in
+        let state = if nvars > 0 then State.push state else state in
 
         let vals, state = State.grab nvars state in
-        let x, state = State.fresh_var state loc in
-        let env = List.map vals ~f:(fun (x, loc) -> State.Var (x, loc)) in
+        let x, state = State.fresh_var state in
+        let env = List.map vals ~f:(fun x -> State.Var x) in
         let env =
           let code = State.Dummy "closure(code)" in
           let closure_info = State.Dummy "closure(info)" in
@@ -1329,7 +1245,7 @@ and compile infos pc state instrs =
           | _ -> 1, addr
         in
         let state' = State.start_function state env 0 in
-        let params, state' = State.make_stack nparams state' loc in
+        let params, state' = State.make_stack nparams state' in
         if debug_parser () then Format.printf ") {@.";
         let state' = State.clear_accu state' in
         compile_block infos.blocks infos.debug code addr state';
@@ -1345,14 +1261,14 @@ and compile infos pc state instrs =
     | CLOSUREREC ->
         let nfuncs = getu code (pc + 1) in
         let nvars = getu code (pc + 2) in
-        let state = if nvars > 0 then State.push state loc else state in
+        let state = if nvars > 0 then State.push state else state in
         let vals, state = State.grab nvars state in
 
         let state = ref state in
         let vars = ref [] in
         let rec_names = ref (Debug.find_rec infos.debug (pc + 3 + gets code (pc + 3))) in
         for i = 0 to nfuncs - 1 do
-          let x, st = State.fresh_var !state loc in
+          let x, st = State.fresh_var !state in
           (match !rec_names with
           | (j, ident) :: rest ->
               assert (j = i);
@@ -1360,11 +1276,11 @@ and compile infos pc state instrs =
               rec_names := rest
           | [] -> ());
           vars := (i, x) :: !vars;
-          state := State.push st loc
+          state := State.push st
         done;
-        let env = ref (List.map vals ~f:(fun (x, loc) -> State.Var (x, loc))) in
+        let env = ref (List.map vals ~f:(fun x -> State.Var x)) in
         List.iter !vars ~f:(fun (i, x) ->
-            let code = State.Var (x, noloc) in
+            let code = State.Var x in
             let closure_info = State.Dummy "closurerec(info)" in
             if new_closure_repr
             then env := code :: closure_info :: !env
@@ -1386,7 +1302,7 @@ and compile infos pc state instrs =
               in
               let offset = i * clo_offset_3 in
               let state' = State.start_function state env offset in
-              let params, state' = State.make_stack nparams state' loc in
+              let params, state' = State.make_stack nparams state' in
               if debug_parser () then Format.printf ") {@.";
               let state' = State.clear_accu state' in
               compile_block infos.blocks infos.debug code addr state';
@@ -1396,7 +1312,7 @@ and compile infos pc state instrs =
               Debug.propagate (State.stack_vars state'') args;
               (Let (x, Closure (List.rev params, (addr, args))), loc) :: instr)
         in
-        compile infos (pc + 3 + nfuncs) (State.acc (nfuncs - 1) state loc) instrs
+        compile infos (pc + 3 + nfuncs) (State.acc (nfuncs - 1) state) instrs
     | OFFSETCLOSUREM3 ->
         compile infos (pc + 1) (State.env_acc (-clo_offset_3) state) instrs
     | OFFSETCLOSURE0 -> compile infos (pc + 1) (State.env_acc 0 state) instrs
@@ -1405,16 +1321,16 @@ and compile infos pc state instrs =
         let n = gets code (pc + 1) in
         compile infos (pc + 2) (State.env_acc n state) instrs
     | PUSHOFFSETCLOSUREM3 ->
-        let state = State.push state loc in
+        let state = State.push state in
         compile infos (pc + 1) (State.env_acc (-clo_offset_3) state) instrs
     | PUSHOFFSETCLOSURE0 ->
-        let state = State.push state loc in
+        let state = State.push state in
         compile infos (pc + 1) (State.env_acc 0 state) instrs
     | PUSHOFFSETCLOSURE3 ->
-        let state = State.push state loc in
+        let state = State.push state in
         compile infos (pc + 1) (State.env_acc clo_offset_3 state) instrs
     | PUSHOFFSETCLOSURE ->
-        let state = State.push state loc in
+        let state = State.push state in
         let n = gets code (pc + 1) in
         compile infos (pc + 2) (State.env_acc n state) instrs
     | GETGLOBAL ->
@@ -1422,7 +1338,7 @@ and compile infos pc state instrs =
         let _, state, instrs = get_global state instrs i loc in
         compile infos (pc + 2) state instrs
     | PUSHGETGLOBAL ->
-        let state = State.push state loc in
+        let state = State.push state in
         let i = getu code (pc + 1) in
         let _, state, instrs = get_global state instrs i loc in
         compile infos (pc + 2) state instrs
@@ -1430,22 +1346,22 @@ and compile infos pc state instrs =
         let i = getu code (pc + 1) in
         let x, state, instrs = get_global state instrs i loc in
         let j = getu code (pc + 2) in
-        let y, state = State.fresh_var state loc in
+        let y, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = %a[%d]@." Var.print y Var.print x j;
         compile infos (pc + 3) state ((Let (y, Field (x, j, Non_float)), loc) :: instrs)
     | PUSHGETGLOBALFIELD ->
-        let state = State.push state loc in
+        let state = State.push state in
 
         let i = getu code (pc + 1) in
         let x, state, instrs = get_global state instrs i loc in
         let j = getu code (pc + 2) in
-        let y, state = State.fresh_var state loc in
+        let y, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = %a[%d]@." Var.print y Var.print x j;
         compile infos (pc + 3) state ((Let (y, Field (x, j, Non_float)), loc) :: instrs)
     | SETGLOBAL ->
         let i = getu code (pc + 1) in
         State.size_globals state (i + 1);
-        let y, _ = State.accu state in
+        let y = State.accu state in
         let g = State.globals state in
 
         assert (Option.is_none g.vars.(i));
@@ -1460,12 +1376,12 @@ and compile infos pc state instrs =
               g.vars.(i) <- Some y;
               instrs
         in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         let instrs = register_global g i loc instrs in
         compile infos (pc + 2) state ((Let (x, const 0), loc) :: instrs)
     | ATOM0 ->
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = ATOM(0)@." Var.print x;
         compile
@@ -1475,7 +1391,7 @@ and compile infos pc state instrs =
           ((Let (x, Block (0, [||], Unknown, Maybe_mutable)), loc) :: instrs)
     | ATOM ->
         let i = getu code (pc + 1) in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = ATOM(%d)@." Var.print x i;
         compile
@@ -1484,8 +1400,8 @@ and compile infos pc state instrs =
           state
           ((Let (x, Block (i, [||], Unknown, Maybe_mutable)), loc) :: instrs)
     | PUSHATOM0 ->
-        let state = State.push state loc in
-        let x, state = State.fresh_var state loc in
+        let state = State.push state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = ATOM(0)@." Var.print x;
         compile
@@ -1494,10 +1410,10 @@ and compile infos pc state instrs =
           state
           ((Let (x, Block (0, [||], Unknown, Maybe_mutable)), loc) :: instrs)
     | PUSHATOM ->
-        let state = State.push state loc in
+        let state = State.push state in
 
         let i = getu code (pc + 1) in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = ATOM(%d)@." Var.print x i;
         compile
           infos
@@ -1507,32 +1423,27 @@ and compile infos pc state instrs =
     | MAKEBLOCK ->
         let size = getu code (pc + 1) in
         let tag = getu code (pc + 2) in
-        let state = State.push state loc in
+        let state = State.push state in
 
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         let contents, state = State.grab size state in
         if debug_parser ()
         then (
           Format.printf "%a = { " Var.print x;
           for i = 0 to size - 1 do
-            Format.printf "%d = %a; " i Var.print (fst (List.nth contents i))
+            Format.printf "%d = %a; " i Var.print (List.nth contents i)
           done;
           Format.printf "}@.");
         compile
           infos
           (pc + 3)
           state
-          (( Let
-               ( x
-               , Block
-                   (tag, Array.of_list (List.map ~f:fst contents), Unknown, Maybe_mutable)
-               )
-           , loc )
+          ((Let (x, Block (tag, Array.of_list contents, Unknown, Maybe_mutable)), loc)
           :: instrs)
     | MAKEBLOCK1 ->
         let tag = getu code (pc + 1) in
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = { 0 = %a; }@." Var.print x Var.print y;
         compile
@@ -1542,9 +1453,9 @@ and compile infos pc state instrs =
           ((Let (x, Block (tag, [| y |], Unknown, Maybe_mutable)), loc) :: instrs)
     | MAKEBLOCK2 ->
         let tag = getu code (pc + 1) in
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -1556,10 +1467,10 @@ and compile infos pc state instrs =
           ((Let (x, Block (tag, [| y; z |], Unknown, Maybe_mutable)), loc) :: instrs)
     | MAKEBLOCK3 ->
         let tag = getu code (pc + 1) in
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let t, _ = State.peek 1 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let t = State.peek 1 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -1580,73 +1491,68 @@ and compile infos pc state instrs =
           ((Let (x, Block (tag, [| y; z; t |], Unknown, Maybe_mutable)), loc) :: instrs)
     | MAKEFLOATBLOCK ->
         let size = getu code (pc + 1) in
-        let state = State.push state loc in
-        let x, state = State.fresh_var state loc in
+        let state = State.push state in
+        let x, state = State.fresh_var state in
         let contents, state = State.grab size state in
 
         if debug_parser ()
         then (
           Format.printf "%a = { " Var.print x;
           for i = 0 to size - 1 do
-            Format.printf "%d = %a; " i Var.print (fst (List.nth contents i))
+            Format.printf "%d = %a; " i Var.print (List.nth contents i)
           done;
           Format.printf "}@.");
         compile
           infos
           (pc + 2)
           state
-          (( Let
-               ( x
-               , Block
-                   (254, Array.of_list (List.map ~f:fst contents), Unknown, Maybe_mutable)
-               )
-           , loc )
+          ((Let (x, Block (254, Array.of_list contents, Unknown, Maybe_mutable)), loc)
           :: instrs)
     | GETFIELD0 ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %a[0]@." Var.print x Var.print y;
         compile infos (pc + 1) state ((Let (x, Field (y, 0, Non_float)), loc) :: instrs)
     | GETFIELD1 ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %a[1]@." Var.print x Var.print y;
         compile infos (pc + 1) state ((Let (x, Field (y, 1, Non_float)), loc) :: instrs)
     | GETFIELD2 ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %a[2]@." Var.print x Var.print y;
         compile infos (pc + 1) state ((Let (x, Field (y, 2, Non_float)), loc) :: instrs)
     | GETFIELD3 ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %a[3]@." Var.print x Var.print y;
         compile infos (pc + 1) state ((Let (x, Field (y, 3, Non_float)), loc) :: instrs)
     | GETFIELD ->
-        let y, _ = State.accu state in
+        let y = State.accu state in
         let n = getu code (pc + 1) in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %a[%d]@." Var.print x Var.print y n;
         compile infos (pc + 2) state ((Let (x, Field (y, n, Non_float)), loc) :: instrs)
     | GETFLOATFIELD ->
-        let y, _ = State.accu state in
+        let y = State.accu state in
         let n = getu code (pc + 1) in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = FLOAT{%a[%d]}@." Var.print x Var.print y n;
         compile infos (pc + 2) state ((Let (x, Field (y, n, Float)), loc) :: instrs)
     | SETFIELD0 ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
+        let y = State.accu state in
+        let z = State.peek 0 state in
 
         if debug_parser () then Format.printf "%a[0] = %a@." Var.print y Var.print z;
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile
           infos
@@ -1654,11 +1560,11 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, const 0), loc) :: (Set_field (y, 0, Non_float, z), loc) :: instrs)
     | SETFIELD1 ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
+        let y = State.accu state in
+        let z = State.peek 0 state in
 
         if debug_parser () then Format.printf "%a[1] = %a@." Var.print y Var.print z;
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile
           infos
@@ -1666,11 +1572,11 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, const 0), loc) :: (Set_field (y, 1, Non_float, z), loc) :: instrs)
     | SETFIELD2 ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
+        let y = State.accu state in
+        let z = State.peek 0 state in
 
         if debug_parser () then Format.printf "%a[2] = %a@." Var.print y Var.print z;
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile
           infos
@@ -1678,11 +1584,11 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, const 0), loc) :: (Set_field (y, 2, Non_float, z), loc) :: instrs)
     | SETFIELD3 ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
+        let y = State.accu state in
+        let z = State.peek 0 state in
 
         if debug_parser () then Format.printf "%a[3] = %a@." Var.print y Var.print z;
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile
           infos
@@ -1690,12 +1596,12 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, const 0), loc) :: (Set_field (y, 3, Non_float, z), loc) :: instrs)
     | SETFIELD ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
+        let y = State.accu state in
+        let z = State.peek 0 state in
         let n = getu code (pc + 1) in
 
         if debug_parser () then Format.printf "%a[%d] = %a@." Var.print y n Var.print z;
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile
           infos
@@ -1703,13 +1609,13 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, const 0), loc) :: (Set_field (y, n, Non_float, z), loc) :: instrs)
     | SETFLOATFIELD ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
+        let y = State.accu state in
+        let z = State.peek 0 state in
         let n = getu code (pc + 1) in
 
         if debug_parser ()
         then Format.printf "FLOAT{%a[%d]} = %a@." Var.print y n Var.print z;
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile
           infos
@@ -1717,8 +1623,8 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, const 0), loc) :: (Set_field (y, n, Float, z), loc) :: instrs)
     | VECTLENGTH ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %a.length@." Var.print x Var.print y;
         compile
@@ -1727,9 +1633,9 @@ and compile infos pc state instrs =
           state
           ((Let (x, Prim (Vectlength, [ Pv y ])), loc) :: instrs)
     | GETVECTITEM ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a[%a]@." Var.print x Var.print y Var.print z;
@@ -1739,19 +1645,27 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Array_get, [ Pv y; Pv z ])), loc) :: instrs)
     | SETVECTITEM ->
-        let x, _ = State.accu state in
-        let y, _ = State.peek 0 state in
-        let z, _ = State.peek 1 state in
         if debug_parser ()
-        then Format.printf "%a[%a] = %a@." Var.print x Var.print y Var.print z;
-        let instrs = (Array_set (x, y, z), loc) :: instrs in
-        let x, state = State.fresh_var state loc in
+        then
+          Format.printf
+            "%a[%a] = %a@."
+            Var.print
+            (State.accu state)
+            Var.print
+            (State.peek 0 state)
+            Var.print
+            (State.peek 1 state);
+        let instrs =
+          (Array_set (State.accu state, State.peek 0 state, State.peek 1 state), loc)
+          :: instrs
+        in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile infos (pc + 1) (State.pop 2 state) ((Let (x, const 0), loc) :: instrs)
     | GETSTRINGCHAR ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a[%a]@." Var.print x Var.print y Var.print z;
@@ -1762,9 +1676,9 @@ and compile infos pc state instrs =
           ((Let (x, Prim (Extern "caml_string_unsafe_get", [ Pv y; Pv z ])), loc)
           :: instrs)
     | GETBYTESCHAR ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a[%a]@." Var.print x Var.print y Var.print z;
@@ -1774,17 +1688,25 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "caml_bytes_unsafe_get", [ Pv y; Pv z ])), loc) :: instrs)
     | SETBYTESCHAR ->
-        let x, _ = State.accu state in
-        let y, _ = State.peek 0 state in
-        let z, _ = State.peek 1 state in
         if debug_parser ()
-        then Format.printf "%a[%a] = %a@." Var.print x Var.print y Var.print z;
-        let t, state = State.fresh_var state loc in
+        then
+          Format.printf
+            "%a[%a] = %a@."
+            Var.print
+            (State.accu state)
+            Var.print
+            (State.peek 0 state)
+            Var.print
+            (State.peek 1 state);
+        let x = State.accu state in
+        let y = State.peek 0 state in
+        let z = State.peek 1 state in
+        let t, state = State.fresh_var state in
         let instrs =
           (Let (t, Prim (Extern "caml_bytes_unsafe_set", [ Pv x; Pv y; Pv z ])), loc)
           :: instrs
         in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = 0@." Var.print x;
         compile infos (pc + 1) (State.pop 2 state) ((Let (x, const 0), loc) :: instrs)
     | BRANCH ->
@@ -1793,17 +1715,16 @@ and compile infos pc state instrs =
         instrs, (Branch (pc + offset + 1, []), loc), state
     | BRANCHIF ->
         let offset = gets code (pc + 1) in
-        let x, loc_x = State.accu state in
-        let loc = loc ||| loc_x in
+        let x = State.accu state in
         instrs, (Cond (x, (pc + offset + 1, []), (pc + 2, [])), loc), state
     | BRANCHIFNOT ->
         let offset = gets code (pc + 1) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         instrs, (Cond (x, (pc + 2, []), (pc + offset + 1, [])), loc), state
     | SWITCH -> (
         if debug_parser () then Format.printf "switch ...@.";
         let sz = getu code (pc + 1) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let isize = sz land 0XFFFF in
         let bsize = sz lsr 16 in
         let base = pc + 2 in
@@ -1856,8 +1777,8 @@ and compile infos pc state instrs =
             , (Cond (isint_var, (isint_branch, []), (isblock_branch, [])), loc)
             , state ))
     | BOOLNOT ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = !%a@." Var.print x Var.print y;
         compile infos (pc + 1) state ((Let (x, Prim (Not, [ Pv y ])), loc) :: instrs)
     | PUSHTRAP ->
@@ -1869,7 +1790,7 @@ and compile infos pc state instrs =
         let handler_ctx_state = State.start_block interm_addr state in
         let body_addr = pc + 2 in
         let handler_addr = pc + 1 + gets code (pc + 1) in
-        let x, handler_state = State.fresh_var handler_ctx_state loc in
+        let x, handler_state = State.fresh_var handler_ctx_state in
 
         tagged_blocks := Addr.Map.add interm_addr state !tagged_blocks;
         compiled_blocks :=
@@ -1909,7 +1830,6 @@ and compile infos pc state instrs =
           (State.pop 4 (State.pop_handler state));
         instrs, (Poptrap (addr, []), loc), state
     | RERAISE | RAISE_NOTRACE | RAISE ->
-        let x, _ = State.accu state in
         let kind =
           match instr.Instr.code with
           | RERAISE -> `Reraise
@@ -1917,8 +1837,8 @@ and compile infos pc state instrs =
           | RAISE -> `Normal
           | _ -> assert false
         in
-        if debug_parser () then Format.printf "throw(%a)@." Var.print x;
-        instrs, (Raise (x, kind), loc), state
+        if debug_parser () then Format.printf "throw(%a)@." Var.print (State.accu state);
+        instrs, (Raise (State.accu state, kind), loc), state
     | CHECK_SIGNALS -> compile infos (pc + 1) state instrs
     | C_CALL1 ->
         let prim = primitive_name state (getu code (pc + 1)) in
@@ -1927,8 +1847,8 @@ and compile infos pc state instrs =
         then (* This is a no-op *)
           compile infos (pc + 2) state instrs
         else
-          let y, _ = State.accu state in
-          let x, state = State.fresh_var state loc in
+          let y = State.accu state in
+          let x, state = State.fresh_var state in
           if debug_parser ()
           then Format.printf "%a = ccall \"%s\" (%a)@." Var.print x prim Var.print y;
           compile
@@ -1938,9 +1858,9 @@ and compile infos pc state instrs =
             ((Let (x, Prim (Extern prim, [ Pv y ])), loc) :: instrs)
     | C_CALL2 ->
         let prim = primitive_name state (getu code (pc + 1)) in
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -1960,10 +1880,10 @@ and compile infos pc state instrs =
           ((Let (x, Prim (Extern prim, [ Pv y; Pv z ])), loc) :: instrs)
     | C_CALL3 ->
         let prim = primitive_name state (getu code (pc + 1)) in
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let t, _ = State.peek 1 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let t = State.peek 1 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -1986,8 +1906,8 @@ and compile infos pc state instrs =
     | C_CALL4 ->
         let nargs = 4 in
         let prim = primitive_name state (getu code (pc + 1)) in
-        let state = State.push state loc in
-        let x, state = State.fresh_var state loc in
+        let state = State.push state in
+        let x, state = State.fresh_var state in
         let args, state = State.grab nargs state in
 
         if debug_parser ()
@@ -1995,20 +1915,19 @@ and compile infos pc state instrs =
           Format.printf "%a = ccal \"%s\" (" Var.print x prim;
           for i = 0 to nargs - 1 do
             if i > 0 then Format.printf ", ";
-            Format.printf "%a" Var.print (fst (List.nth args i))
+            Format.printf "%a" Var.print (List.nth args i)
           done;
           Format.printf ")@.");
         compile
           infos
           (pc + 2)
           state
-          ((Let (x, Prim (Extern prim, List.map args ~f:(fun (x, _) -> Pv x))), loc)
-          :: instrs)
+          ((Let (x, Prim (Extern prim, List.map args ~f:(fun x -> Pv x))), loc) :: instrs)
     | C_CALL5 ->
         let nargs = 5 in
         let prim = primitive_name state (getu code (pc + 1)) in
-        let state = State.push state loc in
-        let x, state = State.fresh_var state loc in
+        let state = State.push state in
+        let x, state = State.fresh_var state in
         let args, state = State.grab nargs state in
 
         if debug_parser ()
@@ -2016,20 +1935,19 @@ and compile infos pc state instrs =
           Format.printf "%a = ccal \"%s\" (" Var.print x prim;
           for i = 0 to nargs - 1 do
             if i > 0 then Format.printf ", ";
-            Format.printf "%a" Var.print (fst (List.nth args i))
+            Format.printf "%a" Var.print (List.nth args i)
           done;
           Format.printf ")@.");
         compile
           infos
           (pc + 2)
           state
-          ((Let (x, Prim (Extern prim, List.map args ~f:(fun (x, _) -> Pv x))), loc)
-          :: instrs)
+          ((Let (x, Prim (Extern prim, List.map args ~f:(fun x -> Pv x))), loc) :: instrs)
     | C_CALLN ->
         let nargs = getu code (pc + 1) in
         let prim = primitive_name state (getu code (pc + 2)) in
-        let state = State.push state loc in
-        let x, state = State.fresh_var state loc in
+        let state = State.push state in
+        let x, state = State.fresh_var state in
         let args, state = State.grab nargs state in
 
         if debug_parser ()
@@ -2037,17 +1955,16 @@ and compile infos pc state instrs =
           Format.printf "%a = ccal \"%s\" (" Var.print x prim;
           for i = 0 to nargs - 1 do
             if i > 0 then Format.printf ", ";
-            Format.printf "%a" Var.print (fst (List.nth args i))
+            Format.printf "%a" Var.print (List.nth args i)
           done;
           Format.printf ")@.");
         compile
           infos
           (pc + 3)
           state
-          ((Let (x, Prim (Extern prim, List.map args ~f:(fun (x, _) -> Pv x))), loc)
-          :: instrs)
+          ((Let (x, Prim (Extern prim, List.map args ~f:(fun x -> Pv x))), loc) :: instrs)
     | (CONST0 | CONST1 | CONST2 | CONST3) as cc ->
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         let n =
           match cc with
           | CONST0 -> 0
@@ -2061,13 +1978,13 @@ and compile infos pc state instrs =
         compile infos (pc + 1) state ((Let (x, const n), loc) :: instrs)
     | CONSTINT ->
         let n = gets32 code (pc + 1) in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %ld@." Var.print x n;
         compile infos (pc + 2) state ((Let (x, const32 n), loc) :: instrs)
     | (PUSHCONST0 | PUSHCONST1 | PUSHCONST2 | PUSHCONST3) as cc ->
-        let state = State.push state loc in
-        let x, state = State.fresh_var state loc in
+        let state = State.push state in
+        let x, state = State.fresh_var state in
         let n =
           match cc with
           | PUSHCONST0 -> 0
@@ -2080,15 +1997,15 @@ and compile infos pc state instrs =
         if debug_parser () then Format.printf "%a = %d@." Var.print x n;
         compile infos (pc + 1) state ((Let (x, const n), loc) :: instrs)
     | PUSHCONSTINT ->
-        let state = State.push state loc in
+        let state = State.push state in
         let n = gets32 code (pc + 1) in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %ld@." Var.print x n;
         compile infos (pc + 2) state ((Let (x, const32 n), loc) :: instrs)
     | NEGINT ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = -%a@." Var.print x Var.print y;
         compile
@@ -2097,9 +2014,9 @@ and compile infos pc state instrs =
           state
           ((Let (x, Prim (Extern "%int_neg", [ Pv y ])), loc) :: instrs)
     | ADDINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a + %a@." Var.print x Var.print y Var.print z;
@@ -2109,9 +2026,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_add", [ Pv y; Pv z ])), loc) :: instrs)
     | SUBINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a - %a@." Var.print x Var.print y Var.print z;
@@ -2121,9 +2038,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_sub", [ Pv y; Pv z ])), loc) :: instrs)
     | MULINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a * %a@." Var.print x Var.print y Var.print z;
@@ -2133,9 +2050,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_mul", [ Pv y; Pv z ])), loc) :: instrs)
     | DIVINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a / %a@." Var.print x Var.print y Var.print z;
@@ -2145,9 +2062,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_div", [ Pv y; Pv z ])), loc) :: instrs)
     | MODINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a %% %a@." Var.print x Var.print y Var.print z;
@@ -2157,9 +2074,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_mod", [ Pv y; Pv z ])), loc) :: instrs)
     | ANDINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a & %a@." Var.print x Var.print y Var.print z;
@@ -2169,9 +2086,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_and", [ Pv y; Pv z ])), loc) :: instrs)
     | ORINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a | %a@." Var.print x Var.print y Var.print z;
@@ -2181,9 +2098,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_or", [ Pv y; Pv z ])), loc) :: instrs)
     | XORINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a ^ %a@." Var.print x Var.print y Var.print z;
@@ -2193,9 +2110,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_xor", [ Pv y; Pv z ])), loc) :: instrs)
     | LSLINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a << %a@." Var.print x Var.print y Var.print z;
@@ -2205,9 +2122,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_lsl", [ Pv y; Pv z ])), loc) :: instrs)
     | LSRINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a >>> %a@." Var.print x Var.print y Var.print z;
@@ -2217,9 +2134,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_lsr", [ Pv y; Pv z ])), loc) :: instrs)
     | ASRINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = %a >> %a@." Var.print x Var.print y Var.print z;
@@ -2229,9 +2146,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Extern "%int_asr", [ Pv y; Pv z ])), loc) :: instrs)
     | EQ ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = mk_bool(%a == %a)@." Var.print x Var.print y Var.print z;
@@ -2241,9 +2158,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Eq, [ Pv y; Pv z ])), loc) :: instrs)
     | NEQ ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = mk_bool(%a != %a)@." Var.print x Var.print y Var.print z;
@@ -2253,21 +2170,29 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Neq, [ Pv y; Pv z ])), loc) :: instrs)
     | LTINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
-        then Format.printf "%a = mk_bool(%a < %a)@." Var.print x Var.print y Var.print z;
+        then
+          Format.printf
+            "%a = mk_bool(%a < %a)@."
+            Var.print
+            x
+            Var.print
+            y
+            Var.print
+            (State.peek 0 state);
         compile
           infos
           (pc + 1)
           (State.pop 1 state)
           ((Let (x, Prim (Lt, [ Pv y; Pv z ])), loc) :: instrs)
     | LEINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = mk_bool(%a <= %a)@." Var.print x Var.print y Var.print z;
@@ -2277,9 +2202,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Le, [ Pv y; Pv z ])), loc) :: instrs)
     | GTINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = mk_bool(%a > %a)@." Var.print x Var.print y Var.print z;
@@ -2289,9 +2214,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Lt, [ Pv z; Pv y ])), loc) :: instrs)
     | GEINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = mk_bool(%a >= %a)@." Var.print x Var.print y Var.print z;
@@ -2302,10 +2227,9 @@ and compile infos pc state instrs =
           ((Let (x, Prim (Le, [ Pv z; Pv y ])), loc) :: instrs)
     | OFFSETINT ->
         let n = gets32 code (pc + 1) in
-        let y, loc_y = State.accu state in
-        let loc = loc_y ||| loc in
-        let z, state = State.fresh_var state loc in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z, state = State.fresh_var state in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "%a = %a + %ld@." Var.print x Var.print y n;
         compile
           infos
@@ -2316,23 +2240,23 @@ and compile infos pc state instrs =
           :: instrs)
     | OFFSETREF ->
         let n = gets code (pc + 1) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
 
         if debug_parser () then Format.printf "%a += %d@." Var.print x n;
         let instrs = (Offset_ref (x, n), loc) :: instrs in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
         if debug_parser () then Format.printf "x = 0@.";
         compile infos (pc + 2) state ((Let (x, const 0), loc) :: instrs)
     | ISINT ->
-        let y, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = !%a@." Var.print x Var.print y;
         compile infos (pc + 1) state ((Let (x, Prim (IsInt, [ Pv y ])), loc) :: instrs)
     | BEQ ->
         let n = gets32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Eq, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2342,7 +2266,7 @@ and compile infos pc state instrs =
     | BNEQ ->
         let n = gets32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Eq, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2352,7 +2276,7 @@ and compile infos pc state instrs =
     | BLTINT ->
         let n = gets32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Lt, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2362,7 +2286,7 @@ and compile infos pc state instrs =
     | BLEINT ->
         let n = gets32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Le, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2372,7 +2296,7 @@ and compile infos pc state instrs =
     | BGTINT ->
         let n = gets32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Le, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2382,7 +2306,7 @@ and compile infos pc state instrs =
     | BGEINT ->
         let n = gets32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Lt, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2392,7 +2316,7 @@ and compile infos pc state instrs =
     | BULTINT ->
         let n = getu32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
 
         ( (Let (y, Prim (Ult, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
@@ -2402,16 +2326,16 @@ and compile infos pc state instrs =
     | BUGEINT ->
         let n = getu32 code (pc + 1) in
         let offset = gets code (pc + 2) in
-        let x, _ = State.accu state in
+        let x = State.accu state in
         let y = Var.fresh () in
         ( (Let (y, Prim (Ult, [ Pc (Int (Targetint.of_int32_exn n)); Pv x ])), loc)
           :: instrs
         , (Cond (y, (pc + 3, []), (pc + offset + 2, [])), loc)
         , state )
     | ULTINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -2429,9 +2353,9 @@ and compile infos pc state instrs =
           (State.pop 1 state)
           ((Let (x, Prim (Ult, [ Pv y; Pv z ])), loc) :: instrs)
     | UGEINT ->
-        let y, _ = State.accu state in
-        let z, _ = State.peek 0 state in
-        let x, state = State.fresh_var state loc in
+        let y = State.accu state in
+        let z = State.peek 0 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = mk_bool(%a >= %a)@." Var.print x Var.print y Var.print z;
@@ -2444,10 +2368,10 @@ and compile infos pc state instrs =
         let n = gets32 code (pc + 1) in
         let cache = !method_cache_id in
         incr method_cache_id;
-        let obj, _ = State.accu state in
-        let state = State.push state loc in
-        let tag, state = State.fresh_var state loc in
-        let m, state = State.fresh_var state loc in
+        let obj = State.accu state in
+        let state = State.push state in
+        let tag, state = State.fresh_var state in
+        let m, state = State.fresh_var state in
 
         if debug_parser () then Format.printf "%a = %ld@." Var.print tag n;
         if debug_parser ()
@@ -2473,9 +2397,9 @@ and compile infos pc state instrs =
           :: (Let (tag, const32 n), loc)
           :: instrs)
     | GETDYNMET ->
-        let tag, _ = State.accu state in
-        let obj, _ = State.peek 0 state in
-        let m, state = State.fresh_var state loc in
+        let tag = State.accu state in
+        let obj = State.peek 0 state in
+        let m, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -2499,10 +2423,10 @@ and compile infos pc state instrs =
            , loc )
           :: instrs)
     | GETMETHOD ->
-        let lab, _ = State.accu state in
-        let obj, _ = State.peek 0 state in
-        let meths, state = State.fresh_var state loc in
-        let m, state = State.fresh_var state loc in
+        let lab = State.accu state in
+        let obj = State.peek 0 state in
+        let meths, state = State.fresh_var state in
+        let m, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = lookup(%a, %a)@." Var.print m Var.print obj Var.print lab;
@@ -2515,10 +2439,10 @@ and compile infos pc state instrs =
           :: instrs)
     | STOP -> instrs, (Stop, loc), state
     | RESUME ->
-        let stack, _ = State.accu state in
-        let func, _ = State.peek 0 state in
-        let arg, _ = State.peek 1 state in
-        let x, state = State.fresh_var state loc in
+        let stack = State.accu state in
+        let func = State.peek 0 state in
+        let arg = State.peek 1 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -2545,11 +2469,10 @@ and compile infos pc state instrs =
           ((Let (x, Prim (Extern "%resume", [ Pv stack; Pv func; Pv arg ])), loc)
           :: instrs)
     | RESUMETERM ->
-        let stack, _ = State.accu state in
-        let func, func_loc = State.peek 0 state in
-        let arg, arg_loc = State.peek 1 state in
-        let loc = loc ||| func_loc ||| arg_loc in
-        let x, state = State.fresh_var state loc in
+        let stack = State.accu state in
+        let func = State.peek 0 state in
+        let arg = State.peek 1 state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then
@@ -2565,8 +2488,8 @@ and compile infos pc state instrs =
         , (Return x, loc)
         , state )
     | PERFORM ->
-        let eff, _ = State.accu state in
-        let x, state = State.fresh_var state loc in
+        let eff = State.accu state in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "%a = perform(%a)@." Var.print x Var.print eff;
@@ -2576,12 +2499,11 @@ and compile infos pc state instrs =
           state
           ((Let (x, Prim (Extern "%perform", [ Pv eff ])), loc) :: instrs)
     | REPERFORMTERM ->
-        let eff, _ = State.accu state in
-        let stack, _ = State.peek 0 state in
-        let _, loc' = State.peek 1 state in
+        let eff = State.accu state in
+        let stack = State.peek 0 state in
+        (* We don't need [State.peek 1 state] *)
         let state = State.pop 2 state in
-        let loc = loc ||| loc' in
-        let x, state = State.fresh_var state loc in
+        let x, state = State.fresh_var state in
 
         if debug_parser ()
         then Format.printf "return reperform(%a, %a)@." Var.print eff Var.print stack;

From 4459bec0a3fad5c4619aa5b14d266e3344034c40 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 11:42:35 +0200
Subject: [PATCH 16/35] Propage locations across blocks

---
 compiler/lib/generate.ml                   |   57 +-
 compiler/tests-compiler/gh747.ml           |   16 +-
 compiler/tests-full/stdlib.cma.expected.js | 6579 +++++++++++---------
 3 files changed, 3846 insertions(+), 2806 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 36dbb5397d..1124d216c7 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -716,7 +716,7 @@ let visit_all params args =
   in
   l
 
-let parallel_renaming back_edge params args continuation queue =
+let parallel_renaming loc back_edge params args continuation queue =
   if back_edge && Config.Flag.es6 ()
      (* This is likely slower than using explicit temp variable
         but let's experiment with es6 a bit *)
@@ -734,14 +734,14 @@ let parallel_renaming back_edge params args continuation queue =
     let never, code = continuation queue in
     match params, args with
     | [ p ], [ a ] ->
-        never, (J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V p), a)), J.N) :: code
+        never, (J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V p), a)), loc) :: code
     | params, args ->
         let lhs =
           J.EAssignTarget
             (J.ArrayTarget (List.map params ~f:(fun p -> J.TargetElementId (J.V p, None))))
         in
         let rhs = J.EArr (List.rev_map args ~f:(fun x -> J.Element x)) in
-        never, (J.Expression_statement (J.EBin (J.Eq, lhs, rhs)), J.N) :: code
+        never, (J.Expression_statement (J.EBin (J.Eq, lhs, rhs)), loc) :: code
   else
     let l = visit_all params args in
     (* if not back_edge
@@ -767,10 +767,10 @@ let parallel_renaming back_edge params args continuation queue =
       if back_edge
       then
         List.map renaming ~f:(fun (t, e) ->
-            J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V t), e)), J.N)
+            J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V t), e)), loc)
       else
         List.map renaming ~f:(fun (t, e) ->
-            J.variable_declaration [ J.V t, (e, J.N) ], J.N)
+            J.variable_declaration [ J.V t, (e, loc) ], loc)
     in
     let never, code = continuation queue in
     never, List.rev_append before (List.rev_append renaming code)
@@ -1548,25 +1548,25 @@ and translate_instrs_rev (ctx : Ctx.t) loc expr_queue instrs acc_rev muts_map =
       let acc_rev = List.rev_append st acc_rev in
       translate_instrs_rev ctx loc expr_queue rem acc_rev muts_map
 
-and translate_instrs (ctx : Ctx.t) expr_queue instrs =
+and translate_instrs (ctx : Ctx.t) loc expr_queue instrs =
   let loc, st_rev, expr_queue =
-    translate_instrs_rev (ctx : Ctx.t) J.N expr_queue instrs [] Var.Map.empty
+    translate_instrs_rev (ctx : Ctx.t) loc expr_queue instrs [] Var.Map.empty
   in
   loc, List.rev st_rev, expr_queue
 
 (* Compile loops. *)
-and compile_block st queue (pc : Addr.t) scope_stack ~fall_through =
+and compile_block st loc queue (pc : Addr.t) scope_stack ~fall_through =
   if (not (List.is_empty queue))
      && (Structure.is_loop_header st.structure pc
         || (* Do not inline expressions across block boundaries when --no-inline is used
               Single-stepping in the debugger should work better this way (fixes #290). *)
         not (Config.Flag.inline ()))
   then
-    let never, code = compile_block st [] pc scope_stack ~fall_through in
+    let never, code = compile_block st loc [] pc scope_stack ~fall_through in
     never, flush_all queue code
   else
     match Structure.is_loop_header st.structure pc with
-    | false -> compile_block_no_loop st queue pc scope_stack ~fall_through
+    | false -> compile_block_no_loop st loc queue pc scope_stack ~fall_through
     | true ->
         if debug () then Format.eprintf "@[<hv 2>for(;;) {@,";
         let never_body, body =
@@ -1581,12 +1581,11 @@ and compile_block st queue (pc : Addr.t) scope_stack ~fall_through =
             | Return -> scope_stack
           in
           let never_body, body =
-            compile_block_no_loop st queue pc scope_stack ~fall_through:(Block pc)
+            compile_block_no_loop st loc queue pc scope_stack ~fall_through:(Block pc)
           in
           if debug () then Format.eprintf "}@]@,";
           let for_loop =
-            ( J.For_statement (J.Left None, None, None, Js_simpl.block body)
-            , source_location st.ctx Before pc )
+            J.For_statement (J.Left None, None, None, Js_simpl.block body), loc
           in
           let label = if !lab_used then Some lab else None in
           let for_loop =
@@ -1599,7 +1598,7 @@ and compile_block st queue (pc : Addr.t) scope_stack ~fall_through =
         never_body, body
 
 (* Compile block. Loops have already been handled. *)
-and compile_block_no_loop st queue (pc : Addr.t) ~fall_through scope_stack =
+and compile_block_no_loop st loc queue (pc : Addr.t) ~fall_through scope_stack =
   if pc < 0 then assert false;
   if Addr.Set.mem pc !(st.visited_blocks)
   then (
@@ -1608,7 +1607,7 @@ and compile_block_no_loop st queue (pc : Addr.t) ~fall_through scope_stack =
   if debug () then Format.eprintf "Compiling block %d@;" pc;
   st.visited_blocks := Addr.Set.add pc !(st.visited_blocks);
   let block = Addr.Map.find pc st.ctx.blocks in
-  let loc, seq, queue = translate_instrs st.ctx queue block.body in
+  let loc, seq, queue = translate_instrs st.ctx loc queue block.body in
   let nbbranch =
     match fst block.branch with
     | Switch (_, a) ->
@@ -1636,7 +1635,7 @@ and compile_block_no_loop st queue (pc : Addr.t) ~fall_through scope_stack =
         let used = ref false in
         let scope_stack = (x, (l, used, Forward)) :: scope_stack in
         let _never_inner, inner = loop ~scope_stack ~fall_through:(Block x) xs in
-        let never, code = compile_block st [] x scope_stack ~fall_through in
+        let never, code = compile_block st loc [] x scope_stack ~fall_through in
         match !used with
         | true -> never, [ J.Labelled_statement (l, (J.Block inner, J.N)), J.N ] @ code
         | false -> never, inner @ code)
@@ -1659,7 +1658,7 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
                 ~pp_sep:(fun fmt () -> Format.pp_print_string fmt ", ")
                 (fun fmt pc -> Format.fprintf fmt "%d" pc))
             l;
-        let never, code = compile_branch st [] cont scope_stack ~fall_through in
+        let never, code = compile_branch st loc [] cont scope_stack ~fall_through in
         if debug () then Format.eprintf "}@]@;";
         never, code
     | DTree.If (cond, cont1, cont2) ->
@@ -1776,11 +1775,13 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
           if st.ctx.Ctx.should_export then Some (s_var Global_constant.exports) else None
         in
         true, flush_all queue [ J.Return_statement (e_opt, loc), loc ]
-    | Branch cont -> compile_branch st queue cont scope_stack ~fall_through
+    | Branch cont -> compile_branch st loc queue cont scope_stack ~fall_through
     | Pushtrap (c1, x, e1) ->
-        let never_body, body = compile_branch st [] c1 scope_stack ~fall_through in
+        let never_body, body = compile_branch st J.N [] c1 scope_stack ~fall_through in
         if debug () then Format.eprintf "@,}@]@,@[<hv 2>catch {@;";
-        let never_handler, handler = compile_branch st [] e1 scope_stack ~fall_through in
+        let never_handler, handler =
+          compile_branch st J.U [] e1 scope_stack ~fall_through
+        in
         let exn_var, handler =
           assert (not (List.mem x ~set:(snd e1)));
           let wrap_exn x =
@@ -1805,7 +1806,7 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
               , loc )
             ] )
     | Poptrap cont ->
-        let never, code = compile_branch st [] cont scope_stack ~fall_through in
+        let never, code = compile_branch st J.N [] cont scope_stack ~fall_through in
         never, flush_all queue code
     | Cond (x, c1, c2) ->
         let (_px, cx), queue = access_queue queue x in
@@ -1841,14 +1842,14 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
      | Switch _ | Cond _ | Pushtrap _ -> Format.eprintf "}@]@;");
   res
 
-and compile_argument_passing ctx queue (pc, args) back_edge continuation =
+and compile_argument_passing ctx loc queue (pc, args) back_edge continuation =
   if List.is_empty args
   then continuation queue
   else
     let block = Addr.Map.find pc ctx.Ctx.blocks in
-    parallel_renaming back_edge block.params args continuation queue
+    parallel_renaming loc back_edge block.params args continuation queue
 
-and compile_branch st queue ((pc, _) as cont) scope_stack ~fall_through : bool * _ =
+and compile_branch st loc queue ((pc, _) as cont) scope_stack ~fall_through : bool * _ =
   let scope = List.assoc_opt pc scope_stack in
   let back_edge =
     List.exists
@@ -1857,7 +1858,7 @@ and compile_branch st queue ((pc, _) as cont) scope_stack ~fall_through : bool *
         | _ -> false)
       scope_stack
   in
-  compile_argument_passing st.ctx queue cont back_edge (fun queue ->
+  compile_argument_passing st.ctx loc queue cont back_edge (fun queue ->
       if match fall_through with
          | Block pc' -> pc' = pc
          | Return -> false
@@ -1917,14 +1918,16 @@ and compile_branch st queue ((pc, _) as cont) scope_stack ~fall_through : bool *
             if debug () then Format.eprintf "(br %d)@;" pc;
             used := true;
             true, flush_all queue [ J.Break_statement (Some l), J.N ]
-        | None -> compile_block st queue pc scope_stack ~fall_through)
+        | None -> compile_block st loc queue pc scope_stack ~fall_through)
 
 and compile_closure ctx (pc, args) =
   let st = build_graph ctx pc in
   let current_blocks = Structure.get_nodes st.structure in
   if debug () then Format.eprintf "@[<hv 2>closure {@;";
   let scope_stack = [] in
-  let _never, res = compile_branch st [] (pc, args) scope_stack ~fall_through:Return in
+  let _never, res =
+    compile_branch st J.N [] (pc, args) scope_stack ~fall_through:Return
+  in
   if Addr.Set.cardinal !(st.visited_blocks) <> Addr.Set.cardinal current_blocks
   then (
     let missing = Addr.Set.diff current_blocks !(st.visited_blocks) in
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index c5b2efffcb..a3e02f70dc 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -337,10 +337,10 @@ end
     117:      /*<<test.ml:64:2>>*/ if(! backtrace)
     118:       /*<<test.ml:66:6>>*/ return caml_call2(Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
     119:     var
-    120:      a = backtrace[1],
+    120:      a =  /*<<test.ml:64:2>>*/ backtrace[1],
     121:      _f_ =  /*<<test.ml:69:6>>*/ a.length - 2 | 0,
-    122:      _e_ = 0;
-    123:     if(_f_ >= 0){
+    122:      _e_ =  /*<<test.ml:64:2>>*/ 0;
+    123:      /*<<test.ml:69:6>>*/ if(_f_ >= 0){
     124:      var i = _e_;
     125:      for(;;){
     126:       var
@@ -351,23 +351,23 @@ end
     131:        var str = match[1];
     132:         /*<<test.ml:72:24>>*/ caml_call3(Stdlib_Printf[1], outchan, _c_, str);
     133:       }
-    134:       var _g_ = i + 1 | 0;
+    134:       var _g_ =  /*<<test.ml:70:43>>*/ i + 1 | 0;
     135:       if(_f_ === i) break;
     136:       i = _g_;
     137:      }
     138:     }
-    139:     return 0;
+    139:      /*<<test.ml:69:6>>*/ return 0;
     140:     /*<<test.ml:73:10>>*/ }
     141:    function compare(left, right, e1, e2){
     142:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
     143:      var v1 = e1[1];
     144:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
-    145:      var v2 = e2[1];
+    145:      var v2 =  /*<<test.ml:77:35>>*/ e2[1];
     146:       /*<<test.ml:78:24>>*/ return caml_call2(left, v1, v2) /*<<test.ml:81:24>>*/ ;
     147:     }
-    148:     var v1$0 = e1[1];
+    148:     var v1$0 =  /*<<test.ml:77:35>>*/ e1[1];
     149:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
-    150:     var v2$0 = e2[1];
+    150:     var v2$0 =  /*<<test.ml:77:35>>*/ e2[1];
     151:      /*<<test.ml:79:26>>*/ return caml_call2(right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
     152:    }
     153:    var
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index ddfa13f391..d3eebe13fa 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -7,68 +7,72 @@
    function erase_rel(param){
      /*<<camlinternalFormatBasics.ml:528:8>>*/ if(typeof param === "number")
       /*<<camlinternalFormatBasics.ml:562:20>>*/ return 0;
-    switch(param[0]){
+     /*<<camlinternalFormatBasics.ml:528:8>>*/ switch(param[0]){
       case 0:
        var rest = param[1];
         /*<<camlinternalFormatBasics.ml:533:28>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:28>>*/ ;
       case 1:
-       var rest$0 = param[1];
+       var rest$0 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:535:30>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:30>>*/ ;
       case 2:
-       var rest$1 = param[1];
+       var rest$1 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:537:27>>*/ return [2,
                 /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:27>>*/ ;
       case 3:
-       var rest$2 = param[1];
+       var rest$2 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:539:29>>*/ return [3,
                 /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:29>>*/ ;
       case 4:
-       var rest$3 = param[1];
+       var rest$3 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:543:33>>*/ return [4,
                 /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:33>>*/ ;
       case 5:
-       var rest$4 = param[1];
+       var rest$4 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:541:29>>*/ return [5,
                 /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:29>>*/ ;
       case 6:
-       var rest$5 = param[1];
+       var rest$5 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:545:29>>*/ return [6,
                 /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:29>>*/ ;
       case 7:
-       var rest$6 = param[1];
+       var rest$6 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:547:28>>*/ return [7,
                 /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:28>>*/ ;
       case 8:
-       var rest$7 = param[2], ty = param[1];
+       var
+        rest$7 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[2],
+        ty = param[1];
         /*<<camlinternalFormatBasics.ml:549:37>>*/ return [8,
                ty,
                 /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:37>>*/ ;
       case 9:
-       var rest$8 = param[3], ty1 = param[1];
+       var
+        rest$8 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[3],
+        ty1 = param[1];
         /*<<camlinternalFormatBasics.ml:551:45>>*/ return [9,
                ty1,
                ty1,
                 /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:45>>*/ ;
       case 10:
-       var rest$9 = param[1];
+       var rest$9 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:553:29>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:29>>*/ ;
       case 11:
-       var rest$10 = param[1];
+       var rest$10 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:555:29>>*/ return [11,
                 /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:29>>*/ ;
       case 12:
-       var rest$11 = param[1];
+       var rest$11 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:557:27>>*/ return [12,
                 /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:27>>*/ ;
       case 13:
-       var rest$12 = param[1];
+       var rest$12 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:559:30>>*/ return [13,
                 /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:30>>*/ ;
       default:
-       var rest$13 = param[1];
+       var rest$13 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
         /*<<camlinternalFormatBasics.ml:561:38>>*/ return [14,
                 /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:38>>*/ ;
     }
@@ -76,82 +80,87 @@
    function concat_fmtty(fmtty1, fmtty2){
      /*<<camlinternalFormatBasics.ml:590:21>>*/ if(typeof fmtty1 === "number")
       /*<<camlinternalFormatBasics.ml:621:20>>*/ return fmtty2;
-    switch(fmtty1[0]){
+     /*<<camlinternalFormatBasics.ml:590:21>>*/ switch(fmtty1[0]){
       case 0:
        var rest = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:592:38>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:592:12>>*/ concat_fmtty
                 (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:38>>*/ ;
       case 1:
-       var rest$0 = fmtty1[1];
+       var rest$0 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:594:40>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:594:14>>*/ concat_fmtty
                 (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:40>>*/ ;
       case 2:
-       var rest$1 = fmtty1[1];
+       var rest$1 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:596:37>>*/ return [2,
                 /*<<camlinternalFormatBasics.ml:596:11>>*/ concat_fmtty
                 (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:37>>*/ ;
       case 3:
-       var rest$2 = fmtty1[1];
+       var rest$2 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:598:39>>*/ return [3,
                 /*<<camlinternalFormatBasics.ml:598:13>>*/ concat_fmtty
                 (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:39>>*/ ;
       case 4:
-       var rest$3 = fmtty1[1];
+       var rest$3 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:600:43>>*/ return [4,
                 /*<<camlinternalFormatBasics.ml:600:17>>*/ concat_fmtty
                 (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:43>>*/ ;
       case 5:
-       var rest$4 = fmtty1[1];
+       var rest$4 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:602:39>>*/ return [5,
                 /*<<camlinternalFormatBasics.ml:602:13>>*/ concat_fmtty
                 (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:39>>*/ ;
       case 6:
-       var rest$5 = fmtty1[1];
+       var rest$5 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:604:39>>*/ return [6,
                 /*<<camlinternalFormatBasics.ml:604:13>>*/ concat_fmtty
                 (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:39>>*/ ;
       case 7:
-       var rest$6 = fmtty1[1];
+       var rest$6 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:606:38>>*/ return [7,
                 /*<<camlinternalFormatBasics.ml:606:12>>*/ concat_fmtty
                 (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:38>>*/ ;
       case 8:
-       var rest$7 = fmtty1[2], ty = fmtty1[1];
+       var
+        rest$7 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[2],
+        ty = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:618:47>>*/ return [8,
                ty,
                 /*<<camlinternalFormatBasics.ml:618:23>>*/ concat_fmtty
                 (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:47>>*/ ;
       case 9:
-       var rest$8 = fmtty1[3], ty2 = fmtty1[2], ty1 = fmtty1[1];
+       var
+        rest$8 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[3],
+        ty2 = fmtty1[2],
+        ty1 = fmtty1[1];
         /*<<camlinternalFormatBasics.ml:620:55>>*/ return [9,
                ty1,
                ty2,
                 /*<<camlinternalFormatBasics.ml:620:31>>*/ concat_fmtty
                 (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:55>>*/ ;
       case 10:
-       var rest$9 = fmtty1[1];
+       var rest$9 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:608:39>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:608:13>>*/ concat_fmtty
                 (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:39>>*/ ;
       case 11:
-       var rest$10 = fmtty1[1];
+       var rest$10 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:610:39>>*/ return [11,
                 /*<<camlinternalFormatBasics.ml:610:13>>*/ concat_fmtty
                 (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:39>>*/ ;
       case 12:
-       var rest$11 = fmtty1[1];
+       var rest$11 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:612:37>>*/ return [12,
                 /*<<camlinternalFormatBasics.ml:612:11>>*/ concat_fmtty
                 (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:37>>*/ ;
       case 13:
-       var rest$12 = fmtty1[1];
+       var rest$12 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:614:40>>*/ return [13,
                 /*<<camlinternalFormatBasics.ml:614:14>>*/ concat_fmtty
                 (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:40>>*/ ;
       default:
-       var rest$13 = fmtty1[1];
+       var rest$13 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
         /*<<camlinternalFormatBasics.ml:616:48>>*/ return [14,
                 /*<<camlinternalFormatBasics.ml:616:22>>*/ concat_fmtty
                 (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:48>>*/ ;
@@ -160,31 +169,39 @@
    function concat_fmt(fmt1, fmt2){
      /*<<camlinternalFormatBasics.ml:631:17>>*/ if(typeof fmt1 === "number")
       /*<<camlinternalFormatBasics.ml:690:4>>*/ return fmt2;
-    switch(fmt1[0]){
+     /*<<camlinternalFormatBasics.ml:631:17>>*/ switch(fmt1[0]){
       case 0:
        var rest = fmt1[1];
         /*<<camlinternalFormatBasics.ml:649:31>>*/ return [0,
                 /*<<camlinternalFormatBasics.ml:649:9>>*/ concat_fmt
                 (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:31>>*/ ;
       case 1:
-       var rest$0 = fmt1[1];
+       var rest$0 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
         /*<<camlinternalFormatBasics.ml:651:36>>*/ return [1,
                 /*<<camlinternalFormatBasics.ml:651:14>>*/ concat_fmt
                 (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:36>>*/ ;
       case 2:
-       var rest$1 = fmt1[2], pad = fmt1[1];
+       var
+        rest$1 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        pad = fmt1[1];
         /*<<camlinternalFormatBasics.ml:633:37>>*/ return [2,
                pad,
                 /*<<camlinternalFormatBasics.ml:633:17>>*/ concat_fmt
                 (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:37>>*/ ;
       case 3:
-       var rest$2 = fmt1[2], pad$0 = fmt1[1];
+       var
+        rest$2 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        pad$0 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:635:42>>*/ return [3,
                pad$0,
                 /*<<camlinternalFormatBasics.ml:635:22>>*/ concat_fmt
                 (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:42>>*/ ;
       case 4:
-       var rest$3 = fmt1[4], prec = fmt1[3], pad$1 = fmt1[2], iconv = fmt1[1];
+       var
+        rest$3 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
+        prec = fmt1[3],
+        pad$1 = fmt1[2],
+        iconv = fmt1[1];
         /*<<camlinternalFormatBasics.ml:638:47>>*/ return [4,
                iconv,
                pad$1,
@@ -193,7 +210,7 @@
                 (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:47>>*/ ;
       case 5:
        var
-        rest$4 = fmt1[4],
+        rest$4 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$0 = fmt1[3],
         pad$2 = fmt1[2],
         iconv$0 = fmt1[1];
@@ -205,7 +222,7 @@
                 (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:49>>*/ ;
       case 6:
        var
-        rest$5 = fmt1[4],
+        rest$5 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$1 = fmt1[3],
         pad$3 = fmt1[2],
         iconv$1 = fmt1[1];
@@ -217,7 +234,7 @@
                 (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:53>>*/ ;
       case 7:
        var
-        rest$6 = fmt1[4],
+        rest$6 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$2 = fmt1[3],
         pad$4 = fmt1[2],
         iconv$2 = fmt1[1];
@@ -229,7 +246,7 @@
                 (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:49>>*/ ;
       case 8:
        var
-        rest$7 = fmt1[4],
+        rest$7 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$3 = fmt1[3],
         pad$5 = fmt1[2],
         fconv = fmt1[1];
@@ -240,95 +257,121 @@
                 /*<<camlinternalFormatBasics.ml:646:29>>*/ concat_fmt
                 (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:49>>*/ ;
       case 9:
-       var rest$8 = fmt1[2], pad$6 = fmt1[1];
+       var
+        rest$8 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        pad$6 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:653:35>>*/ return [9,
                pad$6,
                 /*<<camlinternalFormatBasics.ml:653:15>>*/ concat_fmt
                 (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:35>>*/ ;
       case 10:
-       var rest$9 = fmt1[1];
+       var rest$9 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
         /*<<camlinternalFormatBasics.ml:663:32>>*/ return [10,
                 /*<<camlinternalFormatBasics.ml:663:10>>*/ concat_fmt
                 (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:32>>*/ ;
       case 11:
-       var rest$10 = fmt1[2], str = fmt1[1];
+       var
+        rest$10 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        str = fmt1[1];
         /*<<camlinternalFormatBasics.ml:666:45>>*/ return [11,
                str,
                 /*<<camlinternalFormatBasics.ml:666:25>>*/ concat_fmt
                 (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:45>>*/ ;
       case 12:
-       var rest$11 = fmt1[2], chr = fmt1[1];
+       var
+        rest$11 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        chr = fmt1[1];
         /*<<camlinternalFormatBasics.ml:668:45>>*/ return [12,
                chr,
                 /*<<camlinternalFormatBasics.ml:668:25>>*/ concat_fmt
                 (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:45>>*/ ;
       case 13:
-       var rest$12 = fmt1[3], fmtty = fmt1[2], pad$7 = fmt1[1];
+       var
+        rest$12 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
+        fmtty = fmt1[2],
+        pad$7 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:671:50>>*/ return [13,
                pad$7,
                fmtty,
                 /*<<camlinternalFormatBasics.ml:671:30>>*/ concat_fmt
                 (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:50>>*/ ;
       case 14:
-       var rest$13 = fmt1[3], fmtty$0 = fmt1[2], pad$8 = fmt1[1];
+       var
+        rest$13 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
+        fmtty$0 = fmt1[2],
+        pad$8 = fmt1[1];
         /*<<camlinternalFormatBasics.ml:673:50>>*/ return [14,
                pad$8,
                fmtty$0,
                 /*<<camlinternalFormatBasics.ml:673:30>>*/ concat_fmt
                 (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:50>>*/ ;
       case 15:
-       var rest$14 = fmt1[1];
+       var rest$14 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
         /*<<camlinternalFormatBasics.ml:655:32>>*/ return [15,
                 /*<<camlinternalFormatBasics.ml:655:10>>*/ concat_fmt
                 (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:32>>*/ ;
       case 16:
-       var rest$15 = fmt1[1];
+       var rest$15 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
         /*<<camlinternalFormatBasics.ml:657:32>>*/ return [16,
                 /*<<camlinternalFormatBasics.ml:657:10>>*/ concat_fmt
                 (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:32>>*/ ;
       case 17:
-       var rest$16 = fmt1[2], fmting_lit = fmt1[1];
+       var
+        rest$16 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        fmting_lit = fmt1[1];
         /*<<camlinternalFormatBasics.ml:685:52>>*/ return [17,
                fmting_lit,
                 /*<<camlinternalFormatBasics.ml:685:32>>*/ concat_fmt
                 (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:52>>*/ ;
       case 18:
-       var rest$17 = fmt1[2], fmting_gen = fmt1[1];
+       var
+        rest$17 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        fmting_gen = fmt1[1];
         /*<<camlinternalFormatBasics.ml:687:52>>*/ return [18,
                fmting_gen,
                 /*<<camlinternalFormatBasics.ml:687:32>>*/ concat_fmt
                 (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:52>>*/ ;
       case 19:
-       var rest$18 = fmt1[1];
+       var rest$18 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
         /*<<camlinternalFormatBasics.ml:661:33>>*/ return [19,
                 /*<<camlinternalFormatBasics.ml:661:11>>*/ concat_fmt
                 (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:33>>*/ ;
       case 20:
-       var rest$19 = fmt1[3], char_set = fmt1[2], width_opt = fmt1[1];
+       var
+        rest$19 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
+        char_set = fmt1[2],
+        width_opt = fmt1[1];
         /*<<camlinternalFormatBasics.ml:676:60>>*/ return [20,
                width_opt,
                char_set,
                 /*<<camlinternalFormatBasics.ml:676:40>>*/ concat_fmt
                 (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:60>>*/ ;
       case 21:
-       var rest$20 = fmt1[2], counter = fmt1[1];
+       var
+        rest$20 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        counter = fmt1[1];
         /*<<camlinternalFormatBasics.ml:678:51>>*/ return [21,
                counter,
                 /*<<camlinternalFormatBasics.ml:678:31>>*/ concat_fmt
                 (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:51>>*/ ;
       case 22:
-       var rest$21 = fmt1[1];
+       var rest$21 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
         /*<<camlinternalFormatBasics.ml:680:41>>*/ return [22,
                 /*<<camlinternalFormatBasics.ml:680:19>>*/ concat_fmt
                 (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:41>>*/ ;
       case 23:
-       var rest$22 = fmt1[2], ign = fmt1[1];
+       var
+        rest$22 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
+        ign = fmt1[1];
         /*<<camlinternalFormatBasics.ml:682:44>>*/ return [23,
                ign,
                 /*<<camlinternalFormatBasics.ml:682:24>>*/ concat_fmt
                 (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:44>>*/ ;
       default:
-       var rest$23 = fmt1[3], f = fmt1[2], arity = fmt1[1];
+       var
+        rest$23 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
+        f = fmt1[2],
+        arity = fmt1[1];
         /*<<camlinternalFormatBasics.ml:659:42>>*/ return [24,
                arity,
                f,
@@ -494,14 +537,17 @@
     }
     catch(_x_){
      var _v_ = caml_wrap_exception(_x_);
-     if(_v_[1] === Failure)  /*<<stdlib.ml:273:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_v_, 0);
+      /*<<?>>*/ if(_v_[1] === Failure)  /*<<stdlib.ml:273:20>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_v_, 0);
     }
     /*<<stdlib.ml:273:24>>*/ }
    function valid_float_lexem(s1){
-    var l =  /*<<stdlib.ml:278:2>>*/ caml_ml_string_length(s1), i = 0;
-     /*<<stdlib.ml:280:4>>*/ for(;;){
-     if(l <= i) return s1 + ".";
+    var
+     l =  /*<<stdlib.ml:278:2>>*/ caml_ml_string_length(s1),
+     i =  /*<<stdlib.ml:285:2>>*/ 0;
+    for(;;){
+      /*<<stdlib.ml:280:4>>*/ if(l <= i)
+       /*<<stdlib.ml:280:19>>*/ return s1 + ".";
      var match =  /*<<stdlib.ml:281:10>>*/ runtime.caml_string_get(s1, i);
      a:
      {
@@ -529,25 +575,25 @@
     }
     catch(_u_){
      var _s_ = caml_wrap_exception(_u_);
-     if(_s_[1] === Failure)  /*<<stdlib.ml:294:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_s_, 0);
+      /*<<?>>*/ if(_s_[1] === Failure)  /*<<stdlib.ml:294:20>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_s_, 0);
     }
     /*<<stdlib.ml:294:24>>*/ }
    function symbol(l1, l2){
      /*<<stdlib.ml:299:2>>*/ if(! l1)  /*<<stdlib.ml:300:10>>*/ return l2;
-    var _q_ = l1[2], h1 = l1[1];
+    var _q_ =  /*<<stdlib.ml:299:2>>*/ l1[2], h1 = l1[1];
     if(! _q_)  /*<<stdlib.ml:301:16>>*/ return [0, h1, l2];
-    var match = _q_[2], h2 = _q_[1];
+    var match =  /*<<stdlib.ml:299:2>>*/ _q_[2], h2 = _q_[1];
     if(! match)  /*<<stdlib.ml:302:22>>*/ return [0, h1, [0, h2, l2]];
     var
-     tl = match[2],
+     tl =  /*<<stdlib.ml:299:2>>*/ match[2],
      h3 = match[1],
      block =  /*<<stdlib.ml:303:28>>*/ [0, h3, 24029],
-     dst = block,
+     dst =  /*<<stdlib.ml:303:46>>*/ block,
      offset = 1,
      l1$0 = tl;
-     /*<<stdlib.ml:299:2>>*/ for(;;){
-     if(l1$0){
+    for(;;){
+      /*<<stdlib.ml:299:2>>*/ if(l1$0){
       var _r_ = l1$0[2], h1$0 = l1$0[1];
       if(_r_){
        var match$0 = _r_[2], h2$0 = _r_[1];
@@ -600,16 +646,20 @@
    }
    function flush_all(param){
     var
-     param$0 =  /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list(0);
-     /*<<stdlib.ml:347:17>>*/ for(;;){
-     if(! param$0)  /*<<stdlib.ml:348:12>>*/ return 0;
-     var l = param$0[2], a = param$0[1];
-     try{ /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);}
+     param$0 =
+        /*<<stdlib.ml:356:32>>*/  /*<<stdlib.ml:356:10>>*/ runtime.caml_ml_out_channels_list
+        (0);
+     /*<<stdlib.ml:356:32>>*/ for(;;){
+      /*<<stdlib.ml:347:17>>*/ if(! param$0)
+       /*<<stdlib.ml:348:12>>*/ return 0;
+     var l =  /*<<stdlib.ml:347:17>>*/ param$0[2], a = param$0[1];
+      /*<<stdlib.ml:350:8>>*/ try{ /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);}
      catch(_p_){
       var _o_ = caml_wrap_exception(_p_);
-      if(_o_[1] !== Sys_error) throw caml_maybe_attach_backtrace(_o_, 0);
+       /*<<?>>*/ if(_o_[1] !== Sys_error)
+       throw caml_maybe_attach_backtrace(_o_, 0);
      }
-     param$0 = l;
+      /*<<stdlib.ml:355:8>>*/ param$0 = l;
     }
     /*<<stdlib.ml:356:32>>*/ }
    function output_bytes(oc, s){
@@ -645,7 +695,7 @@
    function close_out_noerr(oc){
      /*<<stdlib.ml:394:2>>*/ try{ /*<<stdlib.ml:394:7>>*/ caml_ml_flush(oc);}
     catch(_n_){}
-    try{
+     /*<<stdlib.ml:395:2>>*/ try{
      var _l_ =  /*<<stdlib.ml:395:7>>*/ caml_ml_close_channel(oc);
      return _l_;
     }
@@ -674,8 +724,9 @@
    }
    function unsafe_really_input(ic, s, ofs, len){
     var ofs$0 = ofs, len$0 = len;
-     /*<<stdlib.ml:426:2>>*/ for(;;){
-     if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
+    for(;;){
+      /*<<stdlib.ml:426:2>>*/ if(0 >= len$0)
+       /*<<stdlib.ml:426:19>>*/ return 0;
      var r =  /*<<stdlib.ml:427:12>>*/ caml_ml_input(ic, s, ofs$0, len$0);
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
        /*<<stdlib.ml:429:9>>*/ throw caml_maybe_attach_backtrace
@@ -701,10 +752,11 @@
    function input_line(chan){
     function build_result(buf, pos, param){
      var pos$0 = pos, param$0 = param;
-      /*<<stdlib.ml:446:23>>*/ for(;;){
-      if(! param$0)  /*<<stdlib.ml:447:10>>*/ return buf;
+     for(;;){
+       /*<<stdlib.ml:446:23>>*/ if(! param$0)
+        /*<<stdlib.ml:447:10>>*/ return buf;
       var
-       tl = param$0[2],
+       tl =  /*<<stdlib.ml:446:23>>*/ param$0[2],
        hd = param$0[1],
        len =  /*<<stdlib.ml:449:6>>*/ caml_ml_bytes_length(hd);
        /*<<stdlib.ml:450:6>>*/ runtime.caml_blit_bytes
@@ -714,8 +766,8 @@
       param$0 = tl;
      }
      /*<<stdlib.ml:451:37>>*/ }
-    var accu = 0, len = 0;
-     /*<<stdlib.ml:453:4>>*/ for(;;){
+    var accu =  /*<<stdlib.ml:471:28>>*/ 0, len = 0;
+    for(;;){
      var n =  /*<<stdlib.ml:453:12>>*/ runtime.caml_ml_input_scan_line(chan);
       /*<<stdlib.ml:454:4>>*/ if(0 === n){
        /*<<stdlib.ml:454:18>>*/ if(! accu)
@@ -749,7 +801,7 @@
             len$0,
             [0, res, accu]);
       else
-       var _k_ = res;
+       var _k_ =  /*<<stdlib.ml:463:14>>*/ res;
      }
       /*<<stdlib.ml:471:39>>*/ return caml_string_of_bytes(_k_);
     }
@@ -847,7 +899,7 @@
      fmt2 = param[1],
      str1 = _h_[2],
      fmt1 = _h_[1],
-     s2 = "%," + str2;
+     s2 =  /*<<stdlib.ml:546:17>>*/ "%," + str2;
      /*<<stdlib.ml:545:55>>*/ return [0,
              /*<<stdlib.ml:545:10>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt1, fmt2),
@@ -865,7 +917,7 @@
          /*<<stdlib.ml:565:2>>*/ function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
            /*<<stdlib.ml:566:59>>*/ caml_call1(f, 0);
-         return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
+          /*<<stdlib.ml:566:4>>*/ return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
         },
       success =
          /*<<stdlib.ml:569:2>>*/ caml_atomic_cas
@@ -1039,24 +1091,24 @@
    function find_left(param){
      /*<<either.ml:29:16>>*/ if(0 !== param[0])
       /*<<either.ml:31:13>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<either.ml:29:16>>*/ param[1];
      /*<<either.ml:30:12>>*/ return [0, v];
     /*<<either.ml:31:17>>*/ }
    function find_right(param){
      /*<<either.ml:33:17>>*/ if(0 === param[0])
       /*<<either.ml:34:12>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<either.ml:33:17>>*/ param[1];
      /*<<either.ml:35:13>>*/ return [0, v];
     /*<<either.ml:35:19>>*/ }
    function map_left(f, e){
      /*<<either.ml:37:13>>*/ if(0 !== e[0])  /*<<either.ml:39:18>>*/ return e;
-    var v = e[1];
+    var v =  /*<<either.ml:37:13>>*/ e[1];
      /*<<either.ml:38:22>>*/ return [0,
              /*<<either.ml:38:17>>*/ caml_call1(f, v)] /*<<either.ml:38:22>>*/ ;
     /*<<either.ml:39:19>>*/ }
    function map_right(f, e){
      /*<<either.ml:41:14>>*/ if(0 === e[0])  /*<<either.ml:42:17>>*/ return e;
-    var v = e[1];
+    var v =  /*<<either.ml:41:14>>*/ e[1];
      /*<<either.ml:43:24>>*/ return [1,
              /*<<either.ml:43:19>>*/ caml_call1(f, v)] /*<<either.ml:43:24>>*/ ;
    }
@@ -1066,7 +1118,7 @@
       /*<<either.ml:46:25>>*/ return [0,
               /*<<either.ml:46:17>>*/ caml_call1(left, v)] /*<<either.ml:46:25>>*/ ;
     }
-    var v$0 = param[1];
+    var v$0 =  /*<<either.ml:45:8>>*/ param[1];
      /*<<either.ml:47:28>>*/ return [1,
              /*<<either.ml:47:19>>*/ caml_call1(right, v$0)] /*<<either.ml:47:28>>*/ ;
    }
@@ -1075,7 +1127,7 @@
      var v = param[1];
       /*<<either.ml:50:12>>*/ return caml_call1(left, v) /*<<either.ml:51:20>>*/ ;
     }
-    var v$0 = param[1];
+    var v$0 =  /*<<either.ml:49:9>>*/ param[1];
      /*<<either.ml:51:13>>*/ return caml_call1(right, v$0) /*<<either.ml:51:20>>*/ ;
    }
    function equal(left, right, e1, e2){
@@ -1087,7 +1139,7 @@
      }
     }
     else{
-     var v1$0 = e1[1];
+     var v1$0 =  /*<<either.ml:57:31>>*/ e1[1];
      if(0 !== e2[0]){
       var v2$0 = e2[1];
        /*<<either.ml:59:24>>*/ return caml_call2(right, v1$0, v2$0) /*<<either.ml:60:44>>*/ ;
@@ -1099,12 +1151,12 @@
      /*<<either.ml:62:33>>*/ if(0 === e1[0]){
      var v1 = e1[1];
      if(0 !== e2[0])  /*<<either.ml:65:21>>*/ return -1;
-     var v2 = e2[1];
+     var v2 =  /*<<either.ml:62:33>>*/ e2[1];
       /*<<either.ml:63:22>>*/ return caml_call2(left, v1, v2) /*<<either.ml:66:22>>*/ ;
     }
-    var v1$0 = e1[1];
+    var v1$0 =  /*<<either.ml:62:33>>*/ e1[1];
     if(0 === e2[0])  /*<<either.ml:66:21>>*/ return 1;
-    var v2$0 = e2[1];
+    var v2$0 =  /*<<either.ml:62:33>>*/ e2[1];
      /*<<either.ml:64:24>>*/ return caml_call2(right, v1$0, v2$0) /*<<either.ml:66:22>>*/ ;
    }
    var
@@ -1165,8 +1217,8 @@
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
-     if(_c_ === Stdlib[8])  /*<<sys.ml.in:61:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_c_, 0);
+      /*<<?>>*/ if(_c_ === Stdlib[8])  /*<<sys.ml.in:61:20>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<sys.ml.in:61:24>>*/ }
    var interactive =  /*<<sys.ml.in:37:34>>*/ [0, 0];
@@ -1181,7 +1233,7 @@
    function catch_break(on){
      /*<<sys.ml.in:116:2>>*/ return on ? 0 : 0 /*<<sys.ml.in:119:36>>*/ ;
    }
-   function Make(_b_, _a_){ /*<<?>>*/ return [0, 1];}
+   function Make(_b_, _a_){ /*<<sys.ml.in:173:8>>*/ return [0, 1];}
    var
     Immediate64 =  /*<<sys.ml.in:37:34>>*/ [0, Make],
     Stdlib_Sys =
@@ -1279,17 +1331,20 @@
     {
       /*<<obj.ml:77:21>>*/ if
       ( /*<<obj.ml:77:9>>*/ is_block(x)
-       &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot = x[1]; break a;}
-     var slot = x;
+       &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot =  /*<<obj.ml:77:78>>*/ x[1]; break a;}
+     var slot =  /*<<obj.ml:78:11>>*/ x;
     }
     a:
     {
       /*<<obj.ml:81:24>>*/ if
       ( /*<<obj.ml:81:9>>*/ is_block(slot)
-       &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name = slot[1]; break a;}
+       &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){
+      var name =  /*<<obj.ml:81:69>>*/ slot[1];
+      break a;
+     }
      var
       name =
-         /*<<obj.ml:82:11>>*/ caml_call1
+         /*<<obj.ml:82:50>>*/  /*<<obj.ml:82:11>>*/ caml_call1
          (Stdlib[1], cst_Obj_extension_constructor$0);
     }
      /*<<obj.ml:84:19>>*/ return  /*<<obj.ml:84:9>>*/ caml_obj_tag(name)
@@ -1330,7 +1385,7 @@
     var
      _c_ =  /*<<obj.ml:112:4>>*/ 0 <= o ? 1 : 0,
      _d_ = _c_ ? o <  /*<<obj.ml:112:26>>*/ length(e) ? 1 : 0 : _c_,
-     _e_ = 1 - _d_;
+     _e_ =  /*<<obj.ml:112:4>>*/ 1 - _d_;
     return _e_ ?  /*<<obj.ml:113:6>>*/ caml_call1(Stdlib[1], msg) : _e_ /*<<obj.ml:113:21>>*/ ;
    }
    function get_key(e, o){
@@ -1378,7 +1433,7 @@
          ?  /*<<obj.ml:147:24>>*/ runtime.caml_ephe_blit_key
            (e1, o1, e2, o2, l)
          : _a_;
-     return _b_;
+      /*<<obj.ml:147:9>>*/ return _b_;
     }
      /*<<obj.ml:146:9>>*/ return caml_call1
             (Stdlib[1], cst_Obj_Ephemeron_blit_key) /*<<obj.ml:147:46>>*/ ;
@@ -1537,7 +1592,7 @@
     }
     var closure =  /*<<camlinternalLazy.ml:46:25>>*/ blk[1];
      /*<<camlinternalLazy.ml:47:2>>*/ blk[1] = 0;
-    try{
+     /*<<camlinternalLazy.ml:47:33>>*/ try{
      var result =  /*<<camlinternalLazy.ml:49:17>>*/ caml_call1(closure, 0);
       /*<<camlinternalLazy.ml:50:4>>*/ blk[1] = result;
       /*<<camlinternalLazy.ml:51:4>>*/ caml_lazy_update_to_forward(blk);
@@ -1714,7 +1769,7 @@
     var match =  /*<<seq.ml:31:8>>*/ caml_call1(seq1, 0);
      /*<<seq.ml:31:14>>*/ if(! match)
       /*<<seq.ml:32:11>>*/ return caml_call1(seq2, 0) /*<<seq.ml:33:48>>*/ ;
-    var next = match[2], x = match[1];
+    var next =  /*<<seq.ml:31:14>>*/ match[2], x = match[1];
      /*<<seq.ml:33:47>>*/ return [0,
             x,
             function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}] /*<<seq.ml:33:47>>*/ ;
@@ -1722,18 +1777,18 @@
    function map(f, seq, param){
     var match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
      /*<<seq.ml:35:34>>*/ if(! match)  /*<<seq.ml:36:11>>*/ return 0;
-    var next = match[2], x = match[1];
+    var next =  /*<<seq.ml:35:34>>*/ match[2], x = match[1];
      /*<<seq.ml:37:31>>*/ return [0,
              /*<<seq.ml:37:28>>*/ caml_call1(f, x),
             function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:31>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
     var seq$0 = seq;
-     /*<<seq.ml:39:30>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:39:41>>*/ if(! match)  /*<<seq.ml:40:11>>*/ return 0;
      var
-      next = match[2],
+      next =  /*<<seq.ml:39:41>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:42:12>>*/ caml_call1(f, x);
       /*<<seq.ml:42:15>>*/ if(match$0){
@@ -1742,33 +1797,33 @@
               y,
               function(_as_){ /*<<?>>*/ return filter_map(f, next, _as_);}] /*<<seq.ml:44:46>>*/ ;
      }
-     seq$0 = next;
+      /*<<seq.ml:43:18>>*/ seq$0 = next;
     }
     /*<<seq.ml:44:47>>*/ }
    function filter(f, seq, param){
     var seq$0 = seq;
-     /*<<seq.ml:46:26>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:46:37>>*/ if(! match)  /*<<seq.ml:47:11>>*/ return 0;
-     var next = match[2], x = match[1];
+     var next =  /*<<seq.ml:46:37>>*/ match[2], x = match[1];
       /*<<seq.ml:49:12>>*/ if( /*<<seq.ml:49:9>>*/ caml_call1(f, x))
        /*<<seq.ml:50:33>>*/ return [0,
               x,
               function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}] /*<<seq.ml:50:33>>*/ ;
-     seq$0 = next;
+      /*<<seq.ml:51:11>>*/ seq$0 = next;
     }
     /*<<seq.ml:51:27>>*/ }
    function concat(seq, param){
     var match =  /*<<seq.ml:53:30>>*/ caml_call1(seq, 0);
      /*<<seq.ml:53:36>>*/ if(! match)  /*<<seq.ml:54:11>>*/ return 0;
-    var next = match[2], x = match[1];
+    var next =  /*<<seq.ml:53:36>>*/ match[2], x = match[1];
      /*<<seq.ml:56:27>>*/ return append
             (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0) /*<<seq.ml:56:30>>*/ ;
    }
    function flat_map(f, seq, param){
     var match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
      /*<<seq.ml:58:40>>*/ if(! match)  /*<<seq.ml:59:11>>*/ return 0;
-    var next = match[2], x = match[1];
+    var next =  /*<<seq.ml:58:40>>*/ match[2], x = match[1];
      /*<<seq.ml:61:16>>*/ return append
             ( /*<<seq.ml:61:11>>*/ caml_call1(f, x),
              function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
@@ -1776,31 +1831,34 @@
    }
    function fold_left(f, acc, seq){
     var acc$0 = acc, seq$0 = seq;
-     /*<<seq.ml:66:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:66:14>>*/ if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
      var
-      next = match[2],
+      next =  /*<<seq.ml:66:14>>*/ match[2],
       x = match[1],
       acc$1 =  /*<<seq.ml:69:18>>*/ caml_call2(f, acc$0, x);
-     acc$0 = acc$1;
+      /*<<seq.ml:70:8>>*/ acc$0 = acc$1;
      seq$0 = next;
     }
     /*<<seq.ml:70:28>>*/ }
    function iter(f, seq){
     var seq$0 = seq;
-     /*<<seq.ml:73:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:73:14>>*/ if(! match)  /*<<seq.ml:74:13>>*/ return 0;
-     var next = match[2], x = match[1];
+     var next =  /*<<seq.ml:73:14>>*/ match[2], x = match[1];
       /*<<seq.ml:76:8>>*/ caml_call1(f, x);
-     seq$0 = next;
+      /*<<seq.ml:76:11>>*/ seq$0 = next;
     }
     /*<<seq.ml:77:19>>*/ }
    function unfold(f, u, param){
     var match =  /*<<seq.ml:80:8>>*/ caml_call1(f, u);
      /*<<seq.ml:80:11>>*/ if(! match)  /*<<seq.ml:81:12>>*/ return 0;
-    var match$0 = match[1], u$0 = match$0[2], x = match$0[1];
+    var
+     match$0 =  /*<<seq.ml:80:11>>*/ match[1],
+     u$0 = match$0[2],
+     x = match$0[1];
      /*<<seq.ml:82:40>>*/ return [0,
             x,
             function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:40>>*/ ;
@@ -1811,25 +1869,27 @@
    function uncons(xs){
     var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:92:12>>*/ if(! match)  /*<<seq.ml:96:6>>*/ return 0;
-    var xs$0 = match[2], x = match[1];
+    var xs$0 =  /*<<seq.ml:92:12>>*/ match[2], x = match[1];
      /*<<seq.ml:94:6>>*/ return [0, [0, x, xs$0]];
     /*<<seq.ml:96:10>>*/ }
    function length(xs$1){
-    var accu = 0, xs = xs$1;
-     /*<<seq.ml:101:2>>*/ for(;;){
+    var accu =  /*<<seq.ml:108:2>>*/ 0, xs = xs$1;
+    for(;;){
      var match =  /*<<seq.ml:101:8>>*/ caml_call1(xs, 0);
       /*<<seq.ml:101:12>>*/ if(! match)  /*<<seq.ml:103:6>>*/ return accu;
-     var xs$0 = match[2], accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
+     var
+      xs$0 =  /*<<seq.ml:101:12>>*/ match[2],
+      accu$0 =  /*<<seq.ml:105:6>>*/ accu + 1 | 0;
      accu = accu$0;
      xs = xs$0;
     }
     /*<<seq.ml:108:17>>*/ }
    function iteri(f, xs$1){
-    var i = 0, xs = xs$1;
-     /*<<seq.ml:111:2>>*/ for(;;){
+    var i =  /*<<seq.ml:119:2>>*/ 0, xs = xs$1;
+    for(;;){
      var match =  /*<<seq.ml:111:8>>*/ caml_call1(xs, 0);
       /*<<seq.ml:111:12>>*/ if(! match)  /*<<seq.ml:113:6>>*/ return 0;
-     var xs$0 = match[2], x = match[1];
+     var xs$0 =  /*<<seq.ml:111:12>>*/ match[2], x = match[1];
       /*<<seq.ml:115:6>>*/ caml_call2(f, i, x);
      var i$0 =  /*<<seq.ml:115:11>>*/ i + 1 | 0;
      i = i$0;
@@ -1837,12 +1897,12 @@
     }
     /*<<seq.ml:119:18>>*/ }
    function fold_lefti(f, accu$1, xs$1){
-    var accu = accu$1, i = 0, xs = xs$1;
-     /*<<seq.ml:122:2>>*/ for(;;){
+    var accu =  /*<<seq.ml:130:2>>*/ accu$1, i = 0, xs = xs$1;
+    for(;;){
      var match =  /*<<seq.ml:122:8>>*/ caml_call1(xs, 0);
       /*<<seq.ml:122:12>>*/ if(! match)  /*<<seq.ml:124:6>>*/ return accu;
      var
-      xs$0 = match[2],
+      xs$0 =  /*<<seq.ml:122:12>>*/ match[2],
       x = match[1],
       accu$0 =  /*<<seq.ml:126:17>>*/ caml_call3(f, accu, i, x),
       i$0 =  /*<<seq.ml:127:6>>*/ i + 1 | 0;
@@ -1853,11 +1913,11 @@
     /*<<seq.ml:130:28>>*/ }
    function for_all(p, xs){
     var xs$0 = xs;
-     /*<<seq.ml:133:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:133:12>>*/ if(! match)  /*<<seq.ml:135:6>>*/ return 1;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:133:12>>*/ match[2],
       x = match[1],
       _an_ =  /*<<seq.ml:137:6>>*/ caml_call1(p, x);
       /*<<seq.ml:137:9>>*/ if(! _an_) return _an_;
@@ -1866,11 +1926,11 @@
     /*<<seq.ml:137:25>>*/ }
    function exists(p, xs){
     var xs$0 = xs;
-     /*<<seq.ml:140:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:140:12>>*/ if(! match)  /*<<seq.ml:142:6>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:140:12>>*/ match[2],
       x = match[1],
       _am_ =  /*<<seq.ml:144:6>>*/ caml_call1(p, x);
       /*<<seq.ml:144:9>>*/ if(_am_) return _am_;
@@ -1879,21 +1939,21 @@
     /*<<seq.ml:144:24>>*/ }
    function find(p, xs){
     var xs$0 = xs;
-     /*<<seq.ml:147:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:147:12>>*/ if(! match)  /*<<seq.ml:149:6>>*/ return 0;
-     var xs$1 = match[2], x = match[1];
+     var xs$1 =  /*<<seq.ml:147:12>>*/ match[2], x = match[1];
       /*<<seq.ml:151:12>>*/ if( /*<<seq.ml:151:9>>*/ caml_call1(p, x))
        /*<<seq.ml:151:18>>*/ return [0, x];
-     xs$0 = xs$1;
+      /*<<seq.ml:151:30>>*/ xs$0 = xs$1;
     }
     /*<<seq.ml:151:39>>*/ }
    function find_index(p, xs){
-    var i = 0, xs$0 = xs;
-     /*<<seq.ml:154:21>>*/ for(;;){
+    var i =  /*<<seq.ml:159:2>>*/ 0, xs$0 = xs;
+    for(;;){
      var match =  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:154:31>>*/ if(! match)  /*<<seq.ml:156:8>>*/ return 0;
-     var xs$1 = match[2], x = match[1];
+     var xs$1 =  /*<<seq.ml:154:31>>*/ match[2], x = match[1];
       /*<<seq.ml:158:14>>*/ if( /*<<seq.ml:158:11>>*/ caml_call1(p, x))
        /*<<seq.ml:158:20>>*/ return [0, i];
      var i$0 =  /*<<seq.ml:158:32>>*/ i + 1 | 0;
@@ -1903,24 +1963,24 @@
     /*<<seq.ml:159:10>>*/ }
    function find_map(f, xs){
     var xs$0 = xs;
-     /*<<seq.ml:162:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:162:12>>*/ if(! match)  /*<<seq.ml:164:6>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:162:12>>*/ match[2],
       x = match[1],
       result =  /*<<seq.ml:166:12>>*/ caml_call1(f, x);
       /*<<seq.ml:166:15>>*/ if(result)  /*<<seq.ml:170:10>>*/ return result;
-     xs$0 = xs$1;
+      /*<<seq.ml:168:10>>*/ xs$0 = xs$1;
     }
     /*<<seq.ml:170:16>>*/ }
    function find_mapi(f, xs){
-    var i = 0, xs$0 = xs;
-     /*<<seq.ml:173:21>>*/ for(;;){
+    var i =  /*<<seq.ml:182:2>>*/ 0, xs$0 = xs;
+    for(;;){
      var match =  /*<<seq.ml:173:27>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:173:31>>*/ if(! match)  /*<<seq.ml:175:8>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:173:31>>*/ match[2],
       x = match[1],
       result =  /*<<seq.ml:177:14>>*/ caml_call2(f, i, x);
       /*<<seq.ml:177:19>>*/ if(result)  /*<<seq.ml:181:12>>*/ return result;
@@ -1931,52 +1991,52 @@
     /*<<seq.ml:182:10>>*/ }
    function iter2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
-     /*<<seq.ml:192:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:192:12>>*/ if(! match)  /*<<seq.ml:194:6>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:192:12>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:196:12>>*/ caml_call1(ys$0, 0);
       /*<<seq.ml:196:16>>*/ if(! match$0)  /*<<seq.ml:198:10>>*/ return 0;
-     var ys$1 = match$0[2], y = match$0[1];
+     var ys$1 =  /*<<seq.ml:196:16>>*/ match$0[2], y = match$0[1];
       /*<<seq.ml:200:10>>*/ caml_call2(f, x, y);
-     xs$0 = xs$1;
+      /*<<seq.ml:200:15>>*/ xs$0 = xs$1;
      ys$0 = ys$1;
     }
     /*<<seq.ml:201:23>>*/ }
    function fold_left2(f, accu, xs, ys){
     var accu$0 = accu, xs$0 = xs, ys$0 = ys;
-     /*<<seq.ml:204:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:204:12>>*/ if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:204:12>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:208:12>>*/ caml_call1(ys$0, 0);
       /*<<seq.ml:208:16>>*/ if(! match$0)
        /*<<seq.ml:210:10>>*/ return accu$0;
      var
-      ys$1 = match$0[2],
+      ys$1 =  /*<<seq.ml:208:16>>*/ match$0[2],
       y = match$0[1],
       accu$1 =  /*<<seq.ml:212:21>>*/ caml_call3(f, accu$0, x, y);
-     accu$0 = accu$1;
+      /*<<seq.ml:213:10>>*/ accu$0 = accu$1;
      xs$0 = xs$1;
      ys$0 = ys$1;
     }
     /*<<seq.ml:213:33>>*/ }
    function for_all2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
-     /*<<seq.ml:216:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:216:12>>*/ if(! match)  /*<<seq.ml:218:6>>*/ return 1;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:216:12>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:220:12>>*/ caml_call1(ys$0, 0);
       /*<<seq.ml:220:16>>*/ if(! match$0)  /*<<seq.ml:222:10>>*/ return 1;
      var
-      ys$1 = match$0[2],
+      ys$1 =  /*<<seq.ml:220:16>>*/ match$0[2],
       y = match$0[1],
       _al_ =  /*<<seq.ml:224:10>>*/ caml_call2(f, x, y);
       /*<<seq.ml:224:15>>*/ if(! _al_) return _al_;
@@ -1986,16 +2046,16 @@
     /*<<seq.ml:224:35>>*/ }
    function exists2(f, xs, ys){
     var xs$0 = xs, ys$0 = ys;
-     /*<<seq.ml:227:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:227:12>>*/ if(! match)  /*<<seq.ml:229:6>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:227:12>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:231:12>>*/ caml_call1(ys$0, 0);
       /*<<seq.ml:231:16>>*/ if(! match$0)  /*<<seq.ml:233:10>>*/ return 0;
      var
-      ys$1 = match$0[2],
+      ys$1 =  /*<<seq.ml:231:16>>*/ match$0[2],
       y = match$0[1],
       _ak_ =  /*<<seq.ml:235:10>>*/ caml_call2(f, x, y);
       /*<<seq.ml:235:15>>*/ if(_ak_) return _ak_;
@@ -2005,7 +2065,7 @@
     /*<<seq.ml:235:34>>*/ }
    function equal(eq, xs, ys){
     var xs$0 = xs, ys$0 = ys;
-     /*<<seq.ml:238:2>>*/ for(;;){
+    for(;;){
      var
       match =  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
       match$0 =  /*<<seq.ml:238:14>>*/ caml_call1(ys$0, 0);
@@ -2029,20 +2089,20 @@
     /*<<seq.ml:245:11>>*/ }
    function compare(cmp, xs, ys){
     var xs$0 = xs, ys$0 = ys;
-     /*<<seq.ml:248:2>>*/ for(;;){
+    for(;;){
      var
       match =  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
       match$0 =  /*<<seq.ml:248:14>>*/ caml_call1(ys$0, 0);
       /*<<seq.ml:248:18>>*/ if(! match)
       return match$0 ? -1 : 0 /*<<seq.ml:257:8>>*/ ;
-     var xs$1 = match[2], x = match[1];
+     var xs$1 =  /*<<seq.ml:248:18>>*/ match[2], x = match[1];
      if(! match$0)  /*<<seq.ml:257:6>>*/ return 1;
      var
-      ys$1 = match$0[2],
+      ys$1 =  /*<<seq.ml:248:18>>*/ match$0[2],
       y = match$0[1],
       c =  /*<<seq.ml:252:14>>*/ caml_call2(cmp, x, y);
       /*<<seq.ml:253:6>>*/ if(0 !== c)  /*<<seq.ml:253:21>>*/ return c;
-     xs$0 = xs$1;
+      /*<<seq.ml:253:28>>*/ xs$0 = xs$1;
      ys$0 = ys$1;
     }
     /*<<seq.ml:257:8>>*/ }
@@ -2079,7 +2139,7 @@
    function cycle(xs, param){
     var match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:295:12>>*/ if(! match)  /*<<seq.ml:297:6>>*/ return 0;
-    var xs$0 = match[2], x = match[1];
+    var xs$0 =  /*<<seq.ml:295:12>>*/ match[2], x = match[1];
     function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
      /*<<seq.ml:299:45>>*/ return [0,
             x,
@@ -2099,7 +2159,10 @@
    function mapi_aux(f, i, xs, param){
     var match =  /*<<seq.ml:324:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:324:12>>*/ if(! match)  /*<<seq.ml:326:6>>*/ return 0;
-    var xs$0 = match[2], x = match[1], _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
+    var
+     xs$0 =  /*<<seq.ml:324:12>>*/ match[2],
+     x = match[1],
+     _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
      /*<<seq.ml:328:17>>*/ return [0,
              /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
             function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}] /*<<seq.ml:328:17>>*/ ;
@@ -2113,7 +2176,7 @@
     var match =  /*<<seq.ml:340:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:340:12>>*/ if(! match)  /*<<seq.ml:342:6>>*/ return 0;
     var
-     xs$0 = match[2],
+     xs$0 =  /*<<seq.ml:340:12>>*/ match[2],
      x = match[1],
      s$0 =  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
      /*<<seq.ml:345:31>>*/ return [0,
@@ -2133,7 +2196,7 @@
               var match =  /*<<seq.ml:358:12>>*/ caml_call1(xs, 0);
                /*<<seq.ml:358:16>>*/ if(! match)
                 /*<<seq.ml:360:10>>*/ return 0;
-              var xs$0 = match[2], x = match[1];
+              var xs$0 =  /*<<seq.ml:358:16>>*/ match[2], x = match[1];
                /*<<seq.ml:362:36>>*/ return [0,
                       x,
                        /*<<seq.ml:362:19>>*/ take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:36>>*/ ;
@@ -2142,7 +2205,7 @@
    function take(n, xs){
      /*<<seq.ml:365:2>>*/ if(n < 0)
       /*<<seq.ml:365:16>>*/ caml_call1(Stdlib[1], cst_Seq_take);
-    return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
+     /*<<seq.ml:365:2>>*/ return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
    }
    function drop(n, xs){
      /*<<seq.ml:387:2>>*/ return 0 <= n
@@ -2151,24 +2214,26 @@
               ? xs
               : function
                (param){
-                var n$0 = n, xs$0 = xs;
-                 /*<<seq.ml:373:2>>*/ for(;;){
+                var n$0 =  /*<<seq.ml:392:6>>*/ n, xs$0 = xs;
+                for(;;){
                  var match =  /*<<seq.ml:373:8>>*/ caml_call1(xs$0, 0);
                   /*<<seq.ml:373:12>>*/ if(! match)
                    /*<<seq.ml:375:6>>*/ return 0;
-                 var xs$1 = match[2], n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
+                 var
+                  xs$1 =  /*<<seq.ml:373:12>>*/ match[2],
+                  n$1 =  /*<<seq.ml:377:6>>*/ n$0 - 1 | 0;
                   /*<<seq.ml:378:6>>*/ if(0 === n$1)
                    /*<<seq.ml:379:8>>*/ return caml_call1(xs$1, 0) /*<<seq.ml:392:21>>*/ ;
-                 n$0 = n$1;
+                  /*<<seq.ml:381:8>>*/ n$0 = n$1;
                  xs$0 = xs$1;
                 }
-               }
+                /*<<seq.ml:392:21>>*/ }
             :  /*<<seq.ml:387:16>>*/ caml_call1(Stdlib[1], cst_Seq_drop) /*<<seq.ml:392:21>>*/ ;
    }
    function take_while(p, xs, param){
     var match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:395:12>>*/ if(! match)  /*<<seq.ml:397:6>>*/ return 0;
-    var xs$0 = match[2], x = match[1];
+    var xs$0 =  /*<<seq.ml:395:12>>*/ match[2], x = match[1];
      /*<<seq.ml:399:12>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
             ? [0,
               x,
@@ -2177,20 +2242,20 @@
    }
    function drop_while(p, xs, param){
     var xs$0 = xs;
-     /*<<seq.ml:402:2>>*/ for(;;){
+    for(;;){
      var node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:402:12>>*/ if(! node)  /*<<seq.ml:404:6>>*/ return 0;
-     var xs$1 = node[2], x = node[1];
+     var xs$1 =  /*<<seq.ml:402:12>>*/ node[2], x = node[1];
       /*<<seq.ml:406:12>>*/ if(!  /*<<seq.ml:406:9>>*/ caml_call1(p, x))
        /*<<seq.ml:406:42>>*/ return node;
-     xs$0 = xs$1;
+      /*<<seq.ml:406:18>>*/ xs$0 = xs$1;
     }
     /*<<seq.ml:406:46>>*/ }
    function group(eq, xs, param){
     var match =  /*<<seq.ml:409:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:409:12>>*/ if(! match)  /*<<seq.ml:411:6>>*/ return 0;
     var
-     xs$0 = match[2],
+     xs$0 =  /*<<seq.ml:409:12>>*/ match[2],
      x = match[1],
      _J_ =  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
     function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
@@ -2212,7 +2277,7 @@
     function s$0(param){
      var match =  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
       /*<<seq.ml:460:14>>*/ if(! match)  /*<<seq.ml:462:8>>*/ return 0;
-     var xs$0 = match[2], x = match[1];
+     var xs$0 =  /*<<seq.ml:460:14>>*/ match[2], x = match[1];
       /*<<seq.ml:464:27>>*/ return [0,
              x,
               /*<<seq.ml:464:17>>*/ memoize(xs$0)] /*<<seq.ml:464:27>>*/ ;
@@ -2228,7 +2293,7 @@
     function f(param){
      var match =  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
       /*<<seq.ml:469:14>>*/ if(! match)  /*<<seq.ml:471:8>>*/ return 0;
-     var xs$0 = match[2], x = match[1];
+     var xs$0 =  /*<<seq.ml:469:14>>*/ match[2], x = match[1];
       /*<<seq.ml:473:24>>*/ return [0, x,  /*<<seq.ml:473:17>>*/ once(xs$0)] /*<<seq.ml:473:24>>*/ ;
      /*<<seq.ml:473:25>>*/ }
     var action =  /*<<seq.ml:448:17>>*/ caml_call1(Stdlib_Atomic[1], f);
@@ -2241,11 +2306,11 @@
     var match =  /*<<seq.ml:478:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:478:12>>*/ if(! match)  /*<<seq.ml:480:6>>*/ return 0;
     var
-     xs$0 = match[2],
+     xs$0 =  /*<<seq.ml:478:12>>*/ match[2],
      x = match[1],
      match$0 =  /*<<seq.ml:482:12>>*/ caml_call1(ys, 0);
      /*<<seq.ml:482:16>>*/ if(! match$0)  /*<<seq.ml:484:10>>*/ return 0;
-    var ys$0 = match$0[2], y = match$0[1];
+    var ys$0 =  /*<<seq.ml:482:16>>*/ match$0[2], y = match$0[1];
      /*<<seq.ml:486:33>>*/ return [0,
             [0, x, y],
             function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:33>>*/ ;
@@ -2254,11 +2319,11 @@
     var match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:489:12>>*/ if(! match)  /*<<seq.ml:491:6>>*/ return 0;
     var
-     xs$0 = match[2],
+     xs$0 =  /*<<seq.ml:489:12>>*/ match[2],
      x = match[1],
      match$0 =  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
      /*<<seq.ml:493:16>>*/ if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
-    var ys$0 = match$0[2], y = match$0[1];
+    var ys$0 =  /*<<seq.ml:493:16>>*/ match$0[2], y = match$0[1];
      /*<<seq.ml:497:21>>*/ return [0,
              /*<<seq.ml:497:16>>*/ caml_call2(f, x, y),
             function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}] /*<<seq.ml:497:21>>*/ ;
@@ -2267,7 +2332,7 @@
     var match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:500:12>>*/ if(! match)
       /*<<seq.ml:502:6>>*/ return caml_call1(ys, 0) /*<<seq.ml:504:32>>*/ ;
-    var xs$0 = match[2], x = match[1];
+    var xs$0 =  /*<<seq.ml:500:12>>*/ match[2], x = match[1];
      /*<<seq.ml:504:31>>*/ return [0,
             x,
             function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}] /*<<seq.ml:504:31>>*/ ;
@@ -2281,7 +2346,7 @@
                var match =  /*<<seq.ml:519:8>>*/ caml_call1(ys, 0);
                 /*<<seq.ml:519:12>>*/ if(! match)
                  /*<<seq.ml:521:6>>*/ return [0, x, xs];
-               var ys$0 = match[2], y = match[1];
+               var ys$0 =  /*<<seq.ml:519:12>>*/ match[2], y = match[1];
                 /*<<seq.ml:523:6>>*/ return sorted_merge1(cmp, x, xs, y, ys$0);
               }]
             : [0,
@@ -2290,7 +2355,7 @@
                var match =  /*<<seq.ml:526:8>>*/ caml_call1(xs, 0);
                 /*<<seq.ml:526:12>>*/ if(! match)
                  /*<<seq.ml:528:6>>*/ return [0, y, ys];
-               var xs$0 = match[2], x = match[1];
+               var xs$0 =  /*<<seq.ml:526:12>>*/ match[2], x = match[1];
                 /*<<seq.ml:530:6>>*/ return sorted_merge1(cmp, x, xs$0, y, ys);
               }] /*<<seq.ml:536:40>>*/ ;
    }
@@ -2303,15 +2368,18 @@
       var ys$0 = match$0[2], y = match$0[1], xs$0 = match[2], x = match[1];
        /*<<seq.ml:546:8>>*/ return sorted_merge1(cmp, x, xs$0, y, ys$0) /*<<seq.ml:546:35>>*/ ;
      }
-     var c = match;
+     var c =  /*<<seq.ml:539:18>>*/ match;
+    }
+    else{
+     if(! match$0)  /*<<seq.ml:541:8>>*/ return 0;
+     var c =  /*<<seq.ml:539:18>>*/ match$0;
     }
-    else{if(! match$0)  /*<<seq.ml:541:8>>*/ return 0; var c = match$0;}
      /*<<seq.ml:544:8>>*/ return c;
     /*<<seq.ml:546:35>>*/ }
    function map_fst(xys, param){
     var match =  /*<<seq.ml:550:8>>*/ caml_call1(xys, 0);
      /*<<seq.ml:550:13>>*/ if(! match)  /*<<seq.ml:552:6>>*/ return 0;
-    var xys$0 = match[2], x = match[1][1];
+    var xys$0 =  /*<<seq.ml:550:13>>*/ match[2], x = match[1][1];
      /*<<seq.ml:554:26>>*/ return [0,
             x,
             function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:26>>*/ ;
@@ -2319,7 +2387,7 @@
    function map_snd(xys, param){
     var match =  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
      /*<<seq.ml:557:13>>*/ if(! match)  /*<<seq.ml:559:6>>*/ return 0;
-    var xys$0 = match[2], y = match[1][2];
+    var xys$0 =  /*<<seq.ml:557:13>>*/ match[2], y = match[1][2];
      /*<<seq.ml:561:26>>*/ return [0,
             y,
             function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:26>>*/ ;
@@ -2331,11 +2399,11 @@
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
     var xs$0 = xs;
-     /*<<seq.ml:573:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:573:12>>*/ if(! match)  /*<<seq.ml:575:6>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:573:12>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:577:12>>*/ caml_call1(f, x);
       /*<<seq.ml:577:15>>*/ if(0 === match$0[0]){
@@ -2346,16 +2414,16 @@
                 /*<<?>>*/ return filter_map_find_left_map(f, xs$1, _y_);
               }] /*<<seq.ml:579:48>>*/ ;
      }
-     xs$0 = xs$1;
+      /*<<seq.ml:581:10>>*/ xs$0 = xs$1;
     }
     /*<<seq.ml:581:42>>*/ }
    function filter_map_find_right_map(f, xs, param){
     var xs$0 = xs;
-     /*<<seq.ml:584:2>>*/ for(;;){
+    for(;;){
      var match =  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:584:12>>*/ if(! match)  /*<<seq.ml:586:6>>*/ return 0;
      var
-      xs$1 = match[2],
+      xs$1 =  /*<<seq.ml:584:12>>*/ match[2],
       x = match[1],
       match$0 =  /*<<seq.ml:588:12>>*/ caml_call1(f, x);
       /*<<seq.ml:588:15>>*/ if(0 !== match$0[0]){
@@ -2366,7 +2434,7 @@
                 /*<<?>>*/ return filter_map_find_right_map(f, xs$1, _x_);
               }] /*<<seq.ml:592:49>>*/ ;
      }
-     xs$0 = xs$1;
+      /*<<seq.ml:590:10>>*/ xs$0 = xs$1;
     }
     /*<<seq.ml:592:50>>*/ }
    function partition_map(f, xs){
@@ -2399,14 +2467,15 @@
              function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:32>>*/ ;
      /*<<seq.ml:616:27>>*/ if( /*<<seq.ml:616:11>>*/ is_empty(tails))
       /*<<seq.ml:617:4>>*/ return 0;
-    throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
+     /*<<seq.ml:616:27>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
    function _b_(remainders, xss, param){
     var match =  /*<<seq.ml:627:8>>*/ caml_call1(xss, 0);
      /*<<seq.ml:627:13>>*/ if(! match)
       /*<<seq.ml:649:6>>*/ return transpose(remainders, 0) /*<<seq.ml:649:29>>*/ ;
     var
-     xss$0 = match[2],
+     xss$0 =  /*<<seq.ml:627:13>>*/ match[2],
      xs = match[1],
      match$0 =  /*<<seq.ml:629:18>>*/ caml_call1(xs, 0);
      /*<<seq.ml:629:22>>*/ if(match$0){
@@ -2457,7 +2526,7 @@
     function c(param){
      var match =  /*<<seq.ml:681:10>>*/ caml_call1(it, 0);
       /*<<seq.ml:681:14>>*/ if(! match)  /*<<seq.ml:683:8>>*/ return 0;
-     var x = match[1];
+     var x =  /*<<seq.ml:681:14>>*/ match[1];
       /*<<seq.ml:685:8>>*/ return [0, x, c];
      /*<<seq.ml:685:19>>*/ }
      /*<<seq.ml:687:2>>*/ return c;
@@ -2467,7 +2536,7 @@
      /*<<seq.ml:691:2>>*/ return function(param){
      var match =  /*<<seq.ml:692:10>>*/ caml_call1(s[1], 0);
       /*<<seq.ml:692:16>>*/ if(! match)  /*<<seq.ml:694:8>>*/ return 0;
-     var xs = match[2], x = match[1];
+     var xs =  /*<<seq.ml:692:16>>*/ match[2], x = match[1];
       /*<<seq.ml:696:8>>*/ s[1] = xs;
       /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ } /*<<seq.ml:691:2>>*/ ;
     /*<<seq.ml:697:14>>*/ }
@@ -2571,39 +2640,39 @@
    function value(o, default$0){
      /*<<option.ml:20:23>>*/ if(! o)
       /*<<option.ml:20:58>>*/ return default$0;
-    var v = o[1];
+    var v =  /*<<option.ml:20:23>>*/ o[1];
      /*<<option.ml:20:46>>*/ return v;
     /*<<option.ml:20:65>>*/ }
    function get(param){
      /*<<option.ml:21:10>>*/ if(! param)
       /*<<option.ml:21:41>>*/ return caml_call1(Stdlib[1], cst_option_is_None) /*<<option.ml:21:69>>*/ ;
-    var v = param[1];
+    var v =  /*<<option.ml:21:10>>*/ param[1];
      /*<<option.ml:21:29>>*/ return v;
     /*<<option.ml:21:69>>*/ }
    function bind(o, f){
      /*<<option.ml:22:15>>*/ if(! o)  /*<<option.ml:22:36>>*/ return 0;
-    var v = o[1];
+    var v =  /*<<option.ml:22:15>>*/ o[1];
      /*<<option.ml:22:53>>*/ return caml_call1(f, v) /*<<option.ml:22:56>>*/ ;
    }
    function join(param){
      /*<<option.ml:23:11>>*/ if(! param)  /*<<option.ml:23:42>>*/ return 0;
-    var o = param[1];
+    var o =  /*<<option.ml:23:11>>*/ param[1];
      /*<<option.ml:23:30>>*/ return o;
     /*<<option.ml:23:46>>*/ }
    function map(f, o){
      /*<<option.ml:24:14>>*/ if(! o)  /*<<option.ml:24:35>>*/ return 0;
-    var v = o[1];
+    var v =  /*<<option.ml:24:14>>*/ o[1];
      /*<<option.ml:24:62>>*/ return [0,
              /*<<option.ml:24:57>>*/ caml_call1(f, v)] /*<<option.ml:24:62>>*/ ;
    }
    function fold(none, some, param){
      /*<<option.ml:25:9>>*/ if(! param)  /*<<option.ml:25:59>>*/ return none;
-    var v = param[1];
+    var v =  /*<<option.ml:25:9>>*/ param[1];
      /*<<option.ml:25:42>>*/ return caml_call1(some, v) /*<<option.ml:25:63>>*/ ;
    }
    function iter(f, param){
      /*<<option.ml:26:9>>*/ if(! param)  /*<<option.ml:26:46>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<option.ml:26:9>>*/ param[1];
      /*<<option.ml:26:32>>*/ return caml_call1(f, v) /*<<option.ml:26:48>>*/ ;
    }
    function is_none(param){
@@ -2625,26 +2694,26 @@
    function compare(cmp, o0, o1){
      /*<<option.ml:35:24>>*/ if(! o0)
      return o1 ? -1 : 0 /*<<option.ml:39:19>>*/ ;
-    var v0 = o0[1];
+    var v0 =  /*<<option.ml:35:24>>*/ o0[1];
     if(! o1)  /*<<option.ml:39:18>>*/ return 1;
-    var v1 = o1[1];
+    var v1 =  /*<<option.ml:35:24>>*/ o1[1];
      /*<<option.ml:36:22>>*/ return caml_call2(cmp, v0, v1) /*<<option.ml:39:19>>*/ ;
    }
    function to_result(none, param){
      /*<<option.ml:41:14>>*/ if(! param)
       /*<<option.ml:41:39>>*/ return [1, none];
-    var v = param[1];
+    var v =  /*<<option.ml:41:14>>*/ param[1];
      /*<<option.ml:41:62>>*/ return [0, v];
     /*<<option.ml:41:66>>*/ }
    function to_list(param){
      /*<<option.ml:42:14>>*/ if(! param)  /*<<option.ml:42:31>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<option.ml:42:14>>*/ param[1];
      /*<<option.ml:42:46>>*/ return [0, v, 0];
     /*<<option.ml:42:49>>*/ }
    function to_seq(param){
      /*<<option.ml:43:13>>*/ if(! param)
       /*<<option.ml:43:30>>*/ return Stdlib_Seq[20];
-    var v = param[1];
+    var v =  /*<<option.ml:43:13>>*/ param[1];
      /*<<option.ml:43:52>>*/ return caml_call1(Stdlib_Seq[21], v) /*<<option.ml:43:64>>*/ ;
    }
    var
@@ -2702,41 +2771,41 @@
    function value(r, default$0){
      /*<<result.ml:20:23>>*/ if(0 !== r[0])
       /*<<result.ml:20:59>>*/ return default$0;
-    var v = r[1];
+    var v =  /*<<result.ml:20:23>>*/ r[1];
      /*<<result.ml:20:44>>*/ return v;
     /*<<result.ml:20:66>>*/ }
    function get_ok(param){
      /*<<result.ml:21:13>>*/ if(0 !== param[0])
       /*<<result.ml:21:45>>*/ return caml_call1
              (Stdlib[1], cst_result_is_Error) /*<<result.ml:21:76>>*/ ;
-    var v = param[1];
+    var v =  /*<<result.ml:21:13>>*/ param[1];
      /*<<result.ml:21:30>>*/ return v;
     /*<<result.ml:21:76>>*/ }
    function get_error(param){
      /*<<result.ml:22:16>>*/ if(0 === param[0])
       /*<<result.ml:22:48>>*/ return caml_call1(Stdlib[1], cst_result_is_Ok) /*<<result.ml:22:76>>*/ ;
-    var e = param[1];
+    var e =  /*<<result.ml:22:16>>*/ param[1];
      /*<<result.ml:22:36>>*/ return e;
     /*<<result.ml:22:76>>*/ }
    function bind(r, f){
      /*<<result.ml:23:15>>*/ if(0 !== r[0])  /*<<result.ml:23:58>>*/ return r;
-    var v = r[1];
+    var v =  /*<<result.ml:23:15>>*/ r[1];
      /*<<result.ml:23:36>>*/ return caml_call1(f, v) /*<<result.ml:23:59>>*/ ;
    }
    function join(e){
      /*<<result.ml:24:11>>*/ if(0 !== e[0])  /*<<result.ml:24:48>>*/ return e;
-    var r = e[1];
+    var r =  /*<<result.ml:24:11>>*/ e[1];
      /*<<result.ml:24:28>>*/ return r;
     /*<<result.ml:24:49>>*/ }
    function map(f, e){
      /*<<result.ml:25:8>>*/ if(0 !== e[0])  /*<<result.ml:25:56>>*/ return e;
-    var v = e[1];
+    var v =  /*<<result.ml:25:8>>*/ e[1];
      /*<<result.ml:25:37>>*/ return [0,
              /*<<result.ml:25:32>>*/ caml_call1(f, v)] /*<<result.ml:25:37>>*/ ;
     /*<<result.ml:25:57>>*/ }
    function map_error(f, v){
      /*<<result.ml:26:14>>*/ if(0 === v[0])  /*<<result.ml:26:65>>*/ return v;
-    var e = v[1];
+    var e =  /*<<result.ml:26:14>>*/ v[1];
      /*<<result.ml:26:49>>*/ return [1,
              /*<<result.ml:26:44>>*/ caml_call1(f, e)] /*<<result.ml:26:49>>*/ ;
     /*<<result.ml:26:66>>*/ }
@@ -2745,19 +2814,19 @@
      var v = param[1];
       /*<<result.ml:27:39>>*/ return caml_call1(ok, v) /*<<result.ml:27:64>>*/ ;
     }
-    var e = param[1];
+    var e =  /*<<result.ml:27:9>>*/ param[1];
      /*<<result.ml:27:57>>*/ return caml_call1(error, e) /*<<result.ml:27:64>>*/ ;
    }
    function iter(f, param){
      /*<<result.ml:28:9>>*/ if(0 !== param[0])
       /*<<result.ml:28:47>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<result.ml:28:9>>*/ param[1];
      /*<<result.ml:28:30>>*/ return caml_call1(f, v) /*<<result.ml:28:49>>*/ ;
    }
    function iter_error(f, param){
      /*<<result.ml:29:15>>*/ if(0 === param[0])
       /*<<result.ml:29:53>>*/ return 0;
-    var e = param[1];
+    var e =  /*<<result.ml:29:15>>*/ param[1];
      /*<<result.ml:29:39>>*/ return caml_call1(f, e) /*<<result.ml:29:55>>*/ ;
    }
    function is_ok(param){
@@ -2775,7 +2844,7 @@
      }
     }
     else{
-     var e0 = r0[1];
+     var e0 =  /*<<result.ml:33:29>>*/ r0[1];
      if(0 !== r1[0]){
       var e1 = r1[1];
        /*<<result.ml:35:24>>*/ return caml_call2(error, e0, e1) /*<<result.ml:36:15>>*/ ;
@@ -2787,30 +2856,30 @@
      /*<<result.ml:38:31>>*/ if(0 === r0[0]){
      var v0 = r0[1];
      if(0 !== r1[0])  /*<<result.ml:41:19>>*/ return -1;
-     var v1 = r1[1];
+     var v1 =  /*<<result.ml:38:31>>*/ r1[1];
       /*<<result.ml:39:18>>*/ return caml_call2(ok, v0, v1) /*<<result.ml:42:20>>*/ ;
     }
-    var e0 = r0[1];
+    var e0 =  /*<<result.ml:38:31>>*/ r0[1];
     if(0 === r1[0])  /*<<result.ml:42:19>>*/ return 1;
-    var e1 = r1[1];
+    var e1 =  /*<<result.ml:38:31>>*/ r1[1];
      /*<<result.ml:40:24>>*/ return caml_call2(error, e0, e1) /*<<result.ml:42:20>>*/ ;
    }
    function to_option(param){
      /*<<result.ml:44:16>>*/ if(0 !== param[0])
       /*<<result.ml:44:53>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<result.ml:44:16>>*/ param[1];
      /*<<result.ml:44:33>>*/ return [0, v];
     /*<<result.ml:44:57>>*/ }
    function to_list(param){
      /*<<result.ml:45:14>>*/ if(0 !== param[0])
       /*<<result.ml:45:48>>*/ return 0;
-    var v = param[1];
+    var v =  /*<<result.ml:45:14>>*/ param[1];
      /*<<result.ml:45:31>>*/ return [0, v, 0];
     /*<<result.ml:45:50>>*/ }
    function to_seq(param){
      /*<<result.ml:46:13>>*/ if(0 !== param[0])
       /*<<result.ml:46:56>>*/ return Stdlib_Seq[20];
-    var v = param[1];
+    var v =  /*<<result.ml:46:13>>*/ param[1];
      /*<<result.ml:46:30>>*/ return caml_call1(Stdlib_Seq[21], v) /*<<result.ml:46:65>>*/ ;
    }
    var
@@ -2913,11 +2982,11 @@
     {
       /*<<char.ml:29:14>>*/ if(40 <= c){
       if(92 === c)  /*<<char.ml:31:12>>*/ return cst;
-      if(127 > c) break a;
+       /*<<char.ml:29:14>>*/ if(127 > c) break a;
      }
      else{
       if(32 <= c){if(39 <= c)  /*<<char.ml:30:12>>*/ return cst$0; break a;}
-      if(14 > c)
+       /*<<char.ml:29:14>>*/ if(14 > c)
        switch(c){
          case 8:
            /*<<char.ml:35:12>>*/ return cst_b;
@@ -3173,10 +3242,12 @@
     cst_List_nth = cst_List_nth$1,
     cst_List_nth$0 = cst_List_nth$1;
    function length(l$0){
-    var len = 0, param = l$0;
-     /*<<list.ml:21:19>>*/ for(;;){
-     if(! param)  /*<<list.ml:22:10>>*/ return len;
-     var l = param[2], len$0 =  /*<<list.ml:23:12>>*/ len + 1 | 0;
+    var len =  /*<<list.ml:25:15>>*/ 0, param = l$0;
+    for(;;){
+      /*<<list.ml:21:19>>*/ if(! param)  /*<<list.ml:22:10>>*/ return len;
+     var
+      l =  /*<<list.ml:21:19>>*/ param[2],
+      len$0 =  /*<<list.ml:23:12>>*/ len + 1 | 0;
      len = len$0;
      param = l;
     }
@@ -3187,23 +3258,23 @@
    function hd(param){
      /*<<list.ml:29:9>>*/ if(! param)
       /*<<list.ml:30:10>>*/ return caml_call1(Stdlib[2], cst_hd) /*<<list.ml:31:13>>*/ ;
-    var a = param[1];
+    var a =  /*<<list.ml:29:9>>*/ param[1];
      /*<<list.ml:31:12>>*/ return a;
     /*<<list.ml:31:13>>*/ }
    function tl(param){
      /*<<list.ml:33:9>>*/ if(! param)
       /*<<list.ml:34:10>>*/ return caml_call1(Stdlib[2], cst_tl) /*<<list.ml:35:13>>*/ ;
-    var l = param[2];
+    var l =  /*<<list.ml:33:9>>*/ param[2];
      /*<<list.ml:35:12>>*/ return l;
     /*<<list.ml:35:13>>*/ }
    function nth(l, n){
      /*<<list.ml:38:2>>*/ if(0 > n)
       /*<<list.ml:38:16>>*/ return caml_call1(Stdlib[1], cst_List_nth) /*<<list.ml:43:16>>*/ ;
-    var l$0 = l, n$0 = n;
-     /*<<list.ml:40:4>>*/ for(;;){
-     if(! l$0)
+    var l$0 =  /*<<list.ml:43:5>>*/ l, n$0 = n;
+    for(;;){
+      /*<<list.ml:40:4>>*/ if(! l$0)
        /*<<list.ml:41:12>>*/ return caml_call1(Stdlib[2], cst_nth) /*<<list.ml:43:16>>*/ ;
-     var l$1 = l$0[2], a = l$0[1];
+     var l$1 =  /*<<list.ml:40:4>>*/ l$0[2], a = l$0[1];
       /*<<list.ml:42:14>>*/ if(0 === n$0)  /*<<list.ml:42:28>>*/ return a;
      var n$1 =  /*<<list.ml:42:35>>*/ n$0 - 1 | 0;
      l$0 = l$1;
@@ -3213,10 +3284,10 @@
    function nth_opt(l, n){
      /*<<list.ml:46:2>>*/ if(0 > n)
       /*<<list.ml:46:16>>*/ return caml_call1(Stdlib[1], cst_List_nth$0) /*<<list.ml:51:16>>*/ ;
-    var l$0 = l, n$0 = n;
-     /*<<list.ml:48:4>>*/ for(;;){
-     if(! l$0)  /*<<list.ml:49:12>>*/ return 0;
-     var l$1 = l$0[2], a = l$0[1];
+    var l$0 =  /*<<list.ml:51:5>>*/ l, n$0 = n;
+    for(;;){
+      /*<<list.ml:48:4>>*/ if(! l$0)  /*<<list.ml:49:12>>*/ return 0;
+     var l$1 =  /*<<list.ml:48:4>>*/ l$0[2], a = l$0[1];
       /*<<list.ml:50:14>>*/ if(0 === n$0)
        /*<<list.ml:50:28>>*/ return [0, a];
      var n$1 =  /*<<list.ml:50:40>>*/ n$0 - 1 | 0;
@@ -3239,10 +3310,10 @@
     cst_List_combine = "List.combine";
    function rev_append(l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:56:2>>*/ for(;;){
-     if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
+    for(;;){
+      /*<<list.ml:56:2>>*/ if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
      var
-      l1$1 = l1$0[2],
+      l1$1 =  /*<<list.ml:56:2>>*/ l1$0[2],
       a = l1$0[1],
       l2$1 =  /*<<list.ml:58:14>>*/ [0, a, l2$0];
      l1$0 = l1$1;
@@ -3265,11 +3336,11 @@
      r1 =  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
      r2 =  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
      block =  /*<<list.ml:68:4>>*/ [0, r2, 24029],
-     dst = block,
+     dst =  /*<<list.ml:68:16>>*/ block,
      offset = 1,
      i = 2;
-     /*<<list.ml:63:2>>*/ for(;;){
-     if(last < i)
+    for(;;){
+      /*<<list.ml:63:2>>*/ if(last < i)
        /*<<list.ml:63:19>>*/ dst[1 + offset] = 0;
      else{
        /*<<list.ml:64:7>>*/ if(i !== last){
@@ -3292,27 +3363,30 @@
     /*<<list.ml:72:20>>*/ }
    function flatten(param){
      /*<<list.ml:74:18>>*/ if(! param)  /*<<list.ml:75:10>>*/ return 0;
-    var r = param[2], l = param[1], _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
+    var
+     r =  /*<<list.ml:74:18>>*/ param[2],
+     l = param[1],
+     _I_ =  /*<<list.ml:76:16>>*/ flatten(r);
      /*<<list.ml:76:25>>*/ return caml_call2(Stdlib[37], l, _I_);
    }
    function map(f, param){
      /*<<list.ml:80:28>>*/ if(! param)  /*<<list.ml:81:10>>*/ return 0;
-    var match = param[2], a1 = param[1];
+    var match =  /*<<list.ml:80:28>>*/ param[2], a1 = param[1];
     if(! match){
      var r1$0 =  /*<<list.ml:83:15>>*/ caml_call1(f, a1);
       /*<<list.ml:84:6>>*/ return [0, r1$0, 0];
     }
     var
-     l = match[2],
+     l =  /*<<list.ml:80:28>>*/ match[2],
      a2 = match[1],
      r1 =  /*<<list.ml:86:15>>*/ caml_call1(f, a1),
      r2 =  /*<<list.ml:87:15>>*/ caml_call1(f, a2),
      block =  /*<<list.ml:88:6>>*/ [0, r2, 24029],
-     dst = block,
+     dst =  /*<<list.ml:88:14>>*/ block,
      offset = 1,
      param$0 = l;
-     /*<<list.ml:80:28>>*/ for(;;){
-     if(param$0){
+    for(;;){
+      /*<<list.ml:80:28>>*/ if(param$0){
       var match$0 = param$0[2], a1$0 = param$0[1];
       if(match$0){
        var
@@ -3338,23 +3412,23 @@
    function mapi(f, l$1){
     var i$1 =  /*<<list.ml:100:15>>*/ 0;
      /*<<list.ml:90:29>>*/ if(! l$1)  /*<<list.ml:91:10>>*/ return 0;
-    var match = l$1[2], a1 = l$1[1];
+    var match =  /*<<list.ml:90:29>>*/ l$1[2], a1 = l$1[1];
     if(! match){
      var r1$0 =  /*<<list.ml:93:15>>*/ caml_call2(f, i$1, a1);
       /*<<list.ml:94:6>>*/ return [0, r1$0, 0];
     }
     var
-     l = match[2],
+     l =  /*<<list.ml:90:29>>*/ match[2],
      a2 = match[1],
      r1 =  /*<<list.ml:96:15>>*/ caml_call2(f, i$1, a1),
      r2 =  /*<<list.ml:97:15>>*/ caml_call2(f, 1, a2),
      block =  /*<<list.ml:98:6>>*/ [0, r2, 24029],
-     dst = block,
+     dst =  /*<<list.ml:98:14>>*/ block,
      offset = 1,
      i = 2,
      param = l;
-     /*<<list.ml:90:29>>*/ for(;;){
-     if(param){
+    for(;;){
+      /*<<list.ml:90:29>>*/ if(param){
       var match$0 = param[2], a1$0 = param[1];
       if(match$0){
        var
@@ -3380,34 +3454,34 @@
     }
     /*<<list.ml:100:25>>*/ }
    function rev_map(f, l){
-    var accu = 0, param = l;
-     /*<<list.ml:103:17>>*/ for(;;){
-     if(! param)  /*<<list.ml:104:12>>*/ return accu;
+    var accu =  /*<<list.ml:107:2>>*/ 0, param = l;
+    for(;;){
+      /*<<list.ml:103:17>>*/ if(! param)  /*<<list.ml:104:12>>*/ return accu;
      var
-      l$0 = param[2],
+      l$0 =  /*<<list.ml:103:17>>*/ param[2],
       a = param[1],
       accu$0 =
          /*<<list.ml:105:25>>*/ [0,
           /*<<list.ml:105:22>>*/ caml_call1(f, a),
          accu];
-     accu = accu$0;
+      /*<<list.ml:105:25>>*/ accu = accu$0;
      param = l$0;
     }
     /*<<list.ml:107:13>>*/ }
    function iter(f, param){
     var param$0 = param;
-     /*<<list.ml:110:13>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
-     var l = param$0[2], a = param$0[1];
+    for(;;){
+      /*<<list.ml:110:13>>*/ if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
+     var l =  /*<<list.ml:110:13>>*/ param$0[2], a = param$0[1];
       /*<<list.ml:112:12>>*/ caml_call1(f, a);
-     param$0 = l;
+      /*<<list.ml:112:15>>*/ param$0 = l;
     }
     /*<<list.ml:112:25>>*/ }
    function iteri(f, l$0){
-    var i = 0, param = l$0;
-     /*<<list.ml:114:14>>*/ for(;;){
-     if(! param)  /*<<list.ml:115:10>>*/ return 0;
-     var l = param[2], a = param[1];
+    var i =  /*<<list.ml:118:16>>*/ 0, param = l$0;
+    for(;;){
+      /*<<list.ml:114:14>>*/ if(! param)  /*<<list.ml:115:10>>*/ return 0;
+     var l =  /*<<list.ml:114:14>>*/ param[2], a = param[1];
       /*<<list.ml:116:12>>*/ caml_call2(f, i, a);
      var i$0 =  /*<<list.ml:116:17>>*/ i + 1 | 0;
      i = i$0;
@@ -3416,19 +3490,19 @@
     /*<<list.ml:118:27>>*/ }
    function fold_left(f, accu, l){
     var accu$0 = accu, l$0 = l;
-     /*<<list.ml:121:2>>*/ for(;;){
-     if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
+    for(;;){
+      /*<<list.ml:121:2>>*/ if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
      var
-      l$1 = l$0[2],
+      l$1 =  /*<<list.ml:121:2>>*/ l$0[2],
       a = l$0[1],
       accu$1 =  /*<<list.ml:123:24>>*/ caml_call2(f, accu$0, a);
-     accu$0 = accu$1;
+      /*<<list.ml:123:34>>*/ accu$0 = accu$1;
      l$0 = l$1;
     }
     /*<<list.ml:123:36>>*/ }
    function fold_right(f, l, accu){
      /*<<list.ml:126:2>>*/ if(! l)  /*<<list.ml:127:10>>*/ return accu;
-    var l$0 = l[2], a = l[1];
+    var l$0 =  /*<<list.ml:126:2>>*/ l[2], a = l[1];
      /*<<list.ml:128:37>>*/ return caml_call2
             (f, a,  /*<<list.ml:128:16>>*/ fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
    }
@@ -3448,14 +3522,14 @@
          r1 =  /*<<list.ml:137:15>>*/ caml_call2(f, a1, b1),
          r2 =  /*<<list.ml:138:15>>*/ caml_call2(f, a2, b2),
          block =  /*<<list.ml:139:6>>*/ [0, r2, 24029],
-         dst = block,
+         dst =  /*<<list.ml:139:14>>*/ block,
          offset = 1,
          l1$1 = l1$0,
          l2$1 = l2$0;
-         /*<<list.ml:131:2>>*/ for(;;){
+        for(;;){
          a:
          {
-          if(l1$1){
+           /*<<list.ml:131:2>>*/ if(l1$1){
            var _H_ = l1$1[2], a1$0 = l1$1[1];
            if(_H_){
             if(l2$1){
@@ -3481,7 +3555,7 @@
            }
            else if(l2$1 && ! l2$1[2]){
             var
-             b1$2 = l2$1[1],
+             b1$2 =  /*<<list.ml:131:2>>*/ l2$1[1],
              r1$2 =  /*<<list.ml:134:15>>*/ caml_call2(f, a1$0, b1$2);
              /*<<list.ml:135:6>>*/ dst[1 + offset] = [0, r1$2, 0];
             break a;
@@ -3501,7 +3575,7 @@
      }
      else if(l2 && ! l2[2]){
       var
-       b1$0 = l2[1],
+       b1$0 =  /*<<list.ml:131:2>>*/ l2[1],
        r1$0 =  /*<<list.ml:134:15>>*/ caml_call2(f, a1, b1$0);
        /*<<list.ml:135:6>>*/ return [0, r1$0, 0];
      }
@@ -3510,9 +3584,9 @@
      /*<<list.ml:140:14>>*/ return caml_call1(Stdlib[1], cst_List_map2) /*<<list.ml:140:37>>*/ ;
    }
    function rev_map2(f, l1, l2){
-    var accu = 0, l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:144:4>>*/ for(;;){
-     if(l1$0){
+    var accu =  /*<<list.ml:149:2>>*/ 0, l1$0 = l1, l2$0 = l2;
+    for(;;){
+      /*<<list.ml:144:4>>*/ if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3523,7 +3597,7 @@
            /*<<list.ml:146:42>>*/ [0,
             /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2),
            accu];
-       accu = accu$0;
+        /*<<list.ml:146:42>>*/ accu = accu$0;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
@@ -3535,12 +3609,12 @@
    }
    function iter2(f, l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:153:2>>*/ for(;;){
-     if(l1$0){
+    for(;;){
+      /*<<list.ml:153:2>>*/ if(l1$0){
       if(l2$0){
        var l2$1 = l2$0[2], a2 = l2$0[1], l1$1 = l1$0[2], a1 = l1$0[1];
         /*<<list.ml:155:24>>*/ caml_call2(f, a1, a2);
-       l1$0 = l1$1;
+        /*<<list.ml:155:31>>*/ l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
       }
@@ -3551,8 +3625,8 @@
    }
    function fold_left2(f, accu, l1, l2){
     var accu$0 = accu, l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:159:2>>*/ for(;;){
-     if(l1$0){
+    for(;;){
+      /*<<list.ml:159:2>>*/ if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3560,7 +3634,7 @@
         l1$1 = l1$0[2],
         a1 = l1$0[1],
         accu$1 =  /*<<list.ml:161:37>>*/ caml_call3(f, accu$0, a1, a2);
-       accu$0 = accu$1;
+        /*<<list.ml:161:51>>*/ accu$0 = accu$1;
        l1$0 = l1$1;
        l2$0 = l2$1;
        continue;
@@ -3586,10 +3660,10 @@
    }
    function for_all(p, param){
     var param$0 = param;
-     /*<<list.ml:170:16>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
+    for(;;){
+      /*<<list.ml:170:16>>*/ if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:170:16>>*/ param$0[2],
       a = param$0[1],
       _F_ =  /*<<list.ml:172:12>>*/ caml_call1(p, a);
       /*<<list.ml:172:15>>*/ if(! _F_) return _F_;
@@ -3598,10 +3672,10 @@
     /*<<list.ml:172:30>>*/ }
    function exists(p, param){
     var param$0 = param;
-     /*<<list.ml:174:15>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:174:15>>*/ if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:174:15>>*/ param$0[2],
       a = param$0[1],
       _E_ =  /*<<list.ml:176:12>>*/ caml_call1(p, a);
       /*<<list.ml:176:15>>*/ if(_E_) return _E_;
@@ -3610,8 +3684,8 @@
     /*<<list.ml:176:29>>*/ }
    function for_all2(p, l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:179:2>>*/ for(;;){
-     if(l1$0){
+    for(;;){
+      /*<<list.ml:179:2>>*/ if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3631,8 +3705,8 @@
    }
    function exists2(p, l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:185:2>>*/ for(;;){
-     if(l1$0){
+    for(;;){
+      /*<<list.ml:185:2>>*/ if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3652,10 +3726,10 @@
    }
    function mem(x, param){
     var param$0 = param;
-     /*<<list.ml:190:12>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:191:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:190:12>>*/ if(! param$0)  /*<<list.ml:191:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:190:12>>*/ param$0[2],
       a = param$0[1],
       _B_ =
          /*<<list.ml:192:23>>*/ 0
@@ -3668,10 +3742,10 @@
     /*<<list.ml:192:38>>*/ }
    function memq(x, param){
     var param$0 = param;
-     /*<<list.ml:194:13>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:194:13>>*/ if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:194:13>>*/ param$0[2],
       a = param$0[1],
       _A_ =  /*<<list.ml:196:12>>*/ a === x ? 1 : 0;
      if(_A_) return _A_;
@@ -3680,53 +3754,69 @@
     /*<<list.ml:196:30>>*/ }
    function assoc(x, param){
     var param$0 = param;
-     /*<<list.ml:198:14>>*/ for(;;){
-     if(! param$0)
+    for(;;){
+      /*<<list.ml:198:14>>*/ if(! param$0)
        /*<<list.ml:199:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-     var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
+     var
+      l =  /*<<list.ml:198:14>>*/ param$0[2],
+      match = param$0[1],
+      b = match[2],
+      a = match[1];
       /*<<list.ml:200:30>>*/ if
       (0 ===  /*<<list.ml:200:19>>*/ caml_compare(a, x))
        /*<<list.ml:200:40>>*/ return b;
-     param$0 = l;
+      /*<<list.ml:200:47>>*/ param$0 = l;
     }
     /*<<list.ml:200:56>>*/ }
    function assoc_opt(x, param){
     var param$0 = param;
-     /*<<list.ml:202:18>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
-     var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
+    for(;;){
+      /*<<list.ml:202:18>>*/ if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
+     var
+      l =  /*<<list.ml:202:18>>*/ param$0[2],
+      match = param$0[1],
+      b = match[2],
+      a = match[1];
       /*<<list.ml:204:30>>*/ if
       (0 ===  /*<<list.ml:204:19>>*/ caml_compare(a, x))
        /*<<list.ml:204:40>>*/ return [0, b];
-     param$0 = l;
+      /*<<list.ml:204:52>>*/ param$0 = l;
     }
     /*<<list.ml:204:65>>*/ }
    function assq(x, param){
     var param$0 = param;
-     /*<<list.ml:206:13>>*/ for(;;){
-     if(! param$0)
+    for(;;){
+      /*<<list.ml:206:13>>*/ if(! param$0)
        /*<<list.ml:207:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-     var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
+     var
+      l =  /*<<list.ml:206:13>>*/ param$0[2],
+      match = param$0[1],
+      b = match[2],
+      a = match[1];
       /*<<list.ml:208:16>>*/ if(a === x)  /*<<list.ml:208:31>>*/ return b;
-     param$0 = l;
+      /*<<list.ml:208:38>>*/ param$0 = l;
     }
     /*<<list.ml:208:46>>*/ }
    function assq_opt(x, param){
     var param$0 = param;
-     /*<<list.ml:210:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
-     var l = param$0[2], match = param$0[1], b = match[2], a = match[1];
+    for(;;){
+      /*<<list.ml:210:17>>*/ if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
+     var
+      l =  /*<<list.ml:210:17>>*/ param$0[2],
+      match = param$0[1],
+      b = match[2],
+      a = match[1];
       /*<<list.ml:212:16>>*/ if(a === x)
        /*<<list.ml:212:31>>*/ return [0, b];
-     param$0 = l;
+      /*<<list.ml:212:43>>*/ param$0 = l;
     }
     /*<<list.ml:212:55>>*/ }
    function mem_assoc(x, param){
     var param$0 = param;
-     /*<<list.ml:214:18>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:215:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:214:18>>*/ if(! param$0)  /*<<list.ml:215:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:214:18>>*/ param$0[2],
       a = param$0[1][1],
       _z_ =
          /*<<list.ml:216:30>>*/ 0
@@ -3739,10 +3829,10 @@
     /*<<list.ml:216:51>>*/ }
    function mem_assq(x, param){
     var param$0 = param;
-     /*<<list.ml:218:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:218:17>>*/ if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:218:17>>*/ param$0[2],
       a = param$0[1][1],
       _y_ =  /*<<list.ml:220:19>>*/ a === x ? 1 : 0;
      if(_y_) return _y_;
@@ -3751,7 +3841,7 @@
     /*<<list.ml:220:41>>*/ }
    function remove_assoc(x, param){
      /*<<list.ml:222:21>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
-    var l = param[2], pair = param[1], a = pair[1];
+    var l =  /*<<list.ml:222:21>>*/ param[2], pair = param[1], a = pair[1];
      /*<<list.ml:225:20>>*/ return 0
             ===  /*<<list.ml:225:9>>*/ caml_compare(a, x)
             ? l
@@ -3759,39 +3849,39 @@
    }
    function remove_assq(x, param){
      /*<<list.ml:227:20>>*/ if(! param)  /*<<list.ml:228:10>>*/ return 0;
-    var l = param[2], pair = param[1], a = pair[1];
+    var l =  /*<<list.ml:227:20>>*/ param[2], pair = param[1], a = pair[1];
      /*<<list.ml:229:27>>*/ return a === x
             ? l
             : [0, pair,  /*<<list.ml:229:57>>*/ remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
    }
    function find(p, param){
     var param$0 = param;
-     /*<<list.ml:231:13>>*/ for(;;){
-     if(! param$0)
+    for(;;){
+      /*<<list.ml:231:13>>*/ if(! param$0)
        /*<<list.ml:232:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-     var l = param$0[2], x = param$0[1];
+     var l =  /*<<list.ml:231:13>>*/ param$0[2], x = param$0[1];
       /*<<list.ml:233:20>>*/ if( /*<<list.ml:233:17>>*/ caml_call1(p, x))
        /*<<list.ml:233:26>>*/ return x;
-     param$0 = l;
+      /*<<list.ml:233:33>>*/ param$0 = l;
     }
     /*<<list.ml:233:41>>*/ }
    function find_opt(p, param){
     var param$0 = param;
-     /*<<list.ml:235:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
-     var l = param$0[2], x = param$0[1];
+    for(;;){
+      /*<<list.ml:235:17>>*/ if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
+     var l =  /*<<list.ml:235:17>>*/ param$0[2], x = param$0[1];
       /*<<list.ml:237:20>>*/ if( /*<<list.ml:237:17>>*/ caml_call1(p, x))
        /*<<list.ml:237:26>>*/ return [0, x];
-     param$0 = l;
+      /*<<list.ml:237:38>>*/ param$0 = l;
     }
     /*<<list.ml:237:50>>*/ }
    function find_index(p){
     var i =  /*<<list.ml:243:2>>*/ 0;
     return function(param$0){
      var i$0 = i, param = param$0;
-      /*<<list.ml:240:14>>*/ for(;;){
-      if(! param)  /*<<list.ml:241:10>>*/ return 0;
-      var l = param[2], a = param[1];
+     for(;;){
+       /*<<list.ml:240:14>>*/ if(! param)  /*<<list.ml:241:10>>*/ return 0;
+      var l =  /*<<list.ml:240:14>>*/ param[2], a = param[1];
        /*<<list.ml:242:20>>*/ if( /*<<list.ml:242:17>>*/ caml_call1(p, a))
         /*<<list.ml:242:26>>*/ return [0, i$0];
       var i$1 =  /*<<list.ml:242:38>>*/ i$0 + 1 | 0;
@@ -3801,24 +3891,24 @@
     /*<<list.ml:243:7>>*/ }
    function find_map(f, param){
     var param$0 = param;
-     /*<<list.ml:245:17>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:245:17>>*/ if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:245:17>>*/ param$0[2],
       x = param$0[1],
       result =  /*<<list.ml:248:17>>*/ caml_call1(f, x);
       /*<<list.ml:248:20>>*/ if(result)  /*<<list.ml:249:29>>*/ return result;
-     param$0 = l;
+      /*<<list.ml:250:17>>*/ param$0 = l;
     }
     /*<<list.ml:251:8>>*/ }
    function find_mapi(f){
     var i =  /*<<list.ml:261:2>>*/ 0;
     return function(param$0){
      var i$0 = i, param = param$0;
-      /*<<list.ml:254:14>>*/ for(;;){
-      if(! param)  /*<<list.ml:255:10>>*/ return 0;
+     for(;;){
+       /*<<list.ml:254:14>>*/ if(! param)  /*<<list.ml:255:10>>*/ return 0;
       var
-       l = param[2],
+       l =  /*<<list.ml:254:14>>*/ param[2],
        x = param[1],
        result =  /*<<list.ml:257:17>>*/ caml_call2(f, i$0, x);
        /*<<list.ml:257:22>>*/ if(result)
@@ -3830,21 +3920,21 @@
     /*<<list.ml:261:7>>*/ }
    function find_all(p, param){
     var param$0 = param;
-     /*<<list.ml:263:33>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
-     var l = param$0[2], x = param$0[1];
+    for(;;){
+      /*<<list.ml:263:33>>*/ if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
+     var l =  /*<<list.ml:263:33>>*/ param$0[2], x = param$0[1];
       /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
       var
        block =  /*<<list.ml:265:26>>*/ [0, x, 24029],
-       dst = block,
+       dst =  /*<<list.ml:265:31>>*/ block,
        offset = 1,
        param$1 = l;
-       /*<<list.ml:263:33>>*/ for(;;){
-       if(! param$1){
+      for(;;){
+        /*<<list.ml:263:33>>*/ if(! param$1){
          /*<<list.ml:264:10>>*/ dst[1 + offset] = 0;
          /*<<list.ml:265:43>>*/ return block;
        }
-       var l$0 = param$1[2], x$0 = param$1[1];
+       var l$0 =  /*<<list.ml:263:33>>*/ param$1[2], x$0 = param$1[1];
         /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x$0)){
         var dst$0 =  /*<<list.ml:265:26>>*/ [0, x$0, 24029];
         dst[1 + offset] = dst$0;
@@ -3853,7 +3943,7 @@
         param$1 = l$0;
        }
        else
-        param$1 = l$0;
+         /*<<list.ml:265:49>>*/ param$1 = l$0;
       }
      }
      else
@@ -3861,28 +3951,31 @@
     }
     /*<<list.ml:265:61>>*/ }
    function filteri(p, l$1){
-    var i = 0, param = l$1;
-     /*<<list.ml:269:32>>*/ for(;;){
-     if(! param)  /*<<list.ml:270:10>>*/ return 0;
-     var l = param[2], x = param[1], i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
+    var i =  /*<<list.ml:275:18>>*/ 0, param = l$1;
+    for(;;){
+      /*<<list.ml:269:32>>*/ if(! param)  /*<<list.ml:270:10>>*/ return 0;
+     var
+      l =  /*<<list.ml:269:32>>*/ param[2],
+      x = param[1],
+      i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
       /*<<list.ml:273:14>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i, x))
       break;
-     i = i$0;
+      /*<<list.ml:273:45>>*/ i = i$0;
      param = l;
     }
     var
      block =  /*<<list.ml:273:20>>*/ [0, x, 24029],
-     dst = block,
+     dst =  /*<<list.ml:273:25>>*/ block,
      offset = 1,
      i$1 = i$0,
      param$0 = l;
-     /*<<list.ml:269:32>>*/ for(;;){
-     if(! param$0){
+    for(;;){
+      /*<<list.ml:269:32>>*/ if(! param$0){
        /*<<list.ml:270:10>>*/ dst[1 + offset] = 0;
        /*<<list.ml:273:39>>*/ return block;
      }
      var
-      l$0 = param$0[2],
+      l$0 =  /*<<list.ml:269:32>>*/ param$0[2],
       x$0 = param$0[1],
       i$2 =  /*<<list.ml:272:6>>*/ i$1 + 1 | 0;
       /*<<list.ml:273:14>>*/ if
@@ -3894,31 +3987,31 @@
       i$1 = i$2;
       param$0 = l$0;
      }
-     else{i$1 = i$2; param$0 = l$0;}
+     else{ /*<<list.ml:273:45>>*/ i$1 = i$2; param$0 = l$0;}
     }
     /*<<list.ml:275:31>>*/ }
    function filter_map(f, param){
     var param$0 = param;
-     /*<<list.ml:277:35>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:277:35>>*/ if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
      var
-      l = param$0[2],
+      l =  /*<<list.ml:277:35>>*/ param$0[2],
       x = param$0[1],
       match =  /*<<list.ml:280:12>>*/ caml_call1(f, x);
       /*<<list.ml:280:15>>*/ if(match){
       var
        v = match[1],
        block =  /*<<list.ml:282:18>>*/ [0, v, 24029],
-       dst = block,
+       dst =  /*<<list.ml:282:23>>*/ block,
        offset = 1,
        param$1 = l;
-       /*<<list.ml:277:35>>*/ for(;;){
-       if(! param$1){
+      for(;;){
+        /*<<list.ml:277:35>>*/ if(! param$1){
          /*<<list.ml:278:10>>*/ dst[1 + offset] = 0;
          /*<<list.ml:282:37>>*/ return block;
        }
        var
-        l$0 = param$1[2],
+        l$0 =  /*<<list.ml:277:35>>*/ param$1[2],
         x$0 = param$1[1],
         match$0 =  /*<<list.ml:280:12>>*/ caml_call1(f, x$0);
         /*<<list.ml:280:15>>*/ if(match$0){
@@ -3929,7 +4022,7 @@
         param$1 = l$0;
        }
        else
-        param$1 = l$0;
+         /*<<list.ml:281:16>>*/ param$1 = l$0;
       }
      }
      else
@@ -3938,10 +4031,10 @@
     /*<<list.ml:282:37>>*/ }
    function concat_map(f, param){
     var param$0 = param;
-     /*<<list.ml:284:35>>*/ for(;;){
-     if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
+    for(;;){
+      /*<<list.ml:284:35>>*/ if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
      var
-      xs = param$0[2],
+      xs =  /*<<list.ml:284:35>>*/ param$0[2],
       x = param$0[1],
       ys =  /*<<list.ml:286:32>>*/ caml_call1(f, x);
       /*<<list.ml:288:2>>*/ if(ys){
@@ -3949,12 +4042,12 @@
        ys$1 = ys[2],
        y = ys[1],
        block =  /*<<list.ml:290:15>>*/ [0, y, 24029],
-       dst = block,
+       dst =  /*<<list.ml:290:20>>*/ block,
        offset = 1,
        ys$2 = ys$1,
        xs$1 = xs;
-       /*<<list.ml:288:2>>*/ for(;;)
-       if(ys$2){
+      for(;;)
+        /*<<list.ml:288:2>>*/ if(ys$2){
         var
          ys$3 = ys$2[2],
          y$0 = ys$2[1],
@@ -3970,26 +4063,26 @@
           /*<<list.ml:290:46>>*/ return block;
         }
         var
-         xs$0 = xs$1[2],
+         xs$0 =  /*<<list.ml:284:35>>*/ xs$1[2],
          x$0 = xs$1[1],
          ys$0 =  /*<<list.ml:286:32>>*/ caml_call1(f, x$0);
-        ys$2 = ys$0;
+         /*<<list.ml:286:37>>*/ ys$2 = ys$0;
         xs$1 = xs$0;
        }
      }
      else
-      param$0 = xs;
+       /*<<list.ml:289:10>>*/ param$0 = xs;
     }
     /*<<list.ml:286:42>>*/ }
    function fold_left_map(f, accu, l){
-    var accu$0 = accu, l_accu = 0, param = l;
-     /*<<list.ml:293:14>>*/ for(;;){
-     if(! param)
+    var accu$0 =  /*<<list.ml:298:2>>*/ accu, l_accu = 0, param = l;
+    for(;;){
+      /*<<list.ml:293:14>>*/ if(! param)
        /*<<list.ml:294:28>>*/ return [0,
               accu$0,
                /*<<list.ml:294:18>>*/ rev(l_accu)] /*<<list.ml:294:28>>*/ ;
      var
-      l$0 = param[2],
+      l$0 =  /*<<list.ml:293:14>>*/ param[2],
       x = param[1],
       match =  /*<<list.ml:296:22>>*/ caml_call2(f, accu$0, x),
       x$0 =  /*<<list.ml:296:30>>*/ match[2],
@@ -4001,15 +4094,15 @@
     }
     /*<<list.ml:298:15>>*/ }
    function partition(p, l){
-    var yes = 0, no = 0, param = l;
-     /*<<list.ml:301:15>>*/ for(;;){
-     if(! param){
+    var yes =  /*<<list.ml:304:2>>*/ 0, no = 0, param = l;
+    for(;;){
+      /*<<list.ml:301:15>>*/ if(! param){
       var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
        /*<<list.ml:302:18>>*/ return [0,
                /*<<list.ml:302:11>>*/ rev(yes),
               _x_] /*<<list.ml:302:18>>*/ ;
      }
-     var l$0 = param[2], x = param[1];
+     var l$0 =  /*<<list.ml:301:15>>*/ param[2], x = param[1];
       /*<<list.ml:303:20>>*/ if( /*<<list.ml:303:17>>*/ caml_call1(p, x)){
       var yes$0 =  /*<<list.ml:303:26>>*/ [0, x, yes];
       yes = yes$0;
@@ -4023,16 +4116,16 @@
     }
     /*<<list.ml:304:14>>*/ }
    function partition_map(p, l){
-    var left = 0, right = 0, param = l;
-     /*<<list.ml:307:15>>*/ for(;;){
-     if(! param){
+    var left =  /*<<list.ml:315:2>>*/ 0, right = 0, param = l;
+    for(;;){
+      /*<<list.ml:307:15>>*/ if(! param){
       var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
        /*<<list.ml:308:19>>*/ return [0,
                /*<<list.ml:308:11>>*/ rev(left),
               _w_] /*<<list.ml:308:19>>*/ ;
      }
      var
-      l$0 = param[2],
+      l$0 =  /*<<list.ml:307:15>>*/ param[2],
       x = param[1],
       match =  /*<<list.ml:310:17>>*/ caml_call1(p, x);
       /*<<list.ml:310:20>>*/ if(0 === match[0]){
@@ -4041,7 +4134,9 @@
       param = l$0;
      }
      else{
-      var v$0 = match[1], right$0 =  /*<<list.ml:312:27>>*/ [0, v$0, right];
+      var
+       v$0 =  /*<<list.ml:310:20>>*/ match[1],
+       right$0 =  /*<<list.ml:312:27>>*/ [0, v$0, right];
       right = right$0;
       param = l$0;
      }
@@ -4050,7 +4145,7 @@
    function split(param){
      /*<<list.ml:317:16>>*/ if(! param)  /*<<list.ml:318:10>>*/ return _a_;
     var
-     l = param[2],
+     l =  /*<<list.ml:317:16>>*/ param[2],
      match = param[1],
      y = match[2],
      x = match[1],
@@ -4073,8 +4168,8 @@
    }
    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;
-    var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
+     /*<<list.ml:331:2>>*/ if(! l2)  /*<<list.ml:333:14>>*/ return l1;
+    var t2 =  /*<<list.ml:331:2>>*/ l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
      /*<<list.ml:335:18>>*/ return 0
             <  /*<<list.ml:335:9>>*/ caml_call2(cmp, h1, h2)
             ? [0, h2,  /*<<list.ml:337:17>>*/ merge(cmp, l1, t2)]
@@ -4100,7 +4195,7 @@
       }
      }
      else if(3 === n && l){
-      var _v_ = l[2];
+      var _v_ =  /*<<list.ml:360:4>>*/ l[2];
       if(_v_){
        var match$2 = _v_[2];
        if(match$2){
@@ -4139,11 +4234,11 @@
       match$1 =  /*<<list.ml:379:21>>*/ rev_sort(n2, l2$0),
       tl$0 =  /*<<list.ml:379:35>>*/ match$1[2],
       s2 = match$1[1],
-      l1 = s1,
+      l1 =  /*<<list.ml:380:9>>*/ s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:351:4>>*/ for(;;){
-      if(l1){
+     for(;;){
+       /*<<list.ml:351:4>>*/ if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
          /*<<list.ml:355:20>>*/ if
@@ -4184,7 +4279,7 @@
       }
      }
      else if(3 === n && l){
-      var _t_ = l[2];
+      var _t_ =  /*<<list.ml:382:4>>*/ l[2];
       if(_t_){
        var match$2 = _t_[2];
        if(match$2){
@@ -4223,11 +4318,11 @@
       match$1 =  /*<<list.ml:401:21>>*/ sort(n2, l2$0),
       tl$0 =  /*<<list.ml:401:31>>*/ match$1[2],
       s2 = match$1[1],
-      l1 = s1,
+      l1 =  /*<<list.ml:402:9>>*/ s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:342:4>>*/ for(;;){
-      if(l1){
+     for(;;){
+       /*<<list.ml:342:4>>*/ if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
          /*<<list.ml:346:20>>*/ if
@@ -4274,7 +4369,7 @@
       }
      }
      else if(3 === n && l){
-      var _m_ = l[2];
+      var _m_ =  /*<<list.ml:443:4>>*/ l[2];
       if(_m_){
        var match$2 = _m_[2];
        if(match$2){
@@ -4295,7 +4390,7 @@
         else if(0 <= c$1){
          var c$3 =  /*<<list.ml:466:20>>*/ caml_call2(cmp, x1$0, x3);
           /*<<list.ml:467:12>>*/ if(0 === c$3)
-          var _o_ = [0, x2$0, [0, x1$0, 0]];
+          var _o_ =  /*<<list.ml:467:26>>*/ [0, x2$0, [0, x1$0, 0]];
          else if(0 <= c$3)
           var
            c$4 =  /*<<list.ml:470:22>>*/ caml_call2(cmp, x2$0, x3),
@@ -4308,13 +4403,13 @@
                 : [0, x2$0, [0, x3, [0, x1$0, 0]]],
            _o_ = _p_;
          else
-          var _o_ = [0, x2$0, [0, x1$0, [0, x3, 0]]];
-         var s$0 = _o_;
+          var _o_ =  /*<<list.ml:468:31>>*/ [0, x2$0, [0, x1$0, [0, x3, 0]]];
+         var s$0 =  /*<<list.ml:467:12>>*/ _o_;
         }
         else{
          var c$5 =  /*<<list.ml:457:20>>*/ caml_call2(cmp, x2$0, x3);
           /*<<list.ml:458:12>>*/ if(0 === c$5)
-          var _q_ = [0, x1$0, [0, x2$0, 0]];
+          var _q_ =  /*<<list.ml:458:26>>*/ [0, x1$0, [0, x2$0, 0]];
          else if(0 <= c$5)
           var
            c$6 =  /*<<list.ml:461:22>>*/ caml_call2(cmp, x1$0, x3),
@@ -4327,8 +4422,8 @@
                 : [0, x1$0, [0, x3, [0, x2$0, 0]]],
            _q_ = _r_;
          else
-          var _q_ = [0, x1$0, [0, x2$0, [0, x3, 0]]];
-         var s$0 = _q_;
+          var _q_ =  /*<<list.ml:459:31>>*/ [0, x1$0, [0, x2$0, [0, x3, 0]]];
+         var s$0 =  /*<<list.ml:458:12>>*/ _q_;
         }
          /*<<list.ml:475:8>>*/ return [0, s$0, tl$1];
        }
@@ -4343,11 +4438,11 @@
       match$1 =  /*<<list.ml:480:21>>*/ rev_sort(n2, l2$0),
       tl$0 =  /*<<list.ml:480:35>>*/ match$1[2],
       s2 = match$1[1],
-      l1 = s1,
+      l1 =  /*<<list.ml:481:9>>*/ s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:432:4>>*/ for(;;){
-      if(l1){
+     for(;;){
+       /*<<list.ml:432:4>>*/ if(l1){
        if(l2){
         var
          t2 = l2[2],
@@ -4399,7 +4494,7 @@
       }
      }
      else if(3 === n && l){
-      var _f_ = l[2];
+      var _f_ =  /*<<list.ml:483:4>>*/ l[2];
       if(_f_){
        var match$2 = _f_[2];
        if(match$2){
@@ -4420,9 +4515,9 @@
         else if(0 < c$1){
          var c$3 =  /*<<list.ml:497:20>>*/ caml_call2(cmp, x2$0, x3);
           /*<<list.ml:498:12>>*/ if(0 === c$3)
-          var _h_ = [0, x1$0, [0, x2$0, 0]];
+          var _h_ =  /*<<list.ml:498:26>>*/ [0, x1$0, [0, x2$0, 0]];
          else if(0 < c$3)
-          var _h_ = [0, x1$0, [0, x2$0, [0, x3, 0]]];
+          var _h_ =  /*<<list.ml:499:31>>*/ [0, x1$0, [0, x2$0, [0, x3, 0]]];
          else
           var
            c$4 =  /*<<list.ml:501:22>>*/ caml_call2(cmp, x1$0, x3),
@@ -4434,14 +4529,14 @@
                 ? [0, x1$0, [0, x3, [0, x2$0, 0]]]
                 : [0, x3, [0, x1$0, [0, x2$0, 0]]],
            _h_ = _i_;
-         var s$0 = _h_;
+         var s$0 =  /*<<list.ml:498:12>>*/ _h_;
         }
         else{
          var c$5 =  /*<<list.ml:506:20>>*/ caml_call2(cmp, x1$0, x3);
           /*<<list.ml:507:12>>*/ if(0 === c$5)
-          var _j_ = [0, x2$0, [0, x1$0, 0]];
+          var _j_ =  /*<<list.ml:507:26>>*/ [0, x2$0, [0, x1$0, 0]];
          else if(0 < c$5)
-          var _j_ = [0, x2$0, [0, x1$0, [0, x3, 0]]];
+          var _j_ =  /*<<list.ml:508:31>>*/ [0, x2$0, [0, x1$0, [0, x3, 0]]];
          else
           var
            c$6 =  /*<<list.ml:510:22>>*/ caml_call2(cmp, x2$0, x3),
@@ -4453,7 +4548,7 @@
                 ? [0, x2$0, [0, x3, [0, x1$0, 0]]]
                 : [0, x3, [0, x2$0, [0, x1$0, 0]]],
            _j_ = _k_;
-         var s$0 = _j_;
+         var s$0 =  /*<<list.ml:507:12>>*/ _j_;
         }
          /*<<list.ml:515:8>>*/ return [0, s$0, tl$1];
        }
@@ -4468,11 +4563,11 @@
       match$1 =  /*<<list.ml:520:21>>*/ sort(n2, l2$0),
       tl$0 =  /*<<list.ml:520:31>>*/ match$1[2],
       s2 = match$1[1],
-      l1 = s1,
+      l1 =  /*<<list.ml:521:9>>*/ s1,
       l2 = s2,
       accu = 0;
-      /*<<list.ml:421:4>>*/ for(;;){
-      if(l1){
+     for(;;){
+       /*<<list.ml:421:4>>*/ if(l1){
        if(l2){
         var
          t2 = l2[2],
@@ -4512,20 +4607,21 @@
    }
    function compare_lengths(l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:528:2>>*/ for(;;){
-     if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:532:45>>*/ ;
-     if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
-     var l2$1 = l2$0[2], l1$1 = l1$0[2];
-     l1$0 = l1$1;
+    for(;;){
+      /*<<list.ml:528:2>>*/ if(! l1$0)
+      return l2$0 ? -1 : 0 /*<<list.ml:532:45>>*/ ;
+      /*<<list.ml:528:2>>*/ if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
+     var l2$1 =  /*<<list.ml:528:2>>*/ l2$0[2], l1$1 = l1$0[2];
+      /*<<list.ml:532:24>>*/ l1$0 = l1$1;
      l2$0 = l2$1;
     }
     /*<<list.ml:532:45>>*/ }
    function compare_length_with(l, n){
     var l$0 = l, n$0 = n;
-     /*<<list.ml:535:2>>*/ for(;;){
-     if(! l$0)
+    for(;;){
+      /*<<list.ml:535:2>>*/ if(! l$0)
        /*<<list.ml:537:4>>*/ return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1 /*<<list.ml:541:33>>*/ ;
-     var l$1 = l$0[2];
+     var l$1 =  /*<<list.ml:535:2>>*/ l$0[2];
       /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
      var n$1 =  /*<<list.ml:541:6>>*/ n$0 - 1 | 0;
      l$0 = l$1;
@@ -4537,8 +4633,8 @@
    }
    function equal(eq, l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:555:2>>*/ for(;;){
-     if(l1$0){
+    for(;;){
+      /*<<list.ml:555:2>>*/ if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -4558,23 +4654,24 @@
     /*<<list.ml:558:48>>*/ }
    function compare(cmp, l1, l2){
     var l1$0 = l1, l2$0 = l2;
-     /*<<list.ml:561:2>>*/ for(;;){
-     if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:568:26>>*/ ;
-     var l1$1 = l1$0[2], a1 = l1$0[1];
+    for(;;){
+      /*<<list.ml:561:2>>*/ if(! l1$0)
+      return l2$0 ? -1 : 0 /*<<list.ml:568:26>>*/ ;
+     var l1$1 =  /*<<list.ml:561:2>>*/ l1$0[2], a1 = l1$0[1];
      if(! l2$0)  /*<<list.ml:564:16>>*/ return 1;
      var
-      l2$1 = l2$0[2],
+      l2$1 =  /*<<list.ml:561:2>>*/ l2$0[2],
       a2 = l2$0[1],
       c =  /*<<list.ml:566:12>>*/ caml_call2(cmp, a1, a2);
       /*<<list.ml:567:4>>*/ if(0 !== c)  /*<<list.ml:567:19>>*/ return c;
-     l1$0 = l1$1;
+      /*<<list.ml:568:9>>*/ l1$0 = l1$1;
      l2$0 = l2$1;
     }
     /*<<list.ml:568:26>>*/ }
    function to_seq(l){
     function aux(l, param){
       /*<<list.ml:573:21>>*/ if(! l)  /*<<list.ml:574:12>>*/ return 0;
-     var tail = l[2], x = l[1];
+     var tail =  /*<<list.ml:573:21>>*/ l[2], x = l[1];
       /*<<list.ml:575:40>>*/ return [0,
              x,
              function(_c_){ /*<<?>>*/ return aux(tail, _c_);}] /*<<list.ml:575:40>>*/ ;
@@ -4586,19 +4683,19 @@
     var match =  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
      /*<<list.ml:580:14>>*/ if(! match)  /*<<list.ml:581:15>>*/ return 0;
     var
-     seq$0 = match[2],
+     seq$0 =  /*<<list.ml:580:14>>*/ match[2],
      x1 = match[1],
      match$0 =  /*<<list.ml:583:18>>*/ caml_call1(seq$0, 0);
      /*<<list.ml:583:24>>*/ if(! match$0)
       /*<<list.ml:584:19>>*/ return [0, x1, 0];
     var
-     seq$1 = match$0[2],
+     seq$1 =  /*<<list.ml:583:24>>*/ match$0[2],
      x2 = match$0[1],
      block =  /*<<list.ml:585:30>>*/ [0, x2, 24029],
-     dst = block,
+     dst =  /*<<list.ml:585:42>>*/ block,
      offset = 1,
      seq$2 = seq$1;
-     /*<<list.ml:580:2>>*/ for(;;){
+    for(;;){
      var match$1 =  /*<<list.ml:580:8>>*/ caml_call1(seq$2, 0);
       /*<<list.ml:580:14>>*/ if(match$1){
       var
@@ -4882,9 +4979,9 @@
         (symbol( /*<<bytes.ml:84:2>>*/ caml_ml_bytes_length(s), left), right),
      r =  /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
      /*<<bytes.ml:86:2>>*/ if(0 <= left)
-     var dstoff = left, srcoff = 0;
+     var dstoff =  /*<<bytes.ml:87:2>>*/ left, srcoff = 0;
     else
-     var dstoff = 0, srcoff = - left | 0;
+     var dstoff =  /*<<bytes.ml:86:42>>*/ 0, srcoff = - left | 0;
     var
      cpylen =
         /*<<bytes.ml:87:15>>*/ caml_call2
@@ -4893,7 +4990,7 @@
          len - dstoff | 0);
      /*<<bytes.ml:88:2>>*/ if(0 < cpylen)
       /*<<bytes.ml:88:21>>*/ caml_blit_bytes(s, srcoff, r, dstoff, cpylen);
-    return r;
+     /*<<bytes.ml:88:2>>*/ return r;
     /*<<bytes.ml:89:3>>*/ }
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
@@ -4941,7 +5038,7 @@
       i = _am_;
      }
     }
-    return 0;
+     /*<<bytes.ml:110:2>>*/ return 0;
     /*<<bytes.ml:110:53>>*/ }
    function iteri(f, a){
     var
@@ -4956,7 +5053,7 @@
       i = _aj_;
      }
     }
-    return 0;
+     /*<<bytes.ml:114:2>>*/ return 0;
     /*<<bytes.ml:114:56>>*/ }
    function concat(sep, l){
      /*<<bytes.ml:132:11>>*/ if(! l)  /*<<bytes.ml:133:10>>*/ return empty;
@@ -4965,9 +5062,12 @@
     {
      b:
      {
-      var acc = 0, param = l, pos$1 =  /*<<bytes.ml:135:10>>*/ 0;
-       /*<<bytes.ml:118:20>>*/ for(;;){
-       if(! param) break;
+      var
+       acc =  /*<<bytes.ml:136:20>>*/ 0,
+       param = l,
+       pos$1 =  /*<<bytes.ml:135:10>>*/ 0;
+       /*<<bytes.ml:136:20>>*/ for(;;){
+        /*<<bytes.ml:118:20>>*/ if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
        var
@@ -4980,27 +5080,28 @@
            /*<<bytes.ml:116:26>>*/ acc <= x
            ? x
            :  /*<<bytes.ml:116:48>>*/ caml_call1(Stdlib[1], cst_Bytes_concat);
-       acc = acc$0;
+        /*<<bytes.ml:121:70>>*/ acc = acc$0;
        param = tl;
       }
-      var _ag_ = acc;
+      var _ag_ =  /*<<bytes.ml:119:10>>*/ acc;
       break a;
      }
      var _ag_ =  /*<<bytes.ml:120:16>>*/ caml_ml_bytes_length(hd) + acc | 0;
     }
     var
      dst =  /*<<bytes.ml:136:12>>*/ caml_create_bytes(_ag_),
-     pos = pos$1,
+     pos =  /*<<bytes.ml:136:45>>*/ pos$1,
      param$0 = l;
-     /*<<bytes.ml:123:21>>*/ for(;;){
-     if(! param$0)  /*<<bytes.ml:124:10>>*/ return dst;
-     var hd$0 = param$0[1];
+    for(;;){
+      /*<<bytes.ml:123:21>>*/ if(! param$0)
+       /*<<bytes.ml:124:10>>*/ return dst;
+     var hd$0 =  /*<<bytes.ml:123:21>>*/ param$0[1];
      if(! param$0[2]){
        /*<<bytes.ml:126:4>>*/ caml_blit_bytes
        (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
        /*<<bytes.ml:126:40>>*/ return dst;
      }
-     var tl$0 = param$0[2];
+     var tl$0 =  /*<<bytes.ml:123:21>>*/ param$0[2];
       /*<<bytes.ml:128:4>>*/ caml_blit_bytes
       (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
       /*<<bytes.ml:129:4>>*/ caml_blit_bytes
@@ -5040,18 +5141,22 @@
     var
      len =  /*<<bytes.ml:156:2>>*/ caml_ml_bytes_length(s),
      i =  /*<<bytes.ml:157:2>>*/ [0, 0];
-    for(;;){
+     /*<<bytes.ml:158:2>>*/ for(;;){
      if(i[1] >= len) break;
       /*<<bytes.ml:158:46>>*/ if
-      (!  /*<<bytes.ml:158:20>>*/ is_space(caml_bytes_unsafe_get(s, i[1])))
+      (!
+        /*<<bytes.ml:158:20>>*/ is_space
+        ( /*<<bytes.ml:158:2>>*/ caml_bytes_unsafe_get(s, i[1])))
       break;
       /*<<bytes.ml:159:4>>*/ i[1]++;
     }
     var j =  /*<<bytes.ml:161:2>>*/ [0, len - 1 | 0];
-    for(;;){
+     /*<<bytes.ml:162:2>>*/ for(;;){
      if
       (i[1] <= j[1]
-       &&  /*<<bytes.ml:162:20>>*/ is_space(caml_bytes_unsafe_get(s, j[1]))){ /*<<bytes.ml:163:4>>*/ j[1]--; continue;}
+       &&
+         /*<<bytes.ml:162:20>>*/ is_space
+         ( /*<<bytes.ml:162:2>>*/ caml_bytes_unsafe_get(s, j[1]))){ /*<<bytes.ml:163:4>>*/ j[1]--; continue;}
       /*<<bytes.ml:165:2>>*/ return i[1] <= j[1]
              ?  /*<<bytes.ml:166:4>>*/ sub(s, i[1], (j[1] - i[1] | 0) + 1 | 0)
              : empty /*<<bytes.ml:168:9>>*/ ;
@@ -5078,20 +5183,20 @@
            if(93 <= _ac_) break c;
           }
           else if(56 < _ac_ - 1 >>> 0) break b;
-          var _ad_ = 1;
+          var _ad_ =  /*<<bytes.ml:189:23>>*/ 1;
           break a;
          }
-         if(11 <= match){
+          /*<<bytes.ml:186:4>>*/ if(11 <= match){
           if(13 === match) break b;
          }
          else if(8 <= match) break b;
         }
-        var _ad_ = 4;
+        var _ad_ =  /*<<bytes.ml:190:14>>*/ 4;
         break a;
        }
-       var _ad_ = 2;
+       var _ad_ =  /*<<bytes.ml:188:52>>*/ 2;
       }
-      n[1] = n[1] + _ad_ | 0;
+       /*<<bytes.ml:186:4>>*/ n[1] = n[1] + _ad_ | 0;
       var _ae_ = i$0 + 1 | 0;
       if(___ === i$0) break;
       i$0 = _ae_;
@@ -5144,7 +5249,7 @@
              default: break c;
            }
           }
-          if(34 > c) break b;
+           /*<<bytes.ml:197:6>>*/ if(34 > c) break b;
          }
           /*<<bytes.ml:199:10>>*/ caml_bytes_unsafe_set(s$0, n[1], 92);
           /*<<bytes.ml:199:33>>*/ n[1]++;
@@ -5257,9 +5362,11 @@
      /*<<bytes.ml:258:2>>*/ return r[1];
     /*<<bytes.ml:258:4>>*/ }
    function exists(p, s){
-    var n =  /*<<bytes.ml:261:2>>*/ caml_ml_bytes_length(s), i = 0;
-     /*<<bytes.ml:263:4>>*/ for(;;){
-     if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
+    var
+     n =  /*<<bytes.ml:261:2>>*/ caml_ml_bytes_length(s),
+     i =  /*<<bytes.ml:266:2>>*/ 0;
+    for(;;){
+      /*<<bytes.ml:263:4>>*/ if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
       /*<<bytes.ml:264:30>>*/ if
       ( /*<<bytes.ml:264:12>>*/ caml_call1
         (p,  /*<<bytes.ml:264:9>>*/ caml_bytes_unsafe_get(s, i)))
@@ -5269,9 +5376,11 @@
     }
     /*<<bytes.ml:266:8>>*/ }
    function for_all(p, s){
-    var n =  /*<<bytes.ml:269:2>>*/ caml_ml_bytes_length(s), i = 0;
-     /*<<bytes.ml:271:4>>*/ for(;;){
-     if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
+    var
+     n =  /*<<bytes.ml:269:2>>*/ caml_ml_bytes_length(s),
+     i =  /*<<bytes.ml:274:2>>*/ 0;
+    for(;;){
+      /*<<bytes.ml:271:4>>*/ if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
       /*<<bytes.ml:272:30>>*/ if
       (!
         /*<<bytes.ml:272:12>>*/ caml_call1
@@ -5311,8 +5420,9 @@
      _N_ =  /*<<bytes.ml:297:5>>*/ len_pre <= len_s ? 1 : 0;
     if(! _N_) return _N_;
     var i = 0;
-     /*<<bytes.ml:294:4>>*/ for(;;){
-     if(i === len_pre)  /*<<bytes.ml:294:24>>*/ return 1;
+    for(;;){
+      /*<<bytes.ml:294:4>>*/ if(i === len_pre)
+       /*<<bytes.ml:294:24>>*/ return 1;
       /*<<bytes.ml:295:9>>*/ if
       (caml_bytes_unsafe_get(s, i) !== caml_bytes_unsafe_get(prefix, i))
        /*<<bytes.ml:295:55>>*/ return 0;
@@ -5328,8 +5438,9 @@
      _M_ =  /*<<bytes.ml:308:5>>*/ 0 <= diff ? 1 : 0;
     if(! _M_) return _M_;
     var i = 0;
-     /*<<bytes.ml:305:4>>*/ for(;;){
-     if(i === len_suf)  /*<<bytes.ml:305:24>>*/ return 1;
+    for(;;){
+      /*<<bytes.ml:305:4>>*/ if(i === len_suf)
+       /*<<bytes.ml:305:24>>*/ return 1;
       /*<<bytes.ml:306:9>>*/ if
       (caml_bytes_unsafe_get(s, diff + i | 0)
        !== caml_bytes_unsafe_get(suffix, i))
@@ -5340,8 +5451,8 @@
     /*<<bytes.ml:308:23>>*/ }
    function index_rec(s, lim, i, c){
     var i$0 = i;
-     /*<<bytes.ml:312:2>>*/ for(;;){
-     if(lim <= i$0)
+    for(;;){
+      /*<<bytes.ml:312:2>>*/ if(lim <= i$0)
        /*<<bytes.ml:312:19>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
       /*<<bytes.ml:313:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:313:29>>*/ return i$0;
@@ -5355,8 +5466,8 @@
    }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
-     /*<<bytes.ml:320:2>>*/ for(;;){
-     if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
+    for(;;){
+      /*<<bytes.ml:320:2>>*/ if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
       /*<<bytes.ml:321:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:321:29>>*/ return [0, i$0];
      var i$1 =  /*<<bytes.ml:321:41>>*/ i$0 + 1 | 0;
@@ -5383,8 +5494,8 @@
    }
    function rindex_rec(s, i, c){
     var i$0 = i;
-     /*<<bytes.ml:342:2>>*/ for(;;){
-     if(0 > i$0)
+    for(;;){
+      /*<<bytes.ml:342:2>>*/ if(0 > i$0)
        /*<<bytes.ml:342:16>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
       /*<<bytes.ml:343:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:343:29>>*/ return i$0;
@@ -5404,8 +5515,8 @@
    }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
-     /*<<bytes.ml:357:2>>*/ for(;;){
-     if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
+    for(;;){
+      /*<<bytes.ml:357:2>>*/ if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
       /*<<bytes.ml:358:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:358:29>>*/ return [0, i$0];
      var i$1 =  /*<<bytes.ml:358:41>>*/ i$0 - 1 | 0;
@@ -5425,15 +5536,15 @@
    function contains_from(s, i, c){
     var l =  /*<<bytes.ml:373:2>>*/ caml_ml_bytes_length(s);
      /*<<bytes.ml:374:2>>*/ if(0 <= i && l >= i)
-     try{
+      /*<<bytes.ml:377:4>>*/ try{
        /*<<bytes.ml:377:15>>*/ index_rec(s, l, i, c);
       var _K_ =  /*<<bytes.ml:377:36>>*/ 1;
       return _K_;
      }
      catch(_L_){
       var _J_ = caml_wrap_exception(_L_);
-      if(_J_ === Stdlib[8])  /*<<bytes.ml:377:59>>*/ return 0;
-      throw caml_maybe_attach_backtrace(_J_, 0);
+       /*<<?>>*/ if(_J_ === Stdlib[8])  /*<<bytes.ml:377:59>>*/ return 0;
+       /*<<?>>*/ throw caml_maybe_attach_backtrace(_J_, 0);
      }
      /*<<bytes.ml:375:4>>*/ return caml_call1
             (Stdlib[1], cst_String_contains_from_Bytes) /*<<bytes.ml:377:64>>*/ ;
@@ -5443,15 +5554,15 @@
    }
    function rcontains_from(s, i, c){
      /*<<bytes.ml:385:2>>*/ if(0 <= i && caml_ml_bytes_length(s) > i)
-     try{
+      /*<<bytes.ml:388:4>>*/ try{
        /*<<bytes.ml:388:15>>*/ rindex_rec(s, i, c);
       var _H_ =  /*<<bytes.ml:388:35>>*/ 1;
       return _H_;
      }
      catch(_I_){
       var _G_ = caml_wrap_exception(_I_);
-      if(_G_ === Stdlib[8])  /*<<bytes.ml:388:58>>*/ return 0;
-      throw caml_maybe_attach_backtrace(_G_, 0);
+       /*<<?>>*/ if(_G_ === Stdlib[8])  /*<<bytes.ml:388:58>>*/ return 0;
+       /*<<?>>*/ throw caml_maybe_attach_backtrace(_G_, 0);
      }
      /*<<bytes.ml:386:4>>*/ return caml_call1
             (Stdlib[1], cst_String_rcontains_from_Byte) /*<<bytes.ml:388:63>>*/ ;
@@ -5475,7 +5586,7 @@
          _E_];
         /*<<bytes.ml:403:6>>*/ j[1] = i;
       }
-      var _F_ = i - 1 | 0;
+      var _F_ =  /*<<bytes.ml:401:4>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _F_;
      }
@@ -5733,14 +5844,14 @@
           var i$0 =  /*<<bytes.ml:619:6>>*/ i + 1 | 0;
            /*<<bytes.ml:619:23>>*/ if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-          var b1$4 = caml_bytes_unsafe_get(b, i$0);
+          var b1$4 =  /*<<bytes.ml:620:15>>*/ caml_bytes_unsafe_get(b, i$0);
            /*<<bytes.ml:620:49>>*/ if
            ( /*<<bytes.ml:620:29>>*/ not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
            /*<<bytes.ml:621:23>>*/ if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
-          var b2$3 = caml_bytes_unsafe_get(b, i$1);
+          var b2$3 =  /*<<bytes.ml:622:15>>*/ caml_bytes_unsafe_get(b, i$1);
            /*<<bytes.ml:622:49>>*/ return  /*<<bytes.ml:622:29>>*/ not_in_x80_to_xBF
                    (b2$3)
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
@@ -5750,21 +5861,21 @@
           var i$4 =  /*<<bytes.ml:625:6>>*/ i + 1 | 0;
            /*<<bytes.ml:625:23>>*/ if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-          var b1$2 = caml_bytes_unsafe_get(b, i$4);
+          var b1$2 =  /*<<bytes.ml:626:15>>*/ caml_bytes_unsafe_get(b, i$4);
            /*<<bytes.ml:626:49>>*/ if
            ( /*<<bytes.ml:626:29>>*/ not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
            /*<<bytes.ml:627:23>>*/ if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
-          var b2$1 = caml_bytes_unsafe_get(b, i$5);
+          var b2$1 =  /*<<bytes.ml:628:15>>*/ caml_bytes_unsafe_get(b, i$5);
            /*<<bytes.ml:628:49>>*/ if
            ( /*<<bytes.ml:628:29>>*/ not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
            /*<<bytes.ml:629:23>>*/ if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
-          var b3$1 = caml_bytes_unsafe_get(b, i$6);
+          var b3$1 =  /*<<bytes.ml:630:15>>*/ caml_bytes_unsafe_get(b, i$6);
            /*<<bytes.ml:630:49>>*/ return  /*<<bytes.ml:630:29>>*/ not_in_x80_to_xBF
                    (b3$1)
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
@@ -5775,21 +5886,21 @@
           var i$10 =  /*<<bytes.ml:641:6>>*/ i + 1 | 0;
            /*<<bytes.ml:641:23>>*/ if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-          var b1$0 = caml_bytes_unsafe_get(b, i$10);
+          var b1$0 =  /*<<bytes.ml:642:15>>*/ caml_bytes_unsafe_get(b, i$10);
            /*<<bytes.ml:642:49>>*/ if
            ( /*<<bytes.ml:642:29>>*/ not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
            /*<<bytes.ml:643:23>>*/ if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
-          var b2 = caml_bytes_unsafe_get(b, i$11);
+          var b2 =  /*<<bytes.ml:644:15>>*/ caml_bytes_unsafe_get(b, i$11);
            /*<<bytes.ml:644:49>>*/ if
            ( /*<<bytes.ml:644:29>>*/ not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
            /*<<bytes.ml:645:23>>*/ if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
-          var b3 = caml_bytes_unsafe_get(b, i$12);
+          var b3 =  /*<<bytes.ml:646:15>>*/ caml_bytes_unsafe_get(b, i$12);
            /*<<bytes.ml:646:49>>*/ return  /*<<bytes.ml:646:29>>*/ not_in_x80_to_xBF
                    (b3)
                   ?  /*<<bytes.ml:646:55>>*/ caml_call1(dec_invalid, 3)
@@ -5802,21 +5913,21 @@
           var i$7 =  /*<<bytes.ml:633:6>>*/ i + 1 | 0;
            /*<<bytes.ml:633:23>>*/ if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-          var b1$1 = caml_bytes_unsafe_get(b, i$7);
+          var b1$1 =  /*<<bytes.ml:634:15>>*/ caml_bytes_unsafe_get(b, i$7);
            /*<<bytes.ml:634:49>>*/ if
            ( /*<<bytes.ml:634:29>>*/ not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
            /*<<bytes.ml:635:23>>*/ if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
-          var b2$0 = caml_bytes_unsafe_get(b, i$8);
+          var b2$0 =  /*<<bytes.ml:636:15>>*/ caml_bytes_unsafe_get(b, i$8);
            /*<<bytes.ml:636:49>>*/ if
            ( /*<<bytes.ml:636:29>>*/ not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
            /*<<bytes.ml:637:23>>*/ if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
-          var b3$0 = caml_bytes_unsafe_get(b, i$9);
+          var b3$0 =  /*<<bytes.ml:638:15>>*/ caml_bytes_unsafe_get(b, i$9);
            /*<<bytes.ml:638:49>>*/ return  /*<<bytes.ml:638:29>>*/ not_in_x80_to_xBF
                    (b3$0)
                   ?  /*<<bytes.ml:638:55>>*/ caml_call1(dec_invalid, 3)
@@ -5829,14 +5940,14 @@
        var i$13 =  /*<<bytes.ml:607:6>>*/ i + 1 | 0;
         /*<<bytes.ml:607:23>>*/ if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-       var b1$5 = caml_bytes_unsafe_get(b, i$13);
+       var b1$5 =  /*<<bytes.ml:608:15>>*/ caml_bytes_unsafe_get(b, i$13);
         /*<<bytes.ml:608:49>>*/ if
         ( /*<<bytes.ml:608:29>>*/ not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
         /*<<bytes.ml:609:23>>*/ if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
-       var b2$4 = caml_bytes_unsafe_get(b, i$14);
+       var b2$4 =  /*<<bytes.ml:610:15>>*/ caml_bytes_unsafe_get(b, i$14);
         /*<<bytes.ml:610:49>>*/ return  /*<<bytes.ml:610:29>>*/ not_in_x80_to_xBF
                 (b2$4)
                ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
@@ -5846,27 +5957,27 @@
       var i$2 =  /*<<bytes.ml:613:6>>*/ i + 1 | 0;
        /*<<bytes.ml:613:23>>*/ if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-      var b1$3 = caml_bytes_unsafe_get(b, i$2);
+      var b1$3 =  /*<<bytes.ml:614:15>>*/ caml_bytes_unsafe_get(b, i$2);
        /*<<bytes.ml:614:49>>*/ if
        ( /*<<bytes.ml:614:29>>*/ not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
        /*<<bytes.ml:615:23>>*/ if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
-      var b2$2 = caml_bytes_unsafe_get(b, i$3);
+      var b2$2 =  /*<<bytes.ml:616:15>>*/ caml_bytes_unsafe_get(b, i$3);
        /*<<bytes.ml:616:49>>*/ return  /*<<bytes.ml:616:29>>*/ not_in_x80_to_xBF
                (b2$2)
               ?  /*<<bytes.ml:616:55>>*/ caml_call1(dec_invalid, 2)
               :  /*<<bytes.ml:617:40>>*/ dec_ret
                 (3,  /*<<bytes.ml:617:16>>*/ utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
      }
-     if(128 > b0)
+      /*<<bytes.ml:600:2>>*/ if(128 > b0)
        /*<<bytes.ml:601:24>>*/ return dec_ret(1, b0) /*<<bytes.ml:648:22>>*/ ;
-     if(194 <= b0){
+      /*<<bytes.ml:600:2>>*/ if(194 <= b0){
       var i$15 =  /*<<bytes.ml:603:6>>*/ i + 1 | 0;
        /*<<bytes.ml:603:23>>*/ if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
-      var b1 = caml_bytes_unsafe_get(b, i$15);
+      var b1 =  /*<<bytes.ml:604:15>>*/ caml_bytes_unsafe_get(b, i$15);
        /*<<bytes.ml:604:49>>*/ return  /*<<bytes.ml:604:29>>*/ not_in_x80_to_xBF
                (b1)
               ?  /*<<bytes.ml:604:55>>*/ caml_call1(dec_invalid, 1)
@@ -5886,14 +5997,14 @@
       /*<<bytes.ml:654:20>>*/ throw caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
      /*<<bytes.ml:655:11>>*/ if(127 >= u$0){
-     caml_bytes_set(b, i, u$0);
+      /*<<bytes.ml:656:6>>*/ caml_bytes_set(b, i, u$0);
       /*<<bytes.ml:656:21>>*/ return 1;
     }
      /*<<bytes.ml:658:11>>*/ if(2047 >= u$0){
      var last$1 =  /*<<bytes.ml:659:6>>*/ i + 1 | 0;
       /*<<bytes.ml:660:6>>*/ return max < last$1
              ? 0
-             : (caml_bytes_set
+             : ( /*<<bytes.ml:661:7>>*/ caml_bytes_set
                 (b, i, 192 | u$0 >>> 6 | 0),
                 /*<<bytes.ml:662:7>>*/ set(b, last$1, 128 | u$0 & 63),
                2) /*<<bytes.ml:679:21>>*/ ;
@@ -5902,7 +6013,7 @@
      var last$0 =  /*<<bytes.ml:665:6>>*/ i + 2 | 0;
       /*<<bytes.ml:666:6>>*/ return max < last$0
              ? 0
-             : (caml_bytes_set
+             : ( /*<<bytes.ml:667:7>>*/ caml_bytes_set
                 (b, i, 224 | u$0 >>> 12 | 0),
                 /*<<bytes.ml:668:7>>*/ set
                 (b, i + 1 | 0, 128 | (u$0 >>> 6 | 0) & 63),
@@ -5915,7 +6026,7 @@
     var last =  /*<<bytes.ml:672:6>>*/ i + 3 | 0;
      /*<<bytes.ml:673:6>>*/ return max < last
             ? 0
-            : (caml_bytes_set
+            : ( /*<<bytes.ml:674:7>>*/ caml_bytes_set
                (b, i, 240 | u$0 >>> 18 | 0),
                /*<<bytes.ml:675:7>>*/ set
                (b, i + 1 | 0, 128 | (u$0 >>> 12 | 0) & 63),
@@ -5926,9 +6037,9 @@
    }
    function is_valid_utf_8(b){
     var max =  /*<<bytes.ml:740:2>>*/ caml_ml_bytes_length(b) - 1 | 0, i = 0;
-     /*<<bytes.ml:683:4>>*/ for(;;){
-     if(max < i)  /*<<bytes.ml:683:20>>*/ return 1;
-     var match = caml_bytes_unsafe_get(b, i);
+    for(;;){
+      /*<<bytes.ml:683:4>>*/ if(max < i)  /*<<bytes.ml:683:20>>*/ return 1;
+     var match =  /*<<bytes.ml:685:26>>*/ caml_bytes_unsafe_get(b, i);
      a:
      {
        /*<<bytes.ml:685:35>>*/ if(224 <= match){
@@ -5942,11 +6053,11 @@
              &&
               !
                /*<<bytes.ml:710:11>>*/ not_in_x80_to_x9F
-               (caml_bytes_unsafe_get(b, i + 1 | 0))
+               ( /*<<bytes.ml:710:29>>*/ caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:711:11>>*/ not_in_x80_to_xBF
-                (caml_bytes_unsafe_get(b, last))){
+                ( /*<<bytes.ml:711:29>>*/ caml_bytes_unsafe_get(b, last))){
             var i$0 =  /*<<bytes.ml:713:13>>*/ last + 1 | 0;
             i = i$0;
             continue;
@@ -5959,15 +6070,15 @@
              &&
               !
                /*<<bytes.ml:717:11>>*/ not_in_x90_to_xBF
-               (caml_bytes_unsafe_get(b, i + 1 | 0))
+               ( /*<<bytes.ml:717:29>>*/ caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:718:11>>*/ not_in_x80_to_xBF
-                (caml_bytes_unsafe_get(b, i + 2 | 0))
+                ( /*<<bytes.ml:718:29>>*/ caml_bytes_unsafe_get(b, i + 2 | 0))
                &&
                 !
                  /*<<bytes.ml:719:11>>*/ not_in_x80_to_xBF
-                 (caml_bytes_unsafe_get(b, last$1))){
+                 ( /*<<bytes.ml:719:29>>*/ caml_bytes_unsafe_get(b, last$1))){
             var i$2 =  /*<<bytes.ml:721:13>>*/ last$1 + 1 | 0;
             i = i$2;
             continue;
@@ -5980,15 +6091,15 @@
              &&
               !
                /*<<bytes.ml:733:11>>*/ not_in_x80_to_x8F
-               (caml_bytes_unsafe_get(b, i + 1 | 0))
+               ( /*<<bytes.ml:733:29>>*/ caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:734:11>>*/ not_in_x80_to_xBF
-                (caml_bytes_unsafe_get(b, i + 2 | 0))
+                ( /*<<bytes.ml:734:29>>*/ caml_bytes_unsafe_get(b, i + 2 | 0))
                &&
                 !
                  /*<<bytes.ml:735:11>>*/ not_in_x80_to_xBF
-                 (caml_bytes_unsafe_get(b, last$3))){
+                 ( /*<<bytes.ml:735:29>>*/ caml_bytes_unsafe_get(b, last$3))){
             var i$4 =  /*<<bytes.ml:737:13>>*/ last$3 + 1 | 0;
             i = i$4;
             continue;
@@ -6003,15 +6114,15 @@
              &&
               !
                /*<<bytes.ml:725:11>>*/ not_in_x80_to_xBF
-               (caml_bytes_unsafe_get(b, i + 1 | 0))
+               ( /*<<bytes.ml:725:29>>*/ caml_bytes_unsafe_get(b, i + 1 | 0))
               &&
                !
                 /*<<bytes.ml:726:11>>*/ not_in_x80_to_xBF
-                (caml_bytes_unsafe_get(b, i + 2 | 0))
+                ( /*<<bytes.ml:726:29>>*/ caml_bytes_unsafe_get(b, i + 2 | 0))
                &&
                 !
                  /*<<bytes.ml:727:11>>*/ not_in_x80_to_xBF
-                 (caml_bytes_unsafe_get(b, last$2))){
+                 ( /*<<bytes.ml:727:29>>*/ caml_bytes_unsafe_get(b, last$2))){
             var i$3 =  /*<<bytes.ml:729:13>>*/ last$2 + 1 | 0;
             i = i$3;
             continue;
@@ -6026,11 +6137,11 @@
           &&
            !
             /*<<bytes.ml:696:11>>*/ not_in_xA0_to_xBF
-            (caml_bytes_unsafe_get(b, i + 1 | 0))
+            ( /*<<bytes.ml:696:29>>*/ caml_bytes_unsafe_get(b, i + 1 | 0))
            &&
             !
              /*<<bytes.ml:697:11>>*/ not_in_x80_to_xBF
-             (caml_bytes_unsafe_get(b, last$4))){
+             ( /*<<bytes.ml:697:29>>*/ caml_bytes_unsafe_get(b, last$4))){
          var i$5 =  /*<<bytes.ml:699:13>>*/ last$4 + 1 | 0;
          i = i$5;
          continue;
@@ -6043,30 +6154,30 @@
          &&
           !
            /*<<bytes.ml:703:11>>*/ not_in_x80_to_xBF
-           (caml_bytes_unsafe_get(b, i + 1 | 0))
+           ( /*<<bytes.ml:703:29>>*/ caml_bytes_unsafe_get(b, i + 1 | 0))
           &&
            !
             /*<<bytes.ml:704:11>>*/ not_in_x80_to_xBF
-            (caml_bytes_unsafe_get(b, last$0))){
+            ( /*<<bytes.ml:704:29>>*/ caml_bytes_unsafe_get(b, last$0))){
         var i$1 =  /*<<bytes.ml:706:13>>*/ last$0 + 1 | 0;
         i = i$1;
         continue;
        }
         /*<<bytes.ml:705:13>>*/ return 0;
       }
-      if(128 > match){
+       /*<<bytes.ml:685:35>>*/ if(128 > match){
        var i$7 =  /*<<bytes.ml:686:26>>*/ i + 1 | 0;
        i = i$7;
        continue;
       }
-      if(194 <= match){
+       /*<<bytes.ml:685:35>>*/ if(194 <= match){
        var last$5 =  /*<<bytes.ml:688:8>>*/ i + 1 | 0;
         /*<<bytes.ml:689:8>>*/ if
         (max >= last$5
          &&
           !
            /*<<bytes.ml:690:11>>*/ not_in_x80_to_xBF
-           (caml_bytes_unsafe_get(b, last$5))){
+           ( /*<<bytes.ml:690:29>>*/ caml_bytes_unsafe_get(b, last$5))){
         var i$6 =  /*<<bytes.ml:692:13>>*/ last$5 + 1 | 0;
         i = i$6;
         continue;
@@ -6135,7 +6246,7 @@
    }
    function is_valid_utf_16be(b){
     var max =  /*<<bytes.ml:794:2>>*/ caml_ml_bytes_length(b) - 1 | 0, i = 0;
-     /*<<bytes.ml:781:4>>*/ for(;;){
+    for(;;){
       /*<<bytes.ml:782:4>>*/ if(max < i)  /*<<bytes.ml:782:20>>*/ return 1;
       /*<<bytes.ml:783:4>>*/ if(i === max)  /*<<bytes.ml:783:20>>*/ return 0;
      var u =  /*<<bytes.ml:784:10>>*/ unsafe_get_uint16_be(b, i);
@@ -6215,7 +6326,7 @@
    }
    function is_valid_utf_16le(b){
     var max =  /*<<bytes.ml:848:2>>*/ caml_ml_bytes_length(b) - 1 | 0, i = 0;
-     /*<<bytes.ml:835:4>>*/ for(;;){
+    for(;;){
       /*<<bytes.ml:836:4>>*/ if(max < i)  /*<<bytes.ml:836:20>>*/ return 1;
       /*<<bytes.ml:837:4>>*/ if(i === max)  /*<<bytes.ml:837:20>>*/ return 0;
      var u =  /*<<bytes.ml:838:10>>*/ unsafe_get_uint16_le(b, i);
@@ -6394,9 +6505,12 @@
     {
      b:
      {
-      var acc = 0, param = l, pos$1 =  /*<<string.ml:65:36>>*/ 0;
-       /*<<string.ml:49:20>>*/ for(;;){
-       if(! param) break;
+      var
+       acc =  /*<<string.ml:67:22>>*/ 0,
+       param = l,
+       pos$1 =  /*<<string.ml:65:36>>*/ 0;
+       /*<<string.ml:67:22>>*/ for(;;){
+        /*<<string.ml:49:20>>*/ if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
        var
@@ -6409,20 +6523,20 @@
            /*<<string.ml:47:26>>*/ acc <= x
            ? x
            :  /*<<string.ml:47:48>>*/ caml_call1(Stdlib[1], cst_String_concat);
-       acc = acc$0;
+        /*<<string.ml:52:70>>*/ acc = acc$0;
        param = tl;
       }
-      var _W_ = acc;
+      var _W_ =  /*<<string.ml:50:10>>*/ acc;
       break a;
      }
      var _W_ =  /*<<string.ml:51:16>>*/ caml_ml_string_length(hd) + acc | 0;
     }
     var
      dst =  /*<<string.ml:67:12>>*/ runtime.caml_create_bytes(_W_),
-     pos = pos$1,
+     pos =  /*<<string.ml:66:10>>*/ pos$1,
      param$0 = l;
-     /*<<string.ml:54:21>>*/ for(;;){
-     if(param$0){
+    for(;;){
+      /*<<string.ml:54:21>>*/ if(param$0){
       var hd$0 = param$0[1];
       if(param$0[2]){
        var tl$0 = param$0[2];
@@ -6474,7 +6588,7 @@
       i = _V_;
      }
     }
-    return 0;
+     /*<<string.ml:74:2>>*/ return 0;
     /*<<string.ml:74:54>>*/ }
    function iteri(f, s){
     var
@@ -6489,7 +6603,7 @@
       i = _S_;
      }
     }
-    return 0;
+     /*<<string.ml:78:2>>*/ return 0;
     /*<<string.ml:78:56>>*/ }
    function map(f, s){
     var _P_ =  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
@@ -6538,7 +6652,8 @@
       &&
        !
         /*<<string.ml:103:39>>*/ is_space
-        (caml_string_unsafe_get(s, caml_ml_string_length(s) - 1 | 0)))
+        ( /*<<string.ml:103:35>>*/ caml_string_unsafe_get
+          (s, caml_ml_string_length(s) - 1 | 0)))
       /*<<string.ml:105:7>>*/ return s;
     var _I_ =  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
      /*<<string.ml:104:29>>*/ return caml_call1
@@ -6551,8 +6666,8 @@
    }
    function index_rec(s, lim, i, c){
     var i$0 = i;
-     /*<<string.ml:115:2>>*/ for(;;){
-     if(lim <= i$0)
+    for(;;){
+      /*<<string.ml:115:2>>*/ if(lim <= i$0)
        /*<<string.ml:115:19>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
       /*<<string.ml:116:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
@@ -6567,8 +6682,9 @@
    }
    function index_rec_opt(s, lim, i, c){
     var i$0 = i;
-     /*<<string.ml:123:2>>*/ for(;;){
-     if(lim <= i$0)  /*<<string.ml:123:19>>*/ return 0;
+    for(;;){
+      /*<<string.ml:123:2>>*/ if(lim <= i$0)
+       /*<<string.ml:123:19>>*/ return 0;
       /*<<string.ml:124:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:124:29>>*/ return [0, i$0];
      var i$1 =  /*<<string.ml:124:41>>*/ i$0 + 1 | 0;
@@ -6595,8 +6711,8 @@
    }
    function rindex_rec(s, i, c){
     var i$0 = i;
-     /*<<string.ml:145:2>>*/ for(;;){
-     if(0 > i$0)
+    for(;;){
+      /*<<string.ml:145:2>>*/ if(0 > i$0)
        /*<<string.ml:145:16>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
       /*<<string.ml:146:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
@@ -6617,8 +6733,8 @@
    }
    function rindex_rec_opt(s, i, c){
     var i$0 = i;
-     /*<<string.ml:160:2>>*/ for(;;){
-     if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
+    for(;;){
+      /*<<string.ml:160:2>>*/ if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
       /*<<string.ml:161:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:161:29>>*/ return [0, i$0];
      var i$1 =  /*<<string.ml:161:41>>*/ i$0 - 1 | 0;
@@ -6638,15 +6754,15 @@
    function contains_from(s, i, c){
     var l =  /*<<string.ml:175:2>>*/ caml_ml_string_length(s);
      /*<<string.ml:176:2>>*/ if(0 <= i && l >= i)
-     try{
+      /*<<string.ml:179:4>>*/ try{
        /*<<string.ml:179:15>>*/ index_rec(s, l, i, c);
       var _G_ =  /*<<string.ml:179:36>>*/ 1;
       return _G_;
      }
      catch(_H_){
       var _F_ = caml_wrap_exception(_H_);
-      if(_F_ === Stdlib[8])  /*<<string.ml:179:59>>*/ return 0;
-      throw caml_maybe_attach_backtrace(_F_, 0);
+       /*<<?>>*/ if(_F_ === Stdlib[8])  /*<<string.ml:179:59>>*/ return 0;
+       /*<<?>>*/ throw caml_maybe_attach_backtrace(_F_, 0);
      }
      /*<<string.ml:177:4>>*/ return caml_call1
             (Stdlib[1], cst_String_contains_from_Bytes) /*<<string.ml:179:64>>*/ ;
@@ -6656,15 +6772,15 @@
    }
    function rcontains_from(s, i, c){
      /*<<string.ml:186:2>>*/ if(0 <= i && caml_ml_string_length(s) > i)
-     try{
+      /*<<string.ml:189:4>>*/ try{
        /*<<string.ml:189:15>>*/ rindex_rec(s, i, c);
       var _D_ =  /*<<string.ml:189:35>>*/ 1;
       return _D_;
      }
      catch(_E_){
       var _C_ = caml_wrap_exception(_E_);
-      if(_C_ === Stdlib[8])  /*<<string.ml:189:58>>*/ return 0;
-      throw caml_maybe_attach_backtrace(_C_, 0);
+       /*<<?>>*/ if(_C_ === Stdlib[8])  /*<<string.ml:189:58>>*/ return 0;
+       /*<<?>>*/ throw caml_maybe_attach_backtrace(_C_, 0);
      }
      /*<<string.ml:187:4>>*/ return caml_call1
             (Stdlib[1], cst_String_rcontains_from_Byte) /*<<string.ml:189:63>>*/ ;
@@ -6696,8 +6812,9 @@
      _x_ =  /*<<string.ml:208:5>>*/ len_pre <= len_s ? 1 : 0;
     if(! _x_) return _x_;
     var i = 0;
-     /*<<string.ml:205:4>>*/ for(;;){
-     if(i === len_pre)  /*<<string.ml:205:24>>*/ return 1;
+    for(;;){
+      /*<<string.ml:205:4>>*/ if(i === len_pre)
+       /*<<string.ml:205:24>>*/ return 1;
       /*<<string.ml:206:9>>*/ if
       (caml_string_unsafe_get(s, i) !== caml_string_unsafe_get(prefix, i))
        /*<<string.ml:206:55>>*/ return 0;
@@ -6713,8 +6830,9 @@
      _w_ =  /*<<string.ml:219:5>>*/ 0 <= diff ? 1 : 0;
     if(! _w_) return _w_;
     var i = 0;
-     /*<<string.ml:216:4>>*/ for(;;){
-     if(i === len_suf)  /*<<string.ml:216:24>>*/ return 1;
+    for(;;){
+      /*<<string.ml:216:4>>*/ if(i === len_suf)
+       /*<<string.ml:216:24>>*/ return 1;
       /*<<string.ml:217:9>>*/ if
       (caml_string_unsafe_get(s, diff + i | 0)
        !== caml_string_unsafe_get(suffix, i))
@@ -6742,7 +6860,7 @@
          _u_];
         /*<<string.ml:231:6>>*/ j[1] = i;
       }
-      var _v_ = i - 1 | 0;
+      var _v_ =  /*<<string.ml:229:4>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _v_;
      }
@@ -7176,7 +7294,7 @@
       i = _at_;
      }
     }
-    return 0;
+     /*<<array.ml:113:2>>*/ return 0;
     /*<<array.ml:113:53>>*/ }
    function iter2(f, a, b){
      /*<<array.ml:116:2>>*/ if(a.length - 1 !== b.length - 1)
@@ -7192,7 +7310,7 @@
       i = _aq_;
      }
     }
-    return 0;
+     /*<<array.ml:119:4>>*/ return 0;
     /*<<array.ml:119:73>>*/ }
    function map(f, a){
     var l =  /*<<array.ml:122:2>>*/ a.length - 1;
@@ -7227,7 +7345,7 @@
       i = _ak_;
      }
     }
-    return 0;
+     /*<<array.ml:132:2>>*/ return 0;
     /*<<array.ml:134:6>>*/ }
    function mapi_inplace(f, a){
     var _ag_ =  /*<<array.ml:137:2>>*/ a.length - 2 | 0, _af_ = 0;
@@ -7241,7 +7359,7 @@
       i = _ah_;
      }
     }
-    return 0;
+     /*<<array.ml:137:2>>*/ return 0;
     /*<<array.ml:139:6>>*/ }
    function map2(f, a, b){
     var
@@ -7280,7 +7398,7 @@
       i = _ab_;
      }
     }
-    return 0;
+     /*<<array.ml:157:2>>*/ return 0;
     /*<<array.ml:157:56>>*/ }
    function mapi(f, a){
     var l =  /*<<array.ml:160:2>>*/ a.length - 1;
@@ -7305,8 +7423,8 @@
     /*<<array.ml:167:5>>*/ }
    function to_list(a){
     var i$1 =  /*<<array.ml:172:2>>*/ a.length - 2 | 0, i = i$1, res = 0;
-     /*<<array.ml:171:4>>*/ for(;;){
-     if(0 > i)  /*<<array.ml:171:18>>*/ return res;
+    for(;;){
+      /*<<array.ml:171:4>>*/ if(0 > i)  /*<<array.ml:171:18>>*/ return res;
      var res$0 =  /*<<array.ml:171:57>>*/ [0, a[1 + i], res], i$0 = i - 1 | 0;
      i = i$0;
      res = res$0;
@@ -7314,9 +7432,12 @@
     /*<<array.ml:172:26>>*/ }
    function list_length(accu, param){
     var accu$0 = accu, param$0 = param;
-     /*<<array.ml:175:20>>*/ for(;;){
-     if(! param$0)  /*<<array.ml:176:10>>*/ return accu$0;
-     var t = param$0[2], accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
+    for(;;){
+      /*<<array.ml:175:20>>*/ if(! param$0)
+       /*<<array.ml:176:10>>*/ return accu$0;
+     var
+      t =  /*<<array.ml:175:20>>*/ param$0[2],
+      accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = t;
     }
@@ -7324,16 +7445,16 @@
    function of_list(l){
      /*<<array.ml:179:14>>*/ if(! l)  /*<<array.ml:180:10>>*/ return [0];
     var
-     tl = l[2],
+     tl =  /*<<array.ml:179:14>>*/ l[2],
      hd = l[1],
      a =
         /*<<array.ml:182:14>>*/ caml_make_vect
         ( /*<<array.ml:182:21>>*/ list_length(0, l), hd),
-     i = 1,
+     i =  /*<<array.ml:186:6>>*/ 1,
      param = tl;
-     /*<<array.ml:183:19>>*/ for(;;){
-     if(! param)  /*<<array.ml:184:16>>*/ return a;
-     var tl$0 = param[2], hd$0 = param[1];
+    for(;;){
+      /*<<array.ml:183:19>>*/ if(! param)  /*<<array.ml:184:16>>*/ return a;
+     var tl$0 =  /*<<array.ml:183:19>>*/ param[2], hd$0 = param[1];
       /*<<array.ml:185:20>>*/ a[1 + i] = hd$0;
      var i$0 =  /*<<array.ml:185:37>>*/ i + 1 | 0;
      i = i$0;
@@ -7403,9 +7524,11 @@
      /*<<array.ml:214:2>>*/ return r[1];
     /*<<array.ml:214:4>>*/ }
    function exists(p, a){
-    var n =  /*<<array.ml:217:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:219:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:219:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:217:2>>*/ a.length - 1,
+     i =  /*<<array.ml:222:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:219:4>>*/ if(i === n)  /*<<array.ml:219:18>>*/ return 0;
       /*<<array.ml:220:30>>*/ if
       ( /*<<array.ml:220:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:220:36>>*/ return 1;
@@ -7414,9 +7537,11 @@
     }
     /*<<array.ml:222:8>>*/ }
    function for_all(p, a){
-    var n =  /*<<array.ml:225:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:227:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:227:18>>*/ return 1;
+    var
+     n =  /*<<array.ml:225:2>>*/ a.length - 1,
+     i =  /*<<array.ml:230:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:227:4>>*/ if(i === n)  /*<<array.ml:227:18>>*/ return 1;
       /*<<array.ml:228:30>>*/ if
       (!  /*<<array.ml:228:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:229:9>>*/ return 0;
@@ -7428,9 +7553,9 @@
     var n1 =  /*<<array.ml:233:2>>*/ l1.length - 1, n2 = l2.length - 1;
      /*<<array.ml:235:2>>*/ if(n1 !== n2)
       /*<<array.ml:235:19>>*/ return caml_call1(Stdlib[1], cst_Array_for_all2) /*<<array.ml:240:8>>*/ ;
-    var i = 0;
-     /*<<array.ml:237:4>>*/ for(;;){
-     if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
+    var i =  /*<<array.ml:240:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:237:4>>*/ if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
       /*<<array.ml:238:49>>*/ if
       (!  /*<<array.ml:238:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:239:9>>*/ return 0;
@@ -7442,9 +7567,9 @@
     var n1 =  /*<<array.ml:243:2>>*/ l1.length - 1, n2 = l2.length - 1;
      /*<<array.ml:245:2>>*/ if(n1 !== n2)
       /*<<array.ml:245:19>>*/ return caml_call1(Stdlib[1], cst_Array_exists2) /*<<array.ml:250:8>>*/ ;
-    var i = 0;
-     /*<<array.ml:247:4>>*/ for(;;){
-     if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
+    var i =  /*<<array.ml:250:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:247:4>>*/ if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
       /*<<array.ml:248:49>>*/ if
       ( /*<<array.ml:248:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:248:55>>*/ return 1;
@@ -7453,9 +7578,11 @@
     }
     /*<<array.ml:250:8>>*/ }
    function mem(x, a){
-    var n =  /*<<array.ml:253:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:255:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:255:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:253:2>>*/ a.length - 1,
+     i =  /*<<array.ml:258:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:255:4>>*/ if(i === n)  /*<<array.ml:255:18>>*/ return 0;
       /*<<array.ml:256:38>>*/ if
       (0 ===  /*<<array.ml:256:12>>*/ runtime.caml_compare(a[1 + i], x))
        /*<<array.ml:256:48>>*/ return 1;
@@ -7464,9 +7591,11 @@
     }
     /*<<array.ml:258:8>>*/ }
    function memq(x, a){
-    var n =  /*<<array.ml:261:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:263:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:263:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:261:2>>*/ a.length - 1,
+     i =  /*<<array.ml:266:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:263:4>>*/ if(i === n)  /*<<array.ml:263:18>>*/ return 0;
       /*<<array.ml:264:33>>*/ if(x === a[1 + i])
        /*<<array.ml:264:39>>*/ return 1;
      var i$0 =  /*<<array.ml:265:9>>*/ i + 1 | 0;
@@ -7474,9 +7603,11 @@
     }
     /*<<array.ml:266:8>>*/ }
    function find_opt(p, a){
-    var n =  /*<<array.ml:269:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:271:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:271:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:269:2>>*/ a.length - 1,
+     i =  /*<<array.ml:277:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:271:4>>*/ if(i === n)  /*<<array.ml:271:18>>*/ return 0;
      var x =  /*<<array.ml:273:14>>*/ a[1 + i];
       /*<<array.ml:274:12>>*/ if( /*<<array.ml:274:9>>*/ caml_call1(p, x))
        /*<<array.ml:274:18>>*/ return [0, x];
@@ -7485,9 +7616,11 @@
     }
     /*<<array.ml:277:8>>*/ }
    function find_index(p, a){
-    var n =  /*<<array.ml:280:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:282:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:282:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:280:2>>*/ a.length - 1,
+     i =  /*<<array.ml:285:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:282:4>>*/ if(i === n)  /*<<array.ml:282:18>>*/ return 0;
       /*<<array.ml:283:30>>*/ if
       ( /*<<array.ml:283:12>>*/ caml_call1(p, a[1 + i]))
        /*<<array.ml:283:36>>*/ return [0, i];
@@ -7496,9 +7629,11 @@
     }
     /*<<array.ml:285:8>>*/ }
    function find_map(f, a){
-    var n =  /*<<array.ml:288:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:290:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:290:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:288:2>>*/ a.length - 1,
+     i =  /*<<array.ml:296:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:290:4>>*/ if(i === n)  /*<<array.ml:290:18>>*/ return 0;
      var r =  /*<<array.ml:292:12>>*/ caml_call1(f, a[1 + i]);
       /*<<array.ml:292:30>>*/ if(r)  /*<<array.ml:294:23>>*/ return r;
      var i$0 =  /*<<array.ml:293:16>>*/ i + 1 | 0;
@@ -7506,9 +7641,11 @@
     }
     /*<<array.ml:296:8>>*/ }
    function find_mapi(f, a){
-    var n =  /*<<array.ml:299:2>>*/ a.length - 1, i = 0;
-     /*<<array.ml:301:4>>*/ for(;;){
-     if(i === n)  /*<<array.ml:301:18>>*/ return 0;
+    var
+     n =  /*<<array.ml:299:2>>*/ a.length - 1,
+     i =  /*<<array.ml:307:2>>*/ 0;
+    for(;;){
+      /*<<array.ml:301:4>>*/ if(i === n)  /*<<array.ml:301:18>>*/ return 0;
      var r =  /*<<array.ml:303:12>>*/ caml_call2(f, i, a[1 + i]);
       /*<<array.ml:303:32>>*/ if(r)  /*<<array.ml:305:23>>*/ return r;
      var i$0 =  /*<<array.ml:304:16>>*/ i + 1 | 0;
@@ -7550,7 +7687,7 @@
      nb =  /*<<array.ml:326:2>>*/ b.length - 1;
      /*<<array.ml:327:2>>*/ if(na !== nb)
       /*<<array.ml:327:19>>*/ caml_call1(Stdlib[1], cst_Array_combine);
-    if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
+     /*<<array.ml:327:2>>*/ if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
     var
      x =  /*<<array.ml:330:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
      _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
@@ -7622,9 +7759,9 @@
      var i$6 = _x_;
      for(;;){
       var e$1 =  /*<<array.ml:378:50>>*/ caml_check_bound(a, i$6)[1 + i$6];
-      try{
-       var i = i$6;
-        /*<<array.ml:352:4>>*/ for(;;){
+       /*<<array.ml:360:22>>*/ try{
+       var i =  /*<<array.ml:360:26>>*/ i$6;
+       for(;;){
         var j =  /*<<array.ml:352:12>>*/ maxson(l, i);
          /*<<array.ml:353:22>>*/ if
          (0
@@ -7634,13 +7771,14 @@
          break;
         var _u_ =  /*<<array.ml:354:14>>*/ caml_check_bound(a, j)[1 + j];
          /*<<array.ml:354:6>>*/ caml_check_bound(a, i)[1 + i] = _u_;
-        i = j;
+         /*<<array.ml:354:23>>*/ i = j;
        }
         /*<<array.ml:356:13>>*/ 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);
+        /*<<?>>*/ if(exn[1] !== Bottom)
+        throw caml_maybe_attach_backtrace(exn, 0);
        var i$0 = exn[2];
         /*<<array.ml:360:61>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
@@ -7657,27 +7795,28 @@
        /*<<array.ml:381:4>>*/ a[1 + i$4] =
         /*<<array.ml:381:12>>*/ caml_check_bound(a, 0)[1];
       var i$5 =  /*<<array.ml:381:21>>*/ 0;
-      try{
-       var i$1 = i$5;
-        /*<<array.ml:362:4>>*/ for(;;){
+       /*<<array.ml:366:19>>*/ try{
+       var i$1 =  /*<<array.ml:366:23>>*/ i$5;
+       for(;;){
         var
          j$0 =  /*<<array.ml:362:12>>*/ maxson(i$4, i$1),
          _v_ =  /*<<array.ml:363:12>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<array.ml:363:4>>*/ caml_check_bound(a, i$1)[1 + i$1] = _v_;
-        i$1 = j$0;
+         /*<<array.ml:363:21>>*/ i$1 = j$0;
        }
       }
       catch(exn){
        var exn$0 = caml_wrap_exception(exn);
-       if(exn$0[1] !== Bottom) throw caml_maybe_attach_backtrace(exn$0, 0);
+        /*<<?>>*/ if(exn$0[1] !== Bottom)
+        throw caml_maybe_attach_backtrace(exn$0, 0);
        var i$2 = exn$0[2];
        a:
        {
         b:
         {
-         var i$3 = i$2;
-          /*<<array.ml:368:4>>*/ for(;;){
-          var father = (i$3 - 1 | 0) / 3 | 0;
+         var i$3 =  /*<<array.ml:382:4>>*/ i$2;
+         for(;;){
+          var father =  /*<<array.ml:368:4>>*/ (i$3 - 1 | 0) / 3 | 0;
            /*<<array.ml:369:4>>*/ if(i$3 === father)
            throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
            /*<<array.ml:370:27>>*/ if
@@ -7694,7 +7833,7 @@
               /*<<array.ml:371:14>>*/ caml_check_bound(a, father)[1 + father];
            /*<<array.ml:371:6>>*/ caml_check_bound(a, i$3)[1 + i$3] = _w_;
            /*<<array.ml:371:28>>*/ if(0 >= father) break b;
-          i$3 = father;
+           /*<<array.ml:372:25>>*/ i$3 = father;
          }
           /*<<array.ml:373:13>>*/ caml_check_bound(a, i$3)[1 + i$3] = e$0;
          break a;
@@ -7713,10 +7852,10 @@
       /*<<array.ml:384:38>>*/ a[2] =
        /*<<array.ml:384:46>>*/ caml_check_bound(a, 0)[1];
       /*<<array.ml:384:57>>*/ a[1] = e;
-     var _A_ = 0;
+     var _A_ =  /*<<array.ml:384:66>>*/ 0;
     }
     else
-     var _A_ = _z_;
+     var _A_ =  /*<<array.ml:384:2>>*/ _z_;
     return _A_;
     /*<<array.ml:384:67>>*/ }
    function stable_sort(cmp, a){
@@ -7728,12 +7867,12 @@
          /*<<array.ml:407:44>>*/ caml_check_bound(src2, src2ofs)[1 + src2ofs],
       s1$1 =
          /*<<array.ml:407:20>>*/ caml_check_bound(a, src1ofs)[1 + src1ofs],
-      i1 = src1ofs,
+      i1 =  /*<<array.ml:407:35>>*/ src1ofs,
       s1 = s1$1,
       i2 = src2ofs,
       s2 = s2$1,
       d = dstofs;
-      /*<<array.ml:392:6>>*/ for(;;)
+     for(;;)
        /*<<array.ml:392:18>>*/ if
        (0 <  /*<<array.ml:392:9>>*/ caml_call2(cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
@@ -7744,7 +7883,7 @@
        var
         d$0 =  /*<<array.ml:403:10>>*/ d + 1 | 0,
         s2$0 =  /*<<array.ml:403:24>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
-       i2 = i2$0;
+        /*<<array.ml:403:37>>*/ i2 = i2$0;
        s2 = s2$0;
        d = d$0;
       }
@@ -7757,7 +7896,7 @@
        var
         d$1 =  /*<<array.ml:396:10>>*/ d + 1 | 0,
         s1$0 =  /*<<array.ml:396:18>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
-       i1 = i1$0;
+        /*<<array.ml:396:28>>*/ i1 = i1$0;
        s1 = s1$0;
        d = d$1;
       }
@@ -7771,7 +7910,7 @@
         _n_ =  /*<<array.ml:411:6>>*/ srcofs + i | 0,
         e =  /*<<array.ml:411:14>>*/ caml_check_bound(a, _n_)[1 + _n_],
         j =  /*<<array.ml:412:6>>*/ [0, (dstofs + i | 0) - 1 | 0];
-       for(;;){
+        /*<<array.ml:413:6>>*/ for(;;){
         if(dstofs > j[1]) break;
         var _o_ = j[1];
          /*<<array.ml:413:47>>*/ if
@@ -7796,7 +7935,7 @@
        i = _t_;
       }
      }
-     return 0;
+      /*<<array.ml:410:4>>*/ return 0;
      /*<<array.ml:418:8>>*/ }
     function sortto(srcofs, dst, dstofs, len){
       /*<<array.ml:421:4>>*/ if(len <= 5)
@@ -7838,7 +7977,7 @@
       i = _k_;
      }
     }
-    return 0;
+     /*<<array.ml:443:2>>*/ return 0;
     /*<<array.ml:448:6>>*/ }
    function to_seq(a){
     function aux(i, param){
@@ -7882,16 +8021,16 @@
          i$2);
      /*<<array.ml:472:18>>*/ if(! l)  /*<<array.ml:473:10>>*/ return [0];
     var
-     tl = l[2],
+     tl =  /*<<array.ml:472:18>>*/ l[2],
      hd = l[1],
      len =  /*<<array.ml:475:16>>*/ list_length(0, l),
      a =  /*<<array.ml:476:14>>*/ caml_make_vect(len, hd),
      i$1 =  /*<<array.ml:481:6>>*/ len - 2 | 0,
      i = i$1,
      param = tl;
-     /*<<array.ml:477:19>>*/ for(;;){
-     if(! param)  /*<<array.ml:478:16>>*/ return a;
-     var tl$0 = param[2], hd$0 = param[1];
+    for(;;){
+      /*<<array.ml:477:19>>*/ if(! param)  /*<<array.ml:478:16>>*/ return a;
+     var tl$0 =  /*<<array.ml:477:19>>*/ param[2], hd$0 = param[1];
       /*<<array.ml:479:20>>*/ a[1 + i] = hd$0;
      var i$0 =  /*<<array.ml:479:37>>*/ i - 1 | 0;
      i = i$0;
@@ -8136,7 +8275,7 @@
       i = _aW_;
      }
     }
-    return 0;
+     /*<<float.ml:184:4>>*/ return 0;
     /*<<float.ml:184:57>>*/ }
    function check(a, ofs, len, msg){
     var _aR_ =  /*<<float.ml:190:4>>*/ ofs < 0 ? 1 : 0;
@@ -8247,9 +8386,9 @@
      /*<<float.ml:238:33>>*/ return result;
     /*<<float.ml:239:10>>*/ }
    function concat(l){
-    var acc = 0, param = l;
-     /*<<float.ml:245:22>>*/ for(;;){
-     if(! param) break;
+    var acc =  /*<<float.ml:250:14>>*/ 0, param = l;
+    for(;;){
+      /*<<float.ml:245:22>>*/ if(! param) break;
      var
       tl = param[2],
       hd = param[1],
@@ -8259,21 +8398,22 @@
          ? x
          :  /*<<float.ml:243:26>>*/ caml_call1
            (Stdlib[1], cst_Float_Array_concat);
-     acc = acc$0;
+      /*<<float.ml:247:63>>*/ acc = acc$0;
      param = tl;
     }
     var
      result =  /*<<float.ml:251:17>>*/ caml_floatarray_create(acc),
-     l$0 = l,
+     l$0 =  /*<<float.ml:260:4>>*/ l,
      i = 0;
-     /*<<float.ml:253:6>>*/ for(;;){
-     if(! l$0){
+    for(;;){
+      /*<<float.ml:253:6>>*/ if(! l$0){
        /*<<float.ml:254:14>>*/ if(i === acc)
         /*<<float.ml:260:12>>*/ return result;
-      throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
+       /*<<float.ml:254:14>>*/ throw caml_maybe_attach_backtrace
+             ([0, Assert_failure, _a_], 1);
      }
      var
-      tl$0 = l$0[2],
+      tl$0 =  /*<<float.ml:253:6>>*/ l$0[2],
       hd$0 = l$0[1],
       hlen =  /*<<float.ml:256:8>>*/ hd$0.length - 1;
       /*<<float.ml:257:8>>*/ caml_floatarray_blit(hd$0, 0, result, i, hlen);
@@ -8316,11 +8456,11 @@
      result =
         /*<<float.ml:288:17>>*/ caml_floatarray_create
         ( /*<<float.ml:288:24>>*/ caml_call1(Stdlib_List[1], l)),
-     i = 0,
+     i =  /*<<float.ml:294:4>>*/ 0,
      l$0 = l;
-     /*<<float.ml:290:6>>*/ for(;;){
-     if(! l$0)  /*<<float.ml:291:14>>*/ return result;
-     var t = l$0[2], h = l$0[1];
+    for(;;){
+      /*<<float.ml:290:6>>*/ if(! l$0)  /*<<float.ml:291:14>>*/ return result;
+     var t =  /*<<float.ml:290:6>>*/ l$0[2], h = l$0[1];
       /*<<float.ml:292:18>>*/ result[1 + i] = h;
      var i$0 =  /*<<float.ml:292:39>>*/ i + 1 | 0;
      i = i$0;
@@ -8338,7 +8478,7 @@
       i = _aD_;
      }
     }
-    return 0;
+     /*<<float.ml:298:4>>*/ return 0;
     /*<<float.ml:298:56>>*/ }
    function iter2(f, a, b){
      /*<<float.ml:302:4>>*/ if(a.length - 1 !== b.length - 1)
@@ -8354,7 +8494,7 @@
       i = _aA_;
      }
     }
-    return 0;
+     /*<<float.ml:305:6>>*/ return 0;
     /*<<float.ml:305:75>>*/ }
    function map(f, a){
     var
@@ -8386,7 +8526,7 @@
       i = _au_;
      }
     }
-    return 0;
+     /*<<float.ml:317:4>>*/ return 0;
     /*<<float.ml:319:8>>*/ }
    function map2(f, a, b){
     var
@@ -8422,7 +8562,7 @@
       i = _ao_;
      }
     }
-    return 0;
+     /*<<float.ml:336:4>>*/ return 0;
     /*<<float.ml:336:58>>*/ }
    function mapi(f, a){
     var
@@ -8454,7 +8594,7 @@
       i = _ai_;
      }
     }
-    return 0;
+     /*<<float.ml:348:4>>*/ return 0;
     /*<<float.ml:350:8>>*/ }
    function fold_left(f, x, a){
     var
@@ -8490,9 +8630,11 @@
      /*<<float.ml:366:4>>*/ return r[1];
     /*<<float.ml:366:6>>*/ }
    function exists(p, a){
-    var n =  /*<<float.ml:370:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:372:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:372:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:370:4>>*/ a.length - 1,
+     i =  /*<<float.ml:375:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:372:6>>*/ if(i === n)  /*<<float.ml:372:20>>*/ return 0;
       /*<<float.ml:373:32>>*/ if
       ( /*<<float.ml:373:14>>*/ caml_call1(p, a[1 + i]))
        /*<<float.ml:373:38>>*/ return 1;
@@ -8501,9 +8643,11 @@
     }
     /*<<float.ml:375:10>>*/ }
    function for_all(p, a){
-    var n =  /*<<float.ml:379:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:381:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:381:20>>*/ return 1;
+    var
+     n =  /*<<float.ml:379:4>>*/ a.length - 1,
+     i =  /*<<float.ml:384:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:381:6>>*/ if(i === n)  /*<<float.ml:381:20>>*/ return 1;
       /*<<float.ml:382:32>>*/ if
       (!  /*<<float.ml:382:14>>*/ caml_call1(p, a[1 + i]))
        /*<<float.ml:383:11>>*/ return 0;
@@ -8512,9 +8656,11 @@
     }
     /*<<float.ml:384:10>>*/ }
    function mem(x, a){
-    var n =  /*<<float.ml:388:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:390:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:390:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:388:4>>*/ a.length - 1,
+     i =  /*<<float.ml:394:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:390:6>>*/ if(i === n)  /*<<float.ml:390:20>>*/ return 0;
       /*<<float.ml:391:38>>*/ if(0 === caml_float_compare(a[1 + i], x))
        /*<<float.ml:391:50>>*/ return 1;
      var i$0 =  /*<<float.ml:392:11>>*/ i + 1 | 0;
@@ -8522,9 +8668,11 @@
     }
     /*<<float.ml:394:10>>*/ }
    function mem_ieee(x, a){
-    var n =  /*<<float.ml:398:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:400:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:400:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:398:4>>*/ a.length - 1,
+     i =  /*<<float.ml:404:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:400:6>>*/ if(i === n)  /*<<float.ml:400:20>>*/ return 0;
       /*<<float.ml:401:34>>*/ if(x === a[1 + i])
        /*<<float.ml:401:40>>*/ return 1;
      var i$0 =  /*<<float.ml:402:11>>*/ i + 1 | 0;
@@ -8532,9 +8680,11 @@
     }
     /*<<float.ml:404:10>>*/ }
    function find_opt(p, a){
-    var n =  /*<<float.ml:408:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:410:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:410:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:408:4>>*/ a.length - 1,
+     i =  /*<<float.ml:416:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:410:6>>*/ if(i === n)  /*<<float.ml:410:20>>*/ return 0;
      var x =  /*<<float.ml:412:16>>*/ a[1 + i];
       /*<<float.ml:413:14>>*/ if( /*<<float.ml:413:11>>*/ caml_call1(p, x))
        /*<<float.ml:413:20>>*/ return [0, x];
@@ -8543,9 +8693,11 @@
     }
     /*<<float.ml:416:10>>*/ }
    function find_index(p, a){
-    var n =  /*<<float.ml:420:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:422:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:422:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:420:4>>*/ a.length - 1,
+     i =  /*<<float.ml:425:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:422:6>>*/ if(i === n)  /*<<float.ml:422:20>>*/ return 0;
       /*<<float.ml:423:32>>*/ if
       ( /*<<float.ml:423:14>>*/ caml_call1(p, a[1 + i]))
        /*<<float.ml:423:38>>*/ return [0, i];
@@ -8554,9 +8706,11 @@
     }
     /*<<float.ml:425:10>>*/ }
    function find_map(f, a){
-    var n =  /*<<float.ml:429:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:431:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:431:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:429:4>>*/ a.length - 1,
+     i =  /*<<float.ml:437:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:431:6>>*/ if(i === n)  /*<<float.ml:431:20>>*/ return 0;
      var r =  /*<<float.ml:433:14>>*/ caml_call1(f, a[1 + i]);
       /*<<float.ml:433:32>>*/ if(r)  /*<<float.ml:435:25>>*/ return r;
      var i$0 =  /*<<float.ml:434:18>>*/ i + 1 | 0;
@@ -8564,9 +8718,11 @@
     }
     /*<<float.ml:437:10>>*/ }
    function find_mapi(f, a){
-    var n =  /*<<float.ml:441:4>>*/ a.length - 1, i = 0;
-     /*<<float.ml:443:6>>*/ for(;;){
-     if(i === n)  /*<<float.ml:443:20>>*/ return 0;
+    var
+     n =  /*<<float.ml:441:4>>*/ a.length - 1,
+     i =  /*<<float.ml:449:4>>*/ 0;
+    for(;;){
+      /*<<float.ml:443:6>>*/ if(i === n)  /*<<float.ml:443:20>>*/ return 0;
      var r =  /*<<float.ml:445:14>>*/ caml_call2(f, i, a[1 + i]);
       /*<<float.ml:445:34>>*/ if(r)  /*<<float.ml:447:25>>*/ return r;
      var i$0 =  /*<<float.ml:446:18>>*/ i + 1 | 0;
@@ -8632,9 +8788,9 @@
      var i$6 = _Q_;
      for(;;){
       var e$1 =  /*<<float.ml:493:52>>*/ caml_check_bound(a, i$6)[1 + i$6];
-      try{
-       var i = i$6;
-        /*<<float.ml:467:6>>*/ for(;;){
+       /*<<float.ml:475:24>>*/ try{
+       var i =  /*<<float.ml:475:28>>*/ i$6;
+       for(;;){
         var j =  /*<<float.ml:467:14>>*/ maxson(l, i);
          /*<<float.ml:468:24>>*/ if
          (0
@@ -8644,13 +8800,14 @@
          break;
         var _N_ =  /*<<float.ml:469:16>>*/ caml_check_bound(a, j)[1 + j];
          /*<<float.ml:469:8>>*/ caml_check_bound(a, i)[1 + i] = _N_;
-        i = j;
+         /*<<float.ml:469:25>>*/ i = j;
        }
         /*<<float.ml:471: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);
+        /*<<?>>*/ 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;
       }
@@ -8667,27 +8824,28 @@
        /*<<float.ml:496:6>>*/ a[1 + i$4] =
         /*<<float.ml:496:14>>*/ caml_check_bound(a, 0)[1];
       var i$5 =  /*<<float.ml:496:23>>*/ 0;
-      try{
-       var i$1 = i$5;
-        /*<<float.ml:477:6>>*/ for(;;){
+       /*<<float.ml:481:21>>*/ try{
+       var i$1 =  /*<<float.ml:481:25>>*/ i$5;
+       for(;;){
         var
          j$0 =  /*<<float.ml:477:14>>*/ maxson(i$4, i$1),
          _O_ =  /*<<float.ml:478:14>>*/ caml_check_bound(a, j$0)[1 + j$0];
          /*<<float.ml:478:6>>*/ caml_check_bound(a, i$1)[1 + i$1] = _O_;
-        i$1 = j$0;
+         /*<<float.ml:478:23>>*/ i$1 = j$0;
        }
       }
       catch(exn){
        var exn$0 = caml_wrap_exception(exn);
-       if(exn$0[1] !== Bottom) throw caml_maybe_attach_backtrace(exn$0, 0);
+        /*<<?>>*/ if(exn$0[1] !== Bottom)
+        throw caml_maybe_attach_backtrace(exn$0, 0);
        var i$2 = exn$0[2];
        a:
        {
         b:
         {
-         var i$3 = i$2;
-          /*<<float.ml:483:6>>*/ for(;;){
-          var father = (i$3 - 1 | 0) / 3 | 0;
+         var i$3 =  /*<<float.ml:497:6>>*/ i$2;
+         for(;;){
+          var father =  /*<<float.ml:483:6>>*/ (i$3 - 1 | 0) / 3 | 0;
            /*<<float.ml:484:6>>*/ if(i$3 === father)
            throw caml_maybe_attach_backtrace([0, Assert_failure, _b_], 1);
            /*<<float.ml:485:29>>*/ if
@@ -8704,7 +8862,7 @@
               /*<<float.ml:486:16>>*/ caml_check_bound(a, father)[1 + father];
            /*<<float.ml:486:8>>*/ caml_check_bound(a, i$3)[1 + i$3] = _P_;
            /*<<float.ml:486:30>>*/ if(0 >= father) break b;
-          i$3 = father;
+           /*<<float.ml:487:27>>*/ i$3 = father;
          }
           /*<<float.ml:488:15>>*/ caml_check_bound(a, i$3)[1 + i$3] = e$0;
          break a;
@@ -8723,10 +8881,10 @@
       /*<<float.ml:499:40>>*/ a[2] =
        /*<<float.ml:499:48>>*/ caml_check_bound(a, 0)[1];
       /*<<float.ml:499:59>>*/ a[1] = e;
-     var _T_ = 0;
+     var _T_ =  /*<<float.ml:499:68>>*/ 0;
     }
     else
-     var _T_ = _S_;
+     var _T_ =  /*<<float.ml:499:4>>*/ _S_;
     return _T_;
     /*<<float.ml:499:69>>*/ }
    function stable_sort(cmp, a){
@@ -8738,12 +8896,12 @@
          /*<<float.ml:522:46>>*/ caml_check_bound(src2, src2ofs)[1 + src2ofs],
       s1$1 =
          /*<<float.ml:522:22>>*/ caml_check_bound(a, src1ofs)[1 + src1ofs],
-      i1 = src1ofs,
+      i1 =  /*<<float.ml:522:37>>*/ src1ofs,
       s1 = s1$1,
       i2 = src2ofs,
       s2 = s2$1,
       d = dstofs;
-      /*<<float.ml:507:8>>*/ for(;;)
+     for(;;)
        /*<<float.ml:507:20>>*/ if
        (0 <  /*<<float.ml:507:11>>*/ caml_call2(cmp, s1, s2)){
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
@@ -8754,7 +8912,7 @@
        var
         d$0 =  /*<<float.ml:518:12>>*/ d + 1 | 0,
         s2$0 =  /*<<float.ml:518:26>>*/ caml_check_bound(src2, i2$0)[1 + i2$0];
-       i2 = i2$0;
+        /*<<float.ml:518:39>>*/ i2 = i2$0;
        s2 = s2$0;
        d = d$0;
       }
@@ -8767,7 +8925,7 @@
        var
         d$1 =  /*<<float.ml:511:12>>*/ d + 1 | 0,
         s1$0 =  /*<<float.ml:511:20>>*/ caml_check_bound(a, i1$0)[1 + i1$0];
-       i1 = i1$0;
+        /*<<float.ml:511:30>>*/ i1 = i1$0;
        s1 = s1$0;
        d = d$1;
       }
@@ -8781,7 +8939,7 @@
         _G_ =  /*<<float.ml:526:8>>*/ srcofs + i | 0,
         e =  /*<<float.ml:526:16>>*/ caml_check_bound(a, _G_)[1 + _G_],
         j =  /*<<float.ml:527:8>>*/ [0, (dstofs + i | 0) - 1 | 0];
-       for(;;){
+        /*<<float.ml:528:8>>*/ for(;;){
         if(dstofs > j[1]) break;
         var _H_ = j[1];
          /*<<float.ml:528:49>>*/ if
@@ -8806,7 +8964,7 @@
        i = _M_;
       }
      }
-     return 0;
+      /*<<float.ml:525:6>>*/ return 0;
      /*<<float.ml:533:10>>*/ }
     function sortto(srcofs, dst, dstofs, len){
       /*<<float.ml:536:6>>*/ if(len <= 5)
@@ -8846,7 +9004,7 @@
       i = _D_;
      }
     }
-    return 0;
+     /*<<float.ml:558:4>>*/ return 0;
     /*<<float.ml:563:8>>*/ }
    function to_seq(a){
     function aux(i, param){
@@ -8893,9 +9051,9 @@
      i$1 =  /*<<float.ml:595:4>>*/ len - 1 | 0,
      i = i$1,
      param = l;
-     /*<<float.ml:591:17>>*/ for(;;){
-     if(! param)  /*<<float.ml:592:14>>*/ return a;
-     var tl = param[2], hd = param[1];
+    for(;;){
+      /*<<float.ml:591:17>>*/ if(! param)  /*<<float.ml:592:14>>*/ return a;
+     var tl =  /*<<float.ml:591:17>>*/ param[2], hd = param[1];
       /*<<float.ml:593:18>>*/ a[1 + i] = hd;
      var i$0 =  /*<<float.ml:593:35>>*/ i - 1 | 0;
      i = i$0;
@@ -9120,7 +9278,7 @@
     var
      max_int$0 =  /*<<int32.ml:58:6>>*/ Stdlib[19],
      unsigned_to_int =
-       function(n){
+        /*<<int32.ml:59:6>>*/ function(n){
          /*<<int32.ml:60:8>>*/ if
          ( /*<<int32.ml:60:11>>*/ caml_greaterequal(n, 0)
           &&  /*<<int32.ml:60:22>>*/ caml_lessequal(n, max_int$0))
@@ -9133,7 +9291,7 @@
             ([0, Assert_failure, _b_], 1);
     var
      unsigned_to_int =
-       function(n){
+        /*<<int32.ml:67:6>>*/ function(n){
          /*<<int32.ml:67:15>>*/ return [0, n & -1];
         /*<<int32.ml:67:40>>*/ };
    }
@@ -9150,8 +9308,8 @@
     }
     catch(_e_){
      var _c_ = caml_wrap_exception(_e_);
-     if(_c_[1] === Stdlib[7])  /*<<int32.ml:78:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_c_, 0);
+      /*<<?>>*/ if(_c_[1] === Stdlib[7])  /*<<int32.ml:78:20>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<int32.ml:78:24>>*/ }
    var compare = caml_int_compare, equal = runtime.caml_equal;
@@ -9304,8 +9462,8 @@
     }
     catch(_h_){
      var _f_ = caml_wrap_exception(_h_);
-     if(_f_[1] === Stdlib[7])  /*<<int64.ml:68:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_f_, 0);
+      /*<<?>>*/ if(_f_[1] === Stdlib[7])  /*<<int64.ml:68:20>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_f_, 0);
     }
     /*<<int64.ml:68:24>>*/ }
    function compare(x, y){
@@ -9457,8 +9615,8 @@
     }
     catch(_c_){
      var _a_ = caml_wrap_exception(_c_);
-     if(_a_[1] === Stdlib[7])  /*<<nativeint.ml:67:20>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_a_, 0);
+      /*<<?>>*/ if(_a_[1] === Stdlib[7])  /*<<nativeint.ml:67:20>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_a_, 0);
     }
     /*<<nativeint.ml:67:24>>*/ }
    var compare =  /*<<nativeint.ml:54:2>>*/ caml_int_compare;
@@ -9695,7 +9853,7 @@
                  v =  /*<<lexing.ml:131:14>>*/ caml_check_bound(t, i)[1 + i];
                  /*<<lexing.ml:132:6>>*/ if(0 <= v)
                   /*<<lexing.ml:133:8>>*/ caml_check_bound(t, i)[1 + i] = v - s | 0;
-                var _j_ = i + 1 | 0;
+                var _j_ =  /*<<lexing.ml:132:6>>*/ i + 1 | 0;
                 if(_i_ === i) break;
                 i = _j_;
                }
@@ -9737,7 +9895,7 @@
              return 0;
              /*<<lexing.ml:166:63>>*/ },
              /*<<lexing.ml:167:17>>*/ caml_call1(Stdlib_Bytes[5], s),
-            runtime.caml_ml_string_length(s),
+             /*<<lexing.ml:166:2>>*/ runtime.caml_ml_string_length(s),
             0,
             0,
             0,
@@ -9954,9 +10112,9 @@
      /*<<parsing.ml:161:2>>*/ env[6] = env[14] + 1 | 0;
      /*<<parsing.ml:162:2>>*/ env[7] = start;
      /*<<parsing.ml:163:2>>*/ env[10] = lexbuf[12];
-    try{
-     var cmd = 0, arg = 0;
-      /*<<parsing.ml:132:4>>*/ for(;;)
+     /*<<parsing.ml:164:2>>*/ try{
+     var cmd =  /*<<parsing.ml:165:4>>*/ 0, arg = 0;
+     for(;;)
        /*<<parsing.ml:132:41>>*/ switch
        ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
          (tables, env, cmd, arg)){
@@ -9964,18 +10122,24 @@
          var arg$0 =  /*<<parsing.ml:134:24>>*/ caml_call1(lexer, lexbuf);
           /*<<parsing.ml:135:8>>*/ env[9] = lexbuf[11];
           /*<<parsing.ml:136:8>>*/ env[10] = lexbuf[12];
-         cmd = 1;
+          /*<<parsing.ml:137:8>>*/ cmd = 1;
          arg = arg$0;
          break;
         case 1:
           /*<<parsing.ml:139:8>>*/ throw caml_maybe_attach_backtrace
                 (Parse_error, 1);
         case 2:
-          /*<<parsing.ml:148:8>>*/ grow_stacks(0); cmd = 2; arg = 0; break;
+          /*<<parsing.ml:148:8>>*/ grow_stacks(0);
+          /*<<parsing.ml:148:21>>*/ cmd = 2;
+         arg = 0;
+         break;
         case 3:
-          /*<<parsing.ml:150:8>>*/ grow_stacks(0); cmd = 3; arg = 0; break;
+          /*<<parsing.ml:150:8>>*/ grow_stacks(0);
+          /*<<parsing.ml:150:21>>*/ cmd = 3;
+         arg = 0;
+         break;
         case 4:
-         try{
+          /*<<parsing.ml:141:8>>*/ try{
           var
            _i_ = env[13],
            _j_ =
@@ -9987,15 +10151,16 @@
          }
          catch(_m_){
           var _h_ = caml_wrap_exception(_m_);
-          if(_h_ !== Parse_error) throw caml_maybe_attach_backtrace(_h_, 0);
-          var value = 0, action = 5;
+           /*<<?>>*/ if(_h_ !== Parse_error)
+           throw caml_maybe_attach_backtrace(_h_, 0);
+          var value =  /*<<parsing.ml:145:12>>*/ 0, action = 5;
          }
-         cmd = action;
+          /*<<parsing.ml:146:8>>*/ cmd = action;
          arg = value;
          break;
         default:
           /*<<parsing.ml:152:8>>*/ caml_call1(tables[14], cst_syntax_error);
-         cmd = 5;
+          /*<<parsing.ml:152:44>>*/ cmd = 5;
          arg = 0;
       }
     }
@@ -10043,8 +10208,8 @@
    }
    function symbol_start_pos(param){
     var i$1 =  /*<<parsing.ml:198:2>>*/ env[12], i = i$1;
-     /*<<parsing.ml:191:4>>*/ for(;;){
-     if(0 >= i){
+    for(;;){
+      /*<<parsing.ml:191:4>>*/ if(0 >= i){
       var _f_ =  /*<<parsing.ml:191:19>>*/ env[11];
        /*<<parsing.ml:191:47>>*/ return  /*<<parsing.ml:191:19>>*/ caml_check_bound
                (env[4], _f_)
@@ -10165,26 +10330,35 @@
        function(Ord){
         function height(param){
           /*<<set.ml:81:17>>*/ if(! param)  /*<<set.ml:82:17>>*/ return 0;
-         var h = param[4];
+         var h =  /*<<set.ml:81:17>>*/ param[4];
           /*<<set.ml:83:20>>*/ return h;
          /*<<set.ml:83:21>>*/ }
         function create(l, v, r){
-          /*<<set.ml:91:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
-          /*<<set.ml:92:6>>*/ if(r) var h$0 = r[4], hr = h$0; else var hr = 0;
+          /*<<set.ml:91:6>>*/ if(l)
+          var h = l[4], hl =  /*<<set.ml:91:53>>*/ h;
+         else
+          var hl =  /*<<set.ml:91:37>>*/ 0;
+          /*<<set.ml:92:6>>*/ if(r)
+          var h$0 = r[4], hr =  /*<<set.ml:92:53>>*/ h$0;
+         else
+          var hr =  /*<<set.ml:92:37>>*/ 0;
          var _Y_ =  /*<<set.ml:93:6>>*/ hr <= hl ? hl + 1 | 0 : hr + 1 | 0;
          return [0, l, v, r, _Y_];
          /*<<set.ml:93:60>>*/ }
         function bal(l, v, r){
-          /*<<set.ml:101:6>>*/ if(l) var h = l[4], hl = h; else var hl = 0;
+          /*<<set.ml:101:6>>*/ if(l)
+          var h = l[4], hl =  /*<<set.ml:101:53>>*/ h;
+         else
+          var hl =  /*<<set.ml:101:37>>*/ 0;
           /*<<set.ml:102:6>>*/ if(r)
-          var h$0 = r[4], hr = h$0;
+          var h$0 = r[4], hr =  /*<<set.ml:102:53>>*/ h$0;
          else
-          var hr = 0;
+          var hr =  /*<<set.ml:102:37>>*/ 0;
           /*<<set.ml:103:6>>*/ if((hr + 2 | 0) < hl){
            /*<<set.ml:103:26>>*/ if(! l)
             /*<<set.ml:105:19>>*/ return caml_call1(Stdlib[1], cst_Set_bal$0) /*<<set.ml:128:62>>*/ ;
           var
-           lr = l[3],
+           lr =  /*<<set.ml:103:26>>*/ l[3],
            lv = l[2],
            ll = l[1],
            _T_ =  /*<<set.ml:107:28>>*/ height(lr);
@@ -10194,7 +10368,7 @@
            /*<<set.ml:109:17>>*/ if(! lr)
             /*<<set.ml:111:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
           var
-           lrr = lr[3],
+           lrr =  /*<<set.ml:109:17>>*/ lr[3],
            lrv = lr[2],
            lrl = lr[1],
            _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
@@ -10208,7 +10382,7 @@
           /*<<set.ml:115:35>>*/ if(! r)
            /*<<set.ml:117:19>>*/ return caml_call1(Stdlib[1], cst_Set_bal$2) /*<<set.ml:128:62>>*/ ;
          var
-          rr = r[3],
+          rr =  /*<<set.ml:115:35>>*/ r[3],
           rv = r[2],
           rl = r[1],
           _V_ =  /*<<set.ml:119:28>>*/ height(rl);
@@ -10218,7 +10392,7 @@
           /*<<set.ml:121:17>>*/ if(! rl)
            /*<<set.ml:123:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
          var
-          rlr = rl[3],
+          rlr =  /*<<set.ml:121:17>>*/ rl[3],
           rlv = rl[2],
           rll = rl[1],
           _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
@@ -10229,7 +10403,7 @@
           /*<<set.ml:132:16>>*/ if(! t)
            /*<<set.ml:133:17>>*/ return [0, 0, x, 0, 1];
          var
-          r = t[3],
+          r =  /*<<set.ml:132:16>>*/ t[3],
           v = t[2],
           l = t[1],
           c =  /*<<set.ml:135:18>>*/ caml_call2(Ord[1], x, v);
@@ -10251,23 +10425,24 @@
         function add_min_element(x, param){
           /*<<set.ml:153:28>>*/ if(! param)
            /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:156:37>>*/ ;
-         var r = param[3], v = param[2], l = param[1];
+         var r =  /*<<set.ml:153:28>>*/ param[3], v = param[2], l = param[1];
           /*<<set.ml:156:33>>*/ return bal
                  ( /*<<set.ml:156:12>>*/ add_min_element(x, l), v, r) /*<<set.ml:156:37>>*/ ;
         }
         function add_max_element(x, param){
           /*<<set.ml:158:28>>*/ if(! param)
            /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:161:37>>*/ ;
-         var r = param[3], v = param[2], l = param[1];
-         return bal(l, v,  /*<<set.ml:161:16>>*/ add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
+         var r =  /*<<set.ml:158:28>>*/ param[3], v = param[2], l = param[1];
+          /*<<set.ml:161:37>>*/ return bal
+                 (l, v,  /*<<set.ml:161:16>>*/ add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
         }
         function join(l, v, r){
           /*<<set.ml:167:6>>*/ if(! l)
            /*<<set.ml:168:22>>*/ return add_min_element(v, r) /*<<set.ml:173:22>>*/ ;
-         if(! r)
+          /*<<set.ml:167:6>>*/ if(! r)
            /*<<set.ml:169:22>>*/ return add_max_element(v, l) /*<<set.ml:173:22>>*/ ;
          var
-          rh = r[4],
+          rh =  /*<<set.ml:167:6>>*/ r[4],
           rr = r[3],
           rv = r[2],
           rl = r[1],
@@ -10288,66 +10463,68 @@
         }
         function min_elt(param){
          var param$0 = param;
-          /*<<set.ml:177:22>>*/ for(;;){
-          if(! param$0)
+         for(;;){
+           /*<<set.ml:177:22>>*/ if(! param$0)
             /*<<set.ml:178:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          var l = param$0[1];
+          var l =  /*<<set.ml:177:22>>*/ param$0[1];
           if(! l){var v = param$0[2];  /*<<set.ml:179:28>>*/ return v;}
-          param$0 = l;
+           /*<<set.ml:180:19>>*/ param$0 = l;
          }
          /*<<set.ml:180:28>>*/ }
         function min_elt_opt(param){
          var param$0 = param;
-          /*<<set.ml:182:26>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:183:17>>*/ return 0;
-          var l = param$0[1];
+         for(;;){
+           /*<<set.ml:182:26>>*/ if(! param$0)
+            /*<<set.ml:183:17>>*/ return 0;
+          var l =  /*<<set.ml:182:26>>*/ param$0[1];
           if(! l){var v = param$0[2];  /*<<set.ml:184:28>>*/ return [0, v];}
-          param$0 = l;
+           /*<<set.ml:185:19>>*/ param$0 = l;
          }
          /*<<set.ml:185:32>>*/ }
         function max_elt(param){
          var param$0 = param;
-          /*<<set.ml:187:22>>*/ for(;;){
-          if(! param$0)
+         for(;;){
+           /*<<set.ml:187:22>>*/ if(! param$0)
             /*<<set.ml:188:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          if(! param$0[3]){
+           /*<<set.ml:187:22>>*/ if(! param$0[3]){
            var v = param$0[2];
             /*<<set.ml:189:28>>*/ return v;
           }
-          var r = param$0[3];
-          param$0 = r;
+          var r =  /*<<set.ml:187:22>>*/ param$0[3];
+           /*<<set.ml:190:19>>*/ param$0 = r;
          }
          /*<<set.ml:190:28>>*/ }
         function max_elt_opt(param){
          var param$0 = param;
-          /*<<set.ml:192:26>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:193:17>>*/ return 0;
-          if(! param$0[3]){
+         for(;;){
+           /*<<set.ml:192:26>>*/ if(! param$0)
+            /*<<set.ml:193:17>>*/ return 0;
+           /*<<set.ml:192:26>>*/ if(! param$0[3]){
            var v = param$0[2];
             /*<<set.ml:194:28>>*/ return [0, v];
           }
-          var r = param$0[3];
-          param$0 = r;
+          var r =  /*<<set.ml:192:26>>*/ param$0[3];
+           /*<<set.ml:195:19>>*/ param$0 = r;
          }
          /*<<set.ml:195:32>>*/ }
         function remove_min_elt(param){
           /*<<set.ml:199:29>>*/ if(! param)
            /*<<set.ml:200:17>>*/ return caml_call1
                   (Stdlib[1], cst_Set_remove_min_elt) /*<<set.ml:202:51>>*/ ;
-         var l = param[1];
+         var l =  /*<<set.ml:199:29>>*/ param[1];
          if(l){
           var r = param[3], v = param[2];
            /*<<set.ml:202:47>>*/ return bal
                   ( /*<<set.ml:202:29>>*/ remove_min_elt(l), v, r) /*<<set.ml:202:51>>*/ ;
          }
-         var r$0 = param[3];
+         var r$0 =  /*<<set.ml:199:29>>*/ param[3];
           /*<<set.ml:201:28>>*/ return r$0;
          /*<<set.ml:202:51>>*/ }
         function concat(t1, t2){
           /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
-         if(! t2)  /*<<set.ml:221:22>>*/ return t1;
+          /*<<set.ml:219:6>>*/ if(! t2)  /*<<set.ml:221:22>>*/ return t1;
          var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
           /*<<set.ml:222:38>>*/ return join
                  (t1,  /*<<set.ml:222:26>>*/ min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
@@ -10355,7 +10532,7 @@
         function split(x, param){
           /*<<set.ml:230:18>>*/ if(! param)  /*<<set.ml:232:10>>*/ return _a_;
          var
-          r = param[3],
+          r =  /*<<set.ml:230:18>>*/ param[3],
           v = param[2],
           l = param[1],
           c =  /*<<set.ml:234:18>>*/ caml_call2(Ord[1], x, v);
@@ -10388,10 +10565,11 @@
         }
         function mem(x, param){
          var param$0 = param;
-          /*<<set.ml:247:16>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:248:17>>*/ return 0;
+         for(;;){
+           /*<<set.ml:247:16>>*/ if(! param$0)
+            /*<<set.ml:248:17>>*/ return 0;
           var
-           r = param$0[3],
+           r =  /*<<set.ml:247:16>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
            c =  /*<<set.ml:250:18>>*/ caml_call2(Ord[1], x, v),
@@ -10404,13 +10582,13 @@
         function remove(x, t){
           /*<<set.ml:253:19>>*/ if(! t)  /*<<set.ml:254:17>>*/ return 0;
          var
-          t2 = t[3],
+          t2 =  /*<<set.ml:253:19>>*/ t[3],
           v = t[2],
           t1 = t[1],
           c =  /*<<set.ml:256:18>>*/ caml_call2(Ord[1], x, v);
           /*<<set.ml:257:10>>*/ if(0 === c){
            /*<<set.ml:209:6>>*/ if(! t1)  /*<<set.ml:210:22>>*/ return t2;
-          if(! t2)  /*<<set.ml:211:22>>*/ return t1;
+           /*<<set.ml:209:6>>*/ if(! t2)  /*<<set.ml:211:22>>*/ return t1;
           var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
            /*<<set.ml:212:37>>*/ return bal
                   (t1,  /*<<set.ml:212:25>>*/ min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
@@ -10428,9 +10606,9 @@
         }
         function union(s1, s2){
           /*<<set.ml:269:6>>*/ if(! s1)  /*<<set.ml:270:23>>*/ return s2;
-         if(! s2)  /*<<set.ml:271:23>>*/ return s1;
+          /*<<set.ml:269:6>>*/ if(! s2)  /*<<set.ml:271:23>>*/ return s1;
          var
-          h2 = s2[4],
+          h2 =  /*<<set.ml:269:6>>*/ s2[4],
           r2 = s2[3],
           v2 = s2[2],
           l2 = s2[1],
@@ -10461,9 +10639,9 @@
         }
         function inter(s1, s2){
           /*<<set.ml:285:6>>*/ if(! s1)  /*<<set.ml:286:22>>*/ return 0;
-         if(! s2)  /*<<set.ml:287:22>>*/ return 0;
+          /*<<set.ml:285:6>>*/ if(! s2)  /*<<set.ml:287:22>>*/ return 0;
          var
-          r1 = s1[3],
+          r1 =  /*<<set.ml:285:6>>*/ s1[3],
           v1 = s1[2],
           l1 = s1[1],
           _L_ =  /*<<set.ml:289:16>>*/ split(v1, s2),
@@ -10473,7 +10651,9 @@
            /*<<set.ml:293:32>>*/ return join
                   ( /*<<set.ml:293:19>>*/ inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
          }
-         var r2$0 = _L_[3], _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
+         var
+          r2$0 =  /*<<set.ml:289:27>>*/ _L_[3],
+          _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
           /*<<set.ml:291:34>>*/ return concat
                  ( /*<<set.ml:291:21>>*/ inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
         }
@@ -10485,7 +10665,7 @@
                     /*<<set.ml:305:38>>*/ return 0;
                    /*<<set.ml:305:43>>*/ }] /*<<set.ml:305:10>>*/ ;
          var
-          r = param[3],
+          r =  /*<<set.ml:303:22>>*/ param[3],
           v = param[2],
           l = param[1],
           c =  /*<<set.ml:307:18>>*/ caml_call2(Ord[1], x, v);
@@ -10493,14 +10673,14 @@
           /*<<set.ml:309:15>>*/ if(0 <= c){
           var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
            /*<<set.ml:314:31>>*/ if(! match)  /*<<set.ml:315:23>>*/ return 0;
-          var rr = match[2], lr = match[1];
+          var rr =  /*<<set.ml:314:31>>*/ match[2], lr = match[1];
            /*<<set.ml:316:56>>*/ return [0,
                    /*<<set.ml:316:45>>*/ join(l, v, lr),
                   rr] /*<<set.ml:316:56>>*/ ;
          }
          var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
           /*<<set.ml:310:31>>*/ if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
-         var rl = match$0[2], ll = match$0[1];
+         var rl =  /*<<set.ml:310:31>>*/ match$0[2], ll = match$0[1];
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
@@ -10510,20 +10690,20 @@
          /*<<set.ml:316:61>>*/ }
         function disjoint(s1, s2){
          var s1$0 = s1, s2$0 = s2;
-          /*<<set.ml:319:6>>*/ for(;;){
-          if(s1$0 && s2$0){
+         for(;;){
+           /*<<set.ml:319:6>>*/ if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
             /*<<set.ml:322:10>>*/ if(s1$0 === s2$0)
              /*<<set.ml:322:27>>*/ return 0;
            var match =  /*<<set.ml:323:21>>*/ split_bis(v1, s2$0);
             /*<<set.ml:323:36>>*/ if(! match)  /*<<set.ml:325:23>>*/ return 0;
            var
-            r2 = match[2],
+            r2 =  /*<<set.ml:323:36>>*/ match[2],
             l2 = match[1],
             _K_ =  /*<<set.ml:324:34>>*/ disjoint(l1, l2);
             /*<<set.ml:324:48>>*/ if(! _K_) return _K_;
            var s2$1 =  /*<<set.ml:324:64>>*/ r2(0);
-           s1$0 = r1;
+            /*<<set.ml:324:71>>*/ s1$0 = r1;
            s2$0 = s2$1;
            continue;
           }
@@ -10532,9 +10712,9 @@
          /*<<set.ml:325:28>>*/ }
         function diff(s1, s2){
           /*<<set.ml:328:6>>*/ if(! s1)  /*<<set.ml:329:22>>*/ return 0;
-         if(! s2)  /*<<set.ml:330:23>>*/ return s1;
+          /*<<set.ml:328:6>>*/ if(! s2)  /*<<set.ml:330:23>>*/ return s1;
          var
-          r1 = s1[3],
+          r1 =  /*<<set.ml:328:6>>*/ s1[3],
           v1 = s1[2],
           l1 = s1[1],
           _H_ =  /*<<set.ml:332:16>>*/ split(v1, s2),
@@ -10544,16 +10724,18 @@
            /*<<set.ml:336:33>>*/ return concat
                   ( /*<<set.ml:336:21>>*/ diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
          }
-         var r2$0 = _H_[3], _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
+         var
+          r2$0 =  /*<<set.ml:332:27>>*/ _H_[3],
+          _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
           /*<<set.ml:334:31>>*/ return join
                  ( /*<<set.ml:334:19>>*/ diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
         }
         function cons_enum(s, e){
          var s$0 = s, e$0 = e;
-          /*<<set.ml:341:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
+         for(;;){
+           /*<<set.ml:341:6>>*/ if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
           var
-           r = s$0[3],
+           r =  /*<<set.ml:341:6>>*/ s$0[3],
            v = s$0[2],
            l = s$0[1],
            e$1 =  /*<<set.ml:343:25>>*/ [0, v, r, e$0];
@@ -10565,13 +10747,14 @@
          var
           e2$2 =  /*<<set.ml:357:37>>*/ cons_enum(s2, 0),
           e1$2 =  /*<<set.ml:357:18>>*/ cons_enum(s1, 0),
-          e1 = e1$2,
+          e1 =  /*<<set.ml:357:36>>*/ e1$2,
           e2 = e2$2;
-          /*<<set.ml:346:8>>*/ for(;;){
-          if(! e1) return e2 ? -1 : 0 /*<<set.ml:357:55>>*/ ;
-          if(! e2)  /*<<set.ml:349:20>>*/ return 1;
+         for(;;){
+           /*<<set.ml:346:8>>*/ if(! e1)
+           return e2 ? -1 : 0 /*<<set.ml:357:55>>*/ ;
+           /*<<set.ml:346:8>>*/ if(! e2)  /*<<set.ml:349:20>>*/ return 1;
           var
-           e2$0 = e2[3],
+           e2$0 =  /*<<set.ml:346:8>>*/ e2[3],
            r2 = e2[2],
            v2 = e2[1],
            e1$0 = e1[3],
@@ -10582,7 +10765,7 @@
           var
            e2$1 =  /*<<set.ml:354:45>>*/ cons_enum(r2, e2$0),
            e1$1 =  /*<<set.ml:354:27>>*/ cons_enum(r1, e1$0);
-          e1 = e1$1;
+           /*<<set.ml:354:44>>*/ e1 = e1$1;
           e2 = e2$1;
          }
          /*<<set.ml:357:55>>*/ }
@@ -10591,11 +10774,11 @@
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
          var s1$0 = s1, s2$0 = s2;
-          /*<<set.ml:363:6>>*/ for(;;){
-          if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
-          if(! s2$0)  /*<<set.ml:367:10>>*/ return 0;
+         for(;;){
+           /*<<set.ml:363:6>>*/ if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
+           /*<<set.ml:363:6>>*/ if(! s2$0)  /*<<set.ml:367:10>>*/ return 0;
           var
-           r2 = s2$0[3],
+           r2 =  /*<<set.ml:363:6>>*/ s2$0[3],
            v2 = s2$0[2],
            l2 = s2$0[1],
            r1 = s1$0[3],
@@ -10622,35 +10805,41 @@
          /*<<set.ml:375:71>>*/ }
         function iter(f, param){
          var param$0 = param;
-          /*<<set.ml:377:17>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:378:17>>*/ return 0;
-          var r = param$0[3], v = param$0[2], l = param$0[1];
+         for(;;){
+           /*<<set.ml:377:17>>*/ if(! param$0)
+            /*<<set.ml:378:17>>*/ return 0;
+          var
+           r =  /*<<set.ml:377:17>>*/ param$0[3],
+           v = param$0[2],
+           l = param$0[1];
            /*<<set.ml:379:25>>*/ iter(f, l);
            /*<<set.ml:379:35>>*/ caml_call1(f, v);
-          param$0 = r;
+           /*<<set.ml:379:38>>*/ param$0 = r;
          }
          /*<<set.ml:379:48>>*/ }
         function fold(f, s, accu){
          var s$0 = s, accu$0 = accu;
-          /*<<set.ml:382:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:383:17>>*/ return accu$0;
+         for(;;){
+           /*<<set.ml:382:6>>*/ if(! s$0)
+            /*<<set.ml:383:17>>*/ return accu$0;
           var
-           r = s$0[3],
+           r =  /*<<set.ml:382:6>>*/ s$0[3],
            v = s$0[2],
            l = s$0[1],
            accu$1 =
               /*<<set.ml:384:34>>*/ caml_call2
               (f, v,  /*<<set.ml:384:39>>*/ fold(f, l, accu$0));
-          s$0 = r;
+           /*<<set.ml:384:55>>*/ s$0 = r;
           accu$0 = accu$1;
          }
-         /*<<set.ml:384:55>>*/ }
+        }
         function for_all(p, param){
          var param$0 = param;
-          /*<<set.ml:386:20>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:387:17>>*/ return 1;
+         for(;;){
+           /*<<set.ml:386:20>>*/ if(! param$0)
+            /*<<set.ml:387:17>>*/ return 1;
           var
-           r = param$0[3],
+           r =  /*<<set.ml:386:20>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
            _B_ =  /*<<set.ml:388:25>>*/ caml_call1(p, v);
@@ -10660,16 +10849,17 @@
            var _D_ = _C_;
           }
           else
-           var _D_ = _B_;
+           var _D_ =  /*<<set.ml:388:28>>*/ _B_;
           return _D_;
          }
          /*<<set.ml:388:58>>*/ }
         function exists(p, param){
          var param$0 = param;
-          /*<<set.ml:390:19>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:391:17>>*/ return 0;
+         for(;;){
+           /*<<set.ml:390:19>>*/ if(! param$0)
+            /*<<set.ml:391:17>>*/ return 0;
           var
-           r = param$0[3],
+           r =  /*<<set.ml:390:19>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
            _y_ =  /*<<set.ml:392:25>>*/ caml_call1(p, v);
@@ -10680,13 +10870,13 @@
             /*<<set.ml:392:42>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-          return _z_;
+           /*<<set.ml:392:28>>*/ return _z_;
          }
          /*<<set.ml:392:56>>*/ }
         function filter(p, t){
           /*<<set.ml:394:19>>*/ if(! t)  /*<<set.ml:395:17>>*/ return 0;
          var
-          r = t[3],
+          r =  /*<<set.ml:394:19>>*/ t[3],
           v = t[2],
           l = t[1],
           l$0 =  /*<<set.ml:398:19>>*/ filter(p, l),
@@ -10701,7 +10891,7 @@
         function partition(p, param){
           /*<<set.ml:405:22>>*/ if(! param)  /*<<set.ml:406:17>>*/ return _b_;
          var
-          r = param[3],
+          r =  /*<<set.ml:405:22>>*/ param[3],
           v = param[2],
           l = param[1],
           match =  /*<<set.ml:409:25>>*/ partition(p, l),
@@ -10725,7 +10915,7 @@
         function cardinal(param){
           /*<<set.ml:416:23>>*/ if(! param)  /*<<set.ml:417:17>>*/ return 0;
          var
-          r = param[3],
+          r =  /*<<set.ml:416:23>>*/ param[3],
           l = param[1],
           _v_ =  /*<<set.ml:418:39>>*/ cardinal(r);
           /*<<set.ml:418:32>>*/ return ( /*<<set.ml:418:22>>*/ cardinal(l) + 1
@@ -10735,17 +10925,18 @@
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
          var accu$0 = accu, param$0 = param;
-          /*<<set.ml:420:25>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:421:17>>*/ return accu$0;
+         for(;;){
+           /*<<set.ml:420:25>>*/ if(! param$0)
+            /*<<set.ml:421:17>>*/ return accu$0;
           var
-           r = param$0[3],
+           r =  /*<<set.ml:420:25>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
            accu$1 =
               /*<<set.ml:422:63>>*/ [0,
               v,
                /*<<set.ml:422:44>>*/ elements_aux(accu$0, r)];
-          accu$0 = accu$1;
+           /*<<set.ml:422:63>>*/ accu$0 = accu$1;
           param$0 = l;
          }
          /*<<set.ml:422:66>>*/ }
@@ -10754,12 +10945,12 @@
         }
         function find(x, param){
          var param$0 = param;
-          /*<<set.ml:431:17>>*/ for(;;){
-          if(! param$0)
+         for(;;){
+           /*<<set.ml:431:17>>*/ if(! param$0)
             /*<<set.ml:432:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
-           r = param$0[3],
+           r =  /*<<set.ml:431:17>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
            c =  /*<<set.ml:434:18>>*/ caml_call2(Ord[1], x, v);
@@ -10770,98 +10961,141 @@
          /*<<set.ml:436:46>>*/ }
         function find_first(f, param$0){
          var param$1 = param$0;
-          /*<<set.ml:447:23>>*/ for(;;){
-          if(! param$1)
+         for(;;){
+           /*<<set.ml:447:23>>*/ if(! param$1)
             /*<<set.ml:449:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
+          var
+           r$0 =  /*<<set.ml:447:23>>*/ param$1[3],
+           v0$1 = param$1[2],
+           l$0 = param$1[1];
            /*<<set.ml:451:16>>*/ if
            ( /*<<set.ml:451:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, param = l$0;
-            /*<<set.ml:438:27>>*/ for(;;){
-            if(! param)  /*<<set.ml:440:10>>*/ return v0;
-            var r = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<set.ml:452:12>>*/ v0$1, param = l$0;
+           for(;;){
+             /*<<set.ml:438:27>>*/ if(! param)
+              /*<<set.ml:440:10>>*/ return v0;
+            var
+             r =  /*<<set.ml:438:27>>*/ param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<set.ml:442:16>>*/ if
-             ( /*<<set.ml:442:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = l;}
+             ( /*<<set.ml:442:13>>*/ caml_call1(f, v0$0)){
+              /*<<set.ml:443:12>>*/ v0 = v0$0;
+             param = l;
+            }
             else
-             param = r;
+              /*<<set.ml:445:12>>*/ param = r;
            }
           }
           else
-           param$1 = r$0;
+            /*<<set.ml:454:12>>*/ param$1 = r$0;
          }
          /*<<set.ml:454:26>>*/ }
         function find_first_opt(f, param$0){
          var param$1 = param$0;
-          /*<<set.ml:465:27>>*/ for(;;){
-          if(! param$1)  /*<<set.ml:467:10>>*/ return 0;
-          var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
+         for(;;){
+           /*<<set.ml:465:27>>*/ if(! param$1)
+            /*<<set.ml:467:10>>*/ return 0;
+          var
+           r$0 =  /*<<set.ml:465:27>>*/ param$1[3],
+           v0$1 = param$1[2],
+           l$0 = param$1[1];
            /*<<set.ml:469:16>>*/ if
            ( /*<<set.ml:469:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, param = l$0;
-            /*<<set.ml:456:31>>*/ for(;;){
-            if(! param)  /*<<set.ml:458:10>>*/ return [0, v0];
-            var r = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<set.ml:470:12>>*/ v0$1, param = l$0;
+           for(;;){
+             /*<<set.ml:456:31>>*/ if(! param)
+              /*<<set.ml:458:10>>*/ return [0, v0];
+            var
+             r =  /*<<set.ml:456:31>>*/ param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<set.ml:460:16>>*/ if
-             ( /*<<set.ml:460:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = l;}
+             ( /*<<set.ml:460:13>>*/ caml_call1(f, v0$0)){
+              /*<<set.ml:461:12>>*/ v0 = v0$0;
+             param = l;
+            }
             else
-             param = r;
+              /*<<set.ml:463:12>>*/ param = r;
            }
           }
           else
-           param$1 = r$0;
+            /*<<set.ml:472:12>>*/ param$1 = r$0;
          }
          /*<<set.ml:472:30>>*/ }
         function find_last(f, param$0){
          var param$1 = param$0;
-          /*<<set.ml:483:22>>*/ for(;;){
-          if(! param$1)
+         for(;;){
+           /*<<set.ml:483:22>>*/ if(! param$1)
             /*<<set.ml:485:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
+          var
+           r$0 =  /*<<set.ml:483:22>>*/ param$1[3],
+           v0$1 = param$1[2],
+           l$0 = param$1[1];
            /*<<set.ml:487:16>>*/ if
            ( /*<<set.ml:487:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, param = r$0;
-            /*<<set.ml:474:26>>*/ for(;;){
-            if(! param)  /*<<set.ml:476:10>>*/ return v0;
-            var r = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<set.ml:488:12>>*/ v0$1, param = r$0;
+           for(;;){
+             /*<<set.ml:474:26>>*/ if(! param)
+              /*<<set.ml:476:10>>*/ return v0;
+            var
+             r =  /*<<set.ml:474:26>>*/ param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<set.ml:478:16>>*/ if
-             ( /*<<set.ml:478:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = r;}
+             ( /*<<set.ml:478:13>>*/ caml_call1(f, v0$0)){
+              /*<<set.ml:479:12>>*/ v0 = v0$0;
+             param = r;
+            }
             else
-             param = l;
+              /*<<set.ml:481:12>>*/ param = l;
            }
           }
           else
-           param$1 = l$0;
+            /*<<set.ml:490:12>>*/ param$1 = l$0;
          }
          /*<<set.ml:490:25>>*/ }
         function find_last_opt(f, param$0){
          var param$1 = param$0;
-          /*<<set.ml:501:26>>*/ for(;;){
-          if(! param$1)  /*<<set.ml:503:10>>*/ return 0;
-          var r$0 = param$1[3], v0$1 = param$1[2], l$0 = param$1[1];
+         for(;;){
+           /*<<set.ml:501:26>>*/ if(! param$1)
+            /*<<set.ml:503:10>>*/ return 0;
+          var
+           r$0 =  /*<<set.ml:501:26>>*/ param$1[3],
+           v0$1 = param$1[2],
+           l$0 = param$1[1];
            /*<<set.ml:505:16>>*/ if
            ( /*<<set.ml:505:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, param = r$0;
-            /*<<set.ml:492:30>>*/ for(;;){
-            if(! param)  /*<<set.ml:494:10>>*/ return [0, v0];
-            var r = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<set.ml:506:12>>*/ v0$1, param = r$0;
+           for(;;){
+             /*<<set.ml:492:30>>*/ if(! param)
+              /*<<set.ml:494:10>>*/ return [0, v0];
+            var
+             r =  /*<<set.ml:492:30>>*/ param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<set.ml:496:16>>*/ if
-             ( /*<<set.ml:496:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; param = r;}
+             ( /*<<set.ml:496:13>>*/ caml_call1(f, v0$0)){
+              /*<<set.ml:497:12>>*/ v0 = v0$0;
+             param = r;
+            }
             else
-             param = l;
+              /*<<set.ml:499:12>>*/ param = l;
            }
           }
           else
-           param$1 = l$0;
+            /*<<set.ml:508:12>>*/ param$1 = l$0;
          }
          /*<<set.ml:508:29>>*/ }
         function find_opt(x, param){
          var param$0 = param;
-          /*<<set.ml:510:21>>*/ for(;;){
-          if(! param$0)  /*<<set.ml:511:17>>*/ return 0;
+         for(;;){
+           /*<<set.ml:510:21>>*/ if(! param$0)
+            /*<<set.ml:511:17>>*/ return 0;
           var
-           r = param$0[3],
+           r =  /*<<set.ml:510:21>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
            c =  /*<<set.ml:513:18>>*/ caml_call2(Ord[1], x, v);
@@ -10880,7 +11114,7 @@
             (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _u_, v))
             break a;
           }
-          if(0 !== r){
+           /*<<set.ml:521:6>>*/ if(0 !== r){
            var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
             /*<<set.ml:522:48>>*/ if
             (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _t_))
@@ -10893,7 +11127,7 @@
         function map(f, t){
           /*<<set.ml:526:16>>*/ if(! t)  /*<<set.ml:527:17>>*/ return 0;
          var
-          r = t[3],
+          r =  /*<<set.ml:526:16>>*/ t[3],
           v = t[2],
           l = t[1],
           l$0 =  /*<<set.ml:530:18>>*/ map(f, l),
@@ -10906,7 +11140,7 @@
         function filter_map(f, t){
           /*<<set.ml:542:23>>*/ if(! t)  /*<<set.ml:543:17>>*/ return 0;
          var
-          r = t[3],
+          r =  /*<<set.ml:542:23>>*/ t[3],
           v = t[2],
           l = t[1],
           t1 =  /*<<set.ml:546:18>>*/ filter_map(f, l),
@@ -10919,27 +11153,27 @@
            /*<<set.ml:552:19>>*/ return try_join(t1, v$1, t2) /*<<set.ml:555:12>>*/ ;
          }
           /*<<set.ml:537:6>>*/ if(! t1)  /*<<set.ml:538:22>>*/ return t2;
-         if(! t2)  /*<<set.ml:539:22>>*/ return t1;
+          /*<<set.ml:537:6>>*/ if(! t2)  /*<<set.ml:539:22>>*/ return t1;
          var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
           /*<<set.ml:540:42>>*/ return try_join
                  (t1,  /*<<set.ml:540:30>>*/ min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
         }
         function of_list(l){
           /*<<set.ml:581:6>>*/ if(! l)  /*<<set.ml:582:14>>*/ return empty;
-         var _n_ = l[2], x0 = l[1];
+         var _n_ =  /*<<set.ml:581:6>>*/ l[2], x0 = l[1];
          if(! _n_)
            /*<<set.ml:583:16>>*/ return singleton(x0) /*<<set.ml:588:58>>*/ ;
-         var _o_ = _n_[2], x1 = _n_[1];
+         var _o_ =  /*<<set.ml:581:6>>*/ _n_[2], x1 = _n_[1];
          if(! _o_)
            /*<<set.ml:584:41>>*/ return add
                   (x1,  /*<<set.ml:584:27>>*/ singleton(x0)) /*<<set.ml:588:58>>*/ ;
-         var _p_ = _o_[2], x2 = _o_[1];
+         var _p_ =  /*<<set.ml:581:6>>*/ _o_[2], x2 = _o_[1];
          if(! _p_)
            /*<<set.ml:585:54>>*/ return add
                   (x2,
                     /*<<set.ml:585:31>>*/ add
                     (x1,  /*<<set.ml:585:39>>*/ singleton(x0))) /*<<set.ml:588:58>>*/ ;
-         var _q_ = _p_[2], x3 = _p_[1];
+         var _q_ =  /*<<set.ml:581:6>>*/ _p_[2], x3 = _p_[1];
          if(! _q_)
            /*<<set.ml:586:67>>*/ return add
                   (x3,
@@ -10947,7 +11181,7 @@
                     (x2,
                       /*<<set.ml:586:43>>*/ add
                       (x1,  /*<<set.ml:586:51>>*/ singleton(x0)))) /*<<set.ml:588:58>>*/ ;
-         if(_q_[2]){
+          /*<<set.ml:581:6>>*/ if(_q_[2]){
           var
            l$0 =  /*<<set.ml:588:28>>*/ caml_call2(Stdlib_List[62], Ord[1], l),
            sub =
@@ -10957,13 +11191,13 @@
                  case 0:
                    /*<<set.ml:560:18>>*/ return [0, 0, l];
                  case 1:
-                  if(l){
+                   /*<<set.ml:559:8>>*/ if(l){
                    var l$3 = l[2], x0 = l[1];
                     /*<<set.ml:561:24>>*/ return [0, [0, 0, x0, 0, 1], l$3];
                   }
                   break;
                  case 2:
-                  if(l){
+                   /*<<set.ml:559:8>>*/ if(l){
                    var match$1 = l[2];
                    if(match$1){
                     var l$4 = match$1[2], x1 = match$1[1], x0$0 = l[1];
@@ -10974,7 +11208,7 @@
                   }
                   break;
                  default:
-                  if(l){
+                   /*<<set.ml:559:8>>*/ if(l){
                    var _r_ = l[2];
                    if(_r_){
                     var match$2 = _r_[2];
@@ -11000,7 +11234,7 @@
                 /*<<set.ml:571:18>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _c_], 1);
               var
-               l$1 = l$0[2],
+               l$1 =  /*<<set.ml:570:10>>*/ l$0[2],
                mid = l$0[1],
                match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
                l$2 =  /*<<set.ml:573:45>>*/ match$0[2],
@@ -11014,7 +11248,7 @@
                     l$0)
                   [1] /*<<set.ml:576:33>>*/ ;
          }
-         var x4 = _q_[1];
+         var x4 =  /*<<set.ml:581:6>>*/ _q_[1];
           /*<<set.ml:587:80>>*/ return add
                  (x4,
                    /*<<set.ml:587:39>>*/ add
@@ -11039,7 +11273,7 @@
         function seq_of_enum(c, param){
           /*<<set.ml:595:32>>*/ if(! c)  /*<<set.ml:596:15>>*/ return 0;
          var
-          rest = c[3],
+          rest =  /*<<set.ml:595:32>>*/ c[3],
           t = c[2],
           x = c[1],
           _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
@@ -11054,10 +11288,10 @@
         }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
-          /*<<set.ml:602:6>>*/ for(;;){
-          if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
+         for(;;){
+           /*<<set.ml:602:6>>*/ if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
           var
-           r = s$0[3],
+           r =  /*<<set.ml:602:6>>*/ s$0[3],
            v = s$0[2],
            l = s$0[1],
            e$1 =  /*<<set.ml:604:25>>*/ [0, v, l, e$0];
@@ -11068,7 +11302,7 @@
         function rev_seq_of_enum(c, param){
           /*<<set.ml:606:36>>*/ if(! c)  /*<<set.ml:607:15>>*/ return 0;
          var
-          rest = c[3],
+          rest =  /*<<set.ml:606:36>>*/ c[3],
           t = c[2],
           x = c[1],
           _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
@@ -11086,9 +11320,9 @@
          {
           b:
           {
-           var s$0 = s, c = 0;
-            /*<<set.ml:613:28>>*/ for(;;){
-            if(! s$0) break;
+           var s$0 =  /*<<set.ml:622:19>>*/ s, c = 0;
+           for(;;){
+             /*<<set.ml:613:28>>*/ if(! s$0) break;
             var
              r = s$0[3],
              v = s$0[2],
@@ -11101,12 +11335,12 @@
              c = c$0;
             }
             else
-             s$0 = r;
+              /*<<set.ml:618:30>>*/ s$0 = r;
            }
-           var _d_ = c;
+           var _d_ =  /*<<set.ml:614:19>>*/ c;
            break a;
           }
-          var _d_ = [0, v, r, c];
+          var _d_ =  /*<<set.ml:617:21>>*/ [0, v, r, c];
          }
           /*<<set.ml:622:34>>*/ return function(_e_){
            /*<<?>>*/ return seq_of_enum(_d_, _e_);} /*<<set.ml:622:34>>*/ ;
@@ -11204,7 +11438,7 @@
        function(Ord){
         function height(param){
           /*<<map.ml:81:17>>*/ if(! param)  /*<<map.ml:82:17>>*/ return 0;
-         var h = param[5];
+         var h =  /*<<map.ml:81:17>>*/ param[5];
           /*<<map.ml:83:20>>*/ return h;
          /*<<map.ml:83:21>>*/ }
         function create(l, x, d, r){
@@ -11218,13 +11452,19 @@
           /*<<map.ml:89:24>>*/ return [0, 0, x, d, 0, 1];
          /*<<map.ml:89:59>>*/ }
         function bal(l, x, d, r){
-          /*<<map.ml:92:6>>*/ if(l) var h = l[5], hl = h; else var hl = 0;
-          /*<<map.ml:93:6>>*/ if(r) var h$0 = r[5], hr = h$0; else var hr = 0;
+          /*<<map.ml:92:6>>*/ if(l)
+          var h = l[5], hl =  /*<<map.ml:92:53>>*/ h;
+         else
+          var hl =  /*<<map.ml:92:37>>*/ 0;
+          /*<<map.ml:93:6>>*/ if(r)
+          var h$0 = r[5], hr =  /*<<map.ml:93:53>>*/ h$0;
+         else
+          var hr =  /*<<map.ml:93:37>>*/ 0;
           /*<<map.ml:94:6>>*/ if((hr + 2 | 0) < hl){
            /*<<map.ml:94:26>>*/ if(! l)
             /*<<map.ml:96:19>>*/ return caml_call1(Stdlib[1], cst_Map_bal$0) /*<<map.ml:119:67>>*/ ;
           var
-           lr = l[4],
+           lr =  /*<<map.ml:94:26>>*/ l[4],
            ld = l[3],
            lv = l[2],
            ll = l[1],
@@ -11235,7 +11475,7 @@
            /*<<map.ml:100:17>>*/ if(! lr)
             /*<<map.ml:102:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
           var
-           lrr = lr[4],
+           lrr =  /*<<map.ml:100:17>>*/ lr[4],
            lrd = lr[3],
            lrv = lr[2],
            lrl = lr[1],
@@ -11253,7 +11493,7 @@
           /*<<map.ml:106:35>>*/ if(! r)
            /*<<map.ml:108:19>>*/ return caml_call1(Stdlib[1], cst_Map_bal$2) /*<<map.ml:119:67>>*/ ;
          var
-          rr = r[4],
+          rr =  /*<<map.ml:106:35>>*/ r[4],
           rd = r[3],
           rv = r[2],
           rl = r[1],
@@ -11264,7 +11504,7 @@
           /*<<map.ml:112:17>>*/ if(! rl)
            /*<<map.ml:114:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
          var
-          rlr = rl[4],
+          rlr =  /*<<map.ml:112:17>>*/ rl[4],
           rld = rl[3],
           rlv = rl[2],
           rll = rl[1],
@@ -11280,7 +11520,7 @@
           /*<<map.ml:125:16>>*/ if(! m)
            /*<<map.ml:127:10>>*/ return [0, 0, x, data, 0, 1];
          var
-          h = m[5],
+          h =  /*<<map.ml:125:16>>*/ m[5],
           r = m[4],
           d = m[3],
           v = m[2],
@@ -11301,12 +11541,12 @@
         }
         function find(x, param){
          var param$0 = param;
-          /*<<map.ml:139:17>>*/ for(;;){
-          if(! param$0)
+         for(;;){
+           /*<<map.ml:139:17>>*/ if(! param$0)
             /*<<map.ml:141:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
-           r = param$0[4],
+           r =  /*<<map.ml:139:17>>*/ param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -11318,114 +11558,153 @@
          /*<<map.ml:145:46>>*/ }
         function find_first(f, param$0){
          var param$1 = param$0;
-          /*<<map.ml:156:23>>*/ for(;;){
-          if(! param$1)
+         for(;;){
+           /*<<map.ml:156:23>>*/ if(! param$1)
             /*<<map.ml:158:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
-           r$0 = param$1[4],
+           r$0 =  /*<<map.ml:156:23>>*/ param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:160:16>>*/ if
            ( /*<<map.ml:160:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, d0 = d0$1, param = l$0;
-            /*<<map.ml:147:27>>*/ for(;;){
-            if(! param)  /*<<map.ml:149:10>>*/ return [0, v0, d0];
-            var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<map.ml:161:12>>*/ v0$1, d0 = d0$1, param = l$0;
+           for(;;){
+             /*<<map.ml:147:27>>*/ if(! param)
+              /*<<map.ml:149:10>>*/ return [0, v0, d0];
+            var
+             r =  /*<<map.ml:147:27>>*/ param[4],
+             d0$0 = param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<map.ml:151:16>>*/ if
-             ( /*<<map.ml:151:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = l;}
+             ( /*<<map.ml:151:13>>*/ caml_call1(f, v0$0)){
+              /*<<map.ml:152:12>>*/ v0 = v0$0;
+             d0 = d0$0;
+             param = l;
+            }
             else
-             param = r;
+              /*<<map.ml:154:12>>*/ param = r;
            }
           }
           else
-           param$1 = r$0;
+            /*<<map.ml:163:12>>*/ param$1 = r$0;
          }
          /*<<map.ml:163:26>>*/ }
         function find_first_opt(f, param$0){
          var param$1 = param$0;
-          /*<<map.ml:174:27>>*/ for(;;){
-          if(! param$1)  /*<<map.ml:176:10>>*/ return 0;
+         for(;;){
+           /*<<map.ml:174:27>>*/ if(! param$1)
+            /*<<map.ml:176:10>>*/ return 0;
           var
-           r$0 = param$1[4],
+           r$0 =  /*<<map.ml:174:27>>*/ param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:178:16>>*/ if
            ( /*<<map.ml:178:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, d0 = d0$1, param = l$0;
-            /*<<map.ml:165:31>>*/ for(;;){
-            if(! param)  /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]];
-            var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<map.ml:179:12>>*/ v0$1, d0 = d0$1, param = l$0;
+           for(;;){
+             /*<<map.ml:165:31>>*/ if(! param)
+              /*<<map.ml:167:10>>*/ return [0, [0, v0, d0]];
+            var
+             r =  /*<<map.ml:165:31>>*/ param[4],
+             d0$0 = param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<map.ml:169:16>>*/ if
-             ( /*<<map.ml:169:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = l;}
+             ( /*<<map.ml:169:13>>*/ caml_call1(f, v0$0)){
+              /*<<map.ml:170:12>>*/ v0 = v0$0;
+             d0 = d0$0;
+             param = l;
+            }
             else
-             param = r;
+              /*<<map.ml:172:12>>*/ param = r;
            }
           }
           else
-           param$1 = r$0;
+            /*<<map.ml:181:12>>*/ param$1 = r$0;
          }
          /*<<map.ml:181:30>>*/ }
         function find_last(f, param$0){
          var param$1 = param$0;
-          /*<<map.ml:192:22>>*/ for(;;){
-          if(! param$1)
+         for(;;){
+           /*<<map.ml:192:22>>*/ if(! param$1)
             /*<<map.ml:194:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
-           r$0 = param$1[4],
+           r$0 =  /*<<map.ml:192:22>>*/ param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:196:16>>*/ if
            ( /*<<map.ml:196:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, d0 = d0$1, param = r$0;
-            /*<<map.ml:183:26>>*/ for(;;){
-            if(! param)  /*<<map.ml:185:10>>*/ return [0, v0, d0];
-            var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<map.ml:197:12>>*/ v0$1, d0 = d0$1, param = r$0;
+           for(;;){
+             /*<<map.ml:183:26>>*/ if(! param)
+              /*<<map.ml:185:10>>*/ return [0, v0, d0];
+            var
+             r =  /*<<map.ml:183:26>>*/ param[4],
+             d0$0 = param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<map.ml:187:16>>*/ if
-             ( /*<<map.ml:187:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = r;}
+             ( /*<<map.ml:187:13>>*/ caml_call1(f, v0$0)){
+              /*<<map.ml:188:12>>*/ v0 = v0$0;
+             d0 = d0$0;
+             param = r;
+            }
             else
-             param = l;
+              /*<<map.ml:190:12>>*/ param = l;
            }
           }
           else
-           param$1 = l$0;
+            /*<<map.ml:199:12>>*/ param$1 = l$0;
          }
          /*<<map.ml:199:25>>*/ }
         function find_last_opt(f, param$0){
          var param$1 = param$0;
-          /*<<map.ml:210:26>>*/ for(;;){
-          if(! param$1)  /*<<map.ml:212:10>>*/ return 0;
+         for(;;){
+           /*<<map.ml:210:26>>*/ if(! param$1)
+            /*<<map.ml:212:10>>*/ return 0;
           var
-           r$0 = param$1[4],
+           r$0 =  /*<<map.ml:210:26>>*/ param$1[4],
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
            /*<<map.ml:214:16>>*/ if
            ( /*<<map.ml:214:13>>*/ caml_call1(f, v0$1)){
-           var v0 = v0$1, d0 = d0$1, param = r$0;
-            /*<<map.ml:201:30>>*/ for(;;){
-            if(! param)  /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]];
-            var r = param[4], d0$0 = param[3], v0$0 = param[2], l = param[1];
+           var v0 =  /*<<map.ml:215:12>>*/ v0$1, d0 = d0$1, param = r$0;
+           for(;;){
+             /*<<map.ml:201:30>>*/ if(! param)
+              /*<<map.ml:203:10>>*/ return [0, [0, v0, d0]];
+            var
+             r =  /*<<map.ml:201:30>>*/ param[4],
+             d0$0 = param[3],
+             v0$0 = param[2],
+             l = param[1];
              /*<<map.ml:205:16>>*/ if
-             ( /*<<map.ml:205:13>>*/ caml_call1(f, v0$0)){v0 = v0$0; d0 = d0$0; param = r;}
+             ( /*<<map.ml:205:13>>*/ caml_call1(f, v0$0)){
+              /*<<map.ml:206:12>>*/ v0 = v0$0;
+             d0 = d0$0;
+             param = r;
+            }
             else
-             param = l;
+              /*<<map.ml:208:12>>*/ param = l;
            }
           }
           else
-           param$1 = l$0;
+            /*<<map.ml:217:12>>*/ param$1 = l$0;
          }
          /*<<map.ml:217:29>>*/ }
         function find_opt(x, param){
          var param$0 = param;
-          /*<<map.ml:219:21>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:221:10>>*/ return 0;
+         for(;;){
+           /*<<map.ml:219:21>>*/ if(! param$0)
+            /*<<map.ml:221:10>>*/ return 0;
           var
-           r = param$0[4],
+           r =  /*<<map.ml:219:21>>*/ param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -11438,10 +11717,11 @@
          /*<<map.ml:225:50>>*/ }
         function mem(x, param){
          var param$0 = param;
-          /*<<map.ml:227:16>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:229:10>>*/ return 0;
+         for(;;){
+           /*<<map.ml:227:16>>*/ if(! param$0)
+            /*<<map.ml:229:10>>*/ return 0;
           var
-           r = param$0[4],
+           r =  /*<<map.ml:227:16>>*/ param$0[4],
            v = param$0[2],
            l = param$0[1],
            c =  /*<<map.ml:231:18>>*/ caml_call2(Ord[1], x, v),
@@ -11453,72 +11733,74 @@
          /*<<map.ml:232:49>>*/ }
         function min_binding(param){
          var param$0 = param;
-          /*<<map.ml:234:26>>*/ for(;;){
-          if(! param$0)
+         for(;;){
+           /*<<map.ml:234:26>>*/ if(! param$0)
             /*<<map.ml:235:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          var l = param$0[1];
+          var l =  /*<<map.ml:234:26>>*/ param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
             /*<<map.ml:236:32>>*/ return [0, v, d];
           }
-          param$0 = l;
+           /*<<map.ml:237:20>>*/ param$0 = l;
          }
          /*<<map.ml:237:33>>*/ }
         function min_binding_opt(param){
          var param$0 = param;
-          /*<<map.ml:239:30>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:240:17>>*/ return 0;
-          var l = param$0[1];
+         for(;;){
+           /*<<map.ml:239:30>>*/ if(! param$0)
+            /*<<map.ml:240:17>>*/ return 0;
+          var l =  /*<<map.ml:239:30>>*/ param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
             /*<<map.ml:241:32>>*/ return [0, [0, v, d]];
           }
-          param$0 = l;
+           /*<<map.ml:242:19>>*/ param$0 = l;
          }
          /*<<map.ml:242:36>>*/ }
         function max_binding(param){
          var param$0 = param;
-          /*<<map.ml:244:26>>*/ for(;;){
-          if(! param$0)
+         for(;;){
+           /*<<map.ml:244:26>>*/ if(! param$0)
             /*<<map.ml:245:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-          if(! param$0[4]){
+           /*<<map.ml:244:26>>*/ if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
             /*<<map.ml:246:32>>*/ return [0, v, d];
           }
-          var r = param$0[4];
-          param$0 = r;
+          var r =  /*<<map.ml:244:26>>*/ param$0[4];
+           /*<<map.ml:247:20>>*/ param$0 = r;
          }
          /*<<map.ml:247:33>>*/ }
         function max_binding_opt(param){
          var param$0 = param;
-          /*<<map.ml:249:30>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:250:17>>*/ return 0;
-          if(! param$0[4]){
+         for(;;){
+           /*<<map.ml:249:30>>*/ if(! param$0)
+            /*<<map.ml:250:17>>*/ return 0;
+           /*<<map.ml:249:30>>*/ if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
             /*<<map.ml:251:32>>*/ return [0, [0, v, d]];
           }
-          var r = param$0[4];
-          param$0 = r;
+          var r =  /*<<map.ml:249:30>>*/ param$0[4];
+           /*<<map.ml:252:20>>*/ param$0 = r;
          }
          /*<<map.ml:252:37>>*/ }
         function remove_min_binding(param){
           /*<<map.ml:254:33>>*/ if(! param)
            /*<<map.ml:255:17>>*/ return caml_call1
                   (Stdlib[1], cst_Map_remove_min_elt) /*<<map.ml:257:61>>*/ ;
-         var l = param[1];
+         var l =  /*<<map.ml:254:33>>*/ param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
            /*<<map.ml:257:55>>*/ return bal
                   ( /*<<map.ml:257:33>>*/ remove_min_binding(l), v, d, r) /*<<map.ml:257:61>>*/ ;
          }
-         var r$0 = param[4];
+         var r$0 =  /*<<map.ml:254:33>>*/ param[4];
           /*<<map.ml:256:29>>*/ return r$0;
          /*<<map.ml:257:61>>*/ }
         function _d_(t1, t2){
           /*<<map.ml:260:6>>*/ if(! t1)  /*<<map.ml:261:22>>*/ return t2;
-         if(! t2)  /*<<map.ml:262:22>>*/ return t1;
+          /*<<map.ml:260:6>>*/ if(! t2)  /*<<map.ml:262:22>>*/ return t1;
          var
           match =  /*<<map.ml:264:23>>*/ min_binding(t2),
           d =  /*<<map.ml:264:37>>*/ match[2],
@@ -11529,7 +11811,7 @@
         function remove(x, m){
           /*<<map.ml:267:19>>*/ if(! m)  /*<<map.ml:269:10>>*/ return 0;
          var
-          r = m[4],
+          r =  /*<<map.ml:267:19>>*/ m[4],
           d = m[3],
           v = m[2],
           l = m[1],
@@ -11552,11 +11834,11 @@
           var match$0 =  /*<<map.ml:280:22>>*/ caml_call1(f, 0);
            /*<<map.ml:280:28>>*/ if(! match$0)
             /*<<map.ml:281:20>>*/ return 0;
-          var data$0 = match$0[1];
+          var data$0 =  /*<<map.ml:280:28>>*/ match$0[1];
            /*<<map.ml:282:25>>*/ return [0, 0, x, data$0, 0, 1];
          }
          var
-          h = m[5],
+          h =  /*<<map.ml:278:19>>*/ m[5],
           r = m[4],
           d = m[3],
           v = m[2],
@@ -11566,7 +11848,7 @@
           var match =  /*<<map.ml:287:18>>*/ caml_call1(f, [0, d]);
            /*<<map.ml:287:28>>*/ if(! match)
             /*<<map.ml:288:22>>*/ return _d_(l, r) /*<<map.ml:296:47>>*/ ;
-          var data = match[1];
+          var data =  /*<<map.ml:287:28>>*/ match[1];
            /*<<map.ml:290:16>>*/ return d === data ? m : [0, l, x, data, r, h] /*<<map.ml:296:47>>*/ ;
          }
           /*<<map.ml:291:19>>*/ if(0 <= c){
@@ -11584,25 +11866,30 @@
          function add(param){
            /*<<map.ml:299:16>>*/ if(! param)
             /*<<map.ml:299:33>>*/ return [0, [0, data, 0]];
-          var l = param[1];
+          var l =  /*<<map.ml:299:16>>*/ param[1];
            /*<<map.ml:299:57>>*/ return [0, [0, data, l]];
           /*<<map.ml:299:73>>*/ }
           /*<<map.ml:300:6>>*/ return update(x, add, m) /*<<map.ml:300:20>>*/ ;
         }
         function iter(f, param){
          var param$0 = param;
-          /*<<map.ml:302:17>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:303:17>>*/ return 0;
-          var r = param$0[4], d = param$0[3], v = param$0[2], l = param$0[1];
+         for(;;){
+           /*<<map.ml:302:17>>*/ if(! param$0)
+            /*<<map.ml:303:17>>*/ return 0;
+          var
+           r =  /*<<map.ml:302:17>>*/ param$0[4],
+           d = param$0[3],
+           v = param$0[2],
+           l = param$0[1];
            /*<<map.ml:305:10>>*/ iter(f, l);
            /*<<map.ml:305:20>>*/ caml_call2(f, v, d);
-          param$0 = r;
+           /*<<map.ml:305:25>>*/ param$0 = r;
          }
          /*<<map.ml:305:35>>*/ }
         function map(f, param){
           /*<<map.ml:307:16>>*/ if(! param)  /*<<map.ml:309:10>>*/ return 0;
          var
-          h = param[5],
+          h =  /*<<map.ml:307:16>>*/ param[5],
           r = param[4],
           d = param[3],
           v = param[2],
@@ -11615,7 +11902,7 @@
         function mapi(f, param){
           /*<<map.ml:316:17>>*/ if(! param)  /*<<map.ml:318:10>>*/ return 0;
          var
-          h = param[5],
+          h =  /*<<map.ml:316:17>>*/ param[5],
           r = param[4],
           d = param[3],
           v = param[2],
@@ -11627,26 +11914,28 @@
          /*<<map.ml:323:38>>*/ }
         function fold(f, m, accu){
          var m$0 = m, accu$0 = accu;
-          /*<<map.ml:326:6>>*/ for(;;){
-          if(! m$0)  /*<<map.ml:327:17>>*/ return accu$0;
+         for(;;){
+           /*<<map.ml:326:6>>*/ if(! m$0)
+            /*<<map.ml:327:17>>*/ return accu$0;
           var
-           r = m$0[4],
+           r =  /*<<map.ml:326:6>>*/ m$0[4],
            d = m$0[3],
            v = m$0[2],
            l = m$0[1],
            accu$1 =
               /*<<map.ml:329:19>>*/ caml_call3
               (f, v, d,  /*<<map.ml:329:26>>*/ fold(f, l, accu$0));
-          m$0 = r;
+           /*<<map.ml:329:42>>*/ m$0 = r;
           accu$0 = accu$1;
          }
-         /*<<map.ml:329:42>>*/ }
+        }
         function for_all(p, param){
          var param$0 = param;
-          /*<<map.ml:331:20>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:332:17>>*/ return 1;
+         for(;;){
+           /*<<map.ml:331:20>>*/ if(! param$0)
+            /*<<map.ml:332:17>>*/ return 1;
           var
-           r = param$0[4],
+           r =  /*<<map.ml:331:20>>*/ param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -11657,16 +11946,17 @@
            var _D_ = _C_;
           }
           else
-           var _D_ = _B_;
+           var _D_ =  /*<<map.ml:333:34>>*/ _B_;
           return _D_;
          }
          /*<<map.ml:333:64>>*/ }
         function exists(p, param){
          var param$0 = param;
-          /*<<map.ml:335:19>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:336:17>>*/ return 0;
+         for(;;){
+           /*<<map.ml:335:19>>*/ if(! param$0)
+            /*<<map.ml:336:17>>*/ return 0;
           var
-           r = param$0[4],
+           r =  /*<<map.ml:335:19>>*/ param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -11678,29 +11968,38 @@
             /*<<map.ml:337:48>>*/ if(! _A_){param$0 = r; continue;}
            var _z_ = _A_;
           }
-          return _z_;
+           /*<<map.ml:337:34>>*/ return _z_;
          }
          /*<<map.ml:337:62>>*/ }
         function add_min_binding(k, x, param){
           /*<<map.ml:347:28>>*/ if(! param)
            /*<<map.ml:348:17>>*/ return singleton(k, x) /*<<map.ml:350:41>>*/ ;
-         var r = param[4], d = param[3], v = param[2], l = param[1];
+         var
+          r =  /*<<map.ml:347:28>>*/ param[4],
+          d = param[3],
+          v = param[2],
+          l = param[1];
           /*<<map.ml:350:35>>*/ return bal
                  ( /*<<map.ml:350:12>>*/ add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:41>>*/ ;
         }
         function add_max_binding(k, x, param){
           /*<<map.ml:352:28>>*/ if(! param)
            /*<<map.ml:353:17>>*/ return singleton(k, x) /*<<map.ml:355:41>>*/ ;
-         var r = param[4], d = param[3], v = param[2], l = param[1];
-         return bal(l, v, d,  /*<<map.ml:355:18>>*/ add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
+         var
+          r =  /*<<map.ml:352:28>>*/ param[4],
+          d = param[3],
+          v = param[2],
+          l = param[1];
+          /*<<map.ml:355:41>>*/ return bal
+                 (l, v, d,  /*<<map.ml:355:18>>*/ add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
         }
         function join(l, v, d, r){
           /*<<map.ml:361:6>>*/ if(! l)
            /*<<map.ml:362:22>>*/ return add_min_binding(v, d, r) /*<<map.ml:368:24>>*/ ;
-         if(! r)
+          /*<<map.ml:361:6>>*/ if(! r)
            /*<<map.ml:363:22>>*/ return add_max_binding(v, d, l) /*<<map.ml:368:24>>*/ ;
          var
-          rh = r[5],
+          rh =  /*<<map.ml:361:6>>*/ r[5],
           rr = r[4],
           rd = r[3],
           rv = r[2],
@@ -11723,7 +12022,7 @@
         }
         function concat(t1, t2){
           /*<<map.ml:375:6>>*/ if(! t1)  /*<<map.ml:376:22>>*/ return t2;
-         if(! t2)  /*<<map.ml:377:22>>*/ return t1;
+          /*<<map.ml:375:6>>*/ if(! t2)  /*<<map.ml:377:22>>*/ return t1;
          var
           match =  /*<<map.ml:379:23>>*/ min_binding(t2),
           d =  /*<<map.ml:379:37>>*/ match[2],
@@ -11734,13 +12033,13 @@
         function concat_or_join(t1, v, d, t2){
           /*<<map.ml:383:6>>*/ if(! d)
            /*<<map.ml:385:16>>*/ return concat(t1, t2) /*<<map.ml:385:28>>*/ ;
-         var d$0 = d[1];
+         var d$0 =  /*<<map.ml:383:6>>*/ d[1];
           /*<<map.ml:384:18>>*/ return join(t1, v, d$0, t2) /*<<map.ml:385:28>>*/ ;
         }
         function split(x, param){
           /*<<map.ml:387:18>>*/ if(! param)  /*<<map.ml:389:10>>*/ return _a_;
          var
-          r = param[4],
+          r =  /*<<map.ml:387:18>>*/ param[4],
           d = param[3],
           v = param[2],
           l = param[1],
@@ -11784,11 +12083,11 @@
           }
          }
          else if(! s2)  /*<<map.ml:400:26>>*/ return 0;
-         if(! s2)
+          /*<<map.ml:399:6>>*/ if(! s2)
            /*<<map.ml:408:10>>*/ throw caml_maybe_attach_backtrace
                  ([0, Assert_failure, _b_], 1);
          var
-          r2$0 = s2[4],
+          r2$0 =  /*<<map.ml:399:6>>*/ s2[4],
           d2$0 = s2[3],
           v2 = s2[2],
           l2$0 = s2[1],
@@ -11825,7 +12124,7 @@
              r =  /*<<map.ml:417:42>>*/ union(f, r1, r2$0);
              /*<<map.ml:418:12>>*/ if(! d2$0)
               /*<<map.ml:419:22>>*/ return join(l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
-            var d2$1 = d2$0[1];
+            var d2$1 =  /*<<map.ml:418:12>>*/ d2$0[1];
              /*<<map.ml:420:57>>*/ return concat_or_join
                     (l,
                      v1,
@@ -11841,14 +12140,14 @@
             r$0 =  /*<<map.ml:423:42>>*/ union(f, r1$0, r2);
             /*<<map.ml:424:12>>*/ if(! d1$0)
              /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
-           var d1$1 = d1$0[1];
+           var d1$1 =  /*<<map.ml:424:12>>*/ d1$0[1];
             /*<<map.ml:426:57>>*/ return concat_or_join
                    (l$0,
                     v2,
                      /*<<map.ml:426:45>>*/ caml_call3(f, v2, d1$1, d2),
                     r$0) /*<<map.ml:426:59>>*/ ;
           }
-          var s = s1;
+          var s =  /*<<map.ml:411:6>>*/ s1;
          }
          else
           var s = s2;
@@ -11857,7 +12156,7 @@
         function filter(p, m){
           /*<<map.ml:428:19>>*/ if(! m)  /*<<map.ml:429:17>>*/ return 0;
          var
-          r = m[4],
+          r =  /*<<map.ml:428:19>>*/ m[4],
           d = m[3],
           v = m[2],
           l = m[1],
@@ -11873,7 +12172,7 @@
         function filter_map(f, param){
           /*<<map.ml:438:23>>*/ if(! param)  /*<<map.ml:439:17>>*/ return 0;
          var
-          r = param[4],
+          r =  /*<<map.ml:438:23>>*/ param[4],
           d = param[3],
           v = param[2],
           l = param[1],
@@ -11882,13 +12181,13 @@
           r$0 =  /*<<map.ml:444:19>>*/ filter_map(f, r);
           /*<<map.ml:445:10>>*/ if(! fvd)
            /*<<map.ml:447:22>>*/ return concat(l$0, r$0) /*<<map.ml:448:13>>*/ ;
-         var d$0 = fvd[1];
+         var d$0 =  /*<<map.ml:445:10>>*/ fvd[1];
           /*<<map.ml:446:25>>*/ return join(l$0, v, d$0, r$0) /*<<map.ml:448:13>>*/ ;
         }
         function partition(p, param){
           /*<<map.ml:450:22>>*/ if(! param)  /*<<map.ml:451:17>>*/ return _c_;
          var
-          r = param[4],
+          r =  /*<<map.ml:450:22>>*/ param[4],
           d = param[3],
           v = param[2],
           l = param[1],
@@ -11912,10 +12211,10 @@
          /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
          var m$0 = m, e$0 = e;
-          /*<<map.ml:464:6>>*/ for(;;){
-          if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
+         for(;;){
+           /*<<map.ml:464:6>>*/ if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
           var
-           r = m$0[4],
+           r =  /*<<map.ml:464:6>>*/ m$0[4],
            d = m$0[3],
            v = m$0[2],
            l = m$0[1],
@@ -11928,13 +12227,14 @@
          var
           e2$2 =  /*<<map.ml:480:40>>*/ cons_enum(m2, 0),
           e1$2 =  /*<<map.ml:480:21>>*/ cons_enum(m1, 0),
-          e1 = e1$2,
+          e1 =  /*<<map.ml:480:39>>*/ e1$2,
           e2 = e2$2;
-          /*<<map.ml:470:10>>*/ for(;;){
-          if(! e1) return e2 ? -1 : 0 /*<<map.ml:480:58>>*/ ;
-          if(! e2)  /*<<map.ml:473:22>>*/ return 1;
+         for(;;){
+           /*<<map.ml:470:10>>*/ if(! e1)
+           return e2 ? -1 : 0 /*<<map.ml:480:58>>*/ ;
+           /*<<map.ml:470:10>>*/ if(! e2)  /*<<map.ml:473:22>>*/ return 1;
           var
-           e2$0 = e2[4],
+           e2$0 =  /*<<map.ml:470:10>>*/ e2[4],
            r2 = e2[3],
            d2 = e2[2],
            v2 = e2[1],
@@ -11950,7 +12250,7 @@
           var
            e2$1 =  /*<<map.ml:479:42>>*/ cons_enum(r2, e2$0),
            e1$1 =  /*<<map.ml:479:24>>*/ cons_enum(r1, e1$0);
-          e1 = e1$1;
+           /*<<map.ml:479:41>>*/ e1 = e1$1;
           e2 = e2$1;
          }
          /*<<map.ml:480:58>>*/ }
@@ -11958,13 +12258,14 @@
          var
           e2$2 =  /*<<map.ml:491:38>>*/ cons_enum(m2, 0),
           e1$2 =  /*<<map.ml:491:19>>*/ cons_enum(m1, 0),
-          e1 = e1$2,
+          e1 =  /*<<map.ml:491:37>>*/ e1$2,
           e2 = e2$2;
-          /*<<map.ml:484:10>>*/ for(;;){
-          if(! e1) return e2 ? 0 : 1 /*<<map.ml:491:56>>*/ ;
-          if(! e2)  /*<<map.ml:487:22>>*/ return 0;
+         for(;;){
+           /*<<map.ml:484:10>>*/ if(! e1)
+           return e2 ? 0 : 1 /*<<map.ml:491:56>>*/ ;
+           /*<<map.ml:484:10>>*/ if(! e2)  /*<<map.ml:487:22>>*/ return 0;
           var
-           e2$0 = e2[4],
+           e2$0 =  /*<<map.ml:484:10>>*/ e2[4],
            r2 = e2[3],
            d2 = e2[2],
            v2 = e2[1],
@@ -11983,21 +12284,21 @@
             var
              e2$1 =  /*<<map.ml:490:40>>*/ cons_enum(r2, e2$0),
              e1$1 =  /*<<map.ml:490:22>>*/ cons_enum(r1, e1$0);
-            e1 = e1$1;
+             /*<<map.ml:490:39>>*/ e1 = e1$1;
             e2 = e2$1;
             continue;
            }
-           var _r_ = _q_;
+           var _r_ =  /*<<map.ml:489:46>>*/ _q_;
           }
           else
-           var _r_ = _p_;
+           var _r_ =  /*<<map.ml:489:29>>*/ _p_;
           return _r_;
          }
          /*<<map.ml:491:56>>*/ }
         function cardinal(param){
           /*<<map.ml:493:23>>*/ if(! param)  /*<<map.ml:494:17>>*/ return 0;
          var
-          r = param[4],
+          r =  /*<<map.ml:493:23>>*/ param[4],
           l = param[1],
           _o_ =  /*<<map.ml:495:40>>*/ cardinal(r);
           /*<<map.ml:495:33>>*/ return ( /*<<map.ml:495:23>>*/ cardinal(l) + 1
@@ -12007,10 +12308,11 @@
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
          var accu$0 = accu, param$0 = param;
-          /*<<map.ml:497:25>>*/ for(;;){
-          if(! param$0)  /*<<map.ml:498:17>>*/ return accu$0;
+         for(;;){
+           /*<<map.ml:497:25>>*/ if(! param$0)
+            /*<<map.ml:498:17>>*/ return accu$0;
           var
-           r = param$0[4],
+           r =  /*<<map.ml:497:25>>*/ param$0[4],
            d = param$0[3],
            v = param$0[2],
            l = param$0[1],
@@ -12018,7 +12320,7 @@
               /*<<map.ml:499:72>>*/ [0,
               [0, v, d],
                /*<<map.ml:499:53>>*/ bindings_aux(accu$0, r)];
-          accu$0 = accu$1;
+           /*<<map.ml:499:72>>*/ accu$0 = accu$1;
           param$0 = l;
          }
          /*<<map.ml:499:75>>*/ }
@@ -12051,7 +12353,7 @@
         function seq_of_enum(c, param){
           /*<<map.ml:516:32>>*/ if(! c)  /*<<map.ml:517:15>>*/ return 0;
          var
-          rest = c[4],
+          rest =  /*<<map.ml:516:32>>*/ c[4],
           t = c[3],
           v = c[2],
           k = c[1],
@@ -12067,10 +12369,10 @@
         }
         function snoc_enum(s, e){
          var s$0 = s, e$0 = e;
-          /*<<map.ml:524:6>>*/ for(;;){
-          if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
+         for(;;){
+           /*<<map.ml:524:6>>*/ if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
           var
-           r = s$0[4],
+           r =  /*<<map.ml:524:6>>*/ s$0[4],
            d = s$0[3],
            v = s$0[2],
            l = s$0[1],
@@ -12082,7 +12384,7 @@
         function rev_seq_of_enum(c, param){
           /*<<map.ml:528:36>>*/ if(! c)  /*<<map.ml:529:15>>*/ return 0;
          var
-          rest = c[4],
+          rest =  /*<<map.ml:528:36>>*/ c[4],
           t = c[3],
           v = c[2],
           k = c[1],
@@ -12101,9 +12403,9 @@
          {
           b:
           {
-           var m$0 = m, c = 0;
-            /*<<map.ml:537:28>>*/ for(;;){
-            if(! m$0) break;
+           var m$0 =  /*<<map.ml:546:19>>*/ m, c = 0;
+           for(;;){
+             /*<<map.ml:537:28>>*/ if(! m$0) break;
             var
              r = m$0[4],
              d = m$0[3],
@@ -12117,12 +12419,12 @@
              c = c$0;
             }
             else
-             m$0 = r;
+              /*<<map.ml:542:30>>*/ m$0 = r;
            }
-           var _e_ = c;
+           var _e_ =  /*<<map.ml:538:19>>*/ c;
            break a;
           }
-          var _e_ = [0, v, d, r, c];
+          var _e_ =  /*<<map.ml:541:21>>*/ [0, v, d, r, c];
          }
           /*<<map.ml:546:34>>*/ return function(_f_){
            /*<<?>>*/ return seq_of_enum(_e_, _f_);} /*<<map.ml:546:34>>*/ ;
@@ -12225,7 +12527,7 @@
     var match =  /*<<stack.ml:29:2>>*/ s[1];
     if(! match)
       /*<<stack.ml:31:14>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
-    var tl = match[2], hd = match[1];
+    var tl =  /*<<stack.ml:29:2>>*/ match[2], hd = match[1];
      /*<<stack.ml:30:14>>*/ s[1] = tl;
      /*<<stack.ml:30:25>>*/ s[2] = s[2] - 1 | 0;
      /*<<stack.ml:30:45>>*/ return hd;
@@ -12233,7 +12535,7 @@
    function pop_opt(s){
     var match =  /*<<stack.ml:34:2>>*/ s[1];
     if(! match)  /*<<stack.ml:36:14>>*/ return 0;
-    var tl = match[2], hd = match[1];
+    var tl =  /*<<stack.ml:34:2>>*/ match[2], hd = match[1];
      /*<<stack.ml:35:14>>*/ s[1] = tl;
      /*<<stack.ml:35:25>>*/ s[2] = s[2] - 1 | 0;
      /*<<stack.ml:35:45>>*/ return [0, hd];
@@ -12242,7 +12544,7 @@
     var match =  /*<<stack.ml:39:2>>*/ s[1];
     if(! match)
       /*<<stack.ml:41:10>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
-    var tl = match[2];
+    var tl =  /*<<stack.ml:39:2>>*/ match[2];
      /*<<stack.ml:40:15>>*/ s[1] = tl;
      /*<<stack.ml:40:26>>*/ s[2] = s[2] - 1 | 0;
     return 0;
@@ -12251,13 +12553,13 @@
     var match =  /*<<stack.ml:44:2>>*/ s[1];
     if(! match)
       /*<<stack.ml:46:13>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
-    var hd = match[1];
+    var hd =  /*<<stack.ml:44:2>>*/ match[1];
      /*<<stack.ml:45:13>>*/ return hd;
     /*<<stack.ml:46:24>>*/ }
    function top_opt(s){
     var match =  /*<<stack.ml:49:2>>*/ s[1];
     if(! match)  /*<<stack.ml:51:13>>*/ return 0;
-    var hd = match[1];
+    var hd =  /*<<stack.ml:49:2>>*/ match[1];
      /*<<stack.ml:50:13>>*/ return [0, hd];
     /*<<stack.ml:51:17>>*/ }
    function is_empty(s){
@@ -12356,20 +12658,20 @@
     var match =  /*<<queue.ml:59:2>>*/ q[2];
     if(! match)
       /*<<queue.ml:60:11>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
-    var content = match[1];
+    var content =  /*<<queue.ml:59:2>>*/ match[1];
      /*<<queue.ml:61:24>>*/ return content;
     /*<<queue.ml:61:31>>*/ }
    function peek_opt(q){
     var match =  /*<<queue.ml:64:2>>*/ q[2];
     if(! match)  /*<<queue.ml:65:11>>*/ return 0;
-    var content = match[1];
+    var content =  /*<<queue.ml:64:2>>*/ match[1];
      /*<<queue.ml:66:24>>*/ return [0, content];
     /*<<queue.ml:66:36>>*/ }
    function take(q){
     var _f_ =  /*<<queue.ml:72:2>>*/ q[2];
     if(! _f_)
       /*<<queue.ml:73:11>>*/ throw caml_maybe_attach_backtrace(Empty, 1);
-    var content = _f_[1];
+    var content =  /*<<queue.ml:72:2>>*/ _f_[1];
     if(_f_[2]){
      var next = _f_[2];
       /*<<queue.ml:78:4>>*/ q[1] = q[1] - 1 | 0;
@@ -12382,7 +12684,7 @@
    function take_opt(q){
     var _e_ =  /*<<queue.ml:83:2>>*/ q[2];
     if(! _e_)  /*<<queue.ml:84:11>>*/ return 0;
-    var content = _e_[1];
+    var content =  /*<<queue.ml:83:2>>*/ _e_[1];
     if(_e_[2]){
      var next = _e_[2];
       /*<<queue.ml:89:4>>*/ q[1] = q[1] - 1 | 0;
@@ -12398,20 +12700,20 @@
      q_res = [0, q[1], 0, 0],
      prev = 0,
      cell = cell$0;
-     /*<<queue.ml:98:4>>*/ for(;;){
-     if(! cell){
+    for(;;){
+      /*<<queue.ml:98:4>>*/ if(! cell){
        /*<<queue.ml:99:13>>*/ q_res[3] = prev;
        /*<<queue.ml:99:33>>*/ return q_res;
      }
      var
-      content = cell[1],
+      content =  /*<<queue.ml:98:4>>*/ cell[1],
       next = cell[2],
       prev$0 =  /*<<queue.ml:101:6>>*/ [0, content, 0];
       /*<<queue.ml:102:6>>*/ if(prev)
        /*<<queue.ml:104:18>>*/ prev[2] = prev$0;
      else
        /*<<queue.ml:103:15>>*/ q_res[2] = prev$0;
-     prev = prev$0;
+      /*<<queue.ml:106:6>>*/ prev = prev$0;
      cell = next;
     }
     /*<<queue.ml:108:74>>*/ }
@@ -12423,22 +12725,22 @@
     /*<<queue.ml:114:10>>*/ }
    function iter(f, q){
     var cell$0 =  /*<<queue.ml:124:13>>*/ q[2], cell = cell$0;
-     /*<<queue.ml:118:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
-     var content = cell[1], next = cell[2];
+    for(;;){
+      /*<<queue.ml:118:4>>*/ if(! cell)  /*<<queue.ml:119:13>>*/ return 0;
+     var content =  /*<<queue.ml:118:4>>*/ cell[1], next = cell[2];
       /*<<queue.ml:121:6>>*/ caml_call1(f, content);
-     cell = next;
+      /*<<queue.ml:121:15>>*/ cell = next;
     }
     /*<<queue.ml:124:27>>*/ }
    function fold(f, accu$1, q){
     var cell$0 =  /*<<queue.ml:134:18>>*/ q[2], accu = accu$1, cell = cell$0;
-     /*<<queue.ml:128:4>>*/ for(;;){
-     if(! cell)  /*<<queue.ml:129:13>>*/ return accu;
+    for(;;){
+      /*<<queue.ml:128:4>>*/ if(! cell)  /*<<queue.ml:129:13>>*/ return accu;
      var
-      content = cell[1],
+      content =  /*<<queue.ml:128:4>>*/ cell[1],
       next = cell[2],
       accu$0 =  /*<<queue.ml:131:17>>*/ caml_call2(f, accu, content);
-     accu = accu$0;
+      /*<<queue.ml:132:6>>*/ accu = accu$0;
      cell = next;
     }
     /*<<queue.ml:134:37>>*/ }
@@ -12463,7 +12765,7 @@
    function to_seq(q){
     function aux(c, param){
       /*<<queue.ml:153:21>>*/ if(! c)  /*<<queue.ml:154:13>>*/ return 0;
-     var x = c[1], next = c[2];
+     var x =  /*<<queue.ml:153:21>>*/ c[1], next = c[2];
       /*<<queue.ml:155:56>>*/ return [0,
              x,
              function(_c_){ /*<<?>>*/ return aux(next, _c_);}] /*<<queue.ml:155:56>>*/ ;
@@ -12637,7 +12939,7 @@
      old_pos =  /*<<buffer.ml:87:2>>*/ b[2],
      old_len =  /*<<buffer.ml:88:2>>*/ b[1][2],
      new_len =  /*<<buffer.ml:89:2>>*/ [0, old_len];
-    for(;;){
+     /*<<buffer.ml:90:2>>*/ for(;;){
      if(new_len[1] >= (old_pos + more | 0)) break;
       /*<<buffer.ml:90:37>>*/ new_len[1] = 2 * new_len[1] | 0;
     }
@@ -12734,7 +13036,7 @@
       /*<<buffer.ml:151:7>>*/ caml_call1
       (Stdlib[1], cst_Buffer_add_substring_add_s);
     var
-     position = b[2],
+     position =  /*<<buffer.ml:150:2>>*/ b[2],
      match =  /*<<buffer.ml:153:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
@@ -12747,7 +13049,7 @@
     else
       /*<<buffer.ml:159:4>>*/ caml_blit_string
       (s, offset, buffer, position, len);
-    b[2] = new_position;
+     /*<<buffer.ml:155:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
@@ -12772,7 +13074,7 @@
     }
     else
       /*<<buffer.ml:174:4>>*/ caml_blit_string(s, 0, buffer, position, len);
-    b[2] = new_position;
+     /*<<buffer.ml:170:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
@@ -12791,13 +13093,13 @@
      /*<<buffer.ml:200:2>>*/ if(b[1][2] < (b[2] + to_read$1 | 0))
       /*<<buffer.ml:200:44>>*/ resize(b, to_read$1);
     var
-     ofs$1 = b[2],
+     ofs$1 =  /*<<buffer.ml:200:2>>*/ b[2],
      buf = b[1][1],
-     already_read = 0,
+     already_read =  /*<<buffer.ml:196:5>>*/ 0,
      ofs = ofs$1,
      to_read = to_read$1;
-     /*<<buffer.ml:185:4>>*/ for(;;){
-     if(0 !== to_read){
+    for(;;){
+      /*<<buffer.ml:185:4>>*/ if(0 !== to_read){
       var
        r =
           /*<<buffer.ml:187:14>>*/ caml_call4
@@ -12807,7 +13109,7 @@
         already_read$0 =  /*<<buffer.ml:189:11>>*/ already_read + r | 0,
         ofs$0 =  /*<<buffer.ml:191:8>>*/ ofs + r | 0,
         to_read$0 =  /*<<buffer.ml:192:8>>*/ to_read - r | 0;
-       already_read = already_read$0;
+        /*<<buffer.ml:193:8>>*/ already_read = already_read$0;
        ofs = ofs$0;
        to_read = to_read$0;
        continue;
@@ -12827,10 +13129,10 @@
    function add_substitute(b, f, s){
     var
      lim$1 =  /*<<buffer.ml:261:2>>*/ caml_ml_string_length(s),
-     previous = 32,
+     previous =  /*<<buffer.ml:284:2>>*/ 32,
      i$4 = 0;
-     /*<<buffer.ml:263:4>>*/ for(;;){
-     if(i$4 >= lim$1){
+    for(;;){
+      /*<<buffer.ml:263:4>>*/ if(i$4 >= lim$1){
       var _o_ =  /*<<buffer.ml:283:4>>*/ 92 === previous ? 1 : 0;
       return _o_ ?  /*<<buffer.ml:283:28>>*/ add_char(b, previous) : _o_ /*<<buffer.ml:284:13>>*/ ;
      }
@@ -12844,7 +13146,7 @@
       }
       else{
        var start =  /*<<buffer.ml:269:9>>*/ i$4 + 1 | 0;
-       try{
+        /*<<buffer.ml:270:9>>*/ try{
          /*<<buffer.ml:245:2>>*/ if(lim$1 <= start)
           /*<<buffer.ml:245:23>>*/ throw caml_maybe_attach_backtrace
                 (Stdlib[8], 1);
@@ -12860,8 +13162,8 @@
             d:
             {
              var i$2 = start;
-              /*<<buffer.ml:237:4>>*/ for(;;){
-              if(lim$0 <= i$2) break c;
+             for(;;){
+               /*<<buffer.ml:237:4>>*/ if(lim$0 <= i$2) break c;
               var match =  /*<<buffer.ml:238:10>>*/ caml_string_get(s, i$2);
                /*<<buffer.ml:238:15>>*/ if(91 <= match){
                if(97 <= match){
@@ -12878,17 +13180,17 @@
               i$2 = i$3;
              }
             }
-            var stop$0 = i$2;
+            var stop$0 =  /*<<buffer.ml:240:11>>*/ i$2;
             break b;
            }
-           var stop$0 = lim$0;
+           var stop$0 =  /*<<buffer.ml:237:21>>*/ lim$0;
           }
            /*<<buffer.ml:255:5>>*/ if(stop$0 === start)
             /*<<buffer.ml:255:26>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
            val =
-             [0,
+              /*<<buffer.ml:256:38>>*/ [0,
                /*<<buffer.ml:256:5>>*/ caml_call3
                (Stdlib_String[16], s, start, stop$0 - start | 0),
               stop$0];
@@ -12898,19 +13200,19 @@
           new_start =  /*<<buffer.ml:249:5>>*/ start + 1 | 0,
           k$2 =  /*<<buffer.ml:250:5>>*/ 0;
           /*<<buffer.ml:217:14>>*/ if(40 === opening)
-          var closing = 41;
+          var closing =  /*<<buffer.ml:218:11>>*/ 41;
          else{
-          if(123 !== opening)
+           /*<<buffer.ml:217:14>>*/ if(123 !== opening)
             /*<<buffer.ml:220:9>>*/ throw caml_maybe_attach_backtrace
                   ([0, Assert_failure, _a_], 1);
-          var closing = 125;
+          var closing =  /*<<buffer.ml:219:11>>*/ 125;
          }
          var
           lim =  /*<<buffer.ml:233:2>>*/ caml_ml_string_length(s),
           k = k$2,
           stop = new_start;
-          /*<<buffer.ml:228:4>>*/ for(;;){
-          if(lim <= stop)
+         for(;;){
+           /*<<buffer.ml:228:4>>*/ if(lim <= stop)
             /*<<buffer.ml:228:21>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
            /*<<buffer.ml:229:12>>*/ if
@@ -12930,7 +13232,7 @@
          }
          var
           val =
-            [0,
+             /*<<buffer.ml:251:46>>*/ [0,
               /*<<buffer.ml:251:5>>*/ caml_call3
               (Stdlib_String[16], s, new_start, (stop - start | 0) - 1 | 0),
              stop + 1 | 0];
@@ -12938,23 +13240,25 @@
        }
        catch(_p_){
         var _n_ = caml_wrap_exception(_p_);
-        if(_n_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_n_, 0);
+         /*<<?>>*/ if(_n_ !== Stdlib[8])
+         throw caml_maybe_attach_backtrace(_n_, 0);
          /*<<buffer.ml:275:11>>*/ add_char(b, 36);
-        previous = 32;
+         /*<<buffer.ml:275:25>>*/ previous = 32;
         i$4 = start;
         continue;
        }
-       var next_i = val[2], ident = val[1];
+       var next_i =  /*<<buffer.ml:270:9>>*/ val[2], ident = val[1];
         /*<<buffer.ml:272:11>>*/ add_string
         (b,  /*<<buffer.ml:272:24>>*/ caml_call1(f, ident));
-       previous = 32;
+        /*<<buffer.ml:272:33>>*/ previous = 32;
        i$4 = next_i;
       }
      else{
        /*<<buffer.ml:279:9>>*/ if(92 === previous)
         /*<<buffer.ml:279:33>>*/ add_char(b, previous);
-      if(92 !== previous$0)  /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
-      var i$6 = i$4 + 1 | 0;
+       /*<<buffer.ml:279:9>>*/ if(92 !== previous$0)
+        /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
+      var i$6 =  /*<<buffer.ml:279:9>>*/ i$4 + 1 | 0;
       previous = previous$0;
       i$4 = i$6;
      }
@@ -13037,7 +13341,7 @@
     }
     else
       /*<<buffer.ml:356:4>>*/ caml_bytes_set16(buffer, position, x);
-    b[2] = new_position;
+     /*<<buffer.ml:352:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:357:28>>*/ }
    function add_int32_ne(b, x){
@@ -13053,7 +13357,7 @@
     }
     else
       /*<<buffer.ml:367:4>>*/ caml_bytes_set32(buffer, position, x);
-    b[2] = new_position;
+     /*<<buffer.ml:363:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:368:28>>*/ }
    function add_int64_ne(b, x){
@@ -13069,7 +13373,7 @@
     }
     else
       /*<<buffer.ml:378:4>>*/ caml_bytes_set64(buffer, position, x);
-    b[2] = new_position;
+     /*<<buffer.ml:374:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
@@ -13078,7 +13382,7 @@
         /*<<buffer.ml:382:2>>*/ Stdlib_Sys[11]
         ?  /*<<buffer.ml:382:41>>*/ caml_bswap16(x)
         : x;
-    return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
+     /*<<buffer.ml:382:2>>*/ return add_int16_ne(b, _d_) /*<<buffer.ml:382:57>>*/ ;
    }
    function add_int16_be(b, x){
     var
@@ -13086,7 +13390,7 @@
         /*<<buffer.ml:385:2>>*/ Stdlib_Sys[11]
         ? x
         :  /*<<buffer.ml:385:48>>*/ caml_bswap16(x);
-    return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
+     /*<<buffer.ml:385:2>>*/ return add_int16_ne(b, x$0) /*<<buffer.ml:385:57>>*/ ;
    }
    function add_int32_le(b, x){
     var
@@ -13094,7 +13398,7 @@
         /*<<buffer.ml:388:2>>*/ Stdlib_Sys[11]
         ?  /*<<buffer.ml:388:41>>*/ caml_int32_bswap(x)
         : x;
-    return add_int32_ne(b, _c_) /*<<buffer.ml:388:57>>*/ ;
+     /*<<buffer.ml:388:2>>*/ return add_int32_ne(b, _c_) /*<<buffer.ml:388:57>>*/ ;
    }
    function add_int32_be(b, x){
     var
@@ -13102,7 +13406,7 @@
         /*<<buffer.ml:391:2>>*/ Stdlib_Sys[11]
         ? x
         :  /*<<buffer.ml:391:48>>*/ caml_int32_bswap(x);
-    return add_int32_ne(b, x$0) /*<<buffer.ml:391:57>>*/ ;
+     /*<<buffer.ml:391:2>>*/ return add_int32_ne(b, x$0) /*<<buffer.ml:391:57>>*/ ;
    }
    function add_int64_le(b, x){
     var
@@ -13110,7 +13414,7 @@
         /*<<buffer.ml:394:2>>*/ Stdlib_Sys[11]
         ?  /*<<buffer.ml:394:41>>*/ caml_int64_bswap(x)
         : x;
-    return add_int64_ne(b, _b_) /*<<buffer.ml:394:57>>*/ ;
+     /*<<buffer.ml:394:2>>*/ return add_int64_ne(b, _b_) /*<<buffer.ml:394:57>>*/ ;
    }
    function add_int64_be(b, x){
     var
@@ -13118,7 +13422,7 @@
         /*<<buffer.ml:397:2>>*/ Stdlib_Sys[11]
         ? x
         :  /*<<buffer.ml:397:48>>*/ caml_int64_bswap(x);
-    return add_int64_ne(b, x$0) /*<<buffer.ml:397:57>>*/ ;
+     /*<<buffer.ml:397:2>>*/ return add_int64_ne(b, x$0) /*<<buffer.ml:397:57>>*/ ;
    }
    var
     Stdlib_Buffer =
@@ -13184,7 +13488,9 @@
    }
    function protect(m, f){
      /*<<mutex.ml:27:2>>*/ caml_ml_mutex_lock(m);
-    try{var x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);}
+     /*<<mutex.ml:27:8>>*/ try{
+     var x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
+    }
     catch(e$0){
      var e = caml_wrap_exception(e$0);
       /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock(m);
@@ -13271,7 +13577,7 @@
     /*<<semaphore.ml:41:5>>*/ }
    function acquire(s){
      /*<<semaphore.ml:44:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
-     /*<<semaphore.ml:45:19>>*/ for(;;){
+     /*<<semaphore.ml:44:18>>*/ for(;;){
      if(0 !== s[2]){
        /*<<semaphore.ml:46:2>>*/ s[2] = s[2] - 1 | 0;
        /*<<semaphore.ml:47:2>>*/ return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:47:20>>*/ ;
@@ -13308,7 +13614,7 @@
    }
    function acquire$0(s){
      /*<<semaphore.ml:75:2>>*/ caml_call1(Stdlib_Mutex[2], s[1]);
-     /*<<semaphore.ml:76:19>>*/ for(;;){
+     /*<<semaphore.ml:75:18>>*/ for(;;){
      if(0 !== s[2]){
        /*<<semaphore.ml:77:2>>*/ s[2] = 0;
        /*<<semaphore.ml:78:2>>*/ return caml_call1(Stdlib_Mutex[4], s[1]) /*<<semaphore.ml:78:20>>*/ ;
@@ -13395,7 +13701,7 @@
      var
       split = split_from_parent[1],
       ki =  /*<<domain.ml:113:20>>*/ [0, k, split];
-      /*<<domain.ml:104:4>>*/ for(;;){
+     for(;;){
       var
        l =  /*<<domain.ml:104:12>>*/ caml_call1(Stdlib_Atomic[3], parent_keys);
        /*<<domain.ml:105:59>>*/ if
@@ -13416,9 +13722,9 @@
       sz =  /*<<domain.ml:121:4>>*/ st.length - 1;
       /*<<domain.ml:122:4>>*/ if(idx < sz)
        /*<<domain.ml:122:21>>*/ return st;
-     var new_sz = sz;
-      /*<<domain.ml:125:8>>*/ for(;;){
-      if(idx < new_sz) break;
+     var new_sz =  /*<<domain.ml:127:19>>*/ sz;
+     for(;;){
+       /*<<domain.ml:125:8>>*/ if(idx < new_sz) break;
       var s =  /*<<domain.ml:125:31>>*/ 2 * new_sz | 0;
       new_sz = s;
      }
@@ -13566,7 +13872,8 @@
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
-      try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}catch(_d_){}
+       /*<<domain.ml:278:8>>*/ try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}
+      catch(_d_){}
        /*<<domain.ml:279:8>>*/ throw caml_maybe_attach_backtrace(exn, 0);
      }
       /*<<domain.ml:272:8>>*/ do_at_exit(0);
@@ -13595,7 +13902,7 @@
      var x = match[1];
       /*<<domain.ml:295:12>>*/ return x;
     }
-    var ex = match[1];
+    var ex =  /*<<domain.ml:294:40>>*/ match[1];
     throw caml_maybe_attach_backtrace(ex, 1);
     /*<<domain.ml:296:24>>*/ }
    var
@@ -13793,7 +14100,7 @@
    function rev_char_set(char_set){
     var
      char_set$0 =  /*<<camlinternalFormat.ml:38:18>>*/ create_char_set(0),
-     i = 0;
+     i =  /*<<camlinternalFormat.ml:39:2>>*/ 0;
     for(;;){
      var
       _cS_ =
@@ -13808,9 +14115,9 @@
      if(31 === i)
        /*<<camlinternalFormat.ml:43:2>>*/ return caml_call1
               (Stdlib_Bytes[44], char_set$0) /*<<camlinternalFormat.ml:43:34>>*/ ;
-     i = _cT_;
+      /*<<camlinternalFormat.ml:41:67>>*/ i = _cT_;
     }
-   }
+    /*<<camlinternalFormat.ml:43:34>>*/ }
    function is_in_char_set(char_set, c){
     var
      str_ind =  /*<<camlinternalFormat.ml:48:2>>*/ c >>> 3 | 0,
@@ -13826,7 +14133,7 @@
    function pad_of_pad_opt(pad_opt){
      /*<<camlinternalFormat.ml:62:29>>*/ if(! pad_opt)
       /*<<camlinternalFormat.ml:63:12>>*/ return 0;
-    var width = pad_opt[1];
+    var width =  /*<<camlinternalFormat.ml:62:29>>*/ pad_opt[1];
      /*<<camlinternalFormat.ml:64:18>>*/ return [0, 1, width];
     /*<<camlinternalFormat.ml:64:44>>*/ }
    function param_format_of_ignored_format(ign, fmt){
@@ -13840,7 +14147,7 @@
          /*<<camlinternalFormat.ml:108:4>>*/ return [0, [19, fmt]];
        default:  /*<<camlinternalFormat.ml:114:4>>*/ return [0, [22, fmt]];
      }
-    switch(ign[0]){
+     /*<<camlinternalFormat.ml:76:15>>*/ switch(ign[0]){
       case 0:
        var pad_opt = ign[1];
         /*<<camlinternalFormat.ml:82:52>>*/ return [0,
@@ -13848,13 +14155,15 @@
                  /*<<camlinternalFormat.ml:82:30>>*/ pad_of_pad_opt(pad_opt),
                 fmt]] /*<<camlinternalFormat.ml:82:52>>*/ ;
       case 1:
-       var pad_opt$0 = ign[1];
+       var pad_opt$0 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[1];
         /*<<camlinternalFormat.ml:84:57>>*/ return [0,
                [3,
                  /*<<camlinternalFormat.ml:84:35>>*/ pad_of_pad_opt(pad_opt$0),
                 fmt]] /*<<camlinternalFormat.ml:84:57>>*/ ;
       case 2:
-       var pad_opt$1 = ign[2], iconv = ign[1];
+       var
+        pad_opt$1 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        iconv = ign[1];
         /*<<camlinternalFormat.ml:86:56>>*/ return [0,
                [4,
                 iconv,
@@ -13862,7 +14171,9 @@
                 0,
                 fmt]] /*<<camlinternalFormat.ml:86:56>>*/ ;
       case 3:
-       var pad_opt$2 = ign[2], iconv$0 = ign[1];
+       var
+        pad_opt$2 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        iconv$0 = ign[1];
         /*<<camlinternalFormat.ml:89:43>>*/ return [0,
                [5,
                 iconv$0,
@@ -13870,7 +14181,9 @@
                 0,
                 fmt]] /*<<camlinternalFormat.ml:89:43>>*/ ;
       case 4:
-       var pad_opt$3 = ign[2], iconv$1 = ign[1];
+       var
+        pad_opt$3 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        iconv$1 = ign[1];
         /*<<camlinternalFormat.ml:92:47>>*/ return [0,
                [6,
                 iconv$1,
@@ -13878,7 +14191,9 @@
                 0,
                 fmt]] /*<<camlinternalFormat.ml:92:47>>*/ ;
       case 5:
-       var pad_opt$4 = ign[2], iconv$2 = ign[1];
+       var
+        pad_opt$4 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        iconv$2 = ign[1];
         /*<<camlinternalFormat.ml:95:43>>*/ return [0,
                [7,
                 iconv$2,
@@ -13886,11 +14201,15 @@
                 0,
                 fmt]] /*<<camlinternalFormat.ml:95:43>>*/ ;
       case 6:
-       var prec_opt = ign[2], pad_opt$5 = ign[1];
+       var
+        prec_opt =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        pad_opt$5 = ign[1];
         /*<<camlinternalFormat.ml:67:32>>*/ if(prec_opt)
-        var ndec = prec_opt[1], _cR_ = [0, ndec];
+        var
+         ndec = prec_opt[1],
+         _cR_ =  /*<<camlinternalFormat.ml:69:17>>*/ [0, ndec];
        else
-        var _cR_ = 0;
+        var _cR_ =  /*<<camlinternalFormat.ml:68:12>>*/ 0;
         /*<<camlinternalFormat.ml:99:36>>*/ return [0,
                [8,
                 _a_,
@@ -13898,26 +14217,32 @@
                 _cR_,
                 fmt]] /*<<camlinternalFormat.ml:99:36>>*/ ;
       case 7:
-       var pad_opt$6 = ign[1];
+       var pad_opt$6 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[1];
         /*<<camlinternalFormat.ml:101:50>>*/ return [0,
                [9,
                  /*<<camlinternalFormat.ml:101:28>>*/ pad_of_pad_opt
                  (pad_opt$6),
                 fmt]] /*<<camlinternalFormat.ml:101:50>>*/ ;
       case 8:
-       var fmtty = ign[2], pad_opt$7 = ign[1];
+       var
+        fmtty =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        pad_opt$7 = ign[1];
         /*<<camlinternalFormat.ml:103:4>>*/ return [0,
                [13, pad_opt$7, fmtty, fmt]];
       case 9:
-       var fmtty$0 = ign[2], pad_opt$8 = ign[1];
+       var
+        fmtty$0 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        pad_opt$8 = ign[1];
         /*<<camlinternalFormat.ml:105:4>>*/ return [0,
                [14, pad_opt$8, fmtty$0, fmt]];
       case 10:
-       var char_set = ign[2], width_opt = ign[1];
+       var
+        char_set =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
+        width_opt = ign[1];
         /*<<camlinternalFormat.ml:110:4>>*/ return [0,
                [20, width_opt, char_set, fmt]];
       default:
-       var counter = ign[1];
+       var counter =  /*<<camlinternalFormat.ml:76:15>>*/ ign[1];
         /*<<camlinternalFormat.ml:112:4>>*/ return [0, [21, counter, fmt]];
     }
     /*<<camlinternalFormat.ml:114:41>>*/ }
@@ -14026,7 +14351,7 @@
    function bprint_pad_opt(buf, pad_opt){
      /*<<camlinternalFormat.ml:385:33>>*/ if(! pad_opt)
       /*<<camlinternalFormat.ml:386:12>>*/ return;
-    var width = pad_opt[1];
+    var width =  /*<<camlinternalFormat.ml:385:33>>*/ pad_opt[1];
      /*<<camlinternalFormat.ml:387:61>>*/ return buffer_add_string
             (buf,
               /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
@@ -14035,7 +14360,7 @@
    function bprint_padding(buf, pad){
      /*<<camlinternalFormat.ml:393:15>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:394:18>>*/ return;
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:393:15>>*/ if(0 === pad[0]){
      var n = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty(buf, padty);
       /*<<camlinternalFormat.ml:397:43>>*/ return buffer_add_string
@@ -14043,7 +14368,7 @@
                /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
                (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
     }
-    var padty$0 = pad[1];
+    var padty$0 =  /*<<camlinternalFormat.ml:393:15>>*/ pad[1];
      /*<<camlinternalFormat.ml:399:4>>*/ bprint_padty(buf, padty$0);
      /*<<camlinternalFormat.ml:399:26>>*/ return buffer_add_char(buf, 42) /*<<camlinternalFormat.ml:400:27>>*/ ;
    }
@@ -14056,7 +14381,7 @@
                /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
                (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
     }
-    if(prec)
+     /*<<camlinternalFormat.ml:404:18>>*/ if(prec)
       /*<<camlinternalFormat.ml:410:4>>*/ return buffer_add_string(buf, cst) /*<<camlinternalFormat.ml:410:30>>*/ ;
    }
    function bprint_iconv_flag(buf, iconv){
@@ -14115,16 +14440,16 @@
          /*<<camlinternalFormat.ml:473:28>>*/ return cst$5;
        default:  /*<<camlinternalFormat.ml:474:28>>*/ return cst$6;
      }
-    switch(formatting_lit[0]){
+     /*<<camlinternalFormat.ml:465:46>>*/ switch(formatting_lit[0]){
       case 0:
        var str = formatting_lit[1];
         /*<<camlinternalFormat.ml:468:28>>*/ return str;
       case 1:
-       var str$0 = formatting_lit[1];
+       var str$0 =  /*<<camlinternalFormat.ml:465:46>>*/ formatting_lit[1];
         /*<<camlinternalFormat.ml:472:28>>*/ return str$0;
       default:
        var
-        c = formatting_lit[1],
+        c =  /*<<camlinternalFormat.ml:465:46>>*/ formatting_lit[1],
         _cQ_ =
            /*<<camlinternalFormat.ml:475:26>>*/ caml_call2
            (Stdlib_String[1], 1, c);
@@ -14156,95 +14481,99 @@
     /*<<camlinternalFormat.ml:488:6>>*/ }
    function bprint_fmtty(buf, fmtty){
     var fmtty$0 = fmtty;
-     /*<<camlinternalFormat.ml:496:17>>*/ for(;;){
-     if(typeof fmtty$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:496:17>>*/ if(typeof fmtty$0 === "number")
        /*<<camlinternalFormat.ml:521:20>>*/ return;
-     switch(fmtty$0[0]){
+      /*<<camlinternalFormat.ml:496:17>>*/ switch(fmtty$0[0]){
        case 0:
         var fmtty$1 = fmtty$0[1];
          /*<<camlinternalFormat.ml:497:25>>*/ buffer_add_string(buf, cst_c);
-        fmtty$0 = fmtty$1;
+         /*<<camlinternalFormat.ml:497:51>>*/ fmtty$0 = fmtty$1;
         break;
        case 1:
-        var fmtty$2 = fmtty$0[1];
+        var fmtty$2 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:498:25>>*/ buffer_add_string(buf, cst_s);
-        fmtty$0 = fmtty$2;
+         /*<<camlinternalFormat.ml:498:51>>*/ fmtty$0 = fmtty$2;
         break;
        case 2:
-        var fmtty$3 = fmtty$0[1];
+        var fmtty$3 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:499:25>>*/ buffer_add_string(buf, cst_i);
-        fmtty$0 = fmtty$3;
+         /*<<camlinternalFormat.ml:499:51>>*/ fmtty$0 = fmtty$3;
         break;
        case 3:
-        var fmtty$4 = fmtty$0[1];
+        var fmtty$4 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:500:25>>*/ buffer_add_string(buf, cst_li);
-        fmtty$0 = fmtty$4;
+         /*<<camlinternalFormat.ml:500:52>>*/ fmtty$0 = fmtty$4;
         break;
        case 4:
-        var fmtty$5 = fmtty$0[1];
+        var fmtty$5 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:501:25>>*/ buffer_add_string(buf, cst_ni);
-        fmtty$0 = fmtty$5;
+         /*<<camlinternalFormat.ml:501:52>>*/ fmtty$0 = fmtty$5;
         break;
        case 5:
-        var fmtty$6 = fmtty$0[1];
+        var fmtty$6 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:502:25>>*/ buffer_add_string(buf, cst_Li);
-        fmtty$0 = fmtty$6;
+         /*<<camlinternalFormat.ml:502:52>>*/ fmtty$0 = fmtty$6;
         break;
        case 6:
-        var fmtty$7 = fmtty$0[1];
+        var fmtty$7 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:503:25>>*/ buffer_add_string(buf, cst_f);
-        fmtty$0 = fmtty$7;
+         /*<<camlinternalFormat.ml:503:51>>*/ fmtty$0 = fmtty$7;
         break;
        case 7:
-        var fmtty$8 = fmtty$0[1];
+        var fmtty$8 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:504:25>>*/ buffer_add_string(buf, cst_B);
-        fmtty$0 = fmtty$8;
+         /*<<camlinternalFormat.ml:504:51>>*/ fmtty$0 = fmtty$8;
         break;
        case 8:
-        var fmtty$9 = fmtty$0[2], sub_fmtty = fmtty$0[1];
+        var
+         fmtty$9 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[2],
+         sub_fmtty = fmtty$0[1];
          /*<<camlinternalFormat.ml:515:4>>*/ buffer_add_string(buf, cst$9);
          /*<<camlinternalFormat.ml:515:32>>*/ bprint_fmtty(buf, sub_fmtty);
          /*<<camlinternalFormat.ml:516:4>>*/ buffer_add_string(buf, cst$10);
-        fmtty$0 = fmtty$9;
+         /*<<camlinternalFormat.ml:516:30>>*/ fmtty$0 = fmtty$9;
         break;
        case 9:
-        var fmtty$10 = fmtty$0[3], sub_fmtty$0 = fmtty$0[1];
+        var
+         fmtty$10 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[3],
+         sub_fmtty$0 = fmtty$0[1];
          /*<<camlinternalFormat.ml:518:4>>*/ buffer_add_string(buf, cst$11);
          /*<<camlinternalFormat.ml:518:32>>*/ bprint_fmtty(buf, sub_fmtty$0);
          /*<<camlinternalFormat.ml:519:4>>*/ buffer_add_string(buf, cst$12);
-        fmtty$0 = fmtty$10;
+         /*<<camlinternalFormat.ml:519:30>>*/ fmtty$0 = fmtty$10;
         break;
        case 10:
-        var fmtty$11 = fmtty$0[1];
+        var fmtty$11 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:505:25>>*/ buffer_add_string(buf, cst_a);
-        fmtty$0 = fmtty$11;
+         /*<<camlinternalFormat.ml:505:51>>*/ fmtty$0 = fmtty$11;
         break;
        case 11:
-        var fmtty$12 = fmtty$0[1];
+        var fmtty$12 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:506:25>>*/ buffer_add_string(buf, cst_t);
-        fmtty$0 = fmtty$12;
+         /*<<camlinternalFormat.ml:506:51>>*/ fmtty$0 = fmtty$12;
         break;
        case 12:
-        var fmtty$13 = fmtty$0[1];
+        var fmtty$13 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:507:25>>*/ buffer_add_string(buf, cst$13);
-        fmtty$0 = fmtty$13;
+         /*<<camlinternalFormat.ml:507:51>>*/ fmtty$0 = fmtty$13;
         break;
        case 13:
-        var fmtty$14 = fmtty$0[1];
+        var fmtty$14 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:508:25>>*/ buffer_add_string(buf, cst_r);
-        fmtty$0 = fmtty$14;
+         /*<<camlinternalFormat.ml:508:51>>*/ fmtty$0 = fmtty$14;
         break;
        default:
-        var fmtty$15 = fmtty$0[1];
+        var fmtty$15 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:511:4>>*/ buffer_add_string(buf, cst_r$0);
-        fmtty$0 = fmtty$15;
+         /*<<camlinternalFormat.ml:511:31>>*/ fmtty$0 = fmtty$15;
      }
     }
     /*<<camlinternalFormat.ml:521:22>>*/ }
    function int_of_custom_arity(param){
      /*<<camlinternalFormat.ml:525:8>>*/ if(! param)
       /*<<camlinternalFormat.ml:528:19>>*/ return 0;
-    var x = param[1];
+    var x =  /*<<camlinternalFormat.ml:525:8>>*/ param[1];
      /*<<camlinternalFormat.ml:529:46>>*/ return 1
            +  /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity(x)
            | 0 /*<<camlinternalFormat.ml:529:46>>*/ ;
@@ -14253,51 +14582,55 @@
     var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
     function fmtiter(fmt, ign_flag){
      var fmt$0 = fmt, ign_flag$0 = ign_flag;
-      /*<<camlinternalFormat.ml:535:22>>*/ for(;;){
-      if(typeof fmt$0 === "number")
+     for(;;){
+       /*<<camlinternalFormat.ml:535:22>>*/ if(typeof fmt$0 === "number")
         /*<<camlinternalFormat.ml:636:23>>*/ return;
-      switch(fmt$0[0]){
+       /*<<camlinternalFormat.ml:535:22>>*/ switch(fmt$0[0]){
         case 0:
          var rest = fmt$0[1];
           /*<<camlinternalFormat.ml:562:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:562:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:563:6>>*/ buffer_add_char(buf, 99);
-         fmt$0 = rest;
+          /*<<camlinternalFormat.ml:563:29>>*/ fmt$0 = rest;
          ign_flag$0 = 0;
          break;
         case 1:
-         var rest$0 = fmt$0[1];
+         var rest$0 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[1];
           /*<<camlinternalFormat.ml:565:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:565:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:566:6>>*/ buffer_add_char(buf, 67);
-         fmt$0 = rest$0;
+          /*<<camlinternalFormat.ml:566:29>>*/ fmt$0 = rest$0;
          ign_flag$0 = 0;
          break;
         case 2:
-         var rest$1 = fmt$0[2], pad = fmt$0[1];
+         var
+          rest$1 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          pad = fmt$0[1];
           /*<<camlinternalFormat.ml:537:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:537:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:538:6>>*/ bprint_padding(buf, pad);
           /*<<camlinternalFormat.ml:538:30>>*/ buffer_add_char(buf, 115);
-         fmt$0 = rest$1;
+          /*<<camlinternalFormat.ml:538:53>>*/ fmt$0 = rest$1;
          ign_flag$0 = 0;
          break;
         case 3:
-         var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
+         var
+          rest$2 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          pad$0 = fmt$0[1];
           /*<<camlinternalFormat.ml:541:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:541:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:542:6>>*/ bprint_padding(buf, pad$0);
           /*<<camlinternalFormat.ml:542:30>>*/ buffer_add_char(buf, 83);
-         fmt$0 = rest$2;
+          /*<<camlinternalFormat.ml:542:53>>*/ fmt$0 = rest$2;
          ign_flag$0 = 0;
          break;
         case 4:
          var
-          rest$3 = fmt$0[4],
+          rest$3 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[4],
           prec = fmt$0[3],
           pad$1 = fmt$0[2],
           iconv = fmt$0[1];
@@ -14309,45 +14642,45 @@
           /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision(buf, prec);
           /*<<camlinternalFormat.ml:429:43>>*/ buffer_add_char
           (buf,  /*<<camlinternalFormat.ml:429:22>>*/ char_of_iconv(iconv));
-         fmt$0 = rest$3;
+          /*<<camlinternalFormat.ml:546:48>>*/ fmt$0 = rest$3;
          ign_flag$0 = 0;
          break;
         case 5:
          var
-          rest$4 = fmt$0[4],
+          rest$4 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[4],
           prec$0 = fmt$0[3],
           pad$2 = fmt$0[2],
           iconv$0 = fmt$0[1];
           /*<<camlinternalFormat.ml:549:6>>*/ bprint_altint_fmt
           (buf, ign_flag$0, iconv$0, pad$2, prec$0, 108);
-         fmt$0 = rest$4;
+          /*<<camlinternalFormat.ml:549:55>>*/ fmt$0 = rest$4;
          ign_flag$0 = 0;
          break;
         case 6:
          var
-          rest$5 = fmt$0[4],
+          rest$5 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[4],
           prec$1 = fmt$0[3],
           pad$3 = fmt$0[2],
           iconv$1 = fmt$0[1];
           /*<<camlinternalFormat.ml:552:6>>*/ bprint_altint_fmt
           (buf, ign_flag$0, iconv$1, pad$3, prec$1, 110);
-         fmt$0 = rest$5;
+          /*<<camlinternalFormat.ml:552:55>>*/ fmt$0 = rest$5;
          ign_flag$0 = 0;
          break;
         case 7:
          var
-          rest$6 = fmt$0[4],
+          rest$6 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[4],
           prec$2 = fmt$0[3],
           pad$4 = fmt$0[2],
           iconv$2 = fmt$0[1];
           /*<<camlinternalFormat.ml:555:6>>*/ bprint_altint_fmt
           (buf, ign_flag$0, iconv$2, pad$4, prec$2, 76);
-         fmt$0 = rest$6;
+          /*<<camlinternalFormat.ml:555:55>>*/ fmt$0 = rest$6;
          ign_flag$0 = 0;
          break;
         case 8:
          var
-          rest$7 = fmt$0[4],
+          rest$7 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[4],
           prec$3 = fmt$0[3],
           pad$5 = fmt$0[2],
           fconv = fmt$0[1];
@@ -14359,36 +14692,45 @@
           /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision(buf, prec$3);
           /*<<camlinternalFormat.ml:461:43>>*/ buffer_add_char
           (buf,  /*<<camlinternalFormat.ml:461:22>>*/ char_of_fconv(0, fconv));
-         fmt$0 = rest$7;
+          /*<<camlinternalFormat.ml:558:50>>*/ fmt$0 = rest$7;
          ign_flag$0 = 0;
          break;
         case 9:
-         var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
+         var
+          rest$8 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          pad$6 = fmt$0[1];
           /*<<camlinternalFormat.ml:568:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:568:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:569:6>>*/ bprint_padding(buf, pad$6);
           /*<<camlinternalFormat.ml:569:30>>*/ buffer_add_char(buf, 66);
-         fmt$0 = rest$8;
+          /*<<camlinternalFormat.ml:569:53>>*/ fmt$0 = rest$8;
          ign_flag$0 = 0;
          break;
         case 10:
-         var rest$9 = fmt$0[1];
+         var rest$9 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[1];
           /*<<camlinternalFormat.ml:587:6>>*/ buffer_add_string(buf, cst$14);
-         fmt$0 = rest$9;
+          /*<<camlinternalFormat.ml:587:32>>*/ fmt$0 = rest$9;
          break;
         case 11:
-         var rest$10 = fmt$0[2], str = fmt$0[1];
+         var
+          rest$10 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          str = fmt$0[1];
           /*<<camlinternalFormat.ml:591:6>>*/ bprint_string_literal(buf, str);
-         fmt$0 = rest$10;
+          /*<<camlinternalFormat.ml:591:35>>*/ fmt$0 = rest$10;
          break;
         case 12:
-         var rest$11 = fmt$0[2], chr = fmt$0[1];
+         var
+          rest$11 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          chr = fmt$0[1];
           /*<<camlinternalFormat.ml:594:6>>*/ bprint_char_literal(buf, chr);
-         fmt$0 = rest$11;
+          /*<<camlinternalFormat.ml:594:33>>*/ fmt$0 = rest$11;
          break;
         case 13:
-         var rest$12 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
+         var
+          rest$12 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[3],
+          fmtty = fmt$0[2],
+          pad_opt = fmt$0[1];
           /*<<camlinternalFormat.ml:598:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:598:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
@@ -14397,11 +14739,14 @@
           /*<<camlinternalFormat.ml:600:6>>*/ bprint_fmtty(buf, fmtty);
           /*<<camlinternalFormat.ml:600:30>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:600:55>>*/ buffer_add_char(buf, 125);
-         fmt$0 = rest$12;
+          /*<<camlinternalFormat.ml:600:78>>*/ fmt$0 = rest$12;
          ign_flag$0 = 0;
          break;
         case 14:
-         var rest$13 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
+         var
+          rest$13 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[3],
+          fmtty$0 = fmt$0[2],
+          pad_opt$0 = fmt$0[1];
           /*<<camlinternalFormat.ml:603:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:603:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
@@ -14410,60 +14755,67 @@
           /*<<camlinternalFormat.ml:605:6>>*/ bprint_fmtty(buf, fmtty$0);
           /*<<camlinternalFormat.ml:605:30>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:605:55>>*/ buffer_add_char(buf, 41);
-         fmt$0 = rest$13;
+          /*<<camlinternalFormat.ml:605:78>>*/ fmt$0 = rest$13;
          ign_flag$0 = 0;
          break;
         case 15:
-         var rest$14 = fmt$0[1];
+         var rest$14 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[1];
           /*<<camlinternalFormat.ml:572:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:572:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:573:6>>*/ buffer_add_char(buf, 97);
-         fmt$0 = rest$14;
+          /*<<camlinternalFormat.ml:573:29>>*/ fmt$0 = rest$14;
          ign_flag$0 = 0;
          break;
         case 16:
-         var rest$15 = fmt$0[1];
+         var rest$15 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[1];
           /*<<camlinternalFormat.ml:575:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:575:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:576:6>>*/ buffer_add_char(buf, 116);
-         fmt$0 = rest$15;
+          /*<<camlinternalFormat.ml:576:29>>*/ fmt$0 = rest$15;
          ign_flag$0 = 0;
          break;
         case 17:
-         var rest$16 = fmt$0[2], fmting_lit = fmt$0[1];
+         var
+          rest$16 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          fmting_lit = fmt$0[1];
           /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
           (buf,
             /*<<camlinternalFormat.ml:625:32>>*/ string_of_formatting_lit
             (fmting_lit));
-         fmt$0 = rest$16;
+          /*<<camlinternalFormat.ml:625:69>>*/ fmt$0 = rest$16;
          break;
         case 18:
-         var rest$17 = fmt$0[2], fmting_gen = fmt$0[1];
+         var
+          rest$17 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          fmting_gen = fmt$0[1];
           /*<<camlinternalFormat.ml:628:6>>*/ if(0 === fmting_gen[0]){
           var str$0 = fmting_gen[1][2];
            /*<<camlinternalFormat.ml:630:8>>*/ buffer_add_string(buf, cst$15);
            /*<<camlinternalFormat.ml:630:36>>*/ buffer_add_string(buf, str$0);
          }
          else{
-          var str$1 = fmting_gen[1][2];
+          var str$1 =  /*<<camlinternalFormat.ml:628:6>>*/ fmting_gen[1][2];
            /*<<camlinternalFormat.ml:632:8>>*/ buffer_add_string(buf, cst$16);
            /*<<camlinternalFormat.ml:632:36>>*/ buffer_add_string(buf, str$1);
          }
-         fmt$0 = rest$17;
+          /*<<camlinternalFormat.ml:634:6>>*/ fmt$0 = rest$17;
          break;
         case 19:
-         var rest$18 = fmt$0[1];
+         var rest$18 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[1];
           /*<<camlinternalFormat.ml:584:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:584:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:585:6>>*/ buffer_add_char(buf, 114);
-         fmt$0 = rest$18;
+          /*<<camlinternalFormat.ml:585:29>>*/ fmt$0 = rest$18;
          ign_flag$0 = 0;
          break;
         case 20:
-         var rest$19 = fmt$0[3], char_set = fmt$0[2], width_opt = fmt$0[1];
+         var
+          rest$19 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[3],
+          char_set = fmt$0[2],
+          width_opt = fmt$0[1];
           /*<<camlinternalFormat.ml:609:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:609:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
@@ -14521,9 +14873,9 @@
                   ?  /*<<camlinternalFormat.ml:318:43>>*/ is_in_char_set
                     (set$0, after)
                   : _cK_,
-               _cM_ = 1 - _cL_;
+               _cM_ =  /*<<camlinternalFormat.ml:318:39>>*/ 1 - _cL_;
              else
-              var _cM_ = _cJ_;
+              var _cM_ =  /*<<camlinternalFormat.ml:317:26>>*/ _cJ_;
              return _cM_;
              /*<<camlinternalFormat.ml:318:68>>*/ };
           /*<<camlinternalFormat.ml:319:19>>*/ if
@@ -14536,9 +14888,9 @@
           {
            d:
            {
-            var i = 1;
-             /*<<camlinternalFormat.ml:323:4>>*/ for(;;){
-             if(i >= 256) break;
+            var i =  /*<<camlinternalFormat.ml:320:4>>*/ 1;
+            for(;;){
+              /*<<camlinternalFormat.ml:323:4>>*/ if(i >= 256) break;
               /*<<camlinternalFormat.ml:324:43>>*/ if
               ( /*<<camlinternalFormat.ml:324:9>>*/ is_in_char_set
                 (set,
@@ -14596,8 +14948,8 @@
                  j =  /*<<camlinternalFormat.ml:345:8>>*/ i$1 + 2 | 0,
                  i$3 = i$1 - 1 | 0,
                  j$0 = j;
-                 /*<<camlinternalFormat.ml:351:4>>*/ for(;;){
-                 if(256 === j$0) break;
+                for(;;){
+                  /*<<camlinternalFormat.ml:351:4>>*/ if(256 === j$0) break;
                   /*<<camlinternalFormat.ml:351:58>>*/ if
                   (!
                     /*<<camlinternalFormat.ml:351:22>>*/ is_in_char_set
@@ -14649,53 +15001,55 @@
           ( /*<<camlinternalFormat.ml:321:7>>*/ is_alone(45))
            /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char(buf, 45);
           /*<<camlinternalFormat.ml:368:3>>*/ buffer_add_char(buf, 93);
-         fmt$0 = rest$19;
+          /*<<camlinternalFormat.ml:610:64>>*/ fmt$0 = rest$19;
          ign_flag$0 = 0;
          break;
         case 21:
-         var rest$20 = fmt$0[2], counter = fmt$0[1];
+         var
+          rest$20 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
+          counter = fmt$0[1];
           /*<<camlinternalFormat.ml:613:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:613:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:305:30>>*/ switch(counter){
            case 0:
-            var _cF_ = 108; break;
+            var _cF_ =  /*<<camlinternalFormat.ml:306:21>>*/ 108; break;
            case 1:
-            var _cF_ = 110; break;
-           default: var _cF_ = 78;
+            var _cF_ =  /*<<camlinternalFormat.ml:307:21>>*/ 110; break;
+           default: var _cF_ =  /*<<camlinternalFormat.ml:308:21>>*/ 78;
          }
           /*<<camlinternalFormat.ml:614:6>>*/ buffer_add_char(buf, _cF_);
-         fmt$0 = rest$20;
+          /*<<camlinternalFormat.ml:614:51>>*/ fmt$0 = rest$20;
          ign_flag$0 = 0;
          break;
         case 22:
-         var rest$21 = fmt$0[1];
+         var rest$21 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[1];
           /*<<camlinternalFormat.ml:617:6>>*/ buffer_add_char(buf, 37);
           /*<<camlinternalFormat.ml:617:31>>*/ bprint_ignored_flag
           (buf, ign_flag$0);
           /*<<camlinternalFormat.ml:618:6>>*/ bprint_string_literal
           (buf, cst_0c);
-         fmt$0 = rest$21;
+          /*<<camlinternalFormat.ml:618:36>>*/ fmt$0 = rest$21;
          ign_flag$0 = 0;
          break;
         case 23:
          var
-          rest$22 = fmt$0[2],
+          rest$22 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
           ign = fmt$0[1],
           fmt$1 =
              /*<<camlinternalFormat.ml:621:73>>*/  /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
               (ign, rest$22)
              [1];
-         fmt$0 = fmt$1;
+          /*<<camlinternalFormat.ml:622:6>>*/ fmt$0 = fmt$1;
          ign_flag$0 = 1;
          break;
         default:
          var
-          rest$23 = fmt$0[3],
+          rest$23 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[3],
           arity = fmt$0[1],
           _cH_ =
              /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity(arity),
-          _cG_ = 1;
+          _cG_ =  /*<<camlinternalFormat.ml:535:22>>*/ 1;
           /*<<camlinternalFormat.ml:578:45>>*/ if(_cH_ >= 1){
           var i$8 = _cG_;
           for(;;){
@@ -14708,7 +15062,7 @@
            i$8 = _cI_;
           }
          }
-         fmt$0 = rest$23;
+          /*<<camlinternalFormat.ml:582:6>>*/ fmt$0 = rest$23;
          ign_flag$0 = 0;
       }
      }
@@ -14719,68 +15073,73 @@
    function symm(param){
      /*<<camlinternalFormat.ml:657:8>>*/ if(typeof param === "number")
       /*<<camlinternalFormat.ml:680:20>>*/ return 0;
-    switch(param[0]){
+     /*<<camlinternalFormat.ml:657:8>>*/ switch(param[0]){
       case 0:
        var rest = param[1];
         /*<<camlinternalFormat.ml:663:39>>*/ return [0,
                 /*<<camlinternalFormat.ml:663:28>>*/ symm(rest)] /*<<camlinternalFormat.ml:663:39>>*/ ;
       case 1:
-       var rest$0 = param[1];
+       var rest$0 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:670:43>>*/ return [1,
                 /*<<camlinternalFormat.ml:670:32>>*/ symm(rest$0)] /*<<camlinternalFormat.ml:670:43>>*/ ;
       case 2:
-       var rest$1 = param[1];
+       var rest$1 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:664:37>>*/ return [2,
                 /*<<camlinternalFormat.ml:664:26>>*/ symm(rest$1)] /*<<camlinternalFormat.ml:664:37>>*/ ;
       case 3:
-       var rest$2 = param[1];
+       var rest$2 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:665:41>>*/ return [3,
                 /*<<camlinternalFormat.ml:665:30>>*/ symm(rest$2)] /*<<camlinternalFormat.ml:665:41>>*/ ;
       case 4:
-       var rest$3 = param[1];
+       var rest$3 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:667:49>>*/ return [4,
                 /*<<camlinternalFormat.ml:667:38>>*/ symm(rest$3)] /*<<camlinternalFormat.ml:667:49>>*/ ;
       case 5:
-       var rest$4 = param[1];
+       var rest$4 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:666:41>>*/ return [5,
                 /*<<camlinternalFormat.ml:666:30>>*/ symm(rest$4)] /*<<camlinternalFormat.ml:666:41>>*/ ;
       case 6:
-       var rest$5 = param[1];
+       var rest$5 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:668:41>>*/ return [6,
                 /*<<camlinternalFormat.ml:668:30>>*/ symm(rest$5)] /*<<camlinternalFormat.ml:668:41>>*/ ;
       case 7:
-       var rest$6 = param[1];
+       var rest$6 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:669:39>>*/ return [7,
                 /*<<camlinternalFormat.ml:669:28>>*/ symm(rest$6)] /*<<camlinternalFormat.ml:669:39>>*/ ;
       case 8:
-       var rest$7 = param[2], ty = param[1];
+       var
+        rest$7 =  /*<<camlinternalFormat.ml:657:8>>*/ param[2],
+        ty = param[1];
         /*<<camlinternalFormat.ml:677:32>>*/ return [8,
                ty,
                 /*<<camlinternalFormat.ml:677:23>>*/ symm(rest$7)] /*<<camlinternalFormat.ml:677:32>>*/ ;
       case 9:
-       var rest$8 = param[3], ty2 = param[2], ty1 = param[1];
+       var
+        rest$8 =  /*<<camlinternalFormat.ml:657:8>>*/ param[3],
+        ty2 = param[2],
+        ty1 = param[1];
         /*<<camlinternalFormat.ml:679:40>>*/ return [9,
                ty2,
                ty1,
                 /*<<camlinternalFormat.ml:679:31>>*/ symm(rest$8)] /*<<camlinternalFormat.ml:679:40>>*/ ;
       case 10:
-       var rest$9 = param[1];
+       var rest$9 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:672:41>>*/ return [10,
                 /*<<camlinternalFormat.ml:672:30>>*/ symm(rest$9)] /*<<camlinternalFormat.ml:672:41>>*/ ;
       case 11:
-       var rest$10 = param[1];
+       var rest$10 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:671:41>>*/ return [11,
                 /*<<camlinternalFormat.ml:671:30>>*/ symm(rest$10)] /*<<camlinternalFormat.ml:671:41>>*/ ;
       case 12:
-       var rest$11 = param[1];
+       var rest$11 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:673:37>>*/ return [12,
                 /*<<camlinternalFormat.ml:673:26>>*/ symm(rest$11)] /*<<camlinternalFormat.ml:673:37>>*/ ;
       case 13:
-       var rest$12 = param[1];
+       var rest$12 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:674:43>>*/ return [13,
                 /*<<camlinternalFormat.ml:674:32>>*/ symm(rest$12)] /*<<camlinternalFormat.ml:674:43>>*/ ;
       default:
-       var rest$13 = param[1];
+       var rest$13 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
         /*<<camlinternalFormat.ml:675:59>>*/ return [14,
                 /*<<camlinternalFormat.ml:675:48>>*/ symm(rest$13)] /*<<camlinternalFormat.ml:675:59>>*/ ;
     }
@@ -14792,7 +15151,7 @@
              function(param){ /*<<camlinternalFormat.ml:692:21>>*/ },
              ,
              function(param){ /*<<camlinternalFormat.ml:694:21>>*/ }] /*<<camlinternalFormat.ml:691:4>>*/ ;
-    switch(param[0]){
+     /*<<camlinternalFormat.ml:682:8>>*/ switch(param[0]){
       case 0:
        var
         rest = param[1],
@@ -14809,7 +15168,7 @@
                de] /*<<camlinternalFormat.ml:697:4>>*/ ;
       case 1:
        var
-        rest$0 = param[1],
+        rest$0 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$0 =  /*<<camlinternalFormat.ml:701:25>>*/ fmtty_rel_det(rest$0),
         de$0 =  /*<<camlinternalFormat.ml:701:43>>*/ match$0[4],
         af$0 = match$0[2];
@@ -14823,7 +15182,7 @@
                de$0] /*<<camlinternalFormat.ml:702:4>>*/ ;
       case 2:
        var
-        rest$1 = param[1],
+        rest$1 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$1 =  /*<<camlinternalFormat.ml:706:25>>*/ fmtty_rel_det(rest$1),
         de$1 =  /*<<camlinternalFormat.ml:706:43>>*/ match$1[4],
         af$1 = match$1[2];
@@ -14837,7 +15196,7 @@
                de$1] /*<<camlinternalFormat.ml:707:4>>*/ ;
       case 3:
        var
-        rest$2 = param[1],
+        rest$2 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$2 =  /*<<camlinternalFormat.ml:711:25>>*/ fmtty_rel_det(rest$2),
         de$2 =  /*<<camlinternalFormat.ml:711:43>>*/ match$2[4],
         af$2 = match$2[2];
@@ -14851,7 +15210,7 @@
                de$2] /*<<camlinternalFormat.ml:712:4>>*/ ;
       case 4:
        var
-        rest$3 = param[1],
+        rest$3 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$3 =  /*<<camlinternalFormat.ml:721:25>>*/ fmtty_rel_det(rest$3),
         de$3 =  /*<<camlinternalFormat.ml:721:43>>*/ match$3[4],
         af$3 = match$3[2];
@@ -14865,7 +15224,7 @@
                de$3] /*<<camlinternalFormat.ml:722:4>>*/ ;
       case 5:
        var
-        rest$4 = param[1],
+        rest$4 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$4 =  /*<<camlinternalFormat.ml:716:25>>*/ fmtty_rel_det(rest$4),
         de$4 =  /*<<camlinternalFormat.ml:716:43>>*/ match$4[4],
         af$4 = match$4[2];
@@ -14879,7 +15238,7 @@
                de$4] /*<<camlinternalFormat.ml:717:4>>*/ ;
       case 6:
        var
-        rest$5 = param[1],
+        rest$5 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$5 =  /*<<camlinternalFormat.ml:726:25>>*/ fmtty_rel_det(rest$5),
         de$5 =  /*<<camlinternalFormat.ml:726:43>>*/ match$5[4],
         af$5 = match$5[2];
@@ -14893,7 +15252,7 @@
                de$5] /*<<camlinternalFormat.ml:727:4>>*/ ;
       case 7:
        var
-        rest$6 = param[1],
+        rest$6 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$6 =  /*<<camlinternalFormat.ml:731:25>>*/ fmtty_rel_det(rest$6),
         de$6 =  /*<<camlinternalFormat.ml:731:43>>*/ match$6[4],
         af$6 = match$6[2];
@@ -14907,7 +15266,7 @@
                de$6] /*<<camlinternalFormat.ml:732:4>>*/ ;
       case 8:
        var
-        rest$7 = param[2],
+        rest$7 =  /*<<camlinternalFormat.ml:682:8>>*/ param[2],
         match$7 =  /*<<camlinternalFormat.ml:764:25>>*/ fmtty_rel_det(rest$7),
         de$7 =  /*<<camlinternalFormat.ml:764:43>>*/ match$7[4],
         af$7 = match$7[2];
@@ -14921,7 +15280,7 @@
                de$7] /*<<camlinternalFormat.ml:765:4>>*/ ;
       case 9:
        var
-        rest$8 = param[3],
+        rest$8 =  /*<<camlinternalFormat.ml:682:8>>*/ param[3],
         ty2 = param[2],
         ty1 = param[1],
         match$8 =  /*<<camlinternalFormat.ml:769:25>>*/ fmtty_rel_det(rest$8),
@@ -14948,7 +15307,7 @@
                 /*<<camlinternalFormat.ml:775:65>>*/ }] /*<<camlinternalFormat.ml:772:4>>*/ ;
       case 10:
        var
-        rest$9 = param[1],
+        rest$9 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$10 =  /*<<camlinternalFormat.ml:742:25>>*/ fmtty_rel_det(rest$9),
         de$9 =  /*<<camlinternalFormat.ml:742:43>>*/ match$10[4],
         af$9 = match$10[2];
@@ -14962,7 +15321,7 @@
                de$9] /*<<camlinternalFormat.ml:743:4>>*/ ;
       case 11:
        var
-        rest$10 = param[1],
+        rest$10 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$11 =
            /*<<camlinternalFormat.ml:737:25>>*/ fmtty_rel_det(rest$10),
         de$10 =  /*<<camlinternalFormat.ml:737:43>>*/ match$11[4],
@@ -14977,7 +15336,7 @@
                de$10] /*<<camlinternalFormat.ml:738:4>>*/ ;
       case 12:
        var
-        rest$11 = param[1],
+        rest$11 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$12 =
            /*<<camlinternalFormat.ml:747:25>>*/ fmtty_rel_det(rest$11),
         de$11 =  /*<<camlinternalFormat.ml:747:43>>*/ match$12[4],
@@ -14992,7 +15351,7 @@
                de$11] /*<<camlinternalFormat.ml:748:4>>*/ ;
       case 13:
        var
-        rest$12 = param[1],
+        rest$12 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$13 =
            /*<<camlinternalFormat.ml:752:25>>*/ fmtty_rel_det(rest$12),
         de$12 =  /*<<camlinternalFormat.ml:752:43>>*/ match$13[4],
@@ -15010,7 +15369,7 @@
                 /*<<camlinternalFormat.ml:756:43>>*/ }] /*<<camlinternalFormat.ml:753:4>>*/ ;
       default:
        var
-        rest$13 = param[1],
+        rest$13 =  /*<<camlinternalFormat.ml:682:8>>*/ param[1],
         match$14 =
            /*<<camlinternalFormat.ml:758:25>>*/ fmtty_rel_det(rest$13),
         de$13 =  /*<<camlinternalFormat.ml:758:43>>*/ match$14[4],
@@ -15070,7 +15429,7 @@
                 }
                break;
               case 1:
-               var rest1$0 = ty1[1];
+               var rest1$0 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 1:
@@ -15095,7 +15454,7 @@
                 }
                break;
               case 2:
-               var rest1$1 = ty1[1];
+               var rest1$1 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 2:
@@ -15120,7 +15479,7 @@
                 }
                break;
               case 3:
-               var rest1$2 = ty1[1];
+               var rest1$2 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 3:
@@ -15145,7 +15504,7 @@
                 }
                break;
               case 4:
-               var rest1$3 = ty1[1];
+               var rest1$3 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 4:
@@ -15170,7 +15529,7 @@
                 }
                break;
               case 5:
-               var rest1$4 = ty1[1];
+               var rest1$4 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 5:
@@ -15195,7 +15554,7 @@
                 }
                break;
               case 6:
-               var rest1$5 = ty1[1];
+               var rest1$5 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 6:
@@ -15220,7 +15579,7 @@
                 }
                break;
               case 7:
-               var rest1$6 = ty1[1];
+               var rest1$6 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 7:
@@ -15245,7 +15604,9 @@
                 }
                break;
               case 8:
-               var rest1$7 = ty1[2], ty1$0 = ty1[1];
+               var
+                rest1$7 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[2],
+                ty1$0 = ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 8:
@@ -15272,7 +15633,10 @@
                 /*<<camlinternalFormat.ml:836:26>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _k_], 1);
               case 9:
-               var rest1$8 = ty1[3], ty12 = ty1[2], ty11 = ty1[1];
+               var
+                rest1$8 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[3],
+                ty12 = ty1[2],
+                ty11 = ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 8:
@@ -15310,7 +15674,7 @@
                 /*<<camlinternalFormat.ml:846:28>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _l_], 1);
               case 10:
-               var rest1$9 = ty1[1];
+               var rest1$9 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number" && 10 === ty2[0]){
                 var rest2$9 = ty2[1];
                  /*<<camlinternalFormat.ml:813:66>>*/ return [10,
@@ -15320,7 +15684,7 @@
                 /*<<camlinternalFormat.ml:814:21>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _m_], 1);
               case 11:
-               var rest1$10 = ty1[1];
+               var rest1$10 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 10:
@@ -15334,7 +15698,7 @@
                 /*<<camlinternalFormat.ml:818:21>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _n_], 1);
               case 12:
-               var rest1$11 = ty1[1];
+               var rest1$11 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 10:
@@ -15350,7 +15714,7 @@
                 /*<<camlinternalFormat.ml:822:19>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _o_], 1);
               case 13:
-               var rest1$12 = ty1[1];
+               var rest1$12 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 10:
@@ -15368,7 +15732,7 @@
                 /*<<camlinternalFormat.ml:826:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _p_], 1);
               default:
-               var rest1$13 = ty1[1];
+               var rest1$13 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number")
                 switch(ty2[0]){
                   case 10:
@@ -15391,9 +15755,9 @@
              /*<<camlinternalFormat.ml:851:23>>*/ throw caml_maybe_attach_backtrace
                    ([0, Assert_failure, _j_], 1);
            }
-           if(typeof ty2 === "number")
+            /*<<camlinternalFormat.ml:803:17>>*/ if(typeof ty2 === "number")
              /*<<camlinternalFormat.ml:849:34>>*/ return 0;
-           switch(ty2[0]){
+            /*<<camlinternalFormat.ml:803:17>>*/ switch(ty2[0]){
              case 10:
               break a;
              case 11:
@@ -15435,33 +15799,37 @@
     /*<<camlinternalFormat.ml:851:35>>*/ }
    function fmtty_of_fmt(fmtty){
     var fmtty$0 = fmtty;
-     /*<<camlinternalFormat.ml:863:13>>*/ for(;;){
-     if(typeof fmtty$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:863:13>>*/ if(typeof fmtty$0 === "number")
        /*<<camlinternalFormat.ml:916:34>>*/ return 0;
-     switch(fmtty$0[0]){
+      /*<<camlinternalFormat.ml:863:13>>*/ switch(fmtty$0[0]){
        case 0:
         var rest = fmtty$0[1];
          /*<<camlinternalFormat.ml:890:61>>*/ return [0,
                  /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:61>>*/ ;
        case 1:
-        var rest$0 = fmtty$0[1];
+        var rest$0 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:891:61>>*/ return [0,
                  /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:61>>*/ ;
        case 2:
-        var rest$1 = fmtty$0[2], pad = fmtty$0[1];
+        var
+         rest$1 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
+         pad = fmtty$0[1];
          /*<<camlinternalFormat.ml:865:61>>*/ return fmtty_of_padding_fmtty
                 (pad,
                  [1,
                    /*<<camlinternalFormat.ml:865:42>>*/ fmtty_of_fmt(rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 3:
-        var rest$2 = fmtty$0[2], pad$0 = fmtty$0[1];
+        var
+         rest$2 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
+         pad$0 = fmtty$0[1];
          /*<<camlinternalFormat.ml:867:61>>*/ return fmtty_of_padding_fmtty
                 (pad$0,
                  [1,
                    /*<<camlinternalFormat.ml:867:42>>*/ fmtty_of_fmt(rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 4:
         var
-         rest$3 = fmtty$0[4],
+         rest$3 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[4],
          prec = fmtty$0[3],
          pad$1 = fmtty$0[2],
          ty_rest =  /*<<camlinternalFormat.ml:870:18>>*/ fmtty_of_fmt(rest$3),
@@ -15472,7 +15840,7 @@
                 (pad$1, prec_ty) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 5:
         var
-         rest$4 = fmtty$0[4],
+         rest$4 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[4],
          prec$0 = fmtty$0[3],
          pad$2 = fmtty$0[2],
          ty_rest$0 =
@@ -15484,7 +15852,7 @@
                 (pad$2, prec_ty$0) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 6:
         var
-         rest$5 = fmtty$0[4],
+         rest$5 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[4],
          prec$1 = fmtty$0[3],
          pad$3 = fmtty$0[2],
          ty_rest$1 =
@@ -15496,7 +15864,7 @@
                 (pad$3, prec_ty$1) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 7:
         var
-         rest$6 = fmtty$0[4],
+         rest$6 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[4],
          prec$2 = fmtty$0[3],
          pad$4 = fmtty$0[2],
          ty_rest$2 =
@@ -15508,7 +15876,7 @@
                 (pad$4, prec_ty$2) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 8:
         var
-         rest$7 = fmtty$0[4],
+         rest$7 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[4],
          prec$3 = fmtty$0[3],
          pad$5 = fmtty$0[2],
          ty_rest$3 =
@@ -15519,41 +15887,55 @@
          /*<<camlinternalFormat.ml:888:4>>*/ return fmtty_of_padding_fmtty
                 (pad$5, prec_ty$3) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 9:
-        var rest$8 = fmtty$0[2], pad$6 = fmtty$0[1];
+        var
+         rest$8 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
+         pad$6 = fmtty$0[1];
          /*<<camlinternalFormat.ml:893:61>>*/ return fmtty_of_padding_fmtty
                 (pad$6,
                  [7,
                    /*<<camlinternalFormat.ml:893:42>>*/ fmtty_of_fmt(rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 10:
-        var fmtty$1 = fmtty$0[1]; fmtty$0 = fmtty$1; break;
+        var fmtty$1 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
+         /*<<camlinternalFormat.ml:904:34>>*/ fmtty$0 = fmtty$1;
+        break;
        case 11:
-        var fmtty$2 = fmtty$0[2]; fmtty$0 = fmtty$2; break;
+        var fmtty$2 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2];
+         /*<<camlinternalFormat.ml:905:34>>*/ fmtty$0 = fmtty$2;
+        break;
        case 12:
-        var fmtty$3 = fmtty$0[2]; fmtty$0 = fmtty$3; break;
+        var fmtty$3 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2];
+         /*<<camlinternalFormat.ml:906:34>>*/ fmtty$0 = fmtty$3;
+        break;
        case 13:
-        var rest$9 = fmtty$0[3], ty = fmtty$0[2];
+        var
+         rest$9 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3],
+         ty = fmtty$0[2];
          /*<<camlinternalFormat.ml:900:40>>*/ return [8,
                 ty,
                  /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:40>>*/ ;
        case 14:
-        var rest$10 = fmtty$0[3], ty$0 = fmtty$0[2];
+        var
+         rest$10 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3],
+         ty$0 = fmtty$0[2];
          /*<<camlinternalFormat.ml:902:46>>*/ return [9,
                 ty$0,
                 ty$0,
                  /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:46>>*/ ;
        case 15:
-        var rest$11 = fmtty$0[1];
+        var rest$11 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:894:62>>*/ return [10,
                  /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:62>>*/ ;
        case 16:
-        var rest$12 = fmtty$0[1];
+        var rest$12 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:895:62>>*/ return [11,
                  /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:62>>*/ ;
        case 17:
-        var fmtty$4 = fmtty$0[2]; fmtty$0 = fmtty$4; break;
+        var fmtty$4 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2];
+         /*<<camlinternalFormat.ml:912:34>>*/ fmtty$0 = fmtty$4;
+        break;
        case 18:
         var
-         rest$13 = fmtty$0[2],
+         rest$13 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
          formatting_gen = fmtty$0[1],
          _cB_ =  /*<<camlinternalFormat.ml:914:54>>*/ fmtty_of_fmt(rest$13);
          /*<<camlinternalFormat.ml:856:22>>*/ if(0 === formatting_gen[0])
@@ -15562,73 +15944,77 @@
           _cC_ =  /*<<camlinternalFormat.ml:857:34>>*/ fmtty_of_fmt(fmt);
         else
          var
-          fmt$0 = formatting_gen[1][1],
+          fmt$0 =  /*<<camlinternalFormat.ml:856:22>>*/ formatting_gen[1][1],
           _cC_ =  /*<<camlinternalFormat.ml:858:34>>*/ fmtty_of_fmt(fmt$0);
          /*<<camlinternalFormat.ml:914:53>>*/ return caml_call2
                 (CamlinternalFormatBasics[1], _cC_, _cB_) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 19:
-        var rest$14 = fmtty$0[1];
+        var rest$14 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:897:63>>*/ return [13,
                  /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:63>>*/ ;
        case 20:
-        var rest$15 = fmtty$0[3];
+        var rest$15 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3];
          /*<<camlinternalFormat.ml:908:63>>*/ return [1,
                  /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:63>>*/ ;
        case 21:
-        var rest$16 = fmtty$0[2];
+        var rest$16 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2];
          /*<<camlinternalFormat.ml:909:60>>*/ return [2,
                  /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:60>>*/ ;
        case 22:
-        var rest$17 = fmtty$0[1];
+        var rest$17 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
          /*<<camlinternalFormat.ml:910:61>>*/ return [0,
                  /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:61>>*/ ;
        case 23:
-        var fmtty$5 = fmtty$0[2], ign = fmtty$0[1];
+        var
+         fmtty$5 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
+         ign = fmtty$0[1];
          /*<<camlinternalFormat.ml:931:15>>*/ if(typeof ign === "number")
          switch(ign){
            case 0:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:932:39>>*/ fmtty$0 = fmtty$5; break;
            case 1:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:933:39>>*/ fmtty$0 = fmtty$5; break;
            case 2:
              /*<<camlinternalFormat.ml:944:75>>*/ return [14,
                      /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:75>>*/ ;
-           default: fmtty$0 = fmtty$5;
+           default:  /*<<camlinternalFormat.ml:947:39>>*/ fmtty$0 = fmtty$5;
          }
         else
-         switch(ign[0]){
+          /*<<camlinternalFormat.ml:931:15>>*/ switch(ign[0]){
            case 0:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:934:39>>*/ fmtty$0 = fmtty$5; break;
            case 1:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:935:39>>*/ fmtty$0 = fmtty$5; break;
            case 2:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:936:39>>*/ fmtty$0 = fmtty$5; break;
            case 3:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:937:39>>*/ fmtty$0 = fmtty$5; break;
            case 4:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:938:39>>*/ fmtty$0 = fmtty$5; break;
            case 5:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:939:39>>*/ fmtty$0 = fmtty$5; break;
            case 6:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:940:39>>*/ fmtty$0 = fmtty$5; break;
            case 7:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:941:39>>*/ fmtty$0 = fmtty$5; break;
            case 8:
-            fmtty$0 = fmtty$5; break;
+             /*<<camlinternalFormat.ml:942:39>>*/ fmtty$0 = fmtty$5; break;
            case 9:
             var
-             fmtty$6 = ign[2],
+             fmtty$6 =  /*<<camlinternalFormat.ml:931:15>>*/ ign[2],
              _cD_ =
                 /*<<camlinternalFormat.ml:943:58>>*/ fmtty_of_fmt(fmtty$5);
              /*<<camlinternalFormat.ml:943:76>>*/ return caml_call2
                     (CamlinternalFormatBasics[1], fmtty$6, _cD_) /*<<camlinternalFormat.ml:916:46>>*/ ;
            case 10:
-            fmtty$0 = fmtty$5; break;
-           default: fmtty$0 = fmtty$5;
+             /*<<camlinternalFormat.ml:945:39>>*/ fmtty$0 = fmtty$5; break;
+           default:  /*<<camlinternalFormat.ml:946:39>>*/ fmtty$0 = fmtty$5;
          }
         break;
        default:
-        var rest$18 = fmtty$0[3], arity = fmtty$0[1];
+        var
+         rest$18 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3],
+         arity = fmtty$0[1];
          /*<<camlinternalFormat.ml:896:75>>*/ return fmtty_of_custom
                 (arity,
                   /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
@@ -15638,7 +16024,7 @@
    function fmtty_of_custom(arity, fmtty){
      /*<<camlinternalFormat.ml:921:19>>*/ if(! arity)
       /*<<camlinternalFormat.ml:922:19>>*/ return fmtty;
-    var arity$0 = arity[1];
+    var arity$0 =  /*<<camlinternalFormat.ml:921:19>>*/ arity[1];
      /*<<camlinternalFormat.ml:923:61>>*/ return [12,
              /*<<camlinternalFormat.ml:923:32>>*/ fmtty_of_custom
              (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:61>>*/ ;
@@ -15895,11 +16281,12 @@
    function type_padding(pad, fmtty){
      /*<<camlinternalFormat.ml:977:17>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:978:21>>*/ return [0, 0, fmtty];
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:977:17>>*/ if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:979:33>>*/ return [0, [0, padty, w], fmtty];
     }
-    if(typeof fmtty !== "number" && 2 === fmtty[0]){
+     /*<<camlinternalFormat.ml:977:17>>*/ if
+     (typeof fmtty !== "number" && 2 === fmtty[0]){
      var rest = fmtty[1], padty$0 = pad[1];
       /*<<camlinternalFormat.ml:980:38>>*/ return [0, [1, padty$0], rest];
     }
@@ -15913,11 +16300,11 @@
      var rest$1 = match[2], pad$2 = match[1], p = prec[1];
       /*<<camlinternalFormat.ml:993:4>>*/ return [0, pad$2, [0, p], rest$1];
     }
-    if(! prec){
+     /*<<camlinternalFormat.ml:989:56>>*/ if(! prec){
      var rest$0 = match[2], pad$1 = match[1];
       /*<<camlinternalFormat.ml:991:4>>*/ return [0, pad$1, 0, rest$0];
     }
-    var match$0 = match[2];
+    var match$0 =  /*<<camlinternalFormat.ml:989:56>>*/ match[2];
     if(typeof match$0 !== "number" && 2 === match$0[0]){
      var rest = match$0[1], pad$0 = match[1];
       /*<<camlinternalFormat.ml:995:4>>*/ return [0, pad$0, 1, rest];
@@ -15931,13 +16318,13 @@
      /*<<camlinternalFormat.ml:1008:50>>*/ if(typeof _cA_[2] !== "number")
       /*<<camlinternalFormat.ml:1010:9>>*/ throw caml_maybe_attach_backtrace
             (Type_mismatch, 1);
-    var fmt$0 = _cA_[1];
+    var fmt$0 =  /*<<camlinternalFormat.ml:1008:50>>*/ _cA_[1];
      /*<<camlinternalFormat.ml:1009:42>>*/ return fmt$0;
     /*<<camlinternalFormat.ml:1010:28>>*/ }
    function type_format_gen(fmt, fmtty0){
      /*<<camlinternalFormat.ml:1018:19>>*/ if(typeof fmt === "number")
       /*<<camlinternalFormat.ml:1133:33>>*/ return [0, 0, fmtty0];
-    switch(fmt[0]){
+     /*<<camlinternalFormat.ml:1018:19>>*/ switch(fmt[0]){
       case 0:
        if(typeof fmtty0 !== "number" && 0 === fmtty0[0]){
         var
@@ -15952,7 +16339,8 @@
        }
        break;
       case 1:
-       if(typeof fmtty0 !== "number" && 0 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 0 === fmtty0[0]){
         var
          fmtty_rest$0 = fmtty0[1],
          fmt_rest$0 = fmt[1],
@@ -15966,7 +16354,7 @@
        break;
       case 2:
        var
-        fmt_rest$1 = fmt[2],
+        fmt_rest$1 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
         pad = fmt[1],
         match$1 =
            /*<<camlinternalFormat.ml:1026:10>>*/ type_padding(pad, fmtty0),
@@ -15988,7 +16376,7 @@
               (Type_mismatch, 1);
       case 3:
        var
-        fmt_rest$2 = fmt[2],
+        fmt_rest$2 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
         pad$1 = fmt[1],
         match$4 =
            /*<<camlinternalFormat.ml:1033:10>>*/ type_padding(pad$1, fmtty0),
@@ -16010,7 +16398,7 @@
               (Type_mismatch, 1);
       case 4:
        var
-        fmt_rest$3 = fmt[4],
+        fmt_rest$3 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[4],
         prec = fmt[3],
         pad$3 = fmt[2],
         iconv = fmt[1],
@@ -16036,7 +16424,7 @@
               (Type_mismatch, 1);
       case 5:
        var
-        fmt_rest$4 = fmt[4],
+        fmt_rest$4 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[4],
         prec$1 = fmt[3],
         pad$5 = fmt[2],
         iconv$0 = fmt[1],
@@ -16062,7 +16450,7 @@
               (Type_mismatch, 1);
       case 6:
        var
-        fmt_rest$5 = fmt[4],
+        fmt_rest$5 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[4],
         prec$3 = fmt[3],
         pad$7 = fmt[2],
         iconv$1 = fmt[1],
@@ -16088,7 +16476,7 @@
               (Type_mismatch, 1);
       case 7:
        var
-        fmt_rest$6 = fmt[4],
+        fmt_rest$6 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[4],
         prec$5 = fmt[3],
         pad$9 = fmt[2],
         iconv$2 = fmt[1],
@@ -16114,7 +16502,7 @@
               (Type_mismatch, 1);
       case 8:
        var
-        fmt_rest$7 = fmt[4],
+        fmt_rest$7 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[4],
         prec$7 = fmt[3],
         pad$11 = fmt[2],
         fconv = fmt[1],
@@ -16140,7 +16528,7 @@
               (Type_mismatch, 1);
       case 9:
        var
-        fmt_rest$8 = fmt[2],
+        fmt_rest$8 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
         pad$13 = fmt[1],
         match$22 =
            /*<<camlinternalFormat.ml:1075:10>>*/ type_padding(pad$13, fmtty0),
@@ -16162,7 +16550,7 @@
               (Type_mismatch, 1);
       case 10:
        var
-        fmt_rest$9 = fmt[1],
+        fmt_rest$9 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[1],
         match$25 =
            /*<<camlinternalFormat.ml:1082:39>>*/ type_format_gen
            (fmt_rest$9, fmtty0),
@@ -16171,7 +16559,7 @@
         /*<<camlinternalFormat.ml:1083:4>>*/ return [0, [10, fmt$10], fmtty$9];
       case 11:
        var
-        fmt_rest$10 = fmt[2],
+        fmt_rest$10 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
         str = fmt[1],
         match$26 =
            /*<<camlinternalFormat.ml:1086:39>>*/ type_format_gen
@@ -16183,7 +16571,7 @@
                fmtty$10];
       case 12:
        var
-        fmt_rest$11 = fmt[2],
+        fmt_rest$11 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
         chr = fmt[1],
         match$27 =
            /*<<camlinternalFormat.ml:1089:39>>*/ type_format_gen
@@ -16194,7 +16582,8 @@
                [12, chr, fmt$12],
                fmtty$11];
       case 13:
-       if(typeof fmtty0 !== "number" && 8 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 8 === fmtty0[0]){
         var
          fmtty_rest$9 = fmtty0[2],
          sub_fmtty = fmtty0[1],
@@ -16218,7 +16607,8 @@
        }
        break;
       case 14:
-       if(typeof fmtty0 !== "number" && 9 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 9 === fmtty0[0]){
         var
          fmtty_rest$10 = fmtty0[3],
          sub_fmtty1 = fmtty0[1],
@@ -16251,7 +16641,8 @@
        }
        break;
       case 15:
-       if(typeof fmtty0 !== "number" && 10 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 10 === fmtty0[0]){
         var
          fmtty_rest$11 = fmtty0[1],
          fmt_rest$14 = fmt[1],
@@ -16266,7 +16657,8 @@
        }
        break;
       case 16:
-       if(typeof fmtty0 !== "number" && 11 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 11 === fmtty0[0]){
         var
          fmtty_rest$12 = fmtty0[1],
          fmt_rest$15 = fmt[1],
@@ -16282,7 +16674,7 @@
        break;
       case 17:
        var
-        fmt_rest$16 = fmt[2],
+        fmt_rest$16 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
         formatting_lit = fmt[1],
         match$32 =
            /*<<camlinternalFormat.ml:1115:39>>*/ type_format_gen
@@ -16293,7 +16685,9 @@
                [17, formatting_lit, fmt$17],
                fmtty$16];
       case 18:
-       var fmt_rest$17 = fmt[2], formatting_gen = fmt[1];
+       var
+        fmt_rest$17 =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2],
+        formatting_gen = fmt[1];
         /*<<camlinternalFormat.ml:1142:34>>*/ if(0 === formatting_gen[0]){
         var
          match$36 = formatting_gen[1],
@@ -16314,7 +16708,7 @@
                 fmtty3];
        }
        var
-        match$39 = formatting_gen[1],
+        match$39 =  /*<<camlinternalFormat.ml:1142:34>>*/ formatting_gen[1],
         str$1 = match$39[2],
         fmt1$0 = match$39[1],
         match$40 =
@@ -16331,7 +16725,8 @@
                [18, [1, [0, fmt2$0, str$1]], fmt3$0],
                fmtty3$0];
       case 19:
-       if(typeof fmtty0 !== "number" && 13 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 13 === fmtty0[0]){
         var
          fmtty_rest$13 = fmtty0[1],
          fmt_rest$18 = fmt[1],
@@ -16346,7 +16741,8 @@
        }
        break;
       case 20:
-       if(typeof fmtty0 !== "number" && 1 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 1 === fmtty0[0]){
         var
          fmtty_rest$14 = fmtty0[1],
          fmt_rest$19 = fmt[3],
@@ -16363,7 +16759,8 @@
        }
        break;
       case 21:
-       if(typeof fmtty0 !== "number" && 2 === fmtty0[0]){
+        /*<<camlinternalFormat.ml:1018:19>>*/ if
+        (typeof fmtty0 !== "number" && 2 === fmtty0[0]){
         var
          fmtty_rest$15 = fmtty0[1],
          fmt_rest$20 = fmt[2],
@@ -16379,7 +16776,7 @@
        }
        break;
       case 23:
-       var rest = fmt[2], ign = fmt[1];
+       var rest =  /*<<camlinternalFormat.ml:1018:19>>*/ fmt[2], ign = fmt[1];
         /*<<camlinternalFormat.ml:1158:21>>*/ if(typeof ign !== "number")
         switch(ign[0]){
           case 0:
@@ -16407,12 +16804,14 @@
             /*<<camlinternalFormat.ml:1168:42>>*/ return type_ignored_param_one
                    (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 8:
-           var sub_fmtty$2 = ign[2], pad_opt$1 = ign[1];
+           var
+            sub_fmtty$2 =  /*<<camlinternalFormat.ml:1158:21>>*/ ign[2],
+            pad_opt$1 = ign[1];
             /*<<camlinternalFormat.ml:1173:4>>*/ return type_ignored_param_one
                    ([8, pad_opt$1, sub_fmtty$2], rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
           case 9:
            var
-            sub_fmtty$3 = ign[2],
+            sub_fmtty$3 =  /*<<camlinternalFormat.ml:1158:21>>*/ ign[2],
             pad_opt$2 = ign[1],
             _cz_ =
                /*<<camlinternalFormat.ml:1176:6>>*/ type_ignored_format_substituti
@@ -16431,7 +16830,7 @@
             /*<<camlinternalFormat.ml:1170:42>>*/ return type_ignored_param_one
                    (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
         }
-       switch(ign){
+        /*<<camlinternalFormat.ml:1158:21>>*/ switch(ign){
          case 0:
            /*<<camlinternalFormat.ml:1159:42>>*/ return type_ignored_param_one
                   (ign, rest, fmtty0) /*<<camlinternalFormat.ml:1135:28>>*/ ;
@@ -16478,7 +16877,7 @@
              0,
               /*<<camlinternalFormat.ml:1276:33>>*/ type_format_gen
               (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:58>>*/ ;
-    switch(sub_fmtty[0]){
+     /*<<camlinternalFormat.ml:1202:27>>*/ switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
         var
@@ -16495,7 +16894,8 @@
        }
        break;
       case 1:
-       if(typeof fmtty !== "number" && 1 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 1 === fmtty[0]){
         var
          fmtty_rest$0 = fmtty[1],
          sub_fmtty_rest$1 = sub_fmtty[1],
@@ -16510,7 +16910,8 @@
        }
        break;
       case 2:
-       if(typeof fmtty !== "number" && 2 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 2 === fmtty[0]){
         var
          fmtty_rest$1 = fmtty[1],
          sub_fmtty_rest$3 = sub_fmtty[1],
@@ -16525,7 +16926,8 @@
        }
        break;
       case 3:
-       if(typeof fmtty !== "number" && 3 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 3 === fmtty[0]){
         var
          fmtty_rest$2 = fmtty[1],
          sub_fmtty_rest$5 = sub_fmtty[1],
@@ -16540,7 +16942,8 @@
        }
        break;
       case 4:
-       if(typeof fmtty !== "number" && 4 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 4 === fmtty[0]){
         var
          fmtty_rest$3 = fmtty[1],
          sub_fmtty_rest$7 = sub_fmtty[1],
@@ -16555,7 +16958,8 @@
        }
        break;
       case 5:
-       if(typeof fmtty !== "number" && 5 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 5 === fmtty[0]){
         var
          fmtty_rest$4 = fmtty[1],
          sub_fmtty_rest$9 = sub_fmtty[1],
@@ -16570,7 +16974,8 @@
        }
        break;
       case 6:
-       if(typeof fmtty !== "number" && 6 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 6 === fmtty[0]){
         var
          fmtty_rest$5 = fmtty[1],
          sub_fmtty_rest$11 = sub_fmtty[1],
@@ -16585,7 +16990,8 @@
        }
        break;
       case 7:
-       if(typeof fmtty !== "number" && 7 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 7 === fmtty[0]){
         var
          fmtty_rest$6 = fmtty[1],
          sub_fmtty_rest$13 = sub_fmtty[1],
@@ -16600,7 +17006,8 @@
        }
        break;
       case 8:
-       if(typeof fmtty !== "number" && 8 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 8 === fmtty[0]){
         var
          fmtty_rest$7 = fmtty[2],
          sub2_fmtty = fmtty[1],
@@ -16623,7 +17030,8 @@
        }
        break;
       case 9:
-       if(typeof fmtty !== "number" && 9 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 9 === fmtty[0]){
         var
          fmtty_rest$8 = fmtty[3],
          sub2_fmtty$1 = fmtty[2],
@@ -16686,7 +17094,8 @@
        }
        break;
       case 10:
-       if(typeof fmtty !== "number" && 10 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 10 === fmtty[0]){
         var
          fmtty_rest$9 = fmtty[1],
          sub_fmtty_rest$19 = sub_fmtty[1],
@@ -16701,7 +17110,8 @@
        }
        break;
       case 11:
-       if(typeof fmtty !== "number" && 11 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 11 === fmtty[0]){
         var
          fmtty_rest$10 = fmtty[1],
          sub_fmtty_rest$21 = sub_fmtty[1],
@@ -16716,7 +17126,8 @@
        }
        break;
       case 13:
-       if(typeof fmtty !== "number" && 13 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 13 === fmtty[0]){
         var
          fmtty_rest$11 = fmtty[1],
          sub_fmtty_rest$23 = sub_fmtty[1],
@@ -16731,7 +17142,8 @@
        }
        break;
       case 14:
-       if(typeof fmtty !== "number" && 14 === fmtty[0]){
+        /*<<camlinternalFormat.ml:1202:27>>*/ if
+        (typeof fmtty !== "number" && 14 === fmtty[0]){
         var
          fmtty_rest$12 = fmtty[1],
          sub_fmtty_rest$25 = sub_fmtty[1],
@@ -16907,7 +17319,10 @@
         /*<<camlinternalFormat.ml:1356:52>>*/ return caml_call1
                (Stdlib_Bytes[44], res$0) /*<<camlinternalFormat.ml:1368:7>>*/ ;
       }
-      if(71 <= c){if(5 < c - 97 >>> 0) break a;} else if(65 > c) break a;
+       /*<<camlinternalFormat.ml:1352:15>>*/ if(71 <= c){
+       if(5 < c - 97 >>> 0) break a;
+      }
+      else if(65 > c) break a;
      }
       /*<<camlinternalFormat.ml:1363:46>>*/ if(len < prec$0){
       var
@@ -16966,7 +17381,7 @@
        /*<<camlinternalFormat.ml:1430:8>>*/ if
        (9 >= caml_string_unsafe_get(s, i$0) - 48 >>> 0)
         /*<<camlinternalFormat.ml:1431:22>>*/ n[1]++;
-      var _ct_ = i$0 + 1 | 0;
+      var _ct_ =  /*<<camlinternalFormat.ml:1430:8>>*/ i$0 + 1 | 0;
       if(_cp_ === i$0) break;
       i$0 = _ct_;
      }
@@ -17005,7 +17420,7 @@
         /*<<camlinternalFormat.ml:1443:50>>*/ left[1]--;
         /*<<camlinternalFormat.ml:1443:61>>*/ put(c);
       }
-      var _cs_ = i + 1 | 0;
+      var _cs_ =  /*<<camlinternalFormat.ml:1441:6>>*/ i + 1 | 0;
       if(_cr_ === i) break;
       i = _cs_;
      }
@@ -17016,32 +17431,32 @@
    function convert_int(iconv, n){
      /*<<camlinternalFormat.ml:1451:2>>*/ switch(iconv){
       case 1:
-       var _cn_ = cst_d$0; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1381:39>>*/ cst_d$0; break;
       case 2:
-       var _cn_ = cst_d$1; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1381:57>>*/ cst_d$1; break;
       case 4:
-       var _cn_ = cst_i$1; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1382:39>>*/ cst_i$1; break;
       case 5:
-       var _cn_ = cst_i$2; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1382:57>>*/ cst_i$2; break;
       case 6:
-       var _cn_ = cst_x; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1383:13>>*/ cst_x; break;
       case 7:
-       var _cn_ = cst_x$0; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1383:30>>*/ cst_x$0; break;
       case 8:
-       var _cn_ = cst_X; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1384:13>>*/ cst_X; break;
       case 9:
-       var _cn_ = cst_X$0; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1384:30>>*/ cst_X$0; break;
       case 10:
-       var _cn_ = cst_o; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1385:13>>*/ cst_o; break;
       case 11:
-       var _cn_ = cst_o$0; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1385:30>>*/ cst_o$0; break;
       case 0:
       case 13:
-       var _cn_ = cst_d; break;
+       var _cn_ =  /*<<camlinternalFormat.ml:1381:22>>*/ cst_d; break;
       case 3:
       case 14:
-       var _cn_ = cst_i$0; break;
-      default: var _cn_ = cst_u;
+       var _cn_ =  /*<<camlinternalFormat.ml:1382:22>>*/ cst_i$0; break;
+      default: var _cn_ =  /*<<camlinternalFormat.ml:1386:22>>*/ cst_u;
     }
      /*<<camlinternalFormat.ml:1451:64>>*/ return transform_int_alt
             (iconv,
@@ -17050,32 +17465,32 @@
    function convert_int32(iconv, n){
      /*<<camlinternalFormat.ml:1453:2>>*/ switch(iconv){
       case 1:
-       var _cm_ = cst_ld$0; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1397:40>>*/ cst_ld$0; break;
       case 2:
-       var _cm_ = cst_ld$1; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1397:59>>*/ cst_ld$1; break;
       case 4:
-       var _cm_ = cst_li$1; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1398:40>>*/ cst_li$1; break;
       case 5:
-       var _cm_ = cst_li$2; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1398:59>>*/ cst_li$2; break;
       case 6:
-       var _cm_ = cst_lx; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1399:13>>*/ cst_lx; break;
       case 7:
-       var _cm_ = cst_lx$0; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1399:31>>*/ cst_lx$0; break;
       case 8:
-       var _cm_ = cst_lX; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1400:13>>*/ cst_lX; break;
       case 9:
-       var _cm_ = cst_lX$0; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1400:31>>*/ cst_lX$0; break;
       case 10:
-       var _cm_ = cst_lo; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1401:13>>*/ cst_lo; break;
       case 11:
-       var _cm_ = cst_lo$0; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1401:31>>*/ cst_lo$0; break;
       case 0:
       case 13:
-       var _cm_ = cst_ld; break;
+       var _cm_ =  /*<<camlinternalFormat.ml:1397:22>>*/ cst_ld; break;
       case 3:
       case 14:
-       var _cm_ = cst_li$0; break;
-      default: var _cm_ = cst_lu;
+       var _cm_ =  /*<<camlinternalFormat.ml:1398:22>>*/ cst_li$0; break;
+      default: var _cm_ =  /*<<camlinternalFormat.ml:1402:22>>*/ cst_lu;
     }
      /*<<camlinternalFormat.ml:1453:67>>*/ return transform_int_alt
             (iconv,
@@ -17084,32 +17499,32 @@
    function convert_nativeint(iconv, n){
      /*<<camlinternalFormat.ml:1455:2>>*/ switch(iconv){
       case 1:
-       var _cl_ = cst_nd$0; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1405:40>>*/ cst_nd$0; break;
       case 2:
-       var _cl_ = cst_nd$1; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1405:59>>*/ cst_nd$1; break;
       case 4:
-       var _cl_ = cst_ni$1; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1406:40>>*/ cst_ni$1; break;
       case 5:
-       var _cl_ = cst_ni$2; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1406:59>>*/ cst_ni$2; break;
       case 6:
-       var _cl_ = cst_nx; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1407:13>>*/ cst_nx; break;
       case 7:
-       var _cl_ = cst_nx$0; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1407:31>>*/ cst_nx$0; break;
       case 8:
-       var _cl_ = cst_nX; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1408:13>>*/ cst_nX; break;
       case 9:
-       var _cl_ = cst_nX$0; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1408:31>>*/ cst_nX$0; break;
       case 10:
-       var _cl_ = cst_no; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1409:13>>*/ cst_no; break;
       case 11:
-       var _cl_ = cst_no$0; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1409:31>>*/ cst_no$0; break;
       case 0:
       case 13:
-       var _cl_ = cst_nd; break;
+       var _cl_ =  /*<<camlinternalFormat.ml:1405:22>>*/ cst_nd; break;
       case 3:
       case 14:
-       var _cl_ = cst_ni$0; break;
-      default: var _cl_ = cst_nu;
+       var _cl_ =  /*<<camlinternalFormat.ml:1406:22>>*/ cst_ni$0; break;
+      default: var _cl_ =  /*<<camlinternalFormat.ml:1410:22>>*/ cst_nu;
     }
      /*<<camlinternalFormat.ml:1455:71>>*/ return transform_int_alt
             (iconv,
@@ -17118,32 +17533,32 @@
    function convert_int64(iconv, n){
      /*<<camlinternalFormat.ml:1457:2>>*/ switch(iconv){
       case 1:
-       var _ck_ = cst_Ld$0; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1389:40>>*/ cst_Ld$0; break;
       case 2:
-       var _ck_ = cst_Ld$1; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1389:59>>*/ cst_Ld$1; break;
       case 4:
-       var _ck_ = cst_Li$1; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1390:40>>*/ cst_Li$1; break;
       case 5:
-       var _ck_ = cst_Li$2; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1390:59>>*/ cst_Li$2; break;
       case 6:
-       var _ck_ = cst_Lx; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1391:13>>*/ cst_Lx; break;
       case 7:
-       var _ck_ = cst_Lx$0; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1391:31>>*/ cst_Lx$0; break;
       case 8:
-       var _ck_ = cst_LX; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1392:13>>*/ cst_LX; break;
       case 9:
-       var _ck_ = cst_LX$0; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1392:31>>*/ cst_LX$0; break;
       case 10:
-       var _ck_ = cst_Lo; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1393:13>>*/ cst_Lo; break;
       case 11:
-       var _ck_ = cst_Lo$0; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1393:31>>*/ cst_Lo$0; break;
       case 0:
       case 13:
-       var _ck_ = cst_Ld; break;
+       var _ck_ =  /*<<camlinternalFormat.ml:1389:22>>*/ cst_Ld; break;
       case 3:
       case 14:
-       var _ck_ = cst_Li$0; break;
-      default: var _ck_ = cst_Lu;
+       var _ck_ =  /*<<camlinternalFormat.ml:1390:22>>*/ cst_Li$0; break;
+      default: var _ck_ =  /*<<camlinternalFormat.ml:1394:22>>*/ cst_Lu;
     }
      /*<<camlinternalFormat.ml:1457:67>>*/ return transform_int_alt
             (iconv,
@@ -17154,10 +17569,10 @@
     function hex(param){
       /*<<camlinternalFormat.ml:1463:4>>*/ switch(fconv[1]){
        case 0:
-        var sign = 45; break;
+        var sign =  /*<<camlinternalFormat.ml:1467:13>>*/ 45; break;
        case 1:
-        var sign = 43; break;
-       default: var sign = 32;
+        var sign =  /*<<camlinternalFormat.ml:1465:24>>*/ 43; break;
+       default: var sign =  /*<<camlinternalFormat.ml:1466:24>>*/ 32;
      }
       /*<<camlinternalFormat.ml:1468:34>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
              (x, prec, sign) /*<<camlinternalFormat.ml:1468:34>>*/ ;
@@ -17179,10 +17594,10 @@
              (fconv, prec),
             x),
         len =  /*<<camlinternalFormat.ml:1470:4>>*/ caml_ml_string_length(str),
-        i = 0;
-        /*<<camlinternalFormat.ml:1472:6>>*/ for(;;){
-        if(i === len)
-         var _ch_ = 0;
+        i =  /*<<camlinternalFormat.ml:1476:7>>*/ 0;
+       for(;;){
+         /*<<camlinternalFormat.ml:1472:6>>*/ if(i === len)
+         var _ch_ =  /*<<camlinternalFormat.ml:1472:22>>*/ 0;
         else{
          var
           _cg_ =
@@ -17200,7 +17615,7 @@
           i = i$0;
           continue;
          }
-         var _ch_ = 1;
+         var _ch_ =  /*<<camlinternalFormat.ml:1474:29>>*/ 1;
         }
         var
          _ci_ =
@@ -17233,10 +17648,10 @@
    }
    function make_printf$0(counter, k, acc, fmt){
     var k$0 = k, acc$0 = acc, fmt$0 = fmt;
-     /*<<camlinternalFormat.ml:1518:17>>*/ for(;;){
-     if(typeof fmt$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:1518:17>>*/ if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1605:4>>*/ return caml_call1(k$0, acc$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
-     switch(fmt$0[0]){
+      /*<<camlinternalFormat.ml:1518:17>>*/ switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
          /*<<camlinternalFormat.ml:1520:4>>*/ return function(c){
@@ -17244,7 +17659,7 @@
           /*<<camlinternalFormat.ml:1522:6>>*/ return make_printf
                  (k$0, new_acc, rest) /*<<camlinternalFormat.ml:1522:32>>*/ ;} /*<<camlinternalFormat.ml:1520:4>>*/ ;
        case 1:
-        var rest$0 = fmt$0[1];
+        var rest$0 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1];
          /*<<camlinternalFormat.ml:1524:4>>*/ return function(c){
          var
           str =
@@ -17265,7 +17680,9 @@
           /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
                  (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ;} /*<<camlinternalFormat.ml:1524:4>>*/ ;
        case 2:
-        var rest$1 = fmt$0[2], pad = fmt$0[1];
+        var
+         rest$1 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
+         pad = fmt$0[1];
          /*<<camlinternalFormat.ml:1528:4>>*/ return make_padding
                 (k$0,
                  acc$0,
@@ -17275,12 +17692,14 @@
                    /*<<camlinternalFormat.ml:1528:44>>*/ return str;
                   /*<<camlinternalFormat.ml:1528:47>>*/ }) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 3:
-        var rest$2 = fmt$0[2], pad$0 = fmt$0[1];
+        var
+         rest$2 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
+         pad$0 = fmt$0[1];
          /*<<camlinternalFormat.ml:1530:4>>*/ return make_padding
                 (k$0, acc$0, rest$2, pad$0, string_to_caml_string) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 4:
         var
-         rest$3 = fmt$0[4],
+         rest$3 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[4],
          prec = fmt$0[3],
          pad$1 = fmt$0[2],
          iconv = fmt$0[1];
@@ -17288,7 +17707,7 @@
                 (k$0, acc$0, rest$3, pad$1, prec, convert_int, iconv) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 5:
         var
-         rest$4 = fmt$0[4],
+         rest$4 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[4],
          prec$0 = fmt$0[3],
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1];
@@ -17296,7 +17715,7 @@
                 (k$0, acc$0, rest$4, pad$2, prec$0, convert_int32, iconv$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 6:
         var
-         rest$5 = fmt$0[4],
+         rest$5 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[4],
          prec$1 = fmt$0[3],
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1];
@@ -17310,7 +17729,7 @@
                  iconv$1) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 7:
         var
-         rest$6 = fmt$0[4],
+         rest$6 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[4],
          prec$2 = fmt$0[3],
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1];
@@ -17318,7 +17737,7 @@
                 (k$0, acc$0, rest$6, pad$4, prec$2, convert_int64, iconv$2) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 8:
         var
-         rest$7 = fmt$0[4],
+         rest$7 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[4],
          prec$3 = fmt$0[3],
          pad$5 = fmt$0[2],
          fconv = fmt$0[1];
@@ -17346,7 +17765,7 @@
                      /*<<camlinternalFormat.ml:1739:6>>*/ return make_printf
                             (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1739:52>>*/ ;
                    } /*<<camlinternalFormat.ml:1605:9>>*/ ;
-         var p = prec$3[1];
+         var p =  /*<<camlinternalFormat.ml:1735:34>>*/ prec$3[1];
           /*<<camlinternalFormat.ml:1741:4>>*/ return function(x){
           var
            str =
@@ -17354,7 +17773,7 @@
            /*<<camlinternalFormat.ml:1743:6>>*/ return make_printf
                   (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1743:52>>*/ ;} /*<<camlinternalFormat.ml:1741:4>>*/ ;
         }
-        if(0 === pad$5[0]){
+         /*<<camlinternalFormat.ml:1735:34>>*/ if(0 === pad$5[0]){
          var w = pad$5[2], padty = pad$5[1];
          if(typeof prec$3 === "number")
           return prec$3
@@ -17385,7 +17804,7 @@
                      /*<<camlinternalFormat.ml:1752:6>>*/ return make_printf
                             (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1752:53>>*/ ;
                    } /*<<camlinternalFormat.ml:1605:9>>*/ ;
-         var p$0 = prec$3[1];
+         var p$0 =  /*<<camlinternalFormat.ml:1735:34>>*/ prec$3[1];
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
           var
            str =
@@ -17397,7 +17816,7 @@
            /*<<camlinternalFormat.ml:1756:6>>*/ return make_printf
                   (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1756:52>>*/ ;} /*<<camlinternalFormat.ml:1754:4>>*/ ;
         }
-        var padty$0 = pad$5[1];
+        var padty$0 =  /*<<camlinternalFormat.ml:1735:34>>*/ pad$5[1];
         if(typeof prec$3 === "number")
          return prec$3
                  ? function
@@ -17427,7 +17846,7 @@
                     /*<<camlinternalFormat.ml:1765:6>>*/ return make_printf
                            (k$0, [4, acc$0, str$0], rest$7) /*<<camlinternalFormat.ml:1765:53>>*/ ;
                   } /*<<camlinternalFormat.ml:1605:9>>*/ ;
-        var p$1 = prec$3[1];
+        var p$1 =  /*<<camlinternalFormat.ml:1735:34>>*/ prec$3[1];
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
          var
           str =
@@ -17439,19 +17858,21 @@
           /*<<camlinternalFormat.ml:1769:6>>*/ return make_printf
                  (k$0, [4, acc$0, str], rest$7) /*<<camlinternalFormat.ml:1769:52>>*/ ;} /*<<camlinternalFormat.ml:1767:4>>*/ ;
        case 9:
-        var rest$8 = fmt$0[2], pad$6 = fmt$0[1];
+        var
+         rest$8 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
+         pad$6 = fmt$0[1];
          /*<<camlinternalFormat.ml:1542:4>>*/ return make_padding
                 (k$0, acc$0, rest$8, pad$6, Stdlib[30]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        case 10:
         var
-         rest$9 = fmt$0[1],
+         rest$9 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1],
          acc$1 =  /*<<camlinternalFormat.ml:1560:4>>*/ [7, acc$0];
         acc$0 = acc$1;
         fmt$0 = rest$9;
         break;
        case 11:
         var
-         rest$10 = fmt$0[2],
+         rest$10 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
          str = fmt$0[1],
          acc$2 =  /*<<camlinternalFormat.ml:1563:4>>*/ [2, acc$0, str];
         acc$0 = acc$2;
@@ -17459,7 +17880,7 @@
         break;
        case 12:
         var
-         rest$11 = fmt$0[2],
+         rest$11 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
          chr = fmt$0[1],
          acc$3 =  /*<<camlinternalFormat.ml:1565:4>>*/ [3, acc$0, chr];
         acc$0 = acc$3;
@@ -17467,7 +17888,7 @@
         break;
        case 13:
         var
-         rest$12 = fmt$0[3],
+         rest$12 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[3],
          sub_fmtty = fmt$0[2],
          ty =
             /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
@@ -17475,7 +17896,9 @@
           /*<<camlinternalFormat.ml:1570:6>>*/ return  /*<<camlinternalFormat.ml:1571:6>>*/ make_printf
                  (k$0, [4, acc$0, ty], rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ;} /*<<camlinternalFormat.ml:1569:4>>*/ ;
        case 14:
-        var rest$13 = fmt$0[3], fmtty = fmt$0[2];
+        var
+         rest$13 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[3],
+         fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1573:4>>*/ return function(param){
          var
           fmt = param[1],
@@ -17486,7 +17909,7 @@
                    /*<<camlinternalFormat.ml:1574:6>>*/ caml_call2
                    (CamlinternalFormatBasics[3], _cf_, rest$13)) /*<<camlinternalFormat.ml:1574:42>>*/ ;} /*<<camlinternalFormat.ml:1573:4>>*/ ;
        case 15:
-        var rest$14 = fmt$0[1];
+        var rest$14 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1];
          /*<<camlinternalFormat.ml:1544:4>>*/ return function(f, x){
           /*<<camlinternalFormat.ml:1544:15>>*/ return make_printf
                  (k$0,
@@ -17498,20 +17921,20 @@
                    }],
                   rest$14) /*<<camlinternalFormat.ml:1544:67>>*/ ;} /*<<camlinternalFormat.ml:1544:4>>*/ ;
        case 16:
-        var rest$15 = fmt$0[1];
+        var rest$15 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1];
          /*<<camlinternalFormat.ml:1546:4>>*/ return function(f){
           /*<<camlinternalFormat.ml:1546:13>>*/ return make_printf
                  (k$0, [6, acc$0, f], rest$15) /*<<camlinternalFormat.ml:1546:52>>*/ ;} /*<<camlinternalFormat.ml:1546:4>>*/ ;
        case 17:
         var
-         rest$16 = fmt$0[2],
+         rest$16 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
          fmting_lit = fmt$0[1],
          acc$4 =  /*<<camlinternalFormat.ml:1594:4>>*/ [0, acc$0, fmting_lit];
         acc$0 = acc$4;
         fmt$0 = rest$16;
         break;
        case 18:
-        var _cd_ = fmt$0[1];
+        var _cd_ =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1];
         if(0 === _cd_[0]){
          var rest$17 = fmt$0[2], fmt$1 = _cd_[1][1];
          let acc = acc$0, k = k$0, rest = rest$17;
@@ -17521,12 +17944,14 @@
               /*<<camlinternalFormat.ml:1597:6>>*/ return make_printf
                      (k, [1, acc, [0, kacc]], rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
             };
-         k$0 = k$1;
+          /*<<camlinternalFormat.ml:1598:4>>*/ k$0 = k$1;
          acc$0 = 0;
          fmt$0 = fmt$1;
         }
         else{
-         var rest$18 = fmt$0[2], fmt$2 = _cd_[1][1];
+         var
+          rest$18 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
+          fmt$2 = _cd_[1][1];
          let acc = acc$0, k = k$0, rest = rest$18;
          var
           k$2 =
@@ -17534,7 +17959,7 @@
               /*<<camlinternalFormat.ml:1601:6>>*/ return make_printf
                      (k, [1, acc, [1, kacc]], rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
             };
-         k$0 = k$2;
+          /*<<camlinternalFormat.ml:1602:4>>*/ k$0 = k$2;
          acc$0 = 0;
          fmt$0 = fmt$2;
         }
@@ -17544,7 +17969,7 @@
                ([0, Assert_failure, _s_], 1);
        case 20:
         var
-         rest$19 = fmt$0[3],
+         rest$19 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[3],
          new_acc =
             /*<<camlinternalFormat.ml:1577:4>>*/ [8,
             acc$0,
@@ -17553,7 +17978,7 @@
           /*<<camlinternalFormat.ml:1578:13>>*/ return make_printf
                  (k$0, new_acc, rest$19) /*<<camlinternalFormat.ml:1578:39>>*/ ;} /*<<camlinternalFormat.ml:1578:4>>*/ ;
        case 21:
-        var rest$20 = fmt$0[2];
+        var rest$20 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2];
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
          var
           new_acc =
@@ -17564,29 +17989,32 @@
           /*<<camlinternalFormat.ml:1585:6>>*/ return make_printf
                  (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ;} /*<<camlinternalFormat.ml:1583:4>>*/ ;
        case 22:
-        var rest$21 = fmt$0[1];
+        var rest$21 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1];
          /*<<camlinternalFormat.ml:1587:4>>*/ return function(c){
          var new_acc =  /*<<camlinternalFormat.ml:1588:6>>*/ [5, acc$0, c];
           /*<<camlinternalFormat.ml:1589:6>>*/ return make_printf
                  (k$0, new_acc, rest$21) /*<<camlinternalFormat.ml:1589:32>>*/ ;} /*<<camlinternalFormat.ml:1587:4>>*/ ;
        case 23:
-        var rest$22 = fmt$0[2], ign = fmt$0[1];
+        var
+         rest$22 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
+         ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1591:4>>*/ if(counter >= 50)
          return caml_trampoline_return
                  (make_ignored_param$0, [0, k$0, acc$0, ign, rest$22]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
-        var counter$1 = counter + 1 | 0;
-        return make_ignored_param$0(counter$1, k$0, acc$0, ign, rest$22);
+        var counter$1 =  /*<<camlinternalFormat.ml:1591:4>>*/ counter + 1 | 0;
+        return make_ignored_param$0(counter$1, k$0, acc$0, ign, rest$22) /*<<camlinternalFormat.ml:1605:9>>*/ ;
        default:
         var
-         rest$23 = fmt$0[3],
+         rest$23 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[3],
          f = fmt$0[2],
          arity = fmt$0[1],
          _ce_ =  /*<<camlinternalFormat.ml:1548:33>>*/ caml_call1(f, 0);
          /*<<camlinternalFormat.ml:1548:39>>*/ if(counter >= 50)
          return caml_trampoline_return
                  (make_custom$0, [0, k$0, acc$0, rest$23, arity, _ce_]) /*<<camlinternalFormat.ml:1605:9>>*/ ;
-        var counter$0 = counter + 1 | 0;
-        return make_custom$0(counter$0, k$0, acc$0, rest$23, arity, _ce_);
+        var
+         counter$0 =  /*<<camlinternalFormat.ml:1548:39>>*/ counter + 1 | 0;
+        return make_custom$0(counter$0, k$0, acc$0, rest$23, arity, _ce_) /*<<camlinternalFormat.ml:1605:9>>*/ ;
      }
     }
    }
@@ -17599,85 +18027,93 @@
        case 0:
          /*<<camlinternalFormat.ml:1614:39>>*/ if(counter >= 50)
          return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-        var counter$0 = counter + 1 | 0;
-        return make_invalid_arg(counter$0, k, acc, fmt);
+        var
+         counter$0 =  /*<<camlinternalFormat.ml:1614:39>>*/ counter + 1 | 0;
+        return make_invalid_arg(counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 1:
          /*<<camlinternalFormat.ml:1615:39>>*/ if(counter >= 50)
          return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-        var counter$1 = counter + 1 | 0;
-        return make_invalid_arg(counter$1, k, acc, fmt);
+        var
+         counter$1 =  /*<<camlinternalFormat.ml:1615:39>>*/ counter + 1 | 0;
+        return make_invalid_arg(counter$1, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
        case 2:
          /*<<camlinternalFormat.ml:1626:39>>*/ throw caml_maybe_attach_backtrace
                ([0, Assert_failure, _t_], 1);
        default:
          /*<<camlinternalFormat.ml:1629:39>>*/ if(counter >= 50)
          return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-        var counter$2 = counter + 1 | 0;
-        return make_invalid_arg(counter$2, k, acc, fmt);
+        var
+         counter$2 =  /*<<camlinternalFormat.ml:1629:39>>*/ counter + 1 | 0;
+        return make_invalid_arg(counter$2, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
      }
-    switch(ign[0]){
+     /*<<camlinternalFormat.ml:1613:21>>*/ switch(ign[0]){
       case 0:
         /*<<camlinternalFormat.ml:1616:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$3 = counter + 1 | 0;
-       return make_invalid_arg(counter$3, k, acc, fmt);
+       var counter$3 =  /*<<camlinternalFormat.ml:1616:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$3, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 1:
         /*<<camlinternalFormat.ml:1617:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$4 = counter + 1 | 0;
-       return make_invalid_arg(counter$4, k, acc, fmt);
+       var counter$4 =  /*<<camlinternalFormat.ml:1617:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$4, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 2:
         /*<<camlinternalFormat.ml:1618:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$5 = counter + 1 | 0;
-       return make_invalid_arg(counter$5, k, acc, fmt);
+       var counter$5 =  /*<<camlinternalFormat.ml:1618:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$5, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 3:
         /*<<camlinternalFormat.ml:1619:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$6 = counter + 1 | 0;
-       return make_invalid_arg(counter$6, k, acc, fmt);
+       var counter$6 =  /*<<camlinternalFormat.ml:1619:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$6, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 4:
         /*<<camlinternalFormat.ml:1620:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$7 = counter + 1 | 0;
-       return make_invalid_arg(counter$7, k, acc, fmt);
+       var counter$7 =  /*<<camlinternalFormat.ml:1620:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$7, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 5:
         /*<<camlinternalFormat.ml:1621:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$8 = counter + 1 | 0;
-       return make_invalid_arg(counter$8, k, acc, fmt);
+       var counter$8 =  /*<<camlinternalFormat.ml:1621:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$8, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 6:
         /*<<camlinternalFormat.ml:1622:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$9 = counter + 1 | 0;
-       return make_invalid_arg(counter$9, k, acc, fmt);
+       var counter$9 =  /*<<camlinternalFormat.ml:1622:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$9, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 7:
         /*<<camlinternalFormat.ml:1623:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$10 = counter + 1 | 0;
-       return make_invalid_arg(counter$10, k, acc, fmt);
+       var
+        counter$10 =  /*<<camlinternalFormat.ml:1623:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$10, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 8:
         /*<<camlinternalFormat.ml:1624:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$11 = counter + 1 | 0;
-       return make_invalid_arg(counter$11, k, acc, fmt);
+       var
+        counter$11 =  /*<<camlinternalFormat.ml:1624:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$11, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 9:
-       var fmtty = ign[2];
+       var fmtty =  /*<<camlinternalFormat.ml:1613:21>>*/ ign[2];
         /*<<camlinternalFormat.ml:1625:39>>*/ if(counter >= 50)
         return caml_trampoline_return
                 (make_from_fmtty$0, [0, k, acc, fmtty, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$14 = counter + 1 | 0;
-       return make_from_fmtty$0(counter$14, k, acc, fmtty, fmt);
+       var
+        counter$14 =  /*<<camlinternalFormat.ml:1625:39>>*/ counter + 1 | 0;
+       return make_from_fmtty$0(counter$14, k, acc, fmtty, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       case 10:
         /*<<camlinternalFormat.ml:1627:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$12 = counter + 1 | 0;
-       return make_invalid_arg(counter$12, k, acc, fmt);
+       var
+        counter$12 =  /*<<camlinternalFormat.ml:1627:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$12, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
       default:
         /*<<camlinternalFormat.ml:1628:39>>*/ if(counter >= 50)
         return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1629:65>>*/ ;
-       var counter$13 = counter + 1 | 0;
-       return make_invalid_arg(counter$13, k, acc, fmt);
+       var
+        counter$13 =  /*<<camlinternalFormat.ml:1628:39>>*/ counter + 1 | 0;
+       return make_invalid_arg(counter$13, k, acc, fmt) /*<<camlinternalFormat.ml:1629:65>>*/ ;
     }
    }
    function make_ignored_param(k, acc, ign, fmt){
@@ -17693,48 +18129,48 @@
           /*<<camlinternalFormat.ml:1638:40>>*/ return make_from_fmtty
                  (k, acc, rest, fmt) /*<<camlinternalFormat.ml:1638:70>>*/ ;} /*<<camlinternalFormat.ml:1638:31>>*/ ;
        case 1:
-        var rest$0 = fmtty[1];
+        var rest$0 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1639:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1639:40>>*/ return make_from_fmtty
                  (k, acc, rest$0, fmt) /*<<camlinternalFormat.ml:1639:70>>*/ ;} /*<<camlinternalFormat.ml:1639:31>>*/ ;
        case 2:
-        var rest$1 = fmtty[1];
+        var rest$1 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1640:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1640:40>>*/ return make_from_fmtty
                  (k, acc, rest$1, fmt) /*<<camlinternalFormat.ml:1640:70>>*/ ;} /*<<camlinternalFormat.ml:1640:31>>*/ ;
        case 3:
-        var rest$2 = fmtty[1];
+        var rest$2 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1641:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1641:40>>*/ return make_from_fmtty
                  (k, acc, rest$2, fmt) /*<<camlinternalFormat.ml:1641:70>>*/ ;} /*<<camlinternalFormat.ml:1641:31>>*/ ;
        case 4:
-        var rest$3 = fmtty[1];
+        var rest$3 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1642:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1642:40>>*/ return make_from_fmtty
                  (k, acc, rest$3, fmt) /*<<camlinternalFormat.ml:1642:70>>*/ ;} /*<<camlinternalFormat.ml:1642:31>>*/ ;
        case 5:
-        var rest$4 = fmtty[1];
+        var rest$4 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1643:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1643:40>>*/ return make_from_fmtty
                  (k, acc, rest$4, fmt) /*<<camlinternalFormat.ml:1643:70>>*/ ;} /*<<camlinternalFormat.ml:1643:31>>*/ ;
        case 6:
-        var rest$5 = fmtty[1];
+        var rest$5 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1644:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1644:40>>*/ return make_from_fmtty
                  (k, acc, rest$5, fmt) /*<<camlinternalFormat.ml:1644:70>>*/ ;} /*<<camlinternalFormat.ml:1644:31>>*/ ;
        case 7:
-        var rest$6 = fmtty[1];
+        var rest$6 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1645:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1645:40>>*/ return make_from_fmtty
                  (k, acc, rest$6, fmt) /*<<camlinternalFormat.ml:1645:70>>*/ ;} /*<<camlinternalFormat.ml:1645:31>>*/ ;
        case 8:
-        var rest$7 = fmtty[2];
+        var rest$7 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[2];
          /*<<camlinternalFormat.ml:1651:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1651:40>>*/ return make_from_fmtty
                  (k, acc, rest$7, fmt) /*<<camlinternalFormat.ml:1651:70>>*/ ;} /*<<camlinternalFormat.ml:1651:31>>*/ ;
        case 9:
         var
-         rest$8 = fmtty[3],
+         rest$8 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[3],
          ty2 = fmtty[2],
          ty1 = fmtty[1],
          ty =
@@ -17748,17 +18184,17 @@
                    (CamlinternalFormatBasics[1], ty, rest$8),
                   fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;} /*<<camlinternalFormat.ml:1655:4>>*/ ;
        case 10:
-        var rest$9 = fmtty[1];
+        var rest$9 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1646:31>>*/ return function(_cc_, param){
           /*<<camlinternalFormat.ml:1646:42>>*/ return make_from_fmtty
                  (k, acc, rest$9, fmt) /*<<camlinternalFormat.ml:1646:72>>*/ ;} /*<<camlinternalFormat.ml:1646:31>>*/ ;
        case 11:
-        var rest$10 = fmtty[1];
+        var rest$10 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1647:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1647:40>>*/ return make_from_fmtty
                  (k, acc, rest$10, fmt) /*<<camlinternalFormat.ml:1647:70>>*/ ;} /*<<camlinternalFormat.ml:1647:31>>*/ ;
        case 12:
-        var rest$11 = fmtty[1];
+        var rest$11 =  /*<<camlinternalFormat.ml:1637:23>>*/ fmtty[1];
          /*<<camlinternalFormat.ml:1648:31>>*/ return function(param){
           /*<<camlinternalFormat.ml:1648:40>>*/ return make_from_fmtty
                  (k, acc, rest$11, fmt) /*<<camlinternalFormat.ml:1648:70>>*/ ;} /*<<camlinternalFormat.ml:1648:31>>*/ ;
@@ -17771,8 +18207,8 @@
      }
      /*<<camlinternalFormat.ml:1652:31>>*/ if(counter >= 50)
      return caml_trampoline_return(make_invalid_arg, [0, k, acc, fmt]) /*<<camlinternalFormat.ml:1655:61>>*/ ;
-    var counter$0 = counter + 1 | 0;
-    return make_invalid_arg(counter$0, k, acc, fmt);
+    var counter$0 =  /*<<camlinternalFormat.ml:1652:31>>*/ counter + 1 | 0;
+    return make_invalid_arg(counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
    }
    function make_from_fmtty(k, acc, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
@@ -17786,8 +18222,8 @@
         cst_Printf_bad_conversion$0];
     if(counter >= 50)
      return caml_trampoline_return(make_printf$0, [0, k, _cb_, fmt]) /*<<camlinternalFormat.ml:1663:72>>*/ ;
-    var counter$0 = counter + 1 | 0;
-    return make_printf$0(counter$0, k, _cb_, fmt);
+    var counter$0 =  /*<<camlinternalFormat.ml:1663:2>>*/ counter + 1 | 0;
+    return make_printf$0(counter$0, k, _cb_, fmt) /*<<camlinternalFormat.ml:1663:72>>*/ ;
    }
    function make_padding(k, acc, fmt, pad, trans){
      /*<<camlinternalFormat.ml:1670:29>>*/ if(typeof pad === "number")
@@ -17799,7 +18235,7 @@
            /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
               (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ;} /*<<camlinternalFormat.ml:1672:4>>*/ ;
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:1670:29>>*/ if(0 === pad[0]){
      var width = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
       var
@@ -17813,7 +18249,7 @@
        /*<<camlinternalFormat.ml:1678:6>>*/ return make_printf
               (k, new_acc, fmt) /*<<camlinternalFormat.ml:1678:31>>*/ ;} /*<<camlinternalFormat.ml:1676:4>>*/ ;
     }
-    var padty$0 = pad[1];
+    var padty$0 =  /*<<camlinternalFormat.ml:1670:29>>*/ pad[1];
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
      var
       new_acc =
@@ -17849,7 +18285,7 @@
                  /*<<camlinternalFormat.ml:1695:6>>*/ return make_printf
                         (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1695:52>>*/ ;
                } /*<<camlinternalFormat.ml:1727:52>>*/ ;
-     var p = prec[1];
+     var p =  /*<<camlinternalFormat.ml:1691:40>>*/ prec[1];
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
       var
        str =
@@ -17859,7 +18295,7 @@
        /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
               (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1699:52>>*/ ;} /*<<camlinternalFormat.ml:1697:4>>*/ ;
     }
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:1691:40>>*/ if(0 === pad[0]){
      var w = pad[2], padty = pad[1];
      if(typeof prec === "number")
       return prec
@@ -17889,7 +18325,7 @@
                  /*<<camlinternalFormat.ml:1707:6>>*/ return make_printf
                         (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1707:52>>*/ ;
                } /*<<camlinternalFormat.ml:1727:52>>*/ ;
-     var p$0 = prec[1];
+     var p$0 =  /*<<camlinternalFormat.ml:1691:40>>*/ prec[1];
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
       var
        str =
@@ -17903,7 +18339,7 @@
        /*<<camlinternalFormat.ml:1711:6>>*/ return make_printf
               (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1711:52>>*/ ;} /*<<camlinternalFormat.ml:1709:4>>*/ ;
     }
-    var padty$0 = pad[1];
+    var padty$0 =  /*<<camlinternalFormat.ml:1691:40>>*/ pad[1];
     if(typeof prec === "number")
      return prec
              ? function
@@ -17932,7 +18368,7 @@
                 /*<<camlinternalFormat.ml:1719:6>>*/ return make_printf
                        (k, [4, acc, str], fmt) /*<<camlinternalFormat.ml:1719:52>>*/ ;
               } /*<<camlinternalFormat.ml:1727:52>>*/ ;
-    var p$1 = prec[1];
+    var p$1 =  /*<<camlinternalFormat.ml:1691:40>>*/ prec[1];
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
      var
       str =
@@ -17959,8 +18395,8 @@
     var _ca_ =  /*<<camlinternalFormat.ml:1779:19>>*/ [4, acc, f];
     if(counter >= 50)
      return caml_trampoline_return(make_printf$0, [0, k, _ca_, rest]) /*<<camlinternalFormat.ml:1782:40>>*/ ;
-    var counter$0 = counter + 1 | 0;
-    return make_printf$0(counter$0, k, _ca_, rest);
+    var counter$0 =  /*<<camlinternalFormat.ml:1779:19>>*/ counter + 1 | 0;
+    return make_printf$0(counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
    }
    function make_custom(k, acc, rest, arity, f){
      /*<<?>>*/ return caml_trampoline
@@ -17968,10 +18404,10 @@
    }
    function make_iprintf$0(counter, k, o, fmt){
     var k$0 = k, fmt$0 = fmt;
-     /*<<camlinternalFormat.ml:1788:17>>*/ for(;;){
-     if(typeof fmt$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:1788:17>>*/ if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1858:8>>*/ return caml_call1(k$0, o) /*<<camlinternalFormat.ml:1858:11>>*/ ;
-     switch(fmt$0[0]){
+      /*<<camlinternalFormat.ml:1788:17>>*/ switch(fmt$0[0]){
        case 0:
         var
          rest = fmt$0[1],
@@ -17980,13 +18416,13 @@
           /*<<camlinternalFormat.ml:1784:16>>*/ return x;} /*<<camlinternalFormat.ml:1790:37>>*/ ;
        case 1:
         var
-         rest$0 = fmt$0[1],
+         rest$0 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1],
          x$0 =
             /*<<camlinternalFormat.ml:1792:14>>*/ make_iprintf(k$0, o, rest$0);
          /*<<camlinternalFormat.ml:1792:37>>*/ return function(_b__){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$0;} /*<<camlinternalFormat.ml:1792:37>>*/ ;
        case 2:
-        var _bM_ = fmt$0[1];
+        var _bM_ =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1];
         if(typeof _bM_ === "number"){
          var
           rest$1 = fmt$0[2],
@@ -17996,7 +18432,7 @@
           /*<<camlinternalFormat.ml:1794:37>>*/ return function(_b9_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1794:37>>*/ ;
         }
-        if(0 === _bM_[0]){
+         /*<<camlinternalFormat.ml:1788:17>>*/ if(0 === _bM_[0]){
          var
           rest$2 = fmt$0[2],
           x$2 =
@@ -18006,7 +18442,7 @@
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1796:37>>*/ ;
         }
         var
-         rest$3 = fmt$0[2],
+         rest$3 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
          x$3 =
             /*<<camlinternalFormat.ml:1798:21>>*/ make_iprintf(k$0, o, rest$3),
          x$4 =
@@ -18016,7 +18452,7 @@
          /*<<camlinternalFormat.ml:1798:45>>*/ return function(_b6_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$4;} /*<<camlinternalFormat.ml:1798:45>>*/ ;
        case 3:
-        var _bN_ = fmt$0[1];
+        var _bN_ =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1];
         if(typeof _bN_ === "number"){
          var
           rest$4 = fmt$0[2],
@@ -18026,7 +18462,7 @@
           /*<<camlinternalFormat.ml:1800:37>>*/ return function(_b5_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1800:37>>*/ ;
         }
-        if(0 === _bN_[0]){
+         /*<<camlinternalFormat.ml:1788:17>>*/ if(0 === _bN_[0]){
          var
           rest$5 = fmt$0[2],
           x$6 =
@@ -18036,7 +18472,7 @@
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1802:37>>*/ ;
         }
         var
-         rest$6 = fmt$0[2],
+         rest$6 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
          x$7 =
             /*<<camlinternalFormat.ml:1804:21>>*/ make_iprintf(k$0, o, rest$6),
          x$8 =
@@ -18046,27 +18482,42 @@
          /*<<camlinternalFormat.ml:1804:45>>*/ return function(_b2_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$8;} /*<<camlinternalFormat.ml:1804:45>>*/ ;
        case 4:
-        var rest$7 = fmt$0[4], prec = fmt$0[3], pad = fmt$0[2];
+        var
+         rest$7 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[4],
+         prec = fmt$0[3],
+         pad = fmt$0[2];
          /*<<camlinternalFormat.ml:1806:8>>*/ return fn_of_padding_precision
                 (k$0, o, rest$7, pad, prec) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 5:
-        var rest$8 = fmt$0[4], prec$0 = fmt$0[3], pad$0 = fmt$0[2];
+        var
+         rest$8 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[4],
+         prec$0 = fmt$0[3],
+         pad$0 = fmt$0[2];
          /*<<camlinternalFormat.ml:1808:8>>*/ return fn_of_padding_precision
                 (k$0, o, rest$8, pad$0, prec$0) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 6:
-        var rest$9 = fmt$0[4], prec$1 = fmt$0[3], pad$1 = fmt$0[2];
+        var
+         rest$9 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[4],
+         prec$1 = fmt$0[3],
+         pad$1 = fmt$0[2];
          /*<<camlinternalFormat.ml:1810:8>>*/ return fn_of_padding_precision
                 (k$0, o, rest$9, pad$1, prec$1) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 7:
-        var rest$10 = fmt$0[4], prec$2 = fmt$0[3], pad$2 = fmt$0[2];
+        var
+         rest$10 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[4],
+         prec$2 = fmt$0[3],
+         pad$2 = fmt$0[2];
          /*<<camlinternalFormat.ml:1812:8>>*/ return fn_of_padding_precision
                 (k$0, o, rest$10, pad$2, prec$2) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 8:
-        var rest$11 = fmt$0[4], prec$3 = fmt$0[3], pad$3 = fmt$0[2];
+        var
+         rest$11 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[4],
+         prec$3 = fmt$0[3],
+         pad$3 = fmt$0[2];
          /*<<camlinternalFormat.ml:1814:8>>*/ return fn_of_padding_precision
                 (k$0, o, rest$11, pad$3, prec$3) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        case 9:
-        var _bO_ = fmt$0[1];
+        var _bO_ =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1];
         if(typeof _bO_ === "number"){
          var
           rest$12 = fmt$0[2],
@@ -18076,7 +18527,7 @@
           /*<<camlinternalFormat.ml:1816:37>>*/ return function(_b1_){
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$9;} /*<<camlinternalFormat.ml:1816:37>>*/ ;
         }
-        if(0 === _bO_[0]){
+         /*<<camlinternalFormat.ml:1788:17>>*/ if(0 === _bO_[0]){
          var
           rest$13 = fmt$0[2],
           x$10 =
@@ -18086,7 +18537,7 @@
            /*<<camlinternalFormat.ml:1784:16>>*/ return x$10;} /*<<camlinternalFormat.ml:1818:37>>*/ ;
         }
         var
-         rest$14 = fmt$0[2],
+         rest$14 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
          x$11 =
             /*<<camlinternalFormat.ml:1820:21>>*/ make_iprintf
             (k$0, o, rest$14),
@@ -18097,21 +18548,29 @@
          /*<<camlinternalFormat.ml:1820:45>>*/ return function(_bY_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$12;} /*<<camlinternalFormat.ml:1820:45>>*/ ;
        case 10:
-        var rest$15 = fmt$0[1]; fmt$0 = rest$15; break;
+        var rest$15 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1];
+         /*<<camlinternalFormat.ml:1832:8>>*/ fmt$0 = rest$15;
+        break;
        case 11:
-        var rest$16 = fmt$0[2]; fmt$0 = rest$16; break;
+        var rest$16 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2];
+         /*<<camlinternalFormat.ml:1834:8>>*/ fmt$0 = rest$16;
+        break;
        case 12:
-        var rest$17 = fmt$0[2]; fmt$0 = rest$17; break;
+        var rest$17 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2];
+         /*<<camlinternalFormat.ml:1836:8>>*/ fmt$0 = rest$17;
+        break;
        case 13:
         var
-         rest$18 = fmt$0[3],
+         rest$18 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[3],
          x$13 =
             /*<<camlinternalFormat.ml:1838:14>>*/ make_iprintf
             (k$0, o, rest$18);
          /*<<camlinternalFormat.ml:1838:37>>*/ return function(_bX_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1838:37>>*/ ;
        case 14:
-        var rest$19 = fmt$0[3], fmtty = fmt$0[2];
+        var
+         rest$19 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[3],
+         fmtty = fmt$0[2];
          /*<<camlinternalFormat.ml:1840:8>>*/ return function(param){
          var
           fmt = param[1],
@@ -18123,7 +18582,7 @@
                    (CamlinternalFormatBasics[3], _bW_, rest$19)) /*<<camlinternalFormat.ml:1842:48>>*/ ;} /*<<camlinternalFormat.ml:1840:8>>*/ ;
        case 15:
         var
-         rest$20 = fmt$0[1],
+         rest$20 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1],
          x$14 =
             /*<<camlinternalFormat.ml:1822:21>>*/ make_iprintf
             (k$0, o, rest$20),
@@ -18135,16 +18594,18 @@
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$15;} /*<<camlinternalFormat.ml:1822:45>>*/ ;
        case 16:
         var
-         rest$21 = fmt$0[1],
+         rest$21 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1],
          x$16 =
             /*<<camlinternalFormat.ml:1824:14>>*/ make_iprintf
             (k$0, o, rest$21);
          /*<<camlinternalFormat.ml:1824:37>>*/ return function(_bT_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$16;} /*<<camlinternalFormat.ml:1824:37>>*/ ;
        case 17:
-        var rest$22 = fmt$0[2]; fmt$0 = rest$22; break;
+        var rest$22 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2];
+         /*<<camlinternalFormat.ml:1852:8>>*/ fmt$0 = rest$22;
+        break;
        case 18:
-        var _bP_ = fmt$0[1];
+        var _bP_ =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1];
         if(0 === _bP_[0]){
          var rest$23 = fmt$0[2], fmt$1 = _bP_[1][1];
          let k = k$0, rest = rest$23;
@@ -18154,11 +18615,13 @@
               /*<<camlinternalFormat.ml:1854:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1854:56>>*/ ;
             };
-         k$0 = k$1;
+          /*<<camlinternalFormat.ml:1854:8>>*/ k$0 = k$1;
          fmt$0 = fmt$1;
         }
         else{
-         var rest$24 = fmt$0[2], fmt$2 = _bP_[1][1];
+         var
+          rest$24 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
+          fmt$2 = _bP_[1][1];
          let k = k$0, rest = rest$24;
          var
           k$2 =
@@ -18166,7 +18629,7 @@
               /*<<camlinternalFormat.ml:1856:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1856:56>>*/ ;
             };
-         k$0 = k$2;
+          /*<<camlinternalFormat.ml:1856:8>>*/ k$0 = k$2;
          fmt$0 = fmt$2;
         }
         break;
@@ -18175,7 +18638,7 @@
                ([0, Assert_failure, _w_], 1);
        case 20:
         var
-         rest$25 = fmt$0[3],
+         rest$25 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[3],
          x$17 =
             /*<<camlinternalFormat.ml:1844:14>>*/ make_iprintf
             (k$0, o, rest$25);
@@ -18183,7 +18646,7 @@
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$17;} /*<<camlinternalFormat.ml:1844:37>>*/ ;
        case 21:
         var
-         rest$26 = fmt$0[2],
+         rest$26 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
          x$18 =
             /*<<camlinternalFormat.ml:1846:14>>*/ make_iprintf
             (k$0, o, rest$26);
@@ -18191,14 +18654,16 @@
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$18;} /*<<camlinternalFormat.ml:1846:37>>*/ ;
        case 22:
         var
-         rest$27 = fmt$0[1],
+         rest$27 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1],
          x$19 =
             /*<<camlinternalFormat.ml:1848:14>>*/ make_iprintf
             (k$0, o, rest$27);
          /*<<camlinternalFormat.ml:1848:37>>*/ return function(_bQ_){
           /*<<camlinternalFormat.ml:1784:16>>*/ return x$19;} /*<<camlinternalFormat.ml:1848:37>>*/ ;
        case 23:
-        var rest$28 = fmt$0[2], ign = fmt$0[1];
+        var
+         rest$28 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
+         ign = fmt$0[1];
          /*<<camlinternalFormat.ml:1850:8>>*/ return make_ignored_param
                 (function(param){
                    /*<<camlinternalFormat.ml:1850:37>>*/ return caml_call1
@@ -18208,12 +18673,14 @@
                  ign,
                  rest$28) /*<<camlinternalFormat.ml:1858:11>>*/ ;
        default:
-        var rest$29 = fmt$0[3], arity = fmt$0[1];
+        var
+         rest$29 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[3],
+         arity = fmt$0[1];
          /*<<camlinternalFormat.ml:1826:8>>*/ if(counter >= 50)
          return caml_trampoline_return
                  (fn_of_custom_arity$0, [0, k$0, o, rest$29, arity]) /*<<camlinternalFormat.ml:1858:11>>*/ ;
-        var counter$0 = counter + 1 | 0;
-        return fn_of_custom_arity$0(counter$0, k$0, o, rest$29, arity);
+        var counter$0 =  /*<<camlinternalFormat.ml:1826:8>>*/ counter + 1 | 0;
+        return fn_of_custom_arity$0(counter$0, k$0, o, rest$29, arity) /*<<camlinternalFormat.ml:1858:11>>*/ ;
      }
     }
    }
@@ -18228,7 +18695,7 @@
        /*<<camlinternalFormat.ml:1867:36>>*/ return function(_bL_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$2;} /*<<camlinternalFormat.ml:1867:36>>*/ ;
      }
-     if(prec){
+      /*<<camlinternalFormat.ml:1863:26>>*/ if(prec){
       var
        x =  /*<<camlinternalFormat.ml:1869:21>>*/ make_iprintf(k, o, fmt),
        x$0 =
@@ -18242,14 +18709,14 @@
       /*<<camlinternalFormat.ml:1865:36>>*/ return function(_bI_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$1;} /*<<camlinternalFormat.ml:1865:36>>*/ ;
     }
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:1863:26>>*/ if(0 === pad[0]){
      if(typeof prec !== "number"){
       var
        x$6 =  /*<<camlinternalFormat.ml:1873:14>>*/ make_iprintf(k, o, fmt);
        /*<<camlinternalFormat.ml:1873:36>>*/ return function(_bH_){
         /*<<camlinternalFormat.ml:1784:16>>*/ return x$6;} /*<<camlinternalFormat.ml:1873:36>>*/ ;
      }
-     if(prec){
+      /*<<camlinternalFormat.ml:1863:26>>*/ if(prec){
       var
        x$3 =  /*<<camlinternalFormat.ml:1875:21>>*/ make_iprintf(k, o, fmt),
        x$4 =
@@ -18263,7 +18730,7 @@
       /*<<camlinternalFormat.ml:1871:36>>*/ return function(_bE_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$5;} /*<<camlinternalFormat.ml:1871:36>>*/ ;
     }
-    if(typeof prec !== "number"){
+     /*<<camlinternalFormat.ml:1863:26>>*/ if(typeof prec !== "number"){
      var
       x$12 =  /*<<camlinternalFormat.ml:1879:21>>*/ make_iprintf(k, o, fmt),
       x$13 =
@@ -18273,7 +18740,7 @@
       /*<<camlinternalFormat.ml:1879:44>>*/ return function(_bC_){
        /*<<camlinternalFormat.ml:1784:16>>*/ return x$13;} /*<<camlinternalFormat.ml:1879:44>>*/ ;
     }
-    if(prec){
+     /*<<camlinternalFormat.ml:1863:26>>*/ if(prec){
      var
       x$7 =  /*<<camlinternalFormat.ml:1881:28>>*/ make_iprintf(k, o, fmt),
       x$8 =
@@ -18304,8 +18771,8 @@
     }
      /*<<camlinternalFormat.ml:1887:8>>*/ if(counter >= 50)
      return caml_trampoline_return(make_iprintf$0, [0, k, o, fmt]) /*<<camlinternalFormat.ml:1889:48>>*/ ;
-    var counter$0 = counter + 1 | 0;
-    return make_iprintf$0(counter$0, k, o, fmt);
+    var counter$0 =  /*<<camlinternalFormat.ml:1887:8>>*/ counter + 1 | 0;
+    return make_iprintf$0(counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
    }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
@@ -18313,10 +18780,10 @@
    }
    function output_acc(o, acc){
     var acc$0 = acc;
-     /*<<camlinternalFormat.ml:1897:27>>*/ for(;;){
-     if(typeof acc$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:1897:27>>*/ if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1912:32>>*/ return 0;
-     switch(acc$0[0]){
+      /*<<camlinternalFormat.ml:1897:27>>*/ switch(acc$0[0]){
        case 0:
         var
          fmting_lit = acc$0[2],
@@ -18328,44 +18795,54 @@
          /*<<camlinternalFormat.ml:1900:18>>*/ return caml_call2
                 (Stdlib[66], o, s) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 1:
-        var match = acc$0[2], p$0 = acc$0[1];
+        var
+         match =  /*<<camlinternalFormat.ml:1897:27>>*/ acc$0[2],
+         p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
           /*<<camlinternalFormat.ml:1902:4>>*/ output_acc(o, p$0);
           /*<<camlinternalFormat.ml:1902:20>>*/ caml_call2
           (Stdlib[66], o, cst$18);
-         acc$0 = acc$1;
+          /*<<camlinternalFormat.ml:1902:40>>*/ acc$0 = acc$1;
         }
         else{
-         var acc$2 = match[1];
+         var acc$2 =  /*<<camlinternalFormat.ml:1897:27>>*/ match[1];
           /*<<camlinternalFormat.ml:1904:4>>*/ output_acc(o, p$0);
           /*<<camlinternalFormat.ml:1904:20>>*/ caml_call2
           (Stdlib[66], o, cst$19);
-         acc$0 = acc$2;
+          /*<<camlinternalFormat.ml:1904:40>>*/ acc$0 = acc$2;
         }
         break;
        case 6:
-        var f = acc$0[2], p$3 = acc$0[1];
+        var
+         f =  /*<<camlinternalFormat.ml:1897:27>>*/ acc$0[2],
+         p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1909:32>>*/ output_acc(o, p$3);
          /*<<camlinternalFormat.ml:1909:46>>*/ return caml_call1(f, o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 7:
-        var p$4 = acc$0[1];
+        var p$4 =  /*<<camlinternalFormat.ml:1897:27>>*/ acc$0[1];
          /*<<camlinternalFormat.ml:1910:32>>*/ output_acc(o, p$4);
          /*<<camlinternalFormat.ml:1910:46>>*/ return caml_call1
                 (Stdlib[63], o) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 8:
-        var msg = acc$0[2], p$5 = acc$0[1];
+        var
+         msg =  /*<<camlinternalFormat.ml:1897:27>>*/ acc$0[2],
+         p$5 = acc$0[1];
          /*<<camlinternalFormat.ml:1911:32>>*/ output_acc(o, p$5);
          /*<<camlinternalFormat.ml:1911:46>>*/ return caml_call1
                 (Stdlib[1], msg) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        case 2:
        case 4:
-        var s$0 = acc$0[2], p$1 = acc$0[1];
+        var
+         s$0 =  /*<<camlinternalFormat.ml:1897:27>>*/ acc$0[2],
+         p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1906:32>>*/ output_acc(o, p$1);
          /*<<camlinternalFormat.ml:1906:46>>*/ return caml_call2
                 (Stdlib[66], o, s$0) /*<<camlinternalFormat.ml:1912:34>>*/ ;
        default:
-        var c = acc$0[2], p$2 = acc$0[1];
+        var
+         c =  /*<<camlinternalFormat.ml:1897:27>>*/ acc$0[2],
+         p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1908:32>>*/ output_acc(o, p$2);
          /*<<camlinternalFormat.ml:1908:46>>*/ return caml_call2
                 (Stdlib[65], o, c) /*<<camlinternalFormat.ml:1912:34>>*/ ;
@@ -18374,10 +18851,10 @@
    }
    function bufput_acc(b, acc){
     var acc$0 = acc;
-     /*<<camlinternalFormat.ml:1917:27>>*/ for(;;){
-     if(typeof acc$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:1917:27>>*/ if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1932:32>>*/ return 0;
-     switch(acc$0[0]){
+      /*<<camlinternalFormat.ml:1917:27>>*/ switch(acc$0[0]){
        case 0:
         var
          fmting_lit = acc$0[2],
@@ -18389,41 +18866,53 @@
          /*<<camlinternalFormat.ml:1920:18>>*/ return caml_call2
                 (Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 1:
-        var match = acc$0[2], p$0 = acc$0[1];
+        var
+         match =  /*<<camlinternalFormat.ml:1917:27>>*/ acc$0[2],
+         p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
           /*<<camlinternalFormat.ml:1922:4>>*/ bufput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1922:20>>*/ caml_call2
           (Stdlib_Buffer[16], b, cst$20);
-         acc$0 = acc$1;
+          /*<<camlinternalFormat.ml:1922:44>>*/ acc$0 = acc$1;
         }
         else{
-         var acc$2 = match[1];
+         var acc$2 =  /*<<camlinternalFormat.ml:1917:27>>*/ match[1];
           /*<<camlinternalFormat.ml:1924:4>>*/ bufput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1924:20>>*/ caml_call2
           (Stdlib_Buffer[16], b, cst$21);
-         acc$0 = acc$2;
+          /*<<camlinternalFormat.ml:1924:44>>*/ acc$0 = acc$2;
         }
         break;
        case 6:
-        var f = acc$0[2], p$3 = acc$0[1];
+        var
+         f =  /*<<camlinternalFormat.ml:1917:27>>*/ acc$0[2],
+         p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1929:32>>*/ bufput_acc(b, p$3);
          /*<<camlinternalFormat.ml:1929:46>>*/ return caml_call1(f, b) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 7:
-        var acc$3 = acc$0[1]; acc$0 = acc$3; break;
+        var acc$3 =  /*<<camlinternalFormat.ml:1917:27>>*/ acc$0[1];
+         /*<<camlinternalFormat.ml:1930:32>>*/ acc$0 = acc$3;
+        break;
        case 8:
-        var msg = acc$0[2], p$4 = acc$0[1];
+        var
+         msg =  /*<<camlinternalFormat.ml:1917:27>>*/ acc$0[2],
+         p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1931:32>>*/ bufput_acc(b, p$4);
          /*<<camlinternalFormat.ml:1931:46>>*/ return caml_call1
                 (Stdlib[1], msg) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        case 2:
        case 4:
-        var s$0 = acc$0[2], p$1 = acc$0[1];
+        var
+         s$0 =  /*<<camlinternalFormat.ml:1917:27>>*/ acc$0[2],
+         p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1926:32>>*/ bufput_acc(b, p$1);
          /*<<camlinternalFormat.ml:1926:46>>*/ return caml_call2
                 (Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1932:34>>*/ ;
        default:
-        var c = acc$0[2], p$2 = acc$0[1];
+        var
+         c =  /*<<camlinternalFormat.ml:1917:27>>*/ acc$0[2],
+         p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1928:32>>*/ bufput_acc(b, p$2);
          /*<<camlinternalFormat.ml:1928:46>>*/ return caml_call2
                 (Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1932:34>>*/ ;
@@ -18432,10 +18921,10 @@
    }
    function strput_acc(b, acc){
     var acc$0 = acc;
-     /*<<camlinternalFormat.ml:1938:27>>*/ for(;;){
-     if(typeof acc$0 === "number")
+    for(;;){
+      /*<<camlinternalFormat.ml:1938:27>>*/ if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1953:32>>*/ return 0;
-     switch(acc$0[0]){
+      /*<<camlinternalFormat.ml:1938:27>>*/ switch(acc$0[0]){
        case 0:
         var
          fmting_lit = acc$0[2],
@@ -18447,43 +18936,55 @@
          /*<<camlinternalFormat.ml:1941:18>>*/ return caml_call2
                 (Stdlib_Buffer[16], b, s) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 1:
-        var match = acc$0[2], p$0 = acc$0[1];
+        var
+         match =  /*<<camlinternalFormat.ml:1938:27>>*/ acc$0[2],
+         p$0 = acc$0[1];
         if(0 === match[0]){
          var acc$1 = match[1];
           /*<<camlinternalFormat.ml:1943:4>>*/ strput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1943:20>>*/ caml_call2
           (Stdlib_Buffer[16], b, cst$22);
-         acc$0 = acc$1;
+          /*<<camlinternalFormat.ml:1943:44>>*/ acc$0 = acc$1;
         }
         else{
-         var acc$2 = match[1];
+         var acc$2 =  /*<<camlinternalFormat.ml:1938:27>>*/ match[1];
           /*<<camlinternalFormat.ml:1945:4>>*/ strput_acc(b, p$0);
           /*<<camlinternalFormat.ml:1945:20>>*/ caml_call2
           (Stdlib_Buffer[16], b, cst$23);
-         acc$0 = acc$2;
+          /*<<camlinternalFormat.ml:1945:44>>*/ acc$0 = acc$2;
         }
         break;
        case 6:
-        var f = acc$0[2], p$3 = acc$0[1];
+        var
+         f =  /*<<camlinternalFormat.ml:1938:27>>*/ acc$0[2],
+         p$3 = acc$0[1];
          /*<<camlinternalFormat.ml:1950:32>>*/ strput_acc(b, p$3);
         var _bv_ =  /*<<camlinternalFormat.ml:1950:68>>*/ caml_call1(f, 0);
          /*<<camlinternalFormat.ml:1950:74>>*/ return caml_call2
                 (Stdlib_Buffer[16], b, _bv_) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 7:
-        var acc$3 = acc$0[1]; acc$0 = acc$3; break;
+        var acc$3 =  /*<<camlinternalFormat.ml:1938:27>>*/ acc$0[1];
+         /*<<camlinternalFormat.ml:1951:32>>*/ acc$0 = acc$3;
+        break;
        case 8:
-        var msg = acc$0[2], p$4 = acc$0[1];
+        var
+         msg =  /*<<camlinternalFormat.ml:1938:27>>*/ acc$0[2],
+         p$4 = acc$0[1];
          /*<<camlinternalFormat.ml:1952:32>>*/ strput_acc(b, p$4);
          /*<<camlinternalFormat.ml:1952:46>>*/ return caml_call1
                 (Stdlib[1], msg) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        case 2:
        case 4:
-        var s$0 = acc$0[2], p$1 = acc$0[1];
+        var
+         s$0 =  /*<<camlinternalFormat.ml:1938:27>>*/ acc$0[2],
+         p$1 = acc$0[1];
          /*<<camlinternalFormat.ml:1947:32>>*/ strput_acc(b, p$1);
          /*<<camlinternalFormat.ml:1947:46>>*/ return caml_call2
                 (Stdlib_Buffer[16], b, s$0) /*<<camlinternalFormat.ml:1953:34>>*/ ;
        default:
-        var c = acc$0[2], p$2 = acc$0[1];
+        var
+         c =  /*<<camlinternalFormat.ml:1938:27>>*/ acc$0[2],
+         p$2 = acc$0[1];
          /*<<camlinternalFormat.ml:1949:32>>*/ strput_acc(b, p$2);
          /*<<camlinternalFormat.ml:1949:46>>*/ return caml_call2
                 (Stdlib_Buffer[12], b, c) /*<<camlinternalFormat.ml:1953:34>>*/ ;
@@ -18517,8 +19018,9 @@
     }
     function parse_spaces(i){
      var i$0 = i;
-      /*<<camlinternalFormat.ml:1973:6>>*/ for(;;){
-      if(i$0 === len)  /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
+     for(;;){
+       /*<<camlinternalFormat.ml:1973:6>>*/ if(i$0 === len)
+        /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
       var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
@@ -18532,9 +19034,9 @@
     a:
     b:
     {
-     var wend = wstart;
-      /*<<camlinternalFormat.ml:1978:6>>*/ for(;;){
-      if(wend === len) break b;
+     var wend =  /*<<camlinternalFormat.ml:1988:15>>*/ wstart;
+     for(;;){
+       /*<<camlinternalFormat.ml:1978:6>>*/ if(wend === len) break b;
        /*<<camlinternalFormat.ml:1979:21>>*/ if
        (25
         <
@@ -18555,9 +19057,9 @@
     a:
     b:
     {
-     var nend = nstart;
-      /*<<camlinternalFormat.ml:1983:6>>*/ for(;;){
-      if(nend === len) break b;
+     var nend =  /*<<camlinternalFormat.ml:1991:15>>*/ nstart;
+     for(;;){
+       /*<<camlinternalFormat.ml:1983:6>>*/ if(nend === len) break b;
       var
        match =
           /*<<camlinternalFormat.ml:1984:14>>*/ caml_string_get(str, nend);
@@ -18571,9 +19073,9 @@
      break a;
     }
      /*<<camlinternalFormat.ml:1992:4>>*/ if(nstart === nend)
-     var indent = 0;
+     var indent =  /*<<camlinternalFormat.ml:1993:28>>*/ 0;
     else
-     try{
+      /*<<camlinternalFormat.ml:1994:8>>*/ try{
       var
        _bs_ =
           /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
@@ -18583,59 +19085,81 @@
      }
      catch(_bt_){
       var _br_ = caml_wrap_exception(_bt_);
-      if(_br_[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(_br_, 0);
-      var indent =  /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box(0);
+       /*<<?>>*/ if(_br_[1] !== Stdlib[7])
+       throw caml_maybe_attach_backtrace(_br_, 0);
+      var
+       indent =
+          /*<<camlinternalFormat.ml:1995:40>>*/  /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box
+          (0);
      }
     var exp_end =  /*<<camlinternalFormat.ml:1996:18>>*/ parse_spaces(nend);
      /*<<camlinternalFormat.ml:1997:4>>*/ if(exp_end !== len)
       /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
     a:
     {
-     if(box_name !== cst$43 && box_name !== "b"){
-      if(box_name === "h"){var box_type = 0; break a;}
-      if(box_name === "hov"){var box_type = 3; break a;}
-      if(box_name === "hv"){var box_type = 2; break a;}
-      if(box_name !== "v"){
-       var box_type =  /*<<camlinternalFormat.ml:2004:20>>*/ invalid_box(0);
+      /*<<camlinternalFormat.ml:1997:4>>*/ if
+      (box_name !== cst$43 && box_name !== "b"){
+      if(box_name === "h"){
+       var box_type =  /*<<camlinternalFormat.ml:2000:20>>*/ 0;
+       break a;
+      }
+       /*<<camlinternalFormat.ml:1997:4>>*/ if(box_name === "hov"){
+       var box_type =  /*<<camlinternalFormat.ml:2003:20>>*/ 3;
+       break a;
+      }
+       /*<<camlinternalFormat.ml:1997:4>>*/ if(box_name === "hv"){
+       var box_type =  /*<<camlinternalFormat.ml:2002:20>>*/ 2;
+       break a;
+      }
+       /*<<camlinternalFormat.ml:1997:4>>*/ if(box_name !== "v"){
+       var
+        box_type =
+           /*<<camlinternalFormat.ml:2004:34>>*/  /*<<camlinternalFormat.ml:2004:20>>*/ invalid_box
+           (0);
        break a;
       }
-      var box_type = 1;
+      var box_type =  /*<<camlinternalFormat.ml:2001:20>>*/ 1;
       break a;
      }
-     var box_type = 4;
+     var box_type =  /*<<camlinternalFormat.ml:1999:20>>*/ 4;
     }
      /*<<camlinternalFormat.ml:2005:4>>*/ return [0, indent, box_type];
     /*<<camlinternalFormat.ml:2005:22>>*/ }
    function make_padding_fmt_ebb(pad, fmt){
      /*<<camlinternalFormat.ml:2015:15>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:2016:26>>*/ return [0, 0, fmt];
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:2015:15>>*/ if(0 === pad[0]){
      var w = pad[2], s = pad[1];
       /*<<camlinternalFormat.ml:2017:26>>*/ return [0, [0, s, w], fmt];
     }
-    var s$0 = pad[1];
+    var s$0 =  /*<<camlinternalFormat.ml:2015:15>>*/ pad[1];
      /*<<camlinternalFormat.ml:2018:26>>*/ return [0, [1, s$0], fmt];
     /*<<camlinternalFormat.ml:2018:62>>*/ }
    function make_padprec_fmt_ebb(pad, prec, fmt){
      /*<<camlinternalFormat.ml:2038:2>>*/ if(typeof prec === "number")
-     var match = prec ? [0, 1] : [0, 0];
+     var
+      match =  /*<<camlinternalFormat.ml:2025:16>>*/ prec ? [0, 1] : [0, 0];
     else
-     var p = prec[1], match = [0, [0, p]];
+     var
+      p = prec[1],
+      match =  /*<<camlinternalFormat.ml:2027:23>>*/ [0, [0, p]];
     var prec$0 =  /*<<camlinternalFormat.ml:2038:70>>*/ match[1];
      /*<<camlinternalFormat.ml:2039:2>>*/ if(typeof pad === "number")
       /*<<camlinternalFormat.ml:2040:26>>*/ return [0, 0, prec$0, fmt];
-    if(0 === pad[0]){
+     /*<<camlinternalFormat.ml:2039:2>>*/ if(0 === pad[0]){
      var w = pad[2], s = pad[1];
       /*<<camlinternalFormat.ml:2041:26>>*/ return [0, [0, s, w], prec$0, fmt];
     }
-    var s$0 = pad[1];
+    var s$0 =  /*<<camlinternalFormat.ml:2039:2>>*/ pad[1];
      /*<<camlinternalFormat.ml:2042:26>>*/ return [0, [1, s$0], prec$0, fmt];
     /*<<camlinternalFormat.ml:2042:69>>*/ }
    function fmt_ebb_of_string(legacy_behavior, str){
      /*<<camlinternalFormat.ml:2066:2>>*/ if(legacy_behavior)
-     var flag = legacy_behavior[1], legacy_behavior$0 = flag;
+     var
+      flag = legacy_behavior[1],
+      legacy_behavior$0 =  /*<<camlinternalFormat.ml:2067:19>>*/ flag;
     else
-     var legacy_behavior$0 = 1;
+     var legacy_behavior$0 =  /*<<camlinternalFormat.ml:2068:14>>*/ 1;
     function invalid_format_message(str_ind, msg){
       /*<<camlinternalFormat.ml:2084:4>>*/ return caml_call3
              (failwith_message(_z_), str, str_ind, msg) /*<<camlinternalFormat.ml:2086:21>>*/ ;
@@ -18651,9 +19175,9 @@
     function parse(lit_start, end_ind){
      a:
      {
-      var str_ind = lit_start;
-       /*<<camlinternalFormat.ml:2124:4>>*/ for(;;){
-       if(str_ind === end_ind)
+      var str_ind =  /*<<camlinternalFormat.ml:2119:25>>*/ lit_start;
+      for(;;){
+        /*<<camlinternalFormat.ml:2124:4>>*/ if(str_ind === end_ind)
          /*<<camlinternalFormat.ml:2124:30>>*/ return add_literal
                 (lit_start, str_ind, 0) /*<<camlinternalFormat.ml:2119:62>>*/ ;
        var
@@ -18685,7 +19209,7 @@
      var str_ind$0 =  /*<<camlinternalFormat.ml:2130:8>>*/ str_ind + 1 | 0;
      a:
      if(str_ind$0 === end_ind)
-      var match$0 = _N_;
+      var match$0 =  /*<<camlinternalFormat.ml:2591:30>>*/ _N_;
      else{
       var
        c =
@@ -18709,12 +19233,13 @@
                 /*<<camlinternalFormat.ml:2602:58>>*/  /*<<camlinternalFormat.ml:2602:31>>*/ parse
                  (str_ind$0 + 1 | 0, end_ind)
                 [1],
-             match$0 = [0, [17, 1, fmt_rest$2]];
+             match$0 =
+                /*<<camlinternalFormat.ml:2603:8>>*/ [0, [17, 1, fmt_rest$2]];
             break a;
          }
        }
        else if(91 <= c)
-        switch(c - 91 | 0){
+         /*<<camlinternalFormat.ml:2593:25>>*/ switch(c - 91 | 0){
           case 0:
            var
             match$0 =
@@ -18728,21 +19253,23 @@
                /*<<camlinternalFormat.ml:2597:58>>*/  /*<<camlinternalFormat.ml:2597:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
-            match$0 = [0, [17, 0, fmt_rest$3]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2598:8>>*/ [0, [17, 0, fmt_rest$3]];
            break a;
         }
       }
       else{
-       if(10 === c){
+        /*<<camlinternalFormat.ml:2593:25>>*/ if(10 === c){
         var
          fmt_rest$4 =
             /*<<camlinternalFormat.ml:2616:58>>*/  /*<<camlinternalFormat.ml:2616:31>>*/ parse
              (str_ind$0 + 1 | 0, end_ind)
             [1],
-         match$0 = [0, [17, 3, fmt_rest$4]];
+         match$0 =
+            /*<<camlinternalFormat.ml:2617:8>>*/ [0, [17, 3, fmt_rest$4]];
         break a;
        }
-       if(32 <= c)
+        /*<<camlinternalFormat.ml:2593:25>>*/ if(32 <= c)
         switch(c - 32 | 0){
           case 0:
            var
@@ -18750,7 +19277,8 @@
                /*<<camlinternalFormat.ml:2608:58>>*/  /*<<camlinternalFormat.ml:2608:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
-            match$0 = [0, [17, _O_, fmt_rest$5]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2609:8>>*/ [0, [17, _O_, fmt_rest$5]];
            break a;
           case 5:
             /*<<camlinternalFormat.ml:2626:17>>*/ if
@@ -18765,7 +19293,8 @@
                 /*<<camlinternalFormat.ml:2627:58>>*/  /*<<camlinternalFormat.ml:2627:31>>*/ parse
                  (str_ind$0 + 2 | 0, end_ind)
                 [1],
-             match$0 = [0, [17, 6, fmt_rest$6]];
+             match$0 =
+                /*<<camlinternalFormat.ml:2628:8>>*/ [0, [17, 6, fmt_rest$6]];
             break a;
            }
            var
@@ -18773,7 +19302,8 @@
                /*<<camlinternalFormat.ml:2630:52>>*/  /*<<camlinternalFormat.ml:2630:31>>*/ parse
                 (str_ind$0, end_ind)
                [1],
-            match$0 = [0, [12, 64, fmt_rest$7]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2631:8>>*/ [0, [12, 64, fmt_rest$7]];
            break a;
           case 12:
            var
@@ -18781,7 +19311,8 @@
                /*<<camlinternalFormat.ml:2605:58>>*/  /*<<camlinternalFormat.ml:2605:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
-            match$0 = [0, [17, _P_, fmt_rest$8]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2606:8>>*/ [0, [17, _P_, fmt_rest$8]];
            break a;
           case 14:
            var
@@ -18789,7 +19320,8 @@
                /*<<camlinternalFormat.ml:2619:58>>*/  /*<<camlinternalFormat.ml:2619:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
-            match$0 = [0, [17, 4, fmt_rest$9]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2620:8>>*/ [0, [17, 4, fmt_rest$9]];
            break a;
           case 27:
            var
@@ -18893,22 +19425,27 @@
            }
            catch(_bq_){
             var _bf_ = caml_wrap_exception(_bq_);
-            if(_bf_ !== Stdlib[8] && _bf_[1] !== Stdlib[7])
+             /*<<?>>*/ if(_bf_ !== Stdlib[8] && _bf_[1] !== Stdlib[7])
              throw caml_maybe_attach_backtrace(_bf_, 0);
-            var formatting_lit$0 = formatting_lit, next_ind = str_ind$3;
+            var
+             formatting_lit$0 =
+                /*<<camlinternalFormat.ml:2688:4>>*/ formatting_lit,
+             next_ind = str_ind$3;
            }
            var
             fmt_rest$12 =
                /*<<camlinternalFormat.ml:2688:49>>*/  /*<<camlinternalFormat.ml:2688:27>>*/ parse
                 (next_ind, end_ind)
                [1],
-            match$0 = [0, [17, formatting_lit$0, fmt_rest$12]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2689:4>>*/ [0,
+               [17, formatting_lit$0, fmt_rest$12]];
            break a;
           case 28:
            var
             str_ind$4 =
                /*<<camlinternalFormat.ml:2622:8>>*/ str_ind$0 + 1 | 0;
-           try{
+            /*<<camlinternalFormat.ml:2694:4>>*/ try{
             var
              str_ind_1$0 =
                 /*<<camlinternalFormat.ml:2696:24>>*/ parse_spaces
@@ -18924,7 +19461,7 @@
                if(58 > match$6) break c;
               }
               else if(45 === match$6) break c;
-              var _bo_ = 0;
+              var _bo_ =  /*<<camlinternalFormat.ml:2704:15>>*/ 0;
               break b;
              }
              var
@@ -18950,17 +19487,19 @@
                   str,
                   str_ind$4 - 2 | 0,
                   (str_ind_3$0 - str_ind$4 | 0) + 3 | 0),
-              _bo_ = [0, [0, str_ind_3$0 + 1 | 0, [1, s$1, size]]];
+              _bo_ =
+                 /*<<camlinternalFormat.ml:2703:10>>*/ [0,
+                 [0, str_ind_3$0 + 1 | 0, [1, s$1, size]]];
             }
             var _bn_ = _bo_;
            }
            catch(_bp_){
             var _bm_ = caml_wrap_exception(_bp_);
-            if(_bm_ !== Stdlib[8] && _bm_[1] !== Stdlib[7])
+             /*<<?>>*/ if(_bm_ !== Stdlib[8] && _bm_[1] !== Stdlib[7])
              throw caml_maybe_attach_backtrace(_bm_, 0);
-            var _bn_ = 0;
+            var _bn_ =  /*<<camlinternalFormat.ml:2706:8>>*/ 0;
            }
-           if(_bn_)
+            /*<<camlinternalFormat.ml:2694:4>>*/ if(_bn_)
             var
              match$5 = _bn_[1],
              formatting_lit$1 = match$5[2],
@@ -18969,15 +19508,19 @@
                 /*<<camlinternalFormat.ml:2709:51>>*/  /*<<camlinternalFormat.ml:2709:29>>*/ parse
                  (next_ind$0, end_ind)
                 [1],
-             _be_ = [0, [17, formatting_lit$1, fmt_rest$13]];
+             _be_ =
+                /*<<camlinternalFormat.ml:2710:6>>*/ [0,
+                [17, formatting_lit$1, fmt_rest$13]];
            else
             var
              fmt_rest$14 =
                 /*<<camlinternalFormat.ml:2712:50>>*/  /*<<camlinternalFormat.ml:2712:29>>*/ parse
                  (str_ind$4, end_ind)
                 [1],
-             _be_ = [0, [17, _Q_, fmt_rest$14]];
-           var match$0 = _be_;
+             _be_ =
+                /*<<camlinternalFormat.ml:2713:6>>*/ [0,
+                [17, _Q_, fmt_rest$14]];
+           var match$0 =  /*<<camlinternalFormat.ml:2694:4>>*/ _be_;
            break a;
           case 31:
            var
@@ -18985,7 +19528,8 @@
                /*<<camlinternalFormat.ml:2613:58>>*/  /*<<camlinternalFormat.ml:2613:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
-            match$0 = [0, [17, 2, fmt_rest$10]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2614:8>>*/ [0, [17, 2, fmt_rest$10]];
            break a;
           case 32:
            var
@@ -18993,7 +19537,8 @@
                /*<<camlinternalFormat.ml:2624:58>>*/  /*<<camlinternalFormat.ml:2624:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
-            match$0 = [0, [17, 5, fmt_rest$11]];
+            match$0 =
+               /*<<camlinternalFormat.ml:2625:8>>*/ [0, [17, 5, fmt_rest$11]];
            break a;
         }
       }
@@ -19002,7 +19547,8 @@
           /*<<camlinternalFormat.ml:2633:58>>*/  /*<<camlinternalFormat.ml:2633:31>>*/ parse
            (str_ind$0 + 1 | 0, end_ind)
           [1],
-       match$0 = [0, [17, [2, c], fmt_rest$1]];
+       match$0 =
+          /*<<camlinternalFormat.ml:2634:8>>*/ [0, [17, [2, c], fmt_rest$1]];
      }
      var fmt_rest$0 =  /*<<camlinternalFormat.ml:2130:67>>*/ match$0[1];
       /*<<camlinternalFormat.ml:2131:8>>*/ return add_literal
@@ -19026,15 +19572,15 @@
         /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
         (failwith_message(_C_), str, str_ind, _bd_);
       }
-      flag[1] = 1;
+       /*<<camlinternalFormat.ml:2154:6>>*/ flag[1] = 1;
       /*<<camlinternalFormat.ml:2158:19>>*/ }
      a:
      b:
      {
-      var str_ind$0 = str_ind;
+      var str_ind$0 =  /*<<camlinternalFormat.ml:2173:4>>*/ str_ind;
       c:
-       /*<<camlinternalFormat.ml:2161:6>>*/ for(;;){
-       if(str_ind$0 === end_ind)
+      for(;;){
+        /*<<camlinternalFormat.ml:2161:6>>*/ if(str_ind$0 === end_ind)
          /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
          (end_ind, cst_unexpected_end_of_format);
        var
@@ -19096,7 +19642,7 @@
        (end_ind, cst_unexpected_end_of_format);
      var
       padty =
-        zero$0
+         /*<<camlinternalFormat.ml:2180:4>>*/ zero$0
          ? minus$0
            ? legacy_behavior$0
              ? 0
@@ -19142,7 +19688,7 @@
          /*<<camlinternalFormat.ml:2199:8>>*/ if(1 - legacy_behavior$0)
           /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
           (str_ind$0 - 1 | 0, 45, cst_padding);
-        return parse_after_padding
+         /*<<camlinternalFormat.ml:2199:8>>*/ return parse_after_padding
                 (pct_ind,
                  str_ind$0,
                  end_ind,
@@ -19229,7 +19775,7 @@
                (minus, str_ind$0) /*<<camlinternalFormat.ml:2226:29>>*/ ;
      }
      else if(42 <= symb$0)
-      switch(symb$0 - 42 | 0){
+       /*<<camlinternalFormat.ml:2238:23>>*/ switch(symb$0 - 42 | 0){
         case 0:
           /*<<camlinternalFormat.ml:2251:6>>*/ return parse_after_precision
                  (pct_ind,
@@ -19292,15 +19838,15 @@
       /*<<camlinternalFormat.ml:2279:20>>*/ if
       (typeof prec === "number" && ! prec)
        /*<<camlinternalFormat.ml:2281:29>>*/ return parse_conv(0) /*<<camlinternalFormat.ml:2287:27>>*/ ;
-     if(minus){
+      /*<<camlinternalFormat.ml:2279:20>>*/ if(minus){
       if(typeof prec === "number")
         /*<<camlinternalFormat.ml:2285:33>>*/ return parse_conv(_F_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
-      var n = prec[1];
+      var n =  /*<<camlinternalFormat.ml:2279:20>>*/ prec[1];
        /*<<camlinternalFormat.ml:2283:35>>*/ return parse_conv([0, 0, n]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
      }
-     if(typeof prec === "number")
+      /*<<camlinternalFormat.ml:2279:20>>*/ if(typeof prec === "number")
        /*<<camlinternalFormat.ml:2284:34>>*/ return parse_conv(_G_) /*<<camlinternalFormat.ml:2287:27>>*/ ;
-     var n$0 = prec[1];
+     var n$0 =  /*<<camlinternalFormat.ml:2279:20>>*/ prec[1];
       /*<<camlinternalFormat.ml:2282:36>>*/ return parse_conv([0, 1, n$0]) /*<<camlinternalFormat.ml:2287:27>>*/ ;
     }
     function parse_conversion
@@ -19357,17 +19903,18 @@
        /*<<camlinternalFormat.ml:2320:36>>*/ if
        (typeof match === "number" && ! match)
         /*<<camlinternalFormat.ml:2321:32>>*/ return pad;
-      if(typeof pad === "number")
+       /*<<camlinternalFormat.ml:2320:36>>*/ if(typeof pad === "number")
         /*<<camlinternalFormat.ml:2322:32>>*/ return 0;
-      if(0 !== pad[0])
+       /*<<camlinternalFormat.ml:2320:36>>*/ if(0 !== pad[0])
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _H_
                  :  /*<<camlinternalFormat.ml:2328:16>>*/ incompatible_flag
                    (pct_ind, str_ind, 48, cst_precision$1)
                : pad /*<<camlinternalFormat.ml:2330:41>>*/ ;
-      if(2 > pad[1])  /*<<camlinternalFormat.ml:2329:38>>*/ return pad;
-      var n = pad[2];
+       /*<<camlinternalFormat.ml:2320:36>>*/ if(2 > pad[1])
+        /*<<camlinternalFormat.ml:2329:38>>*/ return pad;
+      var n =  /*<<camlinternalFormat.ml:2320:36>>*/ pad[2];
        /*<<camlinternalFormat.ml:2324:11>>*/ return legacy_behavior$0
               ? [0, 1, n]
               :  /*<<camlinternalFormat.ml:2325:16>>*/ incompatible_flag
@@ -19376,15 +19923,16 @@
      function check_no_0(symb, pad){
        /*<<camlinternalFormat.ml:2334:6>>*/ if(typeof pad === "number")
         /*<<camlinternalFormat.ml:2335:22>>*/ return pad;
-      if(0 !== pad[0])
+       /*<<camlinternalFormat.ml:2334:6>>*/ if(0 !== pad[0])
        return 2 <= pad[1]
                ? legacy_behavior$0
                  ? _I_
                  :  /*<<camlinternalFormat.ml:2343:13>>*/ incompatible_flag
                    (pct_ind, str_ind, symb, cst_0$1)
                : pad /*<<camlinternalFormat.ml:2343:55>>*/ ;
-      if(2 > pad[1])  /*<<camlinternalFormat.ml:2336:43>>*/ return pad;
-      var width = pad[2];
+       /*<<camlinternalFormat.ml:2334:6>>*/ if(2 > pad[1])
+        /*<<camlinternalFormat.ml:2336:43>>*/ return pad;
+      var width =  /*<<camlinternalFormat.ml:2334:6>>*/ pad[2];
        /*<<camlinternalFormat.ml:2339:8>>*/ return legacy_behavior$0
               ? [0, 1, width]
               :  /*<<camlinternalFormat.ml:2340:13>>*/ incompatible_flag
@@ -19393,7 +19941,7 @@
      function opt_of_pad(c, pad){
        /*<<camlinternalFormat.ml:2349:64>>*/ if(typeof pad === "number")
         /*<<camlinternalFormat.ml:2350:22>>*/ return 0;
-      if(0 === pad[0])
+       /*<<camlinternalFormat.ml:2349:64>>*/ if(0 === pad[0])
        switch(pad[1]){
          case 0:
           var width = pad[2];
@@ -19402,10 +19950,10 @@
                   :  /*<<camlinternalFormat.ml:2357:13>>*/ incompatible_flag
                     (pct_ind, str_ind, c, cst$24) /*<<camlinternalFormat.ml:2358:66>>*/ ;
          case 1:
-          var width$0 = pad[2];
+          var width$0 =  /*<<camlinternalFormat.ml:2349:64>>*/ pad[2];
            /*<<camlinternalFormat.ml:2351:38>>*/ return [0, width$0];
          default:
-          var width$1 = pad[2];
+          var width$1 =  /*<<camlinternalFormat.ml:2349:64>>*/ pad[2];
            /*<<camlinternalFormat.ml:2353:8>>*/ return legacy_behavior$0
                   ? [0, width$1]
                   :  /*<<camlinternalFormat.ml:2354:13>>*/ incompatible_flag
@@ -19432,7 +19980,8 @@
               /*<<camlinternalFormat.ml:2515:50>>*/  /*<<camlinternalFormat.ml:2515:29>>*/ parse
                (str_ind, end_ind)
               [1],
-           fmt_result = [0, [10, fmt_rest$5]];
+           fmt_result =
+              /*<<camlinternalFormat.ml:2516:6>>*/ [0, [10, fmt_rest$5]];
           break a;
          case 40:
           var
@@ -19456,21 +20005,24 @@
                /*<<camlinternalFormat.ml:2536:59>>*/ [9,
                 /*<<camlinternalFormat.ml:2536:44>>*/ get_pad_opt(95),
                sub_fmtty],
-            _aJ_ = [0, [23, ignored$2, fmt_rest$7]];
+            _aJ_ =
+               /*<<camlinternalFormat.ml:2537:8>>*/ [0,
+               [23, ignored$2, fmt_rest$7]];
           else
            var
             _aJ_ =
-              [0,
+               /*<<camlinternalFormat.ml:2539:46>>*/ [0,
                [14,
                  /*<<camlinternalFormat.ml:2539:31>>*/ get_pad_opt(40),
                 sub_fmtty,
                 fmt_rest$7]];
-          var fmt_result = _aJ_;
+          var fmt_result =  /*<<camlinternalFormat.ml:2535:19>>*/ _aJ_;
           break a;
          case 44:
           var
            fmt_result =
-              /*<<camlinternalFormat.ml:2374:6>>*/ parse(str_ind, end_ind);
+              /*<<camlinternalFormat.ml:2374:27>>*/  /*<<camlinternalFormat.ml:2374:6>>*/ parse
+              (str_ind, end_ind);
           break a;
          case 67:
           var
@@ -19483,7 +20035,7 @@
                (0)
               ? [0, [23, 1, fmt_rest$10]]
               : [0, [1, fmt_rest$10]],
-           fmt_result = _aL_;
+           fmt_result =  /*<<camlinternalFormat.ml:2397:19>>*/ _aL_;
           break a;
          case 78:
           var
@@ -19496,10 +20048,15 @@
            ( /*<<camlinternalFormat.ml:2433:9>>*/ get_ign(0))
            var
             ignored$6 =  /*<<camlinternalFormat.ml:2434:8>>*/ [11, counter$0],
-            _aR_ = [0, [23, ignored$6, fmt_rest$14]];
+            _aR_ =
+               /*<<camlinternalFormat.ml:2435:8>>*/ [0,
+               [23, ignored$6, fmt_rest$14]];
           else
-           var _aR_ = [0, [21, counter$0, fmt_rest$14]];
-          var fmt_result = _aR_;
+           var
+            _aR_ =
+               /*<<camlinternalFormat.ml:2437:8>>*/ [0,
+               [21, counter$0, fmt_rest$14]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2433:19>>*/ _aR_;
           break a;
          case 83:
           var
@@ -19516,7 +20073,9 @@
             ignored$7 =
                /*<<camlinternalFormat.ml:2413:63>>*/ [1,
                 /*<<camlinternalFormat.ml:2413:42>>*/ get_padprec_opt(95)],
-            _aS_ = [0, [23, ignored$7, fmt_rest$15]];
+            _aS_ =
+               /*<<camlinternalFormat.ml:2414:8>>*/ [0,
+               [23, ignored$7, fmt_rest$15]];
           else
            var
             match$5 =
@@ -19524,8 +20083,10 @@
                (pad$6, fmt_rest$15),
             fmt_rest$16 =  /*<<camlinternalFormat.ml:2417:43>>*/ match$5[2],
             pad$7 = match$5[1],
-            _aS_ = [0, [3, pad$7, fmt_rest$16]];
-          var fmt_result = _aS_;
+            _aS_ =
+               /*<<camlinternalFormat.ml:2418:8>>*/ [0,
+               [3, pad$7, fmt_rest$16]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2412:19>>*/ _aS_;
           break a;
          case 91:
            /*<<camlinternalFormat.ml:2717:4>>*/ if(str_ind === end_ind)
@@ -19558,8 +20119,8 @@
               /*<<camlinternalFormat.ml:2736:4>>*/ function
              (counter, str_ind, end_ind){
               var str_ind$0 = str_ind;
-               /*<<camlinternalFormat.ml:2743:6>>*/ for(;;){
-               if(str_ind$0 === end_ind)
+              for(;;){
+                /*<<camlinternalFormat.ml:2743:6>>*/ if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
                var
@@ -19576,9 +20137,11 @@
                 if(counter >= 50)
                  return caml_trampoline_return
                          (parse_char_set_after_char$0, [0, _a__, end_ind, c]) /*<<camlinternalFormat.ml:2751:57>>*/ ;
-                var counter$0 = counter + 1 | 0;
+                var
+                 counter$0 =
+                    /*<<camlinternalFormat.ml:2751:8>>*/ counter + 1 | 0;
                 return parse_char_set_after_char$0
-                        (counter$0, _a__, end_ind, c);
+                        (counter$0, _a__, end_ind, c) /*<<camlinternalFormat.ml:2751:57>>*/ ;
                }
                 /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                 (char_set, 45);
@@ -19592,8 +20155,8 @@
               /*<<camlinternalFormat.ml:2736:4>>*/ function
              (counter, str_ind, end_ind, c){
               var str_ind$0 = str_ind, c$0 = c;
-               /*<<camlinternalFormat.ml:2755:6>>*/ for(;;){
-               if(str_ind$0 === end_ind)
+              for(;;){
+                /*<<camlinternalFormat.ml:2755:6>>*/ if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
                var
@@ -19612,7 +20175,7 @@
                  }
                 }
                 else if(37 !== c$1){
-                 if(45 > c$1) break a;
+                  /*<<camlinternalFormat.ml:2756:25>>*/ if(45 > c$1) break a;
                  var
                   str_ind$2 =
                      /*<<camlinternalFormat.ml:2761:8>>*/ str_ind$0 + 1 | 0;
@@ -19644,10 +20207,12 @@
                   if(counter >= 50)
                    return caml_trampoline_return
                            (parse_char_set_content, [0, _a8_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
-                  var counter$1 = counter + 1 | 0;
-                  return parse_char_set_content(counter$1, _a8_, end_ind);
+                  var
+                   counter$1 =
+                      /*<<camlinternalFormat.ml:2785:26>>*/ counter + 1 | 0;
+                  return parse_char_set_content(counter$1, _a8_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                  }
-                 if(93 === c$2){
+                  /*<<camlinternalFormat.ml:2776:25>>*/ if(93 === c$2){
                    /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
                    (char_set, c$0);
                   add_in_char_set(char_set, 45);
@@ -19661,8 +20226,10 @@
                  if(counter >= 50)
                   return caml_trampoline_return
                           (parse_char_set_content, [0, _a9_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
-                 var counter$0 = counter + 1 | 0;
-                 return parse_char_set_content(counter$0, _a9_, end_ind);
+                 var
+                  counter$0 =
+                     /*<<camlinternalFormat.ml:2790:22>>*/ counter + 1 | 0;
+                 return parse_char_set_content(counter$0, _a9_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                  /*<<camlinternalFormat.ml:2762:31>>*/ if(37 === c$0){
                   /*<<camlinternalFormat.ml:2721:6>>*/ add_in_char_set
@@ -19673,8 +20240,10 @@
                  if(counter >= 50)
                   return caml_trampoline_return
                           (parse_char_set_content, [0, _a7_, end_ind]) /*<<camlinternalFormat.ml:2771:58>>*/ ;
-                 var counter$2 = counter + 1 | 0;
-                 return parse_char_set_content(counter$2, _a7_, end_ind);
+                 var
+                  counter$2 =
+                     /*<<camlinternalFormat.ml:2763:19>>*/ counter + 1 | 0;
+                 return parse_char_set_content(counter$2, _a7_, end_ind) /*<<camlinternalFormat.ml:2771:58>>*/ ;
                 }
                }
                 /*<<camlinternalFormat.ml:2766:8>>*/ if(37 === c$0)
@@ -19705,10 +20274,12 @@
               (str, str_ind))
            var
             str_ind$0 =  /*<<camlinternalFormat.ml:2796:17>>*/ str_ind + 1 | 0,
-            reverse = 1,
+            reverse =  /*<<camlinternalFormat.ml:2798:4>>*/ 1,
             str_ind$1 = str_ind$0;
           else
-           var reverse = 0, str_ind$1 = str_ind;
+           var
+            reverse =  /*<<camlinternalFormat.ml:2797:15>>*/ 0,
+            str_ind$1 = str_ind;
            /*<<camlinternalFormat.ml:2737:6>>*/ if(str_ind$1 === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
@@ -19737,16 +20308,18 @@
                /*<<camlinternalFormat.ml:2544:60>>*/ [10,
                 /*<<camlinternalFormat.ml:2544:45>>*/ get_pad_opt(95),
                char_set$1],
-            _aX_ = [0, [23, ignored$9, fmt_rest$19]];
+            _aX_ =
+               /*<<camlinternalFormat.ml:2545:8>>*/ [0,
+               [23, ignored$9, fmt_rest$19]];
           else
            var
             _aX_ =
-              [0,
+               /*<<camlinternalFormat.ml:2547:47>>*/ [0,
                [20,
                  /*<<camlinternalFormat.ml:2547:32>>*/ get_pad_opt(91),
                 char_set$1,
                 fmt_rest$19]];
-          var fmt_result = _aX_;
+          var fmt_result =  /*<<camlinternalFormat.ml:2543:19>>*/ _aX_;
           break a;
          case 97:
           var
@@ -19754,7 +20327,8 @@
               /*<<camlinternalFormat.ml:2505:50>>*/  /*<<camlinternalFormat.ml:2505:29>>*/ parse
                (str_ind, end_ind)
               [1],
-           fmt_result = [0, [15, fmt_rest$20]];
+           fmt_result =
+              /*<<camlinternalFormat.ml:2506:6>>*/ [0, [15, fmt_rest$20]];
           break a;
          case 99:
           var
@@ -19778,7 +20352,7 @@
                  (0)
                 ? [0, [23, 3, fmt_rest$21]]
                 : [0, [22, fmt_rest$21]],
-             _aZ_ = _aY_;
+             _aZ_ =  /*<<camlinternalFormat.ml:2389:40>>*/ _aY_;
            else
             var
              _aZ_ =
@@ -19787,13 +20361,14 @@
                   (fmt_rest$21)
                 :  /*<<camlinternalFormat.ml:2098:4>>*/ invalid_format_message
                   (str_ind, cst_non_zero_widths_are_unsupp);
-           var _a0_ = _aZ_;
+           var _a0_ =  /*<<camlinternalFormat.ml:2387:33>>*/ _aZ_;
           }
           else
            var
             _a0_ =
-               /*<<camlinternalFormat.ml:2388:18>>*/ char_format(fmt_rest$21);
-          var fmt_result = _a0_;
+               /*<<camlinternalFormat.ml:2388:38>>*/  /*<<camlinternalFormat.ml:2388:18>>*/ char_format
+               (fmt_rest$21);
+          var fmt_result =  /*<<camlinternalFormat.ml:2387:33>>*/ _a0_;
           break a;
          case 114:
           var
@@ -19806,7 +20381,7 @@
                (0)
               ? [0, [23, 2, fmt_rest$22]]
               : [0, [19, fmt_rest$22]],
-           fmt_result = _a1_;
+           fmt_result =  /*<<camlinternalFormat.ml:2512:19>>*/ _a1_;
           break a;
          case 115:
           var
@@ -19823,7 +20398,9 @@
             ignored$10 =
                /*<<camlinternalFormat.ml:2403:58>>*/ [0,
                 /*<<camlinternalFormat.ml:2403:37>>*/ get_padprec_opt(95)],
-            _a2_ = [0, [23, ignored$10, fmt_rest$23]];
+            _a2_ =
+               /*<<camlinternalFormat.ml:2404:8>>*/ [0,
+               [23, ignored$10, fmt_rest$23]];
           else
            var
             match$8 =
@@ -19831,8 +20408,10 @@
                (pad$9, fmt_rest$23),
             fmt_rest$24 =  /*<<camlinternalFormat.ml:2407:43>>*/ match$8[2],
             pad$10 = match$8[1],
-            _a2_ = [0, [2, pad$10, fmt_rest$24]];
-          var fmt_result = _a2_;
+            _a2_ =
+               /*<<camlinternalFormat.ml:2408:8>>*/ [0,
+               [2, pad$10, fmt_rest$24]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2402:19>>*/ _a2_;
           break a;
          case 116:
           var
@@ -19840,7 +20419,8 @@
               /*<<camlinternalFormat.ml:2508:50>>*/  /*<<camlinternalFormat.ml:2508:29>>*/ parse
                (str_ind, end_ind)
               [1],
-           fmt_result = [0, [16, fmt_rest$25]];
+           fmt_result =
+              /*<<camlinternalFormat.ml:2509:6>>*/ [0, [16, fmt_rest$25]];
           break a;
          case 123:
           var
@@ -19864,16 +20444,18 @@
                /*<<camlinternalFormat.ml:2526:57>>*/ [8,
                 /*<<camlinternalFormat.ml:2526:42>>*/ get_pad_opt(95),
                sub_fmtty$0],
-            _a3_ = [0, [23, ignored$11, fmt_rest$26]];
+            _a3_ =
+               /*<<camlinternalFormat.ml:2527:8>>*/ [0,
+               [23, ignored$11, fmt_rest$26]];
           else
            var
             _a3_ =
-              [0,
+               /*<<camlinternalFormat.ml:2529:44>>*/ [0,
                [13,
                  /*<<camlinternalFormat.ml:2529:29>>*/ get_pad_opt(123),
                 sub_fmtty$0,
                 fmt_rest$26]];
-          var fmt_result = _a3_;
+          var fmt_result =  /*<<camlinternalFormat.ml:2525:19>>*/ _a3_;
           break a;
          case 66:
          case 98:
@@ -19891,7 +20473,9 @@
             ignored$3 =
                /*<<camlinternalFormat.ml:2498:56>>*/ [7,
                 /*<<camlinternalFormat.ml:2498:35>>*/ get_padprec_opt(95)],
-            _aK_ = [0, [23, ignored$3, fmt_rest$8]];
+            _aK_ =
+               /*<<camlinternalFormat.ml:2499:8>>*/ [0,
+               [23, ignored$3, fmt_rest$8]];
           else
            var
             match$3 =
@@ -19899,8 +20483,10 @@
                (pad$3, fmt_rest$8),
             fmt_rest$9 =  /*<<camlinternalFormat.ml:2502:43>>*/ match$3[2],
             pad$4 = match$3[1],
-            _aK_ = [0, [9, pad$4, fmt_rest$9]];
-          var fmt_result = _aK_;
+            _aK_ =
+               /*<<camlinternalFormat.ml:2503:8>>*/ [0,
+               [9, pad$4, fmt_rest$9]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2497:19>>*/ _aK_;
           break a;
          case 37:
          case 64:
@@ -19909,7 +20495,8 @@
               /*<<camlinternalFormat.ml:2518:50>>*/  /*<<camlinternalFormat.ml:2518:29>>*/ parse
                (str_ind, end_ind)
               [1],
-           fmt_result = [0, [12, symb, fmt_rest$6]];
+           fmt_result =
+              /*<<camlinternalFormat.ml:2519:6>>*/ [0, [12, symb, fmt_rest$6]];
           break a;
          case 76:
          case 108:
@@ -19930,9 +20517,9 @@
                case 23:
                case 29:
                case 32:
-                var _aQ_ = 1; break b;
+                var _aQ_ =  /*<<camlinternalFormat.ml:2893:43>>*/ 1; break b;
              }
-            var _aQ_ = 0;
+            var _aQ_ =  /*<<camlinternalFormat.ml:2894:11>>*/ 0;
            }
             /*<<camlinternalFormat.ml:2438:77>>*/ if(_aQ_) break;
           }
@@ -19947,12 +20534,18 @@
             if(111 > symb)
              switch(symb - 108 | 0){
                case 0:
-                var counter = 0; break b;
+                var counter =  /*<<camlinternalFormat.ml:2898:13>>*/ 0;
+                break b;
                case 1: break;
-               default: var counter = 1; break b;
+               default:
+                var counter =  /*<<camlinternalFormat.ml:2898:36>>*/ 1;
+                break b;
              }
            }
-           else if(76 === symb){var counter = 2; break b;}
+           else if(76 === symb){
+            var counter =  /*<<camlinternalFormat.ml:2899:13>>*/ 2;
+            break b;
+           }
             /*<<camlinternalFormat.ml:2899:34>>*/ throw caml_maybe_attach_backtrace
                   ([0, Assert_failure, _V_], 1);
           }
@@ -19960,10 +20553,15 @@
            ( /*<<camlinternalFormat.ml:2441:9>>*/ get_ign(0))
            var
             ignored$5 =  /*<<camlinternalFormat.ml:2442:8>>*/ [11, counter],
-            _aP_ = [0, [23, ignored$5, fmt_rest$13]];
+            _aP_ =
+               /*<<camlinternalFormat.ml:2443:8>>*/ [0,
+               [23, ignored$5, fmt_rest$13]];
           else
-           var _aP_ = [0, [21, counter, fmt_rest$13]];
-          var fmt_result = _aP_;
+           var
+            _aP_ =
+               /*<<camlinternalFormat.ml:2445:8>>*/ [0,
+               [21, counter, fmt_rest$13]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2441:19>>*/ _aP_;
           break a;
          case 32:
          case 35:
@@ -19972,7 +20570,7 @@
          case 95:
           var
            fmt_result =
-              /*<<camlinternalFormat.ml:2549:6>>*/ caml_call3
+              /*<<camlinternalFormat.ml:2552:24>>*/  /*<<camlinternalFormat.ml:2549:6>>*/ caml_call3
               (failwith_message(_M_), str, pct_ind, symb);
           break a;
          case 88:
@@ -20003,7 +20601,9 @@
                /*<<camlinternalFormat.ml:2424:57>>*/ [2,
                iconv$2,
                 /*<<camlinternalFormat.ml:2424:42>>*/ get_pad_opt(95)],
-            _aV_ = [0, [23, ignored$8, fmt_rest$17]];
+            _aV_ =
+               /*<<camlinternalFormat.ml:2425:8>>*/ [0,
+               [23, ignored$8, fmt_rest$17]];
           else
            var
             _aW_ =  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec(0),
@@ -20015,8 +20615,10 @@
             fmt_rest$18 =  /*<<camlinternalFormat.ml:2428:70>>*/ match$6[3],
             prec$4 = match$6[2],
             pad$8 = match$6[1],
-            _aV_ = [0, [4, iconv$2, pad$8, prec$4, fmt_rest$18]];
-          var fmt_result = _aV_;
+            _aV_ =
+               /*<<camlinternalFormat.ml:2429:8>>*/ [0,
+               [4, iconv$2, pad$8, prec$4, fmt_rest$18]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2423:19>>*/ _aV_;
           break a;
          case 69:
          case 70:
@@ -20043,38 +20645,45 @@
           {
            c:
            if(73 <= symb){
-            var switcher = symb - 101 | 0;
+            var
+             switcher =  /*<<camlinternalFormat.ml:2947:4>>*/ symb - 101 | 0;
             if(3 >= switcher >>> 0){
              switch(switcher){
                case 0:
-                var _a5_ = 1; break;
+                var _a5_ =  /*<<camlinternalFormat.ml:2949:16>>*/ 1; break;
                case 1:
-                var _a5_ = 0; break;
+                var _a5_ =  /*<<camlinternalFormat.ml:2948:16>>*/ 0; break;
                case 2:
-                var _a5_ = 3; break;
-               default: var _a5_ = 6;
+                var _a5_ =  /*<<camlinternalFormat.ml:2951:16>>*/ 3; break;
+               default: var _a5_ =  /*<<camlinternalFormat.ml:2953:16>>*/ 6;
              }
-             var kind = _a5_;
+             var kind =  /*<<camlinternalFormat.ml:2947:4>>*/ _a5_;
              break b;
             }
            }
            else if(69 <= symb){
             switch(symb - 69 | 0){
               case 0:
-               var _a6_ = 2; break;
+               var _a6_ =  /*<<camlinternalFormat.ml:2950:16>>*/ 2; break;
               case 1:
                break c;
               case 2:
-               var _a6_ = 4; break;
-              default: var _a6_ = 7;
+               var _a6_ =  /*<<camlinternalFormat.ml:2952:16>>*/ 4; break;
+              default: var _a6_ =  /*<<camlinternalFormat.ml:2954:16>>*/ 7;
             }
-            var kind = _a6_;
+            var kind =  /*<<camlinternalFormat.ml:2947:4>>*/ _a6_;
             break b;
            }
            if(hash$1){
-            if(70 === symb){var kind = 8; break b;}
+            if(70 === symb){
+             var kind =  /*<<camlinternalFormat.ml:2956:19>>*/ 8;
+             break b;
+            }
+           }
+           else if(70 === symb){
+            var kind =  /*<<camlinternalFormat.ml:2955:20>>*/ 5;
+            break b;
            }
-           else if(70 === symb){var kind = 5; break b;}
             /*<<camlinternalFormat.ml:2957:11>>*/ throw caml_maybe_attach_backtrace
                   ([0, Assert_failure, _X_], 1);
           }
@@ -20096,13 +20705,17 @@
                   (pct_ind, str_ind, 95, cst$26)
                 : 0;
            else
-            var ndec = match[1], _aM_ = [0, ndec];
+            var
+             ndec =  /*<<camlinternalFormat.ml:2366:43>>*/ match[1],
+             _aM_ =  /*<<camlinternalFormat.ml:2368:30>>*/ [0, ndec];
            var
             ignored$4 =
                /*<<camlinternalFormat.ml:2488:52>>*/ [6,
                 /*<<camlinternalFormat.ml:2488:37>>*/ get_pad_opt(95),
                _aM_],
-            _aN_ = [0, [23, ignored$4, fmt_rest$11]];
+            _aN_ =
+               /*<<camlinternalFormat.ml:2489:8>>*/ [0,
+               [23, ignored$4, fmt_rest$11]];
           }
           else
            var
@@ -20115,13 +20728,15 @@
             fmt_rest$12 =  /*<<camlinternalFormat.ml:2492:66>>*/ match$4[3],
             prec$3 = match$4[2],
             pad$5 = match$4[1],
-            _aN_ = [0, [8, fconv, pad$5, prec$3, fmt_rest$12]];
-          var fmt_result = _aN_;
+            _aN_ =
+               /*<<camlinternalFormat.ml:2493:8>>*/ [0,
+               [8, fconv, pad$5, prec$3, fmt_rest$12]];
+          var fmt_result =  /*<<camlinternalFormat.ml:2487:19>>*/ _aN_;
           break a;
        }
       b:
       if(108 <= symb){
-       if(111 > symb){
+        /*<<camlinternalFormat.ml:2372:4>>*/ if(111 > symb){
         switch(symb - 108 | 0){
           case 0:
            var
@@ -20149,7 +20764,9 @@
                 /*<<camlinternalFormat.ml:2452:59>>*/ [3,
                 iconv,
                  /*<<camlinternalFormat.ml:2452:44>>*/ get_pad_opt(95)],
-             _aw_ = [0, [23, ignored, fmt_rest]];
+             _aw_ =
+                /*<<camlinternalFormat.ml:2453:8>>*/ [0,
+                [23, ignored, fmt_rest]];
            else
             var
              _ay_ =  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec(0),
@@ -20161,8 +20778,10 @@
              fmt_rest$0 =  /*<<camlinternalFormat.ml:2456:70>>*/ match$0[3],
              prec$0 = match$0[2],
              pad$0 = match$0[1],
-             _aw_ = [0, [5, iconv, pad$0, prec$0, fmt_rest$0]];
-           var _ax_ = _aw_;
+             _aw_ =
+                /*<<camlinternalFormat.ml:2457:8>>*/ [0,
+                [5, iconv, pad$0, prec$0, fmt_rest$0]];
+           var _ax_ =  /*<<camlinternalFormat.ml:2451:19>>*/ _aw_;
            break;
           case 1:
            break b;
@@ -20192,7 +20811,9 @@
                 /*<<camlinternalFormat.ml:2464:63>>*/ [4,
                 iconv$0,
                  /*<<camlinternalFormat.ml:2464:48>>*/ get_pad_opt(95)],
-             _aC_ = [0, [23, ignored$0, fmt_rest$1]];
+             _aC_ =
+                /*<<camlinternalFormat.ml:2465:8>>*/ [0,
+                [23, ignored$0, fmt_rest$1]];
            else
             var
              _aD_ =  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec(0),
@@ -20204,10 +20825,12 @@
              fmt_rest$2 =  /*<<camlinternalFormat.ml:2468:70>>*/ match$1[3],
              prec$1 = match$1[2],
              pad$1 = match$1[1],
-             _aC_ = [0, [6, iconv$0, pad$1, prec$1, fmt_rest$2]];
-           var _ax_ = _aC_;
+             _aC_ =
+                /*<<camlinternalFormat.ml:2469:8>>*/ [0,
+                [6, iconv$0, pad$1, prec$1, fmt_rest$2]];
+           var _ax_ =  /*<<camlinternalFormat.ml:2463:19>>*/ _aC_;
         }
-        var fmt_result = _ax_;
+        var fmt_result =  /*<<camlinternalFormat.ml:2372:4>>*/ _ax_;
         break a;
        }
       }
@@ -20236,7 +20859,9 @@
             /*<<camlinternalFormat.ml:2476:59>>*/ [5,
             iconv$1,
              /*<<camlinternalFormat.ml:2476:44>>*/ get_pad_opt(95)],
-         _aH_ = [0, [23, ignored$1, fmt_rest$3]];
+         _aH_ =
+            /*<<camlinternalFormat.ml:2477:8>>*/ [0,
+            [23, ignored$1, fmt_rest$3]];
        else
         var
          _aI_ =  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec(0),
@@ -20248,13 +20873,15 @@
          fmt_rest$4 =  /*<<camlinternalFormat.ml:2480:70>>*/ match$2[3],
          prec$2 = match$2[2],
          pad$2 = match$2[1],
-         _aH_ = [0, [7, iconv$1, pad$2, prec$2, fmt_rest$4]];
-       var fmt_result = _aH_;
+         _aH_ =
+            /*<<camlinternalFormat.ml:2481:8>>*/ [0,
+            [7, iconv$1, pad$2, prec$2, fmt_rest$4]];
+       var fmt_result =  /*<<camlinternalFormat.ml:2475:19>>*/ _aH_;
        break a;
       }
       var
        fmt_result =
-          /*<<camlinternalFormat.ml:2554:6>>*/ caml_call3
+          /*<<camlinternalFormat.ml:2556:60>>*/  /*<<camlinternalFormat.ml:2554:6>>*/ caml_call3
           (failwith_message(_J_), str, str_ind - 1 | 0, symb);
      }
       /*<<camlinternalFormat.ml:2562:4>>*/ if(1 - legacy_behavior$0){
@@ -20264,41 +20891,47 @@
       if(plus$0)
         /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$27);
-      var _al_ = 1 - hash_used[1], hash$0 = _al_ ? hash : _al_;
+      var
+       _al_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - hash_used[1],
+       hash$0 = _al_ ? hash : _al_;
       if(hash$0)
         /*<<camlinternalFormat.ml:2566:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$28);
-      var _am_ = 1 - space_used[1], space$0 = _am_ ? space : _am_;
+      var
+       _am_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - space_used[1],
+       space$0 = _am_ ? space : _am_;
       if(space$0)
         /*<<camlinternalFormat.ml:2568:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$29);
       var
-       _an_ = 1 - pad_used[1],
+       _an_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - pad_used[1],
        _ao_ =
          _an_
           ?  /*<<camlinternalFormat.ml:2569:25>>*/ caml_notequal
             ([0, pad], _K_)
           : _an_;
-      if(_ao_)
+       /*<<camlinternalFormat.ml:2562:32>>*/ if(_ao_)
         /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst_padding$0);
       var
-       _ap_ = 1 - prec_used[1],
+       _ap_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - prec_used[1],
        _aq_ =
          _ap_
           ?  /*<<camlinternalFormat.ml:2571:25>>*/ caml_notequal
             ([0, prec], _L_)
           : _ap_;
-      if(_aq_){
+       /*<<camlinternalFormat.ml:2562:32>>*/ if(_aq_){
        var _ar_ =  /*<<camlinternalFormat.ml:2572:6>>*/ ign ? 95 : symb;
        incompatible_flag(pct_ind, str_ind, _ar_, cst_precision$2);
       }
-      var plus$1 = ign ? plus : ign;
+      var plus$1 =  /*<<camlinternalFormat.ml:2562:32>>*/ ign ? plus : ign;
       if(plus$1)
         /*<<camlinternalFormat.ml:2574:24>>*/ incompatible_flag
         (pct_ind, str_ind, 95, cst$30);
      }
-     var _as_ = 1 - ign_used[1], ign$0 = _as_ ? ign : _as_;
+     var
+      _as_ =  /*<<camlinternalFormat.ml:2562:4>>*/ 1 - ign_used[1],
+      ign$0 = _as_ ? ign : _as_;
      a:
      if(ign$0){
       b:
@@ -20312,7 +20945,7 @@
        /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
        (pct_ind, str_ind, symb, cst$31);
      }
-     return fmt_result;
+      /*<<camlinternalFormat.ml:2562:4>>*/ return fmt_result;
     }
     function parse_tag(is_open_tag, str_ind, end_ind){
       /*<<camlinternalFormat.ml:2639:4>>*/ try{
@@ -20357,7 +20990,8 @@
      }
      catch(_aj_){
       var _ah_ = caml_wrap_exception(_aj_);
-      if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
+       /*<<?>>*/ if(_ah_ !== Stdlib[8])
+       throw caml_maybe_attach_backtrace(_ah_, 0);
       var
        fmt_rest =
           /*<<camlinternalFormat.ml:2655:50>>*/  /*<<camlinternalFormat.ml:2655:29>>*/ parse
@@ -20373,8 +21007,8 @@
      /*<<camlinternalFormat.ml:2659:53>>*/ }
     function parse_spaces(str_ind, end_ind){
      var str_ind$0 = str_ind;
-      /*<<camlinternalFormat.ml:2804:4>>*/ for(;;){
-      if(str_ind$0 === end_ind)
+     for(;;){
+       /*<<camlinternalFormat.ml:2804:4>>*/ if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
        /*<<camlinternalFormat.ml:2805:20>>*/ if
@@ -20389,8 +21023,8 @@
      /*<<camlinternalFormat.ml:2805:79>>*/ }
     function parse_positive(str_ind, end_ind, acc){
      var str_ind$0 = str_ind, acc$0 = acc;
-      /*<<camlinternalFormat.ml:2810:4>>*/ for(;;){
-      if(str_ind$0 === end_ind)
+     for(;;){
+       /*<<camlinternalFormat.ml:2810:4>>*/ if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
       var
@@ -20466,8 +21100,8 @@
     }
     function search_subformat_end(str_ind, end_ind, c){
      var str_ind$0 = str_ind;
-      /*<<camlinternalFormat.ml:2851:4>>*/ for(;;){
-      if(str_ind$0 === end_ind)
+     for(;;){
+       /*<<camlinternalFormat.ml:2851:4>>*/ if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
         (failwith_message(_U_), str, c, end_ind);
        /*<<camlinternalFormat.ml:2855:23>>*/ if
@@ -20526,7 +21160,7 @@
           str_ind$0 = str_ind$3;
           continue;
          }
-         if(123 === match$0){
+          /*<<camlinternalFormat.ml:2863:39>>*/ if(123 === match$0){
           var
            sub_end$1 =
               /*<<camlinternalFormat.ml:2865:26>>*/ search_subformat_end
@@ -20543,7 +21177,7 @@
         }
        }
        else{
-        if(40 === match){
+         /*<<camlinternalFormat.ml:2859:37>>*/ if(40 === match){
          var
           sub_end$2 =
              /*<<camlinternalFormat.ml:2878:24>>*/ search_subformat_end
@@ -20552,7 +21186,7 @@
          str_ind$0 = str_ind$6;
          continue;
         }
-        if(41 === match)
+         /*<<camlinternalFormat.ml:2859:37>>*/ if(41 === match)
           /*<<camlinternalFormat.ml:2885:10>>*/ return expected_character
                  (str_ind$0 + 1 | 0, cst_character$0, 41) /*<<camlinternalFormat.ml:2889:55>>*/ ;
        }
@@ -20569,25 +21203,27 @@
      /*<<camlinternalFormat.ml:2889:55>>*/ }
     function compute_int_conv(pct_ind, str_ind, plus, hash, space, symb){
      var plus$0 = plus, hash$0 = hash, space$0 = space;
-      /*<<camlinternalFormat.ml:2903:4>>*/ for(;;){
+     for(;;){
       a:
       {
-       if(plus$0){
+        /*<<camlinternalFormat.ml:2903:4>>*/ if(plus$0){
         if(! hash$0){
          if(space$0) break a;
          if(100 === symb)  /*<<camlinternalFormat.ml:2906:34>>*/ return 1;
-         if(105 === symb)  /*<<camlinternalFormat.ml:2906:71>>*/ return 4;
+          /*<<camlinternalFormat.ml:2903:4>>*/ if(105 === symb)
+           /*<<camlinternalFormat.ml:2906:71>>*/ return 4;
          break a;
         }
        }
        else{
-        if(! hash$0){
+         /*<<camlinternalFormat.ml:2903:4>>*/ if(! hash$0){
          if(space$0){
           if(100 === symb)  /*<<camlinternalFormat.ml:2905:34>>*/ return 2;
-          if(105 === symb)  /*<<camlinternalFormat.ml:2905:71>>*/ return 5;
+           /*<<camlinternalFormat.ml:2903:4>>*/ if(105 === symb)
+            /*<<camlinternalFormat.ml:2905:71>>*/ return 5;
           break a;
          }
-         var switcher$1 = symb - 88 | 0;
+         var switcher$1 =  /*<<camlinternalFormat.ml:2903:4>>*/ symb - 88 | 0;
          if(32 < switcher$1 >>> 0) break a;
          switch(switcher$1){
            case 0:
@@ -20605,7 +21241,7 @@
            default: break a;
          }
         }
-        if(! space$0){
+         /*<<camlinternalFormat.ml:2903:4>>*/ if(! space$0){
          var switcher$0 = symb - 88 | 0;
          if(32 >= switcher$0 >>> 0)
           switch(switcher$0){
@@ -20624,7 +21260,7 @@
           }
         }
        }
-       var switcher = symb - 88 | 0;
+       var switcher =  /*<<camlinternalFormat.ml:2903:4>>*/ symb - 88 | 0;
        if(32 >= switcher >>> 0)
         switch(switcher){
           case 0:
@@ -20645,34 +21281,34 @@
             /*<<camlinternalFormat.ml:2919:6>>*/ if(! legacy_behavior$0)
              /*<<camlinternalFormat.ml:2921:11>>*/ return incompatible_flag
                     (pct_ind, str_ind, symb, cst$35) /*<<camlinternalFormat.ml:2935:40>>*/ ;
-           hash$0 = 0;
+            /*<<camlinternalFormat.ml:2920:8>>*/ hash$0 = 0;
            continue;
         }
       }
-      if(plus$0)
+       /*<<camlinternalFormat.ml:2903:4>>*/ if(plus$0)
        if(space$0){
          /*<<camlinternalFormat.ml:2923:6>>*/ if(! legacy_behavior$0)
           /*<<camlinternalFormat.ml:2926:11>>*/ return incompatible_flag
                  (pct_ind, str_ind, 32, cst$32) /*<<camlinternalFormat.ml:2935:40>>*/ ;
-        space$0 = 0;
+         /*<<camlinternalFormat.ml:2925:8>>*/ space$0 = 0;
        }
        else{
          /*<<camlinternalFormat.ml:2932:6>>*/ if(! legacy_behavior$0)
           /*<<camlinternalFormat.ml:2934:11>>*/ return incompatible_flag
                  (pct_ind, str_ind, symb, cst$33) /*<<camlinternalFormat.ml:2935:40>>*/ ;
-        plus$0 = 0;
+         /*<<camlinternalFormat.ml:2933:8>>*/ plus$0 = 0;
        }
       else{
-       if(! space$0)
+        /*<<camlinternalFormat.ml:2903:4>>*/ if(! space$0)
          /*<<camlinternalFormat.ml:2935:28>>*/ throw caml_maybe_attach_backtrace
                ([0, Assert_failure, _W_], 1);
         /*<<camlinternalFormat.ml:2928:6>>*/ if(! legacy_behavior$0)
          /*<<camlinternalFormat.ml:2930:11>>*/ return incompatible_flag
                 (pct_ind, str_ind, symb, cst$34) /*<<camlinternalFormat.ml:2935:40>>*/ ;
-       space$0 = 0;
+        /*<<camlinternalFormat.ml:2929:8>>*/ space$0 = 0;
       }
      }
-    }
+     /*<<camlinternalFormat.ml:2935:40>>*/ }
     function incompatible_flag(pct_ind, str_ind, symb, option){
      var
       subfmt =
@@ -20690,7 +21326,7 @@
         /*<<camlinternalFormat.ml:2977:41>>*/  /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string
          (0, str)
         [1];
-    try{
+     /*<<camlinternalFormat.ml:2978:2>>*/ try{
      var
       _ae_ =
          /*<<camlinternalFormat.ml:2978:35>>*/ [0,
@@ -20700,7 +21336,8 @@
     }
     catch(_af_){
      var _ac_ = caml_wrap_exception(_af_);
-     if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
+      /*<<?>>*/ if(_ac_ !== Type_mismatch)
+      throw caml_maybe_attach_backtrace(_ac_, 0);
      var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
       /*<<camlinternalFormat.ml:2982:33>>*/ return caml_call2
              (failwith_message(_Z_), str, _ad_);
@@ -20714,7 +21351,7 @@
         /*<<camlinternalFormat.ml:2987:41>>*/  /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string
          (0, str)
         [1];
-    try{
+     /*<<camlinternalFormat.ml:2988:2>>*/ try{
      var
       _aa_ =
          /*<<camlinternalFormat.ml:2988:49>>*/ [0,
@@ -20725,12 +21362,12 @@
     }
     catch(_ab_){
      var _$_ = caml_wrap_exception(_ab_);
-     if(_$_ === Type_mismatch)
+      /*<<?>>*/ if(_$_ === Type_mismatch)
        /*<<camlinternalFormat.ml:2990:4>>*/ return caml_call2
               (failwith_message(___), str, str$0) /*<<camlinternalFormat.ml:2991:66>>*/ ;
-     throw caml_maybe_attach_backtrace(_$_, 0);
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_$_, 0);
     }
-   }
+    /*<<camlinternalFormat.ml:2991:66>>*/ }
    var
     CamlinternalFormat =
       [0,
@@ -21094,7 +21731,7 @@
     var match =  /*<<dynarray.ml:206:2>>*/ arr[1 + i];
     if(! match)
       /*<<dynarray.ml:207:13>>*/ return missing_element(i, length) /*<<dynarray.ml:208:17>>*/ ;
-    var v = match[1];
+    var v =  /*<<dynarray.ml:206:2>>*/ match[1];
      /*<<dynarray.ml:208:16>>*/ return v;
     /*<<dynarray.ml:208:17>>*/ }
    function create(param){
@@ -21164,7 +21801,7 @@
      /*<<dynarray.ml:269:31>>*/ if(0 === length)
       /*<<dynarray.ml:178:4>>*/ caml_call3
       (Stdlib_Printf[10], Stdlib[1], _i_, f);
-    return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
+     /*<<dynarray.ml:269:31>>*/ return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
    }
    function find_last(a){
     var length =  /*<<dynarray.ml:276:2>>*/ a[1], arr = a[2];
@@ -21194,8 +21831,8 @@
     }
     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);
+      /*<<?>>*/ if(_T_ === Stdlib[8])  /*<<dynarray.ml:303:27>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_T_, 0);
     }
      /*<<dynarray.ml:304:9>>*/ return [0, x];
     /*<<dynarray.ml:304:15>>*/ }
@@ -21211,12 +21848,12 @@
            /*<<dynarray.ml:310:4>>*/ caml_check_bound(a[2], last)[1 + last] = 0,
           0)
         : _R_;
-    return _S_;
+     /*<<dynarray.ml:308:2>>*/ 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];
+    var length =  /*<<dynarray.ml:314:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:316:2>>*/ return length <= n
             ? 0
             : (a
@@ -21289,7 +21926,9 @@
      /*<<dynarray.ml:393:2>>*/ if(n < 0)
       /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
       (cst_set_capacity, n);
-    var arr = a[2], cur_capacity =  /*<<dynarray.ml:396:2>>*/ arr.length - 1;
+    var
+     arr =  /*<<dynarray.ml:393:2>>*/ a[2],
+     cur_capacity =  /*<<dynarray.ml:396:2>>*/ arr.length - 1;
      /*<<dynarray.ml:397:2>>*/ if(n < cur_capacity){
       /*<<dynarray.ml:398:30>>*/ a[1] =
        /*<<dynarray.ml:398:16>>*/ caml_call2(Stdlib[16], a[1], n);
@@ -21306,7 +21945,7 @@
      var _M_ = 0;
     }
     else
-     var _M_ = _L_;
+     var _M_ =  /*<<dynarray.ml:401:7>>*/ _L_;
     return _M_;
     /*<<dynarray.ml:405:5>>*/ }
    function reset(a){
@@ -21325,8 +21964,8 @@
      /*<<dynarray.ml:439:28>>*/ if
      ( /*<<dynarray.ml:439:5>>*/ add_last_if_room(a, elem))
       /*<<dynarray.ml:439:34>>*/ return 0;
-     /*<<dynarray.ml:443:6>>*/ for(;;){
-     ensure_extra_capacity(a, 1);
+     /*<<dynarray.ml:446:7>>*/ for(;;){
+      /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity(a, 1);
      var
       _K_ =
          /*<<dynarray.ml:444:38>>*/ 1
@@ -21336,11 +21975,12 @@
     /*<<dynarray.ml:447:5>>*/ }
    function append_list(a, li){
     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];
+    for(;;){
+      /*<<dynarray.ml:450:2>>*/ if(! li$0)
+       /*<<dynarray.ml:451:10>>*/ return 0;
+     var xs =  /*<<dynarray.ml:450:2>>*/ li$0[2], x = li$0[1];
       /*<<dynarray.ml:452:15>>*/ add_last(a, x);
-     li$0 = xs;
+      /*<<dynarray.ml:452:27>>*/ li$0 = xs;
     }
     /*<<dynarray.ml:452:45>>*/ }
    function append_iter(a, iter, b){
@@ -21384,8 +22024,8 @@
      /*<<dynarray.ml:503:2>>*/ if
      ( /*<<dynarray.ml:503:5>>*/ append_array_if_room(a, b))
       /*<<dynarray.ml:503:35>>*/ return 0;
-     /*<<dynarray.ml:507:6>>*/ for(;;){
-     ensure_extra_capacity(a, b.length - 1);
+     /*<<dynarray.ml:510:7>>*/ for(;;){
+      /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity(a, b.length - 1);
      var
       _G_ =
          /*<<dynarray.ml:508:39>>*/ 1
@@ -21420,8 +22060,8 @@
      /*<<dynarray.ml:537:33>>*/ if
      ( /*<<dynarray.ml:537:5>>*/ append_if_room(a, b, length_b))
       /*<<dynarray.ml:537:39>>*/ return 0;
-     /*<<dynarray.ml:541:6>>*/ for(;;){
-     ensure_extra_capacity(a, length_b);
+     /*<<dynarray.ml:551:7>>*/ for(;;){
+      /*<<dynarray.ml:541:6>>*/ ensure_extra_capacity(a, length_b);
       /*<<dynarray.ml:548:6>>*/ check_same_length(cst_append$0, b, length_b);
      var
       _C_ =
@@ -21547,10 +22187,10 @@
    function exists(p, a){
     var length =  /*<<dynarray.ml:659:2>>*/ 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;
+    var i =  /*<<dynarray.ml:667:12>>*/ 0;
+    for(;;){
+      /*<<dynarray.ml:662:4>>*/ if(i === length)
+      var res =  /*<<dynarray.ml:662:23>>*/ 0;
      else{
       var
        _q_ =
@@ -21570,10 +22210,10 @@
    function for_all(p, a){
     var length =  /*<<dynarray.ml:672:2>>*/ 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;
+    var i =  /*<<dynarray.ml:680:12>>*/ 0;
+    for(;;){
+      /*<<dynarray.ml:675:4>>*/ if(i === length)
+      var res =  /*<<dynarray.ml:675:23>>*/ 1;
      else{
       var
        _p_ =
@@ -21611,7 +22251,7 @@
        var match =  /*<<dynarray.ml:692:10>>*/ caml_call1(f, x);
         /*<<dynarray.ml:692:13>>*/ if(! match)
          /*<<dynarray.ml:693:14>>*/ return 0;
-       var y = match[1];
+       var y =  /*<<dynarray.ml:692:13>>*/ match[1];
         /*<<dynarray.ml:694:16>>*/ return add_last(b, y) /*<<dynarray.ml:694:28>>*/ ;
       },
       a);
@@ -21880,20 +22520,20 @@
     _e_ = [0, [2, 0, 0], cst_s];
    function assoc3(x, l){
     var l$0 = l;
-     /*<<arg.ml:64:2>>*/ for(;;){
-     if(! l$0)
+    for(;;){
+      /*<<arg.ml:64:2>>*/ if(! l$0)
        /*<<arg.ml:65:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-     var match = l$0[1], y2 = match[2], y1 = match[1];
+     var match =  /*<<arg.ml:64:2>>*/ l$0[1], y2 = match[2], y1 = match[1];
       /*<<arg.ml:66:32>>*/ if( /*<<arg.ml:66:26>>*/ caml_equal(y1, x))
        /*<<arg.ml:66:36>>*/ return y2;
-     var t = l$0[2];
-     l$0 = t;
+     var t =  /*<<arg.ml:66:32>>*/ l$0[2];
+      /*<<arg.ml:67:14>>*/ 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;
     var
-     t = l[2],
+     t =  /*<<arg.ml:77:2>>*/ l[2],
      h = l[1],
      _az_ =  /*<<arg.ml:79:53>>*/ caml_call2(Stdlib[28], prefix, h),
      _aA_ =
@@ -21917,23 +22557,25 @@
     }
     catch(_ay_){
      var _as_ = caml_wrap_exception(_ay_);
-     if(_as_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_as_, 0);
+      /*<<?>>*/ if(_as_ !== Stdlib[8])
+      throw caml_maybe_attach_backtrace(_as_, 0);
      var
       add1 =
-        [0,
+         /*<<arg.ml:97:12>>*/ [0,
          [0, cst_help, [0, help_action], cst_Display_this_list_of_optio],
          0];
     }
-    try{
+     /*<<arg.ml:94:2>>*/ try{
       /*<<arg.ml:99:15>>*/ assoc3(cst_help$1, speclist);
      var _av_ =  /*<<arg.ml:99:43>>*/ 0, add2 = _av_;
     }
     catch(_ax_){
      var _at_ = caml_wrap_exception(_ax_);
-     if(_at_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_at_, 0);
+      /*<<?>>*/ if(_at_ !== Stdlib[8])
+      throw caml_maybe_attach_backtrace(_at_, 0);
      var
       add2 =
-        [0,
+         /*<<arg.ml:101:12>>*/ [0,
          [0, cst_help$0, [0, help_action], cst_Display_this_list_of_optio$0],
          0];
     }
@@ -21957,7 +22599,7 @@
                 /*<<arg.ml:88:8>>*/ return caml_call4
                        (Stdlib_Printf[5], buf, _a_, key, doc);
               var
-               l = spec[1],
+               l =  /*<<arg.ml:84:4>>*/ spec[1],
                _ar_ =  /*<<arg.ml:86:38>>*/ make_symlist(cst$1, cst$0, cst, l);
                /*<<arg.ml:86:66>>*/ return caml_call5
                       (Stdlib_Printf[5], buf, _b_, key, _ar_, doc);
@@ -22024,8 +22666,8 @@
     }
     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);
+      /*<<?>>*/ 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){
@@ -22038,8 +22680,8 @@
     }
     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);
+      /*<<?>>*/ 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_
@@ -22062,17 +22704,20 @@
           (Stdlib_Printf[5], b, _f_, progname, s);
         break;
        case 1:
-        var expected = error[3], arg = error[2], opt = error[1];
+        var
+         expected =  /*<<arg.ml:146:4>>*/ error[3],
+         arg = error[2],
+         opt = error[1];
          /*<<arg.ml:154:10>>*/ caml_call6
          (Stdlib_Printf[5], b, _i_, progname, arg, opt, expected);
         break;
        case 2:
-        var s$0 = error[1];
+        var s$0 =  /*<<arg.ml:146:4>>*/ error[1];
          /*<<arg.ml:152:10>>*/ caml_call4
          (Stdlib_Printf[5], b, _j_, progname, s$0);
         break;
        default:
-        var s$1 = error[1];
+        var s$1 =  /*<<arg.ml:146:4>>*/ error[1];
          /*<<arg.ml:157:10>>*/ caml_call4
          (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
@@ -22089,15 +22734,15 @@
               /*<<arg.ml:161:14>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:161:33>>*/ ;
      /*<<arg.ml:162:32>>*/ }
      /*<<arg.ml:164:2>>*/ current[1]++;
-    for(;;){
+     /*<<arg.ml:165:2>>*/ for(;;){
      if(current[1] >= argv[1].length - 1) return 0;
-     try{
+      /*<<arg.ml:166:4>>*/ try{
       var
        _V_ = current[1],
        s =  /*<<arg.ml:167:14>>*/ caml_check_bound(argv[1], _V_)[1 + _V_];
        /*<<arg.ml:168:41>>*/ if
        ( /*<<arg.ml:168:9>>*/ caml_call2(Stdlib_String[11], cst$3, s)){
-       try{
+        /*<<arg.ml:168:47>>*/ try{
         var
          follow$1 = 0,
          _Z_ =  /*<<arg.ml:170:14>>*/ assoc3(s, speclist[1]),
@@ -22106,8 +22751,9 @@
        }
        catch(_ag_){
         var _W_ = caml_wrap_exception(_ag_);
-        if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
-        try{
+         /*<<?>>*/ if(_W_ !== Stdlib[8])
+         throw caml_maybe_attach_backtrace(_W_, 0);
+         /*<<arg.ml:172:10>>*/ try{
          var
           i =  /*<<arg.ml:71:10>>*/ caml_call2(Stdlib_String[36], s, 61),
           len =  /*<<arg.ml:72:2>>*/ caml_ml_string_length(s),
@@ -22123,10 +22769,10 @@
         }
         catch(_ah_){
          var _X_ = caml_wrap_exception(_ah_);
-         if(_X_ === Stdlib[8])
+          /*<<?>>*/ if(_X_ === Stdlib[8])
            /*<<arg.ml:175:28>>*/ throw caml_maybe_attach_backtrace
                  ([0, Stop, [0, s]], 1);
-         throw caml_maybe_attach_backtrace(_X_, 0);
+          /*<<?>>*/ throw caml_maybe_attach_backtrace(_X_, 0);
         }
        }
        let s$0 = s, follow$2 = follow$0;
@@ -22135,7 +22781,7 @@
            /*<<arg.ml:177:8>>*/ function(param){
             /*<<arg.ml:178:10>>*/ if(! follow$2)
              /*<<arg.ml:179:20>>*/ return;
-           var arg = follow$2[1];
+           var arg =  /*<<arg.ml:178:10>>*/ follow$2[1];
             /*<<arg.ml:180:24>>*/ throw caml_maybe_attach_backtrace
                   ([0, Stop, [1, s$0, arg, cst_no_argument]], 1);
            /*<<arg.ml:180:68>>*/ },
@@ -22166,8 +22812,10 @@
                /*<<arg.ml:194:20>>*/ no_arg$0(0);
                /*<<arg.ml:194:29>>*/ return caml_call1(f, 0) /*<<arg.ml:276:54>>*/ ;
              case 1:
-              var f$0 = param[1], arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
-              try{
+              var
+               f$0 =  /*<<arg.ml:193:31>>*/ param[1],
+               arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
+               /*<<arg.ml:124:2>>*/ try{
                var
                 _$_ =
                    /*<<arg.ml:124:29>>*/ [0,
@@ -22176,87 +22824,89 @@
               }
               catch(_ae_){
                var ___ = caml_wrap_exception(_ae_);
-               if(___[1] !== Stdlib[6])
+                /*<<?>>*/ if(___[1] !== Stdlib[6])
                 throw caml_maybe_attach_backtrace(___, 0);
-               var match = 0;
+               var match =  /*<<arg.ml:125:29>>*/ 0;
               }
                /*<<arg.ml:197:46>>*/ if(! match)
                 /*<<arg.ml:198:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg, cst_a_boolean]], 1);
-              var s = match[1];
+              var s =  /*<<arg.ml:197:46>>*/ match[1];
                /*<<arg.ml:199:24>>*/ caml_call1(f$0, s);
                /*<<arg.ml:201:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 2:
-              var r = param[1];
+              var r =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:202:19>>*/ no_arg$0(0);
                /*<<arg.ml:202:28>>*/ r[1] = 1;
               return 0;
              case 3:
-              var r$0 = param[1];
+              var r$0 =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:203:21>>*/ no_arg$0(0);
                /*<<arg.ml:203:30>>*/ r$0[1] = 0;
               return 0;
              case 4:
-              var f$1 = param[1], arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
+              var
+               f$1 =  /*<<arg.ml:193:31>>*/ param[1],
+               arg$0 =  /*<<arg.ml:205:22>>*/ get_arg$0(0);
                /*<<arg.ml:206:12>>*/ caml_call1(f$1, arg$0);
                /*<<arg.ml:206:17>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 5:
-              var r$1 = param[1];
+              var r$1 =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:218:27>>*/ r$1[1] =
                 /*<<arg.ml:218:17>>*/ get_arg$0(0);
                /*<<arg.ml:219:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 6:
               var
-               f$2 = param[1],
+               f$2 =  /*<<arg.ml:193:31>>*/ param[1],
                arg$1 =  /*<<arg.ml:221:22>>*/ get_arg$0(0),
                match$0 =  /*<<arg.ml:222:24>>*/ int_of_string_opt(arg$1);
                /*<<arg.ml:222:45>>*/ if(! match$0)
                 /*<<arg.ml:223:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$1, cst_an_integer]], 1);
-              var x = match$0[1];
+              var x =  /*<<arg.ml:222:45>>*/ match$0[1];
                /*<<arg.ml:224:24>>*/ caml_call1(f$2, x);
                /*<<arg.ml:226:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 7:
               var
-               r$2 = param[1],
+               r$2 =  /*<<arg.ml:193:31>>*/ param[1],
                arg$2 =  /*<<arg.ml:228:22>>*/ get_arg$0(0),
                match$1 =  /*<<arg.ml:229:24>>*/ int_of_string_opt(arg$2);
                /*<<arg.ml:229:45>>*/ if(! match$1)
                 /*<<arg.ml:230:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$2, cst_an_integer$0]], 1);
-              var x$0 = match$1[1];
+              var x$0 =  /*<<arg.ml:229:45>>*/ match$1[1];
                /*<<arg.ml:231:24>>*/ r$2[1] = x$0;
                /*<<arg.ml:233:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 8:
               var
-               f$3 = param[1],
+               f$3 =  /*<<arg.ml:193:31>>*/ param[1],
                arg$3 =  /*<<arg.ml:235:22>>*/ get_arg$0(0),
                match$2 =  /*<<arg.ml:236:24>>*/ float_of_string_opt(arg$3);
                /*<<arg.ml:236:47>>*/ if(! match$2)
                 /*<<arg.ml:237:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$3, cst_a_float]], 1);
-              var x$1 = match$2[1];
+              var x$1 =  /*<<arg.ml:236:47>>*/ match$2[1];
                /*<<arg.ml:238:24>>*/ caml_call1(f$3, x$1);
                /*<<arg.ml:240:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 9:
               var
-               r$3 = param[1],
+               r$3 =  /*<<arg.ml:193:31>>*/ param[1],
                arg$4 =  /*<<arg.ml:242:22>>*/ get_arg$0(0),
                match$3 =  /*<<arg.ml:243:24>>*/ float_of_string_opt(arg$4);
                /*<<arg.ml:243:47>>*/ if(! match$3)
                 /*<<arg.ml:244:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stop, [1, s$0, arg$4, cst_a_float$0]], 1);
-              var x$2 = match$3[1];
+              var x$2 =  /*<<arg.ml:243:47>>*/ match$3[1];
                /*<<arg.ml:245:24>>*/ r$3[1] = x$2;
                /*<<arg.ml:247:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 10:
-              var specs = param[1];
+              var specs =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:249:12>>*/ no_arg$0(0);
                /*<<arg.ml:249:21>>*/ return caml_call2
                       (Stdlib_List[18], treat_action$0, specs) /*<<arg.ml:276:54>>*/ ;
              case 11:
               var
-               f$4 = param[2],
+               f$4 =  /*<<arg.ml:193:31>>*/ param[2],
                symb = param[1],
                arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
                /*<<arg.ml:210:32>>*/ if
@@ -22279,9 +22929,9 @@
                          (Stdlib[28], cst_one_of, _aa_)]],
                       1);
              case 12:
-              var f$5 = param[1];
+              var f$5 =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:252:12>>*/ no_arg$0(0);
-               /*<<arg.ml:255:14>>*/ for(;;){
+               /*<<arg.ml:252:21>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0)) return 0;
                var _ab_ =  /*<<arg.ml:254:14>>*/ current[1] + 1 | 0;
                caml_call1
@@ -22292,10 +22942,10 @@
               }
               break;
              case 13:
-              var f$6 = param[1];
+              var f$6 =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:258:12>>*/ no_arg$0(0);
               var acc =  /*<<arg.ml:258:21>>*/ [0, 0];
-               /*<<arg.ml:262:14>>*/ for(;;){
+               /*<<arg.ml:260:12>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
                  /*<<arg.ml:264:29>>*/ return caml_call1
                         (f$6,
@@ -22312,7 +22962,7 @@
               }
               break;
              default:
-              var f$7 = param[1];
+              var f$7 =  /*<<arg.ml:193:31>>*/ param[1];
                /*<<arg.ml:266:12>>*/ if(1 - allow_expand)
                 /*<<arg.ml:267:14>>*/ throw caml_maybe_attach_backtrace
                       ([0, Stdlib[6], cst_Arg_Expand_is_is_only_allo], 1);
@@ -22348,12 +22998,13 @@
      }
      catch(exn$0){
       var exn = caml_wrap_exception(exn$0);
-      if(exn[1] === Bad){
+       /*<<?>>*/ if(exn[1] === Bad){
        var m = exn[2];
         /*<<arg.ml:280:53>>*/ throw caml_maybe_attach_backtrace
               ( /*<<arg.ml:280:26>>*/ convert_error([3, m]), 1);
       }
-      if(exn[1] !== Stop) throw caml_maybe_attach_backtrace(exn, 0);
+       /*<<?>>*/ if(exn[1] !== Stop)
+       throw caml_maybe_attach_backtrace(exn, 0);
       var e = exn[2];
        /*<<arg.ml:281:44>>*/ throw caml_maybe_attach_backtrace
              ( /*<<arg.ml:281:27>>*/ convert_error(e), 1);
@@ -22384,12 +23035,12 @@
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
-     if(exn[1] === Bad){
+      /*<<?>>*/ if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:302:15>>*/ caml_call2(Stdlib_Printf[3], _l_, msg$0);
        /*<<arg.ml:302:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
      }
-     if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<?>>*/ if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:303:16>>*/ caml_call2(Stdlib_Printf[2], _m_, msg$1);
       /*<<arg.ml:303:31>>*/ return caml_call1(Stdlib[99], 0) /*<<arg.ml:303:39>>*/ ;
@@ -22405,12 +23056,12 @@
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
-     if(exn[1] === Bad){
+      /*<<?>>*/ if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:310:15>>*/ caml_call2(Stdlib_Printf[3], _n_, msg$0);
        /*<<arg.ml:310:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
      }
-     if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<?>>*/ if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:311:16>>*/ caml_call2(Stdlib_Printf[2], _o_, msg$1);
       /*<<arg.ml:311:31>>*/ return caml_call1(Stdlib[99], 0) /*<<arg.ml:311:39>>*/ ;
@@ -22429,12 +23080,12 @@
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
-     if(exn[1] === Bad){
+      /*<<?>>*/ if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:320:15>>*/ caml_call2(Stdlib_Printf[3], _p_, msg$0);
        /*<<arg.ml:320:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
      }
-     if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<?>>*/ if(exn[1] !== Help) throw caml_maybe_attach_backtrace(exn, 0);
      var msg$1 = exn[2];
       /*<<arg.ml:321:16>>*/ caml_call2(Stdlib_Printf[2], _q_, msg$1);
       /*<<arg.ml:321:31>>*/ return caml_call1(Stdlib[99], 0) /*<<arg.ml:321:39>>*/ ;
@@ -22444,8 +23095,8 @@
     var len =  /*<<arg.ml:325:2>>*/ caml_ml_string_length(s);
     function loop(n){
      var n$0 = n;
-      /*<<arg.ml:327:4>>*/ for(;;){
-      if(len <= n$0)  /*<<arg.ml:327:21>>*/ return len;
+     for(;;){
+       /*<<arg.ml:327:4>>*/ if(len <= n$0)  /*<<arg.ml:327:21>>*/ return len;
        /*<<arg.ml:328:17>>*/ if
        (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
@@ -22453,15 +23104,20 @@
       n$0 = n$1;
      }
      /*<<arg.ml:329:10>>*/ }
-    try{var n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);}
+     /*<<arg.ml:331:2>>*/ try{
+     var n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);
+    }
     catch(_Q_){
      var _O_ = caml_wrap_exception(_Q_);
-     if(_O_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_O_, 0);
-     try{var n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);}
+      /*<<?>>*/ if(_O_ !== Stdlib[8])
+      throw caml_maybe_attach_backtrace(_O_, 0);
+      /*<<arg.ml:334:6>>*/ try{
+      var n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);
+     }
      catch(_R_){
       var _P_ = caml_wrap_exception(_R_);
-      if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
-      throw caml_maybe_attach_backtrace(_P_, 0);
+       /*<<?>>*/ if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
+       /*<<?>>*/ throw caml_maybe_attach_backtrace(_P_, 0);
      }
       /*<<arg.ml:335:13>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
     }
@@ -22508,7 +23164,7 @@
              function(ksd){
               var kwd =  /*<<arg.ml:351:2>>*/ ksd[1], spec = ksd[2];
               if(ksd[3] === cst$8)  /*<<arg.ml:355:6>>*/ return ksd;
-              if(11 === spec[0]){
+               /*<<arg.ml:351:2>>*/ if(11 === spec[0]){
                var
                 msg$0 = ksd[3],
                 cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
@@ -22528,7 +23184,7 @@
                         /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:57>>*/ ;
               }
               var
-               msg = ksd[3],
+               msg =  /*<<arg.ml:351:2>>*/ ksd[3],
                spec$0 = ksd[2],
                cutcol =  /*<<arg.ml:361:19>>*/ second_word(msg),
                kwd_len =  /*<<arg.ml:362:6>>*/ caml_ml_string_length(kwd),
@@ -22581,16 +23237,16 @@
             (Stdlib_String[16], word, 0, len - 1 | 0);
         break a;
        }
-       var _H_ = word;
+       var _H_ =  /*<<arg.ml:384:4>>*/ word;
       }
-      var word$0 = _H_;
+      var word$0 =  /*<<arg.ml:392:40>>*/ _H_;
      }
      else
-      var word$0 = word;
+      var word$0 =  /*<<arg.ml:392:46>>*/ word;
       /*<<arg.ml:393:4>>*/ words[1] = [0, word$0, words[1]];
       /*<<arg.ml:394:4>>*/ return caml_call1(Stdlib_Buffer[8], buf) /*<<arg.ml:394:20>>*/ ;
     }
-    try{
+     /*<<arg.ml:396:2>>*/ try{
      for(;;){
       var c =  /*<<arg.ml:398:16>>*/ caml_call1(Stdlib[82], ic);
        /*<<arg.ml:399:8>>*/ if(c === sep)
@@ -22601,7 +23257,8 @@
     }
     catch(_G_){
      var _E_ = caml_wrap_exception(_G_);
-     if(_E_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_E_, 0);
+      /*<<?>>*/ if(_E_ !== Stdlib[12])
+      throw caml_maybe_attach_backtrace(_E_, 0);
       /*<<arg.ml:403:22>>*/ if
       (0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
@@ -22808,17 +23465,25 @@
    }
    function use_printers(x){
     var
-     param =  /*<<printexc.ml:53:7>>*/ caml_call1(Stdlib_Atomic[3], printers);
-     /*<<printexc.ml:47:17>>*/ for(;;){
-     if(! param)  /*<<printexc.ml:52:12>>*/ return 0;
-     var tl = param[2], hd = param[1];
+     param =
+        /*<<printexc.ml:53:28>>*/  /*<<printexc.ml:53:7>>*/ caml_call1
+        (Stdlib_Atomic[3], printers);
+     /*<<printexc.ml:53:28>>*/ for(;;){
+      /*<<printexc.ml:47:17>>*/ if(! param)
+       /*<<printexc.ml:52:12>>*/ return 0;
+     var tl =  /*<<printexc.ml:47:17>>*/ param[2], hd = param[1];
      a:
      {
-      try{var val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);}
+       /*<<printexc.ml:49:8>>*/ try{
+       var val =  /*<<printexc.ml:49:15>>*/ caml_call1(hd, x);
+      }
       catch(_ae_){break a;}
-      if(val){var s = val[1];  /*<<printexc.ml:51:21>>*/ return [0, s];}
+       /*<<printexc.ml:49:8>>*/ if(val){
+       var s = val[1];
+        /*<<printexc.ml:51:21>>*/ return [0, s];
+      }
      }
-     param = tl;
+      /*<<printexc.ml:50:33>>*/ param = tl;
     }
     /*<<printexc.ml:53:28>>*/ }
    function string_of_extension_constructo(t){
@@ -22835,34 +23500,35 @@
           /*<<printexc.ml:44:37>>*/ caml_call3
           (Stdlib_Printf[4], _d_, _ab_, _aa_);
      else
-      switch(match){
+       /*<<printexc.ml:40:2>>*/ switch(match){
         case 0:
-         var _ad_ = cst$1; break;
+         var _ad_ =  /*<<printexc.ml:41:9>>*/ cst$1; break;
         case 1:
-         var _ad_ = cst$2; break;
+         var _ad_ =  /*<<printexc.ml:42:9>>*/ cst$2; break;
         default:
          var
           _ac_ =  /*<<printexc.ml:43:24>>*/ field(t, 1),
           _ad_ =
              /*<<printexc.ml:43:35>>*/ caml_call2(Stdlib_Printf[4], _e_, _ac_);
       }
-     var match$0 = [0, constructor, [0, _ad_]];
+     var match$0 =  /*<<printexc.ml:61:33>>*/ [0, constructor, [0, _ad_]];
     }
     else
-     var match$0 = [0, t[1], 0];
+     var match$0 =  /*<<printexc.ml:57:31>>*/ [0, t[1], 0];
     var
      fields_opt =  /*<<printexc.ml:64:58>>*/ match$0[2],
      constructor$0 = match$0[1];
      /*<<printexc.ml:65:2>>*/ if(! fields_opt)
       /*<<printexc.ml:66:12>>*/ return constructor$0;
-    var f = fields_opt[1];
+    var f =  /*<<printexc.ml:65:2>>*/ fields_opt[1];
      /*<<printexc.ml:67:14>>*/ return caml_call2(Stdlib[28], constructor$0, f) /*<<printexc.ml:67:29>>*/ ;
    }
    function to_string_default(x){
      /*<<printexc.ml:69:24>>*/ if(x === Stdlib[9])
       /*<<printexc.ml:70:21>>*/ return cst_Out_of_memory;
-    if(x === Stdlib[10])  /*<<printexc.ml:71:22>>*/ return cst_Stack_overflow;
-    if(x[1] === Stdlib[4]){
+     /*<<printexc.ml:69:24>>*/ if(x === Stdlib[10])
+      /*<<printexc.ml:71:22>>*/ return cst_Stack_overflow;
+     /*<<printexc.ml:69:24>>*/ if(x[1] === Stdlib[4]){
      var match = x[2], char$0 = match[3], line = match[2], file = match[1];
       /*<<printexc.ml:73:6>>*/ return caml_call6
              (Stdlib_Printf[4],
@@ -22873,7 +23539,7 @@
               char$0 + 5 | 0,
               cst_Pattern_matching_failed) /*<<printexc.ml:79:50>>*/ ;
     }
-    if(x[1] === Stdlib[5]){
+     /*<<printexc.ml:69:24>>*/ if(x[1] === Stdlib[5]){
      var
       match$0 = x[2],
       char$1 = match$0[3],
@@ -22888,10 +23554,10 @@
               char$1 + 6 | 0,
               cst_Assertion_failed) /*<<printexc.ml:79:50>>*/ ;
     }
-    if(x[1] !== Stdlib[15])
+     /*<<printexc.ml:69:24>>*/ if(x[1] !== Stdlib[15])
       /*<<printexc.ml:79:6>>*/ return string_of_extension_constructo(x) /*<<printexc.ml:79:50>>*/ ;
     var
-     match$1 = x[2],
+     match$1 =  /*<<printexc.ml:69:24>>*/ x[2],
      char$2 = match$1[3],
      line$1 = match$1[2],
      file$1 = match$1[1];
@@ -22908,7 +23574,7 @@
     var match =  /*<<printexc.ml:82:8>>*/ use_printers(e);
      /*<<printexc.ml:82:22>>*/ if(! match)
       /*<<printexc.ml:84:12>>*/ return to_string_default(e) /*<<printexc.ml:84:31>>*/ ;
-    var s = match[1];
+    var s =  /*<<printexc.ml:82:22>>*/ match[1];
      /*<<printexc.ml:83:14>>*/ return s;
     /*<<printexc.ml:84:31>>*/ }
    function print(fct, arg){
@@ -22943,7 +23609,7 @@
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
      /*<<printexc.ml:138:2>>*/ return [0,
-             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)];
+             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)] /*<<printexc.ml:138:37>>*/ ;
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
@@ -22983,10 +23649,10 @@
       /*<<printexc.ml:169:6>>*/ return caml_call2
              (Stdlib_Printf[1], outchan, _m_) /*<<printexc.ml:179:73>>*/ ;
     var
-     a = backtrace[1],
+     a =  /*<<printexc.ml:167:2>>*/ backtrace[1],
      _P_ =  /*<<printexc.ml:172:6>>*/ a.length - 2 | 0,
-     _O_ = 0;
-    if(_P_ >= 0){
+     _O_ =  /*<<printexc.ml:167:2>>*/ 0;
+     /*<<printexc.ml:172:6>>*/ if(_P_ >= 0){
      var i = _O_;
      for(;;){
       var
@@ -22998,12 +23664,12 @@
         /*<<printexc.ml:175:24>>*/ caml_call3
         (Stdlib_Printf[1], outchan, _l_, str);
       }
-      var _Q_ = i + 1 | 0;
+      var _Q_ =  /*<<printexc.ml:173:43>>*/ i + 1 | 0;
       if(_P_ === i) break;
       i = _Q_;
      }
     }
-    return 0;
+     /*<<printexc.ml:172:6>>*/ return 0;
     /*<<printexc.ml:179:73>>*/ }
    function print_backtrace(outchan){
      /*<<printexc.ml:183:2>>*/ return  /*<<printexc.ml:183:52>>*/ print_raw_backtrace
@@ -23017,7 +23683,7 @@
      /*<<printexc.ml:186:2>>*/ if(! backtrace)
       /*<<printexc.ml:188:5>>*/ return cst_Program_not_linked_with_g_;
     var
-     a = backtrace[1],
+     a =  /*<<printexc.ml:186:2>>*/ backtrace[1],
      b =  /*<<printexc.ml:190:14>>*/ caml_call1(Stdlib_Buffer[1], 1024),
      _M_ =  /*<<printexc.ml:191:6>>*/ a.length - 2 | 0,
      _L_ =  /*<<printexc.ml:190:32>>*/ 0;
@@ -23032,7 +23698,7 @@
        var str = match[1];
         /*<<printexc.ml:194:24>>*/ caml_call3(Stdlib_Printf[5], b, _n_, str);
       }
-      var _N_ = i + 1 | 0;
+      var _N_ =  /*<<printexc.ml:192:43>>*/ i + 1 | 0;
       if(_M_ === i) break;
       i = _N_;
      }
@@ -23062,12 +23728,12 @@
      /*<<printexc.ml:242:43>>*/ if(! match)
       /*<<printexc.ml:243:14>>*/ return 0;
     var
-     backtrace = match[1],
+     backtrace =  /*<<printexc.ml:242:43>>*/ match[1],
      i$1 =  /*<<printexc.ml:251:6>>*/ backtrace.length - 2 | 0,
-     i = i$1;
-     /*<<printexc.ml:248:30>>*/ for(;;){
-     if(-1 === i)
-      var _K_ = 0;
+     i =  /*<<printexc.ml:251:9>>*/ i$1;
+    for(;;){
+      /*<<printexc.ml:248:30>>*/ if(-1 === i)
+      var _K_ =  /*<<printexc.ml:249:18>>*/ 0;
      else{
       var
        _J_ =
@@ -23149,7 +23815,7 @@
       _H_ =  /*<<printexc.ml:327:18>>*/ caml_check_bound(errors, _G_)[1 + _G_];
       /*<<printexc.ml:327:4>>*/ caml_call1(Stdlib[53], _H_);
     }
-    return caml_call1(Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
+     /*<<printexc.ml:326:2>>*/ return caml_call1(Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
    }
    var
     uncaught_exception_handler =
@@ -23174,14 +23840,17 @@
        "Fatal error in uncaught exception handler: exception %s\n"];
    function handle_uncaught_exception(exn$0, debugger_in_use){
      /*<<printexc.ml:371:2>>*/ try{
-     try{
+      /*<<printexc.ml:343:2>>*/ try{
       var
        raw_backtrace =
          debugger_in_use
           ? empty_backtrace
           :  /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0);
-      try{ /*<<printexc.ml:352:9>>*/ caml_call1(Stdlib[103], 0);}catch(_E_){}
-      try{
+       /*<<printexc.ml:352:4>>*/ try{
+        /*<<printexc.ml:352:9>>*/ caml_call1(Stdlib[103], 0);
+      }
+      catch(_E_){}
+       /*<<printexc.ml:353:4>>*/ try{
        var
         _A_ =
            /*<<printexc.ml:354:6>>*/ caml_call2
@@ -23202,13 +23871,16 @@
         /*<<printexc.ml:361:6>>*/ print_raw_backtrace
         (Stdlib[40], raw_backtrace$0);
        var
-        _z_ =  /*<<printexc.ml:362:6>>*/ caml_call1(Stdlib[63], Stdlib[40]);
+        _z_ =
+           /*<<printexc.ml:362:18>>*/  /*<<printexc.ml:362:6>>*/ caml_call1
+           (Stdlib[63], Stdlib[40]);
       }
       var _B_ = _z_;
      }
      catch(_D_){
       var _w_ = caml_wrap_exception(_D_);
-      if(_w_ !== Stdlib[9]) throw caml_maybe_attach_backtrace(_w_, 0);
+       /*<<?>>*/ if(_w_ !== Stdlib[9])
+       throw caml_maybe_attach_backtrace(_w_, 0);
       var
        _B_ =
           /*<<printexc.ml:365:8>>*/ caml_call1
@@ -23307,7 +23979,7 @@
        /*<<fun.ml:24:38>>*/ if(param[1] !== Finally_raised)
         /*<<fun.ml:26:7>>*/ return 0;
       var
-       exn = param[2],
+       exn =  /*<<fun.ml:24:38>>*/ param[2],
        _a_ =  /*<<fun.ml:25:55>>*/ caml_call1(Stdlib_Printexc[1], exn);
        /*<<fun.ml:25:78>>*/ return [0,
                /*<<fun.ml:25:29>>*/ caml_call2
@@ -23329,7 +24001,9 @@
        /*<<fun.ml:32:57>>*/ throw caml_maybe_attach_backtrace(exn, 0);
      }
     }
-    try{var result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);}
+     /*<<fun.ml:34:2>>*/ try{
+     var result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
+    }
     catch(work_exn$0){
      var
       work_exn = caml_wrap_exception(work_exn$0),
@@ -23637,8 +24311,8 @@
     }
     catch(_x_){
      var _w_ = caml_wrap_exception(_x_);
-     if(_w_ === Stdlib[12])  /*<<in_channel.ml:57:29>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_w_, 0);
+      /*<<?>>*/ if(_w_ === Stdlib[12])  /*<<in_channel.ml:57:29>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_w_, 0);
     }
      /*<<in_channel.ml:56:9>>*/ return [0, c];
     /*<<in_channel.ml:57:33>>*/ }
@@ -23648,8 +24322,8 @@
     }
     catch(_v_){
      var _u_ = caml_wrap_exception(_v_);
-     if(_u_ === Stdlib[12])  /*<<in_channel.ml:62:29>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_u_, 0);
+      /*<<?>>*/ if(_u_ === Stdlib[12])  /*<<in_channel.ml:62:29>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_u_, 0);
     }
      /*<<in_channel.ml:61:9>>*/ return [0, n];
     /*<<in_channel.ml:62:33>>*/ }
@@ -23659,8 +24333,8 @@
     }
     catch(_t_){
      var _s_ = caml_wrap_exception(_t_);
-     if(_s_ === Stdlib[12])  /*<<in_channel.ml:67:29>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_s_, 0);
+      /*<<?>>*/ if(_s_ === Stdlib[12])  /*<<in_channel.ml:67:29>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_s_, 0);
     }
      /*<<in_channel.ml:66:9>>*/ return [0, s];
     /*<<in_channel.ml:67:33>>*/ }
@@ -23690,8 +24364,8 @@
     }
     catch(_r_){
      var _q_ = caml_wrap_exception(_r_);
-     if(_q_ === Stdlib[12])  /*<<in_channel.ml:83:29>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_q_, 0);
+      /*<<?>>*/ if(_q_ === Stdlib[12])  /*<<in_channel.ml:83:29>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_q_, 0);
     }
     /*<<in_channel.ml:83:33>>*/ }
    function really_input_bigarray(ic, buf, ofs$1, len$1){
@@ -23701,9 +24375,10 @@
        0 <= len$1
        &&
         ( /*<<in_channel.ml:94:33>>*/ caml_ba_dim_1(buf) - len$1 | 0) >= ofs$1){
-     var ofs = ofs$1, len = len$1;
-      /*<<in_channel.ml:86:2>>*/ for(;;){
-      if(0 >= len)  /*<<in_channel.ml:86:19>>*/ return _b_;
+     var ofs =  /*<<in_channel.ml:96:7>>*/ ofs$1, len = len$1;
+     for(;;){
+       /*<<in_channel.ml:86:2>>*/ if(0 >= len)
+        /*<<in_channel.ml:86:19>>*/ return _b_;
       var
        r =
           /*<<in_channel.ml:87:12>>*/ caml_ml_input_bigarray
@@ -23726,15 +24401,15 @@
     }
     catch(_p_){
      var _o_ = caml_wrap_exception(_p_);
-     if(_o_ === Stdlib[12])  /*<<in_channel.ml:101:29>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_o_, 0);
+      /*<<?>>*/ if(_o_ === Stdlib[12])  /*<<in_channel.ml:101:29>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_o_, 0);
     }
      /*<<in_channel.ml:100:9>>*/ return [0, s];
     /*<<in_channel.ml:101:33>>*/ }
    function read_upto(ic, buf, ofs, len){
-    var ofs$0 = ofs, len$0 = len;
-     /*<<in_channel.ml:107:4>>*/ for(;;){
-     if(0 !== len$0){
+    var ofs$0 =  /*<<in_channel.ml:116:2>>*/ ofs, len$0 = len;
+    for(;;){
+      /*<<in_channel.ml:107:4>>*/ if(0 !== len$0){
       var
        r =
           /*<<in_channel.ml:109:14>>*/ caml_call4
@@ -23756,7 +24431,7 @@
      /*<<in_channel.ml:132:2>>*/ if((ofs + n | 0) <= len)
       /*<<in_channel.ml:132:25>>*/ return buf;
     var new_len =  /*<<in_channel.ml:133:7>>*/ [0, len];
-    for(;;){
+     /*<<in_channel.ml:135:4>>*/ for(;;){
      if(new_len[1] >= (ofs + n | 0)) break;
       /*<<in_channel.ml:136:6>>*/ new_len[1] = (2 * new_len[1] | 0) + 1 | 0;
     }
@@ -23777,7 +24452,7 @@
     /*<<in_channel.ml:151:5>>*/ }
    function input_all(ic){
     var chunk_size =  /*<<in_channel.ml:154:2>>*/ 65536;
-    try{
+     /*<<in_channel.ml:155:2>>*/ try{
      var
       _k_ =  /*<<in_channel.ml:157:36>>*/ caml_call1(Stdlib[91], ic),
       _l_ =
@@ -23789,8 +24464,9 @@
     }
     catch(_n_){
      var _i_ = caml_wrap_exception(_n_);
-     if(_i_[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(_i_, 0);
-     var initial_size = -1;
+      /*<<?>>*/ if(_i_[1] !== Stdlib[11])
+      throw caml_maybe_attach_backtrace(_i_, 0);
+     var initial_size =  /*<<in_channel.ml:159:6>>*/ -1;
     }
     var
      initial_size$0 =
@@ -23807,12 +24483,14 @@
      /*<<in_channel.ml:170:2>>*/ if(nread < initial_size$1)
       /*<<in_channel.ml:171:4>>*/ return caml_call3
              (Stdlib_Bytes[8], buf, 0, nread) /*<<in_channel.ml:193:5>>*/ ;
-    try{var c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);}
+     /*<<in_channel.ml:172:7>>*/ try{
+     var c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);
+    }
     catch(_m_){
      var _j_ = caml_wrap_exception(_m_);
-     if(_j_ === Stdlib[12])
+      /*<<?>>*/ if(_j_ === Stdlib[12])
        /*<<in_channel.ml:176:8>>*/ return caml_call1(Stdlib_Bytes[44], buf) /*<<in_channel.ml:193:5>>*/ ;
-     throw caml_maybe_attach_backtrace(_j_, 0);
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_j_, 0);
     }
     var buf$2 =  /*<<in_channel.ml:190:18>>*/ ensure(buf, nread, 65537);
      /*<<in_channel.ml:191:8>>*/ runtime.caml_bytes_set(buf$2, nread, c);
@@ -23820,7 +24498,7 @@
      ofs$1 =  /*<<in_channel.ml:191:29>>*/ nread + 1 | 0,
      buf$0 = buf$2,
      ofs = ofs$1;
-     /*<<in_channel.ml:180:10>>*/ for(;;){
+    for(;;){
      var
       buf$1 =  /*<<in_channel.ml:180:20>>*/ ensure(buf$0, ofs, chunk_size),
       rem =
@@ -23840,19 +24518,21 @@
     }
     catch(_h_){
      var _e_ = caml_wrap_exception(_h_);
-     if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_e_, 0);
+      /*<<?>>*/ if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_e_, 0);
     }
     var
      block =  /*<<in_channel.ml:197:12>>*/ [0, line, 24029],
-     dst = block,
+     dst =  /*<<in_channel.ml:197:20>>*/ block,
      offset = 1;
-     /*<<in_channel.ml:196:2>>*/ for(;;){
-     try{var line$0 =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
+    for(;;){
+      /*<<in_channel.ml:196:2>>*/ try{
+      var line$0 =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
      }
      catch(_g_){
       var _f_ = caml_wrap_exception(_g_);
-      if(_f_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_f_, 0);
+       /*<<?>>*/ if(_f_ !== Stdlib[12])
+       throw caml_maybe_attach_backtrace(_f_, 0);
        /*<<in_channel.ml:198:29>>*/ dst[1 + offset] = 0;
        /*<<in_channel.ml:197:34>>*/ return block;
      }
@@ -23864,15 +24544,18 @@
     /*<<in_channel.ml:198:31>>*/ }
    function fold_lines(f, accu, ic){
     var accu$0 = accu;
-     /*<<in_channel.ml:201:2>>*/ for(;;){
-     try{var line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);}
+    for(;;){
+      /*<<in_channel.ml:201:2>>*/ try{
+      var line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);
+     }
      catch(_d_){
       var _c_ = caml_wrap_exception(_d_);
-      if(_c_ === Stdlib[12])  /*<<in_channel.ml:203:29>>*/ return accu$0;
-      throw caml_maybe_attach_backtrace(_c_, 0);
+       /*<<?>>*/ if(_c_ === Stdlib[12])
+        /*<<in_channel.ml:203:29>>*/ return accu$0;
+       /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
      }
      var accu$1 =  /*<<in_channel.ml:202:25>>*/ caml_call2(f, accu$0, line);
-     accu$0 = accu$1;
+      /*<<in_channel.ml:202:38>>*/ accu$0 = accu$1;
     }
     /*<<in_channel.ml:203:33>>*/ }
    var
@@ -24172,9 +24855,9 @@
       ctx =
          /*<<digest.ml:82:18>>*/ runtime.caml_blake2_create(hash_length, cst);
       /*<<digest.ml:102:4>>*/ if(0 <= toread){
-      var toread$0 = toread;
-       /*<<digest.ml:111:8>>*/ for(;;){
-       if(0 === toread$0)
+      var toread$0 =  /*<<digest.ml:120:9>>*/ toread;
+      for(;;){
+        /*<<digest.ml:111:8>>*/ if(0 === toread$0)
          /*<<digest.ml:111:48>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
                 (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
        var
@@ -24197,7 +24880,7 @@
       }
      }
      else
-       /*<<digest.ml:104:8>>*/ for(;;){
+       /*<<digest.ml:108:9>>*/ for(;;){
        var
         n$0 =
            /*<<digest.ml:104:16>>*/ caml_call4
@@ -24230,13 +24913,13 @@
     function to_hex(d){
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
        /*<<digest.ml:131:43>>*/ caml_call1(Stdlib[1], cst_Digest_to_hex);
-     return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
+      /*<<digest.ml:131:4>>*/ return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
     }
     function of_hex(s){
       /*<<digest.ml:135:4>>*/ if
       (caml_ml_string_length(s) !== (hash_length * 2 | 0))
        /*<<digest.ml:135:47>>*/ caml_call1(Stdlib[1], cst_Digest_of_hex$0);
-     return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
+      /*<<digest.ml:135:4>>*/ return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
     }
     return [0,
             hash_length,
@@ -24301,12 +24984,12 @@
    function to_hex(d){
      /*<<digest.ml:178:4>>*/ if(16 !== caml_ml_string_length(d))
       /*<<digest.ml:178:34>>*/ caml_call1(Stdlib[1], cst_Digest_to_hex$0);
-    return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
+     /*<<digest.ml:178:4>>*/ return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
    }
    function of_hex(s){
      /*<<digest.ml:182:4>>*/ if(32 !== caml_ml_string_length(s))
       /*<<digest.ml:182:34>>*/ caml_call1(Stdlib[1], cst_Digest_from_hex);
-    return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
+     /*<<digest.ml:182:4>>*/ return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
    }
    var
     Stdlib_Digest =
@@ -24595,8 +25278,8 @@
      ba =  /*<<bigarray.ml:218:13>>*/ create$0(kind, layout, data.length - 1),
      ofs =  /*<<bigarray.ml:219:4>>*/ layout ? 1 : 0,
      _U_ =  /*<<bigarray.ml:224:4>>*/ data.length - 2 | 0,
-     _T_ = 0;
-    if(_U_ >= 0){
+     _T_ =  /*<<bigarray.ml:219:4>>*/ 0;
+     /*<<bigarray.ml:224:4>>*/ if(_U_ >= 0){
      var i = _T_;
      for(;;){
        /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
@@ -24649,7 +25332,7 @@
          i$0 = _Q_;
         }
        }
-       var _P_ = j$0 + 1 | 0;
+       var _P_ =  /*<<bigarray.ml:266:6>>*/ j$0 + 1 | 0;
        if(dim2 === j$0) break;
        j$0 = _P_;
       }
@@ -24671,7 +25354,7 @@
         j = _M_;
        }
       }
-      var _L_ = i + 1 | 0;
+      var _L_ =  /*<<bigarray.ml:260:6>>*/ i + 1 | 0;
       if(_I_ === i) break;
       i = _L_;
      }
@@ -24688,15 +25371,15 @@
      ba =  /*<<bigarray.ml:278:13>>*/ create$1(kind, layout, dim1, dim2),
      ofs =  /*<<bigarray.ml:279:4>>*/ layout ? 1 : 0,
      _C_ =  /*<<bigarray.ml:284:4>>*/ dim1 - 1 | 0,
-     _B_ = 0;
-    if(_C_ >= 0){
+     _B_ =  /*<<bigarray.ml:279:4>>*/ 0;
+     /*<<bigarray.ml:284:4>>*/ if(_C_ >= 0){
      var i = _B_;
      for(;;){
       var row =  /*<<bigarray.ml:285:16>>*/ caml_check_bound(data, i)[1 + i];
        /*<<bigarray.ml:286:6>>*/ if(row.length - 1 !== dim2)
         /*<<bigarray.ml:287:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array2_of_array_n);
-      var _E_ = dim2 - 1 | 0, _D_ = 0;
+      var _E_ =  /*<<bigarray.ml:286:6>>*/ dim2 - 1 | 0, _D_ = 0;
       if(_E_ >= 0){
        var j = _D_;
        for(;;){
@@ -24710,7 +25393,7 @@
         j = _G_;
        }
       }
-      var _F_ = i + 1 | 0;
+      var _F_ =  /*<<bigarray.ml:286:6>>*/ i + 1 | 0;
       if(_C_ === i) break;
       i = _F_;
      }
@@ -24775,12 +25458,12 @@
            i$0 = _x_;
           }
          }
-         var _w_ = j$0 + 1 | 0;
+         var _w_ =  /*<<bigarray.ml:340:8>>*/ j$0 + 1 | 0;
          if(dim2 === j$0) break;
          j$0 = _w_;
         }
        }
-       var _u_ = k$0 + 1 | 0;
+       var _u_ =  /*<<bigarray.ml:339:6>>*/ k$0 + 1 | 0;
        if(dim3 === k$0) break;
        k$0 = _u_;
       }
@@ -24806,12 +25489,12 @@
           k = _r_;
          }
         }
-        var _q_ = j + 1 | 0;
+        var _q_ =  /*<<bigarray.ml:332:8>>*/ j + 1 | 0;
         if(_m_ === j) break;
         j = _q_;
        }
       }
-      var _n_ = i + 1 | 0;
+      var _n_ =  /*<<bigarray.ml:331:6>>*/ i + 1 | 0;
       if(_k_ === i) break;
       i = _n_;
      }
@@ -24835,15 +25518,15 @@
      ba =  /*<<bigarray.ml:354:13>>*/ create$2(kind, layout, dim1, dim2, dim3),
      ofs =  /*<<bigarray.ml:355:4>>*/ layout ? 1 : 0,
      _b_ =  /*<<bigarray.ml:360:4>>*/ dim1 - 1 | 0,
-     _a_ = 0;
-    if(_b_ >= 0){
+     _a_ =  /*<<bigarray.ml:355:4>>*/ 0;
+     /*<<bigarray.ml:360:4>>*/ if(_b_ >= 0){
      var i = _a_;
      for(;;){
       var row =  /*<<bigarray.ml:361:16>>*/ caml_check_bound(data, i)[1 + i];
        /*<<bigarray.ml:362:6>>*/ if(row.length - 1 !== dim2)
         /*<<bigarray.ml:363:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array3_of_array_n);
-      var _d_ = dim2 - 1 | 0, _c_ = 0;
+      var _d_ =  /*<<bigarray.ml:362:6>>*/ dim2 - 1 | 0, _c_ = 0;
       if(_d_ >= 0){
        var j = _c_;
        for(;;){
@@ -24851,7 +25534,7 @@
          /*<<bigarray.ml:366:8>>*/ if(col.length - 1 !== dim3)
           /*<<bigarray.ml:367:10>>*/ caml_call1
           (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
-        var _g_ = dim3 - 1 | 0, _f_ = 0;
+        var _g_ =  /*<<bigarray.ml:366:8>>*/ dim3 - 1 | 0, _f_ = 0;
         if(_g_ >= 0){
          var k = _f_;
          for(;;){
@@ -24866,12 +25549,12 @@
           k = _i_;
          }
         }
-        var _h_ = j + 1 | 0;
+        var _h_ =  /*<<bigarray.ml:366:8>>*/ j + 1 | 0;
         if(_d_ === j) break;
         j = _h_;
        }
       }
-      var _e_ = i + 1 | 0;
+      var _e_ =  /*<<bigarray.ml:362:6>>*/ i + 1 | 0;
       if(_b_ === i) break;
       i = _e_;
      }
@@ -25089,7 +25772,7 @@
       buf,
       0,
       serialization_prefix_len);
-    var i = 0;
+    var i =  /*<<random.ml:64:44>>*/ 0;
     for(;;){
      var _y_ =  /*<<random.ml:66:47>>*/ runtime.caml_ba_get_1(s, i);
       /*<<random.ml:66:6>>*/ caml_call3
@@ -25097,9 +25780,9 @@
      var _z_ =  /*<<random.ml:66:63>>*/ i + 1 | 0;
      if(3 === i)
        /*<<random.ml:68:4>>*/ return caml_call1(Stdlib_Bytes[44], buf) /*<<random.ml:68:30>>*/ ;
-     i = _z_;
+      /*<<random.ml:66:63>>*/ i = _z_;
     }
-   }
+    /*<<random.ml:68:30>>*/ }
    function of_binary_string(buf){
     var
      _v_ =
@@ -25113,7 +25796,7 @@
         -
           /*<<random.ml:74:14>>*/ caml_call2
           (Stdlib_String[11], serialization_prefix, buf);
-    if(_w_){
+     /*<<random.ml:73:4>>*/ if(_w_){
      var
       _x_ =
          /*<<random.ml:77:8>>*/ caml_call2
@@ -25222,9 +25905,9 @@
       /*<<random.ml:198:31>>*/ return min
             +  /*<<random.ml:198:12>>*/ int_aux(s, span, mask)
             | 0 /*<<random.ml:198:31>>*/ ;
-     /*<<random.ml:184:4>>*/ for(;;){
+     /*<<random.ml:201:6>>*/ for(;;){
      var
-      drop = Stdlib_Sys[10] - nbits | 0,
+      drop =  /*<<random.ml:184:4>>*/ Stdlib_Sys[10] - nbits | 0,
       r =
          /*<<random.ml:186:35>>*/ caml_int64_to_int32
          ( /*<<random.ml:186:27>>*/ caml_lxm_next(s))
@@ -25237,7 +25920,7 @@
    function int_in_range(s, min, max){
      /*<<random.ml:206:4>>*/ if(max < min)
       /*<<random.ml:207:6>>*/ caml_call1(Stdlib[1], cst_Random_int_in_range);
-    if(-1073741824 <= min && max <= 1073741823)
+     /*<<random.ml:206:4>>*/ if(-1073741824 <= min && max <= 1073741823)
       /*<<random.ml:215:6>>*/ return int_in_range_aux
              (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
      /*<<random.ml:216:9>>*/ if(-2147483648 <= min && max <= 2147483647)
@@ -25283,7 +25966,7 @@
       /*<<random.ml:254:39>>*/ return min
             +  /*<<random.ml:254:22>>*/ int32aux(s, span)
             | 0 /*<<random.ml:254:39>>*/ ;
-     /*<<random.ml:242:4>>*/ for(;;){
+     /*<<random.ml:252:8>>*/ for(;;){
      var
       r =
          /*<<random.ml:242:12>>*/ caml_int64_to_int32
@@ -25336,7 +26019,7 @@
      (!  /*<<random.ml:286:9>>*/ caml_lessequal(span, Stdlib_Int64[1]))
       /*<<random.ml:289:39>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
              (min,  /*<<random.ml:289:22>>*/ int64aux(s, span)) /*<<random.ml:289:39>>*/ ;
-     /*<<random.ml:277:4>>*/ for(;;){
+     /*<<random.ml:287:8>>*/ for(;;){
      var r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
       /*<<random.ml:278:14>>*/ if
       (!
@@ -25660,18 +26343,20 @@
    }
    catch(_al_){
     var _a_ = caml_wrap_exception(_al_);
-    if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
-    try{
+     /*<<?>>*/ if(_a_ !== Stdlib[8])
+     throw caml_maybe_attach_backtrace(_a_, 0);
+     /*<<hashtbl.ml:52:4>>*/ try{
      var
       _e_ =  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv("CAMLRUNPARAM"),
       _c_ = _e_;
     }
     catch(_am_){
      var _b_ = caml_wrap_exception(_am_);
-     if(_b_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_b_, 0);
-     var _c_ = cst;
+      /*<<?>>*/ if(_b_ !== Stdlib[8])
+      throw caml_maybe_attach_backtrace(_b_, 0);
+     var _c_ =  /*<<hashtbl.ml:52:52>>*/ cst;
     }
-    var params = _c_;
+    var params =  /*<<hashtbl.ml:52:4>>*/ _c_;
    }
    var
     randomized_default =
@@ -25692,8 +26377,9 @@
        (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function power_2_above(x, n){
     var x$0 = x;
-     /*<<hashtbl.ml:69:2>>*/ for(;;){
-     if(n <= x$0)  /*<<hashtbl.ml:69:17>>*/ return x$0;
+    for(;;){
+      /*<<hashtbl.ml:69:2>>*/ if(n <= x$0)
+       /*<<hashtbl.ml:69:17>>*/ return x$0;
       /*<<hashtbl.ml:70:7>>*/ if(Stdlib_Sys[13] < (x$0 * 2 | 0))
        /*<<hashtbl.ml:70:44>>*/ return x$0;
      var x$1 =  /*<<hashtbl.ml:71:7>>*/ x$0 * 2 | 0;
@@ -25711,9 +26397,11 @@
      var
       _ak_ =
          /*<<hashtbl.ml:76:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
-      seed =  /*<<hashtbl.ml:76:19>>*/ caml_call1(Stdlib_Random[19][4], _ak_);
+      seed =
+         /*<<hashtbl.ml:76:62>>*/  /*<<hashtbl.ml:76:19>>*/ caml_call1
+         (Stdlib_Random[19][4], _ak_);
     else
-     var seed = 0;
+     var seed =  /*<<hashtbl.ml:76:68>>*/ 0;
      /*<<hashtbl.ml:78:70>>*/ return [0,
             0,
              /*<<hashtbl.ml:78:52>>*/ caml_make_vect(s, 0),
@@ -25746,21 +26434,22 @@
    function copy_bucketlist(param){
      /*<<hashtbl.ml:96:22>>*/ if(! param)  /*<<hashtbl.ml:97:13>>*/ return 0;
     var
-     key = param[1],
+     key =  /*<<hashtbl.ml:96:22>>*/ param[1],
      data = param[2],
      next = param[3],
      prec$1 =  /*<<hashtbl.ml:109:6>>*/ [0, key, data, next],
-     prec = prec$1,
+     prec =  /*<<hashtbl.ml:110:6>>*/ prec$1,
      param$0 = next;
-     /*<<hashtbl.ml:99:19>>*/ for(;;){
-     if(! param$0)  /*<<hashtbl.ml:110:17>>*/ return prec$1;
+    for(;;){
+      /*<<hashtbl.ml:99:19>>*/ if(! param$0)
+       /*<<hashtbl.ml:110:17>>*/ return prec$1;
      var
-      key$0 = param$0[1],
+      key$0 =  /*<<hashtbl.ml:99:19>>*/ param$0[1],
       data$0 = param$0[2],
       next$0 = param$0[3],
       prec$0 =  /*<<hashtbl.ml:102:12>>*/ [0, key$0, data$0, next$0];
       /*<<hashtbl.ml:105:28>>*/ prec[3] = prec$0;
-     prec = prec$0;
+      /*<<hashtbl.ml:107:12>>*/ prec = prec$0;
      param$0 = next$0;
     }
     /*<<hashtbl.ml:111:7>>*/ }
@@ -25788,9 +26477,9 @@
       var
        cell$1 =
           /*<<hashtbl.ml:136:18>>*/ caml_check_bound(odata, i$0)[1 + i$0],
-       cell = cell$1;
-       /*<<hashtbl.ml:120:26>>*/ for(;;){
-       if(! cell) break;
+       cell =  /*<<hashtbl.ml:136:4>>*/ cell$1;
+      for(;;){
+        /*<<hashtbl.ml:120:26>>*/ if(! cell) break;
        var
         key = cell[1],
         data = cell[2],
@@ -25806,7 +26495,7 @@
          /*<<hashtbl.ml:129:19>>*/ caml_check_bound(ndata, nidx)[1 + nidx] = cell$0;
         /*<<hashtbl.ml:132:8>>*/ caml_check_bound(ndata_tail, nidx)[1 + nidx]
        = cell$0;
-       cell = next;
+        /*<<hashtbl.ml:132:33>>*/ cell = next;
       }
       var _af_ =  /*<<hashtbl.ml:136:27>>*/ i$0 + 1 | 0;
       if(_aa_ === i$0) break;
@@ -25823,15 +26512,15 @@
            /*<<hashtbl.ml:140:12>>*/ caml_check_bound(ndata_tail, i)[1 + i];
         /*<<hashtbl.ml:140:26>>*/ if(match$0)
          /*<<hashtbl.ml:142:21>>*/ match$0[3] = 0;
-       var _ae_ = i + 1 | 0;
+       var _ae_ =  /*<<hashtbl.ml:140:26>>*/ i + 1 | 0;
        if(_ac_ === i) break;
        i = _ae_;
       }
      }
-     var _ad_ = 0;
+     var _ad_ =  /*<<hashtbl.ml:139:4>>*/ 0;
     }
     else
-     var _ad_ = inplace;
+     var _ad_ =  /*<<hashtbl.ml:138:2>>*/ inplace;
     return _ad_;
     /*<<hashtbl.ml:143:8>>*/ }
    function resize(indexfun, h){
@@ -25857,17 +26546,21 @@
     var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
      /*<<hashtbl.ml:163:2>>*/ if(1 - old_trav)
       /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
-    try{
+     /*<<hashtbl.ml:163:2>>*/ try{
      var d = h[2], _W_ =  /*<<hashtbl.ml:166:4>>*/ d.length - 2 | 0, _V_ = 0;
      if(_W_ >= 0){
       var i = _V_;
       for(;;){
-       var param =  /*<<hashtbl.ml:167:16>>*/ caml_check_bound(d, i)[1 + i];
-        /*<<hashtbl.ml:157:22>>*/ for(;;){
-        if(! param) break;
+       var
+        param =
+           /*<<hashtbl.ml:167:6>>*/  /*<<hashtbl.ml:167:16>>*/ caml_check_bound
+            (d, i)
+           [1 + i];
+        /*<<hashtbl.ml:167:6>>*/ for(;;){
+         /*<<hashtbl.ml:157:22>>*/ if(! param) break;
         var key = param[1], data = param[2], next = param[3];
          /*<<hashtbl.ml:161:8>>*/ caml_call2(f, key, data);
-        param = next;
+         /*<<hashtbl.ml:161:18>>*/ param = next;
        }
        var _Z_ =  /*<<hashtbl.ml:167:21>>*/ i + 1 | 0;
        if(_W_ === i) break;
@@ -25893,17 +26586,17 @@
      old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
      /*<<hashtbl.ml:197:2>>*/ if(1 - old_trav)
       /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
-    try{
+     /*<<hashtbl.ml:197:2>>*/ try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
      if(_R_ >= 0){
       var i = _Q_;
       for(;;){
        var
         slot$0 =  /*<<hashtbl.ml:200:44>>*/ caml_check_bound(h[2], i)[1 + i],
-        prec = 0,
+        prec =  /*<<hashtbl.ml:200:6>>*/ 0,
         slot = slot$0;
-        /*<<hashtbl.ml:174:34>>*/ for(;;){
-        if(! slot) break;
+       for(;;){
+         /*<<hashtbl.ml:174:34>>*/ if(! slot) break;
         var
          key = slot[1],
          data = slot[2],
@@ -25915,11 +26608,14 @@
            /*<<hashtbl.ml:188:22>>*/ prec[3] = slot;
          else
            /*<<hashtbl.ml:187:21>>*/ caml_check_bound(h[2], i)[1 + i] = slot;
-         slot[2] = data$0;
-         prec = slot;
+          /*<<hashtbl.ml:186:10>>*/ slot[2] = data$0;
+          /*<<hashtbl.ml:191:10>>*/ prec = slot;
          slot = next;
         }
-        else{ /*<<hashtbl.ml:183:10>>*/ h[1] = h[1] - 1 | 0; slot = next;}
+        else{
+          /*<<hashtbl.ml:183:10>>*/ h[1] = h[1] - 1 | 0;
+          /*<<hashtbl.ml:184:10>>*/ slot = next;
+        }
        }
         /*<<hashtbl.ml:176:6>>*/ if(prec)
          /*<<hashtbl.ml:178:18>>*/ prec[3] = 0;
@@ -25947,7 +26643,7 @@
     var old_trav =  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal(h);
      /*<<hashtbl.ml:215:2>>*/ if(1 - old_trav)
       /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
-    try{
+     /*<<hashtbl.ml:215:2>>*/ try{
      var
       d = h[2],
       accu$1 =  /*<<hashtbl.ml:218:4>>*/ [0, init],
@@ -25959,16 +26655,16 @@
        var
         accu$2 =  /*<<hashtbl.ml:220:6>>*/ accu$1[1],
         b$0 =  /*<<hashtbl.ml:220:24>>*/ caml_check_bound(d, i)[1 + i],
-        b = b$0,
+        b =  /*<<hashtbl.ml:220:14>>*/ b$0,
         accu = accu$2;
-        /*<<hashtbl.ml:209:4>>*/ for(;;){
-        if(! b) break;
+       for(;;){
+         /*<<hashtbl.ml:209:4>>*/ if(! b) break;
         var
          key = b[1],
          data = b[2],
          next = b[3],
          accu$0 =  /*<<hashtbl.ml:213:23>>*/ caml_call3(f, key, data, accu);
-        b = next;
+         /*<<hashtbl.ml:213:40>>*/ b = next;
         accu = accu$0;
        }
         /*<<hashtbl.ml:220:35>>*/ accu$1[1] = accu;
@@ -25979,7 +26675,7 @@
      }
       /*<<hashtbl.ml:222:4>>*/ if(1 - old_trav)
        /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal(h);
-     var _O_ = accu$1[1];
+     var _O_ =  /*<<hashtbl.ml:222:4>>*/ accu$1[1];
      return _O_;
     }
     catch(exn$0){
@@ -25992,10 +26688,11 @@
     /*<<hashtbl.ml:226:13>>*/ }
    function bucket_length(accu, param){
     var accu$0 = accu, param$0 = param;
-     /*<<hashtbl.ml:235:22>>*/ for(;;){
-     if(! param$0)  /*<<hashtbl.ml:236:13>>*/ return accu$0;
+    for(;;){
+      /*<<hashtbl.ml:235:22>>*/ if(! param$0)
+       /*<<hashtbl.ml:236:13>>*/ return accu$0;
      var
-      next = param$0[3],
+      next =  /*<<hashtbl.ml:235:22>>*/ param$0[3],
       accu$1 =  /*<<hashtbl.ml:237:18>>*/ accu$0 + 1 | 0;
      accu$0 = accu$1;
      param$0 = next;
@@ -26028,8 +26725,8 @@
     var tbl_data =  /*<<hashtbl.ml:258:2>>*/ tbl[2];
     function aux(i, buck, param){
      var i$0 = i, buck$0 = buck;
-      /*<<hashtbl.ml:260:26>>*/ for(;;){
-      if(buck$0){
+     for(;;){
+       /*<<hashtbl.ml:260:26>>*/ if(buck$0){
        var key = buck$0[1], data = buck$0[2], next = buck$0[3];
         /*<<hashtbl.ml:266:41>>*/ return [0,
                [0, key, data],
@@ -26083,11 +26780,12 @@
      var
       i =  /*<<hashtbl.ml:380:14>>*/ key_index(h, key),
       c =  /*<<hashtbl.ml:381:34>>*/ caml_check_bound(h[2], i)[1 + i],
-      prec$0 = 0,
+      prec$0 =  /*<<hashtbl.ml:381:44>>*/ 0,
       prec = c;
-      /*<<hashtbl.ml:366:26>>*/ for(;;){
-      if(! prec)  /*<<hashtbl.ml:368:10>>*/ return 0;
-      var k = prec[1], next = prec[3];
+     for(;;){
+       /*<<hashtbl.ml:366:26>>*/ if(! prec)
+        /*<<hashtbl.ml:368:10>>*/ return 0;
+      var k =  /*<<hashtbl.ml:366:26>>*/ prec[1], next = prec[3];
        /*<<hashtbl.ml:370:26>>*/ if
        ( /*<<hashtbl.ml:370:13>>*/ caml_call2(H[1], k, key)){
         /*<<hashtbl.ml:371:15>>*/ h[1] = h[1] - 1 | 0;
@@ -26099,10 +26797,10 @@
                  = next,
                  0) /*<<hashtbl.ml:381:44>>*/ ;
       }
-      prec$0 = prec;
+       /*<<hashtbl.ml:377:15>>*/ prec$0 = prec;
       prec = next;
      }
-    }
+     /*<<hashtbl.ml:381:44>>*/ }
     function find(h, key){
      var
       _A_ =  /*<<hashtbl.ml:390:20>>*/ key_index(h, key),
@@ -26110,34 +26808,46 @@
       /*<<hashtbl.ml:390:36>>*/ if(! match)
        /*<<hashtbl.ml:391:17>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
-     var k1 = match[1], d1 = match[2], next1 = match[3];
+     var
+      k1 =  /*<<hashtbl.ml:390:36>>*/ match[1],
+      d1 = match[2],
+      next1 = match[3];
       /*<<hashtbl.ml:393:27>>*/ if
       ( /*<<hashtbl.ml:393:13>>*/ caml_call2(H[1], key, k1))
        /*<<hashtbl.ml:393:33>>*/ return d1;
       /*<<hashtbl.ml:394:10>>*/ if(! next1)
        /*<<hashtbl.ml:395:21>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
-     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
+     var
+      k2 =  /*<<hashtbl.ml:394:10>>*/ next1[1],
+      d2 = next1[2],
+      next2 = next1[3];
       /*<<hashtbl.ml:397:31>>*/ if
       ( /*<<hashtbl.ml:397:17>>*/ caml_call2(H[1], key, k2))
        /*<<hashtbl.ml:397:37>>*/ return d2;
       /*<<hashtbl.ml:398:14>>*/ if(! next2)
        /*<<hashtbl.ml:399:25>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
-     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
+     var
+      k3 =  /*<<hashtbl.ml:398:14>>*/ next2[1],
+      d3 = next2[2],
+      next3 = next2[3];
       /*<<hashtbl.ml:401:35>>*/ if
       ( /*<<hashtbl.ml:401:21>>*/ caml_call2(H[1], key, k3))
        /*<<hashtbl.ml:401:41>>*/ return d3;
-     var param = next3;
-      /*<<hashtbl.ml:383:21>>*/ for(;;){
-      if(! param)
+     var param =  /*<<hashtbl.ml:401:49>>*/ next3;
+     for(;;){
+       /*<<hashtbl.ml:383:21>>*/ if(! param)
         /*<<hashtbl.ml:385:10>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-      var k = param[1], data = param[2], next = param[3];
+      var
+       k =  /*<<hashtbl.ml:383:21>>*/ param[1],
+       data = param[2],
+       next = param[3];
        /*<<hashtbl.ml:387:26>>*/ if
        ( /*<<hashtbl.ml:387:13>>*/ caml_call2(H[1], key, k))
         /*<<hashtbl.ml:387:32>>*/ return data;
-      param = next;
+       /*<<hashtbl.ml:387:42>>*/ param = next;
      }
      /*<<hashtbl.ml:401:67>>*/ }
     function find_opt(h, key){
@@ -26146,55 +26856,78 @@
       match =  /*<<hashtbl.ml:410:12>>*/ caml_check_bound(h[2], _z_)[1 + _z_];
       /*<<hashtbl.ml:410:36>>*/ if(! match)
        /*<<hashtbl.ml:411:17>>*/ return 0;
-     var k1 = match[1], d1 = match[2], next1 = match[3];
+     var
+      k1 =  /*<<hashtbl.ml:410:36>>*/ match[1],
+      d1 = match[2],
+      next1 = match[3];
       /*<<hashtbl.ml:413:27>>*/ if
       ( /*<<hashtbl.ml:413:13>>*/ caml_call2(H[1], key, k1))
        /*<<hashtbl.ml:413:33>>*/ return [0, d1];
       /*<<hashtbl.ml:414:10>>*/ if(! next1)
        /*<<hashtbl.ml:415:21>>*/ return 0;
-     var k2 = next1[1], d2 = next1[2], next2 = next1[3];
+     var
+      k2 =  /*<<hashtbl.ml:414:10>>*/ next1[1],
+      d2 = next1[2],
+      next2 = next1[3];
       /*<<hashtbl.ml:417:31>>*/ if
       ( /*<<hashtbl.ml:417:17>>*/ caml_call2(H[1], key, k2))
        /*<<hashtbl.ml:417:37>>*/ return [0, d2];
       /*<<hashtbl.ml:418:14>>*/ if(! next2)
        /*<<hashtbl.ml:419:25>>*/ return 0;
-     var k3 = next2[1], d3 = next2[2], next3 = next2[3];
+     var
+      k3 =  /*<<hashtbl.ml:418:14>>*/ next2[1],
+      d3 = next2[2],
+      next3 = next2[3];
       /*<<hashtbl.ml:421:35>>*/ if
       ( /*<<hashtbl.ml:421:21>>*/ caml_call2(H[1], key, k3))
        /*<<hashtbl.ml:421:41>>*/ return [0, d3];
-     var param = next3;
-      /*<<hashtbl.ml:403:25>>*/ for(;;){
-      if(! param)  /*<<hashtbl.ml:405:10>>*/ return 0;
-      var k = param[1], data = param[2], next = param[3];
+     var param =  /*<<hashtbl.ml:421:54>>*/ next3;
+     for(;;){
+       /*<<hashtbl.ml:403:25>>*/ if(! param)
+        /*<<hashtbl.ml:405:10>>*/ return 0;
+      var
+       k =  /*<<hashtbl.ml:403:25>>*/ param[1],
+       data = param[2],
+       next = param[3];
        /*<<hashtbl.ml:407:26>>*/ if
        ( /*<<hashtbl.ml:407:13>>*/ caml_call2(H[1], key, k))
         /*<<hashtbl.ml:407:32>>*/ return [0, data];
-      param = next;
+       /*<<hashtbl.ml:407:47>>*/ param = next;
      }
      /*<<hashtbl.ml:421:76>>*/ }
     function find_all(h, key){
      var
       _y_ =  /*<<hashtbl.ml:431:29>>*/ key_index(h, key),
-      param =  /*<<hashtbl.ml:431:21>>*/ caml_check_bound(h[2], _y_)[1 + _y_];
-      /*<<hashtbl.ml:424:47>>*/ for(;;){
-      if(! param)  /*<<hashtbl.ml:426:10>>*/ return 0;
-      var k = param[1], d = param[2], next = param[3];
+      param =
+         /*<<hashtbl.ml:431:45>>*/  /*<<hashtbl.ml:431:21>>*/ caml_check_bound
+          (h[2], _y_)
+         [1 + _y_];
+      /*<<hashtbl.ml:431:45>>*/ for(;;){
+       /*<<hashtbl.ml:424:47>>*/ if(! param)
+        /*<<hashtbl.ml:426:10>>*/ return 0;
+      var
+       k =  /*<<hashtbl.ml:424:47>>*/ param[1],
+       d = param[2],
+       next = param[3];
        /*<<hashtbl.ml:428:26>>*/ if
        ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k, key))
        break;
-      param = next;
+       /*<<hashtbl.ml:430:15>>*/ param = next;
      }
      var
       block =  /*<<hashtbl.ml:429:15>>*/ [0, d, 24029],
-      dst = block,
+      dst =  /*<<hashtbl.ml:429:20>>*/ block,
       offset = 1,
       param$0 = next;
-      /*<<hashtbl.ml:424:47>>*/ for(;;){
-      if(! param$0){
+     for(;;){
+       /*<<hashtbl.ml:424:47>>*/ if(! param$0){
         /*<<hashtbl.ml:426:10>>*/ dst[1 + offset] = 0;
         /*<<hashtbl.ml:429:39>>*/ return block;
       }
-      var k$0 = param$0[1], d$0 = param$0[2], next$0 = param$0[3];
+      var
+       k$0 =  /*<<hashtbl.ml:424:47>>*/ param$0[1],
+       d$0 = param$0[2],
+       next$0 = param$0[3];
        /*<<hashtbl.ml:428:26>>*/ if
        ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k$0, key)){
        var dst$0 =  /*<<hashtbl.ml:429:15>>*/ [0, d$0, 24029];
@@ -26204,25 +26937,25 @@
        param$0 = next$0;
       }
       else
-       param$0 = next$0;
+        /*<<hashtbl.ml:430:15>>*/ param$0 = next$0;
      }
      /*<<hashtbl.ml:431:45>>*/ }
     function replace(h, key, data){
      var
       i =  /*<<hashtbl.ml:442:14>>*/ key_index(h, key),
       l =  /*<<hashtbl.ml:443:14>>*/ caml_check_bound(h[2], i)[1 + i],
-      slot = l;
-      /*<<hashtbl.ml:433:27>>*/ for(;;){
-      if(slot){
+      slot =  /*<<hashtbl.ml:444:9>>*/ l;
+     for(;;){
+       /*<<hashtbl.ml:433:27>>*/ if(slot){
        var k = slot[1], next = slot[3];
         /*<<hashtbl.ml:437:26>>*/ if
-        (!  /*<<hashtbl.ml:437:13>>*/ caml_call2(H[1], k, key)){slot = next; continue;}
+        (!  /*<<hashtbl.ml:437:13>>*/ caml_call2(H[1], k, key)){ /*<<hashtbl.ml:439:15>>*/ slot = next; continue;}
         /*<<hashtbl.ml:438:15>>*/ slot[1] = key;
         /*<<hashtbl.ml:438:33>>*/ slot[2] = data;
-       var _v_ = 0;
+       var _v_ =  /*<<hashtbl.ml:438:52>>*/ 0;
       }
       else
-       var _v_ = 1;
+       var _v_ =  /*<<hashtbl.ml:435:10>>*/ 1;
        /*<<hashtbl.ml:444:34>>*/ if(_v_){
         /*<<hashtbl.ml:445:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, key, data, l];
         /*<<hashtbl.ml:445:45>>*/ h[1] = h[1] + 1 | 0;
@@ -26230,21 +26963,25 @@
         _w_ =  /*<<hashtbl.ml:447:8>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
        if(_w_)
          /*<<hashtbl.ml:447:51>>*/ return resize(key_index, h) /*<<hashtbl.ml:448:9>>*/ ;
-       var _x_ = _w_;
+       var _x_ =  /*<<hashtbl.ml:447:8>>*/ _w_;
       }
       else
-       var _x_ = _v_;
+       var _x_ =  /*<<hashtbl.ml:444:34>>*/ _v_;
       return _x_;
      }
-    }
+     /*<<hashtbl.ml:448:9>>*/ }
     function mem(h, key){
      var
       _u_ =  /*<<hashtbl.ml:457:32>>*/ key_index(h, key),
-      param =  /*<<hashtbl.ml:457:24>>*/ caml_check_bound(h[2], _u_)[1 + _u_];
-      /*<<hashtbl.ml:450:26>>*/ for(;;){
-      if(! param)  /*<<hashtbl.ml:452:10>>*/ return 0;
+      param =
+         /*<<hashtbl.ml:457:48>>*/  /*<<hashtbl.ml:457:24>>*/ caml_check_bound
+          (h[2], _u_)
+         [1 + _u_];
+      /*<<hashtbl.ml:457:48>>*/ for(;;){
+       /*<<hashtbl.ml:450:26>>*/ if(! param)
+        /*<<hashtbl.ml:452:10>>*/ return 0;
       var
-       k = param[1],
+       k =  /*<<hashtbl.ml:450:26>>*/ param[1],
        next = param[3],
        _t_ =  /*<<hashtbl.ml:454:10>>*/ caml_call2(H[1], k, key);
        /*<<hashtbl.ml:454:23>>*/ if(_t_) return _t_;
@@ -26392,11 +27129,11 @@
     var
      i =  /*<<hashtbl.ml:531:10>>*/ key_index(h, key),
      c =  /*<<hashtbl.ml:532:30>>*/ caml_check_bound(h[2], i)[1 + i],
-     prec$0 = 0,
+     prec$0 =  /*<<hashtbl.ml:532:40>>*/ 0,
      prec = c;
-     /*<<hashtbl.ml:517:22>>*/ for(;;){
-     if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
-     var k = prec[1], next = prec[3];
+    for(;;){
+      /*<<hashtbl.ml:517:22>>*/ if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
+     var k =  /*<<hashtbl.ml:517:22>>*/ prec[1], next = prec[3];
       /*<<hashtbl.ml:521:22>>*/ if
       (0 ===  /*<<hashtbl.ml:521:9>>*/ caml_compare(k, key)){
        /*<<hashtbl.ml:522:11>>*/ h[1] = h[1] - 1 | 0;
@@ -26408,10 +27145,10 @@
                 = next,
                 0) /*<<hashtbl.ml:532:40>>*/ ;
      }
-     prec$0 = prec;
+      /*<<hashtbl.ml:528:11>>*/ prec$0 = prec;
      prec = next;
     }
-   }
+    /*<<hashtbl.ml:532:40>>*/ }
    function find(h, key){
     var
      _q_ =  /*<<hashtbl.ml:541:16>>*/ key_index(h, key),
@@ -26419,34 +27156,46 @@
      /*<<hashtbl.ml:541:32>>*/ if(! match)
       /*<<hashtbl.ml:542:13>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
-    var k1 = match[1], d1 = match[2], next1 = match[3];
+    var
+     k1 =  /*<<hashtbl.ml:541:32>>*/ match[1],
+     d1 = match[2],
+     next1 = match[3];
      /*<<hashtbl.ml:544:23>>*/ if
      (0 ===  /*<<hashtbl.ml:544:9>>*/ caml_compare(key, k1))
       /*<<hashtbl.ml:544:33>>*/ return d1;
      /*<<hashtbl.ml:545:6>>*/ if(! next1)
       /*<<hashtbl.ml:546:17>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
-    var k2 = next1[1], d2 = next1[2], next2 = next1[3];
+    var
+     k2 =  /*<<hashtbl.ml:545:6>>*/ next1[1],
+     d2 = next1[2],
+     next2 = next1[3];
      /*<<hashtbl.ml:548:27>>*/ if
      (0 ===  /*<<hashtbl.ml:548:13>>*/ caml_compare(key, k2))
       /*<<hashtbl.ml:548:37>>*/ return d2;
      /*<<hashtbl.ml:549:10>>*/ if(! next2)
       /*<<hashtbl.ml:550:21>>*/ throw caml_maybe_attach_backtrace
             (Stdlib[8], 1);
-    var k3 = next2[1], d3 = next2[2], next3 = next2[3];
+    var
+     k3 =  /*<<hashtbl.ml:549:10>>*/ next2[1],
+     d3 = next2[2],
+     next3 = next2[3];
      /*<<hashtbl.ml:552:31>>*/ if
      (0 ===  /*<<hashtbl.ml:552:17>>*/ caml_compare(key, k3))
       /*<<hashtbl.ml:552:41>>*/ return d3;
-    var param = next3;
-     /*<<hashtbl.ml:534:17>>*/ for(;;){
-     if(! param)
+    var param =  /*<<hashtbl.ml:552:49>>*/ next3;
+    for(;;){
+      /*<<hashtbl.ml:534:17>>*/ if(! param)
        /*<<hashtbl.ml:536:6>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
-     var k = param[1], data = param[2], next = param[3];
+     var
+      k =  /*<<hashtbl.ml:534:17>>*/ param[1],
+      data = param[2],
+      next = param[3];
       /*<<hashtbl.ml:538:22>>*/ if
       (0 ===  /*<<hashtbl.ml:538:9>>*/ caml_compare(key, k))
        /*<<hashtbl.ml:538:32>>*/ return data;
-     param = next;
+      /*<<hashtbl.ml:538:42>>*/ param = next;
     }
     /*<<hashtbl.ml:552:67>>*/ }
    function find_opt(h, key){
@@ -26455,54 +27204,77 @@
      match =  /*<<hashtbl.ml:561:8>>*/ caml_check_bound(h[2], _p_)[1 + _p_];
      /*<<hashtbl.ml:561:32>>*/ if(! match)
       /*<<hashtbl.ml:562:13>>*/ return 0;
-    var k1 = match[1], d1 = match[2], next1 = match[3];
+    var
+     k1 =  /*<<hashtbl.ml:561:32>>*/ match[1],
+     d1 = match[2],
+     next1 = match[3];
      /*<<hashtbl.ml:564:23>>*/ if
      (0 ===  /*<<hashtbl.ml:564:9>>*/ caml_compare(key, k1))
       /*<<hashtbl.ml:564:33>>*/ return [0, d1];
      /*<<hashtbl.ml:565:6>>*/ if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
-    var k2 = next1[1], d2 = next1[2], next2 = next1[3];
+    var
+     k2 =  /*<<hashtbl.ml:565:6>>*/ next1[1],
+     d2 = next1[2],
+     next2 = next1[3];
      /*<<hashtbl.ml:568:27>>*/ if
      (0 ===  /*<<hashtbl.ml:568:13>>*/ caml_compare(key, k2))
       /*<<hashtbl.ml:568:37>>*/ return [0, d2];
      /*<<hashtbl.ml:569:10>>*/ if(! next2)
       /*<<hashtbl.ml:570:21>>*/ return 0;
-    var k3 = next2[1], d3 = next2[2], next3 = next2[3];
+    var
+     k3 =  /*<<hashtbl.ml:569:10>>*/ next2[1],
+     d3 = next2[2],
+     next3 = next2[3];
      /*<<hashtbl.ml:572:31>>*/ if
      (0 ===  /*<<hashtbl.ml:572:17>>*/ caml_compare(key, k3))
       /*<<hashtbl.ml:572:41>>*/ return [0, d3];
-    var param = next3;
-     /*<<hashtbl.ml:554:21>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:556:6>>*/ return 0;
-     var k = param[1], data = param[2], next = param[3];
+    var param =  /*<<hashtbl.ml:572:54>>*/ next3;
+    for(;;){
+      /*<<hashtbl.ml:554:21>>*/ if(! param)
+       /*<<hashtbl.ml:556:6>>*/ return 0;
+     var
+      k =  /*<<hashtbl.ml:554:21>>*/ param[1],
+      data = param[2],
+      next = param[3];
       /*<<hashtbl.ml:558:22>>*/ if
       (0 ===  /*<<hashtbl.ml:558:9>>*/ caml_compare(key, k))
        /*<<hashtbl.ml:558:32>>*/ return [0, data];
-     param = next;
+      /*<<hashtbl.ml:558:47>>*/ param = next;
     }
     /*<<hashtbl.ml:572:76>>*/ }
    function find_all(h, key){
     var
      _o_ =  /*<<hashtbl.ml:582:25>>*/ key_index(h, key),
-     param =  /*<<hashtbl.ml:582:17>>*/ caml_check_bound(h[2], _o_)[1 + _o_];
-     /*<<hashtbl.ml:575:43>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:577:6>>*/ return 0;
-     var k = param[1], data = param[2], next = param[3];
+     param =
+        /*<<hashtbl.ml:582:41>>*/  /*<<hashtbl.ml:582:17>>*/ caml_check_bound
+         (h[2], _o_)
+        [1 + _o_];
+     /*<<hashtbl.ml:582:41>>*/ for(;;){
+      /*<<hashtbl.ml:575:43>>*/ if(! param)
+       /*<<hashtbl.ml:577:6>>*/ return 0;
+     var
+      k =  /*<<hashtbl.ml:575:43>>*/ param[1],
+      data = param[2],
+      next = param[3];
       /*<<hashtbl.ml:579:22>>*/ if
       (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k, key))
       break;
-     param = next;
+      /*<<hashtbl.ml:581:11>>*/ param = next;
     }
     var
      block =  /*<<hashtbl.ml:580:11>>*/ [0, data, 24029],
-     dst = block,
+     dst =  /*<<hashtbl.ml:580:19>>*/ block,
      offset = 1,
      param$0 = next;
-     /*<<hashtbl.ml:575:43>>*/ for(;;){
-     if(! param$0){
+    for(;;){
+      /*<<hashtbl.ml:575:43>>*/ if(! param$0){
        /*<<hashtbl.ml:577:6>>*/ dst[1 + offset] = 0;
        /*<<hashtbl.ml:580:38>>*/ return block;
      }
-     var k$0 = param$0[1], data$0 = param$0[2], next$0 = param$0[3];
+     var
+      k$0 =  /*<<hashtbl.ml:575:43>>*/ param$0[1],
+      data$0 = param$0[2],
+      next$0 = param$0[3];
       /*<<hashtbl.ml:579:22>>*/ if
       (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
       var dst$0 =  /*<<hashtbl.ml:580:11>>*/ [0, data$0, 24029];
@@ -26512,46 +27284,50 @@
       param$0 = next$0;
      }
      else
-      param$0 = next$0;
+       /*<<hashtbl.ml:581:11>>*/ param$0 = next$0;
     }
     /*<<hashtbl.ml:582:41>>*/ }
    function replace(h, key, data){
     var
      i =  /*<<hashtbl.ml:593:10>>*/ key_index(h, key),
      l =  /*<<hashtbl.ml:594:10>>*/ caml_check_bound(h[2], i)[1 + i],
-     slot = l;
-     /*<<hashtbl.ml:584:23>>*/ for(;;){
-     if(slot){
+     slot =  /*<<hashtbl.ml:595:5>>*/ l;
+    for(;;){
+      /*<<hashtbl.ml:584:23>>*/ if(slot){
       var k = slot[1], next = slot[3];
        /*<<hashtbl.ml:588:22>>*/ if
-       (0 !==  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key)){slot = next; continue;}
+       (0 !==  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key)){ /*<<hashtbl.ml:590:11>>*/ slot = next; continue;}
        /*<<hashtbl.ml:589:11>>*/ slot[1] = key;
        /*<<hashtbl.ml:589:29>>*/ slot[2] = data;
-      var _l_ = 0;
+      var _l_ =  /*<<hashtbl.ml:589:48>>*/ 0;
      }
      else
-      var _l_ = 1;
+      var _l_ =  /*<<hashtbl.ml:586:6>>*/ 1;
       /*<<hashtbl.ml:595:30>>*/ if(_l_){
        /*<<hashtbl.ml:596:4>>*/ caml_check_bound(h[2], i)[1 + i] = [0, key, data, l];
        /*<<hashtbl.ml:596:41>>*/ h[1] = h[1] + 1 | 0;
       var _m_ =  /*<<hashtbl.ml:598:4>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
       if(_m_)
         /*<<hashtbl.ml:598:47>>*/ return resize(key_index, h) /*<<hashtbl.ml:599:5>>*/ ;
-      var _n_ = _m_;
+      var _n_ =  /*<<hashtbl.ml:598:4>>*/ _m_;
      }
      else
-      var _n_ = _l_;
+      var _n_ =  /*<<hashtbl.ml:595:30>>*/ _l_;
      return _n_;
     }
-   }
+    /*<<hashtbl.ml:599:5>>*/ }
    function mem(h, key){
     var
      _k_ =  /*<<hashtbl.ml:608:28>>*/ key_index(h, key),
-     param =  /*<<hashtbl.ml:608:20>>*/ caml_check_bound(h[2], _k_)[1 + _k_];
-     /*<<hashtbl.ml:601:22>>*/ for(;;){
-     if(! param)  /*<<hashtbl.ml:603:6>>*/ return 0;
+     param =
+        /*<<hashtbl.ml:608:44>>*/  /*<<hashtbl.ml:608:20>>*/ caml_check_bound
+         (h[2], _k_)
+        [1 + _k_];
+     /*<<hashtbl.ml:608:44>>*/ for(;;){
+      /*<<hashtbl.ml:601:22>>*/ if(! param)
+       /*<<hashtbl.ml:603:6>>*/ return 0;
      var
-      k = param[1],
+      k =  /*<<hashtbl.ml:601:22>>*/ param[1],
       next = param[3],
       _j_ =
          /*<<hashtbl.ml:605:19>>*/ 0
@@ -26596,7 +27372,9 @@
      var
       _g_ =
          /*<<hashtbl.ml:624:37>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
-      seed =  /*<<hashtbl.ml:624:19>>*/ caml_call1(Stdlib_Random[19][4], _g_);
+      seed =
+         /*<<hashtbl.ml:624:62>>*/  /*<<hashtbl.ml:624:19>>*/ caml_call1
+         (Stdlib_Random[19][4], _g_);
     else
      var seed =  /*<<hashtbl.ml:625:9>>*/ 4 <= h.length - 1 ? h[3] : 0;
     var
@@ -26716,7 +27494,7 @@
     var
      _G_ =  /*<<weak.ml:36:2>>*/ 0 <= o ? 1 : 0,
      _H_ = _G_ ? o <  /*<<weak.ml:36:24>>*/ length(e) ? 1 : 0 : _G_,
-     _I_ = 1 - _H_;
+     _I_ =  /*<<weak.ml:36:2>>*/ 1 - _H_;
     return _I_ ?  /*<<weak.ml:37:4>>*/ caml_call1(Stdlib[1], msg) : _I_ /*<<weak.ml:37:20>>*/ ;
    }
    function set(e, o, x){
@@ -26724,8 +27502,9 @@
      /*<<weak.ml:42:40>>*/ if(! x)
       /*<<weak.ml:44:21>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
              (e, o) /*<<weak.ml:45:24>>*/ ;
-    var x$0 = x[1];
-    return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key(e, o, x$0) /*<<weak.ml:45:24>>*/ ;
+    var x$0 =  /*<<weak.ml:42:40>>*/ x[1];
+     /*<<weak.ml:45:24>>*/ return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key
+            (e, o, x$0) /*<<weak.ml:45:24>>*/ ;
    }
    function get(e, o){
      /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
@@ -26757,7 +27536,7 @@
          ?  /*<<weak.ml:69:22>>*/ runtime.caml_ephe_blit_key
            (e1, o1, e2, o2, l)
          : _E_;
-     return _F_;
+      /*<<weak.ml:69:7>>*/ return _F_;
     }
      /*<<weak.ml:68:7>>*/ return caml_call1(Stdlib[1], cst_Weak_blit) /*<<weak.ml:69:40>>*/ ;
    }
@@ -26775,7 +27554,7 @@
        i = _D_;
       }
      }
-     return 0;
+      /*<<weak.ml:74:7>>*/ return 0;
     }
      /*<<weak.ml:73:7>>*/ throw caml_maybe_attach_backtrace
            ([0, Stdlib[6], cst_Weak_fill], 1);
@@ -26820,7 +27599,7 @@
              (Stdlib_Array[20],
               function(b, accu$1){
                var i$0 = i, accu = accu$1;
-                /*<<weak.ml:144:6>>*/ for(;;){
+               for(;;){
                  /*<<weak.ml:144:22>>*/ if
                  ( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
                   /*<<weak.ml:144:28>>*/ return accu;
@@ -26846,7 +27625,7 @@
              (Stdlib_Array[12],
               function(b){
                var i$0 = i;
-                /*<<weak.ml:154:6>>*/ for(;;){
+               for(;;){
                  /*<<weak.ml:154:22>>*/ if
                  ( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
                   /*<<weak.ml:154:28>>*/ return 0;
@@ -26865,13 +27644,13 @@
     }
     function count_bucket(i, b, accu){
      var i$0 = i, accu$0 = accu;
-      /*<<weak.ml:173:4>>*/ for(;;){
+     for(;;){
        /*<<weak.ml:173:20>>*/ if( /*<<weak.ml:173:12>>*/ length(b) <= i$0)
         /*<<weak.ml:173:26>>*/ return accu$0;
       var
        _y_ =
           /*<<weak.ml:174:46>>*/  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
-       accu$1 = accu$0 + _y_ | 0,
+       accu$1 =  /*<<weak.ml:174:46>>*/ accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
       i$0 = i$1;
       accu$0 = accu$1;
@@ -26894,9 +27673,9 @@
       hashes =
          /*<<weak.ml:239:17>>*/ caml_check_bound(t[2], index)[1 + index],
       sz =  /*<<weak.ml:240:13>>*/ length(bucket$0),
-      i$3 = 0;
-      /*<<weak.ml:242:6>>*/ for(;;){
-      if(sz <= i$3) break;
+      i$3 =  /*<<weak.ml:267:4>>*/ 0;
+     for(;;){
+       /*<<weak.ml:242:6>>*/ if(sz <= i$3) break;
        /*<<weak.ml:260:32>>*/ if
        (!  /*<<weak.ml:260:18>>*/ check(bucket$0, i$3)){
         /*<<weak.ml:263:8>>*/ caml_call3(setter, bucket$0, i$3, d);
@@ -26930,7 +27709,7 @@
       _s_ = _r_ ? t[3] < newsz ? 1 : 0 : _r_;
      if(_s_){
        /*<<weak.ml:255:49>>*/ t[4] = t[4] + 1 | 0;
-      var i$4 = 0;
+      var i$4 =  /*<<weak.ml:257:10>>*/ 0;
       for(;;){
        var
         _h_ =  /*<<weak.ml:185:4>>*/ t[5],
@@ -26946,10 +27725,10 @@
          j$2 =
             /*<<weak.ml:201:27>>*/  /*<<weak.ml:201:14>>*/ length(bucket) - 1
            | 0,
-         i$0 = 0,
+         i$0 =  /*<<weak.ml:201:6>>*/ 0,
          j = j$2;
-         /*<<weak.ml:192:8>>*/ for(;;){
-         if(prev_len > j) break;
+        for(;;){
+          /*<<weak.ml:192:8>>*/ if(prev_len > j) break;
           /*<<weak.ml:193:27>>*/ if
           ( /*<<weak.ml:193:13>>*/ check(bucket, i$0)){
           var i$1 =  /*<<weak.ml:193:33>>*/ i$0 + 1 | 0;
@@ -27011,7 +27790,7 @@
        (Stdlib_Array[13],
         function(j, ob){
          var oi = i;
-          /*<<weak.ml:164:6>>*/ for(;;){
+         for(;;){
            /*<<weak.ml:164:22>>*/ if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
             /*<<weak.ml:164:28>>*/ return 0;
            /*<<weak.ml:165:21>>*/ if( /*<<weak.ml:165:12>>*/ check(ob, oi)){
@@ -27057,9 +27836,9 @@
       hashes =
          /*<<weak.ml:281:17>>*/ caml_check_bound(t[2], index)[1 + index],
       sz =  /*<<weak.ml:282:13>>*/ length(bucket),
-      i = 0;
-      /*<<weak.ml:284:6>>*/ for(;;){
-      if(sz <= i)
+      i =  /*<<weak.ml:291:4>>*/ 0;
+     for(;;){
+       /*<<weak.ml:284:6>>*/ if(sz <= i)
         /*<<weak.ml:284:22>>*/ return caml_call2(notfound, h, index) /*<<weak.ml:291:10>>*/ ;
        /*<<weak.ml:285:28>>*/ if
        (h ===  /*<<weak.ml:285:18>>*/ caml_check_bound(hashes, i)[1 + i]){
@@ -27142,10 +27921,10 @@
       hashes =
          /*<<weak.ml:313:17>>*/ caml_check_bound(t[2], index)[1 + index],
       sz =  /*<<weak.ml:314:13>>*/ length(bucket),
-      i = 0,
+      i =  /*<<weak.ml:323:4>>*/ 0,
       accu = 0;
-      /*<<weak.ml:316:6>>*/ for(;;){
-      if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
+     for(;;){
+       /*<<weak.ml:316:6>>*/ if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
        /*<<weak.ml:317:28>>*/ if
        (h ===  /*<<weak.ml:317:18>>*/ caml_check_bound(hashes, i)[1 + i]){
        var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
@@ -27354,12 +28133,12 @@
          /*<<format.ml:348:49>>*/ if(! match$3)
           /*<<format.ml:349:14>>*/ return;
         var
-         tabs = match$3[1][1],
+         tabs =  /*<<format.ml:348:49>>*/ match$3[1][1],
          add_tab =
             /*<<format.ml:351:6>>*/ function(n, ls){
              /*<<format.ml:351:22>>*/ if(! ls)
               /*<<format.ml:352:16>>*/ return [0, n, 0];
-            var l = ls[2], x = ls[1];
+            var l =  /*<<format.ml:351:22>>*/ ls[2], x = ls[1];
              /*<<format.ml:353:34>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
                      (n, x)
                     ? [0, n, ls]
@@ -27380,7 +28159,7 @@
             /*<<format.ml:378:16>>*/ caml_call1(Stdlib_Stack[8], state[2]);
          /*<<format.ml:378:51>>*/ if(! match$4)
           /*<<format.ml:379:14>>*/ return pp_output_newline(state) /*<<format.ml:424:8>>*/ ;
-        var width$0 = match$4[1][2];
+        var width$0 =  /*<<format.ml:378:51>>*/ match$4[1][2];
          /*<<format.ml:281:29>>*/ return break_new_line(state, _a_, width$0) /*<<format.ml:424:8>>*/ ;
        case 4:
         var
@@ -27394,7 +28173,10 @@
             /*<<format.ml:306:8>>*/ caml_call1(Stdlib_Queue[6], state[28]);
          /*<<format.ml:306:37>>*/ if(! match$1)
           /*<<format.ml:307:12>>*/ return;
-        var match$2 = match$1[1], size = match$2[1], length = match$2[3];
+        var
+         match$2 =  /*<<format.ml:306:37>>*/ match$1[1],
+         size = match$2[1],
+         length = match$2[3];
          /*<<format.ml:309:4>>*/ state[12] = state[12] - length | 0;
          /*<<format.ml:310:65>>*/ state[9] = state[9] + size | 0;
         return;
@@ -27405,17 +28187,17 @@
          /*<<format.ml:419:50>>*/ if(! match$5)
           /*<<format.ml:420:15>>*/ return;
         var
-         tag_name = match$5[1],
+         tag_name =  /*<<format.ml:419:50>>*/ match$5[1],
          marker =  /*<<format.ml:422:20>>*/ caml_call1(state[25], tag_name);
          /*<<format.ml:423:7>>*/ return pp_output_string(state, marker) /*<<format.ml:424:8>>*/ ;
      }
-    switch(param[0]){
+     /*<<format.ml:320:20>>*/ switch(param[0]){
       case 0:
        var s = param[1];
         /*<<format.ml:323:4>>*/ return format_pp_text(state, size$0, s) /*<<format.ml:424:8>>*/ ;
       case 1:
        var
-        breaks = param[2],
+        breaks =  /*<<format.ml:320:20>>*/ param[2],
         fits = param[1],
         off =  /*<<format.ml:388:4>>*/ breaks[2],
         before = breaks[1],
@@ -27424,7 +28206,7 @@
         /*<<format.ml:389:51>>*/ if(! match$6)
          /*<<format.ml:390:14>>*/ return;
        var
-        match$7 = match$6[1],
+        match$7 =  /*<<format.ml:389:51>>*/ match$6[1],
         width$1 = match$7[2],
         box_type$0 = match$7[1];
         /*<<format.ml:392:6>>*/ switch(box_type$0){
@@ -27468,7 +28250,7 @@
        }
       case 2:
        var
-        off$0 = param[2],
+        off$0 =  /*<<format.ml:320:20>>*/ param[2],
         n = param[1],
         insertion_point =  /*<<format.ml:358:4>>*/ state[6] - state[9] | 0,
         match$8 =
@@ -27476,25 +28258,27 @@
         /*<<format.ml:359:49>>*/ if(! match$8)
          /*<<format.ml:360:14>>*/ return;
        var
-        tabs$0 = match$8[1][1],
+        tabs$0 =  /*<<format.ml:359:49>>*/ match$8[1][1],
         match$9 =  /*<<format.ml:362:6>>*/ tabs$0[1];
        if(match$9){
-        var first = match$9[1], param$0 = tabs$0[1];
-         /*<<format.ml:366:25>>*/ for(;;){
-         if(param$0){
+        var first = match$9[1], param$0 =  /*<<format.ml:370:10>>*/ tabs$0[1];
+        for(;;){
+          /*<<format.ml:366:25>>*/ if(param$0){
           var tail = param$0[2], head = param$0[1];
-           /*<<format.ml:368:14>>*/ if(insertion_point > head){param$0 = tail; continue;
+           /*<<format.ml:368:14>>*/ if(insertion_point > head){
+            /*<<format.ml:368:56>>*/ param$0 = tail;
+           continue;
           }
-          var _a9_ = head;
+          var _a9_ =  /*<<format.ml:368:46>>*/ head;
          }
          else
-          var _a9_ = first;
-         var tab = _a9_;
+          var _a9_ =  /*<<format.ml:369:20>>*/ first;
+         var tab =  /*<<format.ml:370:20>>*/ _a9_;
          break;
         }
        }
        else
-        var tab = insertion_point;
+        var tab =  /*<<format.ml:364:16>>*/ insertion_point;
        var offset =  /*<<format.ml:371:6>>*/ tab - insertion_point | 0;
         /*<<format.ml:372:6>>*/ return 0 <= offset
                ?  /*<<format.ml:373:11>>*/ break_same_line
@@ -27503,7 +28287,7 @@
                  (state, [0, cst$2, tab + off$0 | 0, cst$1], state[6]) /*<<format.ml:424:8>>*/ ;
       case 3:
        var
-        ty = param[2],
+        ty =  /*<<format.ml:320:20>>*/ param[2],
         off$1 = param[1],
         insertion_point$0 =  /*<<format.ml:326:4>>*/ state[6] - state[9] | 0;
         /*<<format.ml:327:4>>*/ if(state[8] < insertion_point$0){
@@ -27520,18 +28304,18 @@
           /*<<format.ml:296:12>>*/ pp_output_newline(state);
        }
        var
-        width$2 = state[9] - off$1 | 0,
+        width$2 =  /*<<format.ml:327:4>>*/ state[9] - off$1 | 0,
         box_type$1 =
            /*<<format.ml:331:4>>*/ 1 === ty ? 1 : state[9] < size$0 ? ty : 5;
         /*<<format.ml:336:4>>*/ return caml_call2
                (Stdlib_Stack[3], [0, box_type$1, width$2], state[2]) /*<<format.ml:424:8>>*/ ;
       case 4:
-       var tbox = param[1];
+       var tbox =  /*<<format.ml:320:20>>*/ param[1];
         /*<<format.ml:342:4>>*/ return caml_call2
                (Stdlib_Stack[3], tbox, state[3]) /*<<format.ml:424:8>>*/ ;
       default:
        var
-        tag_name$0 = param[1],
+        tag_name$0 =  /*<<format.ml:320:20>>*/ param[1],
         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:415:34>>*/ return caml_call2
@@ -27544,7 +28328,7 @@
       match =  /*<<format.ml:431:8>>*/ caml_call1(Stdlib_Queue[9], state[28]);
       /*<<format.ml:431:37>>*/ if(! match)  /*<<format.ml:432:12>>*/ return 0;
      var
-      match$0 = match[1],
+      match$0 =  /*<<format.ml:431:37>>*/ match[1],
       size = match$0[1],
       length = match$0[3],
       token = match$0[2],
@@ -27578,7 +28362,7 @@
      match =  /*<<format.ml:476:8>>*/ caml_call1(Stdlib_Stack[8], state[1]);
      /*<<format.ml:476:41>>*/ if(! match)  /*<<format.ml:477:12>>*/ return;
     var
-     match$0 = match[1],
+     match$0 =  /*<<format.ml:476:41>>*/ match[1],
      queue_elem = match$0[2],
      left_total = match$0[1],
      size =  /*<<format.ml:479:4>>*/ queue_elem[1];
@@ -27593,7 +28377,7 @@
           /*<<format.ml:492:70>>*/ queue_elem[1] = x$0;
           /*<<format.ml:493:10>>*/ caml_call1(Stdlib_Stack[5], state[1]);
         }
-        return;
+         /*<<format.ml:491:8>>*/ return;
        case 1:
        case 2:
          /*<<format.ml:486:8>>*/ if(ty){
@@ -27601,14 +28385,14 @@
           /*<<format.ml:487:70>>*/ queue_elem[1] = x;
           /*<<format.ml:488:10>>*/ caml_call1(Stdlib_Stack[5], state[1]);
         }
-        return;
+         /*<<format.ml:486:8>>*/ return;
      }
     /*<<format.ml:497:10>>*/ }
    function scan_push(state, b, token){
      /*<<format.ml:503:2>>*/ pp_enqueue(state, token);
      /*<<format.ml:503:24>>*/ if(b)
       /*<<format.ml:504:12>>*/ set_size(state, 1);
-    var elem = [0, state[13], token];
+    var elem =  /*<<format.ml:503:24>>*/ [0, state[13], token];
      /*<<format.ml:506:2>>*/ return caml_call2
             (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
    }
@@ -27635,11 +28419,11 @@
        /*<<format.ml:532:6>>*/ set_size(state, 1);
        /*<<format.ml:532:27>>*/ set_size(state, 0);
      }
-     state[14] = state[14] - 1 | 0;
+      /*<<format.ml:528:2>>*/ state[14] = state[14] - 1 | 0;
      var _a3_ = 0;
     }
     else
-     var _a3_ = _a2_;
+     var _a3_ =  /*<<format.ml:527:2>>*/ _a2_;
     return _a3_;
     /*<<format.ml:535:5>>*/ }
    function pp_open_stag(state, tag_name){
@@ -27647,7 +28431,7 @@
       /*<<format.ml:542:4>>*/ caml_call2(Stdlib_Stack[3], tag_name, state[4]);
       /*<<format.ml:543:4>>*/ caml_call1(state[26], tag_name);
     }
-    var _a1_ = state[23];
+    var _a1_ =  /*<<format.ml:540:2>>*/ state[23];
     if(! _a1_) return _a1_;
     var token =  /*<<format.ml:546:4>>*/ [5, tag_name];
      /*<<format.ml:547:4>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
@@ -27655,7 +28439,7 @@
    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];
+    var _aZ_ =  /*<<format.ml:552:2>>*/ state[22];
     if(_aZ_){
      var
       match =  /*<<format.ml:555:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
@@ -27663,12 +28447,12 @@
       var tag_name = match[1];
        /*<<format.ml:558:6>>*/ return caml_call1(state[27], tag_name) /*<<format.ml:558:39>>*/ ;
      }
-     var _a0_ = 0;
+     var _a0_ =  /*<<format.ml:556:14>>*/ 0;
     }
     else
-     var _a0_ = _aZ_;
+     var _a0_ =  /*<<format.ml:552:2>>*/ _aZ_;
     return _a0_;
-   }
+    /*<<format.ml:558:39>>*/ }
    function pp_set_print_tags(state, b){
      /*<<format.ml:560:32>>*/ state[22] = b;
     return 0;
@@ -27727,13 +28511,13 @@
         /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0) /*<<format.ml:603:45>>*/ ;
       },
       state[4]);
-     /*<<format.ml:610:4>>*/ for(;;){
+     /*<<format.ml:608:23>>*/ for(;;){
      if(1 >= state[14]){
        /*<<format.ml:612:2>>*/ state[13] = pp_infinity;
        /*<<format.ml:613:2>>*/ advance_left(state);
        /*<<format.ml:613:20>>*/ if(end_with_newline)
         /*<<format.ml:614:27>>*/ pp_output_newline(state);
-      return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
+       /*<<format.ml:613:20>>*/ return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
      }
       /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
     }
@@ -27856,10 +28640,10 @@
       var _aT_ = 0;
      }
      else
-      var _aT_ = _aS_;
+      var _aT_ =  /*<<format.ml:732:2>>*/ _aS_;
     }
     else
-     var _aT_ = _aR_;
+     var _aT_ =  /*<<format.ml:731:2>>*/ _aR_;
     return _aT_;
     /*<<format.ml:737:5>>*/ }
    function pp_print_tbreak(state, width, offset){
@@ -27922,14 +28706,15 @@
     var n$0 =  /*<<format.ml:801:12>>*/ pp_limit(n);
      /*<<format.ml:802:4>>*/ state[6] = n$0;
      /*<<format.ml:803:4>>*/ if(state[8] <= state[6])
-     var new_max_indent = state[8];
+     var new_max_indent =  /*<<format.ml:806:11>>*/ state[8];
     else
      var
       _aK_ =
          /*<<format.ml:810: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:811:40>>*/  /*<<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>>*/ ;
    }
    function validate_geometry(param){
@@ -27960,7 +28745,7 @@
      /*<<format.ml:842:34>>*/ if(0 === match[0])
       /*<<format.ml:846:4>>*/ return pp_set_full_geometry(state, geometry) /*<<format.ml:846:39>>*/ ;
     var
-     msg = match[1],
+     msg =  /*<<format.ml:842:34>>*/ match[1],
      _aI_ =
         /*<<format.ml:844:28>>*/ caml_call2
         (Stdlib[28], cst_Format_pp_set_geometry, msg);
@@ -28021,8 +28806,8 @@
     _g_ = [3, 0, 3];
    function display_blanks(state, n){
     var n$0 = n;
-     /*<<format.ml:900:2>>*/ for(;;){
-     var _aH_ = 0 < n$0 ? 1 : 0;
+    for(;;){
+     var _aH_ =  /*<<format.ml:900:2>>*/ 0 < n$0 ? 1 : 0;
      if(! _aH_) return _aH_;
       /*<<format.ml:901:2>>*/ if(80 >= n$0)
        /*<<format.ml:901:18>>*/ return caml_call3
@@ -28051,7 +28836,7 @@
      /*<<format.ml:926:31>>*/ if(param[1] !== String_tag)
       /*<<format.ml:928:9>>*/ return cst$10;
     var
-     s = param[2],
+     s =  /*<<format.ml:926:31>>*/ param[2],
      _aD_ =  /*<<format.ml:927:26>>*/ caml_call2(Stdlib[28], s, cst$8);
      /*<<format.ml:927:33>>*/ return caml_call2(Stdlib[28], cst$9, _aD_) /*<<format.ml:928:11>>*/ ;
    }
@@ -28059,7 +28844,7 @@
      /*<<format.ml:929:32>>*/ if(param[1] !== String_tag)
       /*<<format.ml:931:9>>*/ return cst$13;
     var
-     s = param[2],
+     s =  /*<<format.ml:929:32>>*/ param[2],
      _aC_ =  /*<<format.ml:930:27>>*/ caml_call2(Stdlib[28], s, cst$11);
      /*<<format.ml:930:34>>*/ return caml_call2(Stdlib[28], cst$12, _aC_) /*<<format.ml:931:11>>*/ ;
    }
@@ -28706,7 +29491,7 @@
        /*<<format.ml:1260:22>>*/ is_first[1] = 0;
      else
        /*<<format.ml:1260:45>>*/ caml_call2(pp_sep, ppf, 0);
-     return caml_call2(pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
+      /*<<format.ml:1260:4>>*/ return caml_call2(pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
     }
      /*<<format.ml:1263:2>>*/ return caml_call2(iter, pp_v$0, v) /*<<format.ml:1263:13>>*/ ;
    }
@@ -28739,7 +29524,7 @@
       /*<<format.ml:1284:16>>*/ left[1] = right[1];
      return 0;
      /*<<format.ml:1284:31>>*/ }
-    for(;;){
+     /*<<format.ml:1286:2>>*/ for(;;){
      if(right[1] === len){
       var _O_ =  /*<<format.ml:1297:2>>*/ left[1] !== len ? 1 : 0;
       return _O_ ?  /*<<format.ml:1297:23>>*/ flush(0) : _O_ /*<<format.ml:1297:31>>*/ ;
@@ -28767,9 +29552,9 @@
          (_N_, param){
            /*<<format.ml:1299:41>>*/ return 0;
           /*<<format.ml:1299:43>>*/ };
-    if(! param)
+     /*<<format.ml:1299:20>>*/ if(! param)
       /*<<format.ml:1300:10>>*/ return caml_call2(none, ppf, 0) /*<<format.ml:1301:22>>*/ ;
-    var v = param[1];
+    var v =  /*<<format.ml:1299:20>>*/ param[1];
      /*<<format.ml:1301:12>>*/ return caml_call2(pp_v, ppf, v) /*<<format.ml:1301:22>>*/ ;
    }
    function pp_print_result(ok, error, ppf, param){
@@ -28777,7 +29562,7 @@
      var v = param[1];
       /*<<format.ml:1304:10>>*/ return caml_call2(ok, ppf, v) /*<<format.ml:1305:24>>*/ ;
     }
-    var e = param[1];
+    var e =  /*<<format.ml:1303:20>>*/ param[1];
      /*<<format.ml:1305:13>>*/ return caml_call2(error, ppf, e) /*<<format.ml:1305:24>>*/ ;
    }
    function pp_print_either(left, right, ppf, param){
@@ -28785,7 +29570,7 @@
      var l = param[1];
       /*<<format.ml:1308:19>>*/ return caml_call2(left, ppf, l) /*<<format.ml:1309:31>>*/ ;
     }
-    var r = param[1];
+    var r =  /*<<format.ml:1307:20>>*/ param[1];
      /*<<format.ml:1309:20>>*/ return caml_call2(right, ppf, r) /*<<format.ml:1309:31>>*/ ;
    }
    function compute_tag(output, tag_acc){
@@ -28818,14 +29603,14 @@
        default:
          /*<<format.ml:1342:33>>*/ return pp_print_char(ppf, 37) /*<<format.ml:1343:75>>*/ ;
      }
-    switch(fmting_lit[0]){
+     /*<<format.ml:1333:43>>*/ 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:1343:75>>*/ ;
       case 1:
         /*<<format.ml:1340:33>>*/ return 0;
       default:
-       var c = fmting_lit[1];
+       var c =  /*<<format.ml:1333:43>>*/ fmting_lit[1];
         /*<<format.ml:1343:33>>*/ pp_print_char(ppf, 64);
         /*<<format.ml:1343:54>>*/ return pp_print_char(ppf, c) /*<<format.ml:1343:75>>*/ ;
     }
@@ -28839,13 +29624,13 @@
      {
       c:
       {
-       switch(acc[0]){
+        /*<<format.ml:1349:29>>*/ switch(acc[0]){
          case 0:
           var f = acc[2], p = acc[1];
            /*<<format.ml:1359:4>>*/ output_acc(ppf, p);
            /*<<format.ml:1359:20>>*/ return output_formatting_lit(ppf, f) /*<<format.ml:1375:34>>*/ ;
          case 1:
-          var match = acc[2], p$0 = acc[1];
+          var match =  /*<<format.ml:1349:29>>*/ acc[2], p$0 = acc[1];
           if(0 === match[0]){
            var acc$0 = match[1];
             /*<<format.ml:1362:4>>*/ output_acc(ppf, p$0);
@@ -28855,7 +29640,7 @@
                      String_tag,
                       /*<<format.ml:1363:33>>*/ compute_tag(output_acc, acc$0)]) /*<<format.ml:1375:34>>*/ ;
           }
-          var acc$1 = match[1];
+          var acc$1 =  /*<<format.ml:1349:29>>*/ match[1];
            /*<<format.ml:1365:4>>*/ output_acc(ppf, p$0);
           var
            _E_ =  /*<<format.ml:1366:43>>*/ compute_tag(output_acc, acc$1),
@@ -28866,7 +29651,7 @@
            indent = match$0[1];
            /*<<format.ml:1367:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1375:34>>*/ ;
          case 2:
-          var _F_ = acc[1];
+          var _F_ =  /*<<format.ml:1349:29>>*/ acc[1];
           if(typeof _F_ !== "number" && 0 === _F_[0]){
            var _G_ = _F_[2];
            if(typeof _G_ !== "number" && 1 === _G_[0]){
@@ -28914,11 +29699,11 @@
            /*<<format.ml:1372:32>>*/ output_acc(ppf, p$5);
            /*<<format.ml:1372:48>>*/ return caml_call1(f$0, ppf) /*<<format.ml:1375:34>>*/ ;
          case 7:
-          var p$6 = acc[1];
+          var p$6 =  /*<<format.ml:1349:29>>*/ acc[1];
            /*<<format.ml:1373:32>>*/ output_acc(ppf, p$6);
            /*<<format.ml:1373:48>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1375:34>>*/ ;
          default:
-          var msg = acc[2], p$7 = acc[1];
+          var msg =  /*<<format.ml:1349:29>>*/ acc[2], p$7 = acc[1];
            /*<<format.ml:1374:32>>*/ output_acc(ppf, p$7);
            /*<<format.ml:1374:48>>*/ return caml_call1(Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
        }
@@ -28947,13 +29732,13 @@
      {
       c:
       {
-       switch(acc[0]){
+        /*<<format.ml:1381:29>>*/ switch(acc[0]){
          case 0:
           var f = acc[2], p = acc[1];
            /*<<format.ml:1394:4>>*/ strput_acc(ppf, p);
            /*<<format.ml:1394:20>>*/ return output_formatting_lit(ppf, f) /*<<format.ml:1410:34>>*/ ;
          case 1:
-          var match = acc[2], p$0 = acc[1];
+          var match =  /*<<format.ml:1381:29>>*/ acc[2], p$0 = acc[1];
           if(0 === match[0]){
            var acc$0 = match[1];
             /*<<format.ml:1397:4>>*/ strput_acc(ppf, p$0);
@@ -28963,7 +29748,7 @@
                      String_tag,
                       /*<<format.ml:1398:33>>*/ compute_tag(strput_acc, acc$0)]) /*<<format.ml:1410:34>>*/ ;
           }
-          var acc$1 = match[1];
+          var acc$1 =  /*<<format.ml:1381:29>>*/ match[1];
            /*<<format.ml:1400:4>>*/ strput_acc(ppf, p$0);
           var
            _v_ =  /*<<format.ml:1401:43>>*/ compute_tag(strput_acc, acc$1),
@@ -28974,7 +29759,7 @@
            indent = match$0[1];
            /*<<format.ml:1402:4>>*/ return pp_open_box_gen(ppf, indent, bty) /*<<format.ml:1410:34>>*/ ;
          case 2:
-          var _w_ = acc[1];
+          var _w_ =  /*<<format.ml:1381:29>>*/ acc[1];
           if(typeof _w_ !== "number" && 0 === _w_[0]){
            var _x_ = _w_[2];
            if(typeof _x_ !== "number" && 1 === _x_[0]){
@@ -29028,16 +29813,16 @@
                     (ppf, size$1,  /*<<format.ml:1392:44>>*/ caml_call1(f$1, 0)) /*<<format.ml:1410:34>>*/ ;
            }
           }
-          var f$0 = acc[2];
+          var f$0 =  /*<<format.ml:1381:29>>*/ acc[2];
            /*<<format.ml:1407:32>>*/ strput_acc(ppf, p$5);
            /*<<format.ml:1407:76>>*/ return pp_print_string
                   (ppf,  /*<<format.ml:1407:70>>*/ caml_call1(f$0, 0)) /*<<format.ml:1410:34>>*/ ;
          case 7:
-          var p$7 = acc[1];
+          var p$7 =  /*<<format.ml:1381:29>>*/ acc[1];
            /*<<format.ml:1408:32>>*/ strput_acc(ppf, p$7);
            /*<<format.ml:1408:48>>*/ return pp_print_flush(ppf, 0) /*<<format.ml:1410:34>>*/ ;
          default:
-          var msg = acc[2], p$8 = acc[1];
+          var msg =  /*<<format.ml:1381:29>>*/ acc[2], p$8 = acc[1];
            /*<<format.ml:1409:32>>*/ strput_acc(ppf, p$8);
            /*<<format.ml:1409:48>>*/ return caml_call1(Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
        }
@@ -29455,7 +30240,8 @@
     }
     catch(_aY_){
      var _aX_ = caml_wrap_exception(_aY_);
-     if(_aX_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_aX_, 0);
+      /*<<?>>*/ if(_aX_ !== Stdlib[12])
+      throw caml_maybe_attach_backtrace(_aX_, 0);
       /*<<scanf.ml:174:6>>*/ ib[2] = null_char;
       /*<<scanf.ml:175:6>>*/ ib[3] = 0;
       /*<<scanf.ml:176:6>>*/ ib[1] = 1;
@@ -29484,9 +30270,9 @@
     var match =  /*<<scanf.ml:207:4>>*/ ib[9];
     if(typeof match === "number")
      return 0 === match ? cst_unnamed_function : cst_unnamed_character_string /*<<scanf.ml:211:47>>*/ ;
-    if(0 === match[0])
+     /*<<scanf.ml:207:4>>*/ if(0 === match[0])
       /*<<scanf.ml:208:26>>*/ return cst_unnamed_Stdlib_input_chann;
-    var fname = match[1];
+    var fname =  /*<<scanf.ml:207:4>>*/ match[1];
      /*<<scanf.ml:209:32>>*/ return fname;
     /*<<scanf.ml:211:47>>*/ }
    function char_count(ib){
@@ -29585,7 +30371,8 @@
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
       /*<<scanf.ml:368:13>>*/ return stdin;
     var ic =  /*<<scanf.ml:370:15>>*/ caml_call1(open_in, fname);
-    return from_ic(scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
+     /*<<scanf.ml:371:6>>*/ return from_ic
+            (scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
    }
    var _b_ =  /*<<scanf.ml:364:50>>*/ Stdlib[79];
    function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
@@ -29597,11 +30384,11 @@
    function close_in(ib){
     var match =  /*<<scanf.ml:385:4>>*/ ib[9];
     if(typeof match === "number")  /*<<scanf.ml:389:37>>*/ return 0;
-    if(0 === match[0]){
+     /*<<scanf.ml:385:4>>*/ if(0 === match[0]){
      var ic = match[1];
       /*<<scanf.ml:387:6>>*/ return caml_call1(Stdlib[93], ic) /*<<scanf.ml:389:39>>*/ ;
     }
-    var ic$0 = match[2];
+    var ic$0 =  /*<<scanf.ml:385:4>>*/ match[2];
      /*<<scanf.ml:388:32>>*/ return caml_call1(Stdlib[93], ic$0) /*<<scanf.ml:389:39>>*/ ;
    }
    var
@@ -29725,9 +30512,9 @@
                   /*<<scanf.ml:482:47>>*/ check_this_char(ib, 10))
                :  /*<<scanf.ml:483:9>>*/ character_mismatch(10, ci) /*<<scanf.ml:471:29>>*/ ;
     }
-    if(32 !== c$0)
+     /*<<scanf.ml:468:2>>*/ if(32 !== c$0)
       /*<<scanf.ml:471:9>>*/ return check_this_char(ib, c$0) /*<<scanf.ml:471:29>>*/ ;
-     /*<<scanf.ml:444:2>>*/ for(;;){
+     /*<<scanf.ml:469:11>>*/ for(;;){
      var
       c =  /*<<scanf.ml:444:10>>*/ peek_char(ib),
       _aS_ =  /*<<scanf.ml:445:26>>*/ 1 - ib[1];
@@ -29789,24 +30576,35 @@
       case 0:
        var
         _aO_ =  /*<<scanf.ml:529:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:529:22>>*/ caml_call2(Stdlib[28], cst_0b, _aO_);
+        tok =
+           /*<<scanf.ml:529:46>>*/  /*<<scanf.ml:529:22>>*/ caml_call2
+           (Stdlib[28], cst_0b, _aO_);
        break;
       case 3:
        var
         _aP_ =  /*<<scanf.ml:527:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:527:22>>*/ caml_call2(Stdlib[28], cst_0o, _aP_);
+        tok =
+           /*<<scanf.ml:527:46>>*/  /*<<scanf.ml:527:22>>*/ caml_call2
+           (Stdlib[28], cst_0o, _aP_);
        break;
       case 4:
        var
         _aQ_ =  /*<<scanf.ml:526:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:526:22>>*/ caml_call2(Stdlib[28], cst_0u, _aQ_);
+        tok =
+           /*<<scanf.ml:526:46>>*/  /*<<scanf.ml:526:22>>*/ caml_call2
+           (Stdlib[28], cst_0u, _aQ_);
        break;
       case 5:
        var
         _aR_ =  /*<<scanf.ml:528:29>>*/ token_string(ib),
-        tok =  /*<<scanf.ml:528:22>>*/ caml_call2(Stdlib[28], cst_0x, _aR_);
+        tok =
+           /*<<scanf.ml:528:46>>*/  /*<<scanf.ml:528:22>>*/ caml_call2
+           (Stdlib[28], cst_0x, _aR_);
        break;
-      default: var tok =  /*<<scanf.ml:525:37>>*/ token_string(ib);
+      default:
+       var
+        tok =
+           /*<<scanf.ml:525:54>>*/  /*<<scanf.ml:525:37>>*/ token_string(ib);
     }
     var l =  /*<<scanf.ml:530:2>>*/ caml_ml_string_length(tok);
      /*<<scanf.ml:531:2>>*/ if
@@ -29821,21 +30619,22 @@
    }
    function scan_decimal_digit_star(width, ib){
     var width$0 = width;
-     /*<<scanf.ml:575:2>>*/ for(;;){
-     if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
+    for(;;){
+      /*<<scanf.ml:575:2>>*/ if(0 === width$0)
+       /*<<scanf.ml:575:20>>*/ return width$0;
      var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
       /*<<scanf.ml:577:20>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0;
       /*<<scanf.ml:578:2>>*/ if(58 <= c){
       if(95 === c){
        var width$1 =  /*<<scanf.ml:583:16>>*/ ignore_char(width$0, ib);
-       width$0 = width$1;
+        /*<<scanf.ml:584:4>>*/ width$0 = width$1;
        continue;
       }
      }
      else if(48 <= c){
       var width$2 =  /*<<scanf.ml:580:16>>*/ store_char(width$0, ib, c);
-      width$0 = width$2;
+       /*<<scanf.ml:581:4>>*/ width$0 = width$2;
       continue;
      }
       /*<<scanf.ml:585:9>>*/ return width$0;
@@ -29862,20 +30661,22 @@
                (Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
     var
      width$3 =  /*<<scanf.ml:623:16>>*/ store_char(width$2, ib, c$0),
-     width = width$3;
-     /*<<scanf.ml:603:4>>*/ for(;;){
-     if(0 === width)  /*<<scanf.ml:603:22>>*/ return width;
+     width =  /*<<scanf.ml:614:2>>*/ width$3;
+    for(;;){
+      /*<<scanf.ml:603:4>>*/ if(0 === width)
+       /*<<scanf.ml:603:22>>*/ return width;
      var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
       /*<<scanf.ml:605:22>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
       /*<<scanf.ml:607:21>>*/ if
       ( /*<<scanf.ml:607:13>>*/ caml_call1(digitp, c)){
       var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
-      width = width$0;
+       /*<<scanf.ml:609:6>>*/ width = width$0;
      }
      else{
-      if(95 !== c)  /*<<scanf.ml:613:11>>*/ return width;
+       /*<<scanf.ml:607:21>>*/ if(95 !== c)
+        /*<<scanf.ml:613:11>>*/ return width;
       var width$1 =  /*<<scanf.ml:611:18>>*/ ignore_char(width, ib);
-      width = width$1;
+       /*<<scanf.ml:612:6>>*/ width = width$1;
      }
     }
     /*<<scanf.ml:626:77>>*/ }
@@ -29918,7 +30719,8 @@
    function scan_int_conversion(conv, width$1, ib){
      /*<<scanf.ml:691:2>>*/ switch(conv){
       case 0:
-       return scan_digit_plus(cst_binary, is_binary_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
+        /*<<scanf.ml:692:20>>*/ return scan_digit_plus
+               (cst_binary, is_binary_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 1:
         /*<<scanf.ml:693:20>>*/ return scan_optionally_signed_decimal
                (width$1, ib) /*<<scanf.ml:697:49>>*/ ;
@@ -29938,17 +30740,17 @@
        {
          /*<<scanf.ml:677:4>>*/ if(99 <= c$0){
          if(111 === c$0)
-          return scan_digit_plus
+           /*<<scanf.ml:679:60>>*/ return scan_digit_plus
                   (cst_octal,
                    is_octal_digit,
                     /*<<scanf.ml:679:28>>*/ store_char(width, ib, c$0),
                    ib) /*<<scanf.ml:697:49>>*/ ;
-         if(120 === c$0) break a;
+          /*<<scanf.ml:677:4>>*/ if(120 === c$0) break a;
         }
         else{
          if(88 === c$0) break a;
          if(98 <= c$0)
-          return scan_digit_plus
+           /*<<scanf.ml:680:61>>*/ return scan_digit_plus
                   (cst_binary,
                    is_binary_digit,
                     /*<<scanf.ml:680:29>>*/ store_char(width, ib, c$0),
@@ -29956,17 +30758,19 @@
         }
          /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib) /*<<scanf.ml:697:49>>*/ ;
        }
-       return scan_digit_plus
+        /*<<scanf.ml:678:72>>*/ return scan_digit_plus
                (cst_hexadecimal,
                 is_hexa_digit,
                  /*<<scanf.ml:678:40>>*/ store_char(width, ib, c$0),
                 ib) /*<<scanf.ml:697:49>>*/ ;
       case 3:
-       return scan_digit_plus(cst_octal, is_octal_digit, width$1, ib);
+        /*<<scanf.ml:695:20>>*/ return scan_digit_plus
+               (cst_octal, is_octal_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 4:
         /*<<scanf.ml:696:20>>*/ return scan_decimal_digit_plus(width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       default:
-       return scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$1, ib);
+        /*<<scanf.ml:697:20>>*/ return scan_digit_plus
+               (cst_hexadecimal, is_hexa_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
     }
    }
    function scan_fractional_part(width, ib){
@@ -30042,7 +30846,8 @@
        /*<<scanf.ml:789:18>>*/ if
        ( /*<<scanf.ml:789:7>>*/ lowercase(c) !== _aL_)
         /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
-      if(0 === width$0[1])  /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
+       /*<<scanf.ml:789:18>>*/ if(0 === width$0[1])
+        /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
        /*<<scanf.ml:791:44>>*/ width$0[1] =
         /*<<scanf.ml:791:13>>*/ store_char(width$0[1], ib, c);
       var _aM_ =  /*<<scanf.ml:791:44>>*/ i + 1 | 0;
@@ -30056,13 +30861,13 @@
     var
      _aw_ =  /*<<scanf.ml:797:2>>*/ 0 === width ? 1 : 0,
      _ax_ = _aw_ ||  /*<<scanf.ml:797:18>>*/ end_of_input(ib);
-    if(_ax_)
+     /*<<scanf.ml:797:2>>*/ if(_ax_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
     var
      width$0 =  /*<<scanf.ml:798:14>>*/ scan_sign(width, ib),
      _ay_ =  /*<<scanf.ml:799:2>>*/ 0 === width$0 ? 1 : 0,
      _az_ = _ay_ ||  /*<<scanf.ml:799:18>>*/ end_of_input(ib);
-    if(_az_)
+     /*<<scanf.ml:799:2>>*/ if(_az_)
       /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
     var c =  /*<<scanf.ml:800:8>>*/ peek_char(ib);
     a:
@@ -30075,12 +30880,12 @@
         width$1 =  /*<<scanf.ml:830:16>>*/ store_char(width$0, ib, c),
         _aA_ =  /*<<scanf.ml:831:4>>*/ 0 === width$1 ? 1 : 0,
         _aB_ = _aA_ ||  /*<<scanf.ml:831:20>>*/ end_of_input(ib);
-       if(_aB_)
+        /*<<scanf.ml:831:4>>*/ if(_aB_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-       return check_case_insensitive_string
+        /*<<scanf.ml:831:4>>*/ return check_case_insensitive_string
                (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
       }
-      if(26 !== switcher) break a;
+       /*<<scanf.ml:800:29>>*/ if(26 !== switcher) break a;
      }
      else{
       if(48 === c){
@@ -30088,7 +30893,7 @@
         width$3 =  /*<<scanf.ml:802:16>>*/ store_char(width$0, ib, c),
         _aE_ =  /*<<scanf.ml:803:4>>*/ 0 === width$3 ? 1 : 0,
         _aF_ = _aE_ ||  /*<<scanf.ml:803:20>>*/ end_of_input(ib);
-       if(_aF_)
+        /*<<scanf.ml:803:4>>*/ if(_aF_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
        var
         width$4 =
@@ -30111,10 +30916,11 @@
           else if(32 < _aG_ - 1 >>> 0) break c;
           var
            width$5 =
-             scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$4, ib);
+              /*<<scanf.ml:808:44>>*/  /*<<scanf.ml:808:15>>*/ scan_digit_plus
+              (cst_hexadecimal, is_hexa_digit, width$4, ib);
           break b;
          }
-         var width$5 = width$4;
+         var width$5 =  /*<<scanf.ml:807:29>>*/ width$4;
         }
          /*<<scanf.ml:809:6>>*/ if
          (0 !== width$5 && !  /*<<scanf.ml:809:22>>*/ end_of_input(ib)){
@@ -30134,27 +30940,27 @@
                   /*<<scanf.ml:817:32>>*/ caml_call2
                   (Stdlib_Int[10], width$6, precision),
                width$10 =
-                 width$6
+                  /*<<scanf.ml:818:70>>*/ width$6
                  -
                   (precision$0
                   -
-                   scan_digit_plus
+                    /*<<scanf.ml:818:37>>*/ scan_digit_plus
                     (cst_hexadecimal, is_hexa_digit, precision$0, ib)
                   | 0)
                  | 0;
               break c;
              }
-             var width$10 = width$6;
+             var width$10 =  /*<<scanf.ml:815:29>>*/ width$6;
             }
-            var width$7 = width$10;
+            var width$7 =  /*<<scanf.ml:814:41>>*/ width$10;
             break b;
            }
-           var width$7 = width$6;
+           var width$7 =  /*<<scanf.ml:813:58>>*/ width$6;
           }
-          var width$8 = width$7;
+          var width$8 =  /*<<scanf.ml:813:12>>*/ width$7;
          }
          else
-          var width$8 = width$5;
+          var width$8 =  /*<<scanf.ml:820:17>>*/ width$5;
           /*<<scanf.ml:821:8>>*/ if
           (0 !== width$8 && !  /*<<scanf.ml:821:24>>*/ end_of_input(ib)){
           var c$1 =  /*<<scanf.ml:822:16>>*/ peek_char(ib);
@@ -30164,9 +30970,10 @@
            width$9 =  /*<<scanf.ml:824:24>>*/ store_char(width$8, ib, c$1),
            _aH_ =  /*<<scanf.ml:825:12>>*/ 0 === width$9 ? 1 : 0,
            _aI_ = _aH_ ||  /*<<scanf.ml:825:28>>*/ end_of_input(ib);
-          if(_aI_)
+           /*<<scanf.ml:825:12>>*/ if(_aI_)
             /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-          return scan_optionally_signed_decimal(width$9, ib) /*<<scanf.ml:837:25>>*/ ;
+           /*<<scanf.ml:825:12>>*/ return scan_optionally_signed_decimal
+                  (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
          }
           /*<<scanf.ml:821:54>>*/ return width$8;
         }
@@ -30174,15 +30981,15 @@
        }
         /*<<scanf.ml:805:50>>*/ return width$4;
       }
-      if(73 !== c) break a;
+       /*<<scanf.ml:800:29>>*/ if(73 !== c) break a;
      }
      var
       width$2 =  /*<<scanf.ml:834:16>>*/ store_char(width$0, ib, c),
       _aC_ =  /*<<scanf.ml:835:4>>*/ 0 === width$2 ? 1 : 0,
       _aD_ = _aC_ ||  /*<<scanf.ml:835:20>>*/ end_of_input(ib);
-     if(_aD_)
+      /*<<scanf.ml:835:4>>*/ if(_aD_)
        /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-     return check_case_insensitive_string
+      /*<<scanf.ml:835:4>>*/ return check_case_insensitive_string
              (width$2, ib, bad_hex_float, cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
     }
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
@@ -30191,13 +30998,13 @@
     var
      _as_ =  /*<<scanf.ml:841:2>>*/ 0 === width ? 1 : 0,
      _at_ = _as_ ||  /*<<scanf.ml:841:18>>*/ end_of_input(ib);
-    if(_at_)
+     /*<<scanf.ml:841:2>>*/ if(_at_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
      width$0 =  /*<<scanf.ml:842:14>>*/ scan_decimal_digit_star(width, ib),
      _au_ =  /*<<scanf.ml:843:2>>*/ 0 === width$0 ? 1 : 0,
      _av_ = _au_ ||  /*<<scanf.ml:843:18>>*/ end_of_input(ib);
-    if(_av_)
+     /*<<scanf.ml:843:2>>*/ if(_av_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
      c =  /*<<scanf.ml:844:10>>*/ peek_char(ib),
@@ -30224,13 +31031,13 @@
     var
      _ae_ =  /*<<scanf.ml:866:2>>*/ 0 === width ? 1 : 0,
      _af_ = _ae_ ||  /*<<scanf.ml:866:18>>*/ end_of_input(ib);
-    if(_af_)
+     /*<<scanf.ml:866:2>>*/ if(_af_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var
      width$0 =  /*<<scanf.ml:867:14>>*/ scan_sign(width, ib),
      _ag_ =  /*<<scanf.ml:868:2>>*/ 0 === width$0 ? 1 : 0,
      _ah_ = _ag_ ||  /*<<scanf.ml:868:18>>*/ end_of_input(ib);
-    if(_ah_)
+     /*<<scanf.ml:868:2>>*/ if(_ah_)
       /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
     var c =  /*<<scanf.ml:869:8>>*/ peek_char(ib);
      /*<<scanf.ml:869:29>>*/ if(49 <= c){
@@ -30239,9 +31046,10 @@
        width$1 =  /*<<scanf.ml:903:16>>*/ store_char(width$0, ib, c),
        _ai_ =  /*<<scanf.ml:904:4>>*/ 0 === width$1 ? 1 : 0,
        _aj_ = _ai_ ||  /*<<scanf.ml:904:20>>*/ end_of_input(ib);
-      if(_aj_)
+       /*<<scanf.ml:904:4>>*/ if(_aj_)
         /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-      return scan_caml_float_rest(width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
+       /*<<scanf.ml:904:4>>*/ return scan_caml_float_rest
+              (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      }
     }
     else if(48 <= c){
@@ -30249,7 +31057,7 @@
       width$2 =  /*<<scanf.ml:871:16>>*/ store_char(width$0, ib, c),
       _ak_ =  /*<<scanf.ml:872:4>>*/ 0 === width$2 ? 1 : 0,
       _al_ = _ak_ ||  /*<<scanf.ml:872:20>>*/ end_of_input(ib);
-     if(_al_)
+      /*<<scanf.ml:872:4>>*/ if(_al_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var c$0 =  /*<<scanf.ml:873:10>>*/ peek_char(ib);
       /*<<scanf.ml:873:31>>*/ if(88 !== c$0 && 120 !== c$0)
@@ -30259,13 +31067,15 @@
       width$3 =  /*<<scanf.ml:875:18>>*/ store_char(width$2, ib, c$0),
       _am_ =  /*<<scanf.ml:876:6>>*/ 0 === width$3 ? 1 : 0,
       _an_ = _am_ ||  /*<<scanf.ml:876:22>>*/ end_of_input(ib);
-     if(_an_)
+      /*<<scanf.ml:876:6>>*/ if(_an_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
-      width$10 = scan_digit_plus(cst_hexadecimal, is_hexa_digit, width$3, ib),
+      width$10 =
+         /*<<scanf.ml:877:18>>*/ scan_digit_plus
+         (cst_hexadecimal, is_hexa_digit, width$3, ib),
       _ao_ =  /*<<scanf.ml:878:6>>*/ 0 === width$10 ? 1 : 0,
       _ap_ = _ao_ ||  /*<<scanf.ml:878:22>>*/ end_of_input(ib);
-     if(_ap_)
+      /*<<scanf.ml:878:6>>*/ if(_ap_)
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
       c$1 =  /*<<scanf.ml:879:24>>*/ peek_char(ib),
@@ -30290,34 +31100,38 @@
                  /*<<scanf.ml:886:30>>*/ caml_call2
                  (Stdlib_Int[10], width$4, precision),
               width$9 =
-                width$4
+                 /*<<scanf.ml:887:68>>*/ width$4
                 -
                  (precision$0
                  -
-                  scan_digit_plus
+                   /*<<scanf.ml:887:35>>*/ scan_digit_plus
                    (cst_hexadecimal, is_hexa_digit, precision$0, ib)
                  | 0)
                 | 0;
              break d;
             }
-            var width$9 = width$4;
+            var width$9 =  /*<<scanf.ml:884:27>>*/ width$4;
            }
-           var width$5 = width$9;
+           var width$5 =  /*<<scanf.ml:883:39>>*/ width$9;
            break c;
           }
-          var width$5 = width$4;
+          var width$5 =  /*<<scanf.ml:882:56>>*/ width$4;
          }
-         var width$6 = width$5;
+         var width$6 =  /*<<scanf.ml:882:10>>*/ width$5;
          break b;
         }
        }
-       else if(30 < switcher - 1 >>> 0){var width$6 = width$10; break b;}
+       else if(30 < switcher - 1 >>> 0){
+        var width$6 =  /*<<scanf.ml:889:23>>*/ width$10;
+        break b;
+       }
        var
         width$7 =
-           /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
+           /*<<scanf.ml:890:27>>*/  /*<<scanf.ml:428:2>>*/ bad_input
+           (cst_no_dot_or_exponent_part_fo);
        break a;
       }
-      var width$7 = width$6;
+      var width$7 =  /*<<scanf.ml:879:45>>*/ width$6;
      }
       /*<<scanf.ml:891:6>>*/ if
       (0 !== width$7 && !  /*<<scanf.ml:891:22>>*/ end_of_input(ib)){
@@ -30328,18 +31142,20 @@
        width$8 =  /*<<scanf.ml:894:22>>*/ store_char(width$7, ib, c$2),
        _aq_ =  /*<<scanf.ml:895:10>>*/ 0 === width$8 ? 1 : 0,
        _ar_ = _aq_ ||  /*<<scanf.ml:895:26>>*/ end_of_input(ib);
-      if(_ar_)
+       /*<<scanf.ml:895:10>>*/ if(_ar_)
         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-      return scan_optionally_signed_decimal(width$8, ib) /*<<scanf.ml:910:21>>*/ ;
+       /*<<scanf.ml:895:10>>*/ return scan_optionally_signed_decimal
+              (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
      }
       /*<<scanf.ml:891:52>>*/ return width$7;
     }
      /*<<scanf.ml:428:2>>*/ return bad_input(cst_no_dot_or_exponent_part_fo) /*<<scanf.ml:910:21>>*/ ;
    }
    function scan_string(stp, width, ib){
-    var width$0 = width;
-     /*<<scanf.ml:921:4>>*/ for(;;){
-     if(0 === width$0)  /*<<scanf.ml:921:22>>*/ return width$0;
+    var width$0 =  /*<<scanf.ml:931:2>>*/ width;
+    for(;;){
+      /*<<scanf.ml:921:4>>*/ if(0 === width$0)
+       /*<<scanf.ml:921:22>>*/ return width$0;
      var c =  /*<<scanf.ml:922:12>>*/ peek_char(ib);
       /*<<scanf.ml:923:22>>*/ if(ib[1])
        /*<<scanf.ml:923:28>>*/ return width$0;
@@ -30352,18 +31168,18 @@
        }
        else if(1 < _ad_ - 2 >>> 0) break a;
        var width$2 =  /*<<scanf.ml:930:20>>*/ store_char(width$0, ib, c);
-       width$0 = width$2;
+        /*<<scanf.ml:930:52>>*/ width$0 = width$2;
        continue;
       }
        /*<<scanf.ml:929:38>>*/ return width$0;
      }
-     var c$0 = stp[1];
+     var c$0 =  /*<<scanf.ml:924:6>>*/ stp[1];
       /*<<scanf.ml:925:21>>*/ if(c === c$0){
        /*<<scanf.ml:237:4>>*/ invalidate_current_char(ib);
        /*<<scanf.ml:237:30>>*/ return width$0;
      }
      var width$1 =  /*<<scanf.ml:926:23>>*/ store_char(width$0, ib, c);
-     width$0 = width$1;
+      /*<<scanf.ml:926:55>>*/ width$0 = width$1;
     }
     /*<<scanf.ml:931:12>>*/ }
    function hexadecimal_value_of_char(c){
@@ -30382,7 +31198,7 @@
             : c /*<<scanf.ml:998:3>>*/ ;
    }
    function scan_backslash_char(width, ib){
-    var c0 = check_next_char(cst_a_Char, width, ib);
+    var c0 =  /*<<scanf.ml:1005:8>>*/ check_next_char(cst_a_Char, width, ib);
     a:
     {
       /*<<scanf.ml:1005:41>>*/ if(40 <= c0){
@@ -30418,7 +31234,7 @@
        }
         /*<<scanf.ml:1017:71>>*/ return store_char(width - 2 | 0, ib, _ab_) /*<<scanf.ml:1028:22>>*/ ;
       }
-      var switcher = c0 - 92 | 0;
+      var switcher =  /*<<scanf.ml:1005:41>>*/ c0 - 92 | 0;
       if(28 < switcher >>> 0) break a;
       switch(switcher){
         case 28:
@@ -30475,15 +31291,15 @@
        if(117 > c0)
         switch(c0 - 110 | 0){
           case 0:
-           var _$_ = 10; break b;
+           var _$_ =  /*<<scanf.ml:943:11>>*/ 10; break b;
           case 4:
-           var _$_ = 13; break b;
+           var _$_ =  /*<<scanf.ml:944:11>>*/ 13; break b;
           case 6:
-           var _$_ = 9; break b;
+           var _$_ =  /*<<scanf.ml:946:11>>*/ 9; break b;
         }
       }
-      else if(98 === c0){var _$_ = 8; break b;}
-      var _$_ = c0;
+      else if(98 === c0){var _$_ =  /*<<scanf.ml:945:11>>*/ 8; break b;}
+      var _$_ =  /*<<scanf.ml:947:9>>*/ c0;
      }
       /*<<scanf.ml:1007:55>>*/ return store_char(width, ib, _$_) /*<<scanf.ml:1028:22>>*/ ;
     }
@@ -30492,61 +31308,69 @@
    function scan_caml_string(width, ib){
     function find_stop$0(counter, width){
      var width$0 = width;
-      /*<<scanf.ml:1063:4>>*/ for(;;){
-      var c = check_next_char(cst_a_String, width$0, ib);
+     for(;;){
+      var
+       c =
+          /*<<scanf.ml:1063:10>>*/ check_next_char(cst_a_String, width$0, ib);
        /*<<scanf.ml:1063:45>>*/ if(34 === c)
         /*<<scanf.ml:1064:14>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
-      if(92 === c){
+       /*<<scanf.ml:1063:45>>*/ if(92 === c){
        var
         width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
-        match = check_next_char(cst_a_String, width$1, ib);
+        match =
+           /*<<scanf.ml:1069:10>>*/ check_next_char(cst_a_String, width$1, ib);
         /*<<scanf.ml:1069:45>>*/ if(10 === match){
         var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
          /*<<scanf.ml:1071:57>>*/ if(counter >= 50)
          return caml_trampoline_return(skip_spaces, [0, _Y_]) /*<<scanf.ml:1066:53>>*/ ;
-        var counter$0 = counter + 1 | 0;
-        return skip_spaces(counter$0, _Y_);
+        var counter$0 =  /*<<scanf.ml:1071:57>>*/ counter + 1 | 0;
+        return skip_spaces(counter$0, _Y_) /*<<scanf.ml:1066:53>>*/ ;
        }
-       if(13 === match){
+        /*<<scanf.ml:1069:45>>*/ if(13 === match){
         var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
          /*<<scanf.ml:1075:45>>*/ if
-         (10 === check_next_char(cst_a_String, width$3, ib)){
+         (10
+          ===
+            /*<<scanf.ml:1075:10>>*/ check_next_char
+            (cst_a_String, width$3, ib)){
          var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
           /*<<scanf.ml:1076:57>>*/ if(counter >= 50)
           return caml_trampoline_return(skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
-         var counter$1 = counter + 1 | 0;
-         return skip_spaces(counter$1, _Z_);
+         var counter$1 =  /*<<scanf.ml:1076:57>>*/ counter + 1 | 0;
+         return skip_spaces(counter$1, _Z_) /*<<scanf.ml:1066:53>>*/ ;
         }
         var width$5 =  /*<<scanf.ml:1077:21>>*/ store_char(width$3, ib, 13);
-        width$0 = width$5;
+         /*<<scanf.ml:1077:56>>*/ width$0 = width$5;
        }
        else{
         var
          width$4 =  /*<<scanf.ml:1072:21>>*/ scan_backslash_char(width$1, ib);
-        width$0 = width$4;
+         /*<<scanf.ml:1072:51>>*/ width$0 = width$4;
        }
       }
       else{
        var width$2 =  /*<<scanf.ml:1066:21>>*/ store_char(width$0, ib, c);
-       width$0 = width$2;
+        /*<<scanf.ml:1066:53>>*/ width$0 = width$2;
       }
      }
-     /*<<scanf.ml:1066:53>>*/ }
+    }
     function find_stop(width){
       /*<<?>>*/ return caml_trampoline(find_stop$0(0, width));
     }
     function skip_spaces(counter, width){
      var width$0 = width;
-      /*<<scanf.ml:1080:4>>*/ for(;;){
+     for(;;){
        /*<<scanf.ml:1080:45>>*/ if
-       (32 !== check_next_char(cst_a_String, width$0, ib)){
+       (32
+        !==
+          /*<<scanf.ml:1080:10>>*/ check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
         return caml_trampoline_return(find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
-       var counter$0 = counter + 1 | 0;
-       return find_stop$0(counter$0, width$0);
+       var counter$0 =  /*<<scanf.ml:1082:11>>*/ counter + 1 | 0;
+       return find_stop$0(counter$0, width$0) /*<<scanf.ml:1082:26>>*/ ;
       }
       var width$1 =  /*<<scanf.ml:1081:25>>*/ ignore_char(width$0, ib);
-      width$0 = width$1;
+       /*<<scanf.ml:1081:56>>*/ width$0 = width$1;
      }
      /*<<scanf.ml:1082:26>>*/ }
     var c =  /*<<scanf.ml:1058:10>>*/ checked_peek_char(ib);
@@ -30558,7 +31382,7 @@
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
      var i$0 = i;
-      /*<<scanf.ml:1104:4>>*/ for(;;){
+     for(;;){
       var
        c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib),
        _U_ =  /*<<scanf.ml:1105:4>>*/ 0 < i$0 ? 1 : 0;
@@ -30571,10 +31395,10 @@
             (CamlinternalFormat[1], char_set, c),
          _X_ =  /*<<scanf.ml:1106:32>>*/ _W_ ? c !== stp ? 1 : 0 : _W_;
        else
-        var _X_ = _V_;
+        var _X_ =  /*<<scanf.ml:1105:37>>*/ _V_;
       }
       else
-       var _X_ = _U_;
+       var _X_ =  /*<<scanf.ml:1105:4>>*/ _U_;
       if(! _X_) return _X_;
        /*<<scanf.ml:1108:14>>*/ store_char(Stdlib[19], ib, c);
       var i$1 =  /*<<scanf.ml:1108:46>>*/ i$0 - 1 | 0;
@@ -30583,7 +31407,7 @@
      /*<<scanf.ml:1109:28>>*/ }
      /*<<scanf.ml:1110:2>>*/ if(! scan_indic)
       /*<<scanf.ml:1111:12>>*/ return scan_chars(width, -1) /*<<scanf.ml:1118:34>>*/ ;
-    var c = scan_indic[1];
+    var c =  /*<<scanf.ml:1110:2>>*/ scan_indic[1];
      /*<<scanf.ml:1113:4>>*/ scan_chars(width, c);
     var _T_ =  /*<<scanf.ml:1114:28>>*/ 1 - ib[1];
     if(! _T_) return _T_;
@@ -30598,7 +31422,7 @@
     else{
      if(x[1] !== Stdlib[7])
        /*<<scanf.ml:1126:9>>*/ throw caml_maybe_attach_backtrace(x, 1);
-     var s = x[2];
+     var s =  /*<<scanf.ml:1122:20>>*/ x[2];
     }
     var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
      /*<<scanf.ml:1125:75>>*/ return bad_input
@@ -30607,7 +31431,7 @@
    function width_of_pad_opt(pad_opt){
      /*<<scanf.ml:1138:31>>*/ if(! pad_opt)
       /*<<scanf.ml:1139:12>>*/ return Stdlib[19];
-    var width = pad_opt[1];
+    var width =  /*<<scanf.ml:1138:31>>*/ pad_opt[1];
      /*<<scanf.ml:1140:18>>*/ return width;
     /*<<scanf.ml:1140:23>>*/ }
    function stopper_of_formatting_lit(fmting){
@@ -30627,41 +31451,67 @@
     /*<<scanf.ml:1148:16>>*/ }
    function take_format_readers$0(counter, k, fmt){
     var fmt$0 = fmt;
-     /*<<scanf.ml:1161:13>>*/ for(;;){
-     if(typeof fmt$0 === "number")
+    for(;;){
+      /*<<scanf.ml:1161:13>>*/ if(typeof fmt$0 === "number")
        /*<<scanf.ml:1198:40>>*/ return caml_call1(k, 0) /*<<scanf.ml:1198:45>>*/ ;
-     switch(fmt$0[0]){
+      /*<<scanf.ml:1161:13>>*/ switch(fmt$0[0]){
        case 0:
-        var rest = fmt$0[1]; fmt$0 = rest; break;
+        var rest = fmt$0[1];  /*<<scanf.ml:1166:40>>*/ fmt$0 = rest; break;
        case 1:
-        var rest$0 = fmt$0[1]; fmt$0 = rest$0; break;
+        var rest$0 =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
+         /*<<scanf.ml:1167:40>>*/ fmt$0 = rest$0;
+        break;
        case 2:
-        var rest$1 = fmt$0[2]; fmt$0 = rest$1; break;
+        var rest$1 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1168:40>>*/ fmt$0 = rest$1;
+        break;
        case 3:
-        var rest$2 = fmt$0[2]; fmt$0 = rest$2; break;
+        var rest$2 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1169:40>>*/ fmt$0 = rest$2;
+        break;
        case 4:
-        var rest$3 = fmt$0[4]; fmt$0 = rest$3; break;
+        var rest$3 =  /*<<scanf.ml:1161:13>>*/ fmt$0[4];
+         /*<<scanf.ml:1170:40>>*/ fmt$0 = rest$3;
+        break;
        case 5:
-        var rest$4 = fmt$0[4]; fmt$0 = rest$4; break;
+        var rest$4 =  /*<<scanf.ml:1161:13>>*/ fmt$0[4];
+         /*<<scanf.ml:1171:40>>*/ fmt$0 = rest$4;
+        break;
        case 6:
-        var rest$5 = fmt$0[4]; fmt$0 = rest$5; break;
+        var rest$5 =  /*<<scanf.ml:1161:13>>*/ fmt$0[4];
+         /*<<scanf.ml:1172:40>>*/ fmt$0 = rest$5;
+        break;
        case 7:
-        var rest$6 = fmt$0[4]; fmt$0 = rest$6; break;
+        var rest$6 =  /*<<scanf.ml:1161:13>>*/ fmt$0[4];
+         /*<<scanf.ml:1173:40>>*/ fmt$0 = rest$6;
+        break;
        case 8:
-        var rest$7 = fmt$0[4]; fmt$0 = rest$7; break;
+        var rest$7 =  /*<<scanf.ml:1161:13>>*/ fmt$0[4];
+         /*<<scanf.ml:1174:40>>*/ fmt$0 = rest$7;
+        break;
        case 9:
-        var rest$8 = fmt$0[2]; fmt$0 = rest$8; break;
+        var rest$8 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1175:40>>*/ fmt$0 = rest$8;
+        break;
        case 10:
-        var rest$9 = fmt$0[1]; fmt$0 = rest$9; break;
+        var rest$9 =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
+         /*<<scanf.ml:1178:40>>*/ fmt$0 = rest$9;
+        break;
        case 11:
-        var rest$10 = fmt$0[2]; fmt$0 = rest$10; break;
+        var rest$10 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1179:40>>*/ fmt$0 = rest$10;
+        break;
        case 12:
-        var rest$11 = fmt$0[2]; fmt$0 = rest$11; break;
+        var rest$11 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1180:40>>*/ fmt$0 = rest$11;
+        break;
        case 13:
-        var rest$12 = fmt$0[3]; fmt$0 = rest$12; break;
+        var rest$12 =  /*<<scanf.ml:1161:13>>*/ fmt$0[3];
+         /*<<scanf.ml:1193:40>>*/ fmt$0 = rest$12;
+        break;
        case 14:
         var
-         rest$13 = fmt$0[3],
+         rest$13 =  /*<<scanf.ml:1161:13>>*/ fmt$0[3],
          fmtty = fmt$0[2],
          _Q_ =
             /*<<scanf.ml:1195:44>>*/ caml_call1(CamlinternalFormat[21], fmtty),
@@ -30671,16 +31521,22 @@
          /*<<scanf.ml:1195:57>>*/ if(counter >= 50)
          return caml_trampoline_return
                  (take_fmtty_format_readers$0, [0, k, _R_, rest$13]) /*<<scanf.ml:1198:45>>*/ ;
-        var counter$0 = counter + 1 | 0;
-        return take_fmtty_format_readers$0(counter$0, k, _R_, rest$13);
+        var counter$0 =  /*<<scanf.ml:1195:57>>*/ counter + 1 | 0;
+        return take_fmtty_format_readers$0(counter$0, k, _R_, rest$13) /*<<scanf.ml:1198:45>>*/ ;
        case 15:
-        var rest$14 = fmt$0[1]; fmt$0 = rest$14; break;
+        var rest$14 =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
+         /*<<scanf.ml:1176:40>>*/ fmt$0 = rest$14;
+        break;
        case 16:
-        var rest$15 = fmt$0[1]; fmt$0 = rest$15; break;
+        var rest$15 =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
+         /*<<scanf.ml:1177:40>>*/ fmt$0 = rest$15;
+        break;
        case 17:
-        var rest$16 = fmt$0[2]; fmt$0 = rest$16; break;
+        var rest$16 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1187:40>>*/ fmt$0 = rest$16;
+        break;
        case 18:
-        var _S_ = fmt$0[1];
+        var _S_ =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
         if(0 === _S_[0]){
          var
           rest$17 = fmt$0[2],
@@ -30688,20 +31544,20 @@
           fmt$2 =
              /*<<scanf.ml:1189:28>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$1, rest$17);
-         fmt$0 = fmt$2;
+          /*<<scanf.ml:1189:49>>*/ fmt$0 = fmt$2;
         }
         else{
          var
-          rest$18 = fmt$0[2],
+          rest$18 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2],
           fmt$3 = _S_[1][1],
           fmt$4 =
              /*<<scanf.ml:1191:28>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$3, rest$18);
-         fmt$0 = fmt$4;
+          /*<<scanf.ml:1191:49>>*/ fmt$0 = fmt$4;
         }
         break;
        case 19:
-        var fmt_rest = fmt$0[1];
+        var fmt_rest =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
          /*<<scanf.ml:1163:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1164:31>>*/ return caml_call1
@@ -30709,19 +31565,25 @@
          }
           /*<<scanf.ml:1165:6>>*/ return take_format_readers(new_k, fmt_rest) /*<<scanf.ml:1165:40>>*/ ;} /*<<scanf.ml:1163:4>>*/ ;
        case 20:
-        var rest$19 = fmt$0[3]; fmt$0 = rest$19; break;
+        var rest$19 =  /*<<scanf.ml:1161:13>>*/ fmt$0[3];
+         /*<<scanf.ml:1183:40>>*/ fmt$0 = rest$19;
+        break;
        case 21:
-        var rest$20 = fmt$0[2]; fmt$0 = rest$20; break;
+        var rest$20 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2];
+         /*<<scanf.ml:1184:40>>*/ fmt$0 = rest$20;
+        break;
        case 22:
-        var rest$21 = fmt$0[1]; fmt$0 = rest$21; break;
+        var rest$21 =  /*<<scanf.ml:1161:13>>*/ fmt$0[1];
+         /*<<scanf.ml:1185:40>>*/ fmt$0 = rest$21;
+        break;
        case 23:
-        var rest$22 = fmt$0[2], ign = fmt$0[1];
+        var rest$22 =  /*<<scanf.ml:1161:13>>*/ fmt$0[2], ign = fmt$0[1];
          /*<<scanf.ml:1234:17>>*/ if(typeof ign === "number")
          switch(ign){
            case 0:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1239:39>>*/ fmt$0 = rest$22; break;
            case 1:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1240:39>>*/ fmt$0 = rest$22; break;
            case 2:
              /*<<scanf.ml:1236:4>>*/ return function(reader){
              function new_k(readers_rest){
@@ -30730,78 +31592,98 @@
              }
               /*<<scanf.ml:1238:6>>*/ return take_format_readers
                      (new_k, rest$22) /*<<scanf.ml:1238:35>>*/ ;} /*<<scanf.ml:1236:4>>*/ ;
-           default: fmt$0 = rest$22;
+           default:  /*<<scanf.ml:1253:39>>*/ fmt$0 = rest$22;
          }
         else
-         switch(ign[0]){
+          /*<<scanf.ml:1234:17>>*/ switch(ign[0]){
            case 0:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1241:39>>*/ fmt$0 = rest$22; break;
            case 1:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1242:39>>*/ fmt$0 = rest$22; break;
            case 2:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1243:39>>*/ fmt$0 = rest$22; break;
            case 3:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1244:39>>*/ fmt$0 = rest$22; break;
            case 4:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1245:39>>*/ fmt$0 = rest$22; break;
            case 5:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1246:39>>*/ fmt$0 = rest$22; break;
            case 6:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1247:39>>*/ fmt$0 = rest$22; break;
            case 7:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1248:39>>*/ fmt$0 = rest$22; break;
            case 8:
-            fmt$0 = rest$22; break;
+             /*<<scanf.ml:1249:39>>*/ fmt$0 = rest$22; break;
            case 9:
-            var fmtty$0 = ign[2];
+            var fmtty$0 =  /*<<scanf.ml:1234:17>>*/ ign[2];
              /*<<scanf.ml:1250:39>>*/ if(counter >= 50)
              return caml_trampoline_return
                      (take_fmtty_format_readers$0, [0, k, fmtty$0, rest$22]) /*<<scanf.ml:1198:45>>*/ ;
-            var counter$1 = counter + 1 | 0;
-            return take_fmtty_format_readers$0(counter$1, k, fmtty$0, rest$22);
+            var counter$1 =  /*<<scanf.ml:1250:39>>*/ counter + 1 | 0;
+            return take_fmtty_format_readers$0(counter$1, k, fmtty$0, rest$22) /*<<scanf.ml:1198:45>>*/ ;
            case 10:
-            fmt$0 = rest$22; break;
-           default: fmt$0 = rest$22;
+             /*<<scanf.ml:1251:39>>*/ fmt$0 = rest$22; break;
+           default:  /*<<scanf.ml:1252:39>>*/ fmt$0 = rest$22;
          }
         break;
-       default: var rest$23 = fmt$0[3]; fmt$0 = rest$23;
+       default:
+        var rest$23 =  /*<<scanf.ml:1161:13>>*/ fmt$0[3];
+         /*<<scanf.ml:1181:40>>*/ fmt$0 = rest$23;
      }
     }
-   }
+    /*<<scanf.ml:1198:45>>*/ }
    function take_format_readers(k, fmt){
      /*<<?>>*/ return caml_trampoline(take_format_readers$0(0, k, fmt));
    }
    function take_fmtty_format_readers$0(counter, k, fmtty, fmt){
     var fmtty$0 = fmtty;
-     /*<<scanf.ml:1204:19>>*/ for(;;){
-     if(typeof fmtty$0 === "number"){
+    for(;;){
+      /*<<scanf.ml:1204:19>>*/ if(typeof fmtty$0 === "number"){
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
        return caml_trampoline_return(take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
-      var counter$0 = counter + 1 | 0;
-      return take_format_readers$0(counter$0, k, fmt);
+      var counter$0 =  /*<<scanf.ml:1225:35>>*/ counter + 1 | 0;
+      return take_format_readers$0(counter$0, k, fmt) /*<<scanf.ml:1228:58>>*/ ;
      }
-     switch(fmtty$0[0]){
+      /*<<scanf.ml:1204:19>>*/ switch(fmtty$0[0]){
        case 0:
-        var fmtty$1 = fmtty$0[1]; fmtty$0 = fmtty$1; break;
+        var fmtty$1 = fmtty$0[1];
+         /*<<scanf.ml:1213:35>>*/ fmtty$0 = fmtty$1;
+        break;
        case 1:
-        var fmtty$2 = fmtty$0[1]; fmtty$0 = fmtty$2; break;
+        var fmtty$2 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1214:35>>*/ fmtty$0 = fmtty$2;
+        break;
        case 2:
-        var fmtty$3 = fmtty$0[1]; fmtty$0 = fmtty$3; break;
+        var fmtty$3 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1215:35>>*/ fmtty$0 = fmtty$3;
+        break;
        case 3:
-        var fmtty$4 = fmtty$0[1]; fmtty$0 = fmtty$4; break;
+        var fmtty$4 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1216:35>>*/ fmtty$0 = fmtty$4;
+        break;
        case 4:
-        var fmtty$5 = fmtty$0[1]; fmtty$0 = fmtty$5; break;
+        var fmtty$5 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1217:35>>*/ fmtty$0 = fmtty$5;
+        break;
        case 5:
-        var fmtty$6 = fmtty$0[1]; fmtty$0 = fmtty$6; break;
+        var fmtty$6 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1218:35>>*/ fmtty$0 = fmtty$6;
+        break;
        case 6:
-        var fmtty$7 = fmtty$0[1]; fmtty$0 = fmtty$7; break;
+        var fmtty$7 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1219:35>>*/ fmtty$0 = fmtty$7;
+        break;
        case 7:
-        var fmtty$8 = fmtty$0[1]; fmtty$0 = fmtty$8; break;
+        var fmtty$8 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1220:35>>*/ fmtty$0 = fmtty$8;
+        break;
        case 8:
-        var fmtty$9 = fmtty$0[2]; fmtty$0 = fmtty$9; break;
+        var fmtty$9 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[2];
+         /*<<scanf.ml:1224:35>>*/ fmtty$0 = fmtty$9;
+        break;
        case 9:
         var
-         rest = fmtty$0[3],
+         rest =  /*<<scanf.ml:1204:19>>*/ fmtty$0[3],
          ty2 = fmtty$0[2],
          ty1 = fmtty$0[1],
          _P_ =
@@ -30812,16 +31694,22 @@
          fmtty$10 =
             /*<<scanf.ml:1228:32>>*/ caml_call2
             (CamlinternalFormatBasics[1], ty, rest);
-        fmtty$0 = fmtty$10;
+         /*<<scanf.ml:1228:54>>*/ fmtty$0 = fmtty$10;
         break;
        case 10:
-        var fmtty$11 = fmtty$0[1]; fmtty$0 = fmtty$11; break;
+        var fmtty$11 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1221:35>>*/ fmtty$0 = fmtty$11;
+        break;
        case 11:
-        var fmtty$12 = fmtty$0[1]; fmtty$0 = fmtty$12; break;
+        var fmtty$12 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1222:35>>*/ fmtty$0 = fmtty$12;
+        break;
        case 12:
-        var fmtty$13 = fmtty$0[1]; fmtty$0 = fmtty$13; break;
+        var fmtty$13 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
+         /*<<scanf.ml:1223:35>>*/ fmtty$0 = fmtty$13;
+        break;
        case 13:
-        var fmt_rest = fmtty$0[1];
+        var fmt_rest =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
          /*<<scanf.ml:1206:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1207:31>>*/ return caml_call1
@@ -30830,7 +31718,7 @@
           /*<<scanf.ml:1208:6>>*/ return take_fmtty_format_readers
                  (new_k, fmt_rest, fmt) /*<<scanf.ml:1208:50>>*/ ;} /*<<scanf.ml:1206:4>>*/ ;
        default:
-        var fmt_rest$0 = fmtty$0[1];
+        var fmt_rest$0 =  /*<<scanf.ml:1204:19>>*/ fmtty$0[1];
          /*<<scanf.ml:1210:4>>*/ return function(reader){
          function new_k(readers_rest){
            /*<<scanf.ml:1211:31>>*/ return caml_call1
@@ -30847,9 +31735,10 @@
    }
    function make_scanf(ib, fmt, readers){
     var fmt$0 = fmt;
-     /*<<scanf.ml:1266:22>>*/ for(;;){
-     if(typeof fmt$0 === "number")  /*<<scanf.ml:1418:4>>*/ return 0;
-     switch(fmt$0[0]){
+    for(;;){
+      /*<<scanf.ml:1266:22>>*/ if(typeof fmt$0 === "number")
+       /*<<scanf.ml:1418:4>>*/ return 0;
+      /*<<scanf.ml:1266:22>>*/ switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
          /*<<scanf.ml:939:62>>*/ store_char
@@ -30860,10 +31749,13 @@
                  /*<<scanf.ml:1270:13>>*/ make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:39>>*/ ;
        case 1:
         var
-         rest$0 = fmt$0[1],
+         rest$0 =  /*<<scanf.ml:1266:22>>*/ fmt$0[1],
          find_stop =
             /*<<scanf.ml:1034:2>>*/ function(width){
-            var c = check_next_char(cst_a_Char, width, ib);
+            var
+             c =
+                /*<<scanf.ml:1047:10>>*/ check_next_char
+                (cst_a_Char, width, ib);
              /*<<scanf.ml:1047:43>>*/ return 39 === c
                     ?  /*<<scanf.ml:1048:14>>*/ ignore_char(width, ib)
                     :  /*<<scanf.ml:1049:11>>*/ character_mismatch(39, c) /*<<scanf.ml:1049:36>>*/ ;
@@ -30873,7 +31765,8 @@
          /*<<scanf.ml:1035:39>>*/ if(39 === c){
          var
           width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
-          c$3 = check_next_char(cst_a_Char, width, ib);
+          c$3 =
+             /*<<scanf.ml:1040:10>>*/ check_next_char(cst_a_Char, width, ib);
           /*<<scanf.ml:1040:43>>*/ if(92 === c$3)
            /*<<scanf.ml:1042:72>>*/ find_stop
            ( /*<<scanf.ml:1042:16>>*/ scan_backslash_char
@@ -30889,7 +31782,7 @@
                 c$1,
                  /*<<scanf.ml:1274:13>>*/ make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:39>>*/ ;
        case 2:
-        var pad = fmt$0[1], match = fmt$0[2];
+        var pad =  /*<<scanf.ml:1266:22>>*/ fmt$0[1], match = fmt$0[2];
         if(typeof match !== "number")
          switch(match[0]){
            case 17:
@@ -30909,7 +31802,7 @@
              /*<<scanf.ml:1280:4>>*/ return pad_prec_scanf
                     (ib, str_rest, readers, pad, 0, scan$0, token_string) /*<<scanf.ml:1418:7>>*/ ;
            case 18:
-            var _D_ = match[1];
+            var _D_ =  /*<<scanf.ml:1266:22>>*/ match[1];
             if(0 === _D_[0]){
              var
               rest$3 = match[2],
@@ -30929,7 +31822,7 @@
                       token_string) /*<<scanf.ml:1418:7>>*/ ;
             }
             var
-             rest$4 = match[2],
+             rest$4 =  /*<<scanf.ml:1266:22>>*/ match[2],
              fmt$2 = _D_[1][1],
              scan$2 =
                 /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
@@ -30946,7 +31839,7 @@
                      token_string) /*<<scanf.ml:1418:7>>*/ ;
          }
         var
-         rest$1 = fmt$0[2],
+         rest$1 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2],
          scan =
             /*<<scanf.ml:1290:4>>*/ function(width, param, ib){
              /*<<scanf.ml:1290:26>>*/ return scan_string(0, width, ib) /*<<scanf.ml:1290:51>>*/ ;
@@ -30955,7 +31848,7 @@
                 (ib, rest$1, readers, pad, 0, scan, token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 3:
         var
-         rest$5 = fmt$0[2],
+         rest$5 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2],
          pad$0 = fmt$0[1],
          scan$3 =
             /*<<scanf.ml:1294:4>>*/ function(width, param, ib){
@@ -30965,7 +31858,7 @@
                 (ib, rest$5, readers, pad$0, 0, scan$3, token_string) /*<<scanf.ml:1418:7>>*/ ;
        case 4:
         var
-         rest$6 = fmt$0[4],
+         rest$6 =  /*<<scanf.ml:1266:22>>*/ fmt$0[4],
          prec = fmt$0[3],
          pad$1 = fmt$0[2],
          iconv = fmt$0[1],
@@ -30991,7 +31884,7 @@
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 5:
         var
-         rest$7 = fmt$0[4],
+         rest$7 =  /*<<scanf.ml:1266:22>>*/ fmt$0[4],
          prec$0 = fmt$0[3],
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1],
@@ -31017,7 +31910,7 @@
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 6:
         var
-         rest$8 = fmt$0[4],
+         rest$8 =  /*<<scanf.ml:1266:22>>*/ fmt$0[4],
          prec$1 = fmt$0[3],
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1],
@@ -31043,7 +31936,7 @@
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 7:
         var
-         rest$9 = fmt$0[4],
+         rest$9 =  /*<<scanf.ml:1266:22>>*/ fmt$0[4],
          prec$2 = fmt$0[3],
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1],
@@ -31068,7 +31961,7 @@
                           ( /*<<scanf.ml:559:42>>*/ token_int_literal(conv$2, ib)) /*<<scanf.ml:559:69>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 8:
-        switch(fmt$0[1][2]){
+         /*<<scanf.ml:1266:22>>*/ switch(fmt$0[1][2]){
           case 5:
           case 8:
            var rest$11 = fmt$0[4], prec$4 = fmt$0[3], pad$6 = fmt$0[2];
@@ -31082,7 +31975,10 @@
                     token_float) /*<<scanf.ml:1418:7>>*/ ;
           case 6:
           case 7:
-           var rest$12 = fmt$0[4], prec$5 = fmt$0[3], pad$7 = fmt$0[2];
+           var
+            rest$12 =  /*<<scanf.ml:1266:22>>*/ fmt$0[4],
+            prec$5 = fmt$0[3],
+            pad$7 = fmt$0[2];
             /*<<scanf.ml:1318:4>>*/ return pad_prec_scanf
                    (ib,
                     rest$12,
@@ -31092,7 +31988,10 @@
                     scan_hex_float,
                     token_float) /*<<scanf.ml:1418:7>>*/ ;
           default:
-           var rest$10 = fmt$0[4], prec$3 = fmt$0[3], pad$5 = fmt$0[2];
+           var
+            rest$10 =  /*<<scanf.ml:1266:22>>*/ fmt$0[4],
+            prec$3 = fmt$0[3],
+            pad$5 = fmt$0[2];
             /*<<scanf.ml:1316:4>>*/ return pad_prec_scanf
                    (ib,
                     rest$10,
@@ -31104,7 +32003,7 @@
         }
        case 9:
         var
-         rest$13 = fmt$0[2],
+         rest$13 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2],
          pad$8 = fmt$0[1],
          scan$8 =
             /*<<scanf.ml:1320:4>>*/ function(_O_, param, ib){
@@ -31124,31 +32023,34 @@
          /*<<scanf.ml:1321:4>>*/ return pad_prec_scanf
                 (ib, rest$13, readers, pad$8, 0, scan$8, token_bool) /*<<scanf.ml:1418:7>>*/ ;
        case 10:
-        var rest$14 = fmt$0[1];
+        var rest$14 =  /*<<scanf.ml:1266:22>>*/ fmt$0[1];
          /*<<scanf.ml:1337:31>>*/ if
          (!  /*<<scanf.ml:1337:7>>*/ end_of_input(ib))
           /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
-        fmt$0 = rest$14;
+         /*<<scanf.ml:1337:37>>*/ fmt$0 = rest$14;
         break;
        case 11:
-        var rest$15 = fmt$0[2], str$0 = fmt$0[1];
+        var rest$15 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2], str$0 = fmt$0[1];
          /*<<scanf.ml:1341:4>>*/ caml_call2
          (Stdlib_String[30],
           function(_N_){ /*<<?>>*/ return check_char(ib, _N_);},
           str$0);
-        fmt$0 = rest$15;
+         /*<<scanf.ml:1341:35>>*/ fmt$0 = rest$15;
         break;
        case 12:
-        var rest$16 = fmt$0[2], chr = fmt$0[1];
+        var rest$16 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2], chr = fmt$0[1];
          /*<<scanf.ml:1344:4>>*/ check_char(ib, chr);
-        fmt$0 = rest$16;
+         /*<<scanf.ml:1344:21>>*/ fmt$0 = rest$16;
         break;
        case 13:
-        var rest$17 = fmt$0[3], fmtty = fmt$0[2], pad_opt = fmt$0[1];
+        var
+         rest$17 =  /*<<scanf.ml:1266:22>>*/ fmt$0[3],
+         fmtty = fmt$0[2],
+         pad_opt = fmt$0[1];
          /*<<scanf.ml:1348:12>>*/ scan_caml_string
          ( /*<<scanf.ml:1348:29>>*/ width_of_pad_opt(pad_opt), ib);
         var s =  /*<<scanf.ml:1349:12>>*/ token_string(ib);
-        try{
+         /*<<scanf.ml:1350:4>>*/ try{
          var
           _E_ =
              /*<<scanf.ml:1351:10>>*/ caml_call2
@@ -31157,18 +32059,25 @@
         }
         catch(exn$0){
          var exn = caml_wrap_exception(exn$0);
-         if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
-         var msg = exn[2], fmt$3 =  /*<<scanf.ml:1352:26>>*/ bad_input(msg);
+          /*<<?>>*/ if(exn[1] !== Stdlib[7])
+          throw caml_maybe_attach_backtrace(exn, 0);
+         var
+          msg = exn[2],
+          fmt$3 =
+             /*<<scanf.ml:1352:39>>*/  /*<<scanf.ml:1352:26>>*/ bad_input(msg);
         }
          /*<<scanf.ml:1354:41>>*/ return [0,
                 fmt$3,
                  /*<<scanf.ml:1354:15>>*/ make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:41>>*/ ;
        case 14:
-        var rest$18 = fmt$0[3], fmtty$0 = fmt$0[2], pad_opt$0 = fmt$0[1];
+        var
+         rest$18 =  /*<<scanf.ml:1266:22>>*/ fmt$0[3],
+         fmtty$0 = fmt$0[2],
+         pad_opt$0 = fmt$0[1];
          /*<<scanf.ml:1356:12>>*/ scan_caml_string
          ( /*<<scanf.ml:1356:29>>*/ width_of_pad_opt(pad_opt$0), ib);
         var s$0 =  /*<<scanf.ml:1357:12>>*/ token_string(ib);
-        try{
+         /*<<scanf.ml:1358:4>>*/ try{
          var
           fmt$6 =
              /*<<scanf.ml:1360:45>>*/  /*<<scanf.ml:1360:26>>*/ caml_call2
@@ -31198,7 +32107,7 @@
         }
         catch(exn){
          var exn$0 = caml_wrap_exception(exn);
-         if(exn$0[1] !== Stdlib[7])
+          /*<<?>>*/ if(exn$0[1] !== Stdlib[7])
           throw caml_maybe_attach_backtrace(exn$0, 0);
          var
           msg$0 = exn$0[2],
@@ -31221,7 +32130,7 @@
                 (Stdlib[1], cst_scanf_bad_conversion_t) /*<<scanf.ml:1418:7>>*/ ;
        case 17:
         var
-         rest$19 = fmt$0[2],
+         rest$19 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2],
          formatting_lit = fmt$0[1],
          _K_ =
             /*<<scanf.ml:1401:32>>*/ caml_call1
@@ -31230,10 +32139,10 @@
          (Stdlib_String[30],
           function(_M_){ /*<<?>>*/ return check_char(ib, _M_);},
           _K_);
-        fmt$0 = rest$19;
+         /*<<scanf.ml:1401:73>>*/ fmt$0 = rest$19;
         break;
        case 18:
-        var _L_ = fmt$0[1];
+        var _L_ =  /*<<scanf.ml:1266:22>>*/ fmt$0[1];
         if(0 === _L_[0]){
          var rest$20 = fmt$0[2], fmt$9 = _L_[1][1];
           /*<<scanf.ml:1404:4>>*/ check_char(ib, 64);
@@ -31242,26 +32151,26 @@
           fmt$10 =
              /*<<scanf.ml:1405:18>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$9, rest$20);
-         fmt$0 = fmt$10;
+          /*<<scanf.ml:1405:40>>*/ fmt$0 = fmt$10;
         }
         else{
-         var rest$21 = fmt$0[2], fmt$11 = _L_[1][1];
+         var rest$21 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2], fmt$11 = _L_[1][1];
           /*<<scanf.ml:1407:4>>*/ check_char(ib, 64);
           /*<<scanf.ml:1407:23>>*/ check_char(ib, 91);
          var
           fmt$12 =
              /*<<scanf.ml:1408:18>>*/ caml_call2
              (CamlinternalFormatBasics[3], fmt$11, rest$21);
-         fmt$0 = fmt$12;
+          /*<<scanf.ml:1408:40>>*/ fmt$0 = fmt$12;
         }
         break;
        case 19:
-        var fmt_rest = fmt$0[1];
+        var fmt_rest =  /*<<scanf.ml:1266:22>>*/ fmt$0[1];
          /*<<scanf.ml:1329:4>>*/ if(! readers)
           /*<<scanf.ml:1334:8>>*/ return caml_call1
                  (Stdlib[1], cst_scanf_missing_reader) /*<<scanf.ml:1418:7>>*/ ;
         var
-         readers_rest = readers[2],
+         readers_rest =  /*<<scanf.ml:1329:4>>*/ readers[2],
          reader = readers[1],
          x =  /*<<scanf.ml:1331:16>>*/ caml_call1(reader, ib);
          /*<<scanf.ml:1332:52>>*/ return [0,
@@ -31269,7 +32178,9 @@
                  /*<<scanf.ml:1332:17>>*/ make_scanf
                  (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:52>>*/ ;
        case 20:
-        var width_opt = fmt$0[1], match$1 = fmt$0[3];
+        var
+         width_opt =  /*<<scanf.ml:1266:22>>*/ fmt$0[1],
+         match$1 = fmt$0[3];
         if(typeof match$1 !== "number" && 17 === match$1[0]){
          var
           rest$23 = match$1[2],
@@ -31290,7 +32201,7 @@
                   /*<<scanf.ml:1387:13>>*/ make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:43>>*/ ;
         }
         var
-         rest$22 = fmt$0[3],
+         rest$22 =  /*<<scanf.ml:1266:22>>*/ fmt$0[3],
          char_set = fmt$0[2],
          width$1 =  /*<<scanf.ml:1389:16>>*/ width_of_pad_opt(width_opt);
          /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
@@ -31300,27 +32211,27 @@
                 s$1,
                  /*<<scanf.ml:1392:13>>*/ make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:39>>*/ ;
        case 21:
-        var rest$24 = fmt$0[2], counter = fmt$0[1];
+        var rest$24 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2], counter = fmt$0[1];
          /*<<scanf.ml:1131:2>>*/ switch(counter){
           case 0:
-           var count = ib[5]; break;
+           var count =  /*<<scanf.ml:220:22>>*/ ib[5]; break;
           case 1:
            var count =  /*<<scanf.ml:1133:20>>*/ char_count(ib); break;
-          default: var count = ib[6];
+          default: var count =  /*<<scanf.ml:234:23>>*/ ib[6];
         }
          /*<<scanf.ml:1395:43>>*/ return [0,
                 count,
                  /*<<scanf.ml:1395:17>>*/ make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:43>>*/ ;
        case 22:
         var
-         rest$25 = fmt$0[1],
+         rest$25 =  /*<<scanf.ml:1266:22>>*/ fmt$0[1],
          c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
          /*<<scanf.ml:1398:39>>*/ return [0,
                 c$2,
                  /*<<scanf.ml:1398:13>>*/ make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:39>>*/ ;
        case 23:
         var
-         rest$26 = fmt$0[2],
+         rest$26 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2],
          ign = fmt$0[1],
          fmt$13 =
             /*<<scanf.ml:1411:71>>*/  /*<<scanf.ml:1411:32>>*/ caml_call2
@@ -31330,7 +32241,7 @@
          /*<<scanf.ml:1412:42>>*/ if(! match$3)
           /*<<scanf.ml:1414:13>>*/ throw caml_maybe_attach_backtrace
                 ([0, Assert_failure, _s_], 1);
-        var arg_rest = match$3[2];
+        var arg_rest =  /*<<scanf.ml:1412:42>>*/ match$3[2];
          /*<<scanf.ml:1413:28>>*/ return arg_rest;
        default:
          /*<<scanf.ml:1327:4>>*/ return caml_call1
@@ -31348,7 +32259,7 @@
               x$0,
                /*<<scanf.ml:1437:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:38>>*/ ;
      }
-     if(prec)
+      /*<<scanf.ml:1429:42>>*/ if(prec)
        /*<<scanf.ml:1453:4>>*/ return caml_call1
               (Stdlib[1], cst_scanf_bad_conversion) /*<<scanf.ml:1453:46>>*/ ;
       /*<<scanf.ml:1431:12>>*/ caml_call3(scan, Stdlib[19], Stdlib[19], ib);
@@ -31357,13 +32268,13 @@
              x,
               /*<<scanf.ml:1433:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:38>>*/ ;
     }
-    if(0 !== pad[0])
+     /*<<scanf.ml:1429:42>>*/ if(0 !== pad[0])
       /*<<scanf.ml:1451:4>>*/ return caml_call1
              (Stdlib[1], cst_scanf_bad_conversion$2) /*<<scanf.ml:1453:46>>*/ ;
-    if(! pad[1])
+     /*<<scanf.ml:1429:42>>*/ if(! pad[1])
       /*<<scanf.ml:1447:4>>*/ return caml_call1
              (Stdlib[1], cst_scanf_bad_conversion$1) /*<<scanf.ml:1453:46>>*/ ;
-    var w = pad[2];
+    var w =  /*<<scanf.ml:1429:42>>*/ pad[2];
     if(typeof prec !== "number"){
      var p$0 = prec[1];
       /*<<scanf.ml:1443:12>>*/ caml_call3(scan, w, p$0, ib);
@@ -31372,7 +32283,7 @@
              x$2,
               /*<<scanf.ml:1445:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:38>>*/ ;
     }
-    if(prec)
+     /*<<scanf.ml:1429:42>>*/ if(prec)
       /*<<scanf.ml:1449:4>>*/ return caml_call1
              (Stdlib[1], cst_scanf_bad_conversion$0) /*<<scanf.ml:1453:46>>*/ ;
      /*<<scanf.ml:1439:12>>*/ caml_call3(scan, w, Stdlib[19], ib);
@@ -31386,10 +32297,12 @@
     function k(readers, f$1){
       /*<<scanf.ml:1465:4>>*/  /*<<scanf.ml:222:23>>*/ caml_call1
       (Stdlib_Buffer[9], ib[8]);
-     try{var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);}
+      /*<<scanf.ml:1465:27>>*/ try{
+      var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);
+     }
      catch(exc$0){
       var exc = caml_wrap_exception(exc$0);
-      if
+       /*<<?>>*/ if
        (exc[1] !== Scan_failure && exc[1] !== Stdlib[7] && exc !== Stdlib[12]){
        if(exc[1] !== Stdlib[6]) throw caml_maybe_attach_backtrace(exc, 0);
        var
@@ -31403,14 +32316,15 @@
       }
        /*<<scanf.ml:1468:8>>*/ return caml_call2(ef, ib, exc) /*<<scanf.ml:1472:25>>*/ ;
      }
-     var f = f$1, args = args$1;
-      /*<<scanf.ml:1460:18>>*/ for(;;){
-      if(! args)  /*<<scanf.ml:1472:25>>*/ return caml_call1(af, f);
+     var f =  /*<<scanf.ml:1472:11>>*/ f$1, args = args$1;
+     for(;;){
+       /*<<scanf.ml:1460:18>>*/ if(! args)
+        /*<<scanf.ml:1472:25>>*/ return caml_call1(af, f);
       var
-       args$0 = args[2],
+       args$0 =  /*<<scanf.ml:1460:18>>*/ args[2],
        x = args[1],
        f$0 =  /*<<scanf.ml:1461:27>>*/ caml_call1(f, x);
-      f = f$0;
+       /*<<scanf.ml:1461:32>>*/ f = f$0;
       args = args$0;
      }
      /*<<scanf.ml:1472:25>>*/ }
@@ -31464,7 +32378,7 @@
      /*<<scanf.ml:1502:4>>*/  /*<<scanf.ml:1502:12>>*/ scan_caml_string
      (Stdlib[19], ib);
     var str =  /*<<scanf.ml:1503:14>>*/ token_string(ib);
-    try{
+     /*<<scanf.ml:1504:4>>*/ try{
      var
       _x_ =
          /*<<scanf.ml:1505:10>>*/ caml_call2
@@ -31473,8 +32387,11 @@
     }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
-     if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
-     var msg = exn[2], fmt =  /*<<scanf.ml:1506:26>>*/ bad_input(msg);
+      /*<<?>>*/ if(exn[1] !== Stdlib[7])
+      throw caml_maybe_attach_backtrace(exn, 0);
+     var
+      msg = exn[2],
+      fmt =  /*<<scanf.ml:1506:39>>*/  /*<<scanf.ml:1506:26>>*/ bad_input(msg);
     }
      /*<<scanf.ml:1507:4>>*/ return caml_call1(f, fmt) /*<<scanf.ml:1507:10>>*/ ;
    }
@@ -31723,7 +32640,7 @@
      var _ac_ = 0;
     }
     else
-     var _ac_ = _ab_;
+     var _ac_ =  /*<<camlinternalOO.ml:145:2>>*/ _ab_;
     return _ac_;
     /*<<camlinternalOO.ml:149:4>>*/ }
    var
@@ -31750,7 +32667,8 @@
     }
     catch(_aa_){
      var ___ = caml_wrap_exception(_aa_);
-     if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
+      /*<<?>>*/ if(___ !== Stdlib[8])
+      throw caml_maybe_attach_backtrace(___, 0);
      var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
       /*<<camlinternalOO.ml:173:71>>*/ table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
@@ -31790,13 +32708,13 @@
     }
     catch(_Y_){
      var _W_ = caml_wrap_exception(_Y_);
-     if(_W_ === Stdlib[8])
+      /*<<?>>*/ if(_W_ === Stdlib[8])
        /*<<camlinternalOO.ml:189:41>>*/ return  /*<<camlinternalOO.ml:189:20>>*/ caml_check_bound
                (table[2], label)
               [1 + label] /*<<camlinternalOO.ml:189:41>>*/ ;
-     throw caml_maybe_attach_backtrace(_W_, 0);
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_W_, 0);
     }
-   }
+    /*<<camlinternalOO.ml:189:41>>*/ }
    function to_list(arr){
      /*<<camlinternalOO.ml:192:2>>*/ return 0 === arr
             ? 0
@@ -31853,8 +32771,9 @@
        }
        catch(_T_){
         var _Q_ = caml_wrap_exception(_T_);
-        if(_Q_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_Q_, 0);
-        var _R_ = 1;
+         /*<<?>>*/ if(_Q_ !== Stdlib[8])
+         throw caml_maybe_attach_backtrace(_Q_, 0);
+        var _R_ =  /*<<camlinternalOO.ml:216:74>>*/ 1;
        }
         /*<<camlinternalOO.ml:217:21>>*/ by_label[1] =
          /*<<camlinternalOO.ml:215:10>>*/ caml_call3(Labs[2], label, _R_, _P_);
@@ -31940,7 +32859,8 @@
     }
     catch(_N_){
      var _L_ = caml_wrap_exception(_N_);
-     if(_L_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_L_, 0);
+      /*<<?>>*/ if(_L_ !== Stdlib[8])
+      throw caml_maybe_attach_backtrace(_L_, 0);
      var index =  /*<<camlinternalOO.ml:252:2>>*/ table[1];
       /*<<camlinternalOO.ml:253:2>>*/ table[1] = index + 1 | 0;
       /*<<camlinternalOO.ml:260:17>>*/ if(name !== "")
@@ -32007,10 +32927,10 @@
     }
     catch(_B_){
      var _z_ = caml_wrap_exception(_B_);
-     if(_z_ === Stdlib[8])
+      /*<<?>>*/ if(_z_ === Stdlib[8])
        /*<<camlinternalOO.ml:279:50>>*/ throw caml_maybe_attach_backtrace
              ([0, Assert_failure, _a_], 1);
-     throw caml_maybe_attach_backtrace(_z_, 0);
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_z_, 0);
     }
     /*<<camlinternalOO.ml:279:62>>*/ }
    function get_variables(table, names){
@@ -32151,11 +33071,12 @@
    }
    function iter_f(obj, param){
     var param$0 = param;
-     /*<<camlinternalOO.ml:366:15>>*/ for(;;){
-     if(! param$0)  /*<<camlinternalOO.ml:368:12>>*/ return 0;
-     var l = param$0[2], f = param$0[1];
+    for(;;){
+      /*<<camlinternalOO.ml:366:15>>*/ if(! param$0)
+       /*<<camlinternalOO.ml:368:12>>*/ return 0;
+     var l =  /*<<camlinternalOO.ml:366:15>>*/ param$0[2], f = param$0[1];
       /*<<camlinternalOO.ml:369:12>>*/ caml_call1(f, obj);
-     param$0 = l;
+      /*<<camlinternalOO.ml:369:17>>*/ param$0 = l;
     }
     /*<<camlinternalOO.ml:369:31>>*/ }
    function run_initializers(obj, table){
@@ -32170,7 +33091,7 @@
     var inits =  /*<<camlinternalOO.ml:377:44>>*/ table[8];
      /*<<camlinternalOO.ml:379:4>>*/ if(0 !== inits)
       /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
-    return obj;
+     /*<<camlinternalOO.ml:379:4>>*/ return obj;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
      /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)
@@ -32220,12 +33141,13 @@
      i$1 =  /*<<camlinternalOO.ml:453:4>>*/ keys.length - 2 | 0,
      i = i$1,
      tables$0 = root_data;
-     /*<<camlinternalOO.ml:432:2>>*/ for(;;){
-     if(0 > i)  /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
+    for(;;){
+      /*<<camlinternalOO.ml:432:2>>*/ if(0 > i)
+       /*<<camlinternalOO.ml:432:16>>*/ return tables$0;
      var
       key =  /*<<camlinternalOO.ml:433:12>>*/ caml_check_bound(keys, i)[1 + i],
-      tables$1 = tables$0;
-      /*<<camlinternalOO.ml:435:4>>*/ for(;;){
+      tables$1 =  /*<<camlinternalOO.ml:448:2>>*/ tables$0;
+     for(;;){
        /*<<camlinternalOO.ml:412:14>>*/ if(! tables$1)
         /*<<camlinternalOO.ml:413:13>>*/ throw caml_maybe_attach_backtrace
               ([0, Assert_failure, _d_], 1);
@@ -32243,7 +33165,7 @@
         /*<<camlinternalOO.ml:445:30>>*/ return build_path
                (i - 1 | 0, keys, next) /*<<camlinternalOO.ml:455:48>>*/ ;
       }
-      tables$1 = tables;
+       /*<<camlinternalOO.ml:442:26>>*/ tables$1 = tables;
      }
      var tables_data =  /*<<camlinternalOO.ml:436:12>>*/ get_data(tables$1);
       /*<<camlinternalOO.ml:436:27>>*/ if(! tables_data)
@@ -32270,11 +33192,14 @@
            _n_)
         | 0)
         >= n){
-       var n$0 =  /*<<camlinternalOO.ml:510:16>>*/ new_method(table);
+       var
+        n$0 =
+           /*<<camlinternalOO.ml:510:32>>*/  /*<<camlinternalOO.ml:510:16>>*/ new_method
+           (table);
        break a;
       }
      }
-     var n$0 = n;
+     var n$0 =  /*<<camlinternalOO.ml:510:9>>*/ n;
     }
      /*<<camlinternalOO.ml:512:2>>*/ caml_check_bound(table[2], n$0)[1 + n$0]
     = 0;
@@ -32284,7 +33209,7 @@
     var
      len =  /*<<camlinternalOO.ml:598:2>>*/ methods.length - 1,
      i =  /*<<camlinternalOO.ml:598:36>>*/ [0, 0];
-    for(;;){
+     /*<<camlinternalOO.ml:599:2>>*/ for(;;){
      if(i[1] >= len) return 0;
      var
       _h_ =  /*<<camlinternalOO.ml:600:4>>*/ i[1],
@@ -32307,7 +33232,7 @@
          let x$20 = x;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:459:18>>*/ function(obj){
               /*<<camlinternalOO.ml:459:35>>*/ return x$20;
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
@@ -32316,7 +33241,7 @@
          let n$38 = n;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:460:18>>*/ function(obj){
               /*<<camlinternalOO.ml:460:34>>*/ return obj[1 + n$38];
              /*<<camlinternalOO.ml:460:56>>*/ };
          break;
@@ -32327,7 +33252,7 @@
          let e$10 = e, n$37 = n$0;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:462:2>>*/ function(obj){
               /*<<camlinternalOO.ml:463:4>>*/ return obj[1 + e$10][1 + n$37];
              /*<<camlinternalOO.ml:463:65>>*/ };
          break;
@@ -32336,7 +33261,7 @@
          let n$36 = n$1;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:464:18>>*/ function(obj){
               /*<<camlinternalOO.ml:464:34>>*/ return caml_call1
                      (obj[1][1 + n$36], obj) /*<<camlinternalOO.ml:464:48>>*/ ;
             };
@@ -32346,7 +33271,7 @@
          let n$35 = n$2;
          var
           clo$0 =
-            function(obj, x){
+             /*<<camlinternalOO.ml:465:18>>*/ function(obj, x){
               /*<<camlinternalOO.ml:465:36>>*/ obj[1 + n$35] = x;
              return 0;
              /*<<camlinternalOO.ml:465:60>>*/ };
@@ -32358,7 +33283,7 @@
          let f$20 = f, x$19 = x$0;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:466:20>>*/ function(obj){
               /*<<camlinternalOO.ml:466:37>>*/ return caml_call1(f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
             };
          break;
@@ -32369,7 +33294,7 @@
          let f$19 = f$0, n$34 = n$3;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:467:20>>*/ function(obj){
               /*<<camlinternalOO.ml:467:36>>*/ return caml_call1
                      (f$19, obj[1 + n$34]) /*<<camlinternalOO.ml:467:62>>*/ ;
             };
@@ -32382,7 +33307,7 @@
          let f$18 = f$1, e$9 = e$0, n$33 = n$4;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:469:2>>*/ function(obj){
               /*<<camlinternalOO.ml:470:4>>*/ return caml_call1
                      (f$18, obj[1 + e$9][1 + n$33]) /*<<camlinternalOO.ml:470:69>>*/ ;
             };
@@ -32394,7 +33319,7 @@
          let f$17 = f$2, n$32 = n$5;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:471:20>>*/ function(obj){
               /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:54>>*/ caml_call1
                      (f$17,
                        /*<<camlinternalOO.ml:471:38>>*/ caml_call1
@@ -32409,7 +33334,7 @@
          let f$16 = f$3, x$18 = x$1, y$0 = y;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:472:28>>*/ function(obj){
               /*<<camlinternalOO.ml:472:45>>*/ return caml_call2
                      (f$16, x$18, y$0) /*<<camlinternalOO.ml:472:50>>*/ ;
             };
@@ -32422,7 +33347,7 @@
          let f$15 = f$4, x$17 = x$2, n$31 = n$6;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:473:28>>*/ function(obj){
               /*<<camlinternalOO.ml:473:44>>*/ return caml_call2
                      (f$15, x$17, obj[1 + n$31]) /*<<camlinternalOO.ml:473:72>>*/ ;
             };
@@ -32436,7 +33361,7 @@
          let f$14 = f$5, x$16 = x$3, e$8 = e$1, n$30 = n$7;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:478:2>>*/ function(obj){
               /*<<camlinternalOO.ml:479:4>>*/ return caml_call2
                      (f$14, x$16, obj[1 + e$8][1 + n$30]) /*<<camlinternalOO.ml:479:71>>*/ ;
             };
@@ -32449,7 +33374,7 @@
          let f$13 = f$6, x$15 = x$4, n$29 = n$8;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:474:27>>*/ function(obj){
               /*<<camlinternalOO.ml:474:43>>*/ return  /*<<camlinternalOO.ml:474:63>>*/ caml_call2
                      (f$13,
                       x$15,
@@ -32465,7 +33390,7 @@
          let f$12 = f$7, n$28 = n$9, x$14 = x$5;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:475:26>>*/ function(obj){
               /*<<camlinternalOO.ml:475:42>>*/ return caml_call2
                      (f$12, obj[1 + n$28], x$14) /*<<camlinternalOO.ml:475:70>>*/ ;
             };
@@ -32479,7 +33404,7 @@
          let f$11 = f$8, e$7 = e$2, n$27 = n$10, x$13 = x$6;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:481:2>>*/ function(obj){
               /*<<camlinternalOO.ml:482:4>>*/ return caml_call2
                      (f$11, obj[1 + e$7][1 + n$27], x$13) /*<<camlinternalOO.ml:482:71>>*/ ;
             };
@@ -32492,7 +33417,7 @@
          let f$10 = f$9, n$26 = n$11, x$12 = x$7;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:476:27>>*/ function(obj){
               /*<<camlinternalOO.ml:476:43>>*/ return  /*<<camlinternalOO.ml:476:61>>*/ caml_call2
                      (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
@@ -32507,7 +33432,7 @@
          let n$25 = n$12, x$11 = x$8;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:483:25>>*/ function(obj){
               /*<<camlinternalOO.ml:483:41>>*/ return caml_call2
                      (obj[1][1 + n$25], obj, x$11) /*<<camlinternalOO.ml:483:68>>*/ ;
             };
@@ -32519,7 +33444,7 @@
          let n$24 = n$13, m$12 = m;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:485:2>>*/ function(obj){
               /*<<camlinternalOO.ml:485:18>>*/ return caml_call2
                      (obj[1][1 + n$24], obj, obj[1 + m$12]) /*<<camlinternalOO.ml:485:68>>*/ ;
             };
@@ -32532,7 +33457,7 @@
          let n$23 = n$14, e$6 = e$3, m$11 = m$0;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:487:2>>*/ function(obj){
               /*<<camlinternalOO.ml:487:18>>*/ return caml_call2
                      (obj[1][1 + n$23], obj, obj[1 + e$6][1 + m$11]) /*<<camlinternalOO.ml:488:69>>*/ ;
             };
@@ -32544,7 +33469,7 @@
          let n$22 = n$15, m$10 = m$1;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:490:2>>*/ function(obj){
              var
               _l_ =
                  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
@@ -32561,7 +33486,7 @@
          let m$9 = m$2, x$10 = x$9;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:492:2>>*/ function(obj){
               /*<<camlinternalOO.ml:492:18>>*/ return caml_call1
                      (caml_get_public_method(x$10, m$9, 0), x$10) /*<<camlinternalOO.ml:492:58>>*/ ;
             };
@@ -32574,7 +33499,7 @@
          let m$8 = m$3, n$21 = n$16;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:494:2>>*/ function(obj){
              var _k_ =  /*<<camlinternalOO.ml:495:4>>*/ obj[1 + n$21];
              return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_) /*<<camlinternalOO.ml:496:32>>*/ ;
             };
@@ -32588,7 +33513,7 @@
          let m$7 = m$4, e$5 = e$4, n$20 = n$17;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:498:2>>*/ function(obj){
              var
               _j_ =  /*<<camlinternalOO.ml:499:4>>*/ obj[1 + e$5][1 + n$20];
              return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_) /*<<camlinternalOO.ml:502:34>>*/ ;
@@ -32602,7 +33527,7 @@
          let m$6 = m$5, n$19 = n$18;
          var
           clo$0 =
-            function(obj){
+             /*<<camlinternalOO.ml:504:2>>*/ function(obj){
              var
               _i_ =
                  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
@@ -32612,7 +33537,7 @@
             };
       }
      else
-      var clo$0 = clo;
+      var clo$0 =  /*<<camlinternalOO.ml:595:24>>*/ clo;
       /*<<camlinternalOO.ml:601:4>>*/ set_method(table, label, clo$0);
       /*<<camlinternalOO.ml:601:30>>*/ i[1]++;
     }
@@ -32733,7 +33658,7 @@
                /*<<camlinternalMod.ml:32:11>>*/ return caml_call1(fn, x) /*<<camlinternalMod.ml:32:16>>*/ ;
              };
           let fn$0 = fn;
-          var init = fn;
+          var init =  /*<<camlinternalMod.ml:33:7>>*/ fn;
           break;
          case 1:
           var l =  /*<<camlinternalMod.ml:35:7>>*/ [];
@@ -32751,20 +33676,24 @@
               if(246 !== _j_ && 244 !== _j_) return l;
               return caml_call1(CamlinternalLazy[2], l);
              }]);
-          var init = l;
+          var init =  /*<<camlinternalMod.ml:42:7>>*/ l;
           break;
          default:
           var
            init =
-              /*<<camlinternalMod.ml:44:16>>*/ caml_call1
+              /*<<camlinternalMod.ml:44:48>>*/  /*<<camlinternalMod.ml:44:16>>*/ caml_call1
               (CamlinternalOO[21], loc);
        }
       else if(0 === shape[0])
        var
-        comps = shape[1],
-        init =  /*<<camlinternalMod.ml:46:16>>*/ init_mod_block(loc, comps);
+        comps =  /*<<camlinternalMod.ml:24:2>>*/ shape[1],
+        init =
+           /*<<camlinternalMod.ml:46:42>>*/  /*<<camlinternalMod.ml:46:16>>*/ init_mod_block
+           (loc, comps);
       else
-       var v = shape[1], init = v;
+       var
+        v =  /*<<camlinternalMod.ml:24:2>>*/ shape[1],
+        init =  /*<<camlinternalMod.ml:47:17>>*/ v;
        /*<<camlinternalMod.ml:49:2>>*/ modu[1 + i] = init;
       var _i_ =  /*<<camlinternalMod.ml:55:39>>*/ i + 1 | 0;
       if(_h_ === i) break;
@@ -32799,11 +33728,13 @@
            [1 + i];
        a:
        if(typeof shape === "number"){
-        if(2 === shape){
+         /*<<camlinternalMod.ml:66:2>>*/ if(2 === shape){
           /*<<camlinternalMod.ml:72:22>>*/ if
           (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
            && 4 === n$0.length - 1){
-          var cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i], j = 0;
+          var
+           cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i],
+           j =  /*<<camlinternalMod.ml:74:5>>*/ 0;
           for(;;){
             /*<<camlinternalMod.ml:75:7>>*/ cl[1 + j] = n$0[1 + j];
            var _c_ =  /*<<camlinternalMod.ml:75:41>>*/ j + 1 | 0;
@@ -32812,12 +33743,13 @@
           }
           break a;
          }
-         throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
+          /*<<camlinternalMod.ml:72:22>>*/ throw 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];
+        var comps =  /*<<camlinternalMod.ml:66:2>>*/ shape[1];
          /*<<camlinternalMod.ml:78:46>>*/ update_mod_block
          (comps, modu[1 + i], n$0);
        }
@@ -32826,9 +33758,10 @@
        i = _f_;
       }
      }
-     return 0;
+      /*<<camlinternalMod.ml:82:2>>*/ return 0;
     }
-    throw caml_maybe_attach_backtrace([0, Assert_failure, _b_], 1);
+     /*<<camlinternalMod.ml:81:19>>*/ throw caml_maybe_attach_backtrace
+           ([0, Assert_failure, _b_], 1);
     /*<<camlinternalMod.ml:84:6>>*/ }
    function update_mod(shape, o, n){
      /*<<camlinternalMod.ml:87:2>>*/ if
@@ -32899,9 +33832,9 @@
      a:
      b:
      {
-      var x = 16;
-       /*<<ephemeron.ml:101:6>>*/ for(;;){
-       if(initial_size <= x) break b;
+      var x =  /*<<ephemeron.ml:108:14>>*/ 16;
+      for(;;){
+        /*<<ephemeron.ml:101:6>>*/ if(initial_size <= x) break b;
         /*<<ephemeron.ml:102:11>>*/ if(Stdlib_Sys[13] < (x * 2 | 0)) break;
        var x$0 =  /*<<ephemeron.ml:103:11>>*/ x * 2 | 0;
        x = x$0;
@@ -32917,10 +33850,13 @@
        if(246 !== _ar_ && 244 !== _ar_){var _as_ = prng; break a;}
        var _as_ = caml_call1(CamlinternalLazy[2], prng);
       }
-      var seed = caml_call1(Stdlib_Random[19][4], _as_);
+      var
+       seed =
+          /*<<ephemeron.ml:109:67>>*/  /*<<ephemeron.ml:109:32>>*/ caml_call1
+          (Stdlib_Random[19][4], _as_);
      }
      else
-      var seed = 0;
+      var seed =  /*<<ephemeron.ml:109:73>>*/ 0;
       /*<<ephemeron.ml:110:74>>*/ return [0,
              0,
               /*<<ephemeron.ml:110:56>>*/ caml_make_vect(x, 0),
@@ -32942,7 +33878,7 @@
        i = _aq_;
       }
      }
-     return 0;
+      /*<<ephemeron.ml:115:6>>*/ return 0;
      /*<<ephemeron.ml:117:10>>*/ }
     function reset(h){
      var len =  /*<<ephemeron.ml:120:6>>*/ h[2].length - 1;
@@ -32967,19 +33903,25 @@
     function clean(h){
      function do_bucket(param){
       var param$0 = param;
-       /*<<ephemeron.ml:134:26>>*/ for(;;){
-       if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
-       var hkey = param$0[1], rest = param$0[3], c = param$0[2];
+      for(;;){
+        /*<<ephemeron.ml:134:26>>*/ if(! param$0)
+         /*<<ephemeron.ml:136:12>>*/ return 0;
+       var
+        hkey =  /*<<ephemeron.ml:134:26>>*/ param$0[1],
+        rest = param$0[3],
+        c = param$0[2];
         /*<<ephemeron.ml:137:51>>*/ if
         ( /*<<ephemeron.ml:137:36>>*/ caml_call1(H[6], c)){
-        var rest$0 = param$0[3], c$0 = param$0[2];
+        var
+         rest$0 =  /*<<ephemeron.ml:137:51>>*/ param$0[3],
+         c$0 = param$0[2];
          /*<<ephemeron.ml:141:40>>*/ return [0,
                 hkey,
                 c$0,
                  /*<<ephemeron.ml:141:26>>*/ do_bucket(rest$0)] /*<<ephemeron.ml:141:40>>*/ ;
        }
         /*<<ephemeron.ml:138:12>>*/ h[1] = h[1] - 1 | 0;
-       param$0 = rest;
+        /*<<ephemeron.ml:139:12>>*/ param$0 = rest;
       }
       /*<<ephemeron.ml:141:41>>*/ }
      var
@@ -32997,7 +33939,7 @@
        i = _ak_;
       }
      }
-     return 0;
+      /*<<ephemeron.ml:144:6>>*/ return 0;
      /*<<ephemeron.ml:146:10>>*/ }
     function resize(h){
      var
@@ -33016,7 +33958,10 @@
           /*<<ephemeron.ml:176:8>>*/ function(param){
            /*<<ephemeron.ml:176:32>>*/ if(! param)
             /*<<ephemeron.ml:177:21>>*/ return;
-          var rest = param[3], data = param[2], hkey = param[1];
+          var
+           rest =  /*<<ephemeron.ml:176:32>>*/ param[3],
+           data = param[2],
+           hkey = param[1];
            /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
           var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
            /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
@@ -33038,10 +33983,10 @@
         i = _ah_;
        }
       }
-      var _ag_ = 0;
+      var _ag_ =  /*<<ephemeron.ml:182:8>>*/ 0;
      }
      else
-      var _ag_ = _ad_;
+      var _ag_ =  /*<<ephemeron.ml:172:13>>*/ _ad_;
      return _ag_;
      /*<<ephemeron.ml:185:9>>*/ }
     function add(h, key, info){
@@ -33064,9 +34009,13 @@
      var hkey =  /*<<ephemeron.ml:197:17>>*/ caml_call2(H[2], h[3], key);
      function remove_bucket(param){
       var param$0 = param;
-       /*<<ephemeron.ml:198:30>>*/ for(;;){
-       if(! param$0)  /*<<ephemeron.ml:199:19>>*/ return 0;
-       var hk = param$0[1], next = param$0[3], c = param$0[2];
+      for(;;){
+        /*<<ephemeron.ml:198:30>>*/ if(! param$0)
+         /*<<ephemeron.ml:199:19>>*/ return 0;
+       var
+        hk =  /*<<ephemeron.ml:198:30>>*/ param$0[1],
+        next = param$0[3],
+        c = param$0[2];
         /*<<ephemeron.ml:200:33>>*/ if(hkey !== hk){
         var next$0 = param$0[3], c$0 = param$0[2];
          /*<<ephemeron.ml:210:59>>*/ return [0,
@@ -33085,7 +34034,8 @@
                   c,
                    /*<<ephemeron.ml:203:36>>*/ remove_bucket(next)] /*<<ephemeron.ml:203:54>>*/ ;
          default:
-           /*<<ephemeron.ml:207:16>>*/ h[1] = h[1] - 1 | 0; param$0 = next;
+           /*<<ephemeron.ml:207:16>>*/ h[1] = h[1] - 1 | 0;
+           /*<<ephemeron.ml:208:16>>*/ param$0 = next;
        }
       }
       /*<<ephemeron.ml:210:60>>*/ }
@@ -33102,12 +34052,17 @@
       hkey =  /*<<ephemeron.ml:239:17>>*/ caml_call2(H[2], h[3], key),
       _$_ =  /*<<ephemeron.ml:241:33>>*/ key_index(h, hkey),
       param =
-         /*<<ephemeron.ml:241:24>>*/ caml_check_bound(h[2], _$_)[1 + _$_];
-      /*<<ephemeron.ml:218:21>>*/ for(;;){
-      if(! param)
+         /*<<ephemeron.ml:241:51>>*/  /*<<ephemeron.ml:241:24>>*/ caml_check_bound
+          (h[2], _$_)
+         [1 + _$_];
+      /*<<ephemeron.ml:241:51>>*/ for(;;){
+       /*<<ephemeron.ml:218:21>>*/ if(! param)
         /*<<ephemeron.ml:220:10>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-      var hk = param[1], rest = param[3], c = param[2];
+      var
+       hk =  /*<<ephemeron.ml:218:21>>*/ param[1],
+       rest = param[3],
+       c = param[2];
        /*<<ephemeron.ml:221:31>>*/ if(hkey === hk)
         /*<<ephemeron.ml:222:35>>*/ switch
         ( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
@@ -33117,13 +34072,16 @@
            var d = match[1];
             /*<<ephemeron.ml:229:26>>*/ return d;
           }
-          param = rest;
+           /*<<ephemeron.ml:228:18>>*/ param = rest;
           break;
          case 1:
-          param = rest; break;
-         default: param = rest;
+           /*<<ephemeron.ml:231:22>>*/ param = rest; break;
+         default:  /*<<ephemeron.ml:233:14>>*/ param = rest;
        }
-      else{var rest$0 = param[3]; param = rest$0;}
+      else{
+       var rest$0 =  /*<<ephemeron.ml:221:31>>*/ param[3];
+        /*<<ephemeron.ml:236:10>>*/ param = rest$0;
+      }
      }
      /*<<ephemeron.ml:241:51>>*/ }
     function find_opt(h, key){
@@ -33131,10 +34089,16 @@
       hkey =  /*<<ephemeron.ml:264:17>>*/ caml_call2(H[2], h[3], key),
       ___ =  /*<<ephemeron.ml:266:37>>*/ key_index(h, hkey),
       param =
-         /*<<ephemeron.ml:266:28>>*/ caml_check_bound(h[2], ___)[1 + ___];
-      /*<<ephemeron.ml:243:25>>*/ for(;;){
-      if(! param)  /*<<ephemeron.ml:245:10>>*/ return 0;
-      var hk = param[1], rest = param[3], c = param[2];
+         /*<<ephemeron.ml:266:55>>*/  /*<<ephemeron.ml:266:28>>*/ caml_check_bound
+          (h[2], ___)
+         [1 + ___];
+      /*<<ephemeron.ml:266:55>>*/ for(;;){
+       /*<<ephemeron.ml:243:25>>*/ if(! param)
+        /*<<ephemeron.ml:245:10>>*/ return 0;
+      var
+       hk =  /*<<ephemeron.ml:243:25>>*/ param[1],
+       rest = param[3],
+       c = param[2];
        /*<<ephemeron.ml:246:31>>*/ if(hkey === hk)
         /*<<ephemeron.ml:247:35>>*/ switch
         ( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
@@ -33142,22 +34106,29 @@
           var d =  /*<<ephemeron.ml:249:26>>*/ caml_call1(H[4], c);
            /*<<ephemeron.ml:249:38>>*/ if(d)
             /*<<ephemeron.ml:254:31>>*/ return d;
-          param = rest;
+           /*<<ephemeron.ml:253:18>>*/ param = rest;
           break;
          case 1:
-          param = rest; break;
-         default: param = rest;
+           /*<<ephemeron.ml:256:22>>*/ param = rest; break;
+         default:  /*<<ephemeron.ml:258:14>>*/ param = rest;
        }
-      else{var rest$0 = param[3]; param = rest$0;}
+      else{
+       var rest$0 =  /*<<ephemeron.ml:246:31>>*/ param[3];
+        /*<<ephemeron.ml:261:10>>*/ param = rest$0;
+      }
      }
      /*<<ephemeron.ml:266:55>>*/ }
     function find_all(h, key){
      var hkey =  /*<<ephemeron.ml:269:17>>*/ caml_call2(H[2], h[3], key);
      function find_in_bucket(param){
       var param$0 = param;
-       /*<<ephemeron.ml:270:31>>*/ for(;;){
-       if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
-       var hk = param$0[1], rest = param$0[3], c = param$0[2];
+      for(;;){
+        /*<<ephemeron.ml:270:31>>*/ if(! param$0)
+         /*<<ephemeron.ml:271:17>>*/ return 0;
+       var
+        hk =  /*<<ephemeron.ml:270:31>>*/ param$0[1],
+        rest = param$0[3],
+        c = param$0[2];
         /*<<ephemeron.ml:272:31>>*/ if(hkey === hk)
          /*<<ephemeron.ml:273:35>>*/ switch
          ( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
@@ -33169,13 +34140,16 @@
                     d,
                      /*<<ephemeron.ml:277:29>>*/ find_in_bucket(rest)] /*<<ephemeron.ml:277:48>>*/ ;
            }
-           param$0 = rest;
+            /*<<ephemeron.ml:276:18>>*/ param$0 = rest;
            break;
           case 1:
-           param$0 = rest; break;
-          default: param$0 = rest;
+            /*<<ephemeron.ml:279:22>>*/ param$0 = rest; break;
+          default:  /*<<ephemeron.ml:281:14>>*/ param$0 = rest;
         }
-       else{var rest$0 = param$0[3]; param$0 = rest$0;}
+       else{
+        var rest$0 =  /*<<ephemeron.ml:272:31>>*/ param$0[3];
+         /*<<ephemeron.ml:284:10>>*/ param$0 = rest$0;
+       }
       }
       /*<<ephemeron.ml:284:29>>*/ }
      var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
@@ -33188,13 +34162,16 @@
       hkey =  /*<<ephemeron.ml:289:17>>*/ caml_call2(H[2], h[3], key),
       i =  /*<<ephemeron.ml:299:14>>*/ key_index(h, hkey),
       l =  /*<<ephemeron.ml:300:14>>*/ caml_check_bound(h[2], i)[1 + i];
-     try{
-      var param = l;
-       /*<<ephemeron.ml:290:31>>*/ for(;;){
-       if(! param)
+      /*<<ephemeron.ml:301:6>>*/ try{
+      var param =  /*<<ephemeron.ml:302:8>>*/ l;
+      for(;;){
+        /*<<ephemeron.ml:290:31>>*/ if(! param)
          /*<<ephemeron.ml:291:19>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[8], 1);
-       var hk = param[1], next = param[3], c = param[2];
+       var
+        hk =  /*<<ephemeron.ml:290:31>>*/ param[1],
+        next = param[3],
+        c = param[2];
         /*<<ephemeron.ml:292:33>>*/ if(hkey === hk){
          /*<<ephemeron.ml:293:37>>*/ if
          (!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
@@ -33202,14 +34179,18 @@
           _V_ =  /*<<ephemeron.ml:294:23>>*/ caml_call3(H[5], c, key, info);
          return _V_;
         }
-        param = next;
+         /*<<ephemeron.ml:295:32>>*/ param = next;
+       }
+       else{
+        var next$0 =  /*<<ephemeron.ml:292:33>>*/ param[3];
+         /*<<ephemeron.ml:297:28>>*/ param = next$0;
        }
-       else{var next$0 = param[3]; param = next$0;}
       }
      }
      catch(_Y_){
       var _W_ = caml_wrap_exception(_Y_);
-      if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
+       /*<<?>>*/ if(_W_ !== Stdlib[8])
+       throw caml_maybe_attach_backtrace(_W_, 0);
       var
        container =  /*<<ephemeron.ml:304:24>>*/ caml_call2(H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
@@ -33224,17 +34205,26 @@
       hkey =  /*<<ephemeron.ml:310:17>>*/ caml_call2(H[2], h[3], key),
       _U_ =  /*<<ephemeron.ml:320:28>>*/ key_index(h, hkey),
       param =
-         /*<<ephemeron.ml:320:20>>*/ caml_check_bound(h[2], _U_)[1 + _U_];
-      /*<<ephemeron.ml:311:30>>*/ for(;;){
-      if(! param)  /*<<ephemeron.ml:313:10>>*/ return 0;
-      var hk = param[1], rest = param[3], c = param[2];
+         /*<<ephemeron.ml:320:45>>*/  /*<<ephemeron.ml:320:20>>*/ caml_check_bound
+          (h[2], _U_)
+         [1 + _U_];
+      /*<<ephemeron.ml:320:45>>*/ for(;;){
+       /*<<ephemeron.ml:311:30>>*/ if(! param)
+        /*<<ephemeron.ml:313:10>>*/ return 0;
+      var
+       hk =  /*<<ephemeron.ml:311:30>>*/ param[1],
+       rest = param[3],
+       c = param[2];
        /*<<ephemeron.ml:314:31>>*/ if(hk === hkey){
         /*<<ephemeron.ml:315:35>>*/ if
         (!  /*<<ephemeron.ml:315:22>>*/ caml_call2(H[3], c, key))
          /*<<ephemeron.ml:316:21>>*/ return 1;
-       param = rest;
+        /*<<ephemeron.ml:317:30>>*/ param = rest;
+      }
+      else{
+       var rest$0 =  /*<<ephemeron.ml:314:31>>*/ param[3];
+        /*<<ephemeron.ml:319:31>>*/ param = rest$0;
       }
-      else{var rest$0 = param[3]; param = rest$0;}
      }
      /*<<ephemeron.ml:320:45>>*/ }
     function length(h){
@@ -33242,10 +34232,11 @@
      /*<<ephemeron.ml:322:25>>*/ }
     function bucket_length(accu, param){
      var accu$0 = accu, param$0 = param;
-      /*<<ephemeron.ml:324:26>>*/ for(;;){
-      if(! param$0)  /*<<ephemeron.ml:325:17>>*/ return accu$0;
+     for(;;){
+       /*<<ephemeron.ml:324:26>>*/ if(! param$0)
+        /*<<ephemeron.ml:325:17>>*/ return accu$0;
       var
-       rest = param$0[3],
+       rest =  /*<<ephemeron.ml:324:26>>*/ param$0[3],
        accu$1 =  /*<<ephemeron.ml:326:28>>*/ accu$0 + 1 | 0;
       accu$0 = accu$1;
       param$0 = rest;
@@ -33282,16 +34273,20 @@
      /*<<ephemeron.ml:340:34>>*/ }
     function bucket_length_alive(accu, param){
      var accu$0 = accu, param$0 = param;
-      /*<<ephemeron.ml:342:32>>*/ for(;;){
-      if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
-      var rest = param$0[3], c = param$0[2];
+     for(;;){
+       /*<<ephemeron.ml:342:32>>*/ if(! param$0)
+        /*<<ephemeron.ml:343:17>>*/ return accu$0;
+      var rest =  /*<<ephemeron.ml:342:32>>*/ param$0[3], c = param$0[2];
        /*<<ephemeron.ml:344:43>>*/ if
        ( /*<<ephemeron.ml:344:30>>*/ caml_call1(H[6], c)){
        var accu$1 =  /*<<ephemeron.ml:345:10>>*/ accu$0 + 1 | 0;
        accu$0 = accu$1;
        param$0 = rest;
       }
-      else{var rest$0 = param$0[3]; param$0 = rest$0;}
+      else{
+       var rest$0 =  /*<<ephemeron.ml:344:43>>*/ param$0[3];
+        /*<<ephemeron.ml:346:28>>*/ param$0 = rest$0;
+      }
      }
      /*<<ephemeron.ml:346:57>>*/ }
     function stats_alive(h){
@@ -33398,7 +34393,7 @@
     var match =  /*<<ephemeron.ml:411:10>>*/ get_key(eph);
      /*<<ephemeron.ml:411:21>>*/ if(! match)
       /*<<ephemeron.ml:412:14>>*/ return 0;
-    var k = match[1];
+    var k =  /*<<ephemeron.ml:411:21>>*/ match[1];
      /*<<ephemeron.ml:413:18>>*/ return k === key
             ?  /*<<ephemeron.ml:413:30>>*/ get_data(eph)
             : 0 /*<<ephemeron.ml:414:20>>*/ ;
@@ -33415,7 +34410,7 @@
      var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
       /*<<ephemeron.ml:429:23>>*/ if(! match)
        /*<<ephemeron.ml:430:18>>*/ return 2;
-     var k$0 = match[1];
+     var k$0 =  /*<<ephemeron.ml:429:23>>*/ match[1];
       /*<<ephemeron.ml:432:27>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
               (H[1], k, k$0)
              ? 0
@@ -33508,16 +34503,19 @@
     /*<<ephemeron.ml:465:18>>*/ }
    function remove(b, k){
     var l$0 =  /*<<ephemeron.ml:474:6>>*/ b[1], l = l$0, acc = 0;
-     /*<<ephemeron.ml:469:8>>*/ for(;;){
-     if(! l)  /*<<ephemeron.ml:470:16>>*/ return 0;
-     var h = l[1], t = l[2];
+    for(;;){
+      /*<<ephemeron.ml:469:8>>*/ if(! l)
+       /*<<ephemeron.ml:470:16>>*/ return 0;
+     var h =  /*<<ephemeron.ml:469:8>>*/ l[1], t = l[2];
       /*<<ephemeron.ml:471:34>>*/ if
       ( /*<<ephemeron.ml:471:22>>*/ test_key(k, h)){
        /*<<ephemeron.ml:471:64>>*/ b[1] =
         /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
        /*<<ephemeron.ml:471:64>>*/ return 0;
      }
-     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:472:20>>*/ [0, h, acc];
+     var
+      t$0 =  /*<<ephemeron.ml:471:34>>*/ l[2],
+      acc$0 =  /*<<ephemeron.ml:472:20>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
@@ -33531,7 +34529,7 @@
          b[1]);
      /*<<ephemeron.ml:477:41>>*/ if(! match)
       /*<<ephemeron.ml:479:16>>*/ return 0;
-    var e = match[1];
+    var e =  /*<<ephemeron.ml:477:41>>*/ match[1];
      /*<<ephemeron.ml:478:18>>*/ return get_data(e) /*<<ephemeron.ml:479:20>>*/ ;
    }
    function length(b){
@@ -33576,13 +34574,13 @@
     var match =  /*<<ephemeron.ml:517:10>>*/ get_key1(eph);
      /*<<ephemeron.ml:517:22>>*/ if(! match)
       /*<<ephemeron.ml:518:14>>*/ return 0;
-    var k = match[1];
+    var k =  /*<<ephemeron.ml:517:22>>*/ match[1];
      /*<<ephemeron.ml:519:18>>*/ if(k !== key1)
       /*<<ephemeron.ml:525:16>>*/ return 0;
     var match$0 =  /*<<ephemeron.ml:520:20>>*/ get_key2(eph);
      /*<<ephemeron.ml:520:32>>*/ if(! match$0)
       /*<<ephemeron.ml:521:18>>*/ return 0;
-    var k$0 = match$0[1];
+    var k$0 =  /*<<ephemeron.ml:520:32>>*/ match$0[1];
      /*<<ephemeron.ml:522:22>>*/ return k$0 === key2
             ?  /*<<ephemeron.ml:522:35>>*/ get_data$0(eph)
             : 0 /*<<ephemeron.ml:525:20>>*/ ;
@@ -33731,16 +34729,19 @@
     /*<<ephemeron.ml:585:18>>*/ }
    function remove$0(b, k1, k2){
     var l$0 =  /*<<ephemeron.ml:594:6>>*/ b[1], l = l$0, acc = 0;
-     /*<<ephemeron.ml:589:8>>*/ for(;;){
-     if(! l)  /*<<ephemeron.ml:590:16>>*/ return 0;
-     var h = l[1], t = l[2];
+    for(;;){
+      /*<<ephemeron.ml:589:8>>*/ if(! l)
+       /*<<ephemeron.ml:590:16>>*/ return 0;
+     var h =  /*<<ephemeron.ml:589:8>>*/ l[1], t = l[2];
       /*<<ephemeron.ml:591:39>>*/ if
       ( /*<<ephemeron.ml:591:22>>*/ test_keys(k1, k2, h)){
        /*<<ephemeron.ml:591:69>>*/ b[1] =
         /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
        /*<<ephemeron.ml:591:69>>*/ return 0;
      }
-     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:592:20>>*/ [0, h, acc];
+     var
+      t$0 =  /*<<ephemeron.ml:591:39>>*/ l[2],
+      acc$0 =  /*<<ephemeron.ml:592:20>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
@@ -33754,7 +34755,7 @@
          b[1]);
      /*<<ephemeron.ml:597:46>>*/ if(! match)
       /*<<ephemeron.ml:599:16>>*/ return 0;
-    var e = match[1];
+    var e =  /*<<ephemeron.ml:597:46>>*/ match[1];
      /*<<ephemeron.ml:598:18>>*/ return get_data$0(e) /*<<ephemeron.ml:599:20>>*/ ;
    }
    function length$0(b){
@@ -33804,7 +34805,7 @@
     /*<<ephemeron.ml:628:7>>*/ }
    function query$1(eph, keys){
     var l =  /*<<ephemeron.ml:631:12>>*/ length$1(eph);
-    try{
+     /*<<ephemeron.ml:632:4>>*/ try{
      if(l !== keys.length - 1)
        /*<<ephemeron.ml:633:37>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[3], 1);
@@ -33816,12 +34817,12 @@
         /*<<ephemeron.ml:635:27>>*/ if(! match)
          /*<<ephemeron.ml:636:18>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[3], 1);
-       var k = match[1];
+       var k =  /*<<ephemeron.ml:635:27>>*/ match[1];
         /*<<ephemeron.ml:637:35>>*/ if
         (k !==  /*<<ephemeron.ml:637:27>>*/ caml_check_bound(keys, i)[1 + i])
          /*<<ephemeron.ml:638:20>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[3], 1);
-       var _F_ = i + 1 | 0;
+       var _F_ =  /*<<ephemeron.ml:637:39>>*/ i + 1 | 0;
        if(_D_ === i) break;
        i = _F_;
       }
@@ -33831,8 +34832,8 @@
     }
     catch(_G_){
      var _B_ = caml_wrap_exception(_G_);
-     if(_B_ === Stdlib[3])  /*<<ephemeron.ml:641:17>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_B_, 0);
+      /*<<?>>*/ if(_B_ === Stdlib[3])  /*<<ephemeron.ml:641:17>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_B_, 0);
     }
     /*<<ephemeron.ml:641:21>>*/ }
    function MakeSeeded$2(H){
@@ -33881,13 +34882,14 @@
       /*<<ephemeron.ml:663:8>>*/ if(len !== len$0)
        /*<<ephemeron.ml:663:28>>*/ return 1;
      var i$1 =  /*<<ephemeron.ml:675:10>>*/ len - 1 | 0, i = i$1;
-      /*<<ephemeron.ml:666:12>>*/ for(;;){
-      if(0 > i)  /*<<ephemeron.ml:666:26>>*/ return 0;
+     for(;;){
+       /*<<ephemeron.ml:666:12>>*/ if(0 > i)
+        /*<<ephemeron.ml:666:26>>*/ return 0;
       var match =  /*<<ephemeron.ml:668:20>>*/ get_key$0(c, i);
        /*<<ephemeron.ml:668:31>>*/ if(! match)
         /*<<ephemeron.ml:669:24>>*/ return 2;
       var
-       ki = match[1],
+       ki =  /*<<ephemeron.ml:668:31>>*/ match[1],
        _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
        /*<<ephemeron.ml:671:37>>*/ if
        (!  /*<<ephemeron.ml:671:21>>*/ caml_call2(H[1], _s_, ki))
@@ -33918,9 +34920,9 @@
          /*<<ephemeron.ml:686:25>>*/  /*<<ephemeron.ml:686:17>>*/ length$1(c)
         - 1
         | 0,
-      i = i$1;
-      /*<<ephemeron.ml:685:10>>*/ for(;;){
-      var _n_ = i < 0 ? 1 : 0;
+      i =  /*<<ephemeron.ml:686:25>>*/ i$1;
+     for(;;){
+      var _n_ =  /*<<ephemeron.ml:685:10>>*/ i < 0 ? 1 : 0;
       if(_n_)
        var _o_ = _n_;
       else{
@@ -33933,7 +34935,7 @@
        }
        var _o_ = _m_;
       }
-      return _o_;
+       /*<<ephemeron.ml:685:10>>*/ return _o_;
      }
      /*<<ephemeron.ml:686:30>>*/ }
     return MakeSeeded
@@ -34020,7 +35022,12 @@
         /*<<ephemeron.ml:714:27>>*/ if(match){
         var x = match[1];
          /*<<ephemeron.ml:715:34>>*/ if
-         (x ===  /*<<ephemeron.ml:715:29>>*/ caml_check_bound(k, i)[1 + i]){var _i_ = i + 1 | 0; if(_g_ === i) break; i = _i_; continue;}
+         (x ===  /*<<ephemeron.ml:715:29>>*/ caml_check_bound(k, i)[1 + i]){
+         var _i_ =  /*<<ephemeron.ml:715:38>>*/ i + 1 | 0;
+         if(_g_ === i) break;
+         i = _i_;
+         continue;
+        }
        }
         /*<<ephemeron.ml:716:17>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[3], 1);
@@ -34031,22 +35038,25 @@
     }
     catch(_j_){
      var _e_ = caml_wrap_exception(_j_);
-     if(_e_ === Stdlib[3])  /*<<ephemeron.ml:719:19>>*/ return 0;
-     throw caml_maybe_attach_backtrace(_e_, 0);
+      /*<<?>>*/ if(_e_ === Stdlib[3])  /*<<ephemeron.ml:719:19>>*/ return 0;
+      /*<<?>>*/ throw caml_maybe_attach_backtrace(_e_, 0);
     }
     /*<<ephemeron.ml:719:24>>*/ }
    function remove$1(b, k){
     var l$0 =  /*<<ephemeron.ml:728:6>>*/ b[1], l = l$0, acc = 0;
-     /*<<ephemeron.ml:723:8>>*/ for(;;){
-     if(! l)  /*<<ephemeron.ml:724:16>>*/ return 0;
-     var h = l[1], t = l[2];
+    for(;;){
+      /*<<ephemeron.ml:723:8>>*/ if(! l)
+       /*<<ephemeron.ml:724:16>>*/ return 0;
+     var h =  /*<<ephemeron.ml:723:8>>*/ l[1], t = l[2];
       /*<<ephemeron.ml:725:35>>*/ if
       ( /*<<ephemeron.ml:725:22>>*/ test_keys$0(k, h)){
        /*<<ephemeron.ml:725:65>>*/ b[1] =
         /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
        /*<<ephemeron.ml:725:65>>*/ return 0;
      }
-     var t$0 = l[2], acc$0 =  /*<<ephemeron.ml:726:20>>*/ [0, h, acc];
+     var
+      t$0 =  /*<<ephemeron.ml:725:35>>*/ l[2],
+      acc$0 =  /*<<ephemeron.ml:726:20>>*/ [0, h, acc];
      l = t$0;
      acc = acc$0;
     }
@@ -34060,7 +35070,7 @@
          b[1]);
      /*<<ephemeron.ml:731:42>>*/ if(! match)
       /*<<ephemeron.ml:733:16>>*/ return 0;
-    var e = match[1];
+    var e =  /*<<ephemeron.ml:731:42>>*/ match[1];
      /*<<ephemeron.ml:732:18>>*/ return get_data$1(e) /*<<ephemeron.ml:733:20>>*/ ;
    }
    function length$2(b){
@@ -34193,8 +35203,8 @@
     var
      n$3 =  /*<<filename.ml:48:7>>*/ caml_ml_string_length(name) - 1 | 0,
      n = n$3;
-     /*<<filename.ml:38:4>>*/ for(;;){
-     if(0 > n)
+    for(;;){
+      /*<<filename.ml:38:4>>*/ if(0 > n)
        /*<<filename.ml:38:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:48:40>>*/ ;
       /*<<filename.ml:39:29>>*/ if
@@ -34204,8 +35214,8 @@
      n = n$0;
     }
     var p =  /*<<filename.ml:40:9>>*/ n + 1 | 0, n$1 = n;
-     /*<<filename.ml:42:4>>*/ for(;;){
-     if(0 > n$1)
+    for(;;){
+      /*<<filename.ml:42:4>>*/ if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, p) /*<<filename.ml:48:40>>*/ ;
       /*<<filename.ml:43:29>>*/ if
@@ -34222,8 +35232,8 @@
     var
      n$5 =  /*<<filename.ml:70:7>>*/ caml_ml_string_length(name) - 1 | 0,
      n = n$5;
-     /*<<filename.ml:56:4>>*/ for(;;){
-     if(0 > n)
+    for(;;){
+      /*<<filename.ml:56:4>>*/ if(0 > n)
        /*<<filename.ml:56:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
       /*<<filename.ml:57:29>>*/ if
@@ -34232,18 +35242,19 @@
      var n$0 =  /*<<filename.ml:57:35>>*/ n - 1 | 0;
      n = n$0;
     }
-    var n$1 = n;
-     /*<<filename.ml:60:4>>*/ for(;;){
-     if(0 > n$1)  /*<<filename.ml:60:18>>*/ return current_dir_name;
+    var n$1 =  /*<<filename.ml:58:9>>*/ n;
+    for(;;){
+      /*<<filename.ml:60:4>>*/ if(0 > n$1)
+       /*<<filename.ml:60:18>>*/ return current_dir_name;
       /*<<filename.ml:61:29>>*/ if
       ( /*<<filename.ml:61:12>>*/ caml_call2(is_dir_sep, name, n$1))
       break;
      var n$2 =  /*<<filename.ml:62:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
     }
-    var n$3 = n$1;
-     /*<<filename.ml:64:4>>*/ for(;;){
-     if(0 > n$3)
+    var n$3 =  /*<<filename.ml:61:35>>*/ n$1;
+    for(;;){
+      /*<<filename.ml:64:4>>*/ if(0 > n$3)
        /*<<filename.ml:64:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
       /*<<filename.ml:65:29>>*/ if
@@ -34263,7 +35274,7 @@
      _aI_ =
        _aH_
        || (47 !==  /*<<filename.ml:97:45>>*/ caml_string_get(n, 0) ? 1 : 0);
-    return _aI_;
+     /*<<filename.ml:97:22>>*/ return _aI_;
     /*<<filename.ml:97:57>>*/ }
    function is_implicit(n){
     var _aC_ =  /*<<filename.ml:99:4>>*/ is_relative(n);
@@ -34277,7 +35288,7 @@
            !== cst$27
            ? 1
            : 0);
-     if(_aE_)
+      /*<<filename.ml:99:17>>*/ if(_aE_)
       var
        _aF_ = caml_ml_string_length(n) < 3 ? 1 : 0,
        _aG_ =
@@ -34288,7 +35299,7 @@
             ? 1
             : 0);
      else
-      var _aG_ = _aE_;
+      var _aG_ =  /*<<filename.ml:99:17>>*/ _aE_;
     }
     else
      var _aG_ = _aC_;
@@ -34336,8 +35347,9 @@
    }
    catch(_aB_){
     var _a_ = caml_wrap_exception(_aB_);
-    if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
-    var temp_dir_name = cst_tmp;
+     /*<<?>>*/ if(_a_ !== Stdlib[8])
+     throw caml_maybe_attach_backtrace(_a_, 0);
+    var temp_dir_name =  /*<<filename.ml:117:46>>*/ cst_tmp;
    }
    function quote(s){
     var
@@ -34355,7 +35367,7 @@
        var _aA_ =  /*<<filename.ml:23:28>>*/ caml_string_get(s, i);
         /*<<filename.ml:23:9>>*/ caml_call2(Stdlib_Buffer[12], b, _aA_);
       }
-      var _az_ = i + 1 | 0;
+      var _az_ =  /*<<filename.ml:21:12>>*/ i + 1 | 0;
       if(_ay_ === i) break;
       i = _az_;
      }
@@ -34368,30 +35380,36 @@
      var f = stderr[1];
       /*<<filename.ml:123:66>>*/ if
       ( /*<<filename.ml:123:51>>*/ caml_equal(stderr, stdout))
-      var _am_ = cst_2_1;
+      var _am_ =  /*<<filename.ml:124:53>>*/ cst_2_1;
      else
       var
        _aw_ =  /*<<filename.ml:125:61>>*/ quote(f),
-       _am_ =  /*<<filename.ml:125:53>>*/ caml_call2(Stdlib[28], cst_2, _aw_);
-     var _an_ = _am_;
+       _am_ =
+          /*<<filename.ml:125:68>>*/  /*<<filename.ml:125:53>>*/ caml_call2
+          (Stdlib[28], cst_2, _aw_);
+     var _an_ =  /*<<filename.ml:123:66>>*/ _am_;
     }
     else
-     var _an_ = cst$4;
-    if(stdout)
+     var _an_ =  /*<<filename.ml:123:33>>*/ cst$4;
+     /*<<filename.ml:120:4>>*/ if(stdout)
      var
       f$0 = stdout[1],
       _ao_ =  /*<<filename.ml:122:55>>*/ quote(f$0),
-      _ap_ =  /*<<filename.ml:122:48>>*/ caml_call2(Stdlib[28], cst, _ao_);
+      _ap_ =
+         /*<<filename.ml:122:62>>*/  /*<<filename.ml:122:48>>*/ caml_call2
+         (Stdlib[28], cst, _ao_);
     else
-     var _ap_ = cst$3;
+     var _ap_ =  /*<<filename.ml:122:33>>*/ cst$3;
     var _aq_ =  /*<<filename.ml:122:6>>*/ caml_call2(Stdlib[28], _ap_, _an_);
      /*<<filename.ml:125:69>>*/ if(stdin)
      var
       f$1 = stdin[1],
       _ar_ =  /*<<filename.ml:121:55>>*/ quote(f$1),
-      _as_ =  /*<<filename.ml:121:48>>*/ caml_call2(Stdlib[28], cst$0, _ar_);
+      _as_ =
+         /*<<filename.ml:121:62>>*/  /*<<filename.ml:121:48>>*/ caml_call2
+         (Stdlib[28], cst$0, _ar_);
     else
-     var _as_ = cst$2;
+     var _as_ =  /*<<filename.ml:121:33>>*/ cst$2;
     var
      _at_ =  /*<<filename.ml:121:6>>*/ caml_call2(Stdlib[28], _as_, _aq_),
      _au_ =
@@ -34440,20 +35458,20 @@
      _ac_ =
        _ab_
        || (47 !==  /*<<filename.ml:137:28>>*/ caml_string_get(n, 0) ? 1 : 0);
-    if(_ac_){
+     /*<<filename.ml:137:4>>*/ if(_ac_){
      var
       _ad_ = caml_ml_string_length(n) < 1 ? 1 : 0,
       _ae_ =
         _ad_
         || (92 !==  /*<<filename.ml:138:31>>*/ caml_string_get(n, 0) ? 1 : 0);
-     if(_ae_)
+      /*<<filename.ml:137:4>>*/ if(_ae_)
       var
        _af_ = caml_ml_string_length(n) < 2 ? 1 : 0,
        _ag_ =
          _af_
          || (58 !==  /*<<filename.ml:139:31>>*/ caml_string_get(n, 1) ? 1 : 0);
      else
-      var _ag_ = _ae_;
+      var _ag_ =  /*<<filename.ml:137:4>>*/ _ae_;
     }
     else
      var _ag_ = _ac_;
@@ -34471,7 +35489,7 @@
            !== cst$27
            ? 1
            : 0);
-     if(_W_){
+      /*<<filename.ml:141:17>>*/ if(_W_){
       var
        _X_ = caml_ml_string_length(n) < 2 ? 1 : 0,
        _Y_ =
@@ -34481,7 +35499,7 @@
             !== ".\\"
             ? 1
             : 0);
-      if(_Y_){
+       /*<<filename.ml:141:17>>*/ if(_Y_){
        var
         _Z_ = caml_ml_string_length(n) < 3 ? 1 : 0,
         ___ =
@@ -34491,7 +35509,7 @@
              !== cst$28
              ? 1
              : 0);
-       if(___)
+        /*<<filename.ml:141:17>>*/ if(___)
         var
          _$_ = caml_ml_string_length(n) < 3 ? 1 : 0,
          _aa_ =
@@ -34503,7 +35521,7 @@
               ? 1
               : 0);
        else
-        var _aa_ = ___;
+        var _aa_ =  /*<<filename.ml:141:17>>*/ ___;
       }
       else
        var _aa_ = _Y_;
@@ -34528,15 +35546,19 @@
          /*<<filename.ml:148:12>>*/ caml_call3
          (Stdlib_String[16],
           name,
-          caml_ml_string_length(name) - caml_ml_string_length(suff) | 0,
+           /*<<filename.ml:147:3>>*/ caml_ml_string_length(name)
+          - caml_ml_string_length(suff)
+          | 0,
           caml_ml_string_length(suff)),
       _S_ =  /*<<filename.ml:150:31>>*/ caml_call1(Stdlib_String[27], suff),
       _T_ =
-         /*<<filename.ml:150:4>>*/ caml_call1(Stdlib_String[27], s) === _S_
+         /*<<filename.ml:150:58>>*/  /*<<filename.ml:150:4>>*/ caml_call1
+          (Stdlib_String[27], s)
+         === _S_
          ? 1
          : 0;
     else
-     var _T_ = _R_;
+     var _T_ =  /*<<filename.ml:147:3>>*/ _R_;
     return _T_;
     /*<<filename.ml:150:59>>*/ }
    function chop_suffix_opt$0(suffix, filename){
@@ -34558,15 +35580,16 @@
                (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
             : 0 /*<<filename.ml:161:10>>*/ ;
    }
-   try{
+    /*<<filename.ml:127:59>>*/ try{
     var
      _i_ =  /*<<filename.ml:165:8>>*/ caml_sys_getenv("TEMP"),
      temp_dir_name$0 = _i_;
    }
    catch(_P_){
     var _b_ = caml_wrap_exception(_P_);
-    if(_b_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_b_, 0);
-    var temp_dir_name$0 = cst$5;
+     /*<<?>>*/ if(_b_ !== Stdlib[8])
+     throw caml_maybe_attach_backtrace(_b_, 0);
+    var temp_dir_name$0 =  /*<<filename.ml:165:44>>*/ cst$5;
    }
    function quote$0(s){
     var
@@ -34575,23 +35598,23 @@
      /*<<filename.ml:169:4>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
      var i$0 = i;
-      /*<<filename.ml:171:6>>*/ for(;;){
-      if(i$0 === l)
+     for(;;){
+       /*<<filename.ml:171:6>>*/ if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return caml_call2(Stdlib_Buffer[12], b, 34) /*<<filename.ml:175:48>>*/ ;
       var c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
        /*<<filename.ml:172:17>>*/ if(34 === c){
        var _N_ =  /*<<filename.ml:173:16>>*/ 0;
        if(counter >= 50)
         return caml_trampoline_return(loop_bs, [0, _N_, i$0]) /*<<filename.ml:175:48>>*/ ;
-       var counter$1 = counter + 1 | 0;
-       return loop_bs(counter$1, _N_, i$0);
+       var counter$1 =  /*<<filename.ml:173:16>>*/ counter + 1 | 0;
+       return loop_bs(counter$1, _N_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
-      if(92 === c){
+       /*<<filename.ml:172:17>>*/ if(92 === c){
        var _O_ =  /*<<filename.ml:174:16>>*/ 0;
        if(counter >= 50)
         return caml_trampoline_return(loop_bs, [0, _O_, i$0]) /*<<filename.ml:175:48>>*/ ;
-       var counter$0 = counter + 1 | 0;
-       return loop_bs(counter$0, _O_, i$0);
+       var counter$0 =  /*<<filename.ml:174:16>>*/ counter + 1 | 0;
+       return loop_bs(counter$0, _O_, i$0) /*<<filename.ml:175:48>>*/ ;
       }
        /*<<filename.ml:175:16>>*/ caml_call2(Stdlib_Buffer[12], b, c);
       var i$1 =  /*<<filename.ml:175:35>>*/ i$0 + 1 | 0;
@@ -34601,8 +35624,8 @@
     function loop(i){ /*<<?>>*/ return caml_trampoline(loop$0(0, i));}
     function loop_bs(counter, n, i){
      var n$0 = n, i$0 = i;
-      /*<<filename.ml:177:6>>*/ for(;;){
-      if(i$0 === l){
+     for(;;){
+       /*<<filename.ml:177:6>>*/ if(i$0 === l){
         /*<<filename.ml:178:8>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
         /*<<filename.ml:178:30>>*/ return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
       }
@@ -34613,15 +35636,15 @@
        var _M_ =  /*<<filename.ml:182:56>>*/ i$0 + 1 | 0;
        if(counter >= 50)
         return caml_trampoline_return(loop$0, [0, _M_]) /*<<filename.ml:185:9>>*/ ;
-       var counter$1 = counter + 1 | 0;
-       return loop$0(counter$1, _M_);
+       var counter$1 =  /*<<filename.ml:182:56>>*/ counter + 1 | 0;
+       return loop$0(counter$1, _M_) /*<<filename.ml:185:9>>*/ ;
       }
-      if(92 !== match){
+       /*<<filename.ml:181:19>>*/ if(92 !== match){
         /*<<filename.ml:184:18>>*/ add_bs(n$0);
         /*<<filename.ml:184:26>>*/ if(counter >= 50)
         return caml_trampoline_return(loop$0, [0, i$0]) /*<<filename.ml:185:9>>*/ ;
-       var counter$0 = counter + 1 | 0;
-       return loop$0(counter$0, i$0);
+       var counter$0 =  /*<<filename.ml:184:26>>*/ counter + 1 | 0;
+       return loop$0(counter$0, i$0) /*<<filename.ml:185:9>>*/ ;
       }
       var i$1 =  /*<<filename.ml:183:18>>*/ i$0 + 1 | 0, n$1 = n$0 + 1 | 0;
       n$0 = n$1;
@@ -34670,31 +35693,37 @@
      var f = stderr[1];
       /*<<filename.ml:240:58>>*/ if
       ( /*<<filename.ml:240:43>>*/ caml_equal(stderr, stdout))
-      var _w_ = cst_2_1$0;
+      var _w_ =  /*<<filename.ml:241:45>>*/ cst_2_1$0;
      else
       var
        _H_ =  /*<<filename.ml:242:53>>*/ quote_cmd_filename(f),
-       _w_ =  /*<<filename.ml:242:45>>*/ caml_call2(Stdlib[28], cst_2$0, _H_);
-     var _x_ = _w_;
+       _w_ =
+          /*<<filename.ml:242:73>>*/  /*<<filename.ml:242:45>>*/ caml_call2
+          (Stdlib[28], cst_2$0, _H_);
+     var _x_ =  /*<<filename.ml:240:58>>*/ _w_;
     }
     else
-     var _x_ = cst$16;
-    var _y_ = [0, _x_, _d_];
+     var _x_ =  /*<<filename.ml:239:33>>*/ cst$16;
+    var _y_ =  /*<<filename.ml:232:4>>*/ [0, _x_, _d_];
     if(stdout)
      var
       f$0 = stdout[1],
       _z_ =  /*<<filename.ml:238:55>>*/ quote_cmd_filename(f$0),
-      _A_ =  /*<<filename.ml:238:48>>*/ caml_call2(Stdlib[28], cst$8, _z_);
+      _A_ =
+         /*<<filename.ml:238:75>>*/  /*<<filename.ml:238:48>>*/ caml_call2
+         (Stdlib[28], cst$8, _z_);
     else
-     var _A_ = cst$15;
-    var _B_ = [0, _A_, _y_];
+     var _A_ =  /*<<filename.ml:238:33>>*/ cst$15;
+    var _B_ =  /*<<filename.ml:232:4>>*/ [0, _A_, _y_];
     if(stdin)
      var
       f$1 = stdin[1],
       _C_ =  /*<<filename.ml:237:55>>*/ quote_cmd_filename(f$1),
-      _D_ =  /*<<filename.ml:237:48>>*/ caml_call2(Stdlib[28], cst$9, _C_);
+      _D_ =
+         /*<<filename.ml:237:75>>*/  /*<<filename.ml:237:48>>*/ caml_call2
+         (Stdlib[28], cst$9, _C_);
     else
-     var _D_ = cst$14;
+     var _D_ =  /*<<filename.ml:237:33>>*/ cst$14;
     var
      _E_ =
         /*<<filename.ml:236:35>>*/ caml_call2(Stdlib_List[20], quote$0, args),
@@ -34757,10 +35786,10 @@
         if(25 < param - 97 >>> 0) break b;
        }
        else if(65 > param) break b;
-       var _t_ = 1;
+       var _t_ =  /*<<filename.ml:247:35>>*/ 1;
        break a;
       }
-      var _t_ = 0;
+      var _t_ =  /*<<filename.ml:248:13>>*/ 0;
      }
      var
       _u_ =
@@ -34769,7 +35798,7 @@
          : _t_;
     }
     else
-     var _u_ = _s_;
+     var _u_ =  /*<<filename.ml:250:4>>*/ _s_;
      /*<<filename.ml:252:18>>*/ if(! _u_)
       /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
     var
@@ -34804,7 +35833,7 @@
    }
    var
     Win32 =
-      [0,
+       /*<<filename.ml:127:59>>*/ [0,
        null$1,
        current_dir_name$0,
        parent_dir_name$0,
@@ -34887,8 +35916,9 @@
     var
      i$3 =  /*<<filename.ml:311:2>>*/ caml_ml_string_length(name) - 1 | 0,
      i0 = i$3;
-     /*<<filename.ml:307:4>>*/ for(;;){
-     if(0 <= i0 && !  /*<<filename.ml:307:16>>*/ is_dir_sep$1(name, i0)){
+    for(;;){
+      /*<<filename.ml:307:4>>*/ if
+      (0 <= i0 && !  /*<<filename.ml:307:16>>*/ is_dir_sep$1(name, i0)){
        /*<<filename.ml:308:20>>*/ if
        (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
        break;
@@ -34899,8 +35929,9 @@
       /*<<filename.ml:307:39>>*/ return 0;
     }
     var i$1 =  /*<<filename.ml:308:32>>*/ i0 - 1 | 0, i = i$1;
-     /*<<filename.ml:302:4>>*/ for(;;){
-     if(0 <= i && !  /*<<filename.ml:302:16>>*/ is_dir_sep$1(name, i)){
+    for(;;){
+      /*<<filename.ml:302:4>>*/ if
+      (0 <= i && !  /*<<filename.ml:302:16>>*/ is_dir_sep$1(name, i)){
        /*<<filename.ml:303:20>>*/ if
        (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
         /*<<filename.ml:304:9>>*/ return caml_ml_string_length(name) - i0 | 0;
@@ -34982,19 +36013,20 @@
         ? opt[1]
         :  /*<<filename.ml:343:27>>*/ caml_call1
           (Stdlib_Domain[10][2], current_temp_dir_name),
-     counter = 0;
-     /*<<filename.ml:345:4>>*/ for(;;){
+     counter =  /*<<filename.ml:351:5>>*/ 0;
+    for(;;){
      var
       name =
          /*<<filename.ml:345:15>>*/ temp_file_name(temp_dir, prefix, suffix);
-     try{
+      /*<<filename.ml:346:4>>*/ try{
        /*<<filename.ml:347:6>>*/ runtime.caml_sys_close
        ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open(name, _g_, 384));
       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(e[1] !== Stdlib[11])
+       throw caml_maybe_attach_backtrace(e, 0);
        /*<<filename.ml:350:6>>*/ if(20 <= counter)
         /*<<filename.ml:350:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:350:41>>*/ counter + 1 | 0;
@@ -35011,12 +36043,12 @@
         ? opt[1]
         :  /*<<filename.ml:354:17>>*/ caml_call1
           (Stdlib_Domain[10][2], current_temp_dir_name),
-     counter = 0;
-     /*<<filename.ml:357:4>>*/ for(;;){
+     counter =  /*<<filename.ml:363:5>>*/ 0;
+    for(;;){
      var
       name =
          /*<<filename.ml:357:15>>*/ temp_file_name(temp_dir, prefix, suffix);
-     try{
+      /*<<filename.ml:358:4>>*/ try{
       var
        _n_ =
           /*<<filename.ml:360:73>>*/ [0,
@@ -35027,7 +36059,8 @@
      }
      catch(e$0){
       var e = caml_wrap_exception(e$0);
-      if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
+       /*<<?>>*/ if(e[1] !== Stdlib[11])
+       throw caml_maybe_attach_backtrace(e, 0);
        /*<<filename.ml:362:6>>*/ if(20 <= counter)
         /*<<filename.ml:362:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:362:41>>*/ counter + 1 | 0;
@@ -35042,19 +36075,20 @@
         ? _k_[1]
         :  /*<<filename.ml:365:26>>*/ caml_call1
           (Stdlib_Domain[10][2], current_temp_dir_name),
-     perms = opt ? opt[1] : 448,
-     counter = 0;
-     /*<<filename.ml:368:4>>*/ for(;;){
+     perms =  /*<<filename.ml:365:13>>*/ opt ? opt[1] : 448,
+     counter =  /*<<filename.ml:374:5>>*/ 0;
+    for(;;){
      var
       name =
          /*<<filename.ml:368:15>>*/ temp_file_name(temp_dir, prefix, suffix);
-     try{
+      /*<<filename.ml:369:4>>*/ try{
        /*<<filename.ml:370:6>>*/ runtime.caml_sys_mkdir(name, perms);
       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(e[1] !== Stdlib[11])
+       throw caml_maybe_attach_backtrace(e, 0);
        /*<<filename.ml:373:6>>*/ if(20 <= counter)
         /*<<filename.ml:373:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:373:41>>*/ counter + 1 | 0;
@@ -35165,7 +36199,7 @@
      var
       q =  /*<<complex.ml:63:16>>*/ i / r,
       w =
-         /*<<complex.ml:64:8>>*/ Math.sqrt(r)
+         /*<<complex.ml:64:60>>*/  /*<<complex.ml:64:8>>*/ Math.sqrt(r)
         *
           /*<<complex.ml:64:19>>*/ Math.sqrt
           (0.5 * (1. +  /*<<complex.ml:64:39>>*/ Math.sqrt(1. + q * q)));
@@ -35173,7 +36207,7 @@
      var
       q$0 =  /*<<complex.ml:66:16>>*/ r / i,
       w =
-         /*<<complex.ml:67:8>>*/ Math.sqrt(i)
+         /*<<complex.ml:67:58>>*/  /*<<complex.ml:67:8>>*/ Math.sqrt(i)
         *
           /*<<complex.ml:67:19>>*/ Math.sqrt
           (0.5 * (q$0 +  /*<<complex.ml:67:37>>*/ Math.sqrt(1. + q$0 * q$0)));
@@ -35875,7 +36909,7 @@
      /*<<effect.ml:22:16>>*/ if(param[1] !== Unhandled)
       /*<<effect.ml:28:11>>*/ return 0;
     var
-     x = param[2],
+     x =  /*<<effect.ml:22:16>>*/ param[2],
      _i_ =  /*<<effect.ml:25:12>>*/ caml_call1(Stdlib_Printexc[26], x),
      msg =  /*<<effect.ml:24:18>>*/ caml_call2(Stdlib_Printf[4], _a_, _i_);
      /*<<effect.ml:27:8>>*/ return [0, msg];
@@ -35921,7 +36955,7 @@
      var match =  /*<<effect.ml:81:12>>*/ caml_call1(handler[3], eff);
       /*<<effect.ml:81:28>>*/ if(! match)
        /*<<effect.ml:85:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:85:42>>*/ ;
-     var f = match[1];
+     var f =  /*<<effect.ml:81:28>>*/ match[1];
       /*<<effect.ml:83:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:84:10>>*/ return caml_call1(f, k) /*<<effect.ml:85:42>>*/ ;
     }
@@ -35935,7 +36969,7 @@
      var match =  /*<<effect.ml:95:12>>*/ caml_call1(handler[1], eff);
       /*<<effect.ml:95:28>>*/ if(! match)
        /*<<effect.ml:99:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:99:42>>*/ ;
-     var f = match[1];
+     var f =  /*<<effect.ml:95:28>>*/ match[1];
       /*<<effect.ml:97:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:98:10>>*/ return caml_call1(f, k) /*<<effect.ml:99:42>>*/ ;
     }
@@ -35981,10 +37015,13 @@
       /*<<effect.ml:132:10>>*/ throw [0, E, k];
      /*<<effect.ml:133:21>>*/ }
     var s =  /*<<effect.ml:135:12>>*/ caml_alloc_stack(error, error, effc);
-    try{ /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported(); var _b_ = 0;}
+     /*<<effect.ml:136:4>>*/ try{
+      /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported();
+     var _b_ = 0;
+    }
     catch(exn$0){
      var exn = caml_wrap_exception(exn$0);
-     if(exn[1] !== E) throw caml_maybe_attach_backtrace(exn, 0);
+      /*<<?>>*/ if(exn[1] !== E) throw caml_maybe_attach_backtrace(exn, 0);
      var k = exn[2];
       /*<<effect.ml:137:23>>*/ return k;
     }
@@ -35995,7 +37032,7 @@
      var match =  /*<<effect.ml:157:12>>*/ caml_call1(handler[3], eff);
       /*<<effect.ml:157:28>>*/ if(! match)
        /*<<effect.ml:161:16>>*/ return jsoo_effect_not_supported() /*<<effect.ml:161:42>>*/ ;
-     var f = match[1];
+     var f =  /*<<effect.ml:157:28>>*/ match[1];
       /*<<effect.ml:159:10>>*/ k[2] = last_fiber;
       /*<<effect.ml:160:10>>*/ return caml_call1(f, k) /*<<effect.ml:161:42>>*/ ;
     }

From 01a1c9303aff54393e910d12bb4bdf4c74c4fbdb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 11:42:41 +0200
Subject: [PATCH 17/35] Make sure there is a location at the start of functions

If the first block of the function starts with an event, we use the
event's location. This is useful in case of tail-calls, where some code
is generated before this first block. If we don't have an event, we set
the initial location to unkown to prevent previous locations to bleed
into the function body.
---
 compiler/lib/generate.ml                   |   21 +-
 compiler/tests-compiler/gh747.ml           |    2 +-
 compiler/tests-compiler/sourcemap.ml       |    3 +-
 compiler/tests-full/stdlib.cma.expected.js | 1722 ++++++++++----------
 compiler/tests-sourcemap/dump.reference    |    1 -
 5 files changed, 877 insertions(+), 872 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 1124d216c7..15dab94aa3 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -1101,19 +1101,6 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
       let loc = source_location ctx After pc in
       let fv = Addr.Map.find pc ctx.freevars in
       let clo = compile_closure ctx cont in
-      let clo =
-        match clo with
-        | (st, x) :: rem ->
-            let loc =
-              match x, source_location ctx Before pc with
-              | (J.U | J.N), (J.U | J.N) -> J.U
-              | x, (J.U | J.N) -> x
-              | (J.U | J.N), x -> x
-              | _, x -> x
-            in
-            (st, loc) :: rem
-        | _ -> clo
-      in
       let clo =
         J.EFun
           ( None
@@ -1925,8 +1912,14 @@ and compile_closure ctx (pc, args) =
   let current_blocks = Structure.get_nodes st.structure in
   if debug () then Format.eprintf "@[<hv 2>closure {@;";
   let scope_stack = [] in
+  let start_loc =
+    let block = Addr.Map.find pc ctx.Ctx.blocks in
+    match block.body with
+    | (Event loc, _) :: _ -> J.Pi loc
+    | _ -> J.U
+  in
   let _never, res =
-    compile_branch st J.N [] (pc, args) scope_stack ~fall_through:Return
+    compile_branch st start_loc [] (pc, args) scope_stack ~fall_through:Return
   in
   if Addr.Set.cardinal !(st.visited_blocks) <> Addr.Set.cardinal current_blocks
   then (
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index a3e02f70dc..7722afc64a 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -265,7 +265,7 @@ end
      45:       [248,
      46:        caml_string_of_jsbytes("Test.Unhandled"),
      47:        runtime.caml_fresh_oo_id(0)],
-     48:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
+     48:     cst_Raised_at =  /*<<?>>*/ caml_string_of_jsbytes("Raised at"),
      49:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
      50:     cst_Raised_by_primitive_operat =
      51:       caml_string_of_jsbytes("Raised by primitive operation at"),
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 34d5b4e417..ebc0aff0c4 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -90,8 +90,7 @@ let%expect_test _ =
       /dune-root/test.ml:1:11 -> 6:18
       /dune-root/test.ml:1:12 -> 6:28
       /dune-root/test.ml:1:12 -> 7:7
-      /dune-root/test.ml:1:12 -> 7:14
-      null -> 10:2
+      null -> 7:14
     |}]
 
 let%expect_test _ =
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index d3eebe13fa..3ae86c0a32 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -379,11 +379,13 @@
                 (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:42>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:690:8>>*/ }
-   var CamlinternalFormatBasics = [0, concat_fmtty, erase_rel, concat_fmt];
+   var
+    CamlinternalFormatBasics =
+       /*<<?>>*/ [0, concat_fmtty, erase_rel, concat_fmt];
    runtime.caml_register_global
     (0, CamlinternalFormatBasics, "CamlinternalFormatBasics");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib
@@ -460,13 +462,13 @@
        "Stdlib.Exit",
        runtime.caml_fresh_oo_id(0)];
    function min(x, y){
-     /*<<stdlib.ml:74:14>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
+     /*<<stdlib.ml:74:23>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
              (x, y)
             ? x
             : y /*<<stdlib.ml:74:37>>*/ ;
    }
    function max(x, y){
-     /*<<stdlib.ml:75:14>>*/ return  /*<<stdlib.ml:75:17>>*/ runtime.caml_greaterequal
+     /*<<stdlib.ml:75:23>>*/ return  /*<<stdlib.ml:75:17>>*/ runtime.caml_greaterequal
              (x, y)
             ? x
             : y /*<<stdlib.ml:75:37>>*/ ;
@@ -497,7 +499,7 @@
        /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 15536)),
     symbol_concat =  /*<<stdlib.ml:190:42>>*/ caml_string_concat,
-    cst_char_of_int = "char_of_int",
+    cst_char_of_int =  /*<<?>>*/ "char_of_int",
     cst_true = cst_true$0,
     cst_false = cst_false$0,
     cst_bool_of_string = "bool_of_string",
@@ -524,9 +526,7 @@
             ? param !== cst_true$0 ? 0 : _a_
             : _b_ /*<<stdlib.ml:263:13>>*/ ;
    }
-   function string_of_int(n){
-     /*<<stdlib.ml:266:2>>*/ return "" + n /*<<stdlib.ml:266:19>>*/ ;
-   }
+   function string_of_int(n){ /*<<stdlib.ml:266:19>>*/ return "" + n;}
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
      var
@@ -562,7 +562,7 @@
     }
     /*<<stdlib.ml:285:8>>*/ }
    function string_of_float(f){
-     /*<<stdlib.ml:287:24>>*/ return  /*<<stdlib.ml:287:66>>*/ valid_float_lexem
+     /*<<stdlib.ml:287:66>>*/ return valid_float_lexem
             ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
    }
    function float_of_string_opt(s){
@@ -622,7 +622,7 @@
     stdin =  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in(0),
     stdout =  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out(1),
     stderr =  /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out(2),
-    _c_ = [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
+    _c_ =  /*<<?>>*/ [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
     _d_ = [0, 1, [0, 3, [0, 4, [0, 6, 0]]]],
     cst_output = "output",
     cst_output_substring = "output_substring",
@@ -663,11 +663,11 @@
     }
     /*<<stdlib.ml:356:32>>*/ }
    function output_bytes(oc, s){
-     /*<<stdlib.ml:366:2>>*/ return caml_ml_output_bytes
+     /*<<stdlib.ml:366:39>>*/ return  /*<<stdlib.ml:366:2>>*/ caml_ml_output_bytes
             (oc, s, 0, caml_ml_bytes_length(s)) /*<<stdlib.ml:366:39>>*/ ;
    }
    function output_string(oc, s){
-     /*<<stdlib.ml:369:2>>*/ return caml_ml_output
+     /*<<stdlib.ml:369:47>>*/ return  /*<<stdlib.ml:369:2>>*/ caml_ml_output
             (oc, s, 0, caml_ml_string_length(s)) /*<<stdlib.ml:369:47>>*/ ;
    }
    function output(oc, s, ofs, len){
@@ -685,7 +685,8 @@
      /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
    }
    function output_value(chan, v){
-     /*<<stdlib.ml:386:26>>*/ return runtime.caml_output_value(chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
+     /*<<stdlib.ml:386:54>>*/ return  /*<<stdlib.ml:386:26>>*/ runtime.caml_output_value
+            (chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
    }
    function close_out(oc){
      /*<<stdlib.ml:392:19>>*/ caml_ml_flush(oc);
@@ -723,10 +724,9 @@
      /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input) /*<<stdlib.ml:423:32>>*/ ;
    }
    function unsafe_really_input(ic, s, ofs, len){
-    var ofs$0 = ofs, len$0 = len;
+    var ofs$0 =  /*<<stdlib.ml:426:2>>*/ ofs, len$0 = len;
     for(;;){
-      /*<<stdlib.ml:426:2>>*/ if(0 >= len$0)
-       /*<<stdlib.ml:426:19>>*/ return 0;
+     if(0 >= len$0)  /*<<stdlib.ml:426:19>>*/ return 0;
      var r =  /*<<stdlib.ml:427:12>>*/ caml_ml_input(ic, s, ofs$0, len$0);
       /*<<stdlib.ml:428:4>>*/ if(0 === r)
        /*<<stdlib.ml:429:9>>*/ throw caml_maybe_attach_backtrace
@@ -751,10 +751,9 @@
    }
    function input_line(chan){
     function build_result(buf, pos, param){
-     var pos$0 = pos, param$0 = param;
+     var pos$0 =  /*<<stdlib.ml:446:23>>*/ pos, param$0 = param;
      for(;;){
-       /*<<stdlib.ml:446:23>>*/ if(! param$0)
-        /*<<stdlib.ml:447:10>>*/ return buf;
+      if(! param$0)  /*<<stdlib.ml:447:10>>*/ return buf;
       var
        tl =  /*<<stdlib.ml:446:23>>*/ param$0[2],
        hd = param$0[1],
@@ -814,7 +813,8 @@
     catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0;}
     /*<<stdlib.ml:480:54>>*/ }
    function print_char(c){
-     /*<<stdlib.ml:486:19>>*/ return caml_ml_output_char(stdout, c) /*<<stdlib.ml:486:39>>*/ ;
+     /*<<stdlib.ml:486:39>>*/ return  /*<<stdlib.ml:486:19>>*/ caml_ml_output_char
+            (stdout, c) /*<<stdlib.ml:486:39>>*/ ;
    }
    function print_string(s){
      /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s) /*<<stdlib.ml:487:43>>*/ ;
@@ -823,11 +823,10 @@
      /*<<stdlib.ml:488:20>>*/ return output_bytes(stdout, s) /*<<stdlib.ml:488:41>>*/ ;
    }
    function print_int(i){
-     /*<<stdlib.ml:489:18>>*/ return  /*<<stdlib.ml:489:56>>*/ output_string
-            (stdout, "" + i);
+     /*<<stdlib.ml:489:56>>*/ return output_string(stdout, "" + i);
    }
    function print_float(f){
-     /*<<stdlib.ml:490:20>>*/ return  /*<<stdlib.ml:490:60>>*/ output_string
+     /*<<stdlib.ml:490:60>>*/ return output_string
             (stdout,  /*<<stdlib.ml:490:41>>*/ string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
    }
    function print_endline(s){
@@ -842,7 +841,8 @@
             (stdout) /*<<stdlib.ml:493:60>>*/ ;
    }
    function prerr_char(c){
-     /*<<stdlib.ml:497:19>>*/ return caml_ml_output_char(stderr, c) /*<<stdlib.ml:497:39>>*/ ;
+     /*<<stdlib.ml:497:39>>*/ return  /*<<stdlib.ml:497:19>>*/ caml_ml_output_char
+            (stderr, c) /*<<stdlib.ml:497:39>>*/ ;
    }
    function prerr_string(s){
      /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s) /*<<stdlib.ml:498:43>>*/ ;
@@ -851,11 +851,10 @@
      /*<<stdlib.ml:499:20>>*/ return output_bytes(stderr, s) /*<<stdlib.ml:499:41>>*/ ;
    }
    function prerr_int(i){
-     /*<<stdlib.ml:500:18>>*/ return  /*<<stdlib.ml:500:56>>*/ output_string
-            (stderr, "" + i);
+     /*<<stdlib.ml:500:56>>*/ return output_string(stderr, "" + i);
    }
    function prerr_float(f){
-     /*<<stdlib.ml:501:20>>*/ return  /*<<stdlib.ml:501:60>>*/ output_string
+     /*<<stdlib.ml:501:60>>*/ return output_string
             (stderr,  /*<<stdlib.ml:501:41>>*/ string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
    }
    function prerr_endline(s){
@@ -874,19 +873,19 @@
      /*<<stdlib.ml:508:31>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
    }
    function read_int(param){
-     /*<<stdlib.ml:509:18>>*/ return caml_int_of_string
+     /*<<stdlib.ml:509:44>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
             ( /*<<stdlib.ml:509:31>>*/ read_line(0)) /*<<stdlib.ml:509:44>>*/ ;
    }
    function read_int_opt(param){
-     /*<<stdlib.ml:510:22>>*/ return  /*<<stdlib.ml:510:52>>*/ int_of_string_opt
+     /*<<stdlib.ml:510:52>>*/ return int_of_string_opt
             ( /*<<stdlib.ml:510:39>>*/ read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
    }
    function read_float(param){
-     /*<<stdlib.ml:511:20>>*/ return caml_float_of_string
+     /*<<stdlib.ml:511:48>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
             ( /*<<stdlib.ml:511:35>>*/ read_line(0)) /*<<stdlib.ml:511:48>>*/ ;
    }
    function read_float_opt(param){
-     /*<<stdlib.ml:512:24>>*/ return  /*<<stdlib.ml:512:56>>*/ float_of_string_opt
+     /*<<stdlib.ml:512:56>>*/ return float_of_string_opt
             ( /*<<stdlib.ml:512:43>>*/ read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
    }
    function string_of_format(param){
@@ -1161,7 +1160,7 @@
    }
    var
     Stdlib_Either =
-      [0,
+       /*<<?>>*/ [0,
        left,
        right,
        is_left,
@@ -1178,7 +1177,7 @@
        compare];
    runtime.caml_register_global(0, Stdlib_Either, "Stdlib__Either");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Sys
@@ -1222,9 +1221,7 @@
     }
     /*<<sys.ml.in:61:24>>*/ }
    var interactive =  /*<<sys.ml.in:37:34>>*/ [0, 0];
-   function set_signal(sig_num, sig_beh){
-     /*<<sys.ml.in:82:33>>*/ return 0 /*<<sys.ml.in:82:63>>*/ ;
-   }
+   function set_signal(sig_num, sig_beh){ /*<<sys.ml.in:82:63>>*/ return 0;}
    var
     Break =
        /*<<sys.ml.in:37:34>>*/ [248,
@@ -1317,14 +1314,15 @@
      /*<<obj.ml:26:34>>*/ return 1 - (typeof a === "number" ? 1 : 0);
     /*<<obj.ml:26:48>>*/ }
    function double_field(x, i){
-     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i] /*<<obj.ml:35:77>>*/ ;
+     /*<<obj.ml:35:77>>*/ return  /*<<obj.ml:35:40>>*/ caml_check_bound(x, i)
+            [1 + i] /*<<obj.ml:35:77>>*/ ;
    }
    function set_double_field(x, i, v){
      /*<<obj.ml:37:2>>*/ caml_check_bound(x, i)[1 + i] = v;
      /*<<obj.ml:37:41>>*/ return 0;
    }
    var
-    cst_Obj_extension_constructor = cst_Obj_extension_constructor$1,
+    cst_Obj_extension_constructor =  /*<<?>>*/ cst_Obj_extension_constructor$1,
     cst_Obj_extension_constructor$0 = cst_Obj_extension_constructor$1;
    function of_val(x){
     a:
@@ -1353,14 +1351,10 @@
             :  /*<<obj.ml:85:11>>*/ caml_call1
               (Stdlib[1], cst_Obj_extension_constructor) /*<<obj.ml:85:50>>*/ ;
    }
-   function name(slot){
-     /*<<obj.ml:88:5>>*/ return slot[1] /*<<obj.ml:88:30>>*/ ;
-   }
-   function id(slot){
-     /*<<obj.ml:91:5>>*/ return slot[2] /*<<obj.ml:91:30>>*/ ;
-   }
+   function name(slot){ /*<<obj.ml:88:30>>*/ return slot[1];}
+   function id(slot){ /*<<obj.ml:91:30>>*/ return slot[2];}
    var
-    Extension_constructor = [0, of_val, name, id],
+    Extension_constructor =  /*<<?>>*/ [0, of_val, name, id],
     max_ephe_length = Stdlib_Sys[13] - 2 | 0,
     cst_Obj_Ephemeron_create = "Obj.Ephemeron.create",
     cst_Obj_Ephemeron_get_key = "Obj.Ephemeron.get_key",
@@ -1440,7 +1434,7 @@
    }
    var
     Stdlib_Obj =
-      [0,
+       /*<<?>>*/ [0,
        is_block,
        double_field,
        set_double_field,
@@ -1481,7 +1475,7 @@
         max_ephe_length]];
    runtime.caml_register_global(11, Stdlib_Obj, "Stdlib__Obj");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Type
@@ -1511,10 +1505,10 @@
    function provably_equal(A, B){
      /*<<type.ml:40:4>>*/ return A[1] === B[1] ? _a_ : 0 /*<<type.ml:40:50>>*/ ;
    }
-   var Id = [0, make, uid, provably_equal], Stdlib_Type = [0, Id];
+   var Id =  /*<<?>>*/ [0, make, uid, provably_equal], Stdlib_Type = [0, Id];
    runtime.caml_register_global(3, Stdlib_Type, "Stdlib__Type");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Atomic
@@ -1538,8 +1532,8 @@
     /*<<atomic.ml:27:42>>*/ }
    var
     Stdlib_Atomic =
-      [0,
-       function(_a_){ /*<<?>>*/ return [0, _a_];},
+       /*<<?>>*/ [0,
+       function(_a_){return [0, _a_];},
        runtime.caml_atomic_make_contended,
        runtime.caml_atomic_load,
        set,
@@ -1574,7 +1568,7 @@
     Undefined =
       [248, "CamlinternalLazy.Undefined", runtime.caml_fresh_oo_id(0)];
    function force_gen_lazy_block(only_val, blk){
-     /*<<camlinternalLazy.ml:72:2>>*/ if
+     /*<<camlinternalLazy.ml:72:40>>*/ if
      (0
       !==
         /*<<camlinternalLazy.ml:72:8>>*/ runtime.caml_lazy_update_to_forcing
@@ -1625,10 +1619,11 @@
             :  /*<<camlinternalLazy.ml:105:7>>*/ force_gen_lazy_block
               (only_val, lzv) /*<<camlinternalLazy.ml:105:41>>*/ ;
    }
-   var CamlinternalLazy = [0, Undefined, force_lazy_block, force_gen];
+   var
+    CamlinternalLazy =  /*<<?>>*/ [0, Undefined, force_lazy_block, force_gen];
    runtime.caml_register_global(2, CamlinternalLazy, "CamlinternalLazy");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Lazy
@@ -1679,7 +1674,7 @@
    function map(f, x){
      /*<<lazy.ml:75:2>>*/ return [246,
             function(_f_){
-             var _g_ = caml_obj_tag(x);
+             var _g_ =  /*<<?>>*/ caml_obj_tag(x);
              a:
              if(250 === _g_)
               var _h_ = x[1];
@@ -1688,13 +1683,13 @@
               var _h_ = caml_call1(CamlinternalLazy[2], x);
              }
              return caml_call1(f, _h_);
-            }];
+            }] /*<<lazy.ml:75:2>>*/ ;
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
-     /*<<lazy.ml:78:2>>*/ if(!  /*<<lazy.ml:78:5>>*/ is_val(x))
+     /*<<lazy.ml:78:13>>*/ if(!  /*<<lazy.ml:78:5>>*/ is_val(x))
       /*<<lazy.ml:80:7>>*/ return [246,
              function(_c_){
-              var _d_ = caml_obj_tag(x);
+              var _d_ =  /*<<?>>*/ caml_obj_tag(x);
               a:
               if(250 === _d_)
                var _e_ = x[1];
@@ -1703,7 +1698,7 @@
                var _e_ = caml_call1(CamlinternalLazy[2], x);
               }
               return caml_call1(f, _e_);
-             }];
+             }] /*<<lazy.ml:80:7>>*/ ;
     var _a_ =  /*<<lazy.ml:79:7>>*/ caml_obj_tag(x);
     a:
     if(250 === _a_)
@@ -1717,10 +1712,17 @@
    }
    var
     Stdlib_Lazy =
-      [0, Undefined, map, is_val, from_val, map_val, from_fun, force_val];
+       /*<<?>>*/ [0,
+       Undefined,
+       map,
+       is_val,
+       from_val,
+       map_val,
+       from_fun,
+       force_val];
    runtime.caml_register_global(2, Stdlib_Lazy, "Stdlib__Lazy");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Seq
@@ -1783,7 +1785,7 @@
             function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:31>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
-    var seq$0 = seq;
+    var seq$0 =  /*<<seq.ml:39:30>>*/ seq;
     for(;;){
      var match =  /*<<seq.ml:39:36>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:39:41>>*/ if(! match)  /*<<seq.ml:40:11>>*/ return 0;
@@ -1801,7 +1803,7 @@
     }
     /*<<seq.ml:44:47>>*/ }
    function filter(f, seq, param){
-    var seq$0 = seq;
+    var seq$0 =  /*<<seq.ml:46:26>>*/ seq;
     for(;;){
      var match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:46:37>>*/ if(! match)  /*<<seq.ml:47:11>>*/ return 0;
@@ -1830,7 +1832,7 @@
              0) /*<<seq.ml:61:37>>*/ ;
    }
    function fold_left(f, acc, seq){
-    var acc$0 = acc, seq$0 = seq;
+    var acc$0 =  /*<<seq.ml:66:2>>*/ acc, seq$0 = seq;
     for(;;){
      var match =  /*<<seq.ml:66:8>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:66:14>>*/ if(! match)  /*<<seq.ml:67:13>>*/ return acc$0;
@@ -1843,7 +1845,7 @@
     }
     /*<<seq.ml:70:28>>*/ }
    function iter(f, seq){
-    var seq$0 = seq;
+    var seq$0 =  /*<<seq.ml:73:2>>*/ seq;
     for(;;){
      var match =  /*<<seq.ml:73:8>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:73:14>>*/ if(! match)  /*<<seq.ml:74:13>>*/ return 0;
@@ -1864,7 +1866,9 @@
             function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:40>>*/ ;
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
-     /*<<seq.ml:85:2>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0) ? 0 : 1 /*<<seq.ml:89:11>>*/ ;
+     /*<<seq.ml:85:12>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0)
+            ? 0
+            : 1 /*<<seq.ml:89:11>>*/ ;
    }
    function uncons(xs){
     var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
@@ -1912,7 +1916,7 @@
     }
     /*<<seq.ml:130:28>>*/ }
    function for_all(p, xs){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:133:2>>*/ xs;
     for(;;){
      var match =  /*<<seq.ml:133:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:133:12>>*/ if(! match)  /*<<seq.ml:135:6>>*/ return 1;
@@ -1925,7 +1929,7 @@
     }
     /*<<seq.ml:137:25>>*/ }
    function exists(p, xs){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:140:2>>*/ xs;
     for(;;){
      var match =  /*<<seq.ml:140:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:140:12>>*/ if(! match)  /*<<seq.ml:142:6>>*/ return 0;
@@ -1938,7 +1942,7 @@
     }
     /*<<seq.ml:144:24>>*/ }
    function find(p, xs){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:147:2>>*/ xs;
     for(;;){
      var match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:147:12>>*/ if(! match)  /*<<seq.ml:149:6>>*/ return 0;
@@ -1962,7 +1966,7 @@
     }
     /*<<seq.ml:159:10>>*/ }
    function find_map(f, xs){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:162:2>>*/ xs;
     for(;;){
      var match =  /*<<seq.ml:162:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:162:12>>*/ if(! match)  /*<<seq.ml:164:6>>*/ return 0;
@@ -1990,7 +1994,7 @@
     }
     /*<<seq.ml:182:10>>*/ }
    function iter2(f, xs, ys){
-    var xs$0 = xs, ys$0 = ys;
+    var xs$0 =  /*<<seq.ml:192:2>>*/ xs, ys$0 = ys;
     for(;;){
      var match =  /*<<seq.ml:192:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:192:12>>*/ if(! match)  /*<<seq.ml:194:6>>*/ return 0;
@@ -2006,7 +2010,7 @@
     }
     /*<<seq.ml:201:23>>*/ }
    function fold_left2(f, accu, xs, ys){
-    var accu$0 = accu, xs$0 = xs, ys$0 = ys;
+    var accu$0 =  /*<<seq.ml:204:2>>*/ accu, xs$0 = xs, ys$0 = ys;
     for(;;){
      var match =  /*<<seq.ml:204:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:204:12>>*/ if(! match)  /*<<seq.ml:206:6>>*/ return accu$0;
@@ -2026,7 +2030,7 @@
     }
     /*<<seq.ml:213:33>>*/ }
    function for_all2(f, xs, ys){
-    var xs$0 = xs, ys$0 = ys;
+    var xs$0 =  /*<<seq.ml:216:2>>*/ xs, ys$0 = ys;
     for(;;){
      var match =  /*<<seq.ml:216:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:216:12>>*/ if(! match)  /*<<seq.ml:218:6>>*/ return 1;
@@ -2045,7 +2049,7 @@
     }
     /*<<seq.ml:224:35>>*/ }
    function exists2(f, xs, ys){
-    var xs$0 = xs, ys$0 = ys;
+    var xs$0 =  /*<<seq.ml:227:2>>*/ xs, ys$0 = ys;
     for(;;){
      var match =  /*<<seq.ml:227:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:227:12>>*/ if(! match)  /*<<seq.ml:229:6>>*/ return 0;
@@ -2064,7 +2068,7 @@
     }
     /*<<seq.ml:235:34>>*/ }
    function equal(eq, xs, ys){
-    var xs$0 = xs, ys$0 = ys;
+    var xs$0 =  /*<<seq.ml:238:2>>*/ xs, ys$0 = ys;
     for(;;){
      var
       match =  /*<<seq.ml:238:8>>*/ caml_call1(xs$0, 0),
@@ -2088,7 +2092,7 @@
     }
     /*<<seq.ml:245:11>>*/ }
    function compare(cmp, xs, ys){
-    var xs$0 = xs, ys$0 = ys;
+    var xs$0 =  /*<<seq.ml:248:2>>*/ xs, ys$0 = ys;
     for(;;){
      var
       match =  /*<<seq.ml:248:8>>*/ caml_call1(xs$0, 0),
@@ -2121,17 +2125,17 @@
       /*<<?>>*/ return init_aux(f, _af_, n, _ag_);} /*<<seq.ml:274:4>>*/ ;
     /*<<seq.ml:274:18>>*/ }
    function repeat(x, param){
-     /*<<seq.ml:277:2>>*/ return [0,
+     /*<<seq.ml:277:19>>*/ return [0,
             x,
             function(_ae_){ /*<<?>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:19>>*/ ;
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
-     /*<<seq.ml:280:2>>*/ return [0,
+     /*<<seq.ml:280:11>>*/ return [0,
              /*<<seq.ml:280:8>>*/ caml_call1(f, 0),
             function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:11>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
-     /*<<seq.ml:287:2>>*/ return  /*<<seq.ml:287:31>>*/ append
+     /*<<seq.ml:287:31>>*/ return append
             (xs,
              function(_ac_){ /*<<?>>*/ return cycle_nonempty(xs, _ac_);},
              0) /*<<seq.ml:287:34>>*/ ;
@@ -2241,7 +2245,7 @@
             : 0 /*<<seq.ml:399:52>>*/ ;
    }
    function drop_while(p, xs, param){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:402:2>>*/ xs;
     for(;;){
      var node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:402:12>>*/ if(! node)  /*<<seq.ml:404:6>>*/ return 0;
@@ -2267,7 +2271,7 @@
     /*<<seq.ml:413:75>>*/ }
    var
     Forced_twice =
-      [248, "Stdlib.Seq.Forced_twice", runtime.caml_fresh_oo_id(0)],
+       /*<<?>>*/ [248, "Stdlib.Seq.Forced_twice", runtime.caml_fresh_oo_id(0)],
     to_lazy = Stdlib_Lazy[6],
     _a_ = [0, "seq.ml", 616, 4];
    function failure(param){
@@ -2338,7 +2342,7 @@
             function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}] /*<<seq.ml:504:31>>*/ ;
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
-     /*<<seq.ml:533:2>>*/ return 0
+     /*<<seq.ml:533:12>>*/ return 0
             <  /*<<seq.ml:533:5>>*/ caml_call2(cmp, x, y)
             ? [0,
               y,
@@ -2393,12 +2397,12 @@
             function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:26>>*/ ;
     /*<<seq.ml:561:27>>*/ }
    function unzip(xys){
-     /*<<seq.ml:564:2>>*/ return [0,
+     /*<<seq.ml:564:13>>*/ return [0,
             function(_A_){ /*<<?>>*/ return map_fst(xys, _A_);},
             function(_z_){return map_snd(xys, _z_);}] /*<<seq.ml:564:13>>*/ ;
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:573:2>>*/ xs;
     for(;;){
      var match =  /*<<seq.ml:573:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:573:12>>*/ if(! match)  /*<<seq.ml:575:6>>*/ return 0;
@@ -2418,7 +2422,7 @@
     }
     /*<<seq.ml:581:42>>*/ }
    function filter_map_find_right_map(f, xs, param){
-    var xs$0 = xs;
+    var xs$0 =  /*<<seq.ml:584:2>>*/ xs;
     for(;;){
      var match =  /*<<seq.ml:584:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:584:12>>*/ if(! match)  /*<<seq.ml:586:6>>*/ return 0;
@@ -2438,7 +2442,7 @@
     }
     /*<<seq.ml:592:50>>*/ }
    function partition_map(f, xs){
-     /*<<seq.ml:595:2>>*/ return [0,
+     /*<<seq.ml:595:31>>*/ return [0,
             function(_w_){
               /*<<?>>*/ return filter_map_find_left_map(f, xs, _w_);
             },
@@ -2446,14 +2450,14 @@
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
-      /*<<seq.ml:599:32>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x) /*<<seq.ml:599:41>>*/ ;
+      /*<<seq.ml:599:41>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x) /*<<seq.ml:599:41>>*/ ;
     }
      /*<<seq.ml:599:13>>*/ return [0,
             function(_u_){ /*<<?>>*/ return filter(p, xs, _u_);},
             function(_t_){return filter(_s_, xs, _t_);}] /*<<seq.ml:599:13>>*/ ;
     /*<<seq.ml:599:45>>*/ }
    function peel(xss){
-     /*<<seq.ml:611:2>>*/ return  /*<<seq.ml:611:31>>*/ unzip
+     /*<<seq.ml:611:31>>*/ return unzip
             (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);}) /*<<seq.ml:611:31>>*/ ;
    }
    function transpose(xss, param){
@@ -2548,7 +2552,7 @@
     /*<<seq.ml:702:24>>*/ }
    var
     Stdlib_Seq =
-      [0,
+       /*<<?>>*/ [0,
        is_empty,
        uncons,
        length,
@@ -2610,7 +2614,7 @@
        ints];
    runtime.caml_register_global(10, Stdlib_Seq, "Stdlib__Seq");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Option
@@ -2718,7 +2722,7 @@
    }
    var
     Stdlib_Option =
-      [0,
+       /*<<?>>*/ [0,
        0,
        some,
        value,
@@ -2737,7 +2741,7 @@
        to_seq];
    runtime.caml_register_global(3, Stdlib_Option, "Stdlib__Option");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Result
@@ -2884,7 +2888,7 @@
    }
    var
     Stdlib_Result =
-      [0,
+       /*<<?>>*/ [0,
        ok,
        error,
        value,
@@ -2906,7 +2910,7 @@
        to_seq];
    runtime.caml_register_global(4, Stdlib_Result, "Stdlib__Result");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Bool
@@ -2925,15 +2929,17 @@
      /*<<bool.ml:33:16>>*/ return param ? cst_true : cst_false /*<<bool.ml:33:58>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<bool.ml:37:25>>*/ return caml_hash(10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
+     /*<<bool.ml:37:56>>*/ return  /*<<bool.ml:37:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
    }
    function hash(x){
-     /*<<bool.ml:38:13>>*/ return caml_hash(10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
+     /*<<bool.ml:38:41>>*/ return  /*<<bool.ml:38:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
    }
    var
     Stdlib_Bool =
-      [0,
-       function(_b_){ /*<<?>>*/ return 1 - _b_;},
+       /*<<?>>*/ [0,
+       function(_b_){return 1 - _b_;},
        equal,
        compare,
        function(_a_){return _a_;},
@@ -3020,17 +3026,19 @@
      /*<<char.ml:59:20>>*/ return c1 - c2 | 0;
     /*<<char.ml:59:37>>*/ }
    function equal(c1, c2){
-     /*<<char.ml:60:28>>*/ return 0 === (c1 - c2 | 0) ? 1 : 0 /*<<char.ml:60:41>>*/ ;
+     /*<<char.ml:60:41>>*/ return 0 === (c1 - c2 | 0) ? 1 : 0;
     /*<<char.ml:60:45>>*/ }
    function seeded_hash(seed, x){
-     /*<<char.ml:64:25>>*/ return caml_hash(10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
+     /*<<char.ml:64:56>>*/ return  /*<<char.ml:64:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
    }
    function hash(x){
-     /*<<char.ml:65:13>>*/ return caml_hash(10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
+     /*<<char.ml:65:41>>*/ return  /*<<char.ml:65:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
    }
    var
     Stdlib_Char =
-      [0,
+       /*<<?>>*/ [0,
        chr,
        escaped,
        lowercase_ascii,
@@ -3041,7 +3049,7 @@
        hash];
    runtime.caml_register_global(8, Stdlib_Char, "Stdlib__Char");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Uchar
@@ -3102,7 +3110,7 @@
     return _p_;
     /*<<uchar.ml:43:75>>*/ }
    function of_int(i){
-     /*<<uchar.ml:44:15>>*/ if( /*<<uchar.ml:44:18>>*/ is_valid(i))
+     /*<<uchar.ml:44:28>>*/ if( /*<<uchar.ml:44:18>>*/ is_valid(i))
       /*<<uchar.ml:44:34>>*/ return i;
     var
      _m_ =
@@ -3154,7 +3162,7 @@
      /*<<uchar.ml:77:36>>*/ return n << 24 | 65533;
     /*<<uchar.ml:77:63>>*/ }
    function utf_8_byte_length(u){
-     /*<<uchar.ml:79:26>>*/ if(0 > u)
+     /*<<uchar.ml:80:9>>*/ if(0 > u)
       /*<<uchar.ml:80:18>>*/ throw caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
      /*<<uchar.ml:81:9>>*/ if(127 >= u)  /*<<uchar.ml:81:24>>*/ return 1;
@@ -3166,7 +3174,7 @@
      /*<<uchar.ml:84:26>>*/ return 4;
     /*<<uchar.ml:85:19>>*/ }
    function utf_16_byte_length(u){
-     /*<<uchar.ml:87:27>>*/ if(0 > u)
+     /*<<uchar.ml:88:9>>*/ if(0 > u)
       /*<<uchar.ml:88:18>>*/ throw caml_maybe_attach_backtrace
             ([0, Assert_failure, _d_], 1);
      /*<<uchar.ml:89:9>>*/ if(65535 >= u)  /*<<uchar.ml:89:24>>*/ return 2;
@@ -3177,7 +3185,7 @@
     /*<<uchar.ml:91:19>>*/ }
    var
     Stdlib_Uchar =
-      [0,
+       /*<<?>>*/ [0,
        0,
        1114111,
        65279,
@@ -3186,7 +3194,7 @@
        pred,
        is_valid,
        of_int,
-       function(_f_){ /*<<?>>*/ return _f_;},
+       function(_f_){return _f_;},
        function(_e_){return _e_;},
        is_char,
        of_char,
@@ -3296,7 +3304,7 @@
     }
     /*<<list.ml:51:16>>*/ }
    var
-    append = Stdlib[37],
+    append =  /*<<?>>*/ Stdlib[37],
     cst_List_init = "List.init",
     cst_List_map2 = cst_List_map2$1,
     cst_List_map2$0 = cst_List_map2$1,
@@ -3309,9 +3317,9 @@
     _a_ = [0, 0, 0],
     cst_List_combine = "List.combine";
    function rev_append(l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:56:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:56:2>>*/ if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
+     if(! l1$0)  /*<<list.ml:57:10>>*/ return l2$0;
      var
       l1$1 =  /*<<list.ml:56:2>>*/ l1$0[2],
       a = l1$0[1],
@@ -3469,9 +3477,9 @@
     }
     /*<<list.ml:107:13>>*/ }
    function iter(f, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:110:13>>*/ param;
     for(;;){
-      /*<<list.ml:110:13>>*/ if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:111:10>>*/ return 0;
      var l =  /*<<list.ml:110:13>>*/ param$0[2], a = param$0[1];
       /*<<list.ml:112:12>>*/ caml_call1(f, a);
       /*<<list.ml:112:15>>*/ param$0 = l;
@@ -3489,9 +3497,9 @@
     }
     /*<<list.ml:118:27>>*/ }
    function fold_left(f, accu, l){
-    var accu$0 = accu, l$0 = l;
+    var accu$0 =  /*<<list.ml:121:2>>*/ accu, l$0 = l;
     for(;;){
-      /*<<list.ml:121:2>>*/ if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
+     if(! l$0)  /*<<list.ml:122:10>>*/ return accu$0;
      var
       l$1 =  /*<<list.ml:121:2>>*/ l$0[2],
       a = l$0[1],
@@ -3608,9 +3616,9 @@
     }
    }
    function iter2(f, l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:153:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:153:2>>*/ if(l1$0){
+     if(l1$0){
       if(l2$0){
        var l2$1 = l2$0[2], a2 = l2$0[1], l1$1 = l1$0[2], a1 = l1$0[1];
         /*<<list.ml:155:24>>*/ caml_call2(f, a1, a2);
@@ -3624,9 +3632,9 @@
     }
    }
    function fold_left2(f, accu, l1, l2){
-    var accu$0 = accu, l1$0 = l1, l2$0 = l2;
+    var accu$0 =  /*<<list.ml:159:2>>*/ accu, l1$0 = l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:159:2>>*/ if(l1$0){
+     if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3659,9 +3667,9 @@
      /*<<list.ml:168:14>>*/ return caml_call1(Stdlib[1], cst_List_fold_right2) /*<<list.ml:168:44>>*/ ;
    }
    function for_all(p, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:170:16>>*/ param;
     for(;;){
-      /*<<list.ml:170:16>>*/ if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
+     if(! param$0)  /*<<list.ml:171:10>>*/ return 1;
      var
       l =  /*<<list.ml:170:16>>*/ param$0[2],
       a = param$0[1],
@@ -3671,9 +3679,9 @@
     }
     /*<<list.ml:172:30>>*/ }
    function exists(p, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:174:15>>*/ param;
     for(;;){
-      /*<<list.ml:174:15>>*/ if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:175:10>>*/ return 0;
      var
       l =  /*<<list.ml:174:15>>*/ param$0[2],
       a = param$0[1],
@@ -3683,9 +3691,9 @@
     }
     /*<<list.ml:176:29>>*/ }
    function for_all2(p, l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:179:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:179:2>>*/ if(l1$0){
+     if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3704,9 +3712,9 @@
     }
    }
    function exists2(p, l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:185:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:185:2>>*/ if(l1$0){
+     if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -3725,9 +3733,9 @@
     }
    }
    function mem(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:190:12>>*/ param;
     for(;;){
-      /*<<list.ml:190:12>>*/ if(! param$0)  /*<<list.ml:191:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:191:10>>*/ return 0;
      var
       l =  /*<<list.ml:190:12>>*/ param$0[2],
       a = param$0[1],
@@ -3741,9 +3749,9 @@
     }
     /*<<list.ml:192:38>>*/ }
    function memq(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:194:13>>*/ param;
     for(;;){
-      /*<<list.ml:194:13>>*/ if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:195:10>>*/ return 0;
      var
       l =  /*<<list.ml:194:13>>*/ param$0[2],
       a = param$0[1],
@@ -3753,9 +3761,9 @@
     }
     /*<<list.ml:196:30>>*/ }
    function assoc(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:198:14>>*/ param;
     for(;;){
-      /*<<list.ml:198:14>>*/ if(! param$0)
+     if(! param$0)
        /*<<list.ml:199:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var
       l =  /*<<list.ml:198:14>>*/ param$0[2],
@@ -3769,9 +3777,9 @@
     }
     /*<<list.ml:200:56>>*/ }
    function assoc_opt(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:202:18>>*/ param;
     for(;;){
-      /*<<list.ml:202:18>>*/ if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:203:10>>*/ return 0;
      var
       l =  /*<<list.ml:202:18>>*/ param$0[2],
       match = param$0[1],
@@ -3784,9 +3792,9 @@
     }
     /*<<list.ml:204:65>>*/ }
    function assq(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:206:13>>*/ param;
     for(;;){
-      /*<<list.ml:206:13>>*/ if(! param$0)
+     if(! param$0)
        /*<<list.ml:207:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var
       l =  /*<<list.ml:206:13>>*/ param$0[2],
@@ -3798,9 +3806,9 @@
     }
     /*<<list.ml:208:46>>*/ }
    function assq_opt(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:210:17>>*/ param;
     for(;;){
-      /*<<list.ml:210:17>>*/ if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:211:10>>*/ return 0;
      var
       l =  /*<<list.ml:210:17>>*/ param$0[2],
       match = param$0[1],
@@ -3812,9 +3820,9 @@
     }
     /*<<list.ml:212:55>>*/ }
    function mem_assoc(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:214:18>>*/ param;
     for(;;){
-      /*<<list.ml:214:18>>*/ if(! param$0)  /*<<list.ml:215:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:215:10>>*/ return 0;
      var
       l =  /*<<list.ml:214:18>>*/ param$0[2],
       a = param$0[1][1],
@@ -3828,9 +3836,9 @@
     }
     /*<<list.ml:216:51>>*/ }
    function mem_assq(x, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:218:17>>*/ param;
     for(;;){
-      /*<<list.ml:218:17>>*/ if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:219:10>>*/ return 0;
      var
       l =  /*<<list.ml:218:17>>*/ param$0[2],
       a = param$0[1][1],
@@ -3855,9 +3863,9 @@
             : [0, pair,  /*<<list.ml:229:57>>*/ remove_assq(x, l)] /*<<list.ml:229:72>>*/ ;
    }
    function find(p, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:231:13>>*/ param;
     for(;;){
-      /*<<list.ml:231:13>>*/ if(! param$0)
+     if(! param$0)
        /*<<list.ml:232:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l =  /*<<list.ml:231:13>>*/ param$0[2], x = param$0[1];
       /*<<list.ml:233:20>>*/ if( /*<<list.ml:233:17>>*/ caml_call1(p, x))
@@ -3866,9 +3874,9 @@
     }
     /*<<list.ml:233:41>>*/ }
    function find_opt(p, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:235:17>>*/ param;
     for(;;){
-      /*<<list.ml:235:17>>*/ if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
      var l =  /*<<list.ml:235:17>>*/ param$0[2], x = param$0[1];
       /*<<list.ml:237:20>>*/ if( /*<<list.ml:237:17>>*/ caml_call1(p, x))
        /*<<list.ml:237:26>>*/ return [0, x];
@@ -3878,7 +3886,7 @@
    function find_index(p){
     var i =  /*<<list.ml:243:2>>*/ 0;
     return function(param$0){
-     var i$0 = i, param = param$0;
+     var i$0 =  /*<<?>>*/ i, param = param$0;
      for(;;){
        /*<<list.ml:240:14>>*/ if(! param)  /*<<list.ml:241:10>>*/ return 0;
       var l =  /*<<list.ml:240:14>>*/ param[2], a = param[1];
@@ -3890,9 +3898,9 @@
      }} /*<<list.ml:243:2>>*/ ;
     /*<<list.ml:243:7>>*/ }
    function find_map(f, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:245:17>>*/ param;
     for(;;){
-      /*<<list.ml:245:17>>*/ if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:246:10>>*/ return 0;
      var
       l =  /*<<list.ml:245:17>>*/ param$0[2],
       x = param$0[1],
@@ -3904,7 +3912,7 @@
    function find_mapi(f){
     var i =  /*<<list.ml:261:2>>*/ 0;
     return function(param$0){
-     var i$0 = i, param = param$0;
+     var i$0 =  /*<<?>>*/ i, param = param$0;
      for(;;){
        /*<<list.ml:254:14>>*/ if(! param)  /*<<list.ml:255:10>>*/ return 0;
       var
@@ -3919,9 +3927,9 @@
      }} /*<<list.ml:261:2>>*/ ;
     /*<<list.ml:261:7>>*/ }
    function find_all(p, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:263:33>>*/ param;
     for(;;){
-      /*<<list.ml:263:33>>*/ if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
      var l =  /*<<list.ml:263:33>>*/ param$0[2], x = param$0[1];
       /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
       var
@@ -3991,9 +3999,9 @@
     }
     /*<<list.ml:275:31>>*/ }
    function filter_map(f, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:277:35>>*/ param;
     for(;;){
-      /*<<list.ml:277:35>>*/ if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:278:10>>*/ return 0;
      var
       l =  /*<<list.ml:277:35>>*/ param$0[2],
       x = param$0[1],
@@ -4030,9 +4038,9 @@
     }
     /*<<list.ml:282:37>>*/ }
    function concat_map(f, param){
-    var param$0 = param;
+    var param$0 =  /*<<list.ml:284:35>>*/ param;
     for(;;){
-      /*<<list.ml:284:35>>*/ if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
+     if(! param$0)  /*<<list.ml:285:10>>*/ return 0;
      var
       xs =  /*<<list.ml:284:35>>*/ param$0[2],
       x = param$0[1],
@@ -4606,10 +4614,9 @@
             : l /*<<list.ml:524:41>>*/ ;
    }
    function compare_lengths(l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:528:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:528:2>>*/ if(! l1$0)
-      return l2$0 ? -1 : 0 /*<<list.ml:532:45>>*/ ;
+     if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:532:45>>*/ ;
       /*<<list.ml:528:2>>*/ if(! l2$0)  /*<<list.ml:531:13>>*/ return 1;
      var l2$1 =  /*<<list.ml:528:2>>*/ l2$0[2], l1$1 = l1$0[2];
       /*<<list.ml:532:24>>*/ l1$0 = l1$1;
@@ -4617,9 +4624,9 @@
     }
     /*<<list.ml:532:45>>*/ }
    function compare_length_with(l, n){
-    var l$0 = l, n$0 = n;
+    var l$0 =  /*<<list.ml:535:2>>*/ l, n$0 = n;
     for(;;){
-      /*<<list.ml:535:2>>*/ if(! l$0)
+     if(! l$0)
        /*<<list.ml:537:4>>*/ return 0 === n$0 ? 0 : 0 < n$0 ? -1 : 1 /*<<list.ml:541:33>>*/ ;
      var l$1 =  /*<<list.ml:535:2>>*/ l$0[2];
       /*<<list.ml:540:4>>*/ if(0 >= n$0)  /*<<list.ml:540:19>>*/ return 1;
@@ -4632,9 +4639,9 @@
      /*<<list.ml:543:15>>*/ return param ? 0 : 1 /*<<list.ml:545:19>>*/ ;
    }
    function equal(eq, l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:555:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:555:2>>*/ if(l1$0){
+     if(l1$0){
       if(l2$0){
        var
         l2$1 = l2$0[2],
@@ -4653,10 +4660,9 @@
     }
     /*<<list.ml:558:48>>*/ }
    function compare(cmp, l1, l2){
-    var l1$0 = l1, l2$0 = l2;
+    var l1$0 =  /*<<list.ml:561:2>>*/ l1, l2$0 = l2;
     for(;;){
-      /*<<list.ml:561:2>>*/ if(! l1$0)
-      return l2$0 ? -1 : 0 /*<<list.ml:568:26>>*/ ;
+     if(! l1$0) return l2$0 ? -1 : 0 /*<<list.ml:568:26>>*/ ;
      var l1$1 =  /*<<list.ml:561:2>>*/ l1$0[2], a1 = l1$0[1];
      if(! l2$0)  /*<<list.ml:564:16>>*/ return 1;
      var
@@ -4722,7 +4728,7 @@
     /*<<list.ml:586:9>>*/ }
    var
     Stdlib_List =
-      [0,
+       /*<<?>>*/ [0,
        length,
        compare_lengths,
        compare_length_with,
@@ -4790,7 +4796,7 @@
        of_seq];
    runtime.caml_register_global(17, Stdlib_List, "Stdlib__List");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Int
@@ -4811,18 +4817,18 @@
    function max(x, y){
      /*<<int.ml:42:18>>*/ return y <= x ? x : y /*<<int.ml:42:41>>*/ ;
    }
-   function to_string(x){
-     /*<<int.ml:52:18>>*/ return "" + x /*<<int.ml:52:35>>*/ ;
-   }
+   function to_string(x){ /*<<int.ml:52:35>>*/ return "" + x;}
    function seeded_hash(seed, x){
-     /*<<int.ml:56:25>>*/ return caml_hash(10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
+     /*<<int.ml:56:56>>*/ return  /*<<int.ml:56:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
    }
    function hash(x){
-     /*<<int.ml:57:13>>*/ return caml_hash(10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
+     /*<<int.ml:57:41>>*/ return  /*<<int.ml:57:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
    }
    var
     Stdlib_Int =
-      [0,
+       /*<<?>>*/ [0,
        0,
        1,
        -1,
@@ -4839,7 +4845,7 @@
        hash];
    runtime.caml_register_global(1, Stdlib_Int, "Stdlib__Int");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Bytes
@@ -4916,7 +4922,7 @@
     /*<<bytes.ml:51:3>>*/ }
    var
     empty =  /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
-    cst_String_sub_Bytes_sub = "String.sub / Bytes.sub",
+    cst_String_sub_Bytes_sub =  /*<<?>>*/ "String.sub / Bytes.sub",
     cst_Bytes_extend = "Bytes.extend",
     cst_String_fill_Bytes_fill = "String.fill / Bytes.fill",
     cst_Bytes_blit = "Bytes.blit",
@@ -4940,7 +4946,7 @@
      /*<<bytes.ml:58:25>>*/ return r;
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
-     /*<<bytes.ml:61:18>>*/ return  /*<<bytes.ml:61:43>>*/ caml_string_of_bytes
+     /*<<bytes.ml:61:43>>*/ return caml_string_of_bytes
             ( /*<<bytes.ml:61:35>>*/ copy(b)) /*<<bytes.ml:61:43>>*/ ;
    }
    function of_string(s){
@@ -4957,7 +4963,7 @@
             (Stdlib[1], cst_String_sub_Bytes_sub) /*<<bytes.ml:71:5>>*/ ;
    }
    function sub_string(b, ofs, len){
-     /*<<bytes.ml:73:27>>*/ return  /*<<bytes.ml:73:59>>*/ caml_string_of_bytes
+     /*<<bytes.ml:73:59>>*/ return caml_string_of_bytes
             ( /*<<bytes.ml:73:44>>*/ sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
    }
    function symbol(a, b){
@@ -5450,9 +5456,9 @@
     }
     /*<<bytes.ml:308:23>>*/ }
    function index_rec(s, lim, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<bytes.ml:312:2>>*/ i;
     for(;;){
-      /*<<bytes.ml:312:2>>*/ if(lim <= i$0)
+     if(lim <= i$0)
        /*<<bytes.ml:312:19>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
       /*<<bytes.ml:313:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:313:29>>*/ return i$0;
@@ -5465,9 +5471,9 @@
             (s, caml_ml_bytes_length(s), 0, c) /*<<bytes.ml:316:42>>*/ ;
    }
    function index_rec_opt(s, lim, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<bytes.ml:320:2>>*/ i;
     for(;;){
-      /*<<bytes.ml:320:2>>*/ if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
+     if(lim <= i$0)  /*<<bytes.ml:320:19>>*/ return 0;
       /*<<bytes.ml:321:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:321:29>>*/ return [0, i$0];
      var i$1 =  /*<<bytes.ml:321:41>>*/ i$0 + 1 | 0;
@@ -5493,9 +5499,9 @@
             (Stdlib[1], cst_String_index_from_opt_Byte) /*<<bytes.ml:338:25>>*/ ;
    }
    function rindex_rec(s, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<bytes.ml:342:2>>*/ i;
     for(;;){
-      /*<<bytes.ml:342:2>>*/ if(0 > i$0)
+     if(0 > i$0)
        /*<<bytes.ml:342:16>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
       /*<<bytes.ml:343:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:343:29>>*/ return i$0;
@@ -5514,9 +5520,9 @@
             (Stdlib[1], cst_String_rindex_from_Bytes_r) /*<<bytes.ml:353:20>>*/ ;
    }
    function rindex_rec_opt(s, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<bytes.ml:357:2>>*/ i;
     for(;;){
-      /*<<bytes.ml:357:2>>*/ if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
+     if(0 > i$0)  /*<<bytes.ml:357:16>>*/ return 0;
       /*<<bytes.ml:358:2>>*/ if(caml_bytes_unsafe_get(s, i$0) === c)
        /*<<bytes.ml:358:29>>*/ return [0, i$0];
      var i$1 =  /*<<bytes.ml:358:41>>*/ i$0 - 1 | 0;
@@ -5569,7 +5575,8 @@
    }
    var
     compare =  /*<<bytes.ml:53:20>>*/ runtime.caml_bytes_compare,
-    cst_Bytes_of_seq_cannot_grow_b = "Bytes.of_seq: cannot grow bytes";
+    cst_Bytes_of_seq_cannot_grow_b =
+       /*<<?>>*/ "Bytes.of_seq: cannot grow bytes";
    function split_on_char(sep, s){
     var
      r =  /*<<bytes.ml:398:2>>*/ [0, 0],
@@ -5790,7 +5797,7 @@
     set_uint8 =  /*<<bytes.ml:53:20>>*/ caml_bytes_set,
     set_uint16_ne = caml_bytes_set16,
     dec_invalid = Stdlib_Uchar[22],
-    _a_ = [0, cst_bytes_ml, 679, 9],
+    _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,
     cst_index_out_of_bounds$0 = cst_index_out_of_bounds$3,
@@ -6482,14 +6489,14 @@
     bts = Stdlib_Bytes[44],
     bos = Stdlib_Bytes[45];
    function make(n, c){
-     /*<<string.ml:36:2>>*/ return  /*<<string.ml:36:12>>*/ caml_call1
+     /*<<string.ml:36:12>>*/ return caml_call1
             (bts,  /*<<string.ml:36:2>>*/ caml_call2(Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
    }
    function init(n, f){
-     /*<<string.ml:38:2>>*/ return  /*<<string.ml:38:12>>*/ caml_call1
+     /*<<string.ml:38:12>>*/ return caml_call1
             (bts,  /*<<string.ml:38:2>>*/ caml_call2(Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
    }
-   var of_bytes = Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
+   var of_bytes =  /*<<?>>*/ Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
     var _X_ =  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
      /*<<string.ml:43:23>>*/ return caml_call1
@@ -6497,7 +6504,9 @@
               /*<<string.ml:43:2>>*/ caml_call3
               (Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
    }
-   var blit = Stdlib_Bytes[12], cst_String_concat = "String.concat";
+   var
+    blit =  /*<<?>>*/ Stdlib_Bytes[12],
+    cst_String_concat = "String.concat";
    function concat(sep, l){
      /*<<string.ml:63:11>>*/ if(! l)  /*<<string.ml:64:10>>*/ return cst;
     var seplen =  /*<<string.ml:65:9>>*/ caml_ml_string_length(sep);
@@ -6564,7 +6573,7 @@
     }
    }
    var
-    cat = Stdlib[28],
+    cat =  /*<<?>>*/ Stdlib[28],
     cst_String_index_from_Bytes_in = "String.index_from / Bytes.index_from",
     cst_String_index_from_opt_Byte =
       "String.index_from_opt / Bytes.index_from_opt",
@@ -6643,7 +6652,7 @@
      /*<<string.ml:99:9>>*/ return 0;
     /*<<string.ml:99:14>>*/ }
    function trim(s){
-     /*<<string.ml:102:2>>*/ if(s === cst$0)
+     /*<<string.ml:102:11>>*/ if(s === cst$0)
       /*<<string.ml:102:17>>*/ return s;
      /*<<string.ml:103:35>>*/ if
      (!
@@ -6665,9 +6674,9 @@
             (bts,  /*<<string.ml:111:6>>*/ caml_call1(Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
    }
    function index_rec(s, lim, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<string.ml:115:2>>*/ i;
     for(;;){
-      /*<<string.ml:115:2>>*/ if(lim <= i$0)
+     if(lim <= i$0)
        /*<<string.ml:115:19>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
       /*<<string.ml:116:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
@@ -6681,10 +6690,9 @@
             (s, caml_ml_string_length(s), 0, c) /*<<string.ml:119:42>>*/ ;
    }
    function index_rec_opt(s, lim, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<string.ml:123:2>>*/ i;
     for(;;){
-      /*<<string.ml:123:2>>*/ if(lim <= i$0)
-       /*<<string.ml:123:19>>*/ return 0;
+     if(lim <= i$0)  /*<<string.ml:123:19>>*/ return 0;
       /*<<string.ml:124:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:124:29>>*/ return [0, i$0];
      var i$1 =  /*<<string.ml:124:41>>*/ i$0 + 1 | 0;
@@ -6710,9 +6718,9 @@
             (Stdlib[1], cst_String_index_from_opt_Byte) /*<<string.ml:141:25>>*/ ;
    }
    function rindex_rec(s, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<string.ml:145:2>>*/ i;
     for(;;){
-      /*<<string.ml:145:2>>*/ if(0 > i$0)
+     if(0 > i$0)
        /*<<string.ml:145:16>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[8], 1);
       /*<<string.ml:146:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
@@ -6732,9 +6740,9 @@
             (Stdlib[1], cst_String_rindex_from_Bytes_r) /*<<string.ml:156:20>>*/ ;
    }
    function rindex_rec_opt(s, i, c){
-    var i$0 = i;
+    var i$0 =  /*<<string.ml:160:2>>*/ i;
     for(;;){
-      /*<<string.ml:160:2>>*/ if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
+     if(0 > i$0)  /*<<string.ml:160:16>>*/ return 0;
       /*<<string.ml:161:2>>*/ if(caml_string_unsafe_get(s, i$0) === c)
        /*<<string.ml:161:29>>*/ return [0, i$0];
      var i$1 =  /*<<string.ml:161:41>>*/ i$0 - 1 | 0;
@@ -6842,7 +6850,8 @@
     }
     /*<<string.ml:219:23>>*/ }
    function hash(x){
-     /*<<string.ml:222:13>>*/ return caml_string_hash(0, x) /*<<string.ml:222:28>>*/ ;
+     /*<<string.ml:222:28>>*/ return  /*<<string.ml:222:13>>*/ caml_string_hash
+            (0, x) /*<<string.ml:222:28>>*/ ;
    }
    function split_on_char(sep, s){
     var
@@ -6870,7 +6879,7 @@
              /*<<string.ml:234:2>>*/ sub(s, 0, j[1]),
             _t_] /*<<string.ml:234:12>>*/ ;
     /*<<string.ml:234:18>>*/ }
-   var compare = runtime.caml_string_compare;
+   var compare =  /*<<?>>*/ runtime.caml_string_compare;
    function to_seq(s){
     var _r_ =  /*<<string.ml:243:15>>*/ caml_call1(bos, s);
      /*<<string.ml:243:20>>*/ return caml_call1(Stdlib_Bytes[47], _r_) /*<<string.ml:243:32>>*/ ;
@@ -6880,7 +6889,7 @@
      /*<<string.ml:245:21>>*/ return caml_call1(Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
    }
    function of_seq(g){
-     /*<<string.ml:247:15>>*/ return  /*<<string.ml:247:25>>*/ caml_call1
+     /*<<string.ml:247:25>>*/ return caml_call1
             (bts,  /*<<string.ml:247:15>>*/ caml_call1(Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
    }
    function get_utf_8_uchar(s, i){
@@ -6949,7 +6958,7 @@
    }
    var
     Stdlib_String =
-      [0,
+       /*<<?>>*/ [0,
        make,
        init,
        empty,
@@ -7016,7 +7025,7 @@
        get_int64_le];
    runtime.caml_register_global(12, Stdlib_String, "Stdlib__String");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Unit
@@ -7032,10 +7041,10 @@
    function to_string(param){
      /*<<unit.ml:20:19>>*/ return cst;
     /*<<unit.ml:20:23>>*/ }
-   var Stdlib_Unit = [0, equal, compare, to_string];
+   var Stdlib_Unit =  /*<<?>>*/ [0, equal, compare, to_string];
    runtime.caml_register_global(1, Stdlib_Unit, "Stdlib__Unit");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Marshal
@@ -7068,7 +7077,7 @@
             (Stdlib[1], cst_Marshal_to_buffer_substrin) /*<<marshal.ml:36:44>>*/ ;
    }
    var
-    cst_Marshal_data_size = "Marshal.data_size",
+    cst_Marshal_data_size =  /*<<?>>*/ "Marshal.data_size",
     cst_Marshal_from_bytes = cst_Marshal_from_bytes$1,
     cst_Marshal_from_bytes$0 = cst_Marshal_from_bytes$1;
    function data_size(buff, ofs){
@@ -7080,7 +7089,7 @@
             (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
    }
    function total_size(buff, ofs){
-     /*<<marshal.ml:53:26>>*/ return 16
+     /*<<marshal.ml:53:58>>*/ return 16
            +  /*<<marshal.ml:53:40>>*/ data_size(buff, ofs)
            | 0 /*<<marshal.ml:53:58>>*/ ;
    }
@@ -7101,13 +7110,13 @@
             (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
    }
    function from_string(buff, ofs){
-     /*<<marshal.ml:68:2>>*/ return  /*<<marshal.ml:68:42>>*/ from_bytes
+     /*<<marshal.ml:68:42>>*/ return from_bytes
             ( /*<<marshal.ml:68:13>>*/ caml_call1(Stdlib_Bytes[45], buff),
              ofs) /*<<marshal.ml:68:46>>*/ ;
    }
    var
     Stdlib_Marshal =
-      [0,
+       /*<<?>>*/ [0,
        runtime.caml_output_value,
        to_buffer,
        runtime.caml_input_value,
@@ -7118,7 +7127,7 @@
        total_size];
    runtime.caml_register_global(6, Stdlib_Marshal, "Stdlib__Marshal");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Array
@@ -7431,10 +7440,9 @@
     }
     /*<<array.ml:172:26>>*/ }
    function list_length(accu, param){
-    var accu$0 = accu, param$0 = param;
+    var accu$0 =  /*<<array.ml:175:20>>*/ accu, param$0 = param;
     for(;;){
-      /*<<array.ml:175:20>>*/ if(! param$0)
-       /*<<array.ml:176:10>>*/ return accu$0;
+     if(! param$0)  /*<<array.ml:176:10>>*/ return accu$0;
      var
       t =  /*<<array.ml:175:20>>*/ param$0[2],
       accu$1 =  /*<<array.ml:177:12>>*/ accu$0 + 1 | 0;
@@ -7653,7 +7661,7 @@
     }
     /*<<array.ml:307:8>>*/ }
    function split(x){
-     /*<<array.ml:310:2>>*/ if
+     /*<<array.ml:310:13>>*/ if
      ( /*<<array.ml:310:5>>*/ runtime.caml_equal(x, [0]))
       /*<<array.ml:310:19>>*/ return [0, [0], [0]];
     var
@@ -7704,7 +7712,8 @@
      /*<<array.ml:334:4>>*/ return x;
     /*<<array.ml:335:5>>*/ }
    var
-    Bottom = [248, "Stdlib.Array.Bottom", runtime.caml_fresh_oo_id(0)],
+    Bottom =
+       /*<<?>>*/ [248, "Stdlib.Array.Bottom", runtime.caml_fresh_oo_id(0)],
     _a_ = [0, "array.ml", 369, 4];
    function sort(cmp, a){
     function maxson(l, i){
@@ -8039,7 +8048,7 @@
     /*<<array.ml:485:15>>*/ }
    var
     Stdlib_Array =
-      [0,
+       /*<<?>>*/ [0,
        init,
        make_matrix,
        init_matrix,
@@ -8084,7 +8093,7 @@
        Floatarray];
    runtime.caml_register_global(16, Stdlib_Array, "Stdlib__Array");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Float
@@ -8134,10 +8143,10 @@
        /*<<float.ml:38:20>>*/ runtime.caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(1, 0, 32752));
    function is_finite(x){
-     /*<<float.ml:39:27>>*/ return x - x === 0. ? 1 : 0 /*<<float.ml:39:33>>*/ ;
+     /*<<float.ml:39:33>>*/ return x - x === 0. ? 1 : 0;
     /*<<float.ml:39:38>>*/ }
    function is_infinite(x){
-     /*<<float.ml:40:29>>*/ return 1. / x === 0. ? 1 : 0 /*<<float.ml:40:36>>*/ ;
+     /*<<float.ml:40:36>>*/ return 1. / x === 0. ? 1 : 0;
     /*<<float.ml:40:41>>*/ }
    function is_nan(x){
      /*<<float.ml:41:24>>*/ return x !== x ? 1 : 0;
@@ -8148,7 +8157,7 @@
     epsilon = Stdlib[27],
     of_string_opt = Stdlib[36],
     to_string = Stdlib[35],
-    cst_Float_Array_init = "Float.Array.init",
+    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",
@@ -8171,10 +8180,12 @@
      /*<<float.ml:116:30>>*/ return _aX_ ? is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
    }
    function succ(x){
-     /*<<float.ml:121:13>>*/ return caml_nextafter_float(x, infinity) /*<<float.ml:121:34>>*/ ;
+     /*<<float.ml:121:34>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
+            (x, infinity) /*<<float.ml:121:34>>*/ ;
    }
    function pred(x){
-     /*<<float.ml:122:13>>*/ return caml_nextafter_float(x, neg_infinity) /*<<float.ml:122:38>>*/ ;
+     /*<<float.ml:122:38>>*/ return  /*<<float.ml:122:13>>*/ caml_nextafter_float
+            (x, neg_infinity) /*<<float.ml:122:38>>*/ ;
    }
    function equal(x, y){
      /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
@@ -8204,7 +8215,7 @@
      /*<<float.ml:145:15>>*/ return x !== x ? x : y /*<<float.ml:146:32>>*/ ;
    }
    function min_max(x, y){
-     /*<<float.ml:149:2>>*/ if(x === x && y === y){
+     /*<<float.ml:149:13>>*/ if(x === x && y === y){
      a:
      if(! (x < y)){
        /*<<float.ml:150:35>>*/ if
@@ -8243,7 +8254,7 @@
      /*<<float.ml:159:15>>*/ return y !== y ? x : y /*<<float.ml:160:32>>*/ ;
    }
    function min_max_num(x, y){
-     /*<<float.ml:163:2>>*/ if(x !== x)
+     /*<<float.ml:163:13>>*/ if(x !== x)
       /*<<float.ml:163:19>>*/ return [0, y, y];
      /*<<float.ml:164:18>>*/ if(y !== y)
       /*<<float.ml:164:24>>*/ return [0, x, x];
@@ -8259,10 +8270,12 @@
      /*<<float.ml:165:56>>*/ return [0, x, y];
     /*<<float.ml:165:72>>*/ }
    function seeded_hash(seed, x){
-     /*<<float.ml:169:25>>*/ return caml_hash(10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
+     /*<<float.ml:169:56>>*/ return  /*<<float.ml:169:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
    }
    function hash(x){
-     /*<<float.ml:170:13>>*/ return caml_hash(10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
+     /*<<float.ml:170:41>>*/ return  /*<<float.ml:170:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
    }
    function unsafe_fill(a, ofs, len, v){
     var _aV_ =  /*<<float.ml:184:4>>*/ (ofs + len | 0) - 1 | 0;
@@ -8446,7 +8459,7 @@
             (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
    }
    function to_list(a){
-     /*<<float.ml:285:4>>*/ return  /*<<float.ml:285:39>>*/ caml_call2
+     /*<<float.ml:285:39>>*/ return caml_call2
             (Stdlib_List[11],
              a.length - 1,
              function(_aE_){ /*<<?>>*/ return a[1 + _aE_];}) /*<<float.ml:285:39>>*/ ;
@@ -8734,7 +8747,7 @@
        /*<<float.ml:38:60>>*/ [248,
        "Stdlib.Float.Array.Bottom",
        runtime.caml_fresh_oo_id(0)],
-    _b_ = [0, cst_float_ml, 484, 6];
+    _b_ =  /*<<?>>*/ [0, cst_float_ml, 484, 6];
    function sort(cmp, a){
     function maxson(l, i){
      var
@@ -9253,23 +9266,17 @@
     Assert_failure = global_data.Assert_failure,
     zero = 0,
     one = 1;
-   function succ(n){
-     /*<<int32.ml:48:13>>*/ return n + 1 | 0 /*<<int32.ml:48:21>>*/ ;
-   }
-   function pred(n){
-     /*<<int32.ml:49:13>>*/ return n - 1 | 0 /*<<int32.ml:49:21>>*/ ;
-   }
+   function succ(n){ /*<<int32.ml:48:21>>*/ return n + 1 | 0;}
+   function pred(n){ /*<<int32.ml:49:21>>*/ return n - 1 | 0;}
    function abs(n){
-     /*<<int32.ml:50:12>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
+     /*<<int32.ml:50:22>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
              (n, 0)
             ? n
             : - n | 0 /*<<int32.ml:50:40>>*/ ;
    }
-   function lognot(n){
-     /*<<int32.ml:53:15>>*/ return n ^ -1 /*<<int32.ml:53:29>>*/ ;
-   }
+   function lognot(n){ /*<<int32.ml:53:29>>*/ return n ^ -1;}
    var
-    _a_ = Stdlib_Sys[9],
+    _a_ =  /*<<?>>*/ Stdlib_Sys[9],
     _b_ = [0, "int32.ml", 69, 6],
     minus_one = -1,
     min_int = -2147483648,
@@ -9279,14 +9286,14 @@
      max_int$0 =  /*<<int32.ml:58:6>>*/ Stdlib[19],
      unsigned_to_int =
         /*<<int32.ml:59:6>>*/ function(n){
-         /*<<int32.ml:60:8>>*/ if
+         /*<<int32.ml:60:18>>*/ if
          ( /*<<int32.ml:60:11>>*/ caml_greaterequal(n, 0)
           &&  /*<<int32.ml:60:22>>*/ caml_lessequal(n, max_int$0))
           /*<<int32.ml:61:10>>*/ return [0, n];
          /*<<int32.ml:63:10>>*/ return 0;
         /*<<int32.ml:63:14>>*/ };
    else{
-    if(64 !== _a_)
+     /*<<?>>*/ if(64 !== _a_)
       /*<<int32.ml:69:6>>*/ throw caml_maybe_attach_backtrace
             ([0, Assert_failure, _b_], 1);
     var
@@ -9296,7 +9303,8 @@
         /*<<int32.ml:67:40>>*/ };
    }
    function to_string(n){
-     /*<<int32.ml:72:18>>*/ return runtime.caml_format_int("%d", n) /*<<int32.ml:72:31>>*/ ;
+     /*<<int32.ml:72:31>>*/ return  /*<<int32.ml:72:18>>*/ runtime.caml_format_int
+            ("%d", n) /*<<int32.ml:72:31>>*/ ;
    }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
@@ -9312,7 +9320,7 @@
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<int32.ml:78:24>>*/ }
-   var compare = caml_int_compare, equal = runtime.caml_equal;
+   var compare =  /*<<?>>*/ caml_int_compare, equal = runtime.caml_equal;
    function unsigned_compare(n, m){
     var
      y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
@@ -9321,23 +9329,23 @@
             (x, y) /*<<int32.ml:86:41>>*/ ;
    }
    function unsigned_lt(n, m){
-     /*<<int32.ml:89:2>>*/ return caml_lessthan
+     /*<<int32.ml:89:31>>*/ return  /*<<int32.ml:89:2>>*/ caml_lessthan
             (n + 2147483648 | 0, m + 2147483648 | 0) /*<<int32.ml:89:31>>*/ ;
    }
    function min(x, y){
-     /*<<int32.ml:91:18>>*/ return  /*<<int32.ml:91:21>>*/ caml_lessequal
+     /*<<int32.ml:91:27>>*/ return  /*<<int32.ml:91:21>>*/ caml_lessequal
              (x, y)
             ? x
             : y /*<<int32.ml:91:41>>*/ ;
    }
    function max(x, y){
-     /*<<int32.ml:92:18>>*/ return  /*<<int32.ml:92:21>>*/ caml_greaterequal
+     /*<<int32.ml:92:27>>*/ return  /*<<int32.ml:92:21>>*/ caml_greaterequal
              (x, y)
             ? x
             : y /*<<int32.ml:92:41>>*/ ;
    }
    function unsigned_div(n, d){
-     /*<<int32.ml:98:2>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
+     /*<<int32.ml:98:13>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
       /*<<int32.ml:99:22>>*/ return  /*<<int32.ml:99:7>>*/ unsigned_lt(n, d)
              ? zero
              : one /*<<int32.ml:103:41>>*/ ;
@@ -9354,21 +9362,23 @@
             : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
    }
    function unsigned_rem(n, d){
-     /*<<int32.ml:106:2>>*/ return n
+     /*<<int32.ml:106:34>>*/ return n
            -
              /*<<int32.ml:106:8>>*/ caml_mul
              ( /*<<int32.ml:106:13>>*/ unsigned_div(n, d), d)
            | 0 /*<<int32.ml:106:34>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<int32.ml:110:25>>*/ return caml_hash(10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
+     /*<<int32.ml:110:56>>*/ return  /*<<int32.ml:110:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
    }
    function hash(x){
-     /*<<int32.ml:111:13>>*/ return caml_hash(10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
+     /*<<int32.ml:111:41>>*/ return  /*<<int32.ml:111:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
    }
    var
     Stdlib_Int32 =
-      [0,
+       /*<<?>>*/ [0,
        zero,
        one,
        minus_one,
@@ -9392,7 +9402,7 @@
        hash];
    runtime.caml_register_global(15, Stdlib_Int32, "Stdlib__Int32");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Int64
@@ -9424,33 +9434,37 @@
     _c_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
     _d_ = runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 65535);
    function succ(n){
-     /*<<int64.ml:46:13>>*/ return caml_int64_add(n, _a_) /*<<int64.ml:46:21>>*/ ;
+     /*<<int64.ml:46:21>>*/ return  /*<<int64.ml:46:13>>*/ caml_int64_add
+            (n, _a_) /*<<int64.ml:46:21>>*/ ;
    }
    function pred(n){
-     /*<<int64.ml:47:13>>*/ return caml_int64_sub(n, _b_) /*<<int64.ml:47:21>>*/ ;
+     /*<<int64.ml:47:21>>*/ return  /*<<int64.ml:47:13>>*/ caml_int64_sub
+            (n, _b_) /*<<int64.ml:47:21>>*/ ;
    }
    function abs(n){
-     /*<<int64.ml:48:12>>*/ return  /*<<int64.ml:48:15>>*/ caml_greaterequal
+     /*<<int64.ml:48:22>>*/ return  /*<<int64.ml:48:15>>*/ caml_greaterequal
              (n, _c_)
             ? n
             :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg(n) /*<<int64.ml:48:40>>*/ ;
    }
    function lognot(n){
-     /*<<int64.ml:51:15>>*/ return runtime.caml_int64_xor(n, _d_) /*<<int64.ml:51:29>>*/ ;
+     /*<<int64.ml:51:29>>*/ return  /*<<int64.ml:51:15>>*/ runtime.caml_int64_xor
+            (n, _d_) /*<<int64.ml:51:29>>*/ ;
    }
    var
     max_int$0 =
        /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32(Stdlib[19]),
-    _e_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
+    _e_ =  /*<<?>>*/ runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
    function unsigned_to_int(n){
-     /*<<int64.ml:56:4>>*/ if
+     /*<<int64.ml:56:14>>*/ if
      ( /*<<int64.ml:56:7>>*/ caml_greaterequal(n, _e_)
       &&  /*<<int64.ml:56:18>>*/ caml_lessequal(n, max_int$0))
       /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)];
      /*<<int64.ml:59:6>>*/ return 0;
     /*<<int64.ml:59:10>>*/ }
    function to_string(n){
-     /*<<int64.ml:62:18>>*/ return runtime.caml_int64_format("%d", n) /*<<int64.ml:62:31>>*/ ;
+     /*<<int64.ml:62:31>>*/ return  /*<<int64.ml:62:18>>*/ runtime.caml_int64_format
+            ("%d", n) /*<<int64.ml:62:31>>*/ ;
    }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
@@ -9467,7 +9481,8 @@
     }
     /*<<int64.ml:68:24>>*/ }
    function compare(x, y){
-     /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:79:46>>*/ ;
+     /*<<int64.ml:79:46>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
+            (x, y) /*<<int64.ml:79:46>>*/ ;
    }
    var equal =  /*<<int64.ml:55:2>>*/ runtime.caml_equal;
    function unsigned_compare(n, m){
@@ -9478,24 +9493,24 @@
             (x, y) /*<<int64.ml:83:41>>*/ ;
    }
    function unsigned_lt(n, m){
-     /*<<int64.ml:86:2>>*/ return caml_lessthan
+     /*<<int64.ml:86:31>>*/ return  /*<<int64.ml:86:2>>*/ caml_lessthan
             (caml_int64_sub(n, min_int),
               /*<<int64.ml:86:18>>*/ caml_int64_sub(m, min_int)) /*<<int64.ml:86:31>>*/ ;
    }
    function min(x, y){
-     /*<<int64.ml:88:18>>*/ return  /*<<int64.ml:88:21>>*/ caml_lessequal
+     /*<<int64.ml:88:27>>*/ return  /*<<int64.ml:88:21>>*/ caml_lessequal
              (x, y)
             ? x
             : y /*<<int64.ml:88:41>>*/ ;
    }
    function max(x, y){
-     /*<<int64.ml:89:18>>*/ return  /*<<int64.ml:89:21>>*/ caml_greaterequal
+     /*<<int64.ml:89:27>>*/ return  /*<<int64.ml:89:21>>*/ caml_greaterequal
              (x, y)
             ? x
             : y /*<<int64.ml:89:41>>*/ ;
    }
    function unsigned_div(n, d){
-     /*<<int64.ml:95:2>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
+     /*<<int64.ml:95:13>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
       /*<<int64.ml:96:22>>*/ return  /*<<int64.ml:96:7>>*/ unsigned_lt(n, d)
              ? zero
              : one /*<<int64.ml:100:41>>*/ ;
@@ -9515,16 +9530,18 @@
             :  /*<<int64.ml:46:13>>*/ caml_int64_add(q, _a_) /*<<int64.ml:100:41>>*/ ;
    }
    function unsigned_rem(n, d){
-     /*<<int64.ml:103:2>>*/ return caml_int64_sub
+     /*<<int64.ml:103:34>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
             (n,
               /*<<int64.ml:103:8>>*/ caml_int64_mul
               ( /*<<int64.ml:103:13>>*/ unsigned_div(n, d), d)) /*<<int64.ml:103:34>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<int64.ml:107:25>>*/ return caml_hash(10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
+     /*<<int64.ml:107:56>>*/ return  /*<<int64.ml:107:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
    }
    function hash(x){
-     /*<<int64.ml:108:13>>*/ return caml_hash(10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
+     /*<<int64.ml:108:41>>*/ return  /*<<int64.ml:108:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
    }
    var
     Stdlib_Int64 =
@@ -9575,35 +9592,30 @@
     Stdlib_Sys = global_data.Stdlib__Sys,
     zero = 0,
     one = 1;
-   function succ(n){
-     /*<<nativeint.ml:44:13>>*/ return n + 1 | 0 /*<<nativeint.ml:44:21>>*/ ;
-   }
-   function pred(n){
-     /*<<nativeint.ml:45:13>>*/ return n - 1 | 0 /*<<nativeint.ml:45:21>>*/ ;
-   }
+   function succ(n){ /*<<nativeint.ml:44:21>>*/ return n + 1 | 0;}
+   function pred(n){ /*<<nativeint.ml:45:21>>*/ return n - 1 | 0;}
    function abs(n){
-     /*<<nativeint.ml:46:12>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
+     /*<<nativeint.ml:46:22>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
              (n, 0)
             ? n
             : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
    }
    var
-    size = Stdlib_Sys[9],
+    size =  /*<<?>>*/ Stdlib_Sys[9],
     min_int =  /*<<nativeint.ml:48:14>>*/ 1 << (size - 1 | 0),
     max_int =  /*<<nativeint.ml:49:14>>*/ min_int - 1 | 0;
-   function lognot(n){
-     /*<<nativeint.ml:50:15>>*/ return n ^ -1 /*<<nativeint.ml:50:29>>*/ ;
-   }
+   function lognot(n){ /*<<nativeint.ml:50:29>>*/ return n ^ -1;}
    var max_int$0 =  /*<<nativeint.ml:49:28>>*/ Stdlib[19];
    function unsigned_to_int(n){
-     /*<<nativeint.ml:55:4>>*/ if
+     /*<<nativeint.ml:55:14>>*/ if
      ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal(n, 0)
       &&  /*<<nativeint.ml:55:18>>*/ caml_lessequal(n, max_int$0))
       /*<<nativeint.ml:56:6>>*/ return [0, n];
      /*<<nativeint.ml:58:6>>*/ return 0;
     /*<<nativeint.ml:58:10>>*/ }
    function to_string(n){
-     /*<<nativeint.ml:61:18>>*/ return runtime.caml_format_int("%d", n) /*<<nativeint.ml:61:31>>*/ ;
+     /*<<nativeint.ml:61:31>>*/ return  /*<<nativeint.ml:61:18>>*/ runtime.caml_format_int
+            ("%d", n) /*<<nativeint.ml:61:31>>*/ ;
    }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
@@ -9621,7 +9633,7 @@
     /*<<nativeint.ml:67:24>>*/ }
    var compare =  /*<<nativeint.ml:54:2>>*/ caml_int_compare;
    function equal(x, y){
-     /*<<nativeint.ml:72:26>>*/ return 0
+     /*<<nativeint.ml:72:37>>*/ return 0
             ===  /*<<nativeint.ml:71:28>>*/ caml_int_compare(x, y)
             ? 1
             : 0 /*<<nativeint.ml:72:37>>*/ ;
@@ -9634,23 +9646,23 @@
             (x, y) /*<<nativeint.ml:75:41>>*/ ;
    }
    function unsigned_lt(n, m){
-     /*<<nativeint.ml:78:2>>*/ return caml_lessthan
+     /*<<nativeint.ml:78:31>>*/ return  /*<<nativeint.ml:78:2>>*/ caml_lessthan
             (n - min_int | 0, m - min_int | 0) /*<<nativeint.ml:78:31>>*/ ;
    }
    function min(x, y){
-     /*<<nativeint.ml:80:18>>*/ return  /*<<nativeint.ml:80:21>>*/ caml_lessequal
+     /*<<nativeint.ml:80:27>>*/ return  /*<<nativeint.ml:80:21>>*/ caml_lessequal
              (x, y)
             ? x
             : y /*<<nativeint.ml:80:41>>*/ ;
    }
    function max(x, y){
-     /*<<nativeint.ml:81:18>>*/ return  /*<<nativeint.ml:81:21>>*/ caml_greaterequal
+     /*<<nativeint.ml:81:27>>*/ return  /*<<nativeint.ml:81:21>>*/ caml_greaterequal
              (x, y)
             ? x
             : y /*<<nativeint.ml:81:41>>*/ ;
    }
    function unsigned_div(n, d){
-     /*<<nativeint.ml:87:2>>*/ if
+     /*<<nativeint.ml:87:13>>*/ if
      ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
       /*<<nativeint.ml:88:22>>*/ return  /*<<nativeint.ml:88:7>>*/ unsigned_lt
               (n, d)
@@ -9671,17 +9683,19 @@
             : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
    }
    function unsigned_rem(n, d){
-     /*<<nativeint.ml:95:2>>*/ return n
+     /*<<nativeint.ml:95:34>>*/ return n
            -
              /*<<nativeint.ml:95:8>>*/ caml_mul
              ( /*<<nativeint.ml:95:13>>*/ unsigned_div(n, d), d)
            | 0 /*<<nativeint.ml:95:34>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<nativeint.ml:99:25>>*/ return caml_hash(10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
+     /*<<nativeint.ml:99:56>>*/ return  /*<<nativeint.ml:99:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
    }
    function hash(x){
-     /*<<nativeint.ml:100:13>>*/ return caml_hash(10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
+     /*<<nativeint.ml:100:41>>*/ return  /*<<nativeint.ml:100:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
    }
    var
     Stdlib_Nativeint =
@@ -9938,7 +9952,8 @@
              (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:52>>*/ ;
     /*<<lexing.ml:204:5>>*/ }
    function sub_lexeme_char(lexbuf, i){
-     /*<<lexing.ml:206:31>>*/ return caml_bytes_get(lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
+     /*<<lexing.ml:206:60>>*/ return  /*<<lexing.ml:206:31>>*/ caml_bytes_get
+            (lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
    }
    function sub_lexeme_char_opt(lexbuf, i){
      /*<<lexing.ml:209:2>>*/ return 0 <= i
@@ -9946,7 +9961,7 @@
             : 0 /*<<lexing.ml:212:8>>*/ ;
    }
    function lexeme_char(lexbuf, i){
-     /*<<lexing.ml:216:2>>*/ return caml_bytes_get
+     /*<<lexing.ml:216:56>>*/ return  /*<<lexing.ml:216:2>>*/ caml_bytes_get
             (lexbuf[2], lexbuf[5] + i | 0) /*<<lexing.ml:216:56>>*/ ;
    }
    function lexeme_start(lexbuf){
@@ -9983,7 +9998,7 @@
     /*<<lexing.ml:243:25>>*/ }
    var
     Stdlib_Lexing =
-      [0,
+       /*<<?>>*/ [0,
        dummy_pos,
        from_channel,
        from_string,
@@ -10007,7 +10022,7 @@
        new_engine];
    runtime.caml_register_global(7, Stdlib_Lexing, "Stdlib__Lexing");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Parsing
@@ -10062,7 +10077,7 @@
        0,
        0,
        0],
-    dummy = 0;
+    dummy =  /*<<?>>*/ 0;
    function grow_stacks(param){
     var
      oldsize =  /*<<parsing.ml:108:2>>*/ env[5],
@@ -10099,7 +10114,7 @@
        function(param){
          /*<<parsing.ml:128:52>>*/ return 0;
         /*<<parsing.ml:128:57>>*/ }],
-    cst_syntax_error = "syntax error";
+    cst_syntax_error =  /*<<?>>*/ "syntax error";
    function yyparse(tables, start, lexer, lexbuf){
     var
      init_asp =  /*<<parsing.ml:154:2>>*/ env[11],
@@ -10181,7 +10196,7 @@
      }
       /*<<parsing.ml:179:8>>*/ current_lookahead_fun[1] =
       function(tok){
-        /*<<parsing.ml:181:12>>*/ if
+        /*<<parsing.ml:181:31>>*/ if
         (!  /*<<parsing.ml:181:15>>*/ caml_call1(Stdlib_Obj[1], tok))
          /*<<parsing.ml:183:52>>*/ return  /*<<parsing.ml:183:17>>*/ caml_check_bound
                   (tables[2], tok)
@@ -10246,16 +10261,24 @@
             [1 + _a_] /*<<parsing.ml:202:69>>*/ ;
    }
    function symbol_start(param){
-     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4] /*<<parsing.ml:204:43>>*/ ;
+     /*<<parsing.ml:204:43>>*/ return  /*<<parsing.ml:204:22>>*/ symbol_start_pos
+             (0)
+            [4] /*<<parsing.ml:204:43>>*/ ;
     /*<<parsing.ml:204:52>>*/ }
    function symbol_end(param){
-     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4] /*<<parsing.ml:205:39>>*/ ;
+     /*<<parsing.ml:205:39>>*/ return  /*<<parsing.ml:205:20>>*/ symbol_end_pos
+             (0)
+            [4] /*<<parsing.ml:205:39>>*/ ;
     /*<<parsing.ml:205:48>>*/ }
    function rhs_start(n){
-     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4] /*<<parsing.ml:206:35>>*/ ;
+     /*<<parsing.ml:206:35>>*/ return  /*<<parsing.ml:206:18>>*/ rhs_start_pos
+             (n)
+            [4] /*<<parsing.ml:206:35>>*/ ;
     /*<<parsing.ml:206:44>>*/ }
    function rhs_end(n){
-     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4] /*<<parsing.ml:207:31>>*/ ;
+     /*<<parsing.ml:207:31>>*/ return  /*<<parsing.ml:207:16>>*/ rhs_end_pos
+             (n)
+            [4] /*<<parsing.ml:207:31>>*/ ;
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
      /*<<parsing.ml:210:2>>*/ return caml_call1(current_lookahead_fun[1], tok) /*<<parsing.ml:210:40>>*/ ;
@@ -10462,9 +10485,9 @@
                    :  /*<<set.ml:173:10>>*/ create(l, v, r) /*<<set.ml:173:22>>*/ ;
         }
         function min_elt(param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:177:22>>*/ param;
          for(;;){
-           /*<<set.ml:177:22>>*/ if(! param$0)
+          if(! param$0)
             /*<<set.ml:178:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var l =  /*<<set.ml:177:22>>*/ param$0[1];
@@ -10473,19 +10496,18 @@
          }
          /*<<set.ml:180:28>>*/ }
         function min_elt_opt(param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:182:26>>*/ param;
          for(;;){
-           /*<<set.ml:182:26>>*/ if(! param$0)
-            /*<<set.ml:183:17>>*/ return 0;
+          if(! param$0)  /*<<set.ml:183:17>>*/ return 0;
           var l =  /*<<set.ml:182:26>>*/ param$0[1];
           if(! l){var v = param$0[2];  /*<<set.ml:184:28>>*/ return [0, v];}
            /*<<set.ml:185:19>>*/ param$0 = l;
          }
          /*<<set.ml:185:32>>*/ }
         function max_elt(param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:187:22>>*/ param;
          for(;;){
-           /*<<set.ml:187:22>>*/ if(! param$0)
+          if(! param$0)
             /*<<set.ml:188:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
            /*<<set.ml:187:22>>*/ if(! param$0[3]){
@@ -10497,10 +10519,9 @@
          }
          /*<<set.ml:190:28>>*/ }
         function max_elt_opt(param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:192:26>>*/ param;
          for(;;){
-           /*<<set.ml:192:26>>*/ if(! param$0)
-            /*<<set.ml:193:17>>*/ return 0;
+          if(! param$0)  /*<<set.ml:193:17>>*/ return 0;
            /*<<set.ml:192:26>>*/ if(! param$0[3]){
            var v = param$0[2];
             /*<<set.ml:194:28>>*/ return [0, v];
@@ -10559,15 +10580,14 @@
                  pres$0,
                   /*<<set.ml:237:57>>*/ join(rl, v, r)] /*<<set.ml:237:68>>*/ ;
          /*<<set.ml:239:69>>*/ }
-        var empty = 0;
+        var empty =  /*<<?>>*/ 0;
         function is_empty(param){
           /*<<set.ml:245:19>>*/ return param ? 0 : 1 /*<<set.ml:245:54>>*/ ;
         }
         function mem(x, param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:247:16>>*/ param;
          for(;;){
-           /*<<set.ml:247:16>>*/ if(! param$0)
-            /*<<set.ml:248:17>>*/ return 0;
+          if(! param$0)  /*<<set.ml:248:17>>*/ return 0;
           var
            r =  /*<<set.ml:247:16>>*/ param$0[3],
            v = param$0[2],
@@ -10684,14 +10704,14 @@
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
-                   /*<<set.ml:312:60>>*/ return  /*<<set.ml:312:72>>*/ join
+                   /*<<set.ml:312:72>>*/ return join
                           ( /*<<set.ml:312:65>>*/ rl(0), v, r) /*<<set.ml:312:76>>*/ ;
                  }] /*<<set.ml:312:35>>*/ ;
          /*<<set.ml:316:61>>*/ }
         function disjoint(s1, s2){
-         var s1$0 = s1, s2$0 = s2;
+         var s1$0 =  /*<<set.ml:319:6>>*/ s1, s2$0 = s2;
          for(;;){
-           /*<<set.ml:319:6>>*/ if(s1$0 && s2$0){
+          if(s1$0 && s2$0){
            var r1 = s1$0[3], v1 = s1$0[2], l1 = s1$0[1];
             /*<<set.ml:322:10>>*/ if(s1$0 === s2$0)
              /*<<set.ml:322:27>>*/ return 0;
@@ -10731,9 +10751,9 @@
                  ( /*<<set.ml:334:19>>*/ diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
         }
         function cons_enum(s, e){
-         var s$0 = s, e$0 = e;
+         var s$0 =  /*<<set.ml:341:6>>*/ s, e$0 = e;
          for(;;){
-           /*<<set.ml:341:6>>*/ if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
+          if(! s$0)  /*<<set.ml:342:17>>*/ return e$0;
           var
            r =  /*<<set.ml:341:6>>*/ s$0[3],
            v = s$0[2],
@@ -10770,12 +10790,15 @@
          }
          /*<<set.ml:357:55>>*/ }
         function equal(s1, s2){
-          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0 /*<<set.ml:360:19>>*/ ;
+          /*<<set.ml:360:19>>*/ return 0
+                 ===  /*<<set.ml:360:6>>*/ compare(s1, s2)
+                 ? 1
+                 : 0 /*<<set.ml:360:19>>*/ ;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
-         var s1$0 = s1, s2$0 = s2;
+         var s1$0 =  /*<<set.ml:363:6>>*/ s1, s2$0 = s2;
          for(;;){
-           /*<<set.ml:363:6>>*/ if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
+          if(! s1$0)  /*<<set.ml:365:10>>*/ return 1;
            /*<<set.ml:363:6>>*/ if(! s2$0)  /*<<set.ml:367:10>>*/ return 0;
           var
            r2 =  /*<<set.ml:363:6>>*/ s2$0[3],
@@ -10804,10 +10827,9 @@
          }
          /*<<set.ml:375:71>>*/ }
         function iter(f, param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:377:17>>*/ param;
          for(;;){
-           /*<<set.ml:377:17>>*/ if(! param$0)
-            /*<<set.ml:378:17>>*/ return 0;
+          if(! param$0)  /*<<set.ml:378:17>>*/ return 0;
           var
            r =  /*<<set.ml:377:17>>*/ param$0[3],
            v = param$0[2],
@@ -10818,10 +10840,9 @@
          }
          /*<<set.ml:379:48>>*/ }
         function fold(f, s, accu){
-         var s$0 = s, accu$0 = accu;
+         var s$0 =  /*<<set.ml:382:6>>*/ s, accu$0 = accu;
          for(;;){
-           /*<<set.ml:382:6>>*/ if(! s$0)
-            /*<<set.ml:383:17>>*/ return accu$0;
+          if(! s$0)  /*<<set.ml:383:17>>*/ return accu$0;
           var
            r =  /*<<set.ml:382:6>>*/ s$0[3],
            v = s$0[2],
@@ -10834,10 +10855,9 @@
          }
         }
         function for_all(p, param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:386:20>>*/ param;
          for(;;){
-           /*<<set.ml:386:20>>*/ if(! param$0)
-            /*<<set.ml:387:17>>*/ return 1;
+          if(! param$0)  /*<<set.ml:387:17>>*/ return 1;
           var
            r =  /*<<set.ml:386:20>>*/ param$0[3],
            v = param$0[2],
@@ -10854,10 +10874,9 @@
          }
          /*<<set.ml:388:58>>*/ }
         function exists(p, param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:390:19>>*/ param;
          for(;;){
-           /*<<set.ml:390:19>>*/ if(! param$0)
-            /*<<set.ml:391:17>>*/ return 0;
+          if(! param$0)  /*<<set.ml:391:17>>*/ return 0;
           var
            r =  /*<<set.ml:390:19>>*/ param$0[3],
            v = param$0[2],
@@ -10924,10 +10943,9 @@
                 | 0 /*<<set.ml:418:32>>*/ ;
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
-         var accu$0 = accu, param$0 = param;
+         var accu$0 =  /*<<set.ml:420:25>>*/ accu, param$0 = param;
          for(;;){
-           /*<<set.ml:420:25>>*/ if(! param$0)
-            /*<<set.ml:421:17>>*/ return accu$0;
+          if(! param$0)  /*<<set.ml:421:17>>*/ return accu$0;
           var
            r =  /*<<set.ml:420:25>>*/ param$0[3],
            v = param$0[2],
@@ -10944,9 +10962,9 @@
           /*<<set.ml:425:6>>*/ return elements_aux(0, s) /*<<set.ml:425:23>>*/ ;
         }
         function find(x, param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:431:17>>*/ param;
          for(;;){
-           /*<<set.ml:431:17>>*/ if(! param$0)
+          if(! param$0)
             /*<<set.ml:432:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -10960,9 +10978,9 @@
          }
          /*<<set.ml:436:46>>*/ }
         function find_first(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<set.ml:447:23>>*/ param$0;
          for(;;){
-           /*<<set.ml:447:23>>*/ if(! param$1)
+          if(! param$1)
             /*<<set.ml:449:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -10993,10 +11011,9 @@
          }
          /*<<set.ml:454:26>>*/ }
         function find_first_opt(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<set.ml:465:27>>*/ param$0;
          for(;;){
-           /*<<set.ml:465:27>>*/ if(! param$1)
-            /*<<set.ml:467:10>>*/ return 0;
+          if(! param$1)  /*<<set.ml:467:10>>*/ return 0;
           var
            r$0 =  /*<<set.ml:465:27>>*/ param$1[3],
            v0$1 = param$1[2],
@@ -11025,9 +11042,9 @@
          }
          /*<<set.ml:472:30>>*/ }
         function find_last(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<set.ml:483:22>>*/ param$0;
          for(;;){
-           /*<<set.ml:483:22>>*/ if(! param$1)
+          if(! param$1)
             /*<<set.ml:485:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -11058,10 +11075,9 @@
          }
          /*<<set.ml:490:25>>*/ }
         function find_last_opt(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<set.ml:501:26>>*/ param$0;
          for(;;){
-           /*<<set.ml:501:26>>*/ if(! param$1)
-            /*<<set.ml:503:10>>*/ return 0;
+          if(! param$1)  /*<<set.ml:503:10>>*/ return 0;
           var
            r$0 =  /*<<set.ml:501:26>>*/ param$1[3],
            v0$1 = param$1[2],
@@ -11090,10 +11106,9 @@
          }
          /*<<set.ml:508:29>>*/ }
         function find_opt(x, param){
-         var param$0 = param;
+         var param$0 =  /*<<set.ml:510:21>>*/ param;
          for(;;){
-           /*<<set.ml:510:21>>*/ if(! param$0)
-            /*<<set.ml:511:17>>*/ return 0;
+          if(! param$0)  /*<<set.ml:511:17>>*/ return 0;
           var
            r =  /*<<set.ml:510:21>>*/ param$0[3],
            v = param$0[2],
@@ -11287,9 +11302,9 @@
            /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:49>>*/ ;
         }
         function snoc_enum(s, e){
-         var s$0 = s, e$0 = e;
+         var s$0 =  /*<<set.ml:602:6>>*/ s, e$0 = e;
          for(;;){
-           /*<<set.ml:602:6>>*/ if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
+          if(! s$0)  /*<<set.ml:603:17>>*/ return e$0;
           var
            r =  /*<<set.ml:602:6>>*/ s$0[3],
            v = s$0[2],
@@ -11345,7 +11360,7 @@
           /*<<set.ml:622:34>>*/ return function(_e_){
            /*<<?>>*/ return seq_of_enum(_d_, _e_);} /*<<set.ml:622:34>>*/ ;
         }
-        return [0,
+         /*<<?>>*/ return [0,
                 empty,
                 add,
                 singleton,
@@ -11392,7 +11407,7 @@
        }];
    runtime.caml_register_global(12, Stdlib_Set, "Stdlib__Set");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Map
@@ -11512,7 +11527,7 @@
           /*<<map.ml:116:43>>*/ return create
                  ( /*<<map.ml:116:25>>*/ create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
         }
-        var empty = 0;
+        var empty =  /*<<?>>*/ 0;
         function is_empty(param){
           /*<<map.ml:123:19>>*/ return param ? 0 : 1 /*<<map.ml:123:54>>*/ ;
         }
@@ -11540,9 +11555,9 @@
                  :  /*<<map.ml:134:35>>*/ bal(ll, v, d, r) /*<<map.ml:137:47>>*/ ;
         }
         function find(x, param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:139:17>>*/ param;
          for(;;){
-           /*<<map.ml:139:17>>*/ if(! param$0)
+          if(! param$0)
             /*<<map.ml:141:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -11557,9 +11572,9 @@
          }
          /*<<map.ml:145:46>>*/ }
         function find_first(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<map.ml:156:23>>*/ param$0;
          for(;;){
-           /*<<map.ml:156:23>>*/ if(! param$1)
+          if(! param$1)
             /*<<map.ml:158:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -11593,10 +11608,9 @@
          }
          /*<<map.ml:163:26>>*/ }
         function find_first_opt(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<map.ml:174:27>>*/ param$0;
          for(;;){
-           /*<<map.ml:174:27>>*/ if(! param$1)
-            /*<<map.ml:176:10>>*/ return 0;
+          if(! param$1)  /*<<map.ml:176:10>>*/ return 0;
           var
            r$0 =  /*<<map.ml:174:27>>*/ param$1[4],
            d0$1 = param$1[3],
@@ -11628,9 +11642,9 @@
          }
          /*<<map.ml:181:30>>*/ }
         function find_last(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<map.ml:192:22>>*/ param$0;
          for(;;){
-           /*<<map.ml:192:22>>*/ if(! param$1)
+          if(! param$1)
             /*<<map.ml:194:10>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var
@@ -11664,10 +11678,9 @@
          }
          /*<<map.ml:199:25>>*/ }
         function find_last_opt(f, param$0){
-         var param$1 = param$0;
+         var param$1 =  /*<<map.ml:210:26>>*/ param$0;
          for(;;){
-           /*<<map.ml:210:26>>*/ if(! param$1)
-            /*<<map.ml:212:10>>*/ return 0;
+          if(! param$1)  /*<<map.ml:212:10>>*/ return 0;
           var
            r$0 =  /*<<map.ml:210:26>>*/ param$1[4],
            d0$1 = param$1[3],
@@ -11699,10 +11712,9 @@
          }
          /*<<map.ml:217:29>>*/ }
         function find_opt(x, param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:219:21>>*/ param;
          for(;;){
-           /*<<map.ml:219:21>>*/ if(! param$0)
-            /*<<map.ml:221:10>>*/ return 0;
+          if(! param$0)  /*<<map.ml:221:10>>*/ return 0;
           var
            r =  /*<<map.ml:219:21>>*/ param$0[4],
            d = param$0[3],
@@ -11716,10 +11728,9 @@
          }
          /*<<map.ml:225:50>>*/ }
         function mem(x, param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:227:16>>*/ param;
          for(;;){
-           /*<<map.ml:227:16>>*/ if(! param$0)
-            /*<<map.ml:229:10>>*/ return 0;
+          if(! param$0)  /*<<map.ml:229:10>>*/ return 0;
           var
            r =  /*<<map.ml:227:16>>*/ param$0[4],
            v = param$0[2],
@@ -11732,9 +11743,9 @@
          }
          /*<<map.ml:232:49>>*/ }
         function min_binding(param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:234:26>>*/ param;
          for(;;){
-           /*<<map.ml:234:26>>*/ if(! param$0)
+          if(! param$0)
             /*<<map.ml:235:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
           var l =  /*<<map.ml:234:26>>*/ param$0[1];
@@ -11746,10 +11757,9 @@
          }
          /*<<map.ml:237:33>>*/ }
         function min_binding_opt(param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:239:30>>*/ param;
          for(;;){
-           /*<<map.ml:239:30>>*/ if(! param$0)
-            /*<<map.ml:240:17>>*/ return 0;
+          if(! param$0)  /*<<map.ml:240:17>>*/ return 0;
           var l =  /*<<map.ml:239:30>>*/ param$0[1];
           if(! l){
            var d = param$0[3], v = param$0[2];
@@ -11759,9 +11769,9 @@
          }
          /*<<map.ml:242:36>>*/ }
         function max_binding(param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:244:26>>*/ param;
          for(;;){
-           /*<<map.ml:244:26>>*/ if(! param$0)
+          if(! param$0)
             /*<<map.ml:245:17>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
            /*<<map.ml:244:26>>*/ if(! param$0[4]){
@@ -11773,10 +11783,9 @@
          }
          /*<<map.ml:247:33>>*/ }
         function max_binding_opt(param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:249:30>>*/ param;
          for(;;){
-           /*<<map.ml:249:30>>*/ if(! param$0)
-            /*<<map.ml:250:17>>*/ return 0;
+          if(! param$0)  /*<<map.ml:250:17>>*/ return 0;
            /*<<map.ml:249:30>>*/ if(! param$0[4]){
            var d = param$0[3], v = param$0[2];
             /*<<map.ml:251:32>>*/ return [0, [0, v, d]];
@@ -11872,10 +11881,9 @@
           /*<<map.ml:300:6>>*/ return update(x, add, m) /*<<map.ml:300:20>>*/ ;
         }
         function iter(f, param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:302:17>>*/ param;
          for(;;){
-           /*<<map.ml:302:17>>*/ if(! param$0)
-            /*<<map.ml:303:17>>*/ return 0;
+          if(! param$0)  /*<<map.ml:303:17>>*/ return 0;
           var
            r =  /*<<map.ml:302:17>>*/ param$0[4],
            d = param$0[3],
@@ -11913,10 +11921,9 @@
           /*<<map.ml:323:10>>*/ return [0, l$0, v, d$0, r$0, h];
          /*<<map.ml:323:38>>*/ }
         function fold(f, m, accu){
-         var m$0 = m, accu$0 = accu;
+         var m$0 =  /*<<map.ml:326:6>>*/ m, accu$0 = accu;
          for(;;){
-           /*<<map.ml:326:6>>*/ if(! m$0)
-            /*<<map.ml:327:17>>*/ return accu$0;
+          if(! m$0)  /*<<map.ml:327:17>>*/ return accu$0;
           var
            r =  /*<<map.ml:326:6>>*/ m$0[4],
            d = m$0[3],
@@ -11930,10 +11937,9 @@
          }
         }
         function for_all(p, param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:331:20>>*/ param;
          for(;;){
-           /*<<map.ml:331:20>>*/ if(! param$0)
-            /*<<map.ml:332:17>>*/ return 1;
+          if(! param$0)  /*<<map.ml:332:17>>*/ return 1;
           var
            r =  /*<<map.ml:331:20>>*/ param$0[4],
            d = param$0[3],
@@ -11951,10 +11957,9 @@
          }
          /*<<map.ml:333:64>>*/ }
         function exists(p, param){
-         var param$0 = param;
+         var param$0 =  /*<<map.ml:335:19>>*/ param;
          for(;;){
-           /*<<map.ml:335:19>>*/ if(! param$0)
-            /*<<map.ml:336:17>>*/ return 0;
+          if(! param$0)  /*<<map.ml:336:17>>*/ return 0;
           var
            r =  /*<<map.ml:335:19>>*/ param$0[4],
            d = param$0[3],
@@ -12210,9 +12215,9 @@
                  _t_] /*<<map.ml:459:28>>*/ ;
          /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
-         var m$0 = m, e$0 = e;
+         var m$0 =  /*<<map.ml:464:6>>*/ m, e$0 = e;
          for(;;){
-           /*<<map.ml:464:6>>*/ if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
+          if(! m$0)  /*<<map.ml:465:17>>*/ return e$0;
           var
            r =  /*<<map.ml:464:6>>*/ m$0[4],
            d = m$0[3],
@@ -12307,10 +12312,9 @@
                 | 0 /*<<map.ml:495:33>>*/ ;
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
-         var accu$0 = accu, param$0 = param;
+         var accu$0 =  /*<<map.ml:497:25>>*/ accu, param$0 = param;
          for(;;){
-           /*<<map.ml:497:25>>*/ if(! param$0)
-            /*<<map.ml:498:17>>*/ return accu$0;
+          if(! param$0)  /*<<map.ml:498:17>>*/ return accu$0;
           var
            r =  /*<<map.ml:497:25>>*/ param$0[4],
            d = param$0[3],
@@ -12368,9 +12372,9 @@
            /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:36>>*/ ;
         }
         function snoc_enum(s, e){
-         var s$0 = s, e$0 = e;
+         var s$0 =  /*<<map.ml:524:6>>*/ s, e$0 = e;
          for(;;){
-           /*<<map.ml:524:6>>*/ if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
+          if(! s$0)  /*<<map.ml:525:17>>*/ return e$0;
           var
            r =  /*<<map.ml:524:6>>*/ s$0[4],
            d = s$0[3],
@@ -12429,7 +12433,7 @@
           /*<<map.ml:546:34>>*/ return function(_f_){
            /*<<?>>*/ return seq_of_enum(_e_, _f_);} /*<<map.ml:546:34>>*/ ;
         }
-        return [0,
+         /*<<?>>*/ return [0,
                 empty,
                 add,
                 add_to_list,
@@ -12476,7 +12480,7 @@
        }];
    runtime.caml_register_global(12, Stdlib_Map, "Stdlib__Map");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Stack
@@ -12592,7 +12596,7 @@
     /*<<stack.ml:70:3>>*/ }
    var
     Stdlib_Stack =
-      [0,
+       /*<<?>>*/ [0,
        Empty,
        create,
        push,
@@ -12612,7 +12616,7 @@
        of_seq];
    runtime.caml_register_global(3, Stdlib_Stack, "Stdlib__Stack");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Queue
@@ -12970,7 +12974,7 @@
     return 0;
     /*<<buffer.ml:120:23>>*/ }
    var
-    uchar_utf_8_byte_length_max = 4,
+    uchar_utf_8_byte_length_max =  /*<<?>>*/ 4,
     uchar_utf_16_byte_length_max = 4,
     cst_Buffer_add_substring_add_s = "Buffer.add_substring/add_subbytes",
     cst_Buffer_add_channel = "Buffer.add_channel",
@@ -13053,7 +13057,7 @@
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
-     /*<<buffer.ml:163:2>>*/ return  /*<<buffer.ml:163:44>>*/ add_substring
+     /*<<buffer.ml:163:44>>*/ return add_substring
             (b,
               /*<<buffer.ml:163:18>>*/ caml_call1(Stdlib_Bytes[44], s),
              offset,
@@ -13078,7 +13082,7 @@
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
-     /*<<buffer.ml:177:20>>*/ return  /*<<buffer.ml:177:59>>*/ add_string
+     /*<<buffer.ml:177:59>>*/ return add_string
             (b,  /*<<buffer.ml:177:33>>*/ caml_call1(Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
    }
    function add_buffer(b, bs){
@@ -13302,7 +13306,7 @@
       /*<<?>>*/ return aux(_f_, _g_);} /*<<buffer.ml:312:2>>*/ ;
     /*<<buffer.ml:312:7>>*/ }
    function add_seq(b, seq){
-     /*<<buffer.ml:314:20>>*/ return  /*<<buffer.ml:314:41>>*/ caml_call2
+     /*<<buffer.ml:314:41>>*/ return caml_call2
             (Stdlib_Seq[4],
              function(_e_){ /*<<?>>*/ return add_char(b, _e_);},
              seq) /*<<buffer.ml:314:45>>*/ ;
@@ -13426,7 +13430,7 @@
    }
    var
     Stdlib_Buffer =
-      [0,
+       /*<<?>>*/ [0,
        create,
        contents,
        to_bytes,
@@ -13469,7 +13473,7 @@
        add_int64_le];
    runtime.caml_register_global(14, Stdlib_Buffer, "Stdlib__Buffer");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Mutex
@@ -13501,7 +13505,7 @@
     /*<<mutex.ml:34:13>>*/ }
    var
     Stdlib_Mutex =
-      [0,
+       /*<<?>>*/ [0,
        runtime.caml_ml_mutex_new,
        caml_ml_mutex_lock,
        runtime.caml_ml_mutex_try_lock,
@@ -13509,7 +13513,7 @@
        protect];
    runtime.caml_register_global(0, Stdlib_Mutex, "Stdlib__Mutex");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Condition
@@ -13596,7 +13600,8 @@
    function get_value(s){
      /*<<semaphore.ml:55:18>>*/ return s[2];
     /*<<semaphore.ml:55:21>>*/ }
-   var Counting = [0, make, release, acquire, try_acquire, get_value];
+   var
+    Counting =  /*<<?>>*/ [0, make, release, acquire, try_acquire, get_value];
    function make$0(b){
     var
      _a_ =  /*<<semaphore.ml:66:14>>*/ caml_call1(Stdlib_Condition[1], 0),
@@ -13629,11 +13634,11 @@
      /*<<semaphore.ml:83:20>>*/ return ret;
     /*<<semaphore.ml:84:5>>*/ }
    var
-    Binary = [0, make$0, release$0, acquire$0, try_acquire$0],
+    Binary =  /*<<?>>*/ [0, make$0, release$0, acquire$0, try_acquire$0],
     Stdlib_Semaphore = [0, Counting, Binary];
    runtime.caml_register_global(5, Stdlib_Semaphore, "Stdlib__Semaphore");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Domain
@@ -13680,9 +13685,10 @@
     Stdlib_List = global_data.Stdlib__List,
     Assert_failure = global_data.Assert_failure;
    function cpu_relax(param){
-     /*<<domain.ml:47:19>>*/ return runtime.caml_ml_domain_cpu_relax(0) /*<<domain.ml:47:35>>*/ ;
+     /*<<domain.ml:47:35>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
+            (0) /*<<domain.ml:47:35>>*/ ;
    }
-   var none = [0, 0];
+   var none =  /*<<?>>*/ [0, 0];
    function create_dls(param){
     var st =  /*<<domain.ml:89:13>>*/ caml_make_vect(8, none);
      /*<<domain.ml:90:4>>*/ runtime.caml_domain_dls_set(st);
@@ -13691,7 +13697,7 @@
    var
     key_counter =  /*<<domain.ml:96:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
     parent_keys =  /*<<domain.ml:101:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
-    _a_ = [0, "domain.ml", 184, 13];
+    _a_ =  /*<<?>>*/ [0, "domain.ml", 184, 13];
    function new_key(split_from_parent, init_orphan){
     var
      idx =
@@ -13775,10 +13781,11 @@
      /*<<domain.ml:201:27>>*/ return domain;
     /*<<domain.ml:201:33>>*/ }
    function self(param){
-     /*<<domain.ml:203:14>>*/ return caml_ml_domain_id(0) /*<<domain.ml:203:25>>*/ ;
+     /*<<domain.ml:203:25>>*/ return  /*<<domain.ml:203:14>>*/ caml_ml_domain_id
+            (0) /*<<domain.ml:203:25>>*/ ;
    }
    function is_main_domain(param){
-     /*<<domain.ml:205:24>>*/ return 0
+     /*<<domain.ml:205:32>>*/ return 0
             ===  /*<<domain.ml:203:14>>*/ caml_ml_domain_id(0)
             ? 1
             : 0 /*<<domain.ml:205:32>>*/ ;
@@ -13789,9 +13796,9 @@
     first_spawn_function =
        /*<<domain.ml:210:44>>*/ [0,
        function(param){ /*<<domain.ml:212:44>>*/ }],
-    cst_first_domain_already_spawn = "first domain already spawned";
+    cst_first_domain_already_spawn =  /*<<?>>*/ "first domain already spawned";
    function before_first_spawn(f){
-     /*<<domain.ml:215:2>>*/ if
+     /*<<domain.ml:215:36>>*/ if
      ( /*<<domain.ml:215:5>>*/ caml_call1
        (Stdlib_Atomic[3], first_domain_spawned))
       /*<<domain.ml:216:4>>*/ throw caml_maybe_attach_backtrace
@@ -13826,7 +13833,7 @@
    }
     /*<<domain.ml:231:56>>*/ Stdlib[104][1] = do_at_exit;
    function spawn(f){
-     /*<<domain.ml:249:2>>*/ if
+     /*<<domain.ml:224:42>>*/ if
      (1
       -
         /*<<domain.ml:224:9>>*/ caml_call1
@@ -14250,7 +14257,7 @@
      /*<<camlinternalFormat.ml:221:2>>*/ return 5 === fconv[2] ? 12 : -6 /*<<camlinternalFormat.ml:227:17>>*/ ;
    }
    function buffer_create(init_size){
-     /*<<camlinternalFormat.ml:256:30>>*/ return [0,
+     /*<<camlinternalFormat.ml:256:71>>*/ return [0,
             0,
              /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)] /*<<camlinternalFormat.ml:256:71>>*/ ;
     /*<<camlinternalFormat.ml:256:73>>*/ }
@@ -14480,9 +14487,9 @@
     }
     /*<<camlinternalFormat.ml:488:6>>*/ }
    function bprint_fmtty(buf, fmtty){
-    var fmtty$0 = fmtty;
+    var fmtty$0 =  /*<<camlinternalFormat.ml:496:17>>*/ fmtty;
     for(;;){
-      /*<<camlinternalFormat.ml:496:17>>*/ if(typeof fmtty$0 === "number")
+     if(typeof fmtty$0 === "number")
        /*<<camlinternalFormat.ml:521:20>>*/ return;
       /*<<camlinternalFormat.ml:496:17>>*/ switch(fmtty$0[0]){
        case 0:
@@ -14581,9 +14588,11 @@
    function string_of_fmt(fmt){
     var buf =  /*<<camlinternalFormat.ml:644:12>>*/ buffer_create(16);
     function fmtiter(fmt, ign_flag){
-     var fmt$0 = fmt, ign_flag$0 = ign_flag;
+     var
+      fmt$0 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt,
+      ign_flag$0 = ign_flag;
      for(;;){
-       /*<<camlinternalFormat.ml:535:22>>*/ if(typeof fmt$0 === "number")
+      if(typeof fmt$0 === "number")
         /*<<camlinternalFormat.ml:636:23>>*/ return;
        /*<<camlinternalFormat.ml:535:22>>*/ switch(fmt$0[0]){
         case 0:
@@ -15161,8 +15170,7 @@
         /*<<camlinternalFormat.ml:697:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:698:17>>*/  /*<<camlinternalFormat.ml:698:28>>*/ af
-                 (0);
+                 /*<<camlinternalFormat.ml:698:28>>*/ af(0);
                 /*<<camlinternalFormat.ml:698:43>>*/ },
                ,
                de] /*<<camlinternalFormat.ml:697:4>>*/ ;
@@ -15175,8 +15183,7 @@
         /*<<camlinternalFormat.ml:702:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:703:17>>*/  /*<<camlinternalFormat.ml:703:28>>*/ af$0
-                 (0);
+                 /*<<camlinternalFormat.ml:703:28>>*/ af$0(0);
                 /*<<camlinternalFormat.ml:703:43>>*/ },
                ,
                de$0] /*<<camlinternalFormat.ml:702:4>>*/ ;
@@ -15189,8 +15196,7 @@
         /*<<camlinternalFormat.ml:707:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:708:17>>*/  /*<<camlinternalFormat.ml:708:28>>*/ af$1
-                 (0);
+                 /*<<camlinternalFormat.ml:708:28>>*/ af$1(0);
                 /*<<camlinternalFormat.ml:708:43>>*/ },
                ,
                de$1] /*<<camlinternalFormat.ml:707:4>>*/ ;
@@ -15203,8 +15209,7 @@
         /*<<camlinternalFormat.ml:712:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:713:17>>*/  /*<<camlinternalFormat.ml:713:28>>*/ af$2
-                 (0);
+                 /*<<camlinternalFormat.ml:713:28>>*/ af$2(0);
                 /*<<camlinternalFormat.ml:713:43>>*/ },
                ,
                de$2] /*<<camlinternalFormat.ml:712:4>>*/ ;
@@ -15217,8 +15222,7 @@
         /*<<camlinternalFormat.ml:722:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:723:17>>*/  /*<<camlinternalFormat.ml:723:28>>*/ af$3
-                 (0);
+                 /*<<camlinternalFormat.ml:723:28>>*/ af$3(0);
                 /*<<camlinternalFormat.ml:723:43>>*/ },
                ,
                de$3] /*<<camlinternalFormat.ml:722:4>>*/ ;
@@ -15231,8 +15235,7 @@
         /*<<camlinternalFormat.ml:717:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:718:17>>*/  /*<<camlinternalFormat.ml:718:28>>*/ af$4
-                 (0);
+                 /*<<camlinternalFormat.ml:718:28>>*/ af$4(0);
                 /*<<camlinternalFormat.ml:718:43>>*/ },
                ,
                de$4] /*<<camlinternalFormat.ml:717:4>>*/ ;
@@ -15245,8 +15248,7 @@
         /*<<camlinternalFormat.ml:727:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:728:17>>*/  /*<<camlinternalFormat.ml:728:28>>*/ af$5
-                 (0);
+                 /*<<camlinternalFormat.ml:728:28>>*/ af$5(0);
                 /*<<camlinternalFormat.ml:728:43>>*/ },
                ,
                de$5] /*<<camlinternalFormat.ml:727:4>>*/ ;
@@ -15259,8 +15261,7 @@
         /*<<camlinternalFormat.ml:732:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:733:17>>*/  /*<<camlinternalFormat.ml:733:28>>*/ af$6
-                 (0);
+                 /*<<camlinternalFormat.ml:733:28>>*/ af$6(0);
                 /*<<camlinternalFormat.ml:733:43>>*/ },
                ,
                de$6] /*<<camlinternalFormat.ml:732:4>>*/ ;
@@ -15273,8 +15274,7 @@
         /*<<camlinternalFormat.ml:765:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:766:17>>*/  /*<<camlinternalFormat.ml:766:28>>*/ af$7
-                 (0);
+                 /*<<camlinternalFormat.ml:766:28>>*/ af$7(0);
                 /*<<camlinternalFormat.ml:766:43>>*/ },
                ,
                de$7] /*<<camlinternalFormat.ml:765:4>>*/ ;
@@ -15295,14 +15295,12 @@
         /*<<camlinternalFormat.ml:772:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:773:17>>*/  /*<<camlinternalFormat.ml:773:28>>*/ ga
-                 (0);
+                 /*<<camlinternalFormat.ml:773:28>>*/ ga(0);
                  /*<<camlinternalFormat.ml:773:50>>*/ af$8(0);
                 /*<<camlinternalFormat.ml:773:65>>*/ },
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:775:17>>*/  /*<<camlinternalFormat.ml:775:28>>*/ jd
-                 (0);
+                 /*<<camlinternalFormat.ml:775:28>>*/ jd(0);
                  /*<<camlinternalFormat.ml:775:50>>*/ de$8(0);
                 /*<<camlinternalFormat.ml:775:65>>*/ }] /*<<camlinternalFormat.ml:772:4>>*/ ;
       case 10:
@@ -15314,8 +15312,7 @@
         /*<<camlinternalFormat.ml:743:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:744:17>>*/  /*<<camlinternalFormat.ml:744:28>>*/ af$9
-                 (0);
+                 /*<<camlinternalFormat.ml:744:28>>*/ af$9(0);
                 /*<<camlinternalFormat.ml:744:43>>*/ },
                ,
                de$9] /*<<camlinternalFormat.ml:743:4>>*/ ;
@@ -15329,8 +15326,7 @@
         /*<<camlinternalFormat.ml:738:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:739:17>>*/  /*<<camlinternalFormat.ml:739:28>>*/ af$10
-                 (0);
+                 /*<<camlinternalFormat.ml:739:28>>*/ af$10(0);
                 /*<<camlinternalFormat.ml:739:43>>*/ },
                ,
                de$10] /*<<camlinternalFormat.ml:738:4>>*/ ;
@@ -15344,8 +15340,7 @@
         /*<<camlinternalFormat.ml:748:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:749:17>>*/  /*<<camlinternalFormat.ml:749:28>>*/ af$11
-                 (0);
+                 /*<<camlinternalFormat.ml:749:28>>*/ af$11(0);
                 /*<<camlinternalFormat.ml:749:43>>*/ },
                ,
                de$11] /*<<camlinternalFormat.ml:748:4>>*/ ;
@@ -15359,13 +15354,11 @@
         /*<<camlinternalFormat.ml:753:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:754:17>>*/  /*<<camlinternalFormat.ml:754:28>>*/ af$12
-                 (0);
+                 /*<<camlinternalFormat.ml:754:28>>*/ af$12(0);
                 /*<<camlinternalFormat.ml:754:43>>*/ },
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:756:17>>*/  /*<<camlinternalFormat.ml:756:28>>*/ de$12
-                 (0);
+                 /*<<camlinternalFormat.ml:756:28>>*/ de$12(0);
                 /*<<camlinternalFormat.ml:756:43>>*/ }] /*<<camlinternalFormat.ml:753:4>>*/ ;
       default:
        var
@@ -15377,13 +15370,11 @@
         /*<<camlinternalFormat.ml:759:4>>*/ return [0,
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:760:17>>*/  /*<<camlinternalFormat.ml:760:28>>*/ af$13
-                 (0);
+                 /*<<camlinternalFormat.ml:760:28>>*/ af$13(0);
                 /*<<camlinternalFormat.ml:760:43>>*/ },
                ,
                function(param){
-                 /*<<camlinternalFormat.ml:762:17>>*/  /*<<camlinternalFormat.ml:762:28>>*/ de$13
-                 (0);
+                 /*<<camlinternalFormat.ml:762:28>>*/ de$13(0);
                 /*<<camlinternalFormat.ml:762:43>>*/ }] /*<<camlinternalFormat.ml:759:4>>*/ ;
     }
     /*<<camlinternalFormat.ml:775:66>>*/ }
@@ -15798,9 +15789,9 @@
            ([0, Assert_failure, _e_], 1);
     /*<<camlinternalFormat.ml:851:35>>*/ }
    function fmtty_of_fmt(fmtty){
-    var fmtty$0 = fmtty;
+    var fmtty$0 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty;
     for(;;){
-      /*<<camlinternalFormat.ml:863:13>>*/ if(typeof fmtty$0 === "number")
+     if(typeof fmtty$0 === "number")
        /*<<camlinternalFormat.ml:916:34>>*/ return 0;
       /*<<camlinternalFormat.ml:863:13>>*/ switch(fmtty$0[0]){
        case 0:
@@ -16041,7 +16032,9 @@
    }
    var
     Type_mismatch =
-      [248, "CamlinternalFormat.Type_mismatch", runtime.caml_fresh_oo_id(0)],
+       /*<<?>>*/ [248,
+       "CamlinternalFormat.Type_mismatch",
+       runtime.caml_fresh_oo_id(0)],
     cst_d = "%d",
     cst_d$0 = "%+d",
     cst_d$1 = "% d",
@@ -17429,7 +17422,7 @@
             (Stdlib_Bytes[44], buf) /*<<camlinternalFormat.ml:1447:10>>*/ ;
    }
    function convert_int(iconv, n){
-     /*<<camlinternalFormat.ml:1451:2>>*/ switch(iconv){
+     /*<<camlinternalFormat.ml:1380:22>>*/ switch(iconv){
       case 1:
        var _cn_ =  /*<<camlinternalFormat.ml:1381:39>>*/ cst_d$0; break;
       case 2:
@@ -17463,7 +17456,7 @@
               /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int(_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
    }
    function convert_int32(iconv, n){
-     /*<<camlinternalFormat.ml:1453:2>>*/ switch(iconv){
+     /*<<camlinternalFormat.ml:1396:23>>*/ switch(iconv){
       case 1:
        var _cm_ =  /*<<camlinternalFormat.ml:1397:40>>*/ cst_ld$0; break;
       case 2:
@@ -17497,7 +17490,7 @@
               /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int(_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
    }
    function convert_nativeint(iconv, n){
-     /*<<camlinternalFormat.ml:1455:2>>*/ switch(iconv){
+     /*<<camlinternalFormat.ml:1404:23>>*/ switch(iconv){
       case 1:
        var _cl_ =  /*<<camlinternalFormat.ml:1405:40>>*/ cst_nd$0; break;
       case 2:
@@ -17531,7 +17524,7 @@
               /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int(_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
    }
    function convert_int64(iconv, n){
-     /*<<camlinternalFormat.ml:1457:2>>*/ switch(iconv){
+     /*<<camlinternalFormat.ml:1388:23>>*/ switch(iconv){
       case 1:
        var _ck_ =  /*<<camlinternalFormat.ml:1389:40>>*/ cst_Ld$0; break;
       case 2:
@@ -17647,9 +17640,12 @@
      /*<<camlinternalFormat.ml:1502:24>>*/ return buffer_contents(buf) /*<<camlinternalFormat.ml:1503:21>>*/ ;
    }
    function make_printf$0(counter, k, acc, fmt){
-    var k$0 = k, acc$0 = acc, fmt$0 = fmt;
+    var
+     k$0 =  /*<<camlinternalFormat.ml:1518:17>>*/ k,
+     acc$0 = acc,
+     fmt$0 = fmt;
     for(;;){
-      /*<<camlinternalFormat.ml:1518:17>>*/ if(typeof fmt$0 === "number")
+     if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1605:4>>*/ return caml_call1(k$0, acc$0) /*<<camlinternalFormat.ml:1605:9>>*/ ;
       /*<<camlinternalFormat.ml:1518:17>>*/ switch(fmt$0[0]){
        case 0:
@@ -17893,7 +17889,7 @@
          ty =
             /*<<camlinternalFormat.ml:1568:13>>*/ string_of_fmtty(sub_fmtty);
          /*<<camlinternalFormat.ml:1569:4>>*/ return function(str){
-          /*<<camlinternalFormat.ml:1570:6>>*/ return  /*<<camlinternalFormat.ml:1571:6>>*/ make_printf
+          /*<<camlinternalFormat.ml:1571:6>>*/ return make_printf
                  (k$0, [4, acc$0, ty], rest$12) /*<<camlinternalFormat.ml:1571:52>>*/ ;} /*<<camlinternalFormat.ml:1569:4>>*/ ;
        case 14:
         var
@@ -18177,7 +18173,7 @@
             /*<<camlinternalFormat.ml:1654:13>>*/ trans
             ( /*<<camlinternalFormat.ml:1654:19>>*/ symm(ty1), ty2);
          /*<<camlinternalFormat.ml:1655:4>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1655:13>>*/ return  /*<<camlinternalFormat.ml:1655:57>>*/ make_from_fmtty
+          /*<<camlinternalFormat.ml:1655:57>>*/ return make_from_fmtty
                  (k,
                   acc,
                    /*<<camlinternalFormat.ml:1655:35>>*/ caml_call2
@@ -18385,7 +18381,7 @@
      /*<<camlinternalFormat.ml:1778:28>>*/ if(arity){
      var arity$0 = arity[1];
       /*<<camlinternalFormat.ml:1781:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1782:6>>*/ return  /*<<camlinternalFormat.ml:1782:40>>*/ make_custom
+       /*<<camlinternalFormat.ml:1782:40>>*/ return make_custom
               (k,
                acc,
                rest,
@@ -18403,9 +18399,9 @@
             (make_custom$0(0, k, acc, rest, arity, f));
    }
    function make_iprintf$0(counter, k, o, fmt){
-    var k$0 = k, fmt$0 = fmt;
+    var k$0 =  /*<<camlinternalFormat.ml:1788:17>>*/ k, fmt$0 = fmt;
     for(;;){
-      /*<<camlinternalFormat.ml:1788:17>>*/ if(typeof fmt$0 === "number")
+     if(typeof fmt$0 === "number")
        /*<<camlinternalFormat.ml:1858:8>>*/ return caml_call1(k$0, o) /*<<camlinternalFormat.ml:1858:11>>*/ ;
       /*<<camlinternalFormat.ml:1788:17>>*/ switch(fmt$0[0]){
        case 0:
@@ -18779,9 +18775,9 @@
             (fn_of_custom_arity$0(0, k, o, fmt, param));
    }
    function output_acc(o, acc){
-    var acc$0 = acc;
+    var acc$0 =  /*<<camlinternalFormat.ml:1897:27>>*/ acc;
     for(;;){
-      /*<<camlinternalFormat.ml:1897:27>>*/ if(typeof acc$0 === "number")
+     if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1912:32>>*/ return 0;
       /*<<camlinternalFormat.ml:1897:27>>*/ switch(acc$0[0]){
        case 0:
@@ -18850,9 +18846,9 @@
     }
    }
    function bufput_acc(b, acc){
-    var acc$0 = acc;
+    var acc$0 =  /*<<camlinternalFormat.ml:1917:27>>*/ acc;
     for(;;){
-      /*<<camlinternalFormat.ml:1917:27>>*/ if(typeof acc$0 === "number")
+     if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1932:32>>*/ return 0;
       /*<<camlinternalFormat.ml:1917:27>>*/ switch(acc$0[0]){
        case 0:
@@ -18920,9 +18916,9 @@
     }
    }
    function strput_acc(b, acc){
-    var acc$0 = acc;
+    var acc$0 =  /*<<camlinternalFormat.ml:1938:27>>*/ acc;
     for(;;){
-      /*<<camlinternalFormat.ml:1938:27>>*/ if(typeof acc$0 === "number")
+     if(typeof acc$0 === "number")
        /*<<camlinternalFormat.ml:1953:32>>*/ return 0;
       /*<<camlinternalFormat.ml:1938:27>>*/ switch(acc$0[0]){
        case 0:
@@ -19008,7 +19004,7 @@
      /*<<camlinternalFormat.ml:1962:2>>*/ return make_printf(k, 0, fmt) /*<<camlinternalFormat.ml:1962:30>>*/ ;
    }
    function open_box_of_string(str){
-     /*<<camlinternalFormat.ml:1969:2>>*/ if(str === cst$43)
+     /*<<camlinternalFormat.ml:1969:13>>*/ if(str === cst$43)
       /*<<camlinternalFormat.ml:1969:19>>*/ return _x_;
     var
      len =  /*<<camlinternalFormat.ml:1970:4>>*/ caml_ml_string_length(str);
@@ -19017,10 +19013,9 @@
              (failwith_message(_y_), str) /*<<camlinternalFormat.ml:1971:74>>*/ ;
     }
     function parse_spaces(i){
-     var i$0 = i;
+     var i$0 =  /*<<camlinternalFormat.ml:1973:6>>*/ i;
      for(;;){
-       /*<<camlinternalFormat.ml:1973:6>>*/ if(i$0 === len)
-        /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
+      if(i$0 === len)  /*<<camlinternalFormat.ml:1973:22>>*/ return i$0;
       var
        match =
           /*<<camlinternalFormat.ml:1974:14>>*/ caml_string_get(str, i$0);
@@ -19136,9 +19131,8 @@
      /*<<camlinternalFormat.ml:2018:26>>*/ return [0, [1, s$0], fmt];
     /*<<camlinternalFormat.ml:2018:62>>*/ }
    function make_padprec_fmt_ebb(pad, prec, fmt){
-     /*<<camlinternalFormat.ml:2038:2>>*/ if(typeof prec === "number")
-     var
-      match =  /*<<camlinternalFormat.ml:2025:16>>*/ prec ? [0, 1] : [0, 0];
+     /*<<camlinternalFormat.ml:2025:16>>*/ if(typeof prec === "number")
+     var match = prec ? [0, 1] : [0, 0];
     else
      var
       p = prec[1],
@@ -19819,7 +19813,7 @@
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
      function parse_conv(padprec){
-       /*<<camlinternalFormat.ml:2270:6>>*/ return  /*<<camlinternalFormat.ml:2271:34>>*/ parse_conversion
+       /*<<camlinternalFormat.ml:2271:34>>*/ return parse_conversion
               (pct_ind,
                str_ind + 1 | 0,
                end_ind,
@@ -19963,11 +19957,11 @@
               (pct_ind, str_ind, c, cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
      }
      function get_pad_opt(c){
-       /*<<camlinternalFormat.ml:2360:24>>*/ return  /*<<camlinternalFormat.ml:2360:49>>*/ opt_of_pad
+       /*<<camlinternalFormat.ml:2360:49>>*/ return opt_of_pad
               (c,  /*<<camlinternalFormat.ml:2360:37>>*/ get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
      }
      function get_padprec_opt(c){
-       /*<<camlinternalFormat.ml:2361:28>>*/ return  /*<<camlinternalFormat.ml:2361:57>>*/ opt_of_pad
+       /*<<camlinternalFormat.ml:2361:57>>*/ return opt_of_pad
               (c,  /*<<camlinternalFormat.ml:2361:41>>*/ get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
      }
      a:
@@ -20118,9 +20112,9 @@
            parse_char_set_content =
               /*<<camlinternalFormat.ml:2736:4>>*/ function
              (counter, str_ind, end_ind){
-              var str_ind$0 = str_ind;
+              var str_ind$0 =  /*<<camlinternalFormat.ml:2743:6>>*/ str_ind;
               for(;;){
-                /*<<camlinternalFormat.ml:2743:6>>*/ if(str_ind$0 === end_ind)
+               if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
                var
@@ -20154,9 +20148,11 @@
            parse_char_set_after_char$0 =
               /*<<camlinternalFormat.ml:2736:4>>*/ function
              (counter, str_ind, end_ind, c){
-              var str_ind$0 = str_ind, c$0 = c;
+              var
+               str_ind$0 =  /*<<camlinternalFormat.ml:2755:6>>*/ str_ind,
+               c$0 = c;
               for(;;){
-                /*<<camlinternalFormat.ml:2755:6>>*/ if(str_ind$0 === end_ind)
+               if(str_ind$0 === end_ind)
                  /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
                  (end_ind, cst_unexpected_end_of_format);
                var
@@ -20334,7 +20330,7 @@
           var
            char_format =
               /*<<camlinternalFormat.ml:2376:6>>*/ function(fmt_rest){
-               /*<<camlinternalFormat.ml:2377:8>>*/ return  /*<<camlinternalFormat.ml:2377:11>>*/ get_ign
+               /*<<camlinternalFormat.ml:2377:21>>*/ return  /*<<camlinternalFormat.ml:2377:11>>*/ get_ign
                        (0)
                       ? [0, [23, 0, fmt_rest]]
                       : [0, [0, fmt_rest]] /*<<camlinternalFormat.ml:2379:36>>*/ ;
@@ -21006,9 +21002,9 @@
      }
      /*<<camlinternalFormat.ml:2659:53>>*/ }
     function parse_spaces(str_ind, end_ind){
-     var str_ind$0 = str_ind;
+     var str_ind$0 =  /*<<camlinternalFormat.ml:2804:4>>*/ str_ind;
      for(;;){
-       /*<<camlinternalFormat.ml:2804:4>>*/ if(str_ind$0 === end_ind)
+      if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
        /*<<camlinternalFormat.ml:2805:20>>*/ if
@@ -21022,9 +21018,11 @@
      }
      /*<<camlinternalFormat.ml:2805:79>>*/ }
     function parse_positive(str_ind, end_ind, acc){
-     var str_ind$0 = str_ind, acc$0 = acc;
+     var
+      str_ind$0 =  /*<<camlinternalFormat.ml:2810:4>>*/ str_ind,
+      acc$0 = acc;
      for(;;){
-       /*<<camlinternalFormat.ml:2810:4>>*/ if(str_ind$0 === end_ind)
+      if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
       var
@@ -21099,9 +21097,9 @@
                   fmt]] /*<<camlinternalFormat.ml:2846:75>>*/ ;
     }
     function search_subformat_end(str_ind, end_ind, c){
-     var str_ind$0 = str_ind;
+     var str_ind$0 =  /*<<camlinternalFormat.ml:2851:4>>*/ str_ind;
      for(;;){
-       /*<<camlinternalFormat.ml:2851:4>>*/ if(str_ind$0 === end_ind)
+      if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
         (failwith_message(_U_), str, c, end_ind);
        /*<<camlinternalFormat.ml:2855:23>>*/ if
@@ -21202,11 +21200,14 @@
      }
      /*<<camlinternalFormat.ml:2889:55>>*/ }
     function compute_int_conv(pct_ind, str_ind, plus, hash, space, symb){
-     var plus$0 = plus, hash$0 = hash, space$0 = space;
+     var
+      plus$0 =  /*<<camlinternalFormat.ml:2903:4>>*/ plus,
+      hash$0 = hash,
+      space$0 = space;
      for(;;){
       a:
       {
-        /*<<camlinternalFormat.ml:2903:4>>*/ if(plus$0){
+       if(plus$0){
         if(! hash$0){
          if(space$0) break a;
          if(100 === symb)  /*<<camlinternalFormat.ml:2906:34>>*/ return 1;
@@ -21370,7 +21371,7 @@
     /*<<camlinternalFormat.ml:2991:66>>*/ }
    var
     CamlinternalFormat =
-      [0,
+       /*<<?>>*/ [0,
        is_in_char_set,
        rev_char_set,
        create_char_set,
@@ -21396,7 +21397,7 @@
        recast];
    runtime.caml_register_global(197, CamlinternalFormat, "CamlinternalFormat");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Printf
@@ -21496,7 +21497,7 @@
    }
    var
     Stdlib_Printf =
-      [0,
+       /*<<?>>*/ [0,
        fprintf,
        printf,
        eprintf,
@@ -21512,7 +21513,7 @@
        ksprintf];
    runtime.caml_register_global(3, Stdlib_Printf, "Stdlib__Printf");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Dynarray
@@ -21758,7 +21759,7 @@
              (Stdlib_Array[1],
               n,
               function(i){
-                /*<<dynarray.ml:229:33>>*/ return [0,
+                /*<<dynarray.ml:229:46>>*/ return [0,
                         /*<<dynarray.ml:229:43>>*/ caml_call1(f, i)] /*<<dynarray.ml:229:46>>*/ ;
                /*<<dynarray.ml:229:47>>*/ })] /*<<dynarray.ml:229:48>>*/ ;
     /*<<dynarray.ml:230:3>>*/ }
@@ -21907,7 +21908,7 @@
     throw 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  /*<<dynarray.ml:385:29>>*/ ensure_capacity
+     /*<<dynarray.ml:385:29>>*/ return ensure_capacity
             (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
    }
    function fit_capacity(a){
@@ -21974,10 +21975,9 @@
     }
     /*<<dynarray.ml:447:5>>*/ }
    function append_list(a, li){
-    var li$0 = li;
+    var li$0 =  /*<<dynarray.ml:450:2>>*/ li;
     for(;;){
-      /*<<dynarray.ml:450:2>>*/ if(! li$0)
-       /*<<dynarray.ml:451:10>>*/ return 0;
+     if(! li$0)  /*<<dynarray.ml:451:10>>*/ return 0;
      var xs =  /*<<dynarray.ml:450:2>>*/ li$0[2], x = li$0[1];
       /*<<dynarray.ml:452:15>>*/ add_last(a, x);
       /*<<dynarray.ml:452:27>>*/ li$0 = xs;
@@ -22021,7 +22021,7 @@
      /*<<dynarray.ml:499:4>>*/ return 1;
     /*<<dynarray.ml:500:5>>*/ }
    function append_array(a, b){
-     /*<<dynarray.ml:503:2>>*/ if
+     /*<<dynarray.ml:503:29>>*/ if
      ( /*<<dynarray.ml:503:5>>*/ append_array_if_room(a, b))
       /*<<dynarray.ml:503:35>>*/ return 0;
      /*<<dynarray.ml:510:7>>*/ for(;;){
@@ -22116,7 +22116,7 @@
          (Stdlib_Array[1],
           length,
           function(i){
-            /*<<dynarray.ml:619:6>>*/ return [0,
+            /*<<dynarray.ml:619:45>>*/ return [0,
                     /*<<dynarray.ml:619:16>>*/ caml_call1
                     (f,  /*<<dynarray.ml:619:18>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:619:45>>*/ ;
            /*<<dynarray.ml:619:46>>*/ })];
@@ -22134,7 +22134,7 @@
          (Stdlib_Array[1],
           length,
           function(i){
-            /*<<dynarray.ml:631:6>>*/ return [0,
+            /*<<dynarray.ml:631:47>>*/ return [0,
                     /*<<dynarray.ml:631:16>>*/ caml_call2
                     (f,
                      i,
@@ -22265,7 +22265,7 @@
              (Stdlib_Array[1],
               length,
               function(i){
-                /*<<dynarray.ml:710:38>>*/ return [0, a[1 + i]] /*<<dynarray.ml:710:68>>*/ ;
+                /*<<dynarray.ml:710:68>>*/ return [0, a[1 + i]];
                /*<<dynarray.ml:710:69>>*/ })] /*<<dynarray.ml:710:70>>*/ ;
     /*<<dynarray.ml:711:3>>*/ }
    function to_array(a){
@@ -22335,7 +22335,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:20>>*/ if(a[1] <= i)
         /*<<dynarray.ml:757:26>>*/ return 0;
       var v =  /*<<dynarray.ml:759:14>>*/ get(a, i);
        /*<<dynarray.ml:760:30>>*/ return [0,
@@ -22375,7 +22375,7 @@
    }
    var
     Stdlib_Dynarray =
-      [0,
+       /*<<?>>*/ [0,
        create,
        make,
        init,
@@ -22424,7 +22424,7 @@
        reset];
    runtime.caml_register_global(44, Stdlib_Dynarray, "Stdlib__Dynarray");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Arg
@@ -22519,9 +22519,9 @@
     _d_ = [0, [2, 0, [12, 10, 0]], "%s\n"],
     _e_ = [0, [2, 0, 0], cst_s];
    function assoc3(x, l){
-    var l$0 = l;
+    var l$0 =  /*<<arg.ml:64:2>>*/ l;
     for(;;){
-      /*<<arg.ml:64:2>>*/ if(! l$0)
+     if(! l$0)
        /*<<arg.ml:65:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var match =  /*<<arg.ml:64:2>>*/ l$0[1], y2 = match[2], y1 = match[1];
       /*<<arg.ml:66:32>>*/ if( /*<<arg.ml:66:26>>*/ caml_equal(y1, x))
@@ -22616,7 +22616,7 @@
      /*<<arg.ml:118:45>>*/ return caml_call2(Stdlib_Printf[3], _e_, _ao_);
    }
    var
-    current = [0, 0],
+    current =  /*<<?>>*/ [0, 0],
     _f_ =
       [0,
        [2, 0, [11, ": unknown option '", [2, 0, [11, "'.\n", 0]]]],
@@ -23094,9 +23094,9 @@
    function second_word(s){
     var len =  /*<<arg.ml:325:2>>*/ caml_ml_string_length(s);
     function loop(n){
-     var n$0 = n;
+     var n$0 =  /*<<arg.ml:327:4>>*/ n;
      for(;;){
-       /*<<arg.ml:327:4>>*/ if(len <= n$0)  /*<<arg.ml:327:21>>*/ return len;
+      if(len <= n$0)  /*<<arg.ml:327:21>>*/ return len;
        /*<<arg.ml:328:17>>*/ if
        (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
@@ -23267,13 +23267,13 @@
       /*<<arg.ml:405:33>>*/ return caml_call1(Stdlib_Array[11], _F_);
     }
    }
-   var _r_ = 10, _s_ = 1;
-   function read_arg(_D_){ /*<<?>>*/ return read_aux(_s_, _r_, _D_);}
+   var _r_ =  /*<<?>>*/ 10, _s_ = 1;
+   function read_arg(_D_){return read_aux(_s_, _r_, _D_);}
    var
     _t_ =  /*<<arg.ml:407:33>>*/ 0,
     _u_ = 0,
-    _v_ = [0, [2, 0, [0, 0]], "%s%c"];
-   function read_arg0(_C_){ /*<<?>>*/ return read_aux(_u_, _t_, _C_);}
+    _v_ =  /*<<?>>*/ [0, [2, 0, [0, 0]], "%s%c"];
+   function read_arg0(_C_){return read_aux(_u_, _t_, _C_);}
    function write_aux(sep, file, args){
     var oc =  /*<<arg.ml:412:11>>*/ caml_call1(Stdlib[61], file);
      /*<<arg.ml:413:2>>*/ caml_call2
@@ -23389,7 +23389,7 @@
     Stdlib_Buffer = global_data.Stdlib__Buffer,
     Stdlib_Obj = global_data.Stdlib__Obj,
     printers =  /*<<printexc.ml:20:15>>*/ caml_call1(Stdlib_Atomic[1], 0),
-    _a_ = [0, [3, 0, 0], "%S"],
+    _a_ =  /*<<?>>*/ [0, [3, 0, 0], "%S"],
     _b_ = [0, [4, 0, 0, 0, 0], "%d"],
     _c_ = [0, [11, ", ", [2, 0, [2, 0, 0]]], ", %s%s"],
     _d_ = [0, [12, 40, [2, 0, [2, 0, [12, 41, 0]]]], "(%s%s)"],
@@ -23487,7 +23487,7 @@
     }
     /*<<printexc.ml:53:28>>*/ }
    function string_of_extension_constructo(t){
-     /*<<printexc.ml:64:2>>*/ if
+     /*<<printexc.ml:56:14>>*/ if
      (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
      var
       constructor =  /*<<printexc.ml:60:17>>*/ t[1][1],
@@ -23608,7 +23608,7 @@
      /*<<printexc.ml:106:31>>*/ return bt;
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
-     /*<<printexc.ml:138:2>>*/ return [0,
+     /*<<printexc.ml:138:37>>*/ return [0,
              /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)] /*<<printexc.ml:138:37>>*/ ;
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
@@ -23672,7 +23672,7 @@
      /*<<printexc.ml:172:6>>*/ return 0;
     /*<<printexc.ml:179:73>>*/ }
    function print_backtrace(outchan){
-     /*<<printexc.ml:183:2>>*/ return  /*<<printexc.ml:183:52>>*/ print_raw_backtrace
+     /*<<printexc.ml:183:52>>*/ return print_raw_backtrace
             (outchan,
               /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra(0)) /*<<printexc.ml:183:52>>*/ ;
    }
@@ -23760,7 +23760,7 @@
      /*<<printexc.ml:267:30>>*/ return bt.length - 1;
     /*<<printexc.ml:267:45>>*/ }
    function get_backtrace(param){
-     /*<<printexc.ml:278:23>>*/ return  /*<<printexc.ml:278:69>>*/ raw_backtrace_to_string
+     /*<<printexc.ml:278:69>>*/ return raw_backtrace_to_string
             ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra(0)) /*<<printexc.ml:278:69>>*/ ;
    }
    function register_printer(fn){
@@ -23777,7 +23777,7 @@
     }
     /*<<printexc.ml:287:41>>*/ }
    function exn_slot(x){
-     /*<<printexc.ml:292:2>>*/ return 0
+     /*<<printexc.ml:293:14>>*/ return 0
             ===  /*<<printexc.ml:293:5>>*/ caml_obj_tag(x)
             ? x[1]
             : x /*<<printexc.ml:293:44>>*/ ;
@@ -23800,7 +23800,7 @@
         "(Cannot print locations:\n bytecode executable program file cannot be opened;\n -- too many open files. Try running with OCAMLRUNPARAM=b=2)"].slice
        (),
     _o_ =
-      [0,
+       /*<<?>>*/ [0,
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
        cst_Fatal_error_exception_s];
    function default_uncaught_exception_han(exn, raw_backtrace){
@@ -23827,7 +23827,7 @@
    var
     empty_backtrace =  /*<<printexc.ml:20:29>>*/ [0],
     cst_Fatal_error_out_of_memory_ =
-      "Fatal error: out of memory in uncaught exception handler",
+       /*<<?>>*/ "Fatal error: out of memory in uncaught exception handler",
     _p_ =
       [0,
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
@@ -23960,18 +23960,20 @@
      /*<<fun.ml:17:16>>*/ return c;
     /*<<fun.ml:17:17>>*/ }
    function compose(f, g, x){
-     /*<<fun.ml:18:20>>*/ return  /*<<fun.ml:18:27>>*/ caml_call1
+     /*<<fun.ml:18:27>>*/ return caml_call1
             (f,  /*<<fun.ml:18:22>>*/ caml_call1(g, x)) /*<<fun.ml:18:27>>*/ ;
    }
    function flip(f, x, y){
      /*<<fun.ml:19:17>>*/ return caml_call2(f, y, x) /*<<fun.ml:19:22>>*/ ;
    }
    function negate(p, v){
-     /*<<fun.ml:20:17>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v) /*<<fun.ml:20:26>>*/ ;
+     /*<<fun.ml:20:26>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v) /*<<fun.ml:20:26>>*/ ;
    }
    var
     Finally_raised =
-      [248, "Stdlib.Fun.Finally_raised", runtime.caml_fresh_oo_id(0)],
+       /*<<?>>*/ [248,
+       "Stdlib.Fun.Finally_raised",
+       runtime.caml_fresh_oo_id(0)],
     cst_Fun_Finally_raised = "Fun.Finally_raised: ";
     /*<<fun.ml:24:9>>*/ caml_call1
     (Stdlib_Printexc[9],
@@ -23985,7 +23987,7 @@
                /*<<fun.ml:25:29>>*/ caml_call2
                (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:78>>*/ ;
       /*<<fun.ml:26:11>>*/ });
-   var dummy = 0;
+   var dummy =  /*<<?>>*/ 0;
    function protect(finally$0, work){
     function finally_no_exn(param){
       /*<<fun.ml:30:4>>*/ try{
@@ -24193,7 +24195,7 @@
     /*<<gc.ml:121:13>>*/ }
    var
     null_tracker =
-      [0,
+       /*<<?>>*/ [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>>*/ },
@@ -24206,12 +24208,10 @@
    }
    var
     Stdlib_Gc =
-      [0,
+       /*<<?>>*/ [0,
        print_stat,
        allocated_bytes,
-       function(_x_, _w_){
-         /*<<?>>*/ return runtime.caml_final_register(_x_, _w_);
-       },
+       function(_x_, _w_){return runtime.caml_final_register(_x_, _w_);},
        runtime.caml_final_register_called_without_value,
        function(_v_){return runtime.caml_final_release(_v_);},
        create_alarm,
@@ -24294,13 +24294,13 @@
      /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
    }
    function with_open_gen(flags, perm, s, f){
-     /*<<in_channel.ml:46:2>>*/ return  /*<<in_channel.ml:46:43>>*/ with_open
+     /*<<in_channel.ml:46:43>>*/ return with_open
             ( /*<<in_channel.ml:46:12>>*/ caml_call2(Stdlib[81], flags, perm),
              s,
              f) /*<<in_channel.ml:46:47>>*/ ;
    }
    var
-    seek = Stdlib[96][4],
+    seek =  /*<<?>>*/ Stdlib[96][4],
     pos = Stdlib[96][5],
     length = Stdlib[96][6],
     close = Stdlib[93],
@@ -24339,7 +24339,7 @@
      /*<<in_channel.ml:66:9>>*/ return [0, s];
     /*<<in_channel.ml:67:33>>*/ }
    var
-    input = Stdlib[84],
+    input =  /*<<?>>*/ Stdlib[84],
     cst_input_bigarray = "input_bigarray",
     _a_ = [0, 0],
     _b_ = [0, 0],
@@ -24543,11 +24543,9 @@
     }
     /*<<in_channel.ml:198:31>>*/ }
    function fold_lines(f, accu, ic){
-    var accu$0 = accu;
+    var accu$0 =  /*<<in_channel.ml:201:2>>*/ accu;
     for(;;){
-      /*<<in_channel.ml:201:2>>*/ try{
-      var line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);
-     }
+     try{var line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);}
      catch(_d_){
       var _c_ = caml_wrap_exception(_d_);
        /*<<?>>*/ if(_c_ === Stdlib[12])
@@ -24559,7 +24557,7 @@
     }
     /*<<in_channel.ml:203:33>>*/ }
    var
-    set_binary_mode = Stdlib[95],
+    set_binary_mode =  /*<<?>>*/ Stdlib[95],
     Stdlib_In_channel =
       [0,
        stdin,
@@ -24590,7 +24588,7 @@
        runtime.caml_sys_isatty];
    runtime.caml_register_global(9, Stdlib_In_channel, "Stdlib__In_channel");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Out_channel
@@ -24636,13 +24634,13 @@
      /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
    }
    function with_open_gen(flags, perm, s, f){
-     /*<<out_channel.ml:47:2>>*/ return  /*<<out_channel.ml:47:44>>*/ with_open
+     /*<<out_channel.ml:47:44>>*/ return with_open
             ( /*<<out_channel.ml:47:12>>*/ caml_call2(Stdlib[62], flags, perm),
              s,
              f) /*<<out_channel.ml:47:48>>*/ ;
    }
    var
-    seek = Stdlib[96][1],
+    seek =  /*<<?>>*/ Stdlib[96][1],
     pos = Stdlib[96][2],
     length = Stdlib[96][3],
     close = Stdlib[76],
@@ -24670,7 +24668,7 @@
             (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
    }
    var
-    set_binary_mode = Stdlib[78],
+    set_binary_mode =  /*<<?>>*/ Stdlib[78],
     Stdlib_Out_channel =
       [0,
        stdout,
@@ -24702,7 +24700,7 @@
        runtime.caml_sys_isatty];
    runtime.caml_register_global(3, Stdlib_Out_channel, "Stdlib__Out_channel");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Digest
@@ -24813,20 +24811,20 @@
              }) /*<<digest.ml:39:70>>*/ ;
    }
    function BLAKE2(X){
-    var _a_ = X[1] < 1 ? 1 : 0, _b_ = _a_ || (64 < X[1] ? 1 : 0);
+    var _a_ =  /*<<?>>*/ X[1] < 1 ? 1 : 0, _b_ = _a_ || (64 < X[1] ? 1 : 0);
     if(_b_)
       /*<<digest.ml:68:9>>*/ caml_call1
       (Stdlib[1], cst_Digest_BLAKE2_wrong_hash_s);
     var
-     hash_length = X[1],
+     hash_length =  /*<<?>>*/ X[1],
      compare = Stdlib_String[10],
      equal = Stdlib_String[9];
     function string(str){
-      /*<<digest.ml:85:4>>*/ return caml_blake2_string
+      /*<<digest.ml:85:58>>*/ return  /*<<digest.ml:85:4>>*/ caml_blake2_string
              (hash_length, cst, str, 0, caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
     }
     function bytes(b){
-      /*<<digest.ml:88:4>>*/ return  /*<<digest.ml:88:37>>*/ string
+      /*<<digest.ml:88:37>>*/ return string
              ( /*<<digest.ml:88:11>>*/ caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
     }
     function substring(str, ofs, len){
@@ -24843,7 +24841,7 @@
              (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
     }
     function subbytes(b, ofs, len){
-      /*<<digest.ml:96:4>>*/ return  /*<<digest.ml:96:40>>*/ substring
+      /*<<digest.ml:96:40>>*/ return substring
              ( /*<<digest.ml:96:14>>*/ caml_call1(Stdlib_Bytes[44], b),
               ofs,
               len) /*<<digest.ml:96:48>>*/ ;
@@ -24921,7 +24919,7 @@
        /*<<digest.ml:135:47>>*/ caml_call1(Stdlib[1], cst_Digest_of_hex$0);
       /*<<digest.ml:135:4>>*/ return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
     }
-    return [0,
+     /*<<?>>*/ return [0,
             hash_length,
             compare,
             equal,
@@ -24946,11 +24944,11 @@
     cst_Digest_to_hex$0 = cst_Digest_to_hex$1,
     cst_Digest_from_hex = "Digest.from_hex";
    function string(str){
-     /*<<digest.ml:159:4>>*/ return caml_md5_string
+     /*<<digest.ml:159:43>>*/ return  /*<<digest.ml:159:4>>*/ caml_md5_string
             (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
    }
    function bytes(b){
-     /*<<digest.ml:161:16>>*/ return  /*<<digest.ml:161:49>>*/ string
+     /*<<digest.ml:161:49>>*/ return string
             ( /*<<digest.ml:161:23>>*/ caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
    }
    function substring(str, ofs, len){
@@ -24962,7 +24960,7 @@
             (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
    }
    function subbytes(b, ofs, len){
-     /*<<digest.ml:168:27>>*/ return  /*<<digest.ml:168:63>>*/ substring
+     /*<<digest.ml:168:63>>*/ return substring
             ( /*<<digest.ml:168:37>>*/ caml_call1(Stdlib_Bytes[44], b),
              ofs,
              len) /*<<digest.ml:168:71>>*/ ;
@@ -24972,7 +24970,8 @@
             (Stdlib_In_channel[5],
              filename,
              function(ic){
-               /*<<digest.ml:171:49>>*/ return caml_md5_chan(ic, -1) /*<<digest.ml:171:64>>*/ ;
+               /*<<digest.ml:171:64>>*/ return  /*<<digest.ml:171:49>>*/ caml_md5_chan
+                      (ic, -1) /*<<digest.ml:171:64>>*/ ;
              }) /*<<digest.ml:171:65>>*/ ;
    }
    function output(chan, digest){
@@ -24993,7 +24992,7 @@
    }
    var
     Stdlib_Digest =
-      [0,
+       /*<<?>>*/ [0,
        compare,
        equal,
        string,
@@ -25026,7 +25025,7 @@
         of_hex]];
    runtime.caml_register_global(17, Stdlib_Digest, "Stdlib__Digest");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Bigarray
@@ -25107,7 +25106,7 @@
     /*<<bigarray.ml:90:13>>*/ }
    var
     cst_Bigarray_Array2_of_array_n =
-      "Bigarray.Array2.of_array: non-rectangular data",
+       /*<<?>>*/ "Bigarray.Array2.of_array: non-rectangular data",
     cst_Bigarray_Array3_of_array_n = cst_Bigarray_Array3_of_array_n$1,
     cst_Bigarray_Array3_of_array_n$0 = cst_Bigarray_Array3_of_array_n$1,
     cst_Bigarray_array0_of_genarra = "Bigarray.array0_of_genarray",
@@ -25209,10 +25208,12 @@
              _ad_) /*<<bigarray.ml:140:74>>*/ ;
    }
    function create(kind, layout){
-     /*<<bigarray.ml:161:4>>*/ return caml_ba_create(kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
+     /*<<bigarray.ml:161:36>>*/ return  /*<<bigarray.ml:161:4>>*/ caml_ba_create
+            (kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
    }
    function get(arr){
-     /*<<bigarray.ml:162:16>>*/ return runtime.caml_ba_get_generic(arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
+     /*<<bigarray.ml:162:37>>*/ return  /*<<bigarray.ml:162:16>>*/ runtime.caml_ba_get_generic
+            (arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
    }
    function set(arr){
     var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
@@ -25220,7 +25221,7 @@
       /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);} /*<<bigarray.ml:163:16>>*/ ;
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
-     /*<<bigarray.ml:170:26>>*/ return  /*<<bigarray.ml:170:55>>*/ kind_size_in_bytes
+     /*<<bigarray.ml:170:55>>*/ return kind_size_in_bytes
             ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind(arr)) /*<<bigarray.ml:170:55>>*/ ;
    }
    function of_value(kind, layout, v){
@@ -25229,7 +25230,8 @@
      /*<<bigarray.ml:177:11>>*/ return a;
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
-     /*<<bigarray.ml:185:4>>*/ return caml_ba_create(kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
+     /*<<bigarray.ml:185:39>>*/ return  /*<<bigarray.ml:185:4>>*/ caml_ba_create
+            (kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
    }
    function size_in_bytes$1(arr){
     var _$_ =  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1(arr);
@@ -25239,7 +25241,7 @@
              _$_) /*<<bigarray.ml:199:47>>*/ ;
    }
    function slice(a, n){
-     /*<<bigarray.ml:203:4>>*/ return  /*<<bigarray.ml:203:10>>*/ runtime.caml_ba_layout
+     /*<<bigarray.ml:203:18>>*/ return  /*<<bigarray.ml:203:10>>*/ runtime.caml_ba_layout
              (a)
             ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice(a, [0, n])
             :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice(a, [0, n]) /*<<bigarray.ml:205:76>>*/ ;
@@ -25294,7 +25296,7 @@
      /*<<bigarray.ml:225:4>>*/ return ba;
     /*<<bigarray.ml:225:6>>*/ }
    function create$1(kind, layout, dim1, dim2){
-     /*<<bigarray.ml:231:4>>*/ return caml_ba_create
+     /*<<bigarray.ml:231:46>>*/ return  /*<<bigarray.ml:231:4>>*/ caml_ba_create
             (kind, layout, [0, dim1, dim2]) /*<<bigarray.ml:231:46>>*/ ;
    }
    function size_in_bytes$2(arr){
@@ -25309,10 +25311,12 @@
              _R_) /*<<bigarray.ml:247:61>>*/ ;
    }
    function slice_left(a, n){
-     /*<<bigarray.ml:254:23>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
+     /*<<bigarray.ml:254:50>>*/ return  /*<<bigarray.ml:254:23>>*/ caml_ba_slice
+            (a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
    }
    function slice_right(a, n){
-     /*<<bigarray.ml:255:24>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
+     /*<<bigarray.ml:255:52>>*/ return  /*<<bigarray.ml:255:24>>*/ caml_ba_slice
+            (a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
    }
    function init$1(kind, layout, dim1, dim2, f){
     var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
@@ -25401,7 +25405,7 @@
      /*<<bigarray.ml:292:4>>*/ return ba;
     /*<<bigarray.ml:292:6>>*/ }
    function create$2(kind, layout, dim1, dim2, dim3){
-     /*<<bigarray.ml:298:4>>*/ return caml_ba_create
+     /*<<bigarray.ml:298:52>>*/ return  /*<<bigarray.ml:298:4>>*/ caml_ba_create
             (kind, layout, [0, dim1, dim2, dim3]) /*<<bigarray.ml:298:52>>*/ ;
    }
    function size_in_bytes$3(arr){
@@ -25419,16 +25423,20 @@
              _y_) /*<<bigarray.ml:316:74>>*/ ;
    }
    function slice_left_1(a, n, m){
-     /*<<bigarray.ml:323:27>>*/ return caml_ba_slice(a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
+     /*<<bigarray.ml:323:57>>*/ return  /*<<bigarray.ml:323:27>>*/ caml_ba_slice
+            (a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
    }
    function slice_right_1(a, n, m){
-     /*<<bigarray.ml:324:28>>*/ return caml_ba_slice(a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
+     /*<<bigarray.ml:324:59>>*/ return  /*<<bigarray.ml:324:28>>*/ caml_ba_slice
+            (a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
    }
    function slice_left_2(a, n){
-     /*<<bigarray.ml:325:25>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
+     /*<<bigarray.ml:325:52>>*/ return  /*<<bigarray.ml:325:25>>*/ caml_ba_slice
+            (a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
    }
    function slice_right_2(a, n){
-     /*<<bigarray.ml:326:26>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
+     /*<<bigarray.ml:326:54>>*/ return  /*<<bigarray.ml:326:26>>*/ caml_ba_slice
+            (a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
    }
    function init$2(kind, layout, dim1, dim2, dim3, f){
     var
@@ -25562,44 +25570,47 @@
      /*<<bigarray.ml:373:4>>*/ return ba;
     /*<<bigarray.ml:373:6>>*/ }
    function array0_of_genarray(a){
-     /*<<bigarray.ml:385:2>>*/ return 0
+     /*<<bigarray.ml:385:24>>*/ return 0
             ===  /*<<bigarray.ml:385:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:386:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array0_of_genarra) /*<<bigarray.ml:386:48>>*/ ;
    }
    function array1_of_genarray(a){
-     /*<<bigarray.ml:388:2>>*/ return 1
+     /*<<bigarray.ml:388:24>>*/ return 1
             ===  /*<<bigarray.ml:388:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:389:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array1_of_genarra) /*<<bigarray.ml:389:48>>*/ ;
    }
    function array2_of_genarray(a){
-     /*<<bigarray.ml:391:2>>*/ return 2
+     /*<<bigarray.ml:391:24>>*/ return 2
             ===  /*<<bigarray.ml:391:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:392:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array2_of_genarra) /*<<bigarray.ml:392:48>>*/ ;
    }
    function array3_of_genarray(a){
-     /*<<bigarray.ml:394:2>>*/ return 3
+     /*<<bigarray.ml:394:24>>*/ return 3
             ===  /*<<bigarray.ml:394:5>>*/ caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:395:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array3_of_genarra) /*<<bigarray.ml:395:48>>*/ ;
    }
    function reshape_0(a){
-     /*<<bigarray.ml:400:18>>*/ return caml_ba_reshape(a, [0]) /*<<bigarray.ml:400:32>>*/ ;
+     /*<<bigarray.ml:400:32>>*/ return  /*<<bigarray.ml:400:18>>*/ caml_ba_reshape
+            (a, [0]) /*<<bigarray.ml:400:32>>*/ ;
    }
    function reshape_1(a, dim1){
-     /*<<bigarray.ml:401:23>>*/ return caml_ba_reshape(a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
+     /*<<bigarray.ml:401:41>>*/ return  /*<<bigarray.ml:401:23>>*/ caml_ba_reshape
+            (a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
    }
    function reshape_2(a, dim1, dim2){
-     /*<<bigarray.ml:402:28>>*/ return caml_ba_reshape(a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
+     /*<<bigarray.ml:402:51>>*/ return  /*<<bigarray.ml:402:28>>*/ caml_ba_reshape
+            (a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
    }
    function reshape_3(a, dim1, dim2, dim3){
-     /*<<bigarray.ml:403:33>>*/ return caml_ba_reshape
+     /*<<bigarray.ml:403:61>>*/ return  /*<<bigarray.ml:403:33>>*/ caml_ba_reshape
             (a, [0, dim1, dim2, dim3]) /*<<bigarray.ml:403:61>>*/ ;
    }
    var
@@ -25760,7 +25771,7 @@
      /*<<random.ml:41:21>>*/ return s;
     /*<<random.ml:41:24>>*/ }
    var
-    serialization_prefix_len = 5,
+    serialization_prefix_len =  /*<<?>>*/ 5,
     cst_Random_State_of_binary_str =
       "Random.State.of_binary_string: expected a format compatible with OCaml ";
    function to_binary_string(s){
@@ -25855,11 +25866,11 @@
      /*<<random.ml:112:37>>*/ return s;
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
-     /*<<random.ml:115:4>>*/ return  /*<<random.ml:115:25>>*/ make
+     /*<<random.ml:115:25>>*/ return make
             ( /*<<random.ml:115:9>>*/ caml_sys_random_seed(0)) /*<<random.ml:115:25>>*/ ;
    }
    var
-    max_int31 = 1073741823,
+    max_int31 =  /*<<?>>*/ 1073741823,
     max_int32 = 2147483647,
     cst_Random_int = "Random.int",
     cst_Random_full_int = "Random.full_int",
@@ -25867,12 +25878,12 @@
     cst_Random_int32 = "Random.int32",
     cst_Random_int32_in_range = "Random.int32_in_range";
    function bits(s){
-     /*<<random.ml:129:4>>*/ return  /*<<random.ml:129:25>>*/ caml_int64_to_int32
+     /*<<random.ml:129:25>>*/ return caml_int64_to_int32
             ( /*<<random.ml:129:17>>*/ caml_lxm_next(s))
            & 1073741823 /*<<random.ml:129:25>>*/ ;
     /*<<random.ml:129:40>>*/ }
    function int_aux(s, n, mask){
-     /*<<random.ml:138:4>>*/ for(;;){
+     /*<<random.ml:138:25>>*/ for(;;){
      var
       r =
          /*<<random.ml:138:33>>*/ caml_int64_to_int32
@@ -25930,11 +25941,11 @@
             (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
    }
    function bits32(s){
-     /*<<random.ml:223:4>>*/ return caml_int64_to_int32
+     /*<<random.ml:223:27>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
             ( /*<<random.ml:223:19>>*/ caml_lxm_next(s)) /*<<random.ml:223:27>>*/ ;
    }
    function int32aux(s, n){
-     /*<<random.ml:227:4>>*/ for(;;){
+     /*<<random.ml:227:38>>*/ for(;;){
      var
       r =
          /*<<random.ml:227:12>>*/  /*<<random.ml:227:38>>*/ bits32(s) >>> 1
@@ -25948,13 +25959,13 @@
     }
     /*<<random.ml:232:10>>*/ }
    function int32(s, bound){
-     /*<<random.ml:235:4>>*/ return  /*<<random.ml:235:7>>*/ caml_lessequal
+     /*<<random.ml:235:18>>*/ return  /*<<random.ml:235:7>>*/ caml_lessequal
              (bound, 0)
             ?  /*<<random.ml:236:9>>*/ caml_call1(Stdlib[1], cst_Random_int32)
             :  /*<<random.ml:237:9>>*/ int32aux(s, bound) /*<<random.ml:237:25>>*/ ;
    }
    function int32_in_range(s, min, max){
-     /*<<random.ml:246:4>>*/ if
+     /*<<random.ml:246:16>>*/ if
      ( /*<<random.ml:246:7>>*/ caml_greaterthan(min, max))
       /*<<random.ml:247:6>>*/ return caml_call1
              (Stdlib[1], cst_Random_int32_in_range) /*<<random.ml:254:39>>*/ ;
@@ -25979,13 +25990,13 @@
     }
     /*<<random.ml:254:39>>*/ }
    var
-    bits64 = caml_lxm_next,
+    bits64 =  /*<<?>>*/ caml_lxm_next,
     _f_ = runtime.caml_int64_create_lo_mi_hi(1, 0, 0),
     _g_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
     cst_Random_int64 = "Random.int64",
     cst_Random_int64_in_range = "Random.int64_in_range";
    function int64aux(s, n){
-     /*<<random.ml:262:4>>*/ for(;;){
+     /*<<random.ml:262:38>>*/ for(;;){
      var
       r =
          /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
@@ -26001,13 +26012,13 @@
     }
     /*<<random.ml:267:10>>*/ }
    function int64(s, bound){
-     /*<<random.ml:270:4>>*/ return  /*<<random.ml:270:7>>*/ caml_lessequal
+     /*<<random.ml:270:18>>*/ return  /*<<random.ml:270:7>>*/ caml_lessequal
              (bound, _g_)
             ?  /*<<random.ml:271:9>>*/ caml_call1(Stdlib[1], cst_Random_int64)
             :  /*<<random.ml:272:9>>*/ int64aux(s, bound) /*<<random.ml:272:25>>*/ ;
    }
    function int64_in_range(s, min, max){
-     /*<<random.ml:281:4>>*/ if
+     /*<<random.ml:281:16>>*/ if
      ( /*<<random.ml:281:7>>*/ caml_greaterthan(min, max))
       /*<<random.ml:282:6>>*/ return caml_call1
              (Stdlib[1], cst_Random_int64_in_range) /*<<random.ml:289:39>>*/ ;
@@ -26029,7 +26040,8 @@
     }
     /*<<random.ml:289:39>>*/ }
    var
-    _j_ = runtime.caml_int64_create_lo_mi_hi(14371852, 15349651, 22696),
+    _j_ =
+       /*<<?>>*/ runtime.caml_int64_create_lo_mi_hi(14371852, 15349651, 22696),
     _k_ = runtime.caml_int64_create_lo_mi_hi(12230193, 11438743, 35013),
     _l_ = runtime.caml_int64_create_lo_mi_hi(1424933, 15549263, 2083),
     _m_ = runtime.caml_int64_create_lo_mi_hi(9492471, 4696708, 43520),
@@ -26039,36 +26051,36 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s){
-          /*<<random.ml:294:18>>*/ return  /*<<random.ml:294:37>>*/ bits32(s) /*<<random.ml:294:47>>*/ ;
+          /*<<random.ml:294:47>>*/ return  /*<<random.ml:294:37>>*/ bits32(s) /*<<random.ml:294:47>>*/ ;
         }
        : function
         (s){
-          /*<<random.ml:295:18>>*/ return caml_int64_to_int32
+          /*<<random.ml:295:47>>*/ return  /*<<random.ml:295:18>>*/ caml_int64_to_int32
                  ( /*<<random.ml:258:4>>*/ caml_lxm_next(s)) /*<<random.ml:295:47>>*/ ;
         },
     nativeint =
-      32 === Stdlib_Nativeint[9]
+       /*<<?>>*/ 32 === Stdlib_Nativeint[9]
        ? function
         (s, bound){
-          /*<<random.ml:300:24>>*/ return  /*<<random.ml:300:43>>*/ int32
+          /*<<random.ml:300:79>>*/ return  /*<<random.ml:300:43>>*/ int32
                  (s, bound) /*<<random.ml:300:79>>*/ ;
         }
        : function
         (s, bound){
-          /*<<random.ml:301:24>>*/ return caml_int64_to_int32
+          /*<<random.ml:301:79>>*/ return  /*<<random.ml:301:24>>*/ caml_int64_to_int32
                  ( /*<<random.ml:301:43>>*/ int64
                    (s,  /*<<random.ml:301:52>>*/ caml_int64_of_int32(bound))) /*<<random.ml:301:79>>*/ ;
         },
     nativeint_in_range =
-      32 === Stdlib_Nativeint[9]
+       /*<<?>>*/ 32 === Stdlib_Nativeint[9]
        ? function
         (s, min, max){
-          /*<<random.ml:307:6>>*/ return  /*<<random.ml:307:25>>*/ int32_in_range
+          /*<<random.ml:308:68>>*/ return  /*<<random.ml:307:25>>*/ int32_in_range
                  (s, min, max) /*<<random.ml:308:68>>*/ ;
         }
        : function
         (s, min, max){
-          /*<<random.ml:310:6>>*/ return caml_int64_to_int32
+          /*<<random.ml:311:68>>*/ return  /*<<random.ml:310:6>>*/ caml_int64_to_int32
                  ( /*<<random.ml:310:25>>*/ int64_in_range
                    (s,
                      /*<<random.ml:311:13>>*/ caml_int64_of_int32(min),
@@ -26088,7 +26100,8 @@
     }
    }
    function bool(s){
-     /*<<random.ml:324:15>>*/ return caml_lessthan(caml_lxm_next(s), _i_) /*<<random.ml:324:26>>*/ ;
+     /*<<random.ml:324:26>>*/ return  /*<<random.ml:324:15>>*/ caml_lessthan
+            (caml_lxm_next(s), _i_) /*<<random.ml:324:26>>*/ ;
    }
    function split(s){
     var
@@ -26106,81 +26119,81 @@
        /*<<random.ml:341:2>>*/ caml_call2
        (Stdlib_Domain[10][1], [0, split], mk_default);
    function bits$0(param){
-     /*<<random.ml:343:14>>*/ return  /*<<random.ml:343:52>>*/ bits
+     /*<<random.ml:343:52>>*/ return bits
             ( /*<<random.ml:343:25>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
    }
    function int$1(bound){
-     /*<<random.ml:344:16>>*/ return  /*<<random.ml:344:53>>*/ int$0
+     /*<<random.ml:344:53>>*/ return int$0
             ( /*<<random.ml:344:26>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:344:59>>*/ ;
    }
    function full_int$0(bound){
-     /*<<random.ml:345:21>>*/ return  /*<<random.ml:345:63>>*/ full_int
+     /*<<random.ml:345:63>>*/ return full_int
             ( /*<<random.ml:345:36>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:345:69>>*/ ;
    }
    function int_in_range$0(min, max){
-     /*<<random.ml:347:2>>*/ return  /*<<random.ml:347:48>>*/ int_in_range
+     /*<<random.ml:347:48>>*/ return int_in_range
             ( /*<<random.ml:347:21>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:347:58>>*/ ;
    }
    function int32$0(bound){
-     /*<<random.ml:348:18>>*/ return  /*<<random.ml:348:57>>*/ int32
+     /*<<random.ml:348:57>>*/ return int32
             ( /*<<random.ml:348:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:348:63>>*/ ;
    }
    function int32_in_range$0(min, max){
-     /*<<random.ml:350:2>>*/ return  /*<<random.ml:350:50>>*/ int32_in_range
+     /*<<random.ml:350:50>>*/ return int32_in_range
             ( /*<<random.ml:350:23>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:350:60>>*/ ;
    }
    function nativeint$0(bound){
-     /*<<random.ml:351:22>>*/ return  /*<<random.ml:351:65>>*/ nativeint
+     /*<<random.ml:351:65>>*/ return nativeint
             ( /*<<random.ml:351:38>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:351:71>>*/ ;
    }
    function nativeint_in_range$0(min, max){
-     /*<<random.ml:353:2>>*/ return  /*<<random.ml:353:54>>*/ nativeint_in_range
+     /*<<random.ml:353:54>>*/ return nativeint_in_range
             ( /*<<random.ml:353:27>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:353:64>>*/ ;
    }
    function int64$0(bound){
-     /*<<random.ml:354:18>>*/ return  /*<<random.ml:354:57>>*/ int64
+     /*<<random.ml:354:57>>*/ return int64
             ( /*<<random.ml:354:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:354:63>>*/ ;
    }
    function int64_in_range$0(min, max){
-     /*<<random.ml:356:2>>*/ return  /*<<random.ml:356:50>>*/ int64_in_range
+     /*<<random.ml:356:50>>*/ return int64_in_range
             ( /*<<random.ml:356:23>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:356:60>>*/ ;
    }
    function float$1(scale){
-     /*<<random.ml:357:18>>*/ return  /*<<random.ml:357:57>>*/ float$0
+     /*<<random.ml:357:57>>*/ return float$0
             ( /*<<random.ml:357:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              scale) /*<<random.ml:357:63>>*/ ;
    }
    function bool$0(param){
-     /*<<random.ml:358:14>>*/ return  /*<<random.ml:358:52>>*/ bool
+     /*<<random.ml:358:52>>*/ return bool
             ( /*<<random.ml:358:25>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
    }
    function bits32$0(param){
-     /*<<random.ml:359:16>>*/ return  /*<<random.ml:359:56>>*/ bits32
+     /*<<random.ml:359:56>>*/ return bits32
             ( /*<<random.ml:359:29>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
    }
@@ -26191,12 +26204,12 @@
      /*<<random.ml:258:10>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s) /*<<random.ml:360:56>>*/ ;
    }
    function nativebits$0(param){
-     /*<<random.ml:361:20>>*/ return  /*<<random.ml:361:64>>*/ nativebits
+     /*<<random.ml:361:64>>*/ return nativebits
             ( /*<<random.ml:361:37>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
    }
    function full_init(seed){
-     /*<<random.ml:363:21>>*/ return  /*<<random.ml:363:61>>*/ reinit
+     /*<<random.ml:363:61>>*/ return reinit
             ( /*<<random.ml:363:34>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              seed) /*<<random.ml:363:66>>*/ ;
@@ -26205,16 +26218,16 @@
      /*<<random.ml:364:16>>*/ return full_init([0, seed]) /*<<random.ml:364:36>>*/ ;
    }
    function self_init(param){
-     /*<<random.ml:365:19>>*/ return  /*<<random.ml:365:44>>*/ full_init
+     /*<<random.ml:365:44>>*/ return full_init
             ( /*<<random.ml:365:29>>*/ caml_sys_random_seed(0)) /*<<random.ml:365:44>>*/ ;
    }
    function split$0(param){
-     /*<<random.ml:369:15>>*/ return  /*<<random.ml:369:54>>*/ split
+     /*<<random.ml:369:54>>*/ return split
             ( /*<<random.ml:369:27>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
    }
    function get_state(param){
-     /*<<random.ml:373:19>>*/ return  /*<<random.ml:373:57>>*/ copy
+     /*<<random.ml:373:57>>*/ return copy
             ( /*<<random.ml:373:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
    }
@@ -26335,7 +26348,8 @@
     return 0;
     /*<<hashtbl.ml:45:36>>*/ }
    var
-    cst_Hashtbl_unsupported_hash_t = "Hashtbl: unsupported hash table format";
+    cst_Hashtbl_unsupported_hash_t =
+       /*<<?>>*/ "Hashtbl: unsupported hash table format";
    try{
     var
      _f_ =  /*<<hashtbl.ml:51:8>>*/ caml_sys_getenv("OCAMLRUNPARAM"),
@@ -26376,10 +26390,9 @@
        /*<<hashtbl.ml:60:15>>*/ caml_call2
        (Stdlib_Domain[10][1], 0, Stdlib_Random[19][2]);
    function power_2_above(x, n){
-    var x$0 = x;
+    var x$0 =  /*<<hashtbl.ml:69:2>>*/ x;
     for(;;){
-      /*<<hashtbl.ml:69:2>>*/ if(n <= x$0)
-       /*<<hashtbl.ml:69:17>>*/ return x$0;
+     if(n <= x$0)  /*<<hashtbl.ml:69:17>>*/ return x$0;
       /*<<hashtbl.ml:70:7>>*/ if(Stdlib_Sys[13] < (x$0 * 2 | 0))
        /*<<hashtbl.ml:70:44>>*/ return x$0;
      var x$1 =  /*<<hashtbl.ml:71:7>>*/ x$0 * 2 | 0;
@@ -26687,10 +26700,9 @@
     }
     /*<<hashtbl.ml:226:13>>*/ }
    function bucket_length(accu, param){
-    var accu$0 = accu, param$0 = param;
+    var accu$0 =  /*<<hashtbl.ml:235:22>>*/ accu, param$0 = param;
     for(;;){
-      /*<<hashtbl.ml:235:22>>*/ if(! param$0)
-       /*<<hashtbl.ml:236:13>>*/ return accu$0;
+     if(! param$0)  /*<<hashtbl.ml:236:13>>*/ return accu$0;
      var
       next =  /*<<hashtbl.ml:235:22>>*/ param$0[3],
       accu$1 =  /*<<hashtbl.ml:237:18>>*/ accu$0 + 1 | 0;
@@ -26724,9 +26736,9 @@
    function to_seq(tbl){
     var tbl_data =  /*<<hashtbl.ml:258:2>>*/ tbl[2];
     function aux(i, buck, param){
-     var i$0 = i, buck$0 = buck;
+     var i$0 =  /*<<hashtbl.ml:260:26>>*/ i, buck$0 = buck;
      for(;;){
-       /*<<hashtbl.ml:260:26>>*/ if(buck$0){
+      if(buck$0){
        var key = buck$0[1], data = buck$0[2], next = buck$0[3];
         /*<<hashtbl.ml:266:41>>*/ return [0,
                [0, key, data],
@@ -27011,7 +27023,7 @@
       /*<<hashtbl.ml:467:6>>*/ replace_seq(tbl, i);
       /*<<hashtbl.ml:467:23>>*/ return tbl;
      /*<<hashtbl.ml:468:9>>*/ }
-    return [0,
+     /*<<?>>*/ return [0,
             create,
             clear,
             reset,
@@ -27041,7 +27053,7 @@
       /*<<hashtbl.ml:485:41>>*/ return caml_call1(H[2], x) /*<<hashtbl.ml:485:49>>*/ ;
     }
     var
-     include = MakeSeeded([0, equal, seeded_hash]),
+     include =  /*<<?>>*/ MakeSeeded([0, equal, seeded_hash]),
      _s_ = include[1],
      clear = include[2],
      reset = include[3],
@@ -27071,7 +27083,7 @@
       /*<<hashtbl.ml:490:6>>*/ caml_call2(replace_seq, tbl, i);
       /*<<hashtbl.ml:490:23>>*/ return tbl;
      /*<<hashtbl.ml:491:9>>*/ }
-    return [0,
+     /*<<?>>*/ return [0,
             create,
             clear,
             reset,
@@ -27096,13 +27108,16 @@
             of_seq];
    }
    function hash(x){
-     /*<<hashtbl.ml:501:13>>*/ return caml_hash(10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
+     /*<<hashtbl.ml:501:41>>*/ return  /*<<hashtbl.ml:501:13>>*/ caml_hash
+            (10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
    }
    function hash_param(n1, n2, x){
-     /*<<hashtbl.ml:502:25>>*/ return caml_hash(n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
+     /*<<hashtbl.ml:502:52>>*/ return  /*<<hashtbl.ml:502:25>>*/ caml_hash
+            (n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<hashtbl.ml:503:25>>*/ return caml_hash(10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
+     /*<<hashtbl.ml:503:56>>*/ return  /*<<hashtbl.ml:503:25>>*/ caml_hash
+            (10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
    }
    function key_index(h, key){
      /*<<hashtbl.ml:506:2>>*/ return 4 <= h.length - 1
@@ -27598,7 +27613,7 @@
       /*<<weak.ml:149:36>>*/ return caml_call3
              (Stdlib_Array[20],
               function(b, accu$1){
-               var i$0 = i, accu = accu$1;
+               var i$0 =  /*<<?>>*/ i, accu = accu$1;
                for(;;){
                  /*<<weak.ml:144:22>>*/ if
                  ( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
@@ -27624,7 +27639,7 @@
       /*<<weak.ml:159:30>>*/ return caml_call2
              (Stdlib_Array[12],
               function(b){
-               var i$0 = i;
+               var i$0 =  /*<<?>>*/ i;
                for(;;){
                  /*<<weak.ml:154:22>>*/ if
                  ( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
@@ -27643,7 +27658,7 @@
               t[1]) /*<<weak.ml:159:38>>*/ ;
     }
     function count_bucket(i, b, accu){
-     var i$0 = i, accu$0 = accu;
+     var i$0 =  /*<<weak.ml:173:12>>*/ i, accu$0 = accu;
      for(;;){
        /*<<weak.ml:173:20>>*/ if( /*<<weak.ml:173:12>>*/ length(b) <= i$0)
         /*<<weak.ml:173:26>>*/ return accu$0;
@@ -27789,7 +27804,7 @@
        /*<<weak.ml:169:31>>*/ caml_call2
        (Stdlib_Array[13],
         function(j, ob){
-         var oi = i;
+         var oi =  /*<<?>>*/ i;
          for(;;){
            /*<<weak.ml:164:22>>*/ if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
             /*<<weak.ml:164:28>>*/ return 0;
@@ -27988,10 +28003,19 @@
    }
    var
     Stdlib_Weak =
-      [0, create, length, set, get, get_copy, check, fill, blit, Make];
+       /*<<?>>*/ [0,
+       create,
+       length,
+       set,
+       get,
+       get_copy,
+       check,
+       fill,
+       blit,
+       Make];
    runtime.caml_register_global(13, Stdlib_Weak, "Stdlib__Weak");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Format
@@ -28059,7 +28083,7 @@
     Stdlib_Bytes = global_data.Stdlib__Bytes;
    function id(x){ /*<<format.ml:23:11>>*/ return x; /*<<format.ml:23:12>>*/ }
    var
-    zero = 0,
+    zero =  /*<<?>>*/ 0,
     unknown = -1,
     String_tag =
       [248, "Stdlib.Format.String_tag", runtime.caml_fresh_oo_id(0)];
@@ -28069,7 +28093,7 @@
             (Stdlib_Queue[3], token, state[28]) /*<<format.ml:220:32>>*/ ;
    }
    var
-    pp_infinity = 1000000010,
+    pp_infinity =  /*<<?>>*/ 1000000010,
     _b_ = [0, cst$16],
     _c_ = [1, "margin <= max_indent"],
     _d_ = [1, "margin >= pp_infinity"],
@@ -28348,7 +28372,7 @@
      /*<<format.ml:445:52>>*/ return advance_left(state) /*<<format.ml:445:72>>*/ ;
    }
    function enqueue_string_as(state, size, s){
-     /*<<format.ml:450:2>>*/ return  /*<<format.ml:450:76>>*/ enqueue_advance
+     /*<<format.ml:450:76>>*/ return enqueue_advance
             (state, [0, size, [0, s], size]) /*<<format.ml:450:78>>*/ ;
    }
    function initialize_scan_stack(stack){
@@ -28491,7 +28515,7 @@
     return 0;
     /*<<format.ml:586:33>>*/ }
    function pp_rinit(state){
-     /*<<format.ml:591:2>>*/ state[12] = 1;
+     /*<<format.ml:224:2>>*/ state[12] = 1;
      /*<<format.ml:224:28>>*/ state[13] = 1;
      /*<<format.ml:225:2>>*/ caml_call1(Stdlib_Queue[11], state[28]);
      /*<<format.ml:592:2>>*/ initialize_scan_stack(state[1]);
@@ -28505,7 +28529,7 @@
      /*<<format.ml:523:28>>*/ return pp_open_box_gen(state, 0, 3) /*<<format.ml:600:23>>*/ ;
    }
    function pp_flush_queue(state, end_with_newline){
-     /*<<format.ml:608:2>>*/  /*<<format.ml:603:2>>*/ caml_call2
+     /*<<format.ml:603:2>>*/ caml_call2
      (Stdlib_Stack[13],
       function(param){
         /*<<format.ml:603:23>>*/ return pp_close_stag(state, 0) /*<<format.ml:603:45>>*/ ;
@@ -28529,8 +28553,7 @@
             : _aY_ /*<<format.ml:626:37>>*/ ;
    }
    function pp_print_as(state, isize, s){
-     /*<<format.ml:630:2>>*/ return  /*<<format.ml:630:44>>*/ pp_print_as_size
-            (state, isize, s) /*<<format.ml:630:46>>*/ ;
+     /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, s) /*<<format.ml:630:46>>*/ ;
    }
    function pp_print_string(state, s){
     var isize =  /*<<format.ml:634:2>>*/ caml_ml_string_length(s);
@@ -28543,15 +28566,15 @@
      /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, s$0) /*<<format.ml:637:56>>*/ ;
    }
    function pp_print_int(state, i){
-     /*<<format.ml:640:27>>*/ return  /*<<format.ml:640:66>>*/ pp_print_string
+     /*<<format.ml:640:66>>*/ return pp_print_string
             (state,  /*<<format.ml:640:49>>*/ caml_call1(Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
    }
    function pp_print_float(state, f){
-     /*<<format.ml:643:29>>*/ return  /*<<format.ml:643:70>>*/ pp_print_string
+     /*<<format.ml:643:70>>*/ return pp_print_string
             (state,  /*<<format.ml:643:51>>*/ caml_call1(Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
    }
    function pp_print_bool(state, b){
-     /*<<format.ml:646:28>>*/ return  /*<<format.ml:646:68>>*/ pp_print_string
+     /*<<format.ml:646:68>>*/ return pp_print_string
             (state,  /*<<format.ml:646:50>>*/ caml_call1(Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
    }
    function pp_print_char(state, c){
@@ -28724,7 +28747,7 @@
             : _f_ /*<<format.ml:826:12>>*/ ;
    }
    function check_geometry(geometry){
-     /*<<format.ml:829:2>>*/ return 0
+     /*<<format.ml:829:34>>*/ return 0
             ===  /*<<format.ml:829:8>>*/ validate_geometry(geometry)[0]
             ? 1
             : 0 /*<<format.ml:831:20>>*/ ;
@@ -28760,7 +28783,7 @@
             : 0 /*<<format.ml:854:39>>*/ ;
    }
    function pp_get_geometry(state, param){
-     /*<<format.ml:857:2>>*/ return [0, state[8], state[6]] /*<<format.ml:857:76>>*/ ;
+     /*<<format.ml:857:76>>*/ return [0, state[8], state[6]];
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
     var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
@@ -28803,11 +28826,11 @@
    var
     blank_line =
        /*<<format.ml:898:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
-    _g_ = [3, 0, 3];
+    _g_ =  /*<<?>>*/ [3, 0, 3];
    function display_blanks(state, n){
-    var n$0 = n;
+    var n$0 =  /*<<format.ml:900:2>>*/ n;
     for(;;){
-     var _aH_ =  /*<<format.ml:900:2>>*/ 0 < n$0 ? 1 : 0;
+     var _aH_ = 0 < n$0 ? 1 : 0;
      if(! _aH_) return _aH_;
       /*<<format.ml:901:2>>*/ if(80 >= n$0)
        /*<<format.ml:901:18>>*/ return caml_call3
@@ -28818,7 +28841,7 @@
     }
     /*<<format.ml:905:5>>*/ }
    function pp_set_formatter_out_channel(state, oc){
-     /*<<format.ml:914:2>>*/ state[17] =
+     /*<<format.ml:914:44>>*/ state[17] =
       /*<<format.ml:914:25>>*/ caml_call1(Stdlib[69], oc);
      /*<<format.ml:915:2>>*/ state[18] =
      function(param){
@@ -28917,14 +28940,14 @@
      /*<<format.ml:998:2>>*/ return ppf;
     /*<<format.ml:998:5>>*/ }
    function formatter_of_out_channel(oc){
-     /*<<format.ml:1003:2>>*/ return  /*<<format.ml:1003:38>>*/ make_formatter
+     /*<<format.ml:1003:38>>*/ return make_formatter
             ( /*<<format.ml:1003:17>>*/ caml_call1(Stdlib[69], oc),
              function(param){
                /*<<format.ml:1003:50>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
              }) /*<<format.ml:1003:59>>*/ ;
    }
    function formatter_of_buffer(b){
-     /*<<format.ml:1008:2>>*/ return  /*<<format.ml:1008:41>>*/ make_formatter
+     /*<<format.ml:1008:41>>*/ return make_formatter
             ( /*<<format.ml:1008:17>>*/ caml_call1(Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
    }
@@ -28951,7 +28974,7 @@
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1033:2>>*/ return  /*<<format.ml:1033:42>>*/ formatter_of_buffer
+          /*<<format.ml:1033:42>>*/ return formatter_of_buffer
                  ( /*<<format.ml:1033:22>>*/ caml_call1
                    (Stdlib_Domain[10][2], stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
         });
@@ -29112,7 +29135,7 @@
              }) /*<<format.ml:1104:34>>*/ ;
    }
    function synchronized_formatter_of_out_(oc){
-     /*<<format.ml:1107:2>>*/ return  /*<<format.ml:1107:51>>*/ make_synchronized_formatter
+     /*<<format.ml:1107:51>>*/ return make_synchronized_formatter
             ( /*<<format.ml:1107:30>>*/ caml_call1(Stdlib[69], oc),
              function(param){
                /*<<format.ml:1107:63>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:1107:71>>*/ ;
@@ -29159,49 +29182,49 @@
      /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
    }
    function open_hbox(v){
-     /*<<format.ml:1176:18>>*/ return  /*<<format.ml:1176:58>>*/ pp_open_hbox
+     /*<<format.ml:1176:58>>*/ return pp_open_hbox
             ( /*<<format.ml:1176:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1176:60>>*/ ;
    }
    function open_vbox(v){
-     /*<<format.ml:1177:18>>*/ return  /*<<format.ml:1177:58>>*/ pp_open_vbox
+     /*<<format.ml:1177:58>>*/ return pp_open_vbox
             ( /*<<format.ml:1177:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1177:60>>*/ ;
    }
    function open_hvbox(v){
-     /*<<format.ml:1178:19>>*/ return  /*<<format.ml:1178:60>>*/ pp_open_hvbox
+     /*<<format.ml:1178:60>>*/ return pp_open_hvbox
             ( /*<<format.ml:1178:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1178:62>>*/ ;
    }
    function open_hovbox(v){
-     /*<<format.ml:1179:20>>*/ return  /*<<format.ml:1179:62>>*/ pp_open_hovbox
+     /*<<format.ml:1179:62>>*/ return pp_open_hovbox
             ( /*<<format.ml:1179:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1179:64>>*/ ;
    }
    function open_box(v){
-     /*<<format.ml:1180:17>>*/ return  /*<<format.ml:1180:56>>*/ pp_open_box
+     /*<<format.ml:1180:56>>*/ return pp_open_box
             ( /*<<format.ml:1180:29>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1180:58>>*/ ;
    }
    function close_box(v){
-     /*<<format.ml:1181:18>>*/ return  /*<<format.ml:1181:58>>*/ pp_close_box
+     /*<<format.ml:1181:58>>*/ return pp_close_box
             ( /*<<format.ml:1181:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1181:60>>*/ ;
    }
    function open_stag(v){
-     /*<<format.ml:1182:18>>*/ return  /*<<format.ml:1182:58>>*/ pp_open_stag
+     /*<<format.ml:1182:58>>*/ return pp_open_stag
             ( /*<<format.ml:1182:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1182:60>>*/ ;
    }
    function close_stag(v){
-     /*<<format.ml:1183:19>>*/ return  /*<<format.ml:1183:60>>*/ pp_close_stag
+     /*<<format.ml:1183:60>>*/ return pp_close_stag
             ( /*<<format.ml:1183:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1183:62>>*/ ;
@@ -29214,117 +29237,117 @@
      /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, w) /*<<format.ml:1184:62>>*/ ;
    }
    function print_string(v){
-     /*<<format.ml:1185:21>>*/ return  /*<<format.ml:1185:64>>*/ pp_print_string
+     /*<<format.ml:1185:64>>*/ return pp_print_string
             ( /*<<format.ml:1185:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1185:66>>*/ ;
    }
    function print_bytes(v){
-     /*<<format.ml:1186:20>>*/ return  /*<<format.ml:1186:62>>*/ pp_print_bytes
+     /*<<format.ml:1186:62>>*/ return pp_print_bytes
             ( /*<<format.ml:1186:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1186:64>>*/ ;
    }
    function print_int(v){
-     /*<<format.ml:1187:18>>*/ return  /*<<format.ml:1187:58>>*/ pp_print_int
+     /*<<format.ml:1187:58>>*/ return pp_print_int
             ( /*<<format.ml:1187:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1187:60>>*/ ;
    }
    function print_float(v){
-     /*<<format.ml:1188:20>>*/ return  /*<<format.ml:1188:62>>*/ pp_print_float
+     /*<<format.ml:1188:62>>*/ return pp_print_float
             ( /*<<format.ml:1188:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1188:64>>*/ ;
    }
    function print_char(v){
-     /*<<format.ml:1189:19>>*/ return  /*<<format.ml:1189:60>>*/ pp_print_char
+     /*<<format.ml:1189:60>>*/ return pp_print_char
             ( /*<<format.ml:1189:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1189:62>>*/ ;
    }
    function print_bool(v){
-     /*<<format.ml:1190:19>>*/ return  /*<<format.ml:1190:60>>*/ pp_print_bool
+     /*<<format.ml:1190:60>>*/ return pp_print_bool
             ( /*<<format.ml:1190:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1190:62>>*/ ;
    }
    function print_break(v, w){
-     /*<<format.ml:1191:22>>*/ return  /*<<format.ml:1191:64>>*/ pp_print_break
+     /*<<format.ml:1191:64>>*/ return pp_print_break
             ( /*<<format.ml:1191:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1191:68>>*/ ;
    }
    function print_cut(v){
-     /*<<format.ml:1192:18>>*/ return  /*<<format.ml:1192:58>>*/ pp_print_cut
+     /*<<format.ml:1192:58>>*/ return pp_print_cut
             ( /*<<format.ml:1192:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1192:60>>*/ ;
    }
    function print_space(v){
-     /*<<format.ml:1193:20>>*/ return  /*<<format.ml:1193:62>>*/ pp_print_space
+     /*<<format.ml:1193:62>>*/ return pp_print_space
             ( /*<<format.ml:1193:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1193:64>>*/ ;
    }
    function force_newline(v){
-     /*<<format.ml:1194:22>>*/ return  /*<<format.ml:1194:66>>*/ pp_force_newline
+     /*<<format.ml:1194:66>>*/ return pp_force_newline
             ( /*<<format.ml:1194:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1194:68>>*/ ;
    }
    function print_flush(v){
-     /*<<format.ml:1195:20>>*/ return  /*<<format.ml:1195:62>>*/ pp_print_flush
+     /*<<format.ml:1195:62>>*/ return pp_print_flush
             ( /*<<format.ml:1195:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1195:64>>*/ ;
    }
    function print_newline(v){
-     /*<<format.ml:1196:22>>*/ return  /*<<format.ml:1196:66>>*/ pp_print_newline
+     /*<<format.ml:1196:66>>*/ return pp_print_newline
             ( /*<<format.ml:1196:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1196:68>>*/ ;
    }
    function print_if_newline(v){
-     /*<<format.ml:1197:25>>*/ return  /*<<format.ml:1197:72>>*/ pp_print_if_newline
+     /*<<format.ml:1197:72>>*/ return pp_print_if_newline
             ( /*<<format.ml:1197:45>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1197:74>>*/ ;
    }
    function open_tbox(v){
-     /*<<format.ml:1199:18>>*/ return  /*<<format.ml:1199:58>>*/ pp_open_tbox
+     /*<<format.ml:1199:58>>*/ return pp_open_tbox
             ( /*<<format.ml:1199:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1199:60>>*/ ;
    }
    function close_tbox(v){
-     /*<<format.ml:1200:19>>*/ return  /*<<format.ml:1200:60>>*/ pp_close_tbox
+     /*<<format.ml:1200:60>>*/ return pp_close_tbox
             ( /*<<format.ml:1200:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1200:62>>*/ ;
    }
    function print_tbreak(v, w){
-     /*<<format.ml:1201:23>>*/ return  /*<<format.ml:1201:66>>*/ pp_print_tbreak
+     /*<<format.ml:1201:66>>*/ return pp_print_tbreak
             ( /*<<format.ml:1201:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1201:70>>*/ ;
    }
    function set_tab(v){
-     /*<<format.ml:1203:16>>*/ return  /*<<format.ml:1203:54>>*/ pp_set_tab
+     /*<<format.ml:1203:54>>*/ return pp_set_tab
             ( /*<<format.ml:1203:27>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1203:56>>*/ ;
    }
    function print_tab(v){
-     /*<<format.ml:1204:18>>*/ return  /*<<format.ml:1204:58>>*/ pp_print_tab
+     /*<<format.ml:1204:58>>*/ return pp_print_tab
             ( /*<<format.ml:1204:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1204:60>>*/ ;
    }
    function set_margin(v){
-     /*<<format.ml:1206:19>>*/ return  /*<<format.ml:1206:60>>*/ pp_set_margin
+     /*<<format.ml:1206:60>>*/ return pp_set_margin
             ( /*<<format.ml:1206:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1206:62>>*/ ;
@@ -29337,7 +29360,7 @@
      /*<<format.ml:833:29>>*/ return state[6];
     /*<<format.ml:1207:62>>*/ }
    function set_max_indent(v){
-     /*<<format.ml:1209:23>>*/ return  /*<<format.ml:1209:68>>*/ pp_set_max_indent
+     /*<<format.ml:1209:68>>*/ return pp_set_max_indent
             ( /*<<format.ml:1209:41>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1209:70>>*/ ;
@@ -29350,33 +29373,33 @@
      /*<<format.ml:797:33>>*/ return state[8];
     /*<<format.ml:1210:70>>*/ }
    function set_geometry(max_indent, margin){
-     /*<<format.ml:1213:2>>*/ return  /*<<format.ml:1213:45>>*/ pp_set_geometry
+     /*<<format.ml:1213:45>>*/ return pp_set_geometry
             ( /*<<format.ml:1213:18>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1213:65>>*/ ;
    }
    function safe_set_geometry(max_indent, margin){
-     /*<<format.ml:1215:2>>*/ return  /*<<format.ml:1215:50>>*/ pp_safe_set_geometry
+     /*<<format.ml:1215:50>>*/ return pp_safe_set_geometry
             ( /*<<format.ml:1215:23>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1215:70>>*/ ;
    }
    function get_geometry(v){
-     /*<<format.ml:1216:21>>*/ return  /*<<format.ml:1216:64>>*/ pp_get_geometry
+     /*<<format.ml:1216:64>>*/ return pp_get_geometry
             ( /*<<format.ml:1216:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1216:66>>*/ ;
    }
    function update_geometry(v){
-     /*<<format.ml:1217:24>>*/ return  /*<<format.ml:1217:70>>*/ pp_update_geometry
+     /*<<format.ml:1217:70>>*/ return pp_update_geometry
             ( /*<<format.ml:1217:43>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1217:72>>*/ ;
    }
    function set_max_boxes(v){
-     /*<<format.ml:1219:22>>*/ return  /*<<format.ml:1219:66>>*/ pp_set_max_boxes
+     /*<<format.ml:1219:66>>*/ return pp_set_max_boxes
             ( /*<<format.ml:1219:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1219:68>>*/ ;
@@ -29389,13 +29412,13 @@
      /*<<format.ml:766:32>>*/ return state[15];
     /*<<format.ml:1220:68>>*/ }
    function over_max_boxes(v){
-     /*<<format.ml:1221:23>>*/ return  /*<<format.ml:1221:68>>*/ pp_over_max_boxes
+     /*<<format.ml:1221:68>>*/ return pp_over_max_boxes
             ( /*<<format.ml:1221:41>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1221:70>>*/ ;
    }
    function set_ellipsis_text(v){
-     /*<<format.ml:1223:26>>*/ return  /*<<format.ml:1223:74>>*/ pp_set_ellipsis_text
+     /*<<format.ml:1223:74>>*/ return pp_set_ellipsis_text
             ( /*<<format.ml:1223:47>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1223:76>>*/ ;
@@ -29408,50 +29431,50 @@
      /*<<format.ml:772:36>>*/ return state[16];
     /*<<format.ml:1224:76>>*/ }
    function set_formatter_out_channel(v){
-     /*<<format.ml:1227:2>>*/ return  /*<<format.ml:1227:58>>*/ pp_set_formatter_out_channel
+     /*<<format.ml:1227:58>>*/ return pp_set_formatter_out_channel
             ( /*<<format.ml:1227:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1227:60>>*/ ;
    }
    function set_formatter_out_functions(v){
-     /*<<format.ml:1230:2>>*/ return  /*<<format.ml:1230:60>>*/ pp_set_formatter_out_functions
+     /*<<format.ml:1230:60>>*/ return pp_set_formatter_out_functions
             ( /*<<format.ml:1230:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1230:62>>*/ ;
    }
    function get_formatter_out_functions(v){
-     /*<<format.ml:1232:2>>*/ return  /*<<format.ml:1232:60>>*/ pp_get_formatter_out_functions
+     /*<<format.ml:1232:60>>*/ return pp_get_formatter_out_functions
             ( /*<<format.ml:1232:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1232:62>>*/ ;
    }
    function set_formatter_output_functions(v, w){
-     /*<<format.ml:1235:2>>*/ return  /*<<format.ml:1235:63>>*/ pp_set_formatter_output_functi
+     /*<<format.ml:1235:63>>*/ return pp_set_formatter_output_functi
             ( /*<<format.ml:1235:36>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1235:67>>*/ ;
    }
    function get_formatter_output_functions(v){
-     /*<<format.ml:1237:2>>*/ return  /*<<format.ml:1237:63>>*/ pp_get_formatter_output_functi
+     /*<<format.ml:1237:63>>*/ return pp_get_formatter_output_functi
             ( /*<<format.ml:1237:36>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1237:65>>*/ ;
    }
    function set_formatter_stag_functions(v){
-     /*<<format.ml:1240:2>>*/ return  /*<<format.ml:1240:61>>*/ pp_set_formatter_stag_function
+     /*<<format.ml:1240:61>>*/ return pp_set_formatter_stag_function
             ( /*<<format.ml:1240:34>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1240:63>>*/ ;
    }
    function get_formatter_stag_functions(v){
-     /*<<format.ml:1242:2>>*/ return  /*<<format.ml:1242:61>>*/ pp_get_formatter_stag_function
+     /*<<format.ml:1242:61>>*/ return pp_get_formatter_stag_function
             ( /*<<format.ml:1242:34>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1242:63>>*/ ;
    }
    function set_print_tags(v){
-     /*<<format.ml:1244:2>>*/ return  /*<<format.ml:1244:47>>*/ pp_set_print_tags
+     /*<<format.ml:1244:47>>*/ return pp_set_print_tags
             ( /*<<format.ml:1244:20>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1244:49>>*/ ;
@@ -29464,7 +29487,7 @@
      /*<<format.ml:562:33>>*/ return state[22];
     /*<<format.ml:1246:49>>*/ }
    function set_mark_tags(v){
-     /*<<format.ml:1248:2>>*/ return  /*<<format.ml:1248:46>>*/ pp_set_mark_tags
+     /*<<format.ml:1248:46>>*/ return pp_set_mark_tags
             ( /*<<format.ml:1248:19>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1248:48>>*/ ;
@@ -29477,7 +29500,7 @@
      /*<<format.ml:563:32>>*/ return state[23];
     /*<<format.ml:1250:48>>*/ }
    function set_tags(v){
-     /*<<format.ml:1252:2>>*/ return  /*<<format.ml:1252:41>>*/ pp_set_tags
+     /*<<format.ml:1252:41>>*/ return pp_set_tags
             ( /*<<format.ml:1252:14>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1252:43>>*/ ;
@@ -29876,7 +29899,7 @@
      /*<<format.ml:1432:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1433:16>>*/ return  /*<<format.ml:1433:54>>*/ output_acc
+               /*<<format.ml:1433:54>>*/ return output_acc
                       ( /*<<format.ml:1433:27>>*/ caml_call1
                         (Stdlib_Domain[10][2], std_formatter_key),
                        acc) /*<<format.ml:1433:58>>*/ ;
@@ -29889,7 +29912,7 @@
      /*<<format.ml:1437:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1438:16>>*/ return  /*<<format.ml:1438:54>>*/ output_acc
+               /*<<format.ml:1438:54>>*/ return output_acc
                       ( /*<<format.ml:1438:27>>*/ caml_call1
                         (Stdlib_Domain[10][2], err_formatter_key),
                        acc) /*<<format.ml:1438:58>>*/ ;
@@ -30260,7 +30283,7 @@
      /*<<scanf.ml:194:4>>*/ return c;
     /*<<scanf.ml:194:5>>*/ }
    function end_of_input(ib){
-     /*<<scanf.ml:198:4>>*/  /*<<scanf.ml:198:11>>*/ peek_char(ib);
+     /*<<scanf.ml:198:11>>*/ peek_char(ib);
      /*<<scanf.ml:199:4>>*/ return ib[1];
     /*<<scanf.ml:199:13>>*/ }
    function beginning_of_input(ib){
@@ -30299,9 +30322,9 @@
      /*<<scanf.ml:244:4>>*/ caml_call2(Stdlib_Buffer[12], ib[8], c);
      /*<<scanf.ml:244:40>>*/ return ignore_char(width, ib) /*<<scanf.ml:245:24>>*/ ;
    }
-   var default_token_buffer_size = 1024;
+   var default_token_buffer_size =  /*<<?>>*/ 1024;
    function create(iname, next){
-     /*<<scanf.ml:250:26>>*/ return [0,
+     /*<<scanf.ml:258:61>>*/ return [0,
             0,
             null_char,
             0,
@@ -30327,8 +30350,8 @@
      /*<<scanf.ml:270:7>>*/ }
      /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
    }
-   var _a_ = 0;
-   function from_function(_aW_){ /*<<?>>*/ return create(_a_, _aW_);}
+   var _a_ =  /*<<?>>*/ 0;
+   function from_function(_aW_){return create(_a_, _aW_);}
    var len =  /*<<scanf.ml:274:42>>*/ 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/ caml_call1(Stdlib[93], ic);
@@ -30397,7 +30420,7 @@
        "Stdlib.Scanf.Scan_failure",
        runtime.caml_fresh_oo_id(0)],
     _d_ =
-      [0,
+       /*<<?>>*/ [0,
        [11, "illegal escape character ", [1, 0]],
        "illegal escape character %C"],
     _e_ =
@@ -30485,11 +30508,11 @@
            ([0, Scan_failure, s], 1);
     /*<<scanf.ml:405:40>>*/ }
    function bad_input_escape(c){
-     /*<<scanf.ml:408:2>>*/ return  /*<<scanf.ml:408:60>>*/ bad_input
+     /*<<scanf.ml:408:60>>*/ return bad_input
             ( /*<<scanf.ml:408:12>>*/ caml_call2(Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
    }
    function bad_token_length(message){
-     /*<<scanf.ml:412:2>>*/ return  /*<<scanf.ml:416:15>>*/ bad_input
+     /*<<scanf.ml:416:15>>*/ return bad_input
             ( /*<<scanf.ml:413:4>>*/ caml_call2
               (Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
    }
@@ -30497,7 +30520,7 @@
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
    }
    function character_mismatch(c, ci){
-     /*<<scanf.ml:440:2>>*/ return  /*<<scanf.ml:440:41>>*/ bad_input
+     /*<<scanf.ml:440:41>>*/ return bad_input
             ( /*<<scanf.ml:436:2>>*/ caml_call3(Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
    }
    function check_char(ib, c$0){
@@ -30538,7 +30561,8 @@
             :  /*<<scanf.ml:476:2>>*/ character_mismatch(c, ci) /*<<scanf.ml:476:25>>*/ ;
    }
    function token_char(ib){
-     /*<<scanf.ml:488:20>>*/ return caml_string_get(token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
+     /*<<scanf.ml:488:43>>*/ return  /*<<scanf.ml:488:20>>*/ caml_string_get
+            (token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
    }
    function token_bool(ib){
     var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
@@ -30614,14 +30638,13 @@
      /*<<scanf.ml:531:34>>*/ return tok;
     /*<<scanf.ml:531:67>>*/ }
    function token_float(ib){
-     /*<<scanf.ml:539:21>>*/ return runtime.caml_float_of_string
+     /*<<scanf.ml:539:56>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
             ( /*<<scanf.ml:539:37>>*/ token_string(ib)) /*<<scanf.ml:539:56>>*/ ;
    }
    function scan_decimal_digit_star(width, ib){
-    var width$0 = width;
+    var width$0 =  /*<<scanf.ml:575:2>>*/ width;
     for(;;){
-      /*<<scanf.ml:575:2>>*/ if(0 === width$0)
-       /*<<scanf.ml:575:20>>*/ return width$0;
+     if(0 === width$0)  /*<<scanf.ml:575:20>>*/ return width$0;
      var c =  /*<<scanf.ml:576:10>>*/ peek_char(ib);
       /*<<scanf.ml:577:20>>*/ if(ib[1])
        /*<<scanf.ml:577:26>>*/ return width$0;
@@ -31183,7 +31206,7 @@
     }
     /*<<scanf.ml:931:12>>*/ }
    function hexadecimal_value_of_char(c){
-     /*<<scanf.ml:969:2>>*/ return 97 <= c
+     /*<<scanf.ml:975:2>>*/ return 97 <= c
             ? c - 87 | 0
             : 65 <= c ? c - 55 | 0 : c - 48 | 0 /*<<scanf.ml:979:23>>*/ ;
    }
@@ -31307,11 +31330,9 @@
    }
    function scan_caml_string(width, ib){
     function find_stop$0(counter, width){
-     var width$0 = width;
+     var width$0 =  /*<<scanf.ml:1063:10>>*/ width;
      for(;;){
-      var
-       c =
-          /*<<scanf.ml:1063:10>>*/ check_next_char(cst_a_String, width$0, ib);
+      var c = check_next_char(cst_a_String, width$0, ib);
        /*<<scanf.ml:1063:45>>*/ if(34 === c)
         /*<<scanf.ml:1064:14>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
        /*<<scanf.ml:1063:45>>*/ if(92 === c){
@@ -31358,7 +31379,7 @@
       /*<<?>>*/ return caml_trampoline(find_stop$0(0, width));
     }
     function skip_spaces(counter, width){
-     var width$0 = width;
+     var width$0 =  /*<<scanf.ml:1080:10>>*/ width;
      for(;;){
        /*<<scanf.ml:1080:45>>*/ if
        (32
@@ -31381,11 +31402,9 @@
    }
    function scan_chars_in_char_set(char_set, scan_indic, width, ib){
     function scan_chars(i, stp){
-     var i$0 = i;
+     var i$0 =  /*<<scanf.ml:1104:12>>*/ i;
      for(;;){
-      var
-       c =  /*<<scanf.ml:1104:12>>*/ peek_char(ib),
-       _U_ =  /*<<scanf.ml:1105:4>>*/ 0 < i$0 ? 1 : 0;
+      var c = peek_char(ib), _U_ =  /*<<scanf.ml:1105:4>>*/ 0 < i$0 ? 1 : 0;
       if(_U_){
        var _V_ =  /*<<scanf.ml:1105:37>>*/ 1 - ib[1];
        if(_V_)
@@ -31450,9 +31469,9 @@
      /*<<scanf.ml:1148:4>>*/ return [0, stp, sub_str];
     /*<<scanf.ml:1148:16>>*/ }
    function take_format_readers$0(counter, k, fmt){
-    var fmt$0 = fmt;
+    var fmt$0 =  /*<<scanf.ml:1161:13>>*/ fmt;
     for(;;){
-      /*<<scanf.ml:1161:13>>*/ if(typeof fmt$0 === "number")
+     if(typeof fmt$0 === "number")
        /*<<scanf.ml:1198:40>>*/ return caml_call1(k, 0) /*<<scanf.ml:1198:45>>*/ ;
       /*<<scanf.ml:1161:13>>*/ switch(fmt$0[0]){
        case 0:
@@ -31636,9 +31655,9 @@
      /*<<?>>*/ return caml_trampoline(take_format_readers$0(0, k, fmt));
    }
    function take_fmtty_format_readers$0(counter, k, fmtty, fmt){
-    var fmtty$0 = fmtty;
+    var fmtty$0 =  /*<<scanf.ml:1204:19>>*/ fmtty;
     for(;;){
-      /*<<scanf.ml:1204:19>>*/ if(typeof fmtty$0 === "number"){
+     if(typeof fmtty$0 === "number"){
        /*<<scanf.ml:1225:35>>*/ if(counter >= 50)
        return caml_trampoline_return(take_format_readers$0, [0, k, fmt]) /*<<scanf.ml:1228:58>>*/ ;
       var counter$0 =  /*<<scanf.ml:1225:35>>*/ counter + 1 | 0;
@@ -31734,10 +31753,9 @@
             (take_fmtty_format_readers$0(0, k, fmtty, fmt));
    }
    function make_scanf(ib, fmt, readers){
-    var fmt$0 = fmt;
+    var fmt$0 =  /*<<scanf.ml:1266:22>>*/ fmt;
     for(;;){
-      /*<<scanf.ml:1266:22>>*/ if(typeof fmt$0 === "number")
-       /*<<scanf.ml:1418:4>>*/ return 0;
+     if(typeof fmt$0 === "number")  /*<<scanf.ml:1418:4>>*/ return 0;
       /*<<scanf.ml:1266:22>>*/ switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
@@ -32295,8 +32313,7 @@
    function kscanf_gen(ib, ef, af, param){
     var str =  /*<<scanf.ml:1458:15>>*/ param[2], fmt = param[1];
     function k(readers, f$1){
-      /*<<scanf.ml:1465:4>>*/  /*<<scanf.ml:222:23>>*/ caml_call1
-      (Stdlib_Buffer[9], ib[8]);
+      /*<<scanf.ml:222:23>>*/ caml_call1(Stdlib_Buffer[9], ib[8]);
       /*<<scanf.ml:1465:27>>*/ try{
       var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);
      }
@@ -32357,15 +32374,15 @@
      /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
    }
    function ksscanf(s, ef, fmt){
-     /*<<scanf.ml:1488:23>>*/ return  /*<<scanf.ml:1488:55>>*/ kscanf
+     /*<<scanf.ml:1488:55>>*/ return kscanf
             ( /*<<scanf.ml:1488:31>>*/ from_string(s), ef, fmt) /*<<scanf.ml:1488:62>>*/ ;
    }
    function sscanf(s, fmt){
-     /*<<scanf.ml:1489:19>>*/ return  /*<<scanf.ml:1489:51>>*/ kscanf
+     /*<<scanf.ml:1489:51>>*/ return kscanf
             ( /*<<scanf.ml:1489:27>>*/ from_string(s), scanf_bad_input, fmt) /*<<scanf.ml:1489:71>>*/ ;
    }
    function sscanf_opt(s, fmt){
-     /*<<scanf.ml:1490:23>>*/ return  /*<<scanf.ml:1490:58>>*/ kscanf_opt
+     /*<<scanf.ml:1490:58>>*/ return kscanf_opt
             ( /*<<scanf.ml:1490:34>>*/ from_string(s), fmt) /*<<scanf.ml:1490:62>>*/ ;
    }
    function scanf(fmt){
@@ -32375,8 +32392,7 @@
      /*<<scanf.ml:1493:20>>*/ return kscanf_opt(stdin, fmt) /*<<scanf.ml:1493:49>>*/ ;
    }
    function bscanf_format(ib, format, f){
-     /*<<scanf.ml:1502:4>>*/  /*<<scanf.ml:1502:12>>*/ scan_caml_string
-     (Stdlib[19], ib);
+     /*<<scanf.ml:1502:12>>*/ scan_caml_string(Stdlib[19], ib);
     var str =  /*<<scanf.ml:1503:14>>*/ token_string(ib);
      /*<<scanf.ml:1504:4>>*/ try{
      var
@@ -32396,7 +32412,7 @@
      /*<<scanf.ml:1507:4>>*/ return caml_call1(f, fmt) /*<<scanf.ml:1507:10>>*/ ;
    }
    function sscanf_format(s, format, f){
-     /*<<scanf.ml:1513:20>>*/ return  /*<<scanf.ml:1513:58>>*/ bscanf_format
+     /*<<scanf.ml:1513:58>>*/ return bscanf_format
             ( /*<<scanf.ml:1513:34>>*/ from_string(s), format, f) /*<<scanf.ml:1513:67>>*/ ;
    }
    function format_from_string(s, fmt){
@@ -32477,10 +32493,10 @@
      /*<<callback.ml:27:32>>*/ return  /*<<callback.ml:27:2>>*/ caml_register_named_value
             (name, slot) /*<<callback.ml:27:32>>*/ ;
    }
-   var Stdlib_Callback = [0, register, register_exception];
+   var Stdlib_Callback =  /*<<?>>*/ [0, register, register_exception];
    runtime.caml_register_global(1, Stdlib_Callback, "Stdlib__Callback");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: CamlinternalOO
@@ -32534,7 +32550,7 @@
      /*<<camlinternalOO.ml:24:10>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
             (o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
    }
-   var params = [0, 1, 1, 1, 3, 16];
+   var params =  /*<<?>>*/ [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
     var
      accu =  /*<<camlinternalOO.ml:69:2>>*/ [0, 0],
@@ -32563,7 +32579,7 @@
      /*<<camlinternalOO.ml:78:2>>*/ return tag;
     /*<<camlinternalOO.ml:78:15>>*/ }
    var
-    compare = caml_string_compare,
+    compare =  /*<<?>>*/ caml_string_compare,
     Vars = caml_call1(Stdlib_Map[1], [0, compare]),
     compare$0 = caml_string_compare,
     Meths = caml_call1(Stdlib_Map[1], [0, compare$0]),
@@ -32572,7 +32588,7 @@
     dummy_table = [0, 0, [0, 0], Meths[1], Labs[1], 0, 0, Vars[1], 0],
     table_count = [0, 0],
     dummy_met =  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block(0, 0),
-    initial_object_size = 2;
+    initial_object_size =  /*<<?>>*/ 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
             ?  /*<<camlinternalOO.ml:125:2>>*/ fit_size
@@ -32646,7 +32662,7 @@
    var
     method_count =  /*<<camlinternalOO.ml:119:50>>*/ [0, 0],
     inst_var_count = [0, 0],
-    _a_ = [0, cst_camlinternalOO_ml, 279, 50],
+    _a_ =  /*<<?>>*/ [0, cst_camlinternalOO_ml, 279, 50],
     _b_ = [0, cst_camlinternalOO_ml, 407, 13],
     _c_ = [0, cst_camlinternalOO_ml, 410, 13],
     _d_ = [0, cst_camlinternalOO_ml, 413, 13],
@@ -32680,7 +32696,7 @@
     }
     /*<<camlinternalOO.ml:175:9>>*/ }
    function get_method_labels(table, names){
-     /*<<camlinternalOO.ml:178:2>>*/ return  /*<<camlinternalOO.ml:178:36>>*/ caml_call2
+     /*<<camlinternalOO.ml:178:36>>*/ return caml_call2
             (Stdlib_Array[14],
              function(_Z_){ /*<<?>>*/ return get_method_label(table, _Z_);},
              names) /*<<camlinternalOO.ml:178:42>>*/ ;
@@ -32744,7 +32760,7 @@
       /*<<camlinternalOO.ml:205:4>>*/ caml_call3
       (Vars[24],
        function(lab, info, tvars){
-         /*<<camlinternalOO.ml:207:8>>*/ return  /*<<camlinternalOO.ml:207:11>>*/ caml_call2
+         /*<<camlinternalOO.ml:207:28>>*/ return  /*<<camlinternalOO.ml:207:11>>*/ caml_call2
                  (Stdlib_List[37], lab, vars$0)
                 ?  /*<<camlinternalOO.ml:207:34>>*/ caml_call3
                   (Vars[2], lab, info, tvars)
@@ -32758,7 +32774,7 @@
      /*<<camlinternalOO.ml:211:2>>*/ caml_call3
      (Stdlib_List[28],
       function(met, label){
-        /*<<camlinternalOO.ml:213:7>>*/ by_name[1] =
+        /*<<camlinternalOO.ml:213:46>>*/ by_name[1] =
          /*<<camlinternalOO.ml:213:18>>*/ caml_call3
          (Meths[2], met, label, by_name[1]);
        var _P_ =  /*<<camlinternalOO.ml:214:7>>*/ by_label[1];
@@ -32784,7 +32800,7 @@
      /*<<camlinternalOO.ml:219:2>>*/ caml_call3
      (Stdlib_List[28],
       function(met, label){
-        /*<<camlinternalOO.ml:221:7>>*/ by_name[1] =
+        /*<<camlinternalOO.ml:221:46>>*/ by_name[1] =
          /*<<camlinternalOO.ml:221:18>>*/ caml_call3
          (Meths[2], met, label, by_name[1]);
         /*<<camlinternalOO.ml:222:49>>*/ by_label[1] =
@@ -32871,7 +32887,7 @@
     }
     /*<<camlinternalOO.ml:261:9>>*/ }
    function to_array(arr){
-     /*<<camlinternalOO.ml:264:2>>*/ return  /*<<camlinternalOO.ml:264:5>>*/ runtime.caml_equal
+     /*<<camlinternalOO.ml:264:22>>*/ return  /*<<camlinternalOO.ml:264:5>>*/ runtime.caml_equal
              (arr, 0)
             ? [0]
             : arr /*<<camlinternalOO.ml:264:41>>*/ ;
@@ -32934,7 +32950,7 @@
     }
     /*<<camlinternalOO.ml:279:62>>*/ }
    function get_variables(table, names){
-     /*<<camlinternalOO.ml:282:2>>*/ return  /*<<camlinternalOO.ml:282:32>>*/ caml_call2
+     /*<<camlinternalOO.ml:282:32>>*/ return caml_call2
             (Stdlib_Array[14],
              function(_y_){ /*<<?>>*/ return get_variable(table, _y_);},
              names) /*<<camlinternalOO.ml:282:38>>*/ ;
@@ -33002,7 +33018,7 @@
          /*<<camlinternalOO.ml:324:5>>*/ caml_call2
          (Stdlib_Array[14],
           function(nm){
-            /*<<camlinternalOO.ml:325:18>>*/ return  /*<<camlinternalOO.ml:325:68>>*/ get_method
+            /*<<camlinternalOO.ml:325:68>>*/ return get_method
                    (cla,
                      /*<<camlinternalOO.ml:325:43>>*/ get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
           },
@@ -33070,10 +33086,9 @@
             (obj) /*<<camlinternalOO.ml:364:5>>*/ ;
    }
    function iter_f(obj, param){
-    var param$0 = param;
+    var param$0 =  /*<<camlinternalOO.ml:366:15>>*/ param;
     for(;;){
-      /*<<camlinternalOO.ml:366:15>>*/ if(! param$0)
-       /*<<camlinternalOO.ml:368:12>>*/ return 0;
+     if(! param$0)  /*<<camlinternalOO.ml:368:12>>*/ return 0;
      var l =  /*<<camlinternalOO.ml:366:15>>*/ param$0[2], f = param$0[1];
       /*<<camlinternalOO.ml:369:12>>*/ caml_call1(f, obj);
       /*<<camlinternalOO.ml:369:17>>*/ param$0 = l;
@@ -33320,7 +33335,7 @@
          var
           clo$0 =
              /*<<camlinternalOO.ml:471:20>>*/ function(obj){
-              /*<<camlinternalOO.ml:471:36>>*/ return  /*<<camlinternalOO.ml:471:54>>*/ caml_call1
+              /*<<camlinternalOO.ml:471:54>>*/ return caml_call1
                      (f$17,
                        /*<<camlinternalOO.ml:471:38>>*/ caml_call1
                        (obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
@@ -33375,7 +33390,7 @@
          var
           clo$0 =
              /*<<camlinternalOO.ml:474:27>>*/ function(obj){
-              /*<<camlinternalOO.ml:474:43>>*/ return  /*<<camlinternalOO.ml:474:63>>*/ caml_call2
+              /*<<camlinternalOO.ml:474:63>>*/ return caml_call2
                      (f$13,
                       x$15,
                        /*<<camlinternalOO.ml:474:47>>*/ caml_call1
@@ -33418,7 +33433,7 @@
          var
           clo$0 =
              /*<<camlinternalOO.ml:476:27>>*/ function(obj){
-              /*<<camlinternalOO.ml:476:43>>*/ return  /*<<camlinternalOO.ml:476:61>>*/ caml_call2
+              /*<<camlinternalOO.ml:476:61>>*/ return caml_call2
                      (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
                        (obj[1][1 + n$26], obj),
@@ -33712,7 +33727,7 @@
             (Stdlib[2], cst_CamlinternalMod_init_mod_n) /*<<camlinternalMod.ml:63:58>>*/ ;
    }
    function update_mod_block(comps$0, modu, n){
-     /*<<camlinternalMod.ml:81:2>>*/ if
+     /*<<camlinternalMod.ml:81:19>>*/ if
      (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
       && comps$0.length - 1 <= n.length - 1){
      var
@@ -33772,10 +33787,10 @@
      /*<<camlinternalMod.ml:90:9>>*/ return caml_call1
             (Stdlib[2], cst_CamlinternalMod_update_mod) /*<<camlinternalMod.ml:90:60>>*/ ;
    }
-   var CamlinternalMod = [0, init_mod, update_mod];
+   var CamlinternalMod =  /*<<?>>*/ [0, init_mod, update_mod];
    runtime.caml_register_global(8, CamlinternalMod, "CamlinternalMod");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Ephemeron
@@ -33902,10 +33917,9 @@
      /*<<ephemeron.ml:131:41>>*/ }
     function clean(h){
      function do_bucket(param){
-      var param$0 = param;
+      var param$0 =  /*<<ephemeron.ml:134:26>>*/ param;
       for(;;){
-        /*<<ephemeron.ml:134:26>>*/ if(! param$0)
-         /*<<ephemeron.ml:136:12>>*/ return 0;
+       if(! param$0)  /*<<ephemeron.ml:136:12>>*/ return 0;
        var
         hkey =  /*<<ephemeron.ml:134:26>>*/ param$0[1],
         rest = param$0[3],
@@ -34008,10 +34022,9 @@
     function remove(h, key){
      var hkey =  /*<<ephemeron.ml:197:17>>*/ caml_call2(H[2], h[3], key);
      function remove_bucket(param){
-      var param$0 = param;
+      var param$0 =  /*<<ephemeron.ml:198:30>>*/ param;
       for(;;){
-        /*<<ephemeron.ml:198:30>>*/ if(! param$0)
-         /*<<ephemeron.ml:199:19>>*/ return 0;
+       if(! param$0)  /*<<ephemeron.ml:199:19>>*/ return 0;
        var
         hk =  /*<<ephemeron.ml:198:30>>*/ param$0[1],
         next = param$0[3],
@@ -34121,10 +34134,9 @@
     function find_all(h, key){
      var hkey =  /*<<ephemeron.ml:269:17>>*/ caml_call2(H[2], h[3], key);
      function find_in_bucket(param){
-      var param$0 = param;
+      var param$0 =  /*<<ephemeron.ml:270:31>>*/ param;
       for(;;){
-        /*<<ephemeron.ml:270:31>>*/ if(! param$0)
-         /*<<ephemeron.ml:271:17>>*/ return 0;
+       if(! param$0)  /*<<ephemeron.ml:271:17>>*/ return 0;
        var
         hk =  /*<<ephemeron.ml:270:31>>*/ param$0[1],
         rest = param$0[3],
@@ -34231,10 +34243,9 @@
       /*<<ephemeron.ml:322:19>>*/ return h[1];
      /*<<ephemeron.ml:322:25>>*/ }
     function bucket_length(accu, param){
-     var accu$0 = accu, param$0 = param;
+     var accu$0 =  /*<<ephemeron.ml:324:26>>*/ accu, param$0 = param;
      for(;;){
-       /*<<ephemeron.ml:324:26>>*/ if(! param$0)
-        /*<<ephemeron.ml:325:17>>*/ return accu$0;
+      if(! param$0)  /*<<ephemeron.ml:325:17>>*/ return accu$0;
       var
        rest =  /*<<ephemeron.ml:324:26>>*/ param$0[3],
        accu$1 =  /*<<ephemeron.ml:326:28>>*/ accu$0 + 1 | 0;
@@ -34272,10 +34283,9 @@
              histo];
      /*<<ephemeron.ml:340:34>>*/ }
     function bucket_length_alive(accu, param){
-     var accu$0 = accu, param$0 = param;
+     var accu$0 =  /*<<ephemeron.ml:342:32>>*/ accu, param$0 = param;
      for(;;){
-       /*<<ephemeron.ml:342:32>>*/ if(! param$0)
-        /*<<ephemeron.ml:343:17>>*/ return accu$0;
+      if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
       var rest =  /*<<ephemeron.ml:342:32>>*/ param$0[3], c = param$0[2];
        /*<<ephemeron.ml:344:43>>*/ if
        ( /*<<ephemeron.ml:344:30>>*/ caml_call1(H[6], c)){
@@ -34343,7 +34353,7 @@
       /*<<ephemeron.ml:374:6>>*/ replace_seq(tbl, i);
       /*<<ephemeron.ml:374:23>>*/ return tbl;
      /*<<ephemeron.ml:375:9>>*/ }
-    return [0,
+     /*<<?>>*/ return [0,
             create,
             clear,
             reset,
@@ -34405,7 +34415,7 @@
       /*<<ephemeron.ml:423:8>>*/ set_key(c, k);
       /*<<ephemeron.ml:423:19>>*/ return c;
      /*<<ephemeron.ml:424:9>>*/ }
-    var seeded_hash = H[2];
+    var seeded_hash =  /*<<?>>*/ H[2];
     function equal(c, k){
      var match =  /*<<ephemeron.ml:429:14>>*/ get_key(c);
       /*<<ephemeron.ml:429:23>>*/ if(! match)
@@ -34417,12 +34427,11 @@
              : 1 /*<<ephemeron.ml:432:76>>*/ ;
     }
     function set_key_data(c, k, d){
-      /*<<ephemeron.ml:435:8>>*/  /*<<ephemeron.ml:402:40>>*/ caml_call1
-      (Stdlib_Obj[23][12], c);
+      /*<<ephemeron.ml:402:40>>*/ caml_call1(Stdlib_Obj[23][12], c);
       /*<<ephemeron.ml:436:8>>*/ set_key(c, k);
       /*<<ephemeron.ml:436:19>>*/ return set_data(c, d) /*<<ephemeron.ml:437:20>>*/ ;
     }
-    return MakeSeeded
+     /*<<?>>*/ return MakeSeeded
             ([0,
               create$0,
               seeded_hash,
@@ -34437,7 +34446,7 @@
       /*<<ephemeron.ml:446:41>>*/ return caml_call1(H[2], x) /*<<ephemeron.ml:446:49>>*/ ;
     }
     var
-     include = MakeSeeded$0([0, equal, seeded_hash]),
+     include =  /*<<?>>*/ MakeSeeded$0([0, equal, seeded_hash]),
      _R_ = include[1],
      clear = include[2],
      reset = include[3],
@@ -34463,7 +34472,7 @@
       /*<<ephemeron.ml:451:6>>*/ caml_call2(replace_seq, tbl, i);
       /*<<ephemeron.ml:451:23>>*/ return tbl;
      /*<<ephemeron.ml:452:9>>*/ }
-    return [0,
+     /*<<?>>*/ return [0,
             create,
             clear,
             reset,
@@ -34641,7 +34650,7 @@
                (Stdlib_Obj[23][7], c, 1)
              : _N_ /*<<ephemeron.ml:551:52>>*/ ;
     }
-    return MakeSeeded
+     /*<<?>>*/ return MakeSeeded
             ([0,
               create,
               seeded_hash,
@@ -34655,13 +34664,14 @@
     function seeded_hash(seed, x){
       /*<<ephemeron.ml:566:43>>*/ return caml_call1(H2[2], x) /*<<ephemeron.ml:566:52>>*/ ;
     }
-    var equal$0 = H1[1];
+    var equal$0 =  /*<<?>>*/ H1[1];
     function seeded_hash$0(seed, x){
       /*<<ephemeron.ml:561:43>>*/ return caml_call1(H1[2], x) /*<<ephemeron.ml:561:52>>*/ ;
     }
     var
      include =
-       MakeSeeded$1([0, equal$0, seeded_hash$0], [0, equal, seeded_hash]),
+        /*<<?>>*/ MakeSeeded$1
+        ([0, equal$0, seeded_hash$0], [0, equal, seeded_hash]),
      _M_ = include[1],
      clear = include[2],
      reset = include[3],
@@ -34687,7 +34697,7 @@
       /*<<ephemeron.ml:571:6>>*/ caml_call2(replace_seq, tbl, i);
       /*<<ephemeron.ml:571:23>>*/ return tbl;
      /*<<ephemeron.ml:572:9>>*/ }
-    return [0,
+     /*<<?>>*/ return [0,
             create,
             clear,
             reset,
@@ -34899,8 +34909,7 @@
      }
      /*<<ephemeron.ml:675:33>>*/ }
     function set_key_data(c, k, d){
-      /*<<ephemeron.ml:678:8>>*/  /*<<ephemeron.ml:621:40>>*/ caml_call1
-      (Stdlib_Obj[23][12], c);
+      /*<<ephemeron.ml:621:40>>*/ caml_call1(Stdlib_Obj[23][12], c);
      var _q_ =  /*<<ephemeron.ml:678:20>>*/ k.length - 2 | 0, _p_ = 0;
      if(_q_ >= 0){
       var i = _p_;
@@ -34938,7 +34947,7 @@
        /*<<ephemeron.ml:685:10>>*/ return _o_;
      }
      /*<<ephemeron.ml:686:30>>*/ }
-    return MakeSeeded
+     /*<<?>>*/ return MakeSeeded
             ([0,
               create,
               seeded_hash,
@@ -34953,7 +34962,7 @@
       /*<<ephemeron.ml:694:41>>*/ return caml_call1(H[2], x) /*<<ephemeron.ml:694:49>>*/ ;
     }
     var
-     include = MakeSeeded$2([0, equal, seeded_hash]),
+     include =  /*<<?>>*/ MakeSeeded$2([0, equal, seeded_hash]),
      _l_ = include[1],
      clear = include[2],
      reset = include[3],
@@ -34979,7 +34988,7 @@
       /*<<ephemeron.ml:699:6>>*/ caml_call2(replace_seq, tbl, i);
       /*<<ephemeron.ml:699:23>>*/ return tbl;
      /*<<ephemeron.ml:700:9>>*/ }
-    return [0,
+     /*<<?>>*/ return [0,
             create,
             clear,
             reset,
@@ -35082,7 +35091,7 @@
     /*<<ephemeron.ml:736:25>>*/ }
    var
     Stdlib_Ephemeron =
-      [0,
+       /*<<?>>*/ [0,
        [0,
         make,
         query,
@@ -35103,7 +35112,7 @@
         [0, make$4, add$1, remove$1, find$1, length$2, clear$1]]];
    runtime.caml_register_global(13, Stdlib_Ephemeron, "Stdlib__Ephemeron");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__Filename
@@ -35198,7 +35207,7 @@
     Stdlib_Buffer = global_data.Stdlib__Buffer,
     Stdlib_Sys = global_data.Stdlib__Sys;
    function generic_basename(is_dir_sep, current_dir_name, name){
-     /*<<filename.ml:37:2>>*/ if(name === cst$19)
+     /*<<filename.ml:46:14>>*/ if(name === cst$19)
       /*<<filename.ml:47:7>>*/ return current_dir_name;
     var
      n$3 =  /*<<filename.ml:48:7>>*/ caml_ml_string_length(name) - 1 | 0,
@@ -35227,7 +35236,7 @@
     }
     /*<<filename.ml:48:40>>*/ }
    function generic_dirname(is_dir_sep, current_dir_name, name){
-     /*<<filename.ml:55:2>>*/ if(name === cst$19)
+     /*<<filename.ml:68:14>>*/ if(name === cst$19)
       /*<<filename.ml:69:7>>*/ return current_dir_name;
     var
      n$5 =  /*<<filename.ml:70:7>>*/ caml_ml_string_length(name) - 1 | 0,
@@ -35266,7 +35275,10 @@
     }
     /*<<filename.ml:70:44>>*/ }
    function is_dir_sep(s, i){
-     /*<<filename.ml:96:23>>*/ return 47 === caml_string_get(s, i) ? 1 : 0 /*<<filename.ml:96:28>>*/ ;
+     /*<<filename.ml:96:28>>*/ return 47
+            ===  /*<<filename.ml:96:23>>*/ caml_string_get(s, i)
+            ? 1
+            : 0 /*<<filename.ml:96:28>>*/ ;
     /*<<filename.ml:96:34>>*/ }
    function is_relative(n){
     var
@@ -35326,7 +35338,7 @@
             : 0 /*<<filename.ml:114:10>>*/ ;
    }
    var
-    dummy = 0,
+    dummy =  /*<<?>>*/ 0,
     _h_ = [0, 7, 0],
     _g_ = [0, 1, [0, 3, [0, 5, 0]]],
     _f_ = [0, [2, 0, [4, 6, [0, 2, 6], 0, [2, 0, 0]]], "%s%06x%s"],
@@ -35597,9 +35609,9 @@
      b =  /*<<filename.ml:168:12>>*/ caml_call1(Stdlib_Buffer[1], l + 20 | 0);
      /*<<filename.ml:169:4>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
     function loop$0(counter, i){
-     var i$0 = i;
+     var i$0 =  /*<<filename.ml:171:6>>*/ i;
      for(;;){
-       /*<<filename.ml:171:6>>*/ if(i$0 === l)
+      if(i$0 === l)
         /*<<filename.ml:171:20>>*/ return caml_call2(Stdlib_Buffer[12], b, 34) /*<<filename.ml:175:48>>*/ ;
       var c =  /*<<filename.ml:172:12>>*/ caml_string_get(s, i$0);
        /*<<filename.ml:172:17>>*/ if(34 === c){
@@ -35623,9 +35635,9 @@
      /*<<filename.ml:175:48>>*/ }
     function loop(i){ /*<<?>>*/ return caml_trampoline(loop$0(0, i));}
     function loop_bs(counter, n, i){
-     var n$0 = n, i$0 = i;
+     var n$0 =  /*<<filename.ml:177:6>>*/ n, i$0 = i;
      for(;;){
-       /*<<filename.ml:177:6>>*/ if(i$0 === l){
+      if(i$0 === l){
         /*<<filename.ml:178:8>>*/ caml_call2(Stdlib_Buffer[12], b, 34);
         /*<<filename.ml:178:30>>*/ return add_bs(n$0) /*<<filename.ml:185:9>>*/ ;
       }
@@ -35667,7 +35679,7 @@
      /*<<filename.ml:188:10>>*/ return caml_call1(Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
    }
    function quote_cmd_filename(f){
-     /*<<filename.ml:222:4>>*/ if
+     /*<<filename.ml:222:65>>*/ if
      (!
        /*<<filename.ml:222:7>>*/ caml_call2
        (Stdlib_String[23],
@@ -35902,7 +35914,7 @@
             (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
    }
    function chop_suffix(name, suff){
-     /*<<filename.ml:296:2>>*/ return  /*<<filename.ml:296:5>>*/ check_suffix$1
+     /*<<filename.ml:296:27>>*/ return  /*<<filename.ml:296:5>>*/ check_suffix$1
              (name, suff)
             ?  /*<<filename.ml:297:7>>*/ caml_call3
               (Stdlib_String[16],
@@ -36138,24 +36150,24 @@
     i = [254, 0., 1.],
     _a_ = [254, 0., 0.];
    function add(x, y){
-     /*<<complex.ml:24:14>>*/ return [254, x[1] + y[1], x[2] + y[2]] /*<<complex.ml:24:33>>*/ ;
+     /*<<complex.ml:24:33>>*/ return [254, x[1] + y[1], x[2] + y[2]];
     /*<<complex.ml:24:54>>*/ }
    function sub(x, y){
-     /*<<complex.ml:26:14>>*/ return [254, x[1] - y[1], x[2] - y[2]] /*<<complex.ml:26:33>>*/ ;
+     /*<<complex.ml:26:33>>*/ return [254, x[1] - y[1], x[2] - y[2]];
     /*<<complex.ml:26:54>>*/ }
    function neg(x){
-     /*<<complex.ml:28:12>>*/ return [254, - x[1], - x[2]] /*<<complex.ml:28:26>>*/ ;
+     /*<<complex.ml:28:26>>*/ return [254, - x[1], - x[2]];
     /*<<complex.ml:28:42>>*/ }
    function conj(x){
-     /*<<complex.ml:30:13>>*/ return [254, x[1], - x[2]] /*<<complex.ml:30:38>>*/ ;
+     /*<<complex.ml:30:38>>*/ return [254, x[1], - x[2]];
     /*<<complex.ml:30:40>>*/ }
    function mul(x, y){
-     /*<<complex.ml:32:14>>*/ return [254,
+     /*<<complex.ml:32:49>>*/ return [254,
             x[1] * y[1] - x[2] * y[2],
-            x[1] * y[2] + x[2] * y[1]] /*<<complex.ml:32:49>>*/ ;
+            x[1] * y[2] + x[2] * y[1]];
     /*<<complex.ml:33:51>>*/ }
    function div(x, y){
-     /*<<complex.ml:36:2>>*/ if
+     /*<<complex.ml:36:19>>*/ if
      ( /*<<complex.ml:36:23>>*/ Math.abs(y[2])
       <=  /*<<complex.ml:36:5>>*/ Math.abs(y[1])){
      var
@@ -36176,16 +36188,18 @@
      /*<<complex.ml:47:12>>*/ return div(one, x) /*<<complex.ml:47:21>>*/ ;
    }
    function norm2(x){
-     /*<<complex.ml:49:14>>*/ return x[1] * x[1] + x[2] * x[2] /*<<complex.ml:49:42>>*/ ;
+     /*<<complex.ml:49:42>>*/ return x[1] * x[1] + x[2] * x[2];
    }
    function norm(x){
-     /*<<complex.ml:51:13>>*/ return runtime.caml_hypot_float(x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
+     /*<<complex.ml:51:34>>*/ return  /*<<complex.ml:51:13>>*/ runtime.caml_hypot_float
+            (x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
    }
    function arg(x){
-     /*<<complex.ml:53:12>>*/ return Math.atan2(x[2], x[1]) /*<<complex.ml:53:27>>*/ ;
+     /*<<complex.ml:53:27>>*/ return  /*<<complex.ml:53:12>>*/ Math.atan2
+            (x[2], x[1]) /*<<complex.ml:53:27>>*/ ;
    }
    function polar(n, a){
-     /*<<complex.ml:55:16>>*/ return [254,
+     /*<<complex.ml:55:33>>*/ return [254,
              /*<<complex.ml:55:23>>*/ Math.cos(a) * n,
              /*<<complex.ml:55:40>>*/ Math.sin(a) * n] /*<<complex.ml:55:33>>*/ ;
     /*<<complex.ml:55:52>>*/ }
@@ -36230,13 +36244,13 @@
             _b_] /*<<complex.ml:77:31>>*/ ;
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
-     /*<<complex.ml:79:14>>*/ return  /*<<complex.ml:79:33>>*/ exp
+     /*<<complex.ml:79:33>>*/ return exp
             ( /*<<complex.ml:79:18>>*/ mul
               (y,  /*<<complex.ml:79:25>>*/ log(x))) /*<<complex.ml:79:33>>*/ ;
    }
    var
     Stdlib_Complex =
-      [0,
+       /*<<?>>*/ [0,
        zero,
        one,
        i,
@@ -36257,7 +36271,7 @@
        pow];
    runtime.caml_register_global(15, Stdlib_Complex, "Stdlib__Complex");
    return;
-   /*<<?>>*/ }
+  }
   (globalThis));
 
 //# unitInfo: Provides: Stdlib__ArrayLabels
@@ -36993,7 +37007,7 @@
        discontinue_with_backtrace,
        match_with,
        try_with],
-    cst_Initial_setup = "Initial_setup__",
+    cst_Initial_setup =  /*<<?>>*/ "Initial_setup__",
     cst_E = "E",
     cst_impossible = "impossible";
    function fiber(f){
@@ -37002,7 +37016,7 @@
         /*<<effect.ml:124:4>>*/ [248, cst_Initial_setup, caml_fresh_oo_id(0)],
      E = [248, cst_E, caml_fresh_oo_id(0)];
     function f$0(param){
-      /*<<effect.ml:126:16>>*/ return  /*<<effect.ml:126:45>>*/ caml_call1
+      /*<<effect.ml:126:45>>*/ return caml_call1
              (f,  /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported()) /*<<effect.ml:126:45>>*/ ;
     }
     function error(param){
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index 62fdaf3ab9..ee77238271 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -5,4 +5,3 @@ sourcemap for test.bc.js
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:15 -> 35:   function f(x){return x - 1 | 0; <>}
 /my/sourceRoot#b.ml:1:15 -> 7:   var <>Testlib_B = [0, f];
-/my/sourceRoot#b.ml:1:15 -> 19:   var Testlib_B = <>[0, f];

From 42d949ec9a3c5a1ca47722d2f46bc05f2363c697 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 11:42:46 +0200
Subject: [PATCH 18/35] Compile exception handlers starting from an unkown
 location

There is some code at the beginnning of exception handlers for which we
have no debugging information.
---
 compiler/lib/generate.ml                   |   2 +-
 compiler/tests-full/stdlib.cma.expected.js | 337 ++++++++++-----------
 2 files changed, 153 insertions(+), 186 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 15dab94aa3..3d80fae579 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -1782,7 +1782,7 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
           | _ ->
               let handler_var = Code.Var.fork x in
               ( handler_var
-              , (J.variable_declaration [ J.V x, (wrap_exn handler_var, J.N) ], J.N)
+              , (J.variable_declaration [ J.V x, (wrap_exn handler_var, J.U) ], J.N)
                 :: handler )
         in
 
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 3ae86c0a32..ef5b1b62f0 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -536,8 +536,8 @@
      return _w_;
     }
     catch(_x_){
-     var _v_ = caml_wrap_exception(_x_);
-      /*<<?>>*/ if(_v_[1] === Failure)  /*<<stdlib.ml:273:20>>*/ return 0;
+     var _v_ =  /*<<?>>*/ caml_wrap_exception(_x_);
+     if(_v_[1] === Failure)  /*<<stdlib.ml:273:20>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_v_, 0);
     }
     /*<<stdlib.ml:273:24>>*/ }
@@ -574,8 +574,8 @@
      return _t_;
     }
     catch(_u_){
-     var _s_ = caml_wrap_exception(_u_);
-      /*<<?>>*/ if(_s_[1] === Failure)  /*<<stdlib.ml:294:20>>*/ return 0;
+     var _s_ =  /*<<?>>*/ caml_wrap_exception(_u_);
+     if(_s_[1] === Failure)  /*<<stdlib.ml:294:20>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_s_, 0);
     }
     /*<<stdlib.ml:294:24>>*/ }
@@ -655,9 +655,8 @@
      var l =  /*<<stdlib.ml:347:17>>*/ param$0[2], a = param$0[1];
       /*<<stdlib.ml:350:8>>*/ try{ /*<<stdlib.ml:351:12>>*/ caml_ml_flush(a);}
      catch(_p_){
-      var _o_ = caml_wrap_exception(_p_);
-       /*<<?>>*/ if(_o_[1] !== Sys_error)
-       throw caml_maybe_attach_backtrace(_o_, 0);
+      var _o_ =  /*<<?>>*/ caml_wrap_exception(_p_);
+      if(_o_[1] !== Sys_error) throw caml_maybe_attach_backtrace(_o_, 0);
      }
       /*<<stdlib.ml:355:8>>*/ param$0 = l;
     }
@@ -1215,8 +1214,8 @@
      return _d_;
     }
     catch(_e_){
-     var _c_ = caml_wrap_exception(_e_);
-      /*<<?>>*/ if(_c_ === Stdlib[8])  /*<<sys.ml.in:61:20>>*/ return 0;
+     var _c_ =  /*<<?>>*/ caml_wrap_exception(_e_);
+     if(_c_ === Stdlib[8])  /*<<sys.ml.in:61:20>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<sys.ml.in:61:24>>*/ }
@@ -1593,7 +1592,7 @@
      return result;
     }
     catch(e$0){
-     var e = caml_wrap_exception(e$0);
+     var e =  /*<<?>>*/ caml_wrap_exception(e$0);
       /*<<camlinternalLazy.ml:54:4>>*/ blk[1] =
       function(param){
         /*<<camlinternalLazy.ml:54:43>>*/ throw caml_maybe_attach_backtrace
@@ -5548,8 +5547,8 @@
       return _K_;
      }
      catch(_L_){
-      var _J_ = caml_wrap_exception(_L_);
-       /*<<?>>*/ if(_J_ === Stdlib[8])  /*<<bytes.ml:377:59>>*/ return 0;
+      var _J_ =  /*<<?>>*/ caml_wrap_exception(_L_);
+      if(_J_ === Stdlib[8])  /*<<bytes.ml:377:59>>*/ return 0;
        /*<<?>>*/ throw caml_maybe_attach_backtrace(_J_, 0);
      }
      /*<<bytes.ml:375:4>>*/ return caml_call1
@@ -5566,8 +5565,8 @@
       return _H_;
      }
      catch(_I_){
-      var _G_ = caml_wrap_exception(_I_);
-       /*<<?>>*/ if(_G_ === Stdlib[8])  /*<<bytes.ml:388:58>>*/ return 0;
+      var _G_ =  /*<<?>>*/ caml_wrap_exception(_I_);
+      if(_G_ === Stdlib[8])  /*<<bytes.ml:388:58>>*/ return 0;
        /*<<?>>*/ throw caml_maybe_attach_backtrace(_G_, 0);
      }
      /*<<bytes.ml:386:4>>*/ return caml_call1
@@ -6768,8 +6767,8 @@
       return _G_;
      }
      catch(_H_){
-      var _F_ = caml_wrap_exception(_H_);
-       /*<<?>>*/ if(_F_ === Stdlib[8])  /*<<string.ml:179:59>>*/ return 0;
+      var _F_ =  /*<<?>>*/ caml_wrap_exception(_H_);
+      if(_F_ === Stdlib[8])  /*<<string.ml:179:59>>*/ return 0;
        /*<<?>>*/ throw caml_maybe_attach_backtrace(_F_, 0);
      }
      /*<<string.ml:177:4>>*/ return caml_call1
@@ -6786,8 +6785,8 @@
       return _D_;
      }
      catch(_E_){
-      var _C_ = caml_wrap_exception(_E_);
-       /*<<?>>*/ if(_C_ === Stdlib[8])  /*<<string.ml:189:58>>*/ return 0;
+      var _C_ =  /*<<?>>*/ caml_wrap_exception(_E_);
+      if(_C_ === Stdlib[8])  /*<<string.ml:189:58>>*/ return 0;
        /*<<?>>*/ throw caml_maybe_attach_backtrace(_C_, 0);
      }
      /*<<string.ml:187:4>>*/ return caml_call1
@@ -7785,9 +7784,8 @@
         /*<<array.ml:356:13>>*/ 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 exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+       if(exn[1] !== Bottom) throw caml_maybe_attach_backtrace(exn, 0);
        var i$0 = exn[2];
         /*<<array.ml:360:61>>*/ caml_check_bound(a, i$0)[1 + i$0] = e$1;
       }
@@ -7815,9 +7813,8 @@
        }
       }
       catch(exn){
-       var exn$0 = caml_wrap_exception(exn);
-        /*<<?>>*/ if(exn$0[1] !== Bottom)
-        throw caml_maybe_attach_backtrace(exn$0, 0);
+       var exn$0 =  /*<<?>>*/ caml_wrap_exception(exn);
+       if(exn$0[1] !== Bottom) throw caml_maybe_attach_backtrace(exn$0, 0);
        var i$2 = exn$0[2];
        a:
        {
@@ -8818,9 +8815,8 @@
         /*<<float.ml:471: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 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;
       }
@@ -8848,9 +8844,8 @@
        }
       }
       catch(exn){
-       var exn$0 = caml_wrap_exception(exn);
-        /*<<?>>*/ if(exn$0[1] !== Bottom)
-        throw caml_maybe_attach_backtrace(exn$0, 0);
+       var exn$0 =  /*<<?>>*/ caml_wrap_exception(exn);
+       if(exn$0[1] !== Bottom) throw caml_maybe_attach_backtrace(exn$0, 0);
        var i$2 = exn$0[2];
        a:
        {
@@ -9315,8 +9310,8 @@
      return _d_;
     }
     catch(_e_){
-     var _c_ = caml_wrap_exception(_e_);
-      /*<<?>>*/ if(_c_[1] === Stdlib[7])  /*<<int32.ml:78:20>>*/ return 0;
+     var _c_ =  /*<<?>>*/ caml_wrap_exception(_e_);
+     if(_c_[1] === Stdlib[7])  /*<<int32.ml:78:20>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
     }
     /*<<int32.ml:78:24>>*/ }
@@ -9475,8 +9470,8 @@
      return _g_;
     }
     catch(_h_){
-     var _f_ = caml_wrap_exception(_h_);
-      /*<<?>>*/ if(_f_[1] === Stdlib[7])  /*<<int64.ml:68:20>>*/ return 0;
+     var _f_ =  /*<<?>>*/ caml_wrap_exception(_h_);
+     if(_f_[1] === Stdlib[7])  /*<<int64.ml:68:20>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_f_, 0);
     }
     /*<<int64.ml:68:24>>*/ }
@@ -9626,8 +9621,8 @@
      return _b_;
     }
     catch(_c_){
-     var _a_ = caml_wrap_exception(_c_);
-      /*<<?>>*/ if(_a_[1] === Stdlib[7])  /*<<nativeint.ml:67:20>>*/ return 0;
+     var _a_ =  /*<<?>>*/ caml_wrap_exception(_c_);
+     if(_a_[1] === Stdlib[7])  /*<<nativeint.ml:67:20>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_a_, 0);
     }
     /*<<nativeint.ml:67:24>>*/ }
@@ -10165,9 +10160,8 @@
            action = _k_;
          }
          catch(_m_){
-          var _h_ = caml_wrap_exception(_m_);
-           /*<<?>>*/ if(_h_ !== Parse_error)
-           throw caml_maybe_attach_backtrace(_h_, 0);
+          var _h_ =  /*<<?>>*/ caml_wrap_exception(_m_);
+          if(_h_ !== Parse_error) throw caml_maybe_attach_backtrace(_h_, 0);
           var value =  /*<<parsing.ml:145:12>>*/ 0, action = 5;
          }
           /*<<parsing.ml:146:8>>*/ cmd = action;
@@ -10181,7 +10175,7 @@
     }
     catch(exn$0){
      var
-      exn = caml_wrap_exception(exn$0),
+      exn =  /*<<?>>*/ caml_wrap_exception(exn$0),
       curr_char =  /*<<parsing.ml:167:4>>*/ env[7];
       /*<<parsing.ml:168:4>>*/ env[11] = init_asp;
       /*<<parsing.ml:169:4>>*/ env[14] = init_sp;
@@ -13243,9 +13237,8 @@
         }
        }
        catch(_p_){
-        var _n_ = caml_wrap_exception(_p_);
-         /*<<?>>*/ if(_n_ !== Stdlib[8])
-         throw caml_maybe_attach_backtrace(_n_, 0);
+        var _n_ =  /*<<?>>*/ caml_wrap_exception(_p_);
+        if(_n_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_n_, 0);
          /*<<buffer.ml:275:11>>*/ add_char(b, 36);
          /*<<buffer.ml:275:25>>*/ previous = 32;
         i$4 = start;
@@ -13496,7 +13489,7 @@
      var x =  /*<<mutex.ml:28:8>>*/ caml_call1(f, 0);
     }
     catch(e$0){
-     var e = caml_wrap_exception(e$0);
+     var e =  /*<<?>>*/ caml_wrap_exception(e$0);
       /*<<mutex.ml:33:4>>*/ caml_ml_mutex_unlock(m);
       /*<<mutex.ml:33:12>>*/ throw caml_maybe_attach_backtrace(e, 0);
     }
@@ -13878,7 +13871,7 @@
       var res =  /*<<domain.ml:263:16>>*/ caml_call1(f, 0);
      }
      catch(exn$0){
-      var exn = caml_wrap_exception(exn$0);
+      var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
        /*<<domain.ml:278:8>>*/ try{ /*<<domain.ml:278:13>>*/ do_at_exit(0);}
       catch(_d_){}
        /*<<domain.ml:279:8>>*/ throw caml_maybe_attach_backtrace(exn, 0);
@@ -19079,9 +19072,8 @@
        indent = _bs_;
      }
      catch(_bt_){
-      var _br_ = caml_wrap_exception(_bt_);
-       /*<<?>>*/ if(_br_[1] !== Stdlib[7])
-       throw caml_maybe_attach_backtrace(_br_, 0);
+      var _br_ =  /*<<?>>*/ caml_wrap_exception(_bt_);
+      if(_br_[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(_br_, 0);
       var
        indent =
           /*<<camlinternalFormat.ml:1995:40>>*/  /*<<camlinternalFormat.ml:1995:26>>*/ invalid_box
@@ -19418,8 +19410,8 @@
                    (Stdlib[8], 1);
            }
            catch(_bq_){
-            var _bf_ = caml_wrap_exception(_bq_);
-             /*<<?>>*/ if(_bf_ !== Stdlib[8] && _bf_[1] !== Stdlib[7])
+            var _bf_ =  /*<<?>>*/ caml_wrap_exception(_bq_);
+            if(_bf_ !== Stdlib[8] && _bf_[1] !== Stdlib[7])
              throw caml_maybe_attach_backtrace(_bf_, 0);
             var
              formatting_lit$0 =
@@ -19488,8 +19480,8 @@
             var _bn_ = _bo_;
            }
            catch(_bp_){
-            var _bm_ = caml_wrap_exception(_bp_);
-             /*<<?>>*/ if(_bm_ !== Stdlib[8] && _bm_[1] !== Stdlib[7])
+            var _bm_ =  /*<<?>>*/ caml_wrap_exception(_bp_);
+            if(_bm_ !== Stdlib[8] && _bm_[1] !== Stdlib[7])
              throw caml_maybe_attach_backtrace(_bm_, 0);
             var _bn_ =  /*<<camlinternalFormat.ml:2706:8>>*/ 0;
            }
@@ -20985,9 +20977,8 @@
       return _ai_;
      }
      catch(_aj_){
-      var _ah_ = caml_wrap_exception(_aj_);
-       /*<<?>>*/ if(_ah_ !== Stdlib[8])
-       throw caml_maybe_attach_backtrace(_ah_, 0);
+      var _ah_ =  /*<<?>>*/ caml_wrap_exception(_aj_);
+      if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
       var
        fmt_rest =
           /*<<camlinternalFormat.ml:2655:50>>*/  /*<<camlinternalFormat.ml:2655:29>>*/ parse
@@ -21336,9 +21327,8 @@
      return _ae_;
     }
     catch(_af_){
-     var _ac_ = caml_wrap_exception(_af_);
-      /*<<?>>*/ if(_ac_ !== Type_mismatch)
-      throw caml_maybe_attach_backtrace(_ac_, 0);
+     var _ac_ =  /*<<?>>*/ caml_wrap_exception(_af_);
+     if(_ac_ !== Type_mismatch) throw caml_maybe_attach_backtrace(_ac_, 0);
      var _ad_ =  /*<<camlinternalFormat.ml:2982:10>>*/ string_of_fmtty(fmtty);
       /*<<camlinternalFormat.ml:2982:33>>*/ return caml_call2
              (failwith_message(_Z_), str, _ad_);
@@ -21362,8 +21352,8 @@
      return _aa_;
     }
     catch(_ab_){
-     var _$_ = caml_wrap_exception(_ab_);
-      /*<<?>>*/ if(_$_ === Type_mismatch)
+     var _$_ =  /*<<?>>*/ caml_wrap_exception(_ab_);
+     if(_$_ === Type_mismatch)
        /*<<camlinternalFormat.ml:2990:4>>*/ return caml_call2
               (failwith_message(___), str, str$0) /*<<camlinternalFormat.ml:2991:66>>*/ ;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_$_, 0);
@@ -21831,8 +21821,8 @@
      var x =  /*<<dynarray.ml:302:8>>*/ pop_last(a);
     }
     catch(_U_){
-     var _T_ = caml_wrap_exception(_U_);
-      /*<<?>>*/ if(_T_ === Stdlib[8])  /*<<dynarray.ml:303:27>>*/ return 0;
+     var _T_ =  /*<<?>>*/ caml_wrap_exception(_U_);
+     if(_T_ === Stdlib[8])  /*<<dynarray.ml:303:27>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_T_, 0);
     }
      /*<<dynarray.ml:304:9>>*/ return [0, x];
@@ -22556,9 +22546,8 @@
      var _aw_ =  /*<<arg.ml:95:42>>*/ 0, add1 = _aw_;
     }
     catch(_ay_){
-     var _as_ = caml_wrap_exception(_ay_);
-      /*<<?>>*/ if(_as_ !== Stdlib[8])
-      throw caml_maybe_attach_backtrace(_as_, 0);
+     var _as_ =  /*<<?>>*/ caml_wrap_exception(_ay_);
+     if(_as_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_as_, 0);
      var
       add1 =
          /*<<arg.ml:97:12>>*/ [0,
@@ -22570,9 +22559,8 @@
      var _av_ =  /*<<arg.ml:99:43>>*/ 0, add2 = _av_;
     }
     catch(_ax_){
-     var _at_ = caml_wrap_exception(_ax_);
-      /*<<?>>*/ if(_at_ !== Stdlib[8])
-      throw caml_maybe_attach_backtrace(_at_, 0);
+     var _at_ =  /*<<?>>*/ caml_wrap_exception(_ax_);
+     if(_at_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_at_, 0);
      var
       add2 =
          /*<<arg.ml:101:12>>*/ [0,
@@ -22665,8 +22653,8 @@
      return _am_;
     }
     catch(_an_){
-     var _al_ = caml_wrap_exception(_an_);
-      /*<<?>>*/ if(_al_[1] === Stdlib[7])  /*<<arg.ml:129:20>>*/ return 0;
+     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>>*/ }
@@ -22679,8 +22667,8 @@
      return _aj_;
     }
     catch(_ak_){
-     var _ai_ = caml_wrap_exception(_ak_);
-      /*<<?>>*/ if(_ai_[1] === Stdlib[7])  /*<<arg.ml:133:20>>*/ return 0;
+     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>>*/ }
@@ -22750,9 +22738,8 @@
          action = _Z_;
        }
        catch(_ag_){
-        var _W_ = caml_wrap_exception(_ag_);
-         /*<<?>>*/ if(_W_ !== Stdlib[8])
-         throw caml_maybe_attach_backtrace(_W_, 0);
+        var _W_ =  /*<<?>>*/ caml_wrap_exception(_ag_);
+        if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
          /*<<arg.ml:172:10>>*/ try{
          var
           i =  /*<<arg.ml:71:10>>*/ caml_call2(Stdlib_String[36], s, 61),
@@ -22768,8 +22755,8 @@
           action = _Y_;
         }
         catch(_ah_){
-         var _X_ = caml_wrap_exception(_ah_);
-          /*<<?>>*/ if(_X_ === Stdlib[8])
+         var _X_ =  /*<<?>>*/ caml_wrap_exception(_ah_);
+         if(_X_ === Stdlib[8])
            /*<<arg.ml:175:28>>*/ throw caml_maybe_attach_backtrace
                  ([0, Stop, [0, s]], 1);
           /*<<?>>*/ throw caml_maybe_attach_backtrace(_X_, 0);
@@ -22823,8 +22810,8 @@
                 match = _$_;
               }
               catch(_ae_){
-               var ___ = caml_wrap_exception(_ae_);
-                /*<<?>>*/ if(___[1] !== Stdlib[6])
+               var ___ =  /*<<?>>*/ caml_wrap_exception(_ae_);
+               if(___[1] !== Stdlib[6])
                 throw caml_maybe_attach_backtrace(___, 0);
                var match =  /*<<arg.ml:125:29>>*/ 0;
               }
@@ -22997,8 +22984,8 @@
         /*<<arg.ml:279:11>>*/ caml_call1(anonfun, s);
      }
      catch(exn$0){
-      var exn = caml_wrap_exception(exn$0);
-       /*<<?>>*/ if(exn[1] === Bad){
+      var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+      if(exn[1] === Bad){
        var m = exn[2];
         /*<<arg.ml:280:53>>*/ throw caml_maybe_attach_backtrace
               ( /*<<arg.ml:280:26>>*/ convert_error([3, m]), 1);
@@ -23034,8 +23021,8 @@
      return _U_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
-      /*<<?>>*/ if(exn[1] === Bad){
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+     if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:302:15>>*/ caml_call2(Stdlib_Printf[3], _l_, msg$0);
        /*<<arg.ml:302:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:303:39>>*/ ;
@@ -23055,8 +23042,8 @@
      return _T_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
-      /*<<?>>*/ if(exn[1] === Bad){
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+     if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:310:15>>*/ caml_call2(Stdlib_Printf[3], _n_, msg$0);
        /*<<arg.ml:310:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:311:39>>*/ ;
@@ -23079,8 +23066,8 @@
      return _S_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
-      /*<<?>>*/ if(exn[1] === Bad){
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+     if(exn[1] === Bad){
       var msg$0 = exn[2];
        /*<<arg.ml:320:15>>*/ caml_call2(Stdlib_Printf[3], _p_, msg$0);
        /*<<arg.ml:320:31>>*/ return caml_call1(Stdlib[99], 2) /*<<arg.ml:321:39>>*/ ;
@@ -23108,15 +23095,14 @@
      var n$0 =  /*<<arg.ml:331:8>>*/ caml_call2(Stdlib_String[36], s, 9);
     }
     catch(_Q_){
-     var _O_ = caml_wrap_exception(_Q_);
-      /*<<?>>*/ if(_O_ !== Stdlib[8])
-      throw caml_maybe_attach_backtrace(_O_, 0);
+     var _O_ =  /*<<?>>*/ caml_wrap_exception(_Q_);
+     if(_O_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_O_, 0);
       /*<<arg.ml:334:6>>*/ try{
       var n =  /*<<arg.ml:334:18>>*/ caml_call2(Stdlib_String[36], s, 32);
      }
      catch(_R_){
-      var _P_ = caml_wrap_exception(_R_);
-       /*<<?>>*/ if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
+      var _P_ =  /*<<?>>*/ caml_wrap_exception(_R_);
+      if(_P_ === Stdlib[8])  /*<<arg.ml:336:31>>*/ return len;
        /*<<?>>*/ throw caml_maybe_attach_backtrace(_P_, 0);
      }
       /*<<arg.ml:335:13>>*/ return loop(n + 1 | 0) /*<<arg.ml:337:9>>*/ ;
@@ -23256,9 +23242,8 @@
      }
     }
     catch(_G_){
-     var _E_ = caml_wrap_exception(_G_);
-      /*<<?>>*/ if(_E_ !== Stdlib[12])
-      throw caml_maybe_attach_backtrace(_E_, 0);
+     var _E_ =  /*<<?>>*/ caml_wrap_exception(_G_);
+     if(_E_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_E_, 0);
       /*<<arg.ml:403:22>>*/ if
       (0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
@@ -23584,7 +23569,7 @@
     }
     catch(x$0){
      var
-      x = caml_wrap_exception(x$0),
+      x =  /*<<?>>*/ caml_wrap_exception(x$0),
       ___ =  /*<<printexc.ml:90:39>>*/ to_string(x);
       /*<<printexc.ml:90:4>>*/ caml_call2(Stdlib_Printf[3], _f_, ___);
       /*<<printexc.ml:91:4>>*/ caml_call1(Stdlib[63], Stdlib[40]);
@@ -23597,7 +23582,7 @@
      return _Z_;
     }
     catch(x$0){
-     var x = caml_wrap_exception(x$0);
+     var x =  /*<<?>>*/ caml_wrap_exception(x$0);
       /*<<printexc.ml:98:4>>*/ caml_call1(Stdlib[63], Stdlib[39]);
      var _Y_ =  /*<<printexc.ml:99:39>>*/ to_string(x);
       /*<<printexc.ml:99:4>>*/ caml_call2(Stdlib_Printf[3], _g_, _Y_);
@@ -23859,7 +23844,7 @@
       }
       catch(exn$1){
        var
-        exn = caml_wrap_exception(exn$1),
+        exn =  /*<<?>>*/ caml_wrap_exception(exn$1),
         raw_backtrace$0 =
            /*<<printexc.ml:338:4>>*/ caml_get_exception_raw_backtra(0),
         _x_ =  /*<<printexc.ml:357:44>>*/ to_string(exn$0);
@@ -23878,9 +23863,8 @@
       var _B_ = _z_;
      }
      catch(_D_){
-      var _w_ = caml_wrap_exception(_D_);
-       /*<<?>>*/ if(_w_ !== Stdlib[9])
-       throw caml_maybe_attach_backtrace(_w_, 0);
+      var _w_ =  /*<<?>>*/ caml_wrap_exception(_D_);
+      if(_w_ !== Stdlib[9]) throw caml_maybe_attach_backtrace(_w_, 0);
       var
        _B_ =
           /*<<printexc.ml:365:8>>*/ caml_call1
@@ -23996,7 +23980,7 @@
      }
      catch(e$0){
       var
-       e = caml_wrap_exception(e$0),
+       e =  /*<<?>>*/ caml_wrap_exception(e$0),
        bt =  /*<<fun.ml:31:15>>*/ caml_call1(Stdlib_Printexc[12], 0),
        exn =  /*<<fun.ml:32:6>>*/ [0, Finally_raised, e];
       caml_restore_raw_backtrace(exn, bt);
@@ -24008,7 +23992,7 @@
     }
     catch(work_exn$0){
      var
-      work_exn = caml_wrap_exception(work_exn$0),
+      work_exn =  /*<<?>>*/ caml_wrap_exception(work_exn$0),
       work_bt =  /*<<fun.ml:37:20>>*/ caml_call1(Stdlib_Printexc[12], 0);
       /*<<fun.ml:38:6>>*/ finally_no_exn(0);
       /*<<fun.ml:39:6>>*/ caml_restore_raw_backtrace(work_exn, work_bt);
@@ -24310,8 +24294,8 @@
      var c =  /*<<in_channel.ml:55:8>>*/ caml_call1(Stdlib[82], ic);
     }
     catch(_x_){
-     var _w_ = caml_wrap_exception(_x_);
-      /*<<?>>*/ if(_w_ === Stdlib[12])  /*<<in_channel.ml:57:29>>*/ return 0;
+     var _w_ =  /*<<?>>*/ caml_wrap_exception(_x_);
+     if(_w_ === Stdlib[12])  /*<<in_channel.ml:57:29>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_w_, 0);
     }
      /*<<in_channel.ml:56:9>>*/ return [0, c];
@@ -24321,8 +24305,8 @@
      var n =  /*<<in_channel.ml:60:8>>*/ caml_call1(Stdlib[87], ic);
     }
     catch(_v_){
-     var _u_ = caml_wrap_exception(_v_);
-      /*<<?>>*/ if(_u_ === Stdlib[12])  /*<<in_channel.ml:62:29>>*/ return 0;
+     var _u_ =  /*<<?>>*/ caml_wrap_exception(_v_);
+     if(_u_ === Stdlib[12])  /*<<in_channel.ml:62:29>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_u_, 0);
     }
      /*<<in_channel.ml:61:9>>*/ return [0, n];
@@ -24332,8 +24316,8 @@
      var s =  /*<<in_channel.ml:65:8>>*/ caml_call1(Stdlib[83], ic);
     }
     catch(_t_){
-     var _s_ = caml_wrap_exception(_t_);
-      /*<<?>>*/ if(_s_ === Stdlib[12])  /*<<in_channel.ml:67:29>>*/ return 0;
+     var _s_ =  /*<<?>>*/ caml_wrap_exception(_t_);
+     if(_s_ === Stdlib[12])  /*<<in_channel.ml:67:29>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_s_, 0);
     }
      /*<<in_channel.ml:66:9>>*/ return [0, s];
@@ -24363,8 +24347,8 @@
       /*<<in_channel.ml:82:10>>*/ return _a_;
     }
     catch(_r_){
-     var _q_ = caml_wrap_exception(_r_);
-      /*<<?>>*/ if(_q_ === Stdlib[12])  /*<<in_channel.ml:83:29>>*/ return 0;
+     var _q_ =  /*<<?>>*/ caml_wrap_exception(_r_);
+     if(_q_ === Stdlib[12])  /*<<in_channel.ml:83:29>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_q_, 0);
     }
     /*<<in_channel.ml:83:33>>*/ }
@@ -24400,8 +24384,8 @@
      var s =  /*<<in_channel.ml:99:8>>*/ caml_call2(Stdlib[86], ic, len);
     }
     catch(_p_){
-     var _o_ = caml_wrap_exception(_p_);
-      /*<<?>>*/ if(_o_ === Stdlib[12])  /*<<in_channel.ml:101:29>>*/ return 0;
+     var _o_ =  /*<<?>>*/ caml_wrap_exception(_p_);
+     if(_o_ === Stdlib[12])  /*<<in_channel.ml:101:29>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_o_, 0);
     }
      /*<<in_channel.ml:100:9>>*/ return [0, s];
@@ -24463,9 +24447,8 @@
       initial_size = _l_;
     }
     catch(_n_){
-     var _i_ = caml_wrap_exception(_n_);
-      /*<<?>>*/ if(_i_[1] !== Stdlib[11])
-      throw caml_maybe_attach_backtrace(_i_, 0);
+     var _i_ =  /*<<?>>*/ caml_wrap_exception(_n_);
+     if(_i_[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(_i_, 0);
      var initial_size =  /*<<in_channel.ml:159:6>>*/ -1;
     }
     var
@@ -24487,8 +24470,8 @@
      var c =  /*<<in_channel.ml:173:10>>*/ caml_call1(Stdlib[82], ic);
     }
     catch(_m_){
-     var _j_ = caml_wrap_exception(_m_);
-      /*<<?>>*/ if(_j_ === Stdlib[12])
+     var _j_ =  /*<<?>>*/ caml_wrap_exception(_m_);
+     if(_j_ === Stdlib[12])
        /*<<in_channel.ml:176:8>>*/ return caml_call1(Stdlib_Bytes[44], buf) /*<<in_channel.ml:193:5>>*/ ;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_j_, 0);
     }
@@ -24517,8 +24500,8 @@
      var line =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
     }
     catch(_h_){
-     var _e_ = caml_wrap_exception(_h_);
-      /*<<?>>*/ if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
+     var _e_ =  /*<<?>>*/ caml_wrap_exception(_h_);
+     if(_e_ === Stdlib[12])  /*<<in_channel.ml:198:29>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_e_, 0);
     }
     var
@@ -24530,9 +24513,8 @@
       var line$0 =  /*<<in_channel.ml:196:8>>*/ caml_call1(Stdlib[83], ic);
      }
      catch(_g_){
-      var _f_ = caml_wrap_exception(_g_);
-       /*<<?>>*/ if(_f_ !== Stdlib[12])
-       throw caml_maybe_attach_backtrace(_f_, 0);
+      var _f_ =  /*<<?>>*/ caml_wrap_exception(_g_);
+      if(_f_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_f_, 0);
        /*<<in_channel.ml:198:29>>*/ dst[1 + offset] = 0;
        /*<<in_channel.ml:197:34>>*/ return block;
      }
@@ -24547,9 +24529,8 @@
     for(;;){
      try{var line =  /*<<in_channel.ml:201:8>>*/ caml_call1(Stdlib[83], ic);}
      catch(_d_){
-      var _c_ = caml_wrap_exception(_d_);
-       /*<<?>>*/ if(_c_ === Stdlib[12])
-        /*<<in_channel.ml:203:29>>*/ return accu$0;
+      var _c_ =  /*<<?>>*/ caml_wrap_exception(_d_);
+      if(_c_ === Stdlib[12])  /*<<in_channel.ml:203:29>>*/ return accu$0;
        /*<<?>>*/ throw caml_maybe_attach_backtrace(_c_, 0);
      }
      var accu$1 =  /*<<in_channel.ml:202:25>>*/ caml_call2(f, accu$0, line);
@@ -26356,18 +26337,16 @@
      params = _f_;
    }
    catch(_al_){
-    var _a_ = caml_wrap_exception(_al_);
-     /*<<?>>*/ if(_a_ !== Stdlib[8])
-     throw caml_maybe_attach_backtrace(_a_, 0);
+    var _a_ =  /*<<?>>*/ caml_wrap_exception(_al_);
+    if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
      /*<<hashtbl.ml:52:4>>*/ try{
      var
       _e_ =  /*<<hashtbl.ml:52:8>>*/ caml_sys_getenv("CAMLRUNPARAM"),
       _c_ = _e_;
     }
     catch(_am_){
-     var _b_ = caml_wrap_exception(_am_);
-      /*<<?>>*/ if(_b_ !== Stdlib[8])
-      throw caml_maybe_attach_backtrace(_b_, 0);
+     var _b_ =  /*<<?>>*/ caml_wrap_exception(_am_);
+     if(_b_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_b_, 0);
      var _c_ =  /*<<hashtbl.ml:52:52>>*/ cst;
     }
     var params =  /*<<hashtbl.ml:52:4>>*/ _c_;
@@ -26586,7 +26565,7 @@
      return _Y_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:170:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:171:4>>*/ flip_ongoing_traversal(h);
@@ -26645,7 +26624,7 @@
      return _T_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:203:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:204:4>>*/ flip_ongoing_traversal(h);
@@ -26692,7 +26671,7 @@
      return _O_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
       /*<<hashtbl.ml:224:16>>*/ if(old_trav)
       throw caml_maybe_attach_backtrace(exn, 0);
       /*<<hashtbl.ml:225:4>>*/ flip_ongoing_traversal(h);
@@ -30262,9 +30241,8 @@
      return c;
     }
     catch(_aY_){
-     var _aX_ = caml_wrap_exception(_aY_);
-      /*<<?>>*/ if(_aX_ !== Stdlib[12])
-      throw caml_maybe_attach_backtrace(_aX_, 0);
+     var _aX_ =  /*<<?>>*/ caml_wrap_exception(_aY_);
+     if(_aX_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_aX_, 0);
       /*<<scanf.ml:174:6>>*/ ib[2] = null_char;
       /*<<scanf.ml:175:6>>*/ ib[3] = 0;
       /*<<scanf.ml:176:6>>*/ ib[1] = 1;
@@ -32076,9 +32054,8 @@
           fmt$3 = _E_;
         }
         catch(exn$0){
-         var exn = caml_wrap_exception(exn$0);
-          /*<<?>>*/ if(exn[1] !== Stdlib[7])
-          throw caml_maybe_attach_backtrace(exn, 0);
+         var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+         if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
          var
           msg = exn[2],
           fmt$3 =
@@ -32124,8 +32101,8 @@
           fmt$4 = _J_;
         }
         catch(exn){
-         var exn$0 = caml_wrap_exception(exn);
-          /*<<?>>*/ if(exn$0[1] !== Stdlib[7])
+         var exn$0 =  /*<<?>>*/ caml_wrap_exception(exn);
+         if(exn$0[1] !== Stdlib[7])
           throw caml_maybe_attach_backtrace(exn$0, 0);
          var
           msg$0 = exn$0[2],
@@ -32318,8 +32295,8 @@
       var args$1 =  /*<<scanf.ml:1466:10>>*/ make_scanf(ib, fmt, readers);
      }
      catch(exc$0){
-      var exc = caml_wrap_exception(exc$0);
-       /*<<?>>*/ if
+      var exc =  /*<<?>>*/ caml_wrap_exception(exc$0);
+      if
        (exc[1] !== Scan_failure && exc[1] !== Stdlib[7] && exc !== Stdlib[12]){
        if(exc[1] !== Stdlib[6]) throw caml_maybe_attach_backtrace(exc, 0);
        var
@@ -32402,9 +32379,8 @@
       fmt = _x_;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
-      /*<<?>>*/ if(exn[1] !== Stdlib[7])
-      throw caml_maybe_attach_backtrace(exn, 0);
+     var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
+     if(exn[1] !== Stdlib[7]) throw caml_maybe_attach_backtrace(exn, 0);
      var
       msg = exn[2],
       fmt =  /*<<scanf.ml:1506:39>>*/  /*<<scanf.ml:1506:26>>*/ bad_input(msg);
@@ -32682,9 +32658,8 @@
      return _$_;
     }
     catch(_aa_){
-     var ___ = caml_wrap_exception(_aa_);
-      /*<<?>>*/ if(___ !== Stdlib[8])
-      throw caml_maybe_attach_backtrace(___, 0);
+     var ___ =  /*<<?>>*/ caml_wrap_exception(_aa_);
+     if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
      var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
       /*<<camlinternalOO.ml:173:71>>*/ table[3] =
        /*<<camlinternalOO.ml:173:29>>*/ caml_call3
@@ -32723,8 +32698,8 @@
      return _X_;
     }
     catch(_Y_){
-     var _W_ = caml_wrap_exception(_Y_);
-      /*<<?>>*/ if(_W_ === Stdlib[8])
+     var _W_ =  /*<<?>>*/ caml_wrap_exception(_Y_);
+     if(_W_ === Stdlib[8])
        /*<<camlinternalOO.ml:189:41>>*/ return  /*<<camlinternalOO.ml:189:20>>*/ caml_check_bound
                (table[2], label)
               [1 + label] /*<<camlinternalOO.ml:189:41>>*/ ;
@@ -32786,9 +32761,8 @@
          _R_ = _S_;
        }
        catch(_T_){
-        var _Q_ = caml_wrap_exception(_T_);
-         /*<<?>>*/ if(_Q_ !== Stdlib[8])
-         throw caml_maybe_attach_backtrace(_Q_, 0);
+        var _Q_ =  /*<<?>>*/ caml_wrap_exception(_T_);
+        if(_Q_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_Q_, 0);
         var _R_ =  /*<<camlinternalOO.ml:216:74>>*/ 1;
        }
         /*<<camlinternalOO.ml:217:21>>*/ by_label[1] =
@@ -32874,9 +32848,8 @@
      return _M_;
     }
     catch(_N_){
-     var _L_ = caml_wrap_exception(_N_);
-      /*<<?>>*/ if(_L_ !== Stdlib[8])
-      throw caml_maybe_attach_backtrace(_L_, 0);
+     var _L_ =  /*<<?>>*/ caml_wrap_exception(_N_);
+     if(_L_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_L_, 0);
      var index =  /*<<camlinternalOO.ml:252:2>>*/ table[1];
       /*<<camlinternalOO.ml:253:2>>*/ table[1] = index + 1 | 0;
       /*<<camlinternalOO.ml:260:17>>*/ if(name !== "")
@@ -32942,8 +32915,8 @@
      return _A_;
     }
     catch(_B_){
-     var _z_ = caml_wrap_exception(_B_);
-      /*<<?>>*/ if(_z_ === Stdlib[8])
+     var _z_ =  /*<<?>>*/ caml_wrap_exception(_B_);
+     if(_z_ === Stdlib[8])
        /*<<camlinternalOO.ml:279:50>>*/ throw caml_maybe_attach_backtrace
              ([0, Assert_failure, _a_], 1);
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_z_, 0);
@@ -34200,9 +34173,8 @@
       }
      }
      catch(_Y_){
-      var _W_ = caml_wrap_exception(_Y_);
-       /*<<?>>*/ if(_W_ !== Stdlib[8])
-       throw caml_maybe_attach_backtrace(_W_, 0);
+      var _W_ =  /*<<?>>*/ caml_wrap_exception(_Y_);
+      if(_W_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_W_, 0);
       var
        container =  /*<<ephemeron.ml:304:24>>*/ caml_call2(H[1], key, info);
        /*<<ephemeron.ml:305:8>>*/ caml_check_bound(h[2], i)[1 + i] = [0, hkey, container, l];
@@ -34841,8 +34813,8 @@
      return _E_;
     }
     catch(_G_){
-     var _B_ = caml_wrap_exception(_G_);
-      /*<<?>>*/ if(_B_ === Stdlib[3])  /*<<ephemeron.ml:641:17>>*/ return 0;
+     var _B_ =  /*<<?>>*/ caml_wrap_exception(_G_);
+     if(_B_ === Stdlib[3])  /*<<ephemeron.ml:641:17>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_B_, 0);
     }
     /*<<ephemeron.ml:641:21>>*/ }
@@ -35046,8 +35018,8 @@
      return _h_;
     }
     catch(_j_){
-     var _e_ = caml_wrap_exception(_j_);
-      /*<<?>>*/ if(_e_ === Stdlib[3])  /*<<ephemeron.ml:719:19>>*/ return 0;
+     var _e_ =  /*<<?>>*/ caml_wrap_exception(_j_);
+     if(_e_ === Stdlib[3])  /*<<ephemeron.ml:719:19>>*/ return 0;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_e_, 0);
     }
     /*<<ephemeron.ml:719:24>>*/ }
@@ -35358,9 +35330,8 @@
      temp_dir_name = _j_;
    }
    catch(_aB_){
-    var _a_ = caml_wrap_exception(_aB_);
-     /*<<?>>*/ if(_a_ !== Stdlib[8])
-     throw caml_maybe_attach_backtrace(_a_, 0);
+    var _a_ =  /*<<?>>*/ caml_wrap_exception(_aB_);
+    if(_a_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_a_, 0);
     var temp_dir_name =  /*<<filename.ml:117:46>>*/ cst_tmp;
    }
    function quote(s){
@@ -35598,9 +35569,8 @@
      temp_dir_name$0 = _i_;
    }
    catch(_P_){
-    var _b_ = caml_wrap_exception(_P_);
-     /*<<?>>*/ if(_b_ !== Stdlib[8])
-     throw caml_maybe_attach_backtrace(_b_, 0);
+    var _b_ =  /*<<?>>*/ caml_wrap_exception(_P_);
+    if(_b_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_b_, 0);
     var temp_dir_name$0 =  /*<<filename.ml:165:44>>*/ cst$5;
    }
    function quote$0(s){
@@ -36036,9 +36006,8 @@
       return name;
      }
      catch(e$0){
-      var e = caml_wrap_exception(e$0);
-       /*<<?>>*/ if(e[1] !== Stdlib[11])
-       throw caml_maybe_attach_backtrace(e, 0);
+      var e =  /*<<?>>*/ caml_wrap_exception(e$0);
+      if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
        /*<<filename.ml:350:6>>*/ if(20 <= counter)
         /*<<filename.ml:350:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:350:41>>*/ counter + 1 | 0;
@@ -36070,9 +36039,8 @@
       return _n_;
      }
      catch(e$0){
-      var e = caml_wrap_exception(e$0);
-       /*<<?>>*/ if(e[1] !== Stdlib[11])
-       throw caml_maybe_attach_backtrace(e, 0);
+      var e =  /*<<?>>*/ caml_wrap_exception(e$0);
+      if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
        /*<<filename.ml:362:6>>*/ if(20 <= counter)
         /*<<filename.ml:362:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:362:41>>*/ counter + 1 | 0;
@@ -36098,9 +36066,8 @@
       return name;
      }
      catch(e$0){
-      var e = caml_wrap_exception(e$0);
-       /*<<?>>*/ if(e[1] !== Stdlib[11])
-       throw caml_maybe_attach_backtrace(e, 0);
+      var e =  /*<<?>>*/ caml_wrap_exception(e$0);
+      if(e[1] !== Stdlib[11]) throw caml_maybe_attach_backtrace(e, 0);
        /*<<filename.ml:373:6>>*/ if(20 <= counter)
         /*<<filename.ml:373:28>>*/ throw caml_maybe_attach_backtrace(e, 0);
       var counter$0 =  /*<<filename.ml:373:41>>*/ counter + 1 | 0;
@@ -37034,8 +37001,8 @@
      var _b_ = 0;
     }
     catch(exn$0){
-     var exn = caml_wrap_exception(exn$0);
-      /*<<?>>*/ if(exn[1] !== E) throw caml_maybe_attach_backtrace(exn, 0);
+     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;
     }

From 6083873ce483135ebd583447608e8847db2e9210 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 14 Oct 2024 18:43:30 +0200
Subject: [PATCH 19/35] Add appropriate events for partial application and over
 application

---
 compiler/lib/specialize.ml                 |  39 +-
 compiler/tests-full/stdlib.cma.expected.js | 407 ++++++++++++++-------
 2 files changed, 296 insertions(+), 150 deletions(-)

diff --git a/compiler/lib/specialize.ml b/compiler/lib/specialize.ml
index 2c7a7b1d2f..7d29ffe81a 100644
--- a/compiler/lib/specialize.ml
+++ b/compiler/lib/specialize.ml
@@ -49,20 +49,25 @@ let function_arity info x =
   in
   arity info x []
 
-let specialize_instr function_arity (acc, free_pc, extra) i =
+let add_event loc instrs =
+  match loc with
+  | Some loc -> (Event loc, noloc) :: instrs
+  | None -> instrs
+
+let specialize_instr function_arity ((acc, free_pc, extra), loc) i =
   match i with
-  | Let (x, Apply { f; args; exact = false }), loc when Config.Flag.optcall () -> (
+  | Let (x, Apply { f; args; exact = false }), loc' when Config.Flag.optcall () -> (
       let n' = List.length args in
       match function_arity f with
       | None -> i :: acc, free_pc, extra
       | Some n when n = n' ->
-          (Let (x, Apply { f; args; exact = true }), loc) :: acc, free_pc, extra
+          (Let (x, Apply { f; args; exact = true }), loc') :: acc, free_pc, extra
       | Some n when n < n' ->
           let v = Code.Var.fresh () in
           let args, rest = List.take n args in
-          ( (Let (v, Apply { f; args; exact = true }), loc)
-            :: (Let (x, Apply { f = v; args = rest; exact = false }), loc)
-            :: acc
+          ( (* Reversed *)
+            (Let (x, Apply { f = v; args = rest; exact = false }), loc')
+            :: add_event loc ((Let (v, Apply { f; args; exact = true }), loc') :: acc)
           , free_pc
           , extra )
       | Some n when n > n' ->
@@ -74,11 +79,14 @@ let specialize_instr function_arity (acc, free_pc, extra) i =
             let return' = Code.Var.fresh () in
             { params = params'
             ; body =
-                [ Let (return', Apply { f; args = args @ params'; exact = true }), noloc ]
+                add_event
+                  loc
+                  [ Let (return', Apply { f; args = args @ params'; exact = true }), noloc
+                  ]
             ; branch = Return return', noloc
             }
           in
-          ( (Let (x, Closure (missing, (free_pc, missing))), loc) :: acc
+          ( (Let (x, Closure (missing, (free_pc, missing))), loc') :: acc
           , free_pc + 1
           , (free_pc, block) :: extra )
       | _ -> i :: acc, free_pc, extra)
@@ -88,15 +96,22 @@ let specialize_instrs ~function_arity p =
   let blocks, free_pc =
     Addr.Map.fold
       (fun pc block (blocks, free_pc) ->
-        let body, free_pc, extra =
-          List.fold_right block.body ~init:([], free_pc, []) ~f:(fun i acc ->
-              specialize_instr function_arity acc i)
+        let (body, free_pc, extra), _ =
+          List.fold_left
+            block.body
+            ~init:(([], free_pc, []), None)
+            ~f:(fun acc i ->
+              match fst i with
+              | Event loc ->
+                  let (body, free_pc, extra), _ = acc in
+                  (i :: body, free_pc, extra), Some loc
+              | _ -> specialize_instr function_arity acc i, None)
         in
         let blocks =
           List.fold_left extra ~init:blocks ~f:(fun blocks (pc, b) ->
               Addr.Map.add pc b blocks)
         in
-        Addr.Map.add pc { block with Code.body } blocks, free_pc)
+        Addr.Map.add pc { block with Code.body = List.rev body } blocks, free_pc)
       p.blocks
       (Addr.Map.empty, p.free_pc)
   in
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index ef5b1b62f0..25ff0e0d2d 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -1773,7 +1773,9 @@
     var next =  /*<<seq.ml:31:14>>*/ match[2], x = match[1];
      /*<<seq.ml:33:47>>*/ return [0,
             x,
-            function(_au_){ /*<<?>>*/ return append(next, seq2, _au_);}] /*<<seq.ml:33:47>>*/ ;
+            function(_au_){
+              /*<<seq.ml:33:31>>*/ return append(next, seq2, _au_);
+            }] /*<<seq.ml:33:47>>*/ ;
     /*<<seq.ml:33:48>>*/ }
    function map(f, seq, param){
     var match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
@@ -1781,7 +1783,7 @@
     var next =  /*<<seq.ml:35:34>>*/ match[2], x = match[1];
      /*<<seq.ml:37:31>>*/ return [0,
              /*<<seq.ml:37:28>>*/ caml_call1(f, x),
-            function(_at_){ /*<<?>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:31>>*/ ;
+            function(_at_){ /*<<seq.ml:37:33>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:31>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
     var seq$0 =  /*<<seq.ml:39:30>>*/ seq;
@@ -1796,7 +1798,9 @@
       var y = match$0[1];
        /*<<seq.ml:44:46>>*/ return [0,
               y,
-              function(_as_){ /*<<?>>*/ return filter_map(f, next, _as_);}] /*<<seq.ml:44:46>>*/ ;
+              function(_as_){
+                /*<<seq.ml:44:29>>*/ return filter_map(f, next, _as_);
+              }] /*<<seq.ml:44:46>>*/ ;
      }
       /*<<seq.ml:43:18>>*/ seq$0 = next;
     }
@@ -1810,7 +1814,9 @@
       /*<<seq.ml:49:12>>*/ if( /*<<seq.ml:49:9>>*/ caml_call1(f, x))
        /*<<seq.ml:50:33>>*/ return [0,
               x,
-              function(_ar_){ /*<<?>>*/ return filter(f, next, _ar_);}] /*<<seq.ml:50:33>>*/ ;
+              function(_ar_){
+                /*<<seq.ml:50:20>>*/ return filter(f, next, _ar_);
+              }] /*<<seq.ml:50:33>>*/ ;
       /*<<seq.ml:51:11>>*/ seq$0 = next;
     }
     /*<<seq.ml:51:27>>*/ }
@@ -1819,7 +1825,9 @@
      /*<<seq.ml:53:36>>*/ if(! match)  /*<<seq.ml:54:11>>*/ return 0;
     var next =  /*<<seq.ml:53:36>>*/ match[2], x = match[1];
      /*<<seq.ml:56:27>>*/ return append
-            (x, function(_aq_){ /*<<?>>*/ return concat(next, _aq_);}, 0) /*<<seq.ml:56:30>>*/ ;
+            (x,
+             function(_aq_){ /*<<seq.ml:56:14>>*/ return concat(next, _aq_);},
+             0) /*<<seq.ml:56:30>>*/ ;
    }
    function flat_map(f, seq, param){
     var match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
@@ -1827,7 +1835,9 @@
     var next =  /*<<seq.ml:58:40>>*/ match[2], x = match[1];
      /*<<seq.ml:61:16>>*/ return append
             ( /*<<seq.ml:61:11>>*/ caml_call1(f, x),
-             function(_ap_){ /*<<?>>*/ return flat_map(f, next, _ap_);},
+             function(_ap_){
+               /*<<seq.ml:61:17>>*/ return flat_map(f, next, _ap_);
+             },
              0) /*<<seq.ml:61:37>>*/ ;
    }
    function fold_left(f, acc, seq){
@@ -1862,7 +1872,7 @@
      x = match$0[1];
      /*<<seq.ml:82:40>>*/ return [0,
             x,
-            function(_ao_){ /*<<?>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:40>>*/ ;
+            function(_ao_){ /*<<seq.ml:82:29>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:40>>*/ ;
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
      /*<<seq.ml:85:12>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0)
@@ -2114,7 +2124,9 @@
     var _ah_ =  /*<<seq.ml:264:16>>*/ i + 1 | 0;
      /*<<seq.ml:265:13>>*/ return [0,
              /*<<seq.ml:265:10>>*/ caml_call1(f, i),
-            function(_ai_){ /*<<?>>*/ return init_aux(f, _ah_, j, _ai_);}] /*<<seq.ml:265:13>>*/ ;
+            function(_ai_){
+              /*<<seq.ml:265:15>>*/ return init_aux(f, _ah_, j, _ai_);
+            }] /*<<seq.ml:265:13>>*/ ;
     /*<<seq.ml:268:7>>*/ }
    function init(n, f){
      /*<<seq.ml:271:2>>*/ if(0 > n)
@@ -2126,36 +2138,42 @@
    function repeat(x, param){
      /*<<seq.ml:277:19>>*/ return [0,
             x,
-            function(_ae_){ /*<<?>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:19>>*/ ;
+            function(_ae_){ /*<<seq.ml:277:11>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:19>>*/ ;
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
      /*<<seq.ml:280:11>>*/ return [0,
              /*<<seq.ml:280:8>>*/ caml_call1(f, 0),
-            function(_ad_){ /*<<?>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:11>>*/ ;
+            function(_ad_){ /*<<seq.ml:280:13>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:11>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
      /*<<seq.ml:287:31>>*/ return append
             (xs,
-             function(_ac_){ /*<<?>>*/ return cycle_nonempty(xs, _ac_);},
+             function(_ac_){
+               /*<<seq.ml:287:12>>*/ return cycle_nonempty(xs, _ac_);
+             },
              0) /*<<seq.ml:287:34>>*/ ;
    }
    function cycle(xs, param){
     var match =  /*<<seq.ml:295:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:295:12>>*/ if(! match)  /*<<seq.ml:297:6>>*/ return 0;
     var xs$0 =  /*<<seq.ml:295:12>>*/ match[2], x = match[1];
-    function _$_(_ab_){ /*<<?>>*/ return cycle_nonempty(xs, _ab_);}
+    function _$_(_ab_){
+      /*<<seq.ml:299:26>>*/ return cycle_nonempty(xs, _ab_);
+    }
      /*<<seq.ml:299:45>>*/ return [0,
             x,
-            function(_aa_){ /*<<?>>*/ return append(xs$0, _$_, _aa_);}] /*<<seq.ml:299:45>>*/ ;
+            function(_aa_){
+              /*<<seq.ml:299:15>>*/ return append(xs$0, _$_, _aa_);
+            }] /*<<seq.ml:299:45>>*/ ;
     /*<<seq.ml:299:46>>*/ }
    function iterate1(f, x, param){
     var y =  /*<<seq.ml:306:10>>*/ caml_call1(f, x);
      /*<<seq.ml:307:23>>*/ return [0,
             y,
-            function(___){ /*<<?>>*/ return iterate1(f, y, ___);}] /*<<seq.ml:307:23>>*/ ;
+            function(___){ /*<<seq.ml:307:11>>*/ return iterate1(f, y, ___);}] /*<<seq.ml:307:23>>*/ ;
     /*<<seq.ml:307:24>>*/ }
    function iterate(f, x){
-    function next(_Z_){ /*<<?>>*/ return iterate1(f, x, _Z_);}
+    function next(_Z_){ /*<<seq.ml:319:9>>*/ return iterate1(f, x, _Z_);}
      /*<<seq.ml:319:23>>*/ return function(_Y_){
       /*<<seq.ml:28:21>>*/ return [0, x, next];} /*<<seq.ml:319:23>>*/ ;
    }
@@ -2168,7 +2186,9 @@
      _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
      /*<<seq.ml:328:17>>*/ return [0,
              /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
-            function(_X_){ /*<<?>>*/ return mapi_aux(f, _W_, xs$0, _X_);}] /*<<seq.ml:328:17>>*/ ;
+            function(_X_){
+              /*<<seq.ml:328:19>>*/ return mapi_aux(f, _W_, xs$0, _X_);
+            }] /*<<seq.ml:328:17>>*/ ;
     /*<<seq.ml:328:39>>*/ }
    function mapi(f, xs){
     var _U_ =  /*<<seq.ml:331:2>>*/ 0;
@@ -2184,10 +2204,12 @@
      s$0 =  /*<<seq.ml:344:14>>*/ caml_call2(f, s, x);
      /*<<seq.ml:345:31>>*/ return [0,
             s$0,
-            function(_T_){ /*<<?>>*/ return tail_scan(f, s$0, xs$0, _T_);}] /*<<seq.ml:345:31>>*/ ;
+            function(_T_){
+              /*<<seq.ml:345:15>>*/ return tail_scan(f, s$0, xs$0, _T_);
+            }] /*<<seq.ml:345:31>>*/ ;
     /*<<seq.ml:345:32>>*/ }
    function scan(f, s, xs){
-    function next(_S_){ /*<<?>>*/ return tail_scan(f, s, xs, _S_);}
+    function next(_S_){ /*<<seq.ml:348:9>>*/ return tail_scan(f, s, xs, _S_);}
      /*<<seq.ml:348:27>>*/ return function(_R_){
       /*<<seq.ml:28:21>>*/ return [0, s, next];} /*<<seq.ml:348:27>>*/ ;
    }
@@ -2240,7 +2262,9 @@
      /*<<seq.ml:399:12>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
             ? [0,
               x,
-              function(_Q_){ /*<<?>>*/ return take_while(p, xs$0, _Q_);}]
+              function(_Q_){
+                /*<<seq.ml:399:27>>*/ return take_while(p, xs$0, _Q_);
+              }]
             : 0 /*<<seq.ml:399:52>>*/ ;
    }
    function drop_while(p, xs, param){
@@ -2261,12 +2285,16 @@
      xs$0 =  /*<<seq.ml:409:12>>*/ match[2],
      x = match[1],
      _J_ =  /*<<seq.ml:413:64>>*/ caml_call1(eq, x);
-    function _K_(_P_){ /*<<?>>*/ return drop_while(_J_, xs$0, _P_);}
+    function _K_(_P_){
+      /*<<seq.ml:413:52>>*/ return drop_while(_J_, xs$0, _P_);
+    }
     var _L_ =  /*<<seq.ml:413:31>>*/ caml_call1(eq, x);
-    function next(_O_){ /*<<?>>*/ return take_while(_L_, xs$0, _O_);}
+    function next(_O_){
+      /*<<seq.ml:413:19>>*/ return take_while(_L_, xs$0, _O_);
+    }
      /*<<seq.ml:413:41>>*/ return [0,
             function(_N_){ /*<<seq.ml:28:21>>*/ return [0, x, next];},
-            function(_M_){ /*<<?>>*/ return group(eq, _K_, _M_);}] /*<<seq.ml:413:41>>*/ ;
+            function(_M_){ /*<<seq.ml:413:43>>*/ return group(eq, _K_, _M_);}] /*<<seq.ml:413:41>>*/ ;
     /*<<seq.ml:413:75>>*/ }
    var
     Forced_twice =
@@ -2316,7 +2344,7 @@
     var ys$0 =  /*<<seq.ml:482:16>>*/ match$0[2], y = match$0[1];
      /*<<seq.ml:486:33>>*/ return [0,
             [0, x, y],
-            function(_H_){ /*<<?>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:33>>*/ ;
+            function(_H_){ /*<<seq.ml:486:24>>*/ return zip(xs$0, ys$0, _H_);}] /*<<seq.ml:486:33>>*/ ;
     /*<<seq.ml:486:34>>*/ }
    function map2(f, xs, ys, param){
     var match =  /*<<seq.ml:489:8>>*/ caml_call1(xs, 0);
@@ -2329,7 +2357,9 @@
     var ys$0 =  /*<<seq.ml:493:16>>*/ match$0[2], y = match$0[1];
      /*<<seq.ml:497:21>>*/ return [0,
              /*<<seq.ml:497:16>>*/ caml_call2(f, x, y),
-            function(_G_){ /*<<?>>*/ return map2(f, xs$0, ys$0, _G_);}] /*<<seq.ml:497:21>>*/ ;
+            function(_G_){
+              /*<<seq.ml:497:23>>*/ return map2(f, xs$0, ys$0, _G_);
+            }] /*<<seq.ml:497:21>>*/ ;
     /*<<seq.ml:497:36>>*/ }
    function interleave(xs, ys, param){
     var match =  /*<<seq.ml:500:8>>*/ caml_call1(xs, 0);
@@ -2338,7 +2368,9 @@
     var xs$0 =  /*<<seq.ml:500:12>>*/ match[2], x = match[1];
      /*<<seq.ml:504:31>>*/ return [0,
             x,
-            function(_F_){ /*<<?>>*/ return interleave(ys, xs$0, _F_);}] /*<<seq.ml:504:31>>*/ ;
+            function(_F_){
+              /*<<seq.ml:504:15>>*/ return interleave(ys, xs$0, _F_);
+            }] /*<<seq.ml:504:31>>*/ ;
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
      /*<<seq.ml:533:12>>*/ return 0
@@ -2385,7 +2417,7 @@
     var xys$0 =  /*<<seq.ml:550:13>>*/ match[2], x = match[1][1];
      /*<<seq.ml:554:26>>*/ return [0,
             x,
-            function(_C_){ /*<<?>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:26>>*/ ;
+            function(_C_){ /*<<seq.ml:554:15>>*/ return map_fst(xys$0, _C_);}] /*<<seq.ml:554:26>>*/ ;
     /*<<seq.ml:554:27>>*/ }
    function map_snd(xys, param){
     var match =  /*<<seq.ml:557:8>>*/ caml_call1(xys, 0);
@@ -2393,12 +2425,12 @@
     var xys$0 =  /*<<seq.ml:557:13>>*/ match[2], y = match[1][2];
      /*<<seq.ml:561:26>>*/ return [0,
             y,
-            function(_B_){ /*<<?>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:26>>*/ ;
+            function(_B_){ /*<<seq.ml:561:15>>*/ return map_snd(xys$0, _B_);}] /*<<seq.ml:561:26>>*/ ;
     /*<<seq.ml:561:27>>*/ }
    function unzip(xys){
      /*<<seq.ml:564:13>>*/ return [0,
-            function(_A_){ /*<<?>>*/ return map_fst(xys, _A_);},
-            function(_z_){return map_snd(xys, _z_);}] /*<<seq.ml:564:13>>*/ ;
+            function(_A_){ /*<<seq.ml:564:2>>*/ return map_fst(xys, _A_);},
+            function(_z_){ /*<<seq.ml:564:15>>*/ return map_snd(xys, _z_);}] /*<<seq.ml:564:13>>*/ ;
     /*<<seq.ml:564:26>>*/ }
    function filter_map_find_left_map(f, xs, param){
     var xs$0 =  /*<<seq.ml:573:2>>*/ xs;
@@ -2414,7 +2446,8 @@
        /*<<seq.ml:579:48>>*/ return [0,
               y,
               function(_y_){
-                /*<<?>>*/ return filter_map_find_left_map(f, xs$1, _y_);
+                /*<<seq.ml:579:19>>*/ return filter_map_find_left_map
+                       (f, xs$1, _y_);
               }] /*<<seq.ml:579:48>>*/ ;
      }
       /*<<seq.ml:581:10>>*/ xs$0 = xs$1;
@@ -2434,7 +2467,8 @@
        /*<<seq.ml:592:49>>*/ return [0,
               z,
               function(_x_){
-                /*<<?>>*/ return filter_map_find_right_map(f, xs$1, _x_);
+                /*<<seq.ml:592:19>>*/ return filter_map_find_right_map
+                       (f, xs$1, _x_);
               }] /*<<seq.ml:592:49>>*/ ;
      }
       /*<<seq.ml:590:10>>*/ xs$0 = xs$1;
@@ -2443,21 +2477,26 @@
    function partition_map(f, xs){
      /*<<seq.ml:595:31>>*/ return [0,
             function(_w_){
-              /*<<?>>*/ return filter_map_find_left_map(f, xs, _w_);
+              /*<<seq.ml:595:2>>*/ return filter_map_find_left_map(f, xs, _w_);
             },
-            function(_v_){return filter_map_find_right_map(f, xs, _v_);}] /*<<seq.ml:595:31>>*/ ;
+            function(_v_){
+              /*<<seq.ml:596:2>>*/ return filter_map_find_right_map
+                     (f, xs, _v_);
+            }] /*<<seq.ml:595:31>>*/ ;
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
       /*<<seq.ml:599:41>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x) /*<<seq.ml:599:41>>*/ ;
     }
      /*<<seq.ml:599:13>>*/ return [0,
-            function(_u_){ /*<<?>>*/ return filter(p, xs, _u_);},
-            function(_t_){return filter(_s_, xs, _t_);}] /*<<seq.ml:599:13>>*/ ;
+            function(_u_){ /*<<seq.ml:599:2>>*/ return filter(p, xs, _u_);},
+            function(_t_){ /*<<seq.ml:599:15>>*/ return filter(_s_, xs, _t_);}] /*<<seq.ml:599:13>>*/ ;
     /*<<seq.ml:599:45>>*/ }
    function peel(xss){
      /*<<seq.ml:611:31>>*/ return unzip
-            (function(_r_){ /*<<?>>*/ return filter_map(uncons, xss, _r_);}) /*<<seq.ml:611:31>>*/ ;
+            (function(_r_){
+               /*<<seq.ml:611:8>>*/ return filter_map(uncons, xss, _r_);
+             }) /*<<seq.ml:611:31>>*/ ;
    }
    function transpose(xss, param){
     var
@@ -2467,7 +2506,9 @@
      /*<<seq.ml:615:19>>*/ if(!  /*<<seq.ml:615:5>>*/ is_empty(heads))
       /*<<seq.ml:620:32>>*/ return [0,
              heads,
-             function(_q_){ /*<<?>>*/ return transpose(tails, _q_);}] /*<<seq.ml:620:32>>*/ ;
+             function(_q_){
+               /*<<seq.ml:620:17>>*/ return transpose(tails, _q_);
+             }] /*<<seq.ml:620:32>>*/ ;
      /*<<seq.ml:616:27>>*/ if( /*<<seq.ml:616:11>>*/ is_empty(tails))
       /*<<seq.ml:617:4>>*/ return 0;
      /*<<seq.ml:616:27>>*/ throw caml_maybe_attach_backtrace
@@ -2494,7 +2535,9 @@
         };
       /*<<seq.ml:638:28>>*/ return [0,
              function(_o_){ /*<<seq.ml:28:21>>*/ return [0, x, heads];},
-             function(_n_){ /*<<?>>*/ return _b_(_l_, xss$0, _n_);}] /*<<seq.ml:638:28>>*/ ;
+             function(_n_){
+               /*<<seq.ml:638:30>>*/ return _b_(_l_, xss$0, _n_);
+             }] /*<<seq.ml:638:28>>*/ ;
     }
     var
      match$2 =  /*<<seq.ml:643:29>>*/ peel(remainders),
@@ -2502,7 +2545,9 @@
      heads$0 = match$2[1];
      /*<<seq.ml:644:42>>*/ return [0,
             heads$0,
-            function(_m_){ /*<<?>>*/ return _b_(tails$0, xss$0, _m_);}] /*<<seq.ml:644:42>>*/ ;
+            function(_m_){
+              /*<<seq.ml:644:23>>*/ return _b_(tails$0, xss$0, _m_);
+            }] /*<<seq.ml:644:42>>*/ ;
     /*<<seq.ml:649:29>>*/ }
    function map_product(f, xs, ys){
     function _f_(x){
@@ -2512,10 +2557,9 @@
       /*<<seq.ml:670:6>>*/ return function(_k_){
        /*<<?>>*/ return map(_j_, ys, _k_);} /*<<seq.ml:670:6>>*/ ;
      /*<<seq.ml:672:10>>*/ }
-    function xss(_i_){ /*<<?>>*/ return map(_f_, xs, _i_);}
-    function _e_(_h_){return _b_(empty, xss, _h_);}
-     /*<<seq.ml:674:4>>*/ return function(_g_){
-      /*<<?>>*/ return concat(_e_, _g_);} /*<<seq.ml:674:4>>*/ ;
+    function xss(_i_){ /*<<seq.ml:668:20>>*/ return map(_f_, xs, _i_);}
+    function _e_(_h_){ /*<<seq.ml:665:2>>*/ return _b_(empty, xss, _h_);}
+     /*<<seq.ml:674:4>>*/ return function(_g_){return concat(_e_, _g_);};
    }
    function product(xs, ys){
      /*<<seq.ml:677:2>>*/ return map_product
@@ -2547,7 +2591,7 @@
     var _c_ =  /*<<seq.ml:702:2>>*/ i + 1 | 0;
      /*<<seq.ml:702:23>>*/ return [0,
             i,
-            function(_d_){ /*<<?>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:23>>*/ ;
+            function(_d_){ /*<<seq.ml:702:11>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:23>>*/ ;
     /*<<seq.ml:702:24>>*/ }
    var
     Stdlib_Seq =
@@ -4679,10 +4723,9 @@
      var tail =  /*<<list.ml:573:21>>*/ l[2], x = l[1];
       /*<<list.ml:575:40>>*/ return [0,
              x,
-             function(_c_){ /*<<?>>*/ return aux(tail, _c_);}] /*<<list.ml:575:40>>*/ ;
+             function(_c_){ /*<<list.ml:575:32>>*/ return aux(tail, _c_);}] /*<<list.ml:575:40>>*/ ;
      /*<<list.ml:575:41>>*/ }
-     /*<<list.ml:577:2>>*/ return function(_b_){
-      /*<<?>>*/ return aux(l, _b_);} /*<<list.ml:577:2>>*/ ;
+     /*<<list.ml:577:2>>*/ return function(_b_){return aux(l, _b_);};
     /*<<list.ml:577:7>>*/ }
    function of_seq(seq){
     var match =  /*<<list.ml:580:8>>*/ caml_call1(seq, 0);
@@ -5611,7 +5654,7 @@
       _A_ =  /*<<bytes.ml:415:6>>*/ i + 1 | 0;
       /*<<bytes.ml:415:28>>*/ return [0,
              x,
-             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:28>>*/ ;
+             function(_B_){ /*<<bytes.ml:415:19>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:28>>*/ ;
      /*<<bytes.ml:415:29>>*/ }
     var _y_ =  /*<<bytes.ml:417:2>>*/ 0;
     return function(_z_){
@@ -5626,7 +5669,7 @@
       _w_ =  /*<<bytes.ml:424:6>>*/ i + 1 | 0;
       /*<<bytes.ml:424:32>>*/ return [0,
              [0, i, x],
-             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:32>>*/ ;
+             function(_x_){ /*<<bytes.ml:424:23>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:32>>*/ ;
      /*<<bytes.ml:424:33>>*/ }
     var _u_ =  /*<<bytes.ml:426:2>>*/ 0;
     return function(_v_){
@@ -7994,7 +8037,7 @@
       _h_ =  /*<<array.ml:457:6>>*/ i + 1 | 0;
       /*<<array.ml:457:28>>*/ return [0,
              x,
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:28>>*/ ;
+             function(_i_){ /*<<array.ml:457:19>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:28>>*/ ;
      /*<<array.ml:458:16>>*/ }
     var _f_ =  /*<<array.ml:460:2>>*/ 0;
     return function(_g_){
@@ -8009,7 +8052,7 @@
       _d_ =  /*<<array.ml:467:6>>*/ i + 1 | 0;
       /*<<array.ml:467:32>>*/ return [0,
              [0, i, x],
-             function(_e_){ /*<<?>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:32>>*/ ;
+             function(_e_){ /*<<array.ml:467:23>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:32>>*/ ;
      /*<<array.ml:468:16>>*/ }
     var _b_ =  /*<<array.ml:470:2>>*/ 0;
     return function(_c_){
@@ -8459,7 +8502,7 @@
      /*<<float.ml:285:39>>*/ return caml_call2
             (Stdlib_List[11],
              a.length - 1,
-             function(_aE_){ /*<<?>>*/ return a[1 + _aE_];}) /*<<float.ml:285:39>>*/ ;
+             function(_aE_){ /*<<float.ml:285:25>>*/ return a[1 + _aE_];}) /*<<float.ml:285:39>>*/ ;
    }
    function of_list(l){
     var
@@ -9023,7 +9066,7 @@
       _A_ =  /*<<float.ml:571:8>>*/ i + 1 | 0;
       /*<<float.ml:571:30>>*/ return [0,
              x,
-             function(_B_){ /*<<?>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:30>>*/ ;
+             function(_B_){ /*<<float.ml:571:21>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:30>>*/ ;
      /*<<float.ml:572:18>>*/ }
     var _y_ =  /*<<float.ml:574:4>>*/ 0;
     return function(_z_){
@@ -9038,7 +9081,7 @@
       _w_ =  /*<<float.ml:582:8>>*/ i + 1 | 0;
       /*<<float.ml:582:34>>*/ return [0,
              [0, i, x],
-             function(_x_){ /*<<?>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:34>>*/ ;
+             function(_x_){ /*<<float.ml:582:25>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:34>>*/ ;
      /*<<float.ml:583:18>>*/ }
     var _u_ =  /*<<float.ml:585:4>>*/ 0;
     return function(_v_){
@@ -11288,12 +11331,14 @@
           _l_ =  /*<<set.ml:597:55>>*/ cons_enum(t, rest);
           /*<<set.ml:597:73>>*/ return [0,
                  x,
-                 function(_m_){ /*<<?>>*/ return seq_of_enum(_l_, _m_);}] /*<<set.ml:597:73>>*/ ;
+                 function(_m_){
+                   /*<<set.ml:597:42>>*/ return seq_of_enum(_l_, _m_);
+                 }] /*<<set.ml:597:73>>*/ ;
          /*<<set.ml:597:74>>*/ }
         function to_seq(c){
          var _j_ =  /*<<set.ml:599:32>>*/ cons_enum(c, 0);
           /*<<set.ml:599:49>>*/ return function(_k_){
-           /*<<?>>*/ return seq_of_enum(_j_, _k_);} /*<<set.ml:599:49>>*/ ;
+          return seq_of_enum(_j_, _k_);};
         }
         function snoc_enum(s, e){
          var s$0 =  /*<<set.ml:602:6>>*/ s, e$0 = e;
@@ -11317,12 +11362,14 @@
           _h_ =  /*<<set.ml:608:59>>*/ snoc_enum(t, rest);
           /*<<set.ml:608:77>>*/ return [0,
                  x,
-                 function(_i_){ /*<<?>>*/ return rev_seq_of_enum(_h_, _i_);}] /*<<set.ml:608:77>>*/ ;
+                 function(_i_){
+                   /*<<set.ml:608:42>>*/ return rev_seq_of_enum(_h_, _i_);
+                 }] /*<<set.ml:608:77>>*/ ;
          /*<<set.ml:608:78>>*/ }
         function to_rev_seq(c){
          var _f_ =  /*<<set.ml:610:40>>*/ snoc_enum(c, 0);
           /*<<set.ml:610:57>>*/ return function(_g_){
-           /*<<?>>*/ return rev_seq_of_enum(_f_, _g_);} /*<<set.ml:610:57>>*/ ;
+          return rev_seq_of_enum(_f_, _g_);};
         }
         function to_seq_from(low, s){
          a:
@@ -11352,7 +11399,7 @@
           var _d_ =  /*<<set.ml:617:21>>*/ [0, v, r, c];
          }
           /*<<set.ml:622:34>>*/ return function(_e_){
-           /*<<?>>*/ return seq_of_enum(_d_, _e_);} /*<<set.ml:622:34>>*/ ;
+          return seq_of_enum(_d_, _e_);};
         }
          /*<<?>>*/ return [0,
                 empty,
@@ -12358,12 +12405,14 @@
           _m_ =  /*<<map.ml:518:59>>*/ cons_enum(t, rest);
           /*<<map.ml:518:77>>*/ return [0,
                  [0, k, v],
-                 function(_n_){ /*<<?>>*/ return seq_of_enum(_m_, _n_);}] /*<<map.ml:518:77>>*/ ;
+                 function(_n_){
+                   /*<<map.ml:518:46>>*/ return seq_of_enum(_m_, _n_);
+                 }] /*<<map.ml:518:77>>*/ ;
          /*<<map.ml:518:78>>*/ }
         function to_seq(m){
          var _k_ =  /*<<map.ml:521:19>>*/ cons_enum(m, 0);
           /*<<map.ml:521:36>>*/ return function(_l_){
-           /*<<?>>*/ return seq_of_enum(_k_, _l_);} /*<<map.ml:521:36>>*/ ;
+          return seq_of_enum(_k_, _l_);};
         }
         function snoc_enum(s, e){
          var s$0 =  /*<<map.ml:524:6>>*/ s, e$0 = e;
@@ -12389,12 +12438,14 @@
           _i_ =  /*<<map.ml:531:44>>*/ snoc_enum(t, rest);
           /*<<map.ml:531:62>>*/ return [0,
                  [0, k, v],
-                 function(_j_){ /*<<?>>*/ return rev_seq_of_enum(_i_, _j_);}] /*<<map.ml:531:62>>*/ ;
+                 function(_j_){
+                   /*<<map.ml:531:27>>*/ return rev_seq_of_enum(_i_, _j_);
+                 }] /*<<map.ml:531:62>>*/ ;
          /*<<map.ml:531:63>>*/ }
         function to_rev_seq(c){
          var _g_ =  /*<<map.ml:534:23>>*/ snoc_enum(c, 0);
           /*<<map.ml:534:40>>*/ return function(_h_){
-           /*<<?>>*/ return rev_seq_of_enum(_g_, _h_);} /*<<map.ml:534:40>>*/ ;
+          return rev_seq_of_enum(_g_, _h_);};
         }
         function to_seq_from(low, m){
          a:
@@ -12425,7 +12476,7 @@
           var _e_ =  /*<<map.ml:541:21>>*/ [0, v, d, r, c];
          }
           /*<<map.ml:546:34>>*/ return function(_f_){
-           /*<<?>>*/ return seq_of_enum(_e_, _f_);} /*<<map.ml:546:34>>*/ ;
+          return seq_of_enum(_e_, _f_);};
         }
          /*<<?>>*/ return [0,
                 empty,
@@ -12766,7 +12817,7 @@
      var x =  /*<<queue.ml:153:21>>*/ c[1], next = c[2];
       /*<<queue.ml:155:56>>*/ return [0,
              x,
-             function(_c_){ /*<<?>>*/ return aux(next, _c_);}] /*<<queue.ml:155:56>>*/ ;
+             function(_c_){ /*<<queue.ml:155:48>>*/ return aux(next, _c_);}] /*<<queue.ml:155:56>>*/ ;
      /*<<queue.ml:155:57>>*/ }
     var _a_ =  /*<<queue.ml:157:2>>*/ q[2];
     return function(_b_){
@@ -13277,7 +13328,7 @@
       _l_ =  /*<<buffer.ml:300:6>>*/ i + 1 | 0;
       /*<<buffer.ml:300:28>>*/ return [0,
              x,
-             function(_m_){ /*<<?>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:28>>*/ ;
+             function(_m_){ /*<<buffer.ml:300:19>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:28>>*/ ;
      /*<<buffer.ml:300:29>>*/ }
     var _j_ =  /*<<buffer.ml:302:2>>*/ 0;
     return function(_k_){
@@ -13292,7 +13343,7 @@
       _h_ =  /*<<buffer.ml:310:6>>*/ i + 1 | 0;
       /*<<buffer.ml:310:32>>*/ return [0,
              [0, i, x],
-             function(_i_){ /*<<?>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:32>>*/ ;
+             function(_i_){ /*<<buffer.ml:310:23>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:32>>*/ ;
      /*<<buffer.ml:310:33>>*/ }
     var _f_ =  /*<<buffer.ml:312:2>>*/ 0;
     return function(_g_){
@@ -13301,7 +13352,7 @@
    function add_seq(b, seq){
      /*<<buffer.ml:314:41>>*/ return caml_call2
             (Stdlib_Seq[4],
-             function(_e_){ /*<<?>>*/ return add_char(b, _e_);},
+             function(_e_){ /*<<buffer.ml:314:29>>*/ return add_char(b, _e_);},
              seq) /*<<buffer.ml:314:45>>*/ ;
    }
    function of_seq(i){
@@ -23253,12 +23304,16 @@
     }
    }
    var _r_ =  /*<<?>>*/ 10, _s_ = 1;
-   function read_arg(_D_){return read_aux(_s_, _r_, _D_);}
+   function read_arg(_D_){
+     /*<<arg.ml:407:15>>*/ return read_aux(_s_, _r_, _D_);
+   }
    var
     _t_ =  /*<<arg.ml:407:33>>*/ 0,
     _u_ = 0,
     _v_ =  /*<<?>>*/ [0, [2, 0, [0, 0]], "%s%c"];
-   function read_arg0(_C_){return read_aux(_u_, _t_, _C_);}
+   function read_arg0(_C_){
+     /*<<arg.ml:409:16>>*/ return read_aux(_u_, _t_, _C_);
+   }
    function write_aux(sep, file, args){
     var oc =  /*<<arg.ml:412:11>>*/ caml_call1(Stdlib[61], file);
      /*<<arg.ml:413:2>>*/ caml_call2
@@ -23271,9 +23326,13 @@
      /*<<arg.ml:413:52>>*/ return caml_call1(Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
    }
    var _w_ =  /*<<arg.ml:409:37>>*/ 10;
-   function write_arg(_A_, _B_){ /*<<?>>*/ return write_aux(_w_, _A_, _B_);}
+   function write_arg(_A_, _B_){
+     /*<<arg.ml:416:16>>*/ return write_aux(_w_, _A_, _B_);
+   }
    var _x_ =  /*<<arg.ml:416:30>>*/ 0;
-   function write_arg0(_y_, _z_){ /*<<?>>*/ return write_aux(_x_, _y_, _z_);}
+   function write_arg0(_y_, _z_){
+     /*<<arg.ml:418:17>>*/ return write_aux(_x_, _y_, _z_);
+   }
    var
     Stdlib_Arg =
        /*<<arg.ml:418:33>>*/ [0,
@@ -26721,7 +26780,9 @@
        var key = buck$0[1], data = buck$0[2], next = buck$0[3];
         /*<<hashtbl.ml:266:41>>*/ return [0,
                [0, key, data],
-               function(_K_){ /*<<?>>*/ return aux(i$0, next, _K_);}] /*<<hashtbl.ml:266:41>>*/ ;
+               function(_K_){
+                 /*<<hashtbl.ml:266:31>>*/ return aux(i$0, next, _K_);
+               }] /*<<hashtbl.ml:266:41>>*/ ;
       }
        /*<<hashtbl.ml:262:8>>*/ if(i$0 === tbl_data.length - 1)
         /*<<hashtbl.ml:263:13>>*/ return 0;
@@ -27380,7 +27441,10 @@
         seed,
         _h_];
      /*<<hashtbl.ml:633:2>>*/ insert_all_buckets
-     (function(_i_){ /*<<?>>*/ return key_index(h$0, _i_);}, 0, h[2], h$0[2]);
+     (function(_i_){ /*<<hashtbl.ml:633:21>>*/ return key_index(h$0, _i_);},
+      0,
+      h[2],
+      h$0[2]);
      /*<<hashtbl.ml:633:56>>*/ return h$0;
     /*<<hashtbl.ml:634:4>>*/ }
    var
@@ -27592,7 +27656,7 @@
       /*<<weak.ml:149:36>>*/ return caml_call3
              (Stdlib_Array[20],
               function(b, accu$1){
-               var i$0 =  /*<<?>>*/ i, accu = accu$1;
+               var i$0 =  /*<<weak.ml:149:21>>*/ i, accu = accu$1;
                for(;;){
                  /*<<weak.ml:144:22>>*/ if
                  ( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
@@ -27618,7 +27682,7 @@
       /*<<weak.ml:159:30>>*/ return caml_call2
              (Stdlib_Array[12],
               function(b){
-               var i$0 =  /*<<?>>*/ i;
+               var i$0 =  /*<<weak.ml:159:15>>*/ i;
                for(;;){
                  /*<<weak.ml:154:22>>*/ if
                  ( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
@@ -27655,7 +27719,7 @@
       /*<<weak.ml:178:37>>*/ return caml_call3
              (Stdlib_Array[20],
               function(_w_, _x_){
-                /*<<?>>*/ return count_bucket(_v_, _w_, _x_);
+                /*<<weak.ml:178:21>>*/ return count_bucket(_v_, _w_, _x_);
               },
               t[1],
               0) /*<<weak.ml:178:47>>*/ ;
@@ -27783,7 +27847,7 @@
        /*<<weak.ml:169:31>>*/ caml_call2
        (Stdlib_Array[13],
         function(j, ob){
-         var oi =  /*<<?>>*/ i;
+         var oi =  /*<<weak.ml:169:16>>*/ i;
          for(;;){
            /*<<weak.ml:164:22>>*/ if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
             /*<<weak.ml:164:28>>*/ return 0;
@@ -28827,11 +28891,17 @@
        /*<<format.ml:915:35>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:915:43>>*/ ;
      };
      /*<<format.ml:916:47>>*/ state[19] =
-     function(_aG_){ /*<<?>>*/ return display_newline(state, _aG_);};
+     function(_aG_){
+       /*<<format.ml:916:26>>*/ return display_newline(state, _aG_);
+     };
      /*<<format.ml:917:45>>*/ state[20] =
-     function(_aF_){ /*<<?>>*/ return display_blanks(state, _aF_);};
+     function(_aF_){
+       /*<<format.ml:917:25>>*/ return display_blanks(state, _aF_);
+     };
      /*<<format.ml:918:45>>*/ state[21] =
-     function(_aE_){ /*<<?>>*/ return display_blanks(state, _aE_);};
+     function(_aE_){
+       /*<<format.ml:918:25>>*/ return display_blanks(state, _aE_);
+     };
      /*<<format.ml:918:45>>*/ return 0;
    }
    function default_pp_mark_open_tag(param){
@@ -28911,11 +28981,17 @@
          function(_au_){return 0;},
          function(_at_){return 0;});
      /*<<format.ml:995:43>>*/ ppf[19] =
-     function(_as_){ /*<<?>>*/ return display_newline(ppf, _as_);};
+     function(_as_){
+       /*<<format.ml:995:24>>*/ return display_newline(ppf, _as_);
+     };
      /*<<format.ml:996:41>>*/ ppf[20] =
-     function(_ar_){ /*<<?>>*/ return display_blanks(ppf, _ar_);};
+     function(_ar_){
+       /*<<format.ml:996:23>>*/ return display_blanks(ppf, _ar_);
+     };
      /*<<format.ml:997:41>>*/ ppf[21] =
-     function(_aq_){ /*<<?>>*/ return display_blanks(ppf, _aq_);};
+     function(_aq_){
+       /*<<format.ml:997:23>>*/ return display_blanks(ppf, _aq_);
+     };
      /*<<format.ml:998:2>>*/ return ppf;
     /*<<format.ml:998:5>>*/ }
    function formatter_of_out_channel(oc){
@@ -29001,24 +29077,33 @@
           ppf =
              /*<<format.ml:1052:4>>*/ pp_make_formatter
              (function(_al_, _am_, _an_){
-                /*<<?>>*/ return buffered_out_string
+                /*<<format.ml:1052:22>>*/ return buffered_out_string
                        (std_buf_key, _al_, _am_, _an_);
               },
               function(_ak_){
-               return buffered_out_flush(_ac_, std_buf_key, _ak_);
+                /*<<format.ml:1053:6>>*/ return buffered_out_flush
+                       (_ac_, std_buf_key, _ak_);
               },
-              function(_aj_){return 0;},
+              function(_aj_){ /*<<?>>*/ return 0;},
               function(_ai_){return 0;},
               function(_ah_){return 0;});
           /*<<format.ml:1055:43>>*/ ppf[19] =
-          function(_ag_){ /*<<?>>*/ return display_newline(ppf, _ag_);};
+          function(_ag_){
+            /*<<format.ml:1055:24>>*/ return display_newline(ppf, _ag_);
+          };
           /*<<format.ml:1056:41>>*/ ppf[20] =
-          function(_af_){ /*<<?>>*/ return display_blanks(ppf, _af_);};
+          function(_af_){
+            /*<<format.ml:1056:23>>*/ return display_blanks(ppf, _af_);
+          };
           /*<<format.ml:1057:41>>*/ ppf[21] =
-          function(_ae_){ /*<<?>>*/ return display_blanks(ppf, _ae_);};
+          function(_ae_){
+            /*<<format.ml:1057:23>>*/ return display_blanks(ppf, _ae_);
+          };
           /*<<format.ml:1058:2>>*/ caml_call1
           (Stdlib_Domain[6],
-           function(_ad_){ /*<<?>>*/ return pp_print_flush(ppf, _ad_);});
+           function(_ad_){
+             /*<<format.ml:1058:17>>*/ return pp_print_flush(ppf, _ad_);
+           });
           /*<<format.ml:1058:37>>*/ return ppf;
          /*<<format.ml:1059:5>>*/ });
     /*<<format.ml:1060:8>>*/ caml_call2
@@ -29034,22 +29119,33 @@
           ppf =
              /*<<format.ml:1064:4>>*/ pp_make_formatter
              (function(_$_, _aa_, _ab_){
-                /*<<?>>*/ return buffered_out_string
+                /*<<format.ml:1064:22>>*/ return buffered_out_string
                        (err_buf_key, _$_, _aa_, _ab_);
               },
-              function(___){return buffered_out_flush(_S_, err_buf_key, ___);},
-              function(_Z_){return 0;},
+              function(___){
+                /*<<format.ml:1065:6>>*/ return buffered_out_flush
+                       (_S_, err_buf_key, ___);
+              },
+              function(_Z_){ /*<<?>>*/ return 0;},
               function(_Y_){return 0;},
               function(_X_){return 0;});
           /*<<format.ml:1067:43>>*/ ppf[19] =
-          function(_W_){ /*<<?>>*/ return display_newline(ppf, _W_);};
+          function(_W_){
+            /*<<format.ml:1067:24>>*/ return display_newline(ppf, _W_);
+          };
           /*<<format.ml:1068:41>>*/ ppf[20] =
-          function(_V_){ /*<<?>>*/ return display_blanks(ppf, _V_);};
+          function(_V_){
+            /*<<format.ml:1068:23>>*/ return display_blanks(ppf, _V_);
+          };
           /*<<format.ml:1069:41>>*/ ppf[21] =
-          function(_U_){ /*<<?>>*/ return display_blanks(ppf, _U_);};
+          function(_U_){
+            /*<<format.ml:1069:23>>*/ return display_blanks(ppf, _U_);
+          };
           /*<<format.ml:1070:2>>*/ caml_call1
           (Stdlib_Domain[6],
-           function(_T_){ /*<<?>>*/ return pp_print_flush(ppf, _T_);});
+           function(_T_){
+             /*<<format.ml:1070:17>>*/ return pp_print_flush(ppf, _T_);
+           });
           /*<<format.ml:1070:37>>*/ return ppf;
          /*<<format.ml:1071:5>>*/ });
     /*<<format.ml:1072:8>>*/ caml_call2
@@ -29977,9 +30073,13 @@
        (std_formatter,
         [0,
          function(_o_, _p_, _q_){
-           /*<<?>>*/ return buffered_out_string(std_buf_key, _o_, _p_, _q_);
+           /*<<format.ml:1482:26>>*/ return buffered_out_string
+                  (std_buf_key, _o_, _p_, _q_);
+         },
+         function(_n_){
+           /*<<format.ml:1483:25>>*/ return buffered_out_flush
+                  (_h_, std_buf_key, _n_);
          },
-         function(_n_){return buffered_out_flush(_h_, std_buf_key, _n_);},
          fs[3],
          fs[4],
          fs[5]]);
@@ -29992,11 +30092,12 @@
               (err_formatter,
                [0,
                 function(_k_, _l_, _m_){
-                  /*<<?>>*/ return buffered_out_string
+                  /*<<format.ml:1487:26>>*/ return buffered_out_string
                          (err_buf_key, _k_, _l_, _m_);
                 },
                 function(_j_){
-                 return buffered_out_flush(_i_, err_buf_key, _j_);
+                  /*<<format.ml:1488:25>>*/ return buffered_out_flush
+                         (_i_, err_buf_key, _j_);
                 },
                 fs$0[3],
                 fs$0[4],
@@ -30329,7 +30430,9 @@
      /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
    }
    var _a_ =  /*<<?>>*/ 0;
-   function from_function(_aW_){return create(_a_, _aW_);}
+   function from_function(_aW_){
+     /*<<scanf.ml:274:22>>*/ return create(_a_, _aW_);
+   }
    var len =  /*<<scanf.ml:274:42>>*/ 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/ caml_call1(Stdlib[93], ic);
@@ -30372,15 +30475,19 @@
      /*<<scanf.ml:367:4>>*/ if(fname === cst$6)
       /*<<scanf.ml:368:13>>*/ return stdin;
     var ic =  /*<<scanf.ml:370:15>>*/ caml_call1(open_in, fname);
-     /*<<scanf.ml:371:6>>*/ return from_ic
+     /*<<scanf.ml:344:29>>*/ return from_ic
             (scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
    }
    var _b_ =  /*<<scanf.ml:364:50>>*/ Stdlib[79];
-   function open_in(_aV_){ /*<<?>>*/ return open_in_file(_b_, _aV_);}
+   function open_in(_aV_){
+     /*<<scanf.ml:374:16>>*/ return open_in_file(_b_, _aV_);
+   }
    var _c_ =  /*<<scanf.ml:374:43>>*/ Stdlib[80];
-   function open_in_bin(_aU_){ /*<<?>>*/ return open_in_file(_c_, _aU_);}
+   function open_in_bin(_aU_){
+     /*<<scanf.ml:375:20>>*/ return open_in_file(_c_, _aU_);
+   }
    function from_channel(ic){
-     /*<<scanf.ml:381:4>>*/ return from_ic(scan_raise_at_end, [0, ic], ic) /*<<scanf.ml:381:45>>*/ ;
+     /*<<scanf.ml:345:29>>*/ return from_ic(scan_raise_at_end, [0, ic], ic) /*<<scanf.ml:381:45>>*/ ;
    }
    function close_in(ib){
     var match =  /*<<scanf.ml:385:4>>*/ ib[9];
@@ -30720,7 +30827,7 @@
    function scan_int_conversion(conv, width$1, ib){
      /*<<scanf.ml:691:2>>*/ switch(conv){
       case 0:
-        /*<<scanf.ml:692:20>>*/ return scan_digit_plus
+        /*<<scanf.ml:634:22>>*/ return scan_digit_plus
                (cst_binary, is_binary_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 1:
         /*<<scanf.ml:693:20>>*/ return scan_optionally_signed_decimal
@@ -30741,7 +30848,7 @@
        {
          /*<<scanf.ml:677:4>>*/ if(99 <= c$0){
          if(111 === c$0)
-           /*<<scanf.ml:679:60>>*/ return scan_digit_plus
+           /*<<scanf.ml:641:21>>*/ return scan_digit_plus
                   (cst_octal,
                    is_octal_digit,
                     /*<<scanf.ml:679:28>>*/ store_char(width, ib, c$0),
@@ -30751,7 +30858,7 @@
         else{
          if(88 === c$0) break a;
          if(98 <= c$0)
-           /*<<scanf.ml:680:61>>*/ return scan_digit_plus
+           /*<<scanf.ml:634:22>>*/ return scan_digit_plus
                   (cst_binary,
                    is_binary_digit,
                     /*<<scanf.ml:680:29>>*/ store_char(width, ib, c$0),
@@ -30759,18 +30866,18 @@
         }
          /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib) /*<<scanf.ml:697:49>>*/ ;
        }
-        /*<<scanf.ml:678:72>>*/ return scan_digit_plus
+        /*<<scanf.ml:648:27>>*/ return scan_digit_plus
                (cst_hexadecimal,
                 is_hexa_digit,
                  /*<<scanf.ml:678:40>>*/ store_char(width, ib, c$0),
                 ib) /*<<scanf.ml:697:49>>*/ ;
       case 3:
-        /*<<scanf.ml:695:20>>*/ return scan_digit_plus
+        /*<<scanf.ml:641:21>>*/ return scan_digit_plus
                (cst_octal, is_octal_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       case 4:
         /*<<scanf.ml:696:20>>*/ return scan_decimal_digit_plus(width$1, ib) /*<<scanf.ml:697:49>>*/ ;
       default:
-        /*<<scanf.ml:697:20>>*/ return scan_digit_plus
+        /*<<scanf.ml:648:27>>*/ return scan_digit_plus
                (cst_hexadecimal, is_hexa_digit, width$1, ib) /*<<scanf.ml:697:49>>*/ ;
     }
    }
@@ -30917,7 +31024,7 @@
           else if(32 < _aG_ - 1 >>> 0) break c;
           var
            width$5 =
-              /*<<scanf.ml:808:44>>*/  /*<<scanf.ml:808:15>>*/ scan_digit_plus
+              /*<<scanf.ml:808:44>>*/  /*<<scanf.ml:648:27>>*/ scan_digit_plus
               (cst_hexadecimal, is_hexa_digit, width$4, ib);
           break b;
          }
@@ -30945,7 +31052,7 @@
                  -
                   (precision$0
                   -
-                    /*<<scanf.ml:818:37>>*/ scan_digit_plus
+                    /*<<scanf.ml:648:27>>*/ scan_digit_plus
                     (cst_hexadecimal, is_hexa_digit, precision$0, ib)
                   | 0)
                  | 0;
@@ -31072,7 +31179,7 @@
        /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
      var
       width$10 =
-         /*<<scanf.ml:877:18>>*/ scan_digit_plus
+         /*<<scanf.ml:648:27>>*/ scan_digit_plus
          (cst_hexadecimal, is_hexa_digit, width$3, ib),
       _ao_ =  /*<<scanf.ml:878:6>>*/ 0 === width$10 ? 1 : 0,
       _ap_ = _ao_ ||  /*<<scanf.ml:878:22>>*/ end_of_input(ib);
@@ -31105,7 +31212,7 @@
                 -
                  (precision$0
                  -
-                   /*<<scanf.ml:887:35>>*/ scan_digit_plus
+                   /*<<scanf.ml:648:27>>*/ scan_digit_plus
                    (cst_hexadecimal, is_hexa_digit, precision$0, ib)
                  | 0)
                 | 0;
@@ -31199,7 +31306,7 @@
             : c /*<<scanf.ml:998:3>>*/ ;
    }
    function scan_backslash_char(width, ib){
-    var c0 =  /*<<scanf.ml:1005:8>>*/ check_next_char(cst_a_Char, width, ib);
+    var c0 =  /*<<scanf.ml:1001:31>>*/ check_next_char(cst_a_Char, width, ib);
     a:
     {
       /*<<scanf.ml:1005:41>>*/ if(40 <= c0){
@@ -31310,14 +31417,16 @@
     function find_stop$0(counter, width){
      var width$0 =  /*<<scanf.ml:1063:10>>*/ width;
      for(;;){
-      var c = check_next_char(cst_a_String, width$0, ib);
+      var
+       c =
+          /*<<scanf.ml:1002:33>>*/ check_next_char(cst_a_String, width$0, ib);
        /*<<scanf.ml:1063:45>>*/ if(34 === c)
         /*<<scanf.ml:1064:14>>*/ return ignore_char(width$0, ib) /*<<scanf.ml:1066:53>>*/ ;
        /*<<scanf.ml:1063:45>>*/ if(92 === c){
        var
         width$1 =  /*<<scanf.ml:1065:29>>*/ ignore_char(width$0, ib),
         match =
-           /*<<scanf.ml:1069:10>>*/ check_next_char(cst_a_String, width$1, ib);
+           /*<<scanf.ml:1002:33>>*/ check_next_char(cst_a_String, width$1, ib);
         /*<<scanf.ml:1069:45>>*/ if(10 === match){
         var _Y_ =  /*<<scanf.ml:1071:26>>*/ ignore_char(width$1, ib);
          /*<<scanf.ml:1071:57>>*/ if(counter >= 50)
@@ -31330,7 +31439,7 @@
          /*<<scanf.ml:1075:45>>*/ if
          (10
           ===
-            /*<<scanf.ml:1075:10>>*/ check_next_char
+            /*<<scanf.ml:1002:33>>*/ check_next_char
             (cst_a_String, width$3, ib)){
          var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
           /*<<scanf.ml:1076:57>>*/ if(counter >= 50)
@@ -31362,7 +31471,7 @@
        /*<<scanf.ml:1080:45>>*/ if
        (32
         !==
-          /*<<scanf.ml:1080:10>>*/ check_next_char(cst_a_String, width$0, ib)){
+          /*<<scanf.ml:1002:33>>*/ check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
         return caml_trampoline_return(find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
        var counter$0 =  /*<<scanf.ml:1082:11>>*/ counter + 1 | 0;
@@ -31750,7 +31859,7 @@
             /*<<scanf.ml:1034:2>>*/ function(width){
             var
              c =
-                /*<<scanf.ml:1047:10>>*/ check_next_char
+                /*<<scanf.ml:1001:31>>*/ check_next_char
                 (cst_a_Char, width, ib);
              /*<<scanf.ml:1047:43>>*/ return 39 === c
                     ?  /*<<scanf.ml:1048:14>>*/ ignore_char(width, ib)
@@ -31762,7 +31871,7 @@
          var
           width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
           c$3 =
-             /*<<scanf.ml:1040:10>>*/ check_next_char(cst_a_Char, width, ib);
+             /*<<scanf.ml:1001:31>>*/ check_next_char(cst_a_Char, width, ib);
           /*<<scanf.ml:1040:43>>*/ if(92 === c$3)
            /*<<scanf.ml:1042:72>>*/ find_stop
            ( /*<<scanf.ml:1042:16>>*/ scan_backslash_char
@@ -32029,7 +32138,7 @@
         var rest$15 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2], str$0 = fmt$0[1];
          /*<<scanf.ml:1341:4>>*/ caml_call2
          (Stdlib_String[30],
-          function(_N_){ /*<<?>>*/ return check_char(ib, _N_);},
+          function(_N_){ /*<<scanf.ml:1341:16>>*/ return check_char(ib, _N_);},
           str$0);
          /*<<scanf.ml:1341:35>>*/ fmt$0 = rest$15;
         break;
@@ -32132,7 +32241,7 @@
             (CamlinternalFormat[17], formatting_lit);
          /*<<scanf.ml:1401:4>>*/ caml_call2
          (Stdlib_String[30],
-          function(_M_){ /*<<?>>*/ return check_char(ib, _M_);},
+          function(_M_){ /*<<scanf.ml:1401:16>>*/ return check_char(ib, _M_);},
           _K_);
          /*<<scanf.ml:1401:73>>*/ fmt$0 = rest$19;
         break;
@@ -32673,7 +32782,10 @@
    function get_method_labels(table, names){
      /*<<camlinternalOO.ml:178:36>>*/ return caml_call2
             (Stdlib_Array[14],
-             function(_Z_){ /*<<?>>*/ return get_method_label(table, _Z_);},
+             function(_Z_){
+               /*<<camlinternalOO.ml:178:12>>*/ return get_method_label
+                      (table, _Z_);
+             },
              names) /*<<camlinternalOO.ml:178:42>>*/ ;
    }
    function set_method(table, label, element){
@@ -32720,12 +32832,18 @@
      virt_meth_labs =
         /*<<camlinternalOO.ml:198:23>>*/ caml_call2
         (Stdlib_List[20],
-         function(_V_){ /*<<?>>*/ return get_method_label(table, _V_);},
+         function(_V_){
+           /*<<camlinternalOO.ml:198:32>>*/ return get_method_label
+                  (table, _V_);
+         },
          virt_meths$0),
      concr_meth_labs =
         /*<<camlinternalOO.ml:199:24>>*/ caml_call2
         (Stdlib_List[20],
-         function(_U_){ /*<<?>>*/ return get_method_label(table, _U_);},
+         function(_U_){
+           /*<<camlinternalOO.ml:199:33>>*/ return get_method_label
+                  (table, _U_);
+         },
          concr_meths$0);
      /*<<camlinternalOO.ml:200:2>>*/ table[5] =
      [0,
@@ -32925,7 +33043,10 @@
    function get_variables(table, names){
      /*<<camlinternalOO.ml:282:32>>*/ return caml_call2
             (Stdlib_Array[14],
-             function(_y_){ /*<<?>>*/ return get_variable(table, _y_);},
+             function(_y_){
+               /*<<camlinternalOO.ml:282:12>>*/ return get_variable
+                      (table, _y_);
+             },
              names) /*<<camlinternalOO.ml:282:38>>*/ ;
    }
    function add_initializer(table, f){
@@ -33004,7 +33125,9 @@
         [0,
           /*<<camlinternalOO.ml:323:16>>*/ caml_call2
           (Stdlib_Array[14],
-           function(_w_){ /*<<?>>*/ return get_variable(cla, _w_);},
+           function(_w_){
+             /*<<camlinternalOO.ml:323:26>>*/ return get_variable(cla, _w_);
+           },
            _u_),
          _t_]];
      /*<<camlinternalOO.ml:323:60>>*/ return caml_call1(Stdlib_Array[5], _v_) /*<<camlinternalOO.ml:326:31>>*/ ;
@@ -34506,7 +34629,7 @@
      match =
         /*<<ephemeron.ml:477:12>>*/ caml_call2
         (Stdlib_List[40],
-         function(_P_){ /*<<?>>*/ return test_key(k, _P_);},
+         function(_P_){ /*<<ephemeron.ml:477:26>>*/ return test_key(k, _P_);},
          b[1]);
      /*<<ephemeron.ml:477:41>>*/ if(! match)
       /*<<ephemeron.ml:479:16>>*/ return 0;
@@ -34733,7 +34856,9 @@
      match =
         /*<<ephemeron.ml:597:12>>*/ caml_call2
         (Stdlib_List[40],
-         function(_K_){ /*<<?>>*/ return test_keys(k1, k2, _K_);},
+         function(_K_){
+           /*<<ephemeron.ml:597:26>>*/ return test_keys(k1, k2, _K_);
+         },
          b[1]);
      /*<<ephemeron.ml:597:46>>*/ if(! match)
       /*<<ephemeron.ml:599:16>>*/ return 0;
@@ -35047,7 +35172,9 @@
      match =
         /*<<ephemeron.ml:731:12>>*/ caml_call2
         (Stdlib_List[40],
-         function(_d_){ /*<<?>>*/ return test_keys$0(k, _d_);},
+         function(_d_){
+           /*<<ephemeron.ml:731:26>>*/ return test_keys$0(k, _d_);
+         },
          b[1]);
      /*<<ephemeron.ml:731:42>>*/ if(! match)
       /*<<ephemeron.ml:733:16>>*/ return 0;
@@ -35403,10 +35530,12 @@
      /*<<filename.ml:120:52>>*/ return caml_call2(Stdlib[28], _av_, _at_) /*<<filename.ml:125:69>>*/ ;
    }
    function basename(_al_){
-     /*<<?>>*/ return generic_basename(is_dir_sep, current_dir_name, _al_);
+     /*<<filename.ml:126:17>>*/ return generic_basename
+            (is_dir_sep, current_dir_name, _al_);
    }
    function dirname(_ak_){
-    return generic_dirname(is_dir_sep, current_dir_name, _ak_);
+     /*<<filename.ml:127:16>>*/ return generic_dirname
+            (is_dir_sep, current_dir_name, _ak_);
    }
    var
     Unix =
@@ -35831,10 +35960,12 @@
        basename$0,
        dirname$0];
    function basename$1(_r_){
-     /*<<?>>*/ return generic_basename(is_dir_sep$0, current_dir_name$1, _r_);
+     /*<<filename.ml:277:17>>*/ return generic_basename
+            (is_dir_sep$0, current_dir_name$1, _r_);
    }
    function dirname$1(_q_){
-    return generic_dirname(is_dir_sep$0, current_dir_name$1, _q_);
+     /*<<filename.ml:278:16>>*/ return generic_dirname
+            (is_dir_sep$0, current_dir_name$1, _q_);
    }
    var
     Cygwin =

From 4df3933ed58695b8d905ec3ba445a6ffd08f2082 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 11:42:50 +0200
Subject: [PATCH 20/35] Mutually recursive functions: add locations in wrapper

---
 compiler/lib/generate_closure.ml           | 22 +++++++++----
 compiler/tests-full/stdlib.cma.expected.js | 37 +++++++++++++++-------
 2 files changed, 42 insertions(+), 17 deletions(-)

diff --git a/compiler/lib/generate_closure.ml b/compiler/lib/generate_closure.ml
index b6b22a05e6..683544abf5 100644
--- a/compiler/lib/generate_closure.ml
+++ b/compiler/lib/generate_closure.ml
@@ -133,7 +133,7 @@ module Trampoline = struct
     ; branch = Return return, loc
     }
 
-  let wrapper_block f ~args ~counter loc =
+  let wrapper_block f ~args ~counter loc loc' =
     let result1 = Code.Var.fresh () in
     let result2 = Code.Var.fresh () in
     let block =
@@ -141,15 +141,19 @@ module Trampoline = struct
       ; body =
           (match counter with
           | None ->
-              [ Let (result1, Apply { f; args; exact = true }), loc
+              [ Event loc, noloc
+              ; Let (result1, Apply { f; args; exact = true }), loc'
+              ; Event Parse_info.zero, noloc
               ; Let (result2, Prim (Extern "caml_trampoline", [ Pv result1 ])), noloc
               ]
           | Some counter ->
-              [ Let (counter, Constant (Int Targetint.zero)), noloc
-              ; Let (result1, Apply { f; args = counter :: args; exact = true }), loc
+              [ Event loc, noloc
+              ; Let (counter, Constant (Int Targetint.zero)), noloc
+              ; Let (result1, Apply { f; args = counter :: args; exact = true }), loc'
+              ; Event Parse_info.zero, noloc
               ; Let (result2, Prim (Extern "caml_trampoline", [ Pv result1 ])), noloc
               ])
-      ; branch = Return result2, loc
+      ; branch = Return result2, loc'
       }
     in
     block
@@ -187,8 +191,14 @@ module Trampoline = struct
               let wrapper_pc = free_pc in
               let free_pc = free_pc + 1 in
               let new_counter = Option.map counter ~f:Code.Var.fork in
+              let start_loc =
+                let block = Addr.Map.find (fst ci.cont) blocks in
+                match block.body with
+                | (Event loc, _) :: _ -> loc
+                | _ -> Parse_info.zero
+              in
               let wrapper_block =
-                wrapper_block new_f ~args:new_args ~counter:new_counter ci.loc
+                wrapper_block new_f ~args:new_args ~counter:new_counter start_loc ci.loc
               in
               let blocks = Addr.Map.add wrapper_pc wrapper_block blocks in
               let instr_wrapper = Let (ci.f_name, wrapper_closure wrapper_pc new_args) in
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 25ff0e0d2d..4f93f963fe 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -18059,7 +18059,9 @@
     }
    }
    function make_printf(k, acc, fmt){
-     /*<<?>>*/ return caml_trampoline(make_printf$0(0, k, acc, fmt));
+     /*<<?>>*/ return caml_trampoline
+            ( /*<<camlinternalFormat.ml:1518:17>>*/ make_printf$0
+              (0, k, acc, fmt)) /*<<?>>*/ ;
    }
    function make_ignored_param$0(counter, k, acc, ign, fmt){
      /*<<camlinternalFormat.ml:1613:21>>*/ if(typeof ign === "number")
@@ -18158,7 +18160,8 @@
    }
    function make_ignored_param(k, acc, ign, fmt){
      /*<<?>>*/ return caml_trampoline
-            (make_ignored_param$0(0, k, acc, ign, fmt));
+            ( /*<<camlinternalFormat.ml:1613:21>>*/ make_ignored_param$0
+              (0, k, acc, ign, fmt)) /*<<?>>*/ ;
    }
    function make_from_fmtty$0(counter, k, acc, fmtty, fmt){
      /*<<camlinternalFormat.ml:1637:23>>*/ if(typeof fmtty !== "number")
@@ -18252,7 +18255,8 @@
    }
    function make_from_fmtty(k, acc, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
-            (make_from_fmtty$0(0, k, acc, fmtty, fmt));
+            ( /*<<camlinternalFormat.ml:1637:23>>*/ make_from_fmtty$0
+              (0, k, acc, fmtty, fmt)) /*<<?>>*/ ;
    }
    function make_invalid_arg(counter, k, acc, fmt){
     var
@@ -18440,7 +18444,8 @@
    }
    function make_custom(k, acc, rest, arity, f){
      /*<<?>>*/ return caml_trampoline
-            (make_custom$0(0, k, acc, rest, arity, f));
+            ( /*<<camlinternalFormat.ml:1778:28>>*/ make_custom$0
+              (0, k, acc, rest, arity, f)) /*<<?>>*/ ;
    }
    function make_iprintf$0(counter, k, o, fmt){
     var k$0 =  /*<<camlinternalFormat.ml:1788:17>>*/ k, fmt$0 = fmt;
@@ -18725,7 +18730,9 @@
     }
    }
    function make_iprintf(k, o, fmt){
-     /*<<?>>*/ return caml_trampoline(make_iprintf$0(0, k, o, fmt));
+     /*<<?>>*/ return caml_trampoline
+            ( /*<<camlinternalFormat.ml:1788:17>>*/ make_iprintf$0
+              (0, k, o, fmt)) /*<<?>>*/ ;
    }
    function fn_of_padding_precision(k, o, fmt, pad, prec){
      /*<<camlinternalFormat.ml:1863:26>>*/ if(typeof pad === "number"){
@@ -18816,7 +18823,8 @@
    }
    function fn_of_custom_arity(k, o, fmt, param){
      /*<<?>>*/ return caml_trampoline
-            (fn_of_custom_arity$0(0, k, o, fmt, param));
+            ( /*<<camlinternalFormat.ml:1882:4>>*/ fn_of_custom_arity$0
+              (0, k, o, fmt, param)) /*<<?>>*/ ;
    }
    function output_acc(o, acc){
     var acc$0 =  /*<<camlinternalFormat.ml:1897:27>>*/ acc;
@@ -20301,7 +20309,8 @@
               /*<<camlinternalFormat.ml:2736:4>>*/ function
              (str_ind, end_ind, c){
                /*<<?>>*/ return caml_trampoline
-                      (parse_char_set_after_char$0(0, str_ind, end_ind, c));
+                      ( /*<<camlinternalFormat.ml:2755:6>>*/ parse_char_set_after_char$0
+                        (0, str_ind, end_ind, c)) /*<<?>>*/ ;
              };
            /*<<camlinternalFormat.ml:2793:4>>*/ if(str_ind === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
@@ -31463,7 +31472,8 @@
      }
     }
     function find_stop(width){
-      /*<<?>>*/ return caml_trampoline(find_stop$0(0, width));
+      /*<<?>>*/ return caml_trampoline
+             ( /*<<scanf.ml:1063:10>>*/ find_stop$0(0, width)) /*<<?>>*/ ;
     }
     function skip_spaces(counter, width){
      var width$0 =  /*<<scanf.ml:1080:10>>*/ width;
@@ -31739,7 +31749,8 @@
     }
     /*<<scanf.ml:1198:45>>*/ }
    function take_format_readers(k, fmt){
-     /*<<?>>*/ return caml_trampoline(take_format_readers$0(0, k, fmt));
+     /*<<?>>*/ return caml_trampoline
+            ( /*<<scanf.ml:1161:13>>*/ take_format_readers$0(0, k, fmt)) /*<<?>>*/ ;
    }
    function take_fmtty_format_readers$0(counter, k, fmtty, fmt){
     var fmtty$0 =  /*<<scanf.ml:1204:19>>*/ fmtty;
@@ -31837,7 +31848,8 @@
     /*<<scanf.ml:1228:58>>*/ }
    function take_fmtty_format_readers(k, fmtty, fmt){
      /*<<?>>*/ return caml_trampoline
-            (take_fmtty_format_readers$0(0, k, fmtty, fmt));
+            ( /*<<scanf.ml:1204:19>>*/ take_fmtty_format_readers$0
+              (0, k, fmtty, fmt)) /*<<?>>*/ ;
    }
    function make_scanf(ib, fmt, readers){
     var fmt$0 =  /*<<scanf.ml:1266:22>>*/ fmt;
@@ -35732,7 +35744,10 @@
       i$0 = i$1;
      }
      /*<<filename.ml:175:48>>*/ }
-    function loop(i){ /*<<?>>*/ return caml_trampoline(loop$0(0, i));}
+    function loop(i){
+      /*<<?>>*/ return caml_trampoline
+             ( /*<<filename.ml:171:6>>*/ loop$0(0, i)) /*<<?>>*/ ;
+    }
     function loop_bs(counter, n, i){
      var n$0 =  /*<<filename.ml:177:6>>*/ n, i$0 = i;
      for(;;){

From 70671774222bb91f8d3e424cb987f4d225ec18a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 21 Oct 2024 12:16:15 +0200
Subject: [PATCH 21/35] Refactor the generation of JavaScript expressions.

Use a monad to abstract the operations on the expression queue and the
effect information.
---
 compiler/lib/generate.ml | 519 ++++++++++++++++++++++-----------------
 1 file changed, 292 insertions(+), 227 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 3d80fae579..6b1e58e184 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -517,15 +517,6 @@ let access_queue_loc queue x =
     ((elt.prop, elt.deps), elt.ce, elt.loc), List.remove_assoc x queue
   with Not_found -> ((fst const_p, Code.Var.Set.singleton x), var x, J.N), queue
 
-let access_queue' ~ctx queue x =
-  match x with
-  | Pc c ->
-      let js, instrs = constant ~ctx c (Config.Param.constant_max_depth ()) in
-      assert (List.is_empty instrs);
-      (* We only have simple constants here *)
-      (const_p, js), queue
-  | Pv x -> access_queue queue x
-
 let should_flush (cond, _) prop = cond <> fst const_p && cond + prop >= fst flush_p
 
 let flush_queue expr_queue prop (l : J.statement_list) =
@@ -551,6 +542,94 @@ let enqueue expr_queue prop x ce loc acc =
   let prop, deps = prop in
   instrs, (x, { prop; deps; ce; loc }) :: expr_queue
 
+type queue = (Var.t * queue_elt) list
+
+type prop = int * Code.Var.Set.t
+
+module Expr_builder : sig
+  type 'a t
+
+  val ( let* ) : 'a t -> ('a -> 'b t) -> 'b t
+
+  val return : 'a -> 'a t
+
+  val access : Var.t -> J.expression t
+
+  val access' : ctx:Ctx.t -> prim_arg -> J.expression t
+
+  val info : prop -> unit t
+
+  val flush_all : queue -> J.statement_list t -> J.statement_list
+
+  val flush_queue : queue -> J.statement_list t -> J.statement_list * queue
+
+  val enqueue :
+       queue
+    -> Var.t
+    -> J.location
+    -> (J.expression * J.statement_list) t
+    -> J.statement_list * queue
+
+  val get : queue -> 'a t -> 'a * queue
+
+  val list_map : ('a -> 'b t) -> 'a list -> 'b list t
+end = struct
+  type state =
+    { queue : queue
+    ; prop : prop
+    }
+
+  type 'a t = state -> 'a * state
+
+  let ( let* ) (type a b) (e : a t) (f : a -> b t) : b t =
+   fun st ->
+    let v, st = e st in
+    f v st
+
+  let return x st = x, st
+
+  let info prop st = (), { st with prop = or_p st.prop prop }
+
+  let access x st =
+    let (prop, c), queue = access_queue st.queue x in
+    c, { prop = or_p st.prop prop; queue }
+
+  let access' ~ctx x =
+    match x with
+    | Pc c ->
+        let js, instrs = constant ~ctx c (Config.Param.constant_max_depth ()) in
+        assert (List.is_empty instrs);
+        (* We only have simple constants here *)
+        fun st -> js, st
+    | Pv x -> access x
+
+  let initial_state queue = { queue; prop = const_p }
+
+  let flush_queue queue instrs =
+    let v, { queue; prop; _ } = instrs (initial_state queue) in
+    flush_queue queue prop v
+
+  let flush_all queue instrs =
+    let v, { queue; _ } = instrs (initial_state queue) in
+    flush_all queue v
+
+  let enqueue queue x loc expr =
+    let (ce, instrs), { queue; prop } = expr (initial_state queue) in
+    enqueue queue prop x ce loc instrs
+
+  let get queue x =
+    let x, { queue; _ } = x (initial_state queue) in
+    x, queue
+
+  let rec list_map f l st =
+    match l with
+    | [] -> [], st
+    | x :: r ->
+        let x', st = f x st in
+        let r', st = list_map f r st in
+        x' :: r', st
+end
+
 (****)
 
 type state =
@@ -726,10 +805,14 @@ let parallel_renaming loc back_edge params args continuation queue =
       |> List.filter_map ~f:(fun x -> x)
       |> List.split
     in
-    let args, _, queue =
-      List.fold_left args ~init:([], const_p, queue) ~f:(fun (acc, p, queue) a ->
-          let (px, cx), queue = access_queue queue a in
-          cx :: acc, or_p px p, queue)
+    let open Expr_builder in
+    let args, queue =
+      get
+        queue
+        (List.fold_left args ~init:(return []) ~f:(fun acc a ->
+             let* acc = acc in
+             let* cx = access a in
+             return (cx :: acc)))
     in
     let never, code = continuation queue in
     match params, args with
@@ -882,38 +965,46 @@ let invalid_arity name l ~loc ~expected =
        (List.length l))
 
 let register_un_prim name k f =
-  register_prim name k (fun l queue ctx loc ->
+  register_prim name k (fun l ctx loc ->
       match l with
       | [ x ] ->
-          let (px, cx), queue = access_queue' ~ctx queue x in
-          f cx loc, or_p (kind k) px, queue
+          let open Expr_builder in
+          let* cx = access' ~ctx x in
+          let* () = info (kind k) in
+          return (f cx loc)
       | l -> invalid_arity name l ~loc ~expected:1)
 
 let register_un_prim_ctx name k f =
-  register_prim name k (fun l queue ctx loc ->
+  register_prim name k (fun l ctx loc ->
       match l with
       | [ x ] ->
-          let (px, cx), queue = access_queue' ~ctx queue x in
-          f ctx cx loc, or_p (kind k) px, queue
+          let open Expr_builder in
+          let* cx = access' ~ctx x in
+          let* () = info (kind k) in
+          return (f ctx cx loc)
       | _ -> invalid_arity name l ~loc ~expected:1)
 
 let register_bin_prim name k f =
-  register_prim name k (fun l queue ctx loc ->
+  register_prim name k (fun l ctx loc ->
       match l with
       | [ x; y ] ->
-          let (px, cx), queue = access_queue' ~ctx queue x in
-          let (py, cy), queue = access_queue' ~ctx queue y in
-          f cx cy loc, or_p (kind k) (or_p px py), queue
+          let open Expr_builder in
+          let* cx = access' ~ctx x in
+          let* cy = access' ~ctx y in
+          let* () = info (kind k) in
+          return (f cx cy loc)
       | _ -> invalid_arity name l ~loc ~expected:2)
 
 let register_tern_prim name f =
-  register_prim name `Mutator (fun l queue ctx loc ->
+  register_prim name `Mutator (fun l ctx loc ->
       match l with
       | [ x; y; z ] ->
-          let (px, cx), queue = access_queue' ~ctx queue x in
-          let (py, cy), queue = access_queue' ~ctx queue y in
-          let (pz, cz), queue = access_queue' ~ctx queue z in
-          f cx cy cz loc, or_p mutator_p (or_p px (or_p py pz)), queue
+          let open Expr_builder in
+          let* cx = access' ~ctx x in
+          let* cy = access' ~ctx y in
+          let* cz = access' ~ctx z in
+          let* () = info mutator_p in
+          return (f cx cy cz loc)
       | _ -> invalid_arity name l ~loc ~expected:3)
 
 let register_un_math_prim name prim =
@@ -1054,28 +1145,21 @@ let remove_unused_tail_args ctx exact trampolined args =
     else args
   else args
 
-let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
+let rec translate_expr ctx loc x e level : (_ * J.statement_list) Expr_builder.t =
+  let open Expr_builder in
   match e with
   | Apply { f; args; exact } ->
       let trampolined = Var.Set.mem x ctx.Ctx.trampolined_calls in
       let args = remove_unused_tail_args ctx exact trampolined args in
-      let args, prop, queue =
-        List.fold_right
-          ~f:(fun x (args, prop, queue) ->
-            let (prop', cx), queue = access_queue queue x in
-            cx :: args, or_p prop prop', queue)
-          args
-          ~init:([], mutator_p, queue)
-      in
-      let (prop', f), queue = access_queue queue f in
-      let prop = or_p prop prop' in
-      let e = apply_fun ctx f args exact trampolined loc in
-      (e, prop, queue), []
+      let* () = info mutator_p in
+      let* args = list_map access args in
+      let* f = access f in
+      return (apply_fun ctx f args exact trampolined loc, [])
   | Block (tag, a, array_or_not, _mut) ->
-      let contents, prop, queue =
-        List.fold_right
-          ~f:(fun x (args, prop, queue) ->
-            let (prop', cx), queue = access_queue queue x in
+      let* contents =
+        list_map
+          (fun x ->
+            let* cx = access x in
             let cx =
               match cx with
               | J.EVar (J.V v) ->
@@ -1084,19 +1168,19 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
                   else J.Element cx
               | _ -> J.Element cx
             in
-            cx :: args, or_p prop prop', queue)
+            return cx)
           (Array.to_list a)
-          ~init:([], const_p, queue)
       in
       let x =
         match array_or_not with
         | Array -> Mlvalue.Array.make ~tag ~args:contents
         | NotArray | Unknown -> Mlvalue.Block.make ~tag ~args:contents
       in
-      (x, prop, queue), []
+      return (x, [])
   | Field (x, n, _) ->
-      let (px, cx), queue = access_queue queue x in
-      (Mlvalue.Block.field cx n, or_p px mutable_p, queue), []
+      let* cx = access x in
+      let* () = info mutable_p in
+      return (Mlvalue.Block.field cx n, [])
   | Closure (args, ((pc, _) as cont)) ->
       let loc = source_location ctx After pc in
       let fv = Addr.Map.find pc ctx.freevars in
@@ -1106,28 +1190,28 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
           ( None
           , J.fun_ (List.map args ~f:(fun v -> J.V v)) (Js_simpl.function_body clo) loc )
       in
-      (clo, (fst const_p, fv), queue), []
-  | Constant c ->
-      let js, instrs = constant ~ctx c level in
-      (js, const_p, queue), instrs
+      let* () = info (fst const_p, fv) in
+      return (clo, [])
+  | Constant c -> return (constant ~ctx c level)
   | Special (Alias_prim name) ->
       let prim = Share.get_prim (runtime_fun ctx) name ctx.Ctx.share in
-      (prim, const_p, queue), []
+      return (prim, [])
   | Prim (Extern "debugger", _) ->
       let ins =
         if Config.Flag.debugger () then J.Debugger_statement else J.Empty_statement
       in
-      (int 0, const_p, queue), [ ins, loc ]
+      return (int 0, [ ins, loc ])
   | Prim (p, l) ->
-      let res =
+      let* res =
         match p, l with
         | Vectlength, [ x ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            Mlvalue.Array.length cx, px, queue
+            let* cx = access' ~ctx x in
+            return (Mlvalue.Array.length cx)
         | Array_get, [ x; y ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            let (py, cy), queue = access_queue' ~ctx queue y in
-            Mlvalue.Array.field cx cy, or_p mutable_p (or_p px py), queue
+            let* cx = access' ~ctx x in
+            let* cy = access' ~ctx y in
+            let* () = info mutable_p in
+            return (Mlvalue.Array.field cx cy)
         | Extern "caml_js_var", [ Pc (String nm) ]
         | Extern ("caml_js_expr" | "caml_pure_js_expr"), [ Pc (String nm) ] -> (
             try
@@ -1149,8 +1233,7 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
                     | None -> None)
               in
               let lex = Parse_js.Lexer.of_string ?pos nm in
-              let e = Parse_js.parse_expr lex in
-              e, const_p, queue
+              return (Parse_js.parse_expr lex)
             with Parse_js.Parsing_error pi ->
               failwith
                 (Printf.sprintf
@@ -1162,77 +1245,51 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
                    pi.Parse_info.line
                    pi.Parse_info.col))
         | Extern "%js_array", l ->
-            let args, prop, queue =
-              List.fold_right
-                ~f:(fun x (args, prop, queue) ->
-                  let (prop', cx), queue = access_queue' ~ctx queue x in
-                  cx :: args, or_p prop prop', queue)
-                l
-                ~init:([], const_p, queue)
-            in
-            J.array args, prop, queue
+            let* args = list_map (fun x -> access' ~ctx x) l in
+            return (J.array args)
         | Extern "%caml_js_opt_call", f :: o :: l ->
-            let (pf, cf), queue = access_queue' ~ctx queue f in
-            let (po, co), queue = access_queue' ~ctx queue o in
-            let args, prop, queue =
-              List.fold_right
-                ~f:(fun x (args, prop, queue) ->
-                  let (prop', cx), queue = access_queue' ~ctx queue x in
-                  cx :: args, or_p prop prop', queue)
-                l
-                ~init:([], mutator_p, queue)
-            in
-            ( J.call (J.dot cf (Utf8_string.of_string_exn "call")) (co :: args) loc
-            , or_p (or_p pf po) prop
-            , queue )
+            let* () = info mutator_p in
+            let* cf = access' ~ctx f in
+            let* co = access' ~ctx o in
+            let* args = list_map (fun x -> access' ~ctx x) l in
+            return (J.call (J.dot cf (Utf8_string.of_string_exn "call")) (co :: args) loc)
         | Extern "%caml_js_opt_fun_call", f :: l ->
-            let (pf, cf), queue = access_queue' ~ctx queue f in
-            let args, prop, queue =
-              List.fold_right
-                ~f:(fun x (args, prop, queue) ->
-                  let (prop', cx), queue = access_queue' ~ctx queue x in
-                  cx :: args, or_p prop prop', queue)
-                l
-                ~init:([], mutator_p, queue)
-            in
-            J.call cf args loc, or_p pf prop, queue
+            let* () = info mutator_p in
+            let* cf = access' ~ctx f in
+            let* args = list_map (fun x -> access' ~ctx x) l in
+            return (J.call cf args loc)
         | Extern "%caml_js_opt_meth_call", o :: Pc (NativeString (Utf m)) :: l ->
-            let (po, co), queue = access_queue' ~ctx queue o in
-            let args, prop, queue =
-              List.fold_right
-                ~f:(fun x (args, prop, queue) ->
-                  let (prop', cx), queue = access_queue' ~ctx queue x in
-                  cx :: args, or_p prop prop', queue)
-                l
-                ~init:([], mutator_p, queue)
-            in
-            J.call (J.dot co m) args loc, or_p po prop, queue
+            let* () = info mutator_p in
+            let* co = access' ~ctx o in
+            let* args = list_map (fun x -> access' ~ctx x) l in
+            return (J.call (J.dot co m) args loc)
         | Extern "%caml_js_opt_meth_call", _ -> assert false
         | Extern "%caml_js_opt_new", c :: l ->
-            let (pc, cc), queue = access_queue' ~ctx queue c in
-            let args, prop, queue =
-              List.fold_right
-                ~f:(fun x (args, prop, queue) ->
-                  let (prop', cx), queue = access_queue' ~ctx queue x in
-                  J.Arg cx :: args, or_p prop prop', queue)
+            let* () = info mutator_p in
+            let* cc = access' ~ctx c in
+            let* args =
+              list_map
+                (fun x ->
+                  let* cx = access' ~ctx x in
+                  return (J.Arg cx))
                 l
-                ~init:([], mutator_p, queue)
             in
-            ( J.ENew (cc, (if List.is_empty args then None else Some args), loc)
-            , or_p pc prop
-            , queue )
+            return (J.ENew (cc, (if List.is_empty args then None else Some args), loc))
         | Extern "caml_js_get", [ Pv o; Pc (NativeString (Utf f)) ] when J.is_ident' f ->
-            let (po, co), queue = access_queue queue o in
-            J.dot co f, or_p po mutable_p, queue
+            let* co = access o in
+            let* () = info mutable_p in
+            return (J.dot co f)
         | Extern "caml_js_set", [ Pv o; Pc (NativeString (Utf f)); v ] when J.is_ident' f
           ->
-            let (po, co), queue = access_queue queue o in
-            let (pv, cv), queue = access_queue' ~ctx queue v in
-            J.EBin (J.Eq, J.dot co f, cv), or_p (or_p po pv) mutator_p, queue
+            let* co = access o in
+            let* cv = access' ~ctx v in
+            let* () = info mutator_p in
+            return (J.EBin (J.Eq, J.dot co f, cv))
         | Extern "caml_js_delete", [ Pv o; Pc (NativeString (Utf f)) ] when J.is_ident' f
           ->
-            let (po, co), queue = access_queue queue o in
-            J.EUn (J.Delete, J.dot co f), or_p po mutator_p, queue
+            let* co = access o in
+            let* () = info mutator_p in
+            return (J.EUn (J.Delete, J.dot co f))
             (*
            This is only useful for debugging:
          {[
@@ -1242,24 +1299,25 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
            ]}
         *)
         | Extern "%caml_js_opt_object", fields ->
-            let rec build_fields queue l =
+            let rec build_fields l =
               match l with
-              | [] -> const_p, [], queue
+              | [] -> return []
               | Pc (NativeString (Utf nm)) :: x :: r ->
-                  let (prop, cx), queue = access_queue' ~ctx queue x in
-                  let prop', r', queue = build_fields queue r in
+                  let* cx = access' ~ctx x in
+                  let* r' = build_fields r in
                   let p_name = if J.is_ident' nm then J.PNI nm else J.PNS nm in
-                  or_p prop prop', J.Property (p_name, cx) :: r', queue
+                  return (J.Property (p_name, cx) :: r')
               | _ -> assert false
             in
-            let prop, fields, queue = build_fields queue fields in
-            J.EObj fields, prop, queue
+            let* fields = build_fields fields in
+            return (J.EObj fields)
         | Extern "caml_alloc_dummy_function", [ _; size ] ->
-            let i, queue =
-              let (_px, cx), queue = access_queue' ~ctx queue size in
-              match cx with
-              | J.ENum i -> Targetint.to_int_exn (J.Num.to_targetint i), queue
-              | _ -> assert false
+            let* i =
+              let* cx = access' ~ctx size in
+              return
+                (match cx with
+                | J.ENum i -> Targetint.to_int_exn (J.Num.to_targetint i)
+                | _ -> assert false)
             in
             let args = Array.to_list (Array.init i ~f:(fun _ -> J.V (Var.fresh ()))) in
             let f = J.V (Var.fresh ()) in
@@ -1272,7 +1330,7 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
             let e =
               J.EFun (Some f, J.fun_ args [ J.Return_statement (Some call, J.N), J.N ] J.N)
             in
-            e, const_p, queue
+            return e
         | Extern "caml_alloc_dummy_function", _ -> assert false
         | Extern ("%resume" | "%perform" | "%reperform"), _ ->
             if Config.Flag.effects () then assert false;
@@ -1284,88 +1342,79 @@ let rec translate_expr ctx queue loc x e level : _ * J.statement_list =
               ctx.effect_warning := true);
             let name = "jsoo_effect_not_supported" in
             let prim = Share.get_prim (runtime_fun ctx) name ctx.Ctx.share in
-            let prim_kind = kind (Primitive.kind name) in
-            J.call prim [] loc, prim_kind, queue
+            let* () = info (kind (Primitive.kind name)) in
+            return (J.call prim [] loc)
         | Extern "caml_string_notequal", [ a; b ] when Config.Flag.use_js_string () ->
-            let (px, cx), queue = access_queue' ~ctx queue a in
-            let (py, cy), queue = access_queue' ~ctx queue b in
-            let prop = or_p px py in
-            bool (J.EBin (J.NotEqEq, cx, cy)), prop, queue
+            let* cx = access' ~ctx a in
+            let* cy = access' ~ctx b in
+            return (bool (J.EBin (J.NotEqEq, cx, cy)))
         | Extern "caml_string_equal", [ a; b ] when Config.Flag.use_js_string () ->
-            let (px, cx), queue = access_queue' ~ctx queue a in
-            let (py, cy), queue = access_queue' ~ctx queue b in
-            let prop = or_p px py in
-            bool (J.EBin (J.EqEqEq, cx, cy)), prop, queue
+            let* cx = access' ~ctx a in
+            let* cy = access' ~ctx b in
+            return (bool (J.EBin (J.EqEqEq, cx, cy)))
         | Extern "caml_string_concat", [ a; b ] when Config.Flag.use_js_string () ->
-            let (pa, ca), queue = access_queue' ~ctx queue a in
-            let (pb, cb), queue = access_queue' ~ctx queue b in
-            let prop = or_p pa pb in
+            let* ca = access' ~ctx a in
+            let* cb = access' ~ctx b in
             let rec add ca cb =
               match cb with
               | J.EBin (J.Plus, cb1, cb2) -> J.EBin (J.Plus, add ca cb1, cb2)
               | _ -> J.EBin (J.Plus, ca, cb)
             in
-            add ca cb, prop, queue
+            return (add ca cb)
         | Extern name, l -> (
             let name = Primitive.resolve name in
             match internal_prim name with
-            | Some f -> f l queue ctx loc
+            | Some f -> f l ctx loc
             | None ->
                 if String.is_prefix name ~prefix:"%"
                 then failwith (Printf.sprintf "Unresolved internal primitive: %s" name);
                 let prim = Share.get_prim (runtime_fun ctx) name ctx.Ctx.share in
-                let prim_kind = kind (Primitive.kind name) in
-                let args, prop, queue =
-                  List.fold_right
-                    ~f:(fun x (args, prop, queue) ->
-                      let (prop', cx), queue = access_queue' ~ctx queue x in
-                      cx :: args, or_p prop prop', queue)
-                    l
-                    ~init:([], prim_kind, queue)
-                in
-                J.call prim args loc, prop, queue)
+                let* () = info (kind (Primitive.kind name)) in
+                let* args = list_map (fun x -> access' ~ctx x) l in
+                return (J.call prim args loc))
         | Not, [ x ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            J.EBin (J.Minus, one, cx), px, queue
+            let* cx = access' ~ctx x in
+            return (J.EBin (J.Minus, one, cx))
         | Lt, [ x; y ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            let (py, cy), queue = access_queue' ~ctx queue y in
-            bool (J.EBin (J.LtInt, cx, cy)), or_p px py, queue
+            let* cx = access' ~ctx x in
+            let* cy = access' ~ctx y in
+            return (bool (J.EBin (J.LtInt, cx, cy)))
         | Le, [ x; y ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            let (py, cy), queue = access_queue' ~ctx queue y in
-            bool (J.EBin (J.LeInt, cx, cy)), or_p px py, queue
+            let* cx = access' ~ctx x in
+            let* cy = access' ~ctx y in
+            return (bool (J.EBin (J.LeInt, cx, cy)))
         | Eq, [ x; y ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            let (py, cy), queue = access_queue' ~ctx queue y in
-            bool (J.EBin (J.EqEqEq, cx, cy)), or_p px py, queue
+            let* cx = access' ~ctx x in
+            let* cy = access' ~ctx y in
+            return (bool (J.EBin (J.EqEqEq, cx, cy)))
         | Neq, [ x; y ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            let (py, cy), queue = access_queue' ~ctx queue y in
-            bool (J.EBin (J.NotEqEq, cx, cy)), or_p px py, queue
+            let* cx = access' ~ctx x in
+            let* cy = access' ~ctx y in
+            return (bool (J.EBin (J.NotEqEq, cx, cy)))
         | IsInt, [ x ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            bool (Mlvalue.is_immediate cx), px, queue
+            let* cx = access' ~ctx x in
+            return (bool (Mlvalue.is_immediate cx))
         | Ult, [ x; y ] ->
-            let (px, cx), queue = access_queue' ~ctx queue x in
-            let (py, cy), queue = access_queue' ~ctx queue y in
-            bool (J.EBin (J.LtInt, unsigned cx, unsigned cy)), or_p px py, queue
+            let* cx = access' ~ctx x in
+            let* cy = access' ~ctx y in
+            return (bool (J.EBin (J.LtInt, unsigned cx, unsigned cy)))
         | (Vectlength | Array_get | Not | IsInt | Eq | Neq | Lt | Le | Ult), _ ->
             assert false
       in
-      res, []
+      return (res, [])
 
 and translate_instr ctx expr_queue loc instr =
+  let open Expr_builder in
   let instr, _ = instr in
   match instr with
   | Assign (x, y) ->
-      let (_py, cy), expr_queue = access_queue expr_queue y in
       flush_queue
         expr_queue
-        mutator_p
-        [ J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V x), cy)), loc ]
+        (let* cy = access y in
+         let* () = info mutator_p in
+         return [ J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V x), cy)), loc ])
   | Let (x, e) -> (
-      let (ce, prop, expr_queue), instrs = translate_expr ctx expr_queue loc x e 0 in
+      let e' = translate_expr ctx loc x e 0 in
       let keep_name x =
         match Code.Var.get_name x with
         | None -> false
@@ -1379,43 +1428,51 @@ and translate_instr ctx expr_queue loc instr =
       match ctx.Ctx.live.(Var.idx x), e with
       | 0, _ ->
           (* deadcode is off *)
-          flush_queue expr_queue prop (instrs @ [ J.Expression_statement ce, loc ])
+          flush_queue
+            expr_queue
+            (let* ce, instrs = e' in
+             return (instrs @ [ J.Expression_statement ce, loc ]))
       | 1, _
         when Config.Flag.compact () && ((not (Config.Flag.pretty ())) || not (keep_name x))
-        -> enqueue expr_queue prop x ce loc instrs
-      | 1, Constant (Int _ | Float _) -> enqueue expr_queue prop x ce loc instrs
+        -> enqueue expr_queue x loc e'
+      | 1, Constant (Int _ | Float _) -> enqueue expr_queue x loc e'
       | _ ->
           flush_queue
             expr_queue
-            prop
-            (instrs @ [ J.variable_declaration [ J.V x, (ce, loc) ], loc ]))
+            (let* ce, instrs = e' in
+             return (instrs @ [ J.variable_declaration [ J.V x, (ce, loc) ], loc ])))
   | Set_field (x, n, _, y) ->
-      let (_px, cx), expr_queue = access_queue expr_queue x in
-      let (_py, cy), expr_queue = access_queue expr_queue y in
       flush_queue
         expr_queue
-        mutator_p
-        [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Block.field cx n, cy)), loc ]
+        (let* cx = access x in
+         let* cy = access y in
+         let* () = info mutator_p in
+         return
+           [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Block.field cx n, cy)), loc ])
   | Offset_ref (x, n) ->
       (* FIX: may overflow.. *)
-      let (_px, cx), expr_queue = access_queue expr_queue x in
-      let expr = Mlvalue.Block.field cx 0 in
-      let expr' =
-        match n with
-        | 1 -> J.EUn (J.IncrA, expr)
-        | -1 -> J.EUn (J.DecrA, expr)
-        | n when n < 0 (* *) -> J.EBin (J.MinusEq, expr, int (-n))
-        | n (*   n > 0    *) -> J.EBin (J.PlusEq, expr, int n)
-      in
-      flush_queue expr_queue mutator_p [ J.Expression_statement expr', loc ]
+      flush_queue
+        expr_queue
+        (let* cx = access x in
+         let expr = Mlvalue.Block.field cx 0 in
+         let expr' =
+           match n with
+           | 1 -> J.EUn (J.IncrA, expr)
+           | -1 -> J.EUn (J.DecrA, expr)
+           | n when n < 0 (* *) -> J.EBin (J.MinusEq, expr, int (-n))
+           | n (*   n > 0    *) -> J.EBin (J.PlusEq, expr, int n)
+         in
+         let* () = info mutator_p in
+         return [ J.Expression_statement expr', loc ])
   | Array_set (x, y, z) ->
-      let (_px, cx), expr_queue = access_queue expr_queue x in
-      let (_py, cy), expr_queue = access_queue expr_queue y in
-      let (_pz, cz), expr_queue = access_queue expr_queue z in
       flush_queue
         expr_queue
-        mutator_p
-        [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Array.field cx cy, cz)), loc ]
+        (let* cx = access x in
+         let* cy = access y in
+         let* cz = access z in
+         let* () = info mutator_p in
+         return
+           [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Array.field cx cy, cz)), loc ])
   | Event _ -> [], expr_queue
 
 and translate_instrs_rev (ctx : Ctx.t) loc expr_queue instrs acc_rev muts_map =
@@ -1739,24 +1796,32 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
   let res =
     match last with
     | Return x ->
-        let (_px, cx), queue = access_queue queue x in
-        let return_expr =
-          if Var.equal st.ctx.deadcode_sentinal x then None else Some cx
-        in
-        let loc' =
-          match cx with
-          | ECall _ -> (
-              (* We usually don't have a good locations for tail
-                 calls, so use the end of the function instead *)
-              match source_location st.ctx After st.pc with
-              | J.N -> loc
-              | loc -> loc)
-          | _ -> loc
+        let open Expr_builder in
+        let instrs =
+          let* cx = access x in
+          let return_expr =
+            if Var.equal st.ctx.deadcode_sentinal x then None else Some cx
+          in
+          let loc' =
+            match cx with
+            | ECall _ -> (
+                (* We usually don't have a good locations for tail
+                   calls, so use the end of the function instead *)
+                match source_location st.ctx After st.pc with
+                | J.N -> loc
+                | loc -> loc)
+            | _ -> loc
+          in
+          return [ J.Return_statement (return_expr, loc'), loc ]
         in
-        true, flush_all queue [ J.Return_statement (return_expr, loc'), loc ]
+        true, flush_all queue instrs
     | Raise (x, k) ->
-        let (_px, cx), queue = access_queue queue x in
-        true, flush_all queue (throw_statement st.ctx cx k loc)
+        let open Expr_builder in
+        let instrs =
+          let* cx = access x in
+          return (throw_statement st.ctx cx k loc)
+        in
+        true, flush_all queue instrs
     | Stop ->
         let e_opt =
           if st.ctx.Ctx.should_export then Some (s_var Global_constant.exports) else None
@@ -1796,7 +1861,7 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
         let never, code = compile_branch st J.N [] cont scope_stack ~fall_through in
         never, flush_all queue code
     | Cond (x, c1, c2) ->
-        let (_px, cx), queue = access_queue queue x in
+        let cx, queue = Expr_builder.get queue (Expr_builder.access x) in
         let never, b =
           compile_decision_tree
             "Bool"
@@ -1809,7 +1874,7 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
         in
         never, flush_all queue b
     | Switch (x, a1) ->
-        let (_px, cx), queue = access_queue queue x in
+        let cx, queue = Expr_builder.get queue (Expr_builder.access x) in
         let never, code =
           compile_decision_tree
             "Int"

From bf7fc83765d46afcaf9a70172ed85ea7ede55589 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Wed, 16 Oct 2024 18:45:32 +0200
Subject: [PATCH 22/35] Improved statement locations

Statements will get the earliest location of the expressions performing
a call it contains, if there is any. Then, for an expression `if (e)
{...}`, we don't move first to the location of the conditional before
going back to the location within `e` which might be strictly before.

When queueing expressions, we ignore their locations if they don't
perform a call; when flushed, we use the current location. This again
prevent locations to be reordered.
---
 compiler/lib/generate.ml                   |  204 +-
 compiler/tests-compiler/gh747.ml           |  292 +-
 compiler/tests-full/stdlib.cma.expected.js | 4411 ++++++++------------
 3 files changed, 2028 insertions(+), 2879 deletions(-)

diff --git a/compiler/lib/generate.ml b/compiler/lib/generate.ml
index 6b1e58e184..85883fa3a1 100644
--- a/compiler/lib/generate.ml
+++ b/compiler/lib/generate.ml
@@ -501,25 +501,23 @@ let constant ~ctx x level =
 type queue_elt =
   { prop : int
   ; ce : J.expression
-  ; loc : J.location
+  ; loc : J.location option
   ; deps : Code.Var.Set.t
   }
 
 let access_queue queue x =
-  try
-    let elt = List.assoc x queue in
-    ((elt.prop, elt.deps), elt.ce), List.remove_assoc x queue
-  with Not_found -> ((fst const_p, Code.Var.Set.singleton x), var x), queue
-
-let access_queue_loc queue x =
   try
     let elt = List.assoc x queue in
     ((elt.prop, elt.deps), elt.ce, elt.loc), List.remove_assoc x queue
-  with Not_found -> ((fst const_p, Code.Var.Set.singleton x), var x, J.N), queue
+  with Not_found -> ((fst const_p, Code.Var.Set.singleton x), var x, None), queue
+
+let access_queue_loc queue loc' x =
+  let (prop, c, loc), queue = access_queue queue x in
+  (prop, c, Option.value ~default:loc' loc), queue
 
 let should_flush (cond, _) prop = cond <> fst const_p && cond + prop >= fst flush_p
 
-let flush_queue expr_queue prop (l : J.statement_list) =
+let flush_queue expr_queue prop loc (l : J.statement_list) =
   let instrs, expr_queue =
     if fst prop >= fst flush_p
     then expr_queue, []
@@ -527,20 +525,24 @@ let flush_queue expr_queue prop (l : J.statement_list) =
   in
   let instrs =
     List.map instrs ~f:(fun (x, elt) ->
-        J.variable_declaration [ J.V x, (elt.ce, elt.loc) ], elt.loc)
+        let loc = Option.value ~default:loc elt.loc in
+        J.variable_declaration [ J.V x, (elt.ce, loc) ], loc)
   in
   List.rev_append instrs l, expr_queue
 
-let flush_all expr_queue l = fst (flush_queue expr_queue flush_p l)
+let flush_all expr_queue loc l = fst (flush_queue expr_queue flush_p loc l)
 
-let enqueue expr_queue prop x ce loc acc =
+let enqueue expr_queue prop x ce flush_loc expr_loc acc =
   let instrs, expr_queue =
     if Config.Flag.compact ()
-    then if is_mutable prop then flush_queue expr_queue prop acc else acc, expr_queue
-    else flush_queue expr_queue flush_p acc
+    then
+      if is_mutable prop
+      then flush_queue expr_queue prop flush_loc acc
+      else acc, expr_queue
+    else flush_queue expr_queue flush_p flush_loc acc
   in
   let prop, deps = prop in
-  instrs, (x, { prop; deps; ce; loc }) :: expr_queue
+  instrs, (x, { prop; deps; ce; loc = expr_loc }) :: expr_queue
 
 type queue = (Var.t * queue_elt) list
 
@@ -557,11 +559,13 @@ module Expr_builder : sig
 
   val access' : ctx:Ctx.t -> prim_arg -> J.expression t
 
-  val info : prop -> unit t
+  val info : ?need_loc:bool -> prop -> unit t
+
+  val statement_loc : J.location -> J.location t
 
-  val flush_all : queue -> J.statement_list t -> J.statement_list
+  val flush_all : queue -> J.location -> J.statement_list t -> J.statement_list
 
-  val flush_queue : queue -> J.statement_list t -> J.statement_list * queue
+  val flush_queue : queue -> J.location -> J.statement_list t -> J.statement_list * queue
 
   val enqueue :
        queue
@@ -570,13 +574,15 @@ module Expr_builder : sig
     -> (J.expression * J.statement_list) t
     -> J.statement_list * queue
 
-  val get : queue -> 'a t -> 'a * queue
+  val get : queue -> J.location -> 'a t -> 'a * J.location * queue
 
   val list_map : ('a -> 'b t) -> 'a list -> 'b list t
 end = struct
   type state =
     { queue : queue
     ; prop : prop
+    ; need_loc : bool
+    ; loc : J.location option
     }
 
   type 'a t = state -> 'a * state
@@ -588,11 +594,20 @@ end = struct
 
   let return x st = x, st
 
-  let info prop st = (), { st with prop = or_p st.prop prop }
+  let info ?(need_loc = false) prop st =
+    (), { st with prop = or_p st.prop prop; need_loc = need_loc || st.need_loc }
 
   let access x st =
-    let (prop, c), queue = access_queue st.queue x in
-    c, { prop = or_p st.prop prop; queue }
+    let (prop, c, loc), queue = access_queue st.queue x in
+    ( c
+    , { st with
+        prop = or_p st.prop prop
+      ; queue
+      ; loc =
+          (match st.loc with
+          | None -> loc
+          | _ -> st.loc)
+      } )
 
   let access' ~ctx x =
     match x with
@@ -603,23 +618,39 @@ end = struct
         fun st -> js, st
     | Pv x -> access x
 
-  let initial_state queue = { queue; prop = const_p }
+  let statement_loc loc st =
+    ( (match st.loc with
+      | None -> loc
+      | Some loc -> loc)
+    , st )
 
-  let flush_queue queue instrs =
+  let initial_state queue = { queue; prop = const_p; loc = None; need_loc = false }
+
+  let flush_queue queue loc instrs =
     let v, { queue; prop; _ } = instrs (initial_state queue) in
-    flush_queue queue prop v
+    flush_queue queue prop loc v
 
-  let flush_all queue instrs =
+  let flush_all queue loc instrs =
     let v, { queue; _ } = instrs (initial_state queue) in
-    flush_all queue v
-
-  let enqueue queue x loc expr =
-    let (ce, instrs), { queue; prop } = expr (initial_state queue) in
-    enqueue queue prop x ce loc instrs
-
-  let get queue x =
-    let x, { queue; _ } = x (initial_state queue) in
-    x, queue
+    flush_all queue loc v
+
+  let enqueue queue x flush_loc expr =
+    let (ce, instrs), { queue; prop; loc; need_loc } = expr (initial_state queue) in
+    let expr_loc =
+      match loc with
+      | None when need_loc -> Some flush_loc
+      | _ -> loc
+    in
+    enqueue queue prop x ce flush_loc expr_loc instrs
+
+  let get queue loc' x =
+    let x, { queue; loc; _ } = x (initial_state queue) in
+    let loc =
+      match loc with
+      | None -> loc'
+      | Some loc -> loc
+    in
+    x, loc, queue
 
   let rec list_map f l st =
     match l with
@@ -806,9 +837,10 @@ let parallel_renaming loc back_edge params args continuation queue =
       |> List.split
     in
     let open Expr_builder in
-    let args, queue =
+    let args, loc, queue =
       get
         queue
+        loc
         (List.fold_left args ~init:(return []) ~f:(fun acc a ->
              let* acc = acc in
              let* cx = access a in
@@ -834,7 +866,7 @@ let parallel_renaming loc back_edge params args continuation queue =
         l
         ~init:(queue, [], [], Code.Var.Set.empty)
         ~f:(fun (queue, before, renaming, seen) (y, x) ->
-          let ((_, deps_x), cx, locx), queue = access_queue_loc queue x in
+          let ((_, deps_x), cx, locx), queue = access_queue_loc queue loc x in
           let seen' = Code.Var.Set.add y seen in
           if not Code.Var.Set.(is_empty (inter seen deps_x))
           then
@@ -964,13 +996,13 @@ let invalid_arity name l ~loc ~expected =
        expected
        (List.length l))
 
-let register_un_prim name k f =
+let register_un_prim name ?(need_loc = false) k f =
   register_prim name k (fun l ctx loc ->
       match l with
       | [ x ] ->
           let open Expr_builder in
           let* cx = access' ~ctx x in
-          let* () = info (kind k) in
+          let* () = info ~need_loc (kind k) in
           return (f cx loc)
       | l -> invalid_arity name l ~loc ~expected:1)
 
@@ -1064,7 +1096,7 @@ let _ =
   register_tern_prim "caml_array_unsafe_set" (fun cx cy cz _ ->
       J.EBin (J.Eq, Mlvalue.Array.field cx cy, cz));
   register_un_prim "caml_alloc_dummy" `Pure (fun _ _ -> J.array []);
-  register_un_prim "caml_obj_dup" `Mutable (fun cx loc ->
+  register_un_prim "caml_obj_dup" ~need_loc:true `Mutable (fun cx loc ->
       J.call (J.dot cx (Utf8_string.of_string_exn "slice")) [] loc);
   register_un_prim "caml_int_of_float" `Pure (fun cx _loc -> to_int cx);
   register_un_math_prim "caml_abs_float" "abs";
@@ -1151,7 +1183,7 @@ let rec translate_expr ctx loc x e level : (_ * J.statement_list) Expr_builder.t
   | Apply { f; args; exact } ->
       let trampolined = Var.Set.mem x ctx.Ctx.trampolined_calls in
       let args = remove_unused_tail_args ctx exact trampolined args in
-      let* () = info mutator_p in
+      let* () = info ~need_loc:true mutator_p in
       let* args = list_map access args in
       let* f = access f in
       return (apply_fun ctx f args exact trampolined loc, [])
@@ -1248,24 +1280,24 @@ let rec translate_expr ctx loc x e level : (_ * J.statement_list) Expr_builder.t
             let* args = list_map (fun x -> access' ~ctx x) l in
             return (J.array args)
         | Extern "%caml_js_opt_call", f :: o :: l ->
-            let* () = info mutator_p in
+            let* () = info ~need_loc:true mutator_p in
             let* cf = access' ~ctx f in
             let* co = access' ~ctx o in
             let* args = list_map (fun x -> access' ~ctx x) l in
             return (J.call (J.dot cf (Utf8_string.of_string_exn "call")) (co :: args) loc)
         | Extern "%caml_js_opt_fun_call", f :: l ->
-            let* () = info mutator_p in
+            let* () = info ~need_loc:true mutator_p in
             let* cf = access' ~ctx f in
             let* args = list_map (fun x -> access' ~ctx x) l in
             return (J.call cf args loc)
         | Extern "%caml_js_opt_meth_call", o :: Pc (NativeString (Utf m)) :: l ->
-            let* () = info mutator_p in
+            let* () = info ~need_loc:true mutator_p in
             let* co = access' ~ctx o in
             let* args = list_map (fun x -> access' ~ctx x) l in
             return (J.call (J.dot co m) args loc)
         | Extern "%caml_js_opt_meth_call", _ -> assert false
         | Extern "%caml_js_opt_new", c :: l ->
-            let* () = info mutator_p in
+            let* () = info ~need_loc:true mutator_p in
             let* cc = access' ~ctx c in
             let* args =
               list_map
@@ -1342,7 +1374,7 @@ let rec translate_expr ctx loc x e level : (_ * J.statement_list) Expr_builder.t
               ctx.effect_warning := true);
             let name = "jsoo_effect_not_supported" in
             let prim = Share.get_prim (runtime_fun ctx) name ctx.Ctx.share in
-            let* () = info (kind (Primitive.kind name)) in
+            let* () = info ~need_loc:true (kind (Primitive.kind name)) in
             return (J.call prim [] loc)
         | Extern "caml_string_notequal", [ a; b ] when Config.Flag.use_js_string () ->
             let* cx = access' ~ctx a in
@@ -1369,7 +1401,7 @@ let rec translate_expr ctx loc x e level : (_ * J.statement_list) Expr_builder.t
                 if String.is_prefix name ~prefix:"%"
                 then failwith (Printf.sprintf "Unresolved internal primitive: %s" name);
                 let prim = Share.get_prim (runtime_fun ctx) name ctx.Ctx.share in
-                let* () = info (kind (Primitive.kind name)) in
+                let* () = info ~need_loc:true (kind (Primitive.kind name)) in
                 let* args = list_map (fun x -> access' ~ctx x) l in
                 return (J.call prim args loc))
         | Not, [ x ] ->
@@ -1410,8 +1442,10 @@ and translate_instr ctx expr_queue loc instr =
   | Assign (x, y) ->
       flush_queue
         expr_queue
+        loc
         (let* cy = access y in
          let* () = info mutator_p in
+         let* loc = statement_loc loc in
          return [ J.Expression_statement (J.EBin (J.Eq, J.EVar (J.V x), cy)), loc ])
   | Let (x, e) -> (
       let e' = translate_expr ctx loc x e 0 in
@@ -1430,7 +1464,9 @@ and translate_instr ctx expr_queue loc instr =
           (* deadcode is off *)
           flush_queue
             expr_queue
+            loc
             (let* ce, instrs = e' in
+             let* loc = statement_loc loc in
              return (instrs @ [ J.Expression_statement ce, loc ]))
       | 1, _
         when Config.Flag.compact () && ((not (Config.Flag.pretty ())) || not (keep_name x))
@@ -1439,20 +1475,25 @@ and translate_instr ctx expr_queue loc instr =
       | _ ->
           flush_queue
             expr_queue
+            loc
             (let* ce, instrs = e' in
+             let* loc = statement_loc loc in
              return (instrs @ [ J.variable_declaration [ J.V x, (ce, loc) ], loc ])))
   | Set_field (x, n, _, y) ->
       flush_queue
         expr_queue
+        loc
         (let* cx = access x in
          let* cy = access y in
          let* () = info mutator_p in
+         let* loc = statement_loc loc in
          return
            [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Block.field cx n, cy)), loc ])
   | Offset_ref (x, n) ->
       (* FIX: may overflow.. *)
       flush_queue
         expr_queue
+        loc
         (let* cx = access x in
          let expr = Mlvalue.Block.field cx 0 in
          let expr' =
@@ -1463,14 +1504,17 @@ and translate_instr ctx expr_queue loc instr =
            | n (*   n > 0    *) -> J.EBin (J.PlusEq, expr, int n)
          in
          let* () = info mutator_p in
+         let* loc = statement_loc loc in
          return [ J.Expression_statement expr', loc ])
   | Array_set (x, y, z) ->
       flush_queue
         expr_queue
+        loc
         (let* cx = access x in
          let* cy = access y in
          let* cz = access z in
          let* () = info mutator_p in
+         let* loc = statement_loc loc in
          return
            [ J.Expression_statement (J.EBin (J.Eq, Mlvalue.Array.field cx cy, cz)), loc ])
   | Event _ -> [], expr_queue
@@ -1531,7 +1575,7 @@ and translate_instrs_rev (ctx : Ctx.t) loc expr_queue instrs acc_rev muts_map =
           Code.Var.Set.fold
             (fun v (expr_queue, vars, lets) ->
               assert (not (Code.Var.Set.mem v names));
-              let (px, cx, locx), expr_queue = access_queue_loc expr_queue v in
+              let (px, cx, locx), expr_queue = access_queue_loc expr_queue loc v in
               let flushed = Code.Var.Set.(equal (snd px) (singleton v)) in
               match
                 ( flushed
@@ -1573,7 +1617,7 @@ and translate_instrs_rev (ctx : Ctx.t) loc expr_queue instrs acc_rev muts_map =
               match l with
               | [ i ] -> mut_rec, i :: st_rev, expr_queue
               | [] ->
-                  let (_px, cx, locx), expr_queue = access_queue_loc expr_queue x' in
+                  let (_px, cx, locx), expr_queue = access_queue_loc expr_queue loc x' in
                   ( mut_rec
                   , (J.variable_declaration [ J.V x', (cx, locx) ], locx) :: st_rev
                   , expr_queue )
@@ -1607,7 +1651,7 @@ and compile_block st loc queue (pc : Addr.t) scope_stack ~fall_through =
         not (Config.Flag.inline ()))
   then
     let never, code = compile_block st loc [] pc scope_stack ~fall_through in
-    never, flush_all queue code
+    never, flush_all queue loc code
   else
     match Structure.is_loop_header st.structure pc with
     | false -> compile_block_no_loop st loc queue pc scope_stack ~fall_through
@@ -1687,10 +1731,11 @@ and compile_block_no_loop st loc queue (pc : Addr.t) ~fall_through scope_stack =
   let never_after, after = loop ~scope_stack ~fall_through new_scopes in
   never_after, seq @ after
 
-and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
+and compile_decision_tree kind st scope_stack loc_before cx loc_after dtree ~fall_through
+    =
   (* Some changes here may require corresponding changes
      in function [DTree.fold_cont] above. *)
-  let rec loop cx scope_stack : _ -> bool * _ = function
+  let rec loop loc cx scope_stack : _ -> bool * _ = function
     | DTree.Branch (l, cont) ->
         if debug ()
         then
@@ -1702,12 +1747,12 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
                 ~pp_sep:(fun fmt () -> Format.pp_print_string fmt ", ")
                 (fun fmt pc -> Format.fprintf fmt "%d" pc))
             l;
-        let never, code = compile_branch st loc [] cont scope_stack ~fall_through in
+        let never, code = compile_branch st loc_after [] cont scope_stack ~fall_through in
         if debug () then Format.eprintf "}@]@;";
         never, code
     | DTree.If (cond, cont1, cont2) ->
-        let never1, iftrue = loop cx scope_stack cont1 in
-        let never2, iffalse = loop cx scope_stack cont2 in
+        let never1, iftrue = loop loc_after cx scope_stack cont1 in
+        let never2, iffalse = loop loc_after cx scope_stack cont2 in
         let e' =
           match cond with
           | IsTrue -> cx
@@ -1740,13 +1785,13 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
         in
         let last =
           let case = a.(last_index) in
-          let never, code = loop cx scope_stack (Branch case) in
+          let never, code = loop loc_after cx scope_stack (Branch case) in
           if not never then all_never := false;
           code
         in
         let rec loop_cases pos acc =
           let ((ints, _cont) as case) = a.(pos) in
-          let never, code = loop cx scope_stack (Branch case) in
+          let never, code = loop loc_after cx scope_stack (Branch case) in
           if not never then all_never := false;
           let _, acc =
             List.fold_right ints ~init:(true, acc) ~f:(fun i (first, acc) ->
@@ -1771,14 +1816,14 @@ and compile_decision_tree kind st scope_stack loc cx dtree ~fall_through =
         in
         (not !exit_branch_used) && !all_never, code
   in
-  let cx, binds =
+  let cx, binds, loc =
     match cx with
-    | (J.EVar _ | _) when DTree.nbcomp dtree <= 1 -> cx, []
+    | (J.EVar _ | _) when DTree.nbcomp dtree <= 1 -> cx, [], loc_before
     | _ ->
         let v = J.V (Code.Var.fresh ()) in
-        J.EVar v, [ J.variable_declaration [ v, (cx, J.N) ], J.N ]
+        J.EVar v, [ J.variable_declaration [ v, (cx, loc_before) ], J.N ], loc_after
   in
-  let never, code = loop cx scope_stack dtree in
+  let never, code = loop loc cx scope_stack dtree in
   never, binds @ code
 
 and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
@@ -1812,21 +1857,23 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
                 | loc -> loc)
             | _ -> loc
           in
+          let* loc = statement_loc loc in
           return [ J.Return_statement (return_expr, loc'), loc ]
         in
-        true, flush_all queue instrs
+        true, flush_all queue loc instrs
     | Raise (x, k) ->
         let open Expr_builder in
         let instrs =
           let* cx = access x in
+          let* loc = statement_loc loc in
           return (throw_statement st.ctx cx k loc)
         in
-        true, flush_all queue instrs
+        true, flush_all queue loc instrs
     | Stop ->
         let e_opt =
           if st.ctx.Ctx.should_export then Some (s_var Global_constant.exports) else None
         in
-        true, flush_all queue [ J.Return_statement (e_opt, loc), loc ]
+        true, flush_all queue loc [ J.Return_statement (e_opt, loc), loc ]
     | Branch cont -> compile_branch st loc queue cont scope_stack ~fall_through
     | Pushtrap (c1, x, e1) ->
         let never_body, body = compile_branch st J.N [] c1 scope_stack ~fall_through in
@@ -1854,38 +1901,45 @@ and compile_conditional st queue ~fall_through loc last scope_stack : _ * _ =
         ( never_body && never_handler
         , flush_all
             queue
+            loc
             [ ( J.Try_statement (body, Some (Some (J.param' (J.V exn_var)), handler), None)
               , loc )
             ] )
     | Poptrap cont ->
         let never, code = compile_branch st J.N [] cont scope_stack ~fall_through in
-        never, flush_all queue code
+        never, flush_all queue loc code
     | Cond (x, c1, c2) ->
-        let cx, queue = Expr_builder.get queue (Expr_builder.access x) in
+        let cx, loc_before, queue = Expr_builder.get queue loc (Expr_builder.access x) in
+        (* We keep track of the location [loc_before] before the
+           expression is evaluated and of the location after [loc]. *)
         let never, b =
           compile_decision_tree
             "Bool"
             st
             scope_stack
             ~fall_through
-            loc
+            loc_before
             cx
+            loc
             (DTree.build_if c1 c2)
         in
-        never, flush_all queue b
+        never, flush_all queue loc_before b
     | Switch (x, a1) ->
-        let cx, queue = Expr_builder.get queue (Expr_builder.access x) in
+        let cx, loc_before, queue = Expr_builder.get queue loc (Expr_builder.access x) in
+        (* We keep track of the location [loc_before] before the
+           expression is evaluated and of the location after [loc]. *)
         let never, code =
           compile_decision_tree
             "Int"
             st
             scope_stack
             ~fall_through
-            loc
+            loc_before
             cx
+            loc
             (DTree.build_switch a1)
         in
-        never, flush_all queue code
+        never, flush_all queue loc_before code
   in
   (if debug ()
    then
@@ -1914,7 +1968,7 @@ and compile_branch st loc queue ((pc, _) as cont) scope_stack ~fall_through : bo
       if match fall_through with
          | Block pc' -> pc' = pc
          | Return -> false
-      then false, flush_all queue []
+      then false, flush_all queue loc []
       else
         match scope with
         | Some (l, used, Loop) ->
@@ -1939,7 +1993,7 @@ and compile_branch st loc queue ((pc, _) as cont) scope_stack ~fall_through : bo
               if Option.is_none label
               then Format.eprintf "continue;@,"
               else Format.eprintf "continue (%d);@," pc;
-            true, flush_all queue [ J.Continue_statement label, J.N ]
+            true, flush_all queue loc [ J.Continue_statement label, J.N ]
         | Some (l, used, (Exit_loop branch_used | Exit_switch branch_used)) ->
             (* Break out of a loop or switch (using Break)
                We can skip the label if we're not inside a nested loop or switch.
@@ -1964,12 +2018,12 @@ and compile_branch st loc queue ((pc, _) as cont) scope_stack ~fall_through : bo
               if Option.is_none label
               then Format.eprintf "break;@,"
               else Format.eprintf "break (%d);@," pc;
-            true, flush_all queue [ J.Break_statement label, J.N ]
+            true, flush_all queue loc [ J.Break_statement label, J.N ]
         | Some (l, used, Forward) ->
             (* break outside a labelled statement. The label is mandatory in this case. *)
             if debug () then Format.eprintf "(br %d)@;" pc;
             used := true;
-            true, flush_all queue [ J.Break_statement (Some l), J.N ]
+            true, flush_all queue loc [ J.Break_statement (Some l), J.N ]
         | None -> compile_block st loc queue pc scope_stack ~fall_through)
 
 and compile_closure ctx (pc, args) =
diff --git a/compiler/tests-compiler/gh747.ml b/compiler/tests-compiler/gh747.ml
index 7722afc64a..ea4050604a 100644
--- a/compiler/tests-compiler/gh747.ml
+++ b/compiler/tests-compiler/gh747.ml
@@ -84,7 +84,7 @@ print_endline(String.make 1 "Ɋ".[0] ^ String.make 1 "Ɋ".[1]);;
      29:    var
      30:     _a_ =  /*<<test.ml:7:47>>*/ caml_call1(Stdlib_Random[5], 30),
      31:     unicodeLength =
-     32:        /*<<test.ml:7:67>>*/ runtime.caml_ml_string_length
+     32:        /*<<test.ml:7:34>>*/  /*<<test.ml:7:67>>*/ runtime.caml_ml_string_length
      33:        ( /*<<test.ml:7:34>>*/ caml_call2(Stdlib_String[1], _a_, 105)),
      34:     _b_ =  /*<<test.ml:8:56>>*/ caml_call1(Stdlib[33], unicodeLength),
      35:     _c_ =
@@ -249,151 +249,147 @@ end
      29:     Stdlib_Printf = global_data.Stdlib__Printf,
      30:     executable_name =
      31:        /*<<test.ml:14:22>>*/ runtime.caml_sys_executable_name(0),
-     32:     os_type =
-     33:        /*<<test.ml:15:34>>*/  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config
-     34:         (0)
-     35:        [1],
-     36:     backend_type =
-     37:        /*<<test.ml:15:34>>*/ [0, caml_string_of_jsbytes("js_of_ocaml")],
-     38:     unix = runtime.caml_sys_const_ostype_unix(0),
-     39:     win32 = runtime.caml_sys_const_ostype_win32(0),
-     40:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
-     41:     max_array_length = runtime.caml_sys_const_max_wosize(0),
-     42:     max_floatarray_length = max_array_length / 2 | 0,
-     43:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
-     44:     Unhandled =
-     45:       [248,
-     46:        caml_string_of_jsbytes("Test.Unhandled"),
-     47:        runtime.caml_fresh_oo_id(0)],
-     48:     cst_Raised_at =  /*<<?>>*/ caml_string_of_jsbytes("Raised at"),
-     49:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
-     50:     cst_Raised_by_primitive_operat =
-     51:       caml_string_of_jsbytes("Raised by primitive operation at"),
-     52:     cst_Called_from = caml_string_of_jsbytes("Called from"),
-     53:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
-     54:     _a_ =
-     55:       [0,
-     56:        [2,
-     57:         0,
-     58:         [12,
-     59:          32,
-     60:          [2,
-     61:           0,
-     62:           [11,
-     63:            caml_string_of_jsbytes(' in file "'),
-     64:            [2,
-     65:             0,
-     66:             [12,
-     67:              34,
-     68:              [2,
-     69:               0,
-     70:               [11,
-     71:                caml_string_of_jsbytes(", line "),
-     72:                [4,
-     73:                 0,
-     74:                 0,
-     75:                 0,
-     76:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
-     77:        caml_string_of_jsbytes
-     78:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
-     79:     _b_ =
-     80:       [0,
-     81:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
-     82:        caml_string_of_jsbytes("%s unknown location")],
-     83:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
-     84:     _d_ =
-     85:       [0,
-     86:        [11,
-     87:         caml_string_of_jsbytes
-     88:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
-     89:         0],
-     90:        caml_string_of_jsbytes
-     91:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
-     92:    function format_backtrace_slot(pos, slot){
-     93:     function info(is_raise){
-     94:       /*<<test.ml:46:4>>*/ return is_raise
-     95:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
-     96:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
-     97:     }
-     98:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
-     99:      var
-    100:       _h_ =  /*<<test.ml:58:6>>*/ slot[5],
-    101:       _i_ = slot[4],
-    102:       _j_ = slot[3],
-    103:       _k_ = slot[6] ? cst_inlined : cst,
-    104:       _l_ = slot[2],
-    105:       _m_ = slot[7],
-    106:       _n_ =  /*<<test.ml:59:14>>*/ info(slot[1]);
-    107:       /*<<test.ml:61:52>>*/ return [0,
-    108:               /*<<test.ml:58:11>>*/ caml_call8
-    109:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)] /*<<test.ml:61:52>>*/ ;
-    110:     }
-    111:      /*<<test.ml:53:6>>*/ if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
-    112:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
-    113:      /*<<test.ml:56:64>>*/ return [0,
-    114:              /*<<test.ml:56:13>>*/ caml_call2(Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:64>>*/ ;
-    115:     /*<<test.ml:61:52>>*/ }
-    116:    function print_exception_backtrace(outchan, backtrace){
-    117:      /*<<test.ml:64:2>>*/ if(! backtrace)
-    118:       /*<<test.ml:66:6>>*/ return caml_call2(Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
-    119:     var
-    120:      a =  /*<<test.ml:64:2>>*/ backtrace[1],
-    121:      _f_ =  /*<<test.ml:69:6>>*/ a.length - 2 | 0,
-    122:      _e_ =  /*<<test.ml:64:2>>*/ 0;
-    123:      /*<<test.ml:69:6>>*/ if(_f_ >= 0){
-    124:      var i = _e_;
-    125:      for(;;){
-    126:       var
-    127:        match =
-    128:           /*<<test.ml:70:14>>*/ format_backtrace_slot
-    129:           (i,  /*<<test.ml:70:38>>*/ runtime.caml_check_bound(a, i)[1 + i]);
-    130:        /*<<test.ml:70:43>>*/ if(match){
-    131:        var str = match[1];
-    132:         /*<<test.ml:72:24>>*/ caml_call3(Stdlib_Printf[1], outchan, _c_, str);
-    133:       }
-    134:       var _g_ =  /*<<test.ml:70:43>>*/ i + 1 | 0;
-    135:       if(_f_ === i) break;
-    136:       i = _g_;
-    137:      }
-    138:     }
-    139:      /*<<test.ml:69:6>>*/ return 0;
-    140:     /*<<test.ml:73:10>>*/ }
-    141:    function compare(left, right, e1, e2){
-    142:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
-    143:      var v1 = e1[1];
-    144:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
-    145:      var v2 =  /*<<test.ml:77:35>>*/ e2[1];
-    146:       /*<<test.ml:78:24>>*/ return caml_call2(left, v1, v2) /*<<test.ml:81:24>>*/ ;
-    147:     }
-    148:     var v1$0 =  /*<<test.ml:77:35>>*/ e1[1];
-    149:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
-    150:     var v2$0 =  /*<<test.ml:77:35>>*/ e2[1];
-    151:      /*<<test.ml:79:26>>*/ return caml_call2(right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
-    152:    }
-    153:    var
-    154:     Either =  /*<<test.ml:15:34>>*/ [0, compare],
-    155:     Test =
-    156:       [0,
-    157:        executable_name,
-    158:        os_type,
-    159:        backend_type,
-    160:        0,
-    161:        32,
-    162:        32,
-    163:        unix,
-    164:        win32,
-    165:        cygwin,
-    166:        max_array_length,
-    167:        max_floatarray_length,
-    168:        max_string_length,
-    169:        Unhandled,
-    170:        format_backtrace_slot,
-    171:        print_exception_backtrace,
-    172:        Either];
-    173:    runtime.caml_register_global(12, Test, "Test");
-    174:    return;
-    175:    /*<<?>>*/ }
-    176:   (globalThis));
-    177:
-    178: //# sourceMappingURL=test.map
+     32:     os_type =  /*<<test.ml:15:22>>*/ runtime.caml_sys_get_config(0)[1],
+     33:     backend_type =
+     34:        /*<<test.ml:15:34>>*/ [0, caml_string_of_jsbytes("js_of_ocaml")],
+     35:     unix = runtime.caml_sys_const_ostype_unix(0),
+     36:     win32 = runtime.caml_sys_const_ostype_win32(0),
+     37:     cygwin = runtime.caml_sys_const_ostype_cygwin(0),
+     38:     max_array_length = runtime.caml_sys_const_max_wosize(0),
+     39:     max_floatarray_length = max_array_length / 2 | 0,
+     40:     max_string_length = (4 * max_array_length | 0) - 1 | 0,
+     41:     Unhandled =
+     42:       [248,
+     43:        caml_string_of_jsbytes("Test.Unhandled"),
+     44:        runtime.caml_fresh_oo_id(0)],
+     45:     cst_Raised_at = caml_string_of_jsbytes("Raised at"),
+     46:     cst_Re_raised_at = caml_string_of_jsbytes("Re-raised at"),
+     47:     cst_Raised_by_primitive_operat =
+     48:       caml_string_of_jsbytes("Raised by primitive operation at"),
+     49:     cst_Called_from = caml_string_of_jsbytes("Called from"),
+     50:     cst_inlined = caml_string_of_jsbytes(" (inlined)"),
+     51:     _a_ =
+     52:       [0,
+     53:        [2,
+     54:         0,
+     55:         [12,
+     56:          32,
+     57:          [2,
+     58:           0,
+     59:           [11,
+     60:            caml_string_of_jsbytes(' in file "'),
+     61:            [2,
+     62:             0,
+     63:             [12,
+     64:              34,
+     65:              [2,
+     66:               0,
+     67:               [11,
+     68:                caml_string_of_jsbytes(", line "),
+     69:                [4,
+     70:                 0,
+     71:                 0,
+     72:                 0,
+     73:                 [11, caml_string_of_jsbytes(", characters "), partial]]]]]]]]]],
+     74:        caml_string_of_jsbytes
+     75:         ('%s %s in file "%s"%s, line %d, characters %d-%d')],
+     76:     _b_ =
+     77:       [0,
+     78:        [2, 0, [11, caml_string_of_jsbytes(" unknown location"), 0]],
+     79:        caml_string_of_jsbytes("%s unknown location")],
+     80:     _c_ = [0, [2, 0, [12, 10, 0]], caml_string_of_jsbytes("%s\n")],
+     81:     _d_ =
+     82:       [0,
+     83:        [11,
+     84:         caml_string_of_jsbytes
+     85:          ("(Program not linked with -g, cannot print stack backtrace)\n"),
+     86:         0],
+     87:        caml_string_of_jsbytes
+     88:         ("(Program not linked with -g, cannot print stack backtrace)\n")];
+     89:    function format_backtrace_slot(pos, slot){
+     90:     function info(is_raise){
+     91:       /*<<test.ml:46:4>>*/ return is_raise
+     92:              ? 0 === pos ? cst_Raised_at : cst_Re_raised_at
+     93:              : 0 === pos ? cst_Raised_by_primitive_operat : cst_Called_from /*<<test.ml:49:75>>*/ ;
+     94:     }
+     95:      /*<<test.ml:51:2>>*/ if(0 === slot[0]){
+     96:      var
+     97:       _h_ =  /*<<test.ml:58:6>>*/ slot[5],
+     98:       _i_ = slot[4],
+     99:       _j_ = slot[3],
+    100:       _k_ = slot[6] ? cst_inlined : cst,
+    101:       _l_ =  /*<<test.ml:59:14>>*/ slot[2],
+    102:       _m_ = slot[7],
+    103:       _n_ = info(slot[1]);
+    104:       /*<<test.ml:58:11>>*/ return [0,
+    105:              caml_call8
+    106:               (Stdlib_Printf[4], _a_, _n_, _m_, _l_, _k_, _j_, _i_, _h_)] /*<<test.ml:61:52>>*/ ;
+    107:     }
+    108:      /*<<test.ml:53:6>>*/ if(slot[1])  /*<<test.ml:54:50>>*/ return 0;
+    109:     var _o_ =  /*<<test.ml:56:51>>*/ info(0);
+    110:      /*<<test.ml:56:13>>*/ return [0, caml_call2(Stdlib_Printf[4], _b_, _o_)] /*<<test.ml:56:64>>*/ ;
+    111:     /*<<test.ml:61:52>>*/ }
+    112:    function print_exception_backtrace(outchan, backtrace){
+    113:      /*<<test.ml:64:2>>*/ if(! backtrace)
+    114:       /*<<test.ml:66:6>>*/ return caml_call2(Stdlib_Printf[1], outchan, _d_) /*<<test.ml:73:10>>*/ ;
+    115:     var
+    116:      a =  /*<<test.ml:64:2>>*/ backtrace[1],
+    117:      _f_ =  /*<<test.ml:69:6>>*/ a.length - 2 | 0,
+    118:      _e_ = 0;
+    119:     if(_f_ >= 0){
+    120:      var i = _e_;
+    121:      for(;;){
+    122:       var
+    123:        match =
+    124:           /*<<test.ml:70:38>>*/  /*<<test.ml:70:14>>*/ format_backtrace_slot
+    125:           (i,  /*<<test.ml:70:38>>*/ runtime.caml_check_bound(a, i)[1 + i]);
+    126:        /*<<test.ml:70:43>>*/ if(match){
+    127:        var str = match[1];
+    128:         /*<<test.ml:72:24>>*/ caml_call3(Stdlib_Printf[1], outchan, _c_, str);
+    129:       }
+    130:       var _g_ =  /*<<test.ml:70:43>>*/ i + 1 | 0;
+    131:       if(_f_ === i) break;
+    132:       i = _g_;
+    133:      }
+    134:     }
+    135:      /*<<test.ml:69:6>>*/ return 0;
+    136:     /*<<test.ml:73:10>>*/ }
+    137:    function compare(left, right, e1, e2){
+    138:      /*<<test.ml:77:35>>*/ if(0 === e1[0]){
+    139:      var v1 = e1[1];
+    140:      if(0 !== e2[0])  /*<<test.ml:80:23>>*/ return -1;
+    141:      var v2 =  /*<<test.ml:77:35>>*/ e2[1];
+    142:       /*<<test.ml:78:24>>*/ return caml_call2(left, v1, v2) /*<<test.ml:81:24>>*/ ;
+    143:     }
+    144:     var v1$0 =  /*<<test.ml:77:35>>*/ e1[1];
+    145:     if(0 === e2[0])  /*<<test.ml:81:23>>*/ return 1;
+    146:     var v2$0 =  /*<<test.ml:77:35>>*/ e2[1];
+    147:      /*<<test.ml:79:26>>*/ return caml_call2(right, v1$0, v2$0) /*<<test.ml:81:24>>*/ ;
+    148:    }
+    149:    var
+    150:     Either =  /*<<test.ml:15:34>>*/ [0, compare],
+    151:     Test =
+    152:       [0,
+    153:        executable_name,
+    154:        os_type,
+    155:        backend_type,
+    156:        0,
+    157:        32,
+    158:        32,
+    159:        unix,
+    160:        win32,
+    161:        cygwin,
+    162:        max_array_length,
+    163:        max_floatarray_length,
+    164:        max_string_length,
+    165:        Unhandled,
+    166:        format_backtrace_slot,
+    167:        print_exception_backtrace,
+    168:        Either];
+    169:    runtime.caml_register_global(12, Test, "Test");
+    170:    return;
+    171:    /*<<?>>*/ }
+    172:   (globalThis));
+    173:
+    174: //# sourceMappingURL=test.map
     |}]
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 4f93f963fe..97efeff201 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -10,71 +10,70 @@
      /*<<camlinternalFormatBasics.ml:528:8>>*/ switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormatBasics.ml:533:28>>*/ return [0,
-                /*<<camlinternalFormatBasics.ml:533:12>>*/ erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:28>>*/ ;
+        /*<<camlinternalFormatBasics.ml:533:12>>*/ return [0, erase_rel(rest)] /*<<camlinternalFormatBasics.ml:533:28>>*/ ;
       case 1:
        var rest$0 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:535:30>>*/ return [1,
-                /*<<camlinternalFormatBasics.ml:535:14>>*/ erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:30>>*/ ;
+        /*<<camlinternalFormatBasics.ml:535:14>>*/ return [1,
+               erase_rel(rest$0)] /*<<camlinternalFormatBasics.ml:535:30>>*/ ;
       case 2:
        var rest$1 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:537:27>>*/ return [2,
-                /*<<camlinternalFormatBasics.ml:537:11>>*/ erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:27>>*/ ;
+        /*<<camlinternalFormatBasics.ml:537:11>>*/ return [2,
+               erase_rel(rest$1)] /*<<camlinternalFormatBasics.ml:537:27>>*/ ;
       case 3:
        var rest$2 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:539:29>>*/ return [3,
-                /*<<camlinternalFormatBasics.ml:539:13>>*/ erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:29>>*/ ;
+        /*<<camlinternalFormatBasics.ml:539:13>>*/ return [3,
+               erase_rel(rest$2)] /*<<camlinternalFormatBasics.ml:539:29>>*/ ;
       case 4:
        var rest$3 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:543:33>>*/ return [4,
-                /*<<camlinternalFormatBasics.ml:543:17>>*/ erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:33>>*/ ;
+        /*<<camlinternalFormatBasics.ml:543:17>>*/ return [4,
+               erase_rel(rest$3)] /*<<camlinternalFormatBasics.ml:543:33>>*/ ;
       case 5:
        var rest$4 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:541:29>>*/ return [5,
-                /*<<camlinternalFormatBasics.ml:541:13>>*/ erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:29>>*/ ;
+        /*<<camlinternalFormatBasics.ml:541:13>>*/ return [5,
+               erase_rel(rest$4)] /*<<camlinternalFormatBasics.ml:541:29>>*/ ;
       case 6:
        var rest$5 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:545:29>>*/ return [6,
-                /*<<camlinternalFormatBasics.ml:545:13>>*/ erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:29>>*/ ;
+        /*<<camlinternalFormatBasics.ml:545:13>>*/ return [6,
+               erase_rel(rest$5)] /*<<camlinternalFormatBasics.ml:545:29>>*/ ;
       case 7:
        var rest$6 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:547:28>>*/ return [7,
-                /*<<camlinternalFormatBasics.ml:547:12>>*/ erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:28>>*/ ;
+        /*<<camlinternalFormatBasics.ml:547:12>>*/ return [7,
+               erase_rel(rest$6)] /*<<camlinternalFormatBasics.ml:547:28>>*/ ;
       case 8:
        var
         rest$7 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[2],
         ty = param[1];
-        /*<<camlinternalFormatBasics.ml:549:37>>*/ return [8,
+        /*<<camlinternalFormatBasics.ml:549:23>>*/ return [8,
                ty,
-                /*<<camlinternalFormatBasics.ml:549:23>>*/ erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:37>>*/ ;
+               erase_rel(rest$7)] /*<<camlinternalFormatBasics.ml:549:37>>*/ ;
       case 9:
        var
         rest$8 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[3],
         ty1 = param[1];
-        /*<<camlinternalFormatBasics.ml:551:45>>*/ return [9,
+        /*<<camlinternalFormatBasics.ml:551:31>>*/ return [9,
                ty1,
                ty1,
-                /*<<camlinternalFormatBasics.ml:551:31>>*/ erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:45>>*/ ;
+               erase_rel(rest$8)] /*<<camlinternalFormatBasics.ml:551:45>>*/ ;
       case 10:
        var rest$9 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:553:29>>*/ return [10,
-                /*<<camlinternalFormatBasics.ml:553:13>>*/ erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:29>>*/ ;
+        /*<<camlinternalFormatBasics.ml:553:13>>*/ return [10,
+               erase_rel(rest$9)] /*<<camlinternalFormatBasics.ml:553:29>>*/ ;
       case 11:
        var rest$10 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:555:29>>*/ return [11,
-                /*<<camlinternalFormatBasics.ml:555:13>>*/ erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:29>>*/ ;
+        /*<<camlinternalFormatBasics.ml:555:13>>*/ return [11,
+               erase_rel(rest$10)] /*<<camlinternalFormatBasics.ml:555:29>>*/ ;
       case 12:
        var rest$11 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:557:27>>*/ return [12,
-                /*<<camlinternalFormatBasics.ml:557:11>>*/ erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:27>>*/ ;
+        /*<<camlinternalFormatBasics.ml:557:11>>*/ return [12,
+               erase_rel(rest$11)] /*<<camlinternalFormatBasics.ml:557:27>>*/ ;
       case 13:
        var rest$12 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:559:30>>*/ return [13,
-                /*<<camlinternalFormatBasics.ml:559:14>>*/ erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:30>>*/ ;
+        /*<<camlinternalFormatBasics.ml:559:14>>*/ return [13,
+               erase_rel(rest$12)] /*<<camlinternalFormatBasics.ml:559:30>>*/ ;
       default:
        var rest$13 =  /*<<camlinternalFormatBasics.ml:528:8>>*/ param[1];
-        /*<<camlinternalFormatBasics.ml:561:38>>*/ return [14,
-                /*<<camlinternalFormatBasics.ml:561:22>>*/ erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:38>>*/ ;
+        /*<<camlinternalFormatBasics.ml:561:22>>*/ return [14,
+               erase_rel(rest$13)] /*<<camlinternalFormatBasics.ml:561:38>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:562:32>>*/ }
    function concat_fmtty(fmtty1, fmtty2){
@@ -83,87 +82,72 @@
      /*<<camlinternalFormatBasics.ml:590:21>>*/ switch(fmtty1[0]){
       case 0:
        var rest = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:592:38>>*/ return [0,
-                /*<<camlinternalFormatBasics.ml:592:12>>*/ concat_fmtty
-                (rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:38>>*/ ;
+        /*<<camlinternalFormatBasics.ml:592:12>>*/ return [0,
+               concat_fmtty(rest, fmtty2)] /*<<camlinternalFormatBasics.ml:592:38>>*/ ;
       case 1:
        var rest$0 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:594:40>>*/ return [1,
-                /*<<camlinternalFormatBasics.ml:594:14>>*/ concat_fmtty
-                (rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:40>>*/ ;
+        /*<<camlinternalFormatBasics.ml:594:14>>*/ return [1,
+               concat_fmtty(rest$0, fmtty2)] /*<<camlinternalFormatBasics.ml:594:40>>*/ ;
       case 2:
        var rest$1 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:596:37>>*/ return [2,
-                /*<<camlinternalFormatBasics.ml:596:11>>*/ concat_fmtty
-                (rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:37>>*/ ;
+        /*<<camlinternalFormatBasics.ml:596:11>>*/ return [2,
+               concat_fmtty(rest$1, fmtty2)] /*<<camlinternalFormatBasics.ml:596:37>>*/ ;
       case 3:
        var rest$2 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:598:39>>*/ return [3,
-                /*<<camlinternalFormatBasics.ml:598:13>>*/ concat_fmtty
-                (rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:39>>*/ ;
+        /*<<camlinternalFormatBasics.ml:598:13>>*/ return [3,
+               concat_fmtty(rest$2, fmtty2)] /*<<camlinternalFormatBasics.ml:598:39>>*/ ;
       case 4:
        var rest$3 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:600:43>>*/ return [4,
-                /*<<camlinternalFormatBasics.ml:600:17>>*/ concat_fmtty
-                (rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:43>>*/ ;
+        /*<<camlinternalFormatBasics.ml:600:17>>*/ return [4,
+               concat_fmtty(rest$3, fmtty2)] /*<<camlinternalFormatBasics.ml:600:43>>*/ ;
       case 5:
        var rest$4 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:602:39>>*/ return [5,
-                /*<<camlinternalFormatBasics.ml:602:13>>*/ concat_fmtty
-                (rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:39>>*/ ;
+        /*<<camlinternalFormatBasics.ml:602:13>>*/ return [5,
+               concat_fmtty(rest$4, fmtty2)] /*<<camlinternalFormatBasics.ml:602:39>>*/ ;
       case 6:
        var rest$5 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:604:39>>*/ return [6,
-                /*<<camlinternalFormatBasics.ml:604:13>>*/ concat_fmtty
-                (rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:39>>*/ ;
+        /*<<camlinternalFormatBasics.ml:604:13>>*/ return [6,
+               concat_fmtty(rest$5, fmtty2)] /*<<camlinternalFormatBasics.ml:604:39>>*/ ;
       case 7:
        var rest$6 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:606:38>>*/ return [7,
-                /*<<camlinternalFormatBasics.ml:606:12>>*/ concat_fmtty
-                (rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:38>>*/ ;
+        /*<<camlinternalFormatBasics.ml:606:12>>*/ return [7,
+               concat_fmtty(rest$6, fmtty2)] /*<<camlinternalFormatBasics.ml:606:38>>*/ ;
       case 8:
        var
         rest$7 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[2],
         ty = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:618:47>>*/ return [8,
+        /*<<camlinternalFormatBasics.ml:618:23>>*/ return [8,
                ty,
-                /*<<camlinternalFormatBasics.ml:618:23>>*/ concat_fmtty
-                (rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:47>>*/ ;
+               concat_fmtty(rest$7, fmtty2)] /*<<camlinternalFormatBasics.ml:618:47>>*/ ;
       case 9:
        var
         rest$8 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[3],
         ty2 = fmtty1[2],
         ty1 = fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:620:55>>*/ return [9,
+        /*<<camlinternalFormatBasics.ml:620:31>>*/ return [9,
                ty1,
                ty2,
-                /*<<camlinternalFormatBasics.ml:620:31>>*/ concat_fmtty
-                (rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:55>>*/ ;
+               concat_fmtty(rest$8, fmtty2)] /*<<camlinternalFormatBasics.ml:620:55>>*/ ;
       case 10:
        var rest$9 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:608:39>>*/ return [10,
-                /*<<camlinternalFormatBasics.ml:608:13>>*/ concat_fmtty
-                (rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:39>>*/ ;
+        /*<<camlinternalFormatBasics.ml:608:13>>*/ return [10,
+               concat_fmtty(rest$9, fmtty2)] /*<<camlinternalFormatBasics.ml:608:39>>*/ ;
       case 11:
        var rest$10 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:610:39>>*/ return [11,
-                /*<<camlinternalFormatBasics.ml:610:13>>*/ concat_fmtty
-                (rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:39>>*/ ;
+        /*<<camlinternalFormatBasics.ml:610:13>>*/ return [11,
+               concat_fmtty(rest$10, fmtty2)] /*<<camlinternalFormatBasics.ml:610:39>>*/ ;
       case 12:
        var rest$11 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:612:37>>*/ return [12,
-                /*<<camlinternalFormatBasics.ml:612:11>>*/ concat_fmtty
-                (rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:37>>*/ ;
+        /*<<camlinternalFormatBasics.ml:612:11>>*/ return [12,
+               concat_fmtty(rest$11, fmtty2)] /*<<camlinternalFormatBasics.ml:612:37>>*/ ;
       case 13:
        var rest$12 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:614:40>>*/ return [13,
-                /*<<camlinternalFormatBasics.ml:614:14>>*/ concat_fmtty
-                (rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:40>>*/ ;
+        /*<<camlinternalFormatBasics.ml:614:14>>*/ return [13,
+               concat_fmtty(rest$12, fmtty2)] /*<<camlinternalFormatBasics.ml:614:40>>*/ ;
       default:
        var rest$13 =  /*<<camlinternalFormatBasics.ml:590:21>>*/ fmtty1[1];
-        /*<<camlinternalFormatBasics.ml:616:48>>*/ return [14,
-                /*<<camlinternalFormatBasics.ml:616:22>>*/ concat_fmtty
-                (rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:48>>*/ ;
+        /*<<camlinternalFormatBasics.ml:616:22>>*/ return [14,
+               concat_fmtty(rest$13, fmtty2)] /*<<camlinternalFormatBasics.ml:616:48>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:621:26>>*/ }
    function concat_fmt(fmt1, fmt2){
@@ -172,211 +156,186 @@
      /*<<camlinternalFormatBasics.ml:631:17>>*/ switch(fmt1[0]){
       case 0:
        var rest = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:649:31>>*/ return [0,
-                /*<<camlinternalFormatBasics.ml:649:9>>*/ concat_fmt
-                (rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:31>>*/ ;
+        /*<<camlinternalFormatBasics.ml:649:9>>*/ return [0,
+               concat_fmt(rest, fmt2)] /*<<camlinternalFormatBasics.ml:649:31>>*/ ;
       case 1:
        var rest$0 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
-        /*<<camlinternalFormatBasics.ml:651:36>>*/ return [1,
-                /*<<camlinternalFormatBasics.ml:651:14>>*/ concat_fmt
-                (rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:36>>*/ ;
+        /*<<camlinternalFormatBasics.ml:651:14>>*/ return [1,
+               concat_fmt(rest$0, fmt2)] /*<<camlinternalFormatBasics.ml:651:36>>*/ ;
       case 2:
        var
         rest$1 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         pad = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:633:37>>*/ return [2,
+        /*<<camlinternalFormatBasics.ml:633:17>>*/ return [2,
                pad,
-                /*<<camlinternalFormatBasics.ml:633:17>>*/ concat_fmt
-                (rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:37>>*/ ;
+               concat_fmt(rest$1, fmt2)] /*<<camlinternalFormatBasics.ml:633:37>>*/ ;
       case 3:
        var
         rest$2 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         pad$0 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:635:42>>*/ return [3,
+        /*<<camlinternalFormatBasics.ml:635:22>>*/ return [3,
                pad$0,
-                /*<<camlinternalFormatBasics.ml:635:22>>*/ concat_fmt
-                (rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:42>>*/ ;
+               concat_fmt(rest$2, fmt2)] /*<<camlinternalFormatBasics.ml:635:42>>*/ ;
       case 4:
        var
         rest$3 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec = fmt1[3],
         pad$1 = fmt1[2],
         iconv = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:638:47>>*/ return [4,
+        /*<<camlinternalFormatBasics.ml:638:27>>*/ return [4,
                iconv,
                pad$1,
                prec,
-                /*<<camlinternalFormatBasics.ml:638:27>>*/ concat_fmt
-                (rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:47>>*/ ;
+               concat_fmt(rest$3, fmt2)] /*<<camlinternalFormatBasics.ml:638:47>>*/ ;
       case 5:
        var
         rest$4 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$0 = fmt1[3],
         pad$2 = fmt1[2],
         iconv$0 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:640:49>>*/ return [5,
+        /*<<camlinternalFormatBasics.ml:640:29>>*/ return [5,
                iconv$0,
                pad$2,
                prec$0,
-                /*<<camlinternalFormatBasics.ml:640:29>>*/ concat_fmt
-                (rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:49>>*/ ;
+               concat_fmt(rest$4, fmt2)] /*<<camlinternalFormatBasics.ml:640:49>>*/ ;
       case 6:
        var
         rest$5 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$1 = fmt1[3],
         pad$3 = fmt1[2],
         iconv$1 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:642:53>>*/ return [6,
+        /*<<camlinternalFormatBasics.ml:642:33>>*/ return [6,
                iconv$1,
                pad$3,
                prec$1,
-                /*<<camlinternalFormatBasics.ml:642:33>>*/ concat_fmt
-                (rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:53>>*/ ;
+               concat_fmt(rest$5, fmt2)] /*<<camlinternalFormatBasics.ml:642:53>>*/ ;
       case 7:
        var
         rest$6 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$2 = fmt1[3],
         pad$4 = fmt1[2],
         iconv$2 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:644:49>>*/ return [7,
+        /*<<camlinternalFormatBasics.ml:644:29>>*/ return [7,
                iconv$2,
                pad$4,
                prec$2,
-                /*<<camlinternalFormatBasics.ml:644:29>>*/ concat_fmt
-                (rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:49>>*/ ;
+               concat_fmt(rest$6, fmt2)] /*<<camlinternalFormatBasics.ml:644:49>>*/ ;
       case 8:
        var
         rest$7 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[4],
         prec$3 = fmt1[3],
         pad$5 = fmt1[2],
         fconv = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:646:49>>*/ return [8,
+        /*<<camlinternalFormatBasics.ml:646:29>>*/ return [8,
                fconv,
                pad$5,
                prec$3,
-                /*<<camlinternalFormatBasics.ml:646:29>>*/ concat_fmt
-                (rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:49>>*/ ;
+               concat_fmt(rest$7, fmt2)] /*<<camlinternalFormatBasics.ml:646:49>>*/ ;
       case 9:
        var
         rest$8 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         pad$6 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:653:35>>*/ return [9,
+        /*<<camlinternalFormatBasics.ml:653:15>>*/ return [9,
                pad$6,
-                /*<<camlinternalFormatBasics.ml:653:15>>*/ concat_fmt
-                (rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:35>>*/ ;
+               concat_fmt(rest$8, fmt2)] /*<<camlinternalFormatBasics.ml:653:35>>*/ ;
       case 10:
        var rest$9 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
-        /*<<camlinternalFormatBasics.ml:663:32>>*/ return [10,
-                /*<<camlinternalFormatBasics.ml:663:10>>*/ concat_fmt
-                (rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:32>>*/ ;
+        /*<<camlinternalFormatBasics.ml:663:10>>*/ return [10,
+               concat_fmt(rest$9, fmt2)] /*<<camlinternalFormatBasics.ml:663:32>>*/ ;
       case 11:
        var
         rest$10 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         str = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:666:45>>*/ return [11,
+        /*<<camlinternalFormatBasics.ml:666:25>>*/ return [11,
                str,
-                /*<<camlinternalFormatBasics.ml:666:25>>*/ concat_fmt
-                (rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:45>>*/ ;
+               concat_fmt(rest$10, fmt2)] /*<<camlinternalFormatBasics.ml:666:45>>*/ ;
       case 12:
        var
         rest$11 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         chr = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:668:45>>*/ return [12,
+        /*<<camlinternalFormatBasics.ml:668:25>>*/ return [12,
                chr,
-                /*<<camlinternalFormatBasics.ml:668:25>>*/ concat_fmt
-                (rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:45>>*/ ;
+               concat_fmt(rest$11, fmt2)] /*<<camlinternalFormatBasics.ml:668:45>>*/ ;
       case 13:
        var
         rest$12 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
         fmtty = fmt1[2],
         pad$7 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:671:50>>*/ return [13,
+        /*<<camlinternalFormatBasics.ml:671:30>>*/ return [13,
                pad$7,
                fmtty,
-                /*<<camlinternalFormatBasics.ml:671:30>>*/ concat_fmt
-                (rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:50>>*/ ;
+               concat_fmt(rest$12, fmt2)] /*<<camlinternalFormatBasics.ml:671:50>>*/ ;
       case 14:
        var
         rest$13 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
         fmtty$0 = fmt1[2],
         pad$8 = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:673:50>>*/ return [14,
+        /*<<camlinternalFormatBasics.ml:673:30>>*/ return [14,
                pad$8,
                fmtty$0,
-                /*<<camlinternalFormatBasics.ml:673:30>>*/ concat_fmt
-                (rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:50>>*/ ;
+               concat_fmt(rest$13, fmt2)] /*<<camlinternalFormatBasics.ml:673:50>>*/ ;
       case 15:
        var rest$14 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
-        /*<<camlinternalFormatBasics.ml:655:32>>*/ return [15,
-                /*<<camlinternalFormatBasics.ml:655:10>>*/ concat_fmt
-                (rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:32>>*/ ;
+        /*<<camlinternalFormatBasics.ml:655:10>>*/ return [15,
+               concat_fmt(rest$14, fmt2)] /*<<camlinternalFormatBasics.ml:655:32>>*/ ;
       case 16:
        var rest$15 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
-        /*<<camlinternalFormatBasics.ml:657:32>>*/ return [16,
-                /*<<camlinternalFormatBasics.ml:657:10>>*/ concat_fmt
-                (rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:32>>*/ ;
+        /*<<camlinternalFormatBasics.ml:657:10>>*/ return [16,
+               concat_fmt(rest$15, fmt2)] /*<<camlinternalFormatBasics.ml:657:32>>*/ ;
       case 17:
        var
         rest$16 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         fmting_lit = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:685:52>>*/ return [17,
+        /*<<camlinternalFormatBasics.ml:685:32>>*/ return [17,
                fmting_lit,
-                /*<<camlinternalFormatBasics.ml:685:32>>*/ concat_fmt
-                (rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:52>>*/ ;
+               concat_fmt(rest$16, fmt2)] /*<<camlinternalFormatBasics.ml:685:52>>*/ ;
       case 18:
        var
         rest$17 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         fmting_gen = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:687:52>>*/ return [18,
+        /*<<camlinternalFormatBasics.ml:687:32>>*/ return [18,
                fmting_gen,
-                /*<<camlinternalFormatBasics.ml:687:32>>*/ concat_fmt
-                (rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:52>>*/ ;
+               concat_fmt(rest$17, fmt2)] /*<<camlinternalFormatBasics.ml:687:52>>*/ ;
       case 19:
        var rest$18 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
-        /*<<camlinternalFormatBasics.ml:661:33>>*/ return [19,
-                /*<<camlinternalFormatBasics.ml:661:11>>*/ concat_fmt
-                (rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:33>>*/ ;
+        /*<<camlinternalFormatBasics.ml:661:11>>*/ return [19,
+               concat_fmt(rest$18, fmt2)] /*<<camlinternalFormatBasics.ml:661:33>>*/ ;
       case 20:
        var
         rest$19 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
         char_set = fmt1[2],
         width_opt = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:676:60>>*/ return [20,
+        /*<<camlinternalFormatBasics.ml:676:40>>*/ return [20,
                width_opt,
                char_set,
-                /*<<camlinternalFormatBasics.ml:676:40>>*/ concat_fmt
-                (rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:60>>*/ ;
+               concat_fmt(rest$19, fmt2)] /*<<camlinternalFormatBasics.ml:676:60>>*/ ;
       case 21:
        var
         rest$20 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         counter = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:678:51>>*/ return [21,
+        /*<<camlinternalFormatBasics.ml:678:31>>*/ return [21,
                counter,
-                /*<<camlinternalFormatBasics.ml:678:31>>*/ concat_fmt
-                (rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:51>>*/ ;
+               concat_fmt(rest$20, fmt2)] /*<<camlinternalFormatBasics.ml:678:51>>*/ ;
       case 22:
        var rest$21 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[1];
-        /*<<camlinternalFormatBasics.ml:680:41>>*/ return [22,
-                /*<<camlinternalFormatBasics.ml:680:19>>*/ concat_fmt
-                (rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:41>>*/ ;
+        /*<<camlinternalFormatBasics.ml:680:19>>*/ return [22,
+               concat_fmt(rest$21, fmt2)] /*<<camlinternalFormatBasics.ml:680:41>>*/ ;
       case 23:
        var
         rest$22 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[2],
         ign = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:682:44>>*/ return [23,
+        /*<<camlinternalFormatBasics.ml:682:24>>*/ return [23,
                ign,
-                /*<<camlinternalFormatBasics.ml:682:24>>*/ concat_fmt
-                (rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:44>>*/ ;
+               concat_fmt(rest$22, fmt2)] /*<<camlinternalFormatBasics.ml:682:44>>*/ ;
       default:
        var
         rest$23 =  /*<<camlinternalFormatBasics.ml:631:17>>*/ fmt1[3],
         f = fmt1[2],
         arity = fmt1[1];
-        /*<<camlinternalFormatBasics.ml:659:42>>*/ return [24,
+        /*<<camlinternalFormatBasics.ml:659:22>>*/ return [24,
                arity,
                f,
-                /*<<camlinternalFormatBasics.ml:659:22>>*/ concat_fmt
-                (rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:42>>*/ ;
+               concat_fmt(rest$23, fmt2)] /*<<camlinternalFormatBasics.ml:659:42>>*/ ;
     }
     /*<<camlinternalFormatBasics.ml:690:8>>*/ }
    var
@@ -462,16 +421,10 @@
        "Stdlib.Exit",
        runtime.caml_fresh_oo_id(0)];
    function min(x, y){
-     /*<<stdlib.ml:74:23>>*/ return  /*<<stdlib.ml:74:17>>*/ runtime.caml_lessequal
-             (x, y)
-            ? x
-            : y /*<<stdlib.ml:74:37>>*/ ;
+     /*<<stdlib.ml:74:17>>*/ return runtime.caml_lessequal(x, y) ? x : y /*<<stdlib.ml:74:37>>*/ ;
    }
    function max(x, y){
-     /*<<stdlib.ml:75:23>>*/ return  /*<<stdlib.ml:75:17>>*/ runtime.caml_greaterequal
-             (x, y)
-            ? x
-            : y /*<<stdlib.ml:75:37>>*/ ;
+     /*<<stdlib.ml:75:17>>*/ return runtime.caml_greaterequal(x, y) ? x : y /*<<stdlib.ml:75:37>>*/ ;
    }
    function abs(x){
      /*<<stdlib.ml:98:12>>*/ return 0 <= x ? x : - x | 0 /*<<stdlib.ml:98:36>>*/ ;
@@ -499,7 +452,7 @@
        /*<<stdlib.ml:190:2>>*/ caml_int64_float_of_bits
        (runtime.caml_int64_create_lo_mi_hi(0, 0, 15536)),
     symbol_concat =  /*<<stdlib.ml:190:42>>*/ caml_string_concat,
-    cst_char_of_int =  /*<<?>>*/ "char_of_int",
+    cst_char_of_int = "char_of_int",
     cst_true = cst_true$0,
     cst_false = cst_false$0,
     cst_bool_of_string = "bool_of_string",
@@ -529,10 +482,7 @@
    function string_of_int(n){ /*<<stdlib.ml:266:19>>*/ return "" + n;}
    function int_of_string_opt(s){
      /*<<stdlib.ml:272:2>>*/ try{
-     var
-      _w_ =
-         /*<<stdlib.ml:272:28>>*/ [0,
-          /*<<stdlib.ml:272:11>>*/ caml_int_of_string(s)];
+     var _w_ =  /*<<stdlib.ml:272:11>>*/ [0, caml_int_of_string(s)];
      return _w_;
     }
     catch(_x_){
@@ -562,15 +512,12 @@
     }
     /*<<stdlib.ml:285:8>>*/ }
    function string_of_float(f){
-     /*<<stdlib.ml:287:66>>*/ return valid_float_lexem
+     /*<<stdlib.ml:287:42>>*/ return  /*<<stdlib.ml:287:66>>*/ valid_float_lexem
             ( /*<<stdlib.ml:287:42>>*/ runtime.caml_format_float("%.12g", f)) /*<<stdlib.ml:287:66>>*/ ;
    }
    function float_of_string_opt(s){
      /*<<stdlib.ml:293:2>>*/ try{
-     var
-      _t_ =
-         /*<<stdlib.ml:293:30>>*/ [0,
-          /*<<stdlib.ml:293:11>>*/ caml_float_of_string(s)];
+     var _t_ =  /*<<stdlib.ml:293:11>>*/ [0, caml_float_of_string(s)];
      return _t_;
     }
     catch(_u_){
@@ -622,7 +569,7 @@
     stdin =  /*<<stdlib.ml:314:12>>*/ caml_ml_open_descriptor_in(0),
     stdout =  /*<<stdlib.ml:315:13>>*/ caml_ml_open_descriptor_out(1),
     stderr =  /*<<stdlib.ml:316:13>>*/ caml_ml_open_descriptor_out(2),
-    _c_ =  /*<<?>>*/ [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
+    _c_ =  /*<<stdlib.ml:316:34>>*/ [0, 1, [0, 3, [0, 4, [0, 7, 0]]]],
     _d_ = [0, 1, [0, 3, [0, 4, [0, 6, 0]]]],
     cst_output = "output",
     cst_output_substring = "output_substring",
@@ -633,7 +580,7 @@
    function open_out_gen(mode, perm, name){
     var
      c =
-        /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
+        /*<<stdlib.ml:331:29>>*/  /*<<stdlib.ml:331:10>>*/ caml_ml_open_descriptor_out
         ( /*<<stdlib.ml:331:29>>*/ caml_sys_open(name, mode, perm));
      /*<<stdlib.ml:332:2>>*/ caml_ml_set_channel_name(c, name);
      /*<<stdlib.ml:332:29>>*/ return c;
@@ -662,35 +609,31 @@
     }
     /*<<stdlib.ml:356:32>>*/ }
    function output_bytes(oc, s){
-     /*<<stdlib.ml:366:39>>*/ return  /*<<stdlib.ml:366:2>>*/ caml_ml_output_bytes
+     /*<<stdlib.ml:366:2>>*/ return caml_ml_output_bytes
             (oc, s, 0, caml_ml_bytes_length(s)) /*<<stdlib.ml:366:39>>*/ ;
    }
    function output_string(oc, s){
-     /*<<stdlib.ml:369:47>>*/ return  /*<<stdlib.ml:369:2>>*/ caml_ml_output
+     /*<<stdlib.ml:369:2>>*/ return caml_ml_output
             (oc, s, 0, caml_ml_string_length(s)) /*<<stdlib.ml:369:47>>*/ ;
    }
    function output(oc, s, ofs, len){
      /*<<stdlib.ml:372:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:374:33>>*/ return  /*<<stdlib.ml:374:7>>*/ caml_ml_output_bytes
-             (oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
+      /*<<stdlib.ml:374:7>>*/ return caml_ml_output_bytes(oc, s, ofs, len) /*<<stdlib.ml:374:33>>*/ ;
      /*<<stdlib.ml:373:7>>*/ return invalid_arg(cst_output) /*<<stdlib.ml:374:33>>*/ ;
    }
    function output_substring(oc, s, ofs, len){
      /*<<stdlib.ml:377:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:379:40>>*/ return  /*<<stdlib.ml:379:7>>*/ caml_ml_output
-             (oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
+      /*<<stdlib.ml:379:7>>*/ return caml_ml_output(oc, s, ofs, len) /*<<stdlib.ml:379:40>>*/ ;
      /*<<stdlib.ml:378:7>>*/ return invalid_arg(cst_output_substring) /*<<stdlib.ml:379:40>>*/ ;
    }
    function output_value(chan, v){
-     /*<<stdlib.ml:386:54>>*/ return  /*<<stdlib.ml:386:26>>*/ runtime.caml_output_value
-            (chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
+     /*<<stdlib.ml:386:26>>*/ return runtime.caml_output_value(chan, v, 0) /*<<stdlib.ml:386:54>>*/ ;
    }
    function close_out(oc){
      /*<<stdlib.ml:392:19>>*/ caml_ml_flush(oc);
-     /*<<stdlib.ml:392:49>>*/ return  /*<<stdlib.ml:392:29>>*/ caml_ml_close_channel
-            (oc) /*<<stdlib.ml:392:49>>*/ ;
+     /*<<stdlib.ml:392:29>>*/ return caml_ml_close_channel(oc) /*<<stdlib.ml:392:49>>*/ ;
    }
    function close_out_noerr(oc){
      /*<<stdlib.ml:394:2>>*/ try{ /*<<stdlib.ml:394:7>>*/ caml_ml_flush(oc);}
@@ -704,7 +647,7 @@
    function open_in_gen(mode, perm, name){
     var
      c =
-        /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
+        /*<<stdlib.ml:405:28>>*/  /*<<stdlib.ml:405:10>>*/ caml_ml_open_descriptor_in
         ( /*<<stdlib.ml:405:28>>*/ caml_sys_open(name, mode, perm));
      /*<<stdlib.ml:406:2>>*/ caml_ml_set_channel_name(c, name);
      /*<<stdlib.ml:406:28>>*/ return c;
@@ -718,8 +661,7 @@
    function input(ic, s, ofs, len){
      /*<<stdlib.ml:421:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<stdlib.ml:423:32>>*/ return  /*<<stdlib.ml:423:7>>*/ caml_ml_input
-             (ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
+      /*<<stdlib.ml:423:7>>*/ return caml_ml_input(ic, s, ofs, len) /*<<stdlib.ml:423:32>>*/ ;
      /*<<stdlib.ml:422:7>>*/ return invalid_arg(cst_input) /*<<stdlib.ml:423:32>>*/ ;
    }
    function unsafe_really_input(ic, s, ofs, len){
@@ -812,8 +754,7 @@
     catch(_j_){ /*<<stdlib.ml:480:51>>*/ return 0;}
     /*<<stdlib.ml:480:54>>*/ }
    function print_char(c){
-     /*<<stdlib.ml:486:39>>*/ return  /*<<stdlib.ml:486:19>>*/ caml_ml_output_char
-            (stdout, c) /*<<stdlib.ml:486:39>>*/ ;
+     /*<<stdlib.ml:486:19>>*/ return caml_ml_output_char(stdout, c) /*<<stdlib.ml:486:39>>*/ ;
    }
    function print_string(s){
      /*<<stdlib.ml:487:21>>*/ return output_string(stdout, s) /*<<stdlib.ml:487:43>>*/ ;
@@ -825,23 +766,20 @@
      /*<<stdlib.ml:489:56>>*/ return output_string(stdout, "" + i);
    }
    function print_float(f){
-     /*<<stdlib.ml:490:60>>*/ return output_string
+     /*<<stdlib.ml:490:41>>*/ return  /*<<stdlib.ml:490:60>>*/ output_string
             (stdout,  /*<<stdlib.ml:490:41>>*/ string_of_float(f)) /*<<stdlib.ml:490:60>>*/ ;
    }
    function print_endline(s){
      /*<<stdlib.ml:492:2>>*/ output_string(stdout, s);
      /*<<stdlib.ml:492:26>>*/ caml_ml_output_char(stdout, 10);
-     /*<<stdlib.ml:492:63>>*/ return  /*<<stdlib.ml:492:51>>*/ caml_ml_flush
-            (stdout) /*<<stdlib.ml:492:63>>*/ ;
+     /*<<stdlib.ml:492:51>>*/ return caml_ml_flush(stdout) /*<<stdlib.ml:492:63>>*/ ;
    }
    function print_newline(param){
      /*<<stdlib.ml:493:23>>*/ caml_ml_output_char(stdout, 10);
-     /*<<stdlib.ml:493:60>>*/ return  /*<<stdlib.ml:493:48>>*/ caml_ml_flush
-            (stdout) /*<<stdlib.ml:493:60>>*/ ;
+     /*<<stdlib.ml:493:48>>*/ return caml_ml_flush(stdout) /*<<stdlib.ml:493:60>>*/ ;
    }
    function prerr_char(c){
-     /*<<stdlib.ml:497:39>>*/ return  /*<<stdlib.ml:497:19>>*/ caml_ml_output_char
-            (stderr, c) /*<<stdlib.ml:497:39>>*/ ;
+     /*<<stdlib.ml:497:19>>*/ return caml_ml_output_char(stderr, c) /*<<stdlib.ml:497:39>>*/ ;
    }
    function prerr_string(s){
      /*<<stdlib.ml:498:21>>*/ return output_string(stderr, s) /*<<stdlib.ml:498:43>>*/ ;
@@ -853,38 +791,36 @@
      /*<<stdlib.ml:500:56>>*/ return output_string(stderr, "" + i);
    }
    function prerr_float(f){
-     /*<<stdlib.ml:501:60>>*/ return output_string
+     /*<<stdlib.ml:501:41>>*/ return  /*<<stdlib.ml:501:60>>*/ output_string
             (stderr,  /*<<stdlib.ml:501:41>>*/ string_of_float(f)) /*<<stdlib.ml:501:60>>*/ ;
    }
    function prerr_endline(s){
      /*<<stdlib.ml:503:2>>*/ output_string(stderr, s);
      /*<<stdlib.ml:503:26>>*/ caml_ml_output_char(stderr, 10);
-     /*<<stdlib.ml:503:63>>*/ return  /*<<stdlib.ml:503:51>>*/ caml_ml_flush
-            (stderr) /*<<stdlib.ml:503:63>>*/ ;
+     /*<<stdlib.ml:503:51>>*/ return caml_ml_flush(stderr) /*<<stdlib.ml:503:63>>*/ ;
    }
    function prerr_newline(param){
      /*<<stdlib.ml:504:23>>*/ caml_ml_output_char(stderr, 10);
-     /*<<stdlib.ml:504:60>>*/ return  /*<<stdlib.ml:504:48>>*/ caml_ml_flush
-            (stderr) /*<<stdlib.ml:504:60>>*/ ;
+     /*<<stdlib.ml:504:48>>*/ return caml_ml_flush(stderr) /*<<stdlib.ml:504:60>>*/ ;
    }
    function read_line(param){
      /*<<stdlib.ml:508:19>>*/ caml_ml_flush(stdout);
      /*<<stdlib.ml:508:31>>*/ return input_line(stdin) /*<<stdlib.ml:508:49>>*/ ;
    }
    function read_int(param){
-     /*<<stdlib.ml:509:44>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
+     /*<<stdlib.ml:509:31>>*/ return  /*<<stdlib.ml:509:18>>*/ caml_int_of_string
             ( /*<<stdlib.ml:509:31>>*/ read_line(0)) /*<<stdlib.ml:509:44>>*/ ;
    }
    function read_int_opt(param){
-     /*<<stdlib.ml:510:52>>*/ return int_of_string_opt
+     /*<<stdlib.ml:510:39>>*/ return  /*<<stdlib.ml:510:52>>*/ int_of_string_opt
             ( /*<<stdlib.ml:510:39>>*/ read_line(0)) /*<<stdlib.ml:510:52>>*/ ;
    }
    function read_float(param){
-     /*<<stdlib.ml:511:48>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
+     /*<<stdlib.ml:511:35>>*/ return  /*<<stdlib.ml:511:20>>*/ caml_float_of_string
             ( /*<<stdlib.ml:511:35>>*/ read_line(0)) /*<<stdlib.ml:511:48>>*/ ;
    }
    function read_float_opt(param){
-     /*<<stdlib.ml:512:56>>*/ return float_of_string_opt
+     /*<<stdlib.ml:512:43>>*/ return  /*<<stdlib.ml:512:56>>*/ float_of_string_opt
             ( /*<<stdlib.ml:512:43>>*/ read_line(0)) /*<<stdlib.ml:512:56>>*/ ;
    }
    function string_of_format(param){
@@ -898,9 +834,8 @@
      str1 = _h_[2],
      fmt1 = _h_[1],
      s2 =  /*<<stdlib.ml:546:17>>*/ "%," + str2;
-     /*<<stdlib.ml:545:55>>*/ return [0,
-             /*<<stdlib.ml:545:10>>*/ caml_call2
-             (CamlinternalFormatBasics[3], fmt1, fmt2),
+     /*<<stdlib.ml:545:10>>*/ return [0,
+            caml_call2(CamlinternalFormatBasics[3], fmt1, fmt2),
             str1 + s2] /*<<stdlib.ml:545:55>>*/ ;
     /*<<stdlib.ml:546:29>>*/ }
    var exit_function =  /*<<stdlib.ml:316:34>>*/ [0, flush_all];
@@ -909,10 +844,12 @@
      var
       f_yet_to_run = [0, 1],
       old_exit =  /*<<stdlib.ml:564:2>>*/ caml_atomic_load(exit_function);
-     let f_yet_to_run$0 = f_yet_to_run, old_exit$0 = old_exit;
+     let
+      f_yet_to_run$0 =  /*<<stdlib.ml:565:2>>*/ f_yet_to_run,
+      old_exit$0 = old_exit;
      var
       new_exit =
-         /*<<stdlib.ml:565:2>>*/ function(param){
+        function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
            /*<<stdlib.ml:566:59>>*/ caml_call1(f, 0);
           /*<<stdlib.ml:566:4>>*/ return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
@@ -937,8 +874,7 @@
    }
    function exit(retcode){
      /*<<stdlib.ml:579:2>>*/ do_at_exit(0);
-     /*<<stdlib.ml:580:18>>*/ return  /*<<stdlib.ml:580:2>>*/ runtime.caml_sys_exit
-            (retcode) /*<<stdlib.ml:580:18>>*/ ;
+     /*<<stdlib.ml:580:2>>*/ return runtime.caml_sys_exit(retcode) /*<<stdlib.ml:580:18>>*/ ;
    }
     /*<<stdlib.ml:582:8>>*/ runtime.caml_register_named_value
     ("Pervasives.do_at_exit", do_at_exit);
@@ -1101,24 +1037,20 @@
    function map_left(f, e){
      /*<<either.ml:37:13>>*/ if(0 !== e[0])  /*<<either.ml:39:18>>*/ return e;
     var v =  /*<<either.ml:37:13>>*/ e[1];
-     /*<<either.ml:38:22>>*/ return [0,
-             /*<<either.ml:38:17>>*/ caml_call1(f, v)] /*<<either.ml:38:22>>*/ ;
+     /*<<either.ml:38:17>>*/ return [0, caml_call1(f, v)] /*<<either.ml:38:22>>*/ ;
     /*<<either.ml:39:19>>*/ }
    function map_right(f, e){
      /*<<either.ml:41:14>>*/ if(0 === e[0])  /*<<either.ml:42:17>>*/ return e;
     var v =  /*<<either.ml:41:14>>*/ e[1];
-     /*<<either.ml:43:24>>*/ return [1,
-             /*<<either.ml:43:19>>*/ caml_call1(f, v)] /*<<either.ml:43:24>>*/ ;
+     /*<<either.ml:43:19>>*/ return [1, caml_call1(f, v)] /*<<either.ml:43:24>>*/ ;
    }
    function map(left, right, param){
      /*<<either.ml:45:8>>*/ if(0 === param[0]){
      var v = param[1];
-      /*<<either.ml:46:25>>*/ return [0,
-              /*<<either.ml:46:17>>*/ caml_call1(left, v)] /*<<either.ml:46:25>>*/ ;
+      /*<<either.ml:46:17>>*/ return [0, caml_call1(left, v)] /*<<either.ml:46:25>>*/ ;
     }
     var v$0 =  /*<<either.ml:45:8>>*/ param[1];
-     /*<<either.ml:47:28>>*/ return [1,
-             /*<<either.ml:47:19>>*/ caml_call1(right, v$0)] /*<<either.ml:47:28>>*/ ;
+     /*<<either.ml:47:19>>*/ return [1, caml_call1(right, v$0)] /*<<either.ml:47:28>>*/ ;
    }
    function fold(left, right, param){
      /*<<either.ml:49:9>>*/ if(0 === param[0]){
@@ -1194,10 +1126,7 @@
     Stdlib = global_data.Stdlib,
     executable_name =
        /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name(0),
-    os_type =
-       /*<<sys.ml.in:37:34>>*/  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config
-        (0)
-       [1],
+    os_type =  /*<<sys.ml.in:37:22>>*/ runtime.caml_sys_get_config(0)[1],
     backend_type =  /*<<sys.ml.in:37:34>>*/ [0, "js_of_ocaml"],
     unix = runtime.caml_sys_const_ostype_unix(0),
     win32 = runtime.caml_sys_const_ostype_win32(0),
@@ -1207,10 +1136,7 @@
     max_string_length = (4 * max_array_length | 0) - 1 | 0;
    function getenv_opt(s){
      /*<<sys.ml.in:60:2>>*/ try{
-     var
-      _d_ =
-         /*<<sys.ml.in:60:21>>*/ [0,
-          /*<<sys.ml.in:60:11>>*/ runtime.caml_sys_getenv(s)];
+     var _d_ =  /*<<sys.ml.in:60:11>>*/ [0, runtime.caml_sys_getenv(s)];
      return _d_;
     }
     catch(_e_){
@@ -1313,8 +1239,7 @@
      /*<<obj.ml:26:34>>*/ return 1 - (typeof a === "number" ? 1 : 0);
     /*<<obj.ml:26:48>>*/ }
    function double_field(x, i){
-     /*<<obj.ml:35:77>>*/ return  /*<<obj.ml:35:40>>*/ caml_check_bound(x, i)
-            [1 + i] /*<<obj.ml:35:77>>*/ ;
+     /*<<obj.ml:35:40>>*/ return caml_check_bound(x, i)[1 + i] /*<<obj.ml:35:77>>*/ ;
    }
    function set_double_field(x, i, v){
      /*<<obj.ml:37:2>>*/ caml_check_bound(x, i)[1 + i] = v;
@@ -1326,26 +1251,21 @@
    function of_val(x){
     a:
     {
-      /*<<obj.ml:77:21>>*/ if
-      ( /*<<obj.ml:77:9>>*/ is_block(x)
+      /*<<obj.ml:77:9>>*/ if
+      (is_block(x)
        &&  /*<<obj.ml:77:25>>*/ caml_obj_tag(x) !== 248 && 1 <= x.length - 1){var slot =  /*<<obj.ml:77:78>>*/ x[1]; break a;}
      var slot =  /*<<obj.ml:78:11>>*/ x;
     }
     a:
     {
-      /*<<obj.ml:81:24>>*/ if
-      ( /*<<obj.ml:81:9>>*/ is_block(slot)
-       &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){
-      var name =  /*<<obj.ml:81:69>>*/ slot[1];
-      break a;
-     }
+      /*<<obj.ml:81:9>>*/ if
+      (is_block(slot) &&  /*<<obj.ml:81:28>>*/ caml_obj_tag(slot) === 248){var name =  /*<<obj.ml:81:69>>*/ slot[1]; break a;}
      var
       name =
          /*<<obj.ml:82:50>>*/  /*<<obj.ml:82:11>>*/ caml_call1
          (Stdlib[1], cst_Obj_extension_constructor$0);
     }
-     /*<<obj.ml:84:19>>*/ return  /*<<obj.ml:84:9>>*/ caml_obj_tag(name)
-            === 252
+     /*<<obj.ml:84:9>>*/ return caml_obj_tag(name) === 252
             ? slot
             :  /*<<obj.ml:85:11>>*/ caml_call1
               (Stdlib[1], cst_Obj_extension_constructor) /*<<obj.ml:85:50>>*/ ;
@@ -1368,8 +1288,7 @@
      _g_ = _f_ ? l <= max_ephe_length ? 1 : 0 : _f_;
     if(1 - _g_)
       /*<<obj.ml:106:6>>*/ caml_call1(Stdlib[1], cst_Obj_Ephemeron_create);
-     /*<<obj.ml:107:12>>*/ return  /*<<obj.ml:107:4>>*/ runtime.caml_ephe_create
-            (l) /*<<obj.ml:107:12>>*/ ;
+     /*<<obj.ml:107:4>>*/ return runtime.caml_ephe_create(l) /*<<obj.ml:107:12>>*/ ;
    }
    function length(x){
      /*<<obj.ml:109:17>>*/ return x.length - 3 | 0;
@@ -1384,32 +1303,27 @@
    function get_key(e, o){
      /*<<obj.ml:117:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key);
-     /*<<obj.ml:118:15>>*/ return  /*<<obj.ml:118:4>>*/ runtime.caml_ephe_get_key
-            (e, o) /*<<obj.ml:118:15>>*/ ;
+     /*<<obj.ml:118:4>>*/ return runtime.caml_ephe_get_key(e, o) /*<<obj.ml:118:15>>*/ ;
    }
    function get_key_copy(e, o){
      /*<<obj.ml:122:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_get_key_copy);
-     /*<<obj.ml:123:20>>*/ return  /*<<obj.ml:123:4>>*/ runtime.caml_ephe_get_key_copy
-            (e, o) /*<<obj.ml:123:20>>*/ ;
+     /*<<obj.ml:123:4>>*/ return runtime.caml_ephe_get_key_copy(e, o) /*<<obj.ml:123:20>>*/ ;
    }
    function set_key(e, o, x){
      /*<<obj.ml:127:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_set_key);
-     /*<<obj.ml:128:17>>*/ return  /*<<obj.ml:128:4>>*/ runtime.caml_ephe_set_key
-            (e, o, x) /*<<obj.ml:128:17>>*/ ;
+     /*<<obj.ml:128:4>>*/ return runtime.caml_ephe_set_key(e, o, x) /*<<obj.ml:128:17>>*/ ;
    }
    function unset_key(e, o){
      /*<<obj.ml:132:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_unset_key);
-     /*<<obj.ml:133:17>>*/ return  /*<<obj.ml:133:4>>*/ runtime.caml_ephe_unset_key
-            (e, o) /*<<obj.ml:133:17>>*/ ;
+     /*<<obj.ml:133:4>>*/ return runtime.caml_ephe_unset_key(e, o) /*<<obj.ml:133:17>>*/ ;
    }
    function check_key(e, o){
      /*<<obj.ml:137:4>>*/ raise_if_invalid_offset
      (e, o, cst_Obj_Ephemeron_check_key);
-     /*<<obj.ml:138:17>>*/ return  /*<<obj.ml:138:4>>*/ runtime.caml_ephe_check_key
-            (e, o) /*<<obj.ml:138:17>>*/ ;
+     /*<<obj.ml:138:4>>*/ return runtime.caml_ephe_check_key(e, o) /*<<obj.ml:138:17>>*/ ;
    }
    function blit_key(e1, o1, e2, o2, l){
      /*<<obj.ml:144:4>>*/ if
@@ -1567,11 +1481,8 @@
     Undefined =
       [248, "CamlinternalLazy.Undefined", runtime.caml_fresh_oo_id(0)];
    function force_gen_lazy_block(only_val, blk){
-     /*<<camlinternalLazy.ml:72:40>>*/ if
-     (0
-      !==
-        /*<<camlinternalLazy.ml:72:8>>*/ runtime.caml_lazy_update_to_forcing
-        (blk))
+     /*<<camlinternalLazy.ml:72:8>>*/ if
+     (0 !== runtime.caml_lazy_update_to_forcing(blk))
       /*<<camlinternalLazy.ml:75:9>>*/ throw caml_maybe_attach_backtrace
             (Undefined, 1);
      /*<<camlinternalLazy.ml:73:11>>*/ if(only_val){
@@ -1660,15 +1571,11 @@
      (t !== Stdlib_Obj[12]
       && t !== Stdlib_Obj[8] && t !== Stdlib_Obj[6] && t !== Stdlib_Obj[16])
       /*<<lazy.ml:69:5>>*/ return v;
-     /*<<lazy.ml:68:5>>*/ return  /*<<lazy.ml:66:52>>*/ runtime.caml_lazy_make_forward
-            (v) /*<<lazy.ml:70:5>>*/ ;
+     /*<<lazy.ml:66:52>>*/ return runtime.caml_lazy_make_forward(v) /*<<lazy.ml:70:5>>*/ ;
    }
    function is_val(l){
     var _i_ =  /*<<lazy.ml:72:26>>*/ Stdlib_Obj[8];
-     /*<<lazy.ml:72:46>>*/ return  /*<<lazy.ml:72:26>>*/ caml_obj_tag(l)
-            !== _i_
-            ? 1
-            : 0 /*<<lazy.ml:72:46>>*/ ;
+    return caml_obj_tag(l) !== _i_ ? 1 : 0 /*<<lazy.ml:72:46>>*/ ;
     /*<<lazy.ml:72:62>>*/ }
    function map(f, x){
      /*<<lazy.ml:75:2>>*/ return [246,
@@ -1685,7 +1592,7 @@
             }] /*<<lazy.ml:75:2>>*/ ;
     /*<<lazy.ml:75:20>>*/ }
    function map_val(f, x){
-     /*<<lazy.ml:78:13>>*/ if(!  /*<<lazy.ml:78:5>>*/ is_val(x))
+     /*<<lazy.ml:78:5>>*/ if(! is_val(x))
       /*<<lazy.ml:80:7>>*/ return [246,
              function(_c_){
               var _d_ =  /*<<?>>*/ caml_obj_tag(x);
@@ -1706,7 +1613,7 @@
      if(246 !== _a_ && 244 !== _a_){var _b_ = x; break a;}
      var _b_ = caml_call1(CamlinternalLazy[2], x);
     }
-     /*<<lazy.ml:79:29>>*/ return from_val
+     /*<<lazy.ml:79:16>>*/ return  /*<<lazy.ml:79:29>>*/ from_val
             ( /*<<lazy.ml:79:16>>*/ caml_call1(f, _b_)) /*<<lazy.ml:80:25>>*/ ;
    }
    var
@@ -1781,8 +1688,8 @@
     var match =  /*<<seq.ml:35:29>>*/ caml_call1(seq, 0);
      /*<<seq.ml:35:34>>*/ if(! match)  /*<<seq.ml:36:11>>*/ return 0;
     var next =  /*<<seq.ml:35:34>>*/ match[2], x = match[1];
-     /*<<seq.ml:37:31>>*/ return [0,
-             /*<<seq.ml:37:28>>*/ caml_call1(f, x),
+     /*<<seq.ml:37:28>>*/ return [0,
+            caml_call1(f, x),
             function(_at_){ /*<<seq.ml:37:33>>*/ return map(f, next, _at_);}] /*<<seq.ml:37:31>>*/ ;
     /*<<seq.ml:37:44>>*/ }
    function filter_map(f, seq, param){
@@ -1811,7 +1718,7 @@
      var match =  /*<<seq.ml:46:32>>*/ caml_call1(seq$0, 0);
       /*<<seq.ml:46:37>>*/ if(! match)  /*<<seq.ml:47:11>>*/ return 0;
      var next =  /*<<seq.ml:46:37>>*/ match[2], x = match[1];
-      /*<<seq.ml:49:12>>*/ if( /*<<seq.ml:49:9>>*/ caml_call1(f, x))
+      /*<<seq.ml:49:9>>*/ if(caml_call1(f, x))
        /*<<seq.ml:50:33>>*/ return [0,
               x,
               function(_ar_){
@@ -1833,7 +1740,7 @@
     var match =  /*<<seq.ml:58:34>>*/ caml_call1(seq, 0);
      /*<<seq.ml:58:40>>*/ if(! match)  /*<<seq.ml:59:11>>*/ return 0;
     var next =  /*<<seq.ml:58:40>>*/ match[2], x = match[1];
-     /*<<seq.ml:61:16>>*/ return append
+     /*<<seq.ml:61:11>>*/ return  /*<<seq.ml:61:16>>*/ append
             ( /*<<seq.ml:61:11>>*/ caml_call1(f, x),
              function(_ap_){
                /*<<seq.ml:61:17>>*/ return flat_map(f, next, _ap_);
@@ -1875,9 +1782,7 @@
             function(_ao_){ /*<<seq.ml:82:29>>*/ return unfold(f, u$0, _ao_);}] /*<<seq.ml:82:40>>*/ ;
     /*<<seq.ml:82:41>>*/ }
    function is_empty(xs){
-     /*<<seq.ml:85:12>>*/ return  /*<<seq.ml:85:8>>*/ caml_call1(xs, 0)
-            ? 0
-            : 1 /*<<seq.ml:89:11>>*/ ;
+     /*<<seq.ml:85:8>>*/ return caml_call1(xs, 0) ? 0 : 1 /*<<seq.ml:89:11>>*/ ;
    }
    function uncons(xs){
     var match =  /*<<seq.ml:92:8>>*/ caml_call1(xs, 0);
@@ -1956,7 +1861,7 @@
      var match =  /*<<seq.ml:147:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:147:12>>*/ if(! match)  /*<<seq.ml:149:6>>*/ return 0;
      var xs$1 =  /*<<seq.ml:147:12>>*/ match[2], x = match[1];
-      /*<<seq.ml:151:12>>*/ if( /*<<seq.ml:151:9>>*/ caml_call1(p, x))
+      /*<<seq.ml:151:9>>*/ if(caml_call1(p, x))
        /*<<seq.ml:151:18>>*/ return [0, x];
       /*<<seq.ml:151:30>>*/ xs$0 = xs$1;
     }
@@ -1967,7 +1872,7 @@
      var match =  /*<<seq.ml:154:27>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:154:31>>*/ if(! match)  /*<<seq.ml:156:8>>*/ return 0;
      var xs$1 =  /*<<seq.ml:154:31>>*/ match[2], x = match[1];
-      /*<<seq.ml:158:14>>*/ if( /*<<seq.ml:158:11>>*/ caml_call1(p, x))
+      /*<<seq.ml:158:11>>*/ if(caml_call1(p, x))
        /*<<seq.ml:158:20>>*/ return [0, i];
      var i$0 =  /*<<seq.ml:158:32>>*/ i + 1 | 0;
      i = i$0;
@@ -2121,9 +2026,9 @@
     /*<<seq.ml:257:8>>*/ }
    function init_aux(f, i, j, param){
      /*<<seq.ml:264:2>>*/ if(i >= j)  /*<<seq.ml:268:4>>*/ return 0;
-    var _ah_ =  /*<<seq.ml:264:16>>*/ i + 1 | 0;
-     /*<<seq.ml:265:13>>*/ return [0,
-             /*<<seq.ml:265:10>>*/ caml_call1(f, i),
+    var _ah_ =  /*<<seq.ml:265:15>>*/ i + 1 | 0;
+     /*<<seq.ml:265:10>>*/ return [0,
+            caml_call1(f, i),
             function(_ai_){
               /*<<seq.ml:265:15>>*/ return init_aux(f, _ah_, j, _ai_);
             }] /*<<seq.ml:265:13>>*/ ;
@@ -2141,8 +2046,8 @@
             function(_ae_){ /*<<seq.ml:277:11>>*/ return repeat(x, _ae_);}] /*<<seq.ml:277:19>>*/ ;
     /*<<seq.ml:277:20>>*/ }
    function forever(f, param){
-     /*<<seq.ml:280:11>>*/ return [0,
-             /*<<seq.ml:280:8>>*/ caml_call1(f, 0),
+     /*<<seq.ml:280:8>>*/ return [0,
+            caml_call1(f, 0),
             function(_ad_){ /*<<seq.ml:280:13>>*/ return forever(f, _ad_);}] /*<<seq.ml:280:11>>*/ ;
     /*<<seq.ml:280:23>>*/ }
    function cycle_nonempty(xs, param){
@@ -2183,9 +2088,9 @@
     var
      xs$0 =  /*<<seq.ml:324:12>>*/ match[2],
      x = match[1],
-     _W_ =  /*<<seq.ml:328:6>>*/ i + 1 | 0;
-     /*<<seq.ml:328:17>>*/ return [0,
-             /*<<seq.ml:328:12>>*/ caml_call2(f, i, x),
+     _W_ =  /*<<seq.ml:328:19>>*/ i + 1 | 0;
+     /*<<seq.ml:328:12>>*/ return [0,
+            caml_call2(f, i, x),
             function(_X_){
               /*<<seq.ml:328:19>>*/ return mapi_aux(f, _W_, xs$0, _X_);
             }] /*<<seq.ml:328:17>>*/ ;
@@ -2222,9 +2127,7 @@
                /*<<seq.ml:358:16>>*/ if(! match)
                 /*<<seq.ml:360:10>>*/ return 0;
               var xs$0 =  /*<<seq.ml:358:16>>*/ match[2], x = match[1];
-               /*<<seq.ml:362:36>>*/ return [0,
-                      x,
-                       /*<<seq.ml:362:19>>*/ take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:36>>*/ ;
+               /*<<seq.ml:362:19>>*/ return [0, x, take_aux(n - 1 | 0, xs$0)] /*<<seq.ml:362:36>>*/ ;
               /*<<seq.ml:362:37>>*/ };
    }
    function take(n, xs){
@@ -2259,7 +2162,7 @@
     var match =  /*<<seq.ml:395:8>>*/ caml_call1(xs, 0);
      /*<<seq.ml:395:12>>*/ if(! match)  /*<<seq.ml:397:6>>*/ return 0;
     var xs$0 =  /*<<seq.ml:395:12>>*/ match[2], x = match[1];
-     /*<<seq.ml:399:12>>*/ return  /*<<seq.ml:399:9>>*/ caml_call1(p, x)
+     /*<<seq.ml:399:9>>*/ return caml_call1(p, x)
             ? [0,
               x,
               function(_Q_){
@@ -2273,7 +2176,7 @@
      var node =  /*<<seq.ml:402:8>>*/ caml_call1(xs$0, 0);
       /*<<seq.ml:402:12>>*/ if(! node)  /*<<seq.ml:404:6>>*/ return 0;
      var xs$1 =  /*<<seq.ml:402:12>>*/ node[2], x = node[1];
-      /*<<seq.ml:406:12>>*/ if(!  /*<<seq.ml:406:9>>*/ caml_call1(p, x))
+      /*<<seq.ml:406:9>>*/ if(! caml_call1(p, x))
        /*<<seq.ml:406:42>>*/ return node;
       /*<<seq.ml:406:18>>*/ xs$0 = xs$1;
     }
@@ -2309,9 +2212,7 @@
      var match =  /*<<seq.ml:460:10>>*/ caml_call1(xs, 0);
       /*<<seq.ml:460:14>>*/ if(! match)  /*<<seq.ml:462:8>>*/ return 0;
      var xs$0 =  /*<<seq.ml:460:14>>*/ match[2], x = match[1];
-      /*<<seq.ml:464:27>>*/ return [0,
-             x,
-              /*<<seq.ml:464:17>>*/ memoize(xs$0)] /*<<seq.ml:464:27>>*/ ;
+      /*<<seq.ml:464:17>>*/ return [0, x, memoize(xs$0)] /*<<seq.ml:464:27>>*/ ;
      /*<<seq.ml:464:28>>*/ }
     var s =  /*<<seq.ml:434:14>>*/ caml_call1(to_lazy, s$0);
      /*<<seq.ml:429:4>>*/ return function(param){
@@ -2325,7 +2226,7 @@
      var match =  /*<<seq.ml:469:10>>*/ caml_call1(xs, 0);
       /*<<seq.ml:469:14>>*/ if(! match)  /*<<seq.ml:471:8>>*/ return 0;
      var xs$0 =  /*<<seq.ml:469:14>>*/ match[2], x = match[1];
-      /*<<seq.ml:473:24>>*/ return [0, x,  /*<<seq.ml:473:17>>*/ once(xs$0)] /*<<seq.ml:473:24>>*/ ;
+      /*<<seq.ml:473:17>>*/ return [0, x, once(xs$0)] /*<<seq.ml:473:24>>*/ ;
      /*<<seq.ml:473:25>>*/ }
     var action =  /*<<seq.ml:448:17>>*/ caml_call1(Stdlib_Atomic[1], f);
      /*<<seq.ml:449:4>>*/ return function(param){
@@ -2355,8 +2256,8 @@
      match$0 =  /*<<seq.ml:493:12>>*/ caml_call1(ys, 0);
      /*<<seq.ml:493:16>>*/ if(! match$0)  /*<<seq.ml:495:10>>*/ return 0;
     var ys$0 =  /*<<seq.ml:493:16>>*/ match$0[2], y = match$0[1];
-     /*<<seq.ml:497:21>>*/ return [0,
-             /*<<seq.ml:497:16>>*/ caml_call2(f, x, y),
+     /*<<seq.ml:497:16>>*/ return [0,
+            caml_call2(f, x, y),
             function(_G_){
               /*<<seq.ml:497:23>>*/ return map2(f, xs$0, ys$0, _G_);
             }] /*<<seq.ml:497:21>>*/ ;
@@ -2373,8 +2274,7 @@
             }] /*<<seq.ml:504:31>>*/ ;
     /*<<seq.ml:504:32>>*/ }
    function sorted_merge1(cmp, x, xs, y, ys){
-     /*<<seq.ml:533:12>>*/ return 0
-            <  /*<<seq.ml:533:5>>*/ caml_call2(cmp, x, y)
+     /*<<seq.ml:533:5>>*/ return 0 < caml_call2(cmp, x, y)
             ? [0,
               y,
               function(_D_){
@@ -2486,7 +2386,7 @@
     /*<<seq.ml:596:32>>*/ }
    function partition(p, xs){
     function _s_(x){
-      /*<<seq.ml:599:41>>*/ return 1 -  /*<<seq.ml:599:36>>*/ caml_call1(p, x) /*<<seq.ml:599:41>>*/ ;
+      /*<<seq.ml:599:36>>*/ return 1 - caml_call1(p, x) /*<<seq.ml:599:41>>*/ ;
     }
      /*<<seq.ml:599:13>>*/ return [0,
             function(_u_){ /*<<seq.ml:599:2>>*/ return filter(p, xs, _u_);},
@@ -2503,14 +2403,13 @@
      match =  /*<<seq.ml:614:21>>*/ peel(xss),
      tails =  /*<<seq.ml:614:29>>*/ match[2],
      heads = match[1];
-     /*<<seq.ml:615:19>>*/ if(!  /*<<seq.ml:615:5>>*/ is_empty(heads))
+     /*<<seq.ml:615:5>>*/ if(! is_empty(heads))
       /*<<seq.ml:620:32>>*/ return [0,
              heads,
              function(_q_){
                /*<<seq.ml:620:17>>*/ return transpose(tails, _q_);
              }] /*<<seq.ml:620:32>>*/ ;
-     /*<<seq.ml:616:27>>*/ if( /*<<seq.ml:616:11>>*/ is_empty(tails))
-      /*<<seq.ml:617:4>>*/ return 0;
+     /*<<seq.ml:616:11>>*/ if(is_empty(tails))  /*<<seq.ml:617:4>>*/ return 0;
      /*<<seq.ml:616:27>>*/ throw caml_maybe_attach_backtrace
            ([0, Assert_failure, _a_], 1);
     /*<<seq.ml:620:33>>*/ }
@@ -2588,7 +2487,7 @@
       /*<<seq.ml:697:8>>*/ return [0, x]; /*<<seq.ml:697:14>>*/ } /*<<seq.ml:691:2>>*/ ;
     /*<<seq.ml:697:14>>*/ }
    function ints(i, param){
-    var _c_ =  /*<<seq.ml:702:2>>*/ i + 1 | 0;
+    var _c_ =  /*<<seq.ml:702:11>>*/ i + 1 | 0;
      /*<<seq.ml:702:23>>*/ return [0,
             i,
             function(_d_){ /*<<seq.ml:702:11>>*/ return ints(_c_, _d_);}] /*<<seq.ml:702:23>>*/ ;
@@ -2709,8 +2608,7 @@
    function map(f, o){
      /*<<option.ml:24:14>>*/ if(! o)  /*<<option.ml:24:35>>*/ return 0;
     var v =  /*<<option.ml:24:14>>*/ o[1];
-     /*<<option.ml:24:62>>*/ return [0,
-             /*<<option.ml:24:57>>*/ caml_call1(f, v)] /*<<option.ml:24:62>>*/ ;
+     /*<<option.ml:24:57>>*/ return [0, caml_call1(f, v)] /*<<option.ml:24:62>>*/ ;
    }
    function fold(none, some, param){
      /*<<option.ml:25:9>>*/ if(! param)  /*<<option.ml:25:59>>*/ return none;
@@ -2847,14 +2745,12 @@
    function map(f, e){
      /*<<result.ml:25:8>>*/ if(0 !== e[0])  /*<<result.ml:25:56>>*/ return e;
     var v =  /*<<result.ml:25:8>>*/ e[1];
-     /*<<result.ml:25:37>>*/ return [0,
-             /*<<result.ml:25:32>>*/ caml_call1(f, v)] /*<<result.ml:25:37>>*/ ;
+     /*<<result.ml:25:32>>*/ return [0, caml_call1(f, v)] /*<<result.ml:25:37>>*/ ;
     /*<<result.ml:25:57>>*/ }
    function map_error(f, v){
      /*<<result.ml:26:14>>*/ if(0 === v[0])  /*<<result.ml:26:65>>*/ return v;
     var e =  /*<<result.ml:26:14>>*/ v[1];
-     /*<<result.ml:26:49>>*/ return [1,
-             /*<<result.ml:26:44>>*/ caml_call1(f, e)] /*<<result.ml:26:49>>*/ ;
+     /*<<result.ml:26:44>>*/ return [1, caml_call1(f, e)] /*<<result.ml:26:49>>*/ ;
     /*<<result.ml:26:66>>*/ }
    function fold(ok, error, param){
      /*<<result.ml:27:9>>*/ if(0 === param[0]){
@@ -2972,12 +2868,10 @@
      /*<<bool.ml:33:16>>*/ return param ? cst_true : cst_false /*<<bool.ml:33:58>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<bool.ml:37:56>>*/ return  /*<<bool.ml:37:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
+     /*<<bool.ml:37:25>>*/ return caml_hash(10, 100, seed, x) /*<<bool.ml:37:56>>*/ ;
    }
    function hash(x){
-     /*<<bool.ml:38:41>>*/ return  /*<<bool.ml:38:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
+     /*<<bool.ml:38:13>>*/ return caml_hash(10, 100, 0, x) /*<<bool.ml:38:41>>*/ ;
    }
    var
     Stdlib_Bool =
@@ -3072,12 +2966,10 @@
      /*<<char.ml:60:41>>*/ return 0 === (c1 - c2 | 0) ? 1 : 0;
     /*<<char.ml:60:45>>*/ }
    function seeded_hash(seed, x){
-     /*<<char.ml:64:56>>*/ return  /*<<char.ml:64:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
+     /*<<char.ml:64:25>>*/ return caml_hash(10, 100, seed, x) /*<<char.ml:64:56>>*/ ;
    }
    function hash(x){
-     /*<<char.ml:65:41>>*/ return  /*<<char.ml:65:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
+     /*<<char.ml:65:13>>*/ return caml_hash(10, 100, 0, x) /*<<char.ml:65:41>>*/ ;
    }
    var
     Stdlib_Char =
@@ -3153,11 +3045,10 @@
     return _p_;
     /*<<uchar.ml:43:75>>*/ }
    function of_int(i){
-     /*<<uchar.ml:44:28>>*/ if( /*<<uchar.ml:44:18>>*/ is_valid(i))
-      /*<<uchar.ml:44:34>>*/ return i;
+     /*<<uchar.ml:44:18>>*/ if(is_valid(i))  /*<<uchar.ml:44:34>>*/ return i;
     var
      _m_ =
-        /*<<uchar.ml:20:36>>*/ caml_call2
+        /*<<uchar.ml:20:19>>*/  /*<<uchar.ml:20:36>>*/ caml_call2
         (Stdlib[28],
           /*<<uchar.ml:20:19>>*/ caml_format_int("%X", i),
          cst_is_not_an_Unicode_scalar_v);
@@ -3380,9 +3271,7 @@
     var last =  /*<<list.ml:72:2>>*/ len - 1 | 0, i$1 = 0;
      /*<<list.ml:63:2>>*/ if(last < 0)  /*<<list.ml:63:19>>*/ return 0;
      /*<<list.ml:64:7>>*/ if(0 === last)
-      /*<<list.ml:64:28>>*/ return [0,
-              /*<<list.ml:64:25>>*/ caml_call1(f, i$1),
-             0] /*<<list.ml:64:28>>*/ ;
+      /*<<list.ml:64:25>>*/ return [0, caml_call1(f, i$1), 0] /*<<list.ml:64:28>>*/ ;
     var
      r1 =  /*<<list.ml:66:13>>*/ caml_call1(f, i$1),
      r2 =  /*<<list.ml:67:13>>*/ caml_call1(f, 1),
@@ -3406,8 +3295,7 @@
        i = i$0;
        continue;
       }
-       /*<<list.ml:64:28>>*/ dst[1 + offset] =
-       [0,  /*<<list.ml:64:25>>*/ caml_call1(f, i), 0];
+       /*<<list.ml:64:25>>*/ dst[1 + offset] = [0, caml_call1(f, i), 0];
      }
       /*<<list.ml:68:33>>*/ return [0, r1, block];
     }
@@ -3511,10 +3399,7 @@
      var
       l$0 =  /*<<list.ml:103:17>>*/ param[2],
       a = param[1],
-      accu$0 =
-         /*<<list.ml:105:25>>*/ [0,
-          /*<<list.ml:105:22>>*/ caml_call1(f, a),
-         accu];
+      accu$0 =  /*<<list.ml:105:22>>*/ [0, caml_call1(f, a), accu];
       /*<<list.ml:105:25>>*/ accu = accu$0;
      param = l$0;
     }
@@ -3554,7 +3439,7 @@
    function fold_right(f, l, accu){
      /*<<list.ml:126:2>>*/ if(! l)  /*<<list.ml:127:10>>*/ return accu;
     var l$0 =  /*<<list.ml:126:2>>*/ l[2], a = l[1];
-     /*<<list.ml:128:37>>*/ return caml_call2
+     /*<<list.ml:128:16>>*/ return  /*<<list.ml:128:37>>*/ caml_call2
             (f, a,  /*<<list.ml:128:16>>*/ fold_right(f, l$0, accu)) /*<<list.ml:128:37>>*/ ;
    }
    function map2(f, l1, l2){
@@ -3644,10 +3529,7 @@
         a2 = l2$0[1],
         l1$1 = l1$0[2],
         a1 = l1$0[1],
-        accu$0 =
-           /*<<list.ml:146:42>>*/ [0,
-            /*<<list.ml:146:35>>*/ caml_call2(f, a1, a2),
-           accu];
+        accu$0 =  /*<<list.ml:146:35>>*/ [0, caml_call2(f, a1, a2), accu];
         /*<<list.ml:146:42>>*/ accu = accu$0;
        l1$0 = l1$1;
        l2$0 = l2$1;
@@ -3699,7 +3581,7 @@
      /*<<list.ml:165:2>>*/ if(l1){
      if(l2){
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
-       /*<<list.ml:167:58>>*/ return caml_call3
+       /*<<list.ml:167:32>>*/ return  /*<<list.ml:167:58>>*/ caml_call3
               (f,
                a1,
                a2,
@@ -3782,11 +3664,7 @@
      var
       l =  /*<<list.ml:190:12>>*/ param$0[2],
       a = param$0[1],
-      _B_ =
-         /*<<list.ml:192:23>>*/ 0
-         ===  /*<<list.ml:192:12>>*/ caml_compare(a, x)
-         ? 1
-         : 0;
+      _B_ =  /*<<list.ml:192:12>>*/ 0 === caml_compare(a, x) ? 1 : 0;
       /*<<list.ml:192:23>>*/ if(_B_) return _B_;
      param$0 = l;
     }
@@ -3813,8 +3691,7 @@
       match = param$0[1],
       b = match[2],
       a = match[1];
-      /*<<list.ml:200:30>>*/ if
-      (0 ===  /*<<list.ml:200:19>>*/ caml_compare(a, x))
+      /*<<list.ml:200:19>>*/ if(0 === caml_compare(a, x))
        /*<<list.ml:200:40>>*/ return b;
       /*<<list.ml:200:47>>*/ param$0 = l;
     }
@@ -3828,8 +3705,7 @@
       match = param$0[1],
       b = match[2],
       a = match[1];
-      /*<<list.ml:204:30>>*/ if
-      (0 ===  /*<<list.ml:204:19>>*/ caml_compare(a, x))
+      /*<<list.ml:204:19>>*/ if(0 === caml_compare(a, x))
        /*<<list.ml:204:40>>*/ return [0, b];
       /*<<list.ml:204:52>>*/ param$0 = l;
     }
@@ -3869,11 +3745,7 @@
      var
       l =  /*<<list.ml:214:18>>*/ param$0[2],
       a = param$0[1][1],
-      _z_ =
-         /*<<list.ml:216:30>>*/ 0
-         ===  /*<<list.ml:216:19>>*/ caml_compare(a, x)
-         ? 1
-         : 0;
+      _z_ =  /*<<list.ml:216:19>>*/ 0 === caml_compare(a, x) ? 1 : 0;
       /*<<list.ml:216:30>>*/ if(_z_) return _z_;
      param$0 = l;
     }
@@ -3893,8 +3765,7 @@
    function remove_assoc(x, param){
      /*<<list.ml:222:21>>*/ if(! param)  /*<<list.ml:223:10>>*/ return 0;
     var l =  /*<<list.ml:222:21>>*/ param[2], pair = param[1], a = pair[1];
-     /*<<list.ml:225:20>>*/ return 0
-            ===  /*<<list.ml:225:9>>*/ caml_compare(a, x)
+     /*<<list.ml:225:9>>*/ return 0 === caml_compare(a, x)
             ? l
             : [0, pair,  /*<<list.ml:225:45>>*/ remove_assoc(x, l)] /*<<list.ml:225:61>>*/ ;
    }
@@ -3911,7 +3782,7 @@
      if(! param$0)
        /*<<list.ml:232:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var l =  /*<<list.ml:231:13>>*/ param$0[2], x = param$0[1];
-      /*<<list.ml:233:20>>*/ if( /*<<list.ml:233:17>>*/ caml_call1(p, x))
+      /*<<list.ml:233:17>>*/ if(caml_call1(p, x))
        /*<<list.ml:233:26>>*/ return x;
       /*<<list.ml:233:33>>*/ param$0 = l;
     }
@@ -3921,7 +3792,7 @@
     for(;;){
      if(! param$0)  /*<<list.ml:236:10>>*/ return 0;
      var l =  /*<<list.ml:235:17>>*/ param$0[2], x = param$0[1];
-      /*<<list.ml:237:20>>*/ if( /*<<list.ml:237:17>>*/ caml_call1(p, x))
+      /*<<list.ml:237:17>>*/ if(caml_call1(p, x))
        /*<<list.ml:237:26>>*/ return [0, x];
       /*<<list.ml:237:38>>*/ param$0 = l;
     }
@@ -3933,7 +3804,7 @@
      for(;;){
        /*<<list.ml:240:14>>*/ if(! param)  /*<<list.ml:241:10>>*/ return 0;
       var l =  /*<<list.ml:240:14>>*/ param[2], a = param[1];
-       /*<<list.ml:242:20>>*/ if( /*<<list.ml:242:17>>*/ caml_call1(p, a))
+       /*<<list.ml:242:17>>*/ if(caml_call1(p, a))
         /*<<list.ml:242:26>>*/ return [0, i$0];
       var i$1 =  /*<<list.ml:242:38>>*/ i$0 + 1 | 0;
       i$0 = i$1;
@@ -3974,7 +3845,7 @@
     for(;;){
      if(! param$0)  /*<<list.ml:264:10>>*/ return 0;
      var l =  /*<<list.ml:263:33>>*/ param$0[2], x = param$0[1];
-      /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x)){
+      /*<<list.ml:265:17>>*/ if(caml_call1(p, x)){
       var
        block =  /*<<list.ml:265:26>>*/ [0, x, 24029],
        dst =  /*<<list.ml:265:31>>*/ block,
@@ -3986,7 +3857,7 @@
          /*<<list.ml:265:43>>*/ return block;
        }
        var l$0 =  /*<<list.ml:263:33>>*/ param$1[2], x$0 = param$1[1];
-        /*<<list.ml:265:20>>*/ if( /*<<list.ml:265:17>>*/ caml_call1(p, x$0)){
+        /*<<list.ml:265:17>>*/ if(caml_call1(p, x$0)){
         var dst$0 =  /*<<list.ml:265:26>>*/ [0, x$0, 24029];
         dst[1 + offset] = dst$0;
         dst = dst$0;
@@ -4009,8 +3880,7 @@
       l =  /*<<list.ml:269:32>>*/ param[2],
       x = param[1],
       i$0 =  /*<<list.ml:272:6>>*/ i + 1 | 0;
-      /*<<list.ml:273:14>>*/ if( /*<<list.ml:273:9>>*/ caml_call2(p, i, x))
-      break;
+      /*<<list.ml:273:9>>*/ if(caml_call2(p, i, x)) break;
       /*<<list.ml:273:45>>*/ i = i$0;
      param = l;
     }
@@ -4029,8 +3899,7 @@
       l$0 =  /*<<list.ml:269:32>>*/ param$0[2],
       x$0 = param$0[1],
       i$2 =  /*<<list.ml:272:6>>*/ i$1 + 1 | 0;
-      /*<<list.ml:273:14>>*/ if
-      ( /*<<list.ml:273:9>>*/ caml_call2(p, i$1, x$0)){
+      /*<<list.ml:273:9>>*/ if(caml_call2(p, i$1, x$0)){
       var dst$0 =  /*<<list.ml:273:20>>*/ [0, x$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -4129,9 +3998,7 @@
     var accu$0 =  /*<<list.ml:298:2>>*/ accu, l_accu = 0, param = l;
     for(;;){
       /*<<list.ml:293:14>>*/ if(! param)
-       /*<<list.ml:294:28>>*/ return [0,
-              accu$0,
-               /*<<list.ml:294:18>>*/ rev(l_accu)] /*<<list.ml:294:28>>*/ ;
+       /*<<list.ml:294:18>>*/ return [0, accu$0, rev(l_accu)] /*<<list.ml:294:28>>*/ ;
      var
       l$0 =  /*<<list.ml:293:14>>*/ param[2],
       x = param[1],
@@ -4149,12 +4016,10 @@
     for(;;){
       /*<<list.ml:301:15>>*/ if(! param){
       var _x_ =  /*<<list.ml:302:20>>*/ rev(no);
-       /*<<list.ml:302:18>>*/ return [0,
-               /*<<list.ml:302:11>>*/ rev(yes),
-              _x_] /*<<list.ml:302:18>>*/ ;
+       /*<<list.ml:302:11>>*/ return [0, rev(yes), _x_] /*<<list.ml:302:18>>*/ ;
      }
      var l$0 =  /*<<list.ml:301:15>>*/ param[2], x = param[1];
-      /*<<list.ml:303:20>>*/ if( /*<<list.ml:303:17>>*/ caml_call1(p, x)){
+      /*<<list.ml:303:17>>*/ if(caml_call1(p, x)){
       var yes$0 =  /*<<list.ml:303:26>>*/ [0, x, yes];
       yes = yes$0;
       param = l$0;
@@ -4171,9 +4036,7 @@
     for(;;){
       /*<<list.ml:307:15>>*/ if(! param){
       var _w_ =  /*<<list.ml:308:21>>*/ rev(right);
-       /*<<list.ml:308:19>>*/ return [0,
-               /*<<list.ml:308:11>>*/ rev(left),
-              _w_] /*<<list.ml:308:19>>*/ ;
+       /*<<list.ml:308:11>>*/ return [0, rev(left), _w_] /*<<list.ml:308:19>>*/ ;
      }
      var
       l$0 =  /*<<list.ml:307:15>>*/ param[2],
@@ -4209,9 +4072,7 @@
      /*<<list.ml:323:2>>*/ if(l1){
      if(l2){
       var l2$0 = l2[2], a2 = l2[1], l1$0 = l1[2], a1 = l1[1];
-       /*<<list.ml:325:49>>*/ return [0,
-              [0, a1, a2],
-               /*<<list.ml:325:36>>*/ combine(l1$0, l2$0)] /*<<list.ml:325:49>>*/ ;
+       /*<<list.ml:325:36>>*/ return [0, [0, a1, a2], combine(l1$0, l2$0)] /*<<list.ml:325:49>>*/ ;
      }
     }
     else if(! l2)  /*<<list.ml:324:16>>*/ return 0;
@@ -4221,8 +4082,7 @@
      /*<<list.ml:331:2>>*/ if(! l1)  /*<<list.ml:332:14>>*/ return l2;
      /*<<list.ml:331:2>>*/ if(! l2)  /*<<list.ml:333:14>>*/ return l1;
     var t2 =  /*<<list.ml:331:2>>*/ l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-     /*<<list.ml:335:18>>*/ return 0
-            <  /*<<list.ml:335:9>>*/ caml_call2(cmp, h1, h2)
+     /*<<list.ml:335:9>>*/ return 0 < caml_call2(cmp, h1, h2)
             ? [0, h2,  /*<<list.ml:337:17>>*/ merge(cmp, l1, t2)]
             : [0, h1,  /*<<list.ml:336:17>>*/ merge(cmp, t1, l2)] /*<<list.ml:337:32>>*/ ;
    }
@@ -4237,8 +4097,7 @@
          x2 = match[1],
          x1 = l[1],
          s =
-            /*<<list.ml:362:28>>*/ 0
-            <  /*<<list.ml:362:19>>*/ caml_call2(cmp, x1, x2)
+            /*<<list.ml:362:19>>*/ 0 < caml_call2(cmp, x1, x2)
             ? [0, x2, [0, x1, 0]]
             : [0, x1, [0, x2, 0]];
          /*<<list.ml:363:8>>*/ return [0, s, tl];
@@ -4256,8 +4115,7 @@
          x2$0 = _v_[1],
          x1$0 = l[1],
          s$0 =
-            /*<<list.ml:366:22>>*/ 0
-            <  /*<<list.ml:366:13>>*/ caml_call2(cmp, x1$0, x2$0)
+            /*<<list.ml:366:13>>*/ 0 < caml_call2(cmp, x1$0, x2$0)
             ? 0
               <  /*<<list.ml:370:18>>*/ caml_call2(cmp, x1$0, x3)
               ? 0
@@ -4292,8 +4150,7 @@
        /*<<list.ml:351:4>>*/ if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-         /*<<list.ml:355:20>>*/ if
-         (0 <  /*<<list.ml:355:11>>*/ caml_call2(cmp, h1, h2)){
+         /*<<list.ml:355:11>>*/ if(0 < caml_call2(cmp, h1, h2)){
          var accu$0 =  /*<<list.ml:356:13>>*/ [0, h1, accu];
          l1 = t1;
          accu = accu$0;
@@ -4321,8 +4178,7 @@
          x2 = match[1],
          x1 = l[1],
          s =
-            /*<<list.ml:384:28>>*/ 0
-            <  /*<<list.ml:384:19>>*/ caml_call2(cmp, x1, x2)
+            /*<<list.ml:384:19>>*/ 0 < caml_call2(cmp, x1, x2)
             ? [0, x1, [0, x2, 0]]
             : [0, x2, [0, x1, 0]];
          /*<<list.ml:385:8>>*/ return [0, s, tl];
@@ -4340,8 +4196,7 @@
          x2$0 = _t_[1],
          x1$0 = l[1],
          s$0 =
-            /*<<list.ml:388:22>>*/ 0
-            <  /*<<list.ml:388:13>>*/ caml_call2(cmp, x1$0, x2$0)
+            /*<<list.ml:388:13>>*/ 0 < caml_call2(cmp, x1$0, x2$0)
             ? 0
               <  /*<<list.ml:389:15>>*/ caml_call2(cmp, x2$0, x3)
               ? [0, x1$0, [0, x2$0, [0, x3, 0]]]
@@ -4376,8 +4231,7 @@
        /*<<list.ml:342:4>>*/ if(l1){
        if(l2){
         var t2 = l2[2], h2 = l2[1], t1 = l1[2], h1 = l1[1];
-         /*<<list.ml:346:20>>*/ if
-         (0 <  /*<<list.ml:346:11>>*/ caml_call2(cmp, h1, h2)){
+         /*<<list.ml:346:11>>*/ if(0 < caml_call2(cmp, h1, h2)){
          var accu$0 =  /*<<list.ml:348:13>>*/ [0, h2, accu];
          l2 = t2;
          accu = accu$0;
@@ -4861,12 +4715,10 @@
    }
    function to_string(x){ /*<<int.ml:52:35>>*/ return "" + x;}
    function seeded_hash(seed, x){
-     /*<<int.ml:56:56>>*/ return  /*<<int.ml:56:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
+     /*<<int.ml:56:25>>*/ return caml_hash(10, 100, seed, x) /*<<int.ml:56:56>>*/ ;
    }
    function hash(x){
-     /*<<int.ml:57:41>>*/ return  /*<<int.ml:57:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
+     /*<<int.ml:57:13>>*/ return caml_hash(10, 100, 0, x) /*<<int.ml:57:41>>*/ ;
    }
    var
     Stdlib_Int =
@@ -4949,11 +4801,11 @@
     var
      s =  /*<<bytes.ml:47:10>>*/ caml_create_bytes(n),
      _ap_ =  /*<<bytes.ml:48:2>>*/ n - 1 | 0,
-     _ao_ =  /*<<bytes.ml:47:18>>*/ 0;
-     /*<<bytes.ml:48:2>>*/ if(_ap_ >= 0){
+     _ao_ = 0;
+    if(_ap_ >= 0){
      var i = _ao_;
      for(;;){
-       /*<<bytes.ml:49:24>>*/ caml_bytes_unsafe_set
+       /*<<bytes.ml:49:19>>*/  /*<<bytes.ml:49:24>>*/ caml_bytes_unsafe_set
        (s, i,  /*<<bytes.ml:49:19>>*/ caml_call1(f, i));
       var _aq_ =  /*<<bytes.ml:49:24>>*/ i + 1 | 0;
       if(_ap_ === i) break;
@@ -4964,7 +4816,8 @@
     /*<<bytes.ml:51:3>>*/ }
    var
     empty =  /*<<bytes.ml:53:12>>*/ caml_create_bytes(0),
-    cst_String_sub_Bytes_sub =  /*<<?>>*/ "String.sub / Bytes.sub",
+    cst_String_sub_Bytes_sub =
+       /*<<bytes.ml:53:20>>*/ "String.sub / Bytes.sub",
     cst_Bytes_extend = "Bytes.extend",
     cst_String_fill_Bytes_fill = "String.fill / Bytes.fill",
     cst_Bytes_blit = "Bytes.blit",
@@ -4988,7 +4841,7 @@
      /*<<bytes.ml:58:25>>*/ return r;
     /*<<bytes.ml:59:3>>*/ }
    function to_string(b){
-     /*<<bytes.ml:61:43>>*/ return caml_string_of_bytes
+     /*<<bytes.ml:61:35>>*/ return  /*<<bytes.ml:61:43>>*/ caml_string_of_bytes
             ( /*<<bytes.ml:61:35>>*/ copy(b)) /*<<bytes.ml:61:43>>*/ ;
    }
    function of_string(s){
@@ -5005,7 +4858,7 @@
             (Stdlib[1], cst_String_sub_Bytes_sub) /*<<bytes.ml:71:5>>*/ ;
    }
    function sub_string(b, ofs, len){
-     /*<<bytes.ml:73:59>>*/ return caml_string_of_bytes
+     /*<<bytes.ml:73:44>>*/ return  /*<<bytes.ml:73:59>>*/ caml_string_of_bytes
             ( /*<<bytes.ml:73:44>>*/ sub(b, ofs, len)) /*<<bytes.ml:73:59>>*/ ;
    }
    function symbol(a, b){
@@ -5023,7 +4876,7 @@
    function extend(s, left, right){
     var
      len =
-        /*<<bytes.ml:84:12>>*/ symbol
+        /*<<bytes.ml:84:2>>*/  /*<<bytes.ml:84:12>>*/ symbol
         (symbol( /*<<bytes.ml:84:2>>*/ caml_ml_bytes_length(s), left), right),
      r =  /*<<bytes.ml:85:10>>*/ caml_create_bytes(len);
      /*<<bytes.ml:86:2>>*/ if(0 <= left)
@@ -5032,7 +4885,7 @@
      var dstoff =  /*<<bytes.ml:86:42>>*/ 0, srcoff = - left | 0;
     var
      cpylen =
-        /*<<bytes.ml:87:15>>*/ caml_call2
+        /*<<bytes.ml:87:2>>*/  /*<<bytes.ml:87:15>>*/ caml_call2
         (Stdlib_Int[10],
           /*<<bytes.ml:87:2>>*/ caml_ml_bytes_length(s) - srcoff | 0,
          len - dstoff | 0);
@@ -5043,8 +4896,7 @@
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(s) - len | 0) >= ofs)
-      /*<<bytes.ml:94:30>>*/ return  /*<<bytes.ml:94:7>>*/ caml_fill_bytes
-             (s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
+      /*<<bytes.ml:94:7>>*/ return caml_fill_bytes(s, ofs, len, c) /*<<bytes.ml:94:30>>*/ ;
      /*<<bytes.ml:93:7>>*/ return caml_call1
             (Stdlib[1], cst_String_fill_Bytes_fill) /*<<bytes.ml:94:30>>*/ ;
    }
@@ -5056,8 +4908,7 @@
        &&
         (caml_ml_bytes_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
-      /*<<bytes.ml:100:38>>*/ return  /*<<bytes.ml:100:7>>*/ caml_blit_bytes
-             (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
+      /*<<bytes.ml:100:7>>*/ return caml_blit_bytes(s1, ofs1, s2, ofs2, len) /*<<bytes.ml:100:38>>*/ ;
      /*<<bytes.ml:99:7>>*/ return caml_call1(Stdlib[1], cst_Bytes_blit) /*<<bytes.ml:100:38>>*/ ;
    }
    function blit_string(s1, ofs1, s2, ofs2, len){
@@ -5068,7 +4919,7 @@
        &&
         (runtime.caml_ml_string_length(s1) - len | 0) >= ofs1
         && 0 <= ofs2 && (caml_ml_bytes_length(s2) - len | 0) >= ofs2)
-      /*<<bytes.ml:106:45>>*/ return  /*<<bytes.ml:106:7>>*/ runtime.caml_blit_string
+      /*<<bytes.ml:106:7>>*/ return runtime.caml_blit_string
              (s1, ofs1, s2, ofs2, len) /*<<bytes.ml:106:45>>*/ ;
      /*<<bytes.ml:105:7>>*/ return caml_call1
             (Stdlib[1], cst_String_blit_Bytes_blit_str) /*<<bytes.ml:106:45>>*/ ;
@@ -5110,11 +4961,8 @@
     {
      b:
      {
-      var
-       acc =  /*<<bytes.ml:136:20>>*/ 0,
-       param = l,
-       pos$1 =  /*<<bytes.ml:135:10>>*/ 0;
-       /*<<bytes.ml:136:20>>*/ for(;;){
+      var acc =  /*<<bytes.ml:136:20>>*/ 0, param = l, pos$1 = 0;
+      for(;;){
         /*<<bytes.ml:118:20>>*/ if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
@@ -5152,7 +5000,7 @@
      var tl$0 =  /*<<bytes.ml:123:21>>*/ param$0[2];
       /*<<bytes.ml:128:4>>*/ caml_blit_bytes
       (hd$0, 0, dst, pos, caml_ml_bytes_length(hd$0));
-      /*<<bytes.ml:129:4>>*/ caml_blit_bytes
+      /*<<bytes.ml:128:40>>*/  /*<<bytes.ml:129:4>>*/ caml_blit_bytes
       (sep,
        0,
        dst,
@@ -5191,7 +5039,7 @@
      i =  /*<<bytes.ml:157:2>>*/ [0, 0];
      /*<<bytes.ml:158:2>>*/ for(;;){
      if(i[1] >= len) break;
-      /*<<bytes.ml:158:46>>*/ if
+     if
       (!
         /*<<bytes.ml:158:20>>*/ is_space
         ( /*<<bytes.ml:158:2>>*/ caml_bytes_unsafe_get(s, i[1])))
@@ -5214,8 +5062,8 @@
     var
      n =  /*<<bytes.ml:184:2>>*/ [0, 0],
      ___ =  /*<<bytes.ml:185:2>>*/ caml_ml_bytes_length(s) - 1 | 0,
-     _Z_ =  /*<<bytes.ml:184:2>>*/ 0;
-     /*<<bytes.ml:185:2>>*/ if(___ >= 0){
+     _Z_ = 0;
+    if(___ >= 0){
      var i$0 = _Z_;
      for(;;){
       var match =  /*<<bytes.ml:186:4>>*/ caml_bytes_unsafe_get(s, i$0);
@@ -5336,11 +5184,11 @@
     var
      r =  /*<<bytes.ml:233:12>>*/ caml_create_bytes(l),
      _X_ =  /*<<bytes.ml:234:4>>*/ l - 1 | 0,
-     _W_ =  /*<<bytes.ml:233:20>>*/ 0;
-     /*<<bytes.ml:234:4>>*/ if(_X_ >= 0){
+     _W_ = 0;
+    if(_X_ >= 0){
      var i = _W_;
      for(;;){
-       /*<<bytes.ml:234:61>>*/ caml_bytes_unsafe_set
+       /*<<bytes.ml:234:26>>*/  /*<<bytes.ml:234:61>>*/ caml_bytes_unsafe_set
        (r,
         i,
          /*<<bytes.ml:234:41>>*/ caml_call1
@@ -5358,11 +5206,11 @@
     var
      r =  /*<<bytes.ml:241:12>>*/ caml_create_bytes(l),
      _U_ =  /*<<bytes.ml:242:4>>*/ l - 1 | 0,
-     _T_ =  /*<<bytes.ml:241:20>>*/ 0;
-     /*<<bytes.ml:242:4>>*/ if(_U_ >= 0){
+     _T_ = 0;
+    if(_U_ >= 0){
      var i = _T_;
      for(;;){
-       /*<<bytes.ml:242:63>>*/ caml_bytes_unsafe_set
+       /*<<bytes.ml:242:26>>*/  /*<<bytes.ml:242:63>>*/ caml_bytes_unsafe_set
        (r,
         i,
          /*<<bytes.ml:242:41>>*/ caml_call2
@@ -5378,11 +5226,11 @@
     var
      r =  /*<<bytes.ml:247:2>>*/ [0, x],
      _R_ =  /*<<bytes.ml:248:2>>*/ caml_ml_bytes_length(a) - 1 | 0,
-     _Q_ =  /*<<bytes.ml:247:2>>*/ 0;
-     /*<<bytes.ml:248:2>>*/ if(_R_ >= 0){
+     _Q_ = 0;
+    if(_R_ >= 0){
      var i = _Q_;
      for(;;){
-       /*<<bytes.ml:249:30>>*/ r[1] =
+       /*<<bytes.ml:249:4>>*/ r[1] =
         /*<<bytes.ml:249:9>>*/ caml_call2
         (f, r[1],  /*<<bytes.ml:249:4>>*/ caml_bytes_unsafe_get(a, i));
       var _S_ =  /*<<bytes.ml:249:30>>*/ i + 1 | 0;
@@ -5399,7 +5247,7 @@
     if(_O_ >= 0){
      var i = _O_;
      for(;;){
-       /*<<bytes.ml:256:30>>*/ r[1] =
+       /*<<bytes.ml:256:4>>*/ r[1] =
         /*<<bytes.ml:256:9>>*/ caml_call2
         (f,  /*<<bytes.ml:256:4>>*/ caml_bytes_unsafe_get(a, i), r[1]);
       var _P_ =  /*<<bytes.ml:256:30>>*/ i - 1 | 0;
@@ -5415,7 +5263,7 @@
      i =  /*<<bytes.ml:266:2>>*/ 0;
     for(;;){
       /*<<bytes.ml:263:4>>*/ if(i === n)  /*<<bytes.ml:263:18>>*/ return 0;
-      /*<<bytes.ml:264:30>>*/ if
+      /*<<bytes.ml:264:9>>*/ if
       ( /*<<bytes.ml:264:12>>*/ caml_call1
         (p,  /*<<bytes.ml:264:9>>*/ caml_bytes_unsafe_get(s, i)))
        /*<<bytes.ml:264:36>>*/ return 1;
@@ -5429,7 +5277,7 @@
      i =  /*<<bytes.ml:274:2>>*/ 0;
     for(;;){
       /*<<bytes.ml:271:4>>*/ if(i === n)  /*<<bytes.ml:271:18>>*/ return 1;
-      /*<<bytes.ml:272:30>>*/ if
+      /*<<bytes.ml:272:9>>*/ if
       (!
         /*<<bytes.ml:272:12>>*/ caml_call1
         (p,  /*<<bytes.ml:272:9>>*/ caml_bytes_unsafe_get(s, i)))
@@ -5448,7 +5296,7 @@
      /*<<bytes.ml:280:2>>*/ if(0 === caml_ml_bytes_length(s))
       /*<<bytes.ml:280:23>>*/ return s;
     var r =  /*<<bytes.ml:281:12>>*/ copy(s);
-     /*<<bytes.ml:282:38>>*/ caml_bytes_unsafe_set
+     /*<<bytes.ml:282:4>>*/  /*<<bytes.ml:282:38>>*/ caml_bytes_unsafe_set
      (r,
       0,
        /*<<bytes.ml:282:19>>*/ caml_call1
@@ -5617,8 +5465,7 @@
    }
    var
     compare =  /*<<bytes.ml:53:20>>*/ runtime.caml_bytes_compare,
-    cst_Bytes_of_seq_cannot_grow_b =
-       /*<<?>>*/ "Bytes.of_seq: cannot grow bytes";
+    cst_Bytes_of_seq_cannot_grow_b = "Bytes.of_seq: cannot grow bytes";
    function split_on_char(sep, s){
     var
      r =  /*<<bytes.ml:398:2>>*/ [0, 0],
@@ -5628,11 +5475,8 @@
      var i = _C_;
      for(;;){
        /*<<bytes.ml:401:4>>*/ if(caml_bytes_unsafe_get(s, i) === sep){
-       var _E_ =  /*<<bytes.ml:401:33>>*/ r[1];
-        /*<<bytes.ml:402:37>>*/ r[1] =
-        [0,
-          /*<<bytes.ml:402:11>>*/ sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
-         _E_];
+       var _E_ =  /*<<bytes.ml:402:11>>*/ r[1];
+       r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _E_];
         /*<<bytes.ml:403:6>>*/ j[1] = i;
       }
       var _F_ =  /*<<bytes.ml:401:4>>*/ i - 1 | 0;
@@ -5641,9 +5485,7 @@
      }
     }
     var _D_ =  /*<<bytes.ml:406:2>>*/ r[1];
-     /*<<bytes.ml:406:12>>*/ return [0,
-             /*<<bytes.ml:406:2>>*/ sub(s, 0, j[1]),
-            _D_] /*<<bytes.ml:406:12>>*/ ;
+    return [0, sub(s, 0, j[1]), _D_] /*<<bytes.ml:406:12>>*/ ;
     /*<<bytes.ml:406:18>>*/ }
    function to_seq(s){
     function aux(i, param){
@@ -5651,7 +5493,7 @@
        /*<<bytes.ml:412:25>>*/ return 0;
      var
       x =  /*<<bytes.ml:414:14>>*/ caml_bytes_get(s, i),
-      _A_ =  /*<<bytes.ml:415:6>>*/ i + 1 | 0;
+      _A_ =  /*<<bytes.ml:415:19>>*/ i + 1 | 0;
       /*<<bytes.ml:415:28>>*/ return [0,
              x,
              function(_B_){ /*<<bytes.ml:415:19>>*/ return aux(_A_, _B_);}] /*<<bytes.ml:415:28>>*/ ;
@@ -5666,7 +5508,7 @@
        /*<<bytes.ml:421:25>>*/ return 0;
      var
       x =  /*<<bytes.ml:423:14>>*/ caml_bytes_get(s, i),
-      _w_ =  /*<<bytes.ml:424:6>>*/ i + 1 | 0;
+      _w_ =  /*<<bytes.ml:424:23>>*/ i + 1 | 0;
       /*<<bytes.ml:424:32>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<bytes.ml:424:23>>*/ return aux(_w_, _x_);}] /*<<bytes.ml:424:32>>*/ ;
@@ -5678,14 +5520,14 @@
    function of_seq(i){
     var
      n =  /*<<bytes.ml:429:2>>*/ [0, 0],
-     buf =  /*<<bytes.ml:430:33>>*/ [0,  /*<<bytes.ml:430:16>>*/ make(256, 0)];
+     buf =  /*<<bytes.ml:430:16>>*/ [0, make(256, 0)];
      /*<<bytes.ml:439:2>>*/ caml_call2
      (Stdlib_Seq[4],
       function(c){
         /*<<bytes.ml:441:7>>*/ if(n[1] === caml_ml_bytes_length(buf[1])){
         var
          new_len =
-            /*<<bytes.ml:433:18>>*/ caml_call2
+            /*<<bytes.ml:433:4>>*/  /*<<bytes.ml:433:18>>*/ caml_call2
             (Stdlib_Int[10],
              2 *  /*<<bytes.ml:433:4>>*/ caml_ml_bytes_length(buf[1]) | 0,
              Stdlib_Sys[12]);
@@ -5717,12 +5559,9 @@
    }
    function get_int8(b, i){
     var
-     _s_ =  /*<<bytes.ml:480:2>>*/ Stdlib_Sys[10] - 8 | 0,
+     _s_ =  /*<<bytes.ml:480:3>>*/ Stdlib_Sys[10] - 8 | 0,
      _t_ = Stdlib_Sys[10] - 8 | 0;
-     /*<<bytes.ml:480:18>>*/ return  /*<<bytes.ml:480:3>>*/ caml_bytes_get
-            (b, i)
-           << _t_
-           >> _s_ /*<<bytes.ml:480:18>>*/ ;
+    return caml_bytes_get(b, i) << _t_ >> _s_ /*<<bytes.ml:480:18>>*/ ;
     /*<<bytes.ml:480:65>>*/ }
    function get_uint16_le(b, i){
      /*<<bytes.ml:483:2>>*/ return Stdlib_Sys[11]
@@ -5738,30 +5577,21 @@
    }
    function get_int16_ne(b, i){
     var
-     _q_ =  /*<<bytes.ml:491:2>>*/ Stdlib_Sys[10] - 16 | 0,
+     _q_ =  /*<<bytes.ml:491:3>>*/ Stdlib_Sys[10] - 16 | 0,
      _r_ = Stdlib_Sys[10] - 16 | 0;
-     /*<<bytes.ml:491:22>>*/ return  /*<<bytes.ml:491:3>>*/ caml_bytes_get16
-            (b, i)
-           << _r_
-           >> _q_ /*<<bytes.ml:491:22>>*/ ;
+    return caml_bytes_get16(b, i) << _r_ >> _q_ /*<<bytes.ml:491:22>>*/ ;
     /*<<bytes.ml:491:71>>*/ }
    function get_int16_le(b, i){
     var
-     _o_ =  /*<<bytes.ml:494:2>>*/ Stdlib_Sys[10] - 16 | 0,
+     _o_ =  /*<<bytes.ml:494:3>>*/ Stdlib_Sys[10] - 16 | 0,
      _p_ = Stdlib_Sys[10] - 16 | 0;
-     /*<<bytes.ml:494:22>>*/ return  /*<<bytes.ml:494:3>>*/ get_uint16_le
-            (b, i)
-           << _p_
-           >> _o_ /*<<bytes.ml:494:22>>*/ ;
+    return get_uint16_le(b, i) << _p_ >> _o_ /*<<bytes.ml:494:22>>*/ ;
     /*<<bytes.ml:494:71>>*/ }
    function get_int16_be(b, i){
     var
-     _m_ =  /*<<bytes.ml:497:2>>*/ Stdlib_Sys[10] - 16 | 0,
+     _m_ =  /*<<bytes.ml:497:3>>*/ Stdlib_Sys[10] - 16 | 0,
      _n_ = Stdlib_Sys[10] - 16 | 0;
-     /*<<bytes.ml:497:22>>*/ return  /*<<bytes.ml:497:3>>*/ get_uint16_be
-            (b, i)
-           << _n_
-           >> _m_ /*<<bytes.ml:497:22>>*/ ;
+    return get_uint16_be(b, i) << _n_ >> _m_ /*<<bytes.ml:497:22>>*/ ;
     /*<<bytes.ml:497:71>>*/ }
    function get_int32_le(b, i){
      /*<<bytes.ml:500:2>>*/ return Stdlib_Sys[11]
@@ -5839,7 +5669,7 @@
     set_uint8 =  /*<<bytes.ml:53:20>>*/ caml_bytes_set,
     set_uint16_ne = caml_bytes_set16,
     dec_invalid = Stdlib_Uchar[22],
-    _a_ =  /*<<?>>*/ [0, cst_bytes_ml, 679, 9],
+    _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,
     cst_index_out_of_bounds$0 = cst_index_out_of_bounds$3,
@@ -5894,15 +5724,13 @@
            /*<<bytes.ml:619:23>>*/ if(max < i$0)
             /*<<bytes.ml:619:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$4 =  /*<<bytes.ml:620:15>>*/ caml_bytes_unsafe_get(b, i$0);
-           /*<<bytes.ml:620:49>>*/ if
-           ( /*<<bytes.ml:620:29>>*/ not_in_x80_to_x9F(b1$4))
+           /*<<bytes.ml:620:29>>*/ if(not_in_x80_to_x9F(b1$4))
             /*<<bytes.ml:620:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$1 =  /*<<bytes.ml:621:6>>*/ i$0 + 1 | 0;
            /*<<bytes.ml:621:23>>*/ if(max < i$1)
             /*<<bytes.ml:621:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$3 =  /*<<bytes.ml:622:15>>*/ caml_bytes_unsafe_get(b, i$1);
-           /*<<bytes.ml:622:49>>*/ return  /*<<bytes.ml:622:29>>*/ not_in_x80_to_xBF
-                   (b2$3)
+           /*<<bytes.ml:622:29>>*/ return not_in_x80_to_xBF(b2$3)
                   ?  /*<<bytes.ml:622:55>>*/ caml_call1(dec_invalid, 2)
                   :  /*<<bytes.ml:623:40>>*/ dec_ret
                     (3,  /*<<bytes.ml:623:16>>*/ utf_8_uchar_3(b0, b1$4, b2$3)) /*<<bytes.ml:648:22>>*/ ;
@@ -5911,22 +5739,19 @@
            /*<<bytes.ml:625:23>>*/ if(max < i$4)
             /*<<bytes.ml:625:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$2 =  /*<<bytes.ml:626:15>>*/ caml_bytes_unsafe_get(b, i$4);
-           /*<<bytes.ml:626:49>>*/ if
-           ( /*<<bytes.ml:626:29>>*/ not_in_x90_to_xBF(b1$2))
+           /*<<bytes.ml:626:29>>*/ if(not_in_x90_to_xBF(b1$2))
             /*<<bytes.ml:626:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$5 =  /*<<bytes.ml:627:6>>*/ i$4 + 1 | 0;
            /*<<bytes.ml:627:23>>*/ if(max < i$5)
             /*<<bytes.ml:627:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$1 =  /*<<bytes.ml:628:15>>*/ caml_bytes_unsafe_get(b, i$5);
-           /*<<bytes.ml:628:49>>*/ if
-           ( /*<<bytes.ml:628:29>>*/ not_in_x80_to_xBF(b2$1))
+           /*<<bytes.ml:628:29>>*/ if(not_in_x80_to_xBF(b2$1))
             /*<<bytes.ml:628:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$6 =  /*<<bytes.ml:629:6>>*/ i$5 + 1 | 0;
            /*<<bytes.ml:629:23>>*/ if(max < i$6)
             /*<<bytes.ml:629:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$1 =  /*<<bytes.ml:630:15>>*/ caml_bytes_unsafe_get(b, i$6);
-           /*<<bytes.ml:630:49>>*/ return  /*<<bytes.ml:630:29>>*/ not_in_x80_to_xBF
-                   (b3$1)
+           /*<<bytes.ml:630:29>>*/ return not_in_x80_to_xBF(b3$1)
                   ?  /*<<bytes.ml:630:55>>*/ caml_call1(dec_invalid, 3)
                   :  /*<<bytes.ml:631:43>>*/ dec_ret
                     (4,
@@ -5936,22 +5761,19 @@
            /*<<bytes.ml:641:23>>*/ if(max < i$10)
             /*<<bytes.ml:641:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$0 =  /*<<bytes.ml:642:15>>*/ caml_bytes_unsafe_get(b, i$10);
-           /*<<bytes.ml:642:49>>*/ if
-           ( /*<<bytes.ml:642:29>>*/ not_in_x80_to_x8F(b1$0))
+           /*<<bytes.ml:642:29>>*/ if(not_in_x80_to_x8F(b1$0))
             /*<<bytes.ml:642:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$11 =  /*<<bytes.ml:643:6>>*/ i$10 + 1 | 0;
            /*<<bytes.ml:643:23>>*/ if(max < i$11)
             /*<<bytes.ml:643:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2 =  /*<<bytes.ml:644:15>>*/ caml_bytes_unsafe_get(b, i$11);
-           /*<<bytes.ml:644:49>>*/ if
-           ( /*<<bytes.ml:644:29>>*/ not_in_x80_to_xBF(b2))
+           /*<<bytes.ml:644:29>>*/ if(not_in_x80_to_xBF(b2))
             /*<<bytes.ml:644:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$12 =  /*<<bytes.ml:645:6>>*/ i$11 + 1 | 0;
            /*<<bytes.ml:645:23>>*/ if(max < i$12)
             /*<<bytes.ml:645:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3 =  /*<<bytes.ml:646:15>>*/ caml_bytes_unsafe_get(b, i$12);
-           /*<<bytes.ml:646:49>>*/ return  /*<<bytes.ml:646:29>>*/ not_in_x80_to_xBF
-                   (b3)
+           /*<<bytes.ml:646:29>>*/ return not_in_x80_to_xBF(b3)
                   ?  /*<<bytes.ml:646:55>>*/ caml_call1(dec_invalid, 3)
                   :  /*<<bytes.ml:647:43>>*/ dec_ret
                     (4,
@@ -5963,22 +5785,19 @@
            /*<<bytes.ml:633:23>>*/ if(max < i$7)
             /*<<bytes.ml:633:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var b1$1 =  /*<<bytes.ml:634:15>>*/ caml_bytes_unsafe_get(b, i$7);
-           /*<<bytes.ml:634:49>>*/ if
-           ( /*<<bytes.ml:634:29>>*/ not_in_x80_to_xBF(b1$1))
+           /*<<bytes.ml:634:29>>*/ if(not_in_x80_to_xBF(b1$1))
             /*<<bytes.ml:634:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
           var i$8 =  /*<<bytes.ml:635:6>>*/ i$7 + 1 | 0;
            /*<<bytes.ml:635:23>>*/ if(max < i$8)
             /*<<bytes.ml:635:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var b2$0 =  /*<<bytes.ml:636:15>>*/ caml_bytes_unsafe_get(b, i$8);
-           /*<<bytes.ml:636:49>>*/ if
-           ( /*<<bytes.ml:636:29>>*/ not_in_x80_to_xBF(b2$0))
+           /*<<bytes.ml:636:29>>*/ if(not_in_x80_to_xBF(b2$0))
             /*<<bytes.ml:636:55>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
           var i$9 =  /*<<bytes.ml:637:6>>*/ i$8 + 1 | 0;
            /*<<bytes.ml:637:23>>*/ if(max < i$9)
             /*<<bytes.ml:637:39>>*/ return caml_call1(dec_invalid, 3) /*<<bytes.ml:648:22>>*/ ;
           var b3$0 =  /*<<bytes.ml:638:15>>*/ caml_bytes_unsafe_get(b, i$9);
-           /*<<bytes.ml:638:49>>*/ return  /*<<bytes.ml:638:29>>*/ not_in_x80_to_xBF
-                   (b3$0)
+           /*<<bytes.ml:638:29>>*/ return not_in_x80_to_xBF(b3$0)
                   ?  /*<<bytes.ml:638:55>>*/ caml_call1(dec_invalid, 3)
                   :  /*<<bytes.ml:639:43>>*/ dec_ret
                     (4,
@@ -5990,15 +5809,13 @@
         /*<<bytes.ml:607:23>>*/ if(max < i$13)
          /*<<bytes.ml:607:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var b1$5 =  /*<<bytes.ml:608:15>>*/ caml_bytes_unsafe_get(b, i$13);
-        /*<<bytes.ml:608:49>>*/ if
-        ( /*<<bytes.ml:608:29>>*/ not_in_xA0_to_xBF(b1$5))
+        /*<<bytes.ml:608:29>>*/ if(not_in_xA0_to_xBF(b1$5))
          /*<<bytes.ml:608:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
        var i$14 =  /*<<bytes.ml:609:6>>*/ i$13 + 1 | 0;
         /*<<bytes.ml:609:23>>*/ if(max < i$14)
          /*<<bytes.ml:609:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
        var b2$4 =  /*<<bytes.ml:610:15>>*/ caml_bytes_unsafe_get(b, i$14);
-        /*<<bytes.ml:610:49>>*/ return  /*<<bytes.ml:610:29>>*/ not_in_x80_to_xBF
-                (b2$4)
+        /*<<bytes.ml:610:29>>*/ return not_in_x80_to_xBF(b2$4)
                ?  /*<<bytes.ml:610:55>>*/ caml_call1(dec_invalid, 2)
                :  /*<<bytes.ml:611:40>>*/ dec_ret
                  (3,  /*<<bytes.ml:611:16>>*/ utf_8_uchar_3(b0, b1$5, b2$4)) /*<<bytes.ml:648:22>>*/ ;
@@ -6007,15 +5824,13 @@
        /*<<bytes.ml:613:23>>*/ if(max < i$2)
         /*<<bytes.ml:613:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1$3 =  /*<<bytes.ml:614:15>>*/ caml_bytes_unsafe_get(b, i$2);
-       /*<<bytes.ml:614:49>>*/ if
-       ( /*<<bytes.ml:614:29>>*/ not_in_x80_to_xBF(b1$3))
+       /*<<bytes.ml:614:29>>*/ if(not_in_x80_to_xBF(b1$3))
         /*<<bytes.ml:614:55>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var i$3 =  /*<<bytes.ml:615:6>>*/ i$2 + 1 | 0;
        /*<<bytes.ml:615:23>>*/ if(max < i$3)
         /*<<bytes.ml:615:39>>*/ return caml_call1(dec_invalid, 2) /*<<bytes.ml:648:22>>*/ ;
       var b2$2 =  /*<<bytes.ml:616:15>>*/ caml_bytes_unsafe_get(b, i$3);
-       /*<<bytes.ml:616:49>>*/ return  /*<<bytes.ml:616:29>>*/ not_in_x80_to_xBF
-               (b2$2)
+       /*<<bytes.ml:616:29>>*/ return not_in_x80_to_xBF(b2$2)
               ?  /*<<bytes.ml:616:55>>*/ caml_call1(dec_invalid, 2)
               :  /*<<bytes.ml:617:40>>*/ dec_ret
                 (3,  /*<<bytes.ml:617:16>>*/ utf_8_uchar_3(b0, b1$3, b2$2)) /*<<bytes.ml:648:22>>*/ ;
@@ -6027,8 +5842,7 @@
        /*<<bytes.ml:603:23>>*/ if(max < i$15)
         /*<<bytes.ml:603:39>>*/ return caml_call1(dec_invalid, 1) /*<<bytes.ml:648:22>>*/ ;
       var b1 =  /*<<bytes.ml:604:15>>*/ caml_bytes_unsafe_get(b, i$15);
-       /*<<bytes.ml:604:49>>*/ return  /*<<bytes.ml:604:29>>*/ not_in_x80_to_xBF
-               (b1)
+       /*<<bytes.ml:604:29>>*/ return not_in_x80_to_xBF(b1)
               ?  /*<<bytes.ml:604:55>>*/ caml_call1(dec_invalid, 1)
               :  /*<<bytes.ml:605:37>>*/ dec_ret(2, (b0 & 31) << 6 | b1 & 63) /*<<bytes.ml:648:22>>*/ ;
      }
@@ -6531,17 +6345,17 @@
     bts = Stdlib_Bytes[44],
     bos = Stdlib_Bytes[45];
    function make(n, c){
-     /*<<string.ml:36:12>>*/ return caml_call1
+     /*<<string.ml:36:2>>*/ return  /*<<string.ml:36:12>>*/ caml_call1
             (bts,  /*<<string.ml:36:2>>*/ caml_call2(Stdlib_Bytes[1], n, c)) /*<<string.ml:36:19>>*/ ;
    }
    function init(n, f){
-     /*<<string.ml:38:12>>*/ return caml_call1
+     /*<<string.ml:38:2>>*/ return  /*<<string.ml:38:12>>*/ caml_call1
             (bts,  /*<<string.ml:38:2>>*/ caml_call2(Stdlib_Bytes[2], n, f)) /*<<string.ml:38:19>>*/ ;
    }
    var of_bytes =  /*<<?>>*/ Stdlib_Bytes[6], to_bytes = Stdlib_Bytes[5];
    function sub(s, ofs, len){
     var _X_ =  /*<<string.ml:43:8>>*/ caml_call1(bos, s);
-     /*<<string.ml:43:23>>*/ return caml_call1
+     /*<<string.ml:43:2>>*/ return  /*<<string.ml:43:23>>*/ caml_call1
             (bts,
               /*<<string.ml:43:2>>*/ caml_call3
               (Stdlib_Bytes[7], _X_, ofs, len)) /*<<string.ml:43:30>>*/ ;
@@ -6556,11 +6370,8 @@
     {
      b:
      {
-      var
-       acc =  /*<<string.ml:67:22>>*/ 0,
-       param = l,
-       pos$1 =  /*<<string.ml:65:36>>*/ 0;
-       /*<<string.ml:67:22>>*/ for(;;){
+      var acc =  /*<<string.ml:67:22>>*/ 0, param = l, pos$1 = 0;
+      for(;;){
         /*<<string.ml:49:20>>*/ if(! param) break;
        var hd = param[1];
        if(! param[2]) break b;
@@ -6593,7 +6404,7 @@
        var tl$0 = param$0[2];
         /*<<string.ml:59:4>>*/ caml_blit_string
         (hd$0, 0, dst, pos, caml_ml_string_length(hd$0));
-        /*<<string.ml:60:4>>*/ caml_blit_string
+        /*<<string.ml:59:40>>*/  /*<<string.ml:60:4>>*/ caml_blit_string
         (sep,
          0,
          dst,
@@ -6658,13 +6469,13 @@
     /*<<string.ml:78:56>>*/ }
    function map(f, s){
     var _P_ =  /*<<string.ml:81:10>>*/ caml_call1(bos, s);
-     /*<<string.ml:81:17>>*/ return caml_call1
+     /*<<string.ml:81:2>>*/ return  /*<<string.ml:81:17>>*/ caml_call1
             (bts,
               /*<<string.ml:81:2>>*/ caml_call2(Stdlib_Bytes[17], f, _P_)) /*<<string.ml:81:24>>*/ ;
    }
    function mapi(f, s){
     var _O_ =  /*<<string.ml:83:11>>*/ caml_call1(bos, s);
-     /*<<string.ml:83:18>>*/ return caml_call1
+     /*<<string.ml:83:2>>*/ return  /*<<string.ml:83:18>>*/ caml_call1
             (bts,
               /*<<string.ml:83:2>>*/ caml_call2(Stdlib_Bytes[18], f, _O_)) /*<<string.ml:83:25>>*/ ;
    }
@@ -6696,7 +6507,7 @@
    function trim(s){
      /*<<string.ml:102:11>>*/ if(s === cst$0)
       /*<<string.ml:102:17>>*/ return s;
-     /*<<string.ml:103:35>>*/ if
+     /*<<string.ml:103:7>>*/ if
      (!
        /*<<string.ml:103:10>>*/ is_space
        ( /*<<string.ml:103:7>>*/ caml_string_unsafe_get(s, 0))
@@ -6707,12 +6518,12 @@
           (s, caml_ml_string_length(s) - 1 | 0)))
       /*<<string.ml:105:7>>*/ return s;
     var _I_ =  /*<<string.ml:104:21>>*/ caml_call1(bos, s);
-     /*<<string.ml:104:29>>*/ return caml_call1
+     /*<<string.ml:104:13>>*/ return  /*<<string.ml:104:29>>*/ caml_call1
             (bts,  /*<<string.ml:104:13>>*/ caml_call1(Stdlib_Bytes[23], _I_)) /*<<string.ml:105:8>>*/ ;
    }
    function escaped(s){
     var b =  /*<<string.ml:108:10>>*/ caml_call1(bos, s);
-     /*<<string.ml:111:25>>*/ return caml_call1
+     /*<<string.ml:111:6>>*/ return  /*<<string.ml:111:25>>*/ caml_call1
             (bts,  /*<<string.ml:111:6>>*/ caml_call1(Stdlib_Bytes[87], b)) /*<<string.ml:111:25>>*/ ;
    }
    function index_rec(s, lim, i, c){
@@ -6837,22 +6648,22 @@
    }
    function uppercase_ascii(s){
     var _B_ =  /*<<string.ml:192:20>>*/ caml_call1(bos, s);
-     /*<<string.ml:192:27>>*/ return caml_call1
+     /*<<string.ml:192:2>>*/ return  /*<<string.ml:192:27>>*/ caml_call1
             (bts,  /*<<string.ml:192:2>>*/ caml_call1(Stdlib_Bytes[36], _B_)) /*<<string.ml:192:34>>*/ ;
    }
    function lowercase_ascii(s){
     var _A_ =  /*<<string.ml:194:20>>*/ caml_call1(bos, s);
-     /*<<string.ml:194:27>>*/ return caml_call1
+     /*<<string.ml:194:2>>*/ return  /*<<string.ml:194:27>>*/ caml_call1
             (bts,  /*<<string.ml:194:2>>*/ caml_call1(Stdlib_Bytes[37], _A_)) /*<<string.ml:194:34>>*/ ;
    }
    function capitalize_ascii(s){
     var _z_ =  /*<<string.ml:196:21>>*/ caml_call1(bos, s);
-     /*<<string.ml:196:28>>*/ return caml_call1
+     /*<<string.ml:196:2>>*/ return  /*<<string.ml:196:28>>*/ caml_call1
             (bts,  /*<<string.ml:196:2>>*/ caml_call1(Stdlib_Bytes[38], _z_)) /*<<string.ml:196:35>>*/ ;
    }
    function uncapitalize_ascii(s){
     var _y_ =  /*<<string.ml:198:23>>*/ caml_call1(bos, s);
-     /*<<string.ml:198:30>>*/ return caml_call1
+     /*<<string.ml:198:2>>*/ return  /*<<string.ml:198:30>>*/ caml_call1
             (bts,  /*<<string.ml:198:2>>*/ caml_call1(Stdlib_Bytes[39], _y_)) /*<<string.ml:198:37>>*/ ;
    }
    function starts_with(prefix, s){
@@ -6892,8 +6703,7 @@
     }
     /*<<string.ml:219:23>>*/ }
    function hash(x){
-     /*<<string.ml:222:28>>*/ return  /*<<string.ml:222:13>>*/ caml_string_hash
-            (0, x) /*<<string.ml:222:28>>*/ ;
+     /*<<string.ml:222:13>>*/ return caml_string_hash(0, x) /*<<string.ml:222:28>>*/ ;
    }
    function split_on_char(sep, s){
     var
@@ -6904,11 +6714,8 @@
      var i = _s_;
      for(;;){
        /*<<string.ml:229:4>>*/ if(caml_string_unsafe_get(s, i) === sep){
-       var _u_ =  /*<<string.ml:229:33>>*/ r[1];
-        /*<<string.ml:230:37>>*/ r[1] =
-        [0,
-          /*<<string.ml:230:11>>*/ sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0),
-         _u_];
+       var _u_ =  /*<<string.ml:230:11>>*/ r[1];
+       r[1] = [0, sub(s, i + 1 | 0, (j[1] - i | 0) - 1 | 0), _u_];
         /*<<string.ml:231:6>>*/ j[1] = i;
       }
       var _v_ =  /*<<string.ml:229:4>>*/ i - 1 | 0;
@@ -6917,9 +6724,7 @@
      }
     }
     var _t_ =  /*<<string.ml:234:2>>*/ r[1];
-     /*<<string.ml:234:12>>*/ return [0,
-             /*<<string.ml:234:2>>*/ sub(s, 0, j[1]),
-            _t_] /*<<string.ml:234:12>>*/ ;
+    return [0, sub(s, 0, j[1]), _t_] /*<<string.ml:234:12>>*/ ;
     /*<<string.ml:234:18>>*/ }
    var compare =  /*<<?>>*/ runtime.caml_string_compare;
    function to_seq(s){
@@ -6931,7 +6736,7 @@
      /*<<string.ml:245:21>>*/ return caml_call1(Stdlib_Bytes[48], _q_) /*<<string.ml:245:34>>*/ ;
    }
    function of_seq(g){
-     /*<<string.ml:247:25>>*/ return caml_call1
+     /*<<string.ml:247:15>>*/ return  /*<<string.ml:247:25>>*/ caml_call1
             (bts,  /*<<string.ml:247:15>>*/ caml_call1(Stdlib_Bytes[49], g)) /*<<string.ml:247:32>>*/ ;
    }
    function get_utf_8_uchar(s, i){
@@ -7113,7 +6918,7 @@
    function to_buffer(buff, ofs, len, v, flags){
      /*<<marshal.ml:34:2>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_bytes_length(buff) - len | 0) >= ofs)
-      /*<<marshal.ml:36:44>>*/ return  /*<<marshal.ml:36:7>>*/ runtime.caml_output_value_to_buffer
+      /*<<marshal.ml:36:7>>*/ return runtime.caml_output_value_to_buffer
              (buff, ofs, len, v, flags) /*<<marshal.ml:36:44>>*/ ;
      /*<<marshal.ml:35:7>>*/ return caml_call1
             (Stdlib[1], cst_Marshal_to_buffer_substrin) /*<<marshal.ml:36:44>>*/ ;
@@ -7125,15 +6930,12 @@
    function data_size(buff, ofs){
      /*<<marshal.ml:50:2>>*/ if
      (0 <= ofs && (caml_ml_bytes_length(buff) - 16 | 0) >= ofs)
-      /*<<marshal.ml:52:32>>*/ return  /*<<marshal.ml:52:7>>*/ caml_marshal_data_size
-             (buff, ofs) /*<<marshal.ml:52:32>>*/ ;
+      /*<<marshal.ml:52:7>>*/ return caml_marshal_data_size(buff, ofs) /*<<marshal.ml:52:32>>*/ ;
      /*<<marshal.ml:51:7>>*/ return caml_call1
             (Stdlib[1], cst_Marshal_data_size) /*<<marshal.ml:52:32>>*/ ;
    }
    function total_size(buff, ofs){
-     /*<<marshal.ml:53:58>>*/ return 16
-           +  /*<<marshal.ml:53:40>>*/ data_size(buff, ofs)
-           | 0 /*<<marshal.ml:53:58>>*/ ;
+     /*<<marshal.ml:53:40>>*/ return 16 + data_size(buff, ofs) | 0 /*<<marshal.ml:53:58>>*/ ;
    }
    function from_bytes(buff, ofs){
      /*<<marshal.ml:56:2>>*/ if
@@ -7152,7 +6954,7 @@
             (Stdlib[1], cst_Marshal_from_bytes) /*<<marshal.ml:63:5>>*/ ;
    }
    function from_string(buff, ofs){
-     /*<<marshal.ml:68:42>>*/ return from_bytes
+     /*<<marshal.ml:68:13>>*/ return  /*<<marshal.ml:68:42>>*/ from_bytes
             ( /*<<marshal.ml:68:13>>*/ caml_call1(Stdlib_Bytes[45], buff),
              ofs) /*<<marshal.ml:68:46>>*/ ;
    }
@@ -7224,15 +7026,14 @@
       /*<<array.ml:49:16>>*/ return caml_call1(Stdlib[1], cst_Array_init) /*<<array.ml:58:6>>*/ ;
     var
      res =
-        /*<<array.ml:54:13>>*/ caml_make_vect
+        /*<<array.ml:54:22>>*/  /*<<array.ml:54:13>>*/ caml_make_vect
         (l,  /*<<array.ml:54:22>>*/ caml_call1(f, 0)),
      _aE_ =  /*<<array.ml:55:3>>*/ l - 1 | 0,
-     _aD_ =  /*<<array.ml:54:27>>*/ 1;
-     /*<<array.ml:55:3>>*/ if(_aE_ >= 1){
+     _aD_ = 1;
+    if(_aE_ >= 1){
      var i = _aD_;
      for(;;){
-       /*<<array.ml:56:5>>*/ res[1 + i] =
-        /*<<array.ml:56:22>>*/ caml_call1(f, i);
+       /*<<array.ml:56:22>>*/ res[1 + i] = caml_call1(f, i);
       var _aF_ =  /*<<array.ml:56:27>>*/ i + 1 | 0;
       if(_aE_ === i) break;
       i = _aF_;
@@ -7249,8 +7050,7 @@
      if(_aB_ >= 0){
       var x = _aA_;
       for(;;){
-        /*<<array.ml:66:39>>*/ res[1 + x] =
-         /*<<array.ml:66:23>>*/ caml_make_vect(sy, init);
+        /*<<array.ml:66:23>>*/ res[1 + x] = caml_make_vect(sy, init);
        var _aC_ =  /*<<array.ml:66:39>>*/ x + 1 | 0;
        if(_aB_ === x) break;
        x = _aC_;
@@ -7270,15 +7070,14 @@
       for(;;){
        var
         row =
-           /*<<array.ml:78:16>>*/ caml_make_vect
+           /*<<array.ml:78:26>>*/  /*<<array.ml:78:16>>*/ caml_make_vect
            (sy,  /*<<array.ml:78:26>>*/ caml_call2(f, x, 0)),
         _ax_ =  /*<<array.ml:79:6>>*/ sy - 1 | 0,
-        _aw_ =  /*<<array.ml:78:33>>*/ 1;
-        /*<<array.ml:79:6>>*/ if(_ax_ >= 1){
+        _aw_ = 1;
+       if(_ax_ >= 1){
         var y = _aw_;
         for(;;){
-          /*<<array.ml:80:8>>*/ row[1 + y] =
-           /*<<array.ml:80:25>>*/ caml_call2(f, x, y);
+          /*<<array.ml:80:25>>*/ row[1 + y] = caml_call2(f, x, y);
          var _az_ =  /*<<array.ml:80:32>>*/ y + 1 | 0;
          if(_ax_ === y) break;
          y = _az_;
@@ -7311,15 +7110,13 @@
    function sub(a, ofs, len){
      /*<<array.ml:97:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
-      /*<<array.ml:99:27>>*/ return  /*<<array.ml:99:7>>*/ caml_array_sub
-             (a, ofs, len) /*<<array.ml:99:27>>*/ ;
+      /*<<array.ml:99:7>>*/ return caml_array_sub(a, ofs, len) /*<<array.ml:99:27>>*/ ;
      /*<<array.ml:98:7>>*/ return caml_call1(Stdlib[1], cst_Array_sub) /*<<array.ml:99:27>>*/ ;
    }
    function fill(a, ofs, len, v){
      /*<<array.ml:102:2>>*/ if
      (0 <= ofs && 0 <= len && (a.length - 1 - len | 0) >= ofs)
-      /*<<array.ml:104:30>>*/ return  /*<<array.ml:104:7>>*/ runtime.caml_array_fill
-             (a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
+      /*<<array.ml:104:7>>*/ return runtime.caml_array_fill(a, ofs, len, v) /*<<array.ml:104:30>>*/ ;
      /*<<array.ml:103:7>>*/ return caml_call1(Stdlib[1], cst_Array_fill) /*<<array.ml:104:30>>*/ ;
    }
    function blit(a1, ofs1, a2, ofs2, len){
@@ -7330,7 +7127,7 @@
        &&
         (a1.length - 1 - len | 0) >= ofs1
         && 0 <= ofs2 && (a2.length - 1 - len | 0) >= ofs2)
-      /*<<array.ml:110:38>>*/ return  /*<<array.ml:110:7>>*/ runtime.caml_array_blit
+      /*<<array.ml:110:7>>*/ return runtime.caml_array_blit
              (a1, ofs1, a2, ofs2, len) /*<<array.ml:110:38>>*/ ;
      /*<<array.ml:109:7>>*/ return caml_call1(Stdlib[1], cst_Array_blit) /*<<array.ml:110:38>>*/ ;
    }
@@ -7368,15 +7165,14 @@
      /*<<array.ml:123:2>>*/ if(0 === l)  /*<<array.ml:123:16>>*/ return [0];
     var
      r =
-        /*<<array.ml:124:12>>*/ caml_make_vect
+        /*<<array.ml:124:21>>*/  /*<<array.ml:124:12>>*/ caml_make_vect
         (l,  /*<<array.ml:124:21>>*/ caml_call1(f, a[1])),
      _am_ =  /*<<array.ml:125:4>>*/ l - 1 | 0,
-     _al_ =  /*<<array.ml:124:40>>*/ 1;
-     /*<<array.ml:125:4>>*/ if(_am_ >= 1){
+     _al_ = 1;
+    if(_am_ >= 1){
      var i = _al_;
      for(;;){
-       /*<<array.ml:126:6>>*/ r[1 + i] =
-        /*<<array.ml:126:21>>*/ caml_call1(f, a[1 + i]);
+       /*<<array.ml:126:21>>*/ r[1 + i] = caml_call1(f, a[1 + i]);
       var _an_ =  /*<<array.ml:126:40>>*/ i + 1 | 0;
       if(_am_ === i) break;
       i = _an_;
@@ -7389,8 +7185,7 @@
     if(_aj_ >= 0){
      var i = _ai_;
      for(;;){
-       /*<<array.ml:133:4>>*/ a[1 + i] =
-        /*<<array.ml:133:19>>*/ caml_call1(f, a[1 + i]);
+       /*<<array.ml:133:19>>*/ a[1 + i] = caml_call1(f, a[1 + i]);
       var _ak_ =  /*<<array.ml:133:39>>*/ i + 1 | 0;
       if(_aj_ === i) break;
       i = _ak_;
@@ -7403,8 +7198,7 @@
     if(_ag_ >= 0){
      var i = _af_;
      for(;;){
-       /*<<array.ml:138:4>>*/ a[1 + i] =
-        /*<<array.ml:138:19>>*/ caml_call2(f, i, a[1 + i]);
+       /*<<array.ml:138:19>>*/ a[1 + i] = caml_call2(f, i, a[1 + i]);
       var _ah_ =  /*<<array.ml:138:41>>*/ i + 1 | 0;
       if(_ag_ === i) break;
       i = _ah_;
@@ -7422,15 +7216,14 @@
      /*<<array.ml:146:7>>*/ if(0 === la)  /*<<array.ml:147:19>>*/ return [0];
     var
      r =
-        /*<<array.ml:148:14>>*/ caml_make_vect
+        /*<<array.ml:148:24>>*/  /*<<array.ml:148:14>>*/ caml_make_vect
         (la,  /*<<array.ml:148:24>>*/ caml_call2(f, a[1], b[1])),
      _ad_ =  /*<<array.ml:149:6>>*/ la - 1 | 0,
-     _ac_ =  /*<<array.ml:148:61>>*/ 1;
-     /*<<array.ml:149:6>>*/ if(_ad_ >= 1){
+     _ac_ = 1;
+    if(_ad_ >= 1){
      var i = _ac_;
      for(;;){
-       /*<<array.ml:150:8>>*/ r[1 + i] =
-        /*<<array.ml:150:23>>*/ caml_call2(f, a[1 + i], b[1 + i]);
+       /*<<array.ml:150:23>>*/ r[1 + i] = caml_call2(f, a[1 + i], b[1 + i]);
       var _ae_ =  /*<<array.ml:150:60>>*/ i + 1 | 0;
       if(_ad_ === i) break;
       i = _ae_;
@@ -7456,15 +7249,14 @@
      /*<<array.ml:161:2>>*/ if(0 === l)  /*<<array.ml:161:16>>*/ return [0];
     var
      r =
-        /*<<array.ml:162:12>>*/ caml_make_vect
+        /*<<array.ml:162:21>>*/  /*<<array.ml:162:12>>*/ caml_make_vect
         (l,  /*<<array.ml:162:21>>*/ caml_call2(f, 0, a[1])),
      _Z_ =  /*<<array.ml:163:4>>*/ l - 1 | 0,
-     _Y_ =  /*<<array.ml:162:43>>*/ 1;
-     /*<<array.ml:163:4>>*/ if(_Z_ >= 1){
+     _Y_ = 1;
+    if(_Z_ >= 1){
      var i = _Y_;
      for(;;){
-       /*<<array.ml:164:6>>*/ r[1 + i] =
-        /*<<array.ml:164:21>>*/ caml_call2(f, i, a[1 + i]);
+       /*<<array.ml:164:21>>*/ r[1 + i] = caml_call2(f, i, a[1 + i]);
       var ___ =  /*<<array.ml:164:43>>*/ i + 1 | 0;
       if(_Z_ === i) break;
       i = ___;
@@ -7498,7 +7290,7 @@
      tl =  /*<<array.ml:179:14>>*/ l[2],
      hd = l[1],
      a =
-        /*<<array.ml:182:14>>*/ caml_make_vect
+        /*<<array.ml:182:21>>*/  /*<<array.ml:182:14>>*/ caml_make_vect
         ( /*<<array.ml:182:21>>*/ list_length(0, l), hd),
      i =  /*<<array.ml:186:6>>*/ 1,
      param = tl;
@@ -7515,12 +7307,11 @@
     var
      r =  /*<<array.ml:189:2>>*/ [0, x],
      _W_ =  /*<<array.ml:190:2>>*/ a.length - 2 | 0,
-     _V_ =  /*<<array.ml:189:2>>*/ 0;
-     /*<<array.ml:190:2>>*/ if(_W_ >= 0){
+     _V_ = 0;
+    if(_W_ >= 0){
      var i = _V_;
      for(;;){
-       /*<<array.ml:191:30>>*/ r[1] =
-        /*<<array.ml:191:9>>*/ caml_call2(f, r[1], a[1 + i]);
+       /*<<array.ml:191:9>>*/ r[1] = caml_call2(f, r[1], a[1 + i]);
       var _X_ =  /*<<array.ml:191:30>>*/ i + 1 | 0;
       if(_W_ === i) break;
       i = _X_;
@@ -7539,8 +7330,8 @@
      output_array =  /*<<array.ml:199:23>>*/ caml_make_vect(len, elt),
      acc$1 =  /*<<array.ml:200:4>>*/ [0, acc$0],
      _T_ =  /*<<array.ml:201:4>>*/ len - 1 | 0,
-     _S_ =  /*<<array.ml:200:4>>*/ 1;
-     /*<<array.ml:201:4>>*/ if(_T_ >= 1){
+     _S_ = 1;
+    if(_T_ >= 1){
      var i = _S_;
      for(;;){
       var
@@ -7564,8 +7355,7 @@
     if(_Q_ >= 0){
      var i = _Q_;
      for(;;){
-       /*<<array.ml:212:30>>*/ r[1] =
-        /*<<array.ml:212:9>>*/ caml_call2(f, a[1 + i], r[1]);
+       /*<<array.ml:212:9>>*/ r[1] = caml_call2(f, a[1 + i], r[1]);
       var _R_ =  /*<<array.ml:212:30>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _R_;
@@ -7579,8 +7369,7 @@
      i =  /*<<array.ml:222:2>>*/ 0;
     for(;;){
       /*<<array.ml:219:4>>*/ if(i === n)  /*<<array.ml:219:18>>*/ return 0;
-      /*<<array.ml:220:30>>*/ if
-      ( /*<<array.ml:220:12>>*/ caml_call1(p, a[1 + i]))
+      /*<<array.ml:220:12>>*/ if(caml_call1(p, a[1 + i]))
        /*<<array.ml:220:36>>*/ return 1;
      var i$0 =  /*<<array.ml:221:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7592,8 +7381,7 @@
      i =  /*<<array.ml:230:2>>*/ 0;
     for(;;){
       /*<<array.ml:227:4>>*/ if(i === n)  /*<<array.ml:227:18>>*/ return 1;
-      /*<<array.ml:228:30>>*/ if
-      (!  /*<<array.ml:228:12>>*/ caml_call1(p, a[1 + i]))
+      /*<<array.ml:228:12>>*/ if(! caml_call1(p, a[1 + i]))
        /*<<array.ml:229:9>>*/ return 0;
      var i$0 =  /*<<array.ml:228:36>>*/ i + 1 | 0;
      i = i$0;
@@ -7606,8 +7394,7 @@
     var i =  /*<<array.ml:240:2>>*/ 0;
     for(;;){
       /*<<array.ml:237:4>>*/ if(i === n1)  /*<<array.ml:237:19>>*/ return 1;
-      /*<<array.ml:238:49>>*/ if
-      (!  /*<<array.ml:238:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
+      /*<<array.ml:238:12>>*/ if(! caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:239:9>>*/ return 0;
      var i$0 =  /*<<array.ml:238:55>>*/ i + 1 | 0;
      i = i$0;
@@ -7620,8 +7407,7 @@
     var i =  /*<<array.ml:250:2>>*/ 0;
     for(;;){
       /*<<array.ml:247:4>>*/ if(i === n1)  /*<<array.ml:247:19>>*/ return 0;
-      /*<<array.ml:248:49>>*/ if
-      ( /*<<array.ml:248:12>>*/ caml_call2(p, l1[1 + i], l2[1 + i]))
+      /*<<array.ml:248:12>>*/ if(caml_call2(p, l1[1 + i], l2[1 + i]))
        /*<<array.ml:248:55>>*/ return 1;
      var i$0 =  /*<<array.ml:249:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7633,8 +7419,7 @@
      i =  /*<<array.ml:258:2>>*/ 0;
     for(;;){
       /*<<array.ml:255:4>>*/ if(i === n)  /*<<array.ml:255:18>>*/ return 0;
-      /*<<array.ml:256:38>>*/ if
-      (0 ===  /*<<array.ml:256:12>>*/ runtime.caml_compare(a[1 + i], x))
+      /*<<array.ml:256:12>>*/ if(0 === runtime.caml_compare(a[1 + i], x))
        /*<<array.ml:256:48>>*/ return 1;
      var i$0 =  /*<<array.ml:257:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7659,7 +7444,7 @@
     for(;;){
       /*<<array.ml:271:4>>*/ if(i === n)  /*<<array.ml:271:18>>*/ return 0;
      var x =  /*<<array.ml:273:14>>*/ a[1 + i];
-      /*<<array.ml:274:12>>*/ if( /*<<array.ml:274:9>>*/ caml_call1(p, x))
+      /*<<array.ml:274:9>>*/ if(caml_call1(p, x))
        /*<<array.ml:274:18>>*/ return [0, x];
      var i$0 =  /*<<array.ml:275:11>>*/ i + 1 | 0;
      i = i$0;
@@ -7671,8 +7456,7 @@
      i =  /*<<array.ml:285:2>>*/ 0;
     for(;;){
       /*<<array.ml:282:4>>*/ if(i === n)  /*<<array.ml:282:18>>*/ return 0;
-      /*<<array.ml:283:30>>*/ if
-      ( /*<<array.ml:283:12>>*/ caml_call1(p, a[1 + i]))
+      /*<<array.ml:283:12>>*/ if(caml_call1(p, a[1 + i]))
        /*<<array.ml:283:36>>*/ return [0, i];
      var i$0 =  /*<<array.ml:284:9>>*/ i + 1 | 0;
      i = i$0;
@@ -7703,8 +7487,7 @@
     }
     /*<<array.ml:307:8>>*/ }
    function split(x){
-     /*<<array.ml:310:13>>*/ if
-     ( /*<<array.ml:310:5>>*/ runtime.caml_equal(x, [0]))
+     /*<<array.ml:310:5>>*/ if(runtime.caml_equal(x, [0]))
       /*<<array.ml:310:19>>*/ return [0, [0], [0]];
     var
      match =  /*<<array.ml:311:7>>*/ x[1],
@@ -7714,8 +7497,8 @@
      a =  /*<<array.ml:314:12>>*/ caml_make_vect(n, a0),
      b =  /*<<array.ml:315:12>>*/ caml_make_vect(n, b0),
      _O_ =  /*<<array.ml:316:4>>*/ n - 1 | 0,
-     _N_ =  /*<<array.ml:315:23>>*/ 1;
-     /*<<array.ml:316:4>>*/ if(_O_ >= 1){
+     _N_ = 1;
+    if(_O_ >= 1){
      var i = _N_;
      for(;;){
       var
@@ -7741,8 +7524,8 @@
     var
      x =  /*<<array.ml:330:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
      _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
-     _K_ =  /*<<array.ml:330:54>>*/ 1;
-     /*<<array.ml:331:4>>*/ if(_L_ >= 1){
+     _K_ = 1;
+    if(_L_ >= 1){
      var i = _K_;
      for(;;){
        /*<<array.ml:332:36>>*/ x[1 + i] = [0, a[1 + i], b[1 + i]];
@@ -7766,7 +7549,7 @@
       var
        _D_ =  /*<<array.ml:342:22>>*/ i31 + 1 | 0,
        _E_ =  /*<<array.ml:343:25>>*/ caml_check_bound(a, _D_)[1 + _D_];
-       /*<<array.ml:343:40>>*/ if
+       /*<<array.ml:343:13>>*/ if
        ( /*<<array.ml:343:9>>*/ caml_call2
          (cmp,
            /*<<array.ml:343:13>>*/ caml_check_bound(a, i31)[1 + i31],
@@ -7777,7 +7560,7 @@
        _F_ =  /*<<array.ml:344:6>>*/ i31 + 2 | 0,
        _G_ =  /*<<array.ml:344:24>>*/ caml_check_bound(a, _F_)[1 + _F_],
        _H_ =  /*<<array.ml:344:39>>*/ x[1];
-      if
+       /*<<array.ml:344:13>>*/ if
        ( /*<<array.ml:344:9>>*/ caml_call2
          (cmp,
            /*<<array.ml:344:13>>*/ caml_check_bound(a, _H_)[1 + _H_],
@@ -7790,7 +7573,7 @@
       var
        _I_ = i31 + 1 | 0,
        _J_ =  /*<<array.ml:347:38>>*/ caml_check_bound(a, _I_)[1 + _I_];
-       /*<<array.ml:347:53>>*/ if
+       /*<<array.ml:347:26>>*/ if
        (0
         >
           /*<<array.ml:347:22>>*/ caml_call2
@@ -7814,7 +7597,7 @@
        var i =  /*<<array.ml:360:26>>*/ i$6;
        for(;;){
         var j =  /*<<array.ml:352:12>>*/ maxson(l, i);
-         /*<<array.ml:353:22>>*/ if
+         /*<<array.ml:353:11>>*/ if
          (0
           >=
             /*<<array.ml:353:7>>*/ caml_call2
@@ -7842,10 +7625,9 @@
      var i$4 = _y_;
      for(;;){
       var e$0 =  /*<<array.ml:380:12>>*/ caml_check_bound(a, i$4)[1 + i$4];
-       /*<<array.ml:381:4>>*/ a[1 + i$4] =
-        /*<<array.ml:381:12>>*/ caml_check_bound(a, 0)[1];
-      var i$5 =  /*<<array.ml:381:21>>*/ 0;
-       /*<<array.ml:366:19>>*/ try{
+       /*<<array.ml:381:12>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
+      var i$5 =  /*<<array.ml:366:19>>*/ 0;
+      try{
        var i$1 =  /*<<array.ml:366:23>>*/ i$5;
        for(;;){
         var
@@ -7868,7 +7650,7 @@
           var father =  /*<<array.ml:368:4>>*/ (i$3 - 1 | 0) / 3 | 0;
            /*<<array.ml:369:4>>*/ if(i$3 === father)
            throw caml_maybe_attach_backtrace([0, Assert_failure, _a_], 1);
-           /*<<array.ml:370:27>>*/ if
+           /*<<array.ml:370:11>>*/ if
            (0
             <=
               /*<<array.ml:370:7>>*/ caml_call2
@@ -7898,8 +7680,7 @@
     var _z_ =  /*<<array.ml:384:2>>*/ 1 < l ? 1 : 0;
     if(_z_){
      var e =  /*<<array.ml:384:25>>*/ caml_check_bound(a, 1)[2];
-      /*<<array.ml:384:38>>*/ a[2] =
-       /*<<array.ml:384:46>>*/ caml_check_bound(a, 0)[1];
+      /*<<array.ml:384:46>>*/ a[2] = caml_check_bound(a, 0)[1];
       /*<<array.ml:384:57>>*/ a[1] = e;
      var _A_ =  /*<<array.ml:384:66>>*/ 0;
     }
@@ -7922,8 +7703,7 @@
       s2 = s2$1,
       d = dstofs;
      for(;;)
-       /*<<array.ml:392:18>>*/ if
-       (0 <  /*<<array.ml:392:9>>*/ caml_call2(cmp, s1, s2)){
+       /*<<array.ml:392:9>>*/ if(0 < caml_call2(cmp, s1, s2)){
         /*<<array.ml:400:8>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<array.ml:400:20>>*/ i2 + 1 | 0;
         /*<<array.ml:402:8>>*/ if(i2$0 >= src2r)
@@ -7962,7 +7742,7 @@
         /*<<array.ml:413:6>>*/ for(;;){
         if(dstofs > j[1]) break;
         var _o_ = j[1];
-         /*<<array.ml:413:47>>*/ if
+         /*<<array.ml:413:33>>*/ if
          (0
           >=
             /*<<array.ml:413:29>>*/ caml_call2
@@ -8004,7 +7784,7 @@
      l1 =  /*<<array.ml:430:43>>*/ l / 2 | 0,
      l2 =  /*<<array.ml:432:4>>*/ l - l1 | 0,
      t =
-        /*<<array.ml:433:12>>*/ caml_make_vect
+        /*<<array.ml:433:20>>*/  /*<<array.ml:433:12>>*/ caml_make_vect
         (l2,  /*<<array.ml:433:20>>*/ caml_check_bound(a, 0)[1]);
      /*<<array.ml:434:4>>*/ sortto(l1, t, 0, l2);
      /*<<array.ml:435:4>>*/ sortto(0, a, l2, l1);
@@ -8018,8 +7798,7 @@
       var
        j =  /*<<array.ml:444:12>>*/ caml_call1(rand, i + 1 | 0),
        v =  /*<<array.ml:445:12>>*/ a[1 + i];
-       /*<<array.ml:446:4>>*/ a[1 + i] =
-        /*<<array.ml:446:19>>*/ caml_check_bound(a, j)[1 + j];
+       /*<<array.ml:446:19>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
        /*<<array.ml:447:4>>*/ a[1 + j] = v;
       var _k_ =  /*<<array.ml:447:20>>*/ i - 1 | 0;
       if(1 === i) break;
@@ -8034,7 +7813,7 @@
        /*<<array.ml:458:9>>*/ return 0;
      var
       x =  /*<<array.ml:456:14>>*/ a[1 + i],
-      _h_ =  /*<<array.ml:457:6>>*/ i + 1 | 0;
+      _h_ =  /*<<array.ml:457:19>>*/ i + 1 | 0;
       /*<<array.ml:457:28>>*/ return [0,
              x,
              function(_i_){ /*<<array.ml:457:19>>*/ return aux(_h_, _i_);}] /*<<array.ml:457:28>>*/ ;
@@ -8049,7 +7828,7 @@
        /*<<array.ml:468:9>>*/ return 0;
      var
       x =  /*<<array.ml:466:14>>*/ a[1 + i],
-      _d_ =  /*<<array.ml:467:6>>*/ i + 1 | 0;
+      _d_ =  /*<<array.ml:467:23>>*/ i + 1 | 0;
       /*<<array.ml:467:32>>*/ return [0,
              [0, i, x],
              function(_e_){ /*<<array.ml:467:23>>*/ return aux(_d_, _e_);}] /*<<array.ml:467:32>>*/ ;
@@ -8197,7 +7976,7 @@
     epsilon = Stdlib[27],
     of_string_opt = Stdlib[36],
     to_string = Stdlib[35],
-    cst_Float_Array_init =  /*<<?>>*/ "Float.Array.init",
+    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",
@@ -8212,20 +7991,14 @@
       "Float.Array.map2: arrays must have the same length";
    function is_integer(x){
     var
-     _aX_ =
-        /*<<float.ml:116:30>>*/ x
-        ===  /*<<float.ml:116:23>>*/ runtime.caml_trunc_float(x)
-        ? 1
-        : 0;
+     _aX_ =  /*<<float.ml:116:23>>*/ x === runtime.caml_trunc_float(x) ? 1 : 0;
      /*<<float.ml:116:30>>*/ return _aX_ ? is_finite(x) : _aX_ /*<<float.ml:116:45>>*/ ;
    }
    function succ(x){
-     /*<<float.ml:121:34>>*/ return  /*<<float.ml:121:13>>*/ caml_nextafter_float
-            (x, infinity) /*<<float.ml:121:34>>*/ ;
+     /*<<float.ml:121:13>>*/ return caml_nextafter_float(x, infinity) /*<<float.ml:121:34>>*/ ;
    }
    function pred(x){
-     /*<<float.ml:122:38>>*/ return  /*<<float.ml:122:13>>*/ caml_nextafter_float
-            (x, neg_infinity) /*<<float.ml:122:38>>*/ ;
+     /*<<float.ml:122:13>>*/ return caml_nextafter_float(x, neg_infinity) /*<<float.ml:122:38>>*/ ;
    }
    function equal(x, y){
      /*<<float.ml:136:16>>*/ return 0 === caml_float_compare(x, y) ? 1 : 0;
@@ -8233,9 +8006,9 @@
    function min(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:139:30>>*/ if
+      /*<<float.ml:139:18>>*/ if
       (!
-        /*<<float.ml:139:18>>*/ caml_signbit_float(y)
+       caml_signbit_float(y)
        &&  /*<<float.ml:139:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:141:18>>*/ return x !== x ? x : y /*<<float.ml:141:32>>*/ ;
@@ -8245,9 +8018,9 @@
    function max(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:144:30>>*/ if
+      /*<<float.ml:144:18>>*/ if
       (!
-        /*<<float.ml:144:18>>*/ caml_signbit_float(y)
+       caml_signbit_float(y)
        &&  /*<<float.ml:144:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:146:18>>*/ return y !== y ? y : x /*<<float.ml:146:32>>*/ ;
@@ -8258,9 +8031,9 @@
      /*<<float.ml:149:13>>*/ if(x === x && y === y){
      a:
      if(! (x < y)){
-       /*<<float.ml:150:35>>*/ if
+       /*<<float.ml:150:23>>*/ if
        (!
-         /*<<float.ml:150:23>>*/ caml_signbit_float(y)
+        caml_signbit_float(y)
         &&  /*<<float.ml:150:39>>*/ caml_signbit_float(x))
        break a;
        /*<<float.ml:150:68>>*/ return [0, y, x];
@@ -8272,9 +8045,9 @@
    function min_num(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:153:30>>*/ if
+      /*<<float.ml:153:18>>*/ if
       (!
-        /*<<float.ml:153:18>>*/ caml_signbit_float(y)
+       caml_signbit_float(y)
        &&  /*<<float.ml:153:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:155:18>>*/ return y !== y ? x : y /*<<float.ml:155:32>>*/ ;
@@ -8284,9 +8057,9 @@
    function max_num(x, y){
     a:
     if(! (x < y)){
-      /*<<float.ml:158:30>>*/ if
+      /*<<float.ml:158:18>>*/ if
       (!
-        /*<<float.ml:158:18>>*/ caml_signbit_float(y)
+       caml_signbit_float(y)
        &&  /*<<float.ml:158:34>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:160:18>>*/ return x !== x ? y : x /*<<float.ml:160:32>>*/ ;
@@ -8300,9 +8073,9 @@
       /*<<float.ml:164:24>>*/ return [0, x, x];
     a:
     if(! (x < y)){
-      /*<<float.ml:165:35>>*/ if
+      /*<<float.ml:165:23>>*/ if
       (!
-        /*<<float.ml:165:23>>*/ caml_signbit_float(y)
+       caml_signbit_float(y)
        &&  /*<<float.ml:165:39>>*/ caml_signbit_float(x))
       break a;
       /*<<float.ml:165:67>>*/ return [0, y, x];
@@ -8310,12 +8083,10 @@
      /*<<float.ml:165:56>>*/ return [0, x, y];
     /*<<float.ml:165:72>>*/ }
    function seeded_hash(seed, x){
-     /*<<float.ml:169:56>>*/ return  /*<<float.ml:169:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
+     /*<<float.ml:169:25>>*/ return caml_hash(10, 100, seed, x) /*<<float.ml:169:56>>*/ ;
    }
    function hash(x){
-     /*<<float.ml:170:41>>*/ return  /*<<float.ml:170:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
+     /*<<float.ml:170:13>>*/ return caml_hash(10, 100, 0, x) /*<<float.ml:170:41>>*/ ;
    }
    function unsafe_fill(a, ofs, len, v){
     var _aV_ =  /*<<float.ml:184:4>>*/ (ofs + len | 0) - 1 | 0;
@@ -8357,12 +8128,11 @@
     var
      res =  /*<<float.ml:201:16>>*/ caml_floatarray_create(l),
      _aP_ =  /*<<float.ml:202:6>>*/ l - 1 | 0,
-     _aO_ =  /*<<float.ml:201:24>>*/ 0;
-     /*<<float.ml:202:6>>*/ if(_aP_ >= 0){
+     _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:25>>*/ res[1 + i] = caml_call1(f, i);
       var _aQ_ =  /*<<float.ml:203:30>>*/ i + 1 | 0;
       if(_aP_ === i) break;
       i = _aQ_;
@@ -8376,15 +8146,14 @@
       (Stdlib[1], cst_Float_Array_make_matrix);
     var
      res =
-        /*<<float.ml:210:14>>*/ caml_make_vect
+        /*<<float.ml:210:28>>*/  /*<<float.ml:210:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:210:28>>*/ caml_floatarray_create(0));
      /*<<float.ml:211:4>>*/ if(0 < sy){
      var _aM_ =  /*<<float.ml:211:19>>*/ sx - 1 | 0, _aL_ = 0;
      if(_aM_ >= 0){
       var x = _aL_;
       for(;;){
-        /*<<float.ml:213:8>>*/ res[1 + x] =
-         /*<<float.ml:213:31>>*/ make(sy, v);
+        /*<<float.ml:213:31>>*/ res[1 + x] = make(sy, v);
        var _aN_ =  /*<<float.ml:213:42>>*/ x + 1 | 0;
        if(_aM_ === x) break;
        x = _aN_;
@@ -8399,7 +8168,7 @@
       (Stdlib[1], cst_Float_Array_init_matrix);
     var
      res =
-        /*<<float.ml:221:14>>*/ caml_make_vect
+        /*<<float.ml:221:28>>*/  /*<<float.ml:221:14>>*/ caml_make_vect
         (sx,  /*<<float.ml:221:28>>*/ caml_floatarray_create(0));
      /*<<float.ml:222:4>>*/ if(0 < sy){
      var _aG_ =  /*<<float.ml:222:19>>*/ sx - 1 | 0, _aF_ = 0;
@@ -8409,12 +8178,11 @@
        var
         row =  /*<<float.ml:224:18>>*/ caml_floatarray_create(sy),
         _aI_ =  /*<<float.ml:225:8>>*/ sy - 1 | 0,
-        _aH_ =  /*<<float.ml:224:27>>*/ 0;
-        /*<<float.ml:225:8>>*/ if(_aI_ >= 0){
+        _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:27>>*/ row[1 + y] = caml_call2(f, x, y);
          var _aK_ =  /*<<float.ml:226:34>>*/ y + 1 | 0;
          if(_aI_ === y) break;
          y = _aK_;
@@ -8495,7 +8263,7 @@
    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:37>>*/ return  /*<<float.ml:282:4>>*/ caml_floatarray_blit
+     /*<<float.ml:282:4>>*/ return caml_floatarray_blit
             (src, sofs, dst, dofs, len) /*<<float.ml:282:37>>*/ ;
    }
    function to_list(a){
@@ -8507,7 +8275,7 @@
    function of_list(l){
     var
      result =
-        /*<<float.ml:288:17>>*/ caml_floatarray_create
+        /*<<float.ml:288:24>>*/  /*<<float.ml:288:17>>*/ caml_floatarray_create
         ( /*<<float.ml:288:24>>*/ caml_call1(Stdlib_List[1], l)),
      i =  /*<<float.ml:294:4>>*/ 0,
      l$0 = l;
@@ -8554,12 +8322,11 @@
      l =  /*<<float.ml:308:4>>*/ a.length - 1,
      r =  /*<<float.ml:309:12>>*/ caml_floatarray_create(l),
      _aw_ =  /*<<float.ml:310:4>>*/ l - 1 | 0,
-     _av_ =  /*<<float.ml:309:20>>*/ 0;
-     /*<<float.ml:310:4>>*/ if(_aw_ >= 0){
+     _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:21>>*/ r[1 + i] = caml_call1(f, a[1 + i]);
       var _ax_ =  /*<<float.ml:311:41>>*/ i + 1 | 0;
       if(_aw_ === i) break;
       i = _ax_;
@@ -8572,8 +8339,7 @@
     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:21>>*/ a[1 + i] = caml_call1(f, a[1 + i]);
       var _au_ =  /*<<float.ml:318:41>>*/ i + 1 | 0;
       if(_at_ === i) break;
       i = _au_;
@@ -8591,12 +8357,11 @@
     var
      r =  /*<<float.ml:327:14>>*/ caml_floatarray_create(la),
      _aq_ =  /*<<float.ml:328:6>>*/ la - 1 | 0,
-     _ap_ =  /*<<float.ml:327:23>>*/ 0;
-     /*<<float.ml:328:6>>*/ if(_aq_ >= 0){
+     _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:23>>*/ r[1 + i] = caml_call2(f, a[1 + i], b[1 + i]);
       var _ar_ =  /*<<float.ml:329:60>>*/ i + 1 | 0;
       if(_aq_ === i) break;
       i = _ar_;
@@ -8622,12 +8387,11 @@
      l =  /*<<float.ml:339:4>>*/ a.length - 1,
      r =  /*<<float.ml:340:12>>*/ caml_floatarray_create(l),
      _ak_ =  /*<<float.ml:341:4>>*/ l - 1 | 0,
-     _aj_ =  /*<<float.ml:340:20>>*/ 0;
-     /*<<float.ml:341:4>>*/ if(_ak_ >= 0){
+     _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:21>>*/ r[1 + i] = caml_call2(f, i, a[1 + i]);
       var _al_ =  /*<<float.ml:342:43>>*/ i + 1 | 0;
       if(_ak_ === i) break;
       i = _al_;
@@ -8640,8 +8404,7 @@
     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:21>>*/ a[1 + i] = caml_call2(f, i, a[1 + i]);
       var _ai_ =  /*<<float.ml:349:43>>*/ i + 1 | 0;
       if(_ah_ === i) break;
       i = _ai_;
@@ -8653,12 +8416,11 @@
     var
      r =  /*<<float.ml:354:4>>*/ [0, x],
      _ae_ =  /*<<float.ml:355:4>>*/ a.length - 2 | 0,
-     _ad_ =  /*<<float.ml:354:4>>*/ 0;
-     /*<<float.ml:355:4>>*/ if(_ae_ >= 0){
+     _ad_ = 0;
+    if(_ae_ >= 0){
      var i = _ad_;
      for(;;){
-       /*<<float.ml:356:32>>*/ r[1] =
-        /*<<float.ml:356:11>>*/ caml_call2(f, r[1], a[1 + i]);
+       /*<<float.ml:356:11>>*/ r[1] = caml_call2(f, r[1], a[1 + i]);
       var _af_ =  /*<<float.ml:356:32>>*/ i + 1 | 0;
       if(_ae_ === i) break;
       i = _af_;
@@ -8673,8 +8435,7 @@
     if(_ab_ >= 0){
      var i = _ab_;
      for(;;){
-       /*<<float.ml:364:32>>*/ r[1] =
-        /*<<float.ml:364:11>>*/ caml_call2(f, a[1 + i], r[1]);
+       /*<<float.ml:364:11>>*/ r[1] = caml_call2(f, a[1 + i], r[1]);
       var _ac_ =  /*<<float.ml:364:32>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _ac_;
@@ -8688,8 +8449,7 @@
      i =  /*<<float.ml:375:4>>*/ 0;
     for(;;){
       /*<<float.ml:372:6>>*/ if(i === n)  /*<<float.ml:372:20>>*/ return 0;
-      /*<<float.ml:373:32>>*/ if
-      ( /*<<float.ml:373:14>>*/ caml_call1(p, a[1 + i]))
+      /*<<float.ml:373:14>>*/ if(caml_call1(p, a[1 + i]))
        /*<<float.ml:373:38>>*/ return 1;
      var i$0 =  /*<<float.ml:374:11>>*/ i + 1 | 0;
      i = i$0;
@@ -8701,8 +8461,7 @@
      i =  /*<<float.ml:384:4>>*/ 0;
     for(;;){
       /*<<float.ml:381:6>>*/ if(i === n)  /*<<float.ml:381:20>>*/ return 1;
-      /*<<float.ml:382:32>>*/ if
-      (!  /*<<float.ml:382:14>>*/ caml_call1(p, a[1 + i]))
+      /*<<float.ml:382:14>>*/ if(! caml_call1(p, a[1 + i]))
        /*<<float.ml:383:11>>*/ return 0;
      var i$0 =  /*<<float.ml:382:38>>*/ i + 1 | 0;
      i = i$0;
@@ -8739,7 +8498,7 @@
     for(;;){
       /*<<float.ml:410:6>>*/ if(i === n)  /*<<float.ml:410:20>>*/ return 0;
      var x =  /*<<float.ml:412:16>>*/ a[1 + i];
-      /*<<float.ml:413:14>>*/ if( /*<<float.ml:413:11>>*/ caml_call1(p, x))
+      /*<<float.ml:413:11>>*/ if(caml_call1(p, x))
        /*<<float.ml:413:20>>*/ return [0, x];
      var i$0 =  /*<<float.ml:414:13>>*/ i + 1 | 0;
      i = i$0;
@@ -8751,8 +8510,7 @@
      i =  /*<<float.ml:425:4>>*/ 0;
     for(;;){
       /*<<float.ml:422:6>>*/ if(i === n)  /*<<float.ml:422:20>>*/ return 0;
-      /*<<float.ml:423:32>>*/ if
-      ( /*<<float.ml:423:14>>*/ caml_call1(p, a[1 + i]))
+      /*<<float.ml:423:14>>*/ if(caml_call1(p, a[1 + i]))
        /*<<float.ml:423:38>>*/ return [0, i];
      var i$0 =  /*<<float.ml:424:11>>*/ i + 1 | 0;
      i = i$0;
@@ -8787,7 +8545,7 @@
        /*<<float.ml:38:60>>*/ [248,
        "Stdlib.Float.Array.Bottom",
        runtime.caml_fresh_oo_id(0)],
-    _b_ =  /*<<?>>*/ [0, cst_float_ml, 484, 6];
+    _b_ = [0, cst_float_ml, 484, 6];
    function sort(cmp, a){
     function maxson(l, i){
      var
@@ -8797,7 +8555,7 @@
       var
        _W_ =  /*<<float.ml:457:24>>*/ i31 + 1 | 0,
        _X_ =  /*<<float.ml:458:27>>*/ caml_check_bound(a, _W_)[1 + _W_];
-       /*<<float.ml:458:42>>*/ if
+       /*<<float.ml:458:15>>*/ if
        ( /*<<float.ml:458:11>>*/ caml_call2
          (cmp,
            /*<<float.ml:458:15>>*/ caml_check_bound(a, i31)[1 + i31],
@@ -8808,7 +8566,7 @@
        _Y_ =  /*<<float.ml:459:8>>*/ i31 + 2 | 0,
        _Z_ =  /*<<float.ml:459:26>>*/ caml_check_bound(a, _Y_)[1 + _Y_],
        ___ =  /*<<float.ml:459:41>>*/ x[1];
-      if
+       /*<<float.ml:459:15>>*/ if
        ( /*<<float.ml:459:11>>*/ caml_call2
          (cmp,
            /*<<float.ml:459:15>>*/ caml_check_bound(a, ___)[1 + ___],
@@ -8821,7 +8579,7 @@
       var
        _$_ = i31 + 1 | 0,
        _aa_ =  /*<<float.ml:462:40>>*/ caml_check_bound(a, _$_)[1 + _$_];
-       /*<<float.ml:462:55>>*/ if
+       /*<<float.ml:462:28>>*/ if
        (0
         >
           /*<<float.ml:462:24>>*/ caml_call2
@@ -8845,7 +8603,7 @@
        var i =  /*<<float.ml:475:28>>*/ i$6;
        for(;;){
         var j =  /*<<float.ml:467:14>>*/ maxson(l, i);
-         /*<<float.ml:468:24>>*/ if
+         /*<<float.ml:468:13>>*/ if
          (0
           >=
             /*<<float.ml:468:9>>*/ caml_call2
@@ -8873,10 +8631,9 @@
      var i$4 = _R_;
      for(;;){
       var e$0 =  /*<<float.ml:495:14>>*/ caml_check_bound(a, i$4)[1 + i$4];
-       /*<<float.ml:496:6>>*/ a[1 + i$4] =
-        /*<<float.ml:496:14>>*/ caml_check_bound(a, 0)[1];
-      var i$5 =  /*<<float.ml:496:23>>*/ 0;
-       /*<<float.ml:481:21>>*/ try{
+       /*<<float.ml:496:14>>*/ a[1 + i$4] = caml_check_bound(a, 0)[1];
+      var i$5 =  /*<<float.ml:481:21>>*/ 0;
+      try{
        var i$1 =  /*<<float.ml:481:25>>*/ i$5;
        for(;;){
         var
@@ -8899,7 +8656,7 @@
           var father =  /*<<float.ml:483:6>>*/ (i$3 - 1 | 0) / 3 | 0;
            /*<<float.ml:484:6>>*/ if(i$3 === father)
            throw caml_maybe_attach_backtrace([0, Assert_failure, _b_], 1);
-           /*<<float.ml:485:29>>*/ if
+           /*<<float.ml:485:13>>*/ if
            (0
             <=
               /*<<float.ml:485:9>>*/ caml_call2
@@ -8929,8 +8686,7 @@
     var _S_ =  /*<<float.ml:499:4>>*/ 1 < l ? 1 : 0;
     if(_S_){
      var e =  /*<<float.ml:499:27>>*/ caml_check_bound(a, 1)[2];
-      /*<<float.ml:499:40>>*/ a[2] =
-       /*<<float.ml:499:48>>*/ caml_check_bound(a, 0)[1];
+      /*<<float.ml:499:48>>*/ a[2] = caml_check_bound(a, 0)[1];
       /*<<float.ml:499:59>>*/ a[1] = e;
      var _T_ =  /*<<float.ml:499:68>>*/ 0;
     }
@@ -8953,8 +8709,7 @@
       s2 = s2$1,
       d = dstofs;
      for(;;)
-       /*<<float.ml:507:20>>*/ if
-       (0 <  /*<<float.ml:507:11>>*/ caml_call2(cmp, s1, s2)){
+       /*<<float.ml:507:11>>*/ if(0 < caml_call2(cmp, s1, s2)){
         /*<<float.ml:515:10>>*/ caml_check_bound(dst, d)[1 + d] = s2;
        var i2$0 =  /*<<float.ml:515:22>>*/ i2 + 1 | 0;
         /*<<float.ml:517:10>>*/ if(i2$0 >= src2r)
@@ -8993,7 +8748,7 @@
         /*<<float.ml:528:8>>*/ for(;;){
         if(dstofs > j[1]) break;
         var _H_ = j[1];
-         /*<<float.ml:528:49>>*/ if
+         /*<<float.ml:528:35>>*/ if
          (0
           >=
             /*<<float.ml:528:31>>*/ caml_call2
@@ -9047,8 +8802,7 @@
       var
        j =  /*<<float.ml:559:14>>*/ caml_call1(rand, i + 1 | 0),
        v =  /*<<float.ml:560:14>>*/ a[1 + i];
-       /*<<float.ml:561:6>>*/ a[1 + i] =
-        /*<<float.ml:561:21>>*/ caml_check_bound(a, j)[1 + j];
+       /*<<float.ml:561:21>>*/ a[1 + i] = caml_check_bound(a, j)[1 + j];
        /*<<float.ml:562:6>>*/ a[1 + j] = v;
       var _D_ =  /*<<float.ml:562:22>>*/ i - 1 | 0;
       if(1 === i) break;
@@ -9063,7 +8817,7 @@
        /*<<float.ml:572:11>>*/ return 0;
      var
       x =  /*<<float.ml:570:16>>*/ a[1 + i],
-      _A_ =  /*<<float.ml:571:8>>*/ i + 1 | 0;
+      _A_ =  /*<<float.ml:571:21>>*/ i + 1 | 0;
       /*<<float.ml:571:30>>*/ return [0,
              x,
              function(_B_){ /*<<float.ml:571:21>>*/ return aux(_A_, _B_);}] /*<<float.ml:571:30>>*/ ;
@@ -9078,7 +8832,7 @@
        /*<<float.ml:583:11>>*/ return 0;
      var
       x =  /*<<float.ml:581:16>>*/ a[1 + i],
-      _w_ =  /*<<float.ml:582:8>>*/ i + 1 | 0;
+      _w_ =  /*<<float.ml:582:25>>*/ i + 1 | 0;
       /*<<float.ml:582:34>>*/ return [0,
              [0, i, x],
              function(_x_){ /*<<float.ml:582:25>>*/ return aux(_w_, _x_);}] /*<<float.ml:582:34>>*/ ;
@@ -9116,15 +8870,14 @@
      /*<<float.ml:605:4>>*/ if(0 === l)  /*<<float.ml:605:18>>*/ return [0];
     var
      r =
-        /*<<float.ml:606:14>>*/ caml_make_vect
+        /*<<float.ml:606:27>>*/  /*<<float.ml:606:14>>*/ caml_make_vect
         (l,  /*<<float.ml:606:27>>*/ caml_call1(f, a[1])),
      _s_ =  /*<<float.ml:607:6>>*/ l - 1 | 0,
-     _r_ =  /*<<float.ml:606:47>>*/ 1;
-     /*<<float.ml:607:6>>*/ if(_s_ >= 1){
+     _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:29>>*/ r[1 + i] = caml_call1(f, a[1 + i]);
       var _t_ =  /*<<float.ml:608:49>>*/ i + 1 | 0;
       if(_s_ === i) break;
       i = _t_;
@@ -9137,12 +8890,11 @@
      l =  /*<<float.ml:614:4>>*/ a.length - 1,
      r =  /*<<float.ml:615:12>>*/ caml_floatarray_create(l),
      _p_ =  /*<<float.ml:616:4>>*/ l - 1 | 0,
-     _o_ =  /*<<float.ml:615:20>>*/ 0;
-     /*<<float.ml:616:4>>*/ if(_p_ >= 0){
+     _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:21>>*/ r[1 + i] = caml_call1(f, a[1 + i]);
       var _q_ =  /*<<float.ml:617:47>>*/ i + 1 | 0;
       if(_p_ === i) break;
       i = _q_;
@@ -9307,10 +9059,7 @@
    function succ(n){ /*<<int32.ml:48:21>>*/ return n + 1 | 0;}
    function pred(n){ /*<<int32.ml:49:21>>*/ return n - 1 | 0;}
    function abs(n){
-     /*<<int32.ml:50:22>>*/ return  /*<<int32.ml:50:15>>*/ caml_greaterequal
-             (n, 0)
-            ? n
-            : - n | 0 /*<<int32.ml:50:40>>*/ ;
+     /*<<int32.ml:50:15>>*/ return caml_greaterequal(n, 0) ? n : - n | 0 /*<<int32.ml:50:40>>*/ ;
    }
    function lognot(n){ /*<<int32.ml:53:29>>*/ return n ^ -1;}
    var
@@ -9324,8 +9073,8 @@
      max_int$0 =  /*<<int32.ml:58:6>>*/ Stdlib[19],
      unsigned_to_int =
         /*<<int32.ml:59:6>>*/ function(n){
-         /*<<int32.ml:60:18>>*/ if
-         ( /*<<int32.ml:60:11>>*/ caml_greaterequal(n, 0)
+         /*<<int32.ml:60:11>>*/ if
+         (caml_greaterequal(n, 0)
           &&  /*<<int32.ml:60:22>>*/ caml_lessequal(n, max_int$0))
           /*<<int32.ml:61:10>>*/ return [0, n];
          /*<<int32.ml:63:10>>*/ return 0;
@@ -9341,15 +9090,11 @@
         /*<<int32.ml:67:40>>*/ };
    }
    function to_string(n){
-     /*<<int32.ml:72:31>>*/ return  /*<<int32.ml:72:18>>*/ runtime.caml_format_int
-            ("%d", n) /*<<int32.ml:72:31>>*/ ;
+     /*<<int32.ml:72:18>>*/ return runtime.caml_format_int("%d", n) /*<<int32.ml:72:31>>*/ ;
    }
    function of_string_opt(s){
      /*<<int32.ml:77:2>>*/ try{
-     var
-      _d_ =
-         /*<<int32.ml:77:24>>*/ [0,
-          /*<<int32.ml:77:11>>*/ runtime.caml_int_of_string(s)];
+     var _d_ =  /*<<int32.ml:77:11>>*/ [0, runtime.caml_int_of_string(s)];
      return _d_;
     }
     catch(_e_){
@@ -9363,56 +9108,38 @@
     var
      y =  /*<<int32.ml:86:26>>*/ m + 2147483648 | 0,
      x =  /*<<int32.ml:86:10>>*/ n + 2147483648 | 0;
-     /*<<int32.ml:82:46>>*/ return  /*<<int32.ml:82:28>>*/ caml_int_compare
-            (x, y) /*<<int32.ml:86:41>>*/ ;
+     /*<<int32.ml:82:28>>*/ return caml_int_compare(x, y) /*<<int32.ml:86:41>>*/ ;
    }
    function unsigned_lt(n, m){
-     /*<<int32.ml:89:31>>*/ return  /*<<int32.ml:89:2>>*/ caml_lessthan
+     /*<<int32.ml:89:2>>*/ return caml_lessthan
             (n + 2147483648 | 0, m + 2147483648 | 0) /*<<int32.ml:89:31>>*/ ;
    }
    function min(x, y){
-     /*<<int32.ml:91:27>>*/ return  /*<<int32.ml:91:21>>*/ caml_lessequal
-             (x, y)
-            ? x
-            : y /*<<int32.ml:91:41>>*/ ;
+     /*<<int32.ml:91:21>>*/ return caml_lessequal(x, y) ? x : y /*<<int32.ml:91:41>>*/ ;
    }
    function max(x, y){
-     /*<<int32.ml:92:27>>*/ return  /*<<int32.ml:92:21>>*/ caml_greaterequal
-             (x, y)
-            ? x
-            : y /*<<int32.ml:92:41>>*/ ;
+     /*<<int32.ml:92:21>>*/ return caml_greaterequal(x, y) ? x : y /*<<int32.ml:92:41>>*/ ;
    }
    function unsigned_div(n, d){
-     /*<<int32.ml:98:13>>*/ if( /*<<int32.ml:98:5>>*/ caml_lessthan(d, 0))
-      /*<<int32.ml:99:22>>*/ return  /*<<int32.ml:99:7>>*/ unsigned_lt(n, d)
-             ? zero
-             : one /*<<int32.ml:103:41>>*/ ;
+     /*<<int32.ml:98:5>>*/ if(caml_lessthan(d, 0))
+      /*<<int32.ml:99:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int32.ml:103:41>>*/ ;
     var
-     q =
-        /*<<int32.ml:101:12>>*/  /*<<int32.ml:101:23>>*/ runtime.caml_div
-        (n >>> 1 | 0, d)
-       << 1,
-     r =
-        /*<<int32.ml:102:12>>*/ n -  /*<<int32.ml:102:18>>*/ caml_mul(q, d)
-       | 0;
-     /*<<int32.ml:103:22>>*/ return  /*<<int32.ml:103:7>>*/ unsigned_lt(r, d)
-            ? q
-            : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
+     q =  /*<<int32.ml:101:23>>*/ runtime.caml_div(n >>> 1 | 0, d) << 1,
+     r =  /*<<int32.ml:102:18>>*/ n - caml_mul(q, d) | 0;
+     /*<<int32.ml:103:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<int32.ml:103:41>>*/ ;
    }
    function unsigned_rem(n, d){
-     /*<<int32.ml:106:34>>*/ return n
+     /*<<int32.ml:106:13>>*/ return n
            -
              /*<<int32.ml:106:8>>*/ caml_mul
              ( /*<<int32.ml:106:13>>*/ unsigned_div(n, d), d)
            | 0 /*<<int32.ml:106:34>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<int32.ml:110:56>>*/ return  /*<<int32.ml:110:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
+     /*<<int32.ml:110:25>>*/ return caml_hash(10, 100, seed, x) /*<<int32.ml:110:56>>*/ ;
    }
    function hash(x){
-     /*<<int32.ml:111:41>>*/ return  /*<<int32.ml:111:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
+     /*<<int32.ml:111:13>>*/ return caml_hash(10, 100, 0, x) /*<<int32.ml:111:41>>*/ ;
    }
    var
     Stdlib_Int32 =
@@ -9472,44 +9199,36 @@
     _c_ = runtime.caml_int64_create_lo_mi_hi(0, 0, 0),
     _d_ = runtime.caml_int64_create_lo_mi_hi(16777215, 16777215, 65535);
    function succ(n){
-     /*<<int64.ml:46:21>>*/ return  /*<<int64.ml:46:13>>*/ caml_int64_add
-            (n, _a_) /*<<int64.ml:46:21>>*/ ;
+     /*<<int64.ml:46:13>>*/ return caml_int64_add(n, _a_) /*<<int64.ml:46:21>>*/ ;
    }
    function pred(n){
-     /*<<int64.ml:47:21>>*/ return  /*<<int64.ml:47:13>>*/ caml_int64_sub
-            (n, _b_) /*<<int64.ml:47:21>>*/ ;
+     /*<<int64.ml:47:13>>*/ return caml_int64_sub(n, _b_) /*<<int64.ml:47:21>>*/ ;
    }
    function abs(n){
-     /*<<int64.ml:48:22>>*/ return  /*<<int64.ml:48:15>>*/ caml_greaterequal
-             (n, _c_)
+     /*<<int64.ml:48:15>>*/ return caml_greaterequal(n, _c_)
             ? n
             :  /*<<int64.ml:48:35>>*/ runtime.caml_int64_neg(n) /*<<int64.ml:48:40>>*/ ;
    }
    function lognot(n){
-     /*<<int64.ml:51:29>>*/ return  /*<<int64.ml:51:15>>*/ runtime.caml_int64_xor
-            (n, _d_) /*<<int64.ml:51:29>>*/ ;
+     /*<<int64.ml:51:15>>*/ return runtime.caml_int64_xor(n, _d_) /*<<int64.ml:51:29>>*/ ;
    }
    var
     max_int$0 =
        /*<<int64.ml:54:16>>*/ runtime.caml_int64_of_int32(Stdlib[19]),
-    _e_ =  /*<<?>>*/ runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
+    _e_ =  /*<<int64.ml:55:2>>*/ runtime.caml_int64_create_lo_mi_hi(0, 0, 0);
    function unsigned_to_int(n){
-     /*<<int64.ml:56:14>>*/ if
-     ( /*<<int64.ml:56:7>>*/ caml_greaterequal(n, _e_)
+     /*<<int64.ml:56:7>>*/ if
+     (caml_greaterequal(n, _e_)
       &&  /*<<int64.ml:56:18>>*/ caml_lessequal(n, max_int$0))
       /*<<int64.ml:57:6>>*/ return [0, runtime.caml_int64_to_int32(n)];
      /*<<int64.ml:59:6>>*/ return 0;
     /*<<int64.ml:59:10>>*/ }
    function to_string(n){
-     /*<<int64.ml:62:31>>*/ return  /*<<int64.ml:62:18>>*/ runtime.caml_int64_format
-            ("%d", n) /*<<int64.ml:62:31>>*/ ;
+     /*<<int64.ml:62:18>>*/ return runtime.caml_int64_format("%d", n) /*<<int64.ml:62:31>>*/ ;
    }
    function of_string_opt(s){
      /*<<int64.ml:67:2>>*/ try{
-     var
-      _g_ =
-         /*<<int64.ml:67:24>>*/ [0,
-          /*<<int64.ml:67:11>>*/ runtime.caml_int64_of_string(s)];
+     var _g_ =  /*<<int64.ml:67:11>>*/ [0, runtime.caml_int64_of_string(s)];
      return _g_;
     }
     catch(_h_){
@@ -9519,67 +9238,55 @@
     }
     /*<<int64.ml:68:24>>*/ }
    function compare(x, y){
-     /*<<int64.ml:79:46>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-            (x, y) /*<<int64.ml:79:46>>*/ ;
+     /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:79:46>>*/ ;
    }
    var equal =  /*<<int64.ml:55:2>>*/ runtime.caml_equal;
    function unsigned_compare(n, m){
     var
      y =  /*<<int64.ml:83:26>>*/ caml_int64_sub(m, min_int),
      x =  /*<<int64.ml:83:10>>*/ caml_int64_sub(n, min_int);
-     /*<<int64.ml:79:46>>*/ return  /*<<int64.ml:79:28>>*/ caml_int64_compare
-            (x, y) /*<<int64.ml:83:41>>*/ ;
+     /*<<int64.ml:79:28>>*/ return caml_int64_compare(x, y) /*<<int64.ml:83:41>>*/ ;
    }
    function unsigned_lt(n, m){
-     /*<<int64.ml:86:31>>*/ return  /*<<int64.ml:86:2>>*/ caml_lessthan
+     /*<<int64.ml:86:2>>*/ return caml_lessthan
             (caml_int64_sub(n, min_int),
               /*<<int64.ml:86:18>>*/ caml_int64_sub(m, min_int)) /*<<int64.ml:86:31>>*/ ;
    }
    function min(x, y){
-     /*<<int64.ml:88:27>>*/ return  /*<<int64.ml:88:21>>*/ caml_lessequal
-             (x, y)
-            ? x
-            : y /*<<int64.ml:88:41>>*/ ;
+     /*<<int64.ml:88:21>>*/ return caml_lessequal(x, y) ? x : y /*<<int64.ml:88:41>>*/ ;
    }
    function max(x, y){
-     /*<<int64.ml:89:27>>*/ return  /*<<int64.ml:89:21>>*/ caml_greaterequal
-             (x, y)
-            ? x
-            : y /*<<int64.ml:89:41>>*/ ;
+     /*<<int64.ml:89:21>>*/ return caml_greaterequal(x, y) ? x : y /*<<int64.ml:89:41>>*/ ;
    }
    function unsigned_div(n, d){
-     /*<<int64.ml:95:13>>*/ if( /*<<int64.ml:95:5>>*/ caml_lessthan(d, zero))
-      /*<<int64.ml:96:22>>*/ return  /*<<int64.ml:96:7>>*/ unsigned_lt(n, d)
-             ? zero
-             : one /*<<int64.ml:100:41>>*/ ;
+     /*<<int64.ml:95:5>>*/ if(caml_lessthan(d, zero))
+      /*<<int64.ml:96:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<int64.ml:100:41>>*/ ;
     var
      q =
-        /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
+        /*<<int64.ml:98:28>>*/  /*<<int64.ml:98:12>>*/ runtime.caml_int64_shift_left
         ( /*<<int64.ml:98:23>>*/ runtime.caml_int64_div
           ( /*<<int64.ml:98:28>>*/ runtime.caml_int64_shift_right_unsigned
             (n, 1),
            d),
          1),
      r =
-        /*<<int64.ml:99:12>>*/ caml_int64_sub
+        /*<<int64.ml:99:18>>*/  /*<<int64.ml:99:12>>*/ caml_int64_sub
         (n,  /*<<int64.ml:99:18>>*/ caml_int64_mul(q, d));
-     /*<<int64.ml:100:22>>*/ return  /*<<int64.ml:100:7>>*/ unsigned_lt(r, d)
+     /*<<int64.ml:100:7>>*/ return unsigned_lt(r, d)
             ? q
             :  /*<<int64.ml:46:13>>*/ caml_int64_add(q, _a_) /*<<int64.ml:100:41>>*/ ;
    }
    function unsigned_rem(n, d){
-     /*<<int64.ml:103:34>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
+     /*<<int64.ml:103:13>>*/ return  /*<<int64.ml:103:2>>*/ caml_int64_sub
             (n,
               /*<<int64.ml:103:8>>*/ caml_int64_mul
               ( /*<<int64.ml:103:13>>*/ unsigned_div(n, d), d)) /*<<int64.ml:103:34>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<int64.ml:107:56>>*/ return  /*<<int64.ml:107:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
+     /*<<int64.ml:107:25>>*/ return caml_hash(10, 100, seed, x) /*<<int64.ml:107:56>>*/ ;
    }
    function hash(x){
-     /*<<int64.ml:108:41>>*/ return  /*<<int64.ml:108:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
+     /*<<int64.ml:108:13>>*/ return caml_hash(10, 100, 0, x) /*<<int64.ml:108:41>>*/ ;
    }
    var
     Stdlib_Int64 =
@@ -9633,10 +9340,7 @@
    function succ(n){ /*<<nativeint.ml:44:21>>*/ return n + 1 | 0;}
    function pred(n){ /*<<nativeint.ml:45:21>>*/ return n - 1 | 0;}
    function abs(n){
-     /*<<nativeint.ml:46:22>>*/ return  /*<<nativeint.ml:46:15>>*/ caml_greaterequal
-             (n, 0)
-            ? n
-            : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
+     /*<<nativeint.ml:46:15>>*/ return caml_greaterequal(n, 0) ? n : - n | 0 /*<<nativeint.ml:46:40>>*/ ;
    }
    var
     size =  /*<<?>>*/ Stdlib_Sys[9],
@@ -9645,22 +9349,18 @@
    function lognot(n){ /*<<nativeint.ml:50:29>>*/ return n ^ -1;}
    var max_int$0 =  /*<<nativeint.ml:49:28>>*/ Stdlib[19];
    function unsigned_to_int(n){
-     /*<<nativeint.ml:55:14>>*/ if
-     ( /*<<nativeint.ml:55:7>>*/ caml_greaterequal(n, 0)
+     /*<<nativeint.ml:55:7>>*/ if
+     (caml_greaterequal(n, 0)
       &&  /*<<nativeint.ml:55:18>>*/ caml_lessequal(n, max_int$0))
       /*<<nativeint.ml:56:6>>*/ return [0, n];
      /*<<nativeint.ml:58:6>>*/ return 0;
     /*<<nativeint.ml:58:10>>*/ }
    function to_string(n){
-     /*<<nativeint.ml:61:31>>*/ return  /*<<nativeint.ml:61:18>>*/ runtime.caml_format_int
-            ("%d", n) /*<<nativeint.ml:61:31>>*/ ;
+     /*<<nativeint.ml:61:18>>*/ return runtime.caml_format_int("%d", n) /*<<nativeint.ml:61:31>>*/ ;
    }
    function of_string_opt(s){
      /*<<nativeint.ml:66:2>>*/ try{
-     var
-      _b_ =
-         /*<<nativeint.ml:66:24>>*/ [0,
-          /*<<nativeint.ml:66:11>>*/ runtime.caml_int_of_string(s)];
+     var _b_ =  /*<<nativeint.ml:66:11>>*/ [0, runtime.caml_int_of_string(s)];
      return _b_;
     }
     catch(_c_){
@@ -9671,69 +9371,44 @@
     /*<<nativeint.ml:67:24>>*/ }
    var compare =  /*<<nativeint.ml:54:2>>*/ caml_int_compare;
    function equal(x, y){
-     /*<<nativeint.ml:72:37>>*/ return 0
-            ===  /*<<nativeint.ml:71:28>>*/ caml_int_compare(x, y)
-            ? 1
-            : 0 /*<<nativeint.ml:72:37>>*/ ;
+     /*<<nativeint.ml:71:28>>*/ return 0 === caml_int_compare(x, y) ? 1 : 0 /*<<nativeint.ml:72:37>>*/ ;
     /*<<nativeint.ml:72:41>>*/ }
    function unsigned_compare(n, m){
     var
      y =  /*<<nativeint.ml:75:26>>*/ m - min_int | 0,
      x =  /*<<nativeint.ml:75:10>>*/ n - min_int | 0;
-     /*<<nativeint.ml:71:46>>*/ return  /*<<nativeint.ml:71:28>>*/ caml_int_compare
-            (x, y) /*<<nativeint.ml:75:41>>*/ ;
+     /*<<nativeint.ml:71:28>>*/ return caml_int_compare(x, y) /*<<nativeint.ml:75:41>>*/ ;
    }
    function unsigned_lt(n, m){
-     /*<<nativeint.ml:78:31>>*/ return  /*<<nativeint.ml:78:2>>*/ caml_lessthan
+     /*<<nativeint.ml:78:2>>*/ return caml_lessthan
             (n - min_int | 0, m - min_int | 0) /*<<nativeint.ml:78:31>>*/ ;
    }
    function min(x, y){
-     /*<<nativeint.ml:80:27>>*/ return  /*<<nativeint.ml:80:21>>*/ caml_lessequal
-             (x, y)
-            ? x
-            : y /*<<nativeint.ml:80:41>>*/ ;
+     /*<<nativeint.ml:80:21>>*/ return caml_lessequal(x, y) ? x : y /*<<nativeint.ml:80:41>>*/ ;
    }
    function max(x, y){
-     /*<<nativeint.ml:81:27>>*/ return  /*<<nativeint.ml:81:21>>*/ caml_greaterequal
-             (x, y)
-            ? x
-            : y /*<<nativeint.ml:81:41>>*/ ;
+     /*<<nativeint.ml:81:21>>*/ return caml_greaterequal(x, y) ? x : y /*<<nativeint.ml:81:41>>*/ ;
    }
    function unsigned_div(n, d){
-     /*<<nativeint.ml:87:13>>*/ if
-     ( /*<<nativeint.ml:87:5>>*/ caml_lessthan(d, 0))
-      /*<<nativeint.ml:88:22>>*/ return  /*<<nativeint.ml:88:7>>*/ unsigned_lt
-              (n, d)
-             ? zero
-             : one /*<<nativeint.ml:92:41>>*/ ;
+     /*<<nativeint.ml:87:5>>*/ if(caml_lessthan(d, 0))
+      /*<<nativeint.ml:88:7>>*/ return unsigned_lt(n, d) ? zero : one /*<<nativeint.ml:92:41>>*/ ;
     var
-     q =
-        /*<<nativeint.ml:90:12>>*/  /*<<nativeint.ml:90:23>>*/ runtime.caml_div
-        (n >>> 1 | 0, d)
-       << 1,
-     r =
-        /*<<nativeint.ml:91:12>>*/ n
-       -  /*<<nativeint.ml:91:18>>*/ caml_mul(q, d)
-       | 0;
-     /*<<nativeint.ml:92:22>>*/ return  /*<<nativeint.ml:92:7>>*/ unsigned_lt
-             (r, d)
-            ? q
-            : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
+     q =  /*<<nativeint.ml:90:23>>*/ runtime.caml_div(n >>> 1 | 0, d) << 1,
+     r =  /*<<nativeint.ml:91:18>>*/ n - caml_mul(q, d) | 0;
+     /*<<nativeint.ml:92:7>>*/ return unsigned_lt(r, d) ? q : q + 1 | 0 /*<<nativeint.ml:92:41>>*/ ;
    }
    function unsigned_rem(n, d){
-     /*<<nativeint.ml:95:34>>*/ return n
+     /*<<nativeint.ml:95:13>>*/ return n
            -
              /*<<nativeint.ml:95:8>>*/ caml_mul
              ( /*<<nativeint.ml:95:13>>*/ unsigned_div(n, d), d)
            | 0 /*<<nativeint.ml:95:34>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<nativeint.ml:99:56>>*/ return  /*<<nativeint.ml:99:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
+     /*<<nativeint.ml:99:25>>*/ return caml_hash(10, 100, seed, x) /*<<nativeint.ml:99:56>>*/ ;
    }
    function hash(x){
-     /*<<nativeint.ml:100:41>>*/ return  /*<<nativeint.ml:100:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
+     /*<<nativeint.ml:100:13>>*/ return caml_hash(10, 100, 0, x) /*<<nativeint.ml:100:41>>*/ ;
    }
    var
     Stdlib_Nativeint =
@@ -9843,11 +9518,11 @@
      _f_ =  /*<<lexing.ml:148:2>>*/ with_positions ? zero_pos : dummy_pos,
      _g_ = with_positions ? zero_pos : dummy_pos,
      aux_buffer =  /*<<lexing.ml:148:31>>*/ caml_create_bytes(512);
-     /*<<lexing.ml:148:49>>*/ return [0,
+     /*<<lexing.ml:149:17>>*/ return [0,
             function(lexbuf){
              var
               read =
-                 /*<<lexing.ml:85:4>>*/ caml_call2
+                 /*<<lexing.ml:84:2>>*/  /*<<lexing.ml:85:4>>*/ caml_call2
                  (read_fun,
                   aux_buffer,
                    /*<<lexing.ml:84:2>>*/ caml_ml_bytes_length(aux_buffer)),
@@ -9867,7 +9542,7 @@
               else{
                var
                 newlen =
-                   /*<<lexing.ml:111:8>>*/ caml_call2
+                   /*<<lexing.ml:106:13>>*/  /*<<lexing.ml:111:8>>*/ caml_call2
                    (Stdlib_Int[10],
                     2
                     *  /*<<lexing.ml:106:13>>*/ caml_ml_bytes_length(lexbuf[2])
@@ -9897,8 +9572,8 @@
               var
                t =  /*<<lexing.ml:129:4>>*/ lexbuf[10],
                _i_ =  /*<<lexing.ml:130:4>>*/ t.length - 2 | 0,
-               _h_ =  /*<<lexing.ml:129:4>>*/ 0;
-               /*<<lexing.ml:130:4>>*/ if(_i_ >= 0){
+               _h_ = 0;
+              if(_i_ >= 0){
                var i = _h_;
                for(;;){
                 var
@@ -9941,7 +9616,7 @@
      with_positions =  /*<<lexing.ml:165:16>>*/ opt ? opt[1] : 1,
      _d_ =  /*<<lexing.ml:166:2>>*/ with_positions ? zero_pos : dummy_pos,
      _e_ = with_positions ? zero_pos : dummy_pos;
-     /*<<lexing.ml:167:34>>*/ return [0,
+     /*<<lexing.ml:167:17>>*/ return [0,
             function(lexbuf){
               /*<<lexing.ml:166:33>>*/ lexbuf[9] = 1;
              return 0;
@@ -9985,13 +9660,11 @@
    function sub_lexeme_opt(lexbuf, i1, i2){
      /*<<lexing.ml:199:2>>*/ if(0 > i1)  /*<<lexing.ml:202:11>>*/ return 0;
     var len =  /*<<lexing.ml:199:18>>*/ i2 - i1 | 0;
-     /*<<lexing.ml:201:52>>*/ return [0,
-             /*<<lexing.ml:201:9>>*/ caml_call3
-             (Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:52>>*/ ;
+     /*<<lexing.ml:201:9>>*/ return [0,
+            caml_call3(Stdlib_Bytes[8], lexbuf[2], i1, len)] /*<<lexing.ml:201:52>>*/ ;
     /*<<lexing.ml:204:5>>*/ }
    function sub_lexeme_char(lexbuf, i){
-     /*<<lexing.ml:206:60>>*/ return  /*<<lexing.ml:206:31>>*/ caml_bytes_get
-            (lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
+     /*<<lexing.ml:206:31>>*/ return caml_bytes_get(lexbuf[2], i) /*<<lexing.ml:206:60>>*/ ;
    }
    function sub_lexeme_char_opt(lexbuf, i){
      /*<<lexing.ml:209:2>>*/ return 0 <= i
@@ -9999,7 +9672,7 @@
             : 0 /*<<lexing.ml:212:8>>*/ ;
    }
    function lexeme_char(lexbuf, i){
-     /*<<lexing.ml:216:56>>*/ return  /*<<lexing.ml:216:2>>*/ caml_bytes_get
+     /*<<lexing.ml:216:2>>*/ return caml_bytes_get
             (lexbuf[2], lexbuf[5] + i | 0) /*<<lexing.ml:216:56>>*/ ;
    }
    function lexeme_start(lexbuf){
@@ -10098,8 +9771,8 @@
     YYexit = [248, "Stdlib.Parsing.YYexit", caml_fresh_oo_id(0)],
     Parse_error = [248, "Stdlib.Parsing.Parse_error", caml_fresh_oo_id(0)],
     env =
-       /*<<parsing.ml:90:30>>*/ [0,
-        /*<<parsing.ml:90:14>>*/ caml_make_vect(100, 0),
+       /*<<parsing.ml:90:14>>*/ [0,
+       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]),
@@ -10115,7 +9788,7 @@
        0,
        0,
        0],
-    dummy =  /*<<?>>*/ 0;
+    dummy =  /*<<parsing.ml:90:30>>*/ 0;
    function grow_stacks(param){
     var
      oldsize =  /*<<parsing.ml:108:2>>*/ env[5],
@@ -10152,7 +9825,7 @@
        function(param){
          /*<<parsing.ml:128:52>>*/ return 0;
         /*<<parsing.ml:128:57>>*/ }],
-    cst_syntax_error =  /*<<?>>*/ "syntax error";
+    cst_syntax_error =  /*<<parsing.ml:90:30>>*/ "syntax error";
    function yyparse(tables, start, lexer, lexbuf){
     var
      init_asp =  /*<<parsing.ml:154:2>>*/ env[11],
@@ -10168,9 +9841,8 @@
      /*<<parsing.ml:164:2>>*/ try{
      var cmd =  /*<<parsing.ml:165:4>>*/ 0, arg = 0;
      for(;;)
-       /*<<parsing.ml:132:41>>*/ switch
-       ( /*<<parsing.ml:132:10>>*/ runtime.caml_parse_engine
-         (tables, env, cmd, arg)){
+       /*<<parsing.ml:132:10>>*/ switch
+       (runtime.caml_parse_engine(tables, env, cmd, arg)){
         case 0:
          var arg$0 =  /*<<parsing.ml:134:24>>*/ caml_call1(lexer, lexbuf);
           /*<<parsing.ml:135:8>>*/ env[9] = lexbuf[11];
@@ -10233,17 +9905,14 @@
      }
       /*<<parsing.ml:179:8>>*/ current_lookahead_fun[1] =
       function(tok){
-        /*<<parsing.ml:181:31>>*/ if
-        (!  /*<<parsing.ml:181:15>>*/ caml_call1(Stdlib_Obj[1], tok))
-         /*<<parsing.ml:183:52>>*/ return  /*<<parsing.ml:183:17>>*/ caml_check_bound
-                  (tables[2], tok)
+        /*<<parsing.ml:181:15>>*/ if(! caml_call1(Stdlib_Obj[1], tok))
+         /*<<parsing.ml:183:17>>*/ return caml_check_bound(tables[2], tok)
                  [1 + tok]
                 === curr_char
                 ? 1
                 : 0 /*<<parsing.ml:183:52>>*/ ;
        var _l_ =  /*<<parsing.ml:182:38>>*/ runtime.caml_obj_tag(tok);
-        /*<<parsing.ml:182:50>>*/ return  /*<<parsing.ml:182:17>>*/ caml_check_bound
-                 (tables[3], _l_)
+        /*<<parsing.ml:182:17>>*/ return caml_check_bound(tables[3], _l_)
                 [1 + _l_]
                === curr_char
                ? 1
@@ -10254,26 +9923,21 @@
     /*<<parsing.ml:184:17>>*/ }
    function peek_val(env, n){
     var _g_ =  /*<<parsing.ml:187:2>>*/ env[11] - n | 0;
-     /*<<parsing.ml:187:37>>*/ return  /*<<parsing.ml:187:12>>*/ caml_check_bound
-             (env[2], _g_)
-            [1 + _g_] /*<<parsing.ml:187:37>>*/ ;
+     /*<<parsing.ml:187:12>>*/ return caml_check_bound(env[2], _g_)[1 + _g_] /*<<parsing.ml:187:37>>*/ ;
    }
    function symbol_start_pos(param){
     var i$1 =  /*<<parsing.ml:198:2>>*/ env[12], i = i$1;
     for(;;){
       /*<<parsing.ml:191:4>>*/ if(0 >= i){
       var _f_ =  /*<<parsing.ml:191:19>>*/ env[11];
-       /*<<parsing.ml:191:47>>*/ return  /*<<parsing.ml:191:19>>*/ caml_check_bound
-               (env[4], _f_)
-              [1 + _f_] /*<<parsing.ml:191:47>>*/ ;
+      return caml_check_bound(env[4], _f_)[1 + _f_] /*<<parsing.ml:191:47>>*/ ;
      }
      var
       _d_ =  /*<<parsing.ml:192:9>>*/ (env[11] - i | 0) + 1 | 0,
       st =  /*<<parsing.ml:193:15>>*/ caml_check_bound(env[3], _d_)[1 + _d_],
       _e_ =  /*<<parsing.ml:194:6>>*/ (env[11] - i | 0) + 1 | 0,
       en =  /*<<parsing.ml:194:15>>*/ caml_check_bound(env[4], _e_)[1 + _e_];
-      /*<<parsing.ml:195:17>>*/ if
-      ( /*<<parsing.ml:195:9>>*/ runtime.caml_notequal(st, en))
+      /*<<parsing.ml:195:9>>*/ if(runtime.caml_notequal(st, en))
        /*<<parsing.ml:195:23>>*/ return st;
      var i$0 =  /*<<parsing.ml:195:31>>*/ i - 1 | 0;
      i = i$0;
@@ -10281,41 +9945,27 @@
     /*<<parsing.ml:198:19>>*/ }
    function symbol_end_pos(param){
     var _c_ =  /*<<parsing.ml:200:24>>*/ env[11];
-     /*<<parsing.ml:200:52>>*/ return  /*<<parsing.ml:200:24>>*/ caml_check_bound
-             (env[4], _c_)
-            [1 + _c_] /*<<parsing.ml:200:52>>*/ ;
+    return caml_check_bound(env[4], _c_)[1 + _c_] /*<<parsing.ml:200:52>>*/ ;
    }
    function rhs_start_pos(n){
     var _b_ =  /*<<parsing.ml:201:22>>*/ env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:201:73>>*/ return  /*<<parsing.ml:201:22>>*/ caml_check_bound
-             (env[3], _b_)
-            [1 + _b_] /*<<parsing.ml:201:73>>*/ ;
+    return caml_check_bound(env[3], _b_)[1 + _b_] /*<<parsing.ml:201:73>>*/ ;
    }
    function rhs_end_pos(n){
     var _a_ =  /*<<parsing.ml:202:20>>*/ env[11] - (env[12] - n | 0) | 0;
-     /*<<parsing.ml:202:69>>*/ return  /*<<parsing.ml:202:20>>*/ caml_check_bound
-             (env[4], _a_)
-            [1 + _a_] /*<<parsing.ml:202:69>>*/ ;
+    return caml_check_bound(env[4], _a_)[1 + _a_] /*<<parsing.ml:202:69>>*/ ;
    }
    function symbol_start(param){
-     /*<<parsing.ml:204:43>>*/ return  /*<<parsing.ml:204:22>>*/ symbol_start_pos
-             (0)
-            [4] /*<<parsing.ml:204:43>>*/ ;
+     /*<<parsing.ml:204:22>>*/ return symbol_start_pos(0)[4] /*<<parsing.ml:204:43>>*/ ;
     /*<<parsing.ml:204:52>>*/ }
    function symbol_end(param){
-     /*<<parsing.ml:205:39>>*/ return  /*<<parsing.ml:205:20>>*/ symbol_end_pos
-             (0)
-            [4] /*<<parsing.ml:205:39>>*/ ;
+     /*<<parsing.ml:205:20>>*/ return symbol_end_pos(0)[4] /*<<parsing.ml:205:39>>*/ ;
     /*<<parsing.ml:205:48>>*/ }
    function rhs_start(n){
-     /*<<parsing.ml:206:35>>*/ return  /*<<parsing.ml:206:18>>*/ rhs_start_pos
-             (n)
-            [4] /*<<parsing.ml:206:35>>*/ ;
+     /*<<parsing.ml:206:18>>*/ return rhs_start_pos(n)[4] /*<<parsing.ml:206:35>>*/ ;
     /*<<parsing.ml:206:44>>*/ }
    function rhs_end(n){
-     /*<<parsing.ml:207:31>>*/ return  /*<<parsing.ml:207:16>>*/ rhs_end_pos
-             (n)
-            [4] /*<<parsing.ml:207:31>>*/ ;
+     /*<<parsing.ml:207:16>>*/ return rhs_end_pos(n)[4] /*<<parsing.ml:207:31>>*/ ;
     /*<<parsing.ml:207:40>>*/ }
    function is_current_lookahead(tok){
      /*<<parsing.ml:210:2>>*/ return caml_call1(current_lookahead_fun[1], tok) /*<<parsing.ml:210:40>>*/ ;
@@ -10422,8 +10072,8 @@
            lv = l[2],
            ll = l[1],
            _T_ =  /*<<set.ml:107:28>>*/ height(lr);
-           /*<<set.ml:107:24>>*/ if(_T_ <=  /*<<set.ml:107:15>>*/ height(ll))
-            /*<<set.ml:108:42>>*/ return create
+           /*<<set.ml:107:15>>*/ if(_T_ <= height(ll))
+            /*<<set.ml:108:27>>*/ return  /*<<set.ml:108:42>>*/ create
                    (ll, lv,  /*<<set.ml:108:27>>*/ create(lr, v, r)) /*<<set.ml:128:62>>*/ ;
            /*<<set.ml:109:17>>*/ if(! lr)
             /*<<set.ml:111:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal) /*<<set.ml:128:62>>*/ ;
@@ -10432,7 +10082,7 @@
            lrv = lr[2],
            lrl = lr[1],
            _U_ =  /*<<set.ml:113:48>>*/ create(lrr, v, r);
-           /*<<set.ml:113:43>>*/ return create
+           /*<<set.ml:113:25>>*/ return  /*<<set.ml:113:43>>*/ create
                   ( /*<<set.ml:113:25>>*/ create(ll, lv, lrl), lrv, _U_) /*<<set.ml:128:62>>*/ ;
          }
           /*<<set.ml:115:15>>*/ if((hl + 2 | 0) >= hr){
@@ -10446,8 +10096,8 @@
           rv = r[2],
           rl = r[1],
           _V_ =  /*<<set.ml:119:28>>*/ height(rl);
-          /*<<set.ml:119:24>>*/ if(_V_ <=  /*<<set.ml:119:15>>*/ height(rr))
-           /*<<set.ml:120:36>>*/ return create
+          /*<<set.ml:119:15>>*/ if(_V_ <= height(rr))
+           /*<<set.ml:120:21>>*/ return  /*<<set.ml:120:36>>*/ create
                   ( /*<<set.ml:120:21>>*/ create(l, v, rl), rv, rr) /*<<set.ml:128:62>>*/ ;
           /*<<set.ml:121:17>>*/ if(! rl)
            /*<<set.ml:123:25>>*/ return caml_call1(Stdlib[1], cst_Set_bal$1) /*<<set.ml:128:62>>*/ ;
@@ -10456,7 +10106,7 @@
           rlv = rl[2],
           rll = rl[1],
           _W_ =  /*<<set.ml:125:46>>*/ create(rlr, rv, rr);
-          /*<<set.ml:125:41>>*/ return create
+          /*<<set.ml:125:25>>*/ return  /*<<set.ml:125:41>>*/ create
                  ( /*<<set.ml:125:25>>*/ create(l, v, rll), rlv, _W_) /*<<set.ml:128:62>>*/ ;
         }
         function add(x, t){
@@ -10486,14 +10136,14 @@
           /*<<set.ml:153:28>>*/ if(! param)
            /*<<set.ml:154:17>>*/ return singleton(x) /*<<set.ml:156:37>>*/ ;
          var r =  /*<<set.ml:153:28>>*/ param[3], v = param[2], l = param[1];
-          /*<<set.ml:156:33>>*/ return bal
+          /*<<set.ml:156:12>>*/ return  /*<<set.ml:156:33>>*/ bal
                  ( /*<<set.ml:156:12>>*/ add_min_element(x, l), v, r) /*<<set.ml:156:37>>*/ ;
         }
         function add_max_element(x, param){
           /*<<set.ml:158:28>>*/ if(! param)
            /*<<set.ml:159:17>>*/ return singleton(x) /*<<set.ml:161:37>>*/ ;
          var r =  /*<<set.ml:158:28>>*/ param[3], v = param[2], l = param[1];
-          /*<<set.ml:161:37>>*/ return bal
+          /*<<set.ml:161:16>>*/ return  /*<<set.ml:161:37>>*/ bal
                  (l, v,  /*<<set.ml:161:16>>*/ add_max_element(x, r)) /*<<set.ml:161:37>>*/ ;
         }
         function join(l, v, r){
@@ -10574,7 +10224,7 @@
          var l =  /*<<set.ml:199:29>>*/ param[1];
          if(l){
           var r = param[3], v = param[2];
-           /*<<set.ml:202:47>>*/ return bal
+           /*<<set.ml:202:29>>*/ return  /*<<set.ml:202:47>>*/ bal
                   ( /*<<set.ml:202:29>>*/ remove_min_elt(l), v, r) /*<<set.ml:202:51>>*/ ;
          }
          var r$0 =  /*<<set.ml:199:29>>*/ param[3];
@@ -10584,7 +10234,7 @@
           /*<<set.ml:219:6>>*/ if(! t1)  /*<<set.ml:220:22>>*/ return t2;
           /*<<set.ml:219:6>>*/ if(! t2)  /*<<set.ml:221:22>>*/ return t1;
          var _S_ =  /*<<set.ml:222:39>>*/ remove_min_elt(t2);
-          /*<<set.ml:222:38>>*/ return join
+          /*<<set.ml:222:26>>*/ return  /*<<set.ml:222:38>>*/ join
                  (t1,  /*<<set.ml:222:26>>*/ min_elt(t2), _S_) /*<<set.ml:222:58>>*/ ;
         }
         function split(x, param){
@@ -10602,20 +10252,14 @@
            rr =  /*<<set.ml:239:42>>*/ match[3],
            pres = match[2],
            lr = match[1];
-           /*<<set.ml:239:58>>*/ return [0,
-                   /*<<set.ml:239:47>>*/ join(l, v, lr),
-                  pres,
-                  rr] /*<<set.ml:239:58>>*/ ;
+           /*<<set.ml:239:47>>*/ return [0, join(l, v, lr), pres, rr] /*<<set.ml:239:58>>*/ ;
          }
          var
           match$0 =  /*<<set.ml:237:33>>*/ split(x, l),
           rl =  /*<<set.ml:237:42>>*/ match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<set.ml:237:68>>*/ return [0,
-                 ll,
-                 pres$0,
-                  /*<<set.ml:237:57>>*/ join(rl, v, r)] /*<<set.ml:237:68>>*/ ;
+          /*<<set.ml:237:57>>*/ return [0, ll, pres$0, join(rl, v, r)] /*<<set.ml:237:68>>*/ ;
          /*<<set.ml:239:69>>*/ }
         var empty =  /*<<?>>*/ 0;
         function is_empty(param){
@@ -10647,7 +10291,7 @@
            /*<<set.ml:209:6>>*/ if(! t1)  /*<<set.ml:210:22>>*/ return t2;
            /*<<set.ml:209:6>>*/ if(! t2)  /*<<set.ml:211:22>>*/ return t1;
           var _Q_ =  /*<<set.ml:212:38>>*/ remove_min_elt(t2);
-           /*<<set.ml:212:37>>*/ return bal
+           /*<<set.ml:212:25>>*/ return  /*<<set.ml:212:37>>*/ bal
                   (t1,  /*<<set.ml:212:25>>*/ min_elt(t2), _Q_) /*<<set.ml:266:29>>*/ ;
          }
           /*<<set.ml:259:12>>*/ if(0 <= c){
@@ -10681,7 +10325,7 @@
            r2$0 =  /*<<set.ml:275:43>>*/ match[3],
            l2$0 = match[1],
            _O_ =  /*<<set.ml:276:36>>*/ union(r1, r2$0);
-           /*<<set.ml:276:32>>*/ return join
+           /*<<set.ml:276:19>>*/ return  /*<<set.ml:276:32>>*/ join
                   ( /*<<set.ml:276:19>>*/ union(l1, l2$0), v1, _O_) /*<<set.ml:282:15>>*/ ;
          }
           /*<<set.ml:279:12>>*/ if(1 === h1)
@@ -10691,7 +10335,7 @@
           r1$0 =  /*<<set.ml:280:43>>*/ match$0[3],
           l1$0 = match$0[1],
           _P_ =  /*<<set.ml:281:36>>*/ union(r1$0, r2);
-          /*<<set.ml:281:32>>*/ return join
+          /*<<set.ml:281:19>>*/ return  /*<<set.ml:281:32>>*/ join
                  ( /*<<set.ml:281:19>>*/ union(l1$0, l2), v2, _P_) /*<<set.ml:282:15>>*/ ;
         }
         function inter(s1, s2){
@@ -10705,13 +10349,13 @@
           l2 =  /*<<set.ml:289:27>>*/ _L_[1];
          if(_L_[2]){
           var r2 = _L_[3], _M_ =  /*<<set.ml:293:36>>*/ inter(r1, r2);
-           /*<<set.ml:293:32>>*/ return join
+           /*<<set.ml:293:19>>*/ return  /*<<set.ml:293:32>>*/ join
                   ( /*<<set.ml:293:19>>*/ inter(l1, l2), v1, _M_) /*<<set.ml:293:49>>*/ ;
          }
          var
           r2$0 =  /*<<set.ml:289:27>>*/ _L_[3],
           _N_ =  /*<<set.ml:291:35>>*/ inter(r1, r2$0);
-          /*<<set.ml:291:34>>*/ return concat
+          /*<<set.ml:291:21>>*/ return  /*<<set.ml:291:34>>*/ concat
                  ( /*<<set.ml:291:21>>*/ inter(l1, l2), _N_) /*<<set.ml:293:49>>*/ ;
         }
         function split_bis(x, param){
@@ -10731,9 +10375,7 @@
           var match =  /*<<set.ml:314:18>>*/ split_bis(x, r);
            /*<<set.ml:314:31>>*/ if(! match)  /*<<set.ml:315:23>>*/ return 0;
           var rr =  /*<<set.ml:314:31>>*/ match[2], lr = match[1];
-           /*<<set.ml:316:56>>*/ return [0,
-                   /*<<set.ml:316:45>>*/ join(l, v, lr),
-                  rr] /*<<set.ml:316:56>>*/ ;
+           /*<<set.ml:316:45>>*/ return [0, join(l, v, lr), rr] /*<<set.ml:316:56>>*/ ;
          }
          var match$0 =  /*<<set.ml:310:18>>*/ split_bis(x, l);
           /*<<set.ml:310:31>>*/ if(! match$0)  /*<<set.ml:311:23>>*/ return 0;
@@ -10741,7 +10383,7 @@
           /*<<set.ml:312:35>>*/ return [0,
                  ll,
                  function(param){
-                   /*<<set.ml:312:72>>*/ return join
+                   /*<<set.ml:312:65>>*/ return  /*<<set.ml:312:72>>*/ join
                           ( /*<<set.ml:312:65>>*/ rl(0), v, r) /*<<set.ml:312:76>>*/ ;
                  }] /*<<set.ml:312:35>>*/ ;
          /*<<set.ml:316:61>>*/ }
@@ -10778,13 +10420,13 @@
           l2 =  /*<<set.ml:332:27>>*/ _H_[1];
          if(_H_[2]){
           var r2 = _H_[3], _I_ =  /*<<set.ml:336:34>>*/ diff(r1, r2);
-           /*<<set.ml:336:33>>*/ return concat
+           /*<<set.ml:336:21>>*/ return  /*<<set.ml:336:33>>*/ concat
                   ( /*<<set.ml:336:21>>*/ diff(l1, l2), _I_) /*<<set.ml:336:46>>*/ ;
          }
          var
           r2$0 =  /*<<set.ml:332:27>>*/ _H_[3],
           _J_ =  /*<<set.ml:334:35>>*/ diff(r1, r2$0);
-          /*<<set.ml:334:31>>*/ return join
+          /*<<set.ml:334:19>>*/ return  /*<<set.ml:334:31>>*/ join
                  ( /*<<set.ml:334:19>>*/ diff(l1, l2), v1, _J_) /*<<set.ml:336:46>>*/ ;
         }
         function cons_enum(s, e){
@@ -10827,10 +10469,7 @@
          }
          /*<<set.ml:357:55>>*/ }
         function equal(s1, s2){
-          /*<<set.ml:360:19>>*/ return 0
-                 ===  /*<<set.ml:360:6>>*/ compare(s1, s2)
-                 ? 1
-                 : 0 /*<<set.ml:360:19>>*/ ;
+          /*<<set.ml:360:6>>*/ return 0 === compare(s1, s2) ? 1 : 0 /*<<set.ml:360:19>>*/ ;
          /*<<set.ml:360:23>>*/ }
         function subset(s1, s2){
          var s1$0 =  /*<<set.ml:363:6>>*/ s1, s2$0 = s2;
@@ -10885,7 +10524,7 @@
            v = s$0[2],
            l = s$0[1],
            accu$1 =
-              /*<<set.ml:384:34>>*/ caml_call2
+              /*<<set.ml:384:39>>*/  /*<<set.ml:384:34>>*/ caml_call2
               (f, v,  /*<<set.ml:384:39>>*/ fold(f, l, accu$0));
            /*<<set.ml:384:55>>*/ s$0 = r;
           accu$0 = accu$1;
@@ -10959,14 +10598,10 @@
           rt = match$0[1];
           /*<<set.ml:412:10>>*/ if(pv){
           var _w_ =  /*<<set.ml:413:30>>*/ concat(lf, rf);
-           /*<<set.ml:413:28>>*/ return [0,
-                   /*<<set.ml:413:16>>*/ join(lt, v, rt),
-                  _w_] /*<<set.ml:413:28>>*/ ;
+           /*<<set.ml:413:16>>*/ return [0, join(lt, v, rt), _w_] /*<<set.ml:413:28>>*/ ;
          }
          var _x_ =  /*<<set.ml:414:30>>*/ join(lf, v, rf);
-          /*<<set.ml:414:28>>*/ return [0,
-                  /*<<set.ml:414:16>>*/ concat(lt, rt),
-                 _x_] /*<<set.ml:414:28>>*/ ;
+          /*<<set.ml:414:16>>*/ return [0, concat(lt, rt), _x_] /*<<set.ml:414:28>>*/ ;
          /*<<set.ml:414:43>>*/ }
         function cardinal(param){
           /*<<set.ml:416:23>>*/ if(! param)  /*<<set.ml:417:17>>*/ return 0;
@@ -10974,10 +10609,7 @@
           r =  /*<<set.ml:416:23>>*/ param[3],
           l = param[1],
           _v_ =  /*<<set.ml:418:39>>*/ cardinal(r);
-          /*<<set.ml:418:32>>*/ return ( /*<<set.ml:418:22>>*/ cardinal(l) + 1
-                | 0)
-                + _v_
-                | 0 /*<<set.ml:418:32>>*/ ;
+          /*<<set.ml:418:22>>*/ return (cardinal(l) + 1 | 0) + _v_ | 0 /*<<set.ml:418:32>>*/ ;
          /*<<set.ml:418:49>>*/ }
         function elements_aux(accu, param){
          var accu$0 =  /*<<set.ml:420:25>>*/ accu, param$0 = param;
@@ -10987,10 +10619,7 @@
            r =  /*<<set.ml:420:25>>*/ param$0[3],
            v = param$0[2],
            l = param$0[1],
-           accu$1 =
-              /*<<set.ml:422:63>>*/ [0,
-              v,
-               /*<<set.ml:422:44>>*/ elements_aux(accu$0, r)];
+           accu$1 =  /*<<set.ml:422:44>>*/ [0, v, elements_aux(accu$0, r)];
            /*<<set.ml:422:63>>*/ accu$0 = accu$1;
           param$0 = l;
          }
@@ -11024,8 +10653,7 @@
            r$0 =  /*<<set.ml:447:23>>*/ param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<set.ml:451:16>>*/ if
-           ( /*<<set.ml:451:13>>*/ caml_call1(f, v0$1)){
+           /*<<set.ml:451:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<set.ml:452:12>>*/ v0$1, param = l$0;
            for(;;){
              /*<<set.ml:438:27>>*/ if(! param)
@@ -11034,8 +10662,7 @@
              r =  /*<<set.ml:438:27>>*/ param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<set.ml:442:16>>*/ if
-             ( /*<<set.ml:442:13>>*/ caml_call1(f, v0$0)){
+             /*<<set.ml:442:13>>*/ if(caml_call1(f, v0$0)){
               /*<<set.ml:443:12>>*/ v0 = v0$0;
              param = l;
             }
@@ -11055,8 +10682,7 @@
            r$0 =  /*<<set.ml:465:27>>*/ param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<set.ml:469:16>>*/ if
-           ( /*<<set.ml:469:13>>*/ caml_call1(f, v0$1)){
+           /*<<set.ml:469:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<set.ml:470:12>>*/ v0$1, param = l$0;
            for(;;){
              /*<<set.ml:456:31>>*/ if(! param)
@@ -11065,8 +10691,7 @@
              r =  /*<<set.ml:456:31>>*/ param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<set.ml:460:16>>*/ if
-             ( /*<<set.ml:460:13>>*/ caml_call1(f, v0$0)){
+             /*<<set.ml:460:13>>*/ if(caml_call1(f, v0$0)){
               /*<<set.ml:461:12>>*/ v0 = v0$0;
              param = l;
             }
@@ -11088,8 +10713,7 @@
            r$0 =  /*<<set.ml:483:22>>*/ param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<set.ml:487:16>>*/ if
-           ( /*<<set.ml:487:13>>*/ caml_call1(f, v0$1)){
+           /*<<set.ml:487:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<set.ml:488:12>>*/ v0$1, param = r$0;
            for(;;){
              /*<<set.ml:474:26>>*/ if(! param)
@@ -11098,8 +10722,7 @@
              r =  /*<<set.ml:474:26>>*/ param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<set.ml:478:16>>*/ if
-             ( /*<<set.ml:478:13>>*/ caml_call1(f, v0$0)){
+             /*<<set.ml:478:13>>*/ if(caml_call1(f, v0$0)){
               /*<<set.ml:479:12>>*/ v0 = v0$0;
              param = r;
             }
@@ -11119,8 +10742,7 @@
            r$0 =  /*<<set.ml:501:26>>*/ param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<set.ml:505:16>>*/ if
-           ( /*<<set.ml:505:13>>*/ caml_call1(f, v0$1)){
+           /*<<set.ml:505:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<set.ml:506:12>>*/ v0$1, param = r$0;
            for(;;){
              /*<<set.ml:492:30>>*/ if(! param)
@@ -11129,8 +10751,7 @@
              r =  /*<<set.ml:492:30>>*/ param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<set.ml:496:16>>*/ if
-             ( /*<<set.ml:496:13>>*/ caml_call1(f, v0$0)){
+             /*<<set.ml:496:13>>*/ if(caml_call1(f, v0$0)){
               /*<<set.ml:497:12>>*/ v0 = v0$0;
              param = r;
             }
@@ -11162,19 +10783,16 @@
          {
            /*<<set.ml:521:6>>*/ if(0 !== l){
            var _u_ =  /*<<set.ml:521:35>>*/ max_elt(l);
-            /*<<set.ml:521:48>>*/ if
-            (0 <=  /*<<set.ml:521:23>>*/ caml_call2(Ord[1], _u_, v))
-            break a;
+            /*<<set.ml:521:23>>*/ if(0 <= caml_call2(Ord[1], _u_, v)) break a;
           }
            /*<<set.ml:521:6>>*/ if(0 !== r){
            var _t_ =  /*<<set.ml:522:37>>*/ min_elt(r);
-            /*<<set.ml:522:48>>*/ if
-            (0 <=  /*<<set.ml:522:23>>*/ caml_call2(Ord[1], v, _t_))
-            break a;
+            /*<<set.ml:522:23>>*/ if(0 <= caml_call2(Ord[1], v, _t_)) break a;
           }
            /*<<set.ml:523:11>>*/ return join(l, v, r) /*<<set.ml:524:28>>*/ ;
          }
-         return union(l,  /*<<set.ml:524:19>>*/ add(v, r)) /*<<set.ml:524:28>>*/ ;
+          /*<<set.ml:524:19>>*/ return  /*<<set.ml:524:28>>*/ union
+                 (l,  /*<<set.ml:524:19>>*/ add(v, r)) /*<<set.ml:524:28>>*/ ;
         }
         function map(f, t){
           /*<<set.ml:526:16>>*/ if(! t)  /*<<set.ml:527:17>>*/ return 0;
@@ -11207,7 +10825,7 @@
           /*<<set.ml:537:6>>*/ if(! t1)  /*<<set.ml:538:22>>*/ return t2;
           /*<<set.ml:537:6>>*/ if(! t2)  /*<<set.ml:539:22>>*/ return t1;
          var _s_ =  /*<<set.ml:540:43>>*/ remove_min_elt(t2);
-          /*<<set.ml:540:42>>*/ return try_join
+          /*<<set.ml:540:30>>*/ return  /*<<set.ml:540:42>>*/ try_join
                  (t1,  /*<<set.ml:540:30>>*/ min_elt(t2), _s_) /*<<set.ml:555:12>>*/ ;
         }
         function of_list(l){
@@ -11217,17 +10835,17 @@
            /*<<set.ml:583:16>>*/ return singleton(x0) /*<<set.ml:588:58>>*/ ;
          var _o_ =  /*<<set.ml:581:6>>*/ _n_[2], x1 = _n_[1];
          if(! _o_)
-           /*<<set.ml:584:41>>*/ return add
+           /*<<set.ml:584:27>>*/ return  /*<<set.ml:584:41>>*/ add
                   (x1,  /*<<set.ml:584:27>>*/ singleton(x0)) /*<<set.ml:588:58>>*/ ;
          var _p_ =  /*<<set.ml:581:6>>*/ _o_[2], x2 = _o_[1];
          if(! _p_)
-           /*<<set.ml:585:54>>*/ return add
+           /*<<set.ml:585:39>>*/ return  /*<<set.ml:585:54>>*/ add
                   (x2,
                     /*<<set.ml:585:31>>*/ add
                     (x1,  /*<<set.ml:585:39>>*/ singleton(x0))) /*<<set.ml:588:58>>*/ ;
          var _q_ =  /*<<set.ml:581:6>>*/ _p_[2], x3 = _p_[1];
          if(! _q_)
-           /*<<set.ml:586:67>>*/ return add
+           /*<<set.ml:586:51>>*/ return  /*<<set.ml:586:67>>*/ add
                   (x3,
                     /*<<set.ml:586:35>>*/ add
                     (x2,
@@ -11291,17 +10909,15 @@
                match$0 =  /*<<set.ml:573:27>>*/ sub((n - nl | 0) - 1 | 0, l$1),
                l$2 =  /*<<set.ml:573:45>>*/ match$0[2],
                right = match$0[1];
-               /*<<set.ml:574:33>>*/ return [0,
-                       /*<<set.ml:574:12>>*/ create(left, mid, right),
-                      l$2] /*<<set.ml:574:33>>*/ ;
+               /*<<set.ml:574:12>>*/ return [0, create(left, mid, right), l$2] /*<<set.ml:574:33>>*/ ;
               /*<<set.ml:574:36>>*/ };
-           /*<<set.ml:576:33>>*/ return  /*<<set.ml:576:10>>*/ sub
+           /*<<set.ml:576:15>>*/ return  /*<<set.ml:576:10>>*/ sub
                    ( /*<<set.ml:576:15>>*/ caml_call1(Stdlib_List[1], l$0),
                     l$0)
                   [1] /*<<set.ml:576:33>>*/ ;
          }
          var x4 =  /*<<set.ml:581:6>>*/ _q_[1];
-          /*<<set.ml:587:80>>*/ return add
+          /*<<set.ml:587:63>>*/ return  /*<<set.ml:587:80>>*/ add
                  (x4,
                    /*<<set.ml:587:39>>*/ add
                    (x3,
@@ -11525,8 +11141,8 @@
            lv = l[2],
            ll = l[1],
            _F_ =  /*<<map.ml:98:28>>*/ height(lr);
-           /*<<map.ml:98:24>>*/ if(_F_ <=  /*<<map.ml:98:15>>*/ height(ll))
-            /*<<map.ml:99:47>>*/ return create
+           /*<<map.ml:98:15>>*/ if(_F_ <= height(ll))
+            /*<<map.ml:99:30>>*/ return  /*<<map.ml:99:47>>*/ create
                    (ll, lv, ld,  /*<<map.ml:99:30>>*/ create(lr, x, d, r)) /*<<map.ml:119:67>>*/ ;
            /*<<map.ml:100:17>>*/ if(! lr)
             /*<<map.ml:102:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal) /*<<map.ml:119:67>>*/ ;
@@ -11536,7 +11152,7 @@
            lrv = lr[2],
            lrl = lr[1],
            _G_ =  /*<<map.ml:104:55>>*/ create(lrr, x, d, r);
-           /*<<map.ml:104:46>>*/ return create
+           /*<<map.ml:104:25>>*/ return  /*<<map.ml:104:46>>*/ create
                   ( /*<<map.ml:104:25>>*/ create(ll, lv, ld, lrl),
                    lrv,
                    lrd,
@@ -11554,8 +11170,8 @@
           rv = r[2],
           rl = r[1],
           _H_ =  /*<<map.ml:110:28>>*/ height(rl);
-          /*<<map.ml:110:24>>*/ if(_H_ <=  /*<<map.ml:110:15>>*/ height(rr))
-           /*<<map.ml:111:38>>*/ return create
+          /*<<map.ml:110:15>>*/ if(_H_ <= height(rr))
+           /*<<map.ml:111:21>>*/ return  /*<<map.ml:111:38>>*/ create
                   ( /*<<map.ml:111:21>>*/ create(l, x, d, rl), rv, rd, rr) /*<<map.ml:119:67>>*/ ;
           /*<<map.ml:112:17>>*/ if(! rl)
            /*<<map.ml:114:25>>*/ return caml_call1(Stdlib[1], cst_Map_bal$1) /*<<map.ml:119:67>>*/ ;
@@ -11565,7 +11181,7 @@
           rlv = rl[2],
           rll = rl[1],
           _I_ =  /*<<map.ml:116:52>>*/ create(rlr, rv, rd, rr);
-          /*<<map.ml:116:43>>*/ return create
+          /*<<map.ml:116:25>>*/ return  /*<<map.ml:116:43>>*/ create
                  ( /*<<map.ml:116:25>>*/ create(l, x, d, rll), rlv, rld, _I_) /*<<map.ml:119:67>>*/ ;
         }
         var empty =  /*<<?>>*/ 0;
@@ -11623,8 +11239,7 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:160:16>>*/ if
-           ( /*<<map.ml:160:13>>*/ caml_call1(f, v0$1)){
+           /*<<map.ml:160:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<map.ml:161:12>>*/ v0$1, d0 = d0$1, param = l$0;
            for(;;){
              /*<<map.ml:147:27>>*/ if(! param)
@@ -11634,8 +11249,7 @@
              d0$0 = param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<map.ml:151:16>>*/ if
-             ( /*<<map.ml:151:13>>*/ caml_call1(f, v0$0)){
+             /*<<map.ml:151:13>>*/ if(caml_call1(f, v0$0)){
               /*<<map.ml:152:12>>*/ v0 = v0$0;
              d0 = d0$0;
              param = l;
@@ -11657,8 +11271,7 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:178:16>>*/ if
-           ( /*<<map.ml:178:13>>*/ caml_call1(f, v0$1)){
+           /*<<map.ml:178:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<map.ml:179:12>>*/ v0$1, d0 = d0$1, param = l$0;
            for(;;){
              /*<<map.ml:165:31>>*/ if(! param)
@@ -11668,8 +11281,7 @@
              d0$0 = param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<map.ml:169:16>>*/ if
-             ( /*<<map.ml:169:13>>*/ caml_call1(f, v0$0)){
+             /*<<map.ml:169:13>>*/ if(caml_call1(f, v0$0)){
               /*<<map.ml:170:12>>*/ v0 = v0$0;
              d0 = d0$0;
              param = l;
@@ -11693,8 +11305,7 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:196:16>>*/ if
-           ( /*<<map.ml:196:13>>*/ caml_call1(f, v0$1)){
+           /*<<map.ml:196:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<map.ml:197:12>>*/ v0$1, d0 = d0$1, param = r$0;
            for(;;){
              /*<<map.ml:183:26>>*/ if(! param)
@@ -11704,8 +11315,7 @@
              d0$0 = param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<map.ml:187:16>>*/ if
-             ( /*<<map.ml:187:13>>*/ caml_call1(f, v0$0)){
+             /*<<map.ml:187:13>>*/ if(caml_call1(f, v0$0)){
               /*<<map.ml:188:12>>*/ v0 = v0$0;
              d0 = d0$0;
              param = r;
@@ -11727,8 +11337,7 @@
            d0$1 = param$1[3],
            v0$1 = param$1[2],
            l$0 = param$1[1];
-           /*<<map.ml:214:16>>*/ if
-           ( /*<<map.ml:214:13>>*/ caml_call1(f, v0$1)){
+           /*<<map.ml:214:13>>*/ if(caml_call1(f, v0$1)){
            var v0 =  /*<<map.ml:215:12>>*/ v0$1, d0 = d0$1, param = r$0;
            for(;;){
              /*<<map.ml:201:30>>*/ if(! param)
@@ -11738,8 +11347,7 @@
              d0$0 = param[3],
              v0$0 = param[2],
              l = param[1];
-             /*<<map.ml:205:16>>*/ if
-             ( /*<<map.ml:205:13>>*/ caml_call1(f, v0$0)){
+             /*<<map.ml:205:13>>*/ if(caml_call1(f, v0$0)){
               /*<<map.ml:206:12>>*/ v0 = v0$0;
              d0 = d0$0;
              param = r;
@@ -11842,7 +11450,7 @@
          var l =  /*<<map.ml:254:33>>*/ param[1];
          if(l){
           var r = param[4], d = param[3], v = param[2];
-           /*<<map.ml:257:55>>*/ return bal
+           /*<<map.ml:257:33>>*/ return  /*<<map.ml:257:55>>*/ bal
                   ( /*<<map.ml:257:33>>*/ remove_min_binding(l), v, d, r) /*<<map.ml:257:61>>*/ ;
          }
          var r$0 =  /*<<map.ml:254:33>>*/ param[4];
@@ -11855,7 +11463,7 @@
           match =  /*<<map.ml:264:23>>*/ min_binding(t2),
           d =  /*<<map.ml:264:37>>*/ match[2],
           x = match[1];
-          /*<<map.ml:265:44>>*/ return bal
+          /*<<map.ml:265:21>>*/ return  /*<<map.ml:265:44>>*/ bal
                  (t1, x, d,  /*<<map.ml:265:21>>*/ remove_min_binding(t2)) /*<<map.ml:265:44>>*/ ;
         }
         function remove(x, m){
@@ -11971,7 +11579,7 @@
            v = m$0[2],
            l = m$0[1],
            accu$1 =
-              /*<<map.ml:329:19>>*/ caml_call3
+              /*<<map.ml:329:26>>*/  /*<<map.ml:329:19>>*/ caml_call3
               (f, v, d,  /*<<map.ml:329:26>>*/ fold(f, l, accu$0));
            /*<<map.ml:329:42>>*/ m$0 = r;
           accu$0 = accu$1;
@@ -12025,7 +11633,7 @@
           d = param[3],
           v = param[2],
           l = param[1];
-          /*<<map.ml:350:35>>*/ return bal
+          /*<<map.ml:350:12>>*/ return  /*<<map.ml:350:35>>*/ bal
                  ( /*<<map.ml:350:12>>*/ add_min_binding(k, x, l), v, d, r) /*<<map.ml:350:41>>*/ ;
         }
         function add_max_binding(k, x, param){
@@ -12036,7 +11644,7 @@
           d = param[3],
           v = param[2],
           l = param[1];
-          /*<<map.ml:355:41>>*/ return bal
+          /*<<map.ml:355:18>>*/ return  /*<<map.ml:355:41>>*/ bal
                  (l, v, d,  /*<<map.ml:355:18>>*/ add_max_binding(k, x, r)) /*<<map.ml:355:41>>*/ ;
         }
         function join(l, v, d, r){
@@ -12073,7 +11681,7 @@
           match =  /*<<map.ml:379:23>>*/ min_binding(t2),
           d =  /*<<map.ml:379:37>>*/ match[2],
           x = match[1];
-          /*<<map.ml:380:45>>*/ return join
+          /*<<map.ml:380:22>>*/ return  /*<<map.ml:380:45>>*/ join
                  (t1, x, d,  /*<<map.ml:380:22>>*/ remove_min_binding(t2)) /*<<map.ml:380:45>>*/ ;
         }
         function concat_or_join(t1, v, d, t2){
@@ -12098,25 +11706,19 @@
            rr =  /*<<map.ml:396:42>>*/ match[3],
            pres = match[2],
            lr = match[1];
-           /*<<map.ml:396:60>>*/ return [0,
-                   /*<<map.ml:396:47>>*/ join(l, v, d, lr),
-                  pres,
-                  rr] /*<<map.ml:396:60>>*/ ;
+           /*<<map.ml:396:47>>*/ return [0, join(l, v, d, lr), pres, rr] /*<<map.ml:396:60>>*/ ;
          }
          var
           match$0 =  /*<<map.ml:394:33>>*/ split(x, l),
           rl =  /*<<map.ml:394:42>>*/ match$0[3],
           pres$0 = match$0[2],
           ll = match$0[1];
-          /*<<map.ml:394:70>>*/ return [0,
-                 ll,
-                 pres$0,
-                  /*<<map.ml:394:57>>*/ join(rl, v, d, r)] /*<<map.ml:394:70>>*/ ;
+          /*<<map.ml:394:57>>*/ return [0, ll, pres$0, join(rl, v, d, r)] /*<<map.ml:394:70>>*/ ;
          /*<<map.ml:396:71>>*/ }
         function merge(f, s1, s2){
           /*<<map.ml:399:6>>*/ if(s1){
           var h1 = s1[5], r1 = s1[4], d1 = s1[3], v1 = s1[2], l1 = s1[1];
-           /*<<map.ml:401:69>>*/ if( /*<<map.ml:401:60>>*/ height(s2) <= h1){
+           /*<<map.ml:401:60>>*/ if(height(s2) <= h1){
            var
             match =  /*<<map.ml:402:29>>*/ split(v1, s2),
             r2 =  /*<<map.ml:402:40>>*/ match[3],
@@ -12124,7 +11726,7 @@
             l2 = match[1],
             _u_ =  /*<<map.ml:403:64>>*/ merge(f, r1, r2),
             _v_ =  /*<<map.ml:403:44>>*/ caml_call3(f, v1, [0, d1], d2);
-            /*<<map.ml:403:40>>*/ return concat_or_join
+            /*<<map.ml:403:25>>*/ return  /*<<map.ml:403:40>>*/ concat_or_join
                    ( /*<<map.ml:403:25>>*/ merge(f, l1, l2), v1, _v_, _u_) /*<<map.ml:408:22>>*/ ;
           }
          }
@@ -12143,7 +11745,7 @@
           l1$0 = match$0[1],
           _w_ =  /*<<map.ml:406:64>>*/ merge(f, r1$0, r2$0),
           _x_ =  /*<<map.ml:406:44>>*/ caml_call3(f, v2, d1$0, [0, d2$0]);
-          /*<<map.ml:406:40>>*/ return concat_or_join
+          /*<<map.ml:406:25>>*/ return  /*<<map.ml:406:40>>*/ concat_or_join
                  ( /*<<map.ml:406:25>>*/ merge(f, l1$0, l2$0), v2, _x_, _w_) /*<<map.ml:408:22>>*/ ;
         }
         function union(f, s1, s2){
@@ -12171,7 +11773,7 @@
              /*<<map.ml:418:12>>*/ if(! d2$0)
               /*<<map.ml:419:22>>*/ return join(l, v1, d1, r) /*<<map.ml:426:59>>*/ ;
             var d2$1 =  /*<<map.ml:418:12>>*/ d2$0[1];
-             /*<<map.ml:420:57>>*/ return concat_or_join
+             /*<<map.ml:420:45>>*/ return  /*<<map.ml:420:57>>*/ concat_or_join
                     (l,
                      v1,
                       /*<<map.ml:420:45>>*/ caml_call3(f, v1, d1, d2$1),
@@ -12187,7 +11789,7 @@
             /*<<map.ml:424:12>>*/ if(! d1$0)
              /*<<map.ml:425:22>>*/ return join(l$0, v2, d2, r$0) /*<<map.ml:426:59>>*/ ;
            var d1$1 =  /*<<map.ml:424:12>>*/ d1$0[1];
-            /*<<map.ml:426:57>>*/ return concat_or_join
+            /*<<map.ml:426:45>>*/ return  /*<<map.ml:426:57>>*/ concat_or_join
                    (l$0,
                     v2,
                      /*<<map.ml:426:45>>*/ caml_call3(f, v2, d1$1, d2),
@@ -12246,14 +11848,10 @@
           rt = match$0[1];
           /*<<map.ml:457:10>>*/ if(pvd){
           var _s_ =  /*<<map.ml:458:32>>*/ concat(lf, rf);
-           /*<<map.ml:458:30>>*/ return [0,
-                   /*<<map.ml:458:16>>*/ join(lt, v, d, rt),
-                  _s_] /*<<map.ml:458:30>>*/ ;
+           /*<<map.ml:458:16>>*/ return [0, join(lt, v, d, rt), _s_] /*<<map.ml:458:30>>*/ ;
          }
          var _t_ =  /*<<map.ml:459:30>>*/ join(lf, v, d, rf);
-          /*<<map.ml:459:28>>*/ return [0,
-                  /*<<map.ml:459:16>>*/ concat(lt, rt),
-                 _t_] /*<<map.ml:459:28>>*/ ;
+          /*<<map.ml:459:16>>*/ return [0, concat(lt, rt), _t_] /*<<map.ml:459:28>>*/ ;
          /*<<map.ml:459:45>>*/ }
         function cons_enum(m, e){
          var m$0 =  /*<<map.ml:464:6>>*/ m, e$0 = e;
@@ -12320,10 +11918,7 @@
            d1 = e1[2],
            v1 = e1[1],
            _p_ =
-              /*<<map.ml:489:29>>*/ 0
-              ===  /*<<map.ml:489:12>>*/ caml_call2(Ord[1], v1, v2)
-              ? 1
-              : 0;
+              /*<<map.ml:489:12>>*/ 0 === caml_call2(Ord[1], v1, v2) ? 1 : 0;
            /*<<map.ml:489:29>>*/ if(_p_){
            var _q_ =  /*<<map.ml:489:37>>*/ caml_call2(cmp, d1, d2);
             /*<<map.ml:489:46>>*/ if(_q_){
@@ -12347,10 +11942,7 @@
           r =  /*<<map.ml:493:23>>*/ param[4],
           l = param[1],
           _o_ =  /*<<map.ml:495:40>>*/ cardinal(r);
-          /*<<map.ml:495:33>>*/ return ( /*<<map.ml:495:23>>*/ cardinal(l) + 1
-                | 0)
-                + _o_
-                | 0 /*<<map.ml:495:33>>*/ ;
+          /*<<map.ml:495:23>>*/ return (cardinal(l) + 1 | 0) + _o_ | 0 /*<<map.ml:495:33>>*/ ;
          /*<<map.ml:495:50>>*/ }
         function bindings_aux(accu, param){
          var accu$0 =  /*<<map.ml:497:25>>*/ accu, param$0 = param;
@@ -12362,9 +11954,7 @@
            v = param$0[2],
            l = param$0[1],
            accu$1 =
-              /*<<map.ml:499:72>>*/ [0,
-              [0, v, d],
-               /*<<map.ml:499:53>>*/ bindings_aux(accu$0, r)];
+              /*<<map.ml:499:53>>*/ [0, [0, v, d], bindings_aux(accu$0, r)];
            /*<<map.ml:499:72>>*/ accu$0 = accu$1;
           param$0 = l;
          }
@@ -13102,7 +12692,7 @@
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
-     /*<<buffer.ml:163:44>>*/ return add_substring
+     /*<<buffer.ml:163:18>>*/ return  /*<<buffer.ml:163:44>>*/ add_substring
             (b,
               /*<<buffer.ml:163:18>>*/ caml_call1(Stdlib_Bytes[44], s),
              offset,
@@ -13127,7 +12717,7 @@
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
-     /*<<buffer.ml:177:59>>*/ return add_string
+     /*<<buffer.ml:177:33>>*/ return  /*<<buffer.ml:177:59>>*/ add_string
             (b,  /*<<buffer.ml:177:33>>*/ caml_call1(Stdlib_Bytes[44], s)) /*<<buffer.ml:177:59>>*/ ;
    }
    function add_buffer(b, bs){
@@ -13247,8 +12837,8 @@
          }
          var
           new_start =  /*<<buffer.ml:249:5>>*/ start + 1 | 0,
-          k$2 =  /*<<buffer.ml:250:5>>*/ 0;
-          /*<<buffer.ml:217:14>>*/ if(40 === opening)
+          k$2 =  /*<<buffer.ml:217:14>>*/ 0;
+         if(40 === opening)
           var closing =  /*<<buffer.ml:218:11>>*/ 41;
          else{
            /*<<buffer.ml:217:14>>*/ if(123 !== opening)
@@ -13264,8 +12854,7 @@
            /*<<buffer.ml:228:4>>*/ if(lim <= stop)
             /*<<buffer.ml:228:21>>*/ throw caml_maybe_attach_backtrace
                   (Stdlib[8], 1);
-           /*<<buffer.ml:229:12>>*/ if
-           ( /*<<buffer.ml:229:7>>*/ caml_string_get(s, stop) === opening){
+           /*<<buffer.ml:229:7>>*/ if(caml_string_get(s, stop) === opening){
            var i =  /*<<buffer.ml:229:28>>*/ stop + 1 | 0, k$0 = k + 1 | 0;
            k = k$0;
            stop = i;
@@ -13296,7 +12885,7 @@
         continue;
        }
        var next_i =  /*<<buffer.ml:270:9>>*/ val[2], ident = val[1];
-        /*<<buffer.ml:272:11>>*/ add_string
+        /*<<buffer.ml:272:24>>*/  /*<<buffer.ml:272:11>>*/ add_string
         (b,  /*<<buffer.ml:272:24>>*/ caml_call1(f, ident));
         /*<<buffer.ml:272:33>>*/ previous = 32;
        i$4 = next_i;
@@ -13325,7 +12914,7 @@
        /*<<buffer.ml:297:28>>*/ return 0;
      var
       x =  /*<<buffer.ml:299:14>>*/ caml_bytes_get(b[1][1], i),
-      _l_ =  /*<<buffer.ml:300:6>>*/ i + 1 | 0;
+      _l_ =  /*<<buffer.ml:300:19>>*/ i + 1 | 0;
       /*<<buffer.ml:300:28>>*/ return [0,
              x,
              function(_m_){ /*<<buffer.ml:300:19>>*/ return aux(_l_, _m_);}] /*<<buffer.ml:300:28>>*/ ;
@@ -13340,7 +12929,7 @@
        /*<<buffer.ml:307:28>>*/ return 0;
      var
       x =  /*<<buffer.ml:309:14>>*/ caml_bytes_get(b[1][1], i),
-      _h_ =  /*<<buffer.ml:310:6>>*/ i + 1 | 0;
+      _h_ =  /*<<buffer.ml:310:23>>*/ i + 1 | 0;
       /*<<buffer.ml:310:32>>*/ return [0,
              [0, i, x],
              function(_i_){ /*<<buffer.ml:310:23>>*/ return aux(_h_, _i_);}] /*<<buffer.ml:310:32>>*/ ;
@@ -13607,8 +13196,8 @@
       /*<<semaphore.ml:29:16>>*/ caml_call1
       (Stdlib[1], cst_Semaphore_Counting_init_wr);
     var _c_ =  /*<<semaphore.ml:30:39>>*/ caml_call1(Stdlib_Condition[1], 0);
-     /*<<semaphore.ml:30:24>>*/ return [0,
-             /*<<semaphore.ml:30:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
+     /*<<semaphore.ml:30:10>>*/ return [0,
+            caml_call1(Stdlib_Mutex[1], 0),
             v,
             _c_] /*<<semaphore.ml:30:24>>*/ ;
     /*<<semaphore.ml:30:59>>*/ }
@@ -13650,8 +13239,8 @@
     var
      _a_ =  /*<<semaphore.ml:66:14>>*/ caml_call1(Stdlib_Condition[1], 0),
      _b_ =  /*<<semaphore.ml:66:32>>*/ b ? 1 : 0;
-     /*<<semaphore.ml:64:24>>*/ return [0,
-             /*<<semaphore.ml:64:10>>*/ caml_call1(Stdlib_Mutex[1], 0),
+     /*<<semaphore.ml:64:10>>*/ return [0,
+            caml_call1(Stdlib_Mutex[1], 0),
             _b_,
             _a_] /*<<semaphore.ml:64:24>>*/ ;
     /*<<semaphore.ml:66:34>>*/ }
@@ -13729,8 +13318,7 @@
     Stdlib_List = global_data.Stdlib__List,
     Assert_failure = global_data.Assert_failure;
    function cpu_relax(param){
-     /*<<domain.ml:47:35>>*/ return  /*<<domain.ml:47:19>>*/ runtime.caml_ml_domain_cpu_relax
-            (0) /*<<domain.ml:47:35>>*/ ;
+     /*<<domain.ml:47:19>>*/ return runtime.caml_ml_domain_cpu_relax(0) /*<<domain.ml:47:35>>*/ ;
    }
    var none =  /*<<?>>*/ [0, 0];
    function create_dls(param){
@@ -13741,7 +13329,7 @@
    var
     key_counter =  /*<<domain.ml:96:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
     parent_keys =  /*<<domain.ml:101:20>>*/ caml_call1(Stdlib_Atomic[1], 0),
-    _a_ =  /*<<?>>*/ [0, "domain.ml", 184, 13];
+    _a_ =  /*<<domain.ml:101:59>>*/ [0, "domain.ml", 184, 13];
    function new_key(split_from_parent, init_orphan){
     var
      idx =
@@ -13754,12 +13342,8 @@
      for(;;){
       var
        l =  /*<<domain.ml:104:12>>*/ caml_call1(Stdlib_Atomic[3], parent_keys);
-       /*<<domain.ml:105:59>>*/ if
-       (!
-        (1
-        -
-          /*<<domain.ml:105:11>>*/ caml_call3
-          (Stdlib_Atomic[6], parent_keys, l, [0, ki, l])))
+       /*<<domain.ml:105:11>>*/ if
+       (! (1 - caml_call3(Stdlib_Atomic[6], parent_keys, l, [0, ki, l])))
        break;
      }
     }
@@ -13781,9 +13365,8 @@
      var new_st =  /*<<domain.ml:128:19>>*/ caml_make_vect(new_sz, none);
       /*<<domain.ml:129:6>>*/ caml_call5
       (Stdlib_Array[9], st, 0, new_st, 0, sz);
-      /*<<domain.ml:136:44>>*/ if
-      ( /*<<domain.ml:136:9>>*/ runtime.caml_domain_dls_compare_and_set
-        (st, new_st))
+      /*<<domain.ml:136:9>>*/ if
+      (runtime.caml_domain_dls_compare_and_set(st, new_st))
        /*<<domain.ml:137:11>>*/ return new_st;
     }
     /*<<domain.ml:139:7>>*/ }
@@ -13825,14 +13408,10 @@
      /*<<domain.ml:201:27>>*/ return domain;
     /*<<domain.ml:201:33>>*/ }
    function self(param){
-     /*<<domain.ml:203:25>>*/ return  /*<<domain.ml:203:14>>*/ caml_ml_domain_id
-            (0) /*<<domain.ml:203:25>>*/ ;
+     /*<<domain.ml:203:14>>*/ return caml_ml_domain_id(0) /*<<domain.ml:203:25>>*/ ;
    }
    function is_main_domain(param){
-     /*<<domain.ml:205:32>>*/ return 0
-            ===  /*<<domain.ml:203:14>>*/ caml_ml_domain_id(0)
-            ? 1
-            : 0 /*<<domain.ml:205:32>>*/ ;
+     /*<<domain.ml:203:14>>*/ return 0 === caml_ml_domain_id(0) ? 1 : 0 /*<<domain.ml:205:32>>*/ ;
     /*<<domain.ml:205:44>>*/ }
    var
     first_domain_spawned =
@@ -13840,11 +13419,11 @@
     first_spawn_function =
        /*<<domain.ml:210:44>>*/ [0,
        function(param){ /*<<domain.ml:212:44>>*/ }],
-    cst_first_domain_already_spawn =  /*<<?>>*/ "first domain already spawned";
+    cst_first_domain_already_spawn =
+       /*<<domain.ml:210:44>>*/ "first domain already spawned";
    function before_first_spawn(f){
-     /*<<domain.ml:215:36>>*/ if
-     ( /*<<domain.ml:215:5>>*/ caml_call1
-       (Stdlib_Atomic[3], first_domain_spawned))
+     /*<<domain.ml:215:5>>*/ if
+     (caml_call1(Stdlib_Atomic[3], first_domain_spawned))
       /*<<domain.ml:216:4>>*/ throw caml_maybe_attach_backtrace
             ([0, Stdlib[6], cst_first_domain_already_spawn], 1);
     var old_f =  /*<<domain.ml:217:7>>*/ first_spawn_function[1];
@@ -13877,11 +13456,8 @@
    }
     /*<<domain.ml:231:56>>*/ Stdlib[104][1] = do_at_exit;
    function spawn(f){
-     /*<<domain.ml:224:42>>*/ if
-     (1
-      -
-        /*<<domain.ml:224:9>>*/ caml_call1
-        (Stdlib_Atomic[3], first_domain_spawned)){
+     /*<<domain.ml:224:9>>*/ if
+     (1 - caml_call1(Stdlib_Atomic[3], first_domain_spawned)){
       /*<<domain.ml:225:4>>*/ caml_call2
       (Stdlib_Atomic[4], first_domain_spawned, 1);
       /*<<domain.ml:226:4>>*/ caml_call1(first_spawn_function[1], 0);
@@ -13897,7 +13473,7 @@
         (Stdlib_List[20],
          function(param){
           var split =  /*<<domain.ml:192:6>>*/ param[2], k = param[1];
-           /*<<domain.ml:192:52>>*/ return [0,
+           /*<<domain.ml:192:44>>*/ return [0,
                   k,
                    /*<<domain.ml:192:37>>*/ caml_call1
                    (split,  /*<<domain.ml:192:44>>*/ get(k))] /*<<domain.ml:192:52>>*/ ;
@@ -13905,10 +13481,7 @@
          _b_),
      _c_ =  /*<<domain.ml:256:17>>*/ caml_call1(Stdlib_Condition[1], 0),
      term_sync =
-        /*<<domain.ml:255:31>>*/ [0,
-        0,
-         /*<<domain.ml:255:16>>*/ caml_call1(Stdlib_Mutex[1], 0),
-        _c_];
+        /*<<domain.ml:255:16>>*/ [0, 0, caml_call1(Stdlib_Mutex[1], 0), _c_];
     function body(param){
       /*<<domain.ml:260:4>>*/ try{
        /*<<domain.ml:261:6>>*/ create_dls(0);
@@ -14136,10 +13709,10 @@
      str_ind =  /*<<camlinternalFormat.ml:29:2>>*/ c >>> 3 | 0,
      mask = 1 << (c & 7),
      _cU_ =
-        /*<<camlinternalFormat.ml:31:58>>*/  /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
+        /*<<camlinternalFormat.ml:31:30>>*/ runtime.caml_bytes_get
         (char_set, str_ind)
        | mask;
-     /*<<camlinternalFormat.ml:31:69>>*/ return  /*<<camlinternalFormat.ml:30:2>>*/ caml_bytes_set
+     /*<<camlinternalFormat.ml:31:4>>*/ return  /*<<camlinternalFormat.ml:30:2>>*/ caml_bytes_set
             (char_set,
              str_ind,
               /*<<camlinternalFormat.ml:31:4>>*/ caml_call1(Stdlib[29], _cU_)) /*<<camlinternalFormat.ml:31:69>>*/ ;
@@ -14155,10 +13728,9 @@
     for(;;){
      var
       _cS_ =
-         /*<<camlinternalFormat.ml:41:55>>*/  /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get
-         (char_set, i)
+         /*<<camlinternalFormat.ml:41:32>>*/ caml_string_get(char_set, i)
         ^ 255;
-      /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
+      /*<<camlinternalFormat.ml:41:6>>*/  /*<<camlinternalFormat.ml:40:4>>*/ caml_bytes_set
       (char_set$0,
        i,
         /*<<camlinternalFormat.ml:41:6>>*/ caml_call1(Stdlib[29], _cS_));
@@ -14173,11 +13745,8 @@
     var
      str_ind =  /*<<camlinternalFormat.ml:48:2>>*/ c >>> 3 | 0,
      mask = 1 << (c & 7);
-     /*<<camlinternalFormat.ml:49:44>>*/ return 0
-            !==
-             ( /*<<camlinternalFormat.ml:49:15>>*/ caml_string_get
-              (char_set, str_ind)
-             & mask)
+     /*<<camlinternalFormat.ml:49:15>>*/ return 0
+            !== (caml_string_get(char_set, str_ind) & mask)
             ? 1
             : 0 /*<<camlinternalFormat.ml:49:44>>*/ ;
     /*<<camlinternalFormat.ml:49:60>>*/ }
@@ -14201,56 +13770,36 @@
      /*<<camlinternalFormat.ml:76:15>>*/ switch(ign[0]){
       case 0:
        var pad_opt = ign[1];
-        /*<<camlinternalFormat.ml:82:52>>*/ return [0,
-               [2,
-                 /*<<camlinternalFormat.ml:82:30>>*/ pad_of_pad_opt(pad_opt),
-                fmt]] /*<<camlinternalFormat.ml:82:52>>*/ ;
+        /*<<camlinternalFormat.ml:82:30>>*/ return [0,
+               [2, pad_of_pad_opt(pad_opt), fmt]] /*<<camlinternalFormat.ml:82:52>>*/ ;
       case 1:
        var pad_opt$0 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[1];
-        /*<<camlinternalFormat.ml:84:57>>*/ return [0,
-               [3,
-                 /*<<camlinternalFormat.ml:84:35>>*/ pad_of_pad_opt(pad_opt$0),
-                fmt]] /*<<camlinternalFormat.ml:84:57>>*/ ;
+        /*<<camlinternalFormat.ml:84:35>>*/ return [0,
+               [3, pad_of_pad_opt(pad_opt$0), fmt]] /*<<camlinternalFormat.ml:84:57>>*/ ;
       case 2:
        var
         pad_opt$1 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
         iconv = ign[1];
-        /*<<camlinternalFormat.ml:86:56>>*/ return [0,
-               [4,
-                iconv,
-                 /*<<camlinternalFormat.ml:86:34>>*/ pad_of_pad_opt(pad_opt$1),
-                0,
-                fmt]] /*<<camlinternalFormat.ml:86:56>>*/ ;
+        /*<<camlinternalFormat.ml:86:34>>*/ return [0,
+               [4, iconv, pad_of_pad_opt(pad_opt$1), 0, fmt]] /*<<camlinternalFormat.ml:86:56>>*/ ;
       case 3:
        var
         pad_opt$2 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
         iconv$0 = ign[1];
-        /*<<camlinternalFormat.ml:89:43>>*/ return [0,
-               [5,
-                iconv$0,
-                 /*<<camlinternalFormat.ml:89:21>>*/ pad_of_pad_opt(pad_opt$2),
-                0,
-                fmt]] /*<<camlinternalFormat.ml:89:43>>*/ ;
+        /*<<camlinternalFormat.ml:89:21>>*/ return [0,
+               [5, iconv$0, pad_of_pad_opt(pad_opt$2), 0, fmt]] /*<<camlinternalFormat.ml:89:43>>*/ ;
       case 4:
        var
         pad_opt$3 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
         iconv$1 = ign[1];
-        /*<<camlinternalFormat.ml:92:47>>*/ return [0,
-               [6,
-                iconv$1,
-                 /*<<camlinternalFormat.ml:92:25>>*/ pad_of_pad_opt(pad_opt$3),
-                0,
-                fmt]] /*<<camlinternalFormat.ml:92:47>>*/ ;
+        /*<<camlinternalFormat.ml:92:25>>*/ return [0,
+               [6, iconv$1, pad_of_pad_opt(pad_opt$3), 0, fmt]] /*<<camlinternalFormat.ml:92:47>>*/ ;
       case 5:
        var
         pad_opt$4 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
         iconv$2 = ign[1];
-        /*<<camlinternalFormat.ml:95:43>>*/ return [0,
-               [7,
-                iconv$2,
-                 /*<<camlinternalFormat.ml:95:21>>*/ pad_of_pad_opt(pad_opt$4),
-                0,
-                fmt]] /*<<camlinternalFormat.ml:95:43>>*/ ;
+        /*<<camlinternalFormat.ml:95:21>>*/ return [0,
+               [7, iconv$2, pad_of_pad_opt(pad_opt$4), 0, fmt]] /*<<camlinternalFormat.ml:95:43>>*/ ;
       case 6:
        var
         prec_opt =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
@@ -14261,19 +13810,12 @@
          _cR_ =  /*<<camlinternalFormat.ml:69:17>>*/ [0, ndec];
        else
         var _cR_ =  /*<<camlinternalFormat.ml:68:12>>*/ 0;
-        /*<<camlinternalFormat.ml:99:36>>*/ return [0,
-               [8,
-                _a_,
-                 /*<<camlinternalFormat.ml:99:14>>*/ pad_of_pad_opt(pad_opt$5),
-                _cR_,
-                fmt]] /*<<camlinternalFormat.ml:99:36>>*/ ;
+        /*<<camlinternalFormat.ml:99:14>>*/ return [0,
+               [8, _a_, pad_of_pad_opt(pad_opt$5), _cR_, fmt]] /*<<camlinternalFormat.ml:99:36>>*/ ;
       case 7:
        var pad_opt$6 =  /*<<camlinternalFormat.ml:76:15>>*/ ign[1];
-        /*<<camlinternalFormat.ml:101:50>>*/ return [0,
-               [9,
-                 /*<<camlinternalFormat.ml:101:28>>*/ pad_of_pad_opt
-                 (pad_opt$6),
-                fmt]] /*<<camlinternalFormat.ml:101:50>>*/ ;
+        /*<<camlinternalFormat.ml:101:28>>*/ return [0,
+               [9, pad_of_pad_opt(pad_opt$6), fmt]] /*<<camlinternalFormat.ml:101:50>>*/ ;
       case 8:
        var
         fmtty =  /*<<camlinternalFormat.ml:76:15>>*/ ign[2],
@@ -14301,9 +13843,9 @@
      /*<<camlinternalFormat.ml:221:2>>*/ return 5 === fconv[2] ? 12 : -6 /*<<camlinternalFormat.ml:227:17>>*/ ;
    }
    function buffer_create(init_size){
-     /*<<camlinternalFormat.ml:256:71>>*/ return [0,
+     /*<<camlinternalFormat.ml:256:49>>*/ return [0,
             0,
-             /*<<camlinternalFormat.ml:256:49>>*/ caml_create_bytes(init_size)] /*<<camlinternalFormat.ml:256:71>>*/ ;
+            caml_create_bytes(init_size)] /*<<camlinternalFormat.ml:256:71>>*/ ;
     /*<<camlinternalFormat.ml:256:73>>*/ }
    function buffer_check_size(buf, overhead){
     var
@@ -14403,7 +13945,7 @@
      /*<<camlinternalFormat.ml:385:33>>*/ if(! pad_opt)
       /*<<camlinternalFormat.ml:386:12>>*/ return;
     var width =  /*<<camlinternalFormat.ml:385:33>>*/ pad_opt[1];
-     /*<<camlinternalFormat.ml:387:61>>*/ return buffer_add_string
+     /*<<camlinternalFormat.ml:387:40>>*/ return  /*<<camlinternalFormat.ml:387:61>>*/ buffer_add_string
             (buf,
               /*<<camlinternalFormat.ml:387:40>>*/ caml_call1
               (Stdlib_Int[12], width)) /*<<camlinternalFormat.ml:387:61>>*/ ;
@@ -14414,7 +13956,7 @@
      /*<<camlinternalFormat.ml:393:15>>*/ if(0 === pad[0]){
      var n = pad[2], padty = pad[1];
       /*<<camlinternalFormat.ml:396:4>>*/ bprint_padty(buf, padty);
-      /*<<camlinternalFormat.ml:397:43>>*/ return buffer_add_string
+      /*<<camlinternalFormat.ml:397:26>>*/ return  /*<<camlinternalFormat.ml:397:43>>*/ buffer_add_string
              (buf,
                /*<<camlinternalFormat.ml:397:26>>*/ caml_call1
                (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:400:27>>*/ ;
@@ -14427,7 +13969,7 @@
      /*<<camlinternalFormat.ml:404:18>>*/ if(typeof prec !== "number"){
      var n = prec[1];
       /*<<camlinternalFormat.ml:407:4>>*/ buffer_add_char(buf, 46);
-      /*<<camlinternalFormat.ml:408:43>>*/ return buffer_add_string
+      /*<<camlinternalFormat.ml:408:26>>*/ return  /*<<camlinternalFormat.ml:408:43>>*/ buffer_add_string
              (buf,
                /*<<camlinternalFormat.ml:408:26>>*/ caml_call1
                (Stdlib_Int[12], n)) /*<<camlinternalFormat.ml:410:30>>*/ ;
@@ -14460,7 +14002,7 @@
      /*<<camlinternalFormat.ml:436:2>>*/ bprint_padding(buf, pad);
      /*<<camlinternalFormat.ml:437:2>>*/ bprint_precision(buf, prec);
      /*<<camlinternalFormat.ml:438:2>>*/ buffer_add_char(buf, c);
-     /*<<camlinternalFormat.ml:439:43>>*/ return buffer_add_char
+     /*<<camlinternalFormat.ml:439:22>>*/ return  /*<<camlinternalFormat.ml:439:43>>*/ buffer_add_char
             (buf,  /*<<camlinternalFormat.ml:439:22>>*/ char_of_iconv(iconv)) /*<<camlinternalFormat.ml:439:43>>*/ ;
    }
    function bprint_fconv_flag(buf, fconv){
@@ -14522,7 +14064,7 @@
     if(_cO_ >= 0){
      var i = _cN_;
      for(;;){
-       /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
+       /*<<camlinternalFormat.ml:487:28>>*/  /*<<camlinternalFormat.ml:487:4>>*/ bprint_char_literal
        (buf,  /*<<camlinternalFormat.ml:487:28>>*/ caml_string_get(str, i));
       var _cP_ =  /*<<camlinternalFormat.ml:487:35>>*/ i + 1 | 0;
       if(_cO_ === i) break;
@@ -14625,8 +14167,7 @@
      /*<<camlinternalFormat.ml:525:8>>*/ if(! param)
       /*<<camlinternalFormat.ml:528:19>>*/ return 0;
     var x =  /*<<camlinternalFormat.ml:525:8>>*/ param[1];
-     /*<<camlinternalFormat.ml:529:46>>*/ return 1
-           +  /*<<camlinternalFormat.ml:529:25>>*/ int_of_custom_arity(x)
+     /*<<camlinternalFormat.ml:529:25>>*/ return 1 + int_of_custom_arity(x)
            | 0 /*<<camlinternalFormat.ml:529:46>>*/ ;
    }
    function string_of_fmt(fmt){
@@ -14693,7 +14234,7 @@
           /*<<camlinternalFormat.ml:426:2>>*/ bprint_iconv_flag(buf, iconv);
           /*<<camlinternalFormat.ml:427:2>>*/ bprint_padding(buf, pad$1);
           /*<<camlinternalFormat.ml:428:2>>*/ bprint_precision(buf, prec);
-          /*<<camlinternalFormat.ml:429:43>>*/ buffer_add_char
+          /*<<camlinternalFormat.ml:429:22>>*/  /*<<camlinternalFormat.ml:429:43>>*/ buffer_add_char
           (buf,  /*<<camlinternalFormat.ml:429:22>>*/ char_of_iconv(iconv));
           /*<<camlinternalFormat.ml:546:48>>*/ fmt$0 = rest$3;
          ign_flag$0 = 0;
@@ -14743,7 +14284,7 @@
           /*<<camlinternalFormat.ml:458:2>>*/ bprint_fconv_flag(buf, fconv);
           /*<<camlinternalFormat.ml:459:2>>*/ bprint_padding(buf, pad$5);
           /*<<camlinternalFormat.ml:460:2>>*/ bprint_precision(buf, prec$3);
-          /*<<camlinternalFormat.ml:461:43>>*/ buffer_add_char
+          /*<<camlinternalFormat.ml:461:22>>*/  /*<<camlinternalFormat.ml:461:43>>*/ buffer_add_char
           (buf,  /*<<camlinternalFormat.ml:461:22>>*/ char_of_fconv(0, fconv));
           /*<<camlinternalFormat.ml:558:50>>*/ fmt$0 = rest$7;
          ign_flag$0 = 0;
@@ -14833,7 +14374,7 @@
          var
           rest$16 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
           fmting_lit = fmt$0[1];
-          /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
+          /*<<camlinternalFormat.ml:625:32>>*/  /*<<camlinternalFormat.ml:625:6>>*/ bprint_string_literal
           (buf,
             /*<<camlinternalFormat.ml:625:32>>*/ string_of_formatting_lit
             (fmting_lit));
@@ -14897,16 +14438,15 @@
           /*<<camlinternalFormat.ml:363:2>>*/ buffer_add_char(buf, 91);
          var
           set =
-             /*<<camlinternalFormat.ml:365:37>>*/  /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set
-              (char_set, 0)
+             /*<<camlinternalFormat.ml:365:7>>*/ is_in_char_set(char_set, 0)
              ? ( /*<<camlinternalFormat.ml:366:11>>*/ buffer_add_char
                 (buf, 94),
                 /*<<camlinternalFormat.ml:366:36>>*/ rev_char_set(char_set))
              : char_set;
-         let set$0 = set;
+         let set$0 =  /*<<camlinternalFormat.ml:315:4>>*/ set;
          var
           is_alone =
-             /*<<camlinternalFormat.ml:315:4>>*/ function(c){
+            function(c){
              var
               after =
                  /*<<camlinternalFormat.ml:316:50>>*/ caml_call1
@@ -14931,8 +14471,7 @@
               var _cM_ =  /*<<camlinternalFormat.ml:317:26>>*/ _cJ_;
              return _cM_;
              /*<<camlinternalFormat.ml:318:68>>*/ };
-          /*<<camlinternalFormat.ml:319:19>>*/ if
-          ( /*<<camlinternalFormat.ml:319:7>>*/ is_alone(93))
+          /*<<camlinternalFormat.ml:319:7>>*/ if(is_alone(93))
            /*<<camlinternalFormat.ml:319:25>>*/ buffer_add_char(buf, 93);
          a:
          b:
@@ -14944,14 +14483,14 @@
             var i =  /*<<camlinternalFormat.ml:320:4>>*/ 1;
             for(;;){
               /*<<camlinternalFormat.ml:323:4>>*/ if(i >= 256) break;
-              /*<<camlinternalFormat.ml:324:43>>*/ if
+              /*<<camlinternalFormat.ml:324:28>>*/ if
               ( /*<<camlinternalFormat.ml:324:9>>*/ is_in_char_set
                 (set,
                   /*<<camlinternalFormat.ml:324:28>>*/ caml_call1
                   (Stdlib[29], i))){
               var
                switcher =
-                  /*<<camlinternalFormat.ml:327:23>>*/  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
+                  /*<<camlinternalFormat.ml:327:10>>*/ caml_call1
                   (Stdlib[29], i)
                  - 45
                  | 0;
@@ -14964,14 +14503,14 @@
                continue;
               }
               var i$1 =  /*<<camlinternalFormat.ml:330:11>>*/ i + 1 | 0;
-               /*<<camlinternalFormat.ml:332:41>>*/ if
+               /*<<camlinternalFormat.ml:332:26>>*/ if
                ( /*<<camlinternalFormat.ml:332:7>>*/ is_in_char_set
                  (set,
                    /*<<camlinternalFormat.ml:332:26>>*/ caml_call1
                    (Stdlib[29], i$1))){
                var
                 switcher$0 =
-                   /*<<camlinternalFormat.ml:333:25>>*/  /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
+                   /*<<camlinternalFormat.ml:333:12>>*/ caml_call1
                    (Stdlib[29], i$1)
                   - 45
                   | 0;
@@ -14992,7 +14531,7 @@
                 i = i$5;
                 continue;
                }
-                /*<<camlinternalFormat.ml:340:61>>*/ if
+                /*<<camlinternalFormat.ml:340:39>>*/ if
                 ( /*<<camlinternalFormat.ml:340:19>>*/ is_in_char_set
                   (set,
                     /*<<camlinternalFormat.ml:340:39>>*/ caml_call1
@@ -15003,7 +14542,7 @@
                  j$0 = j;
                 for(;;){
                   /*<<camlinternalFormat.ml:351:4>>*/ if(256 === j$0) break;
-                  /*<<camlinternalFormat.ml:351:58>>*/ if
+                  /*<<camlinternalFormat.ml:351:42>>*/ if
                   (!
                     /*<<camlinternalFormat.ml:351:22>>*/ is_in_char_set
                     (set,
@@ -15050,8 +14589,7 @@
            /*<<camlinternalFormat.ml:335:26>>*/ print_char(buf, 255);
           break a;
          }
-          /*<<camlinternalFormat.ml:321:19>>*/ if
-          ( /*<<camlinternalFormat.ml:321:7>>*/ is_alone(45))
+          /*<<camlinternalFormat.ml:321:7>>*/ if(is_alone(45))
            /*<<camlinternalFormat.ml:321:25>>*/ buffer_add_char(buf, 45);
           /*<<camlinternalFormat.ml:368:3>>*/ buffer_add_char(buf, 93);
           /*<<camlinternalFormat.ml:610:64>>*/ fmt$0 = rest$19;
@@ -15090,7 +14628,7 @@
           rest$22 =  /*<<camlinternalFormat.ml:535:22>>*/ fmt$0[2],
           ign = fmt$0[1],
           fmt$1 =
-             /*<<camlinternalFormat.ml:621:73>>*/  /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
+             /*<<camlinternalFormat.ml:621:34>>*/ param_format_of_ignored_format
               (ign, rest$22)
              [1];
           /*<<camlinternalFormat.ml:622:6>>*/ fmt$0 = fmt$1;
@@ -15102,8 +14640,8 @@
           arity = fmt$0[1],
           _cH_ =
              /*<<camlinternalFormat.ml:578:20>>*/ int_of_custom_arity(arity),
-          _cG_ =  /*<<camlinternalFormat.ml:535:22>>*/ 1;
-          /*<<camlinternalFormat.ml:578:45>>*/ if(_cH_ >= 1){
+          _cG_ =  /*<<camlinternalFormat.ml:578:45>>*/ 1;
+         if(_cH_ >= 1){
           var i$8 = _cG_;
           for(;;){
             /*<<camlinternalFormat.ml:579:8>>*/ buffer_add_char(buf, 37);
@@ -15129,72 +14667,57 @@
      /*<<camlinternalFormat.ml:657:8>>*/ switch(param[0]){
       case 0:
        var rest = param[1];
-        /*<<camlinternalFormat.ml:663:39>>*/ return [0,
-                /*<<camlinternalFormat.ml:663:28>>*/ symm(rest)] /*<<camlinternalFormat.ml:663:39>>*/ ;
+        /*<<camlinternalFormat.ml:663:28>>*/ return [0, symm(rest)] /*<<camlinternalFormat.ml:663:39>>*/ ;
       case 1:
        var rest$0 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:670:43>>*/ return [1,
-                /*<<camlinternalFormat.ml:670:32>>*/ symm(rest$0)] /*<<camlinternalFormat.ml:670:43>>*/ ;
+        /*<<camlinternalFormat.ml:670:32>>*/ return [1, symm(rest$0)] /*<<camlinternalFormat.ml:670:43>>*/ ;
       case 2:
        var rest$1 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:664:37>>*/ return [2,
-                /*<<camlinternalFormat.ml:664:26>>*/ symm(rest$1)] /*<<camlinternalFormat.ml:664:37>>*/ ;
+        /*<<camlinternalFormat.ml:664:26>>*/ return [2, symm(rest$1)] /*<<camlinternalFormat.ml:664:37>>*/ ;
       case 3:
        var rest$2 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:665:41>>*/ return [3,
-                /*<<camlinternalFormat.ml:665:30>>*/ symm(rest$2)] /*<<camlinternalFormat.ml:665:41>>*/ ;
+        /*<<camlinternalFormat.ml:665:30>>*/ return [3, symm(rest$2)] /*<<camlinternalFormat.ml:665:41>>*/ ;
       case 4:
        var rest$3 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:667:49>>*/ return [4,
-                /*<<camlinternalFormat.ml:667:38>>*/ symm(rest$3)] /*<<camlinternalFormat.ml:667:49>>*/ ;
+        /*<<camlinternalFormat.ml:667:38>>*/ return [4, symm(rest$3)] /*<<camlinternalFormat.ml:667:49>>*/ ;
       case 5:
        var rest$4 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:666:41>>*/ return [5,
-                /*<<camlinternalFormat.ml:666:30>>*/ symm(rest$4)] /*<<camlinternalFormat.ml:666:41>>*/ ;
+        /*<<camlinternalFormat.ml:666:30>>*/ return [5, symm(rest$4)] /*<<camlinternalFormat.ml:666:41>>*/ ;
       case 6:
        var rest$5 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:668:41>>*/ return [6,
-                /*<<camlinternalFormat.ml:668:30>>*/ symm(rest$5)] /*<<camlinternalFormat.ml:668:41>>*/ ;
+        /*<<camlinternalFormat.ml:668:30>>*/ return [6, symm(rest$5)] /*<<camlinternalFormat.ml:668:41>>*/ ;
       case 7:
        var rest$6 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:669:39>>*/ return [7,
-                /*<<camlinternalFormat.ml:669:28>>*/ symm(rest$6)] /*<<camlinternalFormat.ml:669:39>>*/ ;
+        /*<<camlinternalFormat.ml:669:28>>*/ return [7, symm(rest$6)] /*<<camlinternalFormat.ml:669:39>>*/ ;
       case 8:
        var
         rest$7 =  /*<<camlinternalFormat.ml:657:8>>*/ param[2],
         ty = param[1];
-        /*<<camlinternalFormat.ml:677:32>>*/ return [8,
-               ty,
-                /*<<camlinternalFormat.ml:677:23>>*/ symm(rest$7)] /*<<camlinternalFormat.ml:677:32>>*/ ;
+        /*<<camlinternalFormat.ml:677:23>>*/ return [8, ty, symm(rest$7)] /*<<camlinternalFormat.ml:677:32>>*/ ;
       case 9:
        var
         rest$8 =  /*<<camlinternalFormat.ml:657:8>>*/ param[3],
         ty2 = param[2],
         ty1 = param[1];
-        /*<<camlinternalFormat.ml:679:40>>*/ return [9,
+        /*<<camlinternalFormat.ml:679:31>>*/ return [9,
                ty2,
                ty1,
-                /*<<camlinternalFormat.ml:679:31>>*/ symm(rest$8)] /*<<camlinternalFormat.ml:679:40>>*/ ;
+               symm(rest$8)] /*<<camlinternalFormat.ml:679:40>>*/ ;
       case 10:
        var rest$9 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:672:41>>*/ return [10,
-                /*<<camlinternalFormat.ml:672:30>>*/ symm(rest$9)] /*<<camlinternalFormat.ml:672:41>>*/ ;
+        /*<<camlinternalFormat.ml:672:30>>*/ return [10, symm(rest$9)] /*<<camlinternalFormat.ml:672:41>>*/ ;
       case 11:
        var rest$10 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:671:41>>*/ return [11,
-                /*<<camlinternalFormat.ml:671:30>>*/ symm(rest$10)] /*<<camlinternalFormat.ml:671:41>>*/ ;
+        /*<<camlinternalFormat.ml:671:30>>*/ return [11, symm(rest$10)] /*<<camlinternalFormat.ml:671:41>>*/ ;
       case 12:
        var rest$11 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:673:37>>*/ return [12,
-                /*<<camlinternalFormat.ml:673:26>>*/ symm(rest$11)] /*<<camlinternalFormat.ml:673:37>>*/ ;
+        /*<<camlinternalFormat.ml:673:26>>*/ return [12, symm(rest$11)] /*<<camlinternalFormat.ml:673:37>>*/ ;
       case 13:
        var rest$12 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:674:43>>*/ return [13,
-                /*<<camlinternalFormat.ml:674:32>>*/ symm(rest$12)] /*<<camlinternalFormat.ml:674:43>>*/ ;
+        /*<<camlinternalFormat.ml:674:32>>*/ return [13, symm(rest$12)] /*<<camlinternalFormat.ml:674:43>>*/ ;
       default:
        var rest$13 =  /*<<camlinternalFormat.ml:657:8>>*/ param[1];
-        /*<<camlinternalFormat.ml:675:59>>*/ return [14,
-                /*<<camlinternalFormat.ml:675:48>>*/ symm(rest$13)] /*<<camlinternalFormat.ml:675:59>>*/ ;
+        /*<<camlinternalFormat.ml:675:48>>*/ return [14, symm(rest$13)] /*<<camlinternalFormat.ml:675:59>>*/ ;
     }
     /*<<camlinternalFormat.ml:680:32>>*/ }
    function fmtty_rel_det(param){
@@ -15331,7 +14854,7 @@
         de$8 =  /*<<camlinternalFormat.ml:769:43>>*/ match$8[4],
         af$8 = match$8[2],
         ty =
-           /*<<camlinternalFormat.ml:770:13>>*/ trans
+           /*<<camlinternalFormat.ml:770:19>>*/  /*<<camlinternalFormat.ml:770:13>>*/ trans
            ( /*<<camlinternalFormat.ml:770:19>>*/ symm(ty1), ty2),
         match$9 =  /*<<camlinternalFormat.ml:771:25>>*/ fmtty_rel_det(ty),
         jd =  /*<<camlinternalFormat.ml:771:41>>*/ match$9[4],
@@ -15445,8 +14968,8 @@
                 switch(ty2[0]){
                   case 0:
                    var rest2 = ty2[1];
-                    /*<<camlinternalFormat.ml:804:63>>*/ return [0,
-                            /*<<camlinternalFormat.ml:804:44>>*/ trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:63>>*/ ;
+                    /*<<camlinternalFormat.ml:804:44>>*/ return [0,
+                           trans(rest1, rest2)] /*<<camlinternalFormat.ml:804:63>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15469,9 +14992,8 @@
                 switch(ty2[0]){
                   case 1:
                    var rest2$0 = ty2[1];
-                    /*<<camlinternalFormat.ml:805:69>>*/ return [1,
-                            /*<<camlinternalFormat.ml:805:50>>*/ trans
-                            (rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:69>>*/ ;
+                    /*<<camlinternalFormat.ml:805:50>>*/ return [1,
+                           trans(rest1$0, rest2$0)] /*<<camlinternalFormat.ml:805:69>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15494,9 +15016,8 @@
                 switch(ty2[0]){
                   case 2:
                    var rest2$1 = ty2[1];
-                    /*<<camlinternalFormat.ml:807:60>>*/ return [2,
-                            /*<<camlinternalFormat.ml:807:41>>*/ trans
-                            (rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:60>>*/ ;
+                    /*<<camlinternalFormat.ml:807:41>>*/ return [2,
+                           trans(rest1$1, rest2$1)] /*<<camlinternalFormat.ml:807:60>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15519,9 +15040,8 @@
                 switch(ty2[0]){
                   case 3:
                    var rest2$2 = ty2[1];
-                    /*<<camlinternalFormat.ml:808:66>>*/ return [3,
-                            /*<<camlinternalFormat.ml:808:47>>*/ trans
-                            (rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:66>>*/ ;
+                    /*<<camlinternalFormat.ml:808:47>>*/ return [3,
+                           trans(rest1$2, rest2$2)] /*<<camlinternalFormat.ml:808:66>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15544,9 +15064,8 @@
                 switch(ty2[0]){
                   case 4:
                    var rest2$3 = ty2[1];
-                    /*<<camlinternalFormat.ml:810:78>>*/ return [4,
-                            /*<<camlinternalFormat.ml:810:59>>*/ trans
-                            (rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:78>>*/ ;
+                    /*<<camlinternalFormat.ml:810:59>>*/ return [4,
+                           trans(rest1$3, rest2$3)] /*<<camlinternalFormat.ml:810:78>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15569,9 +15088,8 @@
                 switch(ty2[0]){
                   case 5:
                    var rest2$4 = ty2[1];
-                    /*<<camlinternalFormat.ml:809:66>>*/ return [5,
-                            /*<<camlinternalFormat.ml:809:47>>*/ trans
-                            (rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:66>>*/ ;
+                    /*<<camlinternalFormat.ml:809:47>>*/ return [5,
+                           trans(rest1$4, rest2$4)] /*<<camlinternalFormat.ml:809:66>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15594,9 +15112,8 @@
                 switch(ty2[0]){
                   case 6:
                    var rest2$5 = ty2[1];
-                    /*<<camlinternalFormat.ml:811:66>>*/ return [6,
-                            /*<<camlinternalFormat.ml:811:47>>*/ trans
-                            (rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:66>>*/ ;
+                    /*<<camlinternalFormat.ml:811:47>>*/ return [6,
+                           trans(rest1$5, rest2$5)] /*<<camlinternalFormat.ml:811:66>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15619,9 +15136,8 @@
                 switch(ty2[0]){
                   case 7:
                    var rest2$6 = ty2[1];
-                    /*<<camlinternalFormat.ml:806:63>>*/ return [7,
-                            /*<<camlinternalFormat.ml:806:44>>*/ trans
-                            (rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:63>>*/ ;
+                    /*<<camlinternalFormat.ml:806:44>>*/ return [7,
+                           trans(rest1$6, rest2$6)] /*<<camlinternalFormat.ml:806:63>>*/ ;
                   case 8:
                    break f;
                   case 9:
@@ -15651,8 +15167,8 @@
                     _cE_ =
                        /*<<camlinternalFormat.ml:835:34>>*/ trans
                        (rest1$7, rest2$7);
-                    /*<<camlinternalFormat.ml:835:32>>*/ return [8,
-                            /*<<camlinternalFormat.ml:835:19>>*/ trans(ty1$0, ty2$0),
+                    /*<<camlinternalFormat.ml:835:19>>*/ return [8,
+                           trans(ty1$0, ty2$0),
                            _cE_] /*<<camlinternalFormat.ml:835:32>>*/ ;
                   case 10:
                    break a;
@@ -15682,7 +15198,7 @@
                     ty22 = ty2[2],
                     ty21 = ty2[1],
                     ty =
-                       /*<<camlinternalFormat.ml:841:13>>*/ trans
+                       /*<<camlinternalFormat.ml:841:19>>*/  /*<<camlinternalFormat.ml:841:13>>*/ trans
                        ( /*<<camlinternalFormat.ml:841:19>>*/ symm(ty12), ty21),
                     match =
                        /*<<camlinternalFormat.ml:842:23>>*/ fmtty_rel_det(ty),
@@ -15690,11 +15206,10 @@
                     f2 = match[2];
                     /*<<camlinternalFormat.ml:843:15>>*/ f2(0);
                     /*<<camlinternalFormat.ml:844:15>>*/ f4(0);
-                    /*<<camlinternalFormat.ml:845:50>>*/ return [9,
+                    /*<<camlinternalFormat.ml:845:33>>*/ return [9,
                            ty11,
                            ty22,
-                            /*<<camlinternalFormat.ml:845:33>>*/ trans
-                            (rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:50>>*/ ;
+                           trans(rest1$8, rest2$8)] /*<<camlinternalFormat.ml:845:50>>*/ ;
                   case 10:
                    break a;
                   case 11:
@@ -15712,9 +15227,8 @@
                var rest1$9 =  /*<<camlinternalFormat.ml:803:17>>*/ ty1[1];
                if(typeof ty2 !== "number" && 10 === ty2[0]){
                 var rest2$9 = ty2[1];
-                 /*<<camlinternalFormat.ml:813:66>>*/ return [10,
-                         /*<<camlinternalFormat.ml:813:47>>*/ trans
-                         (rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:66>>*/ ;
+                 /*<<camlinternalFormat.ml:813:47>>*/ return [10,
+                        trans(rest1$9, rest2$9)] /*<<camlinternalFormat.ml:813:66>>*/ ;
                }
                 /*<<camlinternalFormat.ml:814:21>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _m_], 1);
@@ -15726,9 +15240,8 @@
                    break a;
                   case 11:
                    var rest2$10 = ty2[1];
-                    /*<<camlinternalFormat.ml:817:66>>*/ return [11,
-                            /*<<camlinternalFormat.ml:817:47>>*/ trans
-                            (rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:66>>*/ ;
+                    /*<<camlinternalFormat.ml:817:47>>*/ return [11,
+                           trans(rest1$10, rest2$10)] /*<<camlinternalFormat.ml:817:66>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:818:21>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _n_], 1);
@@ -15742,9 +15255,8 @@
                    break b;
                   case 12:
                    var rest2$11 = ty2[1];
-                    /*<<camlinternalFormat.ml:821:60>>*/ return [12,
-                            /*<<camlinternalFormat.ml:821:41>>*/ trans
-                            (rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:60>>*/ ;
+                    /*<<camlinternalFormat.ml:821:41>>*/ return [12,
+                           trans(rest1$11, rest2$11)] /*<<camlinternalFormat.ml:821:60>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:822:19>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _o_], 1);
@@ -15760,9 +15272,8 @@
                    break c;
                   case 13:
                    var rest2$12 = ty2[1];
-                    /*<<camlinternalFormat.ml:825:69>>*/ return [13,
-                            /*<<camlinternalFormat.ml:825:50>>*/ trans
-                            (rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:69>>*/ ;
+                    /*<<camlinternalFormat.ml:825:50>>*/ return [13,
+                           trans(rest1$12, rest2$12)] /*<<camlinternalFormat.ml:825:69>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:826:22>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _p_], 1);
@@ -15780,9 +15291,8 @@
                    break d;
                   case 14:
                    var rest2$13 = ty2[1];
-                    /*<<camlinternalFormat.ml:830:41>>*/ return [14,
-                            /*<<camlinternalFormat.ml:830:22>>*/ trans
-                            (rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:41>>*/ ;
+                    /*<<camlinternalFormat.ml:830:22>>*/ return [14,
+                           trans(rest1$13, rest2$13)] /*<<camlinternalFormat.ml:830:41>>*/ ;
                 }
                 /*<<camlinternalFormat.ml:831:30>>*/ throw caml_maybe_attach_backtrace
                       ([0, Assert_failure, _q_], 1);
@@ -15840,17 +15350,15 @@
       /*<<camlinternalFormat.ml:863:13>>*/ switch(fmtty$0[0]){
        case 0:
         var rest = fmtty$0[1];
-         /*<<camlinternalFormat.ml:890:61>>*/ return [0,
-                 /*<<camlinternalFormat.ml:890:42>>*/ fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:61>>*/ ;
+         /*<<camlinternalFormat.ml:890:42>>*/ return [0, fmtty_of_fmt(rest)] /*<<camlinternalFormat.ml:890:61>>*/ ;
        case 1:
         var rest$0 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
-         /*<<camlinternalFormat.ml:891:61>>*/ return [0,
-                 /*<<camlinternalFormat.ml:891:42>>*/ fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:61>>*/ ;
+         /*<<camlinternalFormat.ml:891:42>>*/ return [0, fmtty_of_fmt(rest$0)] /*<<camlinternalFormat.ml:891:61>>*/ ;
        case 2:
         var
          rest$1 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
          pad = fmtty$0[1];
-         /*<<camlinternalFormat.ml:865:61>>*/ return fmtty_of_padding_fmtty
+         /*<<camlinternalFormat.ml:865:42>>*/ return  /*<<camlinternalFormat.ml:865:61>>*/ fmtty_of_padding_fmtty
                 (pad,
                  [1,
                    /*<<camlinternalFormat.ml:865:42>>*/ fmtty_of_fmt(rest$1)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
@@ -15858,7 +15366,7 @@
         var
          rest$2 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
          pad$0 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:867:61>>*/ return fmtty_of_padding_fmtty
+         /*<<camlinternalFormat.ml:867:42>>*/ return  /*<<camlinternalFormat.ml:867:61>>*/ fmtty_of_padding_fmtty
                 (pad$0,
                  [1,
                    /*<<camlinternalFormat.ml:867:42>>*/ fmtty_of_fmt(rest$2)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
@@ -15925,7 +15433,7 @@
         var
          rest$8 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
          pad$6 = fmtty$0[1];
-         /*<<camlinternalFormat.ml:893:61>>*/ return fmtty_of_padding_fmtty
+         /*<<camlinternalFormat.ml:893:42>>*/ return  /*<<camlinternalFormat.ml:893:61>>*/ fmtty_of_padding_fmtty
                 (pad$6,
                  [7,
                    /*<<camlinternalFormat.ml:893:42>>*/ fmtty_of_fmt(rest$8)]) /*<<camlinternalFormat.ml:916:46>>*/ ;
@@ -15945,25 +15453,25 @@
         var
          rest$9 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3],
          ty = fmtty$0[2];
-         /*<<camlinternalFormat.ml:900:40>>*/ return [8,
+         /*<<camlinternalFormat.ml:900:23>>*/ return [8,
                 ty,
-                 /*<<camlinternalFormat.ml:900:23>>*/ fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:40>>*/ ;
+                fmtty_of_fmt(rest$9)] /*<<camlinternalFormat.ml:900:40>>*/ ;
        case 14:
         var
          rest$10 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3],
          ty$0 = fmtty$0[2];
-         /*<<camlinternalFormat.ml:902:46>>*/ return [9,
+         /*<<camlinternalFormat.ml:902:29>>*/ return [9,
                 ty$0,
                 ty$0,
-                 /*<<camlinternalFormat.ml:902:29>>*/ fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:46>>*/ ;
+                fmtty_of_fmt(rest$10)] /*<<camlinternalFormat.ml:902:46>>*/ ;
        case 15:
         var rest$11 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
-         /*<<camlinternalFormat.ml:894:62>>*/ return [10,
-                 /*<<camlinternalFormat.ml:894:43>>*/ fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:62>>*/ ;
+         /*<<camlinternalFormat.ml:894:43>>*/ return [10,
+                fmtty_of_fmt(rest$11)] /*<<camlinternalFormat.ml:894:62>>*/ ;
        case 16:
         var rest$12 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
-         /*<<camlinternalFormat.ml:895:62>>*/ return [11,
-                 /*<<camlinternalFormat.ml:895:43>>*/ fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:62>>*/ ;
+         /*<<camlinternalFormat.ml:895:43>>*/ return [11,
+                fmtty_of_fmt(rest$12)] /*<<camlinternalFormat.ml:895:62>>*/ ;
        case 17:
         var fmtty$4 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2];
          /*<<camlinternalFormat.ml:912:34>>*/ fmtty$0 = fmtty$4;
@@ -15985,20 +15493,20 @@
                 (CamlinternalFormatBasics[1], _cC_, _cB_) /*<<camlinternalFormat.ml:916:46>>*/ ;
        case 19:
         var rest$14 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
-         /*<<camlinternalFormat.ml:897:63>>*/ return [13,
-                 /*<<camlinternalFormat.ml:897:44>>*/ fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:63>>*/ ;
+         /*<<camlinternalFormat.ml:897:44>>*/ return [13,
+                fmtty_of_fmt(rest$14)] /*<<camlinternalFormat.ml:897:63>>*/ ;
        case 20:
         var rest$15 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3];
-         /*<<camlinternalFormat.ml:908:63>>*/ return [1,
-                 /*<<camlinternalFormat.ml:908:44>>*/ fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:63>>*/ ;
+         /*<<camlinternalFormat.ml:908:44>>*/ return [1,
+                fmtty_of_fmt(rest$15)] /*<<camlinternalFormat.ml:908:63>>*/ ;
        case 21:
         var rest$16 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2];
-         /*<<camlinternalFormat.ml:909:60>>*/ return [2,
-                 /*<<camlinternalFormat.ml:909:41>>*/ fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:60>>*/ ;
+         /*<<camlinternalFormat.ml:909:41>>*/ return [2,
+                fmtty_of_fmt(rest$16)] /*<<camlinternalFormat.ml:909:60>>*/ ;
        case 22:
         var rest$17 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[1];
-         /*<<camlinternalFormat.ml:910:61>>*/ return [0,
-                 /*<<camlinternalFormat.ml:910:42>>*/ fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:61>>*/ ;
+         /*<<camlinternalFormat.ml:910:42>>*/ return [0,
+                fmtty_of_fmt(rest$17)] /*<<camlinternalFormat.ml:910:61>>*/ ;
        case 23:
         var
          fmtty$5 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[2],
@@ -16010,8 +15518,8 @@
            case 1:
              /*<<camlinternalFormat.ml:933:39>>*/ fmtty$0 = fmtty$5; break;
            case 2:
-             /*<<camlinternalFormat.ml:944:75>>*/ return [14,
-                     /*<<camlinternalFormat.ml:944:57>>*/ fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:75>>*/ ;
+             /*<<camlinternalFormat.ml:944:57>>*/ return [14,
+                    fmtty_of_fmt(fmtty$5)] /*<<camlinternalFormat.ml:944:75>>*/ ;
            default:  /*<<camlinternalFormat.ml:947:39>>*/ fmtty$0 = fmtty$5;
          }
         else
@@ -16050,7 +15558,7 @@
         var
          rest$18 =  /*<<camlinternalFormat.ml:863:13>>*/ fmtty$0[3],
          arity = fmtty$0[1];
-         /*<<camlinternalFormat.ml:896:75>>*/ return fmtty_of_custom
+         /*<<camlinternalFormat.ml:896:56>>*/ return  /*<<camlinternalFormat.ml:896:75>>*/ fmtty_of_custom
                 (arity,
                   /*<<camlinternalFormat.ml:896:56>>*/ fmtty_of_fmt(rest$18)) /*<<camlinternalFormat.ml:916:46>>*/ ;
      }
@@ -16060,9 +15568,8 @@
      /*<<camlinternalFormat.ml:921:19>>*/ if(! arity)
       /*<<camlinternalFormat.ml:922:19>>*/ return fmtty;
     var arity$0 =  /*<<camlinternalFormat.ml:921:19>>*/ arity[1];
-     /*<<camlinternalFormat.ml:923:61>>*/ return [12,
-             /*<<camlinternalFormat.ml:923:32>>*/ fmtty_of_custom
-             (arity$0, fmtty)] /*<<camlinternalFormat.ml:923:61>>*/ ;
+     /*<<camlinternalFormat.ml:923:32>>*/ return [12,
+            fmtty_of_custom(arity$0, fmtty)] /*<<camlinternalFormat.ml:923:61>>*/ ;
    }
    function fmtty_of_padding_fmtty(pad, fmtty){
      /*<<camlinternalFormat.ml:952:19>>*/ return typeof pad === "number"
@@ -16627,9 +16134,8 @@
          fmt_rest$12 = fmt[3],
          sub_fmtty$0 = fmt[2],
          pad_opt = fmt[1];
-         /*<<camlinternalFormat.ml:1094:50>>*/ if
-         ( /*<<camlinternalFormat.ml:1094:7>>*/ caml_notequal
-           ([0, sub_fmtty$0], [0, sub_fmtty]))
+         /*<<camlinternalFormat.ml:1094:7>>*/ if
+         (caml_notequal([0, sub_fmtty$0], [0, sub_fmtty]))
           /*<<camlinternalFormat.ml:1094:56>>*/ throw caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
@@ -16653,10 +16159,9 @@
          sub_fmtty$1 = fmt[2],
          pad_opt$0 = fmt[1],
          _cy_ =
-            /*<<camlinternalFormat.ml:1099:74>>*/ [0,
-             /*<<camlinternalFormat.ml:1099:52>>*/ caml_call1
-             (CamlinternalFormatBasics[2], sub_fmtty1)];
-         /*<<camlinternalFormat.ml:1099:74>>*/ if
+            /*<<camlinternalFormat.ml:1099:52>>*/ [0,
+            caml_call1(CamlinternalFormatBasics[2], sub_fmtty1)];
+         /*<<camlinternalFormat.ml:1099:17>>*/ if
          ( /*<<camlinternalFormat.ml:1099:7>>*/ caml_notequal
            ([0,
               /*<<camlinternalFormat.ml:1099:17>>*/ caml_call1
@@ -16666,7 +16171,7 @@
                 (Type_mismatch, 1);
         var
          match$29 =
-            /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
+            /*<<camlinternalFormat.ml:1102:31>>*/  /*<<camlinternalFormat.ml:1102:6>>*/ type_format_gen
             (fmt_rest$13,
               /*<<camlinternalFormat.ml:1102:31>>*/ caml_call1
               (CamlinternalFormatBasics[2], fmtty_rest$10)),
@@ -16910,10 +16415,9 @@
     /*<<camlinternalFormat.ml:1195:51>>*/ }
    function type_ignored_format_substituti(sub_fmtty, fmt, fmtty){
      /*<<camlinternalFormat.ml:1202:27>>*/ if(typeof sub_fmtty === "number")
-      /*<<camlinternalFormat.ml:1276:58>>*/ return [0,
+      /*<<camlinternalFormat.ml:1276:33>>*/ return [0,
              0,
-              /*<<camlinternalFormat.ml:1276:33>>*/ type_format_gen
-              (fmt, fmtty)] /*<<camlinternalFormat.ml:1276:58>>*/ ;
+             type_format_gen(fmt, fmtty)] /*<<camlinternalFormat.ml:1276:58>>*/ ;
      /*<<camlinternalFormat.ml:1202:27>>*/ switch(sub_fmtty[0]){
       case 0:
        if(typeof fmtty !== "number" && 0 === fmtty[0]){
@@ -17050,9 +16554,8 @@
          sub2_fmtty = fmtty[1],
          sub_fmtty_rest$15 = sub_fmtty[2],
          sub2_fmtty$0 = sub_fmtty[1];
-         /*<<camlinternalFormat.ml:1254:52>>*/ if
-         ( /*<<camlinternalFormat.ml:1254:7>>*/ caml_notequal
-           ([0, sub2_fmtty$0], [0, sub2_fmtty]))
+         /*<<camlinternalFormat.ml:1254:7>>*/ if
+         (caml_notequal([0, sub2_fmtty$0], [0, sub2_fmtty]))
           /*<<camlinternalFormat.ml:1254:58>>*/ throw caml_maybe_attach_backtrace
                 (Type_mismatch, 1);
         var
@@ -17077,10 +16580,9 @@
          sub2_fmtty$2 = sub_fmtty[2],
          sub1_fmtty$0 = sub_fmtty[1],
          _cw_ =
-            /*<<camlinternalFormat.ml:1261:76>>*/ [0,
-             /*<<camlinternalFormat.ml:1261:53>>*/ caml_call1
-             (CamlinternalFormatBasics[2], sub1_fmtty)];
-         /*<<camlinternalFormat.ml:1261:76>>*/ if
+            /*<<camlinternalFormat.ml:1261:53>>*/ [0,
+            caml_call1(CamlinternalFormatBasics[2], sub1_fmtty)];
+         /*<<camlinternalFormat.ml:1261:17>>*/ if
          ( /*<<camlinternalFormat.ml:1261:7>>*/ caml_notequal
            ([0,
               /*<<camlinternalFormat.ml:1261:17>>*/ caml_call1
@@ -17090,10 +16592,9 @@
                 (Type_mismatch, 1);
         var
          _cx_ =
-            /*<<camlinternalFormat.ml:1263:76>>*/ [0,
-             /*<<camlinternalFormat.ml:1263:53>>*/ caml_call1
-             (CamlinternalFormatBasics[2], sub2_fmtty$1)];
-         /*<<camlinternalFormat.ml:1263:76>>*/ if
+            /*<<camlinternalFormat.ml:1263:53>>*/ [0,
+            caml_call1(CamlinternalFormatBasics[2], sub2_fmtty$1)];
+         /*<<camlinternalFormat.ml:1263:17>>*/ if
          ( /*<<camlinternalFormat.ml:1263:7>>*/ caml_notequal
            ([0,
               /*<<camlinternalFormat.ml:1263:17>>*/ caml_call1
@@ -17103,7 +16604,7 @@
                 (Type_mismatch, 1);
         var
          sub_fmtty$0 =
-            /*<<camlinternalFormat.ml:1265:21>>*/ trans
+            /*<<camlinternalFormat.ml:1265:27>>*/  /*<<camlinternalFormat.ml:1265:21>>*/ trans
             ( /*<<camlinternalFormat.ml:1265:27>>*/ symm(sub1_fmtty),
              sub2_fmtty$1),
          match$8 =
@@ -17114,19 +16615,15 @@
          /*<<camlinternalFormat.ml:1268:15>>*/ f4(0);
         var
          match$9 =
-            /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
+            /*<<camlinternalFormat.ml:1270:39>>*/  /*<<camlinternalFormat.ml:1270:6>>*/ type_ignored_format_substituti
             ( /*<<camlinternalFormat.ml:1270:39>>*/ caml_call1
               (CamlinternalFormatBasics[2], sub_fmtty_rest$17),
              fmt,
              fmtty_rest$8),
          fmt$9 =  /*<<camlinternalFormat.ml:1270:80>>*/ match$9[2],
          sub_fmtty_rest$18 = match$9[1];
-         /*<<camlinternalFormat.ml:1273:56>>*/ return [0,
-                [9,
-                 sub1_fmtty,
-                 sub2_fmtty$1,
-                  /*<<camlinternalFormat.ml:1273:36>>*/ symm
-                  (sub_fmtty_rest$18)],
+         /*<<camlinternalFormat.ml:1273:36>>*/ return [0,
+                [9, sub1_fmtty, sub2_fmtty$1, symm(sub_fmtty_rest$18)],
                 fmt$9] /*<<camlinternalFormat.ml:1273:56>>*/ ;
        }
        break;
@@ -17200,7 +16697,7 @@
     /*<<camlinternalFormat.ml:1277:28>>*/ }
    function recast(fmt, fmtty){
     var _cv_ =  /*<<camlinternalFormat.ml:1312:29>>*/ symm(fmtty);
-     /*<<camlinternalFormat.ml:1312:42>>*/ return type_format
+     /*<<camlinternalFormat.ml:1312:18>>*/ return  /*<<camlinternalFormat.ml:1312:42>>*/ type_format
             (fmt,
               /*<<camlinternalFormat.ml:1312:18>>*/ caml_call1
               (CamlinternalFormatBasics[2], _cv_)) /*<<camlinternalFormat.ml:1312:42>>*/ ;
@@ -17230,9 +16727,8 @@
       default:
        a:
        if(0 < len){
-         /*<<camlinternalFormat.ml:1337:36>>*/ if
-         (43
-          !==  /*<<camlinternalFormat.ml:1337:29>>*/ caml_string_get(str, 0)
+         /*<<camlinternalFormat.ml:1337:29>>*/ if
+         (43 !== caml_string_get(str, 0)
           &&
            45
            !==  /*<<camlinternalFormat.ml:1337:46>>*/ caml_string_get(str, 0)
@@ -17240,7 +16736,7 @@
             32
             !==  /*<<camlinternalFormat.ml:1337:63>>*/ caml_string_get(str, 0))
          break a;
-         /*<<camlinternalFormat.ml:1338:6>>*/ caml_bytes_set
+         /*<<camlinternalFormat.ml:1338:22>>*/  /*<<camlinternalFormat.ml:1338:6>>*/ caml_bytes_set
          (res,
           0,
            /*<<camlinternalFormat.ml:1338:22>>*/ caml_string_get(str, 0));
@@ -17259,14 +16755,13 @@
          &&
           48
           ===  /*<<camlinternalFormat.ml:1340:28>>*/ caml_string_get(str, 0)){
-         /*<<camlinternalFormat.ml:1340:53>>*/ if
-         (120
-          !==  /*<<camlinternalFormat.ml:1340:46>>*/ caml_string_get(str, 1)
+         /*<<camlinternalFormat.ml:1340:46>>*/ if
+         (120 !== caml_string_get(str, 1)
           &&
            88
            !==  /*<<camlinternalFormat.ml:1340:63>>*/ caml_string_get(str, 1))
          break a;
-         /*<<camlinternalFormat.ml:1341:6>>*/ caml_bytes_set
+         /*<<camlinternalFormat.ml:1341:22>>*/  /*<<camlinternalFormat.ml:1341:6>>*/ caml_bytes_set
          (res,
           1,
            /*<<camlinternalFormat.ml:1341:22>>*/ caml_string_get(str, 1));
@@ -17302,10 +16797,8 @@
           case 5:
            c:
            if(len < (prec$0 + 2 | 0) && 1 < len){
-             /*<<camlinternalFormat.ml:1358:50>>*/ if
-             (120
-              !==
-                /*<<camlinternalFormat.ml:1358:43>>*/ caml_string_get(str, 1)
+             /*<<camlinternalFormat.ml:1358:43>>*/ if
+             (120 !== caml_string_get(str, 1)
               &&
                88
                !==
@@ -17315,7 +16808,7 @@
              res$1 =
                 /*<<camlinternalFormat.ml:1359:14>>*/ caml_call2
                 (Stdlib_Bytes[1], prec$0 + 2 | 0, 48);
-             /*<<camlinternalFormat.ml:1360:4>>*/ caml_bytes_set
+             /*<<camlinternalFormat.ml:1360:20>>*/  /*<<camlinternalFormat.ml:1360:4>>*/ caml_bytes_set
              (res$1,
               1,
                /*<<camlinternalFormat.ml:1360:20>>*/ caml_string_get(str, 1));
@@ -17397,7 +16890,7 @@
      /*<<camlinternalFormat.ml:1417:4>>*/ buffer_add_char(buf, 37);
      /*<<camlinternalFormat.ml:1418:4>>*/ bprint_fconv_flag(buf, fconv);
      /*<<camlinternalFormat.ml:1419:4>>*/ buffer_add_char(buf, 46);
-     /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
+     /*<<camlinternalFormat.ml:1420:26>>*/  /*<<camlinternalFormat.ml:1420:4>>*/ buffer_add_string
      (buf,
        /*<<camlinternalFormat.ml:1420:26>>*/ caml_call1
        (Stdlib_Int[12], prec$0));
@@ -17411,8 +16904,8 @@
      n =  /*<<camlinternalFormat.ml:1427:4>>*/ [0, 0],
      _cp_ =
         /*<<camlinternalFormat.ml:1429:6>>*/ caml_ml_string_length(s) - 1 | 0,
-     _co_ =  /*<<camlinternalFormat.ml:1427:4>>*/ 0;
-     /*<<camlinternalFormat.ml:1429:6>>*/ if(_cp_ >= 0){
+     _co_ = 0;
+    if(_cp_ >= 0){
      var i$0 = _co_;
      for(;;){
        /*<<camlinternalFormat.ml:1430:8>>*/ if
@@ -17426,7 +16919,7 @@
     var
      digits =  /*<<camlinternalFormat.ml:1434:6>>*/ n[1],
      buf =
-        /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
+        /*<<camlinternalFormat.ml:1436:4>>*/  /*<<camlinternalFormat.ml:1436:14>>*/ caml_create_bytes
         ( /*<<camlinternalFormat.ml:1436:4>>*/ caml_ml_string_length(s)
          + ((digits - 1 | 0) / 3 | 0)
          | 0),
@@ -17441,8 +16934,8 @@
         ((digits - 1 | 0) % 3 | 0) + 1 | 0],
      _cr_ =
         /*<<camlinternalFormat.ml:1440:4>>*/ caml_ml_string_length(s) - 1 | 0,
-     _cq_ =  /*<<camlinternalFormat.ml:1439:4>>*/ 0;
-     /*<<camlinternalFormat.ml:1440:4>>*/ if(_cr_ >= 0){
+     _cq_ = 0;
+    if(_cr_ >= 0){
      var i = _cq_;
      for(;;){
       var
@@ -17495,7 +16988,7 @@
        var _cn_ =  /*<<camlinternalFormat.ml:1382:22>>*/ cst_i$0; break;
       default: var _cn_ =  /*<<camlinternalFormat.ml:1386:22>>*/ cst_u;
     }
-     /*<<camlinternalFormat.ml:1451:64>>*/ return transform_int_alt
+     /*<<camlinternalFormat.ml:1451:26>>*/ return  /*<<camlinternalFormat.ml:1451:64>>*/ transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1451:26>>*/ caml_format_int(_cn_, n)) /*<<camlinternalFormat.ml:1451:64>>*/ ;
    }
@@ -17529,7 +17022,7 @@
        var _cm_ =  /*<<camlinternalFormat.ml:1398:22>>*/ cst_li$0; break;
       default: var _cm_ =  /*<<camlinternalFormat.ml:1402:22>>*/ cst_lu;
     }
-     /*<<camlinternalFormat.ml:1453:67>>*/ return transform_int_alt
+     /*<<camlinternalFormat.ml:1453:26>>*/ return  /*<<camlinternalFormat.ml:1453:67>>*/ transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1453:26>>*/ caml_format_int(_cm_, n)) /*<<camlinternalFormat.ml:1453:67>>*/ ;
    }
@@ -17563,7 +17056,7 @@
        var _cl_ =  /*<<camlinternalFormat.ml:1406:22>>*/ cst_ni$0; break;
       default: var _cl_ =  /*<<camlinternalFormat.ml:1410:22>>*/ cst_nu;
     }
-     /*<<camlinternalFormat.ml:1455:71>>*/ return transform_int_alt
+     /*<<camlinternalFormat.ml:1455:26>>*/ return  /*<<camlinternalFormat.ml:1455:71>>*/ transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1455:26>>*/ caml_format_int(_cl_, n)) /*<<camlinternalFormat.ml:1455:71>>*/ ;
    }
@@ -17597,7 +17090,7 @@
        var _ck_ =  /*<<camlinternalFormat.ml:1390:22>>*/ cst_Li$0; break;
       default: var _ck_ =  /*<<camlinternalFormat.ml:1394:22>>*/ cst_Lu;
     }
-     /*<<camlinternalFormat.ml:1457:67>>*/ return transform_int_alt
+     /*<<camlinternalFormat.ml:1457:26>>*/ return  /*<<camlinternalFormat.ml:1457:67>>*/ transform_int_alt
             (iconv,
               /*<<camlinternalFormat.ml:1457:26>>*/ runtime.caml_int64_format
               (_ck_, n)) /*<<camlinternalFormat.ml:1457:67>>*/ ;
@@ -17611,7 +17104,7 @@
         var sign =  /*<<camlinternalFormat.ml:1465:24>>*/ 43; break;
        default: var sign =  /*<<camlinternalFormat.ml:1466:24>>*/ 32;
      }
-      /*<<camlinternalFormat.ml:1468:34>>*/ return  /*<<camlinternalFormat.ml:1468:4>>*/ runtime.caml_hexstring_of_float
+      /*<<camlinternalFormat.ml:1468:4>>*/ return runtime.caml_hexstring_of_float
              (x, prec, sign) /*<<camlinternalFormat.ml:1468:34>>*/ ;
     }
     function caml_special_val(str){
@@ -17626,7 +17119,7 @@
       case 5:
        var
         str =
-           /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
+           /*<<camlinternalFormat.ml:1486:27>>*/  /*<<camlinternalFormat.ml:1486:14>>*/ caml_format_float
            ( /*<<camlinternalFormat.ml:1486:27>>*/ format_of_fconv
              (fconv, prec),
             x),
@@ -17638,8 +17131,7 @@
         else{
          var
           _cg_ =
-             /*<<camlinternalFormat.ml:1473:21>>*/  /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get
-             (str, i)
+             /*<<camlinternalFormat.ml:1473:14>>*/ caml_string_get(str, i)
             - 46
             | 0;
          a:
@@ -17669,10 +17161,10 @@
         /*<<camlinternalFormat.ml:1483:46>>*/ return caml_call1
                (Stdlib_String[26], _cj_) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       case 8:
-        /*<<camlinternalFormat.ml:1484:41>>*/ return caml_special_val
+        /*<<camlinternalFormat.ml:1484:33>>*/ return  /*<<camlinternalFormat.ml:1484:41>>*/ caml_special_val
                ( /*<<camlinternalFormat.ml:1484:33>>*/ hex(0)) /*<<camlinternalFormat.ml:1489:47>>*/ ;
       default:
-       return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
+        /*<<camlinternalFormat.ml:1489:17>>*/ return  /*<<camlinternalFormat.ml:1489:4>>*/ caml_format_float
                ( /*<<camlinternalFormat.ml:1489:17>>*/ format_of_fconv
                  (fconv, prec),
                 x) /*<<camlinternalFormat.ml:1489:47>>*/ ;
@@ -17713,10 +17205,9 @@
           (str, 0, res, 1, l);
          var
           new_acc =
-             /*<<camlinternalFormat.ml:1525:60>>*/ [4,
+             /*<<camlinternalFormat.ml:1496:34>>*/ [4,
              acc$0,
-              /*<<camlinternalFormat.ml:1496:34>>*/ caml_call1
-              (Stdlib_Bytes[44], res)];
+             caml_call1(Stdlib_Bytes[44], res)];
           /*<<camlinternalFormat.ml:1526:6>>*/ return make_printf
                  (k$0, new_acc, rest$0) /*<<camlinternalFormat.ml:1526:32>>*/ ;} /*<<camlinternalFormat.ml:1524:4>>*/ ;
        case 2:
@@ -17797,7 +17288,7 @@
                    (x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
+                        /*<<camlinternalFormat.ml:1738:36>>*/  /*<<camlinternalFormat.ml:1738:16>>*/ convert_float
                         (fconv,
                           /*<<camlinternalFormat.ml:1738:36>>*/ default_float_precision
                           (fconv),
@@ -17821,7 +17312,7 @@
                    (p, x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
+                        /*<<camlinternalFormat.ml:1759:36>>*/  /*<<camlinternalFormat.ml:1759:16>>*/ fix_padding
                         (padty,
                          w,
                           /*<<camlinternalFormat.ml:1759:36>>*/ convert_float
@@ -17833,7 +17324,7 @@
                    (x){
                     var
                      str =
-                        /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
+                        /*<<camlinternalFormat.ml:1750:36>>*/  /*<<camlinternalFormat.ml:1750:16>>*/ convert_float
                         (fconv,
                           /*<<camlinternalFormat.ml:1750:36>>*/ default_float_precision
                           (fconv),
@@ -17848,7 +17339,7 @@
           /*<<camlinternalFormat.ml:1754:4>>*/ return function(x){
           var
            str =
-              /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
+              /*<<camlinternalFormat.ml:1755:36>>*/  /*<<camlinternalFormat.ml:1755:16>>*/ fix_padding
               (padty,
                w,
                 /*<<camlinternalFormat.ml:1755:36>>*/ convert_float
@@ -17863,7 +17354,7 @@
                   (w, p, x){
                    var
                     str =
-                       /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
+                       /*<<camlinternalFormat.ml:1772:36>>*/  /*<<camlinternalFormat.ml:1772:16>>*/ fix_padding
                        (padty$0,
                         w,
                          /*<<camlinternalFormat.ml:1772:36>>*/ convert_float
@@ -17875,7 +17366,7 @@
                   (w, x){
                    var
                     str =
-                       /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
+                       /*<<camlinternalFormat.ml:1763:36>>*/  /*<<camlinternalFormat.ml:1763:16>>*/ convert_float
                        (fconv,
                          /*<<camlinternalFormat.ml:1763:36>>*/ default_float_precision
                          (fconv),
@@ -17890,7 +17381,7 @@
          /*<<camlinternalFormat.ml:1767:4>>*/ return function(w, x){
          var
           str =
-             /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
+             /*<<camlinternalFormat.ml:1768:36>>*/  /*<<camlinternalFormat.ml:1768:16>>*/ fix_padding
              (padty$0,
               w,
                /*<<camlinternalFormat.ml:1768:36>>*/ convert_float
@@ -17943,7 +17434,7 @@
          var
           fmt = param[1],
           _cf_ =  /*<<camlinternalFormat.ml:1574:18>>*/ recast(fmt, fmtty);
-          /*<<camlinternalFormat.ml:1574:42>>*/ return make_printf
+          /*<<camlinternalFormat.ml:1574:6>>*/ return  /*<<camlinternalFormat.ml:1574:42>>*/ make_printf
                  (k$0,
                   acc$0,
                    /*<<camlinternalFormat.ml:1574:6>>*/ caml_call2
@@ -17977,10 +17468,13 @@
         var _cd_ =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[1];
         if(0 === _cd_[0]){
          var rest$17 = fmt$0[2], fmt$1 = _cd_[1][1];
-         let acc = acc$0, k = k$0, rest = rest$17;
+         let
+          acc =  /*<<camlinternalFormat.ml:1596:4>>*/ acc$0,
+          k = k$0,
+          rest = rest$17;
          var
           k$1 =
-             /*<<camlinternalFormat.ml:1596:4>>*/ function(kacc){
+            function(kacc){
               /*<<camlinternalFormat.ml:1597:6>>*/ return make_printf
                      (k, [1, acc, [0, kacc]], rest) /*<<camlinternalFormat.ml:1597:70>>*/ ;
             };
@@ -17992,10 +17486,13 @@
          var
           rest$18 =  /*<<camlinternalFormat.ml:1518:17>>*/ fmt$0[2],
           fmt$2 = _cd_[1][1];
-         let acc = acc$0, k = k$0, rest = rest$18;
+         let
+          acc =  /*<<camlinternalFormat.ml:1600:4>>*/ acc$0,
+          k = k$0,
+          rest = rest$18;
          var
           k$2 =
-             /*<<camlinternalFormat.ml:1600:4>>*/ function(kacc){
+            function(kacc){
               /*<<camlinternalFormat.ml:1601:6>>*/ return make_printf
                      (k, [1, acc, [1, kacc]], rest) /*<<camlinternalFormat.ml:1601:70>>*/ ;
             };
@@ -18022,10 +17519,9 @@
          /*<<camlinternalFormat.ml:1583:4>>*/ return function(n){
          var
           new_acc =
-             /*<<camlinternalFormat.ml:1584:59>>*/ [4,
+             /*<<camlinternalFormat.ml:1584:42>>*/ [4,
              acc$0,
-              /*<<camlinternalFormat.ml:1584:42>>*/ caml_format_int
-              (cst_u$0, n)];
+             caml_format_int(cst_u$0, n)];
           /*<<camlinternalFormat.ml:1585:6>>*/ return make_printf
                  (k$0, new_acc, rest$20) /*<<camlinternalFormat.ml:1585:32>>*/ ;} /*<<camlinternalFormat.ml:1583:4>>*/ ;
        case 22:
@@ -18059,7 +17555,7 @@
     }
    }
    function make_printf(k, acc, fmt){
-     /*<<?>>*/ return caml_trampoline
+     /*<<camlinternalFormat.ml:1518:17>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<camlinternalFormat.ml:1518:17>>*/ make_printf$0
               (0, k, acc, fmt)) /*<<?>>*/ ;
    }
@@ -18159,7 +17655,7 @@
     }
    }
    function make_ignored_param(k, acc, ign, fmt){
-     /*<<?>>*/ return caml_trampoline
+     /*<<camlinternalFormat.ml:1613:21>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<camlinternalFormat.ml:1613:21>>*/ make_ignored_param$0
               (0, k, acc, ign, fmt)) /*<<?>>*/ ;
    }
@@ -18217,10 +17713,10 @@
          ty2 = fmtty[2],
          ty1 = fmtty[1],
          ty =
-            /*<<camlinternalFormat.ml:1654:13>>*/ trans
+            /*<<camlinternalFormat.ml:1654:19>>*/  /*<<camlinternalFormat.ml:1654:13>>*/ trans
             ( /*<<camlinternalFormat.ml:1654:19>>*/ symm(ty1), ty2);
          /*<<camlinternalFormat.ml:1655:4>>*/ return function(param){
-          /*<<camlinternalFormat.ml:1655:57>>*/ return make_from_fmtty
+          /*<<camlinternalFormat.ml:1655:35>>*/ return  /*<<camlinternalFormat.ml:1655:57>>*/ make_from_fmtty
                  (k,
                   acc,
                    /*<<camlinternalFormat.ml:1655:35>>*/ caml_call2
@@ -18254,7 +17750,7 @@
     return make_invalid_arg(counter$0, k, acc, fmt) /*<<camlinternalFormat.ml:1655:61>>*/ ;
    }
    function make_from_fmtty(k, acc, fmtty, fmt){
-     /*<<?>>*/ return caml_trampoline
+     /*<<camlinternalFormat.ml:1637:23>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<camlinternalFormat.ml:1637:23>>*/ make_from_fmtty$0
               (0, k, acc, fmtty, fmt)) /*<<?>>*/ ;
    }
@@ -18274,9 +17770,7 @@
       /*<<camlinternalFormat.ml:1672:4>>*/ return function(x){
       var
        new_acc =
-          /*<<camlinternalFormat.ml:1673:49>>*/ [4,
-          acc,
-           /*<<camlinternalFormat.ml:1673:42>>*/ caml_call1(trans, x)];
+          /*<<camlinternalFormat.ml:1673:42>>*/ [4, acc, caml_call1(trans, x)];
        /*<<camlinternalFormat.ml:1674:6>>*/ return make_printf
               (k, new_acc, fmt) /*<<camlinternalFormat.ml:1674:31>>*/ ;} /*<<camlinternalFormat.ml:1672:4>>*/ ;
      /*<<camlinternalFormat.ml:1670:29>>*/ if(0 === pad[0]){
@@ -18284,7 +17778,7 @@
       /*<<camlinternalFormat.ml:1676:4>>*/ return function(x){
       var
        new_acc =
-          /*<<camlinternalFormat.ml:1677:75>>*/ [4,
+          /*<<camlinternalFormat.ml:1677:66>>*/ [4,
           acc,
            /*<<camlinternalFormat.ml:1677:42>>*/ fix_padding
            (padty,
@@ -18297,7 +17791,7 @@
      /*<<camlinternalFormat.ml:1680:4>>*/ return function(w, x){
      var
       new_acc =
-         /*<<camlinternalFormat.ml:1681:71>>*/ [4,
+         /*<<camlinternalFormat.ml:1681:62>>*/ [4,
          acc,
           /*<<camlinternalFormat.ml:1681:42>>*/ fix_padding
           (padty$0,
@@ -18313,7 +17807,7 @@
                (p, x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
+                    /*<<camlinternalFormat.ml:1702:36>>*/  /*<<camlinternalFormat.ml:1702:16>>*/ fix_int_precision
                     (p,
                       /*<<camlinternalFormat.ml:1702:36>>*/ caml_call2
                       (trans, iconv, x));
@@ -18333,7 +17827,7 @@
       /*<<camlinternalFormat.ml:1697:4>>*/ return function(x){
       var
        str =
-          /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
+          /*<<camlinternalFormat.ml:1698:36>>*/  /*<<camlinternalFormat.ml:1698:16>>*/ fix_int_precision
           (p,
             /*<<camlinternalFormat.ml:1698:36>>*/ caml_call2(trans, iconv, x));
        /*<<camlinternalFormat.ml:1699:6>>*/ return make_printf
@@ -18347,7 +17841,7 @@
                (p, x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
+                    /*<<camlinternalFormat.ml:1714:57>>*/  /*<<camlinternalFormat.ml:1714:16>>*/ fix_padding
                     (padty,
                      w,
                       /*<<camlinternalFormat.ml:1714:36>>*/ fix_int_precision
@@ -18361,7 +17855,7 @@
                (x){
                 var
                  str =
-                    /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
+                    /*<<camlinternalFormat.ml:1706:36>>*/  /*<<camlinternalFormat.ml:1706:16>>*/ fix_padding
                     (padty,
                      w,
                       /*<<camlinternalFormat.ml:1706:36>>*/ caml_call2
@@ -18373,7 +17867,7 @@
       /*<<camlinternalFormat.ml:1709:4>>*/ return function(x){
       var
        str =
-          /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
+          /*<<camlinternalFormat.ml:1710:57>>*/  /*<<camlinternalFormat.ml:1710:16>>*/ fix_padding
           (padty,
            w,
             /*<<camlinternalFormat.ml:1710:36>>*/ fix_int_precision
@@ -18390,7 +17884,7 @@
               (w, p, x){
                var
                 str =
-                   /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
+                   /*<<camlinternalFormat.ml:1726:57>>*/  /*<<camlinternalFormat.ml:1726:16>>*/ fix_padding
                    (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1726:36>>*/ fix_int_precision
@@ -18404,7 +17898,7 @@
               (w, x){
                var
                 str =
-                   /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
+                   /*<<camlinternalFormat.ml:1718:36>>*/  /*<<camlinternalFormat.ml:1718:16>>*/ fix_padding
                    (padty$0,
                     w,
                      /*<<camlinternalFormat.ml:1718:36>>*/ caml_call2
@@ -18416,7 +17910,7 @@
      /*<<camlinternalFormat.ml:1721:4>>*/ return function(w, x){
      var
       str =
-         /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
+         /*<<camlinternalFormat.ml:1722:57>>*/  /*<<camlinternalFormat.ml:1722:16>>*/ fix_padding
          (padty$0,
           w,
            /*<<camlinternalFormat.ml:1722:36>>*/ fix_int_precision
@@ -18429,7 +17923,7 @@
      /*<<camlinternalFormat.ml:1778:28>>*/ if(arity){
      var arity$0 = arity[1];
       /*<<camlinternalFormat.ml:1781:4>>*/ return function(x){
-       /*<<camlinternalFormat.ml:1782:40>>*/ return make_custom
+       /*<<camlinternalFormat.ml:1782:35>>*/ return  /*<<camlinternalFormat.ml:1782:40>>*/ make_custom
               (k,
                acc,
                rest,
@@ -18443,7 +17937,7 @@
     return make_printf$0(counter$0, k, _ca_, rest) /*<<camlinternalFormat.ml:1782:40>>*/ ;
    }
    function make_custom(k, acc, rest, arity, f){
-     /*<<?>>*/ return caml_trampoline
+     /*<<camlinternalFormat.ml:1778:28>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<camlinternalFormat.ml:1778:28>>*/ make_custom$0
               (0, k, acc, rest, arity, f)) /*<<?>>*/ ;
    }
@@ -18620,7 +18114,7 @@
          var
           fmt = param[1],
           _bW_ =  /*<<camlinternalFormat.ml:1842:24>>*/ recast(fmt, fmtty);
-          /*<<camlinternalFormat.ml:1842:48>>*/ return make_iprintf
+          /*<<camlinternalFormat.ml:1842:12>>*/ return  /*<<camlinternalFormat.ml:1842:48>>*/ make_iprintf
                  (k$0,
                   o,
                    /*<<camlinternalFormat.ml:1842:12>>*/ caml_call2
@@ -18653,10 +18147,10 @@
         var _bP_ =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[1];
         if(0 === _bP_[0]){
          var rest$23 = fmt$0[2], fmt$1 = _bP_[1][1];
-         let k = k$0, rest = rest$23;
+         let k =  /*<<camlinternalFormat.ml:1854:8>>*/ k$0, rest = rest$23;
          var
           k$1 =
-             /*<<camlinternalFormat.ml:1854:8>>*/ function(koc){
+            function(koc){
               /*<<camlinternalFormat.ml:1854:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1854:56>>*/ ;
             };
@@ -18667,10 +18161,10 @@
          var
           rest$24 =  /*<<camlinternalFormat.ml:1788:17>>*/ fmt$0[2],
           fmt$2 = _bP_[1][1];
-         let k = k$0, rest = rest$24;
+         let k =  /*<<camlinternalFormat.ml:1856:8>>*/ k$0, rest = rest$24;
          var
           k$2 =
-             /*<<camlinternalFormat.ml:1856:8>>*/ function(koc){
+            function(koc){
               /*<<camlinternalFormat.ml:1856:33>>*/ return make_iprintf
                      (k, koc, rest) /*<<camlinternalFormat.ml:1856:56>>*/ ;
             };
@@ -18730,7 +18224,7 @@
     }
    }
    function make_iprintf(k, o, fmt){
-     /*<<?>>*/ return caml_trampoline
+     /*<<camlinternalFormat.ml:1788:17>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<camlinternalFormat.ml:1788:17>>*/ make_iprintf$0
               (0, k, o, fmt)) /*<<?>>*/ ;
    }
@@ -18822,7 +18316,7 @@
     return make_iprintf$0(counter$0, k, o, fmt) /*<<camlinternalFormat.ml:1889:48>>*/ ;
    }
    function fn_of_custom_arity(k, o, fmt, param){
-     /*<<?>>*/ return caml_trampoline
+     /*<<camlinternalFormat.ml:1882:4>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<camlinternalFormat.ml:1882:4>>*/ fn_of_custom_arity$0
               (0, k, o, fmt, param)) /*<<?>>*/ ;
    }
@@ -19084,12 +18578,8 @@
      var wend =  /*<<camlinternalFormat.ml:1988:15>>*/ wstart;
      for(;;){
        /*<<camlinternalFormat.ml:1978:6>>*/ if(wend === len) break b;
-       /*<<camlinternalFormat.ml:1979:21>>*/ if
-       (25
-        <
-          /*<<camlinternalFormat.ml:1979:14>>*/ caml_string_get(str, wend)
-         - 97
-         >>> 0)
+       /*<<camlinternalFormat.ml:1979:14>>*/ if
+       (25 < caml_string_get(str, wend) - 97 >>> 0)
        break;
       var j =  /*<<camlinternalFormat.ml:1980:24>>*/ wend + 1 | 0;
       wend = j;
@@ -19125,7 +18615,7 @@
       /*<<camlinternalFormat.ml:1994:8>>*/ try{
       var
        _bs_ =
-          /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
+          /*<<camlinternalFormat.ml:1994:26>>*/  /*<<camlinternalFormat.ml:1994:12>>*/ runtime.caml_int_of_string
           ( /*<<camlinternalFormat.ml:1994:26>>*/ caml_call3
             (Stdlib_String[16], str, nstart, nend - nstart | 0)),
        indent = _bs_;
@@ -19239,10 +18729,8 @@
         (end_ind, cst_unexpected_end_of_format);
       var
        match$1 =
-          /*<<camlinternalFormat.ml:2142:23>>*/ 95
-          ===
-            /*<<camlinternalFormat.ml:2142:10>>*/ caml_string_get
-            (str, str_ind$2)
+          /*<<camlinternalFormat.ml:2142:10>>*/ 95
+          === caml_string_get(str, str_ind$2)
           ?  /*<<camlinternalFormat.ml:2143:15>>*/ parse_flags
             (str_ind, str_ind$2 + 1 | 0, end_ind, 1)
           :  /*<<camlinternalFormat.ml:2144:13>>*/ parse_flags
@@ -19275,7 +18763,7 @@
            default:
             var
              fmt_rest$2 =
-                /*<<camlinternalFormat.ml:2602:58>>*/  /*<<camlinternalFormat.ml:2602:31>>*/ parse
+                /*<<camlinternalFormat.ml:2602:31>>*/ parse
                  (str_ind$0 + 1 | 0, end_ind)
                 [1],
              match$0 =
@@ -19295,7 +18783,7 @@
           default:
            var
             fmt_rest$3 =
-               /*<<camlinternalFormat.ml:2597:58>>*/  /*<<camlinternalFormat.ml:2597:31>>*/ parse
+               /*<<camlinternalFormat.ml:2597:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 =
@@ -19307,7 +18795,7 @@
         /*<<camlinternalFormat.ml:2593:25>>*/ if(10 === c){
         var
          fmt_rest$4 =
-            /*<<camlinternalFormat.ml:2616:58>>*/  /*<<camlinternalFormat.ml:2616:31>>*/ parse
+            /*<<camlinternalFormat.ml:2616:31>>*/ parse
              (str_ind$0 + 1 | 0, end_ind)
             [1],
          match$0 =
@@ -19319,7 +18807,7 @@
           case 0:
            var
             fmt_rest$5 =
-               /*<<camlinternalFormat.ml:2608:58>>*/  /*<<camlinternalFormat.ml:2608:31>>*/ parse
+               /*<<camlinternalFormat.ml:2608:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 =
@@ -19335,7 +18823,7 @@
                 (str, str_ind$0 + 1 | 0)){
             var
              fmt_rest$6 =
-                /*<<camlinternalFormat.ml:2627:58>>*/  /*<<camlinternalFormat.ml:2627:31>>*/ parse
+                /*<<camlinternalFormat.ml:2627:31>>*/ parse
                  (str_ind$0 + 2 | 0, end_ind)
                 [1],
              match$0 =
@@ -19344,8 +18832,7 @@
            }
            var
             fmt_rest$7 =
-               /*<<camlinternalFormat.ml:2630:52>>*/  /*<<camlinternalFormat.ml:2630:31>>*/ parse
-                (str_ind$0, end_ind)
+               /*<<camlinternalFormat.ml:2630:31>>*/ parse(str_ind$0, end_ind)
                [1],
             match$0 =
                /*<<camlinternalFormat.ml:2631:8>>*/ [0, [12, 64, fmt_rest$7]];
@@ -19353,7 +18840,7 @@
           case 12:
            var
             fmt_rest$8 =
-               /*<<camlinternalFormat.ml:2605:58>>*/  /*<<camlinternalFormat.ml:2605:31>>*/ parse
+               /*<<camlinternalFormat.ml:2605:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 =
@@ -19362,7 +18849,7 @@
           case 14:
            var
             fmt_rest$9 =
-               /*<<camlinternalFormat.ml:2619:58>>*/  /*<<camlinternalFormat.ml:2619:31>>*/ parse
+               /*<<camlinternalFormat.ml:2619:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 =
@@ -19414,7 +18901,7 @@
                 /*<<camlinternalFormat.ml:2671:28>>*/ parse_spaces
                 (str_ind_2, end_ind),
              switcher$0 =
-                /*<<camlinternalFormat.ml:2672:33>>*/  /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
+                /*<<camlinternalFormat.ml:2672:18>>*/ caml_string_get
                 (str, str_ind_3)
                - 45
                | 0;
@@ -19444,11 +18931,8 @@
               str_ind_5 =
                  /*<<camlinternalFormat.ml:2678:32>>*/ parse_spaces
                  (str_ind_4, end_ind);
-              /*<<camlinternalFormat.ml:2679:34>>*/ if
-              (62
-               !==
-                 /*<<camlinternalFormat.ml:2679:19>>*/ caml_string_get
-                 (str, str_ind_5))
+              /*<<camlinternalFormat.ml:2679:19>>*/ if
+              (62 !== caml_string_get(str, str_ind_5))
                /*<<camlinternalFormat.ml:2679:47>>*/ throw caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
              var
@@ -19479,8 +18963,7 @@
            }
            var
             fmt_rest$12 =
-               /*<<camlinternalFormat.ml:2688:49>>*/  /*<<camlinternalFormat.ml:2688:27>>*/ parse
-                (next_ind, end_ind)
+               /*<<camlinternalFormat.ml:2688:27>>*/ parse(next_ind, end_ind)
                [1],
             match$0 =
                /*<<camlinternalFormat.ml:2689:4>>*/ [0,
@@ -19518,11 +19001,8 @@
               str_ind_3$0 =
                  /*<<camlinternalFormat.ml:2700:26>>*/ parse_spaces
                  (str_ind_2$0, end_ind);
-              /*<<camlinternalFormat.ml:2701:28>>*/ if
-              (62
-               !==
-                 /*<<camlinternalFormat.ml:2701:13>>*/ caml_string_get
-                 (str, str_ind_3$0))
+              /*<<camlinternalFormat.ml:2701:13>>*/ if
+              (62 !== caml_string_get(str, str_ind_3$0))
                /*<<camlinternalFormat.ml:2701:41>>*/ throw caml_maybe_attach_backtrace
                      (Stdlib[8], 1);
              var
@@ -19550,7 +19030,7 @@
              formatting_lit$1 = match$5[2],
              next_ind$0 = match$5[1],
              fmt_rest$13 =
-                /*<<camlinternalFormat.ml:2709:51>>*/  /*<<camlinternalFormat.ml:2709:29>>*/ parse
+                /*<<camlinternalFormat.ml:2709:29>>*/ parse
                  (next_ind$0, end_ind)
                 [1],
              _be_ =
@@ -19559,7 +19039,7 @@
            else
             var
              fmt_rest$14 =
-                /*<<camlinternalFormat.ml:2712:50>>*/  /*<<camlinternalFormat.ml:2712:29>>*/ parse
+                /*<<camlinternalFormat.ml:2712:29>>*/ parse
                  (str_ind$4, end_ind)
                 [1],
              _be_ =
@@ -19570,7 +19050,7 @@
           case 31:
            var
             fmt_rest$10 =
-               /*<<camlinternalFormat.ml:2613:58>>*/  /*<<camlinternalFormat.ml:2613:31>>*/ parse
+               /*<<camlinternalFormat.ml:2613:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 =
@@ -19579,7 +19059,7 @@
           case 32:
            var
             fmt_rest$11 =
-               /*<<camlinternalFormat.ml:2624:58>>*/  /*<<camlinternalFormat.ml:2624:31>>*/ parse
+               /*<<camlinternalFormat.ml:2624:31>>*/ parse
                 (str_ind$0 + 1 | 0, end_ind)
                [1],
             match$0 =
@@ -19589,7 +19069,7 @@
       }
       var
        fmt_rest$1 =
-          /*<<camlinternalFormat.ml:2633:58>>*/  /*<<camlinternalFormat.ml:2633:31>>*/ parse
+          /*<<camlinternalFormat.ml:2633:31>>*/ parse
            (str_ind$0 + 1 | 0, end_ind)
           [1],
        match$0 =
@@ -19630,7 +19110,7 @@
          (end_ind, cst_unexpected_end_of_format);
        var
         switcher =
-           /*<<camlinternalFormat.ml:2162:31>>*/  /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
+           /*<<camlinternalFormat.ml:2162:18>>*/ caml_string_get
            (str, str_ind$0)
           - 32
           | 0;
@@ -19864,7 +19344,7 @@
        /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
        (end_ind, cst_unexpected_end_of_format);
      function parse_conv(padprec){
-       /*<<camlinternalFormat.ml:2271:34>>*/ return parse_conversion
+       /*<<camlinternalFormat.ml:2271:21>>*/ return  /*<<camlinternalFormat.ml:2271:34>>*/ parse_conversion
               (pct_ind,
                str_ind + 1 | 0,
                end_ind,
@@ -20008,11 +19488,11 @@
               (pct_ind, str_ind, c, cst$25) /*<<camlinternalFormat.ml:2358:66>>*/ ;
      }
      function get_pad_opt(c){
-       /*<<camlinternalFormat.ml:2360:49>>*/ return opt_of_pad
+       /*<<camlinternalFormat.ml:2360:37>>*/ return  /*<<camlinternalFormat.ml:2360:49>>*/ opt_of_pad
               (c,  /*<<camlinternalFormat.ml:2360:37>>*/ get_pad(0)) /*<<camlinternalFormat.ml:2360:49>>*/ ;
      }
      function get_padprec_opt(c){
-       /*<<camlinternalFormat.ml:2361:57>>*/ return opt_of_pad
+       /*<<camlinternalFormat.ml:2361:41>>*/ return  /*<<camlinternalFormat.ml:2361:57>>*/ opt_of_pad
               (c,  /*<<camlinternalFormat.ml:2361:41>>*/ get_padprec(0)) /*<<camlinternalFormat.ml:2361:57>>*/ ;
      }
      a:
@@ -20022,9 +19502,7 @@
          case 33:
           var
            fmt_rest$5 =
-              /*<<camlinternalFormat.ml:2515:50>>*/  /*<<camlinternalFormat.ml:2515:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2515:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result =
               /*<<camlinternalFormat.ml:2516:6>>*/ [0, [10, fmt_rest$5]];
           break a;
@@ -20034,21 +19512,18 @@
               /*<<camlinternalFormat.ml:2531:20>>*/ search_subformat_end
               (str_ind, end_ind, 41),
            fmt_rest$7 =
-              /*<<camlinternalFormat.ml:2532:56>>*/  /*<<camlinternalFormat.ml:2532:29>>*/ parse
+              /*<<camlinternalFormat.ml:2532:29>>*/ parse
                (sub_end + 2 | 0, end_ind)
               [1],
            sub_fmt =
-              /*<<camlinternalFormat.ml:2533:49>>*/  /*<<camlinternalFormat.ml:2533:28>>*/ parse
-               (str_ind, sub_end)
-              [1],
+              /*<<camlinternalFormat.ml:2533:28>>*/ parse(str_ind, sub_end)[1],
            sub_fmtty =
               /*<<camlinternalFormat.ml:2534:22>>*/ fmtty_of_fmt(sub_fmt);
-           /*<<camlinternalFormat.ml:2535:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2535:9>>*/ get_ign(0))
+           /*<<camlinternalFormat.ml:2535:9>>*/ if(get_ign(0))
            var
             ignored$2 =
-               /*<<camlinternalFormat.ml:2536:59>>*/ [9,
-                /*<<camlinternalFormat.ml:2536:44>>*/ get_pad_opt(95),
+               /*<<camlinternalFormat.ml:2536:44>>*/ [9,
+               get_pad_opt(95),
                sub_fmtty],
             _aJ_ =
                /*<<camlinternalFormat.ml:2537:8>>*/ [0,
@@ -20072,12 +19547,9 @@
          case 67:
           var
            fmt_rest$10 =
-              /*<<camlinternalFormat.ml:2396:50>>*/  /*<<camlinternalFormat.ml:2396:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2396:29>>*/ parse(str_ind, end_ind)[1],
            _aL_ =
-              /*<<camlinternalFormat.ml:2397:19>>*/  /*<<camlinternalFormat.ml:2397:9>>*/ get_ign
-               (0)
+              /*<<camlinternalFormat.ml:2397:9>>*/ get_ign(0)
               ? [0, [23, 1, fmt_rest$10]]
               : [0, [1, fmt_rest$10]],
            fmt_result =  /*<<camlinternalFormat.ml:2397:19>>*/ _aL_;
@@ -20085,12 +19557,9 @@
          case 78:
           var
            fmt_rest$14 =
-              /*<<camlinternalFormat.ml:2431:50>>*/  /*<<camlinternalFormat.ml:2431:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2431:29>>*/ parse(str_ind, end_ind)[1],
            counter$0 =  /*<<camlinternalFormat.ml:2431:50>>*/ 2;
-           /*<<camlinternalFormat.ml:2433:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2433:9>>*/ get_ign(0))
+           /*<<camlinternalFormat.ml:2433:9>>*/ if(get_ign(0))
            var
             ignored$6 =  /*<<camlinternalFormat.ml:2434:8>>*/ [11, counter$0],
             _aR_ =
@@ -20106,18 +19575,14 @@
          case 83:
           var
            pad$6 =
-              /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
+              /*<<camlinternalFormat.ml:2410:32>>*/  /*<<camlinternalFormat.ml:2410:16>>*/ check_no_0
               (symb,  /*<<camlinternalFormat.ml:2410:32>>*/ get_padprec(0)),
            fmt_rest$15 =
-              /*<<camlinternalFormat.ml:2411:50>>*/  /*<<camlinternalFormat.ml:2411:29>>*/ parse
-               (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2412:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2412:9>>*/ get_ign(0))
+              /*<<camlinternalFormat.ml:2411:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2412:9>>*/ if(get_ign(0))
            var
             ignored$7 =
-               /*<<camlinternalFormat.ml:2413:63>>*/ [1,
-                /*<<camlinternalFormat.ml:2413:42>>*/ get_padprec_opt(95)],
+               /*<<camlinternalFormat.ml:2413:42>>*/ [1, get_padprec_opt(95)],
             _aS_ =
                /*<<camlinternalFormat.ml:2414:8>>*/ [0,
                [23, ignored$7, fmt_rest$15]];
@@ -20145,7 +19610,7 @@
                /*<<camlinternalFormat.ml:2724:6>>*/ if(c >= c$0){
                var i = c$0;
                for(;;){
-                 /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
+                 /*<<camlinternalFormat.ml:2725:33>>*/  /*<<camlinternalFormat.ml:2725:8>>*/ add_in_char_set
                  (char_set,
                    /*<<camlinternalFormat.ml:2725:33>>*/ caml_call1
                    (Stdlib[29], i));
@@ -20308,18 +19773,15 @@
            parse_char_set_after_char =
               /*<<camlinternalFormat.ml:2736:4>>*/ function
              (str_ind, end_ind, c){
-               /*<<?>>*/ return caml_trampoline
+               /*<<camlinternalFormat.ml:2755:6>>*/ return  /*<<?>>*/ caml_trampoline
                       ( /*<<camlinternalFormat.ml:2755:6>>*/ parse_char_set_after_char$0
                         (0, str_ind, end_ind, c)) /*<<?>>*/ ;
              };
            /*<<camlinternalFormat.ml:2793:4>>*/ if(str_ind === end_ind)
             /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
             (end_ind, cst_unexpected_end_of_format);
-           /*<<camlinternalFormat.ml:2795:25>>*/ if
-           (94
-            ===
-              /*<<camlinternalFormat.ml:2795:12>>*/ caml_string_get
-              (str, str_ind))
+           /*<<camlinternalFormat.ml:2795:12>>*/ if
+           (94 === caml_string_get(str, str_ind))
            var
             str_ind$0 =  /*<<camlinternalFormat.ml:2796:17>>*/ str_ind + 1 | 0,
             reverse =  /*<<camlinternalFormat.ml:2798:4>>*/ 1,
@@ -20346,15 +19808,13 @@
                 (char_set$0)
               : char_set$0,
            fmt_rest$19 =
-              /*<<camlinternalFormat.ml:2542:51>>*/  /*<<camlinternalFormat.ml:2542:29>>*/ parse
-               (next_ind, end_ind)
+              /*<<camlinternalFormat.ml:2542:29>>*/ parse(next_ind, end_ind)
               [1];
-           /*<<camlinternalFormat.ml:2543:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2543:9>>*/ get_ign(0))
+           /*<<camlinternalFormat.ml:2543:9>>*/ if(get_ign(0))
            var
             ignored$9 =
-               /*<<camlinternalFormat.ml:2544:60>>*/ [10,
-                /*<<camlinternalFormat.ml:2544:45>>*/ get_pad_opt(95),
+               /*<<camlinternalFormat.ml:2544:45>>*/ [10,
+               get_pad_opt(95),
                char_set$1],
             _aX_ =
                /*<<camlinternalFormat.ml:2545:8>>*/ [0,
@@ -20372,9 +19832,7 @@
          case 97:
           var
            fmt_rest$20 =
-              /*<<camlinternalFormat.ml:2505:50>>*/  /*<<camlinternalFormat.ml:2505:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2505:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result =
               /*<<camlinternalFormat.ml:2506:6>>*/ [0, [15, fmt_rest$20]];
           break a;
@@ -20382,22 +19840,18 @@
           var
            char_format =
               /*<<camlinternalFormat.ml:2376:6>>*/ function(fmt_rest){
-               /*<<camlinternalFormat.ml:2377:21>>*/ return  /*<<camlinternalFormat.ml:2377:11>>*/ get_ign
-                       (0)
+               /*<<camlinternalFormat.ml:2377:11>>*/ return get_ign(0)
                       ? [0, [23, 0, fmt_rest]]
                       : [0, [0, fmt_rest]] /*<<camlinternalFormat.ml:2379:36>>*/ ;
              },
            fmt_rest$21 =
-              /*<<camlinternalFormat.ml:2386:50>>*/  /*<<camlinternalFormat.ml:2386:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2386:29>>*/ parse(str_ind, end_ind)[1],
            match$7 =  /*<<camlinternalFormat.ml:2387:18>>*/ get_pad_opt(99);
            /*<<camlinternalFormat.ml:2387:33>>*/ if(match$7){
            if(0 === match$7[1])
             var
              _aY_ =
-                /*<<camlinternalFormat.ml:2382:21>>*/  /*<<camlinternalFormat.ml:2382:11>>*/ get_ign
-                 (0)
+                /*<<camlinternalFormat.ml:2382:11>>*/ get_ign(0)
                 ? [0, [23, 3, fmt_rest$21]]
                 : [0, [22, fmt_rest$21]],
              _aZ_ =  /*<<camlinternalFormat.ml:2389:40>>*/ _aY_;
@@ -20421,12 +19875,9 @@
          case 114:
           var
            fmt_rest$22 =
-              /*<<camlinternalFormat.ml:2511:50>>*/  /*<<camlinternalFormat.ml:2511:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2511:29>>*/ parse(str_ind, end_ind)[1],
            _a1_ =
-              /*<<camlinternalFormat.ml:2512:19>>*/  /*<<camlinternalFormat.ml:2512:9>>*/ get_ign
-               (0)
+              /*<<camlinternalFormat.ml:2512:9>>*/ get_ign(0)
               ? [0, [23, 2, fmt_rest$22]]
               : [0, [19, fmt_rest$22]],
            fmt_result =  /*<<camlinternalFormat.ml:2512:19>>*/ _a1_;
@@ -20434,18 +19885,14 @@
          case 115:
           var
            pad$9 =
-              /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
+              /*<<camlinternalFormat.ml:2400:32>>*/  /*<<camlinternalFormat.ml:2400:16>>*/ check_no_0
               (symb,  /*<<camlinternalFormat.ml:2400:32>>*/ get_padprec(0)),
            fmt_rest$23 =
-              /*<<camlinternalFormat.ml:2401:50>>*/  /*<<camlinternalFormat.ml:2401:29>>*/ parse
-               (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2402:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2402:9>>*/ get_ign(0))
+              /*<<camlinternalFormat.ml:2401:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2402:9>>*/ if(get_ign(0))
            var
             ignored$10 =
-               /*<<camlinternalFormat.ml:2403:58>>*/ [0,
-                /*<<camlinternalFormat.ml:2403:37>>*/ get_padprec_opt(95)],
+               /*<<camlinternalFormat.ml:2403:37>>*/ [0, get_padprec_opt(95)],
             _a2_ =
                /*<<camlinternalFormat.ml:2404:8>>*/ [0,
                [23, ignored$10, fmt_rest$23]];
@@ -20464,9 +19911,7 @@
          case 116:
           var
            fmt_rest$25 =
-              /*<<camlinternalFormat.ml:2508:50>>*/  /*<<camlinternalFormat.ml:2508:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2508:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result =
               /*<<camlinternalFormat.ml:2509:6>>*/ [0, [16, fmt_rest$25]];
           break a;
@@ -20476,21 +19921,19 @@
               /*<<camlinternalFormat.ml:2521:20>>*/ search_subformat_end
               (str_ind, end_ind, 125),
            sub_fmt$0 =
-              /*<<camlinternalFormat.ml:2522:49>>*/  /*<<camlinternalFormat.ml:2522:28>>*/ parse
-               (str_ind, sub_end$0)
+              /*<<camlinternalFormat.ml:2522:28>>*/ parse(str_ind, sub_end$0)
               [1],
            fmt_rest$26 =
-              /*<<camlinternalFormat.ml:2523:56>>*/  /*<<camlinternalFormat.ml:2523:29>>*/ parse
+              /*<<camlinternalFormat.ml:2523:29>>*/ parse
                (sub_end$0 + 2 | 0, end_ind)
               [1],
            sub_fmtty$0 =
               /*<<camlinternalFormat.ml:2524:22>>*/ fmtty_of_fmt(sub_fmt$0);
-           /*<<camlinternalFormat.ml:2525:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2525:9>>*/ get_ign(0))
+           /*<<camlinternalFormat.ml:2525:9>>*/ if(get_ign(0))
            var
             ignored$11 =
-               /*<<camlinternalFormat.ml:2526:57>>*/ [8,
-                /*<<camlinternalFormat.ml:2526:42>>*/ get_pad_opt(95),
+               /*<<camlinternalFormat.ml:2526:42>>*/ [8,
+               get_pad_opt(95),
                sub_fmtty$0],
             _a3_ =
                /*<<camlinternalFormat.ml:2527:8>>*/ [0,
@@ -20509,18 +19952,14 @@
          case 98:
           var
            pad$3 =
-              /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
+              /*<<camlinternalFormat.ml:2495:32>>*/  /*<<camlinternalFormat.ml:2495:16>>*/ check_no_0
               (symb,  /*<<camlinternalFormat.ml:2495:32>>*/ get_padprec(0)),
            fmt_rest$8 =
-              /*<<camlinternalFormat.ml:2496:50>>*/  /*<<camlinternalFormat.ml:2496:29>>*/ parse
-               (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2497:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2497:9>>*/ get_ign(0))
+              /*<<camlinternalFormat.ml:2496:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2497:9>>*/ if(get_ign(0))
            var
             ignored$3 =
-               /*<<camlinternalFormat.ml:2498:56>>*/ [7,
-                /*<<camlinternalFormat.ml:2498:35>>*/ get_padprec_opt(95)],
+               /*<<camlinternalFormat.ml:2498:35>>*/ [7, get_padprec_opt(95)],
             _aK_ =
                /*<<camlinternalFormat.ml:2499:8>>*/ [0,
                [23, ignored$3, fmt_rest$8]];
@@ -20540,9 +19979,7 @@
          case 64:
           var
            fmt_rest$6 =
-              /*<<camlinternalFormat.ml:2518:50>>*/  /*<<camlinternalFormat.ml:2518:29>>*/ parse
-               (str_ind, end_ind)
-              [1],
+              /*<<camlinternalFormat.ml:2518:29>>*/ parse(str_ind, end_ind)[1],
            fmt_result =
               /*<<camlinternalFormat.ml:2519:6>>*/ [0, [12, symb, fmt_rest$6]];
           break a;
@@ -20573,9 +20010,7 @@
           }
           var
            fmt_rest$13 =
-              /*<<camlinternalFormat.ml:2439:50>>*/  /*<<camlinternalFormat.ml:2439:29>>*/ parse
-               (str_ind, end_ind)
-              [1];
+              /*<<camlinternalFormat.ml:2439:29>>*/ parse(str_ind, end_ind)[1];
           b:
           {
             /*<<camlinternalFormat.ml:2897:29>>*/ if(108 <= symb){
@@ -20597,8 +20032,7 @@
             /*<<camlinternalFormat.ml:2899:34>>*/ throw caml_maybe_attach_backtrace
                   ([0, Assert_failure, _V_], 1);
           }
-           /*<<camlinternalFormat.ml:2441:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2441:9>>*/ get_ign(0))
+           /*<<camlinternalFormat.ml:2441:9>>*/ if(get_ign(0))
            var
             ignored$5 =  /*<<camlinternalFormat.ml:2442:8>>*/ [11, counter],
             _aP_ =
@@ -20631,7 +20065,7 @@
            _aT_ =  /*<<camlinternalFormat.ml:2421:8>>*/ get_space(0),
            _aU_ =  /*<<camlinternalFormat.ml:2420:65>>*/ get_hash(0),
            iconv$2 =
-              /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
+              /*<<camlinternalFormat.ml:2420:51>>*/  /*<<camlinternalFormat.ml:2420:18>>*/ compute_int_conv
               (pct_ind,
                str_ind,
                 /*<<camlinternalFormat.ml:2420:51>>*/ get_plus(0),
@@ -20639,16 +20073,13 @@
                _aT_,
                symb),
            fmt_rest$17 =
-              /*<<camlinternalFormat.ml:2422:50>>*/  /*<<camlinternalFormat.ml:2422:29>>*/ parse
-               (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2423:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2423:9>>*/ get_ign(0))
+              /*<<camlinternalFormat.ml:2422:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2423:9>>*/ if(get_ign(0))
            var
             ignored$8 =
-               /*<<camlinternalFormat.ml:2424:57>>*/ [2,
+               /*<<camlinternalFormat.ml:2424:42>>*/ [2,
                iconv$2,
-                /*<<camlinternalFormat.ml:2424:42>>*/ get_pad_opt(95)],
+               get_pad_opt(95)],
             _aV_ =
                /*<<camlinternalFormat.ml:2425:8>>*/ [0,
                [23, ignored$8, fmt_rest$17]];
@@ -20656,7 +20087,7 @@
            var
             _aW_ =  /*<<camlinternalFormat.ml:2428:48>>*/ get_prec(0),
             match$6 =
-               /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
+               /*<<camlinternalFormat.ml:2428:31>>*/  /*<<camlinternalFormat.ml:2428:10>>*/ make_padprec_fmt_ebb
                ( /*<<camlinternalFormat.ml:2428:31>>*/ get_int_pad(0),
                 _aW_,
                 fmt_rest$17),
@@ -20738,11 +20169,8 @@
           var
            fconv =  /*<<camlinternalFormat.ml:2958:4>>*/ [0, flag, kind],
            fmt_rest$11 =
-              /*<<camlinternalFormat.ml:2486:50>>*/  /*<<camlinternalFormat.ml:2486:29>>*/ parse
-               (str_ind, end_ind)
-              [1];
-           /*<<camlinternalFormat.ml:2487:19>>*/ if
-           ( /*<<camlinternalFormat.ml:2487:9>>*/ get_ign(0)){
+              /*<<camlinternalFormat.ml:2486:29>>*/ parse(str_ind, end_ind)[1];
+           /*<<camlinternalFormat.ml:2487:9>>*/ if(get_ign(0)){
            var match =  /*<<camlinternalFormat.ml:2366:32>>*/ get_prec(0);
             /*<<camlinternalFormat.ml:2366:43>>*/ if
             (typeof match === "number")
@@ -20758,8 +20186,8 @@
              _aM_ =  /*<<camlinternalFormat.ml:2368:30>>*/ [0, ndec];
            var
             ignored$4 =
-               /*<<camlinternalFormat.ml:2488:52>>*/ [6,
-                /*<<camlinternalFormat.ml:2488:37>>*/ get_pad_opt(95),
+               /*<<camlinternalFormat.ml:2488:37>>*/ [6,
+               get_pad_opt(95),
                _aM_],
             _aN_ =
                /*<<camlinternalFormat.ml:2489:8>>*/ [0,
@@ -20769,7 +20197,7 @@
            var
             _aO_ =  /*<<camlinternalFormat.ml:2492:44>>*/ get_prec(0),
             match$4 =
-               /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
+               /*<<camlinternalFormat.ml:2492:31>>*/  /*<<camlinternalFormat.ml:2492:10>>*/ make_padprec_fmt_ebb
                ( /*<<camlinternalFormat.ml:2492:31>>*/ get_pad(0),
                 _aO_,
                 fmt_rest$11),
@@ -20794,7 +20222,7 @@
             _au_ =  /*<<camlinternalFormat.ml:2449:10>>*/ get_space(0),
             _av_ =  /*<<camlinternalFormat.ml:2448:61>>*/ get_hash(0),
             iconv =
-               /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
+               /*<<camlinternalFormat.ml:2448:47>>*/  /*<<camlinternalFormat.ml:2448:8>>*/ compute_int_conv
                (pct_ind,
                 str_ind + 1 | 0,
                  /*<<camlinternalFormat.ml:2448:47>>*/ get_plus(0),
@@ -20802,16 +20230,15 @@
                 _au_,
                 _at_),
             fmt_rest =
-               /*<<camlinternalFormat.ml:2450:56>>*/  /*<<camlinternalFormat.ml:2450:29>>*/ parse
+               /*<<camlinternalFormat.ml:2450:29>>*/ parse
                 (str_ind + 1 | 0, end_ind)
                [1];
-            /*<<camlinternalFormat.ml:2451:19>>*/ if
-            ( /*<<camlinternalFormat.ml:2451:9>>*/ get_ign(0))
+            /*<<camlinternalFormat.ml:2451:9>>*/ if(get_ign(0))
             var
              ignored =
-                /*<<camlinternalFormat.ml:2452:59>>*/ [3,
+                /*<<camlinternalFormat.ml:2452:44>>*/ [3,
                 iconv,
-                 /*<<camlinternalFormat.ml:2452:44>>*/ get_pad_opt(95)],
+                get_pad_opt(95)],
              _aw_ =
                 /*<<camlinternalFormat.ml:2453:8>>*/ [0,
                 [23, ignored, fmt_rest]];
@@ -20819,7 +20246,7 @@
             var
              _ay_ =  /*<<camlinternalFormat.ml:2456:48>>*/ get_prec(0),
              match$0 =
-                /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
+                /*<<camlinternalFormat.ml:2456:31>>*/  /*<<camlinternalFormat.ml:2456:10>>*/ make_padprec_fmt_ebb
                 ( /*<<camlinternalFormat.ml:2456:31>>*/ get_int_pad(0),
                  _ay_,
                  fmt_rest),
@@ -20841,7 +20268,7 @@
             _aA_ =  /*<<camlinternalFormat.ml:2461:24>>*/ get_space(0),
             _aB_ =  /*<<camlinternalFormat.ml:2461:10>>*/ get_hash(0),
             iconv$0 =
-               /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
+               /*<<camlinternalFormat.ml:2460:47>>*/  /*<<camlinternalFormat.ml:2460:8>>*/ compute_int_conv
                (pct_ind,
                 str_ind + 1 | 0,
                  /*<<camlinternalFormat.ml:2460:47>>*/ get_plus(0),
@@ -20849,16 +20276,15 @@
                 _aA_,
                 _az_),
             fmt_rest$1 =
-               /*<<camlinternalFormat.ml:2462:56>>*/  /*<<camlinternalFormat.ml:2462:29>>*/ parse
+               /*<<camlinternalFormat.ml:2462:29>>*/ parse
                 (str_ind + 1 | 0, end_ind)
                [1];
-            /*<<camlinternalFormat.ml:2463:19>>*/ if
-            ( /*<<camlinternalFormat.ml:2463:9>>*/ get_ign(0))
+            /*<<camlinternalFormat.ml:2463:9>>*/ if(get_ign(0))
             var
              ignored$0 =
-                /*<<camlinternalFormat.ml:2464:63>>*/ [4,
+                /*<<camlinternalFormat.ml:2464:48>>*/ [4,
                 iconv$0,
-                 /*<<camlinternalFormat.ml:2464:48>>*/ get_pad_opt(95)],
+                get_pad_opt(95)],
              _aC_ =
                 /*<<camlinternalFormat.ml:2465:8>>*/ [0,
                 [23, ignored$0, fmt_rest$1]];
@@ -20866,7 +20292,7 @@
             var
              _aD_ =  /*<<camlinternalFormat.ml:2468:48>>*/ get_prec(0),
              match$1 =
-                /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
+                /*<<camlinternalFormat.ml:2468:31>>*/  /*<<camlinternalFormat.ml:2468:10>>*/ make_padprec_fmt_ebb
                 ( /*<<camlinternalFormat.ml:2468:31>>*/ get_int_pad(0),
                  _aD_,
                  fmt_rest$1),
@@ -20889,7 +20315,7 @@
         _aF_ =  /*<<camlinternalFormat.ml:2473:10>>*/ get_space(0),
         _aG_ =  /*<<camlinternalFormat.ml:2472:61>>*/ get_hash(0),
         iconv$1 =
-           /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
+           /*<<camlinternalFormat.ml:2472:47>>*/  /*<<camlinternalFormat.ml:2472:8>>*/ compute_int_conv
            (pct_ind,
             str_ind + 1 | 0,
              /*<<camlinternalFormat.ml:2472:47>>*/ get_plus(0),
@@ -20897,16 +20323,15 @@
             _aF_,
             _aE_),
         fmt_rest$3 =
-           /*<<camlinternalFormat.ml:2474:56>>*/  /*<<camlinternalFormat.ml:2474:29>>*/ parse
+           /*<<camlinternalFormat.ml:2474:29>>*/ parse
             (str_ind + 1 | 0, end_ind)
            [1];
-        /*<<camlinternalFormat.ml:2475:19>>*/ if
-        ( /*<<camlinternalFormat.ml:2475:9>>*/ get_ign(0))
+        /*<<camlinternalFormat.ml:2475:9>>*/ if(get_ign(0))
         var
          ignored$1 =
-            /*<<camlinternalFormat.ml:2476:59>>*/ [5,
+            /*<<camlinternalFormat.ml:2476:44>>*/ [5,
             iconv$1,
-             /*<<camlinternalFormat.ml:2476:44>>*/ get_pad_opt(95)],
+            get_pad_opt(95)],
          _aH_ =
             /*<<camlinternalFormat.ml:2477:8>>*/ [0,
             [23, ignored$1, fmt_rest$3]];
@@ -20914,7 +20339,7 @@
         var
          _aI_ =  /*<<camlinternalFormat.ml:2480:48>>*/ get_prec(0),
          match$2 =
-            /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
+            /*<<camlinternalFormat.ml:2480:31>>*/  /*<<camlinternalFormat.ml:2480:10>>*/ make_padprec_fmt_ebb
             ( /*<<camlinternalFormat.ml:2480:31>>*/ get_int_pad(0),
              _aI_,
              fmt_rest$3),
@@ -21000,10 +20425,8 @@
       if(str_ind === end_ind)
         /*<<camlinternalFormat.ml:2640:32>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
-       /*<<camlinternalFormat.ml:2641:25>>*/ if
-       (60
-        !==
-          /*<<camlinternalFormat.ml:2641:12>>*/ caml_string_get(str, str_ind))
+       /*<<camlinternalFormat.ml:2641:12>>*/ if
+       (60 !== caml_string_get(str, str_ind))
         /*<<camlinternalFormat.ml:2653:8>>*/ throw caml_maybe_attach_backtrace
               (Stdlib[8], 1);
       var
@@ -21018,13 +20441,9 @@
           /*<<camlinternalFormat.ml:2645:22>>*/ caml_call3
           (Stdlib_String[16], str, str_ind, (ind - str_ind | 0) + 1 | 0),
        fmt_rest$0 =
-          /*<<camlinternalFormat.ml:2646:54>>*/  /*<<camlinternalFormat.ml:2646:31>>*/ parse
-           (ind + 1 | 0, end_ind)
-          [1],
+          /*<<camlinternalFormat.ml:2646:31>>*/ parse(ind + 1 | 0, end_ind)[1],
        sub_fmt =
-          /*<<camlinternalFormat.ml:2647:53>>*/  /*<<camlinternalFormat.ml:2647:30>>*/ parse
-           (str_ind, ind + 1 | 0)
-          [1],
+          /*<<camlinternalFormat.ml:2647:30>>*/ parse(str_ind, ind + 1 | 0)[1],
        sub_format$0 =
           /*<<camlinternalFormat.ml:2648:8>>*/ [0, sub_fmt, sub_str],
        formatting$0 =
@@ -21041,9 +20460,7 @@
       if(_ah_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_ah_, 0);
       var
        fmt_rest =
-          /*<<camlinternalFormat.ml:2655:50>>*/  /*<<camlinternalFormat.ml:2655:29>>*/ parse
-           (str_ind, end_ind)
-          [1],
+          /*<<camlinternalFormat.ml:2655:29>>*/ parse(str_ind, end_ind)[1],
        formatting =
           /*<<camlinternalFormat.ml:2657:6>>*/ is_open_tag
           ? [0, sub_format]
@@ -21058,10 +20475,8 @@
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
         (end_ind, cst_unexpected_end_of_format);
-       /*<<camlinternalFormat.ml:2805:20>>*/ if
-       (32
-        !==
-          /*<<camlinternalFormat.ml:2805:7>>*/ caml_string_get(str, str_ind$0))
+       /*<<camlinternalFormat.ml:2805:7>>*/ if
+       (32 !== caml_string_get(str, str_ind$0))
         /*<<camlinternalFormat.ml:2805:72>>*/ return str_ind$0;
       var
        str_ind$1 =  /*<<camlinternalFormat.ml:2805:32>>*/ str_ind$0 + 1 | 0;
@@ -21153,19 +20568,14 @@
       if(str_ind$0 === end_ind)
         /*<<camlinternalFormat.ml:2852:6>>*/ caml_call3
         (failwith_message(_U_), str, c, end_ind);
-       /*<<camlinternalFormat.ml:2855:23>>*/ if
-       (37
-        ===
-          /*<<camlinternalFormat.ml:2855:10>>*/ caml_string_get
-          (str, str_ind$0)){
+       /*<<camlinternalFormat.ml:2855:10>>*/ if
+       (37 === caml_string_get(str, str_ind$0)){
         /*<<camlinternalFormat.ml:2857:6>>*/ if
         ((str_ind$0 + 1 | 0) === end_ind)
          /*<<camlinternalFormat.ml:2092:4>>*/ invalid_format_message
          (end_ind, cst_unexpected_end_of_format);
-        /*<<camlinternalFormat.ml:2858:26>>*/ if
-        ( /*<<camlinternalFormat.ml:2858:9>>*/ caml_string_get
-          (str, str_ind$0 + 1 | 0)
-         === c)
+        /*<<camlinternalFormat.ml:2858:9>>*/ if
+        (caml_string_get(str, str_ind$0 + 1 | 0) === c)
          /*<<camlinternalFormat.ml:2858:62>>*/ return str_ind$0;
        var
         match =
@@ -21374,15 +20784,12 @@
    }
    function format_of_string_fmtty(str, fmtty){
     var
-     fmt =
-        /*<<camlinternalFormat.ml:2977:41>>*/  /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string
-         (0, str)
-        [1];
+     fmt =  /*<<camlinternalFormat.ml:2977:20>>*/ fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2978:2>>*/ try{
      var
       _ae_ =
-         /*<<camlinternalFormat.ml:2978:35>>*/ [0,
-          /*<<camlinternalFormat.ml:2978:14>>*/ type_format(fmt, fmtty),
+         /*<<camlinternalFormat.ml:2978:14>>*/ [0,
+         type_format(fmt, fmtty),
          str];
      return _ae_;
     }
@@ -21399,13 +20806,11 @@
      str$0 =  /*<<camlinternalFormat.ml:2986:28>>*/ param[2],
      fmt = param[1],
      fmt$0 =
-        /*<<camlinternalFormat.ml:2987:41>>*/  /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string
-         (0, str)
-        [1];
+        /*<<camlinternalFormat.ml:2987:20>>*/ fmt_ebb_of_string(0, str)[1];
      /*<<camlinternalFormat.ml:2988:2>>*/ try{
      var
       _aa_ =
-         /*<<camlinternalFormat.ml:2988:49>>*/ [0,
+         /*<<camlinternalFormat.ml:2988:30>>*/ [0,
           /*<<camlinternalFormat.ml:2988:14>>*/ type_format
           (fmt$0,  /*<<camlinternalFormat.ml:2988:30>>*/ fmtty_of_fmt(fmt)),
          str];
@@ -21532,7 +20937,7 @@
     function k$0(acc){
      var buf =  /*<<printf.ml:36:14>>*/ caml_call1(Stdlib_Buffer[1], 64);
       /*<<printf.ml:37:4>>*/ caml_call2(CamlinternalFormat[11], buf, acc);
-      /*<<printf.ml:38:27>>*/ return caml_call1
+      /*<<printf.ml:38:6>>*/ return  /*<<printf.ml:38:27>>*/ caml_call1
              (k,  /*<<printf.ml:38:6>>*/ caml_call1(Stdlib_Buffer[2], buf)) /*<<printf.ml:38:27>>*/ ;
     }
      /*<<printf.ml:39:2>>*/ return caml_call3
@@ -21791,9 +21196,9 @@
    function make(n, x){
      /*<<dynarray.ml:219:2>>*/ if(n < 0)
       /*<<dynarray.ml:219:16>>*/ negative_length_requested(cst_make, n);
-     /*<<dynarray.ml:222:46>>*/ return [0,
+     /*<<dynarray.ml:222:10>>*/ return [0,
             n,
-             /*<<dynarray.ml:222:10>>*/ caml_call2
+            caml_call2
              (Stdlib_Array[1],
               n,
               function(param){
@@ -21803,14 +21208,13 @@
    function init(n, f){
      /*<<dynarray.ml:226:2>>*/ if(n < 0)
       /*<<dynarray.ml:226:16>>*/ negative_length_requested(cst_init, n);
-     /*<<dynarray.ml:229:48>>*/ return [0,
+     /*<<dynarray.ml:229:10>>*/ return [0,
             n,
-             /*<<dynarray.ml:229:10>>*/ caml_call2
+            caml_call2
              (Stdlib_Array[1],
               n,
               function(i){
-                /*<<dynarray.ml:229:46>>*/ return [0,
-                        /*<<dynarray.ml:229:43>>*/ caml_call1(f, i)] /*<<dynarray.ml:229:46>>*/ ;
+                /*<<dynarray.ml:229:43>>*/ return [0, caml_call1(f, i)] /*<<dynarray.ml:229:46>>*/ ;
                /*<<dynarray.ml:229:47>>*/ })] /*<<dynarray.ml:229:48>>*/ ;
     /*<<dynarray.ml:230:3>>*/ }
    function get(a, i){
@@ -21836,9 +21240,9 @@
    function copy(param){
     var length =  /*<<dynarray.ml:255:9>>*/ param[1], arr = param[2];
      /*<<dynarray.ml:256:2>>*/ check_valid_length(length, arr);
-     /*<<dynarray.ml:264:5>>*/ return [0,
+     /*<<dynarray.ml:261:10>>*/ return [0,
             length,
-             /*<<dynarray.ml:261:10>>*/ caml_call2
+            caml_call2
              (Stdlib_Array[1],
               length,
               function(i){
@@ -21941,8 +21345,8 @@
         /*<<dynarray.ml:330:2>>*/ 512 < cur_capacity
         ? cur_capacity + (cur_capacity / 2 | 0) | 0
         : cur_capacity * 2 | 0,
-     _O_ = Stdlib_Sys[13],
-     _P_ =  /*<<dynarray.ml:345:6>>*/ caml_call2(Stdlib[17], 8, n),
+     _O_ =  /*<<dynarray.ml:345:6>>*/ Stdlib_Sys[13],
+     _P_ = caml_call2(Stdlib[17], 8, n),
      _Q_ =  /*<<dynarray.ml:345:16>>*/ caml_call2(Stdlib[16], _P_, _O_),
      new_capacity =
         /*<<dynarray.ml:375:6>>*/ caml_call2
@@ -21962,9 +21366,8 @@
             (a, a[1] + extra_capacity_request | 0) /*<<dynarray.ml:385:55>>*/ ;
    }
    function fit_capacity(a){
-    var _N_ =  /*<<dynarray.ml:388:2>>*/ a[1];
-     /*<<dynarray.ml:388:15>>*/ return  /*<<dynarray.ml:388:5>>*/ capacity(a)
-            === _N_
+    var _N_ =  /*<<dynarray.ml:388:5>>*/ a[1];
+    return capacity(a) === _N_
             ? 0
             : (a
                [2]
@@ -21981,10 +21384,8 @@
      arr =  /*<<dynarray.ml:393:2>>*/ a[2],
      cur_capacity =  /*<<dynarray.ml:396:2>>*/ arr.length - 1;
      /*<<dynarray.ml:397:2>>*/ if(n < cur_capacity){
-      /*<<dynarray.ml:398:30>>*/ a[1] =
-       /*<<dynarray.ml:398:16>>*/ caml_call2(Stdlib[16], a[1], n);
-      /*<<dynarray.ml:399:30>>*/ a[2] =
-       /*<<dynarray.ml:399:13>>*/ caml_call3(Stdlib_Array[6], arr, 0, n);
+      /*<<dynarray.ml:398:16>>*/ a[1] = caml_call2(Stdlib[16], a[1], n);
+      /*<<dynarray.ml:399:13>>*/ a[2] = caml_call3(Stdlib_Array[6], arr, 0, n);
       /*<<dynarray.ml:399:30>>*/ return 0;
     }
     var _L_ =  /*<<dynarray.ml:401:7>>*/ cur_capacity < n ? 1 : 0;
@@ -22012,15 +21413,11 @@
    }
    function add_last(a, x){
     var elem =  /*<<dynarray.ml:438:2>>*/ [0, x];
-     /*<<dynarray.ml:439:28>>*/ if
-     ( /*<<dynarray.ml:439:5>>*/ add_last_if_room(a, elem))
+     /*<<dynarray.ml:439:5>>*/ if(add_last_if_room(a, elem))
       /*<<dynarray.ml:439:34>>*/ return 0;
      /*<<dynarray.ml:446:7>>*/ for(;;){
       /*<<dynarray.ml:443:6>>*/ ensure_extra_capacity(a, 1);
-     var
-      _K_ =
-         /*<<dynarray.ml:444:38>>*/ 1
-        -  /*<<dynarray.ml:444:13>>*/ add_last_if_room(a, elem);
+     var _K_ =  /*<<dynarray.ml:444:13>>*/ 1 - add_last_if_room(a, elem);
       /*<<dynarray.ml:444:38>>*/ if(! _K_) return _K_;
     }
     /*<<dynarray.ml:447:5>>*/ }
@@ -22071,15 +21468,11 @@
      /*<<dynarray.ml:499:4>>*/ return 1;
     /*<<dynarray.ml:500:5>>*/ }
    function append_array(a, b){
-     /*<<dynarray.ml:503:29>>*/ if
-     ( /*<<dynarray.ml:503:5>>*/ append_array_if_room(a, b))
+     /*<<dynarray.ml:503:5>>*/ if(append_array_if_room(a, b))
       /*<<dynarray.ml:503:35>>*/ return 0;
      /*<<dynarray.ml:510:7>>*/ for(;;){
       /*<<dynarray.ml:507:6>>*/ ensure_extra_capacity(a, b.length - 1);
-     var
-      _G_ =
-         /*<<dynarray.ml:508:39>>*/ 1
-        -  /*<<dynarray.ml:508:13>>*/ append_array_if_room(a, b);
+     var _G_ =  /*<<dynarray.ml:508:13>>*/ 1 - append_array_if_room(a, b);
       /*<<dynarray.ml:508:39>>*/ if(! _G_) return _G_;
     }
     /*<<dynarray.ml:510:31>>*/ }
@@ -22107,16 +21500,12 @@
     /*<<dynarray.ml:533:5>>*/ }
    function append(a, b){
     var length_b =  /*<<dynarray.ml:251:15>>*/ b[1];
-     /*<<dynarray.ml:537:33>>*/ if
-     ( /*<<dynarray.ml:537:5>>*/ append_if_room(a, b, length_b))
+     /*<<dynarray.ml:537:5>>*/ if(append_if_room(a, b, length_b))
       /*<<dynarray.ml:537:39>>*/ return 0;
      /*<<dynarray.ml:551:7>>*/ for(;;){
       /*<<dynarray.ml:541:6>>*/ ensure_extra_capacity(a, length_b);
       /*<<dynarray.ml:548:6>>*/ check_same_length(cst_append$0, b, length_b);
-     var
-      _C_ =
-         /*<<dynarray.ml:549:43>>*/ 1
-        -  /*<<dynarray.ml:549:13>>*/ append_if_room(a, b, length_b);
+     var _C_ =  /*<<dynarray.ml:549:13>>*/ 1 - append_if_room(a, b, length_b);
       /*<<dynarray.ml:549:43>>*/ if(! _C_) return _C_;
     }
     /*<<dynarray.ml:552:5>>*/ }
@@ -22127,7 +21516,7 @@
     if(_A_ >= 0){
      var i = _z_;
      for(;;){
-       /*<<dynarray.ml:598:4>>*/ caml_call1
+       /*<<dynarray.ml:598:6>>*/  /*<<dynarray.ml:598:4>>*/ caml_call1
        (k,  /*<<dynarray.ml:598:6>>*/ unsafe_get(arr, i, length));
       var _B_ =  /*<<dynarray.ml:598:33>>*/ i + 1 | 0;
       if(_A_ === i) break;
@@ -22146,7 +21535,7 @@
     if(_x_ >= 0){
      var i = _w_;
      for(;;){
-       /*<<dynarray.ml:609:4>>*/ caml_call2
+       /*<<dynarray.ml:609:8>>*/  /*<<dynarray.ml:609:4>>*/ caml_call2
        (k, i,  /*<<dynarray.ml:609:8>>*/ unsafe_get(arr, i, length));
       var _y_ =  /*<<dynarray.ml:609:35>>*/ i + 1 | 0;
       if(_x_ === i) break;
@@ -22160,13 +21549,13 @@
      /*<<dynarray.ml:615:2>>*/ check_valid_length(length, arr);
     var
      res =
-        /*<<dynarray.ml:619:47>>*/ [0,
+        /*<<dynarray.ml:618:10>>*/ [0,
         length,
-         /*<<dynarray.ml:618:10>>*/ caml_call2
+        caml_call2
          (Stdlib_Array[1],
           length,
           function(i){
-            /*<<dynarray.ml:619:45>>*/ return [0,
+            /*<<dynarray.ml:619:18>>*/ return [0,
                     /*<<dynarray.ml:619:16>>*/ caml_call1
                     (f,  /*<<dynarray.ml:619:18>>*/ unsafe_get(arr, i, length))] /*<<dynarray.ml:619:45>>*/ ;
            /*<<dynarray.ml:619:46>>*/ })];
@@ -22178,13 +21567,13 @@
      /*<<dynarray.ml:627:2>>*/ check_valid_length(length, arr);
     var
      res =
-        /*<<dynarray.ml:631:49>>*/ [0,
+        /*<<dynarray.ml:630:10>>*/ [0,
         length,
-         /*<<dynarray.ml:630:10>>*/ caml_call2
+        caml_call2
          (Stdlib_Array[1],
           length,
           function(i){
-            /*<<dynarray.ml:631:47>>*/ return [0,
+            /*<<dynarray.ml:631:20>>*/ return [0,
                     /*<<dynarray.ml:631:16>>*/ caml_call2
                     (f,
                      i,
@@ -22199,13 +21588,12 @@
     var
      r =  /*<<dynarray.ml:638:31>>*/ [0, acc],
      _u_ =  /*<<dynarray.ml:640:2>>*/ length - 1 | 0,
-     _t_ =  /*<<dynarray.ml:638:31>>*/ 0;
-     /*<<dynarray.ml:640:2>>*/ if(_u_ >= 0){
+     _t_ = 0;
+    if(_u_ >= 0){
      var i = _t_;
      for(;;){
       var v =  /*<<dynarray.ml:641:12>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:642:15>>*/ r[1] =
-        /*<<dynarray.ml:642:9>>*/ caml_call2(f, r[1], v);
+       /*<<dynarray.ml:642:9>>*/ r[1] = caml_call2(f, r[1], v);
       var _v_ =  /*<<dynarray.ml:642:15>>*/ i + 1 | 0;
       if(_u_ === i) break;
       i = _v_;
@@ -22224,8 +21612,7 @@
      var i = _r_;
      for(;;){
       var v =  /*<<dynarray.ml:652:12>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:653:15>>*/ r[1] =
-        /*<<dynarray.ml:653:9>>*/ caml_call2(f, v, r[1]);
+       /*<<dynarray.ml:653:9>>*/ r[1] = caml_call2(f, v, r[1]);
       var _s_ =  /*<<dynarray.ml:653:15>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _s_;
@@ -22244,7 +21631,7 @@
      else{
       var
        _q_ =
-          /*<<dynarray.ml:664:6>>*/ caml_call1
+          /*<<dynarray.ml:664:8>>*/  /*<<dynarray.ml:664:6>>*/ caml_call1
           (p,  /*<<dynarray.ml:664:8>>*/ unsafe_get(arr, i, length));
        /*<<dynarray.ml:664:35>>*/ if(! _q_){
        var i$0 = i + 1 | 0;
@@ -22267,7 +21654,7 @@
      else{
       var
        _p_ =
-          /*<<dynarray.ml:677:6>>*/ caml_call1
+          /*<<dynarray.ml:677:8>>*/  /*<<dynarray.ml:677:6>>*/ caml_call1
           (p,  /*<<dynarray.ml:677:8>>*/ unsafe_get(arr, i, length));
        /*<<dynarray.ml:677:35>>*/ if(_p_){
        var i$0 = i + 1 | 0;
@@ -22309,9 +21696,9 @@
     /*<<dynarray.ml:696:3>>*/ }
    function of_array(a){
     var length =  /*<<dynarray.ml:707:2>>*/ a.length - 1;
-     /*<<dynarray.ml:710:70>>*/ return [0,
+     /*<<dynarray.ml:710:10>>*/ return [0,
             length,
-             /*<<dynarray.ml:710:10>>*/ caml_call2
+            caml_call2
              (Stdlib_Array[1],
               length,
               function(i){
@@ -22351,9 +21738,8 @@
     if(_l_ >= 0){
      var i = _l_;
      for(;;){
-      var _m_ =  /*<<dynarray.ml:732:4>>*/ l[1];
-       /*<<dynarray.ml:732:34>>*/ l[1] =
-       [0,  /*<<dynarray.ml:732:9>>*/ unsafe_get(arr, i, length), _m_];
+      var _m_ =  /*<<dynarray.ml:732:9>>*/ l[1];
+      l[1] = [0, unsafe_get(arr, i, length), _m_];
       var _n_ =  /*<<dynarray.ml:732:34>>*/ i - 1 | 0;
       if(0 === i) break;
       i = _n_;
@@ -22376,9 +21762,7 @@
        /*<<dynarray.ml:746:40>>*/ if(length <= i)
         /*<<dynarray.ml:747:24>>*/ return 0;
       var v =  /*<<dynarray.ml:749:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:750:30>>*/ return [0,
-              v,
-               /*<<dynarray.ml:750:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:750:30>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
+       /*<<dynarray.ml:750:19>>*/ return [0, v, aux(i + 1 | 0)] /*<<dynarray.ml:750:30>>*/ ; /*<<dynarray.ml:751:7>>*/ } /*<<dynarray.ml:745:18>>*/ ;
      /*<<dynarray.ml:751:7>>*/ }
      /*<<dynarray.ml:753:2>>*/ return aux(0) /*<<dynarray.ml:753:7>>*/ ;
    }
@@ -22388,9 +21772,7 @@
        /*<<dynarray.ml:757:20>>*/ if(a[1] <= i)
         /*<<dynarray.ml:757:26>>*/ return 0;
       var v =  /*<<dynarray.ml:759:14>>*/ get(a, i);
-       /*<<dynarray.ml:760:30>>*/ return [0,
-              v,
-               /*<<dynarray.ml:760:19>>*/ aux(i + 1 | 0)] /*<<dynarray.ml:760:30>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
+       /*<<dynarray.ml:760:19>>*/ return [0, v, aux(i + 1 | 0)] /*<<dynarray.ml:760:30>>*/ ; /*<<dynarray.ml:761:7>>*/ } /*<<dynarray.ml:756:18>>*/ ;
      /*<<dynarray.ml:761:7>>*/ }
      /*<<dynarray.ml:763:2>>*/ return aux(0) /*<<dynarray.ml:763:7>>*/ ;
    }
@@ -22403,9 +21785,7 @@
        /*<<dynarray.ml:769:44>>*/ if(0 > i)
         /*<<dynarray.ml:770:18>>*/ return 0;
       var v =  /*<<dynarray.ml:772:14>>*/ unsafe_get(arr, i, length);
-       /*<<dynarray.ml:773:30>>*/ return [0,
-              v,
-               /*<<dynarray.ml:773:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:773:30>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
+       /*<<dynarray.ml:773:19>>*/ return [0, v, aux(i - 1 | 0)] /*<<dynarray.ml:773:30>>*/ ; /*<<dynarray.ml:774:7>>*/ } /*<<dynarray.ml:768:18>>*/ ;
      /*<<dynarray.ml:774:7>>*/ }
      /*<<dynarray.ml:776:2>>*/ return aux(length - 1 | 0) /*<<dynarray.ml:776:18>>*/ ;
    }
@@ -22417,9 +21797,7 @@
        /*<<dynarray.ml:781:25>>*/ if(a[1] <= i)
         /*<<dynarray.ml:784:19>>*/ return aux(a[1] - 1 | 0)(0) /*<<dynarray.ml:788:7>>*/ ;
       var v =  /*<<dynarray.ml:786:14>>*/ get(a, i);
-       /*<<dynarray.ml:787:30>>*/ return [0,
-              v,
-               /*<<dynarray.ml:787:19>>*/ aux(i - 1 | 0)] /*<<dynarray.ml:787:30>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
+       /*<<dynarray.ml:787:19>>*/ return [0, v, aux(i - 1 | 0)] /*<<dynarray.ml:787:30>>*/ ; /*<<dynarray.ml:788:7>>*/ } /*<<dynarray.ml:779:18>>*/ ;
      /*<<dynarray.ml:788:7>>*/ }
      /*<<dynarray.ml:790:15>>*/ return aux(a[1] - 1 | 0) /*<<dynarray.ml:790:20>>*/ ;
    }
@@ -22574,7 +21952,7 @@
      if(! l$0)
        /*<<arg.ml:65:10>>*/ throw caml_maybe_attach_backtrace(Stdlib[8], 1);
      var match =  /*<<arg.ml:64:2>>*/ l$0[1], y2 = match[2], y1 = match[1];
-      /*<<arg.ml:66:32>>*/ if( /*<<arg.ml:66:26>>*/ caml_equal(y1, x))
+      /*<<arg.ml:66:26>>*/ if(caml_equal(y1, x))
        /*<<arg.ml:66:36>>*/ return y2;
      var t =  /*<<arg.ml:66:32>>*/ l$0[2];
       /*<<arg.ml:67:14>>*/ l$0 = t;
@@ -22706,10 +22084,7 @@
     dummy = 0;
    function int_of_string_opt(x){
      /*<<arg.ml:128:2>>*/ try{
-     var
-      _am_ =
-         /*<<arg.ml:128:28>>*/ [0,
-          /*<<arg.ml:128:11>>*/ runtime.caml_int_of_string(x)];
+     var _am_ =  /*<<arg.ml:128:11>>*/ [0, runtime.caml_int_of_string(x)];
      return _am_;
     }
     catch(_an_){
@@ -22720,10 +22095,7 @@
     /*<<arg.ml:129:24>>*/ }
    function float_of_string_opt(x){
      /*<<arg.ml:132:2>>*/ try{
-     var
-      _aj_ =
-         /*<<arg.ml:132:30>>*/ [0,
-          /*<<arg.ml:132:11>>*/ runtime.caml_float_of_string(x)];
+     var _aj_ =  /*<<arg.ml:132:11>>*/ [0, runtime.caml_float_of_string(x)];
      return _aj_;
     }
     catch(_ak_){
@@ -22770,16 +22142,12 @@
          (Stdlib_Printf[5], b, _k_, progname, s$1);
      }
       /*<<arg.ml:159:4>>*/ usage_b(b, speclist[1], errmsg);
-      /*<<arg.ml:160:30>>*/ if
+      /*<<arg.ml:160:7>>*/ if
       (!
-        /*<<arg.ml:160:7>>*/ caml_equal(error, _g_)
+       caml_equal(error, _g_)
        && !  /*<<arg.ml:160:34>>*/ caml_equal(error, _h_))
-       /*<<arg.ml:162:32>>*/ return [0,
-              Bad,
-               /*<<arg.ml:162:13>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:162:32>>*/ ;
-      /*<<arg.ml:161:33>>*/ return [0,
-             Help,
-              /*<<arg.ml:161:14>>*/ caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:161:33>>*/ ;
+       /*<<arg.ml:162:13>>*/ return [0, Bad, caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:162:32>>*/ ;
+      /*<<arg.ml:161:14>>*/ return [0, Help, caml_call1(Stdlib_Buffer[2], b)] /*<<arg.ml:161:33>>*/ ;
      /*<<arg.ml:162:32>>*/ }
      /*<<arg.ml:164:2>>*/ current[1]++;
      /*<<arg.ml:165:2>>*/ for(;;){
@@ -22788,11 +22156,10 @@
       var
        _V_ = current[1],
        s =  /*<<arg.ml:167:14>>*/ caml_check_bound(argv[1], _V_)[1 + _V_];
-       /*<<arg.ml:168:41>>*/ if
-       ( /*<<arg.ml:168:9>>*/ caml_call2(Stdlib_String[11], cst$3, s)){
+       /*<<arg.ml:168:9>>*/ if(caml_call2(Stdlib_String[11], cst$3, s)){
         /*<<arg.ml:168:47>>*/ try{
         var
-         follow$1 = 0,
+         follow$1 =  /*<<arg.ml:170:32>>*/ 0,
          _Z_ =  /*<<arg.ml:170:14>>*/ assoc3(s, speclist[1]),
          follow$0 = follow$1,
          action = _Z_;
@@ -22822,7 +22189,7 @@
           /*<<?>>*/ throw caml_maybe_attach_backtrace(_X_, 0);
         }
        }
-       let s$0 = s, follow$2 = follow$0;
+       let s$0 =  /*<<arg.ml:193:8>>*/ s, follow$2 = follow$0;
        var
         no_arg =
            /*<<arg.ml:177:8>>*/ function(param){
@@ -22843,9 +22210,7 @@
              /*<<arg.ml:185:19>>*/ throw caml_maybe_attach_backtrace
                    ([0, Stop, [2, s$0]], 1);
            var _af_ =  /*<<arg.ml:184:58>>*/ current[1] + 1 | 0;
-            /*<<arg.ml:184:78>>*/ return  /*<<arg.ml:184:58>>*/ caml_check_bound
-                    (argv[1], _af_)
-                   [1 + _af_] /*<<arg.ml:184:78>>*/ ;
+           return caml_check_bound(argv[1], _af_)[1 + _af_] /*<<arg.ml:184:78>>*/ ;
            /*<<arg.ml:186:27>>*/ },
         consume_arg =
            /*<<arg.ml:188:8>>*/ function(param){
@@ -22864,9 +22229,7 @@
                arg =  /*<<arg.ml:196:22>>*/ get_arg$0(0);
                /*<<arg.ml:124:2>>*/ try{
                var
-                _$_ =
-                   /*<<arg.ml:124:29>>*/ [0,
-                    /*<<arg.ml:124:11>>*/ caml_call1(Stdlib[32], arg)],
+                _$_ =  /*<<arg.ml:124:11>>*/ [0, caml_call1(Stdlib[32], arg)],
                 match = _$_;
               }
               catch(_ae_){
@@ -22899,8 +22262,7 @@
                /*<<arg.ml:206:17>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 5:
               var r$1 =  /*<<arg.ml:193:31>>*/ param[1];
-               /*<<arg.ml:218:27>>*/ r$1[1] =
-                /*<<arg.ml:218:17>>*/ get_arg$0(0);
+               /*<<arg.ml:218:17>>*/ r$1[1] = get_arg$0(0);
                /*<<arg.ml:219:12>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
              case 6:
               var
@@ -22956,9 +22318,8 @@
                f$4 =  /*<<arg.ml:193:31>>*/ param[2],
                symb = param[1],
                arg$5 =  /*<<arg.ml:209:22>>*/ get_arg$0(0);
-               /*<<arg.ml:210:32>>*/ if
-               ( /*<<arg.ml:210:15>>*/ caml_call2
-                 (Stdlib_List[37], arg$5, symb)){
+               /*<<arg.ml:210:15>>*/ if
+               (caml_call2(Stdlib_List[37], arg$5, symb)){
                 /*<<arg.ml:211:14>>*/ caml_call1(f$4, arg$5);
                 /*<<arg.ml:211:19>>*/ return consume_arg$0(0) /*<<arg.ml:276:54>>*/ ;
               }
@@ -22966,14 +22327,10 @@
                _aa_ =
                   /*<<arg.ml:215:44>>*/ make_symlist
                   (cst$6, cst$5, cst$4, symb);
-               /*<<arg.ml:215:73>>*/ throw caml_maybe_attach_backtrace
+               /*<<arg.ml:214:42>>*/ throw caml_maybe_attach_backtrace
                      ([0,
                        Stop,
-                       [1,
-                        s$0,
-                        arg$5,
-                         /*<<arg.ml:214:42>>*/ caml_call2
-                         (Stdlib[28], cst_one_of, _aa_)]],
+                       [1, s$0, arg$5, caml_call2(Stdlib[28], cst_one_of, _aa_)]],
                       1);
              case 12:
               var f$5 =  /*<<arg.ml:193:31>>*/ param[1];
@@ -22981,7 +22338,7 @@
                /*<<arg.ml:252:21>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0)) return 0;
                var _ab_ =  /*<<arg.ml:254:14>>*/ current[1] + 1 | 0;
-               caml_call1
+                /*<<arg.ml:254:16>>*/  /*<<arg.ml:254:14>>*/ caml_call1
                 (f$5,
                   /*<<arg.ml:254:16>>*/ caml_check_bound(argv[1], _ab_)
                   [1 + _ab_]);
@@ -22994,17 +22351,13 @@
               var acc =  /*<<arg.ml:258:21>>*/ [0, 0];
                /*<<arg.ml:260:12>>*/ for(;;){
                if(current[1] >= (argv[1].length - 2 | 0))
-                 /*<<arg.ml:264:29>>*/ return caml_call1
+                 /*<<arg.ml:264:14>>*/ return  /*<<arg.ml:264:29>>*/ caml_call1
                         (f$6,
                           /*<<arg.ml:264:14>>*/ caml_call1(Stdlib_List[10], acc[1])) /*<<arg.ml:276:54>>*/ ;
                var
                 _ad_ =  /*<<arg.ml:261:14>>*/ current[1] + 1 | 0,
-                _ac_ = acc[1];
-                /*<<arg.ml:261:41>>*/ acc[1] =
-                [0,
-                  /*<<arg.ml:261:21>>*/ caml_check_bound(argv[1], _ad_)
-                  [1 + _ad_],
-                 _ac_];
+                _ac_ =  /*<<arg.ml:261:21>>*/ acc[1];
+               acc[1] = [0, caml_check_bound(argv[1], _ad_)[1 + _ad_], _ac_];
                 /*<<arg.ml:262:14>>*/ consume_arg$0(0);
               }
               break;
@@ -23027,8 +22380,8 @@
                    argv[1],
                    current[1] + 1 | 0,
                    (argv[1].length - 1 - current[1] | 0) - 1 | 0);
-               /*<<arg.ml:276:53>>*/ argv[1] =
-                /*<<arg.ml:276:19>>*/ caml_call1
+               /*<<arg.ml:276:19>>*/ argv[1] =
+               caml_call1
                 (Stdlib_Array[5], [0, before, [0, newarg, [0, after, 0]]]);
                /*<<arg.ml:276:53>>*/ return 0;
            }
@@ -23047,14 +22400,14 @@
       var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);
       if(exn[1] === Bad){
        var m = exn[2];
-        /*<<arg.ml:280:53>>*/ throw caml_maybe_attach_backtrace
-              ( /*<<arg.ml:280:26>>*/ convert_error([3, m]), 1);
+        /*<<arg.ml:280:26>>*/ throw caml_maybe_attach_backtrace
+              (convert_error([3, m]), 1);
       }
        /*<<?>>*/ if(exn[1] !== Stop)
        throw caml_maybe_attach_backtrace(exn, 0);
       var e = exn[2];
-       /*<<arg.ml:281:44>>*/ throw caml_maybe_attach_backtrace
-             ( /*<<arg.ml:281:27>>*/ convert_error(e), 1);
+       /*<<arg.ml:281:27>>*/ throw caml_maybe_attach_backtrace
+             (convert_error(e), 1);
      }
       /*<<arg.ml:283:4>>*/ current[1]++;
     }
@@ -23144,8 +22497,7 @@
      var n$0 =  /*<<arg.ml:327:4>>*/ n;
      for(;;){
       if(len <= n$0)  /*<<arg.ml:327:21>>*/ return len;
-       /*<<arg.ml:328:17>>*/ if
-       (32 !==  /*<<arg.ml:328:12>>*/ caml_string_get(s, n$0))
+       /*<<arg.ml:328:12>>*/ if(32 !== caml_string_get(s, n$0))
         /*<<arg.ml:329:9>>*/ return n$0;
       var n$1 =  /*<<arg.ml:328:29>>*/ n$0 + 1 | 0;
       n$0 = n$1;
@@ -23215,7 +22567,7 @@
                 msg$0 = ksd[3],
                 cutcol$0 =  /*<<arg.ml:357:19>>*/ second_word(msg$0),
                 _K_ =
-                   /*<<arg.ml:358:58>>*/  /*<<arg.ml:358:32>>*/ caml_call2
+                   /*<<arg.ml:358:32>>*/ caml_call2
                    (Stdlib_Int[11], 0, len$0 - cutcol$0 | 0)
                   + 3
                   | 0,
@@ -23224,10 +22576,10 @@
                 _L_ =  /*<<arg.ml:359:34>>*/ replace_leading_tab(msg$0),
                 _M_ =
                    /*<<arg.ml:359:25>>*/ caml_call2(Stdlib[28], spaces$0, _L_);
-                /*<<arg.ml:359:57>>*/ return [0,
+                /*<<arg.ml:359:18>>*/ return [0,
                        kwd,
                        spec,
-                        /*<<arg.ml:359:18>>*/ caml_call2(Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:57>>*/ ;
+                       caml_call2(Stdlib[28], cst$7, _M_)] /*<<arg.ml:359:57>>*/ ;
               }
               var
                msg =  /*<<arg.ml:351:2>>*/ ksd[3],
@@ -23236,10 +22588,10 @@
                kwd_len =  /*<<arg.ml:362:6>>*/ caml_ml_string_length(kwd),
                diff =  /*<<arg.ml:363:6>>*/ (len$0 - kwd_len | 0) - cutcol | 0;
                /*<<arg.ml:364:6>>*/ if(0 >= diff)
-                /*<<arg.ml:365:43>>*/ return [0,
+                /*<<arg.ml:365:20>>*/ return [0,
                        kwd,
                        spec$0,
-                        /*<<arg.ml:365:20>>*/ replace_leading_tab(msg)] /*<<arg.ml:365:43>>*/ ;
+                       replace_leading_tab(msg)] /*<<arg.ml:365:43>>*/ ;
               var
                spaces =
                   /*<<arg.ml:367:21>>*/ caml_call2(Stdlib_String[1], diff, 32),
@@ -23248,7 +22600,7 @@
                   /*<<arg.ml:368:21>>*/ caml_call3
                   (Stdlib_String[16], _I_, 0, cutcol),
                suffix =
-                  /*<<arg.ml:369:21>>*/ caml_call3
+                  /*<<arg.ml:369:8>>*/  /*<<arg.ml:369:21>>*/ caml_call3
                   (Stdlib_String[16],
                    msg,
                    cutcol,
@@ -23256,10 +22608,10 @@
                    | 0),
                _J_ =
                   /*<<arg.ml:370:29>>*/ caml_call2(Stdlib[28], spaces, suffix);
-               /*<<arg.ml:370:44>>*/ return [0,
+               /*<<arg.ml:370:20>>*/ return [0,
                       kwd,
                       spec$0,
-                       /*<<arg.ml:370:20>>*/ caml_call2(Stdlib[28], prefix, _J_)] /*<<arg.ml:370:44>>*/ ;
+                      caml_call2(Stdlib[28], prefix, _J_)] /*<<arg.ml:370:44>>*/ ;
              },
              completed) /*<<arg.ml:377:38>>*/ ;
    }
@@ -23304,22 +22656,19 @@
     catch(_G_){
      var _E_ =  /*<<?>>*/ caml_wrap_exception(_G_);
      if(_E_ !== Stdlib[12]) throw caml_maybe_attach_backtrace(_E_, 0);
-      /*<<arg.ml:403:22>>*/ if
-      (0 <  /*<<arg.ml:403:5>>*/ caml_call1(Stdlib_Buffer[7], buf))
+      /*<<arg.ml:403:5>>*/ if(0 < caml_call1(Stdlib_Buffer[7], buf))
        /*<<arg.ml:403:32>>*/ stash(0);
       /*<<arg.ml:404:2>>*/ caml_call1(Stdlib[93], ic);
      var _F_ =  /*<<arg.ml:405:16>>*/ caml_call1(Stdlib_List[10], words[1]);
       /*<<arg.ml:405:33>>*/ return caml_call1(Stdlib_Array[11], _F_);
     }
    }
-   var _r_ =  /*<<?>>*/ 10, _s_ = 1;
-   function read_arg(_D_){
-     /*<<arg.ml:407:15>>*/ return read_aux(_s_, _r_, _D_);
-   }
+   var _r_ =  /*<<arg.ml:407:15>>*/ 10, _s_ = 1;
+   function read_arg(_D_){return read_aux(_s_, _r_, _D_);}
    var
-    _t_ =  /*<<arg.ml:407:33>>*/ 0,
+    _t_ =  /*<<arg.ml:409:37>>*/ 0,
     _u_ = 0,
-    _v_ =  /*<<?>>*/ [0, [2, 0, [0, 0]], "%s%c"];
+    _v_ = [0, [2, 0, [0, 0]], "%s%c"];
    function read_arg0(_C_){
      /*<<arg.ml:409:16>>*/ return read_aux(_u_, _t_, _C_);
    }
@@ -23334,14 +22683,10 @@
       args);
      /*<<arg.ml:413:52>>*/ return caml_call1(Stdlib[76], oc) /*<<arg.ml:414:14>>*/ ;
    }
-   var _w_ =  /*<<arg.ml:409:37>>*/ 10;
-   function write_arg(_A_, _B_){
-     /*<<arg.ml:416:16>>*/ return write_aux(_w_, _A_, _B_);
-   }
-   var _x_ =  /*<<arg.ml:416:30>>*/ 0;
-   function write_arg0(_y_, _z_){
-     /*<<arg.ml:418:17>>*/ return write_aux(_x_, _y_, _z_);
-   }
+   var _w_ =  /*<<arg.ml:416:16>>*/ 10;
+   function write_arg(_A_, _B_){return write_aux(_w_, _A_, _B_);}
+   var _x_ =  /*<<arg.ml:418:17>>*/ 0;
+   function write_arg0(_y_, _z_){return write_aux(_x_, _y_, _z_);}
    var
     Stdlib_Arg =
        /*<<arg.ml:418:33>>*/ [0,
@@ -23442,7 +22787,7 @@
     Stdlib_Buffer = global_data.Stdlib__Buffer,
     Stdlib_Obj = global_data.Stdlib__Obj,
     printers =  /*<<printexc.ml:20:15>>*/ caml_call1(Stdlib_Atomic[1], 0),
-    _a_ =  /*<<?>>*/ [0, [3, 0, 0], "%S"],
+    _a_ =  /*<<printexc.ml:20:29>>*/ [0, [3, 0, 0], "%S"],
     _b_ = [0, [4, 0, 0, 0, 0], "%d"],
     _c_ = [0, [11, ", ", [2, 0, [2, 0, 0]]], ", %s%s"],
     _d_ = [0, [12, 40, [2, 0, [2, 0, [12, 41, 0]]]], "(%s%s)"],
@@ -23493,17 +22838,13 @@
     cst_Program_not_linked_with_g_ = cst_Program_not_linked_with_g_$0;
    function field(x, i){
     var f =  /*<<printexc.ml:25:10>>*/ x[1 + i];
-     /*<<printexc.ml:26:25>>*/ if
-     (!  /*<<printexc.ml:26:9>>*/ caml_call1(Stdlib_Obj[1], f))
+     /*<<printexc.ml:26:9>>*/ if(! caml_call1(Stdlib_Obj[1], f))
       /*<<printexc.ml:27:4>>*/ return caml_call2(Stdlib_Printf[4], _b_, f) /*<<printexc.ml:33:7>>*/ ;
-    var _ah_ =  /*<<printexc.ml:28:7>>*/ Stdlib_Obj[15];
-     /*<<printexc.ml:28:19>>*/ if
-     ( /*<<printexc.ml:28:10>>*/ caml_obj_tag(f) === _ah_)
+    var _ah_ =  /*<<printexc.ml:28:10>>*/ Stdlib_Obj[15];
+    if(caml_obj_tag(f) === _ah_)
       /*<<printexc.ml:29:4>>*/ return caml_call2(Stdlib_Printf[4], _a_, f) /*<<printexc.ml:33:7>>*/ ;
-    var _ai_ =  /*<<printexc.ml:30:7>>*/ Stdlib_Obj[16];
-     /*<<printexc.ml:30:19>>*/ return  /*<<printexc.ml:30:10>>*/ caml_obj_tag
-             (f)
-            === _ai_
+    var _ai_ =  /*<<printexc.ml:30:10>>*/ Stdlib_Obj[16];
+    return caml_obj_tag(f) === _ai_
             ?  /*<<printexc.ml:31:4>>*/ caml_call1(Stdlib[35], f)
             : cst /*<<printexc.ml:33:7>>*/ ;
    }
@@ -23540,8 +22881,7 @@
     }
     /*<<printexc.ml:53:28>>*/ }
    function string_of_extension_constructo(t){
-     /*<<printexc.ml:56:14>>*/ if
-     (0 ===  /*<<printexc.ml:56:5>>*/ caml_obj_tag(t)){
+     /*<<printexc.ml:56:5>>*/ if(0 === caml_obj_tag(t)){
      var
       constructor =  /*<<printexc.ml:60:17>>*/ t[1][1],
       match =  /*<<printexc.ml:40:2>>*/ t.length - 1;
@@ -23661,8 +23001,8 @@
      /*<<printexc.ml:106:31>>*/ return bt;
     /*<<printexc.ml:106:33>>*/ }
    function convert_raw_backtrace(bt){
-     /*<<printexc.ml:138:37>>*/ return [0,
-             /*<<printexc.ml:138:11>>*/ runtime.caml_convert_raw_backtrace(bt)] /*<<printexc.ml:138:37>>*/ ;
+     /*<<printexc.ml:138:11>>*/ return [0,
+            runtime.caml_convert_raw_backtrace(bt)] /*<<printexc.ml:138:37>>*/ ;
     /*<<printexc.ml:139:24>>*/ }
    function format_backtrace_slot(pos, slot){
     function info(is_raise){
@@ -23681,18 +23021,18 @@
       _R_ =  /*<<printexc.ml:161:6>>*/ slot[7],
       _S_ = slot[4],
       _T_ = slot[8] ? cst_inlined : cst$3,
-      _U_ = slot[2],
+      _U_ =  /*<<printexc.ml:162:14>>*/ slot[2],
       _V_ = slot[9],
-      _W_ =  /*<<printexc.ml:162:14>>*/ info(slot[1]);
-      /*<<printexc.ml:164:44>>*/ return [0,
-              /*<<printexc.ml:161:11>>*/ caml_call8
+      _W_ = info(slot[1]);
+      /*<<printexc.ml:161:11>>*/ return [0,
+             caml_call8
               (Stdlib_Printf[4], _i_, _W_, _V_, _U_, _T_, lines, _S_, _R_)] /*<<printexc.ml:164:44>>*/ ;
     }
      /*<<printexc.ml:150:6>>*/ if(slot[1])
       /*<<printexc.ml:151:50>>*/ return 0;
     var _X_ =  /*<<printexc.ml:153:44>>*/ info(0);
-     /*<<printexc.ml:153:57>>*/ return [0,
-             /*<<printexc.ml:153:13>>*/ caml_call2(Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:57>>*/ ;
+     /*<<printexc.ml:153:13>>*/ return [0,
+            caml_call2(Stdlib_Printf[4], _k_, _X_)] /*<<printexc.ml:153:57>>*/ ;
     /*<<printexc.ml:164:44>>*/ }
    function print_raw_backtrace(outchan, raw_backtrace){
     var
@@ -23704,13 +23044,13 @@
     var
      a =  /*<<printexc.ml:167:2>>*/ backtrace[1],
      _P_ =  /*<<printexc.ml:172:6>>*/ a.length - 2 | 0,
-     _O_ =  /*<<printexc.ml:167:2>>*/ 0;
-     /*<<printexc.ml:172:6>>*/ if(_P_ >= 0){
+     _O_ = 0;
+    if(_P_ >= 0){
      var i = _O_;
      for(;;){
       var
        match =
-          /*<<printexc.ml:173:14>>*/ format_backtrace_slot
+          /*<<printexc.ml:173:38>>*/  /*<<printexc.ml:173:14>>*/ format_backtrace_slot
           (i,  /*<<printexc.ml:173:38>>*/ caml_check_bound(a, i)[1 + i]);
        /*<<printexc.ml:173:43>>*/ if(match){
        var str = match[1];
@@ -23725,7 +23065,7 @@
      /*<<printexc.ml:172:6>>*/ return 0;
     /*<<printexc.ml:179:73>>*/ }
    function print_backtrace(outchan){
-     /*<<printexc.ml:183:52>>*/ return print_raw_backtrace
+     /*<<printexc.ml:183:30>>*/ return  /*<<printexc.ml:183:52>>*/ print_raw_backtrace
             (outchan,
               /*<<printexc.ml:183:30>>*/ caml_get_exception_raw_backtra(0)) /*<<printexc.ml:183:52>>*/ ;
    }
@@ -23739,13 +23079,13 @@
      a =  /*<<printexc.ml:186:2>>*/ backtrace[1],
      b =  /*<<printexc.ml:190:14>>*/ caml_call1(Stdlib_Buffer[1], 1024),
      _M_ =  /*<<printexc.ml:191:6>>*/ a.length - 2 | 0,
-     _L_ =  /*<<printexc.ml:190:32>>*/ 0;
-     /*<<printexc.ml:191:6>>*/ if(_M_ >= 0){
+     _L_ = 0;
+    if(_M_ >= 0){
      var i = _L_;
      for(;;){
       var
        match =
-          /*<<printexc.ml:192:14>>*/ format_backtrace_slot
+          /*<<printexc.ml:192:38>>*/  /*<<printexc.ml:192:14>>*/ format_backtrace_slot
           (i,  /*<<printexc.ml:192:38>>*/ caml_check_bound(a, i)[1 + i]);
        /*<<printexc.ml:192:43>>*/ if(match){
        var str = match[1];
@@ -23790,10 +23130,8 @@
      else{
       var
        _J_ =
-          /*<<printexc.ml:245:24>>*/ 0
-          ===
-            /*<<printexc.ml:250:27>>*/ caml_check_bound(backtrace, i)[1 + i]
-            [0]
+          /*<<printexc.ml:250:27>>*/ 0
+          === caml_check_bound(backtrace, i)[1 + i][0]
           ? 1
           : 0;
        /*<<printexc.ml:250:40>>*/ if(! _J_){
@@ -23813,7 +23151,7 @@
      /*<<printexc.ml:267:30>>*/ return bt.length - 1;
     /*<<printexc.ml:267:45>>*/ }
    function get_backtrace(param){
-     /*<<printexc.ml:278:69>>*/ return raw_backtrace_to_string
+     /*<<printexc.ml:278:47>>*/ return  /*<<printexc.ml:278:69>>*/ raw_backtrace_to_string
             ( /*<<printexc.ml:278:47>>*/ caml_get_exception_raw_backtra(0)) /*<<printexc.ml:278:69>>*/ ;
    }
    function register_printer(fn){
@@ -23830,10 +23168,7 @@
     }
     /*<<printexc.ml:287:41>>*/ }
    function exn_slot(x){
-     /*<<printexc.ml:293:14>>*/ return 0
-            ===  /*<<printexc.ml:293:5>>*/ caml_obj_tag(x)
-            ? x[1]
-            : x /*<<printexc.ml:293:44>>*/ ;
+     /*<<printexc.ml:293:5>>*/ return 0 === caml_obj_tag(x) ? x[1] : x /*<<printexc.ml:293:44>>*/ ;
    }
    function exn_slot_id(x){
     var slot =  /*<<printexc.ml:296:13>>*/ exn_slot(x);
@@ -23853,7 +23188,7 @@
         "(Cannot print locations:\n bytecode executable program file cannot be opened;\n -- too many open files. Try running with OCAMLRUNPARAM=b=2)"].slice
        (),
     _o_ =
-       /*<<?>>*/ [0,
+      [0,
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
        cst_Fatal_error_exception_s];
    function default_uncaught_exception_han(exn, raw_backtrace){
@@ -23880,7 +23215,7 @@
    var
     empty_backtrace =  /*<<printexc.ml:20:29>>*/ [0],
     cst_Fatal_error_out_of_memory_ =
-       /*<<?>>*/ "Fatal error: out of memory in uncaught exception handler",
+      "Fatal error: out of memory in uncaught exception handler",
     _p_ =
       [0,
        [11, cst_Fatal_error_exception, [2, 0, [12, 10, 0]]],
@@ -24012,14 +23347,14 @@
      /*<<fun.ml:17:16>>*/ return c;
     /*<<fun.ml:17:17>>*/ }
    function compose(f, g, x){
-     /*<<fun.ml:18:27>>*/ return caml_call1
+     /*<<fun.ml:18:22>>*/ return  /*<<fun.ml:18:27>>*/ caml_call1
             (f,  /*<<fun.ml:18:22>>*/ caml_call1(g, x)) /*<<fun.ml:18:27>>*/ ;
    }
    function flip(f, x, y){
      /*<<fun.ml:19:17>>*/ return caml_call2(f, y, x) /*<<fun.ml:19:22>>*/ ;
    }
    function negate(p, v){
-     /*<<fun.ml:20:26>>*/ return 1 -  /*<<fun.ml:20:21>>*/ caml_call1(p, v) /*<<fun.ml:20:26>>*/ ;
+     /*<<fun.ml:20:21>>*/ return 1 - caml_call1(p, v) /*<<fun.ml:20:26>>*/ ;
    }
    var
     Finally_raised =
@@ -24035,11 +23370,10 @@
       var
        exn =  /*<<fun.ml:24:38>>*/ param[2],
        _a_ =  /*<<fun.ml:25:55>>*/ caml_call1(Stdlib_Printexc[1], exn);
-       /*<<fun.ml:25:78>>*/ return [0,
-               /*<<fun.ml:25:29>>*/ caml_call2
-               (Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:78>>*/ ;
+       /*<<fun.ml:25:29>>*/ return [0,
+              caml_call2(Stdlib[28], cst_Fun_Finally_raised, _a_)] /*<<fun.ml:25:78>>*/ ;
       /*<<fun.ml:26:11>>*/ });
-   var dummy =  /*<<?>>*/ 0;
+   var dummy = 0;
    function protect(finally$0, work){
     function finally_no_exn(param){
       /*<<fun.ml:30:4>>*/ try{
@@ -24204,7 +23538,7 @@
      /*<<gc.ml:76:2>>*/ caml_call2(Stdlib_Printf[1], c, _e_);
     var
      l1 =
-        /*<<gc.ml:77:56>>*/ caml_ml_string_length
+        /*<<gc.ml:77:25>>*/  /*<<gc.ml:77:56>>*/ caml_ml_string_length
         ( /*<<gc.ml:77:25>>*/ caml_call2(Stdlib_Printf[4], _f_, st[1]));
      /*<<gc.ml:78:2>>*/ caml_call4(Stdlib_Printf[1], c, _g_, l1, st[1]);
      /*<<gc.ml:79:2>>*/ caml_call4(Stdlib_Printf[1], c, _h_, l1, st[2]);
@@ -24212,7 +23546,7 @@
      /*<<gc.ml:81:2>>*/ caml_call2(Stdlib_Printf[1], c, _j_);
     var
      l2 =
-        /*<<gc.ml:82:57>>*/ caml_ml_string_length
+        /*<<gc.ml:82:25>>*/  /*<<gc.ml:82:57>>*/ caml_ml_string_length
         ( /*<<gc.ml:82:25>>*/ caml_call2(Stdlib_Printf[4], _k_, st[15]));
      /*<<gc.ml:83:2>>*/ caml_call4(Stdlib_Printf[1], c, _l_, l2, st[15]);
      /*<<gc.ml:84:2>>*/ caml_call4(Stdlib_Printf[1], c, _m_, l2, st[6]);
@@ -24255,7 +23589,7 @@
        function(param){ /*<<gc.ml:147:32>>*/ return 0; /*<<gc.ml:147:34>>*/ }];
    function start(sampling_rate, opt, tracker){
     var callstack_size =  /*<<gc.ml:155:6>>*/ opt ? opt[1] : Stdlib[19];
-     /*<<gc.ml:158:50>>*/ return  /*<<gc.ml:158:6>>*/ runtime.caml_memprof_start
+     /*<<gc.ml:158:6>>*/ return runtime.caml_memprof_start
             (sampling_rate, callstack_size, tracker) /*<<gc.ml:158:50>>*/ ;
    }
    var
@@ -24346,7 +23680,7 @@
      /*<<in_channel.ml:43:2>>*/ return with_open(Stdlib[79], s, f) /*<<in_channel.ml:43:30>>*/ ;
    }
    function with_open_gen(flags, perm, s, f){
-     /*<<in_channel.ml:46:43>>*/ return with_open
+     /*<<in_channel.ml:46:12>>*/ return  /*<<in_channel.ml:46:43>>*/ with_open
             ( /*<<in_channel.ml:46:12>>*/ caml_call2(Stdlib[81], flags, perm),
              s,
              f) /*<<in_channel.ml:46:47>>*/ ;
@@ -24404,7 +23738,7 @@
       &&
        0 <= len
        && ( /*<<in_channel.ml:76:33>>*/ caml_ba_dim_1(buf) - len | 0) >= ofs)
-      /*<<in_channel.ml:78:43>>*/ return  /*<<in_channel.ml:78:7>>*/ caml_ml_input_bigarray
+      /*<<in_channel.ml:78:7>>*/ return caml_ml_input_bigarray
              (ic, buf, ofs, len) /*<<in_channel.ml:78:43>>*/ ;
      /*<<in_channel.ml:77:7>>*/ return caml_call1
             (Stdlib[1], cst_input_bigarray) /*<<in_channel.ml:78:43>>*/ ;
@@ -24507,11 +23841,7 @@
      /*<<in_channel.ml:155:2>>*/ try{
      var
       _k_ =  /*<<in_channel.ml:157:36>>*/ caml_call1(Stdlib[91], ic),
-      _l_ =
-         /*<<in_channel.ml:157:33>>*/  /*<<in_channel.ml:157:6>>*/ caml_call1
-         (Stdlib[92], ic)
-        - _k_
-        | 0,
+      _l_ =  /*<<in_channel.ml:157:6>>*/ caml_call1(Stdlib[92], ic) - _k_ | 0,
       initial_size = _l_;
     }
     catch(_n_){
@@ -24683,7 +24013,7 @@
      /*<<out_channel.ml:44:2>>*/ return with_open(Stdlib[60], s, f) /*<<out_channel.ml:44:31>>*/ ;
    }
    function with_open_gen(flags, perm, s, f){
-     /*<<out_channel.ml:47:44>>*/ return with_open
+     /*<<out_channel.ml:47:12>>*/ return  /*<<out_channel.ml:47:44>>*/ with_open
             ( /*<<out_channel.ml:47:12>>*/ caml_call2(Stdlib[62], flags, perm),
              s,
              f) /*<<out_channel.ml:47:48>>*/ ;
@@ -24711,7 +24041,7 @@
        &&
         ( /*<<out_channel.ml:67:33>>*/ runtime.caml_ba_dim_1(buf) - len | 0)
         >= ofs)
-      /*<<out_channel.ml:69:44>>*/ return  /*<<out_channel.ml:69:7>>*/ runtime.caml_ml_output_bigarray
+      /*<<out_channel.ml:69:7>>*/ return runtime.caml_ml_output_bigarray
              (oc, buf, ofs, len) /*<<out_channel.ml:69:44>>*/ ;
      /*<<out_channel.ml:68:7>>*/ return caml_call1
             (Stdlib[1], cst_output_bigarray) /*<<out_channel.ml:69:44>>*/ ;
@@ -24812,14 +24142,14 @@
      len =  /*<<digest.ml:22:2>>*/ caml_ml_string_length(d),
      result =  /*<<digest.ml:23:15>>*/ caml_create_bytes(len * 2 | 0),
      _j_ =  /*<<digest.ml:24:2>>*/ len - 1 | 0,
-     _i_ =  /*<<digest.ml:23:37>>*/ 0;
-     /*<<digest.ml:24:2>>*/ if(_j_ >= 0){
+     _i_ = 0;
+    if(_j_ >= 0){
      var i = _i_;
      for(;;){
       var x =  /*<<digest.ml:25:22>>*/ caml_string_get(d, i);
-       /*<<digest.ml:26:54>>*/ caml_bytes_unsafe_set
+       /*<<digest.ml:26:34>>*/  /*<<digest.ml:26:54>>*/ caml_bytes_unsafe_set
        (result, i * 2 | 0,  /*<<digest.ml:26:34>>*/ char_hex(x >>> 4 | 0));
-       /*<<digest.ml:27:60>>*/ caml_bytes_unsafe_set
+       /*<<digest.ml:27:36>>*/  /*<<digest.ml:27:60>>*/ caml_bytes_unsafe_set
        (result,
         (i * 2 | 0) + 1 | 0,
          /*<<digest.ml:27:36>>*/ char_hex(x & 15));
@@ -24848,10 +24178,10 @@
               var
                i$0 =  /*<<digest.ml:39:46>>*/ 2 * i | 0,
                _g_ =
-                  /*<<digest.ml:38:35>>*/ digit
+                  /*<<digest.ml:38:41>>*/  /*<<digest.ml:38:35>>*/ digit
                   ( /*<<digest.ml:38:41>>*/ caml_string_get(s, i$0 + 1 | 0)),
                _h_ =
-                  /*<<digest.ml:38:26>>*/ ( /*<<digest.ml:38:15>>*/ digit
+                  /*<<digest.ml:38:21>>*/ ( /*<<digest.ml:38:15>>*/ digit
                   ( /*<<digest.ml:38:21>>*/ caml_string_get(s, i$0))
                  << 4)
                  + _g_
@@ -24869,11 +24199,11 @@
      compare = Stdlib_String[10],
      equal = Stdlib_String[9];
     function string(str){
-      /*<<digest.ml:85:58>>*/ return  /*<<digest.ml:85:4>>*/ caml_blake2_string
+      /*<<digest.ml:85:4>>*/ return caml_blake2_string
              (hash_length, cst, str, 0, caml_ml_string_length(str)) /*<<digest.ml:85:58>>*/ ;
     }
     function bytes(b){
-      /*<<digest.ml:88:37>>*/ return string
+      /*<<digest.ml:88:11>>*/ return  /*<<digest.ml:88:37>>*/ string
              ( /*<<digest.ml:88:11>>*/ caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:88:37>>*/ ;
     }
     function substring(str, ofs, len){
@@ -24886,11 +24216,11 @@
        _e_ = _f_ || ((caml_ml_string_length(str) - len | 0) < ofs ? 1 : 0);
      if(_e_)
        /*<<digest.ml:92:9>>*/ caml_call1(Stdlib[1], cst_Digest_substring);
-      /*<<digest.ml:93:44>>*/ return  /*<<digest.ml:93:4>>*/ caml_blake2_string
+      /*<<digest.ml:93:4>>*/ return caml_blake2_string
              (hash_length, cst, str, ofs, len) /*<<digest.ml:93:44>>*/ ;
     }
     function subbytes(b, ofs, len){
-      /*<<digest.ml:96:40>>*/ return substring
+      /*<<digest.ml:96:14>>*/ return  /*<<digest.ml:96:40>>*/ substring
              ( /*<<digest.ml:96:14>>*/ caml_call1(Stdlib_Bytes[44], b),
               ofs,
               len) /*<<digest.ml:96:48>>*/ ;
@@ -24905,8 +24235,7 @@
       var toread$0 =  /*<<digest.ml:120:9>>*/ toread;
       for(;;){
         /*<<digest.ml:111:8>>*/ if(0 === toread$0)
-         /*<<digest.ml:111:48>>*/ return  /*<<digest.ml:111:27>>*/ caml_blake2_final
-                (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
+         /*<<digest.ml:111:27>>*/ return caml_blake2_final(ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
        var
         _c_ =
            /*<<digest.ml:112:44>>*/ caml_call2
@@ -24917,7 +24246,7 @@
         /*<<digest.ml:113:10>>*/ if(0 === n)
          /*<<digest.ml:114:15>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[12], 1);
-        /*<<digest.ml:116:12>>*/ caml_blake2_update
+        /*<<digest.ml:116:23>>*/  /*<<digest.ml:116:12>>*/ caml_blake2_update
         (ctx,
           /*<<digest.ml:116:23>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,
@@ -24933,9 +24262,8 @@
            /*<<digest.ml:104:16>>*/ caml_call4
            (Stdlib_In_channel[16], ic, buf, 0, buf_size);
         /*<<digest.ml:105:8>>*/ if(0 === n$0)
-         /*<<digest.ml:106:34>>*/ return  /*<<digest.ml:106:13>>*/ caml_blake2_final
-                (ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
-        /*<<digest.ml:107:14>>*/ caml_blake2_update
+         /*<<digest.ml:106:13>>*/ return caml_blake2_final(ctx, hash_length) /*<<digest.ml:121:7>>*/ ;
+        /*<<digest.ml:107:25>>*/  /*<<digest.ml:107:14>>*/ caml_blake2_update
         (ctx,
           /*<<digest.ml:107:25>>*/ caml_call1(Stdlib_Bytes[44], buf),
          0,
@@ -24993,23 +24321,22 @@
     cst_Digest_to_hex$0 = cst_Digest_to_hex$1,
     cst_Digest_from_hex = "Digest.from_hex";
    function string(str){
-     /*<<digest.ml:159:43>>*/ return  /*<<digest.ml:159:4>>*/ caml_md5_string
+     /*<<digest.ml:159:4>>*/ return caml_md5_string
             (str, 0, caml_ml_string_length(str)) /*<<digest.ml:159:43>>*/ ;
    }
    function bytes(b){
-     /*<<digest.ml:161:49>>*/ return string
+     /*<<digest.ml:161:23>>*/ return  /*<<digest.ml:161:49>>*/ string
             ( /*<<digest.ml:161:23>>*/ caml_call1(Stdlib_Bytes[44], b)) /*<<digest.ml:161:49>>*/ ;
    }
    function substring(str, ofs, len){
      /*<<digest.ml:164:4>>*/ if
      (0 <= ofs && 0 <= len && (caml_ml_string_length(str) - len | 0) >= ofs)
-      /*<<digest.ml:166:34>>*/ return  /*<<digest.ml:166:9>>*/ caml_md5_string
-             (str, ofs, len) /*<<digest.ml:166:34>>*/ ;
+      /*<<digest.ml:166:9>>*/ return caml_md5_string(str, ofs, len) /*<<digest.ml:166:34>>*/ ;
      /*<<digest.ml:165:9>>*/ return caml_call1
             (Stdlib[1], cst_Digest_substring$0) /*<<digest.ml:166:34>>*/ ;
    }
    function subbytes(b, ofs, len){
-     /*<<digest.ml:168:63>>*/ return substring
+     /*<<digest.ml:168:37>>*/ return  /*<<digest.ml:168:63>>*/ substring
             ( /*<<digest.ml:168:37>>*/ caml_call1(Stdlib_Bytes[44], b),
              ofs,
              len) /*<<digest.ml:168:71>>*/ ;
@@ -25019,8 +24346,7 @@
             (Stdlib_In_channel[5],
              filename,
              function(ic){
-               /*<<digest.ml:171:64>>*/ return  /*<<digest.ml:171:49>>*/ caml_md5_chan
-                      (ic, -1) /*<<digest.ml:171:64>>*/ ;
+               /*<<digest.ml:171:49>>*/ return caml_md5_chan(ic, -1) /*<<digest.ml:171:64>>*/ ;
              }) /*<<digest.ml:171:65>>*/ ;
    }
    function output(chan, digest){
@@ -25164,19 +24490,15 @@
     cst_Bigarray_array3_of_genarra = "Bigarray.array3_of_genarray";
    function cloop(arr, idx, f, col, max){
      /*<<bigarray.ml:108:4>>*/ if(col === idx.length - 1){
-      /*<<bigarray.ml:108:35>>*/ caml_ba_set_generic
+      /*<<bigarray.ml:108:47>>*/  /*<<bigarray.ml:108:35>>*/ caml_ba_set_generic
       (arr, idx,  /*<<bigarray.ml:108:47>>*/ caml_call1(f, idx));
       /*<<bigarray.ml:108:54>>*/ return;
     }
     var
      _am_ =
-        /*<<bigarray.ml:109:36>>*/  /*<<bigarray.ml:109:27>>*/ caml_check_bound
-         (max, col)
-        [1 + col]
-       - 1
-       | 0,
-     _al_ =  /*<<bigarray.ml:109:9>>*/ 0;
-     /*<<bigarray.ml:109:36>>*/ if(_am_ >= 0){
+        /*<<bigarray.ml:109:27>>*/ caml_check_bound(max, col)[1 + col] - 1 | 0,
+     _al_ =  /*<<bigarray.ml:109:36>>*/ 0;
+    if(_am_ >= 0){
      var j = _al_;
      for(;;){
        /*<<bigarray.ml:110:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
@@ -25189,14 +24511,14 @@
     /*<<bigarray.ml:112:13>>*/ }
    function floop(arr, idx, f, col, max){
      /*<<bigarray.ml:114:4>>*/ if(0 > col){
-      /*<<bigarray.ml:114:20>>*/ caml_ba_set_generic
+      /*<<bigarray.ml:114:32>>*/  /*<<bigarray.ml:114:20>>*/ caml_ba_set_generic
       (arr, idx,  /*<<bigarray.ml:114:32>>*/ caml_call1(f, idx));
       /*<<bigarray.ml:114:39>>*/ return;
     }
     var
      _aj_ =  /*<<bigarray.ml:115:22>>*/ caml_check_bound(max, col)[1 + col],
-     _ai_ =  /*<<bigarray.ml:115:9>>*/ 1;
-     /*<<bigarray.ml:115:31>>*/ if(_aj_ >= 1){
+     _ai_ =  /*<<bigarray.ml:115:31>>*/ 1;
+    if(_aj_ >= 1){
      var j = _ai_;
      for(;;){
        /*<<bigarray.ml:116:11>>*/ caml_check_bound(idx, col)[1 + col] = j;
@@ -25232,8 +24554,8 @@
      n =  /*<<bigarray.ml:129:12>>*/ caml_ba_num_dims(a),
      d =  /*<<bigarray.ml:130:12>>*/ caml_make_vect(n, 0),
      _af_ =  /*<<bigarray.ml:131:4>>*/ n - 1 | 0,
-     _ae_ =  /*<<bigarray.ml:130:26>>*/ 0;
-     /*<<bigarray.ml:131:4>>*/ if(_af_ >= 0){
+     _ae_ = 0;
+    if(_af_ >= 0){
      var i = _ae_;
      for(;;){
       var _ag_ =  /*<<bigarray.ml:131:33>>*/ runtime.caml_ba_dim(a, i);
@@ -25251,18 +24573,16 @@
      _ad_ =
         /*<<bigarray.ml:140:38>>*/ caml_call3
         (Stdlib_Array[18], caml_mul, 1, _ac_);
-     /*<<bigarray.ml:140:35>>*/ return caml_mul
+     /*<<bigarray.ml:140:24>>*/ return  /*<<bigarray.ml:140:35>>*/ caml_mul
             ( /*<<bigarray.ml:140:4>>*/ kind_size_in_bytes
               ( /*<<bigarray.ml:140:24>>*/ caml_ba_kind(arr)),
              _ad_) /*<<bigarray.ml:140:74>>*/ ;
    }
    function create(kind, layout){
-     /*<<bigarray.ml:161:36>>*/ return  /*<<bigarray.ml:161:4>>*/ caml_ba_create
-            (kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
+     /*<<bigarray.ml:161:4>>*/ return caml_ba_create(kind, layout, [0]) /*<<bigarray.ml:161:36>>*/ ;
    }
    function get(arr){
-     /*<<bigarray.ml:162:37>>*/ return  /*<<bigarray.ml:162:16>>*/ runtime.caml_ba_get_generic
-            (arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
+     /*<<bigarray.ml:162:16>>*/ return runtime.caml_ba_get_generic(arr, [0]) /*<<bigarray.ml:162:37>>*/ ;
    }
    function set(arr){
     var _aa_ =  /*<<bigarray.ml:163:16>>*/ [0];
@@ -25270,7 +24590,7 @@
       /*<<?>>*/ return caml_ba_set_generic(arr, _aa_, _ab_);} /*<<bigarray.ml:163:16>>*/ ;
     /*<<bigarray.ml:163:37>>*/ }
    function size_in_bytes$0(arr){
-     /*<<bigarray.ml:170:55>>*/ return kind_size_in_bytes
+     /*<<bigarray.ml:170:45>>*/ return  /*<<bigarray.ml:170:55>>*/ kind_size_in_bytes
             ( /*<<bigarray.ml:170:45>>*/ caml_ba_kind(arr)) /*<<bigarray.ml:170:55>>*/ ;
    }
    function of_value(kind, layout, v){
@@ -25279,19 +24599,17 @@
      /*<<bigarray.ml:177:11>>*/ return a;
     /*<<bigarray.ml:178:5>>*/ }
    function create$0(kind, layout, dim){
-     /*<<bigarray.ml:185:39>>*/ return  /*<<bigarray.ml:185:4>>*/ caml_ba_create
-            (kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
+     /*<<bigarray.ml:185:4>>*/ return caml_ba_create(kind, layout, [0, dim]) /*<<bigarray.ml:185:39>>*/ ;
    }
    function size_in_bytes$1(arr){
     var _$_ =  /*<<bigarray.ml:199:38>>*/ caml_ba_dim_1(arr);
-     /*<<bigarray.ml:199:35>>*/ return caml_mul
+     /*<<bigarray.ml:199:24>>*/ return  /*<<bigarray.ml:199:35>>*/ caml_mul
             ( /*<<bigarray.ml:199:4>>*/ kind_size_in_bytes
               ( /*<<bigarray.ml:199:24>>*/ caml_ba_kind(arr)),
              _$_) /*<<bigarray.ml:199:47>>*/ ;
    }
    function slice(a, n){
-     /*<<bigarray.ml:203:18>>*/ return  /*<<bigarray.ml:203:10>>*/ runtime.caml_ba_layout
-             (a)
+     /*<<bigarray.ml:203:10>>*/ return runtime.caml_ba_layout(a)
             ?  /*<<bigarray.ml:205:25>>*/ caml_ba_slice(a, [0, n])
             :  /*<<bigarray.ml:204:19>>*/ caml_ba_slice(a, [0, n]) /*<<bigarray.ml:205:76>>*/ ;
    }
@@ -25302,7 +24620,7 @@
      if(dim >= 1){
       var i$0 = _Z_;
       for(;;){
-        /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
+        /*<<bigarray.ml:211:41>>*/  /*<<bigarray.ml:211:24>>*/ caml_ba_set_1
         (arr, i$0,  /*<<bigarray.ml:211:41>>*/ caml_call1(f, i$0));
        var ___ =  /*<<bigarray.ml:211:46>>*/ i$0 + 1 | 0;
        if(dim === i$0) break;
@@ -25315,7 +24633,7 @@
     if(_X_ >= 0){
      var i = _W_;
      for(;;){
-       /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
+       /*<<bigarray.ml:209:46>>*/  /*<<bigarray.ml:209:29>>*/ caml_ba_set_1
        (arr, i,  /*<<bigarray.ml:209:46>>*/ caml_call1(f, i));
       var _Y_ =  /*<<bigarray.ml:209:51>>*/ i + 1 | 0;
       if(_X_ === i) break;
@@ -25329,11 +24647,11 @@
      ba =  /*<<bigarray.ml:218:13>>*/ create$0(kind, layout, data.length - 1),
      ofs =  /*<<bigarray.ml:219:4>>*/ layout ? 1 : 0,
      _U_ =  /*<<bigarray.ml:224:4>>*/ data.length - 2 | 0,
-     _T_ =  /*<<bigarray.ml:219:4>>*/ 0;
-     /*<<bigarray.ml:224:4>>*/ if(_U_ >= 0){
+     _T_ = 0;
+    if(_U_ >= 0){
      var i = _T_;
      for(;;){
-       /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
+       /*<<bigarray.ml:224:66>>*/  /*<<bigarray.ml:224:42>>*/ caml_ba_set_1
        (ba,
         i + ofs | 0,
          /*<<bigarray.ml:224:66>>*/ caml_check_bound(data, i)[1 + i]);
@@ -25345,14 +24663,14 @@
      /*<<bigarray.ml:225:4>>*/ return ba;
     /*<<bigarray.ml:225:6>>*/ }
    function create$1(kind, layout, dim1, dim2){
-     /*<<bigarray.ml:231:46>>*/ return  /*<<bigarray.ml:231:4>>*/ caml_ba_create
+     /*<<bigarray.ml:231:4>>*/ return caml_ba_create
             (kind, layout, [0, dim1, dim2]) /*<<bigarray.ml:231:46>>*/ ;
    }
    function size_in_bytes$2(arr){
     var
      _R_ =  /*<<bigarray.ml:247:51>>*/ caml_ba_dim_2(arr),
      _S_ =  /*<<bigarray.ml:247:38>>*/ caml_ba_dim_1(arr);
-     /*<<bigarray.ml:247:35>>*/ return caml_mul
+     /*<<bigarray.ml:247:24>>*/ return  /*<<bigarray.ml:247:35>>*/ caml_mul
             (caml_mul
               ( /*<<bigarray.ml:247:4>>*/ kind_size_in_bytes
                 ( /*<<bigarray.ml:247:24>>*/ caml_ba_kind(arr)),
@@ -25360,12 +24678,10 @@
              _R_) /*<<bigarray.ml:247:61>>*/ ;
    }
    function slice_left(a, n){
-     /*<<bigarray.ml:254:50>>*/ return  /*<<bigarray.ml:254:23>>*/ caml_ba_slice
-            (a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
+     /*<<bigarray.ml:254:23>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:254:50>>*/ ;
    }
    function slice_right(a, n){
-     /*<<bigarray.ml:255:52>>*/ return  /*<<bigarray.ml:255:24>>*/ caml_ba_slice
-            (a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
+     /*<<bigarray.ml:255:24>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:255:52>>*/ ;
    }
    function init$1(kind, layout, dim1, dim2, f){
     var arr =  /*<<bigarray.ml:271:14>>*/ create$1(kind, layout, dim1, dim2);
@@ -25378,7 +24694,7 @@
        if(dim1 >= 1){
         var i$0 = _O_;
         for(;;){
-          /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
+          /*<<bigarray.ml:267:27>>*/  /*<<bigarray.ml:267:8>>*/ caml_ba_set_2
           (arr, i$0, j$0,  /*<<bigarray.ml:267:27>>*/ caml_call2(f, i$0, j$0));
          var _Q_ =  /*<<bigarray.ml:267:34>>*/ i$0 + 1 | 0;
          if(dim1 === i$0) break;
@@ -25400,7 +24716,7 @@
       if(_K_ >= 0){
        var j = _J_;
        for(;;){
-         /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
+         /*<<bigarray.ml:261:27>>*/  /*<<bigarray.ml:261:8>>*/ caml_ba_set_2
          (arr, i, j,  /*<<bigarray.ml:261:27>>*/ caml_call2(f, i, j));
         var _M_ =  /*<<bigarray.ml:261:34>>*/ j + 1 | 0;
         if(_K_ === j) break;
@@ -25424,8 +24740,8 @@
      ba =  /*<<bigarray.ml:278:13>>*/ create$1(kind, layout, dim1, dim2),
      ofs =  /*<<bigarray.ml:279:4>>*/ layout ? 1 : 0,
      _C_ =  /*<<bigarray.ml:284:4>>*/ dim1 - 1 | 0,
-     _B_ =  /*<<bigarray.ml:279:4>>*/ 0;
-     /*<<bigarray.ml:284:4>>*/ if(_C_ >= 0){
+     _B_ = 0;
+    if(_C_ >= 0){
      var i = _B_;
      for(;;){
       var row =  /*<<bigarray.ml:285:16>>*/ caml_check_bound(data, i)[1 + i];
@@ -25436,7 +24752,7 @@
       if(_E_ >= 0){
        var j = _D_;
        for(;;){
-         /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
+         /*<<bigarray.ml:289:42>>*/  /*<<bigarray.ml:289:8>>*/ caml_ba_set_2
          (ba,
           i + ofs | 0,
           j + ofs | 0,
@@ -25454,7 +24770,7 @@
      /*<<bigarray.ml:292:4>>*/ return ba;
     /*<<bigarray.ml:292:6>>*/ }
    function create$2(kind, layout, dim1, dim2, dim3){
-     /*<<bigarray.ml:298:52>>*/ return  /*<<bigarray.ml:298:4>>*/ caml_ba_create
+     /*<<bigarray.ml:298:4>>*/ return caml_ba_create
             (kind, layout, [0, dim1, dim2, dim3]) /*<<bigarray.ml:298:52>>*/ ;
    }
    function size_in_bytes$3(arr){
@@ -25462,7 +24778,7 @@
      _y_ =  /*<<bigarray.ml:316:64>>*/ runtime.caml_ba_dim_3(arr),
      _z_ =  /*<<bigarray.ml:316:51>>*/ caml_ba_dim_2(arr),
      _A_ =  /*<<bigarray.ml:316:38>>*/ caml_ba_dim_1(arr);
-     /*<<bigarray.ml:316:35>>*/ return caml_mul
+     /*<<bigarray.ml:316:24>>*/ return  /*<<bigarray.ml:316:35>>*/ caml_mul
             (caml_mul
               (caml_mul
                 ( /*<<bigarray.ml:316:4>>*/ kind_size_in_bytes
@@ -25472,20 +24788,16 @@
              _y_) /*<<bigarray.ml:316:74>>*/ ;
    }
    function slice_left_1(a, n, m){
-     /*<<bigarray.ml:323:57>>*/ return  /*<<bigarray.ml:323:27>>*/ caml_ba_slice
-            (a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
+     /*<<bigarray.ml:323:27>>*/ return caml_ba_slice(a, [0, n, m]) /*<<bigarray.ml:323:57>>*/ ;
    }
    function slice_right_1(a, n, m){
-     /*<<bigarray.ml:324:59>>*/ return  /*<<bigarray.ml:324:28>>*/ caml_ba_slice
-            (a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
+     /*<<bigarray.ml:324:28>>*/ return caml_ba_slice(a, [0, n, m]) /*<<bigarray.ml:324:59>>*/ ;
    }
    function slice_left_2(a, n){
-     /*<<bigarray.ml:325:52>>*/ return  /*<<bigarray.ml:325:25>>*/ caml_ba_slice
-            (a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
+     /*<<bigarray.ml:325:25>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:325:52>>*/ ;
    }
    function slice_right_2(a, n){
-     /*<<bigarray.ml:326:54>>*/ return  /*<<bigarray.ml:326:26>>*/ caml_ba_slice
-            (a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
+     /*<<bigarray.ml:326:26>>*/ return caml_ba_slice(a, [0, n]) /*<<bigarray.ml:326:54>>*/ ;
    }
    function init$2(kind, layout, dim1, dim2, dim3, f){
     var
@@ -25504,7 +24816,7 @@
          if(dim1 >= 1){
           var i$0 = _v_;
           for(;;){
-            /*<<bigarray.ml:341:10>>*/ caml_ba_set_3
+            /*<<bigarray.ml:341:31>>*/  /*<<bigarray.ml:341:10>>*/ caml_ba_set_3
             (arr,
              i$0,
              j$0,
@@ -25539,7 +24851,7 @@
         if(_p_ >= 0){
          var k = _o_;
          for(;;){
-           /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
+           /*<<bigarray.ml:333:31>>*/  /*<<bigarray.ml:333:10>>*/ caml_ba_set_3
            (arr, i, j, k,  /*<<bigarray.ml:333:31>>*/ caml_call3(f, i, j, k));
           var _r_ =  /*<<bigarray.ml:333:40>>*/ k + 1 | 0;
           if(_p_ === k) break;
@@ -25575,8 +24887,8 @@
      ba =  /*<<bigarray.ml:354:13>>*/ create$2(kind, layout, dim1, dim2, dim3),
      ofs =  /*<<bigarray.ml:355:4>>*/ layout ? 1 : 0,
      _b_ =  /*<<bigarray.ml:360:4>>*/ dim1 - 1 | 0,
-     _a_ =  /*<<bigarray.ml:355:4>>*/ 0;
-     /*<<bigarray.ml:360:4>>*/ if(_b_ >= 0){
+     _a_ = 0;
+    if(_b_ >= 0){
      var i = _a_;
      for(;;){
       var row =  /*<<bigarray.ml:361:16>>*/ caml_check_bound(data, i)[1 + i];
@@ -25595,7 +24907,7 @@
         if(_g_ >= 0){
          var k = _f_;
          for(;;){
-           /*<<bigarray.ml:369:10>>*/ caml_ba_set_3
+           /*<<bigarray.ml:369:54>>*/  /*<<bigarray.ml:369:10>>*/ caml_ba_set_3
            (ba,
             i + ofs | 0,
             j + ofs | 0,
@@ -25619,47 +24931,40 @@
      /*<<bigarray.ml:373:4>>*/ return ba;
     /*<<bigarray.ml:373:6>>*/ }
    function array0_of_genarray(a){
-     /*<<bigarray.ml:385:24>>*/ return 0
-            ===  /*<<bigarray.ml:385:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:385:5>>*/ return 0 === caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:386:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array0_of_genarra) /*<<bigarray.ml:386:48>>*/ ;
    }
    function array1_of_genarray(a){
-     /*<<bigarray.ml:388:24>>*/ return 1
-            ===  /*<<bigarray.ml:388:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:388:5>>*/ return 1 === caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:389:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array1_of_genarra) /*<<bigarray.ml:389:48>>*/ ;
    }
    function array2_of_genarray(a){
-     /*<<bigarray.ml:391:24>>*/ return 2
-            ===  /*<<bigarray.ml:391:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:391:5>>*/ return 2 === caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:392:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array2_of_genarra) /*<<bigarray.ml:392:48>>*/ ;
    }
    function array3_of_genarray(a){
-     /*<<bigarray.ml:394:24>>*/ return 3
-            ===  /*<<bigarray.ml:394:5>>*/ caml_ba_num_dims(a)
+     /*<<bigarray.ml:394:5>>*/ return 3 === caml_ba_num_dims(a)
             ? a
             :  /*<<bigarray.ml:395:7>>*/ caml_call1
               (Stdlib[1], cst_Bigarray_array3_of_genarra) /*<<bigarray.ml:395:48>>*/ ;
    }
    function reshape_0(a){
-     /*<<bigarray.ml:400:32>>*/ return  /*<<bigarray.ml:400:18>>*/ caml_ba_reshape
-            (a, [0]) /*<<bigarray.ml:400:32>>*/ ;
+     /*<<bigarray.ml:400:18>>*/ return caml_ba_reshape(a, [0]) /*<<bigarray.ml:400:32>>*/ ;
    }
    function reshape_1(a, dim1){
-     /*<<bigarray.ml:401:41>>*/ return  /*<<bigarray.ml:401:23>>*/ caml_ba_reshape
-            (a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
+     /*<<bigarray.ml:401:23>>*/ return caml_ba_reshape(a, [0, dim1]) /*<<bigarray.ml:401:41>>*/ ;
    }
    function reshape_2(a, dim1, dim2){
-     /*<<bigarray.ml:402:51>>*/ return  /*<<bigarray.ml:402:28>>*/ caml_ba_reshape
-            (a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
+     /*<<bigarray.ml:402:28>>*/ return caml_ba_reshape(a, [0, dim1, dim2]) /*<<bigarray.ml:402:51>>*/ ;
    }
    function reshape_3(a, dim1, dim2, dim3){
-     /*<<bigarray.ml:403:61>>*/ return  /*<<bigarray.ml:403:33>>*/ caml_ba_reshape
+     /*<<bigarray.ml:403:33>>*/ return caml_ba_reshape
             (a, [0, dim1, dim2, dim3]) /*<<bigarray.ml:403:61>>*/ ;
    }
    var
@@ -25795,24 +25100,13 @@
      /*<<random.ml:31:4>>*/ return caml_call3(Stdlib_Bigarray[20][1], 7, 0, 4) /*<<random.ml:31:34>>*/ ;
    }
    function set(s, i1, i2, i3, i4){
-     /*<<random.ml:34:4>>*/ caml_ba_set_1
+     /*<<random.ml:34:26>>*/  /*<<random.ml:34:4>>*/ caml_ba_set_1
      (s, 0,  /*<<random.ml:34:26>>*/ runtime.caml_int64_or(i1, _a_));
      /*<<random.ml:35:4>>*/ caml_ba_set_1(s, 1, i2);
-    var
-     i3$0 =
-        /*<<random.ml:36:38>>*/  /*<<random.ml:36:30>>*/ caml_notequal
-         (i3, _b_)
-        ? i3
-        : _e_;
+    var i3$0 =  /*<<random.ml:36:30>>*/ caml_notequal(i3, _b_) ? i3 : _e_;
      /*<<random.ml:36:4>>*/ caml_ba_set_1(s, 2, i3$0);
-    var
-     i4$0 =
-        /*<<random.ml:37:38>>*/  /*<<random.ml:37:30>>*/ caml_notequal
-         (i4, _c_)
-        ? i4
-        : _d_;
-     /*<<random.ml:37:55>>*/ return  /*<<random.ml:37:4>>*/ caml_ba_set_1
-            (s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
+    var i4$0 =  /*<<random.ml:37:30>>*/ caml_notequal(i4, _c_) ? i4 : _d_;
+     /*<<random.ml:37:4>>*/ return caml_ba_set_1(s, 3, i4$0) /*<<random.ml:37:55>>*/ ;
    }
    function mk(i1, i2, i3, i4){
     var s =  /*<<random.ml:40:12>>*/ create(0);
@@ -25880,13 +25174,13 @@
      n =  /*<<random.ml:97:4>>*/ seed.length - 1,
      b =  /*<<random.ml:98:12>>*/ caml_create_bytes((n * 8 | 0) + 1 | 0),
      _p_ =  /*<<random.ml:99:4>>*/ n - 1 | 0,
-     _o_ =  /*<<random.ml:98:36>>*/ 0;
-     /*<<random.ml:99:4>>*/ if(_p_ >= 0){
+     _o_ = 0;
+    if(_p_ >= 0){
      var i = _o_;
      for(;;){
       var
        _t_ =
-          /*<<random.ml:100:35>>*/ caml_int64_of_int32
+          /*<<random.ml:100:49>>*/  /*<<random.ml:100:35>>*/ caml_int64_of_int32
           ( /*<<random.ml:100:49>>*/ runtime.caml_check_bound(seed, i)[1 + i]);
        /*<<random.ml:100:6>>*/ caml_call3(Stdlib_Bytes[86], b, i * 8 | 0, _t_);
       var _u_ =  /*<<random.ml:100:58>>*/ i + 1 | 0;
@@ -25902,7 +25196,7 @@
      _q_ =  /*<<random.ml:109:10>>*/ caml_call2(Stdlib_String[64], d2, 8),
      _r_ =  /*<<random.ml:108:10>>*/ caml_call2(Stdlib_String[64], d2, 0),
      _s_ =  /*<<random.ml:107:10>>*/ caml_call2(Stdlib_String[64], d1, 8);
-     /*<<random.ml:106:36>>*/ return set
+     /*<<random.ml:106:10>>*/ return  /*<<random.ml:106:36>>*/ set
             (s,
               /*<<random.ml:106:10>>*/ caml_call2(Stdlib_String[64], d1, 0),
              _s_,
@@ -25915,7 +25209,7 @@
      /*<<random.ml:112:37>>*/ return s;
     /*<<random.ml:112:40>>*/ }
    function make_self_init(param){
-     /*<<random.ml:115:25>>*/ return make
+     /*<<random.ml:115:9>>*/ return  /*<<random.ml:115:25>>*/ make
             ( /*<<random.ml:115:9>>*/ caml_sys_random_seed(0)) /*<<random.ml:115:25>>*/ ;
    }
    var
@@ -25927,7 +25221,7 @@
     cst_Random_int32 = "Random.int32",
     cst_Random_int32_in_range = "Random.int32_in_range";
    function bits(s){
-     /*<<random.ml:129:25>>*/ return caml_int64_to_int32
+     /*<<random.ml:129:17>>*/ return  /*<<random.ml:129:25>>*/ caml_int64_to_int32
             ( /*<<random.ml:129:17>>*/ caml_lxm_next(s))
            & 1073741823 /*<<random.ml:129:25>>*/ ;
     /*<<random.ml:129:40>>*/ }
@@ -25962,14 +25256,12 @@
    function int_in_range_aux(s, min, max, mask, nbits){
     var span =  /*<<random.ml:193:4>>*/ (max - min | 0) + 1 | 0;
      /*<<random.ml:194:4>>*/ if(span <= mask && 0 < span)
-      /*<<random.ml:198:31>>*/ return min
-            +  /*<<random.ml:198:12>>*/ int_aux(s, span, mask)
-            | 0 /*<<random.ml:198:31>>*/ ;
+      /*<<random.ml:198:12>>*/ return min + int_aux(s, span, mask) | 0 /*<<random.ml:198:31>>*/ ;
      /*<<random.ml:201:6>>*/ for(;;){
      var
       drop =  /*<<random.ml:184:4>>*/ Stdlib_Sys[10] - nbits | 0,
       r =
-         /*<<random.ml:186:35>>*/ caml_int64_to_int32
+         /*<<random.ml:186:27>>*/  /*<<random.ml:186:35>>*/ caml_int64_to_int32
          ( /*<<random.ml:186:27>>*/ caml_lxm_next(s))
         << drop
         >> drop;
@@ -25990,50 +25282,41 @@
             (s, min, max, Stdlib[19], Stdlib_Sys[10]) /*<<random.ml:219:68>>*/ ;
    }
    function bits32(s){
-     /*<<random.ml:223:27>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
+     /*<<random.ml:223:19>>*/ return  /*<<random.ml:223:4>>*/ caml_int64_to_int32
             ( /*<<random.ml:223:19>>*/ caml_lxm_next(s)) /*<<random.ml:223:27>>*/ ;
    }
    function int32aux(s, n){
      /*<<random.ml:227:38>>*/ for(;;){
      var
-      r =
-         /*<<random.ml:227:12>>*/  /*<<random.ml:227:38>>*/ bits32(s) >>> 1
-        | 0,
+      r = bits32(s) >>> 1 | 0,
       v =  /*<<random.ml:228:12>>*/ caml_mod(r, n);
-      /*<<random.ml:230:46>>*/ if
-      (!
-        /*<<random.ml:230:14>>*/ caml_greaterthan
-        (r - v | 0, (Stdlib_Int32[9] - n | 0) + 1 | 0))
+      /*<<random.ml:230:14>>*/ if
+      (! caml_greaterthan(r - v | 0, (Stdlib_Int32[9] - n | 0) + 1 | 0))
        /*<<random.ml:232:9>>*/ return v;
     }
     /*<<random.ml:232:10>>*/ }
    function int32(s, bound){
-     /*<<random.ml:235:18>>*/ return  /*<<random.ml:235:7>>*/ caml_lessequal
-             (bound, 0)
+     /*<<random.ml:235:7>>*/ return caml_lessequal(bound, 0)
             ?  /*<<random.ml:236:9>>*/ caml_call1(Stdlib[1], cst_Random_int32)
             :  /*<<random.ml:237:9>>*/ int32aux(s, bound) /*<<random.ml:237:25>>*/ ;
    }
    function int32_in_range(s, min, max){
-     /*<<random.ml:246:16>>*/ if
-     ( /*<<random.ml:246:7>>*/ caml_greaterthan(min, max))
+     /*<<random.ml:246:7>>*/ if(caml_greaterthan(min, max))
       /*<<random.ml:247:6>>*/ return caml_call1
              (Stdlib[1], cst_Random_int32_in_range) /*<<random.ml:254:39>>*/ ;
     var
      span =
         /*<<random.ml:249:17>>*/ caml_call1(Stdlib_Int32[6], max - min | 0);
-     /*<<random.ml:251:27>>*/ if
-     (!  /*<<random.ml:251:9>>*/ caml_lessequal(span, Stdlib_Int32[1]))
-      /*<<random.ml:254:39>>*/ return min
-            +  /*<<random.ml:254:22>>*/ int32aux(s, span)
-            | 0 /*<<random.ml:254:39>>*/ ;
+     /*<<random.ml:251:9>>*/ if(! caml_lessequal(span, Stdlib_Int32[1]))
+      /*<<random.ml:254:22>>*/ return min + int32aux(s, span) | 0 /*<<random.ml:254:39>>*/ ;
      /*<<random.ml:252:8>>*/ for(;;){
      var
       r =
-         /*<<random.ml:242:12>>*/ caml_int64_to_int32
+         /*<<random.ml:242:27>>*/  /*<<random.ml:242:12>>*/ caml_int64_to_int32
          ( /*<<random.ml:242:27>>*/ caml_lxm_next(s));
-      /*<<random.ml:243:14>>*/ if
+      /*<<random.ml:243:7>>*/ if
       (!
-        /*<<random.ml:243:7>>*/ caml_lessthan(r, min)
+       caml_lessthan(r, min)
        && !  /*<<random.ml:243:18>>*/ caml_greaterthan(r, max))
        /*<<random.ml:243:67>>*/ return r;
     }
@@ -26048,12 +25331,12 @@
      /*<<random.ml:262:38>>*/ for(;;){
      var
       r =
-         /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
+         /*<<random.ml:258:4>>*/  /*<<random.ml:262:12>>*/ caml_int64_shift_right_unsigne
          ( /*<<random.ml:258:4>>*/ caml_lxm_next(s), 1),
       v =  /*<<random.ml:263:12>>*/ runtime.caml_int64_mod(r, n);
-      /*<<random.ml:265:46>>*/ if
+      /*<<random.ml:265:14>>*/ if
       (!
-        /*<<random.ml:265:14>>*/ caml_greaterthan
+       caml_greaterthan
         (caml_int64_sub(r, v),
           /*<<random.ml:265:24>>*/ caml_int64_add
           ( /*<<random.ml:265:28>>*/ caml_int64_sub(Stdlib_Int64[9], n), _f_)))
@@ -26061,29 +25344,26 @@
     }
     /*<<random.ml:267:10>>*/ }
    function int64(s, bound){
-     /*<<random.ml:270:18>>*/ return  /*<<random.ml:270:7>>*/ caml_lessequal
-             (bound, _g_)
+     /*<<random.ml:270:7>>*/ return caml_lessequal(bound, _g_)
             ?  /*<<random.ml:271:9>>*/ caml_call1(Stdlib[1], cst_Random_int64)
             :  /*<<random.ml:272:9>>*/ int64aux(s, bound) /*<<random.ml:272:25>>*/ ;
    }
    function int64_in_range(s, min, max){
-     /*<<random.ml:281:16>>*/ if
-     ( /*<<random.ml:281:7>>*/ caml_greaterthan(min, max))
+     /*<<random.ml:281:7>>*/ if(caml_greaterthan(min, max))
       /*<<random.ml:282:6>>*/ return caml_call1
              (Stdlib[1], cst_Random_int64_in_range) /*<<random.ml:289:39>>*/ ;
     var
      span =
-        /*<<random.ml:284:17>>*/ caml_call1
+        /*<<random.ml:284:28>>*/  /*<<random.ml:284:17>>*/ caml_call1
         (Stdlib_Int64[6],  /*<<random.ml:284:28>>*/ caml_int64_sub(max, min));
-     /*<<random.ml:286:27>>*/ if
-     (!  /*<<random.ml:286:9>>*/ caml_lessequal(span, Stdlib_Int64[1]))
-      /*<<random.ml:289:39>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
+     /*<<random.ml:286:9>>*/ if(! caml_lessequal(span, Stdlib_Int64[1]))
+      /*<<random.ml:289:22>>*/ return  /*<<random.ml:289:8>>*/ caml_int64_add
              (min,  /*<<random.ml:289:22>>*/ int64aux(s, span)) /*<<random.ml:289:39>>*/ ;
      /*<<random.ml:287:8>>*/ for(;;){
      var r =  /*<<random.ml:277:12>>*/ caml_lxm_next(s);
-      /*<<random.ml:278:14>>*/ if
+      /*<<random.ml:278:7>>*/ if
       (!
-        /*<<random.ml:278:7>>*/ caml_lessthan(r, min)
+       caml_lessthan(r, min)
        && !  /*<<random.ml:278:18>>*/ caml_greaterthan(r, max))
        /*<<random.ml:278:67>>*/ return r;
     }
@@ -26100,23 +25380,22 @@
       32 === Stdlib_Nativeint[9]
        ? function
         (s){
-          /*<<random.ml:294:47>>*/ return  /*<<random.ml:294:37>>*/ bits32(s) /*<<random.ml:294:47>>*/ ;
+          /*<<random.ml:294:37>>*/ return bits32(s) /*<<random.ml:294:47>>*/ ;
         }
        : function
         (s){
-          /*<<random.ml:295:47>>*/ return  /*<<random.ml:295:18>>*/ caml_int64_to_int32
+          /*<<random.ml:258:4>>*/ return  /*<<random.ml:295:18>>*/ caml_int64_to_int32
                  ( /*<<random.ml:258:4>>*/ caml_lxm_next(s)) /*<<random.ml:295:47>>*/ ;
         },
     nativeint =
        /*<<?>>*/ 32 === Stdlib_Nativeint[9]
        ? function
         (s, bound){
-          /*<<random.ml:300:79>>*/ return  /*<<random.ml:300:43>>*/ int32
-                 (s, bound) /*<<random.ml:300:79>>*/ ;
+          /*<<random.ml:300:43>>*/ return int32(s, bound) /*<<random.ml:300:79>>*/ ;
         }
        : function
         (s, bound){
-          /*<<random.ml:301:79>>*/ return  /*<<random.ml:301:24>>*/ caml_int64_to_int32
+          /*<<random.ml:301:52>>*/ return  /*<<random.ml:301:24>>*/ caml_int64_to_int32
                  ( /*<<random.ml:301:43>>*/ int64
                    (s,  /*<<random.ml:301:52>>*/ caml_int64_of_int32(bound))) /*<<random.ml:301:79>>*/ ;
         },
@@ -26124,12 +25403,11 @@
        /*<<?>>*/ 32 === Stdlib_Nativeint[9]
        ? function
         (s, min, max){
-          /*<<random.ml:308:68>>*/ return  /*<<random.ml:307:25>>*/ int32_in_range
-                 (s, min, max) /*<<random.ml:308:68>>*/ ;
+          /*<<random.ml:307:25>>*/ return int32_in_range(s, min, max) /*<<random.ml:308:68>>*/ ;
         }
        : function
         (s, min, max){
-          /*<<random.ml:311:68>>*/ return  /*<<random.ml:310:6>>*/ caml_int64_to_int32
+          /*<<random.ml:311:13>>*/ return  /*<<random.ml:310:6>>*/ caml_int64_to_int32
                  ( /*<<random.ml:310:25>>*/ int64_in_range
                    (s,
                      /*<<random.ml:311:13>>*/ caml_int64_of_int32(min),
@@ -26140,17 +25418,14 @@
      var
       b =  /*<<random.ml:316:12>>*/ caml_lxm_next(s),
       n =  /*<<random.ml:317:12>>*/ caml_int64_shift_right_unsigne(b, 11);
-      /*<<random.ml:318:14>>*/ if
-      ( /*<<random.ml:318:7>>*/ caml_notequal(n, _h_))
-       /*<<random.ml:321:41>>*/ return  /*<<random.ml:318:20>>*/ runtime.caml_int64_to_float
-              (n)
+      /*<<random.ml:318:7>>*/ if(caml_notequal(n, _h_))
+       /*<<random.ml:318:20>>*/ return runtime.caml_int64_to_float(n)
              * 1.1102230246251565e-16
              * bound /*<<random.ml:321:41>>*/ ;
     }
    }
    function bool(s){
-     /*<<random.ml:324:26>>*/ return  /*<<random.ml:324:15>>*/ caml_lessthan
-            (caml_lxm_next(s), _i_) /*<<random.ml:324:26>>*/ ;
+     /*<<random.ml:324:15>>*/ return caml_lessthan(caml_lxm_next(s), _i_) /*<<random.ml:324:26>>*/ ;
    }
    function split(s){
     var
@@ -26168,81 +25443,81 @@
        /*<<random.ml:341:2>>*/ caml_call2
        (Stdlib_Domain[10][1], [0, split], mk_default);
    function bits$0(param){
-     /*<<random.ml:343:52>>*/ return bits
+     /*<<random.ml:343:25>>*/ return  /*<<random.ml:343:52>>*/ bits
             ( /*<<random.ml:343:25>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:343:52>>*/ ;
    }
    function int$1(bound){
-     /*<<random.ml:344:53>>*/ return int$0
+     /*<<random.ml:344:26>>*/ return  /*<<random.ml:344:53>>*/ int$0
             ( /*<<random.ml:344:26>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:344:59>>*/ ;
    }
    function full_int$0(bound){
-     /*<<random.ml:345:63>>*/ return full_int
+     /*<<random.ml:345:36>>*/ return  /*<<random.ml:345:63>>*/ full_int
             ( /*<<random.ml:345:36>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:345:69>>*/ ;
    }
    function int_in_range$0(min, max){
-     /*<<random.ml:347:48>>*/ return int_in_range
+     /*<<random.ml:347:21>>*/ return  /*<<random.ml:347:48>>*/ int_in_range
             ( /*<<random.ml:347:21>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:347:58>>*/ ;
    }
    function int32$0(bound){
-     /*<<random.ml:348:57>>*/ return int32
+     /*<<random.ml:348:30>>*/ return  /*<<random.ml:348:57>>*/ int32
             ( /*<<random.ml:348:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:348:63>>*/ ;
    }
    function int32_in_range$0(min, max){
-     /*<<random.ml:350:50>>*/ return int32_in_range
+     /*<<random.ml:350:23>>*/ return  /*<<random.ml:350:50>>*/ int32_in_range
             ( /*<<random.ml:350:23>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:350:60>>*/ ;
    }
    function nativeint$0(bound){
-     /*<<random.ml:351:65>>*/ return nativeint
+     /*<<random.ml:351:38>>*/ return  /*<<random.ml:351:65>>*/ nativeint
             ( /*<<random.ml:351:38>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:351:71>>*/ ;
    }
    function nativeint_in_range$0(min, max){
-     /*<<random.ml:353:54>>*/ return nativeint_in_range
+     /*<<random.ml:353:27>>*/ return  /*<<random.ml:353:54>>*/ nativeint_in_range
             ( /*<<random.ml:353:27>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:353:64>>*/ ;
    }
    function int64$0(bound){
-     /*<<random.ml:354:57>>*/ return int64
+     /*<<random.ml:354:30>>*/ return  /*<<random.ml:354:57>>*/ int64
             ( /*<<random.ml:354:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              bound) /*<<random.ml:354:63>>*/ ;
    }
    function int64_in_range$0(min, max){
-     /*<<random.ml:356:50>>*/ return int64_in_range
+     /*<<random.ml:356:23>>*/ return  /*<<random.ml:356:50>>*/ int64_in_range
             ( /*<<random.ml:356:23>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              min,
              max) /*<<random.ml:356:60>>*/ ;
    }
    function float$1(scale){
-     /*<<random.ml:357:57>>*/ return float$0
+     /*<<random.ml:357:30>>*/ return  /*<<random.ml:357:57>>*/ float$0
             ( /*<<random.ml:357:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              scale) /*<<random.ml:357:63>>*/ ;
    }
    function bool$0(param){
-     /*<<random.ml:358:52>>*/ return bool
+     /*<<random.ml:358:25>>*/ return  /*<<random.ml:358:52>>*/ bool
             ( /*<<random.ml:358:25>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:358:52>>*/ ;
    }
    function bits32$0(param){
-     /*<<random.ml:359:56>>*/ return bits32
+     /*<<random.ml:359:29>>*/ return  /*<<random.ml:359:56>>*/ bits32
             ( /*<<random.ml:359:29>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:359:56>>*/ ;
    }
@@ -26250,15 +25525,15 @@
     var
      s =
         /*<<random.ml:360:29>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:258:10>>*/ return  /*<<random.ml:258:4>>*/ caml_lxm_next(s) /*<<random.ml:360:56>>*/ ;
+     /*<<random.ml:258:4>>*/ return caml_lxm_next(s) /*<<random.ml:360:56>>*/ ;
    }
    function nativebits$0(param){
-     /*<<random.ml:361:64>>*/ return nativebits
+     /*<<random.ml:361:37>>*/ return  /*<<random.ml:361:64>>*/ nativebits
             ( /*<<random.ml:361:37>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:361:64>>*/ ;
    }
    function full_init(seed){
-     /*<<random.ml:363:61>>*/ return reinit
+     /*<<random.ml:363:34>>*/ return  /*<<random.ml:363:61>>*/ reinit
             ( /*<<random.ml:363:34>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key),
              seed) /*<<random.ml:363:66>>*/ ;
@@ -26267,16 +25542,16 @@
      /*<<random.ml:364:16>>*/ return full_init([0, seed]) /*<<random.ml:364:36>>*/ ;
    }
    function self_init(param){
-     /*<<random.ml:365:44>>*/ return full_init
+     /*<<random.ml:365:29>>*/ return  /*<<random.ml:365:44>>*/ full_init
             ( /*<<random.ml:365:29>>*/ caml_sys_random_seed(0)) /*<<random.ml:365:44>>*/ ;
    }
    function split$0(param){
-     /*<<random.ml:369:54>>*/ return split
+     /*<<random.ml:369:27>>*/ return  /*<<random.ml:369:54>>*/ split
             ( /*<<random.ml:369:27>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:369:54>>*/ ;
    }
    function get_state(param){
-     /*<<random.ml:373:57>>*/ return copy
+     /*<<random.ml:373:30>>*/ return  /*<<random.ml:373:57>>*/ copy
             ( /*<<random.ml:373:30>>*/ caml_call1
               (Stdlib_Domain[10][2], random_key)) /*<<random.ml:373:57>>*/ ;
    }
@@ -26284,8 +25559,7 @@
     var
      dst =
         /*<<random.ml:374:31>>*/ caml_call1(Stdlib_Domain[10][2], random_key);
-     /*<<random.ml:86:23>>*/ return  /*<<random.ml:86:4>>*/ caml_ba_blit
-            (src, dst) /*<<random.ml:374:60>>*/ ;
+     /*<<random.ml:86:4>>*/ return caml_ba_blit(src, dst) /*<<random.ml:374:60>>*/ ;
    }
    var
     Stdlib_Random =
@@ -26462,11 +25736,7 @@
          (Stdlib_Random[19][4], _ak_);
     else
      var seed =  /*<<hashtbl.ml:76:68>>*/ 0;
-     /*<<hashtbl.ml:78:70>>*/ return [0,
-            0,
-             /*<<hashtbl.ml:78:52>>*/ caml_make_vect(s, 0),
-            seed,
-            s] /*<<hashtbl.ml:78:70>>*/ ;
+     /*<<hashtbl.ml:78:52>>*/ return [0, 0, caml_make_vect(s, 0), seed, s] /*<<hashtbl.ml:78:70>>*/ ;
     /*<<hashtbl.ml:78:72>>*/ }
    function clear(h){
     var _aj_ =  /*<<hashtbl.ml:81:2>>*/ 0 < h[1] ? 1 : 0;
@@ -26484,7 +25754,7 @@
      (4 <= h.length - 1
       && len !==  /*<<hashtbl.ml:89:13>>*/ caml_call1(Stdlib[18], h[4])){
       /*<<hashtbl.ml:91:7>>*/ h[1] = 0;
-      /*<<hashtbl.ml:93:51>>*/ h[2] =
+      /*<<hashtbl.ml:93:25>>*/ h[2] =
        /*<<hashtbl.ml:93:14>>*/ caml_make_vect
        ( /*<<hashtbl.ml:93:25>>*/ caml_call1(Stdlib[18], h[4]), 0);
       /*<<hashtbl.ml:93:51>>*/ return 0;
@@ -26515,11 +25785,9 @@
     /*<<hashtbl.ml:111:7>>*/ }
    function copy(h){
     var
-     _ag_ =  /*<<hashtbl.ml:113:13>>*/ h[4],
+     _ag_ =  /*<<hashtbl.ml:113:29>>*/ h[4],
      _ah_ = h[3],
-     _ai_ =
-        /*<<hashtbl.ml:113:29>>*/ caml_call2
-        (Stdlib_Array[14], copy_bucketlist, h[2]);
+     _ai_ = caml_call2(Stdlib_Array[14], copy_bucketlist, h[2]);
      /*<<hashtbl.ml:113:61>>*/ return [0, h[1], _ai_, _ah_, _ag_];
     /*<<hashtbl.ml:113:63>>*/ }
    function length(h){
@@ -26592,11 +25860,9 @@
     if(! ___) return ___;
     var
      ndata =  /*<<hashtbl.ml:150:16>>*/ caml_make_vect(nsize, 0),
-     inplace =
-        /*<<hashtbl.ml:151:43>>*/ 1
-       -  /*<<hashtbl.ml:151:22>>*/ ongoing_traversal(h);
+     inplace =  /*<<hashtbl.ml:151:22>>*/ 1 - ongoing_traversal(h);
      /*<<hashtbl.ml:152:4>>*/ h[2] = ndata;
-     /*<<hashtbl.ml:153:35>>*/ return insert_all_buckets
+     /*<<hashtbl.ml:153:23>>*/ return  /*<<hashtbl.ml:153:35>>*/ insert_all_buckets
             ( /*<<hashtbl.ml:153:23>>*/ caml_call1(indexfun, h),
              inplace,
              odata,
@@ -26708,8 +25974,8 @@
       d = h[2],
       accu$1 =  /*<<hashtbl.ml:218:4>>*/ [0, init],
       _N_ =  /*<<hashtbl.ml:219:4>>*/ d.length - 2 | 0,
-      _M_ =  /*<<hashtbl.ml:218:4>>*/ 0;
-      /*<<hashtbl.ml:219:4>>*/ if(_N_ >= 0){
+      _M_ = 0;
+     if(_N_ >= 0){
       var i = _M_;
       for(;;){
        var
@@ -26773,8 +26039,8 @@
      (Stdlib_Array[12],
       function(b){
        var l =  /*<<hashtbl.ml:245:14>>*/ bucket_length(0, b);
-        /*<<hashtbl.ml:246:6>>*/ histo[1 + l] =
-         /*<<hashtbl.ml:246:19>>*/ caml_check_bound(histo, l)[1 + l] + 1 | 0;
+        /*<<hashtbl.ml:246:19>>*/ histo[1 + l] =
+        caml_check_bound(histo, l)[1 + l] + 1 | 0;
         /*<<hashtbl.ml:246:32>>*/ return 0;
       },
       h[2]);
@@ -26820,18 +26086,16 @@
    function MakeSeeded(H){
     function key_index(h, key){
      var _C_ =  /*<<hashtbl.ml:357:6>>*/ h[2].length - 2 | 0;
-      /*<<hashtbl.ml:357:32>>*/ return  /*<<hashtbl.ml:357:6>>*/ caml_call2
-             (H[2], h[3], key)
-            & _C_ /*<<hashtbl.ml:357:32>>*/ ;
+     return caml_call2(H[2], h[3], key) & _C_ /*<<hashtbl.ml:357:32>>*/ ;
      /*<<hashtbl.ml:357:63>>*/ }
     function add(h, key, data){
      var
       i =  /*<<hashtbl.ml:360:14>>*/ key_index(h, key),
       bucket =
-         /*<<hashtbl.ml:361:50>>*/ [0,
+         /*<<hashtbl.ml:361:40>>*/ [0,
          key,
          data,
-          /*<<hashtbl.ml:361:40>>*/ caml_check_bound(h[2], i)[1 + i]];
+         caml_check_bound(h[2], i)[1 + i]];
       /*<<hashtbl.ml:362:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
       /*<<hashtbl.ml:362:26>>*/ h[1] = h[1] + 1 | 0;
      var _B_ =  /*<<hashtbl.ml:364:6>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
@@ -26847,8 +26111,7 @@
        /*<<hashtbl.ml:366:26>>*/ if(! prec)
         /*<<hashtbl.ml:368:10>>*/ return 0;
       var k =  /*<<hashtbl.ml:366:26>>*/ prec[1], next = prec[3];
-       /*<<hashtbl.ml:370:26>>*/ if
-       ( /*<<hashtbl.ml:370:13>>*/ caml_call2(H[1], k, key)){
+       /*<<hashtbl.ml:370:13>>*/ if(caml_call2(H[1], k, key)){
         /*<<hashtbl.ml:371:15>>*/ h[1] = h[1] - 1 | 0;
         /*<<hashtbl.ml:373:12>>*/ return prec$0
                ? (prec$0[3] = next, 0)
@@ -26873,8 +26136,7 @@
       k1 =  /*<<hashtbl.ml:390:36>>*/ match[1],
       d1 = match[2],
       next1 = match[3];
-      /*<<hashtbl.ml:393:27>>*/ if
-      ( /*<<hashtbl.ml:393:13>>*/ caml_call2(H[1], key, k1))
+      /*<<hashtbl.ml:393:13>>*/ if(caml_call2(H[1], key, k1))
        /*<<hashtbl.ml:393:33>>*/ return d1;
       /*<<hashtbl.ml:394:10>>*/ if(! next1)
        /*<<hashtbl.ml:395:21>>*/ throw caml_maybe_attach_backtrace
@@ -26883,8 +26145,7 @@
       k2 =  /*<<hashtbl.ml:394:10>>*/ next1[1],
       d2 = next1[2],
       next2 = next1[3];
-      /*<<hashtbl.ml:397:31>>*/ if
-      ( /*<<hashtbl.ml:397:17>>*/ caml_call2(H[1], key, k2))
+      /*<<hashtbl.ml:397:17>>*/ if(caml_call2(H[1], key, k2))
        /*<<hashtbl.ml:397:37>>*/ return d2;
       /*<<hashtbl.ml:398:14>>*/ if(! next2)
        /*<<hashtbl.ml:399:25>>*/ throw caml_maybe_attach_backtrace
@@ -26893,8 +26154,7 @@
       k3 =  /*<<hashtbl.ml:398:14>>*/ next2[1],
       d3 = next2[2],
       next3 = next2[3];
-      /*<<hashtbl.ml:401:35>>*/ if
-      ( /*<<hashtbl.ml:401:21>>*/ caml_call2(H[1], key, k3))
+      /*<<hashtbl.ml:401:21>>*/ if(caml_call2(H[1], key, k3))
        /*<<hashtbl.ml:401:41>>*/ return d3;
      var param =  /*<<hashtbl.ml:401:49>>*/ next3;
      for(;;){
@@ -26905,8 +26165,7 @@
        k =  /*<<hashtbl.ml:383:21>>*/ param[1],
        data = param[2],
        next = param[3];
-       /*<<hashtbl.ml:387:26>>*/ if
-       ( /*<<hashtbl.ml:387:13>>*/ caml_call2(H[1], key, k))
+       /*<<hashtbl.ml:387:13>>*/ if(caml_call2(H[1], key, k))
         /*<<hashtbl.ml:387:32>>*/ return data;
        /*<<hashtbl.ml:387:42>>*/ param = next;
      }
@@ -26921,8 +26180,7 @@
       k1 =  /*<<hashtbl.ml:410:36>>*/ match[1],
       d1 = match[2],
       next1 = match[3];
-      /*<<hashtbl.ml:413:27>>*/ if
-      ( /*<<hashtbl.ml:413:13>>*/ caml_call2(H[1], key, k1))
+      /*<<hashtbl.ml:413:13>>*/ if(caml_call2(H[1], key, k1))
        /*<<hashtbl.ml:413:33>>*/ return [0, d1];
       /*<<hashtbl.ml:414:10>>*/ if(! next1)
        /*<<hashtbl.ml:415:21>>*/ return 0;
@@ -26930,8 +26188,7 @@
       k2 =  /*<<hashtbl.ml:414:10>>*/ next1[1],
       d2 = next1[2],
       next2 = next1[3];
-      /*<<hashtbl.ml:417:31>>*/ if
-      ( /*<<hashtbl.ml:417:17>>*/ caml_call2(H[1], key, k2))
+      /*<<hashtbl.ml:417:17>>*/ if(caml_call2(H[1], key, k2))
        /*<<hashtbl.ml:417:37>>*/ return [0, d2];
       /*<<hashtbl.ml:418:14>>*/ if(! next2)
        /*<<hashtbl.ml:419:25>>*/ return 0;
@@ -26939,8 +26196,7 @@
       k3 =  /*<<hashtbl.ml:418:14>>*/ next2[1],
       d3 = next2[2],
       next3 = next2[3];
-      /*<<hashtbl.ml:421:35>>*/ if
-      ( /*<<hashtbl.ml:421:21>>*/ caml_call2(H[1], key, k3))
+      /*<<hashtbl.ml:421:21>>*/ if(caml_call2(H[1], key, k3))
        /*<<hashtbl.ml:421:41>>*/ return [0, d3];
      var param =  /*<<hashtbl.ml:421:54>>*/ next3;
      for(;;){
@@ -26950,8 +26206,7 @@
        k =  /*<<hashtbl.ml:403:25>>*/ param[1],
        data = param[2],
        next = param[3];
-       /*<<hashtbl.ml:407:26>>*/ if
-       ( /*<<hashtbl.ml:407:13>>*/ caml_call2(H[1], key, k))
+       /*<<hashtbl.ml:407:13>>*/ if(caml_call2(H[1], key, k))
         /*<<hashtbl.ml:407:32>>*/ return [0, data];
        /*<<hashtbl.ml:407:47>>*/ param = next;
      }
@@ -26970,9 +26225,7 @@
        k =  /*<<hashtbl.ml:424:47>>*/ param[1],
        d = param[2],
        next = param[3];
-       /*<<hashtbl.ml:428:26>>*/ if
-       ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k, key))
-       break;
+       /*<<hashtbl.ml:428:13>>*/ if(caml_call2(H[1], k, key)) break;
        /*<<hashtbl.ml:430:15>>*/ param = next;
      }
      var
@@ -26989,8 +26242,7 @@
        k$0 =  /*<<hashtbl.ml:424:47>>*/ param$0[1],
        d$0 = param$0[2],
        next$0 = param$0[3];
-       /*<<hashtbl.ml:428:26>>*/ if
-       ( /*<<hashtbl.ml:428:13>>*/ caml_call2(H[1], k$0, key)){
+       /*<<hashtbl.ml:428:13>>*/ if(caml_call2(H[1], k$0, key)){
        var dst$0 =  /*<<hashtbl.ml:429:15>>*/ [0, d$0, 24029];
        dst[1 + offset] = dst$0;
        dst = dst$0;
@@ -27009,8 +26261,10 @@
      for(;;){
        /*<<hashtbl.ml:433:27>>*/ if(slot){
        var k = slot[1], next = slot[3];
-        /*<<hashtbl.ml:437:26>>*/ if
-        (!  /*<<hashtbl.ml:437:13>>*/ caml_call2(H[1], k, key)){ /*<<hashtbl.ml:439:15>>*/ slot = next; continue;}
+        /*<<hashtbl.ml:437:13>>*/ if(! caml_call2(H[1], k, key)){
+         /*<<hashtbl.ml:439:15>>*/ slot = next;
+        continue;
+       }
         /*<<hashtbl.ml:438:15>>*/ slot[1] = key;
         /*<<hashtbl.ml:438:33>>*/ slot[2] = data;
        var _v_ =  /*<<hashtbl.ml:438:52>>*/ 0;
@@ -27157,16 +26411,13 @@
             of_seq];
    }
    function hash(x){
-     /*<<hashtbl.ml:501:41>>*/ return  /*<<hashtbl.ml:501:13>>*/ caml_hash
-            (10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
+     /*<<hashtbl.ml:501:13>>*/ return caml_hash(10, 100, 0, x) /*<<hashtbl.ml:501:41>>*/ ;
    }
    function hash_param(n1, n2, x){
-     /*<<hashtbl.ml:502:52>>*/ return  /*<<hashtbl.ml:502:25>>*/ caml_hash
-            (n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
+     /*<<hashtbl.ml:502:25>>*/ return caml_hash(n1, n2, 0, x) /*<<hashtbl.ml:502:52>>*/ ;
    }
    function seeded_hash(seed, x){
-     /*<<hashtbl.ml:503:56>>*/ return  /*<<hashtbl.ml:503:25>>*/ caml_hash
-            (10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
+     /*<<hashtbl.ml:503:25>>*/ return caml_hash(10, 100, seed, x) /*<<hashtbl.ml:503:56>>*/ ;
    }
    function key_index(h, key){
      /*<<hashtbl.ml:506:2>>*/ return 4 <= h.length - 1
@@ -27180,10 +26431,10 @@
     var
      i =  /*<<hashtbl.ml:511:10>>*/ key_index(h, key),
      bucket =
-        /*<<hashtbl.ml:512:46>>*/ [0,
+        /*<<hashtbl.ml:512:36>>*/ [0,
         key,
         data,
-         /*<<hashtbl.ml:512:36>>*/ caml_check_bound(h[2], i)[1 + i]];
+        caml_check_bound(h[2], i)[1 + i]];
      /*<<hashtbl.ml:513:2>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
      /*<<hashtbl.ml:513:22>>*/ h[1] = h[1] + 1 | 0;
     var _r_ =  /*<<hashtbl.ml:515:2>>*/ h[2].length - 1 << 1 < h[1] ? 1 : 0;
@@ -27198,8 +26449,7 @@
     for(;;){
       /*<<hashtbl.ml:517:22>>*/ if(! prec)  /*<<hashtbl.ml:519:6>>*/ return 0;
      var k =  /*<<hashtbl.ml:517:22>>*/ prec[1], next = prec[3];
-      /*<<hashtbl.ml:521:22>>*/ if
-      (0 ===  /*<<hashtbl.ml:521:9>>*/ caml_compare(k, key)){
+      /*<<hashtbl.ml:521:9>>*/ if(0 === caml_compare(k, key)){
        /*<<hashtbl.ml:522:11>>*/ h[1] = h[1] - 1 | 0;
        /*<<hashtbl.ml:524:8>>*/ return prec$0
               ? (prec$0[3] = next, 0)
@@ -27224,8 +26474,7 @@
      k1 =  /*<<hashtbl.ml:541:32>>*/ match[1],
      d1 = match[2],
      next1 = match[3];
-     /*<<hashtbl.ml:544:23>>*/ if
-     (0 ===  /*<<hashtbl.ml:544:9>>*/ caml_compare(key, k1))
+     /*<<hashtbl.ml:544:9>>*/ if(0 === caml_compare(key, k1))
       /*<<hashtbl.ml:544:33>>*/ return d1;
      /*<<hashtbl.ml:545:6>>*/ if(! next1)
       /*<<hashtbl.ml:546:17>>*/ throw caml_maybe_attach_backtrace
@@ -27234,8 +26483,7 @@
      k2 =  /*<<hashtbl.ml:545:6>>*/ next1[1],
      d2 = next1[2],
      next2 = next1[3];
-     /*<<hashtbl.ml:548:27>>*/ if
-     (0 ===  /*<<hashtbl.ml:548:13>>*/ caml_compare(key, k2))
+     /*<<hashtbl.ml:548:13>>*/ if(0 === caml_compare(key, k2))
       /*<<hashtbl.ml:548:37>>*/ return d2;
      /*<<hashtbl.ml:549:10>>*/ if(! next2)
       /*<<hashtbl.ml:550:21>>*/ throw caml_maybe_attach_backtrace
@@ -27244,8 +26492,7 @@
      k3 =  /*<<hashtbl.ml:549:10>>*/ next2[1],
      d3 = next2[2],
      next3 = next2[3];
-     /*<<hashtbl.ml:552:31>>*/ if
-     (0 ===  /*<<hashtbl.ml:552:17>>*/ caml_compare(key, k3))
+     /*<<hashtbl.ml:552:17>>*/ if(0 === caml_compare(key, k3))
       /*<<hashtbl.ml:552:41>>*/ return d3;
     var param =  /*<<hashtbl.ml:552:49>>*/ next3;
     for(;;){
@@ -27256,8 +26503,7 @@
       k =  /*<<hashtbl.ml:534:17>>*/ param[1],
       data = param[2],
       next = param[3];
-      /*<<hashtbl.ml:538:22>>*/ if
-      (0 ===  /*<<hashtbl.ml:538:9>>*/ caml_compare(key, k))
+      /*<<hashtbl.ml:538:9>>*/ if(0 === caml_compare(key, k))
        /*<<hashtbl.ml:538:32>>*/ return data;
       /*<<hashtbl.ml:538:42>>*/ param = next;
     }
@@ -27272,16 +26518,14 @@
      k1 =  /*<<hashtbl.ml:561:32>>*/ match[1],
      d1 = match[2],
      next1 = match[3];
-     /*<<hashtbl.ml:564:23>>*/ if
-     (0 ===  /*<<hashtbl.ml:564:9>>*/ caml_compare(key, k1))
+     /*<<hashtbl.ml:564:9>>*/ if(0 === caml_compare(key, k1))
       /*<<hashtbl.ml:564:33>>*/ return [0, d1];
      /*<<hashtbl.ml:565:6>>*/ if(! next1)  /*<<hashtbl.ml:566:17>>*/ return 0;
     var
      k2 =  /*<<hashtbl.ml:565:6>>*/ next1[1],
      d2 = next1[2],
      next2 = next1[3];
-     /*<<hashtbl.ml:568:27>>*/ if
-     (0 ===  /*<<hashtbl.ml:568:13>>*/ caml_compare(key, k2))
+     /*<<hashtbl.ml:568:13>>*/ if(0 === caml_compare(key, k2))
       /*<<hashtbl.ml:568:37>>*/ return [0, d2];
      /*<<hashtbl.ml:569:10>>*/ if(! next2)
       /*<<hashtbl.ml:570:21>>*/ return 0;
@@ -27289,8 +26533,7 @@
      k3 =  /*<<hashtbl.ml:569:10>>*/ next2[1],
      d3 = next2[2],
      next3 = next2[3];
-     /*<<hashtbl.ml:572:31>>*/ if
-     (0 ===  /*<<hashtbl.ml:572:17>>*/ caml_compare(key, k3))
+     /*<<hashtbl.ml:572:17>>*/ if(0 === caml_compare(key, k3))
       /*<<hashtbl.ml:572:41>>*/ return [0, d3];
     var param =  /*<<hashtbl.ml:572:54>>*/ next3;
     for(;;){
@@ -27300,8 +26543,7 @@
       k =  /*<<hashtbl.ml:554:21>>*/ param[1],
       data = param[2],
       next = param[3];
-      /*<<hashtbl.ml:558:22>>*/ if
-      (0 ===  /*<<hashtbl.ml:558:9>>*/ caml_compare(key, k))
+      /*<<hashtbl.ml:558:9>>*/ if(0 === caml_compare(key, k))
        /*<<hashtbl.ml:558:32>>*/ return [0, data];
       /*<<hashtbl.ml:558:47>>*/ param = next;
     }
@@ -27320,9 +26562,7 @@
       k =  /*<<hashtbl.ml:575:43>>*/ param[1],
       data = param[2],
       next = param[3];
-      /*<<hashtbl.ml:579:22>>*/ if
-      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k, key))
-      break;
+      /*<<hashtbl.ml:579:9>>*/ if(0 === caml_compare(k, key)) break;
       /*<<hashtbl.ml:581:11>>*/ param = next;
     }
     var
@@ -27339,8 +26579,7 @@
       k$0 =  /*<<hashtbl.ml:575:43>>*/ param$0[1],
       data$0 = param$0[2],
       next$0 = param$0[3];
-      /*<<hashtbl.ml:579:22>>*/ if
-      (0 ===  /*<<hashtbl.ml:579:9>>*/ caml_compare(k$0, key)){
+      /*<<hashtbl.ml:579:9>>*/ if(0 === caml_compare(k$0, key)){
       var dst$0 =  /*<<hashtbl.ml:580:11>>*/ [0, data$0, 24029];
       dst[1 + offset] = dst$0;
       dst = dst$0;
@@ -27359,8 +26598,10 @@
     for(;;){
       /*<<hashtbl.ml:584:23>>*/ if(slot){
       var k = slot[1], next = slot[3];
-       /*<<hashtbl.ml:588:22>>*/ if
-       (0 !==  /*<<hashtbl.ml:588:9>>*/ caml_compare(k, key)){ /*<<hashtbl.ml:590:11>>*/ slot = next; continue;}
+       /*<<hashtbl.ml:588:9>>*/ if(0 !== caml_compare(k, key)){
+        /*<<hashtbl.ml:590:11>>*/ slot = next;
+       continue;
+      }
        /*<<hashtbl.ml:589:11>>*/ slot[1] = key;
        /*<<hashtbl.ml:589:29>>*/ slot[2] = data;
       var _l_ =  /*<<hashtbl.ml:589:48>>*/ 0;
@@ -27393,11 +26634,7 @@
      var
       k =  /*<<hashtbl.ml:601:22>>*/ param[1],
       next = param[3],
-      _j_ =
-         /*<<hashtbl.ml:605:19>>*/ 0
-         ===  /*<<hashtbl.ml:605:6>>*/ caml_compare(k, key)
-         ? 1
-         : 0;
+      _j_ =  /*<<hashtbl.ml:605:6>>*/ 0 === caml_compare(k, key) ? 1 : 0;
       /*<<hashtbl.ml:605:19>>*/ if(_j_) return _j_;
      param = next;
     }
@@ -27444,11 +26681,7 @@
     var
      _h_ =  /*<<hashtbl.ml:627:2>>*/ 4 <= h.length - 1 ? h[4] : s,
      h$0 =
-        /*<<hashtbl.ml:629:29>>*/ [0,
-        h[1],
-         /*<<hashtbl.ml:629:11>>*/ caml_make_vect(s, 0),
-        seed,
-        _h_];
+        /*<<hashtbl.ml:629:11>>*/ [0, h[1], caml_make_vect(s, 0), seed, _h_];
      /*<<hashtbl.ml:633:2>>*/ insert_all_buckets
      (function(_i_){ /*<<hashtbl.ml:633:21>>*/ return key_index(h$0, _i_);},
       0,
@@ -27551,8 +26784,7 @@
      _J_ =  /*<<weak.ml:28:2>>*/ 0 <= l ? 1 : 0,
      _K_ = _J_ ? l <= Stdlib_Obj[23][15] ? 1 : 0 : _J_;
     if(1 - _K_)  /*<<weak.ml:29:4>>*/ caml_call1(Stdlib[1], cst_Weak_create);
-     /*<<weak.ml:30:10>>*/ return  /*<<weak.ml:30:2>>*/ runtime.caml_weak_create
-            (l) /*<<weak.ml:30:10>>*/ ;
+     /*<<weak.ml:30:2>>*/ return runtime.caml_weak_create(l) /*<<weak.ml:30:10>>*/ ;
    }
    function length(x){
      /*<<weak.ml:33:15>>*/ return x.length - 3 | 0;
@@ -27567,26 +26799,21 @@
    function set(e, o, x){
      /*<<weak.ml:42:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_set);
      /*<<weak.ml:42:40>>*/ if(! x)
-      /*<<weak.ml:44:21>>*/ return  /*<<weak.ml:44:12>>*/ runtime.caml_ephe_unset_key
-             (e, o) /*<<weak.ml:45:24>>*/ ;
+      /*<<weak.ml:44:12>>*/ return runtime.caml_ephe_unset_key(e, o) /*<<weak.ml:45:24>>*/ ;
     var x$0 =  /*<<weak.ml:42:40>>*/ x[1];
-     /*<<weak.ml:45:24>>*/ return  /*<<weak.ml:45:14>>*/ runtime.caml_ephe_set_key
-            (e, o, x$0) /*<<weak.ml:45:24>>*/ ;
+     /*<<weak.ml:45:14>>*/ return runtime.caml_ephe_set_key(e, o, x$0) /*<<weak.ml:45:24>>*/ ;
    }
    function get(e, o){
      /*<<weak.ml:49:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get);
-     /*<<weak.ml:50:9>>*/ return  /*<<weak.ml:50:2>>*/ runtime.caml_ephe_get_key
-            (e, o) /*<<weak.ml:50:9>>*/ ;
+     /*<<weak.ml:50:2>>*/ return runtime.caml_ephe_get_key(e, o) /*<<weak.ml:50:9>>*/ ;
    }
    function get_copy(e, o){
      /*<<weak.ml:54:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_get_copy);
-     /*<<weak.ml:55:14>>*/ return  /*<<weak.ml:55:2>>*/ runtime.caml_ephe_get_key_copy
-            (e, o) /*<<weak.ml:55:14>>*/ ;
+     /*<<weak.ml:55:2>>*/ return runtime.caml_ephe_get_key_copy(e, o) /*<<weak.ml:55:14>>*/ ;
    }
    function check(e, o){
      /*<<weak.ml:59:2>>*/ raise_if_invalid_offset(e, o, cst_Weak_check);
-     /*<<weak.ml:60:11>>*/ return  /*<<weak.ml:60:2>>*/ runtime.caml_ephe_check_key
-            (e, o) /*<<weak.ml:60:11>>*/ ;
+     /*<<weak.ml:60:2>>*/ return runtime.caml_ephe_check_key(e, o) /*<<weak.ml:60:11>>*/ ;
    }
    function blit(e1, o1, e2, o2, l){
      /*<<weak.ml:66:2>>*/ if
@@ -27637,8 +26864,8 @@
       sz$0 =  /*<<weak.ml:123:4>>*/ 7 <= sz ? sz : 7,
       sz$1 =
          /*<<weak.ml:124:4>>*/ Stdlib_Sys[13] < sz$0 ? Stdlib_Sys[13] : sz$0;
-      /*<<weak.ml:126:39>>*/ return [0,
-              /*<<weak.ml:126:14>>*/ caml_make_vect(sz$1, emptybucket),
+      /*<<weak.ml:126:14>>*/ return [0,
+             caml_make_vect(sz$1, emptybucket),
               /*<<weak.ml:127:15>>*/ caml_make_vect(sz$1, [0]),
              limit,
              0,
@@ -27661,14 +26888,13 @@
      return 0;
      /*<<weak.ml:139:19>>*/ }
     function fold(f, t, init){
-     var i =  /*<<weak.ml:149:4>>*/ 0;
+     var i =  /*<<weak.ml:149:21>>*/ 0;
       /*<<weak.ml:149:36>>*/ return caml_call3
              (Stdlib_Array[20],
               function(b, accu$1){
                var i$0 =  /*<<weak.ml:149:21>>*/ i, accu = accu$1;
                for(;;){
-                 /*<<weak.ml:144:22>>*/ if
-                 ( /*<<weak.ml:144:14>>*/ length(b) <= i$0)
+                 /*<<weak.ml:144:14>>*/ if(length(b) <= i$0)
                   /*<<weak.ml:144:28>>*/ return accu;
                 var match =  /*<<weak.ml:145:12>>*/ get(b, i$0);
                  /*<<weak.ml:145:19>>*/ if(match){
@@ -27687,14 +26913,13 @@
               init) /*<<weak.ml:149:49>>*/ ;
     }
     function iter(f, t){
-     var i =  /*<<weak.ml:159:4>>*/ 0;
+     var i =  /*<<weak.ml:159:15>>*/ 0;
       /*<<weak.ml:159:30>>*/ return caml_call2
              (Stdlib_Array[12],
               function(b){
                var i$0 =  /*<<weak.ml:159:15>>*/ i;
                for(;;){
-                 /*<<weak.ml:154:22>>*/ if
-                 ( /*<<weak.ml:154:14>>*/ length(b) <= i$0)
+                 /*<<weak.ml:154:14>>*/ if(length(b) <= i$0)
                   /*<<weak.ml:154:28>>*/ return 0;
                 var match =  /*<<weak.ml:155:12>>*/ get(b, i$0);
                  /*<<weak.ml:155:19>>*/ if(match){
@@ -27712,11 +26937,9 @@
     function count_bucket(i, b, accu){
      var i$0 =  /*<<weak.ml:173:12>>*/ i, accu$0 = accu;
      for(;;){
-       /*<<weak.ml:173:20>>*/ if( /*<<weak.ml:173:12>>*/ length(b) <= i$0)
-        /*<<weak.ml:173:26>>*/ return accu$0;
+      if(length(b) <= i$0)  /*<<weak.ml:173:26>>*/ return accu$0;
       var
-       _y_ =
-          /*<<weak.ml:174:46>>*/  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
+       _y_ =  /*<<weak.ml:174:37>>*/ check(b, i$0) ? 1 : 0,
        accu$1 =  /*<<weak.ml:174:46>>*/ accu$0 + _y_ | 0,
        i$1 = i$0 + 1 | 0;
       i$0 = i$1;
@@ -27724,7 +26947,7 @@
      }
      /*<<weak.ml:174:62>>*/ }
     function count(t){
-     var _v_ =  /*<<weak.ml:178:4>>*/ 0;
+     var _v_ =  /*<<weak.ml:178:21>>*/ 0;
       /*<<weak.ml:178:37>>*/ return caml_call3
              (Stdlib_Array[20],
               function(_w_, _x_){
@@ -27743,8 +26966,7 @@
       i$3 =  /*<<weak.ml:267:4>>*/ 0;
      for(;;){
        /*<<weak.ml:242:6>>*/ if(sz <= i$3) break;
-       /*<<weak.ml:260:32>>*/ if
-       (!  /*<<weak.ml:260:18>>*/ check(bucket$0, i$3)){
+       /*<<weak.ml:260:18>>*/ if(! check(bucket$0, i$3)){
         /*<<weak.ml:263:8>>*/ caml_call3(setter, bucket$0, i$3, d);
         /*<<weak.ml:264:8>>*/ caml_check_bound(hashes, i$3)[1 + i$3] = h;
         /*<<weak.ml:264:23>>*/ return 0;
@@ -27789,15 +27011,12 @@
         live =  /*<<weak.ml:189:15>>*/ count_bucket(0, bucket, 0);
         /*<<weak.ml:190:4>>*/ if(live <= prev_len){
         var
-         j$2 =
-            /*<<weak.ml:201:27>>*/  /*<<weak.ml:201:14>>*/ length(bucket) - 1
-           | 0,
+         j$2 =  /*<<weak.ml:201:14>>*/ length(bucket) - 1 | 0,
          i$0 =  /*<<weak.ml:201:6>>*/ 0,
          j = j$2;
         for(;;){
           /*<<weak.ml:192:8>>*/ if(prev_len > j) break;
-          /*<<weak.ml:193:27>>*/ if
-          ( /*<<weak.ml:193:13>>*/ check(bucket, i$0)){
+          /*<<weak.ml:193:13>>*/ if(check(bucket, i$0)){
           var i$1 =  /*<<weak.ml:193:33>>*/ i$0 + 1 | 0;
           i$0 = i$1;
          }
@@ -27852,24 +27071,24 @@
       /*<<weak.ml:219:4>>*/ if(oldlen < newlen){
       var
        newt =  /*<<weak.ml:220:17>>*/ create$0(newlen),
-       i =  /*<<weak.ml:169:4>>*/ 0;
+       i =  /*<<weak.ml:169:16>>*/ 0;
        /*<<weak.ml:169:31>>*/ caml_call2
        (Stdlib_Array[13],
         function(j, ob){
          var oi =  /*<<weak.ml:169:16>>*/ i;
          for(;;){
-           /*<<weak.ml:164:22>>*/ if( /*<<weak.ml:164:14>>*/ length(ob) <= oi)
+           /*<<weak.ml:164:14>>*/ if(length(ob) <= oi)
             /*<<weak.ml:164:28>>*/ return 0;
-           /*<<weak.ml:165:21>>*/ if( /*<<weak.ml:165:12>>*/ check(ob, oi)){
+           /*<<weak.ml:165:12>>*/ if(check(ob, oi)){
            var oh =  /*<<weak.ml:166:20>>*/ caml_check_bound(t[2], j)[1 + j];
-           let oi$0 = oi;
+           let oi$0 =  /*<<weak.ml:222:8>>*/ oi;
            var
             setter =
-               /*<<weak.ml:222:8>>*/ function(nb, ni, param){
+              function(nb, ni, param){
                 /*<<weak.ml:222:29>>*/ return blit(ob, oi$0, nb, ni, 1) /*<<weak.ml:222:47>>*/ ;
               },
             h =  /*<<weak.ml:223:16>>*/ caml_check_bound(oh, oi)[1 + oi];
-            /*<<weak.ml:224:53>>*/ add_aux
+            /*<<weak.ml:224:35>>*/  /*<<weak.ml:224:53>>*/ add_aux
             (newt, setter, 0, h,  /*<<weak.ml:224:35>>*/ get_index(newt, h));
            var i$0 =  /*<<weak.ml:166:34>>*/ oi + 1 | 0;
            oi = i$0;
@@ -27891,7 +27110,7 @@
      /*<<weak.ml:267:10>>*/ }
     function add(t, d){
      var h =  /*<<weak.ml:271:12>>*/ caml_call1(H[2], d);
-      /*<<weak.ml:272:44>>*/ return add_aux
+      /*<<weak.ml:272:29>>*/ return  /*<<weak.ml:272:44>>*/ add_aux
              (t, set, [0, d], h,  /*<<weak.ml:272:29>>*/ get_index(t, h)) /*<<weak.ml:272:44>>*/ ;
     }
     function find_aux(t, d, found, notfound){
@@ -27907,13 +27126,11 @@
      for(;;){
        /*<<weak.ml:284:6>>*/ if(sz <= i)
         /*<<weak.ml:284:22>>*/ return caml_call2(notfound, h, index) /*<<weak.ml:291:10>>*/ ;
-       /*<<weak.ml:285:28>>*/ if
-       (h ===  /*<<weak.ml:285:18>>*/ caml_check_bound(hashes, i)[1 + i]){
+       /*<<weak.ml:285:18>>*/ if(h === caml_check_bound(hashes, i)[1 + i]){
        var opt =  /*<<weak.ml:286:14>>*/ get(bucket, i);
         /*<<weak.ml:286:26>>*/ if(opt){
         var v = opt[1];
-         /*<<weak.ml:287:40>>*/ if
-         ( /*<<weak.ml:287:29>>*/ caml_call2(H[1], v, d))
+         /*<<weak.ml:287:29>>*/ if(caml_call2(H[1], v, d))
           /*<<weak.ml:287:44>>*/ return caml_call4(found, bucket, i, opt, v) /*<<weak.ml:291:10>>*/ ;
        }
        var i$0 =  /*<<weak.ml:288:15>>*/ i + 1 | 0;
@@ -27992,13 +27209,11 @@
       accu = 0;
      for(;;){
        /*<<weak.ml:316:6>>*/ if(sz <= i)  /*<<weak.ml:316:22>>*/ return accu;
-       /*<<weak.ml:317:28>>*/ if
-       (h ===  /*<<weak.ml:317:18>>*/ caml_check_bound(hashes, i)[1 + i]){
+       /*<<weak.ml:317:18>>*/ if(h === caml_check_bound(hashes, i)[1 + i]){
        var match =  /*<<weak.ml:318:14>>*/ get(bucket, i);
         /*<<weak.ml:318:26>>*/ if(match){
         var v = match[1];
-         /*<<weak.ml:319:33>>*/ if
-         ( /*<<weak.ml:319:22>>*/ caml_call2(H[1], v, d)){
+         /*<<weak.ml:319:22>>*/ if(caml_call2(H[1], v, d)){
          var accu$0 =  /*<<weak.ml:319:37>>*/ [0, v, accu], i$0 = i + 1 | 0;
          i = i$0;
          accu = accu$0;
@@ -28030,13 +27245,7 @@
       _b_ =  /*<<weak.ml:330:51>>*/ caml_check_bound(lens, _a_)[1 + _a_],
       _d_ =  /*<<weak.ml:330:37>>*/ caml_check_bound(lens, _c_)[1 + _c_],
       _e_ =  /*<<weak.ml:330:27>>*/ caml_check_bound(lens, 0)[1];
-      /*<<weak.ml:330:17>>*/ return [0,
-             len,
-              /*<<weak.ml:330:10>>*/ count(t),
-             totlen,
-             _e_,
-             _d_,
-             _b_] /*<<weak.ml:330:17>>*/ ;
+      /*<<weak.ml:330:10>>*/ return [0, len, count(t), totlen, _e_, _d_, _b_] /*<<weak.ml:330:17>>*/ ;
      /*<<weak.ml:330:64>>*/ }
      /*<<weak.ml:105:33>>*/ return [0,
             create$0,
@@ -28215,13 +27424,12 @@
              /*<<format.ml:351:22>>*/ if(! ls)
               /*<<format.ml:352:16>>*/ return [0, n, 0];
             var l =  /*<<format.ml:351:22>>*/ ls[2], x = ls[1];
-             /*<<format.ml:353:34>>*/ return  /*<<format.ml:353:29>>*/ runtime.caml_lessthan
-                     (n, x)
+             /*<<format.ml:353:29>>*/ return runtime.caml_lessthan(n, x)
                     ? [0, n, ls]
                     : [0, x,  /*<<format.ml:353:58>>*/ add_tab(n, l)] /*<<format.ml:353:69>>*/ ;
            };
-         /*<<format.ml:354:67>>*/ tabs[1] =
-          /*<<format.ml:354:14>>*/ add_tab(state[6] - state[9] | 0, tabs[1]);
+         /*<<format.ml:354:14>>*/ tabs[1] =
+         add_tab(state[6] - state[9] | 0, tabs[1]);
          /*<<format.ml:354:67>>*/ return;
        case 1:
          /*<<format.ml:339:4>>*/ caml_call1(Stdlib_Stack[5], state[2]);
@@ -28618,15 +27826,15 @@
      /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, s$0) /*<<format.ml:637:56>>*/ ;
    }
    function pp_print_int(state, i){
-     /*<<format.ml:640:66>>*/ return pp_print_string
+     /*<<format.ml:640:49>>*/ return  /*<<format.ml:640:66>>*/ pp_print_string
             (state,  /*<<format.ml:640:49>>*/ caml_call1(Stdlib_Int[12], i)) /*<<format.ml:640:66>>*/ ;
    }
    function pp_print_float(state, f){
-     /*<<format.ml:643:70>>*/ return pp_print_string
+     /*<<format.ml:643:51>>*/ return  /*<<format.ml:643:70>>*/ pp_print_string
             (state,  /*<<format.ml:643:51>>*/ caml_call1(Stdlib[35], f)) /*<<format.ml:643:70>>*/ ;
    }
    function pp_print_bool(state, b){
-     /*<<format.ml:646:68>>*/ return pp_print_string
+     /*<<format.ml:646:50>>*/ return  /*<<format.ml:646:68>>*/ pp_print_string
             (state,  /*<<format.ml:646:50>>*/ caml_call1(Stdlib[30], b)) /*<<format.ml:646:68>>*/ ;
    }
    function pp_print_char(state, c){
@@ -28799,8 +28007,7 @@
             : _f_ /*<<format.ml:826:12>>*/ ;
    }
    function check_geometry(geometry){
-     /*<<format.ml:829:34>>*/ return 0
-            ===  /*<<format.ml:829:8>>*/ validate_geometry(geometry)[0]
+     /*<<format.ml:829:8>>*/ return 0 === validate_geometry(geometry)[0]
             ? 1
             : 0 /*<<format.ml:831:20>>*/ ;
    }
@@ -28829,8 +28036,7 @@
     /*<<format.ml:846:39>>*/ }
    function pp_safe_set_geometry(state, max_indent, margin){
     var geometry =  /*<<format.ml:849:2>>*/ [0, max_indent, margin];
-     /*<<format.ml:850:34>>*/ return 0
-            ===  /*<<format.ml:850:8>>*/ validate_geometry(geometry)[0]
+     /*<<format.ml:850:8>>*/ return 0 === validate_geometry(geometry)[0]
             ?  /*<<format.ml:854:4>>*/ pp_set_full_geometry(state, geometry)
             : 0 /*<<format.ml:854:39>>*/ ;
    }
@@ -28839,7 +28045,7 @@
     /*<<format.ml:857:78>>*/ }
    function pp_update_geometry(state, update){
     var geometry =  /*<<format.ml:860:17>>*/ pp_get_geometry(state, 0);
-     /*<<format.ml:861:46>>*/ return pp_set_full_geometry
+     /*<<format.ml:861:29>>*/ return  /*<<format.ml:861:46>>*/ pp_set_full_geometry
             (state,  /*<<format.ml:861:29>>*/ caml_call1(update, geometry)) /*<<format.ml:861:46>>*/ ;
    }
    function pp_set_formatter_out_functions(state, param){
@@ -28878,7 +28084,7 @@
    var
     blank_line =
        /*<<format.ml:898:17>>*/ caml_call2(Stdlib_String[1], 80, 32),
-    _g_ =  /*<<?>>*/ [3, 0, 3];
+    _g_ =  /*<<format.ml:898:35>>*/ [3, 0, 3];
    function display_blanks(state, n){
     var n$0 =  /*<<format.ml:900:2>>*/ n;
     for(;;){
@@ -28893,8 +28099,7 @@
     }
     /*<<format.ml:905:5>>*/ }
    function pp_set_formatter_out_channel(state, oc){
-     /*<<format.ml:914:44>>*/ state[17] =
-      /*<<format.ml:914:25>>*/ caml_call1(Stdlib[69], oc);
+     /*<<format.ml:914:25>>*/ state[17] = caml_call1(Stdlib[69], oc);
      /*<<format.ml:915:2>>*/ state[18] =
      function(param){
        /*<<format.ml:915:35>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:915:43>>*/ ;
@@ -28942,13 +28147,13 @@
      (Stdlib_Stack[3], [0, 1, sys_tok], scan_stack);
     var
      pp_margin =  /*<<format.ml:946:64>>*/ 78,
-     _aw_ =  /*<<format.ml:949:2>>*/ Stdlib[19],
-     _ax_ =  /*<<format.ml:954:20>>*/ caml_call1(Stdlib_Stack[2], 0),
+     _aw_ =  /*<<format.ml:954:20>>*/ Stdlib[19],
+     _ax_ = caml_call1(Stdlib_Stack[2], 0),
      _ay_ =  /*<<format.ml:953:19>>*/ caml_call1(Stdlib_Stack[2], 0),
      _az_ =  /*<<format.ml:952:20>>*/ caml_call1(Stdlib_Stack[2], 0);
-     /*<<format.ml:951:37>>*/ return [0,
+     /*<<format.ml:951:22>>*/ return [0,
             scan_stack,
-             /*<<format.ml:951:22>>*/ caml_call1(Stdlib_Stack[2], 0),
+            caml_call1(Stdlib_Stack[2], 0),
             _az_,
             _ay_,
             _ax_,
@@ -29004,14 +28209,14 @@
      /*<<format.ml:998:2>>*/ return ppf;
     /*<<format.ml:998:5>>*/ }
    function formatter_of_out_channel(oc){
-     /*<<format.ml:1003:38>>*/ return make_formatter
+     /*<<format.ml:1003:17>>*/ return  /*<<format.ml:1003:38>>*/ make_formatter
             ( /*<<format.ml:1003:17>>*/ caml_call1(Stdlib[69], oc),
              function(param){
                /*<<format.ml:1003:50>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:1003:58>>*/ ;
              }) /*<<format.ml:1003:59>>*/ ;
    }
    function formatter_of_buffer(b){
-     /*<<format.ml:1008:41>>*/ return make_formatter
+     /*<<format.ml:1008:17>>*/ return  /*<<format.ml:1008:41>>*/ make_formatter
             ( /*<<format.ml:1008:17>>*/ caml_call1(Stdlib_Buffer[18], b),
              function(_ap_){ /*<<?>>*/ return 0;}) /*<<format.ml:1008:48>>*/ ;
    }
@@ -29038,7 +28243,7 @@
        (Stdlib_Domain[10][1],
         0,
         function(param){
-          /*<<format.ml:1033:42>>*/ return formatter_of_buffer
+          /*<<format.ml:1033:22>>*/ return  /*<<format.ml:1033:42>>*/ formatter_of_buffer
                  ( /*<<format.ml:1033:22>>*/ caml_call1
                    (Stdlib_Domain[10][2], stdbuf_key)) /*<<format.ml:1033:42>>*/ ;
         });
@@ -29082,7 +28287,7 @@
         0,
         function(param){
          var
-          _ac_ =  /*<<format.ml:1051:2>>*/ Stdlib[39],
+          _ac_ =  /*<<format.ml:1052:22>>*/ Stdlib[39],
           ppf =
              /*<<format.ml:1052:4>>*/ pp_make_formatter
              (function(_al_, _am_, _an_){
@@ -29124,7 +28329,7 @@
         0,
         function(param){
          var
-          _S_ =  /*<<format.ml:1063:2>>*/ Stdlib[40],
+          _S_ =  /*<<format.ml:1064:22>>*/ Stdlib[40],
           ppf =
              /*<<format.ml:1064:4>>*/ pp_make_formatter
              (function(_$_, _aa_, _ab_){
@@ -29206,7 +28411,7 @@
                var
                 _R_ =
                    /*<<format.ml:1100:37>>*/ caml_call1(Stdlib_Buffer[7], buf);
-                /*<<format.ml:1100:6>>*/ caml_call3
+                /*<<format.ml:1100:13>>*/  /*<<format.ml:1100:6>>*/ caml_call3
                 (output,
                   /*<<format.ml:1100:13>>*/ caml_call1(Stdlib_Buffer[2], buf),
                  0,
@@ -29219,7 +28424,7 @@
              }) /*<<format.ml:1104:34>>*/ ;
    }
    function synchronized_formatter_of_out_(oc){
-     /*<<format.ml:1107:51>>*/ return make_synchronized_formatter
+     /*<<format.ml:1107:30>>*/ return  /*<<format.ml:1107:51>>*/ make_synchronized_formatter
             ( /*<<format.ml:1107:30>>*/ caml_call1(Stdlib[69], oc),
              function(param){
                /*<<format.ml:1107:63>>*/ return caml_call1(Stdlib[63], oc) /*<<format.ml:1107:71>>*/ ;
@@ -29245,7 +28450,7 @@
     /*<<format.ml:1148:70>>*/ }
    function formatter_of_symbolic_output_b(sob){
     function f(s, i, n){
-      /*<<format.ml:1156:66>>*/ return add_symbolic_output_item
+      /*<<format.ml:1156:48>>*/ return  /*<<format.ml:1156:66>>*/ add_symbolic_output_item
              (sob,
               [0,
                 /*<<format.ml:1156:48>>*/ caml_call3
@@ -29266,49 +28471,49 @@
      /*<<format.ml:1167:2>>*/ return pp_make_formatter(f, g, h, i, j) /*<<format.ml:1167:29>>*/ ;
    }
    function open_hbox(v){
-     /*<<format.ml:1176:58>>*/ return pp_open_hbox
+     /*<<format.ml:1176:31>>*/ return  /*<<format.ml:1176:58>>*/ pp_open_hbox
             ( /*<<format.ml:1176:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1176:60>>*/ ;
    }
    function open_vbox(v){
-     /*<<format.ml:1177:58>>*/ return pp_open_vbox
+     /*<<format.ml:1177:31>>*/ return  /*<<format.ml:1177:58>>*/ pp_open_vbox
             ( /*<<format.ml:1177:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1177:60>>*/ ;
    }
    function open_hvbox(v){
-     /*<<format.ml:1178:60>>*/ return pp_open_hvbox
+     /*<<format.ml:1178:33>>*/ return  /*<<format.ml:1178:60>>*/ pp_open_hvbox
             ( /*<<format.ml:1178:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1178:62>>*/ ;
    }
    function open_hovbox(v){
-     /*<<format.ml:1179:62>>*/ return pp_open_hovbox
+     /*<<format.ml:1179:35>>*/ return  /*<<format.ml:1179:62>>*/ pp_open_hovbox
             ( /*<<format.ml:1179:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1179:64>>*/ ;
    }
    function open_box(v){
-     /*<<format.ml:1180:56>>*/ return pp_open_box
+     /*<<format.ml:1180:29>>*/ return  /*<<format.ml:1180:56>>*/ pp_open_box
             ( /*<<format.ml:1180:29>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1180:58>>*/ ;
    }
    function close_box(v){
-     /*<<format.ml:1181:58>>*/ return pp_close_box
+     /*<<format.ml:1181:31>>*/ return  /*<<format.ml:1181:58>>*/ pp_close_box
             ( /*<<format.ml:1181:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1181:60>>*/ ;
    }
    function open_stag(v){
-     /*<<format.ml:1182:58>>*/ return pp_open_stag
+     /*<<format.ml:1182:31>>*/ return  /*<<format.ml:1182:58>>*/ pp_open_stag
             ( /*<<format.ml:1182:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1182:60>>*/ ;
    }
    function close_stag(v){
-     /*<<format.ml:1183:60>>*/ return pp_close_stag
+     /*<<format.ml:1183:33>>*/ return  /*<<format.ml:1183:60>>*/ pp_close_stag
             ( /*<<format.ml:1183:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1183:62>>*/ ;
@@ -29321,117 +28526,117 @@
      /*<<format.ml:630:44>>*/ return pp_print_as_size(state, isize, w) /*<<format.ml:1184:62>>*/ ;
    }
    function print_string(v){
-     /*<<format.ml:1185:64>>*/ return pp_print_string
+     /*<<format.ml:1185:37>>*/ return  /*<<format.ml:1185:64>>*/ pp_print_string
             ( /*<<format.ml:1185:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1185:66>>*/ ;
    }
    function print_bytes(v){
-     /*<<format.ml:1186:62>>*/ return pp_print_bytes
+     /*<<format.ml:1186:35>>*/ return  /*<<format.ml:1186:62>>*/ pp_print_bytes
             ( /*<<format.ml:1186:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1186:64>>*/ ;
    }
    function print_int(v){
-     /*<<format.ml:1187:58>>*/ return pp_print_int
+     /*<<format.ml:1187:31>>*/ return  /*<<format.ml:1187:58>>*/ pp_print_int
             ( /*<<format.ml:1187:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1187:60>>*/ ;
    }
    function print_float(v){
-     /*<<format.ml:1188:62>>*/ return pp_print_float
+     /*<<format.ml:1188:35>>*/ return  /*<<format.ml:1188:62>>*/ pp_print_float
             ( /*<<format.ml:1188:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1188:64>>*/ ;
    }
    function print_char(v){
-     /*<<format.ml:1189:60>>*/ return pp_print_char
+     /*<<format.ml:1189:33>>*/ return  /*<<format.ml:1189:60>>*/ pp_print_char
             ( /*<<format.ml:1189:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1189:62>>*/ ;
    }
    function print_bool(v){
-     /*<<format.ml:1190:60>>*/ return pp_print_bool
+     /*<<format.ml:1190:33>>*/ return  /*<<format.ml:1190:60>>*/ pp_print_bool
             ( /*<<format.ml:1190:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1190:62>>*/ ;
    }
    function print_break(v, w){
-     /*<<format.ml:1191:64>>*/ return pp_print_break
+     /*<<format.ml:1191:37>>*/ return  /*<<format.ml:1191:64>>*/ pp_print_break
             ( /*<<format.ml:1191:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1191:68>>*/ ;
    }
    function print_cut(v){
-     /*<<format.ml:1192:58>>*/ return pp_print_cut
+     /*<<format.ml:1192:31>>*/ return  /*<<format.ml:1192:58>>*/ pp_print_cut
             ( /*<<format.ml:1192:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1192:60>>*/ ;
    }
    function print_space(v){
-     /*<<format.ml:1193:62>>*/ return pp_print_space
+     /*<<format.ml:1193:35>>*/ return  /*<<format.ml:1193:62>>*/ pp_print_space
             ( /*<<format.ml:1193:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1193:64>>*/ ;
    }
    function force_newline(v){
-     /*<<format.ml:1194:66>>*/ return pp_force_newline
+     /*<<format.ml:1194:39>>*/ return  /*<<format.ml:1194:66>>*/ pp_force_newline
             ( /*<<format.ml:1194:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1194:68>>*/ ;
    }
    function print_flush(v){
-     /*<<format.ml:1195:62>>*/ return pp_print_flush
+     /*<<format.ml:1195:35>>*/ return  /*<<format.ml:1195:62>>*/ pp_print_flush
             ( /*<<format.ml:1195:35>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1195:64>>*/ ;
    }
    function print_newline(v){
-     /*<<format.ml:1196:66>>*/ return pp_print_newline
+     /*<<format.ml:1196:39>>*/ return  /*<<format.ml:1196:66>>*/ pp_print_newline
             ( /*<<format.ml:1196:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1196:68>>*/ ;
    }
    function print_if_newline(v){
-     /*<<format.ml:1197:72>>*/ return pp_print_if_newline
+     /*<<format.ml:1197:45>>*/ return  /*<<format.ml:1197:72>>*/ pp_print_if_newline
             ( /*<<format.ml:1197:45>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1197:74>>*/ ;
    }
    function open_tbox(v){
-     /*<<format.ml:1199:58>>*/ return pp_open_tbox
+     /*<<format.ml:1199:31>>*/ return  /*<<format.ml:1199:58>>*/ pp_open_tbox
             ( /*<<format.ml:1199:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1199:60>>*/ ;
    }
    function close_tbox(v){
-     /*<<format.ml:1200:60>>*/ return pp_close_tbox
+     /*<<format.ml:1200:33>>*/ return  /*<<format.ml:1200:60>>*/ pp_close_tbox
             ( /*<<format.ml:1200:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1200:62>>*/ ;
    }
    function print_tbreak(v, w){
-     /*<<format.ml:1201:66>>*/ return pp_print_tbreak
+     /*<<format.ml:1201:39>>*/ return  /*<<format.ml:1201:66>>*/ pp_print_tbreak
             ( /*<<format.ml:1201:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1201:70>>*/ ;
    }
    function set_tab(v){
-     /*<<format.ml:1203:54>>*/ return pp_set_tab
+     /*<<format.ml:1203:27>>*/ return  /*<<format.ml:1203:54>>*/ pp_set_tab
             ( /*<<format.ml:1203:27>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1203:56>>*/ ;
    }
    function print_tab(v){
-     /*<<format.ml:1204:58>>*/ return pp_print_tab
+     /*<<format.ml:1204:31>>*/ return  /*<<format.ml:1204:58>>*/ pp_print_tab
             ( /*<<format.ml:1204:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1204:60>>*/ ;
    }
    function set_margin(v){
-     /*<<format.ml:1206:60>>*/ return pp_set_margin
+     /*<<format.ml:1206:33>>*/ return  /*<<format.ml:1206:60>>*/ pp_set_margin
             ( /*<<format.ml:1206:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1206:62>>*/ ;
@@ -29444,7 +28649,7 @@
      /*<<format.ml:833:29>>*/ return state[6];
     /*<<format.ml:1207:62>>*/ }
    function set_max_indent(v){
-     /*<<format.ml:1209:68>>*/ return pp_set_max_indent
+     /*<<format.ml:1209:41>>*/ return  /*<<format.ml:1209:68>>*/ pp_set_max_indent
             ( /*<<format.ml:1209:41>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1209:70>>*/ ;
@@ -29457,33 +28662,33 @@
      /*<<format.ml:797:33>>*/ return state[8];
     /*<<format.ml:1210:70>>*/ }
    function set_geometry(max_indent, margin){
-     /*<<format.ml:1213:45>>*/ return pp_set_geometry
+     /*<<format.ml:1213:18>>*/ return  /*<<format.ml:1213:45>>*/ pp_set_geometry
             ( /*<<format.ml:1213:18>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1213:65>>*/ ;
    }
    function safe_set_geometry(max_indent, margin){
-     /*<<format.ml:1215:50>>*/ return pp_safe_set_geometry
+     /*<<format.ml:1215:23>>*/ return  /*<<format.ml:1215:50>>*/ pp_safe_set_geometry
             ( /*<<format.ml:1215:23>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              max_indent,
              margin) /*<<format.ml:1215:70>>*/ ;
    }
    function get_geometry(v){
-     /*<<format.ml:1216:64>>*/ return pp_get_geometry
+     /*<<format.ml:1216:37>>*/ return  /*<<format.ml:1216:64>>*/ pp_get_geometry
             ( /*<<format.ml:1216:37>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1216:66>>*/ ;
    }
    function update_geometry(v){
-     /*<<format.ml:1217:70>>*/ return pp_update_geometry
+     /*<<format.ml:1217:43>>*/ return  /*<<format.ml:1217:70>>*/ pp_update_geometry
             ( /*<<format.ml:1217:43>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1217:72>>*/ ;
    }
    function set_max_boxes(v){
-     /*<<format.ml:1219:66>>*/ return pp_set_max_boxes
+     /*<<format.ml:1219:39>>*/ return  /*<<format.ml:1219:66>>*/ pp_set_max_boxes
             ( /*<<format.ml:1219:39>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1219:68>>*/ ;
@@ -29496,13 +28701,13 @@
      /*<<format.ml:766:32>>*/ return state[15];
     /*<<format.ml:1220:68>>*/ }
    function over_max_boxes(v){
-     /*<<format.ml:1221:68>>*/ return pp_over_max_boxes
+     /*<<format.ml:1221:41>>*/ return  /*<<format.ml:1221:68>>*/ pp_over_max_boxes
             ( /*<<format.ml:1221:41>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1221:70>>*/ ;
    }
    function set_ellipsis_text(v){
-     /*<<format.ml:1223:74>>*/ return pp_set_ellipsis_text
+     /*<<format.ml:1223:47>>*/ return  /*<<format.ml:1223:74>>*/ pp_set_ellipsis_text
             ( /*<<format.ml:1223:47>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1223:76>>*/ ;
@@ -29515,50 +28720,50 @@
      /*<<format.ml:772:36>>*/ return state[16];
     /*<<format.ml:1224:76>>*/ }
    function set_formatter_out_channel(v){
-     /*<<format.ml:1227:58>>*/ return pp_set_formatter_out_channel
+     /*<<format.ml:1227:31>>*/ return  /*<<format.ml:1227:58>>*/ pp_set_formatter_out_channel
             ( /*<<format.ml:1227:31>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1227:60>>*/ ;
    }
    function set_formatter_out_functions(v){
-     /*<<format.ml:1230:60>>*/ return pp_set_formatter_out_functions
+     /*<<format.ml:1230:33>>*/ return  /*<<format.ml:1230:60>>*/ pp_set_formatter_out_functions
             ( /*<<format.ml:1230:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1230:62>>*/ ;
    }
    function get_formatter_out_functions(v){
-     /*<<format.ml:1232:60>>*/ return pp_get_formatter_out_functions
+     /*<<format.ml:1232:33>>*/ return  /*<<format.ml:1232:60>>*/ pp_get_formatter_out_functions
             ( /*<<format.ml:1232:33>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1232:62>>*/ ;
    }
    function set_formatter_output_functions(v, w){
-     /*<<format.ml:1235:63>>*/ return pp_set_formatter_output_functi
+     /*<<format.ml:1235:36>>*/ return  /*<<format.ml:1235:63>>*/ pp_set_formatter_output_functi
             ( /*<<format.ml:1235:36>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v,
              w) /*<<format.ml:1235:67>>*/ ;
    }
    function get_formatter_output_functions(v){
-     /*<<format.ml:1237:63>>*/ return pp_get_formatter_output_functi
+     /*<<format.ml:1237:36>>*/ return  /*<<format.ml:1237:63>>*/ pp_get_formatter_output_functi
             ( /*<<format.ml:1237:36>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1237:65>>*/ ;
    }
    function set_formatter_stag_functions(v){
-     /*<<format.ml:1240:61>>*/ return pp_set_formatter_stag_function
+     /*<<format.ml:1240:34>>*/ return  /*<<format.ml:1240:61>>*/ pp_set_formatter_stag_function
             ( /*<<format.ml:1240:34>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1240:63>>*/ ;
    }
    function get_formatter_stag_functions(v){
-     /*<<format.ml:1242:61>>*/ return pp_get_formatter_stag_function
+     /*<<format.ml:1242:34>>*/ return  /*<<format.ml:1242:61>>*/ pp_get_formatter_stag_function
             ( /*<<format.ml:1242:34>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1242:63>>*/ ;
    }
    function set_print_tags(v){
-     /*<<format.ml:1244:47>>*/ return pp_set_print_tags
+     /*<<format.ml:1244:20>>*/ return  /*<<format.ml:1244:47>>*/ pp_set_print_tags
             ( /*<<format.ml:1244:20>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1244:49>>*/ ;
@@ -29571,7 +28776,7 @@
      /*<<format.ml:562:33>>*/ return state[22];
     /*<<format.ml:1246:49>>*/ }
    function set_mark_tags(v){
-     /*<<format.ml:1248:46>>*/ return pp_set_mark_tags
+     /*<<format.ml:1248:19>>*/ return  /*<<format.ml:1248:46>>*/ pp_set_mark_tags
             ( /*<<format.ml:1248:19>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1248:48>>*/ ;
@@ -29584,7 +28789,7 @@
      /*<<format.ml:563:32>>*/ return state[23];
     /*<<format.ml:1250:48>>*/ }
    function set_tags(v){
-     /*<<format.ml:1252:41>>*/ return pp_set_tags
+     /*<<format.ml:1252:14>>*/ return  /*<<format.ml:1252:41>>*/ pp_set_tags
             ( /*<<format.ml:1252:14>>*/ caml_call1
               (Stdlib_Domain[10][2], std_formatter_key),
              v) /*<<format.ml:1252:43>>*/ ;
@@ -29623,7 +28828,7 @@
      left =  /*<<format.ml:1280:2>>*/ [0, 0],
      right =  /*<<format.ml:1281:2>>*/ [0, 0];
     function flush(param){
-      /*<<format.ml:1283:4>>*/ pp_print_string
+      /*<<format.ml:1283:24>>*/  /*<<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));
@@ -29741,7 +28946,7 @@
           if(0 === match[0]){
            var acc$0 = match[1];
             /*<<format.ml:1362:4>>*/ output_acc(ppf, p$0);
-            /*<<format.ml:1363:62>>*/ return pp_open_stag
+            /*<<format.ml:1363:33>>*/ return  /*<<format.ml:1363:62>>*/ pp_open_stag
                    (ppf,
                     [0,
                      String_tag,
@@ -29815,7 +29020,7 @@
            /*<<format.ml:1374:48>>*/ return caml_call1(Stdlib[1], msg) /*<<format.ml:1375:34>>*/ ;
        }
         /*<<format.ml:1356:4>>*/ output_acc(ppf, p$4);
-        /*<<format.ml:1357:43>>*/ return pp_print_as_size
+        /*<<format.ml:1357:44>>*/ return  /*<<format.ml:1357:43>>*/ pp_print_as_size
                (ppf,
                 size$0,
                  /*<<format.ml:1357:44>>*/ caml_call2
@@ -29849,7 +29054,7 @@
           if(0 === match[0]){
            var acc$0 = match[1];
             /*<<format.ml:1397:4>>*/ strput_acc(ppf, p$0);
-            /*<<format.ml:1398:62>>*/ return pp_open_stag
+            /*<<format.ml:1398:33>>*/ return  /*<<format.ml:1398:62>>*/ pp_open_stag
                    (ppf,
                     [0,
                      String_tag,
@@ -29916,13 +29121,13 @@
            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:43>>*/ return pp_print_as_size
+             /*<<format.ml:1392:44>>*/ return  /*<<format.ml:1392:43>>*/ pp_print_as_size
                     (ppf, size$1,  /*<<format.ml:1392:44>>*/ caml_call1(f$1, 0)) /*<<format.ml:1410:34>>*/ ;
            }
           }
           var f$0 =  /*<<format.ml:1381:29>>*/ acc[2];
            /*<<format.ml:1407:32>>*/ strput_acc(ppf, p$5);
-           /*<<format.ml:1407:76>>*/ return pp_print_string
+           /*<<format.ml:1407:70>>*/ return  /*<<format.ml:1407:76>>*/ pp_print_string
                   (ppf,  /*<<format.ml:1407:70>>*/ caml_call1(f$0, 0)) /*<<format.ml:1410:34>>*/ ;
          case 7:
           var p$7 =  /*<<format.ml:1381:29>>*/ acc[1];
@@ -29934,7 +29139,7 @@
            /*<<format.ml:1409:48>>*/ return caml_call1(Stdlib[1], msg) /*<<format.ml:1410:34>>*/ ;
        }
         /*<<format.ml:1388:4>>*/ strput_acc(ppf, p$4);
-        /*<<format.ml:1389:43>>*/ return pp_print_as_size
+        /*<<format.ml:1389:44>>*/ return  /*<<format.ml:1389:43>>*/ pp_print_as_size
                (ppf,
                 size$0,
                  /*<<format.ml:1389:44>>*/ caml_call2
@@ -29983,7 +29188,7 @@
      /*<<format.ml:1432:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1433:54>>*/ return output_acc
+               /*<<format.ml:1433:27>>*/ return  /*<<format.ml:1433:54>>*/ output_acc
                       ( /*<<format.ml:1433:27>>*/ caml_call1
                         (Stdlib_Domain[10][2], std_formatter_key),
                        acc) /*<<format.ml:1433:58>>*/ ;
@@ -29996,7 +29201,7 @@
      /*<<format.ml:1437:2>>*/ return caml_call3
             (CamlinternalFormat[7],
              function(acc){
-               /*<<format.ml:1438:54>>*/ return output_acc
+               /*<<format.ml:1438:27>>*/ return  /*<<format.ml:1438:54>>*/ output_acc
                       ( /*<<format.ml:1438:27>>*/ caml_call1
                         (Stdlib_Domain[10][2], err_formatter_key),
                        acc) /*<<format.ml:1438:58>>*/ ;
@@ -30032,7 +29237,7 @@
      ppf =  /*<<format.ml:1450:12>>*/ formatter_of_buffer(b);
     function k$0(acc){
       /*<<format.ml:1452:4>>*/ strput_acc(ppf, acc);
-      /*<<format.ml:1453:36>>*/ return caml_call1
+      /*<<format.ml:1453:6>>*/ return  /*<<format.ml:1453:36>>*/ caml_call1
              (k,  /*<<format.ml:1453:6>>*/ flush_buffer_formatter(b, ppf)) /*<<format.ml:1453:36>>*/ ;
     }
      /*<<format.ml:1454:2>>*/ return caml_call3
@@ -30048,7 +29253,7 @@
      ppf =  /*<<format.ml:1461:12>>*/ formatter_of_buffer(b);
     function k$0(acc){
       /*<<format.ml:1463:4>>*/ output_acc(ppf, acc);
-      /*<<format.ml:1464:36>>*/ return caml_call1
+      /*<<format.ml:1464:6>>*/ return  /*<<format.ml:1464:36>>*/ caml_call1
              (k,  /*<<format.ml:1464:6>>*/ flush_buffer_formatter(b, ppf)) /*<<format.ml:1464:36>>*/ ;
     }
      /*<<format.ml:1465:2>>*/ return caml_call3
@@ -30058,11 +29263,11 @@
      /*<<format.ml:1468:19>>*/ return kasprintf(id, fmt) /*<<format.ml:1468:35>>*/ ;
    }
    function flush_standard_formatters(param){
-     /*<<format.ml:1473:2>>*/ pp_print_flush
+     /*<<format.ml:1473:17>>*/  /*<<format.ml:1473:2>>*/ pp_print_flush
      ( /*<<format.ml:1473:17>>*/ caml_call1
        (Stdlib_Domain[10][2], std_formatter_key),
       0);
-     /*<<format.ml:1474:44>>*/ return pp_print_flush
+     /*<<format.ml:1474:17>>*/ return  /*<<format.ml:1474:44>>*/ pp_print_flush
             ( /*<<format.ml:1474:17>>*/ caml_call1
               (Stdlib_Domain[10][2], err_formatter_key),
              0) /*<<format.ml:1474:47>>*/ ;
@@ -30077,8 +29282,8 @@
        fs =
           /*<<format.ml:1480:11>>*/ pp_get_formatter_out_functions
           (std_formatter, 0),
-       _h_ =  /*<<format.ml:1481:2>>*/ Stdlib[39];
-      pp_set_formatter_out_functions
+       _h_ =  /*<<format.ml:1482:26>>*/ Stdlib[39];
+       /*<<format.ml:1481:2>>*/ pp_set_formatter_out_functions
        (std_formatter,
         [0,
          function(_o_, _p_, _q_){
@@ -30096,7 +29301,7 @@
        fs$0 =
           /*<<format.ml:1485:11>>*/ pp_get_formatter_out_functions
           (err_formatter, 0),
-       _i_ =  /*<<format.ml:1486:2>>*/ Stdlib[40];
+       _i_ =  /*<<format.ml:1487:26>>*/ Stdlib[40];
        /*<<format.ml:1487:57>>*/ return pp_set_formatter_out_functions
               (err_formatter,
                [0,
@@ -30412,7 +29617,7 @@
    }
    var default_token_buffer_size =  /*<<?>>*/ 1024;
    function create(iname, next){
-     /*<<scanf.ml:258:61>>*/ return [0,
+     /*<<scanf.ml:258:22>>*/ return [0,
             0,
             null_char,
             0,
@@ -30420,8 +29625,7 @@
             0,
             0,
             next,
-             /*<<scanf.ml:258:22>>*/ caml_call1
-             (Stdlib_Buffer[1], default_token_buffer_size),
+            caml_call1(Stdlib_Buffer[1], default_token_buffer_size),
             iname] /*<<scanf.ml:258:61>>*/ ;
     /*<<scanf.ml:260:3>>*/ }
    function from_string(s){
@@ -30438,10 +29642,8 @@
      /*<<scanf.ml:270:7>>*/ }
      /*<<scanf.ml:271:4>>*/ return create(1, next) /*<<scanf.ml:271:27>>*/ ;
    }
-   var _a_ =  /*<<?>>*/ 0;
-   function from_function(_aW_){
-     /*<<scanf.ml:274:22>>*/ return create(_a_, _aW_);
-   }
+   var _a_ =  /*<<scanf.ml:274:22>>*/ 0;
+   function from_function(_aW_){return create(_a_, _aW_);}
    var len =  /*<<scanf.ml:274:42>>*/ 1024;
    function scan_close_at_end(ic){
      /*<<scanf.ml:320:29>>*/ caml_call1(Stdlib[93], ic);
@@ -30465,8 +29667,7 @@
       /*<<scanf.ml:334:6>>*/ if(eof[1])
        /*<<scanf.ml:334:19>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[12], 1);
-      /*<<scanf.ml:335:33>>*/ lim[1] =
-       /*<<scanf.ml:335:15>>*/ caml_call4(Stdlib[84], ic, buf, 0, len);
+      /*<<scanf.ml:335:15>>*/ lim[1] = caml_call4(Stdlib[84], ic, buf, 0, len);
       /*<<scanf.ml:336:8>>*/ return 0 === lim[1]
              ? (eof
                 [1]
@@ -30487,11 +29688,9 @@
      /*<<scanf.ml:344:29>>*/ return from_ic
             (scan_close_at_end, [1, fname, ic], ic) /*<<scanf.ml:371:53>>*/ ;
    }
-   var _b_ =  /*<<scanf.ml:364:50>>*/ Stdlib[79];
-   function open_in(_aV_){
-     /*<<scanf.ml:374:16>>*/ return open_in_file(_b_, _aV_);
-   }
-   var _c_ =  /*<<scanf.ml:374:43>>*/ Stdlib[80];
+   var _b_ =  /*<<scanf.ml:374:16>>*/ Stdlib[79];
+   function open_in(_aV_){return open_in_file(_b_, _aV_);}
+   var _c_ =  /*<<scanf.ml:375:51>>*/ Stdlib[80];
    function open_in_bin(_aU_){
      /*<<scanf.ml:375:20>>*/ return open_in_file(_c_, _aU_);
    }
@@ -30514,7 +29713,7 @@
        "Stdlib.Scanf.Scan_failure",
        runtime.caml_fresh_oo_id(0)],
     _d_ =
-       /*<<?>>*/ [0,
+       /*<<scanf.ml:1002:59>>*/ [0,
        [11, "illegal escape character ", [1, 0]],
        "illegal escape character %C"],
     _e_ =
@@ -30602,11 +29801,11 @@
            ([0, Scan_failure, s], 1);
     /*<<scanf.ml:405:40>>*/ }
    function bad_input_escape(c){
-     /*<<scanf.ml:408:60>>*/ return bad_input
+     /*<<scanf.ml:408:12>>*/ return  /*<<scanf.ml:408:60>>*/ bad_input
             ( /*<<scanf.ml:408:12>>*/ caml_call2(Stdlib_Printf[4], _d_, c)) /*<<scanf.ml:408:60>>*/ ;
    }
    function bad_token_length(message){
-     /*<<scanf.ml:416:15>>*/ return bad_input
+     /*<<scanf.ml:413:4>>*/ return  /*<<scanf.ml:416:15>>*/ bad_input
             ( /*<<scanf.ml:413:4>>*/ caml_call2
               (Stdlib_Printf[4], _e_, message)) /*<<scanf.ml:416:15>>*/ ;
    }
@@ -30614,7 +29813,7 @@
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:432:55>>*/ ;
    }
    function character_mismatch(c, ci){
-     /*<<scanf.ml:440:41>>*/ return bad_input
+     /*<<scanf.ml:436:2>>*/ return  /*<<scanf.ml:440:41>>*/ bad_input
             ( /*<<scanf.ml:436:2>>*/ caml_call3(Stdlib_Printf[4], _g_, c, ci)) /*<<scanf.ml:440:41>>*/ ;
    }
    function check_char(ib, c$0){
@@ -30655,8 +29854,7 @@
             :  /*<<scanf.ml:476:2>>*/ character_mismatch(c, ci) /*<<scanf.ml:476:25>>*/ ;
    }
    function token_char(ib){
-     /*<<scanf.ml:488:43>>*/ return  /*<<scanf.ml:488:20>>*/ caml_string_get
-            (token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
+     /*<<scanf.ml:488:20>>*/ return caml_string_get(token_string(ib), 0) /*<<scanf.ml:488:43>>*/ ;
    }
    function token_bool(ib){
     var s =  /*<<scanf.ml:493:8>>*/ token_string(ib);
@@ -30732,7 +29930,7 @@
      /*<<scanf.ml:531:34>>*/ return tok;
     /*<<scanf.ml:531:67>>*/ }
    function token_float(ib){
-     /*<<scanf.ml:539:56>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
+     /*<<scanf.ml:539:37>>*/ return  /*<<scanf.ml:539:21>>*/ runtime.caml_float_of_string
             ( /*<<scanf.ml:539:37>>*/ token_string(ib)) /*<<scanf.ml:539:56>>*/ ;
    }
    function scan_decimal_digit_star(width, ib){
@@ -30762,7 +29960,7 @@
       /*<<scanf.ml:589:20>>*/ return bad_token_length(cst_decimal_digits) /*<<scanf.ml:596:70>>*/ ;
     var c =  /*<<scanf.ml:590:10>>*/ checked_peek_char(ib);
      /*<<scanf.ml:591:2>>*/ if(9 < c - 48 >>> 0)
-      /*<<scanf.ml:596:70>>*/ return bad_input
+      /*<<scanf.ml:596:14>>*/ return  /*<<scanf.ml:596:70>>*/ bad_input
              ( /*<<scanf.ml:596:14>>*/ caml_call2(Stdlib_Printf[4], _j_, c)) /*<<scanf.ml:596:70>>*/ ;
     var width$0 =  /*<<scanf.ml:593:16>>*/ store_char(width, ib, c);
      /*<<scanf.ml:594:4>>*/ return scan_decimal_digit_star(width$0, ib) /*<<scanf.ml:596:70>>*/ ;
@@ -30771,9 +29969,8 @@
      /*<<scanf.ml:620:2>>*/ if(0 === width$2)
       /*<<scanf.ml:620:20>>*/ return bad_token_length(cst_digits) /*<<scanf.ml:626:77>>*/ ;
     var c$0 =  /*<<scanf.ml:621:10>>*/ checked_peek_char(ib);
-     /*<<scanf.ml:622:13>>*/ if
-     (!  /*<<scanf.ml:622:5>>*/ caml_call1(digitp, c$0))
-      /*<<scanf.ml:626:77>>*/ return bad_input
+     /*<<scanf.ml:622:5>>*/ if(! caml_call1(digitp, c$0))
+      /*<<scanf.ml:626:14>>*/ return  /*<<scanf.ml:626:77>>*/ bad_input
              ( /*<<scanf.ml:626:14>>*/ caml_call3
                (Stdlib_Printf[4], _k_, c$0, basis)) /*<<scanf.ml:626:77>>*/ ;
     var
@@ -30784,8 +29981,7 @@
        /*<<scanf.ml:603:22>>*/ return width;
      var c =  /*<<scanf.ml:604:12>>*/ peek_char(ib);
       /*<<scanf.ml:605:22>>*/ if(ib[1])  /*<<scanf.ml:605:28>>*/ return width;
-      /*<<scanf.ml:607:21>>*/ if
-      ( /*<<scanf.ml:607:13>>*/ caml_call1(digitp, c)){
+      /*<<scanf.ml:607:13>>*/ if(caml_call1(digitp, c)){
       var width$0 =  /*<<scanf.ml:608:18>>*/ store_char(width, ib, c);
        /*<<scanf.ml:609:6>>*/ width = width$0;
      }
@@ -30857,7 +30053,7 @@
        {
          /*<<scanf.ml:677:4>>*/ if(99 <= c$0){
          if(111 === c$0)
-           /*<<scanf.ml:641:21>>*/ return scan_digit_plus
+           /*<<scanf.ml:679:28>>*/ return  /*<<scanf.ml:641:21>>*/ scan_digit_plus
                   (cst_octal,
                    is_octal_digit,
                     /*<<scanf.ml:679:28>>*/ store_char(width, ib, c$0),
@@ -30867,7 +30063,7 @@
         else{
          if(88 === c$0) break a;
          if(98 <= c$0)
-           /*<<scanf.ml:634:22>>*/ return scan_digit_plus
+           /*<<scanf.ml:680:29>>*/ return  /*<<scanf.ml:634:22>>*/ scan_digit_plus
                   (cst_binary,
                    is_binary_digit,
                     /*<<scanf.ml:680:29>>*/ store_char(width, ib, c$0),
@@ -30875,7 +30071,7 @@
         }
          /*<<scanf.ml:681:11>>*/ return scan_decimal_digit_star(width, ib) /*<<scanf.ml:697:49>>*/ ;
        }
-        /*<<scanf.ml:648:27>>*/ return scan_digit_plus
+        /*<<scanf.ml:678:40>>*/ return  /*<<scanf.ml:648:27>>*/ scan_digit_plus
                (cst_hexadecimal,
                 is_hexa_digit,
                  /*<<scanf.ml:678:40>>*/ store_char(width, ib, c$0),
@@ -30909,7 +30105,7 @@
      /*<<scanf.ml:717:20>>*/ if(ib[1])  /*<<scanf.ml:717:26>>*/ return width;
      /*<<scanf.ml:718:2>>*/ if(69 !== c && 101 !== c)
       /*<<scanf.ml:721:9>>*/ return width;
-     /*<<scanf.ml:720:71>>*/ return scan_optionally_signed_decimal
+     /*<<scanf.ml:720:39>>*/ return  /*<<scanf.ml:720:71>>*/ scan_optionally_signed_decimal
             ( /*<<scanf.ml:720:39>>*/ store_char(width, ib, c), ib) /*<<scanf.ml:721:14>>*/ ;
    }
    function scan_float(width$1, precision, ib){
@@ -30922,22 +30118,19 @@
      /*<<scanf.ml:768:20>>*/ if(ib[1])
       /*<<scanf.ml:768:26>>*/ return [0, width$0, precision];
      /*<<scanf.ml:769:2>>*/ if(46 !== c)
-      /*<<scanf.ml:776:31>>*/ return [0,
-              /*<<scanf.ml:776:4>>*/ scan_exponent_part(width$0, ib),
+      /*<<scanf.ml:776:4>>*/ return [0,
+             scan_exponent_part(width$0, ib),
              precision] /*<<scanf.ml:776:31>>*/ ;
     var
      width$2 =  /*<<scanf.ml:771:16>>*/ store_char(width$0, ib, c),
      precision$0 =
         /*<<scanf.ml:772:20>>*/ caml_call2(Stdlib_Int[10], width$2, precision),
      width$3 =
-        /*<<scanf.ml:773:70>>*/ width$2
-       -
-        (precision$0
-        -  /*<<scanf.ml:773:37>>*/ scan_fractional_part(precision$0, ib)
-        | 0)
+        /*<<scanf.ml:773:37>>*/ width$2
+       - (precision$0 - scan_fractional_part(precision$0, ib) | 0)
        | 0;
-     /*<<scanf.ml:774:31>>*/ return [0,
-             /*<<scanf.ml:774:4>>*/ scan_exponent_part(width$3, ib),
+     /*<<scanf.ml:774:4>>*/ return [0,
+            scan_exponent_part(width$3, ib),
             precision$0] /*<<scanf.ml:774:31>>*/ ;
     /*<<scanf.ml:776:42>>*/ }
    function check_case_insensitive_string(width, ib, error, str){
@@ -30951,22 +30144,20 @@
      len =  /*<<scanf.ml:785:2>>*/ caml_ml_string_length(str),
      width$0 =  /*<<scanf.ml:786:2>>*/ [0, width],
      _aK_ =  /*<<scanf.ml:787:2>>*/ len - 1 | 0,
-     _aJ_ =  /*<<scanf.ml:786:2>>*/ 0;
-     /*<<scanf.ml:787:2>>*/ if(_aK_ >= 0){
+     _aJ_ = 0;
+    if(_aK_ >= 0){
      var i = _aJ_;
      for(;;){
       var
        c =  /*<<scanf.ml:788:12>>*/ peek_char(ib),
        _aL_ =
-          /*<<scanf.ml:789:22>>*/ lowercase
+          /*<<scanf.ml:789:32>>*/  /*<<scanf.ml:789:22>>*/ lowercase
           ( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
-       /*<<scanf.ml:789:18>>*/ if
-       ( /*<<scanf.ml:789:7>>*/ lowercase(c) !== _aL_)
+       /*<<scanf.ml:789:7>>*/ if(lowercase(c) !== _aL_)
         /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
        /*<<scanf.ml:789:18>>*/ if(0 === width$0[1])
         /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
-       /*<<scanf.ml:791:44>>*/ width$0[1] =
-        /*<<scanf.ml:791:13>>*/ store_char(width$0[1], ib, c);
+       /*<<scanf.ml:791:13>>*/ width$0[1] = store_char(width$0[1], ib, c);
       var _aM_ =  /*<<scanf.ml:791:44>>*/ i + 1 | 0;
       if(_aK_ === i) break;
       i = _aM_;
@@ -31018,11 +30209,7 @@
            (width$3, ib, bad_hex_float, cst_x);
         /*<<scanf.ml:805:4>>*/ if
         (0 !== width$4 && !  /*<<scanf.ml:805:20>>*/ end_of_input(ib)){
-        var
-         _aG_ =
-            /*<<scanf.ml:806:45>>*/  /*<<scanf.ml:806:24>>*/ peek_char(ib)
-           - 46
-           | 0;
+        var _aG_ =  /*<<scanf.ml:806:24>>*/ peek_char(ib) - 46 | 0;
         b:
         {
          c:
@@ -31375,9 +30562,7 @@
           c2 =  /*<<scanf.ml:1025:13>>*/ get_digit(0),
           ___ =  /*<<scanf.ml:985:9>>*/ hexadecimal_value_of_char(c2),
           c$0 =
-             /*<<scanf.ml:984:37>>*/ (16
-            *  /*<<scanf.ml:984:9>>*/ hexadecimal_value_of_char(c1)
-            | 0)
+             /*<<scanf.ml:984:9>>*/ (16 * hexadecimal_value_of_char(c1) | 0)
             + ___
             | 0;
          b:
@@ -31445,11 +30630,8 @@
        }
         /*<<scanf.ml:1069:45>>*/ if(13 === match){
         var width$3 =  /*<<scanf.ml:1070:27>>*/ ignore_char(width$1, ib);
-         /*<<scanf.ml:1075:45>>*/ if
-         (10
-          ===
-            /*<<scanf.ml:1002:33>>*/ check_next_char
-            (cst_a_String, width$3, ib)){
+         /*<<scanf.ml:1002:33>>*/ if
+         (10 === check_next_char(cst_a_String, width$3, ib)){
          var _Z_ =  /*<<scanf.ml:1076:26>>*/ ignore_char(width$3, ib);
           /*<<scanf.ml:1076:57>>*/ if(counter >= 50)
           return caml_trampoline_return(skip_spaces, [0, _Z_]) /*<<scanf.ml:1066:53>>*/ ;
@@ -31472,16 +30654,14 @@
      }
     }
     function find_stop(width){
-      /*<<?>>*/ return caml_trampoline
+      /*<<scanf.ml:1063:10>>*/ return  /*<<?>>*/ caml_trampoline
              ( /*<<scanf.ml:1063:10>>*/ find_stop$0(0, width)) /*<<?>>*/ ;
     }
     function skip_spaces(counter, width){
      var width$0 =  /*<<scanf.ml:1080:10>>*/ width;
      for(;;){
-       /*<<scanf.ml:1080:45>>*/ if
-       (32
-        !==
-          /*<<scanf.ml:1002:33>>*/ check_next_char(cst_a_String, width$0, ib)){
+       /*<<scanf.ml:1002:33>>*/ if
+       (32 !== check_next_char(cst_a_String, width$0, ib)){
         /*<<scanf.ml:1082:11>>*/ if(counter >= 50)
         return caml_trampoline_return(find_stop$0, [0, width$0]) /*<<scanf.ml:1082:26>>*/ ;
        var counter$0 =  /*<<scanf.ml:1082:11>>*/ counter + 1 | 0;
@@ -31541,7 +30721,7 @@
      var s =  /*<<scanf.ml:1122:20>>*/ x[2];
     }
     var i =  /*<<scanf.ml:1124:12>>*/ char_count(ib);
-     /*<<scanf.ml:1125:75>>*/ return bad_input
+     /*<<scanf.ml:1125:14>>*/ return  /*<<scanf.ml:1125:75>>*/ bad_input
             ( /*<<scanf.ml:1125:14>>*/ caml_call3(Stdlib_Printf[4], _o_, i, s)) /*<<scanf.ml:1126:16>>*/ ;
    }
    function width_of_pad_opt(pad_opt){
@@ -31558,7 +30738,7 @@
         /*<<scanf.ml:1145:14>>*/ caml_call1(CamlinternalFormat[17], fmting),
      stp =  /*<<scanf.ml:1146:14>>*/ caml_string_get(str, 1),
      sub_str =
-        /*<<scanf.ml:1147:18>>*/ caml_call3
+        /*<<scanf.ml:1147:4>>*/  /*<<scanf.ml:1147:18>>*/ caml_call3
         (Stdlib_String[16],
          str,
          2,
@@ -31749,7 +30929,7 @@
     }
     /*<<scanf.ml:1198:45>>*/ }
    function take_format_readers(k, fmt){
-     /*<<?>>*/ return caml_trampoline
+     /*<<scanf.ml:1161:13>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<scanf.ml:1161:13>>*/ take_format_readers$0(0, k, fmt)) /*<<?>>*/ ;
    }
    function take_fmtty_format_readers$0(counter, k, fmtty, fmt){
@@ -31847,7 +31027,7 @@
     }
     /*<<scanf.ml:1228:58>>*/ }
    function take_fmtty_format_readers(k, fmtty, fmt){
-     /*<<?>>*/ return caml_trampoline
+     /*<<scanf.ml:1204:19>>*/ return  /*<<?>>*/ caml_trampoline
             ( /*<<scanf.ml:1204:19>>*/ take_fmtty_format_readers$0
               (0, k, fmtty, fmt)) /*<<?>>*/ ;
    }
@@ -31858,12 +31038,12 @@
       /*<<scanf.ml:1266:22>>*/ switch(fmt$0[0]){
        case 0:
         var rest = fmt$0[1];
-         /*<<scanf.ml:939:62>>*/ store_char
+         /*<<scanf.ml:939:31>>*/  /*<<scanf.ml:939:62>>*/ store_char
          (0, ib,  /*<<scanf.ml:939:31>>*/ checked_peek_char(ib));
         var c$0 =  /*<<scanf.ml:1269:12>>*/ token_char(ib);
-         /*<<scanf.ml:1270:39>>*/ return [0,
+         /*<<scanf.ml:1270:13>>*/ return [0,
                 c$0,
-                 /*<<scanf.ml:1270:13>>*/ make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:39>>*/ ;
+                make_scanf(ib, rest, readers)] /*<<scanf.ml:1270:39>>*/ ;
        case 1:
         var
          rest$0 =  /*<<scanf.ml:1266:22>>*/ fmt$0[1],
@@ -31878,26 +31058,26 @@
                     :  /*<<scanf.ml:1049:11>>*/ character_mismatch(39, c) /*<<scanf.ml:1049:36>>*/ ;
            },
          c =  /*<<scanf.ml:1035:10>>*/ checked_peek_char(ib),
-         width$0 =  /*<<scanf.ml:1272:4>>*/ 0;
-         /*<<scanf.ml:1035:39>>*/ if(39 === c){
+         width$0 =  /*<<scanf.ml:1035:39>>*/ 0;
+        if(39 === c){
          var
           width =  /*<<scanf.ml:1036:24>>*/ ignore_char(width$0, ib),
           c$3 =
              /*<<scanf.ml:1001:31>>*/ check_next_char(cst_a_Char, width, ib);
           /*<<scanf.ml:1040:43>>*/ if(92 === c$3)
-           /*<<scanf.ml:1042:72>>*/ find_stop
+           /*<<scanf.ml:1042:37>>*/  /*<<scanf.ml:1042:72>>*/ find_stop
            ( /*<<scanf.ml:1042:16>>*/ scan_backslash_char
              ( /*<<scanf.ml:1042:37>>*/ ignore_char(width, ib), ib));
          else
-           /*<<scanf.ml:1044:48>>*/ find_stop
+           /*<<scanf.ml:1044:16>>*/  /*<<scanf.ml:1044:48>>*/ find_stop
            ( /*<<scanf.ml:1044:16>>*/ store_char(width, ib, c$3));
         }
         else
           /*<<scanf.ml:1037:11>>*/ character_mismatch(39, c);
         var c$1 =  /*<<scanf.ml:1273:12>>*/ token_char(ib);
-         /*<<scanf.ml:1274:39>>*/ return [0,
+         /*<<scanf.ml:1274:13>>*/ return [0,
                 c$1,
-                 /*<<scanf.ml:1274:13>>*/ make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:39>>*/ ;
+                make_scanf(ib, rest$0, readers)] /*<<scanf.ml:1274:39>>*/ ;
        case 2:
         var pad =  /*<<scanf.ml:1266:22>>*/ fmt$0[1], match = fmt$0[2];
         if(typeof match !== "number")
@@ -31928,7 +31108,7 @@
                  /*<<scanf.ml:1282:4>>*/ function(width, param, ib){
                   /*<<scanf.ml:1282:26>>*/ return scan_string(_q_, width, ib) /*<<scanf.ml:1282:57>>*/ ;
                 };
-              /*<<scanf.ml:1283:44>>*/ return pad_prec_scanf
+              /*<<scanf.ml:1283:22>>*/ return  /*<<scanf.ml:1283:44>>*/ pad_prec_scanf
                      (ib,
                        /*<<scanf.ml:1283:22>>*/ caml_call2
                        (CamlinternalFormatBasics[3], fmt$1, rest$3),
@@ -31945,7 +31125,7 @@
                 /*<<scanf.ml:1286:4>>*/ function(width, param, ib){
                  /*<<scanf.ml:1286:26>>*/ return scan_string(_r_, width, ib) /*<<scanf.ml:1286:57>>*/ ;
                };
-             /*<<scanf.ml:1287:44>>*/ return pad_prec_scanf
+             /*<<scanf.ml:1287:22>>*/ return  /*<<scanf.ml:1287:44>>*/ pad_prec_scanf
                     (ib,
                       /*<<scanf.ml:1287:22>>*/ caml_call2
                       (CamlinternalFormatBasics[3], fmt$2, rest$4),
@@ -31980,7 +31160,7 @@
          pad$1 = fmt$0[2],
          iconv = fmt$0[1],
          conv =
-            /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
+            /*<<scanf.ml:1297:39>>*/  /*<<scanf.ml:1297:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1297:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv)),
          scan$4 =
@@ -31996,7 +31176,7 @@
                  prec,
                  scan$4,
                  function(ib){
-                   /*<<scanf.ml:537:65>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
+                   /*<<scanf.ml:537:38>>*/ return  /*<<scanf.ml:537:24>>*/ caml_int_of_string
                           ( /*<<scanf.ml:537:38>>*/ token_int_literal(conv, ib)) /*<<scanf.ml:537:65>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 5:
@@ -32006,7 +31186,7 @@
          pad$2 = fmt$0[2],
          iconv$0 = fmt$0[1],
          conv$0 =
-            /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
+            /*<<scanf.ml:1301:39>>*/  /*<<scanf.ml:1301:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1301:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$0)),
          scan$5 =
@@ -32022,7 +31202,7 @@
                  prec$0,
                  scan$5,
                  function(ib){
-                   /*<<scanf.ml:558:69>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
+                   /*<<scanf.ml:558:42>>*/ return  /*<<scanf.ml:558:26>>*/ caml_int_of_string
                           ( /*<<scanf.ml:558:42>>*/ token_int_literal(conv$0, ib)) /*<<scanf.ml:558:69>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 6:
@@ -32032,7 +31212,7 @@
          pad$3 = fmt$0[2],
          iconv$1 = fmt$0[1],
          conv$1 =
-            /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
+            /*<<scanf.ml:1305:39>>*/  /*<<scanf.ml:1305:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1305:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$1)),
          scan$6 =
@@ -32048,7 +31228,7 @@
                  prec$1,
                  scan$6,
                  function(ib){
-                   /*<<scanf.ml:557:77>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
+                   /*<<scanf.ml:557:50>>*/ return  /*<<scanf.ml:557:30>>*/ caml_int_of_string
                           ( /*<<scanf.ml:557:50>>*/ token_int_literal(conv$1, ib)) /*<<scanf.ml:557:77>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 7:
@@ -32058,7 +31238,7 @@
          pad$4 = fmt$0[2],
          iconv$2 = fmt$0[1],
          conv$2 =
-            /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
+            /*<<scanf.ml:1309:39>>*/  /*<<scanf.ml:1309:12>>*/ integer_conversion_of_char
             ( /*<<scanf.ml:1309:39>>*/ caml_call1
               (CamlinternalFormat[16], iconv$2)),
          scan$7 =
@@ -32074,7 +31254,7 @@
                  prec$2,
                  scan$7,
                  function(ib){
-                   /*<<scanf.ml:559:69>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
+                   /*<<scanf.ml:559:42>>*/ return  /*<<scanf.ml:559:26>>*/ runtime.caml_int64_of_string
                           ( /*<<scanf.ml:559:42>>*/ token_int_literal(conv$2, ib)) /*<<scanf.ml:559:69>>*/ ;
                  }) /*<<scanf.ml:1418:7>>*/ ;
        case 8:
@@ -32141,8 +31321,7 @@
                 (ib, rest$13, readers, pad$8, 0, scan$8, token_bool) /*<<scanf.ml:1418:7>>*/ ;
        case 10:
         var rest$14 =  /*<<scanf.ml:1266:22>>*/ fmt$0[1];
-         /*<<scanf.ml:1337:31>>*/ if
-         (!  /*<<scanf.ml:1337:7>>*/ end_of_input(ib))
+         /*<<scanf.ml:1337:7>>*/ if(! end_of_input(ib))
           /*<<scanf.ml:1338:9>>*/ return bad_input(cst_end_of_input_not_found) /*<<scanf.ml:1418:7>>*/ ;
          /*<<scanf.ml:1337:37>>*/ fmt$0 = rest$14;
         break;
@@ -32164,7 +31343,7 @@
          rest$17 =  /*<<scanf.ml:1266:22>>*/ fmt$0[3],
          fmtty = fmt$0[2],
          pad_opt = fmt$0[1];
-         /*<<scanf.ml:1348:12>>*/ scan_caml_string
+         /*<<scanf.ml:1348:29>>*/  /*<<scanf.ml:1348:12>>*/ scan_caml_string
          ( /*<<scanf.ml:1348:29>>*/ width_of_pad_opt(pad_opt), ib);
         var s =  /*<<scanf.ml:1349:12>>*/ token_string(ib);
          /*<<scanf.ml:1350:4>>*/ try{
@@ -32182,25 +31361,25 @@
           fmt$3 =
              /*<<scanf.ml:1352:39>>*/  /*<<scanf.ml:1352:26>>*/ bad_input(msg);
         }
-         /*<<scanf.ml:1354:41>>*/ return [0,
+         /*<<scanf.ml:1354:15>>*/ return [0,
                 fmt$3,
-                 /*<<scanf.ml:1354:15>>*/ make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:41>>*/ ;
+                make_scanf(ib, rest$17, readers)] /*<<scanf.ml:1354:41>>*/ ;
        case 14:
         var
          rest$18 =  /*<<scanf.ml:1266:22>>*/ fmt$0[3],
          fmtty$0 = fmt$0[2],
          pad_opt$0 = fmt$0[1];
-         /*<<scanf.ml:1356:12>>*/ scan_caml_string
+         /*<<scanf.ml:1356:29>>*/  /*<<scanf.ml:1356:12>>*/ scan_caml_string
          ( /*<<scanf.ml:1356:29>>*/ width_of_pad_opt(pad_opt$0), ib);
         var s$0 =  /*<<scanf.ml:1357:12>>*/ token_string(ib);
          /*<<scanf.ml:1358:4>>*/ try{
          var
           fmt$6 =
-             /*<<scanf.ml:1360:45>>*/  /*<<scanf.ml:1360:26>>*/ caml_call2
+             /*<<scanf.ml:1360:26>>*/ caml_call2
               (CamlinternalFormat[13], 0, s$0)
              [1],
           fmt$7 =
-             /*<<scanf.ml:1361:46>>*/  /*<<scanf.ml:1361:27>>*/ caml_call2
+             /*<<scanf.ml:1361:27>>*/ caml_call2
               (CamlinternalFormat[13], 0, s$0)
              [1],
           _G_ =
@@ -32231,7 +31410,7 @@
           fmt$5 = _F_[2],
           fmt$4 = _F_[1];
         }
-         /*<<scanf.ml:1379:54>>*/ return [0,
+         /*<<scanf.ml:1379:24>>*/ return [0,
                 [0, fmt$4, s$0],
                  /*<<scanf.ml:1379:10>>*/ make_scanf
                  (ib,
@@ -32289,10 +31468,9 @@
          readers_rest =  /*<<scanf.ml:1329:4>>*/ readers[2],
          reader = readers[1],
          x =  /*<<scanf.ml:1331:16>>*/ caml_call1(reader, ib);
-         /*<<scanf.ml:1332:52>>*/ return [0,
+         /*<<scanf.ml:1332:17>>*/ return [0,
                 x,
-                 /*<<scanf.ml:1332:17>>*/ make_scanf
-                 (ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:52>>*/ ;
+                make_scanf(ib, fmt_rest, readers_rest)] /*<<scanf.ml:1332:52>>*/ ;
        case 20:
         var
          width_opt =  /*<<scanf.ml:1266:22>>*/ fmt$0[1],
@@ -32312,9 +31490,9 @@
          var
           s$2 =  /*<<scanf.ml:1385:12>>*/ token_string(ib),
           str_rest$0 =  /*<<scanf.ml:1386:4>>*/ [11, str$1, rest$23];
-          /*<<scanf.ml:1387:43>>*/ return [0,
+          /*<<scanf.ml:1387:13>>*/ return [0,
                  s$2,
-                  /*<<scanf.ml:1387:13>>*/ make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:43>>*/ ;
+                 make_scanf(ib, str_rest$0, readers)] /*<<scanf.ml:1387:43>>*/ ;
         }
         var
          rest$22 =  /*<<scanf.ml:1266:22>>*/ fmt$0[3],
@@ -32323,9 +31501,9 @@
          /*<<scanf.ml:1390:4>>*/ scan_chars_in_char_set
          (char_set, 0, width$1, ib);
         var s$1 =  /*<<scanf.ml:1391:12>>*/ token_string(ib);
-         /*<<scanf.ml:1392:39>>*/ return [0,
+         /*<<scanf.ml:1392:13>>*/ return [0,
                 s$1,
-                 /*<<scanf.ml:1392:13>>*/ make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:39>>*/ ;
+                make_scanf(ib, rest$22, readers)] /*<<scanf.ml:1392:39>>*/ ;
        case 21:
         var rest$24 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2], counter = fmt$0[1];
          /*<<scanf.ml:1131:2>>*/ switch(counter){
@@ -32335,22 +31513,22 @@
            var count =  /*<<scanf.ml:1133:20>>*/ char_count(ib); break;
           default: var count =  /*<<scanf.ml:234:23>>*/ ib[6];
         }
-         /*<<scanf.ml:1395:43>>*/ return [0,
+         /*<<scanf.ml:1395:17>>*/ return [0,
                 count,
-                 /*<<scanf.ml:1395:17>>*/ make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:43>>*/ ;
+                make_scanf(ib, rest$24, readers)] /*<<scanf.ml:1395:43>>*/ ;
        case 22:
         var
          rest$25 =  /*<<scanf.ml:1266:22>>*/ fmt$0[1],
          c$2 =  /*<<scanf.ml:1397:12>>*/ checked_peek_char(ib);
-         /*<<scanf.ml:1398:39>>*/ return [0,
+         /*<<scanf.ml:1398:13>>*/ return [0,
                 c$2,
-                 /*<<scanf.ml:1398:13>>*/ make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:39>>*/ ;
+                make_scanf(ib, rest$25, readers)] /*<<scanf.ml:1398:39>>*/ ;
        case 23:
         var
          rest$26 =  /*<<scanf.ml:1266:22>>*/ fmt$0[2],
          ign = fmt$0[1],
          fmt$13 =
-            /*<<scanf.ml:1411:71>>*/  /*<<scanf.ml:1411:32>>*/ caml_call2
+            /*<<scanf.ml:1411:32>>*/ caml_call2
              (CamlinternalFormat[6], ign, rest$26)
             [1],
          match$3 =  /*<<scanf.ml:1412:16>>*/ make_scanf(ib, fmt$13, readers);
@@ -32371,18 +31549,14 @@
       var p = prec[1];
        /*<<scanf.ml:1435:12>>*/ caml_call3(scan, Stdlib[19], p, ib);
       var x$0 =  /*<<scanf.ml:1436:12>>*/ caml_call1(token, ib);
-       /*<<scanf.ml:1437:38>>*/ return [0,
-              x$0,
-               /*<<scanf.ml:1437:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:38>>*/ ;
+       /*<<scanf.ml:1437:13>>*/ return [0, x$0, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1437:38>>*/ ;
      }
       /*<<scanf.ml:1429:42>>*/ if(prec)
        /*<<scanf.ml:1453:4>>*/ return caml_call1
               (Stdlib[1], cst_scanf_bad_conversion) /*<<scanf.ml:1453:46>>*/ ;
       /*<<scanf.ml:1431:12>>*/ caml_call3(scan, Stdlib[19], Stdlib[19], ib);
      var x =  /*<<scanf.ml:1432:12>>*/ caml_call1(token, ib);
-      /*<<scanf.ml:1433:38>>*/ return [0,
-             x,
-              /*<<scanf.ml:1433:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:38>>*/ ;
+      /*<<scanf.ml:1433:13>>*/ return [0, x, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1433:38>>*/ ;
     }
      /*<<scanf.ml:1429:42>>*/ if(0 !== pad[0])
       /*<<scanf.ml:1451:4>>*/ return caml_call1
@@ -32395,18 +31569,14 @@
      var p$0 = prec[1];
       /*<<scanf.ml:1443:12>>*/ caml_call3(scan, w, p$0, ib);
      var x$2 =  /*<<scanf.ml:1444:12>>*/ caml_call1(token, ib);
-      /*<<scanf.ml:1445:38>>*/ return [0,
-             x$2,
-              /*<<scanf.ml:1445:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:38>>*/ ;
+      /*<<scanf.ml:1445:13>>*/ return [0, x$2, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1445:38>>*/ ;
     }
      /*<<scanf.ml:1429:42>>*/ if(prec)
       /*<<scanf.ml:1449:4>>*/ return caml_call1
              (Stdlib[1], cst_scanf_bad_conversion$0) /*<<scanf.ml:1453:46>>*/ ;
      /*<<scanf.ml:1439:12>>*/ caml_call3(scan, w, Stdlib[19], ib);
     var x$1 =  /*<<scanf.ml:1440:12>>*/ caml_call1(token, ib);
-     /*<<scanf.ml:1441:38>>*/ return [0,
-            x$1,
-             /*<<scanf.ml:1441:13>>*/ make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:38>>*/ ;
+     /*<<scanf.ml:1441:13>>*/ return [0, x$1, make_scanf(ib, fmt, readers)] /*<<scanf.ml:1441:38>>*/ ;
     /*<<scanf.ml:1453:46>>*/ }
    function kscanf_gen(ib, ef, af, param){
     var str =  /*<<scanf.ml:1458:15>>*/ param[2], fmt = param[1];
@@ -32472,15 +31642,15 @@
      /*<<scanf.ml:1486:24>>*/ return kscanf_opt(ib, fmt) /*<<scanf.ml:1486:41>>*/ ;
    }
    function ksscanf(s, ef, fmt){
-     /*<<scanf.ml:1488:55>>*/ return kscanf
+     /*<<scanf.ml:1488:31>>*/ return  /*<<scanf.ml:1488:55>>*/ kscanf
             ( /*<<scanf.ml:1488:31>>*/ from_string(s), ef, fmt) /*<<scanf.ml:1488:62>>*/ ;
    }
    function sscanf(s, fmt){
-     /*<<scanf.ml:1489:51>>*/ return kscanf
+     /*<<scanf.ml:1489:27>>*/ return  /*<<scanf.ml:1489:51>>*/ kscanf
             ( /*<<scanf.ml:1489:27>>*/ from_string(s), scanf_bad_input, fmt) /*<<scanf.ml:1489:71>>*/ ;
    }
    function sscanf_opt(s, fmt){
-     /*<<scanf.ml:1490:58>>*/ return kscanf_opt
+     /*<<scanf.ml:1490:34>>*/ return  /*<<scanf.ml:1490:58>>*/ kscanf_opt
             ( /*<<scanf.ml:1490:34>>*/ from_string(s), fmt) /*<<scanf.ml:1490:62>>*/ ;
    }
    function scanf(fmt){
@@ -32509,14 +31679,14 @@
      /*<<scanf.ml:1507:4>>*/ return caml_call1(f, fmt) /*<<scanf.ml:1507:10>>*/ ;
    }
    function sscanf_format(s, format, f){
-     /*<<scanf.ml:1513:58>>*/ return bscanf_format
+     /*<<scanf.ml:1513:34>>*/ return  /*<<scanf.ml:1513:58>>*/ bscanf_format
             ( /*<<scanf.ml:1513:34>>*/ from_string(s), format, f) /*<<scanf.ml:1513:67>>*/ ;
    }
    function format_from_string(s, fmt){
     var
      _v_ =  /*<<scanf.ml:1517:24>>*/ caml_call1(Stdlib_String[25], s),
      _w_ = caml_call2(Stdlib[28], _v_, cst$1);
-     /*<<scanf.ml:1517:48>>*/ return sscanf_format
+     /*<<scanf.ml:1517:16>>*/ return  /*<<scanf.ml:1517:48>>*/ sscanf_format
             ( /*<<scanf.ml:1517:16>>*/ caml_call2(Stdlib[28], cst$2, _w_),
              fmt,
              function(x){
@@ -32525,7 +31695,7 @@
    }
    function unescaped(s){
     var _u_ =  /*<<scanf.ml:1521:17>>*/ caml_call2(Stdlib[28], s, cst$3);
-     /*<<scanf.ml:1521:26>>*/ return caml_call1
+     /*<<scanf.ml:1521:9>>*/ return  /*<<scanf.ml:1521:26>>*/ caml_call1
             (sscanf
               ( /*<<scanf.ml:1521:9>>*/ caml_call2(Stdlib[28], cst$4, _u_),
                _t_),
@@ -32580,15 +31750,9 @@
     register = caml_register_named_value;
    function register_exception(name, exn){
     var
-     _a_ =  /*<<callback.ml:25:2>>*/ Stdlib_Obj[10],
-     slot =
-        /*<<callback.ml:26:27>>*/  /*<<callback.ml:26:16>>*/ runtime.caml_obj_tag
-         (exn)
-        === _a_
-        ? exn
-        : exn[1];
-     /*<<callback.ml:27:32>>*/ return  /*<<callback.ml:27:2>>*/ caml_register_named_value
-            (name, slot) /*<<callback.ml:27:32>>*/ ;
+     _a_ =  /*<<callback.ml:26:16>>*/ Stdlib_Obj[10],
+     slot = runtime.caml_obj_tag(exn) === _a_ ? exn : exn[1];
+     /*<<callback.ml:27:2>>*/ return caml_register_named_value(name, slot) /*<<callback.ml:27:32>>*/ ;
    }
    var Stdlib_Callback =  /*<<?>>*/ [0, register, register_exception];
    runtime.caml_register_global(1, Stdlib_Callback, "Stdlib__Callback");
@@ -32644,8 +31808,7 @@
     Stdlib_Map = global_data.Stdlib__Map;
    function copy(o){
     var o$0 =  /*<<camlinternalOO.ml:23:19>>*/ o.slice();
-     /*<<camlinternalOO.ml:24:10>>*/ return  /*<<camlinternalOO.ml:24:2>>*/ caml_set_oo_id
-            (o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
+     /*<<camlinternalOO.ml:24:2>>*/ return caml_set_oo_id(o$0) /*<<camlinternalOO.ml:24:10>>*/ ;
    }
    var params =  /*<<?>>*/ [0, 1, 1, 1, 3, 16];
    function public_method_label(s){
@@ -32654,8 +31817,8 @@
      _al_ =
         /*<<camlinternalOO.ml:70:2>>*/ runtime.caml_ml_string_length(s) - 1
        | 0,
-     _ak_ =  /*<<camlinternalOO.ml:69:2>>*/ 0;
-     /*<<camlinternalOO.ml:70:2>>*/ if(_al_ >= 0){
+     _ak_ = 0;
+    if(_al_ >= 0){
      var i = _ak_;
      for(;;){
       var
@@ -32685,7 +31848,7 @@
     dummy_table = [0, 0, [0, 0], Meths[1], Labs[1], 0, 0, Vars[1], 0],
     table_count = [0, 0],
     dummy_met =  /*<<camlinternalOO.ml:119:31>>*/ caml_obj_block(0, 0),
-    initial_object_size =  /*<<?>>*/ 2;
+    initial_object_size =  /*<<camlinternalOO.ml:119:50>>*/ 2;
    function fit_size(n){
      /*<<camlinternalOO.ml:124:2>>*/ return 2 < n
             ?  /*<<camlinternalOO.ml:125:2>>*/ fit_size
@@ -32703,9 +31866,9 @@
         ((len * 2 | 0) + 2 | 0, dummy_met);
      /*<<camlinternalOO.ml:131:2>>*/ caml_check_bound(methods, 0)[1] = len;
     var
-     _ad_ =  /*<<camlinternalOO.ml:131:30>>*/ Stdlib_Sys[9],
+     _ad_ =  /*<<camlinternalOO.ml:132:28>>*/ Stdlib_Sys[9],
      _ae_ =
-        /*<<camlinternalOO.ml:132:40>>*/ (runtime.caml_mul
+       ( /*<<camlinternalOO.ml:132:40>>*/ runtime.caml_mul
         ( /*<<camlinternalOO.ml:132:28>>*/ fit_size(len), _ad_)
        / 8
        | 0)
@@ -32759,7 +31922,7 @@
    var
     method_count =  /*<<camlinternalOO.ml:119:50>>*/ [0, 0],
     inst_var_count = [0, 0],
-    _a_ =  /*<<?>>*/ [0, cst_camlinternalOO_ml, 279, 50],
+    _a_ = [0, cst_camlinternalOO_ml, 279, 50],
     _b_ = [0, cst_camlinternalOO_ml, 407, 13],
     _c_ = [0, cst_camlinternalOO_ml, 410, 13],
     _d_ = [0, cst_camlinternalOO_ml, 413, 13],
@@ -32782,12 +31945,10 @@
      var ___ =  /*<<?>>*/ caml_wrap_exception(_aa_);
      if(___ !== Stdlib[8]) throw caml_maybe_attach_backtrace(___, 0);
      var label =  /*<<camlinternalOO.ml:172:16>>*/ new_method(table);
-      /*<<camlinternalOO.ml:173:71>>*/ table[3] =
-       /*<<camlinternalOO.ml:173:29>>*/ caml_call3
-       (Meths[2], name, label, table[3]);
-      /*<<camlinternalOO.ml:174:72>>*/ table[4] =
-       /*<<camlinternalOO.ml:174:30>>*/ caml_call3
-       (Labs[2], label, 1, table[4]);
+      /*<<camlinternalOO.ml:173:29>>*/ table[3] =
+      caml_call3(Meths[2], name, label, table[3]);
+      /*<<camlinternalOO.ml:174:30>>*/ table[4] =
+      caml_call3(Labs[2], label, 1, table[4]);
       /*<<camlinternalOO.ml:175:4>>*/ return label;
     }
     /*<<camlinternalOO.ml:175:9>>*/ }
@@ -32802,7 +31963,7 @@
    }
    function set_method(table, label, element){
      /*<<camlinternalOO.ml:181:2>>*/ method_count[1]++;
-     /*<<camlinternalOO.ml:182:43>>*/ return  /*<<camlinternalOO.ml:182:5>>*/ caml_call2
+     /*<<camlinternalOO.ml:182:5>>*/ return caml_call2
              (Labs[17], label, table[4])
             ? ( /*<<camlinternalOO.ml:152:2>>*/ resize
                (table, label + 1 | 0),
@@ -32824,7 +31985,7 @@
     catch(_Y_){
      var _W_ =  /*<<?>>*/ caml_wrap_exception(_Y_);
      if(_W_ === Stdlib[8])
-       /*<<camlinternalOO.ml:189:41>>*/ return  /*<<camlinternalOO.ml:189:20>>*/ caml_check_bound
+       /*<<camlinternalOO.ml:189:20>>*/ return caml_check_bound
                (table[2], label)
               [1 + label] /*<<camlinternalOO.ml:189:41>>*/ ;
       /*<<?>>*/ throw caml_maybe_attach_backtrace(_W_, 0);
@@ -32861,11 +32022,11 @@
      [0,
       [0, table[3], table[4], table[6], table[7], virt_meth_labs, vars$0],
       table[5]];
-     /*<<camlinternalOO.ml:208:27>>*/ table[7] =
-      /*<<camlinternalOO.ml:205:4>>*/ caml_call3
+     /*<<camlinternalOO.ml:205:4>>*/ table[7] =
+     caml_call3
       (Vars[24],
        function(lab, info, tvars){
-         /*<<camlinternalOO.ml:207:28>>*/ return  /*<<camlinternalOO.ml:207:11>>*/ caml_call2
+         /*<<camlinternalOO.ml:207:11>>*/ return caml_call2
                  (Stdlib_List[37], lab, vars$0)
                 ?  /*<<camlinternalOO.ml:207:34>>*/ caml_call3
                   (Vars[2], lab, info, tvars)
@@ -32879,9 +32040,8 @@
      /*<<camlinternalOO.ml:211:2>>*/ caml_call3
      (Stdlib_List[28],
       function(met, label){
-        /*<<camlinternalOO.ml:213:46>>*/ by_name[1] =
-         /*<<camlinternalOO.ml:213:18>>*/ caml_call3
-         (Meths[2], met, label, by_name[1]);
+        /*<<camlinternalOO.ml:213:18>>*/ by_name[1] =
+        caml_call3(Meths[2], met, label, by_name[1]);
        var _P_ =  /*<<camlinternalOO.ml:214:7>>*/ by_label[1];
        try{
         var
@@ -32895,8 +32055,8 @@
         if(_Q_ !== Stdlib[8]) throw caml_maybe_attach_backtrace(_Q_, 0);
         var _R_ =  /*<<camlinternalOO.ml:216:74>>*/ 1;
        }
-        /*<<camlinternalOO.ml:217:21>>*/ by_label[1] =
-         /*<<camlinternalOO.ml:215:10>>*/ caml_call3(Labs[2], label, _R_, _P_);
+        /*<<camlinternalOO.ml:215:10>>*/ by_label[1] =
+        caml_call3(Labs[2], label, _R_, _P_);
         /*<<camlinternalOO.ml:217:21>>*/ return 0;
       },
       concr_meths$0,
@@ -32904,24 +32064,22 @@
      /*<<camlinternalOO.ml:219:2>>*/ caml_call3
      (Stdlib_List[28],
       function(met, label){
-        /*<<camlinternalOO.ml:221:46>>*/ by_name[1] =
-         /*<<camlinternalOO.ml:221:18>>*/ caml_call3
-         (Meths[2], met, label, by_name[1]);
-        /*<<camlinternalOO.ml:222:49>>*/ by_label[1] =
-         /*<<camlinternalOO.ml:222:19>>*/ caml_call3
-         (Labs[2], label, 0, by_label[1]);
+        /*<<camlinternalOO.ml:221:18>>*/ by_name[1] =
+        caml_call3(Meths[2], met, label, by_name[1]);
+        /*<<camlinternalOO.ml:222:19>>*/ by_label[1] =
+        caml_call3(Labs[2], label, 0, by_label[1]);
         /*<<camlinternalOO.ml:222:49>>*/ return 0;
       },
       virt_meths$0,
       virt_meth_labs);
      /*<<camlinternalOO.ml:223:29>>*/ table[3] = by_name[1];
      /*<<camlinternalOO.ml:225:2>>*/ table[4] = by_label[1];
-     /*<<camlinternalOO.ml:231:9>>*/ table[6] =
-      /*<<camlinternalOO.ml:227:5>>*/ caml_call3
+     /*<<camlinternalOO.ml:227:5>>*/ table[6] =
+     caml_call3
       (Stdlib_List[27],
        function(met, hm){
         var lab =  /*<<camlinternalOO.ml:228:7>>*/ met[1];
-         /*<<camlinternalOO.ml:229:40>>*/ return  /*<<camlinternalOO.ml:229:13>>*/ caml_call2
+         /*<<camlinternalOO.ml:229:13>>*/ return caml_call2
                  (Stdlib_List[37], lab, virt_meth_labs)
                 ? hm
                 : [0, met, hm] /*<<camlinternalOO.ml:229:62>>*/ ;
@@ -32940,10 +32098,10 @@
      saved_hidden_meths = match[3],
      by_label = match[2],
      by_name = match[1];
-     /*<<camlinternalOO.ml:237:56>>*/ table[5] =
-      /*<<camlinternalOO.ml:237:27>>*/ caml_call1(Stdlib_List[7], table[5]);
-     /*<<camlinternalOO.ml:241:22>>*/ table[7] =
-      /*<<camlinternalOO.ml:239:5>>*/ caml_call3
+     /*<<camlinternalOO.ml:237:27>>*/ table[5] =
+     caml_call1(Stdlib_List[7], table[5]);
+     /*<<camlinternalOO.ml:239:5>>*/ table[7] =
+     caml_call3
       (Stdlib_List[26],
        function(s, v){
         var
@@ -32956,12 +32114,12 @@
        vars);
      /*<<camlinternalOO.ml:242:2>>*/ table[3] = by_name;
      /*<<camlinternalOO.ml:243:2>>*/ table[4] = by_label;
-     /*<<camlinternalOO.ml:249:25>>*/ table[6] =
-      /*<<camlinternalOO.ml:245:5>>*/ caml_call3
+     /*<<camlinternalOO.ml:245:5>>*/ table[6] =
+     caml_call3
       (Stdlib_List[27],
        function(met, hm){
         var lab =  /*<<camlinternalOO.ml:246:7>>*/ met[1];
-         /*<<camlinternalOO.ml:247:36>>*/ return  /*<<camlinternalOO.ml:247:13>>*/ caml_call2
+         /*<<camlinternalOO.ml:247:13>>*/ return caml_call2
                  (Stdlib_List[37], lab, virt_meths)
                 ? hm
                 : [0, met, hm] /*<<camlinternalOO.ml:247:58>>*/ ;
@@ -32983,15 +32141,13 @@
      var index =  /*<<camlinternalOO.ml:252:2>>*/ table[1];
       /*<<camlinternalOO.ml:253:2>>*/ table[1] = index + 1 | 0;
       /*<<camlinternalOO.ml:260:17>>*/ if(name !== "")
-       /*<<camlinternalOO.ml:260:67>>*/ table[7] =
-        /*<<camlinternalOO.ml:260:37>>*/ caml_call3
-        (Vars[2], name, index, table[7]);
+       /*<<camlinternalOO.ml:260:37>>*/ table[7] =
+       caml_call3(Vars[2], name, index, table[7]);
       /*<<camlinternalOO.ml:261:4>>*/ return index;
     }
     /*<<camlinternalOO.ml:261:9>>*/ }
    function to_array(arr){
-     /*<<camlinternalOO.ml:264:22>>*/ return  /*<<camlinternalOO.ml:264:5>>*/ runtime.caml_equal
-             (arr, 0)
+     /*<<camlinternalOO.ml:264:5>>*/ return runtime.caml_equal(arr, 0)
             ? [0]
             : arr /*<<camlinternalOO.ml:264:41>>*/ ;
    }
@@ -33003,13 +32159,13 @@
      res =
         /*<<camlinternalOO.ml:269:12>>*/ caml_make_vect(nmeths + nvals | 0, 0),
      _D_ =  /*<<camlinternalOO.ml:270:2>>*/ nmeths - 1 | 0,
-     _C_ =  /*<<camlinternalOO.ml:269:41>>*/ 0;
-     /*<<camlinternalOO.ml:270:2>>*/ if(_D_ >= 0){
+     _C_ = 0;
+    if(_D_ >= 0){
      var i$0 = _C_;
      for(;;){
       var
        _J_ =
-          /*<<camlinternalOO.ml:271:15>>*/ get_method_label
+          /*<<camlinternalOO.ml:271:38>>*/  /*<<camlinternalOO.ml:271:15>>*/ get_method_label
           (table,
             /*<<camlinternalOO.ml:271:38>>*/ caml_check_bound(meths$0, i$0)
             [1 + i$0]);
@@ -33026,7 +32182,7 @@
       var
        _H_ =  /*<<camlinternalOO.ml:274:49>>*/ i + nmeths | 0,
        _G_ =
-          /*<<camlinternalOO.ml:274:22>>*/ new_variable
+          /*<<camlinternalOO.ml:274:41>>*/  /*<<camlinternalOO.ml:274:22>>*/ new_variable
           (table,
             /*<<camlinternalOO.ml:274:41>>*/ caml_check_bound(vals, i)[1 + i]);
        /*<<camlinternalOO.ml:274:4>>*/ caml_check_bound(res, _H_)[1 + _H_] = _G_;
@@ -33077,12 +32233,10 @@
      (Stdlib_Array[13],
       function(i, met){
        var lab =  /*<<camlinternalOO.ml:305:6>>*/ (i * 2 | 0) + 2 | 0;
-        /*<<camlinternalOO.ml:306:71>>*/ table[3] =
-         /*<<camlinternalOO.ml:306:32>>*/ caml_call3
-         (Meths[2], met, lab, table[3]);
-        /*<<camlinternalOO.ml:307:72>>*/ table[4] =
-         /*<<camlinternalOO.ml:307:32>>*/ caml_call3
-         (Labs[2], lab, 1, table[4]);
+        /*<<camlinternalOO.ml:306:32>>*/ table[3] =
+        caml_call3(Meths[2], met, lab, table[3]);
+        /*<<camlinternalOO.ml:307:32>>*/ table[4] =
+        caml_call3(Labs[2], lab, 1, table[4]);
         /*<<camlinternalOO.ml:307:72>>*/ return 0;
       },
       public_methods);
@@ -33091,10 +32245,10 @@
    function init_class(table){
      /*<<camlinternalOO.ml:312:2>>*/ inst_var_count[1] =
      (inst_var_count[1] + table[1] | 0) - 1 | 0;
-     /*<<camlinternalOO.ml:313:51>>*/ table[8] =
-      /*<<camlinternalOO.ml:313:24>>*/ caml_call1(Stdlib_List[10], table[8]);
-    var _x_ =  /*<<camlinternalOO.ml:314:2>>*/ Stdlib_Sys[9];
-     /*<<camlinternalOO.ml:314:47>>*/ return resize
+     /*<<camlinternalOO.ml:313:24>>*/ table[8] =
+     caml_call1(Stdlib_List[10], table[8]);
+    var _x_ =  /*<<camlinternalOO.ml:314:30>>*/ Stdlib_Sys[9];
+    return  /*<<camlinternalOO.ml:314:47>>*/ resize
             (table,
              3
              +
@@ -33120,11 +32274,11 @@
     var
      _s_ =  /*<<camlinternalOO.ml:326:7>>*/ to_array(concr_meths),
      _t_ =
-        /*<<camlinternalOO.ml:326:29>>*/ [0,
-         /*<<camlinternalOO.ml:324:5>>*/ caml_call2
+        /*<<camlinternalOO.ml:324:5>>*/ [0,
+        caml_call2
          (Stdlib_Array[14],
           function(nm){
-            /*<<camlinternalOO.ml:325:68>>*/ return get_method
+            /*<<camlinternalOO.ml:325:43>>*/ return  /*<<camlinternalOO.ml:325:68>>*/ get_method
                    (cla,
                      /*<<camlinternalOO.ml:325:43>>*/ get_method_label(cla, nm)) /*<<camlinternalOO.ml:325:79>>*/ ;
           },
@@ -33132,10 +32286,10 @@
         0],
      _u_ =  /*<<camlinternalOO.ml:323:45>>*/ to_array(vals),
      _v_ =
-        /*<<camlinternalOO.ml:323:60>>*/ [0,
+        /*<<camlinternalOO.ml:323:16>>*/ [0,
         [0, init],
         [0,
-          /*<<camlinternalOO.ml:323:16>>*/ caml_call2
+         caml_call2
           (Stdlib_Array[14],
            function(_w_){
              /*<<camlinternalOO.ml:323:26>>*/ return get_variable(cla, _w_);
@@ -33150,8 +32304,8 @@
      env_init =
         /*<<camlinternalOO.ml:330:17>>*/ caml_call1(class_init, table);
      /*<<camlinternalOO.ml:331:2>>*/ init_class(table);
-     /*<<camlinternalOO.ml:332:24>>*/ return [0,
-             /*<<camlinternalOO.ml:332:3>>*/ caml_call1(env_init, 0),
+     /*<<camlinternalOO.ml:332:3>>*/ return [0,
+            caml_call1(env_init, 0),
             class_init,
             env_init,
             0] /*<<camlinternalOO.ml:332:24>>*/ ;
@@ -33179,8 +32333,7 @@
         /*<<camlinternalOO.ml:352:12>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:354:2>>*/ obj[1] = table[2];
-     /*<<camlinternalOO.ml:355:22>>*/ return  /*<<camlinternalOO.ml:355:10>>*/ caml_set_oo_id
-            (obj) /*<<camlinternalOO.ml:355:22>>*/ ;
+     /*<<camlinternalOO.ml:355:10>>*/ return caml_set_oo_id(obj) /*<<camlinternalOO.ml:355:22>>*/ ;
    }
    function create_object_opt(obj_0, table){
      /*<<camlinternalOO.ml:358:2>>*/ if(obj_0)
@@ -33190,8 +32343,7 @@
         /*<<camlinternalOO.ml:360:14>>*/ caml_obj_block
         (Stdlib_Obj[10], table[1]);
      /*<<camlinternalOO.ml:362:4>>*/ obj[1] = table[2];
-     /*<<camlinternalOO.ml:363:24>>*/ return  /*<<camlinternalOO.ml:363:12>>*/ caml_set_oo_id
-            (obj) /*<<camlinternalOO.ml:364:5>>*/ ;
+     /*<<camlinternalOO.ml:363:12>>*/ return caml_set_oo_id(obj) /*<<camlinternalOO.ml:364:5>>*/ ;
    }
    function iter_f(obj, param){
     var param$0 =  /*<<camlinternalOO.ml:366:15>>*/ param;
@@ -33233,16 +32385,12 @@
     var
      res =  /*<<camlinternalOO.ml:423:2>>*/ [0, 0, 0, 0],
      r =  /*<<camlinternalOO.ml:424:2>>*/ [0, res],
-     _o_ = 0;
-     /*<<camlinternalOO.ml:425:2>>*/ if(n >= 0){
+     _o_ =  /*<<camlinternalOO.ml:425:2>>*/ 0;
+    if(n >= 0){
      var i = _o_;
      for(;;){
-      var _p_ =  /*<<camlinternalOO.ml:426:4>>*/ r[1];
-       /*<<camlinternalOO.ml:426:29>>*/ r[1] =
-       [0,
-         /*<<camlinternalOO.ml:426:21>>*/ caml_check_bound(keys, i)[1 + i],
-        _p_,
-        0];
+      var _p_ =  /*<<camlinternalOO.ml:426:21>>*/ r[1];
+      r[1] = [0, caml_check_bound(keys, i)[1 + i], _p_, 0];
       var _q_ =  /*<<camlinternalOO.ml:426:29>>*/ i + 1 | 0;
       if(n === i) break;
       i = _q_;
@@ -33304,11 +32452,11 @@
     a:
     {
       /*<<camlinternalOO.ml:508:2>>*/ if(0 !== (n % 2 | 0)){
-      var _n_ = Stdlib_Sys[9];
-       /*<<camlinternalOO.ml:509:57>>*/ if
+      var _n_ =  /*<<camlinternalOO.ml:509:40>>*/ Stdlib_Sys[9];
+      if
        ((2
         +
-         caml_div
+          /*<<camlinternalOO.ml:509:57>>*/ caml_div
           ( /*<<camlinternalOO.ml:509:40>>*/ caml_check_bound(table[2], 1)[2]
            * 16
            | 0,
@@ -33343,7 +32491,7 @@
          /*<<camlinternalOO.ml:543:2>>*/ function(param){
           /*<<camlinternalOO.ml:543:16>>*/ i[1]++;
          var _m_ =  /*<<camlinternalOO.ml:543:24>>*/ i[1];
-          /*<<camlinternalOO.ml:543:42>>*/ return  /*<<camlinternalOO.ml:543:34>>*/ caml_check_bound
+          /*<<camlinternalOO.ml:543:34>>*/ return caml_check_bound
                   (methods, _m_)
                  [1 + _m_] /*<<camlinternalOO.ml:543:42>>*/ ;
         },
@@ -33352,19 +32500,19 @@
       switch(clo){
         case 0:
          var x =  /*<<camlinternalOO.ml:545:28>>*/ next(0);
-         let x$20 = x;
+         let x$20 =  /*<<camlinternalOO.ml:459:18>>*/ x;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:459:18>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:459:35>>*/ return x$20;
              /*<<camlinternalOO.ml:459:36>>*/ };
          break;
         case 1:
          var n =  /*<<camlinternalOO.ml:546:24>>*/ next(0);
-         let n$38 = n;
+         let n$38 =  /*<<camlinternalOO.ml:460:18>>*/ n;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:460:18>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:460:34>>*/ return obj[1 + n$38];
              /*<<camlinternalOO.ml:460:56>>*/ };
          break;
@@ -33372,29 +32520,29 @@
          var
           e =  /*<<camlinternalOO.ml:547:24>>*/ next(0),
           n$0 =  /*<<camlinternalOO.ml:547:42>>*/ next(0);
-         let e$10 = e, n$37 = n$0;
+         let e$10 =  /*<<camlinternalOO.ml:462:2>>*/ e, n$37 = n$0;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:462:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:463:4>>*/ return obj[1 + e$10][1 + n$37];
              /*<<camlinternalOO.ml:463:65>>*/ };
          break;
         case 3:
          var n$1 =  /*<<camlinternalOO.ml:548:24>>*/ next(0);
-         let n$36 = n$1;
+         let n$36 =  /*<<camlinternalOO.ml:464:18>>*/ n$1;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:464:18>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:464:34>>*/ return caml_call1
                      (obj[1][1 + n$36], obj) /*<<camlinternalOO.ml:464:48>>*/ ;
             };
          break;
         case 4:
          var n$2 =  /*<<camlinternalOO.ml:549:24>>*/ next(0);
-         let n$35 = n$2;
+         let n$35 =  /*<<camlinternalOO.ml:465:18>>*/ n$2;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:465:18>>*/ function(obj, x){
+            function(obj, x){
               /*<<camlinternalOO.ml:465:36>>*/ obj[1 + n$35] = x;
              return 0;
              /*<<camlinternalOO.ml:465:60>>*/ };
@@ -33403,10 +32551,10 @@
          var
           f =  /*<<camlinternalOO.ml:550:24>>*/ next(0),
           x$0 =  /*<<camlinternalOO.ml:550:42>>*/ next(0);
-         let f$20 = f, x$19 = x$0;
+         let f$20 =  /*<<camlinternalOO.ml:466:20>>*/ f, x$19 = x$0;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:466:20>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:466:37>>*/ return caml_call1(f$20, x$19) /*<<camlinternalOO.ml:466:40>>*/ ;
             };
          break;
@@ -33414,10 +32562,10 @@
          var
           f$0 =  /*<<camlinternalOO.ml:551:24>>*/ next(0),
           n$3 =  /*<<camlinternalOO.ml:551:42>>*/ next(0);
-         let f$19 = f$0, n$34 = n$3;
+         let f$19 =  /*<<camlinternalOO.ml:467:20>>*/ f$0, n$34 = n$3;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:467:20>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:467:36>>*/ return caml_call1
                      (f$19, obj[1 + n$34]) /*<<camlinternalOO.ml:467:62>>*/ ;
             };
@@ -33427,10 +32575,13 @@
           f$1 =  /*<<camlinternalOO.ml:553:14>>*/ next(0),
           e$0 =  /*<<camlinternalOO.ml:553:33>>*/ next(0),
           n$4 =  /*<<camlinternalOO.ml:553:51>>*/ next(0);
-         let f$18 = f$1, e$9 = e$0, n$33 = n$4;
+         let
+          f$18 =  /*<<camlinternalOO.ml:469:2>>*/ f$1,
+          e$9 = e$0,
+          n$33 = n$4;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:469:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:470:4>>*/ return caml_call1
                      (f$18, obj[1 + e$9][1 + n$33]) /*<<camlinternalOO.ml:470:69>>*/ ;
             };
@@ -33439,11 +32590,11 @@
          var
           f$2 =  /*<<camlinternalOO.ml:555:24>>*/ next(0),
           n$5 =  /*<<camlinternalOO.ml:555:42>>*/ next(0);
-         let f$17 = f$2, n$32 = n$5;
+         let f$17 =  /*<<camlinternalOO.ml:471:20>>*/ f$2, n$32 = n$5;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:471:20>>*/ function(obj){
-              /*<<camlinternalOO.ml:471:54>>*/ return caml_call1
+            function(obj){
+              /*<<camlinternalOO.ml:471:38>>*/ return  /*<<camlinternalOO.ml:471:54>>*/ caml_call1
                      (f$17,
                        /*<<camlinternalOO.ml:471:38>>*/ caml_call1
                        (obj[1][1 + n$32], obj)) /*<<camlinternalOO.ml:471:54>>*/ ;
@@ -33454,10 +32605,13 @@
           f$3 =  /*<<camlinternalOO.ml:557:14>>*/ next(0),
           x$1 =  /*<<camlinternalOO.ml:557:32>>*/ next(0),
           y =  /*<<camlinternalOO.ml:557:50>>*/ next(0);
-         let f$16 = f$3, x$18 = x$1, y$0 = y;
+         let
+          f$16 =  /*<<camlinternalOO.ml:472:28>>*/ f$3,
+          x$18 = x$1,
+          y$0 = y;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:472:28>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:472:45>>*/ return caml_call2
                      (f$16, x$18, y$0) /*<<camlinternalOO.ml:472:50>>*/ ;
             };
@@ -33467,10 +32621,13 @@
           f$4 =  /*<<camlinternalOO.ml:560:14>>*/ next(0),
           x$2 =  /*<<camlinternalOO.ml:560:32>>*/ next(0),
           n$6 =  /*<<camlinternalOO.ml:560:50>>*/ next(0);
-         let f$15 = f$4, x$17 = x$2, n$31 = n$6;
+         let
+          f$15 =  /*<<camlinternalOO.ml:473:28>>*/ f$4,
+          x$17 = x$2,
+          n$31 = n$6;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:473:28>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:473:44>>*/ return caml_call2
                      (f$15, x$17, obj[1 + n$31]) /*<<camlinternalOO.ml:473:72>>*/ ;
             };
@@ -33481,10 +32638,14 @@
           x$3 =  /*<<camlinternalOO.ml:563:32>>*/ next(0),
           e$1 =  /*<<camlinternalOO.ml:563:50>>*/ next(0),
           n$7 =  /*<<camlinternalOO.ml:563:69>>*/ next(0);
-         let f$14 = f$5, x$16 = x$3, e$8 = e$1, n$30 = n$7;
+         let
+          f$14 =  /*<<camlinternalOO.ml:478:2>>*/ f$5,
+          x$16 = x$3,
+          e$8 = e$1,
+          n$30 = n$7;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:478:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:479:4>>*/ return caml_call2
                      (f$14, x$16, obj[1 + e$8][1 + n$30]) /*<<camlinternalOO.ml:479:71>>*/ ;
             };
@@ -33494,11 +32655,14 @@
           f$6 =  /*<<camlinternalOO.ml:566:14>>*/ next(0),
           x$4 =  /*<<camlinternalOO.ml:566:32>>*/ next(0),
           n$8 =  /*<<camlinternalOO.ml:566:50>>*/ next(0);
-         let f$13 = f$6, x$15 = x$4, n$29 = n$8;
+         let
+          f$13 =  /*<<camlinternalOO.ml:474:27>>*/ f$6,
+          x$15 = x$4,
+          n$29 = n$8;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:474:27>>*/ function(obj){
-              /*<<camlinternalOO.ml:474:63>>*/ return caml_call2
+            function(obj){
+              /*<<camlinternalOO.ml:474:47>>*/ return  /*<<camlinternalOO.ml:474:63>>*/ caml_call2
                      (f$13,
                       x$15,
                        /*<<camlinternalOO.ml:474:47>>*/ caml_call1
@@ -33510,10 +32674,13 @@
           f$7 =  /*<<camlinternalOO.ml:569:14>>*/ next(0),
           n$9 =  /*<<camlinternalOO.ml:569:32>>*/ next(0),
           x$5 =  /*<<camlinternalOO.ml:569:50>>*/ next(0);
-         let f$12 = f$7, n$28 = n$9, x$14 = x$5;
+         let
+          f$12 =  /*<<camlinternalOO.ml:475:26>>*/ f$7,
+          n$28 = n$9,
+          x$14 = x$5;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:475:26>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:475:42>>*/ return caml_call2
                      (f$12, obj[1 + n$28], x$14) /*<<camlinternalOO.ml:475:70>>*/ ;
             };
@@ -33524,10 +32691,14 @@
           e$2 =  /*<<camlinternalOO.ml:572:32>>*/ next(0),
           n$10 =  /*<<camlinternalOO.ml:572:51>>*/ next(0),
           x$6 =  /*<<camlinternalOO.ml:572:69>>*/ next(0);
-         let f$11 = f$8, e$7 = e$2, n$27 = n$10, x$13 = x$6;
+         let
+          f$11 =  /*<<camlinternalOO.ml:481:2>>*/ f$8,
+          e$7 = e$2,
+          n$27 = n$10,
+          x$13 = x$6;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:481:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:482:4>>*/ return caml_call2
                      (f$11, obj[1 + e$7][1 + n$27], x$13) /*<<camlinternalOO.ml:482:71>>*/ ;
             };
@@ -33537,11 +32708,14 @@
           f$9 =  /*<<camlinternalOO.ml:575:14>>*/ next(0),
           n$11 =  /*<<camlinternalOO.ml:575:32>>*/ next(0),
           x$7 =  /*<<camlinternalOO.ml:575:50>>*/ next(0);
-         let f$10 = f$9, n$26 = n$11, x$12 = x$7;
+         let
+          f$10 =  /*<<camlinternalOO.ml:476:27>>*/ f$9,
+          n$26 = n$11,
+          x$12 = x$7;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:476:27>>*/ function(obj){
-              /*<<camlinternalOO.ml:476:61>>*/ return caml_call2
+            function(obj){
+              /*<<camlinternalOO.ml:476:45>>*/ return  /*<<camlinternalOO.ml:476:61>>*/ caml_call2
                      (f$10,
                        /*<<camlinternalOO.ml:476:45>>*/ caml_call1
                        (obj[1][1 + n$26], obj),
@@ -33552,10 +32726,10 @@
          var
           n$12 =  /*<<camlinternalOO.ml:578:14>>*/ next(0),
           x$8 =  /*<<camlinternalOO.ml:578:32>>*/ next(0);
-         let n$25 = n$12, x$11 = x$8;
+         let n$25 =  /*<<camlinternalOO.ml:483:25>>*/ n$12, x$11 = x$8;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:483:25>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:483:41>>*/ return caml_call2
                      (obj[1][1 + n$25], obj, x$11) /*<<camlinternalOO.ml:483:68>>*/ ;
             };
@@ -33564,10 +32738,10 @@
          var
           n$13 =  /*<<camlinternalOO.ml:580:14>>*/ next(0),
           m =  /*<<camlinternalOO.ml:580:32>>*/ next(0);
-         let n$24 = n$13, m$12 = m;
+         let n$24 =  /*<<camlinternalOO.ml:485:2>>*/ n$13, m$12 = m;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:485:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:485:18>>*/ return caml_call2
                      (obj[1][1 + n$24], obj, obj[1 + m$12]) /*<<camlinternalOO.ml:485:68>>*/ ;
             };
@@ -33577,10 +32751,13 @@
           n$14 =  /*<<camlinternalOO.ml:582:14>>*/ next(0),
           e$3 =  /*<<camlinternalOO.ml:582:32>>*/ next(0),
           m$0 =  /*<<camlinternalOO.ml:582:50>>*/ next(0);
-         let n$23 = n$14, e$6 = e$3, m$11 = m$0;
+         let
+          n$23 =  /*<<camlinternalOO.ml:487:2>>*/ n$14,
+          e$6 = e$3,
+          m$11 = m$0;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:487:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:487:18>>*/ return caml_call2
                      (obj[1][1 + n$23], obj, obj[1 + e$6][1 + m$11]) /*<<camlinternalOO.ml:488:69>>*/ ;
             };
@@ -33589,10 +32766,10 @@
          var
           n$15 =  /*<<camlinternalOO.ml:585:14>>*/ next(0),
           m$1 =  /*<<camlinternalOO.ml:585:32>>*/ next(0);
-         let n$22 = n$15, m$10 = m$1;
+         let n$22 =  /*<<camlinternalOO.ml:490:2>>*/ n$15, m$10 = m$1;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:490:2>>*/ function(obj){
+            function(obj){
              var
               _l_ =
                  /*<<camlinternalOO.ml:490:44>>*/ caml_call1
@@ -33606,10 +32783,10 @@
           m$2 =  /*<<camlinternalOO.ml:587:14>>*/ next(0),
           x$9 =  /*<<camlinternalOO.ml:587:32>>*/ next(0);
           /*<<camlinternalOO.ml:587:57>>*/ new_cache(table);
-         let m$9 = m$2, x$10 = x$9;
+         let m$9 =  /*<<camlinternalOO.ml:492:2>>*/ m$2, x$10 = x$9;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:492:2>>*/ function(obj){
+            function(obj){
               /*<<camlinternalOO.ml:492:18>>*/ return caml_call1
                      (caml_get_public_method(x$10, m$9, 0), x$10) /*<<camlinternalOO.ml:492:58>>*/ ;
             };
@@ -33619,10 +32796,10 @@
           m$3 =  /*<<camlinternalOO.ml:589:14>>*/ next(0),
           n$16 =  /*<<camlinternalOO.ml:589:32>>*/ next(0);
           /*<<camlinternalOO.ml:589:56>>*/ new_cache(table);
-         let m$8 = m$3, n$21 = n$16;
+         let m$8 =  /*<<camlinternalOO.ml:494:2>>*/ m$3, n$21 = n$16;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:494:2>>*/ function(obj){
+            function(obj){
              var _k_ =  /*<<camlinternalOO.ml:495:4>>*/ obj[1 + n$21];
              return caml_call1(caml_get_public_method(_k_, m$8, 0), _k_) /*<<camlinternalOO.ml:496:32>>*/ ;
             };
@@ -33633,10 +32810,13 @@
           e$4 =  /*<<camlinternalOO.ml:591:32>>*/ next(0),
           n$17 =  /*<<camlinternalOO.ml:591:50>>*/ next(0);
           /*<<camlinternalOO.ml:592:21>>*/ new_cache(table);
-         let m$7 = m$4, e$5 = e$4, n$20 = n$17;
+         let
+          m$7 =  /*<<camlinternalOO.ml:498:2>>*/ m$4,
+          e$5 = e$4,
+          n$20 = n$17;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:498:2>>*/ function(obj){
+            function(obj){
              var
               _j_ =  /*<<camlinternalOO.ml:499:4>>*/ obj[1 + e$5][1 + n$20];
              return caml_call1(caml_get_public_method(_j_, m$7, 0), _j_) /*<<camlinternalOO.ml:502:34>>*/ ;
@@ -33647,10 +32827,10 @@
           m$5 =  /*<<camlinternalOO.ml:594:14>>*/ next(0),
           n$18 =  /*<<camlinternalOO.ml:594:32>>*/ next(0);
           /*<<camlinternalOO.ml:594:57>>*/ new_cache(table);
-         let m$6 = m$5, n$19 = n$18;
+         let m$6 =  /*<<camlinternalOO.ml:504:2>>*/ m$5, n$19 = n$18;
          var
           clo$0 =
-             /*<<camlinternalOO.ml:504:2>>*/ function(obj){
+            function(obj){
              var
               _i_ =
                  /*<<camlinternalOO.ml:505:14>>*/ caml_call1
@@ -33760,8 +32940,8 @@
      modu =
         /*<<camlinternalMod.ml:53:13>>*/ runtime.caml_obj_block(0, length),
      _h_ =  /*<<camlinternalMod.ml:54:2>>*/ length - 1 | 0,
-     _g_ =  /*<<camlinternalMod.ml:53:35>>*/ 0;
-     /*<<camlinternalMod.ml:54:2>>*/ if(_h_ >= 0){
+     _g_ = 0;
+    if(_h_ >= 0){
      var i = _g_;
      for(;;){
       var
@@ -33770,10 +32950,10 @@
        /*<<camlinternalMod.ml:24:2>>*/ if(typeof shape === "number")
        switch(shape){
          case 0:
-          let i$1 = i;
+          let i$1 =  /*<<camlinternalMod.ml:27:7>>*/ i;
           var
            fn =
-              /*<<camlinternalMod.ml:27:7>>*/ function(x){
+             function(x){
               var fn =  /*<<camlinternalMod.ml:28:38>>*/ modu[1 + i$1];
                /*<<camlinternalMod.ml:29:9>>*/ if(fn$0 === fn)
                 /*<<camlinternalMod.ml:30:11>>*/ throw caml_maybe_attach_backtrace
@@ -33835,9 +33015,8 @@
             (Stdlib[2], cst_CamlinternalMod_init_mod_n) /*<<camlinternalMod.ml:63:58>>*/ ;
    }
    function update_mod_block(comps$0, modu, n){
-     /*<<camlinternalMod.ml:81:19>>*/ if
-     (0 ===  /*<<camlinternalMod.ml:81:10>>*/ caml_obj_tag(n)
-      && comps$0.length - 1 <= n.length - 1){
+     /*<<camlinternalMod.ml:81:10>>*/ if
+     (0 === caml_obj_tag(n) && comps$0.length - 1 <= n.length - 1){
      var
       _e_ =  /*<<camlinternalMod.ml:82:2>>*/ comps$0.length - 2 | 0,
       _d_ = 0;
@@ -33852,9 +33031,8 @@
        a:
        if(typeof shape === "number"){
          /*<<camlinternalMod.ml:66:2>>*/ if(2 === shape){
-          /*<<camlinternalMod.ml:72:22>>*/ if
-          (0 ===  /*<<camlinternalMod.ml:72:13>>*/ caml_obj_tag(n$0)
-           && 4 === n$0.length - 1){
+          /*<<camlinternalMod.ml:72:13>>*/ if
+          (0 === caml_obj_tag(n$0) && 4 === n$0.length - 1){
           var
            cl =  /*<<camlinternalMod.ml:73:14>>*/ modu[1 + i],
            j =  /*<<camlinternalMod.ml:74:5>>*/ 0;
@@ -33980,19 +33158,15 @@
      }
      else
       var seed =  /*<<ephemeron.ml:109:73>>*/ 0;
-      /*<<ephemeron.ml:110:74>>*/ return [0,
-             0,
-              /*<<ephemeron.ml:110:56>>*/ caml_make_vect(x, 0),
-             seed,
-             x] /*<<ephemeron.ml:110:74>>*/ ;
+      /*<<ephemeron.ml:110:56>>*/ return [0, 0, caml_make_vect(x, 0), seed, x] /*<<ephemeron.ml:110:74>>*/ ;
      /*<<ephemeron.ml:110:76>>*/ }
     function clear(h){
       /*<<ephemeron.ml:113:6>>*/ h[1] = 0;
      var
       len =  /*<<ephemeron.ml:114:6>>*/ h[2].length - 1,
       _ap_ =  /*<<ephemeron.ml:115:6>>*/ len - 1 | 0,
-      _ao_ =  /*<<ephemeron.ml:114:6>>*/ 0;
-      /*<<ephemeron.ml:115:6>>*/ if(_ap_ >= 0){
+      _ao_ = 0;
+     if(_ap_ >= 0){
       var i = _ao_;
       for(;;){
         /*<<ephemeron.ml:116:8>>*/ caml_check_bound(h[2], i)[1 + i] = 0;
@@ -34015,9 +33189,9 @@
     }
     function copy(h){
      var
-      _al_ =  /*<<ephemeron.ml:128:17>>*/ h[4],
+      _al_ =  /*<<ephemeron.ml:128:33>>*/ h[4],
       _am_ = h[3],
-      _an_ =  /*<<ephemeron.ml:128:33>>*/ caml_call1(Stdlib_Array[7], h[2]);
+      _an_ = caml_call1(Stdlib_Array[7], h[2]);
       /*<<ephemeron.ml:128:50>>*/ return [0, h[1], _an_, _am_, _al_];
      /*<<ephemeron.ml:128:52>>*/ }
     function key_index(h, hkey){
@@ -34032,15 +33206,11 @@
         hkey =  /*<<ephemeron.ml:134:26>>*/ param$0[1],
         rest = param$0[3],
         c = param$0[2];
-        /*<<ephemeron.ml:137:51>>*/ if
-        ( /*<<ephemeron.ml:137:36>>*/ caml_call1(H[6], c)){
+        /*<<ephemeron.ml:137:36>>*/ if(caml_call1(H[6], c)){
         var
          rest$0 =  /*<<ephemeron.ml:137:51>>*/ param$0[3],
          c$0 = param$0[2];
-         /*<<ephemeron.ml:141:40>>*/ return [0,
-                hkey,
-                c$0,
-                 /*<<ephemeron.ml:141:26>>*/ do_bucket(rest$0)] /*<<ephemeron.ml:141:40>>*/ ;
+         /*<<ephemeron.ml:141:26>>*/ return [0, hkey, c$0, do_bucket(rest$0)] /*<<ephemeron.ml:141:40>>*/ ;
        }
         /*<<ephemeron.ml:138:12>>*/ h[1] = h[1] - 1 | 0;
         /*<<ephemeron.ml:139:12>>*/ param$0 = rest;
@@ -34049,11 +33219,11 @@
      var
       d =  /*<<ephemeron.ml:143:6>>*/ h[2],
       _aj_ =  /*<<ephemeron.ml:144:6>>*/ d.length - 2 | 0,
-      _ai_ =  /*<<ephemeron.ml:143:6>>*/ 0;
-      /*<<ephemeron.ml:144:6>>*/ if(_aj_ >= 0){
+      _ai_ = 0;
+     if(_aj_ >= 0){
       var i = _ai_;
       for(;;){
-        /*<<ephemeron.ml:145:8>>*/ d[1 + i] =
+        /*<<ephemeron.ml:145:27>>*/ d[1 + i] =
          /*<<ephemeron.ml:145:17>>*/ do_bucket
          ( /*<<ephemeron.ml:145:27>>*/ caml_check_bound(d, i)[1 + i]);
        var _ak_ =  /*<<ephemeron.ml:145:32>>*/ i + 1 | 0;
@@ -34086,19 +33256,15 @@
            hkey = param[1];
            /*<<ephemeron.ml:179:14>>*/ insert_bucket(rest);
           var nidx =  /*<<ephemeron.ml:180:25>>*/ key_index(h, hkey);
-           /*<<ephemeron.ml:181:14>>*/ ndata[1 + nidx] =
-           [0,
-            hkey,
-            data,
-             /*<<ephemeron.ml:181:47>>*/ caml_check_bound(ndata, nidx)
-             [1 + nidx]];
+           /*<<ephemeron.ml:181:47>>*/ ndata[1 + nidx] =
+           [0, hkey, data, caml_check_bound(ndata, nidx)[1 + nidx]];
           /*<<ephemeron.ml:181:60>>*/ },
        _af_ =  /*<<ephemeron.ml:182:8>>*/ osize - 1 | 0,
        _ae_ = 0;
       if(_af_ >= 0){
        var i = _ae_;
        for(;;){
-         /*<<ephemeron.ml:183:10>>*/ insert_bucket
+         /*<<ephemeron.ml:183:24>>*/  /*<<ephemeron.ml:183:10>>*/ insert_bucket
          ( /*<<ephemeron.ml:183:24>>*/ caml_check_bound(odata, i)[1 + i]);
         var _ah_ =  /*<<ephemeron.ml:183:33>>*/ i + 1 | 0;
         if(_af_ === i) break;
@@ -34117,10 +33283,10 @@
       i =  /*<<ephemeron.ml:189:14>>*/ key_index(h, hkey),
       container =  /*<<ephemeron.ml:190:22>>*/ caml_call2(H[1], key, info),
       bucket =
-         /*<<ephemeron.ml:191:51>>*/ [0,
+         /*<<ephemeron.ml:191:41>>*/ [0,
          hkey,
          container,
-          /*<<ephemeron.ml:191:41>>*/ caml_check_bound(h[2], i)[1 + i]];
+         caml_check_bound(h[2], i)[1 + i]];
       /*<<ephemeron.ml:192:6>>*/ caml_check_bound(h[2], i)[1 + i] = bucket;
       /*<<ephemeron.ml:192:26>>*/ h[1] = h[1] + 1 | 0;
      var
@@ -34139,21 +33305,17 @@
         c = param$0[2];
         /*<<ephemeron.ml:200:33>>*/ if(hkey !== hk){
         var next$0 = param$0[3], c$0 = param$0[2];
-         /*<<ephemeron.ml:210:59>>*/ return [0,
+         /*<<ephemeron.ml:210:41>>*/ return [0,
                 hk,
                 c$0,
-                 /*<<ephemeron.ml:210:41>>*/ remove_bucket(next$0)] /*<<ephemeron.ml:210:59>>*/ ;
+                remove_bucket(next$0)] /*<<ephemeron.ml:210:59>>*/ ;
        }
-        /*<<ephemeron.ml:201:37>>*/ switch
-        ( /*<<ephemeron.ml:201:24>>*/ caml_call2(H[3], c, key)){
+        /*<<ephemeron.ml:201:24>>*/ switch(caml_call2(H[3], c, key)){
          case 0:
            /*<<ephemeron.ml:202:23>>*/ h[1] = h[1] - 1 | 0;
            /*<<ephemeron.ml:202:45>>*/ return next;
          case 1:
-           /*<<ephemeron.ml:203:54>>*/ return [0,
-                  hk,
-                  c,
-                   /*<<ephemeron.ml:203:36>>*/ remove_bucket(next)] /*<<ephemeron.ml:203:54>>*/ ;
+           /*<<ephemeron.ml:203:36>>*/ return [0, hk, c, remove_bucket(next)] /*<<ephemeron.ml:203:54>>*/ ;
          default:
            /*<<ephemeron.ml:207:16>>*/ h[1] = h[1] - 1 | 0;
            /*<<ephemeron.ml:208:16>>*/ param$0 = next;
@@ -34163,7 +33325,7 @@
      var
       i =  /*<<ephemeron.ml:211:14>>*/ key_index(h, hkey),
       _aa_ =
-         /*<<ephemeron.ml:212:20>>*/ remove_bucket
+         /*<<ephemeron.ml:212:34>>*/  /*<<ephemeron.ml:212:20>>*/ remove_bucket
          ( /*<<ephemeron.ml:212:34>>*/ caml_check_bound(h[2], i)[1 + i]);
       /*<<ephemeron.ml:212:6>>*/ caml_check_bound(h[2], i)[1 + i] = _aa_;
       /*<<ephemeron.ml:212:44>>*/ return 0;
@@ -34185,8 +33347,7 @@
        rest = param[3],
        c = param[2];
        /*<<ephemeron.ml:221:31>>*/ if(hkey === hk)
-        /*<<ephemeron.ml:222:35>>*/ switch
-        ( /*<<ephemeron.ml:222:22>>*/ caml_call2(H[3], c, key)){
+        /*<<ephemeron.ml:222:22>>*/ switch(caml_call2(H[3], c, key)){
          case 0:
           var match =  /*<<ephemeron.ml:224:26>>*/ caml_call1(H[4], c);
            /*<<ephemeron.ml:224:38>>*/ if(match){
@@ -34221,8 +33382,7 @@
        rest = param[3],
        c = param[2];
        /*<<ephemeron.ml:246:31>>*/ if(hkey === hk)
-        /*<<ephemeron.ml:247:35>>*/ switch
-        ( /*<<ephemeron.ml:247:22>>*/ caml_call2(H[3], c, key)){
+        /*<<ephemeron.ml:247:22>>*/ switch(caml_call2(H[3], c, key)){
          case 0:
           var d =  /*<<ephemeron.ml:249:26>>*/ caml_call1(H[4], c);
            /*<<ephemeron.ml:249:38>>*/ if(d)
@@ -34250,15 +33410,12 @@
         rest = param$0[3],
         c = param$0[2];
         /*<<ephemeron.ml:272:31>>*/ if(hkey === hk)
-         /*<<ephemeron.ml:273:35>>*/ switch
-         ( /*<<ephemeron.ml:273:22>>*/ caml_call2(H[3], c, key)){
+         /*<<ephemeron.ml:273:22>>*/ switch(caml_call2(H[3], c, key)){
           case 0:
            var match =  /*<<ephemeron.ml:274:33>>*/ caml_call1(H[4], c);
             /*<<ephemeron.ml:274:45>>*/ if(match){
             var d = match[1];
-             /*<<ephemeron.ml:277:48>>*/ return [0,
-                    d,
-                     /*<<ephemeron.ml:277:29>>*/ find_in_bucket(rest)] /*<<ephemeron.ml:277:48>>*/ ;
+             /*<<ephemeron.ml:277:29>>*/ return [0, d, find_in_bucket(rest)] /*<<ephemeron.ml:277:48>>*/ ;
            }
             /*<<ephemeron.ml:276:18>>*/ param$0 = rest;
            break;
@@ -34273,7 +33430,7 @@
       }
       /*<<ephemeron.ml:284:29>>*/ }
      var _Z_ =  /*<<ephemeron.ml:285:29>>*/ key_index(h, hkey);
-      /*<<ephemeron.ml:285:46>>*/ return find_in_bucket
+      /*<<ephemeron.ml:285:21>>*/ return  /*<<ephemeron.ml:285:46>>*/ find_in_bucket
              ( /*<<ephemeron.ml:285:21>>*/ caml_check_bound(h[2], _Z_)
                [1 + _Z_]) /*<<ephemeron.ml:285:46>>*/ ;
     }
@@ -34293,8 +33450,7 @@
         next = param[3],
         c = param[2];
         /*<<ephemeron.ml:292:33>>*/ if(hkey === hk){
-         /*<<ephemeron.ml:293:37>>*/ if
-         (!  /*<<ephemeron.ml:293:24>>*/ caml_call2(H[3], c, key)){
+         /*<<ephemeron.ml:293:24>>*/ if(! caml_call2(H[3], c, key)){
          var
           _V_ =  /*<<ephemeron.ml:294:23>>*/ caml_call3(H[5], c, key, info);
          return _V_;
@@ -34335,8 +33491,7 @@
        rest = param[3],
        c = param[2];
        /*<<ephemeron.ml:314:31>>*/ if(hk === hkey){
-        /*<<ephemeron.ml:315:35>>*/ if
-        (!  /*<<ephemeron.ml:315:22>>*/ caml_call2(H[3], c, key))
+        /*<<ephemeron.ml:315:22>>*/ if(! caml_call2(H[3], c, key))
          /*<<ephemeron.ml:316:21>>*/ return 1;
         /*<<ephemeron.ml:317:30>>*/ param = rest;
       }
@@ -34377,9 +33532,8 @@
       (Stdlib_Array[12],
        function(b){
         var l =  /*<<ephemeron.ml:334:19>>*/ bucket_length(0, b);
-         /*<<ephemeron.ml:335:11>>*/ histo[1 + l] =
-          /*<<ephemeron.ml:335:24>>*/ caml_check_bound(histo, l)[1 + l] + 1
-         | 0;
+         /*<<ephemeron.ml:335:24>>*/ histo[1 + l] =
+         caml_check_bound(histo, l)[1 + l] + 1 | 0;
          /*<<ephemeron.ml:335:37>>*/ return 0;
        },
        h[2]);
@@ -34394,8 +33548,7 @@
      for(;;){
       if(! param$0)  /*<<ephemeron.ml:343:17>>*/ return accu$0;
       var rest =  /*<<ephemeron.ml:342:32>>*/ param$0[3], c = param$0[2];
-       /*<<ephemeron.ml:344:43>>*/ if
-       ( /*<<ephemeron.ml:344:30>>*/ caml_call1(H[6], c)){
+       /*<<ephemeron.ml:344:30>>*/ if(caml_call1(H[6], c)){
        var accu$1 =  /*<<ephemeron.ml:345:10>>*/ accu$0 + 1 | 0;
        accu$0 = accu$1;
        param$0 = rest;
@@ -34425,9 +33578,8 @@
        function(b){
         var l =  /*<<ephemeron.ml:357:19>>*/ bucket_length_alive(0, b);
          /*<<ephemeron.ml:358:11>>*/ size[1] = size[1] + l | 0;
-         /*<<ephemeron.ml:359:11>>*/ histo[1 + l] =
-          /*<<ephemeron.ml:359:24>>*/ caml_check_bound(histo, l)[1 + l] + 1
-         | 0;
+         /*<<ephemeron.ml:359:24>>*/ histo[1 + l] =
+         caml_check_bound(histo, l)[1 + l] + 1 | 0;
          /*<<ephemeron.ml:359:37>>*/ return 0;
        },
        h[2]);
@@ -34528,10 +33680,7 @@
       /*<<ephemeron.ml:429:23>>*/ if(! match)
        /*<<ephemeron.ml:430:18>>*/ return 2;
      var k$0 =  /*<<ephemeron.ml:429:23>>*/ match[1];
-      /*<<ephemeron.ml:432:27>>*/ return  /*<<ephemeron.ml:432:15>>*/ caml_call2
-              (H[1], k, k$0)
-             ? 0
-             : 1 /*<<ephemeron.ml:432:76>>*/ ;
+      /*<<ephemeron.ml:432:15>>*/ return caml_call2(H[1], k, k$0) ? 0 : 1 /*<<ephemeron.ml:432:76>>*/ ;
     }
     function set_key_data(c, k, d){
       /*<<ephemeron.ml:402:40>>*/ caml_call1(Stdlib_Obj[23][12], c);
@@ -34603,9 +33752,8 @@
      /*<<ephemeron.ml:459:18>>*/ return [0, 0];
     /*<<ephemeron.ml:459:24>>*/ }
    function add(b, k, d){
-    var _Q_ =  /*<<ephemeron.ml:460:20>>*/ b[1];
-     /*<<ephemeron.ml:460:36>>*/ b[1] =
-     [0,  /*<<ephemeron.ml:460:25>>*/ make(k, d), _Q_];
+    var _Q_ =  /*<<ephemeron.ml:460:25>>*/ b[1];
+    b[1] = [0, make(k, d), _Q_];
      /*<<ephemeron.ml:460:36>>*/ return 0;
     /*<<ephemeron.ml:460:42>>*/ }
    function test_key(k, e){
@@ -34623,10 +33771,8 @@
       /*<<ephemeron.ml:469:8>>*/ if(! l)
        /*<<ephemeron.ml:470:16>>*/ return 0;
      var h =  /*<<ephemeron.ml:469:8>>*/ l[1], t = l[2];
-      /*<<ephemeron.ml:471:34>>*/ if
-      ( /*<<ephemeron.ml:471:22>>*/ test_key(k, h)){
-       /*<<ephemeron.ml:471:64>>*/ b[1] =
-        /*<<ephemeron.ml:471:43>>*/ caml_call2(Stdlib_List[13], acc, t);
+      /*<<ephemeron.ml:471:22>>*/ if(test_key(k, h)){
+       /*<<ephemeron.ml:471:43>>*/ b[1] = caml_call2(Stdlib_List[13], acc, t);
        /*<<ephemeron.ml:471:64>>*/ return 0;
      }
      var
@@ -34717,14 +33863,8 @@
       k2 =  /*<<ephemeron.ml:538:22>>*/ param[2],
       k1 = param[1],
       _O_ =
-         /*<<ephemeron.ml:539:55>>*/  /*<<ephemeron.ml:539:33>>*/ caml_call2
-         (H2[2], seed, k2)
-        * 65599
-        | 0;
-      /*<<ephemeron.ml:539:30>>*/ return  /*<<ephemeron.ml:539:8>>*/ caml_call2
-             (H1[2], seed, k1)
-            + _O_
-            | 0 /*<<ephemeron.ml:539:30>>*/ ;
+         /*<<ephemeron.ml:539:33>>*/ caml_call2(H2[2], seed, k2) * 65599 | 0;
+      /*<<ephemeron.ml:539:8>>*/ return caml_call2(H1[2], seed, k1) + _O_ | 0 /*<<ephemeron.ml:539:30>>*/ ;
      /*<<ephemeron.ml:539:63>>*/ }
     function equal(c, param){
      var
@@ -34734,8 +33874,8 @@
       match$0 =  /*<<ephemeron.ml:541:26>>*/ get_key2(c);
       /*<<ephemeron.ml:541:36>>*/ if(match && match$0){
       var k2$0 = match$0[1], k1$0 = match[1];
-       /*<<ephemeron.ml:544:30>>*/ if
-       ( /*<<ephemeron.ml:544:15>>*/ caml_call2(H1[1], k1, k1$0)
+       /*<<ephemeron.ml:544:15>>*/ if
+       (caml_call2(H1[1], k1, k1$0)
         &&  /*<<ephemeron.ml:544:34>>*/ caml_call2(H2[1], k2, k2$0))
         /*<<ephemeron.ml:545:17>>*/ return 0;
        /*<<ephemeron.ml:545:41>>*/ return 1;
@@ -34828,9 +33968,8 @@
      /*<<ephemeron.ml:579:18>>*/ return [0, 0];
     /*<<ephemeron.ml:579:24>>*/ }
    function add$0(b, k1, k2, d){
-    var _L_ =  /*<<ephemeron.ml:580:24>>*/ b[1];
-     /*<<ephemeron.ml:580:44>>*/ b[1] =
-     [0,  /*<<ephemeron.ml:580:29>>*/ make$1(k1, k2, d), _L_];
+    var _L_ =  /*<<ephemeron.ml:580:29>>*/ b[1];
+    b[1] = [0, make$1(k1, k2, d), _L_];
      /*<<ephemeron.ml:580:44>>*/ return 0;
     /*<<ephemeron.ml:580:50>>*/ }
    function test_keys(k1, k2, e){
@@ -34850,10 +33989,8 @@
       /*<<ephemeron.ml:589:8>>*/ if(! l)
        /*<<ephemeron.ml:590:16>>*/ return 0;
      var h =  /*<<ephemeron.ml:589:8>>*/ l[1], t = l[2];
-      /*<<ephemeron.ml:591:39>>*/ if
-      ( /*<<ephemeron.ml:591:22>>*/ test_keys(k1, k2, h)){
-       /*<<ephemeron.ml:591:69>>*/ b[1] =
-        /*<<ephemeron.ml:591:48>>*/ caml_call2(Stdlib_List[13], acc, t);
+      /*<<ephemeron.ml:591:22>>*/ if(test_keys(k1, k2, h)){
+       /*<<ephemeron.ml:591:48>>*/ b[1] = caml_call2(Stdlib_List[13], acc, t);
        /*<<ephemeron.ml:591:69>>*/ return 0;
      }
      var
@@ -34913,7 +34050,7 @@
     if(_I_ >= 0){
      var i = _H_;
      for(;;){
-       /*<<ephemeron.ml:627:26>>*/ set_key$0
+       /*<<ephemeron.ml:627:40>>*/  /*<<ephemeron.ml:627:26>>*/ set_key$0
        (eph, i,  /*<<ephemeron.ml:627:40>>*/ caml_check_bound(keys, i)[1 + i]);
       var _J_ =  /*<<ephemeron.ml:627:48>>*/ i + 1 | 0;
       if(_I_ === i) break;
@@ -34937,8 +34074,7 @@
          /*<<ephemeron.ml:636:18>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[3], 1);
        var k =  /*<<ephemeron.ml:635:27>>*/ match[1];
-        /*<<ephemeron.ml:637:35>>*/ if
-        (k !==  /*<<ephemeron.ml:637:27>>*/ caml_check_bound(keys, i)[1 + i])
+        /*<<ephemeron.ml:637:27>>*/ if(k !== caml_check_bound(keys, i)[1 + i])
          /*<<ephemeron.ml:638:20>>*/ throw caml_maybe_attach_backtrace
                (Stdlib[3], 1);
        var _F_ =  /*<<ephemeron.ml:637:39>>*/ i + 1 | 0;
@@ -34963,7 +34099,7 @@
      if(_z_ >= 0){
       var i = _y_;
       for(;;){
-        /*<<ephemeron.ml:651:10>>*/ set_key$0
+        /*<<ephemeron.ml:651:22>>*/  /*<<ephemeron.ml:651:10>>*/ set_key$0
         (c, i,  /*<<ephemeron.ml:651:22>>*/ caml_check_bound(k, i)[1 + i]);
        var _A_ =  /*<<ephemeron.ml:651:27>>*/ i + 1 | 0;
        if(_z_ === i) break;
@@ -34976,17 +34112,15 @@
      var
       h =  /*<<ephemeron.ml:655:8>>*/ [0, 0],
       _u_ =  /*<<ephemeron.ml:656:8>>*/ k.length - 2 | 0,
-      _t_ =  /*<<ephemeron.ml:655:8>>*/ 0;
-      /*<<ephemeron.ml:656:8>>*/ if(_u_ >= 0){
+      _t_ = 0;
+     if(_u_ >= 0){
       var i = _t_;
       for(;;){
        var
-        _v_ =  /*<<ephemeron.ml:657:10>>*/ h[1],
-        _w_ =  /*<<ephemeron.ml:657:34>>*/ caml_check_bound(k, i)[1 + i];
-        /*<<ephemeron.ml:657:39>>*/ h[1] =
-        ( /*<<ephemeron.ml:657:15>>*/ caml_call2(H[2], seed, _w_) * 65599 | 0)
-        + _v_
-        | 0;
+        _v_ =  /*<<ephemeron.ml:657:34>>*/ h[1],
+        _w_ = caml_check_bound(k, i)[1 + i];
+        /*<<ephemeron.ml:657:15>>*/ h[1] =
+        (caml_call2(H[2], seed, _w_) * 65599 | 0) + _v_ | 0;
        var _x_ =  /*<<ephemeron.ml:657:39>>*/ i + 1 | 0;
        if(_u_ === i) break;
        i = _x_;
@@ -35010,8 +34144,7 @@
       var
        ki =  /*<<ephemeron.ml:668:31>>*/ match[1],
        _s_ =  /*<<ephemeron.ml:671:29>>*/ caml_check_bound(k, i)[1 + i];
-       /*<<ephemeron.ml:671:37>>*/ if
-       (!  /*<<ephemeron.ml:671:21>>*/ caml_call2(H[1], _s_, ki))
+       /*<<ephemeron.ml:671:21>>*/ if(! caml_call2(H[1], _s_, ki))
         /*<<ephemeron.ml:673:23>>*/ return 1;
       var i$0 =  /*<<ephemeron.ml:672:23>>*/ i - 1 | 0;
       i = i$0;
@@ -35023,7 +34156,7 @@
      if(_q_ >= 0){
       var i = _p_;
       for(;;){
-        /*<<ephemeron.ml:680:10>>*/ set_key$0
+        /*<<ephemeron.ml:680:22>>*/  /*<<ephemeron.ml:680:10>>*/ set_key$0
         (c, i,  /*<<ephemeron.ml:680:22>>*/ caml_check_bound(k, i)[1 + i]);
        var _r_ =  /*<<ephemeron.ml:680:27>>*/ i + 1 | 0;
        if(_q_ === i) break;
@@ -35034,10 +34167,7 @@
     }
     function check_key(c){
      var
-      i$1 =
-         /*<<ephemeron.ml:686:25>>*/  /*<<ephemeron.ml:686:17>>*/ length$1(c)
-        - 1
-        | 0,
+      i$1 =  /*<<ephemeron.ml:686:17>>*/ length$1(c) - 1 | 0,
       i =  /*<<ephemeron.ml:686:25>>*/ i$1;
      for(;;){
       var _n_ =  /*<<ephemeron.ml:685:10>>*/ i < 0 ? 1 : 0;
@@ -35121,15 +34251,13 @@
      /*<<ephemeron.ml:707:18>>*/ return [0, 0];
     /*<<ephemeron.ml:707:24>>*/ }
    function add$1(b, k, d){
-    var _k_ =  /*<<ephemeron.ml:708:20>>*/ b[1];
-     /*<<ephemeron.ml:708:36>>*/ b[1] =
-     [0,  /*<<ephemeron.ml:708:25>>*/ make$3(k, d), _k_];
+    var _k_ =  /*<<ephemeron.ml:708:25>>*/ b[1];
+    b[1] = [0, make$3(k, d), _k_];
      /*<<ephemeron.ml:708:36>>*/ return 0;
     /*<<ephemeron.ml:708:42>>*/ }
    function test_keys$0(k, e){
      /*<<ephemeron.ml:711:6>>*/ try{
-      /*<<ephemeron.ml:712:19>>*/ if
-      ( /*<<ephemeron.ml:712:11>>*/ length$1(e) !== k.length - 1)
+      /*<<ephemeron.ml:712:11>>*/ if(length$1(e) !== k.length - 1)
        /*<<ephemeron.ml:712:43>>*/ throw caml_maybe_attach_backtrace
              (Stdlib[3], 1);
      var _g_ =  /*<<ephemeron.ml:713:8>>*/ k.length - 2 | 0, _f_ = 0;
@@ -35139,8 +34267,7 @@
        var match =  /*<<ephemeron.ml:714:16>>*/ get_key$0(e, i);
         /*<<ephemeron.ml:714:27>>*/ if(match){
         var x = match[1];
-         /*<<ephemeron.ml:715:34>>*/ if
-         (x ===  /*<<ephemeron.ml:715:29>>*/ caml_check_bound(k, i)[1 + i]){
+         /*<<ephemeron.ml:715:29>>*/ if(x === caml_check_bound(k, i)[1 + i]){
          var _i_ =  /*<<ephemeron.ml:715:38>>*/ i + 1 | 0;
          if(_g_ === i) break;
          i = _i_;
@@ -35166,10 +34293,8 @@
       /*<<ephemeron.ml:723:8>>*/ if(! l)
        /*<<ephemeron.ml:724:16>>*/ return 0;
      var h =  /*<<ephemeron.ml:723:8>>*/ l[1], t = l[2];
-      /*<<ephemeron.ml:725:35>>*/ if
-      ( /*<<ephemeron.ml:725:22>>*/ test_keys$0(k, h)){
-       /*<<ephemeron.ml:725:65>>*/ b[1] =
-        /*<<ephemeron.ml:725:44>>*/ caml_call2(Stdlib_List[13], acc, t);
+      /*<<ephemeron.ml:725:22>>*/ if(test_keys$0(k, h)){
+       /*<<ephemeron.ml:725:44>>*/ b[1] = caml_call2(Stdlib_List[13], acc, t);
        /*<<ephemeron.ml:725:65>>*/ return 0;
      }
      var
@@ -35327,9 +34452,7 @@
       /*<<filename.ml:38:4>>*/ if(0 > n)
        /*<<filename.ml:38:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:48:40>>*/ ;
-      /*<<filename.ml:39:29>>*/ if
-      (!  /*<<filename.ml:39:12>>*/ caml_call2(is_dir_sep, name, n))
-      break;
+      /*<<filename.ml:39:12>>*/ if(! caml_call2(is_dir_sep, name, n)) break;
      var n$0 =  /*<<filename.ml:39:35>>*/ n - 1 | 0;
      n = n$0;
     }
@@ -35338,8 +34461,7 @@
       /*<<filename.ml:42:4>>*/ if(0 > n$1)
        /*<<filename.ml:42:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, p) /*<<filename.ml:48:40>>*/ ;
-      /*<<filename.ml:43:29>>*/ if
-      ( /*<<filename.ml:43:12>>*/ caml_call2(is_dir_sep, name, n$1))
+      /*<<filename.ml:43:12>>*/ if(caml_call2(is_dir_sep, name, n$1))
        /*<<filename.ml:43:35>>*/ return caml_call3
               (Stdlib_String[16], name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0) /*<<filename.ml:48:40>>*/ ;
      var n$2 =  /*<<filename.ml:44:9>>*/ n$1 - 1 | 0;
@@ -35356,9 +34478,7 @@
       /*<<filename.ml:56:4>>*/ if(0 > n)
        /*<<filename.ml:56:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
-      /*<<filename.ml:57:29>>*/ if
-      (!  /*<<filename.ml:57:12>>*/ caml_call2(is_dir_sep, name, n))
-      break;
+      /*<<filename.ml:57:12>>*/ if(! caml_call2(is_dir_sep, name, n)) break;
      var n$0 =  /*<<filename.ml:57:35>>*/ n - 1 | 0;
      n = n$0;
     }
@@ -35366,9 +34486,7 @@
     for(;;){
       /*<<filename.ml:60:4>>*/ if(0 > n$1)
        /*<<filename.ml:60:18>>*/ return current_dir_name;
-      /*<<filename.ml:61:29>>*/ if
-      ( /*<<filename.ml:61:12>>*/ caml_call2(is_dir_sep, name, n$1))
-      break;
+      /*<<filename.ml:61:12>>*/ if(caml_call2(is_dir_sep, name, n$1)) break;
      var n$2 =  /*<<filename.ml:62:9>>*/ n$1 - 1 | 0;
      n$1 = n$2;
     }
@@ -35377,8 +34495,7 @@
       /*<<filename.ml:64:4>>*/ if(0 > n$3)
        /*<<filename.ml:64:18>>*/ return caml_call3
               (Stdlib_String[16], name, 0, 1) /*<<filename.ml:70:44>>*/ ;
-      /*<<filename.ml:65:29>>*/ if
-      (!  /*<<filename.ml:65:12>>*/ caml_call2(is_dir_sep, name, n$3))
+      /*<<filename.ml:65:12>>*/ if(! caml_call2(is_dir_sep, name, n$3))
        /*<<filename.ml:66:9>>*/ return caml_call3
               (Stdlib_String[16], name, 0, n$3 + 1 | 0) /*<<filename.ml:70:44>>*/ ;
      var n$4 =  /*<<filename.ml:65:35>>*/ n$3 - 1 | 0;
@@ -35386,10 +34503,7 @@
     }
     /*<<filename.ml:70:44>>*/ }
    function is_dir_sep(s, i){
-     /*<<filename.ml:96:28>>*/ return 47
-            ===  /*<<filename.ml:96:23>>*/ caml_string_get(s, i)
-            ? 1
-            : 0 /*<<filename.ml:96:28>>*/ ;
+     /*<<filename.ml:96:23>>*/ return 47 === caml_string_get(s, i) ? 1 : 0 /*<<filename.ml:96:28>>*/ ;
     /*<<filename.ml:96:34>>*/ }
    function is_relative(n){
     var
@@ -35482,8 +34596,7 @@
     if(_ay_ >= 0){
      var i = _ax_;
      for(;;){
-       /*<<filename.ml:21:12>>*/ if
-       (39 ===  /*<<filename.ml:21:7>>*/ caml_string_get(s, i))
+       /*<<filename.ml:21:7>>*/ if(39 === caml_string_get(s, i))
         /*<<filename.ml:22:9>>*/ caml_call2(Stdlib_Buffer[16], b, quotequote);
       else{
        var _aA_ =  /*<<filename.ml:23:28>>*/ caml_string_get(s, i);
@@ -35500,8 +34613,7 @@
    function quote_command(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:120:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:123:66>>*/ if
-      ( /*<<filename.ml:123:51>>*/ caml_equal(stderr, stdout))
+      /*<<filename.ml:123:51>>*/ if(caml_equal(stderr, stdout))
       var _am_ =  /*<<filename.ml:124:53>>*/ cst_2_1;
      else
       var
@@ -35696,9 +34808,7 @@
         /*<<filename.ml:155:14>>*/ caml_call3
         (Stdlib_String[16], filename, len_f - len_s | 0, len_s),
      _Q_ =  /*<<filename.ml:156:36>>*/ caml_call1(Stdlib_String[27], suffix);
-     /*<<filename.ml:156:65>>*/ return  /*<<filename.ml:156:9>>*/ caml_call1
-             (Stdlib_String[27], r)
-            === _Q_
+     /*<<filename.ml:156:9>>*/ return caml_call1(Stdlib_String[27], r) === _Q_
             ? [0,
                /*<<filename.ml:157:13>>*/ caml_call3
                (Stdlib_String[16], filename, 0, len_f - len_s | 0)]
@@ -35745,7 +34855,7 @@
      }
      /*<<filename.ml:175:48>>*/ }
     function loop(i){
-      /*<<?>>*/ return caml_trampoline
+      /*<<filename.ml:171:6>>*/ return  /*<<?>>*/ caml_trampoline
              ( /*<<filename.ml:171:6>>*/ loop$0(0, i)) /*<<?>>*/ ;
     }
     function loop_bs(counter, n, i){
@@ -35793,9 +34903,9 @@
      /*<<filename.ml:188:10>>*/ return caml_call1(Stdlib_Buffer[2], b) /*<<filename.ml:189:21>>*/ ;
    }
    function quote_cmd_filename(f){
-     /*<<filename.ml:222:65>>*/ if
+     /*<<filename.ml:222:7>>*/ if
      (!
-       /*<<filename.ml:222:7>>*/ caml_call2
+      caml_call2
        (Stdlib_String[23],
         function(param){
           /*<<filename.ml:222:21>>*/ if(34 !== param && 37 !== param)
@@ -35803,8 +34913,7 @@
           /*<<filename.ml:222:45>>*/ return 1;
          /*<<filename.ml:222:63>>*/ },
         f))
-      /*<<filename.ml:224:33>>*/ return  /*<<filename.ml:224:12>>*/ caml_call2
-              (Stdlib_String[15], f, 32)
+      /*<<filename.ml:224:12>>*/ return caml_call2(Stdlib_String[15], f, 32)
              ?  /*<<filename.ml:225:6>>*/ caml_call2
                (Stdlib_String[7], cst$7, [0, cst$6, [0, f, _c_]])
              : f /*<<filename.ml:227:7>>*/ ;
@@ -35817,8 +34926,7 @@
    function quote_command$0(cmd, stdin, stdout, stderr, args){
      /*<<filename.ml:232:4>>*/ if(stderr){
      var f = stderr[1];
-      /*<<filename.ml:240:58>>*/ if
-      ( /*<<filename.ml:240:43>>*/ caml_equal(stderr, stdout))
+      /*<<filename.ml:240:43>>*/ if(caml_equal(stderr, stdout))
       var _w_ =  /*<<filename.ml:241:45>>*/ cst_2_1$0;
      else
       var
@@ -35855,7 +34963,7 @@
         /*<<filename.ml:236:35>>*/ caml_call2(Stdlib_List[20], quote$0, args),
      s =  /*<<filename.ml:236:16>>*/ caml_call2(Stdlib_String[7], cst$10, _E_),
      b =
-        /*<<filename.ml:211:12>>*/ caml_call1
+        /*<<filename.ml:211:4>>*/  /*<<filename.ml:211:12>>*/ caml_call1
         (Stdlib_Buffer[1],
           /*<<filename.ml:211:4>>*/ caml_ml_string_length(s) + 20 | 0);
      /*<<filename.ml:212:4>>*/ caml_call2
@@ -35887,15 +34995,13 @@
       s);
     var
      _F_ =
-        /*<<filename.ml:236:57>>*/ [0,
+        /*<<filename.ml:219:7>>*/ [0,
         cst$11,
-        [0,
-          /*<<filename.ml:219:7>>*/ caml_call1(Stdlib_Buffer[2], b),
-         [0, _D_, _B_]]],
+        [0, caml_call1(Stdlib_Buffer[2], b), [0, _D_, _B_]]],
      _G_ =
-        /*<<filename.ml:234:28>>*/ [0,
+        /*<<filename.ml:234:6>>*/ [0,
         cst$12,
-        [0,  /*<<filename.ml:234:6>>*/ quote_cmd_filename(cmd), _F_]];
+        [0, quote_cmd_filename(cmd), _F_]];
      /*<<filename.ml:234:28>>*/ return caml_call2
             (Stdlib_String[7], cst$13, _G_) /*<<filename.ml:244:5>>*/ ;
    }
@@ -35929,13 +35035,13 @@
       /*<<filename.ml:254:9>>*/ return [0, cst$17, s];
     var
      _v_ =
-        /*<<filename.ml:253:28>>*/ caml_call3
+        /*<<filename.ml:253:9>>*/  /*<<filename.ml:253:28>>*/ caml_call3
         (Stdlib_String[16],
          s,
          2,
           /*<<filename.ml:253:9>>*/ caml_ml_string_length(s) - 2 | 0);
-     /*<<filename.ml:253:26>>*/ return [0,
-             /*<<filename.ml:253:10>>*/ caml_call3(Stdlib_String[16], s, 0, 2),
+     /*<<filename.ml:253:10>>*/ return [0,
+            caml_call3(Stdlib_String[16], s, 0, 2),
             _v_] /*<<filename.ml:253:26>>*/ ;
     /*<<filename.ml:254:16>>*/ }
    function dirname$0(s){
@@ -35949,11 +35055,7 @@
      /*<<filename.ml:258:4>>*/ return caml_call2(Stdlib[28], drive, dir) /*<<filename.ml:258:15>>*/ ;
    }
    function basename$0(s){
-    var
-     path =
-        /*<<filename.ml:260:41>>*/  /*<<filename.ml:260:25>>*/ drive_and_path
-         (s)
-        [2];
+    var path =  /*<<filename.ml:260:25>>*/ drive_and_path(s)[2];
      /*<<filename.ml:261:4>>*/ return generic_basename
             (is_dir_sep$0, current_dir_name$0, path) /*<<filename.ml:261:53>>*/ ;
    }
@@ -36030,8 +35132,7 @@
             (Stdlib[28], dirname, filename) /*<<filename.ml:293:35>>*/ ;
    }
    function chop_suffix(name, suff){
-     /*<<filename.ml:296:27>>*/ return  /*<<filename.ml:296:5>>*/ check_suffix$1
-             (name, suff)
+     /*<<filename.ml:296:5>>*/ return check_suffix$1(name, suff)
             ?  /*<<filename.ml:297:7>>*/ caml_call3
               (Stdlib_String[16],
                name,
@@ -36047,9 +35148,7 @@
     for(;;){
       /*<<filename.ml:307:4>>*/ if
       (0 <= i0 && !  /*<<filename.ml:307:16>>*/ is_dir_sep$1(name, i0)){
-       /*<<filename.ml:308:20>>*/ if
-       (46 ===  /*<<filename.ml:308:12>>*/ caml_string_get(name, i0))
-       break;
+       /*<<filename.ml:308:12>>*/ if(46 === caml_string_get(name, i0)) break;
       var i$2 =  /*<<filename.ml:309:9>>*/ i0 - 1 | 0;
       i0 = i$2;
       continue;
@@ -36060,8 +35159,7 @@
     for(;;){
       /*<<filename.ml:302:4>>*/ if
       (0 <= i && !  /*<<filename.ml:302:16>>*/ is_dir_sep$1(name, i)){
-       /*<<filename.ml:303:20>>*/ if
-       (46 !==  /*<<filename.ml:303:12>>*/ caml_string_get(name, i))
+       /*<<filename.ml:303:12>>*/ if(46 !== caml_string_get(name, i))
         /*<<filename.ml:304:9>>*/ return caml_ml_string_length(name) - i0 | 0;
       var i$0 =  /*<<filename.ml:303:32>>*/ i - 1 | 0;
       i = i$0;
@@ -36110,10 +35208,10 @@
      random_state =
         /*<<filename.ml:333:21>>*/ caml_call1(Stdlib_Domain[10][2], prng_key),
      rnd =
-        /*<<filename.ml:334:44>>*/  /*<<filename.ml:334:12>>*/ caml_call1
+        /*<<filename.ml:334:12>>*/ caml_call1
         (Stdlib_Random[19][4], random_state)
        & 16777215;
-     /*<<filename.ml:335:63>>*/ return concat
+     /*<<filename.ml:335:18>>*/ return  /*<<filename.ml:335:63>>*/ concat
             (temp_dir,
               /*<<filename.ml:335:18>>*/ caml_call4
               (Stdlib_Printf[4], _f_, prefix, rnd, suffix)) /*<<filename.ml:335:63>>*/ ;
@@ -36147,7 +35245,7 @@
       name =
          /*<<filename.ml:345:15>>*/ temp_file_name(temp_dir, prefix, suffix);
       /*<<filename.ml:346:4>>*/ try{
-       /*<<filename.ml:347:6>>*/ runtime.caml_sys_close
+       /*<<filename.ml:347:16>>*/  /*<<filename.ml:347:6>>*/ runtime.caml_sys_close
        ( /*<<filename.ml:347:16>>*/ runtime.caml_sys_open(name, _g_, 384));
       return name;
      }
@@ -36178,10 +35276,9 @@
       /*<<filename.ml:358:4>>*/ try{
       var
        _n_ =
-          /*<<filename.ml:360:73>>*/ [0,
+          /*<<filename.ml:360:7>>*/ [0,
           name,
-           /*<<filename.ml:360:7>>*/ caml_call3
-           (Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
+          caml_call3(Stdlib[62], [0, 1, [0, 3, [0, 5, mode]]], perms, name)];
       return _n_;
      }
      catch(e$0){
@@ -36304,8 +35401,7 @@
      /*<<complex.ml:49:42>>*/ return x[1] * x[1] + x[2] * x[2];
    }
    function norm(x){
-     /*<<complex.ml:51:34>>*/ return  /*<<complex.ml:51:13>>*/ runtime.caml_hypot_float
-            (x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
+     /*<<complex.ml:51:13>>*/ return runtime.caml_hypot_float(x[1], x[2]) /*<<complex.ml:51:34>>*/ ;
    }
    function arg(x){
      /*<<complex.ml:53:27>>*/ return  /*<<complex.ml:53:12>>*/ Math.atan2
@@ -36350,14 +35446,17 @@
             e *  /*<<complex.ml:75:54>>*/ Math.sin(x[2])] /*<<complex.ml:75:42>>*/ ;
     /*<<complex.ml:75:64>>*/ }
    function log(x){
-    var _b_ =  /*<<complex.ml:77:38>>*/ Math.atan2(x[2], x[1]);
-     /*<<complex.ml:77:31>>*/ return [254,
+    var
+     _b_ =
+        /*<<complex.ml:77:23>>*/  /*<<complex.ml:77:38>>*/ Math.atan2
+        (x[2], x[1]);
+     /*<<complex.ml:77:23>>*/ return [254,
              /*<<complex.ml:77:19>>*/ Math.log
              ( /*<<complex.ml:77:23>>*/ norm(x)),
             _b_] /*<<complex.ml:77:31>>*/ ;
     /*<<complex.ml:77:55>>*/ }
    function pow(x, y){
-     /*<<complex.ml:79:33>>*/ return exp
+     /*<<complex.ml:79:25>>*/ return  /*<<complex.ml:79:33>>*/ exp
             ( /*<<complex.ml:79:18>>*/ mul
               (y,  /*<<complex.ml:79:25>>*/ log(x))) /*<<complex.ml:79:33>>*/ ;
    }
@@ -37120,7 +36219,7 @@
        discontinue_with_backtrace,
        match_with,
        try_with],
-    cst_Initial_setup =  /*<<?>>*/ "Initial_setup__",
+    cst_Initial_setup = "Initial_setup__",
     cst_E = "E",
     cst_impossible = "impossible";
    function fiber(f){
@@ -37129,7 +36228,7 @@
         /*<<effect.ml:124:4>>*/ [248, cst_Initial_setup, caml_fresh_oo_id(0)],
      E = [248, cst_E, caml_fresh_oo_id(0)];
     function f$0(param){
-      /*<<effect.ml:126:45>>*/ return caml_call1
+      /*<<effect.ml:126:18>>*/ return  /*<<effect.ml:126:45>>*/ caml_call1
              (f,  /*<<effect.ml:126:18>>*/ jsoo_effect_not_supported()) /*<<effect.ml:126:45>>*/ ;
     }
     function error(param){
@@ -37144,7 +36243,7 @@
     var s =  /*<<effect.ml:135:12>>*/ caml_alloc_stack(error, error, effc);
      /*<<effect.ml:136:4>>*/ try{
       /*<<effect.ml:136:10>>*/ jsoo_effect_not_supported();
-     var _b_ = 0;
+     var _b_ =  /*<<effect.ml:136:26>>*/ 0;
     }
     catch(exn$0){
      var exn =  /*<<?>>*/ caml_wrap_exception(exn$0);

From 1fa015689836a3e6e522663149ce3db79d2a1a81 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Thu, 17 Oct 2024 16:32:51 +0200
Subject: [PATCH 23/35] Source maps: use ignoreList to hide runtime files

The generated code is also hidden by using a dummy file.
---
 compiler/bin-js_of_ocaml/compile.ml           | 15 +++++-
 compiler/lib/js_output.ml                     | 24 +++++++++-
 compiler/lib/js_output.mli                    |  2 +
 compiler/lib/source_map.ml                    | 48 ++++++++++++++++++-
 compiler/lib/source_map.mli                   |  1 +
 .../tests-compiler/build_path_prefix_map.ml   |  1 +
 compiler/tests-compiler/sourcemap.ml          |  6 +--
 compiler/tests-sourcemap/dump.reference       |  1 -
 8 files changed, 89 insertions(+), 9 deletions(-)

diff --git a/compiler/bin-js_of_ocaml/compile.ml b/compiler/bin-js_of_ocaml/compile.ml
index 8f4e184c34..440648a896 100644
--- a/compiler/bin-js_of_ocaml/compile.ml
+++ b/compiler/bin-js_of_ocaml/compile.ml
@@ -79,7 +79,9 @@ let find_source file =
   match Builtins.find file with
   | Some f -> Some (Source_map.Source_content.create (Builtins.File.content f))
   | None ->
-      if Sys.file_exists file && not (Sys.is_directory file)
+      if String.equal file Js_output.blackbox_filename
+      then Some (Source_map.Source_content.create "(* generated code *)")
+      else if Sys.file_exists file && not (Sys.is_directory file)
       then
         let content = Fs.read_file file in
         Some (Source_map.Source_content.create content)
@@ -99,9 +101,18 @@ let sourcemap_section_of_info
         | None -> filename
         | Some _ -> Filename.concat "/builtin" filename)
   in
+  let ignore_list =
+    List.filter sources ~f:(fun filename -> String.is_prefix ~prefix:"/builtin/" filename)
+  in
   let offset, mappings = Source_map.Mappings.encode_with_offset mappings in
   let map =
-    { (base : Source_map.Standard.t) with sources; sources_content; names; mappings }
+    { (base : Source_map.Standard.t) with
+      sources
+    ; sources_content
+    ; names
+    ; mappings
+    ; ignore_list
+    }
   in
   { Source_map.Index.offset; map }
 
diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index d7694017b9..1cc1fe1a3e 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -133,6 +133,8 @@ module Make (D : sig
 
   val get_name_index : string -> int
 
+  val hidden_location : Source_map.map
+
   val source_map_enabled : bool
 
   val accept_unnamed_var : bool
@@ -167,7 +169,7 @@ struct
          then
            match loc with
            | N | U | Pi { Parse_info.src = None | Some ""; _ } ->
-               push_mapping (PP.pos f) (Source_map.Gen { gen_line = -1; gen_col = -1 })
+               push_mapping (PP.pos f) hidden_location
            | Pi { Parse_info.src = Some file; line; col; _ } ->
                push_mapping
                  (PP.pos f)
@@ -209,10 +211,15 @@ struct
         (match loc with
         | None | Some { Parse_info.src = Some "" | None; _ } ->
             (* Use a dummy location. It is going to be ignored anyway *)
+            let ori_source =
+              match hidden_location with
+              | Source_map.Gen_Ori { ori_source; _ } -> ori_source
+              | _ -> 0
+            in
             Source_map.Gen_Ori_Name
               { gen_line = -1
               ; gen_col = -1
-              ; ori_source = 0
+              ; ori_source
               ; ori_line = 1
               ; ori_col = 0
               ; ori_name = get_name_index nm
@@ -2042,6 +2049,8 @@ let hashtbl_to_list htb =
   |> List.sort ~cmp:(fun (_, a) (_, b) -> compare a b)
   |> List.map ~f:fst
 
+let blackbox_filename = "/builtin/blackbox.ml"
+
 let program ?(accept_unnamed_var = false) ?(source_map = false) f p =
   let temp_mappings = ref [] in
   let files = Hashtbl.create 17 in
@@ -2061,6 +2070,15 @@ let program ?(accept_unnamed_var = false) ?(source_map = false) f p =
           Hashtbl.add names name pos;
           pos )
   in
+  let hidden_location =
+    Source_map.Gen_Ori
+      { gen_line = -1
+      ; gen_col = -1
+      ; ori_source = get_file_index blackbox_filename
+      ; ori_line = 1
+      ; ori_col = 0
+      }
+  in
   let module O = Make (struct
     let push_mapping = push_mapping
 
@@ -2068,6 +2086,8 @@ let program ?(accept_unnamed_var = false) ?(source_map = false) f p =
 
     let get_file_index = get_file_index
 
+    let hidden_location = hidden_location
+
     let source_map_enabled = source_map
 
     let accept_unnamed_var = accept_unnamed_var
diff --git a/compiler/lib/js_output.mli b/compiler/lib/js_output.mli
index dd74de8738..bcb0a6ab45 100644
--- a/compiler/lib/js_output.mli
+++ b/compiler/lib/js_output.mli
@@ -24,3 +24,5 @@ val program :
   -> Pretty_print.t
   -> Javascript.program
   -> Source_map.info
+
+val blackbox_filename : string
diff --git a/compiler/lib/source_map.ml b/compiler/lib/source_map.ml
index 96fe0a22b6..2a1ed4dcdb 100644
--- a/compiler/lib/source_map.ml
+++ b/compiler/lib/source_map.ml
@@ -294,6 +294,11 @@ let string_of_stringlit (`Stringlit s) =
   | `String s -> s
   | _ -> invalid ()
 
+let int_of_intlit (`Intlit s) =
+  match Yojson.Safe.from_string s with
+  | `Int s -> s
+  | _ -> invalid ()
+
 let stringlit name rest : [ `Stringlit of string ] option =
   try
     match List.assoc name rest with
@@ -325,6 +330,17 @@ let list_stringlit_opt name rest =
     | _ -> invalid ()
   with Not_found -> None
 
+let list_intlit name rest =
+  try
+    match List.assoc name rest with
+    | `List l ->
+        Some
+          (List.map l ~f:(function
+              | `Intlit _ as s -> s
+              | _ -> invalid ()))
+    | _ -> invalid ()
+  with Not_found -> None
+
 module Standard = struct
   type t =
     { version : int
@@ -334,6 +350,7 @@ module Standard = struct
     ; sources_content : Source_content.t option list option
     ; names : string list
     ; mappings : Mappings.t
+    ; ignore_list : string list
     }
 
   let empty ~inline_source_content =
@@ -344,6 +361,7 @@ module Standard = struct
     ; sources_content = (if inline_source_content then Some [] else None)
     ; names = []
     ; mappings = Mappings.empty
+    ; ignore_list = []
     }
 
   let maps ~sources_offset ~names_offset x =
@@ -472,6 +490,21 @@ module Standard = struct
                      (List.map l ~f:(function
                          | None -> `Null
                          | Some x -> Source_content.to_json x))) )
+         ; ( "ignoreList"
+           , match t.ignore_list with
+             | [] -> None
+             | _ ->
+                 Some
+                   (`List
+                     (let s = StringSet.of_list t.ignore_list in
+                      List.filter_map
+                        ~f:(fun x -> x)
+                        (List.mapi
+                           ~f:(fun i nm ->
+                             if StringSet.mem nm s
+                             then Some (`Intlit (string_of_int i))
+                             else None)
+                           t.sources))) )
          ])
 
   let of_json (json : Yojson.Raw.t) =
@@ -505,6 +538,17 @@ module Standard = struct
           | None -> Mappings.empty
           | Some s -> Mappings.of_string_unsafe s
         in
+        let ignore_list =
+          let s =
+            IntSet.of_list
+              (List.map
+                 ~f:int_of_intlit
+                 (Option.value ~default:[] (list_intlit "ignoreList" rest)))
+          in
+          List.filter_map
+            ~f:(fun x -> x)
+            (List.mapi ~f:(fun i nm -> if IntSet.mem i s then Some nm else None) sources)
+        in
         { version = int_of_string version
         ; file
         ; sourceroot
@@ -512,6 +556,7 @@ module Standard = struct
         ; sources_content
         ; sources
         ; mappings
+        ; ignore_list
         }
     | _ -> invalid ()
 
@@ -520,7 +565,8 @@ module Standard = struct
   let to_file m file = Yojson.Raw.to_file file (json m)
 
   let invariant
-      { version; file = _; sourceroot = _; names; sources_content; sources; mappings } =
+      { version; file = _; sourceroot = _; names; sources_content; sources; mappings; _ }
+      =
     if not (version_is_valid version)
     then invalid_arg "Source_map.Standard.invariant: invalid version";
     match sources_content with
diff --git a/compiler/lib/source_map.mli b/compiler/lib/source_map.mli
index 78c1972048..64954d0fd5 100644
--- a/compiler/lib/source_map.mli
+++ b/compiler/lib/source_map.mli
@@ -98,6 +98,7 @@ module Standard : sig
           (** Left uninterpreted, since most useful operations can be performed efficiently
           directly on the encoded form, and a full decoding can be costly for big
           sourcemaps. *)
+    ; ignore_list : string list
     }
 
   val filter_map : t -> f:(int -> int option) -> t
diff --git a/compiler/tests-compiler/build_path_prefix_map.ml b/compiler/tests-compiler/build_path_prefix_map.ml
index 8dcd2b3c3c..3279aa0a92 100644
--- a/compiler/tests-compiler/build_path_prefix_map.ml
+++ b/compiler/tests-compiler/build_path_prefix_map.ml
@@ -48,5 +48,6 @@ let%expect_test _ =
     file: test.js
     sourceRoot: <none>
     sources:
+    - /builtin/blackbox.ml
     - /dune-root/test.ml
     |}]
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index ebc0aff0c4..69ef11cadf 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -83,14 +83,14 @@ let%expect_test _ =
        11:   (globalThis));
        12:
        13: //# sourceMappingURL=test.map
-      /dune-root/test.ml:1:0 -> 5:7
-      null -> 5:17
+      /builtin/blackbox.ml:1:0 -> 5:7
+      /builtin/blackbox.ml:1:0 -> 5:17
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
       /dune-root/test.ml:1:12 -> 6:28
       /dune-root/test.ml:1:12 -> 7:7
-      null -> 7:14
+      /builtin/blackbox.ml:1:0 -> 7:14
     |}]
 
 let%expect_test _ =
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index ee77238271..5feb760f7e 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -1,5 +1,4 @@
 sourcemap for test.bc.js
-/my/sourceRoot#b.ml:1:0 -> 7:   var <>runtime = globalThis.jsoo_runtime;
 /my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }

From 59c9878d18099cf5932b8d051c44133f99f58a9a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Thu, 17 Oct 2024 17:46:54 +0200
Subject: [PATCH 24/35] Source map: repeat mappings over new lines

Firefox assumes that a mapping stops at the end of a line, which is
inconvenient. When this happens, we repeat the mapping on the next line.
---
 compiler/lib/js_output.ml               | 45 +++++++++++++++++--------
 compiler/tests-compiler/sourcemap.ml    |  2 ++
 compiler/tests-sourcemap/dump.reference |  1 +
 3 files changed, 34 insertions(+), 14 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 1cc1fe1a3e..60e456e75d 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -2104,21 +2104,38 @@ let program ?(accept_unnamed_var = false) ?(source_map = false) f p =
     | true ->
         let sources = hashtbl_to_list files in
         let names = hashtbl_to_list names in
+        let relocate pos m =
+          let gen_line = pos.PP.p_line + 1 in
+          let gen_col = pos.PP.p_col in
+          match m with
+          | Source_map.Gen { gen_col = _; gen_line = _ } ->
+              Source_map.Gen { gen_col; gen_line }
+          | Source_map.Gen_Ori m -> Source_map.Gen_Ori { m with gen_line; gen_col }
+          | Source_map.Gen_Ori_Name m ->
+              Source_map.Gen_Ori_Name { m with gen_line; gen_col }
+        in
+        let rec build_mappings pos mapping prev_mappings =
+          match mapping with
+          | [] -> prev_mappings
+          | (pos', m) :: rem ->
+              (* Firefox assumes that a mapping stops at the end of a
+                 line, which is inconvenient. When this happens, we
+                 repeat the mapping on the next line. *)
+              if pos'.PP.p_line = pos.PP.p_line
+                 || (pos'.p_line = pos.p_line - 1 && pos.p_col = 0)
+              then build_mappings pos' rem (relocate pos' m :: prev_mappings)
+              else if pos.p_col > 0
+              then
+                let pos = { pos with p_col = 0 } in
+                build_mappings pos mapping (relocate pos m :: prev_mappings)
+              else
+                let pos = { pos with p_line = pos.p_line - 1 } in
+                build_mappings pos mapping (relocate pos m :: prev_mappings)
+        in
         let mappings =
-          List.rev_map !temp_mappings ~f:(fun (pos, m) ->
-              let gen_line = pos.PP.p_line + 1 in
-              let gen_col = pos.PP.p_col in
-              match m with
-              | Source_map.Gen { gen_col = _; gen_line = _ } ->
-                  Source_map.Gen { gen_col; gen_line }
-              | Source_map.Gen_Ori
-                  { gen_line = _; gen_col = _; ori_source; ori_line; ori_col } ->
-                  Source_map.Gen_Ori { gen_line; gen_col; ori_source; ori_line; ori_col }
-              | Source_map.Gen_Ori_Name
-                  { gen_line = _; gen_col = _; ori_source; ori_line; ori_col; ori_name }
-                ->
-                  Source_map.Gen_Ori_Name
-                    { gen_line; gen_col; ori_source; ori_line; ori_col; ori_name })
+          match !temp_mappings with
+          | [] -> []
+          | (pos, m) :: rem -> build_mappings pos rem [ relocate pos m ]
         in
         { Source_map.sources; names; mappings }
   in
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 69ef11cadf..28d5275044 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -85,10 +85,12 @@ let%expect_test _ =
        13: //# sourceMappingURL=test.map
       /builtin/blackbox.ml:1:0 -> 5:7
       /builtin/blackbox.ml:1:0 -> 5:17
+      /builtin/blackbox.ml:1:0 -> 6:0
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
       /dune-root/test.ml:1:12 -> 6:28
+      /dune-root/test.ml:1:12 -> 7:0
       /dune-root/test.ml:1:12 -> 7:7
       /builtin/blackbox.ml:1:0 -> 7:14
     |}]
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index 5feb760f7e..ca2f059261 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -3,4 +3,5 @@ sourcemap for test.bc.js
 /my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }
 /my/sourceRoot#b.ml:1:15 -> 35:   function f(x){return x - 1 | 0; <>}
+/my/sourceRoot#b.ml:1:15 -> 0:<>   var Testlib_B = [0, f];
 /my/sourceRoot#b.ml:1:15 -> 7:   var <>Testlib_B = [0, f];

From 46686baf17a8bf172c38e3c5a7d805d90402d148 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 12:32:54 +0200
Subject: [PATCH 25/35] Changes

---
 CHANGES.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGES.md b/CHANGES.md
index 6217c43fe6..cb0a415455 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -19,6 +19,7 @@
 * Compiler: warn on joo_global_object
 * Compiler: revisit static env handling (#1708)
 * Compiler: Emit index source_map to avoid changing mappings (#1714, #1715)
+* Compiler: improved source map generation (#1716)
 * Runtime: change Sys.os_type on windows (Cygwin -> Win32)
 * Runtime: backtraces are really expensive, they need to be be explicitly
   requested at compile time (--enable with-js-error) or at startup (OCAMLRUNPARAM=b=1)

From 720dff1a793a9d1cdb6d33e3d48db69933b25d23 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Fri, 18 Oct 2024 16:47:09 +0200
Subject: [PATCH 26/35] LWT toplevel example: do not generate a source map

Outputting this source map would fail on 32-bit architectures since
its size, once Base64-encoded, would be over the string length limit
of 16 MiB.
---
 toplevel/examples/lwt_toplevel/dune | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/toplevel/examples/lwt_toplevel/dune b/toplevel/examples/lwt_toplevel/dune
index 70092d5447..ca635edf0b 100644
--- a/toplevel/examples/lwt_toplevel/dune
+++ b/toplevel/examples/lwt_toplevel/dune
@@ -39,7 +39,11 @@
   (:standard -linkall))
  (modes byte js)
  (js_of_ocaml
-  (link_flags (:standard))
+  (link_flags
+   :standard
+   ; We use the generated file in the doc. Let's not bloat it with sourcemap.
+   ; Plus, the source map would be too large on 32-bit architectures
+   --no-source-map)
   (build_runtime_flags
    (:standard
     --file

From a28fa70b0129f8cd24b4185f8cb2f2e3597039b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 21 Oct 2024 12:25:39 +0200
Subject: [PATCH 27/35] Consider more precisely all debug event kinds

---
 compiler/lib/parse_bytecode.ml             | 31 +++++++++++++++-------
 compiler/tests-full/stdlib.cma.expected.js | 17 ++++++------
 2 files changed, 29 insertions(+), 19 deletions(-)

diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index 2a8c2f5530..78b0e1c83c 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -952,25 +952,36 @@ and compile infos pc state instrs =
             (* Ignore allocation events (not very interesting) *)
             if debug_parser () then Format.eprintf "Ignored allocation event@.";
             instrs
-        | ( { ev_kind = Event_pseudo | Event_after _; _ }
+        | ( { ev_kind = Event_pseudo | Event_after _; ev_info = Event_return _; _ }
           , ((Let (_, (Apply _ | Prim _)), _) as i) :: rem ) ->
+            (* Event after a call. If it is followed by another event,
+               it may have been weaken to a pseudo-event but was kept
+               for stack traces *)
             if debug_parser () then Format.eprintf "Added event across call@.";
             push_event After source event (i :: push_event Before source event rem)
         | { ev_kind = Event_pseudo; ev_info = Event_function; _ }, [] ->
             (* At beginning of function *)
             if debug_parser () then Format.eprintf "Added event at function start@.";
             push_event Before source event instrs
-        | { ev_kind = Event_after _ | Event_pseudo; _ }, _ ->
-            if debug_parser () then Format.eprintf "Ignored useless event@.";
-            (* Not interesting:
-               - before a throw instruction, but we already have an event
-                 for the exception
-               - omitted else clause
-            *)
+        | { ev_kind = Event_after _ | Event_pseudo; ev_info = Event_return _; _ }, _ ->
+            if debug_parser ()
+            then
+              Format.eprintf "Ignored useless event (beginning of a block after a call)@.";
             instrs
-        | _, _ ->
+        | { ev_kind = Event_after _; ev_info = Event_other; _ }, _ ->
+            if debug_parser ()
+            then Format.eprintf "Ignored useless event (before a raise)@.";
+            (* We already have an event for the exception. The
+               compiler add these events for stack traces. *)
+            instrs
+        | { ev_kind = Event_before; ev_info = Event_other; _ }, _
+        | { ev_kind = Event_before | Event_pseudo; ev_info = Event_function; _ }, _ ->
             if debug_parser () then Format.eprintf "added event@.";
-            push_event Before source event instrs)
+            push_event Before source event instrs
+        | { ev_kind = Event_after _; ev_info = Event_function; _ }, _
+        | { ev_kind = Event_before; ev_info = Event_return _; _ }, _ ->
+            (* Nonsensical events *)
+            assert false)
   in
 
   if pc = infos.limit
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 97efeff201..018cb3f8be 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -23386,9 +23386,9 @@
        bt =  /*<<fun.ml:31:15>>*/ caml_call1(Stdlib_Printexc[12], 0),
        exn =  /*<<fun.ml:32:6>>*/ [0, Finally_raised, e];
       caml_restore_raw_backtrace(exn, bt);
-       /*<<fun.ml:32:57>>*/ throw caml_maybe_attach_backtrace(exn, 0);
+      throw caml_maybe_attach_backtrace(exn, 0);
      }
-    }
+     /*<<fun.ml:32:57>>*/ }
      /*<<fun.ml:34:2>>*/ try{
      var result =  /*<<fun.ml:34:8>>*/ caml_call1(work, 0);
     }
@@ -23397,8 +23397,8 @@
       work_exn =  /*<<?>>*/ caml_wrap_exception(work_exn$0),
       work_bt =  /*<<fun.ml:37:20>>*/ caml_call1(Stdlib_Printexc[12], 0);
       /*<<fun.ml:38:6>>*/ finally_no_exn(0);
-      /*<<fun.ml:39:6>>*/ caml_restore_raw_backtrace(work_exn, work_bt);
-      /*<<fun.ml:39:52>>*/ throw caml_maybe_attach_backtrace(work_exn, 0);
+      /*<<fun.ml:38:23>>*/ caml_restore_raw_backtrace(work_exn, work_bt);
+     throw caml_maybe_attach_backtrace(work_exn, 0);
     }
      /*<<fun.ml:35:14>>*/ finally_no_exn(0);
      /*<<fun.ml:35:31>>*/ return result;
@@ -36172,8 +36172,8 @@
     var _d_ =  /*<<effect.ml:68:11>>*/ caml_continuation_use_noexc(k);
     function _c_(e){
       /*<<effect.ml:68:41>>*/ caml_restore_raw_backtrace(e, bt);
-      /*<<effect.ml:68:75>>*/ throw caml_maybe_attach_backtrace(e, 0);
-    }
+     throw caml_maybe_attach_backtrace(e, 0);
+     /*<<effect.ml:68:75>>*/ }
      /*<<effect.ml:68:30>>*/ return jsoo_effect_not_supported() /*<<effect.ml:69:27>>*/ ;
    }
    function match_with(comp, arg, handler){
@@ -36292,9 +36292,8 @@
             (k,
              function(e){
                /*<<effect.ml:174:29>>*/ caml_restore_raw_backtrace(e, bt);
-               /*<<effect.ml:174:63>>*/ throw caml_maybe_attach_backtrace
-                     (e, 0);
-             },
+              throw caml_maybe_attach_backtrace(e, 0);
+              /*<<effect.ml:174:63>>*/ },
              v,
              handler) /*<<effect.ml:174:74>>*/ ;
    }

From 02776518f67c0c5038974478e4b05697ffcd590b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 21 Oct 2024 12:27:10 +0200
Subject: [PATCH 28/35] Handle the case where there there are several events at
 the same location

---
 compiler/lib/parse_bytecode.ml             |  49 ++++----
 compiler/tests-full/stdlib.cma.expected.js | 134 ++++++++++-----------
 2 files changed, 94 insertions(+), 89 deletions(-)

diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index 78b0e1c83c..59f447ffed 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -59,7 +59,7 @@ module Debug : sig
 
   val find_loc : t -> position:position -> Code.Addr.t -> Parse_info.t option
 
-  val find_loc' : t -> int -> (string option * Instruct.debug_event) option
+  val find_locs : t -> int -> (string option * Instruct.debug_event) list
 
   val event_location :
        position:position
@@ -301,11 +301,16 @@ end = struct
   let dummy_location (loc : Location.t) =
     loc.loc_start.pos_cnum = -1 || loc.loc_end.pos_cnum = -1
 
-  let find_loc' { events_by_pc; _ } pc =
-    match Int_table.find events_by_pc pc with
-    | exception Not_found -> None
-    | { event; source } ->
-        if dummy_location event.ev_loc then None else Some (source, event)
+  (* We can have several events at the same location when a function
+     application is followed by a branch target, typically due to some
+     code like [if ... then f(); ...] : the event after the function
+     application, and the event at the beginning of the continuation.
+     Both events are interesting. They are returned by this function
+     in the expected order: first after the function call, then before
+     the continuation. *)
+  let find_locs { events_by_pc; _ } pc =
+    List.filter_map (Int_table.find_all events_by_pc pc) ~f:(fun { event; source } ->
+        if dummy_location event.ev_loc then None else Some (source, event))
 
   let event_location ~position ~source ~event =
     let pos =
@@ -316,9 +321,9 @@ end = struct
     Parse_info.t_of_position ~src:source pos
 
   let find_loc t ~position pc =
-    match find_loc' t pc with
-    | None -> None
-    | Some (source, event) -> Some (event_location ~position ~source ~event)
+    match find_locs t pc with
+    | [] -> None
+    | (source, event) :: _ -> Some (event_location ~position ~source ~event)
 
   let rec propagate l1 l2 =
     match l1, l2 with
@@ -840,9 +845,9 @@ type compile_info =
   }
 
 let string_of_addr debug_data addr =
-  match Debug.find_loc' debug_data addr with
-  | None -> None
-  | Some (src, { ev_loc = loc; ev_kind = kind; _ }) ->
+  List.map
+    (Debug.find_locs debug_data addr)
+    ~f:(fun (src, { Instruct.ev_loc = loc; ev_kind = kind; _ }) ->
       let pos (p : Lexing.position) =
         Printf.sprintf "%d:%d" p.pos_lnum (p.pos_cnum - p.pos_bol)
       in
@@ -857,7 +862,7 @@ let string_of_addr debug_data addr =
         | Event_after _ -> "(after)"
         | Event_pseudo -> "(pseudo)"
       in
-      Some (Printf.sprintf "%s:%s-%s %s" file (pos loc.loc_start) (pos loc.loc_end) kind)
+      Printf.sprintf "%s:%s-%s %s" file (pos loc.loc_start) (pos loc.loc_end) kind)
 
 let rec compile_block blocks debug_data code pc state =
   match Addr.Map.find_opt pc !tagged_blocks with
@@ -932,11 +937,10 @@ let rec compile_block blocks debug_data code pc state =
 and compile infos pc state instrs =
   if debug_parser () then State.print state;
   assert (pc <= infos.limit);
-  (if debug_parser ()
-   then
-     match string_of_addr infos.debug pc with
-     | None -> ()
-     | Some s -> Format.eprintf "@@@@ %s @@@@@." s);
+  if debug_parser ()
+  then
+    List.iter (string_of_addr infos.debug pc) ~f:(fun s ->
+        Format.eprintf "@@@@ %s @@@@@." s);
 
   let instrs =
     let push_event position source event instrs =
@@ -944,11 +948,12 @@ and compile infos pc state instrs =
       | (Event _, _) :: instrs | instrs ->
           (Event (Debug.event_location ~position ~source ~event), noloc) :: instrs
     in
-    match Debug.find_loc' infos.debug pc with
-    | None -> instrs
-    | Some (source, event) -> (
+    List.fold_left
+      (Debug.find_locs infos.debug pc)
+      ~init:instrs
+      ~f:(fun instrs (source, event) ->
         match event, instrs with
-        | { ev_kind = Event_pseudo; ev_info = Event_other; _ }, _ ->
+        | { Instruct.ev_kind = Event_pseudo; ev_info = Event_other; _ }, _ ->
             (* Ignore allocation events (not very interesting) *)
             if debug_parser () then Format.eprintf "Ignored allocation event@.";
             instrs
diff --git a/compiler/tests-full/stdlib.cma.expected.js b/compiler/tests-full/stdlib.cma.expected.js
index 018cb3f8be..099faef92e 100644
--- a/compiler/tests-full/stdlib.cma.expected.js
+++ b/compiler/tests-full/stdlib.cma.expected.js
@@ -852,7 +852,7 @@
         function(param){
           /*<<stdlib.ml:566:4>>*/ if(caml_atomic_cas(f_yet_to_run$0, 1, 0))
            /*<<stdlib.ml:566:59>>*/ caml_call1(f, 0);
-          /*<<stdlib.ml:566:4>>*/ return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
+          /*<<stdlib.ml:567:4>>*/ return caml_call1(old_exit$0, 0) /*<<stdlib.ml:567:15>>*/ ;
         },
       success =
          /*<<stdlib.ml:569:2>>*/ caml_atomic_cas
@@ -2133,7 +2133,7 @@
    function take(n, xs){
      /*<<seq.ml:365:2>>*/ if(n < 0)
       /*<<seq.ml:365:16>>*/ caml_call1(Stdlib[1], cst_Seq_take);
-     /*<<seq.ml:365:2>>*/ return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
+     /*<<seq.ml:366:2>>*/ return take_aux(n, xs) /*<<seq.ml:366:15>>*/ ;
    }
    function drop(n, xs){
      /*<<seq.ml:387:2>>*/ return 0 <= n
@@ -4891,7 +4891,7 @@
          len - dstoff | 0);
      /*<<bytes.ml:88:2>>*/ if(0 < cpylen)
       /*<<bytes.ml:88:21>>*/ caml_blit_bytes(s, srcoff, r, dstoff, cpylen);
-     /*<<bytes.ml:88:2>>*/ return r;
+     /*<<bytes.ml:89:2>>*/ return r;
     /*<<bytes.ml:89:3>>*/ }
    function fill(s, ofs, len, c){
      /*<<bytes.ml:92:2>>*/ if
@@ -7520,7 +7520,7 @@
      nb =  /*<<array.ml:326:2>>*/ b.length - 1;
      /*<<array.ml:327:2>>*/ if(na !== nb)
       /*<<array.ml:327:19>>*/ caml_call1(Stdlib[1], cst_Array_combine);
-     /*<<array.ml:327:2>>*/ if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
+     /*<<array.ml:328:2>>*/ if(0 === na)  /*<<array.ml:328:17>>*/ return [0];
     var
      x =  /*<<array.ml:330:12>>*/ caml_make_vect(na, [0, a[1], b[1]]),
      _L_ =  /*<<array.ml:331:4>>*/ na - 1 | 0,
@@ -12675,7 +12675,7 @@
       /*<<buffer.ml:151:7>>*/ caml_call1
       (Stdlib[1], cst_Buffer_add_substring_add_s);
     var
-     position =  /*<<buffer.ml:150:2>>*/ b[2],
+     position =  /*<<buffer.ml:152:2>>*/ b[2],
      match =  /*<<buffer.ml:153:2>>*/ b[1],
      length = match[2],
      buffer = match[1],
@@ -12688,7 +12688,7 @@
     else
       /*<<buffer.ml:159:4>>*/ caml_blit_string
       (s, offset, buffer, position, len);
-     /*<<buffer.ml:155:2>>*/ b[2] = new_position;
+     /*<<buffer.ml:160:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:160:28>>*/ }
    function add_subbytes(b, s, offset, len){
@@ -12713,7 +12713,7 @@
     }
     else
       /*<<buffer.ml:174:4>>*/ caml_blit_string(s, 0, buffer, position, len);
-     /*<<buffer.ml:170:2>>*/ b[2] = new_position;
+     /*<<buffer.ml:175:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:175:28>>*/ }
    function add_bytes(b, s){
@@ -12732,7 +12732,7 @@
      /*<<buffer.ml:200:2>>*/ if(b[1][2] < (b[2] + to_read$1 | 0))
       /*<<buffer.ml:200:44>>*/ resize(b, to_read$1);
     var
-     ofs$1 =  /*<<buffer.ml:200:2>>*/ b[2],
+     ofs$1 =  /*<<buffer.ml:201:2>>*/ b[2],
      buf = b[1][1],
      already_read =  /*<<buffer.ml:196:5>>*/ 0,
      ofs = ofs$1,
@@ -12893,9 +12893,9 @@
      else{
        /*<<buffer.ml:279:9>>*/ if(92 === previous)
         /*<<buffer.ml:279:33>>*/ add_char(b, previous);
-       /*<<buffer.ml:279:9>>*/ if(92 !== previous$0)
+       /*<<buffer.ml:280:9>>*/ if(92 !== previous$0)
         /*<<buffer.ml:280:33>>*/ add_char(b, previous$0);
-      var i$6 =  /*<<buffer.ml:279:9>>*/ i$4 + 1 | 0;
+      var i$6 =  /*<<buffer.ml:281:9>>*/ i$4 + 1 | 0;
       previous = previous$0;
       i$4 = i$6;
      }
@@ -12978,7 +12978,7 @@
     }
     else
       /*<<buffer.ml:356:4>>*/ caml_bytes_set16(buffer, position, x);
-     /*<<buffer.ml:352:2>>*/ b[2] = new_position;
+     /*<<buffer.ml:357:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:357:28>>*/ }
    function add_int32_ne(b, x){
@@ -12994,7 +12994,7 @@
     }
     else
       /*<<buffer.ml:367:4>>*/ caml_bytes_set32(buffer, position, x);
-     /*<<buffer.ml:363:2>>*/ b[2] = new_position;
+     /*<<buffer.ml:368:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:368:28>>*/ }
    function add_int64_ne(b, x){
@@ -13010,7 +13010,7 @@
     }
     else
       /*<<buffer.ml:378:4>>*/ caml_bytes_set64(buffer, position, x);
-     /*<<buffer.ml:374:2>>*/ b[2] = new_position;
+     /*<<buffer.ml:379:2>>*/ b[2] = new_position;
     return 0;
     /*<<buffer.ml:379:28>>*/ }
    function add_int16_le(b, x){
@@ -18633,21 +18633,21 @@
       /*<<camlinternalFormat.ml:1997:27>>*/ invalid_box(0);
     a:
     {
-      /*<<camlinternalFormat.ml:1997:4>>*/ if
+      /*<<camlinternalFormat.ml:1998:4>>*/ if
       (box_name !== cst$43 && box_name !== "b"){
       if(box_name === "h"){
        var box_type =  /*<<camlinternalFormat.ml:2000:20>>*/ 0;
        break a;
       }
-       /*<<camlinternalFormat.ml:1997:4>>*/ if(box_name === "hov"){
+       /*<<camlinternalFormat.ml:1998:4>>*/ if(box_name === "hov"){
        var box_type =  /*<<camlinternalFormat.ml:2003:20>>*/ 3;
        break a;
       }
-       /*<<camlinternalFormat.ml:1997:4>>*/ if(box_name === "hv"){
+       /*<<camlinternalFormat.ml:1998:4>>*/ if(box_name === "hv"){
        var box_type =  /*<<camlinternalFormat.ml:2002:20>>*/ 2;
        break a;
       }
-       /*<<camlinternalFormat.ml:1997:4>>*/ if(box_name !== "v"){
+       /*<<camlinternalFormat.ml:1998:4>>*/ if(box_name !== "v"){
        var
         box_type =
            /*<<camlinternalFormat.ml:2004:34>>*/  /*<<camlinternalFormat.ml:2004:20>>*/ invalid_box
@@ -19097,7 +19097,7 @@
         /*<<camlinternalFormat.ml:2155:8>>*/ caml_call3
         (failwith_message(_C_), str, str_ind, _bd_);
       }
-       /*<<camlinternalFormat.ml:2154:6>>*/ flag[1] = 1;
+       /*<<camlinternalFormat.ml:2158:6>>*/ flag[1] = 1;
       /*<<camlinternalFormat.ml:2158:19>>*/ }
      a:
      b:
@@ -19167,7 +19167,7 @@
        (end_ind, cst_unexpected_end_of_format);
      var
       padty =
-         /*<<camlinternalFormat.ml:2180:4>>*/ zero$0
+         /*<<camlinternalFormat.ml:2181:4>>*/ zero$0
          ? minus$0
            ? legacy_behavior$0
              ? 0
@@ -19213,7 +19213,7 @@
          /*<<camlinternalFormat.ml:2199:8>>*/ if(1 - legacy_behavior$0)
           /*<<camlinternalFormat.ml:2200:10>>*/ invalid_format_without
           (str_ind$0 - 1 | 0, 45, cst_padding);
-         /*<<camlinternalFormat.ml:2199:8>>*/ return parse_after_padding
+         /*<<camlinternalFormat.ml:2201:8>>*/ return parse_after_padding
                 (pct_ind,
                  str_ind$0,
                  end_ind,
@@ -20365,45 +20365,45 @@
         /*<<camlinternalFormat.ml:2564:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$27);
       var
-       _al_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - hash_used[1],
+       _al_ =  /*<<camlinternalFormat.ml:2565:4>>*/ 1 - hash_used[1],
        hash$0 = _al_ ? hash : _al_;
       if(hash$0)
         /*<<camlinternalFormat.ml:2566:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$28);
       var
-       _am_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - space_used[1],
+       _am_ =  /*<<camlinternalFormat.ml:2567:4>>*/ 1 - space_used[1],
        space$0 = _am_ ? space : _am_;
       if(space$0)
         /*<<camlinternalFormat.ml:2568:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst$29);
       var
-       _an_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - pad_used[1],
+       _an_ =  /*<<camlinternalFormat.ml:2569:4>>*/ 1 - pad_used[1],
        _ao_ =
          _an_
           ?  /*<<camlinternalFormat.ml:2569:25>>*/ caml_notequal
             ([0, pad], _K_)
           : _an_;
-       /*<<camlinternalFormat.ml:2562:32>>*/ if(_ao_)
+       /*<<camlinternalFormat.ml:2569:4>>*/ if(_ao_)
         /*<<camlinternalFormat.ml:2570:6>>*/ incompatible_flag
         (pct_ind, str_ind, symb, cst_padding$0);
       var
-       _ap_ =  /*<<camlinternalFormat.ml:2562:32>>*/ 1 - prec_used[1],
+       _ap_ =  /*<<camlinternalFormat.ml:2571:4>>*/ 1 - prec_used[1],
        _aq_ =
          _ap_
           ?  /*<<camlinternalFormat.ml:2571:25>>*/ caml_notequal
             ([0, prec], _L_)
           : _ap_;
-       /*<<camlinternalFormat.ml:2562:32>>*/ if(_aq_){
+       /*<<camlinternalFormat.ml:2571:4>>*/ if(_aq_){
        var _ar_ =  /*<<camlinternalFormat.ml:2572:6>>*/ ign ? 95 : symb;
        incompatible_flag(pct_ind, str_ind, _ar_, cst_precision$2);
       }
-      var plus$1 =  /*<<camlinternalFormat.ml:2562:32>>*/ ign ? plus : ign;
+      var plus$1 =  /*<<camlinternalFormat.ml:2574:4>>*/ ign ? plus : ign;
       if(plus$1)
         /*<<camlinternalFormat.ml:2574:24>>*/ incompatible_flag
         (pct_ind, str_ind, 95, cst$30);
      }
      var
-      _as_ =  /*<<camlinternalFormat.ml:2562:4>>*/ 1 - ign_used[1],
+      _as_ =  /*<<camlinternalFormat.ml:2579:4>>*/ 1 - ign_used[1],
       ign$0 = _as_ ? ign : _as_;
      a:
      if(ign$0){
@@ -20418,7 +20418,7 @@
        /*<<camlinternalFormat.ml:2584:10>>*/ incompatible_flag
        (pct_ind, str_ind, symb, cst$31);
      }
-      /*<<camlinternalFormat.ml:2562:4>>*/ return fmt_result;
+      /*<<camlinternalFormat.ml:2586:4>>*/ return fmt_result;
     }
     function parse_tag(is_open_tag, str_ind, end_ind){
       /*<<camlinternalFormat.ml:2639:4>>*/ try{
@@ -21256,7 +21256,7 @@
      /*<<dynarray.ml:269:31>>*/ if(0 === length)
       /*<<dynarray.ml:178:4>>*/ caml_call3
       (Stdlib_Printf[10], Stdlib[1], _i_, f);
-     /*<<dynarray.ml:269:31>>*/ return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
+     /*<<dynarray.ml:273:2>>*/ return unsafe_get(arr, length - 1 | 0, length) /*<<dynarray.ml:273:40>>*/ ;
    }
    function find_last(a){
     var length =  /*<<dynarray.ml:276:2>>*/ a[1], arr = a[2];
@@ -21308,7 +21308,7 @@
    function truncate(a, n){
      /*<<dynarray.ml:314:2>>*/ if(n < 0)
       /*<<dynarray.ml:314:16>>*/ negative_length_requested(cst_truncate, n);
-    var length =  /*<<dynarray.ml:314:2>>*/ a[1], arr = a[2];
+    var length =  /*<<dynarray.ml:315:2>>*/ a[1], arr = a[2];
      /*<<dynarray.ml:316:2>>*/ return length <= n
             ? 0
             : (a
@@ -21381,7 +21381,7 @@
       /*<<dynarray.ml:394:4>>*/ negative_capacity_requested
       (cst_set_capacity, n);
     var
-     arr =  /*<<dynarray.ml:393:2>>*/ a[2],
+     arr =  /*<<dynarray.ml:395:2>>*/ a[2],
      cur_capacity =  /*<<dynarray.ml:396:2>>*/ arr.length - 1;
      /*<<dynarray.ml:397:2>>*/ if(n < cur_capacity){
       /*<<dynarray.ml:398:16>>*/ a[1] = caml_call2(Stdlib[16], a[1], n);
@@ -23203,7 +23203,7 @@
       _H_ =  /*<<printexc.ml:327:18>>*/ caml_check_bound(errors, _G_)[1 + _G_];
       /*<<printexc.ml:327:4>>*/ caml_call1(Stdlib[53], _H_);
     }
-     /*<<printexc.ml:326:2>>*/ return caml_call1(Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
+     /*<<printexc.ml:328:2>>*/ return caml_call1(Stdlib[63], Stdlib[40]) /*<<printexc.ml:328:14>>*/ ;
    }
    var
     uncaught_exception_handler =
@@ -24195,7 +24195,7 @@
       /*<<digest.ml:68:9>>*/ caml_call1
       (Stdlib[1], cst_Digest_BLAKE2_wrong_hash_s);
     var
-     hash_length =  /*<<?>>*/ X[1],
+     hash_length =  /*<<digest.ml:69:4>>*/ X[1],
      compare = Stdlib_String[10],
      equal = Stdlib_String[9];
     function string(str){
@@ -24288,15 +24288,15 @@
     function to_hex(d){
       /*<<digest.ml:131:4>>*/ if(caml_ml_string_length(d) !== hash_length)
        /*<<digest.ml:131:43>>*/ caml_call1(Stdlib[1], cst_Digest_to_hex);
-      /*<<digest.ml:131:4>>*/ return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
+      /*<<digest.ml:132:4>>*/ return hex_of_string(d) /*<<digest.ml:132:19>>*/ ;
     }
     function of_hex(s){
       /*<<digest.ml:135:4>>*/ if
       (caml_ml_string_length(s) !== (hash_length * 2 | 0))
        /*<<digest.ml:135:47>>*/ caml_call1(Stdlib[1], cst_Digest_of_hex$0);
-      /*<<digest.ml:135:4>>*/ return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
+      /*<<digest.ml:136:4>>*/ return string_of_hex(s) /*<<digest.ml:136:19>>*/ ;
     }
-     /*<<?>>*/ return [0,
+     /*<<digest.ml:69:4>>*/ return [0,
             hash_length,
             compare,
             equal,
@@ -24312,7 +24312,7 @@
             of_hex];
    }
    var
-    BLAKE128 = BLAKE2([0, 16]),
+    BLAKE128 =  /*<<?>>*/ BLAKE2([0, 16]),
     BLAKE256 = BLAKE2([0, 32]),
     BLAKE512 = BLAKE2([0, 64]),
     compare = Stdlib_String[10],
@@ -24358,12 +24358,12 @@
    function to_hex(d){
      /*<<digest.ml:178:4>>*/ if(16 !== caml_ml_string_length(d))
       /*<<digest.ml:178:34>>*/ caml_call1(Stdlib[1], cst_Digest_to_hex$0);
-     /*<<digest.ml:178:4>>*/ return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
+     /*<<digest.ml:179:4>>*/ return hex_of_string(d) /*<<digest.ml:179:19>>*/ ;
    }
    function of_hex(s){
      /*<<digest.ml:182:4>>*/ if(32 !== caml_ml_string_length(s))
       /*<<digest.ml:182:34>>*/ caml_call1(Stdlib[1], cst_Digest_from_hex);
-     /*<<digest.ml:182:4>>*/ return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
+     /*<<digest.ml:183:4>>*/ return string_of_hex(s) /*<<digest.ml:183:19>>*/ ;
    }
    var
     Stdlib_Digest =
@@ -24748,7 +24748,7 @@
        /*<<bigarray.ml:286:6>>*/ if(row.length - 1 !== dim2)
         /*<<bigarray.ml:287:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array2_of_array_n);
-      var _E_ =  /*<<bigarray.ml:286:6>>*/ dim2 - 1 | 0, _D_ = 0;
+      var _E_ =  /*<<bigarray.ml:288:6>>*/ dim2 - 1 | 0, _D_ = 0;
       if(_E_ >= 0){
        var j = _D_;
        for(;;){
@@ -24762,7 +24762,7 @@
         j = _G_;
        }
       }
-      var _F_ =  /*<<bigarray.ml:286:6>>*/ i + 1 | 0;
+      var _F_ =  /*<<bigarray.ml:288:6>>*/ i + 1 | 0;
       if(_C_ === i) break;
       i = _F_;
      }
@@ -24895,7 +24895,7 @@
        /*<<bigarray.ml:362:6>>*/ if(row.length - 1 !== dim2)
         /*<<bigarray.ml:363:8>>*/ caml_call1
         (Stdlib[1], cst_Bigarray_Array3_of_array_n);
-      var _d_ =  /*<<bigarray.ml:362:6>>*/ dim2 - 1 | 0, _c_ = 0;
+      var _d_ =  /*<<bigarray.ml:364:6>>*/ dim2 - 1 | 0, _c_ = 0;
       if(_d_ >= 0){
        var j = _c_;
        for(;;){
@@ -24903,7 +24903,7 @@
          /*<<bigarray.ml:366:8>>*/ if(col.length - 1 !== dim3)
           /*<<bigarray.ml:367:10>>*/ caml_call1
           (Stdlib[1], cst_Bigarray_Array3_of_array_n$0);
-        var _g_ =  /*<<bigarray.ml:366:8>>*/ dim3 - 1 | 0, _f_ = 0;
+        var _g_ =  /*<<bigarray.ml:368:8>>*/ dim3 - 1 | 0, _f_ = 0;
         if(_g_ >= 0){
          var k = _f_;
          for(;;){
@@ -24918,12 +24918,12 @@
           k = _i_;
          }
         }
-        var _h_ =  /*<<bigarray.ml:366:8>>*/ j + 1 | 0;
+        var _h_ =  /*<<bigarray.ml:368:8>>*/ j + 1 | 0;
         if(_d_ === j) break;
         j = _h_;
        }
       }
-      var _e_ =  /*<<bigarray.ml:362:6>>*/ i + 1 | 0;
+      var _e_ =  /*<<bigarray.ml:364:6>>*/ i + 1 | 0;
       if(_b_ === i) break;
       i = _e_;
      }
@@ -25272,7 +25272,7 @@
    function int_in_range(s, min, max){
      /*<<random.ml:206:4>>*/ if(max < min)
       /*<<random.ml:207:6>>*/ caml_call1(Stdlib[1], cst_Random_int_in_range);
-     /*<<random.ml:206:4>>*/ if(-1073741824 <= min && max <= 1073741823)
+     /*<<random.ml:214:4>>*/ if(-1073741824 <= min && max <= 1073741823)
       /*<<random.ml:215:6>>*/ return int_in_range_aux
              (s, min, max, max_int31, 31) /*<<random.ml:219:68>>*/ ;
      /*<<random.ml:216:9>>*/ if(-2147483648 <= min && max <= 2147483647)
@@ -25872,7 +25872,7 @@
     var old_trav =  /*<<hashtbl.ml:162:17>>*/ ongoing_traversal(h);
      /*<<hashtbl.ml:163:2>>*/ if(1 - old_trav)
       /*<<hashtbl.ml:163:23>>*/ flip_ongoing_traversal(h);
-     /*<<hashtbl.ml:163:2>>*/ try{
+     /*<<hashtbl.ml:164:2>>*/ try{
      var d = h[2], _W_ =  /*<<hashtbl.ml:166:4>>*/ d.length - 2 | 0, _V_ = 0;
      if(_W_ >= 0){
       var i = _V_;
@@ -25912,7 +25912,7 @@
      old_trav =  /*<<hashtbl.ml:196:17>>*/ ongoing_traversal(h);
      /*<<hashtbl.ml:197:2>>*/ if(1 - old_trav)
       /*<<hashtbl.ml:197:23>>*/ flip_ongoing_traversal(h);
-     /*<<hashtbl.ml:197:2>>*/ try{
+     /*<<hashtbl.ml:198:2>>*/ try{
      var _R_ = d.length - 2 | 0, _Q_ = 0;
      if(_R_ >= 0){
       var i = _Q_;
@@ -25934,7 +25934,7 @@
            /*<<hashtbl.ml:188:22>>*/ prec[3] = slot;
          else
            /*<<hashtbl.ml:187:21>>*/ caml_check_bound(h[2], i)[1 + i] = slot;
-          /*<<hashtbl.ml:186:10>>*/ slot[2] = data$0;
+          /*<<hashtbl.ml:190:10>>*/ slot[2] = data$0;
           /*<<hashtbl.ml:191:10>>*/ prec = slot;
          slot = next;
         }
@@ -25969,7 +25969,7 @@
     var old_trav =  /*<<hashtbl.ml:214:17>>*/ ongoing_traversal(h);
      /*<<hashtbl.ml:215:2>>*/ if(1 - old_trav)
       /*<<hashtbl.ml:215:23>>*/ flip_ongoing_traversal(h);
-     /*<<hashtbl.ml:215:2>>*/ try{
+     /*<<hashtbl.ml:216:2>>*/ try{
      var
       d = h[2],
       accu$1 =  /*<<hashtbl.ml:218:4>>*/ [0, init],
@@ -26001,7 +26001,7 @@
      }
       /*<<hashtbl.ml:222:4>>*/ if(1 - old_trav)
        /*<<hashtbl.ml:222:25>>*/ flip_ongoing_traversal(h);
-     var _O_ =  /*<<hashtbl.ml:222:4>>*/ accu$1[1];
+     var _O_ =  /*<<hashtbl.ml:223:4>>*/ accu$1[1];
      return _O_;
     }
     catch(exn$0){
@@ -27588,7 +27588,7 @@
           /*<<format.ml:296:12>>*/ pp_output_newline(state);
        }
        var
-        width$2 =  /*<<format.ml:327:4>>*/ state[9] - off$1 | 0,
+        width$2 =  /*<<format.ml:330:4>>*/ state[9] - off$1 | 0,
         box_type$1 =
            /*<<format.ml:331:4>>*/ 1 === ty ? 1 : state[9] < size$0 ? ty : 5;
         /*<<format.ml:336:4>>*/ return caml_call2
@@ -27676,7 +27676,7 @@
      /*<<format.ml:503:2>>*/ pp_enqueue(state, token);
      /*<<format.ml:503:24>>*/ if(b)
       /*<<format.ml:504:12>>*/ set_size(state, 1);
-    var elem =  /*<<format.ml:503:24>>*/ [0, state[13], token];
+    var elem =  /*<<format.ml:505:2>>*/ [0, state[13], token];
      /*<<format.ml:506:2>>*/ return caml_call2
             (Stdlib_Stack[3], elem, state[1]) /*<<format.ml:506:37>>*/ ;
    }
@@ -27703,7 +27703,7 @@
        /*<<format.ml:532:6>>*/ set_size(state, 1);
        /*<<format.ml:532:27>>*/ set_size(state, 0);
      }
-      /*<<format.ml:528:2>>*/ state[14] = state[14] - 1 | 0;
+      /*<<format.ml:534:4>>*/ state[14] = state[14] - 1 | 0;
      var _a3_ = 0;
     }
     else
@@ -27715,7 +27715,7 @@
       /*<<format.ml:542:4>>*/ caml_call2(Stdlib_Stack[3], tag_name, state[4]);
       /*<<format.ml:543:4>>*/ caml_call1(state[26], tag_name);
     }
-    var _a1_ =  /*<<format.ml:540:2>>*/ state[23];
+    var _a1_ =  /*<<format.ml:545:2>>*/ state[23];
     if(! _a1_) return _a1_;
     var token =  /*<<format.ml:546:4>>*/ [5, tag_name];
      /*<<format.ml:547:4>>*/ return pp_enqueue(state, [0, zero, token, 0]) /*<<format.ml:547:60>>*/ ;
@@ -27723,7 +27723,7 @@
    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_ =  /*<<format.ml:552:2>>*/ state[22];
+    var _aZ_ =  /*<<format.ml:554:2>>*/ state[22];
     if(_aZ_){
      var
       match =  /*<<format.ml:555:10>>*/ caml_call1(Stdlib_Stack[5], state[4]);
@@ -27734,7 +27734,7 @@
      var _a0_ =  /*<<format.ml:556:14>>*/ 0;
     }
     else
-     var _a0_ =  /*<<format.ml:552:2>>*/ _aZ_;
+     var _a0_ =  /*<<format.ml:554:2>>*/ _aZ_;
     return _a0_;
     /*<<format.ml:558:39>>*/ }
    function pp_set_print_tags(state, b){
@@ -27801,7 +27801,7 @@
        /*<<format.ml:613:2>>*/ advance_left(state);
        /*<<format.ml:613:20>>*/ if(end_with_newline)
         /*<<format.ml:614:27>>*/ pp_output_newline(state);
-       /*<<format.ml:613:20>>*/ return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
+       /*<<format.ml:615:2>>*/ return pp_rinit(state) /*<<format.ml:615:16>>*/ ;
      }
       /*<<format.ml:610:4>>*/ pp_close_box(state, 0);
     }
@@ -28803,7 +28803,7 @@
        /*<<format.ml:1260:22>>*/ is_first[1] = 0;
      else
        /*<<format.ml:1260:45>>*/ caml_call2(pp_sep, ppf, 0);
-      /*<<format.ml:1260:4>>*/ return caml_call2(pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
+      /*<<format.ml:1261:4>>*/ return caml_call2(pp_v, ppf, v) /*<<format.ml:1261:14>>*/ ;
     }
      /*<<format.ml:1263:2>>*/ return caml_call2(iter, pp_v$0, v) /*<<format.ml:1263:13>>*/ ;
    }
@@ -30155,7 +30155,7 @@
           ( /*<<scanf.ml:789:32>>*/ caml_string_get(str, i));
        /*<<scanf.ml:789:7>>*/ if(lowercase(c) !== _aL_)
         /*<<scanf.ml:789:45>>*/ caml_call1(error, 0);
-       /*<<scanf.ml:789:18>>*/ if(0 === width$0[1])
+       /*<<scanf.ml:790:4>>*/ if(0 === width$0[1])
         /*<<scanf.ml:790:23>>*/ caml_call1(error, 0);
        /*<<scanf.ml:791:13>>*/ width$0[1] = store_char(width$0[1], ib, c);
       var _aM_ =  /*<<scanf.ml:791:44>>*/ i + 1 | 0;
@@ -30190,7 +30190,7 @@
         _aB_ = _aA_ ||  /*<<scanf.ml:831:20>>*/ end_of_input(ib);
         /*<<scanf.ml:831:4>>*/ if(_aB_)
          /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-        /*<<scanf.ml:831:4>>*/ return check_case_insensitive_string
+        /*<<scanf.ml:832:4>>*/ return check_case_insensitive_string
                (width$1, ib, bad_hex_float, cst_an) /*<<scanf.ml:837:25>>*/ ;
       }
        /*<<scanf.ml:800:29>>*/ if(26 !== switcher) break a;
@@ -30276,7 +30276,7 @@
            _aI_ = _aH_ ||  /*<<scanf.ml:825:28>>*/ end_of_input(ib);
            /*<<scanf.ml:825:12>>*/ if(_aI_)
             /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-           /*<<scanf.ml:825:12>>*/ return scan_optionally_signed_decimal
+           /*<<scanf.ml:826:12>>*/ return scan_optionally_signed_decimal
                   (width$9, ib) /*<<scanf.ml:837:25>>*/ ;
          }
           /*<<scanf.ml:821:54>>*/ return width$8;
@@ -30293,7 +30293,7 @@
       _aD_ = _aC_ ||  /*<<scanf.ml:835:20>>*/ end_of_input(ib);
       /*<<scanf.ml:835:4>>*/ if(_aD_)
        /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-      /*<<scanf.ml:835:4>>*/ return check_case_insensitive_string
+      /*<<scanf.ml:836:4>>*/ return check_case_insensitive_string
              (width$2, ib, bad_hex_float, cst_nfinity) /*<<scanf.ml:837:25>>*/ ;
     }
      /*<<scanf.ml:432:2>>*/ return bad_input(cst_not_a_valid_float_in_hexad) /*<<scanf.ml:837:25>>*/ ;
@@ -30352,7 +30352,7 @@
        _aj_ = _ai_ ||  /*<<scanf.ml:904:20>>*/ end_of_input(ib);
        /*<<scanf.ml:904:4>>*/ if(_aj_)
         /*<<scanf.ml:428:2>>*/ bad_input(cst_no_dot_or_exponent_part_fo);
-       /*<<scanf.ml:904:4>>*/ return scan_caml_float_rest
+       /*<<scanf.ml:905:4>>*/ return scan_caml_float_rest
               (width$1, precision, ib) /*<<scanf.ml:910:21>>*/ ;
      }
     }
@@ -30448,7 +30448,7 @@
        _ar_ = _aq_ ||  /*<<scanf.ml:895:26>>*/ end_of_input(ib);
        /*<<scanf.ml:895:10>>*/ if(_ar_)
         /*<<scanf.ml:432:2>>*/ bad_input(cst_not_a_valid_float_in_hexad);
-       /*<<scanf.ml:895:10>>*/ return scan_optionally_signed_decimal
+       /*<<scanf.ml:896:10>>*/ return scan_optionally_signed_decimal
               (width$8, ib) /*<<scanf.ml:910:21>>*/ ;
      }
       /*<<scanf.ml:891:52>>*/ return width$7;
@@ -32366,7 +32366,7 @@
     var inits =  /*<<camlinternalOO.ml:377:44>>*/ table[8];
      /*<<camlinternalOO.ml:379:4>>*/ if(0 !== inits)
       /*<<camlinternalOO.ml:379:24>>*/ iter_f(obj, inits);
-     /*<<camlinternalOO.ml:379:4>>*/ return obj;
+     /*<<camlinternalOO.ml:380:4>>*/ return obj;
     /*<<camlinternalOO.ml:381:5>>*/ }
    function create_object_and_run_initiali(obj_0, table){
      /*<<camlinternalOO.ml:384:2>>*/ if(obj_0)

From f2abe1bd2eb1e187f6a7c3a2936b16bb83d5ce40 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 21 Oct 2024 12:40:44 +0200
Subject: [PATCH 29/35] Make the code to recognize the implementation of the
 `(^)` operator more robust

---
 compiler/lib/specialize_js.ml | 149 ++++++++++++++++++++--------------
 1 file changed, 86 insertions(+), 63 deletions(-)

diff --git a/compiler/lib/specialize_js.ml b/compiler/lib/specialize_js.ml
index 3f67eb3fed..3dae4b3062 100644
--- a/compiler/lib/specialize_js.ml
+++ b/compiler/lib/specialize_js.ml
@@ -157,75 +157,95 @@ let specialize_instr ~target info i =
       | _ -> i)
   | _, _ -> i
 
-let equal2 a b = Code.Var.equal a b
+let skip_event cont ((Event _, _) :: l | l) = cont l
 
-let equal3 a b c = Code.Var.equal a b && Code.Var.equal b c
+let recognize_string_length cont =
+  skip_event
+  @@ fun l ->
+  match l with
+  | ((Let (len, Prim (Extern "caml_ml_string_length", [ Pv str ])), _) as i) :: l ->
+      cont i ~len ~str l
+  | _ -> None
 
-let equal4 a b c d = Code.Var.equal a b && Code.Var.equal b c && Code.Var.equal c d
+let recognize_int_add ~x ~y cont =
+  skip_event
+  @@ fun l ->
+  match l with
+  | ((Let (res, Prim (Extern "%int_add", [ Pv x'; Pv y' ])), _) as i) :: l
+    when Code.Var.equal x x' && Code.Var.equal y y' -> cont i ~res l
+  | _ -> None
+
+let recognize_create_bytes ~len cont =
+  skip_event
+  @@ fun l ->
+  match l with
+  | (Let (bytes, Prim (Extern "caml_create_bytes", [ Pv len' ])), _) :: l
+    when Code.Var.equal len len' -> cont ~bytes l
+  | _ -> None
+
+let recognize_blit_string ~str ~bytes ~ofs ~len cont =
+  skip_event
+  @@ fun l ->
+  match l with
+  | ( Let
+        ( _
+        , Prim
+            ( Extern "caml_blit_string"
+            , [ Pv str'; Pc (Int zero); Pv bytes'; ofs'; Pv len' ] ) )
+    , _ )
+    :: l
+    when Code.Var.equal str str'
+         && Targetint.is_zero zero
+         && Code.Var.equal bytes bytes'
+         && Code.Var.equal len len'
+         &&
+         match ofs, ofs' with
+         | Pc (Int ofs), Pc (Int ofs') -> Targetint.equal ofs ofs'
+         | Pv ofs, Pv ofs' -> Code.Var.equal ofs ofs'
+         | _ -> false -> cont l
+  | _ -> None
+
+let recognize_string_of_bytes ~bytes cont =
+  skip_event
+  @@ fun l ->
+  match l with
+  | (Let (str, Prim (Extern "caml_string_of_bytes", [ Pv bytes' ])), _) :: l
+    when Code.Var.equal bytes bytes' -> cont ~str l
+  | _ -> None
+
+let recognize_empty_body cont =
+  skip_event @@ fun l -> if List.is_empty l then cont () else None
+
+let specialize_string_concat l =
+  Option.value
+    ~default:l
+    (l
+    |> recognize_string_length
+       @@ fun len1 ~len:alen ~str:a ->
+       recognize_string_length
+       @@ fun len2 ~len:blen ~str:b ->
+       recognize_int_add ~x:alen ~y:blen
+       @@ fun len3 ~res:len ->
+       recognize_create_bytes ~len
+       @@ fun ~bytes ->
+       recognize_blit_string ~str:a ~bytes ~ofs:(Pc (Int Targetint.zero)) ~len:alen
+       @@ recognize_blit_string ~str:b ~bytes ~ofs:(Pv alen) ~len:blen
+       @@ recognize_string_of_bytes ~bytes
+       @@ fun ~str ->
+       recognize_empty_body
+       @@ fun () ->
+       Some
+         [ len1
+         ; len2
+         ; len3
+         ; Let (str, Prim (Extern "caml_string_concat", [ Pv a; Pv b ])), No
+         ; Let (bytes, Prim (Extern "caml_bytes_of_string", [ Pv str ])), No
+         ])
 
 let specialize_instrs ~target info l =
   let rec aux info checks l acc =
     match l with
     | [] -> List.rev acc
-    | [ ((Let (alen, Prim (Extern "caml_ml_string_length", [ Pv a ])), _) as len1)
-      ; ((Let (blen, Prim (Extern "caml_ml_string_length", [ Pv b ])), _) as len2)
-      ; ((Let (len, Prim (Extern "%int_add", [ Pv alen'; Pv blen' ])), _) as len3)
-      ; (Let (bytes, Prim (Extern "caml_create_bytes", [ Pv len' ])), _)
-      ; ( Let
-            ( u1
-            , Prim
-                ( Extern "caml_blit_string"
-                , [ Pv a'; Pc (Int zero1); Pv bytes'; Pc (Int zero2); Pv alen'' ] ) )
-        , _ )
-      ; ( Let
-            ( u2
-            , Prim
-                ( Extern "caml_blit_string"
-                , [ Pv b'; Pc (Int zero3); Pv bytes''; Pv alen'''; Pv blen'' ] ) )
-        , _ )
-      ; (Let (res, Prim (Extern "caml_string_of_bytes", [ Pv bytes''' ])), _)
-      ]
-    | [ (Event _, _)
-      ; ((Let (alen, Prim (Extern "caml_ml_string_length", [ Pv a ])), _) as len1)
-      ; ((Let (blen, Prim (Extern "caml_ml_string_length", [ Pv b ])), _) as len2)
-      ; (Event _, _)
-      ; ((Let (len, Prim (Extern "%int_add", [ Pv alen'; Pv blen' ])), _) as len3)
-      ; (Event _, _)
-      ; (Let (bytes, Prim (Extern "caml_create_bytes", [ Pv len' ])), _)
-      ; (Event _, _)
-      ; ( Let
-            ( u1
-            , Prim
-                ( Extern "caml_blit_string"
-                , [ Pv a'; Pc (Int zero1); Pv bytes'; Pc (Int zero2); Pv alen'' ] ) )
-        , _ )
-      ; (Event _, _)
-      ; ( Let
-            ( u2
-            , Prim
-                ( Extern "caml_blit_string"
-                , [ Pv b'; Pc (Int zero3); Pv bytes''; Pv alen'''; Pv blen'' ] ) )
-        , _ )
-      ; (Event _, _)
-      ; (Let (res, Prim (Extern "caml_string_of_bytes", [ Pv bytes''' ])), _)
-      ]
-      when Targetint.is_zero zero1
-           && Targetint.is_zero zero2
-           && Targetint.is_zero zero3
-           && equal2 a a'
-           && equal2 b b'
-           && equal2 len len'
-           && equal4 alen alen' alen'' alen'''
-           && equal3 blen blen' blen''
-           && equal4 bytes bytes' bytes'' bytes''' ->
-        [ len1
-        ; len2
-        ; len3
-        ; Let (u1, Constant (Int Targetint.zero)), No
-        ; Let (u2, Constant (Int Targetint.zero)), No
-        ; Let (res, Prim (Extern "caml_string_concat", [ Pv a; Pv b ])), No
-        ; Let (bytes, Prim (Extern "caml_bytes_of_string", [ Pv res ])), No
-        ]
     | (i, loc) :: r -> (
         (* We make bound checking explicit. Then, we can remove duplicated
            bound checks. Also, it appears to be more efficient to inline
@@ -327,7 +347,10 @@ let specialize_instrs ~target info l =
 let specialize_all_instrs ~target info p =
   let blocks =
     Addr.Map.map
-      (fun block -> { block with Code.body = specialize_instrs ~target info block.body })
+      (fun block ->
+        { block with
+          Code.body = specialize_instrs ~target info (specialize_string_concat block.body)
+        })
       p.blocks
   in
   { p with blocks }

From 7340d2be20c480d19aadab7564e78d3b139b8e68 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Mon, 21 Oct 2024 13:48:14 +0200
Subject: [PATCH 30/35] Avoid additional block splitting during CPS
 transformation

We ignore any event at the end of a block. This happens when the block
ends with a return or a branch. In case of a return, it's a tail call,
so we don't have an event anyway. For a branch, the target block will
start with an event which is would take precedence anyway.
---
 compiler/lib/effects.ml                       | 36 ++++---
 compiler/lib/partial_cps_analysis.ml          | 11 ++-
 .../tests-compiler/effects_continuations.ml   | 97 ++++++++-----------
 3 files changed, 78 insertions(+), 66 deletions(-)

diff --git a/compiler/lib/effects.ml b/compiler/lib/effects.ml
index 73b3adf00d..2c3d016c8b 100644
--- a/compiler/lib/effects.ml
+++ b/compiler/lib/effects.ml
@@ -139,6 +139,28 @@ let dominance_frontier g idom =
     g.preds;
   frontiers
 
+(* Last instruction of a block, ignoring events *)
+let rec last_instr l =
+  match l with
+  | [] -> None
+  | [ i ] | [ i; (Event _, _) ] -> Some i
+  | _ :: rem -> last_instr rem
+
+(* Split a block, separating the last instruction from the preceeding
+   ones, ignoring events *)
+let block_split_last xs =
+  let rec aux acc = function
+    | [] -> None
+    | [ x ] | [ x; (Event _, _) ] -> Some (List.rev acc, x)
+    | x :: xs -> aux (x :: acc) xs
+  in
+  aux [] xs
+
+let empty_body b =
+  match b with
+  | [] | [ (Event _, _) ] -> true
+  | _ -> false
+
 (****)
 
 (*
@@ -176,7 +198,7 @@ let compute_needed_transformations ~cfg ~idom ~cps_needed ~blocks ~start =
       let block = Addr.Map.find pc blocks in
       (match fst block.branch with
       | Branch (dst, _) -> (
-          match List.last block.body with
+          match last_instr block.body with
           | Some
               ( Let
                   (x, (Apply _ | Prim (Extern ("%resume" | "%perform" | "%reperform"), _)))
@@ -572,7 +594,7 @@ let cps_block ~st ~k pc block =
   in
 
   let rewritten_block =
-    match List.split_last block.body, block.branch with
+    match block_split_last block.body, block.branch with
     | Some (body_prefix, (Let (x, e), loc)), (Return ret, _loc_ret) ->
         Option.map (rewrite_instr x e loc) ~f:(fun f ->
             assert (List.is_empty alloc_jump_closures);
@@ -847,7 +869,7 @@ let split_blocks ~cps_needed (p : Code.program) =
     let is_split_point i r branch =
       match i with
       | Let (x, (Apply _ | Prim (Extern ("%resume" | "%perform" | "%reperform"), _))) ->
-          ((not (List.is_empty r))
+          ((not (empty_body r))
           ||
           match fst branch with
           | Branch _ -> false
@@ -901,14 +923,6 @@ let remove_empty_blocks ~live_vars (p : Code.program) : Code.program =
       | None -> cont
   in
   let resolve cont = resolve_rec Addr.Set.empty cont in
-  let empty_body b =
-    List.for_all
-      ~f:(fun (i, _) ->
-        match i with
-        | Event _ -> true
-        | _ -> false)
-      b
-  in
   Addr.Map.iter
     (fun pc block ->
       match block with
diff --git a/compiler/lib/partial_cps_analysis.ml b/compiler/lib/partial_cps_analysis.ml
index 28da3c6767..ea4bfc2fc5 100644
--- a/compiler/lib/partial_cps_analysis.ml
+++ b/compiler/lib/partial_cps_analysis.ml
@@ -39,9 +39,18 @@ let add_tail_dep deps x y =
       (fun s -> Some (Var.Set.add x (Option.value ~default:Var.Set.empty s)))
       !deps
 
+let rec block_iter_last ~f l =
+  match l with
+  | [] -> ()
+  | [ i ] -> f true i
+  | [ i; (Event _, _) ] -> f true i
+  | i :: l ->
+      f false i;
+      block_iter_last ~f l
+
 let block_deps ~info ~vars ~tail_deps ~deps ~blocks ~fun_name pc =
   let block = Addr.Map.find pc blocks in
-  List.iter_last block.body ~f:(fun is_last (i, _) ->
+  block_iter_last block.body ~f:(fun is_last (i, _) ->
       match i with
       | Let (x, Apply { f; _ }) -> (
           add_var vars x;
diff --git a/compiler/tests-compiler/effects_continuations.ml b/compiler/tests-compiler/effects_continuations.ml
index 9d54a2e23b..0da72bd5ee 100644
--- a/compiler/tests-compiler/effects_continuations.ml
+++ b/compiler/tests-compiler/effects_continuations.ml
@@ -103,65 +103,61 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
     {|
 
     function exceptions(s, cont){
-     try{var _w_ = runtime.caml_int_of_string(s), n = _w_;}
-     catch(_A_){
-      var _s_ = caml_wrap_exception(_A_);
-      if(_s_[1] !== Stdlib[7]){
+     try{var _t_ = runtime.caml_int_of_string(s), n = _t_;}
+     catch(_x_){
+      var _p_ = caml_wrap_exception(_x_);
+      if(_p_[1] !== Stdlib[7]){
        var raise$1 = caml_pop_trap();
-       return raise$1(caml_maybe_attach_backtrace(_s_, 0));
+       return raise$1(caml_maybe_attach_backtrace(_p_, 0));
       }
       var n = 0;
      }
      try{
       if(caml_string_equal(s, cst$0))
        throw caml_maybe_attach_backtrace(Stdlib[8], 1);
-      var _v_ = 7, m = _v_;
+      var _s_ = 7, m = _s_;
      }
-     catch(_z_){
-      var _t_ = caml_wrap_exception(_z_);
-      if(_t_ !== Stdlib[8]){
+     catch(_w_){
+      var _q_ = caml_wrap_exception(_w_);
+      if(_q_ !== Stdlib[8]){
        var raise$0 = caml_pop_trap();
-       return raise$0(caml_maybe_attach_backtrace(_t_, 0));
+       return raise$0(caml_maybe_attach_backtrace(_q_, 0));
       }
       var m = 0;
      }
      runtime.caml_push_trap
-      (function(_y_){
-        if(_y_ === Stdlib[8]) return cont(0);
+      (function(_v_){
+        if(_v_ === Stdlib[8]) return cont(0);
         var raise = caml_pop_trap();
-        return raise(caml_maybe_attach_backtrace(_y_, 0));
+        return raise(caml_maybe_attach_backtrace(_v_, 0));
        });
      if(! caml_string_equal(s, cst))
       return caml_cps_call2
               (Stdlib[79],
                cst_toto,
-               function(_x_){caml_pop_trap(); return cont([0, [0, _x_, n, m]]);});
-     var _u_ = Stdlib[8], raise = caml_pop_trap();
-     return raise(caml_maybe_attach_backtrace(_u_, 1));
+               function(_u_){caml_pop_trap(); return cont([0, [0, _u_, n, m]]);});
+     var _r_ = Stdlib[8], raise = caml_pop_trap();
+     return raise(caml_maybe_attach_backtrace(_r_, 1));
     }
     //end
     function cond1(b, cont){
-     function _p_(ic){return cont([0, ic, 7]);}
+     function _o_(ic){return cont([0, ic, 7]);}
      return b
-             ? caml_cps_call2
-               (Stdlib[79], cst_toto$0, function(_q_){return _p_(_q_);})
-             : caml_cps_call2
-               (Stdlib[79], cst_titi, function(_r_){return _p_(_r_);});
+             ? caml_cps_call2(Stdlib[79], cst_toto$0, _o_)
+             : caml_cps_call2(Stdlib[79], cst_titi, _o_);
     }
     //end
     function cond2(b, cont){
-     function _m_(){return cont(7);}
+     function _m_(_n_){return cont(7);}
      return b
-             ? caml_cps_call2(Stdlib_Printf[3], _a_, function(_n_){return _m_();})
-             : caml_cps_call2(Stdlib_Printf[3], _b_, function(_o_){return _m_();});
+             ? caml_cps_call2(Stdlib_Printf[3], _a_, _m_)
+             : caml_cps_call2(Stdlib_Printf[3], _b_, _m_);
     }
     //end
     function cond3(b, cont){
      var x = [0, 0];
-     function _k_(){return cont(x[1]);}
-     return b
-             ? (x[1] = 1, _k_())
-             : caml_cps_call2(Stdlib_Printf[3], _c_, function(_l_){return _k_();});
+     function _k_(_l_){return cont(x[1]);}
+     return b ? (x[1] = 1, _k_(0)) : caml_cps_call2(Stdlib_Printf[3], _c_, _k_);
     }
     //end
     function loop1(b, cont){
@@ -169,20 +165,17 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
              (Stdlib[79],
               cst_static_examples_ml,
               function(ic){
-               function _i_(){
+               function _i_(_j_){
                 return caml_cps_call2
                         (Stdlib[83],
                          ic,
                          function(line){
                           return b
-                                  ? caml_cps_call2
-                                    (Stdlib[53],
-                                     line,
-                                     function(_j_){return caml_cps_exact_call0(_i_);})
-                                  : caml_cps_exact_call0(_i_);
+                                  ? caml_cps_call2(Stdlib[53], line, _i_)
+                                  : caml_cps_exact_call1(_i_, 0);
                          });
                }
-               return _i_();
+               return _i_(0);
               });
     }
     //end
@@ -191,23 +184,15 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
              (Stdlib[79],
               cst_static_examples_ml$0,
               function(ic){
-               return caml_cps_call2
-                       (Stdlib_Printf[3],
-                        _d_,
-                        function(_f_){
-                         function _g_(){
-                          return caml_cps_call2
-                                  (Stdlib[83],
-                                   ic,
-                                   function(line){
-                                    return caml_cps_call2
-                                            (Stdlib[53],
-                                             line,
-                                             function(_h_){return caml_cps_exact_call0(_g_);});
-                                   });
-                         }
-                         return _g_();
-                        });
+               function _g_(_h_){
+                return caml_cps_call2
+                        (Stdlib[83],
+                         ic,
+                         function(line){
+                          return caml_cps_call2(Stdlib[53], line, _g_);
+                         });
+               }
+               return caml_cps_call2(Stdlib_Printf[3], _d_, _g_);
               });
     }
     //end
@@ -216,8 +201,12 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
              (list_rev,
               _e_,
               function(l){
-               var x = l;
-               for(;;){if(! x) return cont(l); var r = x[2]; x = r;}
+               function _f_(x){
+                if(! x) return cont(l);
+                var r = x[2];
+                return caml_cps_exact_call1(_f_, r);
+               }
+               return _f_(l);
               });
     }
     //end |}]

From 189b231133e6eb0f6482fbfc5175c0020a93b875 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Tue, 22 Oct 2024 15:23:48 +0200
Subject: [PATCH 31/35] Change strategy to avoid ambiguity after a return
 statement

When pretty-printing, there is no ambiguity since we always have a space
after the return statement. In compact mode, use a newline instead.
---
 compiler/lib/js_output.ml               | 10 ++++++++--
 compiler/tests-compiler/sourcemap.ml    |  4 ++--
 compiler/tests-sourcemap/dump.reference |  8 ++++----
 3 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 60e456e75d..b2daa20acd 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -1407,8 +1407,14 @@ struct
     let last_semi ?(ret = false) () =
       if can_omit_semi
       then ()
-      else if ret && source_map_enabled
-      then PP.string f "; "
+      else if ret && source_map_enabled && PP.compact f
+      then
+        (* In Chrome, the debugger will stop right after a return
+           statement. We want a whitespace between this statement and
+           the next one to avoid confusing this location and the
+           location of the next statement. When pretty-printing, this
+           is already the case. In compact mode, we add a newline. *)
+        PP.string f ";\n"
       else PP.string f ";"
     in
     if stop_on_statement s then output_debug_info f loc;
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 28d5275044..53ef98a9b8 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -75,7 +75,7 @@ let%expect_test _ =
         3: (function(globalThis){
         4:    "use strict";
         5:    var runtime = globalThis.jsoo_runtime;
-        6:    function id(x){return x; }
+        6:    function id(x){return x;}
         7:    var Test = [0, id];
         8:    runtime.caml_register_global(0, Test, "Test");
         9:    return;
@@ -89,7 +89,7 @@ let%expect_test _ =
       /dune-root/test.ml:1:4 -> 6:12
       /dune-root/test.ml:1:7 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
-      /dune-root/test.ml:1:12 -> 6:28
+      /dune-root/test.ml:1:12 -> 6:27
       /dune-root/test.ml:1:12 -> 7:0
       /dune-root/test.ml:1:12 -> 7:7
       /builtin/blackbox.ml:1:0 -> 7:14
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index ca2f059261..1260499fd8 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -1,7 +1,7 @@
 sourcemap for test.bc.js
-/my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0; }
-/my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0; }
-/my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0; }
-/my/sourceRoot#b.ml:1:15 -> 35:   function f(x){return x - 1 | 0; <>}
+/my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0;}
+/my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0;}
+/my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0;}
+/my/sourceRoot#b.ml:1:15 -> 34:   function f(x){return x - 1 | 0;<>}
 /my/sourceRoot#b.ml:1:15 -> 0:<>   var Testlib_B = [0, f];
 /my/sourceRoot#b.ml:1:15 -> 7:   var <>Testlib_B = [0, f];

From 16317185f46f664c6af3948edd85ca84d1cb966b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Tue, 22 Oct 2024 17:04:25 +0200
Subject: [PATCH 32/35] Check additional code and source map invariants

---
 compiler/lib/code.ml       |  7 +++++++
 compiler/lib/source_map.ml | 18 ++++++++++++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/compiler/lib/code.ml b/compiler/lib/code.ml
index c6cf80a249..da3bbbbba4 100644
--- a/compiler/lib/code.ml
+++ b/compiler/lib/code.ml
@@ -909,6 +909,12 @@ let invariant { blocks; start; _ } =
       | Array_set (_x, _y, _z) -> ()
       | Event _ -> ()
     in
+    let rec check_events l =
+      match l with
+      | (Event _, _) :: (Event _, _) :: _ -> assert false
+      | _ :: r -> check_events r
+      | [] -> ()
+    in
     let check_last (l, _loc) =
       match l with
       | Return _ -> ()
@@ -928,5 +934,6 @@ let invariant { blocks; start; _ } =
       (fun _pc block ->
         List.iter block.params ~f:define;
         List.iter block.body ~f:check_instr;
+        check_events block.body;
         check_last block.branch)
       blocks)
diff --git a/compiler/lib/source_map.ml b/compiler/lib/source_map.ml
index 2a1ed4dcdb..64576d89dd 100644
--- a/compiler/lib/source_map.ml
+++ b/compiler/lib/source_map.ml
@@ -565,10 +565,24 @@ module Standard = struct
   let to_file m file = Yojson.Raw.to_file file (json m)
 
   let invariant
-      { version; file = _; sourceroot = _; names; sources_content; sources; mappings; _ }
-      =
+      { version
+      ; file = _
+      ; sourceroot = _
+      ; names
+      ; sources_content
+      ; sources
+      ; mappings
+      ; ignore_list
+      } =
     if not (version_is_valid version)
     then invalid_arg "Source_map.Standard.invariant: invalid version";
+    (if not (List.is_empty ignore_list)
+     then
+       let s = StringSet.of_list sources in
+       if List.exists ~f:(fun nm -> not (StringSet.mem nm s)) ignore_list
+       then
+         invalid_arg
+           "Source_map.Standard.invariant: ignore list should be a subset of sources");
     match sources_content with
     | None -> ()
     | Some x ->

From d0ce5f0bc5db10f59d4794606df27202ea6fc5d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Tue, 22 Oct 2024 17:20:46 +0200
Subject: [PATCH 33/35] No longer keep track of the location of identifiers

---
 compiler/lib/code.ml                    | 21 +--------------------
 compiler/lib/code.mli                   |  4 ----
 compiler/lib/js_output.ml               | 18 +++++-------------
 compiler/lib/ocaml_compiler.ml          | 25 -------------------------
 compiler/lib/ocaml_compiler.mli         |  2 --
 compiler/lib/parse_bytecode.ml          | 19 -------------------
 compiler/tests-compiler/sourcemap.ml    |  4 ++--
 compiler/tests-sourcemap/dump.reference |  2 --
 8 files changed, 8 insertions(+), 87 deletions(-)

diff --git a/compiler/lib/code.ml b/compiler/lib/code.ml
index da3bbbbba4..2b2a0f84ec 100644
--- a/compiler/lib/code.ml
+++ b/compiler/lib/code.ml
@@ -75,10 +75,6 @@ module Var : sig
 
   val compare : t -> t -> int
 
-  val get_loc : t -> Parse_info.t option
-
-  val loc : t -> Parse_info.t -> unit
-
   val name : t -> string -> unit
 
   val get_name : t -> string option
@@ -157,13 +153,10 @@ end = struct
 
   let printer = Var_printer.create Var_printer.Alphabet.javascript
 
-  let locations = Hashtbl.create 17
-
   let last_var = ref 0
 
   let reset () =
     last_var := 0;
-    Hashtbl.clear locations;
     Var_printer.reset printer
 
   let to_string ?origin i = Var_printer.to_string printer ?origin i
@@ -174,14 +167,6 @@ end = struct
 
   let name i nm = Var_printer.name printer i nm
 
-  let loc i pi = Hashtbl.add locations i pi
-
-  (*;
-    Format.eprintf "loc for %d : %d-%d\n%!"
-                   i pi.Parse_info.line pi.Parse_info.col
-  *)
-  let get_loc i = try Some (Hashtbl.find locations i) with Not_found -> None
-
   let fresh () =
     incr last_var;
     !last_var
@@ -199,11 +184,7 @@ end = struct
 
   let get_name i = Var_printer.get_name printer i
 
-  let propagate_name i j =
-    Var_printer.propagate_name printer i j;
-    match get_loc i with
-    | None -> ()
-    | Some l -> loc j l
+  let propagate_name i j = Var_printer.propagate_name printer i j
 
   let set_pretty b = Var_printer.set_pretty printer b
 
diff --git a/compiler/lib/code.mli b/compiler/lib/code.mli
index b2137b8ac0..38748e3a42 100644
--- a/compiler/lib/code.mli
+++ b/compiler/lib/code.mli
@@ -68,10 +68,6 @@ module Var : sig
 
   val compare : t -> t -> int
 
-  val loc : t -> Parse_info.t -> unit
-
-  val get_loc : t -> Parse_info.t option
-
   val get_name : t -> string option
 
   val name : t -> string -> unit
diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index b2daa20acd..03c910d458 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -194,22 +194,14 @@ struct
         current_loc := loc;
         on_ident := false
 
-  let output_debug_info_ident f nm loc =
+  let output_debug_info_ident f nm =
     if source_map_enabled
     then (
-      let loc =
-        (* Keep the current location if possible, since we don't care
-           about the actual identifier's location *)
-        match !current_loc, loc with
-        | (N | U | Pi { Parse_info.src = Some "" | None; _ }), Some _ -> loc
-        | Pi ({ Parse_info.src = Some _; _ } as loc), _ -> Some loc
-        | _, None -> None
-      in
       on_ident := true;
       push_mapping
         (PP.pos f)
-        (match loc with
-        | None | Some { Parse_info.src = Some "" | None; _ } ->
+        (match !current_loc with
+        | N | U | Pi { Parse_info.src = Some "" | None; _ } ->
             (* Use a dummy location. It is going to be ignored anyway *)
             let ori_source =
               match hidden_location with
@@ -224,7 +216,7 @@ struct
               ; ori_col = 0
               ; ori_name = get_name_index nm
               }
-        | Some { Parse_info.src = Some file; line; col; _ } ->
+        | Pi { Parse_info.src = Some file; line; col; _ } ->
             Source_map.Gen_Ori_Name
               { gen_line = -1
               ; gen_col = -1
@@ -237,7 +229,7 @@ struct
   let ident f ~kind = function
     | S { name = Utf8 name; var = Some v; _ } ->
         (match kind, Code.Var.get_name v with
-        | `Binding, Some nm -> output_debug_info_ident f nm (Code.Var.get_loc v)
+        | `Binding, Some nm -> output_debug_info_ident f nm
         | `Reference, _ | `Binding, None -> ());
         if false then PP.string f (Printf.sprintf "/* %d */" (Code.Var.idx v));
         PP.string f name
diff --git a/compiler/lib/ocaml_compiler.ml b/compiler/lib/ocaml_compiler.ml
index 6b334be60b..f8cd33453e 100644
--- a/compiler/lib/ocaml_compiler.ml
+++ b/compiler/lib/ocaml_compiler.ml
@@ -46,31 +46,6 @@ let rec constant_of_const c : Code.constant =
       let l = Array.of_list (List.map l ~f:constant_of_const) in
       Tuple (tag, l, Unknown)
 
-let rec find_loc_in_summary ident' = function
-  | Env.Env_empty -> None
-  | Env.Env_value (_summary, ident, description) when Poly.(ident = ident') ->
-      Some description.Types.val_loc
-  | Env.Env_module (_summary, ident, _, description) when Ident.same ident ident' ->
-      Some description.Types.md_loc
-  | Env.Env_extension (_summary, ident, description) when Ident.same ident ident' ->
-      Some description.Types.ext_loc
-  | Env.Env_value (summary, _, _)
-  | Env.Env_type (summary, _, _)
-  | Env.Env_extension (summary, _, _)
-  | Env.Env_module (summary, _, _, _)
-  | Env.Env_modtype (summary, _, _)
-  | Env.Env_class (summary, _, _)
-  | Env.Env_cltype (summary, _, _)
-  | Env.Env_open (summary, _)
-  | Env.Env_functor_arg (summary, _)
-  | Env.Env_constraints (summary, _)
-  | ((Env.Env_copy_types (summary, _)) [@if ocaml_version < (4, 10, 0)])
-  | ((Env.Env_copy_types summary) [@if ocaml_version >= (4, 10, 0)])
-  | Env.Env_persistent (summary, _)
-  | ((Env.Env_value_unbound (summary, _, _)) [@if ocaml_version >= (4, 10, 0)])
-  | ((Env.Env_module_unbound (summary, _, _)) [@if ocaml_version >= (4, 10, 0)]) ->
-      find_loc_in_summary ident' summary
-
 module Symtable = struct
   (* Copied from ocaml/bytecomp/symtable.ml *)
   module Num_tbl (M : Map.S) = struct
diff --git a/compiler/lib/ocaml_compiler.mli b/compiler/lib/ocaml_compiler.mli
index 227f1b9f31..afcb137b29 100644
--- a/compiler/lib/ocaml_compiler.mli
+++ b/compiler/lib/ocaml_compiler.mli
@@ -18,8 +18,6 @@
 
 val constant_of_const : Lambda.structured_constant -> Code.constant
 
-val find_loc_in_summary : Ident.t -> Env.summary -> Location.t option
-
 module Symtable : sig
   module Global : sig
     type t =
diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index 59f447ffed..ca7ad13f0e 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -67,8 +67,6 @@ module Debug : sig
     -> event:Instruct.debug_event
     -> Parse_info.t
 
-  val find_source : t -> string -> string option
-
   val read_event :
        paths:string list
     -> crcs:(string, string option) Hashtbl.t
@@ -234,15 +232,6 @@ end = struct
       let paths = read_paths ic @ includes in
       List.iter evl ~f:(read_event ~paths ~crcs ~orig debug)
 
-  let find_source { pos_fname_to_source; _ } pos_fname =
-    match pos_fname with
-    | "_none_" -> None
-    | _ -> (
-        match String_table.find_all pos_fname_to_source pos_fname with
-        | [ x ] -> Some x
-        | _ :: _ :: _ -> None
-        | [] -> None)
-
   let read t ~crcs ~includes ic =
     let len = input_binary_int ic in
     for _i = 0 to len - 1 do
@@ -696,18 +685,10 @@ module State = struct
       print_env
       st.env
 
-  let pi_of_loc debug location =
-    let pos = location.Location.loc_start in
-    let src = Debug.find_source debug pos.Lexing.pos_fname in
-    Parse_info.t_of_position ~src pos
-
   let rec name_rec debug i l s summary =
     match l, s with
     | [], _ -> ()
     | (j, ident) :: lrem, Var v :: srem when i = j ->
-        (match Ocaml_compiler.find_loc_in_summary ident summary with
-        | None -> ()
-        | Some loc -> Var.loc v (pi_of_loc debug loc));
         Var.name v (Ident.name ident);
         name_rec debug (i + 1) lrem srem summary
     | (j, _) :: _, _ :: srem when i < j -> name_rec debug (i + 1) l srem summary
diff --git a/compiler/tests-compiler/sourcemap.ml b/compiler/tests-compiler/sourcemap.ml
index 53ef98a9b8..ad83ae7cc8 100644
--- a/compiler/tests-compiler/sourcemap.ml
+++ b/compiler/tests-compiler/sourcemap.ml
@@ -86,8 +86,8 @@ let%expect_test _ =
       /builtin/blackbox.ml:1:0 -> 5:7
       /builtin/blackbox.ml:1:0 -> 5:17
       /builtin/blackbox.ml:1:0 -> 6:0
-      /dune-root/test.ml:1:4 -> 6:12
-      /dune-root/test.ml:1:7 -> 6:15
+      /builtin/blackbox.ml:1:0 -> 6:12
+      /builtin/blackbox.ml:1:0 -> 6:15
       /dune-root/test.ml:1:11 -> 6:18
       /dune-root/test.ml:1:12 -> 6:27
       /dune-root/test.ml:1:12 -> 7:0
diff --git a/compiler/tests-sourcemap/dump.reference b/compiler/tests-sourcemap/dump.reference
index 1260499fd8..87c6c2f130 100644
--- a/compiler/tests-sourcemap/dump.reference
+++ b/compiler/tests-sourcemap/dump.reference
@@ -1,6 +1,4 @@
 sourcemap for test.bc.js
-/my/sourceRoot#b.ml:1:4 -> 12:   function <>f(x){return x - 1 | 0;}
-/my/sourceRoot#b.ml:1:6 -> 14:   function f(<>x){return x - 1 | 0;}
 /my/sourceRoot#b.ml:1:10 -> 17:   function f(x){<>return x - 1 | 0;}
 /my/sourceRoot#b.ml:1:15 -> 34:   function f(x){return x - 1 | 0;<>}
 /my/sourceRoot#b.ml:1:15 -> 0:<>   var Testlib_B = [0, f];

From 69ca70221c6121130b475f34a5b20b903f84febe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Wed, 23 Oct 2024 16:35:30 +0200
Subject: [PATCH 34/35] Make sure that the name of an identifier does not bleed
 on another one

---
 compiler/lib/js_output.ml | 80 +++++++++++++++++++++------------------
 1 file changed, 43 insertions(+), 37 deletions(-)

diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index 03c910d458..94174d2dff 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -150,7 +150,7 @@ struct
 
   let current_loc = ref U
 
-  let on_ident = ref false
+  let last_mapping_has_a_name = ref false
 
   let output_debug_info f loc =
     let loc =
@@ -158,14 +158,14 @@ struct
          to bleed over other identifiers, using the current location
          when none is provided. *)
       match loc with
-      | N when !on_ident -> !current_loc
+      | N when !last_mapping_has_a_name -> !current_loc
       | _ -> loc
     in
     match loc with
     | N -> ()
     | _ ->
         let location_changed = Poly.(loc <> !current_loc) in
-        (if source_map_enabled && (!on_ident || location_changed)
+        (if source_map_enabled && (!last_mapping_has_a_name || location_changed)
          then
            match loc with
            | N | U | Pi { Parse_info.src = None | Some ""; _ } ->
@@ -192,45 +192,51 @@ struct
                PP.string f (Format.sprintf "/*<<%s>>*/" (Parse_info.to_string pi));
                PP.non_breaking_space f);
         current_loc := loc;
-        on_ident := false
+        last_mapping_has_a_name := false
 
-  let output_debug_info_ident f nm =
+  let output_debug_info_ident f nm_opt =
     if source_map_enabled
-    then (
-      on_ident := true;
-      push_mapping
-        (PP.pos f)
-        (match !current_loc with
-        | N | U | Pi { Parse_info.src = Some "" | None; _ } ->
-            (* Use a dummy location. It is going to be ignored anyway *)
-            let ori_source =
-              match hidden_location with
-              | Source_map.Gen_Ori { ori_source; _ } -> ori_source
-              | _ -> 0
-            in
-            Source_map.Gen_Ori_Name
-              { gen_line = -1
-              ; gen_col = -1
-              ; ori_source
-              ; ori_line = 1
-              ; ori_col = 0
-              ; ori_name = get_name_index nm
-              }
-        | Pi { Parse_info.src = Some file; line; col; _ } ->
-            Source_map.Gen_Ori_Name
-              { gen_line = -1
-              ; gen_col = -1
-              ; ori_source = get_file_index file
-              ; ori_line = line
-              ; ori_col = col
-              ; ori_name = get_name_index nm
-              }))
+    then
+      match nm_opt with
+      | None ->
+          (* Make sure that the name of a previous identifier does not
+             bleed on this one. *)
+          output_debug_info f N
+      | Some nm ->
+          last_mapping_has_a_name := true;
+          push_mapping
+            (PP.pos f)
+            (match !current_loc with
+            | N | U | Pi { Parse_info.src = Some "" | None; _ } ->
+                (* Use a dummy location. It is going to be ignored anyway *)
+                let ori_source =
+                  match hidden_location with
+                  | Source_map.Gen_Ori { ori_source; _ } -> ori_source
+                  | _ -> 0
+                in
+                Source_map.Gen_Ori_Name
+                  { gen_line = -1
+                  ; gen_col = -1
+                  ; ori_source
+                  ; ori_line = 1
+                  ; ori_col = 0
+                  ; ori_name = get_name_index nm
+                  }
+            | Pi { Parse_info.src = Some file; line; col; _ } ->
+                Source_map.Gen_Ori_Name
+                  { gen_line = -1
+                  ; gen_col = -1
+                  ; ori_source = get_file_index file
+                  ; ori_line = line
+                  ; ori_col = col
+                  ; ori_name = get_name_index nm
+                  })
 
   let ident f ~kind = function
     | S { name = Utf8 name; var = Some v; _ } ->
-        (match kind, Code.Var.get_name v with
-        | `Binding, Some nm -> output_debug_info_ident f nm
-        | `Reference, _ | `Binding, None -> ());
+        (match kind with
+        | `Binding -> output_debug_info_ident f (Code.Var.get_name v)
+        | `Reference -> ());
         if false then PP.string f (Printf.sprintf "/* %d */" (Code.Var.idx v));
         PP.string f name
     | S { name = Utf8 name; var = None; _ } -> PP.string f name

From 7cd112c77f30ce26f9be5274f276efa14dac34a7 Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Wed, 23 Oct 2024 17:16:29 +0200
Subject: [PATCH 35/35] Compiler: more cleanup in parse_bytecode

---
 compiler/lib/parse_bytecode.ml | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
index ca7ad13f0e..420e7a1360 100644
--- a/compiler/lib/parse_bytecode.ml
+++ b/compiler/lib/parse_bytecode.ml
@@ -109,13 +109,11 @@ end = struct
     ; source : path option
     }
 
-  module String_table = Hashtbl.Make (String)
   module Int_table = Hashtbl.Make (Int)
 
   type t =
     { events_by_pc : event_and_source Int_table.t
     ; units : (string * string option, ml_unit) Hashtbl.t
-    ; pos_fname_to_source : string String_table.t
     ; names : bool
     ; enabled : bool
     ; include_cmis : bool
@@ -137,7 +135,6 @@ end = struct
     let names = enabled || Config.Flag.pretty () in
     { events_by_pc = Int_table.create 17
     ; units = Hashtbl.create 17
-    ; pos_fname_to_source = String_table.create 17
     ; names
     ; enabled
     ; include_cmis
@@ -155,7 +152,7 @@ end = struct
       ~paths
       ~crcs
       ~orig
-      { events_by_pc; units; pos_fname_to_source; names; enabled; include_cmis = _ }
+      { events_by_pc; units; names; enabled; include_cmis = _ }
       ev =
     let pos_fname =
       match ev.ev_loc.Location.loc_start.Lexing.pos_fname with
@@ -200,10 +197,6 @@ end = struct
             | None -> "NONE"
             | Some x -> x);
         let u = { module_name = ev_module; crc; source; paths } in
-        (match pos_fname, source with
-        | None, _ | _, None -> ()
-        | Some pos_fname, Some source ->
-            String_table.add pos_fname_to_source pos_fname source);
         Hashtbl.add units (ev_module, pos_fname) u;
         u
     in